diff --git a/Makefile b/Makefile.am similarity index 87% rename from Makefile rename to Makefile.am index 853a73d2da27851bca92feddc9fc3785f3b46a4a..4a7643997c1660b2cfbd498a91d05c7bac439136 100644 --- a/Makefile +++ b/Makefile.am @@ -28,15 +28,9 @@ # E-mail: sandu@cs.vt.edu # ####################################################################################### -include Makefile.defs -.PHONY: boxmox - -all: kpp boxmox - -kpp: - @echo "Compiling KPP" - @cd src;make;cd .. +SUBDIRS = src +dist_doc_DATA = README.md boxmox_clean: @rm -f boxmox/README.pdf boxmox/README.aux boxmox/README.log boxmox/README.toc @@ -49,11 +43,3 @@ boxmox_doc: boxmox: boxmox_doc @echo "Setting the execute bit for user commands" @chmod +x boxmox/bin/* - -clean: boxmox_clean - @cd src;make clean;cd .. - @rm -f *~ */*~ - -distclean: clean - @cd src;make maintainer-clean;cd .. - @rm -f bin/kpp diff --git a/Makefile.defs b/Makefile.defs deleted file mode 100644 index c381888c1c83cb2d83fc3abaca00c4837384337e..0000000000000000000000000000000000000000 --- a/Makefile.defs +++ /dev/null @@ -1,70 +0,0 @@ -# -*- sh -*- -############################################################################## -# -# KPP - The Kinetic PreProcessor -# Builds simulation code for chemical kinetic systems -# -# Copyright (C) 1995-1997 Valeriu Damian and Adrian Sandu -# Copyright (C) 1997-2005 Adrian Sandu -# -# KPP is free software; you can redistribute it and/or modify it under the -# terms of the GNU General Public License as published by the Free Software -# Foundation (http://www.gnu.org/copyleft/gpl.html); either version 2 of the -# License, or (at your option) any later version. -# -# KPP is distributed in the hope that it will be useful, but WITHOUT ANY -# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS -# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more -# details. -# -# You should have received a copy of the GNU General Public License along -## with this program; if not, consult http://www.gnu.org/copyleft/gpl.html or -# write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -# Boston, MA 02111-1307, USA. -# -# Adrian Sandu -# Computer Science Department -# Virginia Polytechnic Institute and State University -# Blacksburg, VA 24060 -# E-mail: sandu@cs.vt.edu -# -############################################################################## - -# In order to compile KPP you have to provide the following information: - -# 1. The name of the compiler you want to use. Normaly this -# is either GNU C compiler (gcc) or the native compiler (cc) -# You can use the complete pathname if the compiler is not in $PATH -# Note that for SUN machines is better to use gcc. -# For GNU C compiler use: -# CC=gcc -# For the native compiler use: -# CC=cc - -CC=gcc - -# 2. The name of your lexical analizer. KPP requires FLEX to be used. -# FLEX is a public domain lexical analizer and you can download it from -# http://www.gnu.org/software/flex/ or any other mirror site. If flex -# directory is not included in your path use the complete pathname. - -FLEX=flex - -# 3. The complete pathname of the FLEX library (libfl.a). -# On many systems this is either: -# /usr/lib, /usr/lib64, /usr/local/util/lib/flex - -FLEX_LIB_DIR=/usr/lib - -# 4. Platform independent C compiler flags. By default "-O" is used which -# turns on optimization. If you are experiencing problems you may try -# "-g" to include debuging informations. - -CC_FLAGS= -g -Wall - -# 5. Path to include additional directories -# Typically: /usr/include on Linux -# /usr/include/sys on Mac OS X -INCLUDE_DIR = /usr/include - -############################################################################## diff --git a/boxmox/bin/list_BOXMOX_mechanisms b/bin/list_BOXMOX_mechanisms similarity index 100% rename from boxmox/bin/list_BOXMOX_mechanisms rename to bin/list_BOXMOX_mechanisms diff --git a/boxmox/bin/new_BOXMOX_experiment b/bin/new_BOXMOX_experiment similarity index 100% rename from boxmox/bin/new_BOXMOX_experiment rename to bin/new_BOXMOX_experiment diff --git a/boxmox/bin/new_BOXMOX_experiment_from_example b/bin/new_BOXMOX_experiment_from_example similarity index 100% rename from boxmox/bin/new_BOXMOX_experiment_from_example rename to bin/new_BOXMOX_experiment_from_example diff --git a/boxmox/bin/prepare_BOXMOX_mechanism b/bin/prepare_BOXMOX_mechanism similarity index 100% rename from boxmox/bin/prepare_BOXMOX_mechanism rename to bin/prepare_BOXMOX_mechanism diff --git a/boxmox/bin/validate_BOXMOX_installation b/bin/validate_BOXMOX_installation similarity index 100% rename from boxmox/bin/validate_BOXMOX_installation rename to bin/validate_BOXMOX_installation diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU.exe b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU.exe deleted file mode 100755 index 87cde49e53242e54d5e48a9f338c41f05428a4da..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU.exe and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU.kpp b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU.kpp deleted file mode 100644 index aa89ca3b5772ed9755d53e25535f8ba964557d0a..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU.kpp +++ /dev/null @@ -1,7 +0,0 @@ -#MODEL CB05TUCl_NCSU -#LANGUAGE Fortran90 -#DOUBLE ON -#INTEGRATOR rosenbrock -#DRIVER ../boxmox/boxmox -#JACOBIAN SPARSE_LU_ROW -#HESSIAN OFF diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU.map b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU.map deleted file mode 100644 index a7c137a1f39d073fef58fe95f0384fcd317f4bab..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU.map +++ /dev/null @@ -1,107 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Map File with Human-Readable Information -! -! Generated by KPP-2.2.3 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 : CB05TUCl_NCSU.map -! Time : Thu Oct 8 08:21:46 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05TUCl_NCSU_13059_BOXMOX -! Equation file : CB05TUCl_NCSU.kpp -! Output root filename : CB05TUCl_NCSU -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -### Options ------------------------------------------- - -FUNCTION - AGGREGATE -JACOBIAN - SPARSE W/ ACCOUNT FOR LU DECOMPOSITION FILL-IN -DOUBLE - ON -REORDER - ON - -### Parameters ---------------------------------------- - -! NSPEC - Number of chemical species - INTEGER, PARAMETER :: NSPEC = 109 -! NVAR - Number of Variable species - INTEGER, PARAMETER :: NVAR = 107 -! NVARACT - Number of Active species - INTEGER, PARAMETER :: NVARACT = 73 -! NFIX - Number of Fixed species - INTEGER, PARAMETER :: NFIX = 2 -! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 198 -! NVARST - Starting of variables in conc. vect. - INTEGER, PARAMETER :: NVARST = 1 -! NFIXST - Starting of fixed in conc. vect. - INTEGER, PARAMETER :: NFIXST = 108 - -### Species ------------------------------------------- - -Variable species - 1 = tolaer1 (n) 37 = pah (r) 73 = rooh (r) - 2 = tolaer2 (n) 38 = hg2 (n) 74 = cro (r) - 3 = cslaer (n) 39 = CVASOA1 (n) 75 = clo (r) - 4 = xylaer1 (n) 40 = CVASOA2 (r) 76 = mgly (r) - 5 = xylaer2 (n) 41 = CVASOA3 (r) 77 = fmcl (r) - 6 = isoaer1 (n) 42 = CVASOA4 (r) 78 = mepx (r) - 7 = isoaer2 (n) 43 = CVBSOA1 (n) 79 = hno3 (r) - 8 = sulf (n) 44 = CVBSOA2 (r) 80 = co (r) - 9 = sulaer (n) 45 = CVBSOA3 (r) 81 = open (r) - 10 = terpaer (n) 46 = CVBSOA4 (r) 82 = ror (r) - 11 = humaer (n) 47 = vocr_co (n) 83 = eth (r) - 12 = hum (r) 48 = vocr_nmvoc (n) 84 = cres (r) - 13 = limaer1 (n) 49 = cl2 (r) 85 = terp (r) - 14 = limaer2 (n) 50 = so2 (r) 86 = iole (r) - 15 = lim (r) 51 = pan (r) 87 = ole (r) - 16 = ociaer1 (n) 52 = hocl (r) 88 = xo2n (r) - 17 = ociaer2 (n) 53 = tol (r) 89 = par (r) - 18 = oci (r) 54 = h2 (r) 90 = isop (r) - 19 = apinaer1 (n) 55 = o1d (r) 91 = ispd (r) - 20 = apinaer2 (n) 56 = n2o5 (r) 92 = aldx (r) - 21 = apinaer3 (n) 57 = xyl (r) 93 = ald2 (r) - 22 = apinaer4 (n) 58 = ch4 (r) 94 = ntr (r) - 23 = apin (r) 59 = hg0 (r) 95 = form (r) - 24 = bpinaer1 (n) 60 = hono (r) 96 = o3 (r) - 25 = bpinaer2 (n) 61 = facd (r) 97 = c2o3 (r) - 26 = bpinaer3 (n) 62 = to2 (r) 98 = oh (r) - 27 = bpinaer4 (n) 63 = pna (r) 99 = cxo3 (r) - 28 = bpinaer5 (n) 64 = pacd (r) 100 = no (r) - 29 = bpin (r) 65 = aacd (r) 101 = no2 (r) - 30 = teraer1 (n) 66 = panx (r) 102 = cl (r) - 31 = teraer2 (n) 67 = etha (r) 103 = no3 (r) - 32 = ter (r) 68 = meoh (r) 104 = xo2 (r) - 33 = alkhaer1 (n) 69 = h2o2 (r) 105 = o (r) - 34 = alkh (r) 70 = etoh (r) 106 = ho2 (r) - 35 = pahaer1 (n) 71 = hco3 (r) 107 = meo2 (r) - 36 = pahaer2 (n) 72 = hcl (r) - -Fixed species - 1 = H2O (r) 2 = M (r) - -### Subroutines --------------------------------------- - -SUBROUTINE Fun ( V, F, RCT, Vdot ) -SUBROUTINE Jac_SP ( V, F, RCT, JVS ) -SUBROUTINE Jac_SP_Vec ( JVS, UV, JUV ) -SUBROUTINE JacTR_SP_Vec ( JVS, UV, JTUV ) -SUBROUTINE KppSolve ( JVS, X ) -SUBROUTINE KppSolveTR ( JVS, X, XX ) -SUBROUTINE Initialize ( ) -SUBROUTINE Shuffle_user2kpp ( V_USER, V ) -SUBROUTINE Shuffle_kpp2user ( V, V_USER ) -SUBROUTINE Update_RCONST ( ) -SUBROUTINE Update_PHOTO ( ) -SUBROUTINE GetMass ( CL, Mass ) -SUBROUTINE ReactantProd ( V, F, ARP ) -SUBROUTINE JacReactantProd ( V, F, JVRP ) diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Function.f90 b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Function.f90 deleted file mode 100644 index e604a51e88abed4d221b1c0f76578b98073ab5ff..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Function.f90 +++ /dev/null @@ -1,417 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The ODE Function of Chemical Model File -! -! Generated by KPP-2.2.3 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 : CB05TUCl_NCSU_Function.f90 -! Time : Thu Oct 8 08:21:46 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05TUCl_NCSU_13059_BOXMOX -! Equation file : CB05TUCl_NCSU.kpp -! Output root filename : CB05TUCl_NCSU -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CB05TUCl_NCSU_Function - - USE CB05TUCl_NCSU_Parameters - IMPLICIT NONE - -! A - Rate for each equation - REAL(kind=dp) :: A(NREACT) - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Fun - time derivatives of variables - Agregate form -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! RCT - Rate constants (local) -! Vdot - Time derivative of variable species concentrations -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Fun ( V, F, RCT, Vdot ) - -! 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) -! Vdot - Time derivative of variable species concentrations - REAL(kind=dp) :: Vdot(NVAR) - - -! Computation of equation rates - A(1) = RCT(1)*V(101) - A(2) = RCT(2)*V(105) - A(3) = RCT(3)*V(96)*V(100) - A(4) = RCT(4)*V(101)*V(105) - A(5) = RCT(5)*V(101)*V(105) - A(6) = RCT(6)*V(100)*V(105) - A(7) = RCT(7)*V(96)*V(101) - A(8) = RCT(8)*V(96) - A(9) = RCT(9)*V(96) - A(10) = RCT(10)*V(55)*F(2) - A(11) = RCT(11)*V(55)*F(1) - A(12) = RCT(12)*V(96)*V(98) - A(13) = RCT(13)*V(96)*V(106) - A(14) = RCT(14)*V(103) - A(15) = RCT(15)*V(103) - A(16) = RCT(16)*V(100)*V(103) - A(17) = RCT(17)*V(101)*V(103) - A(18) = RCT(18)*V(101)*V(103) - A(19) = RCT(19)*V(56)*F(1) - A(20) = RCT(20)*V(56)*F(1)*F(1) - A(21) = RCT(21)*V(56) - A(22) = RCT(22)*V(100)*V(100) - A(23) = RCT(23)*V(100)*V(101)*F(1) - A(24) = RCT(24)*V(98)*V(100) - A(25) = RCT(25)*V(60) - A(26) = RCT(26)*V(60)*V(98) - A(27) = RCT(27)*V(60)*V(60) - A(28) = RCT(28)*V(98)*V(101) - A(29) = RCT(29)*V(79)*V(98) - A(30) = RCT(30)*V(100)*V(106) - A(31) = RCT(31)*V(101)*V(106) - A(32) = RCT(32)*V(63) - A(33) = RCT(33)*V(63)*V(98) - A(34) = RCT(34)*V(106)*V(106) - A(35) = RCT(35)*V(106)*V(106)*F(1) - A(36) = RCT(36)*V(69) - A(37) = RCT(37)*V(69)*V(98) - A(38) = RCT(38)*V(54)*V(55) - A(39) = RCT(39)*V(54)*V(98) - A(40) = RCT(40)*V(98)*V(105) - A(41) = RCT(41)*V(98)*V(98) - A(42) = RCT(42)*V(98)*V(98) - A(43) = RCT(43)*V(98)*V(106) - A(44) = RCT(44)*V(105)*V(106) - A(45) = RCT(45)*V(69)*V(105) - A(46) = RCT(46)*V(103)*V(105) - A(47) = RCT(47)*V(98)*V(103) - A(48) = RCT(48)*V(103)*V(106) - A(49) = RCT(49)*V(96)*V(103) - A(50) = RCT(50)*V(103)*V(103) - A(51) = RCT(51)*V(63) - A(52) = RCT(52)*V(79) - A(53) = RCT(53)*V(56) - A(54) = RCT(54)*V(100)*V(104) - A(55) = RCT(55)*V(88)*V(100) - A(56) = RCT(56)*V(104)*V(106) - A(57) = RCT(57)*V(88)*V(106) - A(58) = RCT(58)*V(104)*V(104) - A(59) = RCT(59)*V(88)*V(88) - A(60) = RCT(60)*V(88)*V(104) - A(61) = RCT(61)*V(94)*V(98) - A(62) = RCT(62)*V(94) - A(63) = RCT(63)*V(73)*V(98) - A(64) = RCT(64)*V(73) - A(65) = RCT(65)*V(80)*V(98) - A(66) = RCT(66)*V(58)*V(98) - A(67) = RCT(67)*V(100)*V(107) - A(68) = RCT(68)*V(106)*V(107) - A(69) = RCT(69)*V(107)*V(107) - A(70) = RCT(70)*V(78)*V(98) - A(71) = RCT(71)*V(78) - A(72) = RCT(72)*V(68)*V(98) - A(73) = RCT(73)*V(95)*V(98) - A(74) = RCT(74)*V(95) - A(75) = RCT(75)*V(95) - A(76) = RCT(76)*V(95)*V(105) - A(77) = RCT(77)*V(95)*V(103) - A(78) = RCT(78)*V(95)*V(106) - A(79) = RCT(79)*V(71) - A(80) = RCT(80)*V(71)*V(100) - A(81) = RCT(81)*V(71)*V(106) - A(82) = RCT(82)*V(61)*V(98) - A(83) = RCT(83)*V(93)*V(105) - A(84) = RCT(84)*V(93)*V(98) - A(85) = RCT(85)*V(93)*V(103) - A(86) = RCT(86)*V(93) - A(87) = RCT(87)*V(97)*V(100) - A(88) = RCT(88)*V(97)*V(101) - A(89) = RCT(89)*V(51) - A(90) = RCT(90)*V(51) - A(91) = RCT(91)*V(97)*V(106) - A(92) = RCT(92)*V(97)*V(107) - A(93) = RCT(93)*V(97)*V(104) - A(94) = RCT(94)*V(97)*V(97) - A(95) = RCT(95)*V(64)*V(98) - A(96) = RCT(96)*V(64) - A(97) = RCT(97)*V(65)*V(98) - A(98) = RCT(98)*V(92)*V(105) - A(99) = RCT(99)*V(92)*V(98) - A(100) = RCT(100)*V(92)*V(103) - A(101) = RCT(101)*V(92) - A(102) = RCT(102)*V(99)*V(100) - A(103) = RCT(103)*V(99)*V(101) - A(104) = RCT(104)*V(66) - A(105) = RCT(105)*V(66) - A(106) = RCT(106)*V(66)*V(98) - A(107) = RCT(107)*V(99)*V(106) - A(108) = RCT(108)*V(99)*V(107) - A(109) = RCT(109)*V(99)*V(104) - A(110) = RCT(110)*V(99)*V(99) - A(111) = RCT(111)*V(97)*V(99) - A(112) = RCT(112)*V(89)*V(98) - A(113) = RCT(113)*V(82) - A(114) = 1600*V(82) - A(115) = RCT(115)*V(82)*V(101) - A(116) = RCT(116)*V(87)*V(105) - A(117) = RCT(117)*V(87)*V(98) - A(118) = RCT(118)*V(87)*V(96) - A(119) = RCT(119)*V(87)*V(103) - A(120) = RCT(120)*V(83)*V(105) - A(121) = RCT(121)*V(83)*V(98) - A(122) = RCT(122)*V(83)*V(96) - A(123) = RCT(123)*V(83)*V(103) - A(124) = RCT(124)*V(86)*V(105) - A(125) = RCT(125)*V(86)*V(98) - A(126) = RCT(126)*V(86)*V(96) - A(127) = RCT(127)*V(86)*V(103) - A(128) = RCT(128)*V(53)*V(98) - A(129) = RCT(129)*V(62)*V(100) - A(130) = 4.2*V(62) - A(131) = RCT(131)*V(84)*V(98) - A(132) = RCT(132)*V(84)*V(103) - A(133) = RCT(133)*V(74)*V(101) - A(134) = RCT(134)*V(74)*V(106) - A(135) = RCT(135)*V(81) - A(136) = RCT(136)*V(81)*V(98) - A(137) = RCT(137)*V(81)*V(96) - A(138) = RCT(138)*V(57)*V(98) - A(139) = RCT(139)*V(76)*V(98) - A(140) = RCT(140)*V(76) - A(141) = RCT(141)*V(90)*V(105) - A(142) = RCT(142)*V(90)*V(98) - A(143) = RCT(143)*V(90)*V(96) - A(144) = RCT(144)*V(90)*V(103) - A(145) = RCT(145)*V(91)*V(98) - A(146) = RCT(146)*V(91)*V(96) - A(147) = RCT(147)*V(91)*V(103) - A(148) = RCT(148)*V(91) - A(149) = RCT(149)*V(85)*V(105) - A(150) = RCT(150)*V(85)*V(98) - A(151) = RCT(151)*V(85)*V(96) - A(152) = RCT(152)*V(85)*V(103) - A(153) = RCT(153)*V(50)*V(98) - A(154) = RCT(154)*V(70)*V(98) - A(155) = RCT(155)*V(67)*V(98) - A(156) = RCT(156)*V(90)*V(101) - A(157) = RCT(157)*V(49) - A(158) = RCT(158)*V(52) - A(159) = RCT(159)*V(96)*V(102) - A(160) = RCT(160)*V(75)*V(75) - A(161) = RCT(161)*V(75)*V(100) - A(162) = RCT(162)*V(75)*V(106) - A(163) = RCT(163)*V(77)*V(98) - A(164) = RCT(164)*V(77) - A(165) = RCT(165)*V(58)*V(102) - A(166) = RCT(166)*V(89)*V(102) - A(167) = RCT(167)*V(67)*V(102) - A(168) = RCT(168)*V(83)*V(102) - A(169) = RCT(169)*V(87)*V(102) - A(170) = RCT(170)*V(86)*V(102) - A(171) = RCT(171)*V(90)*V(102) - A(172) = RCT(172)*V(95)*V(102) - A(173) = RCT(173)*V(93)*V(102) - A(174) = RCT(174)*V(92)*V(102) - A(175) = RCT(175)*V(68)*V(102) - A(176) = RCT(176)*V(70)*V(102) - A(177) = RCT(177)*V(72)*V(98) - A(178) = RCT(178)*V(59)*V(96) - A(179) = RCT(179)*V(59)*V(98) - A(180) = RCT(180)*V(59)*V(69) - A(181) = RCT(181)*V(12)*V(98) - A(182) = RCT(182)*V(15)*V(98) - A(183) = RCT(183)*V(18)*V(98) - A(184) = RCT(184)*V(23)*V(98) - A(185) = RCT(185)*V(23)*V(96) - A(186) = RCT(186)*V(29)*V(98) - A(187) = RCT(187)*V(29)*V(96) - A(188) = RCT(188)*V(29)*V(103) - A(189) = RCT(189)*V(32)*V(98) - A(190) = RCT(190)*V(34)*V(98) - A(191) = RCT(191)*V(37)*V(98) - A(192) = RCT(192)*V(42)*V(98) - A(193) = RCT(193)*V(41)*V(98) - A(194) = RCT(194)*V(40)*V(98) - A(195) = RCT(195)*V(46)*V(98) - A(196) = RCT(196)*V(45)*V(98) - A(197) = RCT(197)*V(44)*V(98) - A(198) = RCT(198)*V(50) - -! Aggregate function - Vdot(1) = 0.071*A(128) - Vdot(2) = 0.138*A(128) - Vdot(3) = A(131)+A(132) - Vdot(4) = 0.038*A(138) - Vdot(5) = 0.167*A(138) - Vdot(6) = 0.232*A(141)+0.232*A(142)+0.232*A(143)+0.232*A(144) - Vdot(7) = 0.0228*A(141)+0.0288*A(142)+0.0288*A(143)+0.0288*A(144) - Vdot(8) = A(153)+A(198) - Vdot(9) = A(153) - Vdot(10) = A(149)+A(150)+A(151)+A(152) - Vdot(11) = A(181) - Vdot(12) = -A(181) - Vdot(13) = 0.239*A(182) - Vdot(14) = 0.363*A(182) - Vdot(15) = -A(182) - Vdot(16) = 0.045*A(183) - Vdot(17) = 0.149*A(183) - Vdot(18) = -A(183) - Vdot(19) = 0.038*A(184) - Vdot(20) = 0.326*A(184) - Vdot(21) = 0.125*A(185) - Vdot(22) = 0.102*A(185) - Vdot(23) = -A(184)-A(185) - Vdot(24) = 0.13*A(186) - Vdot(25) = 0.0406*A(186) - Vdot(26) = 0.026*A(187) - Vdot(27) = 0.485*A(187) - Vdot(28) = A(188) - Vdot(29) = -A(186)-A(187)-A(188) - Vdot(30) = 0.091*A(189) - Vdot(31) = 0.367*A(189) - Vdot(32) = -A(189) - Vdot(33) = 1.173*A(190) - Vdot(34) = -A(190) - Vdot(35) = 0.156*A(191) - Vdot(36) = 0.777*A(191) - Vdot(37) = -A(191) - Vdot(38) = A(178)+A(179)+A(180) - Vdot(39) = 1.075*A(194) - Vdot(40) = 1.075*A(193)-A(194) - Vdot(41) = 1.075*A(192)-A(193) - Vdot(42) = -A(192) - Vdot(43) = 1.075*A(197) - Vdot(44) = 1.075*A(196)-A(197) - Vdot(45) = 1.075*A(195)-A(196) - Vdot(46) = -A(195) - Vdot(47) = A(65) - Vdot(48) = A(70)+A(72)+A(73)+A(82)+A(84)+A(95)+A(97)+A(99)+A(112)+A(117)+A(121)+A(125)+A(128)+A(131)+A(136)+A(138)& - &+A(139)+A(142)+A(145)+A(150)+A(154)+A(155) - Vdot(49) = -A(157)+0.3*A(160) - Vdot(50) = -A(153)-A(198) - Vdot(51) = A(88)-A(89)-A(90) - Vdot(52) = -A(158)+A(162) - Vdot(53) = -A(128) - Vdot(54) = -A(38)-A(39) - Vdot(55) = A(9)-A(10)-A(11)-A(38) - Vdot(56) = A(18)-A(19)-A(20)-A(21)-A(53) - Vdot(57) = -A(138) - Vdot(58) = -A(66)-A(165) - Vdot(59) = -A(178)-A(179)-A(180) - Vdot(60) = 2*A(23)+A(24)-A(25)-A(26)-2*A(27) - Vdot(61) = A(80)-A(82)+0.37*A(122) - Vdot(62) = 0.56*A(128)-A(129)-A(130)+0.3*A(138) - Vdot(63) = A(31)-A(32)-A(33)-A(51) - Vdot(64) = 0.8*A(91)-A(95)-A(96)+0.8*A(107) - Vdot(65) = 0.2*A(91)+0.1*A(92)+0.1*A(93)-A(97)+0.2*A(107)+0.1*A(108)+0.1*A(109) - Vdot(66) = A(103)-A(104)-A(105)-A(106) - Vdot(67) = -A(155)-A(167) - Vdot(68) = 0.63*A(69)-A(72)-A(175) - Vdot(69) = A(34)+A(35)-A(36)-A(37)+A(42)-A(45)-A(180) - Vdot(70) = -A(154)-A(176) - Vdot(71) = A(78)-A(79)-A(80)-A(81) - Vdot(72) = A(165)+A(166)+A(167)+0.3*A(170)+0.15*A(171)+A(172)+A(173)+A(174)+A(175)+A(176)-A(177) - Vdot(73) = A(56)+A(57)-A(63)-A(64) - Vdot(74) = 0.4*A(131)+A(132)-A(133)-A(134) - Vdot(75) = A(159)-2*A(160)-A(161)-A(162) - Vdot(76) = 0.2*A(137)+0.8*A(138)-A(139)-A(140)+0.168*A(145)+0.85*A(146) - Vdot(77) = -A(163)-A(164)+A(168)+A(169)+0.7*A(170)+0.85*A(171) - Vdot(78) = A(68)-A(70)-A(71)+A(81) - Vdot(79) = 2*A(19)+2*A(20)+A(28)-A(29)+A(48)-A(52)+A(61)+A(77)+A(85)+A(100)+A(132)+0.15*A(147) - Vdot(80) = -A(65)+A(73)+A(74)+A(75)+A(76)+A(77)+A(86)+A(101)+0.2*A(116)+0.33*A(118)+A(120)+0.63*A(122)+0.1*A(124)+0.25& - &*A(126)+A(135)+2*A(136)+0.69*A(137)+A(140)+0.066*A(143)+0.334*A(145)+0.225*A(146)+0.643*A(147)+0.333*A(148)& - &+0.001*A(151)+A(163)+A(164)+A(172) - Vdot(81) = 0.9*A(129)+0.3*A(131)-A(135)-A(136)-A(137) - Vdot(82) = 0.76*A(112)-0.98*A(113)-A(114)-A(115)+0.76*A(166) - Vdot(83) = -A(120)-A(121)-A(122)-A(123)-A(168) - Vdot(84) = 0.36*A(128)+A(130)-A(131)-A(132)+A(134)+0.2*A(138) - Vdot(85) = -A(149)-A(150)-A(151)-A(152) - Vdot(86) = -A(124)-A(125)-A(126)-A(127)-A(170) - Vdot(87) = -A(116)-A(117)-A(118)-A(119)-A(169)+0.3*A(170) - Vdot(88) = -A(55)-A(57)-2*A(59)-A(60)+0.13*A(112)+0.04*A(113)+0.01*A(116)+0.09*A(119)+0.088*A(142)+0.25*A(150)+0.18& - &*A(151)+0.25*A(152)+0.009*A(155)+0.13*A(166)+0.009*A(167) - Vdot(89) = -0.66*A(61)-0.66*A(62)-1.11*A(112)-2.1*A(113)+0.2*A(116)-0.7*A(117)-A(118)-A(119)+0.1*A(124)+1.1*A(138)& - &+0.35*A(143)+1.565*A(145)+0.36*A(146)+1.282*A(147)+0.832*A(148)+5.12*A(149)+1.66*A(150)+7*A(151)+2.4*A(156)& - &-1.11*A(166)-A(169)+0.3*A(170) - Vdot(90) = -A(141)-A(142)-A(143)-A(144)-A(156)-A(171) - Vdot(91) = 0.75*A(141)+0.912*A(142)+0.65*A(143)+0.2*A(144)-A(145)-A(146)-A(147)-A(148)+0.2*A(156)+A(171) - Vdot(92) = 0.33*A(61)+0.33*A(62)+0.5*A(63)+0.5*A(64)-A(98)-A(99)-A(100)-A(101)+0.05*A(112)+0.5*A(113)+0.3*A(116)+0.62& - &*A(117)+0.32*A(118)+0.56*A(119)+0.22*A(121)+0.66*A(124)+0.7*A(125)+0.35*A(126)+0.64*A(127)+0.03*A(137)+0.15& - &*A(143)+0.8*A(144)+0.12*A(145)+0.357*A(147)+0.47*A(150)+0.21*A(151)+0.47*A(152)+0.05*A(154)+0.8*A(156)+0.05& - &*A(166)+0.67*A(169)+0.55*A(170)-A(174) - Vdot(93) = 0.33*A(61)+0.33*A(62)+0.5*A(63)+0.5*A(64)-A(83)-A(84)-A(85)-A(86)+A(102)+A(106)+0.9*A(108)+0.9*A(109)+2& - &*A(110)+A(111)+0.06*A(112)+0.6*A(113)+0.2*A(116)+0.33*A(117)+0.18*A(118)+0.35*A(119)+1.24*A(124)+1.3*A(125)& - &+0.65*A(126)+1.18*A(127)+0.252*A(145)+0.02*A(146)+0.067*A(148)+0.9*A(154)+0.991*A(155)+0.06*A(166)+0.991& - &*A(167)+0.33*A(169)+0.45*A(170)-A(173)+A(176) - Vdot(94) = A(55)-A(61)-A(62)+A(115)+0.1*A(129)+A(133)+0.8*A(144)+0.85*A(147)+0.53*A(152)+0.8*A(156) - Vdot(95) = 0.33*A(61)+0.33*A(62)+A(67)+1.37*A(69)+A(71)+A(72)-A(73)-A(74)-A(75)-A(76)-A(77)-A(78)+A(79)+A(92)+0.1& - &*A(108)+0.2*A(116)+0.8*A(117)+0.74*A(118)+A(119)+A(120)+1.56*A(121)+A(122)+2*A(123)+0.25*A(126)+A(136)+0.7& - &*A(137)+0.5*A(141)+0.629*A(142)+0.6*A(143)+0.167*A(145)+0.15*A(146)+0.282*A(147)+0.9*A(148)+0.28*A(150)+0.24& - &*A(151)+0.1*A(154)+A(168)-A(172)+A(175) - Vdot(96) = A(2)-A(3)-A(7)-A(8)-A(9)-A(12)-A(13)-A(49)+0.2*A(91)+0.2*A(107)-A(118)-A(122)-A(126)-A(137)-A(143)-A(146)& - &-A(151)-A(159)-A(178) - Vdot(97) = A(83)+A(84)+A(85)-A(87)-A(88)+A(89)+A(90)-A(91)-A(92)-A(93)-2*A(94)+A(95)-A(111)+A(135)+A(136)+0.62*A(137)& - &+A(139)+A(140)+0.21*A(145)+0.114*A(146)+0.967*A(148)+A(173) - Vdot(98) = 2*A(11)-A(12)+A(13)-A(24)+A(25)-A(26)-A(28)-A(29)+A(30)-A(33)+2*A(36)-A(37)+A(38)-A(39)-A(40)-2*A(41)-2& - &*A(42)-A(43)+A(44)+A(45)-A(47)+0.39*A(51)+A(52)-A(61)-A(63)+A(64)-A(65)-A(66)-A(70)+A(71)-A(72)-A(73)+A(76)& - &-A(82)+A(83)-A(84)-A(95)+A(96)-A(97)+A(98)-A(99)-A(106)-A(112)+0.1*A(116)-A(117)+0.1*A(118)+0.3*A(120)& - &-A(121)+0.13*A(122)-A(125)+0.5*A(126)-A(128)-A(131)-A(136)+0.08*A(137)-A(138)-A(139)-A(142)+0.266*A(143)& - &-A(145)+0.268*A(146)+0.15*A(149)-A(150)+0.57*A(151)-A(153)-A(154)-A(155)+A(158)-A(163)-A(177)-A(179) - Vdot(99) = A(98)+A(99)+A(100)-A(102)-A(103)+A(104)+A(105)-A(107)-A(108)-A(109)-2*A(110)-A(111)+0.25*A(141)+0.2*A(143)& - &+0.25*A(145)+0.075*A(147)+0.39*A(151)+A(174) - Vdot(100) = A(1)-A(3)+A(4)-A(6)+A(15)-A(16)+A(17)-2*A(22)-A(23)-A(24)+A(25)+A(27)-A(30)-A(54)-A(55)-A(67)-A(80)-A(87)& - &-A(102)-A(129)+0.2*A(156)-A(161) - Vdot(101) = -A(1)+A(3)-A(4)-A(5)+A(6)-A(7)+A(14)+2*A(16)-A(18)+A(21)+2*A(22)-A(23)+A(26)+A(27)-A(28)+A(30)-A(31)+A(32)& - &+A(33)+A(46)+A(47)+A(49)+2*A(50)+0.61*A(51)+A(52)+A(53)+A(54)+A(62)+A(67)+A(80)+A(87)-A(88)+A(89)+A(90)& - &+A(102)-A(103)+A(104)+A(105)+A(106)-A(115)+A(119)+A(123)+A(127)+0.9*A(129)-A(133)+0.2*A(144)+0.47*A(152)& - &-A(156)+A(161) - Vdot(102) = 2*A(157)+A(158)-A(159)+1.4*A(160)+A(161)+A(163)+A(164)-A(165)-A(166)-A(167)-A(168)-A(169)-A(170)-A(171)& - &-A(172)-A(173)-A(174)-A(175)-A(176)+A(177) - Vdot(103) = A(5)+A(7)-A(14)-A(15)-A(16)-A(17)-A(18)+A(21)+A(29)-A(46)-A(47)-A(48)-A(49)-2*A(50)+0.39*A(51)+A(53)-A(77)& - &-A(85)-A(100)-A(119)-A(123)-A(127)-A(132)-A(144)-A(147)-A(152) - Vdot(104) = -A(54)-A(56)-2*A(58)-A(60)+A(63)+0.3*A(70)-A(93)+A(102)+0.9*A(108)-A(109)+2*A(110)+A(111)+0.87*A(112)+0.96& - &*A(113)+0.2*A(116)+0.8*A(117)+0.22*A(118)+0.91*A(119)+0.7*A(120)+A(121)+A(123)+0.1*A(124)+A(125)+0.08& - &*A(128)+0.6*A(131)+A(136)+0.03*A(137)+0.5*A(138)+A(139)+0.25*A(141)+0.991*A(142)+0.2*A(143)+A(144)+0.713& - &*A(145)+0.064*A(146)+0.075*A(147)+0.7*A(148)+1.25*A(150)+0.76*A(151)+1.03*A(152)+0.1*A(154)+0.991*A(155)& - &+A(156)+0.87*A(166)+0.991*A(167)+2*A(168)+2*A(169)+1.7*A(170)+A(171) - Vdot(105) = A(1)-A(2)-A(4)-A(5)-A(6)+A(8)+A(10)+A(14)-A(40)+A(41)-A(44)-A(45)-A(46)-A(76)-A(83)-A(98)-A(116)-A(120)& - &-A(124)+0.5*A(126)-A(141)-A(149) - Vdot(106) = A(12)-A(13)-A(30)-A(31)+A(32)-2*A(34)-2*A(35)+A(37)+A(38)+A(39)+A(40)-A(43)-A(44)+A(45)+A(47)-A(48)+0.61& - &*A(51)-A(56)-A(57)+A(61)+A(62)+A(64)+A(65)+A(67)-A(68)+0.74*A(69)+0.3*A(70)+A(71)+A(72)+A(73)+2*A(74)+A(76)& - &+A(77)-A(78)+A(79)+A(80)-A(81)+A(82)+A(86)-A(91)+0.9*A(92)+A(101)+A(102)-A(107)+A(108)+2*A(110)+A(111)+0.11& - &*A(112)+0.94*A(113)+A(114)+0.3*A(116)+0.95*A(117)+0.44*A(118)+1.7*A(120)+A(121)+0.13*A(122)+0.1*A(124)& - &+A(125)+0.5*A(126)+A(127)+0.44*A(128)+0.9*A(129)+A(130)+0.6*A(131)-A(134)+A(135)+2*A(136)+0.76*A(137)+0.7& - &*A(138)+A(140)+0.25*A(141)+0.912*A(142)+0.066*A(143)+0.8*A(144)+0.503*A(145)+0.154*A(146)+0.925*A(147)& - &+1.033*A(148)+0.75*A(150)+0.07*A(151)+0.28*A(152)+A(153)+A(154)+A(155)+0.8*A(156)-A(162)+A(164)+0.11*A(166)& - &+A(167)+A(168)+A(169)+A(170)+A(171)+A(172)+A(175)+A(176) - Vdot(107) = A(66)-A(67)-A(68)-2*A(69)+0.7*A(70)+A(86)+A(87)-0.1*A(92)+0.9*A(93)+2*A(94)+A(96)+A(97)+A(101)-A(108)& - &+A(111)+A(165) - -END SUBROUTINE Fun - -! End of Fun function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE CB05TUCl_NCSU_Function - diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Function.o b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Function.o deleted file mode 100644 index 25c137f99ab5f19c090f940bcb4f8e9b341ce7a1..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Function.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Global.f90 b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Global.f90 deleted file mode 100644 index 7677f2db1689c2ac333692b26f104bd14724a73a..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Global.f90 +++ /dev/null @@ -1,129 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Global Data Module File -! -! Generated by KPP-2.2.3 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 : CB05TUCl_NCSU_Global.f90 -! Time : Thu Oct 8 08:21:46 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05TUCl_NCSU_13059_BOXMOX -! Equation file : CB05TUCl_NCSU.kpp -! Output root filename : CB05TUCl_NCSU -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CB05TUCl_NCSU_Global - - USE CB05TUCl_NCSU_Parameters, ONLY: dp, NSPEC, NVAR, NFIX, NREACT, LU_NONZERO - PUBLIC - SAVE - - -! Declaration of global variables - -! C - Concentration of all species - REAL(kind=dp) :: C(NSPEC) -! VAR - Concentrations of variable species (global) - REAL(kind=dp) :: VAR(NVAR) -! FIX - Concentrations of fixed species (global) - REAL(kind=dp) :: FIX(NFIX) -! VAR, FIX are chunks of array C - EQUIVALENCE( C(1),VAR(1) ) - EQUIVALENCE( C(108),FIX(1) ) -! RCONST - Rate constants (global) - REAL(kind=dp) :: RCONST(NREACT) -! TIME - Current integration time - REAL(kind=dp) :: TIME -! SUN - Sunlight intensity between [0,1] - REAL(kind=dp) :: SUN -! TEMP - Temperature - REAL(kind=dp) :: TEMP -! RTOLS - (scalar) Relative tolerance - REAL(kind=dp) :: RTOLS -! TSTART - Integration start time - REAL(kind=dp) :: TSTART -! TEND - Integration end time - REAL(kind=dp) :: TEND -! DT - Integration step - REAL(kind=dp) :: DT -! ATOL - Absolute tolerance - REAL(kind=dp) :: ATOL(NVAR) -! RTOL - Relative tolerance - REAL(kind=dp) :: RTOL(NVAR) -! STEPMIN - Lower bound for integration step - REAL(kind=dp) :: STEPMIN -! STEPMAX - Upper bound for integration step - REAL(kind=dp) :: STEPMAX -! CFACTOR - Conversion factor for concentration units - REAL(kind=dp) :: CFACTOR - -! INLINED global variable declarations - - - ! BOXMOX global variables - - ! Parameters - INTEGER, PARAMETER :: max_species_boxmox = 10000 ! maximum number of species - ! read in - INTEGER, PARAMETER :: max_jhash_boxmox = 10000 ! maximum hash value of - ! photolysis rate labels - - ! Configuration - LOGICAL :: lverbose ! verbose output? - LOGICAL :: llibrary ! library version? - - - ! State definition - REAL(KIND=dp) :: pres ! pressure [Pa] - ! temperature variable temp [K] defined in KPP already - REAL(KIND=dp) :: dxdydz(3), dxdydz_old(3) ! box dimensions (x,y,z) - ! [m] - - ! Turbulent mixing - INTEGER :: iturb ! type of mixing - INTEGER, PARAMETER :: TURB_OPT_NONE = 0, & ! no turbulent mixing - TURB_OPT_SPECIFIED = 1, & ! using specified Kturb - TURB_OPT_VOLUME = 2, & ! using volume changes - TURB_OPT_TRACER = 3 ! using tracer conc. - REAL(KIND=dp) :: Kturb ! eddy diffusivity [m2 s-1] - - ! Photolysis rates - REAL(KIND=dp) :: jvalues(max_jhash_boxmox) ! Photolysis rate [s-1] - - ! Aerosol - REAL(KIND=dp) :: AER_R, & ! particle radius [m] - AER_SAD ! surface area density - ! [m^2 m^-3] - - ! Steady-state modeling - LOGICAL :: lfix_nox ! fix total NOx? - REAL(kind=dp) :: initial_total_nox ! total NOx to fix - - - - ! global variables used by special rate constants of this mechanism - - ! air/water concentration (molecules/cm3) - REAL(KIND=dp) :: c_m, c_h2o - ! relative humidity (not used) - REAL(KIND=dp) :: rh - - ! whatever that is? - REAL(KIND=dp) :: rtdat_ae_so2 - - -! INLINED global variable declarations - - -END MODULE CB05TUCl_NCSU_Global - diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Global.o b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Global.o deleted file mode 100644 index ad1099ccc41307bd3e6159c27e9cf37a6c1435aa..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Global.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Initialize.f90 b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Initialize.f90 deleted file mode 100644 index 5c6381da326e26ff7643f66ee44644d8cd8e8565..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Initialize.f90 +++ /dev/null @@ -1,123 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Initialization File -! -! Generated by KPP-2.2.3 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 : CB05TUCl_NCSU_Initialize.f90 -! Time : Thu Oct 8 08:21:46 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05TUCl_NCSU_13059_BOXMOX -! Equation file : CB05TUCl_NCSU.kpp -! Output root filename : CB05TUCl_NCSU -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CB05TUCl_NCSU_Initialize - - USE CB05TUCl_NCSU_Parameters, ONLY: dp, NVAR, NFIX - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Initialize - function to initialize concentrations -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Initialize ( ) - - - USE CB05TUCl_NCSU_Global - - USE CB05TUCl_NCSU_Util - - INTEGER :: i - REAL(kind=dp) :: x - - CFACTOR = 1.000000e+00_dp - - x = (1.0E-9)*CFACTOR - DO i = 1, NVAR - VAR(i) = x - END DO - - x = (1.0E-9)*CFACTOR - DO i = 1, NFIX - FIX(i) = x - END DO - -! constant rate coefficients - RCONST(114) = 1600 - RCONST(130) = 4.2 -! END constant rate coefficients - -! INLINED initializations - - - IF (.NOT. llibrary) THEN - - ! Write version number to VERSION file - CALL writeVersion() - - ! Initialization (time step, run length, etc.) happening - ! in namelist BOXMOX.nml. Read it! - CALL readConfig() - - ENDIF - - ! Check configuration values - CALL checkConfig() - - - - ! BOXMOX defaults for global variables - - ! Environment.csv - temp = 293.15 ! K - pres = 101325.0 ! Pa - dxdydz(:) = 1.0 ! m - - ! Aerosol.csv - AER_SAD = 0.0 ! m^2 m^-3 - AER_R = 1.0e-6 ! m - - ! Turbulent mixing - Kturb = 0.0 ! m2 s-1 - - - - ! 1E-03 * (1.0/28.97) * 6.022e23 * air density - c_m = 2.078702e+19 * 1.25 - - ! 1E-03 * (1.0/18.02) * 6.022e23 * air density, then times kg(water)/kg(air) - c_h2o = 3.341842e+19 * 1.25 * 0.010 - - ! SO2 to sulfate conversion - rtdat_ae_so2 = 1.0e-17 - - -! End INLINED initializations - - -END SUBROUTINE Initialize - -! End of Initialize function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE CB05TUCl_NCSU_Initialize - diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Initialize.o b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Initialize.o deleted file mode 100644 index 0b2520ccaddf3f7a03fddb6977e117caa806020c..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Initialize.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Integrator.f90 b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Integrator.f90 deleted file mode 100644 index 8f7d58a3c6d6d8e9fb71dea82bd3c74008486a03..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Integrator.f90 +++ /dev/null @@ -1,1365 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Numerical Integrator (Time-Stepping) File -! -! Generated by KPP-2.2.3 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 : CB05TUCl_NCSU_Integrator.f90 -! Time : Thu Oct 8 08:21:46 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05TUCl_NCSU_13059_BOXMOX -! Equation file : CB05TUCl_NCSU.kpp -! Output root filename : CB05TUCl_NCSU -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! INTEGRATE - Integrator routine -! Arguments : -! TIN - Start Time for Integration -! TOUT - End Time for Integration -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! -! Rosenbrock - Implementation of several Rosenbrock methods: ! -! * Ros2 ! -! * Ros3 ! -! * Ros4 ! -! * Rodas3 ! -! * Rodas4 ! -! By default the code employs the KPP sparse linear algebra routines ! -! Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK) ! -! ! -! (C) Adrian Sandu, August 2004 ! -! Virginia Polytechnic Institute and State University ! -! Contact: sandu@cs.vt.edu ! -! Revised by Philipp Miehe and Adrian Sandu, May 2006 ! ! -! This implementation is part of KPP - the Kinetic PreProcessor ! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! - -MODULE CB05TUCl_NCSU_Integrator - - USE CB05TUCl_NCSU_Parameters, ONLY: NVAR, NFIX, NSPEC, LU_NONZERO - USE CB05TUCl_NCSU_Global - IMPLICIT NONE - PUBLIC - SAVE - -!~~~> Statistics on the work performed by the Rosenbrock method - INTEGER, PARAMETER :: Nfun=1, Njac=2, Nstp=3, Nacc=4, & - Nrej=5, Ndec=6, Nsol=7, Nsng=8, & - Ntexit=1, Nhexit=2, Nhnew = 3 - -CONTAINS - -SUBROUTINE INTEGRATE( TIN, TOUT, & - ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U, IERR_U ) - - IMPLICIT NONE - - REAL(kind=dp), INTENT(IN) :: TIN ! Start Time - REAL(kind=dp), INTENT(IN) :: TOUT ! End Time - ! Optional input parameters and statistics - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - REAL(kind=dp), INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - REAL(kind=dp), INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: IERR_U - - REAL(kind=dp) :: RCNTRL(20), RSTATUS(20) - INTEGER :: ICNTRL(20), ISTATUS(20), IERR - - INTEGER, SAVE :: Ntotal = 0 - - ICNTRL(:) = 0 - RCNTRL(:) = 0.0_dp - ISTATUS(:) = 0 - RSTATUS(:) = 0.0_dp - - !~~~> fine-tune the integrator: - ICNTRL(1) = 0 ! 0 - non-autonomous, 1 - autonomous - ICNTRL(2) = 0 ! 0 - vector tolerances, 1 - scalars - - ! If optional parameters are given, and if they are >0, - ! then they overwrite default settings. - IF (PRESENT(ICNTRL_U)) THEN - WHERE(ICNTRL_U(:) > 0) ICNTRL(:) = ICNTRL_U(:) - END IF - IF (PRESENT(RCNTRL_U)) THEN - WHERE(RCNTRL_U(:) > 0) RCNTRL(:) = RCNTRL_U(:) - END IF - - - CALL Rosenbrock(NVAR,VAR,TIN,TOUT, & - ATOL,RTOL, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) - - !~~~> Debug option: show no of steps - ! Ntotal = Ntotal + ISTATUS(Nstp) - ! PRINT*,'NSTEPS=',ISTATUS(Nstp),' (',Ntotal,')',' O3=', VAR(ind_O3) - - STEPMIN = RSTATUS(Nhexit) - ! if optional parameters are given for output they - ! are updated with the return information - IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(:) - IF (PRESENT(RSTATUS_U)) RSTATUS_U(:) = RSTATUS(:) - IF (PRESENT(IERR_U)) IERR_U = IERR - -END SUBROUTINE INTEGRATE - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE Rosenbrock(N,Y,Tstart,Tend, & - AbsTol,RelTol, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Solves the system y'=F(t,y) using a Rosenbrock method defined by: -! -! G = 1/(H*gamma(1)) - Jac(t0,Y0) -! T_i = t0 + Alpha(i)*H -! Y_i = Y0 + \sum_{j=1}^{i-1} A(i,j)*K_j -! G * K_i = Fun( T_i, Y_i ) + \sum_{j=1}^S C(i,j)/H * K_j + -! gamma(i)*dF/dT(t0, Y0) -! Y1 = Y0 + \sum_{j=1}^S M(j)*K_j -! -! For details on Rosenbrock methods and their implementation consult: -! E. Hairer and G. Wanner -! "Solving ODEs II. Stiff and differential-algebraic problems". -! Springer series in computational mathematics, Springer-Verlag, 1996. -! The codes contained in the book inspired this implementation. -! -! (C) Adrian Sandu, August 2004 -! Virginia Polytechnic Institute and State University -! Contact: sandu@cs.vt.edu -! Revised by Philipp Miehe and Adrian Sandu, May 2006 -! This implementation is part of KPP - the Kinetic PreProcessor -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT ARGUMENTS: -! -!- Y(N) = vector of initial conditions (at T=Tstart) -!- [Tstart,Tend] = time range of integration -! (if Tstart>Tend the integration is performed backwards in time) -!- RelTol, AbsTol = user precribed accuracy -!- SUBROUTINE Fun( T, Y, Ydot ) = ODE function, -! returns Ydot = Y' = F(T,Y) -!- SUBROUTINE Jac( T, Y, Jcb ) = Jacobian of the ODE function, -! returns Jcb = dFun/dY -!- ICNTRL(1:20) = integer inputs parameters -!- RCNTRL(1:20) = real inputs parameters -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT ARGUMENTS: -! -!- Y(N) -> vector of final states (at T->Tend) -!- ISTATUS(1:20) -> integer output parameters -!- RSTATUS(1:20) -> real output parameters -!- IERR -> job status upon return -! success (positive value) or -! failure (negative value) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT PARAMETERS: -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -! ICNTRL(1) = 1: F = F(y) Independent of T (AUTONOMOUS) -! = 0: F = F(t,y) Depends on T (NON-AUTONOMOUS) -! -! ICNTRL(2) = 0: AbsTol, RelTol are N-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ICNTRL(3) -> selection of a particular Rosenbrock method -! = 0 : Rodas3 (default) -! = 1 : Ros2 -! = 2 : Ros3 -! = 3 : Ros4 -! = 4 : Rodas3 -! = 5 : Rodas4 -! -! ICNTRL(4) -> maximum number of integration steps -! For ICNTRL(4)=0) the default value of 100000 is used -! -! RCNTRL(1) -> Hmin, lower bound for the integration step size -! It is strongly recommended to keep Hmin = ZERO -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! RCNTRL(3) -> Hstart, starting value for the integration step size -! -! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! RCNTRL(5) -> FacMax, upper bound on step increase factor (default=6) -! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! -! OUTPUT ARGUMENTS: -! ----------------- -! -! T -> T value for which the solution has been computed -! (after successful return T=Tend). -! -! Y(N) -> Numerical solution at T -! -! IDID -> Reports on successfulness upon return: -! = 1 for success -! < 0 for error (value equals error code) -! -! ISTATUS(1) -> No. of function calls -! ISTATUS(2) -> No. of jacobian calls -! ISTATUS(3) -> No. of steps -! ISTATUS(4) -> No. of accepted steps -! ISTATUS(5) -> No. of rejected steps (except at very beginning) -! ISTATUS(6) -> No. of LU decompositions -! ISTATUS(7) -> No. of forward/backward substitutions -! ISTATUS(8) -> No. of singular matrix decompositions -! -! RSTATUS(1) -> Texit, the time corresponding to the -! computed Y upon return -! RSTATUS(2) -> Hexit, last accepted step before exit -! RSTATUS(3) -> Hnew, last predicted step (not yet taken) -! For multiple restarts, use Hnew as Hstart -! in the subsequent run -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CB05TUCl_NCSU_Parameters - USE CB05TUCl_NCSU_LinearAlgebra - IMPLICIT NONE - -!~~~> Arguments - INTEGER, INTENT(IN) :: N - REAL(kind=dp), INTENT(INOUT) :: Y(N) - REAL(kind=dp), INTENT(IN) :: Tstart,Tend - REAL(kind=dp), INTENT(IN) :: AbsTol(N),RelTol(N) - INTEGER, INTENT(IN) :: ICNTRL(20) - REAL(kind=dp), INTENT(IN) :: RCNTRL(20) - INTEGER, INTENT(INOUT) :: ISTATUS(20) - REAL(kind=dp), INTENT(INOUT) :: RSTATUS(20) - INTEGER, INTENT(OUT) :: IERR -!~~~> Parameters of the Rosenbrock method, up to 6 stages - INTEGER :: ros_S, rosMethod - INTEGER, PARAMETER :: RS2=1, RS3=2, RS4=3, RD3=4, RD4=5, RG3=6 - REAL(kind=dp) :: ros_A(15), ros_C(15), ros_M(6), ros_E(6), & - ros_Alpha(6), ros_Gamma(6), ros_ELO - LOGICAL :: ros_NewF(6) - CHARACTER(LEN=12) :: ros_Name -!~~~> Local variables - REAL(kind=dp) :: Roundoff, FacMin, FacMax, FacRej, FacSafe - REAL(kind=dp) :: Hmin, Hmax, Hstart - REAL(kind=dp) :: Texit - INTEGER :: i, UplimTol, Max_no_steps - LOGICAL :: Autonomous, VectorTol -!~~~> Parameters - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp - REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp - -!~~~> Initialize statistics - ISTATUS(1:8) = 0 - RSTATUS(1:3) = ZERO - -!~~~> Autonomous or time dependent ODE. Default is time dependent. - Autonomous = .NOT.(ICNTRL(1) == 0) - -!~~~> For Scalar tolerances (ICNTRL(2).NE.0) the code uses AbsTol(1) and RelTol(1) -! For Vector tolerances (ICNTRL(2) == 0) the code uses AbsTol(1:N) and RelTol(1:N) - IF (ICNTRL(2) == 0) THEN - VectorTol = .TRUE. - UplimTol = N - ELSE - VectorTol = .FALSE. - UplimTol = 1 - END IF - -!~~~> Initialize the particular Rosenbrock method selected - SELECT CASE (ICNTRL(3)) - CASE (1) - CALL Ros2 - CASE (2) - CALL Ros3 - CASE (3) - CALL Ros4 - CASE (0,4) - CALL Rodas3 - CASE (5) - CALL Rodas4 - CASE (6) - CALL Rang3 - CASE DEFAULT - PRINT * , 'Unknown Rosenbrock method: ICNTRL(3)=',ICNTRL(3) - CALL ros_ErrorMsg(-2,Tstart,ZERO,IERR) - RETURN - END SELECT - -!~~~> The maximum number of steps admitted - IF (ICNTRL(4) == 0) THEN - Max_no_steps = 200000 - ELSEIF (ICNTRL(4) > 0) THEN - Max_no_steps=ICNTRL(4) - ELSE - PRINT * ,'User-selected max no. of steps: ICNTRL(4)=',ICNTRL(4) - CALL ros_ErrorMsg(-1,Tstart,ZERO,IERR) - RETURN - END IF - -!~~~> Unit roundoff (1+Roundoff>1) - Roundoff = WLAMCH('E') - -!~~~> Lower bound on the step size: (positive value) - IF (RCNTRL(1) == ZERO) THEN - Hmin = ZERO - ELSEIF (RCNTRL(1) > ZERO) THEN - Hmin = RCNTRL(1) - ELSE - PRINT * , 'User-selected Hmin: RCNTRL(1)=', RCNTRL(1) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Upper bound on the step size: (positive value) - IF (RCNTRL(2) == ZERO) THEN - Hmax = ABS(Tend-Tstart) - ELSEIF (RCNTRL(2) > ZERO) THEN - Hmax = MIN(ABS(RCNTRL(2)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hmax: RCNTRL(2)=', RCNTRL(2) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Starting step size: (positive value) - IF (RCNTRL(3) == ZERO) THEN - Hstart = MAX(Hmin,DeltaMin) - ELSEIF (RCNTRL(3) > ZERO) THEN - Hstart = MIN(ABS(RCNTRL(3)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hstart: RCNTRL(3)=', RCNTRL(3) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Step size can be changed s.t. FacMin < Hnew/Hold < FacMax - IF (RCNTRL(4) == ZERO) THEN - FacMin = 0.2_dp - ELSEIF (RCNTRL(4) > ZERO) THEN - FacMin = RCNTRL(4) - ELSE - PRINT * , 'User-selected FacMin: RCNTRL(4)=', RCNTRL(4) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF - IF (RCNTRL(5) == ZERO) THEN - FacMax = 6.0_dp - ELSEIF (RCNTRL(5) > ZERO) THEN - FacMax = RCNTRL(5) - ELSE - PRINT * , 'User-selected FacMax: RCNTRL(5)=', RCNTRL(5) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacRej: Factor to decrease step after 2 succesive rejections - IF (RCNTRL(6) == ZERO) THEN - FacRej = 0.1_dp - ELSEIF (RCNTRL(6) > ZERO) THEN - FacRej = RCNTRL(6) - ELSE - PRINT * , 'User-selected FacRej: RCNTRL(6)=', RCNTRL(6) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacSafe: Safety Factor in the computation of new step size - IF (RCNTRL(7) == ZERO) THEN - FacSafe = 0.9_dp - ELSEIF (RCNTRL(7) > ZERO) THEN - FacSafe = RCNTRL(7) - ELSE - PRINT * , 'User-selected FacSafe: RCNTRL(7)=', RCNTRL(7) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Check if tolerances are reasonable - DO i=1,UplimTol - IF ( (AbsTol(i) <= ZERO) .OR. (RelTol(i) <= 10.0_dp*Roundoff) & - .OR. (RelTol(i) >= 1.0_dp) ) THEN - PRINT * , ' AbsTol(',i,') = ',AbsTol(i) - PRINT * , ' RelTol(',i,') = ',RelTol(i) - CALL ros_ErrorMsg(-5,Tstart,ZERO,IERR) - RETURN - END IF - END DO - - -!~~~> CALL Rosenbrock method - CALL ros_Integrator(Y, Tstart, Tend, Texit, & - AbsTol, RelTol, & -! Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -! Error indicator - IERR) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -CONTAINS ! SUBROUTINES internal to Rosenbrock -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_ErrorMsg(Code,T,H,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - REAL(kind=dp), INTENT(IN) :: T, H - INTEGER, INTENT(IN) :: Code - INTEGER, INTENT(OUT) :: IERR - - IERR = Code - PRINT * , & - 'Forced exit from Rosenbrock due to the following error:' - - SELECT CASE (Code) - CASE (-1) - PRINT * , '--> Improper value for maximal no of steps' - CASE (-2) - PRINT * , '--> Selected Rosenbrock method not implemented' - CASE (-3) - PRINT * , '--> Hmin/Hmax/Hstart must be positive' - CASE (-4) - PRINT * , '--> FacMin/FacMax/FacRej must be positive' - CASE (-5) - PRINT * , '--> Improper tolerance values' - CASE (-6) - PRINT * , '--> No of steps exceeds maximum bound' - CASE (-7) - PRINT * , '--> Step size too small: T + 10*H = T', & - ' or H < Roundoff' - CASE (-8) - PRINT * , '--> Matrix is repeatedly singular' - CASE DEFAULT - PRINT *, 'Unknown Error code: ', Code - END SELECT - - PRINT *, "T=", T, "and H=", H - - END SUBROUTINE ros_ErrorMsg - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Integrator (Y, Tstart, Tend, T, & - AbsTol, RelTol, & -!~~~> Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -!~~~> Error indicator - IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the implementation of a generic Rosenbrock method -! defined by ros_S (no of stages) -! and its coefficients ros_{A,C,M,E,Alpha,Gamma} -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - -!~~~> Input: the initial condition at Tstart; Output: the solution at T - REAL(kind=dp), INTENT(INOUT) :: Y(N) -!~~~> Input: integration interval - REAL(kind=dp), INTENT(IN) :: Tstart,Tend -!~~~> Output: time at which the solution is returned (T=Tend if success) - REAL(kind=dp), INTENT(OUT) :: T -!~~~> Input: tolerances - REAL(kind=dp), INTENT(IN) :: AbsTol(N), RelTol(N) -!~~~> Input: integration parameters - LOGICAL, INTENT(IN) :: Autonomous, VectorTol - REAL(kind=dp), INTENT(IN) :: Hstart, Hmin, Hmax - INTEGER, INTENT(IN) :: Max_no_steps - REAL(kind=dp), INTENT(IN) :: Roundoff, FacMin, FacMax, FacRej, FacSafe -!~~~> Output: Error indicator - INTEGER, INTENT(OUT) :: IERR -! ~~~~ Local variables - REAL(kind=dp) :: Ynew(N), Fcn0(N), Fcn(N) - REAL(kind=dp) :: K(N*ros_S), dFdT(N) -#ifdef FULL_ALGEBRA - REAL(kind=dp) :: Jac0(N,N), Ghimj(N,N) -#else - REAL(kind=dp) :: Jac0(LU_NONZERO), Ghimj(LU_NONZERO) -#endif - REAL(kind=dp) :: H, Hnew, HC, HG, Fac, Tau - REAL(kind=dp) :: Err, Yerr(N) - INTEGER :: Pivot(N), Direction, ioffset, j, istage - LOGICAL :: RejectLastH, RejectMoreH, Singular -!~~~> Local parameters - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp - REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp -!~~~> Locally called functions -! REAL(kind=dp) WLAMCH -! EXTERNAL WLAMCH -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~> Initial preparations - T = Tstart - RSTATUS(Nhexit) = ZERO - H = MIN( MAX(ABS(Hmin),ABS(Hstart)) , ABS(Hmax) ) - IF (ABS(H) <= 10.0_dp*Roundoff) H = DeltaMin - - IF (Tend >= Tstart) THEN - Direction = +1 - ELSE - Direction = -1 - END IF - H = Direction*H - - RejectLastH=.FALSE. - RejectMoreH=.FALSE. - -!~~~> Time loop begins below - -TimeLoop: DO WHILE ( (Direction > 0).AND.((T-Tend)+Roundoff <= ZERO) & - .OR. (Direction < 0).AND.((Tend-T)+Roundoff <= ZERO) ) - - IF ( ISTATUS(Nstp) > Max_no_steps ) THEN ! Too many steps - CALL ros_ErrorMsg(-6,T,H,IERR) - RETURN - END IF - IF ( ((T+0.1_dp*H) == T).OR.(H <= Roundoff) ) THEN ! Step size too small - CALL ros_ErrorMsg(-7,T,H,IERR) - RETURN - END IF - -!~~~> Limit H if necessary to avoid going beyond Tend - H = MIN(H,ABS(Tend-T)) - -!~~~> Compute the function at current time - CALL FunTemplate(T,Y,Fcn0) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - -!~~~> Compute the function derivative with respect to T - IF (.NOT.Autonomous) THEN - CALL ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) - END IF - -!~~~> Compute the Jacobian at current time - CALL JacTemplate(T,Y,Jac0) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - -!~~~> Repeat step calculation until current step accepted -UntilAccepted: DO - - CALL ros_PrepareMatrix(H,Direction,ros_Gamma(1), & - Jac0,Ghimj,Pivot,Singular) - IF (Singular) THEN ! More than 5 consecutive failed decompositions - CALL ros_ErrorMsg(-8,T,H,IERR) - RETURN - END IF - -!~~~> Compute the stages -Stage: DO istage = 1, ros_S - - ! Current istage offset. Current istage vector is K(ioffset+1:ioffset+N) - ioffset = N*(istage-1) - - ! For the 1st istage the function has been computed previously - IF ( istage == 1 ) THEN - !slim: CALL WCOPY(N,Fcn0,1,Fcn,1) - Fcn(1:N) = Fcn0(1:N) - ! istage>1 and a new function evaluation is needed at the current istage - ELSEIF ( ros_NewF(istage) ) THEN - !slim: CALL WCOPY(N,Y,1,Ynew,1) - Ynew(1:N) = Y(1:N) - DO j = 1, istage-1 - CALL WAXPY(N,ros_A((istage-1)*(istage-2)/2+j), & - K(N*(j-1)+1),1,Ynew,1) - END DO - Tau = T + ros_Alpha(istage)*Direction*H - CALL FunTemplate(Tau,Ynew,Fcn) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - END IF ! if istage == 1 elseif ros_NewF(istage) - !slim: CALL WCOPY(N,Fcn,1,K(ioffset+1),1) - K(ioffset+1:ioffset+N) = Fcn(1:N) - DO j = 1, istage-1 - HC = ros_C((istage-1)*(istage-2)/2+j)/(Direction*H) - CALL WAXPY(N,HC,K(N*(j-1)+1),1,K(ioffset+1),1) - END DO - IF ((.NOT. Autonomous).AND.(ros_Gamma(istage).NE.ZERO)) THEN - HG = Direction*H*ros_Gamma(istage) - CALL WAXPY(N,HG,dFdT,1,K(ioffset+1),1) - END IF - CALL ros_Solve(Ghimj, Pivot, K(ioffset+1)) - - END DO Stage - - -!~~~> Compute the new solution - !slim: CALL WCOPY(N,Y,1,Ynew,1) - Ynew(1:N) = Y(1:N) - DO j=1,ros_S - CALL WAXPY(N,ros_M(j),K(N*(j-1)+1),1,Ynew,1) - END DO - -!~~~> Compute the error estimation - !slim: CALL WSCAL(N,ZERO,Yerr,1) - Yerr(1:N) = ZERO - DO j=1,ros_S - CALL WAXPY(N,ros_E(j),K(N*(j-1)+1),1,Yerr,1) - END DO - Err = ros_ErrorNorm ( Y, Ynew, Yerr, AbsTol, RelTol, VectorTol ) - -!~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax - Fac = MIN(FacMax,MAX(FacMin,FacSafe/Err**(ONE/ros_ELO))) - Hnew = H*Fac - -!~~~> Check the error magnitude and adjust step size - ISTATUS(Nstp) = ISTATUS(Nstp) + 1 - IF ( (Err <= ONE).OR.(H <= Hmin) ) THEN !~~~> Accept step - ISTATUS(Nacc) = ISTATUS(Nacc) + 1 - !slim: CALL WCOPY(N,Ynew,1,Y,1) - Y(1:N) = Ynew(1:N) - T = T + Direction*H - Hnew = MAX(Hmin,MIN(Hnew,Hmax)) - IF (RejectLastH) THEN ! No step size increase after a rejected step - Hnew = MIN(Hnew,H) - END IF - RSTATUS(Nhexit) = H - RSTATUS(Nhnew) = Hnew - RSTATUS(Ntexit) = T - RejectLastH = .FALSE. - RejectMoreH = .FALSE. - H = Hnew - EXIT UntilAccepted ! EXIT THE LOOP: WHILE STEP NOT ACCEPTED - ELSE !~~~> Reject step - IF (RejectMoreH) THEN - Hnew = H*FacRej - END IF - RejectMoreH = RejectLastH - RejectLastH = .TRUE. - H = Hnew - IF (ISTATUS(Nacc) >= 1) ISTATUS(Nrej) = ISTATUS(Nrej) + 1 - END IF ! Err <= 1 - - END DO UntilAccepted - - END DO TimeLoop - -!~~~> Succesful exit - IERR = 1 !~~~> The integration was successful - - END SUBROUTINE ros_Integrator - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - REAL(kind=dp) FUNCTION ros_ErrorNorm ( Y, Ynew, Yerr, & - AbsTol, RelTol, VectorTol ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Computes the "scaled norm" of the error vector Yerr -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -! Input arguments - REAL(kind=dp), INTENT(IN) :: Y(N), Ynew(N), & - Yerr(N), AbsTol(N), RelTol(N) - LOGICAL, INTENT(IN) :: VectorTol -! Local variables - REAL(kind=dp) :: Err, Scale, Ymax - INTEGER :: i - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp - - Err = ZERO - DO i=1,N - Ymax = MAX(ABS(Y(i)),ABS(Ynew(i))) - IF (VectorTol) THEN - Scale = AbsTol(i)+RelTol(i)*Ymax - ELSE - Scale = AbsTol(1)+RelTol(1)*Ymax - END IF - Err = Err+(Yerr(i)/Scale)**2 - END DO - Err = SQRT(Err/N) - - ros_ErrorNorm = MAX(Err,1.0d-10) - - END FUNCTION ros_ErrorNorm - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> The time partial derivative of the function by finite differences -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -!~~~> Input arguments - REAL(kind=dp), INTENT(IN) :: T, Roundoff, Y(N), Fcn0(N) -!~~~> Output arguments - REAL(kind=dp), INTENT(OUT) :: dFdT(N) -!~~~> Local variables - REAL(kind=dp) :: Delta - REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, DeltaMin = 1.0E-6_dp - - Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T)) - CALL FunTemplate(T+Delta,Y,dFdT) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - CALL WAXPY(N,(-ONE),Fcn0,1,dFdT,1) - CALL WSCAL(N,(ONE/Delta),dFdT,1) - - END SUBROUTINE ros_FunTimeDerivative - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_PrepareMatrix ( H, Direction, gam, & - Jac0, Ghimj, Pivot, Singular ) -! --- --- --- --- --- --- --- --- --- --- --- --- --- -! Prepares the LHS matrix for stage calculations -! 1. Construct Ghimj = 1/(H*ham) - Jac0 -! "(Gamma H) Inverse Minus Jacobian" -! 2. Repeat LU decomposition of Ghimj until successful. -! -half the step size if LU decomposition fails and retry -! -exit after 5 consecutive fails -! --- --- --- --- --- --- --- --- --- --- --- --- --- - IMPLICIT NONE - -!~~~> Input arguments -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(IN) :: Jac0(N,N) -#else - REAL(kind=dp), INTENT(IN) :: Jac0(LU_NONZERO) -#endif - REAL(kind=dp), INTENT(IN) :: gam - INTEGER, INTENT(IN) :: Direction -!~~~> Output arguments -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(OUT) :: Ghimj(N,N) -#else - REAL(kind=dp), INTENT(OUT) :: Ghimj(LU_NONZERO) -#endif - LOGICAL, INTENT(OUT) :: Singular - INTEGER, INTENT(OUT) :: Pivot(N) -!~~~> Inout arguments - REAL(kind=dp), INTENT(INOUT) :: H ! step size is decreased when LU fails -!~~~> Local variables - INTEGER :: i, ISING, Nconsecutive - REAL(kind=dp) :: ghinv - REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, HALF = 0.5_dp - - Nconsecutive = 0 - Singular = .TRUE. - - DO WHILE (Singular) - -!~~~> Construct Ghimj = 1/(H*gam) - Jac0 -#ifdef FULL_ALGEBRA - !slim: CALL WCOPY(N*N,Jac0,1,Ghimj,1) - !slim: CALL WSCAL(N*N,(-ONE),Ghimj,1) - Ghimj = -Jac0 - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(i,i) = Ghimj(i,i)+ghinv - END DO -#else - !slim: CALL WCOPY(LU_NONZERO,Jac0,1,Ghimj,1) - !slim: CALL WSCAL(LU_NONZERO,(-ONE),Ghimj,1) - Ghimj(1:LU_NONZERO) = -Jac0(1:LU_NONZERO) - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(LU_DIAG(i)) = Ghimj(LU_DIAG(i))+ghinv - END DO -#endif -!~~~> Compute LU decomposition - CALL ros_Decomp( Ghimj, Pivot, ISING ) - IF (ISING == 0) THEN -!~~~> If successful done - Singular = .FALSE. - ELSE ! ISING .ne. 0 -!~~~> If unsuccessful half the step size; if 5 consecutive fails then return - ISTATUS(Nsng) = ISTATUS(Nsng) + 1 - Nconsecutive = Nconsecutive+1 - Singular = .TRUE. - PRINT*,'Warning: LU Decomposition returned ISING = ',ISING - IF (Nconsecutive <= 5) THEN ! Less than 5 consecutive failed decompositions - H = H*HALF - ELSE ! More than 5 consecutive failed decompositions - RETURN - END IF ! Nconsecutive - END IF ! ISING - - END DO ! WHILE Singular - - END SUBROUTINE ros_PrepareMatrix - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Decomp( A, Pivot, ISING ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the LU decomposition -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Inout variables -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(INOUT) :: A(N,N) -#else - REAL(kind=dp), INTENT(INOUT) :: A(LU_NONZERO) -#endif -!~~~> Output variables - INTEGER, INTENT(OUT) :: Pivot(N), ISING - -#ifdef FULL_ALGEBRA - CALL DGETRF( N, N, A, N, Pivot, ISING ) -#else - CALL KppDecomp ( A, ISING ) - Pivot(1) = 1 -#endif - ISTATUS(Ndec) = ISTATUS(Ndec) + 1 - - END SUBROUTINE ros_Decomp - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Solve( A, Pivot, b ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the forward/backward substitution (using pre-computed LU decomposition) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Input variables -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(IN) :: A(N,N) - INTEGER :: ISING -#else - REAL(kind=dp), INTENT(IN) :: A(LU_NONZERO) -#endif - INTEGER, INTENT(IN) :: Pivot(N) -!~~~> InOut variables - REAL(kind=dp), INTENT(INOUT) :: b(N) - -#ifdef FULL_ALGEBRA - CALL DGETRS( 'N', N , 1, A, N, Pivot, b, N, ISING ) - IF ( Info < 0 ) THEN - PRINT*,"Error in DGETRS. ISING=",ISING - END IF -#else - CALL KppSolve( A, b ) -#endif - - ISTATUS(Nsol) = ISTATUS(Nsol) + 1 - - END SUBROUTINE ros_Solve - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 2 stages, order 2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - DOUBLE PRECISION g - - g = 1.0_dp + 1.0_dp/SQRT(2.0_dp) - rosMethod = RS2 -!~~~> Name of the method - ros_Name = 'ROS-2' -!~~~> Number of stages - ros_S = 2 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = (1.0_dp)/g - ros_C(1) = (-2.0_dp)/g -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1)= (3.0_dp)/(2.0_dp*g) - ros_M(2)= (1.0_dp)/(2.0_dp*g) -! E_i = Coefficients for error estimator - ros_E(1) = 1.0_dp/(2.0_dp*g) - ros_E(2) = 1.0_dp/(2.0_dp*g) -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus one - ros_ELO = 2.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 1.0_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = g - ros_Gamma(2) =-g - - END SUBROUTINE Ros2 - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 3 stages, order 3, 2 function evaluations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - rosMethod = RS3 -!~~~> Name of the method - ros_Name = 'ROS-3' -!~~~> Number of stages - ros_S = 3 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1)= 1.0_dp - ros_A(2)= 1.0_dp - ros_A(3)= 0.0_dp - - ros_C(1) = -0.10156171083877702091975600115545E+01_dp - ros_C(2) = 0.40759956452537699824805835358067E+01_dp - ros_C(3) = 0.92076794298330791242156818474003E+01_dp -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.1E+01_dp - ros_M(2) = 0.61697947043828245592553615689730E+01_dp - ros_M(3) = -0.42772256543218573326238373806514_dp -! E_i = Coefficients for error estimator - ros_E(1) = 0.5_dp - ros_E(2) = -0.29079558716805469821718236208017E+01_dp - ros_E(3) = 0.22354069897811569627360909276199_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1)= 0.0_dp - ros_Alpha(2)= 0.43586652150845899941601945119356_dp - ros_Alpha(3)= 0.43586652150845899941601945119356_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1)= 0.43586652150845899941601945119356_dp - ros_Gamma(2)= 0.24291996454816804366592249683314_dp - ros_Gamma(3)= 0.21851380027664058511513169485832E+01_dp - - END SUBROUTINE Ros3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! L-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 4 STAGES -! L-STABLE EMBEDDED ROSENBROCK METHOD OF ORDER 3 -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1990) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RS4 -!~~~> Name of the method - ros_Name = 'ROS-4' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.2000000000000000E+01_dp - ros_A(2) = 0.1867943637803922E+01_dp - ros_A(3) = 0.2344449711399156_dp - ros_A(4) = ros_A(2) - ros_A(5) = ros_A(3) - ros_A(6) = 0.0_dp - - ros_C(1) =-0.7137615036412310E+01_dp - ros_C(2) = 0.2580708087951457E+01_dp - ros_C(3) = 0.6515950076447975_dp - ros_C(4) =-0.2137148994382534E+01_dp - ros_C(5) =-0.3214669691237626_dp - ros_C(6) =-0.6949742501781779_dp -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.2255570073418735E+01_dp - ros_M(2) = 0.2870493262186792_dp - ros_M(3) = 0.4353179431840180_dp - ros_M(4) = 0.1093502252409163E+01_dp -!~~~> E_i = Coefficients for error estimator - ros_E(1) =-0.2815431932141155_dp - ros_E(2) =-0.7276199124938920E-01_dp - ros_E(3) =-0.1082196201495311_dp - ros_E(4) =-0.1093502252409163E+01_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 0.1145640000000000E+01_dp - ros_Alpha(3) = 0.6552168638155900_dp - ros_Alpha(4) = ros_Alpha(3) -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5728200000000000_dp - ros_Gamma(2) =-0.1769193891319233E+01_dp - ros_Gamma(3) = 0.7592633437920482_dp - ros_Gamma(4) =-0.1049021087100450_dp - - END SUBROUTINE Ros4 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- A STIFFLY-STABLE METHOD, 4 stages, order 3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD3 -!~~~> Name of the method - ros_Name = 'RODAS-3' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.0_dp - ros_A(2) = 2.0_dp - ros_A(3) = 0.0_dp - ros_A(4) = 2.0_dp - ros_A(5) = 0.0_dp - ros_A(6) = 1.0_dp - - ros_C(1) = 4.0_dp - ros_C(2) = 1.0_dp - ros_C(3) =-1.0_dp - ros_C(4) = 1.0_dp - ros_C(5) =-1.0_dp - ros_C(6) =-(8.0_dp/3.0_dp) - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .FALSE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 2.0_dp - ros_M(2) = 0.0_dp - ros_M(3) = 1.0_dp - ros_M(4) = 1.0_dp -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0_dp - ros_E(2) = 0.0_dp - ros_E(3) = 0.0_dp - ros_E(4) = 1.0_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 0.0_dp - ros_Alpha(3) = 1.0_dp - ros_Alpha(4) = 1.0_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5_dp - ros_Gamma(2) = 1.5_dp - ros_Gamma(3) = 0.0_dp - ros_Gamma(4) = 0.0_dp - - END SUBROUTINE Rodas3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 6 STAGES -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1996) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD4 -!~~~> Name of the method - ros_Name = 'RODAS-4' -!~~~> Number of stages - ros_S = 6 - -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.000_dp - ros_Alpha(2) = 0.386_dp - ros_Alpha(3) = 0.210_dp - ros_Alpha(4) = 0.630_dp - ros_Alpha(5) = 1.000_dp - ros_Alpha(6) = 1.000_dp - -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.2500000000000000_dp - ros_Gamma(2) =-0.1043000000000000_dp - ros_Gamma(3) = 0.1035000000000000_dp - ros_Gamma(4) =-0.3620000000000023E-01_dp - ros_Gamma(5) = 0.0_dp - ros_Gamma(6) = 0.0_dp - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.1544000000000000E+01_dp - ros_A(2) = 0.9466785280815826_dp - ros_A(3) = 0.2557011698983284_dp - ros_A(4) = 0.3314825187068521E+01_dp - ros_A(5) = 0.2896124015972201E+01_dp - ros_A(6) = 0.9986419139977817_dp - ros_A(7) = 0.1221224509226641E+01_dp - ros_A(8) = 0.6019134481288629E+01_dp - ros_A(9) = 0.1253708332932087E+02_dp - ros_A(10) =-0.6878860361058950_dp - ros_A(11) = ros_A(7) - ros_A(12) = ros_A(8) - ros_A(13) = ros_A(9) - ros_A(14) = ros_A(10) - ros_A(15) = 1.0_dp - - ros_C(1) =-0.5668800000000000E+01_dp - ros_C(2) =-0.2430093356833875E+01_dp - ros_C(3) =-0.2063599157091915_dp - ros_C(4) =-0.1073529058151375_dp - ros_C(5) =-0.9594562251023355E+01_dp - ros_C(6) =-0.2047028614809616E+02_dp - ros_C(7) = 0.7496443313967647E+01_dp - ros_C(8) =-0.1024680431464352E+02_dp - ros_C(9) =-0.3399990352819905E+02_dp - ros_C(10) = 0.1170890893206160E+02_dp - ros_C(11) = 0.8083246795921522E+01_dp - ros_C(12) =-0.7981132988064893E+01_dp - ros_C(13) =-0.3152159432874371E+02_dp - ros_C(14) = 0.1631930543123136E+02_dp - ros_C(15) =-0.6058818238834054E+01_dp - -!~~~> M_i = Coefficients for new step solution - ros_M(1) = ros_A(7) - ros_M(2) = ros_A(8) - ros_M(3) = ros_A(9) - ros_M(4) = ros_A(10) - ros_M(5) = 1.0_dp - ros_M(6) = 1.0_dp - -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0_dp - ros_E(2) = 0.0_dp - ros_E(3) = 0.0_dp - ros_E(4) = 0.0_dp - ros_E(5) = 0.0_dp - ros_E(6) = 1.0_dp - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - ros_NewF(5) = .TRUE. - ros_NewF(6) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0_dp - - END SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rang3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE W METHOD OF ORDER 3, WITH 4 STAGES -! -! J. RANG and L. ANGERMANN -! NEW ROSENBROCK W-METHODS OF ORDER 3 -! FOR PARTIAL DIFFERENTIAL ALGEBRAIC -! EQUATIONS OF INDEX 1 -! BIT Numerical Mathematics (2005) 45: 761-787 -! DOI: 10.1007/s10543-005-0035-y -! Table 4.1-4.2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RG3 -!~~~> Name of the method - ros_Name = 'RANG-3' -!~~~> Number of stages - ros_S = 4 - - ros_A(1) = 5.09052051067020d+00; - ros_A(2) = 5.09052051067020d+00; - ros_A(3) = 0.0d0; - ros_A(4) = 4.97628111010787d+00; - ros_A(5) = 2.77268164715849d-02; - ros_A(6) = 2.29428036027904d-01; - - ros_C(1) = -1.16790812312283d+01; - ros_C(2) = -1.64057326467367d+01; - ros_C(3) = -2.77268164715850d-01; - ros_C(4) = -8.38103960500476d+00; - ros_C(5) = -8.48328409199343d-01; - ros_C(6) = 2.87009860433106d-01; - - ros_M(1) = 5.22582761233094d+00; - ros_M(2) = -5.56971148154165d-01; - ros_M(3) = 3.57979469353645d-01; - ros_M(4) = 1.72337398521064d+00; - - ros_E(1) = -5.16845212784040d+00; - ros_E(2) = -1.26351942603842d+00; - ros_E(3) = -1.11022302462516d-16; - ros_E(4) = 2.22044604925031d-16; - - ros_Alpha(1) = 0.0d00; - ros_Alpha(2) = 2.21878746765329d+00; - ros_Alpha(3) = 2.21878746765329d+00; - ros_Alpha(4) = 1.55392337535788d+00; - - ros_Gamma(1) = 4.35866521508459d-01; - ros_Gamma(2) = -1.78292094614483d+00; - ros_Gamma(3) = -2.46541900496934d+00; - ros_Gamma(4) = -8.05529997906370d-01; - - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp - - END SUBROUTINE Rang3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! End of the set of internal Rosenbrock subroutines -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -END SUBROUTINE Rosenbrock -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE FunTemplate( T, Y, Ydot ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE function call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE CB05TUCl_NCSU_Parameters, ONLY: NVAR, LU_NONZERO - USE CB05TUCl_NCSU_Global, ONLY: FIX, RCONST, TIME - USE CB05TUCl_NCSU_Function, ONLY: Fun - USE CB05TUCl_NCSU_Rates, ONLY: Update_SUN, Update_RCONST -!~~~> Input variables - REAL(kind=dp) :: T, Y(NVAR) -!~~~> Output variables - REAL(kind=dp) :: Ydot(NVAR) -!~~~> Local variables - REAL(kind=dp) :: Told - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, Ydot ) - TIME = Told - -END SUBROUTINE FunTemplate - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE JacTemplate( T, Y, Jcb ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE Jacobian call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE CB05TUCl_NCSU_Parameters, ONLY: NVAR, LU_NONZERO - USE CB05TUCl_NCSU_Global, ONLY: FIX, RCONST, TIME - USE CB05TUCl_NCSU_Jacobian, ONLY: Jac_SP, LU_IROW, LU_ICOL - USE CB05TUCl_NCSU_LinearAlgebra - USE CB05TUCl_NCSU_Rates, ONLY: Update_SUN, Update_RCONST -!~~~> Input variables - REAL(kind=dp) :: T, Y(NVAR) -!~~~> Output variables -#ifdef FULL_ALGEBRA - REAL(kind=dp) :: JV(LU_NONZERO), Jcb(NVAR,NVAR) -#else - REAL(kind=dp) :: Jcb(LU_NONZERO) -#endif -!~~~> Local variables - REAL(kind=dp) :: Told -#ifdef FULL_ALGEBRA - INTEGER :: i, j -#endif - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() -#ifdef FULL_ALGEBRA - CALL Jac_SP(Y, FIX, RCONST, JV) - DO j=1,NVAR - DO i=1,NVAR - Jcb(i,j) = 0.0_dp - END DO - END DO - DO i=1,LU_NONZERO - Jcb(LU_IROW(i),LU_ICOL(i)) = JV(i) - END DO -#else - CALL Jac_SP( Y, FIX, RCONST, Jcb ) -#endif - TIME = Told - -END SUBROUTINE JacTemplate - -END MODULE CB05TUCl_NCSU_Integrator - - - - -! End of INTEGRATE function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Integrator.o b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Integrator.o deleted file mode 100644 index 2b033d13a4e1d39babc59c08cc07792b2f2deec3..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Integrator.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Jacobian.f90 b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Jacobian.f90 deleted file mode 100644 index 44b783f5eb1e116f0b101a87b47410e5eb4130e9..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Jacobian.f90 +++ /dev/null @@ -1,2912 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The ODE Jacobian of Chemical Model File -! -! Generated by KPP-2.2.3 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 : CB05TUCl_NCSU_Jacobian.f90 -! Time : Thu Oct 8 08:21:46 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05TUCl_NCSU_13059_BOXMOX -! Equation file : CB05TUCl_NCSU.kpp -! Output root filename : CB05TUCl_NCSU -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CB05TUCl_NCSU_Jacobian - - USE CB05TUCl_NCSU_Parameters - USE CB05TUCl_NCSU_JacobianSP - - USE CB05TUCl_NCSU_Global - - 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(349) - -! B(1) = dA(1)/dV(101) - B(1) = RCT(1) -! B(2) = dA(2)/dV(105) - B(2) = RCT(2) -! B(3) = dA(3)/dV(96) - B(3) = RCT(3)*V(100) -! B(4) = dA(3)/dV(100) - B(4) = RCT(3)*V(96) -! B(5) = dA(4)/dV(101) - B(5) = RCT(4)*V(105) -! B(6) = dA(4)/dV(105) - B(6) = RCT(4)*V(101) -! B(7) = dA(5)/dV(101) - B(7) = RCT(5)*V(105) -! B(8) = dA(5)/dV(105) - B(8) = RCT(5)*V(101) -! B(9) = dA(6)/dV(100) - B(9) = RCT(6)*V(105) -! B(10) = dA(6)/dV(105) - B(10) = RCT(6)*V(100) -! B(11) = dA(7)/dV(96) - B(11) = RCT(7)*V(101) -! B(12) = dA(7)/dV(101) - B(12) = RCT(7)*V(96) -! B(13) = dA(8)/dV(96) - B(13) = RCT(8) -! B(14) = dA(9)/dV(96) - B(14) = RCT(9) -! B(15) = dA(10)/dV(55) - B(15) = RCT(10)*F(2) -! B(17) = dA(11)/dV(55) - B(17) = RCT(11)*F(1) -! B(19) = dA(12)/dV(96) - B(19) = RCT(12)*V(98) -! B(20) = dA(12)/dV(98) - B(20) = RCT(12)*V(96) -! B(21) = dA(13)/dV(96) - B(21) = RCT(13)*V(106) -! B(22) = dA(13)/dV(106) - B(22) = RCT(13)*V(96) -! B(23) = dA(14)/dV(103) - B(23) = RCT(14) -! B(24) = dA(15)/dV(103) - B(24) = RCT(15) -! B(25) = dA(16)/dV(100) - B(25) = RCT(16)*V(103) -! B(26) = dA(16)/dV(103) - B(26) = RCT(16)*V(100) -! B(27) = dA(17)/dV(101) - B(27) = RCT(17)*V(103) -! B(28) = dA(17)/dV(103) - B(28) = RCT(17)*V(101) -! B(29) = dA(18)/dV(101) - B(29) = RCT(18)*V(103) -! B(30) = dA(18)/dV(103) - B(30) = RCT(18)*V(101) -! B(31) = dA(19)/dV(56) - B(31) = RCT(19)*F(1) -! B(33) = dA(20)/dV(56) - B(33) = RCT(20)*F(1)*F(1) -! B(35) = dA(21)/dV(56) - B(35) = RCT(21) -! B(36) = dA(22)/dV(100) - B(36) = RCT(22)*2*V(100) -! B(37) = dA(23)/dV(100) - B(37) = RCT(23)*V(101)*F(1) -! B(38) = dA(23)/dV(101) - B(38) = RCT(23)*V(100)*F(1) -! B(40) = dA(24)/dV(98) - B(40) = RCT(24)*V(100) -! B(41) = dA(24)/dV(100) - B(41) = RCT(24)*V(98) -! B(42) = dA(25)/dV(60) - B(42) = RCT(25) -! B(43) = dA(26)/dV(60) - B(43) = RCT(26)*V(98) -! B(44) = dA(26)/dV(98) - B(44) = RCT(26)*V(60) -! B(45) = dA(27)/dV(60) - B(45) = RCT(27)*2*V(60) -! B(46) = dA(28)/dV(98) - B(46) = RCT(28)*V(101) -! B(47) = dA(28)/dV(101) - B(47) = RCT(28)*V(98) -! B(48) = dA(29)/dV(79) - B(48) = RCT(29)*V(98) -! B(49) = dA(29)/dV(98) - B(49) = RCT(29)*V(79) -! B(50) = dA(30)/dV(100) - B(50) = RCT(30)*V(106) -! B(51) = dA(30)/dV(106) - B(51) = RCT(30)*V(100) -! B(52) = dA(31)/dV(101) - B(52) = RCT(31)*V(106) -! B(53) = dA(31)/dV(106) - B(53) = RCT(31)*V(101) -! B(54) = dA(32)/dV(63) - B(54) = RCT(32) -! B(55) = dA(33)/dV(63) - B(55) = RCT(33)*V(98) -! B(56) = dA(33)/dV(98) - B(56) = RCT(33)*V(63) -! B(57) = dA(34)/dV(106) - B(57) = RCT(34)*2*V(106) -! B(58) = dA(35)/dV(106) - B(58) = RCT(35)*2*V(106)*F(1) -! B(60) = dA(36)/dV(69) - B(60) = RCT(36) -! B(61) = dA(37)/dV(69) - B(61) = RCT(37)*V(98) -! B(62) = dA(37)/dV(98) - B(62) = RCT(37)*V(69) -! B(63) = dA(38)/dV(54) - B(63) = RCT(38)*V(55) -! B(64) = dA(38)/dV(55) - B(64) = RCT(38)*V(54) -! B(65) = dA(39)/dV(54) - B(65) = RCT(39)*V(98) -! B(66) = dA(39)/dV(98) - B(66) = RCT(39)*V(54) -! B(67) = dA(40)/dV(98) - B(67) = RCT(40)*V(105) -! B(68) = dA(40)/dV(105) - B(68) = RCT(40)*V(98) -! B(69) = dA(41)/dV(98) - B(69) = RCT(41)*2*V(98) -! B(70) = dA(42)/dV(98) - B(70) = RCT(42)*2*V(98) -! B(71) = dA(43)/dV(98) - B(71) = RCT(43)*V(106) -! B(72) = dA(43)/dV(106) - B(72) = RCT(43)*V(98) -! B(73) = dA(44)/dV(105) - B(73) = RCT(44)*V(106) -! B(74) = dA(44)/dV(106) - B(74) = RCT(44)*V(105) -! B(75) = dA(45)/dV(69) - B(75) = RCT(45)*V(105) -! B(76) = dA(45)/dV(105) - B(76) = RCT(45)*V(69) -! B(77) = dA(46)/dV(103) - B(77) = RCT(46)*V(105) -! B(78) = dA(46)/dV(105) - B(78) = RCT(46)*V(103) -! B(79) = dA(47)/dV(98) - B(79) = RCT(47)*V(103) -! B(80) = dA(47)/dV(103) - B(80) = RCT(47)*V(98) -! B(81) = dA(48)/dV(103) - B(81) = RCT(48)*V(106) -! B(82) = dA(48)/dV(106) - B(82) = RCT(48)*V(103) -! B(83) = dA(49)/dV(96) - B(83) = RCT(49)*V(103) -! B(84) = dA(49)/dV(103) - B(84) = RCT(49)*V(96) -! B(85) = dA(50)/dV(103) - B(85) = RCT(50)*2*V(103) -! B(86) = dA(51)/dV(63) - B(86) = RCT(51) -! B(87) = dA(52)/dV(79) - B(87) = RCT(52) -! B(88) = dA(53)/dV(56) - B(88) = RCT(53) -! B(89) = dA(54)/dV(100) - B(89) = RCT(54)*V(104) -! B(90) = dA(54)/dV(104) - B(90) = RCT(54)*V(100) -! B(91) = dA(55)/dV(88) - B(91) = RCT(55)*V(100) -! B(92) = dA(55)/dV(100) - B(92) = RCT(55)*V(88) -! B(93) = dA(56)/dV(104) - B(93) = RCT(56)*V(106) -! B(94) = dA(56)/dV(106) - B(94) = RCT(56)*V(104) -! B(95) = dA(57)/dV(88) - B(95) = RCT(57)*V(106) -! B(96) = dA(57)/dV(106) - B(96) = RCT(57)*V(88) -! B(97) = dA(58)/dV(104) - B(97) = RCT(58)*2*V(104) -! B(98) = dA(59)/dV(88) - B(98) = RCT(59)*2*V(88) -! B(99) = dA(60)/dV(88) - B(99) = RCT(60)*V(104) -! B(100) = dA(60)/dV(104) - B(100) = RCT(60)*V(88) -! B(101) = dA(61)/dV(94) - B(101) = RCT(61)*V(98) -! B(102) = dA(61)/dV(98) - B(102) = RCT(61)*V(94) -! B(103) = dA(62)/dV(94) - B(103) = RCT(62) -! B(104) = dA(63)/dV(73) - B(104) = RCT(63)*V(98) -! B(105) = dA(63)/dV(98) - B(105) = RCT(63)*V(73) -! B(106) = dA(64)/dV(73) - B(106) = RCT(64) -! B(107) = dA(65)/dV(80) - B(107) = RCT(65)*V(98) -! B(108) = dA(65)/dV(98) - B(108) = RCT(65)*V(80) -! B(109) = dA(66)/dV(58) - B(109) = RCT(66)*V(98) -! B(110) = dA(66)/dV(98) - B(110) = RCT(66)*V(58) -! B(111) = dA(67)/dV(100) - B(111) = RCT(67)*V(107) -! B(112) = dA(67)/dV(107) - B(112) = RCT(67)*V(100) -! B(113) = dA(68)/dV(106) - B(113) = RCT(68)*V(107) -! B(114) = dA(68)/dV(107) - B(114) = RCT(68)*V(106) -! B(115) = dA(69)/dV(107) - B(115) = RCT(69)*2*V(107) -! B(116) = dA(70)/dV(78) - B(116) = RCT(70)*V(98) -! B(117) = dA(70)/dV(98) - B(117) = RCT(70)*V(78) -! B(118) = dA(71)/dV(78) - B(118) = RCT(71) -! B(119) = dA(72)/dV(68) - B(119) = RCT(72)*V(98) -! B(120) = dA(72)/dV(98) - B(120) = RCT(72)*V(68) -! B(121) = dA(73)/dV(95) - B(121) = RCT(73)*V(98) -! B(122) = dA(73)/dV(98) - B(122) = RCT(73)*V(95) -! B(123) = dA(74)/dV(95) - B(123) = RCT(74) -! B(124) = dA(75)/dV(95) - B(124) = RCT(75) -! B(125) = dA(76)/dV(95) - B(125) = RCT(76)*V(105) -! B(126) = dA(76)/dV(105) - B(126) = RCT(76)*V(95) -! B(127) = dA(77)/dV(95) - B(127) = RCT(77)*V(103) -! B(128) = dA(77)/dV(103) - B(128) = RCT(77)*V(95) -! B(129) = dA(78)/dV(95) - B(129) = RCT(78)*V(106) -! B(130) = dA(78)/dV(106) - B(130) = RCT(78)*V(95) -! B(131) = dA(79)/dV(71) - B(131) = RCT(79) -! B(132) = dA(80)/dV(71) - B(132) = RCT(80)*V(100) -! B(133) = dA(80)/dV(100) - B(133) = RCT(80)*V(71) -! B(134) = dA(81)/dV(71) - B(134) = RCT(81)*V(106) -! B(135) = dA(81)/dV(106) - B(135) = RCT(81)*V(71) -! B(136) = dA(82)/dV(61) - B(136) = RCT(82)*V(98) -! B(137) = dA(82)/dV(98) - B(137) = RCT(82)*V(61) -! B(138) = dA(83)/dV(93) - B(138) = RCT(83)*V(105) -! B(139) = dA(83)/dV(105) - B(139) = RCT(83)*V(93) -! B(140) = dA(84)/dV(93) - B(140) = RCT(84)*V(98) -! B(141) = dA(84)/dV(98) - B(141) = RCT(84)*V(93) -! B(142) = dA(85)/dV(93) - B(142) = RCT(85)*V(103) -! B(143) = dA(85)/dV(103) - B(143) = RCT(85)*V(93) -! B(144) = dA(86)/dV(93) - B(144) = RCT(86) -! B(145) = dA(87)/dV(97) - B(145) = RCT(87)*V(100) -! B(146) = dA(87)/dV(100) - B(146) = RCT(87)*V(97) -! B(147) = dA(88)/dV(97) - B(147) = RCT(88)*V(101) -! B(148) = dA(88)/dV(101) - B(148) = RCT(88)*V(97) -! B(149) = dA(89)/dV(51) - B(149) = RCT(89) -! B(150) = dA(90)/dV(51) - B(150) = RCT(90) -! B(151) = dA(91)/dV(97) - B(151) = RCT(91)*V(106) -! B(152) = dA(91)/dV(106) - B(152) = RCT(91)*V(97) -! B(153) = dA(92)/dV(97) - B(153) = RCT(92)*V(107) -! B(154) = dA(92)/dV(107) - B(154) = RCT(92)*V(97) -! B(155) = dA(93)/dV(97) - B(155) = RCT(93)*V(104) -! B(156) = dA(93)/dV(104) - B(156) = RCT(93)*V(97) -! B(157) = dA(94)/dV(97) - B(157) = RCT(94)*2*V(97) -! B(158) = dA(95)/dV(64) - B(158) = RCT(95)*V(98) -! B(159) = dA(95)/dV(98) - B(159) = RCT(95)*V(64) -! B(160) = dA(96)/dV(64) - B(160) = RCT(96) -! B(161) = dA(97)/dV(65) - B(161) = RCT(97)*V(98) -! B(162) = dA(97)/dV(98) - B(162) = RCT(97)*V(65) -! B(163) = dA(98)/dV(92) - B(163) = RCT(98)*V(105) -! B(164) = dA(98)/dV(105) - B(164) = RCT(98)*V(92) -! B(165) = dA(99)/dV(92) - B(165) = RCT(99)*V(98) -! B(166) = dA(99)/dV(98) - B(166) = RCT(99)*V(92) -! B(167) = dA(100)/dV(92) - B(167) = RCT(100)*V(103) -! B(168) = dA(100)/dV(103) - B(168) = RCT(100)*V(92) -! B(169) = dA(101)/dV(92) - B(169) = RCT(101) -! B(170) = dA(102)/dV(99) - B(170) = RCT(102)*V(100) -! B(171) = dA(102)/dV(100) - B(171) = RCT(102)*V(99) -! B(172) = dA(103)/dV(99) - B(172) = RCT(103)*V(101) -! B(173) = dA(103)/dV(101) - B(173) = RCT(103)*V(99) -! B(174) = dA(104)/dV(66) - B(174) = RCT(104) -! B(175) = dA(105)/dV(66) - B(175) = RCT(105) -! B(176) = dA(106)/dV(66) - B(176) = RCT(106)*V(98) -! B(177) = dA(106)/dV(98) - B(177) = RCT(106)*V(66) -! B(178) = dA(107)/dV(99) - B(178) = RCT(107)*V(106) -! B(179) = dA(107)/dV(106) - B(179) = RCT(107)*V(99) -! B(180) = dA(108)/dV(99) - B(180) = RCT(108)*V(107) -! B(181) = dA(108)/dV(107) - B(181) = RCT(108)*V(99) -! B(182) = dA(109)/dV(99) - B(182) = RCT(109)*V(104) -! B(183) = dA(109)/dV(104) - B(183) = RCT(109)*V(99) -! B(184) = dA(110)/dV(99) - B(184) = RCT(110)*2*V(99) -! B(185) = dA(111)/dV(97) - B(185) = RCT(111)*V(99) -! B(186) = dA(111)/dV(99) - B(186) = RCT(111)*V(97) -! B(187) = dA(112)/dV(89) - B(187) = RCT(112)*V(98) -! B(188) = dA(112)/dV(98) - B(188) = RCT(112)*V(89) -! B(189) = dA(113)/dV(82) - B(189) = RCT(113) -! B(190) = dA(114)/dV(82) - B(190) = 1600 -! B(191) = dA(115)/dV(82) - B(191) = RCT(115)*V(101) -! B(192) = dA(115)/dV(101) - B(192) = RCT(115)*V(82) -! B(193) = dA(116)/dV(87) - B(193) = RCT(116)*V(105) -! B(194) = dA(116)/dV(105) - B(194) = RCT(116)*V(87) -! B(195) = dA(117)/dV(87) - B(195) = RCT(117)*V(98) -! B(196) = dA(117)/dV(98) - B(196) = RCT(117)*V(87) -! B(197) = dA(118)/dV(87) - B(197) = RCT(118)*V(96) -! B(198) = dA(118)/dV(96) - B(198) = RCT(118)*V(87) -! B(199) = dA(119)/dV(87) - B(199) = RCT(119)*V(103) -! B(200) = dA(119)/dV(103) - B(200) = RCT(119)*V(87) -! B(201) = dA(120)/dV(83) - B(201) = RCT(120)*V(105) -! B(202) = dA(120)/dV(105) - B(202) = RCT(120)*V(83) -! B(203) = dA(121)/dV(83) - B(203) = RCT(121)*V(98) -! B(204) = dA(121)/dV(98) - B(204) = RCT(121)*V(83) -! B(205) = dA(122)/dV(83) - B(205) = RCT(122)*V(96) -! B(206) = dA(122)/dV(96) - B(206) = RCT(122)*V(83) -! B(207) = dA(123)/dV(83) - B(207) = RCT(123)*V(103) -! B(208) = dA(123)/dV(103) - B(208) = RCT(123)*V(83) -! B(209) = dA(124)/dV(86) - B(209) = RCT(124)*V(105) -! B(210) = dA(124)/dV(105) - B(210) = RCT(124)*V(86) -! B(211) = dA(125)/dV(86) - B(211) = RCT(125)*V(98) -! B(212) = dA(125)/dV(98) - B(212) = RCT(125)*V(86) -! B(213) = dA(126)/dV(86) - B(213) = RCT(126)*V(96) -! B(214) = dA(126)/dV(96) - B(214) = RCT(126)*V(86) -! B(215) = dA(127)/dV(86) - B(215) = RCT(127)*V(103) -! B(216) = dA(127)/dV(103) - B(216) = RCT(127)*V(86) -! B(217) = dA(128)/dV(53) - B(217) = RCT(128)*V(98) -! B(218) = dA(128)/dV(98) - B(218) = RCT(128)*V(53) -! B(219) = dA(129)/dV(62) - B(219) = RCT(129)*V(100) -! B(220) = dA(129)/dV(100) - B(220) = RCT(129)*V(62) -! B(221) = dA(130)/dV(62) - B(221) = 4.2 -! B(222) = dA(131)/dV(84) - B(222) = RCT(131)*V(98) -! B(223) = dA(131)/dV(98) - B(223) = RCT(131)*V(84) -! B(224) = dA(132)/dV(84) - B(224) = RCT(132)*V(103) -! B(225) = dA(132)/dV(103) - B(225) = RCT(132)*V(84) -! B(226) = dA(133)/dV(74) - B(226) = RCT(133)*V(101) -! B(227) = dA(133)/dV(101) - B(227) = RCT(133)*V(74) -! B(228) = dA(134)/dV(74) - B(228) = RCT(134)*V(106) -! B(229) = dA(134)/dV(106) - B(229) = RCT(134)*V(74) -! B(230) = dA(135)/dV(81) - B(230) = RCT(135) -! B(231) = dA(136)/dV(81) - B(231) = RCT(136)*V(98) -! B(232) = dA(136)/dV(98) - B(232) = RCT(136)*V(81) -! B(233) = dA(137)/dV(81) - B(233) = RCT(137)*V(96) -! B(234) = dA(137)/dV(96) - B(234) = RCT(137)*V(81) -! B(235) = dA(138)/dV(57) - B(235) = RCT(138)*V(98) -! B(236) = dA(138)/dV(98) - B(236) = RCT(138)*V(57) -! B(237) = dA(139)/dV(76) - B(237) = RCT(139)*V(98) -! B(238) = dA(139)/dV(98) - B(238) = RCT(139)*V(76) -! B(239) = dA(140)/dV(76) - B(239) = RCT(140) -! B(240) = dA(141)/dV(90) - B(240) = RCT(141)*V(105) -! B(241) = dA(141)/dV(105) - B(241) = RCT(141)*V(90) -! B(242) = dA(142)/dV(90) - B(242) = RCT(142)*V(98) -! B(243) = dA(142)/dV(98) - B(243) = RCT(142)*V(90) -! B(244) = dA(143)/dV(90) - B(244) = RCT(143)*V(96) -! B(245) = dA(143)/dV(96) - B(245) = RCT(143)*V(90) -! B(246) = dA(144)/dV(90) - B(246) = RCT(144)*V(103) -! B(247) = dA(144)/dV(103) - B(247) = RCT(144)*V(90) -! B(248) = dA(145)/dV(91) - B(248) = RCT(145)*V(98) -! B(249) = dA(145)/dV(98) - B(249) = RCT(145)*V(91) -! B(250) = dA(146)/dV(91) - B(250) = RCT(146)*V(96) -! B(251) = dA(146)/dV(96) - B(251) = RCT(146)*V(91) -! B(252) = dA(147)/dV(91) - B(252) = RCT(147)*V(103) -! B(253) = dA(147)/dV(103) - B(253) = RCT(147)*V(91) -! B(254) = dA(148)/dV(91) - B(254) = RCT(148) -! B(255) = dA(149)/dV(85) - B(255) = RCT(149)*V(105) -! B(256) = dA(149)/dV(105) - B(256) = RCT(149)*V(85) -! B(257) = dA(150)/dV(85) - B(257) = RCT(150)*V(98) -! B(258) = dA(150)/dV(98) - B(258) = RCT(150)*V(85) -! B(259) = dA(151)/dV(85) - B(259) = RCT(151)*V(96) -! B(260) = dA(151)/dV(96) - B(260) = RCT(151)*V(85) -! B(261) = dA(152)/dV(85) - B(261) = RCT(152)*V(103) -! B(262) = dA(152)/dV(103) - B(262) = RCT(152)*V(85) -! B(263) = dA(153)/dV(50) - B(263) = RCT(153)*V(98) -! B(264) = dA(153)/dV(98) - B(264) = RCT(153)*V(50) -! B(265) = dA(154)/dV(70) - B(265) = RCT(154)*V(98) -! B(266) = dA(154)/dV(98) - B(266) = RCT(154)*V(70) -! B(267) = dA(155)/dV(67) - B(267) = RCT(155)*V(98) -! B(268) = dA(155)/dV(98) - B(268) = RCT(155)*V(67) -! B(269) = dA(156)/dV(90) - B(269) = RCT(156)*V(101) -! B(270) = dA(156)/dV(101) - B(270) = RCT(156)*V(90) -! B(271) = dA(157)/dV(49) - B(271) = RCT(157) -! B(272) = dA(158)/dV(52) - B(272) = RCT(158) -! B(273) = dA(159)/dV(96) - B(273) = RCT(159)*V(102) -! B(274) = dA(159)/dV(102) - B(274) = RCT(159)*V(96) -! B(275) = dA(160)/dV(75) - B(275) = RCT(160)*2*V(75) -! B(276) = dA(161)/dV(75) - B(276) = RCT(161)*V(100) -! B(277) = dA(161)/dV(100) - B(277) = RCT(161)*V(75) -! B(278) = dA(162)/dV(75) - B(278) = RCT(162)*V(106) -! B(279) = dA(162)/dV(106) - B(279) = RCT(162)*V(75) -! B(280) = dA(163)/dV(77) - B(280) = RCT(163)*V(98) -! B(281) = dA(163)/dV(98) - B(281) = RCT(163)*V(77) -! B(282) = dA(164)/dV(77) - B(282) = RCT(164) -! B(283) = dA(165)/dV(58) - B(283) = RCT(165)*V(102) -! B(284) = dA(165)/dV(102) - B(284) = RCT(165)*V(58) -! B(285) = dA(166)/dV(89) - B(285) = RCT(166)*V(102) -! B(286) = dA(166)/dV(102) - B(286) = RCT(166)*V(89) -! B(287) = dA(167)/dV(67) - B(287) = RCT(167)*V(102) -! B(288) = dA(167)/dV(102) - B(288) = RCT(167)*V(67) -! B(289) = dA(168)/dV(83) - B(289) = RCT(168)*V(102) -! B(290) = dA(168)/dV(102) - B(290) = RCT(168)*V(83) -! B(291) = dA(169)/dV(87) - B(291) = RCT(169)*V(102) -! B(292) = dA(169)/dV(102) - B(292) = RCT(169)*V(87) -! B(293) = dA(170)/dV(86) - B(293) = RCT(170)*V(102) -! B(294) = dA(170)/dV(102) - B(294) = RCT(170)*V(86) -! B(295) = dA(171)/dV(90) - B(295) = RCT(171)*V(102) -! B(296) = dA(171)/dV(102) - B(296) = RCT(171)*V(90) -! B(297) = dA(172)/dV(95) - B(297) = RCT(172)*V(102) -! B(298) = dA(172)/dV(102) - B(298) = RCT(172)*V(95) -! B(299) = dA(173)/dV(93) - B(299) = RCT(173)*V(102) -! B(300) = dA(173)/dV(102) - B(300) = RCT(173)*V(93) -! B(301) = dA(174)/dV(92) - B(301) = RCT(174)*V(102) -! B(302) = dA(174)/dV(102) - B(302) = RCT(174)*V(92) -! B(303) = dA(175)/dV(68) - B(303) = RCT(175)*V(102) -! B(304) = dA(175)/dV(102) - B(304) = RCT(175)*V(68) -! B(305) = dA(176)/dV(70) - B(305) = RCT(176)*V(102) -! B(306) = dA(176)/dV(102) - B(306) = RCT(176)*V(70) -! B(307) = dA(177)/dV(72) - B(307) = RCT(177)*V(98) -! B(308) = dA(177)/dV(98) - B(308) = RCT(177)*V(72) -! B(309) = dA(178)/dV(59) - B(309) = RCT(178)*V(96) -! B(310) = dA(178)/dV(96) - B(310) = RCT(178)*V(59) -! B(311) = dA(179)/dV(59) - B(311) = RCT(179)*V(98) -! B(312) = dA(179)/dV(98) - B(312) = RCT(179)*V(59) -! B(313) = dA(180)/dV(59) - B(313) = RCT(180)*V(69) -! B(314) = dA(180)/dV(69) - B(314) = RCT(180)*V(59) -! B(315) = dA(181)/dV(12) - B(315) = RCT(181)*V(98) -! B(316) = dA(181)/dV(98) - B(316) = RCT(181)*V(12) -! B(317) = dA(182)/dV(15) - B(317) = RCT(182)*V(98) -! B(318) = dA(182)/dV(98) - B(318) = RCT(182)*V(15) -! B(319) = dA(183)/dV(18) - B(319) = RCT(183)*V(98) -! B(320) = dA(183)/dV(98) - B(320) = RCT(183)*V(18) -! B(321) = dA(184)/dV(23) - B(321) = RCT(184)*V(98) -! B(322) = dA(184)/dV(98) - B(322) = RCT(184)*V(23) -! B(323) = dA(185)/dV(23) - B(323) = RCT(185)*V(96) -! B(324) = dA(185)/dV(96) - B(324) = RCT(185)*V(23) -! B(325) = dA(186)/dV(29) - B(325) = RCT(186)*V(98) -! B(326) = dA(186)/dV(98) - B(326) = RCT(186)*V(29) -! B(327) = dA(187)/dV(29) - B(327) = RCT(187)*V(96) -! B(328) = dA(187)/dV(96) - B(328) = RCT(187)*V(29) -! B(329) = dA(188)/dV(29) - B(329) = RCT(188)*V(103) -! B(330) = dA(188)/dV(103) - B(330) = RCT(188)*V(29) -! B(331) = dA(189)/dV(32) - B(331) = RCT(189)*V(98) -! B(332) = dA(189)/dV(98) - B(332) = RCT(189)*V(32) -! B(333) = dA(190)/dV(34) - B(333) = RCT(190)*V(98) -! B(334) = dA(190)/dV(98) - B(334) = RCT(190)*V(34) -! B(335) = dA(191)/dV(37) - B(335) = RCT(191)*V(98) -! B(336) = dA(191)/dV(98) - B(336) = RCT(191)*V(37) -! B(337) = dA(192)/dV(42) - B(337) = RCT(192)*V(98) -! B(338) = dA(192)/dV(98) - B(338) = RCT(192)*V(42) -! B(339) = dA(193)/dV(41) - B(339) = RCT(193)*V(98) -! B(340) = dA(193)/dV(98) - B(340) = RCT(193)*V(41) -! B(341) = dA(194)/dV(40) - B(341) = RCT(194)*V(98) -! B(342) = dA(194)/dV(98) - B(342) = RCT(194)*V(40) -! B(343) = dA(195)/dV(46) - B(343) = RCT(195)*V(98) -! B(344) = dA(195)/dV(98) - B(344) = RCT(195)*V(46) -! B(345) = dA(196)/dV(45) - B(345) = RCT(196)*V(98) -! B(346) = dA(196)/dV(98) - B(346) = RCT(196)*V(45) -! B(347) = dA(197)/dV(44) - B(347) = RCT(197)*V(98) -! B(348) = dA(197)/dV(98) - B(348) = RCT(197)*V(44) -! B(349) = dA(198)/dV(50) - B(349) = RCT(198) - -! Construct the Jacobian terms from B's -! JVS(1) = Jac_FULL(1,1) - JVS(1) = 0 -! JVS(2) = Jac_FULL(1,53) - JVS(2) = 0.071*B(217) -! JVS(3) = Jac_FULL(1,98) - JVS(3) = 0.071*B(218) -! JVS(4) = Jac_FULL(2,2) - JVS(4) = 0 -! JVS(5) = Jac_FULL(2,53) - JVS(5) = 0.138*B(217) -! JVS(6) = Jac_FULL(2,98) - JVS(6) = 0.138*B(218) -! JVS(7) = Jac_FULL(3,3) - JVS(7) = 0 -! JVS(8) = Jac_FULL(3,84) - JVS(8) = B(222)+B(224) -! JVS(9) = Jac_FULL(3,98) - JVS(9) = B(223) -! JVS(10) = Jac_FULL(3,103) - JVS(10) = B(225) -! JVS(11) = Jac_FULL(4,4) - JVS(11) = 0 -! JVS(12) = Jac_FULL(4,57) - JVS(12) = 0.038*B(235) -! JVS(13) = Jac_FULL(4,98) - JVS(13) = 0.038*B(236) -! JVS(14) = Jac_FULL(5,5) - JVS(14) = 0 -! JVS(15) = Jac_FULL(5,57) - JVS(15) = 0.167*B(235) -! JVS(16) = Jac_FULL(5,98) - JVS(16) = 0.167*B(236) -! JVS(17) = Jac_FULL(6,6) - JVS(17) = 0 -! JVS(18) = Jac_FULL(6,90) - JVS(18) = 0.232*B(240)+0.232*B(242)+0.232*B(244)+0.232*B(246) -! JVS(19) = Jac_FULL(6,96) - JVS(19) = 0.232*B(245) -! JVS(20) = Jac_FULL(6,98) - JVS(20) = 0.232*B(243) -! JVS(21) = Jac_FULL(6,103) - JVS(21) = 0.232*B(247) -! JVS(22) = Jac_FULL(6,105) - JVS(22) = 0.232*B(241) -! JVS(23) = Jac_FULL(7,7) - JVS(23) = 0 -! JVS(24) = Jac_FULL(7,90) - JVS(24) = 0.0228*B(240)+0.0288*B(242)+0.0288*B(244)+0.0288*B(246) -! JVS(25) = Jac_FULL(7,96) - JVS(25) = 0.0288*B(245) -! JVS(26) = Jac_FULL(7,98) - JVS(26) = 0.0288*B(243) -! JVS(27) = Jac_FULL(7,103) - JVS(27) = 0.0288*B(247) -! JVS(28) = Jac_FULL(7,105) - JVS(28) = 0.0228*B(241) -! JVS(29) = Jac_FULL(8,8) - JVS(29) = 0 -! JVS(30) = Jac_FULL(8,50) - JVS(30) = B(263)+B(349) -! JVS(31) = Jac_FULL(8,98) - JVS(31) = B(264) -! JVS(32) = Jac_FULL(9,9) - JVS(32) = 0 -! JVS(33) = Jac_FULL(9,50) - JVS(33) = B(263) -! JVS(34) = Jac_FULL(9,98) - JVS(34) = B(264) -! JVS(35) = Jac_FULL(10,10) - JVS(35) = 0 -! JVS(36) = Jac_FULL(10,85) - JVS(36) = B(255)+B(257)+B(259)+B(261) -! JVS(37) = Jac_FULL(10,96) - JVS(37) = B(260) -! JVS(38) = Jac_FULL(10,98) - JVS(38) = B(258) -! JVS(39) = Jac_FULL(10,103) - JVS(39) = B(262) -! JVS(40) = Jac_FULL(10,105) - JVS(40) = B(256) -! JVS(41) = Jac_FULL(11,11) - JVS(41) = 0 -! JVS(42) = Jac_FULL(11,12) - JVS(42) = B(315) -! JVS(43) = Jac_FULL(11,98) - JVS(43) = B(316) -! JVS(44) = Jac_FULL(12,12) - JVS(44) = -B(315) -! JVS(45) = Jac_FULL(12,98) - JVS(45) = -B(316) -! JVS(46) = Jac_FULL(13,13) - JVS(46) = 0 -! JVS(47) = Jac_FULL(13,15) - JVS(47) = 0.239*B(317) -! JVS(48) = Jac_FULL(13,98) - JVS(48) = 0.239*B(318) -! JVS(49) = Jac_FULL(14,14) - JVS(49) = 0 -! JVS(50) = Jac_FULL(14,15) - JVS(50) = 0.363*B(317) -! JVS(51) = Jac_FULL(14,98) - JVS(51) = 0.363*B(318) -! JVS(52) = Jac_FULL(15,15) - JVS(52) = -B(317) -! JVS(53) = Jac_FULL(15,98) - JVS(53) = -B(318) -! JVS(54) = Jac_FULL(16,16) - JVS(54) = 0 -! JVS(55) = Jac_FULL(16,18) - JVS(55) = 0.045*B(319) -! JVS(56) = Jac_FULL(16,98) - JVS(56) = 0.045*B(320) -! JVS(57) = Jac_FULL(17,17) - JVS(57) = 0 -! JVS(58) = Jac_FULL(17,18) - JVS(58) = 0.149*B(319) -! JVS(59) = Jac_FULL(17,98) - JVS(59) = 0.149*B(320) -! JVS(60) = Jac_FULL(18,18) - JVS(60) = -B(319) -! JVS(61) = Jac_FULL(18,98) - JVS(61) = -B(320) -! JVS(62) = Jac_FULL(19,19) - JVS(62) = 0 -! JVS(63) = Jac_FULL(19,23) - JVS(63) = 0.038*B(321) -! JVS(64) = Jac_FULL(19,98) - JVS(64) = 0.038*B(322) -! JVS(65) = Jac_FULL(20,20) - JVS(65) = 0 -! JVS(66) = Jac_FULL(20,23) - JVS(66) = 0.326*B(321) -! JVS(67) = Jac_FULL(20,98) - JVS(67) = 0.326*B(322) -! JVS(68) = Jac_FULL(21,21) - JVS(68) = 0 -! JVS(69) = Jac_FULL(21,23) - JVS(69) = 0.125*B(323) -! JVS(70) = Jac_FULL(21,96) - JVS(70) = 0.125*B(324) -! JVS(71) = Jac_FULL(22,22) - JVS(71) = 0 -! JVS(72) = Jac_FULL(22,23) - JVS(72) = 0.102*B(323) -! JVS(73) = Jac_FULL(22,96) - JVS(73) = 0.102*B(324) -! JVS(74) = Jac_FULL(23,23) - JVS(74) = -B(321)-B(323) -! JVS(75) = Jac_FULL(23,96) - JVS(75) = -B(324) -! JVS(76) = Jac_FULL(23,98) - JVS(76) = -B(322) -! JVS(77) = Jac_FULL(24,24) - JVS(77) = 0 -! JVS(78) = Jac_FULL(24,29) - JVS(78) = 0.13*B(325) -! JVS(79) = Jac_FULL(24,98) - JVS(79) = 0.13*B(326) -! JVS(80) = Jac_FULL(25,25) - JVS(80) = 0 -! JVS(81) = Jac_FULL(25,29) - JVS(81) = 0.0406*B(325) -! JVS(82) = Jac_FULL(25,98) - JVS(82) = 0.0406*B(326) -! JVS(83) = Jac_FULL(26,26) - JVS(83) = 0 -! JVS(84) = Jac_FULL(26,29) - JVS(84) = 0.026*B(327) -! JVS(85) = Jac_FULL(26,96) - JVS(85) = 0.026*B(328) -! JVS(86) = Jac_FULL(27,27) - JVS(86) = 0 -! JVS(87) = Jac_FULL(27,29) - JVS(87) = 0.485*B(327) -! JVS(88) = Jac_FULL(27,96) - JVS(88) = 0.485*B(328) -! JVS(89) = Jac_FULL(28,28) - JVS(89) = 0 -! JVS(90) = Jac_FULL(28,29) - JVS(90) = B(329) -! JVS(91) = Jac_FULL(28,103) - JVS(91) = B(330) -! JVS(92) = Jac_FULL(29,29) - JVS(92) = -B(325)-B(327)-B(329) -! JVS(93) = Jac_FULL(29,96) - JVS(93) = -B(328) -! JVS(94) = Jac_FULL(29,98) - JVS(94) = -B(326) -! JVS(95) = Jac_FULL(29,103) - JVS(95) = -B(330) -! JVS(96) = Jac_FULL(30,30) - JVS(96) = 0 -! JVS(97) = Jac_FULL(30,32) - JVS(97) = 0.091*B(331) -! JVS(98) = Jac_FULL(30,98) - JVS(98) = 0.091*B(332) -! JVS(99) = Jac_FULL(31,31) - JVS(99) = 0 -! JVS(100) = Jac_FULL(31,32) - JVS(100) = 0.367*B(331) -! JVS(101) = Jac_FULL(31,98) - JVS(101) = 0.367*B(332) -! JVS(102) = Jac_FULL(32,32) - JVS(102) = -B(331) -! JVS(103) = Jac_FULL(32,98) - JVS(103) = -B(332) -! JVS(104) = Jac_FULL(33,33) - JVS(104) = 0 -! JVS(105) = Jac_FULL(33,34) - JVS(105) = 1.173*B(333) -! JVS(106) = Jac_FULL(33,98) - JVS(106) = 1.173*B(334) -! JVS(107) = Jac_FULL(34,34) - JVS(107) = -B(333) -! JVS(108) = Jac_FULL(34,98) - JVS(108) = -B(334) -! JVS(109) = Jac_FULL(35,35) - JVS(109) = 0 -! JVS(110) = Jac_FULL(35,37) - JVS(110) = 0.156*B(335) -! JVS(111) = Jac_FULL(35,98) - JVS(111) = 0.156*B(336) -! JVS(112) = Jac_FULL(36,36) - JVS(112) = 0 -! JVS(113) = Jac_FULL(36,37) - JVS(113) = 0.777*B(335) -! JVS(114) = Jac_FULL(36,98) - JVS(114) = 0.777*B(336) -! JVS(115) = Jac_FULL(37,37) - JVS(115) = -B(335) -! JVS(116) = Jac_FULL(37,98) - JVS(116) = -B(336) -! JVS(117) = Jac_FULL(38,38) - JVS(117) = 0 -! JVS(118) = Jac_FULL(38,59) - JVS(118) = B(309)+B(311)+B(313) -! JVS(119) = Jac_FULL(38,69) - JVS(119) = B(314) -! JVS(120) = Jac_FULL(38,96) - JVS(120) = B(310) -! JVS(121) = Jac_FULL(38,98) - JVS(121) = B(312) -! JVS(122) = Jac_FULL(39,39) - JVS(122) = 0 -! JVS(123) = Jac_FULL(39,40) - JVS(123) = 1.075*B(341) -! JVS(124) = Jac_FULL(39,98) - JVS(124) = 1.075*B(342) -! JVS(125) = Jac_FULL(40,40) - JVS(125) = -B(341) -! JVS(126) = Jac_FULL(40,41) - JVS(126) = 1.075*B(339) -! JVS(127) = Jac_FULL(40,98) - JVS(127) = 1.075*B(340)-B(342) -! JVS(128) = Jac_FULL(41,41) - JVS(128) = -B(339) -! JVS(129) = Jac_FULL(41,42) - JVS(129) = 1.075*B(337) -! JVS(130) = Jac_FULL(41,98) - JVS(130) = 1.075*B(338)-B(340) -! JVS(131) = Jac_FULL(42,42) - JVS(131) = -B(337) -! JVS(132) = Jac_FULL(42,98) - JVS(132) = -B(338) -! JVS(133) = Jac_FULL(43,43) - JVS(133) = 0 -! JVS(134) = Jac_FULL(43,44) - JVS(134) = 1.075*B(347) -! JVS(135) = Jac_FULL(43,98) - JVS(135) = 1.075*B(348) -! JVS(136) = Jac_FULL(44,44) - JVS(136) = -B(347) -! JVS(137) = Jac_FULL(44,45) - JVS(137) = 1.075*B(345) -! JVS(138) = Jac_FULL(44,98) - JVS(138) = 1.075*B(346)-B(348) -! JVS(139) = Jac_FULL(45,45) - JVS(139) = -B(345) -! JVS(140) = Jac_FULL(45,46) - JVS(140) = 1.075*B(343) -! JVS(141) = Jac_FULL(45,98) - JVS(141) = 1.075*B(344)-B(346) -! JVS(142) = Jac_FULL(46,46) - JVS(142) = -B(343) -! JVS(143) = Jac_FULL(46,98) - JVS(143) = -B(344) -! JVS(144) = Jac_FULL(47,47) - JVS(144) = 0 -! JVS(145) = Jac_FULL(47,80) - JVS(145) = B(107) -! JVS(146) = Jac_FULL(47,98) - JVS(146) = B(108) -! JVS(147) = Jac_FULL(48,48) - JVS(147) = 0 -! JVS(148) = Jac_FULL(48,53) - JVS(148) = B(217) -! JVS(149) = Jac_FULL(48,57) - JVS(149) = B(235) -! JVS(150) = Jac_FULL(48,61) - JVS(150) = B(136) -! JVS(151) = Jac_FULL(48,64) - JVS(151) = B(158) -! JVS(152) = Jac_FULL(48,65) - JVS(152) = B(161) -! JVS(153) = Jac_FULL(48,67) - JVS(153) = B(267) -! JVS(154) = Jac_FULL(48,68) - JVS(154) = B(119) -! JVS(155) = Jac_FULL(48,70) - JVS(155) = B(265) -! JVS(156) = Jac_FULL(48,76) - JVS(156) = B(237) -! JVS(157) = Jac_FULL(48,78) - JVS(157) = B(116) -! JVS(158) = Jac_FULL(48,81) - JVS(158) = B(231) -! JVS(159) = Jac_FULL(48,83) - JVS(159) = B(203) -! JVS(160) = Jac_FULL(48,84) - JVS(160) = B(222) -! JVS(161) = Jac_FULL(48,85) - JVS(161) = B(257) -! JVS(162) = Jac_FULL(48,86) - JVS(162) = B(211) -! JVS(163) = Jac_FULL(48,87) - JVS(163) = B(195) -! JVS(164) = Jac_FULL(48,89) - JVS(164) = B(187) -! JVS(165) = Jac_FULL(48,90) - JVS(165) = B(242) -! JVS(166) = Jac_FULL(48,91) - JVS(166) = B(248) -! JVS(167) = Jac_FULL(48,92) - JVS(167) = B(165) -! JVS(168) = Jac_FULL(48,93) - JVS(168) = B(140) -! JVS(169) = Jac_FULL(48,95) - JVS(169) = B(121) -! JVS(170) = Jac_FULL(48,98) - JVS(170) = B(117)+B(120)+B(122)+B(137)+B(141)+B(159)+B(162)+B(166)+B(188)+B(196)+B(204)+B(212)+B(218)+B(223)+B(232)& - &+B(236)+B(238)+B(243)+B(249)+B(258)+B(266)+B(268) -! JVS(171) = Jac_FULL(49,49) - JVS(171) = -B(271) -! JVS(172) = Jac_FULL(49,75) - JVS(172) = 0.3*B(275) -! JVS(173) = Jac_FULL(50,50) - JVS(173) = -B(263)-B(349) -! JVS(174) = Jac_FULL(50,98) - JVS(174) = -B(264) -! JVS(175) = Jac_FULL(51,51) - JVS(175) = -B(149)-B(150) -! JVS(176) = Jac_FULL(51,97) - JVS(176) = B(147) -! JVS(177) = Jac_FULL(51,101) - JVS(177) = B(148) -! JVS(178) = Jac_FULL(52,52) - JVS(178) = -B(272) -! JVS(179) = Jac_FULL(52,75) - JVS(179) = B(278) -! JVS(180) = Jac_FULL(52,106) - JVS(180) = B(279) -! JVS(181) = Jac_FULL(53,53) - JVS(181) = -B(217) -! JVS(182) = Jac_FULL(53,98) - JVS(182) = -B(218) -! JVS(183) = Jac_FULL(54,54) - JVS(183) = -B(63)-B(65) -! JVS(184) = Jac_FULL(54,55) - JVS(184) = -B(64) -! JVS(185) = Jac_FULL(54,98) - JVS(185) = -B(66) -! JVS(186) = Jac_FULL(55,54) - JVS(186) = -B(63) -! JVS(187) = Jac_FULL(55,55) - JVS(187) = -B(15)-B(17)-B(64) -! JVS(188) = Jac_FULL(55,96) - JVS(188) = B(14) -! JVS(189) = Jac_FULL(55,98) - JVS(189) = 0 -! JVS(190) = Jac_FULL(56,56) - JVS(190) = -B(31)-B(33)-B(35)-B(88) -! JVS(191) = Jac_FULL(56,101) - JVS(191) = B(29) -! JVS(192) = Jac_FULL(56,103) - JVS(192) = B(30) -! JVS(193) = Jac_FULL(57,57) - JVS(193) = -B(235) -! JVS(194) = Jac_FULL(57,98) - JVS(194) = -B(236) -! JVS(195) = Jac_FULL(58,58) - JVS(195) = -B(109)-B(283) -! JVS(196) = Jac_FULL(58,98) - JVS(196) = -B(110) -! JVS(197) = Jac_FULL(58,102) - JVS(197) = -B(284) -! JVS(198) = Jac_FULL(59,59) - JVS(198) = -B(309)-B(311)-B(313) -! JVS(199) = Jac_FULL(59,69) - JVS(199) = -B(314) -! JVS(200) = Jac_FULL(59,96) - JVS(200) = -B(310) -! JVS(201) = Jac_FULL(59,98) - JVS(201) = -B(312) -! JVS(202) = Jac_FULL(60,60) - JVS(202) = -B(42)-B(43)-2*B(45) -! JVS(203) = Jac_FULL(60,98) - JVS(203) = B(40)-B(44) -! JVS(204) = Jac_FULL(60,100) - JVS(204) = 2*B(37)+B(41) -! JVS(205) = Jac_FULL(60,101) - JVS(205) = 2*B(38) -! JVS(206) = Jac_FULL(61,61) - JVS(206) = -B(136) -! JVS(207) = Jac_FULL(61,71) - JVS(207) = B(132) -! JVS(208) = Jac_FULL(61,83) - JVS(208) = 0.37*B(205) -! JVS(209) = Jac_FULL(61,96) - JVS(209) = 0.37*B(206) -! JVS(210) = Jac_FULL(61,98) - JVS(210) = -B(137) -! JVS(211) = Jac_FULL(61,100) - JVS(211) = B(133) -! JVS(212) = Jac_FULL(62,53) - JVS(212) = 0.56*B(217) -! JVS(213) = Jac_FULL(62,57) - JVS(213) = 0.3*B(235) -! JVS(214) = Jac_FULL(62,62) - JVS(214) = -B(219)-B(221) -! JVS(215) = Jac_FULL(62,98) - JVS(215) = 0.56*B(218)+0.3*B(236) -! JVS(216) = Jac_FULL(62,100) - JVS(216) = -B(220) -! JVS(217) = Jac_FULL(63,63) - JVS(217) = -B(54)-B(55)-B(86) -! JVS(218) = Jac_FULL(63,98) - JVS(218) = -B(56) -! JVS(219) = Jac_FULL(63,101) - JVS(219) = B(52) -! JVS(220) = Jac_FULL(63,106) - JVS(220) = B(53) -! JVS(221) = Jac_FULL(64,64) - JVS(221) = -B(158)-B(160) -! JVS(222) = Jac_FULL(64,97) - JVS(222) = 0.8*B(151) -! JVS(223) = Jac_FULL(64,98) - JVS(223) = -B(159) -! JVS(224) = Jac_FULL(64,99) - JVS(224) = 0.8*B(178) -! JVS(225) = Jac_FULL(64,106) - JVS(225) = 0.8*B(152)+0.8*B(179) -! JVS(226) = Jac_FULL(65,65) - JVS(226) = -B(161) -! JVS(227) = Jac_FULL(65,97) - JVS(227) = 0.2*B(151)+0.1*B(153)+0.1*B(155) -! JVS(228) = Jac_FULL(65,98) - JVS(228) = -B(162) -! JVS(229) = Jac_FULL(65,99) - JVS(229) = 0.2*B(178)+0.1*B(180)+0.1*B(182) -! JVS(230) = Jac_FULL(65,104) - JVS(230) = 0.1*B(156)+0.1*B(183) -! JVS(231) = Jac_FULL(65,106) - JVS(231) = 0.2*B(152)+0.2*B(179) -! JVS(232) = Jac_FULL(65,107) - JVS(232) = 0.1*B(154)+0.1*B(181) -! JVS(233) = Jac_FULL(66,66) - JVS(233) = -B(174)-B(175)-B(176) -! JVS(234) = Jac_FULL(66,98) - JVS(234) = -B(177) -! JVS(235) = Jac_FULL(66,99) - JVS(235) = B(172) -! JVS(236) = Jac_FULL(66,101) - JVS(236) = B(173) -! JVS(237) = Jac_FULL(67,67) - JVS(237) = -B(267)-B(287) -! JVS(238) = Jac_FULL(67,98) - JVS(238) = -B(268) -! JVS(239) = Jac_FULL(67,102) - JVS(239) = -B(288) -! JVS(240) = Jac_FULL(68,68) - JVS(240) = -B(119)-B(303) -! JVS(241) = Jac_FULL(68,98) - JVS(241) = -B(120) -! JVS(242) = Jac_FULL(68,102) - JVS(242) = -B(304) -! JVS(243) = Jac_FULL(68,107) - JVS(243) = 0.63*B(115) -! JVS(244) = Jac_FULL(69,59) - JVS(244) = -B(313) -! JVS(245) = Jac_FULL(69,69) - JVS(245) = -B(60)-B(61)-B(75)-B(314) -! JVS(246) = Jac_FULL(69,96) - JVS(246) = 0 -! JVS(247) = Jac_FULL(69,98) - JVS(247) = -B(62)+B(70) -! JVS(248) = Jac_FULL(69,105) - JVS(248) = -B(76) -! JVS(249) = Jac_FULL(69,106) - JVS(249) = B(57)+B(58) -! JVS(250) = Jac_FULL(70,70) - JVS(250) = -B(265)-B(305) -! JVS(251) = Jac_FULL(70,98) - JVS(251) = -B(266) -! JVS(252) = Jac_FULL(70,102) - JVS(252) = -B(306) -! JVS(253) = Jac_FULL(71,71) - JVS(253) = -B(131)-B(132)-B(134) -! JVS(254) = Jac_FULL(71,95) - JVS(254) = B(129) -! JVS(255) = Jac_FULL(71,100) - JVS(255) = -B(133) -! JVS(256) = Jac_FULL(71,106) - JVS(256) = B(130)-B(135) -! JVS(257) = Jac_FULL(72,58) - JVS(257) = B(283) -! JVS(258) = Jac_FULL(72,67) - JVS(258) = B(287) -! JVS(259) = Jac_FULL(72,68) - JVS(259) = B(303) -! JVS(260) = Jac_FULL(72,70) - JVS(260) = B(305) -! JVS(261) = Jac_FULL(72,72) - JVS(261) = -B(307) -! JVS(262) = Jac_FULL(72,86) - JVS(262) = 0.3*B(293) -! JVS(263) = Jac_FULL(72,89) - JVS(263) = B(285) -! JVS(264) = Jac_FULL(72,90) - JVS(264) = 0.15*B(295) -! JVS(265) = Jac_FULL(72,92) - JVS(265) = B(301) -! JVS(266) = Jac_FULL(72,93) - JVS(266) = B(299) -! JVS(267) = Jac_FULL(72,95) - JVS(267) = B(297) -! JVS(268) = Jac_FULL(72,98) - JVS(268) = -B(308) -! JVS(269) = Jac_FULL(72,102) - JVS(269) = B(284)+B(286)+B(288)+0.3*B(294)+0.15*B(296)+B(298)+B(300)+B(302)+B(304)+B(306) -! JVS(270) = Jac_FULL(72,107) - JVS(270) = 0 -! JVS(271) = Jac_FULL(73,73) - JVS(271) = -B(104)-B(106) -! JVS(272) = Jac_FULL(73,88) - JVS(272) = B(95) -! JVS(273) = Jac_FULL(73,98) - JVS(273) = -B(105) -! JVS(274) = Jac_FULL(73,104) - JVS(274) = B(93) -! JVS(275) = Jac_FULL(73,106) - JVS(275) = B(94)+B(96) -! JVS(276) = Jac_FULL(74,74) - JVS(276) = -B(226)-B(228) -! JVS(277) = Jac_FULL(74,84) - JVS(277) = 0.4*B(222)+B(224) -! JVS(278) = Jac_FULL(74,98) - JVS(278) = 0.4*B(223) -! JVS(279) = Jac_FULL(74,101) - JVS(279) = -B(227) -! JVS(280) = Jac_FULL(74,103) - JVS(280) = B(225) -! JVS(281) = Jac_FULL(74,106) - JVS(281) = -B(229) -! JVS(282) = Jac_FULL(75,75) - JVS(282) = -2*B(275)-B(276)-B(278) -! JVS(283) = Jac_FULL(75,96) - JVS(283) = B(273) -! JVS(284) = Jac_FULL(75,100) - JVS(284) = -B(277) -! JVS(285) = Jac_FULL(75,102) - JVS(285) = B(274) -! JVS(286) = Jac_FULL(75,106) - JVS(286) = -B(279) -! JVS(287) = Jac_FULL(76,57) - JVS(287) = 0.8*B(235) -! JVS(288) = Jac_FULL(76,76) - JVS(288) = -B(237)-B(239) -! JVS(289) = Jac_FULL(76,81) - JVS(289) = 0.2*B(233) -! JVS(290) = Jac_FULL(76,91) - JVS(290) = 0.168*B(248)+0.85*B(250) -! JVS(291) = Jac_FULL(76,96) - JVS(291) = 0.2*B(234)+0.85*B(251) -! JVS(292) = Jac_FULL(76,98) - JVS(292) = 0.8*B(236)-B(238)+0.168*B(249) -! JVS(293) = Jac_FULL(77,77) - JVS(293) = -B(280)-B(282) -! JVS(294) = Jac_FULL(77,83) - JVS(294) = B(289) -! JVS(295) = Jac_FULL(77,86) - JVS(295) = 0.7*B(293) -! JVS(296) = Jac_FULL(77,87) - JVS(296) = B(291) -! JVS(297) = Jac_FULL(77,90) - JVS(297) = 0.85*B(295) -! JVS(298) = Jac_FULL(77,98) - JVS(298) = -B(281) -! JVS(299) = Jac_FULL(77,102) - JVS(299) = B(290)+B(292)+0.7*B(294)+0.85*B(296) -! JVS(300) = Jac_FULL(78,71) - JVS(300) = B(134) -! JVS(301) = Jac_FULL(78,78) - JVS(301) = -B(116)-B(118) -! JVS(302) = Jac_FULL(78,95) - JVS(302) = 0 -! JVS(303) = Jac_FULL(78,98) - JVS(303) = -B(117) -! JVS(304) = Jac_FULL(78,100) - JVS(304) = 0 -! JVS(305) = Jac_FULL(78,106) - JVS(305) = B(113)+B(135) -! JVS(306) = Jac_FULL(78,107) - JVS(306) = B(114) -! JVS(307) = Jac_FULL(79,56) - JVS(307) = 2*B(31)+2*B(33) -! JVS(308) = Jac_FULL(79,79) - JVS(308) = -B(48)-B(87) -! JVS(309) = Jac_FULL(79,84) - JVS(309) = B(224) -! JVS(310) = Jac_FULL(79,91) - JVS(310) = 0.15*B(252) -! JVS(311) = Jac_FULL(79,92) - JVS(311) = B(167) -! JVS(312) = Jac_FULL(79,93) - JVS(312) = B(142) -! JVS(313) = Jac_FULL(79,94) - JVS(313) = B(101) -! JVS(314) = Jac_FULL(79,95) - JVS(314) = B(127) -! JVS(315) = Jac_FULL(79,98) - JVS(315) = B(46)-B(49)+B(102) -! JVS(316) = Jac_FULL(79,101) - JVS(316) = B(47) -! JVS(317) = Jac_FULL(79,103) - JVS(317) = B(81)+B(128)+B(143)+B(168)+B(225)+0.15*B(253) -! JVS(318) = Jac_FULL(79,106) - JVS(318) = B(82) -! JVS(319) = Jac_FULL(80,76) - JVS(319) = B(239) -! JVS(320) = Jac_FULL(80,77) - JVS(320) = B(280)+B(282) -! JVS(321) = Jac_FULL(80,80) - JVS(321) = -B(107) -! JVS(322) = Jac_FULL(80,81) - JVS(322) = B(230)+2*B(231)+0.69*B(233) -! JVS(323) = Jac_FULL(80,83) - JVS(323) = B(201)+0.63*B(205) -! JVS(324) = Jac_FULL(80,85) - JVS(324) = 0.001*B(259) -! JVS(325) = Jac_FULL(80,86) - JVS(325) = 0.1*B(209)+0.25*B(213) -! JVS(326) = Jac_FULL(80,87) - JVS(326) = 0.2*B(193)+0.33*B(197) -! JVS(327) = Jac_FULL(80,90) - JVS(327) = 0.066*B(244) -! JVS(328) = Jac_FULL(80,91) - JVS(328) = 0.334*B(248)+0.225*B(250)+0.643*B(252)+0.333*B(254) -! JVS(329) = Jac_FULL(80,92) - JVS(329) = B(169) -! JVS(330) = Jac_FULL(80,93) - JVS(330) = B(144) -! JVS(331) = Jac_FULL(80,95) - JVS(331) = B(121)+B(123)+B(124)+B(125)+B(127)+B(297) -! JVS(332) = Jac_FULL(80,96) - JVS(332) = 0.33*B(198)+0.63*B(206)+0.25*B(214)+0.69*B(234)+0.066*B(245)+0.225*B(251)+0.001*B(260) -! JVS(333) = Jac_FULL(80,98) - JVS(333) = -B(108)+B(122)+2*B(232)+0.334*B(249)+B(281) -! JVS(334) = Jac_FULL(80,102) - JVS(334) = B(298) -! JVS(335) = Jac_FULL(80,103) - JVS(335) = B(128)+0.643*B(253) -! JVS(336) = Jac_FULL(80,105) - JVS(336) = B(126)+0.2*B(194)+B(202)+0.1*B(210) -! JVS(337) = Jac_FULL(81,62) - JVS(337) = 0.9*B(219) -! JVS(338) = Jac_FULL(81,81) - JVS(338) = -B(230)-B(231)-B(233) -! JVS(339) = Jac_FULL(81,84) - JVS(339) = 0.3*B(222) -! JVS(340) = Jac_FULL(81,96) - JVS(340) = -B(234) -! JVS(341) = Jac_FULL(81,98) - JVS(341) = 0.3*B(223)-B(232) -! JVS(342) = Jac_FULL(81,100) - JVS(342) = 0.9*B(220) -! JVS(343) = Jac_FULL(82,82) - JVS(343) = -0.98*B(189)-B(190)-B(191) -! JVS(344) = Jac_FULL(82,89) - JVS(344) = 0.76*B(187)+0.76*B(285) -! JVS(345) = Jac_FULL(82,98) - JVS(345) = 0.76*B(188) -! JVS(346) = Jac_FULL(82,101) - JVS(346) = -B(192) -! JVS(347) = Jac_FULL(82,102) - JVS(347) = 0.76*B(286) -! JVS(348) = Jac_FULL(83,83) - JVS(348) = -B(201)-B(203)-B(205)-B(207)-B(289) -! JVS(349) = Jac_FULL(83,96) - JVS(349) = -B(206) -! JVS(350) = Jac_FULL(83,98) - JVS(350) = -B(204) -! JVS(351) = Jac_FULL(83,102) - JVS(351) = -B(290) -! JVS(352) = Jac_FULL(83,103) - JVS(352) = -B(208) -! JVS(353) = Jac_FULL(83,105) - JVS(353) = -B(202) -! JVS(354) = Jac_FULL(84,53) - JVS(354) = 0.36*B(217) -! JVS(355) = Jac_FULL(84,57) - JVS(355) = 0.2*B(235) -! JVS(356) = Jac_FULL(84,62) - JVS(356) = B(221) -! JVS(357) = Jac_FULL(84,74) - JVS(357) = B(228) -! JVS(358) = Jac_FULL(84,84) - JVS(358) = -B(222)-B(224) -! JVS(359) = Jac_FULL(84,98) - JVS(359) = 0.36*B(218)-B(223)+0.2*B(236) -! JVS(360) = Jac_FULL(84,100) - JVS(360) = 0 -! JVS(361) = Jac_FULL(84,101) - JVS(361) = 0 -! JVS(362) = Jac_FULL(84,103) - JVS(362) = -B(225) -! JVS(363) = Jac_FULL(84,106) - JVS(363) = B(229) -! JVS(364) = Jac_FULL(85,85) - JVS(364) = -B(255)-B(257)-B(259)-B(261) -! JVS(365) = Jac_FULL(85,96) - JVS(365) = -B(260) -! JVS(366) = Jac_FULL(85,98) - JVS(366) = -B(258) -! JVS(367) = Jac_FULL(85,103) - JVS(367) = -B(262) -! JVS(368) = Jac_FULL(85,105) - JVS(368) = -B(256) -! JVS(369) = Jac_FULL(86,86) - JVS(369) = -B(209)-B(211)-B(213)-B(215)-B(293) -! JVS(370) = Jac_FULL(86,96) - JVS(370) = -B(214) -! JVS(371) = Jac_FULL(86,98) - JVS(371) = -B(212) -! JVS(372) = Jac_FULL(86,102) - JVS(372) = -B(294) -! JVS(373) = Jac_FULL(86,103) - JVS(373) = -B(216) -! JVS(374) = Jac_FULL(86,105) - JVS(374) = -B(210) -! JVS(375) = Jac_FULL(87,86) - JVS(375) = 0.3*B(293) -! JVS(376) = Jac_FULL(87,87) - JVS(376) = -B(193)-B(195)-B(197)-B(199)-B(291) -! JVS(377) = Jac_FULL(87,96) - JVS(377) = -B(198) -! JVS(378) = Jac_FULL(87,98) - JVS(378) = -B(196) -! JVS(379) = Jac_FULL(87,102) - JVS(379) = -B(292)+0.3*B(294) -! JVS(380) = Jac_FULL(87,103) - JVS(380) = -B(200) -! JVS(381) = Jac_FULL(87,105) - JVS(381) = -B(194) -! JVS(382) = Jac_FULL(88,67) - JVS(382) = 0.009*B(267)+0.009*B(287) -! JVS(383) = Jac_FULL(88,82) - JVS(383) = 0.04*B(189) -! JVS(384) = Jac_FULL(88,85) - JVS(384) = 0.25*B(257)+0.18*B(259)+0.25*B(261) -! JVS(385) = Jac_FULL(88,87) - JVS(385) = 0.01*B(193)+0.09*B(199) -! JVS(386) = Jac_FULL(88,88) - JVS(386) = -B(91)-B(95)-2*B(98)-B(99) -! JVS(387) = Jac_FULL(88,89) - JVS(387) = 0.13*B(187)+0.13*B(285) -! JVS(388) = Jac_FULL(88,90) - JVS(388) = 0.088*B(242) -! JVS(389) = Jac_FULL(88,96) - JVS(389) = 0.18*B(260) -! JVS(390) = Jac_FULL(88,98) - JVS(390) = 0.13*B(188)+0.088*B(243)+0.25*B(258)+0.009*B(268) -! JVS(391) = Jac_FULL(88,100) - JVS(391) = -B(92) -! JVS(392) = Jac_FULL(88,101) - JVS(392) = 0 -! JVS(393) = Jac_FULL(88,102) - JVS(393) = 0.13*B(286)+0.009*B(288) -! JVS(394) = Jac_FULL(88,103) - JVS(394) = 0.09*B(200)+0.25*B(262) -! JVS(395) = Jac_FULL(88,104) - JVS(395) = -B(100) -! JVS(396) = Jac_FULL(88,105) - JVS(396) = 0.01*B(194) -! JVS(397) = Jac_FULL(88,106) - JVS(397) = -B(96) -! JVS(398) = Jac_FULL(89,57) - JVS(398) = 1.1*B(235) -! JVS(399) = Jac_FULL(89,82) - JVS(399) = -2.1*B(189) -! JVS(400) = Jac_FULL(89,85) - JVS(400) = 5.12*B(255)+1.66*B(257)+7*B(259) -! JVS(401) = Jac_FULL(89,86) - JVS(401) = 0.1*B(209)+0.3*B(293) -! JVS(402) = Jac_FULL(89,87) - JVS(402) = 0.2*B(193)-0.7*B(195)-B(197)-B(199)-B(291) -! JVS(403) = Jac_FULL(89,89) - JVS(403) = -1.11*B(187)-1.11*B(285) -! JVS(404) = Jac_FULL(89,90) - JVS(404) = 0.35*B(244)+2.4*B(269) -! JVS(405) = Jac_FULL(89,91) - JVS(405) = 1.565*B(248)+0.36*B(250)+1.282*B(252)+0.832*B(254) -! JVS(406) = Jac_FULL(89,94) - JVS(406) = -0.66*B(101)-0.66*B(103) -! JVS(407) = Jac_FULL(89,96) - JVS(407) = -B(198)+0.35*B(245)+0.36*B(251)+7*B(260) -! JVS(408) = Jac_FULL(89,98) - JVS(408) = -0.66*B(102)-1.11*B(188)-0.7*B(196)+1.1*B(236)+1.565*B(249)+1.66*B(258) -! JVS(409) = Jac_FULL(89,101) - JVS(409) = 2.4*B(270) -! JVS(410) = Jac_FULL(89,102) - JVS(410) = -1.11*B(286)-B(292)+0.3*B(294) -! JVS(411) = Jac_FULL(89,103) - JVS(411) = -B(200)+1.282*B(253) -! JVS(412) = Jac_FULL(89,105) - JVS(412) = 0.2*B(194)+0.1*B(210)+5.12*B(256) -! JVS(413) = Jac_FULL(90,90) - JVS(413) = -B(240)-B(242)-B(244)-B(246)-B(269)-B(295) -! JVS(414) = Jac_FULL(90,96) - JVS(414) = -B(245) -! JVS(415) = Jac_FULL(90,98) - JVS(415) = -B(243) -! JVS(416) = Jac_FULL(90,101) - JVS(416) = -B(270) -! JVS(417) = Jac_FULL(90,102) - JVS(417) = -B(296) -! JVS(418) = Jac_FULL(90,103) - JVS(418) = -B(247) -! JVS(419) = Jac_FULL(90,105) - JVS(419) = -B(241) -! JVS(420) = Jac_FULL(91,90) - JVS(420) = 0.75*B(240)+0.912*B(242)+0.65*B(244)+0.2*B(246)+0.2*B(269)+B(295) -! JVS(421) = Jac_FULL(91,91) - JVS(421) = -B(248)-B(250)-B(252)-B(254) -! JVS(422) = Jac_FULL(91,96) - JVS(422) = 0.65*B(245)-B(251) -! JVS(423) = Jac_FULL(91,98) - JVS(423) = 0.912*B(243)-B(249) -! JVS(424) = Jac_FULL(91,101) - JVS(424) = 0.2*B(270) -! JVS(425) = Jac_FULL(91,102) - JVS(425) = B(296) -! JVS(426) = Jac_FULL(91,103) - JVS(426) = 0.2*B(247)-B(253) -! JVS(427) = Jac_FULL(91,105) - JVS(427) = 0.75*B(241) -! JVS(428) = Jac_FULL(92,70) - JVS(428) = 0.05*B(265) -! JVS(429) = Jac_FULL(92,73) - JVS(429) = 0.5*B(104)+0.5*B(106) -! JVS(430) = Jac_FULL(92,81) - JVS(430) = 0.03*B(233) -! JVS(431) = Jac_FULL(92,82) - JVS(431) = 0.5*B(189) -! JVS(432) = Jac_FULL(92,83) - JVS(432) = 0.22*B(203) -! JVS(433) = Jac_FULL(92,84) - JVS(433) = 0 -! JVS(434) = Jac_FULL(92,85) - JVS(434) = 0.47*B(257)+0.21*B(259)+0.47*B(261) -! JVS(435) = Jac_FULL(92,86) - JVS(435) = 0.66*B(209)+0.7*B(211)+0.35*B(213)+0.64*B(215)+0.55*B(293) -! JVS(436) = Jac_FULL(92,87) - JVS(436) = 0.3*B(193)+0.62*B(195)+0.32*B(197)+0.56*B(199)+0.67*B(291) -! JVS(437) = Jac_FULL(92,88) - JVS(437) = 0 -! JVS(438) = Jac_FULL(92,89) - JVS(438) = 0.05*B(187)+0.05*B(285) -! JVS(439) = Jac_FULL(92,90) - JVS(439) = 0.15*B(244)+0.8*B(246)+0.8*B(269) -! JVS(440) = Jac_FULL(92,91) - JVS(440) = 0.12*B(248)+0.357*B(252) -! JVS(441) = Jac_FULL(92,92) - JVS(441) = -B(163)-B(165)-B(167)-B(169)-B(301) -! JVS(442) = Jac_FULL(92,94) - JVS(442) = 0.33*B(101)+0.33*B(103) -! JVS(443) = Jac_FULL(92,96) - JVS(443) = 0.32*B(198)+0.35*B(214)+0.03*B(234)+0.15*B(245)+0.21*B(260) -! JVS(444) = Jac_FULL(92,98) - JVS(444) = 0.33*B(102)+0.5*B(105)-B(166)+0.05*B(188)+0.62*B(196)+0.22*B(204)+0.7*B(212)+0.12*B(249)+0.47*B(258)+0.05& - &*B(266) -! JVS(445) = Jac_FULL(92,100) - JVS(445) = 0 -! JVS(446) = Jac_FULL(92,101) - JVS(446) = 0.8*B(270) -! JVS(447) = Jac_FULL(92,102) - JVS(447) = 0.05*B(286)+0.67*B(292)+0.55*B(294)-B(302) -! JVS(448) = Jac_FULL(92,103) - JVS(448) = -B(168)+0.56*B(200)+0.64*B(216)+0.8*B(247)+0.357*B(253)+0.47*B(262) -! JVS(449) = Jac_FULL(92,104) - JVS(449) = 0 -! JVS(450) = Jac_FULL(92,105) - JVS(450) = -B(164)+0.3*B(194)+0.66*B(210) -! JVS(451) = Jac_FULL(92,106) - JVS(451) = 0 -! JVS(452) = Jac_FULL(93,66) - JVS(452) = B(176) -! JVS(453) = Jac_FULL(93,67) - JVS(453) = 0.991*B(267)+0.991*B(287) -! JVS(454) = Jac_FULL(93,70) - JVS(454) = 0.9*B(265)+B(305) -! JVS(455) = Jac_FULL(93,73) - JVS(455) = 0.5*B(104)+0.5*B(106) -! JVS(456) = Jac_FULL(93,82) - JVS(456) = 0.6*B(189) -! JVS(457) = Jac_FULL(93,86) - JVS(457) = 1.24*B(209)+1.3*B(211)+0.65*B(213)+1.18*B(215)+0.45*B(293) -! JVS(458) = Jac_FULL(93,87) - JVS(458) = 0.2*B(193)+0.33*B(195)+0.18*B(197)+0.35*B(199)+0.33*B(291) -! JVS(459) = Jac_FULL(93,88) - JVS(459) = 0 -! JVS(460) = Jac_FULL(93,89) - JVS(460) = 0.06*B(187)+0.06*B(285) -! JVS(461) = Jac_FULL(93,90) - JVS(461) = 0 -! JVS(462) = Jac_FULL(93,91) - JVS(462) = 0.252*B(248)+0.02*B(250)+0.067*B(254) -! JVS(463) = Jac_FULL(93,93) - JVS(463) = -B(138)-B(140)-B(142)-B(144)-B(299) -! JVS(464) = Jac_FULL(93,94) - JVS(464) = 0.33*B(101)+0.33*B(103) -! JVS(465) = Jac_FULL(93,96) - JVS(465) = 0.18*B(198)+0.65*B(214)+0.02*B(251) -! JVS(466) = Jac_FULL(93,97) - JVS(466) = B(185) -! JVS(467) = Jac_FULL(93,98) - JVS(467) = 0.33*B(102)+0.5*B(105)-B(141)+B(177)+0.06*B(188)+0.33*B(196)+1.3*B(212)+0.252*B(249)+0.9*B(266)+0.991& - &*B(268) -! JVS(468) = Jac_FULL(93,99) - JVS(468) = B(170)+0.9*B(180)+0.9*B(182)+2*B(184)+B(186) -! JVS(469) = Jac_FULL(93,100) - JVS(469) = B(171) -! JVS(470) = Jac_FULL(93,101) - JVS(470) = 0 -! JVS(471) = Jac_FULL(93,102) - JVS(471) = 0.06*B(286)+0.991*B(288)+0.33*B(292)+0.45*B(294)-B(300)+B(306) -! JVS(472) = Jac_FULL(93,103) - JVS(472) = -B(143)+0.35*B(200)+1.18*B(216) -! JVS(473) = Jac_FULL(93,104) - JVS(473) = 0.9*B(183) -! JVS(474) = Jac_FULL(93,105) - JVS(474) = -B(139)+0.2*B(194)+1.24*B(210) -! JVS(475) = Jac_FULL(93,106) - JVS(475) = 0 -! JVS(476) = Jac_FULL(93,107) - JVS(476) = 0.9*B(181) -! JVS(477) = Jac_FULL(94,62) - JVS(477) = 0.1*B(219) -! JVS(478) = Jac_FULL(94,74) - JVS(478) = B(226) -! JVS(479) = Jac_FULL(94,82) - JVS(479) = B(191) -! JVS(480) = Jac_FULL(94,84) - JVS(480) = 0 -! JVS(481) = Jac_FULL(94,85) - JVS(481) = 0.53*B(261) -! JVS(482) = Jac_FULL(94,88) - JVS(482) = B(91) -! JVS(483) = Jac_FULL(94,89) - JVS(483) = 0 -! JVS(484) = Jac_FULL(94,90) - JVS(484) = 0.8*B(246)+0.8*B(269) -! JVS(485) = Jac_FULL(94,91) - JVS(485) = 0.85*B(252) -! JVS(486) = Jac_FULL(94,94) - JVS(486) = -B(101)-B(103) -! JVS(487) = Jac_FULL(94,96) - JVS(487) = 0 -! JVS(488) = Jac_FULL(94,98) - JVS(488) = -B(102) -! JVS(489) = Jac_FULL(94,100) - JVS(489) = B(92)+0.1*B(220) -! JVS(490) = Jac_FULL(94,101) - JVS(490) = B(192)+B(227)+0.8*B(270) -! JVS(491) = Jac_FULL(94,102) - JVS(491) = 0 -! JVS(492) = Jac_FULL(94,103) - JVS(492) = 0.8*B(247)+0.85*B(253)+0.53*B(262) -! JVS(493) = Jac_FULL(94,104) - JVS(493) = 0 -! JVS(494) = Jac_FULL(94,105) - JVS(494) = 0 -! JVS(495) = Jac_FULL(94,106) - JVS(495) = 0 -! JVS(496) = Jac_FULL(95,68) - JVS(496) = B(119)+B(303) -! JVS(497) = Jac_FULL(95,70) - JVS(497) = 0.1*B(265) -! JVS(498) = Jac_FULL(95,71) - JVS(498) = B(131) -! JVS(499) = Jac_FULL(95,78) - JVS(499) = B(118) -! JVS(500) = Jac_FULL(95,81) - JVS(500) = B(231)+0.7*B(233) -! JVS(501) = Jac_FULL(95,83) - JVS(501) = B(201)+1.56*B(203)+B(205)+2*B(207)+B(289) -! JVS(502) = Jac_FULL(95,84) - JVS(502) = 0 -! JVS(503) = Jac_FULL(95,85) - JVS(503) = 0.28*B(257)+0.24*B(259) -! JVS(504) = Jac_FULL(95,86) - JVS(504) = 0.25*B(213) -! JVS(505) = Jac_FULL(95,87) - JVS(505) = 0.2*B(193)+0.8*B(195)+0.74*B(197)+B(199) -! JVS(506) = Jac_FULL(95,90) - JVS(506) = 0.5*B(240)+0.629*B(242)+0.6*B(244) -! JVS(507) = Jac_FULL(95,91) - JVS(507) = 0.167*B(248)+0.15*B(250)+0.282*B(252)+0.9*B(254) -! JVS(508) = Jac_FULL(95,94) - JVS(508) = 0.33*B(101)+0.33*B(103) -! JVS(509) = Jac_FULL(95,95) - JVS(509) = -B(121)-B(123)-B(124)-B(125)-B(127)-B(129)-B(297) -! JVS(510) = Jac_FULL(95,96) - JVS(510) = 0.74*B(198)+B(206)+0.25*B(214)+0.7*B(234)+0.6*B(245)+0.15*B(251)+0.24*B(260) -! JVS(511) = Jac_FULL(95,97) - JVS(511) = B(153) -! JVS(512) = Jac_FULL(95,98) - JVS(512) = 0.33*B(102)+B(120)-B(122)+0.8*B(196)+1.56*B(204)+B(232)+0.629*B(243)+0.167*B(249)+0.28*B(258)+0.1*B(266) -! JVS(513) = Jac_FULL(95,99) - JVS(513) = 0.1*B(180) -! JVS(514) = Jac_FULL(95,100) - JVS(514) = B(111) -! JVS(515) = Jac_FULL(95,101) - JVS(515) = 0 -! JVS(516) = Jac_FULL(95,102) - JVS(516) = B(290)-B(298)+B(304) -! JVS(517) = Jac_FULL(95,103) - JVS(517) = -B(128)+B(200)+2*B(208)+0.282*B(253) -! JVS(518) = Jac_FULL(95,104) - JVS(518) = 0 -! JVS(519) = Jac_FULL(95,105) - JVS(519) = -B(126)+0.2*B(194)+B(202)+0.5*B(241) -! JVS(520) = Jac_FULL(95,106) - JVS(520) = -B(130) -! JVS(521) = Jac_FULL(95,107) - JVS(521) = B(112)+1.37*B(115)+B(154)+0.1*B(181) -! JVS(522) = Jac_FULL(96,59) - JVS(522) = -B(309) -! JVS(523) = Jac_FULL(96,69) - JVS(523) = 0 -! JVS(524) = Jac_FULL(96,81) - JVS(524) = -B(233) -! JVS(525) = Jac_FULL(96,83) - JVS(525) = -B(205) -! JVS(526) = Jac_FULL(96,84) - JVS(526) = 0 -! JVS(527) = Jac_FULL(96,85) - JVS(527) = -B(259) -! JVS(528) = Jac_FULL(96,86) - JVS(528) = -B(213) -! JVS(529) = Jac_FULL(96,87) - JVS(529) = -B(197) -! JVS(530) = Jac_FULL(96,90) - JVS(530) = -B(244) -! JVS(531) = Jac_FULL(96,91) - JVS(531) = -B(250) -! JVS(532) = Jac_FULL(96,96) - JVS(532) = -B(3)-B(11)-B(13)-B(14)-B(19)-B(21)-B(83)-B(198)-B(206)-B(214)-B(234)-B(245)-B(251)-B(260)-B(273)-B(310) -! JVS(533) = Jac_FULL(96,97) - JVS(533) = 0.2*B(151) -! JVS(534) = Jac_FULL(96,98) - JVS(534) = -B(20) -! JVS(535) = Jac_FULL(96,99) - JVS(535) = 0.2*B(178) -! JVS(536) = Jac_FULL(96,100) - JVS(536) = -B(4) -! JVS(537) = Jac_FULL(96,101) - JVS(537) = -B(12) -! JVS(538) = Jac_FULL(96,102) - JVS(538) = -B(274) -! JVS(539) = Jac_FULL(96,103) - JVS(539) = -B(84) -! JVS(540) = Jac_FULL(96,105) - JVS(540) = B(2) -! JVS(541) = Jac_FULL(96,106) - JVS(541) = -B(22)+0.2*B(152)+0.2*B(179) -! JVS(542) = Jac_FULL(97,51) - JVS(542) = B(149)+B(150) -! JVS(543) = Jac_FULL(97,64) - JVS(543) = B(158) -! JVS(544) = Jac_FULL(97,76) - JVS(544) = B(237)+B(239) -! JVS(545) = Jac_FULL(97,81) - JVS(545) = B(230)+B(231)+0.62*B(233) -! JVS(546) = Jac_FULL(97,84) - JVS(546) = 0 -! JVS(547) = Jac_FULL(97,91) - JVS(547) = 0.21*B(248)+0.114*B(250)+0.967*B(254) -! JVS(548) = Jac_FULL(97,93) - JVS(548) = B(138)+B(140)+B(142)+B(299) -! JVS(549) = Jac_FULL(97,94) - JVS(549) = 0 -! JVS(550) = Jac_FULL(97,96) - JVS(550) = 0.62*B(234)+0.114*B(251) -! JVS(551) = Jac_FULL(97,97) - JVS(551) = -B(145)-B(147)-B(151)-B(153)-B(155)-2*B(157)-B(185) -! JVS(552) = Jac_FULL(97,98) - JVS(552) = B(141)+B(159)+B(232)+B(238)+0.21*B(249) -! JVS(553) = Jac_FULL(97,99) - JVS(553) = -B(186) -! JVS(554) = Jac_FULL(97,100) - JVS(554) = -B(146) -! JVS(555) = Jac_FULL(97,101) - JVS(555) = -B(148) -! JVS(556) = Jac_FULL(97,102) - JVS(556) = B(300) -! JVS(557) = Jac_FULL(97,103) - JVS(557) = B(143) -! JVS(558) = Jac_FULL(97,104) - JVS(558) = -B(156) -! JVS(559) = Jac_FULL(97,105) - JVS(559) = B(139) -! JVS(560) = Jac_FULL(97,106) - JVS(560) = -B(152) -! JVS(561) = Jac_FULL(97,107) - JVS(561) = -B(154) -! JVS(562) = Jac_FULL(98,50) - JVS(562) = -B(263) -! JVS(563) = Jac_FULL(98,52) - JVS(563) = B(272) -! JVS(564) = Jac_FULL(98,53) - JVS(564) = -B(217) -! JVS(565) = Jac_FULL(98,54) - JVS(565) = B(63)-B(65) -! JVS(566) = Jac_FULL(98,55) - JVS(566) = 2*B(17)+B(64) -! JVS(567) = Jac_FULL(98,57) - JVS(567) = -B(235) -! JVS(568) = Jac_FULL(98,58) - JVS(568) = -B(109) -! JVS(569) = Jac_FULL(98,59) - JVS(569) = -B(311) -! JVS(570) = Jac_FULL(98,60) - JVS(570) = B(42)-B(43) -! JVS(571) = Jac_FULL(98,61) - JVS(571) = -B(136) -! JVS(572) = Jac_FULL(98,63) - JVS(572) = -B(55)+0.39*B(86) -! JVS(573) = Jac_FULL(98,64) - JVS(573) = -B(158)+B(160) -! JVS(574) = Jac_FULL(98,65) - JVS(574) = -B(161) -! JVS(575) = Jac_FULL(98,66) - JVS(575) = -B(176) -! JVS(576) = Jac_FULL(98,67) - JVS(576) = -B(267) -! JVS(577) = Jac_FULL(98,68) - JVS(577) = -B(119) -! JVS(578) = Jac_FULL(98,69) - JVS(578) = 2*B(60)-B(61)+B(75) -! JVS(579) = Jac_FULL(98,70) - JVS(579) = -B(265) -! JVS(580) = Jac_FULL(98,71) - JVS(580) = 0 -! JVS(581) = Jac_FULL(98,72) - JVS(581) = -B(307) -! JVS(582) = Jac_FULL(98,73) - JVS(582) = -B(104)+B(106) -! JVS(583) = Jac_FULL(98,75) - JVS(583) = 0 -! JVS(584) = Jac_FULL(98,76) - JVS(584) = -B(237) -! JVS(585) = Jac_FULL(98,77) - JVS(585) = -B(280) -! JVS(586) = Jac_FULL(98,78) - JVS(586) = -B(116)+B(118) -! JVS(587) = Jac_FULL(98,79) - JVS(587) = -B(48)+B(87) -! JVS(588) = Jac_FULL(98,80) - JVS(588) = -B(107) -! JVS(589) = Jac_FULL(98,81) - JVS(589) = -B(231)+0.08*B(233) -! JVS(590) = Jac_FULL(98,83) - JVS(590) = 0.3*B(201)-B(203)+0.13*B(205) -! JVS(591) = Jac_FULL(98,84) - JVS(591) = -B(222) -! JVS(592) = Jac_FULL(98,85) - JVS(592) = 0.15*B(255)-B(257)+0.57*B(259) -! JVS(593) = Jac_FULL(98,86) - JVS(593) = -B(211)+0.5*B(213) -! JVS(594) = Jac_FULL(98,87) - JVS(594) = 0.1*B(193)-B(195)+0.1*B(197) -! JVS(595) = Jac_FULL(98,88) - JVS(595) = 0 -! JVS(596) = Jac_FULL(98,89) - JVS(596) = -B(187) -! JVS(597) = Jac_FULL(98,90) - JVS(597) = -B(242)+0.266*B(244) -! JVS(598) = Jac_FULL(98,91) - JVS(598) = -B(248)+0.268*B(250) -! JVS(599) = Jac_FULL(98,92) - JVS(599) = B(163)-B(165) -! JVS(600) = Jac_FULL(98,93) - JVS(600) = B(138)-B(140) -! JVS(601) = Jac_FULL(98,94) - JVS(601) = -B(101) -! JVS(602) = Jac_FULL(98,95) - JVS(602) = -B(121)+B(125) -! JVS(603) = Jac_FULL(98,96) - JVS(603) = -B(19)+B(21)+0.1*B(198)+0.13*B(206)+0.5*B(214)+0.08*B(234)+0.266*B(245)+0.268*B(251)+0.57*B(260) -! JVS(604) = Jac_FULL(98,97) - JVS(604) = 0 -! JVS(605) = Jac_FULL(98,98) - JVS(605) = -B(20)-B(40)-B(44)-B(46)-B(49)-B(56)-B(62)-B(66)-B(67)-2*B(69)-2*B(70)-B(71)-B(79)-B(102)-B(105)-B(108)& - &-B(110)-B(117)-B(120)-B(122)-B(137)-B(141)-B(159)-B(162)-B(166)-B(177)-B(188)-B(196)-B(204)-B(212)-B(218)& - &-B(223)-B(232)-B(236)-B(238)-B(243)-B(249)-B(258)-B(264)-B(266)-B(268)-B(281)-B(308)-B(312) -! JVS(606) = Jac_FULL(98,99) - JVS(606) = 0 -! JVS(607) = Jac_FULL(98,100) - JVS(607) = -B(41)+B(50) -! JVS(608) = Jac_FULL(98,101) - JVS(608) = -B(47) -! JVS(609) = Jac_FULL(98,102) - JVS(609) = 0 -! JVS(610) = Jac_FULL(98,103) - JVS(610) = -B(80) -! JVS(611) = Jac_FULL(98,104) - JVS(611) = 0 -! JVS(612) = Jac_FULL(98,105) - JVS(612) = -B(68)+B(73)+B(76)+B(126)+B(139)+B(164)+0.1*B(194)+0.3*B(202)+0.15*B(256) -! JVS(613) = Jac_FULL(98,106) - JVS(613) = B(22)+B(51)-B(72)+B(74) -! JVS(614) = Jac_FULL(98,107) - JVS(614) = 0 -! JVS(615) = Jac_FULL(99,66) - JVS(615) = B(174)+B(175) -! JVS(616) = Jac_FULL(99,85) - JVS(616) = 0.39*B(259) -! JVS(617) = Jac_FULL(99,90) - JVS(617) = 0.25*B(240)+0.2*B(244) -! JVS(618) = Jac_FULL(99,91) - JVS(618) = 0.25*B(248)+0.075*B(252) -! JVS(619) = Jac_FULL(99,92) - JVS(619) = B(163)+B(165)+B(167)+B(301) -! JVS(620) = Jac_FULL(99,94) - JVS(620) = 0 -! JVS(621) = Jac_FULL(99,96) - JVS(621) = 0.2*B(245)+0.39*B(260) -! JVS(622) = Jac_FULL(99,97) - JVS(622) = -B(185) -! JVS(623) = Jac_FULL(99,98) - JVS(623) = B(166)+0.25*B(249) -! JVS(624) = Jac_FULL(99,99) - JVS(624) = -B(170)-B(172)-B(178)-B(180)-B(182)-2*B(184)-B(186) -! JVS(625) = Jac_FULL(99,100) - JVS(625) = -B(171) -! JVS(626) = Jac_FULL(99,101) - JVS(626) = -B(173) -! JVS(627) = Jac_FULL(99,102) - JVS(627) = B(302) -! JVS(628) = Jac_FULL(99,103) - JVS(628) = B(168)+0.075*B(253) -! JVS(629) = Jac_FULL(99,104) - JVS(629) = -B(183) -! JVS(630) = Jac_FULL(99,105) - JVS(630) = B(164)+0.25*B(241) -! JVS(631) = Jac_FULL(99,106) - JVS(631) = -B(179) -! JVS(632) = Jac_FULL(99,107) - JVS(632) = -B(181) -! JVS(633) = Jac_FULL(100,60) - JVS(633) = B(42)+B(45) -! JVS(634) = Jac_FULL(100,62) - JVS(634) = -B(219) -! JVS(635) = Jac_FULL(100,71) - JVS(635) = -B(132) -! JVS(636) = Jac_FULL(100,75) - JVS(636) = -B(276) -! JVS(637) = Jac_FULL(100,88) - JVS(637) = -B(91) -! JVS(638) = Jac_FULL(100,89) - JVS(638) = 0 -! JVS(639) = Jac_FULL(100,90) - JVS(639) = 0.2*B(269) -! JVS(640) = Jac_FULL(100,91) - JVS(640) = 0 -! JVS(641) = Jac_FULL(100,94) - JVS(641) = 0 -! JVS(642) = Jac_FULL(100,95) - JVS(642) = 0 -! JVS(643) = Jac_FULL(100,96) - JVS(643) = -B(3) -! JVS(644) = Jac_FULL(100,97) - JVS(644) = -B(145) -! JVS(645) = Jac_FULL(100,98) - JVS(645) = -B(40) -! JVS(646) = Jac_FULL(100,99) - JVS(646) = -B(170) -! JVS(647) = Jac_FULL(100,100) - JVS(647) = -B(4)-B(9)-B(25)-2*B(36)-B(37)-B(41)-B(50)-B(89)-B(92)-B(111)-B(133)-B(146)-B(171)-B(220)-B(277) -! JVS(648) = Jac_FULL(100,101) - JVS(648) = B(1)+B(5)+B(27)-B(38)+0.2*B(270) -! JVS(649) = Jac_FULL(100,102) - JVS(649) = 0 -! JVS(650) = Jac_FULL(100,103) - JVS(650) = B(24)-B(26)+B(28) -! JVS(651) = Jac_FULL(100,104) - JVS(651) = -B(90) -! JVS(652) = Jac_FULL(100,105) - JVS(652) = B(6)-B(10) -! JVS(653) = Jac_FULL(100,106) - JVS(653) = -B(51) -! JVS(654) = Jac_FULL(100,107) - JVS(654) = -B(112) -! JVS(655) = Jac_FULL(101,51) - JVS(655) = B(149)+B(150) -! JVS(656) = Jac_FULL(101,56) - JVS(656) = B(35)+B(88) -! JVS(657) = Jac_FULL(101,60) - JVS(657) = B(43)+B(45) -! JVS(658) = Jac_FULL(101,62) - JVS(658) = 0.9*B(219) -! JVS(659) = Jac_FULL(101,63) - JVS(659) = B(54)+B(55)+0.61*B(86) -! JVS(660) = Jac_FULL(101,66) - JVS(660) = B(174)+B(175)+B(176) -! JVS(661) = Jac_FULL(101,71) - JVS(661) = B(132) -! JVS(662) = Jac_FULL(101,74) - JVS(662) = -B(226) -! JVS(663) = Jac_FULL(101,75) - JVS(663) = B(276) -! JVS(664) = Jac_FULL(101,79) - JVS(664) = B(87) -! JVS(665) = Jac_FULL(101,82) - JVS(665) = -B(191) -! JVS(666) = Jac_FULL(101,83) - JVS(666) = B(207) -! JVS(667) = Jac_FULL(101,84) - JVS(667) = 0 -! JVS(668) = Jac_FULL(101,85) - JVS(668) = 0.47*B(261) -! JVS(669) = Jac_FULL(101,86) - JVS(669) = B(215) -! JVS(670) = Jac_FULL(101,87) - JVS(670) = B(199) -! JVS(671) = Jac_FULL(101,89) - JVS(671) = 0 -! JVS(672) = Jac_FULL(101,90) - JVS(672) = 0.2*B(246)-B(269) -! JVS(673) = Jac_FULL(101,91) - JVS(673) = 0 -! JVS(674) = Jac_FULL(101,92) - JVS(674) = 0 -! JVS(675) = Jac_FULL(101,93) - JVS(675) = 0 -! JVS(676) = Jac_FULL(101,94) - JVS(676) = B(103) -! JVS(677) = Jac_FULL(101,95) - JVS(677) = 0 -! JVS(678) = Jac_FULL(101,96) - JVS(678) = B(3)-B(11)+B(83) -! JVS(679) = Jac_FULL(101,97) - JVS(679) = B(145)-B(147) -! JVS(680) = Jac_FULL(101,98) - JVS(680) = B(44)-B(46)+B(56)+B(79)+B(177) -! JVS(681) = Jac_FULL(101,99) - JVS(681) = B(170)-B(172) -! JVS(682) = Jac_FULL(101,100) - JVS(682) = B(4)+B(9)+2*B(25)+2*B(36)-B(37)+B(50)+B(89)+B(111)+B(133)+B(146)+B(171)+0.9*B(220)+B(277) -! JVS(683) = Jac_FULL(101,101) - JVS(683) = -B(1)-B(5)-B(7)-B(12)-B(29)-B(38)-B(47)-B(52)-B(148)-B(173)-B(192)-B(227)-B(270) -! JVS(684) = Jac_FULL(101,102) - JVS(684) = 0 -! JVS(685) = Jac_FULL(101,103) - JVS(685) = B(23)+2*B(26)-B(30)+B(77)+B(80)+B(84)+2*B(85)+B(200)+B(208)+B(216)+0.2*B(247)+0.47*B(262) -! JVS(686) = Jac_FULL(101,104) - JVS(686) = B(90) -! JVS(687) = Jac_FULL(101,105) - JVS(687) = -B(6)-B(8)+B(10)+B(78) -! JVS(688) = Jac_FULL(101,106) - JVS(688) = B(51)-B(53) -! JVS(689) = Jac_FULL(101,107) - JVS(689) = B(112) -! JVS(690) = Jac_FULL(102,49) - JVS(690) = 2*B(271) -! JVS(691) = Jac_FULL(102,52) - JVS(691) = B(272) -! JVS(692) = Jac_FULL(102,58) - JVS(692) = -B(283) -! JVS(693) = Jac_FULL(102,67) - JVS(693) = -B(287) -! JVS(694) = Jac_FULL(102,68) - JVS(694) = -B(303) -! JVS(695) = Jac_FULL(102,70) - JVS(695) = -B(305) -! JVS(696) = Jac_FULL(102,72) - JVS(696) = B(307) -! JVS(697) = Jac_FULL(102,75) - JVS(697) = 1.4*B(275)+B(276) -! JVS(698) = Jac_FULL(102,77) - JVS(698) = B(280)+B(282) -! JVS(699) = Jac_FULL(102,83) - JVS(699) = -B(289) -! JVS(700) = Jac_FULL(102,86) - JVS(700) = -B(293) -! JVS(701) = Jac_FULL(102,87) - JVS(701) = -B(291) -! JVS(702) = Jac_FULL(102,89) - JVS(702) = -B(285) -! JVS(703) = Jac_FULL(102,90) - JVS(703) = -B(295) -! JVS(704) = Jac_FULL(102,91) - JVS(704) = 0 -! JVS(705) = Jac_FULL(102,92) - JVS(705) = -B(301) -! JVS(706) = Jac_FULL(102,93) - JVS(706) = -B(299) -! JVS(707) = Jac_FULL(102,94) - JVS(707) = 0 -! JVS(708) = Jac_FULL(102,95) - JVS(708) = -B(297) -! JVS(709) = Jac_FULL(102,96) - JVS(709) = -B(273) -! JVS(710) = Jac_FULL(102,97) - JVS(710) = 0 -! JVS(711) = Jac_FULL(102,98) - JVS(711) = B(281)+B(308) -! JVS(712) = Jac_FULL(102,99) - JVS(712) = 0 -! JVS(713) = Jac_FULL(102,100) - JVS(713) = B(277) -! JVS(714) = Jac_FULL(102,101) - JVS(714) = 0 -! JVS(715) = Jac_FULL(102,102) - JVS(715) = -B(274)-B(284)-B(286)-B(288)-B(290)-B(292)-B(294)-B(296)-B(298)-B(300)-B(302)-B(304)-B(306) -! JVS(716) = Jac_FULL(102,103) - JVS(716) = 0 -! JVS(717) = Jac_FULL(102,104) - JVS(717) = 0 -! JVS(718) = Jac_FULL(102,105) - JVS(718) = 0 -! JVS(719) = Jac_FULL(102,106) - JVS(719) = 0 -! JVS(720) = Jac_FULL(102,107) - JVS(720) = 0 -! JVS(721) = Jac_FULL(103,56) - JVS(721) = B(35)+B(88) -! JVS(722) = Jac_FULL(103,63) - JVS(722) = 0.39*B(86) -! JVS(723) = Jac_FULL(103,79) - JVS(723) = B(48) -! JVS(724) = Jac_FULL(103,83) - JVS(724) = -B(207) -! JVS(725) = Jac_FULL(103,84) - JVS(725) = -B(224) -! JVS(726) = Jac_FULL(103,85) - JVS(726) = -B(261) -! JVS(727) = Jac_FULL(103,86) - JVS(727) = -B(215) -! JVS(728) = Jac_FULL(103,87) - JVS(728) = -B(199) -! JVS(729) = Jac_FULL(103,90) - JVS(729) = -B(246) -! JVS(730) = Jac_FULL(103,91) - JVS(730) = -B(252) -! JVS(731) = Jac_FULL(103,92) - JVS(731) = -B(167) -! JVS(732) = Jac_FULL(103,93) - JVS(732) = -B(142) -! JVS(733) = Jac_FULL(103,94) - JVS(733) = 0 -! JVS(734) = Jac_FULL(103,95) - JVS(734) = -B(127) -! JVS(735) = Jac_FULL(103,96) - JVS(735) = B(11)-B(83) -! JVS(736) = Jac_FULL(103,97) - JVS(736) = 0 -! JVS(737) = Jac_FULL(103,98) - JVS(737) = B(49)-B(79) -! JVS(738) = Jac_FULL(103,99) - JVS(738) = 0 -! JVS(739) = Jac_FULL(103,100) - JVS(739) = -B(25) -! JVS(740) = Jac_FULL(103,101) - JVS(740) = B(7)+B(12)-B(27)-B(29) -! JVS(741) = Jac_FULL(103,102) - JVS(741) = 0 -! JVS(742) = Jac_FULL(103,103) - JVS(742) = -B(23)-B(24)-B(26)-B(28)-B(30)-B(77)-B(80)-B(81)-B(84)-2*B(85)-B(128)-B(143)-B(168)-B(200)-B(208)-B(216)& - &-B(225)-B(247)-B(253)-B(262) -! JVS(743) = Jac_FULL(103,104) - JVS(743) = 0 -! JVS(744) = Jac_FULL(103,105) - JVS(744) = B(8)-B(78) -! JVS(745) = Jac_FULL(103,106) - JVS(745) = -B(82) -! JVS(746) = Jac_FULL(103,107) - JVS(746) = 0 -! JVS(747) = Jac_FULL(104,53) - JVS(747) = 0.08*B(217) -! JVS(748) = Jac_FULL(104,57) - JVS(748) = 0.5*B(235) -! JVS(749) = Jac_FULL(104,67) - JVS(749) = 0.991*B(267)+0.991*B(287) -! JVS(750) = Jac_FULL(104,70) - JVS(750) = 0.1*B(265) -! JVS(751) = Jac_FULL(104,73) - JVS(751) = B(104) -! JVS(752) = Jac_FULL(104,76) - JVS(752) = B(237) -! JVS(753) = Jac_FULL(104,78) - JVS(753) = 0.3*B(116) -! JVS(754) = Jac_FULL(104,81) - JVS(754) = B(231)+0.03*B(233) -! JVS(755) = Jac_FULL(104,82) - JVS(755) = 0.96*B(189) -! JVS(756) = Jac_FULL(104,83) - JVS(756) = 0.7*B(201)+B(203)+B(207)+2*B(289) -! JVS(757) = Jac_FULL(104,84) - JVS(757) = 0.6*B(222) -! JVS(758) = Jac_FULL(104,85) - JVS(758) = 1.25*B(257)+0.76*B(259)+1.03*B(261) -! JVS(759) = Jac_FULL(104,86) - JVS(759) = 0.1*B(209)+B(211)+1.7*B(293) -! JVS(760) = Jac_FULL(104,87) - JVS(760) = 0.2*B(193)+0.8*B(195)+0.22*B(197)+0.91*B(199)+2*B(291) -! JVS(761) = Jac_FULL(104,88) - JVS(761) = -B(99) -! JVS(762) = Jac_FULL(104,89) - JVS(762) = 0.87*B(187)+0.87*B(285) -! JVS(763) = Jac_FULL(104,90) - JVS(763) = 0.25*B(240)+0.991*B(242)+0.2*B(244)+B(246)+B(269)+B(295) -! JVS(764) = Jac_FULL(104,91) - JVS(764) = 0.713*B(248)+0.064*B(250)+0.075*B(252)+0.7*B(254) -! JVS(765) = Jac_FULL(104,94) - JVS(765) = 0 -! JVS(766) = Jac_FULL(104,95) - JVS(766) = 0 -! JVS(767) = Jac_FULL(104,96) - JVS(767) = 0.22*B(198)+0.03*B(234)+0.2*B(245)+0.064*B(251)+0.76*B(260) -! JVS(768) = Jac_FULL(104,97) - JVS(768) = -B(155)+B(185) -! JVS(769) = Jac_FULL(104,98) - JVS(769) = B(105)+0.3*B(117)+0.87*B(188)+0.8*B(196)+B(204)+B(212)+0.08*B(218)+0.6*B(223)+B(232)+0.5*B(236)+B(238)& - &+0.991*B(243)+0.713*B(249)+1.25*B(258)+0.1*B(266)+0.991*B(268) -! JVS(770) = Jac_FULL(104,99) - JVS(770) = B(170)+0.9*B(180)-B(182)+2*B(184)+B(186) -! JVS(771) = Jac_FULL(104,100) - JVS(771) = -B(89)+B(171) -! JVS(772) = Jac_FULL(104,101) - JVS(772) = B(270) -! JVS(773) = Jac_FULL(104,102) - JVS(773) = 0.87*B(286)+0.991*B(288)+2*B(290)+2*B(292)+1.7*B(294)+B(296) -! JVS(774) = Jac_FULL(104,103) - JVS(774) = 0.91*B(200)+B(208)+B(247)+0.075*B(253)+1.03*B(262) -! JVS(775) = Jac_FULL(104,104) - JVS(775) = -B(90)-B(93)-2*B(97)-B(100)-B(156)-B(183) -! JVS(776) = Jac_FULL(104,105) - JVS(776) = 0.2*B(194)+0.7*B(202)+0.1*B(210)+0.25*B(241) -! JVS(777) = Jac_FULL(104,106) - JVS(777) = -B(94) -! JVS(778) = Jac_FULL(104,107) - JVS(778) = 0.9*B(181) -! JVS(779) = Jac_FULL(105,55) - JVS(779) = B(15) -! JVS(780) = Jac_FULL(105,69) - JVS(780) = -B(75) -! JVS(781) = Jac_FULL(105,83) - JVS(781) = -B(201) -! JVS(782) = Jac_FULL(105,85) - JVS(782) = -B(255) -! JVS(783) = Jac_FULL(105,86) - JVS(783) = -B(209)+0.5*B(213) -! JVS(784) = Jac_FULL(105,87) - JVS(784) = -B(193) -! JVS(785) = Jac_FULL(105,90) - JVS(785) = -B(240) -! JVS(786) = Jac_FULL(105,92) - JVS(786) = -B(163) -! JVS(787) = Jac_FULL(105,93) - JVS(787) = -B(138) -! JVS(788) = Jac_FULL(105,94) - JVS(788) = 0 -! JVS(789) = Jac_FULL(105,95) - JVS(789) = -B(125) -! JVS(790) = Jac_FULL(105,96) - JVS(790) = B(13)+0.5*B(214) -! JVS(791) = Jac_FULL(105,97) - JVS(791) = 0 -! JVS(792) = Jac_FULL(105,98) - JVS(792) = -B(67)+B(69) -! JVS(793) = Jac_FULL(105,99) - JVS(793) = 0 -! JVS(794) = Jac_FULL(105,100) - JVS(794) = -B(9) -! JVS(795) = Jac_FULL(105,101) - JVS(795) = B(1)-B(5)-B(7) -! JVS(796) = Jac_FULL(105,102) - JVS(796) = 0 -! JVS(797) = Jac_FULL(105,103) - JVS(797) = B(23)-B(77) -! JVS(798) = Jac_FULL(105,104) - JVS(798) = 0 -! JVS(799) = Jac_FULL(105,105) - JVS(799) = -B(2)-B(6)-B(8)-B(10)-B(68)-B(73)-B(76)-B(78)-B(126)-B(139)-B(164)-B(194)-B(202)-B(210)-B(241)-B(256) -! JVS(800) = Jac_FULL(105,106) - JVS(800) = -B(74) -! JVS(801) = Jac_FULL(105,107) - JVS(801) = 0 -! JVS(802) = Jac_FULL(106,50) - JVS(802) = B(263) -! JVS(803) = Jac_FULL(106,53) - JVS(803) = 0.44*B(217) -! JVS(804) = Jac_FULL(106,54) - JVS(804) = B(63)+B(65) -! JVS(805) = Jac_FULL(106,55) - JVS(805) = B(64) -! JVS(806) = Jac_FULL(106,57) - JVS(806) = 0.7*B(235) -! JVS(807) = Jac_FULL(106,61) - JVS(807) = B(136) -! JVS(808) = Jac_FULL(106,62) - JVS(808) = 0.9*B(219)+B(221) -! JVS(809) = Jac_FULL(106,63) - JVS(809) = B(54)+0.61*B(86) -! JVS(810) = Jac_FULL(106,67) - JVS(810) = B(267)+B(287) -! JVS(811) = Jac_FULL(106,68) - JVS(811) = B(119)+B(303) -! JVS(812) = Jac_FULL(106,69) - JVS(812) = B(61)+B(75) -! JVS(813) = Jac_FULL(106,70) - JVS(813) = B(265)+B(305) -! JVS(814) = Jac_FULL(106,71) - JVS(814) = B(131)+B(132)-B(134) -! JVS(815) = Jac_FULL(106,73) - JVS(815) = B(106) -! JVS(816) = Jac_FULL(106,74) - JVS(816) = -B(228) -! JVS(817) = Jac_FULL(106,75) - JVS(817) = -B(278) -! JVS(818) = Jac_FULL(106,76) - JVS(818) = B(239) -! JVS(819) = Jac_FULL(106,77) - JVS(819) = B(282) -! JVS(820) = Jac_FULL(106,78) - JVS(820) = 0.3*B(116)+B(118) -! JVS(821) = Jac_FULL(106,80) - JVS(821) = B(107) -! JVS(822) = Jac_FULL(106,81) - JVS(822) = B(230)+2*B(231)+0.76*B(233) -! JVS(823) = Jac_FULL(106,82) - JVS(823) = 0.94*B(189)+B(190) -! JVS(824) = Jac_FULL(106,83) - JVS(824) = 1.7*B(201)+B(203)+0.13*B(205)+B(289) -! JVS(825) = Jac_FULL(106,84) - JVS(825) = 0.6*B(222) -! JVS(826) = Jac_FULL(106,85) - JVS(826) = 0.75*B(257)+0.07*B(259)+0.28*B(261) -! JVS(827) = Jac_FULL(106,86) - JVS(827) = 0.1*B(209)+B(211)+0.5*B(213)+B(215)+B(293) -! JVS(828) = Jac_FULL(106,87) - JVS(828) = 0.3*B(193)+0.95*B(195)+0.44*B(197)+B(291) -! JVS(829) = Jac_FULL(106,88) - JVS(829) = -B(95) -! JVS(830) = Jac_FULL(106,89) - JVS(830) = 0.11*B(187)+0.11*B(285) -! JVS(831) = Jac_FULL(106,90) - JVS(831) = 0.25*B(240)+0.912*B(242)+0.066*B(244)+0.8*B(246)+0.8*B(269)+B(295) -! JVS(832) = Jac_FULL(106,91) - JVS(832) = 0.503*B(248)+0.154*B(250)+0.925*B(252)+1.033*B(254) -! JVS(833) = Jac_FULL(106,92) - JVS(833) = B(169) -! JVS(834) = Jac_FULL(106,93) - JVS(834) = B(144) -! JVS(835) = Jac_FULL(106,94) - JVS(835) = B(101)+B(103) -! JVS(836) = Jac_FULL(106,95) - JVS(836) = B(121)+2*B(123)+B(125)+B(127)-B(129)+B(297) -! JVS(837) = Jac_FULL(106,96) - JVS(837) = B(19)-B(21)+0.44*B(198)+0.13*B(206)+0.5*B(214)+0.76*B(234)+0.066*B(245)+0.154*B(251)+0.07*B(260) -! JVS(838) = Jac_FULL(106,97) - JVS(838) = -B(151)+0.9*B(153)+B(185) -! JVS(839) = Jac_FULL(106,98) - JVS(839) = B(20)+B(62)+B(66)+B(67)-B(71)+B(79)+B(102)+B(108)+0.3*B(117)+B(120)+B(122)+B(137)+0.11*B(188)+0.95*B(196)& - &+B(204)+B(212)+0.44*B(218)+0.6*B(223)+2*B(232)+0.7*B(236)+0.912*B(243)+0.503*B(249)+0.75*B(258)+B(264)& - &+B(266)+B(268) -! JVS(840) = Jac_FULL(106,99) - JVS(840) = B(170)-B(178)+B(180)+2*B(184)+B(186) -! JVS(841) = Jac_FULL(106,100) - JVS(841) = -B(50)+B(111)+B(133)+B(171)+0.9*B(220) -! JVS(842) = Jac_FULL(106,101) - JVS(842) = -B(52)+0.8*B(270) -! JVS(843) = Jac_FULL(106,102) - JVS(843) = 0.11*B(286)+B(288)+B(290)+B(292)+B(294)+B(296)+B(298)+B(304)+B(306) -! JVS(844) = Jac_FULL(106,103) - JVS(844) = B(80)-B(81)+B(128)+B(216)+0.8*B(247)+0.925*B(253)+0.28*B(262) -! JVS(845) = Jac_FULL(106,104) - JVS(845) = -B(93) -! JVS(846) = Jac_FULL(106,105) - JVS(846) = B(68)-B(73)+B(76)+B(126)+0.3*B(194)+1.7*B(202)+0.1*B(210)+0.25*B(241) -! JVS(847) = Jac_FULL(106,106) - JVS(847) = -B(22)-B(51)-B(53)-2*B(57)-2*B(58)-B(72)-B(74)-B(82)-B(94)-B(96)-B(113)-B(130)-B(135)-B(152)-B(179)-B(229)& - &-B(279) -! JVS(848) = Jac_FULL(106,107) - JVS(848) = B(112)-B(114)+0.74*B(115)+0.9*B(154)+B(181) -! JVS(849) = Jac_FULL(107,58) - JVS(849) = B(109)+B(283) -! JVS(850) = Jac_FULL(107,64) - JVS(850) = B(160) -! JVS(851) = Jac_FULL(107,65) - JVS(851) = B(161) -! JVS(852) = Jac_FULL(107,78) - JVS(852) = 0.7*B(116) -! JVS(853) = Jac_FULL(107,92) - JVS(853) = B(169) -! JVS(854) = Jac_FULL(107,93) - JVS(854) = B(144) -! JVS(855) = Jac_FULL(107,94) - JVS(855) = 0 -! JVS(856) = Jac_FULL(107,95) - JVS(856) = 0 -! JVS(857) = Jac_FULL(107,96) - JVS(857) = 0 -! JVS(858) = Jac_FULL(107,97) - JVS(858) = B(145)-0.1*B(153)+0.9*B(155)+2*B(157)+B(185) -! JVS(859) = Jac_FULL(107,98) - JVS(859) = B(110)+0.7*B(117)+B(162) -! JVS(860) = Jac_FULL(107,99) - JVS(860) = -B(180)+B(186) -! JVS(861) = Jac_FULL(107,100) - JVS(861) = -B(111)+B(146) -! JVS(862) = Jac_FULL(107,101) - JVS(862) = 0 -! JVS(863) = Jac_FULL(107,102) - JVS(863) = B(284) -! JVS(864) = Jac_FULL(107,103) - JVS(864) = 0 -! JVS(865) = Jac_FULL(107,104) - JVS(865) = 0.9*B(156) -! JVS(866) = Jac_FULL(107,105) - JVS(866) = 0 -! JVS(867) = Jac_FULL(107,106) - JVS(867) = -B(113) -! JVS(868) = Jac_FULL(107,107) - JVS(868) = -B(112)-B(114)-2*B(115)-0.1*B(154)-B(181) - -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(53)+JVS(3)*UV(98) - JUV(2) = JVS(4)*UV(2)+JVS(5)*UV(53)+JVS(6)*UV(98) - JUV(3) = JVS(7)*UV(3)+JVS(8)*UV(84)+JVS(9)*UV(98)+JVS(10)*UV(103) - JUV(4) = JVS(11)*UV(4)+JVS(12)*UV(57)+JVS(13)*UV(98) - JUV(5) = JVS(14)*UV(5)+JVS(15)*UV(57)+JVS(16)*UV(98) - JUV(6) = JVS(17)*UV(6)+JVS(18)*UV(90)+JVS(19)*UV(96)+JVS(20)*UV(98)+JVS(21)*UV(103)+JVS(22)*UV(105) - JUV(7) = JVS(23)*UV(7)+JVS(24)*UV(90)+JVS(25)*UV(96)+JVS(26)*UV(98)+JVS(27)*UV(103)+JVS(28)*UV(105) - JUV(8) = JVS(29)*UV(8)+JVS(30)*UV(50)+JVS(31)*UV(98) - JUV(9) = JVS(32)*UV(9)+JVS(33)*UV(50)+JVS(34)*UV(98) - JUV(10) = JVS(35)*UV(10)+JVS(36)*UV(85)+JVS(37)*UV(96)+JVS(38)*UV(98)+JVS(39)*UV(103)+JVS(40)*UV(105) - JUV(11) = JVS(41)*UV(11)+JVS(42)*UV(12)+JVS(43)*UV(98) - JUV(12) = JVS(44)*UV(12)+JVS(45)*UV(98) - JUV(13) = JVS(46)*UV(13)+JVS(47)*UV(15)+JVS(48)*UV(98) - JUV(14) = JVS(49)*UV(14)+JVS(50)*UV(15)+JVS(51)*UV(98) - JUV(15) = JVS(52)*UV(15)+JVS(53)*UV(98) - JUV(16) = JVS(54)*UV(16)+JVS(55)*UV(18)+JVS(56)*UV(98) - JUV(17) = JVS(57)*UV(17)+JVS(58)*UV(18)+JVS(59)*UV(98) - JUV(18) = JVS(60)*UV(18)+JVS(61)*UV(98) - JUV(19) = JVS(62)*UV(19)+JVS(63)*UV(23)+JVS(64)*UV(98) - JUV(20) = JVS(65)*UV(20)+JVS(66)*UV(23)+JVS(67)*UV(98) - JUV(21) = JVS(68)*UV(21)+JVS(69)*UV(23)+JVS(70)*UV(96) - JUV(22) = JVS(71)*UV(22)+JVS(72)*UV(23)+JVS(73)*UV(96) - JUV(23) = JVS(74)*UV(23)+JVS(75)*UV(96)+JVS(76)*UV(98) - JUV(24) = JVS(77)*UV(24)+JVS(78)*UV(29)+JVS(79)*UV(98) - JUV(25) = JVS(80)*UV(25)+JVS(81)*UV(29)+JVS(82)*UV(98) - JUV(26) = JVS(83)*UV(26)+JVS(84)*UV(29)+JVS(85)*UV(96) - JUV(27) = JVS(86)*UV(27)+JVS(87)*UV(29)+JVS(88)*UV(96) - JUV(28) = JVS(89)*UV(28)+JVS(90)*UV(29)+JVS(91)*UV(103) - JUV(29) = JVS(92)*UV(29)+JVS(93)*UV(96)+JVS(94)*UV(98)+JVS(95)*UV(103) - JUV(30) = JVS(96)*UV(30)+JVS(97)*UV(32)+JVS(98)*UV(98) - JUV(31) = JVS(99)*UV(31)+JVS(100)*UV(32)+JVS(101)*UV(98) - JUV(32) = JVS(102)*UV(32)+JVS(103)*UV(98) - JUV(33) = JVS(104)*UV(33)+JVS(105)*UV(34)+JVS(106)*UV(98) - JUV(34) = JVS(107)*UV(34)+JVS(108)*UV(98) - JUV(35) = JVS(109)*UV(35)+JVS(110)*UV(37)+JVS(111)*UV(98) - JUV(36) = JVS(112)*UV(36)+JVS(113)*UV(37)+JVS(114)*UV(98) - JUV(37) = JVS(115)*UV(37)+JVS(116)*UV(98) - JUV(38) = JVS(117)*UV(38)+JVS(118)*UV(59)+JVS(119)*UV(69)+JVS(120)*UV(96)+JVS(121)*UV(98) - JUV(39) = JVS(122)*UV(39)+JVS(123)*UV(40)+JVS(124)*UV(98) - JUV(40) = JVS(125)*UV(40)+JVS(126)*UV(41)+JVS(127)*UV(98) - JUV(41) = JVS(128)*UV(41)+JVS(129)*UV(42)+JVS(130)*UV(98) - JUV(42) = JVS(131)*UV(42)+JVS(132)*UV(98) - JUV(43) = JVS(133)*UV(43)+JVS(134)*UV(44)+JVS(135)*UV(98) - JUV(44) = JVS(136)*UV(44)+JVS(137)*UV(45)+JVS(138)*UV(98) - JUV(45) = JVS(139)*UV(45)+JVS(140)*UV(46)+JVS(141)*UV(98) - JUV(46) = JVS(142)*UV(46)+JVS(143)*UV(98) - JUV(47) = JVS(144)*UV(47)+JVS(145)*UV(80)+JVS(146)*UV(98) - JUV(48) = JVS(147)*UV(48)+JVS(148)*UV(53)+JVS(149)*UV(57)+JVS(150)*UV(61)+JVS(151)*UV(64)+JVS(152)*UV(65)+JVS(153)& - &*UV(67)+JVS(154)*UV(68)+JVS(155)*UV(70)+JVS(156)*UV(76)+JVS(157)*UV(78)+JVS(158)*UV(81)+JVS(159)*UV(83)& - &+JVS(160)*UV(84)+JVS(161)*UV(85)+JVS(162)*UV(86)+JVS(163)*UV(87)+JVS(164)*UV(89)+JVS(165)*UV(90)+JVS(166)& - &*UV(91)+JVS(167)*UV(92)+JVS(168)*UV(93)+JVS(169)*UV(95)+JVS(170)*UV(98) - JUV(49) = JVS(171)*UV(49)+JVS(172)*UV(75) - JUV(50) = JVS(173)*UV(50)+JVS(174)*UV(98) - JUV(51) = JVS(175)*UV(51)+JVS(176)*UV(97)+JVS(177)*UV(101) - JUV(52) = JVS(178)*UV(52)+JVS(179)*UV(75)+JVS(180)*UV(106) - JUV(53) = JVS(181)*UV(53)+JVS(182)*UV(98) - JUV(54) = JVS(183)*UV(54)+JVS(184)*UV(55)+JVS(185)*UV(98) - JUV(55) = JVS(186)*UV(54)+JVS(187)*UV(55)+JVS(188)*UV(96) - JUV(56) = JVS(190)*UV(56)+JVS(191)*UV(101)+JVS(192)*UV(103) - JUV(57) = JVS(193)*UV(57)+JVS(194)*UV(98) - JUV(58) = JVS(195)*UV(58)+JVS(196)*UV(98)+JVS(197)*UV(102) - JUV(59) = JVS(198)*UV(59)+JVS(199)*UV(69)+JVS(200)*UV(96)+JVS(201)*UV(98) - JUV(60) = JVS(202)*UV(60)+JVS(203)*UV(98)+JVS(204)*UV(100)+JVS(205)*UV(101) - JUV(61) = JVS(206)*UV(61)+JVS(207)*UV(71)+JVS(208)*UV(83)+JVS(209)*UV(96)+JVS(210)*UV(98)+JVS(211)*UV(100) - JUV(62) = JVS(212)*UV(53)+JVS(213)*UV(57)+JVS(214)*UV(62)+JVS(215)*UV(98)+JVS(216)*UV(100) - JUV(63) = JVS(217)*UV(63)+JVS(218)*UV(98)+JVS(219)*UV(101)+JVS(220)*UV(106) - JUV(64) = JVS(221)*UV(64)+JVS(222)*UV(97)+JVS(223)*UV(98)+JVS(224)*UV(99)+JVS(225)*UV(106) - JUV(65) = JVS(226)*UV(65)+JVS(227)*UV(97)+JVS(228)*UV(98)+JVS(229)*UV(99)+JVS(230)*UV(104)+JVS(231)*UV(106)+JVS(232)& - &*UV(107) - JUV(66) = JVS(233)*UV(66)+JVS(234)*UV(98)+JVS(235)*UV(99)+JVS(236)*UV(101) - JUV(67) = JVS(237)*UV(67)+JVS(238)*UV(98)+JVS(239)*UV(102) - JUV(68) = JVS(240)*UV(68)+JVS(241)*UV(98)+JVS(242)*UV(102)+JVS(243)*UV(107) - JUV(69) = JVS(244)*UV(59)+JVS(245)*UV(69)+JVS(247)*UV(98)+JVS(248)*UV(105)+JVS(249)*UV(106) - JUV(70) = JVS(250)*UV(70)+JVS(251)*UV(98)+JVS(252)*UV(102) - JUV(71) = JVS(253)*UV(71)+JVS(254)*UV(95)+JVS(255)*UV(100)+JVS(256)*UV(106) - JUV(72) = JVS(257)*UV(58)+JVS(258)*UV(67)+JVS(259)*UV(68)+JVS(260)*UV(70)+JVS(261)*UV(72)+JVS(262)*UV(86)+JVS(263)& - &*UV(89)+JVS(264)*UV(90)+JVS(265)*UV(92)+JVS(266)*UV(93)+JVS(267)*UV(95)+JVS(268)*UV(98)+JVS(269)*UV(102) - JUV(73) = JVS(271)*UV(73)+JVS(272)*UV(88)+JVS(273)*UV(98)+JVS(274)*UV(104)+JVS(275)*UV(106) - JUV(74) = JVS(276)*UV(74)+JVS(277)*UV(84)+JVS(278)*UV(98)+JVS(279)*UV(101)+JVS(280)*UV(103)+JVS(281)*UV(106) - JUV(75) = JVS(282)*UV(75)+JVS(283)*UV(96)+JVS(284)*UV(100)+JVS(285)*UV(102)+JVS(286)*UV(106) - JUV(76) = JVS(287)*UV(57)+JVS(288)*UV(76)+JVS(289)*UV(81)+JVS(290)*UV(91)+JVS(291)*UV(96)+JVS(292)*UV(98) - JUV(77) = JVS(293)*UV(77)+JVS(294)*UV(83)+JVS(295)*UV(86)+JVS(296)*UV(87)+JVS(297)*UV(90)+JVS(298)*UV(98)+JVS(299)& - &*UV(102) - JUV(78) = JVS(300)*UV(71)+JVS(301)*UV(78)+JVS(303)*UV(98)+JVS(305)*UV(106)+JVS(306)*UV(107) - JUV(79) = JVS(307)*UV(56)+JVS(308)*UV(79)+JVS(309)*UV(84)+JVS(310)*UV(91)+JVS(311)*UV(92)+JVS(312)*UV(93)+JVS(313)& - &*UV(94)+JVS(314)*UV(95)+JVS(315)*UV(98)+JVS(316)*UV(101)+JVS(317)*UV(103)+JVS(318)*UV(106) - JUV(80) = JVS(319)*UV(76)+JVS(320)*UV(77)+JVS(321)*UV(80)+JVS(322)*UV(81)+JVS(323)*UV(83)+JVS(324)*UV(85)+JVS(325)& - &*UV(86)+JVS(326)*UV(87)+JVS(327)*UV(90)+JVS(328)*UV(91)+JVS(329)*UV(92)+JVS(330)*UV(93)+JVS(331)*UV(95)& - &+JVS(332)*UV(96)+JVS(333)*UV(98)+JVS(334)*UV(102)+JVS(335)*UV(103)+JVS(336)*UV(105) - JUV(81) = JVS(337)*UV(62)+JVS(338)*UV(81)+JVS(339)*UV(84)+JVS(340)*UV(96)+JVS(341)*UV(98)+JVS(342)*UV(100) - JUV(82) = JVS(343)*UV(82)+JVS(344)*UV(89)+JVS(345)*UV(98)+JVS(346)*UV(101)+JVS(347)*UV(102) - JUV(83) = JVS(348)*UV(83)+JVS(349)*UV(96)+JVS(350)*UV(98)+JVS(351)*UV(102)+JVS(352)*UV(103)+JVS(353)*UV(105) - JUV(84) = JVS(354)*UV(53)+JVS(355)*UV(57)+JVS(356)*UV(62)+JVS(357)*UV(74)+JVS(358)*UV(84)+JVS(359)*UV(98)+JVS(362)& - &*UV(103)+JVS(363)*UV(106) - JUV(85) = JVS(364)*UV(85)+JVS(365)*UV(96)+JVS(366)*UV(98)+JVS(367)*UV(103)+JVS(368)*UV(105) - JUV(86) = JVS(369)*UV(86)+JVS(370)*UV(96)+JVS(371)*UV(98)+JVS(372)*UV(102)+JVS(373)*UV(103)+JVS(374)*UV(105) - JUV(87) = JVS(375)*UV(86)+JVS(376)*UV(87)+JVS(377)*UV(96)+JVS(378)*UV(98)+JVS(379)*UV(102)+JVS(380)*UV(103)+JVS(381)& - &*UV(105) - JUV(88) = JVS(382)*UV(67)+JVS(383)*UV(82)+JVS(384)*UV(85)+JVS(385)*UV(87)+JVS(386)*UV(88)+JVS(387)*UV(89)+JVS(388)& - &*UV(90)+JVS(389)*UV(96)+JVS(390)*UV(98)+JVS(391)*UV(100)+JVS(393)*UV(102)+JVS(394)*UV(103)+JVS(395)*UV(104)& - &+JVS(396)*UV(105)+JVS(397)*UV(106) - JUV(89) = JVS(398)*UV(57)+JVS(399)*UV(82)+JVS(400)*UV(85)+JVS(401)*UV(86)+JVS(402)*UV(87)+JVS(403)*UV(89)+JVS(404)& - &*UV(90)+JVS(405)*UV(91)+JVS(406)*UV(94)+JVS(407)*UV(96)+JVS(408)*UV(98)+JVS(409)*UV(101)+JVS(410)*UV(102)& - &+JVS(411)*UV(103)+JVS(412)*UV(105) - JUV(90) = JVS(413)*UV(90)+JVS(414)*UV(96)+JVS(415)*UV(98)+JVS(416)*UV(101)+JVS(417)*UV(102)+JVS(418)*UV(103)+JVS(419)& - &*UV(105) - JUV(91) = JVS(420)*UV(90)+JVS(421)*UV(91)+JVS(422)*UV(96)+JVS(423)*UV(98)+JVS(424)*UV(101)+JVS(425)*UV(102)+JVS(426)& - &*UV(103)+JVS(427)*UV(105) - JUV(92) = JVS(428)*UV(70)+JVS(429)*UV(73)+JVS(430)*UV(81)+JVS(431)*UV(82)+JVS(432)*UV(83)+JVS(434)*UV(85)+JVS(435)& - &*UV(86)+JVS(436)*UV(87)+JVS(438)*UV(89)+JVS(439)*UV(90)+JVS(440)*UV(91)+JVS(441)*UV(92)+JVS(442)*UV(94)& - &+JVS(443)*UV(96)+JVS(444)*UV(98)+JVS(446)*UV(101)+JVS(447)*UV(102)+JVS(448)*UV(103)+JVS(450)*UV(105) - JUV(93) = JVS(452)*UV(66)+JVS(453)*UV(67)+JVS(454)*UV(70)+JVS(455)*UV(73)+JVS(456)*UV(82)+JVS(457)*UV(86)+JVS(458)& - &*UV(87)+JVS(460)*UV(89)+JVS(462)*UV(91)+JVS(463)*UV(93)+JVS(464)*UV(94)+JVS(465)*UV(96)+JVS(466)*UV(97)& - &+JVS(467)*UV(98)+JVS(468)*UV(99)+JVS(469)*UV(100)+JVS(471)*UV(102)+JVS(472)*UV(103)+JVS(473)*UV(104)+JVS(474)& - &*UV(105)+JVS(476)*UV(107) - JUV(94) = JVS(477)*UV(62)+JVS(478)*UV(74)+JVS(479)*UV(82)+JVS(481)*UV(85)+JVS(482)*UV(88)+JVS(484)*UV(90)+JVS(485)& - &*UV(91)+JVS(486)*UV(94)+JVS(488)*UV(98)+JVS(489)*UV(100)+JVS(490)*UV(101)+JVS(492)*UV(103) - JUV(95) = JVS(496)*UV(68)+JVS(497)*UV(70)+JVS(498)*UV(71)+JVS(499)*UV(78)+JVS(500)*UV(81)+JVS(501)*UV(83)+JVS(503)& - &*UV(85)+JVS(504)*UV(86)+JVS(505)*UV(87)+JVS(506)*UV(90)+JVS(507)*UV(91)+JVS(508)*UV(94)+JVS(509)*UV(95)& - &+JVS(510)*UV(96)+JVS(511)*UV(97)+JVS(512)*UV(98)+JVS(513)*UV(99)+JVS(514)*UV(100)+JVS(516)*UV(102)+JVS(517)& - &*UV(103)+JVS(519)*UV(105)+JVS(520)*UV(106)+JVS(521)*UV(107) - JUV(96) = JVS(522)*UV(59)+JVS(524)*UV(81)+JVS(525)*UV(83)+JVS(527)*UV(85)+JVS(528)*UV(86)+JVS(529)*UV(87)+JVS(530)& - &*UV(90)+JVS(531)*UV(91)+JVS(532)*UV(96)+JVS(533)*UV(97)+JVS(534)*UV(98)+JVS(535)*UV(99)+JVS(536)*UV(100)& - &+JVS(537)*UV(101)+JVS(538)*UV(102)+JVS(539)*UV(103)+JVS(540)*UV(105)+JVS(541)*UV(106) - JUV(97) = JVS(542)*UV(51)+JVS(543)*UV(64)+JVS(544)*UV(76)+JVS(545)*UV(81)+JVS(547)*UV(91)+JVS(548)*UV(93)+JVS(550)& - &*UV(96)+JVS(551)*UV(97)+JVS(552)*UV(98)+JVS(553)*UV(99)+JVS(554)*UV(100)+JVS(555)*UV(101)+JVS(556)*UV(102)& - &+JVS(557)*UV(103)+JVS(558)*UV(104)+JVS(559)*UV(105)+JVS(560)*UV(106)+JVS(561)*UV(107) - JUV(98) = JVS(562)*UV(50)+JVS(563)*UV(52)+JVS(564)*UV(53)+JVS(565)*UV(54)+JVS(566)*UV(55)+JVS(567)*UV(57)+JVS(568)& - &*UV(58)+JVS(569)*UV(59)+JVS(570)*UV(60)+JVS(571)*UV(61)+JVS(572)*UV(63)+JVS(573)*UV(64)+JVS(574)*UV(65)& - &+JVS(575)*UV(66)+JVS(576)*UV(67)+JVS(577)*UV(68)+JVS(578)*UV(69)+JVS(579)*UV(70)+JVS(581)*UV(72)+JVS(582)& - &*UV(73)+JVS(584)*UV(76)+JVS(585)*UV(77)+JVS(586)*UV(78)+JVS(587)*UV(79)+JVS(588)*UV(80)+JVS(589)*UV(81)& - &+JVS(590)*UV(83)+JVS(591)*UV(84)+JVS(592)*UV(85)+JVS(593)*UV(86)+JVS(594)*UV(87)+JVS(596)*UV(89)+JVS(597)& - &*UV(90)+JVS(598)*UV(91)+JVS(599)*UV(92)+JVS(600)*UV(93)+JVS(601)*UV(94)+JVS(602)*UV(95)+JVS(603)*UV(96)& - &+JVS(605)*UV(98)+JVS(607)*UV(100)+JVS(608)*UV(101)+JVS(610)*UV(103)+JVS(612)*UV(105)+JVS(613)*UV(106) - JUV(99) = JVS(615)*UV(66)+JVS(616)*UV(85)+JVS(617)*UV(90)+JVS(618)*UV(91)+JVS(619)*UV(92)+JVS(621)*UV(96)+JVS(622)& - &*UV(97)+JVS(623)*UV(98)+JVS(624)*UV(99)+JVS(625)*UV(100)+JVS(626)*UV(101)+JVS(627)*UV(102)+JVS(628)*UV(103)& - &+JVS(629)*UV(104)+JVS(630)*UV(105)+JVS(631)*UV(106)+JVS(632)*UV(107) - JUV(100) = JVS(633)*UV(60)+JVS(634)*UV(62)+JVS(635)*UV(71)+JVS(636)*UV(75)+JVS(637)*UV(88)+JVS(639)*UV(90)+JVS(643)& - &*UV(96)+JVS(644)*UV(97)+JVS(645)*UV(98)+JVS(646)*UV(99)+JVS(647)*UV(100)+JVS(648)*UV(101)+JVS(650)*UV(103)& - &+JVS(651)*UV(104)+JVS(652)*UV(105)+JVS(653)*UV(106)+JVS(654)*UV(107) - JUV(101) = JVS(655)*UV(51)+JVS(656)*UV(56)+JVS(657)*UV(60)+JVS(658)*UV(62)+JVS(659)*UV(63)+JVS(660)*UV(66)+JVS(661)& - &*UV(71)+JVS(662)*UV(74)+JVS(663)*UV(75)+JVS(664)*UV(79)+JVS(665)*UV(82)+JVS(666)*UV(83)+JVS(668)*UV(85)& - &+JVS(669)*UV(86)+JVS(670)*UV(87)+JVS(672)*UV(90)+JVS(676)*UV(94)+JVS(678)*UV(96)+JVS(679)*UV(97)+JVS(680)& - &*UV(98)+JVS(681)*UV(99)+JVS(682)*UV(100)+JVS(683)*UV(101)+JVS(685)*UV(103)+JVS(686)*UV(104)+JVS(687)*UV(105)& - &+JVS(688)*UV(106)+JVS(689)*UV(107) - JUV(102) = JVS(690)*UV(49)+JVS(691)*UV(52)+JVS(692)*UV(58)+JVS(693)*UV(67)+JVS(694)*UV(68)+JVS(695)*UV(70)+JVS(696)& - &*UV(72)+JVS(697)*UV(75)+JVS(698)*UV(77)+JVS(699)*UV(83)+JVS(700)*UV(86)+JVS(701)*UV(87)+JVS(702)*UV(89)& - &+JVS(703)*UV(90)+JVS(705)*UV(92)+JVS(706)*UV(93)+JVS(708)*UV(95)+JVS(709)*UV(96)+JVS(711)*UV(98)+JVS(713)& - &*UV(100)+JVS(715)*UV(102) - JUV(103) = JVS(721)*UV(56)+JVS(722)*UV(63)+JVS(723)*UV(79)+JVS(724)*UV(83)+JVS(725)*UV(84)+JVS(726)*UV(85)+JVS(727)& - &*UV(86)+JVS(728)*UV(87)+JVS(729)*UV(90)+JVS(730)*UV(91)+JVS(731)*UV(92)+JVS(732)*UV(93)+JVS(734)*UV(95)& - &+JVS(735)*UV(96)+JVS(737)*UV(98)+JVS(739)*UV(100)+JVS(740)*UV(101)+JVS(742)*UV(103)+JVS(744)*UV(105)& - &+JVS(745)*UV(106) - JUV(104) = JVS(747)*UV(53)+JVS(748)*UV(57)+JVS(749)*UV(67)+JVS(750)*UV(70)+JVS(751)*UV(73)+JVS(752)*UV(76)+JVS(753)& - &*UV(78)+JVS(754)*UV(81)+JVS(755)*UV(82)+JVS(756)*UV(83)+JVS(757)*UV(84)+JVS(758)*UV(85)+JVS(759)*UV(86)& - &+JVS(760)*UV(87)+JVS(761)*UV(88)+JVS(762)*UV(89)+JVS(763)*UV(90)+JVS(764)*UV(91)+JVS(767)*UV(96)+JVS(768)& - &*UV(97)+JVS(769)*UV(98)+JVS(770)*UV(99)+JVS(771)*UV(100)+JVS(772)*UV(101)+JVS(773)*UV(102)+JVS(774)*UV(103)& - &+JVS(775)*UV(104)+JVS(776)*UV(105)+JVS(777)*UV(106)+JVS(778)*UV(107) - JUV(105) = JVS(779)*UV(55)+JVS(780)*UV(69)+JVS(781)*UV(83)+JVS(782)*UV(85)+JVS(783)*UV(86)+JVS(784)*UV(87)+JVS(785)& - &*UV(90)+JVS(786)*UV(92)+JVS(787)*UV(93)+JVS(789)*UV(95)+JVS(790)*UV(96)+JVS(792)*UV(98)+JVS(794)*UV(100)& - &+JVS(795)*UV(101)+JVS(797)*UV(103)+JVS(799)*UV(105)+JVS(800)*UV(106) - JUV(106) = JVS(802)*UV(50)+JVS(803)*UV(53)+JVS(804)*UV(54)+JVS(805)*UV(55)+JVS(806)*UV(57)+JVS(807)*UV(61)+JVS(808)& - &*UV(62)+JVS(809)*UV(63)+JVS(810)*UV(67)+JVS(811)*UV(68)+JVS(812)*UV(69)+JVS(813)*UV(70)+JVS(814)*UV(71)& - &+JVS(815)*UV(73)+JVS(816)*UV(74)+JVS(817)*UV(75)+JVS(818)*UV(76)+JVS(819)*UV(77)+JVS(820)*UV(78)+JVS(821)& - &*UV(80)+JVS(822)*UV(81)+JVS(823)*UV(82)+JVS(824)*UV(83)+JVS(825)*UV(84)+JVS(826)*UV(85)+JVS(827)*UV(86)& - &+JVS(828)*UV(87)+JVS(829)*UV(88)+JVS(830)*UV(89)+JVS(831)*UV(90)+JVS(832)*UV(91)+JVS(833)*UV(92)+JVS(834)& - &*UV(93)+JVS(835)*UV(94)+JVS(836)*UV(95)+JVS(837)*UV(96)+JVS(838)*UV(97)+JVS(839)*UV(98)+JVS(840)*UV(99)& - &+JVS(841)*UV(100)+JVS(842)*UV(101)+JVS(843)*UV(102)+JVS(844)*UV(103)+JVS(845)*UV(104)+JVS(846)*UV(105)& - &+JVS(847)*UV(106)+JVS(848)*UV(107) - JUV(107) = JVS(849)*UV(58)+JVS(850)*UV(64)+JVS(851)*UV(65)+JVS(852)*UV(78)+JVS(853)*UV(92)+JVS(854)*UV(93)+JVS(858)& - &*UV(97)+JVS(859)*UV(98)+JVS(860)*UV(99)+JVS(861)*UV(100)+JVS(863)*UV(102)+JVS(865)*UV(104)+JVS(867)*UV(106)& - &+JVS(868)*UV(107) - -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(4)*UV(2) - JTUV(3) = JVS(7)*UV(3) - JTUV(4) = JVS(11)*UV(4) - JTUV(5) = JVS(14)*UV(5) - JTUV(6) = JVS(17)*UV(6) - JTUV(7) = JVS(23)*UV(7) - JTUV(8) = JVS(29)*UV(8) - JTUV(9) = JVS(32)*UV(9) - JTUV(10) = JVS(35)*UV(10) - JTUV(11) = JVS(41)*UV(11) - JTUV(12) = JVS(42)*UV(11)+JVS(44)*UV(12) - JTUV(13) = JVS(46)*UV(13) - JTUV(14) = JVS(49)*UV(14) - JTUV(15) = JVS(47)*UV(13)+JVS(50)*UV(14)+JVS(52)*UV(15) - JTUV(16) = JVS(54)*UV(16) - JTUV(17) = JVS(57)*UV(17) - JTUV(18) = JVS(55)*UV(16)+JVS(58)*UV(17)+JVS(60)*UV(18) - JTUV(19) = JVS(62)*UV(19) - JTUV(20) = JVS(65)*UV(20) - JTUV(21) = JVS(68)*UV(21) - JTUV(22) = JVS(71)*UV(22) - JTUV(23) = JVS(63)*UV(19)+JVS(66)*UV(20)+JVS(69)*UV(21)+JVS(72)*UV(22)+JVS(74)*UV(23) - JTUV(24) = JVS(77)*UV(24) - JTUV(25) = JVS(80)*UV(25) - JTUV(26) = JVS(83)*UV(26) - JTUV(27) = JVS(86)*UV(27) - JTUV(28) = JVS(89)*UV(28) - JTUV(29) = JVS(78)*UV(24)+JVS(81)*UV(25)+JVS(84)*UV(26)+JVS(87)*UV(27)+JVS(90)*UV(28)+JVS(92)*UV(29) - JTUV(30) = JVS(96)*UV(30) - JTUV(31) = JVS(99)*UV(31) - JTUV(32) = JVS(97)*UV(30)+JVS(100)*UV(31)+JVS(102)*UV(32) - JTUV(33) = JVS(104)*UV(33) - JTUV(34) = JVS(105)*UV(33)+JVS(107)*UV(34) - JTUV(35) = JVS(109)*UV(35) - JTUV(36) = JVS(112)*UV(36) - JTUV(37) = JVS(110)*UV(35)+JVS(113)*UV(36)+JVS(115)*UV(37) - JTUV(38) = JVS(117)*UV(38) - JTUV(39) = JVS(122)*UV(39) - JTUV(40) = JVS(123)*UV(39)+JVS(125)*UV(40) - JTUV(41) = JVS(126)*UV(40)+JVS(128)*UV(41) - JTUV(42) = JVS(129)*UV(41)+JVS(131)*UV(42) - JTUV(43) = JVS(133)*UV(43) - JTUV(44) = JVS(134)*UV(43)+JVS(136)*UV(44) - JTUV(45) = JVS(137)*UV(44)+JVS(139)*UV(45) - JTUV(46) = JVS(140)*UV(45)+JVS(142)*UV(46) - JTUV(47) = JVS(144)*UV(47) - JTUV(48) = JVS(147)*UV(48) - JTUV(49) = JVS(171)*UV(49)+JVS(690)*UV(102) - JTUV(50) = JVS(30)*UV(8)+JVS(33)*UV(9)+JVS(173)*UV(50)+JVS(562)*UV(98)+JVS(802)*UV(106) - JTUV(51) = JVS(175)*UV(51)+JVS(542)*UV(97)+JVS(655)*UV(101) - JTUV(52) = JVS(178)*UV(52)+JVS(563)*UV(98)+JVS(691)*UV(102) - JTUV(53) = JVS(2)*UV(1)+JVS(5)*UV(2)+JVS(148)*UV(48)+JVS(181)*UV(53)+JVS(212)*UV(62)+JVS(354)*UV(84)+JVS(564)*UV(98)& - &+JVS(747)*UV(104)+JVS(803)*UV(106) - JTUV(54) = JVS(183)*UV(54)+JVS(186)*UV(55)+JVS(565)*UV(98)+JVS(804)*UV(106) - JTUV(55) = JVS(184)*UV(54)+JVS(187)*UV(55)+JVS(566)*UV(98)+JVS(779)*UV(105)+JVS(805)*UV(106) - JTUV(56) = JVS(190)*UV(56)+JVS(307)*UV(79)+JVS(656)*UV(101)+JVS(721)*UV(103) - JTUV(57) = JVS(12)*UV(4)+JVS(15)*UV(5)+JVS(149)*UV(48)+JVS(193)*UV(57)+JVS(213)*UV(62)+JVS(287)*UV(76)+JVS(355)*UV(84)& - &+JVS(398)*UV(89)+JVS(567)*UV(98)+JVS(748)*UV(104)+JVS(806)*UV(106) - JTUV(58) = JVS(195)*UV(58)+JVS(257)*UV(72)+JVS(568)*UV(98)+JVS(692)*UV(102)+JVS(849)*UV(107) - JTUV(59) = JVS(118)*UV(38)+JVS(198)*UV(59)+JVS(244)*UV(69)+JVS(522)*UV(96)+JVS(569)*UV(98) - JTUV(60) = JVS(202)*UV(60)+JVS(570)*UV(98)+JVS(633)*UV(100)+JVS(657)*UV(101) - JTUV(61) = JVS(150)*UV(48)+JVS(206)*UV(61)+JVS(571)*UV(98)+JVS(807)*UV(106) - JTUV(62) = JVS(214)*UV(62)+JVS(337)*UV(81)+JVS(356)*UV(84)+JVS(477)*UV(94)+JVS(634)*UV(100)+JVS(658)*UV(101)+JVS(808)& - &*UV(106) - JTUV(63) = JVS(217)*UV(63)+JVS(572)*UV(98)+JVS(659)*UV(101)+JVS(722)*UV(103)+JVS(809)*UV(106) - JTUV(64) = JVS(151)*UV(48)+JVS(221)*UV(64)+JVS(543)*UV(97)+JVS(573)*UV(98)+JVS(850)*UV(107) - JTUV(65) = JVS(152)*UV(48)+JVS(226)*UV(65)+JVS(574)*UV(98)+JVS(851)*UV(107) - JTUV(66) = JVS(233)*UV(66)+JVS(452)*UV(93)+JVS(575)*UV(98)+JVS(615)*UV(99)+JVS(660)*UV(101) - JTUV(67) = JVS(153)*UV(48)+JVS(237)*UV(67)+JVS(258)*UV(72)+JVS(382)*UV(88)+JVS(453)*UV(93)+JVS(576)*UV(98)+JVS(693)& - &*UV(102)+JVS(749)*UV(104)+JVS(810)*UV(106) - JTUV(68) = JVS(154)*UV(48)+JVS(240)*UV(68)+JVS(259)*UV(72)+JVS(496)*UV(95)+JVS(577)*UV(98)+JVS(694)*UV(102)+JVS(811)& - &*UV(106) - JTUV(69) = JVS(119)*UV(38)+JVS(199)*UV(59)+JVS(245)*UV(69)+JVS(578)*UV(98)+JVS(780)*UV(105)+JVS(812)*UV(106) - JTUV(70) = JVS(155)*UV(48)+JVS(250)*UV(70)+JVS(260)*UV(72)+JVS(428)*UV(92)+JVS(454)*UV(93)+JVS(497)*UV(95)+JVS(579)& - &*UV(98)+JVS(695)*UV(102)+JVS(750)*UV(104)+JVS(813)*UV(106) - JTUV(71) = JVS(207)*UV(61)+JVS(253)*UV(71)+JVS(300)*UV(78)+JVS(498)*UV(95)+JVS(635)*UV(100)+JVS(661)*UV(101)+JVS(814)& - &*UV(106) - JTUV(72) = JVS(261)*UV(72)+JVS(581)*UV(98)+JVS(696)*UV(102) - JTUV(73) = JVS(271)*UV(73)+JVS(429)*UV(92)+JVS(455)*UV(93)+JVS(582)*UV(98)+JVS(751)*UV(104)+JVS(815)*UV(106) - JTUV(74) = JVS(276)*UV(74)+JVS(357)*UV(84)+JVS(478)*UV(94)+JVS(662)*UV(101)+JVS(816)*UV(106) - JTUV(75) = JVS(172)*UV(49)+JVS(179)*UV(52)+JVS(282)*UV(75)+JVS(636)*UV(100)+JVS(663)*UV(101)+JVS(697)*UV(102)+JVS(817)& - &*UV(106) - JTUV(76) = JVS(156)*UV(48)+JVS(288)*UV(76)+JVS(319)*UV(80)+JVS(544)*UV(97)+JVS(584)*UV(98)+JVS(752)*UV(104)+JVS(818)& - &*UV(106) - JTUV(77) = JVS(293)*UV(77)+JVS(320)*UV(80)+JVS(585)*UV(98)+JVS(698)*UV(102)+JVS(819)*UV(106) - JTUV(78) = JVS(157)*UV(48)+JVS(301)*UV(78)+JVS(499)*UV(95)+JVS(586)*UV(98)+JVS(753)*UV(104)+JVS(820)*UV(106)+JVS(852)& - &*UV(107) - JTUV(79) = JVS(308)*UV(79)+JVS(587)*UV(98)+JVS(664)*UV(101)+JVS(723)*UV(103) - JTUV(80) = JVS(145)*UV(47)+JVS(321)*UV(80)+JVS(588)*UV(98)+JVS(821)*UV(106) - JTUV(81) = JVS(158)*UV(48)+JVS(289)*UV(76)+JVS(322)*UV(80)+JVS(338)*UV(81)+JVS(430)*UV(92)+JVS(500)*UV(95)+JVS(524)& - &*UV(96)+JVS(545)*UV(97)+JVS(589)*UV(98)+JVS(754)*UV(104)+JVS(822)*UV(106) - JTUV(82) = JVS(343)*UV(82)+JVS(383)*UV(88)+JVS(399)*UV(89)+JVS(431)*UV(92)+JVS(456)*UV(93)+JVS(479)*UV(94)+JVS(665)& - &*UV(101)+JVS(755)*UV(104)+JVS(823)*UV(106) - JTUV(83) = JVS(159)*UV(48)+JVS(208)*UV(61)+JVS(294)*UV(77)+JVS(323)*UV(80)+JVS(348)*UV(83)+JVS(432)*UV(92)+JVS(501)& - &*UV(95)+JVS(525)*UV(96)+JVS(590)*UV(98)+JVS(666)*UV(101)+JVS(699)*UV(102)+JVS(724)*UV(103)+JVS(756)*UV(104)& - &+JVS(781)*UV(105)+JVS(824)*UV(106) - JTUV(84) = JVS(8)*UV(3)+JVS(160)*UV(48)+JVS(277)*UV(74)+JVS(309)*UV(79)+JVS(339)*UV(81)+JVS(358)*UV(84)+JVS(591)& - &*UV(98)+JVS(725)*UV(103)+JVS(757)*UV(104)+JVS(825)*UV(106) - JTUV(85) = JVS(36)*UV(10)+JVS(161)*UV(48)+JVS(324)*UV(80)+JVS(364)*UV(85)+JVS(384)*UV(88)+JVS(400)*UV(89)+JVS(434)& - &*UV(92)+JVS(481)*UV(94)+JVS(503)*UV(95)+JVS(527)*UV(96)+JVS(592)*UV(98)+JVS(616)*UV(99)+JVS(668)*UV(101)& - &+JVS(726)*UV(103)+JVS(758)*UV(104)+JVS(782)*UV(105)+JVS(826)*UV(106) - JTUV(86) = JVS(162)*UV(48)+JVS(262)*UV(72)+JVS(295)*UV(77)+JVS(325)*UV(80)+JVS(369)*UV(86)+JVS(375)*UV(87)+JVS(401)& - &*UV(89)+JVS(435)*UV(92)+JVS(457)*UV(93)+JVS(504)*UV(95)+JVS(528)*UV(96)+JVS(593)*UV(98)+JVS(669)*UV(101)& - &+JVS(700)*UV(102)+JVS(727)*UV(103)+JVS(759)*UV(104)+JVS(783)*UV(105)+JVS(827)*UV(106) - JTUV(87) = JVS(163)*UV(48)+JVS(296)*UV(77)+JVS(326)*UV(80)+JVS(376)*UV(87)+JVS(385)*UV(88)+JVS(402)*UV(89)+JVS(436)& - &*UV(92)+JVS(458)*UV(93)+JVS(505)*UV(95)+JVS(529)*UV(96)+JVS(594)*UV(98)+JVS(670)*UV(101)+JVS(701)*UV(102)& - &+JVS(728)*UV(103)+JVS(760)*UV(104)+JVS(784)*UV(105)+JVS(828)*UV(106) - JTUV(88) = JVS(272)*UV(73)+JVS(386)*UV(88)+JVS(482)*UV(94)+JVS(637)*UV(100)+JVS(761)*UV(104)+JVS(829)*UV(106) - JTUV(89) = JVS(164)*UV(48)+JVS(263)*UV(72)+JVS(344)*UV(82)+JVS(387)*UV(88)+JVS(403)*UV(89)+JVS(438)*UV(92)+JVS(460)& - &*UV(93)+JVS(596)*UV(98)+JVS(702)*UV(102)+JVS(762)*UV(104)+JVS(830)*UV(106) - JTUV(90) = JVS(18)*UV(6)+JVS(24)*UV(7)+JVS(165)*UV(48)+JVS(264)*UV(72)+JVS(297)*UV(77)+JVS(327)*UV(80)+JVS(388)*UV(88)& - &+JVS(404)*UV(89)+JVS(413)*UV(90)+JVS(420)*UV(91)+JVS(439)*UV(92)+JVS(484)*UV(94)+JVS(506)*UV(95)+JVS(530)& - &*UV(96)+JVS(597)*UV(98)+JVS(617)*UV(99)+JVS(639)*UV(100)+JVS(672)*UV(101)+JVS(703)*UV(102)+JVS(729)*UV(103)& - &+JVS(763)*UV(104)+JVS(785)*UV(105)+JVS(831)*UV(106) - JTUV(91) = JVS(166)*UV(48)+JVS(290)*UV(76)+JVS(310)*UV(79)+JVS(328)*UV(80)+JVS(405)*UV(89)+JVS(421)*UV(91)+JVS(440)& - &*UV(92)+JVS(462)*UV(93)+JVS(485)*UV(94)+JVS(507)*UV(95)+JVS(531)*UV(96)+JVS(547)*UV(97)+JVS(598)*UV(98)& - &+JVS(618)*UV(99)+JVS(730)*UV(103)+JVS(764)*UV(104)+JVS(832)*UV(106) - JTUV(92) = JVS(167)*UV(48)+JVS(265)*UV(72)+JVS(311)*UV(79)+JVS(329)*UV(80)+JVS(441)*UV(92)+JVS(599)*UV(98)+JVS(619)& - &*UV(99)+JVS(705)*UV(102)+JVS(731)*UV(103)+JVS(786)*UV(105)+JVS(833)*UV(106)+JVS(853)*UV(107) - JTUV(93) = JVS(168)*UV(48)+JVS(266)*UV(72)+JVS(312)*UV(79)+JVS(330)*UV(80)+JVS(463)*UV(93)+JVS(548)*UV(97)+JVS(600)& - &*UV(98)+JVS(706)*UV(102)+JVS(732)*UV(103)+JVS(787)*UV(105)+JVS(834)*UV(106)+JVS(854)*UV(107) - JTUV(94) = JVS(313)*UV(79)+JVS(406)*UV(89)+JVS(442)*UV(92)+JVS(464)*UV(93)+JVS(486)*UV(94)+JVS(508)*UV(95)+JVS(601)& - &*UV(98)+JVS(676)*UV(101)+JVS(835)*UV(106) - JTUV(95) = JVS(169)*UV(48)+JVS(254)*UV(71)+JVS(267)*UV(72)+JVS(314)*UV(79)+JVS(331)*UV(80)+JVS(509)*UV(95)+JVS(602)& - &*UV(98)+JVS(708)*UV(102)+JVS(734)*UV(103)+JVS(789)*UV(105)+JVS(836)*UV(106) - JTUV(96) = JVS(19)*UV(6)+JVS(25)*UV(7)+JVS(37)*UV(10)+JVS(70)*UV(21)+JVS(73)*UV(22)+JVS(75)*UV(23)+JVS(85)*UV(26)& - &+JVS(88)*UV(27)+JVS(93)*UV(29)+JVS(120)*UV(38)+JVS(188)*UV(55)+JVS(200)*UV(59)+JVS(209)*UV(61)+JVS(283)& - &*UV(75)+JVS(291)*UV(76)+JVS(332)*UV(80)+JVS(340)*UV(81)+JVS(349)*UV(83)+JVS(365)*UV(85)+JVS(370)*UV(86)& - &+JVS(377)*UV(87)+JVS(389)*UV(88)+JVS(407)*UV(89)+JVS(414)*UV(90)+JVS(422)*UV(91)+JVS(443)*UV(92)+JVS(465)& - &*UV(93)+JVS(510)*UV(95)+JVS(532)*UV(96)+JVS(550)*UV(97)+JVS(603)*UV(98)+JVS(621)*UV(99)+JVS(643)*UV(100)& - &+JVS(678)*UV(101)+JVS(709)*UV(102)+JVS(735)*UV(103)+JVS(767)*UV(104)+JVS(790)*UV(105)+JVS(837)*UV(106) - JTUV(97) = JVS(176)*UV(51)+JVS(222)*UV(64)+JVS(227)*UV(65)+JVS(466)*UV(93)+JVS(511)*UV(95)+JVS(533)*UV(96)+JVS(551)& - &*UV(97)+JVS(622)*UV(99)+JVS(644)*UV(100)+JVS(679)*UV(101)+JVS(768)*UV(104)+JVS(838)*UV(106)+JVS(858)*UV(107) - JTUV(98) = JVS(3)*UV(1)+JVS(6)*UV(2)+JVS(9)*UV(3)+JVS(13)*UV(4)+JVS(16)*UV(5)+JVS(20)*UV(6)+JVS(26)*UV(7)+JVS(31)& - &*UV(8)+JVS(34)*UV(9)+JVS(38)*UV(10)+JVS(43)*UV(11)+JVS(45)*UV(12)+JVS(48)*UV(13)+JVS(51)*UV(14)+JVS(53)& - &*UV(15)+JVS(56)*UV(16)+JVS(59)*UV(17)+JVS(61)*UV(18)+JVS(64)*UV(19)+JVS(67)*UV(20)+JVS(76)*UV(23)+JVS(79)& - &*UV(24)+JVS(82)*UV(25)+JVS(94)*UV(29)+JVS(98)*UV(30)+JVS(101)*UV(31)+JVS(103)*UV(32)+JVS(106)*UV(33)& - &+JVS(108)*UV(34)+JVS(111)*UV(35)+JVS(114)*UV(36)+JVS(116)*UV(37)+JVS(121)*UV(38)+JVS(124)*UV(39)+JVS(127)& - &*UV(40)+JVS(130)*UV(41)+JVS(132)*UV(42)+JVS(135)*UV(43)+JVS(138)*UV(44)+JVS(141)*UV(45)+JVS(143)*UV(46)& - &+JVS(146)*UV(47)+JVS(170)*UV(48)+JVS(174)*UV(50)+JVS(182)*UV(53)+JVS(185)*UV(54)+JVS(194)*UV(57)+JVS(196)& - &*UV(58)+JVS(201)*UV(59)+JVS(203)*UV(60)+JVS(210)*UV(61)+JVS(215)*UV(62)+JVS(218)*UV(63)+JVS(223)*UV(64)& - &+JVS(228)*UV(65)+JVS(234)*UV(66)+JVS(238)*UV(67)+JVS(241)*UV(68)+JVS(247)*UV(69)+JVS(251)*UV(70)+JVS(268)& - &*UV(72)+JVS(273)*UV(73)+JVS(278)*UV(74)+JVS(292)*UV(76)+JVS(298)*UV(77)+JVS(303)*UV(78)+JVS(315)*UV(79)& - &+JVS(333)*UV(80)+JVS(341)*UV(81)+JVS(345)*UV(82)+JVS(350)*UV(83)+JVS(359)*UV(84)+JVS(366)*UV(85)+JVS(371)& - &*UV(86)+JVS(378)*UV(87)+JVS(390)*UV(88)+JVS(408)*UV(89)+JVS(415)*UV(90)+JVS(423)*UV(91)+JVS(444)*UV(92)& - &+JVS(467)*UV(93)+JVS(488)*UV(94)+JVS(512)*UV(95)+JVS(534)*UV(96)+JVS(552)*UV(97)+JVS(605)*UV(98)+JVS(623)& - &*UV(99)+JVS(645)*UV(100)+JVS(680)*UV(101)+JVS(711)*UV(102)+JVS(737)*UV(103)+JVS(769)*UV(104)+JVS(792)& - &*UV(105)+JVS(839)*UV(106)+JVS(859)*UV(107) - JTUV(99) = JVS(224)*UV(64)+JVS(229)*UV(65)+JVS(235)*UV(66)+JVS(468)*UV(93)+JVS(513)*UV(95)+JVS(535)*UV(96)+JVS(553)& - &*UV(97)+JVS(624)*UV(99)+JVS(646)*UV(100)+JVS(681)*UV(101)+JVS(770)*UV(104)+JVS(840)*UV(106)+JVS(860)*UV(107) - JTUV(100) = JVS(204)*UV(60)+JVS(211)*UV(61)+JVS(216)*UV(62)+JVS(255)*UV(71)+JVS(284)*UV(75)+JVS(342)*UV(81)+JVS(391)& - &*UV(88)+JVS(469)*UV(93)+JVS(489)*UV(94)+JVS(514)*UV(95)+JVS(536)*UV(96)+JVS(554)*UV(97)+JVS(607)*UV(98)& - &+JVS(625)*UV(99)+JVS(647)*UV(100)+JVS(682)*UV(101)+JVS(713)*UV(102)+JVS(739)*UV(103)+JVS(771)*UV(104)& - &+JVS(794)*UV(105)+JVS(841)*UV(106)+JVS(861)*UV(107) - JTUV(101) = JVS(177)*UV(51)+JVS(191)*UV(56)+JVS(205)*UV(60)+JVS(219)*UV(63)+JVS(236)*UV(66)+JVS(279)*UV(74)+JVS(316)& - &*UV(79)+JVS(346)*UV(82)+JVS(409)*UV(89)+JVS(416)*UV(90)+JVS(424)*UV(91)+JVS(446)*UV(92)+JVS(490)*UV(94)& - &+JVS(537)*UV(96)+JVS(555)*UV(97)+JVS(608)*UV(98)+JVS(626)*UV(99)+JVS(648)*UV(100)+JVS(683)*UV(101)+JVS(740)& - &*UV(103)+JVS(772)*UV(104)+JVS(795)*UV(105)+JVS(842)*UV(106) - JTUV(102) = JVS(197)*UV(58)+JVS(239)*UV(67)+JVS(242)*UV(68)+JVS(252)*UV(70)+JVS(269)*UV(72)+JVS(285)*UV(75)+JVS(299)& - &*UV(77)+JVS(334)*UV(80)+JVS(347)*UV(82)+JVS(351)*UV(83)+JVS(372)*UV(86)+JVS(379)*UV(87)+JVS(393)*UV(88)& - &+JVS(410)*UV(89)+JVS(417)*UV(90)+JVS(425)*UV(91)+JVS(447)*UV(92)+JVS(471)*UV(93)+JVS(516)*UV(95)+JVS(538)& - &*UV(96)+JVS(556)*UV(97)+JVS(627)*UV(99)+JVS(715)*UV(102)+JVS(773)*UV(104)+JVS(843)*UV(106)+JVS(863)*UV(107) - JTUV(103) = JVS(10)*UV(3)+JVS(21)*UV(6)+JVS(27)*UV(7)+JVS(39)*UV(10)+JVS(91)*UV(28)+JVS(95)*UV(29)+JVS(192)*UV(56)& - &+JVS(280)*UV(74)+JVS(317)*UV(79)+JVS(335)*UV(80)+JVS(352)*UV(83)+JVS(362)*UV(84)+JVS(367)*UV(85)+JVS(373)& - &*UV(86)+JVS(380)*UV(87)+JVS(394)*UV(88)+JVS(411)*UV(89)+JVS(418)*UV(90)+JVS(426)*UV(91)+JVS(448)*UV(92)& - &+JVS(472)*UV(93)+JVS(492)*UV(94)+JVS(517)*UV(95)+JVS(539)*UV(96)+JVS(557)*UV(97)+JVS(610)*UV(98)+JVS(628)& - &*UV(99)+JVS(650)*UV(100)+JVS(685)*UV(101)+JVS(742)*UV(103)+JVS(774)*UV(104)+JVS(797)*UV(105)+JVS(844)& - &*UV(106) - JTUV(104) = JVS(230)*UV(65)+JVS(274)*UV(73)+JVS(395)*UV(88)+JVS(473)*UV(93)+JVS(558)*UV(97)+JVS(629)*UV(99)+JVS(651)& - &*UV(100)+JVS(686)*UV(101)+JVS(775)*UV(104)+JVS(845)*UV(106)+JVS(865)*UV(107) - JTUV(105) = JVS(22)*UV(6)+JVS(28)*UV(7)+JVS(40)*UV(10)+JVS(248)*UV(69)+JVS(336)*UV(80)+JVS(353)*UV(83)+JVS(368)*UV(85)& - &+JVS(374)*UV(86)+JVS(381)*UV(87)+JVS(396)*UV(88)+JVS(412)*UV(89)+JVS(419)*UV(90)+JVS(427)*UV(91)+JVS(450)& - &*UV(92)+JVS(474)*UV(93)+JVS(519)*UV(95)+JVS(540)*UV(96)+JVS(559)*UV(97)+JVS(612)*UV(98)+JVS(630)*UV(99)& - &+JVS(652)*UV(100)+JVS(687)*UV(101)+JVS(744)*UV(103)+JVS(776)*UV(104)+JVS(799)*UV(105)+JVS(846)*UV(106) - JTUV(106) = JVS(180)*UV(52)+JVS(220)*UV(63)+JVS(225)*UV(64)+JVS(231)*UV(65)+JVS(249)*UV(69)+JVS(256)*UV(71)+JVS(275)& - &*UV(73)+JVS(281)*UV(74)+JVS(286)*UV(75)+JVS(305)*UV(78)+JVS(318)*UV(79)+JVS(363)*UV(84)+JVS(397)*UV(88)& - &+JVS(520)*UV(95)+JVS(541)*UV(96)+JVS(560)*UV(97)+JVS(613)*UV(98)+JVS(631)*UV(99)+JVS(653)*UV(100)+JVS(688)& - &*UV(101)+JVS(745)*UV(103)+JVS(777)*UV(104)+JVS(800)*UV(105)+JVS(847)*UV(106)+JVS(867)*UV(107) - JTUV(107) = JVS(232)*UV(65)+JVS(243)*UV(68)+JVS(306)*UV(78)+JVS(476)*UV(93)+JVS(521)*UV(95)+JVS(561)*UV(97)+JVS(632)& - &*UV(99)+JVS(654)*UV(100)+JVS(689)*UV(101)+JVS(778)*UV(104)+JVS(848)*UV(106)+JVS(868)*UV(107) - -END SUBROUTINE JacTR_SP_Vec - -! End of JacTR_SP_Vec function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE CB05TUCl_NCSU_Jacobian - diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Jacobian.o b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Jacobian.o deleted file mode 100644 index e8e8588e6138c77c73a25f5f1252ba4899d9a59b..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Jacobian.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_JacobianSP.f90 b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_JacobianSP.f90 deleted file mode 100644 index dc6e48514f7238dd719b9f05b6ed580ca04eb094..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_JacobianSP.f90 +++ /dev/null @@ -1,216 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Sparse Jacobian Data Structures File -! -! Generated by KPP-2.2.3 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 : CB05TUCl_NCSU_JacobianSP.f90 -! Time : Thu Oct 8 08:21:46 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05TUCl_NCSU_13059_BOXMOX -! Equation file : CB05TUCl_NCSU.kpp -! Output root filename : CB05TUCl_NCSU -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CB05TUCl_NCSU_JacobianSP - - PUBLIC - SAVE - - -! Sparse Jacobian Data - - - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_0 = (/ & - 1, 1, 1, 2, 2, 2, 3, 3, 3, 3, 4, 4, & - 4, 5, 5, 5, 6, 6, 6, 6, 6, 6, 7, 7, & - 7, 7, 7, 7, 8, 8, 8, 9, 9, 9, 10, 10, & - 10, 10, 10, 10, 11, 11, 11, 12, 12, 13, 13, 13, & - 14, 14, 14, 15, 15, 16, 16, 16, 17, 17, 17, 18, & - 18, 19, 19, 19, 20, 20, 20, 21, 21, 21, 22, 22, & - 22, 23, 23, 23, 24, 24, 24, 25, 25, 25, 26, 26, & - 26, 27, 27, 27, 28, 28, 28, 29, 29, 29, 29, 30, & - 30, 30, 31, 31, 31, 32, 32, 33, 33, 33, 34, 34, & - 35, 35, 35, 36, 36, 36, 37, 37, 38, 38, 38, 38, & - 38, 39, 39, 39, 40, 40, 40, 41, 41, 41, 42, 42, & - 43, 43, 43, 44, 44, 44, 45, 45, 45, 46, 46, 47, & - 47, 47, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, & - 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, & - 48, 48, 49, 49, 50, 50, 51, 51, 51, 52, 52, 52, & - 53, 53, 54, 54, 54, 55, 55, 55, 55, 56, 56, 56, & - 57, 57, 58, 58, 58, 59, 59, 59, 59, 60, 60, 60, & - 60, 61, 61, 61, 61, 61, 61, 62, 62, 62, 62, 62, & - 63, 63, 63, 63, 64, 64, 64, 64, 64, 65, 65, 65, & - 65, 65, 65, 65, 66, 66, 66, 66, 67, 67, 67, 68, & - 68, 68, 68, 69, 69, 69, 69, 69, 69, 70, 70, 70, & - 71, 71, 71, 71, 72, 72, 72, 72, 72, 72, 72, 72, & - 72, 72, 72, 72, 72, 72, 73, 73, 73, 73, 73, 74, & - 74, 74, 74, 74, 74, 75, 75, 75, 75, 75, 76, 76, & - 76, 76, 76, 76, 77, 77, 77, 77, 77, 77, 77, 78, & - 78, 78, 78, 78, 78, 78, 79, 79, 79, 79, 79, 79, & - 79, 79, 79, 79, 79, 79, 80, 80, 80, 80, 80, 80, & - 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, & - 81, 81, 81, 81, 81, 81, 82, 82, 82, 82, 82, 83, & - 83, 83, 83, 83, 83, 84, 84, 84, 84, 84, 84, 84 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_1 = (/ & - 84, 84, 84, 85, 85, 85, 85, 85, 86, 86, 86, 86, & - 86, 86, 87, 87, 87, 87, 87, 87, 87, 88, 88, 88, & - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, & - 88, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, & - 89, 89, 89, 89, 90, 90, 90, 90, 90, 90, 90, 91, & - 91, 91, 91, 91, 91, 91, 91, 92, 92, 92, 92, 92, & - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, & - 92, 92, 92, 92, 92, 92, 92, 93, 93, 93, 93, 93, & - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, & - 93, 93, 93, 93, 93, 93, 93, 93, 94, 94, 94, 94, & - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, & - 94, 94, 94, 95, 95, 95, 95, 95, 95, 95, 95, 95, & - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, & - 95, 95, 95, 95, 95, 96, 96, 96, 96, 96, 96, 96, & - 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, & - 96, 97, 97, 97, 97, 97, 97, 97, 97, 97, 97, 97, & - 97, 97, 97, 97, 97, 97, 97, 97, 97, 98, 98, 98, & - 98, 98, 98, 98, 98, 98, 98, 98, 98, 98, 98, 98, & - 98, 98, 98, 98, 98, 98, 98, 98, 98, 98, 98, 98, & - 98, 98, 98, 98, 98, 98, 98, 98, 98, 98, 98, 98, & - 98, 98, 98, 98, 98, 98, 98, 98, 98, 98, 98, 98, & - 98, 98, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, & - 99, 99, 99, 99, 99, 99, 99, 99,100,100,100,100, & - 100,100,100,100,100,100,100,100,100,100,100,100, & - 100,100,100,100,100,100,101,101,101,101,101,101, & - 101,101,101,101,101,101,101,101,101,101,101,101, & - 101,101,101,101,101,101,101,101,101,101,101,101, & - 101,101,101,101,101,102,102,102,102,102,102,102, & - 102,102,102,102,102,102,102,102,102,102,102,102, & - 102,102,102,102,102,102,102,102,102,102,102,102 /) - INTEGER, PARAMETER, DIMENSION(148) :: LU_IROW_2 = (/ & - 103,103,103,103,103,103,103,103,103,103,103,103, & - 103,103,103,103,103,103,103,103,103,103,103,103, & - 103,103,104,104,104,104,104,104,104,104,104,104, & - 104,104,104,104,104,104,104,104,104,104,104,104, & - 104,104,104,104,104,104,104,104,104,104,105,105, & - 105,105,105,105,105,105,105,105,105,105,105,105, & - 105,105,105,105,105,105,105,105,105,106,106,106, & - 106,106,106,106,106,106,106,106,106,106,106,106, & - 106,106,106,106,106,106,106,106,106,106,106,106, & - 106,106,106,106,106,106,106,106,106,106,106,106, & - 106,106,106,106,106,106,106,106,107,107,107,107, & - 107,107,107,107,107,107,107,107,107,107,107,107, & - 107,107,107,107 /) - INTEGER, PARAMETER, DIMENSION(868) :: LU_IROW = (/& - LU_IROW_0, LU_IROW_1, LU_IROW_2 /) - - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_0 = (/ & - 1, 53, 98, 2, 53, 98, 3, 84, 98,103, 4, 57, & - 98, 5, 57, 98, 6, 90, 96, 98,103,105, 7, 90, & - 96, 98,103,105, 8, 50, 98, 9, 50, 98, 10, 85, & - 96, 98,103,105, 11, 12, 98, 12, 98, 13, 15, 98, & - 14, 15, 98, 15, 98, 16, 18, 98, 17, 18, 98, 18, & - 98, 19, 23, 98, 20, 23, 98, 21, 23, 96, 22, 23, & - 96, 23, 96, 98, 24, 29, 98, 25, 29, 98, 26, 29, & - 96, 27, 29, 96, 28, 29,103, 29, 96, 98,103, 30, & - 32, 98, 31, 32, 98, 32, 98, 33, 34, 98, 34, 98, & - 35, 37, 98, 36, 37, 98, 37, 98, 38, 59, 69, 96, & - 98, 39, 40, 98, 40, 41, 98, 41, 42, 98, 42, 98, & - 43, 44, 98, 44, 45, 98, 45, 46, 98, 46, 98, 47, & - 80, 98, 48, 53, 57, 61, 64, 65, 67, 68, 70, 76, & - 78, 81, 83, 84, 85, 86, 87, 89, 90, 91, 92, 93, & - 95, 98, 49, 75, 50, 98, 51, 97,101, 52, 75,106, & - 53, 98, 54, 55, 98, 54, 55, 96, 98, 56,101,103, & - 57, 98, 58, 98,102, 59, 69, 96, 98, 60, 98,100, & - 101, 61, 71, 83, 96, 98,100, 53, 57, 62, 98,100, & - 63, 98,101,106, 64, 97, 98, 99,106, 65, 97, 98, & - 99,104,106,107, 66, 98, 99,101, 67, 98,102, 68, & - 98,102,107, 59, 69, 96, 98,105,106, 70, 98,102, & - 71, 95,100,106, 58, 67, 68, 70, 72, 86, 89, 90, & - 92, 93, 95, 98,102,107, 73, 88, 98,104,106, 74, & - 84, 98,101,103,106, 75, 96,100,102,106, 57, 76, & - 81, 91, 96, 98, 77, 83, 86, 87, 90, 98,102, 71, & - 78, 95, 98,100,106,107, 56, 79, 84, 91, 92, 93, & - 94, 95, 98,101,103,106, 76, 77, 80, 81, 83, 85, & - 86, 87, 90, 91, 92, 93, 95, 96, 98,102,103,105, & - 62, 81, 84, 96, 98,100, 82, 89, 98,101,102, 83, & - 96, 98,102,103,105, 53, 57, 62, 74, 84, 98,100 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_1 = (/ & - 101,103,106, 85, 96, 98,103,105, 86, 96, 98,102, & - 103,105, 86, 87, 96, 98,102,103,105, 67, 82, 85, & - 87, 88, 89, 90, 96, 98,100,101,102,103,104,105, & - 106, 57, 82, 85, 86, 87, 89, 90, 91, 94, 96, 98, & - 101,102,103,105, 90, 96, 98,101,102,103,105, 90, & - 91, 96, 98,101,102,103,105, 70, 73, 81, 82, 83, & - 84, 85, 86, 87, 88, 89, 90, 91, 92, 94, 96, 98, & - 100,101,102,103,104,105,106, 66, 67, 70, 73, 82, & - 86, 87, 88, 89, 90, 91, 93, 94, 96, 97, 98, 99, & - 100,101,102,103,104,105,106,107, 62, 74, 82, 84, & - 85, 88, 89, 90, 91, 94, 96, 98,100,101,102,103, & - 104,105,106, 68, 70, 71, 78, 81, 83, 84, 85, 86, & - 87, 90, 91, 94, 95, 96, 97, 98, 99,100,101,102, & - 103,104,105,106,107, 59, 69, 81, 83, 84, 85, 86, & - 87, 90, 91, 96, 97, 98, 99,100,101,102,103,105, & - 106, 51, 64, 76, 81, 84, 91, 93, 94, 96, 97, 98, & - 99,100,101,102,103,104,105,106,107, 50, 52, 53, & - 54, 55, 57, 58, 59, 60, 61, 63, 64, 65, 66, 67, & - 68, 69, 70, 71, 72, 73, 75, 76, 77, 78, 79, 80, & - 81, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, & - 94, 95, 96, 97, 98, 99,100,101,102,103,104,105, & - 106,107, 66, 85, 90, 91, 92, 94, 96, 97, 98, 99, & - 100,101,102,103,104,105,106,107, 60, 62, 71, 75, & - 88, 89, 90, 91, 94, 95, 96, 97, 98, 99,100,101, & - 102,103,104,105,106,107, 51, 56, 60, 62, 63, 66, & - 71, 74, 75, 79, 82, 83, 84, 85, 86, 87, 89, 90, & - 91, 92, 93, 94, 95, 96, 97, 98, 99,100,101,102, & - 103,104,105,106,107, 49, 52, 58, 67, 68, 70, 72, & - 75, 77, 83, 86, 87, 89, 90, 91, 92, 93, 94, 95, & - 96, 97, 98, 99,100,101,102,103,104,105,106,107 /) - INTEGER, PARAMETER, DIMENSION(148) :: LU_ICOL_2 = (/ & - 56, 63, 79, 83, 84, 85, 86, 87, 90, 91, 92, 93, & - 94, 95, 96, 97, 98, 99,100,101,102,103,104,105, & - 106,107, 53, 57, 67, 70, 73, 76, 78, 81, 82, 83, & - 84, 85, 86, 87, 88, 89, 90, 91, 94, 95, 96, 97, & - 98, 99,100,101,102,103,104,105,106,107, 55, 69, & - 83, 85, 86, 87, 90, 92, 93, 94, 95, 96, 97, 98, & - 99,100,101,102,103,104,105,106,107, 50, 53, 54, & - 55, 57, 61, 62, 63, 67, 68, 69, 70, 71, 73, 74, & - 75, 76, 77, 78, 80, 81, 82, 83, 84, 85, 86, 87, & - 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, & - 100,101,102,103,104,105,106,107, 58, 64, 65, 78, & - 92, 93, 94, 95, 96, 97, 98, 99,100,101,102,103, & - 104,105,106,107 /) - INTEGER, PARAMETER, DIMENSION(868) :: LU_ICOL = (/& - LU_ICOL_0, LU_ICOL_1, LU_ICOL_2 /) - - INTEGER, PARAMETER, DIMENSION(108) :: LU_CROW = (/ & - 1, 4, 7, 11, 14, 17, 23, 29, 32, 35, 41, 44, & - 46, 49, 52, 54, 57, 60, 62, 65, 68, 71, 74, 77, & - 80, 83, 86, 89, 92, 96, 99,102,104,107,109,112, & - 115,117,122,125,128,131,133,136,139,142,144,147, & - 171,173,175,178,181,183,186,190,193,195,198,202, & - 206,212,217,221,226,233,237,240,244,250,253,257, & - 271,276,282,287,293,300,307,319,337,343,348,354, & - 364,369,375,382,398,413,420,428,452,477,496,522, & - 542,562,615,633,655,690,721,747,779,802,849,869 /) - - INTEGER, PARAMETER, DIMENSION(108) :: LU_DIAG = (/ & - 1, 4, 7, 11, 14, 17, 23, 29, 32, 35, 41, 44, & - 46, 49, 52, 54, 57, 60, 62, 65, 68, 71, 74, 77, & - 80, 83, 86, 89, 92, 96, 99,102,104,107,109,112, & - 115,117,122,125,128,131,133,136,139,142,144,147, & - 171,173,175,178,181,183,187,190,193,195,198,202, & - 206,214,217,221,226,233,237,240,245,250,253,261, & - 271,276,282,288,293,301,308,321,338,343,348,358, & - 364,369,376,386,403,413,421,441,463,486,509,532, & - 551,605,624,647,683,715,742,775,799,847,868,869 /) - - -END MODULE CB05TUCl_NCSU_JacobianSP - diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_JacobianSP.o b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_JacobianSP.o deleted file mode 100644 index e4cc3a72a33c0b0fa7fded925197a2c2ca7e2763..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_JacobianSP.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_LinearAlgebra.f90 b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_LinearAlgebra.f90 deleted file mode 100644 index 71e4e0709ca98cb470889f13538181fc0d93d975..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_LinearAlgebra.f90 +++ /dev/null @@ -1,1629 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Linear Algebra Data and Routines File -! -! Generated by KPP-2.2.3 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 : CB05TUCl_NCSU_LinearAlgebra.f90 -! Time : Thu Oct 8 08:21:46 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05TUCl_NCSU_13059_BOXMOX -! Equation file : CB05TUCl_NCSU.kpp -! Output root filename : CB05TUCl_NCSU -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CB05TUCl_NCSU_LinearAlgebra - - USE CB05TUCl_NCSU_Parameters - USE CB05TUCl_NCSU_JacobianSP - - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! SPARSE_UTIL - SPARSE utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecomp( JVS, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CB05TUCl_NCSU_Parameters - USE CB05TUCl_NCSU_JacobianSP - - INTEGER :: IER - REAL(kind=dp) :: JVS(LU_NONZERO), W(NVAR), a - INTEGER :: k, kk, j, jj - - a = 0. ! mz_rs_20050606 - IER = 0 - DO k=1,NVAR - ! mz_rs_20050606: don't check if real value == 0 - ! IF ( JVS( LU_DIAG(k) ) .EQ. 0. ) THEN - IF ( ABS(JVS(LU_DIAG(k))) < TINY(a) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - W( LU_ICOL(kk) ) = JVS(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - a = -W(j) / JVS( LU_DIAG(j) ) - W(j) = -a - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVS(kk) = W( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecomp - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecompCmplx( JVS, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization, complex -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CB05TUCl_NCSU_Parameters - USE CB05TUCl_NCSU_JacobianSP - - INTEGER :: IER - DOUBLE COMPLEX :: JVS(LU_NONZERO), W(NVAR), a - REAL(kind=dp) :: b = 0.0 - INTEGER :: k, kk, j, jj - - IER = 0 - DO k=1,NVAR - IF ( ABS(JVS(LU_DIAG(k))) < TINY(b) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - W( LU_ICOL(kk) ) = JVS(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - a = -W(j) / JVS( LU_DIAG(j) ) - W(j) = -a - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVS(kk) = W( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecompCmplx - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecompCmplxR( JVSR, JVSI, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization, complex -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CB05TUCl_NCSU_Parameters - USE CB05TUCl_NCSU_JacobianSP - - INTEGER :: IER - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO) - REAL(kind=dp) :: WR(NVAR), WI(NVAR), ar, ai, den - INTEGER :: k, kk, j, jj - - IER = 0 - ar = 0.0 - DO k=1,NVAR - IF ( ( ABS(JVSR(LU_DIAG(k))) < TINY(ar) ) .AND. & - ( ABS(JVSI(LU_DIAG(k))) < TINY(ar) ) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - WR( LU_ICOL(kk) ) = JVSR(kk) - WI( LU_ICOL(kk) ) = JVSI(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - den = JVSR(LU_DIAG(j))**2 + JVSI(LU_DIAG(j))**2 - ar = -(WR(j)*JVSR(LU_DIAG(j)) + WI(j)*JVSI(LU_DIAG(j)))/den - ai = -(WI(j)*JVSR(LU_DIAG(j)) - WR(j)*JVSI(LU_DIAG(j)))/den - WR(j) = -ar - WI(j) = -ai - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - WR( LU_ICOL(jj) ) = WR( LU_ICOL(jj) ) + ar*JVSR(jj) - ai*JVSI(jj) - WI( LU_ICOL(jj) ) = WI( LU_ICOL(jj) ) + ar*JVSI(jj) + ai*JVSR(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVSR(kk) = WR( LU_ICOL(kk) ) - JVSI(kk) = WI( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecompCmplxR - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveIndirect( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse solve subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CB05TUCl_NCSU_Parameters - USE CB05TUCl_NCSU_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR), sum - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - X(i) = X(i) - JVS(j)*X(LU_ICOL(j)); - END DO - END DO - - DO i=NVAR,1,-1 - sum = X(i); - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sum = sum - JVS(j)*X(LU_ICOL(j)); - END DO - X(i) = sum/JVS(LU_DIAG(i)); - END DO - -END SUBROUTINE KppSolveIndirect - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRIndirect( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CB05TUCl_NCSU_Parameters - USE CB05TUCl_NCSU_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR) - - DO i=1,NVAR - X(i) = X(i)/JVS(LU_DIAG(i)) - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - -END SUBROUTINE KppSolveTRIndirect - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveCmplx( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CB05TUCl_NCSU_Parameters - USE CB05TUCl_NCSU_JacobianSP - - INTEGER :: i, j - DOUBLE COMPLEX :: JVS(LU_NONZERO), X(NVAR), sum - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - X(i) = X(i) - JVS(j)*X(LU_ICOL(j)); - END DO - END DO - - DO i=NVAR,1,-1 - sum = X(i); - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sum = sum - JVS(j)*X(LU_ICOL(j)); - END DO - X(i) = sum/JVS(LU_DIAG(i)); - END DO - -END SUBROUTINE KppSolveCmplx - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveCmplxR( JVSR, JVSI, XR, XI ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve subroutine using indirect addressing -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CB05TUCl_NCSU_Parameters - USE CB05TUCl_NCSU_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), sumr, sumi, den - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - XR(i) = XR(i) - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j))) - XI(i) = XI(i) - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j))) - END DO - END DO - - DO i=NVAR,1,-1 - sumr = XR(i); sumi = XI(i) - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sumr = sumr - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j))) - sumi = sumi - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j))) - END DO - den = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2 - XR(i) = (sumr*JVSR(LU_DIAG(i)) + sumi*JVSI(LU_DIAG(i)))/den - XI(i) = (sumi*JVSR(LU_DIAG(i)) - sumr*JVSI(LU_DIAG(i)))/den - END DO - -END SUBROUTINE KppSolveCmplxR - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRCmplx( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CB05TUCl_NCSU_Parameters - USE CB05TUCl_NCSU_JacobianSP - - INTEGER :: i, j - DOUBLE COMPLEX :: JVS(LU_NONZERO), X(NVAR) - - DO i=1,NVAR - X(i) = X(i)/JVS(LU_DIAG(i)) - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - -END SUBROUTINE KppSolveTRCmplx - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRCmplxR( JVSR, JVSI, XR, XI ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CB05TUCl_NCSU_Parameters - USE CB05TUCl_NCSU_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), den - - DO i=1,NVAR - den = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2 - XR(i) = (XR(i)*JVSR(LU_DIAG(i)) + XI(i)*JVSI(LU_DIAG(i)))/den - XI(i) = (XI(i)*JVSR(LU_DIAG(i)) - XR(i)*JVSI(LU_DIAG(i)))/den - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i)) - XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i)) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i)) - XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i)) - END DO - END DO - -END SUBROUTINE KppSolveTRCmplxR - - -! -! Next few commented subroutines perform sparse big linear algebra -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppDecompBig( JVS, IP, IER ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Sparse LU factorization -!! for the Runge Kutta (3n)x(3n) linear system -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE CB05TUCl_NCSU_Parameters -! USE CB05TUCl_NCSU_JacobianSP -! -! INTEGER :: IP3(3), IER, IP(3,NVAR) -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), W(3,3,NVAR), a(3,3), E(3,3) -! INTEGER :: k, kk, j, jj -! -! a = 0.0d0 -! IER = 0 -! DO k=1,NVAR -! DO kk = LU_CROW(k), LU_CROW(k+1)-1 -! W( 1:3,1:3,LU_ICOL(kk) ) = JVS(1:3,1:3,kk) -! END DO -! DO kk = LU_CROW(k), LU_DIAG(k)-1 -! j = LU_ICOL(kk) -! E(1:3,1:3) = JVS( 1:3,1:3,LU_DIAG(j) ) -! ! CALL DGETRF(3,3,E,3,IP3,IER) -! CALL FAC3(E,IP3,IER) -! IF ( IER /= 0 ) RETURN -! ! a = W(j) / JVS( LU_DIAG(j) ) -! a(1:3,1:3) = W( 1:3,1:3,j ) -! ! CALL DGETRS ('N',3,3,E,3,IP3,a,3,IER) -! CALL SOL3('N',E,IP3,a(1,1)) -! CALL SOL3('N',E,IP3,a(1,2)) -! CALL SOL3('N',E,IP3,a(1,3)) -! W(1:3,1:3,j) = a(1:3,1:3) -! DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 -! W( 1:3,1:3,LU_ICOL(jj) ) = W( 1:3,1:3,LU_ICOL(jj) ) & -! - MATMUL( a(1:3,1:3) , JVS(1:3,1:3,jj) ) -! END DO -! END DO -! DO kk = LU_CROW(k), LU_CROW(k+1)-1 -! JVS(1:3,1:3,kk) = W( 1:3,1:3,LU_ICOL(kk) ) -! END DO -! END DO -! -! DO k=1,NVAR -! ! CALL WGEFA(JVS(1,1,LU_DIAG(k)),3,3,IP(1,k),IER) -! ! CALL DGETRF(3,3,JVS(1,1,LU_DIAG(k)),3,IP(1,k),IER) -! CALL FAC3(JVS(1,1,LU_DIAG(k)),IP(1,k),IER) -! IF ( IER /= 0 ) RETURN -! END DO -! -!END SUBROUTINE KppDecompBig -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppSolveBig( JVS, IP, X ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Sparse solve subroutine using indirect addressing -!! for the Runge Kutta (3n)x(3n) linear system -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE CB05TUCl_NCSU_Parameters -! USE CB05TUCl_NCSU_JacobianSP -! -! INTEGER :: i, j, k, m, IP3(3), IP(3,NVAR), IER -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR), sum(3) -! -! DO i=1,NVAR -! DO j = LU_CROW(i), LU_DIAG(i)-1 -! !X(1:3,i) = X(1:3,i) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j))); -! DO k=1,3 -! DO m=1,3 -! X(k,i) = X(k,i) - JVS(k,m,j)*X(m,LU_ICOL(j)) -! END DO -! END DO -! END DO -! END DO -! -! DO i=NVAR,1,-1 -! sum(1:3) = X(1:3,i); -! DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 -! !sum(1:3) = sum(1:3) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j))); -! DO k=1,3 -! DO m=1,3 -! sum(k) = sum(k) - JVS(k,m,j)*X(m,LU_ICOL(j)) -! END DO -! END DO -! END DO -! ! X(i) = sum/JVS(LU_DIAG(i)); -! ! CALL DGETRS ('N',3,1,JVS(1:3,1:3,LU_DIAG(i)),3,IP(1,i),sum,3,0) -! ! CALL WGESL('N',JVS(1,1,LU_DIAG(i)),3,3,IP(1,i),sum) -! CALL SOL3('N',JVS(1,1,LU_DIAG(i)),IP(1,i),sum) -! X(1:3,i) = sum(1:3) -! END DO -! -!END SUBROUTINE KppSolveBig -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppSolveBigTR( JVS, IP, X ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Big sparse transpose solve using indirect addressing -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE CB05TUCl_NCSU_Parameters -! USE CB05TUCl_NCSU_JacobianSP -! -! INTEGER :: i, j, k, m, IP(3,NVAR) -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR) -! -! DO i=1,NVAR -! ! X(i) = X(i)/JVS(LU_DIAG(i)) -! CALL SOL3('T',JVS(1,1,LU_DIAG(i)),IP(1,i),X(1,i)) -! DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 -! !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) & -! ! - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) ) -! DO k=1,3 -! DO m=1,3 -! X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i) -! END DO -! END DO -! END DO -! END DO -! -! DO i=NVAR, 1, -1 -! DO j=LU_CROW(i),LU_DIAG(i)-1 -! !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) & -! ! - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) ) -! DO k=1,3 -! DO m=1,3 -! X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i) -! END DO -! END DO -! END DO -! END DO -! -!END SUBROUTINE KppSolveBigTR -! -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE FAC3(A,IPVT,INFO) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! FAC3 FACTORS THE MATRIX A (3,3) BY -!! GAUSS ELIMINATION WITH PARTIAL PIVOTING -!! LINPACK - LIKE -!! -!! Remove comments to perform pivoting -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! -! REAL(kind=dp) :: A(3,3) -! INTEGER :: IPVT(3),INFO -!! INTEGER :: L -!! REAL(kind=dp) :: t, dmax, da, TMP(3) -! REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0 -! -! info = 0 -!! t = TINY(da) -!! -!! da = ABS(A(1,1)); L = 1 -!! IF ( ABS(A(2,1))>da ) THEN -!! da = ABS(A(2,1)); L = 2 -!! IF ( ABS(A(3,1))>da ) THEN -!! L = 3 -!! END IF -!! END IF -!! IPVT(1) = L -!! IF (L /=1 ) THEN -!! TMP(1:3) = A(L,1:3) -!! A(L,1:3) = A(1,1:3) -!! A(1,1:3) = TMP(1:3) -!! END IF -!! IF (ABS(A(1,1)) < t) THEN -!! info = 1 -!! return -!! END IF -!! -! A(2,1) = A(2,1)/A(1,1) -! A(2,2) = A(2,2) - A(2,1)*A(1,2) -! A(2,3) = A(2,3) - A(2,1)*A(1,3) -! A(3,1) = A(3,1)/A(1,1) -! A(3,2) = A(3,2) - A(3,1)*A(1,2) -! A(3,3) = A(3,3) - A(3,1)*A(1,3) -! -!! IPVT(2) = 2 -!! IF (ABS(A(3,2))>ABS(A(2,2))) THEN -!! IPVT(2) = 3 -!! TMP(2:3) = A(3,2:3) -!! A(3,2:3) = A(2,2:3) -!! A(2,2:3) = TMP(2:3) -!! END IF -!! IF (ABS(A(2,2)) < t) THEN -!! info = 1 -!! return -!! END IF -!! -! A(3,2) = A(3,2)/A(2,2) -! A(3,3) = A(3,3) - A(3,2)*A(2,3) -! IPVT(3) = 3 -! -!END SUBROUTINE FAC3 -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE SOL3(Trans,A,IPVT,b) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! SOL3 solves the system 3x3 -!! A * x = b or trans(a) * x = b -!! using the factors computed by WGEFA. -!! -!! Trans = 'N' to solve A*x = b , -!! = 'T' to solve transpose(A)*x = b -!! LINPACK - LIKE -!! -!! Remove comments to use pivoting -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! CHARACTER :: Trans -! REAL(kind=dp) :: a(3,3),b(3) -! INTEGER :: IPVT(3) -!! INTEGER :: L -!! REAL(kind=dp) :: TMP -! -! SELECT CASE (Trans) -! -! CASE ('n','N') ! Solve A * x = b -! -!! Solve L*y = b -!! L = IPVT(1) -!! IF (L /= 1) THEN -!! TMP = B(1); B(1) = B(L); B(L) = TMP -!! END IF -! b(2) = b(2)-A(2,1)*b(1) -! b(3) = b(3)-A(3,1)*b(1) -! -!! L = IPVT(2) -!! IF (L /= 2) THEN -!! TMP = B(2); B(2) = B(L); B(L) = TMP -!! END IF -! b(3) = b(3)-A(3,2)*b(2) -! -!! Solve U*x = y -! b(3) = b(3)/A(3,3) -! b(2) = (b(2)-A(2,3)*b(3))/A(2,2) -! b(1) = (b(1)-A(1,3)*b(3)-A(1,2)*b(2))/A(1,1) -! -! -! CASE ('t','T') ! Solve transpose(A) * x = b -! -!! Solve transpose(U)*y = b -! b(1) = b(1)/A(1,1) -! b(2) = (b(2)-A(1,2)*b(1))/A(2,2) -! b(3) = (b(3)-A(1,3)*b(1)-A(2,3)*b(2))/A(3,3) -! -!! Solve transpose(L)*x = y -! b(2) = b(2)-A(3,2)*b(3) -!! L = ipvt(2) -!! IF (L /= 2) THEN -!! TMP = B(2); B(2) = B(L); B(L) = TMP -!! END IF -! b(1) = b(1)-A(3,1)*b(3)-A(2,1)*b(2) -!! L = ipvt(1) -!! IF (L /= 1) THEN -!! TMP = B(1); B(1) = B(L); B(L) = TMP -!! END IF -! -! END SELECT -! -!END SUBROUTINE SOL3 - -! End of SPARSE_UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! KppSolve - sparse back substitution -! Arguments : -! JVS - sparse Jacobian of variables -! X - Vector for variables -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE KppSolve ( JVS, X ) - -! JVS - sparse Jacobian of variables - REAL(kind=dp) :: JVS(LU_NONZERO) -! X - Vector for variables - REAL(kind=dp) :: X(NVAR) - - X(55) = X(55)-JVS(186)*X(54) - X(62) = X(62)-JVS(212)*X(53)-JVS(213)*X(57) - X(69) = X(69)-JVS(244)*X(59) - X(72) = X(72)-JVS(257)*X(58)-JVS(258)*X(67)-JVS(259)*X(68)-JVS(260)*X(70) - X(76) = X(76)-JVS(287)*X(57) - X(78) = X(78)-JVS(300)*X(71) - X(79) = X(79)-JVS(307)*X(56) - X(80) = X(80)-JVS(319)*X(76)-JVS(320)*X(77) - X(81) = X(81)-JVS(337)*X(62) - X(84) = X(84)-JVS(354)*X(53)-JVS(355)*X(57)-JVS(356)*X(62)-JVS(357)*X(74) - X(87) = X(87)-JVS(375)*X(86) - X(88) = X(88)-JVS(382)*X(67)-JVS(383)*X(82)-JVS(384)*X(85)-JVS(385)*X(87) - X(89) = X(89)-JVS(398)*X(57)-JVS(399)*X(82)-JVS(400)*X(85)-JVS(401)*X(86)-JVS(402)*X(87) - X(91) = X(91)-JVS(420)*X(90) - X(92) = X(92)-JVS(428)*X(70)-JVS(429)*X(73)-JVS(430)*X(81)-JVS(431)*X(82)-JVS(432)*X(83)-JVS(433)*X(84)-JVS(434)*X(85)& - &-JVS(435)*X(86)-JVS(436)*X(87)-JVS(437)*X(88)-JVS(438)*X(89)-JVS(439)*X(90)-JVS(440)*X(91) - X(93) = X(93)-JVS(452)*X(66)-JVS(453)*X(67)-JVS(454)*X(70)-JVS(455)*X(73)-JVS(456)*X(82)-JVS(457)*X(86)-JVS(458)*X(87)& - &-JVS(459)*X(88)-JVS(460)*X(89)-JVS(461)*X(90)-JVS(462)*X(91) - X(94) = X(94)-JVS(477)*X(62)-JVS(478)*X(74)-JVS(479)*X(82)-JVS(480)*X(84)-JVS(481)*X(85)-JVS(482)*X(88)-JVS(483)*X(89)& - &-JVS(484)*X(90)-JVS(485)*X(91) - X(95) = X(95)-JVS(496)*X(68)-JVS(497)*X(70)-JVS(498)*X(71)-JVS(499)*X(78)-JVS(500)*X(81)-JVS(501)*X(83)-JVS(502)*X(84)& - &-JVS(503)*X(85)-JVS(504)*X(86)-JVS(505)*X(87)-JVS(506)*X(90)-JVS(507)*X(91)-JVS(508)*X(94) - X(96) = X(96)-JVS(522)*X(59)-JVS(523)*X(69)-JVS(524)*X(81)-JVS(525)*X(83)-JVS(526)*X(84)-JVS(527)*X(85)-JVS(528)*X(86)& - &-JVS(529)*X(87)-JVS(530)*X(90)-JVS(531)*X(91) - X(97) = X(97)-JVS(542)*X(51)-JVS(543)*X(64)-JVS(544)*X(76)-JVS(545)*X(81)-JVS(546)*X(84)-JVS(547)*X(91)-JVS(548)*X(93)& - &-JVS(549)*X(94)-JVS(550)*X(96) - X(98) = X(98)-JVS(562)*X(50)-JVS(563)*X(52)-JVS(564)*X(53)-JVS(565)*X(54)-JVS(566)*X(55)-JVS(567)*X(57)-JVS(568)*X(58)& - &-JVS(569)*X(59)-JVS(570)*X(60)-JVS(571)*X(61)-JVS(572)*X(63)-JVS(573)*X(64)-JVS(574)*X(65)-JVS(575)*X(66)& - &-JVS(576)*X(67)-JVS(577)*X(68)-JVS(578)*X(69)-JVS(579)*X(70)-JVS(580)*X(71)-JVS(581)*X(72)-JVS(582)*X(73)& - &-JVS(583)*X(75)-JVS(584)*X(76)-JVS(585)*X(77)-JVS(586)*X(78)-JVS(587)*X(79)-JVS(588)*X(80)-JVS(589)*X(81)& - &-JVS(590)*X(83)-JVS(591)*X(84)-JVS(592)*X(85)-JVS(593)*X(86)-JVS(594)*X(87)-JVS(595)*X(88)-JVS(596)*X(89)& - &-JVS(597)*X(90)-JVS(598)*X(91)-JVS(599)*X(92)-JVS(600)*X(93)-JVS(601)*X(94)-JVS(602)*X(95)-JVS(603)*X(96)& - &-JVS(604)*X(97) - X(99) = X(99)-JVS(615)*X(66)-JVS(616)*X(85)-JVS(617)*X(90)-JVS(618)*X(91)-JVS(619)*X(92)-JVS(620)*X(94)-JVS(621)*X(96)& - &-JVS(622)*X(97)-JVS(623)*X(98) - X(100) = X(100)-JVS(633)*X(60)-JVS(634)*X(62)-JVS(635)*X(71)-JVS(636)*X(75)-JVS(637)*X(88)-JVS(638)*X(89)-JVS(639)& - &*X(90)-JVS(640)*X(91)-JVS(641)*X(94)-JVS(642)*X(95)-JVS(643)*X(96)-JVS(644)*X(97)-JVS(645)*X(98)-JVS(646)& - &*X(99) - X(101) = X(101)-JVS(655)*X(51)-JVS(656)*X(56)-JVS(657)*X(60)-JVS(658)*X(62)-JVS(659)*X(63)-JVS(660)*X(66)-JVS(661)& - &*X(71)-JVS(662)*X(74)-JVS(663)*X(75)-JVS(664)*X(79)-JVS(665)*X(82)-JVS(666)*X(83)-JVS(667)*X(84)-JVS(668)& - &*X(85)-JVS(669)*X(86)-JVS(670)*X(87)-JVS(671)*X(89)-JVS(672)*X(90)-JVS(673)*X(91)-JVS(674)*X(92)-JVS(675)& - &*X(93)-JVS(676)*X(94)-JVS(677)*X(95)-JVS(678)*X(96)-JVS(679)*X(97)-JVS(680)*X(98)-JVS(681)*X(99)-JVS(682)& - &*X(100) - X(102) = X(102)-JVS(690)*X(49)-JVS(691)*X(52)-JVS(692)*X(58)-JVS(693)*X(67)-JVS(694)*X(68)-JVS(695)*X(70)-JVS(696)& - &*X(72)-JVS(697)*X(75)-JVS(698)*X(77)-JVS(699)*X(83)-JVS(700)*X(86)-JVS(701)*X(87)-JVS(702)*X(89)-JVS(703)& - &*X(90)-JVS(704)*X(91)-JVS(705)*X(92)-JVS(706)*X(93)-JVS(707)*X(94)-JVS(708)*X(95)-JVS(709)*X(96)-JVS(710)& - &*X(97)-JVS(711)*X(98)-JVS(712)*X(99)-JVS(713)*X(100)-JVS(714)*X(101) - X(103) = X(103)-JVS(721)*X(56)-JVS(722)*X(63)-JVS(723)*X(79)-JVS(724)*X(83)-JVS(725)*X(84)-JVS(726)*X(85)-JVS(727)& - &*X(86)-JVS(728)*X(87)-JVS(729)*X(90)-JVS(730)*X(91)-JVS(731)*X(92)-JVS(732)*X(93)-JVS(733)*X(94)-JVS(734)& - &*X(95)-JVS(735)*X(96)-JVS(736)*X(97)-JVS(737)*X(98)-JVS(738)*X(99)-JVS(739)*X(100)-JVS(740)*X(101)-JVS(741)& - &*X(102) - X(104) = X(104)-JVS(747)*X(53)-JVS(748)*X(57)-JVS(749)*X(67)-JVS(750)*X(70)-JVS(751)*X(73)-JVS(752)*X(76)-JVS(753)& - &*X(78)-JVS(754)*X(81)-JVS(755)*X(82)-JVS(756)*X(83)-JVS(757)*X(84)-JVS(758)*X(85)-JVS(759)*X(86)-JVS(760)& - &*X(87)-JVS(761)*X(88)-JVS(762)*X(89)-JVS(763)*X(90)-JVS(764)*X(91)-JVS(765)*X(94)-JVS(766)*X(95)-JVS(767)& - &*X(96)-JVS(768)*X(97)-JVS(769)*X(98)-JVS(770)*X(99)-JVS(771)*X(100)-JVS(772)*X(101)-JVS(773)*X(102)-JVS(774)& - &*X(103) - X(105) = X(105)-JVS(779)*X(55)-JVS(780)*X(69)-JVS(781)*X(83)-JVS(782)*X(85)-JVS(783)*X(86)-JVS(784)*X(87)-JVS(785)& - &*X(90)-JVS(786)*X(92)-JVS(787)*X(93)-JVS(788)*X(94)-JVS(789)*X(95)-JVS(790)*X(96)-JVS(791)*X(97)-JVS(792)& - &*X(98)-JVS(793)*X(99)-JVS(794)*X(100)-JVS(795)*X(101)-JVS(796)*X(102)-JVS(797)*X(103)-JVS(798)*X(104) - X(106) = X(106)-JVS(802)*X(50)-JVS(803)*X(53)-JVS(804)*X(54)-JVS(805)*X(55)-JVS(806)*X(57)-JVS(807)*X(61)-JVS(808)& - &*X(62)-JVS(809)*X(63)-JVS(810)*X(67)-JVS(811)*X(68)-JVS(812)*X(69)-JVS(813)*X(70)-JVS(814)*X(71)-JVS(815)& - &*X(73)-JVS(816)*X(74)-JVS(817)*X(75)-JVS(818)*X(76)-JVS(819)*X(77)-JVS(820)*X(78)-JVS(821)*X(80)-JVS(822)& - &*X(81)-JVS(823)*X(82)-JVS(824)*X(83)-JVS(825)*X(84)-JVS(826)*X(85)-JVS(827)*X(86)-JVS(828)*X(87)-JVS(829)& - &*X(88)-JVS(830)*X(89)-JVS(831)*X(90)-JVS(832)*X(91)-JVS(833)*X(92)-JVS(834)*X(93)-JVS(835)*X(94)-JVS(836)& - &*X(95)-JVS(837)*X(96)-JVS(838)*X(97)-JVS(839)*X(98)-JVS(840)*X(99)-JVS(841)*X(100)-JVS(842)*X(101)-JVS(843)& - &*X(102)-JVS(844)*X(103)-JVS(845)*X(104)-JVS(846)*X(105) - X(107) = X(107)-JVS(849)*X(58)-JVS(850)*X(64)-JVS(851)*X(65)-JVS(852)*X(78)-JVS(853)*X(92)-JVS(854)*X(93)-JVS(855)& - &*X(94)-JVS(856)*X(95)-JVS(857)*X(96)-JVS(858)*X(97)-JVS(859)*X(98)-JVS(860)*X(99)-JVS(861)*X(100)-JVS(862)& - &*X(101)-JVS(863)*X(102)-JVS(864)*X(103)-JVS(865)*X(104)-JVS(866)*X(105)-JVS(867)*X(106) - X(107) = X(107)/JVS(868) - X(106) = (X(106)-JVS(848)*X(107))/(JVS(847)) - X(105) = (X(105)-JVS(800)*X(106)-JVS(801)*X(107))/(JVS(799)) - X(104) = (X(104)-JVS(776)*X(105)-JVS(777)*X(106)-JVS(778)*X(107))/(JVS(775)) - X(103) = (X(103)-JVS(743)*X(104)-JVS(744)*X(105)-JVS(745)*X(106)-JVS(746)*X(107))/(JVS(742)) - X(102) = (X(102)-JVS(716)*X(103)-JVS(717)*X(104)-JVS(718)*X(105)-JVS(719)*X(106)-JVS(720)*X(107))/(JVS(715)) - X(101) = (X(101)-JVS(684)*X(102)-JVS(685)*X(103)-JVS(686)*X(104)-JVS(687)*X(105)-JVS(688)*X(106)-JVS(689)*X(107))& - &/(JVS(683)) - X(100) = (X(100)-JVS(648)*X(101)-JVS(649)*X(102)-JVS(650)*X(103)-JVS(651)*X(104)-JVS(652)*X(105)-JVS(653)*X(106)& - &-JVS(654)*X(107))/(JVS(647)) - X(99) = (X(99)-JVS(625)*X(100)-JVS(626)*X(101)-JVS(627)*X(102)-JVS(628)*X(103)-JVS(629)*X(104)-JVS(630)*X(105)& - &-JVS(631)*X(106)-JVS(632)*X(107))/(JVS(624)) - X(98) = (X(98)-JVS(606)*X(99)-JVS(607)*X(100)-JVS(608)*X(101)-JVS(609)*X(102)-JVS(610)*X(103)-JVS(611)*X(104)-JVS(612)& - &*X(105)-JVS(613)*X(106)-JVS(614)*X(107))/(JVS(605)) - X(97) = (X(97)-JVS(552)*X(98)-JVS(553)*X(99)-JVS(554)*X(100)-JVS(555)*X(101)-JVS(556)*X(102)-JVS(557)*X(103)-JVS(558)& - &*X(104)-JVS(559)*X(105)-JVS(560)*X(106)-JVS(561)*X(107))/(JVS(551)) - X(96) = (X(96)-JVS(533)*X(97)-JVS(534)*X(98)-JVS(535)*X(99)-JVS(536)*X(100)-JVS(537)*X(101)-JVS(538)*X(102)-JVS(539)& - &*X(103)-JVS(540)*X(105)-JVS(541)*X(106))/(JVS(532)) - X(95) = (X(95)-JVS(510)*X(96)-JVS(511)*X(97)-JVS(512)*X(98)-JVS(513)*X(99)-JVS(514)*X(100)-JVS(515)*X(101)-JVS(516)& - &*X(102)-JVS(517)*X(103)-JVS(518)*X(104)-JVS(519)*X(105)-JVS(520)*X(106)-JVS(521)*X(107))/(JVS(509)) - X(94) = (X(94)-JVS(487)*X(96)-JVS(488)*X(98)-JVS(489)*X(100)-JVS(490)*X(101)-JVS(491)*X(102)-JVS(492)*X(103)-JVS(493)& - &*X(104)-JVS(494)*X(105)-JVS(495)*X(106))/(JVS(486)) - X(93) = (X(93)-JVS(464)*X(94)-JVS(465)*X(96)-JVS(466)*X(97)-JVS(467)*X(98)-JVS(468)*X(99)-JVS(469)*X(100)-JVS(470)& - &*X(101)-JVS(471)*X(102)-JVS(472)*X(103)-JVS(473)*X(104)-JVS(474)*X(105)-JVS(475)*X(106)-JVS(476)*X(107))& - &/(JVS(463)) - X(92) = (X(92)-JVS(442)*X(94)-JVS(443)*X(96)-JVS(444)*X(98)-JVS(445)*X(100)-JVS(446)*X(101)-JVS(447)*X(102)-JVS(448)& - &*X(103)-JVS(449)*X(104)-JVS(450)*X(105)-JVS(451)*X(106))/(JVS(441)) - X(91) = (X(91)-JVS(422)*X(96)-JVS(423)*X(98)-JVS(424)*X(101)-JVS(425)*X(102)-JVS(426)*X(103)-JVS(427)*X(105))& - &/(JVS(421)) - X(90) = (X(90)-JVS(414)*X(96)-JVS(415)*X(98)-JVS(416)*X(101)-JVS(417)*X(102)-JVS(418)*X(103)-JVS(419)*X(105))& - &/(JVS(413)) - X(89) = (X(89)-JVS(404)*X(90)-JVS(405)*X(91)-JVS(406)*X(94)-JVS(407)*X(96)-JVS(408)*X(98)-JVS(409)*X(101)-JVS(410)& - &*X(102)-JVS(411)*X(103)-JVS(412)*X(105))/(JVS(403)) - X(88) = (X(88)-JVS(387)*X(89)-JVS(388)*X(90)-JVS(389)*X(96)-JVS(390)*X(98)-JVS(391)*X(100)-JVS(392)*X(101)-JVS(393)& - &*X(102)-JVS(394)*X(103)-JVS(395)*X(104)-JVS(396)*X(105)-JVS(397)*X(106))/(JVS(386)) - X(87) = (X(87)-JVS(377)*X(96)-JVS(378)*X(98)-JVS(379)*X(102)-JVS(380)*X(103)-JVS(381)*X(105))/(JVS(376)) - X(86) = (X(86)-JVS(370)*X(96)-JVS(371)*X(98)-JVS(372)*X(102)-JVS(373)*X(103)-JVS(374)*X(105))/(JVS(369)) - X(85) = (X(85)-JVS(365)*X(96)-JVS(366)*X(98)-JVS(367)*X(103)-JVS(368)*X(105))/(JVS(364)) - X(84) = (X(84)-JVS(359)*X(98)-JVS(360)*X(100)-JVS(361)*X(101)-JVS(362)*X(103)-JVS(363)*X(106))/(JVS(358)) - X(83) = (X(83)-JVS(349)*X(96)-JVS(350)*X(98)-JVS(351)*X(102)-JVS(352)*X(103)-JVS(353)*X(105))/(JVS(348)) - X(82) = (X(82)-JVS(344)*X(89)-JVS(345)*X(98)-JVS(346)*X(101)-JVS(347)*X(102))/(JVS(343)) - X(81) = (X(81)-JVS(339)*X(84)-JVS(340)*X(96)-JVS(341)*X(98)-JVS(342)*X(100))/(JVS(338)) - X(80) = (X(80)-JVS(322)*X(81)-JVS(323)*X(83)-JVS(324)*X(85)-JVS(325)*X(86)-JVS(326)*X(87)-JVS(327)*X(90)-JVS(328)& - &*X(91)-JVS(329)*X(92)-JVS(330)*X(93)-JVS(331)*X(95)-JVS(332)*X(96)-JVS(333)*X(98)-JVS(334)*X(102)-JVS(335)& - &*X(103)-JVS(336)*X(105))/(JVS(321)) - X(79) = (X(79)-JVS(309)*X(84)-JVS(310)*X(91)-JVS(311)*X(92)-JVS(312)*X(93)-JVS(313)*X(94)-JVS(314)*X(95)-JVS(315)& - &*X(98)-JVS(316)*X(101)-JVS(317)*X(103)-JVS(318)*X(106))/(JVS(308)) - X(78) = (X(78)-JVS(302)*X(95)-JVS(303)*X(98)-JVS(304)*X(100)-JVS(305)*X(106)-JVS(306)*X(107))/(JVS(301)) - X(77) = (X(77)-JVS(294)*X(83)-JVS(295)*X(86)-JVS(296)*X(87)-JVS(297)*X(90)-JVS(298)*X(98)-JVS(299)*X(102))/(JVS(293)) - X(76) = (X(76)-JVS(289)*X(81)-JVS(290)*X(91)-JVS(291)*X(96)-JVS(292)*X(98))/(JVS(288)) - X(75) = (X(75)-JVS(283)*X(96)-JVS(284)*X(100)-JVS(285)*X(102)-JVS(286)*X(106))/(JVS(282)) - X(74) = (X(74)-JVS(277)*X(84)-JVS(278)*X(98)-JVS(279)*X(101)-JVS(280)*X(103)-JVS(281)*X(106))/(JVS(276)) - X(73) = (X(73)-JVS(272)*X(88)-JVS(273)*X(98)-JVS(274)*X(104)-JVS(275)*X(106))/(JVS(271)) - X(72) = (X(72)-JVS(262)*X(86)-JVS(263)*X(89)-JVS(264)*X(90)-JVS(265)*X(92)-JVS(266)*X(93)-JVS(267)*X(95)-JVS(268)& - &*X(98)-JVS(269)*X(102)-JVS(270)*X(107))/(JVS(261)) - X(71) = (X(71)-JVS(254)*X(95)-JVS(255)*X(100)-JVS(256)*X(106))/(JVS(253)) - X(70) = (X(70)-JVS(251)*X(98)-JVS(252)*X(102))/(JVS(250)) - X(69) = (X(69)-JVS(246)*X(96)-JVS(247)*X(98)-JVS(248)*X(105)-JVS(249)*X(106))/(JVS(245)) - X(68) = (X(68)-JVS(241)*X(98)-JVS(242)*X(102)-JVS(243)*X(107))/(JVS(240)) - X(67) = (X(67)-JVS(238)*X(98)-JVS(239)*X(102))/(JVS(237)) - X(66) = (X(66)-JVS(234)*X(98)-JVS(235)*X(99)-JVS(236)*X(101))/(JVS(233)) - X(65) = (X(65)-JVS(227)*X(97)-JVS(228)*X(98)-JVS(229)*X(99)-JVS(230)*X(104)-JVS(231)*X(106)-JVS(232)*X(107))& - &/(JVS(226)) - X(64) = (X(64)-JVS(222)*X(97)-JVS(223)*X(98)-JVS(224)*X(99)-JVS(225)*X(106))/(JVS(221)) - X(63) = (X(63)-JVS(218)*X(98)-JVS(219)*X(101)-JVS(220)*X(106))/(JVS(217)) - X(62) = (X(62)-JVS(215)*X(98)-JVS(216)*X(100))/(JVS(214)) - X(61) = (X(61)-JVS(207)*X(71)-JVS(208)*X(83)-JVS(209)*X(96)-JVS(210)*X(98)-JVS(211)*X(100))/(JVS(206)) - X(60) = (X(60)-JVS(203)*X(98)-JVS(204)*X(100)-JVS(205)*X(101))/(JVS(202)) - X(59) = (X(59)-JVS(199)*X(69)-JVS(200)*X(96)-JVS(201)*X(98))/(JVS(198)) - X(58) = (X(58)-JVS(196)*X(98)-JVS(197)*X(102))/(JVS(195)) - X(57) = (X(57)-JVS(194)*X(98))/(JVS(193)) - X(56) = (X(56)-JVS(191)*X(101)-JVS(192)*X(103))/(JVS(190)) - X(55) = (X(55)-JVS(188)*X(96)-JVS(189)*X(98))/(JVS(187)) - X(54) = (X(54)-JVS(184)*X(55)-JVS(185)*X(98))/(JVS(183)) - X(53) = (X(53)-JVS(182)*X(98))/(JVS(181)) - X(52) = (X(52)-JVS(179)*X(75)-JVS(180)*X(106))/(JVS(178)) - X(51) = (X(51)-JVS(176)*X(97)-JVS(177)*X(101))/(JVS(175)) - X(50) = (X(50)-JVS(174)*X(98))/(JVS(173)) - X(49) = (X(49)-JVS(172)*X(75))/(JVS(171)) - X(48) = (X(48)-JVS(148)*X(53)-JVS(149)*X(57)-JVS(150)*X(61)-JVS(151)*X(64)-JVS(152)*X(65)-JVS(153)*X(67)-JVS(154)& - &*X(68)-JVS(155)*X(70)-JVS(156)*X(76)-JVS(157)*X(78)-JVS(158)*X(81)-JVS(159)*X(83)-JVS(160)*X(84)-JVS(161)*X(85)& - &-JVS(162)*X(86)-JVS(163)*X(87)-JVS(164)*X(89)-JVS(165)*X(90)-JVS(166)*X(91)-JVS(167)*X(92)-JVS(168)*X(93)& - &-JVS(169)*X(95)-JVS(170)*X(98))/(JVS(147)) - X(47) = (X(47)-JVS(145)*X(80)-JVS(146)*X(98))/(JVS(144)) - X(46) = (X(46)-JVS(143)*X(98))/(JVS(142)) - X(45) = (X(45)-JVS(140)*X(46)-JVS(141)*X(98))/(JVS(139)) - X(44) = (X(44)-JVS(137)*X(45)-JVS(138)*X(98))/(JVS(136)) - X(43) = (X(43)-JVS(134)*X(44)-JVS(135)*X(98))/(JVS(133)) - X(42) = (X(42)-JVS(132)*X(98))/(JVS(131)) - X(41) = (X(41)-JVS(129)*X(42)-JVS(130)*X(98))/(JVS(128)) - X(40) = (X(40)-JVS(126)*X(41)-JVS(127)*X(98))/(JVS(125)) - X(39) = (X(39)-JVS(123)*X(40)-JVS(124)*X(98))/(JVS(122)) - X(38) = (X(38)-JVS(118)*X(59)-JVS(119)*X(69)-JVS(120)*X(96)-JVS(121)*X(98))/(JVS(117)) - X(37) = (X(37)-JVS(116)*X(98))/(JVS(115)) - X(36) = (X(36)-JVS(113)*X(37)-JVS(114)*X(98))/(JVS(112)) - X(35) = (X(35)-JVS(110)*X(37)-JVS(111)*X(98))/(JVS(109)) - X(34) = (X(34)-JVS(108)*X(98))/(JVS(107)) - X(33) = (X(33)-JVS(105)*X(34)-JVS(106)*X(98))/(JVS(104)) - X(32) = (X(32)-JVS(103)*X(98))/(JVS(102)) - X(31) = (X(31)-JVS(100)*X(32)-JVS(101)*X(98))/(JVS(99)) - X(30) = (X(30)-JVS(97)*X(32)-JVS(98)*X(98))/(JVS(96)) - X(29) = (X(29)-JVS(93)*X(96)-JVS(94)*X(98)-JVS(95)*X(103))/(JVS(92)) - X(28) = (X(28)-JVS(90)*X(29)-JVS(91)*X(103))/(JVS(89)) - X(27) = (X(27)-JVS(87)*X(29)-JVS(88)*X(96))/(JVS(86)) - X(26) = (X(26)-JVS(84)*X(29)-JVS(85)*X(96))/(JVS(83)) - X(25) = (X(25)-JVS(81)*X(29)-JVS(82)*X(98))/(JVS(80)) - X(24) = (X(24)-JVS(78)*X(29)-JVS(79)*X(98))/(JVS(77)) - X(23) = (X(23)-JVS(75)*X(96)-JVS(76)*X(98))/(JVS(74)) - X(22) = (X(22)-JVS(72)*X(23)-JVS(73)*X(96))/(JVS(71)) - X(21) = (X(21)-JVS(69)*X(23)-JVS(70)*X(96))/(JVS(68)) - X(20) = (X(20)-JVS(66)*X(23)-JVS(67)*X(98))/(JVS(65)) - X(19) = (X(19)-JVS(63)*X(23)-JVS(64)*X(98))/(JVS(62)) - X(18) = (X(18)-JVS(61)*X(98))/(JVS(60)) - X(17) = (X(17)-JVS(58)*X(18)-JVS(59)*X(98))/(JVS(57)) - X(16) = (X(16)-JVS(55)*X(18)-JVS(56)*X(98))/(JVS(54)) - X(15) = (X(15)-JVS(53)*X(98))/(JVS(52)) - X(14) = (X(14)-JVS(50)*X(15)-JVS(51)*X(98))/(JVS(49)) - X(13) = (X(13)-JVS(47)*X(15)-JVS(48)*X(98))/(JVS(46)) - X(12) = (X(12)-JVS(45)*X(98))/(JVS(44)) - X(11) = (X(11)-JVS(42)*X(12)-JVS(43)*X(98))/(JVS(41)) - X(10) = (X(10)-JVS(36)*X(85)-JVS(37)*X(96)-JVS(38)*X(98)-JVS(39)*X(103)-JVS(40)*X(105))/(JVS(35)) - X(9) = (X(9)-JVS(33)*X(50)-JVS(34)*X(98))/(JVS(32)) - X(8) = (X(8)-JVS(30)*X(50)-JVS(31)*X(98))/(JVS(29)) - X(7) = (X(7)-JVS(24)*X(90)-JVS(25)*X(96)-JVS(26)*X(98)-JVS(27)*X(103)-JVS(28)*X(105))/(JVS(23)) - X(6) = (X(6)-JVS(18)*X(90)-JVS(19)*X(96)-JVS(20)*X(98)-JVS(21)*X(103)-JVS(22)*X(105))/(JVS(17)) - X(5) = (X(5)-JVS(15)*X(57)-JVS(16)*X(98))/(JVS(14)) - X(4) = (X(4)-JVS(12)*X(57)-JVS(13)*X(98))/(JVS(11)) - X(3) = (X(3)-JVS(8)*X(84)-JVS(9)*X(98)-JVS(10)*X(103))/(JVS(7)) - X(2) = (X(2)-JVS(5)*X(53)-JVS(6)*X(98))/(JVS(4)) - X(1) = (X(1)-JVS(2)*X(53)-JVS(3)*X(98))/(JVS(1)) - -END SUBROUTINE KppSolve - -! End of KppSolve function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! KppSolveTR - sparse, transposed back substitution -! Arguments : -! JVS - sparse Jacobian of variables -! X - Vector for variables -! XX - Vector for output variables -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE KppSolveTR ( JVS, X, XX ) - -! JVS - sparse Jacobian of variables - REAL(kind=dp) :: JVS(LU_NONZERO) -! X - Vector for variables - REAL(kind=dp) :: X(NVAR) -! XX - Vector for output variables - REAL(kind=dp) :: XX(NVAR) - - XX(1) = X(1)/JVS(1) - XX(2) = X(2)/JVS(4) - XX(3) = X(3)/JVS(7) - XX(4) = X(4)/JVS(11) - XX(5) = X(5)/JVS(14) - XX(6) = X(6)/JVS(17) - XX(7) = X(7)/JVS(23) - XX(8) = X(8)/JVS(29) - XX(9) = X(9)/JVS(32) - XX(10) = X(10)/JVS(35) - XX(11) = X(11)/JVS(41) - XX(12) = (X(12)-JVS(42)*XX(11))/(JVS(44)) - XX(13) = X(13)/JVS(46) - XX(14) = X(14)/JVS(49) - XX(15) = (X(15)-JVS(47)*XX(13)-JVS(50)*XX(14))/(JVS(52)) - XX(16) = X(16)/JVS(54) - XX(17) = X(17)/JVS(57) - XX(18) = (X(18)-JVS(55)*XX(16)-JVS(58)*XX(17))/(JVS(60)) - XX(19) = X(19)/JVS(62) - XX(20) = X(20)/JVS(65) - XX(21) = X(21)/JVS(68) - XX(22) = X(22)/JVS(71) - XX(23) = (X(23)-JVS(63)*XX(19)-JVS(66)*XX(20)-JVS(69)*XX(21)-JVS(72)*XX(22))/(JVS(74)) - XX(24) = X(24)/JVS(77) - XX(25) = X(25)/JVS(80) - XX(26) = X(26)/JVS(83) - XX(27) = X(27)/JVS(86) - XX(28) = X(28)/JVS(89) - XX(29) = (X(29)-JVS(78)*XX(24)-JVS(81)*XX(25)-JVS(84)*XX(26)-JVS(87)*XX(27)-JVS(90)*XX(28))/(JVS(92)) - XX(30) = X(30)/JVS(96) - XX(31) = X(31)/JVS(99) - XX(32) = (X(32)-JVS(97)*XX(30)-JVS(100)*XX(31))/(JVS(102)) - XX(33) = X(33)/JVS(104) - XX(34) = (X(34)-JVS(105)*XX(33))/(JVS(107)) - XX(35) = X(35)/JVS(109) - XX(36) = X(36)/JVS(112) - XX(37) = (X(37)-JVS(110)*XX(35)-JVS(113)*XX(36))/(JVS(115)) - XX(38) = X(38)/JVS(117) - XX(39) = X(39)/JVS(122) - XX(40) = (X(40)-JVS(123)*XX(39))/(JVS(125)) - XX(41) = (X(41)-JVS(126)*XX(40))/(JVS(128)) - XX(42) = (X(42)-JVS(129)*XX(41))/(JVS(131)) - XX(43) = X(43)/JVS(133) - XX(44) = (X(44)-JVS(134)*XX(43))/(JVS(136)) - XX(45) = (X(45)-JVS(137)*XX(44))/(JVS(139)) - XX(46) = (X(46)-JVS(140)*XX(45))/(JVS(142)) - XX(47) = X(47)/JVS(144) - XX(48) = X(48)/JVS(147) - XX(49) = X(49)/JVS(171) - XX(50) = (X(50)-JVS(30)*XX(8)-JVS(33)*XX(9))/(JVS(173)) - XX(51) = X(51)/JVS(175) - XX(52) = X(52)/JVS(178) - XX(53) = (X(53)-JVS(2)*XX(1)-JVS(5)*XX(2)-JVS(148)*XX(48))/(JVS(181)) - XX(54) = X(54)/JVS(183) - XX(55) = (X(55)-JVS(184)*XX(54))/(JVS(187)) - XX(56) = X(56)/JVS(190) - XX(57) = (X(57)-JVS(12)*XX(4)-JVS(15)*XX(5)-JVS(149)*XX(48))/(JVS(193)) - XX(58) = X(58)/JVS(195) - XX(59) = (X(59)-JVS(118)*XX(38))/(JVS(198)) - XX(60) = X(60)/JVS(202) - XX(61) = (X(61)-JVS(150)*XX(48))/(JVS(206)) - XX(62) = X(62)/JVS(214) - XX(63) = X(63)/JVS(217) - XX(64) = (X(64)-JVS(151)*XX(48))/(JVS(221)) - XX(65) = (X(65)-JVS(152)*XX(48))/(JVS(226)) - XX(66) = X(66)/JVS(233) - XX(67) = (X(67)-JVS(153)*XX(48))/(JVS(237)) - XX(68) = (X(68)-JVS(154)*XX(48))/(JVS(240)) - XX(69) = (X(69)-JVS(119)*XX(38)-JVS(199)*XX(59))/(JVS(245)) - XX(70) = (X(70)-JVS(155)*XX(48))/(JVS(250)) - XX(71) = (X(71)-JVS(207)*XX(61))/(JVS(253)) - XX(72) = X(72)/JVS(261) - XX(73) = X(73)/JVS(271) - XX(74) = X(74)/JVS(276) - XX(75) = (X(75)-JVS(172)*XX(49)-JVS(179)*XX(52))/(JVS(282)) - XX(76) = (X(76)-JVS(156)*XX(48))/(JVS(288)) - XX(77) = X(77)/JVS(293) - XX(78) = (X(78)-JVS(157)*XX(48))/(JVS(301)) - XX(79) = X(79)/JVS(308) - XX(80) = (X(80)-JVS(145)*XX(47))/(JVS(321)) - XX(81) = (X(81)-JVS(158)*XX(48)-JVS(289)*XX(76)-JVS(322)*XX(80))/(JVS(338)) - XX(82) = X(82)/JVS(343) - XX(83) = (X(83)-JVS(159)*XX(48)-JVS(208)*XX(61)-JVS(294)*XX(77)-JVS(323)*XX(80))/(JVS(348)) - XX(84) = (X(84)-JVS(8)*XX(3)-JVS(160)*XX(48)-JVS(277)*XX(74)-JVS(309)*XX(79)-JVS(339)*XX(81))/(JVS(358)) - XX(85) = (X(85)-JVS(36)*XX(10)-JVS(161)*XX(48)-JVS(324)*XX(80))/(JVS(364)) - XX(86) = (X(86)-JVS(162)*XX(48)-JVS(262)*XX(72)-JVS(295)*XX(77)-JVS(325)*XX(80))/(JVS(369)) - XX(87) = (X(87)-JVS(163)*XX(48)-JVS(296)*XX(77)-JVS(326)*XX(80))/(JVS(376)) - XX(88) = (X(88)-JVS(272)*XX(73))/(JVS(386)) - XX(89) = (X(89)-JVS(164)*XX(48)-JVS(263)*XX(72)-JVS(344)*XX(82)-JVS(387)*XX(88))/(JVS(403)) - XX(90) = (X(90)-JVS(18)*XX(6)-JVS(24)*XX(7)-JVS(165)*XX(48)-JVS(264)*XX(72)-JVS(297)*XX(77)-JVS(327)*XX(80)-JVS(388)& - &*XX(88)-JVS(404)*XX(89))/(JVS(413)) - XX(91) = (X(91)-JVS(166)*XX(48)-JVS(290)*XX(76)-JVS(310)*XX(79)-JVS(328)*XX(80)-JVS(405)*XX(89))/(JVS(421)) - XX(92) = (X(92)-JVS(167)*XX(48)-JVS(265)*XX(72)-JVS(311)*XX(79)-JVS(329)*XX(80))/(JVS(441)) - XX(93) = (X(93)-JVS(168)*XX(48)-JVS(266)*XX(72)-JVS(312)*XX(79)-JVS(330)*XX(80))/(JVS(463)) - XX(94) = (X(94)-JVS(313)*XX(79)-JVS(406)*XX(89)-JVS(442)*XX(92)-JVS(464)*XX(93))/(JVS(486)) - XX(95) = (X(95)-JVS(169)*XX(48)-JVS(254)*XX(71)-JVS(267)*XX(72)-JVS(302)*XX(78)-JVS(314)*XX(79)-JVS(331)*XX(80))& - &/(JVS(509)) - XX(96) = (X(96)-JVS(19)*XX(6)-JVS(25)*XX(7)-JVS(37)*XX(10)-JVS(70)*XX(21)-JVS(73)*XX(22)-JVS(75)*XX(23)-JVS(85)*XX(26)& - &-JVS(88)*XX(27)-JVS(93)*XX(29)-JVS(120)*XX(38)-JVS(188)*XX(55)-JVS(200)*XX(59)-JVS(209)*XX(61)-JVS(246)*XX(69)& - &-JVS(283)*XX(75)-JVS(291)*XX(76)-JVS(332)*XX(80)-JVS(340)*XX(81)-JVS(349)*XX(83)-JVS(365)*XX(85)-JVS(370)& - &*XX(86)-JVS(377)*XX(87)-JVS(389)*XX(88)-JVS(407)*XX(89)-JVS(414)*XX(90)-JVS(422)*XX(91)-JVS(443)*XX(92)& - &-JVS(465)*XX(93)-JVS(487)*XX(94)-JVS(510)*XX(95))/(JVS(532)) - XX(97) = (X(97)-JVS(176)*XX(51)-JVS(222)*XX(64)-JVS(227)*XX(65)-JVS(466)*XX(93)-JVS(511)*XX(95)-JVS(533)*XX(96))& - &/(JVS(551)) - XX(98) = (X(98)-JVS(3)*XX(1)-JVS(6)*XX(2)-JVS(9)*XX(3)-JVS(13)*XX(4)-JVS(16)*XX(5)-JVS(20)*XX(6)-JVS(26)*XX(7)-JVS(31)& - &*XX(8)-JVS(34)*XX(9)-JVS(38)*XX(10)-JVS(43)*XX(11)-JVS(45)*XX(12)-JVS(48)*XX(13)-JVS(51)*XX(14)-JVS(53)*XX(15)& - &-JVS(56)*XX(16)-JVS(59)*XX(17)-JVS(61)*XX(18)-JVS(64)*XX(19)-JVS(67)*XX(20)-JVS(76)*XX(23)-JVS(79)*XX(24)& - &-JVS(82)*XX(25)-JVS(94)*XX(29)-JVS(98)*XX(30)-JVS(101)*XX(31)-JVS(103)*XX(32)-JVS(106)*XX(33)-JVS(108)*XX(34)& - &-JVS(111)*XX(35)-JVS(114)*XX(36)-JVS(116)*XX(37)-JVS(121)*XX(38)-JVS(124)*XX(39)-JVS(127)*XX(40)-JVS(130)& - &*XX(41)-JVS(132)*XX(42)-JVS(135)*XX(43)-JVS(138)*XX(44)-JVS(141)*XX(45)-JVS(143)*XX(46)-JVS(146)*XX(47)& - &-JVS(170)*XX(48)-JVS(174)*XX(50)-JVS(182)*XX(53)-JVS(185)*XX(54)-JVS(189)*XX(55)-JVS(194)*XX(57)-JVS(196)& - &*XX(58)-JVS(201)*XX(59)-JVS(203)*XX(60)-JVS(210)*XX(61)-JVS(215)*XX(62)-JVS(218)*XX(63)-JVS(223)*XX(64)& - &-JVS(228)*XX(65)-JVS(234)*XX(66)-JVS(238)*XX(67)-JVS(241)*XX(68)-JVS(247)*XX(69)-JVS(251)*XX(70)-JVS(268)& - &*XX(72)-JVS(273)*XX(73)-JVS(278)*XX(74)-JVS(292)*XX(76)-JVS(298)*XX(77)-JVS(303)*XX(78)-JVS(315)*XX(79)& - &-JVS(333)*XX(80)-JVS(341)*XX(81)-JVS(345)*XX(82)-JVS(350)*XX(83)-JVS(359)*XX(84)-JVS(366)*XX(85)-JVS(371)& - &*XX(86)-JVS(378)*XX(87)-JVS(390)*XX(88)-JVS(408)*XX(89)-JVS(415)*XX(90)-JVS(423)*XX(91)-JVS(444)*XX(92)& - &-JVS(467)*XX(93)-JVS(488)*XX(94)-JVS(512)*XX(95)-JVS(534)*XX(96)-JVS(552)*XX(97))/(JVS(605)) - XX(99) = (X(99)-JVS(224)*XX(64)-JVS(229)*XX(65)-JVS(235)*XX(66)-JVS(468)*XX(93)-JVS(513)*XX(95)-JVS(535)*XX(96)& - &-JVS(553)*XX(97)-JVS(606)*XX(98))/(JVS(624)) - XX(100) = (X(100)-JVS(204)*XX(60)-JVS(211)*XX(61)-JVS(216)*XX(62)-JVS(255)*XX(71)-JVS(284)*XX(75)-JVS(304)*XX(78)& - &-JVS(342)*XX(81)-JVS(360)*XX(84)-JVS(391)*XX(88)-JVS(445)*XX(92)-JVS(469)*XX(93)-JVS(489)*XX(94)-JVS(514)& - &*XX(95)-JVS(536)*XX(96)-JVS(554)*XX(97)-JVS(607)*XX(98)-JVS(625)*XX(99))/(JVS(647)) - XX(101) = (X(101)-JVS(177)*XX(51)-JVS(191)*XX(56)-JVS(205)*XX(60)-JVS(219)*XX(63)-JVS(236)*XX(66)-JVS(279)*XX(74)& - &-JVS(316)*XX(79)-JVS(346)*XX(82)-JVS(361)*XX(84)-JVS(392)*XX(88)-JVS(409)*XX(89)-JVS(416)*XX(90)-JVS(424)& - &*XX(91)-JVS(446)*XX(92)-JVS(470)*XX(93)-JVS(490)*XX(94)-JVS(515)*XX(95)-JVS(537)*XX(96)-JVS(555)*XX(97)& - &-JVS(608)*XX(98)-JVS(626)*XX(99)-JVS(648)*XX(100))/(JVS(683)) - XX(102) = (X(102)-JVS(197)*XX(58)-JVS(239)*XX(67)-JVS(242)*XX(68)-JVS(252)*XX(70)-JVS(269)*XX(72)-JVS(285)*XX(75)& - &-JVS(299)*XX(77)-JVS(334)*XX(80)-JVS(347)*XX(82)-JVS(351)*XX(83)-JVS(372)*XX(86)-JVS(379)*XX(87)-JVS(393)& - &*XX(88)-JVS(410)*XX(89)-JVS(417)*XX(90)-JVS(425)*XX(91)-JVS(447)*XX(92)-JVS(471)*XX(93)-JVS(491)*XX(94)& - &-JVS(516)*XX(95)-JVS(538)*XX(96)-JVS(556)*XX(97)-JVS(609)*XX(98)-JVS(627)*XX(99)-JVS(649)*XX(100)-JVS(684)& - &*XX(101))/(JVS(715)) - XX(103) = (X(103)-JVS(10)*XX(3)-JVS(21)*XX(6)-JVS(27)*XX(7)-JVS(39)*XX(10)-JVS(91)*XX(28)-JVS(95)*XX(29)-JVS(192)& - &*XX(56)-JVS(280)*XX(74)-JVS(317)*XX(79)-JVS(335)*XX(80)-JVS(352)*XX(83)-JVS(362)*XX(84)-JVS(367)*XX(85)& - &-JVS(373)*XX(86)-JVS(380)*XX(87)-JVS(394)*XX(88)-JVS(411)*XX(89)-JVS(418)*XX(90)-JVS(426)*XX(91)-JVS(448)& - &*XX(92)-JVS(472)*XX(93)-JVS(492)*XX(94)-JVS(517)*XX(95)-JVS(539)*XX(96)-JVS(557)*XX(97)-JVS(610)*XX(98)& - &-JVS(628)*XX(99)-JVS(650)*XX(100)-JVS(685)*XX(101)-JVS(716)*XX(102))/(JVS(742)) - XX(104) = (X(104)-JVS(230)*XX(65)-JVS(274)*XX(73)-JVS(395)*XX(88)-JVS(449)*XX(92)-JVS(473)*XX(93)-JVS(493)*XX(94)& - &-JVS(518)*XX(95)-JVS(558)*XX(97)-JVS(611)*XX(98)-JVS(629)*XX(99)-JVS(651)*XX(100)-JVS(686)*XX(101)-JVS(717)& - &*XX(102)-JVS(743)*XX(103))/(JVS(775)) - XX(105) = (X(105)-JVS(22)*XX(6)-JVS(28)*XX(7)-JVS(40)*XX(10)-JVS(248)*XX(69)-JVS(336)*XX(80)-JVS(353)*XX(83)-JVS(368)& - &*XX(85)-JVS(374)*XX(86)-JVS(381)*XX(87)-JVS(396)*XX(88)-JVS(412)*XX(89)-JVS(419)*XX(90)-JVS(427)*XX(91)& - &-JVS(450)*XX(92)-JVS(474)*XX(93)-JVS(494)*XX(94)-JVS(519)*XX(95)-JVS(540)*XX(96)-JVS(559)*XX(97)-JVS(612)& - &*XX(98)-JVS(630)*XX(99)-JVS(652)*XX(100)-JVS(687)*XX(101)-JVS(718)*XX(102)-JVS(744)*XX(103)-JVS(776)*XX(104))& - &/(JVS(799)) - XX(106) = (X(106)-JVS(180)*XX(52)-JVS(220)*XX(63)-JVS(225)*XX(64)-JVS(231)*XX(65)-JVS(249)*XX(69)-JVS(256)*XX(71)& - &-JVS(275)*XX(73)-JVS(281)*XX(74)-JVS(286)*XX(75)-JVS(305)*XX(78)-JVS(318)*XX(79)-JVS(363)*XX(84)-JVS(397)& - &*XX(88)-JVS(451)*XX(92)-JVS(475)*XX(93)-JVS(495)*XX(94)-JVS(520)*XX(95)-JVS(541)*XX(96)-JVS(560)*XX(97)& - &-JVS(613)*XX(98)-JVS(631)*XX(99)-JVS(653)*XX(100)-JVS(688)*XX(101)-JVS(719)*XX(102)-JVS(745)*XX(103)-JVS(777)& - &*XX(104)-JVS(800)*XX(105))/(JVS(847)) - XX(107) = (X(107)-JVS(232)*XX(65)-JVS(243)*XX(68)-JVS(270)*XX(72)-JVS(306)*XX(78)-JVS(476)*XX(93)-JVS(521)*XX(95)& - &-JVS(561)*XX(97)-JVS(614)*XX(98)-JVS(632)*XX(99)-JVS(654)*XX(100)-JVS(689)*XX(101)-JVS(720)*XX(102)-JVS(746)& - &*XX(103)-JVS(778)*XX(104)-JVS(801)*XX(105)-JVS(848)*XX(106))/(JVS(868)) - XX(107) = XX(107) - XX(106) = XX(106)-JVS(867)*XX(107) - XX(105) = XX(105)-JVS(846)*XX(106)-JVS(866)*XX(107) - XX(104) = XX(104)-JVS(798)*XX(105)-JVS(845)*XX(106)-JVS(865)*XX(107) - XX(103) = XX(103)-JVS(774)*XX(104)-JVS(797)*XX(105)-JVS(844)*XX(106)-JVS(864)*XX(107) - XX(102) = XX(102)-JVS(741)*XX(103)-JVS(773)*XX(104)-JVS(796)*XX(105)-JVS(843)*XX(106)-JVS(863)*XX(107) - XX(101) = XX(101)-JVS(714)*XX(102)-JVS(740)*XX(103)-JVS(772)*XX(104)-JVS(795)*XX(105)-JVS(842)*XX(106)-JVS(862)& - &*XX(107) - XX(100) = XX(100)-JVS(682)*XX(101)-JVS(713)*XX(102)-JVS(739)*XX(103)-JVS(771)*XX(104)-JVS(794)*XX(105)-JVS(841)& - &*XX(106)-JVS(861)*XX(107) - XX(99) = XX(99)-JVS(646)*XX(100)-JVS(681)*XX(101)-JVS(712)*XX(102)-JVS(738)*XX(103)-JVS(770)*XX(104)-JVS(793)*XX(105)& - &-JVS(840)*XX(106)-JVS(860)*XX(107) - XX(98) = XX(98)-JVS(623)*XX(99)-JVS(645)*XX(100)-JVS(680)*XX(101)-JVS(711)*XX(102)-JVS(737)*XX(103)-JVS(769)*XX(104)& - &-JVS(792)*XX(105)-JVS(839)*XX(106)-JVS(859)*XX(107) - XX(97) = XX(97)-JVS(604)*XX(98)-JVS(622)*XX(99)-JVS(644)*XX(100)-JVS(679)*XX(101)-JVS(710)*XX(102)-JVS(736)*XX(103)& - &-JVS(768)*XX(104)-JVS(791)*XX(105)-JVS(838)*XX(106)-JVS(858)*XX(107) - XX(96) = XX(96)-JVS(550)*XX(97)-JVS(603)*XX(98)-JVS(621)*XX(99)-JVS(643)*XX(100)-JVS(678)*XX(101)-JVS(709)*XX(102)& - &-JVS(735)*XX(103)-JVS(767)*XX(104)-JVS(790)*XX(105)-JVS(837)*XX(106)-JVS(857)*XX(107) - XX(95) = XX(95)-JVS(602)*XX(98)-JVS(642)*XX(100)-JVS(677)*XX(101)-JVS(708)*XX(102)-JVS(734)*XX(103)-JVS(766)*XX(104)& - &-JVS(789)*XX(105)-JVS(836)*XX(106)-JVS(856)*XX(107) - XX(94) = XX(94)-JVS(508)*XX(95)-JVS(549)*XX(97)-JVS(601)*XX(98)-JVS(620)*XX(99)-JVS(641)*XX(100)-JVS(676)*XX(101)& - &-JVS(707)*XX(102)-JVS(733)*XX(103)-JVS(765)*XX(104)-JVS(788)*XX(105)-JVS(835)*XX(106)-JVS(855)*XX(107) - XX(93) = XX(93)-JVS(548)*XX(97)-JVS(600)*XX(98)-JVS(675)*XX(101)-JVS(706)*XX(102)-JVS(732)*XX(103)-JVS(787)*XX(105)& - &-JVS(834)*XX(106)-JVS(854)*XX(107) - XX(92) = XX(92)-JVS(599)*XX(98)-JVS(619)*XX(99)-JVS(674)*XX(101)-JVS(705)*XX(102)-JVS(731)*XX(103)-JVS(786)*XX(105)& - &-JVS(833)*XX(106)-JVS(853)*XX(107) - XX(91) = XX(91)-JVS(440)*XX(92)-JVS(462)*XX(93)-JVS(485)*XX(94)-JVS(507)*XX(95)-JVS(531)*XX(96)-JVS(547)*XX(97)& - &-JVS(598)*XX(98)-JVS(618)*XX(99)-JVS(640)*XX(100)-JVS(673)*XX(101)-JVS(704)*XX(102)-JVS(730)*XX(103)-JVS(764)& - &*XX(104)-JVS(832)*XX(106) - XX(90) = XX(90)-JVS(420)*XX(91)-JVS(439)*XX(92)-JVS(461)*XX(93)-JVS(484)*XX(94)-JVS(506)*XX(95)-JVS(530)*XX(96)& - &-JVS(597)*XX(98)-JVS(617)*XX(99)-JVS(639)*XX(100)-JVS(672)*XX(101)-JVS(703)*XX(102)-JVS(729)*XX(103)-JVS(763)& - &*XX(104)-JVS(785)*XX(105)-JVS(831)*XX(106) - XX(89) = XX(89)-JVS(438)*XX(92)-JVS(460)*XX(93)-JVS(483)*XX(94)-JVS(596)*XX(98)-JVS(638)*XX(100)-JVS(671)*XX(101)& - &-JVS(702)*XX(102)-JVS(762)*XX(104)-JVS(830)*XX(106) - XX(88) = XX(88)-JVS(437)*XX(92)-JVS(459)*XX(93)-JVS(482)*XX(94)-JVS(595)*XX(98)-JVS(637)*XX(100)-JVS(761)*XX(104)& - &-JVS(829)*XX(106) - XX(87) = XX(87)-JVS(385)*XX(88)-JVS(402)*XX(89)-JVS(436)*XX(92)-JVS(458)*XX(93)-JVS(505)*XX(95)-JVS(529)*XX(96)& - &-JVS(594)*XX(98)-JVS(670)*XX(101)-JVS(701)*XX(102)-JVS(728)*XX(103)-JVS(760)*XX(104)-JVS(784)*XX(105)-JVS(828)& - &*XX(106) - XX(86) = XX(86)-JVS(375)*XX(87)-JVS(401)*XX(89)-JVS(435)*XX(92)-JVS(457)*XX(93)-JVS(504)*XX(95)-JVS(528)*XX(96)& - &-JVS(593)*XX(98)-JVS(669)*XX(101)-JVS(700)*XX(102)-JVS(727)*XX(103)-JVS(759)*XX(104)-JVS(783)*XX(105)-JVS(827)& - &*XX(106) - XX(85) = XX(85)-JVS(384)*XX(88)-JVS(400)*XX(89)-JVS(434)*XX(92)-JVS(481)*XX(94)-JVS(503)*XX(95)-JVS(527)*XX(96)& - &-JVS(592)*XX(98)-JVS(616)*XX(99)-JVS(668)*XX(101)-JVS(726)*XX(103)-JVS(758)*XX(104)-JVS(782)*XX(105)-JVS(826)& - &*XX(106) - XX(84) = XX(84)-JVS(433)*XX(92)-JVS(480)*XX(94)-JVS(502)*XX(95)-JVS(526)*XX(96)-JVS(546)*XX(97)-JVS(591)*XX(98)& - &-JVS(667)*XX(101)-JVS(725)*XX(103)-JVS(757)*XX(104)-JVS(825)*XX(106) - XX(83) = XX(83)-JVS(432)*XX(92)-JVS(501)*XX(95)-JVS(525)*XX(96)-JVS(590)*XX(98)-JVS(666)*XX(101)-JVS(699)*XX(102)& - &-JVS(724)*XX(103)-JVS(756)*XX(104)-JVS(781)*XX(105)-JVS(824)*XX(106) - XX(82) = XX(82)-JVS(383)*XX(88)-JVS(399)*XX(89)-JVS(431)*XX(92)-JVS(456)*XX(93)-JVS(479)*XX(94)-JVS(665)*XX(101)& - &-JVS(755)*XX(104)-JVS(823)*XX(106) - XX(81) = XX(81)-JVS(430)*XX(92)-JVS(500)*XX(95)-JVS(524)*XX(96)-JVS(545)*XX(97)-JVS(589)*XX(98)-JVS(754)*XX(104)& - &-JVS(822)*XX(106) - XX(80) = XX(80)-JVS(588)*XX(98)-JVS(821)*XX(106) - XX(79) = XX(79)-JVS(587)*XX(98)-JVS(664)*XX(101)-JVS(723)*XX(103) - XX(78) = XX(78)-JVS(499)*XX(95)-JVS(586)*XX(98)-JVS(753)*XX(104)-JVS(820)*XX(106)-JVS(852)*XX(107) - XX(77) = XX(77)-JVS(320)*XX(80)-JVS(585)*XX(98)-JVS(698)*XX(102)-JVS(819)*XX(106) - XX(76) = XX(76)-JVS(319)*XX(80)-JVS(544)*XX(97)-JVS(584)*XX(98)-JVS(752)*XX(104)-JVS(818)*XX(106) - XX(75) = XX(75)-JVS(583)*XX(98)-JVS(636)*XX(100)-JVS(663)*XX(101)-JVS(697)*XX(102)-JVS(817)*XX(106) - XX(74) = XX(74)-JVS(357)*XX(84)-JVS(478)*XX(94)-JVS(662)*XX(101)-JVS(816)*XX(106) - XX(73) = XX(73)-JVS(429)*XX(92)-JVS(455)*XX(93)-JVS(582)*XX(98)-JVS(751)*XX(104)-JVS(815)*XX(106) - XX(72) = XX(72)-JVS(581)*XX(98)-JVS(696)*XX(102) - XX(71) = XX(71)-JVS(300)*XX(78)-JVS(498)*XX(95)-JVS(580)*XX(98)-JVS(635)*XX(100)-JVS(661)*XX(101)-JVS(814)*XX(106) - XX(70) = XX(70)-JVS(260)*XX(72)-JVS(428)*XX(92)-JVS(454)*XX(93)-JVS(497)*XX(95)-JVS(579)*XX(98)-JVS(695)*XX(102)& - &-JVS(750)*XX(104)-JVS(813)*XX(106) - XX(69) = XX(69)-JVS(523)*XX(96)-JVS(578)*XX(98)-JVS(780)*XX(105)-JVS(812)*XX(106) - XX(68) = XX(68)-JVS(259)*XX(72)-JVS(496)*XX(95)-JVS(577)*XX(98)-JVS(694)*XX(102)-JVS(811)*XX(106) - XX(67) = XX(67)-JVS(258)*XX(72)-JVS(382)*XX(88)-JVS(453)*XX(93)-JVS(576)*XX(98)-JVS(693)*XX(102)-JVS(749)*XX(104)& - &-JVS(810)*XX(106) - XX(66) = XX(66)-JVS(452)*XX(93)-JVS(575)*XX(98)-JVS(615)*XX(99)-JVS(660)*XX(101) - XX(65) = XX(65)-JVS(574)*XX(98)-JVS(851)*XX(107) - XX(64) = XX(64)-JVS(543)*XX(97)-JVS(573)*XX(98)-JVS(850)*XX(107) - XX(63) = XX(63)-JVS(572)*XX(98)-JVS(659)*XX(101)-JVS(722)*XX(103)-JVS(809)*XX(106) - XX(62) = XX(62)-JVS(337)*XX(81)-JVS(356)*XX(84)-JVS(477)*XX(94)-JVS(634)*XX(100)-JVS(658)*XX(101)-JVS(808)*XX(106) - XX(61) = XX(61)-JVS(571)*XX(98)-JVS(807)*XX(106) - XX(60) = XX(60)-JVS(570)*XX(98)-JVS(633)*XX(100)-JVS(657)*XX(101) - XX(59) = XX(59)-JVS(244)*XX(69)-JVS(522)*XX(96)-JVS(569)*XX(98) - XX(58) = XX(58)-JVS(257)*XX(72)-JVS(568)*XX(98)-JVS(692)*XX(102)-JVS(849)*XX(107) - XX(57) = XX(57)-JVS(213)*XX(62)-JVS(287)*XX(76)-JVS(355)*XX(84)-JVS(398)*XX(89)-JVS(567)*XX(98)-JVS(748)*XX(104)& - &-JVS(806)*XX(106) - XX(56) = XX(56)-JVS(307)*XX(79)-JVS(656)*XX(101)-JVS(721)*XX(103) - XX(55) = XX(55)-JVS(566)*XX(98)-JVS(779)*XX(105)-JVS(805)*XX(106) - XX(54) = XX(54)-JVS(186)*XX(55)-JVS(565)*XX(98)-JVS(804)*XX(106) - XX(53) = XX(53)-JVS(212)*XX(62)-JVS(354)*XX(84)-JVS(564)*XX(98)-JVS(747)*XX(104)-JVS(803)*XX(106) - XX(52) = XX(52)-JVS(563)*XX(98)-JVS(691)*XX(102) - XX(51) = XX(51)-JVS(542)*XX(97)-JVS(655)*XX(101) - XX(50) = XX(50)-JVS(562)*XX(98)-JVS(802)*XX(106) - XX(49) = XX(49)-JVS(690)*XX(102) - XX(48) = XX(48) - XX(47) = XX(47) - XX(46) = XX(46) - XX(45) = XX(45) - XX(44) = XX(44) - XX(43) = XX(43) - XX(42) = XX(42) - XX(41) = XX(41) - XX(40) = XX(40) - XX(39) = XX(39) - XX(38) = XX(38) - XX(37) = XX(37) - XX(36) = XX(36) - XX(35) = XX(35) - XX(34) = XX(34) - XX(33) = XX(33) - XX(32) = XX(32) - XX(31) = XX(31) - XX(30) = XX(30) - XX(29) = XX(29) - XX(28) = XX(28) - XX(27) = XX(27) - XX(26) = XX(26) - XX(25) = XX(25) - XX(24) = XX(24) - XX(23) = XX(23) - XX(22) = XX(22) - XX(21) = XX(21) - XX(20) = XX(20) - XX(19) = XX(19) - XX(18) = XX(18) - XX(17) = XX(17) - XX(16) = XX(16) - XX(15) = XX(15) - XX(14) = XX(14) - XX(13) = XX(13) - XX(12) = XX(12) - XX(11) = XX(11) - XX(10) = XX(10) - XX(9) = XX(9) - XX(8) = XX(8) - XX(7) = XX(7) - XX(6) = XX(6) - XX(5) = XX(5) - XX(4) = XX(4) - XX(3) = XX(3) - XX(2) = XX(2) - XX(1) = XX(1) - -END SUBROUTINE KppSolveTR - -! End of KppSolveTR function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! BLAS_UTIL - BLAS-LIKE utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!-------------------------------------------------------------- -! -! BLAS/LAPACK-like subroutines used by the integration algorithms -! It is recommended to replace them by calls to the optimized -! BLAS/LAPACK library for your machine -! -! (C) Adrian Sandu, Aug. 2004 -! Virginia Polytechnic Institute and State University -!-------------------------------------------------------------- - - -!-------------------------------------------------------------- - SUBROUTINE WCOPY(N,X,incX,Y,incY) -!-------------------------------------------------------------- -! copies a vector, x, to a vector, y: y <- x -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SCOPY(N,X,1,Y,1) or CALL DCOPY(N,X,1,Y,1) -!-------------------------------------------------------------- -! USE CB05TUCl_NCSU_Precision - - INTEGER :: i,incX,incY,M,MP1,N - REAL(kind=dp) :: X(N),Y(N) - - IF (N.LE.0) RETURN - - M = MOD(N,8) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = X(i) - END DO - IF( N .LT. 8 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,8 - Y(i) = X(i) - Y(i + 1) = X(i + 1) - Y(i + 2) = X(i + 2) - Y(i + 3) = X(i + 3) - Y(i + 4) = X(i + 4) - Y(i + 5) = X(i + 5) - Y(i + 6) = X(i + 6) - Y(i + 7) = X(i + 7) - END DO - - END SUBROUTINE WCOPY - - -!-------------------------------------------------------------- - SUBROUTINE WAXPY(N,Alpha,X,incX,Y,incY) -!-------------------------------------------------------------- -! constant times a vector plus a vector: y <- y + Alpha*x -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SAXPY(N,Alpha,X,1,Y,1) or CALL DAXPY(N,Alpha,X,1,Y,1) -!-------------------------------------------------------------- - - INTEGER :: i,incX,incY,M,MP1,N - REAL(kind=dp) :: X(N),Y(N),Alpha - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp - - IF (Alpha .EQ. ZERO) RETURN - IF (N .LE. 0) RETURN - - M = MOD(N,4) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = Y(i) + Alpha*X(i) - END DO - IF( N .LT. 4 ) RETURN - END IF - MP1 = M + 1 - DO i = MP1,N,4 - Y(i) = Y(i) + Alpha*X(i) - Y(i + 1) = Y(i + 1) + Alpha*X(i + 1) - Y(i + 2) = Y(i + 2) + Alpha*X(i + 2) - Y(i + 3) = Y(i + 3) + Alpha*X(i + 3) - END DO - - END SUBROUTINE WAXPY - - - -!-------------------------------------------------------------- - SUBROUTINE WSCAL(N,Alpha,X,incX) -!-------------------------------------------------------------- -! constant times a vector: x(1:N) <- Alpha*x(1:N) -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SSCAL(N,Alpha,X,1) or CALL DSCAL(N,Alpha,X,1) -!-------------------------------------------------------------- - - INTEGER :: i,incX,M,MP1,N - REAL(kind=dp) :: X(N),Alpha - REAL(kind=dp), PARAMETER :: ZERO=0.0_dp, ONE=1.0_dp - - IF (Alpha .EQ. ONE) RETURN - IF (N .LE. 0) RETURN - - M = MOD(N,5) - IF( M .NE. 0 ) THEN - IF (Alpha .EQ. (-ONE)) THEN - DO i = 1,M - X(i) = -X(i) - END DO - ELSEIF (Alpha .EQ. ZERO) THEN - DO i = 1,M - X(i) = ZERO - END DO - ELSE - DO i = 1,M - X(i) = Alpha*X(i) - END DO - END IF - IF( N .LT. 5 ) RETURN - END IF - MP1 = M + 1 - IF (Alpha .EQ. (-ONE)) THEN - DO i = MP1,N,5 - X(i) = -X(i) - X(i + 1) = -X(i + 1) - X(i + 2) = -X(i + 2) - X(i + 3) = -X(i + 3) - X(i + 4) = -X(i + 4) - END DO - ELSEIF (Alpha .EQ. ZERO) THEN - DO i = MP1,N,5 - X(i) = ZERO - X(i + 1) = ZERO - X(i + 2) = ZERO - X(i + 3) = ZERO - X(i + 4) = ZERO - END DO - ELSE - DO i = MP1,N,5 - X(i) = Alpha*X(i) - X(i + 1) = Alpha*X(i + 1) - X(i + 2) = Alpha*X(i + 2) - X(i + 3) = Alpha*X(i + 3) - X(i + 4) = Alpha*X(i + 4) - END DO - END IF - - END SUBROUTINE WSCAL - -!-------------------------------------------------------------- - REAL(kind=dp) FUNCTION WLAMCH( C ) -!-------------------------------------------------------------- -! returns epsilon machine -! after LAPACK -! replace this by the function from the optimized LAPACK implementation: -! CALL SLAMCH('E') or CALL DLAMCH('E') -!-------------------------------------------------------------- -! USE CB05TUCl_NCSU_Precision - - CHARACTER :: C - INTEGER :: i - REAL(kind=dp), SAVE :: Eps - REAL(kind=dp) :: Suma - REAL(kind=dp), PARAMETER :: ONE=1.0_dp, HALF=0.5_dp - LOGICAL, SAVE :: First=.TRUE. - - IF (First) THEN - First = .FALSE. - Eps = HALF**(16) - DO i = 17, 80 - Eps = Eps*HALF - CALL WLAMCH_ADD(ONE,Eps,Suma) - IF (Suma.LE.ONE) GOTO 10 - END DO - PRINT*,'ERROR IN WLAMCH. EPS < ',Eps - RETURN -10 Eps = Eps*2 - i = i-1 - END IF - - WLAMCH = Eps - - END FUNCTION WLAMCH - - SUBROUTINE WLAMCH_ADD( A, B, Suma ) -! USE CB05TUCl_NCSU_Precision - - REAL(kind=dp) A, B, Suma - Suma = A + B - - END SUBROUTINE WLAMCH_ADD -!-------------------------------------------------------------- - - -!-------------------------------------------------------------- - SUBROUTINE SET2ZERO(N,Y) -!-------------------------------------------------------------- -! copies zeros into the vector y: y <- 0 -! after BLAS -!-------------------------------------------------------------- - - INTEGER :: i,M,MP1,N - REAL(kind=dp) :: Y(N) - REAL(kind=dp), PARAMETER :: ZERO = 0.0d0 - - IF (N.LE.0) RETURN - - M = MOD(N,8) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = ZERO - END DO - IF( N .LT. 8 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,8 - Y(i) = ZERO - Y(i + 1) = ZERO - Y(i + 2) = ZERO - Y(i + 3) = ZERO - Y(i + 4) = ZERO - Y(i + 5) = ZERO - Y(i + 6) = ZERO - Y(i + 7) = ZERO - END DO - - END SUBROUTINE SET2ZERO - - -!-------------------------------------------------------------- - REAL(kind=dp) FUNCTION WDOT (N, DX, incX, DY, incY) -!-------------------------------------------------------------- -! dot produce: wdot = x(1:N)*y(1:N) -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SDOT(N,X,1,Y,1) or CALL DDOT(N,X,1,Y,1) -!-------------------------------------------------------------- -! USE messy_mecca_kpp_Precision -!-------------------------------------------------------------- - IMPLICIT NONE - INTEGER :: N, incX, incY - REAL(kind=dp) :: DX(N), DY(N) - - INTEGER :: i, IX, IY, M, MP1, NS - - WDOT = 0.0D0 - IF (N .LE. 0) RETURN - IF (incX .EQ. incY) IF (incX-1) 5,20,60 -! -! Code for unequal or nonpositive increments. -! - 5 IX = 1 - IY = 1 - IF (incX .LT. 0) IX = (-N+1)*incX + 1 - IF (incY .LT. 0) IY = (-N+1)*incY + 1 - DO i = 1,N - WDOT = WDOT + DX(IX)*DY(IY) - IX = IX + incX - IY = IY + incY - END DO - RETURN -! -! Code for both increments equal to 1. -! -! Clean-up loop so remaining vector length is a multiple of 5. -! - 20 M = MOD(N,5) - IF (M .EQ. 0) GO TO 40 - DO i = 1,M - WDOT = WDOT + DX(i)*DY(i) - END DO - IF (N .LT. 5) RETURN - 40 MP1 = M + 1 - DO i = MP1,N,5 - WDOT = WDOT + DX(i)*DY(i) + DX(i+1)*DY(i+1) + DX(i+2)*DY(i+2) + & - DX(i+3)*DY(i+3) + DX(i+4)*DY(i+4) - END DO - RETURN -! -! Code for equal, positive, non-unit increments. -! - 60 NS = N*incX - DO i = 1,NS,incX - WDOT = WDOT + DX(i)*DY(i) - END DO - - END FUNCTION WDOT - - -!-------------------------------------------------------------- - SUBROUTINE WADD(N,X,Y,Z) -!-------------------------------------------------------------- -! adds two vectors: z <- x + y -! BLAS - like -!-------------------------------------------------------------- -! USE CB05TUCl_NCSU_Precision - - INTEGER :: i, M, MP1, N - REAL(kind=dp) :: X(N),Y(N),Z(N) - - IF (N.LE.0) RETURN - - M = MOD(N,5) - IF( M /= 0 ) THEN - DO i = 1,M - Z(i) = X(i) + Y(i) - END DO - IF( N < 5 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,5 - Z(i) = X(i) + Y(i) - Z(i + 1) = X(i + 1) + Y(i + 1) - Z(i + 2) = X(i + 2) + Y(i + 2) - Z(i + 3) = X(i + 3) + Y(i + 3) - Z(i + 4) = X(i + 4) + Y(i + 4) - END DO - - END SUBROUTINE WADD - - - -!-------------------------------------------------------------- - SUBROUTINE WGEFA(N,A,Ipvt,info) -!-------------------------------------------------------------- -! WGEFA FACTORS THE MATRIX A (N,N) BY -! GAUSS ELIMINATION WITH PARTIAL PIVOTING -! LINPACK - LIKE -!-------------------------------------------------------------- -! - INTEGER :: N,Ipvt(N),info - REAL(kind=dp) :: A(N,N) - REAL(kind=dp) :: t, dmax, da - INTEGER :: j,k,l - REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0 - - info = 0 - -size: IF (n > 1) THEN - -col: DO k = 1, n-1 - -! find l = pivot index -! l = idamax(n-k+1,A(k,k),1) + k - 1 - l = k; dmax = abs(A(k,k)) - DO j = k+1,n - da = ABS(A(j,k)) - IF (da > dmax) THEN - l = j; dmax = da - END IF - END DO - Ipvt(k) = l - -! zero pivot implies this column already triangularized - IF (ABS(A(l,k)) < TINY(ZERO)) THEN - info = k - return - ELSE - IF (l /= k) THEN - t = A(l,k); A(l,k) = A(k,k); A(k,k) = t - END IF - t = -ONE/A(k,k) - CALL WSCAL(n-k,t,A(k+1,k),1) - DO j = k+1, n - t = A(l,j) - IF (l /= k) THEN - A(l,j) = A(k,j); A(k,j) = t - END IF - CALL WAXPY(n-k,t,A(k+1,k),1,A(k+1,j),1) - END DO - END IF - - END DO col - - END IF size - - Ipvt(N) = N - IF (ABS(A(N,N)) == ZERO) info = N - - END SUBROUTINE WGEFA - - -!-------------------------------------------------------------- - SUBROUTINE WGESL(Trans,N,A,Ipvt,b) -!-------------------------------------------------------------- -! WGESL solves the system -! a * x = b or trans(a) * x = b -! using the factors computed by WGEFA. -! -! Trans = 'N' to solve A*x = b , -! = 'T' to solve transpose(A)*x = b -! LINPACK - LIKE -!-------------------------------------------------------------- - - INTEGER :: N,Ipvt(N) - CHARACTER :: trans - REAL(kind=dp) :: A(N,N),b(N) - REAL(kind=dp) :: t - INTEGER :: k,kb,l - - - SELECT CASE (Trans) - - CASE ('n','N') ! Solve A * x = b - -! first solve L*y = b - IF (n >= 2) THEN - DO k = 1, n-1 - l = Ipvt(k) - t = b(l) - IF (l /= k) THEN - b(l) = b(k) - b(k) = t - END IF - CALL WAXPY(n-k,t,a(k+1,k),1,b(k+1),1) - END DO - END IF -! now solve U*x = y - DO kb = 1, n - k = n + 1 - kb - b(k) = b(k)/a(k,k) - t = -b(k) - CALL WAXPY(k-1,t,a(1,k),1,b(1),1) - END DO - - CASE ('t','T') ! Solve transpose(A) * x = b - -! first solve trans(U)*y = b - DO k = 1, n - t = WDOT(k-1,a(1,k),1,b(1),1) - b(k) = (b(k) - t)/a(k,k) - END DO -! now solve trans(L)*x = y - IF (n >= 2) THEN - DO kb = 1, n-1 - k = n - kb - b(k) = b(k) + WDOT(n-k,a(k+1,k),1,b(k+1),1) - l = Ipvt(k) - IF (l /= k) THEN - t = b(l); b(l) = b(k); b(k) = t - END IF - END DO - END IF - - END SELECT - - END SUBROUTINE WGESL -! End of BLAS_UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE CB05TUCl_NCSU_LinearAlgebra - diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_LinearAlgebra.o b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_LinearAlgebra.o deleted file mode 100644 index 35538930bfedcfa1f78c4edece39801bb26c4030..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_LinearAlgebra.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Main.f90 b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Main.f90 deleted file mode 100644 index 63204123e2dc39b1c78670bbf278c436573f8e15..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Main.f90 +++ /dev/null @@ -1,161 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Main Program File -! -! Generated by KPP-2.2.3 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 : CB05TUCl_NCSU_Main.f90 -! Time : Thu Oct 8 08:21:46 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05TUCl_NCSU_13059_BOXMOX -! Equation file : CB05TUCl_NCSU.kpp -! Output root filename : CB05TUCl_NCSU -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! MAIN - Main program - driver routine -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -PROGRAM CB05TUCl_NCSU_Driver - - USE CB05TUCl_NCSU_Model - USE CB05TUCl_NCSU_Initialize, ONLY: Initialize - - REAL(kind=dp) :: T, DVAL(NSPEC) - REAL(kind=dp) :: RSTATE(20) - INTEGER :: IERR - INTEGER :: i, tcount, ttot - CHARACTER(LEN=60), PARAMETER :: & - brk = "------------------------------------------------------------" - - !~~~> Initialization - - STEPMIN = 0.0d0 - STEPMAX = 0.0d0 - - DO i=1,NVAR - RTOL(i) = 1.0d-4 - ATOL(i) = 1.0d-3 - END DO - - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX (__BOXMOX_VERSION__) driver" - WRITE(*,*) brk - WRITE(*,*) " " - - CALL Initialize() - - WRITE(*,*) brk - WRITE(*,*) " " - - CALL UpdateEnvironment() - - CALL readInput('InitialConditions.csv', NSPEC, SPC_NAMES, C, & - InitialCondition) - CALL InitSaveData() - - CALL InitFixNOx(NSPEC, SPC_NAMES, C) - - !~~~> Time loop - T = TSTART - tcount = 1 - ttot = NINT((TEND - TSTART) / DT) - kron: DO WHILE (T < TEND) - - IF (lverbose) THEN - WRITE(*,*) "" - WRITE(*,"(1X,A,F8.2,A)") "-------------------- time (s): ", T, & - " --------------------" - WRITE(*,*) "" - ENDIF - - TIME = T - CALL GetMass( C, DVAL ) - CALL SaveData() - - CALL UpdateEnvironment() - CALL UpdateAerosol() - CALL UpdatePhotolysisRates() - - CALL UpdateKturb() - - CALL readInput('Background.csv', NSPEC, SPC_NAMES, C, Mix, lzero=.TRUE.) - CALL readInput('Emissions.csv', NSPEC, SPC_NAMES, C, Emission) - CALL readInput('Deposition.csv', NSPEC, SPC_NAMES, C, Deposition) - - CALL Update_SUN() - CALL Update_RCONST() - - IF (T == TSTART) WRITE(*,*) " " - - IF ( MOD(tcount * 10, ttot) .EQ. 0 ) THEN - WRITE(6,991) (T-TSTART)/(TEND-TSTART)*100, T, & - ( TRIM(SPC_NAMES(MONITOR(i))), & - C(MONITOR(i))/CFACTOR, i=1,NMONITOR ) - ENDIF - - IF (lfix_NOx) THEN - CALL FixNOx(NSPEC, SPC_NAMES, C) - ENDIF - - CALL INTEGRATE( TIN = T, TOUT = T+DT, RSTATUS_U = RSTATE, & - ICNTRL_U = (/ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /), & - IERR_U = IERR ) - T = RSTATE(1) - - tcount = tcount + 1 - - IF (IERR < 0) THEN - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX integration failed, stopping." - WRITE(*,*) brk - WRITE(*,*) " " - STOP 1 - ENDIF - - IF (T == TSTART .OR. lverbose) THEN - WRITE(*,*) "" - WRITE(*,*) brk - WRITE(*,*) "" - ENDIF - - END DO kron - !~~~> End Time loop - - CALL GetMass( C, DVAL ) - WRITE(6,991) (T-TSTART)/(TEND-TSTART)*100, T, & - ( TRIM(SPC_NAMES(MONITOR(i))), & - C(MONITOR(i))/CFACTOR, i=1,NMONITOR ) - TIME = T - CALL SaveData() - CALL CloseSaveData() - - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX successfully completed." - WRITE(*,*) brk - WRITE(*,*) " " - -991 FORMAT(F6.1,'%. T=',E9.3,2X,200(A,'=',E11.4,'; ')) - -END PROGRAM CB05TUCl_NCSU_Driver - -! End of MAIN function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Main.o b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Main.o deleted file mode 100644 index ee4330377ec3600cccc34d3d47a48228b3682b93..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Main.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Model.f90 b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Model.f90 deleted file mode 100644 index fb7de14eb7fba4af8f8ecf88ff9cd77e4b229061..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Model.f90 +++ /dev/null @@ -1,21 +0,0 @@ -MODULE CB05TUCl_NCSU_Model - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Completely defines the model CB05TUCl_NCSU -! by using all the associated modules -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CB05TUCl_NCSU_Precision - USE CB05TUCl_NCSU_Parameters - USE CB05TUCl_NCSU_Global - USE CB05TUCl_NCSU_Function - USE CB05TUCl_NCSU_Integrator - USE CB05TUCl_NCSU_Rates - USE CB05TUCl_NCSU_Jacobian - USE CB05TUCl_NCSU_Stoichiom - USE CB05TUCl_NCSU_LinearAlgebra - USE CB05TUCl_NCSU_Monitor - USE CB05TUCl_NCSU_Util - -END MODULE CB05TUCl_NCSU_Model - diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Model.o b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Model.o deleted file mode 100644 index 26589ea44826fdf37269981c1185905bd7dde3eb..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Model.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Monitor.f90 b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Monitor.f90 deleted file mode 100644 index 57a78e36e355432104a4c7ddb6216766176e9bb1..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Monitor.f90 +++ /dev/null @@ -1,298 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Utility Data Module File -! -! Generated by KPP-2.2.3 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 : CB05TUCl_NCSU_Monitor.f90 -! Time : Thu Oct 8 08:21:46 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05TUCl_NCSU_13059_BOXMOX -! Equation file : CB05TUCl_NCSU.kpp -! Output root filename : CB05TUCl_NCSU -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CB05TUCl_NCSU_Monitor - - - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_0 = (/ & - 'tolaer1 ','tolaer2 ','cslaer ', & - 'xylaer1 ','xylaer2 ','isoaer1 ', & - 'isoaer2 ','sulf ','sulaer ', & - 'terpaer ','humaer ','hum ', & - 'limaer1 ','limaer2 ','lim ', & - 'ociaer1 ','ociaer2 ','oci ', & - 'apinaer1 ','apinaer2 ','apinaer3 ', & - 'apinaer4 ','apin ','bpinaer1 ', & - 'bpinaer2 ','bpinaer3 ','bpinaer4 ', & - 'bpinaer5 ','bpin ','teraer1 ', & - 'teraer2 ','ter ','alkhaer1 ', & - 'alkh ','pahaer1 ','pahaer2 ', & - 'pah ','hg2 ','CVASOA1 ', & - 'CVASOA2 ','CVASOA3 ','CVASOA4 ', & - 'CVBSOA1 ','CVBSOA2 ','CVBSOA3 ', & - 'CVBSOA4 ','vocr_co ','vocr_nmvoc ', & - 'cl2 ','so2 ','pan ', & - 'hocl ','tol ','h2 ', & - 'o1d ','n2o5 ','xyl ', & - 'ch4 ','hg0 ','hono ', & - 'facd ','to2 ','pna ', & - 'pacd ','aacd ','panx ', & - 'etha ','meoh ','h2o2 ', & - 'etoh ','hco3 ','hcl ', & - 'rooh ','cro ','clo ', & - 'mgly ','fmcl ','mepx ', & - 'hno3 ','co ','open ', & - 'ror ','eth ','cres ', & - 'terp ','iole ','ole ', & - 'xo2n ','par ','isop ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(19) :: SPC_NAMES_1 = (/ & - 'ispd ','aldx ','ald2 ', & - 'ntr ','form ','o3 ', & - 'c2o3 ','oh ','cxo3 ', & - 'no ','no2 ','cl ', & - 'no3 ','xo2 ','o ', & - 'ho2 ','meo2 ','H2O ', & - 'M ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(109) :: SPC_NAMES = (/& - SPC_NAMES_0, SPC_NAMES_1 /) - - INTEGER, PARAMETER, DIMENSION(109) :: LOOKAT = (/ & - 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, & - 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, & - 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, & - 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, & - 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, & - 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, & - 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, & - 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, & - 97, 98, 99,100,101,102,103,104,105,106,107,108, & - 109 /) - - INTEGER, DIMENSION(1) :: MONITOR - CHARACTER(LEN=15), DIMENSION(1) :: SMASS - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_0 = (/ & - ' no2 --> no + o ', & - ' o --> o3 ', & - ' o3 + no --> no2 ', & - ' no2 + o --> no ', & - ' no2 + o --> no3 ', & - ' no + o --> no2 ', & - ' o3 + no2 --> no3 ', & - ' o3 --> o ', & - ' o3 --> o1d ', & - ' o1d + M --> o + M ', & - ' o1d + H2O --> 2 oh ', & - ' o3 + oh --> ho2 ', & - ' o3 + ho2 --> oh ', & - ' no3 --> no2 + o ', & - ' no3 --> no ', & - ' no + no3 --> 2 no2 ', & - ' no2 + no3 --> no + no2 ', & - ' no2 + no3 --> n2o5 ', & - ' n2o5 + H2O --> 2 hno3 ', & - ' n2o5 + 2 H2O --> 2 hno3 ', & - ' n2o5 --> no2 + no3 ', & - ' 2 no --> 2 no2 ', & - 'no + no2 + H2O --> 2 hono ', & - ' oh + no --> hono ', & - ' hono --> oh + no ', & - ' hono + oh --> no2 ', & - ' 2 hono --> no + no2 ', & - ' oh + no2 --> hno3 ', & - ' hno3 + oh --> no3 ', & - ' no + ho2 --> oh + no2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_1 = (/ & - ' no2 + ho2 --> pna ', & - ' pna --> no2 + ho2 ', & - ' pna + oh --> no2 ', & - ' 2 ho2 --> h2o2 ', & - ' 2 ho2 + H2O --> h2o2 ', & - ' h2o2 --> 2 oh ', & - ' h2o2 + oh --> ho2 ', & - ' h2 + o1d --> oh + ho2 ', & - ' h2 + oh --> ho2 ', & - ' oh + o --> ho2 ', & - ' 2 oh --> o ', & - ' 2 oh --> h2o2 ', & - ' oh + ho2 --> H2O ', & - ' o + ho2 --> oh ', & - ' h2o2 + o --> oh + ho2 ', & - ' no3 + o --> no2 ', & - ' oh + no3 --> no2 + ho2 ', & - ' no3 + ho2 --> hno3 ', & - ' o3 + no3 --> no2 ', & - ' 2 no3 --> 2 no2 ', & - ' pna --> 0.39 oh + 0.61 no2 + 0.39 no3 + 0.61 ho2 ', & - ' hno3 --> oh + no2 ', & - ' n2o5 --> no2 + no3 ', & - ' no + xo2 --> no2 ', & - ' xo2n + no --> ntr ', & - ' xo2 + ho2 --> rooh ', & - ' xo2n + ho2 --> rooh ', & - ' 2 xo2 --> 0.21 M ', & - ' 2 xo2n --> 0.21 M ', & - ' xo2n + xo2 --> 0.21 M ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_2 = (/ & - ' ntr + oh --> hno3 - -0.66 par + 0.33 aldx + 0.33 ald2 + 0.33 form + ho2 ', & - ' ntr --> - -0.66 par + 0.33 aldx + 0.33 ald2 + 0.33 form + no2 + ho2 ', & - ' rooh + oh --> 0.5 aldx + 0.5 ald2 + xo2 ', & - ' rooh --> 0.5 aldx + 0.5 ald2 + oh + ho2 ', & - ' co + oh --> vocr_co + ho2 ', & - ' ch4 + oh --> meo2 ', & - ' no + meo2 --> form + no2 + ho2 ', & - ' ho2 + meo2 --> mepx ', & - ' 2 meo2 --> 0.63 meoh + 1.37 form + 0.74 ho2 ', & - ' mepx + oh --> vocr_nmvoc + 0.3 xo2 + 0.3 ho2 + 0.7 meo2 ', & - ' mepx --> form + oh + ho2 ', & - ' meoh + oh --> vocr_nmvoc + form + ho2 ', & - ' form + oh --> vocr_nmvoc + co + ho2 ', & - ' form --> co + 2 ho2 ', & - ' form --> co ', & - ' form + o --> co + oh + ho2 ', & - ' form + no3 --> hno3 + co + ho2 ', & - ' form + ho2 --> hco3 ', & - ' hco3 --> form + ho2 ', & - ' hco3 + no --> facd + no2 + ho2 ', & - ' hco3 + ho2 --> mepx ', & - ' facd + oh --> vocr_nmvoc + ho2 ', & - ' ald2 + o --> c2o3 + oh ', & - ' ald2 + oh --> vocr_nmvoc + c2o3 ', & - ' ald2 + no3 --> hno3 + c2o3 ', & - ' ald2 --> co + ho2 + meo2 ', & - ' c2o3 + no --> no2 + meo2 ', & - ' c2o3 + no2 --> pan ', & - ' pan --> c2o3 + no2 ', & - ' pan --> c2o3 + no2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_3 = (/ & - ' c2o3 + ho2 --> 0.8 pacd + 0.2 aacd + 0.2 o3 ', & - ' c2o3 + meo2 --> 0.1 aacd + form + 0.9 ho2 + 0.9 meo2 ', & - ' c2o3 + xo2 --> 0.1 aacd + 0.9 meo2 ', & - ' 2 c2o3 --> 2 meo2 ', & - ' pacd + oh --> vocr_nmvoc + c2o3 ', & - ' pacd --> oh + meo2 ', & - ' aacd + oh --> vocr_nmvoc + meo2 ', & - ' aldx + o --> oh + cxo3 ', & - ' aldx + oh --> vocr_nmvoc + cxo3 ', & - ' aldx + no3 --> hno3 + cxo3 ', & - ' aldx --> co + ho2 + meo2 ', & - ' cxo3 + no --> ald2 + no2 + xo2 + ho2 ', & - ' cxo3 + no2 --> panx ', & - ' panx --> cxo3 + no2 ', & - ' panx --> cxo3 + no2 ', & - ' panx + oh --> ald2 + no2 ', & - ' cxo3 + ho2 --> 0.8 pacd + 0.2 aacd + 0.2 o3 ', & - ' cxo3 + meo2 --> 0.1 aacd + 0.9 ald2 + 0.1 form + 0.9 xo2 + ho2 ', & - ' cxo3 + xo2 --> 0.1 aacd + 0.9 ald2 ', & - ' 2 cxo3 --> 2 ald2 + 2 xo2 + 2 ho2 ', & - ' c2o3 + cxo3 --> ald2 + xo2 + ho2 + meo2 ', & - ' par + oh --> vocr_nmvoc + 0.76 ror + 0.13 xo2n - -0.11 par + 0.05 aldx + 0.06 ald2 + 0.87 xo2 + 0.11 ho2 ', & - ' ror --> 0.02 ror + 0.04 xo2n - -2.1 par + 0.5 aldx + 0.6 ald2 + 0.96 xo2 + 0.94 ho2 ', & - ' ror --> ho2 ', & - ' ror + no2 --> ntr ', & - ' ole + o --> 0.2 co + 0.01 xo2n + 0.2 par + 0.3 aldx + 0.2 ald2 + 0.2 form + 0.1 oh + 0.2 xo2 + 0.3 ho2 ', & - ' ole + oh --> vocr_nmvoc - -0.7 par + 0.62 aldx + 0.33 ald2 + 0.8 form + 0.8 xo2 + 0.95 ho2 ', & - ' ole + o3 --> 0.33 co - par + 0.32 aldx + 0.18 ald2 + 0.74 form + 0.1 oh + 0.22 xo2 + 0.44 ho2 ', & - ' ole + no3 --> 0.09 xo2n - par + 0.56 aldx + 0.35 ald2 + form + no2 + 0.91 xo2 ', & - ' eth + o --> co + form + 0.3 oh + 0.7 xo2 + 1.7 ho2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_4 = (/ & - ' eth + oh --> vocr_nmvoc + 0.22 aldx + 1.56 form + xo2 + ho2 ', & - ' eth + o3 --> 0.37 facd + 0.63 co + form + 0.13 oh + 0.13 ho2 ', & - ' eth + no3 --> 2 form + no2 + xo2 ', & - ' iole + o --> 0.1 co + 0.1 par + 0.66 aldx + 1.24 ald2 + 0.1 xo2 + 0.1 ho2 ', & - ' iole + oh --> vocr_nmvoc + 0.7 aldx + 1.3 ald2 + xo2 + ho2 ', & - ' iole + o3 --> 0.25 co + 0.35 aldx + 0.65 ald2 + 0.25 form + 0.5 oh + 0.5 o + 0.5 ho2 ', & - ' iole + no3 --> 0.64 aldx + 1.18 ald2 + no2 + ho2 ', & - ' tol + oh --> 0.071 tolaer1 + 0.138 tolaer2 + vocr_nmvoc + 0.56 to2 + 0.36 cres + 0.08 xo2 + 0.44 ho2 ', & - ' to2 + no --> 0.9 open + 0.1 ntr + 0.9 no2 + 0.9 ho2 ', & - ' to2 --> cres + ho2 ', & - ' cres + oh --> cslaer + vocr_nmvoc + 0.4 cro + 0.3 open + 0.6 xo2 + 0.6 ho2 ', & - ' cres + no3 --> cslaer + cro + hno3 ', & - ' cro + no2 --> ntr ', & - ' cro + ho2 --> cres ', & - ' open --> co + c2o3 + ho2 ', & - ' open + oh --> vocr_nmvoc + 2 co + form + c2o3 + xo2 + 2 ho2 ', & - ' open + o3 --> 0.2 mgly + 0.69 co + 0.03 aldx + 0.7 form + 0.62 c2o3 + 0.08 oh + 0.03 xo2 + 0.76 ho2 ', & - ' xyl + oh --> 0.038 xylaer1 + 0.167 xylaer2 + vocr_nmvoc + 0.3 to2 + 0.8 mgly + 0.2 cres + 1.1 par + 0.5 xo2 + 0.7 ho2 ', & - ' mgly + oh --> vocr_nmvoc + c2o3 + xo2 ', & - ' mgly --> co + c2o3 + ho2 ', & - ' isop + o --> 0.232 isoaer1 + 0.0228 isoaer2 + 0.75 ispd + 0.5 form + 0.25 cxo3 + 0.25 xo2 + 0.25 ho2 ', & - ' isop + oh --> 0.232 isoaer1 + 0.0288 isoaer2 + vocr_nmvoc + 0.088 xo2n + 0.912 ispd + 0.629 form + 0.991 xo2 + 0.912 ho2 ', & - ' isop + o3 --> 0.232 isoaer1 + 0.0288 isoaer2 + 0.066 co + 0.35 par + 0.65 ispd + 0.15 aldx + 0.6 form + 0.266 oh + 0.2 cxo3 + 0.2 xo2 + 0.066 ho2 ', & - ' isop + no3 --> 0.232 isoaer1 + 0.0288 isoaer2 + 0.2 ispd + 0.8 aldx + 0.8 ntr + 0.2 no2 + xo2 + 0.8 ho2 ', & - ' ispd + oh --> vocr_nmvoc + 0.168 mgly + 0.334 co + 1.565 par + 0.12 aldx + 0.252 ald2 + 0.167 form + 0.21 c2o3 + 0.25 cxo3 + 0.713 xo2 + 0.503 ho2 ', & - ' ispd + o3 --> 0.85 mgly + 0.225 co + 0.36 par + 0.02 ald2 + 0.15 form + 0.114 c2o3 + 0.268 oh + 0.064 xo2 + 0.154 ho2 ', & - ' ispd + no3 --> 0.15 hno3 + 0.643 co + 1.282 par + 0.357 aldx + 0.85 ntr + 0.282 form + 0.075 cxo3 + 0.075 xo2 + 0.925 ho2 ', & - ' ispd --> 0.333 co + 0.832 par + 0.067 ald2 + 0.9 form + 0.967 c2o3 + 0.7 xo2 + 1.033 ho2 ', & - ' terp + o --> terpaer + 5.12 par + 0.15 oh ', & - ' terp + oh --> terpaer + vocr_nmvoc + 0.25 xo2n + 1.66 par + 0.47 aldx + 0.28 form + 1.25 xo2 + 0.75 ho2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_5 = (/ & - ' terp + o3 --> terpaer + 0.001 co + 0.18 xo2n + 7 par + 0.21 aldx + 0.24 form + 0.57 oh + 0.39 cxo3 + 0.76 xo2 + 0.07 ho2 ', & - ' terp + no3 --> terpaer + 0.25 xo2n + 0.47 aldx + 0.53 ntr + 0.47 no2 + 1.03 xo2 + 0.28 ho2 ', & - ' so2 + oh --> sulf + sulaer + ho2 ', & - ' etoh + oh --> vocr_nmvoc + 0.05 aldx + 0.9 ald2 + 0.1 form + 0.1 xo2 + ho2 ', & - ' etha + oh --> vocr_nmvoc + 0.009 xo2n + 0.991 ald2 + 0.991 xo2 + ho2 ', & - ' isop + no2 --> 2.4 par + 0.2 ispd + 0.8 aldx + 0.8 ntr + 0.2 no + xo2 + 0.8 ho2 ', & - ' cl2 --> 2 cl ', & - ' hocl --> oh + cl ', & - ' o3 + cl --> clo ', & - ' 2 clo --> 0.3 cl2 + 1.4 cl ', & - ' clo + no --> no2 + cl ', & - ' clo + ho2 --> hocl ', & - ' fmcl + oh --> co + cl ', & - ' fmcl --> co + cl + ho2 ', & - ' ch4 + cl --> hcl + meo2 ', & - ' par + cl --> hcl + 0.76 ror + 0.13 xo2n - -0.11 par + 0.05 aldx + 0.06 ald2 + 0.87 xo2 + 0.11 ho2 ', & - ' etha + cl --> hcl + 0.009 xo2n + 0.991 ald2 + 0.991 xo2 + ho2 ', & - ' eth + cl --> fmcl + form + 2 xo2 + ho2 ', & - ' ole + cl --> fmcl - par + 0.67 aldx + 0.33 ald2 + 2 xo2 + ho2 ', & - ' iole + cl --> 0.3 hcl + 0.7 fmcl + 0.3 ole + 0.3 par + 0.55 aldx + 0.45 ald2 + 1.7 xo2 + ho2 ', & - ' isop + cl --> 0.15 hcl + 0.85 fmcl + ispd + xo2 + ho2 ', & - ' form + cl --> hcl + co + ho2 ', & - ' ald2 + cl --> hcl + c2o3 ', & - ' aldx + cl --> hcl + cxo3 ', & - ' meoh + cl --> hcl + form + ho2 ', & - ' etoh + cl --> hcl + ald2 + ho2 ', & - ' hcl + oh --> cl ', & - ' hg0 + o3 --> hg2 ', & - ' hg0 + oh --> hg2 ', & - ' hg0 + h2o2 --> hg2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(18) :: EQN_NAMES_6 = (/ & - ' hum + oh --> humaer + oh ', & - ' lim + oh --> 0.239 limaer1 + 0.363 limaer2 + oh ', & - ' oci + oh --> 0.045 ociaer1 + 0.149 ociaer2 + oh ', & - ' apin + oh --> 0.038 apinaer1 + 0.326 apinaer2 + oh ', & - ' apin + o3 --> 0.125 apinaer3 + 0.102 apinaer4 + o3 ', & - ' bpin + oh --> 0.13 bpinaer1 + 0.0406 bpinaer2 + oh ', & - ' bpin + o3 --> 0.026 bpinaer3 + 0.485 bpinaer4 + o3 ', & - ' bpin + no3 --> bpinaer5 + no3 ', & - ' ter + oh --> 0.091 teraer1 + 0.367 teraer2 + oh ', & - ' alkh + oh --> 1.173 alkhaer1 + oh ', & - ' pah + oh --> 0.156 pahaer1 + 0.777 pahaer2 + oh ', & - ' CVASOA4 + oh --> 1.075 CVASOA3 + oh ', & - ' CVASOA3 + oh --> 1.075 CVASOA2 + oh ', & - ' CVASOA2 + oh --> 1.075 CVASOA1 + oh ', & - ' CVBSOA4 + oh --> 1.075 CVBSOA3 + oh ', & - ' CVBSOA3 + oh --> 1.075 CVBSOA2 + oh ', & - ' CVBSOA2 + oh --> 1.075 CVBSOA1 + oh ', & - ' so2 --> sulf ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(198) :: EQN_NAMES = (/& - EQN_NAMES_0, EQN_NAMES_1, EQN_NAMES_2, EQN_NAMES_3, EQN_NAMES_4, & - EQN_NAMES_5, EQN_NAMES_6 /) - -! INLINED global variables - -! End INLINED global variables - - -END MODULE CB05TUCl_NCSU_Monitor diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Monitor.o b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Monitor.o deleted file mode 100644 index 4b947c60792dc55006ab1ffff435ce81553a8f71..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Monitor.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Parameters.f90 b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Parameters.f90 deleted file mode 100644 index ded6090e169dc76acc96fdb0e72eedf038220068..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Parameters.f90 +++ /dev/null @@ -1,191 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Parameter Module File -! -! Generated by KPP-2.2.3 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 : CB05TUCl_NCSU_Parameters.f90 -! Time : Thu Oct 8 08:21:46 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05TUCl_NCSU_13059_BOXMOX -! Equation file : CB05TUCl_NCSU.kpp -! Output root filename : CB05TUCl_NCSU -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CB05TUCl_NCSU_Parameters - - USE CB05TUCl_NCSU_Precision - PUBLIC - SAVE - - -! NSPEC - Number of chemical species - INTEGER, PARAMETER :: NSPEC = 109 -! NVAR - Number of Variable species - INTEGER, PARAMETER :: NVAR = 107 -! NVARACT - Number of Active species - INTEGER, PARAMETER :: NVARACT = 73 -! NFIX - Number of Fixed species - INTEGER, PARAMETER :: NFIX = 2 -! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 198 -! NVARST - Starting of variables in conc. vect. - INTEGER, PARAMETER :: NVARST = 1 -! NFIXST - Starting of fixed in conc. vect. - INTEGER, PARAMETER :: NFIXST = 108 -! NONZERO - Number of nonzero entries in Jacobian - INTEGER, PARAMETER :: NONZERO = 786 -! LU_NONZERO - Number of nonzero entries in LU factoriz. of Jacobian - INTEGER, PARAMETER :: LU_NONZERO = 868 -! CNVAR - (NVAR+1) Number of elements in compressed row format - INTEGER, PARAMETER :: CNVAR = 108 -! CNEQN - (NREACT+1) Number stoicm elements in compressed col format - INTEGER, PARAMETER :: CNEQN = 199 -! NLOOKAT - Number of species to look at - INTEGER, PARAMETER :: NLOOKAT = 109 -! NMONITOR - Number of species to monitor - INTEGER, PARAMETER :: NMONITOR = 0 -! NMASS - Number of atoms to check mass balance - INTEGER, PARAMETER :: NMASS = 1 - -! Index declaration for variable species in C and VAR -! VAR(ind_spc) = C(ind_spc) - - INTEGER, PARAMETER :: ind_tolaer1 = 1 - INTEGER, PARAMETER :: ind_tolaer2 = 2 - INTEGER, PARAMETER :: ind_cslaer = 3 - INTEGER, PARAMETER :: ind_xylaer1 = 4 - INTEGER, PARAMETER :: ind_xylaer2 = 5 - INTEGER, PARAMETER :: ind_isoaer1 = 6 - INTEGER, PARAMETER :: ind_isoaer2 = 7 - INTEGER, PARAMETER :: ind_sulf = 8 - INTEGER, PARAMETER :: ind_sulaer = 9 - INTEGER, PARAMETER :: ind_terpaer = 10 - INTEGER, PARAMETER :: ind_humaer = 11 - INTEGER, PARAMETER :: ind_hum = 12 - INTEGER, PARAMETER :: ind_limaer1 = 13 - INTEGER, PARAMETER :: ind_limaer2 = 14 - INTEGER, PARAMETER :: ind_lim = 15 - INTEGER, PARAMETER :: ind_ociaer1 = 16 - INTEGER, PARAMETER :: ind_ociaer2 = 17 - INTEGER, PARAMETER :: ind_oci = 18 - INTEGER, PARAMETER :: ind_apinaer1 = 19 - INTEGER, PARAMETER :: ind_apinaer2 = 20 - INTEGER, PARAMETER :: ind_apinaer3 = 21 - INTEGER, PARAMETER :: ind_apinaer4 = 22 - INTEGER, PARAMETER :: ind_apin = 23 - INTEGER, PARAMETER :: ind_bpinaer1 = 24 - INTEGER, PARAMETER :: ind_bpinaer2 = 25 - INTEGER, PARAMETER :: ind_bpinaer3 = 26 - INTEGER, PARAMETER :: ind_bpinaer4 = 27 - INTEGER, PARAMETER :: ind_bpinaer5 = 28 - INTEGER, PARAMETER :: ind_bpin = 29 - INTEGER, PARAMETER :: ind_teraer1 = 30 - INTEGER, PARAMETER :: ind_teraer2 = 31 - INTEGER, PARAMETER :: ind_ter = 32 - INTEGER, PARAMETER :: ind_alkhaer1 = 33 - INTEGER, PARAMETER :: ind_alkh = 34 - INTEGER, PARAMETER :: ind_pahaer1 = 35 - INTEGER, PARAMETER :: ind_pahaer2 = 36 - INTEGER, PARAMETER :: ind_pah = 37 - INTEGER, PARAMETER :: ind_hg2 = 38 - INTEGER, PARAMETER :: ind_CVASOA1 = 39 - INTEGER, PARAMETER :: ind_CVASOA2 = 40 - INTEGER, PARAMETER :: ind_CVASOA3 = 41 - INTEGER, PARAMETER :: ind_CVASOA4 = 42 - INTEGER, PARAMETER :: ind_CVBSOA1 = 43 - INTEGER, PARAMETER :: ind_CVBSOA2 = 44 - INTEGER, PARAMETER :: ind_CVBSOA3 = 45 - INTEGER, PARAMETER :: ind_CVBSOA4 = 46 - INTEGER, PARAMETER :: ind_vocr_co = 47 - INTEGER, PARAMETER :: ind_vocr_nmvoc = 48 - INTEGER, PARAMETER :: ind_cl2 = 49 - INTEGER, PARAMETER :: ind_so2 = 50 - INTEGER, PARAMETER :: ind_pan = 51 - INTEGER, PARAMETER :: ind_hocl = 52 - INTEGER, PARAMETER :: ind_tol = 53 - INTEGER, PARAMETER :: ind_h2 = 54 - INTEGER, PARAMETER :: ind_o1d = 55 - INTEGER, PARAMETER :: ind_n2o5 = 56 - INTEGER, PARAMETER :: ind_xyl = 57 - INTEGER, PARAMETER :: ind_ch4 = 58 - INTEGER, PARAMETER :: ind_hg0 = 59 - INTEGER, PARAMETER :: ind_hono = 60 - INTEGER, PARAMETER :: ind_facd = 61 - INTEGER, PARAMETER :: ind_to2 = 62 - INTEGER, PARAMETER :: ind_pna = 63 - INTEGER, PARAMETER :: ind_pacd = 64 - INTEGER, PARAMETER :: ind_aacd = 65 - INTEGER, PARAMETER :: ind_panx = 66 - INTEGER, PARAMETER :: ind_etha = 67 - INTEGER, PARAMETER :: ind_meoh = 68 - INTEGER, PARAMETER :: ind_h2o2 = 69 - INTEGER, PARAMETER :: ind_etoh = 70 - INTEGER, PARAMETER :: ind_hco3 = 71 - INTEGER, PARAMETER :: ind_hcl = 72 - INTEGER, PARAMETER :: ind_rooh = 73 - INTEGER, PARAMETER :: ind_cro = 74 - INTEGER, PARAMETER :: ind_clo = 75 - INTEGER, PARAMETER :: ind_mgly = 76 - INTEGER, PARAMETER :: ind_fmcl = 77 - INTEGER, PARAMETER :: ind_mepx = 78 - INTEGER, PARAMETER :: ind_hno3 = 79 - INTEGER, PARAMETER :: ind_co = 80 - INTEGER, PARAMETER :: ind_open = 81 - INTEGER, PARAMETER :: ind_ror = 82 - INTEGER, PARAMETER :: ind_eth = 83 - INTEGER, PARAMETER :: ind_cres = 84 - INTEGER, PARAMETER :: ind_terp = 85 - INTEGER, PARAMETER :: ind_iole = 86 - INTEGER, PARAMETER :: ind_ole = 87 - INTEGER, PARAMETER :: ind_xo2n = 88 - INTEGER, PARAMETER :: ind_par = 89 - INTEGER, PARAMETER :: ind_isop = 90 - INTEGER, PARAMETER :: ind_ispd = 91 - INTEGER, PARAMETER :: ind_aldx = 92 - INTEGER, PARAMETER :: ind_ald2 = 93 - INTEGER, PARAMETER :: ind_ntr = 94 - INTEGER, PARAMETER :: ind_form = 95 - INTEGER, PARAMETER :: ind_o3 = 96 - INTEGER, PARAMETER :: ind_c2o3 = 97 - INTEGER, PARAMETER :: ind_oh = 98 - INTEGER, PARAMETER :: ind_cxo3 = 99 - INTEGER, PARAMETER :: ind_no = 100 - INTEGER, PARAMETER :: ind_no2 = 101 - INTEGER, PARAMETER :: ind_cl = 102 - INTEGER, PARAMETER :: ind_no3 = 103 - INTEGER, PARAMETER :: ind_xo2 = 104 - INTEGER, PARAMETER :: ind_o = 105 - INTEGER, PARAMETER :: ind_ho2 = 106 - INTEGER, PARAMETER :: ind_meo2 = 107 - -! Index declaration for fixed species in C -! C(ind_spc) - - INTEGER, PARAMETER :: ind_H2O = 108 - INTEGER, PARAMETER :: ind_M = 109 - -! Index declaration for fixed species in FIX -! FIX(indf_spc) = C(ind_spc) = C(NVAR+indf_spc) - - INTEGER, PARAMETER :: indf_H2O = 1 - INTEGER, PARAMETER :: indf_M = 2 - -! NJVRP - Length of sparse Jacobian JVRP - INTEGER, PARAMETER :: NJVRP = 343 - -! NSTOICM - Length of Sparse Stoichiometric Matrix - INTEGER, PARAMETER :: NSTOICM = 879 - -END MODULE CB05TUCl_NCSU_Parameters - diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Parameters.o b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Parameters.o deleted file mode 100644 index eb3652ca17f1d945ad3cb6fca319af30fbcbc6a2..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Parameters.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Precision.f90 b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Precision.f90 deleted file mode 100644 index a278721bd22e13f45d77a826b63eb841d4fb7e95..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Precision.f90 +++ /dev/null @@ -1,17 +0,0 @@ - -MODULE CB05TUCl_NCSU_Precision - -! -! Definition of different levels of accuracy -! for REAL variables using KIND parameterization -! -! KPP SP - Single precision kind - INTEGER, PARAMETER :: sp = SELECTED_REAL_KIND(6,30) -! KPP DP - Double precision kind - INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(14,300) -! KPP QP - Quadruple precision kind - INTEGER, PARAMETER :: qp = SELECTED_REAL_KIND(18,400) - -END MODULE CB05TUCl_NCSU_Precision - - diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Precision.o b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Precision.o deleted file mode 100644 index 74af8f91afcca898b50db59d84b1ee13344a0418..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Precision.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Rates.f90 b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Rates.f90 deleted file mode 100644 index b74312d6f2c8fccf313a669ad1739d56031ff77b..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Rates.f90 +++ /dev/null @@ -1,634 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The Reaction Rates File -! -! Generated by KPP-2.2.3 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 : CB05TUCl_NCSU_Rates.f90 -! Time : Thu Oct 8 08:21:46 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05TUCl_NCSU_13059_BOXMOX -! Equation file : CB05TUCl_NCSU.kpp -! Output root filename : CB05TUCl_NCSU -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CB05TUCl_NCSU_Rates - - USE CB05TUCl_NCSU_Parameters - USE CB05TUCl_NCSU_Global - USE CB05TUCl_NCSU_Util - IMPLICIT NONE - -CONTAINS - - - -! Begin Rate Law Functions from KPP_HOME/util/UserRateLaws - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! User-defined Rate Law functions -! Note: the default argument type for rate laws, as read from the equations file, is single precision -! but all the internal calculations are performed in double precision -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~> Arrhenius -! REAL(kind=dp) FUNCTION ARR( A0,B0,C0 ) -! REAL A0,B0,C0 -! ARR = DBLE(A0) * EXP(-DBLE(B0)/TEMP) * (TEMP/300.0_dp)**DBLE(C0) -! END FUNCTION ARR - -! Arrhenius (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION ARR( A0,B0,C0, TEMP ) - REAL(kind=dp) :: TEMP - REAL(kind=dp) A0,B0,C0 - ARR = A0 * EXP( -B0 /TEMP ) * (TEMP/300._dp)**C0 - END FUNCTION ARR - -!~~~> Simplified Arrhenius, with two arguments -!~~~> Note: The argument B0 has a changed sign when compared to ARR -! REAL(kind=dp) FUNCTION ARR2( A0,B0 ) -! REAL A0,B0 -! ARR2 = DBLE(A0) * EXP( DBLE(B0)/TEMP ) -! END FUNCTION ARR2 -! CK 20140313 WRF-chem uses different kind of Arrhenius function -! with TEMP as argument... - REAL(kind=dp) FUNCTION ARR2( A0,B0, TEMP ) - REAL(kind=dp) :: TEMP - REAL(kind=dp) A0,B0 - ARR2 = A0 * EXP( -B0 /TEMP ) - END FUNCTION ARR2 -! CK 20140313 end - -! REAL(kind=dp) FUNCTION EP2(A0,C0,A2,C2,A3,C3) -! REAL A0,C0,A2,C2,A3,C3 -! REAL(kind=dp) K0,K2,K3 -! K0 = DBLE(A0) * EXP(-DBLE(C0)/TEMP) -! K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP) -! K3 = DBLE(A3) * EXP(-DBLE(C3)/TEMP) -! K3 = K3*CFACTOR*1.0E6_dp -! EP2 = K0 + K3/(1.0_dp+K3/K2 ) -! END FUNCTION EP2 - -! REAL(kind=dp) FUNCTION EP3(A1,C1,A2,C2) -! REAL A1, C1, A2, C2 -! REAL(kind=dp) K1, K2 -! K1 = DBLE(A1) * EXP(-DBLE(C1)/TEMP) -! K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP) -! EP3 = K1 + K2*(1.0E6_dp*CFACTOR) -! END FUNCTION EP3 - -! EP2 (added by psaide 22-07-2009) - REAL(kind=dp) FUNCTION EP2( A0,C0,A2,C2,A3,C3,TEMP,cair) - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A0,C0,A2,C2,A3,C3 - REAL(kind=dp) K0,K2,K3 - - K0 = A0 * EXP(-C0 /TEMP) - K2 = A2 * EXP(-C2 /TEMP) - K3 = A3 * EXP(-C3 /TEMP) -! K3 = K3 * 2.45E13_dp * 1.0E6_dp - K3 = K3 * cair - EP2 = K0 + K3/(1._dp+K3/K2 ) - END FUNCTION EP2 - -! EP3 (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION EP3(A1,C1,A2,C2,TEMP,cair) - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A1, C1, A2, C2 - REAL(kind=dp) K1, K2 - - K1 = A1 * EXP(-C1 /TEMP) - K2 = A2 * EXP(-C2 /TEMP) -! EP3 = K1 + K2*(1.0E6_dp * 2.45E13_dp) - EP3 = K1 + K2*cair - END FUNCTION EP3 - - -! REAL(kind=dp) FUNCTION FALL ( A0,B0,C0,A1,B1,C1,CF) -! REAL A0,B0,C0,A1,B1,C1,CF -! REAL(kind=dp) K0, K1 -! K0 = DBLE(A0) * EXP(-DBLE(B0)/TEMP)* (TEMP/300.0_dp)**DBLE(C0) -! K1 = DBLE(A1) * EXP(-DBLE(B1)/TEMP)* (TEMP/300.0_dp)**DBLE(C1) -! K0 = K0*CFACTOR*1.0E6_dp -! K1 = K0/K1 -! FALL = (K0/(1.0_dp+K1))* & -! DBLE(CF)**(1.0_dp/(1.0_dp+(LOG10(K1))**2)) -! END FUNCTION FALL - -! FALL (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION FALL( A0,B0,C0,A1,B1,C1,CF,TEMP,cair) - - INTRINSIC LOG10 - - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A0,B0,C0,A1,B1,C1,CF - REAL(kind=dp) K0, K1 - - K0 = A0 * EXP(-B0 /TEMP)* (TEMP/300._dp)**C0 - K1 = A1 * EXP(-B1 /TEMP)* (TEMP/300._dp)**C1 -! K0 = K0 * 2.45E13_dp * 1.0E6_dp - K0 = K0 * cair - K1 = K0/K1 - FALL = (K0/(1._dp+K1))*CF**(1._dp/(1._dp+(LOG10(K1))**2)) - - END FUNCTION FALL - -! FALL2 (added by psaide 28-10-2009) - REAL(KIND=dp) FUNCTION F2( A0,B0,C0,A1,B1,C1,CF,CN,TEMP,cair) - - INTRINSIC LOG10 - - REAL(KIND=dp) :: TEMP - REAL(KIND=dp) :: cair - REAL(KIND=dp) A0,B0,C0,A1,B1,C1,CF,CN - REAL(KIND=dp) K0, K1 - - K0 = A0 * EXP(-B0 /TEMP)* (TEMP/300._dp)**C0 - K1 = A1 * EXP(-B1 /TEMP)* (TEMP/300._dp)**C1 -! K0 = K0 * 2.45E13_dp * 1.0E6_dp - K0 = K0 * cair - K1 = K0/K1 - F2 = (K0/(1._dp+K1))*CF**(1._dp/(1._dp+(LOG10(K1)/CN)**2)) - - END FUNCTION F2 - - - !--------------------------------------------------------------------------- - - ELEMENTAL REAL(kind=dp) FUNCTION k_3rd(temp,cair,k0_300K,n,kinf_300K,m,fc) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL, INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL, INTENT(IN) :: n ! exponent for low pressure limit - REAL, INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL, INTENT(IN) :: m ! exponent for high pressure limit - REAL, INTENT(IN) :: fc ! broadening factor (usually fc=0.6) - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - k_3rd = k0_T/(1._dp+k_ratio)*fc**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - END FUNCTION k_3rd - - !--------------------------------------------------------------------------- - - ELEMENTAL REAL(kind=dp) FUNCTION k_arr (k_298,tdep,temp) - ! Arrhenius function - - REAL, INTENT(IN) :: k_298 ! k at T = 298.15K - REAL, INTENT(IN) :: tdep ! temperature dependence - REAL(kind=dp), INTENT(IN) :: temp ! temperature - - INTRINSIC EXP - - k_arr = k_298 * EXP(tdep*(1._dp/temp-3.3540E-3_dp)) ! 1/298.15=3.3540e-3 - - END FUNCTION k_arr - -! CK 20140313 in the following some more rate functions needed by -! WRF-chem packages - -!------------------------------------ -! Troe reactions (as in Stockwell et al, 1997) - - REAL(kind=dp) FUNCTION TROE(k0_300K,n,kinf_300K,m,temp,cair) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - TROE = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - END FUNCTION TROE - - - -!------------------------------------------- -! Troe equilibrium reactions (as in Stockwell et al, 1997) - - REAL(kind=dp) FUNCTION TROEE(A, B, k0_300K,n,kinf_300K,m,temp,cair) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - REAL(kind=dp), INTENT(IN) :: A, B - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio, troe - - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - troe = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - TROEE = A * EXP( - B / temp) * troe - - - - END FUNCTION TROEE - -!------------------------ -! k=T^2 C exp (-D/T) reactions - - REAL(kind=dp) FUNCTION THERMAL_T2(c, d ,temp) - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: c, d - - - THERMAL_T2= temp**2._dp * c * EXP(- d / temp) - - END FUNCTION THERMAL_T2 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! End of User-defined Rate Law functions -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -! End Rate Law Functions from KPP_HOME/util/UserRateLaws - - -! Begin INLINED Rate Law Functions - - - -! **************************************************************************** -! J - the photolysis rate retrieval function -! **************************************************************************** - REAL(kind=dp) FUNCTION J(name) - - CHARACTER(LEN=*), INTENT(IN) :: name - - CHARACTER(LEN=15) :: xname - - INTEGER :: i - - xname(:) = " " - xname(1:LEN(name)) = name - - J = jvalues(hash(xname)) - - RETURN - - END FUNCTION J -! **************************************************************************** - - -REAL(KIND=dp) FUNCTION k46( TEMP, C_M ) - REAL(KIND=dp), INTENT(IN) :: temp, c_m - REAL(KIND=dp) :: k0, k2, k3 - - k0=7.2E-15_dp * EXP(785._dp/TEMP) - k2=4.1E-16_dp * EXP(1440._dp/TEMP) - k3=1.9E-33_dp * EXP(725._dp/TEMP) - - k46=k0+k3/(1+k3/k2) - - -END FUNCTION k46 - -! End INLINED Rate Law Functions - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_SUN - update SUN light using TIME -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - SUBROUTINE Update_SUN() - !USE CB05TUCl_NCSU_Parameters - !USE CB05TUCl_NCSU_Global - - IMPLICIT NONE - - REAL(kind=dp) :: SunRise, SunSet - REAL(kind=dp) :: Thour, Tlocal, Ttmp - ! PI - Value of pi - REAL(kind=dp), PARAMETER :: PI = 3.14159265358979d0 - - SunRise = 4.5_dp - SunSet = 19.5_dp - Thour = TIME/3600.0_dp - Tlocal = Thour - (INT(Thour)/24)*24 - - IF ((Tlocal>=SunRise).AND.(Tlocal<=SunSet)) THEN - Ttmp = (2.0*Tlocal-SunRise-SunSet)/(SunSet-SunRise) - IF (Ttmp.GT.0) THEN - Ttmp = Ttmp*Ttmp - ELSE - Ttmp = -Ttmp*Ttmp - END IF - SUN = ( 1.0_dp + COS(PI*Ttmp) )/2.0_dp - ELSE - SUN = 0.0_dp - END IF - - END SUBROUTINE Update_SUN - -! End of Update_SUN function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_RCONST - function to update rate constants -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Update_RCONST ( ) - - - - -! Begin INLINED RCONST - - -! End INLINED RCONST - - RCONST(1) = (j('no2')) - RCONST(2) = (0.21*C_M*C_M*ARR(6.0D-34,0.0_dp,-2.4_dp,TEMP)) - RCONST(3) = (ARR2(3.0D-12,1500.0_dp,TEMP)) - RCONST(4) = (ARR2(5.6D-12,-180.0_dp,TEMP)) - RCONST(5) = (TROE(2.5D-31,1.8_dp,2.2D-11,0.7_dp,TEMP,C_M)) - RCONST(6) = (TROE(9.0D-32,1.5_dp,3.0D-11,0.0_dp,TEMP,C_M)) - RCONST(7) = (ARR2(1.2D-13,2450.0_dp,TEMP)) - RCONST(8) = (j('o33p')) - RCONST(9) = (j('o31d')) - RCONST(10) = (ARR2(2.1D-11,-102.0_dp,TEMP)) - RCONST(11) = (2.2D-10) - RCONST(12) = (ARR2(1.7D-12,940.0_dp,TEMP)) - RCONST(13) = (ARR2(1.0D-14,490.0_dp,TEMP)) - RCONST(14) = (j('no3o')) - RCONST(15) = (j('no3o2')) - RCONST(16) = (ARR2(1.5D-11,-170.0_dp,TEMP)) - RCONST(17) = (ARR2(4.5D-14,1260.0_dp,TEMP)) - RCONST(18) = (TROE(2.0D-30,4.4_dp,1.4D-12,0.7_dp,TEMP,C_M)) - RCONST(19) = (2.5D-22) - RCONST(20) = (1.8D-39) - RCONST(21) = (FALL(1.0D-03,11000.0_dp,-3.5_dp,9.7D14,11080.0_dp,0.1_dp,0.45_dp,TEMP,C_M)) - RCONST(22) = (ARR2(3.3D-39,-530.0_dp,TEMP)*0.21*C_M) - RCONST(23) = (5.0D-40) - RCONST(24) = (TROE(7.0D-31,2.6_dp,3.6D-11,0.1_dp,TEMP,C_M)) - RCONST(25) = (j('hno2')) - RCONST(26) = (ARR2(1.8D-11,390.0_dp,TEMP)) - RCONST(27) = (1.0D-20) - RCONST(28) = (TROE(2.0D-30,3.0_dp,2.5D-11,0.0_dp,TEMP,C_M)) - RCONST(29) = (EP2(2.4D-14,-460.0_dp,2.7D-17,-2199.0_dp,6.5D-34,-1335.0_dp,TEMP,C_M)) - RCONST(30) = (ARR2(3.5D-12,-250.0_dp,TEMP)) - RCONST(31) = (TROE(1.8D-31,3.2_dp,4.7D-12,0.0_dp,TEMP,C_M)) - RCONST(32) = (FALL(4.1D-05,10650.0_dp,0.0_dp,4.8D15,11170.0_dp,0.0_dp,0.6_dp,TEMP,C_M)) - RCONST(33) = (ARR2(1.3D-12,-380.0_dp,TEMP)) - RCONST(34) = (EP3(2.3D-13,-600.0_dp,1.7D-33,-1000.0_dp,TEMP,C_M)) - RCONST(35) = (EP3(3.22D-34,-2800.0_dp,2.38D-54,-3200.0_dp,TEMP,C_M)) - RCONST(36) = (j('h2o2')) - RCONST(37) = (ARR2(2.9D-12,160.0_dp,TEMP)) - RCONST(38) = (1.1D-10) - RCONST(39) = (ARR2(5.5D-12,2000.0_dp,TEMP)) - RCONST(40) = (ARR2(2.2D-11,-120.0_dp,TEMP)) - RCONST(41) = (ARR2(4.2D-12,240.0_dp,TEMP)) - RCONST(42) = (TROE(6.9D-31,1.0_dp,2.6D-11,0.0_dp,TEMP,C_M)) - RCONST(43) = (ARR2(4.8D-11,-250.0_dp,TEMP)) - RCONST(44) = (ARR2(3.0D-11,-200.0_dp,TEMP)) - RCONST(45) = (ARR2(1.4D-12,2000.0_dp,TEMP)) - RCONST(46) = (1.0D-11) - RCONST(47) = (2.2D-11) - RCONST(48) = (3.5D-12) - RCONST(49) = (1.0D-17) - RCONST(50) = (ARR2(8.5D-13,2450.0_dp,TEMP)) - RCONST(51) = (j('hno4')) - RCONST(52) = (j('hno3')) - RCONST(53) = (j('n2o5')) - RCONST(54) = (ARR2(2.6D-12,-365.0_dp,TEMP)) - RCONST(55) = (ARR2(2.6D-12,-365.0_dp,TEMP)) - RCONST(56) = (ARR2(7.5D-13,-700.0_dp,TEMP)) - RCONST(57) = (ARR2(7.5D-13,-700.0_dp,TEMP)) - RCONST(58) = (6.8D-14) - RCONST(59) = (6.8D-14) - RCONST(60) = (6.8D-14) - RCONST(61) = (ARR2(5.9D-13,360.0_dp,TEMP)) - RCONST(62) = (1.0D-4*j('no2')) - RCONST(63) = (ARR2(3.01D-12,-190.0_dp,TEMP)) - RCONST(64) = (0.7*j('h2o2')) - RCONST(65) = (EP3(1.44D-13,0.0_dp,3.43D-33,0.0_dp,TEMP,C_M)) - RCONST(66) = (ARR2(2.45D-12,1775.0_dp,TEMP)) - RCONST(67) = (ARR2(2.8D-12,-300.0_dp,TEMP)) - RCONST(68) = (ARR2(4.1D-13,-750.0_dp,TEMP)) - RCONST(69) = (ARR2(9.5D-14,-390.0_dp,TEMP)) - RCONST(70) = (ARR2(3.8D-12,-200.0_dp,TEMP)) - RCONST(71) = (0.7*j('h2o2')) - RCONST(72) = (ARR2(7.3D-12,620.0_dp,TEMP)) - RCONST(73) = (9.0D-12) - RCONST(74) = (j('ch2or')) - RCONST(75) = (j('ch2om')) - RCONST(76) = (ARR2(3.4D-11,1600.0_dp,TEMP)) - RCONST(77) = (5.8D-16) - RCONST(78) = (ARR2(9.7D-15,-625.0_dp,TEMP)) - RCONST(79) = (ARR2(2.4D+12,7000.0_dp,TEMP)) - RCONST(80) = (5.6D-12) - RCONST(81) = (ARR2(5.6D-15,-2300.0_dp,TEMP)) - RCONST(82) = (4.0D-13) - RCONST(83) = (ARR2(1.8D-11,1100.0_dp,TEMP)) - RCONST(84) = (ARR2(5.6D-12,-270.0_dp,TEMP)) - RCONST(85) = (ARR2(1.4D-12,1900.0_dp,TEMP)) - RCONST(86) = (4.6D-4*j('no2')) - RCONST(87) = (ARR2(8.1D-12,-270.0_dp,TEMP)) - RCONST(88) = (FALL(2.7D-28,0.0_dp,-7.1_dp,1.2D-11,0.0_dp,-0.9_dp,0.3_dp,TEMP,C_M)) - RCONST(89) = (FALL(4.9D-03,12100.0_dp,0.0_dp,5.4D16,13830.0_dp,0.0_dp,0.3_dp,TEMP,C_M)) - RCONST(90) = (j('pan')) - RCONST(91) = (ARR2(4.3D-13,-1040.0_dp,TEMP)) - RCONST(92) = (ARR2(2.0D-12,-500.0_dp,TEMP)) - RCONST(93) = (ARR2(4.4D-13,-1070.0_dp,TEMP)) - RCONST(94) = (ARR2(2.9D-12,-500.0_dp,TEMP)) - RCONST(95) = (ARR2(4.0D-13,-200.0_dp,TEMP)) - RCONST(96) = (0.0*0.7*j('h2o2')) - RCONST(97) = (ARR2(4.0D-13,-200.0_dp,TEMP)) - RCONST(98) = (ARR2(1.3D-11,870.0_dp,TEMP)) - RCONST(99) = (ARR2(5.1D-12,-405.0_dp,TEMP)) - RCONST(100) = (6.5D-15) - RCONST(101) = (j('ch3cho')) - RCONST(102) = (ARR2(6.7D-12,-340.0_dp,TEMP)) - RCONST(103) = (FALL(2.7D-28,0.0_dp,-7.1_dp,1.2D-11,0.0_dp,-0.9_dp,0.3_dp,TEMP,C_M)) - RCONST(104) = (FALL(4.9D-03,12100.0_dp,0.0_dp,5.4D16,13830.0_dp,0.0_dp,0.3_dp,TEMP,C_M)) - RCONST(105) = (j('pan')) - RCONST(106) = (3.0D-13) - RCONST(107) = (ARR2(4.3D-13,-1040.0_dp,TEMP)) - RCONST(108) = (ARR2(2.0D-12,-500.0_dp,TEMP)) - RCONST(109) = (ARR2(4.4D-13,-1070.0_dp,TEMP)) - RCONST(110) = (ARR2(2.9D-12,-500.0_dp,TEMP)) - RCONST(111) = (ARR2(2.9D-12,-500.0_dp,TEMP)) - RCONST(112) = (8.1D-13) - RCONST(113) = (ARR2(1.0D15,8000.0_dp,TEMP)) -! RCONST(114) = constant rate coefficient - RCONST(115) = (1.5D-11) - RCONST(116) = (ARR2(1.0D-11,280.0_dp,TEMP)) - RCONST(117) = (3.2D-11) - RCONST(118) = (ARR2(6.5D-15,1900.0_dp,TEMP)) - RCONST(119) = (ARR2(7.0D-13,2160.0_dp,TEMP)) - RCONST(120) = (ARR2(1.04D-11,792.0_dp,TEMP)) - RCONST(121) = (TROE(1.0D-28,0.8_dp,8.8D-12,0.0_dp,TEMP,C_M)) - RCONST(122) = (ARR2(1.2D-14,2630.0_dp,TEMP)) - RCONST(123) = (ARR2(3.3D-12,2880.0_dp,TEMP)) - RCONST(124) = (2.3D-11) - RCONST(125) = (ARR2(1.0D-11,-550.0_dp,TEMP)) - RCONST(126) = (ARR2(8.4D-15,1100.0_dp,TEMP)) - RCONST(127) = (ARR2(9.6D-13,270.0_dp,TEMP)) - RCONST(128) = (ARR2(1.8D-12,-355.0_dp,TEMP)) - RCONST(129) = (8.1D-12) -! RCONST(130) = constant rate coefficient - RCONST(131) = (4.1D-11) - RCONST(132) = (2.2D-11) - RCONST(133) = (1.4D-11) - RCONST(134) = (5.5D-12) - RCONST(135) = (9.0*j('ch2or')) - RCONST(136) = (3.0D-11) - RCONST(137) = (ARR2(5.4D-17,500.0_dp,TEMP)) - RCONST(138) = (ARR2(1.7D-11,-116.0_dp,TEMP)) - RCONST(139) = (1.7D-11) - RCONST(140) = (9.64*j('ch2or')) - RCONST(141) = (3.6D-11) - RCONST(142) = (ARR2(2.54D-11,-407.6_dp,TEMP)) - RCONST(143) = (ARR2(7.86D-15,1912.0_dp,TEMP)) - RCONST(144) = (ARR2(3.03D-12,448.0_dp,TEMP)) - RCONST(145) = (3.36D-11) - RCONST(146) = (7.1D-18) - RCONST(147) = (1.0D-15) - RCONST(148) = (0.0036*0.025*j('ch2om')) - RCONST(149) = (3.6D-11) - RCONST(150) = (ARR2(1.5D-11,-449.0_dp,TEMP)) - RCONST(151) = (ARR2(1.2D-15,821.0_dp,TEMP)) - RCONST(152) = (ARR2(3.7D-12,-175.0_dp,TEMP)) - RCONST(153) = (TROE(3.3D-31,4.3_dp,1.6D-12,0.0_dp,TEMP,C_M)) - RCONST(154) = (ARR2(6.9D-12,230.0_dp,TEMP)) - RCONST(155) = (ARR2(8.7D-12,1070.0_dp,TEMP)) - RCONST(156) = (1.5D-19) - RCONST(157) = (j('cl2')) - RCONST(158) = (j('hocl')) - RCONST(159) = (ARR2(2.3D-11,200.0_dp,TEMP)) - RCONST(160) = (1.63D-14) - RCONST(161) = (ARR2(6.4D-12,-290.0_dp,TEMP)) - RCONST(162) = (ARR2(2.7D-12,-220.0_dp,TEMP)) - RCONST(163) = (5.0D-13) - RCONST(164) = (j('fmcl')) - RCONST(165) = (ARR2(6.6D-12,1240.0_dp,TEMP)) - RCONST(166) = (5.0D-11) - RCONST(167) = (ARR2(8.3D-11,100.0_dp,TEMP)) - RCONST(168) = (1.07D-10) - RCONST(169) = (2.5D-10) - RCONST(170) = (3.5D-10) - RCONST(171) = (4.3D-10) - RCONST(172) = (ARR2(8.2D-11,34.0_dp,TEMP)) - RCONST(173) = (7.9D-11) - RCONST(174) = (1.3D-10) - RCONST(175) = (5.5D-11) - RCONST(176) = (ARR2(8.2D-11,-45.0_dp,TEMP)) - RCONST(177) = (ARR(6.58D-13,-58.0_dp,1.16_dp,TEMP)) - RCONST(178) = (3.0D-20) - RCONST(179) = (8.7D-14) - RCONST(180) = (8.5D-19) - RCONST(181) = (2.93D-10) - RCONST(182) = (1.71D-10) - RCONST(183) = (2.52D-10) - RCONST(184) = (5.37D-11) - RCONST(185) = (8.66D-17) - RCONST(186) = (7.89D-11) - RCONST(187) = (1.36D-17) - RCONST(188) = (2.31D-12) - RCONST(189) = (2.7D-10) - RCONST(190) = (1.97D-11) - RCONST(191) = (7.7D-11) - RCONST(192) = (ARR2(1.0D-11,0.0_dp,TEMP)) - RCONST(193) = (ARR2(1.0D-11,0.0_dp,TEMP)) - RCONST(194) = (ARR2(1.0D-11,0.0_dp,TEMP)) - RCONST(195) = (ARR2(1.0D-11,0.0_dp,TEMP)) - RCONST(196) = (ARR2(1.0D-11,0.0_dp,TEMP)) - RCONST(197) = (ARR2(1.0D-11,0.0_dp,TEMP)) - RCONST(198) = (rtdat_ae_so2) - -END SUBROUTINE Update_RCONST - -! End of Update_RCONST function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_PHOTO - function to update photolytical rate constants -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Update_PHOTO ( ) - - - USE CB05TUCl_NCSU_Global - - RCONST(1) = (j('no2')) - RCONST(8) = (j('o33p')) - RCONST(9) = (j('o31d')) - RCONST(14) = (j('no3o')) - RCONST(15) = (j('no3o2')) - RCONST(25) = (j('hno2')) - RCONST(36) = (j('h2o2')) - RCONST(51) = (j('hno4')) - RCONST(52) = (j('hno3')) - RCONST(53) = (j('n2o5')) - RCONST(62) = (1.0D-4*j('no2')) - RCONST(64) = (0.7*j('h2o2')) - RCONST(71) = (0.7*j('h2o2')) - RCONST(74) = (j('ch2or')) - RCONST(75) = (j('ch2om')) - RCONST(86) = (4.6D-4*j('no2')) - RCONST(90) = (j('pan')) - RCONST(96) = (0.0*0.7*j('h2o2')) - RCONST(101) = (j('ch3cho')) - RCONST(105) = (j('pan')) - RCONST(135) = (9.0*j('ch2or')) - RCONST(140) = (9.64*j('ch2or')) - RCONST(148) = (0.0036*0.025*j('ch2om')) - RCONST(157) = (j('cl2')) - RCONST(158) = (j('hocl')) - RCONST(164) = (j('fmcl')) - -END SUBROUTINE Update_PHOTO - -! End of Update_PHOTO function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE CB05TUCl_NCSU_Rates - diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Rates.o b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Rates.o deleted file mode 100644 index a8e0f937426c0bd4f665aba5761e37a7cf2387bc..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Rates.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Stoichiom.f90 b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Stoichiom.f90 deleted file mode 100644 index 00c5b3de422afb7529ba54a0994dbf4ea9f86307..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Stoichiom.f90 +++ /dev/null @@ -1,1097 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The Stoichiometric Chemical Model File -! -! Generated by KPP-2.2.3 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 : CB05TUCl_NCSU_Stoichiom.f90 -! Time : Thu Oct 8 08:21:46 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05TUCl_NCSU_13059_BOXMOX -! Equation file : CB05TUCl_NCSU.kpp -! Output root filename : CB05TUCl_NCSU -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CB05TUCl_NCSU_Stoichiom - - USE CB05TUCl_NCSU_Parameters - USE CB05TUCl_NCSU_StoichiomSP - - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! ReactantProd - Reactant Products in each equation -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! ARP - Reactant product in each equation -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE ReactantProd ( V, F, ARP ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! F - Concentrations of fixed species (local) - REAL(kind=dp) :: F(NFIX) -! ARP - Reactant product in each equation - REAL(kind=dp) :: ARP(NREACT) - - -! Reactant Products in each equation are useful in the -! stoichiometric formulation of mass action law - ARP(1) = V(101) - ARP(2) = V(105) - ARP(3) = V(96)*V(100) - ARP(4) = V(101)*V(105) - ARP(5) = V(101)*V(105) - ARP(6) = V(100)*V(105) - ARP(7) = V(96)*V(101) - ARP(8) = V(96) - ARP(9) = V(96) - ARP(10) = V(55)*F(2) - ARP(11) = V(55)*F(1) - ARP(12) = V(96)*V(98) - ARP(13) = V(96)*V(106) - ARP(14) = V(103) - ARP(15) = V(103) - ARP(16) = V(100)*V(103) - ARP(17) = V(101)*V(103) - ARP(18) = V(101)*V(103) - ARP(19) = V(56)*F(1) - ARP(20) = V(56)*F(1)*F(1) - ARP(21) = V(56) - ARP(22) = V(100)*V(100) - ARP(23) = V(100)*V(101)*F(1) - ARP(24) = V(98)*V(100) - ARP(25) = V(60) - ARP(26) = V(60)*V(98) - ARP(27) = V(60)*V(60) - ARP(28) = V(98)*V(101) - ARP(29) = V(79)*V(98) - ARP(30) = V(100)*V(106) - ARP(31) = V(101)*V(106) - ARP(32) = V(63) - ARP(33) = V(63)*V(98) - ARP(34) = V(106)*V(106) - ARP(35) = V(106)*V(106)*F(1) - ARP(36) = V(69) - ARP(37) = V(69)*V(98) - ARP(38) = V(54)*V(55) - ARP(39) = V(54)*V(98) - ARP(40) = V(98)*V(105) - ARP(41) = V(98)*V(98) - ARP(42) = V(98)*V(98) - ARP(43) = V(98)*V(106) - ARP(44) = V(105)*V(106) - ARP(45) = V(69)*V(105) - ARP(46) = V(103)*V(105) - ARP(47) = V(98)*V(103) - ARP(48) = V(103)*V(106) - ARP(49) = V(96)*V(103) - ARP(50) = V(103)*V(103) - ARP(51) = V(63) - ARP(52) = V(79) - ARP(53) = V(56) - ARP(54) = V(100)*V(104) - ARP(55) = V(88)*V(100) - ARP(56) = V(104)*V(106) - ARP(57) = V(88)*V(106) - ARP(58) = V(104)*V(104) - ARP(59) = V(88)*V(88) - ARP(60) = V(88)*V(104) - ARP(61) = V(94)*V(98) - ARP(62) = V(94) - ARP(63) = V(73)*V(98) - ARP(64) = V(73) - ARP(65) = V(80)*V(98) - ARP(66) = V(58)*V(98) - ARP(67) = V(100)*V(107) - ARP(68) = V(106)*V(107) - ARP(69) = V(107)*V(107) - ARP(70) = V(78)*V(98) - ARP(71) = V(78) - ARP(72) = V(68)*V(98) - ARP(73) = V(95)*V(98) - ARP(74) = V(95) - ARP(75) = V(95) - ARP(76) = V(95)*V(105) - ARP(77) = V(95)*V(103) - ARP(78) = V(95)*V(106) - ARP(79) = V(71) - ARP(80) = V(71)*V(100) - ARP(81) = V(71)*V(106) - ARP(82) = V(61)*V(98) - ARP(83) = V(93)*V(105) - ARP(84) = V(93)*V(98) - ARP(85) = V(93)*V(103) - ARP(86) = V(93) - ARP(87) = V(97)*V(100) - ARP(88) = V(97)*V(101) - ARP(89) = V(51) - ARP(90) = V(51) - ARP(91) = V(97)*V(106) - ARP(92) = V(97)*V(107) - ARP(93) = V(97)*V(104) - ARP(94) = V(97)*V(97) - ARP(95) = V(64)*V(98) - ARP(96) = V(64) - ARP(97) = V(65)*V(98) - ARP(98) = V(92)*V(105) - ARP(99) = V(92)*V(98) - ARP(100) = V(92)*V(103) - ARP(101) = V(92) - ARP(102) = V(99)*V(100) - ARP(103) = V(99)*V(101) - ARP(104) = V(66) - ARP(105) = V(66) - ARP(106) = V(66)*V(98) - ARP(107) = V(99)*V(106) - ARP(108) = V(99)*V(107) - ARP(109) = V(99)*V(104) - ARP(110) = V(99)*V(99) - ARP(111) = V(97)*V(99) - ARP(112) = V(89)*V(98) - ARP(113) = V(82) - ARP(114) = V(82) - ARP(115) = V(82)*V(101) - ARP(116) = V(87)*V(105) - ARP(117) = V(87)*V(98) - ARP(118) = V(87)*V(96) - ARP(119) = V(87)*V(103) - ARP(120) = V(83)*V(105) - ARP(121) = V(83)*V(98) - ARP(122) = V(83)*V(96) - ARP(123) = V(83)*V(103) - ARP(124) = V(86)*V(105) - ARP(125) = V(86)*V(98) - ARP(126) = V(86)*V(96) - ARP(127) = V(86)*V(103) - ARP(128) = V(53)*V(98) - ARP(129) = V(62)*V(100) - ARP(130) = V(62) - ARP(131) = V(84)*V(98) - ARP(132) = V(84)*V(103) - ARP(133) = V(74)*V(101) - ARP(134) = V(74)*V(106) - ARP(135) = V(81) - ARP(136) = V(81)*V(98) - ARP(137) = V(81)*V(96) - ARP(138) = V(57)*V(98) - ARP(139) = V(76)*V(98) - ARP(140) = V(76) - ARP(141) = V(90)*V(105) - ARP(142) = V(90)*V(98) - ARP(143) = V(90)*V(96) - ARP(144) = V(90)*V(103) - ARP(145) = V(91)*V(98) - ARP(146) = V(91)*V(96) - ARP(147) = V(91)*V(103) - ARP(148) = V(91) - ARP(149) = V(85)*V(105) - ARP(150) = V(85)*V(98) - ARP(151) = V(85)*V(96) - ARP(152) = V(85)*V(103) - ARP(153) = V(50)*V(98) - ARP(154) = V(70)*V(98) - ARP(155) = V(67)*V(98) - ARP(156) = V(90)*V(101) - ARP(157) = V(49) - ARP(158) = V(52) - ARP(159) = V(96)*V(102) - ARP(160) = V(75)*V(75) - ARP(161) = V(75)*V(100) - ARP(162) = V(75)*V(106) - ARP(163) = V(77)*V(98) - ARP(164) = V(77) - ARP(165) = V(58)*V(102) - ARP(166) = V(89)*V(102) - ARP(167) = V(67)*V(102) - ARP(168) = V(83)*V(102) - ARP(169) = V(87)*V(102) - ARP(170) = V(86)*V(102) - ARP(171) = V(90)*V(102) - ARP(172) = V(95)*V(102) - ARP(173) = V(93)*V(102) - ARP(174) = V(92)*V(102) - ARP(175) = V(68)*V(102) - ARP(176) = V(70)*V(102) - ARP(177) = V(72)*V(98) - ARP(178) = V(59)*V(96) - ARP(179) = V(59)*V(98) - ARP(180) = V(59)*V(69) - ARP(181) = V(12)*V(98) - ARP(182) = V(15)*V(98) - ARP(183) = V(18)*V(98) - ARP(184) = V(23)*V(98) - ARP(185) = V(23)*V(96) - ARP(186) = V(29)*V(98) - ARP(187) = V(29)*V(96) - ARP(188) = V(29)*V(103) - ARP(189) = V(32)*V(98) - ARP(190) = V(34)*V(98) - ARP(191) = V(37)*V(98) - ARP(192) = V(42)*V(98) - ARP(193) = V(41)*V(98) - ARP(194) = V(40)*V(98) - ARP(195) = V(46)*V(98) - ARP(196) = V(45)*V(98) - ARP(197) = V(44)*V(98) - ARP(198) = V(50) - -END SUBROUTINE ReactantProd - -! End of ReactantProd function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! JacReactantProd - Jacobian of Reactant Products vector -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! JVRP - d ARP(1:NREACT)/d VAR (1:NVAR) -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE JacReactantProd ( V, F, JVRP ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! F - Concentrations of fixed species (local) - REAL(kind=dp) :: F(NFIX) -! JVRP - d ARP(1:NREACT)/d VAR (1:NVAR) - REAL(kind=dp) :: JVRP(NJVRP) - - -! Reactant Products in each equation are useful in the -! stoichiometric formulation of mass action law -! Below we compute the Jacobian of the Reactant Products vector -! w.r.t. variable species: d ARP(1:NREACT) / d Var(1:NVAR) - -! JVRP(1) = dARP(1)/dV(101) - JVRP(1) = 1 -! JVRP(2) = dARP(2)/dV(105) - JVRP(2) = 1 -! JVRP(3) = dARP(3)/dV(96) - JVRP(3) = V(100) -! JVRP(4) = dARP(3)/dV(100) - JVRP(4) = V(96) -! JVRP(5) = dARP(4)/dV(101) - JVRP(5) = V(105) -! JVRP(6) = dARP(4)/dV(105) - JVRP(6) = V(101) -! JVRP(7) = dARP(5)/dV(101) - JVRP(7) = V(105) -! JVRP(8) = dARP(5)/dV(105) - JVRP(8) = V(101) -! JVRP(9) = dARP(6)/dV(100) - JVRP(9) = V(105) -! JVRP(10) = dARP(6)/dV(105) - JVRP(10) = V(100) -! JVRP(11) = dARP(7)/dV(96) - JVRP(11) = V(101) -! JVRP(12) = dARP(7)/dV(101) - JVRP(12) = V(96) -! JVRP(13) = dARP(8)/dV(96) - JVRP(13) = 1 -! JVRP(14) = dARP(9)/dV(96) - JVRP(14) = 1 -! JVRP(15) = dARP(10)/dV(55) - JVRP(15) = F(2) -! JVRP(16) = dARP(11)/dV(55) - JVRP(16) = F(1) -! JVRP(17) = dARP(12)/dV(96) - JVRP(17) = V(98) -! JVRP(18) = dARP(12)/dV(98) - JVRP(18) = V(96) -! JVRP(19) = dARP(13)/dV(96) - JVRP(19) = V(106) -! JVRP(20) = dARP(13)/dV(106) - JVRP(20) = V(96) -! JVRP(21) = dARP(14)/dV(103) - JVRP(21) = 1 -! JVRP(22) = dARP(15)/dV(103) - JVRP(22) = 1 -! JVRP(23) = dARP(16)/dV(100) - JVRP(23) = V(103) -! JVRP(24) = dARP(16)/dV(103) - JVRP(24) = V(100) -! JVRP(25) = dARP(17)/dV(101) - JVRP(25) = V(103) -! JVRP(26) = dARP(17)/dV(103) - JVRP(26) = V(101) -! JVRP(27) = dARP(18)/dV(101) - JVRP(27) = V(103) -! JVRP(28) = dARP(18)/dV(103) - JVRP(28) = V(101) -! JVRP(29) = dARP(19)/dV(56) - JVRP(29) = F(1) -! JVRP(30) = dARP(20)/dV(56) - JVRP(30) = F(1)*F(1) -! JVRP(31) = dARP(21)/dV(56) - JVRP(31) = 1 -! JVRP(32) = dARP(22)/dV(100) - JVRP(32) = 2*V(100) -! JVRP(33) = dARP(23)/dV(100) - JVRP(33) = V(101)*F(1) -! JVRP(34) = dARP(23)/dV(101) - JVRP(34) = V(100)*F(1) -! JVRP(35) = dARP(24)/dV(98) - JVRP(35) = V(100) -! JVRP(36) = dARP(24)/dV(100) - JVRP(36) = V(98) -! JVRP(37) = dARP(25)/dV(60) - JVRP(37) = 1 -! JVRP(38) = dARP(26)/dV(60) - JVRP(38) = V(98) -! JVRP(39) = dARP(26)/dV(98) - JVRP(39) = V(60) -! JVRP(40) = dARP(27)/dV(60) - JVRP(40) = 2*V(60) -! JVRP(41) = dARP(28)/dV(98) - JVRP(41) = V(101) -! JVRP(42) = dARP(28)/dV(101) - JVRP(42) = V(98) -! JVRP(43) = dARP(29)/dV(79) - JVRP(43) = V(98) -! JVRP(44) = dARP(29)/dV(98) - JVRP(44) = V(79) -! JVRP(45) = dARP(30)/dV(100) - JVRP(45) = V(106) -! JVRP(46) = dARP(30)/dV(106) - JVRP(46) = V(100) -! JVRP(47) = dARP(31)/dV(101) - JVRP(47) = V(106) -! JVRP(48) = dARP(31)/dV(106) - JVRP(48) = V(101) -! JVRP(49) = dARP(32)/dV(63) - JVRP(49) = 1 -! JVRP(50) = dARP(33)/dV(63) - JVRP(50) = V(98) -! JVRP(51) = dARP(33)/dV(98) - JVRP(51) = V(63) -! JVRP(52) = dARP(34)/dV(106) - JVRP(52) = 2*V(106) -! JVRP(53) = dARP(35)/dV(106) - JVRP(53) = 2*V(106)*F(1) -! JVRP(54) = dARP(36)/dV(69) - JVRP(54) = 1 -! JVRP(55) = dARP(37)/dV(69) - JVRP(55) = V(98) -! JVRP(56) = dARP(37)/dV(98) - JVRP(56) = V(69) -! JVRP(57) = dARP(38)/dV(54) - JVRP(57) = V(55) -! JVRP(58) = dARP(38)/dV(55) - JVRP(58) = V(54) -! JVRP(59) = dARP(39)/dV(54) - JVRP(59) = V(98) -! JVRP(60) = dARP(39)/dV(98) - JVRP(60) = V(54) -! JVRP(61) = dARP(40)/dV(98) - JVRP(61) = V(105) -! JVRP(62) = dARP(40)/dV(105) - JVRP(62) = V(98) -! JVRP(63) = dARP(41)/dV(98) - JVRP(63) = 2*V(98) -! JVRP(64) = dARP(42)/dV(98) - JVRP(64) = 2*V(98) -! JVRP(65) = dARP(43)/dV(98) - JVRP(65) = V(106) -! JVRP(66) = dARP(43)/dV(106) - JVRP(66) = V(98) -! JVRP(67) = dARP(44)/dV(105) - JVRP(67) = V(106) -! JVRP(68) = dARP(44)/dV(106) - JVRP(68) = V(105) -! JVRP(69) = dARP(45)/dV(69) - JVRP(69) = V(105) -! JVRP(70) = dARP(45)/dV(105) - JVRP(70) = V(69) -! JVRP(71) = dARP(46)/dV(103) - JVRP(71) = V(105) -! JVRP(72) = dARP(46)/dV(105) - JVRP(72) = V(103) -! JVRP(73) = dARP(47)/dV(98) - JVRP(73) = V(103) -! JVRP(74) = dARP(47)/dV(103) - JVRP(74) = V(98) -! JVRP(75) = dARP(48)/dV(103) - JVRP(75) = V(106) -! JVRP(76) = dARP(48)/dV(106) - JVRP(76) = V(103) -! JVRP(77) = dARP(49)/dV(96) - JVRP(77) = V(103) -! JVRP(78) = dARP(49)/dV(103) - JVRP(78) = V(96) -! JVRP(79) = dARP(50)/dV(103) - JVRP(79) = 2*V(103) -! JVRP(80) = dARP(51)/dV(63) - JVRP(80) = 1 -! JVRP(81) = dARP(52)/dV(79) - JVRP(81) = 1 -! JVRP(82) = dARP(53)/dV(56) - JVRP(82) = 1 -! JVRP(83) = dARP(54)/dV(100) - JVRP(83) = V(104) -! JVRP(84) = dARP(54)/dV(104) - JVRP(84) = V(100) -! JVRP(85) = dARP(55)/dV(88) - JVRP(85) = V(100) -! JVRP(86) = dARP(55)/dV(100) - JVRP(86) = V(88) -! JVRP(87) = dARP(56)/dV(104) - JVRP(87) = V(106) -! JVRP(88) = dARP(56)/dV(106) - JVRP(88) = V(104) -! JVRP(89) = dARP(57)/dV(88) - JVRP(89) = V(106) -! JVRP(90) = dARP(57)/dV(106) - JVRP(90) = V(88) -! JVRP(91) = dARP(58)/dV(104) - JVRP(91) = 2*V(104) -! JVRP(92) = dARP(59)/dV(88) - JVRP(92) = 2*V(88) -! JVRP(93) = dARP(60)/dV(88) - JVRP(93) = V(104) -! JVRP(94) = dARP(60)/dV(104) - JVRP(94) = V(88) -! JVRP(95) = dARP(61)/dV(94) - JVRP(95) = V(98) -! JVRP(96) = dARP(61)/dV(98) - JVRP(96) = V(94) -! JVRP(97) = dARP(62)/dV(94) - JVRP(97) = 1 -! JVRP(98) = dARP(63)/dV(73) - JVRP(98) = V(98) -! JVRP(99) = dARP(63)/dV(98) - JVRP(99) = V(73) -! JVRP(100) = dARP(64)/dV(73) - JVRP(100) = 1 -! JVRP(101) = dARP(65)/dV(80) - JVRP(101) = V(98) -! JVRP(102) = dARP(65)/dV(98) - JVRP(102) = V(80) -! JVRP(103) = dARP(66)/dV(58) - JVRP(103) = V(98) -! JVRP(104) = dARP(66)/dV(98) - JVRP(104) = V(58) -! JVRP(105) = dARP(67)/dV(100) - JVRP(105) = V(107) -! JVRP(106) = dARP(67)/dV(107) - JVRP(106) = V(100) -! JVRP(107) = dARP(68)/dV(106) - JVRP(107) = V(107) -! JVRP(108) = dARP(68)/dV(107) - JVRP(108) = V(106) -! JVRP(109) = dARP(69)/dV(107) - JVRP(109) = 2*V(107) -! JVRP(110) = dARP(70)/dV(78) - JVRP(110) = V(98) -! JVRP(111) = dARP(70)/dV(98) - JVRP(111) = V(78) -! JVRP(112) = dARP(71)/dV(78) - JVRP(112) = 1 -! JVRP(113) = dARP(72)/dV(68) - JVRP(113) = V(98) -! JVRP(114) = dARP(72)/dV(98) - JVRP(114) = V(68) -! JVRP(115) = dARP(73)/dV(95) - JVRP(115) = V(98) -! JVRP(116) = dARP(73)/dV(98) - JVRP(116) = V(95) -! JVRP(117) = dARP(74)/dV(95) - JVRP(117) = 1 -! JVRP(118) = dARP(75)/dV(95) - JVRP(118) = 1 -! JVRP(119) = dARP(76)/dV(95) - JVRP(119) = V(105) -! JVRP(120) = dARP(76)/dV(105) - JVRP(120) = V(95) -! JVRP(121) = dARP(77)/dV(95) - JVRP(121) = V(103) -! JVRP(122) = dARP(77)/dV(103) - JVRP(122) = V(95) -! JVRP(123) = dARP(78)/dV(95) - JVRP(123) = V(106) -! JVRP(124) = dARP(78)/dV(106) - JVRP(124) = V(95) -! JVRP(125) = dARP(79)/dV(71) - JVRP(125) = 1 -! JVRP(126) = dARP(80)/dV(71) - JVRP(126) = V(100) -! JVRP(127) = dARP(80)/dV(100) - JVRP(127) = V(71) -! JVRP(128) = dARP(81)/dV(71) - JVRP(128) = V(106) -! JVRP(129) = dARP(81)/dV(106) - JVRP(129) = V(71) -! JVRP(130) = dARP(82)/dV(61) - JVRP(130) = V(98) -! JVRP(131) = dARP(82)/dV(98) - JVRP(131) = V(61) -! JVRP(132) = dARP(83)/dV(93) - JVRP(132) = V(105) -! JVRP(133) = dARP(83)/dV(105) - JVRP(133) = V(93) -! JVRP(134) = dARP(84)/dV(93) - JVRP(134) = V(98) -! JVRP(135) = dARP(84)/dV(98) - JVRP(135) = V(93) -! JVRP(136) = dARP(85)/dV(93) - JVRP(136) = V(103) -! JVRP(137) = dARP(85)/dV(103) - JVRP(137) = V(93) -! JVRP(138) = dARP(86)/dV(93) - JVRP(138) = 1 -! JVRP(139) = dARP(87)/dV(97) - JVRP(139) = V(100) -! JVRP(140) = dARP(87)/dV(100) - JVRP(140) = V(97) -! JVRP(141) = dARP(88)/dV(97) - JVRP(141) = V(101) -! JVRP(142) = dARP(88)/dV(101) - JVRP(142) = V(97) -! JVRP(143) = dARP(89)/dV(51) - JVRP(143) = 1 -! JVRP(144) = dARP(90)/dV(51) - JVRP(144) = 1 -! JVRP(145) = dARP(91)/dV(97) - JVRP(145) = V(106) -! JVRP(146) = dARP(91)/dV(106) - JVRP(146) = V(97) -! JVRP(147) = dARP(92)/dV(97) - JVRP(147) = V(107) -! JVRP(148) = dARP(92)/dV(107) - JVRP(148) = V(97) -! JVRP(149) = dARP(93)/dV(97) - JVRP(149) = V(104) -! JVRP(150) = dARP(93)/dV(104) - JVRP(150) = V(97) -! JVRP(151) = dARP(94)/dV(97) - JVRP(151) = 2*V(97) -! JVRP(152) = dARP(95)/dV(64) - JVRP(152) = V(98) -! JVRP(153) = dARP(95)/dV(98) - JVRP(153) = V(64) -! JVRP(154) = dARP(96)/dV(64) - JVRP(154) = 1 -! JVRP(155) = dARP(97)/dV(65) - JVRP(155) = V(98) -! JVRP(156) = dARP(97)/dV(98) - JVRP(156) = V(65) -! JVRP(157) = dARP(98)/dV(92) - JVRP(157) = V(105) -! JVRP(158) = dARP(98)/dV(105) - JVRP(158) = V(92) -! JVRP(159) = dARP(99)/dV(92) - JVRP(159) = V(98) -! JVRP(160) = dARP(99)/dV(98) - JVRP(160) = V(92) -! JVRP(161) = dARP(100)/dV(92) - JVRP(161) = V(103) -! JVRP(162) = dARP(100)/dV(103) - JVRP(162) = V(92) -! JVRP(163) = dARP(101)/dV(92) - JVRP(163) = 1 -! JVRP(164) = dARP(102)/dV(99) - JVRP(164) = V(100) -! JVRP(165) = dARP(102)/dV(100) - JVRP(165) = V(99) -! JVRP(166) = dARP(103)/dV(99) - JVRP(166) = V(101) -! JVRP(167) = dARP(103)/dV(101) - JVRP(167) = V(99) -! JVRP(168) = dARP(104)/dV(66) - JVRP(168) = 1 -! JVRP(169) = dARP(105)/dV(66) - JVRP(169) = 1 -! JVRP(170) = dARP(106)/dV(66) - JVRP(170) = V(98) -! JVRP(171) = dARP(106)/dV(98) - JVRP(171) = V(66) -! JVRP(172) = dARP(107)/dV(99) - JVRP(172) = V(106) -! JVRP(173) = dARP(107)/dV(106) - JVRP(173) = V(99) -! JVRP(174) = dARP(108)/dV(99) - JVRP(174) = V(107) -! JVRP(175) = dARP(108)/dV(107) - JVRP(175) = V(99) -! JVRP(176) = dARP(109)/dV(99) - JVRP(176) = V(104) -! JVRP(177) = dARP(109)/dV(104) - JVRP(177) = V(99) -! JVRP(178) = dARP(110)/dV(99) - JVRP(178) = 2*V(99) -! JVRP(179) = dARP(111)/dV(97) - JVRP(179) = V(99) -! JVRP(180) = dARP(111)/dV(99) - JVRP(180) = V(97) -! JVRP(181) = dARP(112)/dV(89) - JVRP(181) = V(98) -! JVRP(182) = dARP(112)/dV(98) - JVRP(182) = V(89) -! JVRP(183) = dARP(113)/dV(82) - JVRP(183) = 1 -! JVRP(184) = dARP(114)/dV(82) - JVRP(184) = 1 -! JVRP(185) = dARP(115)/dV(82) - JVRP(185) = V(101) -! JVRP(186) = dARP(115)/dV(101) - JVRP(186) = V(82) -! JVRP(187) = dARP(116)/dV(87) - JVRP(187) = V(105) -! JVRP(188) = dARP(116)/dV(105) - JVRP(188) = V(87) -! JVRP(189) = dARP(117)/dV(87) - JVRP(189) = V(98) -! JVRP(190) = dARP(117)/dV(98) - JVRP(190) = V(87) -! JVRP(191) = dARP(118)/dV(87) - JVRP(191) = V(96) -! JVRP(192) = dARP(118)/dV(96) - JVRP(192) = V(87) -! JVRP(193) = dARP(119)/dV(87) - JVRP(193) = V(103) -! JVRP(194) = dARP(119)/dV(103) - JVRP(194) = V(87) -! JVRP(195) = dARP(120)/dV(83) - JVRP(195) = V(105) -! JVRP(196) = dARP(120)/dV(105) - JVRP(196) = V(83) -! JVRP(197) = dARP(121)/dV(83) - JVRP(197) = V(98) -! JVRP(198) = dARP(121)/dV(98) - JVRP(198) = V(83) -! JVRP(199) = dARP(122)/dV(83) - JVRP(199) = V(96) -! JVRP(200) = dARP(122)/dV(96) - JVRP(200) = V(83) -! JVRP(201) = dARP(123)/dV(83) - JVRP(201) = V(103) -! JVRP(202) = dARP(123)/dV(103) - JVRP(202) = V(83) -! JVRP(203) = dARP(124)/dV(86) - JVRP(203) = V(105) -! JVRP(204) = dARP(124)/dV(105) - JVRP(204) = V(86) -! JVRP(205) = dARP(125)/dV(86) - JVRP(205) = V(98) -! JVRP(206) = dARP(125)/dV(98) - JVRP(206) = V(86) -! JVRP(207) = dARP(126)/dV(86) - JVRP(207) = V(96) -! JVRP(208) = dARP(126)/dV(96) - JVRP(208) = V(86) -! JVRP(209) = dARP(127)/dV(86) - JVRP(209) = V(103) -! JVRP(210) = dARP(127)/dV(103) - JVRP(210) = V(86) -! JVRP(211) = dARP(128)/dV(53) - JVRP(211) = V(98) -! JVRP(212) = dARP(128)/dV(98) - JVRP(212) = V(53) -! JVRP(213) = dARP(129)/dV(62) - JVRP(213) = V(100) -! JVRP(214) = dARP(129)/dV(100) - JVRP(214) = V(62) -! JVRP(215) = dARP(130)/dV(62) - JVRP(215) = 1 -! JVRP(216) = dARP(131)/dV(84) - JVRP(216) = V(98) -! JVRP(217) = dARP(131)/dV(98) - JVRP(217) = V(84) -! JVRP(218) = dARP(132)/dV(84) - JVRP(218) = V(103) -! JVRP(219) = dARP(132)/dV(103) - JVRP(219) = V(84) -! JVRP(220) = dARP(133)/dV(74) - JVRP(220) = V(101) -! JVRP(221) = dARP(133)/dV(101) - JVRP(221) = V(74) -! JVRP(222) = dARP(134)/dV(74) - JVRP(222) = V(106) -! JVRP(223) = dARP(134)/dV(106) - JVRP(223) = V(74) -! JVRP(224) = dARP(135)/dV(81) - JVRP(224) = 1 -! JVRP(225) = dARP(136)/dV(81) - JVRP(225) = V(98) -! JVRP(226) = dARP(136)/dV(98) - JVRP(226) = V(81) -! JVRP(227) = dARP(137)/dV(81) - JVRP(227) = V(96) -! JVRP(228) = dARP(137)/dV(96) - JVRP(228) = V(81) -! JVRP(229) = dARP(138)/dV(57) - JVRP(229) = V(98) -! JVRP(230) = dARP(138)/dV(98) - JVRP(230) = V(57) -! JVRP(231) = dARP(139)/dV(76) - JVRP(231) = V(98) -! JVRP(232) = dARP(139)/dV(98) - JVRP(232) = V(76) -! JVRP(233) = dARP(140)/dV(76) - JVRP(233) = 1 -! JVRP(234) = dARP(141)/dV(90) - JVRP(234) = V(105) -! JVRP(235) = dARP(141)/dV(105) - JVRP(235) = V(90) -! JVRP(236) = dARP(142)/dV(90) - JVRP(236) = V(98) -! JVRP(237) = dARP(142)/dV(98) - JVRP(237) = V(90) -! JVRP(238) = dARP(143)/dV(90) - JVRP(238) = V(96) -! JVRP(239) = dARP(143)/dV(96) - JVRP(239) = V(90) -! JVRP(240) = dARP(144)/dV(90) - JVRP(240) = V(103) -! JVRP(241) = dARP(144)/dV(103) - JVRP(241) = V(90) -! JVRP(242) = dARP(145)/dV(91) - JVRP(242) = V(98) -! JVRP(243) = dARP(145)/dV(98) - JVRP(243) = V(91) -! JVRP(244) = dARP(146)/dV(91) - JVRP(244) = V(96) -! JVRP(245) = dARP(146)/dV(96) - JVRP(245) = V(91) -! JVRP(246) = dARP(147)/dV(91) - JVRP(246) = V(103) -! JVRP(247) = dARP(147)/dV(103) - JVRP(247) = V(91) -! JVRP(248) = dARP(148)/dV(91) - JVRP(248) = 1 -! JVRP(249) = dARP(149)/dV(85) - JVRP(249) = V(105) -! JVRP(250) = dARP(149)/dV(105) - JVRP(250) = V(85) -! JVRP(251) = dARP(150)/dV(85) - JVRP(251) = V(98) -! JVRP(252) = dARP(150)/dV(98) - JVRP(252) = V(85) -! JVRP(253) = dARP(151)/dV(85) - JVRP(253) = V(96) -! JVRP(254) = dARP(151)/dV(96) - JVRP(254) = V(85) -! JVRP(255) = dARP(152)/dV(85) - JVRP(255) = V(103) -! JVRP(256) = dARP(152)/dV(103) - JVRP(256) = V(85) -! JVRP(257) = dARP(153)/dV(50) - JVRP(257) = V(98) -! JVRP(258) = dARP(153)/dV(98) - JVRP(258) = V(50) -! JVRP(259) = dARP(154)/dV(70) - JVRP(259) = V(98) -! JVRP(260) = dARP(154)/dV(98) - JVRP(260) = V(70) -! JVRP(261) = dARP(155)/dV(67) - JVRP(261) = V(98) -! JVRP(262) = dARP(155)/dV(98) - JVRP(262) = V(67) -! JVRP(263) = dARP(156)/dV(90) - JVRP(263) = V(101) -! JVRP(264) = dARP(156)/dV(101) - JVRP(264) = V(90) -! JVRP(265) = dARP(157)/dV(49) - JVRP(265) = 1 -! JVRP(266) = dARP(158)/dV(52) - JVRP(266) = 1 -! JVRP(267) = dARP(159)/dV(96) - JVRP(267) = V(102) -! JVRP(268) = dARP(159)/dV(102) - JVRP(268) = V(96) -! JVRP(269) = dARP(160)/dV(75) - JVRP(269) = 2*V(75) -! JVRP(270) = dARP(161)/dV(75) - JVRP(270) = V(100) -! JVRP(271) = dARP(161)/dV(100) - JVRP(271) = V(75) -! JVRP(272) = dARP(162)/dV(75) - JVRP(272) = V(106) -! JVRP(273) = dARP(162)/dV(106) - JVRP(273) = V(75) -! JVRP(274) = dARP(163)/dV(77) - JVRP(274) = V(98) -! JVRP(275) = dARP(163)/dV(98) - JVRP(275) = V(77) -! JVRP(276) = dARP(164)/dV(77) - JVRP(276) = 1 -! JVRP(277) = dARP(165)/dV(58) - JVRP(277) = V(102) -! JVRP(278) = dARP(165)/dV(102) - JVRP(278) = V(58) -! JVRP(279) = dARP(166)/dV(89) - JVRP(279) = V(102) -! JVRP(280) = dARP(166)/dV(102) - JVRP(280) = V(89) -! JVRP(281) = dARP(167)/dV(67) - JVRP(281) = V(102) -! JVRP(282) = dARP(167)/dV(102) - JVRP(282) = V(67) -! JVRP(283) = dARP(168)/dV(83) - JVRP(283) = V(102) -! JVRP(284) = dARP(168)/dV(102) - JVRP(284) = V(83) -! JVRP(285) = dARP(169)/dV(87) - JVRP(285) = V(102) -! JVRP(286) = dARP(169)/dV(102) - JVRP(286) = V(87) -! JVRP(287) = dARP(170)/dV(86) - JVRP(287) = V(102) -! JVRP(288) = dARP(170)/dV(102) - JVRP(288) = V(86) -! JVRP(289) = dARP(171)/dV(90) - JVRP(289) = V(102) -! JVRP(290) = dARP(171)/dV(102) - JVRP(290) = V(90) -! JVRP(291) = dARP(172)/dV(95) - JVRP(291) = V(102) -! JVRP(292) = dARP(172)/dV(102) - JVRP(292) = V(95) -! JVRP(293) = dARP(173)/dV(93) - JVRP(293) = V(102) -! JVRP(294) = dARP(173)/dV(102) - JVRP(294) = V(93) -! JVRP(295) = dARP(174)/dV(92) - JVRP(295) = V(102) -! JVRP(296) = dARP(174)/dV(102) - JVRP(296) = V(92) -! JVRP(297) = dARP(175)/dV(68) - JVRP(297) = V(102) -! JVRP(298) = dARP(175)/dV(102) - JVRP(298) = V(68) -! JVRP(299) = dARP(176)/dV(70) - JVRP(299) = V(102) -! JVRP(300) = dARP(176)/dV(102) - JVRP(300) = V(70) -! JVRP(301) = dARP(177)/dV(72) - JVRP(301) = V(98) -! JVRP(302) = dARP(177)/dV(98) - JVRP(302) = V(72) -! JVRP(303) = dARP(178)/dV(59) - JVRP(303) = V(96) -! JVRP(304) = dARP(178)/dV(96) - JVRP(304) = V(59) -! JVRP(305) = dARP(179)/dV(59) - JVRP(305) = V(98) -! JVRP(306) = dARP(179)/dV(98) - JVRP(306) = V(59) -! JVRP(307) = dARP(180)/dV(59) - JVRP(307) = V(69) -! JVRP(308) = dARP(180)/dV(69) - JVRP(308) = V(59) -! JVRP(309) = dARP(181)/dV(12) - JVRP(309) = V(98) -! JVRP(310) = dARP(181)/dV(98) - JVRP(310) = V(12) -! JVRP(311) = dARP(182)/dV(15) - JVRP(311) = V(98) -! JVRP(312) = dARP(182)/dV(98) - JVRP(312) = V(15) -! JVRP(313) = dARP(183)/dV(18) - JVRP(313) = V(98) -! JVRP(314) = dARP(183)/dV(98) - JVRP(314) = V(18) -! JVRP(315) = dARP(184)/dV(23) - JVRP(315) = V(98) -! JVRP(316) = dARP(184)/dV(98) - JVRP(316) = V(23) -! JVRP(317) = dARP(185)/dV(23) - JVRP(317) = V(96) -! JVRP(318) = dARP(185)/dV(96) - JVRP(318) = V(23) -! JVRP(319) = dARP(186)/dV(29) - JVRP(319) = V(98) -! JVRP(320) = dARP(186)/dV(98) - JVRP(320) = V(29) -! JVRP(321) = dARP(187)/dV(29) - JVRP(321) = V(96) -! JVRP(322) = dARP(187)/dV(96) - JVRP(322) = V(29) -! JVRP(323) = dARP(188)/dV(29) - JVRP(323) = V(103) -! JVRP(324) = dARP(188)/dV(103) - JVRP(324) = V(29) -! JVRP(325) = dARP(189)/dV(32) - JVRP(325) = V(98) -! JVRP(326) = dARP(189)/dV(98) - JVRP(326) = V(32) -! JVRP(327) = dARP(190)/dV(34) - JVRP(327) = V(98) -! JVRP(328) = dARP(190)/dV(98) - JVRP(328) = V(34) -! JVRP(329) = dARP(191)/dV(37) - JVRP(329) = V(98) -! JVRP(330) = dARP(191)/dV(98) - JVRP(330) = V(37) -! JVRP(331) = dARP(192)/dV(42) - JVRP(331) = V(98) -! JVRP(332) = dARP(192)/dV(98) - JVRP(332) = V(42) -! JVRP(333) = dARP(193)/dV(41) - JVRP(333) = V(98) -! JVRP(334) = dARP(193)/dV(98) - JVRP(334) = V(41) -! JVRP(335) = dARP(194)/dV(40) - JVRP(335) = V(98) -! JVRP(336) = dARP(194)/dV(98) - JVRP(336) = V(40) -! JVRP(337) = dARP(195)/dV(46) - JVRP(337) = V(98) -! JVRP(338) = dARP(195)/dV(98) - JVRP(338) = V(46) -! JVRP(339) = dARP(196)/dV(45) - JVRP(339) = V(98) -! JVRP(340) = dARP(196)/dV(98) - JVRP(340) = V(45) -! JVRP(341) = dARP(197)/dV(44) - JVRP(341) = V(98) -! JVRP(342) = dARP(197)/dV(98) - JVRP(342) = V(44) -! JVRP(343) = dARP(198)/dV(50) - JVRP(343) = 1 - -END SUBROUTINE JacReactantProd - -! End of JacReactantProd function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! Begin Derivative w.r.t. Rate Coefficients - -! ------------------------------------------------------------------------------ -! Subroutine for the derivative of Fun with respect to rate coefficients -! ----------------------------------------------------------------------------- - - SUBROUTINE dFun_dRcoeff( V, F, NCOEFF, JCOEFF, DFDR ) - - USE CB05TUCl_NCSU_Parameters - USE CB05TUCl_NCSU_StoichiomSP - IMPLICIT NONE - -! V - Concentrations of variable/radical/fixed species - REAL(kind=dp) V(NVAR), F(NFIX) -! NCOEFF - the number of rate coefficients with respect to which we differentiate - INTEGER NCOEFF -! JCOEFF - a vector of integers containing the indices of reactions (rate -! coefficients) with respect to which we differentiate - INTEGER JCOEFF(NCOEFF) -! DFDR - a matrix containg derivative values; specifically, -! column j contains d Fun(1:NVAR) / d RCT( JCOEFF(j) ) -! for each 1 <= j <= NCOEFF -! This matrix is stored in a column-wise linearized format - REAL(kind=dp) DFDR(NVAR*NCOEFF) - -! Local vector with reactant products - REAL(kind=dp) A_RPROD(NREACT) - REAL(kind=dp) aj - INTEGER i,j,k - -! Compute the reactant products of all reactions - CALL ReactantProd ( V, F, A_RPROD ) - -! Compute the derivatives by multiplying column JCOEFF(j) of the stoichiometric matrix with A_RPROD - DO j=1,NCOEFF -! Initialize the j-th column of derivative matrix to zero - DO i=1,NVAR - DFDR(i+NVAR*(j-1)) = 0.0_dp - END DO -! Column JCOEFF(j) in the stoichiometric matrix times the -! reactant product of the JCOEFF(j)-th reaction -! give the j-th column of the derivative matrix - aj = A_RPROD(JCOEFF(j)) - DO k=CCOL_STOICM(JCOEFF(j)),CCOL_STOICM(JCOEFF(j)+1)-1 - DFDR(IROW_STOICM(k)+NVAR*(j-1)) = STOICM(k)*aj - END DO - END DO - - END SUBROUTINE dFun_dRcoeff - -! End Derivative w.r.t. Rate Coefficients - - -! Begin Jacobian Derivative w.r.t. Rate Coefficients - -! ------------------------------------------------------------------------------ -! Subroutine for the derivative of Jac with respect to rate coefficients -! Times a user vector -! ----------------------------------------------------------------------------- - - SUBROUTINE dJac_dRcoeff( V, F, U, NCOEFF, JCOEFF, DJDR ) - - USE CB05TUCl_NCSU_Parameters - USE CB05TUCl_NCSU_StoichiomSP - IMPLICIT NONE - -! V - Concentrations of variable/fixed species - REAL(kind=dp) V(NVAR), F(NFIX) -! U - User-supplied Vector - REAL(kind=dp) U(NVAR) -! NCOEFF - the number of rate coefficients with respect to which we differentiate - INTEGER NCOEFF -! JCOEFF - a vector of integers containing the indices of reactions (rate -! coefficients) with respect to which we differentiate - INTEGER JCOEFF(NCOEFF) -! DFDR - a matrix containg derivative values; specifically, -! column j contains d Jac(1:NVAR) / d RCT( JCOEFF(j) ) * U -! for each 1 <= j <= NCOEFF -! This matrix is stored in a column-wise linearized format - REAL(kind=dp) DJDR(NVAR*NCOEFF) - -! Local vector for Jacobian of reactant products - REAL(kind=dp) JV_RPROD(NJVRP) - REAL(kind=dp) aj - INTEGER i,j,k - -! Compute the Jacobian of all reactant products - CALL JacReactantProd( V, F, JV_RPROD ) - -! Compute the derivatives by multiplying column JCOEFF(j) of the stoichiometric matrix with A_PROD - DO j=1,NCOEFF -! Initialize the j-th column of derivative matrix to zero - DO i=1,NVAR - DJDR(i+NVAR*(j-1)) = 0.0_dp - END DO -! Column JCOEFF(j) in the stoichiometric matrix times the -! ( Gradient of reactant product of the JCOEFF(j)-th reaction X user vector ) -! give the j-th column of the derivative matrix -! -! Row JCOEFF(j) of JV_RPROD times the user vector - aj = 0.0_dp - DO k=CROW_JVRP(JCOEFF(j)),CROW_JVRP(JCOEFF(j)+1)-1 - aj = aj + JV_RPROD(k)*U(ICOL_JVRP(k)) - END DO -! Column JCOEFF(j) of Stoichiom. matrix times aj - DO k=CCOL_STOICM(JCOEFF(j)),CCOL_STOICM(JCOEFF(j)+1)-1 - DJDR(IROW_STOICM(k)+NVAR*(j-1)) = STOICM(k)*aj - END DO - END DO - - END SUBROUTINE dJac_dRcoeff - -! End Jacobian Derivative w.r.t. Rate Coefficients - - -END MODULE CB05TUCl_NCSU_Stoichiom - diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Stoichiom.o b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Stoichiom.o deleted file mode 100644 index ae85117236f8840ebf05dafcf6f698c364380ed5..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Stoichiom.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_StoichiomSP.f90 b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_StoichiomSP.f90 deleted file mode 100644 index 8f28e894094dd1efdd7716bc14231bc45f0daf5d..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_StoichiomSP.f90 +++ /dev/null @@ -1,487 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Sparse Stoichiometric Data Structures File -! -! Generated by KPP-2.2.3 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 : CB05TUCl_NCSU_StoichiomSP.f90 -! Time : Thu Oct 8 08:21:46 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05TUCl_NCSU_13059_BOXMOX -! Equation file : CB05TUCl_NCSU.kpp -! Output root filename : CB05TUCl_NCSU -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CB05TUCl_NCSU_StoichiomSP - - USE CB05TUCl_NCSU_Precision - PUBLIC - SAVE - - -! Row-compressed sparse data for the Jacobian of reaction products JVRP - - INTEGER, PARAMETER, DIMENSION(199) :: CROW_JVRP = (/ & - 1, 2, 3, 5, 7, 9, 11, 13, 14, 15, 16, 17, & - 19, 21, 22, 23, 25, 27, 29, 30, 31, 32, 33, 35, & - 37, 38, 40, 41, 43, 45, 47, 49, 50, 52, 53, 54, & - 55, 57, 59, 61, 63, 64, 65, 67, 69, 71, 73, 75, & - 77, 79, 80, 81, 82, 83, 85, 87, 89, 91, 92, 93, & - 95, 97, 98,100,101,103,105,107,109,110,112,113, & - 115,117,118,119,121,123,125,126,128,130,132,134, & - 136,138,139,141,143,144,145,147,149,151,152,154, & - 155,157,159,161,163,164,166,168,169,170,172,174, & - 176,178,179,181,183,184,185,187,189,191,193,195, & - 197,199,201,203,205,207,209,211,213,215,216,218, & - 220,222,224,225,227,229,231,233,234,236,238,240, & - 242,244,246,248,249,251,253,255,257,259,261,263, & - 265,266,267,269,270,272,274,276,277,279,281,283, & - 285,287,289,291,293,295,297,299,301,303,305,307, & - 309,311,313,315,317,319,321,323,325,327,329,331, & - 333,335,337,339,341,343,344 /) - - INTEGER, PARAMETER, DIMENSION(343) :: ICOL_JVRP = (/ & - 101,105, 96,100,101,105,101,105,100,105, 96,101, & - 96, 96, 55, 55, 96, 98, 96,106,103,103,100,103, & - 101,103,101,103, 56, 56, 56,100,100,101, 98,100, & - 60, 60, 98, 60, 98,101, 79, 98,100,106,101,106, & - 63, 63, 98,106,106, 69, 69, 98, 54, 55, 54, 98, & - 98,105, 98, 98, 98,106,105,106, 69,105,103,105, & - 98,103,103,106, 96,103,103, 63, 79, 56,100,104, & - 88,100,104,106, 88,106,104, 88, 88,104, 94, 98, & - 94, 73, 98, 73, 80, 98, 58, 98,100,107,106,107, & - 107, 78, 98, 78, 68, 98, 95, 98, 95, 95, 95,105, & - 95,103, 95,106, 71, 71,100, 71,106, 61, 98, 93, & - 105, 93, 98, 93,103, 93, 97,100, 97,101, 51, 51, & - 97,106, 97,107, 97,104, 97, 64, 98, 64, 65, 98, & - 92,105, 92, 98, 92,103, 92, 99,100, 99,101, 66, & - 66, 66, 98, 99,106, 99,107, 99,104, 99, 97, 99, & - 89, 98, 82, 82, 82,101, 87,105, 87, 98, 87, 96, & - 87,103, 83,105, 83, 98, 83, 96, 83,103, 86,105, & - 86, 98, 86, 96, 86,103, 53, 98, 62,100, 62, 84, & - 98, 84,103, 74,101, 74,106, 81, 81, 98, 81, 96, & - 57, 98, 76, 98, 76, 90,105, 90, 98, 90, 96, 90, & - 103, 91, 98, 91, 96, 91,103, 91, 85,105, 85, 98, & - 85, 96, 85,103, 50, 98, 70, 98, 67, 98, 90,101, & - 49, 52, 96,102, 75, 75,100, 75,106, 77, 98, 77, & - 58,102, 89,102, 67,102, 83,102, 87,102, 86,102, & - 90,102, 95,102, 93,102, 92,102, 68,102, 70,102, & - 72, 98, 59, 96, 59, 98, 59, 69, 12, 98, 15, 98, & - 18, 98, 23, 98, 23, 96, 29, 98, 29, 96, 29,103, & - 32, 98, 34, 98, 37, 98, 42, 98, 41, 98, 40, 98, & - 46, 98, 45, 98, 44, 98, 50 /) - - INTEGER, PARAMETER, DIMENSION(343) :: IROW_JVRP = (/ & - 1, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, & - 8, 9, 10, 11, 12, 12, 13, 13, 14, 15, 16, 16, & - 17, 17, 18, 18, 19, 20, 21, 22, 23, 23, 24, 24, & - 25, 26, 26, 27, 28, 28, 29, 29, 30, 30, 31, 31, & - 32, 33, 33, 34, 35, 36, 37, 37, 38, 38, 39, 39, & - 40, 40, 41, 42, 43, 43, 44, 44, 45, 45, 46, 46, & - 47, 47, 48, 48, 49, 49, 50, 51, 52, 53, 54, 54, & - 55, 55, 56, 56, 57, 57, 58, 59, 60, 60, 61, 61, & - 62, 63, 63, 64, 65, 65, 66, 66, 67, 67, 68, 68, & - 69, 70, 70, 71, 72, 72, 73, 73, 74, 75, 76, 76, & - 77, 77, 78, 78, 79, 80, 80, 81, 81, 82, 82, 83, & - 83, 84, 84, 85, 85, 86, 87, 87, 88, 88, 89, 90, & - 91, 91, 92, 92, 93, 93, 94, 95, 95, 96, 97, 97, & - 98, 98, 99, 99,100,100,101,102,102,103,103,104, & - 105,106,106,107,107,108,108,109,109,110,111,111, & - 112,112,113,114,115,115,116,116,117,117,118,118, & - 119,119,120,120,121,121,122,122,123,123,124,124, & - 125,125,126,126,127,127,128,128,129,129,130,131, & - 131,132,132,133,133,134,134,135,136,136,137,137, & - 138,138,139,139,140,141,141,142,142,143,143,144, & - 144,145,145,146,146,147,147,148,149,149,150,150, & - 151,151,152,152,153,153,154,154,155,155,156,156, & - 157,158,159,159,160,161,161,162,162,163,163,164, & - 165,165,166,166,167,167,168,168,169,169,170,170, & - 171,171,172,172,173,173,174,174,175,175,176,176, & - 177,177,178,178,179,179,180,180,181,181,182,182, & - 183,183,184,184,185,185,186,186,187,187,188,188, & - 189,189,190,190,191,191,192,192,193,193,194,194, & - 195,195,196,196,197,197,198 /) - - - -! Stoichiometric Matrix in Compressed Column Sparse Format - - - INTEGER, PARAMETER, DIMENSION(199) :: CCOL_STOICM = (/ & - 1, 4, 6, 9, 12, 15, 18, 21, 23, 25, 27, 29, & - 32, 35, 38, 40, 43, 45, 48, 50, 52, 55, 57, 60, & - 63, 66, 69, 72, 75, 78, 82, 85, 88, 91, 93, 95, & - 97,100,104,107,110,112,114,116,119,123,126,130, & - 133,136,138,143,146,149,152,155,158,161,162,163, & - 165,173,180,185,190,194,197,202,205,209,215,219, & - 224,229,232,234,239,244,247,250,255,258,262,266, & - 270,274,278,282,285,288,291,296,301,305,307,311, & - 314,318,322,326,330,334,340,343,346,349,353,358, & - 365,369,373,379,388,395,397,400,411,420,430,439, & - 446,453,460,465,473,480,489,495,504,510,513,521, & - 526,529,532,536,544,554,565,570,574,583,593,606, & - 616,629,640,651,659,664,674,686,695,700,708,715, & - 724,726,729,732,735,739,742,746,750,754,763,770, & - 776,784,794,801,806,810,814,819,824,827,830,833, & - 836,838,841,844,847,850,853,856,858,861,863,866, & - 868,870,872,874,876,878,880 /) - - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_0 = (/ & - 100,101,105, 96,105, 96,100,101,100,101,105,101, & - 103,105,100,101,105, 96,101,103, 96,105, 55, 96, & - 55,105, 55, 98, 96, 98,106, 96, 98,106,101,103, & - 105,100,103,100,101,103,100,103, 56,101,103, 56, & - 79, 56, 79, 56,101,103,100,101, 60,100,101, 60, & - 98,100, 60, 98,100, 60, 98,101, 60,100,101, 79, & - 98,101, 79, 98,103, 98,100,101,106, 63,101,106, & - 63,101,106, 63, 98,101, 69,106, 69,106, 69, 98, & - 69, 98,106, 54, 55, 98,106, 54, 98,106, 98,105, & - 106, 98,105, 69, 98, 98,106, 98,105,106, 69, 98, & - 105,106,101,103,105, 98,101,103,106, 79,103,106, & - 96,101,103,101,103, 63, 98,101,103,106, 79, 98, & - 101, 56,101,103,100,101,104, 88, 94,100, 73,104, & - 106, 73, 88,106,104, 88, 88,104, 79, 89, 92, 93, & - 94, 95, 98,106, 89, 92, 93, 94, 95,101,106, 73, & - 92, 93, 98,104, 73, 92, 93, 98,106, 47, 80, 98, & - 106, 58, 98,107, 95,100,101,106,107, 78,106,107, & - 68, 95,106,107, 48, 78, 98,104,106,107, 78, 95, & - 98,106, 48, 68, 95, 98,106, 48, 80, 95, 98,106, & - 80, 95,106, 80, 95, 80, 95, 98,105,106, 79, 80, & - 95,103,106, 71, 95,106, 71, 95,106, 61, 71,100, & - 101,106, 71, 78,106, 48, 61, 98,106, 93, 97, 98, & - 105, 48, 93, 97, 98, 79, 93, 97,103, 80, 93,106, & - 107, 97,100,101,107, 51, 97,101, 51, 97,101, 51, & - 97,101, 64, 65, 96, 97,106, 65, 95, 97,106,107, & - 65, 97,104,107, 97,107, 48, 64, 97, 98, 64, 98, & - 107, 48, 65, 98,107, 92, 98, 99,105, 48, 92, 98, & - 99, 79, 92, 99,103, 80, 92,106,107, 93, 99,100, & - 101,104,106, 66, 99,101, 66, 99,101, 66, 99,101, & - 66, 93, 98,101, 64, 65, 96, 99,106, 65, 93, 95 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_1 = (/ & - 99,104,106,107, 65, 93, 99,104, 93, 99,104,106, & - 93, 97, 99,104,106,107, 48, 82, 88, 89, 92, 93, & - 98,104,106, 82, 88, 89, 92, 93,104,106, 82,106, & - 82, 94,101, 80, 87, 88, 89, 92, 93, 95, 98,104, & - 105,106, 48, 87, 89, 92, 93, 95, 98,104,106, 80, & - 87, 89, 92, 93, 95, 96, 98,104,106, 87, 88, 89, & - 92, 93, 95,101,103,104, 80, 83, 95, 98,104,105, & - 106, 48, 83, 92, 95, 98,104,106, 61, 80, 83, 95, & - 96, 98,106, 83, 95,101,103,104, 80, 86, 89, 92, & - 93,104,105,106, 48, 86, 92, 93, 98,104,106, 80, & - 86, 92, 93, 95, 96, 98,105,106, 86, 92, 93,101, & - 103,106, 1, 2, 48, 53, 62, 84, 98,104,106, 62, & - 81, 94,100,101,106, 62, 84,106, 3, 48, 74, 81, & - 84, 98,104,106, 3, 74, 79, 84,103, 74, 94,101, & - 74, 84,106, 80, 81, 97,106, 48, 80, 81, 95, 97, & - 98,104,106, 76, 80, 81, 92, 95, 96, 97, 98,104, & - 106, 4, 5, 48, 57, 62, 76, 84, 89, 98,104,106, & - 48, 76, 97, 98,104, 76, 80, 97,106, 6, 7, 90, & - 91, 95, 99,104,105,106, 6, 7, 48, 88, 90, 91, & - 95, 98,104,106, 6, 7, 80, 89, 90, 91, 92, 95, & - 96, 98, 99,104,106, 6, 7, 90, 91, 92, 94,101, & - 103,104,106, 48, 76, 80, 89, 91, 92, 93, 95, 97, & - 98, 99,104,106, 76, 80, 89, 91, 93, 95, 96, 97, & - 98,104,106, 79, 80, 89, 91, 92, 94, 95, 99,103, & - 104,106, 80, 89, 91, 93, 95, 97,104,106, 10, 85, & - 89, 98,105, 10, 48, 85, 88, 89, 92, 95, 98,104, & - 106, 10, 80, 85, 88, 89, 92, 95, 96, 98, 99,104, & - 106, 10, 85, 88, 92, 94,101,103,104,106, 8, 9, & - 50, 98,106, 48, 70, 92, 93, 95, 98,104,106, 48, & - 67, 88, 93, 98,104,106, 89, 90, 91, 92, 94,100 /) - INTEGER, PARAMETER, DIMENSION(159) :: IROW_STOICM_2 = (/ & - 101,104,106, 49,102, 52, 98,102, 75, 96,102, 49, & - 75,102, 75,100,101,102, 52, 75,106, 77, 80, 98, & - 102, 77, 80,102,106, 58, 72,102,107, 72, 82, 88, & - 89, 92, 93,102,104,106, 67, 72, 88, 93,102,104, & - 106, 77, 83, 95,102,104,106, 77, 87, 89, 92, 93, & - 102,104,106, 72, 77, 86, 87, 89, 92, 93,102,104, & - 106, 72, 77, 90, 91,102,104,106, 72, 80, 95,102, & - 106, 72, 93, 97,102, 72, 92, 99,102, 68, 72, 95, & - 102,106, 70, 72, 93,102,106, 72, 98,102, 38, 59, & - 96, 38, 59, 98, 38, 59, 69, 11, 12, 13, 14, 15, & - 16, 17, 18, 19, 20, 23, 21, 22, 23, 24, 25, 29, & - 26, 27, 29, 28, 29, 30, 31, 32, 33, 34, 35, 36, & - 37, 41, 42, 40, 41, 39, 40, 45, 46, 44, 45, 43, & - 44, 8, 50 /) - INTEGER, PARAMETER, DIMENSION(879) :: IROW_STOICM = (/& - IROW_STOICM_0, IROW_STOICM_1, IROW_STOICM_2 /) - - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_0 = (/ & - 1, 1, 1, 2, 2, 3, 3, 3, 4, 4, 4, 5, & - 5, 5, 6, 6, 6, 7, 7, 7, 8, 8, 9, 9, & - 10, 10, 11, 11, 12, 12, 12, 13, 13, 13, 14, 14, & - 14, 15, 15, 16, 16, 16, 17, 17, 18, 18, 18, 19, & - 19, 20, 20, 21, 21, 21, 22, 22, 23, 23, 23, 24, & - 24, 24, 25, 25, 25, 26, 26, 26, 27, 27, 27, 28, & - 28, 28, 29, 29, 29, 30, 30, 30, 30, 31, 31, 31, & - 32, 32, 32, 33, 33, 33, 34, 34, 35, 35, 36, 36, & - 37, 37, 37, 38, 38, 38, 38, 39, 39, 39, 40, 40, & - 40, 41, 41, 42, 42, 43, 43, 44, 44, 44, 45, 45, & - 45, 45, 46, 46, 46, 47, 47, 47, 47, 48, 48, 48, & - 49, 49, 49, 50, 50, 51, 51, 51, 51, 51, 52, 52, & - 52, 53, 53, 53, 54, 54, 54, 55, 55, 55, 56, 56, & - 56, 57, 57, 57, 58, 59, 60, 60, 61, 61, 61, 61, & - 61, 61, 61, 61, 62, 62, 62, 62, 62, 62, 62, 63, & - 63, 63, 63, 63, 64, 64, 64, 64, 64, 65, 65, 65, & - 65, 66, 66, 66, 67, 67, 67, 67, 67, 68, 68, 68, & - 69, 69, 69, 69, 70, 70, 70, 70, 70, 70, 71, 71, & - 71, 71, 72, 72, 72, 72, 72, 73, 73, 73, 73, 73, & - 74, 74, 74, 75, 75, 76, 76, 76, 76, 76, 77, 77, & - 77, 77, 77, 78, 78, 78, 79, 79, 79, 80, 80, 80, & - 80, 80, 81, 81, 81, 82, 82, 82, 82, 83, 83, 83, & - 83, 84, 84, 84, 84, 85, 85, 85, 85, 86, 86, 86, & - 86, 87, 87, 87, 87, 88, 88, 88, 89, 89, 89, 90, & - 90, 90, 91, 91, 91, 91, 91, 92, 92, 92, 92, 92, & - 93, 93, 93, 93, 94, 94, 95, 95, 95, 95, 96, 96, & - 96, 97, 97, 97, 97, 98, 98, 98, 98, 99, 99, 99, & - 99,100,100,100,100,101,101,101,101,102,102,102, & - 102,102,102,103,103,103,104,104,104,105,105,105, & - 106,106,106,106,107,107,107,107,107,108,108,108 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_1 = (/ & - 108,108,108,108,109,109,109,109,110,110,110,110, & - 111,111,111,111,111,111,112,112,112,112,112,112, & - 112,112,112,113,113,113,113,113,113,113,114,114, & - 115,115,115,116,116,116,116,116,116,116,116,116, & - 116,116,117,117,117,117,117,117,117,117,117,118, & - 118,118,118,118,118,118,118,118,118,119,119,119, & - 119,119,119,119,119,119,120,120,120,120,120,120, & - 120,121,121,121,121,121,121,121,122,122,122,122, & - 122,122,122,123,123,123,123,123,124,124,124,124, & - 124,124,124,124,125,125,125,125,125,125,125,126, & - 126,126,126,126,126,126,126,126,127,127,127,127, & - 127,127,128,128,128,128,128,128,128,128,128,129, & - 129,129,129,129,129,130,130,130,131,131,131,131, & - 131,131,131,131,132,132,132,132,132,133,133,133, & - 134,134,134,135,135,135,135,136,136,136,136,136, & - 136,136,136,137,137,137,137,137,137,137,137,137, & - 137,138,138,138,138,138,138,138,138,138,138,138, & - 139,139,139,139,139,140,140,140,140,141,141,141, & - 141,141,141,141,141,141,142,142,142,142,142,142, & - 142,142,142,142,143,143,143,143,143,143,143,143, & - 143,143,143,143,143,144,144,144,144,144,144,144, & - 144,144,144,145,145,145,145,145,145,145,145,145, & - 145,145,145,145,146,146,146,146,146,146,146,146, & - 146,146,146,147,147,147,147,147,147,147,147,147, & - 147,147,148,148,148,148,148,148,148,148,149,149, & - 149,149,149,150,150,150,150,150,150,150,150,150, & - 150,151,151,151,151,151,151,151,151,151,151,151, & - 151,152,152,152,152,152,152,152,152,152,153,153, & - 153,153,153,154,154,154,154,154,154,154,154,155, & - 155,155,155,155,155,155,156,156,156,156,156,156 /) - INTEGER, PARAMETER, DIMENSION(159) :: ICOL_STOICM_2 = (/ & - 156,156,156,157,157,158,158,158,159,159,159,160, & - 160,160,161,161,161,161,162,162,162,163,163,163, & - 163,164,164,164,164,165,165,165,165,166,166,166, & - 166,166,166,166,166,166,167,167,167,167,167,167, & - 167,168,168,168,168,168,168,169,169,169,169,169, & - 169,169,169,170,170,170,170,170,170,170,170,170, & - 170,171,171,171,171,171,171,171,172,172,172,172, & - 172,173,173,173,173,174,174,174,174,175,175,175, & - 175,175,176,176,176,176,176,177,177,177,178,178, & - 178,179,179,179,180,180,180,181,181,182,182,182, & - 183,183,183,184,184,184,185,185,185,186,186,186, & - 187,187,187,188,188,189,189,189,190,190,191,191, & - 191,192,192,193,193,194,194,195,195,196,196,197, & - 197,198,198 /) - INTEGER, PARAMETER, DIMENSION(879) :: ICOL_STOICM = (/& - ICOL_STOICM_0, ICOL_STOICM_1, ICOL_STOICM_2 /) - - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_0 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -2.000000e+00_dp, & - 2.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -2.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -2.000000e+00_dp, 1.000000e+00_dp, -2.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -2.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, -2.000000e+00_dp, -1.000000e+00_dp, 3.900000e-01_dp, 6.100000e-01_dp, & - 3.900000e-01_dp, 6.100000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_1 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -2.000000e+00_dp, -2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -6.600000e-01_dp, 3.300000e-01_dp, 3.300000e-01_dp, -1.000000e+00_dp, 3.300000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -6.600000e-01_dp, 3.300000e-01_dp, 3.300000e-01_dp, & - -1.000000e+00_dp, 3.300000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, 5.000000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 6.300000e-01_dp, & - 1.370000e+00_dp, 7.400000e-01_dp, -2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 3.000000e-01_dp, 3.000000e-01_dp, 7.000000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 8.000000e-01_dp, 2.000000e-01_dp, 2.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 9.000000e-01_dp, -1.000000e-01_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_2 = (/ & - 1.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 9.000000e-01_dp, -2.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 8.000000e-01_dp, 2.000000e-01_dp, 2.000000e-01_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e-01_dp, 9.000000e-01_dp, 1.000000e-01_dp, & - -1.000000e+00_dp, 9.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e-01_dp, & - 9.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -2.000000e+00_dp, & - 2.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 7.600000e-01_dp, & - 1.300000e-01_dp, -1.110000e+00_dp, 5.000000e-02_dp, 6.000000e-02_dp, -1.000000e+00_dp, & - 8.700000e-01_dp, 1.100000e-01_dp, -9.800000e-01_dp, 4.000000e-02_dp, -2.100000e+00_dp, & - 5.000000e-01_dp, 6.000000e-01_dp, 9.600000e-01_dp, 9.400000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e-01_dp, & - -1.000000e+00_dp, 1.000000e-02_dp, 2.000000e-01_dp, 3.000000e-01_dp, 2.000000e-01_dp, & - 2.000000e-01_dp, 1.000000e-01_dp, 2.000000e-01_dp, -1.000000e+00_dp, 3.000000e-01_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -7.000000e-01_dp, 6.200000e-01_dp, 3.300000e-01_dp, & - 8.000000e-01_dp, -1.000000e+00_dp, 8.000000e-01_dp, 9.500000e-01_dp, 3.300000e-01_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 3.200000e-01_dp, 1.800000e-01_dp, 7.400000e-01_dp, & - -1.000000e+00_dp, 1.000000e-01_dp, 2.200000e-01_dp, 4.400000e-01_dp, -1.000000e+00_dp, & - 9.000000e-02_dp, -1.000000e+00_dp, 5.600000e-01_dp, 3.500000e-01_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 9.100000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 3.000000e-01_dp, 7.000000e-01_dp, -1.000000e+00_dp, 1.700000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 2.200000e-01_dp, 1.560000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_3 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, 3.700000e-01_dp, 6.300000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.300000e-01_dp, 1.300000e-01_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e-01_dp, & - -1.000000e+00_dp, 1.000000e-01_dp, 6.600000e-01_dp, 1.240000e+00_dp, 1.000000e-01_dp, & - -1.000000e+00_dp, 1.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 7.000000e-01_dp, & - 1.300000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.500000e-01_dp, & - -1.000000e+00_dp, 3.500000e-01_dp, 6.500000e-01_dp, 2.500000e-01_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, 6.400000e-01_dp, & - 1.180000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 7.100000e-02_dp, & - 1.380000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 5.600000e-01_dp, 3.600000e-01_dp, & - -1.000000e+00_dp, 8.000000e-02_dp, 4.400000e-01_dp, -1.000000e+00_dp, 9.000000e-01_dp, & - 1.000000e-01_dp, -1.000000e+00_dp, 9.000000e-01_dp, 9.000000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 4.000000e-01_dp, & - 3.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 6.000000e-01_dp, 6.000000e-01_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 2.000000e-01_dp, 6.900000e-01_dp, & - -1.000000e+00_dp, 3.000000e-02_dp, 7.000000e-01_dp, -1.000000e+00_dp, 6.200000e-01_dp, & - 8.000000e-02_dp, 3.000000e-02_dp, 7.600000e-01_dp, 3.800000e-02_dp, 1.670000e-01_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 3.000000e-01_dp, 8.000000e-01_dp, 2.000000e-01_dp, & - 1.100000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp, 7.000000e-01_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.320000e-01_dp, 2.280000e-02_dp, & - -1.000000e+00_dp, 7.500000e-01_dp, 5.000000e-01_dp, 2.500000e-01_dp, 2.500000e-01_dp, & - -1.000000e+00_dp, 2.500000e-01_dp, 2.320000e-01_dp, 2.880000e-02_dp, 1.000000e+00_dp, & - 8.800000e-02_dp, -1.000000e+00_dp, 9.120000e-01_dp, 6.290000e-01_dp, -1.000000e+00_dp, & - 9.910000e-01_dp, 9.120000e-01_dp, 2.320000e-01_dp, 2.880000e-02_dp, 6.600000e-02_dp, & - 3.500000e-01_dp, -1.000000e+00_dp, 6.500000e-01_dp, 1.500000e-01_dp, 6.000000e-01_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_4 = (/ & - -1.000000e+00_dp, 2.660000e-01_dp, 2.000000e-01_dp, 2.000000e-01_dp, 6.600000e-02_dp, & - 2.320000e-01_dp, 2.880000e-02_dp, -1.000000e+00_dp, 2.000000e-01_dp, 8.000000e-01_dp, & - 8.000000e-01_dp, 2.000000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 8.000000e-01_dp, & - 1.000000e+00_dp, 1.680000e-01_dp, 3.340000e-01_dp, 1.565000e+00_dp, -1.000000e+00_dp, & - 1.200000e-01_dp, 2.520000e-01_dp, 1.670000e-01_dp, 2.100000e-01_dp, -1.000000e+00_dp, & - 2.500000e-01_dp, 7.130000e-01_dp, 5.030000e-01_dp, 8.500000e-01_dp, 2.250000e-01_dp, & - 3.600000e-01_dp, -1.000000e+00_dp, 2.000000e-02_dp, 1.500000e-01_dp, -1.000000e+00_dp, & - 1.140000e-01_dp, 2.680000e-01_dp, 6.400000e-02_dp, 1.540000e-01_dp, 1.500000e-01_dp, & - 6.430000e-01_dp, 1.282000e+00_dp, -1.000000e+00_dp, 3.570000e-01_dp, 8.500000e-01_dp, & - 2.820000e-01_dp, 7.500000e-02_dp, -1.000000e+00_dp, 7.500000e-02_dp, 9.250000e-01_dp, & - 3.330000e-01_dp, 8.320000e-01_dp, -1.000000e+00_dp, 6.700000e-02_dp, 9.000000e-01_dp, & - 9.670000e-01_dp, 7.000000e-01_dp, 1.033000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 5.120000e+00_dp, 1.500000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 2.500000e-01_dp, 1.660000e+00_dp, 4.700000e-01_dp, 2.800000e-01_dp, & - -1.000000e+00_dp, 1.250000e+00_dp, 7.500000e-01_dp, 1.000000e+00_dp, 1.000000e-03_dp, & - -1.000000e+00_dp, 1.800000e-01_dp, 7.000000e+00_dp, 2.100000e-01_dp, 2.400000e-01_dp, & - -1.000000e+00_dp, 5.700000e-01_dp, 3.900000e-01_dp, 7.600000e-01_dp, 7.000000e-02_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 2.500000e-01_dp, 4.700000e-01_dp, 5.300000e-01_dp, & - 4.700000e-01_dp, -1.000000e+00_dp, 1.030000e+00_dp, 2.800000e-01_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 5.000000e-02_dp, 9.000000e-01_dp, 1.000000e-01_dp, -1.000000e+00_dp, & - 1.000000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 9.000000e-03_dp, & - 9.910000e-01_dp, -1.000000e+00_dp, 9.910000e-01_dp, 1.000000e+00_dp, 2.400000e+00_dp, & - -1.000000e+00_dp, 2.000000e-01_dp, 8.000000e-01_dp, 8.000000e-01_dp, 2.000000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 8.000000e-01_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 3.000000e-01_dp, -2.000000e+00_dp, 1.400000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(129) :: STOICM_5 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 7.600000e-01_dp, & - 1.300000e-01_dp, -1.110000e+00_dp, 5.000000e-02_dp, 6.000000e-02_dp, -1.000000e+00_dp, & - 8.700000e-01_dp, 1.100000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 9.000000e-03_dp, & - 9.910000e-01_dp, -1.000000e+00_dp, 9.910000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 6.700000e-01_dp, 3.300000e-01_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, 3.000000e-01_dp, 7.000000e-01_dp, & - -1.000000e+00_dp, 3.000000e-01_dp, 3.000000e-01_dp, 5.500000e-01_dp, 4.500000e-01_dp, & - -1.000000e+00_dp, 1.700000e+00_dp, 1.000000e+00_dp, 1.500000e-01_dp, 8.500000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 2.390000e-01_dp, 3.630000e-01_dp, -1.000000e+00_dp, & - 4.500000e-02_dp, 1.490000e-01_dp, -1.000000e+00_dp, 3.800000e-02_dp, 3.260000e-01_dp, & - -1.000000e+00_dp, 1.250000e-01_dp, 1.020000e-01_dp, -1.000000e+00_dp, 1.300000e-01_dp, & - 4.060000e-02_dp, -1.000000e+00_dp, 2.600000e-02_dp, 4.850000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 9.100000e-02_dp, 3.670000e-01_dp, -1.000000e+00_dp, & - 1.173000e+00_dp, -1.000000e+00_dp, 1.560000e-01_dp, 7.770000e-01_dp, -1.000000e+00_dp, & - 1.075000e+00_dp, -1.000000e+00_dp, 1.075000e+00_dp, -1.000000e+00_dp, 1.075000e+00_dp, & - -1.000000e+00_dp, 1.075000e+00_dp, -1.000000e+00_dp, 1.075000e+00_dp, -1.000000e+00_dp, & - 1.075000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(879) :: STOICM = (/& - STOICM_0, STOICM_1, STOICM_2, STOICM_3, STOICM_4, & - STOICM_5 /) - - -END MODULE CB05TUCl_NCSU_StoichiomSP - diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_StoichiomSP.o b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_StoichiomSP.o deleted file mode 100644 index 5234e4c1a827bff754c6fc26962b780b5422c0b7..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_StoichiomSP.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Util.f90 b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Util.f90 deleted file mode 100644 index ce43aee477d1f480c578186243257da58257daaa..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Util.f90 +++ /dev/null @@ -1,1616 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Auxiliary Routines File -! -! Generated by KPP-2.2.3 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 : CB05TUCl_NCSU_Util.f90 -! Time : Thu Oct 8 08:21:46 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05TUCl_NCSU_13059_BOXMOX -! Equation file : CB05TUCl_NCSU.kpp -! Output root filename : CB05TUCl_NCSU -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CB05TUCl_NCSU_Util - - USE CB05TUCl_NCSU_Parameters - USE CB05TUCl_NCSU_Global - USE CB05TUCl_NCSU_Monitor - IMPLICIT NONE - -CONTAINS - - - -! User INLINED Utility Functions - - -! **************************************************************************** -! **************************************************************************** -! BOXMOX utilities -! **************************************************************************** -! **************************************************************************** - - -! **************************************************************************** -! toUPPER - convert ASCII characters to all upper case -! from http://stackoverflow.com/questions/10759375/ -! how-can-i-write-a-to-upper-or-to-lower-function-in-f90 -! **************************************************************************** - FUNCTION toUPPER (str) RESULT (string) - - CHARACTER(*), INTENT(In) :: str - CHARACTER(LEN(str)) :: string - - INTEGER :: ic, i - - CHARACTER(26), PARAMETER :: cap = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' - CHARACTER(26), PARAMETER :: low = 'abcdefghijklmnopqrstuvwxyz' - - string = str - DO i = 1, LEN_TRIM(str) - ic = INDEX(low, str(i:i)) - IF (ic > 0) string(i:i) = cap(ic:ic) - END DO - - END FUNCTION toUPPER -! **************************************************************************** - - -! **************************************************************************** -! hash - a string hashing function -! from flibs, http://flibs.sourceforge.net -! **************************************************************************** - INTEGER FUNCTION hash( key ) - - CHARACTER(len=*), INTENT(in) :: key - - INTEGER :: i - - INTEGER, PARAMETER :: hash_size = 49931 - INTEGER, PARAMETER :: multiplier = 312 - - hash = 0 - - DO i = 1,LEN(key) - hash = MODULO( multiplier * hash + ICHAR(key(i:i)), hash_size) - ENDDO - - hash = 1 + MODULO( hash-1, hash_size ) - END FUNCTION hash -! **************************************************************************** - - -! **************************************************************************** -! strEqual - comparison function matching two strings -! **************************************************************************** - LOGICAL FUNCTION strEqual(a, b) - - CHARACTER(LEN=*), INTENT(IN) :: a, b - - LOGICAL, PARAMETER :: ignoreCase = .TRUE. - - CHARACTER(LEN=100) :: nice_a, nice_b - INTEGER :: max_len - - nice_a = ADJUSTL(a) - nice_b = ADJUSTL(b) - - IF (ignoreCase) THEN - nice_a = toUPPER(nice_a) - nice_b = toUPPER(nice_b) - END IF - - max_len = MAX( LEN_TRIM(nice_a), LEN_TRIM(nice_b) ) - - strEqual = nice_a(1:max_len) .EQ. nice_b(1:max_len) - - END FUNCTION strEqual -! **************************************************************************** - - -! **************************************************************************** -! writespecstring - Utility function that plots a (potentially) -! large number of species -! **************************************************************************** - SUBROUTINE writespecstring(nspecies, txt, species, offset) - - INTEGER :: nspecies, offset - CHARACTER(LEN=*) :: txt - CHARACTER(LEN=15) :: species(nspecies), fmt - CHARACTER(LEN=2000) :: specstring - - INTEGER, PARAMETER :: cperline=60 - - INTEGER :: i, l - - fmt = "" - WRITE(fmt, "(A1,I3,A4)") "(", offset, "X,A)" - - i = 1; l = 1 - specstring = "" - - DO WHILE (i <= nspecies) - - specstring = TRIM(ADJUSTL(specstring))//TRIM(ADJUSTL(species(i))) - IF (i < nspecies) specstring = TRIM(ADJUSTL(specstring))//", " - - i = i + 1 - - IF (LEN_TRIM(specstring) > cperline) THEN - IF (l == 1) specstring = txt//specstring - l = l + 1 - WRITE(*,fmt) TRIM(specstring) - specstring = "" - ENDIF - ENDDO - - IF (LEN_TRIM(specstring) > 0) THEN - IF (l == 1) specstring = txt//specstring - WRITE(*,fmt) TRIM(specstring) - ENDIF - - END SUBROUTINE writespecstring -! **************************************************************************** - - -! **************************************************************************** -! calcCFACTOR - Calculates CFACTOR variable for unit conversion between -! input/output files and values used in calculations / rates -! **************************************************************************** - SUBROUTINE calcCFACTOR ( ) - - ! from ppmv to mlc/cm3: - ! 1e-6 ppmv -> vmr - ! 1e-3 kg/m3 -> g/cm3 - ! 1/28.9645 g/cm3 -> mole/cm3 - ! 6.022e23 -> molec/cm3 - ! then multiply with air density rho - ! 1.0E-6 * 1E-03 * (1.0/28.97) * 6.022e23 * rho - ! CFACTOR = 2.598378e+13; (with rho == 1.25) - - CFACTOR = 1.0E-6 * 1E-03 * (1.0/28.9645) * 6.022e23 * & - pres / (287.058 * temp) - - END SUBROUTINE calcCFACTOR -! **************************************************************************** - - -! **************************************************************************** -! readConfig - Sets variables using values read in from "BOXMOX.nml" -! **************************************************************************** - SUBROUTINE readConfig ( ) - - INTEGER, PARAMETER :: config_pid = 22 - CHARACTER(LEN=*), PARAMETER :: config_name = "BOXMOX.nml" - - NAMELIST /BOXMOX/ TSTART, TEND, DT, lverbose, iturb, lfix_nox - - LOGICAL :: lnml_exists - - ! *** default values section *** - - TSTART = 0.0D0 ! model start time, seconds since 0 LT - TEND = TSTART + 3600.0D0 ! model end time, seconds since 0 LT - DT = 10.D0 ! model time step, seconds - - lverbose = .FALSE. - iturb = TURB_OPT_NONE - - lfix_nox = .FALSE. - - ! *** namelist read-in section *** - - INQUIRE(FILE=config_name, EXIST=lnml_exists) - - IF (lnml_exists) THEN - - WRITE(*,*) "BOXMOX configuration file ", TRIM(config_name)," found." - - OPEN (config_pid, FILE=config_name) - READ (config_pid, nml=BOXMOX) - CLOSE(config_pid) - - ELSE - WRITE(*,*) "No BOXMOX configuration file (", & - TRIM(config_name),") exists." - ENDIF - - ! *** configuration printout *** - - WRITE(*,*) " " - WRITE(*,"(A20,2X,F12.3)") "TSTART", TSTART - WRITE(*,"(A20,2X,F12.3)") "TEND", TEND - WRITE(*,"(A20,2X,F12.3)") "DT", DT - WRITE(*,*) "" - WRITE(*,"(A20,2X,L10)") "lverbose", lverbose - WRITE(*,*) "" - WRITE(*,"(A20,11X,I1)") "iturb", iturb - WRITE(*,*) "" - WRITE(*,"(A20,2X,L10)") "lfix_nox", lfix_nox - - WRITE(*,*) " " - - END SUBROUTINE readConfig -! **************************************************************************** - - -! **************************************************************************** -! checkConfig - check configuration variables -! **************************************************************************** - SUBROUTINE checkConfig ( ) - - INTEGER :: status - - status = 0 - - IF (TSTART < 0.0) THEN - WRITE(*,*) "start time TSTART cannot be < 0.0" - status = 1 - ENDIF - IF (TEND < 0.0) THEN - WRITE(*,*) "end time TEND cannot be < 0.0" - status = 2 - ENDIF - IF (TSTART >= TEND) THEN - WRITE(*,*) "start time TSTART has to be < end time TEND" - status = 3 - ENDIF - IF (DT <= 0.0) THEN - WRITE(*,*) "time step DT has to be > 0.0" - status = 4 - ENDIF - - IF (status .NE. 0) THEN - IF (.NOT. llibrary) THEN - STOP - ENDIF - ENDIF - - END SUBROUTINE checkConfig -! **************************************************************************** - - -! **************************************************************************** -! writeVersion - Write "VERSION" file to run directory -! **************************************************************************** - SUBROUTINE writeVersion ( ) - - INTEGER, PARAMETER :: version_pid = 23 - CHARACTER(LEN=*), PARAMETER :: version_name = "VERSION" - - ! *** write BOXMOX version to output directory *** - - OPEN(version_pid, file=version_name) - WRITE(version_pid, "(A)") "__BOXMOX_VERSION__" - CLOSE(version_pid) - - END SUBROUTINE writeVersion -! **************************************************************************** - - -! **************************************************************************** -! readVals - main input routine for the BOXMOX extensions. -! reads values from input files with different time -! formats, and interpolates to get the values -! appropriate for the current time step. -! **************************************************************************** - SUBROUTINE readVals(fname, nvar, species, values, stat, & - nanc, ancspecies, ancvalues, lquiet) - - CHARACTER(LEN=*), INTENT(IN) :: fname - INTEGER, INTENT(OUT) :: nvar - CHARACTER(LEN=15), INTENT(OUT) :: species(max_species_boxmox) - REAL(KIND=dp), INTENT(OUT) :: values(max_species_boxmox) - INTEGER, INTENT(OUT) :: stat - INTEGER, INTENT(OUT), OPTIONAL :: nanc - CHARACTER(LEN=15), INTENT(OUT),OPTIONAL :: ancspecies(max_species_boxmox) - REAL(KIND=dp), INTENT(OUT), OPTIONAL :: ancvalues(max_species_boxmox) - LOGICAL, INTENT(IN), OPTIONAL :: lquiet - - INTEGER, PARAMETER :: input_pid = 21 - REAL(KIND=dp) :: time_cur, weight_t1, & - values_t0(max_species_boxmox), & - values_t1(max_species_boxmox), & - values_cur(max_species_boxmox) - CHARACTER(LEN=15) :: names(max_species_boxmox) - INTEGER :: iostat, time_format, ntoread, ntime, nanct, pid, i - LOGICAL :: lfile_exists, ltalkative - - names(:) = "" - values_t0(:) = 0.0 - values_t1(:) = 0.0 - - stat = 0 ! everything is allright - - ltalkative = ( TIME .EQ. TSTART ) .OR. lverbose - IF (PRESENT(lquiet)) THEN - IF (lquiet) THEN - ltalkative = .FALSE. - ENDIF - ENDIF - - ! check whether file exists - INQUIRE(FILE=fname, EXIST=lfile_exists) - IF (.NOT. lfile_exists) THEN - stat = 1 - RETURN - ELSE - IF (ltalkative) THEN - WRITE(*,*) "" - WRITE(*,*) " * ", fname - ENDIF - END IF - - OPEN(input_pid, file=fname) - - ! line 1: number of variables - READ(input_pid, *) nvar - - ! if no variable should be read - bail - IF (nvar == 0) THEN - IF (ltalkative) WRITE(*,*) fname, " declared 0 variables to be read" - stat = 2 - CLOSE(input_pid) - RETURN - END IF - - ! line 2: number of ancillary variables - READ(input_pid, *) nanct - - IF (nanct .LT. 0) THEN - WRITE(*,"(A)") "Number of ancillary variables must be >= 0" - CLOSE(input_pid) - STOP - ENDIF - - IF (nanct .GT. 1) THEN - WRITE(*,"(A)") "Number of ancillary variables must be < 2" - CLOSE(input_pid) - STOP - ENDIF - - ! line 3: time format - READ(input_pid, *) time_format - - IF (time_format .LT. 0 .OR. time_format .GT. 2) THEN - WRITE(*,"(3A)") "Time format has to be 0 (constant), ", & - "1 (s since TSTART) or ", & - "2 (hour of day)" - CLOSE(input_pid) - STOP - END IF - - ntime = 0 - IF (time_format .GT. 0) ntime = 1 - - ntoread = ntime + nanct + nvar - - ! if more variables than max_species_boxmox should be read - bail - IF (ntoread > max_species_boxmox) THEN - IF (ltalkative) THEN - WRITE(*,*) fname, " declared more variables to be read" - WRITE(*,*) "than allocated. Increase max_species_boxmox," - WRITE(*,*) "recompile, and run again." - ENDIF - stat = 3 - CLOSE(input_pid) - RETURN - END IF - - ! line 4: header line - READ(input_pid, *) names(1:ntoread) - - ! line 4ff: values - READ(input_pid, *) values_t0(1:ntoread) - - ! if its not constant in time values - weight_t1 = 0 - IF (.NOT. time_format .EQ. 0) THEN - READ(input_pid, *, IOSTAT=iostat) values_t1(1:ntoread) - - ! TIME is the KPP provided current model time - time_cur = TIME - IF (time_format .EQ. 2) THEN - time_cur = TIME/3600.0_dp - (INT(TIME/3600.0_dp)/24)*24 - END IF - - ! ASSUMPTION: time is the first value read - DO WHILE(values_t1(1) .LT. time_cur .AND. iostat .EQ. 0) - values_t0 = values_t1 - - READ(input_pid, *, IOSTAT=iostat) values_t1(1:ntoread) - END DO - - ! take the last value in the file in case its time values don't cover - ! the full simulation period - IF (iostat .NE. 0) THEN - weight_t1 = 1.0 - ELSE - weight_t1 = (time_cur - values_t0(1)) / (values_t1(1) - values_t0(1)) - ENDIF - - ENDIF - - CLOSE(input_pid) - - values_cur = weight_t1 * values_t1 + & - (1.0 - weight_t1) * values_t0 - - species(1:nvar) = names(ntime+nanct+1:ntime+nanct+nvar) - values(1:nvar) = values_cur(ntime+nanct+1:ntime+nanct+nvar) - - IF (PRESENT(nanc)) nanc = nanct - - IF (nanct .GT. 0) THEN - IF (PRESENT(ancvalues)) THEN - ancvalues(1:nanct) = values_cur(ntime+1:ntime+nanct) - ENDIF - IF (PRESENT(ancspecies)) THEN - ancspecies(1:nanct) = names(ntime+1:ntime+nanct) - ENDIF - ENDIF - - END SUBROUTINE readVals -! **************************************************************************** - - -! **************************************************************************** -! readInput - Reads values from .csv, applies function -! -! "t" is for "target" (i.e. the vector to apply "action" over) -! "r" is for "read" from file -! "u" is for "useable" (i.e., exists in the "target" vector) -! "m" is for "missing" (i.e., asked for, but not found in file) -! -! **************************************************************************** - SUBROUTINE readInput (filename, nt, tnames, tvalues, & - action, lzero, quiet) - - CHARACTER(LEN=*), INTENT(IN) :: filename - INTEGER, INTENT(IN) :: nt - REAL(KIND=dp) :: tvalues(nt) - CHARACTER(LEN=15), INTENT(IN) :: tnames(nt) - REAL(KIND=dp), OPTIONAL :: action ! function to be called - LOGICAL, INTENT(IN), OPTIONAL :: lzero ! call action with 0.0 - ! for 'missing' species - LOGICAL, INTENT(IN), OPTIONAL :: quiet - - INTEGER :: nr, nu, nm, i, k, m, & - iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - unames(max_species_boxmox), & - mnames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox) - LOGICAL :: is_used, first, & - talkative - - CALL readVals(filename, nr, rnames, rvalues, iostat) - - IF (iostat .NE. 0) RETURN - - talkative = .TRUE. - IF (PRESENT(quiet)) talkative = .NOT. quiet - - unames(:) = "none" - nu = 0 - - first = lverbose - - DO i = 1, nr - DO k = 1, nt - IF ( strEqual(rnames(i), tnames(k)) ) THEN - - IF (PRESENT(action)) THEN - tvalues(k) = action( tvalues(k), k, rvalues(i), first) - ELSE - tvalues(k) = rvalues(i) - IF ( (lverbose .OR. first) .AND. talkative ) THEN - WRITE(*,"(6X,A15,1X,E12.6)") tnames(k), tvalues(k)/CFACTOR - ENDIF - ENDIF - - first = .FALSE. - - nu = nu + 1 - unames(nu) = TRIM(ADJUSTL(rnames(i))) - ENDIF - ENDDO - ENDDO - - IF (PRESENT(lzero)) THEN - IF (lzero) THEN - DO k = 1, nt - is_used = .FALSE. - DO i = 1, nu - IF ( strEqual(unames(i), tnames(k)) ) is_used = .TRUE. - ENDDO - IF (.NOT. is_used) THEN - tvalues(k) = action( tvalues(k), k, 0.0, first) - first = .FALSE. - ENDIF - ENDDO - ENDIF - ENDIF - - nm = nr - nu - mnames(:) = "" - - IF (nm > 0) THEN - m = 1 - DO i = 1, nr - is_used = .FALSE. - DO k = 1, nu - IF ( strEqual(rnames(i), unames(k)) ) is_used = .TRUE. - ENDDO - - IF (.NOT. is_used) THEN - mnames(m) = TRIM(ADJUSTL(rnames(i))) - m = m + 1 - ENDIF - ENDDO - ENDIF - - IF ( ((TIME .EQ. TSTART) .OR. lverbose) .AND. talkative) THEN - IF (nu > 0) CALL writespecstring(nu, "useable:", unames, 6) - IF (nm > 0) CALL writespecstring(nm, "unknown: ", mnames, 6) - ENDIF - - END SUBROUTINE readInput -! **************************************************************************** - - -! **************************************************************************** -! InitialCondition - Sets initial values -! **************************************************************************** - REAL(KIND=dp) FUNCTION InitialCondition(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - InitialCondition = y * CFACTOR - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,A12,1X)") "species ", "IC" - WRITE(*,"(6X,A15,1X,E12.6,1X)") SPC_NAMES(k), InitialCondition/CFACTOR - ENDIF - - END FUNCTION InitialCondition -! **************************************************************************** - - -! **************************************************************************** -! Deposition - Applies deposition velocities -! **************************************************************************** - REAL(KIND=dp) FUNCTION Deposition(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - REAL(KIND=dp) :: dCdt - - Deposition = x - - ! we don't remove fixed variables - IF (k .LT. NFIXST) THEN - ! we assume deposition velocities in comparable units - ! (i.e. cm s-1) - ! dxdydz(3) == DZ - dCdt = - y * x / (dxdydz(3) * 100.0) - Deposition = MAX( 0.0, x + DT * dCdt ) - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "v_dep", "after" - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, y, & - Deposition/CFACTOR - ENDIF - - ENDIF - - END FUNCTION Deposition -! **************************************************************************** - - -! **************************************************************************** -! Emission - Adds emissions -! **************************************************************************** - REAL(KIND=dp) FUNCTION Emission(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - REAL(KIND=dp) :: cur - - ! we assume emissions to be a flux in units comparable to the - ! concentration values used in KPP - ! e.g. molecules / m2 / s vs molecules / m3, or - ! moles / cm2 / s vs moles / cm3, ... - ! the time dimensions unit has to be seconds! - - ! dxdydz(3) is PBL height in m - cur = y * DT / (dxdydz(3) * 100.0) - - Emission = x + cur - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "tendency", "after" - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, & - cur/DT/CFACTOR, Emission/CFACTOR - ENDIF - - END FUNCTION Emission -! **************************************************************************** - - -! **************************************************************************** -! Mix - calculate concentration after turbulent mixing -! **************************************************************************** - REAL(KIND=dp) FUNCTION Mix(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - REAL(KIND=dp) :: frac_bg - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - Mix = x - - frac_bg = Kturb * DT - - IF (lfirst .AND. lverbose) THEN - WRITE(*,"(6X,A,1X,F6.3)") "fractional amount of background air", & - frac_bg - WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "background", "after" - ENDIF - - ! we don't mix fixed variables - IF (k .LT. NFIXST) THEN - - ! seems like we found something - Mix = frac_bg * (y * CFACTOR) + & - (1.0 - frac_bg) * x - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, & - y, Mix/CFACTOR - ENDIF - - ENDIF - - END FUNCTION Mix -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturb - calculate Kturb for mixing -! **************************************************************************** - SUBROUTINE UpdateKturb() - - Kturb = 0.0 - SELECT CASE (iturb) - CASE (TURB_OPT_NONE) - Kturb = 0.0 - CASE (TURB_OPT_SPECIFIED) - CALL UpdateKturbSpecified() - CASE (TURB_OPT_VOLUME) - CALL UpdateKturbVolume() - CASE (TURB_OPT_TRACER) - CALL UpdateKturbTracer() - CASE DEFAULT - WRITE(*,"(A,1X,I1)") "Unknown mixing option", iturb - END SELECT - - END SUBROUTINE UpdateKturb -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbSpecified - calc. Kturb for mixing using specified Kturb -! **************************************************************************** - SUBROUTINE UpdateKturbSpecified() - - INTEGER :: nr, na, i, iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - anames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox), & - avalues(max_species_boxmox) - LOGICAL :: lfound - - Kturb = 0.0 - - CALL readVals('Background.csv', & - nr, rnames, rvalues, iostat, & - na, anames, avalues, lquiet=.TRUE.) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - lfound = .FALSE. - DO i = 1, na - IF ( strEqual(anames(i), 'Kturb') ) THEN - Kturb = avalues(i) - lfound = .TRUE. - ENDIF - ENDDO - - IF (.NOT. lfound) THEN - WRITE(*,*) "Kturb variable not found in Background.csv" - STOP - ENDIF - - END SUBROUTINE UpdateKturbSpecified -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbVolume - calc. Kturb for mixing using box volume changes -! **************************************************************************** - SUBROUTINE UpdateKturbVolume() - - REAL(KIND=dp) :: vol, vol_old - - vol = dxdydz(1) * dxdydz(2) * dxdydz(3) - vol_old = dxdydz_old(1) * dxdydz_old(2) * dxdydz_old(3) - - ! maybe we have a mixing case where the box volume changes? - ! increasing volume - dilute against background - ! decreasing volume - ignore (?) for now - - ! in the PBL case, analogue: - ! maybe we changed the PBLH? update concentration vector - ! rising BL - mixing against zero air or bg values - ! shrinking BL - creates residual layer, decouples - - IF (vol > vol_old) THEN - Kturb = ( (vol - vol_old) / vol_old ) / DT - ENDIF - - END SUBROUTINE UpdateKturbVolume -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbTracer - calc. Kturb for mixing using tracer (t, tname) conc. -! changes -! **************************************************************************** - SUBROUTINE UpdateKturbTracer() - - INTEGER :: nr, na, i, iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - anames(max_species_boxmox), & - tracer_name - REAL(KIND=dp) :: rvalues(max_species_boxmox), & - avalues(max_species_boxmox), & - prev, obs, bg, frac_bg - LOGICAL :: lfound_prev, lfound_bg - - Kturb = 0.0 - - CALL readVals('Background.csv', & - nr, rnames, rvalues, iostat, & - na, anames, avalues, lquiet=.TRUE.) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - ! ASSUMPTION: first ancillary species is mixing tracer - tracer_name = anames(1) - obs = avalues(1) * CFACTOR - - prev = 0.0 - lfound_prev = .FALSE. - DO i = 1, NSPEC - IF ( strEqual(SPC_NAMES(i), tracer_name) ) THEN - prev = C(i) - lfound_prev = .TRUE. - ENDIF - ENDDO - - bg = 0.0 - lfound_bg = .FALSE. - DO i = 1, nr - IF ( strEqual(rnames(i), tracer_name) ) THEN - bg = rvalues(i) * CFACTOR - lfound_bg = .TRUE. - ENDIF - ENDDO - - IF (.NOT. lfound_bg) THEN - WRITE(*,*) "Tracer ", TRIM(tracer_name), & - " not found in Background.csv" - STOP - ENDIF - IF (.NOT. lfound_prev) THEN - WRITE(*,*) "Tracer ", TRIM(tracer_name), & - " not found in mechanism" - STOP - ENDIF - - IF ( ABS( bg - prev ) < 1e-10 ) THEN - Kturb = 0.0 - ELSE - frac_bg = ( obs - prev ) / ( bg - prev ) - frac_bg = MIN( frac_bg, 1.0 ) - frac_bg = MAX( frac_bg, 0.0 ) - - Kturb = frac_bg / DT - ENDIF - - END SUBROUTINE UpdateKturbTracer -! **************************************************************************** - - -! **************************************************************************** -! UpdatePhotolysisRates - well, it does what it seems to do -! **************************************************************************** - SUBROUTINE UpdatePhotolysisRates() - - INTEGER :: i, iostat, nr, jidx - CHARACTER(LEN=15) :: rnames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox) - - INTEGER :: j, jidx2 - - rnames(:) = " " - rvalues(:) = 0.0 - - jvalues(:) = 0.0 - - CALL readVals('PhotolysisRates.csv', nr, rnames, rvalues, iostat) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - DO i = 1, nr - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,E12.6)") rnames(i), rvalues(i) - ENDIF - jidx = hash(rnames(i)) - jvalues(jidx) = rvalues(i) - ENDDO - - ! first time step only: make sure hashing actually made unique hashes - IF (TIME .EQ. TSTART) THEN - DO i = 1, nr - jidx = hash(rnames(i)) - DO j = 1, nr - jidx2 = hash(rnames(j)) - IF ((jidx .EQ. jidx2) .AND. .NOT. (i .EQ. j)) THEN - WRITE(*,*) "Photolysis rate label hash collision:" - WRITE(*,*) rnames(i), "(idx ",i,", hash ", jidx, ") == ", & - rnames(j), "(idx ",j,", hash ", jidx2,")" - IF ( strEqual( rnames(i), rnames(j) ) ) THEN - WRITE(*,*) "Remove duplicate label in PhotolysisRates.csv!" - ELSE - WRITE(*,*) "Please contact the BOXMOX developers!" - ENDIF - STOP - ENDIF - ENDDO - ENDDO - - CALL writespecstring(nr, "known:", rnames, 6) - - ENDIF - - END SUBROUTINE UpdatePhotolysisRates -! **************************************************************************** - - -! **************************************************************************** -! UpdateAerosol - update aerosol properties -! **************************************************************************** - SUBROUTINE UpdateAerosol() - - INTEGER, PARAMETER :: naer = 2, sad_idx = 1, r_idx = 2 - REAL(KIND=dp) :: aer(naer), errval = -987654321.0 - CHARACTER(LEN=15) :: aernames(naer) - INTEGER :: iostat, i - - aernames(sad_idx) = "sad"; aer(sad_idx) = errval - aernames(r_idx) = "r"; aer(r_idx) = errval - - CALL readInput('Aerosol.csv', naer, aernames, aer, quiet=lverbose) - - IF (aer(sad_idx) .NE. errval) AER_SAD = aer(sad_idx) - IF (aer(r_idx) .NE. errval) AER_R = aer(r_idx) - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,F8.2)") "SAD ", AER_SAD - WRITE(*,"(6X,A15,1X,F8.2)") "R ", AER_R - ENDIF - - END SUBROUTINE UpdateAerosol -! **************************************************************************** - - -! **************************************************************************** -! UpdateEnvironment - Read environmental values -! **************************************************************************** - SUBROUTINE UpdateEnvironment() - - INTEGER, PARAMETER :: nenv = 4, temp_idx = 1, pres_idx = 2, & - pblh_idx = 3, vol_idx = 4 - REAL(KIND=dp) :: env(nenv), errval = -987654321.0 - CHARACTER(LEN=15) :: envnames(nenv) - INTEGER :: iostat, i - - REAL(KIND=dp) :: temp_old, pres_old, pblh, vol - - envnames(temp_idx) = "TEMP"; env(temp_idx) = errval - envnames(pres_idx) = "PRES"; env(pres_idx) = errval - envnames(pblh_idx) = "PBLH"; env(pblh_idx) = errval - envnames(vol_idx) = "VOL"; env(vol_idx) = errval - - CALL readInput('Environment.csv', nenv, envnames, env, quiet=lverbose) - - temp_old = temp - pres_old = pres - - dxdydz_old(:) = dxdydz(:) - - ! those are just pseudo variables for dxdydz properties - pblh = dxdydz(3) - vol = dxdydz(1) * dxdydz(2) * dxdydz(3) - - IF (env(pblh_idx) .NE. errval .AND. env(vol_idx) .NE. errval) & - THEN - WRITE(*,*) "Cannot work with changing PBLH and VOL at the same time." - STOP - ENDIF - - IF (env(temp_idx) .NE. errval) temp = env(temp_idx) - IF (env(pres_idx) .NE. errval) pres = env(pres_idx) - IF (env(vol_idx) .NE. errval) vol = env(vol_idx) - - IF (env(pblh_idx) .NE. errval) THEN - pblh = env(pblh_idx) - dxdydz(3) = pblh - ENDIF - - ! Adjust species vector - DO i = 1, NSPEC - C(i) = C(i) * (temp_old * pres) / (temp * pres_old) - ENDDO - - ! recalculate unit conversion - CALL calcCFACTOR() - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,F8.2)") "TEMP ", temp - WRITE(*,"(6X,A13,1X,F10.2)") "PRES ", pres - WRITE(*,"(6X,A15,1X,F8.2)") "PBLH ", dxdydz(3) - WRITE(*,"(6X,A15,1X,F8.2)") "VOL ", & - dxdydz(1)*dxdydz(2)*dxdydz(3) - WRITE(*,*) "" - WRITE(*,"(6X,A7,1X,E16.8)") "CFACTOR", CFACTOR - ENDIF - - END SUBROUTINE UpdateEnvironment -! **************************************************************************** - - -! **************************************************************************** -! InitFixNOx - Initialize the NOx fixing data (for steady state calculations) -! **************************************************************************** - SUBROUTINE InitFixNOx(n, names, values) - - INTEGER, INTENT(IN) :: n - REAL(KIND=dp) :: values(n) - CHARACTER(LEN=15), INTENT(IN) :: names(n) - - INTEGER :: i, nfound_tracers - - initial_total_nox = 0.0 - nfound_tracers = 0 - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - initial_total_nox = initial_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - initial_total_nox = initial_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - ENDDO - - IF (.NOT. nfound_tracers == 2) THEN - WRITE(*,*) "NOx fixing failed, found (only) ", & - nfound_tracers, " species." - STOP - ENDIF - - END SUBROUTINE InitFixNOx -! **************************************************************************** - - -! **************************************************************************** -! FixNOx - keep total NOx at initial levels (for steady state calculations) -! **************************************************************************** - SUBROUTINE FixNOx(n, names, values) - - INTEGER, INTENT(IN) :: n - REAL(KIND=dp), INTENT(INOUT) :: values(n) - CHARACTER(LEN=15), INTENT(IN) :: names(n) - - INTEGER :: i, nfound_tracers - REAL(KIND=dp) :: current_total_nox, scaleFactor - - current_total_nox = 0.0 - nfound_tracers = 0 - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - current_total_nox = current_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - current_total_nox = current_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - ENDDO - - IF (.NOT. nfound_tracers == 2) THEN - WRITE(*,*) "NOx fixing failed, found (only) ", & - nfound_tracers, " species." - STOP - ENDIF - - scaleFactor = initial_total_nox - IF (current_total_nox > 0.0) THEN - scaleFactor = initial_total_nox / current_total_nox - ENDIF - - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - values(i) = values(i) * scaleFactor - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - values(i) = values(i) * scaleFactor - ENDIF - ENDDO - - END SUBROUTINE FixNOx -! **************************************************************************** - - -! End INLINED Utility Functions - -! Utility Functions from KPP_HOME/util/util -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! UTIL - Utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -! **************************************************************** -! -! InitSaveData - Opens the data file for writing -! Parameters : -! -! **************************************************************** - - SUBROUTINE InitSaveData () - - USE CB05TUCl_NCSU_Parameters -!* ---------------------------------------------------- -!* BOXMOX extension - Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* add header to output species and sparse jacobian indices -!* and Hessian - USE CB05TUCl_NCSU_JacobianSP -#if 0 > 0 - USE CB05TUCl_NCSU_HessianSP -#endif -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* add header to output files and open rates file - INTEGER :: i -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20161129 -!* renamed concentration output -! open(10, file='CB05TUCl_NCSU.dat') - open(10, file='CB05TUCl_NCSU.conc') -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* add header to output files and open rates file - - ! add header to output file - WRITE(10, "(A24,10000(1X,A24))") "time", ADJUSTR(SPC_NAMES(LOOKAT)) - - open(11, file='CB05TUCl_NCSU.rates') - - WRITE(11, "(I5)") NREACT - - DO i = 1, NREACT - WRITE(11, "(A)") EQN_NAMES(i) - ENDDO - - ! add header to output file - WRITE(11, "(A24,10000(1X,I24))") "time", (/(i, i=1,NREACT, 1)/) - -!* write header to Jacobian output - open(12, file='CB05TUCl_NCSU.jacobian') - -!* species names - WRITE(12, "(10000(1X,A24))") ADJUSTR(SPC_NAMES(LOOKAT)) -!* species index - WRITE(12, "(10000(1X,I5))") LOOKAT -!* Jacobian non zero row index - WRITE(12, "(100000(1X,I5))") (LU_IROW(i), i=1,LU_NONZERO) -!* Jacobian non zero column index - WRITE(12, "(100000(1X,I5))") (LU_ICOL(i), i=1,LU_NONZERO) - -!* write header to Hessian output -#if 0 > 0 - open(13, file='CB05TUCl_NCSU.hessian') - -!* species names - WRITE(13, "(10000(1X,A24))") ADJUSTR(SPC_NAMES(LOOKAT)) -!* species index - WRITE(13, "(10000(1X,I5))") LOOKAT -!* Hessian i, j, k species - WRITE(13, "(100000(1X,I5))") (IHESS_I(i), i=1,NHESS) - WRITE(13, "(100000(1X,I5))") (IHESS_J(i), i=1,NHESS) - WRITE(13, "(100000(1X,I5))") (IHESS_K(i), i=1,NHESS) -#endif -!* ---------------------------------------------------- - - END SUBROUTINE InitSaveData - -! End of InitSaveData function -! **************************************************************** - -! **************************************************************** -! -! SaveData - Write LOOKAT species in the data file -! Parameters : -! -! **************************************************************** - - SUBROUTINE SaveData () - - USE CB05TUCl_NCSU_Global - USE CB05TUCl_NCSU_Monitor -!* ---------------------------------------------------- -!* BOXMOX extension - Jerome Barre - 20150410 -!* Christoph Knote - 20151030 - USE CB05TUCl_NCSU_Jacobian -#if 0 > 0 - USE CB05TUCl_NCSU_Hessian -#endif -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20151030 - REAL(KIND=dp) :: JVS(LU_NONZERO) ! d(dc/dt)i/dcj -#if 0 > 0 - REAL(KIND=dp) :: HESS(NHESS) ! -#endif - INTEGER i - - WRITE(10,999) (TIME-TSTART)/3600.D0, & - (C(LOOKAT(i))/CFACTOR, i=1,NLOOKAT) - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* write out reaction rates - WRITE(11,999) (TIME-TSTART)/3600.D0, & - (RCONST(i), i=1,NREACT) -!* call Jacobian function to output Jacobian values - CALL Jac_SP( VAR, FIX, RCONST, JVS ) - WRITE(12,9999) (JVS(i), i=1,LU_NONZERO) -!* call Hessian function to output Hessian values -#if 0 > 0 - CALL Hessian( VAR, FIX, RCONST, HESS ) - WRITE(13,9999) (HESS(i), i=1,NHESS) -#endif -!* --------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* might have more than 100 output variables -! 999 FORMAT(E24.16,100(1X,E24.16)) -999 FORMAT(E24.16,10000(1X,E24.16E3)) -9999 FORMAT(E24.16,100000(1X,E24.16E3)) -!* ---------------------------------------------------- - - END SUBROUTINE SaveData - -! End of SaveData function -! **************************************************************** - -! **************************************************************** -! -! CloseSaveData - Close the data file -! Parameters : -! -! **************************************************************** - - SUBROUTINE CloseSaveData () - - USE CB05TUCl_NCSU_Parameters - - CLOSE(10) - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -! Christoph Knote - 20153010 -!* close rates file - CLOSE(11) -!* close Jacobian file - CLOSE(12) -!* close Hessian file -#if 0 > 0 - CLOSE(13) -#endif -!* --------------------------------------------------- - - END SUBROUTINE CloseSaveData - -! End of CloseSaveData function -! **************************************************************** - -! **************************************************************** -! -! GenerateMatlab - Generates MATLAB file to load the data file -! Parameters : -! It will have a character string to prefix each -! species name with. -! -! **************************************************************** - - SUBROUTINE GenerateMatlab ( PREFIX ) - - USE CB05TUCl_NCSU_Parameters - USE CB05TUCl_NCSU_Global - USE CB05TUCl_NCSU_Monitor - - - CHARACTER(LEN=8) PREFIX - INTEGER i - - open(20, file='CB05TUCl_NCSU.m') - write(20,*) 'load CB05TUCl_NCSU.dat;' - write(20,990) PREFIX -990 FORMAT(A1,'c = CB05TUCl_NCSU;') - write(20,*) 'clear CB05TUCl_NCSU;' - write(20,991) PREFIX, PREFIX -991 FORMAT(A1,'t=',A1,'c(:,1);') - write(20,992) PREFIX -992 FORMAT(A1,'c(:,1)=[];') - - do i=1,NLOOKAT - write(20,993) PREFIX, SPC_NAMES(LOOKAT(i)), PREFIX, i -993 FORMAT(A1,A6,' = ',A1,'c(:,',I2,');') - end do - - CLOSE(20) - - END SUBROUTINE GenerateMatlab - -! End of GenerateMatlab function -! **************************************************************** - - -! End Utility Functions from KPP_HOME/util/util -! End of UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Shuffle_user2kpp - function to copy concentrations from USER to KPP -! Arguments : -! V_USER - Concentration of variable species in USER's order -! V - Concentrations of variable species (local) -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Shuffle_user2kpp ( V_USER, V ) - -! V_USER - Concentration of variable species in USER's order - REAL(kind=dp) :: V_USER(NVAR) -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) - - V(101) = V_USER(1) - V(100) = V_USER(2) - V(105) = V_USER(3) - V(96) = V_USER(4) - V(103) = V_USER(5) - V(55) = V_USER(6) - V(98) = V_USER(7) - V(106) = V_USER(8) - V(56) = V_USER(9) - V(79) = V_USER(10) - V(60) = V_USER(11) - V(63) = V_USER(12) - V(69) = V_USER(13) - V(104) = V_USER(14) - V(88) = V_USER(15) - V(94) = V_USER(16) - V(73) = V_USER(17) - V(95) = V_USER(18) - V(93) = V_USER(19) - V(92) = V_USER(20) - V(89) = V_USER(21) - V(80) = V_USER(22) - V(107) = V_USER(23) - V(78) = V_USER(24) - V(68) = V_USER(25) - V(71) = V_USER(26) - V(61) = V_USER(27) - V(97) = V_USER(28) - V(51) = V_USER(29) - V(64) = V_USER(30) - V(65) = V_USER(31) - V(99) = V_USER(32) - V(66) = V_USER(33) - V(82) = V_USER(34) - V(87) = V_USER(35) - V(83) = V_USER(36) - V(86) = V_USER(37) - V(53) = V_USER(38) - V(84) = V_USER(39) - V(62) = V_USER(40) - V(1) = V_USER(41) - V(2) = V_USER(42) - V(81) = V_USER(43) - V(74) = V_USER(44) - V(3) = V_USER(45) - V(76) = V_USER(46) - V(57) = V_USER(47) - V(4) = V_USER(48) - V(5) = V_USER(49) - V(90) = V_USER(50) - V(91) = V_USER(51) - V(6) = V_USER(52) - V(7) = V_USER(53) - V(50) = V_USER(54) - V(8) = V_USER(55) - V(9) = V_USER(56) - V(70) = V_USER(57) - V(67) = V_USER(58) - V(85) = V_USER(59) - V(10) = V_USER(60) - V(12) = V_USER(61) - V(11) = V_USER(62) - V(15) = V_USER(63) - V(13) = V_USER(64) - V(14) = V_USER(65) - V(18) = V_USER(66) - V(16) = V_USER(67) - V(17) = V_USER(68) - V(23) = V_USER(69) - V(19) = V_USER(70) - V(20) = V_USER(71) - V(21) = V_USER(72) - V(22) = V_USER(73) - V(29) = V_USER(74) - V(24) = V_USER(75) - V(25) = V_USER(76) - V(26) = V_USER(77) - V(27) = V_USER(78) - V(28) = V_USER(79) - V(32) = V_USER(80) - V(30) = V_USER(81) - V(31) = V_USER(82) - V(34) = V_USER(83) - V(33) = V_USER(84) - V(37) = V_USER(85) - V(35) = V_USER(86) - V(36) = V_USER(87) - V(54) = V_USER(88) - V(58) = V_USER(89) - V(59) = V_USER(90) - V(38) = V_USER(91) - V(77) = V_USER(92) - V(102) = V_USER(93) - V(72) = V_USER(94) - V(52) = V_USER(95) - V(75) = V_USER(96) - V(49) = V_USER(97) - V(42) = V_USER(98) - V(41) = V_USER(99) - V(40) = V_USER(100) - V(39) = V_USER(101) - V(46) = V_USER(102) - V(45) = V_USER(103) - V(44) = V_USER(104) - V(43) = V_USER(105) - V(47) = V_USER(106) - V(48) = V_USER(107) - -END SUBROUTINE Shuffle_user2kpp - -! End of Shuffle_user2kpp function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Shuffle_kpp2user - function to restore concentrations from KPP to USER -! Arguments : -! V - Concentrations of variable species (local) -! V_USER - Concentration of variable species in USER's order -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Shuffle_kpp2user ( V, V_USER ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! V_USER - Concentration of variable species in USER's order - REAL(kind=dp) :: V_USER(NVAR) - - V_USER(1) = V(101) - V_USER(2) = V(100) - V_USER(3) = V(105) - V_USER(4) = V(96) - V_USER(5) = V(103) - V_USER(6) = V(55) - V_USER(7) = V(98) - V_USER(8) = V(106) - V_USER(9) = V(56) - V_USER(10) = V(79) - V_USER(11) = V(60) - V_USER(12) = V(63) - V_USER(13) = V(69) - V_USER(14) = V(104) - V_USER(15) = V(88) - V_USER(16) = V(94) - V_USER(17) = V(73) - V_USER(18) = V(95) - V_USER(19) = V(93) - V_USER(20) = V(92) - V_USER(21) = V(89) - V_USER(22) = V(80) - V_USER(23) = V(107) - V_USER(24) = V(78) - V_USER(25) = V(68) - V_USER(26) = V(71) - V_USER(27) = V(61) - V_USER(28) = V(97) - V_USER(29) = V(51) - V_USER(30) = V(64) - V_USER(31) = V(65) - V_USER(32) = V(99) - V_USER(33) = V(66) - V_USER(34) = V(82) - V_USER(35) = V(87) - V_USER(36) = V(83) - V_USER(37) = V(86) - V_USER(38) = V(53) - V_USER(39) = V(84) - V_USER(40) = V(62) - V_USER(41) = V(1) - V_USER(42) = V(2) - V_USER(43) = V(81) - V_USER(44) = V(74) - V_USER(45) = V(3) - V_USER(46) = V(76) - V_USER(47) = V(57) - V_USER(48) = V(4) - V_USER(49) = V(5) - V_USER(50) = V(90) - V_USER(51) = V(91) - V_USER(52) = V(6) - V_USER(53) = V(7) - V_USER(54) = V(50) - V_USER(55) = V(8) - V_USER(56) = V(9) - V_USER(57) = V(70) - V_USER(58) = V(67) - V_USER(59) = V(85) - V_USER(60) = V(10) - V_USER(61) = V(12) - V_USER(62) = V(11) - V_USER(63) = V(15) - V_USER(64) = V(13) - V_USER(65) = V(14) - V_USER(66) = V(18) - V_USER(67) = V(16) - V_USER(68) = V(17) - V_USER(69) = V(23) - V_USER(70) = V(19) - V_USER(71) = V(20) - V_USER(72) = V(21) - V_USER(73) = V(22) - V_USER(74) = V(29) - V_USER(75) = V(24) - V_USER(76) = V(25) - V_USER(77) = V(26) - V_USER(78) = V(27) - V_USER(79) = V(28) - V_USER(80) = V(32) - V_USER(81) = V(30) - V_USER(82) = V(31) - V_USER(83) = V(34) - V_USER(84) = V(33) - V_USER(85) = V(37) - V_USER(86) = V(35) - V_USER(87) = V(36) - V_USER(88) = V(54) - V_USER(89) = V(58) - V_USER(90) = V(59) - V_USER(91) = V(38) - V_USER(92) = V(77) - V_USER(93) = V(102) - V_USER(94) = V(72) - V_USER(95) = V(52) - V_USER(96) = V(75) - V_USER(97) = V(49) - V_USER(98) = V(42) - V_USER(99) = V(41) - V_USER(100) = V(40) - V_USER(101) = V(39) - V_USER(102) = V(46) - V_USER(103) = V(45) - V_USER(104) = V(44) - V_USER(105) = V(43) - V_USER(106) = V(47) - V_USER(107) = V(48) - -END SUBROUTINE Shuffle_kpp2user - -! End of Shuffle_kpp2user function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! GetMass - compute total mass of selected atoms -! Arguments : -! CL - Concentration of all species (local) -! Mass - value of mass balance -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE GetMass ( CL, Mass ) - -! CL - Concentration of all species (local) - REAL(kind=dp) :: CL(NSPEC) -! Mass - value of mass balance - REAL(kind=dp) :: Mass(1) - - -END SUBROUTINE GetMass - -! End of GetMass function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE CB05TUCl_NCSU_Util - diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Util.o b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Util.o deleted file mode 100644 index 3da7526ba960e1205bd9c88225cc66e1cb20ad33..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_Util.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_mex_Fun.f90 b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_mex_Fun.f90 deleted file mode 100644 index 07b89f068b8e567a1aee3f3249fa7d0ec8de3c6c..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_mex_Fun.f90 +++ /dev/null @@ -1,45 +0,0 @@ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE mexFunction( nlhs, plhs, nrhs, prhs ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Matlab Gateway for the Derivative Function Fun -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CB05TUCl_NCSU_Model - - INTEGER nlhs, nrhs - INTEGER plhs(*), prhs(*) - INTEGER mxGetPr, mxCreateFull, mxGetM, mxgetN - INTEGER VPtr, FPtr, RPtr, VdotPtr - REAL(kind=dp) V(107), F(2), RCT(198) - REAL(kind=dp) Vdot(107) - -! Check for the right number of input arguments - IF ( nrhs .ne. 3 ) THEN - CALL mexErrMsgTxt('Fun requires 3 input vectors: & - &V(107), F(2), RCT(198)') - END IF -! Check for the right number of output arguments - IF ( nlhs .ne. 1 ) THEN - CALL mexErrMsgTxt('Fun requires 1 output vector: & - &Vdot(107)') - END IF - - plhs(1) = mxCreateDoubleMatrix(107,1,0) - - VPtr = mxGetPr(prhs(1)) - CALL mxCopyPtrToReal8(VPtr,V,107) - - FPtr = mxGetPr(prhs(2)) - CALL mxCopyPtrToReal8(FPtr,F,2) - - RPtr = mxGetPr(prhs(3)) - CALL mxCopyPtrToReal8(RPtr,RCT,198) - - VdotPtr = mxGetPr(plhs(1)) - - CALL Fun( V, F, RCT, Vdot ) - - CALL mxCopyReal8ToPtr(Vdot, VdotPtr, 107) - - END SUBROUTINE mexFunction diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_mex_Jac_SP.f90 b/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_mex_Jac_SP.f90 deleted file mode 100644 index 609d6367e43147ec6bafab5d9e13c540d1b038df..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05TUCl_NCSU/CB05TUCl_NCSU_mex_Jac_SP.f90 +++ /dev/null @@ -1,44 +0,0 @@ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE mexFunction( nlhs, plhs, nrhs, prhs ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Matlab Gateway for the Sparse Jacobian Function Jac_SP -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CB05TUCl_NCSU_Model - - INTEGER nlhs, nrhs - INTEGER plhs(*), prhs(*) - INTEGER mxGetPr, mxCreateFull, mxGetM, mxgetN - INTEGER VPtr, FPtr, RPtr, JVSPtr - REAL(kind=dp) V(107), F(2), RCT(198) - REAL(kind=dp) JVS(868) - -! Check for the right number of input arguments - IF ( nrhs .ne. 3 ) THEN - CALL mexErrMsgTxt('Jac_SP requires 3 input vectors: & - &V(107), F(2), RCT(198)') - END IF -! Check for the right number of output arguments - IF ( nlhs .ne. 1 ) THEN - CALL mexErrMsgTxt('Jac_SP requires 1 output vector: & - &JVS(868)') - END IF - - plhs(1) = mxCreateDoubleMatrix(868,1,0) - - VPtr = mxGetPr(prhs(1)) - CALL mxCopyPtrToReal8(VPtr,V,107) - - FPtr = mxGetPr(prhs(2)) - CALL mxCopyPtrToReal8(FPtr,F,2) - - RPtr = mxGetPr(prhs(3)) - CALL mxCopyPtrToReal8(RPtr,RCT,198) - - JVSPtr = mxGetPr(plhs(1)) - - CALL Jac_SP( V, F, RCT, JVS ) - - CALL mxCopyReal8ToPtr(JVS, JVSPtr, 868) - - END SUBROUTINE mexFunction diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/Makefile_CB05TUCl_NCSU b/boxmox/compiled_mechs/CB05TUCl_NCSU/Makefile_CB05TUCl_NCSU deleted file mode 100644 index cfdbe51303afe62c3accaf959e0145c144707d3f..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05TUCl_NCSU/Makefile_CB05TUCl_NCSU +++ /dev/null @@ -1,215 +0,0 @@ -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: Set here the F90 compiler and options -# Pedefined compilers: INTEL, PGF, HPUX, LAHEY -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -#COMPILER = G95 -#COMPILER = LAHEY -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# gfortran is standard -#COMPILER = INTEL -# ---------------------------------------------------- -#COMPILER = PGF -#COMPILER = HPUX -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# gfortran is standard -COMPILER = GFORTRAN -# ---------------------------------------------------- - -FC_G95 = g95 -FOPT_G95 = -cpp -O -pg -fbounds-check -fimplicit-none -Wall -ftrace=full - -FC_LAHEY = lf95 -# More aggressive for production runs: -#FOPT_LAHEY = -Cpp --pca -O -# More checking for debugging: -FOPT_LAHEY = -Cpp --chk a,e,s,u --pca --ap -O0 -g --trap --trace --chkglobal - -FC_INTEL = ifort -# More aggressive for production runs: -#FOPT_INTEL = -cpp -O -fp-model precise -pc80 -prec_div -# More checking for debugging: -FOPT_INTEL = -cpp -O0 -fp-model strict -implicitnone -ftrapuv \ - -debug all -check all -warn all - -FC_PGF = pgf90 -# More aggressive for production runs: -FOPT_PGF = -Mpreprocess -O -fast -pc 80 -Kieee -# More checking for debugging: -#FOPT_PGF = -Mpreprocess -O0 -Mbounds -Mchkfpstk -Mchkptr -Mchkstk \ -# -Ktrap=fp -pc 80 -Kieee - -FC_HPUX = f90 -FOPT_HPUX = -O -u +Oall +check=on - -FC_GFORTRAN = gfortran -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# rate equation code creates pretty long lines -# optimization does not help much and breaks MCM -# FOPT_GFORTRAN = -cpp -O -# double precision: -#FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -freal-4-real-16 -freal-8-real-16 -# using GCC 4.7 and higher: -FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -freal-4-real-8 -# for older compilers -#FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -fdefault-real-8 -# ---------------------------------------------------- - -# define FULL_ALGEBRA for non-sparse integration -FC = $(FC_$(COMPILER)) -FOPT = $(FOPT_$(COMPILER)) # -DFULL_ALGEBRA - -LIBS = -#LIBS = -llapack -lblas - -# Command to create Matlab mex gateway routines -# Note: use $(FC) as the mex Fortran compiler -MEX = mex - -GENSRC = CB05TUCl_NCSU_Precision.f90 \ - CB05TUCl_NCSU_Parameters.f90 \ - CB05TUCl_NCSU_Global.f90 - -GENOBJ = CB05TUCl_NCSU_Precision.o \ - CB05TUCl_NCSU_Parameters.o \ - CB05TUCl_NCSU_Global.o - -FUNSRC = CB05TUCl_NCSU_Function.f90 -FUNOBJ = CB05TUCl_NCSU_Function.o - -JACSRC = CB05TUCl_NCSU_JacobianSP.f90 CB05TUCl_NCSU_Jacobian.f90 -JACOBJ = CB05TUCl_NCSU_JacobianSP.o CB05TUCl_NCSU_Jacobian.o - -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20160906 -# if HESSIAN is off, avoid compilation errors by not -# linking to the Hessian objects. -ifeq ($(wildcard CB05TUCl_NCSU_HessianSP.f90),) - HESSRC = - HESOBJ = -else - HESSRC = CB05TUCl_NCSU_HessianSP.f90 CB05TUCl_NCSU_Hessian.f90 - HESOBJ = CB05TUCl_NCSU_HessianSP.o CB05TUCl_NCSU_Hessian.o -endif -# ---------------------------------------------------- - -STMSRC = CB05TUCl_NCSU_StoichiomSP.f90 CB05TUCl_NCSU_Stoichiom.f90 -STMOBJ = CB05TUCl_NCSU_StoichiomSP.o CB05TUCl_NCSU_Stoichiom.o - -UTLSRC = CB05TUCl_NCSU_Rates.f90 CB05TUCl_NCSU_Util.f90 CB05TUCl_NCSU_Monitor.f90 -UTLOBJ = CB05TUCl_NCSU_Rates.o CB05TUCl_NCSU_Util.o CB05TUCl_NCSU_Monitor.o - -LASRC = CB05TUCl_NCSU_LinearAlgebra.f90 -LAOBJ = CB05TUCl_NCSU_LinearAlgebra.o - -STOCHSRC = CB05TUCl_NCSU_Stochastic.f90 -STOCHOBJ = CB05TUCl_NCSU_Stochastic.o - -MAINSRC = CB05TUCl_NCSU_Main.f90 CB05TUCl_NCSU_Initialize.f90 CB05TUCl_NCSU_Integrator.f90 CB05TUCl_NCSU_Model.f90 -MAINOBJ = CB05TUCl_NCSU_Main.o CB05TUCl_NCSU_Initialize.o CB05TUCl_NCSU_Integrator.o CB05TUCl_NCSU_Model.o - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: modify the line below to include only the -# objects needed by your application -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -ALLOBJ = $(GENOBJ) $(FUNOBJ) $(JACOBJ) $(HESOBJ) $(STMOBJ) \ - $(UTLOBJ) $(LAOBJ) - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: modify the line below to include only the -# executables needed by your application -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -all: exe - -exe: $(ALLOBJ) $(MAINOBJ) - $(FC) $(FOPT) $(ALLOBJ) $(MAINOBJ) $(LIBS) -o CB05TUCl_NCSU.exe - -pylib: $(ALLOBJ) lib_Initialize.o lib_Integrator.o lib_Model.o - f2py -c -m boxmox $(ALLOBJ) lib_Initialize.o lib_Integrator.o lib_Model.o lib_Main.f90 - -stochastic:$(ALLOBJ) $(STOCHOBJ) $(MAINOBJ) - $(FC) $(FOPT) $(ALLOBJ) $(STOCHOBJ) $(MAINOBJ) $(LIBS) \ - -o CB05TUCl_NCSU_stochastic.exe - -mex: $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O CB05TUCl_NCSU_mex_Fun.f90 $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O CB05TUCl_NCSU_mex_Jac_SP.f90 $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O CB05TUCl_NCSU_mex_Hessian.f90 $(ALLOBJ) - -clean: - rm -f CB05TUCl_NCSU*.o CB05TUCl_NCSU*.mod \ - CB05TUCl_NCSU*.dat CB05TUCl_NCSU.exe CB05TUCl_NCSU*.mexglx \ - CB05TUCl_NCSU.map - -distclean: - rm -f CB05TUCl_NCSU*.o CB05TUCl_NCSU*.mod \ - CB05TUCl_NCSU*.dat CB05TUCl_NCSU.exe CB05TUCl_NCSU.map \ - CB05TUCl_NCSU*.f90 CB05TUCl_NCSU_*.mexglx - -CB05TUCl_NCSU_Precision.o: CB05TUCl_NCSU_Precision.f90 - $(FC) $(FOPT) -c $< - -CB05TUCl_NCSU_Parameters.o: CB05TUCl_NCSU_Parameters.f90 \ - CB05TUCl_NCSU_Precision.o - $(FC) $(FOPT) -c $< - -CB05TUCl_NCSU_Monitor.o: CB05TUCl_NCSU_Monitor.f90 \ - CB05TUCl_NCSU_Precision.o - $(FC) $(FOPT) -c $< - -CB05TUCl_NCSU_Global.o: CB05TUCl_NCSU_Global.f90 \ - CB05TUCl_NCSU_Parameters.o CB05TUCl_NCSU_Precision.o - $(FC) $(FOPT) -c $< - -CB05TUCl_NCSU_Initialize.o: CB05TUCl_NCSU_Initialize.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -CB05TUCl_NCSU_Function.o: CB05TUCl_NCSU_Function.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -CB05TUCl_NCSU_Stochastic.o: CB05TUCl_NCSU_Stochastic.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -CB05TUCl_NCSU_JacobianSP.o: CB05TUCl_NCSU_JacobianSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -CB05TUCl_NCSU_Jacobian.o: CB05TUCl_NCSU_Jacobian.f90 $(GENOBJ) CB05TUCl_NCSU_JacobianSP.o - $(FC) $(FOPT) -c $< - -CB05TUCl_NCSU_LinearAlgebra.o: CB05TUCl_NCSU_LinearAlgebra.f90 $(GENOBJ) CB05TUCl_NCSU_JacobianSP.o - $(FC) $(FOPT) -c $< - -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# need Util in Rates -#CB05TUCl_NCSU_Rates.o: CB05TUCl_NCSU_Rates.f90 $(GENOBJ) -CB05TUCl_NCSU_Rates.o: CB05TUCl_NCSU_Rates.f90 $(GENOBJ) CB05TUCl_NCSU_Util.o -# ---------------------------------------------------- - $(FC) $(FOPT) -c $< - -CB05TUCl_NCSU_HessianSP.o: CB05TUCl_NCSU_HessianSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -CB05TUCl_NCSU_Hessian.o: CB05TUCl_NCSU_Hessian.f90 $(GENOBJ) CB05TUCl_NCSU_HessianSP.o - $(FC) $(FOPT) -c $< - -CB05TUCl_NCSU_StoichiomSP.o: CB05TUCl_NCSU_StoichiomSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -CB05TUCl_NCSU_Stoichiom.o: CB05TUCl_NCSU_Stoichiom.f90 $(GENOBJ) CB05TUCl_NCSU_StoichiomSP.o - $(FC) $(FOPT) -c $< - -CB05TUCl_NCSU_Util.o: CB05TUCl_NCSU_Util.f90 $(GENOBJ) CB05TUCl_NCSU_Monitor.o - $(FC) $(FOPT) -c $< - -CB05TUCl_NCSU_Main.o: CB05TUCl_NCSU_Main.f90 $(ALLOBJ) CB05TUCl_NCSU_Initialize.o CB05TUCl_NCSU_Model.o CB05TUCl_NCSU_Integrator.o - $(FC) $(FOPT) -c $< - -CB05TUCl_NCSU_Model.o: CB05TUCl_NCSU_Model.f90 $(ALLOBJ) CB05TUCl_NCSU_Integrator.o - $(FC) $(FOPT) -c $< - -CB05TUCl_NCSU_Integrator.o: CB05TUCl_NCSU_Integrator.f90 $(ALLOBJ) - $(FC) $(FOPT) -c $< diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_function.mod b/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_function.mod deleted file mode 100644 index a34932142d9314a932193e51586755dda79a43df..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_function.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_global.mod b/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_global.mod deleted file mode 100644 index 024ecd88d5c0ceedee2377ccbe339460c4a8bcc1..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_global.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_initialize.mod b/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_initialize.mod deleted file mode 100644 index 635bdec7d65734dcc8a11133c2897e0d10d4ae21..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_initialize.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_integrator.mod b/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_integrator.mod deleted file mode 100644 index 31acf2be99c0cd1831d56f85a87296b0f7538b0b..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_integrator.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_jacobian.mod b/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_jacobian.mod deleted file mode 100644 index a2df7c5ebad659b3c86bfdc196c1544b942eac5e..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_jacobian.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_jacobiansp.mod b/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_jacobiansp.mod deleted file mode 100644 index 4bfecb600a7c269256a31c6b0797a38dec22cc5a..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_jacobiansp.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_linearalgebra.mod b/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_linearalgebra.mod deleted file mode 100644 index af0f4ae656e830279500fd81cf04b937dbf77318..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_linearalgebra.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_model.mod b/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_model.mod deleted file mode 100644 index b6cb05b374c674c132b656d9da6838622131b487..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_model.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_monitor.mod b/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_monitor.mod deleted file mode 100644 index 6c19cfac3a0ba303a7b7e7f5ac24fef4fb4ef008..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_monitor.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_parameters.mod b/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_parameters.mod deleted file mode 100644 index 7898dac3d84e124e654b084c2ff0855477649378..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_parameters.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_precision.mod b/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_precision.mod deleted file mode 100644 index 6cab30258fa4b4e49d85a3a920fa3cf2dae04cdd..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_precision.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_rates.mod b/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_rates.mod deleted file mode 100644 index 4f2e0f180da67c2ab455606c9aa06076d20ed7bd..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_rates.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_stoichiom.mod b/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_stoichiom.mod deleted file mode 100644 index 2c15a7d604891b2e22603a229bd6d65e40afe2bb..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_stoichiom.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_stoichiomsp.mod b/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_stoichiomsp.mod deleted file mode 100644 index 1693aa69d09b5cd40608593183dc2781fe333e40..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_stoichiomsp.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_util.mod b/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_util.mod deleted file mode 100644 index 9fc1b8164d7e13785dcbe75790fd21be82742b84..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05TUCl_NCSU/cb05tucl_ncsu_util.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/compile.log b/boxmox/compiled_mechs/CB05TUCl_NCSU/compile.log deleted file mode 100644 index 966f7f2ec9dfe3d3de8f73b2fe780f534799c15d..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05TUCl_NCSU/compile.log +++ /dev/null @@ -1,22 +0,0 @@ -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05TUCl_NCSU_Precision.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05TUCl_NCSU_Parameters.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05TUCl_NCSU_Global.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05TUCl_NCSU_Function.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05TUCl_NCSU_JacobianSP.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05TUCl_NCSU_Jacobian.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05TUCl_NCSU_StoichiomSP.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05TUCl_NCSU_Stoichiom.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05TUCl_NCSU_Monitor.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05TUCl_NCSU_Util.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05TUCl_NCSU_Rates.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05TUCl_NCSU_LinearAlgebra.f90 -CB05TUCl_NCSU_LinearAlgebra.f90:1423:46: - - 1423 | IF (incX .EQ. incY) IF (incX-1) 5,20,60 - | 1 -Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05TUCl_NCSU_Initialize.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05TUCl_NCSU_Integrator.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05TUCl_NCSU_Model.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05TUCl_NCSU_Main.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 CB05TUCl_NCSU_Precision.o CB05TUCl_NCSU_Parameters.o CB05TUCl_NCSU_Global.o CB05TUCl_NCSU_Function.o CB05TUCl_NCSU_JacobianSP.o CB05TUCl_NCSU_Jacobian.o CB05TUCl_NCSU_StoichiomSP.o CB05TUCl_NCSU_Stoichiom.o CB05TUCl_NCSU_Rates.o CB05TUCl_NCSU_Util.o CB05TUCl_NCSU_Monitor.o CB05TUCl_NCSU_LinearAlgebra.o CB05TUCl_NCSU_Main.o CB05TUCl_NCSU_Initialize.o CB05TUCl_NCSU_Integrator.o CB05TUCl_NCSU_Model.o -o CB05TUCl_NCSU.exe diff --git a/boxmox/compiled_mechs/CB05TUCl_NCSU/kpp.log b/boxmox/compiled_mechs/CB05TUCl_NCSU/kpp.log deleted file mode 100644 index c0dcdd22bc89403bc8f3d748a50957f3c8863141..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05TUCl_NCSU/kpp.log +++ /dev/null @@ -1,37 +0,0 @@ - -This is KPP-2.2.3. - -KPP is parsing the equation file. -KPP is computing Jacobian sparsity structure. -KPP is starting the code generation. -KPP is initializing the code generation. -KPP is generating the monitor data: - - CB05TUCl_NCSU_Monitor -KPP is generating the global declarations: - - CB05TUCl_NCSU_Main -KPP is generating the ODE function: - - CB05TUCl_NCSU_Function -KPP is generating the ODE Jacobian: - - CB05TUCl_NCSU_Jacobian - - CB05TUCl_NCSU_JacobianSP -KPP is generating the linear algebra routines: - - CB05TUCl_NCSU_LinearAlgebra -KPP is generating the utility data: - - CB05TUCl_NCSU_Util -KPP is generating the utility functions: - - CB05TUCl_NCSU_Util -KPP is generating the rate laws: - - CB05TUCl_NCSU_Rates -KPP is generating the parameters: - - CB05TUCl_NCSU_Parameters -KPP is generating the global data: - - CB05TUCl_NCSU_Global -KPP is generating the stoichiometric description files: - - CB05TUCl_NCSU_Stoichiom - - CB05TUCl_NCSU_StoichiomSP -KPP is generating the driver from ../boxmox/boxmox.f90: - - CB05TUCl_NCSU_Main -KPP is starting the code post-processing. - -KPP has succesfully created the model "CB05TUCl_NCSU". - diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO.exe b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO.exe deleted file mode 100755 index 77dc2c4a8a498ec7fcb92aed2b67249c297eb02e..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO.exe and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO.kpp b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO.kpp deleted file mode 100644 index 5cbd7f36eac0f71ef9b793b8accda0a3b0897609..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO.kpp +++ /dev/null @@ -1,10 +0,0 @@ -#MODEL CB05_CSIRO -#LANGUAGE Fortran90 -#DOUBLE ON -#INTEGRATOR rosenbrock -#DRIVER ../boxmox/boxmox -#JACOBIAN SPARSE_LU_ROW -#HESSIAN OFF -#FUNCTION AGGREGATE -#EQNTAGS ON - diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO.map b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO.map deleted file mode 100644 index 8578a8a356f9ff630d1fbb3e0475a20c7815d7f2..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO.map +++ /dev/null @@ -1,93 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Map File with Human-Readable Information -! -! Generated by KPP-2.2.3 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 : CB05_CSIRO.map -! Time : Thu Oct 8 08:21:51 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05_CSIRO_26998_BOXMOX -! Equation file : CB05_CSIRO.kpp -! Output root filename : CB05_CSIRO -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -### Options ------------------------------------------- - -FUNCTION - AGGREGATE -JACOBIAN - SPARSE W/ ACCOUNT FOR LU DECOMPOSITION FILL-IN -DOUBLE - ON -REORDER - ON - -### Parameters ---------------------------------------- - -! NSPEC - Number of chemical species - INTEGER, PARAMETER :: NSPEC = 65 -! NVAR - Number of Variable species - INTEGER, PARAMETER :: NVAR = 63 -! NVARACT - Number of Active species - INTEGER, PARAMETER :: NVARACT = 60 -! NFIX - Number of Fixed species - INTEGER, PARAMETER :: NFIX = 2 -! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 173 -! NVARST - Starting of variables in conc. vect. - INTEGER, PARAMETER :: NVARST = 1 -! NFIXST - Starting of fixed in conc. vect. - INTEGER, PARAMETER :: NFIXST = 64 - -### Species ------------------------------------------- - -Variable species - 1 = sulf (n) 23 = pna (r) 45 = open (r) - 2 = sulaer (n) 24 = cat1 (r) 46 = isop (r) - 3 = nr (n) 25 = cron (r) 47 = ispd (r) - 4 = so2 (r) 26 = hco3 (r) 48 = xo2n (r) - 5 = ch4 (r) 27 = rooh (r) 49 = aldx (r) - 6 = pan (r) 28 = ror (r) 50 = ald2 (r) - 7 = opan (r) 29 = to2 (r) 51 = ntr (r) - 8 = tol (r) 30 = mepx (r) 52 = form (r) - 9 = etha (r) 31 = opo3 (r) 53 = o3 (r) - 10 = meoh (r) 32 = crn2 (r) 54 = ho2 (r) - 11 = etoh (r) 33 = cro (r) 55 = cxo3 (r) - 12 = n2o5 (r) 34 = hno3 (r) 56 = no3 (r) - 13 = h2 (r) 35 = cao2 (r) 57 = meo2 (r) - 14 = o1d (r) 36 = co (r) 58 = c2o3 (r) - 15 = xyl (r) 37 = mgly (r) 59 = xo2 (r) - 16 = hono (r) 38 = eth (r) 60 = oh (r) - 17 = h2o2 (r) 39 = crno (r) 61 = no2 (r) - 18 = crpx (r) 40 = iole (r) 62 = no (r) - 19 = facd (r) 41 = ole (r) 63 = o (r) - 20 = pacd (r) 42 = terp (r) - 21 = aacd (r) 43 = cres (r) - 22 = panx (r) 44 = par (r) - -Fixed species - 1 = H2O (r) 2 = M (r) - -### Subroutines --------------------------------------- - -SUBROUTINE Fun ( V, F, RCT, Vdot ) -SUBROUTINE Jac_SP ( V, F, RCT, JVS ) -SUBROUTINE Jac_SP_Vec ( JVS, UV, JUV ) -SUBROUTINE JacTR_SP_Vec ( JVS, UV, JTUV ) -SUBROUTINE KppSolve ( JVS, X ) -SUBROUTINE KppSolveTR ( JVS, X, XX ) -SUBROUTINE Initialize ( ) -SUBROUTINE Shuffle_user2kpp ( V_USER, V ) -SUBROUTINE Shuffle_kpp2user ( V, V_USER ) -SUBROUTINE Update_RCONST ( ) -SUBROUTINE Update_PHOTO ( ) -SUBROUTINE GetMass ( CL, Mass ) -SUBROUTINE ReactantProd ( V, F, ARP ) -SUBROUTINE JacReactantProd ( V, F, JVRP ) diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Function.f90 b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Function.f90 deleted file mode 100644 index 8b1d4cc5ae321c7015d8c3c56e7a88441d951d70..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Function.f90 +++ /dev/null @@ -1,345 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The ODE Function of Chemical Model File -! -! Generated by KPP-2.2.3 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 : CB05_CSIRO_Function.f90 -! Time : Thu Oct 8 08:21:51 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05_CSIRO_26998_BOXMOX -! Equation file : CB05_CSIRO.kpp -! Output root filename : CB05_CSIRO -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CB05_CSIRO_Function - - USE CB05_CSIRO_Parameters - IMPLICIT NONE - -! A - Rate for each equation - REAL(kind=dp) :: A(NREACT) - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Fun - time derivatives of variables - Agregate form -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! RCT - Rate constants (local) -! Vdot - Time derivative of variable species concentrations -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Fun ( V, F, RCT, Vdot ) - -! 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) -! Vdot - Time derivative of variable species concentrations - REAL(kind=dp) :: Vdot(NVAR) - - -! Computation of equation rates - A(1) = RCT(1)*V(61) - A(2) = RCT(2)*V(63) - A(3) = RCT(3)*V(53)*V(62) - A(4) = RCT(4)*V(61)*V(63) - A(5) = RCT(5)*V(61)*V(63) - A(6) = RCT(6)*V(62)*V(63) - A(7) = RCT(7)*V(53)*V(61) - A(8) = RCT(8)*V(53) - A(9) = RCT(9)*V(53) - A(10) = RCT(10)*V(14)*F(2) - A(11) = RCT(11)*V(14)*F(1) - A(12) = RCT(12)*V(53)*V(60) - A(13) = RCT(13)*V(53)*V(54) - A(14) = RCT(14)*V(56) - A(15) = RCT(15)*V(56) - A(16) = RCT(16)*V(56)*V(62) - A(17) = RCT(17)*V(56)*V(61) - A(18) = RCT(18)*V(56)*V(61) - A(19) = RCT(19)*V(12)*F(1) - A(20) = RCT(20)*V(12)*F(1)*F(1) - A(21) = RCT(21)*V(12) - A(22) = RCT(22)*V(62)*V(62) - A(23) = RCT(23)*V(61)*V(62)*F(1) - A(24) = RCT(24)*V(60)*V(62) - A(25) = RCT(25)*V(16) - A(26) = RCT(26)*V(16)*V(60) - A(27) = RCT(27)*V(16)*V(16) - A(28) = RCT(28)*V(60)*V(61) - A(29) = RCT(29)*V(34)*V(60) - A(30) = RCT(30)*V(54)*V(62) - A(31) = RCT(31)*V(54)*V(61) - A(32) = RCT(32)*V(23) - A(33) = RCT(33)*V(23)*V(60) - A(34) = RCT(34)*V(54)*V(54) - A(35) = RCT(35)*V(54)*V(54)*F(1) - A(36) = RCT(36)*V(17) - A(37) = RCT(37)*V(17)*V(60) - A(38) = RCT(38)*V(13)*V(14) - A(39) = RCT(39)*V(13)*V(60) - A(40) = RCT(40)*V(60)*V(63) - A(41) = RCT(41)*V(60)*V(60) - A(42) = RCT(42)*V(60)*V(60) - A(43) = RCT(43)*V(54)*V(60) - A(44) = RCT(44)*V(54)*V(63) - A(45) = RCT(45)*V(17)*V(63) - A(46) = RCT(46)*V(56)*V(63) - A(47) = RCT(47)*V(56)*V(60) - A(48) = RCT(48)*V(54)*V(56) - A(49) = RCT(49)*V(53)*V(56) - A(50) = RCT(50)*V(56)*V(56) - A(51) = RCT(51)*V(23) - A(52) = RCT(52)*V(34) - A(53) = RCT(53)*V(12) - A(54) = RCT(54)*V(59)*V(62) - A(55) = RCT(55)*V(48)*V(62) - A(56) = RCT(56)*V(54)*V(59) - A(57) = RCT(57)*V(48)*V(54) - A(58) = RCT(58)*V(59)*V(59) - A(59) = RCT(59)*V(48)*V(48) - A(60) = RCT(60)*V(48)*V(59) - A(61) = RCT(61)*V(51)*V(60) - A(62) = RCT(62)*V(51) - A(63) = RCT(63)*V(27)*V(60) - A(64) = RCT(64)*V(27) - A(65) = RCT(65)*V(36)*V(60) - A(66) = RCT(66)*V(5)*V(60) - A(67) = RCT(67)*V(57)*V(62) - A(68) = RCT(68)*V(54)*V(57) - A(69) = RCT(69)*V(57)*V(57) - A(70) = RCT(70)*V(30)*V(60) - A(71) = RCT(71)*V(30) - A(72) = RCT(72)*V(10)*V(60) - A(73) = RCT(73)*V(52)*V(60) - A(74) = RCT(74)*V(52) - A(75) = RCT(75)*V(52) - A(76) = RCT(76)*V(52)*V(63) - A(77) = RCT(77)*V(52)*V(56) - A(78) = RCT(78)*V(52)*V(54) - A(79) = RCT(79)*V(26) - A(80) = RCT(80)*V(26)*V(62) - A(81) = RCT(81)*V(26)*V(54) - A(82) = RCT(82)*V(19)*V(60) - A(83) = RCT(83)*V(50)*V(63) - A(84) = RCT(84)*V(50)*V(60) - A(85) = RCT(85)*V(50)*V(56) - A(86) = RCT(86)*V(50) - A(87) = RCT(87)*V(58)*V(62) - A(88) = RCT(88)*V(58)*V(61) - A(89) = RCT(89)*V(6) - A(90) = RCT(90)*V(6) - A(91) = RCT(91)*V(54)*V(58) - A(92) = RCT(92)*V(57)*V(58) - A(93) = RCT(93)*V(58)*V(59) - A(94) = RCT(94)*V(58)*V(58) - A(95) = RCT(95)*V(20)*V(60) - A(96) = RCT(96)*V(20) - A(97) = RCT(97)*V(21)*V(60) - A(98) = RCT(98)*V(49)*V(63) - A(99) = RCT(99)*V(49)*V(60) - A(100) = RCT(100)*V(49)*V(56) - A(101) = RCT(101)*V(49) - A(102) = RCT(102)*V(55)*V(62) - A(103) = RCT(103)*V(55)*V(61) - A(104) = RCT(104)*V(22) - A(105) = RCT(105)*V(22) - A(106) = RCT(106)*V(22)*V(60) - A(107) = RCT(107)*V(54)*V(55) - A(108) = RCT(108)*V(55)*V(57) - A(109) = RCT(109)*V(55)*V(59) - A(110) = RCT(110)*V(55)*V(55) - A(111) = RCT(111)*V(55)*V(58) - A(112) = RCT(112)*V(44)*V(60) - A(113) = RCT(113)*V(28) - A(114) = RCT(114)*V(28) - A(115) = RCT(115)*V(28)*V(61) - A(116) = RCT(116)*V(41)*V(63) - A(117) = RCT(117)*V(41)*V(60) - A(118) = RCT(118)*V(41)*V(53) - A(119) = RCT(119)*V(41)*V(56) - A(120) = RCT(120)*V(38)*V(63) - A(121) = RCT(121)*V(38)*V(60) - A(122) = RCT(122)*V(38)*V(53) - A(123) = RCT(123)*V(38)*V(56) - A(124) = RCT(124)*V(40)*V(63) - A(125) = RCT(125)*V(40)*V(60) - A(126) = RCT(126)*V(40)*V(53) - A(127) = RCT(127)*V(40)*V(56) - A(128) = RCT(128)*V(8)*V(60) - A(129) = RCT(129)*V(29)*V(62) - A(130) = RCT(130)*V(29)*V(54) - A(131) = RCT(131)*V(43)*V(60) - A(132) = RCT(132)*V(43)*V(56) - A(133) = RCT(133)*V(33)*V(61) - A(134) = RCT(134)*V(33)*V(54) - A(135) = RCT(135)*V(25)*V(60) - A(136) = RCT(136)*V(25)*V(56) - A(137) = RCT(137)*V(39)*V(61) - A(138) = RCT(138)*V(39)*V(53) - A(139) = RCT(139)*V(32)*V(62) - A(140) = RCT(140)*V(32)*V(54) - A(141) = RCT(141)*V(18) - A(142) = RCT(142)*V(18)*V(60) - A(143) = RCT(143)*V(45) - A(144) = RCT(144)*V(45)*V(60) - A(145) = RCT(145)*V(45)*V(53) - A(146) = RCT(146)*V(45)*V(56) - A(147) = RCT(147)*V(24)*V(60) - A(148) = RCT(148)*V(24)*V(56) - A(149) = RCT(149)*V(35)*V(62) - A(150) = RCT(150)*V(35)*V(54) - A(151) = RCT(151)*V(31)*V(62) - A(152) = RCT(152)*V(31)*V(61) - A(153) = RCT(153)*V(7) - A(154) = RCT(154)*V(15)*V(60) - A(155) = RCT(155)*V(37)*V(60) - A(156) = RCT(156)*V(37) - A(157) = RCT(157)*V(46)*V(63) - A(158) = RCT(158)*V(46)*V(60) - A(159) = RCT(159)*V(46)*V(53) - A(160) = RCT(160)*V(46)*V(56) - A(161) = RCT(161)*V(47)*V(60) - A(162) = RCT(162)*V(47)*V(53) - A(163) = RCT(163)*V(47)*V(56) - A(164) = RCT(164)*V(47) - A(165) = RCT(165)*V(42)*V(63) - A(166) = RCT(166)*V(42)*V(60) - A(167) = RCT(167)*V(42)*V(53) - A(168) = RCT(168)*V(42)*V(56) - A(169) = RCT(169)*V(4)*V(60) - A(170) = RCT(170)*V(11)*V(60) - A(171) = RCT(171)*V(9)*V(60) - A(172) = RCT(172)*V(46)*V(61) - A(173) = RCT(173)*V(4) - -! Aggregate function - Vdot(1) = A(169)+A(173) - Vdot(2) = A(169) - Vdot(3) = A(130)+A(150) - Vdot(4) = -A(169)-A(173) - Vdot(5) = -A(66) - Vdot(6) = A(88)-A(89)-A(90) - Vdot(7) = A(152)-A(153) - Vdot(8) = -A(128) - Vdot(9) = -A(171) - Vdot(10) = 0.63*A(69)-A(72) - Vdot(11) = -A(170) - Vdot(12) = A(18)-A(19)-A(20)-A(21)-A(53) - Vdot(13) = -A(38)-A(39) - Vdot(14) = A(9)-A(10)-A(11)-A(38) - Vdot(15) = -A(154) - Vdot(16) = 2*A(23)+A(24)-A(25)-A(26)-2*A(27) - Vdot(17) = A(34)+A(35)-A(36)-A(37)+A(42)-A(45) - Vdot(18) = A(140)-A(141)-A(142) - Vdot(19) = A(80)-A(82)+0.37*A(122) - Vdot(20) = 0.8*A(91)-A(95)-A(96)+0.8*A(107) - Vdot(21) = 0.2*A(91)+0.1*A(92)+0.1*A(93)-A(97)+0.2*A(107)+0.1*A(108)+0.1*A(109) - Vdot(22) = A(103)-A(104)-A(105)-A(106) - Vdot(23) = A(31)-A(32)-A(33)-A(51) - Vdot(24) = 0.732*A(131)-A(147)-A(148) - Vdot(25) = A(133)-A(135)-A(136) - Vdot(26) = A(78)-A(79)-A(80)-A(81) - Vdot(27) = A(56)+A(57)-A(63)-A(64) - Vdot(28) = 0.76*A(112)-0.98*A(113)-A(114)-A(115) - Vdot(29) = 0.65*A(128)-A(129)-A(130)+0.3*A(154) - Vdot(30) = A(68)-A(70)-A(71)+A(81) - Vdot(31) = 0.6*A(144)+A(146)-A(151)-A(152)+A(153) - Vdot(32) = A(138)-A(139)-A(140)+A(142) - Vdot(33) = 0.06*A(131)+0.3*A(132)-A(133)-A(134)+A(148) - Vdot(34) = 2*A(19)+2*A(20)+A(28)-A(29)+A(48)-A(52)+A(61)+A(77)+A(85)+A(100)+A(132)+A(136)+A(146)+A(148)+0.15*A(163) - Vdot(35) = 0.4*A(144)+A(147)-A(149)-A(150) - Vdot(36) = -A(65)+A(73)+A(74)+A(75)+A(76)+A(77)+A(86)+A(101)+0.2*A(116)+0.33*A(118)+A(120)+0.63*A(122)+0.1*A(124)+0.25& - &*A(126)+0.336*A(129)+0.06*A(131)+0.24*A(132)+A(143)+0.69*A(145)+0.344*A(149)+A(156)+0.066*A(159)+0.334& - &*A(161)+0.225*A(162)+0.643*A(163)+0.333*A(164)+0.001*A(167) - Vdot(37) = 0.52*A(129)+0.24*A(132)+0.2*A(145)+0.8*A(154)-A(155)-A(156)+0.168*A(161)+0.85*A(162) - Vdot(38) = -A(120)-A(121)-A(122)-A(123) - Vdot(39) = A(135)+A(136)-A(137)-A(138)+A(139)+A(141) - Vdot(40) = -A(124)-A(125)-A(126)-A(127) - Vdot(41) = -A(116)-A(117)-A(118)-A(119) - Vdot(42) = -A(165)-A(166)-A(167)-A(168) - Vdot(43) = 0.18*A(128)-A(131)-A(132)+A(134)+0.2*A(154) - Vdot(44) = -0.66*A(61)-0.66*A(62)-1.11*A(112)-2.1*A(113)+0.2*A(116)-0.7*A(117)-A(118)-A(119)+0.1*A(124)+1.1*A(154)& - &+0.25*A(157)+0.35*A(159)+2.4*A(160)+1.565*A(161)+0.36*A(162)+1.282*A(163)+0.832*A(164)+5.12*A(165)+1.66& - &*A(166)+7*A(167)+2.4*A(172) - Vdot(45) = 0.86*A(129)+0.13*A(131)+0.12*A(132)-A(143)-A(144)-A(145)-A(146) - Vdot(46) = -A(157)-A(158)-A(159)-A(160)-A(172) - Vdot(47) = 0.75*A(157)+0.912*A(158)+0.65*A(159)+0.2*A(160)-A(161)-A(162)-A(163)-A(164)+0.2*A(172) - Vdot(48) = -A(55)-A(57)-2*A(59)-A(60)+0.13*A(112)+0.04*A(113)+0.01*A(116)+0.09*A(119)+0.06*A(131)+0.1*A(132)+0.088& - &*A(158)+0.25*A(166)+0.18*A(167)+0.25*A(168)+0.009*A(171) - Vdot(49) = 0.33*A(61)+0.33*A(62)+0.5*A(63)+0.5*A(64)-A(98)-A(99)-A(100)-A(101)+0.05*A(112)+0.5*A(113)+0.3*A(116)+0.62& - &*A(117)+0.32*A(118)+0.56*A(119)+0.22*A(121)+0.66*A(124)+0.7*A(125)+0.35*A(126)+0.64*A(127)+0.48*A(132)+0.03& - &*A(145)+A(151)+0.15*A(159)+0.8*A(160)+0.12*A(161)+0.357*A(163)+0.15*A(165)+0.47*A(166)+0.21*A(167)+0.47& - &*A(168)+0.05*A(170)+0.8*A(172) - Vdot(50) = 0.33*A(61)+0.33*A(62)+0.5*A(63)+0.5*A(64)-A(83)-A(84)-A(85)-A(86)+A(102)+A(106)+0.9*A(108)+0.9*A(109)+2& - &*A(110)+A(111)+0.06*A(112)+0.6*A(113)+0.2*A(116)+0.33*A(117)+0.18*A(118)+0.35*A(119)+1.24*A(124)+1.3*A(125)& - &+0.65*A(126)+1.18*A(127)+0.252*A(161)+0.02*A(162)+0.067*A(164)+0.9*A(170)+0.991*A(171) - Vdot(51) = A(55)-A(61)-A(62)+A(115)+0.14*A(129)+2*A(137)+0.14*A(149)+0.8*A(160)+0.85*A(163)+0.53*A(168)+0.8*A(172) - Vdot(52) = 0.33*A(61)+0.33*A(62)+A(67)+1.37*A(69)+A(71)+A(72)-A(73)-A(74)-A(75)-A(76)-A(77)-A(78)+A(79)+A(92)+0.1& - &*A(108)+0.2*A(116)+0.8*A(117)+0.74*A(118)+A(119)+A(120)+1.56*A(121)+A(122)+2*A(123)+0.25*A(126)+0.336*A(129)& - &+0.06*A(131)+0.24*A(132)+0.7*A(145)+0.344*A(149)+0.5*A(157)+0.629*A(158)+0.6*A(159)+0.167*A(161)+0.15*A(162)& - &+0.282*A(163)+0.9*A(164)+0.28*A(166)+0.24*A(167)+0.1*A(170) - Vdot(53) = A(2)-A(3)-A(7)-A(8)-A(9)-A(12)-A(13)-A(49)+0.2*A(91)+0.2*A(107)-A(118)-A(122)-A(126)-A(138)-A(145)-A(159)& - &-A(162)-A(167) - Vdot(54) = A(12)-A(13)-A(30)-A(31)+A(32)-2*A(34)-2*A(35)+A(37)+A(38)+A(39)+A(40)-A(43)-A(44)+A(45)+A(47)-A(48)+0.61& - &*A(51)-A(56)-A(57)+A(61)+A(62)+A(64)+A(65)+A(67)-A(68)+0.74*A(69)+0.3*A(70)+A(71)+A(72)+A(73)+2*A(74)+A(76)& - &+A(77)-A(78)+A(79)+A(80)-A(81)+A(82)+A(86)-A(91)+0.9*A(92)+A(101)+A(102)-A(107)+A(108)+2*A(110)+A(111)+0.11& - &*A(112)+0.94*A(113)+A(114)+0.3*A(116)+0.95*A(117)+0.44*A(118)+1.7*A(120)+A(121)+0.13*A(122)+0.1*A(124)& - &+A(125)+0.5*A(126)+A(127)+0.28*A(128)+1.2*A(129)-A(130)+1.12*A(131)+0.36*A(132)-A(134)-A(140)+A(143)+0.76& - &*A(145)+1.2*A(149)-A(150)+A(151)+0.7*A(154)+A(156)+0.25*A(157)+0.912*A(158)+0.066*A(159)+0.8*A(160)+0.503& - &*A(161)+0.154*A(162)+0.925*A(163)+1.033*A(164)+0.75*A(166)+0.07*A(167)+0.28*A(168)+A(169)+A(170)+A(171)+0.8& - &*A(172) - Vdot(55) = A(98)+A(99)+A(100)-A(102)-A(103)+A(104)+A(105)-A(107)-A(108)-A(109)-2*A(110)-A(111)+0.25*A(157)+0.2*A(159)& - &+0.25*A(161)+0.075*A(163)+0.39*A(167) - Vdot(56) = A(5)+A(7)-A(14)-A(15)-A(16)-A(17)-A(18)+A(21)+A(29)-A(46)-A(47)-A(48)-A(49)-2*A(50)+0.39*A(51)+A(53)-A(77)& - &-A(85)-A(100)-A(119)-A(123)-A(127)-A(132)-A(136)-A(146)-A(148)-A(160)-A(163)-A(168) - Vdot(57) = A(66)-A(67)-A(68)-2*A(69)+0.7*A(70)+A(86)+A(87)-0.1*A(92)+0.9*A(93)+2*A(94)+A(96)+A(97)+A(101)-A(108)& - &+A(111) - Vdot(58) = A(83)+A(84)+A(85)-A(87)-A(88)+A(89)+A(90)-A(91)-A(92)-A(93)-2*A(94)+A(95)-A(111)+A(143)+0.62*A(145)+A(155)& - &+A(156)+0.21*A(161)+0.114*A(162)+0.967*A(164) - Vdot(59) = -A(54)-A(56)-2*A(58)-A(60)+A(63)+0.3*A(70)-A(93)+A(102)+0.9*A(108)-A(109)+2*A(110)+A(111)+0.87*A(112)+0.96& - &*A(113)+0.2*A(116)+0.8*A(117)+0.22*A(118)+0.91*A(119)+0.7*A(120)+A(121)+A(123)+0.1*A(124)+A(125)+0.1*A(128)& - &+0.12*A(131)+0.6*A(132)+0.03*A(145)+A(151)+0.5*A(154)+A(155)+0.25*A(157)+0.991*A(158)+0.2*A(159)+A(160)& - &+0.713*A(161)+0.064*A(162)+0.075*A(163)+0.7*A(164)+1.25*A(166)+0.76*A(167)+1.03*A(168)+0.1*A(170)+0.991& - &*A(171)+A(172) - Vdot(60) = 2*A(11)-A(12)+A(13)-A(24)+A(25)-A(26)-A(28)-A(29)+A(30)-A(33)+2*A(36)-A(37)+A(38)-A(39)-A(40)-2*A(41)-2& - &*A(42)-A(43)+A(44)+A(45)-A(47)+0.39*A(51)+A(52)-A(61)-A(63)+A(64)-A(65)-A(66)-A(70)+A(71)-A(72)-A(73)+A(76)& - &-A(82)+A(83)-A(84)-A(95)+A(96)-A(97)+A(98)-A(99)-A(106)-A(112)+0.1*A(116)-A(117)+0.1*A(118)+0.3*A(120)& - &-A(121)+0.13*A(122)-A(125)+0.5*A(126)-0.928*A(128)-A(131)-A(135)+A(141)-A(142)-A(144)+0.08*A(145)-A(147)& - &-A(154)-A(155)-A(158)+0.266*A(159)-A(161)+0.268*A(162)-A(166)+0.57*A(167)-A(169)-A(170)-A(171) - Vdot(61) = -A(1)+A(3)-A(4)-A(5)+A(6)-A(7)+A(14)+2*A(16)-A(18)+A(21)+2*A(22)-A(23)+A(26)+A(27)-A(28)+A(30)-A(31)+A(32)& - &+A(33)+A(46)+A(47)+A(49)+2*A(50)+0.61*A(51)+A(52)+A(53)+A(54)+A(62)+A(67)+A(80)+A(87)-A(88)+A(89)+A(90)& - &+A(102)-A(103)+A(104)+A(105)+A(106)-A(115)+A(119)+A(123)+A(127)+0.86*A(129)-A(133)-A(137)+A(139)+0.86*A(149)& - &+A(151)-A(152)+A(153)+0.2*A(160)+0.47*A(168)-A(172) - Vdot(62) = A(1)-A(3)+A(4)-A(6)+A(15)-A(16)+A(17)-2*A(22)-A(23)-A(24)+A(25)+A(27)-A(30)-A(54)-A(55)-A(67)-A(80)-A(87)& - &-A(102)-A(129)-A(139)-A(149)-A(151)+0.2*A(172) - Vdot(63) = A(1)-A(2)-A(4)-A(5)-A(6)+A(8)+A(10)+A(14)-A(40)+A(41)-A(44)-A(45)-A(46)-A(76)-A(83)-A(98)-A(116)-A(120)& - &-A(124)+0.5*A(126)-A(157)-A(165) - -END SUBROUTINE Fun - -! End of Fun function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE CB05_CSIRO_Function - diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Function.o b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Function.o deleted file mode 100644 index 6a921dde4d7fce3e809922faf1d16223b514bee0..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Function.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Global.f90 b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Global.f90 deleted file mode 100644 index 2e6a43c7864386053025543183220a9451010da6..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Global.f90 +++ /dev/null @@ -1,129 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Global Data Module File -! -! Generated by KPP-2.2.3 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 : CB05_CSIRO_Global.f90 -! Time : Thu Oct 8 08:21:51 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05_CSIRO_26998_BOXMOX -! Equation file : CB05_CSIRO.kpp -! Output root filename : CB05_CSIRO -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CB05_CSIRO_Global - - USE CB05_CSIRO_Parameters, ONLY: dp, NSPEC, NVAR, NFIX, NREACT, LU_NONZERO - PUBLIC - SAVE - - -! Declaration of global variables - -! C - Concentration of all species - REAL(kind=dp) :: C(NSPEC) -! VAR - Concentrations of variable species (global) - REAL(kind=dp) :: VAR(NVAR) -! FIX - Concentrations of fixed species (global) - REAL(kind=dp) :: FIX(NFIX) -! VAR, FIX are chunks of array C - EQUIVALENCE( C(1),VAR(1) ) - EQUIVALENCE( C(64),FIX(1) ) -! RCONST - Rate constants (global) - REAL(kind=dp) :: RCONST(NREACT) -! TIME - Current integration time - REAL(kind=dp) :: TIME -! SUN - Sunlight intensity between [0,1] - REAL(kind=dp) :: SUN -! TEMP - Temperature - REAL(kind=dp) :: TEMP -! RTOLS - (scalar) Relative tolerance - REAL(kind=dp) :: RTOLS -! TSTART - Integration start time - REAL(kind=dp) :: TSTART -! TEND - Integration end time - REAL(kind=dp) :: TEND -! DT - Integration step - REAL(kind=dp) :: DT -! ATOL - Absolute tolerance - REAL(kind=dp) :: ATOL(NVAR) -! RTOL - Relative tolerance - REAL(kind=dp) :: RTOL(NVAR) -! STEPMIN - Lower bound for integration step - REAL(kind=dp) :: STEPMIN -! STEPMAX - Upper bound for integration step - REAL(kind=dp) :: STEPMAX -! CFACTOR - Conversion factor for concentration units - REAL(kind=dp) :: CFACTOR - -! INLINED global variable declarations - - - ! BOXMOX global variables - - ! Parameters - INTEGER, PARAMETER :: max_species_boxmox = 10000 ! maximum number of species - ! read in - INTEGER, PARAMETER :: max_jhash_boxmox = 10000 ! maximum hash value of - ! photolysis rate labels - - ! Configuration - LOGICAL :: lverbose ! verbose output? - LOGICAL :: llibrary ! library version? - - - ! State definition - REAL(KIND=dp) :: pres ! pressure [Pa] - ! temperature variable temp [K] defined in KPP already - REAL(KIND=dp) :: dxdydz(3), dxdydz_old(3) ! box dimensions (x,y,z) - ! [m] - - ! Turbulent mixing - INTEGER :: iturb ! type of mixing - INTEGER, PARAMETER :: TURB_OPT_NONE = 0, & ! no turbulent mixing - TURB_OPT_SPECIFIED = 1, & ! using specified Kturb - TURB_OPT_VOLUME = 2, & ! using volume changes - TURB_OPT_TRACER = 3 ! using tracer conc. - REAL(KIND=dp) :: Kturb ! eddy diffusivity [m2 s-1] - - ! Photolysis rates - REAL(KIND=dp) :: jvalues(max_jhash_boxmox) ! Photolysis rate [s-1] - - ! Aerosol - REAL(KIND=dp) :: AER_R, & ! particle radius [m] - AER_SAD ! surface area density - ! [m^2 m^-3] - - ! Steady-state modeling - LOGICAL :: lfix_nox ! fix total NOx? - REAL(kind=dp) :: initial_total_nox ! total NOx to fix - - - - ! global variables used by special rate constants of this mechanism - - ! air/water concentration (molecules/cm3) - REAL(KIND=dp) :: c_m, c_h2o - ! relative humidity (not used) - REAL(KIND=dp) :: rh - - ! whatever that is? - REAL(KIND=dp) :: rtdat_ae_so2 - - -! INLINED global variable declarations - - -END MODULE CB05_CSIRO_Global - diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Global.o b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Global.o deleted file mode 100644 index 392932a6190368feffcd90212389b955f7f86284..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Global.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Initialize.f90 b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Initialize.f90 deleted file mode 100644 index f022413425233f4e00e3c3d423a5117ed3b524b5..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Initialize.f90 +++ /dev/null @@ -1,121 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Initialization File -! -! Generated by KPP-2.2.3 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 : CB05_CSIRO_Initialize.f90 -! Time : Thu Oct 8 08:21:51 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05_CSIRO_26998_BOXMOX -! Equation file : CB05_CSIRO.kpp -! Output root filename : CB05_CSIRO -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CB05_CSIRO_Initialize - - USE CB05_CSIRO_Parameters, ONLY: dp, NVAR, NFIX - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Initialize - function to initialize concentrations -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Initialize ( ) - - - USE CB05_CSIRO_Global - - USE CB05_CSIRO_Util - - INTEGER :: i - REAL(kind=dp) :: x - - CFACTOR = 1.000000e+00_dp - - x = (1.0E-9)*CFACTOR - DO i = 1, NVAR - VAR(i) = x - END DO - - x = (1.0E-9)*CFACTOR - DO i = 1, NFIX - FIX(i) = x - END DO - -! constant rate coefficients -! END constant rate coefficients - -! INLINED initializations - - - IF (.NOT. llibrary) THEN - - ! Write version number to VERSION file - CALL writeVersion() - - ! Initialization (time step, run length, etc.) happening - ! in namelist BOXMOX.nml. Read it! - CALL readConfig() - - ENDIF - - ! Check configuration values - CALL checkConfig() - - - - ! BOXMOX defaults for global variables - - ! Environment.csv - temp = 293.15 ! K - pres = 101325.0 ! Pa - dxdydz(:) = 1.0 ! m - - ! Aerosol.csv - AER_SAD = 0.0 ! m^2 m^-3 - AER_R = 1.0e-6 ! m - - ! Turbulent mixing - Kturb = 0.0 ! m2 s-1 - - - - ! 1E-03 * (1.0/28.97) * 6.022e23 * air density - c_m = 2.078702e+19 * 1.25 - - ! 1E-03 * (1.0/18.02) * 6.022e23 * air density, then times kg(water)/kg(air) - c_h2o = 3.341842e+19 * 1.25 * 0.010 - - ! SO2 to sulfate conversion - rtdat_ae_so2 = 1.0e-17 - - -! End INLINED initializations - - -END SUBROUTINE Initialize - -! End of Initialize function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE CB05_CSIRO_Initialize - diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Initialize.o b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Initialize.o deleted file mode 100644 index 05c7d4d03d749f72c85bcc5ef197e9ce739dd8c5..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Initialize.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Integrator.f90 b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Integrator.f90 deleted file mode 100644 index 809854f779858fdbf8f82017783e68c6769896e9..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Integrator.f90 +++ /dev/null @@ -1,1365 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Numerical Integrator (Time-Stepping) File -! -! Generated by KPP-2.2.3 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 : CB05_CSIRO_Integrator.f90 -! Time : Thu Oct 8 08:21:51 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05_CSIRO_26998_BOXMOX -! Equation file : CB05_CSIRO.kpp -! Output root filename : CB05_CSIRO -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! INTEGRATE - Integrator routine -! Arguments : -! TIN - Start Time for Integration -! TOUT - End Time for Integration -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! -! Rosenbrock - Implementation of several Rosenbrock methods: ! -! * Ros2 ! -! * Ros3 ! -! * Ros4 ! -! * Rodas3 ! -! * Rodas4 ! -! By default the code employs the KPP sparse linear algebra routines ! -! Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK) ! -! ! -! (C) Adrian Sandu, August 2004 ! -! Virginia Polytechnic Institute and State University ! -! Contact: sandu@cs.vt.edu ! -! Revised by Philipp Miehe and Adrian Sandu, May 2006 ! ! -! This implementation is part of KPP - the Kinetic PreProcessor ! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! - -MODULE CB05_CSIRO_Integrator - - USE CB05_CSIRO_Parameters, ONLY: NVAR, NFIX, NSPEC, LU_NONZERO - USE CB05_CSIRO_Global - IMPLICIT NONE - PUBLIC - SAVE - -!~~~> Statistics on the work performed by the Rosenbrock method - INTEGER, PARAMETER :: Nfun=1, Njac=2, Nstp=3, Nacc=4, & - Nrej=5, Ndec=6, Nsol=7, Nsng=8, & - Ntexit=1, Nhexit=2, Nhnew = 3 - -CONTAINS - -SUBROUTINE INTEGRATE( TIN, TOUT, & - ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U, IERR_U ) - - IMPLICIT NONE - - REAL(kind=dp), INTENT(IN) :: TIN ! Start Time - REAL(kind=dp), INTENT(IN) :: TOUT ! End Time - ! Optional input parameters and statistics - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - REAL(kind=dp), INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - REAL(kind=dp), INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: IERR_U - - REAL(kind=dp) :: RCNTRL(20), RSTATUS(20) - INTEGER :: ICNTRL(20), ISTATUS(20), IERR - - INTEGER, SAVE :: Ntotal = 0 - - ICNTRL(:) = 0 - RCNTRL(:) = 0.0_dp - ISTATUS(:) = 0 - RSTATUS(:) = 0.0_dp - - !~~~> fine-tune the integrator: - ICNTRL(1) = 0 ! 0 - non-autonomous, 1 - autonomous - ICNTRL(2) = 0 ! 0 - vector tolerances, 1 - scalars - - ! If optional parameters are given, and if they are >0, - ! then they overwrite default settings. - IF (PRESENT(ICNTRL_U)) THEN - WHERE(ICNTRL_U(:) > 0) ICNTRL(:) = ICNTRL_U(:) - END IF - IF (PRESENT(RCNTRL_U)) THEN - WHERE(RCNTRL_U(:) > 0) RCNTRL(:) = RCNTRL_U(:) - END IF - - - CALL Rosenbrock(NVAR,VAR,TIN,TOUT, & - ATOL,RTOL, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) - - !~~~> Debug option: show no of steps - ! Ntotal = Ntotal + ISTATUS(Nstp) - ! PRINT*,'NSTEPS=',ISTATUS(Nstp),' (',Ntotal,')',' O3=', VAR(ind_O3) - - STEPMIN = RSTATUS(Nhexit) - ! if optional parameters are given for output they - ! are updated with the return information - IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(:) - IF (PRESENT(RSTATUS_U)) RSTATUS_U(:) = RSTATUS(:) - IF (PRESENT(IERR_U)) IERR_U = IERR - -END SUBROUTINE INTEGRATE - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE Rosenbrock(N,Y,Tstart,Tend, & - AbsTol,RelTol, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Solves the system y'=F(t,y) using a Rosenbrock method defined by: -! -! G = 1/(H*gamma(1)) - Jac(t0,Y0) -! T_i = t0 + Alpha(i)*H -! Y_i = Y0 + \sum_{j=1}^{i-1} A(i,j)*K_j -! G * K_i = Fun( T_i, Y_i ) + \sum_{j=1}^S C(i,j)/H * K_j + -! gamma(i)*dF/dT(t0, Y0) -! Y1 = Y0 + \sum_{j=1}^S M(j)*K_j -! -! For details on Rosenbrock methods and their implementation consult: -! E. Hairer and G. Wanner -! "Solving ODEs II. Stiff and differential-algebraic problems". -! Springer series in computational mathematics, Springer-Verlag, 1996. -! The codes contained in the book inspired this implementation. -! -! (C) Adrian Sandu, August 2004 -! Virginia Polytechnic Institute and State University -! Contact: sandu@cs.vt.edu -! Revised by Philipp Miehe and Adrian Sandu, May 2006 -! This implementation is part of KPP - the Kinetic PreProcessor -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT ARGUMENTS: -! -!- Y(N) = vector of initial conditions (at T=Tstart) -!- [Tstart,Tend] = time range of integration -! (if Tstart>Tend the integration is performed backwards in time) -!- RelTol, AbsTol = user precribed accuracy -!- SUBROUTINE Fun( T, Y, Ydot ) = ODE function, -! returns Ydot = Y' = F(T,Y) -!- SUBROUTINE Jac( T, Y, Jcb ) = Jacobian of the ODE function, -! returns Jcb = dFun/dY -!- ICNTRL(1:20) = integer inputs parameters -!- RCNTRL(1:20) = real inputs parameters -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT ARGUMENTS: -! -!- Y(N) -> vector of final states (at T->Tend) -!- ISTATUS(1:20) -> integer output parameters -!- RSTATUS(1:20) -> real output parameters -!- IERR -> job status upon return -! success (positive value) or -! failure (negative value) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT PARAMETERS: -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -! ICNTRL(1) = 1: F = F(y) Independent of T (AUTONOMOUS) -! = 0: F = F(t,y) Depends on T (NON-AUTONOMOUS) -! -! ICNTRL(2) = 0: AbsTol, RelTol are N-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ICNTRL(3) -> selection of a particular Rosenbrock method -! = 0 : Rodas3 (default) -! = 1 : Ros2 -! = 2 : Ros3 -! = 3 : Ros4 -! = 4 : Rodas3 -! = 5 : Rodas4 -! -! ICNTRL(4) -> maximum number of integration steps -! For ICNTRL(4)=0) the default value of 100000 is used -! -! RCNTRL(1) -> Hmin, lower bound for the integration step size -! It is strongly recommended to keep Hmin = ZERO -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! RCNTRL(3) -> Hstart, starting value for the integration step size -! -! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! RCNTRL(5) -> FacMax, upper bound on step increase factor (default=6) -! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! -! OUTPUT ARGUMENTS: -! ----------------- -! -! T -> T value for which the solution has been computed -! (after successful return T=Tend). -! -! Y(N) -> Numerical solution at T -! -! IDID -> Reports on successfulness upon return: -! = 1 for success -! < 0 for error (value equals error code) -! -! ISTATUS(1) -> No. of function calls -! ISTATUS(2) -> No. of jacobian calls -! ISTATUS(3) -> No. of steps -! ISTATUS(4) -> No. of accepted steps -! ISTATUS(5) -> No. of rejected steps (except at very beginning) -! ISTATUS(6) -> No. of LU decompositions -! ISTATUS(7) -> No. of forward/backward substitutions -! ISTATUS(8) -> No. of singular matrix decompositions -! -! RSTATUS(1) -> Texit, the time corresponding to the -! computed Y upon return -! RSTATUS(2) -> Hexit, last accepted step before exit -! RSTATUS(3) -> Hnew, last predicted step (not yet taken) -! For multiple restarts, use Hnew as Hstart -! in the subsequent run -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CB05_CSIRO_Parameters - USE CB05_CSIRO_LinearAlgebra - IMPLICIT NONE - -!~~~> Arguments - INTEGER, INTENT(IN) :: N - REAL(kind=dp), INTENT(INOUT) :: Y(N) - REAL(kind=dp), INTENT(IN) :: Tstart,Tend - REAL(kind=dp), INTENT(IN) :: AbsTol(N),RelTol(N) - INTEGER, INTENT(IN) :: ICNTRL(20) - REAL(kind=dp), INTENT(IN) :: RCNTRL(20) - INTEGER, INTENT(INOUT) :: ISTATUS(20) - REAL(kind=dp), INTENT(INOUT) :: RSTATUS(20) - INTEGER, INTENT(OUT) :: IERR -!~~~> Parameters of the Rosenbrock method, up to 6 stages - INTEGER :: ros_S, rosMethod - INTEGER, PARAMETER :: RS2=1, RS3=2, RS4=3, RD3=4, RD4=5, RG3=6 - REAL(kind=dp) :: ros_A(15), ros_C(15), ros_M(6), ros_E(6), & - ros_Alpha(6), ros_Gamma(6), ros_ELO - LOGICAL :: ros_NewF(6) - CHARACTER(LEN=12) :: ros_Name -!~~~> Local variables - REAL(kind=dp) :: Roundoff, FacMin, FacMax, FacRej, FacSafe - REAL(kind=dp) :: Hmin, Hmax, Hstart - REAL(kind=dp) :: Texit - INTEGER :: i, UplimTol, Max_no_steps - LOGICAL :: Autonomous, VectorTol -!~~~> Parameters - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp - REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp - -!~~~> Initialize statistics - ISTATUS(1:8) = 0 - RSTATUS(1:3) = ZERO - -!~~~> Autonomous or time dependent ODE. Default is time dependent. - Autonomous = .NOT.(ICNTRL(1) == 0) - -!~~~> For Scalar tolerances (ICNTRL(2).NE.0) the code uses AbsTol(1) and RelTol(1) -! For Vector tolerances (ICNTRL(2) == 0) the code uses AbsTol(1:N) and RelTol(1:N) - IF (ICNTRL(2) == 0) THEN - VectorTol = .TRUE. - UplimTol = N - ELSE - VectorTol = .FALSE. - UplimTol = 1 - END IF - -!~~~> Initialize the particular Rosenbrock method selected - SELECT CASE (ICNTRL(3)) - CASE (1) - CALL Ros2 - CASE (2) - CALL Ros3 - CASE (3) - CALL Ros4 - CASE (0,4) - CALL Rodas3 - CASE (5) - CALL Rodas4 - CASE (6) - CALL Rang3 - CASE DEFAULT - PRINT * , 'Unknown Rosenbrock method: ICNTRL(3)=',ICNTRL(3) - CALL ros_ErrorMsg(-2,Tstart,ZERO,IERR) - RETURN - END SELECT - -!~~~> The maximum number of steps admitted - IF (ICNTRL(4) == 0) THEN - Max_no_steps = 200000 - ELSEIF (ICNTRL(4) > 0) THEN - Max_no_steps=ICNTRL(4) - ELSE - PRINT * ,'User-selected max no. of steps: ICNTRL(4)=',ICNTRL(4) - CALL ros_ErrorMsg(-1,Tstart,ZERO,IERR) - RETURN - END IF - -!~~~> Unit roundoff (1+Roundoff>1) - Roundoff = WLAMCH('E') - -!~~~> Lower bound on the step size: (positive value) - IF (RCNTRL(1) == ZERO) THEN - Hmin = ZERO - ELSEIF (RCNTRL(1) > ZERO) THEN - Hmin = RCNTRL(1) - ELSE - PRINT * , 'User-selected Hmin: RCNTRL(1)=', RCNTRL(1) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Upper bound on the step size: (positive value) - IF (RCNTRL(2) == ZERO) THEN - Hmax = ABS(Tend-Tstart) - ELSEIF (RCNTRL(2) > ZERO) THEN - Hmax = MIN(ABS(RCNTRL(2)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hmax: RCNTRL(2)=', RCNTRL(2) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Starting step size: (positive value) - IF (RCNTRL(3) == ZERO) THEN - Hstart = MAX(Hmin,DeltaMin) - ELSEIF (RCNTRL(3) > ZERO) THEN - Hstart = MIN(ABS(RCNTRL(3)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hstart: RCNTRL(3)=', RCNTRL(3) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Step size can be changed s.t. FacMin < Hnew/Hold < FacMax - IF (RCNTRL(4) == ZERO) THEN - FacMin = 0.2_dp - ELSEIF (RCNTRL(4) > ZERO) THEN - FacMin = RCNTRL(4) - ELSE - PRINT * , 'User-selected FacMin: RCNTRL(4)=', RCNTRL(4) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF - IF (RCNTRL(5) == ZERO) THEN - FacMax = 6.0_dp - ELSEIF (RCNTRL(5) > ZERO) THEN - FacMax = RCNTRL(5) - ELSE - PRINT * , 'User-selected FacMax: RCNTRL(5)=', RCNTRL(5) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacRej: Factor to decrease step after 2 succesive rejections - IF (RCNTRL(6) == ZERO) THEN - FacRej = 0.1_dp - ELSEIF (RCNTRL(6) > ZERO) THEN - FacRej = RCNTRL(6) - ELSE - PRINT * , 'User-selected FacRej: RCNTRL(6)=', RCNTRL(6) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacSafe: Safety Factor in the computation of new step size - IF (RCNTRL(7) == ZERO) THEN - FacSafe = 0.9_dp - ELSEIF (RCNTRL(7) > ZERO) THEN - FacSafe = RCNTRL(7) - ELSE - PRINT * , 'User-selected FacSafe: RCNTRL(7)=', RCNTRL(7) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Check if tolerances are reasonable - DO i=1,UplimTol - IF ( (AbsTol(i) <= ZERO) .OR. (RelTol(i) <= 10.0_dp*Roundoff) & - .OR. (RelTol(i) >= 1.0_dp) ) THEN - PRINT * , ' AbsTol(',i,') = ',AbsTol(i) - PRINT * , ' RelTol(',i,') = ',RelTol(i) - CALL ros_ErrorMsg(-5,Tstart,ZERO,IERR) - RETURN - END IF - END DO - - -!~~~> CALL Rosenbrock method - CALL ros_Integrator(Y, Tstart, Tend, Texit, & - AbsTol, RelTol, & -! Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -! Error indicator - IERR) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -CONTAINS ! SUBROUTINES internal to Rosenbrock -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_ErrorMsg(Code,T,H,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - REAL(kind=dp), INTENT(IN) :: T, H - INTEGER, INTENT(IN) :: Code - INTEGER, INTENT(OUT) :: IERR - - IERR = Code - PRINT * , & - 'Forced exit from Rosenbrock due to the following error:' - - SELECT CASE (Code) - CASE (-1) - PRINT * , '--> Improper value for maximal no of steps' - CASE (-2) - PRINT * , '--> Selected Rosenbrock method not implemented' - CASE (-3) - PRINT * , '--> Hmin/Hmax/Hstart must be positive' - CASE (-4) - PRINT * , '--> FacMin/FacMax/FacRej must be positive' - CASE (-5) - PRINT * , '--> Improper tolerance values' - CASE (-6) - PRINT * , '--> No of steps exceeds maximum bound' - CASE (-7) - PRINT * , '--> Step size too small: T + 10*H = T', & - ' or H < Roundoff' - CASE (-8) - PRINT * , '--> Matrix is repeatedly singular' - CASE DEFAULT - PRINT *, 'Unknown Error code: ', Code - END SELECT - - PRINT *, "T=", T, "and H=", H - - END SUBROUTINE ros_ErrorMsg - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Integrator (Y, Tstart, Tend, T, & - AbsTol, RelTol, & -!~~~> Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -!~~~> Error indicator - IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the implementation of a generic Rosenbrock method -! defined by ros_S (no of stages) -! and its coefficients ros_{A,C,M,E,Alpha,Gamma} -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - -!~~~> Input: the initial condition at Tstart; Output: the solution at T - REAL(kind=dp), INTENT(INOUT) :: Y(N) -!~~~> Input: integration interval - REAL(kind=dp), INTENT(IN) :: Tstart,Tend -!~~~> Output: time at which the solution is returned (T=Tend if success) - REAL(kind=dp), INTENT(OUT) :: T -!~~~> Input: tolerances - REAL(kind=dp), INTENT(IN) :: AbsTol(N), RelTol(N) -!~~~> Input: integration parameters - LOGICAL, INTENT(IN) :: Autonomous, VectorTol - REAL(kind=dp), INTENT(IN) :: Hstart, Hmin, Hmax - INTEGER, INTENT(IN) :: Max_no_steps - REAL(kind=dp), INTENT(IN) :: Roundoff, FacMin, FacMax, FacRej, FacSafe -!~~~> Output: Error indicator - INTEGER, INTENT(OUT) :: IERR -! ~~~~ Local variables - REAL(kind=dp) :: Ynew(N), Fcn0(N), Fcn(N) - REAL(kind=dp) :: K(N*ros_S), dFdT(N) -#ifdef FULL_ALGEBRA - REAL(kind=dp) :: Jac0(N,N), Ghimj(N,N) -#else - REAL(kind=dp) :: Jac0(LU_NONZERO), Ghimj(LU_NONZERO) -#endif - REAL(kind=dp) :: H, Hnew, HC, HG, Fac, Tau - REAL(kind=dp) :: Err, Yerr(N) - INTEGER :: Pivot(N), Direction, ioffset, j, istage - LOGICAL :: RejectLastH, RejectMoreH, Singular -!~~~> Local parameters - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp - REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp -!~~~> Locally called functions -! REAL(kind=dp) WLAMCH -! EXTERNAL WLAMCH -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~> Initial preparations - T = Tstart - RSTATUS(Nhexit) = ZERO - H = MIN( MAX(ABS(Hmin),ABS(Hstart)) , ABS(Hmax) ) - IF (ABS(H) <= 10.0_dp*Roundoff) H = DeltaMin - - IF (Tend >= Tstart) THEN - Direction = +1 - ELSE - Direction = -1 - END IF - H = Direction*H - - RejectLastH=.FALSE. - RejectMoreH=.FALSE. - -!~~~> Time loop begins below - -TimeLoop: DO WHILE ( (Direction > 0).AND.((T-Tend)+Roundoff <= ZERO) & - .OR. (Direction < 0).AND.((Tend-T)+Roundoff <= ZERO) ) - - IF ( ISTATUS(Nstp) > Max_no_steps ) THEN ! Too many steps - CALL ros_ErrorMsg(-6,T,H,IERR) - RETURN - END IF - IF ( ((T+0.1_dp*H) == T).OR.(H <= Roundoff) ) THEN ! Step size too small - CALL ros_ErrorMsg(-7,T,H,IERR) - RETURN - END IF - -!~~~> Limit H if necessary to avoid going beyond Tend - H = MIN(H,ABS(Tend-T)) - -!~~~> Compute the function at current time - CALL FunTemplate(T,Y,Fcn0) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - -!~~~> Compute the function derivative with respect to T - IF (.NOT.Autonomous) THEN - CALL ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) - END IF - -!~~~> Compute the Jacobian at current time - CALL JacTemplate(T,Y,Jac0) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - -!~~~> Repeat step calculation until current step accepted -UntilAccepted: DO - - CALL ros_PrepareMatrix(H,Direction,ros_Gamma(1), & - Jac0,Ghimj,Pivot,Singular) - IF (Singular) THEN ! More than 5 consecutive failed decompositions - CALL ros_ErrorMsg(-8,T,H,IERR) - RETURN - END IF - -!~~~> Compute the stages -Stage: DO istage = 1, ros_S - - ! Current istage offset. Current istage vector is K(ioffset+1:ioffset+N) - ioffset = N*(istage-1) - - ! For the 1st istage the function has been computed previously - IF ( istage == 1 ) THEN - !slim: CALL WCOPY(N,Fcn0,1,Fcn,1) - Fcn(1:N) = Fcn0(1:N) - ! istage>1 and a new function evaluation is needed at the current istage - ELSEIF ( ros_NewF(istage) ) THEN - !slim: CALL WCOPY(N,Y,1,Ynew,1) - Ynew(1:N) = Y(1:N) - DO j = 1, istage-1 - CALL WAXPY(N,ros_A((istage-1)*(istage-2)/2+j), & - K(N*(j-1)+1),1,Ynew,1) - END DO - Tau = T + ros_Alpha(istage)*Direction*H - CALL FunTemplate(Tau,Ynew,Fcn) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - END IF ! if istage == 1 elseif ros_NewF(istage) - !slim: CALL WCOPY(N,Fcn,1,K(ioffset+1),1) - K(ioffset+1:ioffset+N) = Fcn(1:N) - DO j = 1, istage-1 - HC = ros_C((istage-1)*(istage-2)/2+j)/(Direction*H) - CALL WAXPY(N,HC,K(N*(j-1)+1),1,K(ioffset+1),1) - END DO - IF ((.NOT. Autonomous).AND.(ros_Gamma(istage).NE.ZERO)) THEN - HG = Direction*H*ros_Gamma(istage) - CALL WAXPY(N,HG,dFdT,1,K(ioffset+1),1) - END IF - CALL ros_Solve(Ghimj, Pivot, K(ioffset+1)) - - END DO Stage - - -!~~~> Compute the new solution - !slim: CALL WCOPY(N,Y,1,Ynew,1) - Ynew(1:N) = Y(1:N) - DO j=1,ros_S - CALL WAXPY(N,ros_M(j),K(N*(j-1)+1),1,Ynew,1) - END DO - -!~~~> Compute the error estimation - !slim: CALL WSCAL(N,ZERO,Yerr,1) - Yerr(1:N) = ZERO - DO j=1,ros_S - CALL WAXPY(N,ros_E(j),K(N*(j-1)+1),1,Yerr,1) - END DO - Err = ros_ErrorNorm ( Y, Ynew, Yerr, AbsTol, RelTol, VectorTol ) - -!~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax - Fac = MIN(FacMax,MAX(FacMin,FacSafe/Err**(ONE/ros_ELO))) - Hnew = H*Fac - -!~~~> Check the error magnitude and adjust step size - ISTATUS(Nstp) = ISTATUS(Nstp) + 1 - IF ( (Err <= ONE).OR.(H <= Hmin) ) THEN !~~~> Accept step - ISTATUS(Nacc) = ISTATUS(Nacc) + 1 - !slim: CALL WCOPY(N,Ynew,1,Y,1) - Y(1:N) = Ynew(1:N) - T = T + Direction*H - Hnew = MAX(Hmin,MIN(Hnew,Hmax)) - IF (RejectLastH) THEN ! No step size increase after a rejected step - Hnew = MIN(Hnew,H) - END IF - RSTATUS(Nhexit) = H - RSTATUS(Nhnew) = Hnew - RSTATUS(Ntexit) = T - RejectLastH = .FALSE. - RejectMoreH = .FALSE. - H = Hnew - EXIT UntilAccepted ! EXIT THE LOOP: WHILE STEP NOT ACCEPTED - ELSE !~~~> Reject step - IF (RejectMoreH) THEN - Hnew = H*FacRej - END IF - RejectMoreH = RejectLastH - RejectLastH = .TRUE. - H = Hnew - IF (ISTATUS(Nacc) >= 1) ISTATUS(Nrej) = ISTATUS(Nrej) + 1 - END IF ! Err <= 1 - - END DO UntilAccepted - - END DO TimeLoop - -!~~~> Succesful exit - IERR = 1 !~~~> The integration was successful - - END SUBROUTINE ros_Integrator - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - REAL(kind=dp) FUNCTION ros_ErrorNorm ( Y, Ynew, Yerr, & - AbsTol, RelTol, VectorTol ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Computes the "scaled norm" of the error vector Yerr -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -! Input arguments - REAL(kind=dp), INTENT(IN) :: Y(N), Ynew(N), & - Yerr(N), AbsTol(N), RelTol(N) - LOGICAL, INTENT(IN) :: VectorTol -! Local variables - REAL(kind=dp) :: Err, Scale, Ymax - INTEGER :: i - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp - - Err = ZERO - DO i=1,N - Ymax = MAX(ABS(Y(i)),ABS(Ynew(i))) - IF (VectorTol) THEN - Scale = AbsTol(i)+RelTol(i)*Ymax - ELSE - Scale = AbsTol(1)+RelTol(1)*Ymax - END IF - Err = Err+(Yerr(i)/Scale)**2 - END DO - Err = SQRT(Err/N) - - ros_ErrorNorm = MAX(Err,1.0d-10) - - END FUNCTION ros_ErrorNorm - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> The time partial derivative of the function by finite differences -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -!~~~> Input arguments - REAL(kind=dp), INTENT(IN) :: T, Roundoff, Y(N), Fcn0(N) -!~~~> Output arguments - REAL(kind=dp), INTENT(OUT) :: dFdT(N) -!~~~> Local variables - REAL(kind=dp) :: Delta - REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, DeltaMin = 1.0E-6_dp - - Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T)) - CALL FunTemplate(T+Delta,Y,dFdT) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - CALL WAXPY(N,(-ONE),Fcn0,1,dFdT,1) - CALL WSCAL(N,(ONE/Delta),dFdT,1) - - END SUBROUTINE ros_FunTimeDerivative - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_PrepareMatrix ( H, Direction, gam, & - Jac0, Ghimj, Pivot, Singular ) -! --- --- --- --- --- --- --- --- --- --- --- --- --- -! Prepares the LHS matrix for stage calculations -! 1. Construct Ghimj = 1/(H*ham) - Jac0 -! "(Gamma H) Inverse Minus Jacobian" -! 2. Repeat LU decomposition of Ghimj until successful. -! -half the step size if LU decomposition fails and retry -! -exit after 5 consecutive fails -! --- --- --- --- --- --- --- --- --- --- --- --- --- - IMPLICIT NONE - -!~~~> Input arguments -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(IN) :: Jac0(N,N) -#else - REAL(kind=dp), INTENT(IN) :: Jac0(LU_NONZERO) -#endif - REAL(kind=dp), INTENT(IN) :: gam - INTEGER, INTENT(IN) :: Direction -!~~~> Output arguments -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(OUT) :: Ghimj(N,N) -#else - REAL(kind=dp), INTENT(OUT) :: Ghimj(LU_NONZERO) -#endif - LOGICAL, INTENT(OUT) :: Singular - INTEGER, INTENT(OUT) :: Pivot(N) -!~~~> Inout arguments - REAL(kind=dp), INTENT(INOUT) :: H ! step size is decreased when LU fails -!~~~> Local variables - INTEGER :: i, ISING, Nconsecutive - REAL(kind=dp) :: ghinv - REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, HALF = 0.5_dp - - Nconsecutive = 0 - Singular = .TRUE. - - DO WHILE (Singular) - -!~~~> Construct Ghimj = 1/(H*gam) - Jac0 -#ifdef FULL_ALGEBRA - !slim: CALL WCOPY(N*N,Jac0,1,Ghimj,1) - !slim: CALL WSCAL(N*N,(-ONE),Ghimj,1) - Ghimj = -Jac0 - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(i,i) = Ghimj(i,i)+ghinv - END DO -#else - !slim: CALL WCOPY(LU_NONZERO,Jac0,1,Ghimj,1) - !slim: CALL WSCAL(LU_NONZERO,(-ONE),Ghimj,1) - Ghimj(1:LU_NONZERO) = -Jac0(1:LU_NONZERO) - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(LU_DIAG(i)) = Ghimj(LU_DIAG(i))+ghinv - END DO -#endif -!~~~> Compute LU decomposition - CALL ros_Decomp( Ghimj, Pivot, ISING ) - IF (ISING == 0) THEN -!~~~> If successful done - Singular = .FALSE. - ELSE ! ISING .ne. 0 -!~~~> If unsuccessful half the step size; if 5 consecutive fails then return - ISTATUS(Nsng) = ISTATUS(Nsng) + 1 - Nconsecutive = Nconsecutive+1 - Singular = .TRUE. - PRINT*,'Warning: LU Decomposition returned ISING = ',ISING - IF (Nconsecutive <= 5) THEN ! Less than 5 consecutive failed decompositions - H = H*HALF - ELSE ! More than 5 consecutive failed decompositions - RETURN - END IF ! Nconsecutive - END IF ! ISING - - END DO ! WHILE Singular - - END SUBROUTINE ros_PrepareMatrix - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Decomp( A, Pivot, ISING ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the LU decomposition -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Inout variables -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(INOUT) :: A(N,N) -#else - REAL(kind=dp), INTENT(INOUT) :: A(LU_NONZERO) -#endif -!~~~> Output variables - INTEGER, INTENT(OUT) :: Pivot(N), ISING - -#ifdef FULL_ALGEBRA - CALL DGETRF( N, N, A, N, Pivot, ISING ) -#else - CALL KppDecomp ( A, ISING ) - Pivot(1) = 1 -#endif - ISTATUS(Ndec) = ISTATUS(Ndec) + 1 - - END SUBROUTINE ros_Decomp - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Solve( A, Pivot, b ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the forward/backward substitution (using pre-computed LU decomposition) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Input variables -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(IN) :: A(N,N) - INTEGER :: ISING -#else - REAL(kind=dp), INTENT(IN) :: A(LU_NONZERO) -#endif - INTEGER, INTENT(IN) :: Pivot(N) -!~~~> InOut variables - REAL(kind=dp), INTENT(INOUT) :: b(N) - -#ifdef FULL_ALGEBRA - CALL DGETRS( 'N', N , 1, A, N, Pivot, b, N, ISING ) - IF ( Info < 0 ) THEN - PRINT*,"Error in DGETRS. ISING=",ISING - END IF -#else - CALL KppSolve( A, b ) -#endif - - ISTATUS(Nsol) = ISTATUS(Nsol) + 1 - - END SUBROUTINE ros_Solve - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 2 stages, order 2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - DOUBLE PRECISION g - - g = 1.0_dp + 1.0_dp/SQRT(2.0_dp) - rosMethod = RS2 -!~~~> Name of the method - ros_Name = 'ROS-2' -!~~~> Number of stages - ros_S = 2 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = (1.0_dp)/g - ros_C(1) = (-2.0_dp)/g -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1)= (3.0_dp)/(2.0_dp*g) - ros_M(2)= (1.0_dp)/(2.0_dp*g) -! E_i = Coefficients for error estimator - ros_E(1) = 1.0_dp/(2.0_dp*g) - ros_E(2) = 1.0_dp/(2.0_dp*g) -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus one - ros_ELO = 2.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 1.0_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = g - ros_Gamma(2) =-g - - END SUBROUTINE Ros2 - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 3 stages, order 3, 2 function evaluations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - rosMethod = RS3 -!~~~> Name of the method - ros_Name = 'ROS-3' -!~~~> Number of stages - ros_S = 3 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1)= 1.0_dp - ros_A(2)= 1.0_dp - ros_A(3)= 0.0_dp - - ros_C(1) = -0.10156171083877702091975600115545E+01_dp - ros_C(2) = 0.40759956452537699824805835358067E+01_dp - ros_C(3) = 0.92076794298330791242156818474003E+01_dp -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.1E+01_dp - ros_M(2) = 0.61697947043828245592553615689730E+01_dp - ros_M(3) = -0.42772256543218573326238373806514_dp -! E_i = Coefficients for error estimator - ros_E(1) = 0.5_dp - ros_E(2) = -0.29079558716805469821718236208017E+01_dp - ros_E(3) = 0.22354069897811569627360909276199_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1)= 0.0_dp - ros_Alpha(2)= 0.43586652150845899941601945119356_dp - ros_Alpha(3)= 0.43586652150845899941601945119356_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1)= 0.43586652150845899941601945119356_dp - ros_Gamma(2)= 0.24291996454816804366592249683314_dp - ros_Gamma(3)= 0.21851380027664058511513169485832E+01_dp - - END SUBROUTINE Ros3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! L-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 4 STAGES -! L-STABLE EMBEDDED ROSENBROCK METHOD OF ORDER 3 -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1990) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RS4 -!~~~> Name of the method - ros_Name = 'ROS-4' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.2000000000000000E+01_dp - ros_A(2) = 0.1867943637803922E+01_dp - ros_A(3) = 0.2344449711399156_dp - ros_A(4) = ros_A(2) - ros_A(5) = ros_A(3) - ros_A(6) = 0.0_dp - - ros_C(1) =-0.7137615036412310E+01_dp - ros_C(2) = 0.2580708087951457E+01_dp - ros_C(3) = 0.6515950076447975_dp - ros_C(4) =-0.2137148994382534E+01_dp - ros_C(5) =-0.3214669691237626_dp - ros_C(6) =-0.6949742501781779_dp -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.2255570073418735E+01_dp - ros_M(2) = 0.2870493262186792_dp - ros_M(3) = 0.4353179431840180_dp - ros_M(4) = 0.1093502252409163E+01_dp -!~~~> E_i = Coefficients for error estimator - ros_E(1) =-0.2815431932141155_dp - ros_E(2) =-0.7276199124938920E-01_dp - ros_E(3) =-0.1082196201495311_dp - ros_E(4) =-0.1093502252409163E+01_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 0.1145640000000000E+01_dp - ros_Alpha(3) = 0.6552168638155900_dp - ros_Alpha(4) = ros_Alpha(3) -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5728200000000000_dp - ros_Gamma(2) =-0.1769193891319233E+01_dp - ros_Gamma(3) = 0.7592633437920482_dp - ros_Gamma(4) =-0.1049021087100450_dp - - END SUBROUTINE Ros4 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- A STIFFLY-STABLE METHOD, 4 stages, order 3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD3 -!~~~> Name of the method - ros_Name = 'RODAS-3' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.0_dp - ros_A(2) = 2.0_dp - ros_A(3) = 0.0_dp - ros_A(4) = 2.0_dp - ros_A(5) = 0.0_dp - ros_A(6) = 1.0_dp - - ros_C(1) = 4.0_dp - ros_C(2) = 1.0_dp - ros_C(3) =-1.0_dp - ros_C(4) = 1.0_dp - ros_C(5) =-1.0_dp - ros_C(6) =-(8.0_dp/3.0_dp) - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .FALSE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 2.0_dp - ros_M(2) = 0.0_dp - ros_M(3) = 1.0_dp - ros_M(4) = 1.0_dp -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0_dp - ros_E(2) = 0.0_dp - ros_E(3) = 0.0_dp - ros_E(4) = 1.0_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 0.0_dp - ros_Alpha(3) = 1.0_dp - ros_Alpha(4) = 1.0_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5_dp - ros_Gamma(2) = 1.5_dp - ros_Gamma(3) = 0.0_dp - ros_Gamma(4) = 0.0_dp - - END SUBROUTINE Rodas3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 6 STAGES -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1996) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD4 -!~~~> Name of the method - ros_Name = 'RODAS-4' -!~~~> Number of stages - ros_S = 6 - -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.000_dp - ros_Alpha(2) = 0.386_dp - ros_Alpha(3) = 0.210_dp - ros_Alpha(4) = 0.630_dp - ros_Alpha(5) = 1.000_dp - ros_Alpha(6) = 1.000_dp - -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.2500000000000000_dp - ros_Gamma(2) =-0.1043000000000000_dp - ros_Gamma(3) = 0.1035000000000000_dp - ros_Gamma(4) =-0.3620000000000023E-01_dp - ros_Gamma(5) = 0.0_dp - ros_Gamma(6) = 0.0_dp - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.1544000000000000E+01_dp - ros_A(2) = 0.9466785280815826_dp - ros_A(3) = 0.2557011698983284_dp - ros_A(4) = 0.3314825187068521E+01_dp - ros_A(5) = 0.2896124015972201E+01_dp - ros_A(6) = 0.9986419139977817_dp - ros_A(7) = 0.1221224509226641E+01_dp - ros_A(8) = 0.6019134481288629E+01_dp - ros_A(9) = 0.1253708332932087E+02_dp - ros_A(10) =-0.6878860361058950_dp - ros_A(11) = ros_A(7) - ros_A(12) = ros_A(8) - ros_A(13) = ros_A(9) - ros_A(14) = ros_A(10) - ros_A(15) = 1.0_dp - - ros_C(1) =-0.5668800000000000E+01_dp - ros_C(2) =-0.2430093356833875E+01_dp - ros_C(3) =-0.2063599157091915_dp - ros_C(4) =-0.1073529058151375_dp - ros_C(5) =-0.9594562251023355E+01_dp - ros_C(6) =-0.2047028614809616E+02_dp - ros_C(7) = 0.7496443313967647E+01_dp - ros_C(8) =-0.1024680431464352E+02_dp - ros_C(9) =-0.3399990352819905E+02_dp - ros_C(10) = 0.1170890893206160E+02_dp - ros_C(11) = 0.8083246795921522E+01_dp - ros_C(12) =-0.7981132988064893E+01_dp - ros_C(13) =-0.3152159432874371E+02_dp - ros_C(14) = 0.1631930543123136E+02_dp - ros_C(15) =-0.6058818238834054E+01_dp - -!~~~> M_i = Coefficients for new step solution - ros_M(1) = ros_A(7) - ros_M(2) = ros_A(8) - ros_M(3) = ros_A(9) - ros_M(4) = ros_A(10) - ros_M(5) = 1.0_dp - ros_M(6) = 1.0_dp - -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0_dp - ros_E(2) = 0.0_dp - ros_E(3) = 0.0_dp - ros_E(4) = 0.0_dp - ros_E(5) = 0.0_dp - ros_E(6) = 1.0_dp - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - ros_NewF(5) = .TRUE. - ros_NewF(6) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0_dp - - END SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rang3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE W METHOD OF ORDER 3, WITH 4 STAGES -! -! J. RANG and L. ANGERMANN -! NEW ROSENBROCK W-METHODS OF ORDER 3 -! FOR PARTIAL DIFFERENTIAL ALGEBRAIC -! EQUATIONS OF INDEX 1 -! BIT Numerical Mathematics (2005) 45: 761-787 -! DOI: 10.1007/s10543-005-0035-y -! Table 4.1-4.2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RG3 -!~~~> Name of the method - ros_Name = 'RANG-3' -!~~~> Number of stages - ros_S = 4 - - ros_A(1) = 5.09052051067020d+00; - ros_A(2) = 5.09052051067020d+00; - ros_A(3) = 0.0d0; - ros_A(4) = 4.97628111010787d+00; - ros_A(5) = 2.77268164715849d-02; - ros_A(6) = 2.29428036027904d-01; - - ros_C(1) = -1.16790812312283d+01; - ros_C(2) = -1.64057326467367d+01; - ros_C(3) = -2.77268164715850d-01; - ros_C(4) = -8.38103960500476d+00; - ros_C(5) = -8.48328409199343d-01; - ros_C(6) = 2.87009860433106d-01; - - ros_M(1) = 5.22582761233094d+00; - ros_M(2) = -5.56971148154165d-01; - ros_M(3) = 3.57979469353645d-01; - ros_M(4) = 1.72337398521064d+00; - - ros_E(1) = -5.16845212784040d+00; - ros_E(2) = -1.26351942603842d+00; - ros_E(3) = -1.11022302462516d-16; - ros_E(4) = 2.22044604925031d-16; - - ros_Alpha(1) = 0.0d00; - ros_Alpha(2) = 2.21878746765329d+00; - ros_Alpha(3) = 2.21878746765329d+00; - ros_Alpha(4) = 1.55392337535788d+00; - - ros_Gamma(1) = 4.35866521508459d-01; - ros_Gamma(2) = -1.78292094614483d+00; - ros_Gamma(3) = -2.46541900496934d+00; - ros_Gamma(4) = -8.05529997906370d-01; - - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp - - END SUBROUTINE Rang3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! End of the set of internal Rosenbrock subroutines -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -END SUBROUTINE Rosenbrock -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE FunTemplate( T, Y, Ydot ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE function call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE CB05_CSIRO_Parameters, ONLY: NVAR, LU_NONZERO - USE CB05_CSIRO_Global, ONLY: FIX, RCONST, TIME - USE CB05_CSIRO_Function, ONLY: Fun - USE CB05_CSIRO_Rates, ONLY: Update_SUN, Update_RCONST -!~~~> Input variables - REAL(kind=dp) :: T, Y(NVAR) -!~~~> Output variables - REAL(kind=dp) :: Ydot(NVAR) -!~~~> Local variables - REAL(kind=dp) :: Told - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, Ydot ) - TIME = Told - -END SUBROUTINE FunTemplate - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE JacTemplate( T, Y, Jcb ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE Jacobian call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE CB05_CSIRO_Parameters, ONLY: NVAR, LU_NONZERO - USE CB05_CSIRO_Global, ONLY: FIX, RCONST, TIME - USE CB05_CSIRO_Jacobian, ONLY: Jac_SP, LU_IROW, LU_ICOL - USE CB05_CSIRO_LinearAlgebra - USE CB05_CSIRO_Rates, ONLY: Update_SUN, Update_RCONST -!~~~> Input variables - REAL(kind=dp) :: T, Y(NVAR) -!~~~> Output variables -#ifdef FULL_ALGEBRA - REAL(kind=dp) :: JV(LU_NONZERO), Jcb(NVAR,NVAR) -#else - REAL(kind=dp) :: Jcb(LU_NONZERO) -#endif -!~~~> Local variables - REAL(kind=dp) :: Told -#ifdef FULL_ALGEBRA - INTEGER :: i, j -#endif - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() -#ifdef FULL_ALGEBRA - CALL Jac_SP(Y, FIX, RCONST, JV) - DO j=1,NVAR - DO i=1,NVAR - Jcb(i,j) = 0.0_dp - END DO - END DO - DO i=1,LU_NONZERO - Jcb(LU_IROW(i),LU_ICOL(i)) = JV(i) - END DO -#else - CALL Jac_SP( Y, FIX, RCONST, Jcb ) -#endif - TIME = Told - -END SUBROUTINE JacTemplate - -END MODULE CB05_CSIRO_Integrator - - - - -! End of INTEGRATE function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Integrator.o b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Integrator.o deleted file mode 100644 index 54096ad52ac4c163b00b23250a997c66228aa406..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Integrator.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Jacobian.f90 b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Jacobian.f90 deleted file mode 100644 index 66db59b919c758903204a4d05def3d3eae35a980..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Jacobian.f90 +++ /dev/null @@ -1,2380 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The ODE Jacobian of Chemical Model File -! -! Generated by KPP-2.2.3 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 : CB05_CSIRO_Jacobian.f90 -! Time : Thu Oct 8 08:21:51 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05_CSIRO_26998_BOXMOX -! Equation file : CB05_CSIRO.kpp -! Output root filename : CB05_CSIRO -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CB05_CSIRO_Jacobian - - USE CB05_CSIRO_Parameters - USE CB05_CSIRO_JacobianSP - - USE CB05_CSIRO_Global - - 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(302) - -! B(1) = dA(1)/dV(61) - B(1) = RCT(1) -! B(2) = dA(2)/dV(63) - B(2) = RCT(2) -! B(3) = dA(3)/dV(53) - B(3) = RCT(3)*V(62) -! B(4) = dA(3)/dV(62) - B(4) = RCT(3)*V(53) -! B(5) = dA(4)/dV(61) - B(5) = RCT(4)*V(63) -! B(6) = dA(4)/dV(63) - B(6) = RCT(4)*V(61) -! B(7) = dA(5)/dV(61) - B(7) = RCT(5)*V(63) -! B(8) = dA(5)/dV(63) - B(8) = RCT(5)*V(61) -! B(9) = dA(6)/dV(62) - B(9) = RCT(6)*V(63) -! B(10) = dA(6)/dV(63) - B(10) = RCT(6)*V(62) -! B(11) = dA(7)/dV(53) - B(11) = RCT(7)*V(61) -! B(12) = dA(7)/dV(61) - B(12) = RCT(7)*V(53) -! B(13) = dA(8)/dV(53) - B(13) = RCT(8) -! B(14) = dA(9)/dV(53) - B(14) = RCT(9) -! B(15) = dA(10)/dV(14) - B(15) = RCT(10)*F(2) -! B(17) = dA(11)/dV(14) - B(17) = RCT(11)*F(1) -! B(19) = dA(12)/dV(53) - B(19) = RCT(12)*V(60) -! B(20) = dA(12)/dV(60) - B(20) = RCT(12)*V(53) -! B(21) = dA(13)/dV(53) - B(21) = RCT(13)*V(54) -! B(22) = dA(13)/dV(54) - B(22) = RCT(13)*V(53) -! B(23) = dA(14)/dV(56) - B(23) = RCT(14) -! B(24) = dA(15)/dV(56) - B(24) = RCT(15) -! B(25) = dA(16)/dV(56) - B(25) = RCT(16)*V(62) -! B(26) = dA(16)/dV(62) - B(26) = RCT(16)*V(56) -! B(27) = dA(17)/dV(56) - B(27) = RCT(17)*V(61) -! B(28) = dA(17)/dV(61) - B(28) = RCT(17)*V(56) -! B(29) = dA(18)/dV(56) - B(29) = RCT(18)*V(61) -! B(30) = dA(18)/dV(61) - B(30) = RCT(18)*V(56) -! B(31) = dA(19)/dV(12) - B(31) = RCT(19)*F(1) -! B(33) = dA(20)/dV(12) - B(33) = RCT(20)*F(1)*F(1) -! B(35) = dA(21)/dV(12) - B(35) = RCT(21) -! B(36) = dA(22)/dV(62) - B(36) = RCT(22)*2*V(62) -! B(37) = dA(23)/dV(61) - B(37) = RCT(23)*V(62)*F(1) -! B(38) = dA(23)/dV(62) - B(38) = RCT(23)*V(61)*F(1) -! B(40) = dA(24)/dV(60) - B(40) = RCT(24)*V(62) -! B(41) = dA(24)/dV(62) - B(41) = RCT(24)*V(60) -! B(42) = dA(25)/dV(16) - B(42) = RCT(25) -! B(43) = dA(26)/dV(16) - B(43) = RCT(26)*V(60) -! B(44) = dA(26)/dV(60) - B(44) = RCT(26)*V(16) -! B(45) = dA(27)/dV(16) - B(45) = RCT(27)*2*V(16) -! B(46) = dA(28)/dV(60) - B(46) = RCT(28)*V(61) -! B(47) = dA(28)/dV(61) - B(47) = RCT(28)*V(60) -! B(48) = dA(29)/dV(34) - B(48) = RCT(29)*V(60) -! B(49) = dA(29)/dV(60) - B(49) = RCT(29)*V(34) -! B(50) = dA(30)/dV(54) - B(50) = RCT(30)*V(62) -! B(51) = dA(30)/dV(62) - B(51) = RCT(30)*V(54) -! B(52) = dA(31)/dV(54) - B(52) = RCT(31)*V(61) -! B(53) = dA(31)/dV(61) - B(53) = RCT(31)*V(54) -! B(54) = dA(32)/dV(23) - B(54) = RCT(32) -! B(55) = dA(33)/dV(23) - B(55) = RCT(33)*V(60) -! B(56) = dA(33)/dV(60) - B(56) = RCT(33)*V(23) -! B(57) = dA(34)/dV(54) - B(57) = RCT(34)*2*V(54) -! B(58) = dA(35)/dV(54) - B(58) = RCT(35)*2*V(54)*F(1) -! B(60) = dA(36)/dV(17) - B(60) = RCT(36) -! B(61) = dA(37)/dV(17) - B(61) = RCT(37)*V(60) -! B(62) = dA(37)/dV(60) - B(62) = RCT(37)*V(17) -! B(63) = dA(38)/dV(13) - B(63) = RCT(38)*V(14) -! B(64) = dA(38)/dV(14) - B(64) = RCT(38)*V(13) -! B(65) = dA(39)/dV(13) - B(65) = RCT(39)*V(60) -! B(66) = dA(39)/dV(60) - B(66) = RCT(39)*V(13) -! B(67) = dA(40)/dV(60) - B(67) = RCT(40)*V(63) -! B(68) = dA(40)/dV(63) - B(68) = RCT(40)*V(60) -! B(69) = dA(41)/dV(60) - B(69) = RCT(41)*2*V(60) -! B(70) = dA(42)/dV(60) - B(70) = RCT(42)*2*V(60) -! B(71) = dA(43)/dV(54) - B(71) = RCT(43)*V(60) -! B(72) = dA(43)/dV(60) - B(72) = RCT(43)*V(54) -! B(73) = dA(44)/dV(54) - B(73) = RCT(44)*V(63) -! B(74) = dA(44)/dV(63) - B(74) = RCT(44)*V(54) -! B(75) = dA(45)/dV(17) - B(75) = RCT(45)*V(63) -! B(76) = dA(45)/dV(63) - B(76) = RCT(45)*V(17) -! B(77) = dA(46)/dV(56) - B(77) = RCT(46)*V(63) -! B(78) = dA(46)/dV(63) - B(78) = RCT(46)*V(56) -! B(79) = dA(47)/dV(56) - B(79) = RCT(47)*V(60) -! B(80) = dA(47)/dV(60) - B(80) = RCT(47)*V(56) -! B(81) = dA(48)/dV(54) - B(81) = RCT(48)*V(56) -! B(82) = dA(48)/dV(56) - B(82) = RCT(48)*V(54) -! B(83) = dA(49)/dV(53) - B(83) = RCT(49)*V(56) -! B(84) = dA(49)/dV(56) - B(84) = RCT(49)*V(53) -! B(85) = dA(50)/dV(56) - B(85) = RCT(50)*2*V(56) -! B(86) = dA(51)/dV(23) - B(86) = RCT(51) -! B(87) = dA(52)/dV(34) - B(87) = RCT(52) -! B(88) = dA(53)/dV(12) - B(88) = RCT(53) -! B(89) = dA(54)/dV(59) - B(89) = RCT(54)*V(62) -! B(90) = dA(54)/dV(62) - B(90) = RCT(54)*V(59) -! B(91) = dA(55)/dV(48) - B(91) = RCT(55)*V(62) -! B(92) = dA(55)/dV(62) - B(92) = RCT(55)*V(48) -! B(93) = dA(56)/dV(54) - B(93) = RCT(56)*V(59) -! B(94) = dA(56)/dV(59) - B(94) = RCT(56)*V(54) -! B(95) = dA(57)/dV(48) - B(95) = RCT(57)*V(54) -! B(96) = dA(57)/dV(54) - B(96) = RCT(57)*V(48) -! B(97) = dA(58)/dV(59) - B(97) = RCT(58)*2*V(59) -! B(98) = dA(59)/dV(48) - B(98) = RCT(59)*2*V(48) -! B(99) = dA(60)/dV(48) - B(99) = RCT(60)*V(59) -! B(100) = dA(60)/dV(59) - B(100) = RCT(60)*V(48) -! B(101) = dA(61)/dV(51) - B(101) = RCT(61)*V(60) -! B(102) = dA(61)/dV(60) - B(102) = RCT(61)*V(51) -! B(103) = dA(62)/dV(51) - B(103) = RCT(62) -! B(104) = dA(63)/dV(27) - B(104) = RCT(63)*V(60) -! B(105) = dA(63)/dV(60) - B(105) = RCT(63)*V(27) -! B(106) = dA(64)/dV(27) - B(106) = RCT(64) -! B(107) = dA(65)/dV(36) - B(107) = RCT(65)*V(60) -! B(108) = dA(65)/dV(60) - B(108) = RCT(65)*V(36) -! B(109) = dA(66)/dV(5) - B(109) = RCT(66)*V(60) -! B(110) = dA(66)/dV(60) - B(110) = RCT(66)*V(5) -! B(111) = dA(67)/dV(57) - B(111) = RCT(67)*V(62) -! B(112) = dA(67)/dV(62) - B(112) = RCT(67)*V(57) -! B(113) = dA(68)/dV(54) - B(113) = RCT(68)*V(57) -! B(114) = dA(68)/dV(57) - B(114) = RCT(68)*V(54) -! B(115) = dA(69)/dV(57) - B(115) = RCT(69)*2*V(57) -! B(116) = dA(70)/dV(30) - B(116) = RCT(70)*V(60) -! B(117) = dA(70)/dV(60) - B(117) = RCT(70)*V(30) -! B(118) = dA(71)/dV(30) - B(118) = RCT(71) -! B(119) = dA(72)/dV(10) - B(119) = RCT(72)*V(60) -! B(120) = dA(72)/dV(60) - B(120) = RCT(72)*V(10) -! B(121) = dA(73)/dV(52) - B(121) = RCT(73)*V(60) -! B(122) = dA(73)/dV(60) - B(122) = RCT(73)*V(52) -! B(123) = dA(74)/dV(52) - B(123) = RCT(74) -! B(124) = dA(75)/dV(52) - B(124) = RCT(75) -! B(125) = dA(76)/dV(52) - B(125) = RCT(76)*V(63) -! B(126) = dA(76)/dV(63) - B(126) = RCT(76)*V(52) -! B(127) = dA(77)/dV(52) - B(127) = RCT(77)*V(56) -! B(128) = dA(77)/dV(56) - B(128) = RCT(77)*V(52) -! B(129) = dA(78)/dV(52) - B(129) = RCT(78)*V(54) -! B(130) = dA(78)/dV(54) - B(130) = RCT(78)*V(52) -! B(131) = dA(79)/dV(26) - B(131) = RCT(79) -! B(132) = dA(80)/dV(26) - B(132) = RCT(80)*V(62) -! B(133) = dA(80)/dV(62) - B(133) = RCT(80)*V(26) -! B(134) = dA(81)/dV(26) - B(134) = RCT(81)*V(54) -! B(135) = dA(81)/dV(54) - B(135) = RCT(81)*V(26) -! B(136) = dA(82)/dV(19) - B(136) = RCT(82)*V(60) -! B(137) = dA(82)/dV(60) - B(137) = RCT(82)*V(19) -! B(138) = dA(83)/dV(50) - B(138) = RCT(83)*V(63) -! B(139) = dA(83)/dV(63) - B(139) = RCT(83)*V(50) -! B(140) = dA(84)/dV(50) - B(140) = RCT(84)*V(60) -! B(141) = dA(84)/dV(60) - B(141) = RCT(84)*V(50) -! B(142) = dA(85)/dV(50) - B(142) = RCT(85)*V(56) -! B(143) = dA(85)/dV(56) - B(143) = RCT(85)*V(50) -! B(144) = dA(86)/dV(50) - B(144) = RCT(86) -! B(145) = dA(87)/dV(58) - B(145) = RCT(87)*V(62) -! B(146) = dA(87)/dV(62) - B(146) = RCT(87)*V(58) -! B(147) = dA(88)/dV(58) - B(147) = RCT(88)*V(61) -! B(148) = dA(88)/dV(61) - B(148) = RCT(88)*V(58) -! B(149) = dA(89)/dV(6) - B(149) = RCT(89) -! B(150) = dA(90)/dV(6) - B(150) = RCT(90) -! B(151) = dA(91)/dV(54) - B(151) = RCT(91)*V(58) -! B(152) = dA(91)/dV(58) - B(152) = RCT(91)*V(54) -! B(153) = dA(92)/dV(57) - B(153) = RCT(92)*V(58) -! B(154) = dA(92)/dV(58) - B(154) = RCT(92)*V(57) -! B(155) = dA(93)/dV(58) - B(155) = RCT(93)*V(59) -! B(156) = dA(93)/dV(59) - B(156) = RCT(93)*V(58) -! B(157) = dA(94)/dV(58) - B(157) = RCT(94)*2*V(58) -! B(158) = dA(95)/dV(20) - B(158) = RCT(95)*V(60) -! B(159) = dA(95)/dV(60) - B(159) = RCT(95)*V(20) -! B(160) = dA(96)/dV(20) - B(160) = RCT(96) -! B(161) = dA(97)/dV(21) - B(161) = RCT(97)*V(60) -! B(162) = dA(97)/dV(60) - B(162) = RCT(97)*V(21) -! B(163) = dA(98)/dV(49) - B(163) = RCT(98)*V(63) -! B(164) = dA(98)/dV(63) - B(164) = RCT(98)*V(49) -! B(165) = dA(99)/dV(49) - B(165) = RCT(99)*V(60) -! B(166) = dA(99)/dV(60) - B(166) = RCT(99)*V(49) -! B(167) = dA(100)/dV(49) - B(167) = RCT(100)*V(56) -! B(168) = dA(100)/dV(56) - B(168) = RCT(100)*V(49) -! B(169) = dA(101)/dV(49) - B(169) = RCT(101) -! B(170) = dA(102)/dV(55) - B(170) = RCT(102)*V(62) -! B(171) = dA(102)/dV(62) - B(171) = RCT(102)*V(55) -! B(172) = dA(103)/dV(55) - B(172) = RCT(103)*V(61) -! B(173) = dA(103)/dV(61) - B(173) = RCT(103)*V(55) -! B(174) = dA(104)/dV(22) - B(174) = RCT(104) -! B(175) = dA(105)/dV(22) - B(175) = RCT(105) -! B(176) = dA(106)/dV(22) - B(176) = RCT(106)*V(60) -! B(177) = dA(106)/dV(60) - B(177) = RCT(106)*V(22) -! B(178) = dA(107)/dV(54) - B(178) = RCT(107)*V(55) -! B(179) = dA(107)/dV(55) - B(179) = RCT(107)*V(54) -! B(180) = dA(108)/dV(55) - B(180) = RCT(108)*V(57) -! B(181) = dA(108)/dV(57) - B(181) = RCT(108)*V(55) -! B(182) = dA(109)/dV(55) - B(182) = RCT(109)*V(59) -! B(183) = dA(109)/dV(59) - B(183) = RCT(109)*V(55) -! B(184) = dA(110)/dV(55) - B(184) = RCT(110)*2*V(55) -! B(185) = dA(111)/dV(55) - B(185) = RCT(111)*V(58) -! B(186) = dA(111)/dV(58) - B(186) = RCT(111)*V(55) -! B(187) = dA(112)/dV(44) - B(187) = RCT(112)*V(60) -! B(188) = dA(112)/dV(60) - B(188) = RCT(112)*V(44) -! B(189) = dA(113)/dV(28) - B(189) = RCT(113) -! B(190) = dA(114)/dV(28) - B(190) = RCT(114) -! B(191) = dA(115)/dV(28) - B(191) = RCT(115)*V(61) -! B(192) = dA(115)/dV(61) - B(192) = RCT(115)*V(28) -! B(193) = dA(116)/dV(41) - B(193) = RCT(116)*V(63) -! B(194) = dA(116)/dV(63) - B(194) = RCT(116)*V(41) -! B(195) = dA(117)/dV(41) - B(195) = RCT(117)*V(60) -! B(196) = dA(117)/dV(60) - B(196) = RCT(117)*V(41) -! B(197) = dA(118)/dV(41) - B(197) = RCT(118)*V(53) -! B(198) = dA(118)/dV(53) - B(198) = RCT(118)*V(41) -! B(199) = dA(119)/dV(41) - B(199) = RCT(119)*V(56) -! B(200) = dA(119)/dV(56) - B(200) = RCT(119)*V(41) -! B(201) = dA(120)/dV(38) - B(201) = RCT(120)*V(63) -! B(202) = dA(120)/dV(63) - B(202) = RCT(120)*V(38) -! B(203) = dA(121)/dV(38) - B(203) = RCT(121)*V(60) -! B(204) = dA(121)/dV(60) - B(204) = RCT(121)*V(38) -! B(205) = dA(122)/dV(38) - B(205) = RCT(122)*V(53) -! B(206) = dA(122)/dV(53) - B(206) = RCT(122)*V(38) -! B(207) = dA(123)/dV(38) - B(207) = RCT(123)*V(56) -! B(208) = dA(123)/dV(56) - B(208) = RCT(123)*V(38) -! B(209) = dA(124)/dV(40) - B(209) = RCT(124)*V(63) -! B(210) = dA(124)/dV(63) - B(210) = RCT(124)*V(40) -! B(211) = dA(125)/dV(40) - B(211) = RCT(125)*V(60) -! B(212) = dA(125)/dV(60) - B(212) = RCT(125)*V(40) -! B(213) = dA(126)/dV(40) - B(213) = RCT(126)*V(53) -! B(214) = dA(126)/dV(53) - B(214) = RCT(126)*V(40) -! B(215) = dA(127)/dV(40) - B(215) = RCT(127)*V(56) -! B(216) = dA(127)/dV(56) - B(216) = RCT(127)*V(40) -! B(217) = dA(128)/dV(8) - B(217) = RCT(128)*V(60) -! B(218) = dA(128)/dV(60) - B(218) = RCT(128)*V(8) -! B(219) = dA(129)/dV(29) - B(219) = RCT(129)*V(62) -! B(220) = dA(129)/dV(62) - B(220) = RCT(129)*V(29) -! B(221) = dA(130)/dV(29) - B(221) = RCT(130)*V(54) -! B(222) = dA(130)/dV(54) - B(222) = RCT(130)*V(29) -! B(223) = dA(131)/dV(43) - B(223) = RCT(131)*V(60) -! B(224) = dA(131)/dV(60) - B(224) = RCT(131)*V(43) -! B(225) = dA(132)/dV(43) - B(225) = RCT(132)*V(56) -! B(226) = dA(132)/dV(56) - B(226) = RCT(132)*V(43) -! B(227) = dA(133)/dV(33) - B(227) = RCT(133)*V(61) -! B(228) = dA(133)/dV(61) - B(228) = RCT(133)*V(33) -! B(229) = dA(134)/dV(33) - B(229) = RCT(134)*V(54) -! B(230) = dA(134)/dV(54) - B(230) = RCT(134)*V(33) -! B(231) = dA(135)/dV(25) - B(231) = RCT(135)*V(60) -! B(232) = dA(135)/dV(60) - B(232) = RCT(135)*V(25) -! B(233) = dA(136)/dV(25) - B(233) = RCT(136)*V(56) -! B(234) = dA(136)/dV(56) - B(234) = RCT(136)*V(25) -! B(235) = dA(137)/dV(39) - B(235) = RCT(137)*V(61) -! B(236) = dA(137)/dV(61) - B(236) = RCT(137)*V(39) -! B(237) = dA(138)/dV(39) - B(237) = RCT(138)*V(53) -! B(238) = dA(138)/dV(53) - B(238) = RCT(138)*V(39) -! B(239) = dA(139)/dV(32) - B(239) = RCT(139)*V(62) -! B(240) = dA(139)/dV(62) - B(240) = RCT(139)*V(32) -! B(241) = dA(140)/dV(32) - B(241) = RCT(140)*V(54) -! B(242) = dA(140)/dV(54) - B(242) = RCT(140)*V(32) -! B(243) = dA(141)/dV(18) - B(243) = RCT(141) -! B(244) = dA(142)/dV(18) - B(244) = RCT(142)*V(60) -! B(245) = dA(142)/dV(60) - B(245) = RCT(142)*V(18) -! B(246) = dA(143)/dV(45) - B(246) = RCT(143) -! B(247) = dA(144)/dV(45) - B(247) = RCT(144)*V(60) -! B(248) = dA(144)/dV(60) - B(248) = RCT(144)*V(45) -! B(249) = dA(145)/dV(45) - B(249) = RCT(145)*V(53) -! B(250) = dA(145)/dV(53) - B(250) = RCT(145)*V(45) -! B(251) = dA(146)/dV(45) - B(251) = RCT(146)*V(56) -! B(252) = dA(146)/dV(56) - B(252) = RCT(146)*V(45) -! B(253) = dA(147)/dV(24) - B(253) = RCT(147)*V(60) -! B(254) = dA(147)/dV(60) - B(254) = RCT(147)*V(24) -! B(255) = dA(148)/dV(24) - B(255) = RCT(148)*V(56) -! B(256) = dA(148)/dV(56) - B(256) = RCT(148)*V(24) -! B(257) = dA(149)/dV(35) - B(257) = RCT(149)*V(62) -! B(258) = dA(149)/dV(62) - B(258) = RCT(149)*V(35) -! B(259) = dA(150)/dV(35) - B(259) = RCT(150)*V(54) -! B(260) = dA(150)/dV(54) - B(260) = RCT(150)*V(35) -! B(261) = dA(151)/dV(31) - B(261) = RCT(151)*V(62) -! B(262) = dA(151)/dV(62) - B(262) = RCT(151)*V(31) -! B(263) = dA(152)/dV(31) - B(263) = RCT(152)*V(61) -! B(264) = dA(152)/dV(61) - B(264) = RCT(152)*V(31) -! B(265) = dA(153)/dV(7) - B(265) = RCT(153) -! B(266) = dA(154)/dV(15) - B(266) = RCT(154)*V(60) -! B(267) = dA(154)/dV(60) - B(267) = RCT(154)*V(15) -! B(268) = dA(155)/dV(37) - B(268) = RCT(155)*V(60) -! B(269) = dA(155)/dV(60) - B(269) = RCT(155)*V(37) -! B(270) = dA(156)/dV(37) - B(270) = RCT(156) -! B(271) = dA(157)/dV(46) - B(271) = RCT(157)*V(63) -! B(272) = dA(157)/dV(63) - B(272) = RCT(157)*V(46) -! B(273) = dA(158)/dV(46) - B(273) = RCT(158)*V(60) -! B(274) = dA(158)/dV(60) - B(274) = RCT(158)*V(46) -! B(275) = dA(159)/dV(46) - B(275) = RCT(159)*V(53) -! B(276) = dA(159)/dV(53) - B(276) = RCT(159)*V(46) -! B(277) = dA(160)/dV(46) - B(277) = RCT(160)*V(56) -! B(278) = dA(160)/dV(56) - B(278) = RCT(160)*V(46) -! B(279) = dA(161)/dV(47) - B(279) = RCT(161)*V(60) -! B(280) = dA(161)/dV(60) - B(280) = RCT(161)*V(47) -! B(281) = dA(162)/dV(47) - B(281) = RCT(162)*V(53) -! B(282) = dA(162)/dV(53) - B(282) = RCT(162)*V(47) -! B(283) = dA(163)/dV(47) - B(283) = RCT(163)*V(56) -! B(284) = dA(163)/dV(56) - B(284) = RCT(163)*V(47) -! B(285) = dA(164)/dV(47) - B(285) = RCT(164) -! B(286) = dA(165)/dV(42) - B(286) = RCT(165)*V(63) -! B(287) = dA(165)/dV(63) - B(287) = RCT(165)*V(42) -! B(288) = dA(166)/dV(42) - B(288) = RCT(166)*V(60) -! B(289) = dA(166)/dV(60) - B(289) = RCT(166)*V(42) -! B(290) = dA(167)/dV(42) - B(290) = RCT(167)*V(53) -! B(291) = dA(167)/dV(53) - B(291) = RCT(167)*V(42) -! B(292) = dA(168)/dV(42) - B(292) = RCT(168)*V(56) -! B(293) = dA(168)/dV(56) - B(293) = RCT(168)*V(42) -! B(294) = dA(169)/dV(4) - B(294) = RCT(169)*V(60) -! B(295) = dA(169)/dV(60) - B(295) = RCT(169)*V(4) -! B(296) = dA(170)/dV(11) - B(296) = RCT(170)*V(60) -! B(297) = dA(170)/dV(60) - B(297) = RCT(170)*V(11) -! B(298) = dA(171)/dV(9) - B(298) = RCT(171)*V(60) -! B(299) = dA(171)/dV(60) - B(299) = RCT(171)*V(9) -! B(300) = dA(172)/dV(46) - B(300) = RCT(172)*V(61) -! B(301) = dA(172)/dV(61) - B(301) = RCT(172)*V(46) -! B(302) = dA(173)/dV(4) - B(302) = RCT(173) - -! Construct the Jacobian terms from B's -! JVS(1) = Jac_FULL(1,1) - JVS(1) = 0 -! JVS(2) = Jac_FULL(1,4) - JVS(2) = B(294)+B(302) -! JVS(3) = Jac_FULL(1,60) - JVS(3) = B(295) -! JVS(4) = Jac_FULL(2,2) - JVS(4) = 0 -! JVS(5) = Jac_FULL(2,4) - JVS(5) = B(294) -! JVS(6) = Jac_FULL(2,60) - JVS(6) = B(295) -! JVS(7) = Jac_FULL(3,3) - JVS(7) = 0 -! JVS(8) = Jac_FULL(3,29) - JVS(8) = B(221) -! JVS(9) = Jac_FULL(3,35) - JVS(9) = B(259) -! JVS(10) = Jac_FULL(3,54) - JVS(10) = B(222)+B(260) -! JVS(11) = Jac_FULL(4,4) - JVS(11) = -B(294)-B(302) -! JVS(12) = Jac_FULL(4,60) - JVS(12) = -B(295) -! JVS(13) = Jac_FULL(5,5) - JVS(13) = -B(109) -! JVS(14) = Jac_FULL(5,60) - JVS(14) = -B(110) -! JVS(15) = Jac_FULL(6,6) - JVS(15) = -B(149)-B(150) -! JVS(16) = Jac_FULL(6,58) - JVS(16) = B(147) -! JVS(17) = Jac_FULL(6,61) - JVS(17) = B(148) -! JVS(18) = Jac_FULL(7,7) - JVS(18) = -B(265) -! JVS(19) = Jac_FULL(7,31) - JVS(19) = B(263) -! JVS(20) = Jac_FULL(7,61) - JVS(20) = B(264) -! JVS(21) = Jac_FULL(8,8) - JVS(21) = -B(217) -! JVS(22) = Jac_FULL(8,60) - JVS(22) = -B(218) -! JVS(23) = Jac_FULL(9,9) - JVS(23) = -B(298) -! JVS(24) = Jac_FULL(9,60) - JVS(24) = -B(299) -! JVS(25) = Jac_FULL(10,10) - JVS(25) = -B(119) -! JVS(26) = Jac_FULL(10,57) - JVS(26) = 0.63*B(115) -! JVS(27) = Jac_FULL(10,60) - JVS(27) = -B(120) -! JVS(28) = Jac_FULL(11,11) - JVS(28) = -B(296) -! JVS(29) = Jac_FULL(11,60) - JVS(29) = -B(297) -! JVS(30) = Jac_FULL(12,12) - JVS(30) = -B(31)-B(33)-B(35)-B(88) -! JVS(31) = Jac_FULL(12,56) - JVS(31) = B(29) -! JVS(32) = Jac_FULL(12,61) - JVS(32) = B(30) -! JVS(33) = Jac_FULL(13,13) - JVS(33) = -B(63)-B(65) -! JVS(34) = Jac_FULL(13,14) - JVS(34) = -B(64) -! JVS(35) = Jac_FULL(13,60) - JVS(35) = -B(66) -! JVS(36) = Jac_FULL(14,13) - JVS(36) = -B(63) -! JVS(37) = Jac_FULL(14,14) - JVS(37) = -B(15)-B(17)-B(64) -! JVS(38) = Jac_FULL(14,53) - JVS(38) = B(14) -! JVS(39) = Jac_FULL(14,60) - JVS(39) = 0 -! JVS(40) = Jac_FULL(15,15) - JVS(40) = -B(266) -! JVS(41) = Jac_FULL(15,60) - JVS(41) = -B(267) -! JVS(42) = Jac_FULL(16,16) - JVS(42) = -B(42)-B(43)-2*B(45) -! JVS(43) = Jac_FULL(16,60) - JVS(43) = B(40)-B(44) -! JVS(44) = Jac_FULL(16,61) - JVS(44) = 2*B(37) -! JVS(45) = Jac_FULL(16,62) - JVS(45) = 2*B(38)+B(41) -! JVS(46) = Jac_FULL(17,17) - JVS(46) = -B(60)-B(61)-B(75) -! JVS(47) = Jac_FULL(17,54) - JVS(47) = B(57)+B(58) -! JVS(48) = Jac_FULL(17,60) - JVS(48) = -B(62)+B(70) -! JVS(49) = Jac_FULL(17,63) - JVS(49) = -B(76) -! JVS(50) = Jac_FULL(18,18) - JVS(50) = -B(243)-B(244) -! JVS(51) = Jac_FULL(18,32) - JVS(51) = B(241) -! JVS(52) = Jac_FULL(18,54) - JVS(52) = B(242) -! JVS(53) = Jac_FULL(18,60) - JVS(53) = -B(245) -! JVS(54) = Jac_FULL(19,19) - JVS(54) = -B(136) -! JVS(55) = Jac_FULL(19,26) - JVS(55) = B(132) -! JVS(56) = Jac_FULL(19,38) - JVS(56) = 0.37*B(205) -! JVS(57) = Jac_FULL(19,53) - JVS(57) = 0.37*B(206) -! JVS(58) = Jac_FULL(19,60) - JVS(58) = -B(137) -! JVS(59) = Jac_FULL(19,62) - JVS(59) = B(133) -! JVS(60) = Jac_FULL(20,20) - JVS(60) = -B(158)-B(160) -! JVS(61) = Jac_FULL(20,54) - JVS(61) = 0.8*B(151)+0.8*B(178) -! JVS(62) = Jac_FULL(20,55) - JVS(62) = 0.8*B(179) -! JVS(63) = Jac_FULL(20,58) - JVS(63) = 0.8*B(152) -! JVS(64) = Jac_FULL(20,60) - JVS(64) = -B(159) -! JVS(65) = Jac_FULL(21,21) - JVS(65) = -B(161) -! JVS(66) = Jac_FULL(21,54) - JVS(66) = 0.2*B(151)+0.2*B(178) -! JVS(67) = Jac_FULL(21,55) - JVS(67) = 0.2*B(179)+0.1*B(180)+0.1*B(182) -! JVS(68) = Jac_FULL(21,57) - JVS(68) = 0.1*B(153)+0.1*B(181) -! JVS(69) = Jac_FULL(21,58) - JVS(69) = 0.2*B(152)+0.1*B(154)+0.1*B(155) -! JVS(70) = Jac_FULL(21,59) - JVS(70) = 0.1*B(156)+0.1*B(183) -! JVS(71) = Jac_FULL(21,60) - JVS(71) = -B(162) -! JVS(72) = Jac_FULL(22,22) - JVS(72) = -B(174)-B(175)-B(176) -! JVS(73) = Jac_FULL(22,55) - JVS(73) = B(172) -! JVS(74) = Jac_FULL(22,60) - JVS(74) = -B(177) -! JVS(75) = Jac_FULL(22,61) - JVS(75) = B(173) -! JVS(76) = Jac_FULL(23,23) - JVS(76) = -B(54)-B(55)-B(86) -! JVS(77) = Jac_FULL(23,54) - JVS(77) = B(52) -! JVS(78) = Jac_FULL(23,60) - JVS(78) = -B(56) -! JVS(79) = Jac_FULL(23,61) - JVS(79) = B(53) -! JVS(80) = Jac_FULL(24,24) - JVS(80) = -B(253)-B(255) -! JVS(81) = Jac_FULL(24,43) - JVS(81) = 0.732*B(223) -! JVS(82) = Jac_FULL(24,56) - JVS(82) = -B(256) -! JVS(83) = Jac_FULL(24,60) - JVS(83) = 0.732*B(224)-B(254) -! JVS(84) = Jac_FULL(25,25) - JVS(84) = -B(231)-B(233) -! JVS(85) = Jac_FULL(25,33) - JVS(85) = B(227) -! JVS(86) = Jac_FULL(25,56) - JVS(86) = -B(234) -! JVS(87) = Jac_FULL(25,60) - JVS(87) = -B(232) -! JVS(88) = Jac_FULL(25,61) - JVS(88) = B(228) -! JVS(89) = Jac_FULL(26,26) - JVS(89) = -B(131)-B(132)-B(134) -! JVS(90) = Jac_FULL(26,52) - JVS(90) = B(129) -! JVS(91) = Jac_FULL(26,54) - JVS(91) = B(130)-B(135) -! JVS(92) = Jac_FULL(26,62) - JVS(92) = -B(133) -! JVS(93) = Jac_FULL(27,27) - JVS(93) = -B(104)-B(106) -! JVS(94) = Jac_FULL(27,48) - JVS(94) = B(95) -! JVS(95) = Jac_FULL(27,54) - JVS(95) = B(93)+B(96) -! JVS(96) = Jac_FULL(27,59) - JVS(96) = B(94) -! JVS(97) = Jac_FULL(27,60) - JVS(97) = -B(105) -! JVS(98) = Jac_FULL(28,28) - JVS(98) = -0.98*B(189)-B(190)-B(191) -! JVS(99) = Jac_FULL(28,44) - JVS(99) = 0.76*B(187) -! JVS(100) = Jac_FULL(28,60) - JVS(100) = 0.76*B(188) -! JVS(101) = Jac_FULL(28,61) - JVS(101) = -B(192) -! JVS(102) = Jac_FULL(29,8) - JVS(102) = 0.65*B(217) -! JVS(103) = Jac_FULL(29,15) - JVS(103) = 0.3*B(266) -! JVS(104) = Jac_FULL(29,29) - JVS(104) = -B(219)-B(221) -! JVS(105) = Jac_FULL(29,54) - JVS(105) = -B(222) -! JVS(106) = Jac_FULL(29,60) - JVS(106) = 0.65*B(218)+0.3*B(267) -! JVS(107) = Jac_FULL(29,62) - JVS(107) = -B(220) -! JVS(108) = Jac_FULL(30,26) - JVS(108) = B(134) -! JVS(109) = Jac_FULL(30,30) - JVS(109) = -B(116)-B(118) -! JVS(110) = Jac_FULL(30,52) - JVS(110) = 0 -! JVS(111) = Jac_FULL(30,54) - JVS(111) = B(113)+B(135) -! JVS(112) = Jac_FULL(30,57) - JVS(112) = B(114) -! JVS(113) = Jac_FULL(30,60) - JVS(113) = -B(117) -! JVS(114) = Jac_FULL(30,62) - JVS(114) = 0 -! JVS(115) = Jac_FULL(31,7) - JVS(115) = B(265) -! JVS(116) = Jac_FULL(31,31) - JVS(116) = -B(261)-B(263) -! JVS(117) = Jac_FULL(31,45) - JVS(117) = 0.6*B(247)+B(251) -! JVS(118) = Jac_FULL(31,56) - JVS(118) = B(252) -! JVS(119) = Jac_FULL(31,60) - JVS(119) = 0.6*B(248) -! JVS(120) = Jac_FULL(31,61) - JVS(120) = -B(264) -! JVS(121) = Jac_FULL(31,62) - JVS(121) = -B(262) -! JVS(122) = Jac_FULL(32,18) - JVS(122) = B(244) -! JVS(123) = Jac_FULL(32,32) - JVS(123) = -B(239)-B(241) -! JVS(124) = Jac_FULL(32,39) - JVS(124) = B(237) -! JVS(125) = Jac_FULL(32,53) - JVS(125) = B(238) -! JVS(126) = Jac_FULL(32,54) - JVS(126) = -B(242) -! JVS(127) = Jac_FULL(32,60) - JVS(127) = B(245) -! JVS(128) = Jac_FULL(32,62) - JVS(128) = -B(240) -! JVS(129) = Jac_FULL(33,24) - JVS(129) = B(255) -! JVS(130) = Jac_FULL(33,33) - JVS(130) = -B(227)-B(229) -! JVS(131) = Jac_FULL(33,43) - JVS(131) = 0.06*B(223)+0.3*B(225) -! JVS(132) = Jac_FULL(33,54) - JVS(132) = -B(230) -! JVS(133) = Jac_FULL(33,56) - JVS(133) = 0.3*B(226)+B(256) -! JVS(134) = Jac_FULL(33,60) - JVS(134) = 0.06*B(224) -! JVS(135) = Jac_FULL(33,61) - JVS(135) = -B(228) -! JVS(136) = Jac_FULL(34,12) - JVS(136) = 2*B(31)+2*B(33) -! JVS(137) = Jac_FULL(34,24) - JVS(137) = B(255) -! JVS(138) = Jac_FULL(34,25) - JVS(138) = B(233) -! JVS(139) = Jac_FULL(34,33) - JVS(139) = 0 -! JVS(140) = Jac_FULL(34,34) - JVS(140) = -B(48)-B(87) -! JVS(141) = Jac_FULL(34,43) - JVS(141) = B(225) -! JVS(142) = Jac_FULL(34,45) - JVS(142) = B(251) -! JVS(143) = Jac_FULL(34,47) - JVS(143) = 0.15*B(283) -! JVS(144) = Jac_FULL(34,49) - JVS(144) = B(167) -! JVS(145) = Jac_FULL(34,50) - JVS(145) = B(142) -! JVS(146) = Jac_FULL(34,51) - JVS(146) = B(101) -! JVS(147) = Jac_FULL(34,52) - JVS(147) = B(127) -! JVS(148) = Jac_FULL(34,54) - JVS(148) = B(81) -! JVS(149) = Jac_FULL(34,56) - JVS(149) = B(82)+B(128)+B(143)+B(168)+B(226)+B(234)+B(252)+B(256)+0.15*B(284) -! JVS(150) = Jac_FULL(34,60) - JVS(150) = B(46)-B(49)+B(102) -! JVS(151) = Jac_FULL(34,61) - JVS(151) = B(47) -! JVS(152) = Jac_FULL(35,24) - JVS(152) = B(253) -! JVS(153) = Jac_FULL(35,35) - JVS(153) = -B(257)-B(259) -! JVS(154) = Jac_FULL(35,43) - JVS(154) = 0 -! JVS(155) = Jac_FULL(35,45) - JVS(155) = 0.4*B(247) -! JVS(156) = Jac_FULL(35,54) - JVS(156) = -B(260) -! JVS(157) = Jac_FULL(35,56) - JVS(157) = 0 -! JVS(158) = Jac_FULL(35,60) - JVS(158) = 0.4*B(248)+B(254) -! JVS(159) = Jac_FULL(35,62) - JVS(159) = -B(258) -! JVS(160) = Jac_FULL(36,29) - JVS(160) = 0.336*B(219) -! JVS(161) = Jac_FULL(36,35) - JVS(161) = 0.344*B(257) -! JVS(162) = Jac_FULL(36,36) - JVS(162) = -B(107) -! JVS(163) = Jac_FULL(36,37) - JVS(163) = B(270) -! JVS(164) = Jac_FULL(36,38) - JVS(164) = B(201)+0.63*B(205) -! JVS(165) = Jac_FULL(36,40) - JVS(165) = 0.1*B(209)+0.25*B(213) -! JVS(166) = Jac_FULL(36,41) - JVS(166) = 0.2*B(193)+0.33*B(197) -! JVS(167) = Jac_FULL(36,42) - JVS(167) = 0.001*B(290) -! JVS(168) = Jac_FULL(36,43) - JVS(168) = 0.06*B(223)+0.24*B(225) -! JVS(169) = Jac_FULL(36,45) - JVS(169) = B(246)+0.69*B(249) -! JVS(170) = Jac_FULL(36,46) - JVS(170) = 0.066*B(275) -! JVS(171) = Jac_FULL(36,47) - JVS(171) = 0.334*B(279)+0.225*B(281)+0.643*B(283)+0.333*B(285) -! JVS(172) = Jac_FULL(36,49) - JVS(172) = B(169) -! JVS(173) = Jac_FULL(36,50) - JVS(173) = B(144) -! JVS(174) = Jac_FULL(36,52) - JVS(174) = B(121)+B(123)+B(124)+B(125)+B(127) -! JVS(175) = Jac_FULL(36,53) - JVS(175) = 0.33*B(198)+0.63*B(206)+0.25*B(214)+0.69*B(250)+0.066*B(276)+0.225*B(282)+0.001*B(291) -! JVS(176) = Jac_FULL(36,54) - JVS(176) = 0 -! JVS(177) = Jac_FULL(36,56) - JVS(177) = B(128)+0.24*B(226)+0.643*B(284) -! JVS(178) = Jac_FULL(36,60) - JVS(178) = -B(108)+B(122)+0.06*B(224)+0.334*B(280) -! JVS(179) = Jac_FULL(36,62) - JVS(179) = 0.336*B(220)+0.344*B(258) -! JVS(180) = Jac_FULL(36,63) - JVS(180) = B(126)+0.2*B(194)+B(202)+0.1*B(210) -! JVS(181) = Jac_FULL(37,15) - JVS(181) = 0.8*B(266) -! JVS(182) = Jac_FULL(37,29) - JVS(182) = 0.52*B(219) -! JVS(183) = Jac_FULL(37,37) - JVS(183) = -B(268)-B(270) -! JVS(184) = Jac_FULL(37,43) - JVS(184) = 0.24*B(225) -! JVS(185) = Jac_FULL(37,45) - JVS(185) = 0.2*B(249) -! JVS(186) = Jac_FULL(37,47) - JVS(186) = 0.168*B(279)+0.85*B(281) -! JVS(187) = Jac_FULL(37,53) - JVS(187) = 0.2*B(250)+0.85*B(282) -! JVS(188) = Jac_FULL(37,54) - JVS(188) = 0 -! JVS(189) = Jac_FULL(37,56) - JVS(189) = 0.24*B(226) -! JVS(190) = Jac_FULL(37,60) - JVS(190) = 0.8*B(267)-B(269)+0.168*B(280) -! JVS(191) = Jac_FULL(37,62) - JVS(191) = 0.52*B(220) -! JVS(192) = Jac_FULL(38,38) - JVS(192) = -B(201)-B(203)-B(205)-B(207) -! JVS(193) = Jac_FULL(38,53) - JVS(193) = -B(206) -! JVS(194) = Jac_FULL(38,56) - JVS(194) = -B(208) -! JVS(195) = Jac_FULL(38,60) - JVS(195) = -B(204) -! JVS(196) = Jac_FULL(38,63) - JVS(196) = -B(202) -! JVS(197) = Jac_FULL(39,18) - JVS(197) = B(243) -! JVS(198) = Jac_FULL(39,25) - JVS(198) = B(231)+B(233) -! JVS(199) = Jac_FULL(39,32) - JVS(199) = B(239) -! JVS(200) = Jac_FULL(39,33) - JVS(200) = 0 -! JVS(201) = Jac_FULL(39,39) - JVS(201) = -B(235)-B(237) -! JVS(202) = Jac_FULL(39,43) - JVS(202) = 0 -! JVS(203) = Jac_FULL(39,53) - JVS(203) = -B(238) -! JVS(204) = Jac_FULL(39,54) - JVS(204) = 0 -! JVS(205) = Jac_FULL(39,56) - JVS(205) = B(234) -! JVS(206) = Jac_FULL(39,60) - JVS(206) = B(232) -! JVS(207) = Jac_FULL(39,61) - JVS(207) = -B(236) -! JVS(208) = Jac_FULL(39,62) - JVS(208) = B(240) -! JVS(209) = Jac_FULL(40,40) - JVS(209) = -B(209)-B(211)-B(213)-B(215) -! JVS(210) = Jac_FULL(40,53) - JVS(210) = -B(214) -! JVS(211) = Jac_FULL(40,56) - JVS(211) = -B(216) -! JVS(212) = Jac_FULL(40,60) - JVS(212) = -B(212) -! JVS(213) = Jac_FULL(40,63) - JVS(213) = -B(210) -! JVS(214) = Jac_FULL(41,41) - JVS(214) = -B(193)-B(195)-B(197)-B(199) -! JVS(215) = Jac_FULL(41,53) - JVS(215) = -B(198) -! JVS(216) = Jac_FULL(41,56) - JVS(216) = -B(200) -! JVS(217) = Jac_FULL(41,60) - JVS(217) = -B(196) -! JVS(218) = Jac_FULL(41,63) - JVS(218) = -B(194) -! JVS(219) = Jac_FULL(42,42) - JVS(219) = -B(286)-B(288)-B(290)-B(292) -! JVS(220) = Jac_FULL(42,53) - JVS(220) = -B(291) -! JVS(221) = Jac_FULL(42,56) - JVS(221) = -B(293) -! JVS(222) = Jac_FULL(42,60) - JVS(222) = -B(289) -! JVS(223) = Jac_FULL(42,63) - JVS(223) = -B(287) -! JVS(224) = Jac_FULL(43,8) - JVS(224) = 0.18*B(217) -! JVS(225) = Jac_FULL(43,15) - JVS(225) = 0.2*B(266) -! JVS(226) = Jac_FULL(43,33) - JVS(226) = B(229) -! JVS(227) = Jac_FULL(43,43) - JVS(227) = -B(223)-B(225) -! JVS(228) = Jac_FULL(43,54) - JVS(228) = B(230) -! JVS(229) = Jac_FULL(43,56) - JVS(229) = -B(226) -! JVS(230) = Jac_FULL(43,60) - JVS(230) = 0.18*B(218)-B(224)+0.2*B(267) -! JVS(231) = Jac_FULL(43,61) - JVS(231) = 0 -! JVS(232) = Jac_FULL(44,15) - JVS(232) = 1.1*B(266) -! JVS(233) = Jac_FULL(44,28) - JVS(233) = -2.1*B(189) -! JVS(234) = Jac_FULL(44,40) - JVS(234) = 0.1*B(209) -! JVS(235) = Jac_FULL(44,41) - JVS(235) = 0.2*B(193)-0.7*B(195)-B(197)-B(199) -! JVS(236) = Jac_FULL(44,42) - JVS(236) = 5.12*B(286)+1.66*B(288)+7*B(290) -! JVS(237) = Jac_FULL(44,44) - JVS(237) = -1.11*B(187) -! JVS(238) = Jac_FULL(44,46) - JVS(238) = 0.25*B(271)+0.35*B(275)+2.4*B(277)+2.4*B(300) -! JVS(239) = Jac_FULL(44,47) - JVS(239) = 1.565*B(279)+0.36*B(281)+1.282*B(283)+0.832*B(285) -! JVS(240) = Jac_FULL(44,51) - JVS(240) = -0.66*B(101)-0.66*B(103) -! JVS(241) = Jac_FULL(44,53) - JVS(241) = -B(198)+0.35*B(276)+0.36*B(282)+7*B(291) -! JVS(242) = Jac_FULL(44,56) - JVS(242) = -B(200)+2.4*B(278)+1.282*B(284) -! JVS(243) = Jac_FULL(44,60) - JVS(243) = -0.66*B(102)-1.11*B(188)-0.7*B(196)+1.1*B(267)+1.565*B(280)+1.66*B(289) -! JVS(244) = Jac_FULL(44,61) - JVS(244) = 2.4*B(301) -! JVS(245) = Jac_FULL(44,63) - JVS(245) = 0.2*B(194)+0.1*B(210)+0.25*B(272)+5.12*B(287) -! JVS(246) = Jac_FULL(45,29) - JVS(246) = 0.86*B(219) -! JVS(247) = Jac_FULL(45,43) - JVS(247) = 0.13*B(223)+0.12*B(225) -! JVS(248) = Jac_FULL(45,45) - JVS(248) = -B(246)-B(247)-B(249)-B(251) -! JVS(249) = Jac_FULL(45,53) - JVS(249) = -B(250) -! JVS(250) = Jac_FULL(45,54) - JVS(250) = 0 -! JVS(251) = Jac_FULL(45,56) - JVS(251) = 0.12*B(226)-B(252) -! JVS(252) = Jac_FULL(45,60) - JVS(252) = 0.13*B(224)-B(248) -! JVS(253) = Jac_FULL(45,61) - JVS(253) = 0 -! JVS(254) = Jac_FULL(45,62) - JVS(254) = 0.86*B(220) -! JVS(255) = Jac_FULL(46,46) - JVS(255) = -B(271)-B(273)-B(275)-B(277)-B(300) -! JVS(256) = Jac_FULL(46,53) - JVS(256) = -B(276) -! JVS(257) = Jac_FULL(46,56) - JVS(257) = -B(278) -! JVS(258) = Jac_FULL(46,60) - JVS(258) = -B(274) -! JVS(259) = Jac_FULL(46,61) - JVS(259) = -B(301) -! JVS(260) = Jac_FULL(46,63) - JVS(260) = -B(272) -! JVS(261) = Jac_FULL(47,46) - JVS(261) = 0.75*B(271)+0.912*B(273)+0.65*B(275)+0.2*B(277)+0.2*B(300) -! JVS(262) = Jac_FULL(47,47) - JVS(262) = -B(279)-B(281)-B(283)-B(285) -! JVS(263) = Jac_FULL(47,53) - JVS(263) = 0.65*B(276)-B(282) -! JVS(264) = Jac_FULL(47,56) - JVS(264) = 0.2*B(278)-B(284) -! JVS(265) = Jac_FULL(47,60) - JVS(265) = 0.912*B(274)-B(280) -! JVS(266) = Jac_FULL(47,61) - JVS(266) = 0.2*B(301) -! JVS(267) = Jac_FULL(47,63) - JVS(267) = 0.75*B(272) -! JVS(268) = Jac_FULL(48,9) - JVS(268) = 0.009*B(298) -! JVS(269) = Jac_FULL(48,28) - JVS(269) = 0.04*B(189) -! JVS(270) = Jac_FULL(48,41) - JVS(270) = 0.01*B(193)+0.09*B(199) -! JVS(271) = Jac_FULL(48,42) - JVS(271) = 0.25*B(288)+0.18*B(290)+0.25*B(292) -! JVS(272) = Jac_FULL(48,43) - JVS(272) = 0.06*B(223)+0.1*B(225) -! JVS(273) = Jac_FULL(48,44) - JVS(273) = 0.13*B(187) -! JVS(274) = Jac_FULL(48,46) - JVS(274) = 0.088*B(273) -! JVS(275) = Jac_FULL(48,47) - JVS(275) = 0 -! JVS(276) = Jac_FULL(48,48) - JVS(276) = -B(91)-B(95)-2*B(98)-B(99) -! JVS(277) = Jac_FULL(48,51) - JVS(277) = 0 -! JVS(278) = Jac_FULL(48,53) - JVS(278) = 0.18*B(291) -! JVS(279) = Jac_FULL(48,54) - JVS(279) = -B(96) -! JVS(280) = Jac_FULL(48,56) - JVS(280) = 0.09*B(200)+0.1*B(226)+0.25*B(293) -! JVS(281) = Jac_FULL(48,59) - JVS(281) = -B(100) -! JVS(282) = Jac_FULL(48,60) - JVS(282) = 0.13*B(188)+0.06*B(224)+0.088*B(274)+0.25*B(289)+0.009*B(299) -! JVS(283) = Jac_FULL(48,61) - JVS(283) = 0 -! JVS(284) = Jac_FULL(48,62) - JVS(284) = -B(92) -! JVS(285) = Jac_FULL(48,63) - JVS(285) = 0.01*B(194) -! JVS(286) = Jac_FULL(49,11) - JVS(286) = 0.05*B(296) -! JVS(287) = Jac_FULL(49,27) - JVS(287) = 0.5*B(104)+0.5*B(106) -! JVS(288) = Jac_FULL(49,28) - JVS(288) = 0.5*B(189) -! JVS(289) = Jac_FULL(49,31) - JVS(289) = B(261) -! JVS(290) = Jac_FULL(49,38) - JVS(290) = 0.22*B(203) -! JVS(291) = Jac_FULL(49,40) - JVS(291) = 0.66*B(209)+0.7*B(211)+0.35*B(213)+0.64*B(215) -! JVS(292) = Jac_FULL(49,41) - JVS(292) = 0.3*B(193)+0.62*B(195)+0.32*B(197)+0.56*B(199) -! JVS(293) = Jac_FULL(49,42) - JVS(293) = 0.15*B(286)+0.47*B(288)+0.21*B(290)+0.47*B(292) -! JVS(294) = Jac_FULL(49,43) - JVS(294) = 0.48*B(225) -! JVS(295) = Jac_FULL(49,44) - JVS(295) = 0.05*B(187) -! JVS(296) = Jac_FULL(49,45) - JVS(296) = 0.03*B(249) -! JVS(297) = Jac_FULL(49,46) - JVS(297) = 0.15*B(275)+0.8*B(277)+0.8*B(300) -! JVS(298) = Jac_FULL(49,47) - JVS(298) = 0.12*B(279)+0.357*B(283) -! JVS(299) = Jac_FULL(49,48) - JVS(299) = 0 -! JVS(300) = Jac_FULL(49,49) - JVS(300) = -B(163)-B(165)-B(167)-B(169) -! JVS(301) = Jac_FULL(49,51) - JVS(301) = 0.33*B(101)+0.33*B(103) -! JVS(302) = Jac_FULL(49,53) - JVS(302) = 0.32*B(198)+0.35*B(214)+0.03*B(250)+0.15*B(276)+0.21*B(291) -! JVS(303) = Jac_FULL(49,54) - JVS(303) = 0 -! JVS(304) = Jac_FULL(49,56) - JVS(304) = -B(168)+0.56*B(200)+0.64*B(216)+0.48*B(226)+0.8*B(278)+0.357*B(284)+0.47*B(293) -! JVS(305) = Jac_FULL(49,59) - JVS(305) = 0 -! JVS(306) = Jac_FULL(49,60) - JVS(306) = 0.33*B(102)+0.5*B(105)-B(166)+0.05*B(188)+0.62*B(196)+0.22*B(204)+0.7*B(212)+0.12*B(280)+0.47*B(289)+0.05& - &*B(297) -! JVS(307) = Jac_FULL(49,61) - JVS(307) = 0.8*B(301) -! JVS(308) = Jac_FULL(49,62) - JVS(308) = B(262) -! JVS(309) = Jac_FULL(49,63) - JVS(309) = -B(164)+0.3*B(194)+0.66*B(210)+0.15*B(287) -! JVS(310) = Jac_FULL(50,9) - JVS(310) = 0.991*B(298) -! JVS(311) = Jac_FULL(50,11) - JVS(311) = 0.9*B(296) -! JVS(312) = Jac_FULL(50,22) - JVS(312) = B(176) -! JVS(313) = Jac_FULL(50,27) - JVS(313) = 0.5*B(104)+0.5*B(106) -! JVS(314) = Jac_FULL(50,28) - JVS(314) = 0.6*B(189) -! JVS(315) = Jac_FULL(50,40) - JVS(315) = 1.24*B(209)+1.3*B(211)+0.65*B(213)+1.18*B(215) -! JVS(316) = Jac_FULL(50,41) - JVS(316) = 0.2*B(193)+0.33*B(195)+0.18*B(197)+0.35*B(199) -! JVS(317) = Jac_FULL(50,44) - JVS(317) = 0.06*B(187) -! JVS(318) = Jac_FULL(50,46) - JVS(318) = 0 -! JVS(319) = Jac_FULL(50,47) - JVS(319) = 0.252*B(279)+0.02*B(281)+0.067*B(285) -! JVS(320) = Jac_FULL(50,48) - JVS(320) = 0 -! JVS(321) = Jac_FULL(50,50) - JVS(321) = -B(138)-B(140)-B(142)-B(144) -! JVS(322) = Jac_FULL(50,51) - JVS(322) = 0.33*B(101)+0.33*B(103) -! JVS(323) = Jac_FULL(50,53) - JVS(323) = 0.18*B(198)+0.65*B(214)+0.02*B(282) -! JVS(324) = Jac_FULL(50,54) - JVS(324) = 0 -! JVS(325) = Jac_FULL(50,55) - JVS(325) = B(170)+0.9*B(180)+0.9*B(182)+2*B(184)+B(185) -! JVS(326) = Jac_FULL(50,56) - JVS(326) = -B(143)+0.35*B(200)+1.18*B(216) -! JVS(327) = Jac_FULL(50,57) - JVS(327) = 0.9*B(181) -! JVS(328) = Jac_FULL(50,58) - JVS(328) = B(186) -! JVS(329) = Jac_FULL(50,59) - JVS(329) = 0.9*B(183) -! JVS(330) = Jac_FULL(50,60) - JVS(330) = 0.33*B(102)+0.5*B(105)-B(141)+B(177)+0.06*B(188)+0.33*B(196)+1.3*B(212)+0.252*B(280)+0.9*B(297)+0.991& - &*B(299) -! JVS(331) = Jac_FULL(50,61) - JVS(331) = 0 -! JVS(332) = Jac_FULL(50,62) - JVS(332) = B(171) -! JVS(333) = Jac_FULL(50,63) - JVS(333) = -B(139)+0.2*B(194)+1.24*B(210) -! JVS(334) = Jac_FULL(51,28) - JVS(334) = B(191) -! JVS(335) = Jac_FULL(51,29) - JVS(335) = 0.14*B(219) -! JVS(336) = Jac_FULL(51,35) - JVS(336) = 0.14*B(257) -! JVS(337) = Jac_FULL(51,39) - JVS(337) = 2*B(235) -! JVS(338) = Jac_FULL(51,42) - JVS(338) = 0.53*B(292) -! JVS(339) = Jac_FULL(51,43) - JVS(339) = 0 -! JVS(340) = Jac_FULL(51,44) - JVS(340) = 0 -! JVS(341) = Jac_FULL(51,45) - JVS(341) = 0 -! JVS(342) = Jac_FULL(51,46) - JVS(342) = 0.8*B(277)+0.8*B(300) -! JVS(343) = Jac_FULL(51,47) - JVS(343) = 0.85*B(283) -! JVS(344) = Jac_FULL(51,48) - JVS(344) = B(91) -! JVS(345) = Jac_FULL(51,51) - JVS(345) = -B(101)-B(103) -! JVS(346) = Jac_FULL(51,53) - JVS(346) = 0 -! JVS(347) = Jac_FULL(51,54) - JVS(347) = 0 -! JVS(348) = Jac_FULL(51,56) - JVS(348) = 0.8*B(278)+0.85*B(284)+0.53*B(293) -! JVS(349) = Jac_FULL(51,59) - JVS(349) = 0 -! JVS(350) = Jac_FULL(51,60) - JVS(350) = -B(102) -! JVS(351) = Jac_FULL(51,61) - JVS(351) = B(192)+2*B(236)+0.8*B(301) -! JVS(352) = Jac_FULL(51,62) - JVS(352) = B(92)+0.14*B(220)+0.14*B(258) -! JVS(353) = Jac_FULL(51,63) - JVS(353) = 0 -! JVS(354) = Jac_FULL(52,10) - JVS(354) = B(119) -! JVS(355) = Jac_FULL(52,11) - JVS(355) = 0.1*B(296) -! JVS(356) = Jac_FULL(52,26) - JVS(356) = B(131) -! JVS(357) = Jac_FULL(52,29) - JVS(357) = 0.336*B(219) -! JVS(358) = Jac_FULL(52,30) - JVS(358) = B(118) -! JVS(359) = Jac_FULL(52,35) - JVS(359) = 0.344*B(257) -! JVS(360) = Jac_FULL(52,38) - JVS(360) = B(201)+1.56*B(203)+B(205)+2*B(207) -! JVS(361) = Jac_FULL(52,40) - JVS(361) = 0.25*B(213) -! JVS(362) = Jac_FULL(52,41) - JVS(362) = 0.2*B(193)+0.8*B(195)+0.74*B(197)+B(199) -! JVS(363) = Jac_FULL(52,42) - JVS(363) = 0.28*B(288)+0.24*B(290) -! JVS(364) = Jac_FULL(52,43) - JVS(364) = 0.06*B(223)+0.24*B(225) -! JVS(365) = Jac_FULL(52,45) - JVS(365) = 0.7*B(249) -! JVS(366) = Jac_FULL(52,46) - JVS(366) = 0.5*B(271)+0.629*B(273)+0.6*B(275) -! JVS(367) = Jac_FULL(52,47) - JVS(367) = 0.167*B(279)+0.15*B(281)+0.282*B(283)+0.9*B(285) -! JVS(368) = Jac_FULL(52,51) - JVS(368) = 0.33*B(101)+0.33*B(103) -! JVS(369) = Jac_FULL(52,52) - JVS(369) = -B(121)-B(123)-B(124)-B(125)-B(127)-B(129) -! JVS(370) = Jac_FULL(52,53) - JVS(370) = 0.74*B(198)+B(206)+0.25*B(214)+0.7*B(250)+0.6*B(276)+0.15*B(282)+0.24*B(291) -! JVS(371) = Jac_FULL(52,54) - JVS(371) = -B(130) -! JVS(372) = Jac_FULL(52,55) - JVS(372) = 0.1*B(180) -! JVS(373) = Jac_FULL(52,56) - JVS(373) = -B(128)+B(200)+2*B(208)+0.24*B(226)+0.282*B(284) -! JVS(374) = Jac_FULL(52,57) - JVS(374) = B(111)+1.37*B(115)+B(153)+0.1*B(181) -! JVS(375) = Jac_FULL(52,58) - JVS(375) = B(154) -! JVS(376) = Jac_FULL(52,59) - JVS(376) = 0 -! JVS(377) = Jac_FULL(52,60) - JVS(377) = 0.33*B(102)+B(120)-B(122)+0.8*B(196)+1.56*B(204)+0.06*B(224)+0.629*B(274)+0.167*B(280)+0.28*B(289)+0.1& - &*B(297) -! JVS(378) = Jac_FULL(52,61) - JVS(378) = 0 -! JVS(379) = Jac_FULL(52,62) - JVS(379) = B(112)+0.336*B(220)+0.344*B(258) -! JVS(380) = Jac_FULL(52,63) - JVS(380) = -B(126)+0.2*B(194)+B(202)+0.5*B(272) -! JVS(381) = Jac_FULL(53,38) - JVS(381) = -B(205) -! JVS(382) = Jac_FULL(53,39) - JVS(382) = -B(237) -! JVS(383) = Jac_FULL(53,40) - JVS(383) = -B(213) -! JVS(384) = Jac_FULL(53,41) - JVS(384) = -B(197) -! JVS(385) = Jac_FULL(53,42) - JVS(385) = -B(290) -! JVS(386) = Jac_FULL(53,43) - JVS(386) = 0 -! JVS(387) = Jac_FULL(53,45) - JVS(387) = -B(249) -! JVS(388) = Jac_FULL(53,46) - JVS(388) = -B(275) -! JVS(389) = Jac_FULL(53,47) - JVS(389) = -B(281) -! JVS(390) = Jac_FULL(53,53) - JVS(390) = -B(3)-B(11)-B(13)-B(14)-B(19)-B(21)-B(83)-B(198)-B(206)-B(214)-B(238)-B(250)-B(276)-B(282)-B(291) -! JVS(391) = Jac_FULL(53,54) - JVS(391) = -B(22)+0.2*B(151)+0.2*B(178) -! JVS(392) = Jac_FULL(53,55) - JVS(392) = 0.2*B(179) -! JVS(393) = Jac_FULL(53,56) - JVS(393) = -B(84) -! JVS(394) = Jac_FULL(53,58) - JVS(394) = 0.2*B(152) -! JVS(395) = Jac_FULL(53,60) - JVS(395) = -B(20) -! JVS(396) = Jac_FULL(53,61) - JVS(396) = -B(12) -! JVS(397) = Jac_FULL(53,62) - JVS(397) = -B(4) -! JVS(398) = Jac_FULL(53,63) - JVS(398) = B(2) -! JVS(399) = Jac_FULL(54,4) - JVS(399) = B(294) -! JVS(400) = Jac_FULL(54,8) - JVS(400) = 0.28*B(217) -! JVS(401) = Jac_FULL(54,9) - JVS(401) = B(298) -! JVS(402) = Jac_FULL(54,10) - JVS(402) = B(119) -! JVS(403) = Jac_FULL(54,11) - JVS(403) = B(296) -! JVS(404) = Jac_FULL(54,13) - JVS(404) = B(63)+B(65) -! JVS(405) = Jac_FULL(54,14) - JVS(405) = B(64) -! JVS(406) = Jac_FULL(54,15) - JVS(406) = 0.7*B(266) -! JVS(407) = Jac_FULL(54,17) - JVS(407) = B(61)+B(75) -! JVS(408) = Jac_FULL(54,19) - JVS(408) = B(136) -! JVS(409) = Jac_FULL(54,23) - JVS(409) = B(54)+0.61*B(86) -! JVS(410) = Jac_FULL(54,26) - JVS(410) = B(131)+B(132)-B(134) -! JVS(411) = Jac_FULL(54,27) - JVS(411) = B(106) -! JVS(412) = Jac_FULL(54,28) - JVS(412) = 0.94*B(189)+B(190) -! JVS(413) = Jac_FULL(54,29) - JVS(413) = 1.2*B(219)-B(221) -! JVS(414) = Jac_FULL(54,30) - JVS(414) = 0.3*B(116)+B(118) -! JVS(415) = Jac_FULL(54,31) - JVS(415) = B(261) -! JVS(416) = Jac_FULL(54,32) - JVS(416) = -B(241) -! JVS(417) = Jac_FULL(54,33) - JVS(417) = -B(229) -! JVS(418) = Jac_FULL(54,35) - JVS(418) = 1.2*B(257)-B(259) -! JVS(419) = Jac_FULL(54,36) - JVS(419) = B(107) -! JVS(420) = Jac_FULL(54,37) - JVS(420) = B(270) -! JVS(421) = Jac_FULL(54,38) - JVS(421) = 1.7*B(201)+B(203)+0.13*B(205) -! JVS(422) = Jac_FULL(54,39) - JVS(422) = 0 -! JVS(423) = Jac_FULL(54,40) - JVS(423) = 0.1*B(209)+B(211)+0.5*B(213)+B(215) -! JVS(424) = Jac_FULL(54,41) - JVS(424) = 0.3*B(193)+0.95*B(195)+0.44*B(197) -! JVS(425) = Jac_FULL(54,42) - JVS(425) = 0.75*B(288)+0.07*B(290)+0.28*B(292) -! JVS(426) = Jac_FULL(54,43) - JVS(426) = 1.12*B(223)+0.36*B(225) -! JVS(427) = Jac_FULL(54,44) - JVS(427) = 0.11*B(187) -! JVS(428) = Jac_FULL(54,45) - JVS(428) = B(246)+0.76*B(249) -! JVS(429) = Jac_FULL(54,46) - JVS(429) = 0.25*B(271)+0.912*B(273)+0.066*B(275)+0.8*B(277)+0.8*B(300) -! JVS(430) = Jac_FULL(54,47) - JVS(430) = 0.503*B(279)+0.154*B(281)+0.925*B(283)+1.033*B(285) -! JVS(431) = Jac_FULL(54,48) - JVS(431) = -B(95) -! JVS(432) = Jac_FULL(54,49) - JVS(432) = B(169) -! JVS(433) = Jac_FULL(54,50) - JVS(433) = B(144) -! JVS(434) = Jac_FULL(54,51) - JVS(434) = B(101)+B(103) -! JVS(435) = Jac_FULL(54,52) - JVS(435) = B(121)+2*B(123)+B(125)+B(127)-B(129) -! JVS(436) = Jac_FULL(54,53) - JVS(436) = B(19)-B(21)+0.44*B(198)+0.13*B(206)+0.5*B(214)+0.76*B(250)+0.066*B(276)+0.154*B(282)+0.07*B(291) -! JVS(437) = Jac_FULL(54,54) - JVS(437) = -B(22)-B(50)-B(52)-2*B(57)-2*B(58)-B(71)-B(73)-B(81)-B(93)-B(96)-B(113)-B(130)-B(135)-B(151)-B(178)-B(222)& - &-B(230)-B(242)-B(260) -! JVS(438) = Jac_FULL(54,55) - JVS(438) = B(170)-B(179)+B(180)+2*B(184)+B(185) -! JVS(439) = Jac_FULL(54,56) - JVS(439) = B(79)-B(82)+B(128)+B(216)+0.36*B(226)+0.8*B(278)+0.925*B(284)+0.28*B(293) -! JVS(440) = Jac_FULL(54,57) - JVS(440) = B(111)-B(114)+0.74*B(115)+0.9*B(153)+B(181) -! JVS(441) = Jac_FULL(54,58) - JVS(441) = -B(152)+0.9*B(154)+B(186) -! JVS(442) = Jac_FULL(54,59) - JVS(442) = -B(94) -! JVS(443) = Jac_FULL(54,60) - JVS(443) = B(20)+B(62)+B(66)+B(67)-B(72)+B(80)+B(102)+B(108)+0.3*B(117)+B(120)+B(122)+B(137)+0.11*B(188)+0.95*B(196)& - &+B(204)+B(212)+0.28*B(218)+1.12*B(224)+0.7*B(267)+0.912*B(274)+0.503*B(280)+0.75*B(289)+B(295)+B(297)+B(299) -! JVS(444) = Jac_FULL(54,61) - JVS(444) = -B(53)+0.8*B(301) -! JVS(445) = Jac_FULL(54,62) - JVS(445) = -B(51)+B(112)+B(133)+B(171)+1.2*B(220)+1.2*B(258)+B(262) -! JVS(446) = Jac_FULL(54,63) - JVS(446) = B(68)-B(74)+B(76)+B(126)+0.3*B(194)+1.7*B(202)+0.1*B(210)+0.25*B(272) -! JVS(447) = Jac_FULL(55,22) - JVS(447) = B(174)+B(175) -! JVS(448) = Jac_FULL(55,42) - JVS(448) = 0.39*B(290) -! JVS(449) = Jac_FULL(55,46) - JVS(449) = 0.25*B(271)+0.2*B(275) -! JVS(450) = Jac_FULL(55,47) - JVS(450) = 0.25*B(279)+0.075*B(283) -! JVS(451) = Jac_FULL(55,49) - JVS(451) = B(163)+B(165)+B(167) -! JVS(452) = Jac_FULL(55,51) - JVS(452) = 0 -! JVS(453) = Jac_FULL(55,53) - JVS(453) = 0.2*B(276)+0.39*B(291) -! JVS(454) = Jac_FULL(55,54) - JVS(454) = -B(178) -! JVS(455) = Jac_FULL(55,55) - JVS(455) = -B(170)-B(172)-B(179)-B(180)-B(182)-2*B(184)-B(185) -! JVS(456) = Jac_FULL(55,56) - JVS(456) = B(168)+0.075*B(284) -! JVS(457) = Jac_FULL(55,57) - JVS(457) = -B(181) -! JVS(458) = Jac_FULL(55,58) - JVS(458) = -B(186) -! JVS(459) = Jac_FULL(55,59) - JVS(459) = -B(183) -! JVS(460) = Jac_FULL(55,60) - JVS(460) = B(166)+0.25*B(280) -! JVS(461) = Jac_FULL(55,61) - JVS(461) = -B(173) -! JVS(462) = Jac_FULL(55,62) - JVS(462) = -B(171) -! JVS(463) = Jac_FULL(55,63) - JVS(463) = B(164)+0.25*B(272) -! JVS(464) = Jac_FULL(56,12) - JVS(464) = B(35)+B(88) -! JVS(465) = Jac_FULL(56,23) - JVS(465) = 0.39*B(86) -! JVS(466) = Jac_FULL(56,24) - JVS(466) = -B(255) -! JVS(467) = Jac_FULL(56,25) - JVS(467) = -B(233) -! JVS(468) = Jac_FULL(56,33) - JVS(468) = 0 -! JVS(469) = Jac_FULL(56,34) - JVS(469) = B(48) -! JVS(470) = Jac_FULL(56,38) - JVS(470) = -B(207) -! JVS(471) = Jac_FULL(56,40) - JVS(471) = -B(215) -! JVS(472) = Jac_FULL(56,41) - JVS(472) = -B(199) -! JVS(473) = Jac_FULL(56,42) - JVS(473) = -B(292) -! JVS(474) = Jac_FULL(56,43) - JVS(474) = -B(225) -! JVS(475) = Jac_FULL(56,45) - JVS(475) = -B(251) -! JVS(476) = Jac_FULL(56,46) - JVS(476) = -B(277) -! JVS(477) = Jac_FULL(56,47) - JVS(477) = -B(283) -! JVS(478) = Jac_FULL(56,49) - JVS(478) = -B(167) -! JVS(479) = Jac_FULL(56,50) - JVS(479) = -B(142) -! JVS(480) = Jac_FULL(56,51) - JVS(480) = 0 -! JVS(481) = Jac_FULL(56,52) - JVS(481) = -B(127) -! JVS(482) = Jac_FULL(56,53) - JVS(482) = B(11)-B(83) -! JVS(483) = Jac_FULL(56,54) - JVS(483) = -B(81) -! JVS(484) = Jac_FULL(56,55) - JVS(484) = 0 -! JVS(485) = Jac_FULL(56,56) - JVS(485) = -B(23)-B(24)-B(25)-B(27)-B(29)-B(77)-B(79)-B(82)-B(84)-2*B(85)-B(128)-B(143)-B(168)-B(200)-B(208)-B(216)& - &-B(226)-B(234)-B(252)-B(256)-B(278)-B(284)-B(293) -! JVS(486) = Jac_FULL(56,57) - JVS(486) = 0 -! JVS(487) = Jac_FULL(56,58) - JVS(487) = 0 -! JVS(488) = Jac_FULL(56,59) - JVS(488) = 0 -! JVS(489) = Jac_FULL(56,60) - JVS(489) = B(49)-B(80) -! JVS(490) = Jac_FULL(56,61) - JVS(490) = B(7)+B(12)-B(28)-B(30) -! JVS(491) = Jac_FULL(56,62) - JVS(491) = -B(26) -! JVS(492) = Jac_FULL(56,63) - JVS(492) = B(8)-B(78) -! JVS(493) = Jac_FULL(57,5) - JVS(493) = B(109) -! JVS(494) = Jac_FULL(57,20) - JVS(494) = B(160) -! JVS(495) = Jac_FULL(57,21) - JVS(495) = B(161) -! JVS(496) = Jac_FULL(57,30) - JVS(496) = 0.7*B(116) -! JVS(497) = Jac_FULL(57,49) - JVS(497) = B(169) -! JVS(498) = Jac_FULL(57,50) - JVS(498) = B(144) -! JVS(499) = Jac_FULL(57,51) - JVS(499) = 0 -! JVS(500) = Jac_FULL(57,52) - JVS(500) = 0 -! JVS(501) = Jac_FULL(57,53) - JVS(501) = 0 -! JVS(502) = Jac_FULL(57,54) - JVS(502) = -B(113) -! JVS(503) = Jac_FULL(57,55) - JVS(503) = -B(180)+B(185) -! JVS(504) = Jac_FULL(57,56) - JVS(504) = 0 -! JVS(505) = Jac_FULL(57,57) - JVS(505) = -B(111)-B(114)-2*B(115)-0.1*B(153)-B(181) -! JVS(506) = Jac_FULL(57,58) - JVS(506) = B(145)-0.1*B(154)+0.9*B(155)+2*B(157)+B(186) -! JVS(507) = Jac_FULL(57,59) - JVS(507) = 0.9*B(156) -! JVS(508) = Jac_FULL(57,60) - JVS(508) = B(110)+0.7*B(117)+B(162) -! JVS(509) = Jac_FULL(57,61) - JVS(509) = 0 -! JVS(510) = Jac_FULL(57,62) - JVS(510) = -B(112)+B(146) -! JVS(511) = Jac_FULL(57,63) - JVS(511) = 0 -! JVS(512) = Jac_FULL(58,6) - JVS(512) = B(149)+B(150) -! JVS(513) = Jac_FULL(58,20) - JVS(513) = B(158) -! JVS(514) = Jac_FULL(58,37) - JVS(514) = B(268)+B(270) -! JVS(515) = Jac_FULL(58,43) - JVS(515) = 0 -! JVS(516) = Jac_FULL(58,45) - JVS(516) = B(246)+0.62*B(249) -! JVS(517) = Jac_FULL(58,47) - JVS(517) = 0.21*B(279)+0.114*B(281)+0.967*B(285) -! JVS(518) = Jac_FULL(58,50) - JVS(518) = B(138)+B(140)+B(142) -! JVS(519) = Jac_FULL(58,51) - JVS(519) = 0 -! JVS(520) = Jac_FULL(58,53) - JVS(520) = 0.62*B(250)+0.114*B(282) -! JVS(521) = Jac_FULL(58,54) - JVS(521) = -B(151) -! JVS(522) = Jac_FULL(58,55) - JVS(522) = -B(185) -! JVS(523) = Jac_FULL(58,56) - JVS(523) = B(143) -! JVS(524) = Jac_FULL(58,57) - JVS(524) = -B(153) -! JVS(525) = Jac_FULL(58,58) - JVS(525) = -B(145)-B(147)-B(152)-B(154)-B(155)-2*B(157)-B(186) -! JVS(526) = Jac_FULL(58,59) - JVS(526) = -B(156) -! JVS(527) = Jac_FULL(58,60) - JVS(527) = B(141)+B(159)+B(269)+0.21*B(280) -! JVS(528) = Jac_FULL(58,61) - JVS(528) = -B(148) -! JVS(529) = Jac_FULL(58,62) - JVS(529) = -B(146) -! JVS(530) = Jac_FULL(58,63) - JVS(530) = B(139) -! JVS(531) = Jac_FULL(59,8) - JVS(531) = 0.1*B(217) -! JVS(532) = Jac_FULL(59,9) - JVS(532) = 0.991*B(298) -! JVS(533) = Jac_FULL(59,11) - JVS(533) = 0.1*B(296) -! JVS(534) = Jac_FULL(59,15) - JVS(534) = 0.5*B(266) -! JVS(535) = Jac_FULL(59,27) - JVS(535) = B(104) -! JVS(536) = Jac_FULL(59,28) - JVS(536) = 0.96*B(189) -! JVS(537) = Jac_FULL(59,30) - JVS(537) = 0.3*B(116) -! JVS(538) = Jac_FULL(59,31) - JVS(538) = B(261) -! JVS(539) = Jac_FULL(59,37) - JVS(539) = B(268) -! JVS(540) = Jac_FULL(59,38) - JVS(540) = 0.7*B(201)+B(203)+B(207) -! JVS(541) = Jac_FULL(59,40) - JVS(541) = 0.1*B(209)+B(211) -! JVS(542) = Jac_FULL(59,41) - JVS(542) = 0.2*B(193)+0.8*B(195)+0.22*B(197)+0.91*B(199) -! JVS(543) = Jac_FULL(59,42) - JVS(543) = 1.25*B(288)+0.76*B(290)+1.03*B(292) -! JVS(544) = Jac_FULL(59,43) - JVS(544) = 0.12*B(223)+0.6*B(225) -! JVS(545) = Jac_FULL(59,44) - JVS(545) = 0.87*B(187) -! JVS(546) = Jac_FULL(59,45) - JVS(546) = 0.03*B(249) -! JVS(547) = Jac_FULL(59,46) - JVS(547) = 0.25*B(271)+0.991*B(273)+0.2*B(275)+B(277)+B(300) -! JVS(548) = Jac_FULL(59,47) - JVS(548) = 0.713*B(279)+0.064*B(281)+0.075*B(283)+0.7*B(285) -! JVS(549) = Jac_FULL(59,48) - JVS(549) = -B(99) -! JVS(550) = Jac_FULL(59,51) - JVS(550) = 0 -! JVS(551) = Jac_FULL(59,52) - JVS(551) = 0 -! JVS(552) = Jac_FULL(59,53) - JVS(552) = 0.22*B(198)+0.03*B(250)+0.2*B(276)+0.064*B(282)+0.76*B(291) -! JVS(553) = Jac_FULL(59,54) - JVS(553) = -B(93) -! JVS(554) = Jac_FULL(59,55) - JVS(554) = B(170)+0.9*B(180)-B(182)+2*B(184)+B(185) -! JVS(555) = Jac_FULL(59,56) - JVS(555) = 0.91*B(200)+B(208)+0.6*B(226)+B(278)+0.075*B(284)+1.03*B(293) -! JVS(556) = Jac_FULL(59,57) - JVS(556) = 0.9*B(181) -! JVS(557) = Jac_FULL(59,58) - JVS(557) = -B(155)+B(186) -! JVS(558) = Jac_FULL(59,59) - JVS(558) = -B(89)-B(94)-2*B(97)-B(100)-B(156)-B(183) -! JVS(559) = Jac_FULL(59,60) - JVS(559) = B(105)+0.3*B(117)+0.87*B(188)+0.8*B(196)+B(204)+B(212)+0.1*B(218)+0.12*B(224)+0.5*B(267)+B(269)+0.991& - &*B(274)+0.713*B(280)+1.25*B(289)+0.1*B(297)+0.991*B(299) -! JVS(560) = Jac_FULL(59,61) - JVS(560) = B(301) -! JVS(561) = Jac_FULL(59,62) - JVS(561) = -B(90)+B(171)+B(262) -! JVS(562) = Jac_FULL(59,63) - JVS(562) = 0.2*B(194)+0.7*B(202)+0.1*B(210)+0.25*B(272) -! JVS(563) = Jac_FULL(60,4) - JVS(563) = -B(294) -! JVS(564) = Jac_FULL(60,5) - JVS(564) = -B(109) -! JVS(565) = Jac_FULL(60,8) - JVS(565) = -0.928*B(217) -! JVS(566) = Jac_FULL(60,9) - JVS(566) = -B(298) -! JVS(567) = Jac_FULL(60,10) - JVS(567) = -B(119) -! JVS(568) = Jac_FULL(60,11) - JVS(568) = -B(296) -! JVS(569) = Jac_FULL(60,13) - JVS(569) = B(63)-B(65) -! JVS(570) = Jac_FULL(60,14) - JVS(570) = 2*B(17)+B(64) -! JVS(571) = Jac_FULL(60,15) - JVS(571) = -B(266) -! JVS(572) = Jac_FULL(60,16) - JVS(572) = B(42)-B(43) -! JVS(573) = Jac_FULL(60,17) - JVS(573) = 2*B(60)-B(61)+B(75) -! JVS(574) = Jac_FULL(60,18) - JVS(574) = B(243)-B(244) -! JVS(575) = Jac_FULL(60,19) - JVS(575) = -B(136) -! JVS(576) = Jac_FULL(60,20) - JVS(576) = -B(158)+B(160) -! JVS(577) = Jac_FULL(60,21) - JVS(577) = -B(161) -! JVS(578) = Jac_FULL(60,22) - JVS(578) = -B(176) -! JVS(579) = Jac_FULL(60,23) - JVS(579) = -B(55)+0.39*B(86) -! JVS(580) = Jac_FULL(60,24) - JVS(580) = -B(253) -! JVS(581) = Jac_FULL(60,25) - JVS(581) = -B(231) -! JVS(582) = Jac_FULL(60,26) - JVS(582) = 0 -! JVS(583) = Jac_FULL(60,27) - JVS(583) = -B(104)+B(106) -! JVS(584) = Jac_FULL(60,30) - JVS(584) = -B(116)+B(118) -! JVS(585) = Jac_FULL(60,32) - JVS(585) = 0 -! JVS(586) = Jac_FULL(60,33) - JVS(586) = 0 -! JVS(587) = Jac_FULL(60,34) - JVS(587) = -B(48)+B(87) -! JVS(588) = Jac_FULL(60,36) - JVS(588) = -B(107) -! JVS(589) = Jac_FULL(60,37) - JVS(589) = -B(268) -! JVS(590) = Jac_FULL(60,38) - JVS(590) = 0.3*B(201)-B(203)+0.13*B(205) -! JVS(591) = Jac_FULL(60,39) - JVS(591) = 0 -! JVS(592) = Jac_FULL(60,40) - JVS(592) = -B(211)+0.5*B(213) -! JVS(593) = Jac_FULL(60,41) - JVS(593) = 0.1*B(193)-B(195)+0.1*B(197) -! JVS(594) = Jac_FULL(60,42) - JVS(594) = -B(288)+0.57*B(290) -! JVS(595) = Jac_FULL(60,43) - JVS(595) = -B(223) -! JVS(596) = Jac_FULL(60,44) - JVS(596) = -B(187) -! JVS(597) = Jac_FULL(60,45) - JVS(597) = -B(247)+0.08*B(249) -! JVS(598) = Jac_FULL(60,46) - JVS(598) = -B(273)+0.266*B(275) -! JVS(599) = Jac_FULL(60,47) - JVS(599) = -B(279)+0.268*B(281) -! JVS(600) = Jac_FULL(60,48) - JVS(600) = 0 -! JVS(601) = Jac_FULL(60,49) - JVS(601) = B(163)-B(165) -! JVS(602) = Jac_FULL(60,50) - JVS(602) = B(138)-B(140) -! JVS(603) = Jac_FULL(60,51) - JVS(603) = -B(101) -! JVS(604) = Jac_FULL(60,52) - JVS(604) = -B(121)+B(125) -! JVS(605) = Jac_FULL(60,53) - JVS(605) = -B(19)+B(21)+0.1*B(198)+0.13*B(206)+0.5*B(214)+0.08*B(250)+0.266*B(276)+0.268*B(282)+0.57*B(291) -! JVS(606) = Jac_FULL(60,54) - JVS(606) = B(22)+B(50)-B(71)+B(73) -! JVS(607) = Jac_FULL(60,55) - JVS(607) = 0 -! JVS(608) = Jac_FULL(60,56) - JVS(608) = -B(79) -! JVS(609) = Jac_FULL(60,57) - JVS(609) = 0 -! JVS(610) = Jac_FULL(60,58) - JVS(610) = 0 -! JVS(611) = Jac_FULL(60,59) - JVS(611) = 0 -! JVS(612) = Jac_FULL(60,60) - JVS(612) = -B(20)-B(40)-B(44)-B(46)-B(49)-B(56)-B(62)-B(66)-B(67)-2*B(69)-2*B(70)-B(72)-B(80)-B(102)-B(105)-B(108)& - &-B(110)-B(117)-B(120)-B(122)-B(137)-B(141)-B(159)-B(162)-B(166)-B(177)-B(188)-B(196)-B(204)-B(212)-0.928& - &*B(218)-B(224)-B(232)-B(245)-B(248)-B(254)-B(267)-B(269)-B(274)-B(280)-B(289)-B(295)-B(297)-B(299) -! JVS(613) = Jac_FULL(60,61) - JVS(613) = -B(47) -! JVS(614) = Jac_FULL(60,62) - JVS(614) = -B(41)+B(51) -! JVS(615) = Jac_FULL(60,63) - JVS(615) = -B(68)+B(74)+B(76)+B(126)+B(139)+B(164)+0.1*B(194)+0.3*B(202) -! JVS(616) = Jac_FULL(61,6) - JVS(616) = B(149)+B(150) -! JVS(617) = Jac_FULL(61,7) - JVS(617) = B(265) -! JVS(618) = Jac_FULL(61,12) - JVS(618) = B(35)+B(88) -! JVS(619) = Jac_FULL(61,16) - JVS(619) = B(43)+B(45) -! JVS(620) = Jac_FULL(61,22) - JVS(620) = B(174)+B(175)+B(176) -! JVS(621) = Jac_FULL(61,23) - JVS(621) = B(54)+B(55)+0.61*B(86) -! JVS(622) = Jac_FULL(61,26) - JVS(622) = B(132) -! JVS(623) = Jac_FULL(61,28) - JVS(623) = -B(191) -! JVS(624) = Jac_FULL(61,29) - JVS(624) = 0.86*B(219) -! JVS(625) = Jac_FULL(61,31) - JVS(625) = B(261)-B(263) -! JVS(626) = Jac_FULL(61,32) - JVS(626) = B(239) -! JVS(627) = Jac_FULL(61,33) - JVS(627) = -B(227) -! JVS(628) = Jac_FULL(61,34) - JVS(628) = B(87) -! JVS(629) = Jac_FULL(61,35) - JVS(629) = 0.86*B(257) -! JVS(630) = Jac_FULL(61,38) - JVS(630) = B(207) -! JVS(631) = Jac_FULL(61,39) - JVS(631) = -B(235) -! JVS(632) = Jac_FULL(61,40) - JVS(632) = B(215) -! JVS(633) = Jac_FULL(61,41) - JVS(633) = B(199) -! JVS(634) = Jac_FULL(61,42) - JVS(634) = 0.47*B(292) -! JVS(635) = Jac_FULL(61,43) - JVS(635) = 0 -! JVS(636) = Jac_FULL(61,44) - JVS(636) = 0 -! JVS(637) = Jac_FULL(61,45) - JVS(637) = 0 -! JVS(638) = Jac_FULL(61,46) - JVS(638) = 0.2*B(277)-B(300) -! JVS(639) = Jac_FULL(61,47) - JVS(639) = 0 -! JVS(640) = Jac_FULL(61,49) - JVS(640) = 0 -! JVS(641) = Jac_FULL(61,50) - JVS(641) = 0 -! JVS(642) = Jac_FULL(61,51) - JVS(642) = B(103) -! JVS(643) = Jac_FULL(61,52) - JVS(643) = 0 -! JVS(644) = Jac_FULL(61,53) - JVS(644) = B(3)-B(11)+B(83) -! JVS(645) = Jac_FULL(61,54) - JVS(645) = B(50)-B(52) -! JVS(646) = Jac_FULL(61,55) - JVS(646) = B(170)-B(172) -! JVS(647) = Jac_FULL(61,56) - JVS(647) = B(23)+2*B(25)-B(29)+B(77)+B(79)+B(84)+2*B(85)+B(200)+B(208)+B(216)+0.2*B(278)+0.47*B(293) -! JVS(648) = Jac_FULL(61,57) - JVS(648) = B(111) -! JVS(649) = Jac_FULL(61,58) - JVS(649) = B(145)-B(147) -! JVS(650) = Jac_FULL(61,59) - JVS(650) = B(89) -! JVS(651) = Jac_FULL(61,60) - JVS(651) = B(44)-B(46)+B(56)+B(80)+B(177) -! JVS(652) = Jac_FULL(61,61) - JVS(652) = -B(1)-B(5)-B(7)-B(12)-B(30)-B(37)-B(47)-B(53)-B(148)-B(173)-B(192)-B(228)-B(236)-B(264)-B(301) -! JVS(653) = Jac_FULL(61,62) - JVS(653) = B(4)+B(9)+2*B(26)+2*B(36)-B(38)+B(51)+B(90)+B(112)+B(133)+B(146)+B(171)+0.86*B(220)+B(240)+0.86*B(258)& - &+B(262) -! JVS(654) = Jac_FULL(61,63) - JVS(654) = -B(6)-B(8)+B(10)+B(78) -! JVS(655) = Jac_FULL(62,16) - JVS(655) = B(42)+B(45) -! JVS(656) = Jac_FULL(62,26) - JVS(656) = -B(132) -! JVS(657) = Jac_FULL(62,29) - JVS(657) = -B(219) -! JVS(658) = Jac_FULL(62,31) - JVS(658) = -B(261) -! JVS(659) = Jac_FULL(62,32) - JVS(659) = -B(239) -! JVS(660) = Jac_FULL(62,35) - JVS(660) = -B(257) -! JVS(661) = Jac_FULL(62,39) - JVS(661) = 0 -! JVS(662) = Jac_FULL(62,43) - JVS(662) = 0 -! JVS(663) = Jac_FULL(62,45) - JVS(663) = 0 -! JVS(664) = Jac_FULL(62,46) - JVS(664) = 0.2*B(300) -! JVS(665) = Jac_FULL(62,48) - JVS(665) = -B(91) -! JVS(666) = Jac_FULL(62,51) - JVS(666) = 0 -! JVS(667) = Jac_FULL(62,52) - JVS(667) = 0 -! JVS(668) = Jac_FULL(62,53) - JVS(668) = -B(3) -! JVS(669) = Jac_FULL(62,54) - JVS(669) = -B(50) -! JVS(670) = Jac_FULL(62,55) - JVS(670) = -B(170) -! JVS(671) = Jac_FULL(62,56) - JVS(671) = B(24)-B(25)+B(27) -! JVS(672) = Jac_FULL(62,57) - JVS(672) = -B(111) -! JVS(673) = Jac_FULL(62,58) - JVS(673) = -B(145) -! JVS(674) = Jac_FULL(62,59) - JVS(674) = -B(89) -! JVS(675) = Jac_FULL(62,60) - JVS(675) = -B(40) -! JVS(676) = Jac_FULL(62,61) - JVS(676) = B(1)+B(5)+B(28)-B(37)+0.2*B(301) -! JVS(677) = Jac_FULL(62,62) - JVS(677) = -B(4)-B(9)-B(26)-2*B(36)-B(38)-B(41)-B(51)-B(90)-B(92)-B(112)-B(133)-B(146)-B(171)-B(220)-B(240)-B(258)& - &-B(262) -! JVS(678) = Jac_FULL(62,63) - JVS(678) = B(6)-B(10) -! JVS(679) = Jac_FULL(63,14) - JVS(679) = B(15) -! JVS(680) = Jac_FULL(63,17) - JVS(680) = -B(75) -! JVS(681) = Jac_FULL(63,38) - JVS(681) = -B(201) -! JVS(682) = Jac_FULL(63,40) - JVS(682) = -B(209)+0.5*B(213) -! JVS(683) = Jac_FULL(63,41) - JVS(683) = -B(193) -! JVS(684) = Jac_FULL(63,42) - JVS(684) = -B(286) -! JVS(685) = Jac_FULL(63,46) - JVS(685) = -B(271) -! JVS(686) = Jac_FULL(63,49) - JVS(686) = -B(163) -! JVS(687) = Jac_FULL(63,50) - JVS(687) = -B(138) -! JVS(688) = Jac_FULL(63,51) - JVS(688) = 0 -! JVS(689) = Jac_FULL(63,52) - JVS(689) = -B(125) -! JVS(690) = Jac_FULL(63,53) - JVS(690) = B(13)+0.5*B(214) -! JVS(691) = Jac_FULL(63,54) - JVS(691) = -B(73) -! JVS(692) = Jac_FULL(63,55) - JVS(692) = 0 -! JVS(693) = Jac_FULL(63,56) - JVS(693) = B(23)-B(77) -! JVS(694) = Jac_FULL(63,57) - JVS(694) = 0 -! JVS(695) = Jac_FULL(63,58) - JVS(695) = 0 -! JVS(696) = Jac_FULL(63,59) - JVS(696) = 0 -! JVS(697) = Jac_FULL(63,60) - JVS(697) = -B(67)+B(69) -! JVS(698) = Jac_FULL(63,61) - JVS(698) = B(1)-B(5)-B(7) -! JVS(699) = Jac_FULL(63,62) - JVS(699) = -B(9) -! JVS(700) = Jac_FULL(63,63) - JVS(700) = -B(2)-B(6)-B(8)-B(10)-B(68)-B(74)-B(76)-B(78)-B(126)-B(139)-B(164)-B(194)-B(202)-B(210)-B(272)-B(287) - -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(4)+JVS(3)*UV(60) - JUV(2) = JVS(4)*UV(2)+JVS(5)*UV(4)+JVS(6)*UV(60) - JUV(3) = JVS(7)*UV(3)+JVS(8)*UV(29)+JVS(9)*UV(35)+JVS(10)*UV(54) - JUV(4) = JVS(11)*UV(4)+JVS(12)*UV(60) - JUV(5) = JVS(13)*UV(5)+JVS(14)*UV(60) - JUV(6) = JVS(15)*UV(6)+JVS(16)*UV(58)+JVS(17)*UV(61) - JUV(7) = JVS(18)*UV(7)+JVS(19)*UV(31)+JVS(20)*UV(61) - JUV(8) = JVS(21)*UV(8)+JVS(22)*UV(60) - JUV(9) = JVS(23)*UV(9)+JVS(24)*UV(60) - JUV(10) = JVS(25)*UV(10)+JVS(26)*UV(57)+JVS(27)*UV(60) - JUV(11) = JVS(28)*UV(11)+JVS(29)*UV(60) - JUV(12) = JVS(30)*UV(12)+JVS(31)*UV(56)+JVS(32)*UV(61) - JUV(13) = JVS(33)*UV(13)+JVS(34)*UV(14)+JVS(35)*UV(60) - JUV(14) = JVS(36)*UV(13)+JVS(37)*UV(14)+JVS(38)*UV(53) - JUV(15) = JVS(40)*UV(15)+JVS(41)*UV(60) - JUV(16) = JVS(42)*UV(16)+JVS(43)*UV(60)+JVS(44)*UV(61)+JVS(45)*UV(62) - JUV(17) = JVS(46)*UV(17)+JVS(47)*UV(54)+JVS(48)*UV(60)+JVS(49)*UV(63) - JUV(18) = JVS(50)*UV(18)+JVS(51)*UV(32)+JVS(52)*UV(54)+JVS(53)*UV(60) - JUV(19) = JVS(54)*UV(19)+JVS(55)*UV(26)+JVS(56)*UV(38)+JVS(57)*UV(53)+JVS(58)*UV(60)+JVS(59)*UV(62) - JUV(20) = JVS(60)*UV(20)+JVS(61)*UV(54)+JVS(62)*UV(55)+JVS(63)*UV(58)+JVS(64)*UV(60) - JUV(21) = JVS(65)*UV(21)+JVS(66)*UV(54)+JVS(67)*UV(55)+JVS(68)*UV(57)+JVS(69)*UV(58)+JVS(70)*UV(59)+JVS(71)*UV(60) - JUV(22) = JVS(72)*UV(22)+JVS(73)*UV(55)+JVS(74)*UV(60)+JVS(75)*UV(61) - JUV(23) = JVS(76)*UV(23)+JVS(77)*UV(54)+JVS(78)*UV(60)+JVS(79)*UV(61) - JUV(24) = JVS(80)*UV(24)+JVS(81)*UV(43)+JVS(82)*UV(56)+JVS(83)*UV(60) - JUV(25) = JVS(84)*UV(25)+JVS(85)*UV(33)+JVS(86)*UV(56)+JVS(87)*UV(60)+JVS(88)*UV(61) - JUV(26) = JVS(89)*UV(26)+JVS(90)*UV(52)+JVS(91)*UV(54)+JVS(92)*UV(62) - JUV(27) = JVS(93)*UV(27)+JVS(94)*UV(48)+JVS(95)*UV(54)+JVS(96)*UV(59)+JVS(97)*UV(60) - JUV(28) = JVS(98)*UV(28)+JVS(99)*UV(44)+JVS(100)*UV(60)+JVS(101)*UV(61) - JUV(29) = JVS(102)*UV(8)+JVS(103)*UV(15)+JVS(104)*UV(29)+JVS(105)*UV(54)+JVS(106)*UV(60)+JVS(107)*UV(62) - JUV(30) = JVS(108)*UV(26)+JVS(109)*UV(30)+JVS(111)*UV(54)+JVS(112)*UV(57)+JVS(113)*UV(60) - JUV(31) = JVS(115)*UV(7)+JVS(116)*UV(31)+JVS(117)*UV(45)+JVS(118)*UV(56)+JVS(119)*UV(60)+JVS(120)*UV(61)+JVS(121)& - &*UV(62) - JUV(32) = JVS(122)*UV(18)+JVS(123)*UV(32)+JVS(124)*UV(39)+JVS(125)*UV(53)+JVS(126)*UV(54)+JVS(127)*UV(60)+JVS(128)& - &*UV(62) - JUV(33) = JVS(129)*UV(24)+JVS(130)*UV(33)+JVS(131)*UV(43)+JVS(132)*UV(54)+JVS(133)*UV(56)+JVS(134)*UV(60)+JVS(135)& - &*UV(61) - JUV(34) = JVS(136)*UV(12)+JVS(137)*UV(24)+JVS(138)*UV(25)+JVS(140)*UV(34)+JVS(141)*UV(43)+JVS(142)*UV(45)+JVS(143)& - &*UV(47)+JVS(144)*UV(49)+JVS(145)*UV(50)+JVS(146)*UV(51)+JVS(147)*UV(52)+JVS(148)*UV(54)+JVS(149)*UV(56)& - &+JVS(150)*UV(60)+JVS(151)*UV(61) - JUV(35) = JVS(152)*UV(24)+JVS(153)*UV(35)+JVS(155)*UV(45)+JVS(156)*UV(54)+JVS(158)*UV(60)+JVS(159)*UV(62) - JUV(36) = JVS(160)*UV(29)+JVS(161)*UV(35)+JVS(162)*UV(36)+JVS(163)*UV(37)+JVS(164)*UV(38)+JVS(165)*UV(40)+JVS(166)& - &*UV(41)+JVS(167)*UV(42)+JVS(168)*UV(43)+JVS(169)*UV(45)+JVS(170)*UV(46)+JVS(171)*UV(47)+JVS(172)*UV(49)& - &+JVS(173)*UV(50)+JVS(174)*UV(52)+JVS(175)*UV(53)+JVS(177)*UV(56)+JVS(178)*UV(60)+JVS(179)*UV(62)+JVS(180)& - &*UV(63) - JUV(37) = JVS(181)*UV(15)+JVS(182)*UV(29)+JVS(183)*UV(37)+JVS(184)*UV(43)+JVS(185)*UV(45)+JVS(186)*UV(47)+JVS(187)& - &*UV(53)+JVS(189)*UV(56)+JVS(190)*UV(60)+JVS(191)*UV(62) - JUV(38) = JVS(192)*UV(38)+JVS(193)*UV(53)+JVS(194)*UV(56)+JVS(195)*UV(60)+JVS(196)*UV(63) - JUV(39) = JVS(197)*UV(18)+JVS(198)*UV(25)+JVS(199)*UV(32)+JVS(201)*UV(39)+JVS(203)*UV(53)+JVS(205)*UV(56)+JVS(206)& - &*UV(60)+JVS(207)*UV(61)+JVS(208)*UV(62) - JUV(40) = JVS(209)*UV(40)+JVS(210)*UV(53)+JVS(211)*UV(56)+JVS(212)*UV(60)+JVS(213)*UV(63) - JUV(41) = JVS(214)*UV(41)+JVS(215)*UV(53)+JVS(216)*UV(56)+JVS(217)*UV(60)+JVS(218)*UV(63) - JUV(42) = JVS(219)*UV(42)+JVS(220)*UV(53)+JVS(221)*UV(56)+JVS(222)*UV(60)+JVS(223)*UV(63) - JUV(43) = JVS(224)*UV(8)+JVS(225)*UV(15)+JVS(226)*UV(33)+JVS(227)*UV(43)+JVS(228)*UV(54)+JVS(229)*UV(56)+JVS(230)& - &*UV(60) - JUV(44) = JVS(232)*UV(15)+JVS(233)*UV(28)+JVS(234)*UV(40)+JVS(235)*UV(41)+JVS(236)*UV(42)+JVS(237)*UV(44)+JVS(238)& - &*UV(46)+JVS(239)*UV(47)+JVS(240)*UV(51)+JVS(241)*UV(53)+JVS(242)*UV(56)+JVS(243)*UV(60)+JVS(244)*UV(61)& - &+JVS(245)*UV(63) - JUV(45) = JVS(246)*UV(29)+JVS(247)*UV(43)+JVS(248)*UV(45)+JVS(249)*UV(53)+JVS(251)*UV(56)+JVS(252)*UV(60)+JVS(254)& - &*UV(62) - JUV(46) = JVS(255)*UV(46)+JVS(256)*UV(53)+JVS(257)*UV(56)+JVS(258)*UV(60)+JVS(259)*UV(61)+JVS(260)*UV(63) - JUV(47) = JVS(261)*UV(46)+JVS(262)*UV(47)+JVS(263)*UV(53)+JVS(264)*UV(56)+JVS(265)*UV(60)+JVS(266)*UV(61)+JVS(267)& - &*UV(63) - JUV(48) = JVS(268)*UV(9)+JVS(269)*UV(28)+JVS(270)*UV(41)+JVS(271)*UV(42)+JVS(272)*UV(43)+JVS(273)*UV(44)+JVS(274)& - &*UV(46)+JVS(276)*UV(48)+JVS(278)*UV(53)+JVS(279)*UV(54)+JVS(280)*UV(56)+JVS(281)*UV(59)+JVS(282)*UV(60)& - &+JVS(284)*UV(62)+JVS(285)*UV(63) - JUV(49) = JVS(286)*UV(11)+JVS(287)*UV(27)+JVS(288)*UV(28)+JVS(289)*UV(31)+JVS(290)*UV(38)+JVS(291)*UV(40)+JVS(292)& - &*UV(41)+JVS(293)*UV(42)+JVS(294)*UV(43)+JVS(295)*UV(44)+JVS(296)*UV(45)+JVS(297)*UV(46)+JVS(298)*UV(47)& - &+JVS(300)*UV(49)+JVS(301)*UV(51)+JVS(302)*UV(53)+JVS(304)*UV(56)+JVS(306)*UV(60)+JVS(307)*UV(61)+JVS(308)& - &*UV(62)+JVS(309)*UV(63) - JUV(50) = JVS(310)*UV(9)+JVS(311)*UV(11)+JVS(312)*UV(22)+JVS(313)*UV(27)+JVS(314)*UV(28)+JVS(315)*UV(40)+JVS(316)& - &*UV(41)+JVS(317)*UV(44)+JVS(319)*UV(47)+JVS(321)*UV(50)+JVS(322)*UV(51)+JVS(323)*UV(53)+JVS(325)*UV(55)& - &+JVS(326)*UV(56)+JVS(327)*UV(57)+JVS(328)*UV(58)+JVS(329)*UV(59)+JVS(330)*UV(60)+JVS(332)*UV(62)+JVS(333)& - &*UV(63) - JUV(51) = JVS(334)*UV(28)+JVS(335)*UV(29)+JVS(336)*UV(35)+JVS(337)*UV(39)+JVS(338)*UV(42)+JVS(342)*UV(46)+JVS(343)& - &*UV(47)+JVS(344)*UV(48)+JVS(345)*UV(51)+JVS(348)*UV(56)+JVS(350)*UV(60)+JVS(351)*UV(61)+JVS(352)*UV(62) - JUV(52) = JVS(354)*UV(10)+JVS(355)*UV(11)+JVS(356)*UV(26)+JVS(357)*UV(29)+JVS(358)*UV(30)+JVS(359)*UV(35)+JVS(360)& - &*UV(38)+JVS(361)*UV(40)+JVS(362)*UV(41)+JVS(363)*UV(42)+JVS(364)*UV(43)+JVS(365)*UV(45)+JVS(366)*UV(46)& - &+JVS(367)*UV(47)+JVS(368)*UV(51)+JVS(369)*UV(52)+JVS(370)*UV(53)+JVS(371)*UV(54)+JVS(372)*UV(55)+JVS(373)& - &*UV(56)+JVS(374)*UV(57)+JVS(375)*UV(58)+JVS(377)*UV(60)+JVS(379)*UV(62)+JVS(380)*UV(63) - JUV(53) = JVS(381)*UV(38)+JVS(382)*UV(39)+JVS(383)*UV(40)+JVS(384)*UV(41)+JVS(385)*UV(42)+JVS(387)*UV(45)+JVS(388)& - &*UV(46)+JVS(389)*UV(47)+JVS(390)*UV(53)+JVS(391)*UV(54)+JVS(392)*UV(55)+JVS(393)*UV(56)+JVS(394)*UV(58)& - &+JVS(395)*UV(60)+JVS(396)*UV(61)+JVS(397)*UV(62)+JVS(398)*UV(63) - JUV(54) = JVS(399)*UV(4)+JVS(400)*UV(8)+JVS(401)*UV(9)+JVS(402)*UV(10)+JVS(403)*UV(11)+JVS(404)*UV(13)+JVS(405)*UV(14)& - &+JVS(406)*UV(15)+JVS(407)*UV(17)+JVS(408)*UV(19)+JVS(409)*UV(23)+JVS(410)*UV(26)+JVS(411)*UV(27)+JVS(412)& - &*UV(28)+JVS(413)*UV(29)+JVS(414)*UV(30)+JVS(415)*UV(31)+JVS(416)*UV(32)+JVS(417)*UV(33)+JVS(418)*UV(35)& - &+JVS(419)*UV(36)+JVS(420)*UV(37)+JVS(421)*UV(38)+JVS(423)*UV(40)+JVS(424)*UV(41)+JVS(425)*UV(42)+JVS(426)& - &*UV(43)+JVS(427)*UV(44)+JVS(428)*UV(45)+JVS(429)*UV(46)+JVS(430)*UV(47)+JVS(431)*UV(48)+JVS(432)*UV(49)& - &+JVS(433)*UV(50)+JVS(434)*UV(51)+JVS(435)*UV(52)+JVS(436)*UV(53)+JVS(437)*UV(54)+JVS(438)*UV(55)+JVS(439)& - &*UV(56)+JVS(440)*UV(57)+JVS(441)*UV(58)+JVS(442)*UV(59)+JVS(443)*UV(60)+JVS(444)*UV(61)+JVS(445)*UV(62)& - &+JVS(446)*UV(63) - JUV(55) = JVS(447)*UV(22)+JVS(448)*UV(42)+JVS(449)*UV(46)+JVS(450)*UV(47)+JVS(451)*UV(49)+JVS(453)*UV(53)+JVS(454)& - &*UV(54)+JVS(455)*UV(55)+JVS(456)*UV(56)+JVS(457)*UV(57)+JVS(458)*UV(58)+JVS(459)*UV(59)+JVS(460)*UV(60)& - &+JVS(461)*UV(61)+JVS(462)*UV(62)+JVS(463)*UV(63) - JUV(56) = JVS(464)*UV(12)+JVS(465)*UV(23)+JVS(466)*UV(24)+JVS(467)*UV(25)+JVS(469)*UV(34)+JVS(470)*UV(38)+JVS(471)& - &*UV(40)+JVS(472)*UV(41)+JVS(473)*UV(42)+JVS(474)*UV(43)+JVS(475)*UV(45)+JVS(476)*UV(46)+JVS(477)*UV(47)& - &+JVS(478)*UV(49)+JVS(479)*UV(50)+JVS(481)*UV(52)+JVS(482)*UV(53)+JVS(483)*UV(54)+JVS(485)*UV(56)+JVS(489)& - &*UV(60)+JVS(490)*UV(61)+JVS(491)*UV(62)+JVS(492)*UV(63) - JUV(57) = JVS(493)*UV(5)+JVS(494)*UV(20)+JVS(495)*UV(21)+JVS(496)*UV(30)+JVS(497)*UV(49)+JVS(498)*UV(50)+JVS(502)& - &*UV(54)+JVS(503)*UV(55)+JVS(505)*UV(57)+JVS(506)*UV(58)+JVS(507)*UV(59)+JVS(508)*UV(60)+JVS(510)*UV(62) - JUV(58) = JVS(512)*UV(6)+JVS(513)*UV(20)+JVS(514)*UV(37)+JVS(516)*UV(45)+JVS(517)*UV(47)+JVS(518)*UV(50)+JVS(520)& - &*UV(53)+JVS(521)*UV(54)+JVS(522)*UV(55)+JVS(523)*UV(56)+JVS(524)*UV(57)+JVS(525)*UV(58)+JVS(526)*UV(59)& - &+JVS(527)*UV(60)+JVS(528)*UV(61)+JVS(529)*UV(62)+JVS(530)*UV(63) - JUV(59) = JVS(531)*UV(8)+JVS(532)*UV(9)+JVS(533)*UV(11)+JVS(534)*UV(15)+JVS(535)*UV(27)+JVS(536)*UV(28)+JVS(537)& - &*UV(30)+JVS(538)*UV(31)+JVS(539)*UV(37)+JVS(540)*UV(38)+JVS(541)*UV(40)+JVS(542)*UV(41)+JVS(543)*UV(42)& - &+JVS(544)*UV(43)+JVS(545)*UV(44)+JVS(546)*UV(45)+JVS(547)*UV(46)+JVS(548)*UV(47)+JVS(549)*UV(48)+JVS(552)& - &*UV(53)+JVS(553)*UV(54)+JVS(554)*UV(55)+JVS(555)*UV(56)+JVS(556)*UV(57)+JVS(557)*UV(58)+JVS(558)*UV(59)& - &+JVS(559)*UV(60)+JVS(560)*UV(61)+JVS(561)*UV(62)+JVS(562)*UV(63) - JUV(60) = JVS(563)*UV(4)+JVS(564)*UV(5)+JVS(565)*UV(8)+JVS(566)*UV(9)+JVS(567)*UV(10)+JVS(568)*UV(11)+JVS(569)*UV(13)& - &+JVS(570)*UV(14)+JVS(571)*UV(15)+JVS(572)*UV(16)+JVS(573)*UV(17)+JVS(574)*UV(18)+JVS(575)*UV(19)+JVS(576)& - &*UV(20)+JVS(577)*UV(21)+JVS(578)*UV(22)+JVS(579)*UV(23)+JVS(580)*UV(24)+JVS(581)*UV(25)+JVS(583)*UV(27)& - &+JVS(584)*UV(30)+JVS(587)*UV(34)+JVS(588)*UV(36)+JVS(589)*UV(37)+JVS(590)*UV(38)+JVS(592)*UV(40)+JVS(593)& - &*UV(41)+JVS(594)*UV(42)+JVS(595)*UV(43)+JVS(596)*UV(44)+JVS(597)*UV(45)+JVS(598)*UV(46)+JVS(599)*UV(47)& - &+JVS(601)*UV(49)+JVS(602)*UV(50)+JVS(603)*UV(51)+JVS(604)*UV(52)+JVS(605)*UV(53)+JVS(606)*UV(54)+JVS(608)& - &*UV(56)+JVS(612)*UV(60)+JVS(613)*UV(61)+JVS(614)*UV(62)+JVS(615)*UV(63) - JUV(61) = JVS(616)*UV(6)+JVS(617)*UV(7)+JVS(618)*UV(12)+JVS(619)*UV(16)+JVS(620)*UV(22)+JVS(621)*UV(23)+JVS(622)& - &*UV(26)+JVS(623)*UV(28)+JVS(624)*UV(29)+JVS(625)*UV(31)+JVS(626)*UV(32)+JVS(627)*UV(33)+JVS(628)*UV(34)& - &+JVS(629)*UV(35)+JVS(630)*UV(38)+JVS(631)*UV(39)+JVS(632)*UV(40)+JVS(633)*UV(41)+JVS(634)*UV(42)+JVS(638)& - &*UV(46)+JVS(642)*UV(51)+JVS(644)*UV(53)+JVS(645)*UV(54)+JVS(646)*UV(55)+JVS(647)*UV(56)+JVS(648)*UV(57)& - &+JVS(649)*UV(58)+JVS(650)*UV(59)+JVS(651)*UV(60)+JVS(652)*UV(61)+JVS(653)*UV(62)+JVS(654)*UV(63) - JUV(62) = JVS(655)*UV(16)+JVS(656)*UV(26)+JVS(657)*UV(29)+JVS(658)*UV(31)+JVS(659)*UV(32)+JVS(660)*UV(35)+JVS(664)& - &*UV(46)+JVS(665)*UV(48)+JVS(668)*UV(53)+JVS(669)*UV(54)+JVS(670)*UV(55)+JVS(671)*UV(56)+JVS(672)*UV(57)& - &+JVS(673)*UV(58)+JVS(674)*UV(59)+JVS(675)*UV(60)+JVS(676)*UV(61)+JVS(677)*UV(62)+JVS(678)*UV(63) - JUV(63) = JVS(679)*UV(14)+JVS(680)*UV(17)+JVS(681)*UV(38)+JVS(682)*UV(40)+JVS(683)*UV(41)+JVS(684)*UV(42)+JVS(685)& - &*UV(46)+JVS(686)*UV(49)+JVS(687)*UV(50)+JVS(689)*UV(52)+JVS(690)*UV(53)+JVS(691)*UV(54)+JVS(693)*UV(56)& - &+JVS(697)*UV(60)+JVS(698)*UV(61)+JVS(699)*UV(62)+JVS(700)*UV(63) - -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(4)*UV(2) - JTUV(3) = JVS(7)*UV(3) - JTUV(4) = JVS(2)*UV(1)+JVS(5)*UV(2)+JVS(11)*UV(4)+JVS(399)*UV(54)+JVS(563)*UV(60) - JTUV(5) = JVS(13)*UV(5)+JVS(493)*UV(57)+JVS(564)*UV(60) - JTUV(6) = JVS(15)*UV(6)+JVS(512)*UV(58)+JVS(616)*UV(61) - JTUV(7) = JVS(18)*UV(7)+JVS(115)*UV(31)+JVS(617)*UV(61) - JTUV(8) = JVS(21)*UV(8)+JVS(102)*UV(29)+JVS(224)*UV(43)+JVS(400)*UV(54)+JVS(531)*UV(59)+JVS(565)*UV(60) - JTUV(9) = JVS(23)*UV(9)+JVS(268)*UV(48)+JVS(310)*UV(50)+JVS(401)*UV(54)+JVS(532)*UV(59)+JVS(566)*UV(60) - JTUV(10) = JVS(25)*UV(10)+JVS(354)*UV(52)+JVS(402)*UV(54)+JVS(567)*UV(60) - JTUV(11) = JVS(28)*UV(11)+JVS(286)*UV(49)+JVS(311)*UV(50)+JVS(355)*UV(52)+JVS(403)*UV(54)+JVS(533)*UV(59)+JVS(568)& - &*UV(60) - JTUV(12) = JVS(30)*UV(12)+JVS(136)*UV(34)+JVS(464)*UV(56)+JVS(618)*UV(61) - JTUV(13) = JVS(33)*UV(13)+JVS(36)*UV(14)+JVS(404)*UV(54)+JVS(569)*UV(60) - JTUV(14) = JVS(34)*UV(13)+JVS(37)*UV(14)+JVS(405)*UV(54)+JVS(570)*UV(60)+JVS(679)*UV(63) - JTUV(15) = JVS(40)*UV(15)+JVS(103)*UV(29)+JVS(181)*UV(37)+JVS(225)*UV(43)+JVS(232)*UV(44)+JVS(406)*UV(54)+JVS(534)& - &*UV(59)+JVS(571)*UV(60) - JTUV(16) = JVS(42)*UV(16)+JVS(572)*UV(60)+JVS(619)*UV(61)+JVS(655)*UV(62) - JTUV(17) = JVS(46)*UV(17)+JVS(407)*UV(54)+JVS(573)*UV(60)+JVS(680)*UV(63) - JTUV(18) = JVS(50)*UV(18)+JVS(122)*UV(32)+JVS(197)*UV(39)+JVS(574)*UV(60) - JTUV(19) = JVS(54)*UV(19)+JVS(408)*UV(54)+JVS(575)*UV(60) - JTUV(20) = JVS(60)*UV(20)+JVS(494)*UV(57)+JVS(513)*UV(58)+JVS(576)*UV(60) - JTUV(21) = JVS(65)*UV(21)+JVS(495)*UV(57)+JVS(577)*UV(60) - JTUV(22) = JVS(72)*UV(22)+JVS(312)*UV(50)+JVS(447)*UV(55)+JVS(578)*UV(60)+JVS(620)*UV(61) - JTUV(23) = JVS(76)*UV(23)+JVS(409)*UV(54)+JVS(465)*UV(56)+JVS(579)*UV(60)+JVS(621)*UV(61) - JTUV(24) = JVS(80)*UV(24)+JVS(129)*UV(33)+JVS(137)*UV(34)+JVS(152)*UV(35)+JVS(466)*UV(56)+JVS(580)*UV(60) - JTUV(25) = JVS(84)*UV(25)+JVS(138)*UV(34)+JVS(198)*UV(39)+JVS(467)*UV(56)+JVS(581)*UV(60) - JTUV(26) = JVS(55)*UV(19)+JVS(89)*UV(26)+JVS(108)*UV(30)+JVS(356)*UV(52)+JVS(410)*UV(54)+JVS(622)*UV(61)+JVS(656)& - &*UV(62) - JTUV(27) = JVS(93)*UV(27)+JVS(287)*UV(49)+JVS(313)*UV(50)+JVS(411)*UV(54)+JVS(535)*UV(59)+JVS(583)*UV(60) - JTUV(28) = JVS(98)*UV(28)+JVS(233)*UV(44)+JVS(269)*UV(48)+JVS(288)*UV(49)+JVS(314)*UV(50)+JVS(334)*UV(51)+JVS(412)& - &*UV(54)+JVS(536)*UV(59)+JVS(623)*UV(61) - JTUV(29) = JVS(8)*UV(3)+JVS(104)*UV(29)+JVS(160)*UV(36)+JVS(182)*UV(37)+JVS(246)*UV(45)+JVS(335)*UV(51)+JVS(357)& - &*UV(52)+JVS(413)*UV(54)+JVS(624)*UV(61)+JVS(657)*UV(62) - JTUV(30) = JVS(109)*UV(30)+JVS(358)*UV(52)+JVS(414)*UV(54)+JVS(496)*UV(57)+JVS(537)*UV(59)+JVS(584)*UV(60) - JTUV(31) = JVS(19)*UV(7)+JVS(116)*UV(31)+JVS(289)*UV(49)+JVS(415)*UV(54)+JVS(538)*UV(59)+JVS(625)*UV(61)+JVS(658)& - &*UV(62) - JTUV(32) = JVS(51)*UV(18)+JVS(123)*UV(32)+JVS(199)*UV(39)+JVS(416)*UV(54)+JVS(626)*UV(61)+JVS(659)*UV(62) - JTUV(33) = JVS(85)*UV(25)+JVS(130)*UV(33)+JVS(226)*UV(43)+JVS(417)*UV(54)+JVS(627)*UV(61) - JTUV(34) = JVS(140)*UV(34)+JVS(469)*UV(56)+JVS(587)*UV(60)+JVS(628)*UV(61) - JTUV(35) = JVS(9)*UV(3)+JVS(153)*UV(35)+JVS(161)*UV(36)+JVS(336)*UV(51)+JVS(359)*UV(52)+JVS(418)*UV(54)+JVS(629)& - &*UV(61)+JVS(660)*UV(62) - JTUV(36) = JVS(162)*UV(36)+JVS(419)*UV(54)+JVS(588)*UV(60) - JTUV(37) = JVS(163)*UV(36)+JVS(183)*UV(37)+JVS(420)*UV(54)+JVS(514)*UV(58)+JVS(539)*UV(59)+JVS(589)*UV(60) - JTUV(38) = JVS(56)*UV(19)+JVS(164)*UV(36)+JVS(192)*UV(38)+JVS(290)*UV(49)+JVS(360)*UV(52)+JVS(381)*UV(53)+JVS(421)& - &*UV(54)+JVS(470)*UV(56)+JVS(540)*UV(59)+JVS(590)*UV(60)+JVS(630)*UV(61)+JVS(681)*UV(63) - JTUV(39) = JVS(124)*UV(32)+JVS(201)*UV(39)+JVS(337)*UV(51)+JVS(382)*UV(53)+JVS(631)*UV(61) - JTUV(40) = JVS(165)*UV(36)+JVS(209)*UV(40)+JVS(234)*UV(44)+JVS(291)*UV(49)+JVS(315)*UV(50)+JVS(361)*UV(52)+JVS(383)& - &*UV(53)+JVS(423)*UV(54)+JVS(471)*UV(56)+JVS(541)*UV(59)+JVS(592)*UV(60)+JVS(632)*UV(61)+JVS(682)*UV(63) - JTUV(41) = JVS(166)*UV(36)+JVS(214)*UV(41)+JVS(235)*UV(44)+JVS(270)*UV(48)+JVS(292)*UV(49)+JVS(316)*UV(50)+JVS(362)& - &*UV(52)+JVS(384)*UV(53)+JVS(424)*UV(54)+JVS(472)*UV(56)+JVS(542)*UV(59)+JVS(593)*UV(60)+JVS(633)*UV(61)& - &+JVS(683)*UV(63) - JTUV(42) = JVS(167)*UV(36)+JVS(219)*UV(42)+JVS(236)*UV(44)+JVS(271)*UV(48)+JVS(293)*UV(49)+JVS(338)*UV(51)+JVS(363)& - &*UV(52)+JVS(385)*UV(53)+JVS(425)*UV(54)+JVS(448)*UV(55)+JVS(473)*UV(56)+JVS(543)*UV(59)+JVS(594)*UV(60)& - &+JVS(634)*UV(61)+JVS(684)*UV(63) - JTUV(43) = JVS(81)*UV(24)+JVS(131)*UV(33)+JVS(141)*UV(34)+JVS(168)*UV(36)+JVS(184)*UV(37)+JVS(227)*UV(43)+JVS(247)& - &*UV(45)+JVS(272)*UV(48)+JVS(294)*UV(49)+JVS(364)*UV(52)+JVS(426)*UV(54)+JVS(474)*UV(56)+JVS(544)*UV(59)& - &+JVS(595)*UV(60) - JTUV(44) = JVS(99)*UV(28)+JVS(237)*UV(44)+JVS(273)*UV(48)+JVS(295)*UV(49)+JVS(317)*UV(50)+JVS(427)*UV(54)+JVS(545)& - &*UV(59)+JVS(596)*UV(60) - JTUV(45) = JVS(117)*UV(31)+JVS(142)*UV(34)+JVS(155)*UV(35)+JVS(169)*UV(36)+JVS(185)*UV(37)+JVS(248)*UV(45)+JVS(296)& - &*UV(49)+JVS(365)*UV(52)+JVS(387)*UV(53)+JVS(428)*UV(54)+JVS(475)*UV(56)+JVS(516)*UV(58)+JVS(546)*UV(59)& - &+JVS(597)*UV(60) - JTUV(46) = JVS(170)*UV(36)+JVS(238)*UV(44)+JVS(255)*UV(46)+JVS(261)*UV(47)+JVS(274)*UV(48)+JVS(297)*UV(49)+JVS(342)& - &*UV(51)+JVS(366)*UV(52)+JVS(388)*UV(53)+JVS(429)*UV(54)+JVS(449)*UV(55)+JVS(476)*UV(56)+JVS(547)*UV(59)& - &+JVS(598)*UV(60)+JVS(638)*UV(61)+JVS(664)*UV(62)+JVS(685)*UV(63) - JTUV(47) = JVS(143)*UV(34)+JVS(171)*UV(36)+JVS(186)*UV(37)+JVS(239)*UV(44)+JVS(262)*UV(47)+JVS(298)*UV(49)+JVS(319)& - &*UV(50)+JVS(343)*UV(51)+JVS(367)*UV(52)+JVS(389)*UV(53)+JVS(430)*UV(54)+JVS(450)*UV(55)+JVS(477)*UV(56)& - &+JVS(517)*UV(58)+JVS(548)*UV(59)+JVS(599)*UV(60) - JTUV(48) = JVS(94)*UV(27)+JVS(276)*UV(48)+JVS(344)*UV(51)+JVS(431)*UV(54)+JVS(549)*UV(59)+JVS(665)*UV(62) - JTUV(49) = JVS(144)*UV(34)+JVS(172)*UV(36)+JVS(300)*UV(49)+JVS(432)*UV(54)+JVS(451)*UV(55)+JVS(478)*UV(56)+JVS(497)& - &*UV(57)+JVS(601)*UV(60)+JVS(686)*UV(63) - JTUV(50) = JVS(145)*UV(34)+JVS(173)*UV(36)+JVS(321)*UV(50)+JVS(433)*UV(54)+JVS(479)*UV(56)+JVS(498)*UV(57)+JVS(518)& - &*UV(58)+JVS(602)*UV(60)+JVS(687)*UV(63) - JTUV(51) = JVS(146)*UV(34)+JVS(240)*UV(44)+JVS(301)*UV(49)+JVS(322)*UV(50)+JVS(345)*UV(51)+JVS(368)*UV(52)+JVS(434)& - &*UV(54)+JVS(603)*UV(60)+JVS(642)*UV(61) - JTUV(52) = JVS(90)*UV(26)+JVS(147)*UV(34)+JVS(174)*UV(36)+JVS(369)*UV(52)+JVS(435)*UV(54)+JVS(481)*UV(56)+JVS(604)& - &*UV(60)+JVS(689)*UV(63) - JTUV(53) = JVS(38)*UV(14)+JVS(57)*UV(19)+JVS(125)*UV(32)+JVS(175)*UV(36)+JVS(187)*UV(37)+JVS(193)*UV(38)+JVS(203)& - &*UV(39)+JVS(210)*UV(40)+JVS(215)*UV(41)+JVS(220)*UV(42)+JVS(241)*UV(44)+JVS(249)*UV(45)+JVS(256)*UV(46)& - &+JVS(263)*UV(47)+JVS(278)*UV(48)+JVS(302)*UV(49)+JVS(323)*UV(50)+JVS(370)*UV(52)+JVS(390)*UV(53)+JVS(436)& - &*UV(54)+JVS(453)*UV(55)+JVS(482)*UV(56)+JVS(520)*UV(58)+JVS(552)*UV(59)+JVS(605)*UV(60)+JVS(644)*UV(61)& - &+JVS(668)*UV(62)+JVS(690)*UV(63) - JTUV(54) = JVS(10)*UV(3)+JVS(47)*UV(17)+JVS(52)*UV(18)+JVS(61)*UV(20)+JVS(66)*UV(21)+JVS(77)*UV(23)+JVS(91)*UV(26)& - &+JVS(95)*UV(27)+JVS(105)*UV(29)+JVS(111)*UV(30)+JVS(126)*UV(32)+JVS(132)*UV(33)+JVS(148)*UV(34)+JVS(156)& - &*UV(35)+JVS(228)*UV(43)+JVS(279)*UV(48)+JVS(371)*UV(52)+JVS(391)*UV(53)+JVS(437)*UV(54)+JVS(454)*UV(55)& - &+JVS(483)*UV(56)+JVS(502)*UV(57)+JVS(521)*UV(58)+JVS(553)*UV(59)+JVS(606)*UV(60)+JVS(645)*UV(61)+JVS(669)& - &*UV(62)+JVS(691)*UV(63) - JTUV(55) = JVS(62)*UV(20)+JVS(67)*UV(21)+JVS(73)*UV(22)+JVS(325)*UV(50)+JVS(372)*UV(52)+JVS(392)*UV(53)+JVS(438)& - &*UV(54)+JVS(455)*UV(55)+JVS(503)*UV(57)+JVS(522)*UV(58)+JVS(554)*UV(59)+JVS(646)*UV(61)+JVS(670)*UV(62) - JTUV(56) = JVS(31)*UV(12)+JVS(82)*UV(24)+JVS(86)*UV(25)+JVS(118)*UV(31)+JVS(133)*UV(33)+JVS(149)*UV(34)+JVS(177)& - &*UV(36)+JVS(189)*UV(37)+JVS(194)*UV(38)+JVS(205)*UV(39)+JVS(211)*UV(40)+JVS(216)*UV(41)+JVS(221)*UV(42)& - &+JVS(229)*UV(43)+JVS(242)*UV(44)+JVS(251)*UV(45)+JVS(257)*UV(46)+JVS(264)*UV(47)+JVS(280)*UV(48)+JVS(304)& - &*UV(49)+JVS(326)*UV(50)+JVS(348)*UV(51)+JVS(373)*UV(52)+JVS(393)*UV(53)+JVS(439)*UV(54)+JVS(456)*UV(55)& - &+JVS(485)*UV(56)+JVS(523)*UV(58)+JVS(555)*UV(59)+JVS(608)*UV(60)+JVS(647)*UV(61)+JVS(671)*UV(62)+JVS(693)& - &*UV(63) - JTUV(57) = JVS(26)*UV(10)+JVS(68)*UV(21)+JVS(112)*UV(30)+JVS(327)*UV(50)+JVS(374)*UV(52)+JVS(440)*UV(54)+JVS(457)& - &*UV(55)+JVS(505)*UV(57)+JVS(524)*UV(58)+JVS(556)*UV(59)+JVS(648)*UV(61)+JVS(672)*UV(62) - JTUV(58) = JVS(16)*UV(6)+JVS(63)*UV(20)+JVS(69)*UV(21)+JVS(328)*UV(50)+JVS(375)*UV(52)+JVS(394)*UV(53)+JVS(441)*UV(54)& - &+JVS(458)*UV(55)+JVS(506)*UV(57)+JVS(525)*UV(58)+JVS(557)*UV(59)+JVS(649)*UV(61)+JVS(673)*UV(62) - JTUV(59) = JVS(70)*UV(21)+JVS(96)*UV(27)+JVS(281)*UV(48)+JVS(329)*UV(50)+JVS(442)*UV(54)+JVS(459)*UV(55)+JVS(507)& - &*UV(57)+JVS(526)*UV(58)+JVS(558)*UV(59)+JVS(650)*UV(61)+JVS(674)*UV(62) - JTUV(60) = JVS(3)*UV(1)+JVS(6)*UV(2)+JVS(12)*UV(4)+JVS(14)*UV(5)+JVS(22)*UV(8)+JVS(24)*UV(9)+JVS(27)*UV(10)+JVS(29)& - &*UV(11)+JVS(35)*UV(13)+JVS(41)*UV(15)+JVS(43)*UV(16)+JVS(48)*UV(17)+JVS(53)*UV(18)+JVS(58)*UV(19)+JVS(64)& - &*UV(20)+JVS(71)*UV(21)+JVS(74)*UV(22)+JVS(78)*UV(23)+JVS(83)*UV(24)+JVS(87)*UV(25)+JVS(97)*UV(27)+JVS(100)& - &*UV(28)+JVS(106)*UV(29)+JVS(113)*UV(30)+JVS(119)*UV(31)+JVS(127)*UV(32)+JVS(134)*UV(33)+JVS(150)*UV(34)& - &+JVS(158)*UV(35)+JVS(178)*UV(36)+JVS(190)*UV(37)+JVS(195)*UV(38)+JVS(206)*UV(39)+JVS(212)*UV(40)+JVS(217)& - &*UV(41)+JVS(222)*UV(42)+JVS(230)*UV(43)+JVS(243)*UV(44)+JVS(252)*UV(45)+JVS(258)*UV(46)+JVS(265)*UV(47)& - &+JVS(282)*UV(48)+JVS(306)*UV(49)+JVS(330)*UV(50)+JVS(350)*UV(51)+JVS(377)*UV(52)+JVS(395)*UV(53)+JVS(443)& - &*UV(54)+JVS(460)*UV(55)+JVS(489)*UV(56)+JVS(508)*UV(57)+JVS(527)*UV(58)+JVS(559)*UV(59)+JVS(612)*UV(60)& - &+JVS(651)*UV(61)+JVS(675)*UV(62)+JVS(697)*UV(63) - JTUV(61) = JVS(17)*UV(6)+JVS(20)*UV(7)+JVS(32)*UV(12)+JVS(44)*UV(16)+JVS(75)*UV(22)+JVS(79)*UV(23)+JVS(88)*UV(25)& - &+JVS(101)*UV(28)+JVS(120)*UV(31)+JVS(135)*UV(33)+JVS(151)*UV(34)+JVS(207)*UV(39)+JVS(244)*UV(44)+JVS(259)& - &*UV(46)+JVS(266)*UV(47)+JVS(307)*UV(49)+JVS(351)*UV(51)+JVS(396)*UV(53)+JVS(444)*UV(54)+JVS(461)*UV(55)& - &+JVS(490)*UV(56)+JVS(528)*UV(58)+JVS(560)*UV(59)+JVS(613)*UV(60)+JVS(652)*UV(61)+JVS(676)*UV(62)+JVS(698)& - &*UV(63) - JTUV(62) = JVS(45)*UV(16)+JVS(59)*UV(19)+JVS(92)*UV(26)+JVS(107)*UV(29)+JVS(121)*UV(31)+JVS(128)*UV(32)+JVS(159)& - &*UV(35)+JVS(179)*UV(36)+JVS(191)*UV(37)+JVS(208)*UV(39)+JVS(254)*UV(45)+JVS(284)*UV(48)+JVS(308)*UV(49)& - &+JVS(332)*UV(50)+JVS(352)*UV(51)+JVS(379)*UV(52)+JVS(397)*UV(53)+JVS(445)*UV(54)+JVS(462)*UV(55)+JVS(491)& - &*UV(56)+JVS(510)*UV(57)+JVS(529)*UV(58)+JVS(561)*UV(59)+JVS(614)*UV(60)+JVS(653)*UV(61)+JVS(677)*UV(62)& - &+JVS(699)*UV(63) - JTUV(63) = JVS(49)*UV(17)+JVS(180)*UV(36)+JVS(196)*UV(38)+JVS(213)*UV(40)+JVS(218)*UV(41)+JVS(223)*UV(42)+JVS(245)& - &*UV(44)+JVS(260)*UV(46)+JVS(267)*UV(47)+JVS(285)*UV(48)+JVS(309)*UV(49)+JVS(333)*UV(50)+JVS(380)*UV(52)& - &+JVS(398)*UV(53)+JVS(446)*UV(54)+JVS(463)*UV(55)+JVS(492)*UV(56)+JVS(530)*UV(58)+JVS(562)*UV(59)+JVS(615)& - &*UV(60)+JVS(654)*UV(61)+JVS(678)*UV(62)+JVS(700)*UV(63) - -END SUBROUTINE JacTR_SP_Vec - -! End of JacTR_SP_Vec function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE CB05_CSIRO_Jacobian - diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Jacobian.o b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Jacobian.o deleted file mode 100644 index c626b94b9a2ffb82647707b832b49d8671896466..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Jacobian.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_JacobianSP.f90 b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_JacobianSP.f90 deleted file mode 100644 index e10015232c5c43d0fecbf8366774a1ed29fb5619..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_JacobianSP.f90 +++ /dev/null @@ -1,180 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Sparse Jacobian Data Structures File -! -! Generated by KPP-2.2.3 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 : CB05_CSIRO_JacobianSP.f90 -! Time : Thu Oct 8 08:21:51 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05_CSIRO_26998_BOXMOX -! Equation file : CB05_CSIRO.kpp -! Output root filename : CB05_CSIRO -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CB05_CSIRO_JacobianSP - - PUBLIC - SAVE - - -! Sparse Jacobian Data - - - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_0 = (/ & - 1, 1, 1, 2, 2, 2, 3, 3, 3, 3, 4, 4, & - 5, 5, 6, 6, 6, 7, 7, 7, 8, 8, 9, 9, & - 10, 10, 10, 11, 11, 12, 12, 12, 13, 13, 13, 14, & - 14, 14, 14, 15, 15, 16, 16, 16, 16, 17, 17, 17, & - 17, 18, 18, 18, 18, 19, 19, 19, 19, 19, 19, 20, & - 20, 20, 20, 20, 21, 21, 21, 21, 21, 21, 21, 22, & - 22, 22, 22, 23, 23, 23, 23, 24, 24, 24, 24, 25, & - 25, 25, 25, 25, 26, 26, 26, 26, 27, 27, 27, 27, & - 27, 28, 28, 28, 28, 29, 29, 29, 29, 29, 29, 30, & - 30, 30, 30, 30, 30, 30, 31, 31, 31, 31, 31, 31, & - 31, 32, 32, 32, 32, 32, 32, 32, 33, 33, 33, 33, & - 33, 33, 33, 34, 34, 34, 34, 34, 34, 34, 34, 34, & - 34, 34, 34, 34, 34, 34, 34, 35, 35, 35, 35, 35, & - 35, 35, 35, 36, 36, 36, 36, 36, 36, 36, 36, 36, & - 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & - 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 38, & - 38, 38, 38, 38, 39, 39, 39, 39, 39, 39, 39, 39, & - 39, 39, 39, 39, 40, 40, 40, 40, 40, 41, 41, 41, & - 41, 41, 42, 42, 42, 42, 42, 43, 43, 43, 43, 43, & - 43, 43, 43, 44, 44, 44, 44, 44, 44, 44, 44, 44, & - 44, 44, 44, 44, 44, 45, 45, 45, 45, 45, 45, 45, & - 45, 45, 46, 46, 46, 46, 46, 46, 47, 47, 47, 47, & - 47, 47, 47, 48, 48, 48, 48, 48, 48, 48, 48, 48, & - 48, 48, 48, 48, 48, 48, 48, 48, 48, 49, 49, 49, & - 49, 49, 49, 49, 49, 49, 49, 49, 49, 49, 49, 49, & - 49, 49, 49, 49, 49, 49, 49, 49, 49, 50, 50, 50, & - 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, & - 50, 50, 50, 50, 50, 50, 50, 50, 50, 51, 51, 51, & - 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, & - 51, 51, 51, 51, 51, 52, 52, 52, 52, 52, 52, 52 /) - INTEGER, PARAMETER, DIMENSION(340) :: LU_IROW_1 = (/ & - 52, 52, 52, 52, 52, 52, 52, 52, 52, 52, 52, 52, & - 52, 52, 52, 52, 52, 52, 52, 52, 53, 53, 53, 53, & - 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, & - 53, 53, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, & - 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, & - 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, & - 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, & - 54, 54, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, & - 55, 55, 55, 55, 55, 55, 55, 56, 56, 56, 56, 56, & - 56, 56, 56, 56, 56, 56, 56, 56, 56, 56, 56, 56, & - 56, 56, 56, 56, 56, 56, 56, 56, 56, 56, 56, 56, & - 57, 57, 57, 57, 57, 57, 57, 57, 57, 57, 57, 57, & - 57, 57, 57, 57, 57, 57, 57, 58, 58, 58, 58, 58, & - 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, & - 58, 58, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, & - 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, & - 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 60, 60, & - 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, & - 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, & - 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, & - 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, & - 60, 60, 60, 61, 61, 61, 61, 61, 61, 61, 61, 61, & - 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, & - 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, & - 61, 61, 61, 61, 61, 61, 62, 62, 62, 62, 62, 62, & - 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, & - 62, 62, 62, 62, 62, 62, 63, 63, 63, 63, 63, 63, & - 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, & - 63, 63, 63, 63 /) - INTEGER, PARAMETER, DIMENSION(700) :: LU_IROW = (/& - LU_IROW_0, LU_IROW_1 /) - - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_0 = (/ & - 1, 4, 60, 2, 4, 60, 3, 29, 35, 54, 4, 60, & - 5, 60, 6, 58, 61, 7, 31, 61, 8, 60, 9, 60, & - 10, 57, 60, 11, 60, 12, 56, 61, 13, 14, 60, 13, & - 14, 53, 60, 15, 60, 16, 60, 61, 62, 17, 54, 60, & - 63, 18, 32, 54, 60, 19, 26, 38, 53, 60, 62, 20, & - 54, 55, 58, 60, 21, 54, 55, 57, 58, 59, 60, 22, & - 55, 60, 61, 23, 54, 60, 61, 24, 43, 56, 60, 25, & - 33, 56, 60, 61, 26, 52, 54, 62, 27, 48, 54, 59, & - 60, 28, 44, 60, 61, 8, 15, 29, 54, 60, 62, 26, & - 30, 52, 54, 57, 60, 62, 7, 31, 45, 56, 60, 61, & - 62, 18, 32, 39, 53, 54, 60, 62, 24, 33, 43, 54, & - 56, 60, 61, 12, 24, 25, 33, 34, 43, 45, 47, 49, & - 50, 51, 52, 54, 56, 60, 61, 24, 35, 43, 45, 54, & - 56, 60, 62, 29, 35, 36, 37, 38, 40, 41, 42, 43, & - 45, 46, 47, 49, 50, 52, 53, 54, 56, 60, 62, 63, & - 15, 29, 37, 43, 45, 47, 53, 54, 56, 60, 62, 38, & - 53, 56, 60, 63, 18, 25, 32, 33, 39, 43, 53, 54, & - 56, 60, 61, 62, 40, 53, 56, 60, 63, 41, 53, 56, & - 60, 63, 42, 53, 56, 60, 63, 8, 15, 33, 43, 54, & - 56, 60, 61, 15, 28, 40, 41, 42, 44, 46, 47, 51, & - 53, 56, 60, 61, 63, 29, 43, 45, 53, 54, 56, 60, & - 61, 62, 46, 53, 56, 60, 61, 63, 46, 47, 53, 56, & - 60, 61, 63, 9, 28, 41, 42, 43, 44, 46, 47, 48, & - 51, 53, 54, 56, 59, 60, 61, 62, 63, 11, 27, 28, & - 31, 38, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, & - 51, 53, 54, 56, 59, 60, 61, 62, 63, 9, 11, 22, & - 27, 28, 40, 41, 44, 46, 47, 48, 50, 51, 53, 54, & - 55, 56, 57, 58, 59, 60, 61, 62, 63, 28, 29, 35, & - 39, 42, 43, 44, 45, 46, 47, 48, 51, 53, 54, 56, & - 59, 60, 61, 62, 63, 10, 11, 26, 29, 30, 35, 38 /) - INTEGER, PARAMETER, DIMENSION(340) :: LU_ICOL_1 = (/ & - 40, 41, 42, 43, 45, 46, 47, 51, 52, 53, 54, 55, & - 56, 57, 58, 59, 60, 61, 62, 63, 38, 39, 40, 41, & - 42, 43, 45, 46, 47, 53, 54, 55, 56, 58, 60, 61, & - 62, 63, 4, 8, 9, 10, 11, 13, 14, 15, 17, 19, & - 23, 26, 27, 28, 29, 30, 31, 32, 33, 35, 36, 37, & - 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, & - 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, & - 62, 63, 22, 42, 46, 47, 49, 51, 53, 54, 55, 56, & - 57, 58, 59, 60, 61, 62, 63, 12, 23, 24, 25, 33, & - 34, 38, 40, 41, 42, 43, 45, 46, 47, 49, 50, 51, & - 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, & - 5, 20, 21, 30, 49, 50, 51, 52, 53, 54, 55, 56, & - 57, 58, 59, 60, 61, 62, 63, 6, 20, 37, 43, 45, & - 47, 50, 51, 53, 54, 55, 56, 57, 58, 59, 60, 61, & - 62, 63, 8, 9, 11, 15, 27, 28, 30, 31, 37, 38, & - 40, 41, 42, 43, 44, 45, 46, 47, 48, 51, 52, 53, & - 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 4, 5, & - 8, 9, 10, 11, 13, 14, 15, 16, 17, 18, 19, 20, & - 21, 22, 23, 24, 25, 26, 27, 30, 32, 33, 34, 36, & - 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, & - 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, & - 61, 62, 63, 6, 7, 12, 16, 22, 23, 26, 28, 29, & - 31, 32, 33, 34, 35, 38, 39, 40, 41, 42, 43, 44, & - 45, 46, 47, 49, 50, 51, 52, 53, 54, 55, 56, 57, & - 58, 59, 60, 61, 62, 63, 16, 26, 29, 31, 32, 35, & - 39, 43, 45, 46, 48, 51, 52, 53, 54, 55, 56, 57, & - 58, 59, 60, 61, 62, 63, 14, 17, 38, 40, 41, 42, & - 46, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, & - 60, 61, 62, 63 /) - INTEGER, PARAMETER, DIMENSION(700) :: LU_ICOL = (/& - LU_ICOL_0, LU_ICOL_1 /) - - INTEGER, PARAMETER, DIMENSION(64) :: LU_CROW = (/ & - 1, 4, 7, 11, 13, 15, 18, 21, 23, 25, 28, 30, & - 33, 36, 40, 42, 46, 50, 54, 60, 65, 72, 76, 80, & - 84, 89, 93, 98,102,108,115,122,129,136,152,160, & - 181,192,197,209,214,219,224,232,246,255,261,268, & - 286,310,334,354,381,399,447,464,493,512,531,563, & - 616,655,679,701 /) - - INTEGER, PARAMETER, DIMENSION(64) :: LU_DIAG = (/ & - 1, 4, 7, 11, 13, 15, 18, 21, 23, 25, 28, 30, & - 33, 37, 40, 42, 46, 50, 54, 60, 65, 72, 76, 80, & - 84, 89, 93, 98,104,109,116,123,130,140,153,162, & - 183,192,201,209,214,219,227,237,248,255,262,276, & - 300,321,345,369,390,437,455,485,505,525,558,612, & - 652,677,700,701 /) - - -END MODULE CB05_CSIRO_JacobianSP - diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_JacobianSP.o b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_JacobianSP.o deleted file mode 100644 index 75723e211ce1dfa6cf25c0300f7b2117a2c90dcf..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_JacobianSP.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_LinearAlgebra.f90 b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_LinearAlgebra.f90 deleted file mode 100644 index b843304e8d9a13a0ce1704c65bd3a215ef8eb0f3..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_LinearAlgebra.f90 +++ /dev/null @@ -1,1472 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Linear Algebra Data and Routines File -! -! Generated by KPP-2.2.3 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 : CB05_CSIRO_LinearAlgebra.f90 -! Time : Thu Oct 8 08:21:51 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05_CSIRO_26998_BOXMOX -! Equation file : CB05_CSIRO.kpp -! Output root filename : CB05_CSIRO -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CB05_CSIRO_LinearAlgebra - - USE CB05_CSIRO_Parameters - USE CB05_CSIRO_JacobianSP - - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! SPARSE_UTIL - SPARSE utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecomp( JVS, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CB05_CSIRO_Parameters - USE CB05_CSIRO_JacobianSP - - INTEGER :: IER - REAL(kind=dp) :: JVS(LU_NONZERO), W(NVAR), a - INTEGER :: k, kk, j, jj - - a = 0. ! mz_rs_20050606 - IER = 0 - DO k=1,NVAR - ! mz_rs_20050606: don't check if real value == 0 - ! IF ( JVS( LU_DIAG(k) ) .EQ. 0. ) THEN - IF ( ABS(JVS(LU_DIAG(k))) < TINY(a) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - W( LU_ICOL(kk) ) = JVS(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - a = -W(j) / JVS( LU_DIAG(j) ) - W(j) = -a - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVS(kk) = W( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecomp - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecompCmplx( JVS, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization, complex -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CB05_CSIRO_Parameters - USE CB05_CSIRO_JacobianSP - - INTEGER :: IER - DOUBLE COMPLEX :: JVS(LU_NONZERO), W(NVAR), a - REAL(kind=dp) :: b = 0.0 - INTEGER :: k, kk, j, jj - - IER = 0 - DO k=1,NVAR - IF ( ABS(JVS(LU_DIAG(k))) < TINY(b) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - W( LU_ICOL(kk) ) = JVS(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - a = -W(j) / JVS( LU_DIAG(j) ) - W(j) = -a - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVS(kk) = W( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecompCmplx - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecompCmplxR( JVSR, JVSI, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization, complex -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CB05_CSIRO_Parameters - USE CB05_CSIRO_JacobianSP - - INTEGER :: IER - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO) - REAL(kind=dp) :: WR(NVAR), WI(NVAR), ar, ai, den - INTEGER :: k, kk, j, jj - - IER = 0 - ar = 0.0 - DO k=1,NVAR - IF ( ( ABS(JVSR(LU_DIAG(k))) < TINY(ar) ) .AND. & - ( ABS(JVSI(LU_DIAG(k))) < TINY(ar) ) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - WR( LU_ICOL(kk) ) = JVSR(kk) - WI( LU_ICOL(kk) ) = JVSI(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - den = JVSR(LU_DIAG(j))**2 + JVSI(LU_DIAG(j))**2 - ar = -(WR(j)*JVSR(LU_DIAG(j)) + WI(j)*JVSI(LU_DIAG(j)))/den - ai = -(WI(j)*JVSR(LU_DIAG(j)) - WR(j)*JVSI(LU_DIAG(j)))/den - WR(j) = -ar - WI(j) = -ai - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - WR( LU_ICOL(jj) ) = WR( LU_ICOL(jj) ) + ar*JVSR(jj) - ai*JVSI(jj) - WI( LU_ICOL(jj) ) = WI( LU_ICOL(jj) ) + ar*JVSI(jj) + ai*JVSR(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVSR(kk) = WR( LU_ICOL(kk) ) - JVSI(kk) = WI( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecompCmplxR - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveIndirect( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse solve subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CB05_CSIRO_Parameters - USE CB05_CSIRO_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR), sum - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - X(i) = X(i) - JVS(j)*X(LU_ICOL(j)); - END DO - END DO - - DO i=NVAR,1,-1 - sum = X(i); - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sum = sum - JVS(j)*X(LU_ICOL(j)); - END DO - X(i) = sum/JVS(LU_DIAG(i)); - END DO - -END SUBROUTINE KppSolveIndirect - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRIndirect( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CB05_CSIRO_Parameters - USE CB05_CSIRO_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR) - - DO i=1,NVAR - X(i) = X(i)/JVS(LU_DIAG(i)) - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - -END SUBROUTINE KppSolveTRIndirect - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveCmplx( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CB05_CSIRO_Parameters - USE CB05_CSIRO_JacobianSP - - INTEGER :: i, j - DOUBLE COMPLEX :: JVS(LU_NONZERO), X(NVAR), sum - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - X(i) = X(i) - JVS(j)*X(LU_ICOL(j)); - END DO - END DO - - DO i=NVAR,1,-1 - sum = X(i); - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sum = sum - JVS(j)*X(LU_ICOL(j)); - END DO - X(i) = sum/JVS(LU_DIAG(i)); - END DO - -END SUBROUTINE KppSolveCmplx - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveCmplxR( JVSR, JVSI, XR, XI ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve subroutine using indirect addressing -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CB05_CSIRO_Parameters - USE CB05_CSIRO_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), sumr, sumi, den - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - XR(i) = XR(i) - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j))) - XI(i) = XI(i) - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j))) - END DO - END DO - - DO i=NVAR,1,-1 - sumr = XR(i); sumi = XI(i) - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sumr = sumr - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j))) - sumi = sumi - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j))) - END DO - den = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2 - XR(i) = (sumr*JVSR(LU_DIAG(i)) + sumi*JVSI(LU_DIAG(i)))/den - XI(i) = (sumi*JVSR(LU_DIAG(i)) - sumr*JVSI(LU_DIAG(i)))/den - END DO - -END SUBROUTINE KppSolveCmplxR - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRCmplx( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CB05_CSIRO_Parameters - USE CB05_CSIRO_JacobianSP - - INTEGER :: i, j - DOUBLE COMPLEX :: JVS(LU_NONZERO), X(NVAR) - - DO i=1,NVAR - X(i) = X(i)/JVS(LU_DIAG(i)) - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - -END SUBROUTINE KppSolveTRCmplx - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRCmplxR( JVSR, JVSI, XR, XI ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CB05_CSIRO_Parameters - USE CB05_CSIRO_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), den - - DO i=1,NVAR - den = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2 - XR(i) = (XR(i)*JVSR(LU_DIAG(i)) + XI(i)*JVSI(LU_DIAG(i)))/den - XI(i) = (XI(i)*JVSR(LU_DIAG(i)) - XR(i)*JVSI(LU_DIAG(i)))/den - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i)) - XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i)) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i)) - XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i)) - END DO - END DO - -END SUBROUTINE KppSolveTRCmplxR - - -! -! Next few commented subroutines perform sparse big linear algebra -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppDecompBig( JVS, IP, IER ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Sparse LU factorization -!! for the Runge Kutta (3n)x(3n) linear system -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE CB05_CSIRO_Parameters -! USE CB05_CSIRO_JacobianSP -! -! INTEGER :: IP3(3), IER, IP(3,NVAR) -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), W(3,3,NVAR), a(3,3), E(3,3) -! INTEGER :: k, kk, j, jj -! -! a = 0.0d0 -! IER = 0 -! DO k=1,NVAR -! DO kk = LU_CROW(k), LU_CROW(k+1)-1 -! W( 1:3,1:3,LU_ICOL(kk) ) = JVS(1:3,1:3,kk) -! END DO -! DO kk = LU_CROW(k), LU_DIAG(k)-1 -! j = LU_ICOL(kk) -! E(1:3,1:3) = JVS( 1:3,1:3,LU_DIAG(j) ) -! ! CALL DGETRF(3,3,E,3,IP3,IER) -! CALL FAC3(E,IP3,IER) -! IF ( IER /= 0 ) RETURN -! ! a = W(j) / JVS( LU_DIAG(j) ) -! a(1:3,1:3) = W( 1:3,1:3,j ) -! ! CALL DGETRS ('N',3,3,E,3,IP3,a,3,IER) -! CALL SOL3('N',E,IP3,a(1,1)) -! CALL SOL3('N',E,IP3,a(1,2)) -! CALL SOL3('N',E,IP3,a(1,3)) -! W(1:3,1:3,j) = a(1:3,1:3) -! DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 -! W( 1:3,1:3,LU_ICOL(jj) ) = W( 1:3,1:3,LU_ICOL(jj) ) & -! - MATMUL( a(1:3,1:3) , JVS(1:3,1:3,jj) ) -! END DO -! END DO -! DO kk = LU_CROW(k), LU_CROW(k+1)-1 -! JVS(1:3,1:3,kk) = W( 1:3,1:3,LU_ICOL(kk) ) -! END DO -! END DO -! -! DO k=1,NVAR -! ! CALL WGEFA(JVS(1,1,LU_DIAG(k)),3,3,IP(1,k),IER) -! ! CALL DGETRF(3,3,JVS(1,1,LU_DIAG(k)),3,IP(1,k),IER) -! CALL FAC3(JVS(1,1,LU_DIAG(k)),IP(1,k),IER) -! IF ( IER /= 0 ) RETURN -! END DO -! -!END SUBROUTINE KppDecompBig -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppSolveBig( JVS, IP, X ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Sparse solve subroutine using indirect addressing -!! for the Runge Kutta (3n)x(3n) linear system -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE CB05_CSIRO_Parameters -! USE CB05_CSIRO_JacobianSP -! -! INTEGER :: i, j, k, m, IP3(3), IP(3,NVAR), IER -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR), sum(3) -! -! DO i=1,NVAR -! DO j = LU_CROW(i), LU_DIAG(i)-1 -! !X(1:3,i) = X(1:3,i) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j))); -! DO k=1,3 -! DO m=1,3 -! X(k,i) = X(k,i) - JVS(k,m,j)*X(m,LU_ICOL(j)) -! END DO -! END DO -! END DO -! END DO -! -! DO i=NVAR,1,-1 -! sum(1:3) = X(1:3,i); -! DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 -! !sum(1:3) = sum(1:3) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j))); -! DO k=1,3 -! DO m=1,3 -! sum(k) = sum(k) - JVS(k,m,j)*X(m,LU_ICOL(j)) -! END DO -! END DO -! END DO -! ! X(i) = sum/JVS(LU_DIAG(i)); -! ! CALL DGETRS ('N',3,1,JVS(1:3,1:3,LU_DIAG(i)),3,IP(1,i),sum,3,0) -! ! CALL WGESL('N',JVS(1,1,LU_DIAG(i)),3,3,IP(1,i),sum) -! CALL SOL3('N',JVS(1,1,LU_DIAG(i)),IP(1,i),sum) -! X(1:3,i) = sum(1:3) -! END DO -! -!END SUBROUTINE KppSolveBig -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppSolveBigTR( JVS, IP, X ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Big sparse transpose solve using indirect addressing -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE CB05_CSIRO_Parameters -! USE CB05_CSIRO_JacobianSP -! -! INTEGER :: i, j, k, m, IP(3,NVAR) -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR) -! -! DO i=1,NVAR -! ! X(i) = X(i)/JVS(LU_DIAG(i)) -! CALL SOL3('T',JVS(1,1,LU_DIAG(i)),IP(1,i),X(1,i)) -! DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 -! !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) & -! ! - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) ) -! DO k=1,3 -! DO m=1,3 -! X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i) -! END DO -! END DO -! END DO -! END DO -! -! DO i=NVAR, 1, -1 -! DO j=LU_CROW(i),LU_DIAG(i)-1 -! !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) & -! ! - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) ) -! DO k=1,3 -! DO m=1,3 -! X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i) -! END DO -! END DO -! END DO -! END DO -! -!END SUBROUTINE KppSolveBigTR -! -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE FAC3(A,IPVT,INFO) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! FAC3 FACTORS THE MATRIX A (3,3) BY -!! GAUSS ELIMINATION WITH PARTIAL PIVOTING -!! LINPACK - LIKE -!! -!! Remove comments to perform pivoting -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! -! REAL(kind=dp) :: A(3,3) -! INTEGER :: IPVT(3),INFO -!! INTEGER :: L -!! REAL(kind=dp) :: t, dmax, da, TMP(3) -! REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0 -! -! info = 0 -!! t = TINY(da) -!! -!! da = ABS(A(1,1)); L = 1 -!! IF ( ABS(A(2,1))>da ) THEN -!! da = ABS(A(2,1)); L = 2 -!! IF ( ABS(A(3,1))>da ) THEN -!! L = 3 -!! END IF -!! END IF -!! IPVT(1) = L -!! IF (L /=1 ) THEN -!! TMP(1:3) = A(L,1:3) -!! A(L,1:3) = A(1,1:3) -!! A(1,1:3) = TMP(1:3) -!! END IF -!! IF (ABS(A(1,1)) < t) THEN -!! info = 1 -!! return -!! END IF -!! -! A(2,1) = A(2,1)/A(1,1) -! A(2,2) = A(2,2) - A(2,1)*A(1,2) -! A(2,3) = A(2,3) - A(2,1)*A(1,3) -! A(3,1) = A(3,1)/A(1,1) -! A(3,2) = A(3,2) - A(3,1)*A(1,2) -! A(3,3) = A(3,3) - A(3,1)*A(1,3) -! -!! IPVT(2) = 2 -!! IF (ABS(A(3,2))>ABS(A(2,2))) THEN -!! IPVT(2) = 3 -!! TMP(2:3) = A(3,2:3) -!! A(3,2:3) = A(2,2:3) -!! A(2,2:3) = TMP(2:3) -!! END IF -!! IF (ABS(A(2,2)) < t) THEN -!! info = 1 -!! return -!! END IF -!! -! A(3,2) = A(3,2)/A(2,2) -! A(3,3) = A(3,3) - A(3,2)*A(2,3) -! IPVT(3) = 3 -! -!END SUBROUTINE FAC3 -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE SOL3(Trans,A,IPVT,b) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! SOL3 solves the system 3x3 -!! A * x = b or trans(a) * x = b -!! using the factors computed by WGEFA. -!! -!! Trans = 'N' to solve A*x = b , -!! = 'T' to solve transpose(A)*x = b -!! LINPACK - LIKE -!! -!! Remove comments to use pivoting -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! CHARACTER :: Trans -! REAL(kind=dp) :: a(3,3),b(3) -! INTEGER :: IPVT(3) -!! INTEGER :: L -!! REAL(kind=dp) :: TMP -! -! SELECT CASE (Trans) -! -! CASE ('n','N') ! Solve A * x = b -! -!! Solve L*y = b -!! L = IPVT(1) -!! IF (L /= 1) THEN -!! TMP = B(1); B(1) = B(L); B(L) = TMP -!! END IF -! b(2) = b(2)-A(2,1)*b(1) -! b(3) = b(3)-A(3,1)*b(1) -! -!! L = IPVT(2) -!! IF (L /= 2) THEN -!! TMP = B(2); B(2) = B(L); B(L) = TMP -!! END IF -! b(3) = b(3)-A(3,2)*b(2) -! -!! Solve U*x = y -! b(3) = b(3)/A(3,3) -! b(2) = (b(2)-A(2,3)*b(3))/A(2,2) -! b(1) = (b(1)-A(1,3)*b(3)-A(1,2)*b(2))/A(1,1) -! -! -! CASE ('t','T') ! Solve transpose(A) * x = b -! -!! Solve transpose(U)*y = b -! b(1) = b(1)/A(1,1) -! b(2) = (b(2)-A(1,2)*b(1))/A(2,2) -! b(3) = (b(3)-A(1,3)*b(1)-A(2,3)*b(2))/A(3,3) -! -!! Solve transpose(L)*x = y -! b(2) = b(2)-A(3,2)*b(3) -!! L = ipvt(2) -!! IF (L /= 2) THEN -!! TMP = B(2); B(2) = B(L); B(L) = TMP -!! END IF -! b(1) = b(1)-A(3,1)*b(3)-A(2,1)*b(2) -!! L = ipvt(1) -!! IF (L /= 1) THEN -!! TMP = B(1); B(1) = B(L); B(L) = TMP -!! END IF -! -! END SELECT -! -!END SUBROUTINE SOL3 - -! End of SPARSE_UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! KppSolve - sparse back substitution -! Arguments : -! JVS - sparse Jacobian of variables -! X - Vector for variables -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE KppSolve ( JVS, X ) - -! JVS - sparse Jacobian of variables - REAL(kind=dp) :: JVS(LU_NONZERO) -! X - Vector for variables - REAL(kind=dp) :: X(NVAR) - - X(14) = X(14)-JVS(36)*X(13) - X(29) = X(29)-JVS(102)*X(8)-JVS(103)*X(15) - X(30) = X(30)-JVS(108)*X(26) - X(31) = X(31)-JVS(115)*X(7) - X(32) = X(32)-JVS(122)*X(18) - X(33) = X(33)-JVS(129)*X(24) - X(34) = X(34)-JVS(136)*X(12)-JVS(137)*X(24)-JVS(138)*X(25)-JVS(139)*X(33) - X(35) = X(35)-JVS(152)*X(24) - X(36) = X(36)-JVS(160)*X(29)-JVS(161)*X(35) - X(37) = X(37)-JVS(181)*X(15)-JVS(182)*X(29) - X(39) = X(39)-JVS(197)*X(18)-JVS(198)*X(25)-JVS(199)*X(32)-JVS(200)*X(33) - X(43) = X(43)-JVS(224)*X(8)-JVS(225)*X(15)-JVS(226)*X(33) - X(44) = X(44)-JVS(232)*X(15)-JVS(233)*X(28)-JVS(234)*X(40)-JVS(235)*X(41)-JVS(236)*X(42) - X(45) = X(45)-JVS(246)*X(29)-JVS(247)*X(43) - X(47) = X(47)-JVS(261)*X(46) - X(48) = X(48)-JVS(268)*X(9)-JVS(269)*X(28)-JVS(270)*X(41)-JVS(271)*X(42)-JVS(272)*X(43)-JVS(273)*X(44)-JVS(274)*X(46)& - &-JVS(275)*X(47) - X(49) = X(49)-JVS(286)*X(11)-JVS(287)*X(27)-JVS(288)*X(28)-JVS(289)*X(31)-JVS(290)*X(38)-JVS(291)*X(40)-JVS(292)*X(41)& - &-JVS(293)*X(42)-JVS(294)*X(43)-JVS(295)*X(44)-JVS(296)*X(45)-JVS(297)*X(46)-JVS(298)*X(47)-JVS(299)*X(48) - X(50) = X(50)-JVS(310)*X(9)-JVS(311)*X(11)-JVS(312)*X(22)-JVS(313)*X(27)-JVS(314)*X(28)-JVS(315)*X(40)-JVS(316)*X(41)& - &-JVS(317)*X(44)-JVS(318)*X(46)-JVS(319)*X(47)-JVS(320)*X(48) - X(51) = X(51)-JVS(334)*X(28)-JVS(335)*X(29)-JVS(336)*X(35)-JVS(337)*X(39)-JVS(338)*X(42)-JVS(339)*X(43)-JVS(340)*X(44)& - &-JVS(341)*X(45)-JVS(342)*X(46)-JVS(343)*X(47)-JVS(344)*X(48) - X(52) = X(52)-JVS(354)*X(10)-JVS(355)*X(11)-JVS(356)*X(26)-JVS(357)*X(29)-JVS(358)*X(30)-JVS(359)*X(35)-JVS(360)*X(38)& - &-JVS(361)*X(40)-JVS(362)*X(41)-JVS(363)*X(42)-JVS(364)*X(43)-JVS(365)*X(45)-JVS(366)*X(46)-JVS(367)*X(47)& - &-JVS(368)*X(51) - X(53) = X(53)-JVS(381)*X(38)-JVS(382)*X(39)-JVS(383)*X(40)-JVS(384)*X(41)-JVS(385)*X(42)-JVS(386)*X(43)-JVS(387)*X(45)& - &-JVS(388)*X(46)-JVS(389)*X(47) - X(54) = X(54)-JVS(399)*X(4)-JVS(400)*X(8)-JVS(401)*X(9)-JVS(402)*X(10)-JVS(403)*X(11)-JVS(404)*X(13)-JVS(405)*X(14)& - &-JVS(406)*X(15)-JVS(407)*X(17)-JVS(408)*X(19)-JVS(409)*X(23)-JVS(410)*X(26)-JVS(411)*X(27)-JVS(412)*X(28)& - &-JVS(413)*X(29)-JVS(414)*X(30)-JVS(415)*X(31)-JVS(416)*X(32)-JVS(417)*X(33)-JVS(418)*X(35)-JVS(419)*X(36)& - &-JVS(420)*X(37)-JVS(421)*X(38)-JVS(422)*X(39)-JVS(423)*X(40)-JVS(424)*X(41)-JVS(425)*X(42)-JVS(426)*X(43)& - &-JVS(427)*X(44)-JVS(428)*X(45)-JVS(429)*X(46)-JVS(430)*X(47)-JVS(431)*X(48)-JVS(432)*X(49)-JVS(433)*X(50)& - &-JVS(434)*X(51)-JVS(435)*X(52)-JVS(436)*X(53) - X(55) = X(55)-JVS(447)*X(22)-JVS(448)*X(42)-JVS(449)*X(46)-JVS(450)*X(47)-JVS(451)*X(49)-JVS(452)*X(51)-JVS(453)*X(53)& - &-JVS(454)*X(54) - X(56) = X(56)-JVS(464)*X(12)-JVS(465)*X(23)-JVS(466)*X(24)-JVS(467)*X(25)-JVS(468)*X(33)-JVS(469)*X(34)-JVS(470)*X(38)& - &-JVS(471)*X(40)-JVS(472)*X(41)-JVS(473)*X(42)-JVS(474)*X(43)-JVS(475)*X(45)-JVS(476)*X(46)-JVS(477)*X(47)& - &-JVS(478)*X(49)-JVS(479)*X(50)-JVS(480)*X(51)-JVS(481)*X(52)-JVS(482)*X(53)-JVS(483)*X(54)-JVS(484)*X(55) - X(57) = X(57)-JVS(493)*X(5)-JVS(494)*X(20)-JVS(495)*X(21)-JVS(496)*X(30)-JVS(497)*X(49)-JVS(498)*X(50)-JVS(499)*X(51)& - &-JVS(500)*X(52)-JVS(501)*X(53)-JVS(502)*X(54)-JVS(503)*X(55)-JVS(504)*X(56) - X(58) = X(58)-JVS(512)*X(6)-JVS(513)*X(20)-JVS(514)*X(37)-JVS(515)*X(43)-JVS(516)*X(45)-JVS(517)*X(47)-JVS(518)*X(50)& - &-JVS(519)*X(51)-JVS(520)*X(53)-JVS(521)*X(54)-JVS(522)*X(55)-JVS(523)*X(56)-JVS(524)*X(57) - X(59) = X(59)-JVS(531)*X(8)-JVS(532)*X(9)-JVS(533)*X(11)-JVS(534)*X(15)-JVS(535)*X(27)-JVS(536)*X(28)-JVS(537)*X(30)& - &-JVS(538)*X(31)-JVS(539)*X(37)-JVS(540)*X(38)-JVS(541)*X(40)-JVS(542)*X(41)-JVS(543)*X(42)-JVS(544)*X(43)& - &-JVS(545)*X(44)-JVS(546)*X(45)-JVS(547)*X(46)-JVS(548)*X(47)-JVS(549)*X(48)-JVS(550)*X(51)-JVS(551)*X(52)& - &-JVS(552)*X(53)-JVS(553)*X(54)-JVS(554)*X(55)-JVS(555)*X(56)-JVS(556)*X(57)-JVS(557)*X(58) - X(60) = X(60)-JVS(563)*X(4)-JVS(564)*X(5)-JVS(565)*X(8)-JVS(566)*X(9)-JVS(567)*X(10)-JVS(568)*X(11)-JVS(569)*X(13)& - &-JVS(570)*X(14)-JVS(571)*X(15)-JVS(572)*X(16)-JVS(573)*X(17)-JVS(574)*X(18)-JVS(575)*X(19)-JVS(576)*X(20)& - &-JVS(577)*X(21)-JVS(578)*X(22)-JVS(579)*X(23)-JVS(580)*X(24)-JVS(581)*X(25)-JVS(582)*X(26)-JVS(583)*X(27)& - &-JVS(584)*X(30)-JVS(585)*X(32)-JVS(586)*X(33)-JVS(587)*X(34)-JVS(588)*X(36)-JVS(589)*X(37)-JVS(590)*X(38)& - &-JVS(591)*X(39)-JVS(592)*X(40)-JVS(593)*X(41)-JVS(594)*X(42)-JVS(595)*X(43)-JVS(596)*X(44)-JVS(597)*X(45)& - &-JVS(598)*X(46)-JVS(599)*X(47)-JVS(600)*X(48)-JVS(601)*X(49)-JVS(602)*X(50)-JVS(603)*X(51)-JVS(604)*X(52)& - &-JVS(605)*X(53)-JVS(606)*X(54)-JVS(607)*X(55)-JVS(608)*X(56)-JVS(609)*X(57)-JVS(610)*X(58)-JVS(611)*X(59) - X(61) = X(61)-JVS(616)*X(6)-JVS(617)*X(7)-JVS(618)*X(12)-JVS(619)*X(16)-JVS(620)*X(22)-JVS(621)*X(23)-JVS(622)*X(26)& - &-JVS(623)*X(28)-JVS(624)*X(29)-JVS(625)*X(31)-JVS(626)*X(32)-JVS(627)*X(33)-JVS(628)*X(34)-JVS(629)*X(35)& - &-JVS(630)*X(38)-JVS(631)*X(39)-JVS(632)*X(40)-JVS(633)*X(41)-JVS(634)*X(42)-JVS(635)*X(43)-JVS(636)*X(44)& - &-JVS(637)*X(45)-JVS(638)*X(46)-JVS(639)*X(47)-JVS(640)*X(49)-JVS(641)*X(50)-JVS(642)*X(51)-JVS(643)*X(52)& - &-JVS(644)*X(53)-JVS(645)*X(54)-JVS(646)*X(55)-JVS(647)*X(56)-JVS(648)*X(57)-JVS(649)*X(58)-JVS(650)*X(59)& - &-JVS(651)*X(60) - X(62) = X(62)-JVS(655)*X(16)-JVS(656)*X(26)-JVS(657)*X(29)-JVS(658)*X(31)-JVS(659)*X(32)-JVS(660)*X(35)-JVS(661)*X(39)& - &-JVS(662)*X(43)-JVS(663)*X(45)-JVS(664)*X(46)-JVS(665)*X(48)-JVS(666)*X(51)-JVS(667)*X(52)-JVS(668)*X(53)& - &-JVS(669)*X(54)-JVS(670)*X(55)-JVS(671)*X(56)-JVS(672)*X(57)-JVS(673)*X(58)-JVS(674)*X(59)-JVS(675)*X(60)& - &-JVS(676)*X(61) - X(63) = X(63)-JVS(679)*X(14)-JVS(680)*X(17)-JVS(681)*X(38)-JVS(682)*X(40)-JVS(683)*X(41)-JVS(684)*X(42)-JVS(685)*X(46)& - &-JVS(686)*X(49)-JVS(687)*X(50)-JVS(688)*X(51)-JVS(689)*X(52)-JVS(690)*X(53)-JVS(691)*X(54)-JVS(692)*X(55)& - &-JVS(693)*X(56)-JVS(694)*X(57)-JVS(695)*X(58)-JVS(696)*X(59)-JVS(697)*X(60)-JVS(698)*X(61)-JVS(699)*X(62) - X(63) = X(63)/JVS(700) - X(62) = (X(62)-JVS(678)*X(63))/(JVS(677)) - X(61) = (X(61)-JVS(653)*X(62)-JVS(654)*X(63))/(JVS(652)) - X(60) = (X(60)-JVS(613)*X(61)-JVS(614)*X(62)-JVS(615)*X(63))/(JVS(612)) - X(59) = (X(59)-JVS(559)*X(60)-JVS(560)*X(61)-JVS(561)*X(62)-JVS(562)*X(63))/(JVS(558)) - X(58) = (X(58)-JVS(526)*X(59)-JVS(527)*X(60)-JVS(528)*X(61)-JVS(529)*X(62)-JVS(530)*X(63))/(JVS(525)) - X(57) = (X(57)-JVS(506)*X(58)-JVS(507)*X(59)-JVS(508)*X(60)-JVS(509)*X(61)-JVS(510)*X(62)-JVS(511)*X(63))/(JVS(505)) - X(56) = (X(56)-JVS(486)*X(57)-JVS(487)*X(58)-JVS(488)*X(59)-JVS(489)*X(60)-JVS(490)*X(61)-JVS(491)*X(62)-JVS(492)& - &*X(63))/(JVS(485)) - X(55) = (X(55)-JVS(456)*X(56)-JVS(457)*X(57)-JVS(458)*X(58)-JVS(459)*X(59)-JVS(460)*X(60)-JVS(461)*X(61)-JVS(462)& - &*X(62)-JVS(463)*X(63))/(JVS(455)) - X(54) = (X(54)-JVS(438)*X(55)-JVS(439)*X(56)-JVS(440)*X(57)-JVS(441)*X(58)-JVS(442)*X(59)-JVS(443)*X(60)-JVS(444)& - &*X(61)-JVS(445)*X(62)-JVS(446)*X(63))/(JVS(437)) - X(53) = (X(53)-JVS(391)*X(54)-JVS(392)*X(55)-JVS(393)*X(56)-JVS(394)*X(58)-JVS(395)*X(60)-JVS(396)*X(61)-JVS(397)& - &*X(62)-JVS(398)*X(63))/(JVS(390)) - X(52) = (X(52)-JVS(370)*X(53)-JVS(371)*X(54)-JVS(372)*X(55)-JVS(373)*X(56)-JVS(374)*X(57)-JVS(375)*X(58)-JVS(376)& - &*X(59)-JVS(377)*X(60)-JVS(378)*X(61)-JVS(379)*X(62)-JVS(380)*X(63))/(JVS(369)) - X(51) = (X(51)-JVS(346)*X(53)-JVS(347)*X(54)-JVS(348)*X(56)-JVS(349)*X(59)-JVS(350)*X(60)-JVS(351)*X(61)-JVS(352)& - &*X(62)-JVS(353)*X(63))/(JVS(345)) - X(50) = (X(50)-JVS(322)*X(51)-JVS(323)*X(53)-JVS(324)*X(54)-JVS(325)*X(55)-JVS(326)*X(56)-JVS(327)*X(57)-JVS(328)& - &*X(58)-JVS(329)*X(59)-JVS(330)*X(60)-JVS(331)*X(61)-JVS(332)*X(62)-JVS(333)*X(63))/(JVS(321)) - X(49) = (X(49)-JVS(301)*X(51)-JVS(302)*X(53)-JVS(303)*X(54)-JVS(304)*X(56)-JVS(305)*X(59)-JVS(306)*X(60)-JVS(307)& - &*X(61)-JVS(308)*X(62)-JVS(309)*X(63))/(JVS(300)) - X(48) = (X(48)-JVS(277)*X(51)-JVS(278)*X(53)-JVS(279)*X(54)-JVS(280)*X(56)-JVS(281)*X(59)-JVS(282)*X(60)-JVS(283)& - &*X(61)-JVS(284)*X(62)-JVS(285)*X(63))/(JVS(276)) - X(47) = (X(47)-JVS(263)*X(53)-JVS(264)*X(56)-JVS(265)*X(60)-JVS(266)*X(61)-JVS(267)*X(63))/(JVS(262)) - X(46) = (X(46)-JVS(256)*X(53)-JVS(257)*X(56)-JVS(258)*X(60)-JVS(259)*X(61)-JVS(260)*X(63))/(JVS(255)) - X(45) = (X(45)-JVS(249)*X(53)-JVS(250)*X(54)-JVS(251)*X(56)-JVS(252)*X(60)-JVS(253)*X(61)-JVS(254)*X(62))/(JVS(248)) - X(44) = (X(44)-JVS(238)*X(46)-JVS(239)*X(47)-JVS(240)*X(51)-JVS(241)*X(53)-JVS(242)*X(56)-JVS(243)*X(60)-JVS(244)& - &*X(61)-JVS(245)*X(63))/(JVS(237)) - X(43) = (X(43)-JVS(228)*X(54)-JVS(229)*X(56)-JVS(230)*X(60)-JVS(231)*X(61))/(JVS(227)) - X(42) = (X(42)-JVS(220)*X(53)-JVS(221)*X(56)-JVS(222)*X(60)-JVS(223)*X(63))/(JVS(219)) - X(41) = (X(41)-JVS(215)*X(53)-JVS(216)*X(56)-JVS(217)*X(60)-JVS(218)*X(63))/(JVS(214)) - X(40) = (X(40)-JVS(210)*X(53)-JVS(211)*X(56)-JVS(212)*X(60)-JVS(213)*X(63))/(JVS(209)) - X(39) = (X(39)-JVS(202)*X(43)-JVS(203)*X(53)-JVS(204)*X(54)-JVS(205)*X(56)-JVS(206)*X(60)-JVS(207)*X(61)-JVS(208)& - &*X(62))/(JVS(201)) - X(38) = (X(38)-JVS(193)*X(53)-JVS(194)*X(56)-JVS(195)*X(60)-JVS(196)*X(63))/(JVS(192)) - X(37) = (X(37)-JVS(184)*X(43)-JVS(185)*X(45)-JVS(186)*X(47)-JVS(187)*X(53)-JVS(188)*X(54)-JVS(189)*X(56)-JVS(190)& - &*X(60)-JVS(191)*X(62))/(JVS(183)) - X(36) = (X(36)-JVS(163)*X(37)-JVS(164)*X(38)-JVS(165)*X(40)-JVS(166)*X(41)-JVS(167)*X(42)-JVS(168)*X(43)-JVS(169)& - &*X(45)-JVS(170)*X(46)-JVS(171)*X(47)-JVS(172)*X(49)-JVS(173)*X(50)-JVS(174)*X(52)-JVS(175)*X(53)-JVS(176)*X(54)& - &-JVS(177)*X(56)-JVS(178)*X(60)-JVS(179)*X(62)-JVS(180)*X(63))/(JVS(162)) - X(35) = (X(35)-JVS(154)*X(43)-JVS(155)*X(45)-JVS(156)*X(54)-JVS(157)*X(56)-JVS(158)*X(60)-JVS(159)*X(62))/(JVS(153)) - X(34) = (X(34)-JVS(141)*X(43)-JVS(142)*X(45)-JVS(143)*X(47)-JVS(144)*X(49)-JVS(145)*X(50)-JVS(146)*X(51)-JVS(147)& - &*X(52)-JVS(148)*X(54)-JVS(149)*X(56)-JVS(150)*X(60)-JVS(151)*X(61))/(JVS(140)) - X(33) = (X(33)-JVS(131)*X(43)-JVS(132)*X(54)-JVS(133)*X(56)-JVS(134)*X(60)-JVS(135)*X(61))/(JVS(130)) - X(32) = (X(32)-JVS(124)*X(39)-JVS(125)*X(53)-JVS(126)*X(54)-JVS(127)*X(60)-JVS(128)*X(62))/(JVS(123)) - X(31) = (X(31)-JVS(117)*X(45)-JVS(118)*X(56)-JVS(119)*X(60)-JVS(120)*X(61)-JVS(121)*X(62))/(JVS(116)) - X(30) = (X(30)-JVS(110)*X(52)-JVS(111)*X(54)-JVS(112)*X(57)-JVS(113)*X(60)-JVS(114)*X(62))/(JVS(109)) - X(29) = (X(29)-JVS(105)*X(54)-JVS(106)*X(60)-JVS(107)*X(62))/(JVS(104)) - X(28) = (X(28)-JVS(99)*X(44)-JVS(100)*X(60)-JVS(101)*X(61))/(JVS(98)) - X(27) = (X(27)-JVS(94)*X(48)-JVS(95)*X(54)-JVS(96)*X(59)-JVS(97)*X(60))/(JVS(93)) - X(26) = (X(26)-JVS(90)*X(52)-JVS(91)*X(54)-JVS(92)*X(62))/(JVS(89)) - X(25) = (X(25)-JVS(85)*X(33)-JVS(86)*X(56)-JVS(87)*X(60)-JVS(88)*X(61))/(JVS(84)) - X(24) = (X(24)-JVS(81)*X(43)-JVS(82)*X(56)-JVS(83)*X(60))/(JVS(80)) - X(23) = (X(23)-JVS(77)*X(54)-JVS(78)*X(60)-JVS(79)*X(61))/(JVS(76)) - X(22) = (X(22)-JVS(73)*X(55)-JVS(74)*X(60)-JVS(75)*X(61))/(JVS(72)) - X(21) = (X(21)-JVS(66)*X(54)-JVS(67)*X(55)-JVS(68)*X(57)-JVS(69)*X(58)-JVS(70)*X(59)-JVS(71)*X(60))/(JVS(65)) - X(20) = (X(20)-JVS(61)*X(54)-JVS(62)*X(55)-JVS(63)*X(58)-JVS(64)*X(60))/(JVS(60)) - X(19) = (X(19)-JVS(55)*X(26)-JVS(56)*X(38)-JVS(57)*X(53)-JVS(58)*X(60)-JVS(59)*X(62))/(JVS(54)) - X(18) = (X(18)-JVS(51)*X(32)-JVS(52)*X(54)-JVS(53)*X(60))/(JVS(50)) - X(17) = (X(17)-JVS(47)*X(54)-JVS(48)*X(60)-JVS(49)*X(63))/(JVS(46)) - X(16) = (X(16)-JVS(43)*X(60)-JVS(44)*X(61)-JVS(45)*X(62))/(JVS(42)) - X(15) = (X(15)-JVS(41)*X(60))/(JVS(40)) - X(14) = (X(14)-JVS(38)*X(53)-JVS(39)*X(60))/(JVS(37)) - X(13) = (X(13)-JVS(34)*X(14)-JVS(35)*X(60))/(JVS(33)) - X(12) = (X(12)-JVS(31)*X(56)-JVS(32)*X(61))/(JVS(30)) - X(11) = (X(11)-JVS(29)*X(60))/(JVS(28)) - X(10) = (X(10)-JVS(26)*X(57)-JVS(27)*X(60))/(JVS(25)) - X(9) = (X(9)-JVS(24)*X(60))/(JVS(23)) - X(8) = (X(8)-JVS(22)*X(60))/(JVS(21)) - X(7) = (X(7)-JVS(19)*X(31)-JVS(20)*X(61))/(JVS(18)) - X(6) = (X(6)-JVS(16)*X(58)-JVS(17)*X(61))/(JVS(15)) - X(5) = (X(5)-JVS(14)*X(60))/(JVS(13)) - X(4) = (X(4)-JVS(12)*X(60))/(JVS(11)) - X(3) = (X(3)-JVS(8)*X(29)-JVS(9)*X(35)-JVS(10)*X(54))/(JVS(7)) - X(2) = (X(2)-JVS(5)*X(4)-JVS(6)*X(60))/(JVS(4)) - X(1) = (X(1)-JVS(2)*X(4)-JVS(3)*X(60))/(JVS(1)) - -END SUBROUTINE KppSolve - -! End of KppSolve function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! KppSolveTR - sparse, transposed back substitution -! Arguments : -! JVS - sparse Jacobian of variables -! X - Vector for variables -! XX - Vector for output variables -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE KppSolveTR ( JVS, X, XX ) - -! JVS - sparse Jacobian of variables - REAL(kind=dp) :: JVS(LU_NONZERO) -! X - Vector for variables - REAL(kind=dp) :: X(NVAR) -! XX - Vector for output variables - REAL(kind=dp) :: XX(NVAR) - - XX(1) = X(1)/JVS(1) - XX(2) = X(2)/JVS(4) - XX(3) = X(3)/JVS(7) - XX(4) = (X(4)-JVS(2)*XX(1)-JVS(5)*XX(2))/(JVS(11)) - XX(5) = X(5)/JVS(13) - XX(6) = X(6)/JVS(15) - XX(7) = X(7)/JVS(18) - XX(8) = X(8)/JVS(21) - XX(9) = X(9)/JVS(23) - XX(10) = X(10)/JVS(25) - XX(11) = X(11)/JVS(28) - XX(12) = X(12)/JVS(30) - XX(13) = X(13)/JVS(33) - XX(14) = (X(14)-JVS(34)*XX(13))/(JVS(37)) - XX(15) = X(15)/JVS(40) - XX(16) = X(16)/JVS(42) - XX(17) = X(17)/JVS(46) - XX(18) = X(18)/JVS(50) - XX(19) = X(19)/JVS(54) - XX(20) = X(20)/JVS(60) - XX(21) = X(21)/JVS(65) - XX(22) = X(22)/JVS(72) - XX(23) = X(23)/JVS(76) - XX(24) = X(24)/JVS(80) - XX(25) = X(25)/JVS(84) - XX(26) = (X(26)-JVS(55)*XX(19))/(JVS(89)) - XX(27) = X(27)/JVS(93) - XX(28) = X(28)/JVS(98) - XX(29) = (X(29)-JVS(8)*XX(3))/(JVS(104)) - XX(30) = X(30)/JVS(109) - XX(31) = (X(31)-JVS(19)*XX(7))/(JVS(116)) - XX(32) = (X(32)-JVS(51)*XX(18))/(JVS(123)) - XX(33) = (X(33)-JVS(85)*XX(25))/(JVS(130)) - XX(34) = X(34)/JVS(140) - XX(35) = (X(35)-JVS(9)*XX(3))/(JVS(153)) - XX(36) = X(36)/JVS(162) - XX(37) = (X(37)-JVS(163)*XX(36))/(JVS(183)) - XX(38) = (X(38)-JVS(56)*XX(19)-JVS(164)*XX(36))/(JVS(192)) - XX(39) = (X(39)-JVS(124)*XX(32))/(JVS(201)) - XX(40) = (X(40)-JVS(165)*XX(36))/(JVS(209)) - XX(41) = (X(41)-JVS(166)*XX(36))/(JVS(214)) - XX(42) = (X(42)-JVS(167)*XX(36))/(JVS(219)) - XX(43) = (X(43)-JVS(81)*XX(24)-JVS(131)*XX(33)-JVS(141)*XX(34)-JVS(154)*XX(35)-JVS(168)*XX(36)-JVS(184)*XX(37)& - &-JVS(202)*XX(39))/(JVS(227)) - XX(44) = (X(44)-JVS(99)*XX(28))/(JVS(237)) - XX(45) = (X(45)-JVS(117)*XX(31)-JVS(142)*XX(34)-JVS(155)*XX(35)-JVS(169)*XX(36)-JVS(185)*XX(37))/(JVS(248)) - XX(46) = (X(46)-JVS(170)*XX(36)-JVS(238)*XX(44))/(JVS(255)) - XX(47) = (X(47)-JVS(143)*XX(34)-JVS(171)*XX(36)-JVS(186)*XX(37)-JVS(239)*XX(44))/(JVS(262)) - XX(48) = (X(48)-JVS(94)*XX(27))/(JVS(276)) - XX(49) = (X(49)-JVS(144)*XX(34)-JVS(172)*XX(36))/(JVS(300)) - XX(50) = (X(50)-JVS(145)*XX(34)-JVS(173)*XX(36))/(JVS(321)) - XX(51) = (X(51)-JVS(146)*XX(34)-JVS(240)*XX(44)-JVS(277)*XX(48)-JVS(301)*XX(49)-JVS(322)*XX(50))/(JVS(345)) - XX(52) = (X(52)-JVS(90)*XX(26)-JVS(110)*XX(30)-JVS(147)*XX(34)-JVS(174)*XX(36))/(JVS(369)) - XX(53) = (X(53)-JVS(38)*XX(14)-JVS(57)*XX(19)-JVS(125)*XX(32)-JVS(175)*XX(36)-JVS(187)*XX(37)-JVS(193)*XX(38)-JVS(203)& - &*XX(39)-JVS(210)*XX(40)-JVS(215)*XX(41)-JVS(220)*XX(42)-JVS(241)*XX(44)-JVS(249)*XX(45)-JVS(256)*XX(46)& - &-JVS(263)*XX(47)-JVS(278)*XX(48)-JVS(302)*XX(49)-JVS(323)*XX(50)-JVS(346)*XX(51)-JVS(370)*XX(52))/(JVS(390)) - XX(54) = (X(54)-JVS(10)*XX(3)-JVS(47)*XX(17)-JVS(52)*XX(18)-JVS(61)*XX(20)-JVS(66)*XX(21)-JVS(77)*XX(23)-JVS(91)& - &*XX(26)-JVS(95)*XX(27)-JVS(105)*XX(29)-JVS(111)*XX(30)-JVS(126)*XX(32)-JVS(132)*XX(33)-JVS(148)*XX(34)& - &-JVS(156)*XX(35)-JVS(176)*XX(36)-JVS(188)*XX(37)-JVS(204)*XX(39)-JVS(228)*XX(43)-JVS(250)*XX(45)-JVS(279)& - &*XX(48)-JVS(303)*XX(49)-JVS(324)*XX(50)-JVS(347)*XX(51)-JVS(371)*XX(52)-JVS(391)*XX(53))/(JVS(437)) - XX(55) = (X(55)-JVS(62)*XX(20)-JVS(67)*XX(21)-JVS(73)*XX(22)-JVS(325)*XX(50)-JVS(372)*XX(52)-JVS(392)*XX(53)-JVS(438)& - &*XX(54))/(JVS(455)) - XX(56) = (X(56)-JVS(31)*XX(12)-JVS(82)*XX(24)-JVS(86)*XX(25)-JVS(118)*XX(31)-JVS(133)*XX(33)-JVS(149)*XX(34)-JVS(157)& - &*XX(35)-JVS(177)*XX(36)-JVS(189)*XX(37)-JVS(194)*XX(38)-JVS(205)*XX(39)-JVS(211)*XX(40)-JVS(216)*XX(41)& - &-JVS(221)*XX(42)-JVS(229)*XX(43)-JVS(242)*XX(44)-JVS(251)*XX(45)-JVS(257)*XX(46)-JVS(264)*XX(47)-JVS(280)& - &*XX(48)-JVS(304)*XX(49)-JVS(326)*XX(50)-JVS(348)*XX(51)-JVS(373)*XX(52)-JVS(393)*XX(53)-JVS(439)*XX(54)& - &-JVS(456)*XX(55))/(JVS(485)) - XX(57) = (X(57)-JVS(26)*XX(10)-JVS(68)*XX(21)-JVS(112)*XX(30)-JVS(327)*XX(50)-JVS(374)*XX(52)-JVS(440)*XX(54)-JVS(457)& - &*XX(55)-JVS(486)*XX(56))/(JVS(505)) - XX(58) = (X(58)-JVS(16)*XX(6)-JVS(63)*XX(20)-JVS(69)*XX(21)-JVS(328)*XX(50)-JVS(375)*XX(52)-JVS(394)*XX(53)-JVS(441)& - &*XX(54)-JVS(458)*XX(55)-JVS(487)*XX(56)-JVS(506)*XX(57))/(JVS(525)) - XX(59) = (X(59)-JVS(70)*XX(21)-JVS(96)*XX(27)-JVS(281)*XX(48)-JVS(305)*XX(49)-JVS(329)*XX(50)-JVS(349)*XX(51)-JVS(376)& - &*XX(52)-JVS(442)*XX(54)-JVS(459)*XX(55)-JVS(488)*XX(56)-JVS(507)*XX(57)-JVS(526)*XX(58))/(JVS(558)) - XX(60) = (X(60)-JVS(3)*XX(1)-JVS(6)*XX(2)-JVS(12)*XX(4)-JVS(14)*XX(5)-JVS(22)*XX(8)-JVS(24)*XX(9)-JVS(27)*XX(10)& - &-JVS(29)*XX(11)-JVS(35)*XX(13)-JVS(39)*XX(14)-JVS(41)*XX(15)-JVS(43)*XX(16)-JVS(48)*XX(17)-JVS(53)*XX(18)& - &-JVS(58)*XX(19)-JVS(64)*XX(20)-JVS(71)*XX(21)-JVS(74)*XX(22)-JVS(78)*XX(23)-JVS(83)*XX(24)-JVS(87)*XX(25)& - &-JVS(97)*XX(27)-JVS(100)*XX(28)-JVS(106)*XX(29)-JVS(113)*XX(30)-JVS(119)*XX(31)-JVS(127)*XX(32)-JVS(134)& - &*XX(33)-JVS(150)*XX(34)-JVS(158)*XX(35)-JVS(178)*XX(36)-JVS(190)*XX(37)-JVS(195)*XX(38)-JVS(206)*XX(39)& - &-JVS(212)*XX(40)-JVS(217)*XX(41)-JVS(222)*XX(42)-JVS(230)*XX(43)-JVS(243)*XX(44)-JVS(252)*XX(45)-JVS(258)& - &*XX(46)-JVS(265)*XX(47)-JVS(282)*XX(48)-JVS(306)*XX(49)-JVS(330)*XX(50)-JVS(350)*XX(51)-JVS(377)*XX(52)& - &-JVS(395)*XX(53)-JVS(443)*XX(54)-JVS(460)*XX(55)-JVS(489)*XX(56)-JVS(508)*XX(57)-JVS(527)*XX(58)-JVS(559)& - &*XX(59))/(JVS(612)) - XX(61) = (X(61)-JVS(17)*XX(6)-JVS(20)*XX(7)-JVS(32)*XX(12)-JVS(44)*XX(16)-JVS(75)*XX(22)-JVS(79)*XX(23)-JVS(88)*XX(25)& - &-JVS(101)*XX(28)-JVS(120)*XX(31)-JVS(135)*XX(33)-JVS(151)*XX(34)-JVS(207)*XX(39)-JVS(231)*XX(43)-JVS(244)& - &*XX(44)-JVS(253)*XX(45)-JVS(259)*XX(46)-JVS(266)*XX(47)-JVS(283)*XX(48)-JVS(307)*XX(49)-JVS(331)*XX(50)& - &-JVS(351)*XX(51)-JVS(378)*XX(52)-JVS(396)*XX(53)-JVS(444)*XX(54)-JVS(461)*XX(55)-JVS(490)*XX(56)-JVS(509)& - &*XX(57)-JVS(528)*XX(58)-JVS(560)*XX(59)-JVS(613)*XX(60))/(JVS(652)) - XX(62) = (X(62)-JVS(45)*XX(16)-JVS(59)*XX(19)-JVS(92)*XX(26)-JVS(107)*XX(29)-JVS(114)*XX(30)-JVS(121)*XX(31)-JVS(128)& - &*XX(32)-JVS(159)*XX(35)-JVS(179)*XX(36)-JVS(191)*XX(37)-JVS(208)*XX(39)-JVS(254)*XX(45)-JVS(284)*XX(48)& - &-JVS(308)*XX(49)-JVS(332)*XX(50)-JVS(352)*XX(51)-JVS(379)*XX(52)-JVS(397)*XX(53)-JVS(445)*XX(54)-JVS(462)& - &*XX(55)-JVS(491)*XX(56)-JVS(510)*XX(57)-JVS(529)*XX(58)-JVS(561)*XX(59)-JVS(614)*XX(60)-JVS(653)*XX(61))& - &/(JVS(677)) - XX(63) = (X(63)-JVS(49)*XX(17)-JVS(180)*XX(36)-JVS(196)*XX(38)-JVS(213)*XX(40)-JVS(218)*XX(41)-JVS(223)*XX(42)& - &-JVS(245)*XX(44)-JVS(260)*XX(46)-JVS(267)*XX(47)-JVS(285)*XX(48)-JVS(309)*XX(49)-JVS(333)*XX(50)-JVS(353)& - &*XX(51)-JVS(380)*XX(52)-JVS(398)*XX(53)-JVS(446)*XX(54)-JVS(463)*XX(55)-JVS(492)*XX(56)-JVS(511)*XX(57)& - &-JVS(530)*XX(58)-JVS(562)*XX(59)-JVS(615)*XX(60)-JVS(654)*XX(61)-JVS(678)*XX(62))/(JVS(700)) - XX(63) = XX(63) - XX(62) = XX(62)-JVS(699)*XX(63) - XX(61) = XX(61)-JVS(676)*XX(62)-JVS(698)*XX(63) - XX(60) = XX(60)-JVS(651)*XX(61)-JVS(675)*XX(62)-JVS(697)*XX(63) - XX(59) = XX(59)-JVS(611)*XX(60)-JVS(650)*XX(61)-JVS(674)*XX(62)-JVS(696)*XX(63) - XX(58) = XX(58)-JVS(557)*XX(59)-JVS(610)*XX(60)-JVS(649)*XX(61)-JVS(673)*XX(62)-JVS(695)*XX(63) - XX(57) = XX(57)-JVS(524)*XX(58)-JVS(556)*XX(59)-JVS(609)*XX(60)-JVS(648)*XX(61)-JVS(672)*XX(62)-JVS(694)*XX(63) - XX(56) = XX(56)-JVS(504)*XX(57)-JVS(523)*XX(58)-JVS(555)*XX(59)-JVS(608)*XX(60)-JVS(647)*XX(61)-JVS(671)*XX(62)& - &-JVS(693)*XX(63) - XX(55) = XX(55)-JVS(484)*XX(56)-JVS(503)*XX(57)-JVS(522)*XX(58)-JVS(554)*XX(59)-JVS(607)*XX(60)-JVS(646)*XX(61)& - &-JVS(670)*XX(62)-JVS(692)*XX(63) - XX(54) = XX(54)-JVS(454)*XX(55)-JVS(483)*XX(56)-JVS(502)*XX(57)-JVS(521)*XX(58)-JVS(553)*XX(59)-JVS(606)*XX(60)& - &-JVS(645)*XX(61)-JVS(669)*XX(62)-JVS(691)*XX(63) - XX(53) = XX(53)-JVS(436)*XX(54)-JVS(453)*XX(55)-JVS(482)*XX(56)-JVS(501)*XX(57)-JVS(520)*XX(58)-JVS(552)*XX(59)& - &-JVS(605)*XX(60)-JVS(644)*XX(61)-JVS(668)*XX(62)-JVS(690)*XX(63) - XX(52) = XX(52)-JVS(435)*XX(54)-JVS(481)*XX(56)-JVS(500)*XX(57)-JVS(551)*XX(59)-JVS(604)*XX(60)-JVS(643)*XX(61)& - &-JVS(667)*XX(62)-JVS(689)*XX(63) - XX(51) = XX(51)-JVS(368)*XX(52)-JVS(434)*XX(54)-JVS(452)*XX(55)-JVS(480)*XX(56)-JVS(499)*XX(57)-JVS(519)*XX(58)& - &-JVS(550)*XX(59)-JVS(603)*XX(60)-JVS(642)*XX(61)-JVS(666)*XX(62)-JVS(688)*XX(63) - XX(50) = XX(50)-JVS(433)*XX(54)-JVS(479)*XX(56)-JVS(498)*XX(57)-JVS(518)*XX(58)-JVS(602)*XX(60)-JVS(641)*XX(61)& - &-JVS(687)*XX(63) - XX(49) = XX(49)-JVS(432)*XX(54)-JVS(451)*XX(55)-JVS(478)*XX(56)-JVS(497)*XX(57)-JVS(601)*XX(60)-JVS(640)*XX(61)& - &-JVS(686)*XX(63) - XX(48) = XX(48)-JVS(299)*XX(49)-JVS(320)*XX(50)-JVS(344)*XX(51)-JVS(431)*XX(54)-JVS(549)*XX(59)-JVS(600)*XX(60)& - &-JVS(665)*XX(62) - XX(47) = XX(47)-JVS(275)*XX(48)-JVS(298)*XX(49)-JVS(319)*XX(50)-JVS(343)*XX(51)-JVS(367)*XX(52)-JVS(389)*XX(53)& - &-JVS(430)*XX(54)-JVS(450)*XX(55)-JVS(477)*XX(56)-JVS(517)*XX(58)-JVS(548)*XX(59)-JVS(599)*XX(60)-JVS(639)& - &*XX(61) - XX(46) = XX(46)-JVS(261)*XX(47)-JVS(274)*XX(48)-JVS(297)*XX(49)-JVS(318)*XX(50)-JVS(342)*XX(51)-JVS(366)*XX(52)& - &-JVS(388)*XX(53)-JVS(429)*XX(54)-JVS(449)*XX(55)-JVS(476)*XX(56)-JVS(547)*XX(59)-JVS(598)*XX(60)-JVS(638)& - &*XX(61)-JVS(664)*XX(62)-JVS(685)*XX(63) - XX(45) = XX(45)-JVS(296)*XX(49)-JVS(341)*XX(51)-JVS(365)*XX(52)-JVS(387)*XX(53)-JVS(428)*XX(54)-JVS(475)*XX(56)& - &-JVS(516)*XX(58)-JVS(546)*XX(59)-JVS(597)*XX(60)-JVS(637)*XX(61)-JVS(663)*XX(62) - XX(44) = XX(44)-JVS(273)*XX(48)-JVS(295)*XX(49)-JVS(317)*XX(50)-JVS(340)*XX(51)-JVS(427)*XX(54)-JVS(545)*XX(59)& - &-JVS(596)*XX(60)-JVS(636)*XX(61) - XX(43) = XX(43)-JVS(247)*XX(45)-JVS(272)*XX(48)-JVS(294)*XX(49)-JVS(339)*XX(51)-JVS(364)*XX(52)-JVS(386)*XX(53)& - &-JVS(426)*XX(54)-JVS(474)*XX(56)-JVS(515)*XX(58)-JVS(544)*XX(59)-JVS(595)*XX(60)-JVS(635)*XX(61)-JVS(662)& - &*XX(62) - XX(42) = XX(42)-JVS(236)*XX(44)-JVS(271)*XX(48)-JVS(293)*XX(49)-JVS(338)*XX(51)-JVS(363)*XX(52)-JVS(385)*XX(53)& - &-JVS(425)*XX(54)-JVS(448)*XX(55)-JVS(473)*XX(56)-JVS(543)*XX(59)-JVS(594)*XX(60)-JVS(634)*XX(61)-JVS(684)& - &*XX(63) - XX(41) = XX(41)-JVS(235)*XX(44)-JVS(270)*XX(48)-JVS(292)*XX(49)-JVS(316)*XX(50)-JVS(362)*XX(52)-JVS(384)*XX(53)& - &-JVS(424)*XX(54)-JVS(472)*XX(56)-JVS(542)*XX(59)-JVS(593)*XX(60)-JVS(633)*XX(61)-JVS(683)*XX(63) - XX(40) = XX(40)-JVS(234)*XX(44)-JVS(291)*XX(49)-JVS(315)*XX(50)-JVS(361)*XX(52)-JVS(383)*XX(53)-JVS(423)*XX(54)& - &-JVS(471)*XX(56)-JVS(541)*XX(59)-JVS(592)*XX(60)-JVS(632)*XX(61)-JVS(682)*XX(63) - XX(39) = XX(39)-JVS(337)*XX(51)-JVS(382)*XX(53)-JVS(422)*XX(54)-JVS(591)*XX(60)-JVS(631)*XX(61)-JVS(661)*XX(62) - XX(38) = XX(38)-JVS(290)*XX(49)-JVS(360)*XX(52)-JVS(381)*XX(53)-JVS(421)*XX(54)-JVS(470)*XX(56)-JVS(540)*XX(59)& - &-JVS(590)*XX(60)-JVS(630)*XX(61)-JVS(681)*XX(63) - XX(37) = XX(37)-JVS(420)*XX(54)-JVS(514)*XX(58)-JVS(539)*XX(59)-JVS(589)*XX(60) - XX(36) = XX(36)-JVS(419)*XX(54)-JVS(588)*XX(60) - XX(35) = XX(35)-JVS(161)*XX(36)-JVS(336)*XX(51)-JVS(359)*XX(52)-JVS(418)*XX(54)-JVS(629)*XX(61)-JVS(660)*XX(62) - XX(34) = XX(34)-JVS(469)*XX(56)-JVS(587)*XX(60)-JVS(628)*XX(61) - XX(33) = XX(33)-JVS(139)*XX(34)-JVS(200)*XX(39)-JVS(226)*XX(43)-JVS(417)*XX(54)-JVS(468)*XX(56)-JVS(586)*XX(60)& - &-JVS(627)*XX(61) - XX(32) = XX(32)-JVS(199)*XX(39)-JVS(416)*XX(54)-JVS(585)*XX(60)-JVS(626)*XX(61)-JVS(659)*XX(62) - XX(31) = XX(31)-JVS(289)*XX(49)-JVS(415)*XX(54)-JVS(538)*XX(59)-JVS(625)*XX(61)-JVS(658)*XX(62) - XX(30) = XX(30)-JVS(358)*XX(52)-JVS(414)*XX(54)-JVS(496)*XX(57)-JVS(537)*XX(59)-JVS(584)*XX(60) - XX(29) = XX(29)-JVS(160)*XX(36)-JVS(182)*XX(37)-JVS(246)*XX(45)-JVS(335)*XX(51)-JVS(357)*XX(52)-JVS(413)*XX(54)& - &-JVS(624)*XX(61)-JVS(657)*XX(62) - XX(28) = XX(28)-JVS(233)*XX(44)-JVS(269)*XX(48)-JVS(288)*XX(49)-JVS(314)*XX(50)-JVS(334)*XX(51)-JVS(412)*XX(54)& - &-JVS(536)*XX(59)-JVS(623)*XX(61) - XX(27) = XX(27)-JVS(287)*XX(49)-JVS(313)*XX(50)-JVS(411)*XX(54)-JVS(535)*XX(59)-JVS(583)*XX(60) - XX(26) = XX(26)-JVS(108)*XX(30)-JVS(356)*XX(52)-JVS(410)*XX(54)-JVS(582)*XX(60)-JVS(622)*XX(61)-JVS(656)*XX(62) - XX(25) = XX(25)-JVS(138)*XX(34)-JVS(198)*XX(39)-JVS(467)*XX(56)-JVS(581)*XX(60) - XX(24) = XX(24)-JVS(129)*XX(33)-JVS(137)*XX(34)-JVS(152)*XX(35)-JVS(466)*XX(56)-JVS(580)*XX(60) - XX(23) = XX(23)-JVS(409)*XX(54)-JVS(465)*XX(56)-JVS(579)*XX(60)-JVS(621)*XX(61) - XX(22) = XX(22)-JVS(312)*XX(50)-JVS(447)*XX(55)-JVS(578)*XX(60)-JVS(620)*XX(61) - XX(21) = XX(21)-JVS(495)*XX(57)-JVS(577)*XX(60) - XX(20) = XX(20)-JVS(494)*XX(57)-JVS(513)*XX(58)-JVS(576)*XX(60) - XX(19) = XX(19)-JVS(408)*XX(54)-JVS(575)*XX(60) - XX(18) = XX(18)-JVS(122)*XX(32)-JVS(197)*XX(39)-JVS(574)*XX(60) - XX(17) = XX(17)-JVS(407)*XX(54)-JVS(573)*XX(60)-JVS(680)*XX(63) - XX(16) = XX(16)-JVS(572)*XX(60)-JVS(619)*XX(61)-JVS(655)*XX(62) - XX(15) = XX(15)-JVS(103)*XX(29)-JVS(181)*XX(37)-JVS(225)*XX(43)-JVS(232)*XX(44)-JVS(406)*XX(54)-JVS(534)*XX(59)& - &-JVS(571)*XX(60) - XX(14) = XX(14)-JVS(405)*XX(54)-JVS(570)*XX(60)-JVS(679)*XX(63) - XX(13) = XX(13)-JVS(36)*XX(14)-JVS(404)*XX(54)-JVS(569)*XX(60) - XX(12) = XX(12)-JVS(136)*XX(34)-JVS(464)*XX(56)-JVS(618)*XX(61) - XX(11) = XX(11)-JVS(286)*XX(49)-JVS(311)*XX(50)-JVS(355)*XX(52)-JVS(403)*XX(54)-JVS(533)*XX(59)-JVS(568)*XX(60) - XX(10) = XX(10)-JVS(354)*XX(52)-JVS(402)*XX(54)-JVS(567)*XX(60) - XX(9) = XX(9)-JVS(268)*XX(48)-JVS(310)*XX(50)-JVS(401)*XX(54)-JVS(532)*XX(59)-JVS(566)*XX(60) - XX(8) = XX(8)-JVS(102)*XX(29)-JVS(224)*XX(43)-JVS(400)*XX(54)-JVS(531)*XX(59)-JVS(565)*XX(60) - XX(7) = XX(7)-JVS(115)*XX(31)-JVS(617)*XX(61) - XX(6) = XX(6)-JVS(512)*XX(58)-JVS(616)*XX(61) - XX(5) = XX(5)-JVS(493)*XX(57)-JVS(564)*XX(60) - XX(4) = XX(4)-JVS(399)*XX(54)-JVS(563)*XX(60) - XX(3) = XX(3) - XX(2) = XX(2) - XX(1) = XX(1) - -END SUBROUTINE KppSolveTR - -! End of KppSolveTR function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! BLAS_UTIL - BLAS-LIKE utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!-------------------------------------------------------------- -! -! BLAS/LAPACK-like subroutines used by the integration algorithms -! It is recommended to replace them by calls to the optimized -! BLAS/LAPACK library for your machine -! -! (C) Adrian Sandu, Aug. 2004 -! Virginia Polytechnic Institute and State University -!-------------------------------------------------------------- - - -!-------------------------------------------------------------- - SUBROUTINE WCOPY(N,X,incX,Y,incY) -!-------------------------------------------------------------- -! copies a vector, x, to a vector, y: y <- x -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SCOPY(N,X,1,Y,1) or CALL DCOPY(N,X,1,Y,1) -!-------------------------------------------------------------- -! USE CB05_CSIRO_Precision - - INTEGER :: i,incX,incY,M,MP1,N - REAL(kind=dp) :: X(N),Y(N) - - IF (N.LE.0) RETURN - - M = MOD(N,8) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = X(i) - END DO - IF( N .LT. 8 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,8 - Y(i) = X(i) - Y(i + 1) = X(i + 1) - Y(i + 2) = X(i + 2) - Y(i + 3) = X(i + 3) - Y(i + 4) = X(i + 4) - Y(i + 5) = X(i + 5) - Y(i + 6) = X(i + 6) - Y(i + 7) = X(i + 7) - END DO - - END SUBROUTINE WCOPY - - -!-------------------------------------------------------------- - SUBROUTINE WAXPY(N,Alpha,X,incX,Y,incY) -!-------------------------------------------------------------- -! constant times a vector plus a vector: y <- y + Alpha*x -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SAXPY(N,Alpha,X,1,Y,1) or CALL DAXPY(N,Alpha,X,1,Y,1) -!-------------------------------------------------------------- - - INTEGER :: i,incX,incY,M,MP1,N - REAL(kind=dp) :: X(N),Y(N),Alpha - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp - - IF (Alpha .EQ. ZERO) RETURN - IF (N .LE. 0) RETURN - - M = MOD(N,4) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = Y(i) + Alpha*X(i) - END DO - IF( N .LT. 4 ) RETURN - END IF - MP1 = M + 1 - DO i = MP1,N,4 - Y(i) = Y(i) + Alpha*X(i) - Y(i + 1) = Y(i + 1) + Alpha*X(i + 1) - Y(i + 2) = Y(i + 2) + Alpha*X(i + 2) - Y(i + 3) = Y(i + 3) + Alpha*X(i + 3) - END DO - - END SUBROUTINE WAXPY - - - -!-------------------------------------------------------------- - SUBROUTINE WSCAL(N,Alpha,X,incX) -!-------------------------------------------------------------- -! constant times a vector: x(1:N) <- Alpha*x(1:N) -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SSCAL(N,Alpha,X,1) or CALL DSCAL(N,Alpha,X,1) -!-------------------------------------------------------------- - - INTEGER :: i,incX,M,MP1,N - REAL(kind=dp) :: X(N),Alpha - REAL(kind=dp), PARAMETER :: ZERO=0.0_dp, ONE=1.0_dp - - IF (Alpha .EQ. ONE) RETURN - IF (N .LE. 0) RETURN - - M = MOD(N,5) - IF( M .NE. 0 ) THEN - IF (Alpha .EQ. (-ONE)) THEN - DO i = 1,M - X(i) = -X(i) - END DO - ELSEIF (Alpha .EQ. ZERO) THEN - DO i = 1,M - X(i) = ZERO - END DO - ELSE - DO i = 1,M - X(i) = Alpha*X(i) - END DO - END IF - IF( N .LT. 5 ) RETURN - END IF - MP1 = M + 1 - IF (Alpha .EQ. (-ONE)) THEN - DO i = MP1,N,5 - X(i) = -X(i) - X(i + 1) = -X(i + 1) - X(i + 2) = -X(i + 2) - X(i + 3) = -X(i + 3) - X(i + 4) = -X(i + 4) - END DO - ELSEIF (Alpha .EQ. ZERO) THEN - DO i = MP1,N,5 - X(i) = ZERO - X(i + 1) = ZERO - X(i + 2) = ZERO - X(i + 3) = ZERO - X(i + 4) = ZERO - END DO - ELSE - DO i = MP1,N,5 - X(i) = Alpha*X(i) - X(i + 1) = Alpha*X(i + 1) - X(i + 2) = Alpha*X(i + 2) - X(i + 3) = Alpha*X(i + 3) - X(i + 4) = Alpha*X(i + 4) - END DO - END IF - - END SUBROUTINE WSCAL - -!-------------------------------------------------------------- - REAL(kind=dp) FUNCTION WLAMCH( C ) -!-------------------------------------------------------------- -! returns epsilon machine -! after LAPACK -! replace this by the function from the optimized LAPACK implementation: -! CALL SLAMCH('E') or CALL DLAMCH('E') -!-------------------------------------------------------------- -! USE CB05_CSIRO_Precision - - CHARACTER :: C - INTEGER :: i - REAL(kind=dp), SAVE :: Eps - REAL(kind=dp) :: Suma - REAL(kind=dp), PARAMETER :: ONE=1.0_dp, HALF=0.5_dp - LOGICAL, SAVE :: First=.TRUE. - - IF (First) THEN - First = .FALSE. - Eps = HALF**(16) - DO i = 17, 80 - Eps = Eps*HALF - CALL WLAMCH_ADD(ONE,Eps,Suma) - IF (Suma.LE.ONE) GOTO 10 - END DO - PRINT*,'ERROR IN WLAMCH. EPS < ',Eps - RETURN -10 Eps = Eps*2 - i = i-1 - END IF - - WLAMCH = Eps - - END FUNCTION WLAMCH - - SUBROUTINE WLAMCH_ADD( A, B, Suma ) -! USE CB05_CSIRO_Precision - - REAL(kind=dp) A, B, Suma - Suma = A + B - - END SUBROUTINE WLAMCH_ADD -!-------------------------------------------------------------- - - -!-------------------------------------------------------------- - SUBROUTINE SET2ZERO(N,Y) -!-------------------------------------------------------------- -! copies zeros into the vector y: y <- 0 -! after BLAS -!-------------------------------------------------------------- - - INTEGER :: i,M,MP1,N - REAL(kind=dp) :: Y(N) - REAL(kind=dp), PARAMETER :: ZERO = 0.0d0 - - IF (N.LE.0) RETURN - - M = MOD(N,8) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = ZERO - END DO - IF( N .LT. 8 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,8 - Y(i) = ZERO - Y(i + 1) = ZERO - Y(i + 2) = ZERO - Y(i + 3) = ZERO - Y(i + 4) = ZERO - Y(i + 5) = ZERO - Y(i + 6) = ZERO - Y(i + 7) = ZERO - END DO - - END SUBROUTINE SET2ZERO - - -!-------------------------------------------------------------- - REAL(kind=dp) FUNCTION WDOT (N, DX, incX, DY, incY) -!-------------------------------------------------------------- -! dot produce: wdot = x(1:N)*y(1:N) -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SDOT(N,X,1,Y,1) or CALL DDOT(N,X,1,Y,1) -!-------------------------------------------------------------- -! USE messy_mecca_kpp_Precision -!-------------------------------------------------------------- - IMPLICIT NONE - INTEGER :: N, incX, incY - REAL(kind=dp) :: DX(N), DY(N) - - INTEGER :: i, IX, IY, M, MP1, NS - - WDOT = 0.0D0 - IF (N .LE. 0) RETURN - IF (incX .EQ. incY) IF (incX-1) 5,20,60 -! -! Code for unequal or nonpositive increments. -! - 5 IX = 1 - IY = 1 - IF (incX .LT. 0) IX = (-N+1)*incX + 1 - IF (incY .LT. 0) IY = (-N+1)*incY + 1 - DO i = 1,N - WDOT = WDOT + DX(IX)*DY(IY) - IX = IX + incX - IY = IY + incY - END DO - RETURN -! -! Code for both increments equal to 1. -! -! Clean-up loop so remaining vector length is a multiple of 5. -! - 20 M = MOD(N,5) - IF (M .EQ. 0) GO TO 40 - DO i = 1,M - WDOT = WDOT + DX(i)*DY(i) - END DO - IF (N .LT. 5) RETURN - 40 MP1 = M + 1 - DO i = MP1,N,5 - WDOT = WDOT + DX(i)*DY(i) + DX(i+1)*DY(i+1) + DX(i+2)*DY(i+2) + & - DX(i+3)*DY(i+3) + DX(i+4)*DY(i+4) - END DO - RETURN -! -! Code for equal, positive, non-unit increments. -! - 60 NS = N*incX - DO i = 1,NS,incX - WDOT = WDOT + DX(i)*DY(i) - END DO - - END FUNCTION WDOT - - -!-------------------------------------------------------------- - SUBROUTINE WADD(N,X,Y,Z) -!-------------------------------------------------------------- -! adds two vectors: z <- x + y -! BLAS - like -!-------------------------------------------------------------- -! USE CB05_CSIRO_Precision - - INTEGER :: i, M, MP1, N - REAL(kind=dp) :: X(N),Y(N),Z(N) - - IF (N.LE.0) RETURN - - M = MOD(N,5) - IF( M /= 0 ) THEN - DO i = 1,M - Z(i) = X(i) + Y(i) - END DO - IF( N < 5 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,5 - Z(i) = X(i) + Y(i) - Z(i + 1) = X(i + 1) + Y(i + 1) - Z(i + 2) = X(i + 2) + Y(i + 2) - Z(i + 3) = X(i + 3) + Y(i + 3) - Z(i + 4) = X(i + 4) + Y(i + 4) - END DO - - END SUBROUTINE WADD - - - -!-------------------------------------------------------------- - SUBROUTINE WGEFA(N,A,Ipvt,info) -!-------------------------------------------------------------- -! WGEFA FACTORS THE MATRIX A (N,N) BY -! GAUSS ELIMINATION WITH PARTIAL PIVOTING -! LINPACK - LIKE -!-------------------------------------------------------------- -! - INTEGER :: N,Ipvt(N),info - REAL(kind=dp) :: A(N,N) - REAL(kind=dp) :: t, dmax, da - INTEGER :: j,k,l - REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0 - - info = 0 - -size: IF (n > 1) THEN - -col: DO k = 1, n-1 - -! find l = pivot index -! l = idamax(n-k+1,A(k,k),1) + k - 1 - l = k; dmax = abs(A(k,k)) - DO j = k+1,n - da = ABS(A(j,k)) - IF (da > dmax) THEN - l = j; dmax = da - END IF - END DO - Ipvt(k) = l - -! zero pivot implies this column already triangularized - IF (ABS(A(l,k)) < TINY(ZERO)) THEN - info = k - return - ELSE - IF (l /= k) THEN - t = A(l,k); A(l,k) = A(k,k); A(k,k) = t - END IF - t = -ONE/A(k,k) - CALL WSCAL(n-k,t,A(k+1,k),1) - DO j = k+1, n - t = A(l,j) - IF (l /= k) THEN - A(l,j) = A(k,j); A(k,j) = t - END IF - CALL WAXPY(n-k,t,A(k+1,k),1,A(k+1,j),1) - END DO - END IF - - END DO col - - END IF size - - Ipvt(N) = N - IF (ABS(A(N,N)) == ZERO) info = N - - END SUBROUTINE WGEFA - - -!-------------------------------------------------------------- - SUBROUTINE WGESL(Trans,N,A,Ipvt,b) -!-------------------------------------------------------------- -! WGESL solves the system -! a * x = b or trans(a) * x = b -! using the factors computed by WGEFA. -! -! Trans = 'N' to solve A*x = b , -! = 'T' to solve transpose(A)*x = b -! LINPACK - LIKE -!-------------------------------------------------------------- - - INTEGER :: N,Ipvt(N) - CHARACTER :: trans - REAL(kind=dp) :: A(N,N),b(N) - REAL(kind=dp) :: t - INTEGER :: k,kb,l - - - SELECT CASE (Trans) - - CASE ('n','N') ! Solve A * x = b - -! first solve L*y = b - IF (n >= 2) THEN - DO k = 1, n-1 - l = Ipvt(k) - t = b(l) - IF (l /= k) THEN - b(l) = b(k) - b(k) = t - END IF - CALL WAXPY(n-k,t,a(k+1,k),1,b(k+1),1) - END DO - END IF -! now solve U*x = y - DO kb = 1, n - k = n + 1 - kb - b(k) = b(k)/a(k,k) - t = -b(k) - CALL WAXPY(k-1,t,a(1,k),1,b(1),1) - END DO - - CASE ('t','T') ! Solve transpose(A) * x = b - -! first solve trans(U)*y = b - DO k = 1, n - t = WDOT(k-1,a(1,k),1,b(1),1) - b(k) = (b(k) - t)/a(k,k) - END DO -! now solve trans(L)*x = y - IF (n >= 2) THEN - DO kb = 1, n-1 - k = n - kb - b(k) = b(k) + WDOT(n-k,a(k+1,k),1,b(k+1),1) - l = Ipvt(k) - IF (l /= k) THEN - t = b(l); b(l) = b(k); b(k) = t - END IF - END DO - END IF - - END SELECT - - END SUBROUTINE WGESL -! End of BLAS_UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE CB05_CSIRO_LinearAlgebra - diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_LinearAlgebra.o b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_LinearAlgebra.o deleted file mode 100644 index 9f0d60f5a5d88f1b3aa61261cc9612dbcaaaee06..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_LinearAlgebra.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Main.f90 b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Main.f90 deleted file mode 100644 index de59555bdfe6d9078e81f544aeed5779ae6fc0fd..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Main.f90 +++ /dev/null @@ -1,161 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Main Program File -! -! Generated by KPP-2.2.3 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 : CB05_CSIRO_Main.f90 -! Time : Thu Oct 8 08:21:51 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05_CSIRO_26998_BOXMOX -! Equation file : CB05_CSIRO.kpp -! Output root filename : CB05_CSIRO -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! MAIN - Main program - driver routine -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -PROGRAM CB05_CSIRO_Driver - - USE CB05_CSIRO_Model - USE CB05_CSIRO_Initialize, ONLY: Initialize - - REAL(kind=dp) :: T, DVAL(NSPEC) - REAL(kind=dp) :: RSTATE(20) - INTEGER :: IERR - INTEGER :: i, tcount, ttot - CHARACTER(LEN=60), PARAMETER :: & - brk = "------------------------------------------------------------" - - !~~~> Initialization - - STEPMIN = 0.0d0 - STEPMAX = 0.0d0 - - DO i=1,NVAR - RTOL(i) = 1.0d-4 - ATOL(i) = 1.0d-3 - END DO - - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX (__BOXMOX_VERSION__) driver" - WRITE(*,*) brk - WRITE(*,*) " " - - CALL Initialize() - - WRITE(*,*) brk - WRITE(*,*) " " - - CALL UpdateEnvironment() - - CALL readInput('InitialConditions.csv', NSPEC, SPC_NAMES, C, & - InitialCondition) - CALL InitSaveData() - - CALL InitFixNOx(NSPEC, SPC_NAMES, C) - - !~~~> Time loop - T = TSTART - tcount = 1 - ttot = NINT((TEND - TSTART) / DT) - kron: DO WHILE (T < TEND) - - IF (lverbose) THEN - WRITE(*,*) "" - WRITE(*,"(1X,A,F8.2,A)") "-------------------- time (s): ", T, & - " --------------------" - WRITE(*,*) "" - ENDIF - - TIME = T - CALL GetMass( C, DVAL ) - CALL SaveData() - - CALL UpdateEnvironment() - CALL UpdateAerosol() - CALL UpdatePhotolysisRates() - - CALL UpdateKturb() - - CALL readInput('Background.csv', NSPEC, SPC_NAMES, C, Mix, lzero=.TRUE.) - CALL readInput('Emissions.csv', NSPEC, SPC_NAMES, C, Emission) - CALL readInput('Deposition.csv', NSPEC, SPC_NAMES, C, Deposition) - - CALL Update_SUN() - CALL Update_RCONST() - - IF (T == TSTART) WRITE(*,*) " " - - IF ( MOD(tcount * 10, ttot) .EQ. 0 ) THEN - WRITE(6,991) (T-TSTART)/(TEND-TSTART)*100, T, & - ( TRIM(SPC_NAMES(MONITOR(i))), & - C(MONITOR(i))/CFACTOR, i=1,NMONITOR ) - ENDIF - - IF (lfix_NOx) THEN - CALL FixNOx(NSPEC, SPC_NAMES, C) - ENDIF - - CALL INTEGRATE( TIN = T, TOUT = T+DT, RSTATUS_U = RSTATE, & - ICNTRL_U = (/ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /), & - IERR_U = IERR ) - T = RSTATE(1) - - tcount = tcount + 1 - - IF (IERR < 0) THEN - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX integration failed, stopping." - WRITE(*,*) brk - WRITE(*,*) " " - STOP 1 - ENDIF - - IF (T == TSTART .OR. lverbose) THEN - WRITE(*,*) "" - WRITE(*,*) brk - WRITE(*,*) "" - ENDIF - - END DO kron - !~~~> End Time loop - - CALL GetMass( C, DVAL ) - WRITE(6,991) (T-TSTART)/(TEND-TSTART)*100, T, & - ( TRIM(SPC_NAMES(MONITOR(i))), & - C(MONITOR(i))/CFACTOR, i=1,NMONITOR ) - TIME = T - CALL SaveData() - CALL CloseSaveData() - - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX successfully completed." - WRITE(*,*) brk - WRITE(*,*) " " - -991 FORMAT(F6.1,'%. T=',E9.3,2X,200(A,'=',E11.4,'; ')) - -END PROGRAM CB05_CSIRO_Driver - -! End of MAIN function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Main.o b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Main.o deleted file mode 100644 index de3b798fd7ed04507d1721accbb428a7f755c30b..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Main.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Model.f90 b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Model.f90 deleted file mode 100644 index f3626a8daaa213c2409dbe5309b0f84347134fb4..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Model.f90 +++ /dev/null @@ -1,21 +0,0 @@ -MODULE CB05_CSIRO_Model - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Completely defines the model CB05_CSIRO -! by using all the associated modules -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CB05_CSIRO_Precision - USE CB05_CSIRO_Parameters - USE CB05_CSIRO_Global - USE CB05_CSIRO_Function - USE CB05_CSIRO_Integrator - USE CB05_CSIRO_Rates - USE CB05_CSIRO_Jacobian - USE CB05_CSIRO_Stoichiom - USE CB05_CSIRO_LinearAlgebra - USE CB05_CSIRO_Monitor - USE CB05_CSIRO_Util - -END MODULE CB05_CSIRO_Model - diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Model.o b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Model.o deleted file mode 100644 index 0208cca8006ffd1c534a57a6eaafcdb2659819c8..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Model.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Monitor.f90 b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Monitor.f90 deleted file mode 100644 index 8b23a7b36164cfdb5ec9baf38134653c755a9a91..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Monitor.f90 +++ /dev/null @@ -1,313 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Utility Data Module File -! -! Generated by KPP-2.2.3 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 : CB05_CSIRO_Monitor.f90 -! Time : Thu Oct 8 08:21:51 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05_CSIRO_26998_BOXMOX -! Equation file : CB05_CSIRO.kpp -! Output root filename : CB05_CSIRO -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CB05_CSIRO_Monitor - - - CHARACTER(LEN=15), PARAMETER, DIMENSION(65) :: SPC_NAMES = (/ & - 'sulf ','sulaer ','nr ', & - 'so2 ','ch4 ','pan ', & - 'opan ','tol ','etha ', & - 'meoh ','etoh ','n2o5 ', & - 'h2 ','o1d ','xyl ', & - 'hono ','h2o2 ','crpx ', & - 'facd ','pacd ','aacd ', & - 'panx ','pna ','cat1 ', & - 'cron ','hco3 ','rooh ', & - 'ror ','to2 ','mepx ', & - 'opo3 ','crn2 ','cro ', & - 'hno3 ','cao2 ','co ', & - 'mgly ','eth ','crno ', & - 'iole ','ole ','terp ', & - 'cres ','par ','open ', & - 'isop ','ispd ','xo2n ', & - 'aldx ','ald2 ','ntr ', & - 'form ','o3 ','ho2 ', & - 'cxo3 ','no3 ','meo2 ', & - 'c2o3 ','xo2 ','oh ', & - 'no2 ','no ','o ', & - 'H2O ','M ' /) - - INTEGER, PARAMETER, DIMENSION(65) :: LOOKAT = (/ & - 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, & - 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, & - 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, & - 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, & - 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, & - 61, 62, 63, 64, 65 /) - - INTEGER, DIMENSION(1) :: MONITOR - CHARACTER(LEN=15), DIMENSION(1) :: SMASS - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_0 = (/ & - ' no2 --> no + o ', & - ' o --> o3 ', & - ' o3 + no --> no2 ', & - ' no2 + o --> no ', & - ' no2 + o --> no3 ', & - ' no + o --> no2 ', & - ' o3 + no2 --> no3 ', & - ' o3 --> o ', & - ' o3 --> o1d ', & - ' o1d + M --> o + M ', & - ' o1d + H2O --> 2 oh ', & - ' o3 + oh --> ho2 ', & - ' o3 + ho2 --> oh ', & - ' no3 --> no2 + o ', & - ' no3 --> no ', & - ' no3 + no --> 2 no2 ', & - ' no3 + no2 --> no2 + no ', & - ' no3 + no2 --> n2o5 ', & - ' n2o5 + H2O --> 2 hno3 ', & - ' n2o5 + 2 H2O --> 2 hno3 ', & - ' n2o5 --> no3 + no2 ', & - ' 2 no --> 2 no2 ', & - 'no2 + no + H2O --> 2 hono ', & - ' oh + no --> hono ', & - ' hono --> oh + no ', & - ' hono + oh --> no2 ', & - ' 2 hono --> no2 + no ', & - ' oh + no2 --> hno3 ', & - ' hno3 + oh --> no3 ', & - ' ho2 + no --> oh + no2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_1 = (/ & - ' ho2 + no2 --> pna ', & - ' pna --> ho2 + no2 ', & - ' pna + oh --> no2 ', & - ' 2 ho2 --> h2o2 ', & - ' 2 ho2 + H2O --> h2o2 ', & - ' h2o2 --> 2 oh ', & - ' h2o2 + oh --> ho2 ', & - ' h2 + o1d --> ho2 + oh ', & - ' h2 + oh --> ho2 ', & - ' oh + o --> ho2 ', & - ' 2 oh --> o ', & - ' 2 oh --> h2o2 ', & - ' ho2 + oh --> H2O ', & - ' ho2 + o --> oh ', & - ' h2o2 + o --> ho2 + oh ', & - ' no3 + o --> no2 ', & - ' no3 + oh --> ho2 + no2 ', & - ' ho2 + no3 --> hno3 ', & - ' o3 + no3 --> no2 ', & - ' 2 no3 --> 2 no2 ', & - ' pna --> 0.61 ho2 + 0.39 no3 + 0.39 oh + 0.61 no2 ', & - ' hno3 --> oh + no2 ', & - ' n2o5 --> no3 + no2 ', & - ' xo2 + no --> no2 ', & - ' xo2n + no --> ntr ', & - ' ho2 + xo2 --> rooh ', & - ' xo2n + ho2 --> rooh ', & - ' 2 xo2 --> 0.21 M ', & - ' 2 xo2n --> 0.21 M ', & - ' xo2n + xo2 --> 0.21 M ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_2 = (/ & - ' ntr + oh --> hno3 - -0.66 par + 0.33 aldx + 0.33 ald2 + 0.33 form + ho2 ', & - ' ntr --> - -0.66 par + 0.33 aldx + 0.33 ald2 + 0.33 form + ho2 + no2 ', & - ' rooh + oh --> 0.5 aldx + 0.5 ald2 + xo2 ', & - ' rooh --> 0.5 aldx + 0.5 ald2 + ho2 + oh ', & - ' co + oh --> ho2 ', & - ' ch4 + oh --> meo2 ', & - ' meo2 + no --> form + ho2 + no2 ', & - ' ho2 + meo2 --> mepx ', & - ' 2 meo2 --> 0.63 meoh + 1.37 form + 0.74 ho2 ', & - ' mepx + oh --> 0.3 ho2 + 0.7 meo2 + 0.3 xo2 ', & - ' mepx --> form + ho2 + oh ', & - ' meoh + oh --> form + ho2 ', & - ' form + oh --> co + ho2 ', & - ' form --> co + 2 ho2 ', & - ' form --> co ', & - ' form + o --> co + ho2 + oh ', & - ' form + no3 --> hno3 + co + ho2 ', & - ' form + ho2 --> hco3 ', & - ' hco3 --> form + ho2 ', & - ' hco3 + no --> facd + ho2 + no2 ', & - ' hco3 + ho2 --> mepx ', & - ' facd + oh --> ho2 ', & - ' ald2 + o --> c2o3 + oh ', & - ' ald2 + oh --> c2o3 ', & - ' ald2 + no3 --> hno3 + c2o3 ', & - ' ald2 --> co + ho2 + meo2 ', & - ' c2o3 + no --> meo2 + no2 ', & - ' c2o3 + no2 --> pan ', & - ' pan --> c2o3 + no2 ', & - ' pan --> c2o3 + no2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_3 = (/ & - ' ho2 + c2o3 --> 0.8 pacd + 0.2 aacd + 0.2 o3 ', & - ' meo2 + c2o3 --> 0.1 aacd + form + 0.9 ho2 + 0.9 meo2 ', & - ' c2o3 + xo2 --> 0.1 aacd + 0.9 meo2 ', & - ' 2 c2o3 --> 2 meo2 ', & - ' pacd + oh --> c2o3 ', & - ' pacd --> meo2 + oh ', & - ' aacd + oh --> meo2 ', & - ' aldx + o --> cxo3 + oh ', & - ' aldx + oh --> cxo3 ', & - ' aldx + no3 --> hno3 + cxo3 ', & - ' aldx --> co + ho2 + meo2 ', & - ' cxo3 + no --> ald2 + ho2 + xo2 + no2 ', & - ' cxo3 + no2 --> panx ', & - ' panx --> cxo3 + no2 ', & - ' panx --> cxo3 + no2 ', & - ' panx + oh --> ald2 + no2 ', & - ' ho2 + cxo3 --> 0.8 pacd + 0.2 aacd + 0.2 o3 ', & - ' cxo3 + meo2 --> 0.1 aacd + 0.9 ald2 + 0.1 form + ho2 + 0.9 xo2 ', & - ' cxo3 + xo2 --> 0.1 aacd + 0.9 ald2 ', & - ' 2 cxo3 --> 2 ald2 + 2 ho2 + 2 xo2 ', & - ' cxo3 + c2o3 --> ald2 + ho2 + meo2 + xo2 ', & - ' par + oh --> 0.76 ror - -0.11 par + 0.13 xo2n + 0.05 aldx + 0.06 ald2 + 0.11 ho2 + 0.87 xo2 ', & - ' ror --> 0.02 ror - -2.1 par + 0.04 xo2n + 0.5 aldx + 0.6 ald2 + 0.94 ho2 + 0.96 xo2 ', & - ' ror --> ho2 ', & - ' ror + no2 --> ntr ', & - ' ole + o --> 0.2 co + 0.2 par + 0.01 xo2n + 0.3 aldx + 0.2 ald2 + 0.2 form + 0.3 ho2 + 0.2 xo2 + 0.1 oh ', & - ' ole + oh --> - -0.7 par + 0.62 aldx + 0.33 ald2 + 0.8 form + 0.95 ho2 + 0.8 xo2 ', & - ' ole + o3 --> 0.33 co - par + 0.32 aldx + 0.18 ald2 + 0.74 form + 0.44 ho2 + 0.22 xo2 + 0.1 oh ', & - ' ole + no3 --> - par + 0.09 xo2n + 0.56 aldx + 0.35 ald2 + form + 0.91 xo2 + no2 ', & - ' eth + o --> co + form + 1.7 ho2 + 0.7 xo2 + 0.3 oh ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_4 = (/ & - ' eth + oh --> 0.22 aldx + 1.56 form + ho2 + xo2 ', & - ' eth + o3 --> 0.37 facd + 0.63 co + form + 0.13 ho2 + 0.13 oh ', & - ' eth + no3 --> 2 form + xo2 + no2 ', & - ' iole + o --> 0.1 co + 0.1 par + 0.66 aldx + 1.24 ald2 + 0.1 ho2 + 0.1 xo2 ', & - ' iole + oh --> 0.7 aldx + 1.3 ald2 + ho2 + xo2 ', & - ' iole + o3 --> 0.25 co + 0.35 aldx + 0.65 ald2 + 0.25 form + 0.5 ho2 + 0.5 oh + 0.5 o ', & - ' iole + no3 --> 0.64 aldx + 1.18 ald2 + ho2 + no2 ', & - ' tol + oh --> 0.65 to2 + 0.18 cres + 0.28 ho2 + 0.1 xo2 + 0.072 oh ', & - ' to2 + no --> 0.336 co + 0.52 mgly + 0.86 open + 0.14 ntr + 0.336 form + 1.2 ho2 + 0.86 no2 ', & - ' to2 + ho2 --> nr ', & - ' cres + oh --> 0.732 cat1 + 0.06 cro + 0.06 co + 0.13 open + 0.06 xo2n + 0.06 form + 1.12 ho2 + 0.12 xo2 ', & - ' cres + no3 --> 0.3 cro + hno3 + 0.24 co + 0.24 mgly + 0.12 open + 0.1 xo2n + 0.48 aldx + 0.24 form + 0.36 ho2 + 0.6 xo2 ', & - ' cro + no2 --> cron ', & - ' cro + ho2 --> cres ', & - ' cron + oh --> crno ', & - ' cron + no3 --> hno3 + crno ', & - ' crno + no2 --> 2 ntr ', & - ' crno + o3 --> crn2 ', & - ' crn2 + no --> crno + no2 ', & - ' crn2 + ho2 --> crpx ', & - ' crpx --> crno + oh ', & - ' crpx + oh --> crn2 ', & - ' open --> co + ho2 + c2o3 ', & - ' open + oh --> 0.6 opo3 + 0.4 cao2 ', & - ' open + o3 --> 0.69 co + 0.2 mgly + 0.03 aldx + 0.7 form + 0.76 ho2 + 0.62 c2o3 + 0.03 xo2 + 0.08 oh ', & - ' open + no3 --> opo3 + hno3 ', & - ' cat1 + oh --> cao2 ', & - ' cat1 + no3 --> cro + hno3 ', & - ' cao2 + no --> 0.344 co + 0.14 ntr + 0.344 form + 1.2 ho2 + 0.86 no2 ', & - ' cao2 + ho2 --> nr ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(23) :: EQN_NAMES_5 = (/ & - ' opo3 + no --> aldx + ho2 + xo2 + no2 ', & - ' opo3 + no2 --> opan ', & - ' opan --> opo3 + no2 ', & - ' xyl + oh --> 0.3 to2 + 0.8 mgly + 0.2 cres + 1.1 par + 0.7 ho2 + 0.5 xo2 ', & - ' mgly + oh --> c2o3 + xo2 ', & - ' mgly --> co + ho2 + c2o3 ', & - ' isop + o --> 0.25 par + 0.75 ispd + 0.5 form + 0.25 ho2 + 0.25 cxo3 + 0.25 xo2 ', & - ' isop + oh --> 0.912 ispd + 0.088 xo2n + 0.629 form + 0.912 ho2 + 0.991 xo2 ', & - ' isop + o3 --> 0.066 co + 0.35 par + 0.65 ispd + 0.15 aldx + 0.6 form + 0.066 ho2 + 0.2 cxo3 + 0.2 xo2 + 0.266 oh ', & - ' isop + no3 --> 2.4 par + 0.2 ispd + 0.8 aldx + 0.8 ntr + 0.8 ho2 + xo2 + 0.2 no2 ', & - ' ispd + oh --> 0.334 co + 0.168 mgly + 1.565 par + 0.12 aldx + 0.252 ald2 + 0.167 form + 0.503 ho2 + 0.25 cxo3 + 0.21 c2o3 + 0.713 xo2 ', & - ' ispd + o3 --> 0.225 co + 0.85 mgly + 0.36 par + 0.02 ald2 + 0.15 form + 0.154 ho2 + 0.114 c2o3 + 0.064 xo2 + 0.268 oh ', & - ' ispd + no3 --> 0.15 hno3 + 0.643 co + 1.282 par + 0.357 aldx + 0.85 ntr + 0.282 form + 0.925 ho2 + 0.075 cxo3 + 0.075 xo2 ', & - ' ispd --> 0.333 co + 0.832 par + 0.067 ald2 + 0.9 form + 1.033 ho2 + 0.967 c2o3 + 0.7 xo2 ', & - ' terp + o --> 5.12 par + 0.15 aldx ', & - ' terp + oh --> 1.66 par + 0.25 xo2n + 0.47 aldx + 0.28 form + 0.75 ho2 + 1.25 xo2 ', & - ' terp + o3 --> 0.001 co + 7 par + 0.18 xo2n + 0.21 aldx + 0.24 form + 0.07 ho2 + 0.39 cxo3 + 0.76 xo2 + 0.57 oh ', & - ' terp + no3 --> 0.25 xo2n + 0.47 aldx + 0.53 ntr + 0.28 ho2 + 1.03 xo2 + 0.47 no2 ', & - ' so2 + oh --> sulf + sulaer + ho2 ', & - ' etoh + oh --> 0.05 aldx + 0.9 ald2 + 0.1 form + ho2 + 0.1 xo2 ', & - ' etha + oh --> 0.009 xo2n + 0.991 ald2 + ho2 + 0.991 xo2 ', & - ' isop + no2 --> 2.4 par + 0.2 ispd + 0.8 aldx + 0.8 ntr + 0.8 ho2 + xo2 + 0.2 no ', & - ' so2 --> sulf ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(173) :: EQN_NAMES = (/& - EQN_NAMES_0, EQN_NAMES_1, EQN_NAMES_2, EQN_NAMES_3, EQN_NAMES_4, & - EQN_NAMES_5 /) - - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: EQN_TAGS_0 = (/ & - 'R1 ','R2 ','R3 ', & - 'R4 ','R5 ','R6 ', & - 'R7 ','R8 ','R9 ', & - 'R10 ','R11 ','R12 ', & - 'R13 ','R14 ','R15 ', & - 'R16 ','R17 ','R18 ', & - 'R19 ','R20 ','R21 ', & - 'R22 ','R23 ','R24 ', & - 'R25 ','R26 ','R27 ', & - 'R28 ','R29 ','R30 ', & - 'R31 ','R32 ','R33 ', & - 'R34 ','R35 ','R36 ', & - 'R37 ','R38 ','R39 ', & - 'R40 ','R41 ','R42 ', & - 'R43 ','R44 ','R45 ', & - 'R46 ','R47 ','R48 ', & - 'R49 ','R50 ','R51 ', & - 'R52 ','R53 ','R54 ', & - 'R55 ','R56 ','R57 ', & - 'R58 ','R59 ','R60 ', & - 'R61 ','R62 ','R63 ', & - 'R64 ','R65 ','R66 ', & - 'R67 ','R68 ','R69 ', & - 'R70 ','R71 ','R72 ', & - 'R73 ','R74 ','R75 ', & - 'R76 ','R77 ','R78 ', & - 'R79 ','R80 ','R81 ', & - 'R82 ','R83 ','R84 ', & - 'R85 ','R86 ','R87 ', & - 'R88 ','R89 ','R90 ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(83) :: EQN_TAGS_1 = (/ & - 'R91 ','R92 ','R93 ', & - 'R94 ','R95 ','R96 ', & - 'R97 ','R98 ','R99 ', & - 'R100 ','R101 ','R102 ', & - 'R103 ','R104 ','R105 ', & - 'R106 ','R107 ','R108 ', & - 'R109 ','R110 ','R111 ', & - 'R112 ','R113 ','R114 ', & - 'R115 ','R116 ','R117 ', & - 'R118 ','R119 ','R120 ', & - 'R121 ','R122 ','R123 ', & - 'R124 ','R125 ','R126 ', & - 'R127 ','R128 ','R129 ', & - 'R130 ','R131 ','R132 ', & - 'R133 ','R134 ','R135 ', & - 'R136 ','R137 ','R138 ', & - 'R139 ','R140 ','R141 ', & - 'R142 ','R143 ','R144 ', & - 'R145 ','R146 ','R147 ', & - 'R148 ','R149 ','R150 ', & - 'R151 ','R152 ','R153 ', & - 'R154 ','R155 ','R156 ', & - 'R157 ','R158 ','R159 ', & - 'R160 ','R161 ','R162 ', & - 'R163 ','R164 ','R165 ', & - 'R166 ','R167 ','R168 ', & - 'R169 ','R170 ','R171 ', & - 'R172 ','R173 ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(173) :: EQN_TAGS = (/& - EQN_TAGS_0, EQN_TAGS_1 /) - -! INLINED global variables - -! End INLINED global variables - - -END MODULE CB05_CSIRO_Monitor diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Monitor.o b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Monitor.o deleted file mode 100644 index 75c41afcb7b581296b0dfa807364c7fe613bd963..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Monitor.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Parameters.f90 b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Parameters.f90 deleted file mode 100644 index c05b12caef1deb060dd2131ee9599a38a1181fd2..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Parameters.f90 +++ /dev/null @@ -1,147 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Parameter Module File -! -! Generated by KPP-2.2.3 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 : CB05_CSIRO_Parameters.f90 -! Time : Thu Oct 8 08:21:51 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05_CSIRO_26998_BOXMOX -! Equation file : CB05_CSIRO.kpp -! Output root filename : CB05_CSIRO -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CB05_CSIRO_Parameters - - USE CB05_CSIRO_Precision - PUBLIC - SAVE - - -! NSPEC - Number of chemical species - INTEGER, PARAMETER :: NSPEC = 65 -! NVAR - Number of Variable species - INTEGER, PARAMETER :: NVAR = 63 -! NVARACT - Number of Active species - INTEGER, PARAMETER :: NVARACT = 60 -! NFIX - Number of Fixed species - INTEGER, PARAMETER :: NFIX = 2 -! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 173 -! NVARST - Starting of variables in conc. vect. - INTEGER, PARAMETER :: NVARST = 1 -! NFIXST - Starting of fixed in conc. vect. - INTEGER, PARAMETER :: NFIXST = 64 -! NONZERO - Number of nonzero entries in Jacobian - INTEGER, PARAMETER :: NONZERO = 622 -! LU_NONZERO - Number of nonzero entries in LU factoriz. of Jacobian - INTEGER, PARAMETER :: LU_NONZERO = 700 -! CNVAR - (NVAR+1) Number of elements in compressed row format - INTEGER, PARAMETER :: CNVAR = 64 -! CNEQN - (NREACT+1) Number stoicm elements in compressed col format - INTEGER, PARAMETER :: CNEQN = 174 -! NLOOKAT - Number of species to look at - INTEGER, PARAMETER :: NLOOKAT = 65 -! NMONITOR - Number of species to monitor - INTEGER, PARAMETER :: NMONITOR = 0 -! NMASS - Number of atoms to check mass balance - INTEGER, PARAMETER :: NMASS = 1 - -! Index declaration for variable species in C and VAR -! VAR(ind_spc) = C(ind_spc) - - INTEGER, PARAMETER :: ind_sulf = 1 - INTEGER, PARAMETER :: ind_sulaer = 2 - INTEGER, PARAMETER :: ind_nr = 3 - INTEGER, PARAMETER :: ind_so2 = 4 - INTEGER, PARAMETER :: ind_ch4 = 5 - INTEGER, PARAMETER :: ind_pan = 6 - INTEGER, PARAMETER :: ind_opan = 7 - INTEGER, PARAMETER :: ind_tol = 8 - INTEGER, PARAMETER :: ind_etha = 9 - INTEGER, PARAMETER :: ind_meoh = 10 - INTEGER, PARAMETER :: ind_etoh = 11 - INTEGER, PARAMETER :: ind_n2o5 = 12 - INTEGER, PARAMETER :: ind_h2 = 13 - INTEGER, PARAMETER :: ind_o1d = 14 - INTEGER, PARAMETER :: ind_xyl = 15 - INTEGER, PARAMETER :: ind_hono = 16 - INTEGER, PARAMETER :: ind_h2o2 = 17 - INTEGER, PARAMETER :: ind_crpx = 18 - INTEGER, PARAMETER :: ind_facd = 19 - INTEGER, PARAMETER :: ind_pacd = 20 - INTEGER, PARAMETER :: ind_aacd = 21 - INTEGER, PARAMETER :: ind_panx = 22 - INTEGER, PARAMETER :: ind_pna = 23 - INTEGER, PARAMETER :: ind_cat1 = 24 - INTEGER, PARAMETER :: ind_cron = 25 - INTEGER, PARAMETER :: ind_hco3 = 26 - INTEGER, PARAMETER :: ind_rooh = 27 - INTEGER, PARAMETER :: ind_ror = 28 - INTEGER, PARAMETER :: ind_to2 = 29 - INTEGER, PARAMETER :: ind_mepx = 30 - INTEGER, PARAMETER :: ind_opo3 = 31 - INTEGER, PARAMETER :: ind_crn2 = 32 - INTEGER, PARAMETER :: ind_cro = 33 - INTEGER, PARAMETER :: ind_hno3 = 34 - INTEGER, PARAMETER :: ind_cao2 = 35 - INTEGER, PARAMETER :: ind_co = 36 - INTEGER, PARAMETER :: ind_mgly = 37 - INTEGER, PARAMETER :: ind_eth = 38 - INTEGER, PARAMETER :: ind_crno = 39 - INTEGER, PARAMETER :: ind_iole = 40 - INTEGER, PARAMETER :: ind_ole = 41 - INTEGER, PARAMETER :: ind_terp = 42 - INTEGER, PARAMETER :: ind_cres = 43 - INTEGER, PARAMETER :: ind_par = 44 - INTEGER, PARAMETER :: ind_open = 45 - INTEGER, PARAMETER :: ind_isop = 46 - INTEGER, PARAMETER :: ind_ispd = 47 - INTEGER, PARAMETER :: ind_xo2n = 48 - INTEGER, PARAMETER :: ind_aldx = 49 - INTEGER, PARAMETER :: ind_ald2 = 50 - INTEGER, PARAMETER :: ind_ntr = 51 - INTEGER, PARAMETER :: ind_form = 52 - INTEGER, PARAMETER :: ind_o3 = 53 - INTEGER, PARAMETER :: ind_ho2 = 54 - INTEGER, PARAMETER :: ind_cxo3 = 55 - INTEGER, PARAMETER :: ind_no3 = 56 - INTEGER, PARAMETER :: ind_meo2 = 57 - INTEGER, PARAMETER :: ind_c2o3 = 58 - INTEGER, PARAMETER :: ind_xo2 = 59 - INTEGER, PARAMETER :: ind_oh = 60 - INTEGER, PARAMETER :: ind_no2 = 61 - INTEGER, PARAMETER :: ind_no = 62 - INTEGER, PARAMETER :: ind_o = 63 - -! Index declaration for fixed species in C -! C(ind_spc) - - INTEGER, PARAMETER :: ind_H2O = 64 - INTEGER, PARAMETER :: ind_M = 65 - -! Index declaration for fixed species in FIX -! FIX(indf_spc) = C(ind_spc) = C(NVAR+indf_spc) - - INTEGER, PARAMETER :: indf_H2O = 1 - INTEGER, PARAMETER :: indf_M = 2 - -! NJVRP - Length of sparse Jacobian JVRP - INTEGER, PARAMETER :: NJVRP = 296 - -! NSTOICM - Length of Sparse Stoichiometric Matrix - INTEGER, PARAMETER :: NSTOICM = 757 - -END MODULE CB05_CSIRO_Parameters - diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Parameters.o b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Parameters.o deleted file mode 100644 index 39f9ff04b81934391c73b7f834cb011ed21b314c..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Parameters.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Precision.f90 b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Precision.f90 deleted file mode 100644 index 00d1561ebe87b5c796d086a90b9e08be529eb445..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Precision.f90 +++ /dev/null @@ -1,17 +0,0 @@ - -MODULE CB05_CSIRO_Precision - -! -! Definition of different levels of accuracy -! for REAL variables using KIND parameterization -! -! KPP SP - Single precision kind - INTEGER, PARAMETER :: sp = SELECTED_REAL_KIND(6,30) -! KPP DP - Double precision kind - INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(14,300) -! KPP QP - Quadruple precision kind - INTEGER, PARAMETER :: qp = SELECTED_REAL_KIND(18,400) - -END MODULE CB05_CSIRO_Precision - - diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Precision.o b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Precision.o deleted file mode 100644 index 6730e6825a8ce85d4e033ed70b3d2e065e36dd4a..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Precision.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Rates.f90 b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Rates.f90 deleted file mode 100644 index 72ffc4e4f861c121bef630ff2f21f5bc2f010f70..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Rates.f90 +++ /dev/null @@ -1,608 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The Reaction Rates File -! -! Generated by KPP-2.2.3 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 : CB05_CSIRO_Rates.f90 -! Time : Thu Oct 8 08:21:51 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05_CSIRO_26998_BOXMOX -! Equation file : CB05_CSIRO.kpp -! Output root filename : CB05_CSIRO -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CB05_CSIRO_Rates - - USE CB05_CSIRO_Parameters - USE CB05_CSIRO_Global - USE CB05_CSIRO_Util - IMPLICIT NONE - -CONTAINS - - - -! Begin Rate Law Functions from KPP_HOME/util/UserRateLaws - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! User-defined Rate Law functions -! Note: the default argument type for rate laws, as read from the equations file, is single precision -! but all the internal calculations are performed in double precision -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~> Arrhenius -! REAL(kind=dp) FUNCTION ARR( A0,B0,C0 ) -! REAL A0,B0,C0 -! ARR = DBLE(A0) * EXP(-DBLE(B0)/TEMP) * (TEMP/300.0_dp)**DBLE(C0) -! END FUNCTION ARR - -! Arrhenius (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION ARR( A0,B0,C0, TEMP ) - REAL(kind=dp) :: TEMP - REAL(kind=dp) A0,B0,C0 - ARR = A0 * EXP( -B0 /TEMP ) * (TEMP/300._dp)**C0 - END FUNCTION ARR - -!~~~> Simplified Arrhenius, with two arguments -!~~~> Note: The argument B0 has a changed sign when compared to ARR -! REAL(kind=dp) FUNCTION ARR2( A0,B0 ) -! REAL A0,B0 -! ARR2 = DBLE(A0) * EXP( DBLE(B0)/TEMP ) -! END FUNCTION ARR2 -! CK 20140313 WRF-chem uses different kind of Arrhenius function -! with TEMP as argument... - REAL(kind=dp) FUNCTION ARR2( A0,B0, TEMP ) - REAL(kind=dp) :: TEMP - REAL(kind=dp) A0,B0 - ARR2 = A0 * EXP( -B0 /TEMP ) - END FUNCTION ARR2 -! CK 20140313 end - -! REAL(kind=dp) FUNCTION EP2(A0,C0,A2,C2,A3,C3) -! REAL A0,C0,A2,C2,A3,C3 -! REAL(kind=dp) K0,K2,K3 -! K0 = DBLE(A0) * EXP(-DBLE(C0)/TEMP) -! K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP) -! K3 = DBLE(A3) * EXP(-DBLE(C3)/TEMP) -! K3 = K3*CFACTOR*1.0E6_dp -! EP2 = K0 + K3/(1.0_dp+K3/K2 ) -! END FUNCTION EP2 - -! REAL(kind=dp) FUNCTION EP3(A1,C1,A2,C2) -! REAL A1, C1, A2, C2 -! REAL(kind=dp) K1, K2 -! K1 = DBLE(A1) * EXP(-DBLE(C1)/TEMP) -! K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP) -! EP3 = K1 + K2*(1.0E6_dp*CFACTOR) -! END FUNCTION EP3 - -! EP2 (added by psaide 22-07-2009) - REAL(kind=dp) FUNCTION EP2( A0,C0,A2,C2,A3,C3,TEMP,cair) - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A0,C0,A2,C2,A3,C3 - REAL(kind=dp) K0,K2,K3 - - K0 = A0 * EXP(-C0 /TEMP) - K2 = A2 * EXP(-C2 /TEMP) - K3 = A3 * EXP(-C3 /TEMP) -! K3 = K3 * 2.45E13_dp * 1.0E6_dp - K3 = K3 * cair - EP2 = K0 + K3/(1._dp+K3/K2 ) - END FUNCTION EP2 - -! EP3 (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION EP3(A1,C1,A2,C2,TEMP,cair) - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A1, C1, A2, C2 - REAL(kind=dp) K1, K2 - - K1 = A1 * EXP(-C1 /TEMP) - K2 = A2 * EXP(-C2 /TEMP) -! EP3 = K1 + K2*(1.0E6_dp * 2.45E13_dp) - EP3 = K1 + K2*cair - END FUNCTION EP3 - - -! REAL(kind=dp) FUNCTION FALL ( A0,B0,C0,A1,B1,C1,CF) -! REAL A0,B0,C0,A1,B1,C1,CF -! REAL(kind=dp) K0, K1 -! K0 = DBLE(A0) * EXP(-DBLE(B0)/TEMP)* (TEMP/300.0_dp)**DBLE(C0) -! K1 = DBLE(A1) * EXP(-DBLE(B1)/TEMP)* (TEMP/300.0_dp)**DBLE(C1) -! K0 = K0*CFACTOR*1.0E6_dp -! K1 = K0/K1 -! FALL = (K0/(1.0_dp+K1))* & -! DBLE(CF)**(1.0_dp/(1.0_dp+(LOG10(K1))**2)) -! END FUNCTION FALL - -! FALL (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION FALL( A0,B0,C0,A1,B1,C1,CF,TEMP,cair) - - INTRINSIC LOG10 - - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A0,B0,C0,A1,B1,C1,CF - REAL(kind=dp) K0, K1 - - K0 = A0 * EXP(-B0 /TEMP)* (TEMP/300._dp)**C0 - K1 = A1 * EXP(-B1 /TEMP)* (TEMP/300._dp)**C1 -! K0 = K0 * 2.45E13_dp * 1.0E6_dp - K0 = K0 * cair - K1 = K0/K1 - FALL = (K0/(1._dp+K1))*CF**(1._dp/(1._dp+(LOG10(K1))**2)) - - END FUNCTION FALL - -! FALL2 (added by psaide 28-10-2009) - REAL(KIND=dp) FUNCTION F2( A0,B0,C0,A1,B1,C1,CF,CN,TEMP,cair) - - INTRINSIC LOG10 - - REAL(KIND=dp) :: TEMP - REAL(KIND=dp) :: cair - REAL(KIND=dp) A0,B0,C0,A1,B1,C1,CF,CN - REAL(KIND=dp) K0, K1 - - K0 = A0 * EXP(-B0 /TEMP)* (TEMP/300._dp)**C0 - K1 = A1 * EXP(-B1 /TEMP)* (TEMP/300._dp)**C1 -! K0 = K0 * 2.45E13_dp * 1.0E6_dp - K0 = K0 * cair - K1 = K0/K1 - F2 = (K0/(1._dp+K1))*CF**(1._dp/(1._dp+(LOG10(K1)/CN)**2)) - - END FUNCTION F2 - - - !--------------------------------------------------------------------------- - - ELEMENTAL REAL(kind=dp) FUNCTION k_3rd(temp,cair,k0_300K,n,kinf_300K,m,fc) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL, INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL, INTENT(IN) :: n ! exponent for low pressure limit - REAL, INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL, INTENT(IN) :: m ! exponent for high pressure limit - REAL, INTENT(IN) :: fc ! broadening factor (usually fc=0.6) - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - k_3rd = k0_T/(1._dp+k_ratio)*fc**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - END FUNCTION k_3rd - - !--------------------------------------------------------------------------- - - ELEMENTAL REAL(kind=dp) FUNCTION k_arr (k_298,tdep,temp) - ! Arrhenius function - - REAL, INTENT(IN) :: k_298 ! k at T = 298.15K - REAL, INTENT(IN) :: tdep ! temperature dependence - REAL(kind=dp), INTENT(IN) :: temp ! temperature - - INTRINSIC EXP - - k_arr = k_298 * EXP(tdep*(1._dp/temp-3.3540E-3_dp)) ! 1/298.15=3.3540e-3 - - END FUNCTION k_arr - -! CK 20140313 in the following some more rate functions needed by -! WRF-chem packages - -!------------------------------------ -! Troe reactions (as in Stockwell et al, 1997) - - REAL(kind=dp) FUNCTION TROE(k0_300K,n,kinf_300K,m,temp,cair) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - TROE = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - END FUNCTION TROE - - - -!------------------------------------------- -! Troe equilibrium reactions (as in Stockwell et al, 1997) - - REAL(kind=dp) FUNCTION TROEE(A, B, k0_300K,n,kinf_300K,m,temp,cair) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - REAL(kind=dp), INTENT(IN) :: A, B - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio, troe - - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - troe = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - TROEE = A * EXP( - B / temp) * troe - - - - END FUNCTION TROEE - -!------------------------ -! k=T^2 C exp (-D/T) reactions - - REAL(kind=dp) FUNCTION THERMAL_T2(c, d ,temp) - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: c, d - - - THERMAL_T2= temp**2._dp * c * EXP(- d / temp) - - END FUNCTION THERMAL_T2 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! End of User-defined Rate Law functions -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -! End Rate Law Functions from KPP_HOME/util/UserRateLaws - - -! Begin INLINED Rate Law Functions - - - -! **************************************************************************** -! J - the photolysis rate retrieval function -! **************************************************************************** - REAL(kind=dp) FUNCTION J(name) - - CHARACTER(LEN=*), INTENT(IN) :: name - - CHARACTER(LEN=15) :: xname - - INTEGER :: i - - xname(:) = " " - xname(1:LEN(name)) = name - - J = jvalues(hash(xname)) - - RETURN - - END FUNCTION J -! **************************************************************************** - - -REAL(KIND=dp) FUNCTION k46( TEMP, C_M ) - REAL(KIND=dp), INTENT(IN) :: temp, c_m - REAL(KIND=dp) :: k0, k2, k3 - - k0=7.2E-15_dp * EXP(785._dp/TEMP) - k2=4.1E-16_dp * EXP(1440._dp/TEMP) - k3=1.9E-33_dp * EXP(725._dp/TEMP) - - k46=k0+k3/(1+k3/k2) - - -END FUNCTION k46 - - - -! End INLINED Rate Law Functions - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_SUN - update SUN light using TIME -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - SUBROUTINE Update_SUN() - !USE CB05_CSIRO_Parameters - !USE CB05_CSIRO_Global - - IMPLICIT NONE - - REAL(kind=dp) :: SunRise, SunSet - REAL(kind=dp) :: Thour, Tlocal, Ttmp - ! PI - Value of pi - REAL(kind=dp), PARAMETER :: PI = 3.14159265358979d0 - - SunRise = 4.5_dp - SunSet = 19.5_dp - Thour = TIME/3600.0_dp - Tlocal = Thour - (INT(Thour)/24)*24 - - IF ((Tlocal>=SunRise).AND.(Tlocal<=SunSet)) THEN - Ttmp = (2.0*Tlocal-SunRise-SunSet)/(SunSet-SunRise) - IF (Ttmp.GT.0) THEN - Ttmp = Ttmp*Ttmp - ELSE - Ttmp = -Ttmp*Ttmp - END IF - SUN = ( 1.0_dp + COS(PI*Ttmp) )/2.0_dp - ELSE - SUN = 0.0_dp - END IF - - END SUBROUTINE Update_SUN - -! End of Update_SUN function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_RCONST - function to update rate constants -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Update_RCONST ( ) - - - - -! Begin INLINED RCONST - - -! End INLINED RCONST - - RCONST(1) = (j('no2')) - RCONST(2) = (0.21*C_M*C_M*ARR(6.0e-34_dp,0.0_dp,-2.4_dp,TEMP)) - RCONST(3) = (ARR2(3.0e-12_dp,1500.0_dp,TEMP)) - RCONST(4) = (ARR2(5.6e-12_dp,-180.0_dp,TEMP)) - RCONST(5) = (TROE(2.5e-31_dp,1.8_dp,2.2e-11,0.7_dp,TEMP,C_M)) - RCONST(6) = (TROE(9.0e-32_dp,1.5_dp,3.0e-11,0.0_dp,TEMP,C_M)) - RCONST(7) = (ARR2(1.2e-13_dp,2450.0_dp,TEMP)) - RCONST(8) = (j('o33p')) - RCONST(9) = (j('o31d')) - RCONST(10) = (ARR2(2.1e-11_dp,-102.0_dp,TEMP)) - RCONST(11) = (2.2e-10_dp) - RCONST(12) = (ARR2(1.7e-12_dp,940.0_dp,TEMP)) - RCONST(13) = (ARR2(1.0e-14_dp,490.0_dp,TEMP)) - RCONST(14) = (j('no3o')) - RCONST(15) = (j('no3o2')) - RCONST(16) = (ARR2(1.5e-11_dp,-170.0_dp,TEMP)) - RCONST(17) = (ARR2(4.5e-14_dp,1260.0_dp,TEMP)) - RCONST(18) = (TROE(2.0e-30_dp,4.4_dp,1.4e-12_dp,0.7_dp,TEMP,C_M)) - RCONST(19) = (2.5e-22_dp) - RCONST(20) = (1.8e-39_dp) - RCONST(21) = (TROEE(3.70e26_dp,11000.0_dp,2.0e-30_dp,4.4_dp,1.4e-12_dp,0.7_dp,TEMP,C_M)) - RCONST(22) = (ARR2(3.3e-39_dp,-530.0_dp,TEMP)*0.21*C_M) - RCONST(23) = (5.0e-40_dp) - RCONST(24) = (TROE(7.0e-31_dp,2.6_dp,3.6e-11_dp,0.1_dp,TEMP,C_M)) - RCONST(25) = (j('hno2')) - RCONST(26) = (ARR2(1.8e-11_dp,390.0_dp,TEMP)) - RCONST(27) = (1.0e-20_dp) - RCONST(28) = (TROE(2.0e-30_dp,3.0_dp,2.5e-11_dp,0.0_dp,TEMP,C_M)) - RCONST(29) = (EP2(2.4e-14_dp,-460.0_dp,2.7e-17_dp,-2199.0_dp,6.5e-34_dp,-1335.0_dp,TEMP,C_M)) - RCONST(30) = (ARR2(3.5e-12_dp,-250.0_dp,TEMP)) - RCONST(31) = (TROE(1.8e-31_dp,3.2_dp,4.7e-12_dp,0.0_dp,TEMP,C_M)) - RCONST(32) = (FALL(4.1e-05_dp,10650.0_dp,0.0_dp,4.8e15_dp,11170.0_dp,0.0_dp,0.6_dp,TEMP,C_M)) - RCONST(33) = (ARR2(1.3e-12_dp,-380.0_dp,TEMP)) - RCONST(34) = (EP3(2.3e-13_dp,-600.0_dp,1.7e-33_dp,-1000.0_dp,TEMP,C_M)) - RCONST(35) = (EP3(3.22e-34_dp,-2800.0_dp,2.38e-54_dp,-3200.0_dp,TEMP,C_M)) - RCONST(36) = (j('h2o2')) - RCONST(37) = (ARR2(2.9e-12_dp,160.0_dp,TEMP)) - RCONST(38) = (1.1e-10_dp) - RCONST(39) = (ARR2(5.5e-12_dp,2000.0_dp,TEMP)) - RCONST(40) = (ARR2(2.2e-11_dp,-120.0_dp,TEMP)) - RCONST(41) = (ARR2(4.2e-12_dp,240.0_dp,TEMP)) - RCONST(42) = (TROE(6.9e-31_dp,1.0_dp,2.6e-11_dp,0.0_dp,TEMP,C_M)) - RCONST(43) = (ARR2(4.8e-11_dp,-250.0_dp,TEMP)) - RCONST(44) = (ARR2(3.0e-11_dp,-200.0_dp,TEMP)) - RCONST(45) = (ARR2(1.4e-12_dp,2000.0_dp,TEMP)) - RCONST(46) = (1.0e-11_dp) - RCONST(47) = (2.2e-11_dp) - RCONST(48) = (3.5e-12_dp) - RCONST(49) = (1.0e-17_dp) - RCONST(50) = (ARR2(8.5e-13_dp,2450.0_dp,TEMP)) - RCONST(51) = (j('hno4')) - RCONST(52) = (j('hno3')) - RCONST(53) = (j('n2o5')) - RCONST(54) = (ARR2(2.6e-12_dp,-365.0_dp,TEMP)) - RCONST(55) = (ARR2(2.6e-12_dp,-365.0_dp,TEMP)) - RCONST(56) = (ARR2(7.5e-13_dp,-700.0_dp,TEMP)) - RCONST(57) = (ARR2(7.5e-13_dp,-700.0_dp,TEMP)) - RCONST(58) = (6.8e-14_dp) - RCONST(59) = (6.8e-14_dp) - RCONST(60) = (6.8e-14_dp) - RCONST(61) = (ARR2(5.9e-13_dp,360.0_dp,TEMP)) - RCONST(62) = (1.0e-4*j('no2')) - RCONST(63) = (ARR2(3.01e-12_dp,-190.0_dp,TEMP)) - RCONST(64) = (0.7*j('h2o2')) - RCONST(65) = (EP3(1.44e-13_dp,0.0_dp,3.43e-33_dp,0.0_dp,TEMP,C_M)) - RCONST(66) = (ARR2(2.45e-12_dp,1775.0_dp,TEMP)) - RCONST(67) = (ARR2(2.8e-12_dp,-300.0_dp,TEMP)) - RCONST(68) = (ARR2(4.1e-13_dp,-750.0_dp,TEMP)) - RCONST(69) = (ARR2(9.5e-14_dp,-390.0_dp,TEMP)) - RCONST(70) = (ARR2(3.8e-12_dp,-200.0_dp,TEMP)) - RCONST(71) = (0.7*j('h2o2')) - RCONST(72) = (ARR2(7.3e-12_dp,620.0_dp,TEMP)) - RCONST(73) = (9.0e-12_dp) - RCONST(74) = (j('ch2or')) - RCONST(75) = (j('ch2om')) - RCONST(76) = (ARR2(3.4e-11_dp,1600.0_dp,TEMP)) - RCONST(77) = (5.8e-16_dp) - RCONST(78) = (ARR2(9.7e-15_dp,-625.0_dp,TEMP)) - RCONST(79) = (ARR2(2.4e+12_dp,7000.0_dp,TEMP)) - RCONST(80) = (5.6e-12_dp) - RCONST(81) = (ARR2(5.6e-15_dp,-2300.0_dp,TEMP)) - RCONST(82) = (4.0e-13_dp) - RCONST(83) = (ARR2(1.8e-11_dp,1100.0_dp,TEMP)) - RCONST(84) = (ARR2(5.6e-12_dp,-270.0_dp,TEMP)) - RCONST(85) = (ARR2(1.4e-12_dp,1900.0_dp,TEMP)) - RCONST(86) = (4.6e-4*j('no2')) - RCONST(87) = (ARR2(8.1e-12_dp,-270.0_dp,TEMP)) - RCONST(88) = (FALL(2.7e-28_dp,0.0_dp,-7.1_dp,1.2e-11_dp,0.0_dp,-0.9_dp,0.3_dp,TEMP,C_M)) - RCONST(89) = (FALL(4.9e-03_dp,12100.0_dp,0.0_dp,5.4e16_dp,13830.0_dp,0.0_dp,0.3_dp,TEMP,C_M)) - RCONST(90) = (j('pan')) - RCONST(91) = (ARR2(4.3e-13_dp,-1040.0_dp,TEMP)) - RCONST(92) = (ARR2(2.0e-12_dp,-500.0_dp,TEMP)) - RCONST(93) = (ARR2(4.4e-13_dp,-1070.0_dp,TEMP)) - RCONST(94) = (ARR2(2.9e-12_dp,-500.0_dp,TEMP)) - RCONST(95) = (ARR2(4.0e-13_dp,-200.0_dp,TEMP)) - RCONST(96) = (0.0*0.7*j('h2o2')) - RCONST(97) = (ARR2(4.0e-13_dp,-200.0_dp,TEMP)) - RCONST(98) = (ARR2(1.3e-11_dp,870.0_dp,TEMP)) - RCONST(99) = (ARR2(5.1e-12_dp,-405.0_dp,TEMP)) - RCONST(100) = (6.5e-15_dp) - RCONST(101) = (j('ch3cho')) - RCONST(102) = (ARR2(6.7e-12_dp,-340.0_dp,TEMP)) - RCONST(103) = (FALL(2.7e-28_dp,0.0_dp,-7.1_dp,1.2e-11_dp,0.0_dp,-0.9_dp,0.3_dp,TEMP,C_M)) - RCONST(104) = (FALL(4.9e-03_dp,12100.0_dp,0.0_dp,5.4e16_dp,13830.0_dp,0.0_dp,0.3_dp,TEMP,C_M)) - RCONST(105) = (j('pan')) - RCONST(106) = (3.0e-13_dp) - RCONST(107) = (ARR2(4.3e-13_dp,-1040.0_dp,TEMP)) - RCONST(108) = (ARR2(2.0e-12_dp,-500.0_dp,TEMP)) - RCONST(109) = (ARR2(4.4e-13_dp,-1070.0_dp,TEMP)) - RCONST(110) = (ARR2(2.9e-12_dp,-500.0_dp,TEMP)) - RCONST(111) = (ARR2(2.9e-12_dp,-500.0_dp,TEMP)) - RCONST(112) = (8.1e-13_dp) - RCONST(113) = (ARR2(1.0e15_dp,8000.0_dp,TEMP)) - RCONST(114) = (1.6E+03_dp) - RCONST(115) = (1.5e-11_dp) - RCONST(116) = (ARR2(1.0e-11_dp,280.0_dp,TEMP)) - RCONST(117) = (3.2e-11_dp) - RCONST(118) = (ARR2(6.5e-15_dp,1900.0_dp,TEMP)) - RCONST(119) = (ARR2(7.0e-13_dp,2160.0_dp,TEMP)) - RCONST(120) = (ARR2(1.04e-11_dp,792.0_dp,TEMP)) - RCONST(121) = (TROE(1.0e-28_dp,0.8_dp,8.8e-12_dp,0.0_dp,TEMP,C_M)) - RCONST(122) = (ARR2(1.2e-14_dp,2630.0_dp,TEMP)) - RCONST(123) = (ARR2(3.3e-12_dp,2880.0_dp,TEMP)) - RCONST(124) = (2.3e-11_dp) - RCONST(125) = (ARR2(1.0e-11_dp,-550.0_dp,TEMP)) - RCONST(126) = (ARR2(8.4e-15_dp,1100.0_dp,TEMP)) - RCONST(127) = (ARR2(9.6e-13_dp,270.0_dp,TEMP)) - RCONST(128) = (ARR2(1.8e-12_dp,-355.0_dp,TEMP)) - RCONST(129) = (ARR2(2.7e-12_dp,-360.0_dp,TEMP)) - RCONST(130) = (ARR2(1.9e-13_dp,-1300.0_dp,TEMP)) - RCONST(131) = (ARR2(1.7e-12_dp,-950.0_dp,TEMP)) - RCONST(132) = (1.4e-11_dp) - RCONST(133) = (2.1e-12_dp) - RCONST(134) = (5.5e-12_dp) - RCONST(135) = (1.53e-12_dp) - RCONST(136) = (3.80e-12_dp) - RCONST(137) = (2.10e-12_dp) - RCONST(138) = (2.86e-12_dp) - RCONST(139) = (ARR2(2.54e-12_dp,-360.0_dp,TEMP)) - RCONST(140) = (ARR2(2.4e-13_dp,-1300.0_dp,TEMP)) - RCONST(141) = (j('no2')) - RCONST(142) = (ARR2(1.9e-12_dp,-190.0_dp,TEMP)) - RCONST(143) = (j('no2')) - RCONST(144) = (4.4e-11_dp) - RCONST(145) = (ARR2(5.4e-17_dp,500.0_dp,TEMP)) - RCONST(146) = (3.8e-12_dp) - RCONST(147) = (7.0e-11_dp) - RCONST(148) = (1.7e-10_dp) - RCONST(149) = (ARR2(2.54e-12_dp,-360.0_dp,TEMP)) - RCONST(150) = (ARR2(2.4e-13_dp,-1300.0_dp,TEMP)) - RCONST(151) = (1.0e-11_dp) - RCONST(152) = (1.0e-11_dp) - RCONST(153) = (1.0e-04_dp) - RCONST(154) = (ARR2(1.7e-11_dp,-116.0_dp,TEMP)) - RCONST(155) = (1.7e-11_dp) - RCONST(156) = (9.64*j('ch2or')) - RCONST(157) = (3.6e-11_dp) - RCONST(158) = (ARR2(2.54e-11_dp,-407.6_dp,TEMP)) - RCONST(159) = (ARR2(7.86e-15_dp,1912.0_dp,TEMP)) - RCONST(160) = (ARR2(3.03e-12_dp,448.0_dp,TEMP)) - RCONST(161) = (3.36e-11_dp) - RCONST(162) = (7.1e-18_dp) - RCONST(163) = (1.0e-15_dp) - RCONST(164) = (0.0036*0.025*j('ch2om')) - RCONST(165) = (3.6e-11_dp) - RCONST(166) = (ARR2(1.5e-11_dp,-449.0_dp,TEMP)) - RCONST(167) = (ARR2(1.2e-15_dp,821.0_dp,TEMP)) - RCONST(168) = (ARR2(3.7e-12_dp,-175.0_dp,TEMP)) - RCONST(169) = (TROE(3.3e-31_dp,4.3_dp,1.6e-12_dp,0.0_dp,TEMP,C_M)) - RCONST(170) = (ARR2(6.9e-12_dp,230.0_dp,TEMP)) - RCONST(171) = (ARR2(8.7e-12_dp,1070.0_dp,TEMP)) - RCONST(172) = (1.5e-19_dp) - RCONST(173) = (rtdat_ae_so2) - -END SUBROUTINE Update_RCONST - -! End of Update_RCONST function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_PHOTO - function to update photolytical rate constants -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Update_PHOTO ( ) - - - USE CB05_CSIRO_Global - - RCONST(1) = (j('no2')) - RCONST(8) = (j('o33p')) - RCONST(9) = (j('o31d')) - RCONST(14) = (j('no3o')) - RCONST(15) = (j('no3o2')) - RCONST(25) = (j('hno2')) - RCONST(36) = (j('h2o2')) - RCONST(51) = (j('hno4')) - RCONST(52) = (j('hno3')) - RCONST(53) = (j('n2o5')) - RCONST(62) = (1.0e-4*j('no2')) - RCONST(64) = (0.7*j('h2o2')) - RCONST(71) = (0.7*j('h2o2')) - RCONST(74) = (j('ch2or')) - RCONST(75) = (j('ch2om')) - RCONST(86) = (4.6e-4*j('no2')) - RCONST(90) = (j('pan')) - RCONST(96) = (0.0*0.7*j('h2o2')) - RCONST(101) = (j('ch3cho')) - RCONST(105) = (j('pan')) - RCONST(143) = (j('no2')) - RCONST(156) = (9.64*j('ch2or')) - RCONST(164) = (0.0036*0.025*j('ch2om')) - -END SUBROUTINE Update_PHOTO - -! End of Update_PHOTO function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE CB05_CSIRO_Rates - diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Rates.o b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Rates.o deleted file mode 100644 index ee6bf1b8fae4de057223b66c831e2ef023d3c979..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Rates.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Stoichiom.f90 b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Stoichiom.f90 deleted file mode 100644 index 4cb530667ac705a9613ff619c334461323d68c96..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Stoichiom.f90 +++ /dev/null @@ -1,978 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The Stoichiometric Chemical Model File -! -! Generated by KPP-2.2.3 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 : CB05_CSIRO_Stoichiom.f90 -! Time : Thu Oct 8 08:21:51 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05_CSIRO_26998_BOXMOX -! Equation file : CB05_CSIRO.kpp -! Output root filename : CB05_CSIRO -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CB05_CSIRO_Stoichiom - - USE CB05_CSIRO_Parameters - USE CB05_CSIRO_StoichiomSP - - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! ReactantProd - Reactant Products in each equation -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! ARP - Reactant product in each equation -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE ReactantProd ( V, F, ARP ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! F - Concentrations of fixed species (local) - REAL(kind=dp) :: F(NFIX) -! ARP - Reactant product in each equation - REAL(kind=dp) :: ARP(NREACT) - - -! Reactant Products in each equation are useful in the -! stoichiometric formulation of mass action law - ARP(1) = V(61) - ARP(2) = V(63) - ARP(3) = V(53)*V(62) - ARP(4) = V(61)*V(63) - ARP(5) = V(61)*V(63) - ARP(6) = V(62)*V(63) - ARP(7) = V(53)*V(61) - ARP(8) = V(53) - ARP(9) = V(53) - ARP(10) = V(14)*F(2) - ARP(11) = V(14)*F(1) - ARP(12) = V(53)*V(60) - ARP(13) = V(53)*V(54) - ARP(14) = V(56) - ARP(15) = V(56) - ARP(16) = V(56)*V(62) - ARP(17) = V(56)*V(61) - ARP(18) = V(56)*V(61) - ARP(19) = V(12)*F(1) - ARP(20) = V(12)*F(1)*F(1) - ARP(21) = V(12) - ARP(22) = V(62)*V(62) - ARP(23) = V(61)*V(62)*F(1) - ARP(24) = V(60)*V(62) - ARP(25) = V(16) - ARP(26) = V(16)*V(60) - ARP(27) = V(16)*V(16) - ARP(28) = V(60)*V(61) - ARP(29) = V(34)*V(60) - ARP(30) = V(54)*V(62) - ARP(31) = V(54)*V(61) - ARP(32) = V(23) - ARP(33) = V(23)*V(60) - ARP(34) = V(54)*V(54) - ARP(35) = V(54)*V(54)*F(1) - ARP(36) = V(17) - ARP(37) = V(17)*V(60) - ARP(38) = V(13)*V(14) - ARP(39) = V(13)*V(60) - ARP(40) = V(60)*V(63) - ARP(41) = V(60)*V(60) - ARP(42) = V(60)*V(60) - ARP(43) = V(54)*V(60) - ARP(44) = V(54)*V(63) - ARP(45) = V(17)*V(63) - ARP(46) = V(56)*V(63) - ARP(47) = V(56)*V(60) - ARP(48) = V(54)*V(56) - ARP(49) = V(53)*V(56) - ARP(50) = V(56)*V(56) - ARP(51) = V(23) - ARP(52) = V(34) - ARP(53) = V(12) - ARP(54) = V(59)*V(62) - ARP(55) = V(48)*V(62) - ARP(56) = V(54)*V(59) - ARP(57) = V(48)*V(54) - ARP(58) = V(59)*V(59) - ARP(59) = V(48)*V(48) - ARP(60) = V(48)*V(59) - ARP(61) = V(51)*V(60) - ARP(62) = V(51) - ARP(63) = V(27)*V(60) - ARP(64) = V(27) - ARP(65) = V(36)*V(60) - ARP(66) = V(5)*V(60) - ARP(67) = V(57)*V(62) - ARP(68) = V(54)*V(57) - ARP(69) = V(57)*V(57) - ARP(70) = V(30)*V(60) - ARP(71) = V(30) - ARP(72) = V(10)*V(60) - ARP(73) = V(52)*V(60) - ARP(74) = V(52) - ARP(75) = V(52) - ARP(76) = V(52)*V(63) - ARP(77) = V(52)*V(56) - ARP(78) = V(52)*V(54) - ARP(79) = V(26) - ARP(80) = V(26)*V(62) - ARP(81) = V(26)*V(54) - ARP(82) = V(19)*V(60) - ARP(83) = V(50)*V(63) - ARP(84) = V(50)*V(60) - ARP(85) = V(50)*V(56) - ARP(86) = V(50) - ARP(87) = V(58)*V(62) - ARP(88) = V(58)*V(61) - ARP(89) = V(6) - ARP(90) = V(6) - ARP(91) = V(54)*V(58) - ARP(92) = V(57)*V(58) - ARP(93) = V(58)*V(59) - ARP(94) = V(58)*V(58) - ARP(95) = V(20)*V(60) - ARP(96) = V(20) - ARP(97) = V(21)*V(60) - ARP(98) = V(49)*V(63) - ARP(99) = V(49)*V(60) - ARP(100) = V(49)*V(56) - ARP(101) = V(49) - ARP(102) = V(55)*V(62) - ARP(103) = V(55)*V(61) - ARP(104) = V(22) - ARP(105) = V(22) - ARP(106) = V(22)*V(60) - ARP(107) = V(54)*V(55) - ARP(108) = V(55)*V(57) - ARP(109) = V(55)*V(59) - ARP(110) = V(55)*V(55) - ARP(111) = V(55)*V(58) - ARP(112) = V(44)*V(60) - ARP(113) = V(28) - ARP(114) = V(28) - ARP(115) = V(28)*V(61) - ARP(116) = V(41)*V(63) - ARP(117) = V(41)*V(60) - ARP(118) = V(41)*V(53) - ARP(119) = V(41)*V(56) - ARP(120) = V(38)*V(63) - ARP(121) = V(38)*V(60) - ARP(122) = V(38)*V(53) - ARP(123) = V(38)*V(56) - ARP(124) = V(40)*V(63) - ARP(125) = V(40)*V(60) - ARP(126) = V(40)*V(53) - ARP(127) = V(40)*V(56) - ARP(128) = V(8)*V(60) - ARP(129) = V(29)*V(62) - ARP(130) = V(29)*V(54) - ARP(131) = V(43)*V(60) - ARP(132) = V(43)*V(56) - ARP(133) = V(33)*V(61) - ARP(134) = V(33)*V(54) - ARP(135) = V(25)*V(60) - ARP(136) = V(25)*V(56) - ARP(137) = V(39)*V(61) - ARP(138) = V(39)*V(53) - ARP(139) = V(32)*V(62) - ARP(140) = V(32)*V(54) - ARP(141) = V(18) - ARP(142) = V(18)*V(60) - ARP(143) = V(45) - ARP(144) = V(45)*V(60) - ARP(145) = V(45)*V(53) - ARP(146) = V(45)*V(56) - ARP(147) = V(24)*V(60) - ARP(148) = V(24)*V(56) - ARP(149) = V(35)*V(62) - ARP(150) = V(35)*V(54) - ARP(151) = V(31)*V(62) - ARP(152) = V(31)*V(61) - ARP(153) = V(7) - ARP(154) = V(15)*V(60) - ARP(155) = V(37)*V(60) - ARP(156) = V(37) - ARP(157) = V(46)*V(63) - ARP(158) = V(46)*V(60) - ARP(159) = V(46)*V(53) - ARP(160) = V(46)*V(56) - ARP(161) = V(47)*V(60) - ARP(162) = V(47)*V(53) - ARP(163) = V(47)*V(56) - ARP(164) = V(47) - ARP(165) = V(42)*V(63) - ARP(166) = V(42)*V(60) - ARP(167) = V(42)*V(53) - ARP(168) = V(42)*V(56) - ARP(169) = V(4)*V(60) - ARP(170) = V(11)*V(60) - ARP(171) = V(9)*V(60) - ARP(172) = V(46)*V(61) - ARP(173) = V(4) - -END SUBROUTINE ReactantProd - -! End of ReactantProd function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! JacReactantProd - Jacobian of Reactant Products vector -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! JVRP - d ARP(1:NREACT)/d VAR (1:NVAR) -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE JacReactantProd ( V, F, JVRP ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! F - Concentrations of fixed species (local) - REAL(kind=dp) :: F(NFIX) -! JVRP - d ARP(1:NREACT)/d VAR (1:NVAR) - REAL(kind=dp) :: JVRP(NJVRP) - - -! Reactant Products in each equation are useful in the -! stoichiometric formulation of mass action law -! Below we compute the Jacobian of the Reactant Products vector -! w.r.t. variable species: d ARP(1:NREACT) / d Var(1:NVAR) - -! JVRP(1) = dARP(1)/dV(61) - JVRP(1) = 1 -! JVRP(2) = dARP(2)/dV(63) - JVRP(2) = 1 -! JVRP(3) = dARP(3)/dV(53) - JVRP(3) = V(62) -! JVRP(4) = dARP(3)/dV(62) - JVRP(4) = V(53) -! JVRP(5) = dARP(4)/dV(61) - JVRP(5) = V(63) -! JVRP(6) = dARP(4)/dV(63) - JVRP(6) = V(61) -! JVRP(7) = dARP(5)/dV(61) - JVRP(7) = V(63) -! JVRP(8) = dARP(5)/dV(63) - JVRP(8) = V(61) -! JVRP(9) = dARP(6)/dV(62) - JVRP(9) = V(63) -! JVRP(10) = dARP(6)/dV(63) - JVRP(10) = V(62) -! JVRP(11) = dARP(7)/dV(53) - JVRP(11) = V(61) -! JVRP(12) = dARP(7)/dV(61) - JVRP(12) = V(53) -! JVRP(13) = dARP(8)/dV(53) - JVRP(13) = 1 -! JVRP(14) = dARP(9)/dV(53) - JVRP(14) = 1 -! JVRP(15) = dARP(10)/dV(14) - JVRP(15) = F(2) -! JVRP(16) = dARP(11)/dV(14) - JVRP(16) = F(1) -! JVRP(17) = dARP(12)/dV(53) - JVRP(17) = V(60) -! JVRP(18) = dARP(12)/dV(60) - JVRP(18) = V(53) -! JVRP(19) = dARP(13)/dV(53) - JVRP(19) = V(54) -! JVRP(20) = dARP(13)/dV(54) - JVRP(20) = V(53) -! JVRP(21) = dARP(14)/dV(56) - JVRP(21) = 1 -! JVRP(22) = dARP(15)/dV(56) - JVRP(22) = 1 -! JVRP(23) = dARP(16)/dV(56) - JVRP(23) = V(62) -! JVRP(24) = dARP(16)/dV(62) - JVRP(24) = V(56) -! JVRP(25) = dARP(17)/dV(56) - JVRP(25) = V(61) -! JVRP(26) = dARP(17)/dV(61) - JVRP(26) = V(56) -! JVRP(27) = dARP(18)/dV(56) - JVRP(27) = V(61) -! JVRP(28) = dARP(18)/dV(61) - JVRP(28) = V(56) -! JVRP(29) = dARP(19)/dV(12) - JVRP(29) = F(1) -! JVRP(30) = dARP(20)/dV(12) - JVRP(30) = F(1)*F(1) -! JVRP(31) = dARP(21)/dV(12) - JVRP(31) = 1 -! JVRP(32) = dARP(22)/dV(62) - JVRP(32) = 2*V(62) -! JVRP(33) = dARP(23)/dV(61) - JVRP(33) = V(62)*F(1) -! JVRP(34) = dARP(23)/dV(62) - JVRP(34) = V(61)*F(1) -! JVRP(35) = dARP(24)/dV(60) - JVRP(35) = V(62) -! JVRP(36) = dARP(24)/dV(62) - JVRP(36) = V(60) -! JVRP(37) = dARP(25)/dV(16) - JVRP(37) = 1 -! JVRP(38) = dARP(26)/dV(16) - JVRP(38) = V(60) -! JVRP(39) = dARP(26)/dV(60) - JVRP(39) = V(16) -! JVRP(40) = dARP(27)/dV(16) - JVRP(40) = 2*V(16) -! JVRP(41) = dARP(28)/dV(60) - JVRP(41) = V(61) -! JVRP(42) = dARP(28)/dV(61) - JVRP(42) = V(60) -! JVRP(43) = dARP(29)/dV(34) - JVRP(43) = V(60) -! JVRP(44) = dARP(29)/dV(60) - JVRP(44) = V(34) -! JVRP(45) = dARP(30)/dV(54) - JVRP(45) = V(62) -! JVRP(46) = dARP(30)/dV(62) - JVRP(46) = V(54) -! JVRP(47) = dARP(31)/dV(54) - JVRP(47) = V(61) -! JVRP(48) = dARP(31)/dV(61) - JVRP(48) = V(54) -! JVRP(49) = dARP(32)/dV(23) - JVRP(49) = 1 -! JVRP(50) = dARP(33)/dV(23) - JVRP(50) = V(60) -! JVRP(51) = dARP(33)/dV(60) - JVRP(51) = V(23) -! JVRP(52) = dARP(34)/dV(54) - JVRP(52) = 2*V(54) -! JVRP(53) = dARP(35)/dV(54) - JVRP(53) = 2*V(54)*F(1) -! JVRP(54) = dARP(36)/dV(17) - JVRP(54) = 1 -! JVRP(55) = dARP(37)/dV(17) - JVRP(55) = V(60) -! JVRP(56) = dARP(37)/dV(60) - JVRP(56) = V(17) -! JVRP(57) = dARP(38)/dV(13) - JVRP(57) = V(14) -! JVRP(58) = dARP(38)/dV(14) - JVRP(58) = V(13) -! JVRP(59) = dARP(39)/dV(13) - JVRP(59) = V(60) -! JVRP(60) = dARP(39)/dV(60) - JVRP(60) = V(13) -! JVRP(61) = dARP(40)/dV(60) - JVRP(61) = V(63) -! JVRP(62) = dARP(40)/dV(63) - JVRP(62) = V(60) -! JVRP(63) = dARP(41)/dV(60) - JVRP(63) = 2*V(60) -! JVRP(64) = dARP(42)/dV(60) - JVRP(64) = 2*V(60) -! JVRP(65) = dARP(43)/dV(54) - JVRP(65) = V(60) -! JVRP(66) = dARP(43)/dV(60) - JVRP(66) = V(54) -! JVRP(67) = dARP(44)/dV(54) - JVRP(67) = V(63) -! JVRP(68) = dARP(44)/dV(63) - JVRP(68) = V(54) -! JVRP(69) = dARP(45)/dV(17) - JVRP(69) = V(63) -! JVRP(70) = dARP(45)/dV(63) - JVRP(70) = V(17) -! JVRP(71) = dARP(46)/dV(56) - JVRP(71) = V(63) -! JVRP(72) = dARP(46)/dV(63) - JVRP(72) = V(56) -! JVRP(73) = dARP(47)/dV(56) - JVRP(73) = V(60) -! JVRP(74) = dARP(47)/dV(60) - JVRP(74) = V(56) -! JVRP(75) = dARP(48)/dV(54) - JVRP(75) = V(56) -! JVRP(76) = dARP(48)/dV(56) - JVRP(76) = V(54) -! JVRP(77) = dARP(49)/dV(53) - JVRP(77) = V(56) -! JVRP(78) = dARP(49)/dV(56) - JVRP(78) = V(53) -! JVRP(79) = dARP(50)/dV(56) - JVRP(79) = 2*V(56) -! JVRP(80) = dARP(51)/dV(23) - JVRP(80) = 1 -! JVRP(81) = dARP(52)/dV(34) - JVRP(81) = 1 -! JVRP(82) = dARP(53)/dV(12) - JVRP(82) = 1 -! JVRP(83) = dARP(54)/dV(59) - JVRP(83) = V(62) -! JVRP(84) = dARP(54)/dV(62) - JVRP(84) = V(59) -! JVRP(85) = dARP(55)/dV(48) - JVRP(85) = V(62) -! JVRP(86) = dARP(55)/dV(62) - JVRP(86) = V(48) -! JVRP(87) = dARP(56)/dV(54) - JVRP(87) = V(59) -! JVRP(88) = dARP(56)/dV(59) - JVRP(88) = V(54) -! JVRP(89) = dARP(57)/dV(48) - JVRP(89) = V(54) -! JVRP(90) = dARP(57)/dV(54) - JVRP(90) = V(48) -! JVRP(91) = dARP(58)/dV(59) - JVRP(91) = 2*V(59) -! JVRP(92) = dARP(59)/dV(48) - JVRP(92) = 2*V(48) -! JVRP(93) = dARP(60)/dV(48) - JVRP(93) = V(59) -! JVRP(94) = dARP(60)/dV(59) - JVRP(94) = V(48) -! JVRP(95) = dARP(61)/dV(51) - JVRP(95) = V(60) -! JVRP(96) = dARP(61)/dV(60) - JVRP(96) = V(51) -! JVRP(97) = dARP(62)/dV(51) - JVRP(97) = 1 -! JVRP(98) = dARP(63)/dV(27) - JVRP(98) = V(60) -! JVRP(99) = dARP(63)/dV(60) - JVRP(99) = V(27) -! JVRP(100) = dARP(64)/dV(27) - JVRP(100) = 1 -! JVRP(101) = dARP(65)/dV(36) - JVRP(101) = V(60) -! JVRP(102) = dARP(65)/dV(60) - JVRP(102) = V(36) -! JVRP(103) = dARP(66)/dV(5) - JVRP(103) = V(60) -! JVRP(104) = dARP(66)/dV(60) - JVRP(104) = V(5) -! JVRP(105) = dARP(67)/dV(57) - JVRP(105) = V(62) -! JVRP(106) = dARP(67)/dV(62) - JVRP(106) = V(57) -! JVRP(107) = dARP(68)/dV(54) - JVRP(107) = V(57) -! JVRP(108) = dARP(68)/dV(57) - JVRP(108) = V(54) -! JVRP(109) = dARP(69)/dV(57) - JVRP(109) = 2*V(57) -! JVRP(110) = dARP(70)/dV(30) - JVRP(110) = V(60) -! JVRP(111) = dARP(70)/dV(60) - JVRP(111) = V(30) -! JVRP(112) = dARP(71)/dV(30) - JVRP(112) = 1 -! JVRP(113) = dARP(72)/dV(10) - JVRP(113) = V(60) -! JVRP(114) = dARP(72)/dV(60) - JVRP(114) = V(10) -! JVRP(115) = dARP(73)/dV(52) - JVRP(115) = V(60) -! JVRP(116) = dARP(73)/dV(60) - JVRP(116) = V(52) -! JVRP(117) = dARP(74)/dV(52) - JVRP(117) = 1 -! JVRP(118) = dARP(75)/dV(52) - JVRP(118) = 1 -! JVRP(119) = dARP(76)/dV(52) - JVRP(119) = V(63) -! JVRP(120) = dARP(76)/dV(63) - JVRP(120) = V(52) -! JVRP(121) = dARP(77)/dV(52) - JVRP(121) = V(56) -! JVRP(122) = dARP(77)/dV(56) - JVRP(122) = V(52) -! JVRP(123) = dARP(78)/dV(52) - JVRP(123) = V(54) -! JVRP(124) = dARP(78)/dV(54) - JVRP(124) = V(52) -! JVRP(125) = dARP(79)/dV(26) - JVRP(125) = 1 -! JVRP(126) = dARP(80)/dV(26) - JVRP(126) = V(62) -! JVRP(127) = dARP(80)/dV(62) - JVRP(127) = V(26) -! JVRP(128) = dARP(81)/dV(26) - JVRP(128) = V(54) -! JVRP(129) = dARP(81)/dV(54) - JVRP(129) = V(26) -! JVRP(130) = dARP(82)/dV(19) - JVRP(130) = V(60) -! JVRP(131) = dARP(82)/dV(60) - JVRP(131) = V(19) -! JVRP(132) = dARP(83)/dV(50) - JVRP(132) = V(63) -! JVRP(133) = dARP(83)/dV(63) - JVRP(133) = V(50) -! JVRP(134) = dARP(84)/dV(50) - JVRP(134) = V(60) -! JVRP(135) = dARP(84)/dV(60) - JVRP(135) = V(50) -! JVRP(136) = dARP(85)/dV(50) - JVRP(136) = V(56) -! JVRP(137) = dARP(85)/dV(56) - JVRP(137) = V(50) -! JVRP(138) = dARP(86)/dV(50) - JVRP(138) = 1 -! JVRP(139) = dARP(87)/dV(58) - JVRP(139) = V(62) -! JVRP(140) = dARP(87)/dV(62) - JVRP(140) = V(58) -! JVRP(141) = dARP(88)/dV(58) - JVRP(141) = V(61) -! JVRP(142) = dARP(88)/dV(61) - JVRP(142) = V(58) -! JVRP(143) = dARP(89)/dV(6) - JVRP(143) = 1 -! JVRP(144) = dARP(90)/dV(6) - JVRP(144) = 1 -! JVRP(145) = dARP(91)/dV(54) - JVRP(145) = V(58) -! JVRP(146) = dARP(91)/dV(58) - JVRP(146) = V(54) -! JVRP(147) = dARP(92)/dV(57) - JVRP(147) = V(58) -! JVRP(148) = dARP(92)/dV(58) - JVRP(148) = V(57) -! JVRP(149) = dARP(93)/dV(58) - JVRP(149) = V(59) -! JVRP(150) = dARP(93)/dV(59) - JVRP(150) = V(58) -! JVRP(151) = dARP(94)/dV(58) - JVRP(151) = 2*V(58) -! JVRP(152) = dARP(95)/dV(20) - JVRP(152) = V(60) -! JVRP(153) = dARP(95)/dV(60) - JVRP(153) = V(20) -! JVRP(154) = dARP(96)/dV(20) - JVRP(154) = 1 -! JVRP(155) = dARP(97)/dV(21) - JVRP(155) = V(60) -! JVRP(156) = dARP(97)/dV(60) - JVRP(156) = V(21) -! JVRP(157) = dARP(98)/dV(49) - JVRP(157) = V(63) -! JVRP(158) = dARP(98)/dV(63) - JVRP(158) = V(49) -! JVRP(159) = dARP(99)/dV(49) - JVRP(159) = V(60) -! JVRP(160) = dARP(99)/dV(60) - JVRP(160) = V(49) -! JVRP(161) = dARP(100)/dV(49) - JVRP(161) = V(56) -! JVRP(162) = dARP(100)/dV(56) - JVRP(162) = V(49) -! JVRP(163) = dARP(101)/dV(49) - JVRP(163) = 1 -! JVRP(164) = dARP(102)/dV(55) - JVRP(164) = V(62) -! JVRP(165) = dARP(102)/dV(62) - JVRP(165) = V(55) -! JVRP(166) = dARP(103)/dV(55) - JVRP(166) = V(61) -! JVRP(167) = dARP(103)/dV(61) - JVRP(167) = V(55) -! JVRP(168) = dARP(104)/dV(22) - JVRP(168) = 1 -! JVRP(169) = dARP(105)/dV(22) - JVRP(169) = 1 -! JVRP(170) = dARP(106)/dV(22) - JVRP(170) = V(60) -! JVRP(171) = dARP(106)/dV(60) - JVRP(171) = V(22) -! JVRP(172) = dARP(107)/dV(54) - JVRP(172) = V(55) -! JVRP(173) = dARP(107)/dV(55) - JVRP(173) = V(54) -! JVRP(174) = dARP(108)/dV(55) - JVRP(174) = V(57) -! JVRP(175) = dARP(108)/dV(57) - JVRP(175) = V(55) -! JVRP(176) = dARP(109)/dV(55) - JVRP(176) = V(59) -! JVRP(177) = dARP(109)/dV(59) - JVRP(177) = V(55) -! JVRP(178) = dARP(110)/dV(55) - JVRP(178) = 2*V(55) -! JVRP(179) = dARP(111)/dV(55) - JVRP(179) = V(58) -! JVRP(180) = dARP(111)/dV(58) - JVRP(180) = V(55) -! JVRP(181) = dARP(112)/dV(44) - JVRP(181) = V(60) -! JVRP(182) = dARP(112)/dV(60) - JVRP(182) = V(44) -! JVRP(183) = dARP(113)/dV(28) - JVRP(183) = 1 -! JVRP(184) = dARP(114)/dV(28) - JVRP(184) = 1 -! JVRP(185) = dARP(115)/dV(28) - JVRP(185) = V(61) -! JVRP(186) = dARP(115)/dV(61) - JVRP(186) = V(28) -! JVRP(187) = dARP(116)/dV(41) - JVRP(187) = V(63) -! JVRP(188) = dARP(116)/dV(63) - JVRP(188) = V(41) -! JVRP(189) = dARP(117)/dV(41) - JVRP(189) = V(60) -! JVRP(190) = dARP(117)/dV(60) - JVRP(190) = V(41) -! JVRP(191) = dARP(118)/dV(41) - JVRP(191) = V(53) -! JVRP(192) = dARP(118)/dV(53) - JVRP(192) = V(41) -! JVRP(193) = dARP(119)/dV(41) - JVRP(193) = V(56) -! JVRP(194) = dARP(119)/dV(56) - JVRP(194) = V(41) -! JVRP(195) = dARP(120)/dV(38) - JVRP(195) = V(63) -! JVRP(196) = dARP(120)/dV(63) - JVRP(196) = V(38) -! JVRP(197) = dARP(121)/dV(38) - JVRP(197) = V(60) -! JVRP(198) = dARP(121)/dV(60) - JVRP(198) = V(38) -! JVRP(199) = dARP(122)/dV(38) - JVRP(199) = V(53) -! JVRP(200) = dARP(122)/dV(53) - JVRP(200) = V(38) -! JVRP(201) = dARP(123)/dV(38) - JVRP(201) = V(56) -! JVRP(202) = dARP(123)/dV(56) - JVRP(202) = V(38) -! JVRP(203) = dARP(124)/dV(40) - JVRP(203) = V(63) -! JVRP(204) = dARP(124)/dV(63) - JVRP(204) = V(40) -! JVRP(205) = dARP(125)/dV(40) - JVRP(205) = V(60) -! JVRP(206) = dARP(125)/dV(60) - JVRP(206) = V(40) -! JVRP(207) = dARP(126)/dV(40) - JVRP(207) = V(53) -! JVRP(208) = dARP(126)/dV(53) - JVRP(208) = V(40) -! JVRP(209) = dARP(127)/dV(40) - JVRP(209) = V(56) -! JVRP(210) = dARP(127)/dV(56) - JVRP(210) = V(40) -! JVRP(211) = dARP(128)/dV(8) - JVRP(211) = V(60) -! JVRP(212) = dARP(128)/dV(60) - JVRP(212) = V(8) -! JVRP(213) = dARP(129)/dV(29) - JVRP(213) = V(62) -! JVRP(214) = dARP(129)/dV(62) - JVRP(214) = V(29) -! JVRP(215) = dARP(130)/dV(29) - JVRP(215) = V(54) -! JVRP(216) = dARP(130)/dV(54) - JVRP(216) = V(29) -! JVRP(217) = dARP(131)/dV(43) - JVRP(217) = V(60) -! JVRP(218) = dARP(131)/dV(60) - JVRP(218) = V(43) -! JVRP(219) = dARP(132)/dV(43) - JVRP(219) = V(56) -! JVRP(220) = dARP(132)/dV(56) - JVRP(220) = V(43) -! JVRP(221) = dARP(133)/dV(33) - JVRP(221) = V(61) -! JVRP(222) = dARP(133)/dV(61) - JVRP(222) = V(33) -! JVRP(223) = dARP(134)/dV(33) - JVRP(223) = V(54) -! JVRP(224) = dARP(134)/dV(54) - JVRP(224) = V(33) -! JVRP(225) = dARP(135)/dV(25) - JVRP(225) = V(60) -! JVRP(226) = dARP(135)/dV(60) - JVRP(226) = V(25) -! JVRP(227) = dARP(136)/dV(25) - JVRP(227) = V(56) -! JVRP(228) = dARP(136)/dV(56) - JVRP(228) = V(25) -! JVRP(229) = dARP(137)/dV(39) - JVRP(229) = V(61) -! JVRP(230) = dARP(137)/dV(61) - JVRP(230) = V(39) -! JVRP(231) = dARP(138)/dV(39) - JVRP(231) = V(53) -! JVRP(232) = dARP(138)/dV(53) - JVRP(232) = V(39) -! JVRP(233) = dARP(139)/dV(32) - JVRP(233) = V(62) -! JVRP(234) = dARP(139)/dV(62) - JVRP(234) = V(32) -! JVRP(235) = dARP(140)/dV(32) - JVRP(235) = V(54) -! JVRP(236) = dARP(140)/dV(54) - JVRP(236) = V(32) -! JVRP(237) = dARP(141)/dV(18) - JVRP(237) = 1 -! JVRP(238) = dARP(142)/dV(18) - JVRP(238) = V(60) -! JVRP(239) = dARP(142)/dV(60) - JVRP(239) = V(18) -! JVRP(240) = dARP(143)/dV(45) - JVRP(240) = 1 -! JVRP(241) = dARP(144)/dV(45) - JVRP(241) = V(60) -! JVRP(242) = dARP(144)/dV(60) - JVRP(242) = V(45) -! JVRP(243) = dARP(145)/dV(45) - JVRP(243) = V(53) -! JVRP(244) = dARP(145)/dV(53) - JVRP(244) = V(45) -! JVRP(245) = dARP(146)/dV(45) - JVRP(245) = V(56) -! JVRP(246) = dARP(146)/dV(56) - JVRP(246) = V(45) -! JVRP(247) = dARP(147)/dV(24) - JVRP(247) = V(60) -! JVRP(248) = dARP(147)/dV(60) - JVRP(248) = V(24) -! JVRP(249) = dARP(148)/dV(24) - JVRP(249) = V(56) -! JVRP(250) = dARP(148)/dV(56) - JVRP(250) = V(24) -! JVRP(251) = dARP(149)/dV(35) - JVRP(251) = V(62) -! JVRP(252) = dARP(149)/dV(62) - JVRP(252) = V(35) -! JVRP(253) = dARP(150)/dV(35) - JVRP(253) = V(54) -! JVRP(254) = dARP(150)/dV(54) - JVRP(254) = V(35) -! JVRP(255) = dARP(151)/dV(31) - JVRP(255) = V(62) -! JVRP(256) = dARP(151)/dV(62) - JVRP(256) = V(31) -! JVRP(257) = dARP(152)/dV(31) - JVRP(257) = V(61) -! JVRP(258) = dARP(152)/dV(61) - JVRP(258) = V(31) -! JVRP(259) = dARP(153)/dV(7) - JVRP(259) = 1 -! JVRP(260) = dARP(154)/dV(15) - JVRP(260) = V(60) -! JVRP(261) = dARP(154)/dV(60) - JVRP(261) = V(15) -! JVRP(262) = dARP(155)/dV(37) - JVRP(262) = V(60) -! JVRP(263) = dARP(155)/dV(60) - JVRP(263) = V(37) -! JVRP(264) = dARP(156)/dV(37) - JVRP(264) = 1 -! JVRP(265) = dARP(157)/dV(46) - JVRP(265) = V(63) -! JVRP(266) = dARP(157)/dV(63) - JVRP(266) = V(46) -! JVRP(267) = dARP(158)/dV(46) - JVRP(267) = V(60) -! JVRP(268) = dARP(158)/dV(60) - JVRP(268) = V(46) -! JVRP(269) = dARP(159)/dV(46) - JVRP(269) = V(53) -! JVRP(270) = dARP(159)/dV(53) - JVRP(270) = V(46) -! JVRP(271) = dARP(160)/dV(46) - JVRP(271) = V(56) -! JVRP(272) = dARP(160)/dV(56) - JVRP(272) = V(46) -! JVRP(273) = dARP(161)/dV(47) - JVRP(273) = V(60) -! JVRP(274) = dARP(161)/dV(60) - JVRP(274) = V(47) -! JVRP(275) = dARP(162)/dV(47) - JVRP(275) = V(53) -! JVRP(276) = dARP(162)/dV(53) - JVRP(276) = V(47) -! JVRP(277) = dARP(163)/dV(47) - JVRP(277) = V(56) -! JVRP(278) = dARP(163)/dV(56) - JVRP(278) = V(47) -! JVRP(279) = dARP(164)/dV(47) - JVRP(279) = 1 -! JVRP(280) = dARP(165)/dV(42) - JVRP(280) = V(63) -! JVRP(281) = dARP(165)/dV(63) - JVRP(281) = V(42) -! JVRP(282) = dARP(166)/dV(42) - JVRP(282) = V(60) -! JVRP(283) = dARP(166)/dV(60) - JVRP(283) = V(42) -! JVRP(284) = dARP(167)/dV(42) - JVRP(284) = V(53) -! JVRP(285) = dARP(167)/dV(53) - JVRP(285) = V(42) -! JVRP(286) = dARP(168)/dV(42) - JVRP(286) = V(56) -! JVRP(287) = dARP(168)/dV(56) - JVRP(287) = V(42) -! JVRP(288) = dARP(169)/dV(4) - JVRP(288) = V(60) -! JVRP(289) = dARP(169)/dV(60) - JVRP(289) = V(4) -! JVRP(290) = dARP(170)/dV(11) - JVRP(290) = V(60) -! JVRP(291) = dARP(170)/dV(60) - JVRP(291) = V(11) -! JVRP(292) = dARP(171)/dV(9) - JVRP(292) = V(60) -! JVRP(293) = dARP(171)/dV(60) - JVRP(293) = V(9) -! JVRP(294) = dARP(172)/dV(46) - JVRP(294) = V(61) -! JVRP(295) = dARP(172)/dV(61) - JVRP(295) = V(46) -! JVRP(296) = dARP(173)/dV(4) - JVRP(296) = 1 - -END SUBROUTINE JacReactantProd - -! End of JacReactantProd function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! Begin Derivative w.r.t. Rate Coefficients - -! ------------------------------------------------------------------------------ -! Subroutine for the derivative of Fun with respect to rate coefficients -! ----------------------------------------------------------------------------- - - SUBROUTINE dFun_dRcoeff( V, F, NCOEFF, JCOEFF, DFDR ) - - USE CB05_CSIRO_Parameters - USE CB05_CSIRO_StoichiomSP - IMPLICIT NONE - -! V - Concentrations of variable/radical/fixed species - REAL(kind=dp) V(NVAR), F(NFIX) -! NCOEFF - the number of rate coefficients with respect to which we differentiate - INTEGER NCOEFF -! JCOEFF - a vector of integers containing the indices of reactions (rate -! coefficients) with respect to which we differentiate - INTEGER JCOEFF(NCOEFF) -! DFDR - a matrix containg derivative values; specifically, -! column j contains d Fun(1:NVAR) / d RCT( JCOEFF(j) ) -! for each 1 <= j <= NCOEFF -! This matrix is stored in a column-wise linearized format - REAL(kind=dp) DFDR(NVAR*NCOEFF) - -! Local vector with reactant products - REAL(kind=dp) A_RPROD(NREACT) - REAL(kind=dp) aj - INTEGER i,j,k - -! Compute the reactant products of all reactions - CALL ReactantProd ( V, F, A_RPROD ) - -! Compute the derivatives by multiplying column JCOEFF(j) of the stoichiometric matrix with A_RPROD - DO j=1,NCOEFF -! Initialize the j-th column of derivative matrix to zero - DO i=1,NVAR - DFDR(i+NVAR*(j-1)) = 0.0_dp - END DO -! Column JCOEFF(j) in the stoichiometric matrix times the -! reactant product of the JCOEFF(j)-th reaction -! give the j-th column of the derivative matrix - aj = A_RPROD(JCOEFF(j)) - DO k=CCOL_STOICM(JCOEFF(j)),CCOL_STOICM(JCOEFF(j)+1)-1 - DFDR(IROW_STOICM(k)+NVAR*(j-1)) = STOICM(k)*aj - END DO - END DO - - END SUBROUTINE dFun_dRcoeff - -! End Derivative w.r.t. Rate Coefficients - - -! Begin Jacobian Derivative w.r.t. Rate Coefficients - -! ------------------------------------------------------------------------------ -! Subroutine for the derivative of Jac with respect to rate coefficients -! Times a user vector -! ----------------------------------------------------------------------------- - - SUBROUTINE dJac_dRcoeff( V, F, U, NCOEFF, JCOEFF, DJDR ) - - USE CB05_CSIRO_Parameters - USE CB05_CSIRO_StoichiomSP - IMPLICIT NONE - -! V - Concentrations of variable/fixed species - REAL(kind=dp) V(NVAR), F(NFIX) -! U - User-supplied Vector - REAL(kind=dp) U(NVAR) -! NCOEFF - the number of rate coefficients with respect to which we differentiate - INTEGER NCOEFF -! JCOEFF - a vector of integers containing the indices of reactions (rate -! coefficients) with respect to which we differentiate - INTEGER JCOEFF(NCOEFF) -! DFDR - a matrix containg derivative values; specifically, -! column j contains d Jac(1:NVAR) / d RCT( JCOEFF(j) ) * U -! for each 1 <= j <= NCOEFF -! This matrix is stored in a column-wise linearized format - REAL(kind=dp) DJDR(NVAR*NCOEFF) - -! Local vector for Jacobian of reactant products - REAL(kind=dp) JV_RPROD(NJVRP) - REAL(kind=dp) aj - INTEGER i,j,k - -! Compute the Jacobian of all reactant products - CALL JacReactantProd( V, F, JV_RPROD ) - -! Compute the derivatives by multiplying column JCOEFF(j) of the stoichiometric matrix with A_PROD - DO j=1,NCOEFF -! Initialize the j-th column of derivative matrix to zero - DO i=1,NVAR - DJDR(i+NVAR*(j-1)) = 0.0_dp - END DO -! Column JCOEFF(j) in the stoichiometric matrix times the -! ( Gradient of reactant product of the JCOEFF(j)-th reaction X user vector ) -! give the j-th column of the derivative matrix -! -! Row JCOEFF(j) of JV_RPROD times the user vector - aj = 0.0_dp - DO k=CROW_JVRP(JCOEFF(j)),CROW_JVRP(JCOEFF(j)+1)-1 - aj = aj + JV_RPROD(k)*U(ICOL_JVRP(k)) - END DO -! Column JCOEFF(j) of Stoichiom. matrix times aj - DO k=CCOL_STOICM(JCOEFF(j)),CCOL_STOICM(JCOEFF(j)+1)-1 - DJDR(IROW_STOICM(k)+NVAR*(j-1)) = STOICM(k)*aj - END DO - END DO - - END SUBROUTINE dJac_dRcoeff - -! End Jacobian Derivative w.r.t. Rate Coefficients - - -END MODULE CB05_CSIRO_Stoichiom - diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Stoichiom.o b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Stoichiom.o deleted file mode 100644 index aa0db8c67f415a99395011cc1722ea3307e71ea1..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Stoichiom.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_StoichiomSP.f90 b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_StoichiomSP.f90 deleted file mode 100644 index 857191cd343099f214c847f322a18463c48bbdee..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_StoichiomSP.f90 +++ /dev/null @@ -1,431 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Sparse Stoichiometric Data Structures File -! -! Generated by KPP-2.2.3 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 : CB05_CSIRO_StoichiomSP.f90 -! Time : Thu Oct 8 08:21:51 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05_CSIRO_26998_BOXMOX -! Equation file : CB05_CSIRO.kpp -! Output root filename : CB05_CSIRO -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CB05_CSIRO_StoichiomSP - - USE CB05_CSIRO_Precision - PUBLIC - SAVE - - -! Row-compressed sparse data for the Jacobian of reaction products JVRP - - INTEGER, PARAMETER, DIMENSION(174) :: CROW_JVRP = (/ & - 1, 2, 3, 5, 7, 9, 11, 13, 14, 15, 16, 17, & - 19, 21, 22, 23, 25, 27, 29, 30, 31, 32, 33, 35, & - 37, 38, 40, 41, 43, 45, 47, 49, 50, 52, 53, 54, & - 55, 57, 59, 61, 63, 64, 65, 67, 69, 71, 73, 75, & - 77, 79, 80, 81, 82, 83, 85, 87, 89, 91, 92, 93, & - 95, 97, 98,100,101,103,105,107,109,110,112,113, & - 115,117,118,119,121,123,125,126,128,130,132,134, & - 136,138,139,141,143,144,145,147,149,151,152,154, & - 155,157,159,161,163,164,166,168,169,170,172,174, & - 176,178,179,181,183,184,185,187,189,191,193,195, & - 197,199,201,203,205,207,209,211,213,215,217,219, & - 221,223,225,227,229,231,233,235,237,238,240,241, & - 243,245,247,249,251,253,255,257,259,260,262,264, & - 265,267,269,271,273,275,277,279,280,282,284,286, & - 288,290,292,294,296,297 /) - - INTEGER, PARAMETER, DIMENSION(296) :: ICOL_JVRP = (/ & - 61, 63, 53, 62, 61, 63, 61, 63, 62, 63, 53, 61, & - 53, 53, 14, 14, 53, 60, 53, 54, 56, 56, 56, 62, & - 56, 61, 56, 61, 12, 12, 12, 62, 61, 62, 60, 62, & - 16, 16, 60, 16, 60, 61, 34, 60, 54, 62, 54, 61, & - 23, 23, 60, 54, 54, 17, 17, 60, 13, 14, 13, 60, & - 60, 63, 60, 60, 54, 60, 54, 63, 17, 63, 56, 63, & - 56, 60, 54, 56, 53, 56, 56, 23, 34, 12, 59, 62, & - 48, 62, 54, 59, 48, 54, 59, 48, 48, 59, 51, 60, & - 51, 27, 60, 27, 36, 60, 5, 60, 57, 62, 54, 57, & - 57, 30, 60, 30, 10, 60, 52, 60, 52, 52, 52, 63, & - 52, 56, 52, 54, 26, 26, 62, 26, 54, 19, 60, 50, & - 63, 50, 60, 50, 56, 50, 58, 62, 58, 61, 6, 6, & - 54, 58, 57, 58, 58, 59, 58, 20, 60, 20, 21, 60, & - 49, 63, 49, 60, 49, 56, 49, 55, 62, 55, 61, 22, & - 22, 22, 60, 54, 55, 55, 57, 55, 59, 55, 55, 58, & - 44, 60, 28, 28, 28, 61, 41, 63, 41, 60, 41, 53, & - 41, 56, 38, 63, 38, 60, 38, 53, 38, 56, 40, 63, & - 40, 60, 40, 53, 40, 56, 8, 60, 29, 62, 29, 54, & - 43, 60, 43, 56, 33, 61, 33, 54, 25, 60, 25, 56, & - 39, 61, 39, 53, 32, 62, 32, 54, 18, 18, 60, 45, & - 45, 60, 45, 53, 45, 56, 24, 60, 24, 56, 35, 62, & - 35, 54, 31, 62, 31, 61, 7, 15, 60, 37, 60, 37, & - 46, 63, 46, 60, 46, 53, 46, 56, 47, 60, 47, 53, & - 47, 56, 47, 42, 63, 42, 60, 42, 53, 42, 56, 4, & - 60, 11, 60, 9, 60, 46, 61, 4 /) - - INTEGER, PARAMETER, DIMENSION(296) :: IROW_JVRP = (/ & - 1, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, & - 8, 9, 10, 11, 12, 12, 13, 13, 14, 15, 16, 16, & - 17, 17, 18, 18, 19, 20, 21, 22, 23, 23, 24, 24, & - 25, 26, 26, 27, 28, 28, 29, 29, 30, 30, 31, 31, & - 32, 33, 33, 34, 35, 36, 37, 37, 38, 38, 39, 39, & - 40, 40, 41, 42, 43, 43, 44, 44, 45, 45, 46, 46, & - 47, 47, 48, 48, 49, 49, 50, 51, 52, 53, 54, 54, & - 55, 55, 56, 56, 57, 57, 58, 59, 60, 60, 61, 61, & - 62, 63, 63, 64, 65, 65, 66, 66, 67, 67, 68, 68, & - 69, 70, 70, 71, 72, 72, 73, 73, 74, 75, 76, 76, & - 77, 77, 78, 78, 79, 80, 80, 81, 81, 82, 82, 83, & - 83, 84, 84, 85, 85, 86, 87, 87, 88, 88, 89, 90, & - 91, 91, 92, 92, 93, 93, 94, 95, 95, 96, 97, 97, & - 98, 98, 99, 99,100,100,101,102,102,103,103,104, & - 105,106,106,107,107,108,108,109,109,110,111,111, & - 112,112,113,114,115,115,116,116,117,117,118,118, & - 119,119,120,120,121,121,122,122,123,123,124,124, & - 125,125,126,126,127,127,128,128,129,129,130,130, & - 131,131,132,132,133,133,134,134,135,135,136,136, & - 137,137,138,138,139,139,140,140,141,142,142,143, & - 144,144,145,145,146,146,147,147,148,148,149,149, & - 150,150,151,151,152,152,153,154,154,155,155,156, & - 157,157,158,158,159,159,160,160,161,161,162,162, & - 163,163,164,165,165,166,166,167,167,168,168,169, & - 169,170,170,171,171,172,172,173 /) - - - -! Stoichiometric Matrix in Compressed Column Sparse Format - - - INTEGER, PARAMETER, DIMENSION(174) :: CCOL_STOICM = (/ & - 1, 4, 6, 9, 12, 15, 18, 21, 23, 25, 27, 29, & - 32, 35, 38, 40, 43, 45, 48, 50, 52, 55, 57, 60, & - 63, 66, 69, 72, 75, 78, 82, 85, 88, 91, 93, 95, & - 97,100,104,107,110,112,114,116,119,123,126,130, & - 133,136,138,143,146,149,152,155,158,161,162,163, & - 165,173,180,185,190,193,196,201,204,208,213,217, & - 221,225,228,230,235,240,243,246,251,254,257,261, & - 264,268,272,276,279,282,285,290,295,299,301,304, & - 307,310,314,317,321,325,331,334,337,340,344,349, & - 356,360,364,370,378,385,387,390,401,409,419,428, & - 435,441,448,453,461,467,476,482,488,497,500,510, & - 522,525,528,531,535,538,541,545,548,551,554,558, & - 562,572,576,579,583,590,593,599,602,605,613,617, & - 621,629,636,647,656,668,679,690,698,702,710,721, & - 729,734,741,747,756,758 /) - - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_0 = (/ & - 61, 62, 63, 53, 63, 53, 61, 62, 61, 62, 63, 56, & - 61, 63, 61, 62, 63, 53, 56, 61, 53, 63, 14, 53, & - 14, 63, 14, 60, 53, 54, 60, 53, 54, 60, 56, 61, & - 63, 56, 62, 56, 61, 62, 56, 62, 12, 56, 61, 12, & - 34, 12, 34, 12, 56, 61, 61, 62, 16, 61, 62, 16, & - 60, 62, 16, 60, 62, 16, 60, 61, 16, 61, 62, 34, & - 60, 61, 34, 56, 60, 54, 60, 61, 62, 23, 54, 61, & - 23, 54, 61, 23, 60, 61, 17, 54, 17, 54, 17, 60, & - 17, 54, 60, 13, 14, 54, 60, 13, 54, 60, 54, 60, & - 63, 60, 63, 17, 60, 54, 60, 54, 60, 63, 17, 54, & - 60, 63, 56, 61, 63, 54, 56, 60, 61, 34, 54, 56, & - 53, 56, 61, 56, 61, 23, 54, 56, 60, 61, 34, 60, & - 61, 12, 56, 61, 59, 61, 62, 48, 51, 62, 27, 54, & - 59, 27, 48, 54, 59, 48, 48, 59, 34, 44, 49, 50, & - 51, 52, 54, 60, 44, 49, 50, 51, 52, 54, 61, 27, & - 49, 50, 59, 60, 27, 49, 50, 54, 60, 36, 54, 60, & - 5, 57, 60, 52, 54, 57, 61, 62, 30, 54, 57, 10, & - 52, 54, 57, 30, 54, 57, 59, 60, 30, 52, 54, 60, & - 10, 52, 54, 60, 36, 52, 54, 60, 36, 52, 54, 36, & - 52, 36, 52, 54, 60, 63, 34, 36, 52, 54, 56, 26, & - 52, 54, 26, 52, 54, 19, 26, 54, 61, 62, 26, 30, & - 54, 19, 54, 60, 50, 58, 60, 63, 50, 58, 60, 34, & - 50, 56, 58, 36, 50, 54, 57, 57, 58, 61, 62, 6, & - 58, 61, 6, 58, 61, 6, 58, 61, 20, 21, 53, 54, & - 58, 21, 52, 54, 57, 58, 21, 57, 58, 59, 57, 58, & - 20, 58, 60, 20, 57, 60, 21, 57, 60, 49, 55, 60, & - 63, 49, 55, 60, 34, 49, 55, 56, 36, 49, 54, 57, & - 50, 54, 55, 59, 61, 62, 22, 55, 61, 22, 55, 61, & - 22, 55, 61, 22, 50, 60, 61, 20, 21, 53, 54, 55, & - 21, 50, 52, 54, 55, 57, 59, 21, 50, 55, 59, 50 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_1 = (/ & - 54, 55, 59, 50, 54, 55, 57, 58, 59, 28, 44, 48, & - 49, 50, 54, 59, 60, 28, 44, 48, 49, 50, 54, 59, & - 28, 54, 28, 51, 61, 36, 41, 44, 48, 49, 50, 52, & - 54, 59, 60, 63, 41, 44, 49, 50, 52, 54, 59, 60, & - 36, 41, 44, 49, 50, 52, 53, 54, 59, 60, 41, 44, & - 48, 49, 50, 52, 56, 59, 61, 36, 38, 52, 54, 59, & - 60, 63, 38, 49, 52, 54, 59, 60, 19, 36, 38, 52, & - 53, 54, 60, 38, 52, 56, 59, 61, 36, 40, 44, 49, & - 50, 54, 59, 63, 40, 49, 50, 54, 59, 60, 36, 40, & - 49, 50, 52, 53, 54, 60, 63, 40, 49, 50, 54, 56, & - 61, 8, 29, 43, 54, 59, 60, 29, 36, 37, 45, 51, & - 52, 54, 61, 62, 3, 29, 54, 24, 33, 36, 43, 45, & - 48, 52, 54, 59, 60, 33, 34, 36, 37, 43, 45, 48, & - 49, 52, 54, 56, 59, 25, 33, 61, 33, 43, 54, 25, & - 39, 60, 25, 34, 39, 56, 39, 51, 61, 32, 39, 53, & - 32, 39, 61, 62, 18, 32, 54, 18, 39, 60, 18, 32, & - 60, 36, 45, 54, 58, 31, 35, 45, 60, 36, 37, 45, & - 49, 52, 53, 54, 58, 59, 60, 31, 34, 45, 56, 24, & - 35, 60, 24, 33, 34, 56, 35, 36, 51, 52, 54, 61, & - 62, 3, 35, 54, 31, 49, 54, 59, 61, 62, 7, 31, & - 61, 7, 31, 61, 15, 29, 37, 43, 44, 54, 59, 60, & - 37, 58, 59, 60, 36, 37, 54, 58, 44, 46, 47, 52, & - 54, 55, 59, 63, 46, 47, 48, 52, 54, 59, 60, 36, & - 44, 46, 47, 49, 52, 53, 54, 55, 59, 60, 44, 46, & - 47, 49, 51, 54, 56, 59, 61, 36, 37, 44, 47, 49, & - 50, 52, 54, 55, 58, 59, 60, 36, 37, 44, 47, 50, & - 52, 53, 54, 58, 59, 60, 34, 36, 44, 47, 49, 51, & - 52, 54, 55, 56, 59, 36, 44, 47, 50, 52, 54, 58, & - 59, 42, 44, 49, 63, 42, 44, 48, 49, 52, 54, 59, & - 60, 36, 42, 44, 48, 49, 52, 53, 54, 55, 59, 60 /) - INTEGER, PARAMETER, DIMENSION(37) :: IROW_STOICM_2 = (/ & - 42, 48, 49, 51, 54, 56, 59, 61, 1, 2, 4, 54, & - 60, 11, 49, 50, 52, 54, 59, 60, 9, 48, 50, 54, & - 59, 60, 44, 46, 47, 49, 51, 54, 59, 61, 62, 1, & - 4 /) - INTEGER, PARAMETER, DIMENSION(757) :: IROW_STOICM = (/& - IROW_STOICM_0, IROW_STOICM_1, IROW_STOICM_2 /) - - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_0 = (/ & - 1, 1, 1, 2, 2, 3, 3, 3, 4, 4, 4, 5, & - 5, 5, 6, 6, 6, 7, 7, 7, 8, 8, 9, 9, & - 10, 10, 11, 11, 12, 12, 12, 13, 13, 13, 14, 14, & - 14, 15, 15, 16, 16, 16, 17, 17, 18, 18, 18, 19, & - 19, 20, 20, 21, 21, 21, 22, 22, 23, 23, 23, 24, & - 24, 24, 25, 25, 25, 26, 26, 26, 27, 27, 27, 28, & - 28, 28, 29, 29, 29, 30, 30, 30, 30, 31, 31, 31, & - 32, 32, 32, 33, 33, 33, 34, 34, 35, 35, 36, 36, & - 37, 37, 37, 38, 38, 38, 38, 39, 39, 39, 40, 40, & - 40, 41, 41, 42, 42, 43, 43, 44, 44, 44, 45, 45, & - 45, 45, 46, 46, 46, 47, 47, 47, 47, 48, 48, 48, & - 49, 49, 49, 50, 50, 51, 51, 51, 51, 51, 52, 52, & - 52, 53, 53, 53, 54, 54, 54, 55, 55, 55, 56, 56, & - 56, 57, 57, 57, 58, 59, 60, 60, 61, 61, 61, 61, & - 61, 61, 61, 61, 62, 62, 62, 62, 62, 62, 62, 63, & - 63, 63, 63, 63, 64, 64, 64, 64, 64, 65, 65, 65, & - 66, 66, 66, 67, 67, 67, 67, 67, 68, 68, 68, 69, & - 69, 69, 69, 70, 70, 70, 70, 70, 71, 71, 71, 71, & - 72, 72, 72, 72, 73, 73, 73, 73, 74, 74, 74, 75, & - 75, 76, 76, 76, 76, 76, 77, 77, 77, 77, 77, 78, & - 78, 78, 79, 79, 79, 80, 80, 80, 80, 80, 81, 81, & - 81, 82, 82, 82, 83, 83, 83, 83, 84, 84, 84, 85, & - 85, 85, 85, 86, 86, 86, 86, 87, 87, 87, 87, 88, & - 88, 88, 89, 89, 89, 90, 90, 90, 91, 91, 91, 91, & - 91, 92, 92, 92, 92, 92, 93, 93, 93, 93, 94, 94, & - 95, 95, 95, 96, 96, 96, 97, 97, 97, 98, 98, 98, & - 98, 99, 99, 99,100,100,100,100,101,101,101,101, & - 102,102,102,102,102,102,103,103,103,104,104,104, & - 105,105,105,106,106,106,106,107,107,107,107,107, & - 108,108,108,108,108,108,108,109,109,109,109,110 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_1 = (/ & - 110,110,110,111,111,111,111,111,111,112,112,112, & - 112,112,112,112,112,113,113,113,113,113,113,113, & - 114,114,115,115,115,116,116,116,116,116,116,116, & - 116,116,116,116,117,117,117,117,117,117,117,117, & - 118,118,118,118,118,118,118,118,118,118,119,119, & - 119,119,119,119,119,119,119,120,120,120,120,120, & - 120,120,121,121,121,121,121,121,122,122,122,122, & - 122,122,122,123,123,123,123,123,124,124,124,124, & - 124,124,124,124,125,125,125,125,125,125,126,126, & - 126,126,126,126,126,126,126,127,127,127,127,127, & - 127,128,128,128,128,128,128,129,129,129,129,129, & - 129,129,129,129,130,130,130,131,131,131,131,131, & - 131,131,131,131,131,132,132,132,132,132,132,132, & - 132,132,132,132,132,133,133,133,134,134,134,135, & - 135,135,136,136,136,136,137,137,137,138,138,138, & - 139,139,139,139,140,140,140,141,141,141,142,142, & - 142,143,143,143,143,144,144,144,144,145,145,145, & - 145,145,145,145,145,145,145,146,146,146,146,147, & - 147,147,148,148,148,148,149,149,149,149,149,149, & - 149,150,150,150,151,151,151,151,151,151,152,152, & - 152,153,153,153,154,154,154,154,154,154,154,154, & - 155,155,155,155,156,156,156,156,157,157,157,157, & - 157,157,157,157,158,158,158,158,158,158,158,159, & - 159,159,159,159,159,159,159,159,159,159,160,160, & - 160,160,160,160,160,160,160,161,161,161,161,161, & - 161,161,161,161,161,161,161,162,162,162,162,162, & - 162,162,162,162,162,162,163,163,163,163,163,163, & - 163,163,163,163,163,164,164,164,164,164,164,164, & - 164,165,165,165,165,166,166,166,166,166,166,166, & - 166,167,167,167,167,167,167,167,167,167,167,167 /) - INTEGER, PARAMETER, DIMENSION(37) :: ICOL_STOICM_2 = (/ & - 168,168,168,168,168,168,168,168,169,169,169,169, & - 169,170,170,170,170,170,170,170,171,171,171,171, & - 171,171,172,172,172,172,172,172,172,172,172,173, & - 173 /) - INTEGER, PARAMETER, DIMENSION(757) :: ICOL_STOICM = (/& - ICOL_STOICM_0, ICOL_STOICM_1, ICOL_STOICM_2 /) - - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_0 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - -2.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -2.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -2.000000e+00_dp, 1.000000e+00_dp, -2.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -2.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -2.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 6.100000e-01_dp, 3.900000e-01_dp, & - 3.900000e-01_dp, 6.100000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_1 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -2.000000e+00_dp, -2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -6.600000e-01_dp, 3.300000e-01_dp, 3.300000e-01_dp, -1.000000e+00_dp, 3.300000e-01_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -6.600000e-01_dp, 3.300000e-01_dp, 3.300000e-01_dp, & - -1.000000e+00_dp, 3.300000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, 5.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, 5.000000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 6.300000e-01_dp, 1.370000e+00_dp, & - 7.400000e-01_dp, -2.000000e+00_dp, -1.000000e+00_dp, 3.000000e-01_dp, 7.000000e-01_dp, & - 3.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 8.000000e-01_dp, & - 2.000000e-01_dp, 2.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e-01_dp, & - 1.000000e+00_dp, 9.000000e-01_dp, -1.000000e-01_dp, -1.000000e+00_dp, 1.000000e-01_dp, & - 9.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -2.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_2 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 8.000000e-01_dp, 2.000000e-01_dp, & - 2.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e-01_dp, 9.000000e-01_dp, & - 1.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 9.000000e-01_dp, & - 1.000000e-01_dp, 9.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - 2.000000e+00_dp, -2.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 7.600000e-01_dp, & - -1.110000e+00_dp, 1.300000e-01_dp, 5.000000e-02_dp, 6.000000e-02_dp, 1.100000e-01_dp, & - 8.700000e-01_dp, -1.000000e+00_dp, -9.800000e-01_dp, -2.100000e+00_dp, 4.000000e-02_dp, & - 5.000000e-01_dp, 6.000000e-01_dp, 9.400000e-01_dp, 9.600000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e-01_dp, & - -1.000000e+00_dp, 2.000000e-01_dp, 1.000000e-02_dp, 3.000000e-01_dp, 2.000000e-01_dp, & - 2.000000e-01_dp, 3.000000e-01_dp, 2.000000e-01_dp, 1.000000e-01_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -7.000000e-01_dp, 6.200000e-01_dp, 3.300000e-01_dp, 8.000000e-01_dp, & - 9.500000e-01_dp, 8.000000e-01_dp, -1.000000e+00_dp, 3.300000e-01_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 3.200000e-01_dp, 1.800000e-01_dp, 7.400000e-01_dp, -1.000000e+00_dp, & - 4.400000e-01_dp, 2.200000e-01_dp, 1.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 9.000000e-02_dp, 5.600000e-01_dp, 3.500000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 9.100000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.700000e+00_dp, 7.000000e-01_dp, 3.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 2.200000e-01_dp, 1.560000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 3.700000e-01_dp, 6.300000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.300000e-01_dp, 1.300000e-01_dp, -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_3 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e-01_dp, -1.000000e+00_dp, 1.000000e-01_dp, & - 6.600000e-01_dp, 1.240000e+00_dp, 1.000000e-01_dp, 1.000000e-01_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 7.000000e-01_dp, 1.300000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 2.500000e-01_dp, -1.000000e+00_dp, 3.500000e-01_dp, 6.500000e-01_dp, & - 2.500000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, 5.000000e-01_dp, 5.000000e-01_dp, & - -1.000000e+00_dp, 6.400000e-01_dp, 1.180000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 6.500000e-01_dp, 1.800000e-01_dp, 2.800000e-01_dp, & - 1.000000e-01_dp, -9.280000e-01_dp, -1.000000e+00_dp, 3.360000e-01_dp, 5.200000e-01_dp, & - 8.600000e-01_dp, 1.400000e-01_dp, 3.360000e-01_dp, 1.200000e+00_dp, 8.600000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 7.320000e-01_dp, & - 6.000000e-02_dp, 6.000000e-02_dp, -1.000000e+00_dp, 1.300000e-01_dp, 6.000000e-02_dp, & - 6.000000e-02_dp, 1.120000e+00_dp, 1.200000e-01_dp, -1.000000e+00_dp, 3.000000e-01_dp, & - 1.000000e+00_dp, 2.400000e-01_dp, 2.400000e-01_dp, -1.000000e+00_dp, 1.200000e-01_dp, & - 1.000000e-01_dp, 4.800000e-01_dp, 2.400000e-01_dp, 3.600000e-01_dp, -1.000000e+00_dp, & - 6.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 6.000000e-01_dp, 4.000000e-01_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 6.900000e-01_dp, 2.000000e-01_dp, -1.000000e+00_dp, 3.000000e-02_dp, & - 7.000000e-01_dp, -1.000000e+00_dp, 7.600000e-01_dp, 6.200000e-01_dp, 3.000000e-02_dp, & - 8.000000e-02_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 3.440000e-01_dp, 1.400000e-01_dp, & - 3.440000e-01_dp, 1.200000e+00_dp, 8.600000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_4 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 3.000000e-01_dp, 8.000000e-01_dp, 2.000000e-01_dp, 1.100000e+00_dp, 7.000000e-01_dp, & - 5.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 2.500000e-01_dp, -1.000000e+00_dp, 7.500000e-01_dp, 5.000000e-01_dp, 2.500000e-01_dp, & - 2.500000e-01_dp, 2.500000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 9.120000e-01_dp, & - 8.800000e-02_dp, 6.290000e-01_dp, 9.120000e-01_dp, 9.910000e-01_dp, -1.000000e+00_dp, & - 6.600000e-02_dp, 3.500000e-01_dp, -1.000000e+00_dp, 6.500000e-01_dp, 1.500000e-01_dp, & - 6.000000e-01_dp, -1.000000e+00_dp, 6.600000e-02_dp, 2.000000e-01_dp, 2.000000e-01_dp, & - 2.660000e-01_dp, 2.400000e+00_dp, -1.000000e+00_dp, 2.000000e-01_dp, 8.000000e-01_dp, & - 8.000000e-01_dp, 8.000000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e-01_dp, & - 3.340000e-01_dp, 1.680000e-01_dp, 1.565000e+00_dp, -1.000000e+00_dp, 1.200000e-01_dp, & - 2.520000e-01_dp, 1.670000e-01_dp, 5.030000e-01_dp, 2.500000e-01_dp, 2.100000e-01_dp, & - 7.130000e-01_dp, -1.000000e+00_dp, 2.250000e-01_dp, 8.500000e-01_dp, 3.600000e-01_dp, & - -1.000000e+00_dp, 2.000000e-02_dp, 1.500000e-01_dp, -1.000000e+00_dp, 1.540000e-01_dp, & - 1.140000e-01_dp, 6.400000e-02_dp, 2.680000e-01_dp, 1.500000e-01_dp, 6.430000e-01_dp, & - 1.282000e+00_dp, -1.000000e+00_dp, 3.570000e-01_dp, 8.500000e-01_dp, 2.820000e-01_dp, & - 9.250000e-01_dp, 7.500000e-02_dp, -1.000000e+00_dp, 7.500000e-02_dp, 3.330000e-01_dp, & - 8.320000e-01_dp, -1.000000e+00_dp, 6.700000e-02_dp, 9.000000e-01_dp, 1.033000e+00_dp, & - 9.670000e-01_dp, 7.000000e-01_dp, -1.000000e+00_dp, 5.120000e+00_dp, 1.500000e-01_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.660000e+00_dp, 2.500000e-01_dp, 4.700000e-01_dp, & - 2.800000e-01_dp, 7.500000e-01_dp, 1.250000e+00_dp, -1.000000e+00_dp, 1.000000e-03_dp, & - -1.000000e+00_dp, 7.000000e+00_dp, 1.800000e-01_dp, 2.100000e-01_dp, 2.400000e-01_dp, & - -1.000000e+00_dp, 7.000000e-02_dp, 3.900000e-01_dp, 7.600000e-01_dp, 5.700000e-01_dp, & - -1.000000e+00_dp, 2.500000e-01_dp, 4.700000e-01_dp, 5.300000e-01_dp, 2.800000e-01_dp, & - -1.000000e+00_dp, 1.030000e+00_dp, 4.700000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-02_dp, & - 9.000000e-01_dp, 1.000000e-01_dp, 1.000000e+00_dp, 1.000000e-01_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 9.000000e-03_dp, 9.910000e-01_dp, 1.000000e+00_dp, 9.910000e-01_dp, & - -1.000000e+00_dp, 2.400000e+00_dp, -1.000000e+00_dp, 2.000000e-01_dp, 8.000000e-01_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(7) :: STOICM_5 = (/ & - 8.000000e-01_dp, 8.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e-01_dp, & - 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(757) :: STOICM = (/& - STOICM_0, STOICM_1, STOICM_2, STOICM_3, STOICM_4, & - STOICM_5 /) - - -END MODULE CB05_CSIRO_StoichiomSP - diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_StoichiomSP.o b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_StoichiomSP.o deleted file mode 100644 index c782b1f941fd3ec622871f371b58b2f46792fa20..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_StoichiomSP.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Util.f90 b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Util.f90 deleted file mode 100644 index 7dc2c5fff47e02f357b73dcb42514af21cfcfad7..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Util.f90 +++ /dev/null @@ -1,1550 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Auxiliary Routines File -! -! Generated by KPP-2.2.3 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 : CB05_CSIRO_Util.f90 -! Time : Thu Oct 8 08:21:51 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CB05_CSIRO_26998_BOXMOX -! Equation file : CB05_CSIRO.kpp -! Output root filename : CB05_CSIRO -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CB05_CSIRO_Util - - USE CB05_CSIRO_Parameters - USE CB05_CSIRO_Global - USE CB05_CSIRO_Monitor - IMPLICIT NONE - -CONTAINS - - - -! User INLINED Utility Functions - - -! **************************************************************************** -! **************************************************************************** -! BOXMOX utilities -! **************************************************************************** -! **************************************************************************** - - -! **************************************************************************** -! toUPPER - convert ASCII characters to all upper case -! from http://stackoverflow.com/questions/10759375/ -! how-can-i-write-a-to-upper-or-to-lower-function-in-f90 -! **************************************************************************** - FUNCTION toUPPER (str) RESULT (string) - - CHARACTER(*), INTENT(In) :: str - CHARACTER(LEN(str)) :: string - - INTEGER :: ic, i - - CHARACTER(26), PARAMETER :: cap = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' - CHARACTER(26), PARAMETER :: low = 'abcdefghijklmnopqrstuvwxyz' - - string = str - DO i = 1, LEN_TRIM(str) - ic = INDEX(low, str(i:i)) - IF (ic > 0) string(i:i) = cap(ic:ic) - END DO - - END FUNCTION toUPPER -! **************************************************************************** - - -! **************************************************************************** -! hash - a string hashing function -! from flibs, http://flibs.sourceforge.net -! **************************************************************************** - INTEGER FUNCTION hash( key ) - - CHARACTER(len=*), INTENT(in) :: key - - INTEGER :: i - - INTEGER, PARAMETER :: hash_size = 49931 - INTEGER, PARAMETER :: multiplier = 312 - - hash = 0 - - DO i = 1,LEN(key) - hash = MODULO( multiplier * hash + ICHAR(key(i:i)), hash_size) - ENDDO - - hash = 1 + MODULO( hash-1, hash_size ) - END FUNCTION hash -! **************************************************************************** - - -! **************************************************************************** -! strEqual - comparison function matching two strings -! **************************************************************************** - LOGICAL FUNCTION strEqual(a, b) - - CHARACTER(LEN=*), INTENT(IN) :: a, b - - LOGICAL, PARAMETER :: ignoreCase = .TRUE. - - CHARACTER(LEN=100) :: nice_a, nice_b - INTEGER :: max_len - - nice_a = ADJUSTL(a) - nice_b = ADJUSTL(b) - - IF (ignoreCase) THEN - nice_a = toUPPER(nice_a) - nice_b = toUPPER(nice_b) - END IF - - max_len = MAX( LEN_TRIM(nice_a), LEN_TRIM(nice_b) ) - - strEqual = nice_a(1:max_len) .EQ. nice_b(1:max_len) - - END FUNCTION strEqual -! **************************************************************************** - - -! **************************************************************************** -! writespecstring - Utility function that plots a (potentially) -! large number of species -! **************************************************************************** - SUBROUTINE writespecstring(nspecies, txt, species, offset) - - INTEGER :: nspecies, offset - CHARACTER(LEN=*) :: txt - CHARACTER(LEN=15) :: species(nspecies), fmt - CHARACTER(LEN=2000) :: specstring - - INTEGER, PARAMETER :: cperline=60 - - INTEGER :: i, l - - fmt = "" - WRITE(fmt, "(A1,I3,A4)") "(", offset, "X,A)" - - i = 1; l = 1 - specstring = "" - - DO WHILE (i <= nspecies) - - specstring = TRIM(ADJUSTL(specstring))//TRIM(ADJUSTL(species(i))) - IF (i < nspecies) specstring = TRIM(ADJUSTL(specstring))//", " - - i = i + 1 - - IF (LEN_TRIM(specstring) > cperline) THEN - IF (l == 1) specstring = txt//specstring - l = l + 1 - WRITE(*,fmt) TRIM(specstring) - specstring = "" - ENDIF - ENDDO - - IF (LEN_TRIM(specstring) > 0) THEN - IF (l == 1) specstring = txt//specstring - WRITE(*,fmt) TRIM(specstring) - ENDIF - - END SUBROUTINE writespecstring -! **************************************************************************** - - -! **************************************************************************** -! calcCFACTOR - Calculates CFACTOR variable for unit conversion between -! input/output files and values used in calculations / rates -! **************************************************************************** - SUBROUTINE calcCFACTOR ( ) - - ! from ppmv to mlc/cm3: - ! 1e-6 ppmv -> vmr - ! 1e-3 kg/m3 -> g/cm3 - ! 1/28.9645 g/cm3 -> mole/cm3 - ! 6.022e23 -> molec/cm3 - ! then multiply with air density rho - ! 1.0E-6 * 1E-03 * (1.0/28.97) * 6.022e23 * rho - ! CFACTOR = 2.598378e+13; (with rho == 1.25) - - CFACTOR = 1.0E-6 * 1E-03 * (1.0/28.9645) * 6.022e23 * & - pres / (287.058 * temp) - - END SUBROUTINE calcCFACTOR -! **************************************************************************** - - -! **************************************************************************** -! readConfig - Sets variables using values read in from "BOXMOX.nml" -! **************************************************************************** - SUBROUTINE readConfig ( ) - - INTEGER, PARAMETER :: config_pid = 22 - CHARACTER(LEN=*), PARAMETER :: config_name = "BOXMOX.nml" - - NAMELIST /BOXMOX/ TSTART, TEND, DT, lverbose, iturb, lfix_nox - - LOGICAL :: lnml_exists - - ! *** default values section *** - - TSTART = 0.0D0 ! model start time, seconds since 0 LT - TEND = TSTART + 3600.0D0 ! model end time, seconds since 0 LT - DT = 10.D0 ! model time step, seconds - - lverbose = .FALSE. - iturb = TURB_OPT_NONE - - lfix_nox = .FALSE. - - ! *** namelist read-in section *** - - INQUIRE(FILE=config_name, EXIST=lnml_exists) - - IF (lnml_exists) THEN - - WRITE(*,*) "BOXMOX configuration file ", TRIM(config_name)," found." - - OPEN (config_pid, FILE=config_name) - READ (config_pid, nml=BOXMOX) - CLOSE(config_pid) - - ELSE - WRITE(*,*) "No BOXMOX configuration file (", & - TRIM(config_name),") exists." - ENDIF - - ! *** configuration printout *** - - WRITE(*,*) " " - WRITE(*,"(A20,2X,F12.3)") "TSTART", TSTART - WRITE(*,"(A20,2X,F12.3)") "TEND", TEND - WRITE(*,"(A20,2X,F12.3)") "DT", DT - WRITE(*,*) "" - WRITE(*,"(A20,2X,L10)") "lverbose", lverbose - WRITE(*,*) "" - WRITE(*,"(A20,11X,I1)") "iturb", iturb - WRITE(*,*) "" - WRITE(*,"(A20,2X,L10)") "lfix_nox", lfix_nox - - WRITE(*,*) " " - - END SUBROUTINE readConfig -! **************************************************************************** - - -! **************************************************************************** -! checkConfig - check configuration variables -! **************************************************************************** - SUBROUTINE checkConfig ( ) - - INTEGER :: status - - status = 0 - - IF (TSTART < 0.0) THEN - WRITE(*,*) "start time TSTART cannot be < 0.0" - status = 1 - ENDIF - IF (TEND < 0.0) THEN - WRITE(*,*) "end time TEND cannot be < 0.0" - status = 2 - ENDIF - IF (TSTART >= TEND) THEN - WRITE(*,*) "start time TSTART has to be < end time TEND" - status = 3 - ENDIF - IF (DT <= 0.0) THEN - WRITE(*,*) "time step DT has to be > 0.0" - status = 4 - ENDIF - - IF (status .NE. 0) THEN - IF (.NOT. llibrary) THEN - STOP - ENDIF - ENDIF - - END SUBROUTINE checkConfig -! **************************************************************************** - - -! **************************************************************************** -! writeVersion - Write "VERSION" file to run directory -! **************************************************************************** - SUBROUTINE writeVersion ( ) - - INTEGER, PARAMETER :: version_pid = 23 - CHARACTER(LEN=*), PARAMETER :: version_name = "VERSION" - - ! *** write BOXMOX version to output directory *** - - OPEN(version_pid, file=version_name) - WRITE(version_pid, "(A)") "__BOXMOX_VERSION__" - CLOSE(version_pid) - - END SUBROUTINE writeVersion -! **************************************************************************** - - -! **************************************************************************** -! readVals - main input routine for the BOXMOX extensions. -! reads values from input files with different time -! formats, and interpolates to get the values -! appropriate for the current time step. -! **************************************************************************** - SUBROUTINE readVals(fname, nvar, species, values, stat, & - nanc, ancspecies, ancvalues, lquiet) - - CHARACTER(LEN=*), INTENT(IN) :: fname - INTEGER, INTENT(OUT) :: nvar - CHARACTER(LEN=15), INTENT(OUT) :: species(max_species_boxmox) - REAL(KIND=dp), INTENT(OUT) :: values(max_species_boxmox) - INTEGER, INTENT(OUT) :: stat - INTEGER, INTENT(OUT), OPTIONAL :: nanc - CHARACTER(LEN=15), INTENT(OUT),OPTIONAL :: ancspecies(max_species_boxmox) - REAL(KIND=dp), INTENT(OUT), OPTIONAL :: ancvalues(max_species_boxmox) - LOGICAL, INTENT(IN), OPTIONAL :: lquiet - - INTEGER, PARAMETER :: input_pid = 21 - REAL(KIND=dp) :: time_cur, weight_t1, & - values_t0(max_species_boxmox), & - values_t1(max_species_boxmox), & - values_cur(max_species_boxmox) - CHARACTER(LEN=15) :: names(max_species_boxmox) - INTEGER :: iostat, time_format, ntoread, ntime, nanct, pid, i - LOGICAL :: lfile_exists, ltalkative - - names(:) = "" - values_t0(:) = 0.0 - values_t1(:) = 0.0 - - stat = 0 ! everything is allright - - ltalkative = ( TIME .EQ. TSTART ) .OR. lverbose - IF (PRESENT(lquiet)) THEN - IF (lquiet) THEN - ltalkative = .FALSE. - ENDIF - ENDIF - - ! check whether file exists - INQUIRE(FILE=fname, EXIST=lfile_exists) - IF (.NOT. lfile_exists) THEN - stat = 1 - RETURN - ELSE - IF (ltalkative) THEN - WRITE(*,*) "" - WRITE(*,*) " * ", fname - ENDIF - END IF - - OPEN(input_pid, file=fname) - - ! line 1: number of variables - READ(input_pid, *) nvar - - ! if no variable should be read - bail - IF (nvar == 0) THEN - IF (ltalkative) WRITE(*,*) fname, " declared 0 variables to be read" - stat = 2 - CLOSE(input_pid) - RETURN - END IF - - ! line 2: number of ancillary variables - READ(input_pid, *) nanct - - IF (nanct .LT. 0) THEN - WRITE(*,"(A)") "Number of ancillary variables must be >= 0" - CLOSE(input_pid) - STOP - ENDIF - - IF (nanct .GT. 1) THEN - WRITE(*,"(A)") "Number of ancillary variables must be < 2" - CLOSE(input_pid) - STOP - ENDIF - - ! line 3: time format - READ(input_pid, *) time_format - - IF (time_format .LT. 0 .OR. time_format .GT. 2) THEN - WRITE(*,"(3A)") "Time format has to be 0 (constant), ", & - "1 (s since TSTART) or ", & - "2 (hour of day)" - CLOSE(input_pid) - STOP - END IF - - ntime = 0 - IF (time_format .GT. 0) ntime = 1 - - ntoread = ntime + nanct + nvar - - ! if more variables than max_species_boxmox should be read - bail - IF (ntoread > max_species_boxmox) THEN - IF (ltalkative) THEN - WRITE(*,*) fname, " declared more variables to be read" - WRITE(*,*) "than allocated. Increase max_species_boxmox," - WRITE(*,*) "recompile, and run again." - ENDIF - stat = 3 - CLOSE(input_pid) - RETURN - END IF - - ! line 4: header line - READ(input_pid, *) names(1:ntoread) - - ! line 4ff: values - READ(input_pid, *) values_t0(1:ntoread) - - ! if its not constant in time values - weight_t1 = 0 - IF (.NOT. time_format .EQ. 0) THEN - READ(input_pid, *, IOSTAT=iostat) values_t1(1:ntoread) - - ! TIME is the KPP provided current model time - time_cur = TIME - IF (time_format .EQ. 2) THEN - time_cur = TIME/3600.0_dp - (INT(TIME/3600.0_dp)/24)*24 - END IF - - ! ASSUMPTION: time is the first value read - DO WHILE(values_t1(1) .LT. time_cur .AND. iostat .EQ. 0) - values_t0 = values_t1 - - READ(input_pid, *, IOSTAT=iostat) values_t1(1:ntoread) - END DO - - ! take the last value in the file in case its time values don't cover - ! the full simulation period - IF (iostat .NE. 0) THEN - weight_t1 = 1.0 - ELSE - weight_t1 = (time_cur - values_t0(1)) / (values_t1(1) - values_t0(1)) - ENDIF - - ENDIF - - CLOSE(input_pid) - - values_cur = weight_t1 * values_t1 + & - (1.0 - weight_t1) * values_t0 - - species(1:nvar) = names(ntime+nanct+1:ntime+nanct+nvar) - values(1:nvar) = values_cur(ntime+nanct+1:ntime+nanct+nvar) - - IF (PRESENT(nanc)) nanc = nanct - - IF (nanct .GT. 0) THEN - IF (PRESENT(ancvalues)) THEN - ancvalues(1:nanct) = values_cur(ntime+1:ntime+nanct) - ENDIF - IF (PRESENT(ancspecies)) THEN - ancspecies(1:nanct) = names(ntime+1:ntime+nanct) - ENDIF - ENDIF - - END SUBROUTINE readVals -! **************************************************************************** - - -! **************************************************************************** -! readInput - Reads values from .csv, applies function -! -! "t" is for "target" (i.e. the vector to apply "action" over) -! "r" is for "read" from file -! "u" is for "useable" (i.e., exists in the "target" vector) -! "m" is for "missing" (i.e., asked for, but not found in file) -! -! **************************************************************************** - SUBROUTINE readInput (filename, nt, tnames, tvalues, & - action, lzero, quiet) - - CHARACTER(LEN=*), INTENT(IN) :: filename - INTEGER, INTENT(IN) :: nt - REAL(KIND=dp) :: tvalues(nt) - CHARACTER(LEN=15), INTENT(IN) :: tnames(nt) - REAL(KIND=dp), OPTIONAL :: action ! function to be called - LOGICAL, INTENT(IN), OPTIONAL :: lzero ! call action with 0.0 - ! for 'missing' species - LOGICAL, INTENT(IN), OPTIONAL :: quiet - - INTEGER :: nr, nu, nm, i, k, m, & - iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - unames(max_species_boxmox), & - mnames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox) - LOGICAL :: is_used, first, & - talkative - - CALL readVals(filename, nr, rnames, rvalues, iostat) - - IF (iostat .NE. 0) RETURN - - talkative = .TRUE. - IF (PRESENT(quiet)) talkative = .NOT. quiet - - unames(:) = "none" - nu = 0 - - first = lverbose - - DO i = 1, nr - DO k = 1, nt - IF ( strEqual(rnames(i), tnames(k)) ) THEN - - IF (PRESENT(action)) THEN - tvalues(k) = action( tvalues(k), k, rvalues(i), first) - ELSE - tvalues(k) = rvalues(i) - IF ( (lverbose .OR. first) .AND. talkative ) THEN - WRITE(*,"(6X,A15,1X,E12.6)") tnames(k), tvalues(k)/CFACTOR - ENDIF - ENDIF - - first = .FALSE. - - nu = nu + 1 - unames(nu) = TRIM(ADJUSTL(rnames(i))) - ENDIF - ENDDO - ENDDO - - IF (PRESENT(lzero)) THEN - IF (lzero) THEN - DO k = 1, nt - is_used = .FALSE. - DO i = 1, nu - IF ( strEqual(unames(i), tnames(k)) ) is_used = .TRUE. - ENDDO - IF (.NOT. is_used) THEN - tvalues(k) = action( tvalues(k), k, 0.0, first) - first = .FALSE. - ENDIF - ENDDO - ENDIF - ENDIF - - nm = nr - nu - mnames(:) = "" - - IF (nm > 0) THEN - m = 1 - DO i = 1, nr - is_used = .FALSE. - DO k = 1, nu - IF ( strEqual(rnames(i), unames(k)) ) is_used = .TRUE. - ENDDO - - IF (.NOT. is_used) THEN - mnames(m) = TRIM(ADJUSTL(rnames(i))) - m = m + 1 - ENDIF - ENDDO - ENDIF - - IF ( ((TIME .EQ. TSTART) .OR. lverbose) .AND. talkative) THEN - IF (nu > 0) CALL writespecstring(nu, "useable:", unames, 6) - IF (nm > 0) CALL writespecstring(nm, "unknown: ", mnames, 6) - ENDIF - - END SUBROUTINE readInput -! **************************************************************************** - - -! **************************************************************************** -! InitialCondition - Sets initial values -! **************************************************************************** - REAL(KIND=dp) FUNCTION InitialCondition(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - InitialCondition = y * CFACTOR - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,A12,1X)") "species ", "IC" - WRITE(*,"(6X,A15,1X,E12.6,1X)") SPC_NAMES(k), InitialCondition/CFACTOR - ENDIF - - END FUNCTION InitialCondition -! **************************************************************************** - - -! **************************************************************************** -! Deposition - Applies deposition velocities -! **************************************************************************** - REAL(KIND=dp) FUNCTION Deposition(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - REAL(KIND=dp) :: dCdt - - Deposition = x - - ! we don't remove fixed variables - IF (k .LT. NFIXST) THEN - ! we assume deposition velocities in comparable units - ! (i.e. cm s-1) - ! dxdydz(3) == DZ - dCdt = - y * x / (dxdydz(3) * 100.0) - Deposition = MAX( 0.0, x + DT * dCdt ) - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "v_dep", "after" - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, y, & - Deposition/CFACTOR - ENDIF - - ENDIF - - END FUNCTION Deposition -! **************************************************************************** - - -! **************************************************************************** -! Emission - Adds emissions -! **************************************************************************** - REAL(KIND=dp) FUNCTION Emission(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - REAL(KIND=dp) :: cur - - ! we assume emissions to be a flux in units comparable to the - ! concentration values used in KPP - ! e.g. molecules / m2 / s vs molecules / m3, or - ! moles / cm2 / s vs moles / cm3, ... - ! the time dimensions unit has to be seconds! - - ! dxdydz(3) is PBL height in m - cur = y * DT / (dxdydz(3) * 100.0) - - Emission = x + cur - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "tendency", "after" - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, & - cur/DT/CFACTOR, Emission/CFACTOR - ENDIF - - END FUNCTION Emission -! **************************************************************************** - - -! **************************************************************************** -! Mix - calculate concentration after turbulent mixing -! **************************************************************************** - REAL(KIND=dp) FUNCTION Mix(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - REAL(KIND=dp) :: frac_bg - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - Mix = x - - frac_bg = Kturb * DT - - IF (lfirst .AND. lverbose) THEN - WRITE(*,"(6X,A,1X,F6.3)") "fractional amount of background air", & - frac_bg - WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "background", "after" - ENDIF - - ! we don't mix fixed variables - IF (k .LT. NFIXST) THEN - - ! seems like we found something - Mix = frac_bg * (y * CFACTOR) + & - (1.0 - frac_bg) * x - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, & - y, Mix/CFACTOR - ENDIF - - ENDIF - - END FUNCTION Mix -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturb - calculate Kturb for mixing -! **************************************************************************** - SUBROUTINE UpdateKturb() - - Kturb = 0.0 - SELECT CASE (iturb) - CASE (TURB_OPT_NONE) - Kturb = 0.0 - CASE (TURB_OPT_SPECIFIED) - CALL UpdateKturbSpecified() - CASE (TURB_OPT_VOLUME) - CALL UpdateKturbVolume() - CASE (TURB_OPT_TRACER) - CALL UpdateKturbTracer() - CASE DEFAULT - WRITE(*,"(A,1X,I1)") "Unknown mixing option", iturb - END SELECT - - END SUBROUTINE UpdateKturb -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbSpecified - calc. Kturb for mixing using specified Kturb -! **************************************************************************** - SUBROUTINE UpdateKturbSpecified() - - INTEGER :: nr, na, i, iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - anames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox), & - avalues(max_species_boxmox) - LOGICAL :: lfound - - Kturb = 0.0 - - CALL readVals('Background.csv', & - nr, rnames, rvalues, iostat, & - na, anames, avalues, lquiet=.TRUE.) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - lfound = .FALSE. - DO i = 1, na - IF ( strEqual(anames(i), 'Kturb') ) THEN - Kturb = avalues(i) - lfound = .TRUE. - ENDIF - ENDDO - - IF (.NOT. lfound) THEN - WRITE(*,*) "Kturb variable not found in Background.csv" - STOP - ENDIF - - END SUBROUTINE UpdateKturbSpecified -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbVolume - calc. Kturb for mixing using box volume changes -! **************************************************************************** - SUBROUTINE UpdateKturbVolume() - - REAL(KIND=dp) :: vol, vol_old - - vol = dxdydz(1) * dxdydz(2) * dxdydz(3) - vol_old = dxdydz_old(1) * dxdydz_old(2) * dxdydz_old(3) - - ! maybe we have a mixing case where the box volume changes? - ! increasing volume - dilute against background - ! decreasing volume - ignore (?) for now - - ! in the PBL case, analogue: - ! maybe we changed the PBLH? update concentration vector - ! rising BL - mixing against zero air or bg values - ! shrinking BL - creates residual layer, decouples - - IF (vol > vol_old) THEN - Kturb = ( (vol - vol_old) / vol_old ) / DT - ENDIF - - END SUBROUTINE UpdateKturbVolume -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbTracer - calc. Kturb for mixing using tracer (t, tname) conc. -! changes -! **************************************************************************** - SUBROUTINE UpdateKturbTracer() - - INTEGER :: nr, na, i, iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - anames(max_species_boxmox), & - tracer_name - REAL(KIND=dp) :: rvalues(max_species_boxmox), & - avalues(max_species_boxmox), & - prev, obs, bg, frac_bg - LOGICAL :: lfound_prev, lfound_bg - - Kturb = 0.0 - - CALL readVals('Background.csv', & - nr, rnames, rvalues, iostat, & - na, anames, avalues, lquiet=.TRUE.) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - ! ASSUMPTION: first ancillary species is mixing tracer - tracer_name = anames(1) - obs = avalues(1) * CFACTOR - - prev = 0.0 - lfound_prev = .FALSE. - DO i = 1, NSPEC - IF ( strEqual(SPC_NAMES(i), tracer_name) ) THEN - prev = C(i) - lfound_prev = .TRUE. - ENDIF - ENDDO - - bg = 0.0 - lfound_bg = .FALSE. - DO i = 1, nr - IF ( strEqual(rnames(i), tracer_name) ) THEN - bg = rvalues(i) * CFACTOR - lfound_bg = .TRUE. - ENDIF - ENDDO - - IF (.NOT. lfound_bg) THEN - WRITE(*,*) "Tracer ", TRIM(tracer_name), & - " not found in Background.csv" - STOP - ENDIF - IF (.NOT. lfound_prev) THEN - WRITE(*,*) "Tracer ", TRIM(tracer_name), & - " not found in mechanism" - STOP - ENDIF - - IF ( ABS( bg - prev ) < 1e-10 ) THEN - Kturb = 0.0 - ELSE - frac_bg = ( obs - prev ) / ( bg - prev ) - frac_bg = MIN( frac_bg, 1.0 ) - frac_bg = MAX( frac_bg, 0.0 ) - - Kturb = frac_bg / DT - ENDIF - - END SUBROUTINE UpdateKturbTracer -! **************************************************************************** - - -! **************************************************************************** -! UpdatePhotolysisRates - well, it does what it seems to do -! **************************************************************************** - SUBROUTINE UpdatePhotolysisRates() - - INTEGER :: i, iostat, nr, jidx - CHARACTER(LEN=15) :: rnames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox) - - INTEGER :: j, jidx2 - - rnames(:) = " " - rvalues(:) = 0.0 - - jvalues(:) = 0.0 - - CALL readVals('PhotolysisRates.csv', nr, rnames, rvalues, iostat) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - DO i = 1, nr - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,E12.6)") rnames(i), rvalues(i) - ENDIF - jidx = hash(rnames(i)) - jvalues(jidx) = rvalues(i) - ENDDO - - ! first time step only: make sure hashing actually made unique hashes - IF (TIME .EQ. TSTART) THEN - DO i = 1, nr - jidx = hash(rnames(i)) - DO j = 1, nr - jidx2 = hash(rnames(j)) - IF ((jidx .EQ. jidx2) .AND. .NOT. (i .EQ. j)) THEN - WRITE(*,*) "Photolysis rate label hash collision:" - WRITE(*,*) rnames(i), "(idx ",i,", hash ", jidx, ") == ", & - rnames(j), "(idx ",j,", hash ", jidx2,")" - IF ( strEqual( rnames(i), rnames(j) ) ) THEN - WRITE(*,*) "Remove duplicate label in PhotolysisRates.csv!" - ELSE - WRITE(*,*) "Please contact the BOXMOX developers!" - ENDIF - STOP - ENDIF - ENDDO - ENDDO - - CALL writespecstring(nr, "known:", rnames, 6) - - ENDIF - - END SUBROUTINE UpdatePhotolysisRates -! **************************************************************************** - - -! **************************************************************************** -! UpdateAerosol - update aerosol properties -! **************************************************************************** - SUBROUTINE UpdateAerosol() - - INTEGER, PARAMETER :: naer = 2, sad_idx = 1, r_idx = 2 - REAL(KIND=dp) :: aer(naer), errval = -987654321.0 - CHARACTER(LEN=15) :: aernames(naer) - INTEGER :: iostat, i - - aernames(sad_idx) = "sad"; aer(sad_idx) = errval - aernames(r_idx) = "r"; aer(r_idx) = errval - - CALL readInput('Aerosol.csv', naer, aernames, aer, quiet=lverbose) - - IF (aer(sad_idx) .NE. errval) AER_SAD = aer(sad_idx) - IF (aer(r_idx) .NE. errval) AER_R = aer(r_idx) - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,F8.2)") "SAD ", AER_SAD - WRITE(*,"(6X,A15,1X,F8.2)") "R ", AER_R - ENDIF - - END SUBROUTINE UpdateAerosol -! **************************************************************************** - - -! **************************************************************************** -! UpdateEnvironment - Read environmental values -! **************************************************************************** - SUBROUTINE UpdateEnvironment() - - INTEGER, PARAMETER :: nenv = 4, temp_idx = 1, pres_idx = 2, & - pblh_idx = 3, vol_idx = 4 - REAL(KIND=dp) :: env(nenv), errval = -987654321.0 - CHARACTER(LEN=15) :: envnames(nenv) - INTEGER :: iostat, i - - REAL(KIND=dp) :: temp_old, pres_old, pblh, vol - - envnames(temp_idx) = "TEMP"; env(temp_idx) = errval - envnames(pres_idx) = "PRES"; env(pres_idx) = errval - envnames(pblh_idx) = "PBLH"; env(pblh_idx) = errval - envnames(vol_idx) = "VOL"; env(vol_idx) = errval - - CALL readInput('Environment.csv', nenv, envnames, env, quiet=lverbose) - - temp_old = temp - pres_old = pres - - dxdydz_old(:) = dxdydz(:) - - ! those are just pseudo variables for dxdydz properties - pblh = dxdydz(3) - vol = dxdydz(1) * dxdydz(2) * dxdydz(3) - - IF (env(pblh_idx) .NE. errval .AND. env(vol_idx) .NE. errval) & - THEN - WRITE(*,*) "Cannot work with changing PBLH and VOL at the same time." - STOP - ENDIF - - IF (env(temp_idx) .NE. errval) temp = env(temp_idx) - IF (env(pres_idx) .NE. errval) pres = env(pres_idx) - IF (env(vol_idx) .NE. errval) vol = env(vol_idx) - - IF (env(pblh_idx) .NE. errval) THEN - pblh = env(pblh_idx) - dxdydz(3) = pblh - ENDIF - - ! Adjust species vector - DO i = 1, NSPEC - C(i) = C(i) * (temp_old * pres) / (temp * pres_old) - ENDDO - - ! recalculate unit conversion - CALL calcCFACTOR() - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,F8.2)") "TEMP ", temp - WRITE(*,"(6X,A13,1X,F10.2)") "PRES ", pres - WRITE(*,"(6X,A15,1X,F8.2)") "PBLH ", dxdydz(3) - WRITE(*,"(6X,A15,1X,F8.2)") "VOL ", & - dxdydz(1)*dxdydz(2)*dxdydz(3) - WRITE(*,*) "" - WRITE(*,"(6X,A7,1X,E16.8)") "CFACTOR", CFACTOR - ENDIF - - END SUBROUTINE UpdateEnvironment -! **************************************************************************** - - -! **************************************************************************** -! InitFixNOx - Initialize the NOx fixing data (for steady state calculations) -! **************************************************************************** - SUBROUTINE InitFixNOx(n, names, values) - - INTEGER, INTENT(IN) :: n - REAL(KIND=dp) :: values(n) - CHARACTER(LEN=15), INTENT(IN) :: names(n) - - INTEGER :: i, nfound_tracers - - initial_total_nox = 0.0 - nfound_tracers = 0 - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - initial_total_nox = initial_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - initial_total_nox = initial_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - ENDDO - - IF (.NOT. nfound_tracers == 2) THEN - WRITE(*,*) "NOx fixing failed, found (only) ", & - nfound_tracers, " species." - STOP - ENDIF - - END SUBROUTINE InitFixNOx -! **************************************************************************** - - -! **************************************************************************** -! FixNOx - keep total NOx at initial levels (for steady state calculations) -! **************************************************************************** - SUBROUTINE FixNOx(n, names, values) - - INTEGER, INTENT(IN) :: n - REAL(KIND=dp), INTENT(INOUT) :: values(n) - CHARACTER(LEN=15), INTENT(IN) :: names(n) - - INTEGER :: i, nfound_tracers - REAL(KIND=dp) :: current_total_nox, scaleFactor - - current_total_nox = 0.0 - nfound_tracers = 0 - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - current_total_nox = current_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - current_total_nox = current_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - ENDDO - - IF (.NOT. nfound_tracers == 2) THEN - WRITE(*,*) "NOx fixing failed, found (only) ", & - nfound_tracers, " species." - STOP - ENDIF - - scaleFactor = initial_total_nox - IF (current_total_nox > 0.0) THEN - scaleFactor = initial_total_nox / current_total_nox - ENDIF - - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - values(i) = values(i) * scaleFactor - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - values(i) = values(i) * scaleFactor - ENDIF - ENDDO - - END SUBROUTINE FixNOx -! **************************************************************************** - - -! End INLINED Utility Functions - -! Utility Functions from KPP_HOME/util/util -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! UTIL - Utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -! **************************************************************** -! -! InitSaveData - Opens the data file for writing -! Parameters : -! -! **************************************************************** - - SUBROUTINE InitSaveData () - - USE CB05_CSIRO_Parameters -!* ---------------------------------------------------- -!* BOXMOX extension - Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* add header to output species and sparse jacobian indices -!* and Hessian - USE CB05_CSIRO_JacobianSP -#if 0 > 0 - USE CB05_CSIRO_HessianSP -#endif -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* add header to output files and open rates file - INTEGER :: i -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20161129 -!* renamed concentration output -! open(10, file='CB05_CSIRO.dat') - open(10, file='CB05_CSIRO.conc') -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* add header to output files and open rates file - - ! add header to output file - WRITE(10, "(A24,10000(1X,A24))") "time", ADJUSTR(SPC_NAMES(LOOKAT)) - - open(11, file='CB05_CSIRO.rates') - - WRITE(11, "(I5)") NREACT - - DO i = 1, NREACT - WRITE(11, "(A)") EQN_NAMES(i) - ENDDO - - ! add header to output file - WRITE(11, "(A24,10000(1X,I24))") "time", (/(i, i=1,NREACT, 1)/) - -!* write header to Jacobian output - open(12, file='CB05_CSIRO.jacobian') - -!* species names - WRITE(12, "(10000(1X,A24))") ADJUSTR(SPC_NAMES(LOOKAT)) -!* species index - WRITE(12, "(10000(1X,I5))") LOOKAT -!* Jacobian non zero row index - WRITE(12, "(100000(1X,I5))") (LU_IROW(i), i=1,LU_NONZERO) -!* Jacobian non zero column index - WRITE(12, "(100000(1X,I5))") (LU_ICOL(i), i=1,LU_NONZERO) - -!* write header to Hessian output -#if 0 > 0 - open(13, file='CB05_CSIRO.hessian') - -!* species names - WRITE(13, "(10000(1X,A24))") ADJUSTR(SPC_NAMES(LOOKAT)) -!* species index - WRITE(13, "(10000(1X,I5))") LOOKAT -!* Hessian i, j, k species - WRITE(13, "(100000(1X,I5))") (IHESS_I(i), i=1,NHESS) - WRITE(13, "(100000(1X,I5))") (IHESS_J(i), i=1,NHESS) - WRITE(13, "(100000(1X,I5))") (IHESS_K(i), i=1,NHESS) -#endif -!* ---------------------------------------------------- - - END SUBROUTINE InitSaveData - -! End of InitSaveData function -! **************************************************************** - -! **************************************************************** -! -! SaveData - Write LOOKAT species in the data file -! Parameters : -! -! **************************************************************** - - SUBROUTINE SaveData () - - USE CB05_CSIRO_Global - USE CB05_CSIRO_Monitor -!* ---------------------------------------------------- -!* BOXMOX extension - Jerome Barre - 20150410 -!* Christoph Knote - 20151030 - USE CB05_CSIRO_Jacobian -#if 0 > 0 - USE CB05_CSIRO_Hessian -#endif -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20151030 - REAL(KIND=dp) :: JVS(LU_NONZERO) ! d(dc/dt)i/dcj -#if 0 > 0 - REAL(KIND=dp) :: HESS(NHESS) ! -#endif - INTEGER i - - WRITE(10,999) (TIME-TSTART)/3600.D0, & - (C(LOOKAT(i))/CFACTOR, i=1,NLOOKAT) - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* write out reaction rates - WRITE(11,999) (TIME-TSTART)/3600.D0, & - (RCONST(i), i=1,NREACT) -!* call Jacobian function to output Jacobian values - CALL Jac_SP( VAR, FIX, RCONST, JVS ) - WRITE(12,9999) (JVS(i), i=1,LU_NONZERO) -!* call Hessian function to output Hessian values -#if 0 > 0 - CALL Hessian( VAR, FIX, RCONST, HESS ) - WRITE(13,9999) (HESS(i), i=1,NHESS) -#endif -!* --------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* might have more than 100 output variables -! 999 FORMAT(E24.16,100(1X,E24.16)) -999 FORMAT(E24.16,10000(1X,E24.16E3)) -9999 FORMAT(E24.16,100000(1X,E24.16E3)) -!* ---------------------------------------------------- - - END SUBROUTINE SaveData - -! End of SaveData function -! **************************************************************** - -! **************************************************************** -! -! CloseSaveData - Close the data file -! Parameters : -! -! **************************************************************** - - SUBROUTINE CloseSaveData () - - USE CB05_CSIRO_Parameters - - CLOSE(10) - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -! Christoph Knote - 20153010 -!* close rates file - CLOSE(11) -!* close Jacobian file - CLOSE(12) -!* close Hessian file -#if 0 > 0 - CLOSE(13) -#endif -!* --------------------------------------------------- - - END SUBROUTINE CloseSaveData - -! End of CloseSaveData function -! **************************************************************** - -! **************************************************************** -! -! GenerateMatlab - Generates MATLAB file to load the data file -! Parameters : -! It will have a character string to prefix each -! species name with. -! -! **************************************************************** - - SUBROUTINE GenerateMatlab ( PREFIX ) - - USE CB05_CSIRO_Parameters - USE CB05_CSIRO_Global - USE CB05_CSIRO_Monitor - - - CHARACTER(LEN=8) PREFIX - INTEGER i - - open(20, file='CB05_CSIRO.m') - write(20,*) 'load CB05_CSIRO.dat;' - write(20,990) PREFIX -990 FORMAT(A1,'c = CB05_CSIRO;') - write(20,*) 'clear CB05_CSIRO;' - write(20,991) PREFIX, PREFIX -991 FORMAT(A1,'t=',A1,'c(:,1);') - write(20,992) PREFIX -992 FORMAT(A1,'c(:,1)=[];') - - do i=1,NLOOKAT - write(20,993) PREFIX, SPC_NAMES(LOOKAT(i)), PREFIX, i -993 FORMAT(A1,A6,' = ',A1,'c(:,',I2,');') - end do - - CLOSE(20) - - END SUBROUTINE GenerateMatlab - -! End of GenerateMatlab function -! **************************************************************** - - -! **************************************************************** -! -! tag2num - convert equation tags to kpp reaction number -! Arguments : -! id - string with the equation tag -! -! **************************************************************** - -ELEMENTAL INTEGER FUNCTION tag2num ( id ) - - USE CB05_CSIRO_Monitor, ONLY: EQN_TAGS - - CHARACTER(LEN=*), INTENT(IN) :: id - INTEGER i - - tag2num = 0 ! mz_rs_20050115 - DO i = 1, SIZE(EQN_TAGS) - IF (TRIM(EQN_TAGS(i)) == TRIM(id)) THEN - tag2num = i ! mz_rs_20050115 - EXIT - ENDIF - END DO - -END FUNCTION tag2num - -! End of tag2num function -! **************************************************************** - -! End Utility Functions from KPP_HOME/util/util -! End of UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Shuffle_user2kpp - function to copy concentrations from USER to KPP -! Arguments : -! V_USER - Concentration of variable species in USER's order -! V - Concentrations of variable species (local) -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Shuffle_user2kpp ( V_USER, V ) - -! V_USER - Concentration of variable species in USER's order - REAL(kind=dp) :: V_USER(NVAR) -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) - - V(61) = V_USER(1) - V(62) = V_USER(2) - V(63) = V_USER(3) - V(53) = V_USER(4) - V(56) = V_USER(5) - V(14) = V_USER(6) - V(60) = V_USER(7) - V(54) = V_USER(8) - V(12) = V_USER(9) - V(34) = V_USER(10) - V(16) = V_USER(11) - V(23) = V_USER(12) - V(17) = V_USER(13) - V(59) = V_USER(14) - V(48) = V_USER(15) - V(51) = V_USER(16) - V(27) = V_USER(17) - V(52) = V_USER(18) - V(50) = V_USER(19) - V(49) = V_USER(20) - V(44) = V_USER(21) - V(36) = V_USER(22) - V(57) = V_USER(23) - V(30) = V_USER(24) - V(10) = V_USER(25) - V(26) = V_USER(26) - V(19) = V_USER(27) - V(58) = V_USER(28) - V(6) = V_USER(29) - V(20) = V_USER(30) - V(21) = V_USER(31) - V(55) = V_USER(32) - V(22) = V_USER(33) - V(28) = V_USER(34) - V(41) = V_USER(35) - V(38) = V_USER(36) - V(40) = V_USER(37) - V(8) = V_USER(38) - V(43) = V_USER(39) - V(29) = V_USER(40) - V(45) = V_USER(41) - V(33) = V_USER(42) - V(37) = V_USER(43) - V(15) = V_USER(44) - V(46) = V_USER(45) - V(47) = V_USER(46) - V(4) = V_USER(47) - V(1) = V_USER(48) - V(2) = V_USER(49) - V(11) = V_USER(50) - V(9) = V_USER(51) - V(42) = V_USER(52) - V(13) = V_USER(56) - V(5) = V_USER(57) - V(24) = V_USER(58) - V(31) = V_USER(59) - V(32) = V_USER(60) - V(18) = V_USER(61) - V(35) = V_USER(62) - V(25) = V_USER(63) - -END SUBROUTINE Shuffle_user2kpp - -! End of Shuffle_user2kpp function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Shuffle_kpp2user - function to restore concentrations from KPP to USER -! Arguments : -! V - Concentrations of variable species (local) -! V_USER - Concentration of variable species in USER's order -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Shuffle_kpp2user ( V, V_USER ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! V_USER - Concentration of variable species in USER's order - REAL(kind=dp) :: V_USER(NVAR) - - V_USER(1) = V(61) - V_USER(2) = V(62) - V_USER(3) = V(63) - V_USER(4) = V(53) - V_USER(5) = V(56) - V_USER(6) = V(14) - V_USER(7) = V(60) - V_USER(8) = V(54) - V_USER(9) = V(12) - V_USER(10) = V(34) - V_USER(11) = V(16) - V_USER(12) = V(23) - V_USER(13) = V(17) - V_USER(14) = V(59) - V_USER(15) = V(48) - V_USER(16) = V(51) - V_USER(17) = V(27) - V_USER(18) = V(52) - V_USER(19) = V(50) - V_USER(20) = V(49) - V_USER(21) = V(44) - V_USER(22) = V(36) - V_USER(23) = V(57) - V_USER(24) = V(30) - V_USER(25) = V(10) - V_USER(26) = V(26) - V_USER(27) = V(19) - V_USER(28) = V(58) - V_USER(29) = V(6) - V_USER(30) = V(20) - V_USER(31) = V(21) - V_USER(32) = V(55) - V_USER(33) = V(22) - V_USER(34) = V(28) - V_USER(35) = V(41) - V_USER(36) = V(38) - V_USER(37) = V(40) - V_USER(38) = V(8) - V_USER(39) = V(43) - V_USER(40) = V(29) - V_USER(41) = V(45) - V_USER(42) = V(33) - V_USER(43) = V(37) - V_USER(44) = V(15) - V_USER(45) = V(46) - V_USER(46) = V(47) - V_USER(47) = V(4) - V_USER(48) = V(1) - V_USER(49) = V(2) - V_USER(50) = V(11) - V_USER(51) = V(9) - V_USER(52) = V(42) - V_USER(56) = V(13) - V_USER(57) = V(5) - V_USER(58) = V(24) - V_USER(59) = V(31) - V_USER(60) = V(32) - V_USER(61) = V(18) - V_USER(62) = V(35) - V_USER(63) = V(25) - -END SUBROUTINE Shuffle_kpp2user - -! End of Shuffle_kpp2user function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! GetMass - compute total mass of selected atoms -! Arguments : -! CL - Concentration of all species (local) -! Mass - value of mass balance -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE GetMass ( CL, Mass ) - -! CL - Concentration of all species (local) - REAL(kind=dp) :: CL(NSPEC) -! Mass - value of mass balance - REAL(kind=dp) :: Mass(1) - - -END SUBROUTINE GetMass - -! End of GetMass function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE CB05_CSIRO_Util - diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Util.o b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Util.o deleted file mode 100644 index 6ee21ee817a73efcd1b789833e1806465afe5ae9..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_Util.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_mex_Fun.f90 b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_mex_Fun.f90 deleted file mode 100644 index e4be95b5cb89674d5a657844f8e864f9eb1a2def..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_mex_Fun.f90 +++ /dev/null @@ -1,45 +0,0 @@ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE mexFunction( nlhs, plhs, nrhs, prhs ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Matlab Gateway for the Derivative Function Fun -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CB05_CSIRO_Model - - INTEGER nlhs, nrhs - INTEGER plhs(*), prhs(*) - INTEGER mxGetPr, mxCreateFull, mxGetM, mxgetN - INTEGER VPtr, FPtr, RPtr, VdotPtr - REAL(kind=dp) V(63), F(2), RCT(173) - REAL(kind=dp) Vdot(63) - -! Check for the right number of input arguments - IF ( nrhs .ne. 3 ) THEN - CALL mexErrMsgTxt('Fun requires 3 input vectors: & - &V(63), F(2), RCT(173)') - END IF -! Check for the right number of output arguments - IF ( nlhs .ne. 1 ) THEN - CALL mexErrMsgTxt('Fun requires 1 output vector: & - &Vdot(63)') - END IF - - plhs(1) = mxCreateDoubleMatrix(63,1,0) - - VPtr = mxGetPr(prhs(1)) - CALL mxCopyPtrToReal8(VPtr,V,63) - - FPtr = mxGetPr(prhs(2)) - CALL mxCopyPtrToReal8(FPtr,F,2) - - RPtr = mxGetPr(prhs(3)) - CALL mxCopyPtrToReal8(RPtr,RCT,173) - - VdotPtr = mxGetPr(plhs(1)) - - CALL Fun( V, F, RCT, Vdot ) - - CALL mxCopyReal8ToPtr(Vdot, VdotPtr, 63) - - END SUBROUTINE mexFunction diff --git a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_mex_Jac_SP.f90 b/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_mex_Jac_SP.f90 deleted file mode 100644 index 0abad9bf5cc58d038f3352d46458d1e8634512bb..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05_CSIRO/CB05_CSIRO_mex_Jac_SP.f90 +++ /dev/null @@ -1,44 +0,0 @@ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE mexFunction( nlhs, plhs, nrhs, prhs ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Matlab Gateway for the Sparse Jacobian Function Jac_SP -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CB05_CSIRO_Model - - INTEGER nlhs, nrhs - INTEGER plhs(*), prhs(*) - INTEGER mxGetPr, mxCreateFull, mxGetM, mxgetN - INTEGER VPtr, FPtr, RPtr, JVSPtr - REAL(kind=dp) V(63), F(2), RCT(173) - REAL(kind=dp) JVS(700) - -! Check for the right number of input arguments - IF ( nrhs .ne. 3 ) THEN - CALL mexErrMsgTxt('Jac_SP requires 3 input vectors: & - &V(63), F(2), RCT(173)') - END IF -! Check for the right number of output arguments - IF ( nlhs .ne. 1 ) THEN - CALL mexErrMsgTxt('Jac_SP requires 1 output vector: & - &JVS(700)') - END IF - - plhs(1) = mxCreateDoubleMatrix(700,1,0) - - VPtr = mxGetPr(prhs(1)) - CALL mxCopyPtrToReal8(VPtr,V,63) - - FPtr = mxGetPr(prhs(2)) - CALL mxCopyPtrToReal8(FPtr,F,2) - - RPtr = mxGetPr(prhs(3)) - CALL mxCopyPtrToReal8(RPtr,RCT,173) - - JVSPtr = mxGetPr(plhs(1)) - - CALL Jac_SP( V, F, RCT, JVS ) - - CALL mxCopyReal8ToPtr(JVS, JVSPtr, 700) - - END SUBROUTINE mexFunction diff --git a/boxmox/compiled_mechs/CB05_CSIRO/Makefile_CB05_CSIRO b/boxmox/compiled_mechs/CB05_CSIRO/Makefile_CB05_CSIRO deleted file mode 100644 index 32ef99fcd5cf354a045b6af40ed0f9a31f654ce8..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05_CSIRO/Makefile_CB05_CSIRO +++ /dev/null @@ -1,215 +0,0 @@ -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: Set here the F90 compiler and options -# Pedefined compilers: INTEL, PGF, HPUX, LAHEY -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -#COMPILER = G95 -#COMPILER = LAHEY -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# gfortran is standard -#COMPILER = INTEL -# ---------------------------------------------------- -#COMPILER = PGF -#COMPILER = HPUX -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# gfortran is standard -COMPILER = GFORTRAN -# ---------------------------------------------------- - -FC_G95 = g95 -FOPT_G95 = -cpp -O -pg -fbounds-check -fimplicit-none -Wall -ftrace=full - -FC_LAHEY = lf95 -# More aggressive for production runs: -#FOPT_LAHEY = -Cpp --pca -O -# More checking for debugging: -FOPT_LAHEY = -Cpp --chk a,e,s,u --pca --ap -O0 -g --trap --trace --chkglobal - -FC_INTEL = ifort -# More aggressive for production runs: -#FOPT_INTEL = -cpp -O -fp-model precise -pc80 -prec_div -# More checking for debugging: -FOPT_INTEL = -cpp -O0 -fp-model strict -implicitnone -ftrapuv \ - -debug all -check all -warn all - -FC_PGF = pgf90 -# More aggressive for production runs: -FOPT_PGF = -Mpreprocess -O -fast -pc 80 -Kieee -# More checking for debugging: -#FOPT_PGF = -Mpreprocess -O0 -Mbounds -Mchkfpstk -Mchkptr -Mchkstk \ -# -Ktrap=fp -pc 80 -Kieee - -FC_HPUX = f90 -FOPT_HPUX = -O -u +Oall +check=on - -FC_GFORTRAN = gfortran -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# rate equation code creates pretty long lines -# optimization does not help much and breaks MCM -# FOPT_GFORTRAN = -cpp -O -# double precision: -#FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -freal-4-real-16 -freal-8-real-16 -# using GCC 4.7 and higher: -FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -freal-4-real-8 -# for older compilers -#FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -fdefault-real-8 -# ---------------------------------------------------- - -# define FULL_ALGEBRA for non-sparse integration -FC = $(FC_$(COMPILER)) -FOPT = $(FOPT_$(COMPILER)) # -DFULL_ALGEBRA - -LIBS = -#LIBS = -llapack -lblas - -# Command to create Matlab mex gateway routines -# Note: use $(FC) as the mex Fortran compiler -MEX = mex - -GENSRC = CB05_CSIRO_Precision.f90 \ - CB05_CSIRO_Parameters.f90 \ - CB05_CSIRO_Global.f90 - -GENOBJ = CB05_CSIRO_Precision.o \ - CB05_CSIRO_Parameters.o \ - CB05_CSIRO_Global.o - -FUNSRC = CB05_CSIRO_Function.f90 -FUNOBJ = CB05_CSIRO_Function.o - -JACSRC = CB05_CSIRO_JacobianSP.f90 CB05_CSIRO_Jacobian.f90 -JACOBJ = CB05_CSIRO_JacobianSP.o CB05_CSIRO_Jacobian.o - -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20160906 -# if HESSIAN is off, avoid compilation errors by not -# linking to the Hessian objects. -ifeq ($(wildcard CB05_CSIRO_HessianSP.f90),) - HESSRC = - HESOBJ = -else - HESSRC = CB05_CSIRO_HessianSP.f90 CB05_CSIRO_Hessian.f90 - HESOBJ = CB05_CSIRO_HessianSP.o CB05_CSIRO_Hessian.o -endif -# ---------------------------------------------------- - -STMSRC = CB05_CSIRO_StoichiomSP.f90 CB05_CSIRO_Stoichiom.f90 -STMOBJ = CB05_CSIRO_StoichiomSP.o CB05_CSIRO_Stoichiom.o - -UTLSRC = CB05_CSIRO_Rates.f90 CB05_CSIRO_Util.f90 CB05_CSIRO_Monitor.f90 -UTLOBJ = CB05_CSIRO_Rates.o CB05_CSIRO_Util.o CB05_CSIRO_Monitor.o - -LASRC = CB05_CSIRO_LinearAlgebra.f90 -LAOBJ = CB05_CSIRO_LinearAlgebra.o - -STOCHSRC = CB05_CSIRO_Stochastic.f90 -STOCHOBJ = CB05_CSIRO_Stochastic.o - -MAINSRC = CB05_CSIRO_Main.f90 CB05_CSIRO_Initialize.f90 CB05_CSIRO_Integrator.f90 CB05_CSIRO_Model.f90 -MAINOBJ = CB05_CSIRO_Main.o CB05_CSIRO_Initialize.o CB05_CSIRO_Integrator.o CB05_CSIRO_Model.o - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: modify the line below to include only the -# objects needed by your application -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -ALLOBJ = $(GENOBJ) $(FUNOBJ) $(JACOBJ) $(HESOBJ) $(STMOBJ) \ - $(UTLOBJ) $(LAOBJ) - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: modify the line below to include only the -# executables needed by your application -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -all: exe - -exe: $(ALLOBJ) $(MAINOBJ) - $(FC) $(FOPT) $(ALLOBJ) $(MAINOBJ) $(LIBS) -o CB05_CSIRO.exe - -pylib: $(ALLOBJ) lib_Initialize.o lib_Integrator.o lib_Model.o - f2py -c -m boxmox $(ALLOBJ) lib_Initialize.o lib_Integrator.o lib_Model.o lib_Main.f90 - -stochastic:$(ALLOBJ) $(STOCHOBJ) $(MAINOBJ) - $(FC) $(FOPT) $(ALLOBJ) $(STOCHOBJ) $(MAINOBJ) $(LIBS) \ - -o CB05_CSIRO_stochastic.exe - -mex: $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O CB05_CSIRO_mex_Fun.f90 $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O CB05_CSIRO_mex_Jac_SP.f90 $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O CB05_CSIRO_mex_Hessian.f90 $(ALLOBJ) - -clean: - rm -f CB05_CSIRO*.o CB05_CSIRO*.mod \ - CB05_CSIRO*.dat CB05_CSIRO.exe CB05_CSIRO*.mexglx \ - CB05_CSIRO.map - -distclean: - rm -f CB05_CSIRO*.o CB05_CSIRO*.mod \ - CB05_CSIRO*.dat CB05_CSIRO.exe CB05_CSIRO.map \ - CB05_CSIRO*.f90 CB05_CSIRO_*.mexglx - -CB05_CSIRO_Precision.o: CB05_CSIRO_Precision.f90 - $(FC) $(FOPT) -c $< - -CB05_CSIRO_Parameters.o: CB05_CSIRO_Parameters.f90 \ - CB05_CSIRO_Precision.o - $(FC) $(FOPT) -c $< - -CB05_CSIRO_Monitor.o: CB05_CSIRO_Monitor.f90 \ - CB05_CSIRO_Precision.o - $(FC) $(FOPT) -c $< - -CB05_CSIRO_Global.o: CB05_CSIRO_Global.f90 \ - CB05_CSIRO_Parameters.o CB05_CSIRO_Precision.o - $(FC) $(FOPT) -c $< - -CB05_CSIRO_Initialize.o: CB05_CSIRO_Initialize.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -CB05_CSIRO_Function.o: CB05_CSIRO_Function.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -CB05_CSIRO_Stochastic.o: CB05_CSIRO_Stochastic.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -CB05_CSIRO_JacobianSP.o: CB05_CSIRO_JacobianSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -CB05_CSIRO_Jacobian.o: CB05_CSIRO_Jacobian.f90 $(GENOBJ) CB05_CSIRO_JacobianSP.o - $(FC) $(FOPT) -c $< - -CB05_CSIRO_LinearAlgebra.o: CB05_CSIRO_LinearAlgebra.f90 $(GENOBJ) CB05_CSIRO_JacobianSP.o - $(FC) $(FOPT) -c $< - -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# need Util in Rates -#CB05_CSIRO_Rates.o: CB05_CSIRO_Rates.f90 $(GENOBJ) -CB05_CSIRO_Rates.o: CB05_CSIRO_Rates.f90 $(GENOBJ) CB05_CSIRO_Util.o -# ---------------------------------------------------- - $(FC) $(FOPT) -c $< - -CB05_CSIRO_HessianSP.o: CB05_CSIRO_HessianSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -CB05_CSIRO_Hessian.o: CB05_CSIRO_Hessian.f90 $(GENOBJ) CB05_CSIRO_HessianSP.o - $(FC) $(FOPT) -c $< - -CB05_CSIRO_StoichiomSP.o: CB05_CSIRO_StoichiomSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -CB05_CSIRO_Stoichiom.o: CB05_CSIRO_Stoichiom.f90 $(GENOBJ) CB05_CSIRO_StoichiomSP.o - $(FC) $(FOPT) -c $< - -CB05_CSIRO_Util.o: CB05_CSIRO_Util.f90 $(GENOBJ) CB05_CSIRO_Monitor.o - $(FC) $(FOPT) -c $< - -CB05_CSIRO_Main.o: CB05_CSIRO_Main.f90 $(ALLOBJ) CB05_CSIRO_Initialize.o CB05_CSIRO_Model.o CB05_CSIRO_Integrator.o - $(FC) $(FOPT) -c $< - -CB05_CSIRO_Model.o: CB05_CSIRO_Model.f90 $(ALLOBJ) CB05_CSIRO_Integrator.o - $(FC) $(FOPT) -c $< - -CB05_CSIRO_Integrator.o: CB05_CSIRO_Integrator.f90 $(ALLOBJ) - $(FC) $(FOPT) -c $< diff --git a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_function.mod b/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_function.mod deleted file mode 100644 index ee6dca61c843b68f84d4277c4a3f736c5f2c962d..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_function.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_global.mod b/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_global.mod deleted file mode 100644 index ee3909025e558f7b8df9e7a8338dbf5adec51eb6..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_global.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_initialize.mod b/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_initialize.mod deleted file mode 100644 index b1933d9367702124bd58b9e4bd9644821ef66f2b..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_initialize.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_integrator.mod b/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_integrator.mod deleted file mode 100644 index 29d90b8372b56e99fe12844f32ca0cdefa192f82..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_integrator.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_jacobian.mod b/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_jacobian.mod deleted file mode 100644 index 7605ddf80fb05c91c2544a2d9a9e4a6883516836..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_jacobian.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_jacobiansp.mod b/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_jacobiansp.mod deleted file mode 100644 index dbcc9875c05b126434559c866b5eb3eaef39d0a8..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_jacobiansp.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_linearalgebra.mod b/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_linearalgebra.mod deleted file mode 100644 index 6e7b05b3f7aae139d785188d8d8cbbaa5608525f..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_linearalgebra.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_model.mod b/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_model.mod deleted file mode 100644 index 14648e0fbd954e665028d82bf7d5ffd101f489b9..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_model.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_monitor.mod b/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_monitor.mod deleted file mode 100644 index 8c24abd0c3509870784ea3bfd529c88d137fccea..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_monitor.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_parameters.mod b/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_parameters.mod deleted file mode 100644 index f66d86b2cd43dd0605d6376ffe024ca083150fc9..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_parameters.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_precision.mod b/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_precision.mod deleted file mode 100644 index d58bf19a53ecdbee8e507b7fc5c5d281f92503db..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_precision.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_rates.mod b/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_rates.mod deleted file mode 100644 index 03f509ef6aaf0ca30b57fc065cb859373abe211e..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_rates.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_stoichiom.mod b/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_stoichiom.mod deleted file mode 100644 index ff2acccfd6a9fdb975667d484eb18641b8c05d44..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_stoichiom.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_stoichiomsp.mod b/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_stoichiomsp.mod deleted file mode 100644 index 3353e0ae06e4bf275fd733221fb81d6695a09b77..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_stoichiomsp.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_util.mod b/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_util.mod deleted file mode 100644 index 36e7eff6305c99a67ce16791a8b00b9ed501eb93..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CB05_CSIRO/cb05_csiro_util.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CB05_CSIRO/compile.log b/boxmox/compiled_mechs/CB05_CSIRO/compile.log deleted file mode 100644 index b1098a82ca25cb95c07dcebd5472679d76f078cd..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05_CSIRO/compile.log +++ /dev/null @@ -1,22 +0,0 @@ -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05_CSIRO_Precision.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05_CSIRO_Parameters.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05_CSIRO_Global.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05_CSIRO_Function.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05_CSIRO_JacobianSP.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05_CSIRO_Jacobian.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05_CSIRO_StoichiomSP.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05_CSIRO_Stoichiom.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05_CSIRO_Monitor.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05_CSIRO_Util.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05_CSIRO_Rates.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05_CSIRO_LinearAlgebra.f90 -CB05_CSIRO_LinearAlgebra.f90:1266:46: - - 1266 | IF (incX .EQ. incY) IF (incX-1) 5,20,60 - | 1 -Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05_CSIRO_Initialize.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05_CSIRO_Integrator.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05_CSIRO_Model.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CB05_CSIRO_Main.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 CB05_CSIRO_Precision.o CB05_CSIRO_Parameters.o CB05_CSIRO_Global.o CB05_CSIRO_Function.o CB05_CSIRO_JacobianSP.o CB05_CSIRO_Jacobian.o CB05_CSIRO_StoichiomSP.o CB05_CSIRO_Stoichiom.o CB05_CSIRO_Rates.o CB05_CSIRO_Util.o CB05_CSIRO_Monitor.o CB05_CSIRO_LinearAlgebra.o CB05_CSIRO_Main.o CB05_CSIRO_Initialize.o CB05_CSIRO_Integrator.o CB05_CSIRO_Model.o -o CB05_CSIRO.exe diff --git a/boxmox/compiled_mechs/CB05_CSIRO/kpp.log b/boxmox/compiled_mechs/CB05_CSIRO/kpp.log deleted file mode 100644 index 8aef84747294934cb36f8412de1f0a79fb16f080..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CB05_CSIRO/kpp.log +++ /dev/null @@ -1,37 +0,0 @@ - -This is KPP-2.2.3. - -KPP is parsing the equation file. -KPP is computing Jacobian sparsity structure. -KPP is starting the code generation. -KPP is initializing the code generation. -KPP is generating the monitor data: - - CB05_CSIRO_Monitor -KPP is generating the global declarations: - - CB05_CSIRO_Main -KPP is generating the ODE function: - - CB05_CSIRO_Function -KPP is generating the ODE Jacobian: - - CB05_CSIRO_Jacobian - - CB05_CSIRO_JacobianSP -KPP is generating the linear algebra routines: - - CB05_CSIRO_LinearAlgebra -KPP is generating the utility data: - - CB05_CSIRO_Util -KPP is generating the utility functions: - - CB05_CSIRO_Util -KPP is generating the rate laws: - - CB05_CSIRO_Rates -KPP is generating the parameters: - - CB05_CSIRO_Parameters -KPP is generating the global data: - - CB05_CSIRO_Global -KPP is generating the stoichiometric description files: - - CB05_CSIRO_Stoichiom - - CB05_CSIRO_StoichiomSP -KPP is generating the driver from ../boxmox/boxmox.f90: - - CB05_CSIRO_Main -KPP is starting the code post-processing. - -KPP has succesfully created the model "CB05_CSIRO". - diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ.exe b/boxmox/compiled_mechs/CBMZ/CBMZ.exe deleted file mode 100755 index 69ac18628574141ae8c4e8de8b01baeca69f1b91..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/CBMZ.exe and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ.kpp b/boxmox/compiled_mechs/CBMZ/CBMZ.kpp deleted file mode 100644 index 24c3f203ea1500ed2206e613d14872ac4c733a6b..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CBMZ/CBMZ.kpp +++ /dev/null @@ -1,7 +0,0 @@ -#MODEL CBMZ -#LANGUAGE Fortran90 -#DOUBLE ON -#INTEGRATOR rosenbrock -#DRIVER ../boxmox/boxmox -#JACOBIAN SPARSE_LU_ROW -#HESSIAN OFF diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ.map b/boxmox/compiled_mechs/CBMZ/CBMZ.map deleted file mode 100644 index ba930f6328180937ca5fd639f1f6924e028c7587..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CBMZ/CBMZ.map +++ /dev/null @@ -1,94 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Map File with Human-Readable Information -! -! Generated by KPP-2.2.3 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 : CBMZ.map -! Time : Thu Oct 8 08:21:56 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CBMZ_11803_BOXMOX -! Equation file : CBMZ.kpp -! Output root filename : CBMZ -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -### Options ------------------------------------------- - -FUNCTION - AGGREGATE -JACOBIAN - SPARSE W/ ACCOUNT FOR LU DECOMPOSITION FILL-IN -DOUBLE - ON -REORDER - ON - -### Parameters ---------------------------------------- - -! NSPEC - Number of chemical species - INTEGER, PARAMETER :: NSPEC = 69 -! NVAR - Number of Variable species - INTEGER, PARAMETER :: NVAR = 67 -! NVARACT - Number of Active species - INTEGER, PARAMETER :: NVARACT = 56 -! NFIX - Number of Fixed species - INTEGER, PARAMETER :: NFIX = 2 -! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 142 -! NVARST - Starting of variables in conc. vect. - INTEGER, PARAMETER :: NVARST = 1 -! NFIXST - Starting of fixed in conc. vect. - INTEGER, PARAMETER :: NFIXST = 68 - -### Species ------------------------------------------- - -Variable species - 1 = H2SO4 (r) 24 = CRO (r) 47 = HCHO (r) - 2 = HCl (r) 25 = API (r) 48 = XO2 (r) - 3 = NH3 (r) 26 = LIM (r) 49 = AONE (r) - 4 = HCOOH (n) 27 = HNO4 (r) 50 = OLEI (r) - 5 = RCOOH (n) 28 = C2H6 (r) 51 = NAP (r) - 6 = ARO1 (n) 29 = TO2 (r) 52 = ETHP (r) - 7 = ARO2 (n) 30 = XPAR (r) 53 = MGLY (r) - 8 = ALK1 (n) 31 = CH3OOH (r) 54 = ALD2 (r) - 9 = OLE1 (n) 32 = HONO (r) 55 = CH3O2 (r) - 10 = API1 (n) 33 = ETHOOH (r) 56 = ISOPRD (r) - 11 = API2 (n) 34 = ETH (r) 57 = ONIT (r) - 12 = LIM1 (n) 35 = CH3OH (r) 58 = C2O3 (r) - 13 = LIM2 (n) 36 = CRES (r) 59 = NO2 (r) - 14 = DUMMY (n) 37 = O3P (r) 60 = NO3 (r) - 15 = SO2 (r) 38 = HNO3 (r) 61 = RO2 (r) - 16 = O1D (r) 39 = CO (r) 62 = ANO2 (r) - 17 = ANOL (r) 40 = ISOPN (r) 63 = NO (r) - 18 = PAN (r) 41 = PAR (r) 64 = O3 (r) - 19 = H2O2 (r) 42 = OPEN (r) 65 = HO2 (r) - 20 = TOL (r) 43 = ISOPP (r) 66 = ROOH (r) - 21 = N2O5 (r) 44 = ISOPO2 (r) 67 = OH (r) - 22 = XYL (r) 45 = OLET (r) - 23 = CH4 (r) 46 = ISOP (r) - -Fixed species - 1 = H2O (r) 2 = M (r) - -### Subroutines --------------------------------------- - -SUBROUTINE Fun ( V, F, RCT, Vdot ) -SUBROUTINE Jac_SP ( V, F, RCT, JVS ) -SUBROUTINE Jac_SP_Vec ( JVS, UV, JUV ) -SUBROUTINE JacTR_SP_Vec ( JVS, UV, JTUV ) -SUBROUTINE KppSolve ( JVS, X ) -SUBROUTINE KppSolveTR ( JVS, X, XX ) -SUBROUTINE Initialize ( ) -SUBROUTINE Shuffle_user2kpp ( V_USER, V ) -SUBROUTINE Shuffle_kpp2user ( V, V_USER ) -SUBROUTINE Update_RCONST ( ) -SUBROUTINE Update_PHOTO ( ) -SUBROUTINE GetMass ( CL, Mass ) -SUBROUTINE ReactantProd ( V, F, ARP ) -SUBROUTINE JacReactantProd ( V, F, JVRP ) diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_Function.f90 b/boxmox/compiled_mechs/CBMZ/CBMZ_Function.f90 deleted file mode 100644 index 4f78cdb9826901a7e5a16103e32ccbb512ea1ef7..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CBMZ/CBMZ_Function.f90 +++ /dev/null @@ -1,302 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The ODE Function of Chemical Model File -! -! Generated by KPP-2.2.3 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 : CBMZ_Function.f90 -! Time : Thu Oct 8 08:21:56 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CBMZ_11803_BOXMOX -! Equation file : CBMZ.kpp -! Output root filename : CBMZ -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CBMZ_Function - - USE CBMZ_Parameters - IMPLICIT NONE - -! A - Rate for each equation - REAL(kind=dp) :: A(NREACT) - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Fun - time derivatives of variables - Agregate form -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! RCT - Rate constants (local) -! Vdot - Time derivative of variable species concentrations -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Fun ( V, F, RCT, Vdot ) - -! 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) -! Vdot - Time derivative of variable species concentrations - REAL(kind=dp) :: Vdot(NVAR) - - -! Computation of equation rates - A(1) = RCT(1)*V(59) - A(2) = RCT(2)*V(60) - A(3) = RCT(3)*V(32) - A(4) = RCT(4)*V(38) - A(5) = RCT(5)*V(27) - A(6) = RCT(6)*V(21) - A(7) = RCT(7)*V(64) - A(8) = RCT(8)*V(64) - A(9) = RCT(9)*V(19) - A(10) = RCT(10)*V(47) - A(11) = RCT(11)*V(47) - A(12) = RCT(12)*V(31) - A(13) = RCT(13)*V(33) - A(14) = RCT(14)*V(54) - A(15) = RCT(15)*V(49) - A(16) = RCT(16)*V(53) - A(17) = RCT(17)*V(42) - A(18) = RCT(18)*V(66) - A(19) = RCT(19)*V(57) - A(20) = RCT(20)*V(56) - A(21) = RCT(21)*V(16)*F(2) - A(22) = RCT(22)*V(16)*F(1) - A(23) = RCT(23)*V(37)*F(2) - A(24) = RCT(24)*V(37)*V(64) - A(25) = RCT(25)*V(37)*V(59) - A(26) = RCT(26)*V(37)*V(59) - A(27) = RCT(27)*V(37)*V(63) - A(28) = RCT(28)*V(63)*V(64) - A(29) = RCT(29)*V(59)*V(64) - A(30) = RCT(30)*V(64)*V(67) - A(31) = RCT(31)*V(64)*V(65) - A(32) = RCT(32)*V(67)*F(2) - A(33) = RCT(33)*V(63)*V(67) - A(34) = RCT(34)*V(59)*V(67) - A(35) = RCT(35)*V(60)*V(67) - A(36) = RCT(36)*V(32)*V(67) - A(37) = RCT(37)*V(38)*V(67) - A(38) = RCT(38)*V(27)*V(67) - A(39) = RCT(39)*V(65)*V(67) - A(40) = RCT(40)*V(19)*V(67) - A(41) = RCT(41)*V(65)*V(65) - A(42) = RCT(42)*V(65)*V(65)*F(1) - A(43) = RCT(43)*V(63)*V(65) - A(44) = RCT(44)*V(59)*V(65) - A(45) = RCT(45)*V(59)*V(65) - A(46) = RCT(46)*V(27) - A(47) = RCT(47)*V(60)*V(63) - A(48) = RCT(48)*V(59)*V(60) - A(49) = RCT(49)*V(59)*V(60) - A(50) = RCT(50)*V(60)*V(60) - A(51) = RCT(51)*V(60)*V(65) - A(52) = RCT(52)*V(21)*F(1) - A(53) = RCT(53)*V(21) - A(54) = RCT(54)*V(39)*V(67) - A(55) = RCT(55)*V(15)*V(67) - A(56) = RCT(56)*V(23)*V(67) - A(57) = RCT(57)*V(28)*V(67) - A(58) = RCT(58)*V(41)*V(67) - A(59) = RCT(59)*V(47)*V(67) - A(60) = RCT(60)*V(47)*V(60) - A(61) = RCT(61)*V(54)*V(67) - A(62) = RCT(62)*V(54)*V(60) - A(63) = RCT(63)*V(49)*V(67) - A(64) = RCT(64)*V(53)*V(67) - A(65) = RCT(65)*V(53)*V(60) - A(66) = RCT(66)*V(34)*V(64) - A(67) = RCT(67)*V(34)*V(67) - A(68) = RCT(68)*V(45)*V(64) - A(69) = RCT(69)*V(50)*V(64) - A(70) = RCT(70)*V(45)*V(67) - A(71) = RCT(71)*V(50)*V(67) - A(72) = RCT(72)*V(45)*V(60) - A(73) = RCT(73)*V(50)*V(60) - A(74) = RCT(74)*V(20)*V(67) - A(75) = RCT(75)*V(22)*V(67) - A(76) = RCT(76)*V(29)*V(63) - A(77) = RCT(77)*V(36)*V(67) - A(78) = RCT(78)*V(36)*V(60) - A(79) = RCT(79)*V(24)*V(59) - A(80) = RCT(80)*V(42)*V(67) - A(81) = RCT(81)*V(42)*V(64) - A(82) = RCT(82)*V(46)*V(67) - A(83) = RCT(83)*V(46)*V(64) - A(84) = RCT(84)*V(46)*V(60) - A(85) = RCT(85)*V(56)*V(67) - A(86) = RCT(86)*V(56)*V(64) - A(87) = RCT(87)*V(56)*V(60) - A(88) = RCT(88)*V(43)*V(63) - A(89) = RCT(89)*V(40)*V(63) - A(90) = RCT(90)*V(44)*V(63) - A(91) = RCT(91)*V(43)*V(65) - A(92) = RCT(92)*V(40)*V(65) - A(93) = RCT(93)*V(44)*V(65) - A(94) = RCT(94)*V(31)*V(67) - A(95) = RCT(95)*V(33)*V(67) - A(96) = RCT(96)*V(66)*V(67) - A(97) = RCT(97)*V(57)*V(67) - A(98) = RCT(98)*V(58)*V(59) - A(99) = RCT(99)*V(18) - A(100) = RCT(100)*V(35)*V(67) - A(101) = RCT(101)*V(55)*V(63) - A(102) = RCT(102)*V(52)*V(63) - A(103) = RCT(103)*V(61)*V(63) - A(104) = RCT(104)*V(58)*V(63) - A(105) = RCT(105)*V(62)*V(63) - A(106) = RCT(106)*V(51)*V(63) - A(107) = RCT(107)*V(48)*V(63) - A(108) = RCT(108)*V(55)*V(60) - A(109) = RCT(109)*V(52)*V(60) - A(110) = RCT(110)*V(60)*V(61) - A(111) = RCT(111)*V(58)*V(60) - A(112) = RCT(112)*V(60)*V(62) - A(113) = RCT(113)*V(51)*V(60) - A(114) = RCT(114)*V(48)*V(60) - A(115) = RCT(115)*V(55)*V(65) - A(116) = RCT(116)*V(52)*V(65) - A(117) = RCT(117)*V(61)*V(65) - A(118) = RCT(118)*V(58)*V(65) - A(119) = RCT(119)*V(62)*V(65) - A(120) = RCT(120)*V(51)*V(65) - A(121) = RCT(121)*V(48)*V(65) - A(122) = RCT(122)*V(17)*V(67) - A(123) = RCT(123)*V(30)*V(41) - A(127) = RCT(127)*V(55) - A(128) = RCT(128)*V(52) - A(129) = RCT(129)*V(61) - A(130) = RCT(130)*V(58) - A(131) = RCT(131)*V(62) - A(132) = RCT(132)*V(51) - A(133) = RCT(133)*V(43) - A(134) = RCT(134)*V(40) - A(135) = RCT(135)*V(44) - A(136) = RCT(136)*V(48) - A(137) = RCT(137)*V(25)*V(67) - A(138) = RCT(138)*V(25)*V(60) - A(139) = RCT(139)*V(25)*V(64) - A(140) = RCT(140)*V(26)*V(67) - A(141) = RCT(141)*V(26)*V(60) - A(142) = RCT(142)*V(26)*V(64) - -! Aggregate function - Vdot(1) = A(55) - Vdot(2) = 0 - Vdot(3) = 0 - Vdot(4) = 0.52*A(66)+0.22*A(68) - Vdot(5) = 0.09*A(68)+0.16*A(69)+0.39*A(83)+0.46*A(86)+0.4*A(118) - Vdot(6) = 0.039*A(74)+0.039*A(75)+0.039*A(77)+0.039*A(78) - Vdot(7) = 0.108*A(74)+0.108*A(75)+0.108*A(77)+0.108*A(78) - Vdot(8) = 0.012*A(58) - Vdot(9) = 0.008*A(68)+0.008*A(69)+0.008*A(70)+0.008*A(71)+0.008*A(72)+0.008*A(73) - Vdot(10) = 0.0064*A(137)+0.022*A(139) - Vdot(11) = 0.055*A(137)+0.19*A(139) - Vdot(12) = 0.037*A(140)+0.13*A(142) - Vdot(13) = 0.056*A(140)+0.19*A(142) - Vdot(14) = A(121)+A(123)+A(136) - Vdot(15) = -A(55) - Vdot(16) = A(8)-A(21)-A(22) - Vdot(17) = -A(122) - Vdot(18) = A(98)-A(99) - Vdot(19) = -A(9)-A(40)+A(41)+A(42) - Vdot(20) = -A(74) - Vdot(21) = -A(6)+A(49)-A(52)-A(53) - Vdot(22) = -A(75) - Vdot(23) = -A(56)+0.06*A(68)+0.08*A(69) - Vdot(24) = 0.4*A(77)+A(78)-A(79) - Vdot(25) = -A(137)-A(138)-A(139) - Vdot(26) = -A(140)-A(141)-A(142) - Vdot(27) = -A(5)-A(38)+A(44)-A(46) - Vdot(28) = -A(57)+0.01*A(68)+0.01*A(69)+0.2*A(128) - Vdot(29) = 0.8*A(74)+0.45*A(75)-A(76) - Vdot(30) = 1.98*A(18)+1.98*A(19)+1.06*A(68)+2.26*A(69)+A(70)+2.23*A(71)+0.42*A(96)+1.68*A(103)+A(106)+1.98*A(110)& - &+A(113)-A(123)+1.25*A(129)+A(132) - Vdot(31) = -A(12)-A(94)+A(115) - Vdot(32) = -A(3)+A(33)-A(36)+A(45) - Vdot(33) = -A(13)-A(95)+A(116) - Vdot(34) = -A(66)-A(67) - Vdot(35) = 0.03*A(68)+0.04*A(69)-A(100)+0.34*A(127) - Vdot(36) = 0.12*A(74)+0.05*A(75)-A(77)-A(78) - Vdot(37) = A(1)+0.89*A(2)+A(7)+A(21)-A(23)-A(24)-A(25)-A(26)-A(27) - Vdot(38) = -A(4)+A(34)-A(37)+0.3*A(51)+2*A(52)+A(60)+A(62)+A(65)+A(78)+0.07*A(87) - Vdot(39) = A(10)+A(11)+A(14)+A(16)+A(17)+0.33*A(20)-A(54)+A(59)+A(60)+A(65)+0.24*A(66)+0.31*A(68)+0.3*A(69)+2*A(80)& - &+0.69*A(81)+0.07*A(83)+0.16*A(86)+0.64*A(87)+0.59*A(90) - Vdot(40) = A(84)-A(89)-A(92)-A(134) - Vdot(41) = -A(58)+1.1*A(75)+1.86*A(87)+0.18*A(88)+1.6*A(89)+2*A(92)-A(123)+2*A(134) - Vdot(42) = -A(17)+0.95*A(76)+0.3*A(77)-A(80)-A(81) - Vdot(43) = A(82)-A(88)-A(91)-A(133) - Vdot(44) = 0.5*A(85)-A(90)-A(93)-A(135) - Vdot(45) = -A(68)-A(70)-A(72) - Vdot(46) = -A(82)-A(83)-A(84) - Vdot(47) = -A(10)-A(11)+A(12)+0.2*A(20)-A(59)-A(60)+A(66)+1.56*A(67)+0.57*A(68)+A(70)+A(80)+0.7*A(81)+0.6*A(83)+0.15& - &*A(86)+0.28*A(87)+0.63*A(88)+0.25*A(90)+0.3*A(94)+A(100)+A(101)+A(105)+0.5*A(106)+A(108)+A(112)+0.5*A(113)& - &+0.66*A(127)+0.7*A(131)+0.5*A(132) - Vdot(48) = 0.4*A(18)+0.41*A(19)+A(64)+A(67)+A(70)+A(71)+0.08*A(74)+0.5*A(75)+0.6*A(77)+A(80)+0.03*A(81)+0.08*A(82)+0.2& - &*A(83)+0.2*A(85)+0.07*A(86)+0.93*A(87)+0.34*A(103)-A(107)+0.4*A(110)-A(114)-A(121)+0.24*A(129)-A(136) - Vdot(49) = -A(15)+0.74*A(18)+0.74*A(19)+0.03*A(20)-A(63)+0.07*A(69)+0.23*A(71)+0.09*A(86)+0.63*A(90)+0.62*A(103)+0.74& - &*A(110)+0.57*A(129)+0.15*A(131)+0.5*A(135) - Vdot(50) = -A(69)-A(71)-A(73) - Vdot(51) = A(72)+A(73)+A(97)-A(106)-A(113)-A(120)-A(132) - Vdot(52) = 0.1*A(18)+0.1*A(19)+A(57)+0.06*A(68)+0.05*A(69)+0.7*A(95)-A(102)+0.08*A(103)-A(109)+0.1*A(110)-A(116)& - &-A(128)+0.06*A(129) - Vdot(53) = -A(16)-A(64)-A(65)+0.04*A(68)+0.07*A(69)+0.8*A(75)+0.2*A(81)+0.85*A(86)+0.34*A(90)+0.19*A(96)+0.15*A(131) - Vdot(54) = A(13)-A(14)+0.3*A(18)+0.3*A(19)+0.07*A(20)-A(61)-A(62)+0.22*A(67)+0.47*A(68)+1.03*A(69)+A(70)+1.77*A(71)& - &+0.03*A(81)+0.15*A(83)+0.02*A(86)+0.28*A(87)+0.8*A(89)+0.55*A(90)+0.3*A(95)+0.04*A(96)+A(102)+0.25*A(103)& - &+0.5*A(106)+A(109)+0.3*A(110)+0.5*A(113)+A(122)+0.8*A(128)+0.21*A(129)+0.5*A(132)+A(134)+0.5*A(135) - Vdot(55) = A(14)+A(15)+0.7*A(20)+A(56)+0.07*A(68)+0.1*A(69)+0.05*A(86)+0.7*A(94)-A(101)+A(104)-A(108)+A(111)-A(115)& - &-A(127)+A(130) - Vdot(56) = -A(20)+0.65*A(83)-A(85)-A(86)-A(87)+0.91*A(88)+0.2*A(89)+A(133) - Vdot(57) = -A(19)+0.05*A(76)+A(79)+0.93*A(87)+0.09*A(88)+0.8*A(89)+A(92)-A(97)+0.16*A(103)+0.5*A(106)+0.5*A(113)& - &+A(120)+0.5*A(132)+A(134) - Vdot(58) = A(15)+A(16)+A(17)+0.97*A(20)+A(61)+A(62)+A(64)+A(65)+0.13*A(68)+0.19*A(69)+A(80)+0.62*A(81)+0.2*A(83)+0.5& - &*A(85)+0.11*A(86)+0.07*A(87)-A(98)+A(99)-A(104)+A(105)-A(111)+A(112)-A(118)-A(130)+0.7*A(131) - Vdot(59) = -A(1)+0.89*A(2)+A(4)+A(5)+A(6)+A(19)-A(25)-A(26)+A(27)+A(28)-A(29)-A(34)+A(35)+A(36)+A(38)+A(43)-A(44)& - &-A(45)+A(46)+2*A(47)-A(49)+2*A(50)+0.7*A(51)+A(53)+0.95*A(76)-A(79)+0.91*A(88)+1.2*A(89)+A(90)-A(98)+A(99)& - &+A(101)+A(102)+0.84*A(103)+A(104)+A(105)+1.5*A(106)+A(107)+A(108)+A(109)+A(110)+A(111)+A(112)+1.5*A(113)& - &+A(114)+0.5*A(132) - Vdot(60) = -A(2)+A(6)+A(26)+A(29)-A(35)+A(37)-A(47)-A(48)-A(49)-2*A(50)-A(51)+A(53)-A(60)-A(62)-A(65)-A(72)-A(73)& - &-A(78)-A(84)-A(87)-A(108)-A(109)-A(110)-A(111)-A(112)-A(113)-A(114)-A(138)-A(141) - Vdot(61) = A(58)+0.03*A(68)+0.09*A(69)+0.77*A(96)-A(103)-A(110)-A(117)-A(129) - Vdot(62) = A(63)+0.11*A(69)-A(105)-A(112)-A(119)-A(131) - Vdot(63) = A(1)+0.11*A(2)+A(3)+A(25)-A(27)-A(28)-A(33)-A(43)-A(47)+A(48)-A(76)-A(88)-A(89)-A(90)-A(101)-A(102)-A(103)& - &-A(104)-A(105)-A(106)-A(107) - Vdot(64) = -A(7)-A(8)+A(23)-A(24)-A(28)-A(29)-A(30)-A(31)-A(66)-A(68)-A(69)-A(81)-A(83)-A(86)+0.4*A(118)-A(139)-A(142) - Vdot(65) = A(5)+2*A(10)+A(12)+A(13)+A(14)+A(16)+A(17)+0.9*A(18)+0.9*A(19)+0.33*A(20)+A(30)-A(31)+A(32)+A(35)-A(39)& - &+A(40)-2*A(41)-2*A(42)-A(43)-A(44)-A(45)+A(46)-A(51)+A(54)+A(55)+A(59)+A(60)+0.22*A(66)+A(67)+0.26*A(68)& - &+0.22*A(69)+A(70)+A(71)+0.2*A(74)+0.55*A(75)+0.95*A(76)+0.6*A(77)+2*A(80)+0.76*A(81)+0.07*A(83)+0.1*A(86)& - &+0.93*A(87)+0.91*A(88)+0.8*A(89)+A(90)-A(91)-A(92)-A(93)+A(100)+A(101)+A(102)+0.76*A(103)+0.5*A(106)+A(108)& - &+A(109)+0.9*A(110)+0.5*A(113)-A(115)-A(116)-A(117)-A(118)-A(119)-A(120)-A(121)+A(122)+0.32*A(127)+0.6*A(128)& - &+0.54*A(129) - Vdot(66) = -A(18)+A(91)+A(93)-A(96)+A(117)+A(119) - Vdot(67) = A(3)+A(4)+2*A(9)+A(12)+A(13)+A(18)+2*A(22)-A(30)+A(31)-A(32)-A(33)-A(34)-A(35)-A(36)-A(37)-A(38)-A(39)& - &-A(40)+A(43)+0.7*A(51)-A(54)-A(55)-A(56)-A(57)-A(58)-A(59)-A(61)-A(63)-A(64)+0.12*A(66)-A(67)+0.33*A(68)+0.6& - &*A(69)-A(70)-A(71)-A(74)-A(75)-A(77)-A(80)+0.08*A(81)-A(82)+0.27*A(83)-A(85)+0.27*A(86)-0.7*A(94)-0.7*A(95)& - &-0.77*A(96)-A(97)-A(100)-A(122)-A(137)-A(140) - -END SUBROUTINE Fun - -! End of Fun function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE CBMZ_Function - diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_Function.o b/boxmox/compiled_mechs/CBMZ/CBMZ_Function.o deleted file mode 100644 index 70bc653d750bb81f555a5b6fbb3f5cc4bbdd84fa..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/CBMZ_Function.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_Global.f90 b/boxmox/compiled_mechs/CBMZ/CBMZ_Global.f90 deleted file mode 100644 index 47fce76901856f442936d61a0e0c0835ae7951e9..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CBMZ/CBMZ_Global.f90 +++ /dev/null @@ -1,126 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Global Data Module File -! -! Generated by KPP-2.2.3 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 : CBMZ_Global.f90 -! Time : Thu Oct 8 08:21:56 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CBMZ_11803_BOXMOX -! Equation file : CBMZ.kpp -! Output root filename : CBMZ -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CBMZ_Global - - USE CBMZ_Parameters, ONLY: dp, NSPEC, NVAR, NFIX, NREACT, LU_NONZERO - PUBLIC - SAVE - - -! Declaration of global variables - -! C - Concentration of all species - REAL(kind=dp) :: C(NSPEC) -! VAR - Concentrations of variable species (global) - REAL(kind=dp) :: VAR(NVAR) -! FIX - Concentrations of fixed species (global) - REAL(kind=dp) :: FIX(NFIX) -! VAR, FIX are chunks of array C - EQUIVALENCE( C(1),VAR(1) ) - EQUIVALENCE( C(68),FIX(1) ) -! RCONST - Rate constants (global) - REAL(kind=dp) :: RCONST(NREACT) -! TIME - Current integration time - REAL(kind=dp) :: TIME -! SUN - Sunlight intensity between [0,1] - REAL(kind=dp) :: SUN -! TEMP - Temperature - REAL(kind=dp) :: TEMP -! RTOLS - (scalar) Relative tolerance - REAL(kind=dp) :: RTOLS -! TSTART - Integration start time - REAL(kind=dp) :: TSTART -! TEND - Integration end time - REAL(kind=dp) :: TEND -! DT - Integration step - REAL(kind=dp) :: DT -! ATOL - Absolute tolerance - REAL(kind=dp) :: ATOL(NVAR) -! RTOL - Relative tolerance - REAL(kind=dp) :: RTOL(NVAR) -! STEPMIN - Lower bound for integration step - REAL(kind=dp) :: STEPMIN -! STEPMAX - Upper bound for integration step - REAL(kind=dp) :: STEPMAX -! CFACTOR - Conversion factor for concentration units - REAL(kind=dp) :: CFACTOR - -! INLINED global variable declarations - - - ! BOXMOX global variables - - ! Parameters - INTEGER, PARAMETER :: max_species_boxmox = 10000 ! maximum number of species - ! read in - INTEGER, PARAMETER :: max_jhash_boxmox = 10000 ! maximum hash value of - ! photolysis rate labels - - ! Configuration - LOGICAL :: lverbose ! verbose output? - LOGICAL :: llibrary ! library version? - - - ! State definition - REAL(KIND=dp) :: pres ! pressure [Pa] - ! temperature variable temp [K] defined in KPP already - REAL(KIND=dp) :: dxdydz(3), dxdydz_old(3) ! box dimensions (x,y,z) - ! [m] - - ! Turbulent mixing - INTEGER :: iturb ! type of mixing - INTEGER, PARAMETER :: TURB_OPT_NONE = 0, & ! no turbulent mixing - TURB_OPT_SPECIFIED = 1, & ! using specified Kturb - TURB_OPT_VOLUME = 2, & ! using volume changes - TURB_OPT_TRACER = 3 ! using tracer conc. - REAL(KIND=dp) :: Kturb ! eddy diffusivity [m2 s-1] - - ! Photolysis rates - REAL(KIND=dp) :: jvalues(max_jhash_boxmox) ! Photolysis rate [s-1] - - ! Aerosol - REAL(KIND=dp) :: AER_R, & ! particle radius [m] - AER_SAD ! surface area density - ! [m^2 m^-3] - - ! Steady-state modeling - LOGICAL :: lfix_nox ! fix total NOx? - REAL(kind=dp) :: initial_total_nox ! total NOx to fix - - - - ! global variables used by special rate constants of this mechanism - - ! air/water concentration (molecules/cm3) - REAL(KIND=dp) :: c_m, c_h2o - ! relative humidity (not used) - REAL(KIND=dp) :: rh - - -! INLINED global variable declarations - - -END MODULE CBMZ_Global - diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_Global.o b/boxmox/compiled_mechs/CBMZ/CBMZ_Global.o deleted file mode 100644 index 298aa30c8cd17013b3d006b55eefd1660e77b131..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/CBMZ_Global.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_Initialize.f90 b/boxmox/compiled_mechs/CBMZ/CBMZ_Initialize.f90 deleted file mode 100644 index 8e85eb6b415e448fc68c2acbd5b3ab67de2faee2..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CBMZ/CBMZ_Initialize.f90 +++ /dev/null @@ -1,121 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Initialization File -! -! Generated by KPP-2.2.3 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 : CBMZ_Initialize.f90 -! Time : Thu Oct 8 08:21:56 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CBMZ_11803_BOXMOX -! Equation file : CBMZ.kpp -! Output root filename : CBMZ -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CBMZ_Initialize - - USE CBMZ_Parameters, ONLY: dp, NVAR, NFIX - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Initialize - function to initialize concentrations -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Initialize ( ) - - - USE CBMZ_Global - - USE CBMZ_Util - - INTEGER :: i - REAL(kind=dp) :: x - - CFACTOR = 1.000000e+00_dp - - x = (1.0E-9)*CFACTOR - DO i = 1, NVAR - VAR(i) = x - END DO - - x = (1.0E-9)*CFACTOR - DO i = 1, NFIX - FIX(i) = x - END DO - -! constant rate coefficients - RCONST(124) = 1 - RCONST(125) = 1 - RCONST(126) = 1 -! END constant rate coefficients - -! INLINED initializations - - - IF (.NOT. llibrary) THEN - - ! Write version number to VERSION file - CALL writeVersion() - - ! Initialization (time step, run length, etc.) happening - ! in namelist BOXMOX.nml. Read it! - CALL readConfig() - - ENDIF - - ! Check configuration values - CALL checkConfig() - - - - ! BOXMOX defaults for global variables - - ! Environment.csv - temp = 293.15 ! K - pres = 101325.0 ! Pa - dxdydz(:) = 1.0 ! m - - ! Aerosol.csv - AER_SAD = 0.0 ! m^2 m^-3 - AER_R = 1.0e-6 ! m - - ! Turbulent mixing - Kturb = 0.0 ! m2 s-1 - - - - ! 1E-03 * (1.0/28.97) * 6.022e23 * air density - c_m = 2.078702e+19 * 1.25 - - ! 1E-03 * (1.0/18.02) * 6.022e23 * air density, then times kg(water)/kg(air) - c_h2o = 3.341842e+19 * 1.25 * 0.010 - - -! End INLINED initializations - - -END SUBROUTINE Initialize - -! End of Initialize function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE CBMZ_Initialize - diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_Initialize.o b/boxmox/compiled_mechs/CBMZ/CBMZ_Initialize.o deleted file mode 100644 index 74ad7672556a517693398b635558e1d368920902..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/CBMZ_Initialize.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_Integrator.f90 b/boxmox/compiled_mechs/CBMZ/CBMZ_Integrator.f90 deleted file mode 100644 index 33eb80ead35c6c8ae3764438f4395b7f99073fc0..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CBMZ/CBMZ_Integrator.f90 +++ /dev/null @@ -1,1365 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Numerical Integrator (Time-Stepping) File -! -! Generated by KPP-2.2.3 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 : CBMZ_Integrator.f90 -! Time : Thu Oct 8 08:21:56 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CBMZ_11803_BOXMOX -! Equation file : CBMZ.kpp -! Output root filename : CBMZ -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! INTEGRATE - Integrator routine -! Arguments : -! TIN - Start Time for Integration -! TOUT - End Time for Integration -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! -! Rosenbrock - Implementation of several Rosenbrock methods: ! -! * Ros2 ! -! * Ros3 ! -! * Ros4 ! -! * Rodas3 ! -! * Rodas4 ! -! By default the code employs the KPP sparse linear algebra routines ! -! Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK) ! -! ! -! (C) Adrian Sandu, August 2004 ! -! Virginia Polytechnic Institute and State University ! -! Contact: sandu@cs.vt.edu ! -! Revised by Philipp Miehe and Adrian Sandu, May 2006 ! ! -! This implementation is part of KPP - the Kinetic PreProcessor ! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! - -MODULE CBMZ_Integrator - - USE CBMZ_Parameters, ONLY: NVAR, NFIX, NSPEC, LU_NONZERO - USE CBMZ_Global - IMPLICIT NONE - PUBLIC - SAVE - -!~~~> Statistics on the work performed by the Rosenbrock method - INTEGER, PARAMETER :: Nfun=1, Njac=2, Nstp=3, Nacc=4, & - Nrej=5, Ndec=6, Nsol=7, Nsng=8, & - Ntexit=1, Nhexit=2, Nhnew = 3 - -CONTAINS - -SUBROUTINE INTEGRATE( TIN, TOUT, & - ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U, IERR_U ) - - IMPLICIT NONE - - REAL(kind=dp), INTENT(IN) :: TIN ! Start Time - REAL(kind=dp), INTENT(IN) :: TOUT ! End Time - ! Optional input parameters and statistics - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - REAL(kind=dp), INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - REAL(kind=dp), INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: IERR_U - - REAL(kind=dp) :: RCNTRL(20), RSTATUS(20) - INTEGER :: ICNTRL(20), ISTATUS(20), IERR - - INTEGER, SAVE :: Ntotal = 0 - - ICNTRL(:) = 0 - RCNTRL(:) = 0.0_dp - ISTATUS(:) = 0 - RSTATUS(:) = 0.0_dp - - !~~~> fine-tune the integrator: - ICNTRL(1) = 0 ! 0 - non-autonomous, 1 - autonomous - ICNTRL(2) = 0 ! 0 - vector tolerances, 1 - scalars - - ! If optional parameters are given, and if they are >0, - ! then they overwrite default settings. - IF (PRESENT(ICNTRL_U)) THEN - WHERE(ICNTRL_U(:) > 0) ICNTRL(:) = ICNTRL_U(:) - END IF - IF (PRESENT(RCNTRL_U)) THEN - WHERE(RCNTRL_U(:) > 0) RCNTRL(:) = RCNTRL_U(:) - END IF - - - CALL Rosenbrock(NVAR,VAR,TIN,TOUT, & - ATOL,RTOL, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) - - !~~~> Debug option: show no of steps - ! Ntotal = Ntotal + ISTATUS(Nstp) - ! PRINT*,'NSTEPS=',ISTATUS(Nstp),' (',Ntotal,')',' O3=', VAR(ind_O3) - - STEPMIN = RSTATUS(Nhexit) - ! if optional parameters are given for output they - ! are updated with the return information - IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(:) - IF (PRESENT(RSTATUS_U)) RSTATUS_U(:) = RSTATUS(:) - IF (PRESENT(IERR_U)) IERR_U = IERR - -END SUBROUTINE INTEGRATE - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE Rosenbrock(N,Y,Tstart,Tend, & - AbsTol,RelTol, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Solves the system y'=F(t,y) using a Rosenbrock method defined by: -! -! G = 1/(H*gamma(1)) - Jac(t0,Y0) -! T_i = t0 + Alpha(i)*H -! Y_i = Y0 + \sum_{j=1}^{i-1} A(i,j)*K_j -! G * K_i = Fun( T_i, Y_i ) + \sum_{j=1}^S C(i,j)/H * K_j + -! gamma(i)*dF/dT(t0, Y0) -! Y1 = Y0 + \sum_{j=1}^S M(j)*K_j -! -! For details on Rosenbrock methods and their implementation consult: -! E. Hairer and G. Wanner -! "Solving ODEs II. Stiff and differential-algebraic problems". -! Springer series in computational mathematics, Springer-Verlag, 1996. -! The codes contained in the book inspired this implementation. -! -! (C) Adrian Sandu, August 2004 -! Virginia Polytechnic Institute and State University -! Contact: sandu@cs.vt.edu -! Revised by Philipp Miehe and Adrian Sandu, May 2006 -! This implementation is part of KPP - the Kinetic PreProcessor -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT ARGUMENTS: -! -!- Y(N) = vector of initial conditions (at T=Tstart) -!- [Tstart,Tend] = time range of integration -! (if Tstart>Tend the integration is performed backwards in time) -!- RelTol, AbsTol = user precribed accuracy -!- SUBROUTINE Fun( T, Y, Ydot ) = ODE function, -! returns Ydot = Y' = F(T,Y) -!- SUBROUTINE Jac( T, Y, Jcb ) = Jacobian of the ODE function, -! returns Jcb = dFun/dY -!- ICNTRL(1:20) = integer inputs parameters -!- RCNTRL(1:20) = real inputs parameters -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT ARGUMENTS: -! -!- Y(N) -> vector of final states (at T->Tend) -!- ISTATUS(1:20) -> integer output parameters -!- RSTATUS(1:20) -> real output parameters -!- IERR -> job status upon return -! success (positive value) or -! failure (negative value) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT PARAMETERS: -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -! ICNTRL(1) = 1: F = F(y) Independent of T (AUTONOMOUS) -! = 0: F = F(t,y) Depends on T (NON-AUTONOMOUS) -! -! ICNTRL(2) = 0: AbsTol, RelTol are N-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ICNTRL(3) -> selection of a particular Rosenbrock method -! = 0 : Rodas3 (default) -! = 1 : Ros2 -! = 2 : Ros3 -! = 3 : Ros4 -! = 4 : Rodas3 -! = 5 : Rodas4 -! -! ICNTRL(4) -> maximum number of integration steps -! For ICNTRL(4)=0) the default value of 100000 is used -! -! RCNTRL(1) -> Hmin, lower bound for the integration step size -! It is strongly recommended to keep Hmin = ZERO -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! RCNTRL(3) -> Hstart, starting value for the integration step size -! -! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! RCNTRL(5) -> FacMax, upper bound on step increase factor (default=6) -! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! -! OUTPUT ARGUMENTS: -! ----------------- -! -! T -> T value for which the solution has been computed -! (after successful return T=Tend). -! -! Y(N) -> Numerical solution at T -! -! IDID -> Reports on successfulness upon return: -! = 1 for success -! < 0 for error (value equals error code) -! -! ISTATUS(1) -> No. of function calls -! ISTATUS(2) -> No. of jacobian calls -! ISTATUS(3) -> No. of steps -! ISTATUS(4) -> No. of accepted steps -! ISTATUS(5) -> No. of rejected steps (except at very beginning) -! ISTATUS(6) -> No. of LU decompositions -! ISTATUS(7) -> No. of forward/backward substitutions -! ISTATUS(8) -> No. of singular matrix decompositions -! -! RSTATUS(1) -> Texit, the time corresponding to the -! computed Y upon return -! RSTATUS(2) -> Hexit, last accepted step before exit -! RSTATUS(3) -> Hnew, last predicted step (not yet taken) -! For multiple restarts, use Hnew as Hstart -! in the subsequent run -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CBMZ_Parameters - USE CBMZ_LinearAlgebra - IMPLICIT NONE - -!~~~> Arguments - INTEGER, INTENT(IN) :: N - REAL(kind=dp), INTENT(INOUT) :: Y(N) - REAL(kind=dp), INTENT(IN) :: Tstart,Tend - REAL(kind=dp), INTENT(IN) :: AbsTol(N),RelTol(N) - INTEGER, INTENT(IN) :: ICNTRL(20) - REAL(kind=dp), INTENT(IN) :: RCNTRL(20) - INTEGER, INTENT(INOUT) :: ISTATUS(20) - REAL(kind=dp), INTENT(INOUT) :: RSTATUS(20) - INTEGER, INTENT(OUT) :: IERR -!~~~> Parameters of the Rosenbrock method, up to 6 stages - INTEGER :: ros_S, rosMethod - INTEGER, PARAMETER :: RS2=1, RS3=2, RS4=3, RD3=4, RD4=5, RG3=6 - REAL(kind=dp) :: ros_A(15), ros_C(15), ros_M(6), ros_E(6), & - ros_Alpha(6), ros_Gamma(6), ros_ELO - LOGICAL :: ros_NewF(6) - CHARACTER(LEN=12) :: ros_Name -!~~~> Local variables - REAL(kind=dp) :: Roundoff, FacMin, FacMax, FacRej, FacSafe - REAL(kind=dp) :: Hmin, Hmax, Hstart - REAL(kind=dp) :: Texit - INTEGER :: i, UplimTol, Max_no_steps - LOGICAL :: Autonomous, VectorTol -!~~~> Parameters - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp - REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp - -!~~~> Initialize statistics - ISTATUS(1:8) = 0 - RSTATUS(1:3) = ZERO - -!~~~> Autonomous or time dependent ODE. Default is time dependent. - Autonomous = .NOT.(ICNTRL(1) == 0) - -!~~~> For Scalar tolerances (ICNTRL(2).NE.0) the code uses AbsTol(1) and RelTol(1) -! For Vector tolerances (ICNTRL(2) == 0) the code uses AbsTol(1:N) and RelTol(1:N) - IF (ICNTRL(2) == 0) THEN - VectorTol = .TRUE. - UplimTol = N - ELSE - VectorTol = .FALSE. - UplimTol = 1 - END IF - -!~~~> Initialize the particular Rosenbrock method selected - SELECT CASE (ICNTRL(3)) - CASE (1) - CALL Ros2 - CASE (2) - CALL Ros3 - CASE (3) - CALL Ros4 - CASE (0,4) - CALL Rodas3 - CASE (5) - CALL Rodas4 - CASE (6) - CALL Rang3 - CASE DEFAULT - PRINT * , 'Unknown Rosenbrock method: ICNTRL(3)=',ICNTRL(3) - CALL ros_ErrorMsg(-2,Tstart,ZERO,IERR) - RETURN - END SELECT - -!~~~> The maximum number of steps admitted - IF (ICNTRL(4) == 0) THEN - Max_no_steps = 200000 - ELSEIF (ICNTRL(4) > 0) THEN - Max_no_steps=ICNTRL(4) - ELSE - PRINT * ,'User-selected max no. of steps: ICNTRL(4)=',ICNTRL(4) - CALL ros_ErrorMsg(-1,Tstart,ZERO,IERR) - RETURN - END IF - -!~~~> Unit roundoff (1+Roundoff>1) - Roundoff = WLAMCH('E') - -!~~~> Lower bound on the step size: (positive value) - IF (RCNTRL(1) == ZERO) THEN - Hmin = ZERO - ELSEIF (RCNTRL(1) > ZERO) THEN - Hmin = RCNTRL(1) - ELSE - PRINT * , 'User-selected Hmin: RCNTRL(1)=', RCNTRL(1) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Upper bound on the step size: (positive value) - IF (RCNTRL(2) == ZERO) THEN - Hmax = ABS(Tend-Tstart) - ELSEIF (RCNTRL(2) > ZERO) THEN - Hmax = MIN(ABS(RCNTRL(2)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hmax: RCNTRL(2)=', RCNTRL(2) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Starting step size: (positive value) - IF (RCNTRL(3) == ZERO) THEN - Hstart = MAX(Hmin,DeltaMin) - ELSEIF (RCNTRL(3) > ZERO) THEN - Hstart = MIN(ABS(RCNTRL(3)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hstart: RCNTRL(3)=', RCNTRL(3) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Step size can be changed s.t. FacMin < Hnew/Hold < FacMax - IF (RCNTRL(4) == ZERO) THEN - FacMin = 0.2_dp - ELSEIF (RCNTRL(4) > ZERO) THEN - FacMin = RCNTRL(4) - ELSE - PRINT * , 'User-selected FacMin: RCNTRL(4)=', RCNTRL(4) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF - IF (RCNTRL(5) == ZERO) THEN - FacMax = 6.0_dp - ELSEIF (RCNTRL(5) > ZERO) THEN - FacMax = RCNTRL(5) - ELSE - PRINT * , 'User-selected FacMax: RCNTRL(5)=', RCNTRL(5) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacRej: Factor to decrease step after 2 succesive rejections - IF (RCNTRL(6) == ZERO) THEN - FacRej = 0.1_dp - ELSEIF (RCNTRL(6) > ZERO) THEN - FacRej = RCNTRL(6) - ELSE - PRINT * , 'User-selected FacRej: RCNTRL(6)=', RCNTRL(6) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacSafe: Safety Factor in the computation of new step size - IF (RCNTRL(7) == ZERO) THEN - FacSafe = 0.9_dp - ELSEIF (RCNTRL(7) > ZERO) THEN - FacSafe = RCNTRL(7) - ELSE - PRINT * , 'User-selected FacSafe: RCNTRL(7)=', RCNTRL(7) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Check if tolerances are reasonable - DO i=1,UplimTol - IF ( (AbsTol(i) <= ZERO) .OR. (RelTol(i) <= 10.0_dp*Roundoff) & - .OR. (RelTol(i) >= 1.0_dp) ) THEN - PRINT * , ' AbsTol(',i,') = ',AbsTol(i) - PRINT * , ' RelTol(',i,') = ',RelTol(i) - CALL ros_ErrorMsg(-5,Tstart,ZERO,IERR) - RETURN - END IF - END DO - - -!~~~> CALL Rosenbrock method - CALL ros_Integrator(Y, Tstart, Tend, Texit, & - AbsTol, RelTol, & -! Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -! Error indicator - IERR) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -CONTAINS ! SUBROUTINES internal to Rosenbrock -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_ErrorMsg(Code,T,H,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - REAL(kind=dp), INTENT(IN) :: T, H - INTEGER, INTENT(IN) :: Code - INTEGER, INTENT(OUT) :: IERR - - IERR = Code - PRINT * , & - 'Forced exit from Rosenbrock due to the following error:' - - SELECT CASE (Code) - CASE (-1) - PRINT * , '--> Improper value for maximal no of steps' - CASE (-2) - PRINT * , '--> Selected Rosenbrock method not implemented' - CASE (-3) - PRINT * , '--> Hmin/Hmax/Hstart must be positive' - CASE (-4) - PRINT * , '--> FacMin/FacMax/FacRej must be positive' - CASE (-5) - PRINT * , '--> Improper tolerance values' - CASE (-6) - PRINT * , '--> No of steps exceeds maximum bound' - CASE (-7) - PRINT * , '--> Step size too small: T + 10*H = T', & - ' or H < Roundoff' - CASE (-8) - PRINT * , '--> Matrix is repeatedly singular' - CASE DEFAULT - PRINT *, 'Unknown Error code: ', Code - END SELECT - - PRINT *, "T=", T, "and H=", H - - END SUBROUTINE ros_ErrorMsg - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Integrator (Y, Tstart, Tend, T, & - AbsTol, RelTol, & -!~~~> Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -!~~~> Error indicator - IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the implementation of a generic Rosenbrock method -! defined by ros_S (no of stages) -! and its coefficients ros_{A,C,M,E,Alpha,Gamma} -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - -!~~~> Input: the initial condition at Tstart; Output: the solution at T - REAL(kind=dp), INTENT(INOUT) :: Y(N) -!~~~> Input: integration interval - REAL(kind=dp), INTENT(IN) :: Tstart,Tend -!~~~> Output: time at which the solution is returned (T=Tend if success) - REAL(kind=dp), INTENT(OUT) :: T -!~~~> Input: tolerances - REAL(kind=dp), INTENT(IN) :: AbsTol(N), RelTol(N) -!~~~> Input: integration parameters - LOGICAL, INTENT(IN) :: Autonomous, VectorTol - REAL(kind=dp), INTENT(IN) :: Hstart, Hmin, Hmax - INTEGER, INTENT(IN) :: Max_no_steps - REAL(kind=dp), INTENT(IN) :: Roundoff, FacMin, FacMax, FacRej, FacSafe -!~~~> Output: Error indicator - INTEGER, INTENT(OUT) :: IERR -! ~~~~ Local variables - REAL(kind=dp) :: Ynew(N), Fcn0(N), Fcn(N) - REAL(kind=dp) :: K(N*ros_S), dFdT(N) -#ifdef FULL_ALGEBRA - REAL(kind=dp) :: Jac0(N,N), Ghimj(N,N) -#else - REAL(kind=dp) :: Jac0(LU_NONZERO), Ghimj(LU_NONZERO) -#endif - REAL(kind=dp) :: H, Hnew, HC, HG, Fac, Tau - REAL(kind=dp) :: Err, Yerr(N) - INTEGER :: Pivot(N), Direction, ioffset, j, istage - LOGICAL :: RejectLastH, RejectMoreH, Singular -!~~~> Local parameters - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp - REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp -!~~~> Locally called functions -! REAL(kind=dp) WLAMCH -! EXTERNAL WLAMCH -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~> Initial preparations - T = Tstart - RSTATUS(Nhexit) = ZERO - H = MIN( MAX(ABS(Hmin),ABS(Hstart)) , ABS(Hmax) ) - IF (ABS(H) <= 10.0_dp*Roundoff) H = DeltaMin - - IF (Tend >= Tstart) THEN - Direction = +1 - ELSE - Direction = -1 - END IF - H = Direction*H - - RejectLastH=.FALSE. - RejectMoreH=.FALSE. - -!~~~> Time loop begins below - -TimeLoop: DO WHILE ( (Direction > 0).AND.((T-Tend)+Roundoff <= ZERO) & - .OR. (Direction < 0).AND.((Tend-T)+Roundoff <= ZERO) ) - - IF ( ISTATUS(Nstp) > Max_no_steps ) THEN ! Too many steps - CALL ros_ErrorMsg(-6,T,H,IERR) - RETURN - END IF - IF ( ((T+0.1_dp*H) == T).OR.(H <= Roundoff) ) THEN ! Step size too small - CALL ros_ErrorMsg(-7,T,H,IERR) - RETURN - END IF - -!~~~> Limit H if necessary to avoid going beyond Tend - H = MIN(H,ABS(Tend-T)) - -!~~~> Compute the function at current time - CALL FunTemplate(T,Y,Fcn0) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - -!~~~> Compute the function derivative with respect to T - IF (.NOT.Autonomous) THEN - CALL ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) - END IF - -!~~~> Compute the Jacobian at current time - CALL JacTemplate(T,Y,Jac0) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - -!~~~> Repeat step calculation until current step accepted -UntilAccepted: DO - - CALL ros_PrepareMatrix(H,Direction,ros_Gamma(1), & - Jac0,Ghimj,Pivot,Singular) - IF (Singular) THEN ! More than 5 consecutive failed decompositions - CALL ros_ErrorMsg(-8,T,H,IERR) - RETURN - END IF - -!~~~> Compute the stages -Stage: DO istage = 1, ros_S - - ! Current istage offset. Current istage vector is K(ioffset+1:ioffset+N) - ioffset = N*(istage-1) - - ! For the 1st istage the function has been computed previously - IF ( istage == 1 ) THEN - !slim: CALL WCOPY(N,Fcn0,1,Fcn,1) - Fcn(1:N) = Fcn0(1:N) - ! istage>1 and a new function evaluation is needed at the current istage - ELSEIF ( ros_NewF(istage) ) THEN - !slim: CALL WCOPY(N,Y,1,Ynew,1) - Ynew(1:N) = Y(1:N) - DO j = 1, istage-1 - CALL WAXPY(N,ros_A((istage-1)*(istage-2)/2+j), & - K(N*(j-1)+1),1,Ynew,1) - END DO - Tau = T + ros_Alpha(istage)*Direction*H - CALL FunTemplate(Tau,Ynew,Fcn) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - END IF ! if istage == 1 elseif ros_NewF(istage) - !slim: CALL WCOPY(N,Fcn,1,K(ioffset+1),1) - K(ioffset+1:ioffset+N) = Fcn(1:N) - DO j = 1, istage-1 - HC = ros_C((istage-1)*(istage-2)/2+j)/(Direction*H) - CALL WAXPY(N,HC,K(N*(j-1)+1),1,K(ioffset+1),1) - END DO - IF ((.NOT. Autonomous).AND.(ros_Gamma(istage).NE.ZERO)) THEN - HG = Direction*H*ros_Gamma(istage) - CALL WAXPY(N,HG,dFdT,1,K(ioffset+1),1) - END IF - CALL ros_Solve(Ghimj, Pivot, K(ioffset+1)) - - END DO Stage - - -!~~~> Compute the new solution - !slim: CALL WCOPY(N,Y,1,Ynew,1) - Ynew(1:N) = Y(1:N) - DO j=1,ros_S - CALL WAXPY(N,ros_M(j),K(N*(j-1)+1),1,Ynew,1) - END DO - -!~~~> Compute the error estimation - !slim: CALL WSCAL(N,ZERO,Yerr,1) - Yerr(1:N) = ZERO - DO j=1,ros_S - CALL WAXPY(N,ros_E(j),K(N*(j-1)+1),1,Yerr,1) - END DO - Err = ros_ErrorNorm ( Y, Ynew, Yerr, AbsTol, RelTol, VectorTol ) - -!~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax - Fac = MIN(FacMax,MAX(FacMin,FacSafe/Err**(ONE/ros_ELO))) - Hnew = H*Fac - -!~~~> Check the error magnitude and adjust step size - ISTATUS(Nstp) = ISTATUS(Nstp) + 1 - IF ( (Err <= ONE).OR.(H <= Hmin) ) THEN !~~~> Accept step - ISTATUS(Nacc) = ISTATUS(Nacc) + 1 - !slim: CALL WCOPY(N,Ynew,1,Y,1) - Y(1:N) = Ynew(1:N) - T = T + Direction*H - Hnew = MAX(Hmin,MIN(Hnew,Hmax)) - IF (RejectLastH) THEN ! No step size increase after a rejected step - Hnew = MIN(Hnew,H) - END IF - RSTATUS(Nhexit) = H - RSTATUS(Nhnew) = Hnew - RSTATUS(Ntexit) = T - RejectLastH = .FALSE. - RejectMoreH = .FALSE. - H = Hnew - EXIT UntilAccepted ! EXIT THE LOOP: WHILE STEP NOT ACCEPTED - ELSE !~~~> Reject step - IF (RejectMoreH) THEN - Hnew = H*FacRej - END IF - RejectMoreH = RejectLastH - RejectLastH = .TRUE. - H = Hnew - IF (ISTATUS(Nacc) >= 1) ISTATUS(Nrej) = ISTATUS(Nrej) + 1 - END IF ! Err <= 1 - - END DO UntilAccepted - - END DO TimeLoop - -!~~~> Succesful exit - IERR = 1 !~~~> The integration was successful - - END SUBROUTINE ros_Integrator - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - REAL(kind=dp) FUNCTION ros_ErrorNorm ( Y, Ynew, Yerr, & - AbsTol, RelTol, VectorTol ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Computes the "scaled norm" of the error vector Yerr -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -! Input arguments - REAL(kind=dp), INTENT(IN) :: Y(N), Ynew(N), & - Yerr(N), AbsTol(N), RelTol(N) - LOGICAL, INTENT(IN) :: VectorTol -! Local variables - REAL(kind=dp) :: Err, Scale, Ymax - INTEGER :: i - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp - - Err = ZERO - DO i=1,N - Ymax = MAX(ABS(Y(i)),ABS(Ynew(i))) - IF (VectorTol) THEN - Scale = AbsTol(i)+RelTol(i)*Ymax - ELSE - Scale = AbsTol(1)+RelTol(1)*Ymax - END IF - Err = Err+(Yerr(i)/Scale)**2 - END DO - Err = SQRT(Err/N) - - ros_ErrorNorm = MAX(Err,1.0d-10) - - END FUNCTION ros_ErrorNorm - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> The time partial derivative of the function by finite differences -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -!~~~> Input arguments - REAL(kind=dp), INTENT(IN) :: T, Roundoff, Y(N), Fcn0(N) -!~~~> Output arguments - REAL(kind=dp), INTENT(OUT) :: dFdT(N) -!~~~> Local variables - REAL(kind=dp) :: Delta - REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, DeltaMin = 1.0E-6_dp - - Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T)) - CALL FunTemplate(T+Delta,Y,dFdT) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - CALL WAXPY(N,(-ONE),Fcn0,1,dFdT,1) - CALL WSCAL(N,(ONE/Delta),dFdT,1) - - END SUBROUTINE ros_FunTimeDerivative - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_PrepareMatrix ( H, Direction, gam, & - Jac0, Ghimj, Pivot, Singular ) -! --- --- --- --- --- --- --- --- --- --- --- --- --- -! Prepares the LHS matrix for stage calculations -! 1. Construct Ghimj = 1/(H*ham) - Jac0 -! "(Gamma H) Inverse Minus Jacobian" -! 2. Repeat LU decomposition of Ghimj until successful. -! -half the step size if LU decomposition fails and retry -! -exit after 5 consecutive fails -! --- --- --- --- --- --- --- --- --- --- --- --- --- - IMPLICIT NONE - -!~~~> Input arguments -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(IN) :: Jac0(N,N) -#else - REAL(kind=dp), INTENT(IN) :: Jac0(LU_NONZERO) -#endif - REAL(kind=dp), INTENT(IN) :: gam - INTEGER, INTENT(IN) :: Direction -!~~~> Output arguments -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(OUT) :: Ghimj(N,N) -#else - REAL(kind=dp), INTENT(OUT) :: Ghimj(LU_NONZERO) -#endif - LOGICAL, INTENT(OUT) :: Singular - INTEGER, INTENT(OUT) :: Pivot(N) -!~~~> Inout arguments - REAL(kind=dp), INTENT(INOUT) :: H ! step size is decreased when LU fails -!~~~> Local variables - INTEGER :: i, ISING, Nconsecutive - REAL(kind=dp) :: ghinv - REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, HALF = 0.5_dp - - Nconsecutive = 0 - Singular = .TRUE. - - DO WHILE (Singular) - -!~~~> Construct Ghimj = 1/(H*gam) - Jac0 -#ifdef FULL_ALGEBRA - !slim: CALL WCOPY(N*N,Jac0,1,Ghimj,1) - !slim: CALL WSCAL(N*N,(-ONE),Ghimj,1) - Ghimj = -Jac0 - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(i,i) = Ghimj(i,i)+ghinv - END DO -#else - !slim: CALL WCOPY(LU_NONZERO,Jac0,1,Ghimj,1) - !slim: CALL WSCAL(LU_NONZERO,(-ONE),Ghimj,1) - Ghimj(1:LU_NONZERO) = -Jac0(1:LU_NONZERO) - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(LU_DIAG(i)) = Ghimj(LU_DIAG(i))+ghinv - END DO -#endif -!~~~> Compute LU decomposition - CALL ros_Decomp( Ghimj, Pivot, ISING ) - IF (ISING == 0) THEN -!~~~> If successful done - Singular = .FALSE. - ELSE ! ISING .ne. 0 -!~~~> If unsuccessful half the step size; if 5 consecutive fails then return - ISTATUS(Nsng) = ISTATUS(Nsng) + 1 - Nconsecutive = Nconsecutive+1 - Singular = .TRUE. - PRINT*,'Warning: LU Decomposition returned ISING = ',ISING - IF (Nconsecutive <= 5) THEN ! Less than 5 consecutive failed decompositions - H = H*HALF - ELSE ! More than 5 consecutive failed decompositions - RETURN - END IF ! Nconsecutive - END IF ! ISING - - END DO ! WHILE Singular - - END SUBROUTINE ros_PrepareMatrix - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Decomp( A, Pivot, ISING ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the LU decomposition -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Inout variables -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(INOUT) :: A(N,N) -#else - REAL(kind=dp), INTENT(INOUT) :: A(LU_NONZERO) -#endif -!~~~> Output variables - INTEGER, INTENT(OUT) :: Pivot(N), ISING - -#ifdef FULL_ALGEBRA - CALL DGETRF( N, N, A, N, Pivot, ISING ) -#else - CALL KppDecomp ( A, ISING ) - Pivot(1) = 1 -#endif - ISTATUS(Ndec) = ISTATUS(Ndec) + 1 - - END SUBROUTINE ros_Decomp - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Solve( A, Pivot, b ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the forward/backward substitution (using pre-computed LU decomposition) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Input variables -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(IN) :: A(N,N) - INTEGER :: ISING -#else - REAL(kind=dp), INTENT(IN) :: A(LU_NONZERO) -#endif - INTEGER, INTENT(IN) :: Pivot(N) -!~~~> InOut variables - REAL(kind=dp), INTENT(INOUT) :: b(N) - -#ifdef FULL_ALGEBRA - CALL DGETRS( 'N', N , 1, A, N, Pivot, b, N, ISING ) - IF ( Info < 0 ) THEN - PRINT*,"Error in DGETRS. ISING=",ISING - END IF -#else - CALL KppSolve( A, b ) -#endif - - ISTATUS(Nsol) = ISTATUS(Nsol) + 1 - - END SUBROUTINE ros_Solve - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 2 stages, order 2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - DOUBLE PRECISION g - - g = 1.0_dp + 1.0_dp/SQRT(2.0_dp) - rosMethod = RS2 -!~~~> Name of the method - ros_Name = 'ROS-2' -!~~~> Number of stages - ros_S = 2 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = (1.0_dp)/g - ros_C(1) = (-2.0_dp)/g -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1)= (3.0_dp)/(2.0_dp*g) - ros_M(2)= (1.0_dp)/(2.0_dp*g) -! E_i = Coefficients for error estimator - ros_E(1) = 1.0_dp/(2.0_dp*g) - ros_E(2) = 1.0_dp/(2.0_dp*g) -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus one - ros_ELO = 2.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 1.0_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = g - ros_Gamma(2) =-g - - END SUBROUTINE Ros2 - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 3 stages, order 3, 2 function evaluations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - rosMethod = RS3 -!~~~> Name of the method - ros_Name = 'ROS-3' -!~~~> Number of stages - ros_S = 3 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1)= 1.0_dp - ros_A(2)= 1.0_dp - ros_A(3)= 0.0_dp - - ros_C(1) = -0.10156171083877702091975600115545E+01_dp - ros_C(2) = 0.40759956452537699824805835358067E+01_dp - ros_C(3) = 0.92076794298330791242156818474003E+01_dp -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.1E+01_dp - ros_M(2) = 0.61697947043828245592553615689730E+01_dp - ros_M(3) = -0.42772256543218573326238373806514_dp -! E_i = Coefficients for error estimator - ros_E(1) = 0.5_dp - ros_E(2) = -0.29079558716805469821718236208017E+01_dp - ros_E(3) = 0.22354069897811569627360909276199_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1)= 0.0_dp - ros_Alpha(2)= 0.43586652150845899941601945119356_dp - ros_Alpha(3)= 0.43586652150845899941601945119356_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1)= 0.43586652150845899941601945119356_dp - ros_Gamma(2)= 0.24291996454816804366592249683314_dp - ros_Gamma(3)= 0.21851380027664058511513169485832E+01_dp - - END SUBROUTINE Ros3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! L-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 4 STAGES -! L-STABLE EMBEDDED ROSENBROCK METHOD OF ORDER 3 -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1990) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RS4 -!~~~> Name of the method - ros_Name = 'ROS-4' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.2000000000000000E+01_dp - ros_A(2) = 0.1867943637803922E+01_dp - ros_A(3) = 0.2344449711399156_dp - ros_A(4) = ros_A(2) - ros_A(5) = ros_A(3) - ros_A(6) = 0.0_dp - - ros_C(1) =-0.7137615036412310E+01_dp - ros_C(2) = 0.2580708087951457E+01_dp - ros_C(3) = 0.6515950076447975_dp - ros_C(4) =-0.2137148994382534E+01_dp - ros_C(5) =-0.3214669691237626_dp - ros_C(6) =-0.6949742501781779_dp -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.2255570073418735E+01_dp - ros_M(2) = 0.2870493262186792_dp - ros_M(3) = 0.4353179431840180_dp - ros_M(4) = 0.1093502252409163E+01_dp -!~~~> E_i = Coefficients for error estimator - ros_E(1) =-0.2815431932141155_dp - ros_E(2) =-0.7276199124938920E-01_dp - ros_E(3) =-0.1082196201495311_dp - ros_E(4) =-0.1093502252409163E+01_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 0.1145640000000000E+01_dp - ros_Alpha(3) = 0.6552168638155900_dp - ros_Alpha(4) = ros_Alpha(3) -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5728200000000000_dp - ros_Gamma(2) =-0.1769193891319233E+01_dp - ros_Gamma(3) = 0.7592633437920482_dp - ros_Gamma(4) =-0.1049021087100450_dp - - END SUBROUTINE Ros4 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- A STIFFLY-STABLE METHOD, 4 stages, order 3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD3 -!~~~> Name of the method - ros_Name = 'RODAS-3' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.0_dp - ros_A(2) = 2.0_dp - ros_A(3) = 0.0_dp - ros_A(4) = 2.0_dp - ros_A(5) = 0.0_dp - ros_A(6) = 1.0_dp - - ros_C(1) = 4.0_dp - ros_C(2) = 1.0_dp - ros_C(3) =-1.0_dp - ros_C(4) = 1.0_dp - ros_C(5) =-1.0_dp - ros_C(6) =-(8.0_dp/3.0_dp) - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .FALSE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 2.0_dp - ros_M(2) = 0.0_dp - ros_M(3) = 1.0_dp - ros_M(4) = 1.0_dp -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0_dp - ros_E(2) = 0.0_dp - ros_E(3) = 0.0_dp - ros_E(4) = 1.0_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 0.0_dp - ros_Alpha(3) = 1.0_dp - ros_Alpha(4) = 1.0_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5_dp - ros_Gamma(2) = 1.5_dp - ros_Gamma(3) = 0.0_dp - ros_Gamma(4) = 0.0_dp - - END SUBROUTINE Rodas3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 6 STAGES -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1996) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD4 -!~~~> Name of the method - ros_Name = 'RODAS-4' -!~~~> Number of stages - ros_S = 6 - -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.000_dp - ros_Alpha(2) = 0.386_dp - ros_Alpha(3) = 0.210_dp - ros_Alpha(4) = 0.630_dp - ros_Alpha(5) = 1.000_dp - ros_Alpha(6) = 1.000_dp - -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.2500000000000000_dp - ros_Gamma(2) =-0.1043000000000000_dp - ros_Gamma(3) = 0.1035000000000000_dp - ros_Gamma(4) =-0.3620000000000023E-01_dp - ros_Gamma(5) = 0.0_dp - ros_Gamma(6) = 0.0_dp - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.1544000000000000E+01_dp - ros_A(2) = 0.9466785280815826_dp - ros_A(3) = 0.2557011698983284_dp - ros_A(4) = 0.3314825187068521E+01_dp - ros_A(5) = 0.2896124015972201E+01_dp - ros_A(6) = 0.9986419139977817_dp - ros_A(7) = 0.1221224509226641E+01_dp - ros_A(8) = 0.6019134481288629E+01_dp - ros_A(9) = 0.1253708332932087E+02_dp - ros_A(10) =-0.6878860361058950_dp - ros_A(11) = ros_A(7) - ros_A(12) = ros_A(8) - ros_A(13) = ros_A(9) - ros_A(14) = ros_A(10) - ros_A(15) = 1.0_dp - - ros_C(1) =-0.5668800000000000E+01_dp - ros_C(2) =-0.2430093356833875E+01_dp - ros_C(3) =-0.2063599157091915_dp - ros_C(4) =-0.1073529058151375_dp - ros_C(5) =-0.9594562251023355E+01_dp - ros_C(6) =-0.2047028614809616E+02_dp - ros_C(7) = 0.7496443313967647E+01_dp - ros_C(8) =-0.1024680431464352E+02_dp - ros_C(9) =-0.3399990352819905E+02_dp - ros_C(10) = 0.1170890893206160E+02_dp - ros_C(11) = 0.8083246795921522E+01_dp - ros_C(12) =-0.7981132988064893E+01_dp - ros_C(13) =-0.3152159432874371E+02_dp - ros_C(14) = 0.1631930543123136E+02_dp - ros_C(15) =-0.6058818238834054E+01_dp - -!~~~> M_i = Coefficients for new step solution - ros_M(1) = ros_A(7) - ros_M(2) = ros_A(8) - ros_M(3) = ros_A(9) - ros_M(4) = ros_A(10) - ros_M(5) = 1.0_dp - ros_M(6) = 1.0_dp - -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0_dp - ros_E(2) = 0.0_dp - ros_E(3) = 0.0_dp - ros_E(4) = 0.0_dp - ros_E(5) = 0.0_dp - ros_E(6) = 1.0_dp - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - ros_NewF(5) = .TRUE. - ros_NewF(6) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0_dp - - END SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rang3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE W METHOD OF ORDER 3, WITH 4 STAGES -! -! J. RANG and L. ANGERMANN -! NEW ROSENBROCK W-METHODS OF ORDER 3 -! FOR PARTIAL DIFFERENTIAL ALGEBRAIC -! EQUATIONS OF INDEX 1 -! BIT Numerical Mathematics (2005) 45: 761-787 -! DOI: 10.1007/s10543-005-0035-y -! Table 4.1-4.2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RG3 -!~~~> Name of the method - ros_Name = 'RANG-3' -!~~~> Number of stages - ros_S = 4 - - ros_A(1) = 5.09052051067020d+00; - ros_A(2) = 5.09052051067020d+00; - ros_A(3) = 0.0d0; - ros_A(4) = 4.97628111010787d+00; - ros_A(5) = 2.77268164715849d-02; - ros_A(6) = 2.29428036027904d-01; - - ros_C(1) = -1.16790812312283d+01; - ros_C(2) = -1.64057326467367d+01; - ros_C(3) = -2.77268164715850d-01; - ros_C(4) = -8.38103960500476d+00; - ros_C(5) = -8.48328409199343d-01; - ros_C(6) = 2.87009860433106d-01; - - ros_M(1) = 5.22582761233094d+00; - ros_M(2) = -5.56971148154165d-01; - ros_M(3) = 3.57979469353645d-01; - ros_M(4) = 1.72337398521064d+00; - - ros_E(1) = -5.16845212784040d+00; - ros_E(2) = -1.26351942603842d+00; - ros_E(3) = -1.11022302462516d-16; - ros_E(4) = 2.22044604925031d-16; - - ros_Alpha(1) = 0.0d00; - ros_Alpha(2) = 2.21878746765329d+00; - ros_Alpha(3) = 2.21878746765329d+00; - ros_Alpha(4) = 1.55392337535788d+00; - - ros_Gamma(1) = 4.35866521508459d-01; - ros_Gamma(2) = -1.78292094614483d+00; - ros_Gamma(3) = -2.46541900496934d+00; - ros_Gamma(4) = -8.05529997906370d-01; - - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp - - END SUBROUTINE Rang3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! End of the set of internal Rosenbrock subroutines -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -END SUBROUTINE Rosenbrock -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE FunTemplate( T, Y, Ydot ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE function call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE CBMZ_Parameters, ONLY: NVAR, LU_NONZERO - USE CBMZ_Global, ONLY: FIX, RCONST, TIME - USE CBMZ_Function, ONLY: Fun - USE CBMZ_Rates, ONLY: Update_SUN, Update_RCONST -!~~~> Input variables - REAL(kind=dp) :: T, Y(NVAR) -!~~~> Output variables - REAL(kind=dp) :: Ydot(NVAR) -!~~~> Local variables - REAL(kind=dp) :: Told - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, Ydot ) - TIME = Told - -END SUBROUTINE FunTemplate - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE JacTemplate( T, Y, Jcb ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE Jacobian call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE CBMZ_Parameters, ONLY: NVAR, LU_NONZERO - USE CBMZ_Global, ONLY: FIX, RCONST, TIME - USE CBMZ_Jacobian, ONLY: Jac_SP, LU_IROW, LU_ICOL - USE CBMZ_LinearAlgebra - USE CBMZ_Rates, ONLY: Update_SUN, Update_RCONST -!~~~> Input variables - REAL(kind=dp) :: T, Y(NVAR) -!~~~> Output variables -#ifdef FULL_ALGEBRA - REAL(kind=dp) :: JV(LU_NONZERO), Jcb(NVAR,NVAR) -#else - REAL(kind=dp) :: Jcb(LU_NONZERO) -#endif -!~~~> Local variables - REAL(kind=dp) :: Told -#ifdef FULL_ALGEBRA - INTEGER :: i, j -#endif - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() -#ifdef FULL_ALGEBRA - CALL Jac_SP(Y, FIX, RCONST, JV) - DO j=1,NVAR - DO i=1,NVAR - Jcb(i,j) = 0.0_dp - END DO - END DO - DO i=1,LU_NONZERO - Jcb(LU_IROW(i),LU_ICOL(i)) = JV(i) - END DO -#else - CALL Jac_SP( Y, FIX, RCONST, Jcb ) -#endif - TIME = Told - -END SUBROUTINE JacTemplate - -END MODULE CBMZ_Integrator - - - - -! End of INTEGRATE function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_Integrator.o b/boxmox/compiled_mechs/CBMZ/CBMZ_Integrator.o deleted file mode 100644 index c9990bd86a46986c5e6d604e6a389477eb8c43e5..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/CBMZ_Integrator.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_Jacobian.f90 b/boxmox/compiled_mechs/CBMZ/CBMZ_Jacobian.f90 deleted file mode 100644 index ea36d0ca7aee861e40524b53c05273f994de9ab4..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CBMZ/CBMZ_Jacobian.f90 +++ /dev/null @@ -1,2121 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The ODE Jacobian of Chemical Model File -! -! Generated by KPP-2.2.3 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 : CBMZ_Jacobian.f90 -! Time : Thu Oct 8 08:21:56 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CBMZ_11803_BOXMOX -! Equation file : CBMZ.kpp -! Output root filename : CBMZ -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CBMZ_Jacobian - - USE CBMZ_Parameters - USE CBMZ_JacobianSP - - USE CBMZ_Global - - 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(246) - -! B(1) = dA(1)/dV(59) - B(1) = RCT(1) -! B(2) = dA(2)/dV(60) - B(2) = RCT(2) -! B(3) = dA(3)/dV(32) - B(3) = RCT(3) -! B(4) = dA(4)/dV(38) - B(4) = RCT(4) -! B(5) = dA(5)/dV(27) - B(5) = RCT(5) -! B(6) = dA(6)/dV(21) - B(6) = RCT(6) -! B(7) = dA(7)/dV(64) - B(7) = RCT(7) -! B(8) = dA(8)/dV(64) - B(8) = RCT(8) -! B(9) = dA(9)/dV(19) - B(9) = RCT(9) -! B(10) = dA(10)/dV(47) - B(10) = RCT(10) -! B(11) = dA(11)/dV(47) - B(11) = RCT(11) -! B(12) = dA(12)/dV(31) - B(12) = RCT(12) -! B(13) = dA(13)/dV(33) - B(13) = RCT(13) -! B(14) = dA(14)/dV(54) - B(14) = RCT(14) -! B(15) = dA(15)/dV(49) - B(15) = RCT(15) -! B(16) = dA(16)/dV(53) - B(16) = RCT(16) -! B(17) = dA(17)/dV(42) - B(17) = RCT(17) -! B(18) = dA(18)/dV(66) - B(18) = RCT(18) -! B(19) = dA(19)/dV(57) - B(19) = RCT(19) -! B(20) = dA(20)/dV(56) - B(20) = RCT(20) -! B(21) = dA(21)/dV(16) - B(21) = RCT(21)*F(2) -! B(23) = dA(22)/dV(16) - B(23) = RCT(22)*F(1) -! B(25) = dA(23)/dV(37) - B(25) = RCT(23)*F(2) -! B(27) = dA(24)/dV(37) - B(27) = RCT(24)*V(64) -! B(28) = dA(24)/dV(64) - B(28) = RCT(24)*V(37) -! B(29) = dA(25)/dV(37) - B(29) = RCT(25)*V(59) -! B(30) = dA(25)/dV(59) - B(30) = RCT(25)*V(37) -! B(31) = dA(26)/dV(37) - B(31) = RCT(26)*V(59) -! B(32) = dA(26)/dV(59) - B(32) = RCT(26)*V(37) -! B(33) = dA(27)/dV(37) - B(33) = RCT(27)*V(63) -! B(34) = dA(27)/dV(63) - B(34) = RCT(27)*V(37) -! B(35) = dA(28)/dV(63) - B(35) = RCT(28)*V(64) -! B(36) = dA(28)/dV(64) - B(36) = RCT(28)*V(63) -! B(37) = dA(29)/dV(59) - B(37) = RCT(29)*V(64) -! B(38) = dA(29)/dV(64) - B(38) = RCT(29)*V(59) -! B(39) = dA(30)/dV(64) - B(39) = RCT(30)*V(67) -! B(40) = dA(30)/dV(67) - B(40) = RCT(30)*V(64) -! B(41) = dA(31)/dV(64) - B(41) = RCT(31)*V(65) -! B(42) = dA(31)/dV(65) - B(42) = RCT(31)*V(64) -! B(43) = dA(32)/dV(67) - B(43) = RCT(32)*F(2) -! B(45) = dA(33)/dV(63) - B(45) = RCT(33)*V(67) -! B(46) = dA(33)/dV(67) - B(46) = RCT(33)*V(63) -! B(47) = dA(34)/dV(59) - B(47) = RCT(34)*V(67) -! B(48) = dA(34)/dV(67) - B(48) = RCT(34)*V(59) -! B(49) = dA(35)/dV(60) - B(49) = RCT(35)*V(67) -! B(50) = dA(35)/dV(67) - B(50) = RCT(35)*V(60) -! B(51) = dA(36)/dV(32) - B(51) = RCT(36)*V(67) -! B(52) = dA(36)/dV(67) - B(52) = RCT(36)*V(32) -! B(53) = dA(37)/dV(38) - B(53) = RCT(37)*V(67) -! B(54) = dA(37)/dV(67) - B(54) = RCT(37)*V(38) -! B(55) = dA(38)/dV(27) - B(55) = RCT(38)*V(67) -! B(56) = dA(38)/dV(67) - B(56) = RCT(38)*V(27) -! B(57) = dA(39)/dV(65) - B(57) = RCT(39)*V(67) -! B(58) = dA(39)/dV(67) - B(58) = RCT(39)*V(65) -! B(59) = dA(40)/dV(19) - B(59) = RCT(40)*V(67) -! B(60) = dA(40)/dV(67) - B(60) = RCT(40)*V(19) -! B(61) = dA(41)/dV(65) - B(61) = RCT(41)*2*V(65) -! B(62) = dA(42)/dV(65) - B(62) = RCT(42)*2*V(65)*F(1) -! B(64) = dA(43)/dV(63) - B(64) = RCT(43)*V(65) -! B(65) = dA(43)/dV(65) - B(65) = RCT(43)*V(63) -! B(66) = dA(44)/dV(59) - B(66) = RCT(44)*V(65) -! B(67) = dA(44)/dV(65) - B(67) = RCT(44)*V(59) -! B(68) = dA(45)/dV(59) - B(68) = RCT(45)*V(65) -! B(69) = dA(45)/dV(65) - B(69) = RCT(45)*V(59) -! B(70) = dA(46)/dV(27) - B(70) = RCT(46) -! B(71) = dA(47)/dV(60) - B(71) = RCT(47)*V(63) -! B(72) = dA(47)/dV(63) - B(72) = RCT(47)*V(60) -! B(73) = dA(48)/dV(59) - B(73) = RCT(48)*V(60) -! B(74) = dA(48)/dV(60) - B(74) = RCT(48)*V(59) -! B(75) = dA(49)/dV(59) - B(75) = RCT(49)*V(60) -! B(76) = dA(49)/dV(60) - B(76) = RCT(49)*V(59) -! B(77) = dA(50)/dV(60) - B(77) = RCT(50)*2*V(60) -! B(78) = dA(51)/dV(60) - B(78) = RCT(51)*V(65) -! B(79) = dA(51)/dV(65) - B(79) = RCT(51)*V(60) -! B(80) = dA(52)/dV(21) - B(80) = RCT(52)*F(1) -! B(82) = dA(53)/dV(21) - B(82) = RCT(53) -! B(83) = dA(54)/dV(39) - B(83) = RCT(54)*V(67) -! B(84) = dA(54)/dV(67) - B(84) = RCT(54)*V(39) -! B(85) = dA(55)/dV(15) - B(85) = RCT(55)*V(67) -! B(86) = dA(55)/dV(67) - B(86) = RCT(55)*V(15) -! B(87) = dA(56)/dV(23) - B(87) = RCT(56)*V(67) -! B(88) = dA(56)/dV(67) - B(88) = RCT(56)*V(23) -! B(89) = dA(57)/dV(28) - B(89) = RCT(57)*V(67) -! B(90) = dA(57)/dV(67) - B(90) = RCT(57)*V(28) -! B(91) = dA(58)/dV(41) - B(91) = RCT(58)*V(67) -! B(92) = dA(58)/dV(67) - B(92) = RCT(58)*V(41) -! B(93) = dA(59)/dV(47) - B(93) = RCT(59)*V(67) -! B(94) = dA(59)/dV(67) - B(94) = RCT(59)*V(47) -! B(95) = dA(60)/dV(47) - B(95) = RCT(60)*V(60) -! B(96) = dA(60)/dV(60) - B(96) = RCT(60)*V(47) -! B(97) = dA(61)/dV(54) - B(97) = RCT(61)*V(67) -! B(98) = dA(61)/dV(67) - B(98) = RCT(61)*V(54) -! B(99) = dA(62)/dV(54) - B(99) = RCT(62)*V(60) -! B(100) = dA(62)/dV(60) - B(100) = RCT(62)*V(54) -! B(101) = dA(63)/dV(49) - B(101) = RCT(63)*V(67) -! B(102) = dA(63)/dV(67) - B(102) = RCT(63)*V(49) -! B(103) = dA(64)/dV(53) - B(103) = RCT(64)*V(67) -! B(104) = dA(64)/dV(67) - B(104) = RCT(64)*V(53) -! B(105) = dA(65)/dV(53) - B(105) = RCT(65)*V(60) -! B(106) = dA(65)/dV(60) - B(106) = RCT(65)*V(53) -! B(107) = dA(66)/dV(34) - B(107) = RCT(66)*V(64) -! B(108) = dA(66)/dV(64) - B(108) = RCT(66)*V(34) -! B(109) = dA(67)/dV(34) - B(109) = RCT(67)*V(67) -! B(110) = dA(67)/dV(67) - B(110) = RCT(67)*V(34) -! B(111) = dA(68)/dV(45) - B(111) = RCT(68)*V(64) -! B(112) = dA(68)/dV(64) - B(112) = RCT(68)*V(45) -! B(113) = dA(69)/dV(50) - B(113) = RCT(69)*V(64) -! B(114) = dA(69)/dV(64) - B(114) = RCT(69)*V(50) -! B(115) = dA(70)/dV(45) - B(115) = RCT(70)*V(67) -! B(116) = dA(70)/dV(67) - B(116) = RCT(70)*V(45) -! B(117) = dA(71)/dV(50) - B(117) = RCT(71)*V(67) -! B(118) = dA(71)/dV(67) - B(118) = RCT(71)*V(50) -! B(119) = dA(72)/dV(45) - B(119) = RCT(72)*V(60) -! B(120) = dA(72)/dV(60) - B(120) = RCT(72)*V(45) -! B(121) = dA(73)/dV(50) - B(121) = RCT(73)*V(60) -! B(122) = dA(73)/dV(60) - B(122) = RCT(73)*V(50) -! B(123) = dA(74)/dV(20) - B(123) = RCT(74)*V(67) -! B(124) = dA(74)/dV(67) - B(124) = RCT(74)*V(20) -! B(125) = dA(75)/dV(22) - B(125) = RCT(75)*V(67) -! B(126) = dA(75)/dV(67) - B(126) = RCT(75)*V(22) -! B(127) = dA(76)/dV(29) - B(127) = RCT(76)*V(63) -! B(128) = dA(76)/dV(63) - B(128) = RCT(76)*V(29) -! B(129) = dA(77)/dV(36) - B(129) = RCT(77)*V(67) -! B(130) = dA(77)/dV(67) - B(130) = RCT(77)*V(36) -! B(131) = dA(78)/dV(36) - B(131) = RCT(78)*V(60) -! B(132) = dA(78)/dV(60) - B(132) = RCT(78)*V(36) -! B(133) = dA(79)/dV(24) - B(133) = RCT(79)*V(59) -! B(134) = dA(79)/dV(59) - B(134) = RCT(79)*V(24) -! B(135) = dA(80)/dV(42) - B(135) = RCT(80)*V(67) -! B(136) = dA(80)/dV(67) - B(136) = RCT(80)*V(42) -! B(137) = dA(81)/dV(42) - B(137) = RCT(81)*V(64) -! B(138) = dA(81)/dV(64) - B(138) = RCT(81)*V(42) -! B(139) = dA(82)/dV(46) - B(139) = RCT(82)*V(67) -! B(140) = dA(82)/dV(67) - B(140) = RCT(82)*V(46) -! B(141) = dA(83)/dV(46) - B(141) = RCT(83)*V(64) -! B(142) = dA(83)/dV(64) - B(142) = RCT(83)*V(46) -! B(143) = dA(84)/dV(46) - B(143) = RCT(84)*V(60) -! B(144) = dA(84)/dV(60) - B(144) = RCT(84)*V(46) -! B(145) = dA(85)/dV(56) - B(145) = RCT(85)*V(67) -! B(146) = dA(85)/dV(67) - B(146) = RCT(85)*V(56) -! B(147) = dA(86)/dV(56) - B(147) = RCT(86)*V(64) -! B(148) = dA(86)/dV(64) - B(148) = RCT(86)*V(56) -! B(149) = dA(87)/dV(56) - B(149) = RCT(87)*V(60) -! B(150) = dA(87)/dV(60) - B(150) = RCT(87)*V(56) -! B(151) = dA(88)/dV(43) - B(151) = RCT(88)*V(63) -! B(152) = dA(88)/dV(63) - B(152) = RCT(88)*V(43) -! B(153) = dA(89)/dV(40) - B(153) = RCT(89)*V(63) -! B(154) = dA(89)/dV(63) - B(154) = RCT(89)*V(40) -! B(155) = dA(90)/dV(44) - B(155) = RCT(90)*V(63) -! B(156) = dA(90)/dV(63) - B(156) = RCT(90)*V(44) -! B(157) = dA(91)/dV(43) - B(157) = RCT(91)*V(65) -! B(158) = dA(91)/dV(65) - B(158) = RCT(91)*V(43) -! B(159) = dA(92)/dV(40) - B(159) = RCT(92)*V(65) -! B(160) = dA(92)/dV(65) - B(160) = RCT(92)*V(40) -! B(161) = dA(93)/dV(44) - B(161) = RCT(93)*V(65) -! B(162) = dA(93)/dV(65) - B(162) = RCT(93)*V(44) -! B(163) = dA(94)/dV(31) - B(163) = RCT(94)*V(67) -! B(164) = dA(94)/dV(67) - B(164) = RCT(94)*V(31) -! B(165) = dA(95)/dV(33) - B(165) = RCT(95)*V(67) -! B(166) = dA(95)/dV(67) - B(166) = RCT(95)*V(33) -! B(167) = dA(96)/dV(66) - B(167) = RCT(96)*V(67) -! B(168) = dA(96)/dV(67) - B(168) = RCT(96)*V(66) -! B(169) = dA(97)/dV(57) - B(169) = RCT(97)*V(67) -! B(170) = dA(97)/dV(67) - B(170) = RCT(97)*V(57) -! B(171) = dA(98)/dV(58) - B(171) = RCT(98)*V(59) -! B(172) = dA(98)/dV(59) - B(172) = RCT(98)*V(58) -! B(173) = dA(99)/dV(18) - B(173) = RCT(99) -! B(174) = dA(100)/dV(35) - B(174) = RCT(100)*V(67) -! B(175) = dA(100)/dV(67) - B(175) = RCT(100)*V(35) -! B(176) = dA(101)/dV(55) - B(176) = RCT(101)*V(63) -! B(177) = dA(101)/dV(63) - B(177) = RCT(101)*V(55) -! B(178) = dA(102)/dV(52) - B(178) = RCT(102)*V(63) -! B(179) = dA(102)/dV(63) - B(179) = RCT(102)*V(52) -! B(180) = dA(103)/dV(61) - B(180) = RCT(103)*V(63) -! B(181) = dA(103)/dV(63) - B(181) = RCT(103)*V(61) -! B(182) = dA(104)/dV(58) - B(182) = RCT(104)*V(63) -! B(183) = dA(104)/dV(63) - B(183) = RCT(104)*V(58) -! B(184) = dA(105)/dV(62) - B(184) = RCT(105)*V(63) -! B(185) = dA(105)/dV(63) - B(185) = RCT(105)*V(62) -! B(186) = dA(106)/dV(51) - B(186) = RCT(106)*V(63) -! B(187) = dA(106)/dV(63) - B(187) = RCT(106)*V(51) -! B(188) = dA(107)/dV(48) - B(188) = RCT(107)*V(63) -! B(189) = dA(107)/dV(63) - B(189) = RCT(107)*V(48) -! B(190) = dA(108)/dV(55) - B(190) = RCT(108)*V(60) -! B(191) = dA(108)/dV(60) - B(191) = RCT(108)*V(55) -! B(192) = dA(109)/dV(52) - B(192) = RCT(109)*V(60) -! B(193) = dA(109)/dV(60) - B(193) = RCT(109)*V(52) -! B(194) = dA(110)/dV(60) - B(194) = RCT(110)*V(61) -! B(195) = dA(110)/dV(61) - B(195) = RCT(110)*V(60) -! B(196) = dA(111)/dV(58) - B(196) = RCT(111)*V(60) -! B(197) = dA(111)/dV(60) - B(197) = RCT(111)*V(58) -! B(198) = dA(112)/dV(60) - B(198) = RCT(112)*V(62) -! B(199) = dA(112)/dV(62) - B(199) = RCT(112)*V(60) -! B(200) = dA(113)/dV(51) - B(200) = RCT(113)*V(60) -! B(201) = dA(113)/dV(60) - B(201) = RCT(113)*V(51) -! B(202) = dA(114)/dV(48) - B(202) = RCT(114)*V(60) -! B(203) = dA(114)/dV(60) - B(203) = RCT(114)*V(48) -! B(204) = dA(115)/dV(55) - B(204) = RCT(115)*V(65) -! B(205) = dA(115)/dV(65) - B(205) = RCT(115)*V(55) -! B(206) = dA(116)/dV(52) - B(206) = RCT(116)*V(65) -! B(207) = dA(116)/dV(65) - B(207) = RCT(116)*V(52) -! B(208) = dA(117)/dV(61) - B(208) = RCT(117)*V(65) -! B(209) = dA(117)/dV(65) - B(209) = RCT(117)*V(61) -! B(210) = dA(118)/dV(58) - B(210) = RCT(118)*V(65) -! B(211) = dA(118)/dV(65) - B(211) = RCT(118)*V(58) -! B(212) = dA(119)/dV(62) - B(212) = RCT(119)*V(65) -! B(213) = dA(119)/dV(65) - B(213) = RCT(119)*V(62) -! B(214) = dA(120)/dV(51) - B(214) = RCT(120)*V(65) -! B(215) = dA(120)/dV(65) - B(215) = RCT(120)*V(51) -! B(216) = dA(121)/dV(48) - B(216) = RCT(121)*V(65) -! B(217) = dA(121)/dV(65) - B(217) = RCT(121)*V(48) -! B(218) = dA(122)/dV(17) - B(218) = RCT(122)*V(67) -! B(219) = dA(122)/dV(67) - B(219) = RCT(122)*V(17) -! B(220) = dA(123)/dV(30) - B(220) = RCT(123)*V(41) -! B(221) = dA(123)/dV(41) - B(221) = RCT(123)*V(30) -! B(222) = dA(124)/dV(2) - B(222) = 1 -! B(223) = dA(125)/dV(3) - B(223) = 1 -! B(224) = dA(126)/dV(1) - B(224) = 1 -! B(225) = dA(127)/dV(55) - B(225) = RCT(127) -! B(226) = dA(128)/dV(52) - B(226) = RCT(128) -! B(227) = dA(129)/dV(61) - B(227) = RCT(129) -! B(228) = dA(130)/dV(58) - B(228) = RCT(130) -! B(229) = dA(131)/dV(62) - B(229) = RCT(131) -! B(230) = dA(132)/dV(51) - B(230) = RCT(132) -! B(231) = dA(133)/dV(43) - B(231) = RCT(133) -! B(232) = dA(134)/dV(40) - B(232) = RCT(134) -! B(233) = dA(135)/dV(44) - B(233) = RCT(135) -! B(234) = dA(136)/dV(48) - B(234) = RCT(136) -! B(235) = dA(137)/dV(25) - B(235) = RCT(137)*V(67) -! B(236) = dA(137)/dV(67) - B(236) = RCT(137)*V(25) -! B(237) = dA(138)/dV(25) - B(237) = RCT(138)*V(60) -! B(238) = dA(138)/dV(60) - B(238) = RCT(138)*V(25) -! B(239) = dA(139)/dV(25) - B(239) = RCT(139)*V(64) -! B(240) = dA(139)/dV(64) - B(240) = RCT(139)*V(25) -! B(241) = dA(140)/dV(26) - B(241) = RCT(140)*V(67) -! B(242) = dA(140)/dV(67) - B(242) = RCT(140)*V(26) -! B(243) = dA(141)/dV(26) - B(243) = RCT(141)*V(60) -! B(244) = dA(141)/dV(60) - B(244) = RCT(141)*V(26) -! B(245) = dA(142)/dV(26) - B(245) = RCT(142)*V(64) -! B(246) = dA(142)/dV(64) - B(246) = RCT(142)*V(26) - -! Construct the Jacobian terms from B's -! JVS(1) = Jac_FULL(1,1) - JVS(1) = 0 -! JVS(2) = Jac_FULL(1,15) - JVS(2) = B(85) -! JVS(3) = Jac_FULL(1,67) - JVS(3) = B(86) -! JVS(4) = Jac_FULL(2,2) - JVS(4) = 0 -! JVS(5) = Jac_FULL(3,3) - JVS(5) = 0 -! JVS(6) = Jac_FULL(4,4) - JVS(6) = 0 -! JVS(7) = Jac_FULL(4,34) - JVS(7) = 0.52*B(107) -! JVS(8) = Jac_FULL(4,45) - JVS(8) = 0.22*B(111) -! JVS(9) = Jac_FULL(4,64) - JVS(9) = 0.52*B(108)+0.22*B(112) -! JVS(10) = Jac_FULL(5,5) - JVS(10) = 0 -! JVS(11) = Jac_FULL(5,45) - JVS(11) = 0.09*B(111) -! JVS(12) = Jac_FULL(5,46) - JVS(12) = 0.39*B(141) -! JVS(13) = Jac_FULL(5,50) - JVS(13) = 0.16*B(113) -! JVS(14) = Jac_FULL(5,56) - JVS(14) = 0.46*B(147) -! JVS(15) = Jac_FULL(5,58) - JVS(15) = 0.4*B(210) -! JVS(16) = Jac_FULL(5,64) - JVS(16) = 0.09*B(112)+0.16*B(114)+0.39*B(142)+0.46*B(148) -! JVS(17) = Jac_FULL(5,65) - JVS(17) = 0.4*B(211) -! JVS(18) = Jac_FULL(6,6) - JVS(18) = 0 -! JVS(19) = Jac_FULL(6,20) - JVS(19) = 0.039*B(123) -! JVS(20) = Jac_FULL(6,22) - JVS(20) = 0.039*B(125) -! JVS(21) = Jac_FULL(6,36) - JVS(21) = 0.039*B(129)+0.039*B(131) -! JVS(22) = Jac_FULL(6,60) - JVS(22) = 0.039*B(132) -! JVS(23) = Jac_FULL(6,67) - JVS(23) = 0.039*B(124)+0.039*B(126)+0.039*B(130) -! JVS(24) = Jac_FULL(7,7) - JVS(24) = 0 -! JVS(25) = Jac_FULL(7,20) - JVS(25) = 0.108*B(123) -! JVS(26) = Jac_FULL(7,22) - JVS(26) = 0.108*B(125) -! JVS(27) = Jac_FULL(7,36) - JVS(27) = 0.108*B(129)+0.108*B(131) -! JVS(28) = Jac_FULL(7,60) - JVS(28) = 0.108*B(132) -! JVS(29) = Jac_FULL(7,67) - JVS(29) = 0.108*B(124)+0.108*B(126)+0.108*B(130) -! JVS(30) = Jac_FULL(8,8) - JVS(30) = 0 -! JVS(31) = Jac_FULL(8,41) - JVS(31) = 0.012*B(91) -! JVS(32) = Jac_FULL(8,67) - JVS(32) = 0.012*B(92) -! JVS(33) = Jac_FULL(9,9) - JVS(33) = 0 -! JVS(34) = Jac_FULL(9,45) - JVS(34) = 0.008*B(111)+0.008*B(115)+0.008*B(119) -! JVS(35) = Jac_FULL(9,50) - JVS(35) = 0.008*B(113)+0.008*B(117)+0.008*B(121) -! JVS(36) = Jac_FULL(9,60) - JVS(36) = 0.008*B(120)+0.008*B(122) -! JVS(37) = Jac_FULL(9,64) - JVS(37) = 0.008*B(112)+0.008*B(114) -! JVS(38) = Jac_FULL(9,67) - JVS(38) = 0.008*B(116)+0.008*B(118) -! JVS(39) = Jac_FULL(10,10) - JVS(39) = 0 -! JVS(40) = Jac_FULL(10,25) - JVS(40) = 0.0064*B(235)+0.022*B(239) -! JVS(41) = Jac_FULL(10,64) - JVS(41) = 0.022*B(240) -! JVS(42) = Jac_FULL(10,67) - JVS(42) = 0.0064*B(236) -! JVS(43) = Jac_FULL(11,11) - JVS(43) = 0 -! JVS(44) = Jac_FULL(11,25) - JVS(44) = 0.055*B(235)+0.19*B(239) -! JVS(45) = Jac_FULL(11,64) - JVS(45) = 0.19*B(240) -! JVS(46) = Jac_FULL(11,67) - JVS(46) = 0.055*B(236) -! JVS(47) = Jac_FULL(12,12) - JVS(47) = 0 -! JVS(48) = Jac_FULL(12,26) - JVS(48) = 0.037*B(241)+0.13*B(245) -! JVS(49) = Jac_FULL(12,64) - JVS(49) = 0.13*B(246) -! JVS(50) = Jac_FULL(12,67) - JVS(50) = 0.037*B(242) -! JVS(51) = Jac_FULL(13,13) - JVS(51) = 0 -! JVS(52) = Jac_FULL(13,26) - JVS(52) = 0.056*B(241)+0.19*B(245) -! JVS(53) = Jac_FULL(13,64) - JVS(53) = 0.19*B(246) -! JVS(54) = Jac_FULL(13,67) - JVS(54) = 0.056*B(242) -! JVS(55) = Jac_FULL(14,14) - JVS(55) = 0 -! JVS(56) = Jac_FULL(14,30) - JVS(56) = B(220) -! JVS(57) = Jac_FULL(14,41) - JVS(57) = B(221) -! JVS(58) = Jac_FULL(14,48) - JVS(58) = B(216)+B(234) -! JVS(59) = Jac_FULL(14,65) - JVS(59) = B(217) -! JVS(60) = Jac_FULL(15,15) - JVS(60) = -B(85) -! JVS(61) = Jac_FULL(15,67) - JVS(61) = -B(86) -! JVS(62) = Jac_FULL(16,16) - JVS(62) = -B(21)-B(23) -! JVS(63) = Jac_FULL(16,64) - JVS(63) = B(8) -! JVS(64) = Jac_FULL(17,17) - JVS(64) = -B(218) -! JVS(65) = Jac_FULL(17,67) - JVS(65) = -B(219) -! JVS(66) = Jac_FULL(18,18) - JVS(66) = -B(173) -! JVS(67) = Jac_FULL(18,58) - JVS(67) = B(171) -! JVS(68) = Jac_FULL(18,59) - JVS(68) = B(172) -! JVS(69) = Jac_FULL(19,19) - JVS(69) = -B(9)-B(59) -! JVS(70) = Jac_FULL(19,65) - JVS(70) = B(61)+B(62) -! JVS(71) = Jac_FULL(19,67) - JVS(71) = -B(60) -! JVS(72) = Jac_FULL(20,20) - JVS(72) = -B(123) -! JVS(73) = Jac_FULL(20,67) - JVS(73) = -B(124) -! JVS(74) = Jac_FULL(21,21) - JVS(74) = -B(6)-B(80)-B(82) -! JVS(75) = Jac_FULL(21,59) - JVS(75) = B(75) -! JVS(76) = Jac_FULL(21,60) - JVS(76) = B(76) -! JVS(77) = Jac_FULL(22,22) - JVS(77) = -B(125) -! JVS(78) = Jac_FULL(22,67) - JVS(78) = -B(126) -! JVS(79) = Jac_FULL(23,23) - JVS(79) = -B(87) -! JVS(80) = Jac_FULL(23,45) - JVS(80) = 0.06*B(111) -! JVS(81) = Jac_FULL(23,50) - JVS(81) = 0.08*B(113) -! JVS(82) = Jac_FULL(23,64) - JVS(82) = 0.06*B(112)+0.08*B(114) -! JVS(83) = Jac_FULL(23,67) - JVS(83) = -B(88) -! JVS(84) = Jac_FULL(24,24) - JVS(84) = -B(133) -! JVS(85) = Jac_FULL(24,36) - JVS(85) = 0.4*B(129)+B(131) -! JVS(86) = Jac_FULL(24,59) - JVS(86) = -B(134) -! JVS(87) = Jac_FULL(24,60) - JVS(87) = B(132) -! JVS(88) = Jac_FULL(24,67) - JVS(88) = 0.4*B(130) -! JVS(89) = Jac_FULL(25,25) - JVS(89) = -B(235)-B(237)-B(239) -! JVS(90) = Jac_FULL(25,60) - JVS(90) = -B(238) -! JVS(91) = Jac_FULL(25,64) - JVS(91) = -B(240) -! JVS(92) = Jac_FULL(25,67) - JVS(92) = -B(236) -! JVS(93) = Jac_FULL(26,26) - JVS(93) = -B(241)-B(243)-B(245) -! JVS(94) = Jac_FULL(26,60) - JVS(94) = -B(244) -! JVS(95) = Jac_FULL(26,64) - JVS(95) = -B(246) -! JVS(96) = Jac_FULL(26,67) - JVS(96) = -B(242) -! JVS(97) = Jac_FULL(27,27) - JVS(97) = -B(5)-B(55)-B(70) -! JVS(98) = Jac_FULL(27,59) - JVS(98) = B(66) -! JVS(99) = Jac_FULL(27,65) - JVS(99) = B(67) -! JVS(100) = Jac_FULL(27,67) - JVS(100) = -B(56) -! JVS(101) = Jac_FULL(28,28) - JVS(101) = -B(89) -! JVS(102) = Jac_FULL(28,45) - JVS(102) = 0.01*B(111) -! JVS(103) = Jac_FULL(28,50) - JVS(103) = 0.01*B(113) -! JVS(104) = Jac_FULL(28,52) - JVS(104) = 0.2*B(226) -! JVS(105) = Jac_FULL(28,64) - JVS(105) = 0.01*B(112)+0.01*B(114) -! JVS(106) = Jac_FULL(28,67) - JVS(106) = -B(90) -! JVS(107) = Jac_FULL(29,20) - JVS(107) = 0.8*B(123) -! JVS(108) = Jac_FULL(29,22) - JVS(108) = 0.45*B(125) -! JVS(109) = Jac_FULL(29,29) - JVS(109) = -B(127) -! JVS(110) = Jac_FULL(29,63) - JVS(110) = -B(128) -! JVS(111) = Jac_FULL(29,67) - JVS(111) = 0.8*B(124)+0.45*B(126) -! JVS(112) = Jac_FULL(30,30) - JVS(112) = -B(220) -! JVS(113) = Jac_FULL(30,41) - JVS(113) = -B(221) -! JVS(114) = Jac_FULL(30,45) - JVS(114) = 1.06*B(111)+B(115) -! JVS(115) = Jac_FULL(30,50) - JVS(115) = 2.26*B(113)+2.23*B(117) -! JVS(116) = Jac_FULL(30,51) - JVS(116) = B(186)+B(200)+B(230) -! JVS(117) = Jac_FULL(30,57) - JVS(117) = 1.98*B(19) -! JVS(118) = Jac_FULL(30,60) - JVS(118) = 1.98*B(194)+B(201) -! JVS(119) = Jac_FULL(30,61) - JVS(119) = 1.68*B(180)+1.98*B(195)+1.25*B(227) -! JVS(120) = Jac_FULL(30,63) - JVS(120) = 1.68*B(181)+B(187) -! JVS(121) = Jac_FULL(30,64) - JVS(121) = 1.06*B(112)+2.26*B(114) -! JVS(122) = Jac_FULL(30,66) - JVS(122) = 1.98*B(18)+0.42*B(167) -! JVS(123) = Jac_FULL(30,67) - JVS(123) = B(116)+2.23*B(118)+0.42*B(168) -! JVS(124) = Jac_FULL(31,31) - JVS(124) = -B(12)-B(163) -! JVS(125) = Jac_FULL(31,55) - JVS(125) = B(204) -! JVS(126) = Jac_FULL(31,65) - JVS(126) = B(205) -! JVS(127) = Jac_FULL(31,67) - JVS(127) = -B(164) -! JVS(128) = Jac_FULL(32,32) - JVS(128) = -B(3)-B(51) -! JVS(129) = Jac_FULL(32,59) - JVS(129) = B(68) -! JVS(130) = Jac_FULL(32,63) - JVS(130) = B(45) -! JVS(131) = Jac_FULL(32,65) - JVS(131) = B(69) -! JVS(132) = Jac_FULL(32,67) - JVS(132) = B(46)-B(52) -! JVS(133) = Jac_FULL(33,33) - JVS(133) = -B(13)-B(165) -! JVS(134) = Jac_FULL(33,52) - JVS(134) = B(206) -! JVS(135) = Jac_FULL(33,65) - JVS(135) = B(207) -! JVS(136) = Jac_FULL(33,67) - JVS(136) = -B(166) -! JVS(137) = Jac_FULL(34,34) - JVS(137) = -B(107)-B(109) -! JVS(138) = Jac_FULL(34,64) - JVS(138) = -B(108) -! JVS(139) = Jac_FULL(34,67) - JVS(139) = -B(110) -! JVS(140) = Jac_FULL(35,35) - JVS(140) = -B(174) -! JVS(141) = Jac_FULL(35,45) - JVS(141) = 0.03*B(111) -! JVS(142) = Jac_FULL(35,50) - JVS(142) = 0.04*B(113) -! JVS(143) = Jac_FULL(35,55) - JVS(143) = 0.34*B(225) -! JVS(144) = Jac_FULL(35,64) - JVS(144) = 0.03*B(112)+0.04*B(114) -! JVS(145) = Jac_FULL(35,67) - JVS(145) = -B(175) -! JVS(146) = Jac_FULL(36,20) - JVS(146) = 0.12*B(123) -! JVS(147) = Jac_FULL(36,22) - JVS(147) = 0.05*B(125) -! JVS(148) = Jac_FULL(36,36) - JVS(148) = -B(129)-B(131) -! JVS(149) = Jac_FULL(36,60) - JVS(149) = -B(132) -! JVS(150) = Jac_FULL(36,67) - JVS(150) = 0.12*B(124)+0.05*B(126)-B(130) -! JVS(151) = Jac_FULL(37,16) - JVS(151) = B(21) -! JVS(152) = Jac_FULL(37,37) - JVS(152) = -B(25)-B(27)-B(29)-B(31)-B(33) -! JVS(153) = Jac_FULL(37,59) - JVS(153) = B(1)-B(30)-B(32) -! JVS(154) = Jac_FULL(37,60) - JVS(154) = 0.89*B(2) -! JVS(155) = Jac_FULL(37,63) - JVS(155) = -B(34) -! JVS(156) = Jac_FULL(37,64) - JVS(156) = B(7)-B(28) -! JVS(157) = Jac_FULL(38,21) - JVS(157) = 2*B(80) -! JVS(158) = Jac_FULL(38,36) - JVS(158) = B(131) -! JVS(159) = Jac_FULL(38,38) - JVS(159) = -B(4)-B(53) -! JVS(160) = Jac_FULL(38,47) - JVS(160) = B(95) -! JVS(161) = Jac_FULL(38,53) - JVS(161) = B(105) -! JVS(162) = Jac_FULL(38,54) - JVS(162) = B(99) -! JVS(163) = Jac_FULL(38,56) - JVS(163) = 0.07*B(149) -! JVS(164) = Jac_FULL(38,59) - JVS(164) = B(47) -! JVS(165) = Jac_FULL(38,60) - JVS(165) = 0.3*B(78)+B(96)+B(100)+B(106)+B(132)+0.07*B(150) -! JVS(166) = Jac_FULL(38,65) - JVS(166) = 0.3*B(79) -! JVS(167) = Jac_FULL(38,67) - JVS(167) = B(48)-B(54) -! JVS(168) = Jac_FULL(39,34) - JVS(168) = 0.24*B(107) -! JVS(169) = Jac_FULL(39,39) - JVS(169) = -B(83) -! JVS(170) = Jac_FULL(39,42) - JVS(170) = B(17)+2*B(135)+0.69*B(137) -! JVS(171) = Jac_FULL(39,44) - JVS(171) = 0.59*B(155) -! JVS(172) = Jac_FULL(39,45) - JVS(172) = 0.31*B(111) -! JVS(173) = Jac_FULL(39,46) - JVS(173) = 0.07*B(141) -! JVS(174) = Jac_FULL(39,47) - JVS(174) = B(10)+B(11)+B(93)+B(95) -! JVS(175) = Jac_FULL(39,50) - JVS(175) = 0.3*B(113) -! JVS(176) = Jac_FULL(39,53) - JVS(176) = B(16)+B(105) -! JVS(177) = Jac_FULL(39,54) - JVS(177) = B(14) -! JVS(178) = Jac_FULL(39,56) - JVS(178) = 0.33*B(20)+0.16*B(147)+0.64*B(149) -! JVS(179) = Jac_FULL(39,60) - JVS(179) = B(96)+B(106)+0.64*B(150) -! JVS(180) = Jac_FULL(39,63) - JVS(180) = 0.59*B(156) -! JVS(181) = Jac_FULL(39,64) - JVS(181) = 0.24*B(108)+0.31*B(112)+0.3*B(114)+0.69*B(138)+0.07*B(142)+0.16*B(148) -! JVS(182) = Jac_FULL(39,67) - JVS(182) = -B(84)+B(94)+2*B(136) -! JVS(183) = Jac_FULL(40,40) - JVS(183) = -B(153)-B(159)-B(232) -! JVS(184) = Jac_FULL(40,46) - JVS(184) = B(143) -! JVS(185) = Jac_FULL(40,60) - JVS(185) = B(144) -! JVS(186) = Jac_FULL(40,63) - JVS(186) = -B(154) -! JVS(187) = Jac_FULL(40,65) - JVS(187) = -B(160) -! JVS(188) = Jac_FULL(41,22) - JVS(188) = 1.1*B(125) -! JVS(189) = Jac_FULL(41,30) - JVS(189) = -B(220) -! JVS(190) = Jac_FULL(41,40) - JVS(190) = 1.6*B(153)+2*B(159)+2*B(232) -! JVS(191) = Jac_FULL(41,41) - JVS(191) = -B(91)-B(221) -! JVS(192) = Jac_FULL(41,43) - JVS(192) = 0.18*B(151) -! JVS(193) = Jac_FULL(41,45) - JVS(193) = 0 -! JVS(194) = Jac_FULL(41,46) - JVS(194) = 0 -! JVS(195) = Jac_FULL(41,50) - JVS(195) = 0 -! JVS(196) = Jac_FULL(41,51) - JVS(196) = 0 -! JVS(197) = Jac_FULL(41,56) - JVS(197) = 1.86*B(149) -! JVS(198) = Jac_FULL(41,57) - JVS(198) = 0 -! JVS(199) = Jac_FULL(41,60) - JVS(199) = 1.86*B(150) -! JVS(200) = Jac_FULL(41,61) - JVS(200) = 0 -! JVS(201) = Jac_FULL(41,63) - JVS(201) = 0.18*B(152)+1.6*B(154) -! JVS(202) = Jac_FULL(41,64) - JVS(202) = 0 -! JVS(203) = Jac_FULL(41,65) - JVS(203) = 2*B(160) -! JVS(204) = Jac_FULL(41,66) - JVS(204) = 0 -! JVS(205) = Jac_FULL(41,67) - JVS(205) = -B(92)+1.1*B(126) -! JVS(206) = Jac_FULL(42,29) - JVS(206) = 0.95*B(127) -! JVS(207) = Jac_FULL(42,36) - JVS(207) = 0.3*B(129) -! JVS(208) = Jac_FULL(42,42) - JVS(208) = -B(17)-B(135)-B(137) -! JVS(209) = Jac_FULL(42,60) - JVS(209) = 0 -! JVS(210) = Jac_FULL(42,63) - JVS(210) = 0.95*B(128) -! JVS(211) = Jac_FULL(42,64) - JVS(211) = -B(138) -! JVS(212) = Jac_FULL(42,67) - JVS(212) = 0.3*B(130)-B(136) -! JVS(213) = Jac_FULL(43,43) - JVS(213) = -B(151)-B(157)-B(231) -! JVS(214) = Jac_FULL(43,46) - JVS(214) = B(139) -! JVS(215) = Jac_FULL(43,63) - JVS(215) = -B(152) -! JVS(216) = Jac_FULL(43,65) - JVS(216) = -B(158) -! JVS(217) = Jac_FULL(43,67) - JVS(217) = B(140) -! JVS(218) = Jac_FULL(44,44) - JVS(218) = -B(155)-B(161)-B(233) -! JVS(219) = Jac_FULL(44,56) - JVS(219) = 0.5*B(145) -! JVS(220) = Jac_FULL(44,63) - JVS(220) = -B(156) -! JVS(221) = Jac_FULL(44,65) - JVS(221) = -B(162) -! JVS(222) = Jac_FULL(44,67) - JVS(222) = 0.5*B(146) -! JVS(223) = Jac_FULL(45,45) - JVS(223) = -B(111)-B(115)-B(119) -! JVS(224) = Jac_FULL(45,60) - JVS(224) = -B(120) -! JVS(225) = Jac_FULL(45,64) - JVS(225) = -B(112) -! JVS(226) = Jac_FULL(45,67) - JVS(226) = -B(116) -! JVS(227) = Jac_FULL(46,46) - JVS(227) = -B(139)-B(141)-B(143) -! JVS(228) = Jac_FULL(46,60) - JVS(228) = -B(144) -! JVS(229) = Jac_FULL(46,64) - JVS(229) = -B(142) -! JVS(230) = Jac_FULL(46,67) - JVS(230) = -B(140) -! JVS(231) = Jac_FULL(47,31) - JVS(231) = B(12)+0.3*B(163) -! JVS(232) = Jac_FULL(47,34) - JVS(232) = B(107)+1.56*B(109) -! JVS(233) = Jac_FULL(47,35) - JVS(233) = B(174) -! JVS(234) = Jac_FULL(47,42) - JVS(234) = B(135)+0.7*B(137) -! JVS(235) = Jac_FULL(47,43) - JVS(235) = 0.63*B(151) -! JVS(236) = Jac_FULL(47,44) - JVS(236) = 0.25*B(155) -! JVS(237) = Jac_FULL(47,45) - JVS(237) = 0.57*B(111)+B(115) -! JVS(238) = Jac_FULL(47,46) - JVS(238) = 0.6*B(141) -! JVS(239) = Jac_FULL(47,47) - JVS(239) = -B(10)-B(11)-B(93)-B(95) -! JVS(240) = Jac_FULL(47,50) - JVS(240) = 0 -! JVS(241) = Jac_FULL(47,51) - JVS(241) = 0.5*B(186)+0.5*B(200)+0.5*B(230) -! JVS(242) = Jac_FULL(47,55) - JVS(242) = B(176)+B(190)+0.66*B(225) -! JVS(243) = Jac_FULL(47,56) - JVS(243) = 0.2*B(20)+0.15*B(147)+0.28*B(149) -! JVS(244) = Jac_FULL(47,60) - JVS(244) = -B(96)+0.28*B(150)+B(191)+B(198)+0.5*B(201) -! JVS(245) = Jac_FULL(47,62) - JVS(245) = B(184)+B(199)+0.7*B(229) -! JVS(246) = Jac_FULL(47,63) - JVS(246) = 0.63*B(152)+0.25*B(156)+B(177)+B(185)+0.5*B(187) -! JVS(247) = Jac_FULL(47,64) - JVS(247) = B(108)+0.57*B(112)+0.7*B(138)+0.6*B(142)+0.15*B(148) -! JVS(248) = Jac_FULL(47,65) - JVS(248) = 0 -! JVS(249) = Jac_FULL(47,67) - JVS(249) = -B(94)+1.56*B(110)+B(116)+B(136)+0.3*B(164)+B(175) -! JVS(250) = Jac_FULL(48,20) - JVS(250) = 0.08*B(123) -! JVS(251) = Jac_FULL(48,22) - JVS(251) = 0.5*B(125) -! JVS(252) = Jac_FULL(48,34) - JVS(252) = B(109) -! JVS(253) = Jac_FULL(48,36) - JVS(253) = 0.6*B(129) -! JVS(254) = Jac_FULL(48,42) - JVS(254) = B(135)+0.03*B(137) -! JVS(255) = Jac_FULL(48,45) - JVS(255) = B(115) -! JVS(256) = Jac_FULL(48,46) - JVS(256) = 0.08*B(139)+0.2*B(141) -! JVS(257) = Jac_FULL(48,48) - JVS(257) = -B(188)-B(202)-B(216)-B(234) -! JVS(258) = Jac_FULL(48,50) - JVS(258) = B(117) -! JVS(259) = Jac_FULL(48,53) - JVS(259) = B(103) -! JVS(260) = Jac_FULL(48,56) - JVS(260) = 0.2*B(145)+0.07*B(147)+0.93*B(149) -! JVS(261) = Jac_FULL(48,57) - JVS(261) = 0.41*B(19) -! JVS(262) = Jac_FULL(48,60) - JVS(262) = 0.93*B(150)+0.4*B(194)-B(203) -! JVS(263) = Jac_FULL(48,61) - JVS(263) = 0.34*B(180)+0.4*B(195)+0.24*B(227) -! JVS(264) = Jac_FULL(48,63) - JVS(264) = 0.34*B(181)-B(189) -! JVS(265) = Jac_FULL(48,64) - JVS(265) = 0.03*B(138)+0.2*B(142)+0.07*B(148) -! JVS(266) = Jac_FULL(48,65) - JVS(266) = -B(217) -! JVS(267) = Jac_FULL(48,66) - JVS(267) = 0.4*B(18) -! JVS(268) = Jac_FULL(48,67) - JVS(268) = B(104)+B(110)+B(116)+B(118)+0.08*B(124)+0.5*B(126)+0.6*B(130)+B(136)+0.08*B(140)+0.2*B(146) -! JVS(269) = Jac_FULL(49,44) - JVS(269) = 0.63*B(155)+0.5*B(233) -! JVS(270) = Jac_FULL(49,49) - JVS(270) = -B(15)-B(101) -! JVS(271) = Jac_FULL(49,50) - JVS(271) = 0.07*B(113)+0.23*B(117) -! JVS(272) = Jac_FULL(49,56) - JVS(272) = 0.03*B(20)+0.09*B(147) -! JVS(273) = Jac_FULL(49,57) - JVS(273) = 0.74*B(19) -! JVS(274) = Jac_FULL(49,60) - JVS(274) = 0.74*B(194) -! JVS(275) = Jac_FULL(49,61) - JVS(275) = 0.62*B(180)+0.74*B(195)+0.57*B(227) -! JVS(276) = Jac_FULL(49,62) - JVS(276) = 0.15*B(229) -! JVS(277) = Jac_FULL(49,63) - JVS(277) = 0.63*B(156)+0.62*B(181) -! JVS(278) = Jac_FULL(49,64) - JVS(278) = 0.07*B(114)+0.09*B(148) -! JVS(279) = Jac_FULL(49,65) - JVS(279) = 0 -! JVS(280) = Jac_FULL(49,66) - JVS(280) = 0.74*B(18) -! JVS(281) = Jac_FULL(49,67) - JVS(281) = -B(102)+0.23*B(118) -! JVS(282) = Jac_FULL(50,50) - JVS(282) = -B(113)-B(117)-B(121) -! JVS(283) = Jac_FULL(50,60) - JVS(283) = -B(122) -! JVS(284) = Jac_FULL(50,64) - JVS(284) = -B(114) -! JVS(285) = Jac_FULL(50,67) - JVS(285) = -B(118) -! JVS(286) = Jac_FULL(51,45) - JVS(286) = B(119) -! JVS(287) = Jac_FULL(51,50) - JVS(287) = B(121) -! JVS(288) = Jac_FULL(51,51) - JVS(288) = -B(186)-B(200)-B(214)-B(230) -! JVS(289) = Jac_FULL(51,57) - JVS(289) = B(169) -! JVS(290) = Jac_FULL(51,60) - JVS(290) = B(120)+B(122)-B(201) -! JVS(291) = Jac_FULL(51,63) - JVS(291) = -B(187) -! JVS(292) = Jac_FULL(51,64) - JVS(292) = 0 -! JVS(293) = Jac_FULL(51,65) - JVS(293) = -B(215) -! JVS(294) = Jac_FULL(51,67) - JVS(294) = B(170) -! JVS(295) = Jac_FULL(52,28) - JVS(295) = B(89) -! JVS(296) = Jac_FULL(52,33) - JVS(296) = 0.7*B(165) -! JVS(297) = Jac_FULL(52,45) - JVS(297) = 0.06*B(111) -! JVS(298) = Jac_FULL(52,50) - JVS(298) = 0.05*B(113) -! JVS(299) = Jac_FULL(52,52) - JVS(299) = -B(178)-B(192)-B(206)-B(226) -! JVS(300) = Jac_FULL(52,57) - JVS(300) = 0.1*B(19) -! JVS(301) = Jac_FULL(52,60) - JVS(301) = -B(193)+0.1*B(194) -! JVS(302) = Jac_FULL(52,61) - JVS(302) = 0.08*B(180)+0.1*B(195)+0.06*B(227) -! JVS(303) = Jac_FULL(52,63) - JVS(303) = -B(179)+0.08*B(181) -! JVS(304) = Jac_FULL(52,64) - JVS(304) = 0.06*B(112)+0.05*B(114) -! JVS(305) = Jac_FULL(52,65) - JVS(305) = -B(207) -! JVS(306) = Jac_FULL(52,66) - JVS(306) = 0.1*B(18) -! JVS(307) = Jac_FULL(52,67) - JVS(307) = B(90)+0.7*B(166) -! JVS(308) = Jac_FULL(53,22) - JVS(308) = 0.8*B(125) -! JVS(309) = Jac_FULL(53,42) - JVS(309) = 0.2*B(137) -! JVS(310) = Jac_FULL(53,44) - JVS(310) = 0.34*B(155) -! JVS(311) = Jac_FULL(53,45) - JVS(311) = 0.04*B(111) -! JVS(312) = Jac_FULL(53,50) - JVS(312) = 0.07*B(113) -! JVS(313) = Jac_FULL(53,53) - JVS(313) = -B(16)-B(103)-B(105) -! JVS(314) = Jac_FULL(53,56) - JVS(314) = 0.85*B(147) -! JVS(315) = Jac_FULL(53,60) - JVS(315) = -B(106) -! JVS(316) = Jac_FULL(53,62) - JVS(316) = 0.15*B(229) -! JVS(317) = Jac_FULL(53,63) - JVS(317) = 0.34*B(156) -! JVS(318) = Jac_FULL(53,64) - JVS(318) = 0.04*B(112)+0.07*B(114)+0.2*B(138)+0.85*B(148) -! JVS(319) = Jac_FULL(53,65) - JVS(319) = 0 -! JVS(320) = Jac_FULL(53,66) - JVS(320) = 0.19*B(167) -! JVS(321) = Jac_FULL(53,67) - JVS(321) = -B(104)+0.8*B(126)+0.19*B(168) -! JVS(322) = Jac_FULL(54,17) - JVS(322) = B(218) -! JVS(323) = Jac_FULL(54,33) - JVS(323) = B(13)+0.3*B(165) -! JVS(324) = Jac_FULL(54,34) - JVS(324) = 0.22*B(109) -! JVS(325) = Jac_FULL(54,40) - JVS(325) = 0.8*B(153)+B(232) -! JVS(326) = Jac_FULL(54,42) - JVS(326) = 0.03*B(137) -! JVS(327) = Jac_FULL(54,44) - JVS(327) = 0.55*B(155)+0.5*B(233) -! JVS(328) = Jac_FULL(54,45) - JVS(328) = 0.47*B(111)+B(115) -! JVS(329) = Jac_FULL(54,46) - JVS(329) = 0.15*B(141) -! JVS(330) = Jac_FULL(54,50) - JVS(330) = 1.03*B(113)+1.77*B(117) -! JVS(331) = Jac_FULL(54,51) - JVS(331) = 0.5*B(186)+0.5*B(200)+0.5*B(230) -! JVS(332) = Jac_FULL(54,52) - JVS(332) = B(178)+B(192)+0.8*B(226) -! JVS(333) = Jac_FULL(54,54) - JVS(333) = -B(14)-B(97)-B(99) -! JVS(334) = Jac_FULL(54,56) - JVS(334) = 0.07*B(20)+0.02*B(147)+0.28*B(149) -! JVS(335) = Jac_FULL(54,57) - JVS(335) = 0.3*B(19) -! JVS(336) = Jac_FULL(54,60) - JVS(336) = -B(100)+0.28*B(150)+B(193)+0.3*B(194)+0.5*B(201) -! JVS(337) = Jac_FULL(54,61) - JVS(337) = 0.25*B(180)+0.3*B(195)+0.21*B(227) -! JVS(338) = Jac_FULL(54,63) - JVS(338) = 0.8*B(154)+0.55*B(156)+B(179)+0.25*B(181)+0.5*B(187) -! JVS(339) = Jac_FULL(54,64) - JVS(339) = 0.47*B(112)+1.03*B(114)+0.03*B(138)+0.15*B(142)+0.02*B(148) -! JVS(340) = Jac_FULL(54,65) - JVS(340) = 0 -! JVS(341) = Jac_FULL(54,66) - JVS(341) = 0.3*B(18)+0.04*B(167) -! JVS(342) = Jac_FULL(54,67) - JVS(342) = -B(98)+0.22*B(110)+B(116)+1.77*B(118)+0.3*B(166)+0.04*B(168)+B(219) -! JVS(343) = Jac_FULL(55,23) - JVS(343) = B(87) -! JVS(344) = Jac_FULL(55,31) - JVS(344) = 0.7*B(163) -! JVS(345) = Jac_FULL(55,45) - JVS(345) = 0.07*B(111) -! JVS(346) = Jac_FULL(55,49) - JVS(346) = B(15) -! JVS(347) = Jac_FULL(55,50) - JVS(347) = 0.1*B(113) -! JVS(348) = Jac_FULL(55,54) - JVS(348) = B(14) -! JVS(349) = Jac_FULL(55,55) - JVS(349) = -B(176)-B(190)-B(204)-B(225) -! JVS(350) = Jac_FULL(55,56) - JVS(350) = 0.7*B(20)+0.05*B(147) -! JVS(351) = Jac_FULL(55,57) - JVS(351) = 0 -! JVS(352) = Jac_FULL(55,58) - JVS(352) = B(182)+B(196)+B(228) -! JVS(353) = Jac_FULL(55,60) - JVS(353) = -B(191)+B(197) -! JVS(354) = Jac_FULL(55,61) - JVS(354) = 0 -! JVS(355) = Jac_FULL(55,62) - JVS(355) = 0 -! JVS(356) = Jac_FULL(55,63) - JVS(356) = -B(177)+B(183) -! JVS(357) = Jac_FULL(55,64) - JVS(357) = 0.07*B(112)+0.1*B(114)+0.05*B(148) -! JVS(358) = Jac_FULL(55,65) - JVS(358) = -B(205) -! JVS(359) = Jac_FULL(55,66) - JVS(359) = 0 -! JVS(360) = Jac_FULL(55,67) - JVS(360) = B(88)+0.7*B(164) -! JVS(361) = Jac_FULL(56,40) - JVS(361) = 0.2*B(153) -! JVS(362) = Jac_FULL(56,43) - JVS(362) = 0.91*B(151)+B(231) -! JVS(363) = Jac_FULL(56,46) - JVS(363) = 0.65*B(141) -! JVS(364) = Jac_FULL(56,56) - JVS(364) = -B(20)-B(145)-B(147)-B(149) -! JVS(365) = Jac_FULL(56,60) - JVS(365) = -B(150) -! JVS(366) = Jac_FULL(56,63) - JVS(366) = 0.91*B(152)+0.2*B(154) -! JVS(367) = Jac_FULL(56,64) - JVS(367) = 0.65*B(142)-B(148) -! JVS(368) = Jac_FULL(56,65) - JVS(368) = 0 -! JVS(369) = Jac_FULL(56,67) - JVS(369) = -B(146) -! JVS(370) = Jac_FULL(57,24) - JVS(370) = B(133) -! JVS(371) = Jac_FULL(57,29) - JVS(371) = 0.05*B(127) -! JVS(372) = Jac_FULL(57,36) - JVS(372) = 0 -! JVS(373) = Jac_FULL(57,40) - JVS(373) = 0.8*B(153)+B(159)+B(232) -! JVS(374) = Jac_FULL(57,43) - JVS(374) = 0.09*B(151) -! JVS(375) = Jac_FULL(57,46) - JVS(375) = 0 -! JVS(376) = Jac_FULL(57,51) - JVS(376) = 0.5*B(186)+0.5*B(200)+B(214)+0.5*B(230) -! JVS(377) = Jac_FULL(57,56) - JVS(377) = 0.93*B(149) -! JVS(378) = Jac_FULL(57,57) - JVS(378) = -B(19)-B(169) -! JVS(379) = Jac_FULL(57,59) - JVS(379) = B(134) -! JVS(380) = Jac_FULL(57,60) - JVS(380) = 0.93*B(150)+0.5*B(201) -! JVS(381) = Jac_FULL(57,61) - JVS(381) = 0.16*B(180) -! JVS(382) = Jac_FULL(57,63) - JVS(382) = 0.05*B(128)+0.09*B(152)+0.8*B(154)+0.16*B(181)+0.5*B(187) -! JVS(383) = Jac_FULL(57,64) - JVS(383) = 0 -! JVS(384) = Jac_FULL(57,65) - JVS(384) = B(160)+B(215) -! JVS(385) = Jac_FULL(57,67) - JVS(385) = -B(170) -! JVS(386) = Jac_FULL(58,18) - JVS(386) = B(173) -! JVS(387) = Jac_FULL(58,42) - JVS(387) = B(17)+B(135)+0.62*B(137) -! JVS(388) = Jac_FULL(58,45) - JVS(388) = 0.13*B(111) -! JVS(389) = Jac_FULL(58,46) - JVS(389) = 0.2*B(141) -! JVS(390) = Jac_FULL(58,49) - JVS(390) = B(15) -! JVS(391) = Jac_FULL(58,50) - JVS(391) = 0.19*B(113) -! JVS(392) = Jac_FULL(58,53) - JVS(392) = B(16)+B(103)+B(105) -! JVS(393) = Jac_FULL(58,54) - JVS(393) = B(97)+B(99) -! JVS(394) = Jac_FULL(58,56) - JVS(394) = 0.97*B(20)+0.5*B(145)+0.11*B(147)+0.07*B(149) -! JVS(395) = Jac_FULL(58,57) - JVS(395) = 0 -! JVS(396) = Jac_FULL(58,58) - JVS(396) = -B(171)-B(182)-B(196)-B(210)-B(228) -! JVS(397) = Jac_FULL(58,59) - JVS(397) = -B(172) -! JVS(398) = Jac_FULL(58,60) - JVS(398) = B(100)+B(106)+0.07*B(150)-B(197)+B(198) -! JVS(399) = Jac_FULL(58,61) - JVS(399) = 0 -! JVS(400) = Jac_FULL(58,62) - JVS(400) = B(184)+B(199)+0.7*B(229) -! JVS(401) = Jac_FULL(58,63) - JVS(401) = -B(183)+B(185) -! JVS(402) = Jac_FULL(58,64) - JVS(402) = 0.13*B(112)+0.19*B(114)+0.62*B(138)+0.2*B(142)+0.11*B(148) -! JVS(403) = Jac_FULL(58,65) - JVS(403) = -B(211) -! JVS(404) = Jac_FULL(58,66) - JVS(404) = 0 -! JVS(405) = Jac_FULL(58,67) - JVS(405) = B(98)+B(104)+B(136)+0.5*B(146) -! JVS(406) = Jac_FULL(59,18) - JVS(406) = B(173) -! JVS(407) = Jac_FULL(59,21) - JVS(407) = B(6)+B(82) -! JVS(408) = Jac_FULL(59,24) - JVS(408) = -B(133) -! JVS(409) = Jac_FULL(59,27) - JVS(409) = B(5)+B(55)+B(70) -! JVS(410) = Jac_FULL(59,29) - JVS(410) = 0.95*B(127) -! JVS(411) = Jac_FULL(59,32) - JVS(411) = B(51) -! JVS(412) = Jac_FULL(59,36) - JVS(412) = 0 -! JVS(413) = Jac_FULL(59,37) - JVS(413) = -B(29)-B(31)+B(33) -! JVS(414) = Jac_FULL(59,38) - JVS(414) = B(4) -! JVS(415) = Jac_FULL(59,40) - JVS(415) = 1.2*B(153) -! JVS(416) = Jac_FULL(59,43) - JVS(416) = 0.91*B(151) -! JVS(417) = Jac_FULL(59,44) - JVS(417) = B(155) -! JVS(418) = Jac_FULL(59,46) - JVS(418) = 0 -! JVS(419) = Jac_FULL(59,47) - JVS(419) = 0 -! JVS(420) = Jac_FULL(59,48) - JVS(420) = B(188)+B(202) -! JVS(421) = Jac_FULL(59,50) - JVS(421) = 0 -! JVS(422) = Jac_FULL(59,51) - JVS(422) = 1.5*B(186)+1.5*B(200)+0.5*B(230) -! JVS(423) = Jac_FULL(59,52) - JVS(423) = B(178)+B(192) -! JVS(424) = Jac_FULL(59,53) - JVS(424) = 0 -! JVS(425) = Jac_FULL(59,54) - JVS(425) = 0 -! JVS(426) = Jac_FULL(59,55) - JVS(426) = B(176)+B(190) -! JVS(427) = Jac_FULL(59,56) - JVS(427) = 0 -! JVS(428) = Jac_FULL(59,57) - JVS(428) = B(19) -! JVS(429) = Jac_FULL(59,58) - JVS(429) = -B(171)+B(182)+B(196) -! JVS(430) = Jac_FULL(59,59) - JVS(430) = -B(1)-B(30)-B(32)-B(37)-B(47)-B(66)-B(68)-B(75)-B(134)-B(172) -! JVS(431) = Jac_FULL(59,60) - JVS(431) = 0.89*B(2)+B(49)+2*B(71)-B(76)+2*B(77)+0.7*B(78)+B(191)+B(193)+B(194)+B(197)+B(198)+1.5*B(201)+B(203) -! JVS(432) = Jac_FULL(59,61) - JVS(432) = 0.84*B(180)+B(195) -! JVS(433) = Jac_FULL(59,62) - JVS(433) = B(184)+B(199) -! JVS(434) = Jac_FULL(59,63) - JVS(434) = B(34)+B(35)+B(64)+2*B(72)+0.95*B(128)+0.91*B(152)+1.2*B(154)+B(156)+B(177)+B(179)+0.84*B(181)+B(183)+B(185)& - &+1.5*B(187)+B(189) -! JVS(435) = Jac_FULL(59,64) - JVS(435) = B(36)-B(38) -! JVS(436) = Jac_FULL(59,65) - JVS(436) = B(65)-B(67)-B(69)+0.7*B(79) -! JVS(437) = Jac_FULL(59,66) - JVS(437) = 0 -! JVS(438) = Jac_FULL(59,67) - JVS(438) = -B(48)+B(50)+B(52)+B(56) -! JVS(439) = Jac_FULL(60,21) - JVS(439) = B(6)+B(82) -! JVS(440) = Jac_FULL(60,25) - JVS(440) = -B(237) -! JVS(441) = Jac_FULL(60,26) - JVS(441) = -B(243) -! JVS(442) = Jac_FULL(60,36) - JVS(442) = -B(131) -! JVS(443) = Jac_FULL(60,37) - JVS(443) = B(31) -! JVS(444) = Jac_FULL(60,38) - JVS(444) = B(53) -! JVS(445) = Jac_FULL(60,45) - JVS(445) = -B(119) -! JVS(446) = Jac_FULL(60,46) - JVS(446) = -B(143) -! JVS(447) = Jac_FULL(60,47) - JVS(447) = -B(95) -! JVS(448) = Jac_FULL(60,48) - JVS(448) = -B(202) -! JVS(449) = Jac_FULL(60,50) - JVS(449) = -B(121) -! JVS(450) = Jac_FULL(60,51) - JVS(450) = -B(200) -! JVS(451) = Jac_FULL(60,52) - JVS(451) = -B(192) -! JVS(452) = Jac_FULL(60,53) - JVS(452) = -B(105) -! JVS(453) = Jac_FULL(60,54) - JVS(453) = -B(99) -! JVS(454) = Jac_FULL(60,55) - JVS(454) = -B(190) -! JVS(455) = Jac_FULL(60,56) - JVS(455) = -B(149) -! JVS(456) = Jac_FULL(60,57) - JVS(456) = 0 -! JVS(457) = Jac_FULL(60,58) - JVS(457) = -B(196) -! JVS(458) = Jac_FULL(60,59) - JVS(458) = B(32)+B(37)-B(73)-B(75) -! JVS(459) = Jac_FULL(60,60) - JVS(459) = -B(2)-B(49)-B(71)-B(74)-B(76)-2*B(77)-B(78)-B(96)-B(100)-B(106)-B(120)-B(122)-B(132)-B(144)-B(150)-B(191)& - &-B(193)-B(194)-B(197)-B(198)-B(201)-B(203)-B(238)-B(244) -! JVS(460) = Jac_FULL(60,61) - JVS(460) = -B(195) -! JVS(461) = Jac_FULL(60,62) - JVS(461) = -B(199) -! JVS(462) = Jac_FULL(60,63) - JVS(462) = -B(72) -! JVS(463) = Jac_FULL(60,64) - JVS(463) = B(38) -! JVS(464) = Jac_FULL(60,65) - JVS(464) = -B(79) -! JVS(465) = Jac_FULL(60,66) - JVS(465) = 0 -! JVS(466) = Jac_FULL(60,67) - JVS(466) = -B(50)+B(54) -! JVS(467) = Jac_FULL(61,41) - JVS(467) = B(91) -! JVS(468) = Jac_FULL(61,43) - JVS(468) = 0 -! JVS(469) = Jac_FULL(61,45) - JVS(469) = 0.03*B(111) -! JVS(470) = Jac_FULL(61,46) - JVS(470) = 0 -! JVS(471) = Jac_FULL(61,50) - JVS(471) = 0.09*B(113) -! JVS(472) = Jac_FULL(61,51) - JVS(472) = 0 -! JVS(473) = Jac_FULL(61,56) - JVS(473) = 0 -! JVS(474) = Jac_FULL(61,57) - JVS(474) = 0 -! JVS(475) = Jac_FULL(61,59) - JVS(475) = 0 -! JVS(476) = Jac_FULL(61,60) - JVS(476) = -B(194) -! JVS(477) = Jac_FULL(61,61) - JVS(477) = -B(180)-B(195)-B(208)-B(227) -! JVS(478) = Jac_FULL(61,62) - JVS(478) = 0 -! JVS(479) = Jac_FULL(61,63) - JVS(479) = -B(181) -! JVS(480) = Jac_FULL(61,64) - JVS(480) = 0.03*B(112)+0.09*B(114) -! JVS(481) = Jac_FULL(61,65) - JVS(481) = -B(209) -! JVS(482) = Jac_FULL(61,66) - JVS(482) = 0.77*B(167) -! JVS(483) = Jac_FULL(61,67) - JVS(483) = B(92)+0.77*B(168) -! JVS(484) = Jac_FULL(62,49) - JVS(484) = B(101) -! JVS(485) = Jac_FULL(62,50) - JVS(485) = 0.11*B(113) -! JVS(486) = Jac_FULL(62,56) - JVS(486) = 0 -! JVS(487) = Jac_FULL(62,57) - JVS(487) = 0 -! JVS(488) = Jac_FULL(62,59) - JVS(488) = 0 -! JVS(489) = Jac_FULL(62,60) - JVS(489) = -B(198) -! JVS(490) = Jac_FULL(62,61) - JVS(490) = 0 -! JVS(491) = Jac_FULL(62,62) - JVS(491) = -B(184)-B(199)-B(212)-B(229) -! JVS(492) = Jac_FULL(62,63) - JVS(492) = -B(185) -! JVS(493) = Jac_FULL(62,64) - JVS(493) = 0.11*B(114) -! JVS(494) = Jac_FULL(62,65) - JVS(494) = -B(213) -! JVS(495) = Jac_FULL(62,66) - JVS(495) = 0 -! JVS(496) = Jac_FULL(62,67) - JVS(496) = B(102) -! JVS(497) = Jac_FULL(63,29) - JVS(497) = -B(127) -! JVS(498) = Jac_FULL(63,32) - JVS(498) = B(3) -! JVS(499) = Jac_FULL(63,37) - JVS(499) = B(29)-B(33) -! JVS(500) = Jac_FULL(63,40) - JVS(500) = -B(153) -! JVS(501) = Jac_FULL(63,43) - JVS(501) = -B(151) -! JVS(502) = Jac_FULL(63,44) - JVS(502) = -B(155) -! JVS(503) = Jac_FULL(63,46) - JVS(503) = 0 -! JVS(504) = Jac_FULL(63,48) - JVS(504) = -B(188) -! JVS(505) = Jac_FULL(63,50) - JVS(505) = 0 -! JVS(506) = Jac_FULL(63,51) - JVS(506) = -B(186) -! JVS(507) = Jac_FULL(63,52) - JVS(507) = -B(178) -! JVS(508) = Jac_FULL(63,53) - JVS(508) = 0 -! JVS(509) = Jac_FULL(63,55) - JVS(509) = -B(176) -! JVS(510) = Jac_FULL(63,56) - JVS(510) = 0 -! JVS(511) = Jac_FULL(63,57) - JVS(511) = 0 -! JVS(512) = Jac_FULL(63,58) - JVS(512) = -B(182) -! JVS(513) = Jac_FULL(63,59) - JVS(513) = B(1)+B(30)+B(73) -! JVS(514) = Jac_FULL(63,60) - JVS(514) = 0.11*B(2)-B(71)+B(74) -! JVS(515) = Jac_FULL(63,61) - JVS(515) = -B(180) -! JVS(516) = Jac_FULL(63,62) - JVS(516) = -B(184) -! JVS(517) = Jac_FULL(63,63) - JVS(517) = -B(34)-B(35)-B(45)-B(64)-B(72)-B(128)-B(152)-B(154)-B(156)-B(177)-B(179)-B(181)-B(183)-B(185)-B(187)-B(189) -! JVS(518) = Jac_FULL(63,64) - JVS(518) = -B(36) -! JVS(519) = Jac_FULL(63,65) - JVS(519) = -B(65) -! JVS(520) = Jac_FULL(63,66) - JVS(520) = 0 -! JVS(521) = Jac_FULL(63,67) - JVS(521) = -B(46) -! JVS(522) = Jac_FULL(64,25) - JVS(522) = -B(239) -! JVS(523) = Jac_FULL(64,26) - JVS(523) = -B(245) -! JVS(524) = Jac_FULL(64,34) - JVS(524) = -B(107) -! JVS(525) = Jac_FULL(64,37) - JVS(525) = B(25)-B(27) -! JVS(526) = Jac_FULL(64,42) - JVS(526) = -B(137) -! JVS(527) = Jac_FULL(64,45) - JVS(527) = -B(111) -! JVS(528) = Jac_FULL(64,46) - JVS(528) = -B(141) -! JVS(529) = Jac_FULL(64,50) - JVS(529) = -B(113) -! JVS(530) = Jac_FULL(64,56) - JVS(530) = -B(147) -! JVS(531) = Jac_FULL(64,58) - JVS(531) = 0.4*B(210) -! JVS(532) = Jac_FULL(64,59) - JVS(532) = -B(37) -! JVS(533) = Jac_FULL(64,60) - JVS(533) = 0 -! JVS(534) = Jac_FULL(64,61) - JVS(534) = 0 -! JVS(535) = Jac_FULL(64,62) - JVS(535) = 0 -! JVS(536) = Jac_FULL(64,63) - JVS(536) = -B(35) -! JVS(537) = Jac_FULL(64,64) - JVS(537) = -B(7)-B(8)-B(28)-B(36)-B(38)-B(39)-B(41)-B(108)-B(112)-B(114)-B(138)-B(142)-B(148)-B(240)-B(246) -! JVS(538) = Jac_FULL(64,65) - JVS(538) = -B(42)+0.4*B(211) -! JVS(539) = Jac_FULL(64,66) - JVS(539) = 0 -! JVS(540) = Jac_FULL(64,67) - JVS(540) = -B(40) -! JVS(541) = Jac_FULL(65,15) - JVS(541) = B(85) -! JVS(542) = Jac_FULL(65,17) - JVS(542) = B(218) -! JVS(543) = Jac_FULL(65,19) - JVS(543) = B(59) -! JVS(544) = Jac_FULL(65,20) - JVS(544) = 0.2*B(123) -! JVS(545) = Jac_FULL(65,22) - JVS(545) = 0.55*B(125) -! JVS(546) = Jac_FULL(65,27) - JVS(546) = B(5)+B(70) -! JVS(547) = Jac_FULL(65,29) - JVS(547) = 0.95*B(127) -! JVS(548) = Jac_FULL(65,31) - JVS(548) = B(12) -! JVS(549) = Jac_FULL(65,33) - JVS(549) = B(13) -! JVS(550) = Jac_FULL(65,34) - JVS(550) = 0.22*B(107)+B(109) -! JVS(551) = Jac_FULL(65,35) - JVS(551) = B(174) -! JVS(552) = Jac_FULL(65,36) - JVS(552) = 0.6*B(129) -! JVS(553) = Jac_FULL(65,39) - JVS(553) = B(83) -! JVS(554) = Jac_FULL(65,40) - JVS(554) = 0.8*B(153)-B(159) -! JVS(555) = Jac_FULL(65,42) - JVS(555) = B(17)+2*B(135)+0.76*B(137) -! JVS(556) = Jac_FULL(65,43) - JVS(556) = 0.91*B(151)-B(157) -! JVS(557) = Jac_FULL(65,44) - JVS(557) = B(155)-B(161) -! JVS(558) = Jac_FULL(65,45) - JVS(558) = 0.26*B(111)+B(115) -! JVS(559) = Jac_FULL(65,46) - JVS(559) = 0.07*B(141) -! JVS(560) = Jac_FULL(65,47) - JVS(560) = 2*B(10)+B(93)+B(95) -! JVS(561) = Jac_FULL(65,48) - JVS(561) = -B(216) -! JVS(562) = Jac_FULL(65,50) - JVS(562) = 0.22*B(113)+B(117) -! JVS(563) = Jac_FULL(65,51) - JVS(563) = 0.5*B(186)+0.5*B(200)-B(214) -! JVS(564) = Jac_FULL(65,52) - JVS(564) = B(178)+B(192)-B(206)+0.6*B(226) -! JVS(565) = Jac_FULL(65,53) - JVS(565) = B(16) -! JVS(566) = Jac_FULL(65,54) - JVS(566) = B(14) -! JVS(567) = Jac_FULL(65,55) - JVS(567) = B(176)+B(190)-B(204)+0.32*B(225) -! JVS(568) = Jac_FULL(65,56) - JVS(568) = 0.33*B(20)+0.1*B(147)+0.93*B(149) -! JVS(569) = Jac_FULL(65,57) - JVS(569) = 0.9*B(19) -! JVS(570) = Jac_FULL(65,58) - JVS(570) = -B(210) -! JVS(571) = Jac_FULL(65,59) - JVS(571) = -B(66)-B(68) -! JVS(572) = Jac_FULL(65,60) - JVS(572) = B(49)-B(78)+B(96)+0.93*B(150)+B(191)+B(193)+0.9*B(194)+0.5*B(201) -! JVS(573) = Jac_FULL(65,61) - JVS(573) = 0.76*B(180)+0.9*B(195)-B(208)+0.54*B(227) -! JVS(574) = Jac_FULL(65,62) - JVS(574) = -B(212) -! JVS(575) = Jac_FULL(65,63) - JVS(575) = -B(64)+0.95*B(128)+0.91*B(152)+0.8*B(154)+B(156)+B(177)+B(179)+0.76*B(181)+0.5*B(187) -! JVS(576) = Jac_FULL(65,64) - JVS(576) = B(39)-B(41)+0.22*B(108)+0.26*B(112)+0.22*B(114)+0.76*B(138)+0.07*B(142)+0.1*B(148) -! JVS(577) = Jac_FULL(65,65) - JVS(577) = -B(42)-B(57)-2*B(61)-2*B(62)-B(65)-B(67)-B(69)-B(79)-B(158)-B(160)-B(162)-B(205)-B(207)-B(209)-B(211)& - &-B(213)-B(215)-B(217) -! JVS(578) = Jac_FULL(65,66) - JVS(578) = 0.9*B(18) -! JVS(579) = Jac_FULL(65,67) - JVS(579) = B(40)+B(43)+B(50)-B(58)+B(60)+B(84)+B(86)+B(94)+B(110)+B(116)+B(118)+0.2*B(124)+0.55*B(126)+0.6*B(130)+2& - &*B(136)+B(175)+B(219) -! JVS(580) = Jac_FULL(66,43) - JVS(580) = B(157) -! JVS(581) = Jac_FULL(66,44) - JVS(581) = B(161) -! JVS(582) = Jac_FULL(66,46) - JVS(582) = 0 -! JVS(583) = Jac_FULL(66,56) - JVS(583) = 0 -! JVS(584) = Jac_FULL(66,60) - JVS(584) = 0 -! JVS(585) = Jac_FULL(66,61) - JVS(585) = B(208) -! JVS(586) = Jac_FULL(66,62) - JVS(586) = B(212) -! JVS(587) = Jac_FULL(66,63) - JVS(587) = 0 -! JVS(588) = Jac_FULL(66,64) - JVS(588) = 0 -! JVS(589) = Jac_FULL(66,65) - JVS(589) = B(158)+B(162)+B(209)+B(213) -! JVS(590) = Jac_FULL(66,66) - JVS(590) = -B(18)-B(167) -! JVS(591) = Jac_FULL(66,67) - JVS(591) = -B(168) -! JVS(592) = Jac_FULL(67,15) - JVS(592) = -B(85) -! JVS(593) = Jac_FULL(67,16) - JVS(593) = 2*B(23) -! JVS(594) = Jac_FULL(67,17) - JVS(594) = -B(218) -! JVS(595) = Jac_FULL(67,19) - JVS(595) = 2*B(9)-B(59) -! JVS(596) = Jac_FULL(67,20) - JVS(596) = -B(123) -! JVS(597) = Jac_FULL(67,22) - JVS(597) = -B(125) -! JVS(598) = Jac_FULL(67,23) - JVS(598) = -B(87) -! JVS(599) = Jac_FULL(67,25) - JVS(599) = -B(235) -! JVS(600) = Jac_FULL(67,26) - JVS(600) = -B(241) -! JVS(601) = Jac_FULL(67,27) - JVS(601) = -B(55) -! JVS(602) = Jac_FULL(67,28) - JVS(602) = -B(89) -! JVS(603) = Jac_FULL(67,31) - JVS(603) = B(12)-0.7*B(163) -! JVS(604) = Jac_FULL(67,32) - JVS(604) = B(3)-B(51) -! JVS(605) = Jac_FULL(67,33) - JVS(605) = B(13)-0.7*B(165) -! JVS(606) = Jac_FULL(67,34) - JVS(606) = 0.12*B(107)-B(109) -! JVS(607) = Jac_FULL(67,35) - JVS(607) = -B(174) -! JVS(608) = Jac_FULL(67,36) - JVS(608) = -B(129) -! JVS(609) = Jac_FULL(67,38) - JVS(609) = B(4)-B(53) -! JVS(610) = Jac_FULL(67,39) - JVS(610) = -B(83) -! JVS(611) = Jac_FULL(67,41) - JVS(611) = -B(91) -! JVS(612) = Jac_FULL(67,42) - JVS(612) = -B(135)+0.08*B(137) -! JVS(613) = Jac_FULL(67,43) - JVS(613) = 0 -! JVS(614) = Jac_FULL(67,44) - JVS(614) = 0 -! JVS(615) = Jac_FULL(67,45) - JVS(615) = 0.33*B(111)-B(115) -! JVS(616) = Jac_FULL(67,46) - JVS(616) = -B(139)+0.27*B(141) -! JVS(617) = Jac_FULL(67,47) - JVS(617) = -B(93) -! JVS(618) = Jac_FULL(67,49) - JVS(618) = -B(101) -! JVS(619) = Jac_FULL(67,50) - JVS(619) = 0.6*B(113)-B(117) -! JVS(620) = Jac_FULL(67,51) - JVS(620) = 0 -! JVS(621) = Jac_FULL(67,52) - JVS(621) = 0 -! JVS(622) = Jac_FULL(67,53) - JVS(622) = -B(103) -! JVS(623) = Jac_FULL(67,54) - JVS(623) = -B(97) -! JVS(624) = Jac_FULL(67,55) - JVS(624) = 0 -! JVS(625) = Jac_FULL(67,56) - JVS(625) = -B(145)+0.27*B(147) -! JVS(626) = Jac_FULL(67,57) - JVS(626) = -B(169) -! JVS(627) = Jac_FULL(67,58) - JVS(627) = 0 -! JVS(628) = Jac_FULL(67,59) - JVS(628) = -B(47) -! JVS(629) = Jac_FULL(67,60) - JVS(629) = -B(49)+0.7*B(78) -! JVS(630) = Jac_FULL(67,61) - JVS(630) = 0 -! JVS(631) = Jac_FULL(67,62) - JVS(631) = 0 -! JVS(632) = Jac_FULL(67,63) - JVS(632) = -B(45)+B(64) -! JVS(633) = Jac_FULL(67,64) - JVS(633) = -B(39)+B(41)+0.12*B(108)+0.33*B(112)+0.6*B(114)+0.08*B(138)+0.27*B(142)+0.27*B(148) -! JVS(634) = Jac_FULL(67,65) - JVS(634) = B(42)-B(57)+B(65)+0.7*B(79) -! JVS(635) = Jac_FULL(67,66) - JVS(635) = B(18)-0.77*B(167) -! JVS(636) = Jac_FULL(67,67) - JVS(636) = -B(40)-B(43)-B(46)-B(48)-B(50)-B(52)-B(54)-B(56)-B(58)-B(60)-B(84)-B(86)-B(88)-B(90)-B(92)-B(94)-B(98)& - &-B(102)-B(104)-B(110)-B(116)-B(118)-B(124)-B(126)-B(130)-B(136)-B(140)-B(146)-0.7*B(164)-0.7*B(166)-0.77& - &*B(168)-B(170)-B(175)-B(219)-B(236)-B(242) - -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(15)+JVS(3)*UV(67) - JUV(2) = JVS(4)*UV(2) - JUV(3) = JVS(5)*UV(3) - JUV(4) = JVS(6)*UV(4)+JVS(7)*UV(34)+JVS(8)*UV(45)+JVS(9)*UV(64) - JUV(5) = JVS(10)*UV(5)+JVS(11)*UV(45)+JVS(12)*UV(46)+JVS(13)*UV(50)+JVS(14)*UV(56)+JVS(15)*UV(58)+JVS(16)*UV(64)& - &+JVS(17)*UV(65) - JUV(6) = JVS(18)*UV(6)+JVS(19)*UV(20)+JVS(20)*UV(22)+JVS(21)*UV(36)+JVS(22)*UV(60)+JVS(23)*UV(67) - JUV(7) = JVS(24)*UV(7)+JVS(25)*UV(20)+JVS(26)*UV(22)+JVS(27)*UV(36)+JVS(28)*UV(60)+JVS(29)*UV(67) - JUV(8) = JVS(30)*UV(8)+JVS(31)*UV(41)+JVS(32)*UV(67) - JUV(9) = JVS(33)*UV(9)+JVS(34)*UV(45)+JVS(35)*UV(50)+JVS(36)*UV(60)+JVS(37)*UV(64)+JVS(38)*UV(67) - JUV(10) = JVS(39)*UV(10)+JVS(40)*UV(25)+JVS(41)*UV(64)+JVS(42)*UV(67) - JUV(11) = JVS(43)*UV(11)+JVS(44)*UV(25)+JVS(45)*UV(64)+JVS(46)*UV(67) - JUV(12) = JVS(47)*UV(12)+JVS(48)*UV(26)+JVS(49)*UV(64)+JVS(50)*UV(67) - JUV(13) = JVS(51)*UV(13)+JVS(52)*UV(26)+JVS(53)*UV(64)+JVS(54)*UV(67) - JUV(14) = JVS(55)*UV(14)+JVS(56)*UV(30)+JVS(57)*UV(41)+JVS(58)*UV(48)+JVS(59)*UV(65) - JUV(15) = JVS(60)*UV(15)+JVS(61)*UV(67) - JUV(16) = JVS(62)*UV(16)+JVS(63)*UV(64) - JUV(17) = JVS(64)*UV(17)+JVS(65)*UV(67) - JUV(18) = JVS(66)*UV(18)+JVS(67)*UV(58)+JVS(68)*UV(59) - JUV(19) = JVS(69)*UV(19)+JVS(70)*UV(65)+JVS(71)*UV(67) - JUV(20) = JVS(72)*UV(20)+JVS(73)*UV(67) - JUV(21) = JVS(74)*UV(21)+JVS(75)*UV(59)+JVS(76)*UV(60) - JUV(22) = JVS(77)*UV(22)+JVS(78)*UV(67) - JUV(23) = JVS(79)*UV(23)+JVS(80)*UV(45)+JVS(81)*UV(50)+JVS(82)*UV(64)+JVS(83)*UV(67) - JUV(24) = JVS(84)*UV(24)+JVS(85)*UV(36)+JVS(86)*UV(59)+JVS(87)*UV(60)+JVS(88)*UV(67) - JUV(25) = JVS(89)*UV(25)+JVS(90)*UV(60)+JVS(91)*UV(64)+JVS(92)*UV(67) - JUV(26) = JVS(93)*UV(26)+JVS(94)*UV(60)+JVS(95)*UV(64)+JVS(96)*UV(67) - JUV(27) = JVS(97)*UV(27)+JVS(98)*UV(59)+JVS(99)*UV(65)+JVS(100)*UV(67) - JUV(28) = JVS(101)*UV(28)+JVS(102)*UV(45)+JVS(103)*UV(50)+JVS(104)*UV(52)+JVS(105)*UV(64)+JVS(106)*UV(67) - JUV(29) = JVS(107)*UV(20)+JVS(108)*UV(22)+JVS(109)*UV(29)+JVS(110)*UV(63)+JVS(111)*UV(67) - JUV(30) = JVS(112)*UV(30)+JVS(113)*UV(41)+JVS(114)*UV(45)+JVS(115)*UV(50)+JVS(116)*UV(51)+JVS(117)*UV(57)+JVS(118)& - &*UV(60)+JVS(119)*UV(61)+JVS(120)*UV(63)+JVS(121)*UV(64)+JVS(122)*UV(66)+JVS(123)*UV(67) - JUV(31) = JVS(124)*UV(31)+JVS(125)*UV(55)+JVS(126)*UV(65)+JVS(127)*UV(67) - JUV(32) = JVS(128)*UV(32)+JVS(129)*UV(59)+JVS(130)*UV(63)+JVS(131)*UV(65)+JVS(132)*UV(67) - JUV(33) = JVS(133)*UV(33)+JVS(134)*UV(52)+JVS(135)*UV(65)+JVS(136)*UV(67) - JUV(34) = JVS(137)*UV(34)+JVS(138)*UV(64)+JVS(139)*UV(67) - JUV(35) = JVS(140)*UV(35)+JVS(141)*UV(45)+JVS(142)*UV(50)+JVS(143)*UV(55)+JVS(144)*UV(64)+JVS(145)*UV(67) - JUV(36) = JVS(146)*UV(20)+JVS(147)*UV(22)+JVS(148)*UV(36)+JVS(149)*UV(60)+JVS(150)*UV(67) - JUV(37) = JVS(151)*UV(16)+JVS(152)*UV(37)+JVS(153)*UV(59)+JVS(154)*UV(60)+JVS(155)*UV(63)+JVS(156)*UV(64) - JUV(38) = JVS(157)*UV(21)+JVS(158)*UV(36)+JVS(159)*UV(38)+JVS(160)*UV(47)+JVS(161)*UV(53)+JVS(162)*UV(54)+JVS(163)& - &*UV(56)+JVS(164)*UV(59)+JVS(165)*UV(60)+JVS(166)*UV(65)+JVS(167)*UV(67) - JUV(39) = JVS(168)*UV(34)+JVS(169)*UV(39)+JVS(170)*UV(42)+JVS(171)*UV(44)+JVS(172)*UV(45)+JVS(173)*UV(46)+JVS(174)& - &*UV(47)+JVS(175)*UV(50)+JVS(176)*UV(53)+JVS(177)*UV(54)+JVS(178)*UV(56)+JVS(179)*UV(60)+JVS(180)*UV(63)& - &+JVS(181)*UV(64)+JVS(182)*UV(67) - JUV(40) = JVS(183)*UV(40)+JVS(184)*UV(46)+JVS(185)*UV(60)+JVS(186)*UV(63)+JVS(187)*UV(65) - JUV(41) = JVS(188)*UV(22)+JVS(189)*UV(30)+JVS(190)*UV(40)+JVS(191)*UV(41)+JVS(192)*UV(43)+JVS(197)*UV(56)+JVS(199)& - &*UV(60)+JVS(201)*UV(63)+JVS(203)*UV(65)+JVS(205)*UV(67) - JUV(42) = JVS(206)*UV(29)+JVS(207)*UV(36)+JVS(208)*UV(42)+JVS(210)*UV(63)+JVS(211)*UV(64)+JVS(212)*UV(67) - JUV(43) = JVS(213)*UV(43)+JVS(214)*UV(46)+JVS(215)*UV(63)+JVS(216)*UV(65)+JVS(217)*UV(67) - JUV(44) = JVS(218)*UV(44)+JVS(219)*UV(56)+JVS(220)*UV(63)+JVS(221)*UV(65)+JVS(222)*UV(67) - JUV(45) = JVS(223)*UV(45)+JVS(224)*UV(60)+JVS(225)*UV(64)+JVS(226)*UV(67) - JUV(46) = JVS(227)*UV(46)+JVS(228)*UV(60)+JVS(229)*UV(64)+JVS(230)*UV(67) - JUV(47) = JVS(231)*UV(31)+JVS(232)*UV(34)+JVS(233)*UV(35)+JVS(234)*UV(42)+JVS(235)*UV(43)+JVS(236)*UV(44)+JVS(237)& - &*UV(45)+JVS(238)*UV(46)+JVS(239)*UV(47)+JVS(241)*UV(51)+JVS(242)*UV(55)+JVS(243)*UV(56)+JVS(244)*UV(60)& - &+JVS(245)*UV(62)+JVS(246)*UV(63)+JVS(247)*UV(64)+JVS(249)*UV(67) - JUV(48) = JVS(250)*UV(20)+JVS(251)*UV(22)+JVS(252)*UV(34)+JVS(253)*UV(36)+JVS(254)*UV(42)+JVS(255)*UV(45)+JVS(256)& - &*UV(46)+JVS(257)*UV(48)+JVS(258)*UV(50)+JVS(259)*UV(53)+JVS(260)*UV(56)+JVS(261)*UV(57)+JVS(262)*UV(60)& - &+JVS(263)*UV(61)+JVS(264)*UV(63)+JVS(265)*UV(64)+JVS(266)*UV(65)+JVS(267)*UV(66)+JVS(268)*UV(67) - JUV(49) = JVS(269)*UV(44)+JVS(270)*UV(49)+JVS(271)*UV(50)+JVS(272)*UV(56)+JVS(273)*UV(57)+JVS(274)*UV(60)+JVS(275)& - &*UV(61)+JVS(276)*UV(62)+JVS(277)*UV(63)+JVS(278)*UV(64)+JVS(280)*UV(66)+JVS(281)*UV(67) - JUV(50) = JVS(282)*UV(50)+JVS(283)*UV(60)+JVS(284)*UV(64)+JVS(285)*UV(67) - JUV(51) = JVS(286)*UV(45)+JVS(287)*UV(50)+JVS(288)*UV(51)+JVS(289)*UV(57)+JVS(290)*UV(60)+JVS(291)*UV(63)+JVS(293)& - &*UV(65)+JVS(294)*UV(67) - JUV(52) = JVS(295)*UV(28)+JVS(296)*UV(33)+JVS(297)*UV(45)+JVS(298)*UV(50)+JVS(299)*UV(52)+JVS(300)*UV(57)+JVS(301)& - &*UV(60)+JVS(302)*UV(61)+JVS(303)*UV(63)+JVS(304)*UV(64)+JVS(305)*UV(65)+JVS(306)*UV(66)+JVS(307)*UV(67) - JUV(53) = JVS(308)*UV(22)+JVS(309)*UV(42)+JVS(310)*UV(44)+JVS(311)*UV(45)+JVS(312)*UV(50)+JVS(313)*UV(53)+JVS(314)& - &*UV(56)+JVS(315)*UV(60)+JVS(316)*UV(62)+JVS(317)*UV(63)+JVS(318)*UV(64)+JVS(320)*UV(66)+JVS(321)*UV(67) - JUV(54) = JVS(322)*UV(17)+JVS(323)*UV(33)+JVS(324)*UV(34)+JVS(325)*UV(40)+JVS(326)*UV(42)+JVS(327)*UV(44)+JVS(328)& - &*UV(45)+JVS(329)*UV(46)+JVS(330)*UV(50)+JVS(331)*UV(51)+JVS(332)*UV(52)+JVS(333)*UV(54)+JVS(334)*UV(56)& - &+JVS(335)*UV(57)+JVS(336)*UV(60)+JVS(337)*UV(61)+JVS(338)*UV(63)+JVS(339)*UV(64)+JVS(341)*UV(66)+JVS(342)& - &*UV(67) - JUV(55) = JVS(343)*UV(23)+JVS(344)*UV(31)+JVS(345)*UV(45)+JVS(346)*UV(49)+JVS(347)*UV(50)+JVS(348)*UV(54)+JVS(349)& - &*UV(55)+JVS(350)*UV(56)+JVS(352)*UV(58)+JVS(353)*UV(60)+JVS(356)*UV(63)+JVS(357)*UV(64)+JVS(358)*UV(65)& - &+JVS(360)*UV(67) - JUV(56) = JVS(361)*UV(40)+JVS(362)*UV(43)+JVS(363)*UV(46)+JVS(364)*UV(56)+JVS(365)*UV(60)+JVS(366)*UV(63)+JVS(367)& - &*UV(64)+JVS(369)*UV(67) - JUV(57) = JVS(370)*UV(24)+JVS(371)*UV(29)+JVS(373)*UV(40)+JVS(374)*UV(43)+JVS(376)*UV(51)+JVS(377)*UV(56)+JVS(378)& - &*UV(57)+JVS(379)*UV(59)+JVS(380)*UV(60)+JVS(381)*UV(61)+JVS(382)*UV(63)+JVS(384)*UV(65)+JVS(385)*UV(67) - JUV(58) = JVS(386)*UV(18)+JVS(387)*UV(42)+JVS(388)*UV(45)+JVS(389)*UV(46)+JVS(390)*UV(49)+JVS(391)*UV(50)+JVS(392)& - &*UV(53)+JVS(393)*UV(54)+JVS(394)*UV(56)+JVS(396)*UV(58)+JVS(397)*UV(59)+JVS(398)*UV(60)+JVS(400)*UV(62)& - &+JVS(401)*UV(63)+JVS(402)*UV(64)+JVS(403)*UV(65)+JVS(405)*UV(67) - JUV(59) = JVS(406)*UV(18)+JVS(407)*UV(21)+JVS(408)*UV(24)+JVS(409)*UV(27)+JVS(410)*UV(29)+JVS(411)*UV(32)+JVS(413)& - &*UV(37)+JVS(414)*UV(38)+JVS(415)*UV(40)+JVS(416)*UV(43)+JVS(417)*UV(44)+JVS(420)*UV(48)+JVS(422)*UV(51)& - &+JVS(423)*UV(52)+JVS(426)*UV(55)+JVS(428)*UV(57)+JVS(429)*UV(58)+JVS(430)*UV(59)+JVS(431)*UV(60)+JVS(432)& - &*UV(61)+JVS(433)*UV(62)+JVS(434)*UV(63)+JVS(435)*UV(64)+JVS(436)*UV(65)+JVS(438)*UV(67) - JUV(60) = JVS(439)*UV(21)+JVS(440)*UV(25)+JVS(441)*UV(26)+JVS(442)*UV(36)+JVS(443)*UV(37)+JVS(444)*UV(38)+JVS(445)& - &*UV(45)+JVS(446)*UV(46)+JVS(447)*UV(47)+JVS(448)*UV(48)+JVS(449)*UV(50)+JVS(450)*UV(51)+JVS(451)*UV(52)& - &+JVS(452)*UV(53)+JVS(453)*UV(54)+JVS(454)*UV(55)+JVS(455)*UV(56)+JVS(457)*UV(58)+JVS(458)*UV(59)+JVS(459)& - &*UV(60)+JVS(460)*UV(61)+JVS(461)*UV(62)+JVS(462)*UV(63)+JVS(463)*UV(64)+JVS(464)*UV(65)+JVS(466)*UV(67) - JUV(61) = JVS(467)*UV(41)+JVS(469)*UV(45)+JVS(471)*UV(50)+JVS(476)*UV(60)+JVS(477)*UV(61)+JVS(479)*UV(63)+JVS(480)& - &*UV(64)+JVS(481)*UV(65)+JVS(482)*UV(66)+JVS(483)*UV(67) - JUV(62) = JVS(484)*UV(49)+JVS(485)*UV(50)+JVS(489)*UV(60)+JVS(491)*UV(62)+JVS(492)*UV(63)+JVS(493)*UV(64)+JVS(494)& - &*UV(65)+JVS(496)*UV(67) - JUV(63) = JVS(497)*UV(29)+JVS(498)*UV(32)+JVS(499)*UV(37)+JVS(500)*UV(40)+JVS(501)*UV(43)+JVS(502)*UV(44)+JVS(504)& - &*UV(48)+JVS(506)*UV(51)+JVS(507)*UV(52)+JVS(509)*UV(55)+JVS(512)*UV(58)+JVS(513)*UV(59)+JVS(514)*UV(60)& - &+JVS(515)*UV(61)+JVS(516)*UV(62)+JVS(517)*UV(63)+JVS(518)*UV(64)+JVS(519)*UV(65)+JVS(521)*UV(67) - JUV(64) = JVS(522)*UV(25)+JVS(523)*UV(26)+JVS(524)*UV(34)+JVS(525)*UV(37)+JVS(526)*UV(42)+JVS(527)*UV(45)+JVS(528)& - &*UV(46)+JVS(529)*UV(50)+JVS(530)*UV(56)+JVS(531)*UV(58)+JVS(532)*UV(59)+JVS(536)*UV(63)+JVS(537)*UV(64)& - &+JVS(538)*UV(65)+JVS(540)*UV(67) - JUV(65) = JVS(541)*UV(15)+JVS(542)*UV(17)+JVS(543)*UV(19)+JVS(544)*UV(20)+JVS(545)*UV(22)+JVS(546)*UV(27)+JVS(547)& - &*UV(29)+JVS(548)*UV(31)+JVS(549)*UV(33)+JVS(550)*UV(34)+JVS(551)*UV(35)+JVS(552)*UV(36)+JVS(553)*UV(39)& - &+JVS(554)*UV(40)+JVS(555)*UV(42)+JVS(556)*UV(43)+JVS(557)*UV(44)+JVS(558)*UV(45)+JVS(559)*UV(46)+JVS(560)& - &*UV(47)+JVS(561)*UV(48)+JVS(562)*UV(50)+JVS(563)*UV(51)+JVS(564)*UV(52)+JVS(565)*UV(53)+JVS(566)*UV(54)& - &+JVS(567)*UV(55)+JVS(568)*UV(56)+JVS(569)*UV(57)+JVS(570)*UV(58)+JVS(571)*UV(59)+JVS(572)*UV(60)+JVS(573)& - &*UV(61)+JVS(574)*UV(62)+JVS(575)*UV(63)+JVS(576)*UV(64)+JVS(577)*UV(65)+JVS(578)*UV(66)+JVS(579)*UV(67) - JUV(66) = JVS(580)*UV(43)+JVS(581)*UV(44)+JVS(585)*UV(61)+JVS(586)*UV(62)+JVS(589)*UV(65)+JVS(590)*UV(66)+JVS(591)& - &*UV(67) - JUV(67) = JVS(592)*UV(15)+JVS(593)*UV(16)+JVS(594)*UV(17)+JVS(595)*UV(19)+JVS(596)*UV(20)+JVS(597)*UV(22)+JVS(598)& - &*UV(23)+JVS(599)*UV(25)+JVS(600)*UV(26)+JVS(601)*UV(27)+JVS(602)*UV(28)+JVS(603)*UV(31)+JVS(604)*UV(32)& - &+JVS(605)*UV(33)+JVS(606)*UV(34)+JVS(607)*UV(35)+JVS(608)*UV(36)+JVS(609)*UV(38)+JVS(610)*UV(39)+JVS(611)& - &*UV(41)+JVS(612)*UV(42)+JVS(615)*UV(45)+JVS(616)*UV(46)+JVS(617)*UV(47)+JVS(618)*UV(49)+JVS(619)*UV(50)& - &+JVS(622)*UV(53)+JVS(623)*UV(54)+JVS(625)*UV(56)+JVS(626)*UV(57)+JVS(628)*UV(59)+JVS(629)*UV(60)+JVS(632)& - &*UV(63)+JVS(633)*UV(64)+JVS(634)*UV(65)+JVS(635)*UV(66)+JVS(636)*UV(67) - -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(4)*UV(2) - JTUV(3) = JVS(5)*UV(3) - JTUV(4) = JVS(6)*UV(4) - JTUV(5) = JVS(10)*UV(5) - JTUV(6) = JVS(18)*UV(6) - JTUV(7) = JVS(24)*UV(7) - JTUV(8) = JVS(30)*UV(8) - JTUV(9) = JVS(33)*UV(9) - JTUV(10) = JVS(39)*UV(10) - JTUV(11) = JVS(43)*UV(11) - JTUV(12) = JVS(47)*UV(12) - JTUV(13) = JVS(51)*UV(13) - JTUV(14) = JVS(55)*UV(14) - JTUV(15) = JVS(2)*UV(1)+JVS(60)*UV(15)+JVS(541)*UV(65)+JVS(592)*UV(67) - JTUV(16) = JVS(62)*UV(16)+JVS(151)*UV(37)+JVS(593)*UV(67) - JTUV(17) = JVS(64)*UV(17)+JVS(322)*UV(54)+JVS(542)*UV(65)+JVS(594)*UV(67) - JTUV(18) = JVS(66)*UV(18)+JVS(386)*UV(58)+JVS(406)*UV(59) - JTUV(19) = JVS(69)*UV(19)+JVS(543)*UV(65)+JVS(595)*UV(67) - JTUV(20) = JVS(19)*UV(6)+JVS(25)*UV(7)+JVS(72)*UV(20)+JVS(107)*UV(29)+JVS(146)*UV(36)+JVS(250)*UV(48)+JVS(544)*UV(65)& - &+JVS(596)*UV(67) - JTUV(21) = JVS(74)*UV(21)+JVS(157)*UV(38)+JVS(407)*UV(59)+JVS(439)*UV(60) - JTUV(22) = JVS(20)*UV(6)+JVS(26)*UV(7)+JVS(77)*UV(22)+JVS(108)*UV(29)+JVS(147)*UV(36)+JVS(188)*UV(41)+JVS(251)*UV(48)& - &+JVS(308)*UV(53)+JVS(545)*UV(65)+JVS(597)*UV(67) - JTUV(23) = JVS(79)*UV(23)+JVS(343)*UV(55)+JVS(598)*UV(67) - JTUV(24) = JVS(84)*UV(24)+JVS(370)*UV(57)+JVS(408)*UV(59) - JTUV(25) = JVS(40)*UV(10)+JVS(44)*UV(11)+JVS(89)*UV(25)+JVS(440)*UV(60)+JVS(522)*UV(64)+JVS(599)*UV(67) - JTUV(26) = JVS(48)*UV(12)+JVS(52)*UV(13)+JVS(93)*UV(26)+JVS(441)*UV(60)+JVS(523)*UV(64)+JVS(600)*UV(67) - JTUV(27) = JVS(97)*UV(27)+JVS(409)*UV(59)+JVS(546)*UV(65)+JVS(601)*UV(67) - JTUV(28) = JVS(101)*UV(28)+JVS(295)*UV(52)+JVS(602)*UV(67) - JTUV(29) = JVS(109)*UV(29)+JVS(206)*UV(42)+JVS(371)*UV(57)+JVS(410)*UV(59)+JVS(497)*UV(63)+JVS(547)*UV(65) - JTUV(30) = JVS(56)*UV(14)+JVS(112)*UV(30)+JVS(189)*UV(41) - JTUV(31) = JVS(124)*UV(31)+JVS(231)*UV(47)+JVS(344)*UV(55)+JVS(548)*UV(65)+JVS(603)*UV(67) - JTUV(32) = JVS(128)*UV(32)+JVS(411)*UV(59)+JVS(498)*UV(63)+JVS(604)*UV(67) - JTUV(33) = JVS(133)*UV(33)+JVS(296)*UV(52)+JVS(323)*UV(54)+JVS(549)*UV(65)+JVS(605)*UV(67) - JTUV(34) = JVS(7)*UV(4)+JVS(137)*UV(34)+JVS(168)*UV(39)+JVS(232)*UV(47)+JVS(252)*UV(48)+JVS(324)*UV(54)+JVS(524)& - &*UV(64)+JVS(550)*UV(65)+JVS(606)*UV(67) - JTUV(35) = JVS(140)*UV(35)+JVS(233)*UV(47)+JVS(551)*UV(65)+JVS(607)*UV(67) - JTUV(36) = JVS(21)*UV(6)+JVS(27)*UV(7)+JVS(85)*UV(24)+JVS(148)*UV(36)+JVS(158)*UV(38)+JVS(207)*UV(42)+JVS(253)*UV(48)& - &+JVS(442)*UV(60)+JVS(552)*UV(65)+JVS(608)*UV(67) - JTUV(37) = JVS(152)*UV(37)+JVS(413)*UV(59)+JVS(443)*UV(60)+JVS(499)*UV(63)+JVS(525)*UV(64) - JTUV(38) = JVS(159)*UV(38)+JVS(414)*UV(59)+JVS(444)*UV(60)+JVS(609)*UV(67) - JTUV(39) = JVS(169)*UV(39)+JVS(553)*UV(65)+JVS(610)*UV(67) - JTUV(40) = JVS(183)*UV(40)+JVS(190)*UV(41)+JVS(325)*UV(54)+JVS(361)*UV(56)+JVS(373)*UV(57)+JVS(415)*UV(59)+JVS(500)& - &*UV(63)+JVS(554)*UV(65) - JTUV(41) = JVS(31)*UV(8)+JVS(57)*UV(14)+JVS(113)*UV(30)+JVS(191)*UV(41)+JVS(467)*UV(61)+JVS(611)*UV(67) - JTUV(42) = JVS(170)*UV(39)+JVS(208)*UV(42)+JVS(234)*UV(47)+JVS(254)*UV(48)+JVS(309)*UV(53)+JVS(326)*UV(54)+JVS(387)& - &*UV(58)+JVS(526)*UV(64)+JVS(555)*UV(65)+JVS(612)*UV(67) - JTUV(43) = JVS(192)*UV(41)+JVS(213)*UV(43)+JVS(235)*UV(47)+JVS(362)*UV(56)+JVS(374)*UV(57)+JVS(416)*UV(59)+JVS(501)& - &*UV(63)+JVS(556)*UV(65)+JVS(580)*UV(66) - JTUV(44) = JVS(171)*UV(39)+JVS(218)*UV(44)+JVS(236)*UV(47)+JVS(269)*UV(49)+JVS(310)*UV(53)+JVS(327)*UV(54)+JVS(417)& - &*UV(59)+JVS(502)*UV(63)+JVS(557)*UV(65)+JVS(581)*UV(66) - JTUV(45) = JVS(8)*UV(4)+JVS(11)*UV(5)+JVS(34)*UV(9)+JVS(80)*UV(23)+JVS(102)*UV(28)+JVS(114)*UV(30)+JVS(141)*UV(35)& - &+JVS(172)*UV(39)+JVS(223)*UV(45)+JVS(237)*UV(47)+JVS(255)*UV(48)+JVS(286)*UV(51)+JVS(297)*UV(52)+JVS(311)& - &*UV(53)+JVS(328)*UV(54)+JVS(345)*UV(55)+JVS(388)*UV(58)+JVS(445)*UV(60)+JVS(469)*UV(61)+JVS(527)*UV(64)& - &+JVS(558)*UV(65)+JVS(615)*UV(67) - JTUV(46) = JVS(12)*UV(5)+JVS(173)*UV(39)+JVS(184)*UV(40)+JVS(214)*UV(43)+JVS(227)*UV(46)+JVS(238)*UV(47)+JVS(256)& - &*UV(48)+JVS(329)*UV(54)+JVS(363)*UV(56)+JVS(389)*UV(58)+JVS(446)*UV(60)+JVS(528)*UV(64)+JVS(559)*UV(65)& - &+JVS(616)*UV(67) - JTUV(47) = JVS(160)*UV(38)+JVS(174)*UV(39)+JVS(239)*UV(47)+JVS(447)*UV(60)+JVS(560)*UV(65)+JVS(617)*UV(67) - JTUV(48) = JVS(58)*UV(14)+JVS(257)*UV(48)+JVS(420)*UV(59)+JVS(448)*UV(60)+JVS(504)*UV(63)+JVS(561)*UV(65) - JTUV(49) = JVS(270)*UV(49)+JVS(346)*UV(55)+JVS(390)*UV(58)+JVS(484)*UV(62)+JVS(618)*UV(67) - JTUV(50) = JVS(13)*UV(5)+JVS(35)*UV(9)+JVS(81)*UV(23)+JVS(103)*UV(28)+JVS(115)*UV(30)+JVS(142)*UV(35)+JVS(175)*UV(39)& - &+JVS(258)*UV(48)+JVS(271)*UV(49)+JVS(282)*UV(50)+JVS(287)*UV(51)+JVS(298)*UV(52)+JVS(312)*UV(53)+JVS(330)& - &*UV(54)+JVS(347)*UV(55)+JVS(391)*UV(58)+JVS(449)*UV(60)+JVS(471)*UV(61)+JVS(485)*UV(62)+JVS(529)*UV(64)& - &+JVS(562)*UV(65)+JVS(619)*UV(67) - JTUV(51) = JVS(116)*UV(30)+JVS(241)*UV(47)+JVS(288)*UV(51)+JVS(331)*UV(54)+JVS(376)*UV(57)+JVS(422)*UV(59)+JVS(450)& - &*UV(60)+JVS(506)*UV(63)+JVS(563)*UV(65) - JTUV(52) = JVS(104)*UV(28)+JVS(134)*UV(33)+JVS(299)*UV(52)+JVS(332)*UV(54)+JVS(423)*UV(59)+JVS(451)*UV(60)+JVS(507)& - &*UV(63)+JVS(564)*UV(65) - JTUV(53) = JVS(161)*UV(38)+JVS(176)*UV(39)+JVS(259)*UV(48)+JVS(313)*UV(53)+JVS(392)*UV(58)+JVS(452)*UV(60)+JVS(565)& - &*UV(65)+JVS(622)*UV(67) - JTUV(54) = JVS(162)*UV(38)+JVS(177)*UV(39)+JVS(333)*UV(54)+JVS(348)*UV(55)+JVS(393)*UV(58)+JVS(453)*UV(60)+JVS(566)& - &*UV(65)+JVS(623)*UV(67) - JTUV(55) = JVS(125)*UV(31)+JVS(143)*UV(35)+JVS(242)*UV(47)+JVS(349)*UV(55)+JVS(426)*UV(59)+JVS(454)*UV(60)+JVS(509)& - &*UV(63)+JVS(567)*UV(65) - JTUV(56) = JVS(14)*UV(5)+JVS(163)*UV(38)+JVS(178)*UV(39)+JVS(197)*UV(41)+JVS(219)*UV(44)+JVS(243)*UV(47)+JVS(260)& - &*UV(48)+JVS(272)*UV(49)+JVS(314)*UV(53)+JVS(334)*UV(54)+JVS(350)*UV(55)+JVS(364)*UV(56)+JVS(377)*UV(57)& - &+JVS(394)*UV(58)+JVS(455)*UV(60)+JVS(530)*UV(64)+JVS(568)*UV(65)+JVS(625)*UV(67) - JTUV(57) = JVS(117)*UV(30)+JVS(261)*UV(48)+JVS(273)*UV(49)+JVS(289)*UV(51)+JVS(300)*UV(52)+JVS(335)*UV(54)+JVS(378)& - &*UV(57)+JVS(428)*UV(59)+JVS(569)*UV(65)+JVS(626)*UV(67) - JTUV(58) = JVS(15)*UV(5)+JVS(67)*UV(18)+JVS(352)*UV(55)+JVS(396)*UV(58)+JVS(429)*UV(59)+JVS(457)*UV(60)+JVS(512)& - &*UV(63)+JVS(531)*UV(64)+JVS(570)*UV(65) - JTUV(59) = JVS(68)*UV(18)+JVS(75)*UV(21)+JVS(86)*UV(24)+JVS(98)*UV(27)+JVS(129)*UV(32)+JVS(153)*UV(37)+JVS(164)*UV(38)& - &+JVS(379)*UV(57)+JVS(397)*UV(58)+JVS(430)*UV(59)+JVS(458)*UV(60)+JVS(513)*UV(63)+JVS(532)*UV(64)+JVS(571)& - &*UV(65)+JVS(628)*UV(67) - JTUV(60) = JVS(22)*UV(6)+JVS(28)*UV(7)+JVS(36)*UV(9)+JVS(76)*UV(21)+JVS(87)*UV(24)+JVS(90)*UV(25)+JVS(94)*UV(26)& - &+JVS(118)*UV(30)+JVS(149)*UV(36)+JVS(154)*UV(37)+JVS(165)*UV(38)+JVS(179)*UV(39)+JVS(185)*UV(40)+JVS(199)& - &*UV(41)+JVS(224)*UV(45)+JVS(228)*UV(46)+JVS(244)*UV(47)+JVS(262)*UV(48)+JVS(274)*UV(49)+JVS(283)*UV(50)& - &+JVS(290)*UV(51)+JVS(301)*UV(52)+JVS(315)*UV(53)+JVS(336)*UV(54)+JVS(353)*UV(55)+JVS(365)*UV(56)+JVS(380)& - &*UV(57)+JVS(398)*UV(58)+JVS(431)*UV(59)+JVS(459)*UV(60)+JVS(476)*UV(61)+JVS(489)*UV(62)+JVS(514)*UV(63)& - &+JVS(572)*UV(65)+JVS(629)*UV(67) - JTUV(61) = JVS(119)*UV(30)+JVS(263)*UV(48)+JVS(275)*UV(49)+JVS(302)*UV(52)+JVS(337)*UV(54)+JVS(381)*UV(57)+JVS(432)& - &*UV(59)+JVS(460)*UV(60)+JVS(477)*UV(61)+JVS(515)*UV(63)+JVS(573)*UV(65)+JVS(585)*UV(66) - JTUV(62) = JVS(245)*UV(47)+JVS(276)*UV(49)+JVS(316)*UV(53)+JVS(400)*UV(58)+JVS(433)*UV(59)+JVS(461)*UV(60)+JVS(491)& - &*UV(62)+JVS(516)*UV(63)+JVS(574)*UV(65)+JVS(586)*UV(66) - JTUV(63) = JVS(110)*UV(29)+JVS(120)*UV(30)+JVS(130)*UV(32)+JVS(155)*UV(37)+JVS(180)*UV(39)+JVS(186)*UV(40)+JVS(201)& - &*UV(41)+JVS(210)*UV(42)+JVS(215)*UV(43)+JVS(220)*UV(44)+JVS(246)*UV(47)+JVS(264)*UV(48)+JVS(277)*UV(49)& - &+JVS(291)*UV(51)+JVS(303)*UV(52)+JVS(317)*UV(53)+JVS(338)*UV(54)+JVS(356)*UV(55)+JVS(366)*UV(56)+JVS(382)& - &*UV(57)+JVS(401)*UV(58)+JVS(434)*UV(59)+JVS(462)*UV(60)+JVS(479)*UV(61)+JVS(492)*UV(62)+JVS(517)*UV(63)& - &+JVS(536)*UV(64)+JVS(575)*UV(65)+JVS(632)*UV(67) - JTUV(64) = JVS(9)*UV(4)+JVS(16)*UV(5)+JVS(37)*UV(9)+JVS(41)*UV(10)+JVS(45)*UV(11)+JVS(49)*UV(12)+JVS(53)*UV(13)& - &+JVS(63)*UV(16)+JVS(82)*UV(23)+JVS(91)*UV(25)+JVS(95)*UV(26)+JVS(105)*UV(28)+JVS(121)*UV(30)+JVS(138)*UV(34)& - &+JVS(144)*UV(35)+JVS(156)*UV(37)+JVS(181)*UV(39)+JVS(211)*UV(42)+JVS(225)*UV(45)+JVS(229)*UV(46)+JVS(247)& - &*UV(47)+JVS(265)*UV(48)+JVS(278)*UV(49)+JVS(284)*UV(50)+JVS(304)*UV(52)+JVS(318)*UV(53)+JVS(339)*UV(54)& - &+JVS(357)*UV(55)+JVS(367)*UV(56)+JVS(402)*UV(58)+JVS(435)*UV(59)+JVS(463)*UV(60)+JVS(480)*UV(61)+JVS(493)& - &*UV(62)+JVS(518)*UV(63)+JVS(537)*UV(64)+JVS(576)*UV(65)+JVS(633)*UV(67) - JTUV(65) = JVS(17)*UV(5)+JVS(59)*UV(14)+JVS(70)*UV(19)+JVS(99)*UV(27)+JVS(126)*UV(31)+JVS(131)*UV(32)+JVS(135)*UV(33)& - &+JVS(166)*UV(38)+JVS(187)*UV(40)+JVS(203)*UV(41)+JVS(216)*UV(43)+JVS(221)*UV(44)+JVS(266)*UV(48)+JVS(293)& - &*UV(51)+JVS(305)*UV(52)+JVS(358)*UV(55)+JVS(384)*UV(57)+JVS(403)*UV(58)+JVS(436)*UV(59)+JVS(464)*UV(60)& - &+JVS(481)*UV(61)+JVS(494)*UV(62)+JVS(519)*UV(63)+JVS(538)*UV(64)+JVS(577)*UV(65)+JVS(589)*UV(66)+JVS(634)& - &*UV(67) - JTUV(66) = JVS(122)*UV(30)+JVS(267)*UV(48)+JVS(280)*UV(49)+JVS(306)*UV(52)+JVS(320)*UV(53)+JVS(341)*UV(54)+JVS(482)& - &*UV(61)+JVS(578)*UV(65)+JVS(590)*UV(66)+JVS(635)*UV(67) - JTUV(67) = JVS(3)*UV(1)+JVS(23)*UV(6)+JVS(29)*UV(7)+JVS(32)*UV(8)+JVS(38)*UV(9)+JVS(42)*UV(10)+JVS(46)*UV(11)+JVS(50)& - &*UV(12)+JVS(54)*UV(13)+JVS(61)*UV(15)+JVS(65)*UV(17)+JVS(71)*UV(19)+JVS(73)*UV(20)+JVS(78)*UV(22)+JVS(83)& - &*UV(23)+JVS(88)*UV(24)+JVS(92)*UV(25)+JVS(96)*UV(26)+JVS(100)*UV(27)+JVS(106)*UV(28)+JVS(111)*UV(29)& - &+JVS(123)*UV(30)+JVS(127)*UV(31)+JVS(132)*UV(32)+JVS(136)*UV(33)+JVS(139)*UV(34)+JVS(145)*UV(35)+JVS(150)& - &*UV(36)+JVS(167)*UV(38)+JVS(182)*UV(39)+JVS(205)*UV(41)+JVS(212)*UV(42)+JVS(217)*UV(43)+JVS(222)*UV(44)& - &+JVS(226)*UV(45)+JVS(230)*UV(46)+JVS(249)*UV(47)+JVS(268)*UV(48)+JVS(281)*UV(49)+JVS(285)*UV(50)+JVS(294)& - &*UV(51)+JVS(307)*UV(52)+JVS(321)*UV(53)+JVS(342)*UV(54)+JVS(360)*UV(55)+JVS(369)*UV(56)+JVS(385)*UV(57)& - &+JVS(405)*UV(58)+JVS(438)*UV(59)+JVS(466)*UV(60)+JVS(483)*UV(61)+JVS(496)*UV(62)+JVS(521)*UV(63)+JVS(540)& - &*UV(64)+JVS(579)*UV(65)+JVS(591)*UV(66)+JVS(636)*UV(67) - -END SUBROUTINE JacTR_SP_Vec - -! End of JacTR_SP_Vec function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE CBMZ_Jacobian - diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_Jacobian.o b/boxmox/compiled_mechs/CBMZ/CBMZ_Jacobian.o deleted file mode 100644 index 5496aaad92b54e183527f06e2dbd79dcc0e0bfd2..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/CBMZ_Jacobian.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_JacobianSP.f90 b/boxmox/compiled_mechs/CBMZ/CBMZ_JacobianSP.f90 deleted file mode 100644 index c976ef2540a488259cb821f66ea44e2e389d3abb..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CBMZ/CBMZ_JacobianSP.f90 +++ /dev/null @@ -1,168 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Sparse Jacobian Data Structures File -! -! Generated by KPP-2.2.3 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 : CBMZ_JacobianSP.f90 -! Time : Thu Oct 8 08:21:56 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CBMZ_11803_BOXMOX -! Equation file : CBMZ.kpp -! Output root filename : CBMZ -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CBMZ_JacobianSP - - PUBLIC - SAVE - - -! Sparse Jacobian Data - - - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_0 = (/ & - 1, 1, 1, 2, 3, 4, 4, 4, 4, 5, 5, 5, & - 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 7, & - 7, 7, 7, 7, 7, 8, 8, 8, 9, 9, 9, 9, & - 9, 9, 10, 10, 10, 10, 11, 11, 11, 11, 12, 12, & - 12, 12, 13, 13, 13, 13, 14, 14, 14, 14, 14, 15, & - 15, 16, 16, 17, 17, 18, 18, 18, 19, 19, 19, 20, & - 20, 21, 21, 21, 22, 22, 23, 23, 23, 23, 23, 24, & - 24, 24, 24, 24, 25, 25, 25, 25, 26, 26, 26, 26, & - 27, 27, 27, 27, 28, 28, 28, 28, 28, 28, 29, 29, & - 29, 29, 29, 30, 30, 30, 30, 30, 30, 30, 30, 30, & - 30, 30, 30, 31, 31, 31, 31, 32, 32, 32, 32, 32, & - 33, 33, 33, 33, 34, 34, 34, 35, 35, 35, 35, 35, & - 35, 36, 36, 36, 36, 36, 37, 37, 37, 37, 37, 37, & - 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 39, & - 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, & - 39, 39, 40, 40, 40, 40, 40, 41, 41, 41, 41, 41, & - 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, & - 41, 42, 42, 42, 42, 42, 42, 42, 43, 43, 43, 43, & - 43, 44, 44, 44, 44, 44, 45, 45, 45, 45, 46, 46, & - 46, 46, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, & - 47, 47, 47, 47, 47, 47, 47, 47, 47, 48, 48, 48, & - 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, & - 48, 48, 48, 48, 49, 49, 49, 49, 49, 49, 49, 49, & - 49, 49, 49, 49, 49, 50, 50, 50, 50, 51, 51, 51, & - 51, 51, 51, 51, 51, 51, 52, 52, 52, 52, 52, 52, & - 52, 52, 52, 52, 52, 52, 52, 53, 53, 53, 53, 53, & - 53, 53, 53, 53, 53, 53, 53, 53, 53, 54, 54, 54, & - 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, & - 54, 54, 54, 54, 54, 54, 55, 55, 55, 55, 55, 55, & - 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55 /) - INTEGER, PARAMETER, DIMENSION(276) :: LU_IROW_1 = (/ & - 56, 56, 56, 56, 56, 56, 56, 56, 56, 57, 57, 57, & - 57, 57, 57, 57, 57, 57, 57, 57, 57, 57, 57, 57, & - 57, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, & - 58, 58, 58, 58, 58, 58, 58, 58, 58, 59, 59, 59, & - 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, & - 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, & - 59, 59, 59, 59, 59, 59, 60, 60, 60, 60, 60, 60, & - 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, & - 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, 61, 61, & - 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, & - 61, 61, 61, 62, 62, 62, 62, 62, 62, 62, 62, 62, & - 62, 62, 62, 62, 63, 63, 63, 63, 63, 63, 63, 63, & - 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, & - 63, 63, 63, 63, 63, 64, 64, 64, 64, 64, 64, 64, & - 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, & - 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, & - 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, & - 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, & - 65, 65, 65, 66, 66, 66, 66, 66, 66, 66, 66, 66, & - 66, 66, 66, 67, 67, 67, 67, 67, 67, 67, 67, 67, & - 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, & - 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, & - 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67 /) - INTEGER, PARAMETER, DIMENSION(636) :: LU_IROW = (/& - LU_IROW_0, LU_IROW_1 /) - - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_0 = (/ & - 1, 15, 67, 2, 3, 4, 34, 45, 64, 5, 45, 46, & - 50, 56, 58, 64, 65, 6, 20, 22, 36, 60, 67, 7, & - 20, 22, 36, 60, 67, 8, 41, 67, 9, 45, 50, 60, & - 64, 67, 10, 25, 64, 67, 11, 25, 64, 67, 12, 26, & - 64, 67, 13, 26, 64, 67, 14, 30, 41, 48, 65, 15, & - 67, 16, 64, 17, 67, 18, 58, 59, 19, 65, 67, 20, & - 67, 21, 59, 60, 22, 67, 23, 45, 50, 64, 67, 24, & - 36, 59, 60, 67, 25, 60, 64, 67, 26, 60, 64, 67, & - 27, 59, 65, 67, 28, 45, 50, 52, 64, 67, 20, 22, & - 29, 63, 67, 30, 41, 45, 50, 51, 57, 60, 61, 63, & - 64, 66, 67, 31, 55, 65, 67, 32, 59, 63, 65, 67, & - 33, 52, 65, 67, 34, 64, 67, 35, 45, 50, 55, 64, & - 67, 20, 22, 36, 60, 67, 16, 37, 59, 60, 63, 64, & - 21, 36, 38, 47, 53, 54, 56, 59, 60, 65, 67, 34, & - 39, 42, 44, 45, 46, 47, 50, 53, 54, 56, 60, 63, & - 64, 67, 40, 46, 60, 63, 65, 22, 30, 40, 41, 43, & - 45, 46, 50, 51, 56, 57, 60, 61, 63, 64, 65, 66, & - 67, 29, 36, 42, 60, 63, 64, 67, 43, 46, 63, 65, & - 67, 44, 56, 63, 65, 67, 45, 60, 64, 67, 46, 60, & - 64, 67, 31, 34, 35, 42, 43, 44, 45, 46, 47, 50, & - 51, 55, 56, 60, 62, 63, 64, 65, 67, 20, 22, 34, & - 36, 42, 45, 46, 48, 50, 53, 56, 57, 60, 61, 63, & - 64, 65, 66, 67, 44, 49, 50, 56, 57, 60, 61, 62, & - 63, 64, 65, 66, 67, 50, 60, 64, 67, 45, 50, 51, & - 57, 60, 63, 64, 65, 67, 28, 33, 45, 50, 52, 57, & - 60, 61, 63, 64, 65, 66, 67, 22, 42, 44, 45, 50, & - 53, 56, 60, 62, 63, 64, 65, 66, 67, 17, 33, 34, & - 40, 42, 44, 45, 46, 50, 51, 52, 54, 56, 57, 60, & - 61, 63, 64, 65, 66, 67, 23, 31, 45, 49, 50, 54, & - 55, 56, 57, 58, 60, 61, 62, 63, 64, 65, 66, 67 /) - INTEGER, PARAMETER, DIMENSION(276) :: LU_ICOL_1 = (/ & - 40, 43, 46, 56, 60, 63, 64, 65, 67, 24, 29, 36, & - 40, 43, 46, 51, 56, 57, 59, 60, 61, 63, 64, 65, & - 67, 18, 42, 45, 46, 49, 50, 53, 54, 56, 57, 58, & - 59, 60, 61, 62, 63, 64, 65, 66, 67, 18, 21, 24, & - 27, 29, 32, 36, 37, 38, 40, 43, 44, 46, 47, 48, & - 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, & - 62, 63, 64, 65, 66, 67, 21, 25, 26, 36, 37, 38, & - 45, 46, 47, 48, 50, 51, 52, 53, 54, 55, 56, 57, & - 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 41, 43, & - 45, 46, 50, 51, 56, 57, 59, 60, 61, 62, 63, 64, & - 65, 66, 67, 49, 50, 56, 57, 59, 60, 61, 62, 63, & - 64, 65, 66, 67, 29, 32, 37, 40, 43, 44, 46, 48, & - 50, 51, 52, 53, 55, 56, 57, 58, 59, 60, 61, 62, & - 63, 64, 65, 66, 67, 25, 26, 34, 37, 42, 45, 46, & - 50, 56, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, & - 15, 17, 19, 20, 22, 27, 29, 31, 33, 34, 35, 36, & - 39, 40, 42, 43, 44, 45, 46, 47, 48, 50, 51, 52, & - 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, & - 65, 66, 67, 43, 44, 46, 56, 60, 61, 62, 63, 64, & - 65, 66, 67, 15, 16, 17, 19, 20, 22, 23, 25, 26, & - 27, 28, 31, 32, 33, 34, 35, 36, 38, 39, 41, 42, & - 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 54, 55, & - 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67 /) - INTEGER, PARAMETER, DIMENSION(636) :: LU_ICOL = (/& - LU_ICOL_0, LU_ICOL_1 /) - - INTEGER, PARAMETER, DIMENSION(68) :: LU_CROW = (/ & - 1, 4, 5, 6, 10, 18, 24, 30, 33, 39, 43, 47, & - 51, 55, 60, 62, 64, 66, 69, 72, 74, 77, 79, 84, & - 89, 93, 97,101,107,112,124,128,133,137,140,146, & - 151,157,168,183,188,206,213,218,223,227,231,250, & - 269,282,286,295,308,322,343,361,370,386,406,439, & - 467,484,497,522,541,580,592,637 /) - - INTEGER, PARAMETER, DIMENSION(68) :: LU_DIAG = (/ & - 1, 4, 5, 6, 10, 18, 24, 30, 33, 39, 43, 47, & - 51, 55, 60, 62, 64, 66, 69, 72, 74, 77, 79, 84, & - 89, 93, 97,101,109,112,124,128,133,137,140,148, & - 152,159,169,183,191,208,213,218,223,227,239,257, & - 270,282,288,299,313,333,349,364,378,396,430,459, & - 477,491,517,537,577,590,636,637 /) - - -END MODULE CBMZ_JacobianSP - diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_JacobianSP.o b/boxmox/compiled_mechs/CBMZ/CBMZ_JacobianSP.o deleted file mode 100644 index c006a62af143429bd885dd12badf8549d0b1ce04..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/CBMZ_JacobianSP.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_LinearAlgebra.f90 b/boxmox/compiled_mechs/CBMZ/CBMZ_LinearAlgebra.f90 deleted file mode 100644 index f8d2809d2cf07ed6a3df0ed6c3eee97990ad83d0..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CBMZ/CBMZ_LinearAlgebra.f90 +++ /dev/null @@ -1,1464 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Linear Algebra Data and Routines File -! -! Generated by KPP-2.2.3 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 : CBMZ_LinearAlgebra.f90 -! Time : Thu Oct 8 08:21:56 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CBMZ_11803_BOXMOX -! Equation file : CBMZ.kpp -! Output root filename : CBMZ -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CBMZ_LinearAlgebra - - USE CBMZ_Parameters - USE CBMZ_JacobianSP - - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! SPARSE_UTIL - SPARSE utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecomp( JVS, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CBMZ_Parameters - USE CBMZ_JacobianSP - - INTEGER :: IER - REAL(kind=dp) :: JVS(LU_NONZERO), W(NVAR), a - INTEGER :: k, kk, j, jj - - a = 0. ! mz_rs_20050606 - IER = 0 - DO k=1,NVAR - ! mz_rs_20050606: don't check if real value == 0 - ! IF ( JVS( LU_DIAG(k) ) .EQ. 0. ) THEN - IF ( ABS(JVS(LU_DIAG(k))) < TINY(a) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - W( LU_ICOL(kk) ) = JVS(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - a = -W(j) / JVS( LU_DIAG(j) ) - W(j) = -a - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVS(kk) = W( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecomp - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecompCmplx( JVS, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization, complex -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CBMZ_Parameters - USE CBMZ_JacobianSP - - INTEGER :: IER - DOUBLE COMPLEX :: JVS(LU_NONZERO), W(NVAR), a - REAL(kind=dp) :: b = 0.0 - INTEGER :: k, kk, j, jj - - IER = 0 - DO k=1,NVAR - IF ( ABS(JVS(LU_DIAG(k))) < TINY(b) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - W( LU_ICOL(kk) ) = JVS(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - a = -W(j) / JVS( LU_DIAG(j) ) - W(j) = -a - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVS(kk) = W( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecompCmplx - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecompCmplxR( JVSR, JVSI, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization, complex -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CBMZ_Parameters - USE CBMZ_JacobianSP - - INTEGER :: IER - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO) - REAL(kind=dp) :: WR(NVAR), WI(NVAR), ar, ai, den - INTEGER :: k, kk, j, jj - - IER = 0 - ar = 0.0 - DO k=1,NVAR - IF ( ( ABS(JVSR(LU_DIAG(k))) < TINY(ar) ) .AND. & - ( ABS(JVSI(LU_DIAG(k))) < TINY(ar) ) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - WR( LU_ICOL(kk) ) = JVSR(kk) - WI( LU_ICOL(kk) ) = JVSI(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - den = JVSR(LU_DIAG(j))**2 + JVSI(LU_DIAG(j))**2 - ar = -(WR(j)*JVSR(LU_DIAG(j)) + WI(j)*JVSI(LU_DIAG(j)))/den - ai = -(WI(j)*JVSR(LU_DIAG(j)) - WR(j)*JVSI(LU_DIAG(j)))/den - WR(j) = -ar - WI(j) = -ai - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - WR( LU_ICOL(jj) ) = WR( LU_ICOL(jj) ) + ar*JVSR(jj) - ai*JVSI(jj) - WI( LU_ICOL(jj) ) = WI( LU_ICOL(jj) ) + ar*JVSI(jj) + ai*JVSR(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVSR(kk) = WR( LU_ICOL(kk) ) - JVSI(kk) = WI( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecompCmplxR - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveIndirect( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse solve subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CBMZ_Parameters - USE CBMZ_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR), sum - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - X(i) = X(i) - JVS(j)*X(LU_ICOL(j)); - END DO - END DO - - DO i=NVAR,1,-1 - sum = X(i); - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sum = sum - JVS(j)*X(LU_ICOL(j)); - END DO - X(i) = sum/JVS(LU_DIAG(i)); - END DO - -END SUBROUTINE KppSolveIndirect - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRIndirect( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CBMZ_Parameters - USE CBMZ_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR) - - DO i=1,NVAR - X(i) = X(i)/JVS(LU_DIAG(i)) - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - -END SUBROUTINE KppSolveTRIndirect - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveCmplx( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CBMZ_Parameters - USE CBMZ_JacobianSP - - INTEGER :: i, j - DOUBLE COMPLEX :: JVS(LU_NONZERO), X(NVAR), sum - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - X(i) = X(i) - JVS(j)*X(LU_ICOL(j)); - END DO - END DO - - DO i=NVAR,1,-1 - sum = X(i); - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sum = sum - JVS(j)*X(LU_ICOL(j)); - END DO - X(i) = sum/JVS(LU_DIAG(i)); - END DO - -END SUBROUTINE KppSolveCmplx - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveCmplxR( JVSR, JVSI, XR, XI ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve subroutine using indirect addressing -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CBMZ_Parameters - USE CBMZ_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), sumr, sumi, den - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - XR(i) = XR(i) - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j))) - XI(i) = XI(i) - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j))) - END DO - END DO - - DO i=NVAR,1,-1 - sumr = XR(i); sumi = XI(i) - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sumr = sumr - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j))) - sumi = sumi - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j))) - END DO - den = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2 - XR(i) = (sumr*JVSR(LU_DIAG(i)) + sumi*JVSI(LU_DIAG(i)))/den - XI(i) = (sumi*JVSR(LU_DIAG(i)) - sumr*JVSI(LU_DIAG(i)))/den - END DO - -END SUBROUTINE KppSolveCmplxR - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRCmplx( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CBMZ_Parameters - USE CBMZ_JacobianSP - - INTEGER :: i, j - DOUBLE COMPLEX :: JVS(LU_NONZERO), X(NVAR) - - DO i=1,NVAR - X(i) = X(i)/JVS(LU_DIAG(i)) - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - -END SUBROUTINE KppSolveTRCmplx - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRCmplxR( JVSR, JVSI, XR, XI ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CBMZ_Parameters - USE CBMZ_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), den - - DO i=1,NVAR - den = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2 - XR(i) = (XR(i)*JVSR(LU_DIAG(i)) + XI(i)*JVSI(LU_DIAG(i)))/den - XI(i) = (XI(i)*JVSR(LU_DIAG(i)) - XR(i)*JVSI(LU_DIAG(i)))/den - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i)) - XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i)) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i)) - XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i)) - END DO - END DO - -END SUBROUTINE KppSolveTRCmplxR - - -! -! Next few commented subroutines perform sparse big linear algebra -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppDecompBig( JVS, IP, IER ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Sparse LU factorization -!! for the Runge Kutta (3n)x(3n) linear system -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE CBMZ_Parameters -! USE CBMZ_JacobianSP -! -! INTEGER :: IP3(3), IER, IP(3,NVAR) -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), W(3,3,NVAR), a(3,3), E(3,3) -! INTEGER :: k, kk, j, jj -! -! a = 0.0d0 -! IER = 0 -! DO k=1,NVAR -! DO kk = LU_CROW(k), LU_CROW(k+1)-1 -! W( 1:3,1:3,LU_ICOL(kk) ) = JVS(1:3,1:3,kk) -! END DO -! DO kk = LU_CROW(k), LU_DIAG(k)-1 -! j = LU_ICOL(kk) -! E(1:3,1:3) = JVS( 1:3,1:3,LU_DIAG(j) ) -! ! CALL DGETRF(3,3,E,3,IP3,IER) -! CALL FAC3(E,IP3,IER) -! IF ( IER /= 0 ) RETURN -! ! a = W(j) / JVS( LU_DIAG(j) ) -! a(1:3,1:3) = W( 1:3,1:3,j ) -! ! CALL DGETRS ('N',3,3,E,3,IP3,a,3,IER) -! CALL SOL3('N',E,IP3,a(1,1)) -! CALL SOL3('N',E,IP3,a(1,2)) -! CALL SOL3('N',E,IP3,a(1,3)) -! W(1:3,1:3,j) = a(1:3,1:3) -! DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 -! W( 1:3,1:3,LU_ICOL(jj) ) = W( 1:3,1:3,LU_ICOL(jj) ) & -! - MATMUL( a(1:3,1:3) , JVS(1:3,1:3,jj) ) -! END DO -! END DO -! DO kk = LU_CROW(k), LU_CROW(k+1)-1 -! JVS(1:3,1:3,kk) = W( 1:3,1:3,LU_ICOL(kk) ) -! END DO -! END DO -! -! DO k=1,NVAR -! ! CALL WGEFA(JVS(1,1,LU_DIAG(k)),3,3,IP(1,k),IER) -! ! CALL DGETRF(3,3,JVS(1,1,LU_DIAG(k)),3,IP(1,k),IER) -! CALL FAC3(JVS(1,1,LU_DIAG(k)),IP(1,k),IER) -! IF ( IER /= 0 ) RETURN -! END DO -! -!END SUBROUTINE KppDecompBig -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppSolveBig( JVS, IP, X ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Sparse solve subroutine using indirect addressing -!! for the Runge Kutta (3n)x(3n) linear system -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE CBMZ_Parameters -! USE CBMZ_JacobianSP -! -! INTEGER :: i, j, k, m, IP3(3), IP(3,NVAR), IER -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR), sum(3) -! -! DO i=1,NVAR -! DO j = LU_CROW(i), LU_DIAG(i)-1 -! !X(1:3,i) = X(1:3,i) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j))); -! DO k=1,3 -! DO m=1,3 -! X(k,i) = X(k,i) - JVS(k,m,j)*X(m,LU_ICOL(j)) -! END DO -! END DO -! END DO -! END DO -! -! DO i=NVAR,1,-1 -! sum(1:3) = X(1:3,i); -! DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 -! !sum(1:3) = sum(1:3) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j))); -! DO k=1,3 -! DO m=1,3 -! sum(k) = sum(k) - JVS(k,m,j)*X(m,LU_ICOL(j)) -! END DO -! END DO -! END DO -! ! X(i) = sum/JVS(LU_DIAG(i)); -! ! CALL DGETRS ('N',3,1,JVS(1:3,1:3,LU_DIAG(i)),3,IP(1,i),sum,3,0) -! ! CALL WGESL('N',JVS(1,1,LU_DIAG(i)),3,3,IP(1,i),sum) -! CALL SOL3('N',JVS(1,1,LU_DIAG(i)),IP(1,i),sum) -! X(1:3,i) = sum(1:3) -! END DO -! -!END SUBROUTINE KppSolveBig -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppSolveBigTR( JVS, IP, X ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Big sparse transpose solve using indirect addressing -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE CBMZ_Parameters -! USE CBMZ_JacobianSP -! -! INTEGER :: i, j, k, m, IP(3,NVAR) -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR) -! -! DO i=1,NVAR -! ! X(i) = X(i)/JVS(LU_DIAG(i)) -! CALL SOL3('T',JVS(1,1,LU_DIAG(i)),IP(1,i),X(1,i)) -! DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 -! !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) & -! ! - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) ) -! DO k=1,3 -! DO m=1,3 -! X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i) -! END DO -! END DO -! END DO -! END DO -! -! DO i=NVAR, 1, -1 -! DO j=LU_CROW(i),LU_DIAG(i)-1 -! !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) & -! ! - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) ) -! DO k=1,3 -! DO m=1,3 -! X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i) -! END DO -! END DO -! END DO -! END DO -! -!END SUBROUTINE KppSolveBigTR -! -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE FAC3(A,IPVT,INFO) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! FAC3 FACTORS THE MATRIX A (3,3) BY -!! GAUSS ELIMINATION WITH PARTIAL PIVOTING -!! LINPACK - LIKE -!! -!! Remove comments to perform pivoting -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! -! REAL(kind=dp) :: A(3,3) -! INTEGER :: IPVT(3),INFO -!! INTEGER :: L -!! REAL(kind=dp) :: t, dmax, da, TMP(3) -! REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0 -! -! info = 0 -!! t = TINY(da) -!! -!! da = ABS(A(1,1)); L = 1 -!! IF ( ABS(A(2,1))>da ) THEN -!! da = ABS(A(2,1)); L = 2 -!! IF ( ABS(A(3,1))>da ) THEN -!! L = 3 -!! END IF -!! END IF -!! IPVT(1) = L -!! IF (L /=1 ) THEN -!! TMP(1:3) = A(L,1:3) -!! A(L,1:3) = A(1,1:3) -!! A(1,1:3) = TMP(1:3) -!! END IF -!! IF (ABS(A(1,1)) < t) THEN -!! info = 1 -!! return -!! END IF -!! -! A(2,1) = A(2,1)/A(1,1) -! A(2,2) = A(2,2) - A(2,1)*A(1,2) -! A(2,3) = A(2,3) - A(2,1)*A(1,3) -! A(3,1) = A(3,1)/A(1,1) -! A(3,2) = A(3,2) - A(3,1)*A(1,2) -! A(3,3) = A(3,3) - A(3,1)*A(1,3) -! -!! IPVT(2) = 2 -!! IF (ABS(A(3,2))>ABS(A(2,2))) THEN -!! IPVT(2) = 3 -!! TMP(2:3) = A(3,2:3) -!! A(3,2:3) = A(2,2:3) -!! A(2,2:3) = TMP(2:3) -!! END IF -!! IF (ABS(A(2,2)) < t) THEN -!! info = 1 -!! return -!! END IF -!! -! A(3,2) = A(3,2)/A(2,2) -! A(3,3) = A(3,3) - A(3,2)*A(2,3) -! IPVT(3) = 3 -! -!END SUBROUTINE FAC3 -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE SOL3(Trans,A,IPVT,b) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! SOL3 solves the system 3x3 -!! A * x = b or trans(a) * x = b -!! using the factors computed by WGEFA. -!! -!! Trans = 'N' to solve A*x = b , -!! = 'T' to solve transpose(A)*x = b -!! LINPACK - LIKE -!! -!! Remove comments to use pivoting -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! CHARACTER :: Trans -! REAL(kind=dp) :: a(3,3),b(3) -! INTEGER :: IPVT(3) -!! INTEGER :: L -!! REAL(kind=dp) :: TMP -! -! SELECT CASE (Trans) -! -! CASE ('n','N') ! Solve A * x = b -! -!! Solve L*y = b -!! L = IPVT(1) -!! IF (L /= 1) THEN -!! TMP = B(1); B(1) = B(L); B(L) = TMP -!! END IF -! b(2) = b(2)-A(2,1)*b(1) -! b(3) = b(3)-A(3,1)*b(1) -! -!! L = IPVT(2) -!! IF (L /= 2) THEN -!! TMP = B(2); B(2) = B(L); B(L) = TMP -!! END IF -! b(3) = b(3)-A(3,2)*b(2) -! -!! Solve U*x = y -! b(3) = b(3)/A(3,3) -! b(2) = (b(2)-A(2,3)*b(3))/A(2,2) -! b(1) = (b(1)-A(1,3)*b(3)-A(1,2)*b(2))/A(1,1) -! -! -! CASE ('t','T') ! Solve transpose(A) * x = b -! -!! Solve transpose(U)*y = b -! b(1) = b(1)/A(1,1) -! b(2) = (b(2)-A(1,2)*b(1))/A(2,2) -! b(3) = (b(3)-A(1,3)*b(1)-A(2,3)*b(2))/A(3,3) -! -!! Solve transpose(L)*x = y -! b(2) = b(2)-A(3,2)*b(3) -!! L = ipvt(2) -!! IF (L /= 2) THEN -!! TMP = B(2); B(2) = B(L); B(L) = TMP -!! END IF -! b(1) = b(1)-A(3,1)*b(3)-A(2,1)*b(2) -!! L = ipvt(1) -!! IF (L /= 1) THEN -!! TMP = B(1); B(1) = B(L); B(L) = TMP -!! END IF -! -! END SELECT -! -!END SUBROUTINE SOL3 - -! End of SPARSE_UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! KppSolve - sparse back substitution -! Arguments : -! JVS - sparse Jacobian of variables -! X - Vector for variables -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE KppSolve ( JVS, X ) - -! JVS - sparse Jacobian of variables - REAL(kind=dp) :: JVS(LU_NONZERO) -! X - Vector for variables - REAL(kind=dp) :: X(NVAR) - - X(29) = X(29)-JVS(107)*X(20)-JVS(108)*X(22) - X(36) = X(36)-JVS(146)*X(20)-JVS(147)*X(22) - X(37) = X(37)-JVS(151)*X(16) - X(38) = X(38)-JVS(157)*X(21)-JVS(158)*X(36) - X(39) = X(39)-JVS(168)*X(34) - X(41) = X(41)-JVS(188)*X(22)-JVS(189)*X(30)-JVS(190)*X(40) - X(42) = X(42)-JVS(206)*X(29)-JVS(207)*X(36) - X(47) = X(47)-JVS(231)*X(31)-JVS(232)*X(34)-JVS(233)*X(35)-JVS(234)*X(42)-JVS(235)*X(43)-JVS(236)*X(44)-JVS(237)*X(45)& - &-JVS(238)*X(46) - X(48) = X(48)-JVS(250)*X(20)-JVS(251)*X(22)-JVS(252)*X(34)-JVS(253)*X(36)-JVS(254)*X(42)-JVS(255)*X(45)-JVS(256)*X(46) - X(49) = X(49)-JVS(269)*X(44) - X(51) = X(51)-JVS(286)*X(45)-JVS(287)*X(50) - X(52) = X(52)-JVS(295)*X(28)-JVS(296)*X(33)-JVS(297)*X(45)-JVS(298)*X(50) - X(53) = X(53)-JVS(308)*X(22)-JVS(309)*X(42)-JVS(310)*X(44)-JVS(311)*X(45)-JVS(312)*X(50) - X(54) = X(54)-JVS(322)*X(17)-JVS(323)*X(33)-JVS(324)*X(34)-JVS(325)*X(40)-JVS(326)*X(42)-JVS(327)*X(44)-JVS(328)*X(45)& - &-JVS(329)*X(46)-JVS(330)*X(50)-JVS(331)*X(51)-JVS(332)*X(52) - X(55) = X(55)-JVS(343)*X(23)-JVS(344)*X(31)-JVS(345)*X(45)-JVS(346)*X(49)-JVS(347)*X(50)-JVS(348)*X(54) - X(56) = X(56)-JVS(361)*X(40)-JVS(362)*X(43)-JVS(363)*X(46) - X(57) = X(57)-JVS(370)*X(24)-JVS(371)*X(29)-JVS(372)*X(36)-JVS(373)*X(40)-JVS(374)*X(43)-JVS(375)*X(46)-JVS(376)*X(51)& - &-JVS(377)*X(56) - X(58) = X(58)-JVS(386)*X(18)-JVS(387)*X(42)-JVS(388)*X(45)-JVS(389)*X(46)-JVS(390)*X(49)-JVS(391)*X(50)-JVS(392)*X(53)& - &-JVS(393)*X(54)-JVS(394)*X(56)-JVS(395)*X(57) - X(59) = X(59)-JVS(406)*X(18)-JVS(407)*X(21)-JVS(408)*X(24)-JVS(409)*X(27)-JVS(410)*X(29)-JVS(411)*X(32)-JVS(412)*X(36)& - &-JVS(413)*X(37)-JVS(414)*X(38)-JVS(415)*X(40)-JVS(416)*X(43)-JVS(417)*X(44)-JVS(418)*X(46)-JVS(419)*X(47)& - &-JVS(420)*X(48)-JVS(421)*X(50)-JVS(422)*X(51)-JVS(423)*X(52)-JVS(424)*X(53)-JVS(425)*X(54)-JVS(426)*X(55)& - &-JVS(427)*X(56)-JVS(428)*X(57)-JVS(429)*X(58) - X(60) = X(60)-JVS(439)*X(21)-JVS(440)*X(25)-JVS(441)*X(26)-JVS(442)*X(36)-JVS(443)*X(37)-JVS(444)*X(38)-JVS(445)*X(45)& - &-JVS(446)*X(46)-JVS(447)*X(47)-JVS(448)*X(48)-JVS(449)*X(50)-JVS(450)*X(51)-JVS(451)*X(52)-JVS(452)*X(53)& - &-JVS(453)*X(54)-JVS(454)*X(55)-JVS(455)*X(56)-JVS(456)*X(57)-JVS(457)*X(58)-JVS(458)*X(59) - X(61) = X(61)-JVS(467)*X(41)-JVS(468)*X(43)-JVS(469)*X(45)-JVS(470)*X(46)-JVS(471)*X(50)-JVS(472)*X(51)-JVS(473)*X(56)& - &-JVS(474)*X(57)-JVS(475)*X(59)-JVS(476)*X(60) - X(62) = X(62)-JVS(484)*X(49)-JVS(485)*X(50)-JVS(486)*X(56)-JVS(487)*X(57)-JVS(488)*X(59)-JVS(489)*X(60)-JVS(490)*X(61) - X(63) = X(63)-JVS(497)*X(29)-JVS(498)*X(32)-JVS(499)*X(37)-JVS(500)*X(40)-JVS(501)*X(43)-JVS(502)*X(44)-JVS(503)*X(46)& - &-JVS(504)*X(48)-JVS(505)*X(50)-JVS(506)*X(51)-JVS(507)*X(52)-JVS(508)*X(53)-JVS(509)*X(55)-JVS(510)*X(56)& - &-JVS(511)*X(57)-JVS(512)*X(58)-JVS(513)*X(59)-JVS(514)*X(60)-JVS(515)*X(61)-JVS(516)*X(62) - X(64) = X(64)-JVS(522)*X(25)-JVS(523)*X(26)-JVS(524)*X(34)-JVS(525)*X(37)-JVS(526)*X(42)-JVS(527)*X(45)-JVS(528)*X(46)& - &-JVS(529)*X(50)-JVS(530)*X(56)-JVS(531)*X(58)-JVS(532)*X(59)-JVS(533)*X(60)-JVS(534)*X(61)-JVS(535)*X(62)& - &-JVS(536)*X(63) - X(65) = X(65)-JVS(541)*X(15)-JVS(542)*X(17)-JVS(543)*X(19)-JVS(544)*X(20)-JVS(545)*X(22)-JVS(546)*X(27)-JVS(547)*X(29)& - &-JVS(548)*X(31)-JVS(549)*X(33)-JVS(550)*X(34)-JVS(551)*X(35)-JVS(552)*X(36)-JVS(553)*X(39)-JVS(554)*X(40)& - &-JVS(555)*X(42)-JVS(556)*X(43)-JVS(557)*X(44)-JVS(558)*X(45)-JVS(559)*X(46)-JVS(560)*X(47)-JVS(561)*X(48)& - &-JVS(562)*X(50)-JVS(563)*X(51)-JVS(564)*X(52)-JVS(565)*X(53)-JVS(566)*X(54)-JVS(567)*X(55)-JVS(568)*X(56)& - &-JVS(569)*X(57)-JVS(570)*X(58)-JVS(571)*X(59)-JVS(572)*X(60)-JVS(573)*X(61)-JVS(574)*X(62)-JVS(575)*X(63)& - &-JVS(576)*X(64) - X(66) = X(66)-JVS(580)*X(43)-JVS(581)*X(44)-JVS(582)*X(46)-JVS(583)*X(56)-JVS(584)*X(60)-JVS(585)*X(61)-JVS(586)*X(62)& - &-JVS(587)*X(63)-JVS(588)*X(64)-JVS(589)*X(65) - X(67) = X(67)-JVS(592)*X(15)-JVS(593)*X(16)-JVS(594)*X(17)-JVS(595)*X(19)-JVS(596)*X(20)-JVS(597)*X(22)-JVS(598)*X(23)& - &-JVS(599)*X(25)-JVS(600)*X(26)-JVS(601)*X(27)-JVS(602)*X(28)-JVS(603)*X(31)-JVS(604)*X(32)-JVS(605)*X(33)& - &-JVS(606)*X(34)-JVS(607)*X(35)-JVS(608)*X(36)-JVS(609)*X(38)-JVS(610)*X(39)-JVS(611)*X(41)-JVS(612)*X(42)& - &-JVS(613)*X(43)-JVS(614)*X(44)-JVS(615)*X(45)-JVS(616)*X(46)-JVS(617)*X(47)-JVS(618)*X(49)-JVS(619)*X(50)& - &-JVS(620)*X(51)-JVS(621)*X(52)-JVS(622)*X(53)-JVS(623)*X(54)-JVS(624)*X(55)-JVS(625)*X(56)-JVS(626)*X(57)& - &-JVS(627)*X(58)-JVS(628)*X(59)-JVS(629)*X(60)-JVS(630)*X(61)-JVS(631)*X(62)-JVS(632)*X(63)-JVS(633)*X(64)& - &-JVS(634)*X(65)-JVS(635)*X(66) - X(67) = X(67)/JVS(636) - X(66) = (X(66)-JVS(591)*X(67))/(JVS(590)) - X(65) = (X(65)-JVS(578)*X(66)-JVS(579)*X(67))/(JVS(577)) - X(64) = (X(64)-JVS(538)*X(65)-JVS(539)*X(66)-JVS(540)*X(67))/(JVS(537)) - X(63) = (X(63)-JVS(518)*X(64)-JVS(519)*X(65)-JVS(520)*X(66)-JVS(521)*X(67))/(JVS(517)) - X(62) = (X(62)-JVS(492)*X(63)-JVS(493)*X(64)-JVS(494)*X(65)-JVS(495)*X(66)-JVS(496)*X(67))/(JVS(491)) - X(61) = (X(61)-JVS(478)*X(62)-JVS(479)*X(63)-JVS(480)*X(64)-JVS(481)*X(65)-JVS(482)*X(66)-JVS(483)*X(67))/(JVS(477)) - X(60) = (X(60)-JVS(460)*X(61)-JVS(461)*X(62)-JVS(462)*X(63)-JVS(463)*X(64)-JVS(464)*X(65)-JVS(465)*X(66)-JVS(466)& - &*X(67))/(JVS(459)) - X(59) = (X(59)-JVS(431)*X(60)-JVS(432)*X(61)-JVS(433)*X(62)-JVS(434)*X(63)-JVS(435)*X(64)-JVS(436)*X(65)-JVS(437)& - &*X(66)-JVS(438)*X(67))/(JVS(430)) - X(58) = (X(58)-JVS(397)*X(59)-JVS(398)*X(60)-JVS(399)*X(61)-JVS(400)*X(62)-JVS(401)*X(63)-JVS(402)*X(64)-JVS(403)& - &*X(65)-JVS(404)*X(66)-JVS(405)*X(67))/(JVS(396)) - X(57) = (X(57)-JVS(379)*X(59)-JVS(380)*X(60)-JVS(381)*X(61)-JVS(382)*X(63)-JVS(383)*X(64)-JVS(384)*X(65)-JVS(385)& - &*X(67))/(JVS(378)) - X(56) = (X(56)-JVS(365)*X(60)-JVS(366)*X(63)-JVS(367)*X(64)-JVS(368)*X(65)-JVS(369)*X(67))/(JVS(364)) - X(55) = (X(55)-JVS(350)*X(56)-JVS(351)*X(57)-JVS(352)*X(58)-JVS(353)*X(60)-JVS(354)*X(61)-JVS(355)*X(62)-JVS(356)& - &*X(63)-JVS(357)*X(64)-JVS(358)*X(65)-JVS(359)*X(66)-JVS(360)*X(67))/(JVS(349)) - X(54) = (X(54)-JVS(334)*X(56)-JVS(335)*X(57)-JVS(336)*X(60)-JVS(337)*X(61)-JVS(338)*X(63)-JVS(339)*X(64)-JVS(340)& - &*X(65)-JVS(341)*X(66)-JVS(342)*X(67))/(JVS(333)) - X(53) = (X(53)-JVS(314)*X(56)-JVS(315)*X(60)-JVS(316)*X(62)-JVS(317)*X(63)-JVS(318)*X(64)-JVS(319)*X(65)-JVS(320)& - &*X(66)-JVS(321)*X(67))/(JVS(313)) - X(52) = (X(52)-JVS(300)*X(57)-JVS(301)*X(60)-JVS(302)*X(61)-JVS(303)*X(63)-JVS(304)*X(64)-JVS(305)*X(65)-JVS(306)& - &*X(66)-JVS(307)*X(67))/(JVS(299)) - X(51) = (X(51)-JVS(289)*X(57)-JVS(290)*X(60)-JVS(291)*X(63)-JVS(292)*X(64)-JVS(293)*X(65)-JVS(294)*X(67))/(JVS(288)) - X(50) = (X(50)-JVS(283)*X(60)-JVS(284)*X(64)-JVS(285)*X(67))/(JVS(282)) - X(49) = (X(49)-JVS(271)*X(50)-JVS(272)*X(56)-JVS(273)*X(57)-JVS(274)*X(60)-JVS(275)*X(61)-JVS(276)*X(62)-JVS(277)& - &*X(63)-JVS(278)*X(64)-JVS(279)*X(65)-JVS(280)*X(66)-JVS(281)*X(67))/(JVS(270)) - X(48) = (X(48)-JVS(258)*X(50)-JVS(259)*X(53)-JVS(260)*X(56)-JVS(261)*X(57)-JVS(262)*X(60)-JVS(263)*X(61)-JVS(264)& - &*X(63)-JVS(265)*X(64)-JVS(266)*X(65)-JVS(267)*X(66)-JVS(268)*X(67))/(JVS(257)) - X(47) = (X(47)-JVS(240)*X(50)-JVS(241)*X(51)-JVS(242)*X(55)-JVS(243)*X(56)-JVS(244)*X(60)-JVS(245)*X(62)-JVS(246)& - &*X(63)-JVS(247)*X(64)-JVS(248)*X(65)-JVS(249)*X(67))/(JVS(239)) - X(46) = (X(46)-JVS(228)*X(60)-JVS(229)*X(64)-JVS(230)*X(67))/(JVS(227)) - X(45) = (X(45)-JVS(224)*X(60)-JVS(225)*X(64)-JVS(226)*X(67))/(JVS(223)) - X(44) = (X(44)-JVS(219)*X(56)-JVS(220)*X(63)-JVS(221)*X(65)-JVS(222)*X(67))/(JVS(218)) - X(43) = (X(43)-JVS(214)*X(46)-JVS(215)*X(63)-JVS(216)*X(65)-JVS(217)*X(67))/(JVS(213)) - X(42) = (X(42)-JVS(209)*X(60)-JVS(210)*X(63)-JVS(211)*X(64)-JVS(212)*X(67))/(JVS(208)) - X(41) = (X(41)-JVS(192)*X(43)-JVS(193)*X(45)-JVS(194)*X(46)-JVS(195)*X(50)-JVS(196)*X(51)-JVS(197)*X(56)-JVS(198)& - &*X(57)-JVS(199)*X(60)-JVS(200)*X(61)-JVS(201)*X(63)-JVS(202)*X(64)-JVS(203)*X(65)-JVS(204)*X(66)-JVS(205)& - &*X(67))/(JVS(191)) - X(40) = (X(40)-JVS(184)*X(46)-JVS(185)*X(60)-JVS(186)*X(63)-JVS(187)*X(65))/(JVS(183)) - X(39) = (X(39)-JVS(170)*X(42)-JVS(171)*X(44)-JVS(172)*X(45)-JVS(173)*X(46)-JVS(174)*X(47)-JVS(175)*X(50)-JVS(176)& - &*X(53)-JVS(177)*X(54)-JVS(178)*X(56)-JVS(179)*X(60)-JVS(180)*X(63)-JVS(181)*X(64)-JVS(182)*X(67))/(JVS(169)) - X(38) = (X(38)-JVS(160)*X(47)-JVS(161)*X(53)-JVS(162)*X(54)-JVS(163)*X(56)-JVS(164)*X(59)-JVS(165)*X(60)-JVS(166)& - &*X(65)-JVS(167)*X(67))/(JVS(159)) - X(37) = (X(37)-JVS(153)*X(59)-JVS(154)*X(60)-JVS(155)*X(63)-JVS(156)*X(64))/(JVS(152)) - X(36) = (X(36)-JVS(149)*X(60)-JVS(150)*X(67))/(JVS(148)) - X(35) = (X(35)-JVS(141)*X(45)-JVS(142)*X(50)-JVS(143)*X(55)-JVS(144)*X(64)-JVS(145)*X(67))/(JVS(140)) - X(34) = (X(34)-JVS(138)*X(64)-JVS(139)*X(67))/(JVS(137)) - X(33) = (X(33)-JVS(134)*X(52)-JVS(135)*X(65)-JVS(136)*X(67))/(JVS(133)) - X(32) = (X(32)-JVS(129)*X(59)-JVS(130)*X(63)-JVS(131)*X(65)-JVS(132)*X(67))/(JVS(128)) - X(31) = (X(31)-JVS(125)*X(55)-JVS(126)*X(65)-JVS(127)*X(67))/(JVS(124)) - X(30) = (X(30)-JVS(113)*X(41)-JVS(114)*X(45)-JVS(115)*X(50)-JVS(116)*X(51)-JVS(117)*X(57)-JVS(118)*X(60)-JVS(119)& - &*X(61)-JVS(120)*X(63)-JVS(121)*X(64)-JVS(122)*X(66)-JVS(123)*X(67))/(JVS(112)) - X(29) = (X(29)-JVS(110)*X(63)-JVS(111)*X(67))/(JVS(109)) - X(28) = (X(28)-JVS(102)*X(45)-JVS(103)*X(50)-JVS(104)*X(52)-JVS(105)*X(64)-JVS(106)*X(67))/(JVS(101)) - X(27) = (X(27)-JVS(98)*X(59)-JVS(99)*X(65)-JVS(100)*X(67))/(JVS(97)) - X(26) = (X(26)-JVS(94)*X(60)-JVS(95)*X(64)-JVS(96)*X(67))/(JVS(93)) - X(25) = (X(25)-JVS(90)*X(60)-JVS(91)*X(64)-JVS(92)*X(67))/(JVS(89)) - X(24) = (X(24)-JVS(85)*X(36)-JVS(86)*X(59)-JVS(87)*X(60)-JVS(88)*X(67))/(JVS(84)) - X(23) = (X(23)-JVS(80)*X(45)-JVS(81)*X(50)-JVS(82)*X(64)-JVS(83)*X(67))/(JVS(79)) - X(22) = (X(22)-JVS(78)*X(67))/(JVS(77)) - X(21) = (X(21)-JVS(75)*X(59)-JVS(76)*X(60))/(JVS(74)) - X(20) = (X(20)-JVS(73)*X(67))/(JVS(72)) - X(19) = (X(19)-JVS(70)*X(65)-JVS(71)*X(67))/(JVS(69)) - X(18) = (X(18)-JVS(67)*X(58)-JVS(68)*X(59))/(JVS(66)) - X(17) = (X(17)-JVS(65)*X(67))/(JVS(64)) - X(16) = (X(16)-JVS(63)*X(64))/(JVS(62)) - X(15) = (X(15)-JVS(61)*X(67))/(JVS(60)) - X(14) = (X(14)-JVS(56)*X(30)-JVS(57)*X(41)-JVS(58)*X(48)-JVS(59)*X(65))/(JVS(55)) - X(13) = (X(13)-JVS(52)*X(26)-JVS(53)*X(64)-JVS(54)*X(67))/(JVS(51)) - X(12) = (X(12)-JVS(48)*X(26)-JVS(49)*X(64)-JVS(50)*X(67))/(JVS(47)) - X(11) = (X(11)-JVS(44)*X(25)-JVS(45)*X(64)-JVS(46)*X(67))/(JVS(43)) - X(10) = (X(10)-JVS(40)*X(25)-JVS(41)*X(64)-JVS(42)*X(67))/(JVS(39)) - X(9) = (X(9)-JVS(34)*X(45)-JVS(35)*X(50)-JVS(36)*X(60)-JVS(37)*X(64)-JVS(38)*X(67))/(JVS(33)) - X(8) = (X(8)-JVS(31)*X(41)-JVS(32)*X(67))/(JVS(30)) - X(7) = (X(7)-JVS(25)*X(20)-JVS(26)*X(22)-JVS(27)*X(36)-JVS(28)*X(60)-JVS(29)*X(67))/(JVS(24)) - X(6) = (X(6)-JVS(19)*X(20)-JVS(20)*X(22)-JVS(21)*X(36)-JVS(22)*X(60)-JVS(23)*X(67))/(JVS(18)) - X(5) = (X(5)-JVS(11)*X(45)-JVS(12)*X(46)-JVS(13)*X(50)-JVS(14)*X(56)-JVS(15)*X(58)-JVS(16)*X(64)-JVS(17)*X(65))& - &/(JVS(10)) - X(4) = (X(4)-JVS(7)*X(34)-JVS(8)*X(45)-JVS(9)*X(64))/(JVS(6)) - X(3) = X(3)/JVS(5) - X(2) = X(2)/JVS(4) - X(1) = (X(1)-JVS(2)*X(15)-JVS(3)*X(67))/(JVS(1)) - -END SUBROUTINE KppSolve - -! End of KppSolve function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! KppSolveTR - sparse, transposed back substitution -! Arguments : -! JVS - sparse Jacobian of variables -! X - Vector for variables -! XX - Vector for output variables -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE KppSolveTR ( JVS, X, XX ) - -! JVS - sparse Jacobian of variables - REAL(kind=dp) :: JVS(LU_NONZERO) -! X - Vector for variables - REAL(kind=dp) :: X(NVAR) -! XX - Vector for output variables - REAL(kind=dp) :: XX(NVAR) - - XX(1) = X(1)/JVS(1) - XX(2) = X(2)/JVS(4) - XX(3) = X(3)/JVS(5) - XX(4) = X(4)/JVS(6) - XX(5) = X(5)/JVS(10) - XX(6) = X(6)/JVS(18) - XX(7) = X(7)/JVS(24) - XX(8) = X(8)/JVS(30) - XX(9) = X(9)/JVS(33) - XX(10) = X(10)/JVS(39) - XX(11) = X(11)/JVS(43) - XX(12) = X(12)/JVS(47) - XX(13) = X(13)/JVS(51) - XX(14) = X(14)/JVS(55) - XX(15) = (X(15)-JVS(2)*XX(1))/(JVS(60)) - XX(16) = X(16)/JVS(62) - XX(17) = X(17)/JVS(64) - XX(18) = X(18)/JVS(66) - XX(19) = X(19)/JVS(69) - XX(20) = (X(20)-JVS(19)*XX(6)-JVS(25)*XX(7))/(JVS(72)) - XX(21) = X(21)/JVS(74) - XX(22) = (X(22)-JVS(20)*XX(6)-JVS(26)*XX(7))/(JVS(77)) - XX(23) = X(23)/JVS(79) - XX(24) = X(24)/JVS(84) - XX(25) = (X(25)-JVS(40)*XX(10)-JVS(44)*XX(11))/(JVS(89)) - XX(26) = (X(26)-JVS(48)*XX(12)-JVS(52)*XX(13))/(JVS(93)) - XX(27) = X(27)/JVS(97) - XX(28) = X(28)/JVS(101) - XX(29) = X(29)/JVS(109) - XX(30) = (X(30)-JVS(56)*XX(14))/(JVS(112)) - XX(31) = X(31)/JVS(124) - XX(32) = X(32)/JVS(128) - XX(33) = X(33)/JVS(133) - XX(34) = (X(34)-JVS(7)*XX(4))/(JVS(137)) - XX(35) = X(35)/JVS(140) - XX(36) = (X(36)-JVS(21)*XX(6)-JVS(27)*XX(7)-JVS(85)*XX(24))/(JVS(148)) - XX(37) = X(37)/JVS(152) - XX(38) = X(38)/JVS(159) - XX(39) = X(39)/JVS(169) - XX(40) = X(40)/JVS(183) - XX(41) = (X(41)-JVS(31)*XX(8)-JVS(57)*XX(14)-JVS(113)*XX(30))/(JVS(191)) - XX(42) = (X(42)-JVS(170)*XX(39))/(JVS(208)) - XX(43) = (X(43)-JVS(192)*XX(41))/(JVS(213)) - XX(44) = (X(44)-JVS(171)*XX(39))/(JVS(218)) - XX(45) = (X(45)-JVS(8)*XX(4)-JVS(11)*XX(5)-JVS(34)*XX(9)-JVS(80)*XX(23)-JVS(102)*XX(28)-JVS(114)*XX(30)-JVS(141)& - &*XX(35)-JVS(172)*XX(39)-JVS(193)*XX(41))/(JVS(223)) - XX(46) = (X(46)-JVS(12)*XX(5)-JVS(173)*XX(39)-JVS(184)*XX(40)-JVS(194)*XX(41)-JVS(214)*XX(43))/(JVS(227)) - XX(47) = (X(47)-JVS(160)*XX(38)-JVS(174)*XX(39))/(JVS(239)) - XX(48) = (X(48)-JVS(58)*XX(14))/(JVS(257)) - XX(49) = X(49)/JVS(270) - XX(50) = (X(50)-JVS(13)*XX(5)-JVS(35)*XX(9)-JVS(81)*XX(23)-JVS(103)*XX(28)-JVS(115)*XX(30)-JVS(142)*XX(35)-JVS(175)& - &*XX(39)-JVS(195)*XX(41)-JVS(240)*XX(47)-JVS(258)*XX(48)-JVS(271)*XX(49))/(JVS(282)) - XX(51) = (X(51)-JVS(116)*XX(30)-JVS(196)*XX(41)-JVS(241)*XX(47))/(JVS(288)) - XX(52) = (X(52)-JVS(104)*XX(28)-JVS(134)*XX(33))/(JVS(299)) - XX(53) = (X(53)-JVS(161)*XX(38)-JVS(176)*XX(39)-JVS(259)*XX(48))/(JVS(313)) - XX(54) = (X(54)-JVS(162)*XX(38)-JVS(177)*XX(39))/(JVS(333)) - XX(55) = (X(55)-JVS(125)*XX(31)-JVS(143)*XX(35)-JVS(242)*XX(47))/(JVS(349)) - XX(56) = (X(56)-JVS(14)*XX(5)-JVS(163)*XX(38)-JVS(178)*XX(39)-JVS(197)*XX(41)-JVS(219)*XX(44)-JVS(243)*XX(47)-JVS(260)& - &*XX(48)-JVS(272)*XX(49)-JVS(314)*XX(53)-JVS(334)*XX(54)-JVS(350)*XX(55))/(JVS(364)) - XX(57) = (X(57)-JVS(117)*XX(30)-JVS(198)*XX(41)-JVS(261)*XX(48)-JVS(273)*XX(49)-JVS(289)*XX(51)-JVS(300)*XX(52)& - &-JVS(335)*XX(54)-JVS(351)*XX(55))/(JVS(378)) - XX(58) = (X(58)-JVS(15)*XX(5)-JVS(67)*XX(18)-JVS(352)*XX(55))/(JVS(396)) - XX(59) = (X(59)-JVS(68)*XX(18)-JVS(75)*XX(21)-JVS(86)*XX(24)-JVS(98)*XX(27)-JVS(129)*XX(32)-JVS(153)*XX(37)-JVS(164)& - &*XX(38)-JVS(379)*XX(57)-JVS(397)*XX(58))/(JVS(430)) - XX(60) = (X(60)-JVS(22)*XX(6)-JVS(28)*XX(7)-JVS(36)*XX(9)-JVS(76)*XX(21)-JVS(87)*XX(24)-JVS(90)*XX(25)-JVS(94)*XX(26)& - &-JVS(118)*XX(30)-JVS(149)*XX(36)-JVS(154)*XX(37)-JVS(165)*XX(38)-JVS(179)*XX(39)-JVS(185)*XX(40)-JVS(199)& - &*XX(41)-JVS(209)*XX(42)-JVS(224)*XX(45)-JVS(228)*XX(46)-JVS(244)*XX(47)-JVS(262)*XX(48)-JVS(274)*XX(49)& - &-JVS(283)*XX(50)-JVS(290)*XX(51)-JVS(301)*XX(52)-JVS(315)*XX(53)-JVS(336)*XX(54)-JVS(353)*XX(55)-JVS(365)& - &*XX(56)-JVS(380)*XX(57)-JVS(398)*XX(58)-JVS(431)*XX(59))/(JVS(459)) - XX(61) = (X(61)-JVS(119)*XX(30)-JVS(200)*XX(41)-JVS(263)*XX(48)-JVS(275)*XX(49)-JVS(302)*XX(52)-JVS(337)*XX(54)& - &-JVS(354)*XX(55)-JVS(381)*XX(57)-JVS(399)*XX(58)-JVS(432)*XX(59)-JVS(460)*XX(60))/(JVS(477)) - XX(62) = (X(62)-JVS(245)*XX(47)-JVS(276)*XX(49)-JVS(316)*XX(53)-JVS(355)*XX(55)-JVS(400)*XX(58)-JVS(433)*XX(59)& - &-JVS(461)*XX(60)-JVS(478)*XX(61))/(JVS(491)) - XX(63) = (X(63)-JVS(110)*XX(29)-JVS(120)*XX(30)-JVS(130)*XX(32)-JVS(155)*XX(37)-JVS(180)*XX(39)-JVS(186)*XX(40)& - &-JVS(201)*XX(41)-JVS(210)*XX(42)-JVS(215)*XX(43)-JVS(220)*XX(44)-JVS(246)*XX(47)-JVS(264)*XX(48)-JVS(277)& - &*XX(49)-JVS(291)*XX(51)-JVS(303)*XX(52)-JVS(317)*XX(53)-JVS(338)*XX(54)-JVS(356)*XX(55)-JVS(366)*XX(56)& - &-JVS(382)*XX(57)-JVS(401)*XX(58)-JVS(434)*XX(59)-JVS(462)*XX(60)-JVS(479)*XX(61)-JVS(492)*XX(62))/(JVS(517)) - XX(64) = (X(64)-JVS(9)*XX(4)-JVS(16)*XX(5)-JVS(37)*XX(9)-JVS(41)*XX(10)-JVS(45)*XX(11)-JVS(49)*XX(12)-JVS(53)*XX(13)& - &-JVS(63)*XX(16)-JVS(82)*XX(23)-JVS(91)*XX(25)-JVS(95)*XX(26)-JVS(105)*XX(28)-JVS(121)*XX(30)-JVS(138)*XX(34)& - &-JVS(144)*XX(35)-JVS(156)*XX(37)-JVS(181)*XX(39)-JVS(202)*XX(41)-JVS(211)*XX(42)-JVS(225)*XX(45)-JVS(229)& - &*XX(46)-JVS(247)*XX(47)-JVS(265)*XX(48)-JVS(278)*XX(49)-JVS(284)*XX(50)-JVS(292)*XX(51)-JVS(304)*XX(52)& - &-JVS(318)*XX(53)-JVS(339)*XX(54)-JVS(357)*XX(55)-JVS(367)*XX(56)-JVS(383)*XX(57)-JVS(402)*XX(58)-JVS(435)& - &*XX(59)-JVS(463)*XX(60)-JVS(480)*XX(61)-JVS(493)*XX(62)-JVS(518)*XX(63))/(JVS(537)) - XX(65) = (X(65)-JVS(17)*XX(5)-JVS(59)*XX(14)-JVS(70)*XX(19)-JVS(99)*XX(27)-JVS(126)*XX(31)-JVS(131)*XX(32)-JVS(135)& - &*XX(33)-JVS(166)*XX(38)-JVS(187)*XX(40)-JVS(203)*XX(41)-JVS(216)*XX(43)-JVS(221)*XX(44)-JVS(248)*XX(47)& - &-JVS(266)*XX(48)-JVS(279)*XX(49)-JVS(293)*XX(51)-JVS(305)*XX(52)-JVS(319)*XX(53)-JVS(340)*XX(54)-JVS(358)& - &*XX(55)-JVS(368)*XX(56)-JVS(384)*XX(57)-JVS(403)*XX(58)-JVS(436)*XX(59)-JVS(464)*XX(60)-JVS(481)*XX(61)& - &-JVS(494)*XX(62)-JVS(519)*XX(63)-JVS(538)*XX(64))/(JVS(577)) - XX(66) = (X(66)-JVS(122)*XX(30)-JVS(204)*XX(41)-JVS(267)*XX(48)-JVS(280)*XX(49)-JVS(306)*XX(52)-JVS(320)*XX(53)& - &-JVS(341)*XX(54)-JVS(359)*XX(55)-JVS(404)*XX(58)-JVS(437)*XX(59)-JVS(465)*XX(60)-JVS(482)*XX(61)-JVS(495)& - &*XX(62)-JVS(520)*XX(63)-JVS(539)*XX(64)-JVS(578)*XX(65))/(JVS(590)) - XX(67) = (X(67)-JVS(3)*XX(1)-JVS(23)*XX(6)-JVS(29)*XX(7)-JVS(32)*XX(8)-JVS(38)*XX(9)-JVS(42)*XX(10)-JVS(46)*XX(11)& - &-JVS(50)*XX(12)-JVS(54)*XX(13)-JVS(61)*XX(15)-JVS(65)*XX(17)-JVS(71)*XX(19)-JVS(73)*XX(20)-JVS(78)*XX(22)& - &-JVS(83)*XX(23)-JVS(88)*XX(24)-JVS(92)*XX(25)-JVS(96)*XX(26)-JVS(100)*XX(27)-JVS(106)*XX(28)-JVS(111)*XX(29)& - &-JVS(123)*XX(30)-JVS(127)*XX(31)-JVS(132)*XX(32)-JVS(136)*XX(33)-JVS(139)*XX(34)-JVS(145)*XX(35)-JVS(150)& - &*XX(36)-JVS(167)*XX(38)-JVS(182)*XX(39)-JVS(205)*XX(41)-JVS(212)*XX(42)-JVS(217)*XX(43)-JVS(222)*XX(44)& - &-JVS(226)*XX(45)-JVS(230)*XX(46)-JVS(249)*XX(47)-JVS(268)*XX(48)-JVS(281)*XX(49)-JVS(285)*XX(50)-JVS(294)& - &*XX(51)-JVS(307)*XX(52)-JVS(321)*XX(53)-JVS(342)*XX(54)-JVS(360)*XX(55)-JVS(369)*XX(56)-JVS(385)*XX(57)& - &-JVS(405)*XX(58)-JVS(438)*XX(59)-JVS(466)*XX(60)-JVS(483)*XX(61)-JVS(496)*XX(62)-JVS(521)*XX(63)-JVS(540)& - &*XX(64)-JVS(579)*XX(65)-JVS(591)*XX(66))/(JVS(636)) - XX(67) = XX(67) - XX(66) = XX(66)-JVS(635)*XX(67) - XX(65) = XX(65)-JVS(589)*XX(66)-JVS(634)*XX(67) - XX(64) = XX(64)-JVS(576)*XX(65)-JVS(588)*XX(66)-JVS(633)*XX(67) - XX(63) = XX(63)-JVS(536)*XX(64)-JVS(575)*XX(65)-JVS(587)*XX(66)-JVS(632)*XX(67) - XX(62) = XX(62)-JVS(516)*XX(63)-JVS(535)*XX(64)-JVS(574)*XX(65)-JVS(586)*XX(66)-JVS(631)*XX(67) - XX(61) = XX(61)-JVS(490)*XX(62)-JVS(515)*XX(63)-JVS(534)*XX(64)-JVS(573)*XX(65)-JVS(585)*XX(66)-JVS(630)*XX(67) - XX(60) = XX(60)-JVS(476)*XX(61)-JVS(489)*XX(62)-JVS(514)*XX(63)-JVS(533)*XX(64)-JVS(572)*XX(65)-JVS(584)*XX(66)& - &-JVS(629)*XX(67) - XX(59) = XX(59)-JVS(458)*XX(60)-JVS(475)*XX(61)-JVS(488)*XX(62)-JVS(513)*XX(63)-JVS(532)*XX(64)-JVS(571)*XX(65)& - &-JVS(628)*XX(67) - XX(58) = XX(58)-JVS(429)*XX(59)-JVS(457)*XX(60)-JVS(512)*XX(63)-JVS(531)*XX(64)-JVS(570)*XX(65)-JVS(627)*XX(67) - XX(57) = XX(57)-JVS(395)*XX(58)-JVS(428)*XX(59)-JVS(456)*XX(60)-JVS(474)*XX(61)-JVS(487)*XX(62)-JVS(511)*XX(63)& - &-JVS(569)*XX(65)-JVS(626)*XX(67) - XX(56) = XX(56)-JVS(377)*XX(57)-JVS(394)*XX(58)-JVS(427)*XX(59)-JVS(455)*XX(60)-JVS(473)*XX(61)-JVS(486)*XX(62)& - &-JVS(510)*XX(63)-JVS(530)*XX(64)-JVS(568)*XX(65)-JVS(583)*XX(66)-JVS(625)*XX(67) - XX(55) = XX(55)-JVS(426)*XX(59)-JVS(454)*XX(60)-JVS(509)*XX(63)-JVS(567)*XX(65)-JVS(624)*XX(67) - XX(54) = XX(54)-JVS(348)*XX(55)-JVS(393)*XX(58)-JVS(425)*XX(59)-JVS(453)*XX(60)-JVS(566)*XX(65)-JVS(623)*XX(67) - XX(53) = XX(53)-JVS(392)*XX(58)-JVS(424)*XX(59)-JVS(452)*XX(60)-JVS(508)*XX(63)-JVS(565)*XX(65)-JVS(622)*XX(67) - XX(52) = XX(52)-JVS(332)*XX(54)-JVS(423)*XX(59)-JVS(451)*XX(60)-JVS(507)*XX(63)-JVS(564)*XX(65)-JVS(621)*XX(67) - XX(51) = XX(51)-JVS(331)*XX(54)-JVS(376)*XX(57)-JVS(422)*XX(59)-JVS(450)*XX(60)-JVS(472)*XX(61)-JVS(506)*XX(63)& - &-JVS(563)*XX(65)-JVS(620)*XX(67) - XX(50) = XX(50)-JVS(287)*XX(51)-JVS(298)*XX(52)-JVS(312)*XX(53)-JVS(330)*XX(54)-JVS(347)*XX(55)-JVS(391)*XX(58)& - &-JVS(421)*XX(59)-JVS(449)*XX(60)-JVS(471)*XX(61)-JVS(485)*XX(62)-JVS(505)*XX(63)-JVS(529)*XX(64)-JVS(562)& - &*XX(65)-JVS(619)*XX(67) - XX(49) = XX(49)-JVS(346)*XX(55)-JVS(390)*XX(58)-JVS(484)*XX(62)-JVS(618)*XX(67) - XX(48) = XX(48)-JVS(420)*XX(59)-JVS(448)*XX(60)-JVS(504)*XX(63)-JVS(561)*XX(65) - XX(47) = XX(47)-JVS(419)*XX(59)-JVS(447)*XX(60)-JVS(560)*XX(65)-JVS(617)*XX(67) - XX(46) = XX(46)-JVS(238)*XX(47)-JVS(256)*XX(48)-JVS(329)*XX(54)-JVS(363)*XX(56)-JVS(375)*XX(57)-JVS(389)*XX(58)& - &-JVS(418)*XX(59)-JVS(446)*XX(60)-JVS(470)*XX(61)-JVS(503)*XX(63)-JVS(528)*XX(64)-JVS(559)*XX(65)-JVS(582)& - &*XX(66)-JVS(616)*XX(67) - XX(45) = XX(45)-JVS(237)*XX(47)-JVS(255)*XX(48)-JVS(286)*XX(51)-JVS(297)*XX(52)-JVS(311)*XX(53)-JVS(328)*XX(54)& - &-JVS(345)*XX(55)-JVS(388)*XX(58)-JVS(445)*XX(60)-JVS(469)*XX(61)-JVS(527)*XX(64)-JVS(558)*XX(65)-JVS(615)& - &*XX(67) - XX(44) = XX(44)-JVS(236)*XX(47)-JVS(269)*XX(49)-JVS(310)*XX(53)-JVS(327)*XX(54)-JVS(417)*XX(59)-JVS(502)*XX(63)& - &-JVS(557)*XX(65)-JVS(581)*XX(66)-JVS(614)*XX(67) - XX(43) = XX(43)-JVS(235)*XX(47)-JVS(362)*XX(56)-JVS(374)*XX(57)-JVS(416)*XX(59)-JVS(468)*XX(61)-JVS(501)*XX(63)& - &-JVS(556)*XX(65)-JVS(580)*XX(66)-JVS(613)*XX(67) - XX(42) = XX(42)-JVS(234)*XX(47)-JVS(254)*XX(48)-JVS(309)*XX(53)-JVS(326)*XX(54)-JVS(387)*XX(58)-JVS(526)*XX(64)& - &-JVS(555)*XX(65)-JVS(612)*XX(67) - XX(41) = XX(41)-JVS(467)*XX(61)-JVS(611)*XX(67) - XX(40) = XX(40)-JVS(190)*XX(41)-JVS(325)*XX(54)-JVS(361)*XX(56)-JVS(373)*XX(57)-JVS(415)*XX(59)-JVS(500)*XX(63)& - &-JVS(554)*XX(65) - XX(39) = XX(39)-JVS(553)*XX(65)-JVS(610)*XX(67) - XX(38) = XX(38)-JVS(414)*XX(59)-JVS(444)*XX(60)-JVS(609)*XX(67) - XX(37) = XX(37)-JVS(413)*XX(59)-JVS(443)*XX(60)-JVS(499)*XX(63)-JVS(525)*XX(64) - XX(36) = XX(36)-JVS(158)*XX(38)-JVS(207)*XX(42)-JVS(253)*XX(48)-JVS(372)*XX(57)-JVS(412)*XX(59)-JVS(442)*XX(60)& - &-JVS(552)*XX(65)-JVS(608)*XX(67) - XX(35) = XX(35)-JVS(233)*XX(47)-JVS(551)*XX(65)-JVS(607)*XX(67) - XX(34) = XX(34)-JVS(168)*XX(39)-JVS(232)*XX(47)-JVS(252)*XX(48)-JVS(324)*XX(54)-JVS(524)*XX(64)-JVS(550)*XX(65)& - &-JVS(606)*XX(67) - XX(33) = XX(33)-JVS(296)*XX(52)-JVS(323)*XX(54)-JVS(549)*XX(65)-JVS(605)*XX(67) - XX(32) = XX(32)-JVS(411)*XX(59)-JVS(498)*XX(63)-JVS(604)*XX(67) - XX(31) = XX(31)-JVS(231)*XX(47)-JVS(344)*XX(55)-JVS(548)*XX(65)-JVS(603)*XX(67) - XX(30) = XX(30)-JVS(189)*XX(41) - XX(29) = XX(29)-JVS(206)*XX(42)-JVS(371)*XX(57)-JVS(410)*XX(59)-JVS(497)*XX(63)-JVS(547)*XX(65) - XX(28) = XX(28)-JVS(295)*XX(52)-JVS(602)*XX(67) - XX(27) = XX(27)-JVS(409)*XX(59)-JVS(546)*XX(65)-JVS(601)*XX(67) - XX(26) = XX(26)-JVS(441)*XX(60)-JVS(523)*XX(64)-JVS(600)*XX(67) - XX(25) = XX(25)-JVS(440)*XX(60)-JVS(522)*XX(64)-JVS(599)*XX(67) - XX(24) = XX(24)-JVS(370)*XX(57)-JVS(408)*XX(59) - XX(23) = XX(23)-JVS(343)*XX(55)-JVS(598)*XX(67) - XX(22) = XX(22)-JVS(108)*XX(29)-JVS(147)*XX(36)-JVS(188)*XX(41)-JVS(251)*XX(48)-JVS(308)*XX(53)-JVS(545)*XX(65)& - &-JVS(597)*XX(67) - XX(21) = XX(21)-JVS(157)*XX(38)-JVS(407)*XX(59)-JVS(439)*XX(60) - XX(20) = XX(20)-JVS(107)*XX(29)-JVS(146)*XX(36)-JVS(250)*XX(48)-JVS(544)*XX(65)-JVS(596)*XX(67) - XX(19) = XX(19)-JVS(543)*XX(65)-JVS(595)*XX(67) - XX(18) = XX(18)-JVS(386)*XX(58)-JVS(406)*XX(59) - XX(17) = XX(17)-JVS(322)*XX(54)-JVS(542)*XX(65)-JVS(594)*XX(67) - XX(16) = XX(16)-JVS(151)*XX(37)-JVS(593)*XX(67) - XX(15) = XX(15)-JVS(541)*XX(65)-JVS(592)*XX(67) - XX(14) = XX(14) - XX(13) = XX(13) - XX(12) = XX(12) - XX(11) = XX(11) - XX(10) = XX(10) - XX(9) = XX(9) - XX(8) = XX(8) - XX(7) = XX(7) - XX(6) = XX(6) - XX(5) = XX(5) - XX(4) = XX(4) - XX(3) = XX(3) - XX(2) = XX(2) - XX(1) = XX(1) - -END SUBROUTINE KppSolveTR - -! End of KppSolveTR function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! BLAS_UTIL - BLAS-LIKE utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!-------------------------------------------------------------- -! -! BLAS/LAPACK-like subroutines used by the integration algorithms -! It is recommended to replace them by calls to the optimized -! BLAS/LAPACK library for your machine -! -! (C) Adrian Sandu, Aug. 2004 -! Virginia Polytechnic Institute and State University -!-------------------------------------------------------------- - - -!-------------------------------------------------------------- - SUBROUTINE WCOPY(N,X,incX,Y,incY) -!-------------------------------------------------------------- -! copies a vector, x, to a vector, y: y <- x -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SCOPY(N,X,1,Y,1) or CALL DCOPY(N,X,1,Y,1) -!-------------------------------------------------------------- -! USE CBMZ_Precision - - INTEGER :: i,incX,incY,M,MP1,N - REAL(kind=dp) :: X(N),Y(N) - - IF (N.LE.0) RETURN - - M = MOD(N,8) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = X(i) - END DO - IF( N .LT. 8 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,8 - Y(i) = X(i) - Y(i + 1) = X(i + 1) - Y(i + 2) = X(i + 2) - Y(i + 3) = X(i + 3) - Y(i + 4) = X(i + 4) - Y(i + 5) = X(i + 5) - Y(i + 6) = X(i + 6) - Y(i + 7) = X(i + 7) - END DO - - END SUBROUTINE WCOPY - - -!-------------------------------------------------------------- - SUBROUTINE WAXPY(N,Alpha,X,incX,Y,incY) -!-------------------------------------------------------------- -! constant times a vector plus a vector: y <- y + Alpha*x -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SAXPY(N,Alpha,X,1,Y,1) or CALL DAXPY(N,Alpha,X,1,Y,1) -!-------------------------------------------------------------- - - INTEGER :: i,incX,incY,M,MP1,N - REAL(kind=dp) :: X(N),Y(N),Alpha - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp - - IF (Alpha .EQ. ZERO) RETURN - IF (N .LE. 0) RETURN - - M = MOD(N,4) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = Y(i) + Alpha*X(i) - END DO - IF( N .LT. 4 ) RETURN - END IF - MP1 = M + 1 - DO i = MP1,N,4 - Y(i) = Y(i) + Alpha*X(i) - Y(i + 1) = Y(i + 1) + Alpha*X(i + 1) - Y(i + 2) = Y(i + 2) + Alpha*X(i + 2) - Y(i + 3) = Y(i + 3) + Alpha*X(i + 3) - END DO - - END SUBROUTINE WAXPY - - - -!-------------------------------------------------------------- - SUBROUTINE WSCAL(N,Alpha,X,incX) -!-------------------------------------------------------------- -! constant times a vector: x(1:N) <- Alpha*x(1:N) -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SSCAL(N,Alpha,X,1) or CALL DSCAL(N,Alpha,X,1) -!-------------------------------------------------------------- - - INTEGER :: i,incX,M,MP1,N - REAL(kind=dp) :: X(N),Alpha - REAL(kind=dp), PARAMETER :: ZERO=0.0_dp, ONE=1.0_dp - - IF (Alpha .EQ. ONE) RETURN - IF (N .LE. 0) RETURN - - M = MOD(N,5) - IF( M .NE. 0 ) THEN - IF (Alpha .EQ. (-ONE)) THEN - DO i = 1,M - X(i) = -X(i) - END DO - ELSEIF (Alpha .EQ. ZERO) THEN - DO i = 1,M - X(i) = ZERO - END DO - ELSE - DO i = 1,M - X(i) = Alpha*X(i) - END DO - END IF - IF( N .LT. 5 ) RETURN - END IF - MP1 = M + 1 - IF (Alpha .EQ. (-ONE)) THEN - DO i = MP1,N,5 - X(i) = -X(i) - X(i + 1) = -X(i + 1) - X(i + 2) = -X(i + 2) - X(i + 3) = -X(i + 3) - X(i + 4) = -X(i + 4) - END DO - ELSEIF (Alpha .EQ. ZERO) THEN - DO i = MP1,N,5 - X(i) = ZERO - X(i + 1) = ZERO - X(i + 2) = ZERO - X(i + 3) = ZERO - X(i + 4) = ZERO - END DO - ELSE - DO i = MP1,N,5 - X(i) = Alpha*X(i) - X(i + 1) = Alpha*X(i + 1) - X(i + 2) = Alpha*X(i + 2) - X(i + 3) = Alpha*X(i + 3) - X(i + 4) = Alpha*X(i + 4) - END DO - END IF - - END SUBROUTINE WSCAL - -!-------------------------------------------------------------- - REAL(kind=dp) FUNCTION WLAMCH( C ) -!-------------------------------------------------------------- -! returns epsilon machine -! after LAPACK -! replace this by the function from the optimized LAPACK implementation: -! CALL SLAMCH('E') or CALL DLAMCH('E') -!-------------------------------------------------------------- -! USE CBMZ_Precision - - CHARACTER :: C - INTEGER :: i - REAL(kind=dp), SAVE :: Eps - REAL(kind=dp) :: Suma - REAL(kind=dp), PARAMETER :: ONE=1.0_dp, HALF=0.5_dp - LOGICAL, SAVE :: First=.TRUE. - - IF (First) THEN - First = .FALSE. - Eps = HALF**(16) - DO i = 17, 80 - Eps = Eps*HALF - CALL WLAMCH_ADD(ONE,Eps,Suma) - IF (Suma.LE.ONE) GOTO 10 - END DO - PRINT*,'ERROR IN WLAMCH. EPS < ',Eps - RETURN -10 Eps = Eps*2 - i = i-1 - END IF - - WLAMCH = Eps - - END FUNCTION WLAMCH - - SUBROUTINE WLAMCH_ADD( A, B, Suma ) -! USE CBMZ_Precision - - REAL(kind=dp) A, B, Suma - Suma = A + B - - END SUBROUTINE WLAMCH_ADD -!-------------------------------------------------------------- - - -!-------------------------------------------------------------- - SUBROUTINE SET2ZERO(N,Y) -!-------------------------------------------------------------- -! copies zeros into the vector y: y <- 0 -! after BLAS -!-------------------------------------------------------------- - - INTEGER :: i,M,MP1,N - REAL(kind=dp) :: Y(N) - REAL(kind=dp), PARAMETER :: ZERO = 0.0d0 - - IF (N.LE.0) RETURN - - M = MOD(N,8) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = ZERO - END DO - IF( N .LT. 8 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,8 - Y(i) = ZERO - Y(i + 1) = ZERO - Y(i + 2) = ZERO - Y(i + 3) = ZERO - Y(i + 4) = ZERO - Y(i + 5) = ZERO - Y(i + 6) = ZERO - Y(i + 7) = ZERO - END DO - - END SUBROUTINE SET2ZERO - - -!-------------------------------------------------------------- - REAL(kind=dp) FUNCTION WDOT (N, DX, incX, DY, incY) -!-------------------------------------------------------------- -! dot produce: wdot = x(1:N)*y(1:N) -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SDOT(N,X,1,Y,1) or CALL DDOT(N,X,1,Y,1) -!-------------------------------------------------------------- -! USE messy_mecca_kpp_Precision -!-------------------------------------------------------------- - IMPLICIT NONE - INTEGER :: N, incX, incY - REAL(kind=dp) :: DX(N), DY(N) - - INTEGER :: i, IX, IY, M, MP1, NS - - WDOT = 0.0D0 - IF (N .LE. 0) RETURN - IF (incX .EQ. incY) IF (incX-1) 5,20,60 -! -! Code for unequal or nonpositive increments. -! - 5 IX = 1 - IY = 1 - IF (incX .LT. 0) IX = (-N+1)*incX + 1 - IF (incY .LT. 0) IY = (-N+1)*incY + 1 - DO i = 1,N - WDOT = WDOT + DX(IX)*DY(IY) - IX = IX + incX - IY = IY + incY - END DO - RETURN -! -! Code for both increments equal to 1. -! -! Clean-up loop so remaining vector length is a multiple of 5. -! - 20 M = MOD(N,5) - IF (M .EQ. 0) GO TO 40 - DO i = 1,M - WDOT = WDOT + DX(i)*DY(i) - END DO - IF (N .LT. 5) RETURN - 40 MP1 = M + 1 - DO i = MP1,N,5 - WDOT = WDOT + DX(i)*DY(i) + DX(i+1)*DY(i+1) + DX(i+2)*DY(i+2) + & - DX(i+3)*DY(i+3) + DX(i+4)*DY(i+4) - END DO - RETURN -! -! Code for equal, positive, non-unit increments. -! - 60 NS = N*incX - DO i = 1,NS,incX - WDOT = WDOT + DX(i)*DY(i) - END DO - - END FUNCTION WDOT - - -!-------------------------------------------------------------- - SUBROUTINE WADD(N,X,Y,Z) -!-------------------------------------------------------------- -! adds two vectors: z <- x + y -! BLAS - like -!-------------------------------------------------------------- -! USE CBMZ_Precision - - INTEGER :: i, M, MP1, N - REAL(kind=dp) :: X(N),Y(N),Z(N) - - IF (N.LE.0) RETURN - - M = MOD(N,5) - IF( M /= 0 ) THEN - DO i = 1,M - Z(i) = X(i) + Y(i) - END DO - IF( N < 5 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,5 - Z(i) = X(i) + Y(i) - Z(i + 1) = X(i + 1) + Y(i + 1) - Z(i + 2) = X(i + 2) + Y(i + 2) - Z(i + 3) = X(i + 3) + Y(i + 3) - Z(i + 4) = X(i + 4) + Y(i + 4) - END DO - - END SUBROUTINE WADD - - - -!-------------------------------------------------------------- - SUBROUTINE WGEFA(N,A,Ipvt,info) -!-------------------------------------------------------------- -! WGEFA FACTORS THE MATRIX A (N,N) BY -! GAUSS ELIMINATION WITH PARTIAL PIVOTING -! LINPACK - LIKE -!-------------------------------------------------------------- -! - INTEGER :: N,Ipvt(N),info - REAL(kind=dp) :: A(N,N) - REAL(kind=dp) :: t, dmax, da - INTEGER :: j,k,l - REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0 - - info = 0 - -size: IF (n > 1) THEN - -col: DO k = 1, n-1 - -! find l = pivot index -! l = idamax(n-k+1,A(k,k),1) + k - 1 - l = k; dmax = abs(A(k,k)) - DO j = k+1,n - da = ABS(A(j,k)) - IF (da > dmax) THEN - l = j; dmax = da - END IF - END DO - Ipvt(k) = l - -! zero pivot implies this column already triangularized - IF (ABS(A(l,k)) < TINY(ZERO)) THEN - info = k - return - ELSE - IF (l /= k) THEN - t = A(l,k); A(l,k) = A(k,k); A(k,k) = t - END IF - t = -ONE/A(k,k) - CALL WSCAL(n-k,t,A(k+1,k),1) - DO j = k+1, n - t = A(l,j) - IF (l /= k) THEN - A(l,j) = A(k,j); A(k,j) = t - END IF - CALL WAXPY(n-k,t,A(k+1,k),1,A(k+1,j),1) - END DO - END IF - - END DO col - - END IF size - - Ipvt(N) = N - IF (ABS(A(N,N)) == ZERO) info = N - - END SUBROUTINE WGEFA - - -!-------------------------------------------------------------- - SUBROUTINE WGESL(Trans,N,A,Ipvt,b) -!-------------------------------------------------------------- -! WGESL solves the system -! a * x = b or trans(a) * x = b -! using the factors computed by WGEFA. -! -! Trans = 'N' to solve A*x = b , -! = 'T' to solve transpose(A)*x = b -! LINPACK - LIKE -!-------------------------------------------------------------- - - INTEGER :: N,Ipvt(N) - CHARACTER :: trans - REAL(kind=dp) :: A(N,N),b(N) - REAL(kind=dp) :: t - INTEGER :: k,kb,l - - - SELECT CASE (Trans) - - CASE ('n','N') ! Solve A * x = b - -! first solve L*y = b - IF (n >= 2) THEN - DO k = 1, n-1 - l = Ipvt(k) - t = b(l) - IF (l /= k) THEN - b(l) = b(k) - b(k) = t - END IF - CALL WAXPY(n-k,t,a(k+1,k),1,b(k+1),1) - END DO - END IF -! now solve U*x = y - DO kb = 1, n - k = n + 1 - kb - b(k) = b(k)/a(k,k) - t = -b(k) - CALL WAXPY(k-1,t,a(1,k),1,b(1),1) - END DO - - CASE ('t','T') ! Solve transpose(A) * x = b - -! first solve trans(U)*y = b - DO k = 1, n - t = WDOT(k-1,a(1,k),1,b(1),1) - b(k) = (b(k) - t)/a(k,k) - END DO -! now solve trans(L)*x = y - IF (n >= 2) THEN - DO kb = 1, n-1 - k = n - kb - b(k) = b(k) + WDOT(n-k,a(k+1,k),1,b(k+1),1) - l = Ipvt(k) - IF (l /= k) THEN - t = b(l); b(l) = b(k); b(k) = t - END IF - END DO - END IF - - END SELECT - - END SUBROUTINE WGESL -! End of BLAS_UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE CBMZ_LinearAlgebra - diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_LinearAlgebra.o b/boxmox/compiled_mechs/CBMZ/CBMZ_LinearAlgebra.o deleted file mode 100644 index beff1b5197eecb0e3fd5c91840335ce4962ec383..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/CBMZ_LinearAlgebra.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_Main.f90 b/boxmox/compiled_mechs/CBMZ/CBMZ_Main.f90 deleted file mode 100644 index 4b24875ee5b375b6ad8f5061933575fbf7c69bde..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CBMZ/CBMZ_Main.f90 +++ /dev/null @@ -1,161 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Main Program File -! -! Generated by KPP-2.2.3 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 : CBMZ_Main.f90 -! Time : Thu Oct 8 08:21:56 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CBMZ_11803_BOXMOX -! Equation file : CBMZ.kpp -! Output root filename : CBMZ -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! MAIN - Main program - driver routine -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -PROGRAM CBMZ_Driver - - USE CBMZ_Model - USE CBMZ_Initialize, ONLY: Initialize - - REAL(kind=dp) :: T, DVAL(NSPEC) - REAL(kind=dp) :: RSTATE(20) - INTEGER :: IERR - INTEGER :: i, tcount, ttot - CHARACTER(LEN=60), PARAMETER :: & - brk = "------------------------------------------------------------" - - !~~~> Initialization - - STEPMIN = 0.0d0 - STEPMAX = 0.0d0 - - DO i=1,NVAR - RTOL(i) = 1.0d-4 - ATOL(i) = 1.0d-3 - END DO - - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX (__BOXMOX_VERSION__) driver" - WRITE(*,*) brk - WRITE(*,*) " " - - CALL Initialize() - - WRITE(*,*) brk - WRITE(*,*) " " - - CALL UpdateEnvironment() - - CALL readInput('InitialConditions.csv', NSPEC, SPC_NAMES, C, & - InitialCondition) - CALL InitSaveData() - - CALL InitFixNOx(NSPEC, SPC_NAMES, C) - - !~~~> Time loop - T = TSTART - tcount = 1 - ttot = NINT((TEND - TSTART) / DT) - kron: DO WHILE (T < TEND) - - IF (lverbose) THEN - WRITE(*,*) "" - WRITE(*,"(1X,A,F8.2,A)") "-------------------- time (s): ", T, & - " --------------------" - WRITE(*,*) "" - ENDIF - - TIME = T - CALL GetMass( C, DVAL ) - CALL SaveData() - - CALL UpdateEnvironment() - CALL UpdateAerosol() - CALL UpdatePhotolysisRates() - - CALL UpdateKturb() - - CALL readInput('Background.csv', NSPEC, SPC_NAMES, C, Mix, lzero=.TRUE.) - CALL readInput('Emissions.csv', NSPEC, SPC_NAMES, C, Emission) - CALL readInput('Deposition.csv', NSPEC, SPC_NAMES, C, Deposition) - - CALL Update_SUN() - CALL Update_RCONST() - - IF (T == TSTART) WRITE(*,*) " " - - IF ( MOD(tcount * 10, ttot) .EQ. 0 ) THEN - WRITE(6,991) (T-TSTART)/(TEND-TSTART)*100, T, & - ( TRIM(SPC_NAMES(MONITOR(i))), & - C(MONITOR(i))/CFACTOR, i=1,NMONITOR ) - ENDIF - - IF (lfix_NOx) THEN - CALL FixNOx(NSPEC, SPC_NAMES, C) - ENDIF - - CALL INTEGRATE( TIN = T, TOUT = T+DT, RSTATUS_U = RSTATE, & - ICNTRL_U = (/ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /), & - IERR_U = IERR ) - T = RSTATE(1) - - tcount = tcount + 1 - - IF (IERR < 0) THEN - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX integration failed, stopping." - WRITE(*,*) brk - WRITE(*,*) " " - STOP 1 - ENDIF - - IF (T == TSTART .OR. lverbose) THEN - WRITE(*,*) "" - WRITE(*,*) brk - WRITE(*,*) "" - ENDIF - - END DO kron - !~~~> End Time loop - - CALL GetMass( C, DVAL ) - WRITE(6,991) (T-TSTART)/(TEND-TSTART)*100, T, & - ( TRIM(SPC_NAMES(MONITOR(i))), & - C(MONITOR(i))/CFACTOR, i=1,NMONITOR ) - TIME = T - CALL SaveData() - CALL CloseSaveData() - - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX successfully completed." - WRITE(*,*) brk - WRITE(*,*) " " - -991 FORMAT(F6.1,'%. T=',E9.3,2X,200(A,'=',E11.4,'; ')) - -END PROGRAM CBMZ_Driver - -! End of MAIN function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_Main.o b/boxmox/compiled_mechs/CBMZ/CBMZ_Main.o deleted file mode 100644 index 9626660b4d66e1ae3645d5b9bd482b87889d827d..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/CBMZ_Main.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_Model.f90 b/boxmox/compiled_mechs/CBMZ/CBMZ_Model.f90 deleted file mode 100644 index 23f88c9575590e2a21ef771a90004d6c6e2c50df..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CBMZ/CBMZ_Model.f90 +++ /dev/null @@ -1,21 +0,0 @@ -MODULE CBMZ_Model - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Completely defines the model CBMZ -! by using all the associated modules -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CBMZ_Precision - USE CBMZ_Parameters - USE CBMZ_Global - USE CBMZ_Function - USE CBMZ_Integrator - USE CBMZ_Rates - USE CBMZ_Jacobian - USE CBMZ_Stoichiom - USE CBMZ_LinearAlgebra - USE CBMZ_Monitor - USE CBMZ_Util - -END MODULE CBMZ_Model - diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_Model.o b/boxmox/compiled_mechs/CBMZ/CBMZ_Model.o deleted file mode 100644 index be15e588e63cb8f98f88973475ecffadd2a91756..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/CBMZ_Model.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_Monitor.f90 b/boxmox/compiled_mechs/CBMZ/CBMZ_Monitor.f90 deleted file mode 100644 index d0edfb889b60cb24d0e88cfef4221d06801574d3..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CBMZ/CBMZ_Monitor.f90 +++ /dev/null @@ -1,218 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Utility Data Module File -! -! Generated by KPP-2.2.3 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 : CBMZ_Monitor.f90 -! Time : Thu Oct 8 08:21:56 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CBMZ_11803_BOXMOX -! Equation file : CBMZ.kpp -! Output root filename : CBMZ -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CBMZ_Monitor - - - CHARACTER(LEN=15), PARAMETER, DIMENSION(69) :: SPC_NAMES = (/ & - 'H2SO4 ','HCl ','NH3 ', & - 'HCOOH ','RCOOH ','ARO1 ', & - 'ARO2 ','ALK1 ','OLE1 ', & - 'API1 ','API2 ','LIM1 ', & - 'LIM2 ','DUMMY ','SO2 ', & - 'O1D ','ANOL ','PAN ', & - 'H2O2 ','TOL ','N2O5 ', & - 'XYL ','CH4 ','CRO ', & - 'API ','LIM ','HNO4 ', & - 'C2H6 ','TO2 ','XPAR ', & - 'CH3OOH ','HONO ','ETHOOH ', & - 'ETH ','CH3OH ','CRES ', & - 'O3P ','HNO3 ','CO ', & - 'ISOPN ','PAR ','OPEN ', & - 'ISOPP ','ISOPO2 ','OLET ', & - 'ISOP ','HCHO ','XO2 ', & - 'AONE ','OLEI ','NAP ', & - 'ETHP ','MGLY ','ALD2 ', & - 'CH3O2 ','ISOPRD ','ONIT ', & - 'C2O3 ','NO2 ','NO3 ', & - 'RO2 ','ANO2 ','NO ', & - 'O3 ','HO2 ','ROOH ', & - 'OH ','H2O ','M ' /) - - INTEGER, PARAMETER, DIMENSION(69) :: LOOKAT = (/ & - 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, & - 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, & - 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, & - 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, & - 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, & - 61, 62, 63, 64, 65, 66, 67, 68, 69 /) - - INTEGER, DIMENSION(1) :: MONITOR - CHARACTER(LEN=15), DIMENSION(1) :: SMASS - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_0 = (/ & - ' NO2 --> O3P + NO ', & - ' NO3 --> 0.89 O3P + 0.89 NO2 + 0.11 NO ', & - ' HONO --> NO + OH ', & - ' HNO3 --> NO2 + OH ', & - ' HNO4 --> NO2 + HO2 ', & - ' N2O5 --> NO2 + NO3 ', & - ' O3 --> O3P ', & - ' O3 --> O1D ', & - ' H2O2 --> 2 OH ', & - ' HCHO --> CO + 2 HO2 ', & - ' HCHO --> CO ', & - ' CH3OOH --> HCHO + HO2 + OH ', & - ' ETHOOH --> ALD2 + HO2 + OH ', & - ' ALD2 --> CO + CH3O2 + HO2 ', & - ' AONE --> CH3O2 + C2O3 ', & - ' MGLY --> CO + C2O3 + HO2 ', & - ' OPEN --> CO + C2O3 + HO2 ', & - ' ROOH --> 1.98 XPAR + 0.4 XO2 + 0.74 AONE + 0.1 ETHP + 0.3 ALD2 + 0.9 HO2 + OH ', & - ' ONIT --> 1.98 XPAR + 0.41 XO2 + 0.74 AONE + 0.1 ETHP + 0.3 ALD2 + NO2 + 0.9 HO2 ', & - ' ISOPRD --> 0.33 CO + 0.2 HCHO + 0.03 AONE + 0.07 ALD2 + 0.7 CH3O2 + 0.97 C2O3 + 0.33 HO2 ', & - ' O1D + M --> O3P ', & - ' O1D + H2O --> 2 OH ', & - ' O3P + M --> O3 ', & - ' O3P + O3 --> 0.42 M ', & - ' O3P + NO2 --> NO ', & - ' O3P + NO2 --> NO3 ', & - ' O3P + NO --> NO2 ', & - ' NO + O3 --> NO2 ', & - ' NO2 + O3 --> NO3 ', & - ' O3 + OH --> HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_1 = (/ & - ' O3 + HO2 --> OH ', & - ' OH + M --> HO2 + H2O ', & - ' NO + OH --> HONO ', & - ' NO2 + OH --> HNO3 ', & - ' NO3 + OH --> NO2 + HO2 ', & - ' HONO + OH --> NO2 ', & - ' HNO3 + OH --> NO3 ', & - ' HNO4 + OH --> NO2 ', & - ' HO2 + OH --> H2O + 0.21 M ', & - ' H2O2 + OH --> HO2 ', & - ' 2 HO2 --> H2O2 ', & - ' 2 HO2 + H2O --> H2O2 ', & - ' NO + HO2 --> NO2 + OH ', & - ' NO2 + HO2 --> HNO4 ', & - ' NO2 + HO2 --> HONO ', & - ' HNO4 --> NO2 + HO2 ', & - ' NO3 + NO --> 2 NO2 ', & - ' NO2 + NO3 --> NO2 + NO ', & - ' NO2 + NO3 --> N2O5 ', & - ' 2 NO3 --> 2 NO2 ', & - ' NO3 + HO2 --> 0.3 HNO3 + 0.7 NO2 + 0.7 OH ', & - ' N2O5 + H2O --> 2 HNO3 ', & - ' N2O5 --> NO2 + NO3 ', & - ' CO + OH --> HO2 ', & - ' SO2 + OH --> H2SO4 + HO2 ', & - ' CH4 + OH --> CH3O2 ', & - ' C2H6 + OH --> ETHP ', & - ' PAR + OH --> 0.012 ALK1 + RO2 ', & - ' HCHO + OH --> CO + HO2 ', & - ' HCHO + NO3 --> HNO3 + CO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_2 = (/ & - ' ALD2 + OH --> C2O3 ', & - ' ALD2 + NO3 --> HNO3 + C2O3 ', & - ' AONE + OH --> ANO2 ', & - ' MGLY + OH --> XO2 + C2O3 ', & - ' MGLY + NO3 --> HNO3 + CO + C2O3 ', & - ' ETH + O3 --> 0.52 HCOOH + 0.24 CO + HCHO + 0.22 HO2 + 0.12 OH ', & - ' ETH + OH --> 1.56 HCHO + XO2 + 0.22 ALD2 + HO2 ', & - ' OLET + O3 --> 0.22 HCOOH + 0.09 RCOOH + 0.008 OLE1 + 0.06 CH4 + 0.01 C2H6 + 1.06 XPAR + 0.03 CH3OH + 0.31 CO + 0.57 HCHO + 0.06 ETHP + 0.04 MGLY + 0.47 ALD2 + 0.07 CH3O2 + 0.13 C2O3 + 0.03 RO2 + 0.26 HO2 + 0.33 OH ', & - ' OLEI + O3 --> 0.16 RCOOH + 0.008 OLE1 + 0.08 CH4 + 0.01 C2H6 + 2.26 XPAR + 0.04 CH3OH + 0.3 CO + 0.07 AONE + 0.05 ETHP + 0.07 MGLY + 1.03 ALD2 + 0.1 CH3O2 + 0.19 C2O3 + 0.09 RO2 + 0.11 ANO2 + 0.22 HO2 + 0.6 OH ', & - ' OLET + OH --> 0.008 OLE1 + XPAR + HCHO + XO2 + ALD2 + HO2 ', & - ' OLEI + OH --> 0.008 OLE1 + 2.23 XPAR + XO2 + 0.23 AONE + 1.77 ALD2 + HO2 ', & - ' OLET + NO3 --> 0.008 OLE1 + NAP ', & - ' OLEI + NO3 --> 0.008 OLE1 + NAP ', & - ' TOL + OH --> 0.039 ARO1 + 0.108 ARO2 + 0.8 TO2 + 0.12 CRES + 0.08 XO2 + 0.2 HO2 ', & - ' XYL + OH --> 0.039 ARO1 + 0.108 ARO2 + 0.45 TO2 + 0.05 CRES + 1.1 PAR + 0.5 XO2 + 0.8 MGLY + 0.55 HO2 ', & - ' TO2 + NO --> 0.95 OPEN + 0.05 ONIT + 0.95 NO2 + 0.95 HO2 ', & - ' CRES + OH --> 0.039 ARO1 + 0.108 ARO2 + 0.4 CRO + 0.3 OPEN + 0.6 XO2 + 0.6 HO2 ', & - ' CRES + NO3 --> 0.039 ARO1 + 0.108 ARO2 + CRO + HNO3 ', & - ' CRO + NO2 --> ONIT ', & - ' OPEN + OH --> 2 CO + HCHO + XO2 + C2O3 + 2 HO2 ', & - ' OPEN + O3 --> 0.69 CO + 0.7 HCHO + 0.03 XO2 + 0.2 MGLY + 0.03 ALD2 + 0.62 C2O3 + 0.76 HO2 + 0.08 OH ', & - ' ISOP + OH --> ISOPP + 0.08 XO2 ', & - ' ISOP + O3 --> 0.39 RCOOH + 0.07 CO + 0.6 HCHO + 0.2 XO2 + 0.15 ALD2 + 0.65 ISOPRD + 0.2 C2O3 + 0.07 HO2 + 0.27 OH ', & - ' ISOP + NO3 --> ISOPN ', & - ' ISOPRD + OH --> 0.5 ISOPO2 + 0.2 XO2 + 0.5 C2O3 ', & - ' ISOPRD + O3 --> 0.46 RCOOH + 0.16 CO + 0.15 HCHO + 0.07 XO2 + 0.09 AONE + 0.85 MGLY + 0.02 ALD2 + 0.05 CH3O2 + 0.11 C2O3 + 0.1 HO2 + 0.27 OH ', & - 'ISOPRD + NO3 --> 0.07 HNO3 + 0.64 CO + 1.86 PAR + 0.28 HCHO + 0.93 XO2 + 0.28 ALD2 + 0.93 ONIT + 0.07 C2O3 + 0.93 HO2 ', & - ' ISOPP + NO --> 0.18 PAR + 0.63 HCHO + 0.91 ISOPRD + 0.09 ONIT + 0.91 NO2 + 0.91 HO2 ', & - ' ISOPN + NO --> 1.6 PAR + 0.8 ALD2 + 0.2 ISOPRD + 0.8 ONIT + 1.2 NO2 + 0.8 HO2 ', & - ' ISOPO2 + NO --> 0.59 CO + 0.25 HCHO + 0.63 AONE + 0.34 MGLY + 0.55 ALD2 + NO2 + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_3 = (/ & - ' ISOPP + HO2 --> ROOH ', & - ' ISOPN + HO2 --> 2 PAR + ONIT ', & - 'ISOPO2 + HO2 --> ROOH ', & - ' CH3OOH + OH --> 0.3 HCHO + 0.7 CH3O2 + 0.3 OH ', & - ' ETHOOH + OH --> 0.7 ETHP + 0.3 ALD2 + 0.3 OH ', & - ' ROOH + OH --> 0.42 XPAR + 0.19 MGLY + 0.04 ALD2 + 0.77 RO2 + 0.23 OH ', & - ' ONIT + OH --> NAP ', & - ' C2O3 + NO2 --> PAN ', & - ' PAN --> C2O3 + NO2 ', & - ' CH3OH + OH --> HCHO + HO2 ', & - ' CH3O2 + NO --> HCHO + NO2 + HO2 ', & - ' ETHP + NO --> ALD2 + NO2 + HO2 ', & - ' RO2 + NO --> 1.68 XPAR + 0.34 XO2 + 0.62 AONE + 0.08 ETHP + 0.25 ALD2 + 0.16 ONIT + 0.84 NO2 + 0.76 HO2 ', & - ' C2O3 + NO --> CH3O2 + NO2 ', & - ' ANO2 + NO --> HCHO + C2O3 + NO2 ', & - ' NAP + NO --> XPAR + 0.5 HCHO + 0.5 ALD2 + 0.5 ONIT + 1.5 NO2 + 0.5 HO2 ', & - ' XO2 + NO --> NO2 ', & - ' CH3O2 + NO3 --> HCHO + NO2 + HO2 ', & - ' ETHP + NO3 --> ALD2 + NO2 + HO2 ', & - ' NO3 + RO2 --> 1.98 XPAR + 0.4 XO2 + 0.74 AONE + 0.1 ETHP + 0.3 ALD2 + NO2 + 0.9 HO2 ', & - ' C2O3 + NO3 --> CH3O2 + NO2 ', & - ' NO3 + ANO2 --> HCHO + C2O3 + NO2 ', & - ' NAP + NO3 --> XPAR + 0.5 HCHO + 0.5 ALD2 + 0.5 ONIT + 1.5 NO2 + 0.5 HO2 ', & - ' XO2 + NO3 --> NO2 ', & - ' CH3O2 + HO2 --> CH3OOH ', & - ' ETHP + HO2 --> ETHOOH ', & - ' RO2 + HO2 --> ROOH ', & - ' C2O3 + HO2 --> 0.4 RCOOH + 0.4 O3 ', & - ' ANO2 + HO2 --> ROOH ', & - ' NAP + HO2 --> ONIT ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(22) :: EQN_NAMES_4 = (/ & - ' XO2 + HO2 --> DUMMY ', & - ' ANOL + OH --> ALD2 + HO2 ', & - ' XPAR + PAR --> DUMMY ', & - ' HCl --> HCl ', & - ' NH3 --> NH3 ', & - ' H2SO4 --> H2SO4 ', & - ' CH3O2 --> 0.34 CH3OH + 0.66 HCHO + 0.32 HO2 ', & - ' ETHP --> 0.2 C2H6 + 0.8 ALD2 + 0.6 HO2 ', & - ' RO2 --> 1.25 XPAR + 0.24 XO2 + 0.57 AONE + 0.06 ETHP + 0.21 ALD2 + 0.54 HO2 ', & - ' C2O3 --> CH3O2 ', & - ' ANO2 --> 0.7 HCHO + 0.15 AONE + 0.15 MGLY + 0.7 C2O3 ', & - ' NAP --> XPAR + 0.5 HCHO + 0.5 ALD2 + 0.5 ONIT + 0.5 NO2 ', & - ' ISOPP --> ISOPRD ', & - ' ISOPN --> 2 PAR + ALD2 + ONIT ', & - ' ISOPO2 --> 0.5 AONE + 0.5 ALD2 ', & - ' XO2 --> DUMMY ', & - ' API + OH --> 0.0064 API1 + 0.055 API2 ', & - ' API + NO3 --> ', & - ' API + O3 --> 0.022 API1 + 0.19 API2 ', & - ' LIM + OH --> 0.037 LIM1 + 0.056 LIM2 ', & - ' LIM + NO3 --> ', & - ' LIM + O3 --> 0.13 LIM1 + 0.19 LIM2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(142) :: EQN_NAMES = (/& - EQN_NAMES_0, EQN_NAMES_1, EQN_NAMES_2, EQN_NAMES_3, EQN_NAMES_4 /) - -! INLINED global variables - -! End INLINED global variables - - -END MODULE CBMZ_Monitor diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_Monitor.o b/boxmox/compiled_mechs/CBMZ/CBMZ_Monitor.o deleted file mode 100644 index 8d013a49cc945ad35e737fe5fa413180834aef76..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/CBMZ_Monitor.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_Parameters.f90 b/boxmox/compiled_mechs/CBMZ/CBMZ_Parameters.f90 deleted file mode 100644 index a6d771e537f56d2a1b99c4fcff5c64c014c022c3..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CBMZ/CBMZ_Parameters.f90 +++ /dev/null @@ -1,151 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Parameter Module File -! -! Generated by KPP-2.2.3 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 : CBMZ_Parameters.f90 -! Time : Thu Oct 8 08:21:56 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CBMZ_11803_BOXMOX -! Equation file : CBMZ.kpp -! Output root filename : CBMZ -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CBMZ_Parameters - - USE CBMZ_Precision - PUBLIC - SAVE - - -! NSPEC - Number of chemical species - INTEGER, PARAMETER :: NSPEC = 69 -! NVAR - Number of Variable species - INTEGER, PARAMETER :: NVAR = 67 -! NVARACT - Number of Active species - INTEGER, PARAMETER :: NVARACT = 56 -! NFIX - Number of Fixed species - INTEGER, PARAMETER :: NFIX = 2 -! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 142 -! NVARST - Starting of variables in conc. vect. - INTEGER, PARAMETER :: NVARST = 1 -! NFIXST - Starting of fixed in conc. vect. - INTEGER, PARAMETER :: NFIXST = 68 -! NONZERO - Number of nonzero entries in Jacobian - INTEGER, PARAMETER :: NONZERO = 565 -! LU_NONZERO - Number of nonzero entries in LU factoriz. of Jacobian - INTEGER, PARAMETER :: LU_NONZERO = 636 -! CNVAR - (NVAR+1) Number of elements in compressed row format - INTEGER, PARAMETER :: CNVAR = 68 -! CNEQN - (NREACT+1) Number stoicm elements in compressed col format - INTEGER, PARAMETER :: CNEQN = 143 -! NLOOKAT - Number of species to look at - INTEGER, PARAMETER :: NLOOKAT = 69 -! NMONITOR - Number of species to monitor - INTEGER, PARAMETER :: NMONITOR = 0 -! NMASS - Number of atoms to check mass balance - INTEGER, PARAMETER :: NMASS = 1 - -! Index declaration for variable species in C and VAR -! VAR(ind_spc) = C(ind_spc) - - INTEGER, PARAMETER :: ind_H2SO4 = 1 - INTEGER, PARAMETER :: ind_HCl = 2 - INTEGER, PARAMETER :: ind_NH3 = 3 - INTEGER, PARAMETER :: ind_HCOOH = 4 - INTEGER, PARAMETER :: ind_RCOOH = 5 - INTEGER, PARAMETER :: ind_ARO1 = 6 - INTEGER, PARAMETER :: ind_ARO2 = 7 - INTEGER, PARAMETER :: ind_ALK1 = 8 - INTEGER, PARAMETER :: ind_OLE1 = 9 - INTEGER, PARAMETER :: ind_API1 = 10 - INTEGER, PARAMETER :: ind_API2 = 11 - INTEGER, PARAMETER :: ind_LIM1 = 12 - INTEGER, PARAMETER :: ind_LIM2 = 13 - INTEGER, PARAMETER :: ind_DUMMY = 14 - INTEGER, PARAMETER :: ind_SO2 = 15 - INTEGER, PARAMETER :: ind_O1D = 16 - INTEGER, PARAMETER :: ind_ANOL = 17 - INTEGER, PARAMETER :: ind_PAN = 18 - INTEGER, PARAMETER :: ind_H2O2 = 19 - INTEGER, PARAMETER :: ind_TOL = 20 - INTEGER, PARAMETER :: ind_N2O5 = 21 - INTEGER, PARAMETER :: ind_XYL = 22 - INTEGER, PARAMETER :: ind_CH4 = 23 - INTEGER, PARAMETER :: ind_CRO = 24 - INTEGER, PARAMETER :: ind_API = 25 - INTEGER, PARAMETER :: ind_LIM = 26 - INTEGER, PARAMETER :: ind_HNO4 = 27 - INTEGER, PARAMETER :: ind_C2H6 = 28 - INTEGER, PARAMETER :: ind_TO2 = 29 - INTEGER, PARAMETER :: ind_XPAR = 30 - INTEGER, PARAMETER :: ind_CH3OOH = 31 - INTEGER, PARAMETER :: ind_HONO = 32 - INTEGER, PARAMETER :: ind_ETHOOH = 33 - INTEGER, PARAMETER :: ind_ETH = 34 - INTEGER, PARAMETER :: ind_CH3OH = 35 - INTEGER, PARAMETER :: ind_CRES = 36 - INTEGER, PARAMETER :: ind_O3P = 37 - INTEGER, PARAMETER :: ind_HNO3 = 38 - INTEGER, PARAMETER :: ind_CO = 39 - INTEGER, PARAMETER :: ind_ISOPN = 40 - INTEGER, PARAMETER :: ind_PAR = 41 - INTEGER, PARAMETER :: ind_OPEN = 42 - INTEGER, PARAMETER :: ind_ISOPP = 43 - INTEGER, PARAMETER :: ind_ISOPO2 = 44 - INTEGER, PARAMETER :: ind_OLET = 45 - INTEGER, PARAMETER :: ind_ISOP = 46 - INTEGER, PARAMETER :: ind_HCHO = 47 - INTEGER, PARAMETER :: ind_XO2 = 48 - INTEGER, PARAMETER :: ind_AONE = 49 - INTEGER, PARAMETER :: ind_OLEI = 50 - INTEGER, PARAMETER :: ind_NAP = 51 - INTEGER, PARAMETER :: ind_ETHP = 52 - INTEGER, PARAMETER :: ind_MGLY = 53 - INTEGER, PARAMETER :: ind_ALD2 = 54 - INTEGER, PARAMETER :: ind_CH3O2 = 55 - INTEGER, PARAMETER :: ind_ISOPRD = 56 - INTEGER, PARAMETER :: ind_ONIT = 57 - INTEGER, PARAMETER :: ind_C2O3 = 58 - INTEGER, PARAMETER :: ind_NO2 = 59 - INTEGER, PARAMETER :: ind_NO3 = 60 - INTEGER, PARAMETER :: ind_RO2 = 61 - INTEGER, PARAMETER :: ind_ANO2 = 62 - INTEGER, PARAMETER :: ind_NO = 63 - INTEGER, PARAMETER :: ind_O3 = 64 - INTEGER, PARAMETER :: ind_HO2 = 65 - INTEGER, PARAMETER :: ind_ROOH = 66 - INTEGER, PARAMETER :: ind_OH = 67 - -! Index declaration for fixed species in C -! C(ind_spc) - - INTEGER, PARAMETER :: ind_H2O = 68 - INTEGER, PARAMETER :: ind_M = 69 - -! Index declaration for fixed species in FIX -! FIX(indf_spc) = C(ind_spc) = C(NVAR+indf_spc) - - INTEGER, PARAMETER :: indf_H2O = 1 - INTEGER, PARAMETER :: indf_M = 2 - -! NJVRP - Length of sparse Jacobian JVRP - INTEGER, PARAMETER :: NJVRP = 240 - -! NSTOICM - Length of Sparse Stoichiometric Matrix - INTEGER, PARAMETER :: NSTOICM = 623 - -END MODULE CBMZ_Parameters - diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_Parameters.o b/boxmox/compiled_mechs/CBMZ/CBMZ_Parameters.o deleted file mode 100644 index 714050f539fed736aa70ffa8fcd15bc95af82837..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/CBMZ_Parameters.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_Precision.f90 b/boxmox/compiled_mechs/CBMZ/CBMZ_Precision.f90 deleted file mode 100644 index cbc7d15acff95d8dae1af820b606e6495df76969..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CBMZ/CBMZ_Precision.f90 +++ /dev/null @@ -1,17 +0,0 @@ - -MODULE CBMZ_Precision - -! -! Definition of different levels of accuracy -! for REAL variables using KIND parameterization -! -! KPP SP - Single precision kind - INTEGER, PARAMETER :: sp = SELECTED_REAL_KIND(6,30) -! KPP DP - Double precision kind - INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(14,300) -! KPP QP - Quadruple precision kind - INTEGER, PARAMETER :: qp = SELECTED_REAL_KIND(18,400) - -END MODULE CBMZ_Precision - - diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_Precision.o b/boxmox/compiled_mechs/CBMZ/CBMZ_Precision.o deleted file mode 100644 index 0bea2f5dcd0942e274c3c1d224c4843d963766d0..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/CBMZ_Precision.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_Rates.f90 b/boxmox/compiled_mechs/CBMZ/CBMZ_Rates.f90 deleted file mode 100644 index 3e9ab883ed93314a86f30f1e0a53c8e9cbb52491..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CBMZ/CBMZ_Rates.f90 +++ /dev/null @@ -1,798 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The Reaction Rates File -! -! Generated by KPP-2.2.3 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 : CBMZ_Rates.f90 -! Time : Thu Oct 8 08:21:56 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CBMZ_11803_BOXMOX -! Equation file : CBMZ.kpp -! Output root filename : CBMZ -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CBMZ_Rates - - USE CBMZ_Parameters - USE CBMZ_Global - USE CBMZ_Util - IMPLICIT NONE - -CONTAINS - - - -! Begin Rate Law Functions from KPP_HOME/util/UserRateLaws - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! User-defined Rate Law functions -! Note: the default argument type for rate laws, as read from the equations file, is single precision -! but all the internal calculations are performed in double precision -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~> Arrhenius -! REAL(kind=dp) FUNCTION ARR( A0,B0,C0 ) -! REAL A0,B0,C0 -! ARR = DBLE(A0) * EXP(-DBLE(B0)/TEMP) * (TEMP/300.0_dp)**DBLE(C0) -! END FUNCTION ARR - -! Arrhenius (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION ARR( A0,B0,C0, TEMP ) - REAL(kind=dp) :: TEMP - REAL(kind=dp) A0,B0,C0 - ARR = A0 * EXP( -B0 /TEMP ) * (TEMP/300._dp)**C0 - END FUNCTION ARR - -!~~~> Simplified Arrhenius, with two arguments -!~~~> Note: The argument B0 has a changed sign when compared to ARR -! REAL(kind=dp) FUNCTION ARR2( A0,B0 ) -! REAL A0,B0 -! ARR2 = DBLE(A0) * EXP( DBLE(B0)/TEMP ) -! END FUNCTION ARR2 -! CK 20140313 WRF-chem uses different kind of Arrhenius function -! with TEMP as argument... - REAL(kind=dp) FUNCTION ARR2( A0,B0, TEMP ) - REAL(kind=dp) :: TEMP - REAL(kind=dp) A0,B0 - ARR2 = A0 * EXP( -B0 /TEMP ) - END FUNCTION ARR2 -! CK 20140313 end - -! REAL(kind=dp) FUNCTION EP2(A0,C0,A2,C2,A3,C3) -! REAL A0,C0,A2,C2,A3,C3 -! REAL(kind=dp) K0,K2,K3 -! K0 = DBLE(A0) * EXP(-DBLE(C0)/TEMP) -! K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP) -! K3 = DBLE(A3) * EXP(-DBLE(C3)/TEMP) -! K3 = K3*CFACTOR*1.0E6_dp -! EP2 = K0 + K3/(1.0_dp+K3/K2 ) -! END FUNCTION EP2 - -! REAL(kind=dp) FUNCTION EP3(A1,C1,A2,C2) -! REAL A1, C1, A2, C2 -! REAL(kind=dp) K1, K2 -! K1 = DBLE(A1) * EXP(-DBLE(C1)/TEMP) -! K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP) -! EP3 = K1 + K2*(1.0E6_dp*CFACTOR) -! END FUNCTION EP3 - -! EP2 (added by psaide 22-07-2009) - REAL(kind=dp) FUNCTION EP2( A0,C0,A2,C2,A3,C3,TEMP,cair) - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A0,C0,A2,C2,A3,C3 - REAL(kind=dp) K0,K2,K3 - - K0 = A0 * EXP(-C0 /TEMP) - K2 = A2 * EXP(-C2 /TEMP) - K3 = A3 * EXP(-C3 /TEMP) -! K3 = K3 * 2.45E13_dp * 1.0E6_dp - K3 = K3 * cair - EP2 = K0 + K3/(1._dp+K3/K2 ) - END FUNCTION EP2 - -! EP3 (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION EP3(A1,C1,A2,C2,TEMP,cair) - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A1, C1, A2, C2 - REAL(kind=dp) K1, K2 - - K1 = A1 * EXP(-C1 /TEMP) - K2 = A2 * EXP(-C2 /TEMP) -! EP3 = K1 + K2*(1.0E6_dp * 2.45E13_dp) - EP3 = K1 + K2*cair - END FUNCTION EP3 - - -! REAL(kind=dp) FUNCTION FALL ( A0,B0,C0,A1,B1,C1,CF) -! REAL A0,B0,C0,A1,B1,C1,CF -! REAL(kind=dp) K0, K1 -! K0 = DBLE(A0) * EXP(-DBLE(B0)/TEMP)* (TEMP/300.0_dp)**DBLE(C0) -! K1 = DBLE(A1) * EXP(-DBLE(B1)/TEMP)* (TEMP/300.0_dp)**DBLE(C1) -! K0 = K0*CFACTOR*1.0E6_dp -! K1 = K0/K1 -! FALL = (K0/(1.0_dp+K1))* & -! DBLE(CF)**(1.0_dp/(1.0_dp+(LOG10(K1))**2)) -! END FUNCTION FALL - -! FALL (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION FALL( A0,B0,C0,A1,B1,C1,CF,TEMP,cair) - - INTRINSIC LOG10 - - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A0,B0,C0,A1,B1,C1,CF - REAL(kind=dp) K0, K1 - - K0 = A0 * EXP(-B0 /TEMP)* (TEMP/300._dp)**C0 - K1 = A1 * EXP(-B1 /TEMP)* (TEMP/300._dp)**C1 -! K0 = K0 * 2.45E13_dp * 1.0E6_dp - K0 = K0 * cair - K1 = K0/K1 - FALL = (K0/(1._dp+K1))*CF**(1._dp/(1._dp+(LOG10(K1))**2)) - - END FUNCTION FALL - -! FALL2 (added by psaide 28-10-2009) - REAL(KIND=dp) FUNCTION F2( A0,B0,C0,A1,B1,C1,CF,CN,TEMP,cair) - - INTRINSIC LOG10 - - REAL(KIND=dp) :: TEMP - REAL(KIND=dp) :: cair - REAL(KIND=dp) A0,B0,C0,A1,B1,C1,CF,CN - REAL(KIND=dp) K0, K1 - - K0 = A0 * EXP(-B0 /TEMP)* (TEMP/300._dp)**C0 - K1 = A1 * EXP(-B1 /TEMP)* (TEMP/300._dp)**C1 -! K0 = K0 * 2.45E13_dp * 1.0E6_dp - K0 = K0 * cair - K1 = K0/K1 - F2 = (K0/(1._dp+K1))*CF**(1._dp/(1._dp+(LOG10(K1)/CN)**2)) - - END FUNCTION F2 - - - !--------------------------------------------------------------------------- - - ELEMENTAL REAL(kind=dp) FUNCTION k_3rd(temp,cair,k0_300K,n,kinf_300K,m,fc) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL, INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL, INTENT(IN) :: n ! exponent for low pressure limit - REAL, INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL, INTENT(IN) :: m ! exponent for high pressure limit - REAL, INTENT(IN) :: fc ! broadening factor (usually fc=0.6) - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - k_3rd = k0_T/(1._dp+k_ratio)*fc**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - END FUNCTION k_3rd - - !--------------------------------------------------------------------------- - - ELEMENTAL REAL(kind=dp) FUNCTION k_arr (k_298,tdep,temp) - ! Arrhenius function - - REAL, INTENT(IN) :: k_298 ! k at T = 298.15K - REAL, INTENT(IN) :: tdep ! temperature dependence - REAL(kind=dp), INTENT(IN) :: temp ! temperature - - INTRINSIC EXP - - k_arr = k_298 * EXP(tdep*(1._dp/temp-3.3540E-3_dp)) ! 1/298.15=3.3540e-3 - - END FUNCTION k_arr - -! CK 20140313 in the following some more rate functions needed by -! WRF-chem packages - -!------------------------------------ -! Troe reactions (as in Stockwell et al, 1997) - - REAL(kind=dp) FUNCTION TROE(k0_300K,n,kinf_300K,m,temp,cair) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - TROE = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - END FUNCTION TROE - - - -!------------------------------------------- -! Troe equilibrium reactions (as in Stockwell et al, 1997) - - REAL(kind=dp) FUNCTION TROEE(A, B, k0_300K,n,kinf_300K,m,temp,cair) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - REAL(kind=dp), INTENT(IN) :: A, B - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio, troe - - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - troe = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - TROEE = A * EXP( - B / temp) * troe - - - - END FUNCTION TROEE - -!------------------------ -! k=T^2 C exp (-D/T) reactions - - REAL(kind=dp) FUNCTION THERMAL_T2(c, d ,temp) - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: c, d - - - THERMAL_T2= temp**2._dp * c * EXP(- d / temp) - - END FUNCTION THERMAL_T2 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! End of User-defined Rate Law functions -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -! End Rate Law Functions from KPP_HOME/util/UserRateLaws - - -! Begin INLINED Rate Law Functions - - - -! **************************************************************************** -! J - the photolysis rate retrieval function -! **************************************************************************** - REAL(kind=dp) FUNCTION J(name) - - CHARACTER(LEN=*), INTENT(IN) :: name - - CHARACTER(LEN=15) :: xname - - INTEGER :: i - - xname(:) = " " - xname(1:LEN(name)) = name - - J = jvalues(hash(xname)) - - RETURN - - END FUNCTION J -! **************************************************************************** - - -!__________________________________________________ - - REAL(KIND=dp) FUNCTION ARR3( A0,B0, TEMP ) - REAL(KIND=dp),INTENT(IN) :: TEMP - REAL(KIND=dp),INTENT(IN):: A0,B0 - ARR3 = A0 * EXP(- B0 /TEMP ) - END FUNCTION ARR3 -!__________________________________________________ - - REAL(KIND=dp) FUNCTION ARR3MS( A0,B0,TEMP,C_M ) - REAL(KIND=dp), INTENT(IN) :: A0,B0 - REAL(KIND=dp), INTENT(IN) :: TEMP,C_M - - ARR3MS = C_M*A0 *(TEMP/300._dp)**(-B0) - END FUNCTION ARR3MS -!__________________________________________________ - - REAL(KIND=dp) FUNCTION TROEMS(k0_300K,n,kinf_300K,m,TEMP,C_M) - - INTRINSIC LOG10 - - REAL(KIND=dp), INTENT(IN) :: TEMP ! TEMPerature [K] - REAL(KIND=dp), INTENT(IN) :: C_M ! air concentration [molecules/cm3] - REAL(KIND=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(KIND=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(KIND=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(KIND=dp), INTENT(IN) :: m ! exponent for high pressure limit - REAL(KIND=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = TEMP/300._dp - k0_T = k0_300K * zt_help**(n) * C_M ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - TROEMS = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - END FUNCTION TROEMS -!__________________________________________________ - - REAL(KIND=dp) FUNCTION TROEEMS(A, B, k0_300K,n,kinf_300K,m,TEMP,C_M) - - INTRINSIC LOG10 - - REAL(KIND=dp), INTENT(IN) :: TEMP ! TEMPerature [K] - REAL(KIND=dp), INTENT(IN) :: C_M ! air concentration [molecules/cm3] - REAL(KIND=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(KIND=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(KIND=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(KIND=dp), INTENT(IN) :: m ! exponent for high pressure limit - REAL(KIND=dp), INTENT(IN) :: A, B - REAL(KIND=dp) :: zt_help, k0_T, kinf_T, k_ratio, troe - - - zt_help = TEMP/300._dp - k0_T = k0_300K * zt_help**(n) * C_M ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - troe = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - TROEEMS = A * EXP( - B / TEMP) * troe - END FUNCTION TROEEMS - -!__________________________________________________ - - - REAL(KIND=dp) FUNCTION k46( TEMP, C_M ) - REAL(KIND=dp), INTENT(IN) :: TEMP, C_M - REAL(KIND=dp) :: k0, k2, k3 - k0=7.2E-15_dp * EXP(785._dp/TEMP) - k2=4.1E-16_dp * EXP(1440._dp/TEMP) - k3=1.9E-33_dp * EXP(725._dp/TEMP) - k46=k0+k3/(1+k3/k2) - END FUNCTION k46 -!__________________________________________________ - REAL(KIND=dp) FUNCTION RK_HO_HNO3( TEMP, C_M ) - REAL(KIND=dp), INTENT(IN) :: TEMP, C_M - REAL(KIND=dp) :: k1, k2, k3 - k1=7.2E-15_dp * EXP(785._dp/TEMP) - k2=1.9E-33_dp * EXP(725._dp/TEMP) - k3=4.1E-16_dp * EXP(1440._dp/TEMP) - RK_HO_HNO3=k1+(C_M*k2)/(1+(C_M*k2)/k3) - END FUNCTION RK_HO_HNO3 -!__________________________________________________ - REAL(KIND=dp) FUNCTION RK_2HO2( TEMP, C_M ) - REAL(KIND=dp), INTENT(IN) :: TEMP, C_M - REAL(KIND=dp) :: k1, k2, k3 - k1=2.3E-13_dp * EXP(600._dp/TEMP) - k2=1.7E-33_dp * EXP(1000._dp/TEMP) - RK_2HO2=k1+(C_M*k2) - END FUNCTION RK_2HO2 -!__________________________________________________ - REAL(KIND=dp) FUNCTION RK_2HO2_H2O( TEMP, C_M ) - REAL(KIND=dp), INTENT(IN) :: TEMP, C_M - REAL(KIND=dp) :: k1, k2, k3 - k1=2.3E-13_dp * EXP(600._dp/TEMP) - k2=1.7E-33_dp * EXP(1000._dp/TEMP) * C_M - k3=1.4E-21_dp * EXP(2200._dp/TEMP) - RK_2HO2_H2O=(k1+k2)*k3 - END FUNCTION RK_2HO2_H2O -!__________________________________________________ - REAL(KIND=dp) FUNCTION RK_CO_HO( TEMP, C_M ) - REAL(KIND=dp), INTENT(IN) :: TEMP, C_M - RK_CO_HO =1.5e-13 * (1.0 + 8.18e-23 * TEMP * C_M) - END FUNCTION RK_CO_HO -!__________________________________________________ - REAL(KIND=dp) FUNCTION peroxy(K,TEMP,C_M) - REAL(KIND=dp), INTENT(IN) :: TEMP,C_M - INTEGER :: nperox, I, J, K - PARAMETER(nperox=10) - REAL(KIND=dp) :: Aperox(nperox,nperox),Bperox(nperox,nperox) - REAL(KIND=dp) :: RK_PEROX(nperox,nperox) - REAL(KIND=dp) :: RK_PARAM(nperox),SPEROX(nperox) -! - SPEROX(1)=C(ind_CH3O2) - SPEROX(2)=C(ind_ETHP) - SPEROX(3)=C(ind_RO2) - SPEROX(4)=C(ind_C2O3) - SPEROX(5)=C(ind_ANO2) - SPEROX(6)=C(ind_NAP) - SPEROX(7)=C(ind_ISOPP) - SPEROX(8)=C(ind_ISOPN) - SPEROX(9)=C(ind_ISOPO2) - SPEROX(10)=C(ind_XO2) -! - Aperox(1,1)=2.5e-13 - Aperox(2,2)=6.8e-14 - Aperox(3,3)=2.9e-12 - Aperox(4,4)=8.0e-12 - Aperox(5,5)=1.0e-12 - Aperox(6,6)=5.3e-16 - Aperox(7,7)=3.1e-14 - Aperox(8,8)=3.1e-14 - Aperox(9,9)=3.1e-14 - Aperox(10,10)=3.1e-14 - Bperox(1,1)=190. - Bperox(2,2)=0.0 - Bperox(3,3)=500. - Bperox(4,4)=0.0 - Bperox(5,5)=0.0 - Bperox(6,6)=1980. - Bperox(7,7)=1000. - Bperox(8,8)=1000. - Bperox(9,9)=1000. - Bperox(10,10)=1000. - DO I=1,nperox - DO J=1,nperox - IF(I.NE.J) THEN - Aperox(I,J)=2.0*SQRT(Aperox(I,I)*Aperox(J,J)) - Bperox(I,J)=0.5*(Bperox(I,I)+Bperox(J,J)) - ENDIF - ENDDO - ENDDO - Aperox(3,1)=1.3e-12 - Aperox(1,3)=1.3e-12 - Bperox(3,1)=640.0 - Bperox(1,3)=640.0 -! - DO I=1,nperox - RK_PARAM(I)=0.0 - ENDDO - DO I=1,nperox - DO J=1,nperox - RK_PEROX(I,J)=ARR3(Aperox(I,J),-Bperox(I,J),TEMP) - RK_PARAM(I)=RK_PARAM(I)+RK_PEROX(I,J)*SPEROX(J) - ENDDO - ENDDO - peroxy=RK_PARAM(K) -! - END FUNCTION peroxy -!__________________________________________________ -!__________________________________________________ - REAL(KIND=dp) FUNCTION peroxy_OLD(K,X1,X2,X3,X4,X5,X6,X7,X8,X9,X10, & - TEMP,C_M) - REAL(KIND=dp), INTENT(IN) :: X1,X2,X3,X4,X5,X6,X7,X8,X9,X10 - REAL(KIND=dp), INTENT(IN) :: TEMP,C_M - INTEGER :: nperox, I, J, K - PARAMETER(nperox=10) - REAL(KIND=dp) :: Aperox(nperox,nperox),Bperox(nperox,nperox) - REAL(KIND=dp) :: RK_PEROX(nperox,nperox) - REAL(KIND=dp) :: RK_PARAM(nperox),SPEROX(nperox) -! - SPEROX(1)=X1 - SPEROX(2)=X2 - SPEROX(3)=X3 - SPEROX(4)=X4 - SPEROX(5)=X5 - SPEROX(6)=X6 - SPEROX(7)=X7 - SPEROX(8)=X8 - SPEROX(9)=X9 - SPEROX(10)=X10 -! - Aperox(1,1)=2.5e-13 - Aperox(2,2)=6.8e-14 - Aperox(3,3)=2.9e-12 - Aperox(4,4)=8.0e-12 - Aperox(5,5)=1.0e-12 - Aperox(6,6)=5.3e-16 - Aperox(7,7)=3.1e-14 - Aperox(8,8)=3.1e-14 - Aperox(9,9)=3.1e-14 - Aperox(10,10)=3.1e-14 - Bperox(1,1)=190. - Bperox(2,2)=0.0 - Bperox(3,3)=500. - Bperox(4,4)=0.0 - Bperox(5,5)=0.0 - Bperox(6,6)=1980. - Bperox(7,7)=1000. - Bperox(8,8)=1000. - Bperox(9,9)=1000. - Bperox(10,10)=1000. - DO I=1,nperox - DO J=1,nperox - IF(I.NE.J) THEN - Aperox(I,J)=2.0*SQRT(Aperox(I,I)*Aperox(J,J)) - Bperox(I,J)=0.5*(Bperox(I,I)+Bperox(J,J)) - ENDIF - ENDDO - ENDDO - Aperox(3,1)=1.3e-12 - Aperox(1,3)=1.3e-12 - Bperox(3,1)=640.0 - Bperox(1,3)=640.0 -! - DO I=1,nperox - RK_PARAM(I)=0.0 - ENDDO - DO I=1,nperox - DO J=1,nperox - RK_PEROX(I,J)=ARR3(Aperox(I,J),-Bperox(I,J),TEMP) - RK_PARAM(I)=RK_PARAM(I)+RK_PEROX(I,J)*SPEROX(J) - ENDDO - ENDDO - peroxy_OLD=RK_PARAM(K) -! - END FUNCTION peroxy_OLD -!__________________________________________________ - - -! End INLINED Rate Law Functions - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_SUN - update SUN light using TIME -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - SUBROUTINE Update_SUN() - !USE CBMZ_Parameters - !USE CBMZ_Global - - IMPLICIT NONE - - REAL(kind=dp) :: SunRise, SunSet - REAL(kind=dp) :: Thour, Tlocal, Ttmp - ! PI - Value of pi - REAL(kind=dp), PARAMETER :: PI = 3.14159265358979d0 - - SunRise = 4.5_dp - SunSet = 19.5_dp - Thour = TIME/3600.0_dp - Tlocal = Thour - (INT(Thour)/24)*24 - - IF ((Tlocal>=SunRise).AND.(Tlocal<=SunSet)) THEN - Ttmp = (2.0*Tlocal-SunRise-SunSet)/(SunSet-SunRise) - IF (Ttmp.GT.0) THEN - Ttmp = Ttmp*Ttmp - ELSE - Ttmp = -Ttmp*Ttmp - END IF - SUN = ( 1.0_dp + COS(PI*Ttmp) )/2.0_dp - ELSE - SUN = 0.0_dp - END IF - - END SUBROUTINE Update_SUN - -! End of Update_SUN function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_RCONST - function to update rate constants -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Update_RCONST ( ) - - - - -! Begin INLINED RCONST - - -! End INLINED RCONST - - RCONST(1) = (j('no2')) - RCONST(2) = (j('no3o')) - RCONST(3) = (j('hno2')) - RCONST(4) = (j('hno3')) - RCONST(5) = (j('hno4')) - RCONST(6) = (j('n2o5')) - RCONST(7) = (j('o33p')) - RCONST(8) = (j('o31d')) - RCONST(9) = (j('h2o2')) - RCONST(10) = (j('ch2or')) - RCONST(11) = (j('ch2om')) - RCONST(12) = (0.7*j('h2o2')) - RCONST(13) = (0.7*j('h2o2')) - RCONST(14) = (4.6D-4*j('no2')) - RCONST(15) = (7.8D-5*j('no2')) - RCONST(16) = (9.64*j('ch2or')) - RCONST(17) = (9.04*j('ch2or')) - RCONST(18) = (0.7*j('h2o2')) - RCONST(19) = (1.0D-4*j('no2')) - RCONST(20) = (0.025*j('ch2om')) - RCONST(21) = (.79*ARR3(1.8D-11,-110.0_dp,TEMP)+.21*ARR3(3.2D-11,-70.0_dp,TEMP)) - RCONST(22) = (2.2D-10) - RCONST(23) = (.21*ARR3MS(6.0D-34,2.3_dp,TEMP,C_M)) - RCONST(24) = (ARR3(8.0D-12,2060._dp,TEMP)) - RCONST(25) = (ARR3(6.5D-12,120._dp,TEMP)) - RCONST(26) = (TROEMS(9.0D-32,-2.0_dp,2.2D-11,0.0_dp,TEMP,C_M)) - RCONST(27) = (TROEMS(9.0D-32,-1.5_dp,3.0D-11,0.0_dp,TEMP,C_M)) - RCONST(28) = (ARR3(2.0D-12,1400._dp,TEMP)) - RCONST(29) = (ARR3(1.2D-13,2450._dp,TEMP)) - RCONST(30) = (ARR3(1.6D-12,940._dp,TEMP)) - RCONST(31) = (ARR3(1.1D-14,500._dp,TEMP)) - RCONST(32) = (5.8D-7*ARR3(5.5D-12,2000._dp,TEMP)) - RCONST(33) = (TROEMS(7.0D-31,-2.6_dp,3.6D-11,-0.1_dp,TEMP,C_M)) - RCONST(34) = (TROEMS(2.5D-30,-4.4_dp,1.6D-11,-1.7_dp,TEMP,C_M)) - RCONST(35) = (2.2D-11) - RCONST(36) = (ARR3(1.8D-11,390._dp,TEMP)) - RCONST(37) = (RK_HO_HNO3(TEMP,C_M)) - RCONST(38) = (ARR3(1.3D-12,-380._dp,TEMP)) - RCONST(39) = (ARR3(4.8D-11,-250._dp,TEMP)) - RCONST(40) = (ARR3(2.9D-12,160._dp,TEMP)) - RCONST(41) = (RK_2HO2(TEMP,C_M)) - RCONST(42) = (RK_2HO2_H2O(TEMP,C_M)) - RCONST(43) = (ARR3(3.5D-12,-250._dp,TEMP)) - RCONST(44) = (TROEMS(1.8D-31,-3.2_dp,4.7D-12,-1.4_dp,TEMP,C_M)) - RCONST(45) = (5.0D-16) - RCONST(46) = (TROEEMS(4.8D+26,10900._dp,1.8D-31,-3.2_dp,4.7D-12,-1.4_dp,TEMP,C_M)) - RCONST(47) = (ARR3(1.5D-11,-170._dp,TEMP)) - RCONST(48) = (ARR3(4.5D-14,1260._dp,TEMP)) - RCONST(49) = (TROEMS(2.2D-30,-3.9_dp,1.5D-12,-0.7_dp,TEMP,C_M)) - RCONST(50) = (ARR3(8.5D-13,2450._dp,TEMP)) - RCONST(51) = (3.5D-12) - RCONST(52) = (2.0D-21) - RCONST(53) = (TROEEMS(3.7D+26,11000._dp,2.2D-30,-3.9_dp,1.5D-12,-0.7_dp,TEMP,C_M)) - RCONST(54) = (RK_CO_HO(TEMP,C_M)) - RCONST(55) = (TROEMS(3.0D-31,-3.3_dp,1.5D-12,0.0_dp,TEMP,C_M)) - RCONST(56) = (TEMP**0.667*ARR3(2.8D-14,1575._dp,TEMP)) - RCONST(57) = (TEMP**2*ARR3(1.5D-17,492._dp,TEMP)) - RCONST(58) = (8.1D-13) - RCONST(59) = (1.0D-11) - RCONST(60) = (ARR3(3.4D-13,1900._dp,TEMP)) - RCONST(61) = (ARR3(5.6D-12,-270._dp,TEMP)) - RCONST(62) = (ARR3(1.4D-12,1900._dp,TEMP)) - RCONST(63) = (TEMP**2*ARR3(5.3D-18,230._dp,TEMP)) - RCONST(64) = (1.7D-11) - RCONST(65) = (ARR3(1.4D-12,1900._dp,TEMP)) - RCONST(66) = (ARR3(1.2D-14,2630._dp,TEMP)) - RCONST(67) = (TROEMS(1.0D-28,-0.8_dp,8.8D-12,0.0_dp,TEMP,C_M)) - RCONST(68) = (ARR3(4.2D-15,1800._dp,TEMP)) - RCONST(69) = (ARR3(8.9D-16,392._dp,TEMP)) - RCONST(70) = (ARR3(5.8D-12,-478._dp,TEMP)) - RCONST(71) = (ARR3(2.9D-11,-255._dp,TEMP)) - RCONST(72) = (ARR3(3.1D-13,1010._dp,TEMP)) - RCONST(73) = (2.5D-12) - RCONST(74) = (ARR3(2.1D-12,-322._dp,TEMP)) - RCONST(75) = (ARR3(1.7D-11,-116._dp,TEMP)) - RCONST(76) = (8.1D-12) - RCONST(77) = (4.1D-11) - RCONST(78) = (2.2D-11) - RCONST(79) = (1.4D-11) - RCONST(80) = (3.0D-11) - RCONST(81) = (ARR3(5.4D-17,500._dp,TEMP)) - RCONST(82) = (ARR3(2.6D-11,-409._dp,TEMP)) - RCONST(83) = (ARR3(1.2D-14,2013._dp,TEMP)) - RCONST(84) = (ARR3(3.0D-12,446._dp,TEMP)) - RCONST(85) = (3.3D-11) - RCONST(86) = (7.0D-18) - RCONST(87) = (1.0D-15) - RCONST(88) = (4.0D-12) - RCONST(89) = (4.0D-12) - RCONST(90) = (4.0D-12) - RCONST(91) = (ARR3(1.7D-13,-1300._dp,TEMP)) - RCONST(92) = (ARR3(1.7D-13,-1300._dp,TEMP)) - RCONST(93) = (ARR3(1.7D-13,-1300._dp,TEMP)) - RCONST(94) = (ARR3(3.8D-12,-200._dp,TEMP)) - RCONST(95) = (ARR3(3.8D-12,-200._dp,TEMP)) - RCONST(96) = (ARR3(3.8D-12,-200._dp,TEMP)) - RCONST(97) = (ARR3(1.6D-11,540._dp,TEMP)) - RCONST(98) = (TROEMS(9.7D-29,-5.6_dp,9.3D-12,-1.5_dp,TEMP,C_M)) - RCONST(99) = (TROEEMS(1.1D+28,14000._dp,9.7D-29,-5.6_dp,9.3D-12,-1.5_dp,TEMP,C_M)) - RCONST(100) = (ARR3(6.7D-12,600._dp,TEMP)) - RCONST(101) = (ARR3(3.0D-12,-280._dp,TEMP)) - RCONST(102) = (ARR3(2.6D-12,-365._dp,TEMP)) - RCONST(103) = (4.0D-12) - RCONST(104) = (ARR3(5.3D-12,-360._dp,TEMP)) - RCONST(105) = (4.0D-12) - RCONST(106) = (4.0D-12) - RCONST(107) = (4.0D-12) - RCONST(108) = (1.1D-12) - RCONST(109) = (2.5D-12) - RCONST(110) = (2.5D-12) - RCONST(111) = (4.0D-12) - RCONST(112) = (1.2D-12) - RCONST(113) = (4.0D-12) - RCONST(114) = (2.5D-12) - RCONST(115) = (ARR3(3.8D-13,-800._dp,TEMP)) - RCONST(116) = (ARR3(7.5D-13,-700._dp,TEMP)) - RCONST(117) = (ARR3(1.7D-13,-1300._dp,TEMP)) - RCONST(118) = (ARR3(4.5D-13,-1000._dp,TEMP)) - RCONST(119) = (ARR3(1.2D-13,-1300._dp,TEMP)) - RCONST(120) = (ARR3(1.7D-13,-1300._dp,TEMP)) - RCONST(121) = (ARR3(1.7D-13,-1300._dp,TEMP)) - RCONST(122) = (ARR3(7.0D-12,235._dp,TEMP)) - RCONST(123) = (1.0D-11) -! RCONST(124) = constant rate coefficient -! RCONST(125) = constant rate coefficient -! RCONST(126) = constant rate coefficient - RCONST(127) = (peroxy(1,TEMP,C_M)) - RCONST(128) = (peroxy(2,TEMP,C_M)) - RCONST(129) = (peroxy(3,TEMP,C_M)) - RCONST(130) = (peroxy(4,TEMP,C_M)) - RCONST(131) = (peroxy(5,TEMP,C_M)) - RCONST(132) = (peroxy(6,TEMP,C_M)) - RCONST(133) = (peroxy(7,TEMP,C_M)) - RCONST(134) = (peroxy(8,TEMP,C_M)) - RCONST(135) = (peroxy(9,TEMP,C_M)) - RCONST(136) = (peroxy(10,TEMP,C_M)) - RCONST(137) = (ARR3(12.1D-12,-444._dp,TEMP)) - RCONST(138) = (ARR3(1.01D-15,732._dp,TEMP)) - RCONST(139) = (ARR3(1.19D-12,-490._dp,TEMP)) - RCONST(140) = (1.71D-10) - RCONST(141) = (2.0D-16) - RCONST(142) = (1.22D-11) - -END SUBROUTINE Update_RCONST - -! End of Update_RCONST function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_PHOTO - function to update photolytical rate constants -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Update_PHOTO ( ) - - - USE CBMZ_Global - - RCONST(1) = (j('no2')) - RCONST(2) = (j('no3o')) - RCONST(3) = (j('hno2')) - RCONST(4) = (j('hno3')) - RCONST(5) = (j('hno4')) - RCONST(6) = (j('n2o5')) - RCONST(7) = (j('o33p')) - RCONST(8) = (j('o31d')) - RCONST(9) = (j('h2o2')) - RCONST(10) = (j('ch2or')) - RCONST(11) = (j('ch2om')) - RCONST(12) = (0.7*j('h2o2')) - RCONST(13) = (0.7*j('h2o2')) - RCONST(14) = (4.6D-4*j('no2')) - RCONST(15) = (7.8D-5*j('no2')) - RCONST(16) = (9.64*j('ch2or')) - RCONST(17) = (9.04*j('ch2or')) - RCONST(18) = (0.7*j('h2o2')) - RCONST(19) = (1.0D-4*j('no2')) - RCONST(20) = (0.025*j('ch2om')) - -END SUBROUTINE Update_PHOTO - -! End of Update_PHOTO function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE CBMZ_Rates - diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_Rates.o b/boxmox/compiled_mechs/CBMZ/CBMZ_Rates.o deleted file mode 100644 index 19574122330fb7591270146912f25d3de42f1ef3..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/CBMZ_Rates.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_Stoichiom.f90 b/boxmox/compiled_mechs/CBMZ/CBMZ_Stoichiom.f90 deleted file mode 100644 index 659572de445685d86bae9779d067daa3aac5cbc0..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CBMZ/CBMZ_Stoichiom.f90 +++ /dev/null @@ -1,835 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The Stoichiometric Chemical Model File -! -! Generated by KPP-2.2.3 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 : CBMZ_Stoichiom.f90 -! Time : Thu Oct 8 08:21:56 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CBMZ_11803_BOXMOX -! Equation file : CBMZ.kpp -! Output root filename : CBMZ -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CBMZ_Stoichiom - - USE CBMZ_Parameters - USE CBMZ_StoichiomSP - - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! ReactantProd - Reactant Products in each equation -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! ARP - Reactant product in each equation -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE ReactantProd ( V, F, ARP ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! F - Concentrations of fixed species (local) - REAL(kind=dp) :: F(NFIX) -! ARP - Reactant product in each equation - REAL(kind=dp) :: ARP(NREACT) - - -! Reactant Products in each equation are useful in the -! stoichiometric formulation of mass action law - ARP(1) = V(59) - ARP(2) = V(60) - ARP(3) = V(32) - ARP(4) = V(38) - ARP(5) = V(27) - ARP(6) = V(21) - ARP(7) = V(64) - ARP(8) = V(64) - ARP(9) = V(19) - ARP(10) = V(47) - ARP(11) = V(47) - ARP(12) = V(31) - ARP(13) = V(33) - ARP(14) = V(54) - ARP(15) = V(49) - ARP(16) = V(53) - ARP(17) = V(42) - ARP(18) = V(66) - ARP(19) = V(57) - ARP(20) = V(56) - ARP(21) = V(16)*F(2) - ARP(22) = V(16)*F(1) - ARP(23) = V(37)*F(2) - ARP(24) = V(37)*V(64) - ARP(25) = V(37)*V(59) - ARP(26) = V(37)*V(59) - ARP(27) = V(37)*V(63) - ARP(28) = V(63)*V(64) - ARP(29) = V(59)*V(64) - ARP(30) = V(64)*V(67) - ARP(31) = V(64)*V(65) - ARP(32) = V(67)*F(2) - ARP(33) = V(63)*V(67) - ARP(34) = V(59)*V(67) - ARP(35) = V(60)*V(67) - ARP(36) = V(32)*V(67) - ARP(37) = V(38)*V(67) - ARP(38) = V(27)*V(67) - ARP(39) = V(65)*V(67) - ARP(40) = V(19)*V(67) - ARP(41) = V(65)*V(65) - ARP(42) = V(65)*V(65)*F(1) - ARP(43) = V(63)*V(65) - ARP(44) = V(59)*V(65) - ARP(45) = V(59)*V(65) - ARP(46) = V(27) - ARP(47) = V(60)*V(63) - ARP(48) = V(59)*V(60) - ARP(49) = V(59)*V(60) - ARP(50) = V(60)*V(60) - ARP(51) = V(60)*V(65) - ARP(52) = V(21)*F(1) - ARP(53) = V(21) - ARP(54) = V(39)*V(67) - ARP(55) = V(15)*V(67) - ARP(56) = V(23)*V(67) - ARP(57) = V(28)*V(67) - ARP(58) = V(41)*V(67) - ARP(59) = V(47)*V(67) - ARP(60) = V(47)*V(60) - ARP(61) = V(54)*V(67) - ARP(62) = V(54)*V(60) - ARP(63) = V(49)*V(67) - ARP(64) = V(53)*V(67) - ARP(65) = V(53)*V(60) - ARP(66) = V(34)*V(64) - ARP(67) = V(34)*V(67) - ARP(68) = V(45)*V(64) - ARP(69) = V(50)*V(64) - ARP(70) = V(45)*V(67) - ARP(71) = V(50)*V(67) - ARP(72) = V(45)*V(60) - ARP(73) = V(50)*V(60) - ARP(74) = V(20)*V(67) - ARP(75) = V(22)*V(67) - ARP(76) = V(29)*V(63) - ARP(77) = V(36)*V(67) - ARP(78) = V(36)*V(60) - ARP(79) = V(24)*V(59) - ARP(80) = V(42)*V(67) - ARP(81) = V(42)*V(64) - ARP(82) = V(46)*V(67) - ARP(83) = V(46)*V(64) - ARP(84) = V(46)*V(60) - ARP(85) = V(56)*V(67) - ARP(86) = V(56)*V(64) - ARP(87) = V(56)*V(60) - ARP(88) = V(43)*V(63) - ARP(89) = V(40)*V(63) - ARP(90) = V(44)*V(63) - ARP(91) = V(43)*V(65) - ARP(92) = V(40)*V(65) - ARP(93) = V(44)*V(65) - ARP(94) = V(31)*V(67) - ARP(95) = V(33)*V(67) - ARP(96) = V(66)*V(67) - ARP(97) = V(57)*V(67) - ARP(98) = V(58)*V(59) - ARP(99) = V(18) - ARP(100) = V(35)*V(67) - ARP(101) = V(55)*V(63) - ARP(102) = V(52)*V(63) - ARP(103) = V(61)*V(63) - ARP(104) = V(58)*V(63) - ARP(105) = V(62)*V(63) - ARP(106) = V(51)*V(63) - ARP(107) = V(48)*V(63) - ARP(108) = V(55)*V(60) - ARP(109) = V(52)*V(60) - ARP(110) = V(60)*V(61) - ARP(111) = V(58)*V(60) - ARP(112) = V(60)*V(62) - ARP(113) = V(51)*V(60) - ARP(114) = V(48)*V(60) - ARP(115) = V(55)*V(65) - ARP(116) = V(52)*V(65) - ARP(117) = V(61)*V(65) - ARP(118) = V(58)*V(65) - ARP(119) = V(62)*V(65) - ARP(120) = V(51)*V(65) - ARP(121) = V(48)*V(65) - ARP(122) = V(17)*V(67) - ARP(123) = V(30)*V(41) - ARP(124) = V(2) - ARP(125) = V(3) - ARP(126) = V(1) - ARP(127) = V(55) - ARP(128) = V(52) - ARP(129) = V(61) - ARP(130) = V(58) - ARP(131) = V(62) - ARP(132) = V(51) - ARP(133) = V(43) - ARP(134) = V(40) - ARP(135) = V(44) - ARP(136) = V(48) - ARP(137) = V(25)*V(67) - ARP(138) = V(25)*V(60) - ARP(139) = V(25)*V(64) - ARP(140) = V(26)*V(67) - ARP(141) = V(26)*V(60) - ARP(142) = V(26)*V(64) - -END SUBROUTINE ReactantProd - -! End of ReactantProd function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! JacReactantProd - Jacobian of Reactant Products vector -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! JVRP - d ARP(1:NREACT)/d VAR (1:NVAR) -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE JacReactantProd ( V, F, JVRP ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! F - Concentrations of fixed species (local) - REAL(kind=dp) :: F(NFIX) -! JVRP - d ARP(1:NREACT)/d VAR (1:NVAR) - REAL(kind=dp) :: JVRP(NJVRP) - - -! Reactant Products in each equation are useful in the -! stoichiometric formulation of mass action law -! Below we compute the Jacobian of the Reactant Products vector -! w.r.t. variable species: d ARP(1:NREACT) / d Var(1:NVAR) - -! JVRP(1) = dARP(1)/dV(59) - JVRP(1) = 1 -! JVRP(2) = dARP(2)/dV(60) - JVRP(2) = 1 -! JVRP(3) = dARP(3)/dV(32) - JVRP(3) = 1 -! JVRP(4) = dARP(4)/dV(38) - JVRP(4) = 1 -! JVRP(5) = dARP(5)/dV(27) - JVRP(5) = 1 -! JVRP(6) = dARP(6)/dV(21) - JVRP(6) = 1 -! JVRP(7) = dARP(7)/dV(64) - JVRP(7) = 1 -! JVRP(8) = dARP(8)/dV(64) - JVRP(8) = 1 -! JVRP(9) = dARP(9)/dV(19) - JVRP(9) = 1 -! JVRP(10) = dARP(10)/dV(47) - JVRP(10) = 1 -! JVRP(11) = dARP(11)/dV(47) - JVRP(11) = 1 -! JVRP(12) = dARP(12)/dV(31) - JVRP(12) = 1 -! JVRP(13) = dARP(13)/dV(33) - JVRP(13) = 1 -! JVRP(14) = dARP(14)/dV(54) - JVRP(14) = 1 -! JVRP(15) = dARP(15)/dV(49) - JVRP(15) = 1 -! JVRP(16) = dARP(16)/dV(53) - JVRP(16) = 1 -! JVRP(17) = dARP(17)/dV(42) - JVRP(17) = 1 -! JVRP(18) = dARP(18)/dV(66) - JVRP(18) = 1 -! JVRP(19) = dARP(19)/dV(57) - JVRP(19) = 1 -! JVRP(20) = dARP(20)/dV(56) - JVRP(20) = 1 -! JVRP(21) = dARP(21)/dV(16) - JVRP(21) = F(2) -! JVRP(22) = dARP(22)/dV(16) - JVRP(22) = F(1) -! JVRP(23) = dARP(23)/dV(37) - JVRP(23) = F(2) -! JVRP(24) = dARP(24)/dV(37) - JVRP(24) = V(64) -! JVRP(25) = dARP(24)/dV(64) - JVRP(25) = V(37) -! JVRP(26) = dARP(25)/dV(37) - JVRP(26) = V(59) -! JVRP(27) = dARP(25)/dV(59) - JVRP(27) = V(37) -! JVRP(28) = dARP(26)/dV(37) - JVRP(28) = V(59) -! JVRP(29) = dARP(26)/dV(59) - JVRP(29) = V(37) -! JVRP(30) = dARP(27)/dV(37) - JVRP(30) = V(63) -! JVRP(31) = dARP(27)/dV(63) - JVRP(31) = V(37) -! JVRP(32) = dARP(28)/dV(63) - JVRP(32) = V(64) -! JVRP(33) = dARP(28)/dV(64) - JVRP(33) = V(63) -! JVRP(34) = dARP(29)/dV(59) - JVRP(34) = V(64) -! JVRP(35) = dARP(29)/dV(64) - JVRP(35) = V(59) -! JVRP(36) = dARP(30)/dV(64) - JVRP(36) = V(67) -! JVRP(37) = dARP(30)/dV(67) - JVRP(37) = V(64) -! JVRP(38) = dARP(31)/dV(64) - JVRP(38) = V(65) -! JVRP(39) = dARP(31)/dV(65) - JVRP(39) = V(64) -! JVRP(40) = dARP(32)/dV(67) - JVRP(40) = F(2) -! JVRP(41) = dARP(33)/dV(63) - JVRP(41) = V(67) -! JVRP(42) = dARP(33)/dV(67) - JVRP(42) = V(63) -! JVRP(43) = dARP(34)/dV(59) - JVRP(43) = V(67) -! JVRP(44) = dARP(34)/dV(67) - JVRP(44) = V(59) -! JVRP(45) = dARP(35)/dV(60) - JVRP(45) = V(67) -! JVRP(46) = dARP(35)/dV(67) - JVRP(46) = V(60) -! JVRP(47) = dARP(36)/dV(32) - JVRP(47) = V(67) -! JVRP(48) = dARP(36)/dV(67) - JVRP(48) = V(32) -! JVRP(49) = dARP(37)/dV(38) - JVRP(49) = V(67) -! JVRP(50) = dARP(37)/dV(67) - JVRP(50) = V(38) -! JVRP(51) = dARP(38)/dV(27) - JVRP(51) = V(67) -! JVRP(52) = dARP(38)/dV(67) - JVRP(52) = V(27) -! JVRP(53) = dARP(39)/dV(65) - JVRP(53) = V(67) -! JVRP(54) = dARP(39)/dV(67) - JVRP(54) = V(65) -! JVRP(55) = dARP(40)/dV(19) - JVRP(55) = V(67) -! JVRP(56) = dARP(40)/dV(67) - JVRP(56) = V(19) -! JVRP(57) = dARP(41)/dV(65) - JVRP(57) = 2*V(65) -! JVRP(58) = dARP(42)/dV(65) - JVRP(58) = 2*V(65)*F(1) -! JVRP(59) = dARP(43)/dV(63) - JVRP(59) = V(65) -! JVRP(60) = dARP(43)/dV(65) - JVRP(60) = V(63) -! JVRP(61) = dARP(44)/dV(59) - JVRP(61) = V(65) -! JVRP(62) = dARP(44)/dV(65) - JVRP(62) = V(59) -! JVRP(63) = dARP(45)/dV(59) - JVRP(63) = V(65) -! JVRP(64) = dARP(45)/dV(65) - JVRP(64) = V(59) -! JVRP(65) = dARP(46)/dV(27) - JVRP(65) = 1 -! JVRP(66) = dARP(47)/dV(60) - JVRP(66) = V(63) -! JVRP(67) = dARP(47)/dV(63) - JVRP(67) = V(60) -! JVRP(68) = dARP(48)/dV(59) - JVRP(68) = V(60) -! JVRP(69) = dARP(48)/dV(60) - JVRP(69) = V(59) -! JVRP(70) = dARP(49)/dV(59) - JVRP(70) = V(60) -! JVRP(71) = dARP(49)/dV(60) - JVRP(71) = V(59) -! JVRP(72) = dARP(50)/dV(60) - JVRP(72) = 2*V(60) -! JVRP(73) = dARP(51)/dV(60) - JVRP(73) = V(65) -! JVRP(74) = dARP(51)/dV(65) - JVRP(74) = V(60) -! JVRP(75) = dARP(52)/dV(21) - JVRP(75) = F(1) -! JVRP(76) = dARP(53)/dV(21) - JVRP(76) = 1 -! JVRP(77) = dARP(54)/dV(39) - JVRP(77) = V(67) -! JVRP(78) = dARP(54)/dV(67) - JVRP(78) = V(39) -! JVRP(79) = dARP(55)/dV(15) - JVRP(79) = V(67) -! JVRP(80) = dARP(55)/dV(67) - JVRP(80) = V(15) -! JVRP(81) = dARP(56)/dV(23) - JVRP(81) = V(67) -! JVRP(82) = dARP(56)/dV(67) - JVRP(82) = V(23) -! JVRP(83) = dARP(57)/dV(28) - JVRP(83) = V(67) -! JVRP(84) = dARP(57)/dV(67) - JVRP(84) = V(28) -! JVRP(85) = dARP(58)/dV(41) - JVRP(85) = V(67) -! JVRP(86) = dARP(58)/dV(67) - JVRP(86) = V(41) -! JVRP(87) = dARP(59)/dV(47) - JVRP(87) = V(67) -! JVRP(88) = dARP(59)/dV(67) - JVRP(88) = V(47) -! JVRP(89) = dARP(60)/dV(47) - JVRP(89) = V(60) -! JVRP(90) = dARP(60)/dV(60) - JVRP(90) = V(47) -! JVRP(91) = dARP(61)/dV(54) - JVRP(91) = V(67) -! JVRP(92) = dARP(61)/dV(67) - JVRP(92) = V(54) -! JVRP(93) = dARP(62)/dV(54) - JVRP(93) = V(60) -! JVRP(94) = dARP(62)/dV(60) - JVRP(94) = V(54) -! JVRP(95) = dARP(63)/dV(49) - JVRP(95) = V(67) -! JVRP(96) = dARP(63)/dV(67) - JVRP(96) = V(49) -! JVRP(97) = dARP(64)/dV(53) - JVRP(97) = V(67) -! JVRP(98) = dARP(64)/dV(67) - JVRP(98) = V(53) -! JVRP(99) = dARP(65)/dV(53) - JVRP(99) = V(60) -! JVRP(100) = dARP(65)/dV(60) - JVRP(100) = V(53) -! JVRP(101) = dARP(66)/dV(34) - JVRP(101) = V(64) -! JVRP(102) = dARP(66)/dV(64) - JVRP(102) = V(34) -! JVRP(103) = dARP(67)/dV(34) - JVRP(103) = V(67) -! JVRP(104) = dARP(67)/dV(67) - JVRP(104) = V(34) -! JVRP(105) = dARP(68)/dV(45) - JVRP(105) = V(64) -! JVRP(106) = dARP(68)/dV(64) - JVRP(106) = V(45) -! JVRP(107) = dARP(69)/dV(50) - JVRP(107) = V(64) -! JVRP(108) = dARP(69)/dV(64) - JVRP(108) = V(50) -! JVRP(109) = dARP(70)/dV(45) - JVRP(109) = V(67) -! JVRP(110) = dARP(70)/dV(67) - JVRP(110) = V(45) -! JVRP(111) = dARP(71)/dV(50) - JVRP(111) = V(67) -! JVRP(112) = dARP(71)/dV(67) - JVRP(112) = V(50) -! JVRP(113) = dARP(72)/dV(45) - JVRP(113) = V(60) -! JVRP(114) = dARP(72)/dV(60) - JVRP(114) = V(45) -! JVRP(115) = dARP(73)/dV(50) - JVRP(115) = V(60) -! JVRP(116) = dARP(73)/dV(60) - JVRP(116) = V(50) -! JVRP(117) = dARP(74)/dV(20) - JVRP(117) = V(67) -! JVRP(118) = dARP(74)/dV(67) - JVRP(118) = V(20) -! JVRP(119) = dARP(75)/dV(22) - JVRP(119) = V(67) -! JVRP(120) = dARP(75)/dV(67) - JVRP(120) = V(22) -! JVRP(121) = dARP(76)/dV(29) - JVRP(121) = V(63) -! JVRP(122) = dARP(76)/dV(63) - JVRP(122) = V(29) -! JVRP(123) = dARP(77)/dV(36) - JVRP(123) = V(67) -! JVRP(124) = dARP(77)/dV(67) - JVRP(124) = V(36) -! JVRP(125) = dARP(78)/dV(36) - JVRP(125) = V(60) -! JVRP(126) = dARP(78)/dV(60) - JVRP(126) = V(36) -! JVRP(127) = dARP(79)/dV(24) - JVRP(127) = V(59) -! JVRP(128) = dARP(79)/dV(59) - JVRP(128) = V(24) -! JVRP(129) = dARP(80)/dV(42) - JVRP(129) = V(67) -! JVRP(130) = dARP(80)/dV(67) - JVRP(130) = V(42) -! JVRP(131) = dARP(81)/dV(42) - JVRP(131) = V(64) -! JVRP(132) = dARP(81)/dV(64) - JVRP(132) = V(42) -! JVRP(133) = dARP(82)/dV(46) - JVRP(133) = V(67) -! JVRP(134) = dARP(82)/dV(67) - JVRP(134) = V(46) -! JVRP(135) = dARP(83)/dV(46) - JVRP(135) = V(64) -! JVRP(136) = dARP(83)/dV(64) - JVRP(136) = V(46) -! JVRP(137) = dARP(84)/dV(46) - JVRP(137) = V(60) -! JVRP(138) = dARP(84)/dV(60) - JVRP(138) = V(46) -! JVRP(139) = dARP(85)/dV(56) - JVRP(139) = V(67) -! JVRP(140) = dARP(85)/dV(67) - JVRP(140) = V(56) -! JVRP(141) = dARP(86)/dV(56) - JVRP(141) = V(64) -! JVRP(142) = dARP(86)/dV(64) - JVRP(142) = V(56) -! JVRP(143) = dARP(87)/dV(56) - JVRP(143) = V(60) -! JVRP(144) = dARP(87)/dV(60) - JVRP(144) = V(56) -! JVRP(145) = dARP(88)/dV(43) - JVRP(145) = V(63) -! JVRP(146) = dARP(88)/dV(63) - JVRP(146) = V(43) -! JVRP(147) = dARP(89)/dV(40) - JVRP(147) = V(63) -! JVRP(148) = dARP(89)/dV(63) - JVRP(148) = V(40) -! JVRP(149) = dARP(90)/dV(44) - JVRP(149) = V(63) -! JVRP(150) = dARP(90)/dV(63) - JVRP(150) = V(44) -! JVRP(151) = dARP(91)/dV(43) - JVRP(151) = V(65) -! JVRP(152) = dARP(91)/dV(65) - JVRP(152) = V(43) -! JVRP(153) = dARP(92)/dV(40) - JVRP(153) = V(65) -! JVRP(154) = dARP(92)/dV(65) - JVRP(154) = V(40) -! JVRP(155) = dARP(93)/dV(44) - JVRP(155) = V(65) -! JVRP(156) = dARP(93)/dV(65) - JVRP(156) = V(44) -! JVRP(157) = dARP(94)/dV(31) - JVRP(157) = V(67) -! JVRP(158) = dARP(94)/dV(67) - JVRP(158) = V(31) -! JVRP(159) = dARP(95)/dV(33) - JVRP(159) = V(67) -! JVRP(160) = dARP(95)/dV(67) - JVRP(160) = V(33) -! JVRP(161) = dARP(96)/dV(66) - JVRP(161) = V(67) -! JVRP(162) = dARP(96)/dV(67) - JVRP(162) = V(66) -! JVRP(163) = dARP(97)/dV(57) - JVRP(163) = V(67) -! JVRP(164) = dARP(97)/dV(67) - JVRP(164) = V(57) -! JVRP(165) = dARP(98)/dV(58) - JVRP(165) = V(59) -! JVRP(166) = dARP(98)/dV(59) - JVRP(166) = V(58) -! JVRP(167) = dARP(99)/dV(18) - JVRP(167) = 1 -! JVRP(168) = dARP(100)/dV(35) - JVRP(168) = V(67) -! JVRP(169) = dARP(100)/dV(67) - JVRP(169) = V(35) -! JVRP(170) = dARP(101)/dV(55) - JVRP(170) = V(63) -! JVRP(171) = dARP(101)/dV(63) - JVRP(171) = V(55) -! JVRP(172) = dARP(102)/dV(52) - JVRP(172) = V(63) -! JVRP(173) = dARP(102)/dV(63) - JVRP(173) = V(52) -! JVRP(174) = dARP(103)/dV(61) - JVRP(174) = V(63) -! JVRP(175) = dARP(103)/dV(63) - JVRP(175) = V(61) -! JVRP(176) = dARP(104)/dV(58) - JVRP(176) = V(63) -! JVRP(177) = dARP(104)/dV(63) - JVRP(177) = V(58) -! JVRP(178) = dARP(105)/dV(62) - JVRP(178) = V(63) -! JVRP(179) = dARP(105)/dV(63) - JVRP(179) = V(62) -! JVRP(180) = dARP(106)/dV(51) - JVRP(180) = V(63) -! JVRP(181) = dARP(106)/dV(63) - JVRP(181) = V(51) -! JVRP(182) = dARP(107)/dV(48) - JVRP(182) = V(63) -! JVRP(183) = dARP(107)/dV(63) - JVRP(183) = V(48) -! JVRP(184) = dARP(108)/dV(55) - JVRP(184) = V(60) -! JVRP(185) = dARP(108)/dV(60) - JVRP(185) = V(55) -! JVRP(186) = dARP(109)/dV(52) - JVRP(186) = V(60) -! JVRP(187) = dARP(109)/dV(60) - JVRP(187) = V(52) -! JVRP(188) = dARP(110)/dV(60) - JVRP(188) = V(61) -! JVRP(189) = dARP(110)/dV(61) - JVRP(189) = V(60) -! JVRP(190) = dARP(111)/dV(58) - JVRP(190) = V(60) -! JVRP(191) = dARP(111)/dV(60) - JVRP(191) = V(58) -! JVRP(192) = dARP(112)/dV(60) - JVRP(192) = V(62) -! JVRP(193) = dARP(112)/dV(62) - JVRP(193) = V(60) -! JVRP(194) = dARP(113)/dV(51) - JVRP(194) = V(60) -! JVRP(195) = dARP(113)/dV(60) - JVRP(195) = V(51) -! JVRP(196) = dARP(114)/dV(48) - JVRP(196) = V(60) -! JVRP(197) = dARP(114)/dV(60) - JVRP(197) = V(48) -! JVRP(198) = dARP(115)/dV(55) - JVRP(198) = V(65) -! JVRP(199) = dARP(115)/dV(65) - JVRP(199) = V(55) -! JVRP(200) = dARP(116)/dV(52) - JVRP(200) = V(65) -! JVRP(201) = dARP(116)/dV(65) - JVRP(201) = V(52) -! JVRP(202) = dARP(117)/dV(61) - JVRP(202) = V(65) -! JVRP(203) = dARP(117)/dV(65) - JVRP(203) = V(61) -! JVRP(204) = dARP(118)/dV(58) - JVRP(204) = V(65) -! JVRP(205) = dARP(118)/dV(65) - JVRP(205) = V(58) -! JVRP(206) = dARP(119)/dV(62) - JVRP(206) = V(65) -! JVRP(207) = dARP(119)/dV(65) - JVRP(207) = V(62) -! JVRP(208) = dARP(120)/dV(51) - JVRP(208) = V(65) -! JVRP(209) = dARP(120)/dV(65) - JVRP(209) = V(51) -! JVRP(210) = dARP(121)/dV(48) - JVRP(210) = V(65) -! JVRP(211) = dARP(121)/dV(65) - JVRP(211) = V(48) -! JVRP(212) = dARP(122)/dV(17) - JVRP(212) = V(67) -! JVRP(213) = dARP(122)/dV(67) - JVRP(213) = V(17) -! JVRP(214) = dARP(123)/dV(30) - JVRP(214) = V(41) -! JVRP(215) = dARP(123)/dV(41) - JVRP(215) = V(30) -! JVRP(216) = dARP(124)/dV(2) - JVRP(216) = 1 -! JVRP(217) = dARP(125)/dV(3) - JVRP(217) = 1 -! JVRP(218) = dARP(126)/dV(1) - JVRP(218) = 1 -! JVRP(219) = dARP(127)/dV(55) - JVRP(219) = 1 -! JVRP(220) = dARP(128)/dV(52) - JVRP(220) = 1 -! JVRP(221) = dARP(129)/dV(61) - JVRP(221) = 1 -! JVRP(222) = dARP(130)/dV(58) - JVRP(222) = 1 -! JVRP(223) = dARP(131)/dV(62) - JVRP(223) = 1 -! JVRP(224) = dARP(132)/dV(51) - JVRP(224) = 1 -! JVRP(225) = dARP(133)/dV(43) - JVRP(225) = 1 -! JVRP(226) = dARP(134)/dV(40) - JVRP(226) = 1 -! JVRP(227) = dARP(135)/dV(44) - JVRP(227) = 1 -! JVRP(228) = dARP(136)/dV(48) - JVRP(228) = 1 -! JVRP(229) = dARP(137)/dV(25) - JVRP(229) = V(67) -! JVRP(230) = dARP(137)/dV(67) - JVRP(230) = V(25) -! JVRP(231) = dARP(138)/dV(25) - JVRP(231) = V(60) -! JVRP(232) = dARP(138)/dV(60) - JVRP(232) = V(25) -! JVRP(233) = dARP(139)/dV(25) - JVRP(233) = V(64) -! JVRP(234) = dARP(139)/dV(64) - JVRP(234) = V(25) -! JVRP(235) = dARP(140)/dV(26) - JVRP(235) = V(67) -! JVRP(236) = dARP(140)/dV(67) - JVRP(236) = V(26) -! JVRP(237) = dARP(141)/dV(26) - JVRP(237) = V(60) -! JVRP(238) = dARP(141)/dV(60) - JVRP(238) = V(26) -! JVRP(239) = dARP(142)/dV(26) - JVRP(239) = V(64) -! JVRP(240) = dARP(142)/dV(64) - JVRP(240) = V(26) - -END SUBROUTINE JacReactantProd - -! End of JacReactantProd function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! Begin Derivative w.r.t. Rate Coefficients - -! ------------------------------------------------------------------------------ -! Subroutine for the derivative of Fun with respect to rate coefficients -! ----------------------------------------------------------------------------- - - SUBROUTINE dFun_dRcoeff( V, F, NCOEFF, JCOEFF, DFDR ) - - USE CBMZ_Parameters - USE CBMZ_StoichiomSP - IMPLICIT NONE - -! V - Concentrations of variable/radical/fixed species - REAL(kind=dp) V(NVAR), F(NFIX) -! NCOEFF - the number of rate coefficients with respect to which we differentiate - INTEGER NCOEFF -! JCOEFF - a vector of integers containing the indices of reactions (rate -! coefficients) with respect to which we differentiate - INTEGER JCOEFF(NCOEFF) -! DFDR - a matrix containg derivative values; specifically, -! column j contains d Fun(1:NVAR) / d RCT( JCOEFF(j) ) -! for each 1 <= j <= NCOEFF -! This matrix is stored in a column-wise linearized format - REAL(kind=dp) DFDR(NVAR*NCOEFF) - -! Local vector with reactant products - REAL(kind=dp) A_RPROD(NREACT) - REAL(kind=dp) aj - INTEGER i,j,k - -! Compute the reactant products of all reactions - CALL ReactantProd ( V, F, A_RPROD ) - -! Compute the derivatives by multiplying column JCOEFF(j) of the stoichiometric matrix with A_RPROD - DO j=1,NCOEFF -! Initialize the j-th column of derivative matrix to zero - DO i=1,NVAR - DFDR(i+NVAR*(j-1)) = 0.0_dp - END DO -! Column JCOEFF(j) in the stoichiometric matrix times the -! reactant product of the JCOEFF(j)-th reaction -! give the j-th column of the derivative matrix - aj = A_RPROD(JCOEFF(j)) - DO k=CCOL_STOICM(JCOEFF(j)),CCOL_STOICM(JCOEFF(j)+1)-1 - DFDR(IROW_STOICM(k)+NVAR*(j-1)) = STOICM(k)*aj - END DO - END DO - - END SUBROUTINE dFun_dRcoeff - -! End Derivative w.r.t. Rate Coefficients - - -! Begin Jacobian Derivative w.r.t. Rate Coefficients - -! ------------------------------------------------------------------------------ -! Subroutine for the derivative of Jac with respect to rate coefficients -! Times a user vector -! ----------------------------------------------------------------------------- - - SUBROUTINE dJac_dRcoeff( V, F, U, NCOEFF, JCOEFF, DJDR ) - - USE CBMZ_Parameters - USE CBMZ_StoichiomSP - IMPLICIT NONE - -! V - Concentrations of variable/fixed species - REAL(kind=dp) V(NVAR), F(NFIX) -! U - User-supplied Vector - REAL(kind=dp) U(NVAR) -! NCOEFF - the number of rate coefficients with respect to which we differentiate - INTEGER NCOEFF -! JCOEFF - a vector of integers containing the indices of reactions (rate -! coefficients) with respect to which we differentiate - INTEGER JCOEFF(NCOEFF) -! DFDR - a matrix containg derivative values; specifically, -! column j contains d Jac(1:NVAR) / d RCT( JCOEFF(j) ) * U -! for each 1 <= j <= NCOEFF -! This matrix is stored in a column-wise linearized format - REAL(kind=dp) DJDR(NVAR*NCOEFF) - -! Local vector for Jacobian of reactant products - REAL(kind=dp) JV_RPROD(NJVRP) - REAL(kind=dp) aj - INTEGER i,j,k - -! Compute the Jacobian of all reactant products - CALL JacReactantProd( V, F, JV_RPROD ) - -! Compute the derivatives by multiplying column JCOEFF(j) of the stoichiometric matrix with A_PROD - DO j=1,NCOEFF -! Initialize the j-th column of derivative matrix to zero - DO i=1,NVAR - DJDR(i+NVAR*(j-1)) = 0.0_dp - END DO -! Column JCOEFF(j) in the stoichiometric matrix times the -! ( Gradient of reactant product of the JCOEFF(j)-th reaction X user vector ) -! give the j-th column of the derivative matrix -! -! Row JCOEFF(j) of JV_RPROD times the user vector - aj = 0.0_dp - DO k=CROW_JVRP(JCOEFF(j)),CROW_JVRP(JCOEFF(j)+1)-1 - aj = aj + JV_RPROD(k)*U(ICOL_JVRP(k)) - END DO -! Column JCOEFF(j) of Stoichiom. matrix times aj - DO k=CCOL_STOICM(JCOEFF(j)),CCOL_STOICM(JCOEFF(j)+1)-1 - DJDR(IROW_STOICM(k)+NVAR*(j-1)) = STOICM(k)*aj - END DO - END DO - - END SUBROUTINE dJac_dRcoeff - -! End Jacobian Derivative w.r.t. Rate Coefficients - - -END MODULE CBMZ_Stoichiom - diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_Stoichiom.o b/boxmox/compiled_mechs/CBMZ/CBMZ_Stoichiom.o deleted file mode 100644 index c4cfa3a44816c5c211ece187b4d35c029afb9e6a..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/CBMZ_Stoichiom.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_StoichiomSP.f90 b/boxmox/compiled_mechs/CBMZ/CBMZ_StoichiomSP.f90 deleted file mode 100644 index 4bbfd4d1ca3992664b31c0da97a1fd9c961c2265..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CBMZ/CBMZ_StoichiomSP.f90 +++ /dev/null @@ -1,360 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Sparse Stoichiometric Data Structures File -! -! Generated by KPP-2.2.3 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 : CBMZ_StoichiomSP.f90 -! Time : Thu Oct 8 08:21:56 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CBMZ_11803_BOXMOX -! Equation file : CBMZ.kpp -! Output root filename : CBMZ -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CBMZ_StoichiomSP - - USE CBMZ_Precision - PUBLIC - SAVE - - -! Row-compressed sparse data for the Jacobian of reaction products JVRP - - INTEGER, PARAMETER, DIMENSION(143) :: CROW_JVRP = (/ & - 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, & - 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, & - 26, 28, 30, 32, 34, 36, 38, 40, 41, 43, 45, 47, & - 49, 51, 53, 55, 57, 58, 59, 61, 63, 65, 66, 68, & - 70, 72, 73, 75, 76, 77, 79, 81, 83, 85, 87, 89, & - 91, 93, 95, 97, 99,101,103,105,107,109,111,113, & - 115,117,119,121,123,125,127,129,131,133,135,137, & - 139,141,143,145,147,149,151,153,155,157,159,161, & - 163,165,167,168,170,172,174,176,178,180,182,184, & - 186,188,190,192,194,196,198,200,202,204,206,208, & - 210,212,214,216,217,218,219,220,221,222,223,224, & - 225,226,227,228,229,231,233,235,237,239,241 /) - - INTEGER, PARAMETER, DIMENSION(240) :: ICOL_JVRP = (/ & - 59, 60, 32, 38, 27, 21, 64, 64, 19, 47, 47, 31, & - 33, 54, 49, 53, 42, 66, 57, 56, 16, 16, 37, 37, & - 64, 37, 59, 37, 59, 37, 63, 63, 64, 59, 64, 64, & - 67, 64, 65, 67, 63, 67, 59, 67, 60, 67, 32, 67, & - 38, 67, 27, 67, 65, 67, 19, 67, 65, 65, 63, 65, & - 59, 65, 59, 65, 27, 60, 63, 59, 60, 59, 60, 60, & - 60, 65, 21, 21, 39, 67, 15, 67, 23, 67, 28, 67, & - 41, 67, 47, 67, 47, 60, 54, 67, 54, 60, 49, 67, & - 53, 67, 53, 60, 34, 64, 34, 67, 45, 64, 50, 64, & - 45, 67, 50, 67, 45, 60, 50, 60, 20, 67, 22, 67, & - 29, 63, 36, 67, 36, 60, 24, 59, 42, 67, 42, 64, & - 46, 67, 46, 64, 46, 60, 56, 67, 56, 64, 56, 60, & - 43, 63, 40, 63, 44, 63, 43, 65, 40, 65, 44, 65, & - 31, 67, 33, 67, 66, 67, 57, 67, 58, 59, 18, 35, & - 67, 55, 63, 52, 63, 61, 63, 58, 63, 62, 63, 51, & - 63, 48, 63, 55, 60, 52, 60, 60, 61, 58, 60, 60, & - 62, 51, 60, 48, 60, 55, 65, 52, 65, 61, 65, 58, & - 65, 62, 65, 51, 65, 48, 65, 17, 67, 30, 41, 2, & - 3, 1, 55, 52, 61, 58, 62, 51, 43, 40, 44, 48, & - 25, 67, 25, 60, 25, 64, 26, 67, 26, 60, 26, 64 /) - - INTEGER, PARAMETER, DIMENSION(240) :: IROW_JVRP = (/ & - 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, & - 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, & - 24, 25, 25, 26, 26, 27, 27, 28, 28, 29, 29, 30, & - 30, 31, 31, 32, 33, 33, 34, 34, 35, 35, 36, 36, & - 37, 37, 38, 38, 39, 39, 40, 40, 41, 42, 43, 43, & - 44, 44, 45, 45, 46, 47, 47, 48, 48, 49, 49, 50, & - 51, 51, 52, 53, 54, 54, 55, 55, 56, 56, 57, 57, & - 58, 58, 59, 59, 60, 60, 61, 61, 62, 62, 63, 63, & - 64, 64, 65, 65, 66, 66, 67, 67, 68, 68, 69, 69, & - 70, 70, 71, 71, 72, 72, 73, 73, 74, 74, 75, 75, & - 76, 76, 77, 77, 78, 78, 79, 79, 80, 80, 81, 81, & - 82, 82, 83, 83, 84, 84, 85, 85, 86, 86, 87, 87, & - 88, 88, 89, 89, 90, 90, 91, 91, 92, 92, 93, 93, & - 94, 94, 95, 95, 96, 96, 97, 97, 98, 98, 99,100, & - 100,101,101,102,102,103,103,104,104,105,105,106, & - 106,107,107,108,108,109,109,110,110,111,111,112, & - 112,113,113,114,114,115,115,116,116,117,117,118, & - 118,119,119,120,120,121,121,122,122,123,123,124, & - 125,126,127,128,129,130,131,132,133,134,135,136, & - 137,137,138,138,139,139,140,140,141,141,142,142 /) - - - -! Stoichiometric Matrix in Compressed Column Sparse Format - - - INTEGER, PARAMETER, DIMENSION(143) :: CCOL_STOICM = (/ & - 1, 4, 8, 11, 14, 17, 20, 22, 24, 26, 29, 31, & - 35, 39, 43, 46, 50, 54, 62, 70, 78, 80, 82, 84, & - 86, 89, 92, 95, 98,101,104,107,109,112,115,119, & - 122,125,128,130,133,135,137,141,144,147,150,153, & - 155,158,160,165,167,170,173,177,180,183,187,191, & - 196,199,203,206,210,215,222,228,247,266,274,282, & - 286,290,298,308,314,322,328,331,338,348,352,363, & - 366,371,384,395,403,411,420,423,427,430,434,438, & - 444,447,450,453,457,462,467,477,481,486,494,497, & - 502,507,516,520,525,533,536,539,542,545,549,552, & - 555,558,562,565,565,565,565,569,573,580,582,587, & - 593,595,599,602,604,608,610,614,618,620,624 /) - - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_0 = (/ & - 37, 59, 63, 37, 59, 60, 63, 32, 63, 67, 38, 59, & - 67, 27, 59, 65, 21, 59, 60, 37, 64, 16, 64, 19, & - 67, 39, 47, 65, 39, 47, 31, 47, 65, 67, 33, 54, & - 65, 67, 39, 54, 55, 65, 49, 55, 58, 39, 53, 58, & - 65, 39, 42, 58, 65, 30, 48, 49, 52, 54, 65, 66, & - 67, 30, 48, 49, 52, 54, 57, 59, 65, 39, 47, 49, & - 54, 55, 56, 58, 65, 16, 37, 16, 67, 37, 64, 37, & - 64, 37, 59, 63, 37, 59, 60, 37, 59, 63, 59, 63, & - 64, 59, 60, 64, 64, 65, 67, 64, 65, 67, 65, 67, & - 32, 63, 67, 38, 59, 67, 59, 60, 65, 67, 32, 59, & - 67, 38, 60, 67, 27, 59, 67, 65, 67, 19, 65, 67, & - 19, 65, 19, 65, 59, 63, 65, 67, 27, 59, 65, 32, & - 59, 65, 27, 59, 65, 59, 60, 63, 60, 63, 21, 59, & - 60, 59, 60, 38, 59, 60, 65, 67, 21, 38, 21, 59, & - 60, 39, 65, 67, 1, 15, 65, 67, 23, 55, 67, 28, & - 52, 67, 8, 41, 61, 67, 39, 47, 65, 67, 38, 39, & - 47, 60, 65, 54, 58, 67, 38, 54, 58, 60, 49, 62, & - 67, 48, 53, 58, 67, 38, 39, 53, 58, 60, 4, 34, & - 39, 47, 64, 65, 67, 34, 47, 48, 54, 65, 67, 4, & - 5, 9, 23, 28, 30, 35, 39, 45, 47, 52, 53, 54, & - 55, 58, 61, 64, 65, 67, 5, 9, 23, 28, 30, 35, & - 39, 49, 50, 52, 53, 54, 55, 58, 61, 62, 64, 65, & - 67, 9, 30, 45, 47, 48, 54, 65, 67, 9, 30, 48, & - 49, 50, 54, 65, 67, 9, 45, 51, 60, 9, 50, 51, & - 60, 6, 7, 20, 29, 36, 48, 65, 67, 6, 7, 22, & - 29, 36, 41, 48, 53, 65, 67, 29, 42, 57, 59, 63, & - 65, 6, 7, 24, 36, 42, 48, 65, 67, 6, 7, 24, & - 36, 38, 60, 24, 57, 59, 39, 42, 47, 48, 58, 65, & - 67, 39, 42, 47, 48, 53, 54, 58, 64, 65, 67, 43, & - 46, 48, 67, 5, 39, 46, 47, 48, 54, 56, 58, 64 /) - INTEGER, PARAMETER, DIMENSION(263) :: IROW_STOICM_1 = (/ & - 65, 67, 40, 46, 60, 44, 48, 56, 58, 67, 5, 39, & - 47, 48, 49, 53, 54, 55, 56, 58, 64, 65, 67, 38, & - 39, 41, 47, 48, 54, 56, 57, 58, 60, 65, 41, 43, & - 47, 56, 57, 59, 63, 65, 40, 41, 54, 56, 57, 59, & - 63, 65, 39, 44, 47, 49, 53, 54, 59, 63, 65, 43, & - 65, 66, 40, 41, 57, 65, 44, 65, 66, 31, 47, 55, & - 67, 33, 52, 54, 67, 30, 53, 54, 61, 66, 67, 51, & - 57, 67, 18, 58, 59, 18, 58, 59, 35, 47, 65, 67, & - 47, 55, 59, 63, 65, 52, 54, 59, 63, 65, 30, 48, & - 49, 52, 54, 57, 59, 61, 63, 65, 55, 58, 59, 63, & - 47, 58, 59, 62, 63, 30, 47, 51, 54, 57, 59, 63, & - 65, 48, 59, 63, 47, 55, 59, 60, 65, 52, 54, 59, & - 60, 65, 30, 48, 49, 52, 54, 59, 60, 61, 65, 55, & - 58, 59, 60, 47, 58, 59, 60, 62, 30, 47, 51, 54, & - 57, 59, 60, 65, 48, 59, 60, 31, 55, 65, 33, 52, & - 65, 61, 65, 66, 5, 58, 64, 65, 62, 65, 66, 51, & - 57, 65, 14, 48, 65, 17, 54, 65, 67, 14, 30, 41, & - 35, 47, 55, 65, 28, 52, 54, 65, 30, 48, 49, 52, & - 54, 61, 65, 55, 58, 47, 49, 53, 58, 62, 30, 47, & - 51, 54, 57, 59, 43, 56, 40, 41, 54, 57, 44, 49, & - 54, 14, 48, 10, 11, 25, 67, 25, 60, 10, 11, 25, & - 64, 12, 13, 26, 67, 26, 60, 12, 13, 26, 64 /) - INTEGER, PARAMETER, DIMENSION(623) :: IROW_STOICM = (/& - IROW_STOICM_0, IROW_STOICM_1 /) - - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_0 = (/ & - 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 4, 4, & - 4, 5, 5, 5, 6, 6, 6, 7, 7, 8, 8, 9, & - 9, 10, 10, 10, 11, 11, 12, 12, 12, 12, 13, 13, & - 13, 13, 14, 14, 14, 14, 15, 15, 15, 16, 16, 16, & - 16, 17, 17, 17, 17, 18, 18, 18, 18, 18, 18, 18, & - 18, 19, 19, 19, 19, 19, 19, 19, 19, 20, 20, 20, & - 20, 20, 20, 20, 20, 21, 21, 22, 22, 23, 23, 24, & - 24, 25, 25, 25, 26, 26, 26, 27, 27, 27, 28, 28, & - 28, 29, 29, 29, 30, 30, 30, 31, 31, 31, 32, 32, & - 33, 33, 33, 34, 34, 34, 35, 35, 35, 35, 36, 36, & - 36, 37, 37, 37, 38, 38, 38, 39, 39, 40, 40, 40, & - 41, 41, 42, 42, 43, 43, 43, 43, 44, 44, 44, 45, & - 45, 45, 46, 46, 46, 47, 47, 47, 48, 48, 49, 49, & - 49, 50, 50, 51, 51, 51, 51, 51, 52, 52, 53, 53, & - 53, 54, 54, 54, 55, 55, 55, 55, 56, 56, 56, 57, & - 57, 57, 58, 58, 58, 58, 59, 59, 59, 59, 60, 60, & - 60, 60, 60, 61, 61, 61, 62, 62, 62, 62, 63, 63, & - 63, 64, 64, 64, 64, 65, 65, 65, 65, 65, 66, 66, & - 66, 66, 66, 66, 66, 67, 67, 67, 67, 67, 67, 68, & - 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, & - 68, 68, 68, 68, 68, 68, 69, 69, 69, 69, 69, 69, & - 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, & - 69, 70, 70, 70, 70, 70, 70, 70, 70, 71, 71, 71, & - 71, 71, 71, 71, 71, 72, 72, 72, 72, 73, 73, 73, & - 73, 74, 74, 74, 74, 74, 74, 74, 74, 75, 75, 75, & - 75, 75, 75, 75, 75, 75, 75, 76, 76, 76, 76, 76, & - 76, 77, 77, 77, 77, 77, 77, 77, 77, 78, 78, 78, & - 78, 78, 78, 79, 79, 79, 80, 80, 80, 80, 80, 80, & - 80, 81, 81, 81, 81, 81, 81, 81, 81, 81, 81, 82, & - 82, 82, 82, 83, 83, 83, 83, 83, 83, 83, 83, 83 /) - INTEGER, PARAMETER, DIMENSION(263) :: ICOL_STOICM_1 = (/ & - 83, 83, 84, 84, 84, 85, 85, 85, 85, 85, 86, 86, & - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, 87, & - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, 88, 88, & - 88, 88, 88, 88, 88, 88, 89, 89, 89, 89, 89, 89, & - 89, 89, 90, 90, 90, 90, 90, 90, 90, 90, 90, 91, & - 91, 91, 92, 92, 92, 92, 93, 93, 93, 94, 94, 94, & - 94, 95, 95, 95, 95, 96, 96, 96, 96, 96, 96, 97, & - 97, 97, 98, 98, 98, 99, 99, 99,100,100,100,100, & - 101,101,101,101,101,102,102,102,102,102,103,103, & - 103,103,103,103,103,103,103,103,104,104,104,104, & - 105,105,105,105,105,106,106,106,106,106,106,106, & - 106,107,107,107,108,108,108,108,108,109,109,109, & - 109,109,110,110,110,110,110,110,110,110,110,111, & - 111,111,111,112,112,112,112,112,113,113,113,113, & - 113,113,113,113,114,114,114,115,115,115,116,116, & - 116,117,117,117,118,118,118,118,119,119,119,120, & - 120,120,121,121,121,122,122,122,122,123,123,123, & - 127,127,127,127,128,128,128,128,129,129,129,129, & - 129,129,129,130,130,131,131,131,131,131,132,132, & - 132,132,132,132,133,133,134,134,134,134,135,135, & - 135,136,136,137,137,137,137,138,138,139,139,139, & - 139,140,140,140,140,141,141,142,142,142,142 /) - INTEGER, PARAMETER, DIMENSION(623) :: ICOL_STOICM = (/& - ICOL_STOICM_0, ICOL_STOICM_1 /) - - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_0 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 8.900000e-01_dp, 8.900000e-01_dp, & - -1.000000e+00_dp, 1.100000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.980000e+00_dp, 4.000000e-01_dp, & - 7.400000e-01_dp, 1.000000e-01_dp, 3.000000e-01_dp, 9.000000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.980000e+00_dp, 4.100000e-01_dp, 7.400000e-01_dp, 1.000000e-01_dp, & - 3.000000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 9.000000e-01_dp, 3.300000e-01_dp, & - 2.000000e-01_dp, 3.000000e-02_dp, 7.000000e-02_dp, 7.000000e-01_dp, -1.000000e+00_dp, & - 9.700000e-01_dp, 3.300000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -2.000000e+00_dp, 1.000000e+00_dp, & - -2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_1 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -2.000000e+00_dp, 3.000000e-01_dp, & - 7.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 7.000000e-01_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.200000e-02_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 5.200000e-01_dp, & - -1.000000e+00_dp, 2.400000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.200000e-01_dp, & - 1.200000e-01_dp, -1.000000e+00_dp, 1.560000e+00_dp, 1.000000e+00_dp, 2.200000e-01_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 2.200000e-01_dp, 9.000000e-02_dp, 8.000000e-03_dp, & - 6.000000e-02_dp, 1.000000e-02_dp, 1.060000e+00_dp, 3.000000e-02_dp, 3.100000e-01_dp, & - -1.000000e+00_dp, 5.700000e-01_dp, 6.000000e-02_dp, 4.000000e-02_dp, 4.700000e-01_dp, & - 7.000000e-02_dp, 1.300000e-01_dp, 3.000000e-02_dp, -1.000000e+00_dp, 2.600000e-01_dp, & - 3.300000e-01_dp, 1.600000e-01_dp, 8.000000e-03_dp, 8.000000e-02_dp, 1.000000e-02_dp, & - 2.260000e+00_dp, 4.000000e-02_dp, 3.000000e-01_dp, 7.000000e-02_dp, -1.000000e+00_dp, & - 5.000000e-02_dp, 7.000000e-02_dp, 1.030000e+00_dp, 1.000000e-01_dp, 1.900000e-01_dp, & - 9.000000e-02_dp, 1.100000e-01_dp, -1.000000e+00_dp, 2.200000e-01_dp, 6.000000e-01_dp, & - 8.000000e-03_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 8.000000e-03_dp, 2.230000e+00_dp, & - 1.000000e+00_dp, 2.300000e-01_dp, -1.000000e+00_dp, 1.770000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 8.000000e-03_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 8.000000e-03_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 3.900000e-02_dp, & - 1.080000e-01_dp, -1.000000e+00_dp, 8.000000e-01_dp, 1.200000e-01_dp, 8.000000e-02_dp, & - 2.000000e-01_dp, -1.000000e+00_dp, 3.900000e-02_dp, 1.080000e-01_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_2 = (/ & - 4.500000e-01_dp, 5.000000e-02_dp, 1.100000e+00_dp, 5.000000e-01_dp, 8.000000e-01_dp, & - 5.500000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 9.500000e-01_dp, 5.000000e-02_dp, & - 9.500000e-01_dp, -1.000000e+00_dp, 9.500000e-01_dp, 3.900000e-02_dp, 1.080000e-01_dp, & - 4.000000e-01_dp, -1.000000e+00_dp, 3.000000e-01_dp, 6.000000e-01_dp, 6.000000e-01_dp, & - -1.000000e+00_dp, 3.900000e-02_dp, 1.080000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 6.900000e-01_dp, -1.000000e+00_dp, 7.000000e-01_dp, & - 3.000000e-02_dp, 2.000000e-01_dp, 3.000000e-02_dp, 6.200000e-01_dp, -1.000000e+00_dp, & - 7.600000e-01_dp, 8.000000e-02_dp, 1.000000e+00_dp, -1.000000e+00_dp, 8.000000e-02_dp, & - -1.000000e+00_dp, 3.900000e-01_dp, 7.000000e-02_dp, -1.000000e+00_dp, 6.000000e-01_dp, & - 2.000000e-01_dp, 1.500000e-01_dp, 6.500000e-01_dp, 2.000000e-01_dp, -1.000000e+00_dp, & - 7.000000e-02_dp, 2.700000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, 2.000000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, -1.000000e+00_dp, & - 4.600000e-01_dp, 1.600000e-01_dp, 1.500000e-01_dp, 7.000000e-02_dp, 9.000000e-02_dp, & - 8.500000e-01_dp, 2.000000e-02_dp, 5.000000e-02_dp, -1.000000e+00_dp, 1.100000e-01_dp, & - -1.000000e+00_dp, 1.000000e-01_dp, 2.700000e-01_dp, 7.000000e-02_dp, 6.400000e-01_dp, & - 1.860000e+00_dp, 2.800000e-01_dp, 9.300000e-01_dp, 2.800000e-01_dp, -1.000000e+00_dp, & - 9.300000e-01_dp, 7.000000e-02_dp, -1.000000e+00_dp, 9.300000e-01_dp, 1.800000e-01_dp, & - -1.000000e+00_dp, 6.300000e-01_dp, 9.100000e-01_dp, 9.000000e-02_dp, 9.100000e-01_dp, & - -1.000000e+00_dp, 9.100000e-01_dp, -1.000000e+00_dp, 1.600000e+00_dp, 8.000000e-01_dp, & - 2.000000e-01_dp, 8.000000e-01_dp, 1.200000e+00_dp, -1.000000e+00_dp, 8.000000e-01_dp, & - 5.900000e-01_dp, -1.000000e+00_dp, 2.500000e-01_dp, 6.300000e-01_dp, 3.400000e-01_dp, & - 5.500000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 3.000000e-01_dp, 7.000000e-01_dp, -7.000000e-01_dp, -1.000000e+00_dp, 7.000000e-01_dp, & - 3.000000e-01_dp, -7.000000e-01_dp, 4.200000e-01_dp, 1.900000e-01_dp, 4.000000e-02_dp, & - 7.700000e-01_dp, -1.000000e+00_dp, -7.700000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_3 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.680000e+00_dp, 3.400000e-01_dp, 6.200000e-01_dp, 8.000000e-02_dp, & - 2.500000e-01_dp, 1.600000e-01_dp, 8.400000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 7.600000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 5.000000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, 5.000000e-01_dp, & - 1.500000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.980000e+00_dp, 4.000000e-01_dp, 7.400000e-01_dp, 1.000000e-01_dp, & - 3.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 9.000000e-01_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 5.000000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, 5.000000e-01_dp, 1.500000e+00_dp, & - -1.000000e+00_dp, 5.000000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 4.000000e-01_dp, & - -1.000000e+00_dp, 4.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 3.400000e-01_dp, & - 6.600000e-01_dp, -1.000000e+00_dp, 3.200000e-01_dp, 2.000000e-01_dp, -1.000000e+00_dp, & - 8.000000e-01_dp, 6.000000e-01_dp, 1.250000e+00_dp, 2.400000e-01_dp, 5.700000e-01_dp, & - 6.000000e-02_dp, 2.100000e-01_dp, -1.000000e+00_dp, 5.400000e-01_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 7.000000e-01_dp, 1.500000e-01_dp, 1.500000e-01_dp, 7.000000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 5.000000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, & - 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(23) :: STOICM_4 = (/ & - 5.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 6.400000e-03_dp, 5.500000e-02_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 2.200000e-02_dp, & - 1.900000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 3.700000e-02_dp, 5.600000e-02_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.300000e-01_dp, & - 1.900000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(623) :: STOICM = (/& - STOICM_0, STOICM_1, STOICM_2, STOICM_3, STOICM_4 /) - - -END MODULE CBMZ_StoichiomSP - diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_StoichiomSP.o b/boxmox/compiled_mechs/CBMZ/CBMZ_StoichiomSP.o deleted file mode 100644 index afebd0f161ae591940213bcdf53adf122f065e3b..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/CBMZ_StoichiomSP.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_Util.f90 b/boxmox/compiled_mechs/CBMZ/CBMZ_Util.f90 deleted file mode 100644 index f07efa4fe92bf47aefa7f39ff2c107abefcd8dba..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CBMZ/CBMZ_Util.f90 +++ /dev/null @@ -1,1536 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Auxiliary Routines File -! -! Generated by KPP-2.2.3 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 : CBMZ_Util.f90 -! Time : Thu Oct 8 08:21:56 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_CBMZ_11803_BOXMOX -! Equation file : CBMZ.kpp -! Output root filename : CBMZ -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE CBMZ_Util - - USE CBMZ_Parameters - USE CBMZ_Global - USE CBMZ_Monitor - IMPLICIT NONE - -CONTAINS - - - -! User INLINED Utility Functions - - -! **************************************************************************** -! **************************************************************************** -! BOXMOX utilities -! **************************************************************************** -! **************************************************************************** - - -! **************************************************************************** -! toUPPER - convert ASCII characters to all upper case -! from http://stackoverflow.com/questions/10759375/ -! how-can-i-write-a-to-upper-or-to-lower-function-in-f90 -! **************************************************************************** - FUNCTION toUPPER (str) RESULT (string) - - CHARACTER(*), INTENT(In) :: str - CHARACTER(LEN(str)) :: string - - INTEGER :: ic, i - - CHARACTER(26), PARAMETER :: cap = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' - CHARACTER(26), PARAMETER :: low = 'abcdefghijklmnopqrstuvwxyz' - - string = str - DO i = 1, LEN_TRIM(str) - ic = INDEX(low, str(i:i)) - IF (ic > 0) string(i:i) = cap(ic:ic) - END DO - - END FUNCTION toUPPER -! **************************************************************************** - - -! **************************************************************************** -! hash - a string hashing function -! from flibs, http://flibs.sourceforge.net -! **************************************************************************** - INTEGER FUNCTION hash( key ) - - CHARACTER(len=*), INTENT(in) :: key - - INTEGER :: i - - INTEGER, PARAMETER :: hash_size = 49931 - INTEGER, PARAMETER :: multiplier = 312 - - hash = 0 - - DO i = 1,LEN(key) - hash = MODULO( multiplier * hash + ICHAR(key(i:i)), hash_size) - ENDDO - - hash = 1 + MODULO( hash-1, hash_size ) - END FUNCTION hash -! **************************************************************************** - - -! **************************************************************************** -! strEqual - comparison function matching two strings -! **************************************************************************** - LOGICAL FUNCTION strEqual(a, b) - - CHARACTER(LEN=*), INTENT(IN) :: a, b - - LOGICAL, PARAMETER :: ignoreCase = .TRUE. - - CHARACTER(LEN=100) :: nice_a, nice_b - INTEGER :: max_len - - nice_a = ADJUSTL(a) - nice_b = ADJUSTL(b) - - IF (ignoreCase) THEN - nice_a = toUPPER(nice_a) - nice_b = toUPPER(nice_b) - END IF - - max_len = MAX( LEN_TRIM(nice_a), LEN_TRIM(nice_b) ) - - strEqual = nice_a(1:max_len) .EQ. nice_b(1:max_len) - - END FUNCTION strEqual -! **************************************************************************** - - -! **************************************************************************** -! writespecstring - Utility function that plots a (potentially) -! large number of species -! **************************************************************************** - SUBROUTINE writespecstring(nspecies, txt, species, offset) - - INTEGER :: nspecies, offset - CHARACTER(LEN=*) :: txt - CHARACTER(LEN=15) :: species(nspecies), fmt - CHARACTER(LEN=2000) :: specstring - - INTEGER, PARAMETER :: cperline=60 - - INTEGER :: i, l - - fmt = "" - WRITE(fmt, "(A1,I3,A4)") "(", offset, "X,A)" - - i = 1; l = 1 - specstring = "" - - DO WHILE (i <= nspecies) - - specstring = TRIM(ADJUSTL(specstring))//TRIM(ADJUSTL(species(i))) - IF (i < nspecies) specstring = TRIM(ADJUSTL(specstring))//", " - - i = i + 1 - - IF (LEN_TRIM(specstring) > cperline) THEN - IF (l == 1) specstring = txt//specstring - l = l + 1 - WRITE(*,fmt) TRIM(specstring) - specstring = "" - ENDIF - ENDDO - - IF (LEN_TRIM(specstring) > 0) THEN - IF (l == 1) specstring = txt//specstring - WRITE(*,fmt) TRIM(specstring) - ENDIF - - END SUBROUTINE writespecstring -! **************************************************************************** - - -! **************************************************************************** -! calcCFACTOR - Calculates CFACTOR variable for unit conversion between -! input/output files and values used in calculations / rates -! **************************************************************************** - SUBROUTINE calcCFACTOR ( ) - - ! from ppmv to mlc/cm3: - ! 1e-6 ppmv -> vmr - ! 1e-3 kg/m3 -> g/cm3 - ! 1/28.9645 g/cm3 -> mole/cm3 - ! 6.022e23 -> molec/cm3 - ! then multiply with air density rho - ! 1.0E-6 * 1E-03 * (1.0/28.97) * 6.022e23 * rho - ! CFACTOR = 2.598378e+13; (with rho == 1.25) - - CFACTOR = 1.0E-6 * 1E-03 * (1.0/28.9645) * 6.022e23 * & - pres / (287.058 * temp) - - END SUBROUTINE calcCFACTOR -! **************************************************************************** - - -! **************************************************************************** -! readConfig - Sets variables using values read in from "BOXMOX.nml" -! **************************************************************************** - SUBROUTINE readConfig ( ) - - INTEGER, PARAMETER :: config_pid = 22 - CHARACTER(LEN=*), PARAMETER :: config_name = "BOXMOX.nml" - - NAMELIST /BOXMOX/ TSTART, TEND, DT, lverbose, iturb, lfix_nox - - LOGICAL :: lnml_exists - - ! *** default values section *** - - TSTART = 0.0D0 ! model start time, seconds since 0 LT - TEND = TSTART + 3600.0D0 ! model end time, seconds since 0 LT - DT = 10.D0 ! model time step, seconds - - lverbose = .FALSE. - iturb = TURB_OPT_NONE - - lfix_nox = .FALSE. - - ! *** namelist read-in section *** - - INQUIRE(FILE=config_name, EXIST=lnml_exists) - - IF (lnml_exists) THEN - - WRITE(*,*) "BOXMOX configuration file ", TRIM(config_name)," found." - - OPEN (config_pid, FILE=config_name) - READ (config_pid, nml=BOXMOX) - CLOSE(config_pid) - - ELSE - WRITE(*,*) "No BOXMOX configuration file (", & - TRIM(config_name),") exists." - ENDIF - - ! *** configuration printout *** - - WRITE(*,*) " " - WRITE(*,"(A20,2X,F12.3)") "TSTART", TSTART - WRITE(*,"(A20,2X,F12.3)") "TEND", TEND - WRITE(*,"(A20,2X,F12.3)") "DT", DT - WRITE(*,*) "" - WRITE(*,"(A20,2X,L10)") "lverbose", lverbose - WRITE(*,*) "" - WRITE(*,"(A20,11X,I1)") "iturb", iturb - WRITE(*,*) "" - WRITE(*,"(A20,2X,L10)") "lfix_nox", lfix_nox - - WRITE(*,*) " " - - END SUBROUTINE readConfig -! **************************************************************************** - - -! **************************************************************************** -! checkConfig - check configuration variables -! **************************************************************************** - SUBROUTINE checkConfig ( ) - - INTEGER :: status - - status = 0 - - IF (TSTART < 0.0) THEN - WRITE(*,*) "start time TSTART cannot be < 0.0" - status = 1 - ENDIF - IF (TEND < 0.0) THEN - WRITE(*,*) "end time TEND cannot be < 0.0" - status = 2 - ENDIF - IF (TSTART >= TEND) THEN - WRITE(*,*) "start time TSTART has to be < end time TEND" - status = 3 - ENDIF - IF (DT <= 0.0) THEN - WRITE(*,*) "time step DT has to be > 0.0" - status = 4 - ENDIF - - IF (status .NE. 0) THEN - IF (.NOT. llibrary) THEN - STOP - ENDIF - ENDIF - - END SUBROUTINE checkConfig -! **************************************************************************** - - -! **************************************************************************** -! writeVersion - Write "VERSION" file to run directory -! **************************************************************************** - SUBROUTINE writeVersion ( ) - - INTEGER, PARAMETER :: version_pid = 23 - CHARACTER(LEN=*), PARAMETER :: version_name = "VERSION" - - ! *** write BOXMOX version to output directory *** - - OPEN(version_pid, file=version_name) - WRITE(version_pid, "(A)") "__BOXMOX_VERSION__" - CLOSE(version_pid) - - END SUBROUTINE writeVersion -! **************************************************************************** - - -! **************************************************************************** -! readVals - main input routine for the BOXMOX extensions. -! reads values from input files with different time -! formats, and interpolates to get the values -! appropriate for the current time step. -! **************************************************************************** - SUBROUTINE readVals(fname, nvar, species, values, stat, & - nanc, ancspecies, ancvalues, lquiet) - - CHARACTER(LEN=*), INTENT(IN) :: fname - INTEGER, INTENT(OUT) :: nvar - CHARACTER(LEN=15), INTENT(OUT) :: species(max_species_boxmox) - REAL(KIND=dp), INTENT(OUT) :: values(max_species_boxmox) - INTEGER, INTENT(OUT) :: stat - INTEGER, INTENT(OUT), OPTIONAL :: nanc - CHARACTER(LEN=15), INTENT(OUT),OPTIONAL :: ancspecies(max_species_boxmox) - REAL(KIND=dp), INTENT(OUT), OPTIONAL :: ancvalues(max_species_boxmox) - LOGICAL, INTENT(IN), OPTIONAL :: lquiet - - INTEGER, PARAMETER :: input_pid = 21 - REAL(KIND=dp) :: time_cur, weight_t1, & - values_t0(max_species_boxmox), & - values_t1(max_species_boxmox), & - values_cur(max_species_boxmox) - CHARACTER(LEN=15) :: names(max_species_boxmox) - INTEGER :: iostat, time_format, ntoread, ntime, nanct, pid, i - LOGICAL :: lfile_exists, ltalkative - - names(:) = "" - values_t0(:) = 0.0 - values_t1(:) = 0.0 - - stat = 0 ! everything is allright - - ltalkative = ( TIME .EQ. TSTART ) .OR. lverbose - IF (PRESENT(lquiet)) THEN - IF (lquiet) THEN - ltalkative = .FALSE. - ENDIF - ENDIF - - ! check whether file exists - INQUIRE(FILE=fname, EXIST=lfile_exists) - IF (.NOT. lfile_exists) THEN - stat = 1 - RETURN - ELSE - IF (ltalkative) THEN - WRITE(*,*) "" - WRITE(*,*) " * ", fname - ENDIF - END IF - - OPEN(input_pid, file=fname) - - ! line 1: number of variables - READ(input_pid, *) nvar - - ! if no variable should be read - bail - IF (nvar == 0) THEN - IF (ltalkative) WRITE(*,*) fname, " declared 0 variables to be read" - stat = 2 - CLOSE(input_pid) - RETURN - END IF - - ! line 2: number of ancillary variables - READ(input_pid, *) nanct - - IF (nanct .LT. 0) THEN - WRITE(*,"(A)") "Number of ancillary variables must be >= 0" - CLOSE(input_pid) - STOP - ENDIF - - IF (nanct .GT. 1) THEN - WRITE(*,"(A)") "Number of ancillary variables must be < 2" - CLOSE(input_pid) - STOP - ENDIF - - ! line 3: time format - READ(input_pid, *) time_format - - IF (time_format .LT. 0 .OR. time_format .GT. 2) THEN - WRITE(*,"(3A)") "Time format has to be 0 (constant), ", & - "1 (s since TSTART) or ", & - "2 (hour of day)" - CLOSE(input_pid) - STOP - END IF - - ntime = 0 - IF (time_format .GT. 0) ntime = 1 - - ntoread = ntime + nanct + nvar - - ! if more variables than max_species_boxmox should be read - bail - IF (ntoread > max_species_boxmox) THEN - IF (ltalkative) THEN - WRITE(*,*) fname, " declared more variables to be read" - WRITE(*,*) "than allocated. Increase max_species_boxmox," - WRITE(*,*) "recompile, and run again." - ENDIF - stat = 3 - CLOSE(input_pid) - RETURN - END IF - - ! line 4: header line - READ(input_pid, *) names(1:ntoread) - - ! line 4ff: values - READ(input_pid, *) values_t0(1:ntoread) - - ! if its not constant in time values - weight_t1 = 0 - IF (.NOT. time_format .EQ. 0) THEN - READ(input_pid, *, IOSTAT=iostat) values_t1(1:ntoread) - - ! TIME is the KPP provided current model time - time_cur = TIME - IF (time_format .EQ. 2) THEN - time_cur = TIME/3600.0_dp - (INT(TIME/3600.0_dp)/24)*24 - END IF - - ! ASSUMPTION: time is the first value read - DO WHILE(values_t1(1) .LT. time_cur .AND. iostat .EQ. 0) - values_t0 = values_t1 - - READ(input_pid, *, IOSTAT=iostat) values_t1(1:ntoread) - END DO - - ! take the last value in the file in case its time values don't cover - ! the full simulation period - IF (iostat .NE. 0) THEN - weight_t1 = 1.0 - ELSE - weight_t1 = (time_cur - values_t0(1)) / (values_t1(1) - values_t0(1)) - ENDIF - - ENDIF - - CLOSE(input_pid) - - values_cur = weight_t1 * values_t1 + & - (1.0 - weight_t1) * values_t0 - - species(1:nvar) = names(ntime+nanct+1:ntime+nanct+nvar) - values(1:nvar) = values_cur(ntime+nanct+1:ntime+nanct+nvar) - - IF (PRESENT(nanc)) nanc = nanct - - IF (nanct .GT. 0) THEN - IF (PRESENT(ancvalues)) THEN - ancvalues(1:nanct) = values_cur(ntime+1:ntime+nanct) - ENDIF - IF (PRESENT(ancspecies)) THEN - ancspecies(1:nanct) = names(ntime+1:ntime+nanct) - ENDIF - ENDIF - - END SUBROUTINE readVals -! **************************************************************************** - - -! **************************************************************************** -! readInput - Reads values from .csv, applies function -! -! "t" is for "target" (i.e. the vector to apply "action" over) -! "r" is for "read" from file -! "u" is for "useable" (i.e., exists in the "target" vector) -! "m" is for "missing" (i.e., asked for, but not found in file) -! -! **************************************************************************** - SUBROUTINE readInput (filename, nt, tnames, tvalues, & - action, lzero, quiet) - - CHARACTER(LEN=*), INTENT(IN) :: filename - INTEGER, INTENT(IN) :: nt - REAL(KIND=dp) :: tvalues(nt) - CHARACTER(LEN=15), INTENT(IN) :: tnames(nt) - REAL(KIND=dp), OPTIONAL :: action ! function to be called - LOGICAL, INTENT(IN), OPTIONAL :: lzero ! call action with 0.0 - ! for 'missing' species - LOGICAL, INTENT(IN), OPTIONAL :: quiet - - INTEGER :: nr, nu, nm, i, k, m, & - iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - unames(max_species_boxmox), & - mnames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox) - LOGICAL :: is_used, first, & - talkative - - CALL readVals(filename, nr, rnames, rvalues, iostat) - - IF (iostat .NE. 0) RETURN - - talkative = .TRUE. - IF (PRESENT(quiet)) talkative = .NOT. quiet - - unames(:) = "none" - nu = 0 - - first = lverbose - - DO i = 1, nr - DO k = 1, nt - IF ( strEqual(rnames(i), tnames(k)) ) THEN - - IF (PRESENT(action)) THEN - tvalues(k) = action( tvalues(k), k, rvalues(i), first) - ELSE - tvalues(k) = rvalues(i) - IF ( (lverbose .OR. first) .AND. talkative ) THEN - WRITE(*,"(6X,A15,1X,E12.6)") tnames(k), tvalues(k)/CFACTOR - ENDIF - ENDIF - - first = .FALSE. - - nu = nu + 1 - unames(nu) = TRIM(ADJUSTL(rnames(i))) - ENDIF - ENDDO - ENDDO - - IF (PRESENT(lzero)) THEN - IF (lzero) THEN - DO k = 1, nt - is_used = .FALSE. - DO i = 1, nu - IF ( strEqual(unames(i), tnames(k)) ) is_used = .TRUE. - ENDDO - IF (.NOT. is_used) THEN - tvalues(k) = action( tvalues(k), k, 0.0, first) - first = .FALSE. - ENDIF - ENDDO - ENDIF - ENDIF - - nm = nr - nu - mnames(:) = "" - - IF (nm > 0) THEN - m = 1 - DO i = 1, nr - is_used = .FALSE. - DO k = 1, nu - IF ( strEqual(rnames(i), unames(k)) ) is_used = .TRUE. - ENDDO - - IF (.NOT. is_used) THEN - mnames(m) = TRIM(ADJUSTL(rnames(i))) - m = m + 1 - ENDIF - ENDDO - ENDIF - - IF ( ((TIME .EQ. TSTART) .OR. lverbose) .AND. talkative) THEN - IF (nu > 0) CALL writespecstring(nu, "useable:", unames, 6) - IF (nm > 0) CALL writespecstring(nm, "unknown: ", mnames, 6) - ENDIF - - END SUBROUTINE readInput -! **************************************************************************** - - -! **************************************************************************** -! InitialCondition - Sets initial values -! **************************************************************************** - REAL(KIND=dp) FUNCTION InitialCondition(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - InitialCondition = y * CFACTOR - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,A12,1X)") "species ", "IC" - WRITE(*,"(6X,A15,1X,E12.6,1X)") SPC_NAMES(k), InitialCondition/CFACTOR - ENDIF - - END FUNCTION InitialCondition -! **************************************************************************** - - -! **************************************************************************** -! Deposition - Applies deposition velocities -! **************************************************************************** - REAL(KIND=dp) FUNCTION Deposition(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - REAL(KIND=dp) :: dCdt - - Deposition = x - - ! we don't remove fixed variables - IF (k .LT. NFIXST) THEN - ! we assume deposition velocities in comparable units - ! (i.e. cm s-1) - ! dxdydz(3) == DZ - dCdt = - y * x / (dxdydz(3) * 100.0) - Deposition = MAX( 0.0, x + DT * dCdt ) - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "v_dep", "after" - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, y, & - Deposition/CFACTOR - ENDIF - - ENDIF - - END FUNCTION Deposition -! **************************************************************************** - - -! **************************************************************************** -! Emission - Adds emissions -! **************************************************************************** - REAL(KIND=dp) FUNCTION Emission(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - REAL(KIND=dp) :: cur - - ! we assume emissions to be a flux in units comparable to the - ! concentration values used in KPP - ! e.g. molecules / m2 / s vs molecules / m3, or - ! moles / cm2 / s vs moles / cm3, ... - ! the time dimensions unit has to be seconds! - - ! dxdydz(3) is PBL height in m - cur = y * DT / (dxdydz(3) * 100.0) - - Emission = x + cur - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "tendency", "after" - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, & - cur/DT/CFACTOR, Emission/CFACTOR - ENDIF - - END FUNCTION Emission -! **************************************************************************** - - -! **************************************************************************** -! Mix - calculate concentration after turbulent mixing -! **************************************************************************** - REAL(KIND=dp) FUNCTION Mix(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - REAL(KIND=dp) :: frac_bg - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - Mix = x - - frac_bg = Kturb * DT - - IF (lfirst .AND. lverbose) THEN - WRITE(*,"(6X,A,1X,F6.3)") "fractional amount of background air", & - frac_bg - WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "background", "after" - ENDIF - - ! we don't mix fixed variables - IF (k .LT. NFIXST) THEN - - ! seems like we found something - Mix = frac_bg * (y * CFACTOR) + & - (1.0 - frac_bg) * x - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, & - y, Mix/CFACTOR - ENDIF - - ENDIF - - END FUNCTION Mix -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturb - calculate Kturb for mixing -! **************************************************************************** - SUBROUTINE UpdateKturb() - - Kturb = 0.0 - SELECT CASE (iturb) - CASE (TURB_OPT_NONE) - Kturb = 0.0 - CASE (TURB_OPT_SPECIFIED) - CALL UpdateKturbSpecified() - CASE (TURB_OPT_VOLUME) - CALL UpdateKturbVolume() - CASE (TURB_OPT_TRACER) - CALL UpdateKturbTracer() - CASE DEFAULT - WRITE(*,"(A,1X,I1)") "Unknown mixing option", iturb - END SELECT - - END SUBROUTINE UpdateKturb -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbSpecified - calc. Kturb for mixing using specified Kturb -! **************************************************************************** - SUBROUTINE UpdateKturbSpecified() - - INTEGER :: nr, na, i, iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - anames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox), & - avalues(max_species_boxmox) - LOGICAL :: lfound - - Kturb = 0.0 - - CALL readVals('Background.csv', & - nr, rnames, rvalues, iostat, & - na, anames, avalues, lquiet=.TRUE.) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - lfound = .FALSE. - DO i = 1, na - IF ( strEqual(anames(i), 'Kturb') ) THEN - Kturb = avalues(i) - lfound = .TRUE. - ENDIF - ENDDO - - IF (.NOT. lfound) THEN - WRITE(*,*) "Kturb variable not found in Background.csv" - STOP - ENDIF - - END SUBROUTINE UpdateKturbSpecified -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbVolume - calc. Kturb for mixing using box volume changes -! **************************************************************************** - SUBROUTINE UpdateKturbVolume() - - REAL(KIND=dp) :: vol, vol_old - - vol = dxdydz(1) * dxdydz(2) * dxdydz(3) - vol_old = dxdydz_old(1) * dxdydz_old(2) * dxdydz_old(3) - - ! maybe we have a mixing case where the box volume changes? - ! increasing volume - dilute against background - ! decreasing volume - ignore (?) for now - - ! in the PBL case, analogue: - ! maybe we changed the PBLH? update concentration vector - ! rising BL - mixing against zero air or bg values - ! shrinking BL - creates residual layer, decouples - - IF (vol > vol_old) THEN - Kturb = ( (vol - vol_old) / vol_old ) / DT - ENDIF - - END SUBROUTINE UpdateKturbVolume -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbTracer - calc. Kturb for mixing using tracer (t, tname) conc. -! changes -! **************************************************************************** - SUBROUTINE UpdateKturbTracer() - - INTEGER :: nr, na, i, iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - anames(max_species_boxmox), & - tracer_name - REAL(KIND=dp) :: rvalues(max_species_boxmox), & - avalues(max_species_boxmox), & - prev, obs, bg, frac_bg - LOGICAL :: lfound_prev, lfound_bg - - Kturb = 0.0 - - CALL readVals('Background.csv', & - nr, rnames, rvalues, iostat, & - na, anames, avalues, lquiet=.TRUE.) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - ! ASSUMPTION: first ancillary species is mixing tracer - tracer_name = anames(1) - obs = avalues(1) * CFACTOR - - prev = 0.0 - lfound_prev = .FALSE. - DO i = 1, NSPEC - IF ( strEqual(SPC_NAMES(i), tracer_name) ) THEN - prev = C(i) - lfound_prev = .TRUE. - ENDIF - ENDDO - - bg = 0.0 - lfound_bg = .FALSE. - DO i = 1, nr - IF ( strEqual(rnames(i), tracer_name) ) THEN - bg = rvalues(i) * CFACTOR - lfound_bg = .TRUE. - ENDIF - ENDDO - - IF (.NOT. lfound_bg) THEN - WRITE(*,*) "Tracer ", TRIM(tracer_name), & - " not found in Background.csv" - STOP - ENDIF - IF (.NOT. lfound_prev) THEN - WRITE(*,*) "Tracer ", TRIM(tracer_name), & - " not found in mechanism" - STOP - ENDIF - - IF ( ABS( bg - prev ) < 1e-10 ) THEN - Kturb = 0.0 - ELSE - frac_bg = ( obs - prev ) / ( bg - prev ) - frac_bg = MIN( frac_bg, 1.0 ) - frac_bg = MAX( frac_bg, 0.0 ) - - Kturb = frac_bg / DT - ENDIF - - END SUBROUTINE UpdateKturbTracer -! **************************************************************************** - - -! **************************************************************************** -! UpdatePhotolysisRates - well, it does what it seems to do -! **************************************************************************** - SUBROUTINE UpdatePhotolysisRates() - - INTEGER :: i, iostat, nr, jidx - CHARACTER(LEN=15) :: rnames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox) - - INTEGER :: j, jidx2 - - rnames(:) = " " - rvalues(:) = 0.0 - - jvalues(:) = 0.0 - - CALL readVals('PhotolysisRates.csv', nr, rnames, rvalues, iostat) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - DO i = 1, nr - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,E12.6)") rnames(i), rvalues(i) - ENDIF - jidx = hash(rnames(i)) - jvalues(jidx) = rvalues(i) - ENDDO - - ! first time step only: make sure hashing actually made unique hashes - IF (TIME .EQ. TSTART) THEN - DO i = 1, nr - jidx = hash(rnames(i)) - DO j = 1, nr - jidx2 = hash(rnames(j)) - IF ((jidx .EQ. jidx2) .AND. .NOT. (i .EQ. j)) THEN - WRITE(*,*) "Photolysis rate label hash collision:" - WRITE(*,*) rnames(i), "(idx ",i,", hash ", jidx, ") == ", & - rnames(j), "(idx ",j,", hash ", jidx2,")" - IF ( strEqual( rnames(i), rnames(j) ) ) THEN - WRITE(*,*) "Remove duplicate label in PhotolysisRates.csv!" - ELSE - WRITE(*,*) "Please contact the BOXMOX developers!" - ENDIF - STOP - ENDIF - ENDDO - ENDDO - - CALL writespecstring(nr, "known:", rnames, 6) - - ENDIF - - END SUBROUTINE UpdatePhotolysisRates -! **************************************************************************** - - -! **************************************************************************** -! UpdateAerosol - update aerosol properties -! **************************************************************************** - SUBROUTINE UpdateAerosol() - - INTEGER, PARAMETER :: naer = 2, sad_idx = 1, r_idx = 2 - REAL(KIND=dp) :: aer(naer), errval = -987654321.0 - CHARACTER(LEN=15) :: aernames(naer) - INTEGER :: iostat, i - - aernames(sad_idx) = "sad"; aer(sad_idx) = errval - aernames(r_idx) = "r"; aer(r_idx) = errval - - CALL readInput('Aerosol.csv', naer, aernames, aer, quiet=lverbose) - - IF (aer(sad_idx) .NE. errval) AER_SAD = aer(sad_idx) - IF (aer(r_idx) .NE. errval) AER_R = aer(r_idx) - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,F8.2)") "SAD ", AER_SAD - WRITE(*,"(6X,A15,1X,F8.2)") "R ", AER_R - ENDIF - - END SUBROUTINE UpdateAerosol -! **************************************************************************** - - -! **************************************************************************** -! UpdateEnvironment - Read environmental values -! **************************************************************************** - SUBROUTINE UpdateEnvironment() - - INTEGER, PARAMETER :: nenv = 4, temp_idx = 1, pres_idx = 2, & - pblh_idx = 3, vol_idx = 4 - REAL(KIND=dp) :: env(nenv), errval = -987654321.0 - CHARACTER(LEN=15) :: envnames(nenv) - INTEGER :: iostat, i - - REAL(KIND=dp) :: temp_old, pres_old, pblh, vol - - envnames(temp_idx) = "TEMP"; env(temp_idx) = errval - envnames(pres_idx) = "PRES"; env(pres_idx) = errval - envnames(pblh_idx) = "PBLH"; env(pblh_idx) = errval - envnames(vol_idx) = "VOL"; env(vol_idx) = errval - - CALL readInput('Environment.csv', nenv, envnames, env, quiet=lverbose) - - temp_old = temp - pres_old = pres - - dxdydz_old(:) = dxdydz(:) - - ! those are just pseudo variables for dxdydz properties - pblh = dxdydz(3) - vol = dxdydz(1) * dxdydz(2) * dxdydz(3) - - IF (env(pblh_idx) .NE. errval .AND. env(vol_idx) .NE. errval) & - THEN - WRITE(*,*) "Cannot work with changing PBLH and VOL at the same time." - STOP - ENDIF - - IF (env(temp_idx) .NE. errval) temp = env(temp_idx) - IF (env(pres_idx) .NE. errval) pres = env(pres_idx) - IF (env(vol_idx) .NE. errval) vol = env(vol_idx) - - IF (env(pblh_idx) .NE. errval) THEN - pblh = env(pblh_idx) - dxdydz(3) = pblh - ENDIF - - ! Adjust species vector - DO i = 1, NSPEC - C(i) = C(i) * (temp_old * pres) / (temp * pres_old) - ENDDO - - ! recalculate unit conversion - CALL calcCFACTOR() - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,F8.2)") "TEMP ", temp - WRITE(*,"(6X,A13,1X,F10.2)") "PRES ", pres - WRITE(*,"(6X,A15,1X,F8.2)") "PBLH ", dxdydz(3) - WRITE(*,"(6X,A15,1X,F8.2)") "VOL ", & - dxdydz(1)*dxdydz(2)*dxdydz(3) - WRITE(*,*) "" - WRITE(*,"(6X,A7,1X,E16.8)") "CFACTOR", CFACTOR - ENDIF - - END SUBROUTINE UpdateEnvironment -! **************************************************************************** - - -! **************************************************************************** -! InitFixNOx - Initialize the NOx fixing data (for steady state calculations) -! **************************************************************************** - SUBROUTINE InitFixNOx(n, names, values) - - INTEGER, INTENT(IN) :: n - REAL(KIND=dp) :: values(n) - CHARACTER(LEN=15), INTENT(IN) :: names(n) - - INTEGER :: i, nfound_tracers - - initial_total_nox = 0.0 - nfound_tracers = 0 - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - initial_total_nox = initial_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - initial_total_nox = initial_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - ENDDO - - IF (.NOT. nfound_tracers == 2) THEN - WRITE(*,*) "NOx fixing failed, found (only) ", & - nfound_tracers, " species." - STOP - ENDIF - - END SUBROUTINE InitFixNOx -! **************************************************************************** - - -! **************************************************************************** -! FixNOx - keep total NOx at initial levels (for steady state calculations) -! **************************************************************************** - SUBROUTINE FixNOx(n, names, values) - - INTEGER, INTENT(IN) :: n - REAL(KIND=dp), INTENT(INOUT) :: values(n) - CHARACTER(LEN=15), INTENT(IN) :: names(n) - - INTEGER :: i, nfound_tracers - REAL(KIND=dp) :: current_total_nox, scaleFactor - - current_total_nox = 0.0 - nfound_tracers = 0 - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - current_total_nox = current_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - current_total_nox = current_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - ENDDO - - IF (.NOT. nfound_tracers == 2) THEN - WRITE(*,*) "NOx fixing failed, found (only) ", & - nfound_tracers, " species." - STOP - ENDIF - - scaleFactor = initial_total_nox - IF (current_total_nox > 0.0) THEN - scaleFactor = initial_total_nox / current_total_nox - ENDIF - - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - values(i) = values(i) * scaleFactor - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - values(i) = values(i) * scaleFactor - ENDIF - ENDDO - - END SUBROUTINE FixNOx -! **************************************************************************** - - -! End INLINED Utility Functions - -! Utility Functions from KPP_HOME/util/util -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! UTIL - Utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -! **************************************************************** -! -! InitSaveData - Opens the data file for writing -! Parameters : -! -! **************************************************************** - - SUBROUTINE InitSaveData () - - USE CBMZ_Parameters -!* ---------------------------------------------------- -!* BOXMOX extension - Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* add header to output species and sparse jacobian indices -!* and Hessian - USE CBMZ_JacobianSP -#if 0 > 0 - USE CBMZ_HessianSP -#endif -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* add header to output files and open rates file - INTEGER :: i -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20161129 -!* renamed concentration output -! open(10, file='CBMZ.dat') - open(10, file='CBMZ.conc') -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* add header to output files and open rates file - - ! add header to output file - WRITE(10, "(A24,10000(1X,A24))") "time", ADJUSTR(SPC_NAMES(LOOKAT)) - - open(11, file='CBMZ.rates') - - WRITE(11, "(I5)") NREACT - - DO i = 1, NREACT - WRITE(11, "(A)") EQN_NAMES(i) - ENDDO - - ! add header to output file - WRITE(11, "(A24,10000(1X,I24))") "time", (/(i, i=1,NREACT, 1)/) - -!* write header to Jacobian output - open(12, file='CBMZ.jacobian') - -!* species names - WRITE(12, "(10000(1X,A24))") ADJUSTR(SPC_NAMES(LOOKAT)) -!* species index - WRITE(12, "(10000(1X,I5))") LOOKAT -!* Jacobian non zero row index - WRITE(12, "(100000(1X,I5))") (LU_IROW(i), i=1,LU_NONZERO) -!* Jacobian non zero column index - WRITE(12, "(100000(1X,I5))") (LU_ICOL(i), i=1,LU_NONZERO) - -!* write header to Hessian output -#if 0 > 0 - open(13, file='CBMZ.hessian') - -!* species names - WRITE(13, "(10000(1X,A24))") ADJUSTR(SPC_NAMES(LOOKAT)) -!* species index - WRITE(13, "(10000(1X,I5))") LOOKAT -!* Hessian i, j, k species - WRITE(13, "(100000(1X,I5))") (IHESS_I(i), i=1,NHESS) - WRITE(13, "(100000(1X,I5))") (IHESS_J(i), i=1,NHESS) - WRITE(13, "(100000(1X,I5))") (IHESS_K(i), i=1,NHESS) -#endif -!* ---------------------------------------------------- - - END SUBROUTINE InitSaveData - -! End of InitSaveData function -! **************************************************************** - -! **************************************************************** -! -! SaveData - Write LOOKAT species in the data file -! Parameters : -! -! **************************************************************** - - SUBROUTINE SaveData () - - USE CBMZ_Global - USE CBMZ_Monitor -!* ---------------------------------------------------- -!* BOXMOX extension - Jerome Barre - 20150410 -!* Christoph Knote - 20151030 - USE CBMZ_Jacobian -#if 0 > 0 - USE CBMZ_Hessian -#endif -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20151030 - REAL(KIND=dp) :: JVS(LU_NONZERO) ! d(dc/dt)i/dcj -#if 0 > 0 - REAL(KIND=dp) :: HESS(NHESS) ! -#endif - INTEGER i - - WRITE(10,999) (TIME-TSTART)/3600.D0, & - (C(LOOKAT(i))/CFACTOR, i=1,NLOOKAT) - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* write out reaction rates - WRITE(11,999) (TIME-TSTART)/3600.D0, & - (RCONST(i), i=1,NREACT) -!* call Jacobian function to output Jacobian values - CALL Jac_SP( VAR, FIX, RCONST, JVS ) - WRITE(12,9999) (JVS(i), i=1,LU_NONZERO) -!* call Hessian function to output Hessian values -#if 0 > 0 - CALL Hessian( VAR, FIX, RCONST, HESS ) - WRITE(13,9999) (HESS(i), i=1,NHESS) -#endif -!* --------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* might have more than 100 output variables -! 999 FORMAT(E24.16,100(1X,E24.16)) -999 FORMAT(E24.16,10000(1X,E24.16E3)) -9999 FORMAT(E24.16,100000(1X,E24.16E3)) -!* ---------------------------------------------------- - - END SUBROUTINE SaveData - -! End of SaveData function -! **************************************************************** - -! **************************************************************** -! -! CloseSaveData - Close the data file -! Parameters : -! -! **************************************************************** - - SUBROUTINE CloseSaveData () - - USE CBMZ_Parameters - - CLOSE(10) - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -! Christoph Knote - 20153010 -!* close rates file - CLOSE(11) -!* close Jacobian file - CLOSE(12) -!* close Hessian file -#if 0 > 0 - CLOSE(13) -#endif -!* --------------------------------------------------- - - END SUBROUTINE CloseSaveData - -! End of CloseSaveData function -! **************************************************************** - -! **************************************************************** -! -! GenerateMatlab - Generates MATLAB file to load the data file -! Parameters : -! It will have a character string to prefix each -! species name with. -! -! **************************************************************** - - SUBROUTINE GenerateMatlab ( PREFIX ) - - USE CBMZ_Parameters - USE CBMZ_Global - USE CBMZ_Monitor - - - CHARACTER(LEN=8) PREFIX - INTEGER i - - open(20, file='CBMZ.m') - write(20,*) 'load CBMZ.dat;' - write(20,990) PREFIX -990 FORMAT(A1,'c = CBMZ;') - write(20,*) 'clear CBMZ;' - write(20,991) PREFIX, PREFIX -991 FORMAT(A1,'t=',A1,'c(:,1);') - write(20,992) PREFIX -992 FORMAT(A1,'c(:,1)=[];') - - do i=1,NLOOKAT - write(20,993) PREFIX, SPC_NAMES(LOOKAT(i)), PREFIX, i -993 FORMAT(A1,A6,' = ',A1,'c(:,',I2,');') - end do - - CLOSE(20) - - END SUBROUTINE GenerateMatlab - -! End of GenerateMatlab function -! **************************************************************** - - -! End Utility Functions from KPP_HOME/util/util -! End of UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Shuffle_user2kpp - function to copy concentrations from USER to KPP -! Arguments : -! V_USER - Concentration of variable species in USER's order -! V - Concentrations of variable species (local) -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Shuffle_user2kpp ( V_USER, V ) - -! V_USER - Concentration of variable species in USER's order - REAL(kind=dp) :: V_USER(NVAR) -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) - - V(1) = V_USER(1) - V(38) = V_USER(2) - V(2) = V_USER(3) - V(3) = V_USER(4) - V(63) = V_USER(5) - V(59) = V_USER(6) - V(60) = V_USER(7) - V(21) = V_USER(8) - V(32) = V_USER(9) - V(27) = V_USER(10) - V(64) = V_USER(11) - V(16) = V_USER(12) - V(37) = V_USER(13) - V(67) = V_USER(14) - V(65) = V_USER(15) - V(19) = V_USER(16) - V(23) = V_USER(17) - V(39) = V_USER(18) - V(15) = V_USER(19) - V(28) = V_USER(20) - V(55) = V_USER(21) - V(52) = V_USER(22) - V(47) = V_USER(23) - V(35) = V_USER(24) - V(17) = V_USER(25) - V(31) = V_USER(26) - V(33) = V_USER(27) - V(54) = V_USER(28) - V(4) = V_USER(29) - V(5) = V_USER(30) - V(58) = V_USER(31) - V(18) = V_USER(32) - V(41) = V_USER(33) - V(49) = V_USER(34) - V(53) = V_USER(35) - V(34) = V_USER(36) - V(45) = V_USER(37) - V(50) = V_USER(38) - V(20) = V_USER(39) - V(22) = V_USER(40) - V(36) = V_USER(41) - V(29) = V_USER(42) - V(24) = V_USER(43) - V(42) = V_USER(44) - V(57) = V_USER(45) - V(66) = V_USER(46) - V(61) = V_USER(47) - V(62) = V_USER(48) - V(51) = V_USER(49) - V(48) = V_USER(50) - V(30) = V_USER(51) - V(46) = V_USER(52) - V(56) = V_USER(53) - V(43) = V_USER(54) - V(40) = V_USER(55) - V(44) = V_USER(56) - V(6) = V_USER(57) - V(7) = V_USER(58) - V(8) = V_USER(59) - V(9) = V_USER(60) - V(10) = V_USER(61) - V(11) = V_USER(62) - V(12) = V_USER(63) - V(13) = V_USER(64) - V(25) = V_USER(65) - V(26) = V_USER(66) - V(14) = V_USER(67) - -END SUBROUTINE Shuffle_user2kpp - -! End of Shuffle_user2kpp function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Shuffle_kpp2user - function to restore concentrations from KPP to USER -! Arguments : -! V - Concentrations of variable species (local) -! V_USER - Concentration of variable species in USER's order -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Shuffle_kpp2user ( V, V_USER ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! V_USER - Concentration of variable species in USER's order - REAL(kind=dp) :: V_USER(NVAR) - - V_USER(1) = V(1) - V_USER(2) = V(38) - V_USER(3) = V(2) - V_USER(4) = V(3) - V_USER(5) = V(63) - V_USER(6) = V(59) - V_USER(7) = V(60) - V_USER(8) = V(21) - V_USER(9) = V(32) - V_USER(10) = V(27) - V_USER(11) = V(64) - V_USER(12) = V(16) - V_USER(13) = V(37) - V_USER(14) = V(67) - V_USER(15) = V(65) - V_USER(16) = V(19) - V_USER(17) = V(23) - V_USER(18) = V(39) - V_USER(19) = V(15) - V_USER(20) = V(28) - V_USER(21) = V(55) - V_USER(22) = V(52) - V_USER(23) = V(47) - V_USER(24) = V(35) - V_USER(25) = V(17) - V_USER(26) = V(31) - V_USER(27) = V(33) - V_USER(28) = V(54) - V_USER(29) = V(4) - V_USER(30) = V(5) - V_USER(31) = V(58) - V_USER(32) = V(18) - V_USER(33) = V(41) - V_USER(34) = V(49) - V_USER(35) = V(53) - V_USER(36) = V(34) - V_USER(37) = V(45) - V_USER(38) = V(50) - V_USER(39) = V(20) - V_USER(40) = V(22) - V_USER(41) = V(36) - V_USER(42) = V(29) - V_USER(43) = V(24) - V_USER(44) = V(42) - V_USER(45) = V(57) - V_USER(46) = V(66) - V_USER(47) = V(61) - V_USER(48) = V(62) - V_USER(49) = V(51) - V_USER(50) = V(48) - V_USER(51) = V(30) - V_USER(52) = V(46) - V_USER(53) = V(56) - V_USER(54) = V(43) - V_USER(55) = V(40) - V_USER(56) = V(44) - V_USER(57) = V(6) - V_USER(58) = V(7) - V_USER(59) = V(8) - V_USER(60) = V(9) - V_USER(61) = V(10) - V_USER(62) = V(11) - V_USER(63) = V(12) - V_USER(64) = V(13) - V_USER(65) = V(25) - V_USER(66) = V(26) - V_USER(67) = V(14) - -END SUBROUTINE Shuffle_kpp2user - -! End of Shuffle_kpp2user function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! GetMass - compute total mass of selected atoms -! Arguments : -! CL - Concentration of all species (local) -! Mass - value of mass balance -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE GetMass ( CL, Mass ) - -! CL - Concentration of all species (local) - REAL(kind=dp) :: CL(NSPEC) -! Mass - value of mass balance - REAL(kind=dp) :: Mass(1) - - -END SUBROUTINE GetMass - -! End of GetMass function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE CBMZ_Util - diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_Util.o b/boxmox/compiled_mechs/CBMZ/CBMZ_Util.o deleted file mode 100644 index a2181804bb445f67455033cf5aa2b06823e9776c..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/CBMZ_Util.o and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_mex_Fun.f90 b/boxmox/compiled_mechs/CBMZ/CBMZ_mex_Fun.f90 deleted file mode 100644 index 40fac5520b032f8386846cb71c33d988237ee683..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CBMZ/CBMZ_mex_Fun.f90 +++ /dev/null @@ -1,45 +0,0 @@ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE mexFunction( nlhs, plhs, nrhs, prhs ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Matlab Gateway for the Derivative Function Fun -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CBMZ_Model - - INTEGER nlhs, nrhs - INTEGER plhs(*), prhs(*) - INTEGER mxGetPr, mxCreateFull, mxGetM, mxgetN - INTEGER VPtr, FPtr, RPtr, VdotPtr - REAL(kind=dp) V(67), F(2), RCT(142) - REAL(kind=dp) Vdot(67) - -! Check for the right number of input arguments - IF ( nrhs .ne. 3 ) THEN - CALL mexErrMsgTxt('Fun requires 3 input vectors: & - &V(67), F(2), RCT(142)') - END IF -! Check for the right number of output arguments - IF ( nlhs .ne. 1 ) THEN - CALL mexErrMsgTxt('Fun requires 1 output vector: & - &Vdot(67)') - END IF - - plhs(1) = mxCreateDoubleMatrix(67,1,0) - - VPtr = mxGetPr(prhs(1)) - CALL mxCopyPtrToReal8(VPtr,V,67) - - FPtr = mxGetPr(prhs(2)) - CALL mxCopyPtrToReal8(FPtr,F,2) - - RPtr = mxGetPr(prhs(3)) - CALL mxCopyPtrToReal8(RPtr,RCT,142) - - VdotPtr = mxGetPr(plhs(1)) - - CALL Fun( V, F, RCT, Vdot ) - - CALL mxCopyReal8ToPtr(Vdot, VdotPtr, 67) - - END SUBROUTINE mexFunction diff --git a/boxmox/compiled_mechs/CBMZ/CBMZ_mex_Jac_SP.f90 b/boxmox/compiled_mechs/CBMZ/CBMZ_mex_Jac_SP.f90 deleted file mode 100644 index 6d567eff824d4d8409cc377f8099ecfb34f231ef..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CBMZ/CBMZ_mex_Jac_SP.f90 +++ /dev/null @@ -1,44 +0,0 @@ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE mexFunction( nlhs, plhs, nrhs, prhs ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Matlab Gateway for the Sparse Jacobian Function Jac_SP -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE CBMZ_Model - - INTEGER nlhs, nrhs - INTEGER plhs(*), prhs(*) - INTEGER mxGetPr, mxCreateFull, mxGetM, mxgetN - INTEGER VPtr, FPtr, RPtr, JVSPtr - REAL(kind=dp) V(67), F(2), RCT(142) - REAL(kind=dp) JVS(636) - -! Check for the right number of input arguments - IF ( nrhs .ne. 3 ) THEN - CALL mexErrMsgTxt('Jac_SP requires 3 input vectors: & - &V(67), F(2), RCT(142)') - END IF -! Check for the right number of output arguments - IF ( nlhs .ne. 1 ) THEN - CALL mexErrMsgTxt('Jac_SP requires 1 output vector: & - &JVS(636)') - END IF - - plhs(1) = mxCreateDoubleMatrix(636,1,0) - - VPtr = mxGetPr(prhs(1)) - CALL mxCopyPtrToReal8(VPtr,V,67) - - FPtr = mxGetPr(prhs(2)) - CALL mxCopyPtrToReal8(FPtr,F,2) - - RPtr = mxGetPr(prhs(3)) - CALL mxCopyPtrToReal8(RPtr,RCT,142) - - JVSPtr = mxGetPr(plhs(1)) - - CALL Jac_SP( V, F, RCT, JVS ) - - CALL mxCopyReal8ToPtr(JVS, JVSPtr, 636) - - END SUBROUTINE mexFunction diff --git a/boxmox/compiled_mechs/CBMZ/Makefile_CBMZ b/boxmox/compiled_mechs/CBMZ/Makefile_CBMZ deleted file mode 100644 index 979758ee55cb0bfd7817a02cf8f491cb20853378..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CBMZ/Makefile_CBMZ +++ /dev/null @@ -1,215 +0,0 @@ -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: Set here the F90 compiler and options -# Pedefined compilers: INTEL, PGF, HPUX, LAHEY -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -#COMPILER = G95 -#COMPILER = LAHEY -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# gfortran is standard -#COMPILER = INTEL -# ---------------------------------------------------- -#COMPILER = PGF -#COMPILER = HPUX -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# gfortran is standard -COMPILER = GFORTRAN -# ---------------------------------------------------- - -FC_G95 = g95 -FOPT_G95 = -cpp -O -pg -fbounds-check -fimplicit-none -Wall -ftrace=full - -FC_LAHEY = lf95 -# More aggressive for production runs: -#FOPT_LAHEY = -Cpp --pca -O -# More checking for debugging: -FOPT_LAHEY = -Cpp --chk a,e,s,u --pca --ap -O0 -g --trap --trace --chkglobal - -FC_INTEL = ifort -# More aggressive for production runs: -#FOPT_INTEL = -cpp -O -fp-model precise -pc80 -prec_div -# More checking for debugging: -FOPT_INTEL = -cpp -O0 -fp-model strict -implicitnone -ftrapuv \ - -debug all -check all -warn all - -FC_PGF = pgf90 -# More aggressive for production runs: -FOPT_PGF = -Mpreprocess -O -fast -pc 80 -Kieee -# More checking for debugging: -#FOPT_PGF = -Mpreprocess -O0 -Mbounds -Mchkfpstk -Mchkptr -Mchkstk \ -# -Ktrap=fp -pc 80 -Kieee - -FC_HPUX = f90 -FOPT_HPUX = -O -u +Oall +check=on - -FC_GFORTRAN = gfortran -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# rate equation code creates pretty long lines -# optimization does not help much and breaks MCM -# FOPT_GFORTRAN = -cpp -O -# double precision: -#FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -freal-4-real-16 -freal-8-real-16 -# using GCC 4.7 and higher: -FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -freal-4-real-8 -# for older compilers -#FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -fdefault-real-8 -# ---------------------------------------------------- - -# define FULL_ALGEBRA for non-sparse integration -FC = $(FC_$(COMPILER)) -FOPT = $(FOPT_$(COMPILER)) # -DFULL_ALGEBRA - -LIBS = -#LIBS = -llapack -lblas - -# Command to create Matlab mex gateway routines -# Note: use $(FC) as the mex Fortran compiler -MEX = mex - -GENSRC = CBMZ_Precision.f90 \ - CBMZ_Parameters.f90 \ - CBMZ_Global.f90 - -GENOBJ = CBMZ_Precision.o \ - CBMZ_Parameters.o \ - CBMZ_Global.o - -FUNSRC = CBMZ_Function.f90 -FUNOBJ = CBMZ_Function.o - -JACSRC = CBMZ_JacobianSP.f90 CBMZ_Jacobian.f90 -JACOBJ = CBMZ_JacobianSP.o CBMZ_Jacobian.o - -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20160906 -# if HESSIAN is off, avoid compilation errors by not -# linking to the Hessian objects. -ifeq ($(wildcard CBMZ_HessianSP.f90),) - HESSRC = - HESOBJ = -else - HESSRC = CBMZ_HessianSP.f90 CBMZ_Hessian.f90 - HESOBJ = CBMZ_HessianSP.o CBMZ_Hessian.o -endif -# ---------------------------------------------------- - -STMSRC = CBMZ_StoichiomSP.f90 CBMZ_Stoichiom.f90 -STMOBJ = CBMZ_StoichiomSP.o CBMZ_Stoichiom.o - -UTLSRC = CBMZ_Rates.f90 CBMZ_Util.f90 CBMZ_Monitor.f90 -UTLOBJ = CBMZ_Rates.o CBMZ_Util.o CBMZ_Monitor.o - -LASRC = CBMZ_LinearAlgebra.f90 -LAOBJ = CBMZ_LinearAlgebra.o - -STOCHSRC = CBMZ_Stochastic.f90 -STOCHOBJ = CBMZ_Stochastic.o - -MAINSRC = CBMZ_Main.f90 CBMZ_Initialize.f90 CBMZ_Integrator.f90 CBMZ_Model.f90 -MAINOBJ = CBMZ_Main.o CBMZ_Initialize.o CBMZ_Integrator.o CBMZ_Model.o - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: modify the line below to include only the -# objects needed by your application -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -ALLOBJ = $(GENOBJ) $(FUNOBJ) $(JACOBJ) $(HESOBJ) $(STMOBJ) \ - $(UTLOBJ) $(LAOBJ) - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: modify the line below to include only the -# executables needed by your application -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -all: exe - -exe: $(ALLOBJ) $(MAINOBJ) - $(FC) $(FOPT) $(ALLOBJ) $(MAINOBJ) $(LIBS) -o CBMZ.exe - -pylib: $(ALLOBJ) lib_Initialize.o lib_Integrator.o lib_Model.o - f2py -c -m boxmox $(ALLOBJ) lib_Initialize.o lib_Integrator.o lib_Model.o lib_Main.f90 - -stochastic:$(ALLOBJ) $(STOCHOBJ) $(MAINOBJ) - $(FC) $(FOPT) $(ALLOBJ) $(STOCHOBJ) $(MAINOBJ) $(LIBS) \ - -o CBMZ_stochastic.exe - -mex: $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O CBMZ_mex_Fun.f90 $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O CBMZ_mex_Jac_SP.f90 $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O CBMZ_mex_Hessian.f90 $(ALLOBJ) - -clean: - rm -f CBMZ*.o CBMZ*.mod \ - CBMZ*.dat CBMZ.exe CBMZ*.mexglx \ - CBMZ.map - -distclean: - rm -f CBMZ*.o CBMZ*.mod \ - CBMZ*.dat CBMZ.exe CBMZ.map \ - CBMZ*.f90 CBMZ_*.mexglx - -CBMZ_Precision.o: CBMZ_Precision.f90 - $(FC) $(FOPT) -c $< - -CBMZ_Parameters.o: CBMZ_Parameters.f90 \ - CBMZ_Precision.o - $(FC) $(FOPT) -c $< - -CBMZ_Monitor.o: CBMZ_Monitor.f90 \ - CBMZ_Precision.o - $(FC) $(FOPT) -c $< - -CBMZ_Global.o: CBMZ_Global.f90 \ - CBMZ_Parameters.o CBMZ_Precision.o - $(FC) $(FOPT) -c $< - -CBMZ_Initialize.o: CBMZ_Initialize.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -CBMZ_Function.o: CBMZ_Function.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -CBMZ_Stochastic.o: CBMZ_Stochastic.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -CBMZ_JacobianSP.o: CBMZ_JacobianSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -CBMZ_Jacobian.o: CBMZ_Jacobian.f90 $(GENOBJ) CBMZ_JacobianSP.o - $(FC) $(FOPT) -c $< - -CBMZ_LinearAlgebra.o: CBMZ_LinearAlgebra.f90 $(GENOBJ) CBMZ_JacobianSP.o - $(FC) $(FOPT) -c $< - -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# need Util in Rates -#CBMZ_Rates.o: CBMZ_Rates.f90 $(GENOBJ) -CBMZ_Rates.o: CBMZ_Rates.f90 $(GENOBJ) CBMZ_Util.o -# ---------------------------------------------------- - $(FC) $(FOPT) -c $< - -CBMZ_HessianSP.o: CBMZ_HessianSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -CBMZ_Hessian.o: CBMZ_Hessian.f90 $(GENOBJ) CBMZ_HessianSP.o - $(FC) $(FOPT) -c $< - -CBMZ_StoichiomSP.o: CBMZ_StoichiomSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -CBMZ_Stoichiom.o: CBMZ_Stoichiom.f90 $(GENOBJ) CBMZ_StoichiomSP.o - $(FC) $(FOPT) -c $< - -CBMZ_Util.o: CBMZ_Util.f90 $(GENOBJ) CBMZ_Monitor.o - $(FC) $(FOPT) -c $< - -CBMZ_Main.o: CBMZ_Main.f90 $(ALLOBJ) CBMZ_Initialize.o CBMZ_Model.o CBMZ_Integrator.o - $(FC) $(FOPT) -c $< - -CBMZ_Model.o: CBMZ_Model.f90 $(ALLOBJ) CBMZ_Integrator.o - $(FC) $(FOPT) -c $< - -CBMZ_Integrator.o: CBMZ_Integrator.f90 $(ALLOBJ) - $(FC) $(FOPT) -c $< diff --git a/boxmox/compiled_mechs/CBMZ/cbmz_function.mod b/boxmox/compiled_mechs/CBMZ/cbmz_function.mod deleted file mode 100644 index 665d19114adb3503e1d99893ed5f326f61072684..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/cbmz_function.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/cbmz_global.mod b/boxmox/compiled_mechs/CBMZ/cbmz_global.mod deleted file mode 100644 index f385e02750e2dfad0c6fd188c1a9de3548251052..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/cbmz_global.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/cbmz_initialize.mod b/boxmox/compiled_mechs/CBMZ/cbmz_initialize.mod deleted file mode 100644 index 01dda7061fe4a230cfbcf1aaeb6d8dd3f88b9517..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/cbmz_initialize.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/cbmz_integrator.mod b/boxmox/compiled_mechs/CBMZ/cbmz_integrator.mod deleted file mode 100644 index 0c1369ec63ac6dcd6017718c5a657075c9419503..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/cbmz_integrator.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/cbmz_jacobian.mod b/boxmox/compiled_mechs/CBMZ/cbmz_jacobian.mod deleted file mode 100644 index 2c42200419ed77c0d8ea857baf1e9114a83f1aca..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/cbmz_jacobian.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/cbmz_jacobiansp.mod b/boxmox/compiled_mechs/CBMZ/cbmz_jacobiansp.mod deleted file mode 100644 index 4a4d2fba9a486c30598c5a40064608aab706e336..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/cbmz_jacobiansp.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/cbmz_linearalgebra.mod b/boxmox/compiled_mechs/CBMZ/cbmz_linearalgebra.mod deleted file mode 100644 index 050b51b328072135ff03f0d9dd7ea3c3024d1f5b..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/cbmz_linearalgebra.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/cbmz_model.mod b/boxmox/compiled_mechs/CBMZ/cbmz_model.mod deleted file mode 100644 index a5f9460334ebe0e3323e54b070d8ed779fd48b9a..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/cbmz_model.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/cbmz_monitor.mod b/boxmox/compiled_mechs/CBMZ/cbmz_monitor.mod deleted file mode 100644 index abd038b840a626c3a1efda421e7e273bec69c2ed..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/cbmz_monitor.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/cbmz_parameters.mod b/boxmox/compiled_mechs/CBMZ/cbmz_parameters.mod deleted file mode 100644 index 1fad9f6c5c8108494fa7194d4dba4a0d13bfba99..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/cbmz_parameters.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/cbmz_precision.mod b/boxmox/compiled_mechs/CBMZ/cbmz_precision.mod deleted file mode 100644 index 472bdefe9a320db69c3395cc27021330d4fb0c9f..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/cbmz_precision.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/cbmz_rates.mod b/boxmox/compiled_mechs/CBMZ/cbmz_rates.mod deleted file mode 100644 index 3b10bee847b596d74ae13744fbcdc7a04f1a5d5d..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/cbmz_rates.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/cbmz_stoichiom.mod b/boxmox/compiled_mechs/CBMZ/cbmz_stoichiom.mod deleted file mode 100644 index 9bb807148efeb67141a9615d372d56b66e6ff167..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/cbmz_stoichiom.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/cbmz_stoichiomsp.mod b/boxmox/compiled_mechs/CBMZ/cbmz_stoichiomsp.mod deleted file mode 100644 index 2099ab3bc6b2857547a2a902a2d24876d011fdf0..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/cbmz_stoichiomsp.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/cbmz_util.mod b/boxmox/compiled_mechs/CBMZ/cbmz_util.mod deleted file mode 100644 index ea40135a646f1eec9983d0046ae716cc64fe3fae..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/CBMZ/cbmz_util.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/CBMZ/compile.log b/boxmox/compiled_mechs/CBMZ/compile.log deleted file mode 100644 index 74d2de02b6ebc7d50a9f9c67c103f408aec03065..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CBMZ/compile.log +++ /dev/null @@ -1,22 +0,0 @@ -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CBMZ_Precision.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CBMZ_Parameters.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CBMZ_Global.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CBMZ_Function.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CBMZ_JacobianSP.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CBMZ_Jacobian.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CBMZ_StoichiomSP.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CBMZ_Stoichiom.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CBMZ_Monitor.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CBMZ_Util.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CBMZ_Rates.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CBMZ_LinearAlgebra.f90 -CBMZ_LinearAlgebra.f90:1258:46: - - 1258 | IF (incX .EQ. incY) IF (incX-1) 5,20,60 - | 1 -Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CBMZ_Initialize.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CBMZ_Integrator.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CBMZ_Model.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c CBMZ_Main.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 CBMZ_Precision.o CBMZ_Parameters.o CBMZ_Global.o CBMZ_Function.o CBMZ_JacobianSP.o CBMZ_Jacobian.o CBMZ_StoichiomSP.o CBMZ_Stoichiom.o CBMZ_Rates.o CBMZ_Util.o CBMZ_Monitor.o CBMZ_LinearAlgebra.o CBMZ_Main.o CBMZ_Initialize.o CBMZ_Integrator.o CBMZ_Model.o -o CBMZ.exe diff --git a/boxmox/compiled_mechs/CBMZ/kpp.log b/boxmox/compiled_mechs/CBMZ/kpp.log deleted file mode 100644 index 08c7403137465154478e3b7d99cb213a125835bd..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/CBMZ/kpp.log +++ /dev/null @@ -1,37 +0,0 @@ - -This is KPP-2.2.3. - -KPP is parsing the equation file. -KPP is computing Jacobian sparsity structure. -KPP is starting the code generation. -KPP is initializing the code generation. -KPP is generating the monitor data: - - CBMZ_Monitor -KPP is generating the global declarations: - - CBMZ_Main -KPP is generating the ODE function: - - CBMZ_Function -KPP is generating the ODE Jacobian: - - CBMZ_Jacobian - - CBMZ_JacobianSP -KPP is generating the linear algebra routines: - - CBMZ_LinearAlgebra -KPP is generating the utility data: - - CBMZ_Util -KPP is generating the utility functions: - - CBMZ_Util -KPP is generating the rate laws: - - CBMZ_Rates -KPP is generating the parameters: - - CBMZ_Parameters -KPP is generating the global data: - - CBMZ_Global -KPP is generating the stoichiometric description files: - - CBMZ_Stoichiom - - CBMZ_StoichiomSP -KPP is generating the driver from ../boxmox/boxmox.f90: - - CBMZ_Main -KPP is starting the code post-processing. - -KPP has succesfully created the model "CBMZ". - diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM.exe b/boxmox/compiled_mechs/HETCHEM/HETCHEM.exe deleted file mode 100755 index 03049379bd97e7df18ac778efc402db0d37bc1c9..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/HETCHEM.exe and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM.kpp b/boxmox/compiled_mechs/HETCHEM/HETCHEM.kpp deleted file mode 100644 index d9e34ee9820fb2a72d3327f86636a8e24fa89726..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/HETCHEM/HETCHEM.kpp +++ /dev/null @@ -1,7 +0,0 @@ -#MODEL HETCHEM -#LANGUAGE Fortran90 -#DOUBLE ON -#INTEGRATOR rosenbrock -#DRIVER ../boxmox/boxmox -#JACOBIAN SPARSE_LU_ROW -#HESSIAN OFF diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM.map b/boxmox/compiled_mechs/HETCHEM/HETCHEM.map deleted file mode 100644 index 51958f29d556ca066d438536a5c83469bf87087a..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/HETCHEM/HETCHEM.map +++ /dev/null @@ -1,73 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Map File with Human-Readable Information -! -! Generated by KPP-2.2.3 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 : HETCHEM.map -! Time : Thu Oct 8 08:22:02 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_HETCHEM_12963_BOXMOX -! Equation file : HETCHEM.kpp -! Output root filename : HETCHEM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -### Options ------------------------------------------- - -FUNCTION - AGGREGATE -JACOBIAN - SPARSE W/ ACCOUNT FOR LU DECOMPOSITION FILL-IN -DOUBLE - ON -REORDER - ON - -### Parameters ---------------------------------------- - -! NSPEC - Number of chemical species - INTEGER, PARAMETER :: NSPEC = 7 -! NVAR - Number of Variable species - INTEGER, PARAMETER :: NVAR = 5 -! NVARACT - Number of Active species - INTEGER, PARAMETER :: NVARACT = 4 -! NFIX - Number of Fixed species - INTEGER, PARAMETER :: NFIX = 2 -! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 4 -! NVARST - Starting of variables in conc. vect. - INTEGER, PARAMETER :: NVARST = 1 -! NFIXST - Starting of fixed in conc. vect. - INTEGER, PARAMETER :: NFIXST = 6 - -### Species ------------------------------------------- - -Variable species - 1 = HNO3 (n) 3 = NO3 (r) 5 = NO2 (r) - 2 = O3 (r) 4 = N2O5 (r) - -Fixed species - 1 = M (r) 2 = O2 (n) - -### Subroutines --------------------------------------- - -SUBROUTINE Fun ( V, F, RCT, Vdot ) -SUBROUTINE Jac_SP ( V, F, RCT, JVS ) -SUBROUTINE Jac_SP_Vec ( JVS, UV, JUV ) -SUBROUTINE JacTR_SP_Vec ( JVS, UV, JTUV ) -SUBROUTINE KppSolve ( JVS, X ) -SUBROUTINE KppSolveTR ( JVS, X, XX ) -SUBROUTINE Initialize ( ) -SUBROUTINE Shuffle_user2kpp ( V_USER, V ) -SUBROUTINE Shuffle_kpp2user ( V, V_USER ) -SUBROUTINE Update_RCONST ( ) -SUBROUTINE Update_PHOTO ( ) -SUBROUTINE GetMass ( CL, Mass ) -SUBROUTINE ReactantProd ( V, F, ARP ) -SUBROUTINE JacReactantProd ( V, F, JVRP ) diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Function.f90 b/boxmox/compiled_mechs/HETCHEM/HETCHEM_Function.f90 deleted file mode 100644 index 9a32bc19d09cfcf42b76acd124e60d24caafa8de..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Function.f90 +++ /dev/null @@ -1,80 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The ODE Function of Chemical Model File -! -! Generated by KPP-2.2.3 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 : HETCHEM_Function.f90 -! Time : Thu Oct 8 08:22:02 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_HETCHEM_12963_BOXMOX -! Equation file : HETCHEM.kpp -! Output root filename : HETCHEM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE HETCHEM_Function - - USE HETCHEM_Parameters - IMPLICIT NONE - -! A - Rate for each equation - REAL(kind=dp) :: A(NREACT) - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Fun - time derivatives of variables - Agregate form -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! RCT - Rate constants (local) -! Vdot - Time derivative of variable species concentrations -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Fun ( V, F, RCT, Vdot ) - -! 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) -! Vdot - Time derivative of variable species concentrations - REAL(kind=dp) :: Vdot(NVAR) - - -! Computation of equation rates - A(1) = RCT(1)*V(2)*V(5) - A(2) = RCT(2)*V(3)*V(5) - A(3) = RCT(3)*V(4)*F(1) - A(4) = RCT(4)*V(4) - -! Aggregate function - Vdot(1) = 2*A(4) - Vdot(2) = -A(1) - Vdot(3) = A(1)-A(2)+A(3) - Vdot(4) = A(2)-A(3)-A(4) - Vdot(5) = -A(1)-A(2)+A(3) - -END SUBROUTINE Fun - -! End of Fun function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE HETCHEM_Function - diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Function.o b/boxmox/compiled_mechs/HETCHEM/HETCHEM_Function.o deleted file mode 100644 index b564e294d10669b6844a6e6b55acd67ee592a3ea..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Function.o and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Global.f90 b/boxmox/compiled_mechs/HETCHEM/HETCHEM_Global.f90 deleted file mode 100644 index 87e11b8970ee829b773693ef2a3bdc1f124e5fb5..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Global.f90 +++ /dev/null @@ -1,124 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Global Data Module File -! -! Generated by KPP-2.2.3 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 : HETCHEM_Global.f90 -! Time : Thu Oct 8 08:22:02 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_HETCHEM_12963_BOXMOX -! Equation file : HETCHEM.kpp -! Output root filename : HETCHEM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE HETCHEM_Global - - USE HETCHEM_Parameters, ONLY: dp, NSPEC, NVAR, NFIX, NREACT, LU_NONZERO - PUBLIC - SAVE - - -! Declaration of global variables - -! C - Concentration of all species - REAL(kind=dp) :: C(NSPEC) -! VAR - Concentrations of variable species (global) - REAL(kind=dp) :: VAR(NVAR) -! FIX - Concentrations of fixed species (global) - REAL(kind=dp) :: FIX(NFIX) -! VAR, FIX are chunks of array C - EQUIVALENCE( C(1),VAR(1) ) - EQUIVALENCE( C(6),FIX(1) ) -! RCONST - Rate constants (global) - REAL(kind=dp) :: RCONST(NREACT) -! TIME - Current integration time - REAL(kind=dp) :: TIME -! SUN - Sunlight intensity between [0,1] - REAL(kind=dp) :: SUN -! TEMP - Temperature - REAL(kind=dp) :: TEMP -! RTOLS - (scalar) Relative tolerance - REAL(kind=dp) :: RTOLS -! TSTART - Integration start time - REAL(kind=dp) :: TSTART -! TEND - Integration end time - REAL(kind=dp) :: TEND -! DT - Integration step - REAL(kind=dp) :: DT -! ATOL - Absolute tolerance - REAL(kind=dp) :: ATOL(NVAR) -! RTOL - Relative tolerance - REAL(kind=dp) :: RTOL(NVAR) -! STEPMIN - Lower bound for integration step - REAL(kind=dp) :: STEPMIN -! STEPMAX - Upper bound for integration step - REAL(kind=dp) :: STEPMAX -! CFACTOR - Conversion factor for concentration units - REAL(kind=dp) :: CFACTOR - -! INLINED global variable declarations - - - ! BOXMOX global variables - - ! Parameters - INTEGER, PARAMETER :: max_species_boxmox = 10000 ! maximum number of species - ! read in - INTEGER, PARAMETER :: max_jhash_boxmox = 10000 ! maximum hash value of - ! photolysis rate labels - - ! Configuration - LOGICAL :: lverbose ! verbose output? - LOGICAL :: llibrary ! library version? - - - ! State definition - REAL(KIND=dp) :: pres ! pressure [Pa] - ! temperature variable temp [K] defined in KPP already - REAL(KIND=dp) :: dxdydz(3), dxdydz_old(3) ! box dimensions (x,y,z) - ! [m] - - ! Turbulent mixing - INTEGER :: iturb ! type of mixing - INTEGER, PARAMETER :: TURB_OPT_NONE = 0, & ! no turbulent mixing - TURB_OPT_SPECIFIED = 1, & ! using specified Kturb - TURB_OPT_VOLUME = 2, & ! using volume changes - TURB_OPT_TRACER = 3 ! using tracer conc. - REAL(KIND=dp) :: Kturb ! eddy diffusivity [m2 s-1] - - ! Photolysis rates - REAL(KIND=dp) :: jvalues(max_jhash_boxmox) ! Photolysis rate [s-1] - - ! Aerosol - REAL(KIND=dp) :: AER_R, & ! particle radius [m] - AER_SAD ! surface area density - ! [m^2 m^-3] - - ! Steady-state modeling - LOGICAL :: lfix_nox ! fix total NOx? - REAL(kind=dp) :: initial_total_nox ! total NOx to fix - - - - ! global variables used by special rate constants of this mechanism - - ! air/water concentration (molecules/cm3) - REAL(KIND=dp) :: c_m - - -! INLINED global variable declarations - - -END MODULE HETCHEM_Global - diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Global.o b/boxmox/compiled_mechs/HETCHEM/HETCHEM_Global.o deleted file mode 100644 index 5389e96b73e52f4bb5aa100177de6709a98bce63..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Global.o and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Initialize.f90 b/boxmox/compiled_mechs/HETCHEM/HETCHEM_Initialize.f90 deleted file mode 100644 index 84c7bbc524e0dd4c704e58c37d65db85eed30ecd..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Initialize.f90 +++ /dev/null @@ -1,110 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Initialization File -! -! Generated by KPP-2.2.3 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 : HETCHEM_Initialize.f90 -! Time : Thu Oct 8 08:22:02 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_HETCHEM_12963_BOXMOX -! Equation file : HETCHEM.kpp -! Output root filename : HETCHEM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE HETCHEM_Initialize - - USE HETCHEM_Parameters, ONLY: dp, NVAR, NFIX - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Initialize - function to initialize concentrations -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Initialize ( ) - - - USE HETCHEM_Global - - USE HETCHEM_Util - - INTEGER :: i - REAL(kind=dp) :: x - - CFACTOR = 1.000000e+00_dp - - x = (1.0E-9)*CFACTOR - DO i = 1, NVAR - VAR(i) = x - END DO - - x = (1.0E-9)*CFACTOR - DO i = 1, NFIX - FIX(i) = x - END DO - -! constant rate coefficients -! END constant rate coefficients - -! INLINED initializations - - - IF (.NOT. llibrary) THEN - - ! Write version number to VERSION file - CALL writeVersion() - - ! Initialization (time step, run length, etc.) happening - ! in namelist BOXMOX.nml. Read it! - CALL readConfig() - - ENDIF - - ! Check configuration values - CALL checkConfig() - - - - ! BOXMOX defaults for global variables - - ! Environment.csv - temp = 293.15 ! K - pres = 101325.0 ! Pa - dxdydz(:) = 1.0 ! m - - ! Aerosol.csv - AER_SAD = 0.0 ! m^2 m^-3 - AER_R = 1.0e-6 ! m - - ! Turbulent mixing - Kturb = 0.0 ! m2 s-1 - - -! End INLINED initializations - - -END SUBROUTINE Initialize - -! End of Initialize function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE HETCHEM_Initialize - diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Initialize.o b/boxmox/compiled_mechs/HETCHEM/HETCHEM_Initialize.o deleted file mode 100644 index c8a5693a38d8963347d83692448650b9c6fd5afe..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Initialize.o and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Integrator.f90 b/boxmox/compiled_mechs/HETCHEM/HETCHEM_Integrator.f90 deleted file mode 100644 index 6282d66ff18237520d3d21a7a604f0d8649f2ac1..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Integrator.f90 +++ /dev/null @@ -1,1365 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Numerical Integrator (Time-Stepping) File -! -! Generated by KPP-2.2.3 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 : HETCHEM_Integrator.f90 -! Time : Thu Oct 8 08:22:02 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_HETCHEM_12963_BOXMOX -! Equation file : HETCHEM.kpp -! Output root filename : HETCHEM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! INTEGRATE - Integrator routine -! Arguments : -! TIN - Start Time for Integration -! TOUT - End Time for Integration -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! -! Rosenbrock - Implementation of several Rosenbrock methods: ! -! * Ros2 ! -! * Ros3 ! -! * Ros4 ! -! * Rodas3 ! -! * Rodas4 ! -! By default the code employs the KPP sparse linear algebra routines ! -! Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK) ! -! ! -! (C) Adrian Sandu, August 2004 ! -! Virginia Polytechnic Institute and State University ! -! Contact: sandu@cs.vt.edu ! -! Revised by Philipp Miehe and Adrian Sandu, May 2006 ! ! -! This implementation is part of KPP - the Kinetic PreProcessor ! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! - -MODULE HETCHEM_Integrator - - USE HETCHEM_Parameters, ONLY: NVAR, NFIX, NSPEC, LU_NONZERO - USE HETCHEM_Global - IMPLICIT NONE - PUBLIC - SAVE - -!~~~> Statistics on the work performed by the Rosenbrock method - INTEGER, PARAMETER :: Nfun=1, Njac=2, Nstp=3, Nacc=4, & - Nrej=5, Ndec=6, Nsol=7, Nsng=8, & - Ntexit=1, Nhexit=2, Nhnew = 3 - -CONTAINS - -SUBROUTINE INTEGRATE( TIN, TOUT, & - ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U, IERR_U ) - - IMPLICIT NONE - - REAL(kind=dp), INTENT(IN) :: TIN ! Start Time - REAL(kind=dp), INTENT(IN) :: TOUT ! End Time - ! Optional input parameters and statistics - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - REAL(kind=dp), INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - REAL(kind=dp), INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: IERR_U - - REAL(kind=dp) :: RCNTRL(20), RSTATUS(20) - INTEGER :: ICNTRL(20), ISTATUS(20), IERR - - INTEGER, SAVE :: Ntotal = 0 - - ICNTRL(:) = 0 - RCNTRL(:) = 0.0_dp - ISTATUS(:) = 0 - RSTATUS(:) = 0.0_dp - - !~~~> fine-tune the integrator: - ICNTRL(1) = 0 ! 0 - non-autonomous, 1 - autonomous - ICNTRL(2) = 0 ! 0 - vector tolerances, 1 - scalars - - ! If optional parameters are given, and if they are >0, - ! then they overwrite default settings. - IF (PRESENT(ICNTRL_U)) THEN - WHERE(ICNTRL_U(:) > 0) ICNTRL(:) = ICNTRL_U(:) - END IF - IF (PRESENT(RCNTRL_U)) THEN - WHERE(RCNTRL_U(:) > 0) RCNTRL(:) = RCNTRL_U(:) - END IF - - - CALL Rosenbrock(NVAR,VAR,TIN,TOUT, & - ATOL,RTOL, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) - - !~~~> Debug option: show no of steps - ! Ntotal = Ntotal + ISTATUS(Nstp) - ! PRINT*,'NSTEPS=',ISTATUS(Nstp),' (',Ntotal,')',' O3=', VAR(ind_O3) - - STEPMIN = RSTATUS(Nhexit) - ! if optional parameters are given for output they - ! are updated with the return information - IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(:) - IF (PRESENT(RSTATUS_U)) RSTATUS_U(:) = RSTATUS(:) - IF (PRESENT(IERR_U)) IERR_U = IERR - -END SUBROUTINE INTEGRATE - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE Rosenbrock(N,Y,Tstart,Tend, & - AbsTol,RelTol, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Solves the system y'=F(t,y) using a Rosenbrock method defined by: -! -! G = 1/(H*gamma(1)) - Jac(t0,Y0) -! T_i = t0 + Alpha(i)*H -! Y_i = Y0 + \sum_{j=1}^{i-1} A(i,j)*K_j -! G * K_i = Fun( T_i, Y_i ) + \sum_{j=1}^S C(i,j)/H * K_j + -! gamma(i)*dF/dT(t0, Y0) -! Y1 = Y0 + \sum_{j=1}^S M(j)*K_j -! -! For details on Rosenbrock methods and their implementation consult: -! E. Hairer and G. Wanner -! "Solving ODEs II. Stiff and differential-algebraic problems". -! Springer series in computational mathematics, Springer-Verlag, 1996. -! The codes contained in the book inspired this implementation. -! -! (C) Adrian Sandu, August 2004 -! Virginia Polytechnic Institute and State University -! Contact: sandu@cs.vt.edu -! Revised by Philipp Miehe and Adrian Sandu, May 2006 -! This implementation is part of KPP - the Kinetic PreProcessor -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT ARGUMENTS: -! -!- Y(N) = vector of initial conditions (at T=Tstart) -!- [Tstart,Tend] = time range of integration -! (if Tstart>Tend the integration is performed backwards in time) -!- RelTol, AbsTol = user precribed accuracy -!- SUBROUTINE Fun( T, Y, Ydot ) = ODE function, -! returns Ydot = Y' = F(T,Y) -!- SUBROUTINE Jac( T, Y, Jcb ) = Jacobian of the ODE function, -! returns Jcb = dFun/dY -!- ICNTRL(1:20) = integer inputs parameters -!- RCNTRL(1:20) = real inputs parameters -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT ARGUMENTS: -! -!- Y(N) -> vector of final states (at T->Tend) -!- ISTATUS(1:20) -> integer output parameters -!- RSTATUS(1:20) -> real output parameters -!- IERR -> job status upon return -! success (positive value) or -! failure (negative value) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT PARAMETERS: -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -! ICNTRL(1) = 1: F = F(y) Independent of T (AUTONOMOUS) -! = 0: F = F(t,y) Depends on T (NON-AUTONOMOUS) -! -! ICNTRL(2) = 0: AbsTol, RelTol are N-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ICNTRL(3) -> selection of a particular Rosenbrock method -! = 0 : Rodas3 (default) -! = 1 : Ros2 -! = 2 : Ros3 -! = 3 : Ros4 -! = 4 : Rodas3 -! = 5 : Rodas4 -! -! ICNTRL(4) -> maximum number of integration steps -! For ICNTRL(4)=0) the default value of 100000 is used -! -! RCNTRL(1) -> Hmin, lower bound for the integration step size -! It is strongly recommended to keep Hmin = ZERO -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! RCNTRL(3) -> Hstart, starting value for the integration step size -! -! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! RCNTRL(5) -> FacMax, upper bound on step increase factor (default=6) -! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! -! OUTPUT ARGUMENTS: -! ----------------- -! -! T -> T value for which the solution has been computed -! (after successful return T=Tend). -! -! Y(N) -> Numerical solution at T -! -! IDID -> Reports on successfulness upon return: -! = 1 for success -! < 0 for error (value equals error code) -! -! ISTATUS(1) -> No. of function calls -! ISTATUS(2) -> No. of jacobian calls -! ISTATUS(3) -> No. of steps -! ISTATUS(4) -> No. of accepted steps -! ISTATUS(5) -> No. of rejected steps (except at very beginning) -! ISTATUS(6) -> No. of LU decompositions -! ISTATUS(7) -> No. of forward/backward substitutions -! ISTATUS(8) -> No. of singular matrix decompositions -! -! RSTATUS(1) -> Texit, the time corresponding to the -! computed Y upon return -! RSTATUS(2) -> Hexit, last accepted step before exit -! RSTATUS(3) -> Hnew, last predicted step (not yet taken) -! For multiple restarts, use Hnew as Hstart -! in the subsequent run -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE HETCHEM_Parameters - USE HETCHEM_LinearAlgebra - IMPLICIT NONE - -!~~~> Arguments - INTEGER, INTENT(IN) :: N - REAL(kind=dp), INTENT(INOUT) :: Y(N) - REAL(kind=dp), INTENT(IN) :: Tstart,Tend - REAL(kind=dp), INTENT(IN) :: AbsTol(N),RelTol(N) - INTEGER, INTENT(IN) :: ICNTRL(20) - REAL(kind=dp), INTENT(IN) :: RCNTRL(20) - INTEGER, INTENT(INOUT) :: ISTATUS(20) - REAL(kind=dp), INTENT(INOUT) :: RSTATUS(20) - INTEGER, INTENT(OUT) :: IERR -!~~~> Parameters of the Rosenbrock method, up to 6 stages - INTEGER :: ros_S, rosMethod - INTEGER, PARAMETER :: RS2=1, RS3=2, RS4=3, RD3=4, RD4=5, RG3=6 - REAL(kind=dp) :: ros_A(15), ros_C(15), ros_M(6), ros_E(6), & - ros_Alpha(6), ros_Gamma(6), ros_ELO - LOGICAL :: ros_NewF(6) - CHARACTER(LEN=12) :: ros_Name -!~~~> Local variables - REAL(kind=dp) :: Roundoff, FacMin, FacMax, FacRej, FacSafe - REAL(kind=dp) :: Hmin, Hmax, Hstart - REAL(kind=dp) :: Texit - INTEGER :: i, UplimTol, Max_no_steps - LOGICAL :: Autonomous, VectorTol -!~~~> Parameters - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp - REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp - -!~~~> Initialize statistics - ISTATUS(1:8) = 0 - RSTATUS(1:3) = ZERO - -!~~~> Autonomous or time dependent ODE. Default is time dependent. - Autonomous = .NOT.(ICNTRL(1) == 0) - -!~~~> For Scalar tolerances (ICNTRL(2).NE.0) the code uses AbsTol(1) and RelTol(1) -! For Vector tolerances (ICNTRL(2) == 0) the code uses AbsTol(1:N) and RelTol(1:N) - IF (ICNTRL(2) == 0) THEN - VectorTol = .TRUE. - UplimTol = N - ELSE - VectorTol = .FALSE. - UplimTol = 1 - END IF - -!~~~> Initialize the particular Rosenbrock method selected - SELECT CASE (ICNTRL(3)) - CASE (1) - CALL Ros2 - CASE (2) - CALL Ros3 - CASE (3) - CALL Ros4 - CASE (0,4) - CALL Rodas3 - CASE (5) - CALL Rodas4 - CASE (6) - CALL Rang3 - CASE DEFAULT - PRINT * , 'Unknown Rosenbrock method: ICNTRL(3)=',ICNTRL(3) - CALL ros_ErrorMsg(-2,Tstart,ZERO,IERR) - RETURN - END SELECT - -!~~~> The maximum number of steps admitted - IF (ICNTRL(4) == 0) THEN - Max_no_steps = 200000 - ELSEIF (ICNTRL(4) > 0) THEN - Max_no_steps=ICNTRL(4) - ELSE - PRINT * ,'User-selected max no. of steps: ICNTRL(4)=',ICNTRL(4) - CALL ros_ErrorMsg(-1,Tstart,ZERO,IERR) - RETURN - END IF - -!~~~> Unit roundoff (1+Roundoff>1) - Roundoff = WLAMCH('E') - -!~~~> Lower bound on the step size: (positive value) - IF (RCNTRL(1) == ZERO) THEN - Hmin = ZERO - ELSEIF (RCNTRL(1) > ZERO) THEN - Hmin = RCNTRL(1) - ELSE - PRINT * , 'User-selected Hmin: RCNTRL(1)=', RCNTRL(1) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Upper bound on the step size: (positive value) - IF (RCNTRL(2) == ZERO) THEN - Hmax = ABS(Tend-Tstart) - ELSEIF (RCNTRL(2) > ZERO) THEN - Hmax = MIN(ABS(RCNTRL(2)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hmax: RCNTRL(2)=', RCNTRL(2) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Starting step size: (positive value) - IF (RCNTRL(3) == ZERO) THEN - Hstart = MAX(Hmin,DeltaMin) - ELSEIF (RCNTRL(3) > ZERO) THEN - Hstart = MIN(ABS(RCNTRL(3)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hstart: RCNTRL(3)=', RCNTRL(3) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Step size can be changed s.t. FacMin < Hnew/Hold < FacMax - IF (RCNTRL(4) == ZERO) THEN - FacMin = 0.2_dp - ELSEIF (RCNTRL(4) > ZERO) THEN - FacMin = RCNTRL(4) - ELSE - PRINT * , 'User-selected FacMin: RCNTRL(4)=', RCNTRL(4) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF - IF (RCNTRL(5) == ZERO) THEN - FacMax = 6.0_dp - ELSEIF (RCNTRL(5) > ZERO) THEN - FacMax = RCNTRL(5) - ELSE - PRINT * , 'User-selected FacMax: RCNTRL(5)=', RCNTRL(5) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacRej: Factor to decrease step after 2 succesive rejections - IF (RCNTRL(6) == ZERO) THEN - FacRej = 0.1_dp - ELSEIF (RCNTRL(6) > ZERO) THEN - FacRej = RCNTRL(6) - ELSE - PRINT * , 'User-selected FacRej: RCNTRL(6)=', RCNTRL(6) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacSafe: Safety Factor in the computation of new step size - IF (RCNTRL(7) == ZERO) THEN - FacSafe = 0.9_dp - ELSEIF (RCNTRL(7) > ZERO) THEN - FacSafe = RCNTRL(7) - ELSE - PRINT * , 'User-selected FacSafe: RCNTRL(7)=', RCNTRL(7) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Check if tolerances are reasonable - DO i=1,UplimTol - IF ( (AbsTol(i) <= ZERO) .OR. (RelTol(i) <= 10.0_dp*Roundoff) & - .OR. (RelTol(i) >= 1.0_dp) ) THEN - PRINT * , ' AbsTol(',i,') = ',AbsTol(i) - PRINT * , ' RelTol(',i,') = ',RelTol(i) - CALL ros_ErrorMsg(-5,Tstart,ZERO,IERR) - RETURN - END IF - END DO - - -!~~~> CALL Rosenbrock method - CALL ros_Integrator(Y, Tstart, Tend, Texit, & - AbsTol, RelTol, & -! Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -! Error indicator - IERR) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -CONTAINS ! SUBROUTINES internal to Rosenbrock -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_ErrorMsg(Code,T,H,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - REAL(kind=dp), INTENT(IN) :: T, H - INTEGER, INTENT(IN) :: Code - INTEGER, INTENT(OUT) :: IERR - - IERR = Code - PRINT * , & - 'Forced exit from Rosenbrock due to the following error:' - - SELECT CASE (Code) - CASE (-1) - PRINT * , '--> Improper value for maximal no of steps' - CASE (-2) - PRINT * , '--> Selected Rosenbrock method not implemented' - CASE (-3) - PRINT * , '--> Hmin/Hmax/Hstart must be positive' - CASE (-4) - PRINT * , '--> FacMin/FacMax/FacRej must be positive' - CASE (-5) - PRINT * , '--> Improper tolerance values' - CASE (-6) - PRINT * , '--> No of steps exceeds maximum bound' - CASE (-7) - PRINT * , '--> Step size too small: T + 10*H = T', & - ' or H < Roundoff' - CASE (-8) - PRINT * , '--> Matrix is repeatedly singular' - CASE DEFAULT - PRINT *, 'Unknown Error code: ', Code - END SELECT - - PRINT *, "T=", T, "and H=", H - - END SUBROUTINE ros_ErrorMsg - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Integrator (Y, Tstart, Tend, T, & - AbsTol, RelTol, & -!~~~> Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -!~~~> Error indicator - IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the implementation of a generic Rosenbrock method -! defined by ros_S (no of stages) -! and its coefficients ros_{A,C,M,E,Alpha,Gamma} -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - -!~~~> Input: the initial condition at Tstart; Output: the solution at T - REAL(kind=dp), INTENT(INOUT) :: Y(N) -!~~~> Input: integration interval - REAL(kind=dp), INTENT(IN) :: Tstart,Tend -!~~~> Output: time at which the solution is returned (T=Tend if success) - REAL(kind=dp), INTENT(OUT) :: T -!~~~> Input: tolerances - REAL(kind=dp), INTENT(IN) :: AbsTol(N), RelTol(N) -!~~~> Input: integration parameters - LOGICAL, INTENT(IN) :: Autonomous, VectorTol - REAL(kind=dp), INTENT(IN) :: Hstart, Hmin, Hmax - INTEGER, INTENT(IN) :: Max_no_steps - REAL(kind=dp), INTENT(IN) :: Roundoff, FacMin, FacMax, FacRej, FacSafe -!~~~> Output: Error indicator - INTEGER, INTENT(OUT) :: IERR -! ~~~~ Local variables - REAL(kind=dp) :: Ynew(N), Fcn0(N), Fcn(N) - REAL(kind=dp) :: K(N*ros_S), dFdT(N) -#ifdef FULL_ALGEBRA - REAL(kind=dp) :: Jac0(N,N), Ghimj(N,N) -#else - REAL(kind=dp) :: Jac0(LU_NONZERO), Ghimj(LU_NONZERO) -#endif - REAL(kind=dp) :: H, Hnew, HC, HG, Fac, Tau - REAL(kind=dp) :: Err, Yerr(N) - INTEGER :: Pivot(N), Direction, ioffset, j, istage - LOGICAL :: RejectLastH, RejectMoreH, Singular -!~~~> Local parameters - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp - REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp -!~~~> Locally called functions -! REAL(kind=dp) WLAMCH -! EXTERNAL WLAMCH -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~> Initial preparations - T = Tstart - RSTATUS(Nhexit) = ZERO - H = MIN( MAX(ABS(Hmin),ABS(Hstart)) , ABS(Hmax) ) - IF (ABS(H) <= 10.0_dp*Roundoff) H = DeltaMin - - IF (Tend >= Tstart) THEN - Direction = +1 - ELSE - Direction = -1 - END IF - H = Direction*H - - RejectLastH=.FALSE. - RejectMoreH=.FALSE. - -!~~~> Time loop begins below - -TimeLoop: DO WHILE ( (Direction > 0).AND.((T-Tend)+Roundoff <= ZERO) & - .OR. (Direction < 0).AND.((Tend-T)+Roundoff <= ZERO) ) - - IF ( ISTATUS(Nstp) > Max_no_steps ) THEN ! Too many steps - CALL ros_ErrorMsg(-6,T,H,IERR) - RETURN - END IF - IF ( ((T+0.1_dp*H) == T).OR.(H <= Roundoff) ) THEN ! Step size too small - CALL ros_ErrorMsg(-7,T,H,IERR) - RETURN - END IF - -!~~~> Limit H if necessary to avoid going beyond Tend - H = MIN(H,ABS(Tend-T)) - -!~~~> Compute the function at current time - CALL FunTemplate(T,Y,Fcn0) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - -!~~~> Compute the function derivative with respect to T - IF (.NOT.Autonomous) THEN - CALL ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) - END IF - -!~~~> Compute the Jacobian at current time - CALL JacTemplate(T,Y,Jac0) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - -!~~~> Repeat step calculation until current step accepted -UntilAccepted: DO - - CALL ros_PrepareMatrix(H,Direction,ros_Gamma(1), & - Jac0,Ghimj,Pivot,Singular) - IF (Singular) THEN ! More than 5 consecutive failed decompositions - CALL ros_ErrorMsg(-8,T,H,IERR) - RETURN - END IF - -!~~~> Compute the stages -Stage: DO istage = 1, ros_S - - ! Current istage offset. Current istage vector is K(ioffset+1:ioffset+N) - ioffset = N*(istage-1) - - ! For the 1st istage the function has been computed previously - IF ( istage == 1 ) THEN - !slim: CALL WCOPY(N,Fcn0,1,Fcn,1) - Fcn(1:N) = Fcn0(1:N) - ! istage>1 and a new function evaluation is needed at the current istage - ELSEIF ( ros_NewF(istage) ) THEN - !slim: CALL WCOPY(N,Y,1,Ynew,1) - Ynew(1:N) = Y(1:N) - DO j = 1, istage-1 - CALL WAXPY(N,ros_A((istage-1)*(istage-2)/2+j), & - K(N*(j-1)+1),1,Ynew,1) - END DO - Tau = T + ros_Alpha(istage)*Direction*H - CALL FunTemplate(Tau,Ynew,Fcn) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - END IF ! if istage == 1 elseif ros_NewF(istage) - !slim: CALL WCOPY(N,Fcn,1,K(ioffset+1),1) - K(ioffset+1:ioffset+N) = Fcn(1:N) - DO j = 1, istage-1 - HC = ros_C((istage-1)*(istage-2)/2+j)/(Direction*H) - CALL WAXPY(N,HC,K(N*(j-1)+1),1,K(ioffset+1),1) - END DO - IF ((.NOT. Autonomous).AND.(ros_Gamma(istage).NE.ZERO)) THEN - HG = Direction*H*ros_Gamma(istage) - CALL WAXPY(N,HG,dFdT,1,K(ioffset+1),1) - END IF - CALL ros_Solve(Ghimj, Pivot, K(ioffset+1)) - - END DO Stage - - -!~~~> Compute the new solution - !slim: CALL WCOPY(N,Y,1,Ynew,1) - Ynew(1:N) = Y(1:N) - DO j=1,ros_S - CALL WAXPY(N,ros_M(j),K(N*(j-1)+1),1,Ynew,1) - END DO - -!~~~> Compute the error estimation - !slim: CALL WSCAL(N,ZERO,Yerr,1) - Yerr(1:N) = ZERO - DO j=1,ros_S - CALL WAXPY(N,ros_E(j),K(N*(j-1)+1),1,Yerr,1) - END DO - Err = ros_ErrorNorm ( Y, Ynew, Yerr, AbsTol, RelTol, VectorTol ) - -!~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax - Fac = MIN(FacMax,MAX(FacMin,FacSafe/Err**(ONE/ros_ELO))) - Hnew = H*Fac - -!~~~> Check the error magnitude and adjust step size - ISTATUS(Nstp) = ISTATUS(Nstp) + 1 - IF ( (Err <= ONE).OR.(H <= Hmin) ) THEN !~~~> Accept step - ISTATUS(Nacc) = ISTATUS(Nacc) + 1 - !slim: CALL WCOPY(N,Ynew,1,Y,1) - Y(1:N) = Ynew(1:N) - T = T + Direction*H - Hnew = MAX(Hmin,MIN(Hnew,Hmax)) - IF (RejectLastH) THEN ! No step size increase after a rejected step - Hnew = MIN(Hnew,H) - END IF - RSTATUS(Nhexit) = H - RSTATUS(Nhnew) = Hnew - RSTATUS(Ntexit) = T - RejectLastH = .FALSE. - RejectMoreH = .FALSE. - H = Hnew - EXIT UntilAccepted ! EXIT THE LOOP: WHILE STEP NOT ACCEPTED - ELSE !~~~> Reject step - IF (RejectMoreH) THEN - Hnew = H*FacRej - END IF - RejectMoreH = RejectLastH - RejectLastH = .TRUE. - H = Hnew - IF (ISTATUS(Nacc) >= 1) ISTATUS(Nrej) = ISTATUS(Nrej) + 1 - END IF ! Err <= 1 - - END DO UntilAccepted - - END DO TimeLoop - -!~~~> Succesful exit - IERR = 1 !~~~> The integration was successful - - END SUBROUTINE ros_Integrator - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - REAL(kind=dp) FUNCTION ros_ErrorNorm ( Y, Ynew, Yerr, & - AbsTol, RelTol, VectorTol ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Computes the "scaled norm" of the error vector Yerr -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -! Input arguments - REAL(kind=dp), INTENT(IN) :: Y(N), Ynew(N), & - Yerr(N), AbsTol(N), RelTol(N) - LOGICAL, INTENT(IN) :: VectorTol -! Local variables - REAL(kind=dp) :: Err, Scale, Ymax - INTEGER :: i - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp - - Err = ZERO - DO i=1,N - Ymax = MAX(ABS(Y(i)),ABS(Ynew(i))) - IF (VectorTol) THEN - Scale = AbsTol(i)+RelTol(i)*Ymax - ELSE - Scale = AbsTol(1)+RelTol(1)*Ymax - END IF - Err = Err+(Yerr(i)/Scale)**2 - END DO - Err = SQRT(Err/N) - - ros_ErrorNorm = MAX(Err,1.0d-10) - - END FUNCTION ros_ErrorNorm - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> The time partial derivative of the function by finite differences -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -!~~~> Input arguments - REAL(kind=dp), INTENT(IN) :: T, Roundoff, Y(N), Fcn0(N) -!~~~> Output arguments - REAL(kind=dp), INTENT(OUT) :: dFdT(N) -!~~~> Local variables - REAL(kind=dp) :: Delta - REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, DeltaMin = 1.0E-6_dp - - Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T)) - CALL FunTemplate(T+Delta,Y,dFdT) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - CALL WAXPY(N,(-ONE),Fcn0,1,dFdT,1) - CALL WSCAL(N,(ONE/Delta),dFdT,1) - - END SUBROUTINE ros_FunTimeDerivative - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_PrepareMatrix ( H, Direction, gam, & - Jac0, Ghimj, Pivot, Singular ) -! --- --- --- --- --- --- --- --- --- --- --- --- --- -! Prepares the LHS matrix for stage calculations -! 1. Construct Ghimj = 1/(H*ham) - Jac0 -! "(Gamma H) Inverse Minus Jacobian" -! 2. Repeat LU decomposition of Ghimj until successful. -! -half the step size if LU decomposition fails and retry -! -exit after 5 consecutive fails -! --- --- --- --- --- --- --- --- --- --- --- --- --- - IMPLICIT NONE - -!~~~> Input arguments -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(IN) :: Jac0(N,N) -#else - REAL(kind=dp), INTENT(IN) :: Jac0(LU_NONZERO) -#endif - REAL(kind=dp), INTENT(IN) :: gam - INTEGER, INTENT(IN) :: Direction -!~~~> Output arguments -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(OUT) :: Ghimj(N,N) -#else - REAL(kind=dp), INTENT(OUT) :: Ghimj(LU_NONZERO) -#endif - LOGICAL, INTENT(OUT) :: Singular - INTEGER, INTENT(OUT) :: Pivot(N) -!~~~> Inout arguments - REAL(kind=dp), INTENT(INOUT) :: H ! step size is decreased when LU fails -!~~~> Local variables - INTEGER :: i, ISING, Nconsecutive - REAL(kind=dp) :: ghinv - REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, HALF = 0.5_dp - - Nconsecutive = 0 - Singular = .TRUE. - - DO WHILE (Singular) - -!~~~> Construct Ghimj = 1/(H*gam) - Jac0 -#ifdef FULL_ALGEBRA - !slim: CALL WCOPY(N*N,Jac0,1,Ghimj,1) - !slim: CALL WSCAL(N*N,(-ONE),Ghimj,1) - Ghimj = -Jac0 - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(i,i) = Ghimj(i,i)+ghinv - END DO -#else - !slim: CALL WCOPY(LU_NONZERO,Jac0,1,Ghimj,1) - !slim: CALL WSCAL(LU_NONZERO,(-ONE),Ghimj,1) - Ghimj(1:LU_NONZERO) = -Jac0(1:LU_NONZERO) - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(LU_DIAG(i)) = Ghimj(LU_DIAG(i))+ghinv - END DO -#endif -!~~~> Compute LU decomposition - CALL ros_Decomp( Ghimj, Pivot, ISING ) - IF (ISING == 0) THEN -!~~~> If successful done - Singular = .FALSE. - ELSE ! ISING .ne. 0 -!~~~> If unsuccessful half the step size; if 5 consecutive fails then return - ISTATUS(Nsng) = ISTATUS(Nsng) + 1 - Nconsecutive = Nconsecutive+1 - Singular = .TRUE. - PRINT*,'Warning: LU Decomposition returned ISING = ',ISING - IF (Nconsecutive <= 5) THEN ! Less than 5 consecutive failed decompositions - H = H*HALF - ELSE ! More than 5 consecutive failed decompositions - RETURN - END IF ! Nconsecutive - END IF ! ISING - - END DO ! WHILE Singular - - END SUBROUTINE ros_PrepareMatrix - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Decomp( A, Pivot, ISING ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the LU decomposition -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Inout variables -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(INOUT) :: A(N,N) -#else - REAL(kind=dp), INTENT(INOUT) :: A(LU_NONZERO) -#endif -!~~~> Output variables - INTEGER, INTENT(OUT) :: Pivot(N), ISING - -#ifdef FULL_ALGEBRA - CALL DGETRF( N, N, A, N, Pivot, ISING ) -#else - CALL KppDecomp ( A, ISING ) - Pivot(1) = 1 -#endif - ISTATUS(Ndec) = ISTATUS(Ndec) + 1 - - END SUBROUTINE ros_Decomp - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Solve( A, Pivot, b ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the forward/backward substitution (using pre-computed LU decomposition) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Input variables -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(IN) :: A(N,N) - INTEGER :: ISING -#else - REAL(kind=dp), INTENT(IN) :: A(LU_NONZERO) -#endif - INTEGER, INTENT(IN) :: Pivot(N) -!~~~> InOut variables - REAL(kind=dp), INTENT(INOUT) :: b(N) - -#ifdef FULL_ALGEBRA - CALL DGETRS( 'N', N , 1, A, N, Pivot, b, N, ISING ) - IF ( Info < 0 ) THEN - PRINT*,"Error in DGETRS. ISING=",ISING - END IF -#else - CALL KppSolve( A, b ) -#endif - - ISTATUS(Nsol) = ISTATUS(Nsol) + 1 - - END SUBROUTINE ros_Solve - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 2 stages, order 2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - DOUBLE PRECISION g - - g = 1.0_dp + 1.0_dp/SQRT(2.0_dp) - rosMethod = RS2 -!~~~> Name of the method - ros_Name = 'ROS-2' -!~~~> Number of stages - ros_S = 2 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = (1.0_dp)/g - ros_C(1) = (-2.0_dp)/g -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1)= (3.0_dp)/(2.0_dp*g) - ros_M(2)= (1.0_dp)/(2.0_dp*g) -! E_i = Coefficients for error estimator - ros_E(1) = 1.0_dp/(2.0_dp*g) - ros_E(2) = 1.0_dp/(2.0_dp*g) -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus one - ros_ELO = 2.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 1.0_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = g - ros_Gamma(2) =-g - - END SUBROUTINE Ros2 - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 3 stages, order 3, 2 function evaluations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - rosMethod = RS3 -!~~~> Name of the method - ros_Name = 'ROS-3' -!~~~> Number of stages - ros_S = 3 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1)= 1.0_dp - ros_A(2)= 1.0_dp - ros_A(3)= 0.0_dp - - ros_C(1) = -0.10156171083877702091975600115545E+01_dp - ros_C(2) = 0.40759956452537699824805835358067E+01_dp - ros_C(3) = 0.92076794298330791242156818474003E+01_dp -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.1E+01_dp - ros_M(2) = 0.61697947043828245592553615689730E+01_dp - ros_M(3) = -0.42772256543218573326238373806514_dp -! E_i = Coefficients for error estimator - ros_E(1) = 0.5_dp - ros_E(2) = -0.29079558716805469821718236208017E+01_dp - ros_E(3) = 0.22354069897811569627360909276199_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1)= 0.0_dp - ros_Alpha(2)= 0.43586652150845899941601945119356_dp - ros_Alpha(3)= 0.43586652150845899941601945119356_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1)= 0.43586652150845899941601945119356_dp - ros_Gamma(2)= 0.24291996454816804366592249683314_dp - ros_Gamma(3)= 0.21851380027664058511513169485832E+01_dp - - END SUBROUTINE Ros3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! L-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 4 STAGES -! L-STABLE EMBEDDED ROSENBROCK METHOD OF ORDER 3 -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1990) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RS4 -!~~~> Name of the method - ros_Name = 'ROS-4' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.2000000000000000E+01_dp - ros_A(2) = 0.1867943637803922E+01_dp - ros_A(3) = 0.2344449711399156_dp - ros_A(4) = ros_A(2) - ros_A(5) = ros_A(3) - ros_A(6) = 0.0_dp - - ros_C(1) =-0.7137615036412310E+01_dp - ros_C(2) = 0.2580708087951457E+01_dp - ros_C(3) = 0.6515950076447975_dp - ros_C(4) =-0.2137148994382534E+01_dp - ros_C(5) =-0.3214669691237626_dp - ros_C(6) =-0.6949742501781779_dp -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.2255570073418735E+01_dp - ros_M(2) = 0.2870493262186792_dp - ros_M(3) = 0.4353179431840180_dp - ros_M(4) = 0.1093502252409163E+01_dp -!~~~> E_i = Coefficients for error estimator - ros_E(1) =-0.2815431932141155_dp - ros_E(2) =-0.7276199124938920E-01_dp - ros_E(3) =-0.1082196201495311_dp - ros_E(4) =-0.1093502252409163E+01_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 0.1145640000000000E+01_dp - ros_Alpha(3) = 0.6552168638155900_dp - ros_Alpha(4) = ros_Alpha(3) -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5728200000000000_dp - ros_Gamma(2) =-0.1769193891319233E+01_dp - ros_Gamma(3) = 0.7592633437920482_dp - ros_Gamma(4) =-0.1049021087100450_dp - - END SUBROUTINE Ros4 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- A STIFFLY-STABLE METHOD, 4 stages, order 3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD3 -!~~~> Name of the method - ros_Name = 'RODAS-3' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.0_dp - ros_A(2) = 2.0_dp - ros_A(3) = 0.0_dp - ros_A(4) = 2.0_dp - ros_A(5) = 0.0_dp - ros_A(6) = 1.0_dp - - ros_C(1) = 4.0_dp - ros_C(2) = 1.0_dp - ros_C(3) =-1.0_dp - ros_C(4) = 1.0_dp - ros_C(5) =-1.0_dp - ros_C(6) =-(8.0_dp/3.0_dp) - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .FALSE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 2.0_dp - ros_M(2) = 0.0_dp - ros_M(3) = 1.0_dp - ros_M(4) = 1.0_dp -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0_dp - ros_E(2) = 0.0_dp - ros_E(3) = 0.0_dp - ros_E(4) = 1.0_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 0.0_dp - ros_Alpha(3) = 1.0_dp - ros_Alpha(4) = 1.0_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5_dp - ros_Gamma(2) = 1.5_dp - ros_Gamma(3) = 0.0_dp - ros_Gamma(4) = 0.0_dp - - END SUBROUTINE Rodas3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 6 STAGES -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1996) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD4 -!~~~> Name of the method - ros_Name = 'RODAS-4' -!~~~> Number of stages - ros_S = 6 - -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.000_dp - ros_Alpha(2) = 0.386_dp - ros_Alpha(3) = 0.210_dp - ros_Alpha(4) = 0.630_dp - ros_Alpha(5) = 1.000_dp - ros_Alpha(6) = 1.000_dp - -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.2500000000000000_dp - ros_Gamma(2) =-0.1043000000000000_dp - ros_Gamma(3) = 0.1035000000000000_dp - ros_Gamma(4) =-0.3620000000000023E-01_dp - ros_Gamma(5) = 0.0_dp - ros_Gamma(6) = 0.0_dp - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.1544000000000000E+01_dp - ros_A(2) = 0.9466785280815826_dp - ros_A(3) = 0.2557011698983284_dp - ros_A(4) = 0.3314825187068521E+01_dp - ros_A(5) = 0.2896124015972201E+01_dp - ros_A(6) = 0.9986419139977817_dp - ros_A(7) = 0.1221224509226641E+01_dp - ros_A(8) = 0.6019134481288629E+01_dp - ros_A(9) = 0.1253708332932087E+02_dp - ros_A(10) =-0.6878860361058950_dp - ros_A(11) = ros_A(7) - ros_A(12) = ros_A(8) - ros_A(13) = ros_A(9) - ros_A(14) = ros_A(10) - ros_A(15) = 1.0_dp - - ros_C(1) =-0.5668800000000000E+01_dp - ros_C(2) =-0.2430093356833875E+01_dp - ros_C(3) =-0.2063599157091915_dp - ros_C(4) =-0.1073529058151375_dp - ros_C(5) =-0.9594562251023355E+01_dp - ros_C(6) =-0.2047028614809616E+02_dp - ros_C(7) = 0.7496443313967647E+01_dp - ros_C(8) =-0.1024680431464352E+02_dp - ros_C(9) =-0.3399990352819905E+02_dp - ros_C(10) = 0.1170890893206160E+02_dp - ros_C(11) = 0.8083246795921522E+01_dp - ros_C(12) =-0.7981132988064893E+01_dp - ros_C(13) =-0.3152159432874371E+02_dp - ros_C(14) = 0.1631930543123136E+02_dp - ros_C(15) =-0.6058818238834054E+01_dp - -!~~~> M_i = Coefficients for new step solution - ros_M(1) = ros_A(7) - ros_M(2) = ros_A(8) - ros_M(3) = ros_A(9) - ros_M(4) = ros_A(10) - ros_M(5) = 1.0_dp - ros_M(6) = 1.0_dp - -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0_dp - ros_E(2) = 0.0_dp - ros_E(3) = 0.0_dp - ros_E(4) = 0.0_dp - ros_E(5) = 0.0_dp - ros_E(6) = 1.0_dp - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - ros_NewF(5) = .TRUE. - ros_NewF(6) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0_dp - - END SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rang3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE W METHOD OF ORDER 3, WITH 4 STAGES -! -! J. RANG and L. ANGERMANN -! NEW ROSENBROCK W-METHODS OF ORDER 3 -! FOR PARTIAL DIFFERENTIAL ALGEBRAIC -! EQUATIONS OF INDEX 1 -! BIT Numerical Mathematics (2005) 45: 761-787 -! DOI: 10.1007/s10543-005-0035-y -! Table 4.1-4.2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RG3 -!~~~> Name of the method - ros_Name = 'RANG-3' -!~~~> Number of stages - ros_S = 4 - - ros_A(1) = 5.09052051067020d+00; - ros_A(2) = 5.09052051067020d+00; - ros_A(3) = 0.0d0; - ros_A(4) = 4.97628111010787d+00; - ros_A(5) = 2.77268164715849d-02; - ros_A(6) = 2.29428036027904d-01; - - ros_C(1) = -1.16790812312283d+01; - ros_C(2) = -1.64057326467367d+01; - ros_C(3) = -2.77268164715850d-01; - ros_C(4) = -8.38103960500476d+00; - ros_C(5) = -8.48328409199343d-01; - ros_C(6) = 2.87009860433106d-01; - - ros_M(1) = 5.22582761233094d+00; - ros_M(2) = -5.56971148154165d-01; - ros_M(3) = 3.57979469353645d-01; - ros_M(4) = 1.72337398521064d+00; - - ros_E(1) = -5.16845212784040d+00; - ros_E(2) = -1.26351942603842d+00; - ros_E(3) = -1.11022302462516d-16; - ros_E(4) = 2.22044604925031d-16; - - ros_Alpha(1) = 0.0d00; - ros_Alpha(2) = 2.21878746765329d+00; - ros_Alpha(3) = 2.21878746765329d+00; - ros_Alpha(4) = 1.55392337535788d+00; - - ros_Gamma(1) = 4.35866521508459d-01; - ros_Gamma(2) = -1.78292094614483d+00; - ros_Gamma(3) = -2.46541900496934d+00; - ros_Gamma(4) = -8.05529997906370d-01; - - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp - - END SUBROUTINE Rang3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! End of the set of internal Rosenbrock subroutines -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -END SUBROUTINE Rosenbrock -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE FunTemplate( T, Y, Ydot ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE function call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE HETCHEM_Parameters, ONLY: NVAR, LU_NONZERO - USE HETCHEM_Global, ONLY: FIX, RCONST, TIME - USE HETCHEM_Function, ONLY: Fun - USE HETCHEM_Rates, ONLY: Update_SUN, Update_RCONST -!~~~> Input variables - REAL(kind=dp) :: T, Y(NVAR) -!~~~> Output variables - REAL(kind=dp) :: Ydot(NVAR) -!~~~> Local variables - REAL(kind=dp) :: Told - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, Ydot ) - TIME = Told - -END SUBROUTINE FunTemplate - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE JacTemplate( T, Y, Jcb ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE Jacobian call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE HETCHEM_Parameters, ONLY: NVAR, LU_NONZERO - USE HETCHEM_Global, ONLY: FIX, RCONST, TIME - USE HETCHEM_Jacobian, ONLY: Jac_SP, LU_IROW, LU_ICOL - USE HETCHEM_LinearAlgebra - USE HETCHEM_Rates, ONLY: Update_SUN, Update_RCONST -!~~~> Input variables - REAL(kind=dp) :: T, Y(NVAR) -!~~~> Output variables -#ifdef FULL_ALGEBRA - REAL(kind=dp) :: JV(LU_NONZERO), Jcb(NVAR,NVAR) -#else - REAL(kind=dp) :: Jcb(LU_NONZERO) -#endif -!~~~> Local variables - REAL(kind=dp) :: Told -#ifdef FULL_ALGEBRA - INTEGER :: i, j -#endif - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() -#ifdef FULL_ALGEBRA - CALL Jac_SP(Y, FIX, RCONST, JV) - DO j=1,NVAR - DO i=1,NVAR - Jcb(i,j) = 0.0_dp - END DO - END DO - DO i=1,LU_NONZERO - Jcb(LU_IROW(i),LU_ICOL(i)) = JV(i) - END DO -#else - CALL Jac_SP( Y, FIX, RCONST, Jcb ) -#endif - TIME = Told - -END SUBROUTINE JacTemplate - -END MODULE HETCHEM_Integrator - - - - -! End of INTEGRATE function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Integrator.o b/boxmox/compiled_mechs/HETCHEM/HETCHEM_Integrator.o deleted file mode 100644 index 40f32c6589700348ca754af63c9149400b265c96..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Integrator.o and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Jacobian.f90 b/boxmox/compiled_mechs/HETCHEM/HETCHEM_Jacobian.f90 deleted file mode 100644 index 9e20c975adc1e72442b9d6f40a07fe09a912834f..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Jacobian.f90 +++ /dev/null @@ -1,179 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The ODE Jacobian of Chemical Model File -! -! Generated by KPP-2.2.3 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 : HETCHEM_Jacobian.f90 -! Time : Thu Oct 8 08:22:02 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_HETCHEM_12963_BOXMOX -! Equation file : HETCHEM.kpp -! Output root filename : HETCHEM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE HETCHEM_Jacobian - - USE HETCHEM_Parameters - USE HETCHEM_JacobianSP - - USE HETCHEM_Global - - 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(7) - -! B(1) = dA(1)/dV(2) - B(1) = RCT(1)*V(5) -! B(2) = dA(1)/dV(5) - B(2) = RCT(1)*V(2) -! B(3) = dA(2)/dV(3) - B(3) = RCT(2)*V(5) -! B(4) = dA(2)/dV(5) - B(4) = RCT(2)*V(3) -! B(5) = dA(3)/dV(4) - B(5) = RCT(3)*F(1) -! B(7) = dA(4)/dV(4) - B(7) = RCT(4) - -! Construct the Jacobian terms from B's -! JVS(1) = Jac_FULL(1,1) - JVS(1) = 0 -! JVS(2) = Jac_FULL(1,4) - JVS(2) = 2*B(7) -! JVS(3) = Jac_FULL(2,2) - JVS(3) = -B(1) -! JVS(4) = Jac_FULL(2,5) - JVS(4) = -B(2) -! JVS(5) = Jac_FULL(3,2) - JVS(5) = B(1) -! JVS(6) = Jac_FULL(3,3) - JVS(6) = -B(3) -! JVS(7) = Jac_FULL(3,4) - JVS(7) = B(5) -! JVS(8) = Jac_FULL(3,5) - JVS(8) = B(2)-B(4) -! JVS(9) = Jac_FULL(4,3) - JVS(9) = B(3) -! JVS(10) = Jac_FULL(4,4) - JVS(10) = -B(5)-B(7) -! JVS(11) = Jac_FULL(4,5) - JVS(11) = B(4) -! JVS(12) = Jac_FULL(5,2) - JVS(12) = -B(1) -! JVS(13) = Jac_FULL(5,3) - JVS(13) = -B(3) -! JVS(14) = Jac_FULL(5,4) - JVS(14) = B(5) -! JVS(15) = Jac_FULL(5,5) - JVS(15) = -B(2)-B(4) - -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(4) - JUV(2) = JVS(3)*UV(2)+JVS(4)*UV(5) - JUV(3) = JVS(5)*UV(2)+JVS(6)*UV(3)+JVS(7)*UV(4)+JVS(8)*UV(5) - JUV(4) = JVS(9)*UV(3)+JVS(10)*UV(4)+JVS(11)*UV(5) - JUV(5) = JVS(12)*UV(2)+JVS(13)*UV(3)+JVS(14)*UV(4)+JVS(15)*UV(5) - -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)+JVS(5)*UV(3)+JVS(12)*UV(5) - JTUV(3) = JVS(6)*UV(3)+JVS(9)*UV(4)+JVS(13)*UV(5) - JTUV(4) = JVS(2)*UV(1)+JVS(7)*UV(3)+JVS(10)*UV(4)+JVS(14)*UV(5) - JTUV(5) = JVS(4)*UV(2)+JVS(8)*UV(3)+JVS(11)*UV(4)+JVS(15)*UV(5) - -END SUBROUTINE JacTR_SP_Vec - -! End of JacTR_SP_Vec function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE HETCHEM_Jacobian - diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Jacobian.o b/boxmox/compiled_mechs/HETCHEM/HETCHEM_Jacobian.o deleted file mode 100644 index 146dd786f28352a790416c3dabf6a2ced6e6c543..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Jacobian.o and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_JacobianSP.f90 b/boxmox/compiled_mechs/HETCHEM/HETCHEM_JacobianSP.f90 deleted file mode 100644 index a9d54009ad5d97e66d363c7a3ec32f2603885827..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/HETCHEM/HETCHEM_JacobianSP.f90 +++ /dev/null @@ -1,50 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Sparse Jacobian Data Structures File -! -! Generated by KPP-2.2.3 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 : HETCHEM_JacobianSP.f90 -! Time : Thu Oct 8 08:22:02 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_HETCHEM_12963_BOXMOX -! Equation file : HETCHEM.kpp -! Output root filename : HETCHEM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE HETCHEM_JacobianSP - - PUBLIC - SAVE - - -! Sparse Jacobian Data - - - INTEGER, PARAMETER, DIMENSION(15) :: LU_IROW = (/ & - 1, 1, 2, 2, 3, 3, 3, 3, 4, 4, 4, 5, & - 5, 5, 5 /) - - INTEGER, PARAMETER, DIMENSION(15) :: LU_ICOL = (/ & - 1, 4, 2, 5, 2, 3, 4, 5, 3, 4, 5, 2, & - 3, 4, 5 /) - - INTEGER, PARAMETER, DIMENSION(6) :: LU_CROW = (/ & - 1, 3, 5, 9, 12, 16 /) - - INTEGER, PARAMETER, DIMENSION(6) :: LU_DIAG = (/ & - 1, 3, 6, 10, 15, 16 /) - - -END MODULE HETCHEM_JacobianSP - diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_JacobianSP.o b/boxmox/compiled_mechs/HETCHEM/HETCHEM_JacobianSP.o deleted file mode 100644 index 7f56c39963d79a28166d89dcc62b5121a8b3f89c..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/HETCHEM_JacobianSP.o and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_LinearAlgebra.f90 b/boxmox/compiled_mechs/HETCHEM/HETCHEM_LinearAlgebra.f90 deleted file mode 100644 index c8a4322e273c29096e7641669c284849ac575b61..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/HETCHEM/HETCHEM_LinearAlgebra.f90 +++ /dev/null @@ -1,1160 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Linear Algebra Data and Routines File -! -! Generated by KPP-2.2.3 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 : HETCHEM_LinearAlgebra.f90 -! Time : Thu Oct 8 08:22:02 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_HETCHEM_12963_BOXMOX -! Equation file : HETCHEM.kpp -! Output root filename : HETCHEM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE HETCHEM_LinearAlgebra - - USE HETCHEM_Parameters - USE HETCHEM_JacobianSP - - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! SPARSE_UTIL - SPARSE utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecomp( JVS, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE HETCHEM_Parameters - USE HETCHEM_JacobianSP - - INTEGER :: IER - REAL(kind=dp) :: JVS(LU_NONZERO), W(NVAR), a - INTEGER :: k, kk, j, jj - - a = 0. ! mz_rs_20050606 - IER = 0 - DO k=1,NVAR - ! mz_rs_20050606: don't check if real value == 0 - ! IF ( JVS( LU_DIAG(k) ) .EQ. 0. ) THEN - IF ( ABS(JVS(LU_DIAG(k))) < TINY(a) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - W( LU_ICOL(kk) ) = JVS(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - a = -W(j) / JVS( LU_DIAG(j) ) - W(j) = -a - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVS(kk) = W( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecomp - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecompCmplx( JVS, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization, complex -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE HETCHEM_Parameters - USE HETCHEM_JacobianSP - - INTEGER :: IER - DOUBLE COMPLEX :: JVS(LU_NONZERO), W(NVAR), a - REAL(kind=dp) :: b = 0.0 - INTEGER :: k, kk, j, jj - - IER = 0 - DO k=1,NVAR - IF ( ABS(JVS(LU_DIAG(k))) < TINY(b) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - W( LU_ICOL(kk) ) = JVS(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - a = -W(j) / JVS( LU_DIAG(j) ) - W(j) = -a - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVS(kk) = W( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecompCmplx - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecompCmplxR( JVSR, JVSI, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization, complex -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE HETCHEM_Parameters - USE HETCHEM_JacobianSP - - INTEGER :: IER - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO) - REAL(kind=dp) :: WR(NVAR), WI(NVAR), ar, ai, den - INTEGER :: k, kk, j, jj - - IER = 0 - ar = 0.0 - DO k=1,NVAR - IF ( ( ABS(JVSR(LU_DIAG(k))) < TINY(ar) ) .AND. & - ( ABS(JVSI(LU_DIAG(k))) < TINY(ar) ) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - WR( LU_ICOL(kk) ) = JVSR(kk) - WI( LU_ICOL(kk) ) = JVSI(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - den = JVSR(LU_DIAG(j))**2 + JVSI(LU_DIAG(j))**2 - ar = -(WR(j)*JVSR(LU_DIAG(j)) + WI(j)*JVSI(LU_DIAG(j)))/den - ai = -(WI(j)*JVSR(LU_DIAG(j)) - WR(j)*JVSI(LU_DIAG(j)))/den - WR(j) = -ar - WI(j) = -ai - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - WR( LU_ICOL(jj) ) = WR( LU_ICOL(jj) ) + ar*JVSR(jj) - ai*JVSI(jj) - WI( LU_ICOL(jj) ) = WI( LU_ICOL(jj) ) + ar*JVSI(jj) + ai*JVSR(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVSR(kk) = WR( LU_ICOL(kk) ) - JVSI(kk) = WI( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecompCmplxR - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveIndirect( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse solve subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE HETCHEM_Parameters - USE HETCHEM_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR), sum - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - X(i) = X(i) - JVS(j)*X(LU_ICOL(j)); - END DO - END DO - - DO i=NVAR,1,-1 - sum = X(i); - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sum = sum - JVS(j)*X(LU_ICOL(j)); - END DO - X(i) = sum/JVS(LU_DIAG(i)); - END DO - -END SUBROUTINE KppSolveIndirect - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRIndirect( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE HETCHEM_Parameters - USE HETCHEM_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR) - - DO i=1,NVAR - X(i) = X(i)/JVS(LU_DIAG(i)) - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - -END SUBROUTINE KppSolveTRIndirect - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveCmplx( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE HETCHEM_Parameters - USE HETCHEM_JacobianSP - - INTEGER :: i, j - DOUBLE COMPLEX :: JVS(LU_NONZERO), X(NVAR), sum - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - X(i) = X(i) - JVS(j)*X(LU_ICOL(j)); - END DO - END DO - - DO i=NVAR,1,-1 - sum = X(i); - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sum = sum - JVS(j)*X(LU_ICOL(j)); - END DO - X(i) = sum/JVS(LU_DIAG(i)); - END DO - -END SUBROUTINE KppSolveCmplx - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveCmplxR( JVSR, JVSI, XR, XI ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve subroutine using indirect addressing -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE HETCHEM_Parameters - USE HETCHEM_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), sumr, sumi, den - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - XR(i) = XR(i) - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j))) - XI(i) = XI(i) - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j))) - END DO - END DO - - DO i=NVAR,1,-1 - sumr = XR(i); sumi = XI(i) - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sumr = sumr - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j))) - sumi = sumi - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j))) - END DO - den = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2 - XR(i) = (sumr*JVSR(LU_DIAG(i)) + sumi*JVSI(LU_DIAG(i)))/den - XI(i) = (sumi*JVSR(LU_DIAG(i)) - sumr*JVSI(LU_DIAG(i)))/den - END DO - -END SUBROUTINE KppSolveCmplxR - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRCmplx( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE HETCHEM_Parameters - USE HETCHEM_JacobianSP - - INTEGER :: i, j - DOUBLE COMPLEX :: JVS(LU_NONZERO), X(NVAR) - - DO i=1,NVAR - X(i) = X(i)/JVS(LU_DIAG(i)) - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - -END SUBROUTINE KppSolveTRCmplx - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRCmplxR( JVSR, JVSI, XR, XI ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE HETCHEM_Parameters - USE HETCHEM_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), den - - DO i=1,NVAR - den = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2 - XR(i) = (XR(i)*JVSR(LU_DIAG(i)) + XI(i)*JVSI(LU_DIAG(i)))/den - XI(i) = (XI(i)*JVSR(LU_DIAG(i)) - XR(i)*JVSI(LU_DIAG(i)))/den - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i)) - XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i)) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i)) - XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i)) - END DO - END DO - -END SUBROUTINE KppSolveTRCmplxR - - -! -! Next few commented subroutines perform sparse big linear algebra -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppDecompBig( JVS, IP, IER ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Sparse LU factorization -!! for the Runge Kutta (3n)x(3n) linear system -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE HETCHEM_Parameters -! USE HETCHEM_JacobianSP -! -! INTEGER :: IP3(3), IER, IP(3,NVAR) -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), W(3,3,NVAR), a(3,3), E(3,3) -! INTEGER :: k, kk, j, jj -! -! a = 0.0d0 -! IER = 0 -! DO k=1,NVAR -! DO kk = LU_CROW(k), LU_CROW(k+1)-1 -! W( 1:3,1:3,LU_ICOL(kk) ) = JVS(1:3,1:3,kk) -! END DO -! DO kk = LU_CROW(k), LU_DIAG(k)-1 -! j = LU_ICOL(kk) -! E(1:3,1:3) = JVS( 1:3,1:3,LU_DIAG(j) ) -! ! CALL DGETRF(3,3,E,3,IP3,IER) -! CALL FAC3(E,IP3,IER) -! IF ( IER /= 0 ) RETURN -! ! a = W(j) / JVS( LU_DIAG(j) ) -! a(1:3,1:3) = W( 1:3,1:3,j ) -! ! CALL DGETRS ('N',3,3,E,3,IP3,a,3,IER) -! CALL SOL3('N',E,IP3,a(1,1)) -! CALL SOL3('N',E,IP3,a(1,2)) -! CALL SOL3('N',E,IP3,a(1,3)) -! W(1:3,1:3,j) = a(1:3,1:3) -! DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 -! W( 1:3,1:3,LU_ICOL(jj) ) = W( 1:3,1:3,LU_ICOL(jj) ) & -! - MATMUL( a(1:3,1:3) , JVS(1:3,1:3,jj) ) -! END DO -! END DO -! DO kk = LU_CROW(k), LU_CROW(k+1)-1 -! JVS(1:3,1:3,kk) = W( 1:3,1:3,LU_ICOL(kk) ) -! END DO -! END DO -! -! DO k=1,NVAR -! ! CALL WGEFA(JVS(1,1,LU_DIAG(k)),3,3,IP(1,k),IER) -! ! CALL DGETRF(3,3,JVS(1,1,LU_DIAG(k)),3,IP(1,k),IER) -! CALL FAC3(JVS(1,1,LU_DIAG(k)),IP(1,k),IER) -! IF ( IER /= 0 ) RETURN -! END DO -! -!END SUBROUTINE KppDecompBig -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppSolveBig( JVS, IP, X ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Sparse solve subroutine using indirect addressing -!! for the Runge Kutta (3n)x(3n) linear system -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE HETCHEM_Parameters -! USE HETCHEM_JacobianSP -! -! INTEGER :: i, j, k, m, IP3(3), IP(3,NVAR), IER -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR), sum(3) -! -! DO i=1,NVAR -! DO j = LU_CROW(i), LU_DIAG(i)-1 -! !X(1:3,i) = X(1:3,i) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j))); -! DO k=1,3 -! DO m=1,3 -! X(k,i) = X(k,i) - JVS(k,m,j)*X(m,LU_ICOL(j)) -! END DO -! END DO -! END DO -! END DO -! -! DO i=NVAR,1,-1 -! sum(1:3) = X(1:3,i); -! DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 -! !sum(1:3) = sum(1:3) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j))); -! DO k=1,3 -! DO m=1,3 -! sum(k) = sum(k) - JVS(k,m,j)*X(m,LU_ICOL(j)) -! END DO -! END DO -! END DO -! ! X(i) = sum/JVS(LU_DIAG(i)); -! ! CALL DGETRS ('N',3,1,JVS(1:3,1:3,LU_DIAG(i)),3,IP(1,i),sum,3,0) -! ! CALL WGESL('N',JVS(1,1,LU_DIAG(i)),3,3,IP(1,i),sum) -! CALL SOL3('N',JVS(1,1,LU_DIAG(i)),IP(1,i),sum) -! X(1:3,i) = sum(1:3) -! END DO -! -!END SUBROUTINE KppSolveBig -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppSolveBigTR( JVS, IP, X ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Big sparse transpose solve using indirect addressing -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE HETCHEM_Parameters -! USE HETCHEM_JacobianSP -! -! INTEGER :: i, j, k, m, IP(3,NVAR) -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR) -! -! DO i=1,NVAR -! ! X(i) = X(i)/JVS(LU_DIAG(i)) -! CALL SOL3('T',JVS(1,1,LU_DIAG(i)),IP(1,i),X(1,i)) -! DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 -! !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) & -! ! - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) ) -! DO k=1,3 -! DO m=1,3 -! X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i) -! END DO -! END DO -! END DO -! END DO -! -! DO i=NVAR, 1, -1 -! DO j=LU_CROW(i),LU_DIAG(i)-1 -! !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) & -! ! - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) ) -! DO k=1,3 -! DO m=1,3 -! X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i) -! END DO -! END DO -! END DO -! END DO -! -!END SUBROUTINE KppSolveBigTR -! -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE FAC3(A,IPVT,INFO) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! FAC3 FACTORS THE MATRIX A (3,3) BY -!! GAUSS ELIMINATION WITH PARTIAL PIVOTING -!! LINPACK - LIKE -!! -!! Remove comments to perform pivoting -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! -! REAL(kind=dp) :: A(3,3) -! INTEGER :: IPVT(3),INFO -!! INTEGER :: L -!! REAL(kind=dp) :: t, dmax, da, TMP(3) -! REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0 -! -! info = 0 -!! t = TINY(da) -!! -!! da = ABS(A(1,1)); L = 1 -!! IF ( ABS(A(2,1))>da ) THEN -!! da = ABS(A(2,1)); L = 2 -!! IF ( ABS(A(3,1))>da ) THEN -!! L = 3 -!! END IF -!! END IF -!! IPVT(1) = L -!! IF (L /=1 ) THEN -!! TMP(1:3) = A(L,1:3) -!! A(L,1:3) = A(1,1:3) -!! A(1,1:3) = TMP(1:3) -!! END IF -!! IF (ABS(A(1,1)) < t) THEN -!! info = 1 -!! return -!! END IF -!! -! A(2,1) = A(2,1)/A(1,1) -! A(2,2) = A(2,2) - A(2,1)*A(1,2) -! A(2,3) = A(2,3) - A(2,1)*A(1,3) -! A(3,1) = A(3,1)/A(1,1) -! A(3,2) = A(3,2) - A(3,1)*A(1,2) -! A(3,3) = A(3,3) - A(3,1)*A(1,3) -! -!! IPVT(2) = 2 -!! IF (ABS(A(3,2))>ABS(A(2,2))) THEN -!! IPVT(2) = 3 -!! TMP(2:3) = A(3,2:3) -!! A(3,2:3) = A(2,2:3) -!! A(2,2:3) = TMP(2:3) -!! END IF -!! IF (ABS(A(2,2)) < t) THEN -!! info = 1 -!! return -!! END IF -!! -! A(3,2) = A(3,2)/A(2,2) -! A(3,3) = A(3,3) - A(3,2)*A(2,3) -! IPVT(3) = 3 -! -!END SUBROUTINE FAC3 -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE SOL3(Trans,A,IPVT,b) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! SOL3 solves the system 3x3 -!! A * x = b or trans(a) * x = b -!! using the factors computed by WGEFA. -!! -!! Trans = 'N' to solve A*x = b , -!! = 'T' to solve transpose(A)*x = b -!! LINPACK - LIKE -!! -!! Remove comments to use pivoting -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! CHARACTER :: Trans -! REAL(kind=dp) :: a(3,3),b(3) -! INTEGER :: IPVT(3) -!! INTEGER :: L -!! REAL(kind=dp) :: TMP -! -! SELECT CASE (Trans) -! -! CASE ('n','N') ! Solve A * x = b -! -!! Solve L*y = b -!! L = IPVT(1) -!! IF (L /= 1) THEN -!! TMP = B(1); B(1) = B(L); B(L) = TMP -!! END IF -! b(2) = b(2)-A(2,1)*b(1) -! b(3) = b(3)-A(3,1)*b(1) -! -!! L = IPVT(2) -!! IF (L /= 2) THEN -!! TMP = B(2); B(2) = B(L); B(L) = TMP -!! END IF -! b(3) = b(3)-A(3,2)*b(2) -! -!! Solve U*x = y -! b(3) = b(3)/A(3,3) -! b(2) = (b(2)-A(2,3)*b(3))/A(2,2) -! b(1) = (b(1)-A(1,3)*b(3)-A(1,2)*b(2))/A(1,1) -! -! -! CASE ('t','T') ! Solve transpose(A) * x = b -! -!! Solve transpose(U)*y = b -! b(1) = b(1)/A(1,1) -! b(2) = (b(2)-A(1,2)*b(1))/A(2,2) -! b(3) = (b(3)-A(1,3)*b(1)-A(2,3)*b(2))/A(3,3) -! -!! Solve transpose(L)*x = y -! b(2) = b(2)-A(3,2)*b(3) -!! L = ipvt(2) -!! IF (L /= 2) THEN -!! TMP = B(2); B(2) = B(L); B(L) = TMP -!! END IF -! b(1) = b(1)-A(3,1)*b(3)-A(2,1)*b(2) -!! L = ipvt(1) -!! IF (L /= 1) THEN -!! TMP = B(1); B(1) = B(L); B(L) = TMP -!! END IF -! -! END SELECT -! -!END SUBROUTINE SOL3 - -! End of SPARSE_UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! KppSolve - sparse back substitution -! Arguments : -! JVS - sparse Jacobian of variables -! X - Vector for variables -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE KppSolve ( JVS, X ) - -! JVS - sparse Jacobian of variables - REAL(kind=dp) :: JVS(LU_NONZERO) -! X - Vector for variables - REAL(kind=dp) :: X(NVAR) - - X(3) = X(3)-JVS(5)*X(2) - X(4) = X(4)-JVS(9)*X(3) - X(5) = X(5)-JVS(12)*X(2)-JVS(13)*X(3)-JVS(14)*X(4) - X(5) = X(5)/JVS(15) - X(4) = (X(4)-JVS(11)*X(5))/(JVS(10)) - X(3) = (X(3)-JVS(7)*X(4)-JVS(8)*X(5))/(JVS(6)) - X(2) = (X(2)-JVS(4)*X(5))/(JVS(3)) - X(1) = (X(1)-JVS(2)*X(4))/(JVS(1)) - -END SUBROUTINE KppSolve - -! End of KppSolve function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! KppSolveTR - sparse, transposed back substitution -! Arguments : -! JVS - sparse Jacobian of variables -! X - Vector for variables -! XX - Vector for output variables -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE KppSolveTR ( JVS, X, XX ) - -! JVS - sparse Jacobian of variables - REAL(kind=dp) :: JVS(LU_NONZERO) -! X - Vector for variables - REAL(kind=dp) :: X(NVAR) -! XX - Vector for output variables - REAL(kind=dp) :: XX(NVAR) - - XX(1) = X(1)/JVS(1) - XX(2) = X(2)/JVS(3) - XX(3) = X(3)/JVS(6) - XX(4) = (X(4)-JVS(2)*XX(1)-JVS(7)*XX(3))/(JVS(10)) - XX(5) = (X(5)-JVS(4)*XX(2)-JVS(8)*XX(3)-JVS(11)*XX(4))/(JVS(15)) - XX(5) = XX(5) - XX(4) = XX(4)-JVS(14)*XX(5) - XX(3) = XX(3)-JVS(9)*XX(4)-JVS(13)*XX(5) - XX(2) = XX(2)-JVS(5)*XX(3)-JVS(12)*XX(5) - XX(1) = XX(1) - -END SUBROUTINE KppSolveTR - -! End of KppSolveTR function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! BLAS_UTIL - BLAS-LIKE utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!-------------------------------------------------------------- -! -! BLAS/LAPACK-like subroutines used by the integration algorithms -! It is recommended to replace them by calls to the optimized -! BLAS/LAPACK library for your machine -! -! (C) Adrian Sandu, Aug. 2004 -! Virginia Polytechnic Institute and State University -!-------------------------------------------------------------- - - -!-------------------------------------------------------------- - SUBROUTINE WCOPY(N,X,incX,Y,incY) -!-------------------------------------------------------------- -! copies a vector, x, to a vector, y: y <- x -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SCOPY(N,X,1,Y,1) or CALL DCOPY(N,X,1,Y,1) -!-------------------------------------------------------------- -! USE HETCHEM_Precision - - INTEGER :: i,incX,incY,M,MP1,N - REAL(kind=dp) :: X(N),Y(N) - - IF (N.LE.0) RETURN - - M = MOD(N,8) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = X(i) - END DO - IF( N .LT. 8 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,8 - Y(i) = X(i) - Y(i + 1) = X(i + 1) - Y(i + 2) = X(i + 2) - Y(i + 3) = X(i + 3) - Y(i + 4) = X(i + 4) - Y(i + 5) = X(i + 5) - Y(i + 6) = X(i + 6) - Y(i + 7) = X(i + 7) - END DO - - END SUBROUTINE WCOPY - - -!-------------------------------------------------------------- - SUBROUTINE WAXPY(N,Alpha,X,incX,Y,incY) -!-------------------------------------------------------------- -! constant times a vector plus a vector: y <- y + Alpha*x -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SAXPY(N,Alpha,X,1,Y,1) or CALL DAXPY(N,Alpha,X,1,Y,1) -!-------------------------------------------------------------- - - INTEGER :: i,incX,incY,M,MP1,N - REAL(kind=dp) :: X(N),Y(N),Alpha - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp - - IF (Alpha .EQ. ZERO) RETURN - IF (N .LE. 0) RETURN - - M = MOD(N,4) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = Y(i) + Alpha*X(i) - END DO - IF( N .LT. 4 ) RETURN - END IF - MP1 = M + 1 - DO i = MP1,N,4 - Y(i) = Y(i) + Alpha*X(i) - Y(i + 1) = Y(i + 1) + Alpha*X(i + 1) - Y(i + 2) = Y(i + 2) + Alpha*X(i + 2) - Y(i + 3) = Y(i + 3) + Alpha*X(i + 3) - END DO - - END SUBROUTINE WAXPY - - - -!-------------------------------------------------------------- - SUBROUTINE WSCAL(N,Alpha,X,incX) -!-------------------------------------------------------------- -! constant times a vector: x(1:N) <- Alpha*x(1:N) -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SSCAL(N,Alpha,X,1) or CALL DSCAL(N,Alpha,X,1) -!-------------------------------------------------------------- - - INTEGER :: i,incX,M,MP1,N - REAL(kind=dp) :: X(N),Alpha - REAL(kind=dp), PARAMETER :: ZERO=0.0_dp, ONE=1.0_dp - - IF (Alpha .EQ. ONE) RETURN - IF (N .LE. 0) RETURN - - M = MOD(N,5) - IF( M .NE. 0 ) THEN - IF (Alpha .EQ. (-ONE)) THEN - DO i = 1,M - X(i) = -X(i) - END DO - ELSEIF (Alpha .EQ. ZERO) THEN - DO i = 1,M - X(i) = ZERO - END DO - ELSE - DO i = 1,M - X(i) = Alpha*X(i) - END DO - END IF - IF( N .LT. 5 ) RETURN - END IF - MP1 = M + 1 - IF (Alpha .EQ. (-ONE)) THEN - DO i = MP1,N,5 - X(i) = -X(i) - X(i + 1) = -X(i + 1) - X(i + 2) = -X(i + 2) - X(i + 3) = -X(i + 3) - X(i + 4) = -X(i + 4) - END DO - ELSEIF (Alpha .EQ. ZERO) THEN - DO i = MP1,N,5 - X(i) = ZERO - X(i + 1) = ZERO - X(i + 2) = ZERO - X(i + 3) = ZERO - X(i + 4) = ZERO - END DO - ELSE - DO i = MP1,N,5 - X(i) = Alpha*X(i) - X(i + 1) = Alpha*X(i + 1) - X(i + 2) = Alpha*X(i + 2) - X(i + 3) = Alpha*X(i + 3) - X(i + 4) = Alpha*X(i + 4) - END DO - END IF - - END SUBROUTINE WSCAL - -!-------------------------------------------------------------- - REAL(kind=dp) FUNCTION WLAMCH( C ) -!-------------------------------------------------------------- -! returns epsilon machine -! after LAPACK -! replace this by the function from the optimized LAPACK implementation: -! CALL SLAMCH('E') or CALL DLAMCH('E') -!-------------------------------------------------------------- -! USE HETCHEM_Precision - - CHARACTER :: C - INTEGER :: i - REAL(kind=dp), SAVE :: Eps - REAL(kind=dp) :: Suma - REAL(kind=dp), PARAMETER :: ONE=1.0_dp, HALF=0.5_dp - LOGICAL, SAVE :: First=.TRUE. - - IF (First) THEN - First = .FALSE. - Eps = HALF**(16) - DO i = 17, 80 - Eps = Eps*HALF - CALL WLAMCH_ADD(ONE,Eps,Suma) - IF (Suma.LE.ONE) GOTO 10 - END DO - PRINT*,'ERROR IN WLAMCH. EPS < ',Eps - RETURN -10 Eps = Eps*2 - i = i-1 - END IF - - WLAMCH = Eps - - END FUNCTION WLAMCH - - SUBROUTINE WLAMCH_ADD( A, B, Suma ) -! USE HETCHEM_Precision - - REAL(kind=dp) A, B, Suma - Suma = A + B - - END SUBROUTINE WLAMCH_ADD -!-------------------------------------------------------------- - - -!-------------------------------------------------------------- - SUBROUTINE SET2ZERO(N,Y) -!-------------------------------------------------------------- -! copies zeros into the vector y: y <- 0 -! after BLAS -!-------------------------------------------------------------- - - INTEGER :: i,M,MP1,N - REAL(kind=dp) :: Y(N) - REAL(kind=dp), PARAMETER :: ZERO = 0.0d0 - - IF (N.LE.0) RETURN - - M = MOD(N,8) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = ZERO - END DO - IF( N .LT. 8 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,8 - Y(i) = ZERO - Y(i + 1) = ZERO - Y(i + 2) = ZERO - Y(i + 3) = ZERO - Y(i + 4) = ZERO - Y(i + 5) = ZERO - Y(i + 6) = ZERO - Y(i + 7) = ZERO - END DO - - END SUBROUTINE SET2ZERO - - -!-------------------------------------------------------------- - REAL(kind=dp) FUNCTION WDOT (N, DX, incX, DY, incY) -!-------------------------------------------------------------- -! dot produce: wdot = x(1:N)*y(1:N) -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SDOT(N,X,1,Y,1) or CALL DDOT(N,X,1,Y,1) -!-------------------------------------------------------------- -! USE messy_mecca_kpp_Precision -!-------------------------------------------------------------- - IMPLICIT NONE - INTEGER :: N, incX, incY - REAL(kind=dp) :: DX(N), DY(N) - - INTEGER :: i, IX, IY, M, MP1, NS - - WDOT = 0.0D0 - IF (N .LE. 0) RETURN - IF (incX .EQ. incY) IF (incX-1) 5,20,60 -! -! Code for unequal or nonpositive increments. -! - 5 IX = 1 - IY = 1 - IF (incX .LT. 0) IX = (-N+1)*incX + 1 - IF (incY .LT. 0) IY = (-N+1)*incY + 1 - DO i = 1,N - WDOT = WDOT + DX(IX)*DY(IY) - IX = IX + incX - IY = IY + incY - END DO - RETURN -! -! Code for both increments equal to 1. -! -! Clean-up loop so remaining vector length is a multiple of 5. -! - 20 M = MOD(N,5) - IF (M .EQ. 0) GO TO 40 - DO i = 1,M - WDOT = WDOT + DX(i)*DY(i) - END DO - IF (N .LT. 5) RETURN - 40 MP1 = M + 1 - DO i = MP1,N,5 - WDOT = WDOT + DX(i)*DY(i) + DX(i+1)*DY(i+1) + DX(i+2)*DY(i+2) + & - DX(i+3)*DY(i+3) + DX(i+4)*DY(i+4) - END DO - RETURN -! -! Code for equal, positive, non-unit increments. -! - 60 NS = N*incX - DO i = 1,NS,incX - WDOT = WDOT + DX(i)*DY(i) - END DO - - END FUNCTION WDOT - - -!-------------------------------------------------------------- - SUBROUTINE WADD(N,X,Y,Z) -!-------------------------------------------------------------- -! adds two vectors: z <- x + y -! BLAS - like -!-------------------------------------------------------------- -! USE HETCHEM_Precision - - INTEGER :: i, M, MP1, N - REAL(kind=dp) :: X(N),Y(N),Z(N) - - IF (N.LE.0) RETURN - - M = MOD(N,5) - IF( M /= 0 ) THEN - DO i = 1,M - Z(i) = X(i) + Y(i) - END DO - IF( N < 5 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,5 - Z(i) = X(i) + Y(i) - Z(i + 1) = X(i + 1) + Y(i + 1) - Z(i + 2) = X(i + 2) + Y(i + 2) - Z(i + 3) = X(i + 3) + Y(i + 3) - Z(i + 4) = X(i + 4) + Y(i + 4) - END DO - - END SUBROUTINE WADD - - - -!-------------------------------------------------------------- - SUBROUTINE WGEFA(N,A,Ipvt,info) -!-------------------------------------------------------------- -! WGEFA FACTORS THE MATRIX A (N,N) BY -! GAUSS ELIMINATION WITH PARTIAL PIVOTING -! LINPACK - LIKE -!-------------------------------------------------------------- -! - INTEGER :: N,Ipvt(N),info - REAL(kind=dp) :: A(N,N) - REAL(kind=dp) :: t, dmax, da - INTEGER :: j,k,l - REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0 - - info = 0 - -size: IF (n > 1) THEN - -col: DO k = 1, n-1 - -! find l = pivot index -! l = idamax(n-k+1,A(k,k),1) + k - 1 - l = k; dmax = abs(A(k,k)) - DO j = k+1,n - da = ABS(A(j,k)) - IF (da > dmax) THEN - l = j; dmax = da - END IF - END DO - Ipvt(k) = l - -! zero pivot implies this column already triangularized - IF (ABS(A(l,k)) < TINY(ZERO)) THEN - info = k - return - ELSE - IF (l /= k) THEN - t = A(l,k); A(l,k) = A(k,k); A(k,k) = t - END IF - t = -ONE/A(k,k) - CALL WSCAL(n-k,t,A(k+1,k),1) - DO j = k+1, n - t = A(l,j) - IF (l /= k) THEN - A(l,j) = A(k,j); A(k,j) = t - END IF - CALL WAXPY(n-k,t,A(k+1,k),1,A(k+1,j),1) - END DO - END IF - - END DO col - - END IF size - - Ipvt(N) = N - IF (ABS(A(N,N)) == ZERO) info = N - - END SUBROUTINE WGEFA - - -!-------------------------------------------------------------- - SUBROUTINE WGESL(Trans,N,A,Ipvt,b) -!-------------------------------------------------------------- -! WGESL solves the system -! a * x = b or trans(a) * x = b -! using the factors computed by WGEFA. -! -! Trans = 'N' to solve A*x = b , -! = 'T' to solve transpose(A)*x = b -! LINPACK - LIKE -!-------------------------------------------------------------- - - INTEGER :: N,Ipvt(N) - CHARACTER :: trans - REAL(kind=dp) :: A(N,N),b(N) - REAL(kind=dp) :: t - INTEGER :: k,kb,l - - - SELECT CASE (Trans) - - CASE ('n','N') ! Solve A * x = b - -! first solve L*y = b - IF (n >= 2) THEN - DO k = 1, n-1 - l = Ipvt(k) - t = b(l) - IF (l /= k) THEN - b(l) = b(k) - b(k) = t - END IF - CALL WAXPY(n-k,t,a(k+1,k),1,b(k+1),1) - END DO - END IF -! now solve U*x = y - DO kb = 1, n - k = n + 1 - kb - b(k) = b(k)/a(k,k) - t = -b(k) - CALL WAXPY(k-1,t,a(1,k),1,b(1),1) - END DO - - CASE ('t','T') ! Solve transpose(A) * x = b - -! first solve trans(U)*y = b - DO k = 1, n - t = WDOT(k-1,a(1,k),1,b(1),1) - b(k) = (b(k) - t)/a(k,k) - END DO -! now solve trans(L)*x = y - IF (n >= 2) THEN - DO kb = 1, n-1 - k = n - kb - b(k) = b(k) + WDOT(n-k,a(k+1,k),1,b(k+1),1) - l = Ipvt(k) - IF (l /= k) THEN - t = b(l); b(l) = b(k); b(k) = t - END IF - END DO - END IF - - END SELECT - - END SUBROUTINE WGESL -! End of BLAS_UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE HETCHEM_LinearAlgebra - diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_LinearAlgebra.o b/boxmox/compiled_mechs/HETCHEM/HETCHEM_LinearAlgebra.o deleted file mode 100644 index 5131430d08f58336df23c6624cd16a1d5fe86280..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/HETCHEM_LinearAlgebra.o and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Main.f90 b/boxmox/compiled_mechs/HETCHEM/HETCHEM_Main.f90 deleted file mode 100644 index 45c8cb76d6fa08097daa9a90c4ddad71c33ddd31..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Main.f90 +++ /dev/null @@ -1,161 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Main Program File -! -! Generated by KPP-2.2.3 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 : HETCHEM_Main.f90 -! Time : Thu Oct 8 08:22:02 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_HETCHEM_12963_BOXMOX -! Equation file : HETCHEM.kpp -! Output root filename : HETCHEM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! MAIN - Main program - driver routine -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -PROGRAM HETCHEM_Driver - - USE HETCHEM_Model - USE HETCHEM_Initialize, ONLY: Initialize - - REAL(kind=dp) :: T, DVAL(NSPEC) - REAL(kind=dp) :: RSTATE(20) - INTEGER :: IERR - INTEGER :: i, tcount, ttot - CHARACTER(LEN=60), PARAMETER :: & - brk = "------------------------------------------------------------" - - !~~~> Initialization - - STEPMIN = 0.0d0 - STEPMAX = 0.0d0 - - DO i=1,NVAR - RTOL(i) = 1.0d-4 - ATOL(i) = 1.0d-3 - END DO - - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX (__BOXMOX_VERSION__) driver" - WRITE(*,*) brk - WRITE(*,*) " " - - CALL Initialize() - - WRITE(*,*) brk - WRITE(*,*) " " - - CALL UpdateEnvironment() - - CALL readInput('InitialConditions.csv', NSPEC, SPC_NAMES, C, & - InitialCondition) - CALL InitSaveData() - - CALL InitFixNOx(NSPEC, SPC_NAMES, C) - - !~~~> Time loop - T = TSTART - tcount = 1 - ttot = NINT((TEND - TSTART) / DT) - kron: DO WHILE (T < TEND) - - IF (lverbose) THEN - WRITE(*,*) "" - WRITE(*,"(1X,A,F8.2,A)") "-------------------- time (s): ", T, & - " --------------------" - WRITE(*,*) "" - ENDIF - - TIME = T - CALL GetMass( C, DVAL ) - CALL SaveData() - - CALL UpdateEnvironment() - CALL UpdateAerosol() - CALL UpdatePhotolysisRates() - - CALL UpdateKturb() - - CALL readInput('Background.csv', NSPEC, SPC_NAMES, C, Mix, lzero=.TRUE.) - CALL readInput('Emissions.csv', NSPEC, SPC_NAMES, C, Emission) - CALL readInput('Deposition.csv', NSPEC, SPC_NAMES, C, Deposition) - - CALL Update_SUN() - CALL Update_RCONST() - - IF (T == TSTART) WRITE(*,*) " " - - IF ( MOD(tcount * 10, ttot) .EQ. 0 ) THEN - WRITE(6,991) (T-TSTART)/(TEND-TSTART)*100, T, & - ( TRIM(SPC_NAMES(MONITOR(i))), & - C(MONITOR(i))/CFACTOR, i=1,NMONITOR ) - ENDIF - - IF (lfix_NOx) THEN - CALL FixNOx(NSPEC, SPC_NAMES, C) - ENDIF - - CALL INTEGRATE( TIN = T, TOUT = T+DT, RSTATUS_U = RSTATE, & - ICNTRL_U = (/ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /), & - IERR_U = IERR ) - T = RSTATE(1) - - tcount = tcount + 1 - - IF (IERR < 0) THEN - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX integration failed, stopping." - WRITE(*,*) brk - WRITE(*,*) " " - STOP 1 - ENDIF - - IF (T == TSTART .OR. lverbose) THEN - WRITE(*,*) "" - WRITE(*,*) brk - WRITE(*,*) "" - ENDIF - - END DO kron - !~~~> End Time loop - - CALL GetMass( C, DVAL ) - WRITE(6,991) (T-TSTART)/(TEND-TSTART)*100, T, & - ( TRIM(SPC_NAMES(MONITOR(i))), & - C(MONITOR(i))/CFACTOR, i=1,NMONITOR ) - TIME = T - CALL SaveData() - CALL CloseSaveData() - - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX successfully completed." - WRITE(*,*) brk - WRITE(*,*) " " - -991 FORMAT(F6.1,'%. T=',E9.3,2X,200(A,'=',E11.4,'; ')) - -END PROGRAM HETCHEM_Driver - -! End of MAIN function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Main.o b/boxmox/compiled_mechs/HETCHEM/HETCHEM_Main.o deleted file mode 100644 index a59ff88ce1178b278641f76bc5bccd407e5b389b..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Main.o and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Model.f90 b/boxmox/compiled_mechs/HETCHEM/HETCHEM_Model.f90 deleted file mode 100644 index fbd401a663de028eaf5b9167d46fcbe207abae74..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Model.f90 +++ /dev/null @@ -1,21 +0,0 @@ -MODULE HETCHEM_Model - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Completely defines the model HETCHEM -! by using all the associated modules -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE HETCHEM_Precision - USE HETCHEM_Parameters - USE HETCHEM_Global - USE HETCHEM_Function - USE HETCHEM_Integrator - USE HETCHEM_Rates - USE HETCHEM_Jacobian - USE HETCHEM_Stoichiom - USE HETCHEM_LinearAlgebra - USE HETCHEM_Monitor - USE HETCHEM_Util - -END MODULE HETCHEM_Model - diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Model.o b/boxmox/compiled_mechs/HETCHEM/HETCHEM_Model.o deleted file mode 100644 index 16121a5775adf7e6cc4cd78511389c12016f45da..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Model.o and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Monitor.f90 b/boxmox/compiled_mechs/HETCHEM/HETCHEM_Monitor.f90 deleted file mode 100644 index 696a44467f29746fe9adc55901f5a19cd368df2e..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Monitor.f90 +++ /dev/null @@ -1,49 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Utility Data Module File -! -! Generated by KPP-2.2.3 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 : HETCHEM_Monitor.f90 -! Time : Thu Oct 8 08:22:02 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_HETCHEM_12963_BOXMOX -! Equation file : HETCHEM.kpp -! Output root filename : HETCHEM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE HETCHEM_Monitor - - - CHARACTER(LEN=15), PARAMETER, DIMENSION(7) :: SPC_NAMES = (/ & - 'HNO3 ','O3 ','NO3 ', & - 'N2O5 ','NO2 ','M ', & - 'O2 ' /) - - INTEGER, PARAMETER, DIMENSION(7) :: LOOKAT = (/ & - 1, 2, 3, 4, 5, 6, 7 /) - - INTEGER, DIMENSION(1) :: MONITOR - CHARACTER(LEN=15), DIMENSION(1) :: SMASS - CHARACTER(LEN=500), PARAMETER, DIMENSION(4) :: EQN_NAMES = (/ & - ' O3 + NO2 --> NO3 + O2 ', & - 'NO3 + NO2 --> N2O5 ', & - ' N2O5 + M --> NO3 + NO2 + M ', & - ' N2O5 --> 2 HNO3 ' /) - -! INLINED global variables - -! End INLINED global variables - - -END MODULE HETCHEM_Monitor diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Monitor.o b/boxmox/compiled_mechs/HETCHEM/HETCHEM_Monitor.o deleted file mode 100644 index 3b816417738cdd301a1d5c6001e8ee44fe4ce0cd..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Monitor.o and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Parameters.f90 b/boxmox/compiled_mechs/HETCHEM/HETCHEM_Parameters.f90 deleted file mode 100644 index 07922fead5a9093c5689f914a6ffe1d738d98606..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Parameters.f90 +++ /dev/null @@ -1,89 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Parameter Module File -! -! Generated by KPP-2.2.3 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 : HETCHEM_Parameters.f90 -! Time : Thu Oct 8 08:22:02 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_HETCHEM_12963_BOXMOX -! Equation file : HETCHEM.kpp -! Output root filename : HETCHEM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE HETCHEM_Parameters - - USE HETCHEM_Precision - PUBLIC - SAVE - - -! NSPEC - Number of chemical species - INTEGER, PARAMETER :: NSPEC = 7 -! NVAR - Number of Variable species - INTEGER, PARAMETER :: NVAR = 5 -! NVARACT - Number of Active species - INTEGER, PARAMETER :: NVARACT = 4 -! NFIX - Number of Fixed species - INTEGER, PARAMETER :: NFIX = 2 -! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 4 -! NVARST - Starting of variables in conc. vect. - INTEGER, PARAMETER :: NVARST = 1 -! NFIXST - Starting of fixed in conc. vect. - INTEGER, PARAMETER :: NFIXST = 6 -! NONZERO - Number of nonzero entries in Jacobian - INTEGER, PARAMETER :: NONZERO = 15 -! LU_NONZERO - Number of nonzero entries in LU factoriz. of Jacobian - INTEGER, PARAMETER :: LU_NONZERO = 15 -! CNVAR - (NVAR+1) Number of elements in compressed row format - INTEGER, PARAMETER :: CNVAR = 6 -! CNEQN - (NREACT+1) Number stoicm elements in compressed col format - INTEGER, PARAMETER :: CNEQN = 5 -! NLOOKAT - Number of species to look at - INTEGER, PARAMETER :: NLOOKAT = 7 -! NMONITOR - Number of species to monitor - INTEGER, PARAMETER :: NMONITOR = 0 -! NMASS - Number of atoms to check mass balance - INTEGER, PARAMETER :: NMASS = 1 - -! Index declaration for variable species in C and VAR -! VAR(ind_spc) = C(ind_spc) - - INTEGER, PARAMETER :: ind_HNO3 = 1 - INTEGER, PARAMETER :: ind_O3 = 2 - INTEGER, PARAMETER :: ind_NO3 = 3 - INTEGER, PARAMETER :: ind_N2O5 = 4 - INTEGER, PARAMETER :: ind_NO2 = 5 - -! Index declaration for fixed species in C -! C(ind_spc) - - INTEGER, PARAMETER :: ind_M = 6 - INTEGER, PARAMETER :: ind_O2 = 7 - -! Index declaration for fixed species in FIX -! FIX(indf_spc) = C(ind_spc) = C(NVAR+indf_spc) - - INTEGER, PARAMETER :: indf_M = 1 - INTEGER, PARAMETER :: indf_O2 = 2 - -! NJVRP - Length of sparse Jacobian JVRP - INTEGER, PARAMETER :: NJVRP = 6 - -! NSTOICM - Length of Sparse Stoichiometric Matrix - INTEGER, PARAMETER :: NSTOICM = 11 - -END MODULE HETCHEM_Parameters - diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Parameters.o b/boxmox/compiled_mechs/HETCHEM/HETCHEM_Parameters.o deleted file mode 100644 index 3fa5a6ad123097bd8f550fd1cf1a7a1c29fe6bee..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Parameters.o and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Precision.f90 b/boxmox/compiled_mechs/HETCHEM/HETCHEM_Precision.f90 deleted file mode 100644 index ca17b24f049713dd7574b4d34a4aaa1ffc34ef3d..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Precision.f90 +++ /dev/null @@ -1,17 +0,0 @@ - -MODULE HETCHEM_Precision - -! -! Definition of different levels of accuracy -! for REAL variables using KIND parameterization -! -! KPP SP - Single precision kind - INTEGER, PARAMETER :: sp = SELECTED_REAL_KIND(6,30) -! KPP DP - Double precision kind - INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(14,300) -! KPP QP - Quadruple precision kind - INTEGER, PARAMETER :: qp = SELECTED_REAL_KIND(18,400) - -END MODULE HETCHEM_Precision - - diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Precision.o b/boxmox/compiled_mechs/HETCHEM/HETCHEM_Precision.o deleted file mode 100644 index 9b95113b6b9875f25fb6a73d0974bee85ee98f8b..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Precision.o and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Rates.f90 b/boxmox/compiled_mechs/HETCHEM/HETCHEM_Rates.f90 deleted file mode 100644 index 7f4fed691568b116a0aea29069bf2524556ef80f..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Rates.f90 +++ /dev/null @@ -1,462 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The Reaction Rates File -! -! Generated by KPP-2.2.3 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 : HETCHEM_Rates.f90 -! Time : Thu Oct 8 08:22:02 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_HETCHEM_12963_BOXMOX -! Equation file : HETCHEM.kpp -! Output root filename : HETCHEM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE HETCHEM_Rates - - USE HETCHEM_Parameters - USE HETCHEM_Global - USE HETCHEM_Util - IMPLICIT NONE - -CONTAINS - - - -! Begin Rate Law Functions from KPP_HOME/util/UserRateLaws - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! User-defined Rate Law functions -! Note: the default argument type for rate laws, as read from the equations file, is single precision -! but all the internal calculations are performed in double precision -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~> Arrhenius -! REAL(kind=dp) FUNCTION ARR( A0,B0,C0 ) -! REAL A0,B0,C0 -! ARR = DBLE(A0) * EXP(-DBLE(B0)/TEMP) * (TEMP/300.0_dp)**DBLE(C0) -! END FUNCTION ARR - -! Arrhenius (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION ARR( A0,B0,C0, TEMP ) - REAL(kind=dp) :: TEMP - REAL(kind=dp) A0,B0,C0 - ARR = A0 * EXP( -B0 /TEMP ) * (TEMP/300._dp)**C0 - END FUNCTION ARR - -!~~~> Simplified Arrhenius, with two arguments -!~~~> Note: The argument B0 has a changed sign when compared to ARR -! REAL(kind=dp) FUNCTION ARR2( A0,B0 ) -! REAL A0,B0 -! ARR2 = DBLE(A0) * EXP( DBLE(B0)/TEMP ) -! END FUNCTION ARR2 -! CK 20140313 WRF-chem uses different kind of Arrhenius function -! with TEMP as argument... - REAL(kind=dp) FUNCTION ARR2( A0,B0, TEMP ) - REAL(kind=dp) :: TEMP - REAL(kind=dp) A0,B0 - ARR2 = A0 * EXP( -B0 /TEMP ) - END FUNCTION ARR2 -! CK 20140313 end - -! REAL(kind=dp) FUNCTION EP2(A0,C0,A2,C2,A3,C3) -! REAL A0,C0,A2,C2,A3,C3 -! REAL(kind=dp) K0,K2,K3 -! K0 = DBLE(A0) * EXP(-DBLE(C0)/TEMP) -! K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP) -! K3 = DBLE(A3) * EXP(-DBLE(C3)/TEMP) -! K3 = K3*CFACTOR*1.0E6_dp -! EP2 = K0 + K3/(1.0_dp+K3/K2 ) -! END FUNCTION EP2 - -! REAL(kind=dp) FUNCTION EP3(A1,C1,A2,C2) -! REAL A1, C1, A2, C2 -! REAL(kind=dp) K1, K2 -! K1 = DBLE(A1) * EXP(-DBLE(C1)/TEMP) -! K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP) -! EP3 = K1 + K2*(1.0E6_dp*CFACTOR) -! END FUNCTION EP3 - -! EP2 (added by psaide 22-07-2009) - REAL(kind=dp) FUNCTION EP2( A0,C0,A2,C2,A3,C3,TEMP,cair) - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A0,C0,A2,C2,A3,C3 - REAL(kind=dp) K0,K2,K3 - - K0 = A0 * EXP(-C0 /TEMP) - K2 = A2 * EXP(-C2 /TEMP) - K3 = A3 * EXP(-C3 /TEMP) -! K3 = K3 * 2.45E13_dp * 1.0E6_dp - K3 = K3 * cair - EP2 = K0 + K3/(1._dp+K3/K2 ) - END FUNCTION EP2 - -! EP3 (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION EP3(A1,C1,A2,C2,TEMP,cair) - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A1, C1, A2, C2 - REAL(kind=dp) K1, K2 - - K1 = A1 * EXP(-C1 /TEMP) - K2 = A2 * EXP(-C2 /TEMP) -! EP3 = K1 + K2*(1.0E6_dp * 2.45E13_dp) - EP3 = K1 + K2*cair - END FUNCTION EP3 - - -! REAL(kind=dp) FUNCTION FALL ( A0,B0,C0,A1,B1,C1,CF) -! REAL A0,B0,C0,A1,B1,C1,CF -! REAL(kind=dp) K0, K1 -! K0 = DBLE(A0) * EXP(-DBLE(B0)/TEMP)* (TEMP/300.0_dp)**DBLE(C0) -! K1 = DBLE(A1) * EXP(-DBLE(B1)/TEMP)* (TEMP/300.0_dp)**DBLE(C1) -! K0 = K0*CFACTOR*1.0E6_dp -! K1 = K0/K1 -! FALL = (K0/(1.0_dp+K1))* & -! DBLE(CF)**(1.0_dp/(1.0_dp+(LOG10(K1))**2)) -! END FUNCTION FALL - -! FALL (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION FALL( A0,B0,C0,A1,B1,C1,CF,TEMP,cair) - - INTRINSIC LOG10 - - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A0,B0,C0,A1,B1,C1,CF - REAL(kind=dp) K0, K1 - - K0 = A0 * EXP(-B0 /TEMP)* (TEMP/300._dp)**C0 - K1 = A1 * EXP(-B1 /TEMP)* (TEMP/300._dp)**C1 -! K0 = K0 * 2.45E13_dp * 1.0E6_dp - K0 = K0 * cair - K1 = K0/K1 - FALL = (K0/(1._dp+K1))*CF**(1._dp/(1._dp+(LOG10(K1))**2)) - - END FUNCTION FALL - -! FALL2 (added by psaide 28-10-2009) - REAL(KIND=dp) FUNCTION F2( A0,B0,C0,A1,B1,C1,CF,CN,TEMP,cair) - - INTRINSIC LOG10 - - REAL(KIND=dp) :: TEMP - REAL(KIND=dp) :: cair - REAL(KIND=dp) A0,B0,C0,A1,B1,C1,CF,CN - REAL(KIND=dp) K0, K1 - - K0 = A0 * EXP(-B0 /TEMP)* (TEMP/300._dp)**C0 - K1 = A1 * EXP(-B1 /TEMP)* (TEMP/300._dp)**C1 -! K0 = K0 * 2.45E13_dp * 1.0E6_dp - K0 = K0 * cair - K1 = K0/K1 - F2 = (K0/(1._dp+K1))*CF**(1._dp/(1._dp+(LOG10(K1)/CN)**2)) - - END FUNCTION F2 - - - !--------------------------------------------------------------------------- - - ELEMENTAL REAL(kind=dp) FUNCTION k_3rd(temp,cair,k0_300K,n,kinf_300K,m,fc) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL, INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL, INTENT(IN) :: n ! exponent for low pressure limit - REAL, INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL, INTENT(IN) :: m ! exponent for high pressure limit - REAL, INTENT(IN) :: fc ! broadening factor (usually fc=0.6) - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - k_3rd = k0_T/(1._dp+k_ratio)*fc**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - END FUNCTION k_3rd - - !--------------------------------------------------------------------------- - - ELEMENTAL REAL(kind=dp) FUNCTION k_arr (k_298,tdep,temp) - ! Arrhenius function - - REAL, INTENT(IN) :: k_298 ! k at T = 298.15K - REAL, INTENT(IN) :: tdep ! temperature dependence - REAL(kind=dp), INTENT(IN) :: temp ! temperature - - INTRINSIC EXP - - k_arr = k_298 * EXP(tdep*(1._dp/temp-3.3540E-3_dp)) ! 1/298.15=3.3540e-3 - - END FUNCTION k_arr - -! CK 20140313 in the following some more rate functions needed by -! WRF-chem packages - -!------------------------------------ -! Troe reactions (as in Stockwell et al, 1997) - - REAL(kind=dp) FUNCTION TROE(k0_300K,n,kinf_300K,m,temp,cair) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - TROE = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - END FUNCTION TROE - - - -!------------------------------------------- -! Troe equilibrium reactions (as in Stockwell et al, 1997) - - REAL(kind=dp) FUNCTION TROEE(A, B, k0_300K,n,kinf_300K,m,temp,cair) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - REAL(kind=dp), INTENT(IN) :: A, B - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio, troe - - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - troe = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - TROEE = A * EXP( - B / temp) * troe - - - - END FUNCTION TROEE - -!------------------------ -! k=T^2 C exp (-D/T) reactions - - REAL(kind=dp) FUNCTION THERMAL_T2(c, d ,temp) - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: c, d - - - THERMAL_T2= temp**2._dp * c * EXP(- d / temp) - - END FUNCTION THERMAL_T2 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! End of User-defined Rate Law functions -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -! End Rate Law Functions from KPP_HOME/util/UserRateLaws - - -! Begin INLINED Rate Law Functions - - - -! **************************************************************************** -! J - the photolysis rate retrieval function -! **************************************************************************** - REAL(kind=dp) FUNCTION J(name) - - CHARACTER(LEN=*), INTENT(IN) :: name - - CHARACTER(LEN=15) :: xname - - INTEGER :: i - - xname(:) = " " - xname(1:LEN(name)) = name - - J = jvalues(hash(xname)) - - RETURN - - END FUNCTION J -! **************************************************************************** - - - -REAL(KIND=dp) FUNCTION SFC_REACTION(TEMP, SAD, MW, GAMMA) - - REAL(KIND=dp), INTENT(IN) :: TEMP, & ! temperature [K] - SAD, & ! aerosol surface area [m2/m3] - MW, & ! molecular weight [kg/mol] - GAMMA ! uptake coeff. [-] - - REAL(KIND=dp) :: OMEGA - - ! mean molecular velocity (m/s) - OMEGA = 1.455e2 * SQRT(TEMP / (MW * 1e3)) - - ! first order uptake, Fuchs and Sutugin, 1971 - ! dCg = 1/4 * gamma * |v_mol| * A - SFC_REACTION = 0.25 * GAMMA * OMEGA * SAD - -END FUNCTION SFC_REACTION - -REAL(kind=dp) FUNCTION JPL_TROE( k0_300K, n, kinf_300K, m, base, temp, cair ) - -!------------------------------------------------------------ -! ... dummy arguments -!------------------------------------------------------------ - REAL(kind=dp), INTENT(IN) :: base ! base exponent - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - -!------------------------------------------------------------ -! ... local variables -!------------------------------------------------------------ - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - - JPL_TROE = k0_T/(1._dp + k_ratio)*base**(1._dp/(1._dp + LOG10(k_ratio)**2)) - -END FUNCTION JPL_TROE - - REAL(KIND=dp) FUNCTION usr_N2O5_M( temp, c_m ) - - REAL(KIND=dp), INTENT(IN) :: temp - REAL(KIND=dp), INTENT(IN) :: c_m - - usr_N2O5_M = TROEE(3.333e26_dp, 10900._dp, 2.2e-30_dp, 4.4_dp, & - 1.4e-12_dp , .7_dp , TEMP, C_M ) /c_m - -END FUNCTION usr_N2O5_M - - -! End INLINED Rate Law Functions - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_SUN - update SUN light using TIME -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - SUBROUTINE Update_SUN() - !USE HETCHEM_Parameters - !USE HETCHEM_Global - - IMPLICIT NONE - - REAL(kind=dp) :: SunRise, SunSet - REAL(kind=dp) :: Thour, Tlocal, Ttmp - ! PI - Value of pi - REAL(kind=dp), PARAMETER :: PI = 3.14159265358979d0 - - SunRise = 4.5_dp - SunSet = 19.5_dp - Thour = TIME/3600.0_dp - Tlocal = Thour - (INT(Thour)/24)*24 - - IF ((Tlocal>=SunRise).AND.(Tlocal<=SunSet)) THEN - Ttmp = (2.0*Tlocal-SunRise-SunSet)/(SunSet-SunRise) - IF (Ttmp.GT.0) THEN - Ttmp = Ttmp*Ttmp - ELSE - Ttmp = -Ttmp*Ttmp - END IF - SUN = ( 1.0_dp + COS(PI*Ttmp) )/2.0_dp - ELSE - SUN = 0.0_dp - END IF - - END SUBROUTINE Update_SUN - -! End of Update_SUN function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_RCONST - function to update rate constants -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Update_RCONST ( ) - - - - -! Begin INLINED RCONST - - - - c_m = C(ind_M) - - -! End INLINED RCONST - - RCONST(1) = (ARR2(1.200000e-13_dp,2450.00_dp,TEMP)) - RCONST(2) = (JPL_TROE(2.400000e-30_dp,3.00_dp,1.600000e-12_dp,-0.10_dp,0.60_dp,TEMP,C_M)) - RCONST(3) = (usr_N2O5_M(temp,c_m)) - RCONST(4) = (SFC_REACTION(TEMP,AER_SAD,0.108009_dp,1.0e-3)) - -END SUBROUTINE Update_RCONST - -! End of Update_RCONST function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_PHOTO - function to update photolytical rate constants -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Update_PHOTO ( ) - - - USE HETCHEM_Global - - -END SUBROUTINE Update_PHOTO - -! End of Update_PHOTO function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE HETCHEM_Rates - diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Rates.o b/boxmox/compiled_mechs/HETCHEM/HETCHEM_Rates.o deleted file mode 100644 index fdd7374d36f217cd8d1d915a855739d924baa6af..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Rates.o and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Stoichiom.f90 b/boxmox/compiled_mechs/HETCHEM/HETCHEM_Stoichiom.f90 deleted file mode 100644 index 38bb32f4ba580c5bf3ef73aadf743abce9ddf5bb..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Stoichiom.f90 +++ /dev/null @@ -1,229 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The Stoichiometric Chemical Model File -! -! Generated by KPP-2.2.3 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 : HETCHEM_Stoichiom.f90 -! Time : Thu Oct 8 08:22:02 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_HETCHEM_12963_BOXMOX -! Equation file : HETCHEM.kpp -! Output root filename : HETCHEM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE HETCHEM_Stoichiom - - USE HETCHEM_Parameters - USE HETCHEM_StoichiomSP - - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! ReactantProd - Reactant Products in each equation -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! ARP - Reactant product in each equation -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE ReactantProd ( V, F, ARP ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! F - Concentrations of fixed species (local) - REAL(kind=dp) :: F(NFIX) -! ARP - Reactant product in each equation - REAL(kind=dp) :: ARP(NREACT) - - -! Reactant Products in each equation are useful in the -! stoichiometric formulation of mass action law - ARP(1) = V(2)*V(5) - ARP(2) = V(3)*V(5) - ARP(3) = V(4)*F(1) - ARP(4) = V(4) - -END SUBROUTINE ReactantProd - -! End of ReactantProd function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! JacReactantProd - Jacobian of Reactant Products vector -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! JVRP - d ARP(1:NREACT)/d VAR (1:NVAR) -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE JacReactantProd ( V, F, JVRP ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! F - Concentrations of fixed species (local) - REAL(kind=dp) :: F(NFIX) -! JVRP - d ARP(1:NREACT)/d VAR (1:NVAR) - REAL(kind=dp) :: JVRP(NJVRP) - - -! Reactant Products in each equation are useful in the -! stoichiometric formulation of mass action law -! Below we compute the Jacobian of the Reactant Products vector -! w.r.t. variable species: d ARP(1:NREACT) / d Var(1:NVAR) - -! JVRP(1) = dARP(1)/dV(2) - JVRP(1) = V(5) -! JVRP(2) = dARP(1)/dV(5) - JVRP(2) = V(2) -! JVRP(3) = dARP(2)/dV(3) - JVRP(3) = V(5) -! JVRP(4) = dARP(2)/dV(5) - JVRP(4) = V(3) -! JVRP(5) = dARP(3)/dV(4) - JVRP(5) = F(1) -! JVRP(6) = dARP(4)/dV(4) - JVRP(6) = 1 - -END SUBROUTINE JacReactantProd - -! End of JacReactantProd function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! Begin Derivative w.r.t. Rate Coefficients - -! ------------------------------------------------------------------------------ -! Subroutine for the derivative of Fun with respect to rate coefficients -! ----------------------------------------------------------------------------- - - SUBROUTINE dFun_dRcoeff( V, F, NCOEFF, JCOEFF, DFDR ) - - USE HETCHEM_Parameters - USE HETCHEM_StoichiomSP - IMPLICIT NONE - -! V - Concentrations of variable/radical/fixed species - REAL(kind=dp) V(NVAR), F(NFIX) -! NCOEFF - the number of rate coefficients with respect to which we differentiate - INTEGER NCOEFF -! JCOEFF - a vector of integers containing the indices of reactions (rate -! coefficients) with respect to which we differentiate - INTEGER JCOEFF(NCOEFF) -! DFDR - a matrix containg derivative values; specifically, -! column j contains d Fun(1:NVAR) / d RCT( JCOEFF(j) ) -! for each 1 <= j <= NCOEFF -! This matrix is stored in a column-wise linearized format - REAL(kind=dp) DFDR(NVAR*NCOEFF) - -! Local vector with reactant products - REAL(kind=dp) A_RPROD(NREACT) - REAL(kind=dp) aj - INTEGER i,j,k - -! Compute the reactant products of all reactions - CALL ReactantProd ( V, F, A_RPROD ) - -! Compute the derivatives by multiplying column JCOEFF(j) of the stoichiometric matrix with A_RPROD - DO j=1,NCOEFF -! Initialize the j-th column of derivative matrix to zero - DO i=1,NVAR - DFDR(i+NVAR*(j-1)) = 0.0_dp - END DO -! Column JCOEFF(j) in the stoichiometric matrix times the -! reactant product of the JCOEFF(j)-th reaction -! give the j-th column of the derivative matrix - aj = A_RPROD(JCOEFF(j)) - DO k=CCOL_STOICM(JCOEFF(j)),CCOL_STOICM(JCOEFF(j)+1)-1 - DFDR(IROW_STOICM(k)+NVAR*(j-1)) = STOICM(k)*aj - END DO - END DO - - END SUBROUTINE dFun_dRcoeff - -! End Derivative w.r.t. Rate Coefficients - - -! Begin Jacobian Derivative w.r.t. Rate Coefficients - -! ------------------------------------------------------------------------------ -! Subroutine for the derivative of Jac with respect to rate coefficients -! Times a user vector -! ----------------------------------------------------------------------------- - - SUBROUTINE dJac_dRcoeff( V, F, U, NCOEFF, JCOEFF, DJDR ) - - USE HETCHEM_Parameters - USE HETCHEM_StoichiomSP - IMPLICIT NONE - -! V - Concentrations of variable/fixed species - REAL(kind=dp) V(NVAR), F(NFIX) -! U - User-supplied Vector - REAL(kind=dp) U(NVAR) -! NCOEFF - the number of rate coefficients with respect to which we differentiate - INTEGER NCOEFF -! JCOEFF - a vector of integers containing the indices of reactions (rate -! coefficients) with respect to which we differentiate - INTEGER JCOEFF(NCOEFF) -! DFDR - a matrix containg derivative values; specifically, -! column j contains d Jac(1:NVAR) / d RCT( JCOEFF(j) ) * U -! for each 1 <= j <= NCOEFF -! This matrix is stored in a column-wise linearized format - REAL(kind=dp) DJDR(NVAR*NCOEFF) - -! Local vector for Jacobian of reactant products - REAL(kind=dp) JV_RPROD(NJVRP) - REAL(kind=dp) aj - INTEGER i,j,k - -! Compute the Jacobian of all reactant products - CALL JacReactantProd( V, F, JV_RPROD ) - -! Compute the derivatives by multiplying column JCOEFF(j) of the stoichiometric matrix with A_PROD - DO j=1,NCOEFF -! Initialize the j-th column of derivative matrix to zero - DO i=1,NVAR - DJDR(i+NVAR*(j-1)) = 0.0_dp - END DO -! Column JCOEFF(j) in the stoichiometric matrix times the -! ( Gradient of reactant product of the JCOEFF(j)-th reaction X user vector ) -! give the j-th column of the derivative matrix -! -! Row JCOEFF(j) of JV_RPROD times the user vector - aj = 0.0_dp - DO k=CROW_JVRP(JCOEFF(j)),CROW_JVRP(JCOEFF(j)+1)-1 - aj = aj + JV_RPROD(k)*U(ICOL_JVRP(k)) - END DO -! Column JCOEFF(j) of Stoichiom. matrix times aj - DO k=CCOL_STOICM(JCOEFF(j)),CCOL_STOICM(JCOEFF(j)+1)-1 - DJDR(IROW_STOICM(k)+NVAR*(j-1)) = STOICM(k)*aj - END DO - END DO - - END SUBROUTINE dJac_dRcoeff - -! End Jacobian Derivative w.r.t. Rate Coefficients - - -END MODULE HETCHEM_Stoichiom - diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Stoichiom.o b/boxmox/compiled_mechs/HETCHEM/HETCHEM_Stoichiom.o deleted file mode 100644 index 05348b686a4e7cf65abfad4da7e98dec44e473e8..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Stoichiom.o and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_StoichiomSP.f90 b/boxmox/compiled_mechs/HETCHEM/HETCHEM_StoichiomSP.f90 deleted file mode 100644 index 0052097c7359e0dac28c3d1358cb91c26b868d63..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/HETCHEM/HETCHEM_StoichiomSP.f90 +++ /dev/null @@ -1,64 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Sparse Stoichiometric Data Structures File -! -! Generated by KPP-2.2.3 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 : HETCHEM_StoichiomSP.f90 -! Time : Thu Oct 8 08:22:02 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_HETCHEM_12963_BOXMOX -! Equation file : HETCHEM.kpp -! Output root filename : HETCHEM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE HETCHEM_StoichiomSP - - USE HETCHEM_Precision - PUBLIC - SAVE - - -! Row-compressed sparse data for the Jacobian of reaction products JVRP - - INTEGER, PARAMETER, DIMENSION(5) :: CROW_JVRP = (/ & - 1, 3, 5, 6, 7 /) - - INTEGER, PARAMETER, DIMENSION(6) :: ICOL_JVRP = (/ & - 2, 5, 3, 5, 4, 4 /) - - INTEGER, PARAMETER, DIMENSION(6) :: IROW_JVRP = (/ & - 1, 1, 2, 2, 3, 4 /) - - - -! Stoichiometric Matrix in Compressed Column Sparse Format - - - INTEGER, PARAMETER, DIMENSION(5) :: CCOL_STOICM = (/ & - 1, 4, 7, 10, 12 /) - - INTEGER, PARAMETER, DIMENSION(11) :: IROW_STOICM = (/ & - 2, 3, 5, 3, 4, 5, 3, 4, 5, 1, 4 /) - - INTEGER, PARAMETER, DIMENSION(11) :: ICOL_STOICM = (/ & - 1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4 /) - - REAL(kind=dp), PARAMETER, DIMENSION(11) :: STOICM = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp /) - - -END MODULE HETCHEM_StoichiomSP - diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_StoichiomSP.o b/boxmox/compiled_mechs/HETCHEM/HETCHEM_StoichiomSP.o deleted file mode 100644 index 3982cd7320d5f720a83dfcf66e899e839358e71c..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/HETCHEM_StoichiomSP.o and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Util.f90 b/boxmox/compiled_mechs/HETCHEM/HETCHEM_Util.f90 deleted file mode 100644 index bc111e6092fdac8110ff4bf1549bd6a103e208f6..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Util.f90 +++ /dev/null @@ -1,1412 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Auxiliary Routines File -! -! Generated by KPP-2.2.3 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 : HETCHEM_Util.f90 -! Time : Thu Oct 8 08:22:02 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_HETCHEM_12963_BOXMOX -! Equation file : HETCHEM.kpp -! Output root filename : HETCHEM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE HETCHEM_Util - - USE HETCHEM_Parameters - USE HETCHEM_Global - USE HETCHEM_Monitor - IMPLICIT NONE - -CONTAINS - - - -! User INLINED Utility Functions - - -! **************************************************************************** -! **************************************************************************** -! BOXMOX utilities -! **************************************************************************** -! **************************************************************************** - - -! **************************************************************************** -! toUPPER - convert ASCII characters to all upper case -! from http://stackoverflow.com/questions/10759375/ -! how-can-i-write-a-to-upper-or-to-lower-function-in-f90 -! **************************************************************************** - FUNCTION toUPPER (str) RESULT (string) - - CHARACTER(*), INTENT(In) :: str - CHARACTER(LEN(str)) :: string - - INTEGER :: ic, i - - CHARACTER(26), PARAMETER :: cap = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' - CHARACTER(26), PARAMETER :: low = 'abcdefghijklmnopqrstuvwxyz' - - string = str - DO i = 1, LEN_TRIM(str) - ic = INDEX(low, str(i:i)) - IF (ic > 0) string(i:i) = cap(ic:ic) - END DO - - END FUNCTION toUPPER -! **************************************************************************** - - -! **************************************************************************** -! hash - a string hashing function -! from flibs, http://flibs.sourceforge.net -! **************************************************************************** - INTEGER FUNCTION hash( key ) - - CHARACTER(len=*), INTENT(in) :: key - - INTEGER :: i - - INTEGER, PARAMETER :: hash_size = 49931 - INTEGER, PARAMETER :: multiplier = 312 - - hash = 0 - - DO i = 1,LEN(key) - hash = MODULO( multiplier * hash + ICHAR(key(i:i)), hash_size) - ENDDO - - hash = 1 + MODULO( hash-1, hash_size ) - END FUNCTION hash -! **************************************************************************** - - -! **************************************************************************** -! strEqual - comparison function matching two strings -! **************************************************************************** - LOGICAL FUNCTION strEqual(a, b) - - CHARACTER(LEN=*), INTENT(IN) :: a, b - - LOGICAL, PARAMETER :: ignoreCase = .TRUE. - - CHARACTER(LEN=100) :: nice_a, nice_b - INTEGER :: max_len - - nice_a = ADJUSTL(a) - nice_b = ADJUSTL(b) - - IF (ignoreCase) THEN - nice_a = toUPPER(nice_a) - nice_b = toUPPER(nice_b) - END IF - - max_len = MAX( LEN_TRIM(nice_a), LEN_TRIM(nice_b) ) - - strEqual = nice_a(1:max_len) .EQ. nice_b(1:max_len) - - END FUNCTION strEqual -! **************************************************************************** - - -! **************************************************************************** -! writespecstring - Utility function that plots a (potentially) -! large number of species -! **************************************************************************** - SUBROUTINE writespecstring(nspecies, txt, species, offset) - - INTEGER :: nspecies, offset - CHARACTER(LEN=*) :: txt - CHARACTER(LEN=15) :: species(nspecies), fmt - CHARACTER(LEN=2000) :: specstring - - INTEGER, PARAMETER :: cperline=60 - - INTEGER :: i, l - - fmt = "" - WRITE(fmt, "(A1,I3,A4)") "(", offset, "X,A)" - - i = 1; l = 1 - specstring = "" - - DO WHILE (i <= nspecies) - - specstring = TRIM(ADJUSTL(specstring))//TRIM(ADJUSTL(species(i))) - IF (i < nspecies) specstring = TRIM(ADJUSTL(specstring))//", " - - i = i + 1 - - IF (LEN_TRIM(specstring) > cperline) THEN - IF (l == 1) specstring = txt//specstring - l = l + 1 - WRITE(*,fmt) TRIM(specstring) - specstring = "" - ENDIF - ENDDO - - IF (LEN_TRIM(specstring) > 0) THEN - IF (l == 1) specstring = txt//specstring - WRITE(*,fmt) TRIM(specstring) - ENDIF - - END SUBROUTINE writespecstring -! **************************************************************************** - - -! **************************************************************************** -! calcCFACTOR - Calculates CFACTOR variable for unit conversion between -! input/output files and values used in calculations / rates -! **************************************************************************** - SUBROUTINE calcCFACTOR ( ) - - ! from ppmv to mlc/cm3: - ! 1e-6 ppmv -> vmr - ! 1e-3 kg/m3 -> g/cm3 - ! 1/28.9645 g/cm3 -> mole/cm3 - ! 6.022e23 -> molec/cm3 - ! then multiply with air density rho - ! 1.0E-6 * 1E-03 * (1.0/28.97) * 6.022e23 * rho - ! CFACTOR = 2.598378e+13; (with rho == 1.25) - - CFACTOR = 1.0E-6 * 1E-03 * (1.0/28.9645) * 6.022e23 * & - pres / (287.058 * temp) - - END SUBROUTINE calcCFACTOR -! **************************************************************************** - - -! **************************************************************************** -! readConfig - Sets variables using values read in from "BOXMOX.nml" -! **************************************************************************** - SUBROUTINE readConfig ( ) - - INTEGER, PARAMETER :: config_pid = 22 - CHARACTER(LEN=*), PARAMETER :: config_name = "BOXMOX.nml" - - NAMELIST /BOXMOX/ TSTART, TEND, DT, lverbose, iturb, lfix_nox - - LOGICAL :: lnml_exists - - ! *** default values section *** - - TSTART = 0.0D0 ! model start time, seconds since 0 LT - TEND = TSTART + 3600.0D0 ! model end time, seconds since 0 LT - DT = 10.D0 ! model time step, seconds - - lverbose = .FALSE. - iturb = TURB_OPT_NONE - - lfix_nox = .FALSE. - - ! *** namelist read-in section *** - - INQUIRE(FILE=config_name, EXIST=lnml_exists) - - IF (lnml_exists) THEN - - WRITE(*,*) "BOXMOX configuration file ", TRIM(config_name)," found." - - OPEN (config_pid, FILE=config_name) - READ (config_pid, nml=BOXMOX) - CLOSE(config_pid) - - ELSE - WRITE(*,*) "No BOXMOX configuration file (", & - TRIM(config_name),") exists." - ENDIF - - ! *** configuration printout *** - - WRITE(*,*) " " - WRITE(*,"(A20,2X,F12.3)") "TSTART", TSTART - WRITE(*,"(A20,2X,F12.3)") "TEND", TEND - WRITE(*,"(A20,2X,F12.3)") "DT", DT - WRITE(*,*) "" - WRITE(*,"(A20,2X,L10)") "lverbose", lverbose - WRITE(*,*) "" - WRITE(*,"(A20,11X,I1)") "iturb", iturb - WRITE(*,*) "" - WRITE(*,"(A20,2X,L10)") "lfix_nox", lfix_nox - - WRITE(*,*) " " - - END SUBROUTINE readConfig -! **************************************************************************** - - -! **************************************************************************** -! checkConfig - check configuration variables -! **************************************************************************** - SUBROUTINE checkConfig ( ) - - INTEGER :: status - - status = 0 - - IF (TSTART < 0.0) THEN - WRITE(*,*) "start time TSTART cannot be < 0.0" - status = 1 - ENDIF - IF (TEND < 0.0) THEN - WRITE(*,*) "end time TEND cannot be < 0.0" - status = 2 - ENDIF - IF (TSTART >= TEND) THEN - WRITE(*,*) "start time TSTART has to be < end time TEND" - status = 3 - ENDIF - IF (DT <= 0.0) THEN - WRITE(*,*) "time step DT has to be > 0.0" - status = 4 - ENDIF - - IF (status .NE. 0) THEN - IF (.NOT. llibrary) THEN - STOP - ENDIF - ENDIF - - END SUBROUTINE checkConfig -! **************************************************************************** - - -! **************************************************************************** -! writeVersion - Write "VERSION" file to run directory -! **************************************************************************** - SUBROUTINE writeVersion ( ) - - INTEGER, PARAMETER :: version_pid = 23 - CHARACTER(LEN=*), PARAMETER :: version_name = "VERSION" - - ! *** write BOXMOX version to output directory *** - - OPEN(version_pid, file=version_name) - WRITE(version_pid, "(A)") "__BOXMOX_VERSION__" - CLOSE(version_pid) - - END SUBROUTINE writeVersion -! **************************************************************************** - - -! **************************************************************************** -! readVals - main input routine for the BOXMOX extensions. -! reads values from input files with different time -! formats, and interpolates to get the values -! appropriate for the current time step. -! **************************************************************************** - SUBROUTINE readVals(fname, nvar, species, values, stat, & - nanc, ancspecies, ancvalues, lquiet) - - CHARACTER(LEN=*), INTENT(IN) :: fname - INTEGER, INTENT(OUT) :: nvar - CHARACTER(LEN=15), INTENT(OUT) :: species(max_species_boxmox) - REAL(KIND=dp), INTENT(OUT) :: values(max_species_boxmox) - INTEGER, INTENT(OUT) :: stat - INTEGER, INTENT(OUT), OPTIONAL :: nanc - CHARACTER(LEN=15), INTENT(OUT),OPTIONAL :: ancspecies(max_species_boxmox) - REAL(KIND=dp), INTENT(OUT), OPTIONAL :: ancvalues(max_species_boxmox) - LOGICAL, INTENT(IN), OPTIONAL :: lquiet - - INTEGER, PARAMETER :: input_pid = 21 - REAL(KIND=dp) :: time_cur, weight_t1, & - values_t0(max_species_boxmox), & - values_t1(max_species_boxmox), & - values_cur(max_species_boxmox) - CHARACTER(LEN=15) :: names(max_species_boxmox) - INTEGER :: iostat, time_format, ntoread, ntime, nanct, pid, i - LOGICAL :: lfile_exists, ltalkative - - names(:) = "" - values_t0(:) = 0.0 - values_t1(:) = 0.0 - - stat = 0 ! everything is allright - - ltalkative = ( TIME .EQ. TSTART ) .OR. lverbose - IF (PRESENT(lquiet)) THEN - IF (lquiet) THEN - ltalkative = .FALSE. - ENDIF - ENDIF - - ! check whether file exists - INQUIRE(FILE=fname, EXIST=lfile_exists) - IF (.NOT. lfile_exists) THEN - stat = 1 - RETURN - ELSE - IF (ltalkative) THEN - WRITE(*,*) "" - WRITE(*,*) " * ", fname - ENDIF - END IF - - OPEN(input_pid, file=fname) - - ! line 1: number of variables - READ(input_pid, *) nvar - - ! if no variable should be read - bail - IF (nvar == 0) THEN - IF (ltalkative) WRITE(*,*) fname, " declared 0 variables to be read" - stat = 2 - CLOSE(input_pid) - RETURN - END IF - - ! line 2: number of ancillary variables - READ(input_pid, *) nanct - - IF (nanct .LT. 0) THEN - WRITE(*,"(A)") "Number of ancillary variables must be >= 0" - CLOSE(input_pid) - STOP - ENDIF - - IF (nanct .GT. 1) THEN - WRITE(*,"(A)") "Number of ancillary variables must be < 2" - CLOSE(input_pid) - STOP - ENDIF - - ! line 3: time format - READ(input_pid, *) time_format - - IF (time_format .LT. 0 .OR. time_format .GT. 2) THEN - WRITE(*,"(3A)") "Time format has to be 0 (constant), ", & - "1 (s since TSTART) or ", & - "2 (hour of day)" - CLOSE(input_pid) - STOP - END IF - - ntime = 0 - IF (time_format .GT. 0) ntime = 1 - - ntoread = ntime + nanct + nvar - - ! if more variables than max_species_boxmox should be read - bail - IF (ntoread > max_species_boxmox) THEN - IF (ltalkative) THEN - WRITE(*,*) fname, " declared more variables to be read" - WRITE(*,*) "than allocated. Increase max_species_boxmox," - WRITE(*,*) "recompile, and run again." - ENDIF - stat = 3 - CLOSE(input_pid) - RETURN - END IF - - ! line 4: header line - READ(input_pid, *) names(1:ntoread) - - ! line 4ff: values - READ(input_pid, *) values_t0(1:ntoread) - - ! if its not constant in time values - weight_t1 = 0 - IF (.NOT. time_format .EQ. 0) THEN - READ(input_pid, *, IOSTAT=iostat) values_t1(1:ntoread) - - ! TIME is the KPP provided current model time - time_cur = TIME - IF (time_format .EQ. 2) THEN - time_cur = TIME/3600.0_dp - (INT(TIME/3600.0_dp)/24)*24 - END IF - - ! ASSUMPTION: time is the first value read - DO WHILE(values_t1(1) .LT. time_cur .AND. iostat .EQ. 0) - values_t0 = values_t1 - - READ(input_pid, *, IOSTAT=iostat) values_t1(1:ntoread) - END DO - - ! take the last value in the file in case its time values don't cover - ! the full simulation period - IF (iostat .NE. 0) THEN - weight_t1 = 1.0 - ELSE - weight_t1 = (time_cur - values_t0(1)) / (values_t1(1) - values_t0(1)) - ENDIF - - ENDIF - - CLOSE(input_pid) - - values_cur = weight_t1 * values_t1 + & - (1.0 - weight_t1) * values_t0 - - species(1:nvar) = names(ntime+nanct+1:ntime+nanct+nvar) - values(1:nvar) = values_cur(ntime+nanct+1:ntime+nanct+nvar) - - IF (PRESENT(nanc)) nanc = nanct - - IF (nanct .GT. 0) THEN - IF (PRESENT(ancvalues)) THEN - ancvalues(1:nanct) = values_cur(ntime+1:ntime+nanct) - ENDIF - IF (PRESENT(ancspecies)) THEN - ancspecies(1:nanct) = names(ntime+1:ntime+nanct) - ENDIF - ENDIF - - END SUBROUTINE readVals -! **************************************************************************** - - -! **************************************************************************** -! readInput - Reads values from .csv, applies function -! -! "t" is for "target" (i.e. the vector to apply "action" over) -! "r" is for "read" from file -! "u" is for "useable" (i.e., exists in the "target" vector) -! "m" is for "missing" (i.e., asked for, but not found in file) -! -! **************************************************************************** - SUBROUTINE readInput (filename, nt, tnames, tvalues, & - action, lzero, quiet) - - CHARACTER(LEN=*), INTENT(IN) :: filename - INTEGER, INTENT(IN) :: nt - REAL(KIND=dp) :: tvalues(nt) - CHARACTER(LEN=15), INTENT(IN) :: tnames(nt) - REAL(KIND=dp), OPTIONAL :: action ! function to be called - LOGICAL, INTENT(IN), OPTIONAL :: lzero ! call action with 0.0 - ! for 'missing' species - LOGICAL, INTENT(IN), OPTIONAL :: quiet - - INTEGER :: nr, nu, nm, i, k, m, & - iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - unames(max_species_boxmox), & - mnames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox) - LOGICAL :: is_used, first, & - talkative - - CALL readVals(filename, nr, rnames, rvalues, iostat) - - IF (iostat .NE. 0) RETURN - - talkative = .TRUE. - IF (PRESENT(quiet)) talkative = .NOT. quiet - - unames(:) = "none" - nu = 0 - - first = lverbose - - DO i = 1, nr - DO k = 1, nt - IF ( strEqual(rnames(i), tnames(k)) ) THEN - - IF (PRESENT(action)) THEN - tvalues(k) = action( tvalues(k), k, rvalues(i), first) - ELSE - tvalues(k) = rvalues(i) - IF ( (lverbose .OR. first) .AND. talkative ) THEN - WRITE(*,"(6X,A15,1X,E12.6)") tnames(k), tvalues(k)/CFACTOR - ENDIF - ENDIF - - first = .FALSE. - - nu = nu + 1 - unames(nu) = TRIM(ADJUSTL(rnames(i))) - ENDIF - ENDDO - ENDDO - - IF (PRESENT(lzero)) THEN - IF (lzero) THEN - DO k = 1, nt - is_used = .FALSE. - DO i = 1, nu - IF ( strEqual(unames(i), tnames(k)) ) is_used = .TRUE. - ENDDO - IF (.NOT. is_used) THEN - tvalues(k) = action( tvalues(k), k, 0.0, first) - first = .FALSE. - ENDIF - ENDDO - ENDIF - ENDIF - - nm = nr - nu - mnames(:) = "" - - IF (nm > 0) THEN - m = 1 - DO i = 1, nr - is_used = .FALSE. - DO k = 1, nu - IF ( strEqual(rnames(i), unames(k)) ) is_used = .TRUE. - ENDDO - - IF (.NOT. is_used) THEN - mnames(m) = TRIM(ADJUSTL(rnames(i))) - m = m + 1 - ENDIF - ENDDO - ENDIF - - IF ( ((TIME .EQ. TSTART) .OR. lverbose) .AND. talkative) THEN - IF (nu > 0) CALL writespecstring(nu, "useable:", unames, 6) - IF (nm > 0) CALL writespecstring(nm, "unknown: ", mnames, 6) - ENDIF - - END SUBROUTINE readInput -! **************************************************************************** - - -! **************************************************************************** -! InitialCondition - Sets initial values -! **************************************************************************** - REAL(KIND=dp) FUNCTION InitialCondition(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - InitialCondition = y * CFACTOR - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,A12,1X)") "species ", "IC" - WRITE(*,"(6X,A15,1X,E12.6,1X)") SPC_NAMES(k), InitialCondition/CFACTOR - ENDIF - - END FUNCTION InitialCondition -! **************************************************************************** - - -! **************************************************************************** -! Deposition - Applies deposition velocities -! **************************************************************************** - REAL(KIND=dp) FUNCTION Deposition(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - REAL(KIND=dp) :: dCdt - - Deposition = x - - ! we don't remove fixed variables - IF (k .LT. NFIXST) THEN - ! we assume deposition velocities in comparable units - ! (i.e. cm s-1) - ! dxdydz(3) == DZ - dCdt = - y * x / (dxdydz(3) * 100.0) - Deposition = MAX( 0.0, x + DT * dCdt ) - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "v_dep", "after" - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, y, & - Deposition/CFACTOR - ENDIF - - ENDIF - - END FUNCTION Deposition -! **************************************************************************** - - -! **************************************************************************** -! Emission - Adds emissions -! **************************************************************************** - REAL(KIND=dp) FUNCTION Emission(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - REAL(KIND=dp) :: cur - - ! we assume emissions to be a flux in units comparable to the - ! concentration values used in KPP - ! e.g. molecules / m2 / s vs molecules / m3, or - ! moles / cm2 / s vs moles / cm3, ... - ! the time dimensions unit has to be seconds! - - ! dxdydz(3) is PBL height in m - cur = y * DT / (dxdydz(3) * 100.0) - - Emission = x + cur - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "tendency", "after" - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, & - cur/DT/CFACTOR, Emission/CFACTOR - ENDIF - - END FUNCTION Emission -! **************************************************************************** - - -! **************************************************************************** -! Mix - calculate concentration after turbulent mixing -! **************************************************************************** - REAL(KIND=dp) FUNCTION Mix(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - REAL(KIND=dp) :: frac_bg - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - Mix = x - - frac_bg = Kturb * DT - - IF (lfirst .AND. lverbose) THEN - WRITE(*,"(6X,A,1X,F6.3)") "fractional amount of background air", & - frac_bg - WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "background", "after" - ENDIF - - ! we don't mix fixed variables - IF (k .LT. NFIXST) THEN - - ! seems like we found something - Mix = frac_bg * (y * CFACTOR) + & - (1.0 - frac_bg) * x - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, & - y, Mix/CFACTOR - ENDIF - - ENDIF - - END FUNCTION Mix -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturb - calculate Kturb for mixing -! **************************************************************************** - SUBROUTINE UpdateKturb() - - Kturb = 0.0 - SELECT CASE (iturb) - CASE (TURB_OPT_NONE) - Kturb = 0.0 - CASE (TURB_OPT_SPECIFIED) - CALL UpdateKturbSpecified() - CASE (TURB_OPT_VOLUME) - CALL UpdateKturbVolume() - CASE (TURB_OPT_TRACER) - CALL UpdateKturbTracer() - CASE DEFAULT - WRITE(*,"(A,1X,I1)") "Unknown mixing option", iturb - END SELECT - - END SUBROUTINE UpdateKturb -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbSpecified - calc. Kturb for mixing using specified Kturb -! **************************************************************************** - SUBROUTINE UpdateKturbSpecified() - - INTEGER :: nr, na, i, iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - anames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox), & - avalues(max_species_boxmox) - LOGICAL :: lfound - - Kturb = 0.0 - - CALL readVals('Background.csv', & - nr, rnames, rvalues, iostat, & - na, anames, avalues, lquiet=.TRUE.) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - lfound = .FALSE. - DO i = 1, na - IF ( strEqual(anames(i), 'Kturb') ) THEN - Kturb = avalues(i) - lfound = .TRUE. - ENDIF - ENDDO - - IF (.NOT. lfound) THEN - WRITE(*,*) "Kturb variable not found in Background.csv" - STOP - ENDIF - - END SUBROUTINE UpdateKturbSpecified -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbVolume - calc. Kturb for mixing using box volume changes -! **************************************************************************** - SUBROUTINE UpdateKturbVolume() - - REAL(KIND=dp) :: vol, vol_old - - vol = dxdydz(1) * dxdydz(2) * dxdydz(3) - vol_old = dxdydz_old(1) * dxdydz_old(2) * dxdydz_old(3) - - ! maybe we have a mixing case where the box volume changes? - ! increasing volume - dilute against background - ! decreasing volume - ignore (?) for now - - ! in the PBL case, analogue: - ! maybe we changed the PBLH? update concentration vector - ! rising BL - mixing against zero air or bg values - ! shrinking BL - creates residual layer, decouples - - IF (vol > vol_old) THEN - Kturb = ( (vol - vol_old) / vol_old ) / DT - ENDIF - - END SUBROUTINE UpdateKturbVolume -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbTracer - calc. Kturb for mixing using tracer (t, tname) conc. -! changes -! **************************************************************************** - SUBROUTINE UpdateKturbTracer() - - INTEGER :: nr, na, i, iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - anames(max_species_boxmox), & - tracer_name - REAL(KIND=dp) :: rvalues(max_species_boxmox), & - avalues(max_species_boxmox), & - prev, obs, bg, frac_bg - LOGICAL :: lfound_prev, lfound_bg - - Kturb = 0.0 - - CALL readVals('Background.csv', & - nr, rnames, rvalues, iostat, & - na, anames, avalues, lquiet=.TRUE.) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - ! ASSUMPTION: first ancillary species is mixing tracer - tracer_name = anames(1) - obs = avalues(1) * CFACTOR - - prev = 0.0 - lfound_prev = .FALSE. - DO i = 1, NSPEC - IF ( strEqual(SPC_NAMES(i), tracer_name) ) THEN - prev = C(i) - lfound_prev = .TRUE. - ENDIF - ENDDO - - bg = 0.0 - lfound_bg = .FALSE. - DO i = 1, nr - IF ( strEqual(rnames(i), tracer_name) ) THEN - bg = rvalues(i) * CFACTOR - lfound_bg = .TRUE. - ENDIF - ENDDO - - IF (.NOT. lfound_bg) THEN - WRITE(*,*) "Tracer ", TRIM(tracer_name), & - " not found in Background.csv" - STOP - ENDIF - IF (.NOT. lfound_prev) THEN - WRITE(*,*) "Tracer ", TRIM(tracer_name), & - " not found in mechanism" - STOP - ENDIF - - IF ( ABS( bg - prev ) < 1e-10 ) THEN - Kturb = 0.0 - ELSE - frac_bg = ( obs - prev ) / ( bg - prev ) - frac_bg = MIN( frac_bg, 1.0 ) - frac_bg = MAX( frac_bg, 0.0 ) - - Kturb = frac_bg / DT - ENDIF - - END SUBROUTINE UpdateKturbTracer -! **************************************************************************** - - -! **************************************************************************** -! UpdatePhotolysisRates - well, it does what it seems to do -! **************************************************************************** - SUBROUTINE UpdatePhotolysisRates() - - INTEGER :: i, iostat, nr, jidx - CHARACTER(LEN=15) :: rnames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox) - - INTEGER :: j, jidx2 - - rnames(:) = " " - rvalues(:) = 0.0 - - jvalues(:) = 0.0 - - CALL readVals('PhotolysisRates.csv', nr, rnames, rvalues, iostat) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - DO i = 1, nr - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,E12.6)") rnames(i), rvalues(i) - ENDIF - jidx = hash(rnames(i)) - jvalues(jidx) = rvalues(i) - ENDDO - - ! first time step only: make sure hashing actually made unique hashes - IF (TIME .EQ. TSTART) THEN - DO i = 1, nr - jidx = hash(rnames(i)) - DO j = 1, nr - jidx2 = hash(rnames(j)) - IF ((jidx .EQ. jidx2) .AND. .NOT. (i .EQ. j)) THEN - WRITE(*,*) "Photolysis rate label hash collision:" - WRITE(*,*) rnames(i), "(idx ",i,", hash ", jidx, ") == ", & - rnames(j), "(idx ",j,", hash ", jidx2,")" - IF ( strEqual( rnames(i), rnames(j) ) ) THEN - WRITE(*,*) "Remove duplicate label in PhotolysisRates.csv!" - ELSE - WRITE(*,*) "Please contact the BOXMOX developers!" - ENDIF - STOP - ENDIF - ENDDO - ENDDO - - CALL writespecstring(nr, "known:", rnames, 6) - - ENDIF - - END SUBROUTINE UpdatePhotolysisRates -! **************************************************************************** - - -! **************************************************************************** -! UpdateAerosol - update aerosol properties -! **************************************************************************** - SUBROUTINE UpdateAerosol() - - INTEGER, PARAMETER :: naer = 2, sad_idx = 1, r_idx = 2 - REAL(KIND=dp) :: aer(naer), errval = -987654321.0 - CHARACTER(LEN=15) :: aernames(naer) - INTEGER :: iostat, i - - aernames(sad_idx) = "sad"; aer(sad_idx) = errval - aernames(r_idx) = "r"; aer(r_idx) = errval - - CALL readInput('Aerosol.csv', naer, aernames, aer, quiet=lverbose) - - IF (aer(sad_idx) .NE. errval) AER_SAD = aer(sad_idx) - IF (aer(r_idx) .NE. errval) AER_R = aer(r_idx) - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,F8.2)") "SAD ", AER_SAD - WRITE(*,"(6X,A15,1X,F8.2)") "R ", AER_R - ENDIF - - END SUBROUTINE UpdateAerosol -! **************************************************************************** - - -! **************************************************************************** -! UpdateEnvironment - Read environmental values -! **************************************************************************** - SUBROUTINE UpdateEnvironment() - - INTEGER, PARAMETER :: nenv = 4, temp_idx = 1, pres_idx = 2, & - pblh_idx = 3, vol_idx = 4 - REAL(KIND=dp) :: env(nenv), errval = -987654321.0 - CHARACTER(LEN=15) :: envnames(nenv) - INTEGER :: iostat, i - - REAL(KIND=dp) :: temp_old, pres_old, pblh, vol - - envnames(temp_idx) = "TEMP"; env(temp_idx) = errval - envnames(pres_idx) = "PRES"; env(pres_idx) = errval - envnames(pblh_idx) = "PBLH"; env(pblh_idx) = errval - envnames(vol_idx) = "VOL"; env(vol_idx) = errval - - CALL readInput('Environment.csv', nenv, envnames, env, quiet=lverbose) - - temp_old = temp - pres_old = pres - - dxdydz_old(:) = dxdydz(:) - - ! those are just pseudo variables for dxdydz properties - pblh = dxdydz(3) - vol = dxdydz(1) * dxdydz(2) * dxdydz(3) - - IF (env(pblh_idx) .NE. errval .AND. env(vol_idx) .NE. errval) & - THEN - WRITE(*,*) "Cannot work with changing PBLH and VOL at the same time." - STOP - ENDIF - - IF (env(temp_idx) .NE. errval) temp = env(temp_idx) - IF (env(pres_idx) .NE. errval) pres = env(pres_idx) - IF (env(vol_idx) .NE. errval) vol = env(vol_idx) - - IF (env(pblh_idx) .NE. errval) THEN - pblh = env(pblh_idx) - dxdydz(3) = pblh - ENDIF - - ! Adjust species vector - DO i = 1, NSPEC - C(i) = C(i) * (temp_old * pres) / (temp * pres_old) - ENDDO - - ! recalculate unit conversion - CALL calcCFACTOR() - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,F8.2)") "TEMP ", temp - WRITE(*,"(6X,A13,1X,F10.2)") "PRES ", pres - WRITE(*,"(6X,A15,1X,F8.2)") "PBLH ", dxdydz(3) - WRITE(*,"(6X,A15,1X,F8.2)") "VOL ", & - dxdydz(1)*dxdydz(2)*dxdydz(3) - WRITE(*,*) "" - WRITE(*,"(6X,A7,1X,E16.8)") "CFACTOR", CFACTOR - ENDIF - - END SUBROUTINE UpdateEnvironment -! **************************************************************************** - - -! **************************************************************************** -! InitFixNOx - Initialize the NOx fixing data (for steady state calculations) -! **************************************************************************** - SUBROUTINE InitFixNOx(n, names, values) - - INTEGER, INTENT(IN) :: n - REAL(KIND=dp) :: values(n) - CHARACTER(LEN=15), INTENT(IN) :: names(n) - - INTEGER :: i, nfound_tracers - - initial_total_nox = 0.0 - nfound_tracers = 0 - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - initial_total_nox = initial_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - initial_total_nox = initial_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - ENDDO - - IF (.NOT. nfound_tracers == 2) THEN - WRITE(*,*) "NOx fixing failed, found (only) ", & - nfound_tracers, " species." - STOP - ENDIF - - END SUBROUTINE InitFixNOx -! **************************************************************************** - - -! **************************************************************************** -! FixNOx - keep total NOx at initial levels (for steady state calculations) -! **************************************************************************** - SUBROUTINE FixNOx(n, names, values) - - INTEGER, INTENT(IN) :: n - REAL(KIND=dp), INTENT(INOUT) :: values(n) - CHARACTER(LEN=15), INTENT(IN) :: names(n) - - INTEGER :: i, nfound_tracers - REAL(KIND=dp) :: current_total_nox, scaleFactor - - current_total_nox = 0.0 - nfound_tracers = 0 - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - current_total_nox = current_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - current_total_nox = current_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - ENDDO - - IF (.NOT. nfound_tracers == 2) THEN - WRITE(*,*) "NOx fixing failed, found (only) ", & - nfound_tracers, " species." - STOP - ENDIF - - scaleFactor = initial_total_nox - IF (current_total_nox > 0.0) THEN - scaleFactor = initial_total_nox / current_total_nox - ENDIF - - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - values(i) = values(i) * scaleFactor - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - values(i) = values(i) * scaleFactor - ENDIF - ENDDO - - END SUBROUTINE FixNOx -! **************************************************************************** - - -! End INLINED Utility Functions - -! Utility Functions from KPP_HOME/util/util -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! UTIL - Utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -! **************************************************************** -! -! InitSaveData - Opens the data file for writing -! Parameters : -! -! **************************************************************** - - SUBROUTINE InitSaveData () - - USE HETCHEM_Parameters -!* ---------------------------------------------------- -!* BOXMOX extension - Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* add header to output species and sparse jacobian indices -!* and Hessian - USE HETCHEM_JacobianSP -#if 0 > 0 - USE HETCHEM_HessianSP -#endif -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* add header to output files and open rates file - INTEGER :: i -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20161129 -!* renamed concentration output -! open(10, file='HETCHEM.dat') - open(10, file='HETCHEM.conc') -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* add header to output files and open rates file - - ! add header to output file - WRITE(10, "(A24,10000(1X,A24))") "time", ADJUSTR(SPC_NAMES(LOOKAT)) - - open(11, file='HETCHEM.rates') - - WRITE(11, "(I5)") NREACT - - DO i = 1, NREACT - WRITE(11, "(A)") EQN_NAMES(i) - ENDDO - - ! add header to output file - WRITE(11, "(A24,10000(1X,I24))") "time", (/(i, i=1,NREACT, 1)/) - -!* write header to Jacobian output - open(12, file='HETCHEM.jacobian') - -!* species names - WRITE(12, "(10000(1X,A24))") ADJUSTR(SPC_NAMES(LOOKAT)) -!* species index - WRITE(12, "(10000(1X,I5))") LOOKAT -!* Jacobian non zero row index - WRITE(12, "(100000(1X,I5))") (LU_IROW(i), i=1,LU_NONZERO) -!* Jacobian non zero column index - WRITE(12, "(100000(1X,I5))") (LU_ICOL(i), i=1,LU_NONZERO) - -!* write header to Hessian output -#if 0 > 0 - open(13, file='HETCHEM.hessian') - -!* species names - WRITE(13, "(10000(1X,A24))") ADJUSTR(SPC_NAMES(LOOKAT)) -!* species index - WRITE(13, "(10000(1X,I5))") LOOKAT -!* Hessian i, j, k species - WRITE(13, "(100000(1X,I5))") (IHESS_I(i), i=1,NHESS) - WRITE(13, "(100000(1X,I5))") (IHESS_J(i), i=1,NHESS) - WRITE(13, "(100000(1X,I5))") (IHESS_K(i), i=1,NHESS) -#endif -!* ---------------------------------------------------- - - END SUBROUTINE InitSaveData - -! End of InitSaveData function -! **************************************************************** - -! **************************************************************** -! -! SaveData - Write LOOKAT species in the data file -! Parameters : -! -! **************************************************************** - - SUBROUTINE SaveData () - - USE HETCHEM_Global - USE HETCHEM_Monitor -!* ---------------------------------------------------- -!* BOXMOX extension - Jerome Barre - 20150410 -!* Christoph Knote - 20151030 - USE HETCHEM_Jacobian -#if 0 > 0 - USE HETCHEM_Hessian -#endif -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20151030 - REAL(KIND=dp) :: JVS(LU_NONZERO) ! d(dc/dt)i/dcj -#if 0 > 0 - REAL(KIND=dp) :: HESS(NHESS) ! -#endif - INTEGER i - - WRITE(10,999) (TIME-TSTART)/3600.D0, & - (C(LOOKAT(i))/CFACTOR, i=1,NLOOKAT) - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* write out reaction rates - WRITE(11,999) (TIME-TSTART)/3600.D0, & - (RCONST(i), i=1,NREACT) -!* call Jacobian function to output Jacobian values - CALL Jac_SP( VAR, FIX, RCONST, JVS ) - WRITE(12,9999) (JVS(i), i=1,LU_NONZERO) -!* call Hessian function to output Hessian values -#if 0 > 0 - CALL Hessian( VAR, FIX, RCONST, HESS ) - WRITE(13,9999) (HESS(i), i=1,NHESS) -#endif -!* --------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* might have more than 100 output variables -! 999 FORMAT(E24.16,100(1X,E24.16)) -999 FORMAT(E24.16,10000(1X,E24.16E3)) -9999 FORMAT(E24.16,100000(1X,E24.16E3)) -!* ---------------------------------------------------- - - END SUBROUTINE SaveData - -! End of SaveData function -! **************************************************************** - -! **************************************************************** -! -! CloseSaveData - Close the data file -! Parameters : -! -! **************************************************************** - - SUBROUTINE CloseSaveData () - - USE HETCHEM_Parameters - - CLOSE(10) - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -! Christoph Knote - 20153010 -!* close rates file - CLOSE(11) -!* close Jacobian file - CLOSE(12) -!* close Hessian file -#if 0 > 0 - CLOSE(13) -#endif -!* --------------------------------------------------- - - END SUBROUTINE CloseSaveData - -! End of CloseSaveData function -! **************************************************************** - -! **************************************************************** -! -! GenerateMatlab - Generates MATLAB file to load the data file -! Parameters : -! It will have a character string to prefix each -! species name with. -! -! **************************************************************** - - SUBROUTINE GenerateMatlab ( PREFIX ) - - USE HETCHEM_Parameters - USE HETCHEM_Global - USE HETCHEM_Monitor - - - CHARACTER(LEN=8) PREFIX - INTEGER i - - open(20, file='HETCHEM.m') - write(20,*) 'load HETCHEM.dat;' - write(20,990) PREFIX -990 FORMAT(A1,'c = HETCHEM;') - write(20,*) 'clear HETCHEM;' - write(20,991) PREFIX, PREFIX -991 FORMAT(A1,'t=',A1,'c(:,1);') - write(20,992) PREFIX -992 FORMAT(A1,'c(:,1)=[];') - - do i=1,NLOOKAT - write(20,993) PREFIX, SPC_NAMES(LOOKAT(i)), PREFIX, i -993 FORMAT(A1,A6,' = ',A1,'c(:,',I2,');') - end do - - CLOSE(20) - - END SUBROUTINE GenerateMatlab - -! End of GenerateMatlab function -! **************************************************************** - - -! End Utility Functions from KPP_HOME/util/util -! End of UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Shuffle_user2kpp - function to copy concentrations from USER to KPP -! Arguments : -! V_USER - Concentration of variable species in USER's order -! V - Concentrations of variable species (local) -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Shuffle_user2kpp ( V_USER, V ) - -! V_USER - Concentration of variable species in USER's order - REAL(kind=dp) :: V_USER(NVAR) -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) - - V(5) = V_USER(1) - V(2) = V_USER(2) - V(3) = V_USER(3) - V(4) = V_USER(4) - V(1) = V_USER(5) - -END SUBROUTINE Shuffle_user2kpp - -! End of Shuffle_user2kpp function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Shuffle_kpp2user - function to restore concentrations from KPP to USER -! Arguments : -! V - Concentrations of variable species (local) -! V_USER - Concentration of variable species in USER's order -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Shuffle_kpp2user ( V, V_USER ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! V_USER - Concentration of variable species in USER's order - REAL(kind=dp) :: V_USER(NVAR) - - V_USER(1) = V(5) - V_USER(2) = V(2) - V_USER(3) = V(3) - V_USER(4) = V(4) - V_USER(5) = V(1) - -END SUBROUTINE Shuffle_kpp2user - -! End of Shuffle_kpp2user function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! GetMass - compute total mass of selected atoms -! Arguments : -! CL - Concentration of all species (local) -! Mass - value of mass balance -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE GetMass ( CL, Mass ) - -! CL - Concentration of all species (local) - REAL(kind=dp) :: CL(NSPEC) -! Mass - value of mass balance - REAL(kind=dp) :: Mass(1) - - -END SUBROUTINE GetMass - -! End of GetMass function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE HETCHEM_Util - diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Util.o b/boxmox/compiled_mechs/HETCHEM/HETCHEM_Util.o deleted file mode 100644 index b8145d72d730efd8b7de6349ff27ada533a57e59..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/HETCHEM_Util.o and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_mex_Fun.f90 b/boxmox/compiled_mechs/HETCHEM/HETCHEM_mex_Fun.f90 deleted file mode 100644 index c1008673695062cb85e4b340affd66c515622273..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/HETCHEM/HETCHEM_mex_Fun.f90 +++ /dev/null @@ -1,45 +0,0 @@ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE mexFunction( nlhs, plhs, nrhs, prhs ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Matlab Gateway for the Derivative Function Fun -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE HETCHEM_Model - - INTEGER nlhs, nrhs - INTEGER plhs(*), prhs(*) - INTEGER mxGetPr, mxCreateFull, mxGetM, mxgetN - INTEGER VPtr, FPtr, RPtr, VdotPtr - REAL(kind=dp) V(5), F(2), RCT(4) - REAL(kind=dp) Vdot(5) - -! Check for the right number of input arguments - IF ( nrhs .ne. 3 ) THEN - CALL mexErrMsgTxt('Fun requires 3 input vectors: & - &V(5), F(2), RCT(4)') - END IF -! Check for the right number of output arguments - IF ( nlhs .ne. 1 ) THEN - CALL mexErrMsgTxt('Fun requires 1 output vector: & - &Vdot(5)') - END IF - - plhs(1) = mxCreateDoubleMatrix(5,1,0) - - VPtr = mxGetPr(prhs(1)) - CALL mxCopyPtrToReal8(VPtr,V,5) - - FPtr = mxGetPr(prhs(2)) - CALL mxCopyPtrToReal8(FPtr,F,2) - - RPtr = mxGetPr(prhs(3)) - CALL mxCopyPtrToReal8(RPtr,RCT,4) - - VdotPtr = mxGetPr(plhs(1)) - - CALL Fun( V, F, RCT, Vdot ) - - CALL mxCopyReal8ToPtr(Vdot, VdotPtr, 5) - - END SUBROUTINE mexFunction diff --git a/boxmox/compiled_mechs/HETCHEM/HETCHEM_mex_Jac_SP.f90 b/boxmox/compiled_mechs/HETCHEM/HETCHEM_mex_Jac_SP.f90 deleted file mode 100644 index 034a3841adabfc500305559a40735e47eb8122a5..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/HETCHEM/HETCHEM_mex_Jac_SP.f90 +++ /dev/null @@ -1,44 +0,0 @@ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE mexFunction( nlhs, plhs, nrhs, prhs ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Matlab Gateway for the Sparse Jacobian Function Jac_SP -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE HETCHEM_Model - - INTEGER nlhs, nrhs - INTEGER plhs(*), prhs(*) - INTEGER mxGetPr, mxCreateFull, mxGetM, mxgetN - INTEGER VPtr, FPtr, RPtr, JVSPtr - REAL(kind=dp) V(5), F(2), RCT(4) - REAL(kind=dp) JVS(15) - -! Check for the right number of input arguments - IF ( nrhs .ne. 3 ) THEN - CALL mexErrMsgTxt('Jac_SP requires 3 input vectors: & - &V(5), F(2), RCT(4)') - END IF -! Check for the right number of output arguments - IF ( nlhs .ne. 1 ) THEN - CALL mexErrMsgTxt('Jac_SP requires 1 output vector: & - &JVS(15)') - END IF - - plhs(1) = mxCreateDoubleMatrix(15,1,0) - - VPtr = mxGetPr(prhs(1)) - CALL mxCopyPtrToReal8(VPtr,V,5) - - FPtr = mxGetPr(prhs(2)) - CALL mxCopyPtrToReal8(FPtr,F,2) - - RPtr = mxGetPr(prhs(3)) - CALL mxCopyPtrToReal8(RPtr,RCT,4) - - JVSPtr = mxGetPr(plhs(1)) - - CALL Jac_SP( V, F, RCT, JVS ) - - CALL mxCopyReal8ToPtr(JVS, JVSPtr, 15) - - END SUBROUTINE mexFunction diff --git a/boxmox/compiled_mechs/HETCHEM/Makefile_HETCHEM b/boxmox/compiled_mechs/HETCHEM/Makefile_HETCHEM deleted file mode 100644 index 75886768d67b37176d07f54a5c1c0a7a78263317..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/HETCHEM/Makefile_HETCHEM +++ /dev/null @@ -1,215 +0,0 @@ -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: Set here the F90 compiler and options -# Pedefined compilers: INTEL, PGF, HPUX, LAHEY -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -#COMPILER = G95 -#COMPILER = LAHEY -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# gfortran is standard -#COMPILER = INTEL -# ---------------------------------------------------- -#COMPILER = PGF -#COMPILER = HPUX -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# gfortran is standard -COMPILER = GFORTRAN -# ---------------------------------------------------- - -FC_G95 = g95 -FOPT_G95 = -cpp -O -pg -fbounds-check -fimplicit-none -Wall -ftrace=full - -FC_LAHEY = lf95 -# More aggressive for production runs: -#FOPT_LAHEY = -Cpp --pca -O -# More checking for debugging: -FOPT_LAHEY = -Cpp --chk a,e,s,u --pca --ap -O0 -g --trap --trace --chkglobal - -FC_INTEL = ifort -# More aggressive for production runs: -#FOPT_INTEL = -cpp -O -fp-model precise -pc80 -prec_div -# More checking for debugging: -FOPT_INTEL = -cpp -O0 -fp-model strict -implicitnone -ftrapuv \ - -debug all -check all -warn all - -FC_PGF = pgf90 -# More aggressive for production runs: -FOPT_PGF = -Mpreprocess -O -fast -pc 80 -Kieee -# More checking for debugging: -#FOPT_PGF = -Mpreprocess -O0 -Mbounds -Mchkfpstk -Mchkptr -Mchkstk \ -# -Ktrap=fp -pc 80 -Kieee - -FC_HPUX = f90 -FOPT_HPUX = -O -u +Oall +check=on - -FC_GFORTRAN = gfortran -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# rate equation code creates pretty long lines -# optimization does not help much and breaks MCM -# FOPT_GFORTRAN = -cpp -O -# double precision: -#FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -freal-4-real-16 -freal-8-real-16 -# using GCC 4.7 and higher: -FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -freal-4-real-8 -# for older compilers -#FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -fdefault-real-8 -# ---------------------------------------------------- - -# define FULL_ALGEBRA for non-sparse integration -FC = $(FC_$(COMPILER)) -FOPT = $(FOPT_$(COMPILER)) # -DFULL_ALGEBRA - -LIBS = -#LIBS = -llapack -lblas - -# Command to create Matlab mex gateway routines -# Note: use $(FC) as the mex Fortran compiler -MEX = mex - -GENSRC = HETCHEM_Precision.f90 \ - HETCHEM_Parameters.f90 \ - HETCHEM_Global.f90 - -GENOBJ = HETCHEM_Precision.o \ - HETCHEM_Parameters.o \ - HETCHEM_Global.o - -FUNSRC = HETCHEM_Function.f90 -FUNOBJ = HETCHEM_Function.o - -JACSRC = HETCHEM_JacobianSP.f90 HETCHEM_Jacobian.f90 -JACOBJ = HETCHEM_JacobianSP.o HETCHEM_Jacobian.o - -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20160906 -# if HESSIAN is off, avoid compilation errors by not -# linking to the Hessian objects. -ifeq ($(wildcard HETCHEM_HessianSP.f90),) - HESSRC = - HESOBJ = -else - HESSRC = HETCHEM_HessianSP.f90 HETCHEM_Hessian.f90 - HESOBJ = HETCHEM_HessianSP.o HETCHEM_Hessian.o -endif -# ---------------------------------------------------- - -STMSRC = HETCHEM_StoichiomSP.f90 HETCHEM_Stoichiom.f90 -STMOBJ = HETCHEM_StoichiomSP.o HETCHEM_Stoichiom.o - -UTLSRC = HETCHEM_Rates.f90 HETCHEM_Util.f90 HETCHEM_Monitor.f90 -UTLOBJ = HETCHEM_Rates.o HETCHEM_Util.o HETCHEM_Monitor.o - -LASRC = HETCHEM_LinearAlgebra.f90 -LAOBJ = HETCHEM_LinearAlgebra.o - -STOCHSRC = HETCHEM_Stochastic.f90 -STOCHOBJ = HETCHEM_Stochastic.o - -MAINSRC = HETCHEM_Main.f90 HETCHEM_Initialize.f90 HETCHEM_Integrator.f90 HETCHEM_Model.f90 -MAINOBJ = HETCHEM_Main.o HETCHEM_Initialize.o HETCHEM_Integrator.o HETCHEM_Model.o - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: modify the line below to include only the -# objects needed by your application -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -ALLOBJ = $(GENOBJ) $(FUNOBJ) $(JACOBJ) $(HESOBJ) $(STMOBJ) \ - $(UTLOBJ) $(LAOBJ) - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: modify the line below to include only the -# executables needed by your application -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -all: exe - -exe: $(ALLOBJ) $(MAINOBJ) - $(FC) $(FOPT) $(ALLOBJ) $(MAINOBJ) $(LIBS) -o HETCHEM.exe - -pylib: $(ALLOBJ) lib_Initialize.o lib_Integrator.o lib_Model.o - f2py -c -m boxmox $(ALLOBJ) lib_Initialize.o lib_Integrator.o lib_Model.o lib_Main.f90 - -stochastic:$(ALLOBJ) $(STOCHOBJ) $(MAINOBJ) - $(FC) $(FOPT) $(ALLOBJ) $(STOCHOBJ) $(MAINOBJ) $(LIBS) \ - -o HETCHEM_stochastic.exe - -mex: $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O HETCHEM_mex_Fun.f90 $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O HETCHEM_mex_Jac_SP.f90 $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O HETCHEM_mex_Hessian.f90 $(ALLOBJ) - -clean: - rm -f HETCHEM*.o HETCHEM*.mod \ - HETCHEM*.dat HETCHEM.exe HETCHEM*.mexglx \ - HETCHEM.map - -distclean: - rm -f HETCHEM*.o HETCHEM*.mod \ - HETCHEM*.dat HETCHEM.exe HETCHEM.map \ - HETCHEM*.f90 HETCHEM_*.mexglx - -HETCHEM_Precision.o: HETCHEM_Precision.f90 - $(FC) $(FOPT) -c $< - -HETCHEM_Parameters.o: HETCHEM_Parameters.f90 \ - HETCHEM_Precision.o - $(FC) $(FOPT) -c $< - -HETCHEM_Monitor.o: HETCHEM_Monitor.f90 \ - HETCHEM_Precision.o - $(FC) $(FOPT) -c $< - -HETCHEM_Global.o: HETCHEM_Global.f90 \ - HETCHEM_Parameters.o HETCHEM_Precision.o - $(FC) $(FOPT) -c $< - -HETCHEM_Initialize.o: HETCHEM_Initialize.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -HETCHEM_Function.o: HETCHEM_Function.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -HETCHEM_Stochastic.o: HETCHEM_Stochastic.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -HETCHEM_JacobianSP.o: HETCHEM_JacobianSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -HETCHEM_Jacobian.o: HETCHEM_Jacobian.f90 $(GENOBJ) HETCHEM_JacobianSP.o - $(FC) $(FOPT) -c $< - -HETCHEM_LinearAlgebra.o: HETCHEM_LinearAlgebra.f90 $(GENOBJ) HETCHEM_JacobianSP.o - $(FC) $(FOPT) -c $< - -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# need Util in Rates -#HETCHEM_Rates.o: HETCHEM_Rates.f90 $(GENOBJ) -HETCHEM_Rates.o: HETCHEM_Rates.f90 $(GENOBJ) HETCHEM_Util.o -# ---------------------------------------------------- - $(FC) $(FOPT) -c $< - -HETCHEM_HessianSP.o: HETCHEM_HessianSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -HETCHEM_Hessian.o: HETCHEM_Hessian.f90 $(GENOBJ) HETCHEM_HessianSP.o - $(FC) $(FOPT) -c $< - -HETCHEM_StoichiomSP.o: HETCHEM_StoichiomSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -HETCHEM_Stoichiom.o: HETCHEM_Stoichiom.f90 $(GENOBJ) HETCHEM_StoichiomSP.o - $(FC) $(FOPT) -c $< - -HETCHEM_Util.o: HETCHEM_Util.f90 $(GENOBJ) HETCHEM_Monitor.o - $(FC) $(FOPT) -c $< - -HETCHEM_Main.o: HETCHEM_Main.f90 $(ALLOBJ) HETCHEM_Initialize.o HETCHEM_Model.o HETCHEM_Integrator.o - $(FC) $(FOPT) -c $< - -HETCHEM_Model.o: HETCHEM_Model.f90 $(ALLOBJ) HETCHEM_Integrator.o - $(FC) $(FOPT) -c $< - -HETCHEM_Integrator.o: HETCHEM_Integrator.f90 $(ALLOBJ) - $(FC) $(FOPT) -c $< diff --git a/boxmox/compiled_mechs/HETCHEM/compile.log b/boxmox/compiled_mechs/HETCHEM/compile.log deleted file mode 100644 index ce338e3f62126251a71d82c7e0c08c8305c98d13..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/HETCHEM/compile.log +++ /dev/null @@ -1,22 +0,0 @@ -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c HETCHEM_Precision.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c HETCHEM_Parameters.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c HETCHEM_Global.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c HETCHEM_Function.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c HETCHEM_JacobianSP.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c HETCHEM_Jacobian.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c HETCHEM_StoichiomSP.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c HETCHEM_Stoichiom.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c HETCHEM_Monitor.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c HETCHEM_Util.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c HETCHEM_Rates.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c HETCHEM_LinearAlgebra.f90 -HETCHEM_LinearAlgebra.f90:954:46: - - 954 | IF (incX .EQ. incY) IF (incX-1) 5,20,60 - | 1 -Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c HETCHEM_Initialize.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c HETCHEM_Integrator.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c HETCHEM_Model.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c HETCHEM_Main.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 HETCHEM_Precision.o HETCHEM_Parameters.o HETCHEM_Global.o HETCHEM_Function.o HETCHEM_JacobianSP.o HETCHEM_Jacobian.o HETCHEM_StoichiomSP.o HETCHEM_Stoichiom.o HETCHEM_Rates.o HETCHEM_Util.o HETCHEM_Monitor.o HETCHEM_LinearAlgebra.o HETCHEM_Main.o HETCHEM_Initialize.o HETCHEM_Integrator.o HETCHEM_Model.o -o HETCHEM.exe diff --git a/boxmox/compiled_mechs/HETCHEM/hetchem_function.mod b/boxmox/compiled_mechs/HETCHEM/hetchem_function.mod deleted file mode 100644 index 2ab0880be3d98a1d8e16dd02430ea6a2efe1d13c..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/hetchem_function.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/hetchem_global.mod b/boxmox/compiled_mechs/HETCHEM/hetchem_global.mod deleted file mode 100644 index 378a324f3e3cd2fa8194719acf1561866a72199f..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/hetchem_global.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/hetchem_initialize.mod b/boxmox/compiled_mechs/HETCHEM/hetchem_initialize.mod deleted file mode 100644 index c9a8555dd5c6a32e7307dca9cf1a31f04d28cd52..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/hetchem_initialize.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/hetchem_integrator.mod b/boxmox/compiled_mechs/HETCHEM/hetchem_integrator.mod deleted file mode 100644 index 72d7dac06b162a96522cb8cbb8add55bf4926c32..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/hetchem_integrator.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/hetchem_jacobian.mod b/boxmox/compiled_mechs/HETCHEM/hetchem_jacobian.mod deleted file mode 100644 index 253d07d59c2c99a9bde201b1a37e442a0ae8f5ee..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/hetchem_jacobian.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/hetchem_jacobiansp.mod b/boxmox/compiled_mechs/HETCHEM/hetchem_jacobiansp.mod deleted file mode 100644 index d812d9bb0c72374a5ebd08bdf424ab8289790793..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/hetchem_jacobiansp.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/hetchem_linearalgebra.mod b/boxmox/compiled_mechs/HETCHEM/hetchem_linearalgebra.mod deleted file mode 100644 index 1811660309639c900bfdc243b5cd7c6c4cd341d6..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/hetchem_linearalgebra.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/hetchem_model.mod b/boxmox/compiled_mechs/HETCHEM/hetchem_model.mod deleted file mode 100644 index 3fbcd3b51461f9a70a3dd731310efef82870cc9a..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/hetchem_model.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/hetchem_monitor.mod b/boxmox/compiled_mechs/HETCHEM/hetchem_monitor.mod deleted file mode 100644 index a1b5655ca0dca827654a59892c93f0908eecdcd6..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/hetchem_monitor.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/hetchem_parameters.mod b/boxmox/compiled_mechs/HETCHEM/hetchem_parameters.mod deleted file mode 100644 index bebf1f5f79d5847c7eefbcb8f3d6ef918ae71829..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/hetchem_parameters.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/hetchem_precision.mod b/boxmox/compiled_mechs/HETCHEM/hetchem_precision.mod deleted file mode 100644 index 3b968e38ab21c130ce9510759bd75dfc9d58b5d3..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/hetchem_precision.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/hetchem_rates.mod b/boxmox/compiled_mechs/HETCHEM/hetchem_rates.mod deleted file mode 100644 index bb5f891ccd0301443301af3a9c2c975889df810e..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/hetchem_rates.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/hetchem_stoichiom.mod b/boxmox/compiled_mechs/HETCHEM/hetchem_stoichiom.mod deleted file mode 100644 index 91b5a33cf75e9623a6dd2b5323c6af6ad394c055..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/hetchem_stoichiom.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/hetchem_stoichiomsp.mod b/boxmox/compiled_mechs/HETCHEM/hetchem_stoichiomsp.mod deleted file mode 100644 index 5c52fcad8a433b8e21d29b79ed4257500c175d40..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/hetchem_stoichiomsp.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/hetchem_util.mod b/boxmox/compiled_mechs/HETCHEM/hetchem_util.mod deleted file mode 100644 index 20ff2a70d51569d56e552f791643acd1fe2b637c..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/HETCHEM/hetchem_util.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/HETCHEM/kpp.log b/boxmox/compiled_mechs/HETCHEM/kpp.log deleted file mode 100644 index 373f84babf40c60409b30a0189fbc1e190f19bba..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/HETCHEM/kpp.log +++ /dev/null @@ -1,37 +0,0 @@ - -This is KPP-2.2.3. - -KPP is parsing the equation file. -KPP is computing Jacobian sparsity structure. -KPP is starting the code generation. -KPP is initializing the code generation. -KPP is generating the monitor data: - - HETCHEM_Monitor -KPP is generating the global declarations: - - HETCHEM_Main -KPP is generating the ODE function: - - HETCHEM_Function -KPP is generating the ODE Jacobian: - - HETCHEM_Jacobian - - HETCHEM_JacobianSP -KPP is generating the linear algebra routines: - - HETCHEM_LinearAlgebra -KPP is generating the utility data: - - HETCHEM_Util -KPP is generating the utility functions: - - HETCHEM_Util -KPP is generating the rate laws: - - HETCHEM_Rates -KPP is generating the parameters: - - HETCHEM_Parameters -KPP is generating the global data: - - HETCHEM_Global -KPP is generating the stoichiometric description files: - - HETCHEM_Stoichiom - - HETCHEM_StoichiomSP -KPP is generating the driver from ../boxmox/boxmox.f90: - - HETCHEM_Main -KPP is starting the code post-processing. - -KPP has succesfully created the model "HETCHEM". - diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3.exe b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3.exe deleted file mode 100755 index 7b39aa899172f161ee15962442f5c026a38a3de2..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3.exe and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3.kpp b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3.kpp deleted file mode 100644 index 97218035d813997e3657fa1e22faff5bf624ea1a..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3.kpp +++ /dev/null @@ -1,7 +0,0 @@ -#MODEL MCMv3_3 -#LANGUAGE Fortran90 -#DOUBLE ON -#INTEGRATOR rosenbrock -#DRIVER ../boxmox/boxmox -#JACOBIAN SPARSE_LU_ROW -#HESSIAN OFF diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3.map b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3.map deleted file mode 100644 index 58d9d5762752cc9e5d7ac7f635c03996452f354d..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3.map +++ /dev/null @@ -1,1824 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Map File with Human-Readable Information -! -! Generated by KPP-2.2.3 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 : MCMv3_3.map -! Time : Mon Jul 19 14:16:06 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MCMv3_3_3654_BOXMOX -! Equation file : MCMv3_3.kpp -! Output root filename : MCMv3_3 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -### Options ------------------------------------------- - -FUNCTION - AGGREGATE -JACOBIAN - SPARSE W/ ACCOUNT FOR LU DECOMPOSITION FILL-IN -DOUBLE - ON -REORDER - ON - -### Parameters ---------------------------------------- - -! NSPEC - Number of chemical species - INTEGER, PARAMETER :: NSPEC = 5260 -! NVAR - Number of Variable species - INTEGER, PARAMETER :: NVAR = 5258 -! NVARACT - Number of Active species - INTEGER, PARAMETER :: NVARACT = 5256 -! NFIX - Number of Fixed species - INTEGER, PARAMETER :: NFIX = 2 -! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 15177 -! NVARST - Starting of variables in conc. vect. - INTEGER, PARAMETER :: NVARST = 1 -! NFIXST - Starting of fixed in conc. vect. - INTEGER, PARAMETER :: NFIXST = 5259 - -### Species ------------------------------------------- - -Variable species - 1 = NA (n) 1754 = C4ME2OHO (r)3507 = PXYLO2 (r) - 2 = SA (n) 1755 = HO1C6O (r)3508 = OXYCATECH (r) - 3 = SO3 (r) 1756 = C824CO (r)3509 = MXYLO2 (r) - 4 = O1D (r) 1757 = C618OOH (r)3510 = EOCOCHO (r) - 5 = HSO3 (r) 1758 = C151OOH (r)3511 = METOLO2 (r) - 6 = HO2CO3C4O (r)1759 = C73OOH (r)3512 = PXYCATECH (r) - 7 = IPRCOMO (r)1760 = C715CO2O (r)3513 = C23C54CHO (r) - 8 = C5CO24O (r)1761 = C721OOH (r)3514 = HMVKBOOH (r) - 9 = C51OH (r) 1762 = C5COCHOOOH (r)3515 = COHM2CO3H (r) - 10 = INB1HPCO2H (r)1763 = C6H5OOH (r)3516 = BCLKBOC (r) - 11 = C42CHO2O (r)1764 = HOCH2CO2H (r)3517 = BCALBOC (r) - 12 = MAE (r) 1765 = EPXM2DCO2H (r)3518 = TM124OLO2 (r) - 13 = TM135OLOH (r)1766 = C623NO3 (r)3519 = OXYFUONE (r) - 14 = PTLQO (r) 1767 = C64OH5OOH (r)3520 = C4OCCOHNO3 (r) - 15 = PMALANHY (r)1768 = BUTALAOOH (r)3521 = TM123BO2 (r) - 16 = PETLQO (r)1769 = BCLKCO (r)3522 = C93CO (r) - 17 = TM124OLOH (r)1770 = NC91CO3H (r)3523 = OXYLO2 (r) - 18 = DMEPHOLOH (r)1771 = C136NO3 (r)3524 = C537OOH (r) - 19 = PACLOOA (r)1772 = TM124BNO3 (r)3525 = TM124BO2 (r) - 20 = C628OOA (r)1773 = TM124BO (r)3526 = NCO23CHO (r) - 21 = IEB4CHO (r)1774 = HO5C6OOH (r)3527 = PETLBIPRO2 (r) - 22 = METLBPR2OH (r)1775 = PBZQONE (r)3528 = C78OOH (r) - 23 = NC4IPDCO2 (r)1776 = MBOOOA (r)3529 = CONM2PAN (r) - 24 = C719OH (r)1777 = CY6DIONOH (r)3530 = CO25C6 (r) - 25 = C721O (r) 1778 = C52OH1OOH (r)3531 = MXYOLO2 (r) - 26 = IPMLNHY2OH (r)1779 = HO24C5OOH (r)3532 = MMALNAPAN (r) - 27 = C735OOA (r)1780 = HO3C96NO3 (r)3533 = C3M3CHONO3 (r) - 28 = NOPINCOH (r)1781 = HO3C96O (r)3534 = PXYOLO2 (r) - 29 = PGAOOB (r)1782 = BUT2OLNO3 (r)3535 = C6OTRIKET (r) - 30 = C132OH (r)1783 = NPETLQOOH (r)3536 = MIPKAOH (r) - 31 = MXYOLOH (r)1784 = ALCOCH2OOH (r)3537 = HO2CO35C7 (r) - 32 = C4ME22OH (r)1785 = HO3C4NO3 (r)3538 = CRESO2 (r) - 33 = MXYQOH (r)1786 = C624NO3 (r)3539 = IPBENZOLO2 (r) - 34 = M2HEXBOH (r)1787 = HIEB1O (r)3540 = BUTALO2H (r) - 35 = C111O (r) 1788 = M23C43NO3 (r)3541 = NC4EDCO2H (r) - 36 = CHOC4O (r)1789 = M23C43O (r)3542 = C4COMEOH (r) - 37 = CH3CCH3OOC (r)1790 = MIBK3CO (r)3543 = PHGLYOX (r) - 38 = TMB2FUOH (r)1791 = BCALBCO (r)3544 = C103CO (r) - 39 = MEBFUOH (r)1792 = C6H5CH2O (r)3545 = MCATECHOL (r) - 40 = C812OH (r)1793 = C521OOH (r)3546 = C23O3CHO (r) - 41 = MXYFUOH (r)1794 = C6H5CH2NO3 (r)3547 = C65OH (r) - 42 = NC101O (r)1795 = ACLOOA (r)3548 = C123CO (r) - 43 = C121O (r) 1796 = C6H5C2H4O (r)3549 = INDHCHO (r) - 44 = CHOC4OHO (r)1797 = DMPHGLYOX (r)3550 = C59OOH (r) - 45 = CYC6DIONO (r)1798 = HO1MC5NO3 (r)3551 = PETCATECH (r) - 46 = TMB1FUOH (r)1799 = HO1MC5O (r)3552 = INAOOH (r) - 47 = EBENZOLOH (r)1800 = HO3C5NO3 (r)3553 = TMB2FUONE (r) - 48 = IEB1CHO (r)1801 = C1010OOH (r)3554 = PBENZOLO2 (r) - 49 = C921O (r) 1802 = C5NO3OAOOH (r)3555 = MMALNACO3H (r) - 50 = CO3C85O (r)1803 = C916O (r) 3556 = MC6OTRIKET (r) - 51 = EOCOCH2O (r)1804 = INANCO3H (r)3557 = C513CO (r) - 52 = TM124BP2OH (r)1805 = PEBQONE (r)3558 = C532CO (r) - 53 = MMALNHY2OH (r)1806 = C6125CO (r)3559 = C109OH (r) - 54 = OETLBPR2OH (r)1807 = C4M22CONO3 (r)3560 = MXYCATECH (r) - 55 = C510OH (r)1808 = NMBOAO (r)3561 = C51OH2CO (r) - 56 = C24O3CCO2H (r)1809 = HYETHO2H (r)3562 = EBENZOLO2 (r) - 57 = TM124QO (r)1810 = C3MDIALO (r)3563 = MMALNBCO3H (r) - 58 = PXYFUOH (r)1811 = C514NO3 (r)3564 = C144O (r) - 59 = C127OH (r)1812 = C514O (r) 3565 = C7EDCO (r) - 60 = C827OH (r)1813 = C118NO3 (r)3566 = C4CO2O (r) - 61 = C629OOA (r)1814 = C118O (r) 3567 = TM123MUCO (r) - 62 = C57OH (r) 1815 = MBOAO (r) 3568 = O (r) - 63 = MC6OTKETOH (r)1816 = HPC52CO3H (r)3569 = TM135MUCO (r) - 64 = M23C43OH (r)1817 = NC4H10 (r)3570 = PETLMUCO (r) - 65 = PXYQO (r) 1818 = C829O (r) 3571 = C6CO4DB (r) - 66 = C101O (r) 1819 = MXYLNO3 (r)3572 = C52NO31O (r) - 67 = PPGAOOB (r)1820 = MXYLO (r) 3573 = OXYMUCO (r) - 68 = TM123OLOH (r)1821 = PXYLO (r) 3574 = NDNPBNZLO (r) - 69 = C914O (r) 1822 = DE35TO (r)3575 = C4M3NO32O (r) - 70 = C58OH (r) 1823 = C512NO3 (r)3576 = BZEMUCO (r) - 71 = IPBENZOLOH (r)1824 = DECNO3 (r)3577 = PRONO3BO (r) - 72 = DMMALYOH (r)1825 = BIACETO (r)3578 = C7BDCO (r) - 73 = OXYFUOH (r)1826 = C78CO (r) 3579 = PNCATECO (r) - 74 = DEMPHOLOH (r)1827 = C6OH5NO3 (r)3580 = C6COHOCHO (r) - 75 = EMALANHY (r)1828 = BCLKCCO (r)3581 = DMEBMUCO (r) - 76 = NC72O (r) 1829 = H3M3C5NO3 (r)3582 = C3MCODBCO2 (r) - 77 = C6CO134 (r)1830 = NPPRBQOOH (r)3583 = MIBK (r) - 78 = METLQO (r)1831 = M3HEXANO3 (r)3584 = TM124MUCO (r) - 79 = C917OH (r)1832 = CO245C7 (r)3585 = PRONO3AO (r) - 80 = C6CYTONO (r)1833 = CO24C53O (r)3586 = NC526O (r) - 81 = DMEBPR2OH (r)1834 = BCALACO (r)3587 = C42AOH (r) - 82 = MXYQO (r) 1835 = LIMALNO3 (r)3588 = EBZMUCO (r) - 83 = C1212OH (r)1836 = C726CO5OOH (r)3589 = TLEMUCO (r) - 84 = PXYOLOH (r)1837 = C5DICAROOH (r)3590 = MC3ODBCO2H (r) - 85 = NC4MDCO2 (r)1838 = H1MC5O (r)3591 = C512O (r) - 86 = CH3O2NO2 (r)1839 = C84OOH (r)3592 = C4NO32M1O (r) - 87 = C142OH (r)1840 = PHCOMEOOH (r)3593 = CO4DBC9 (r) - 88 = C88O (r) 1841 = HEX2ONANO3 (r)3594 = M2BK (r) - 89 = PHIC3OH (r)1842 = H2M3C4OOH (r)3595 = CO4DBC8 (r) - 90 = TM124QOH (r)1843 = C146CO (r)3596 = NDNIPBZLO (r) - 91 = C75O (r) 1844 = NAPINAOOH (r)3597 = IPNCATECO (r) - 92 = IPRBQO (r)1845 = DMMALANHY (r)3598 = MPRBNO3O (r) - 93 = METLQOH (r)1846 = C45NO3 (r)3599 = MXYOBPEROH (r) - 94 = PHENOH (r)1847 = C45O (r) 3600 = DETLMUCO (r) - 95 = APINCOH (r)1848 = HPC52O (r)3601 = HMVKNO3 (r) - 96 = C6145COO (r)1849 = ETHO2HNO3 (r)3602 = HO13CO4C5 (r) - 97 = PPRBQO (r)1850 = NPXYFUOOH (r)3603 = MBOBCO (r) - 98 = PMALNHY2OH (r)1851 = HC3CO2H (r)3604 = MOXYCOCHO (r) - 99 = C927OH (r)1852 = C98O (r) 3605 = PXYMUCO (r) -100 = TLFUOH (r)1853 = COCCOHNO3 (r)3606 = OETLMUCO (r) -101 = EMALNHY2OH (r)1854 = MCOCOMOOOH (r)3607 = CYC613DION (r) -102 = PXYBPER2OH (r)1855 = M2PEBOOH (r)3608 = MVKOHAOH (r) -103 = PXYQOH (r)1856 = HO2C4NO3 (r)3609 = DIEK (r) -104 = BPINCOH (r)1857 = C7M6CO2OH (r)3610 = METLMUCO (r) -105 = ISOPBOH (r)1858 = LIMALBCO (r)3611 = C520O (r) -106 = PETLQOH (r)1859 = PR1O2HNO3 (r)3612 = CHOC3DIOL (r) -107 = OETLQO (r)1860 = TM123BO (r)3613 = C1012O (r) -108 = C117OH (r)1861 = PBFUOOH (r)3614 = MXYMUCO (r) -109 = OXYOLOH (r)1862 = NBCKOOH (r)3615 = C629O (r) -110 = CO14O3CO2H (r)1863 = BCLKBOOH (r)3616 = C61CO (r) -111 = PETOLOH (r)1864 = ETOMENO3 (r)3617 = BCKSOZ (r) -112 = C520OOA (r)1865 = ETOMEO (r)3618 = C535OOH (r) -113 = C1214O (r)1866 = MACROHO (r)3619 = ETHFORM (r) -114 = CO2C3CO2H (r)1867 = ETOC2O (r)3620 = NC524OOH (r) -115 = MOCOCH2O (r)1868 = C129OOH (r)3621 = C524OOH (r) -116 = PEBQO (r) 1869 = EOX2OLAOOH (r)3622 = TM123OXMUC (r) -117 = CO3C75O (r)1870 = EOX2COMEOH (r)3623 = MIBKOHAOOH (r) -118 = C145OH (r)1871 = C630OOH (r)3624 = C7M2CO5OOH (r) -119 = OETOLOH (r)1872 = COCCOHCO (r)3625 = INB1OOH (r) -120 = OXYQO (r) 1873 = C826CO3OOH (r)3626 = CHOOCHO (r) -121 = C511CHO (r)1874 = INAHCO3H (r)3627 = TM123OLO2 (r) -122 = IPMALANHY (r)1875 = C134OH (r)3628 = INCCO (r) -123 = INANCOCHO (r)1876 = HEX2ONBOOH (r)3629 = C816CO (r) -124 = METOLOH (r)1877 = PE1ENEAO (r)3630 = GLYOOC (r) -125 = C619O (r) 1878 = PHCOME (r)3631 = NDMEPHOLO2 (r) -126 = IBUTOLOHC (r)1879 = C8CO2DCO3H (r)3632 = DMEPHOLO2 (r) -127 = C1313OH (r)1880 = C4CHOBOOH (r)3633 = C828CHO (r) -128 = DETLBPR2OH (r)1881 = TM123BNO3 (r)3634 = NISOPO2 (r) -129 = PETLBPR2OH (r)1882 = MBOBO (r) 3635 = INB1CO (r) -130 = PBZQO (r) 1883 = C732NO3 (r)3636 = NBUTDAO2 (r) -131 = PPACLOOA (r)1884 = HO13C4OOH (r)3637 = CH3OCH2O2 (r) -132 = C710O (r) 1885 = IPEAOOH (r)3638 = C131CO2H (r) -133 = M3PECOH (r)1886 = NBUTOLAOOH (r)3639 = C615CO (r) -134 = C139OH (r)1887 = C628OOH (r)3640 = MXYLAL (r) -135 = OXYBPER2OH (r)1888 = C413COOOH (r)3641 = NTM135OLO2 (r) -136 = CRESOH (r)1889 = CO1C6NO3 (r)3642 = C624CO (r) -137 = N2O5 (r) 1890 = C734OOH (r)3643 = OXYLAL (r) -138 = C85O (r) 1891 = C535O (r) 3644 = HOCOC4DIAL (r) -139 = M3HEXBOH (r)1892 = HIEB2O (r)3645 = TMBCHO (r) -140 = C91O (r) 1893 = C6COALCO3H (r)3646 = BCSOZ (r) -141 = MALANHYO (r)1894 = MBOANO3 (r)3647 = MGLYOOA (r) -142 = NC4DCO2 (r)1895 = MEKANO3 (r)3648 = TM135OLO2 (r) -143 = PBENZOLOH (r)1896 = METLBIPNO3 (r)3649 = C6H5CH2CHO (r) -144 = M2PEDOH (r)1897 = MIBKOHBOOH (r)3650 = DEMPHOLO2 (r) -145 = NOPINDO (r)1898 = EBFUOOH (r)3651 = C3H8 (r) -146 = C920O (r) 1899 = HYPROPO2H (r)3652 = CH3C2H2O2 (r) -147 = C8BC (r) 1900 = C148OOH (r)3653 = CYHXOLACO (r) -148 = LIMALOOA (r)1901 = CHOC2H4OOH (r)3654 = C4NO3COOOH (r) -149 = C116O (r) 1902 = HO1C4NO3 (r)3655 = TM124BCHO (r) -150 = HEX3ONAO (r)1903 = TMBO (r) 3656 = DIEKAOH (r) -151 = C137O (r) 1904 = HEX2ONBNO3 (r)3657 = PXYLAL (r) -152 = IPMALANHYO (r)1905 = LIMCNO3 (r)3658 = NBUTDBO2 (r) -153 = HO3C5O (r)1906 = HM2C43O (r)3659 = NDEMPHOLO2 (r) -154 = C8BCO (r) 1907 = HM22C3OOH (r)3660 = C4CONO3OOH (r) -155 = HEXAO (r) 1908 = CO25C73OOH (r)3661 = TM123BCHO (r) -156 = C136O (r) 1909 = CH2CHCH2NO3 (r)3662 = CO3C5CHO (r) -157 = C732O (r) 1910 = CH2CHCH2O (r)3663 = NTM123OLO2 (r) -158 = C626O (r) 1911 = LIMBOOH (r)3664 = C7ADCCO2H (r) -159 = C1311O (r)1912 = C730NO3 (r)3665 = NOETOLO2 (r) -160 = PEAO (r) 1913 = C148CO (r)3666 = NOETOLO (r) -161 = HEPTO (r) 1914 = NBUTOLBOOH (r)3667 = HM23C4O2 (r) -162 = C822O (r) 1915 = LIMBNO3 (r)3668 = C717O2 (r) -163 = EMALANHYO (r)1916 = CO3C4NO3OH (r)3669 = BZFUO2 (r) -164 = PMALANHYO (r)1917 = HNMVKOOH (r)3670 = BUTDAO2 (r) -165 = M3PEAO (r)1918 = BCALNO3 (r)3671 = C4ME2NO3O2 (r) -166 = M3HEXAO (r)1919 = HEPTNO3 (r)3672 = CONM2CO2H (r) -167 = HEX3ONDO (r)1920 = C46CO3H (r)3673 = C6PRCO4DB (r) -168 = C823O (r) 1921 = NC4H9NO3 (r)3674 = C75O2 (r) -169 = C812O (r) 1922 = CH3OCH2NO3 (r)3675 = PEBQO2 (r) -170 = MMALANHYO (r)1923 = CH3OCH2O (r)3676 = ACETC2H4O2 (r) -171 = HEXBO (r) 1924 = ME2BUOLO (r)3677 = NPXYFUO2 (r) -172 = C141O (r) 1925 = C727CO (r)3678 = C111O2 (r) -173 = C928O (r) 1926 = C625OOH (r)3679 = NMXYQO2 (r) -174 = C1011O (r)1927 = C6OH5O (r)3680 = NMETLQO2 (r) -175 = DIEKBO (r)1928 = ECO4 (r) 3681 = C7ECO4DB (r) -176 = NOPINBO (r)1929 = CO13C3CO2H (r)3682 = HO14CO2C4 (r) -177 = OCTO (r) 1930 = C1215NO3 (r)3683 = HO2CO4CHO (r) -178 = C1211O (r)1931 = C1215O (r)3684 = IPCATECHOL (r) -179 = CO2C54O (r)1932 = C716OOH (r)3685 = NPTLQO2 (r) -180 = C729O (r) 1933 = C915NO3 (r)3686 = C1011O2 (r) -181 = ME3BUOL (r)1934 = H3C25C6OH (r)3687 = NMEBFUO2 (r) -182 = C817O (r) 1935 = C6COCHOOOH (r)3688 = H3M3C6O2 (r) -183 = C1210O (r)1936 = OXYQONE (r)3689 = CYHEXONE (r) -184 = M2HEXAO (r)1937 = C71OOH (r)3690 = HO3C116O2 (r) -185 = HEX2ONAO (r)1938 = HOCO4C5OOH (r)3691 = HO3C126O2 (r) -186 = UDECO (r) 1939 = INAHPPAN (r)3692 = NTLFUO2 (r) -187 = C126O (r) 1940 = C63NO32OOH (r)3693 = C4MALOHOOH (r) -188 = CO1C6O (r)1941 = C517NO3 (r)3694 = C812O2 (r) -189 = C131O (r) 1942 = C517O (r) 3695 = PXYFUO2 (r) -190 = C1013O (r)1943 = NBZQOOH (r)3696 = PBFUO2 (r) -191 = C830O (r) 1944 = TBUTOLO (r)3697 = OXYQO2 (r) -192 = DECO (r) 1945 = HO3C76O (r)3698 = C1211O2 (r) -193 = C811O (r) 1946 = SC4H9NO3 (r)3699 = PTLQO2 (r) -194 = ISOPAO (r)1947 = C3NO3COOOH (r)3700 = INDO (r) -195 = EIPKBO (r)1948 = M2BU2OLOOH (r)3701 = PCATECHOL (r) -196 = DDECO (r) 1949 = IC4CHOAOOH (r)3702 = C8M2CO6OOH (r) -197 = NONO (r) 1950 = BCLKAOOH (r)3703 = C823O2 (r) -198 = C2H2 (r) 1951 = C7M15CO2O (r)3704 = C121O2 (r) -199 = C923O (r) 1952 = EOX2OLBNO3 (r)3705 = MXYFUO2 (r) -200 = H3M3C5O (r)1953 = ACECOCOCH3 (r)3706 = C619O2 (r) -201 = C9DCO (r) 1954 = HEX3ONANO3 (r)3707 = C536OOH (r) -202 = M2PEAO (r)1955 = C57AO (r) 3708 = BIACETOOH (r) -203 = C731O (r) 1956 = MOCOCH2OOH (r)3709 = C6CO4MEDB (r) -204 = DMMALYO (r)1957 = PROL11MNO3 (r)3710 = C914O2 (r) -205 = M22C4O (r)1958 = C87OOH (r)3711 = PPRBQO2 (r) -206 = C132O (r) 1959 = ACROOA (r)3712 = MALDIALCO2 (r) -207 = HO2C4CO2H (r)1960 = C6DICARBO (r)3713 = NEBFUO2 (r) -208 = ETHACETOH (r)1961 = C1312O (r)3714 = MXYQO2 (r) -209 = C98OH (r) 1962 = M3PECO (r)3715 = C718O2 (r) -210 = C88CO2H (r)1963 = C72NO3 (r)3716 = ME3CO2BUOL (r) -211 = C117O (r) 1964 = EBZBPERNO3 (r)3717 = C6CYTONO2 (r) -212 = PBZQOH (r)1965 = PEBNO3 (r)3718 = HO2C6O2 (r) -213 = C1214OH (r)1966 = M2PEAOOH (r)3719 = NC72O2 (r) -214 = MEK2OOC (r)1967 = C527O (r) 3720 = C9DCO2 (r) -215 = C1013CO2H (r)1968 = MC7CO2OOH (r)3721 = C4ME2OHO2 (r) -216 = TOL4OHNO2 (r)1969 = NC3CO2H (r)3722 = C830O2 (r) -217 = HIEPOXB (r)1970 = INB1NBCO3H (r)3723 = C7DDCCO2 (r) -218 = C1215OH (r)1971 = BUTDAO (r)3724 = C44O2 (r) -219 = C924OH (r)1972 = C1211NO3 (r)3725 = TMB1FUO2 (r) -220 = M2BKAOH (r)1973 = LMKBOOH (r)3726 = C5OCO3M (r) -221 = NC8H18 (r)1974 = NC3H7NO3 (r)3727 = EBFUO2 (r) -222 = C2OHOCO2H (r)1975 = BPINCO (r)3728 = NBZFUO2 (r) -223 = H14M4C6 (r)1976 = M2BU2OLNO3 (r)3729 = C6CO4M2DB (r) -224 = LMKOOA (r)1977 = ME3BUOLNO3 (r)3730 = C710O2 (r) -225 = OXYLOH (r)1978 = HO2C54NO3 (r)3731 = HO3C106O2 (r) -226 = C524OH (r)1979 = NMXYQOOH (r)3732 = C6ETCO4DB (r) -227 = TM123BCO2H (r)1980 = EIPKBNO3 (r)3733 = NOPINBO2 (r) -228 = HEXBOH (r)1981 = INANCHO (r)3734 = HCOC5 (r) -229 = ETOHOCHO (r)1982 = C7CO2DCO3H (r)3735 = MPRKAOH (r) -230 = C51CO2H (r)1983 = MIPKAOOH (r)3736 = C1014CO (r) -231 = HOC4H8OH (r)1984 = C106O (r) 3737 = C1014O (r) -232 = NMBOBCO (r)1985 = C922OOH (r)3738 = NIPRBQO2 (r) -233 = BZFUOH (r)1986 = C128O (r) 3739 = NMXYFUO2 (r) -234 = M3HEXAOH (r)1987 = HEXANO3 (r)3740 = PBZQO2 (r) -235 = CHEX (r) 1988 = MC6CO2OH (r)3741 = C97O2 (r) -236 = BCALOOA (r)1989 = C813O (r) 3742 = C8CO4DB (r) -237 = HOC2H4CO2H (r)1990 = NLMKAOOH (r)3743 = C732O2 (r) -238 = BUTDAOH (r)1991 = INB1NBCHO (r)3744 = NAPINBO (r) -239 = CH3CCH3OOB (r)1992 = HM23C4OOH (r)3745 = NC101O2 (r) -240 = H2M2C4CO2H (r)1993 = BCSOZOOH (r)3746 = DMMALYO2 (r) -241 = LIMONIC (r)1994 = HO2M2C4OOH (r)3747 = H2M2CO5C6 (r) -242 = M2PEAOH (r)1995 = LMKBNO3 (r)3748 = C14O3ECHO (r) -243 = BCBOOA (r)1996 = C626NO3 (r)3749 = HO3C86O2 (r) -244 = NIPBFUONE (r)1997 = PRNO3CO3H (r)3750 = C514O2 (r) -245 = NC4PDCO2 (r)1998 = CO1H63O (r)3751 = HO3C96O2 (r) -246 = MALANHY2OH (r)1999 = C6NO3COOOH (r)3752 = TLFUO2 (r) -247 = C825OH (r)2000 = HO2CO4C5O (r)3753 = PETLQO2 (r) -248 = C126OH (r)2001 = C64OH (r) 3754 = PXYBIPERO (r) -249 = ETHGLY (r)2002 = C96OOH (r)3755 = MBOACO (r) -250 = TOLUENE (r)2003 = INB1HPPAN (r)3756 = C6CO23HO5 (r) -251 = C126CO2H (r)2004 = MACRO (r) 3757 = CO2HO3C6 (r) -252 = C624CO2H (r)2005 = C56O (r) 3758 = HO1C4O2 (r) -253 = NC12H26 (r)2006 = ME3BUOLOOH (r)3759 = HO1CO24C6 (r) -254 = NOPINCO (r)2007 = C728NO3 (r)3760 = NC71O2 (r) -255 = C23O3ECO2H (r)2008 = C152O (r) 3761 = C921O2 (r) -256 = C143OH (r)2009 = C6DIALOOH (r)3762 = IPBFUO2 (r) -257 = C1011OH (r)2010 = NMBOBOOH (r)3763 = NMVK (r) -258 = HOC3H6CO2H (r)2011 = C66NO35OH (r)3764 = C1013O2 (r) -259 = NEBFUONE (r)2012 = HO3C4O (r)3765 = C4MCODBCO2 (r) -260 = H2 (r) 2013 = C2H5CHOOA (r)3766 = C101O2 (r) -261 = INB2O (r) 2014 = OXYLNO3 (r)3767 = C42NO33O (r) -262 = PXYLOH (r)2015 = OXYLO (r) 3768 = C91O2 (r) -263 = C7ADCOH (r)2016 = C76OOH (r)3769 = PXYQO2 (r) -264 = DM124OHNO2 (r)2017 = C818OOH (r)3770 = OETLQO2 (r) -265 = PINIC (r) 2018 = C627OOH (r)3771 = TM124QO2 (r) -266 = C1013OH (r)2019 = M23C4OOH (r)3772 = NPBFUO2 (r) -267 = OETLQOH (r)2020 = CHEXNO3 (r)3773 = C14O3PCHO (r) -268 = C517OH (r)2021 = METLOBPROH (r)3774 = NIPBFUO2 (r) -269 = OCTOH (r) 2022 = LMLKBOOH (r)3775 = C14O3IPCHO (r) -270 = NC9H20 (r)2023 = APINBNO3 (r)3776 = C6H5CH2O2 (r) -271 = C96O (r) 2024 = C715O (r) 3777 = HO2CO5C7 (r) -272 = CHOOMCO2H (r)2025 = C4CHOAOOH (r)3778 = HO2M2C5O2 (r) -273 = PEBQOH (r)2026 = C8DCO2CO3H (r)3779 = M2PECO (r) -274 = TM123BP2OH (r)2027 = C92OOH (r)3780 = CO24M3C5OH (r) -275 = C137CO2H (r)2028 = C6NO324CO (r)3781 = CO3C85O2 (r) -276 = C6H5C2CO2H (r)2029 = MIBKAOHAO (r)3782 = METLQO2 (r) -277 = C6H5C2OH (r)2030 = HO2C6O (r)3783 = C7CO4DB (r) -278 = CYHXDIOLA (r)2031 = HO3C126O (r)3784 = CYC6DIONO2 (r) -279 = C87OH (r) 2032 = C718NO3 (r)3785 = CO3C75O2 (r) -280 = H3M3C5CO2H (r)2033 = C718O (r) 3786 = PHENO2 (r) -281 = C146OH (r)2034 = C717NO3 (r)3787 = C6IPRCO4DB (r) -282 = CO2C54CO2H (r)2035 = C717O (r) 3788 = MEBFUO2 (r) -283 = IPBZBPR2OH (r)2036 = C3MNO3CO3H (r)3789 = C137O2 (r) -284 = C68OH (r) 2037 = TBUTOLNO3 (r)3790 = DE35TO2 (r) -285 = HO124C5 (r)2038 = CH2OOA (r)3791 = NMETOLO2 (r) -286 = HO13C5 (r)2039 = C4DBM2CO3H (r)3792 = CO2C54CHO (r) -287 = C23O3CCO2H (r)2040 = NISOPNO3 (r)3793 = TOL1O (r) -288 = NEOP (r) 2041 = NISOPO (r)3794 = IPBZBIPRO2 (r) -289 = HO24C5 (r)2042 = C3H7CHOOA (r)3795 = IPBZBIPRO (r) -290 = C1212O (r)2043 = H14CO23C4 (r)3796 = NMXYOLO2 (r) -291 = M33C3CO2H (r)2044 = CH3OOH (r)3797 = ETOLO2 (r) -292 = MXYBPER2OH (r)2045 = M2BKANO3 (r)3798 = METLBIPRO2 (r) -293 = APINOOA (r)2046 = NPTLQOOH (r)3799 = NPBNZOLO2 (r) -294 = C518CO2H (r)2047 = MPHCOMEOOH (r)3800 = C7DCCO2H (r) -295 = HO36C11 (r)2048 = TM124QONE (r)3801 = C527O2 (r) -296 = C1213OH (r)2049 = H2M4C65NO3 (r)3802 = PETLBIPRO (r) -297 = C139O (r) 2050 = H2M4C65O (r)3803 = TM123BPRO2 (r) -298 = TBUTOL (r)2051 = EPXM2DCO3H (r)3804 = PBZBIPERO2 (r) -299 = OXYQOH (r)2052 = C94OOH (r)3805 = PBZBIPERO (r) -300 = C97O (r) 2053 = NMXYFUOOH (r)3806 = NBPINBO2 (r) -301 = CO2C4CO2H (r)2054 = PTLQONE (r)3807 = PHC3O2 (r) -302 = INDOH (r) 2055 = C5M2OHCO3H (r)3808 = NPXYOLO2 (r) -303 = C9DCOH (r)2056 = C810O (r) 3809 = HCOCO (r) -304 = NEOPOH (r)2057 = PEBOOH (r)3810 = EMPHCOMO2 (r) -305 = NC524OH (r)2058 = APINBOOH (r)3811 = EBZBIPERO2 (r) -306 = H13M3C5 (r)2059 = C104OOH (r)3812 = EBZBIPERO (r) -307 = CH3OCH2OH (r)2060 = HO3C116O (r)3813 = NEBNZOLO2 (r) -308 = M33C4OH (r)2061 = C923NO3 (r)3814 = MPHCOMEO2 (r) -309 = ETOMECO2H (r)2062 = C819OOH (r)3815 = NIPBNZOLO2 (r) -310 = C822OH (r)2063 = C823NO3 (r)3816 = IC7DCCO2H (r) -311 = NC826OH (r)2064 = C5MEJCO3H (r)3817 = DMEBIPRO2 (r) -312 = EBFUOH (r)2065 = NLIMOOH (r)3818 = DMEBIPRO (r) -313 = C1211OH (r)2066 = PE2ENEBO (r)3819 = DM35EBO2 (r) -314 = HO25C7 (r)2067 = C65OH4NO3 (r)3820 = NOXYOLO2 (r) -315 = C127O (r) 2068 = C42MNO3OOH (r)3821 = C5DBCOCO2H (r) -316 = M2PECOH (r)2069 = C4MNO31OOH (r)3822 = H2M4CO5C6 (r) -317 = C826OH (r)2070 = MEKAOOH (r)3823 = TLBIPERO2 (r) -318 = PEBQCO (r)2071 = C924OOH (r)3824 = TLBIPERO (r) -319 = CHOOCH2OH (r)2072 = C622NO3 (r)3825 = NPETOLO2 (r) -320 = C831OH (r)2073 = C622O (r) 3826 = METLBIPRO (r) -321 = EOX2ETA2OH (r)2074 = HO13C5NO3 (r)3827 = NCRESO2 (r) -322 = PPRBQOH (r)2075 = DIETETNO3 (r)3828 = NTM124OLO2 (r) -323 = PPRBQCO (r)2076 = DIETETO (r)3829 = C3M2COCO2H (r) -324 = PPRBQOOH (r)2077 = BUTALNO3 (r)3830 = CATECHOL (r) -325 = C136OH (r)2078 = DE35TNO3 (r)3831 = ECATECHOL (r) -326 = C142O (r) 2079 = C1311NO3 (r)3832 = C7BDICARB (r) -327 = CH3CCH3OOA (r)2080 = COC4NO3OOH (r)3833 = OETLPOXMUC (r) -328 = NSTYRENOOH (r)2081 = GAOOB (r) 3834 = OXYEPOXMUC (r) -329 = HM22C3CO2H (r)2082 = C4DBMECO3H (r)3835 = INCNO3 (r) -330 = HO2C3CO2H (r)2083 = DIEKBNO3 (r)3836 = MTBKO2 (r) -331 = NBZFUONE (r)2084 = C713OOH (r)3837 = HMACRO2 (r) -332 = MXYLOH (r)2085 = C534O (r) 3838 = C922O2 (r) -333 = HM23C4OH (r)2086 = HEXBNO3 (r)3839 = C925O2 (r) -334 = C928OH (r)2087 = ETOLNO3 (r)3840 = NC826O2 (r) -335 = BUT2OLOH (r)2088 = ETOLO (r) 3841 = C928O2 (r) -336 = NOPINAOH (r)2089 = BZFUOOH (r)3842 = C63NO32O (r) -337 = HONO (r) 2090 = PROL11MO (r)3843 = HEX3ONE (r) -338 = M22C4OH (r)2091 = NPXYQOOH (r)3844 = NBCKO2 (r) -339 = M23C4OH (r)2092 = MIPKBNO3 (r)3845 = C810O2 (r) -340 = C23O3MOH (r)2093 = NOXYQOOH (r)3846 = C621O2 (r) -341 = PXYLCO2H (r)2094 = M2HEXANO3 (r)3847 = IBUTALBO2 (r) -342 = NC10H22 (r)2095 = C711OOH (r)3848 = C730O2 (r) -343 = HOIPRCO2H (r)2096 = ETHOHNO3 (r)3849 = C519CHO (r) -344 = C8BCOH (r)2097 = M33C4NO3 (r)3850 = LIMALO2 (r) -345 = PEAOH (r) 2098 = BCKAOOH (r)3851 = M3C4CHO (r) -346 = HM22C3OH (r)2099 = NBUTDBNO3 (r)3852 = NOPINAO2 (r) -347 = C88OH (r) 2100 = NBUTDBO (r)3853 = C7DDCO2 (r) -348 = HO13C4OH (r)2101 = INB1OH (r)3854 = HM33C4O2 (r) -349 = M3PEAOH (r)2102 = PXYL1OOH (r)3855 = C1310O2 (r) -350 = C7DDCOH (r)2103 = APINAOOH (r)3856 = M22C3CHO (r) -351 = NORPINIC (r)2104 = PGLOOB (r)3857 = CO3C54CHO (r) -352 = MOXCOCH2OH (r)2105 = CO2N3CO3H (r)3858 = C811O2 (r) -353 = HEPTOH (r)2106 = C4CHOBNO3 (r)3859 = HM22C4O2 (r) -354 = C108OH (r)2107 = MECOACEOOH (r)3860 = C7CO3OHO2 (r) -355 = C56OH (r) 2108 = C141NO3 (r)3861 = HO13C3CHO (r) -356 = IPBFUOH (r)2109 = C57OOH (r)3862 = CO25C6CHO (r) -357 = C1310OH (r)2110 = C4OH2CO3H (r)3863 = LIMAO2 (r) -358 = PHCOETOH (r)2111 = C722OOH (r)3864 = C525O2 (r) -359 = C914OH (r)2112 = C42O (r) 3865 = NC51O2 (r) -360 = KLIMONIC (r)2113 = DDECNO3 (r)3866 = NSTYRENO2 (r) -361 = TLBIPER2OH (r)2114 = CONO3C6OOH (r)3867 = LIMBO2 (r) -362 = C141OOA (r)2115 = C55OOH (r)3868 = MIPK (r) -363 = CO2M33CO2H (r)2116 = HO13C3CO3H (r)3869 = HO2MC5O2 (r) -364 = C1011CO2H (r)2117 = C815CO2O (r)3870 = HO1C6O2 (r) -365 = C918OH (r)2118 = MIBKAOH (r)3871 = C711O2 (r) -366 = PINALOH (r)2119 = BCLKACO (r)3872 = LMKAO2 (r) -367 = C928CO2H (r)2120 = C62CO3H (r)3873 = H2MC5O2 (r) -368 = C734OH (r)2121 = C114OOH (r)3874 = C516O2 (r) -369 = C107OH (r)2122 = HO3C106O (r)3875 = C54CHO (r) -370 = C107O (r) 2123 = C61NO3 (r)3876 = NLIMALO2 (r) -371 = C148OH (r)2124 = C93NO3 (r)3877 = M2C43CHO (r) -372 = PTLQOH (r)2125 = C66NO35OOH (r)3878 = C51NO32O (r) -373 = OETLQCO (r)2126 = IC3H7OOH (r)3879 = CO2M33CHO (r) -374 = DETLMUOH (r)2127 = HO1C4OOH (r)3880 = C122O2 (r) -375 = C517CO2H (r)2128 = NBUTOLBNO3 (r)3881 = C92O2 (r) -376 = HO3C5CO2H (r)2129 = C6NO3CO5OH (r)3882 = C1213O2 (r) -377 = C129OH (r)2130 = CISOPCO (r)3883 = BCALO2 (r) -378 = C830CO2H (r)2131 = CHOMOHCO3H (r)3884 = C4CHOBO2 (r) -379 = M2C43CO2H (r)2132 = BCALCCO (r)3885 = C52O2 (r) -380 = HEXCOH (r)2133 = C65OH4OOH (r)3886 = C1313O2 (r) -381 = EOX2ETB2OH (r)2134 = EMPHGLYOX (r)3887 = C4M3NO31O (r) -382 = C1012OH (r)2135 = M3BU2OLOOH (r)3888 = C4MCONO3O2 (r) -383 = HEXAOH (r)2136 = C1012NO3 (r)3889 = M2BKBO2 (r) -384 = C3ME3CO2H (r)2137 = C9M2CO6OOH (r)3890 = C1312O2 (r) -385 = H134M3C5 (r)2138 = HC4ACO2H (r)3891 = NBCO2 (r) -386 = M3FOOA (r)2139 = C522CO3H (r)3892 = MIBKHO4CHO (r) -387 = HOEMPHNO2 (r)2140 = PINONIC (r)3893 = HO2C5O2 (r) -388 = C1211CO2H (r)2141 = LMLKBCO (r)3894 = M23C43O2 (r) -389 = MXYLCO2H (r)2142 = NC61CO3H (r)3895 = NC623O2 (r) -390 = C624OH (r)2143 = C85OOH (r)3896 = C23O3ECHO (r) -391 = IEPOXA (r)2144 = C42CO3H (r)3897 = C5CONO34O (r) -392 = C6OTKETOH (r)2145 = HOC4CHOO (r)3898 = BCCO2 (r) -393 = HO2C43CO2H (r)2146 = C918CO3H (r)3899 = C613O2 (r) -394 = C118OH (r)2147 = INCOOH (r)3900 = EOX2ETCHO (r) -395 = NOPINBOH (r)2148 = PGLOOA (r)3901 = C1311O2 (r) -396 = TM123BOH (r)2149 = HEXCNO3 (r)3902 = C1215O2 (r) -397 = OXYQCO (r)2150 = NO3CH2CO3H (r)3903 = NPHENO2 (r) -398 = OXYQOOH (r)2151 = C86OOH (r)3904 = C6CONO34O (r) -399 = C811OH (r)2152 = NOXYFUOOH (r)3905 = NC102O2 (r) -400 = C916OH (r)2153 = COO2C4OOH (r)3906 = CO25C7 (r) -401 = C923OH (r)2154 = C129CO (r)3907 = NORLIMO2 (r) -402 = PHCOMEOH (r)2155 = C729NO3 (r)3908 = C731O2 (r) -403 = NOPINDOH (r)2156 = CHOOCH2OOH (r)3909 = MC4CONO3O (r) -404 = NOPINDCO (r)2157 = C137NO3 (r)3910 = C62NO33O (r) -405 = NOPINDOOH (r)2158 = PE2ENEAO (r)3911 = C23O3CCHO (r) -406 = C736OH (r)2159 = CO2H3MCO3H (r)3912 = C71O2 (r) -407 = C918O (r) 2160 = BCBOOH (r)3913 = C616O (r) -408 = CO1H63OH (r)2161 = OCTNO3 (r)3914 = C23O3MCHO (r) -409 = C137OH (r)2162 = INAO (r) 3915 = HOBUT2CHO (r) -410 = C830OH (r)2163 = PEN2ONE1O (r)3916 = C112O2 (r) -411 = C630OH (r)2164 = C1014NO3 (r)3917 = HO3CO6C8 (r) -412 = M2HEXAOH (r)2165 = C131NO3 (r)3918 = C5CO243OH (r) -413 = C131OH (r)2166 = C6CONO3OOH (r)3919 = C102O2 (r) -414 = C827OOH (r)2167 = PXYQONE (r)3920 = BCKAO2 (r) -415 = C1014OH (r)2168 = M2PEANO3 (r)3921 = APINAO2 (r) -416 = HOC3H6OH (r)2169 = M22C4NO3 (r)3922 = C53NO32O (r) -417 = DIETETOH (r)2170 = BCALCO (r)3923 = HOIBUTCHO (r) -418 = C810OH (r)2171 = ECO3CO3H (r)3924 = M33C3CHO (r) -419 = LIMOOA (r)2172 = HO1C5NO3 (r)3925 = C66NO35O (r) -420 = HOBUT2CO2H (r)2173 = HO1C5O (r)3926 = CO2HOC61O2 (r) -421 = M3HEXBO (r)2174 = NAPINBOOH (r)3927 = LMKBO2 (r) -422 = NC4EDCO2 (r)2175 = TLCOBIPEOH (r)3928 = NC1313O2 (r) -423 = TMBCO2H (r)2176 = C4NO3CO3H (r)3929 = MACRNB (r) -424 = M2PEBOH (r)2177 = DM123OOH (r)3930 = C4MCO2O (r) -425 = HO2M2C5OH (r)2178 = BCAOOH (r)3931 = C4MCO2OOH (r) -426 = NC11H24 (r)2179 = C52NO31OOH (r)3932 = HO1C5O2 (r) -427 = C915OH (r)2180 = NBCOOH (r)3933 = CO2N3CHO (r) -428 = EBZBPER2OH (r)2181 = APINANO3 (r)3934 = C43NO34O (r) -429 = DDECOH (r)2182 = HO2M2C5NO3 (r)3935 = H13C43CHO (r) -430 = C824OH (r)2183 = INB1NACO3H (r)3936 = APINBO2 (r) -431 = TMBOH (r) 2184 = BCBNO3 (r)3937 = NDMMALYO2 (r) -432 = DE35TOH (r)2185 = C82NO3 (r)3938 = HO24C4CHO (r) -433 = C519CO2H (r)2186 = CY6DIONO (r)3939 = C510O2 (r) -434 = HM22CO2H (r)2187 = ACEC2H4OOH (r)3940 = NLIMO2 (r) -435 = HO14MC5 (r)2188 = C2H5OOH (r)3941 = C76O2 (r) -436 = PBZBPER2OH (r)2189 = HO2C6NO3 (r)3942 = BU1ENO3O (r) -437 = HO25C6 (r)2190 = CO2HOC61O (r)3943 = NAPINAO2 (r) -438 = BUT2CO2H (r)2191 = NC4CO2H (r)3944 = EIPKAO2 (r) -439 = C141OH (r)2192 = M33C4OOH (r)3945 = NTMB1FUO2 (r) -440 = C147OH (r)2193 = IPEBNO3 (r)3946 = H3M3C5CHO (r) -441 = C128OH (r)2194 = M2PECNO3 (r)3947 = C88CHO (r) -442 = C89OH (r) 2195 = C117NO3 (r)3948 = C611O2 (r) -443 = C89O (r) 2196 = PECNO3 (r)3949 = NC728O2 (r) -444 = C6H5CH2OH (r)2197 = H2M3CO4CHO (r)3950 = C728O2 (r) -445 = M2HEXBO (r)2198 = HM2C43NO3 (r)3951 = C1214O2 (r) -446 = ETOLOH (r)2199 = M22C43NO3 (r)3952 = CO1C6O2 (r) -447 = NC7H16 (r)2200 = C5DIALO (r)3953 = C7MCO3OHO2 (r) -448 = NPBFUONE (r)2201 = C74O (r) 3954 = CY6TRIONO2 (r) -449 = H2M3C4CO2H (r)2202 = H3M3C6NO3 (r)3955 = C108O2 (r) -450 = PINALO (r)2203 = C79O (r) 3956 = C52NO33O (r) -451 = CO2C4DIAL (r)2204 = PHCOETOOH (r)3957 = C133O (r) -452 = C1210OH (r)2205 = C122OOH (r)3958 = COO2C3CHO (r) -453 = NONOH (r) 2206 = HO3C116NO3 (r)3959 = MEKCOH (r) -454 = C97OH (r) 2207 = C917O (r) 3960 = CO1M22CHO (r) -455 = PTLQCO (r)2208 = PROL1MCO3H (r)3961 = HO3C6O2 (r) -456 = HM33C3CO2H (r)2209 = C733CO (r)3962 = C822O2 (r) -457 = C822CO2H (r)2210 = CHOC4DOLO (r)3963 = BCBO2 (r) -458 = INAOH (r) 2211 = IPRHOCO3H (r)3964 = C5NO3CO4O2 (r) -459 = OETLQOOH (r)2212 = IPRCHOOA (r)3965 = C4CO2OOH (r) -460 = UDECOH (r)2213 = HEX3ONDNO3 (r)3966 = BCKBO2 (r) -461 = OXYLCO2H (r)2214 = C930OOH (r)3967 = HO1MC5O2 (r) -462 = C1311OH (r)2215 = CYHXONANO3 (r)3968 = C7CO4EDB (r) -463 = INCOH (r) 2216 = NONNO3 (r)3969 = NLMKAO2 (r) -464 = PHC3OH (r)2217 = CO235C6OOH (r)3970 = C4M2NO32O (r) -465 = C622OH (r)2218 = HM23C4NO3 (r)3971 = BCAO2 (r) -466 = M22C43OH (r)2219 = IPROPOLPER (r)3972 = MOXY2CHO (r) -467 = C116OH (r)2220 = H2M3C4NO3 (r)3973 = C8CO3OHO2 (r) -468 = HO36C9 (r)2221 = C124OOH (r)3974 = C623O2 (r) -469 = HO36C8 (r)2222 = NBUTDAOH (r)3975 = C7ADCO2 (r) -470 = C827CO2H (r)2223 = IPEBOOH (r)3976 = C5124COO2 (r) -471 = ETOMEOH (r)2224 = C731NO3 (r)3977 = C81O2 (r) -472 = C914CO (r)2225 = DM124OOH (r)3978 = MPRK (r) -473 = METACETOH (r)2226 = C1213O (r)3979 = MIBKCOOHO2 (r) -474 = C6H13CO2H (r)2227 = PEAOOH (r)3980 = C530O2 (r) -475 = DMEBMUOH (r)2228 = C61CO3H (r)3981 = C917O2 (r) -476 = C732OH (r)2229 = IPROPOLO (r)3982 = NOPINCO2 (r) -477 = C2H5MECOOA (r)2230 = C524CO (r)3983 = IPRBQO2 (r) -478 = C823OH (r)2231 = LIMALACO (r)3984 = CO235C6O2 (r) -479 = HO2C54CO2H (r)2232 = TMBNO3 (r)3985 = C826O2 (r) -480 = TM124BOH (r)2233 = HO2M2C5OOH (r)3986 = HM2C43CHO (r) -481 = C731OH (r)2234 = C615CO2O (r)3987 = STYRENO2 (r) -482 = C733OH (r)2235 = IBUTOLCO2H (r)3988 = NBCALO2 (r) -483 = DMPHOHNO2 (r)2236 = C58OOH (r)3989 = H1MC5O2 (r) -484 = OCCOHCOH (r)2237 = IC4H9NO3 (r)3990 = C151O2 (r) -485 = PBFUOH (r)2238 = C3EDIALO (r)3991 = C42CHO (r) -486 = DECOH (r) 2239 = C142NO3 (r)3992 = HOC4CHOO2 (r) -487 = TM135MUOH (r)2240 = MACRNBPAN (r)3993 = MACROH (r) -488 = HO14M3C5 (r)2241 = TM123BPNO3 (r)3994 = LIMCO2 (r) -489 = C1210CO2H (r)2242 = BCCNO3 (r)3995 = IBUTDIAL (r) -490 = PBZQCO (r)2243 = INB1GLYOX (r)3996 = TM135OXMUC (r) -491 = PBZQOOH (r)2244 = EIPKAOOH (r)3997 = IPCATEC1O2 (r) -492 = C622CO2H (r)2245 = C103NO3 (r)3998 = INDHPCO3 (r) -493 = C919OH (r)2246 = M3PEBNO3 (r)3999 = NPBNZ1O2 (r) -494 = HOCH2COCO2H (r)2247 = HO2C4OOH (r)4000 = DM124O2 (r) -495 = PEBOH (r) 2248 = C5COHOCO3H (r)4001 = PXY1O2 (r) -496 = C136CO2H (r)2249 = C526O (r) 4002 = PXCATEC1O2 (r) -497 = C54OH (r) 2250 = C1210NO3 (r)4003 = MXYBIPERO2 (r) -498 = HO134C5 (r)2251 = HO24C4CO3H (r)4004 = MXYBIPERO (r) -499 = C23O3MCO2H (r)2252 = ISOPBOOH (r)4005 = PXYL1O2 (r) -500 = C929OH (r)2253 = C610NO3 (r)4006 = NOXYOL1O2 (r) -501 = CO1C6OH (r)2254 = BCSOZNO3 (r)4007 = T124CAT1O2 (r) -502 = C619OH (r)2255 = HM22COCHO (r)4008 = MET1O2 (r) -503 = TM124BCO2H (r)2256 = C67NO3 (r)4009 = TM124O2 (r) -504 = M3PEBOH (r)2257 = C1212NO3 (r)4010 = TLEPOXMUC (r) -505 = DM35EBOH (r)2258 = HMGLOOA (r)4011 = NMXYOL1O2 (r) -506 = HMVKBCO2H (r)2259 = HM33C4OH (r)4012 = PXYOLO (r) -507 = C116CO2H (r)2260 = EOCOCH2OOH (r)4013 = C6MOHCOCO3 (r) -508 = C914OOH (r)2261 = IBUTOLCNO3 (r)4014 = C3MCOCO2H (r) -509 = IPRBQOH (r)2262 = NTMB1FUOOH (r)4015 = CHOC4OHO2 (r) -510 = IPRBQCO (r)2263 = C6EO2HCO3H (r)4016 = PBENZO2 (r) -511 = C1312OH (r)2264 = M22C4OOH (r)4017 = DETLPOXMUC (r) -512 = ETHFORMOH (r)2265 = LMLKACO (r)4018 = DMEBPOXMUC (r) -513 = C23O3EOH (r)2266 = BCKBOOH (r)4019 = C517O2 (r) -514 = CO2C3OOB (r)2267 = NMEBFUOOH (r)4020 = EBENZO2 (r) -515 = C731CO2H (r)2268 = HO3C106NO3 (r)4021 = NIPBNZ1O2 (r) -516 = C720OH (r)2269 = HEX2ONAOOH (r)4022 = NCRES1O2 (r) -517 = BZBIPER2OH (r)2270 = C63NO3 (r)4023 = T123CAT1O2 (r) -518 = PTLQOOH (r)2271 = C123NO3 (r)4024 = MC3CODBCO2 (r) -519 = HM2C43CO2H (r)2272 = ALLYLOH (r)4025 = NPXYQO2 (r) -520 = C813OH (r)2273 = C924CO (r)4026 = C5DBCO2CO3 (r) -521 = PEBQOOH (r)2274 = PPRBQONE (r)4027 = TM124OXMUC (r) -522 = C126OOA (r)2275 = C831NO3 (r)4028 = OXYBIPERO2 (r) -523 = TM135BP2OH (r)2276 = MBOBNO3 (r)4029 = C7DCCO2 (r) -524 = HO36C12 (r)2277 = M3PEANO3 (r)4030 = PHCOETO2 (r) -525 = HO36C10 (r)2278 = PE1ENEBNO3 (r)4031 = PHCOCOCO2 (r) -526 = C106OH (r)2279 = C613O (r) 4032 = EBZPOXMUC (r) -527 = C514OH (r)2280 = C152NO3 (r)4033 = OXCATEC1O2 (r) -528 = C112O (r) 2281 = METLQONE (r)4034 = NT123L1O2 (r) -529 = NOAOOA (r)2282 = C77NO3 (r)4035 = MTCATEC1O2 (r) -530 = NC730OH (r)2283 = OXYL1OOH (r)4036 = NEBNZ1O2 (r) -531 = IPBZMUCOH (r)2284 = HO3C86O (r)4037 = TM123O2 (r) -532 = C54O (r) 2285 = PEANO3 (r)4038 = MXYL1O2 (r) -533 = HMVKBO (r)2286 = CH3CHOOA (r)4039 = NPXYOL1O2 (r) -534 = C76O (r) 2287 = C7M6CO2O (r)4040 = NOETOL1O2 (r) -535 = NBZQO (r) 2288 = BCKBNO3 (r)4041 = DMPHO2 (r) -536 = C151OH (r)2289 = C525OOH (r)4042 = C6145COO2 (r) -537 = C734O (r) 2290 = C65NO3CO3H (r)4043 = C116O2 (r) -538 = PCATECOOA (r)2291 = H2M2C65NO3 (r)4044 = NT124L1O2 (r) -539 = C81O (r) 2292 = NC3H7OOH (r)4045 = EBENZOLO (r) -540 = LIMCOH (r)2293 = C927O (r) 4046 = C7OHCO2CO3 (r) -541 = NC102O (r)2294 = NIPRBQOOH (r)4047 = C6DCRBBOH (r) -542 = C6CO3MOH (r)2295 = PHCOCOME (r)4048 = TOL1OHNO2 (r) -543 = NC623OH (r)2296 = NOPINANO3 (r)4049 = MCATEC1O2 (r) -544 = C519O (r) 2297 = PE2ENEBNO3 (r)4050 = EMPHO2 (r) -545 = C73O (r) 2298 = C102OOH (r)4051 = EMPHCO3 (r) -546 = C52OH (r) 2299 = HO3C86NO3 (r)4052 = EMPOHNO2O2 (r) -547 = C829OH (r)2300 = C929OOH (r)4053 = C43OHCOCHO (r) -548 = M3HEX (r) 2301 = C3M3OHCO3H (r)4054 = OTCATEC1O2 (r) -549 = LMKAO (r) 2302 = C6H5C2NO3 (r)4055 = TM135BPRO2 (r) -550 = NMEBFUO (r)2303 = C1310NO3 (r)4056 = MXYEPOXMUC (r) -551 = C4COMOH3O (r)2304 = C1310O (r)4057 = ECATEC1O2 (r) -552 = NBUTDAO (r)2305 = LMLKAOOH (r)4058 = HM22C3O2 (r) -553 = C818O (r) 2306 = HO1C3NO3 (r)4059 = C622O2 (r) -554 = C67OH (r) 2307 = C7ODLBCO3H (r)4060 = CHOOCH2O2 (r) -555 = NPXYQO (r)2308 = CISOPAO (r)4061 = NMETOL1O2 (r) -556 = LIMALOH (r)2309 = PXYLNO3 (r)4062 = C6DCARBBO (r) -557 = C6COCHOO (r)2310 = C7CDCCO2H (r)4063 = IPBENZO2 (r) -558 = NC41OOA (r)2311 = C133NO3 (r)4064 = PTCATEC1O2 (r) -559 = C615OH (r)2312 = C825OOH (r)4065 = PCATEC1O2 (r) -560 = PTCATECOOA (r)2313 = C96NO3 (r)4066 = INB1NO3 (r) -561 = C9DCCO (r)2314 = C43NO3CO3H (r)4067 = NPHEN1O2 (r) -562 = C9DCOOH (r)2315 = BCLKBCO (r)4068 = PHIC3O2 (r) -563 = NC3OOA (r)2316 = C81OOH (r)4069 = PHCOMEO2 (r) -564 = CO25C74O (r)2317 = MXYBIPENO3 (r)4070 = DMPHCOMO2 (r) -565 = TLEMUCOH (r)2318 = NC4H9OOH (r)4071 = C5CO14CO2 (r) -566 = M23C4 (r) 2319 = H13C43CO3H (r)4072 = NPETOL1O2 (r) -567 = C625OH (r)2320 = H13CO2CO3H (r)4073 = MXCATEC1O2 (r) -568 = ECATECOOA (r)2321 = PHC3NO3 (r)4074 = OETLBIPRO2 (r) -569 = PXCATECOOA (r)2322 = PHC3O (r) 4075 = MXY1O2 (r) -570 = C114O (r) 2323 = C109O (r) 4076 = NPEBQO2 (r) -571 = C711O (r) 2324 = C720O (r) 4077 = C88O2 (r) -572 = C3EDIALOH (r)2325 = C1313NO3 (r)4078 = C8BCO2 (r) -573 = C4ME2NO3O (r)2326 = CH3COCH2O (r)4079 = CATEC1O2 (r) -574 = C122O (r) 2327 = C139NO3 (r)4080 = METLPOXMUC (r) -575 = C124O (r) 2328 = C811NO3 (r)4081 = EGLYOOB (r) -576 = C7EDCOH (r)2329 = INDHCO3H (r)4082 = OET1O2 (r) -577 = MTBKOH (r)2330 = C113NO3 (r)4083 = PXYEPOXMUC (r) -578 = C4MCONO3OH (r)2331 = H3M3C5OOH (r)4084 = MGLOOB (r) -579 = MBOCOCO (r)2332 = C614NO3 (r)4085 = PET1O2 (r) -580 = BCSOZOH (r)2333 = DM35EBNO3 (r)4086 = IC7DCCO2 (r) -581 = C511O (r) 2334 = DM35EBO (r)4087 = C45O2 (r) -582 = CHOC3COO (r)2335 = INCGLYOX (r)4088 = C126O2 (r) -583 = NC71CO (r)2336 = C3EODBCO2H (r)4089 = C720O2 (r) -584 = NTMB2FUO (r)2337 = IPEANO3 (r)4090 = BPINCO2 (r) -585 = BCLKBO (r)2338 = IBUALANO3 (r)4091 = APINCO2 (r) -586 = C61OH (r) 2339 = IC4H9OOH (r)4092 = C719O2 (r) -587 = NLIMALOH (r)2340 = KLIMONONIC (r)4093 = IPBZPOXMUC (r) -588 = M2HEX (r) 2341 = BZBIPERNO3 (r)4094 = PBZPOXMUC (r) -589 = C9M2CO6O (r)2342 = NTM124QOOH (r)4095 = CO24C6O2 (r) -590 = C63OH (r) 2343 = BPINBNO3 (r)4096 = ISOP34NO3 (r) -591 = CYC6DIONE (r)2344 = C6CONO34OH (r)4097 = NBPINAO2 (r) -592 = MCOCOMOXO (r)2345 = HPNC524CO (r)4098 = C824O2 (r) -593 = C88CO (r) 2346 = C3H5CO2H (r)4099 = M2HEXBO2 (r) -594 = C88OOH (r)2347 = C151NO3 (r)4100 = PXYLCO3 (r) -595 = HNMVKO (r)2348 = C5124COOOH (r)4101 = TL4OHNO2O2 (r) -596 = C71O (r) 2349 = C7MOCOCO3H (r)4102 = C7CO2DBCO3 (r) -597 = NOETLQO (r)2350 = M2PEBNO3 (r)4103 = HO4CO7C9 (r) -598 = CYHEXOL (r)2351 = NPEBQOOH (r)4104 = C614CO (r) -599 = C96OH (r) 2352 = C822NO3 (r)4105 = C612O2 (r) -600 = HOCO3C54O (r)2353 = EMPHOOH (r)4106 = C62O2 (r) -601 = IC4H10 (r)2354 = C524NO3 (r)4107 = ISOPAOOH (r) -602 = CO36C8 (r)2355 = M2PECOOH (r)4108 = MPRBNO3CHO (r) -603 = A2PANO (r)2356 = C7CO2M5O (r)4109 = HO1CO24C5 (r) -604 = APINOOB (r)2357 = C7CO2M5OH (r)4110 = H2M2C4CHO (r) -605 = C6OTKETO (r)2358 = CO24C63OOH (r)4111 = BUTDBO2 (r) -606 = TISOPA (r)2359 = BCKOOA (r)4112 = MPRANO3O2 (r) -607 = TISOPC (r)2360 = C6135COOOH (r)4113 = ISOPCOOH (r) -608 = C612OH (r)2361 = H2M5C65O (r)4114 = C4NO3CHO (r) -609 = CO36C12 (r)2362 = LIMALAOOH (r)4115 = C135O2 (r) -610 = CO24C6O (r)2363 = C4MNO32OOH (r)4116 = C519O2 (r) -611 = PENTACID (r)2364 = IPRHOCO2H (r)4117 = NC730O2 (r) -612 = LMKOOB (r)2365 = MPRKNO3 (r)4118 = C6CO34O2 (r) -613 = PHCOOH (r)2366 = C4NO3M2OOH (r)4119 = C919O2 (r) -614 = CATECOOA (r)2367 = NBUTOLANO3 (r)4120 = C733O2 (r) -615 = BUT2OLAO (r)2368 = NOETLQOOH (r)4121 = M3PECO2 (r) -616 = C93OH (r) 2369 = C4NO3M1OOH (r)4122 = HO5CO8C10 (r) -617 = CO235C6O (r)2370 = C64OH5NO3 (r)4123 = HIEB2O2 (r) -618 = C129O (r) 2371 = HO5C5CO3H (r)4124 = PINALO2 (r) -619 = LMLKBO (r)2372 = TM135BPNO3 (r)4125 = C3MDIALOOH (r) -620 = PBFUO (r) 2373 = C152OOH (r)4126 = C53O2 (r) -621 = NBCALOH (r)2374 = HM33C3O (r)4127 = ETHACETO2 (r) -622 = C7DCOH (r)2375 = ACEC2H4NO3 (r)4128 = C67O2 (r) -623 = C8M2CO6O (r)2376 = C3DIALO (r)4129 = C531O2 (r) -624 = BCBO (r) 2377 = C817CO (r)4130 = C736O2 (r) -625 = C825O (r) 2378 = C826NO3 (r)4131 = C87O2 (r) -626 = C531CO (r)2379 = DMPHOOH (r)4132 = METLMUCCO3 (r) -627 = DEMPHSMS1O (r)2380 = H3C25C6OOH (r)4133 = TM124BPRO2 (r) -628 = MCATECOOA (r)2381 = C6COALCO2H (r)4134 = CO234C65O2 (r) -629 = NTM124QO (r)2382 = C47CHO (r)4135 = LMLKBO2 (r) -630 = MIBKHO4O (r)2383 = TLBIPERNO3 (r)4136 = C521O2 (r) -631 = IBUTACID (r)2384 = HO3C3CO3H (r)4137 = C930O2 (r) -632 = C86O (r) 2385 = M2PE (r) 4138 = C74O2 (r) -633 = C614OH (r)2386 = C735OOH (r)4139 = TM124BCO3 (r) -634 = DMEOBPROH (r)2387 = HO3C126NO3 (r)4140 = C4M2NO33O2 (r) -635 = NLIMO (r) 2388 = C5EDBCO3H (r)4141 = IC7DCO2 (r) -636 = C72OH (r) 2389 = NMETLQOOH (r)4142 = C513O2 (r) -637 = CO3C4NO3O (r)2390 = PETLQONE (r)4143 = C4NO32M2O2 (r) -638 = C714O (r) 2391 = HO3C5OOH (r)4144 = LIMALBO2 (r) -639 = LIMBO (r) 2392 = C58AOOH (r)4145 = LMLKAO2 (r) -640 = NOPINOOA (r)2393 = MEK2OOA (r)4146 = BPINBO2 (r) -641 = C23O3EO (r)2394 = C51NO32OOH (r)4147 = C630O2 (r) -642 = MACO2H (r)2395 = HOIPRGLYOX (r)4148 = LIMALAO2 (r) -643 = COO2C4O (r)2396 = C4OHCO3H (r)4149 = C5CO234O2 (r) -644 = C722O (r) 2397 = C41CO2H (r)4150 = C818O2 (r) -645 = C525O (r) 2398 = IPRBQONE (r)4151 = NC91CHO (r) -646 = BCAO (r) 2399 = C3ME3CHOO (r)4152 = OETOLO (r) -647 = OETLMUCOH (r)2400 = DIEKBOOH (r)4153 = NOETLQO2 (r) -648 = C625O (r) 2401 = HEX3ONDOOH (r)4154 = C5MEJCO3 (r) -649 = NLMKAO (r)2402 = HC4CO3H (r)4155 = C65NO36CHO (r) -650 = C623OH (r)2403 = M23C4NO3 (r)4156 = C4CONO3CO (r) -651 = C610OH (r)2404 = C511OOH (r)4157 = C813O2 (r) -652 = NOPINBCO (r)2405 = EOX2OLANO3 (r)4158 = C6COCHOO2 (r) -653 = NOPINBOOH (r)2406 = PBZBPERNO3 (r)4159 = C41O2 (r) -654 = MVKO (r) 2407 = LMKAOOH (r)4160 = C3MNO3CHO (r) -655 = CHOCOCH2O (r)2408 = C127NO3 (r)4161 = MIBKAOHBO2 (r) -656 = MVKOHBO (r)2409 = M22C43OOH (r)4162 = C118O2 (r) -657 = C513OH (r)2410 = HCOCOHCO3H (r)4163 = NBZQO2 (r) -658 = BCLKAO (r)2411 = C112OOH (r)4164 = HO7CO10C12 (r) -659 = IC7DCOH (r)2412 = HOCH2CO3H (r)4165 = C7DCO2 (r) -660 = NMXYFUO (r)2413 = C52NO33OOH (r)4166 = C916O2 (r) -661 = BCCOH (r) 2414 = C5CO2DCO3H (r)4167 = DETLBIPRO2 (r) -662 = NC728OH (r)2415 = APINCO (r)4168 = C7CODBCO3 (r) -663 = BCKBO (r) 2416 = HEXAOOH (r)4169 = HOCO3C54O2 (r) -664 = C69OH (r) 2417 = NTMB2FUOOH (r)4170 = MIBK3COO2 (r) -665 = HO1CO3C4O (r)2418 = IPBZBPRNO3 (r)4171 = ETHENO3O2 (r) -666 = MIBKBO (r)2419 = HM22C3NO3 (r)4172 = C128O2 (r) -667 = BCALOH (r)2420 = OETLQONE (r)4173 = C918O2 (r) -668 = CH3OCH3 (r)2421 = PROPGLY (r)4174 = C52NO31CO (r) -669 = MNO3COC4O (r)2422 = HEXBOOH (r)4175 = C5CO23CHO (r) -670 = NAPINAO (r)2423 = NC102OOH (r)4176 = C129O2 (r) -671 = C103OH (r)2424 = HOCO3C5OOH (r)4177 = OETLBIPRO (r) -672 = C6135COO (r)2425 = CO2C3OOA (r)4178 = C7DDCCO2H (r) -673 = NBCKO (r) 2426 = C611OOH (r)4179 = HO6CO9C11 (r) -674 = C66O (r) 2427 = IC3H7NO3 (r)4180 = C534O2 (r) -675 = H25M3C6 (r)2428 = CO25C6OOH (r)4181 = TMBCO3 (r) -676 = MTCATECOOA (r)2429 = INCNCO3H (r)4182 = MXYOHNO2O2 (r) -677 = DMEPH1O (r)2430 = ACCOCOMEO (r)4183 = C141CO (r) -678 = IEPOXC (r)2431 = HC3CCO3H (r)4184 = EMPOHNO2O (r) -679 = LMLKAO (r)2432 = UDECNO3 (r)4185 = BPINAO2 (r) -680 = HCOOH (r) 2433 = PROLNO3 (r)4186 = C918CHO (r) -681 = PXYMUCOH (r)2434 = NC4OHCO3H (r)4187 = C6H5CH2CO3 (r) -682 = CO25C6O (r)2435 = SC4H9OOH (r)4188 = C6O4KETO2 (r) -683 = EBZMUCOH (r)2436 = C51NO3 (r)4189 = C106O2 (r) -684 = CH2OOG (r)2437 = C519OOH (r)4190 = NC71O (r) -685 = CH2OOE (r)2438 = MIBKAOH3CO (r)4191 = C5CO23O2 (r) -686 = CH2OOD (r)2439 = C146OOH (r)4192 = T124NNCTO2 (r) -687 = C727O (r) 2440 = C736OOH (r)4193 = T123NCATO2 (r) -688 = BCALBO (r)2441 = PE1ENEANO3 (r)4194 = DNIPBNZLO2 (r) -689 = C53O (r) 2442 = PR2O2HNO3 (r)4195 = NNCATECO2 (r) -690 = C730OH (r)2443 = C7CO2OCO3H (r)4196 = C831O2 (r) -691 = BUTACID (r)2444 = C928NO3 (r)4197 = C729O2 (r) -692 = NC1313OH (r)2445 = C820OOH (r)4198 = EPXMEDLCO3 (r) -693 = MECOACETO (r)2446 = IPBFUOOH (r)4199 = C6134CO2OH (r) -694 = C152OH (r)2447 = PE2ENEANO3 (r)4200 = MXNCATECO2 (r) -695 = C929O (r) 2448 = C5DIALCO (r)4201 = C107O2 (r) -696 = C616OH (r)2449 = C53NO32OOH (r)4202 = C4COMOHCO3 (r) -697 = H3C25C6O (r)2450 = C44OOH (r)4203 = C5DBECO3 (r) -698 = C104O (r) 2451 = LIMAOOH (r)4204 = DNPXYOLO2 (r) -699 = C133OH (r)2452 = C108O (r) 4205 = DNPBNZLO2 (r) -700 = IPCATECOOA (r)2453 = MTBKNO3 (r)4206 = PROL1MCO3 (r) -701 = HMGLYOOA (r)2454 = NTLFUOOH (r)4207 = HO24C4CO3 (r) -702 = CISOPA (r)2455 = C62NO33OOH (r)4208 = CO2N3CO3 (r) -703 = C146O (r) 2456 = HO1C3OOH (r)4209 = H13CO2CO3 (r) -704 = C819O (r) 2457 = C919O (r) 4210 = OTNNCATCO2 (r) -705 = T124CTCOOA (r)2458 = C817NO3 (r)4211 = HOACETETO2 (r) -706 = C5OH2CO4O (r)2459 = HO2M2C4NO3 (r)4212 = T123NNCTO2 (r) -707 = TM135O (r)2460 = MPRNO3CO3H (r)4213 = NOAOO (r) -708 = LIMALBO (r)2461 = CHOOCH2NO3 (r)4214 = CO2OH3MCO3 (r) -709 = LIMONONIC (r)2462 = C720NO3 (r)4215 = C3M3OH2CO3 (r) -710 = C23O3MO (r)2463 = IBUTALBO2H (r)4216 = C1212O2 (r) -711 = C5MCO2OHO (r)2464 = MXYQONE (r)4217 = MNCATECO2 (r) -712 = NTLFUO (r)2465 = TC4H9O (r)4218 = C8CO2OHCO3 (r) -713 = C53NO324CO (r)2466 = C4COMOHOOH (r)4219 = ETOMEO2 (r) -714 = C716O (r) 2467 = C6OTKETCO (r)4220 = NC61CO3 (r) -715 = CISOPC (r)2468 = NPHENOH (r)4221 = C6CO2OHCO3 (r) -716 = IPBFUO (r)2469 = BCALAOOH (r)4222 = CHOOMCO3 (r) -717 = EMPHCOMO (r)2470 = BCOOA (r) 4223 = HEX3ONCOH (r) -718 = OTCATECOOA (r)2471 = MALANHY (r)4224 = C721CHO (r) -719 = LIMOOB (r)2472 = C5MO132OH (r)4225 = PXNCATECO2 (r) -720 = C726CO5O (r)2473 = C4MCONO3O (r)4226 = C734O2 (r) -721 = LMKBO (r) 2474 = C6O132OH (r)4227 = C45IC5CHO (r) -722 = C94O (r) 2475 = C520OH (r)4228 = INDHCO3 (r) -723 = OXCATECOOA (r)2476 = MACROOA (r)4229 = HPC52CO3 (r) -724 = C148O (r) 2477 = C6M5CO2OH (r)4230 = HO13C3CO3 (r) -725 = C617OH (r)2478 = C51NO324CO (r)4231 = ACETETCHO (r) -726 = C147O (r) 2479 = MGLOOA (r)4232 = DNPETOLO2 (r) -727 = H3M3C6O (r)2480 = HCC7CO (r)4233 = CO45C5CHO (r) -728 = C924O (r) 2481 = NAOOA (r) 4234 = C827O2 (r) -729 = C5COCHOO (r)2482 = C6CO2M2OH (r)4235 = C79O2 (r) -730 = BCKAO (r) 2483 = C629OH (r)4236 = C735O2 (r) -731 = C820O (r) 2484 = C8236CO (r)4237 = PNNCATECO2 (r) -732 = PBZMUCOH (r)2485 = C614CO23OH (r)4238 = HO8C9O2 (r) -733 = C44O (r) 2486 = HNC524CO (r)4239 = HO1CO3CHO (r) -734 = C78O (r) 2487 = NC4H9CHOOA (r)4240 = NOPINDO2 (r) -735 = C8BCCO (r)2488 = MMALANHY (r)4241 = C5M2OHOCO3 (r) -736 = C8BCOOH (r)2489 = MACRNOOA (r)4242 = C628O2 (r) -737 = C5NO3COAO (r)2490 = IPECO (r) 4243 = H13C43CO3 (r) -738 = MXCATECOOA (r)2491 = C4M2ALOHNO3 (r)4244 = CHOC4O2 (r) -739 = C627O (r) 2492 = C7DCO (r) 4245 = DNMETOLO2 (r) -740 = LIMALAO (r)2493 = NPBNZOLO (r)4246 = ENNCATECO2 (r) -741 = C618O (r) 2494 = HC3CO3H (r)4247 = NC4OO (r) -742 = METLMUCOH (r)2495 = NC826O (r)4248 = CO2C5OH (r) -743 = NIPRBQO (r)2496 = C7PAN1 (r)4249 = C152O2 (r) -744 = NPPRBQO (r)2497 = MVKOOH (r)4250 = HMGLYOO (r) -745 = C84O (r) 2498 = C4PAN10 (r)4251 = H3M3C5O2 (r) -746 = NPEBQO (r)2499 = NMETOLOOH (r)4252 = MTNCATECO2 (r) -747 = NPXYFUO (r)2500 = NO3CH2PAN (r)4253 = C7CO2OHCO3 (r) -748 = LIMAO (r) 2501 = C615CO2OOH (r)4254 = HO7C8O2 (r) -749 = C6HO1CO3O (r)2502 = MPRANO3O (r)4255 = M3BU3ECO3 (r) -750 = CO24C63O (r)2503 = BUT2OLOOH (r)4256 = C58NO3 (r) -751 = PROPACID (r)2504 = MC4CODBPAN (r)4257 = C85O2 (r) -752 = T123CTCOOA (r)2505 = C8CO2OHPAN (r)4258 = C126OO (r) -753 = NMXYQO (r)2506 = NCRESO (r)4259 = HC3CCO3 (r) -754 = C930OH (r)2507 = C31CO3H (r)4260 = C42CO3 (r) -755 = MC6CO2O (r)2508 = LIMCO (r) 4261 = HO2C4CHO (r) -756 = C7M2CO5O (r)2509 = HO1C6NO3 (r)4262 = DNEBNZLO2 (r) -757 = BUT2OL (r)2510 = C312COPAN (r)4263 = C3DIOLO2 (r) -758 = C77OH (r) 2511 = HCOCOHPAN (r)4264 = BCALOO (r) -759 = BZFUONOOA (r)2512 = C826O (r) 4265 = MNNCATECO2 (r) -760 = C827O (r) 2513 = HM33C4NO3 (r)4266 = NC91CO3 (r) -761 = HEX3ONBO (r)2514 = C68NO3 (r)4267 = C4CO2DBCO3 (r) -762 = C123OH (r)2515 = C88PAN (r)4268 = CHOC3COO2 (r) -763 = MGLYOOB (r)2516 = BPINBO (r)4269 = HC4CO3 (r) -764 = OXYMUCOH (r)2517 = CHOOMPAN (r)4270 = HO6C7O2 (r) -765 = CYHEXOLAO (r)2518 = EPXKTMPAN (r)4271 = DNPHENO2 (r) -766 = CH3CHOOC (r)2519 = HO2C5NO3 (r)4272 = PETLPOXMUC (r) -767 = C717OH (r)2520 = NEBNZOLOOH (r)4273 = NCATECO2 (r) -768 = BZFUO (r) 2521 = C7DDCO (r)4274 = C73O2 (r) -769 = CO36C10 (r)2522 = MPRBNO3PAN (r)4275 = HO3C3CO3 (r) -770 = BCALAO (r)2523 = C627PAN (r)4276 = DNT124LO2 (r) -771 = TLFUONOOA (r)2524 = C1010NO3 (r)4277 = C3EDIALO2 (r) -772 = C718OH (r)2525 = C4PAN3 (r)4278 = CO123C5CHO (r) -773 = PHCOMEO (r)2526 = CHOCOHCO (r)4279 = C67CHO (r) -774 = C87O (r) 2527 = H3C25C6PAN (r)4280 = PNCATECO2 (r) -775 = C922O (r) 2528 = C61O (r) 4281 = C4OHCO3 (r) -776 = C102O (r) 2529 = C4CO2DBPAN (r)4282 = NC3OO (r) -777 = C3NO3COO (r)2530 = NC6PAN1 (r)4283 = HO5C5CO3 (r) -778 = CO25C73O (r)2531 = C4PAN9 (r)4284 = C3NO3COO2 (r) -779 = MXYMUCOH (r)2532 = C810NO3 (r)4285 = DNT123LO2 (r) -780 = NPETLQO (r)2533 = C817PAN (r)4286 = MVKOO (r) -781 = C531O (r) 2534 = M2HEXBNO3 (r)4287 = PTNCATECO2 (r) -782 = MPHCOMEO (r)2535 = NNCATECO (r)4288 = C85CO3 (r) -783 = APINAO (r)2536 = MNNCATECO (r)4289 = DNOETOLO2 (r) -784 = APINBO (r)2537 = PBN (r) 4290 = C86O2 (r) -785 = TM124MUCOH (r)2538 = C61CPAN (r)4291 = OXNCATECO2 (r) -786 = CHOC2H4O (r)2539 = MEKAO (r) 4292 = PXNNCATCO2 (r) -787 = PHCOETO (r)2540 = C109OOH (r)4293 = OXNNCATCO2 (r) -788 = BZEMUCOH (r)2541 = C7OHO2CO3H (r)4294 = CH3COCO3H (r) -789 = C620OH (r)2542 = HM33C3NO3 (r)4295 = C721O2 (r) -790 = NC4OOA (r)2543 = HO2MC5OOH (r)4296 = IPNCATECO2 (r) -791 = C92O (r) 2544 = ISOPDOOH (r)4297 = PTNNCATCO2 (r) -792 = EBFUO (r) 2545 = C510O (r) 4298 = DNOXYOLO2 (r) -793 = C728OH (r)2546 = C1H4C5PAN (r)4299 = C7MJPCO3 (r) -794 = CO36C11 (r)2547 = C62NO335CO (r)4300 = HO2CO5C6 (r) -795 = C5124COO (r)2548 = NC4PDCO2H (r)4301 = C918CO3 (r) -796 = DETLOBPROH (r)2549 = PE1ENEBO (r)4302 = NOPINOO (r) -797 = NBCO (r) 2550 = MIBKAOHBO (r)4303 = MXNNCATCO2 (r) -798 = NMETLQO (r)2551 = T124NCATO (r)4304 = ENCATECO2 (r) -799 = C512OH (r)2552 = C23O3CPAN (r)4305 = DNMXYOLO2 (r) -800 = NOXYFUO (r)2553 = C64OOH (r)4306 = DNCRESO2 (r) -801 = DMPHCOMO (r)2554 = HC4CCO3H (r)4307 = IPNNCATCO2 (r) -802 = C521O (r) 2555 = H1MC5NO3 (r)4308 = C5CO2OHCO3 (r) -803 = CO36C9 (r)2556 = C613OOH (r)4309 = C713O2 (r) -804 = C113OH (r)2557 = T124NNCTO (r)4310 = HM2C43O2 (r) -805 = CO24M3CHO (r)2558 = HEX3ONCOOH (r)4311 = MC7CO2O2 (r) -806 = IPECOH (r)2559 = C815CO2OOH (r)4312 = MTNNCATCO2 (r) -807 = HO34CO6C8 (r)2560 = C3COCPAN (r)4313 = HM33C3CHO (r) -808 = MALDIALO (r)2561 = C728O (r) 4314 = OTNCATECO2 (r) -809 = NOXYQO (r)2562 = C123O (r) 4315 = C825O2 (r) -810 = C630O (r) 2563 = NPETOLO (r)4316 = NC4OHCO3 (r) -811 = PETLMUCOH (r)2564 = C87PAN (r)4317 = T124NCATO2 (r) -812 = TM123MUCOH (r)2565 = NPXYOLOOH (r)4318 = PEN2ONE1O2 (r) -813 = C1010OH (r)2566 = OTNNCATCO (r)4319 = C139O2 (r) -814 = NTMB1FUO (r)2567 = COO2C4PAN (r)4320 = C2H5MECOO (r) -815 = C6NO3CO5O (r)2568 = HMACROH (r)4321 = C526O2 (r) -816 = NPTLQO (r)2569 = PXYMUCPAN (r)4322 = TM124OLO (r) -817 = C736O (r) 2570 = C58NO3CO3H (r)4323 = NTM124QO2 (r) -818 = CH3CO2H (r)2571 = C46PAN (r)4324 = C7MOHCOCO3 (r) -819 = NC2OOA (r)2572 = HEX3ONBOOH (r)4325 = DMKCOOH (r) -820 = C55O (r) 2573 = C515PAN (r)4326 = OXYOLO (r) -821 = C817OH (r)2574 = CH3OCHO (r)4327 = NOXYQO2 (r) -822 = IPCATC1OOH (r)2575 = PTNCATECO (r)4328 = MC4CODBCO2 (r) -823 = CO25C6CO2H (r)2576 = HC4PAN (r)4329 = C4DBM2CO3 (r) -824 = CO1M22CO3H (r)2577 = DNPHENO (r)4330 = MPAN (r) -825 = DNEBNZLOOH (r)2578 = NC730O (r)4331 = NC5MDCO2H (r) -826 = C1212OOH (r)2579 = PRNO3PAN (r)4332 = CPENT2ENE (r) -827 = C617CO2H (r)2580 = INANCOCO2H (r)4333 = CH3CHOOB (r) -828 = M33C3CO3H (r)2581 = C8CO3OHO (r)4334 = M2BKAO2 (r) -829 = C5ONO34OOH (r)2582 = C6DCARBPAN (r)4335 = DETLMUCO2 (r) -830 = C116OOH (r)2583 = C4NO3PAN (r)4336 = HEX3ONCO2 (r) -831 = HO1C5OOH (r)2584 = C511PAN (r)4337 = NC526O2 (r) -832 = M2C43CO3H (r)2585 = NTM135LOOH (r)4338 = MXYLCO3 (r) -833 = CO2C3CO3H (r)2586 = T123NCATO (r)4339 = HPC52O2 (r) -834 = C65NO3CO2H (r)2587 = C141PAN (r)4340 = C716O2 (r) -835 = DNCRESOOH (r)2588 = ENNCATECO (r)4341 = MVKOHBO2 (r) -836 = HO2C6OOH (r)2589 = C63O (r) 4342 = C624O2 (r) -837 = TLEMUCCO3H (r)2590 = INB2OOH (r)4343 = C625O2 (r) -838 = OXYFUOOH (r)2591 = C623O (r) 4344 = C5CONO34O2 (r) -839 = INAHPCO2H (r)2592 = C4M2ALOHO (r)4345 = MC4CONO3O2 (r) -840 = NOPINBNO3 (r)2593 = C923PAN (r)4346 = C615O2 (r) -841 = BUTDBOOH (r)2594 = C103O (r) 4347 = MC5CO2OHO2 (r) -842 = C511CO3H (r)2595 = NPXYOLO (r)4348 = HO13C4O2 (r) -843 = MET1OOH (r)2596 = MVKOHAO (r)4349 = C94O2 (r) -844 = MTCTEC1OOH (r)2597 = C823PAN (r)4350 = C616O2 (r) -845 = H2M2C4CO3H (r)2598 = DNOETOLO (r)4351 = PRONO3AO2 (r) -846 = TLEMUCOOH (r)2599 = MTNCATECO (r)4352 = CO23C4NO3 (r) -847 = NBUTOLAOH (r)2600 = CHOC3COPAN (r)4353 = COCCOH2CO2 (r) -848 = DDECOOH (r)2601 = C7MCO2OOH (r)4354 = C6DIALO2 (r) -849 = C87CO3H (r)2602 = MC5COOHOOH (r)4355 = C124O2 (r) -850 = HO4C5CO3H (r)2603 = C5CODBCO3H (r)4356 = HEX3ONDO2 (r) -851 = PBZMUCOOH (r)2604 = ENCATECO (r)4357 = C68O2 (r) -852 = PET1OOH (r)2605 = TM124BPNO3 (r)4358 = MALDIALO2 (r) -853 = M22C3CO3H (r)2606 = C58NO3PAN (r)4359 = C56O2 (r) -854 = PXY1OOH (r)2607 = H1C23C4O (r)4360 = CO1H63O2 (r) -855 = TC4H9OOH (r)2608 = CO2OH3MPAN (r)4361 = C114O2 (r) -856 = C46CO2H (r)2609 = C3DIALOOH (r)4362 = H1C23C4CHO (r) -857 = NMETOL1OOH (r)2610 = M2PEDNO3 (r)4363 = C143O2 (r) -858 = C135OOH (r)2611 = PPEN (r) 4364 = NMBOBO2 (r) -859 = C512CO3H (r)2612 = PIPN (r) 4365 = C6HO1CO3O2 (r) -860 = PNCATECOOH (r)2613 = C1013PAN (r)4366 = H13CO2C3 (r) -861 = METLBPROOH (r)2614 = MIPKBO (r)4367 = HEX3ONBO2 (r) -862 = PGLYOXOH (r)2615 = C7MOHCOPAN (r)4368 = EOX2EOLAO2 (r) -863 = C621OOH (r)2616 = HC4ACO3H (r)4369 = C84O2 (r) -864 = C89CO3H (r)2617 = C531OOH (r)4370 = PRONO3BO2 (r) -865 = CHOC4OOH (r)2618 = CO24C6OOH (r)4371 = C727O2 (r) -866 = ALCOMOXOOH (r)2619 = C828PAN (r)4372 = BUTDCO2 (r) -867 = C6H5C2CO3H (r)2620 = PROL1MPAN (r)4373 = HC3CCHO (r) -868 = HOC2H4CO3H (r)2621 = C927NO3 (r)4374 = HO13C5O2 (r) -869 = NDNT123OOH (r)2622 = C5PAN9 (r)4375 = TM123BCO3 (r) -870 = M2HEXAOOH (r)2623 = ISOP34O (r)4376 = DM123O2 (r) -871 = C132OOH (r)2624 = NOETOLOOH (r)4377 = PBZMUCO2 (r) -872 = C1211OOH (r)2625 = C714OOH (r)4378 = C57NO3 (r) -873 = C530OOH (r)2626 = APINCNO3 (r)4379 = C7ADCCO2 (r) -874 = M2BUOL2OH (r)2627 = OCCOHCOOH (r)4380 = C3ME3CO3 (r) -875 = HOCHOCOOH (r)2628 = NEOPOOH (r)4381 = NPPRBQO2 (r) -876 = C54CO3H (r)2629 = C919NO3 (r)4382 = ACRO2 (r) -877 = C5CO234OOH (r)2630 = EPXEKTPAN (r)4383 = HYPERACET (r) -878 = IPNCATCOOH (r)2631 = C6MOHCOPAN (r)4384 = C715O2 (r) -879 = C811OOH (r)2632 = PETLMUCPAN (r)4385 = C1010O2 (r) -880 = C626OOH (r)2633 = HM22C4OOH (r)4386 = BUT2OLO (r) -881 = BCCOOH (r)2634 = MTBKO (r) 4387 = C42NO33O2 (r) -882 = C133OOH (r)2635 = INANCOPAN (r)4388 = PBZMUCO (r) -883 = C927OOH (r)2636 = C512PAN (r)4389 = C104O2 (r) -884 = TM123OLOOH (r)2637 = C624PAN (r)4390 = HEX2ONCO2 (r) -885 = NBCALOOH (r)2638 = C113O (r) 4391 = HO2CO4C5 (r) -886 = CHOC3COOOH (r)2639 = HYPROPO (r)4392 = HO1CO34C5 (r) -887 = C925OOH (r)2640 = EBZMUCPAN (r)4393 = IPBZMUCO (r) -888 = NDNT124OOH (r)2641 = OXNCATECO (r)4394 = C142O2 (r) -889 = TBUTCO3H (r)2642 = C93O (r) 4395 = STYRENE (r) -890 = INAHCO2H (r)2643 = C4COMOHPAN (r)4396 = BZEPOXMUC (r) -891 = C7CO3OHOOH (r)2644 = C68O (r) 4397 = PHENOL (r) -892 = NMXYOL1OOH (r)2645 = C8CO2DBAL (r)4398 = MALDALCO2H (r) -893 = INANCO2H (r)2646 = HO2C54O (r)4399 = BZBIPERO2 (r) -894 = C23O3CCO3H (r)2647 = H2M3C4O (r)4400 = DMEBMUCO2 (r) -895 = H25M2C6 (r)2648 = C126PAN (r)4401 = C6CO243OH (r) -896 = HO2M2C4OH (r)2649 = NTM124LOOH (r)4402 = MTCATEC1O (r) -897 = NBPINAOOH (r)2650 = DETLMUPAN (r)4403 = ECOCO2H (r) -898 = DETLMUO2H (r)2651 = C622PAN (r)4404 = ECO3CO3 (r) -899 = ACETMECO3H (r)2652 = C5DCO2CO3H (r)4405 = PRNO3CO3 (r) -900 = C126CO3H (r)2653 = HO2MC5NO3 (r)4406 = CONM2CHO (r) -901 = C23O3ECO3H (r)2654 = C8OHO2CO3H (r)4407 = TM124O (r) -902 = C6TONOHOOH (r)2655 = IEAPAN (r)4408 = MXY1O (r) -903 = CO1M22CO2H (r)2656 = PBZMUCPAN (r)4409 = C515CO3 (r) -904 = NOPINAOOH (r)2657 = PAN (r) 4410 = C620O2 (r) -905 = BCANO3 (r)2658 = C811PAN (r)4411 = IBUTOLCO2 (r) -906 = H3C2C4CO2H (r)2659 = MC5CO2OHO (r)4412 = HOIBUTCO3 (r) -907 = INDHPCO3H (r)2660 = H3C2C4PAN (r)4413 = OTCATEC1O (r) -908 = HOACETEOOH (r)2661 = C89NO3 (r)4414 = HC3CO3 (r) -909 = C3DIOLOOH (r)2662 = C57O (r) 4415 = NDNOXYOLO2 (r) -910 = IPBZMUCO3H (r)2663 = ACETMEPAN (r)4416 = NTMB2FUO2 (r) -911 = PBFUCO (r)2664 = METACETNO3 (r)4417 = HO8C9CO3 (r) -912 = BPINCOOH (r)2665 = HO1CO3C5 (r)4418 = C627O2 (r) -913 = DNMXYOLOOH (r)2666 = C137PAN (r)4419 = H3M2C4CO3 (r) -914 = DETLMUOOH (r)2667 = C515O (r) 4420 = HCOCH2OOH (r) -915 = EPXMDLCO3H (r)2668 = MXNNCATCO (r)4421 = C105O2 (r) -916 = C518CO3H (r)2669 = C6PAN14 (r)4422 = OXYFUO2 (r) -917 = OXNCATCOOH (r)2670 = C5PAN18 (r)4423 = EMALANHYO2 (r) -918 = C3M3CHOOOH (r)2671 = EPXMKTPAN (r)4424 = C62CO3 (r) -919 = C85CO3H (r)2672 = ETACETNO3 (r)4425 = NDNIPBZLO2 (r) -920 = BPINBOOH (r)2673 = C128NO3 (r)4426 = IPMALNHYO2 (r) -921 = EBZMUCCO3H (r)2674 = CHOC4PAN (r)4427 = C65NO36CO3 (r) -922 = PXYLOOH (r)2675 = C5PAN11 (r)4428 = C3DBCO3 (r) -923 = IPNNCATOOH (r)2676 = HO8C9O (r)4429 = C125O2 (r) -924 = C43NO3CO2H (r)2677 = C5PAN13 (r)4430 = HO5C6CO3 (r) -925 = HO2NO2 (r)2678 = C5PAN12 (r)4431 = C1013CO3 (r) -926 = HO12C5 (r)2679 = CO23C54O (r)4432 = C615CO2O2 (r) -927 = C1312OOH (r)2680 = C929CO (r)4433 = C3MNO3CO3 (r) -928 = MC6OTKTOOH (r)2681 = C7CODBPAN (r)4434 = NDNMETOLO2 (r) -929 = CHOC4CO3H (r)2682 = PXNNCATCO (r)4435 = C83O2 (r) -930 = C144OOH (r)2683 = C5M2OHOPAN (r)4436 = NC4CO3 (r) -931 = PINALOOH (r)2684 = C5PAN14 (r)4437 = MET1O (r) -932 = PETOLOOH (r)2685 = C136PAN (r)4438 = OET1O (r) -933 = H3C25CCO2H (r)2686 = C7BDCOOH (r)4439 = C511CO3 (r) -934 = NDNPHENOOH (r)2687 = TC4H9NO3 (r)4440 = NOXYFUO2 (r) -935 = C812OOH (r)2688 = C731PAN (r)4441 = C6EO2OHCO3 (r) -936 = HMVKBCO3H (r)2689 = C7DCPAN (r)4442 = C1012O2 (r) -937 = OXYMUCCO3H (r)2690 = DMPHCOMOOH (r)4443 = HO6C7CO3 (r) -938 = EBENZOLOOH (r)2691 = C5PAN16 (r)4444 = IPCATEC1O (r) -939 = CRESOOH (r)2692 = C6CO34O (r)4445 = C5EDBCO3 (r) -940 = C828OOH (r)2693 = C54OOH (r)4446 = CO25C6O2 (r) -941 = PXYMUCCO3H (r)2694 = C621O (r) 4447 = C515O2 (r) -942 = C810OOH (r)2695 = MVKOHBOOH (r)4448 = MXYOLO (r) -943 = TM124OOH (r)2696 = CO3H4PAN (r)4449 = C5CO3OH (r) -944 = TLFUOOH (r)2697 = C77O (r) 4450 = HO7C8CO3 (r) -945 = CO3C5CO3H (r)2698 = HO3C3PAN (r)4451 = CHOC4CO3 (r) -946 = H3M2C4CO3H (r)2699 = PEBO (r) 4452 = MPRBNO3CO3 (r) -947 = DMEBMUOOH (r)2700 = C4DBMEPAN (r)4453 = EBENZO (r) -948 = C517OOH (r)2701 = C98NO3 (r)4454 = ECATEC1O (r) -949 = C1311OOH (r)2702 = C43NO3PAN (r)4455 = NDNPETOLO2 (r) -950 = NT124L1OOH (r)2703 = C519PAN (r)4456 = C828CO3 (r) -951 = C137CO3H (r)2704 = C1210PAN (r)4457 = IPBENZO (r) -952 = EMPONO2OOH (r)2705 = INCNPAN (r)4458 = NDNCRESO2 (r) -953 = C618CO2H (r)2706 = BUTDCO (r)4459 = C617O2 (r) -954 = C6CO134OOH (r)2707 = HOCH2CH2O (r)4460 = INCNCO3 (r) -955 = C128OOH (r)2708 = C626PAN (r)4461 = C95O2 (r) -956 = TM123BPOOH (r)2709 = NIPBZOLOOH (r)4462 = C4CODIAL (r) -957 = NC524NO3 (r)2710 = HEXCO (r) 4463 = NDNOETOLO2 (r) -958 = C1H4C5CO2H (r)2711 = HNBIACET (r)4464 = NDNEBNZLO2 (r) -959 = TM124OLOOH (r)2712 = EPXDLPAN (r)4465 = H1C23C4O2 (r) -960 = C105OOH (r)2713 = HM22C4NO3 (r)4466 = PCATEC1O (r) -961 = EBZMUCCO2H (r)2714 = C7CO2DBAL (r)4467 = NDNPHENO2 (r) -962 = OTNNCATOOH (r)2715 = MEKBOOH (r)4468 = C23C54CO3 (r) -963 = MXYQOOH (r)2716 = ETACETOH (r)4469 = M22C3CO3 (r) -964 = H2M4C65OOH (r)2717 = INCO (r) 4470 = C4NO3CO3 (r) -965 = C145OOH (r)2718 = C6PAN20 (r)4471 = OXCATEC1O (r) -966 = C6H5C2OOH (r)2719 = C1310CO (r)4472 = ACCOMECO3 (r) -967 = C103OOH (r)2720 = NBUTOLAO (r)4473 = ME2BU2OLO2 (r) -968 = ISOP34OOH (r)2721 = C8CO2DBPAN (r)4474 = ME2BUT2ENE (r) -969 = NBUTDAOOH (r)2722 = C915O (r) 4475 = TPENT2ENE (r) -970 = C142OOH (r)2723 = C79OOH (r)4476 = PE2ENEAO2 (r) -971 = NC623OOH (r)2724 = C6TRONOHO (r)4477 = COO2C4O2 (r) -972 = DNMETOLOOH (r)2725 = C5CO2OHPAN (r)4478 = OXY1O (r) -973 = EMALNHYOOH (r)2726 = PHPTN (r) 4479 = PBENZO (r) -974 = C7MO3OHOOH (r)2727 = LIMALBOOH (r)4480 = TMB2FUO2 (r) -975 = HM22C3CO3H (r)2728 = NDMEPHOLO (r)4481 = MC6OTKETO2 (r) -976 = C65NO36OOH (r)2729 = H1C23C4PAN (r)4482 = PMALANHYO2 (r) -977 = NDNOXYLOOH (r)2730 = C66OOH (r)4483 = C726CO5O2 (r) -978 = NOXYOL1OOH (r)2731 = NCATECO (r)4484 = C88CO3 (r) -979 = NNCATECOOH (r)2732 = NDEMPHOLO (r)4485 = C718CO3 (r) -980 = M3PECOOH (r)2733 = DNPXYOLO (r)4486 = C821O2 (r) -981 = C51OOH (r)2734 = C4CONO3O (r)4487 = MXCATEC1O (r) -982 = DMEPHOLOOH (r)2735 = C57NO3PAN (r)4488 = CRESO (r) -983 = CO2C54CO3H (r)2736 = DNT123LO (r)4489 = C5CO2DBCO3 (r) -984 = NC728OOH (r)2737 = BCLKCOOH (r)4490 = C5134CO2OH (r) -985 = C923CO3H (r)2738 = C4OHPAN (r)4491 = C5CO14OH (r) -986 = C235C6CO3H (r)2739 = C6O4KETO (r)4492 = APINENE (r) -987 = PERPROACID (r)2740 = NTM123LOOH (r)4493 = CO235C6CHO (r) -988 = C51CO3H (r)2741 = PXNCATECO (r)4494 = TM123O (r) -989 = NC72OOH (r)2742 = C108NO3 (r)4495 = PXY1O (r) -990 = HOPINONIC (r)2743 = C3ME3PAN (r)4496 = C721CO3 (r) -991 = C41NO3 (r)2744 = C151O (r) 4497 = C722O2 (r) -992 = C6CYTONOOH (r)2745 = HO13C5O (r)4498 = NDNMXYOLO2 (r) -993 = C626CO3H (r)2746 = C1313O (r)4499 = PTCATEC1O (r) -994 = MMALNHYOOH (r)2747 = ME3BUOLO (r)4500 = HM22C3CO3 (r) -995 = H13M3C5OOH (r)2748 = GLYOOB (r)4501 = HM22CHO (r) -996 = PXYOLOOH (r)2749 = C134O (r) 4502 = C61CO3 (r) -997 = CO234C6OOH (r)2750 = NC728O (r)4503 = C828O2 (r) -998 = C615CO3H (r)2751 = C105O (r) 4504 = PET1O (r) -999 = PECOOH (r)2752 = C5DICARBO (r)4505 = TMB1FUONE (r) -1000 = PETLBIPNO3 (r)2753 = ETHACETOOH (r)4506 = NDNPXYOLO2 (r) -1001 = BCAOH (r) 2754 = C7MJPCO3H (r)4507 = NC4MDCO2H (r) -1002 = PXYLCO3H (r)2755 = C6PAN3 (r)4508 = ME3BUT1ENE (r) -1003 = T124CT1OOH (r)2756 = C615PAN (r)4509 = PXCATEC1O (r) -1004 = C137OOH (r)2757 = ETOMEPAN (r)4510 = C6TRONOHO2 (r) -1005 = C56NO3 (r)2758 = PHCOCOCO (r)4511 = NDNPBNZLO2 (r) -1006 = INB1HPCO3H (r)2759 = C916NO3 (r)4512 = MEPROPENE (r) -1007 = C107OOH (r)2760 = HO6C7O (r)4513 = C5DIALO2 (r) -1008 = C517CO3H (r)2761 = C52NO3 (r)4514 = MCATEC1O (r) -1009 = MXYOLOOH (r)2762 = NMXYOLO (r)4515 = M3C4CO3 (r) -1010 = H2M2C65OOH (r)2763 = C4CO2DCO3H (r)4516 = NC3CO3 (r) -1011 = C4NO3OCO (r)2764 = ETHFORMNO3 (r)4517 = CO3C54CO3 (r) -1012 = C826OOH (r)2765 = C7OHCO2PAN (r)4518 = INANCO3 (r) -1013 = OCCOHCO (r)2766 = C7ADCCO3H (r)4519 = INB1HPCO3 (r) -1014 = TM124MUOOH (r)2767 = M23C4O (r)4520 = H1C23C4CO3 (r) -1015 = HO2C3CO3H (r)2768 = MXYOHNO2O (r)4521 = HO4C5CO3 (r) -1016 = BZEMUCOOH (r)2769 = ACCOCOMOOH (r)4522 = C43NO3CO3 (r) -1017 = OTCTEC1OOH (r)2770 = C524O (r) 4523 = HM2C43CO3 (r) -1018 = H3C25CCO3H (r)2771 = BUTDBO (r)4524 = MIPKBOH (r) -1019 = C733OOH (r)2772 = C517PAN (r)4525 = COO2C4CO3 (r) -1020 = MXYFUOOH (r)2773 = C1211CO (r)4526 = C141OO (r) -1021 = C7DDCOOH (r)2774 = MEKCOOH (r)4527 = HEX1ENE (r) -1022 = C618CO3H (r)2775 = H2MC5OOH (r)4528 = CH2OOB (r) -1023 = PBENZOLOOH (r)2776 = NTM124OLO (r)4529 = PXYBIPERO2 (r) -1024 = PHENOOH (r)2777 = HMVKBPAN (r)4530 = NMGLYOX (r) -1025 = DNIPBZLOOH (r)2778 = C6PAN19 (r)4531 = CATEC1O (r) -1026 = H13M3C5NO3 (r)2779 = COO2C3PAN (r)4532 = C115O2 (r) -1027 = PBZBPEROOH (r)2780 = C6H5CH2PAN (r)4533 = PETOLO (r) -1028 = C111OOH (r)2781 = C116PAN (r)4534 = C7EDCCO (r) -1029 = DNOETOLOOH (r)2782 = PXYBIPENO3 (r)4535 = NPETLQO2 (r) -1030 = NDNPETLOOH (r)2783 = NO3CH2CO2H (r)4536 = C8OHCO2CO3 (r) -1031 = PBZMUCCO3H (r)2784 = C4PAN2 (r)4537 = H3M3C4CHO (r) -1032 = C710OOH (r)2785 = HO2C5OOH (r)4538 = C819O2 (r) -1033 = OETOLOOH (r)2786 = C4PAN1 (r)4539 = IECCO3 (r) -1034 = TM135MUOOH (r)2787 = C6PAN12 (r)4540 = HOC3H6CHO (r) -1035 = C523OH (r)2788 = CHOCOMOXO (r)4541 = BCSOZO2 (r) -1036 = APINBOH (r)2789 = NMETOLO (r)4542 = BCLKCO2 (r) -1037 = CO3C4CO2H (r)2790 = C4PAN4 (r)4543 = CHOCOMOXO2 (r) -1038 = METLMUCOOH (r)2791 = M3BU3EPAN (r)4544 = CH3CCH3OO (r) -1039 = IPBZBPROOH (r)2792 = C4PAN5 (r)4545 = C89O2 (r) -1040 = BZFUCO (r)2793 = C4PAN6 (r)4546 = C65O2 (r) -1041 = HM22CO3H (r)2794 = C8OHCO2PAN (r)4547 = EPXM2C4DAL (r) -1042 = HO2C4CO3H (r)2795 = C4OCCOHCO (r)4548 = IEACO3 (r) -1043 = NC101OOH (r)2796 = C4PAN7 (r)4549 = C55O2 (r) -1044 = C821OOH (r)2797 = HOC4CHOOOH (r)4550 = MCOCOMOXO2 (r) -1045 = NDNOETLOOH (r)2798 = NPHENO (r)4551 = ACLOO (r) -1046 = C730OOH (r)2799 = NPHENOOH (r)4552 = C5COCHOO2 (r) -1047 = C729CO3H (r)2800 = C5PAN10 (r)4553 = C4OH2CO3 (r) -1048 = PRPAL2CO3H (r)2801 = C4PAN8 (r)4554 = MBOBO2 (r) -1049 = OXYMUCOOH (r)2802 = C829NO3 (r)4555 = MBO (r) -1050 = HO13M2C4 (r)2803 = CO35C5CHO (r)4556 = NC41OO (r) -1051 = T123NNCOOH (r)2804 = C3PAN2 (r)4557 = CHOMOHCO3 (r) -1052 = UDECOOH (r)2805 = COCCOHCOOH (r)4558 = C5MCO2OHO2 (r) -1053 = NEBFUOOH (r)2806 = NOXYOLO (r)4559 = TBUTCHO (r) -1054 = BUTDBOH (r)2807 = PROPALO (r)4560 = C511O2 (r) -1055 = HOBUT2CO3H (r)2808 = IC7DCPAN (r)4561 = C64O2 (r) -1056 = BCKAOH (r)2809 = C134CO (r)4562 = ME3BUOLO2 (r) -1057 = C8BCNO3 (r)2810 = METACETO2H (r)4563 = C109O2 (r) -1058 = LIMANO3 (r)2811 = C3DBPAN (r)4564 = HO12CO3C4 (r) -1059 = C720OOH (r)2812 = C106NO3 (r)4565 = HIEB1O2 (r) -1060 = C118OOH (r)2813 = C928PAN (r)4566 = CO25C73O2 (r) -1061 = NT123L1OOH (r)2814 = C64NO3 (r)4567 = C924O2 (r) -1062 = TM124QOOH (r)2815 = NC4OHCPAN (r)4568 = TM135MUCO2 (r) -1063 = C43NO34OOH (r)2816 = C41O (r) 4569 = EPXMALKT (r) -1064 = ETOMECO3H (r)2817 = ETOC2NO3 (r)4570 = C5PACALD2 (r) -1065 = IPBZMUCOOH (r)2818 = MTNNCATCO (r)4571 = M2PECO2 (r) -1066 = CH3CO3H (r)2819 = C5CO234O (r)4572 = C134O2 (r) -1067 = EPXDLCO3H (r)2820 = CO356OCO (r)4573 = C72O2 (r) -1068 = CH3OH (r) 2821 = NC51O (r) 4574 = C43NO34O2 (r) -1069 = IPECOOH (r)2822 = C6PAN5 (r)4575 = OETLMUCO2 (r) -1070 = C823OOH (r)2823 = IECPAN (r)4576 = EPXMEC4DAL (r) -1071 = NC826OOH (r)2824 = NC3CO3H (r)4577 = H2M2C65O2 (r) -1072 = C4M2NO3OOH (r)2825 = C3PAN1 (r)4578 = MVKOHAO2 (r) -1073 = PBZMUCCO2H (r)2826 = C72O (r) 4579 = BU1ENO3O2 (r) -1074 = HOIBUTCO3H (r)2827 = HOACETETO (r)4580 = C98O2 (r) -1075 = CO3C75OOH (r)2828 = PROPALOOH (r)4581 = HEX2ONAO2 (r) -1076 = EMPHCO3H (r)2829 = C830PAN (r)4582 = C6OH5O2 (r) -1077 = C1310OOH (r)2830 = C3MCODBPAN (r)4583 = HEX3ONAO2 (r) -1078 = MPRNO3CO2H (r)2831 = C4M2NO33O (r)4584 = CO25C74O2 (r) -1079 = DECOOH (r)2832 = NC1313O (r)4585 = NMBOAO2 (r) -1080 = C5CONO3OOH (r)2833 = C5EDBPAN (r)4586 = M3HEXAO2 (r) -1081 = MIBKAOHNO3 (r)2834 = C530NO3 (r)4587 = C66NO35O2 (r) -1082 = M3HEXBOOH (r)2835 = HO3C6NO3 (r)4588 = GLYOOA (r) -1083 = DETLBIPNO3 (r)2836 = BCALBOOH (r)4589 = HNMVKO2 (r) -1084 = EPXMDLCO2H (r)2837 = C6M5CO2O (r)4590 = C6NO3CO5O2 (r) -1085 = C312COCO3H (r)2838 = C6MOCOCO3H (r)4591 = OXYLCO3 (r) -1086 = EPXM2DLPAN (r)2839 = M3PECNO3 (r)4592 = OXYL1O2 (r) -1087 = C729CO2H (r)2840 = IBUTOLBO (r)4593 = C51NO32O2 (r) -1088 = IC7DCOOH (r)2841 = PHXN (r) 4594 = MIBKBO2 (r) -1089 = C619OOH (r)2842 = C6PAN2 (r)4595 = EOCOCH2O2 (r) -1090 = HO2C54CO3H (r)2843 = C6PAN1 (r)4596 = MBOAO2 (r) -1091 = NPBNZ1OOH (r)2844 = C6PAN6 (r)4597 = C614O2 (r) -1092 = C7EDCOOH (r)2845 = C6PAN7 (r)4598 = PE1ENEAO2 (r) -1093 = C89OOH (r)2846 = C6PAN4 (r)4599 = NC524O2 (r) -1094 = C620OOH (r)2847 = NTM135OLO (r)4600 = BPINENE (r) -1095 = C6H5CO3H (r)2848 = C6PAN8 (r)4601 = ME2BUT1ENE (r) -1096 = MNNCATCOOH (r)2849 = C65OH4O (r)4602 = C33CO (r) -1097 = PRPAL2CO2H (r)2850 = C920PAN (r)4603 = PHENO (r) -1098 = C41OOH (r)2851 = C4NO32M2O (r)4604 = CHEX2ENE (r) -1099 = CO23C54OOH (r)2852 = C23O3ECPAN (r)4605 = LIMONENE (r) -1100 = CO3C4CO3H (r)2853 = C115O (r) 4606 = THEX2ENE (r) -1101 = PTNNCATOOH (r)2854 = NC4IPDCO2H (r)4607 = C64OH5O2 (r) -1102 = CH2CHCH2OOH (r)2855 = C1213NO3 (r)4608 = C65OH4O2 (r) -1103 = OETLMUCOOH (r)2856 = C1213CO (r)4609 = ETOC2O2 (r) -1104 = OXNNCATOOH (r)2857 = OETLMUCPAN (r)4610 = EOX2EOLBO2 (r) -1105 = NCATECOOH (r)2858 = C5NO3CO4O (r)4611 = EOX2MECO3 (r) -1106 = C3ME3CO3H (r)2859 = C5CO2DBPAN (r)4612 = ETHFORMO2 (r) -1107 = C624CO3H (r)2860 = C131PAN (r)4613 = ACETMECO3 (r) -1108 = HM2C43OOH (r)2861 = HCOCH2O (r)4614 = METHACETO2 (r) -1109 = C5CO14OOH (r)2862 = C8O2OHCO3H (r)4615 = ISOPBNO3 (r) -1110 = PRNO3CO2H (r)2863 = C7CO2OHPAN (r)4616 = DIETETO2 (r) -1111 = IPGLYOXOH (r)2864 = CO1M22PAN (r)4617 = C537O2 (r) -1112 = TM123MUOOH (r)2865 = C3DIOLO (r)4618 = CO23C5 (r) -1113 = VINOH (r) 2866 = C6EO2OHPAN (r)4619 = PBENZOLO (r) -1114 = C6H13CO3H (r)2867 = C5124COPAN (r)4620 = C8CO2DBCO3 (r) -1115 = HO6C7OOH (r)2868 = C1H4C5CO3H (r)4621 = TLFUONOO (r) -1116 = H1C23C4OOH (r)2869 = NMBOBO (r)4622 = C6H5CO3 (r) -1117 = C6O4KETOOH (r)2870 = INANCOCO3H (r)4623 = HO3C5CO3 (r) -1118 = NDNIPBLOOH (r)2871 = C52OOH (r)4624 = C87CO3 (r) -1119 = C1011OOH (r)2872 = C3MNO3PAN (r)4625 = C520O2 (r) -1120 = MBOAOH (r)2873 = C3DBCO3H (r)4626 = TLEMUCCO3 (r) -1121 = C645OH (r)2874 = HO7C8O (r)4627 = C3COCCO3 (r) -1122 = HO7C8OOH (r)2875 = C7MCO2DBAL (r)4628 = EPXEKTCO3 (r) -1123 = NIPBFUOOH (r)2876 = C5COO2NO2 (r)4629 = H2M2C4CO3 (r) -1124 = C4ME3HO23 (r)2877 = C6PAN21 (r)4630 = EPXALMKT (r) -1125 = CATEC1OOH (r)2878 = HEX2ONCOOH (r)4631 = C5CO34CO3 (r) -1126 = C622OOH (r)2879 = C729PAN (r)4632 = NMETOL1O (r) -1127 = NBZFUOOH (r)2880 = C5PAN8 (r)4633 = PETLMUCCO3 (r) -1128 = C141OOH (r)2881 = MIBK3COO (r)4634 = BUT2CO3 (r) -1129 = TMB2FUOOH (r)2882 = C5PAN4 (r)4635 = IPBZMUCCO3 (r) -1130 = C617OOH (r)2883 = C5PAN7 (r)4636 = HMVKBCO3 (r) -1131 = DE35TOOH (r)2884 = C5PAN1 (r)4637 = PBFUONE (r) -1132 = MIPKBOOH (r)2885 = C5PAN3 (r)4638 = C823CO3 (r) -1133 = EBFUCO (r)2886 = C5PAN2 (r)4639 = T123CAT1O (r) -1134 = HO2C43CO3H (r)2887 = CHOMOHPAN (r)4640 = PROPALO2 (r) -1135 = C822OOH (r)2888 = BPINCNO3 (r)4641 = EBZMUCCO3 (r) -1136 = C82OOH (r)2889 = M2BKAO (r)4642 = CO2M3C4CO3 (r) -1137 = C95OOH (r)2890 = C824O (r) 4643 = NDNT124LO2 (r) -1138 = IBUTOLBO2H (r)2891 = HO2M2C4O (r)4644 = C820O2 (r) -1139 = C513OOH (r)2892 = PINALNO3 (r)4645 = NBUTOLAO2 (r) -1140 = HO2C4OH (r)2893 = DIEKAOOH (r)4646 = C61O2 (r) -1141 = C42NO33OOH (r)2894 = C733O (r) 4647 = ME2BUOLO2 (r) -1142 = HO13C5OOH (r)2895 = COO2C4CHO (r)4648 = CHOC4DOLO2 (r) -1143 = DIETETOOH (r)2896 = C6PAN23 (r)4649 = BZEMUCCO3 (r) -1144 = PXNNCATOOH (r)2897 = C7CO3OHO (r)4650 = IPBFUONE (r) -1145 = C77OOH (r)2898 = NC91PAN (r)4651 = CO14O3CHO (r) -1146 = C515CO3H (r)2899 = C5DBECO3H (r)4652 = C1211CO3 (r) -1147 = C719OOH (r)2900 = EMPHCOMOOH (r)4653 = C617CO3 (r) -1148 = PTNCATCOOH (r)2901 = C7CO2DBPAN (r)4654 = OETLMUCCO3 (r) -1149 = C1013OOH (r)2902 = BPINAO (r)4655 = NDNT123LO2 (r) -1150 = ETOLOOH (r)2903 = DNEBNZLO (r)4656 = DETLMUCO3 (r) -1151 = LMKANO3 (r)2904 = EPXMDLPAN (r)4657 = INAHCO3 (r) -1152 = MXCTEC1OOH (r)2905 = CO234C65O (r)4658 = INAHPCO3 (r) -1153 = MIBKAOOH (r)2906 = M33C4O (r)4659 = CO25C6CO3 (r) -1154 = COO2C4CO3H (r)2907 = INB1NBPAN (r)4660 = H3C25C6CO3 (r) -1155 = C139OOH (r)2908 = C1312NO3 (r)4661 = BUTALAO2 (r) -1156 = OET1OOH (r)2909 = C1312CO (r)4662 = HOBUT2CO3 (r) -1157 = OXYOLOOH (r)2910 = M3CO245C6 (r)4663 = NPETOL1O (r) -1158 = HOIPRCO3H (r)2911 = C5COOHCO3H (r)4664 = C512CO3 (r) -1159 = DETLBPROOH (r)2912 = C64OH5O (r)4665 = H2M3C4CO3 (r) -1160 = EOX2OLBOOH (r)2913 = NEOPNO3 (r)4666 = C6H5O2 (r) -1161 = PETLMUCOOH (r)2914 = CH4 (r) 4667 = C715CO2O2 (r) -1162 = C1014OOH (r)2915 = IPBZMUCPAN (r)4668 = NAOO (r) -1163 = C718CO2H (r)2916 = NC623O (r)4669 = C6OTKETO2 (r) -1164 = NC71OOH (r)2917 = HO3C76NO3 (r)4670 = T124CAT1O (r) -1165 = HO1C6OOH (r)2918 = OXNNCATCO (r)4671 = NMXYOL1O (r) -1166 = DNT123LOOH (r)2919 = NDMMALYO (r)4672 = C1014O2 (r) -1167 = PXYMUCOOH (r)2920 = C23O3MCOOH (r)4673 = C46CO3 (r) -1168 = HO3C86OOH (r)2921 = A2PAN (r) 4674 = C7BDCO2 (r) -1169 = NDNEBZLOOH (r)2922 = CHEXO (r) 4675 = C7M15CO2O2 (r) -1170 = C83COOHOOH (r)2923 = C23O3ECOOH (r)4676 = NPXYOL1O (r) -1171 = C4ME2OHOOH (r)2924 = MALDIALPAN (r)4677 = NC2OO (r) -1172 = BUTDBNO3 (r)2925 = INANPAN (r)4678 = BCKBOO (r) -1173 = C67CO3H (r)2926 = NC4H9O (r)4679 = C137CO3 (r) -1174 = IPBZMUCO2H (r)2927 = IP3ODBCO2H (r)4680 = EPXMKTCO3 (r) -1175 = EPXKTMCO2H (r)2928 = INB1NAPAN (r)4681 = C732CO3 (r) -1176 = EPXEKTCO3H (r)2929 = C62CPAN (r)4682 = NOETOL1O (r) -1177 = MTBKOOH (r)2930 = C74OOH (r)4683 = C815CO2O2 (r) -1178 = C136OOH (r)2931 = C730O (r) 4684 = EPXMDLCO3 (r) -1179 = HO2C5OH (r)2932 = C6CO34HO1 (r)4685 = DMEBMUCO3 (r) -1180 = M3C4CO3H (r)2933 = M2PEDO (r)4686 = COO2C3CO3 (r) -1181 = C824OOH (r)2934 = H2MC5NO3 (r)4687 = MOCOCH2O2 (r) -1182 = C131CO3H (r)2935 = DNOXYOLO (r)4688 = IC4CHOAO2 (r) -1183 = C1313OOH (r)2936 = PC3ODBCO2H (r)4689 = C4CHOAO2 (r) -1184 = CO2N3PAN (r)2937 = DNPETOLO (r)4690 = NOXYOL1O (r) -1185 = C4OCCOHOOH (r)2938 = C831CO (r)4691 = BCKAOO (r) -1186 = BPINAOOH (r)2939 = HO2C4O (r)4692 = PXYMUCCO3 (r) -1187 = T124NCTOOH (r)2940 = C6CO3OHOOH (r)4693 = CH3COCO2H (r) -1188 = PBENZOOH (r)2941 = C522PAN (r)4694 = C5CODBCO2H (r) -1189 = C87CO2H (r)2942 = C930NO3 (r)4695 = C4OCCOHCO2 (r) -1190 = PXNCATCOOH (r)2943 = C917NO3 (r)4696 = M3PEAO2 (r) -1191 = C69OOH (r)2944 = HO5C6O (r)4697 = C69O2 (r) -1192 = MALANHYOOH (r)2945 = IPROPOLPAN (r)4698 = MIBKHO4O2 (r) -1193 = CO2M33CO3H (r)2946 = H13M3C5O (r)4699 = PXYMUCO2 (r) -1194 = C4ME3HO12 (r)2947 = C816PAN (r)4700 = C4M3NO31O2 (r) -1195 = C1210OOH (r)2948 = DMEBMUPAN (r)4701 = EBZMUCO2 (r) -1196 = H3M3C5CO3H (r)2949 = IC7DCO (r)4702 = C63NO32O2 (r) -1197 = C918OOH (r)2950 = METLMUCPAN (r)4703 = C7EDCO2 (r) -1198 = HO8C9CO3H (r)2951 = C10PAN2 (r)4704 = C610O2 (r) -1199 = C928CO3H (r)2952 = DNT124LO (r)4705 = BUTALO2 (r) -1200 = DMEBPROOH (r)2953 = C614O (r) 4706 = DMKOHO2 (r) -1201 = CO23C4CO3H (r)2954 = EOX2EOLAO (r)4707 = OXYMUCO2 (r) -1202 = CY6DIONOOH (r)2955 = BZEMUCPAN (r)4708 = C32OH13CO (r) -1203 = C921OOH (r)2956 = MXYLPAN (r)4709 = C123O2 (r) -1204 = C63OOH (r)2957 = INDHPPAN (r)4710 = C6H13CHO (r) -1205 = C923OOH (r)2958 = C822PAN (r)4711 = C57AO2 (r) -1206 = EPXMEDCO3H (r)2959 = NBPINBO (r)4712 = C103O2 (r) -1207 = M2HEXBOOH (r)2960 = C83O (r) 4713 = C93O2 (r) -1208 = CHOOMCO3H (r)2961 = BCCO (r) 4714 = C52NO33O2 (r) -1209 = C721CO3H (r)2962 = NLIMALO (r)4715 = C113O2 (r) -1210 = BZEMUCCO2H (r)2963 = MXNCATECO (r)4716 = C82O2 (r) -1211 = EBZBPEROOH (r)2964 = M3HEXBNO3 (r)4717 = C3COCCHO (r) -1212 = CO2HOC6OOH (r)2965 = C1215CO (r)4718 = MXYMUCO2 (r) -1213 = C67OOH (r)2966 = DNC524CO (r)4719 = C6CONO34O2 (r) -1214 = C98OOH (r)2967 = C7ADCO (r)4720 = BZEMUCO2 (r) -1215 = CO356OCOOH (r)2968 = C828O (r) 4721 = EPXC4DIAL (r) -1216 = DMEBIPNO3 (r)2969 = C4MOHOPAN (r)4722 = H2M5C65O2 (r) -1217 = PE2ONE1OOH (r)2970 = C4DBM2PAN (r)4723 = C4M2NO32O2 (r) -1218 = TM135OLOOH (r)2971 = C3EDIALOOH (r)4724 = CO3C4NO3O2 (r) -1219 = HC23C4CO3H (r)2972 = HO13C4O (r)4725 = METLMUCO2 (r) -1220 = MVKOHAOOH (r)2973 = C2H6 (r) 4726 = TM124NO2O2 (r) -1221 = NEBNZ1OOH (r)2974 = M2PEBO (r)4727 = PETLMUCO2 (r) -1222 = INB1NACO2H (r)2975 = ALC4DOLOOH (r)4728 = CO3H4CHO (r) -1223 = NDNMETLOOH (r)2976 = ETHFORMOOH (r)4729 = EPXMC4DIAL (r) -1224 = C7DCOOH (r)2977 = C7PAN3 (r)4730 = HO1CO3C4O2 (r) -1225 = C717OOH (r)2978 = C5PAN5 (r)4731 = C4DBMECO3 (r) -1226 = HO7C8CO3H (r)2979 = C732CO (r)4732 = C42O2 (r) -1227 = TM123OOH (r)2980 = C617PAN (r)4733 = M2PEAO2 (r) -1228 = TMBCO3H (r)2981 = C712OOH (r)4734 = C145O2 (r) -1229 = C57NO3CO2H (r)2982 = C610O (r) 4735 = C63O2 (r) -1230 = NCRES1OOH (r)2983 = M2BUOL2O (r)4736 = EIPK (r) -1231 = IPBFUCO (r)2984 = C718PAN (r)4737 = HO2C43CHO (r) -1232 = IPBZOLOOH (r)2985 = MACRNBCO2H (r)4738 = C116CO3 (r) -1233 = C1013CO3H (r)2986 = DNMXYOLO (r)4739 = INB1NBCO3 (r) -1234 = H3M3C4CO3H (r)2987 = C6PAN9 (r)4740 = EPXM2DLCO3 (r) -1235 = CHEXOOH (r)2988 = C65NO3PAN (r)4741 = MEK2OO (r) -1236 = C23C54CO3H (r)2989 = C5CO23O (r)4742 = ACCOCOMEO2 (r) -1237 = C729OOH (r)2990 = M3PEBO (r)4743 = IPBENZOLO (r) -1238 = C522CO2H (r)2991 = C6COOHCO3H (r)4744 = C8DBCO2CO3 (r) -1239 = CH3OCH2OOH (r)2992 = M2PROPAL2O (r)4745 = C144O2 (r) -1240 = NSTYRENEO (r)2993 = IBUTALO2H (r)4746 = BCALCO2 (r) -1241 = APINCOOH (r)2994 = NTM123OLO (r)4747 = CH2OOF (r) -1242 = HC4CCO2H (r)2995 = DNMETOLO (r)4748 = C117O2 (r) -1243 = OCATEC1OOH (r)2996 = C51O (r) 4749 = DHPMACR (r) -1244 = HO5C6CO3H (r)2997 = LIMALO (r)4750 = CO356OCO2 (r) -1245 = C127OOH (r)2998 = C5DBCO2PAN (r)4751 = C533O2 (r) -1246 = C537O (r) 2999 = C712NO3 (r)4752 = C517CO3 (r) -1247 = C823CO3H (r)3000 = C712O (r) 4753 = INB1NACO3 (r) -1248 = ACCOMECO3H (r)3001 = MNCATECO (r)4754 = BCALAO2 (r) -1249 = IEACO3H (r)3002 = C65NO36O (r)4755 = IC4H9O2 (r) -1250 = C732CO3H (r)3003 = PPN (r) 4756 = BCALBO2 (r) -1251 = C141CO3H (r)3004 = OTNCATECO (r)4757 = BCBOCOO (r) -1252 = TMB1FUOOH (r)3005 = C7DDCCO3H (r)4758 = C536O2 (r) -1253 = ENNCATCOOH (r)3006 = C727OOH (r)4759 = C312COCO3 (r) -1254 = PETLMUCO3H (r)3007 = C6PAN22 (r)4760 = C5H11CO3 (r) -1255 = MXNNCATOOH (r)3008 = CHOC2PAN (r)4761 = BCLKBO2 (r) -1256 = EPXEKTCO2H (r)3009 = C82O (r) 4762 = C146O2 (r) -1257 = C734CO (r)3010 = C518PAN (r)4763 = IBUTALCO2 (r) -1258 = NISOPOOH (r)3011 = C1011PAN (r)4764 = C127O2 (r) -1259 = NONOOH (r)3012 = C5O45OHPAN (r)4765 = CY6DIONO2 (r) -1260 = C817OOH (r)3013 = C67O (r) 4766 = HEPTO2 (r) -1261 = C3MNO3CO2H (r)3014 = C5DBEPAN (r)4767 = PE2ENEBO2 (r) -1262 = EIPKBOOH (r)3015 = CO1H63NO3 (r)4768 = CHOC2H4O2 (r) -1263 = C813OOH (r)3016 = T123NNCTO (r)4769 = C4ECO2O2 (r) -1264 = C718OOH (r)3017 = C918PAN (r)4770 = C23O3MCO3 (r) -1265 = HM33C3OOH (r)3018 = CYHXOLAOOH (r)4771 = M33C3CO3 (r) -1266 = C917OOH (r)3019 = C5MEJPAN (r)4772 = INANCOCO3 (r) -1267 = HEPTOOH (r)3020 = C4OH2CPAN (r)4773 = C3MCODBCO3 (r) -1268 = C83OOH (r)3021 = CO2C3PAN (r)4774 = MVKO2 (r) -1269 = HMML (r) 3022 = C5DIALOOH (r)4775 = C61CHO (r) -1270 = DM35EBOOH (r)3023 = C6PAN18 (r)4776 = HMGLOO (r) -1271 = C115OOH (r)3024 = C6PAN10 (r)4777 = C4NO32M1O2 (r) -1272 = C728OOH (r)3025 = C6PAN11 (r)4778 = HO24C5O2 (r) -1273 = DNT124LOOH (r)3026 = C6PAN17 (r)4779 = C629O2 (r) -1274 = DETLMUO3H (r)3027 = NIPBNZOLO (r)4780 = MIBKAOHAO2 (r) -1275 = C5TRONCO3H (r)3028 = C7MCO3OHO (r)4781 = C816O2 (r) -1276 = MXYBPEROOH (r)3029 = C827PAN (r)4782 = C53NO32O2 (r) -1277 = C811CO3H (r)3030 = NBPINAO (r)4783 = MACROHO2 (r) -1278 = DNPXYOLOOH (r)3031 = C41CO3H (r)4784 = HEX2ONBO2 (r) -1279 = CHOC4OHOOH (r)3032 = IPEAO (r) 4785 = C54O2 (r) -1280 = ISOPDOH (r)3033 = NC4CO3H (r)4786 = ISOPDNO3 (r) -1281 = M2BKAOOH (r)3034 = NOPINCNO3 (r)4787 = CO24C63O2 (r) -1282 = C75OOH (r)3035 = MPRKAOOH (r)4788 = NT124L1O (r) -1283 = MXYLCO3H (r)3036 = DNCRESO (r)4789 = C915O2 (r) -1284 = C9DCNO3 (r)3037 = BCSOZO (r)4790 = NIPBNZ1O (r) -1285 = M3BU3ECO3H (r)3038 = HM33C4OOH (r)4791 = NPBNZ1O (r) -1286 = C126OOH (r)3039 = BCALO (r) 4792 = C5O45OHCO3 (r) -1287 = OXYLOOH (r)3040 = C6CO2OHPAN (r)4793 = MEBFUONE (r) -1288 = MPRANO3OOH (r)3041 = C615O (r) 4794 = ME3BU3ECHO (r) -1289 = HMVKAOOH (r)3042 = HPC52PAN (r)4795 = COHM2CO3 (r) -1290 = C5H11CO3H (r)3043 = BCALCOOH (r)4796 = HCOCO2H (r) -1291 = H2M3C4CO3H (r)3044 = C4OCCOHCOH (r)4797 = NEBNZ1O (r) -1292 = MIBK3COOOH (r)3045 = INDHPAN (r)4798 = NCRES1O (r) -1293 = PHCOCOCOOH (r)3046 = HO3C6OOH (r)4799 = METOLO (r) -1294 = ECATEC1OOH (r)3047 = PHAN (r) 4800 = H2M3CO5C6 (r) -1295 = C1215OOH (r)3048 = C530O (r) 4801 = CO24C5 (r) -1296 = MXYMUCCO3H (r)3049 = HOCO3C4OOH (r)4802 = C712O2 (r) -1297 = BPINAOH (r)3050 = NEBNZOLO (r)4803 = TM124MUCO2 (r) -1298 = HEXCOOH (r)3051 = C3M3OH2PAN (r)4804 = MNO3COC4O2 (r) -1299 = DMEBMUO3H (r)3052 = C7MJPPAN (r)4805 = C5PACALD1 (r) -1300 = MPRBNO3OOH (r)3053 = C6CO134PAN (r)4806 = C5124COCO3 (r) -1301 = NDMMALYOOH (r)3054 = MIBKCOOHO (r)4807 = TM135MUCO3 (r) -1302 = BU1ENO3OOH (r)3055 = CY6COCOOOH (r)4808 = C23O3CCO3 (r) -1303 = IPBENZOOH (r)3056 = IBUDIALPAN (r)4809 = MPRBNO3O2 (r) -1304 = HO3C106OOH (r)3057 = C66CO (r) 4810 = NT123L1O (r) -1305 = ETOC2OOH (r)3058 = C125O (r) 4811 = C714O2 (r) -1306 = NC51OOH (r)3059 = MACRNPAN (r)4812 = C522CO3 (r) -1307 = TLBIPEROOH (r)3060 = TLEMUCPAN (r)4813 = C9M2CO6O2 (r) -1308 = NIPBNZ1OOH (r)3061 = C8DBCO2PAN (r)4814 = CYHEXOLAO2 (r) -1309 = NDNPBZLOOH (r)3062 = C135O (r) 4815 = C62CHO (r) -1310 = TM135BPOOH (r)3063 = ECO3PAN (r)4816 = HMACO3 (r) -1311 = C719NO3 (r)3064 = C58AO (r) 4817 = C5NO3COAO2 (r) -1312 = C616OOH (r)3065 = PTNNCATCO (r)4818 = C618CO3 (r) -1313 = CYHXONAOOH (r)3066 = CYHXONAO (r)4819 = ACROO (r) -1314 = BCALOOH (r)3067 = C821O (r) 4820 = C929O2 (r) -1315 = PHC3OOH (r)3068 = MIBKANO3 (r)4821 = TLEMUCO2 (r) -1316 = TLEMUCCO2H (r)3069 = MIBKAO (r)4822 = EPXDLCO3 (r) -1317 = C622CO3H (r)3070 = C7PAN2 (r)4823 = C3DIALO2 (r) -1318 = C816OOH (r)3071 = C533O (r) 4824 = LMKBOO (r) -1319 = HCOCH2CO3H (r)3072 = STYRENO (r)4825 = C133O2 (r) -1320 = CHOC2CO3H (r)3073 = C95O (r) 4826 = C47CO3 (r) -1321 = HO13C4NO3 (r)3074 = NBCALO (r)4827 = C6CO3OH5O2 (r) -1322 = MNCATECOOH (r)3075 = ACCOMEPAN (r)4828 = BZFUONOO (r) -1323 = C610OOH (r)3076 = IPECNO3 (r)4829 = PBZMUCCO3 (r) -1324 = C97OOH (r)3077 = CO3C4NO3 (r)4830 = C920CO3 (r) -1325 = C822CO3H (r)3078 = CO25C74OOH (r)4831 = C31CO3 (r) -1326 = H2M5C65OOH (r)3079 = HO24C5O (r)4832 = M3F (r) -1327 = CO3C54CO3H (r)3080 = C58O (r) 4833 = OXYMUCCO3 (r) -1328 = C928OOH (r)3081 = C918NO3 (r)4834 = HM22C3CHO (r) -1329 = PNNCATCOOH (r)3082 = TM135OBPOH (r)4835 = C5DICARBO2 (r) -1330 = DMEBMUO2H (r)3083 = IPROPOL (r)4836 = CO2M33CO3 (r) -1331 = C117OOH (r)3084 = IPBENZ (r)4837 = M2BUOL2O2 (r) -1332 = PERPENACID (r)3085 = TM124OHNO2 (r)4838 = NC4H9CHOO (r) -1333 = C1214OOH (r)3086 = CO346C8 (r)4839 = C827CO3 (r) -1334 = BCKANO3 (r)3087 = PTNCATECH (r)4840 = C4ALDB (r) -1335 = DMMALYOOH (r)3088 = DNCRES (r)4841 = MIPKAO2 (r) -1336 = C1211CO3H (r)3089 = EBZOBPEROH (r)4842 = C626CHO (r) -1337 = C61OOH (r)3090 = NC101CO (r)4843 = LIMBOO (r) -1338 = C125OOH (r)3091 = UDEC3ONE (r)4844 = HM33C3O2 (r) -1339 = C732OOH (r)3092 = NCATECHOL (r)4845 = CHOPRNO3 (r) -1340 = H1MC5OOH (r)3093 = EBNZOHNO2 (r)4846 = EPXKTMCO3 (r) -1341 = C6H5CH2OOH (r)3094 = DMKOHO (r)4847 = C923CO3 (r) -1342 = NDNMXYLOOH (r)3095 = OXNCATECH (r)4848 = HO2C4CO3 (r) -1343 = OXYMUCCO2H (r)3096 = MXYL (r) 4849 = C817CO3 (r) -1344 = C615CO2H (r)3097 = TM135B (r)4850 = C6H13CO3 (r) -1345 = C7ADCOOH (r)3098 = PET1OHNO2 (r)4851 = H13CO2CHO (r) -1346 = C536O (r) 3099 = ACO2H (r) 4852 = DIEKAO2 (r) -1347 = C519CO3H (r)3100 = IPNCATECH (r)4853 = CO1M22CO3 (r) -1348 = CO25C6CO3H (r)3101 = MET1OHNO2 (r)4854 = C615CO3 (r) -1349 = HO3C116OOH (r)3102 = BUTDANO3 (r)4855 = C729CO3 (r) -1350 = C727CO3H (r)3103 = TM123OBPOH (r)4856 = C5OH2CO4O2 (r) -1351 = C926OOH (r)3104 = MIPKAO (r)4857 = C23O3MO2 (r) -1352 = BUTDAOOH (r)3105 = EBENZ (r) 4858 = MPRKAO2 (r) -1353 = C108OOH (r)3106 = M2BUOL2NO3 (r)4859 = NPHEN1O (r) -1354 = MXYMUCCO2H (r)3107 = OETLMUCCO (r)4860 = TBUTCO3 (r) -1355 = TM123BCO3H (r)3108 = OETLMUCNO3 (r)4861 = C4M2ALOHO2 (r) -1356 = EPXDLCO2H (r)3109 = M3CO5C6 (r)4862 = A2PANOO (r) -1357 = PMALNHYOOH (r)3110 = DDEC3ONE (r)4863 = C830CO3 (r) -1358 = OTNCATCOOH (r)3111 = TM123OHNO2 (r)4864 = C4MOHOCO3 (r) -1359 = IPRBQOOH (r)3112 = PXNCATECH (r)4865 = CO234C6 (r) -1360 = C5CO23OOH (r)3113 = METHTOL (r)4866 = CO3C5CO3 (r) -1361 = T123CT1OOH (r)3114 = T123NCATEC (r)4867 = H3C2C4CO3 (r) -1362 = NBPINBOOH (r)3115 = C109CO (r)4868 = IPRCHOO (r) -1363 = C4NO3CO2H (r)3116 = MTNCATECH (r)4869 = BCKSZOO (r) -1364 = NC526OOH (r)3117 = NON3ONE (r)4870 = NBUTOLBO2 (r) -1365 = NBUTDBOOH (r)3118 = HEPT3ONE (r)4871 = CO23C65O2 (r) -1366 = NPXYOL1OOH (r)3119 = MXNCATECH (r)4872 = HO3C4CHO (r) -1367 = C919OOH (r)3120 = DNMXYOL (r)4873 = HO5C5CHO (r) -1368 = EPXMEDLPAN (r)3121 = BZOBIPEROH (r)4874 = H3M3C4CO3 (r) -1369 = IBUTOLOHB (r)3122 = IPBZOBPROH (r)4875 = CHOCOCH2O2 (r) -1370 = OETLMUCO3H (r)3123 = PNCATECH (r)4876 = PECO2 (r) -1371 = LIMALOOH (r)3124 = CO235C7 (r)4877 = C6DICARBO2 (r) -1372 = C147CO (r)3125 = MXY1OHNO2 (r)4878 = M3HEXBO2 (r) -1373 = C147OOH (r)3126 = C77CO (r) 4879 = C65NO36O2 (r) -1374 = C91OOH (r)3127 = OTNCATECH (r)4880 = EIPKBO2 (r) -1375 = HO3C76OOH (r)3128 = METACETHO (r)4881 = C4M3NO32O2 (r) -1376 = NDNCRESOOH (r)3129 = PETHTOL (r)4882 = C6DIAL (r) -1377 = STYRENOOH (r)3130 = PETOH (r) 4883 = C6DIALOH (r) -1378 = EPXMKTCO3H (r)3131 = MXYLOL (r)4884 = C62NO33O2 (r) -1379 = MXNCATCOOH (r)3132 = MPHGLYOX (r)4885 = HO2CO4C5O2 (r) -1380 = H2M2C3CO3H (r)3133 = MGLOOC (r)4886 = M23C4O2 (r) -1381 = C623OOH (r)3134 = PXYL (r) 4887 = MC6CO2O2 (r) -1382 = H3M3C6OOH (r)3135 = PXYLOL (r)4888 = C7ADCCO3 (r) -1383 = C920OOH (r)3136 = EBENZOL (r)4889 = C4COMOH3O2 (r) -1384 = LMKAOH (r)3137 = DNT124BOL (r)4890 = H13M3C5O2 (r) -1385 = TMBOOH (r)3138 = TM124B (r)4891 = C816CO3 (r) -1386 = C656OH (r)3139 = TM124OL (r)4892 = MXYMUCCO3 (r) -1387 = HO3C126OOH (r)3140 = PBNZOHNO2 (r)4893 = C6M5CO2O2 (r) -1388 = NPBFUOOH (r)3141 = BPINANO3 (r)4894 = C58O2 (r) -1389 = EPXMEDCO2H (r)3142 = T124NCATEC (r)4895 = MXYFUONE (r) -1390 = C916OOH (r)3143 = DNOETOL (r)4896 = EBFUONE (r) -1391 = C4NO32MOOH (r)3144 = PBENZ (r) 4897 = C826CO3O2 (r) -1392 = C533OOH (r)3145 = OXYL (r) 4898 = C920O2 (r) -1393 = MXOHNO2OOH (r)3146 = DNPHEN (r)4899 = C7CO2M5O2 (r) -1394 = C626CO2H (r)3147 = PHCHOOA (r)4900 = C512O2 (r) -1395 = BUTDCOOH (r)3148 = OCT3ONE (r)4901 = IPEBO2 (r) -1396 = DEMPHOLOOH (r)3149 = PBENZOL (r)4902 = CO235C5CHO (r) -1397 = C6145COOOH (r)3150 = PXY1OHNO2 (r)4903 = C77O2 (r) -1398 = HO8C9OOH (r)3151 = CO356C9 (r)4904 = MMALANHYO2 (r) -1399 = MTNNCATOOH (r)3152 = DNPETOL (r)4905 = C7M6CO2O2 (r) -1400 = CYHXOLANO3 (r)3153 = OET1OHNO2 (r)4906 = MACROO (r) -1401 = HO3C96OOH (r)3154 = INCNCHO (r)4907 = PE4E2CO (r) -1402 = C718CO3H (r)3155 = MVKOOA (r)4908 = MBOOO (r) -1403 = PXYMUCCO2H (r)3156 = ETHACET (r)4909 = NOA (r) -1404 = EPXKTMCO3H (r)3157 = CRESOL (r)4910 = C89CO3 (r) -1405 = METLMUCO2H (r)3158 = OXYLOL (r)4911 = C66O2 (r) -1406 = CO23C65OOH (r)3159 = ME2BUOLNO3 (r)4912 = APINBOO (r) -1407 = C136CO3H (r)3160 = INANCO (r)4913 = C4CO2O2 (r) -1408 = C617CO3H (r)3161 = HOC6H4NO2 (r)4914 = NORPINAL (r) -1409 = OETLMUCO2H (r)3162 = ENCATECH (r)4915 = IBUDIALCO3 (r) -1410 = C101OOH (r)3163 = DNOXYOL (r)4916 = MALDIALCO3 (r) -1411 = C829OOH (r)3164 = METOH (r) 4917 = C7DCCO3 (r) -1412 = PETLQOOH (r)3165 = IPBNZOHNO2 (r)4918 = PGLYOX (r) -1413 = C830OOH (r)3166 = DEC3ONE (r)4919 = PHCHOO (r) -1414 = C614OOH (r)3167 = MNCATECH (r)4920 = C23O3EO2 (r) -1415 = MXYMUCOOH (r)3168 = M2CO5C6 (r)4921 = C131CO3 (r) -1416 = CO3C85OOH (r)3169 = DIET35TOL (r)4922 = C4NO3COO2 (r) -1417 = BZEMUCCO3H (r)3170 = OXY1OHNO2 (r)4923 = C4CONO3O2 (r) -1418 = HO6C7CO3H (r)3171 = CCOCOCOH (r)4924 = CH3CHOHCO3 (r) -1419 = MXY1OOH (r)3172 = IPBENZOL (r)4925 = NAPINBO2 (r) -1420 = DNOXYOLOOH (r)3173 = IBUTOLBNO3 (r)4926 = C6COCHOCO3 (r) -1421 = PCATEC1OOH (r)3174 = PBZOBPEROH (r)4927 = PXYFUONE (r) -1422 = M2BUOL2OOH (r)3175 = M3BU2OLNO3 (r)4928 = IPBZMUCO2 (r) -1423 = DNPETOLOOH (r)3176 = OXYMUCCO (r)4929 = MECOACETO2 (r) -1424 = C817CO3H (r)3177 = OXYMUCNO3 (r)4930 = IC7DCCO3 (r) -1425 = C58NO3CO2H (r)3178 = DNIPBNZOL (r)4931 = IPRGLYOX (r) -1426 = TL4ONO2OOH (r)3179 = TM123B (r)4932 = OCCOHCO2 (r) -1427 = NPHEN1OOH (r)3180 = TM123BOL (r)4933 = EPXEALKT (r) -1428 = C512OOH (r)3181 = DNEBNZOL (r)4934 = HO2C54CO3 (r) -1429 = MCATEC1OOH (r)3182 = DIME35EB (r)4935 = C7M2CO5O2 (r) -1430 = MBKCOOHOOH (r)3183 = CO356C10 (r)4936 = MACRO2 (r) -1431 = PHIC3OOH (r)3184 = CO356C11 (r)4937 = TM123BPRO (r) -1432 = EPXMKTCO2H (r)3185 = CO356C12 (r)4938 = BIACET (r) -1433 = HMACO2H (r)3186 = EGLYOOD (r)4939 = CO24C4CHO (r) -1434 = BZBIPEROOH (r)3187 = DNPBNZOL (r)4940 = C131O2 (r) -1435 = METLQOOH (r)3188 = C4ME2OHNO3 (r)4941 = C2H5CHOO (r) -1436 = C2OHOCOOH (r)3189 = DNPXYOL (r)4942 = HEXAO2 (r) -1437 = C920CO3H (r)3190 = DNMETOL (r)4943 = CH3CHOO (r) -1438 = C510OOH (r)3191 = DNT123BOL (r)4944 = C4H9CO3 (r) -1439 = C624OOH (r)3192 = OETHTOL (r)4945 = INANO3 (r) -1440 = CO3C5CO2H (r)3193 = OETOH (r) 4946 = C7DDCCO3 (r) -1441 = C72OOH (r)3194 = ISOPDO (r)4947 = C4MCO2O2 (r) -1442 = C512CO2H (r)3195 = TM123OLO (r)4948 = TM124MUCO3 (r) -1443 = PXYFUOOH (r)3196 = C6CO2OHOOH (r)4949 = HOIPRCO3 (r) -1444 = C143OOH (r)3197 = C5PAN19 (r)4950 = OXYBIPERO (r) -1445 = C45OOH (r)3198 = NMBOAOOH (r)4951 = BZFUONE (r) -1446 = C93OOH (r)3199 = TM123BPAN (r)4952 = TLFUONE (r) -1447 = C816CO3H (r)3200 = C9M3CO (r)4953 = C822CO3 (r) -1448 = HO3C5CO3H (r)3201 = C57AOOH (r)4954 = ACO3 (r) -1449 = ETOMEOOH (r)3202 = C3H7CHOOB (r)4955 = C518CO3 (r) -1450 = PTCTEC1OOH (r)3203 = MACRNBCO3H (r)4956 = C3H7CHOO (r) -1451 = OXYBPEROOH (r)3204 = C5PAN17 (r)4957 = C1H4C5CO3 (r) -1452 = NOETOL1OOH (r)3205 = C56OOH (r)4958 = HMVKANO3 (r) -1453 = NPETOL1OOH (r)3206 = MXYMUCPAN (r)4959 = PROL11MO2 (r) -1454 = C116CO3H (r)3207 = MIBKHO4OOH (r)4960 = C618O2 (r) -1455 = TM124NOOH (r)3208 = HO3C4OOH (r)4961 = C3M3OH2CHO (r) -1456 = OXYLCO3H (r)3209 = C5DBCOCO3H (r)4962 = HOC3H6CO3 (r) -1457 = INCNCO2H (r)3210 = IPGLOOB (r)4963 = CO2C3OO (r) -1458 = TM124BOOH (r)3211 = C47CO3H (r)4964 = BENZAL (r) -1459 = T124NNCOOH (r)3212 = H2M5C65NO3 (r)4965 = C6H5O (r) -1460 = C23O3MCO3H (r)3213 = C137CO (r)4966 = CO3H4CO3 (r) -1461 = C828CO3H (r)3214 = C6OTKETOOH (r)4967 = C78O2 (r) -1462 = PERPINONIC (r)3215 = HMACRO (r)4968 = MC4CODBCO3 (r) -1463 = C731OOH (r)3216 = HMACROOH (r)4969 = CO235C6CO3 (r) -1464 = IPMLNHYOOH (r)3217 = HIEB2OOH (r)4970 = C141CO2H (r) -1465 = TM135MUO3H (r)3218 = C8PAN1 (r)4971 = TM123MUCO2 (r) -1466 = PERIBUACID (r)3219 = DEMPHOH (r)4972 = C52NO31O2 (r) -1467 = IECCO3H (r)3220 = OXYLPAN (r)4973 = MEKAOH (r) -1468 = LIMCOOH (r)3221 = C7ADCPAN (r)4974 = M2PEBO2 (r) -1469 = M23C43OOH (r)3222 = MPRKBOOH (r)4975 = HO2C54CHO (r) -1470 = NOPINCOOH (r)3223 = C89PAN (r)4976 = C5HPALD1 (r) -1471 = CO2C4CO3H (r)3224 = C47PAN (r)4977 = C23O3ECO3 (r) -1472 = NDNPXYLOOH (r)3225 = C7DCCO3H (r)4978 = C827CHO (r) -1473 = METLMUCO3H (r)3226 = IC7DCCO3H (r)4979 = CO2C54CO3 (r) -1474 = COO2C3CO3H (r)3227 = TM124MUO2H (r)4980 = NEOPO2 (r) -1475 = HOC3H6CO3H (r)3228 = HC4CHO (r)4981 = TC4H9O2 (r) -1476 = EBENZOOH (r)3229 = PXYLPAN (r)4982 = C535O2 (r) -1477 = HM2C43CO3H (r)3230 = RGDCO2H (r)4983 = HCOCO3H (r) -1478 = CO1H63OOH (r)3231 = C5OHCO4OOH (r)4984 = C67CO3 (r) -1479 = C1011CO3H (r)3232 = TMBPAN (r)4985 = C4MCODBCO3 (r) -1480 = C830CO3H (r)3233 = CHOC2CO2H (r)4986 = C5CO14O2 (r) -1481 = PETLMUCO2H (r)3234 = HMVKAO (r)4987 = C926O2 (r) -1482 = HO24C5NO3 (r)3235 = NDEMPLOOH (r)4988 = BCARY (r) -1483 = MALNHYOHCO (r)3236 = INAHPAN (r)4989 = C136CO3 (r) -1484 = MXYLOOH (r)3237 = CO3H4CO3H (r)4990 = C54CO3 (r) -1485 = C134OOH (r)3238 = C715CO2OOH (r)4991 = CO23C54O2 (r) -1486 = TM124BPOOH (r)3239 = C6PAN16 (r)4992 = C8M2CO6O2 (r) -1487 = NORLIMOOH (r)3240 = C526NO3 (r)4993 = MC3CODBCO3 (r) -1488 = M2PEDOOH (r)3241 = ISOPBO (r)4994 = M2C43CO3 (r) -1489 = C89CO2H (r)3242 = C131CO (r)4995 = HO1C3O2 (r) -1490 = HO2C54OOH (r)3243 = MBOAOOH (r)4996 = C6CODIAL (r) -1491 = OCTOOH (r)3244 = DMEPHOH (r)4997 = PGLOO (r) -1492 = C915OOH (r)3245 = PROPOLNO3 (r)4998 = IPGLOO (r) -1493 = C825CO (r)3246 = TM135OLO (r)4999 = GAOO (r) -1494 = INB1NBCO2H (r)3247 = HCOCH2CO2H (r)5000 = IBUTALOH (r) -1495 = C6CO34OOH (r)3248 = CO12C4CHO (r)5001 = C3MDIALO2 (r) -1496 = C106OOH (r)3249 = C7DDCPAN (r)5002 = C5HPALD2 (r) -1497 = PXYQOOH (r)3250 = IEC2OOH (r)5003 = MMALNBCO3 (r) -1498 = C3COCCO3H (r)3251 = C7M3CO (r)5004 = CHOC2CO3 (r) -1499 = C68OOH (r)3252 = M3BUTAL2O (r)5005 = MMALNACO3 (r) -1500 = PERBUACID (r)3253 = NCRESOOH (r)5006 = C622CO3 (r) -1501 = M3HEXAOOH (r)3254 = ACRPAN (r)5007 = BUT2OLO2 (r) -1502 = NC1313OOH (r)3255 = C65O (r) 5008 = HO2C43CO3 (r) -1503 = METOLOOH (r)3256 = MBOBOOH (r)5009 = C4OHCHO (r) -1504 = DNPBNZLOOH (r)3257 = C31PAN (r)5010 = CO2MC5OH (r) -1505 = C1213OOH (r)3258 = TM135MUPAN (r)5011 = CO24C53O2 (r) -1506 = HO1MC5OOH (r)3259 = C62OOH (r)5012 = PROL1MCHO (r) -1507 = C827CO3H (r)3260 = C5PAN6 (r)5013 = ISOPANO3 (r) -1508 = DNPHENOOH (r)3261 = C534OOH (r)5014 = C126CO3 (r) -1509 = C1210CO3H (r)3262 = C8M3CO (r)5015 = INCO2 (r) -1510 = EBZMUCOOH (r)3263 = TM135BZOL (r)5016 = HMVKBO2 (r) -1511 = C731CO3H (r)3264 = TM124MUNO3 (r)5017 = C626CO3 (r) -1512 = ENCATECOOH (r)3265 = C53OH2OOH (r)5018 = ACCOMECHO (r) -1513 = TM135MUO2H (r)3266 = C52OH3OOH (r)5019 = H3C25C6O2 (r) -1514 = M2BKBOOH (r)3267 = HIEB1OOH (r)5020 = HMVKAO2 (r) -1515 = C5NO3O4OOH (r)3268 = ME3BU2OLO (r)5021 = C811CO3 (r) -1516 = BUT2CO3H (r)3269 = C4CHO2O (r)5022 = INDO2 (r) -1517 = NLIMALOOH (r)3270 = C823CO (r)5023 = HOCH2COCHO (r) -1518 = INAHPCO3H (r)3271 = PETLMUCNO3 (r)5024 = HMACR (r) -1519 = C831OOH (r)3272 = C57NO3CO3H (r)5025 = HC4ACO3 (r) -1520 = LIMAOH (r)3273 = C527NO3 (r)5026 = CO2C43CHO (r) -1521 = HO14C6 (r)3274 = C715OOH (r)5027 = C624CO3 (r) -1522 = C515OOH (r)3275 = C5PAN15 (r)5028 = BCLKAO2 (r) -1523 = C131OOH (r)3276 = HMACO3H (r)5029 = C96CO3 (r) -1524 = MTNCATCOOH (r)3277 = IPROPOLO2H (r)5030 = TM124BPRO (r) -1525 = PETLBPROOH (r)3278 = C4MCNO3OOH (r)5031 = C5CO234 (r) -1526 = C113OOH (r)3279 = NPETOLOOH (r)5032 = MIBKAO2 (r) -1527 = NC730OOH (r)3280 = MC3ODBCO3H (r)5033 = HC4CCO3 (r) -1528 = C514OOH (r)3281 = C62O (r) 5034 = C6DCARBBO2 (r) -1529 = MVKOHANO3 (r)3282 = C10PAN1 (r)5035 = C58AO2 (r) -1530 = MEBFUOOH (r)3283 = DEMPHOLO (r)5036 = MACRNBCO3 (r) -1531 = C54NO3 (r)3284 = C64O (r) 5037 = C4DBDIKET (r) -1532 = T123NCTOOH (r)3285 = BZEMUCNO3 (r)5038 = HCOCOHCO3 (r) -1533 = PXYBPEROOH (r)3286 = C527OOH (r)5039 = C147O2 (r) -1534 = C121OOH (r)3287 = C53OOH (r)5040 = MACRNOO (r) -1535 = OETLBPROOH (r)3288 = HEX3ONAOOH (r)5041 = C136O2 (r) -1536 = CO1C6OOH (r)3289 = C51OH2OOH (r)5042 = BUT2CHO (r) -1537 = TM124BCO3H (r)3290 = MC3CODBPAN (r)5043 = ME3BU2OLO2 (r) -1538 = C615OOH (r)3291 = C612OOH (r)5044 = C731CO3 (r) -1539 = PRCATC1OOH (r)3292 = OXYMUCPAN (r)5045 = M22C43O2 (r) -1540 = C88CO3H (r)3293 = C618PAN (r)5046 = H2O2 (r) -1541 = H3C2C4CO3H (r)3294 = ACO3H (r) 5047 = M3FOO (r) -1542 = TM123BOOH (r)3295 = NDMEPLOOH (r)5048 = BCAOO (r) -1543 = C123OOH (r)3296 = DMEPHOLO (r)5049 = HC3CHO (r) -1544 = C516OOH (r)3297 = C2H5CHOOB (r)5050 = NC3CHO (r) -1545 = HO3C4CO3H (r)3298 = M3CO25C6 (r)5051 = BUT1ENE (r) -1546 = C1012OOH (r)3299 = TBUTOLOOH (r)5052 = C1210CO3 (r) -1547 = HM33C3CO3H (r)3300 = C4MCODBPAN (r)5053 = MEKCO2 (r) -1548 = CO25C73OH (r)3301 = BUTAL2O (r)5054 = C519CO3 (r) -1549 = NOXYOLOH (r)3302 = BUTAL2NO3 (r)5055 = HO2C3CHO (r) -1550 = C1011CO (r)3303 = EMPHPAN (r)5056 = M2PEDO2 (r) -1551 = C1011NO3 (r)3304 = TM123MUNO3 (r)5057 = H2M2C3CHO (r) -1552 = HM22C3O (r)3305 = DM124O (r)5058 = MALDIAL (r) -1553 = ETHACETO (r)3306 = C9PAN1 (r)5059 = MALANHYO2 (r) -1554 = NPETOLOH (r)3307 = C9PAN2 (r)5060 = IBUTOLBO2 (r) -1555 = NMETOLOH (r)3308 = C6OH5OOH (r)5061 = M3PEBO2 (r) -1556 = C612O (r) 3309 = C515CHO (r)5062 = SC4H9O2 (r) -1557 = C78OH (r) 3310 = PROL11MOOH (r)5063 = H2M3C4CHO (r) -1558 = HVMK (r) 3311 = C6PAN13 (r)5064 = CO2M3C5OH (r) -1559 = HM23C4O (r)3312 = C6PAN15 (r)5065 = DDECO2 (r) -1560 = C826CO3OH (r)3313 = C1211PAN (r)5066 = C7DICARB (r) -1561 = C628OH (r)3314 = MIBKBOOH (r)5067 = HO3C3CHO (r) -1562 = C5NO3CO4OH (r)3315 = C23O3MCPAN (r)5068 = IC7DICARB (r) -1563 = HO3C6O (r)3316 = TM124MUPAN (r)5069 = NC4CHO (r) -1564 = HO2MC5O (r)3317 = PBZN (r) 5070 = EGLYOO (r) -1565 = APINBCO (r)3318 = TM124BPAN (r)5071 = HOIPRCHO (r) -1566 = CO25C6OH (r)3319 = NPBNZOLOOH (r)5072 = C617CHO (r) -1567 = NOETOLOH (r)3320 = NMXYOLOOH (r)5073 = C727CO3 (r) -1568 = IBUTOLCO (r)3321 = NOXYOLOOH (r)5074 = INB1O2 (r) -1569 = BCKOOB (r)3322 = METLMUCNO3 (r)5075 = C57NO3CO3 (r) -1570 = HOHOC4DIAL (r)3323 = C732PAN (r)5076 = MC5DICARB (r) -1571 = C84OH (r) 3324 = HMPAN (r) 5077 = M33C4O2 (r) -1572 = C719O (r) 3325 = MALDALCO3H (r)5078 = IPECO2 (r) -1573 = C3ME3CHO (r)3326 = MACRNCO3H (r)5079 = HM22CO3 (r) -1574 = MEKCO (r) 3327 = C721PAN (r)5080 = BIACETOH (r) -1575 = INAHPCHO (r)3328 = BUTONENO3 (r)5081 = CYHXONAO2 (r) -1576 = C9M2CO6OH (r)3329 = NDNEBNZLO (r)5082 = M22C4O2 (r) -1577 = IPEBOH (r)3330 = MACROOH (r)5083 = C729CHO (r) -1578 = C7BDCOH (r)3331 = MPHCOME (r)5084 = C626O2 (r) -1579 = C513O (r) 3332 = TM135BPRO (r)5085 = C517CHO (r) -1580 = DIETETHER (r)3333 = M22C43O (r)5086 = CO13C4CHO (r) -1581 = LIMBCO (r)3334 = MACRNCO2H (r)5087 = CH3CHOHCHO (r) -1582 = MIBKHO14 (r)3335 = NORLIMO (r)5088 = H3M3C5CO3 (r) -1583 = MC7CO2O (r)3336 = C65OOH (r)5089 = C5MDICARB (r) -1584 = MC7CO2OH (r)3337 = CO2C4GLYOX (r)5090 = HM33C3CO3 (r) -1585 = LIMALAOH (r)3338 = C925O (r) 5091 = C524O2 (r) -1586 = LMLKAOH (r)3339 = PXYMUCCO (r)5092 = BCBOO (r) -1587 = MIBKBOH (r)3340 = PXYMUCNO3 (r)5093 = MVKOH (r) -1588 = C615CO2OH (r)3341 = C62NO33CO (r)5094 = C3MDIALOH (r) -1589 = NTM135OLOH (r)3342 = BZBIPERO (r)5095 = C622CHO (r) -1590 = C1013CO (r)3343 = EMPHCOME (r)5096 = PE1ENEBO2 (r) -1591 = C1013NO3 (r)3344 = CHOOCH2O (r)5097 = MIPKBO2 (r) -1592 = MEKBO (r) 3345 = PETLMUCCO (r)5098 = MEKBO2 (r) -1593 = METHACETO (r)3346 = CO23C65O (r)5099 = C141CO3 (r) -1594 = NDMEPHOLOH (r)3347 = NDNPXYOLO (r)5100 = CO2H3CO3 (r) -1595 = MPRKAO (r)3348 = H3C25C5CHO (r)5101 = H2M2C3CO3 (r) -1596 = PECOH (r) 3349 = C66NO35CO (r)5102 = MGLOO (r) -1597 = ETHFORMO (r)3350 = H1CO23CHO (r)5103 = C7EDICARB (r) -1598 = C715CO2OH (r)3351 = ETHENO3O (r)5104 = C927O2 (r) -1599 = HEX3ONDOH (r)3352 = IPBZMUCCO (r)5105 = CO23C4CHO (r) -1600 = C7M2CO5OH (r)3353 = IPBZMUCNO3 (r)5106 = IPRCO3 (r) -1601 = C6CO3HO14 (r)3354 = C64NO335CO (r)5107 = DECO2 (r) -1602 = C4M2AL2OH (r)3355 = C515CO (r)5108 = HO3C76O2 (r) -1603 = INB1NACHO (r)3356 = EBZMUCCO (r)5109 = HEXBO2 (r) -1604 = C9DC (r) 3357 = EBZMUCNO3 (r)5110 = CO235C6 (r) -1605 = C822CO2 (r)3358 = CH3COPAN (r)5111 = CHOC3COCO3 (r) -1606 = PXYFUO (r)3359 = MXYMUCCO (r)5112 = NONO2 (r) -1607 = C69O (r) 3360 = MXYMUCNO3 (r)5113 = CO13C4OH (r) -1608 = C89CO2 (r)3361 = DNPBNZLO (r)5114 = C1210O2 (r) -1609 = C726CO3OH (r)3362 = NDNOETOLO (r)5115 = HO3C5CHO (r) -1610 = C7236CO (r)3363 = NDNT123LO (r)5116 = H2M3C4O2 (r) -1611 = BCALAOH (r)3364 = C4M2NO3ONE (r)5117 = C41CO3 (r) -1612 = BCALCOH (r)3365 = C87CO (r) 5118 = ISOPCO2 (r) -1613 = NEBNZOLOH (r)3366 = CO24C53OOH (r)5119 = H2M4C65O2 (r) -1614 = C1010O (r)3367 = HEX2ONBO (r)5120 = HO2C54O2 (r) -1615 = LMLKBOH (r)3368 = PHCOET (r)5121 = HYPROPO2 (r) -1616 = C52O (r) 3369 = MTBK (r) 5122 = C148O2 (r) -1617 = C731CO2 (r)3370 = NDNPHENO (r)5123 = C5DICARB (r) -1618 = C627OH (r)3371 = NDNMXYOLO (r)5124 = C2H4 (r) -1619 = BCLKCOH (r)3372 = TLOBIPEROH (r)5125 = C3H7CO3 (r) -1620 = C145O (r) 3373 = C118CO (r)5126 = C6DICARB (r) -1621 = C6NO3CO4OH (r)3374 = C133CO (r)5127 = C51O2 (r) -1622 = TMB2FUO (r)3375 = NDNCRESO (r)5128 = MACO3 (r) -1623 = C815CO2OH (r)3376 = C63NO32CO (r)5129 = TBUTOLO2 (r) -1624 = C136CO2 (r)3377 = PECO (r) 5130 = C829O2 (r) -1625 = INB1HPCHO (r)3378 = TLEMUCCO (r)5131 = C1011CO3 (r) -1626 = C41OH (r) 3379 = TLEMUCNO3 (r)5132 = ISOP34O2 (r) -1627 = HM22C4O (r)3380 = NIPBFUO (r)5133 = CONM2CO3 (r) -1628 = C126CO (r)3381 = NDNT124LO (r)5134 = C59O2 (r) -1629 = C126NO3 (r)3382 = HO3CO6C7 (r)5135 = HO5C6O2 (r) -1630 = C735OH (r)3383 = BUTALO (r)5136 = HO3C4CO3 (r) -1631 = C735O (r) 3384 = CO24M3C5 (r)5137 = CO3C4CO3 (r) -1632 = C714OH (r)3385 = MXYL1OOH (r)5138 = UDECO2 (r) -1633 = C712OH (r)3386 = NBUTOLBO (r)5139 = EGLYOX (r) -1634 = CH3O (r) 3387 = COHM2CO2H (r)5140 = HO1CO4C6 (r) -1635 = IC5H12 (r)3388 = NDNPETOLO (r)5141 = C7DDICARB (r) -1636 = C7M15CO2OH (r)3389 = CY6TRION (r)5142 = C2H5O2 (r) -1637 = C611OH (r)3390 = C816O (r) 5143 = CO3C4CHO (r) -1638 = DIEKAO (r)3391 = H13M3CO4C5 (r)5144 = OCTO2 (r) -1639 = HMVKNGLYOX (r)3392 = MMALNBPAN (r)5145 = IC3H7O2 (r) -1640 = C826CO3O (r)3393 = H2M2C65O (r)5146 = M2HEXAO2 (r) -1641 = M3PE (r) 3394 = CH3NO3 (r)5147 = IPEAO2 (r) -1642 = GAOOA (r) 3395 = IPNNCATCO (r)5148 = HO2M2C4O2 (r) -1643 = C818CO (r)3396 = NEBFUO (r)5149 = HO3C4O2 (r) -1644 = C42OH (r) 3397 = C736CO (r)5150 = HO2C4O2 (r) -1645 = MXYL1O (r)3398 = NOPINAO (r)5151 = CO2C54O2 (r) -1646 = HO14CO3C5 (r)3399 = C51NO32CO (r)5152 = NO3CH2CO3 (r) -1647 = NTM123OLOH (r)3400 = TL4OHNO2O (r)5153 = C4H6 (r) -1648 = C830CO (r)3401 = COHM2PAN (r)5154 = INB2O2 (r) -1649 = C830NO3 (r)3402 = NDNOXYOLO (r)5155 = MACRNCO3 (r) -1650 = C6CO3OH5O (r)3403 = DETLBIPRO (r)5156 = MGLYOO (r) -1651 = INDHPCHO (r)3404 = IPEBO (r) 5157 = CO24C6 (r) -1652 = C617O (r) 3405 = EOX2EOLBO (r)5158 = CO2C3CO3 (r) -1653 = EIPKAOH (r)3406 = TM124NO2O (r)5159 = C716OH (r) -1654 = EIPKAO (r)3407 = NBZFUO (r)5160 = CH3COCH3 (r) -1655 = HO14CO2C5 (r)3408 = C6COCHOPAN (r)5161 = DIEKBO2 (r) -1656 = C116CO (r)3409 = C53NO32CO (r)5162 = C5H11CHO (r) -1657 = C116NO3 (r)3410 = C516O (r) 5163 = PEAO2 (r) -1658 = C53OH (r) 3411 = METLMUCCO (r)5164 = HO2C3CO3 (r) -1659 = C66OH (r) 3412 = DMPHCOME (r)5165 = C4H9CHO (r) -1660 = C1012CO (r)3413 = ISOPAOH (r)5166 = C5H8 (r) -1661 = ISOPCO (r)3414 = DNIPBNZLO (r)5167 = C58NO3CO3 (r) -1662 = IC3H7O (r)3415 = C6DIALO (r)5168 = ISOPCNO3 (r) -1663 = HM33C4O (r)3416 = BZEMUCCO (r)5169 = LIMAL (r) -1664 = NMXYOLOH (r)3417 = NDNMETOLO (r)5170 = GLYOO (r) -1665 = C8M2CO6OH (r)3418 = C52NO33CO (r)5171 = CO23C4CO3 (r) -1666 = MPHCOMEOH (r)3419 = C4ECO2O (r)5172 = CH3COCO3 (r) -1667 = HO2C5O (r)3420 = C128CO (r)5173 = INAO2 (r) -1668 = BCLKAOH (r)3421 = PNNCATECO (r)5174 = C57O2 (r) -1669 = NTM124OLOH (r)3422 = ME2BU2OLO (r)5175 = LIMKET (r) -1670 = C4COMOH3OH (r)3423 = NPBFUO (r)5176 = LMLKET (r) -1671 = MIBKOH34 (r)3424 = C831O (r) 5177 = HMVKBCHO (r) -1672 = NPBNZOLOH (r)3425 = C143O (r) 5178 = MEK (r) -1673 = CYHXONAOH (r)3426 = PBZMUCCO (r)5179 = CO2C4CO3 (r) -1674 = C124OH (r)3427 = PBZMUCNO3 (r)5180 = NO3CH2CHO (r) -1675 = TLFUO (r) 3428 = IEPOXB (r)5181 = CHEXO2 (r) -1676 = C926OH (r)3429 = SC4H9O (r)5182 = HCOCH2CHO (r) -1677 = C611O (r) 3430 = C624O (r) 5183 = C2H5CO3 (r) -1678 = C521OH (r)3431 = C630CO (r)5184 = HOC2H4CHO (r) -1679 = HO1C3O (r)3432 = C4M3NO3ONE (r)5185 = HO3C5O2 (r) -1680 = TMB1FUO (r)3433 = TM124MUCCO (r)5186 = HEXCO2 (r) -1681 = MC52CO2OH (r)3434 = C23O3EHO (r)5187 = C624CHO (r) -1682 = HMAC (r) 3435 = OXYBIPENO3 (r)5188 = ACETOL (r) -1683 = HNMVKOH (r)3436 = C727PAN (r)5189 = C518CHO (r) -1684 = C59O (r) 3437 = C7ADICARB (r)5190 = PENT1ENE (r) -1685 = INAHCHO (r)3438 = TM135MUNO3 (r)5191 = C2H5CHO (r) -1686 = NPROPOL (r)3439 = PHIC3NO3 (r)5192 = PEBO2 (r) -1687 = BCLKBOH (r)3440 = PHIC3O (r)5193 = CH3CHO (r) -1688 = M22C4 (r) 3441 = C4ECO2OOH (r)5194 = ACR (r) -1689 = C926O (r) 3442 = DM23BU2ENE (r)5195 = HOCH2CH2O2 (r) -1690 = CO25C74OH (r)3443 = C58ANO3 (r)5196 = C817O2 (r) -1691 = C628O (r) 3444 = ME2BUOLOOH (r)5197 = BIACETO2 (r) -1692 = HO2M2C5O (r)3445 = OETLBIPNO3 (r)5198 = C96O2 (r) -1693 = EIPKBOH (r)3446 = MALDIALOOH (r)5199 = CO23C3CHO (r) -1694 = M2BKBOH (r)3447 = C813NO3 (r)5200 = C3H6 (r) -1695 = NC3H7O (r)3448 = MACO3H (r)5201 = HNO3 (r) -1696 = C619CO (r)3449 = HPC52OOH (r)5202 = IPROPOLO2 (r) -1697 = NBUTOL (r)3450 = C4MCO2OH (r)5203 = IPRCHO (r) -1698 = C5DIALOH (r)3451 = C7M6CO2OOH (r)5204 = CISOPCO2 (r) -1699 = HEX2ONCO (r)3452 = C7CO2M5OOH (r)5205 = HC4ACHO (r) -1700 = NPXYOLOH (r)3453 = C6DICAROOH (r)5206 = C141O2 (r) -1701 = IBUTOL (r)3454 = IECCHO (r)5207 = C126CHO (r) -1702 = IBUTALBO (r)3455 = DMKOHOOH (r)5208 = NC4H9O2 (r) -1703 = BENZENE (r)3456 = PXYL1O (r)5209 = C4MDIAL (r) -1704 = HEX3ONAOH (r)3457 = DMEBMUNO3 (r)5210 = CO2H3CHO (r) -1705 = C6CO3HO25 (r)3458 = C6DCRBBOOH (r)5211 = CO2C4CHO (r) -1706 = LMKBCO (r)3459 = C42OOH (r)5212 = NORLIMAL (r) -1707 = C94OH (r) 3460 = DETLMUNO3 (r)5213 = PINAL (r) -1708 = NC5H12 (r)3461 = EMPHO (r) 5214 = HCOCH2CO3 (r) -1709 = NC6H14 (r)3462 = MACROHOOH (r)5215 = NOPINONE (r) -1710 = MC6OTKETO (r)3463 = C4MOHOCO3H (r)5216 = HCOCO3 (r) -1711 = C6CO3HO4 (r)3464 = DHPMVK (r)5217 = CISOPAO2 (r) -1712 = C6CO34 (r)3465 = CBUT2ENE (r)5218 = ISOPAO2 (r) -1713 = MXYFUO (r)3466 = TBUT2ENE (r)5219 = ISOPBO2 (r) -1714 = M2BKBO (r)3467 = C5O5OHCO3H (r)5220 = HC4CCHO (r) -1715 = IC4H9O (r)3468 = C6M5CO2OOH (r)5221 = MACRNO3 (r) -1716 = EMPHCOMOH (r)3469 = MC6CO2OOH (r)5222 = MGLYOX (r) -1717 = NIPBNZOLOH (r)3470 = IEACHO (r)5223 = CH2OO (r) -1718 = LIMALBOH (r)3471 = CO2M3C4CHO (r)5224 = ISOPDO2 (r) -1719 = CO2HO4C6 (r)3472 = EOX2EOL (r)5225 = MVKNO3 (r) -1720 = HO1C4O (r)3473 = C6HOCOOOH (r)5226 = MACR (r) -1721 = H2MC5O (r)3474 = DMPHO (r) 5227 = MVK (r) -1722 = C713OH (r)3475 = C4CODBCO3H (r)5228 = CH3O2 (r) -1723 = C713O (r) 3476 = CO2H3CO3H (r)5229 = NC3H7O2 (r) -1724 = C930O (r) 3477 = MMALNBCO2H (r)5230 = C3H7CHO (r) -1725 = C4CHOBO (r)3478 = NC4DCO2H (r)5231 = HCHO (r) -1726 = DMK2OH (r)3479 = CH2OOC (r)5232 = HOCH2CO3 (r) -1727 = OXYFUO (r)3480 = C629OOH (r)5233 = GLYOX (r) -1728 = METHCOACET (r)3481 = C6H5C2H4O2 (r)5234 = HOCH2CHO (r) -1729 = NDEMPHOLOH (r)3482 = T123CATECH (r)5235 = HCOCH2O2 (r) -1730 = IPEAOH (r)3483 = H3NCO2CHO (r)5236 = C923O2 (r) -1731 = C818OH (r)3484 = C54CO (r) 5237 = HOC2H4CO3 (r) -1732 = C620O (r) 3485 = INDOOH (r)5238 = CL (r) -1733 = C2H5OH (r)3486 = TM123MUCCO (r)5239 = C3ME3CHOO2 (r) -1734 = C514CO23OH (r)3487 = TM124MUO3H (r)5240 = C116CHO (r) -1735 = DMPHCOMOH (r)3488 = VGLYOX (r)5241 = CH3COCH2O2 (r) -1736 = BCBCO (r) 3489 = PETOLO2 (r)5242 = CO2C3CHO (r) -1737 = HEX3ONCO (r)3490 = NC524O (r)5243 = IPRHOCO3 (r) -1738 = BCKBCO (r)3491 = OXYOLO2 (r)5244 = CH3CO3 (r) -1739 = C1210CO2 (r)3492 = TMBO2 (r) 5245 = C928CO3 (r) -1740 = C114OH (r)3493 = C113CO (r)5246 = MEKAO2 (r) -1741 = NEOPO (r) 3494 = T124CATECH (r)5247 = C132O2 (r) -1742 = BCALBOH (r)3495 = C520OOH (r)5248 = BCLKET (r) -1743 = ACETC2H4O (r)3496 = CH2CHCH2O2 (r)5249 = BCKET (r) -1744 = C104OH (r)3497 = C143CO (r)5250 = OH (r) -1745 = MEBFUO (r)3498 = CO23C6 (r)5251 = CO (r) -1746 = BCOOB (r) 3499 = METCATECH (r)5252 = NO (r) -1747 = NCRESOH (r)3500 = MMALNACO2H (r)5253 = NO2 (r) -1748 = INB1O (r) 3501 = C526OOH (r)5254 = SO2 (r) -1749 = C2H5NO3 (r)3502 = CONM2CO3H (r)5255 = HO2 (r) -1750 = C2H5O (r) 3503 = OETOLO2 (r)5256 = NO3 (r) -1751 = M3PEAOOH (r)3504 = HO3CO46C8 (r)5257 = BCAL (r) -1752 = C143NO3 (r)3505 = HEX2ONE (r)5258 = O3 (r) -1753 = M3PEBOOH (r)3506 = OETCATECH (r) - -Fixed species - 1 = H2O (r) 2 = M (r) - -### Subroutines --------------------------------------- - -SUBROUTINE Fun ( V, F, RCT, Vdot ) -SUBROUTINE Jac_SP ( V, F, RCT, JVS ) -SUBROUTINE Jac_SP_Vec ( JVS, UV, JUV ) -SUBROUTINE JacTR_SP_Vec ( JVS, UV, JTUV ) -SUBROUTINE KppSolve ( JVS, X ) -SUBROUTINE KppSolveTR ( JVS, X, XX ) -SUBROUTINE Initialize ( ) -SUBROUTINE Shuffle_user2kpp ( V_USER, V ) -SUBROUTINE Shuffle_kpp2user ( V, V_USER ) -SUBROUTINE Update_RCONST ( ) -SUBROUTINE Update_PHOTO ( ) -SUBROUTINE GetMass ( CL, Mass ) -SUBROUTINE ReactantProd ( V, F, ARP ) -SUBROUTINE JacReactantProd ( V, F, JVRP ) diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Function.f90 b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Function.f90 deleted file mode 100644 index bf52a90c775d29e01f1ee80c9ce51b2a6d4ec739..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Function.f90 +++ /dev/null @@ -1,22410 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The ODE Function of Chemical Model File -! -! Generated by KPP-2.2.3 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 : MCMv3_3_Function.f90 -! Time : Mon Jul 19 14:16:06 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MCMv3_3_3654_BOXMOX -! Equation file : MCMv3_3.kpp -! Output root filename : MCMv3_3 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MCMv3_3_Function - - USE MCMv3_3_Parameters - IMPLICIT NONE - -! A - Rate for each equation - REAL(kind=dp) :: A(NREACT) - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Fun - time derivatives of variables - Agregate form -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! RCT - Rate constants (local) -! Vdot - Time derivative of variable species concentrations -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Fun ( V, F, RCT, Vdot ) - -! 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) -! Vdot - Time derivative of variable species concentrations - REAL(kind=dp) :: Vdot(NVAR) - - -! Computation of equation rates - A(2) = RCT(2)*V(3568) - A(3) = RCT(3)*V(3568)*V(5258) - A(4) = RCT(4)*V(3568)*V(5252) - A(5) = RCT(5)*V(3568)*V(5253) - A(6) = RCT(6)*V(3568)*V(5253) - A(7) = RCT(7)*V(4) - A(8) = RCT(8)*V(5252)*V(5258) - A(9) = RCT(9)*V(5253)*V(5258) - A(10) = RCT(10)*V(5252)*V(5252) - A(11) = RCT(11)*V(5252)*V(5256) - A(12) = RCT(12)*V(5253)*V(5256) - A(13) = RCT(13)*V(5253)*V(5256) - A(14) = RCT(14)*V(4) - A(15) = RCT(15)*V(5250)*V(5258) - A(16) = RCT(16)*V(260)*V(5250) - A(17) = RCT(17)*V(5250)*V(5251) - A(18) = RCT(18)*V(5046)*V(5250) - A(19) = RCT(19)*V(5255)*V(5258) - A(20) = RCT(20)*V(5250)*V(5255) - A(21) = RCT(21)*V(5255)*V(5255) - A(22) = RCT(22)*V(5250)*V(5252) - A(23) = RCT(23)*V(5250)*V(5253) - A(24) = RCT(24)*V(5250)*V(5256) - A(25) = RCT(25)*V(5252)*V(5255) - A(26) = RCT(26)*V(5253)*V(5255) - A(27) = RCT(27)*V(925)*V(5250) - A(28) = RCT(28)*V(5255)*V(5256) - A(29) = RCT(29)*V(337)*V(5250) - A(30) = RCT(30)*V(5201)*V(5250) - A(31) = RCT(31)*V(3568)*V(5254) - A(32) = RCT(32)*V(5250)*V(5254) - A(33) = RCT(33)*V(5) - A(34) = RCT(34)*V(5201) - A(35) = RCT(35)*V(137) - A(36) = RCT(36)*V(3) - A(37) = RCT(37)*V(5258) - A(38) = RCT(38)*V(5258) - A(39) = RCT(39)*V(5046) - A(40) = RCT(40)*V(5253) - A(41) = RCT(41)*V(5256) - A(42) = RCT(42)*V(5256) - A(43) = RCT(43)*V(337) - A(44) = RCT(44)*V(5201) - A(45) = RCT(45)*V(137) - A(46) = RCT(46)*V(925) - A(47) = RCT(47)*V(1068)*V(5250) - A(48) = RCT(48)*V(1733)*V(5250) - A(49) = RCT(49)*V(1733)*V(5250) - A(50) = RCT(50)*V(1733)*V(5250) - A(51) = RCT(51)*V(1686)*V(5250) - A(52) = RCT(52)*V(1686)*V(5250) - A(53) = RCT(53)*V(1686)*V(5250) - A(54) = RCT(54)*V(3083)*V(5250) - A(55) = RCT(55)*V(3083)*V(5250) - A(56) = RCT(56)*V(1697)*V(5250) - A(57) = RCT(57)*V(1697)*V(5250) - A(58) = RCT(58)*V(1697)*V(5250) - A(59) = RCT(59)*V(757)*V(5250) - A(60) = RCT(60)*V(757)*V(5250) - A(61) = RCT(61)*V(1701)*V(5250) - A(62) = RCT(62)*V(1701)*V(5250) - A(63) = RCT(63)*V(1701)*V(5250) - A(64) = RCT(64)*V(298)*V(5250) - A(65) = RCT(65)*V(298)*V(5250) - A(66) = RCT(66)*V(1596)*V(5250) - A(67) = RCT(67)*V(1596)*V(5250) - A(68) = RCT(68)*V(1596)*V(5250) - A(69) = RCT(69)*V(1730)*V(5250) - A(70) = RCT(70)*V(1730)*V(5250) - A(71) = RCT(71)*V(1730)*V(5250) - A(72) = RCT(72)*V(181)*V(5250) - A(73) = RCT(73)*V(181)*V(5250) - A(74) = RCT(74)*V(181)*V(5250) - A(75) = RCT(75)*V(806)*V(5250) - A(76) = RCT(76)*V(806)*V(5250) - A(77) = RCT(77)*V(806)*V(5250) - A(78) = RCT(78)*V(1577)*V(5250) - A(79) = RCT(79)*V(1577)*V(5250) - A(80) = RCT(80)*V(1577)*V(5250) - A(81) = RCT(81)*V(598)*V(5250) - A(82) = RCT(82)*V(598)*V(5250) - A(83) = RCT(83)*V(2118)*V(5250) - A(84) = RCT(84)*V(2118)*V(5250) - A(85) = RCT(85)*V(2118)*V(5250) - A(86) = RCT(86)*V(2118) - A(87) = RCT(87)*V(249)*V(5250) - A(88) = RCT(88)*V(2421)*V(5250) - A(89) = RCT(89)*V(2421)*V(5250) - A(90) = RCT(90)*V(4555)*V(5256) - A(91) = RCT(91)*V(4555)*V(5256) - A(92) = RCT(92)*V(4555)*V(5258) - A(93) = RCT(93)*V(4555)*V(5258) - A(94) = RCT(94)*V(4555)*V(5250) - A(95) = RCT(95)*V(4555)*V(5250) - A(96) = RCT(96)*V(5231) - A(97) = RCT(97)*V(5231) - A(98) = RCT(98)*V(5231)*V(5256) - A(99) = RCT(99)*V(5231)*V(5250) - A(100) = RCT(100)*V(5193) - A(101) = RCT(101)*V(5193)*V(5256) - A(102) = RCT(102)*V(5193)*V(5250) - A(103) = RCT(103)*V(5193)*V(5250) - A(104) = RCT(104)*V(5191)*V(5256) - A(105) = RCT(105)*V(5191)*V(5250) - A(106) = RCT(106)*V(5191) - A(107) = RCT(107)*V(5230)*V(5256) - A(108) = RCT(108)*V(5230)*V(5250) - A(109) = RCT(109)*V(5230)*V(5250) - A(110) = RCT(110)*V(5230) - A(111) = RCT(111)*V(5230) - A(112) = RCT(112)*V(5203)*V(5256) - A(113) = RCT(113)*V(5203)*V(5250) - A(114) = RCT(114)*V(5203)*V(5250) - A(115) = RCT(115)*V(5203)*V(5250) - A(116) = RCT(116)*V(5203) - A(117) = RCT(117)*V(5165)*V(5256) - A(118) = RCT(118)*V(5165)*V(5250) - A(119) = RCT(119)*V(5165)*V(5250) - A(120) = RCT(120)*V(5165) - A(121) = RCT(121)*V(5194)*V(5256) - A(122) = RCT(122)*V(5194)*V(5250) - A(123) = RCT(123)*V(5194)*V(5250) - A(124) = RCT(124)*V(5194)*V(5250) - A(125) = RCT(125)*V(5194) - A(126) = RCT(126)*V(5194) - A(127) = RCT(127)*V(5194) - A(128) = RCT(128)*V(5194)*V(5258) - A(129) = RCT(129)*V(5194)*V(5258) - A(130) = RCT(130)*V(5226) - A(131) = RCT(131)*V(5226) - A(132) = RCT(132)*V(5226)*V(5256) - A(133) = RCT(133)*V(5226)*V(5258) - A(134) = RCT(134)*V(5226)*V(5258) - A(135) = RCT(135)*V(5226)*V(5250) - A(136) = RCT(136)*V(5226)*V(5250) - A(137) = RCT(137)*V(5226)*V(5250) - A(138) = RCT(138)*V(4840)*V(5256) - A(139) = RCT(139)*V(4840)*V(5256) - A(140) = RCT(140)*V(4840)*V(5256) - A(141) = RCT(141)*V(4840)*V(5258) - A(142) = RCT(142)*V(4840)*V(5258) - A(143) = RCT(143)*V(4840)*V(5250) - A(144) = RCT(144)*V(4840)*V(5250) - A(145) = RCT(145)*V(4840)*V(5250) - A(146) = RCT(146)*V(4840) - A(147) = RCT(147)*V(2914)*V(5238) - A(148) = RCT(148)*V(2914)*V(5250) - A(149) = RCT(149)*V(2973)*V(5238) - A(150) = RCT(150)*V(2973)*V(5250) - A(151) = RCT(151)*V(3651)*V(5238) - A(152) = RCT(152)*V(3651)*V(5238) - A(153) = RCT(153)*V(3651)*V(5250) - A(154) = RCT(154)*V(3651)*V(5250) - A(155) = RCT(155)*V(1817)*V(5238) - A(156) = RCT(156)*V(1817)*V(5238) - A(157) = RCT(157)*V(1817)*V(5250) - A(158) = RCT(158)*V(1817)*V(5250) - A(159) = RCT(159)*V(601)*V(5238) - A(160) = RCT(160)*V(601)*V(5238) - A(161) = RCT(161)*V(601)*V(5250) - A(162) = RCT(162)*V(601)*V(5250) - A(163) = RCT(163)*V(1708)*V(5238) - A(164) = RCT(164)*V(1708)*V(5238) - A(165) = RCT(165)*V(1708)*V(5238) - A(166) = RCT(166)*V(1708)*V(5250) - A(167) = RCT(167)*V(1708)*V(5250) - A(168) = RCT(168)*V(1708)*V(5250) - A(169) = RCT(169)*V(1635)*V(5238) - A(170) = RCT(170)*V(1635)*V(5238) - A(171) = RCT(171)*V(1635)*V(5238) - A(172) = RCT(172)*V(1635)*V(5250) - A(173) = RCT(173)*V(1635)*V(5250) - A(174) = RCT(174)*V(1635)*V(5250) - A(175) = RCT(175)*V(288)*V(5238) - A(176) = RCT(176)*V(288)*V(5250) - A(177) = RCT(177)*V(1709)*V(5238) - A(178) = RCT(178)*V(1709)*V(5238) - A(179) = RCT(179)*V(1709)*V(5238) - A(180) = RCT(180)*V(1709)*V(5250) - A(181) = RCT(181)*V(1709)*V(5250) - A(182) = RCT(182)*V(1709)*V(5250) - A(183) = RCT(183)*V(2385)*V(5238) - A(184) = RCT(184)*V(2385)*V(5238) - A(185) = RCT(185)*V(2385)*V(5238) - A(186) = RCT(186)*V(2385)*V(5238) - A(187) = RCT(187)*V(2385)*V(5250) - A(188) = RCT(188)*V(2385)*V(5250) - A(189) = RCT(189)*V(2385)*V(5250) - A(190) = RCT(190)*V(2385)*V(5250) - A(191) = RCT(191)*V(1641)*V(5238) - A(192) = RCT(192)*V(1641)*V(5238) - A(193) = RCT(193)*V(1641)*V(5238) - A(194) = RCT(194)*V(1641)*V(5250) - A(195) = RCT(195)*V(1641)*V(5250) - A(196) = RCT(196)*V(1641)*V(5250) - A(197) = RCT(197)*V(1688)*V(5238) - A(198) = RCT(198)*V(1688)*V(5238) - A(199) = RCT(199)*V(1688)*V(5238) - A(200) = RCT(200)*V(1688)*V(5250) - A(201) = RCT(201)*V(1688)*V(5250) - A(202) = RCT(202)*V(1688)*V(5250) - A(203) = RCT(203)*V(566)*V(5238) - A(204) = RCT(204)*V(566)*V(5238) - A(205) = RCT(205)*V(566)*V(5250) - A(206) = RCT(206)*V(566)*V(5250) - A(207) = RCT(207)*V(447)*V(5238) - A(208) = RCT(208)*V(447)*V(5250) - A(209) = RCT(209)*V(588)*V(5238) - A(210) = RCT(210)*V(588)*V(5238) - A(211) = RCT(211)*V(588)*V(5250) - A(212) = RCT(212)*V(588)*V(5250) - A(213) = RCT(213)*V(548)*V(5238) - A(214) = RCT(214)*V(548)*V(5238) - A(215) = RCT(215)*V(548)*V(5250) - A(216) = RCT(216)*V(548)*V(5250) - A(217) = RCT(217)*V(221)*V(5238) - A(218) = RCT(218)*V(221)*V(5250) - A(219) = RCT(219)*V(270)*V(5238) - A(220) = RCT(220)*V(270)*V(5250) - A(221) = RCT(221)*V(342)*V(5238) - A(222) = RCT(222)*V(342)*V(5250) - A(223) = RCT(223)*V(426)*V(5238) - A(224) = RCT(224)*V(426)*V(5250) - A(225) = RCT(225)*V(253)*V(5238) - A(226) = RCT(226)*V(253)*V(5250) - A(227) = RCT(227)*V(235)*V(5238) - A(228) = RCT(228)*V(235)*V(5250) - A(229) = RCT(229)*V(5124)*V(5256) - A(230) = RCT(230)*V(5124)*V(5258) - A(231) = RCT(231)*V(5124)*V(5250) - A(232) = RCT(232)*V(5200)*V(5256) - A(233) = RCT(233)*V(5200)*V(5256) - A(234) = RCT(234)*V(5200)*V(5258) - A(235) = RCT(235)*V(5200)*V(5258) - A(236) = RCT(236)*V(5200)*V(5250) - A(237) = RCT(237)*V(5200)*V(5250) - A(238) = RCT(238)*V(5051)*V(5256) - A(239) = RCT(239)*V(5051)*V(5256) - A(240) = RCT(240)*V(5051)*V(5258) - A(241) = RCT(241)*V(5051)*V(5258) - A(242) = RCT(242)*V(5051)*V(5250) - A(243) = RCT(243)*V(5051)*V(5250) - A(244) = RCT(244)*V(3465)*V(5256) - A(245) = RCT(245)*V(3465)*V(5258) - A(246) = RCT(246)*V(3465)*V(5250) - A(247) = RCT(247)*V(3466)*V(5256) - A(248) = RCT(248)*V(3466)*V(5258) - A(249) = RCT(249)*V(3466)*V(5250) - A(250) = RCT(250)*V(4512)*V(5256) - A(251) = RCT(251)*V(4512)*V(5256) - A(252) = RCT(252)*V(4512)*V(5258) - A(253) = RCT(253)*V(4512)*V(5258) - A(254) = RCT(254)*V(4512)*V(5250) - A(255) = RCT(255)*V(4512)*V(5250) - A(256) = RCT(256)*V(5190)*V(5256) - A(257) = RCT(257)*V(5190)*V(5256) - A(258) = RCT(258)*V(5190)*V(5258) - A(259) = RCT(259)*V(5190)*V(5258) - A(260) = RCT(260)*V(5190)*V(5250) - A(261) = RCT(261)*V(5190)*V(5250) - A(262) = RCT(262)*V(4332)*V(5256) - A(263) = RCT(263)*V(4332)*V(5256) - A(264) = RCT(264)*V(4332)*V(5258) - A(265) = RCT(265)*V(4332)*V(5258) - A(266) = RCT(266)*V(4332)*V(5250) - A(267) = RCT(267)*V(4332)*V(5250) - A(268) = RCT(268)*V(4475)*V(5256) - A(269) = RCT(269)*V(4475)*V(5256) - A(270) = RCT(270)*V(4475)*V(5258) - A(271) = RCT(271)*V(4475)*V(5258) - A(272) = RCT(272)*V(4475)*V(5250) - A(273) = RCT(273)*V(4475)*V(5250) - A(274) = RCT(274)*V(4601)*V(5256) - A(275) = RCT(275)*V(4601)*V(5256) - A(276) = RCT(276)*V(4601)*V(5258) - A(277) = RCT(277)*V(4601)*V(5258) - A(278) = RCT(278)*V(4601)*V(5250) - A(279) = RCT(279)*V(4601)*V(5250) - A(280) = RCT(280)*V(4508)*V(5256) - A(281) = RCT(281)*V(4508)*V(5256) - A(282) = RCT(282)*V(4508)*V(5258) - A(283) = RCT(283)*V(4508)*V(5258) - A(284) = RCT(284)*V(4508)*V(5250) - A(285) = RCT(285)*V(4508)*V(5250) - A(286) = RCT(286)*V(4474)*V(5256) - A(287) = RCT(287)*V(4474)*V(5256) - A(288) = RCT(288)*V(4474)*V(5258) - A(289) = RCT(289)*V(4474)*V(5258) - A(290) = RCT(290)*V(4474)*V(5250) - A(291) = RCT(291)*V(4474)*V(5250) - A(292) = RCT(292)*V(4527)*V(5256) - A(293) = RCT(293)*V(4527)*V(5256) - A(294) = RCT(294)*V(4527)*V(5258) - A(295) = RCT(295)*V(4527)*V(5258) - A(296) = RCT(296)*V(4527)*V(5250) - A(297) = RCT(297)*V(4527)*V(5250) - A(298) = RCT(298)*V(4604)*V(5256) - A(299) = RCT(299)*V(4604)*V(5256) - A(300) = RCT(300)*V(4604)*V(5258) - A(301) = RCT(301)*V(4604)*V(5258) - A(302) = RCT(302)*V(4604)*V(5250) - A(303) = RCT(303)*V(4604)*V(5250) - A(304) = RCT(304)*V(4606)*V(5256) - A(305) = RCT(305)*V(4606)*V(5256) - A(306) = RCT(306)*V(4606)*V(5258) - A(307) = RCT(307)*V(4606)*V(5258) - A(308) = RCT(308)*V(4606)*V(5250) - A(309) = RCT(309)*V(4606)*V(5250) - A(310) = RCT(310)*V(3442)*V(5256) - A(311) = RCT(311)*V(3442)*V(5258) - A(312) = RCT(312)*V(3442)*V(5250) - A(313) = RCT(313)*V(198)*V(5250) - A(314) = RCT(314)*V(198)*V(5250) - A(315) = RCT(315)*V(1703)*V(5250) - A(316) = RCT(316)*V(1703)*V(5250) - A(317) = RCT(317)*V(1703)*V(5250) - A(318) = RCT(318)*V(250)*V(5250) - A(319) = RCT(319)*V(250)*V(5250) - A(320) = RCT(320)*V(250)*V(5250) - A(321) = RCT(321)*V(250)*V(5250) - A(322) = RCT(322)*V(3145)*V(5256) - A(323) = RCT(323)*V(3145)*V(5250) - A(324) = RCT(324)*V(3145)*V(5250) - A(325) = RCT(325)*V(3145)*V(5250) - A(326) = RCT(326)*V(3145)*V(5250) - A(327) = RCT(327)*V(3096)*V(5256) - A(328) = RCT(328)*V(3096)*V(5250) - A(329) = RCT(329)*V(3096)*V(5250) - A(330) = RCT(330)*V(3096)*V(5250) - A(331) = RCT(331)*V(3096)*V(5250) - A(332) = RCT(332)*V(3134)*V(5256) - A(333) = RCT(333)*V(3134)*V(5250) - A(334) = RCT(334)*V(3134)*V(5250) - A(335) = RCT(335)*V(3134)*V(5250) - A(336) = RCT(336)*V(3134)*V(5250) - A(337) = RCT(337)*V(3105)*V(5256) - A(338) = RCT(338)*V(3105)*V(5250) - A(339) = RCT(339)*V(3105)*V(5250) - A(340) = RCT(340)*V(3105)*V(5250) - A(341) = RCT(341)*V(3105)*V(5250) - A(342) = RCT(342)*V(3144)*V(5256) - A(343) = RCT(343)*V(3144)*V(5250) - A(344) = RCT(344)*V(3144)*V(5250) - A(345) = RCT(345)*V(3144)*V(5250) - A(346) = RCT(346)*V(3144)*V(5250) - A(347) = RCT(347)*V(3084)*V(5256) - A(348) = RCT(348)*V(3084)*V(5250) - A(349) = RCT(349)*V(3084)*V(5250) - A(350) = RCT(350)*V(3084)*V(5250) - A(351) = RCT(351)*V(3084)*V(5250) - A(352) = RCT(352)*V(3179)*V(5256) - A(353) = RCT(353)*V(3179)*V(5250) - A(354) = RCT(354)*V(3179)*V(5250) - A(355) = RCT(355)*V(3179)*V(5250) - A(356) = RCT(356)*V(3179)*V(5250) - A(357) = RCT(357)*V(3138)*V(5256) - A(358) = RCT(358)*V(3138)*V(5250) - A(359) = RCT(359)*V(3138)*V(5250) - A(360) = RCT(360)*V(3138)*V(5250) - A(361) = RCT(361)*V(3138)*V(5250) - A(362) = RCT(362)*V(3097)*V(5256) - A(363) = RCT(363)*V(3097)*V(5250) - A(364) = RCT(364)*V(3097)*V(5250) - A(365) = RCT(365)*V(3097)*V(5250) - A(366) = RCT(366)*V(3097)*V(5250) - A(367) = RCT(367)*V(3192)*V(5256) - A(368) = RCT(368)*V(3192)*V(5250) - A(369) = RCT(369)*V(3192)*V(5250) - A(370) = RCT(370)*V(3192)*V(5250) - A(371) = RCT(371)*V(3192)*V(5250) - A(372) = RCT(372)*V(3113)*V(5256) - A(373) = RCT(373)*V(3113)*V(5250) - A(374) = RCT(374)*V(3113)*V(5250) - A(375) = RCT(375)*V(3113)*V(5250) - A(376) = RCT(376)*V(3113)*V(5250) - A(377) = RCT(377)*V(3129)*V(5256) - A(378) = RCT(378)*V(3129)*V(5250) - A(379) = RCT(379)*V(3129)*V(5250) - A(380) = RCT(380)*V(3129)*V(5250) - A(381) = RCT(381)*V(3129)*V(5250) - A(382) = RCT(382)*V(3182)*V(5256) - A(383) = RCT(383)*V(3182)*V(5250) - A(384) = RCT(384)*V(3182)*V(5250) - A(385) = RCT(385)*V(3182)*V(5250) - A(386) = RCT(386)*V(3182)*V(5250) - A(387) = RCT(387)*V(3169)*V(5256) - A(388) = RCT(388)*V(3169)*V(5250) - A(389) = RCT(389)*V(3169)*V(5250) - A(390) = RCT(390)*V(3169)*V(5250) - A(391) = RCT(391)*V(3169)*V(5250) - A(392) = RCT(392)*V(4395)*V(5256) - A(393) = RCT(393)*V(4395)*V(5258) - A(394) = RCT(394)*V(4395)*V(5258) - A(395) = RCT(395)*V(4395)*V(5250) - A(396) = RCT(396)*V(4964) - A(397) = RCT(397)*V(4964) - A(398) = RCT(398)*V(4964)*V(5256) - A(399) = RCT(399)*V(4964)*V(5250) - A(400) = RCT(400)*V(5153)*V(5256) - A(401) = RCT(401)*V(5153)*V(5256) - A(402) = RCT(402)*V(5153)*V(5258) - A(403) = RCT(403)*V(5153)*V(5258) - A(404) = RCT(404)*V(5153)*V(5250) - A(405) = RCT(405)*V(5153)*V(5250) - A(406) = RCT(406)*V(5153)*V(5250) - A(407) = RCT(407)*V(5166)*V(5256) - A(408) = RCT(408)*V(5166)*V(5258) - A(409) = RCT(409)*V(5166)*V(5258) - A(410) = RCT(410)*V(5166)*V(5258) - A(411) = RCT(411)*V(5166)*V(5258) - A(412) = RCT(412)*V(5166)*V(5250) - A(413) = RCT(413)*V(5166)*V(5250) - A(414) = RCT(414)*V(5166)*V(5250) - A(415) = RCT(415)*V(5166)*V(5250) - A(416) = RCT(416)*V(5166)*V(5250) - A(417) = RCT(417)*V(5166)*V(5250) - A(418) = RCT(418)*V(5166)*V(5250) - A(419) = RCT(419)*V(668)*V(5256) - A(420) = RCT(420)*V(668)*V(5250) - A(421) = RCT(421)*V(1580)*V(5256) - A(422) = RCT(422)*V(1580)*V(5250) - A(423) = RCT(423)*V(1580)*V(5250) - A(424) = RCT(424)*V(5160)*V(5250) - A(425) = RCT(425)*V(5160) - A(426) = RCT(426)*V(5178)*V(5250) - A(427) = RCT(427)*V(5178)*V(5250) - A(428) = RCT(428)*V(5178)*V(5250) - A(429) = RCT(429)*V(5178) - A(430) = RCT(430)*V(3978)*V(5250) - A(431) = RCT(431)*V(3978)*V(5250) - A(432) = RCT(432)*V(3978) - A(433) = RCT(433)*V(3609)*V(5250) - A(434) = RCT(434)*V(3609)*V(5250) - A(435) = RCT(435)*V(3609) - A(436) = RCT(436)*V(3868) - A(437) = RCT(437)*V(3868)*V(5250) - A(438) = RCT(438)*V(3868)*V(5250) - A(439) = RCT(439)*V(3505)*V(5250) - A(440) = RCT(440)*V(3505)*V(5250) - A(441) = RCT(441)*V(3505)*V(5250) - A(442) = RCT(442)*V(3505) - A(443) = RCT(443)*V(3843)*V(5250) - A(444) = RCT(444)*V(3843)*V(5250) - A(445) = RCT(445)*V(3843)*V(5250) - A(446) = RCT(446)*V(3843)*V(5250) - A(447) = RCT(447)*V(3843) - A(448) = RCT(448)*V(3583)*V(5250) - A(449) = RCT(449)*V(3583)*V(5250) - A(450) = RCT(450)*V(3583) - A(451) = RCT(451)*V(3369) - A(452) = RCT(452)*V(3369)*V(5250) - A(453) = RCT(453)*V(3689)*V(5250) - A(454) = RCT(454)*V(3689) - A(455) = RCT(455)*V(3689) - A(456) = RCT(456)*V(4492)*V(5256) - A(457) = RCT(457)*V(4492)*V(5256) - A(458) = RCT(458)*V(4492)*V(5258) - A(459) = RCT(459)*V(4492)*V(5258) - A(460) = RCT(460)*V(4492)*V(5250) - A(461) = RCT(461)*V(4492)*V(5250) - A(462) = RCT(462)*V(4492)*V(5250) - A(463) = RCT(463)*V(4600)*V(5256) - A(464) = RCT(464)*V(4600)*V(5256) - A(465) = RCT(465)*V(4600)*V(5258) - A(466) = RCT(466)*V(4600)*V(5258) - A(467) = RCT(467)*V(4600)*V(5250) - A(468) = RCT(468)*V(4600)*V(5250) - A(469) = RCT(469)*V(4600)*V(5250) - A(470) = RCT(470)*V(4605)*V(5256) - A(471) = RCT(471)*V(4605)*V(5258) - A(472) = RCT(472)*V(4605)*V(5258) - A(473) = RCT(473)*V(4605)*V(5250) - A(474) = RCT(474)*V(4605)*V(5250) - A(475) = RCT(475)*V(4605)*V(5250) - A(476) = RCT(476)*V(4988)*V(5256) - A(477) = RCT(477)*V(4988)*V(5258) - A(478) = RCT(478)*V(4988)*V(5258) - A(479) = RCT(479)*V(4988)*V(5258) - A(480) = RCT(480)*V(4988)*V(5258) - A(481) = RCT(481)*V(4988)*V(5250) - A(482) = RCT(482)*V(4988)*V(5250) - A(483) = RCT(483)*V(4988)*V(5250) - A(484) = RCT(484)*V(1750) - A(485) = RCT(485)*V(5195)*V(5255) - A(486) = RCT(486)*V(5195)*V(5252) - A(487) = RCT(487)*V(5195)*V(5252) - A(488) = RCT(488)*V(5195)*V(5256) - A(489) = RCT(489)*V(5195) - A(490) = RCT(490)*V(5195) - A(491) = RCT(491)*V(5195) - A(492) = RCT(492)*V(4995)*V(5255) - A(493) = RCT(493)*V(4995)*V(5252) - A(494) = RCT(494)*V(4995)*V(5252) - A(495) = RCT(495)*V(4995)*V(5256) - A(496) = RCT(496)*V(4995) - A(497) = RCT(497)*V(4995) - A(498) = RCT(498)*V(4995) - A(499) = RCT(499)*V(5121)*V(5255) - A(500) = RCT(500)*V(5121)*V(5256) - A(501) = RCT(501)*V(5121) - A(502) = RCT(502)*V(5121) - A(503) = RCT(503)*V(5121) - A(504) = RCT(504)*V(5121)*V(5252) - A(505) = RCT(505)*V(5121)*V(5252) - A(506) = RCT(506)*V(5202)*V(5255) - A(507) = RCT(507)*V(5202)*V(5252) - A(508) = RCT(508)*V(5202)*V(5252) - A(509) = RCT(509)*V(5202)*V(5256) - A(510) = RCT(510)*V(5202) - A(511) = RCT(511)*V(5202) - A(512) = RCT(512)*V(5202) - A(513) = RCT(513)*V(4645)*V(5255) - A(514) = RCT(514)*V(4645)*V(5252) - A(515) = RCT(515)*V(4645)*V(5252) - A(516) = RCT(516)*V(4645)*V(5256) - A(517) = RCT(517)*V(4645) - A(518) = RCT(518)*V(4645) - A(519) = RCT(519)*V(4645) - A(520) = RCT(520)*V(4870)*V(5255) - A(521) = RCT(521)*V(4870)*V(5252) - A(522) = RCT(522)*V(4870)*V(5252) - A(523) = RCT(523)*V(4870)*V(5256) - A(524) = RCT(524)*V(4870) - A(525) = RCT(525)*V(4870) - A(526) = RCT(526)*V(4870) - A(527) = RCT(527)*V(5007)*V(5255) - A(528) = RCT(528)*V(5007)*V(5252) - A(529) = RCT(529)*V(5007)*V(5252) - A(530) = RCT(530)*V(5007)*V(5256) - A(531) = RCT(531)*V(5007) - A(532) = RCT(532)*V(5007) - A(533) = RCT(533)*V(5007) - A(534) = RCT(534)*V(5060)*V(5255) - A(535) = RCT(535)*V(5060)*V(5252) - A(536) = RCT(536)*V(5060)*V(5252) - A(537) = RCT(537)*V(5060)*V(5256) - A(538) = RCT(538)*V(5060) - A(539) = RCT(539)*V(5060) - A(540) = RCT(540)*V(4411)*V(5255) - A(541) = RCT(541)*V(4411)*V(5252) - A(542) = RCT(542)*V(4411)*V(5252) - A(543) = RCT(543)*V(4411)*V(5256) - A(544) = RCT(544)*V(4411) - A(545) = RCT(545)*V(4411) - A(546) = RCT(546)*V(4411) - A(547) = RCT(547)*V(5129)*V(5255) - A(548) = RCT(548)*V(5129)*V(5252) - A(549) = RCT(549)*V(5129)*V(5252) - A(550) = RCT(550)*V(5129)*V(5256) - A(551) = RCT(551)*V(5129) - A(552) = RCT(552)*V(5129) - A(553) = RCT(553)*V(5129) - A(554) = RCT(554)*V(2465) - A(555) = RCT(555)*V(5185)*V(5255) - A(556) = RCT(556)*V(5185)*V(5252) - A(557) = RCT(557)*V(5185)*V(5252) - A(558) = RCT(558)*V(5185)*V(5256) - A(559) = RCT(559)*V(5185) - A(560) = RCT(560)*V(5185) - A(561) = RCT(561)*V(5185) - A(562) = RCT(562)*V(4767)*V(5255) - A(563) = RCT(563)*V(4767)*V(5252) - A(564) = RCT(564)*V(4767)*V(5252) - A(565) = RCT(565)*V(4767)*V(5256) - A(566) = RCT(566)*V(4767) - A(567) = RCT(567)*V(4767) - A(568) = RCT(568)*V(4767) - A(569) = RCT(569)*V(5042) - A(570) = RCT(570)*V(5042) - A(571) = RCT(571)*V(5042)*V(5256) - A(572) = RCT(572)*V(5042)*V(5250) - A(573) = RCT(573)*V(4310)*V(5255) - A(574) = RCT(574)*V(4310)*V(5252) - A(575) = RCT(575)*V(4310)*V(5252) - A(576) = RCT(576)*V(4310)*V(5256) - A(577) = RCT(577)*V(4310) - A(578) = RCT(578)*V(4310) - A(579) = RCT(579)*V(4310) - A(580) = RCT(580)*V(4837)*V(5255) - A(581) = RCT(581)*V(4837)*V(5252) - A(582) = RCT(582)*V(4837)*V(5252) - A(583) = RCT(583)*V(4837)*V(5256) - A(584) = RCT(584)*V(4837) - A(585) = RCT(585)*V(4837) - A(586) = RCT(586)*V(1573)*V(5256) - A(587) = RCT(587)*V(1573)*V(5250) - A(588) = RCT(588)*V(1573)*V(5250) - A(589) = RCT(589)*V(4844)*V(5255) - A(590) = RCT(590)*V(4844)*V(5252) - A(591) = RCT(591)*V(4844)*V(5252) - A(592) = RCT(592)*V(4844)*V(5256) - A(593) = RCT(593)*V(4844) - A(594) = RCT(594)*V(4844) - A(595) = RCT(595)*V(4562)*V(5255) - A(596) = RCT(596)*V(4562)*V(5252) - A(597) = RCT(597)*V(4562)*V(5252) - A(598) = RCT(598)*V(4562)*V(5256) - A(599) = RCT(599)*V(4562) - A(600) = RCT(600)*V(4562) - A(601) = RCT(601)*V(4562) - A(602) = RCT(602)*V(5148)*V(5255) - A(603) = RCT(603)*V(5148)*V(5252) - A(604) = RCT(604)*V(5148)*V(5252) - A(605) = RCT(605)*V(5148)*V(5256) - A(606) = RCT(606)*V(5148) - A(607) = RCT(607)*V(5148) - A(608) = RCT(608)*V(5148) - A(609) = RCT(609)*V(4473)*V(5255) - A(610) = RCT(610)*V(4473)*V(5252) - A(611) = RCT(611)*V(4473)*V(5252) - A(612) = RCT(612)*V(4473)*V(5256) - A(613) = RCT(613)*V(4473) - A(614) = RCT(614)*V(4473) - A(615) = RCT(615)*V(4473) - A(616) = RCT(616)*V(4959)*V(5255) - A(617) = RCT(617)*V(4959)*V(5252) - A(618) = RCT(618)*V(4959)*V(5252) - A(619) = RCT(619)*V(4959)*V(5256) - A(620) = RCT(620)*V(4959) - A(621) = RCT(621)*V(4959) - A(622) = RCT(622)*V(4959) - A(623) = RCT(623)*V(5116)*V(5255) - A(624) = RCT(624)*V(5116)*V(5252) - A(625) = RCT(625)*V(5116)*V(5252) - A(626) = RCT(626)*V(5116)*V(5256) - A(627) = RCT(627)*V(5116) - A(628) = RCT(628)*V(5116) - A(629) = RCT(629)*V(5116) - A(630) = RCT(630)*V(4647)*V(5255) - A(631) = RCT(631)*V(4647)*V(5252) - A(632) = RCT(632)*V(4647)*V(5252) - A(633) = RCT(633)*V(4647)*V(5256) - A(634) = RCT(634)*V(4647) - A(635) = RCT(635)*V(4647) - A(636) = RCT(636)*V(4814)*V(5255) - A(637) = RCT(637)*V(4814)*V(5252) - A(638) = RCT(638)*V(4814)*V(5252) - A(639) = RCT(639)*V(4814)*V(5256) - A(640) = RCT(640)*V(4814) - A(641) = RCT(641)*V(4814) - A(642) = RCT(642)*V(4814) - A(643) = RCT(643)*V(4780)*V(5255) - A(644) = RCT(644)*V(4780)*V(5252) - A(645) = RCT(645)*V(4780)*V(5256) - A(646) = RCT(646)*V(4780) - A(647) = RCT(647)*V(4780) - A(648) = RCT(648)*V(4780) - A(649) = RCT(649)*V(4161)*V(5255) - A(650) = RCT(650)*V(4161)*V(5252) - A(651) = RCT(651)*V(4161)*V(5252) - A(652) = RCT(652)*V(4161)*V(5256) - A(653) = RCT(653)*V(4161) - A(654) = RCT(654)*V(4161) - A(655) = RCT(655)*V(4161) - A(656) = RCT(656)*V(4698)*V(5255) - A(657) = RCT(657)*V(4698)*V(5252) - A(658) = RCT(658)*V(4698)*V(5256) - A(659) = RCT(659)*V(4698) - A(660) = RCT(660)*V(4698) - A(661) = RCT(661)*V(4698) - A(662) = RCT(662)*V(5244)*V(5255) - A(663) = RCT(663)*V(5244)*V(5255) - A(664) = RCT(664)*V(5244)*V(5255) - A(665) = RCT(665)*V(5244)*V(5252) - A(666) = RCT(666)*V(5244)*V(5253) - A(667) = RCT(667)*V(5244)*V(5256) - A(668) = RCT(668)*V(5244) - A(669) = RCT(669)*V(5244) - A(670) = RCT(670)*V(5234)*V(5256) - A(671) = RCT(671)*V(5234)*V(5250) - A(672) = RCT(672)*V(5234)*V(5250) - A(673) = RCT(673)*V(5234) - A(674) = RCT(674)*V(5188)*V(5250) - A(675) = RCT(675)*V(5188) - A(676) = RCT(676)*V(5087)*V(5256) - A(677) = RCT(677)*V(5087)*V(5250) - A(678) = RCT(678)*V(5087) - A(679) = RCT(679)*V(4585)*V(5255) - A(680) = RCT(680)*V(4585)*V(5252) - A(681) = RCT(681)*V(4585)*V(5256) - A(682) = RCT(682)*V(4585) - A(683) = RCT(683)*V(4585) - A(684) = RCT(684)*V(4585) - A(685) = RCT(685)*V(4364)*V(5255) - A(686) = RCT(686)*V(4364)*V(5252) - A(687) = RCT(687)*V(4364)*V(5256) - A(688) = RCT(688)*V(4364) - A(689) = RCT(689)*V(4364) - A(690) = RCT(690)*V(4364) - A(691) = RCT(691)*V(1776) - A(692) = RCT(692)*V(1776) - A(693) = RCT(693)*V(1776) - A(694) = RCT(694)*V(1776) - A(695) = RCT(695)*V(5000)*V(5250) - A(696) = RCT(696)*V(5000) - A(697) = RCT(697)*V(4528) - A(698) = RCT(698)*V(4528) - A(699) = RCT(699)*V(4528) - A(700) = RCT(700)*V(4596)*V(5255) - A(701) = RCT(701)*V(4596)*V(5252) - A(702) = RCT(702)*V(4596)*V(5252) - A(703) = RCT(703)*V(4596)*V(5256) - A(704) = RCT(704)*V(4596) - A(705) = RCT(705)*V(4596) - A(706) = RCT(706)*V(4596) - A(707) = RCT(707)*V(4554)*V(5255) - A(708) = RCT(708)*V(4554)*V(5252) - A(709) = RCT(709)*V(4554)*V(5252) - A(710) = RCT(710)*V(4554)*V(5256) - A(711) = RCT(711)*V(4554) - A(712) = RCT(712)*V(4554) - A(713) = RCT(713)*V(4554) - A(714) = RCT(714)*V(5228)*V(5255) - A(715) = RCT(715)*V(5228)*V(5255) - A(716) = RCT(716)*V(5228)*V(5252) - A(717) = RCT(717)*V(5228)*V(5252) - A(718) = RCT(718)*V(5228)*V(5253) - A(719) = RCT(719)*V(5228)*V(5256) - A(720) = RCT(720)*V(5228) - A(721) = RCT(721)*V(5228) - A(722) = RCT(722)*V(5228) - A(723) = RCT(723)*V(5235)*V(5255) - A(724) = RCT(724)*V(5235)*V(5252) - A(725) = RCT(725)*V(5235)*V(5256) - A(726) = RCT(726)*V(5235) - A(727) = RCT(727)*V(5235) - A(728) = RCT(728)*V(5235) - A(729) = RCT(729)*V(5183)*V(5255) - A(730) = RCT(730)*V(5183)*V(5255) - A(731) = RCT(731)*V(5183)*V(5255) - A(732) = RCT(732)*V(5183)*V(5252) - A(733) = RCT(733)*V(5183)*V(5253) - A(734) = RCT(734)*V(5183)*V(5256) - A(735) = RCT(735)*V(5183) - A(736) = RCT(736)*V(5183) - A(737) = RCT(737)*V(5142)*V(5255) - A(738) = RCT(738)*V(5142)*V(5252) - A(739) = RCT(739)*V(5142)*V(5252) - A(740) = RCT(740)*V(5142)*V(5256) - A(741) = RCT(741)*V(5142) - A(742) = RCT(742)*V(5142) - A(743) = RCT(743)*V(5142) - A(744) = RCT(744)*V(5125)*V(5255) - A(745) = RCT(745)*V(5125)*V(5255) - A(746) = RCT(746)*V(5125)*V(5255) - A(747) = RCT(747)*V(5125)*V(5252) - A(748) = RCT(748)*V(5125)*V(5253) - A(749) = RCT(749)*V(5125)*V(5256) - A(750) = RCT(750)*V(5125) - A(751) = RCT(751)*V(5125) - A(752) = RCT(752)*V(4705)*V(5255) - A(753) = RCT(753)*V(4705)*V(5252) - A(754) = RCT(754)*V(4705)*V(5252) - A(755) = RCT(755)*V(4705)*V(5256) - A(756) = RCT(756)*V(4705) - A(757) = RCT(757)*V(4705) - A(758) = RCT(758)*V(4705) - A(759) = RCT(759)*V(5229)*V(5255) - A(760) = RCT(760)*V(5229)*V(5252) - A(761) = RCT(761)*V(5229)*V(5252) - A(762) = RCT(762)*V(5229)*V(5256) - A(763) = RCT(763)*V(5229) - A(764) = RCT(764)*V(5229) - A(765) = RCT(765)*V(5229) - A(766) = RCT(766)*V(5106)*V(5255) - A(767) = RCT(767)*V(5106)*V(5255) - A(768) = RCT(768)*V(5106)*V(5255) - A(769) = RCT(769)*V(5106)*V(5252) - A(770) = RCT(770)*V(5106)*V(5253) - A(771) = RCT(771)*V(5106)*V(5256) - A(772) = RCT(772)*V(5106) - A(773) = RCT(773)*V(5106) - A(774) = RCT(774)*V(3847)*V(5255) - A(775) = RCT(775)*V(3847)*V(5252) - A(776) = RCT(776)*V(3847)*V(5252) - A(777) = RCT(777)*V(3847)*V(5256) - A(778) = RCT(778)*V(3847) - A(779) = RCT(779)*V(3847) - A(780) = RCT(780)*V(3847) - A(781) = RCT(781)*V(4763)*V(5255) - A(782) = RCT(782)*V(4763)*V(5252) - A(783) = RCT(783)*V(4763)*V(5256) - A(784) = RCT(784)*V(4763) - A(785) = RCT(785)*V(4763) - A(786) = RCT(786)*V(5145)*V(5255) - A(787) = RCT(787)*V(5145)*V(5252) - A(788) = RCT(788)*V(5145)*V(5252) - A(789) = RCT(789)*V(5145)*V(5256) - A(790) = RCT(790)*V(5145) - A(791) = RCT(791)*V(5145) - A(792) = RCT(792)*V(5145) - A(793) = RCT(793)*V(4944)*V(5255) - A(794) = RCT(794)*V(4944)*V(5255) - A(795) = RCT(795)*V(4944)*V(5255) - A(796) = RCT(796)*V(4944)*V(5252) - A(797) = RCT(797)*V(4944)*V(5253) - A(798) = RCT(798)*V(4944)*V(5256) - A(799) = RCT(799)*V(4944) - A(800) = RCT(800)*V(4944) - A(801) = RCT(801)*V(3884)*V(5255) - A(802) = RCT(802)*V(3884)*V(5252) - A(803) = RCT(803)*V(3884)*V(5252) - A(804) = RCT(804)*V(3884)*V(5256) - A(805) = RCT(805)*V(3884) - A(806) = RCT(806)*V(3884) - A(807) = RCT(807)*V(3884) - A(808) = RCT(808)*V(5208)*V(5255) - A(809) = RCT(809)*V(5208)*V(5252) - A(810) = RCT(810)*V(5208)*V(5252) - A(811) = RCT(811)*V(5208)*V(5256) - A(812) = RCT(812)*V(5208) - A(813) = RCT(813)*V(5208) - A(814) = RCT(814)*V(5208) - A(815) = RCT(815)*V(4954)*V(5255) - A(816) = RCT(816)*V(4954)*V(5255) - A(817) = RCT(817)*V(4954)*V(5255) - A(818) = RCT(818)*V(4954)*V(5252) - A(819) = RCT(819)*V(4954)*V(5253) - A(820) = RCT(820)*V(4954)*V(5256) - A(821) = RCT(821)*V(4954) - A(822) = RCT(822)*V(4954) - A(823) = RCT(823)*V(4382)*V(5255) - A(824) = RCT(824)*V(4382)*V(5252) - A(825) = RCT(825)*V(4382)*V(5256) - A(826) = RCT(826)*V(4382) - A(827) = RCT(827)*V(4382) - A(828) = RCT(828)*V(4382) - A(829) = RCT(829)*V(4382) - A(830) = RCT(830)*V(4932)*V(5255) - A(831) = RCT(831)*V(4932)*V(5255) - A(832) = RCT(832)*V(4932)*V(5252) - A(833) = RCT(833)*V(4932)*V(5252) - A(834) = RCT(834)*V(4932)*V(5256) - A(835) = RCT(835)*V(4932) - A(836) = RCT(836)*V(4932) - A(837) = RCT(837)*V(4932) - A(838) = RCT(838)*V(5233) - A(839) = RCT(839)*V(5233) - A(840) = RCT(840)*V(5233) - A(841) = RCT(841)*V(5233)*V(5256) - A(842) = RCT(842)*V(5233)*V(5250) - A(843) = RCT(843)*V(2748) - A(844) = RCT(844)*V(2748) - A(845) = RCT(845)*V(2748) - A(846) = RCT(846)*V(2748) - A(847) = RCT(847)*V(3652) - A(848) = RCT(848)*V(3652) - A(849) = RCT(849)*V(5128)*V(5255) - A(850) = RCT(850)*V(5128)*V(5255) - A(851) = RCT(851)*V(5128)*V(5255) - A(852) = RCT(852)*V(5128)*V(5252) - A(853) = RCT(853)*V(5128)*V(5253) - A(854) = RCT(854)*V(5128)*V(5256) - A(855) = RCT(855)*V(5128) - A(856) = RCT(856)*V(5128) - A(857) = RCT(857)*V(763) - A(858) = RCT(858)*V(763) - A(859) = RCT(859)*V(5222) - A(860) = RCT(860)*V(5222)*V(5256) - A(861) = RCT(861)*V(5222)*V(5250) - A(862) = RCT(862)*V(684) - A(863) = RCT(863)*V(684) - A(864) = RCT(864)*V(684) - A(865) = RCT(865)*V(4936)*V(5255) - A(866) = RCT(866)*V(4936)*V(5252) - A(867) = RCT(867)*V(4936)*V(5252) - A(868) = RCT(868)*V(4936)*V(5256) - A(869) = RCT(869)*V(4936) - A(870) = RCT(870)*V(4936) - A(871) = RCT(871)*V(4936) - A(872) = RCT(872)*V(4783)*V(5255) - A(873) = RCT(873)*V(4783)*V(5252) - A(874) = RCT(874)*V(4783)*V(5252) - A(875) = RCT(875)*V(4783)*V(5256) - A(876) = RCT(876)*V(4783) - A(877) = RCT(877)*V(4783) - A(878) = RCT(878)*V(4783) - A(879) = RCT(879)*V(4428)*V(5255) - A(880) = RCT(880)*V(4428)*V(5255) - A(881) = RCT(881)*V(4428)*V(5255) - A(882) = RCT(882)*V(4428)*V(5252) - A(883) = RCT(883)*V(4428)*V(5253) - A(884) = RCT(884)*V(4428)*V(5256) - A(885) = RCT(885)*V(4428) - A(886) = RCT(886)*V(4428) - A(887) = RCT(887)*V(4923)*V(5255) - A(888) = RCT(888)*V(4923)*V(5252) - A(889) = RCT(889)*V(4923)*V(5256) - A(890) = RCT(890)*V(4923) - A(891) = RCT(891)*V(4923) - A(892) = RCT(892)*V(4923) - A(893) = RCT(893)*V(4922)*V(5255) - A(894) = RCT(894)*V(4922)*V(5252) - A(895) = RCT(895)*V(4922)*V(5256) - A(896) = RCT(896)*V(4922) - A(897) = RCT(897)*V(4922) - A(898) = RCT(898)*V(4922) - A(899) = RCT(899)*V(4333) - A(900) = RCT(900)*V(4333) - A(901) = RCT(901)*V(4333) - A(902) = RCT(902)*V(4333) - A(903) = RCT(903)*V(4695)*V(5255) - A(904) = RCT(904)*V(4695)*V(5252) - A(905) = RCT(905)*V(4695)*V(5252) - A(906) = RCT(906)*V(4695)*V(5256) - A(907) = RCT(907)*V(4695) - A(908) = RCT(908)*V(4695) - A(909) = RCT(909)*V(4695) - A(910) = RCT(910)*V(4353)*V(5255) - A(911) = RCT(911)*V(4353)*V(5252) - A(912) = RCT(912)*V(4353)*V(5256) - A(913) = RCT(913)*V(4353) - A(914) = RCT(914)*V(4353) - A(915) = RCT(915)*V(4353) - A(916) = RCT(916)*V(5062)*V(5255) - A(917) = RCT(917)*V(5062)*V(5252) - A(918) = RCT(918)*V(5062)*V(5252) - A(919) = RCT(919)*V(5062)*V(5256) - A(920) = RCT(920)*V(5062) - A(921) = RCT(921)*V(5062) - A(922) = RCT(922)*V(5062) - A(923) = RCT(923)*V(4755)*V(5255) - A(924) = RCT(924)*V(4755)*V(5252) - A(925) = RCT(925)*V(4755)*V(5252) - A(926) = RCT(926)*V(4755)*V(5256) - A(927) = RCT(927)*V(4755) - A(928) = RCT(928)*V(4755) - A(929) = RCT(929)*V(4755) - A(930) = RCT(930)*V(4981)*V(5255) - A(931) = RCT(931)*V(4981)*V(5252) - A(932) = RCT(932)*V(4981)*V(5252) - A(933) = RCT(933)*V(4981)*V(5256) - A(934) = RCT(934)*V(4981) - A(935) = RCT(935)*V(4981) - A(936) = RCT(936)*V(5163)*V(5255) - A(937) = RCT(937)*V(5163)*V(5252) - A(938) = RCT(938)*V(5163)*V(5252) - A(939) = RCT(939)*V(5163)*V(5256) - A(940) = RCT(940)*V(5163) - A(941) = RCT(941)*V(5163) - A(942) = RCT(942)*V(5163) - A(943) = RCT(943)*V(5192)*V(5255) - A(944) = RCT(944)*V(5192)*V(5252) - A(945) = RCT(945)*V(5192)*V(5252) - A(946) = RCT(946)*V(5192)*V(5256) - A(947) = RCT(947)*V(5192) - A(948) = RCT(948)*V(5192) - A(949) = RCT(949)*V(5192) - A(950) = RCT(950)*V(4876)*V(5255) - A(951) = RCT(951)*V(4876)*V(5252) - A(952) = RCT(952)*V(4876)*V(5252) - A(953) = RCT(953)*V(4876)*V(5256) - A(954) = RCT(954)*V(4876) - A(955) = RCT(955)*V(4876) - A(956) = RCT(956)*V(4876) - A(957) = RCT(957)*V(5147)*V(5255) - A(958) = RCT(958)*V(5147)*V(5252) - A(959) = RCT(959)*V(5147)*V(5252) - A(960) = RCT(960)*V(5147)*V(5256) - A(961) = RCT(961)*V(5147) - A(962) = RCT(962)*V(5147) - A(963) = RCT(963)*V(5147) - A(964) = RCT(964)*V(4901)*V(5255) - A(965) = RCT(965)*V(4901)*V(5252) - A(966) = RCT(966)*V(4901)*V(5252) - A(967) = RCT(967)*V(4901)*V(5256) - A(968) = RCT(968)*V(4901) - A(969) = RCT(969)*V(4901) - A(970) = RCT(970)*V(4901) - A(971) = RCT(971)*V(5078)*V(5255) - A(972) = RCT(972)*V(5078)*V(5252) - A(973) = RCT(973)*V(5078)*V(5252) - A(974) = RCT(974)*V(5078)*V(5256) - A(975) = RCT(975)*V(5078) - A(976) = RCT(976)*V(5078) - A(977) = RCT(977)*V(4980)*V(5255) - A(978) = RCT(978)*V(4980)*V(5252) - A(979) = RCT(979)*V(4980)*V(5252) - A(980) = RCT(980)*V(4980)*V(5256) - A(981) = RCT(981)*V(4980) - A(982) = RCT(982)*V(4980) - A(983) = RCT(983)*V(4980) - A(984) = RCT(984)*V(4942)*V(5255) - A(985) = RCT(985)*V(4942)*V(5252) - A(986) = RCT(986)*V(4942)*V(5252) - A(987) = RCT(987)*V(4942)*V(5256) - A(988) = RCT(988)*V(4942) - A(989) = RCT(989)*V(4942) - A(990) = RCT(990)*V(4942) - A(991) = RCT(991)*V(5109)*V(5255) - A(992) = RCT(992)*V(5109)*V(5252) - A(993) = RCT(993)*V(5109)*V(5252) - A(994) = RCT(994)*V(5109)*V(5256) - A(995) = RCT(995)*V(5109) - A(996) = RCT(996)*V(5109) - A(997) = RCT(997)*V(5109) - A(998) = RCT(998)*V(5186)*V(5255) - A(999) = RCT(999)*V(5186)*V(5252) - A(1000) = RCT(1000)*V(5186)*V(5252) - A(1001) = RCT(1001)*V(5186)*V(5256) - A(1002) = RCT(1002)*V(5186) - A(1003) = RCT(1003)*V(5186) - A(1004) = RCT(1004)*V(5186) - A(1005) = RCT(1005)*V(4733)*V(5255) - A(1006) = RCT(1006)*V(4733)*V(5252) - A(1007) = RCT(1007)*V(4733)*V(5252) - A(1008) = RCT(1008)*V(4733)*V(5256) - A(1009) = RCT(1009)*V(4733) - A(1010) = RCT(1010)*V(4733) - A(1011) = RCT(1011)*V(4733) - A(1012) = RCT(1012)*V(4974)*V(5255) - A(1013) = RCT(1013)*V(4974)*V(5252) - A(1014) = RCT(1014)*V(4974)*V(5252) - A(1015) = RCT(1015)*V(4974)*V(5256) - A(1016) = RCT(1016)*V(4974) - A(1017) = RCT(1017)*V(4974) - A(1018) = RCT(1018)*V(4974) - A(1019) = RCT(1019)*V(4571)*V(5255) - A(1020) = RCT(1020)*V(4571)*V(5252) - A(1021) = RCT(1021)*V(4571)*V(5252) - A(1022) = RCT(1022)*V(4571)*V(5256) - A(1023) = RCT(1023)*V(4571) - A(1024) = RCT(1024)*V(4571) - A(1025) = RCT(1025)*V(4571) - A(1026) = RCT(1026)*V(5056)*V(5255) - A(1027) = RCT(1027)*V(5056)*V(5252) - A(1028) = RCT(1028)*V(5056)*V(5252) - A(1029) = RCT(1029)*V(5056)*V(5256) - A(1030) = RCT(1030)*V(5056) - A(1031) = RCT(1031)*V(5056) - A(1032) = RCT(1032)*V(4696)*V(5255) - A(1033) = RCT(1033)*V(4696)*V(5252) - A(1034) = RCT(1034)*V(4696)*V(5252) - A(1035) = RCT(1035)*V(4696)*V(5256) - A(1036) = RCT(1036)*V(4696) - A(1037) = RCT(1037)*V(4696) - A(1038) = RCT(1038)*V(4696) - A(1039) = RCT(1039)*V(5061)*V(5255) - A(1040) = RCT(1040)*V(5061)*V(5252) - A(1041) = RCT(1041)*V(5061)*V(5252) - A(1042) = RCT(1042)*V(5061)*V(5256) - A(1043) = RCT(1043)*V(5061) - A(1044) = RCT(1044)*V(5061) - A(1045) = RCT(1045)*V(5061) - A(1046) = RCT(1046)*V(4121)*V(5255) - A(1047) = RCT(1047)*V(4121)*V(5252) - A(1048) = RCT(1048)*V(4121)*V(5252) - A(1049) = RCT(1049)*V(4121)*V(5256) - A(1050) = RCT(1050)*V(4121) - A(1051) = RCT(1051)*V(4121) - A(1052) = RCT(1052)*V(5045)*V(5255) - A(1053) = RCT(1053)*V(5045)*V(5252) - A(1054) = RCT(1054)*V(5045)*V(5252) - A(1055) = RCT(1055)*V(5045)*V(5256) - A(1056) = RCT(1056)*V(5045) - A(1057) = RCT(1057)*V(5045) - A(1058) = RCT(1058)*V(5045) - A(1059) = RCT(1059)*V(5082)*V(5255) - A(1060) = RCT(1060)*V(5082)*V(5252) - A(1061) = RCT(1061)*V(5082)*V(5252) - A(1062) = RCT(1062)*V(5082)*V(5256) - A(1063) = RCT(1063)*V(5082) - A(1064) = RCT(1064)*V(5082) - A(1065) = RCT(1065)*V(5082) - A(1066) = RCT(1066)*V(5077)*V(5255) - A(1067) = RCT(1067)*V(5077)*V(5252) - A(1068) = RCT(1068)*V(5077)*V(5252) - A(1069) = RCT(1069)*V(5077)*V(5256) - A(1070) = RCT(1070)*V(5077) - A(1071) = RCT(1071)*V(5077) - A(1072) = RCT(1072)*V(5077) - A(1073) = RCT(1073)*V(3894)*V(5255) - A(1074) = RCT(1074)*V(3894)*V(5252) - A(1075) = RCT(1075)*V(3894)*V(5252) - A(1076) = RCT(1076)*V(3894)*V(5256) - A(1077) = RCT(1077)*V(3894) - A(1078) = RCT(1078)*V(3894) - A(1079) = RCT(1079)*V(4886)*V(5255) - A(1080) = RCT(1080)*V(4886)*V(5252) - A(1081) = RCT(1081)*V(4886)*V(5252) - A(1082) = RCT(1082)*V(4886)*V(5256) - A(1083) = RCT(1083)*V(4886) - A(1084) = RCT(1084)*V(4886) - A(1085) = RCT(1085)*V(4886) - A(1086) = RCT(1086)*V(4766)*V(5255) - A(1087) = RCT(1087)*V(4766)*V(5252) - A(1088) = RCT(1088)*V(4766)*V(5252) - A(1089) = RCT(1089)*V(4766)*V(5256) - A(1090) = RCT(1090)*V(4766) - A(1091) = RCT(1091)*V(4766) - A(1092) = RCT(1092)*V(4766) - A(1093) = RCT(1093)*V(5146)*V(5255) - A(1094) = RCT(1094)*V(5146)*V(5252) - A(1095) = RCT(1095)*V(5146)*V(5252) - A(1096) = RCT(1096)*V(5146)*V(5256) - A(1097) = RCT(1097)*V(5146) - A(1098) = RCT(1098)*V(5146) - A(1099) = RCT(1099)*V(5146) - A(1100) = RCT(1100)*V(4099)*V(5255) - A(1101) = RCT(1101)*V(4099)*V(5252) - A(1102) = RCT(1102)*V(4099)*V(5252) - A(1103) = RCT(1103)*V(4099)*V(5256) - A(1104) = RCT(1104)*V(4099) - A(1105) = RCT(1105)*V(4099) - A(1106) = RCT(1106)*V(4586)*V(5255) - A(1107) = RCT(1107)*V(4586)*V(5252) - A(1108) = RCT(1108)*V(4586)*V(5252) - A(1109) = RCT(1109)*V(4586)*V(5256) - A(1110) = RCT(1110)*V(4586) - A(1111) = RCT(1111)*V(4586) - A(1112) = RCT(1112)*V(4586) - A(1113) = RCT(1113)*V(4878)*V(5255) - A(1114) = RCT(1114)*V(4878)*V(5252) - A(1115) = RCT(1115)*V(4878)*V(5252) - A(1116) = RCT(1116)*V(4878)*V(5256) - A(1117) = RCT(1117)*V(4878) - A(1118) = RCT(1118)*V(4878) - A(1119) = RCT(1119)*V(5144)*V(5255) - A(1120) = RCT(1120)*V(5144)*V(5252) - A(1121) = RCT(1121)*V(5144)*V(5252) - A(1122) = RCT(1122)*V(5144)*V(5256) - A(1123) = RCT(1123)*V(5144) - A(1124) = RCT(1124)*V(5144) - A(1125) = RCT(1125)*V(5144) - A(1126) = RCT(1126)*V(5112)*V(5255) - A(1127) = RCT(1127)*V(5112)*V(5252) - A(1128) = RCT(1128)*V(5112)*V(5252) - A(1129) = RCT(1129)*V(5112)*V(5256) - A(1130) = RCT(1130)*V(5112) - A(1131) = RCT(1131)*V(5112) - A(1132) = RCT(1132)*V(5112) - A(1133) = RCT(1133)*V(5107)*V(5255) - A(1134) = RCT(1134)*V(5107)*V(5252) - A(1135) = RCT(1135)*V(5107)*V(5252) - A(1136) = RCT(1136)*V(5107)*V(5256) - A(1137) = RCT(1137)*V(5107) - A(1138) = RCT(1138)*V(5107) - A(1139) = RCT(1139)*V(5107) - A(1140) = RCT(1140)*V(5138)*V(5255) - A(1141) = RCT(1141)*V(5138)*V(5252) - A(1142) = RCT(1142)*V(5138)*V(5252) - A(1143) = RCT(1143)*V(5138)*V(5256) - A(1144) = RCT(1144)*V(5138) - A(1145) = RCT(1145)*V(5138) - A(1146) = RCT(1146)*V(5138) - A(1147) = RCT(1147)*V(5065)*V(5255) - A(1148) = RCT(1148)*V(5065)*V(5252) - A(1149) = RCT(1149)*V(5065)*V(5252) - A(1150) = RCT(1150)*V(5065)*V(5256) - A(1151) = RCT(1151)*V(5065) - A(1152) = RCT(1152)*V(5065) - A(1153) = RCT(1153)*V(5065) - A(1154) = RCT(1154)*V(5181)*V(5255) - A(1155) = RCT(1155)*V(5181)*V(5252) - A(1156) = RCT(1156)*V(5181)*V(5252) - A(1157) = RCT(1157)*V(5181)*V(5256) - A(1158) = RCT(1158)*V(5181) - A(1159) = RCT(1159)*V(5181) - A(1160) = RCT(1160)*V(5181) - A(1161) = RCT(1161)*V(4171)*V(5255) - A(1162) = RCT(1162)*V(4171)*V(5252) - A(1163) = RCT(1163)*V(4171)*V(5256) - A(1164) = RCT(1164)*V(4171) - A(1165) = RCT(1165)*V(4171) - A(1166) = RCT(1166)*V(4171) - A(1167) = RCT(1167)*V(2038) - A(1168) = RCT(1168)*V(2038) - A(1169) = RCT(1169)*V(2038) - A(1170) = RCT(1170)*V(4351)*V(5255) - A(1171) = RCT(1171)*V(4351)*V(5252) - A(1172) = RCT(1172)*V(4351)*V(5256) - A(1173) = RCT(1173)*V(4351) - A(1174) = RCT(1174)*V(4351) - A(1175) = RCT(1175)*V(4351) - A(1176) = RCT(1176)*V(4370)*V(5255) - A(1177) = RCT(1177)*V(4370)*V(5252) - A(1178) = RCT(1178)*V(4370)*V(5256) - A(1179) = RCT(1179)*V(4370) - A(1180) = RCT(1180)*V(4370) - A(1181) = RCT(1181)*V(4370) - A(1182) = RCT(1182)*V(2286) - A(1183) = RCT(1183)*V(2286) - A(1184) = RCT(1184)*V(2286) - A(1185) = RCT(1185)*V(2286) - A(1186) = RCT(1186)*V(4579)*V(5255) - A(1187) = RCT(1187)*V(4579)*V(5252) - A(1188) = RCT(1188)*V(4579)*V(5256) - A(1189) = RCT(1189)*V(4579) - A(1190) = RCT(1190)*V(4579) - A(1191) = RCT(1191)*V(4579) - A(1192) = RCT(1192)*V(4574)*V(5255) - A(1193) = RCT(1193)*V(4574)*V(5252) - A(1194) = RCT(1194)*V(4574)*V(5256) - A(1195) = RCT(1195)*V(4574) - A(1196) = RCT(1196)*V(4574) - A(1197) = RCT(1197)*V(4574) - A(1198) = RCT(1198)*V(2013) - A(1199) = RCT(1199)*V(2013) - A(1200) = RCT(1200)*V(2013) - A(1201) = RCT(1201)*V(2013) - A(1202) = RCT(1202)*V(5149)*V(5255) - A(1203) = RCT(1203)*V(5149)*V(5252) - A(1204) = RCT(1204)*V(5149)*V(5252) - A(1205) = RCT(1205)*V(5149)*V(5256) - A(1206) = RCT(1206)*V(5149) - A(1207) = RCT(1207)*V(5149) - A(1208) = RCT(1208)*V(5149) - A(1209) = RCT(1209)*V(4387)*V(5255) - A(1210) = RCT(1210)*V(4387)*V(5252) - A(1211) = RCT(1211)*V(4387)*V(5256) - A(1212) = RCT(1212)*V(4387) - A(1213) = RCT(1213)*V(4387) - A(1214) = RCT(1214)*V(4387) - A(1215) = RCT(1215)*V(4112)*V(5255) - A(1216) = RCT(1216)*V(4112)*V(5252) - A(1217) = RCT(1217)*V(4112)*V(5256) - A(1218) = RCT(1218)*V(4112) - A(1219) = RCT(1219)*V(4112) - A(1220) = RCT(1220)*V(4809)*V(5255) - A(1221) = RCT(1221)*V(4809)*V(5252) - A(1222) = RCT(1222)*V(4809)*V(5256) - A(1223) = RCT(1223)*V(4809) - A(1224) = RCT(1224)*V(4809) - A(1225) = RCT(1225)*V(4809) - A(1226) = RCT(1226)*V(3479) - A(1227) = RCT(1227)*V(3479) - A(1228) = RCT(1228)*V(327) - A(1229) = RCT(1229)*V(327) - A(1230) = RCT(1230)*V(4593)*V(5255) - A(1231) = RCT(1231)*V(4593)*V(5252) - A(1232) = RCT(1232)*V(4593)*V(5256) - A(1233) = RCT(1233)*V(4593) - A(1234) = RCT(1234)*V(4593) - A(1235) = RCT(1235)*V(4593) - A(1236) = RCT(1236)*V(4972)*V(5255) - A(1237) = RCT(1237)*V(4972)*V(5252) - A(1238) = RCT(1238)*V(4972)*V(5256) - A(1239) = RCT(1239)*V(4972) - A(1240) = RCT(1240)*V(4972) - A(1241) = RCT(1241)*V(4972) - A(1242) = RCT(1242)*V(2042) - A(1243) = RCT(1243)*V(2042) - A(1244) = RCT(1244)*V(2042) - A(1245) = RCT(1245)*V(2042) - A(1246) = RCT(1246)*V(4598)*V(5255) - A(1247) = RCT(1247)*V(4598)*V(5252) - A(1248) = RCT(1248)*V(4598)*V(5252) - A(1249) = RCT(1249)*V(4598)*V(5256) - A(1250) = RCT(1250)*V(4598) - A(1251) = RCT(1251)*V(4598) - A(1252) = RCT(1252)*V(4598) - A(1253) = RCT(1253)*V(5096)*V(5255) - A(1254) = RCT(1254)*V(5096)*V(5252) - A(1255) = RCT(1255)*V(5096)*V(5252) - A(1256) = RCT(1256)*V(5096)*V(5256) - A(1257) = RCT(1257)*V(5096) - A(1258) = RCT(1258)*V(5096) - A(1259) = RCT(1259)*V(5096) - A(1260) = RCT(1260)*V(4714)*V(5255) - A(1261) = RCT(1261)*V(4714)*V(5252) - A(1262) = RCT(1262)*V(4714)*V(5256) - A(1263) = RCT(1263)*V(4714) - A(1264) = RCT(1264)*V(4714) - A(1265) = RCT(1265)*V(4714) - A(1266) = RCT(1266)*V(4782)*V(5255) - A(1267) = RCT(1267)*V(4782)*V(5252) - A(1268) = RCT(1268)*V(4782)*V(5256) - A(1269) = RCT(1269)*V(4782) - A(1270) = RCT(1270)*V(4782) - A(1271) = RCT(1271)*V(4782) - A(1272) = RCT(1272)*V(3297) - A(1273) = RCT(1273)*V(3297) - A(1274) = RCT(1274)*V(3297) - A(1275) = RCT(1275)*V(3297) - A(1276) = RCT(1276)*V(4476)*V(5255) - A(1277) = RCT(1277)*V(4476)*V(5252) - A(1278) = RCT(1278)*V(4476)*V(5252) - A(1279) = RCT(1279)*V(4476)*V(5256) - A(1280) = RCT(1280)*V(4476) - A(1281) = RCT(1281)*V(4476) - A(1282) = RCT(1282)*V(4476) - A(1283) = RCT(1283)*V(4777)*V(5255) - A(1284) = RCT(1284)*V(4777)*V(5252) - A(1285) = RCT(1285)*V(4777)*V(5256) - A(1286) = RCT(1286)*V(4777) - A(1287) = RCT(1287)*V(4777) - A(1288) = RCT(1288)*V(4777) - A(1289) = RCT(1289)*V(4143)*V(5255) - A(1290) = RCT(1290)*V(4143)*V(5252) - A(1291) = RCT(1291)*V(4143)*V(5256) - A(1292) = RCT(1292)*V(4143) - A(1293) = RCT(1293)*V(4143) - A(1294) = RCT(1294)*V(477) - A(1295) = RCT(1295)*V(477) - A(1296) = RCT(1296)*V(4700)*V(5255) - A(1297) = RCT(1297)*V(4700)*V(5252) - A(1298) = RCT(1298)*V(4700)*V(5256) - A(1299) = RCT(1299)*V(4700) - A(1300) = RCT(1300)*V(4700) - A(1301) = RCT(1301)*V(4700) - A(1302) = RCT(1302)*V(4881)*V(5255) - A(1303) = RCT(1303)*V(4881)*V(5252) - A(1304) = RCT(1304)*V(4881)*V(5256) - A(1305) = RCT(1305)*V(4881) - A(1306) = RCT(1306)*V(4881) - A(1307) = RCT(1307)*V(4881) - A(1308) = RCT(1308)*V(2212) - A(1309) = RCT(1309)*V(2212) - A(1310) = RCT(1310)*V(2212) - A(1311) = RCT(1311)*V(2212) - A(1312) = RCT(1312)*V(5043)*V(5255) - A(1313) = RCT(1313)*V(5043)*V(5252) - A(1314) = RCT(1314)*V(5043)*V(5252) - A(1315) = RCT(1315)*V(5043)*V(5256) - A(1316) = RCT(1316)*V(5043) - A(1317) = RCT(1317)*V(5043) - A(1318) = RCT(1318)*V(5043) - A(1319) = RCT(1319)*V(4723)*V(5255) - A(1320) = RCT(1320)*V(4723)*V(5252) - A(1321) = RCT(1321)*V(4723)*V(5256) - A(1322) = RCT(1322)*V(4723) - A(1323) = RCT(1323)*V(4723) - A(1324) = RCT(1324)*V(4723) - A(1325) = RCT(1325)*V(4140)*V(5255) - A(1326) = RCT(1326)*V(4140)*V(5252) - A(1327) = RCT(1327)*V(4140)*V(5256) - A(1328) = RCT(1328)*V(4140) - A(1329) = RCT(1329)*V(4140) - A(1330) = RCT(1330)*V(239) - A(1331) = RCT(1331)*V(239) - A(1332) = RCT(1332)*V(766) - A(1333) = RCT(1333)*V(766) - A(1334) = RCT(1334)*V(4879)*V(5255) - A(1335) = RCT(1335)*V(4879)*V(5252) - A(1336) = RCT(1336)*V(4879)*V(5256) - A(1337) = RCT(1337)*V(4879) - A(1338) = RCT(1338)*V(4879) - A(1339) = RCT(1339)*V(4879) - A(1340) = RCT(1340)*V(4587)*V(5255) - A(1341) = RCT(1341)*V(4587)*V(5252) - A(1342) = RCT(1342)*V(4587)*V(5256) - A(1343) = RCT(1343)*V(4587) - A(1344) = RCT(1344)*V(4587) - A(1345) = RCT(1345)*V(4587) - A(1346) = RCT(1346)*V(2487) - A(1347) = RCT(1347)*V(2487) - A(1348) = RCT(1348)*V(2487) - A(1349) = RCT(1349)*V(2487) - A(1350) = RCT(1350)*V(4582)*V(5255) - A(1351) = RCT(1351)*V(4582)*V(5252) - A(1352) = RCT(1352)*V(4582)*V(5252) - A(1353) = RCT(1353)*V(4582)*V(5256) - A(1354) = RCT(1354)*V(4582) - A(1355) = RCT(1355)*V(4582) - A(1356) = RCT(1356)*V(4582) - A(1357) = RCT(1357)*V(5135)*V(5255) - A(1358) = RCT(1358)*V(5135)*V(5252) - A(1359) = RCT(1359)*V(5135)*V(5252) - A(1360) = RCT(1360)*V(5135)*V(5256) - A(1361) = RCT(1361)*V(5135) - A(1362) = RCT(1362)*V(5135) - A(1363) = RCT(1363)*V(5135) - A(1364) = RCT(1364)*V(4884)*V(5255) - A(1365) = RCT(1365)*V(4884)*V(5252) - A(1366) = RCT(1366)*V(4884)*V(5256) - A(1367) = RCT(1367)*V(4884) - A(1368) = RCT(1368)*V(4884) - A(1369) = RCT(1369)*V(4884) - A(1370) = RCT(1370)*V(4702)*V(5255) - A(1371) = RCT(1371)*V(4702)*V(5252) - A(1372) = RCT(1372)*V(4702)*V(5256) - A(1373) = RCT(1373)*V(4702) - A(1374) = RCT(1374)*V(4702) - A(1375) = RCT(1375)*V(4702) - A(1376) = RCT(1376)*V(3202) - A(1377) = RCT(1377)*V(3202) - A(1378) = RCT(1378)*V(3202) - A(1379) = RCT(1379)*V(3202) - A(1380) = RCT(1380)*V(4607)*V(5255) - A(1381) = RCT(1381)*V(4607)*V(5252) - A(1382) = RCT(1382)*V(4607)*V(5252) - A(1383) = RCT(1383)*V(4607)*V(5256) - A(1384) = RCT(1384)*V(4607) - A(1385) = RCT(1385)*V(4607) - A(1386) = RCT(1386)*V(4607) - A(1387) = RCT(1387)*V(4608)*V(5255) - A(1388) = RCT(1388)*V(4608)*V(5252) - A(1389) = RCT(1389)*V(4608)*V(5252) - A(1390) = RCT(1390)*V(4608)*V(5256) - A(1391) = RCT(1391)*V(4608) - A(1392) = RCT(1392)*V(4608) - A(1393) = RCT(1393)*V(4608) - A(1394) = RCT(1394)*V(3671)*V(5255) - A(1395) = RCT(1395)*V(3671)*V(5252) - A(1396) = RCT(1396)*V(3671)*V(5256) - A(1397) = RCT(1397)*V(3671) - A(1398) = RCT(1398)*V(3671) - A(1399) = RCT(1399)*V(37) - A(1400) = RCT(1400)*V(3721)*V(5255) - A(1401) = RCT(1401)*V(3721)*V(5252) - A(1402) = RCT(1402)*V(3721)*V(5252) - A(1403) = RCT(1403)*V(3721)*V(5256) - A(1404) = RCT(1404)*V(3721) - A(1405) = RCT(1405)*V(3721) - A(1406) = RCT(1406)*V(680)*V(5250) - A(1407) = RCT(1407)*V(4399)*V(5255) - A(1408) = RCT(1408)*V(4399)*V(5252) - A(1409) = RCT(1409)*V(4399)*V(5252) - A(1410) = RCT(1410)*V(4399)*V(5256) - A(1411) = RCT(1411)*V(4399) - A(1412) = RCT(1412)*V(4399) - A(1413) = RCT(1413)*V(4399) - A(1414) = RCT(1414)*V(4396)*V(5256) - A(1415) = RCT(1415)*V(4396)*V(5258) - A(1416) = RCT(1416)*V(4396)*V(5250) - A(1417) = RCT(1417)*V(4396)*V(5250) - A(1418) = RCT(1418)*V(4396) - A(1419) = RCT(1419)*V(4396) - A(1420) = RCT(1420)*V(4397)*V(5256) - A(1421) = RCT(1421)*V(4397)*V(5256) - A(1422) = RCT(1422)*V(4397)*V(5250) - A(1423) = RCT(1423)*V(4397)*V(5250) - A(1424) = RCT(1424)*V(4397)*V(5250) - A(1425) = RCT(1425)*V(3776)*V(5255) - A(1426) = RCT(1426)*V(3776)*V(5252) - A(1427) = RCT(1427)*V(3776)*V(5252) - A(1428) = RCT(1428)*V(3776)*V(5256) - A(1429) = RCT(1429)*V(3776) - A(1430) = RCT(1430)*V(3776) - A(1431) = RCT(1431)*V(3776) - A(1432) = RCT(1432)*V(3157)*V(5256) - A(1433) = RCT(1433)*V(3157)*V(5256) - A(1434) = RCT(1434)*V(3157)*V(5256) - A(1435) = RCT(1435)*V(3157)*V(5250) - A(1436) = RCT(1436)*V(3157)*V(5250) - A(1437) = RCT(1437)*V(3157)*V(5250) - A(1438) = RCT(1438)*V(3823)*V(5255) - A(1439) = RCT(1439)*V(3823)*V(5252) - A(1440) = RCT(1440)*V(3823)*V(5252) - A(1441) = RCT(1441)*V(3823)*V(5256) - A(1442) = RCT(1442)*V(3823) - A(1443) = RCT(1443)*V(3823) - A(1444) = RCT(1444)*V(3823) - A(1445) = RCT(1445)*V(4010)*V(5256) - A(1446) = RCT(1446)*V(4010)*V(5258) - A(1447) = RCT(1447)*V(4010)*V(5250) - A(1448) = RCT(1448)*V(4010)*V(5250) - A(1449) = RCT(1449)*V(4010) - A(1450) = RCT(1450)*V(4010) - A(1451) = RCT(1451)*V(3523)*V(5255) - A(1452) = RCT(1452)*V(3523)*V(5252) - A(1453) = RCT(1453)*V(3523)*V(5252) - A(1454) = RCT(1454)*V(3523)*V(5256) - A(1455) = RCT(1455)*V(3523) - A(1456) = RCT(1456)*V(3523) - A(1457) = RCT(1457)*V(3523) - A(1458) = RCT(1458)*V(4028)*V(5255) - A(1459) = RCT(1459)*V(4028)*V(5252) - A(1460) = RCT(1460)*V(4028)*V(5252) - A(1461) = RCT(1461)*V(4028)*V(5256) - A(1462) = RCT(1462)*V(4028) - A(1463) = RCT(1463)*V(4028) - A(1464) = RCT(1464)*V(3834)*V(5256) - A(1465) = RCT(1465)*V(3834)*V(5258) - A(1466) = RCT(1466)*V(3834)*V(5250) - A(1467) = RCT(1467)*V(3834)*V(5250) - A(1468) = RCT(1468)*V(3834) - A(1469) = RCT(1469)*V(3834) - A(1470) = RCT(1470)*V(3158)*V(5256) - A(1471) = RCT(1471)*V(3158)*V(5256) - A(1472) = RCT(1472)*V(3158)*V(5256) - A(1473) = RCT(1473)*V(3158)*V(5250) - A(1474) = RCT(1474)*V(3158)*V(5250) - A(1475) = RCT(1475)*V(3158)*V(5250) - A(1476) = RCT(1476)*V(3509)*V(5255) - A(1477) = RCT(1477)*V(3509)*V(5252) - A(1478) = RCT(1478)*V(3509)*V(5252) - A(1479) = RCT(1479)*V(3509)*V(5256) - A(1480) = RCT(1480)*V(3509) - A(1481) = RCT(1481)*V(3509) - A(1482) = RCT(1482)*V(3509) - A(1483) = RCT(1483)*V(4003)*V(5255) - A(1484) = RCT(1484)*V(4003)*V(5252) - A(1485) = RCT(1485)*V(4003)*V(5252) - A(1486) = RCT(1486)*V(4003)*V(5256) - A(1487) = RCT(1487)*V(4003) - A(1488) = RCT(1488)*V(4003) - A(1489) = RCT(1489)*V(4003) - A(1490) = RCT(1490)*V(4056)*V(5256) - A(1491) = RCT(1491)*V(4056)*V(5258) - A(1492) = RCT(1492)*V(4056)*V(5250) - A(1493) = RCT(1493)*V(4056)*V(5250) - A(1494) = RCT(1494)*V(4056) - A(1495) = RCT(1495)*V(4056) - A(1496) = RCT(1496)*V(3131)*V(5256) - A(1497) = RCT(1497)*V(3131)*V(5256) - A(1498) = RCT(1498)*V(3131)*V(5256) - A(1499) = RCT(1499)*V(3131)*V(5250) - A(1500) = RCT(1500)*V(3131)*V(5250) - A(1501) = RCT(1501)*V(3131)*V(5250) - A(1502) = RCT(1502)*V(3507)*V(5255) - A(1503) = RCT(1503)*V(3507)*V(5252) - A(1504) = RCT(1504)*V(3507)*V(5252) - A(1505) = RCT(1505)*V(3507)*V(5256) - A(1506) = RCT(1506)*V(3507) - A(1507) = RCT(1507)*V(3507) - A(1508) = RCT(1508)*V(3507) - A(1509) = RCT(1509)*V(4529)*V(5255) - A(1510) = RCT(1510)*V(4529)*V(5252) - A(1511) = RCT(1511)*V(4529)*V(5252) - A(1512) = RCT(1512)*V(4529)*V(5256) - A(1513) = RCT(1513)*V(4529) - A(1514) = RCT(1514)*V(4529) - A(1515) = RCT(1515)*V(4083)*V(5256) - A(1516) = RCT(1516)*V(4083)*V(5258) - A(1517) = RCT(1517)*V(4083)*V(5250) - A(1518) = RCT(1518)*V(4083)*V(5250) - A(1519) = RCT(1519)*V(4083) - A(1520) = RCT(1520)*V(4083) - A(1521) = RCT(1521)*V(3135)*V(5256) - A(1522) = RCT(1522)*V(3135)*V(5256) - A(1523) = RCT(1523)*V(3135)*V(5256) - A(1524) = RCT(1524)*V(3135)*V(5250) - A(1525) = RCT(1525)*V(3135)*V(5250) - A(1526) = RCT(1526)*V(3135)*V(5250) - A(1527) = RCT(1527)*V(3481)*V(5255) - A(1528) = RCT(1528)*V(3481)*V(5252) - A(1529) = RCT(1529)*V(3481)*V(5252) - A(1530) = RCT(1530)*V(3481)*V(5256) - A(1531) = RCT(1531)*V(3481) - A(1532) = RCT(1532)*V(3481) - A(1533) = RCT(1533)*V(3481) - A(1534) = RCT(1534)*V(3136)*V(5256) - A(1535) = RCT(1535)*V(3136)*V(5256) - A(1536) = RCT(1536)*V(3136)*V(5256) - A(1537) = RCT(1537)*V(3136)*V(5250) - A(1538) = RCT(1538)*V(3136)*V(5250) - A(1539) = RCT(1539)*V(3136)*V(5250) - A(1540) = RCT(1540)*V(3811)*V(5255) - A(1541) = RCT(1541)*V(3811)*V(5252) - A(1542) = RCT(1542)*V(3811)*V(5252) - A(1543) = RCT(1543)*V(3811)*V(5256) - A(1544) = RCT(1544)*V(3811) - A(1545) = RCT(1545)*V(3811) - A(1546) = RCT(1546)*V(3811) - A(1547) = RCT(1547)*V(4032)*V(5256) - A(1548) = RCT(1548)*V(4032)*V(5258) - A(1549) = RCT(1549)*V(4032)*V(5250) - A(1550) = RCT(1550)*V(4032)*V(5250) - A(1551) = RCT(1551)*V(4032) - A(1552) = RCT(1552)*V(4032) - A(1553) = RCT(1553)*V(3807)*V(5255) - A(1554) = RCT(1554)*V(3807)*V(5252) - A(1555) = RCT(1555)*V(3807)*V(5252) - A(1556) = RCT(1556)*V(3807)*V(5256) - A(1557) = RCT(1557)*V(3807) - A(1558) = RCT(1558)*V(3807) - A(1559) = RCT(1559)*V(3807) - A(1560) = RCT(1560)*V(3149)*V(5256) - A(1561) = RCT(1561)*V(3149)*V(5256) - A(1562) = RCT(1562)*V(3149)*V(5256) - A(1563) = RCT(1563)*V(3149)*V(5250) - A(1564) = RCT(1564)*V(3149)*V(5250) - A(1565) = RCT(1565)*V(3149)*V(5250) - A(1566) = RCT(1566)*V(3804)*V(5255) - A(1567) = RCT(1567)*V(3804)*V(5252) - A(1568) = RCT(1568)*V(3804)*V(5252) - A(1569) = RCT(1569)*V(3804)*V(5256) - A(1570) = RCT(1570)*V(3804) - A(1571) = RCT(1571)*V(3804) - A(1572) = RCT(1572)*V(3804) - A(1573) = RCT(1573)*V(4094)*V(5256) - A(1574) = RCT(1574)*V(4094)*V(5258) - A(1575) = RCT(1575)*V(4094)*V(5250) - A(1576) = RCT(1576)*V(4094)*V(5250) - A(1577) = RCT(1577)*V(4094) - A(1578) = RCT(1578)*V(4094) - A(1579) = RCT(1579)*V(4068)*V(5255) - A(1580) = RCT(1580)*V(4068)*V(5252) - A(1581) = RCT(1581)*V(4068)*V(5252) - A(1582) = RCT(1582)*V(4068)*V(5256) - A(1583) = RCT(1583)*V(4068) - A(1584) = RCT(1584)*V(4068) - A(1585) = RCT(1585)*V(3172)*V(5256) - A(1586) = RCT(1586)*V(3172)*V(5256) - A(1587) = RCT(1587)*V(3172)*V(5256) - A(1588) = RCT(1588)*V(3172)*V(5250) - A(1589) = RCT(1589)*V(3172)*V(5250) - A(1590) = RCT(1590)*V(3172)*V(5250) - A(1591) = RCT(1591)*V(3794)*V(5255) - A(1592) = RCT(1592)*V(3794)*V(5252) - A(1593) = RCT(1593)*V(3794)*V(5252) - A(1594) = RCT(1594)*V(3794)*V(5256) - A(1595) = RCT(1595)*V(3794) - A(1596) = RCT(1596)*V(3794) - A(1597) = RCT(1597)*V(3794) - A(1598) = RCT(1598)*V(4093)*V(5256) - A(1599) = RCT(1599)*V(4093)*V(5258) - A(1600) = RCT(1600)*V(4093)*V(5250) - A(1601) = RCT(1601)*V(4093)*V(5250) - A(1602) = RCT(1602)*V(4093) - A(1603) = RCT(1603)*V(4093) - A(1604) = RCT(1604)*V(3521)*V(5255) - A(1605) = RCT(1605)*V(3521)*V(5252) - A(1606) = RCT(1606)*V(3521)*V(5252) - A(1607) = RCT(1607)*V(3521)*V(5256) - A(1608) = RCT(1608)*V(3521) - A(1609) = RCT(1609)*V(3521) - A(1610) = RCT(1610)*V(3521) - A(1611) = RCT(1611)*V(3180)*V(5256) - A(1612) = RCT(1612)*V(3180)*V(5256) - A(1613) = RCT(1613)*V(3180)*V(5256) - A(1614) = RCT(1614)*V(3180)*V(5250) - A(1615) = RCT(1615)*V(3180)*V(5250) - A(1616) = RCT(1616)*V(3180)*V(5250) - A(1617) = RCT(1617)*V(3803)*V(5255) - A(1618) = RCT(1618)*V(3803)*V(5252) - A(1619) = RCT(1619)*V(3803)*V(5252) - A(1620) = RCT(1620)*V(3803)*V(5256) - A(1621) = RCT(1621)*V(3803) - A(1622) = RCT(1622)*V(3803) - A(1623) = RCT(1623)*V(3803) - A(1624) = RCT(1624)*V(3622)*V(5258) - A(1625) = RCT(1625)*V(3622)*V(5250) - A(1626) = RCT(1626)*V(3622) - A(1627) = RCT(1627)*V(3622) - A(1628) = RCT(1628)*V(3525)*V(5255) - A(1629) = RCT(1629)*V(3525)*V(5252) - A(1630) = RCT(1630)*V(3525)*V(5252) - A(1631) = RCT(1631)*V(3525)*V(5256) - A(1632) = RCT(1632)*V(3525) - A(1633) = RCT(1633)*V(3525) - A(1634) = RCT(1634)*V(3525) - A(1635) = RCT(1635)*V(4133)*V(5255) - A(1636) = RCT(1636)*V(4133)*V(5252) - A(1637) = RCT(1637)*V(4133)*V(5252) - A(1638) = RCT(1638)*V(4133)*V(5256) - A(1639) = RCT(1639)*V(4133) - A(1640) = RCT(1640)*V(4133) - A(1641) = RCT(1641)*V(3139)*V(5256) - A(1642) = RCT(1642)*V(3139)*V(5256) - A(1643) = RCT(1643)*V(3139)*V(5256) - A(1644) = RCT(1644)*V(3139)*V(5250) - A(1645) = RCT(1645)*V(3139)*V(5250) - A(1646) = RCT(1646)*V(3139)*V(5250) - A(1647) = RCT(1647)*V(4027)*V(5256) - A(1648) = RCT(1648)*V(4027)*V(5258) - A(1649) = RCT(1649)*V(4027)*V(5250) - A(1650) = RCT(1650)*V(4027)*V(5250) - A(1651) = RCT(1651)*V(4027) - A(1652) = RCT(1652)*V(4027) - A(1653) = RCT(1653)*V(3492)*V(5255) - A(1654) = RCT(1654)*V(3492)*V(5252) - A(1655) = RCT(1655)*V(3492)*V(5252) - A(1656) = RCT(1656)*V(3492)*V(5256) - A(1657) = RCT(1657)*V(3492) - A(1658) = RCT(1658)*V(3492) - A(1659) = RCT(1659)*V(3492) - A(1660) = RCT(1660)*V(4055)*V(5255) - A(1661) = RCT(1661)*V(4055)*V(5252) - A(1662) = RCT(1662)*V(4055)*V(5252) - A(1663) = RCT(1663)*V(4055)*V(5256) - A(1664) = RCT(1664)*V(4055) - A(1665) = RCT(1665)*V(4055) - A(1666) = RCT(1666)*V(4055) - A(1667) = RCT(1667)*V(3263)*V(5256) - A(1668) = RCT(1668)*V(3263)*V(5256) - A(1669) = RCT(1669)*V(3263)*V(5250) - A(1670) = RCT(1670)*V(3263)*V(5250) - A(1671) = RCT(1671)*V(3996)*V(5256) - A(1672) = RCT(1672)*V(3996)*V(5258) - A(1673) = RCT(1673)*V(3996)*V(5250) - A(1674) = RCT(1674)*V(3996)*V(5250) - A(1675) = RCT(1675)*V(3996) - A(1676) = RCT(1676)*V(3996) - A(1677) = RCT(1677)*V(3797)*V(5255) - A(1678) = RCT(1678)*V(3797)*V(5252) - A(1679) = RCT(1679)*V(3797)*V(5252) - A(1680) = RCT(1680)*V(3797)*V(5256) - A(1681) = RCT(1681)*V(3797) - A(1682) = RCT(1682)*V(3797) - A(1683) = RCT(1683)*V(3797) - A(1684) = RCT(1684)*V(4074)*V(5255) - A(1685) = RCT(1685)*V(4074)*V(5252) - A(1686) = RCT(1686)*V(4074)*V(5252) - A(1687) = RCT(1687)*V(4074)*V(5256) - A(1688) = RCT(1688)*V(4074) - A(1689) = RCT(1689)*V(4074) - A(1690) = RCT(1690)*V(3833)*V(5256) - A(1691) = RCT(1691)*V(3833)*V(5258) - A(1692) = RCT(1692)*V(3833)*V(5250) - A(1693) = RCT(1693)*V(3833)*V(5250) - A(1694) = RCT(1694)*V(3833) - A(1695) = RCT(1695)*V(3833) - A(1696) = RCT(1696)*V(3193)*V(5256) - A(1697) = RCT(1697)*V(3193)*V(5256) - A(1698) = RCT(1698)*V(3193)*V(5256) - A(1699) = RCT(1699)*V(3193)*V(5250) - A(1700) = RCT(1700)*V(3193)*V(5250) - A(1701) = RCT(1701)*V(3193)*V(5250) - A(1702) = RCT(1702)*V(3798)*V(5255) - A(1703) = RCT(1703)*V(3798)*V(5252) - A(1704) = RCT(1704)*V(3798)*V(5252) - A(1705) = RCT(1705)*V(3798)*V(5256) - A(1706) = RCT(1706)*V(3798) - A(1707) = RCT(1707)*V(3798) - A(1708) = RCT(1708)*V(3798) - A(1709) = RCT(1709)*V(4080)*V(5256) - A(1710) = RCT(1710)*V(4080)*V(5258) - A(1711) = RCT(1711)*V(4080)*V(5250) - A(1712) = RCT(1712)*V(4080)*V(5250) - A(1713) = RCT(1713)*V(4080) - A(1714) = RCT(1714)*V(4080) - A(1715) = RCT(1715)*V(3164)*V(5256) - A(1716) = RCT(1716)*V(3164)*V(5256) - A(1717) = RCT(1717)*V(3164)*V(5256) - A(1718) = RCT(1718)*V(3164)*V(5250) - A(1719) = RCT(1719)*V(3164)*V(5250) - A(1720) = RCT(1720)*V(3164)*V(5250) - A(1721) = RCT(1721)*V(3527)*V(5255) - A(1722) = RCT(1722)*V(3527)*V(5252) - A(1723) = RCT(1723)*V(3527)*V(5252) - A(1724) = RCT(1724)*V(3527)*V(5256) - A(1725) = RCT(1725)*V(3527) - A(1726) = RCT(1726)*V(3527) - A(1727) = RCT(1727)*V(4272)*V(5256) - A(1728) = RCT(1728)*V(4272)*V(5258) - A(1729) = RCT(1729)*V(4272)*V(5250) - A(1730) = RCT(1730)*V(4272)*V(5250) - A(1731) = RCT(1731)*V(4272) - A(1732) = RCT(1732)*V(4272) - A(1733) = RCT(1733)*V(3130)*V(5256) - A(1734) = RCT(1734)*V(3130)*V(5256) - A(1735) = RCT(1735)*V(3130)*V(5256) - A(1736) = RCT(1736)*V(3130)*V(5250) - A(1737) = RCT(1737)*V(3130)*V(5250) - A(1738) = RCT(1738)*V(3130)*V(5250) - A(1739) = RCT(1739)*V(3819)*V(5255) - A(1740) = RCT(1740)*V(3819)*V(5252) - A(1741) = RCT(1741)*V(3819)*V(5252) - A(1742) = RCT(1742)*V(3819)*V(5256) - A(1743) = RCT(1743)*V(3819) - A(1744) = RCT(1744)*V(3819) - A(1745) = RCT(1745)*V(3819) - A(1746) = RCT(1746)*V(3817)*V(5255) - A(1747) = RCT(1747)*V(3817)*V(5252) - A(1748) = RCT(1748)*V(3817)*V(5252) - A(1749) = RCT(1749)*V(3817)*V(5256) - A(1750) = RCT(1750)*V(3817) - A(1751) = RCT(1751)*V(3817) - A(1752) = RCT(1752)*V(3817) - A(1753) = RCT(1753)*V(4018)*V(5256) - A(1754) = RCT(1754)*V(4018)*V(5258) - A(1755) = RCT(1755)*V(4018)*V(5250) - A(1756) = RCT(1756)*V(4018)*V(5250) - A(1757) = RCT(1757)*V(4018) - A(1758) = RCT(1758)*V(4018) - A(1759) = RCT(1759)*V(3244)*V(5256) - A(1760) = RCT(1760)*V(3244)*V(5256) - A(1761) = RCT(1761)*V(3244)*V(5250) - A(1762) = RCT(1762)*V(3244)*V(5250) - A(1763) = RCT(1763)*V(3790)*V(5255) - A(1764) = RCT(1764)*V(3790)*V(5252) - A(1765) = RCT(1765)*V(3790)*V(5252) - A(1766) = RCT(1766)*V(3790)*V(5256) - A(1767) = RCT(1767)*V(3790) - A(1768) = RCT(1768)*V(3790) - A(1769) = RCT(1769)*V(3790) - A(1770) = RCT(1770)*V(3219)*V(5256) - A(1771) = RCT(1771)*V(3219)*V(5256) - A(1772) = RCT(1772)*V(3219)*V(5250) - A(1773) = RCT(1773)*V(3219)*V(5250) - A(1774) = RCT(1774)*V(4167)*V(5255) - A(1775) = RCT(1775)*V(4167)*V(5252) - A(1776) = RCT(1776)*V(4167)*V(5252) - A(1777) = RCT(1777)*V(4167)*V(5256) - A(1778) = RCT(1778)*V(4167) - A(1779) = RCT(1779)*V(4167) - A(1780) = RCT(1780)*V(4167) - A(1781) = RCT(1781)*V(4017)*V(5256) - A(1782) = RCT(1782)*V(4017)*V(5258) - A(1783) = RCT(1783)*V(4017)*V(5250) - A(1784) = RCT(1784)*V(4017)*V(5250) - A(1785) = RCT(1785)*V(4017) - A(1786) = RCT(1786)*V(4017) - A(1787) = RCT(1787)*V(3866)*V(5255) - A(1788) = RCT(1788)*V(3866)*V(5252) - A(1789) = RCT(1789)*V(3866)*V(5256) - A(1790) = RCT(1790)*V(3866) - A(1791) = RCT(1791)*V(3147) - A(1792) = RCT(1792)*V(3147) - A(1793) = RCT(1793)*V(3147) - A(1794) = RCT(1794)*V(3147) - A(1795) = RCT(1795)*V(3987)*V(5255) - A(1796) = RCT(1796)*V(3987)*V(5252) - A(1797) = RCT(1797)*V(3987)*V(5256) - A(1798) = RCT(1798)*V(3987) - A(1799) = RCT(1799)*V(4622)*V(5255) - A(1800) = RCT(1800)*V(4622)*V(5255) - A(1801) = RCT(1801)*V(4622)*V(5255) - A(1802) = RCT(1802)*V(4622)*V(5252) - A(1803) = RCT(1803)*V(4622)*V(5253) - A(1804) = RCT(1804)*V(4622)*V(5256) - A(1805) = RCT(1805)*V(4622) - A(1806) = RCT(1806)*V(4622) - A(1807) = RCT(1807)*V(4666)*V(5255) - A(1808) = RCT(1808)*V(4666)*V(5252) - A(1809) = RCT(1809)*V(4666)*V(5256) - A(1810) = RCT(1810)*V(4666) - A(1811) = RCT(1811)*V(3636)*V(5255) - A(1812) = RCT(1812)*V(3636)*V(5252) - A(1813) = RCT(1813)*V(3636)*V(5256) - A(1814) = RCT(1814)*V(3636) - A(1815) = RCT(1815)*V(3636) - A(1816) = RCT(1816)*V(3636) - A(1817) = RCT(1817)*V(3658)*V(5255) - A(1818) = RCT(1818)*V(3658)*V(5252) - A(1819) = RCT(1819)*V(3658)*V(5252) - A(1820) = RCT(1820)*V(3658)*V(5256) - A(1821) = RCT(1821)*V(3658) - A(1822) = RCT(1822)*V(3658) - A(1823) = RCT(1823)*V(3658) - A(1824) = RCT(1824)*V(686) - A(1825) = RCT(1825)*V(686) - A(1826) = RCT(1826)*V(686) - A(1827) = RCT(1827)*V(1959) - A(1828) = RCT(1828)*V(1959) - A(1829) = RCT(1829)*V(1959) - A(1830) = RCT(1830)*V(1959) - A(1831) = RCT(1831)*V(3670)*V(5255) - A(1832) = RCT(1832)*V(3670)*V(5252) - A(1833) = RCT(1833)*V(3670)*V(5252) - A(1834) = RCT(1834)*V(3670)*V(5256) - A(1835) = RCT(1835)*V(3670) - A(1836) = RCT(1836)*V(3670) - A(1837) = RCT(1837)*V(3670) - A(1838) = RCT(1838)*V(4111)*V(5255) - A(1839) = RCT(1839)*V(4111)*V(5252) - A(1840) = RCT(1840)*V(4111)*V(5252) - A(1841) = RCT(1841)*V(4111)*V(5256) - A(1842) = RCT(1842)*V(4111) - A(1843) = RCT(1843)*V(4111) - A(1844) = RCT(1844)*V(4111) - A(1845) = RCT(1845)*V(4372)*V(5255) - A(1846) = RCT(1846)*V(4372)*V(5252) - A(1847) = RCT(1847)*V(4372)*V(5252) - A(1848) = RCT(1848)*V(4372)*V(5256) - A(1849) = RCT(1849)*V(4372) - A(1850) = RCT(1850)*V(4372) - A(1851) = RCT(1851)*V(4372) - A(1852) = RCT(1852)*V(3634)*V(5255) - A(1853) = RCT(1853)*V(3634)*V(5252) - A(1854) = RCT(1854)*V(3634)*V(5252) - A(1855) = RCT(1855)*V(3634)*V(5256) - A(1856) = RCT(1856)*V(3634) - A(1857) = RCT(1857)*V(3634) - A(1858) = RCT(1858)*V(3634) - A(1859) = RCT(1859)*V(685) - A(1860) = RCT(1860)*V(685) - A(1861) = RCT(1861)*V(685) - A(1862) = RCT(1862)*V(5227) - A(1863) = RCT(1863)*V(5227) - A(1864) = RCT(1864)*V(5227)*V(5258) - A(1865) = RCT(1865)*V(5227)*V(5258) - A(1866) = RCT(1866)*V(5227)*V(5250) - A(1867) = RCT(1867)*V(5227)*V(5250) - A(1868) = RCT(1868)*V(2476) - A(1869) = RCT(1869)*V(2476) - A(1870) = RCT(1870)*V(2476) - A(1871) = RCT(1871)*V(2476) - A(1872) = RCT(1872)*V(3155) - A(1873) = RCT(1873)*V(3155) - A(1874) = RCT(1874)*V(3155) - A(1875) = RCT(1875)*V(3155) - A(1876) = RCT(1876)*V(702) - A(1877) = RCT(1877)*V(702) - A(1878) = RCT(1878)*V(715) - A(1879) = RCT(1879)*V(715) - A(1880) = RCT(1880)*V(5132)*V(5255) - A(1881) = RCT(1881)*V(5132)*V(5252) - A(1882) = RCT(1882)*V(5132)*V(5252) - A(1883) = RCT(1883)*V(5132)*V(5256) - A(1884) = RCT(1884)*V(5132) - A(1885) = RCT(1885)*V(5132) - A(1886) = RCT(1886)*V(5132) - A(1887) = RCT(1887)*V(4794)*V(5256) - A(1888) = RCT(1888)*V(4794)*V(5258) - A(1889) = RCT(1889)*V(4794)*V(5258) - A(1890) = RCT(1890)*V(4794)*V(5250) - A(1891) = RCT(1891)*V(4794)*V(5250) - A(1892) = RCT(1892)*V(4794) - A(1893) = RCT(1893)*V(4907)*V(5256) - A(1894) = RCT(1894)*V(4907)*V(5258) - A(1895) = RCT(1895)*V(4907)*V(5258) - A(1896) = RCT(1896)*V(4907)*V(5250) - A(1897) = RCT(1897)*V(4907) - A(1898) = RCT(1898)*V(606) - A(1899) = RCT(1899)*V(606) - A(1900) = RCT(1900)*V(607) - A(1901) = RCT(1901)*V(607) - A(1902) = RCT(1902)*V(3637)*V(5255) - A(1903) = RCT(1903)*V(3637)*V(5255) - A(1904) = RCT(1904)*V(3637)*V(5252) - A(1905) = RCT(1905)*V(3637)*V(5252) - A(1906) = RCT(1906)*V(3637)*V(5256) - A(1907) = RCT(1907)*V(3637) - A(1908) = RCT(1908)*V(3637) - A(1909) = RCT(1909)*V(3637) - A(1910) = RCT(1910)*V(4616)*V(5255) - A(1911) = RCT(1911)*V(4616)*V(5255) - A(1912) = RCT(1912)*V(4616)*V(5252) - A(1913) = RCT(1913)*V(4616)*V(5252) - A(1914) = RCT(1914)*V(4616)*V(5256) - A(1915) = RCT(1915)*V(4616) - A(1916) = RCT(1916)*V(4616) - A(1917) = RCT(1917)*V(4616) - A(1918) = RCT(1918)*V(4609)*V(5255) - A(1919) = RCT(1919)*V(4609)*V(5252) - A(1920) = RCT(1920)*V(4609)*V(5252) - A(1921) = RCT(1921)*V(4609)*V(5256) - A(1922) = RCT(1922)*V(4609) - A(1923) = RCT(1923)*V(4609) - A(1924) = RCT(1924)*V(4609) - A(1925) = RCT(1925)*V(5241)*V(5255) - A(1926) = RCT(1926)*V(5241)*V(5255) - A(1927) = RCT(1927)*V(5241)*V(5252) - A(1928) = RCT(1928)*V(5241)*V(5256) - A(1929) = RCT(1929)*V(5241) - A(1930) = RCT(1930)*V(5241) - A(1931) = RCT(1931)*V(5241) - A(1932) = RCT(1932)*V(5246)*V(5255) - A(1933) = RCT(1933)*V(5246)*V(5252) - A(1934) = RCT(1934)*V(5246)*V(5252) - A(1935) = RCT(1935)*V(5246)*V(5256) - A(1936) = RCT(1936)*V(5246) - A(1937) = RCT(1937)*V(5246) - A(1938) = RCT(1938)*V(5246) - A(1939) = RCT(1939)*V(5098)*V(5255) - A(1940) = RCT(1940)*V(5098)*V(5252) - A(1941) = RCT(1941)*V(5098)*V(5256) - A(1942) = RCT(1942)*V(5098) - A(1943) = RCT(1943)*V(5098) - A(1944) = RCT(1944)*V(5098) - A(1945) = RCT(1945)*V(5053)*V(5255) - A(1946) = RCT(1946)*V(5053)*V(5252) - A(1947) = RCT(1947)*V(5053)*V(5256) - A(1948) = RCT(1948)*V(5053) - A(1949) = RCT(1949)*V(5053) - A(1950) = RCT(1950)*V(5053) - A(1951) = RCT(1951)*V(5151)*V(5255) - A(1952) = RCT(1952)*V(5151)*V(5252) - A(1953) = RCT(1953)*V(5151)*V(5252) - A(1954) = RCT(1954)*V(5151)*V(5256) - A(1955) = RCT(1955)*V(5151) - A(1956) = RCT(1956)*V(5151) - A(1957) = RCT(1957)*V(5151) - A(1958) = RCT(1958)*V(4858)*V(5255) - A(1959) = RCT(1959)*V(4858)*V(5252) - A(1960) = RCT(1960)*V(4858)*V(5256) - A(1961) = RCT(1961)*V(4858) - A(1962) = RCT(1962)*V(4858) - A(1963) = RCT(1963)*V(4858) - A(1964) = RCT(1964)*V(4852)*V(5255) - A(1965) = RCT(1965)*V(4852)*V(5252) - A(1966) = RCT(1966)*V(4852)*V(5256) - A(1967) = RCT(1967)*V(4852) - A(1968) = RCT(1968)*V(4852) - A(1969) = RCT(1969)*V(4852) - A(1970) = RCT(1970)*V(5161)*V(5255) - A(1971) = RCT(1971)*V(5161)*V(5252) - A(1972) = RCT(1972)*V(5161)*V(5252) - A(1973) = RCT(1973)*V(5161)*V(5256) - A(1974) = RCT(1974)*V(5161) - A(1975) = RCT(1975)*V(5161) - A(1976) = RCT(1976)*V(5161) - A(1977) = RCT(1977)*V(4841)*V(5255) - A(1978) = RCT(1978)*V(4841)*V(5252) - A(1979) = RCT(1979)*V(4841)*V(5256) - A(1980) = RCT(1980)*V(4841) - A(1981) = RCT(1981)*V(4841) - A(1982) = RCT(1982)*V(5097)*V(5255) - A(1983) = RCT(1983)*V(5097)*V(5252) - A(1984) = RCT(1984)*V(5097)*V(5252) - A(1985) = RCT(1985)*V(5097)*V(5256) - A(1986) = RCT(1986)*V(5097) - A(1987) = RCT(1987)*V(5097) - A(1988) = RCT(1988)*V(5097) - A(1989) = RCT(1989)*V(4581)*V(5255) - A(1990) = RCT(1990)*V(4581)*V(5252) - A(1991) = RCT(1991)*V(4581)*V(5252) - A(1992) = RCT(1992)*V(4581)*V(5256) - A(1993) = RCT(1993)*V(4581) - A(1994) = RCT(1994)*V(4581) - A(1995) = RCT(1995)*V(4581) - A(1996) = RCT(1996)*V(4784)*V(5255) - A(1997) = RCT(1997)*V(4784)*V(5252) - A(1998) = RCT(1998)*V(4784)*V(5252) - A(1999) = RCT(1999)*V(4784)*V(5256) - A(2000) = RCT(2000)*V(4784) - A(2001) = RCT(2001)*V(4784) - A(2002) = RCT(2002)*V(4784) - A(2003) = RCT(2003)*V(4390)*V(5255) - A(2004) = RCT(2004)*V(4390)*V(5252) - A(2005) = RCT(2005)*V(4390)*V(5256) - A(2006) = RCT(2006)*V(4390) - A(2007) = RCT(2007)*V(4390) - A(2008) = RCT(2008)*V(4390) - A(2009) = RCT(2009)*V(4583)*V(5255) - A(2010) = RCT(2010)*V(4583)*V(5252) - A(2011) = RCT(2011)*V(4583)*V(5252) - A(2012) = RCT(2012)*V(4583)*V(5256) - A(2013) = RCT(2013)*V(4583) - A(2014) = RCT(2014)*V(4583) - A(2015) = RCT(2015)*V(4583) - A(2016) = RCT(2016)*V(4367)*V(5255) - A(2017) = RCT(2017)*V(4367)*V(5252) - A(2018) = RCT(2018)*V(4367)*V(5256) - A(2019) = RCT(2019)*V(4367) - A(2020) = RCT(2020)*V(4367) - A(2021) = RCT(2021)*V(4367) - A(2022) = RCT(2022)*V(4336)*V(5255) - A(2023) = RCT(2023)*V(4336)*V(5252) - A(2024) = RCT(2024)*V(4336)*V(5256) - A(2025) = RCT(2025)*V(4336) - A(2026) = RCT(2026)*V(4336) - A(2027) = RCT(2027)*V(4336) - A(2028) = RCT(2028)*V(4356)*V(5255) - A(2029) = RCT(2029)*V(4356)*V(5252) - A(2030) = RCT(2030)*V(4356)*V(5252) - A(2031) = RCT(2031)*V(4356)*V(5256) - A(2032) = RCT(2032)*V(4356) - A(2033) = RCT(2033)*V(4356) - A(2034) = RCT(2034)*V(4356) - A(2035) = RCT(2035)*V(5032)*V(5255) - A(2036) = RCT(2036)*V(5032)*V(5252) - A(2037) = RCT(2037)*V(5032)*V(5252) - A(2038) = RCT(2038)*V(5032)*V(5256) - A(2039) = RCT(2039)*V(5032) - A(2040) = RCT(2040)*V(5032) - A(2041) = RCT(2041)*V(4594)*V(5255) - A(2042) = RCT(2042)*V(4594)*V(5252) - A(2043) = RCT(2043)*V(4594)*V(5256) - A(2044) = RCT(2044)*V(4594) - A(2045) = RCT(2045)*V(4594) - A(2046) = RCT(2046)*V(4594) - A(2047) = RCT(2047)*V(3836)*V(5255) - A(2048) = RCT(2048)*V(3836)*V(5252) - A(2049) = RCT(2049)*V(3836)*V(5252) - A(2050) = RCT(2050)*V(3836)*V(5256) - A(2051) = RCT(2051)*V(3836) - A(2052) = RCT(2052)*V(3836) - A(2053) = RCT(2053)*V(3836) - A(2054) = RCT(2054)*V(5081)*V(5255) - A(2055) = RCT(2055)*V(5081)*V(5252) - A(2056) = RCT(2056)*V(5081)*V(5252) - A(2057) = RCT(2057)*V(5081)*V(5256) - A(2058) = RCT(2058)*V(5081) - A(2059) = RCT(2059)*V(5081) - A(2060) = RCT(2060)*V(5081) - A(2061) = RCT(2061)*V(3943)*V(5255) - A(2062) = RCT(2062)*V(3943)*V(5252) - A(2063) = RCT(2063)*V(3943)*V(5256) - A(2064) = RCT(2064)*V(3943) - A(2065) = RCT(2065)*V(3943) - A(2066) = RCT(2066)*V(4925)*V(5255) - A(2067) = RCT(2067)*V(4925)*V(5252) - A(2068) = RCT(2068)*V(4925)*V(5256) - A(2069) = RCT(2069)*V(4925) - A(2070) = RCT(2070)*V(4925) - A(2071) = RCT(2071)*V(4925) - A(2072) = RCT(2072)*V(293) - A(2073) = RCT(2073)*V(293) - A(2074) = RCT(2074)*V(604) - A(2075) = RCT(2075)*V(604) - A(2076) = RCT(2076)*V(3921)*V(5255) - A(2077) = RCT(2077)*V(3921)*V(5252) - A(2078) = RCT(2078)*V(3921)*V(5252) - A(2079) = RCT(2079)*V(3921)*V(5256) - A(2080) = RCT(2080)*V(3921) - A(2081) = RCT(2081)*V(3921) - A(2082) = RCT(2082)*V(3936)*V(5255) - A(2083) = RCT(2083)*V(3936)*V(5252) - A(2084) = RCT(2084)*V(3936)*V(5252) - A(2085) = RCT(2085)*V(3936)*V(5256) - A(2086) = RCT(2086)*V(3936) - A(2087) = RCT(2087)*V(3936) - A(2088) = RCT(2088)*V(3936) - A(2089) = RCT(2089)*V(4091)*V(5255) - A(2090) = RCT(2090)*V(4091)*V(5252) - A(2091) = RCT(2091)*V(4091)*V(5252) - A(2092) = RCT(2092)*V(4091)*V(5256) - A(2093) = RCT(2093)*V(4091) - A(2094) = RCT(2094)*V(4091) - A(2095) = RCT(2095)*V(4097)*V(5255) - A(2096) = RCT(2096)*V(4097)*V(5252) - A(2097) = RCT(2097)*V(4097)*V(5256) - A(2098) = RCT(2098)*V(4097) - A(2099) = RCT(2099)*V(4097) - A(2100) = RCT(2100)*V(3806)*V(5255) - A(2101) = RCT(2101)*V(3806)*V(5252) - A(2102) = RCT(2102)*V(3806)*V(5256) - A(2103) = RCT(2103)*V(3806) - A(2104) = RCT(2104)*V(3806) - A(2105) = RCT(2105)*V(3806) - A(2106) = RCT(2106)*V(5215)*V(5250) - A(2107) = RCT(2107)*V(5215)*V(5250) - A(2108) = RCT(2108)*V(5215)*V(5250) - A(2109) = RCT(2109)*V(5215)*V(5250) - A(2110) = RCT(2110)*V(4747) - A(2111) = RCT(2111)*V(4747) - A(2112) = RCT(2112)*V(4747) - A(2113) = RCT(2113)*V(640) - A(2114) = RCT(2114)*V(640) - A(2115) = RCT(2115)*V(640) - A(2116) = RCT(2116)*V(4185)*V(5255) - A(2117) = RCT(2117)*V(4185)*V(5252) - A(2118) = RCT(2118)*V(4185)*V(5252) - A(2119) = RCT(2119)*V(4185)*V(5256) - A(2120) = RCT(2120)*V(4185) - A(2121) = RCT(2121)*V(4185) - A(2122) = RCT(2122)*V(4146)*V(5255) - A(2123) = RCT(2123)*V(4146)*V(5252) - A(2124) = RCT(2124)*V(4146)*V(5252) - A(2125) = RCT(2125)*V(4146)*V(5256) - A(2126) = RCT(2126)*V(4146) - A(2127) = RCT(2127)*V(4146) - A(2128) = RCT(2128)*V(4146) - A(2129) = RCT(2129)*V(4090)*V(5255) - A(2130) = RCT(2130)*V(4090)*V(5252) - A(2131) = RCT(2131)*V(4090)*V(5252) - A(2132) = RCT(2132)*V(4090)*V(5256) - A(2133) = RCT(2133)*V(4090) - A(2134) = RCT(2134)*V(4090) - A(2135) = RCT(2135)*V(3940)*V(5255) - A(2136) = RCT(2136)*V(3940)*V(5252) - A(2137) = RCT(2137)*V(3940)*V(5256) - A(2138) = RCT(2138)*V(3940) - A(2139) = RCT(2139)*V(3940) - A(2140) = RCT(2140)*V(419) - A(2141) = RCT(2141)*V(419) - A(2142) = RCT(2142)*V(719) - A(2143) = RCT(2143)*V(719) - A(2144) = RCT(2144)*V(3863)*V(5255) - A(2145) = RCT(2145)*V(3863)*V(5252) - A(2146) = RCT(2146)*V(3863)*V(5252) - A(2147) = RCT(2147)*V(3863)*V(5256) - A(2148) = RCT(2148)*V(3863) - A(2149) = RCT(2149)*V(3863) - A(2150) = RCT(2150)*V(3867)*V(5255) - A(2151) = RCT(2151)*V(3867)*V(5252) - A(2152) = RCT(2152)*V(3867)*V(5252) - A(2153) = RCT(2153)*V(3867)*V(5256) - A(2154) = RCT(2154)*V(3867) - A(2155) = RCT(2155)*V(3867) - A(2156) = RCT(2156)*V(3867) - A(2157) = RCT(2157)*V(3994)*V(5255) - A(2158) = RCT(2158)*V(3994)*V(5252) - A(2159) = RCT(2159)*V(3994)*V(5252) - A(2160) = RCT(2160)*V(3994)*V(5256) - A(2161) = RCT(2161)*V(3994) - A(2162) = RCT(2162)*V(3994) - A(2163) = RCT(2163)*V(3891)*V(5255) - A(2164) = RCT(2164)*V(3891)*V(5252) - A(2165) = RCT(2165)*V(3891)*V(5256) - A(2166) = RCT(2166)*V(3891) - A(2167) = RCT(2167)*V(3891) - A(2168) = RCT(2168)*V(5048)*V(5251) - A(2169) = RCT(2169)*V(5048)*V(5252) - A(2170) = RCT(2170)*V(5048)*V(5253) - A(2171) = RCT(2171)*V(5048)*V(5254) - A(2172) = RCT(2172)*V(5048) - A(2173) = RCT(2173)*V(5048) - A(2174) = RCT(2174)*V(5092)*V(5251) - A(2175) = RCT(2175)*V(5092)*V(5252) - A(2176) = RCT(2176)*V(5092)*V(5253) - A(2177) = RCT(2177)*V(5092)*V(5254) - A(2178) = RCT(2178)*V(5092) - A(2179) = RCT(2179)*V(5092) - A(2180) = RCT(2180)*V(2470) - A(2181) = RCT(2181)*V(2470) - A(2182) = RCT(2182)*V(2470) - A(2183) = RCT(2183)*V(2470) - A(2184) = RCT(2184)*V(1746) - A(2185) = RCT(2185)*V(1746) - A(2186) = RCT(2186)*V(1746) - A(2187) = RCT(2187)*V(3971)*V(5255) - A(2188) = RCT(2188)*V(3971)*V(5252) - A(2189) = RCT(2189)*V(3971)*V(5252) - A(2190) = RCT(2190)*V(3971)*V(5256) - A(2191) = RCT(2191)*V(3971) - A(2192) = RCT(2192)*V(3971) - A(2193) = RCT(2193)*V(3963)*V(5255) - A(2194) = RCT(2194)*V(3963)*V(5252) - A(2195) = RCT(2195)*V(3963)*V(5252) - A(2196) = RCT(2196)*V(3963)*V(5256) - A(2197) = RCT(2197)*V(3963) - A(2198) = RCT(2198)*V(3963) - A(2199) = RCT(2199)*V(3963) - A(2200) = RCT(2200)*V(3898)*V(5255) - A(2201) = RCT(2201)*V(3898)*V(5252) - A(2202) = RCT(2202)*V(3898)*V(5252) - A(2203) = RCT(2203)*V(3898)*V(5256) - A(2204) = RCT(2204)*V(3898) - A(2205) = RCT(2205)*V(3898) - A(2206) = RCT(2206)*V(1809)*V(5250) - A(2207) = RCT(2207)*V(1809)*V(5250) - A(2208) = RCT(2208)*V(1809) - A(2209) = RCT(2209)*V(2096)*V(5250) - A(2210) = RCT(2210)*V(2707) - A(2211) = RCT(2211)*V(2707) - A(2212) = RCT(2212)*V(2456) - A(2213) = RCT(2213)*V(2456)*V(5250) - A(2214) = RCT(2214)*V(2456)*V(5250) - A(2215) = RCT(2215)*V(2306) - A(2216) = RCT(2216)*V(2306)*V(5250) - A(2217) = RCT(2217)*V(1679) - A(2218) = RCT(2218)*V(5184) - A(2219) = RCT(2219)*V(5184)*V(5256) - A(2220) = RCT(2220)*V(5184)*V(5250) - A(2221) = RCT(2221)*V(416)*V(5250) - A(2222) = RCT(2222)*V(1899)*V(5250) - A(2223) = RCT(2223)*V(1899)*V(5250) - A(2224) = RCT(2224)*V(1899) - A(2225) = RCT(2225)*V(2639) - A(2226) = RCT(2226)*V(3245)*V(5250) - A(2227) = RCT(2227)*V(3277)*V(5250) - A(2228) = RCT(2228)*V(3277)*V(5250) - A(2229) = RCT(2229)*V(3277) - A(2230) = RCT(2230)*V(2229) - A(2231) = RCT(2231)*V(2433)*V(5250) - A(2232) = RCT(2232)*V(1886)*V(5250) - A(2233) = RCT(2233)*V(1886)*V(5250) - A(2234) = RCT(2234)*V(1886) - A(2235) = RCT(2235)*V(2367)*V(5250) - A(2236) = RCT(2236)*V(2720) - A(2237) = RCT(2237)*V(3959)*V(5250) - A(2238) = RCT(2238)*V(3959) - A(2239) = RCT(2239)*V(847)*V(5250) - A(2240) = RCT(2240)*V(1914)*V(5250) - A(2241) = RCT(2241)*V(1914)*V(5250) - A(2242) = RCT(2242)*V(1914) - A(2243) = RCT(2243)*V(2128)*V(5250) - A(2244) = RCT(2244)*V(2128) - A(2245) = RCT(2245)*V(3386) - A(2246) = RCT(2246)*V(3386) - A(2247) = RCT(2247)*V(1140)*V(5250) - A(2248) = RCT(2248)*V(4973)*V(5250) - A(2249) = RCT(2249)*V(4973) - A(2250) = RCT(2250)*V(2503)*V(5250) - A(2251) = RCT(2251)*V(2503)*V(5250) - A(2252) = RCT(2252)*V(2503) - A(2253) = RCT(2253)*V(615) - A(2254) = RCT(2254)*V(1782)*V(5250) - A(2255) = RCT(2255)*V(4386)*V(5250) - A(2256) = RCT(2256)*V(4386) - A(2257) = RCT(2257)*V(335)*V(5250) - A(2258) = RCT(2258)*V(1138)*V(5250) - A(2259) = RCT(2259)*V(1138) - A(2260) = RCT(2260)*V(3173)*V(5250) - A(2261) = RCT(2261)*V(2840) - A(2262) = RCT(2262)*V(1369)*V(5250) - A(2263) = RCT(2263)*V(2235)*V(5250) - A(2264) = RCT(2264)*V(2235)*V(5250) - A(2265) = RCT(2265)*V(2235) - A(2266) = RCT(2266)*V(2261)*V(5250) - A(2267) = RCT(2267)*V(2261) - A(2268) = RCT(2268)*V(1568) - A(2269) = RCT(2269)*V(5071) - A(2270) = RCT(2270)*V(5071)*V(5256) - A(2271) = RCT(2271)*V(5071)*V(5250) - A(2272) = RCT(2272)*V(126)*V(5250) - A(2273) = RCT(2273)*V(3299)*V(5250) - A(2274) = RCT(2274)*V(3299)*V(5250) - A(2275) = RCT(2275)*V(3299) - A(2276) = RCT(2276)*V(2037)*V(5250) - A(2277) = RCT(2277)*V(1944) - A(2278) = RCT(2278)*V(2391) - A(2279) = RCT(2279)*V(2391)*V(5250) - A(2280) = RCT(2280)*V(2391)*V(5250) - A(2281) = RCT(2281)*V(1800) - A(2282) = RCT(2282)*V(1800)*V(5250) - A(2283) = RCT(2283)*V(153) - A(2284) = RCT(2284)*V(286)*V(5250) - A(2285) = RCT(2285)*V(4872) - A(2286) = RCT(2286)*V(4872)*V(5256) - A(2287) = RCT(2287)*V(4872)*V(5250) - A(2288) = RCT(2288)*V(4872)*V(5250) - A(2289) = RCT(2289)*V(3265)*V(5250) - A(2290) = RCT(2290)*V(3265)*V(5250) - A(2291) = RCT(2291)*V(3265) - A(2292) = RCT(2292)*V(2297)*V(5250) - A(2293) = RCT(2293)*V(2066) - A(2294) = RCT(2294)*V(1035)*V(5250) - A(2295) = RCT(2295)*V(3735)*V(5250) - A(2296) = RCT(2296)*V(3735) - A(2297) = RCT(2297)*V(4634)*V(5255) - A(2298) = RCT(2298)*V(4634)*V(5255) - A(2299) = RCT(2299)*V(4634)*V(5255) - A(2300) = RCT(2300)*V(4634)*V(5252) - A(2301) = RCT(2301)*V(4634)*V(5253) - A(2302) = RCT(2302)*V(4634)*V(5256) - A(2303) = RCT(2303)*V(4634) - A(2304) = RCT(2304)*V(4634) - A(2305) = RCT(2305)*V(1108) - A(2306) = RCT(2306)*V(1108)*V(5250) - A(2307) = RCT(2307)*V(2198) - A(2308) = RCT(2308)*V(2198)*V(5250) - A(2309) = RCT(2309)*V(1906) - A(2310) = RCT(2310)*V(1050)*V(5250) - A(2311) = RCT(2311)*V(4524) - A(2312) = RCT(2312)*V(4524)*V(5250) - A(2313) = RCT(2313)*V(1422)*V(5250) - A(2314) = RCT(2314)*V(1422) - A(2315) = RCT(2315)*V(3106)*V(5250) - A(2316) = RCT(2316)*V(2983) - A(2317) = RCT(2317)*V(874)*V(5250) - A(2318) = RCT(2318)*V(4380)*V(5255) - A(2319) = RCT(2319)*V(4380)*V(5255) - A(2320) = RCT(2320)*V(4380)*V(5255) - A(2321) = RCT(2321)*V(4380)*V(5252) - A(2322) = RCT(2322)*V(4380)*V(5253) - A(2323) = RCT(2323)*V(4380)*V(5256) - A(2324) = RCT(2324)*V(4380) - A(2325) = RCT(2325)*V(4380) - A(2326) = RCT(2326)*V(5239)*V(5255) - A(2327) = RCT(2327)*V(5239)*V(5252) - A(2328) = RCT(2328)*V(5239)*V(5252) - A(2329) = RCT(2329)*V(5239)*V(5256) - A(2330) = RCT(2330)*V(5239) - A(2331) = RCT(2331)*V(5239) - A(2332) = RCT(2332)*V(1265) - A(2333) = RCT(2333)*V(1265)*V(5250) - A(2334) = RCT(2334)*V(2542) - A(2335) = RCT(2335)*V(2542)*V(5250) - A(2336) = RCT(2336)*V(2374) - A(2337) = RCT(2337)*V(896)*V(5250) - A(2338) = RCT(2338)*V(2006)*V(5250) - A(2339) = RCT(2339)*V(2006)*V(5250) - A(2340) = RCT(2340)*V(2006) - A(2341) = RCT(2341)*V(1977)*V(5250) - A(2342) = RCT(2342)*V(2747) - A(2343) = RCT(2343)*V(1194)*V(5250) - A(2344) = RCT(2344)*V(3716)*V(5250) - A(2345) = RCT(2345)*V(3716) - A(2346) = RCT(2346)*V(1994) - A(2347) = RCT(2347)*V(1994)*V(5250) - A(2348) = RCT(2348)*V(1994)*V(5250) - A(2349) = RCT(2349)*V(2459) - A(2350) = RCT(2350)*V(2459)*V(5250) - A(2351) = RCT(2351)*V(2891) - A(2352) = RCT(2352)*V(2891) - A(2353) = RCT(2353)*V(5057) - A(2354) = RCT(2354)*V(5057)*V(5256) - A(2355) = RCT(2355)*V(5057)*V(5250) - A(2356) = RCT(2356)*V(1948)*V(5250) - A(2357) = RCT(2357)*V(1948)*V(5250) - A(2358) = RCT(2358)*V(1948) - A(2359) = RCT(2359)*V(1976)*V(5250) - A(2360) = RCT(2360)*V(3422) - A(2361) = RCT(2361)*V(3422) - A(2362) = RCT(2362)*V(1124)*V(5250) - A(2363) = RCT(2363)*V(3536)*V(5250) - A(2364) = RCT(2364)*V(3310)*V(5250) - A(2365) = RCT(2365)*V(3310)*V(5250) - A(2366) = RCT(2366)*V(3310) - A(2367) = RCT(2367)*V(1957)*V(5250) - A(2368) = RCT(2368)*V(2090) - A(2369) = RCT(2369)*V(5012)*V(5256) - A(2370) = RCT(2370)*V(5012)*V(5250) - A(2371) = RCT(2371)*V(5012) - A(2372) = RCT(2372)*V(1842) - A(2373) = RCT(2373)*V(1842)*V(5250) - A(2374) = RCT(2374)*V(1842)*V(5250) - A(2375) = RCT(2375)*V(2220) - A(2376) = RCT(2376)*V(2220)*V(5250) - A(2377) = RCT(2377)*V(2647) - A(2378) = RCT(2378)*V(2647) - A(2379) = RCT(2379)*V(4737) - A(2380) = RCT(2380)*V(4737)*V(5256) - A(2381) = RCT(2381)*V(4737)*V(5250) - A(2382) = RCT(2382)*V(4737)*V(5250) - A(2383) = RCT(2383)*V(3444)*V(5250) - A(2384) = RCT(2384)*V(3444)*V(5250) - A(2385) = RCT(2385)*V(3444) - A(2386) = RCT(2386)*V(3159)*V(5250) - A(2387) = RCT(2387)*V(1924) - A(2388) = RCT(2388)*V(3018)*V(5250) - A(2389) = RCT(2389)*V(3018)*V(5250) - A(2390) = RCT(2390)*V(3018) - A(2391) = RCT(2391)*V(765) - A(2392) = RCT(2392)*V(1400)*V(5250) - A(2393) = RCT(2393)*V(278)*V(5250) - A(2394) = RCT(2394)*V(3653)*V(5250) - A(2395) = RCT(2395)*V(3653) - A(2396) = RCT(2396)*V(3623)*V(5250) - A(2397) = RCT(2397)*V(3623)*V(5250) - A(2398) = RCT(2398)*V(3623) - A(2399) = RCT(2399)*V(3623) - A(2400) = RCT(2400)*V(2029) - A(2401) = RCT(2401)*V(2438)*V(5250) - A(2402) = RCT(2402)*V(2438) - A(2403) = RCT(2403)*V(1671)*V(5250) - A(2404) = RCT(2404)*V(1671) - A(2405) = RCT(2405)*V(1897)*V(5250) - A(2406) = RCT(2406)*V(1897)*V(5250) - A(2407) = RCT(2407)*V(1897) - A(2408) = RCT(2408)*V(2550) - A(2409) = RCT(2409)*V(1081)*V(5250) - A(2410) = RCT(2410)*V(2001) - A(2411) = RCT(2411)*V(2001)*V(5250) - A(2412) = RCT(2412)*V(3547) - A(2413) = RCT(2413)*V(3547)*V(5250) - A(2414) = RCT(2414)*V(3207)*V(5250) - A(2415) = RCT(2415)*V(3207) - A(2416) = RCT(2416)*V(3207) - A(2417) = RCT(2417)*V(630) - A(2418) = RCT(2418)*V(1582)*V(5250) - A(2419) = RCT(2419)*V(1582) - A(2420) = RCT(2420)*V(3892)*V(5256) - A(2421) = RCT(2421)*V(3892)*V(5250) - A(2422) = RCT(2422)*V(3892) - A(2423) = RCT(2423)*V(818)*V(5250) - A(2424) = RCT(2424)*V(1066)*V(5250) - A(2425) = RCT(2425)*V(1066) - A(2426) = RCT(2426)*V(2657)*V(5250) - A(2427) = RCT(2427)*V(2657) - A(2428) = RCT(2428)*V(5232)*V(5255) - A(2429) = RCT(2429)*V(5232)*V(5255) - A(2430) = RCT(2430)*V(5232)*V(5255) - A(2431) = RCT(2431)*V(5232)*V(5252) - A(2432) = RCT(2432)*V(5232)*V(5253) - A(2433) = RCT(2433)*V(5232)*V(5256) - A(2434) = RCT(2434)*V(5232) - A(2435) = RCT(2435)*V(5232) - A(2436) = RCT(2436)*V(4924)*V(5255) - A(2437) = RCT(2437)*V(4924)*V(5255) - A(2438) = RCT(2438)*V(4924)*V(5252) - A(2439) = RCT(2439)*V(4924)*V(5253) - A(2440) = RCT(2440)*V(4924)*V(5256) - A(2441) = RCT(2441)*V(4924) - A(2442) = RCT(2442)*V(3198)*V(5250) - A(2443) = RCT(2443)*V(3198)*V(5250) - A(2444) = RCT(2444)*V(3198) - A(2445) = RCT(2445)*V(1808) - A(2446) = RCT(2446)*V(578)*V(5250) - A(2447) = RCT(2447)*V(2276)*V(5250) - A(2448) = RCT(2448)*V(2010)*V(5250) - A(2449) = RCT(2449)*V(2010)*V(5250) - A(2450) = RCT(2450)*V(2010) - A(2451) = RCT(2451)*V(2869) - A(2452) = RCT(2452)*V(1894)*V(5250) - A(2453) = RCT(2453)*V(232)*V(5250) - A(2454) = RCT(2454)*V(4908)*V(5251) - A(2455) = RCT(2455)*V(4908)*V(5252) - A(2456) = RCT(2456)*V(4908)*V(5253) - A(2457) = RCT(2457)*V(4908)*V(5254) - A(2458) = RCT(2458)*V(4908) - A(2459) = RCT(2459)*V(4908) - A(2460) = RCT(2460)*V(5243)*V(5255) - A(2461) = RCT(2461)*V(5243)*V(5255) - A(2462) = RCT(2462)*V(5243)*V(5255) - A(2463) = RCT(2463)*V(5243)*V(5252) - A(2464) = RCT(2464)*V(5243)*V(5253) - A(2465) = RCT(2465)*V(5243)*V(5256) - A(2466) = RCT(2466)*V(5243) - A(2467) = RCT(2467)*V(5243) - A(2468) = RCT(2468)*V(5223)*V(5251) - A(2469) = RCT(2469)*V(5223)*V(5252) - A(2470) = RCT(2470)*V(5223)*V(5253) - A(2471) = RCT(2471)*V(5223)*V(5254) - A(2472) = RCT(2472)*V(5223) - A(2473) = RCT(2473)*V(5223) - A(2474) = RCT(2474)*V(3243)*V(5250) - A(2475) = RCT(2475)*V(3243)*V(5250) - A(2476) = RCT(2476)*V(3243) - A(2477) = RCT(2477)*V(1815) - A(2478) = RCT(2478)*V(3755)*V(5250) - A(2479) = RCT(2479)*V(3755) - A(2480) = RCT(2480)*V(1120)*V(5250) - A(2481) = RCT(2481)*V(3256)*V(5250) - A(2482) = RCT(2482)*V(3256)*V(5250) - A(2483) = RCT(2483)*V(3256) - A(2484) = RCT(2484)*V(1882) - A(2485) = RCT(2485)*V(3603)*V(5250) - A(2486) = RCT(2486)*V(3603) - A(2487) = RCT(2487)*V(2044) - A(2488) = RCT(2488)*V(2044)*V(5250) - A(2489) = RCT(2489)*V(2044)*V(5250) - A(2490) = RCT(2490)*V(3394) - A(2491) = RCT(2491)*V(3394)*V(5250) - A(2492) = RCT(2492)*V(1634) - A(2493) = RCT(2493)*V(86) - A(2494) = RCT(2494)*V(4420)*V(5250) - A(2495) = RCT(2495)*V(4420)*V(5250) - A(2496) = RCT(2496)*V(4420) - A(2497) = RCT(2497)*V(4420) - A(2498) = RCT(2498)*V(2861) - A(2499) = RCT(2499)*V(987)*V(5250) - A(2500) = RCT(2500)*V(987) - A(2501) = RCT(2501)*V(751)*V(5250) - A(2502) = RCT(2502)*V(3003)*V(5250) - A(2503) = RCT(2503)*V(3003) - A(2504) = RCT(2504)*V(2188) - A(2505) = RCT(2505)*V(2188)*V(5250) - A(2506) = RCT(2506)*V(2188)*V(5250) - A(2507) = RCT(2507)*V(1749) - A(2508) = RCT(2508)*V(1749)*V(5250) - A(2509) = RCT(2509)*V(691)*V(5250) - A(2510) = RCT(2510)*V(1500)*V(5250) - A(2511) = RCT(2511)*V(1500) - A(2512) = RCT(2512)*V(2537)*V(5250) - A(2513) = RCT(2513)*V(2537) - A(2514) = RCT(2514)*V(3540)*V(5250) - A(2515) = RCT(2515)*V(3540)*V(5250) - A(2516) = RCT(2516)*V(3540) - A(2517) = RCT(2517)*V(3540) - A(2518) = RCT(2518)*V(2077)*V(5250) - A(2519) = RCT(2519)*V(2077) - A(2520) = RCT(2520)*V(3383) - A(2521) = RCT(2521)*V(3383) - A(2522) = RCT(2522)*V(5242)*V(5256) - A(2523) = RCT(2523)*V(5242)*V(5250) - A(2524) = RCT(2524)*V(5242) - A(2525) = RCT(2525)*V(5055) - A(2526) = RCT(2526)*V(5055)*V(5256) - A(2527) = RCT(2527)*V(5055)*V(5250) - A(2528) = RCT(2528)*V(5055)*V(5250) - A(2529) = RCT(2529)*V(2292) - A(2530) = RCT(2530)*V(2292)*V(5250) - A(2531) = RCT(2531)*V(2292)*V(5250) - A(2532) = RCT(2532)*V(1974) - A(2533) = RCT(2533)*V(1974)*V(5250) - A(2534) = RCT(2534)*V(1695) - A(2535) = RCT(2535)*V(631)*V(5250) - A(2536) = RCT(2536)*V(1466)*V(5250) - A(2537) = RCT(2537)*V(1466) - A(2538) = RCT(2538)*V(2612)*V(5250) - A(2539) = RCT(2539)*V(2612) - A(2540) = RCT(2540)*V(2463)*V(5250) - A(2541) = RCT(2541)*V(2463)*V(5250) - A(2542) = RCT(2542)*V(2463) - A(2543) = RCT(2543)*V(2338)*V(5250) - A(2544) = RCT(2544)*V(2338) - A(2545) = RCT(2545)*V(1702) - A(2546) = RCT(2546)*V(3995)*V(5256) - A(2547) = RCT(2547)*V(3995)*V(5250) - A(2548) = RCT(2548)*V(3995) - A(2549) = RCT(2549)*V(2993)*V(5250) - A(2550) = RCT(2550)*V(2993) - A(2551) = RCT(2551)*V(2993) - A(2552) = RCT(2552)*V(2992) - A(2553) = RCT(2553)*V(2126) - A(2554) = RCT(2554)*V(2126)*V(5250) - A(2555) = RCT(2555)*V(2126)*V(5250) - A(2556) = RCT(2556)*V(2427) - A(2557) = RCT(2557)*V(2427)*V(5250) - A(2558) = RCT(2558)*V(1662) - A(2559) = RCT(2559)*V(611)*V(5250) - A(2560) = RCT(2560)*V(1332)*V(5250) - A(2561) = RCT(2561)*V(1332) - A(2562) = RCT(2562)*V(2611)*V(5250) - A(2563) = RCT(2563)*V(2611) - A(2564) = RCT(2564)*V(1880)*V(5250) - A(2565) = RCT(2565)*V(1880)*V(5250) - A(2566) = RCT(2566)*V(1880) - A(2567) = RCT(2567)*V(2106)*V(5250) - A(2568) = RCT(2568)*V(2106) - A(2569) = RCT(2569)*V(1725) - A(2570) = RCT(2570)*V(5143) - A(2571) = RCT(2571)*V(5143)*V(5256) - A(2572) = RCT(2572)*V(5143)*V(5250) - A(2573) = RCT(2573)*V(2318) - A(2574) = RCT(2574)*V(2318)*V(5250) - A(2575) = RCT(2575)*V(2318)*V(5250) - A(2576) = RCT(2576)*V(1921) - A(2577) = RCT(2577)*V(1921)*V(5250) - A(2578) = RCT(2578)*V(2926) - A(2579) = RCT(2579)*V(2926) - A(2580) = RCT(2580)*V(3099)*V(5250) - A(2581) = RCT(2581)*V(3294) - A(2582) = RCT(2582)*V(3294)*V(5250) - A(2583) = RCT(2583)*V(3294)*V(5250) - A(2584) = RCT(2584)*V(3254) - A(2585) = RCT(2585)*V(3254)*V(5250) - A(2586) = RCT(2586)*V(875)*V(5250) - A(2587) = RCT(2587)*V(875) - A(2588) = RCT(2588)*V(2526) - A(2589) = RCT(2589)*V(5023) - A(2590) = RCT(2590)*V(5023)*V(5256) - A(2591) = RCT(2591)*V(5023)*V(5250) - A(2592) = RCT(2592)*V(484)*V(5250) - A(2593) = RCT(2593)*V(4708)*V(5250) - A(2594) = RCT(2594)*V(4708) - A(2595) = 9.258e-11*V(2627)*V(5250) - A(2596) = RCT(2596)*V(2627) - A(2597) = RCT(2597)*V(3587) - A(2598) = RCT(2598)*V(3587)*V(5250) - A(2599) = RCT(2599)*V(1013) - A(2600) = RCT(2600)*V(3809) - A(2601) = RCT(2601)*V(3809) - A(2602) = RCT(2602)*V(3809) - A(2603) = RCT(2603)*V(5170)*V(5251) - A(2604) = RCT(2604)*V(5170)*V(5252) - A(2605) = RCT(2605)*V(5170)*V(5253) - A(2606) = RCT(2606)*V(5170)*V(5254) - A(2607) = RCT(2607)*V(5170) - A(2608) = RCT(2608)*V(5170) - A(2609) = RCT(2609)*V(642)*V(5250) - A(2610) = RCT(2610)*V(3448) - A(2611) = RCT(2611)*V(3448)*V(5250) - A(2612) = RCT(2612)*V(3448)*V(5250) - A(2613) = RCT(2613)*V(3448)*V(5250) - A(2614) = RCT(2614)*V(4330) - A(2615) = RCT(2615)*V(4330)*V(5258) - A(2616) = RCT(2616)*V(4330)*V(5250) - A(2617) = RCT(2617)*V(4330)*V(5250) - A(2618) = RCT(2618)*V(4330)*V(5250) - A(2619) = RCT(2619)*V(5156)*V(5251) - A(2620) = RCT(2620)*V(5156)*V(5252) - A(2621) = RCT(2621)*V(5156)*V(5253) - A(2622) = RCT(2622)*V(5156)*V(5254) - A(2623) = RCT(2623)*V(5156) - A(2624) = RCT(2624)*V(3330) - A(2625) = RCT(2625)*V(3330) - A(2626) = RCT(2626)*V(3330)*V(5250) - A(2627) = RCT(2627)*V(5221)*V(5250) - A(2628) = RCT(2628)*V(5221)*V(5250) - A(2629) = RCT(2629)*V(5221) - A(2630) = RCT(2630)*V(2004) - A(2631) = RCT(2631)*V(3993) - A(2632) = RCT(2632)*V(3993)*V(5250) - A(2633) = RCT(2633)*V(3462)*V(5250) - A(2634) = RCT(2634)*V(3462) - A(2635) = RCT(2635)*V(3462) - A(2636) = RCT(2636)*V(3929) - A(2637) = RCT(2637)*V(3929)*V(5250) - A(2638) = RCT(2638)*V(1866) - A(2639) = RCT(2639)*V(5094)*V(5250) - A(2640) = RCT(2640)*V(5094) - A(2641) = RCT(2641)*V(2873)*V(5250) - A(2642) = RCT(2642)*V(2873) - A(2643) = RCT(2643)*V(2346)*V(5250) - A(2644) = RCT(2644)*V(2811)*V(5250) - A(2645) = RCT(2645)*V(2811) - A(2646) = RCT(2646)*V(3660)*V(5256) - A(2647) = RCT(2647)*V(3660)*V(5250) - A(2648) = RCT(2648)*V(3660) - A(2649) = RCT(2649)*V(2734) - A(2650) = RCT(2650)*V(4156)*V(5256) - A(2651) = RCT(2651)*V(4156)*V(5250) - A(2652) = RCT(2652)*V(4156) - A(2653) = RCT(2653)*V(4156) - A(2654) = RCT(2654)*V(1853)*V(5250) - A(2655) = RCT(2655)*V(1853) - A(2656) = RCT(2656)*V(3654)*V(5256) - A(2657) = RCT(2657)*V(3654)*V(5250) - A(2658) = RCT(2658)*V(3654) - A(2659) = RCT(2659)*V(1011) - A(2660) = RCT(2660)*V(3520)*V(5250) - A(2661) = RCT(2661)*V(3520) - A(2662) = RCT(2662)*V(4943)*V(5251) - A(2663) = RCT(2663)*V(4943)*V(5252) - A(2664) = RCT(2664)*V(4943)*V(5253) - A(2665) = RCT(2665)*V(4943)*V(5254) - A(2666) = RCT(2666)*V(4943) - A(2667) = RCT(2667)*V(4943) - A(2668) = RCT(2668)*V(1185)*V(5250) - A(2669) = RCT(2669)*V(1185) - A(2670) = RCT(2670)*V(2795) - A(2671) = RCT(2671)*V(3044)*V(5250) - A(2672) = RCT(2672)*V(3044) - A(2673) = RCT(2673)*V(5210) - A(2674) = RCT(2674)*V(5210)*V(5256) - A(2675) = RCT(2675)*V(5210)*V(5250) - A(2676) = RCT(2676)*V(2805)*V(5250) - A(2677) = RCT(2677)*V(2805) - A(2678) = RCT(2678)*V(2805) - A(2679) = RCT(2679)*V(1872) - A(2680) = RCT(2680)*V(3171)*V(5250) - A(2681) = RCT(2681)*V(3171) - A(2682) = RCT(2682)*V(2435)*V(5250) - A(2683) = RCT(2683)*V(2435)*V(5250) - A(2684) = RCT(2684)*V(2435) - A(2685) = RCT(2685)*V(1946)*V(5250) - A(2686) = RCT(2686)*V(1946) - A(2687) = RCT(2687)*V(3429) - A(2688) = RCT(2688)*V(3429) - A(2689) = RCT(2689)*V(2339) - A(2690) = RCT(2690)*V(2339)*V(5250) - A(2691) = RCT(2691)*V(2339)*V(5250) - A(2692) = RCT(2692)*V(2237) - A(2693) = RCT(2693)*V(2237)*V(5250) - A(2694) = RCT(2694)*V(1715) - A(2695) = RCT(2695)*V(855)*V(5250) - A(2696) = RCT(2696)*V(855) - A(2697) = RCT(2697)*V(2687)*V(5250) - A(2698) = RCT(2698)*V(2687) - A(2699) = RCT(2699)*V(2227)*V(5250) - A(2700) = RCT(2700)*V(2227)*V(5250) - A(2701) = RCT(2701)*V(2227) - A(2702) = RCT(2702)*V(2285)*V(5250) - A(2703) = RCT(2703)*V(2285) - A(2704) = RCT(2704)*V(160) - A(2705) = RCT(2705)*V(345)*V(5250) - A(2706) = RCT(2706)*V(2057)*V(5250) - A(2707) = RCT(2707)*V(2057)*V(5250) - A(2708) = RCT(2708)*V(2057) - A(2709) = RCT(2709)*V(1965)*V(5250) - A(2710) = RCT(2710)*V(1965) - A(2711) = RCT(2711)*V(2699) - A(2712) = RCT(2712)*V(2699) - A(2713) = RCT(2713)*V(495)*V(5250) - A(2714) = RCT(2714)*V(999)*V(5250) - A(2715) = RCT(2715)*V(999) - A(2716) = RCT(2716)*V(2196)*V(5250) - A(2717) = RCT(2717)*V(2196) - A(2718) = RCT(2718)*V(3377) - A(2719) = RCT(2719)*V(3377) - A(2720) = RCT(2720)*V(1885) - A(2721) = RCT(2721)*V(1885)*V(5250) - A(2722) = RCT(2722)*V(1885)*V(5250) - A(2723) = RCT(2723)*V(2337) - A(2724) = RCT(2724)*V(2337)*V(5250) - A(2725) = RCT(2725)*V(3032) - A(2726) = RCT(2726)*V(3032) - A(2727) = RCT(2727)*V(2223) - A(2728) = RCT(2728)*V(2223)*V(5250) - A(2729) = RCT(2729)*V(2223)*V(5250) - A(2730) = RCT(2730)*V(2193) - A(2731) = RCT(2731)*V(2193)*V(5250) - A(2732) = RCT(2732)*V(3404) - A(2733) = RCT(2733)*V(3404) - A(2734) = RCT(2734)*V(1069) - A(2735) = RCT(2735)*V(1069)*V(5250) - A(2736) = RCT(2736)*V(3076) - A(2737) = RCT(2737)*V(3076)*V(5250) - A(2738) = RCT(2738)*V(2490) - A(2739) = RCT(2739)*V(2628) - A(2740) = RCT(2740)*V(2628)*V(5250) - A(2741) = RCT(2741)*V(2628)*V(5250) - A(2742) = RCT(2742)*V(2913) - A(2743) = RCT(2743)*V(2913)*V(5250) - A(2744) = RCT(2744)*V(1741) - A(2745) = RCT(2745)*V(304)*V(5250) - A(2746) = RCT(2746)*V(4559)*V(5256) - A(2747) = RCT(2747)*V(4559)*V(5250) - A(2748) = RCT(2748)*V(4559) - A(2749) = RCT(2749)*V(2416) - A(2750) = RCT(2750)*V(2416)*V(5250) - A(2751) = RCT(2751)*V(2416)*V(5250) - A(2752) = RCT(2752)*V(1987) - A(2753) = RCT(2753)*V(1987)*V(5250) - A(2754) = RCT(2754)*V(155) - A(2755) = RCT(2755)*V(5162) - A(2756) = RCT(2756)*V(5162) - A(2757) = RCT(2757)*V(5162)*V(5256) - A(2758) = RCT(2758)*V(5162)*V(5250) - A(2759) = RCT(2759)*V(383)*V(5250) - A(2760) = RCT(2760)*V(2422) - A(2761) = RCT(2761)*V(2422)*V(5250) - A(2762) = RCT(2762)*V(2422)*V(5250) - A(2763) = RCT(2763)*V(2086) - A(2764) = RCT(2764)*V(2086)*V(5250) - A(2765) = RCT(2765)*V(171) - A(2766) = RCT(2766)*V(228)*V(5250) - A(2767) = RCT(2767)*V(1298) - A(2768) = RCT(2768)*V(1298)*V(5250) - A(2769) = RCT(2769)*V(2149) - A(2770) = RCT(2770)*V(2149)*V(5250) - A(2771) = RCT(2771)*V(2710) - A(2772) = RCT(2772)*V(2710) - A(2773) = RCT(2773)*V(380)*V(5250) - A(2774) = RCT(2774)*V(1966) - A(2775) = RCT(2775)*V(1966)*V(5250) - A(2776) = RCT(2776)*V(1966)*V(5250) - A(2777) = RCT(2777)*V(2168) - A(2778) = RCT(2778)*V(2168)*V(5250) - A(2779) = RCT(2779)*V(202) - A(2780) = RCT(2780)*V(3875) - A(2781) = RCT(2781)*V(3875)*V(5256) - A(2782) = RCT(2782)*V(3875)*V(5250) - A(2783) = RCT(2783)*V(242)*V(5250) - A(2784) = RCT(2784)*V(1855) - A(2785) = RCT(2785)*V(1855)*V(5250) - A(2786) = RCT(2786)*V(1855)*V(5250) - A(2787) = RCT(2787)*V(2350) - A(2788) = RCT(2788)*V(2350)*V(5250) - A(2789) = RCT(2789)*V(2974) - A(2790) = RCT(2790)*V(2974) - A(2791) = RCT(2791)*V(424)*V(5250) - A(2792) = RCT(2792)*V(2355) - A(2793) = RCT(2793)*V(2355)*V(5250) - A(2794) = RCT(2794)*V(2355)*V(5250) - A(2795) = RCT(2795)*V(2194) - A(2796) = RCT(2796)*V(2194)*V(5250) - A(2797) = RCT(2797)*V(3779) - A(2798) = RCT(2798)*V(3779) - A(2799) = RCT(2799)*V(3779) - A(2800) = RCT(2800)*V(4736) - A(2801) = RCT(2801)*V(4736) - A(2802) = RCT(2802)*V(4736)*V(5250) - A(2803) = RCT(2803)*V(4736)*V(5250) - A(2804) = RCT(2804)*V(316)*V(5250) - A(2805) = RCT(2805)*V(1488) - A(2806) = RCT(2806)*V(1488)*V(5250) - A(2807) = RCT(2807)*V(2610) - A(2808) = RCT(2808)*V(2610)*V(5250) - A(2809) = RCT(2809)*V(2933) - A(2810) = RCT(2810)*V(2933) - A(2811) = RCT(2811)*V(144)*V(5250) - A(2812) = RCT(2812)*V(1751) - A(2813) = RCT(2813)*V(1751)*V(5250) - A(2814) = RCT(2814)*V(1751)*V(5250) - A(2815) = RCT(2815)*V(2277) - A(2816) = RCT(2816)*V(2277)*V(5250) - A(2817) = RCT(2817)*V(165) - A(2818) = RCT(2818)*V(3851) - A(2819) = RCT(2819)*V(3851)*V(5256) - A(2820) = RCT(2820)*V(3851)*V(5250) - A(2821) = RCT(2821)*V(349)*V(5250) - A(2822) = RCT(2822)*V(1753) - A(2823) = RCT(2823)*V(1753)*V(5250) - A(2824) = RCT(2824)*V(1753)*V(5250) - A(2825) = RCT(2825)*V(2246) - A(2826) = RCT(2826)*V(2246)*V(5250) - A(2827) = RCT(2827)*V(2990) - A(2828) = RCT(2828)*V(2990) - A(2829) = RCT(2829)*V(3594) - A(2830) = RCT(2830)*V(3594)*V(5250) - A(2831) = RCT(2831)*V(3594)*V(5250) - A(2832) = RCT(2832)*V(504)*V(5250) - A(2833) = RCT(2833)*V(980) - A(2834) = RCT(2834)*V(980)*V(5250) - A(2835) = RCT(2835)*V(2839) - A(2836) = RCT(2836)*V(2839)*V(5250) - A(2837) = RCT(2837)*V(1962) - A(2838) = RCT(2838)*V(133)*V(5250) - A(2839) = RCT(2839)*V(2409) - A(2840) = RCT(2840)*V(2409)*V(5250) - A(2841) = RCT(2841)*V(2409)*V(5250) - A(2842) = RCT(2842)*V(2199) - A(2843) = RCT(2843)*V(2199)*V(5250) - A(2844) = RCT(2844)*V(3333) - A(2845) = RCT(2845)*V(3333) - A(2846) = RCT(2846)*V(466)*V(5250) - A(2847) = RCT(2847)*V(2264) - A(2848) = RCT(2848)*V(2264)*V(5250) - A(2849) = RCT(2849)*V(2264)*V(5250) - A(2850) = RCT(2850)*V(2169) - A(2851) = RCT(2851)*V(2169)*V(5250) - A(2852) = RCT(2852)*V(205) - A(2853) = RCT(2853)*V(3856) - A(2854) = RCT(2854)*V(3856)*V(5256) - A(2855) = RCT(2855)*V(3856)*V(5250) - A(2856) = RCT(2856)*V(338)*V(5250) - A(2857) = RCT(2857)*V(2192) - A(2858) = RCT(2858)*V(2192)*V(5250) - A(2859) = RCT(2859)*V(2192)*V(5250) - A(2860) = RCT(2860)*V(2097) - A(2861) = RCT(2861)*V(2097)*V(5250) - A(2862) = RCT(2862)*V(2906) - A(2863) = RCT(2863)*V(2906) - A(2864) = RCT(2864)*V(3924) - A(2865) = RCT(2865)*V(3924)*V(5256) - A(2866) = RCT(2866)*V(3924)*V(5250) - A(2867) = RCT(2867)*V(308)*V(5250) - A(2868) = RCT(2868)*V(1469) - A(2869) = RCT(2869)*V(1469)*V(5250) - A(2870) = RCT(2870)*V(1788) - A(2871) = RCT(2871)*V(1788)*V(5250) - A(2872) = RCT(2872)*V(1789) - A(2873) = RCT(2873)*V(64)*V(5250) - A(2874) = RCT(2874)*V(2019) - A(2875) = RCT(2875)*V(2019)*V(5250) - A(2876) = RCT(2876)*V(2019)*V(5250) - A(2877) = RCT(2877)*V(2403) - A(2878) = RCT(2878)*V(2403)*V(5250) - A(2879) = RCT(2879)*V(2767) - A(2880) = RCT(2880)*V(2767) - A(2881) = RCT(2881)*V(339)*V(5250) - A(2882) = RCT(2882)*V(3877) - A(2883) = RCT(2883)*V(3877)*V(5256) - A(2884) = RCT(2884)*V(3877)*V(5250) - A(2885) = RCT(2885)*V(1267) - A(2886) = RCT(2886)*V(1267)*V(5250) - A(2887) = RCT(2887)*V(1919) - A(2888) = RCT(2888)*V(1919)*V(5250) - A(2889) = RCT(2889)*V(161) - A(2890) = RCT(2890)*V(3118) - A(2891) = RCT(2891)*V(3118)*V(5250) - A(2892) = RCT(2892)*V(353)*V(5250) - A(2893) = RCT(2893)*V(870) - A(2894) = RCT(2894)*V(870)*V(5250) - A(2895) = RCT(2895)*V(2094) - A(2896) = RCT(2896)*V(2094)*V(5250) - A(2897) = RCT(2897)*V(184) - A(2898) = RCT(2898)*V(3168) - A(2899) = RCT(2899)*V(3168)*V(5250) - A(2900) = RCT(2900)*V(412)*V(5250) - A(2901) = RCT(2901)*V(1207) - A(2902) = RCT(2902)*V(1207)*V(5250) - A(2903) = RCT(2903)*V(2534) - A(2904) = RCT(2904)*V(2534)*V(5250) - A(2905) = RCT(2905)*V(445) - A(2906) = RCT(2906)*V(34)*V(5250) - A(2907) = RCT(2907)*V(1501) - A(2908) = RCT(2908)*V(1501)*V(5250) - A(2909) = RCT(2909)*V(1831) - A(2910) = RCT(2910)*V(1831)*V(5250) - A(2911) = RCT(2911)*V(166) - A(2912) = RCT(2912)*V(3109) - A(2913) = RCT(2913)*V(3109)*V(5250) - A(2914) = RCT(2914)*V(234)*V(5250) - A(2915) = RCT(2915)*V(1082) - A(2916) = RCT(2916)*V(1082)*V(5250) - A(2917) = RCT(2917)*V(2964) - A(2918) = RCT(2918)*V(2964)*V(5250) - A(2919) = RCT(2919)*V(421) - A(2920) = RCT(2920)*V(139)*V(5250) - A(2921) = RCT(2921)*V(1491) - A(2922) = RCT(2922)*V(1491)*V(5250) - A(2923) = RCT(2923)*V(2161) - A(2924) = RCT(2924)*V(2161)*V(5250) - A(2925) = RCT(2925)*V(177) - A(2926) = RCT(2926)*V(3148) - A(2927) = RCT(2927)*V(3148)*V(5250) - A(2928) = RCT(2928)*V(269)*V(5250) - A(2929) = RCT(2929)*V(1259) - A(2930) = RCT(2930)*V(1259)*V(5250) - A(2931) = RCT(2931)*V(2216) - A(2932) = RCT(2932)*V(2216)*V(5250) - A(2933) = RCT(2933)*V(197) - A(2934) = RCT(2934)*V(3117) - A(2935) = RCT(2935)*V(3117)*V(5250) - A(2936) = RCT(2936)*V(453)*V(5250) - A(2937) = RCT(2937)*V(1079) - A(2938) = RCT(2938)*V(1079)*V(5250) - A(2939) = RCT(2939)*V(1824) - A(2940) = RCT(2940)*V(1824)*V(5250) - A(2941) = RCT(2941)*V(192) - A(2942) = RCT(2942)*V(3166) - A(2943) = RCT(2943)*V(3166)*V(5250) - A(2944) = RCT(2944)*V(486)*V(5250) - A(2945) = RCT(2945)*V(1052)*V(5250) - A(2946) = RCT(2946)*V(1052) - A(2947) = RCT(2947)*V(2432)*V(5250) - A(2948) = RCT(2948)*V(2432) - A(2949) = RCT(2949)*V(186) - A(2950) = RCT(2950)*V(3091)*V(5250) - A(2951) = RCT(2951)*V(3091) - A(2952) = RCT(2952)*V(460)*V(5250) - A(2953) = RCT(2953)*V(848) - A(2954) = RCT(2954)*V(848)*V(5250) - A(2955) = RCT(2955)*V(2113) - A(2956) = RCT(2956)*V(2113)*V(5250) - A(2957) = RCT(2957)*V(196) - A(2958) = RCT(2958)*V(3110) - A(2959) = RCT(2959)*V(3110)*V(5250) - A(2960) = RCT(2960)*V(429)*V(5250) - A(2961) = RCT(2961)*V(1235) - A(2962) = RCT(2962)*V(1235)*V(5250) - A(2963) = RCT(2963)*V(2020) - A(2964) = RCT(2964)*V(2020)*V(5250) - A(2965) = RCT(2965)*V(2922) - A(2966) = RCT(2966)*V(2922) - A(2967) = RCT(2967)*V(1849)*V(5250) - A(2968) = RCT(2968)*V(1849)*V(5250) - A(2969) = RCT(2969)*V(1849) - A(2970) = RCT(2970)*V(3351) - A(2971) = RCT(2971)*V(3351) - A(2972) = RCT(2972)*V(5180)*V(5256) - A(2973) = RCT(2973)*V(5180)*V(5250) - A(2974) = RCT(2974)*V(5180) - A(2975) = RCT(2975)*V(1859)*V(5250) - A(2976) = RCT(2976)*V(1859)*V(5250) - A(2977) = RCT(2977)*V(1859) - A(2978) = RCT(2978)*V(3585) - A(2979) = RCT(2979)*V(3585) - A(2980) = RCT(2980)*V(4845)*V(5256) - A(2981) = RCT(2981)*V(4845)*V(5250) - A(2982) = RCT(2982)*V(4845) - A(2983) = RCT(2983)*V(2442)*V(5250) - A(2984) = RCT(2984)*V(2442)*V(5250) - A(2985) = RCT(2985)*V(2442) - A(2986) = RCT(2986)*V(3577) - A(2987) = RCT(2987)*V(3577) - A(2988) = RCT(2988)*V(4909)*V(5250) - A(2989) = RCT(2989)*V(4909) - A(2990) = RCT(2990)*V(1302)*V(5250) - A(2991) = RCT(2991)*V(1302) - A(2992) = RCT(2992)*V(3942) - A(2993) = RCT(2993)*V(3942) - A(2994) = RCT(2994)*V(3077)*V(5250) - A(2995) = RCT(2995)*V(3077) - A(2996) = RCT(2996)*V(1785)*V(5250) - A(2997) = RCT(2997)*V(1063)*V(5250) - A(2998) = RCT(2998)*V(1063) - A(2999) = RCT(2999)*V(3934) - A(3000) = RCT(3000)*V(3934) - A(3001) = RCT(3001)*V(3302)*V(5250) - A(3002) = RCT(3002)*V(3302) - A(3003) = RCT(3003)*V(3302) - A(3004) = RCT(3004)*V(4941)*V(5251) - A(3005) = RCT(3005)*V(4941)*V(5252) - A(3006) = RCT(3006)*V(4941)*V(5253) - A(3007) = RCT(3007)*V(4941)*V(5254) - A(3008) = RCT(3008)*V(4941) - A(3009) = RCT(3009)*V(4941) - A(3010) = RCT(3010)*V(3208)*V(5250) - A(3011) = RCT(3011)*V(3208)*V(5250) - A(3012) = RCT(3012)*V(3208) - A(3013) = RCT(3013)*V(2012) - A(3014) = RCT(3014)*V(5067)*V(5256) - A(3015) = RCT(3015)*V(5067)*V(5250) - A(3016) = RCT(3016)*V(5067) - A(3017) = RCT(3017)*V(1141)*V(5250) - A(3018) = RCT(3018)*V(1141) - A(3019) = RCT(3019)*V(3767) - A(3020) = RCT(3020)*V(3767) - A(3021) = RCT(3021)*V(3328)*V(5250) - A(3022) = RCT(3022)*V(3328) - A(3023) = RCT(3023)*V(1288)*V(5250) - A(3024) = RCT(3024)*V(1288) - A(3025) = RCT(3025)*V(2502) - A(3026) = RCT(3026)*V(1300)*V(5250) - A(3027) = RCT(3027)*V(1300) - A(3028) = RCT(3028)*V(3598) - A(3029) = RCT(3029)*V(3598) - A(3030) = RCT(3030)*V(4108)*V(5256) - A(3031) = RCT(3031)*V(4108)*V(5250) - A(3032) = RCT(3032)*V(4108) - A(3033) = RCT(3033)*V(4108) - A(3034) = RCT(3034)*V(4544)*V(5251) - A(3035) = RCT(3035)*V(4544)*V(5252) - A(3036) = RCT(3036)*V(4544)*V(5253) - A(3037) = RCT(3037)*V(4544)*V(5254) - A(3038) = RCT(3038)*V(4544) - A(3039) = RCT(3039)*V(2394)*V(5250) - A(3040) = RCT(3040)*V(2394)*V(5250) - A(3041) = RCT(3041)*V(2394) - A(3042) = RCT(3042)*V(3878) - A(3043) = RCT(3043)*V(3878) - A(3044) = RCT(3044)*V(3399)*V(5250) - A(3045) = RCT(3045)*V(3399) - A(3046) = RCT(3046)*V(2278)*V(5250) - A(3047) = RCT(3047)*V(2179)*V(5250) - A(3048) = RCT(3048)*V(2179)*V(5250) - A(3049) = RCT(3049)*V(2179) - A(3050) = RCT(3050)*V(3572) - A(3051) = RCT(3051)*V(3572) - A(3052) = RCT(3052)*V(4174)*V(5256) - A(3053) = RCT(3053)*V(4174)*V(5250) - A(3054) = RCT(3054)*V(4174) - A(3055) = RCT(3055)*V(2441)*V(5250) - A(3056) = RCT(3056)*V(4956)*V(5251) - A(3057) = RCT(3057)*V(4956)*V(5252) - A(3058) = RCT(3058)*V(4956)*V(5253) - A(3059) = RCT(3059)*V(4956)*V(5254) - A(3060) = RCT(3060)*V(4956) - A(3061) = RCT(3061)*V(4956) - A(3062) = RCT(3062)*V(3289)*V(5250) - A(3063) = RCT(3063)*V(3289)*V(5250) - A(3064) = RCT(3064)*V(3289) - A(3065) = RCT(3065)*V(1877) - A(3066) = RCT(3066)*V(3561)*V(5250) - A(3067) = RCT(3067)*V(3561) - A(3068) = RCT(3068)*V(926)*V(5250) - A(3069) = RCT(3069)*V(1778)*V(5250) - A(3070) = RCT(3070)*V(1778)*V(5250) - A(3071) = RCT(3071)*V(1778) - A(3072) = RCT(3072)*V(2549) - A(3073) = RCT(3073)*V(5009)*V(5256) - A(3074) = RCT(3074)*V(5009)*V(5250) - A(3075) = RCT(3075)*V(5009) - A(3076) = RCT(3076)*V(2413)*V(5250) - A(3077) = RCT(3077)*V(2413)*V(5250) - A(3078) = RCT(3078)*V(2413) - A(3079) = RCT(3079)*V(3956) - A(3080) = RCT(3080)*V(3956) - A(3081) = RCT(3081)*V(3418)*V(5250) - A(3082) = RCT(3082)*V(3418) - A(3083) = RCT(3083)*V(2449)*V(5250) - A(3084) = RCT(3084)*V(2449)*V(5250) - A(3085) = RCT(3085)*V(2449) - A(3086) = RCT(3086)*V(3922) - A(3087) = RCT(3087)*V(3922) - A(3088) = RCT(3088)*V(3409)*V(5250) - A(3089) = RCT(3089)*V(3409) - A(3090) = RCT(3090)*V(2447)*V(5250) - A(3091) = RCT(3091)*V(3266)*V(5250) - A(3092) = RCT(3092)*V(3266)*V(5250) - A(3093) = RCT(3093)*V(3266) - A(3094) = RCT(3094)*V(2158) - A(3095) = RCT(3095)*V(3656)*V(5250) - A(3096) = RCT(3096)*V(3656) - A(3097) = RCT(3097)*V(2369)*V(5250) - A(3098) = RCT(3098)*V(2369)*V(5250) - A(3099) = RCT(3099)*V(2369) - A(3100) = RCT(3100)*V(3592) - A(3101) = RCT(3101)*V(3592) - A(3102) = RCT(3102)*V(4114)*V(5256) - A(3103) = RCT(3103)*V(4114)*V(5250) - A(3104) = RCT(3104)*V(4114) - A(3105) = RCT(3105)*V(4114) - A(3106) = RCT(3106)*V(1391)*V(5250) - A(3107) = RCT(3107)*V(1391) - A(3108) = RCT(3108)*V(2851) - A(3109) = RCT(3109)*V(4320)*V(5251) - A(3110) = RCT(3110)*V(4320)*V(5252) - A(3111) = RCT(3111)*V(4320)*V(5253) - A(3112) = RCT(3112)*V(4320)*V(5254) - A(3113) = RCT(3113)*V(4320) - A(3114) = RCT(3114)*V(2069)*V(5250) - A(3115) = RCT(3115)*V(2069)*V(5250) - A(3116) = RCT(3116)*V(2069) - A(3117) = RCT(3117)*V(3887) - A(3118) = RCT(3118)*V(3887) - A(3119) = RCT(3119)*V(3432)*V(5250) - A(3120) = RCT(3120)*V(3432) - A(3121) = RCT(3121)*V(3175)*V(5250) - A(3122) = RCT(3122)*V(3175) - A(3123) = RCT(3123)*V(2363)*V(5250) - A(3124) = RCT(3124)*V(2363)*V(5250) - A(3125) = RCT(3125)*V(2363) - A(3126) = RCT(3126)*V(3575) - A(3127) = RCT(3127)*V(3575) - A(3128) = RCT(3128)*V(4160)*V(5256) - A(3129) = RCT(3129)*V(4160)*V(5250) - A(3130) = RCT(3130)*V(4160) - A(3131) = RCT(3131)*V(4868)*V(5251) - A(3132) = RCT(3132)*V(4868)*V(5252) - A(3133) = RCT(3133)*V(4868)*V(5253) - A(3134) = RCT(3134)*V(4868)*V(5254) - A(3135) = RCT(3135)*V(4868) - A(3136) = RCT(3136)*V(4868) - A(3137) = RCT(3137)*V(2135)*V(5250) - A(3138) = RCT(3138)*V(2135)*V(5250) - A(3139) = RCT(3139)*V(2135) - A(3140) = RCT(3140)*V(3268) - A(3141) = RCT(3141)*V(4961)*V(5256) - A(3142) = RCT(3142)*V(4961)*V(5250) - A(3143) = RCT(3143)*V(4961) - A(3144) = RCT(3144)*V(2366)*V(5250) - A(3145) = RCT(3145)*V(2366)*V(5250) - A(3146) = RCT(3146)*V(2366) - A(3147) = RCT(3147)*V(3970) - A(3148) = RCT(3148)*V(3970) - A(3149) = RCT(3149)*V(3364)*V(5250) - A(3150) = RCT(3150)*V(3364) - A(3151) = RCT(3151)*V(1072)*V(5250) - A(3152) = RCT(3152)*V(1072) - A(3153) = RCT(3153)*V(2831) - A(3154) = RCT(3154)*V(976)*V(5250) - A(3155) = RCT(3155)*V(976)*V(5250) - A(3156) = RCT(3156)*V(3002) - A(3157) = RCT(3157)*V(3002) - A(3158) = RCT(3158)*V(4155)*V(5256) - A(3159) = RCT(3159)*V(4155)*V(5250) - A(3160) = RCT(3160)*V(4155) - A(3161) = RCT(3161)*V(1827)*V(5250) - A(3162) = RCT(3162)*V(2125)*V(5250) - A(3163) = RCT(3163)*V(2125)*V(5250) - A(3164) = RCT(3164)*V(2125) - A(3165) = RCT(3165)*V(3925) - A(3166) = RCT(3166)*V(3925) - A(3167) = RCT(3167)*V(3349)*V(5250) - A(3168) = RCT(3168)*V(3349) - A(3169) = RCT(3169)*V(2011)*V(5250) - A(3170) = RCT(3170)*V(4838)*V(5251) - A(3171) = RCT(3171)*V(4838)*V(5252) - A(3172) = RCT(3172)*V(4838)*V(5253) - A(3173) = RCT(3173)*V(4838)*V(5254) - A(3174) = RCT(3174)*V(4838) - A(3175) = RCT(3175)*V(4838) - A(3176) = RCT(3176)*V(3308)*V(5250) - A(3177) = RCT(3177)*V(3308)*V(5250) - A(3178) = RCT(3178)*V(3308) - A(3179) = RCT(3179)*V(1927) - A(3180) = RCT(3180)*V(3542)*V(5250) - A(3181) = RCT(3181)*V(3542) - A(3182) = RCT(3182)*V(1386)*V(5250) - A(3183) = RCT(3183)*V(1774) - A(3184) = RCT(3184)*V(1774)*V(5250) - A(3185) = RCT(3185)*V(1774)*V(5250) - A(3186) = RCT(3186)*V(2944) - A(3187) = RCT(3187)*V(4873) - A(3188) = RCT(3188)*V(4873)*V(5256) - A(3189) = RCT(3189)*V(4873)*V(5250) - A(3190) = RCT(3190)*V(2455)*V(5250) - A(3191) = RCT(3191)*V(2455)*V(5250) - A(3192) = RCT(3192)*V(2455) - A(3193) = RCT(3193)*V(3910) - A(3194) = RCT(3194)*V(3910) - A(3195) = RCT(3195)*V(3341)*V(5250) - A(3196) = RCT(3196)*V(3341) - A(3197) = RCT(3197)*V(2370)*V(5250) - A(3198) = RCT(3198)*V(1940)*V(5250) - A(3199) = RCT(3199)*V(1940)*V(5250) - A(3200) = RCT(3200)*V(1940) - A(3201) = RCT(3201)*V(3842) - A(3202) = RCT(3202)*V(3842) - A(3203) = RCT(3203)*V(3376)*V(5250) - A(3204) = RCT(3204)*V(3376) - A(3205) = RCT(3205)*V(2067)*V(5250) - A(3206) = RCT(3206)*V(1767)*V(5250) - A(3207) = RCT(3207)*V(1767)*V(5250) - A(3208) = RCT(3208)*V(1767) - A(3209) = RCT(3209)*V(2912) - A(3210) = RCT(3210)*V(1121)*V(5250) - A(3211) = RCT(3211)*V(3757)*V(5250) - A(3212) = RCT(3212)*V(3757) - A(3213) = RCT(3213)*V(2133)*V(5250) - A(3214) = RCT(3214)*V(2133)*V(5250) - A(3215) = RCT(3215)*V(2133) - A(3216) = RCT(3216)*V(2849) - A(3217) = RCT(3217)*V(4223)*V(5250) - A(3218) = RCT(3218)*V(4223) - A(3219) = RCT(3219)*V(2068)*V(5250) - A(3220) = RCT(3220)*V(2068) - A(3221) = RCT(3221)*V(573) - A(3222) = RCT(3222)*V(3188)*V(5250) - A(3223) = RCT(3223)*V(1171)*V(5250) - A(3224) = RCT(3224)*V(1171) - A(3225) = RCT(3225)*V(1754) - A(3226) = RCT(3226)*V(32)*V(5250) - A(3227) = RCT(3227)*V(1434)*V(5250) - A(3228) = RCT(3228)*V(1434) - A(3229) = RCT(3229)*V(2341)*V(5250) - A(3230) = RCT(3230)*V(2341) - A(3231) = RCT(3231)*V(3342) - A(3232) = RCT(3232)*V(3342) - A(3233) = RCT(3233)*V(517)*V(5250) - A(3234) = RCT(3234)*V(3121)*V(5250) - A(3235) = RCT(3235)*V(3121) - A(3236) = RCT(3236)*V(4649)*V(5255) - A(3237) = RCT(3237)*V(4649)*V(5255) - A(3238) = RCT(3238)*V(4649)*V(5255) - A(3239) = RCT(3239)*V(4649)*V(5252) - A(3240) = RCT(3240)*V(4649)*V(5253) - A(3241) = RCT(3241)*V(4649)*V(5256) - A(3242) = RCT(3242)*V(4649) - A(3243) = RCT(3243)*V(4649) - A(3244) = RCT(3244)*V(4721)*V(5256) - A(3245) = RCT(3245)*V(4721)*V(5250) - A(3246) = RCT(3246)*V(4721) - A(3247) = RCT(3247)*V(4588) - A(3248) = RCT(3248)*V(4588) - A(3249) = RCT(3249)*V(4588) - A(3250) = RCT(3250)*V(4588) - A(3251) = RCT(3251)*V(4720)*V(5255) - A(3252) = RCT(3252)*V(4720)*V(5252) - A(3253) = RCT(3253)*V(4720)*V(5252) - A(3254) = RCT(3254)*V(4720)*V(5256) - A(3255) = RCT(3255)*V(4720) - A(3256) = RCT(3256)*V(4720) - A(3257) = RCT(3257)*V(4720) - A(3258) = RCT(3258)*V(4513)*V(5255) - A(3259) = RCT(3259)*V(4513)*V(5252) - A(3260) = RCT(3260)*V(4513)*V(5256) - A(3261) = RCT(3261)*V(4513) - A(3262) = RCT(3262)*V(4513) - A(3263) = RCT(3263)*V(4513) - A(3264) = RCT(3264)*V(5058)*V(5256) - A(3265) = RCT(3265)*V(5058)*V(5258) - A(3266) = RCT(3266)*V(5058)*V(5250) - A(3267) = RCT(3267)*V(5058)*V(5250) - A(3268) = RCT(3268)*V(5058) - A(3269) = RCT(3269)*V(5058) - A(3270) = RCT(3270)*V(4965)*V(5253) - A(3271) = RCT(3271)*V(4965)*V(5258) - A(3272) = RCT(3272)*V(3903)*V(5255) - A(3273) = RCT(3273)*V(3903)*V(5252) - A(3274) = RCT(3274)*V(3903)*V(5256) - A(3275) = RCT(3275)*V(3903) - A(3276) = RCT(3276)*V(3903) - A(3277) = RCT(3277)*V(3830)*V(5256) - A(3278) = RCT(3278)*V(3830)*V(5258) - A(3279) = RCT(3279)*V(3830)*V(5250) - A(3280) = RCT(3280)*V(3786)*V(5255) - A(3281) = RCT(3281)*V(3786)*V(5252) - A(3282) = RCT(3282)*V(3786)*V(5256) - A(3283) = RCT(3283)*V(3786) - A(3284) = RCT(3284)*V(3786) - A(3285) = RCT(3285)*V(1341)*V(5250) - A(3286) = RCT(3286)*V(1341) - A(3287) = RCT(3287)*V(1794)*V(5250) - A(3288) = RCT(3288)*V(1794) - A(3289) = RCT(3289)*V(1792) - A(3290) = RCT(3290)*V(444)*V(5250) - A(3291) = RCT(3291)*V(3538)*V(5255) - A(3292) = RCT(3292)*V(3538)*V(5252) - A(3293) = RCT(3293)*V(3538)*V(5256) - A(3294) = RCT(3294)*V(3538) - A(3295) = RCT(3295)*V(3538) - A(3296) = RCT(3296)*V(3827)*V(5255) - A(3297) = RCT(3297)*V(3827)*V(5252) - A(3298) = RCT(3298)*V(3827)*V(5256) - A(3299) = RCT(3299)*V(3827) - A(3300) = RCT(3300)*V(3827) - A(3301) = RCT(3301)*V(3793)*V(5253) - A(3302) = RCT(3302)*V(3793)*V(5258) - A(3303) = RCT(3303)*V(3545)*V(5256) - A(3304) = RCT(3304)*V(3545)*V(5258) - A(3305) = RCT(3305)*V(3545)*V(5250) - A(3306) = RCT(3306)*V(1307)*V(5250) - A(3307) = RCT(3307)*V(1307) - A(3308) = RCT(3308)*V(3824) - A(3309) = RCT(3309)*V(3824) - A(3310) = RCT(3310)*V(3824) - A(3311) = RCT(3311)*V(3824) - A(3312) = RCT(3312)*V(3824) - A(3313) = RCT(3313)*V(2383)*V(5250) - A(3314) = RCT(3314)*V(2383) - A(3315) = RCT(3315)*V(361)*V(5250) - A(3316) = RCT(3316)*V(3372)*V(5250) - A(3317) = RCT(3317)*V(3372) - A(3318) = RCT(3318)*V(4626)*V(5255) - A(3319) = RCT(3319)*V(4626)*V(5255) - A(3320) = RCT(3320)*V(4626)*V(5255) - A(3321) = RCT(3321)*V(4626)*V(5252) - A(3322) = RCT(3322)*V(4626)*V(5253) - A(3323) = RCT(3323)*V(4626)*V(5256) - A(3324) = RCT(3324)*V(4626) - A(3325) = RCT(3325)*V(4626) - A(3326) = RCT(3326)*V(4084) - A(3327) = RCT(3327)*V(4084) - A(3328) = RCT(3328)*V(4084) - A(3329) = RCT(3329)*V(4084) - A(3330) = RCT(3330)*V(4821)*V(5255) - A(3331) = RCT(3331)*V(4821)*V(5252) - A(3332) = RCT(3332)*V(4821)*V(5252) - A(3333) = RCT(3333)*V(4821)*V(5256) - A(3334) = RCT(3334)*V(4821) - A(3335) = RCT(3335)*V(4821) - A(3336) = RCT(3336)*V(4821) - A(3337) = RCT(3337)*V(4432)*V(5255) - A(3338) = RCT(3338)*V(4432)*V(5252) - A(3339) = RCT(3339)*V(4432)*V(5256) - A(3340) = RCT(3340)*V(4432) - A(3341) = RCT(3341)*V(4432) - A(3342) = RCT(3342)*V(4432) - A(3343) = RCT(3343)*V(1287)*V(5250) - A(3344) = RCT(3344)*V(1287) - A(3345) = RCT(3345)*V(2014)*V(5250) - A(3346) = RCT(3346)*V(2014) - A(3347) = RCT(3347)*V(2015) - A(3348) = RCT(3348)*V(3643)*V(5256) - A(3349) = RCT(3349)*V(3643)*V(5250) - A(3350) = RCT(3350)*V(3643) - A(3351) = RCT(3351)*V(3643) - A(3352) = RCT(3352)*V(225)*V(5250) - A(3353) = RCT(3353)*V(1451)*V(5250) - A(3354) = RCT(3354)*V(1451) - A(3355) = RCT(3355)*V(3435)*V(5250) - A(3356) = RCT(3356)*V(3435) - A(3357) = RCT(3357)*V(4950) - A(3358) = RCT(3358)*V(4950) - A(3359) = RCT(3359)*V(4950) - A(3360) = RCT(3360)*V(4950) - A(3361) = RCT(3361)*V(4950) - A(3362) = RCT(3362)*V(4950) - A(3363) = RCT(3363)*V(135)*V(5250) - A(3364) = RCT(3364)*V(4833)*V(5255) - A(3365) = RCT(3365)*V(4833)*V(5255) - A(3366) = RCT(3366)*V(4833)*V(5255) - A(3367) = RCT(3367)*V(4833)*V(5252) - A(3368) = RCT(3368)*V(4833)*V(5253) - A(3369) = RCT(3369)*V(4833)*V(5256) - A(3370) = RCT(3370)*V(4833) - A(3371) = RCT(3371)*V(4833) - A(3372) = RCT(3372)*V(4547)*V(5256) - A(3373) = RCT(3373)*V(4547)*V(5250) - A(3374) = RCT(3374)*V(4547) - A(3375) = RCT(3375)*V(4707)*V(5255) - A(3376) = RCT(3376)*V(4707)*V(5252) - A(3377) = RCT(3377)*V(4707)*V(5252) - A(3378) = RCT(3378)*V(4707)*V(5256) - A(3379) = RCT(3379)*V(4707) - A(3380) = RCT(3380)*V(4707) - A(3381) = RCT(3381)*V(4707) - A(3382) = RCT(3382)*V(4887)*V(5255) - A(3383) = RCT(3383)*V(4887)*V(5252) - A(3384) = RCT(3384)*V(4887)*V(5256) - A(3385) = RCT(3385)*V(4887) - A(3386) = RCT(3386)*V(4887) - A(3387) = RCT(3387)*V(3820)*V(5255) - A(3388) = RCT(3388)*V(3820)*V(5252) - A(3389) = RCT(3389)*V(3820)*V(5256) - A(3390) = RCT(3390)*V(3820) - A(3391) = RCT(3391)*V(3820) - A(3392) = RCT(3392)*V(4478)*V(5253) - A(3393) = RCT(3393)*V(4478)*V(5258) - A(3394) = RCT(3394)*V(3491)*V(5255) - A(3395) = RCT(3395)*V(3491)*V(5252) - A(3396) = RCT(3396)*V(3491)*V(5256) - A(3397) = RCT(3397)*V(3491) - A(3398) = RCT(3398)*V(3491) - A(3399) = RCT(3399)*V(3508)*V(5256) - A(3400) = RCT(3400)*V(3508)*V(5258) - A(3401) = RCT(3401)*V(3508)*V(5250) - A(3402) = RCT(3402)*V(1484)*V(5250) - A(3403) = RCT(3403)*V(1484) - A(3404) = RCT(3404)*V(1819)*V(5250) - A(3405) = RCT(3405)*V(1819) - A(3406) = RCT(3406)*V(1820) - A(3407) = RCT(3407)*V(3640)*V(5256) - A(3408) = RCT(3408)*V(3640)*V(5250) - A(3409) = RCT(3409)*V(3640) - A(3410) = RCT(3410)*V(3640) - A(3411) = RCT(3411)*V(332)*V(5250) - A(3412) = RCT(3412)*V(1276)*V(5250) - A(3413) = RCT(3413)*V(1276) - A(3414) = RCT(3414)*V(2317)*V(5250) - A(3415) = RCT(3415)*V(2317) - A(3416) = RCT(3416)*V(4004) - A(3417) = RCT(3417)*V(4004) - A(3418) = RCT(3418)*V(4004) - A(3419) = RCT(3419)*V(4004) - A(3420) = RCT(3420)*V(4004) - A(3421) = RCT(3421)*V(292)*V(5250) - A(3422) = RCT(3422)*V(3599)*V(5250) - A(3423) = RCT(3423)*V(3599)*V(5250) - A(3424) = RCT(3424)*V(3599) - A(3425) = RCT(3425)*V(3599) - A(3426) = RCT(3426)*V(4892)*V(5255) - A(3427) = RCT(3427)*V(4892)*V(5255) - A(3428) = RCT(3428)*V(4892)*V(5255) - A(3429) = RCT(3429)*V(4892)*V(5252) - A(3430) = RCT(3430)*V(4892)*V(5253) - A(3431) = RCT(3431)*V(4892)*V(5256) - A(3432) = RCT(3432)*V(4892) - A(3433) = RCT(3433)*V(4892) - A(3434) = RCT(3434)*V(4729)*V(5256) - A(3435) = RCT(3435)*V(4729)*V(5250) - A(3436) = RCT(3436)*V(4729) - A(3437) = RCT(3437)*V(4718)*V(5255) - A(3438) = RCT(3438)*V(4718)*V(5252) - A(3439) = RCT(3439)*V(4718)*V(5252) - A(3440) = RCT(3440)*V(4718)*V(5256) - A(3441) = RCT(3441)*V(4718) - A(3442) = RCT(3442)*V(4718) - A(3443) = RCT(3443)*V(4718) - A(3444) = RCT(3444)*V(4483)*V(5255) - A(3445) = RCT(3445)*V(4483)*V(5252) - A(3446) = RCT(3446)*V(4483)*V(5256) - A(3447) = RCT(3447)*V(4483) - A(3448) = RCT(3448)*V(4483) - A(3449) = RCT(3449)*V(4483) - A(3450) = RCT(3450)*V(4408)*V(5253) - A(3451) = RCT(3451)*V(4408)*V(5258) - A(3452) = RCT(3452)*V(3531)*V(5255) - A(3453) = RCT(3453)*V(3531)*V(5252) - A(3454) = RCT(3454)*V(3531)*V(5256) - A(3455) = RCT(3455)*V(3531) - A(3456) = RCT(3456)*V(3531) - A(3457) = RCT(3457)*V(3796)*V(5255) - A(3458) = RCT(3458)*V(3796)*V(5252) - A(3459) = RCT(3459)*V(3796)*V(5256) - A(3460) = RCT(3460)*V(3796) - A(3461) = RCT(3461)*V(3796) - A(3462) = RCT(3462)*V(3560)*V(5256) - A(3463) = RCT(3463)*V(3560)*V(5258) - A(3464) = RCT(3464)*V(3560)*V(5250) - A(3465) = RCT(3465)*V(922)*V(5250) - A(3466) = RCT(3466)*V(922) - A(3467) = RCT(3467)*V(2309)*V(5250) - A(3468) = RCT(3468)*V(2309) - A(3469) = RCT(3469)*V(1821) - A(3470) = RCT(3470)*V(3657)*V(5256) - A(3471) = RCT(3471)*V(3657)*V(5250) - A(3472) = RCT(3472)*V(3657) - A(3473) = RCT(3473)*V(3657) - A(3474) = RCT(3474)*V(262)*V(5250) - A(3475) = RCT(3475)*V(1533)*V(5250) - A(3476) = RCT(3476)*V(1533) - A(3477) = RCT(3477)*V(2782)*V(5250) - A(3478) = RCT(3478)*V(2782) - A(3479) = RCT(3479)*V(3754) - A(3480) = RCT(3480)*V(3754) - A(3481) = RCT(3481)*V(3754) - A(3482) = RCT(3482)*V(102)*V(5250) - A(3483) = RCT(3483)*V(4692)*V(5255) - A(3484) = RCT(3484)*V(4692)*V(5255) - A(3485) = RCT(3485)*V(4692)*V(5255) - A(3486) = RCT(3486)*V(4692)*V(5252) - A(3487) = RCT(3487)*V(4692)*V(5253) - A(3488) = RCT(3488)*V(4692)*V(5256) - A(3489) = RCT(3489)*V(4692) - A(3490) = RCT(3490)*V(4692) - A(3491) = RCT(3491)*V(4699)*V(5255) - A(3492) = RCT(3492)*V(4699)*V(5252) - A(3493) = RCT(3493)*V(4699)*V(5252) - A(3494) = RCT(3494)*V(4699)*V(5256) - A(3495) = RCT(3495)*V(4699) - A(3496) = RCT(3496)*V(4699) - A(3497) = RCT(3497)*V(4699) - A(3498) = RCT(3498)*V(4893)*V(5255) - A(3499) = RCT(3499)*V(4893)*V(5252) - A(3500) = RCT(3500)*V(4893)*V(5256) - A(3501) = RCT(3501)*V(4893) - A(3502) = RCT(3502)*V(4893) - A(3503) = RCT(3503)*V(3808)*V(5255) - A(3504) = RCT(3504)*V(3808)*V(5252) - A(3505) = RCT(3505)*V(3808)*V(5256) - A(3506) = RCT(3506)*V(3808) - A(3507) = RCT(3507)*V(3808) - A(3508) = RCT(3508)*V(4495)*V(5253) - A(3509) = RCT(3509)*V(4495)*V(5258) - A(3510) = RCT(3510)*V(3534)*V(5255) - A(3511) = RCT(3511)*V(3534)*V(5252) - A(3512) = RCT(3512)*V(3534)*V(5256) - A(3513) = RCT(3513)*V(3534) - A(3514) = RCT(3514)*V(3534) - A(3515) = RCT(3515)*V(3512)*V(5256) - A(3516) = RCT(3516)*V(3512)*V(5258) - A(3517) = RCT(3517)*V(3512)*V(5250) - A(3518) = RCT(3518)*V(966)*V(5250) - A(3519) = RCT(3519)*V(966) - A(3520) = RCT(3520)*V(1796) - A(3521) = RCT(3521)*V(2302)*V(5250) - A(3522) = RCT(3522)*V(2302) - A(3523) = RCT(3523)*V(277)*V(5250) - A(3524) = RCT(3524)*V(3649)*V(5256) - A(3525) = RCT(3525)*V(3649)*V(5250) - A(3526) = RCT(3526)*V(3649) - A(3527) = RCT(3527)*V(4453)*V(5253) - A(3528) = RCT(3528)*V(4453)*V(5258) - A(3529) = RCT(3529)*V(3562)*V(5255) - A(3530) = RCT(3530)*V(3562)*V(5252) - A(3531) = RCT(3531)*V(3562)*V(5256) - A(3532) = RCT(3532)*V(3562) - A(3533) = RCT(3533)*V(3562) - A(3534) = RCT(3534)*V(3813)*V(5255) - A(3535) = RCT(3535)*V(3813)*V(5252) - A(3536) = RCT(3536)*V(3813)*V(5256) - A(3537) = RCT(3537)*V(3813) - A(3538) = RCT(3538)*V(3813) - A(3539) = RCT(3539)*V(3831)*V(5256) - A(3540) = RCT(3540)*V(3831)*V(5258) - A(3541) = RCT(3541)*V(3831)*V(5250) - A(3542) = RCT(3542)*V(1211)*V(5250) - A(3543) = RCT(3543)*V(1211) - A(3544) = RCT(3544)*V(3812) - A(3545) = RCT(3545)*V(3812) - A(3546) = RCT(3546)*V(3812) - A(3547) = RCT(3547)*V(3812) - A(3548) = RCT(3548)*V(1964)*V(5250) - A(3549) = RCT(3549)*V(1964) - A(3550) = RCT(3550)*V(428)*V(5250) - A(3551) = RCT(3551)*V(3089)*V(5250) - A(3552) = RCT(3552)*V(3089) - A(3553) = RCT(3553)*V(4641)*V(5255) - A(3554) = RCT(3554)*V(4641)*V(5255) - A(3555) = RCT(3555)*V(4641)*V(5255) - A(3556) = RCT(3556)*V(4641)*V(5252) - A(3557) = RCT(3557)*V(4641)*V(5253) - A(3558) = RCT(3558)*V(4641)*V(5256) - A(3559) = RCT(3559)*V(4641) - A(3560) = RCT(3560)*V(4641) - A(3561) = RCT(3561)*V(4081) - A(3562) = RCT(3562)*V(4081) - A(3563) = RCT(3563)*V(4081) - A(3564) = RCT(3564)*V(4081) - A(3565) = RCT(3565)*V(4701)*V(5255) - A(3566) = RCT(3566)*V(4701)*V(5252) - A(3567) = RCT(3567)*V(4701)*V(5252) - A(3568) = RCT(3568)*V(4701)*V(5256) - A(3569) = RCT(3569)*V(4701) - A(3570) = RCT(3570)*V(4701) - A(3571) = RCT(3571)*V(4701) - A(3572) = RCT(3572)*V(4667)*V(5255) - A(3573) = RCT(3573)*V(4667)*V(5252) - A(3574) = RCT(3574)*V(4667)*V(5256) - A(3575) = RCT(3575)*V(4667) - A(3576) = RCT(3576)*V(4667) - A(3577) = RCT(3577)*V(4667) - A(3578) = RCT(3578)*V(1315)*V(5250) - A(3579) = RCT(3579)*V(1315) - A(3580) = RCT(3580)*V(2321)*V(5250) - A(3581) = RCT(3581)*V(2321) - A(3582) = RCT(3582)*V(2322) - A(3583) = RCT(3583)*V(464)*V(5250) - A(3584) = RCT(3584)*V(3368)*V(5250) - A(3585) = RCT(3585)*V(3368) - A(3586) = RCT(3586)*V(3799)*V(5255) - A(3587) = RCT(3587)*V(3799)*V(5252) - A(3588) = RCT(3588)*V(3799)*V(5256) - A(3589) = RCT(3589)*V(3799) - A(3590) = RCT(3590)*V(3799) - A(3591) = RCT(3591)*V(4479)*V(5253) - A(3592) = RCT(3592)*V(4479)*V(5258) - A(3593) = RCT(3593)*V(3554)*V(5255) - A(3594) = RCT(3594)*V(3554)*V(5252) - A(3595) = RCT(3595)*V(3554)*V(5256) - A(3596) = RCT(3596)*V(3554) - A(3597) = RCT(3597)*V(3554) - A(3598) = RCT(3598)*V(3701)*V(5256) - A(3599) = RCT(3599)*V(3701)*V(5258) - A(3600) = RCT(3600)*V(3701)*V(5250) - A(3601) = RCT(3601)*V(1027)*V(5250) - A(3602) = RCT(3602)*V(1027) - A(3603) = RCT(3603)*V(3805) - A(3604) = RCT(3604)*V(3805) - A(3605) = RCT(3605)*V(3805) - A(3606) = RCT(3606)*V(3805) - A(3607) = RCT(3607)*V(2406)*V(5250) - A(3608) = RCT(3608)*V(2406) - A(3609) = RCT(3609)*V(436)*V(5250) - A(3610) = RCT(3610)*V(3174)*V(5250) - A(3611) = RCT(3611)*V(3174) - A(3612) = RCT(3612)*V(4829)*V(5255) - A(3613) = RCT(3613)*V(4829)*V(5255) - A(3614) = RCT(3614)*V(4829)*V(5255) - A(3615) = RCT(3615)*V(4829)*V(5252) - A(3616) = RCT(3616)*V(4829)*V(5253) - A(3617) = RCT(3617)*V(4829)*V(5256) - A(3618) = RCT(3618)*V(4829) - A(3619) = RCT(3619)*V(4829) - A(3620) = RCT(3620)*V(2148) - A(3621) = RCT(3621)*V(2148) - A(3622) = RCT(3622)*V(2148) - A(3623) = RCT(3623)*V(2148) - A(3624) = RCT(3624)*V(4377)*V(5255) - A(3625) = RCT(3625)*V(4377)*V(5252) - A(3626) = RCT(3626)*V(4377)*V(5252) - A(3627) = RCT(3627)*V(4377)*V(5256) - A(3628) = RCT(3628)*V(4377) - A(3629) = RCT(3629)*V(4377) - A(3630) = RCT(3630)*V(4377) - A(3631) = RCT(3631)*V(4683)*V(5255) - A(3632) = RCT(3632)*V(4683)*V(5252) - A(3633) = RCT(3633)*V(4683)*V(5256) - A(3634) = RCT(3634)*V(4683) - A(3635) = RCT(3635)*V(4683) - A(3636) = RCT(3636)*V(4683) - A(3637) = RCT(3637)*V(1431)*V(5250) - A(3638) = RCT(3638)*V(1431) - A(3639) = RCT(3639)*V(3439)*V(5250) - A(3640) = RCT(3640)*V(3439) - A(3641) = RCT(3641)*V(3440) - A(3642) = RCT(3642)*V(89)*V(5250) - A(3643) = RCT(3643)*V(4457)*V(5253) - A(3644) = RCT(3644)*V(4457)*V(5258) - A(3645) = RCT(3645)*V(3539)*V(5255) - A(3646) = RCT(3646)*V(3539)*V(5252) - A(3647) = RCT(3647)*V(3539)*V(5256) - A(3648) = RCT(3648)*V(3539) - A(3649) = RCT(3649)*V(3539) - A(3650) = RCT(3650)*V(3815)*V(5255) - A(3651) = RCT(3651)*V(3815)*V(5252) - A(3652) = RCT(3652)*V(3815)*V(5256) - A(3653) = RCT(3653)*V(3815) - A(3654) = RCT(3654)*V(3815) - A(3655) = RCT(3655)*V(3684)*V(5256) - A(3656) = RCT(3656)*V(3684)*V(5258) - A(3657) = RCT(3657)*V(3684)*V(5250) - A(3658) = RCT(3658)*V(1039)*V(5250) - A(3659) = RCT(3659)*V(1039) - A(3660) = RCT(3660)*V(3795) - A(3661) = RCT(3661)*V(3795) - A(3662) = RCT(3662)*V(3795) - A(3663) = RCT(3663)*V(3795) - A(3664) = RCT(3664)*V(2418)*V(5250) - A(3665) = RCT(3665)*V(2418) - A(3666) = RCT(3666)*V(283)*V(5250) - A(3667) = RCT(3667)*V(3122)*V(5250) - A(3668) = RCT(3668)*V(3122) - A(3669) = RCT(3669)*V(4635)*V(5255) - A(3670) = RCT(3670)*V(4635)*V(5255) - A(3671) = RCT(3671)*V(4635)*V(5255) - A(3672) = RCT(3672)*V(4635)*V(5252) - A(3673) = RCT(3673)*V(4635)*V(5253) - A(3674) = RCT(3674)*V(4635)*V(5256) - A(3675) = RCT(3675)*V(4635) - A(3676) = RCT(3676)*V(4635) - A(3677) = RCT(3677)*V(3210) - A(3678) = RCT(3678)*V(3210) - A(3679) = RCT(3679)*V(3210) - A(3680) = RCT(3680)*V(3210) - A(3681) = RCT(3681)*V(4928)*V(5255) - A(3682) = RCT(3682)*V(4928)*V(5252) - A(3683) = RCT(3683)*V(4928)*V(5252) - A(3684) = RCT(3684)*V(4928)*V(5256) - A(3685) = RCT(3685)*V(4928) - A(3686) = RCT(3686)*V(4928) - A(3687) = RCT(3687)*V(4928) - A(3688) = RCT(3688)*V(4675)*V(5255) - A(3689) = RCT(3689)*V(4675)*V(5252) - A(3690) = RCT(3690)*V(4675)*V(5256) - A(3691) = RCT(3691)*V(4675) - A(3692) = RCT(3692)*V(4675) - A(3693) = RCT(3693)*V(4675) - A(3694) = RCT(3694)*V(1542)*V(5250) - A(3695) = RCT(3695)*V(1542) - A(3696) = RCT(3696)*V(1881)*V(5250) - A(3697) = RCT(3697)*V(1881) - A(3698) = RCT(3698)*V(1860) - A(3699) = RCT(3699)*V(3661)*V(5256) - A(3700) = RCT(3700)*V(3661)*V(5250) - A(3701) = RCT(3701)*V(3661) - A(3702) = RCT(3702)*V(3661) - A(3703) = RCT(3703)*V(396)*V(5250) - A(3704) = RCT(3704)*V(3663)*V(5255) - A(3705) = RCT(3705)*V(3663)*V(5252) - A(3706) = RCT(3706)*V(3663)*V(5256) - A(3707) = RCT(3707)*V(3663) - A(3708) = RCT(3708)*V(3663) - A(3709) = RCT(3709)*V(4494)*V(5253) - A(3710) = RCT(3710)*V(4494)*V(5258) - A(3711) = RCT(3711)*V(3627)*V(5255) - A(3712) = RCT(3712)*V(3627)*V(5252) - A(3713) = RCT(3713)*V(3627)*V(5256) - A(3714) = RCT(3714)*V(3627) - A(3715) = RCT(3715)*V(3627) - A(3716) = RCT(3716)*V(3482)*V(5256) - A(3717) = RCT(3717)*V(3482)*V(5258) - A(3718) = RCT(3718)*V(3482)*V(5250) - A(3719) = RCT(3719)*V(956)*V(5250) - A(3720) = RCT(3720)*V(956) - A(3721) = RCT(3721)*V(2241)*V(5250) - A(3722) = RCT(3722)*V(2241) - A(3723) = RCT(3723)*V(4937) - A(3724) = RCT(3724)*V(4937) - A(3725) = RCT(3725)*V(4937) - A(3726) = RCT(3726)*V(4937) - A(3727) = RCT(3727)*V(4937) - A(3728) = RCT(3728)*V(4937) - A(3729) = RCT(3729)*V(274)*V(5250) - A(3730) = RCT(3730)*V(3103)*V(5250) - A(3731) = RCT(3731)*V(3103) - A(3732) = RCT(3732)*V(4630)*V(5256) - A(3733) = RCT(3733)*V(4630)*V(5250) - A(3734) = RCT(3734)*V(4630) - A(3735) = RCT(3735)*V(4630) - A(3736) = RCT(3736)*V(4971)*V(5255) - A(3737) = RCT(3737)*V(4971)*V(5252) - A(3738) = RCT(3738)*V(4971)*V(5252) - A(3739) = RCT(3739)*V(4971)*V(5256) - A(3740) = RCT(3740)*V(4971) - A(3741) = RCT(3741)*V(4971) - A(3742) = RCT(3742)*V(4971) - A(3743) = RCT(3743)*V(1458)*V(5250) - A(3744) = RCT(3744)*V(1458) - A(3745) = RCT(3745)*V(1772)*V(5250) - A(3746) = RCT(3746)*V(1772) - A(3747) = RCT(3747)*V(1773) - A(3748) = RCT(3748)*V(3655)*V(5256) - A(3749) = RCT(3749)*V(3655)*V(5250) - A(3750) = RCT(3750)*V(3655) - A(3751) = RCT(3751)*V(3655) - A(3752) = RCT(3752)*V(480)*V(5250) - A(3753) = RCT(3753)*V(1486)*V(5250) - A(3754) = RCT(3754)*V(1486) - A(3755) = RCT(3755)*V(2605)*V(5250) - A(3756) = RCT(3756)*V(2605) - A(3757) = RCT(3757)*V(5030) - A(3758) = RCT(3758)*V(5030) - A(3759) = RCT(3759)*V(5030) - A(3760) = RCT(3760)*V(5030) - A(3761) = RCT(3761)*V(5030) - A(3762) = RCT(3762)*V(5030) - A(3763) = RCT(3763)*V(52)*V(5250) - A(3764) = RCT(3764)*V(3828)*V(5255) - A(3765) = RCT(3765)*V(3828)*V(5252) - A(3766) = RCT(3766)*V(3828)*V(5256) - A(3767) = RCT(3767)*V(3828) - A(3768) = RCT(3768)*V(3828) - A(3769) = RCT(3769)*V(4407)*V(5253) - A(3770) = RCT(3770)*V(4407)*V(5258) - A(3771) = RCT(3771)*V(3518)*V(5255) - A(3772) = RCT(3772)*V(3518)*V(5252) - A(3773) = RCT(3773)*V(3518)*V(5256) - A(3774) = RCT(3774)*V(3518) - A(3775) = RCT(3775)*V(3518) - A(3776) = RCT(3776)*V(3494)*V(5256) - A(3777) = RCT(3777)*V(3494)*V(5258) - A(3778) = RCT(3778)*V(3494)*V(5250) - A(3779) = RCT(3779)*V(4948)*V(5255) - A(3780) = RCT(3780)*V(4948)*V(5255) - A(3781) = RCT(3781)*V(4948)*V(5255) - A(3782) = RCT(3782)*V(4948)*V(5252) - A(3783) = RCT(3783)*V(4948)*V(5253) - A(3784) = RCT(3784)*V(4948)*V(5256) - A(3785) = RCT(3785)*V(4948) - A(3786) = RCT(3786)*V(4948) - A(3787) = RCT(3787)*V(4803)*V(5255) - A(3788) = RCT(3788)*V(4803)*V(5252) - A(3789) = RCT(3789)*V(4803)*V(5252) - A(3790) = RCT(3790)*V(4803)*V(5256) - A(3791) = RCT(3791)*V(4803) - A(3792) = RCT(3792)*V(4803) - A(3793) = RCT(3793)*V(4803) - A(3794) = RCT(3794)*V(4899)*V(5255) - A(3795) = RCT(3795)*V(4899)*V(5252) - A(3796) = RCT(3796)*V(4899)*V(5256) - A(3797) = RCT(3797)*V(4899) - A(3798) = RCT(3798)*V(4899) - A(3799) = RCT(3799)*V(1385)*V(5250) - A(3800) = RCT(3800)*V(1385) - A(3801) = RCT(3801)*V(2232)*V(5250) - A(3802) = RCT(3802)*V(2232) - A(3803) = RCT(3803)*V(1903) - A(3804) = RCT(3804)*V(3645)*V(5256) - A(3805) = RCT(3805)*V(3645)*V(5250) - A(3806) = RCT(3806)*V(3645) - A(3807) = RCT(3807)*V(3645) - A(3808) = RCT(3808)*V(431)*V(5250) - A(3809) = RCT(3809)*V(1310)*V(5250) - A(3810) = RCT(3810)*V(1310) - A(3811) = RCT(3811)*V(2372)*V(5250) - A(3812) = RCT(3812)*V(2372) - A(3813) = RCT(3813)*V(3332) - A(3814) = RCT(3814)*V(3332) - A(3815) = RCT(3815)*V(523)*V(5250) - A(3816) = RCT(3816)*V(3082)*V(5250) - A(3817) = RCT(3817)*V(3082) - A(3818) = RCT(3818)*V(3641)*V(5255) - A(3819) = RCT(3819)*V(3641)*V(5252) - A(3820) = RCT(3820)*V(3641)*V(5256) - A(3821) = RCT(3821)*V(3641) - A(3822) = RCT(3822)*V(3641) - A(3823) = RCT(3823)*V(707)*V(5255) - A(3824) = RCT(3824)*V(3648)*V(5255) - A(3825) = RCT(3825)*V(3648)*V(5252) - A(3826) = RCT(3826)*V(3648)*V(5256) - A(3827) = RCT(3827)*V(3648) - A(3828) = RCT(3828)*V(3648) - A(3829) = RCT(3829)*V(4807)*V(5255) - A(3830) = RCT(3830)*V(4807)*V(5255) - A(3831) = RCT(3831)*V(4807)*V(5255) - A(3832) = RCT(3832)*V(4807)*V(5252) - A(3833) = RCT(3833)*V(4807)*V(5253) - A(3834) = RCT(3834)*V(4807)*V(5256) - A(3835) = RCT(3835)*V(4807) - A(3836) = RCT(3836)*V(4807) - A(3837) = RCT(3837)*V(4569)*V(5256) - A(3838) = RCT(3838)*V(4569)*V(5250) - A(3839) = RCT(3839)*V(4569) - A(3840) = RCT(3840)*V(4569) - A(3841) = RCT(3841)*V(3133) - A(3842) = RCT(3842)*V(3133) - A(3843) = RCT(3843)*V(4568)*V(5255) - A(3844) = RCT(3844)*V(4568)*V(5252) - A(3845) = RCT(3845)*V(4568)*V(5252) - A(3846) = RCT(3846)*V(4568)*V(5256) - A(3847) = RCT(3847)*V(4568) - A(3848) = RCT(3848)*V(4568) - A(3849) = RCT(3849)*V(4935)*V(5255) - A(3850) = RCT(3850)*V(4935)*V(5252) - A(3851) = RCT(3851)*V(4935)*V(5256) - A(3852) = RCT(3852)*V(4935) - A(3853) = RCT(3853)*V(4935) - A(3854) = RCT(3854)*V(4935) - A(3855) = RCT(3855)*V(1150)*V(5250) - A(3856) = RCT(3856)*V(1150) - A(3857) = RCT(3857)*V(2087)*V(5250) - A(3858) = RCT(3858)*V(2087) - A(3859) = RCT(3859)*V(2088) - A(3860) = RCT(3860)*V(446)*V(5250) - A(3861) = RCT(3861)*V(3331)*V(5250) - A(3862) = RCT(3862)*V(3331) - A(3863) = RCT(3863)*V(1535)*V(5250) - A(3864) = RCT(3864)*V(1535) - A(3865) = RCT(3865)*V(3445)*V(5250) - A(3866) = RCT(3866)*V(3445) - A(3867) = RCT(3867)*V(4177) - A(3868) = RCT(3868)*V(4177) - A(3869) = RCT(3869)*V(4177) - A(3870) = RCT(3870)*V(4177) - A(3871) = RCT(3871)*V(4177) - A(3872) = RCT(3872)*V(4177) - A(3873) = RCT(3873)*V(54)*V(5250) - A(3874) = RCT(3874)*V(4654)*V(5255) - A(3875) = RCT(3875)*V(4654)*V(5255) - A(3876) = RCT(3876)*V(4654)*V(5255) - A(3877) = RCT(3877)*V(4654)*V(5252) - A(3878) = RCT(3878)*V(4654)*V(5253) - A(3879) = RCT(3879)*V(4654)*V(5256) - A(3880) = RCT(3880)*V(4654) - A(3881) = RCT(3881)*V(4654) - A(3882) = RCT(3882)*V(4576)*V(5256) - A(3883) = RCT(3883)*V(4576)*V(5250) - A(3884) = RCT(3884)*V(4576) - A(3885) = RCT(3885)*V(4575)*V(5255) - A(3886) = RCT(3886)*V(4575)*V(5252) - A(3887) = RCT(3887)*V(4575)*V(5252) - A(3888) = RCT(3888)*V(4575)*V(5256) - A(3889) = RCT(3889)*V(4575) - A(3890) = RCT(3890)*V(4575) - A(3891) = RCT(3891)*V(4575) - A(3892) = RCT(3892)*V(4311)*V(5255) - A(3893) = RCT(3893)*V(4311)*V(5252) - A(3894) = RCT(3894)*V(4311)*V(5256) - A(3895) = RCT(3895)*V(4311) - A(3896) = RCT(3896)*V(4311) - A(3897) = RCT(3897)*V(3665)*V(5255) - A(3898) = RCT(3898)*V(3665)*V(5252) - A(3899) = RCT(3899)*V(3665)*V(5256) - A(3900) = RCT(3900)*V(3665) - A(3901) = RCT(3901)*V(3665) - A(3902) = RCT(3902)*V(4438)*V(5253) - A(3903) = RCT(3903)*V(4438)*V(5258) - A(3904) = RCT(3904)*V(3503)*V(5255) - A(3905) = RCT(3905)*V(3503)*V(5252) - A(3906) = RCT(3906)*V(3503)*V(5256) - A(3907) = RCT(3907)*V(3503) - A(3908) = RCT(3908)*V(3503) - A(3909) = RCT(3909)*V(3506)*V(5256) - A(3910) = RCT(3910)*V(3506)*V(5258) - A(3911) = RCT(3911)*V(3506)*V(5250) - A(3912) = RCT(3912)*V(861)*V(5250) - A(3913) = RCT(3913)*V(861) - A(3914) = RCT(3914)*V(1896)*V(5250) - A(3915) = RCT(3915)*V(1896) - A(3916) = RCT(3916)*V(3826) - A(3917) = RCT(3917)*V(3826) - A(3918) = RCT(3918)*V(3826) - A(3919) = RCT(3919)*V(3826) - A(3920) = RCT(3920)*V(3826) - A(3921) = RCT(3921)*V(22)*V(5250) - A(3922) = RCT(3922)*V(2021)*V(5250) - A(3923) = RCT(3923)*V(2021) - A(3924) = RCT(3924)*V(4132)*V(5255) - A(3925) = RCT(3925)*V(4132)*V(5255) - A(3926) = RCT(3926)*V(4132)*V(5255) - A(3927) = RCT(3927)*V(4132)*V(5253) - A(3928) = RCT(3928)*V(4132)*V(5253) - A(3929) = RCT(3929)*V(4132)*V(5256) - A(3930) = RCT(3930)*V(4132) - A(3931) = RCT(3931)*V(4132) - A(3932) = RCT(3932)*V(4725)*V(5255) - A(3933) = RCT(3933)*V(4725)*V(5252) - A(3934) = RCT(3934)*V(4725)*V(5252) - A(3935) = RCT(3935)*V(4725)*V(5256) - A(3936) = RCT(3936)*V(4725) - A(3937) = RCT(3937)*V(4725) - A(3938) = RCT(3938)*V(4725) - A(3939) = RCT(3939)*V(4897)*V(5255) - A(3940) = RCT(3940)*V(4897)*V(5252) - A(3941) = RCT(3941)*V(4897)*V(5256) - A(3942) = RCT(3942)*V(4897) - A(3943) = RCT(3943)*V(4897) - A(3944) = RCT(3944)*V(4897) - A(3945) = RCT(3945)*V(4437)*V(5253) - A(3946) = RCT(3946)*V(4437)*V(5258) - A(3947) = RCT(3947)*V(3511)*V(5255) - A(3948) = RCT(3948)*V(3511)*V(5252) - A(3949) = RCT(3949)*V(3511)*V(5256) - A(3950) = RCT(3950)*V(3511) - A(3951) = RCT(3951)*V(3511) - A(3952) = RCT(3952)*V(3791)*V(5255) - A(3953) = RCT(3953)*V(3791)*V(5252) - A(3954) = RCT(3954)*V(3791)*V(5256) - A(3955) = RCT(3955)*V(3791) - A(3956) = RCT(3956)*V(3791) - A(3957) = RCT(3957)*V(3499)*V(5256) - A(3958) = RCT(3958)*V(3499)*V(5258) - A(3959) = RCT(3959)*V(3499)*V(5250) - A(3960) = RCT(3960)*V(1525)*V(5250) - A(3961) = RCT(3961)*V(1525) - A(3962) = RCT(3962)*V(1000)*V(5250) - A(3963) = RCT(3963)*V(1000) - A(3964) = RCT(3964)*V(3802) - A(3965) = RCT(3965)*V(3802) - A(3966) = RCT(3966)*V(3802) - A(3967) = RCT(3967)*V(3802) - A(3968) = RCT(3968)*V(129)*V(5250) - A(3969) = RCT(3969)*V(4633)*V(5255) - A(3970) = RCT(3970)*V(4633)*V(5255) - A(3971) = RCT(3971)*V(4633)*V(5255) - A(3972) = RCT(3972)*V(4633)*V(5252) - A(3973) = RCT(3973)*V(4633)*V(5253) - A(3974) = RCT(3974)*V(4633)*V(5256) - A(3975) = RCT(3975)*V(4633) - A(3976) = RCT(3976)*V(4633) - A(3977) = RCT(3977)*V(4727)*V(5255) - A(3978) = RCT(3978)*V(4727)*V(5252) - A(3979) = RCT(3979)*V(4727)*V(5252) - A(3980) = RCT(3980)*V(4727)*V(5256) - A(3981) = RCT(3981)*V(4727) - A(3982) = RCT(3982)*V(4727) - A(3983) = RCT(3983)*V(4727) - A(3984) = RCT(3984)*V(4905)*V(5255) - A(3985) = RCT(3985)*V(4905)*V(5252) - A(3986) = RCT(3986)*V(4905)*V(5256) - A(3987) = RCT(3987)*V(4905) - A(3988) = RCT(3988)*V(4905) - A(3989) = RCT(3989)*V(3825)*V(5255) - A(3990) = RCT(3990)*V(3825)*V(5252) - A(3991) = RCT(3991)*V(3825)*V(5256) - A(3992) = RCT(3992)*V(3825) - A(3993) = RCT(3993)*V(3825) - A(3994) = RCT(3994)*V(4504)*V(5253) - A(3995) = RCT(3995)*V(4504)*V(5258) - A(3996) = RCT(3996)*V(3489)*V(5255) - A(3997) = RCT(3997)*V(3489)*V(5252) - A(3998) = RCT(3998)*V(3489)*V(5256) - A(3999) = RCT(3999)*V(3489) - A(4000) = RCT(4000)*V(3489) - A(4001) = RCT(4001)*V(3551)*V(5256) - A(4002) = RCT(4002)*V(3551)*V(5258) - A(4003) = RCT(4003)*V(3551)*V(5250) - A(4004) = RCT(4004)*V(1270)*V(5250) - A(4005) = RCT(4005)*V(1270) - A(4006) = RCT(4006)*V(2333)*V(5250) - A(4007) = RCT(4007)*V(2333) - A(4008) = RCT(4008)*V(2334) - A(4009) = RCT(4009)*V(505)*V(5250) - A(4010) = RCT(4010)*V(3412)*V(5250) - A(4011) = RCT(4011)*V(3412) - A(4012) = RCT(4012)*V(1200)*V(5250) - A(4013) = RCT(4013)*V(1200) - A(4014) = RCT(4014)*V(1216)*V(5250) - A(4015) = RCT(4015)*V(1216) - A(4016) = RCT(4016)*V(3818) - A(4017) = RCT(4017)*V(3818) - A(4018) = RCT(4018)*V(3818) - A(4019) = RCT(4019)*V(3818) - A(4020) = RCT(4020)*V(81)*V(5250) - A(4021) = RCT(4021)*V(634)*V(5250) - A(4022) = RCT(4022)*V(634) - A(4023) = RCT(4023)*V(4685)*V(5255) - A(4024) = RCT(4024)*V(4685)*V(5255) - A(4025) = RCT(4025)*V(4685)*V(5255) - A(4026) = RCT(4026)*V(4685)*V(5252) - A(4027) = RCT(4027)*V(4685)*V(5253) - A(4028) = RCT(4028)*V(4685)*V(5256) - A(4029) = RCT(4029)*V(4685) - A(4030) = RCT(4030)*V(4685) - A(4031) = RCT(4031)*V(3186) - A(4032) = RCT(4032)*V(3186) - A(4033) = RCT(4033)*V(4400)*V(5255) - A(4034) = RCT(4034)*V(4400)*V(5252) - A(4035) = RCT(4035)*V(4400)*V(5252) - A(4036) = RCT(4036)*V(4400)*V(5256) - A(4037) = RCT(4037)*V(4400) - A(4038) = RCT(4038)*V(4400) - A(4039) = RCT(4039)*V(4992)*V(5255) - A(4040) = RCT(4040)*V(4992)*V(5252) - A(4041) = RCT(4041)*V(4992)*V(5256) - A(4042) = RCT(4042)*V(4992) - A(4043) = RCT(4043)*V(4992) - A(4044) = RCT(4044)*V(4992) - A(4045) = RCT(4045)*V(677)*V(5255) - A(4046) = RCT(4046)*V(3631)*V(5255) - A(4047) = RCT(4047)*V(3631)*V(5252) - A(4048) = RCT(4048)*V(3631)*V(5256) - A(4049) = RCT(4049)*V(3631) - A(4050) = RCT(4050)*V(3631) - A(4051) = RCT(4051)*V(3632)*V(5255) - A(4052) = RCT(4052)*V(3632)*V(5252) - A(4053) = RCT(4053)*V(3632)*V(5256) - A(4054) = RCT(4054)*V(3632) - A(4055) = RCT(4055)*V(3632) - A(4056) = RCT(4056)*V(1131)*V(5250) - A(4057) = RCT(4057)*V(1131) - A(4058) = RCT(4058)*V(2078)*V(5250) - A(4059) = RCT(4059)*V(2078) - A(4060) = RCT(4060)*V(1822) - A(4061) = RCT(4061)*V(432)*V(5250) - A(4062) = RCT(4062)*V(3343)*V(5250) - A(4063) = RCT(4063)*V(3343) - A(4064) = RCT(4064)*V(627)*V(5255) - A(4065) = RCT(4065)*V(3659)*V(5255) - A(4066) = RCT(4066)*V(3659)*V(5252) - A(4067) = RCT(4067)*V(3659)*V(5256) - A(4068) = RCT(4068)*V(3659) - A(4069) = RCT(4069)*V(3659) - A(4070) = RCT(4070)*V(3650)*V(5255) - A(4071) = RCT(4071)*V(3650)*V(5252) - A(4072) = RCT(4072)*V(3650)*V(5256) - A(4073) = RCT(4073)*V(3650) - A(4074) = RCT(4074)*V(3650) - A(4075) = RCT(4075)*V(1159)*V(5250) - A(4076) = RCT(4076)*V(1159) - A(4077) = RCT(4077)*V(1083)*V(5250) - A(4078) = RCT(4078)*V(1083) - A(4079) = RCT(4079)*V(3403) - A(4080) = RCT(4080)*V(3403) - A(4081) = RCT(4081)*V(128)*V(5250) - A(4082) = RCT(4082)*V(796)*V(5250) - A(4083) = RCT(4083)*V(796) - A(4084) = RCT(4084)*V(4656)*V(5255) - A(4085) = RCT(4085)*V(4656)*V(5255) - A(4086) = RCT(4086)*V(4656)*V(5255) - A(4087) = RCT(4087)*V(4656)*V(5252) - A(4088) = RCT(4088)*V(4656)*V(5253) - A(4089) = RCT(4089)*V(4656)*V(5256) - A(4090) = RCT(4090)*V(4656) - A(4091) = RCT(4091)*V(4656) - A(4092) = RCT(4092)*V(4933)*V(5256) - A(4093) = RCT(4093)*V(4933)*V(5250) - A(4094) = RCT(4094)*V(4933) - A(4095) = RCT(4095)*V(4933) - A(4096) = RCT(4096)*V(4335)*V(5255) - A(4097) = RCT(4097)*V(4335)*V(5252) - A(4098) = RCT(4098)*V(4335)*V(5252) - A(4099) = RCT(4099)*V(4335)*V(5256) - A(4100) = RCT(4100)*V(4335) - A(4101) = RCT(4101)*V(4335) - A(4102) = RCT(4102)*V(4813)*V(5255) - A(4103) = RCT(4103)*V(4813)*V(5252) - A(4104) = RCT(4104)*V(4813)*V(5256) - A(4105) = RCT(4105)*V(4813) - A(4106) = RCT(4106)*V(4813) - A(4107) = RCT(4107)*V(4813) - A(4108) = RCT(4108)*V(328)*V(5250) - A(4109) = RCT(4109)*V(1240) - A(4110) = RCT(4110)*V(4919)*V(5251) - A(4111) = RCT(4111)*V(4919)*V(5252) - A(4112) = RCT(4112)*V(4919)*V(5253) - A(4113) = RCT(4113)*V(4919)*V(5254) - A(4114) = RCT(4114)*V(4919) - A(4115) = RCT(4115)*V(4919) - A(4116) = RCT(4116)*V(1377)*V(5250) - A(4117) = RCT(4117)*V(1377) - A(4118) = RCT(4118)*V(3072) - A(4119) = RCT(4119)*V(1095)*V(5250) - A(4120) = RCT(4120)*V(1095) - A(4121) = RCT(4121)*V(613)*V(5250) - A(4122) = RCT(4122)*V(3317)*V(5250) - A(4123) = RCT(4123)*V(3317) - A(4124) = RCT(4124)*V(1763)*V(5250) - A(4125) = RCT(4125)*V(1763) - A(4126) = RCT(4126)*V(969) - A(4127) = RCT(4127)*V(969)*V(5250) - A(4128) = RCT(4128)*V(552) - A(4129) = RCT(4129)*V(2222)*V(5250) - A(4130) = RCT(4130)*V(3763) - A(4131) = RCT(4131)*V(3763)*V(5250) - A(4132) = RCT(4132)*V(1365) - A(4133) = RCT(4133)*V(1365)*V(5250) - A(4134) = RCT(4134)*V(2099) - A(4135) = RCT(4135)*V(2099)*V(5250) - A(4136) = RCT(4136)*V(2100) - A(4137) = RCT(4137)*V(3102) - A(4138) = RCT(4138)*V(3102)*V(5250) - A(4139) = RCT(4139)*V(5050) - A(4140) = RCT(4140)*V(5050)*V(5256) - A(4141) = RCT(4141)*V(5050)*V(5258) - A(4142) = RCT(4142)*V(5050)*V(5258) - A(4143) = RCT(4143)*V(5050)*V(5250) - A(4144) = RCT(4144)*V(5050)*V(5250) - A(4145) = RCT(4145)*V(4819)*V(5251) - A(4146) = RCT(4146)*V(4819)*V(5252) - A(4147) = RCT(4147)*V(4819)*V(5253) - A(4148) = RCT(4148)*V(4819)*V(5254) - A(4149) = RCT(4149)*V(4819) - A(4150) = RCT(4150)*V(4819) - A(4151) = RCT(4151)*V(1352) - A(4152) = RCT(4152)*V(1352)*V(5250) - A(4153) = RCT(4153)*V(1971) - A(4154) = RCT(4154)*V(238)*V(5250) - A(4155) = RCT(4155)*V(5049) - A(4156) = RCT(4156)*V(5049) - A(4157) = RCT(4157)*V(5049)*V(5256) - A(4158) = RCT(4158)*V(5049)*V(5258) - A(4159) = RCT(4159)*V(5049)*V(5258) - A(4160) = RCT(4160)*V(5049)*V(5250) - A(4161) = RCT(4161)*V(5049)*V(5250) - A(4162) = RCT(4162)*V(841) - A(4163) = RCT(4163)*V(841)*V(5250) - A(4164) = RCT(4164)*V(1172)*V(5250) - A(4165) = RCT(4165)*V(2771) - A(4166) = RCT(4166)*V(1054)*V(5250) - A(4167) = RCT(4167)*V(5093)*V(5258) - A(4168) = RCT(4168)*V(5093)*V(5258) - A(4169) = RCT(4169)*V(5093)*V(5250) - A(4170) = RCT(4170)*V(5093)*V(5250) - A(4171) = RCT(4171)*V(5093) - A(4172) = RCT(4172)*V(5093) - A(4173) = RCT(4173)*V(1395) - A(4174) = RCT(4174)*V(1395)*V(5250) - A(4175) = RCT(4175)*V(2706) - A(4176) = RCT(4176)*V(4373) - A(4177) = RCT(4177)*V(4373)*V(5256) - A(4178) = RCT(4178)*V(4373)*V(5250) - A(4179) = RCT(4179)*V(1258) - A(4180) = RCT(4180)*V(1258)*V(5250) - A(4181) = RCT(4181)*V(2040) - A(4182) = RCT(4182)*V(2040)*V(5250) - A(4183) = RCT(4183)*V(2041) - A(4184) = RCT(4184)*V(5168) - A(4185) = RCT(4185)*V(5168)*V(5258) - A(4186) = RCT(4186)*V(5168)*V(5258) - A(4187) = RCT(4187)*V(5168)*V(5250) - A(4188) = RCT(4188)*V(5069) - A(4189) = RCT(4189)*V(5069)*V(5256) - A(4190) = RCT(4190)*V(5069)*V(5258) - A(4191) = RCT(4191)*V(5069)*V(5258) - A(4192) = RCT(4192)*V(5069)*V(5250) - A(4193) = RCT(4193)*V(5069)*V(5250) - A(4194) = RCT(4194)*V(2479) - A(4195) = RCT(4195)*V(2479) - A(4196) = RCT(4196)*V(2479) - A(4197) = RCT(4197)*V(2479) - A(4198) = RCT(4198)*V(5020)*V(5255) - A(4199) = RCT(4199)*V(5020)*V(5252) - A(4200) = RCT(4200)*V(5020)*V(5252) - A(4201) = RCT(4201)*V(5020)*V(5256) - A(4202) = RCT(4202)*V(5020) - A(4203) = RCT(4203)*V(5020) - A(4204) = RCT(4204)*V(5020) - A(4205) = RCT(4205)*V(5016)*V(5252) - A(4206) = RCT(4206)*V(5016)*V(5255) - A(4207) = RCT(4207)*V(5016)*V(5252) - A(4208) = RCT(4208)*V(5016)*V(5256) - A(4209) = RCT(4209)*V(5016) - A(4210) = RCT(4210)*V(5016) - A(4211) = RCT(4211)*V(5016) - A(4212) = RCT(4212)*V(4906)*V(5251) - A(4213) = RCT(4213)*V(4906)*V(5252) - A(4214) = RCT(4214)*V(4906)*V(5253) - A(4215) = RCT(4215)*V(4906)*V(5254) - A(4216) = RCT(4216)*V(4906) - A(4217) = RCT(4217)*V(4906) - A(4218) = RCT(4218)*V(4286)*V(5251) - A(4219) = RCT(4219)*V(4286)*V(5252) - A(4220) = RCT(4220)*V(4286)*V(5253) - A(4221) = RCT(4221)*V(4286)*V(5254) - A(4222) = RCT(4222)*V(4286) - A(4223) = RCT(4223)*V(4774)*V(5255) - A(4224) = RCT(4224)*V(4774)*V(5252) - A(4225) = RCT(4225)*V(4774)*V(5256) - A(4226) = RCT(4226)*V(4774) - A(4227) = RCT(4227)*V(4774) - A(4228) = RCT(4228)*V(4774) - A(4229) = RCT(4229)*V(5217)*V(5255) - A(4230) = RCT(4230)*V(5217)*V(5252) - A(4231) = RCT(4231)*V(5217)*V(5252) - A(4232) = RCT(4232)*V(5217)*V(5256) - A(4233) = RCT(4233)*V(5217) - A(4234) = RCT(4234)*V(5217) - A(4235) = RCT(4235)*V(5217) - A(4236) = RCT(4236)*V(5217) - A(4237) = RCT(4237)*V(5217) - A(4238) = RCT(4238)*V(5217) - A(4239) = RCT(4239)*V(5219)*V(5255) - A(4240) = RCT(4240)*V(5219)*V(5252) - A(4241) = RCT(4241)*V(5219)*V(5252) - A(4242) = RCT(4242)*V(5219)*V(5256) - A(4243) = RCT(4243)*V(5219) - A(4244) = RCT(4244)*V(5219) - A(4245) = RCT(4245)*V(5219) - A(4246) = RCT(4246)*V(5219) - A(4247) = RCT(4247)*V(5219) - A(4248) = RCT(4248)*V(5204)*V(5255) - A(4249) = RCT(4249)*V(5204)*V(5252) - A(4250) = RCT(4250)*V(5204)*V(5252) - A(4251) = RCT(4251)*V(5204)*V(5256) - A(4252) = RCT(4252)*V(5204) - A(4253) = RCT(4253)*V(5204) - A(4254) = RCT(4254)*V(5204) - A(4255) = RCT(4255)*V(5204) - A(4256) = RCT(4256)*V(5204) - A(4257) = RCT(4257)*V(5204) - A(4258) = RCT(4258)*V(5224)*V(5255) - A(4259) = RCT(4259)*V(5224)*V(5252) - A(4260) = RCT(4260)*V(5224)*V(5252) - A(4261) = RCT(4261)*V(5224)*V(5256) - A(4262) = RCT(4262)*V(5224) - A(4263) = RCT(4263)*V(5224) - A(4264) = RCT(4264)*V(5224) - A(4265) = RCT(4265)*V(5224) - A(4266) = RCT(4266)*V(5224) - A(4267) = RCT(4267)*V(5224) - A(4268) = RCT(4268)*V(968)*V(5250) - A(4269) = RCT(4269)*V(968) - A(4270) = RCT(4270)*V(4096)*V(5250) - A(4271) = RCT(4271)*V(4096)*V(5258) - A(4272) = RCT(4272)*V(4096)*V(5258) - A(4273) = RCT(4273)*V(2623) - A(4274) = RCT(4274)*V(3228)*V(5250) - A(4275) = RCT(4275)*V(3228)*V(5250) - A(4276) = RCT(4276)*V(3228) - A(4277) = RCT(4277)*V(1280)*V(5250) - A(4278) = RCT(4278)*V(4337)*V(5255) - A(4279) = RCT(4279)*V(4337)*V(5252) - A(4280) = RCT(4280)*V(4337)*V(5256) - A(4281) = RCT(4281)*V(4337) - A(4282) = RCT(4282)*V(514) - A(4283) = RCT(4283)*V(514) - A(4284) = RCT(4284)*V(3980)*V(5255) - A(4285) = RCT(4285)*V(3980)*V(5252) - A(4286) = RCT(4286)*V(3980)*V(5252) - A(4287) = RCT(4287)*V(3980)*V(5256) - A(4288) = RCT(4288)*V(3980) - A(4289) = RCT(4289)*V(4255)*V(5255) - A(4290) = RCT(4290)*V(4255)*V(5255) - A(4291) = RCT(4291)*V(4255)*V(5252) - A(4292) = RCT(4292)*V(4255)*V(5253) - A(4293) = RCT(4293)*V(4255)*V(5256) - A(4294) = RCT(4294)*V(4255) - A(4295) = RCT(4295)*V(4087)*V(5255) - A(4296) = RCT(4296)*V(4087)*V(5252) - A(4297) = RCT(4297)*V(4087)*V(5252) - A(4298) = RCT(4298)*V(4087)*V(5256) - A(4299) = RCT(4299)*V(4087) - A(4300) = RCT(4300)*V(3865)*V(5255) - A(4301) = RCT(4301)*V(3865)*V(5252) - A(4302) = RCT(4302)*V(3865)*V(5256) - A(4303) = RCT(4303)*V(3865) - A(4304) = RCT(4304)*V(2425) - A(4305) = RCT(4305)*V(2425) - A(4306) = RCT(4306)*V(2425) - A(4307) = RCT(4307)*V(2425) - A(4308) = RCT(4308)*V(5127)*V(5255) - A(4309) = RCT(4309)*V(5127)*V(5252) - A(4310) = RCT(4310)*V(5127)*V(5252) - A(4311) = RCT(4311)*V(5127)*V(5256) - A(4312) = RCT(4312)*V(5127) - A(4313) = RCT(4313)*V(5127) - A(4314) = RCT(4314)*V(5127) - A(4315) = RCT(4315)*V(3496)*V(5255) - A(4316) = RCT(4316)*V(3496)*V(5252) - A(4317) = RCT(4317)*V(3496)*V(5252) - A(4318) = RCT(4318)*V(3496)*V(5256) - A(4319) = RCT(4319)*V(3496) - A(4320) = RCT(4320)*V(3496) - A(4321) = RCT(4321)*V(3496) - A(4322) = RCT(4322)*V(5218)*V(5255) - A(4323) = RCT(4323)*V(5218)*V(5252) - A(4324) = RCT(4324)*V(5218)*V(5252) - A(4325) = RCT(4325)*V(5218)*V(5256) - A(4326) = RCT(4326)*V(5218) - A(4327) = RCT(4327)*V(5218) - A(4328) = RCT(4328)*V(5218) - A(4329) = RCT(4329)*V(5218) - A(4330) = RCT(4330)*V(5118)*V(5255) - A(4331) = RCT(4331)*V(5118)*V(5252) - A(4332) = RCT(4332)*V(5118)*V(5252) - A(4333) = RCT(4333)*V(5118)*V(5256) - A(4334) = RCT(4334)*V(5118) - A(4335) = RCT(4335)*V(5118) - A(4336) = RCT(4336)*V(5118) - A(4337) = RCT(4337)*V(5118) - A(4338) = RCT(4338)*V(1239)*V(5250) - A(4339) = RCT(4339)*V(1239) - A(4340) = RCT(4340)*V(2574)*V(5250) - A(4341) = RCT(4341)*V(2574)*V(5250) - A(4342) = RCT(4342)*V(1922)*V(5250) - A(4343) = RCT(4343)*V(1922) - A(4344) = RCT(4344)*V(1923) - A(4345) = RCT(4345)*V(307)*V(5250) - A(4346) = RCT(4346)*V(1143)*V(5250) - A(4347) = RCT(4347)*V(1143) - A(4348) = RCT(4348)*V(3156)*V(5250) - A(4349) = RCT(4349)*V(3156)*V(5250) - A(4350) = RCT(4350)*V(3156)*V(5250) - A(4351) = RCT(4351)*V(2075)*V(5250) - A(4352) = RCT(4352)*V(2075) - A(4353) = RCT(4353)*V(2076) - A(4354) = RCT(4354)*V(417)*V(5250) - A(4355) = RCT(4355)*V(1305)*V(5250) - A(4356) = RCT(4356)*V(1305) - A(4357) = RCT(4357)*V(2817)*V(5250) - A(4358) = RCT(4358)*V(2817) - A(4359) = RCT(4359)*V(1867) - A(4360) = RCT(4360)*V(3472)*V(5256) - A(4361) = RCT(4361)*V(3472)*V(5256) - A(4362) = RCT(4362)*V(3472)*V(5250) - A(4363) = RCT(4363)*V(3472)*V(5250) - A(4364) = RCT(4364)*V(3472)*V(5250) - A(4365) = RCT(4365)*V(3900)*V(5256) - A(4366) = RCT(4366)*V(3900)*V(5250) - A(4367) = RCT(4367)*V(3900) - A(4368) = RCT(4368)*V(2326) - A(4369) = RCT(4369)*V(4383)*V(5250) - A(4370) = RCT(4370)*V(4383)*V(5250) - A(4371) = RCT(4371)*V(4383) - A(4372) = RCT(4372)*V(4383) - A(4373) = RCT(4373)*V(2070)*V(5250) - A(4374) = RCT(4374)*V(2070)*V(5250) - A(4375) = RCT(4375)*V(2070) - A(4376) = RCT(4376)*V(1895)*V(5250) - A(4377) = RCT(4377)*V(1895) - A(4378) = RCT(4378)*V(2539) - A(4379) = RCT(4379)*V(2539) - A(4380) = RCT(4380)*V(2715)*V(5250) - A(4381) = RCT(4381)*V(2715)*V(5250) - A(4382) = RCT(4382)*V(2715) - A(4383) = RCT(4383)*V(2715) - A(4384) = RCT(4384)*V(1592) - A(4385) = RCT(4385)*V(4938) - A(4386) = RCT(4386)*V(4938)*V(5250) - A(4387) = RCT(4387)*V(2774)*V(5250) - A(4388) = RCT(4388)*V(2774)*V(5250) - A(4389) = RCT(4389)*V(2774) - A(4390) = RCT(4390)*V(2774) - A(4391) = RCT(4391)*V(1574) - A(4392) = RCT(4392)*V(5139) - A(4393) = RCT(4393)*V(5139)*V(5256) - A(4394) = RCT(4394)*V(5139)*V(5250) - A(4395) = RCT(4395)*V(3222)*V(5250) - A(4396) = RCT(4396)*V(3222)*V(5250) - A(4397) = RCT(4397)*V(3222) - A(4398) = RCT(4398)*V(3222) - A(4399) = RCT(4399)*V(179) - A(4400) = RCT(4400)*V(2365)*V(5250) - A(4401) = RCT(4401)*V(2365) - A(4402) = RCT(4402)*V(4801)*V(5250) - A(4403) = RCT(4403)*V(4801) - A(4404) = RCT(4404)*V(4391)*V(5250) - A(4405) = RCT(4405)*V(4391) - A(4406) = RCT(4406)*V(3035)*V(5250) - A(4407) = RCT(4407)*V(3035)*V(5250) - A(4408) = RCT(4408)*V(3035) - A(4409) = RCT(4409)*V(3035) - A(4410) = RCT(4410)*V(1595) - A(4411) = RCT(4411)*V(4618)*V(5250) - A(4412) = RCT(4412)*V(4618) - A(4413) = RCT(4413)*V(2893)*V(5250) - A(4414) = RCT(4414)*V(2893)*V(5250) - A(4415) = RCT(4415)*V(2893) - A(4416) = RCT(4416)*V(2893) - A(4417) = RCT(4417)*V(1638) - A(4418) = RCT(4418)*V(2400)*V(5250) - A(4419) = RCT(4419)*V(2400)*V(5250) - A(4420) = RCT(4420)*V(2400) - A(4421) = RCT(4421)*V(2083)*V(5250) - A(4422) = RCT(4422)*V(2083) - A(4423) = RCT(4423)*V(175) - A(4424) = RCT(4424)*V(2665)*V(5250) - A(4425) = RCT(4425)*V(2665) - A(4426) = RCT(4426)*V(1983) - A(4427) = RCT(4427)*V(1983)*V(5250) - A(4428) = RCT(4428)*V(3104) - A(4429) = RCT(4429)*V(1132) - A(4430) = RCT(4430)*V(1132)*V(5250) - A(4431) = RCT(4431)*V(2092) - A(4432) = RCT(4432)*V(2092)*V(5250) - A(4433) = RCT(4433)*V(2614) - A(4434) = RCT(4434)*V(2614) - A(4435) = RCT(4435)*V(5026) - A(4436) = RCT(4436)*V(5026)*V(5256) - A(4437) = RCT(4437)*V(5026)*V(5250) - A(4438) = RCT(4438)*V(2269)*V(5250) - A(4439) = RCT(4439)*V(2269)*V(5250) - A(4440) = RCT(4440)*V(2269) - A(4441) = RCT(4441)*V(1841)*V(5250) - A(4442) = RCT(4442)*V(1841) - A(4443) = RCT(4443)*V(185) - A(4444) = RCT(4444)*V(5157)*V(5250) - A(4445) = RCT(4445)*V(5157) - A(4446) = RCT(4446)*V(5157) - A(4447) = RCT(4447)*V(1719)*V(5250) - A(4448) = RCT(4448)*V(1719) - A(4449) = RCT(4449)*V(1876)*V(5250) - A(4450) = RCT(4450)*V(1876)*V(5250) - A(4451) = RCT(4451)*V(1876) - A(4452) = RCT(4452)*V(1904)*V(5250) - A(4453) = RCT(4453)*V(1904) - A(4454) = RCT(4454)*V(3367) - A(4455) = RCT(4455)*V(3367) - A(4456) = RCT(4456)*V(3530) - A(4457) = RCT(4457)*V(3530)*V(5250) - A(4458) = RCT(4458)*V(4300) - A(4459) = RCT(4459)*V(4300)*V(5250) - A(4460) = RCT(4460)*V(4300)*V(5250) - A(4461) = RCT(4461)*V(2878)*V(5250) - A(4462) = RCT(4462)*V(2878)*V(5250) - A(4463) = RCT(4463)*V(2878) - A(4464) = RCT(4464)*V(2878) - A(4465) = RCT(4465)*V(1699) - A(4466) = RCT(4466)*V(3498)*V(5250) - A(4467) = RCT(4467)*V(3498) - A(4468) = RCT(4468)*V(3288)*V(5250) - A(4469) = RCT(4469)*V(3288)*V(5250) - A(4470) = RCT(4470)*V(3288) - A(4471) = RCT(4471)*V(3288) - A(4472) = RCT(4472)*V(1954)*V(5250) - A(4473) = RCT(4473)*V(1954) - A(4474) = RCT(4474)*V(150) - A(4475) = RCT(4475)*V(1704)*V(5250) - A(4476) = RCT(4476)*V(1704) - A(4477) = RCT(4477)*V(2572)*V(5250) - A(4478) = RCT(4478)*V(2572)*V(5250) - A(4479) = RCT(4479)*V(2572) - A(4480) = RCT(4480)*V(2572) - A(4481) = RCT(4481)*V(761) - A(4482) = RCT(4482)*V(1712)*V(5250) - A(4483) = RCT(4483)*V(1712) - A(4484) = RCT(4484)*V(1711)*V(5250) - A(4485) = RCT(4485)*V(1711) - A(4486) = RCT(4486)*V(2558)*V(5250) - A(4487) = RCT(4487)*V(2558)*V(5250) - A(4488) = RCT(4488)*V(2558) - A(4489) = RCT(4489)*V(2558) - A(4490) = RCT(4490)*V(1737) - A(4491) = RCT(4491)*V(2401)*V(5250) - A(4492) = RCT(4492)*V(2401)*V(5250) - A(4493) = RCT(4493)*V(2401) - A(4494) = RCT(4494)*V(2213)*V(5250) - A(4495) = RCT(4495)*V(2213) - A(4496) = RCT(4496)*V(167) - A(4497) = RCT(4497)*V(4717)*V(5256) - A(4498) = RCT(4498)*V(4717)*V(5250) - A(4499) = RCT(4499)*V(4717) - A(4500) = RCT(4500)*V(4717) - A(4501) = RCT(4501)*V(1599)*V(5250) - A(4502) = RCT(4502)*V(1599) - A(4503) = RCT(4503)*V(1153)*V(5250) - A(4504) = RCT(4504)*V(1153) - A(4505) = RCT(4505)*V(3068)*V(5250) - A(4506) = RCT(4506)*V(3068) - A(4507) = RCT(4507)*V(3069) - A(4508) = RCT(4508)*V(3069) - A(4509) = RCT(4509)*V(3314)*V(5250) - A(4510) = RCT(4510)*V(3314)*V(5250) - A(4511) = RCT(4511)*V(3314) - A(4512) = RCT(4512)*V(3314) - A(4513) = RCT(4513)*V(666) - A(4514) = RCT(4514)*V(1790)*V(5250) - A(4515) = RCT(4515)*V(1790) - A(4516) = RCT(4516)*V(1587)*V(5250) - A(4517) = RCT(4517)*V(1587) - A(4518) = RCT(4518)*V(1177) - A(4519) = RCT(4519)*V(1177)*V(5250) - A(4520) = RCT(4520)*V(2453) - A(4521) = RCT(4521)*V(2453)*V(5250) - A(4522) = RCT(4522)*V(2634) - A(4523) = RCT(4523)*V(2634) - A(4524) = RCT(4524)*V(3879) - A(4525) = RCT(4525)*V(3879)*V(5256) - A(4526) = RCT(4526)*V(3879)*V(5250) - A(4527) = RCT(4527)*V(577) - A(4528) = RCT(4528)*V(577)*V(5250) - A(4529) = RCT(4529)*V(1313)*V(5250) - A(4530) = RCT(4530)*V(1313) - A(4531) = RCT(4531)*V(2215)*V(5250) - A(4532) = RCT(4532)*V(2215) - A(4533) = RCT(4533)*V(3066) - A(4534) = RCT(4534)*V(3066) - A(4535) = RCT(4535)*V(3607)*V(5250) - A(4536) = RCT(4536)*V(3607) - A(4537) = RCT(4537)*V(1673)*V(5250) - A(4538) = RCT(4538)*V(1673) - A(4539) = RCT(4539)*V(1844)*V(5250) - A(4540) = RCT(4540)*V(1844) - A(4541) = RCT(4541)*V(670) - A(4542) = RCT(4542)*V(2023)*V(5250) - A(4543) = RCT(4543)*V(2174)*V(5250) - A(4544) = RCT(4544)*V(2174)*V(5250) - A(4545) = RCT(4545)*V(2174) - A(4546) = RCT(4546)*V(3744) - A(4547) = RCT(4547)*V(3744) - A(4548) = RCT(4548)*V(2181)*V(5250) - A(4549) = RCT(4549)*V(3090)*V(5250) - A(4550) = RCT(4550)*V(3090) - A(4551) = RCT(4551)*V(4201)*V(5255) - A(4552) = RCT(4552)*V(4201)*V(5252) - A(4553) = RCT(4553)*V(4201)*V(5256) - A(4554) = RCT(4554)*V(4201) - A(4555) = RCT(4555)*V(4201) - A(4556) = RCT(4556)*V(4563)*V(5255) - A(4557) = RCT(4557)*V(4563)*V(5252) - A(4558) = RCT(4558)*V(4563)*V(5256) - A(4559) = RCT(4559)*V(4563) - A(4560) = RCT(4560)*V(4563) - A(4561) = RCT(4561)*V(4563) - A(4562) = RCT(4562)*V(4912)*V(5251) - A(4563) = RCT(4563)*V(4912)*V(5252) - A(4564) = RCT(4564)*V(4912)*V(5253) - A(4565) = RCT(4565)*V(4912)*V(5254) - A(4566) = RCT(4566)*V(4912) - A(4567) = RCT(4567)*V(4912) - A(4568) = RCT(4568)*V(5198)*V(5255) - A(4569) = RCT(4569)*V(5198)*V(5252) - A(4570) = RCT(4570)*V(5198)*V(5252) - A(4571) = RCT(4571)*V(5198)*V(5256) - A(4572) = RCT(4572)*V(5198) - A(4573) = RCT(4573)*V(5198) - A(4574) = RCT(4574)*V(5198) - A(4575) = RCT(4575)*V(2103)*V(5250) - A(4576) = RCT(4576)*V(2103) - A(4577) = RCT(4577)*V(783) - A(4578) = RCT(4578)*V(1036)*V(5250) - A(4579) = RCT(4579)*V(2058)*V(5250) - A(4580) = RCT(4580)*V(2058) - A(4581) = RCT(4581)*V(784) - A(4582) = RCT(4582)*V(1565)*V(5250) - A(4583) = RCT(4583)*V(1241)*V(5250) - A(4584) = RCT(4584)*V(1241) - A(4585) = RCT(4585)*V(2626)*V(5250) - A(4586) = RCT(4586)*V(2626) - A(4587) = RCT(4587)*V(2415) - A(4588) = RCT(4588)*V(95)*V(5250) - A(4589) = RCT(4589)*V(897)*V(5250) - A(4590) = RCT(4590)*V(897) - A(4591) = RCT(4591)*V(3030) - A(4592) = RCT(4592)*V(2343)*V(5250) - A(4593) = RCT(4593)*V(1362)*V(5250) - A(4594) = RCT(4594)*V(1362) - A(4595) = RCT(4595)*V(2959) - A(4596) = RCT(4596)*V(3141)*V(5250) - A(4597) = RCT(4597)*V(4151)*V(5256) - A(4598) = RCT(4598)*V(4151)*V(5250) - A(4599) = RCT(4599)*V(4151) - A(4600) = RCT(4600)*V(3852)*V(5255) - A(4601) = RCT(4601)*V(3852)*V(5252) - A(4602) = RCT(4602)*V(3852)*V(5252) - A(4603) = RCT(4603)*V(3852)*V(5256) - A(4604) = RCT(4604)*V(3852) - A(4605) = RCT(4605)*V(3852) - A(4606) = RCT(4606)*V(3852) - A(4607) = RCT(4607)*V(3733)*V(5255) - A(4608) = RCT(4608)*V(3733)*V(5252) - A(4609) = RCT(4609)*V(3733)*V(5252) - A(4610) = RCT(4610)*V(3733)*V(5256) - A(4611) = RCT(4611)*V(3733) - A(4612) = RCT(4612)*V(3733) - A(4613) = RCT(4613)*V(3733) - A(4614) = RCT(4614)*V(3982)*V(5255) - A(4615) = RCT(4615)*V(3982)*V(5252) - A(4616) = RCT(4616)*V(3982)*V(5252) - A(4617) = RCT(4617)*V(3982)*V(5256) - A(4618) = RCT(4618)*V(3982) - A(4619) = RCT(4619)*V(3982) - A(4620) = RCT(4620)*V(4240)*V(5255) - A(4621) = RCT(4621)*V(4240)*V(5252) - A(4622) = RCT(4622)*V(4240)*V(5256) - A(4623) = RCT(4623)*V(4240) - A(4624) = RCT(4624)*V(4240) - A(4625) = RCT(4625)*V(4240) - A(4626) = RCT(4626)*V(147)*V(5250) - A(4627) = RCT(4627)*V(4302)*V(5251) - A(4628) = RCT(4628)*V(4302)*V(5252) - A(4629) = RCT(4629)*V(4302)*V(5253) - A(4630) = RCT(4630)*V(4302)*V(5254) - A(4631) = RCT(4631)*V(4302) - A(4632) = RCT(4632)*V(1186)*V(5250) - A(4633) = RCT(4633)*V(1186) - A(4634) = RCT(4634)*V(2902) - A(4635) = RCT(4635)*V(1297)*V(5250) - A(4636) = RCT(4636)*V(920)*V(5250) - A(4637) = RCT(4637)*V(920) - A(4638) = RCT(4638)*V(2516) - A(4639) = RCT(4639)*V(4186)*V(5256) - A(4640) = RCT(4640)*V(4186)*V(5250) - A(4641) = RCT(4641)*V(4186) - A(4642) = RCT(4642)*V(912)*V(5250) - A(4643) = RCT(4643)*V(912) - A(4644) = RCT(4644)*V(2888)*V(5250) - A(4645) = RCT(4645)*V(2888) - A(4646) = RCT(4646)*V(1975) - A(4647) = RCT(4647)*V(104)*V(5250) - A(4648) = RCT(4648)*V(2065)*V(5250) - A(4649) = RCT(4649)*V(2065) - A(4650) = RCT(4650)*V(635) - A(4651) = RCT(4651)*V(1915)*V(5250) - A(4652) = RCT(4652)*V(4148)*V(5255) - A(4653) = RCT(4653)*V(4148)*V(5252) - A(4654) = RCT(4654)*V(4148)*V(5256) - A(4655) = RCT(4655)*V(4148) - A(4656) = RCT(4656)*V(4148) - A(4657) = RCT(4657)*V(4148) - A(4658) = RCT(4658)*V(4144)*V(5255) - A(4659) = RCT(4659)*V(4144)*V(5252) - A(4660) = RCT(4660)*V(4144)*V(5256) - A(4661) = RCT(4661)*V(4144) - A(4662) = RCT(4662)*V(4144) - A(4663) = RCT(4663)*V(4144) - A(4664) = RCT(4664)*V(5236)*V(5255) - A(4665) = RCT(4665)*V(5236)*V(5252) - A(4666) = RCT(4666)*V(5236)*V(5252) - A(4667) = RCT(4667)*V(5236)*V(5256) - A(4668) = RCT(4668)*V(5236) - A(4669) = RCT(4669)*V(5236) - A(4670) = RCT(4670)*V(5236) - A(4671) = RCT(4671)*V(4843)*V(5251) - A(4672) = RCT(4672)*V(4843)*V(5252) - A(4673) = RCT(4673)*V(4843)*V(5253) - A(4674) = RCT(4674)*V(4843)*V(5254) - A(4675) = RCT(4675)*V(4843) - A(4676) = RCT(4676)*V(4843) - A(4677) = RCT(4677)*V(2451)*V(5250) - A(4678) = RCT(4678)*V(2451) - A(4679) = RCT(4679)*V(1058)*V(5250) - A(4680) = RCT(4680)*V(748) - A(4681) = RCT(4681)*V(1520)*V(5250) - A(4682) = RCT(4682)*V(1911)*V(5250) - A(4683) = RCT(4683)*V(1911) - A(4684) = RCT(4684)*V(639) - A(4685) = RCT(4685)*V(1581)*V(5250) - A(4686) = RCT(4686)*V(1468)*V(5250) - A(4687) = RCT(4687)*V(1468) - A(4688) = RCT(4688)*V(1905)*V(5250) - A(4689) = RCT(4689)*V(2508) - A(4690) = RCT(4690)*V(540)*V(5250) - A(4691) = RCT(4691)*V(2180)*V(5250) - A(4692) = RCT(4692)*V(2180) - A(4693) = RCT(4693)*V(797) - A(4694) = RCT(4694)*V(2184)*V(5250) - A(4695) = RCT(4695)*V(5256)*V(5257) - A(4696) = RCT(4696)*V(5256)*V(5257) - A(4697) = RCT(4697)*V(5257)*V(5258) - A(4698) = RCT(4698)*V(5257)*V(5258) - A(4699) = RCT(4699)*V(5250)*V(5257) - A(4700) = RCT(4700)*V(5250)*V(5257) - A(4701) = RCT(4701)*V(5250)*V(5257) - A(4702) = RCT(4702)*V(5250)*V(5257) - A(4703) = RCT(4703)*V(5250)*V(5257) - A(4704) = RCT(4704)*V(5257) - A(4705) = RCT(4705)*V(3646)*V(5258) - A(4706) = RCT(4706)*V(3646)*V(5258) - A(4707) = RCT(4707)*V(3646)*V(5250) - A(4708) = RCT(4708)*V(4970)*V(5258) - A(4709) = RCT(4709)*V(4970)*V(5258) - A(4710) = RCT(4710)*V(4970)*V(5250) - A(4711) = RCT(4711)*V(4754)*V(5255) - A(4712) = RCT(4712)*V(4754)*V(5252) - A(4713) = RCT(4713)*V(4754)*V(5256) - A(4714) = RCT(4714)*V(4754) - A(4715) = RCT(4715)*V(4754) - A(4716) = RCT(4716)*V(4754) - A(4717) = RCT(4717)*V(4756)*V(5255) - A(4718) = RCT(4718)*V(4756)*V(5252) - A(4719) = RCT(4719)*V(4756)*V(5256) - A(4720) = RCT(4720)*V(4756) - A(4721) = RCT(4721)*V(4756) - A(4722) = RCT(4722)*V(4756) - A(4723) = RCT(4723)*V(3517)*V(5258) - A(4724) = RCT(4724)*V(3517)*V(5258) - A(4725) = RCT(4725)*V(3517)*V(5250) - A(4726) = RCT(4726)*V(5041)*V(5255) - A(4727) = RCT(4727)*V(5041)*V(5252) - A(4728) = RCT(4728)*V(5041)*V(5252) - A(4729) = RCT(4729)*V(5041)*V(5256) - A(4730) = RCT(4730)*V(5041) - A(4731) = RCT(4731)*V(5041) - A(4732) = RCT(4732)*V(5041) - A(4733) = RCT(4733)*V(4746)*V(5255) - A(4734) = RCT(4734)*V(4746)*V(5252) - A(4735) = RCT(4735)*V(4746)*V(5256) - A(4736) = RCT(4736)*V(4746) - A(4737) = RCT(4737)*V(4746) - A(4738) = RCT(4738)*V(4746) - A(4739) = RCT(4739)*V(5206)*V(5255) - A(4740) = RCT(4740)*V(5206)*V(5252) - A(4741) = RCT(4741)*V(5206)*V(5252) - A(4742) = RCT(4742)*V(5206)*V(5256) - A(4743) = RCT(4743)*V(5206) - A(4744) = RCT(4744)*V(5206) - A(4745) = RCT(4745)*V(5206) - A(4746) = RCT(4746)*V(2178)*V(5250) - A(4747) = RCT(4747)*V(2178) - A(4748) = RCT(4748)*V(905)*V(5250) - A(4749) = RCT(4749)*V(646) - A(4750) = RCT(4750)*V(1001)*V(5250) - A(4751) = RCT(4751)*V(2160)*V(5250) - A(4752) = RCT(4752)*V(2160) - A(4753) = RCT(4753)*V(624) - A(4754) = RCT(4754)*V(1736)*V(5250) - A(4755) = RCT(4755)*V(881)*V(5250) - A(4756) = RCT(4756)*V(881) - A(4757) = RCT(4757)*V(2242)*V(5250) - A(4758) = RCT(4758)*V(2961) - A(4759) = RCT(4759)*V(661)*V(5250) - A(4760) = RCT(4760)*V(5237)*V(5255) - A(4761) = RCT(4761)*V(5237)*V(5255) - A(4762) = RCT(4762)*V(5237)*V(5255) - A(4763) = RCT(4763)*V(5237)*V(5252) - A(4764) = RCT(4764)*V(5237)*V(5253) - A(4765) = RCT(4765)*V(5237)*V(5256) - A(4766) = RCT(4766)*V(5237) - A(4767) = RCT(4767)*V(5237) - A(4768) = RCT(4768)*V(4949)*V(5255) - A(4769) = RCT(4769)*V(4949)*V(5255) - A(4770) = RCT(4770)*V(4949)*V(5255) - A(4771) = RCT(4771)*V(4949)*V(5252) - A(4772) = RCT(4772)*V(4949)*V(5253) - A(4773) = RCT(4773)*V(4949)*V(5256) - A(4774) = RCT(4774)*V(4949) - A(4775) = RCT(4775)*V(4949) - A(4776) = RCT(4776)*V(4374)*V(5255) - A(4777) = RCT(4777)*V(4374)*V(5252) - A(4778) = RCT(4778)*V(4374)*V(5252) - A(4779) = RCT(4779)*V(4374)*V(5256) - A(4780) = RCT(4780)*V(4374) - A(4781) = RCT(4781)*V(4374) - A(4782) = RCT(4782)*V(4374) - A(4783) = RCT(4783)*V(5136)*V(5255) - A(4784) = RCT(4784)*V(5136)*V(5255) - A(4785) = RCT(4785)*V(5136)*V(5252) - A(4786) = RCT(4786)*V(5136)*V(5253) - A(4787) = RCT(4787)*V(5136)*V(5256) - A(4788) = RCT(4788)*V(5136) - A(4789) = RCT(4789)*V(438)*V(5250) - A(4790) = RCT(4790)*V(1516) - A(4791) = RCT(4791)*V(1516)*V(5250) - A(4792) = RCT(4792)*V(2882) - A(4793) = RCT(4793)*V(2882)*V(5250) - A(4794) = RCT(4794)*V(384)*V(5250) - A(4795) = RCT(4795)*V(1106)*V(5250) - A(4796) = RCT(4796)*V(1106) - A(4797) = RCT(4797)*V(2743)*V(5250) - A(4798) = RCT(4798)*V(2743) - A(4799) = RCT(4799)*V(918)*V(5250) - A(4800) = RCT(4800)*V(918) - A(4801) = RCT(4801)*V(3533)*V(5250) - A(4802) = RCT(4802)*V(3533) - A(4803) = RCT(4803)*V(3533) - A(4804) = RCT(4804)*V(2399) - A(4805) = RCT(4805)*V(4931)*V(5256) - A(4806) = RCT(4806)*V(4931)*V(5250) - A(4807) = RCT(4807)*V(4931) - A(4808) = RCT(4808)*V(4785)*V(5255) - A(4809) = RCT(4809)*V(4785)*V(5252) - A(4810) = RCT(4810)*V(4785)*V(5252) - A(4811) = RCT(4811)*V(4785)*V(5256) - A(4812) = RCT(4812)*V(4785) - A(4813) = RCT(4813)*V(4785) - A(4814) = RCT(4814)*V(4785) - A(4815) = RCT(4815)*V(5101)*V(5255) - A(4816) = RCT(4816)*V(5101)*V(5255) - A(4817) = RCT(4817)*V(5101)*V(5252) - A(4818) = RCT(4818)*V(5101)*V(5253) - A(4819) = RCT(4819)*V(5101)*V(5256) - A(4820) = RCT(4820)*V(5101) - A(4821) = RCT(4821)*V(4206)*V(5255) - A(4822) = RCT(4822)*V(4206)*V(5255) - A(4823) = RCT(4823)*V(4206)*V(5252) - A(4824) = RCT(4824)*V(4206)*V(5253) - A(4825) = RCT(4825)*V(4206)*V(5256) - A(4826) = RCT(4826)*V(4206) - A(4827) = RCT(4827)*V(4359)*V(5255) - A(4828) = RCT(4828)*V(4359)*V(5252) - A(4829) = RCT(4829)*V(4359)*V(5252) - A(4830) = RCT(4830)*V(4359)*V(5256) - A(4831) = RCT(4831)*V(4359) - A(4832) = RCT(4832)*V(4359) - A(4833) = RCT(4833)*V(4359) - A(4834) = RCT(4834)*V(5008)*V(5255) - A(4835) = RCT(4835)*V(5008)*V(5255) - A(4836) = RCT(4836)*V(5008)*V(5255) - A(4837) = RCT(4837)*V(5008)*V(5252) - A(4838) = RCT(4838)*V(5008)*V(5253) - A(4839) = RCT(4839)*V(5008)*V(5256) - A(4840) = RCT(4840)*V(5008) - A(4841) = RCT(4841)*V(5008) - A(4842) = RCT(4842)*V(4882)*V(5256) - A(4843) = RCT(4843)*V(4882)*V(5250) - A(4844) = RCT(4844)*V(4882)*V(5250) - A(4845) = RCT(4845)*V(4882) - A(4846) = RCT(4846)*V(591)*V(5250) - A(4847) = RCT(4847)*V(591) - A(4848) = RCT(4848)*V(2272)*V(5250) - A(4849) = RCT(4849)*V(3979)*V(5255) - A(4850) = RCT(4850)*V(3979)*V(5252) - A(4851) = RCT(4851)*V(3979)*V(5256) - A(4852) = RCT(4852)*V(3979) - A(4853) = RCT(4853)*V(3284) - A(4854) = RCT(4854)*V(3255) - A(4855) = RCT(4855)*V(1764)*V(5250) - A(4856) = RCT(4856)*V(2412)*V(5250) - A(4857) = RCT(4857)*V(2412) - A(4858) = RCT(4858)*V(3047)*V(5250) - A(4859) = RCT(4859)*V(3047) - A(4860) = RCT(4860)*V(2219)*V(5250) - A(4861) = RCT(4861)*V(2219) - A(4862) = RCT(4862)*V(2945)*V(5250) - A(4863) = RCT(4863)*V(2945) - A(4864) = RCT(4864)*V(2473) - A(4865) = RCT(4865)*V(4316)*V(5255) - A(4866) = RCT(4866)*V(4316)*V(5255) - A(4867) = RCT(4867)*V(4316)*V(5252) - A(4868) = RCT(4868)*V(4316)*V(5253) - A(4869) = RCT(4869)*V(4316)*V(5256) - A(4870) = RCT(4870)*V(4316) - A(4871) = RCT(4871)*V(2364)*V(5250) - A(4872) = RCT(4872)*V(2211) - A(4873) = RCT(4873)*V(2211)*V(5250) - A(4874) = RCT(4874)*V(2792) - A(4875) = RCT(4875)*V(2792)*V(5250) - A(4876) = RCT(4876)*V(579)*V(5250) - A(4877) = RCT(4877)*V(579) - A(4878) = RCT(4878)*V(4553)*V(5255) - A(4879) = RCT(4879)*V(4553)*V(5255) - A(4880) = RCT(4880)*V(4553)*V(5252) - A(4881) = RCT(4881)*V(4553)*V(5253) - A(4882) = RCT(4882)*V(4553)*V(5256) - A(4883) = RCT(4883)*V(4553) - A(4884) = RCT(4884)*V(5158)*V(5255) - A(4885) = RCT(4885)*V(5158)*V(5255) - A(4886) = RCT(4886)*V(5158)*V(5252) - A(4887) = RCT(4887)*V(5158)*V(5253) - A(4888) = RCT(4888)*V(5158)*V(5256) - A(4889) = RCT(4889)*V(5158) - A(4890) = RCT(4890)*V(5164)*V(5255) - A(4891) = RCT(4891)*V(5164)*V(5255) - A(4892) = RCT(4892)*V(5164)*V(5255) - A(4893) = RCT(4893)*V(5164)*V(5252) - A(4894) = RCT(4894)*V(5164)*V(5253) - A(4895) = RCT(4895)*V(5164)*V(5256) - A(4896) = RCT(4896)*V(5164) - A(4897) = RCT(4897)*V(5164) - A(4898) = RCT(4898)*V(4915)*V(5255) - A(4899) = RCT(4899)*V(4915)*V(5255) - A(4900) = RCT(4900)*V(4915)*V(5255) - A(4901) = RCT(4901)*V(4915)*V(5252) - A(4902) = RCT(4902)*V(4915)*V(5253) - A(4903) = RCT(4903)*V(4915)*V(5256) - A(4904) = RCT(4904)*V(4915) - A(4905) = RCT(4905)*V(4915) - A(4906) = RCT(4906)*V(4640)*V(5255) - A(4907) = RCT(4907)*V(4640)*V(5252) - A(4908) = RCT(4908)*V(4640)*V(5256) - A(4909) = RCT(4909)*V(4640) - A(4910) = RCT(4910)*V(4640) - A(4911) = RCT(4911)*V(4640) - A(4912) = RCT(4912)*V(5137)*V(5255) - A(4913) = RCT(4913)*V(5137)*V(5255) - A(4914) = RCT(4914)*V(5137)*V(5255) - A(4915) = RCT(4915)*V(5137)*V(5252) - A(4916) = RCT(4916)*V(5137)*V(5253) - A(4917) = RCT(4917)*V(5137)*V(5256) - A(4918) = RCT(4918)*V(5137) - A(4919) = RCT(4919)*V(5137) - A(4920) = RCT(4920)*V(3758)*V(5255) - A(4921) = RCT(4921)*V(3758)*V(5252) - A(4922) = RCT(4922)*V(3758)*V(5252) - A(4923) = RCT(4923)*V(3758)*V(5256) - A(4924) = RCT(4924)*V(3758) - A(4925) = RCT(4925)*V(3758) - A(4926) = RCT(4926)*V(3758) - A(4927) = RCT(4927)*V(4862)*V(5255) - A(4928) = RCT(4928)*V(4862)*V(5255) - A(4929) = RCT(4929)*V(4862)*V(5255) - A(4930) = RCT(4930)*V(4862)*V(5252) - A(4931) = RCT(4931)*V(4862)*V(5253) - A(4932) = RCT(4932)*V(4862)*V(5256) - A(4933) = RCT(4933)*V(4862) - A(4934) = RCT(4934)*V(4862) - A(4935) = RCT(4935)*V(5038)*V(5255) - A(4936) = RCT(4936)*V(5038)*V(5255) - A(4937) = RCT(4937)*V(5038)*V(5252) - A(4938) = RCT(4938)*V(5038)*V(5253) - A(4939) = RCT(4939)*V(5038)*V(5256) - A(4940) = RCT(4940)*V(5038) - A(4941) = RCT(4941)*V(4530) - A(4942) = RCT(4942)*V(4530) - A(4943) = RCT(4943)*V(4530)*V(5256) - A(4944) = RCT(4944)*V(4530)*V(5250) - A(4945) = RCT(4945)*V(5216)*V(5255) - A(4946) = RCT(4946)*V(5216)*V(5255) - A(4947) = RCT(4947)*V(5216)*V(5255) - A(4948) = RCT(4948)*V(5216)*V(5252) - A(4949) = RCT(4949)*V(5216)*V(5253) - A(4950) = RCT(4950)*V(5216)*V(5256) - A(4951) = RCT(4951)*V(5216) - A(4952) = RCT(4952)*V(5216) - A(4953) = RCT(4953)*V(4796) - A(4954) = RCT(4954)*V(4796)*V(5250) - A(4955) = RCT(4955)*V(1269)*V(5250) - A(4956) = RCT(4956)*V(12)*V(5250) - A(4957) = RCT(4957)*V(4406)*V(5250) - A(4958) = RCT(4958)*V(4406) - A(4959) = RCT(4959)*V(5155)*V(5255) - A(4960) = RCT(4960)*V(5155)*V(5255) - A(4961) = RCT(4961)*V(5155)*V(5255) - A(4962) = RCT(4962)*V(5155)*V(5252) - A(4963) = RCT(4963)*V(5155)*V(5253) - A(4964) = RCT(4964)*V(5155)*V(5256) - A(4965) = RCT(4965)*V(5155) - A(4966) = RCT(4966)*V(5155) - A(4967) = RCT(4967)*V(5036)*V(5255) - A(4968) = RCT(4968)*V(5036)*V(5255) - A(4969) = RCT(4969)*V(5036)*V(5255) - A(4970) = RCT(4970)*V(5036)*V(5252) - A(4971) = RCT(4971)*V(5036)*V(5253) - A(4972) = RCT(4972)*V(5036)*V(5256) - A(4973) = RCT(4973)*V(5036) - A(4974) = RCT(4974)*V(5036) - A(4975) = RCT(4975)*V(4557)*V(5255) - A(4976) = RCT(4976)*V(4557)*V(5255) - A(4977) = RCT(4977)*V(4557)*V(5252) - A(4978) = RCT(4978)*V(4557)*V(5253) - A(4979) = RCT(4979)*V(4557)*V(5256) - A(4980) = RCT(4980)*V(4557) - A(4981) = RCT(4981)*V(3566) - A(4982) = RCT(4982)*V(3566) - A(4983) = RCT(4983)*V(5100)*V(5255) - A(4984) = RCT(4984)*V(5100)*V(5255) - A(4985) = RCT(4985)*V(5100)*V(5252) - A(4986) = RCT(4986)*V(5100)*V(5253) - A(4987) = RCT(4987)*V(5100)*V(5256) - A(4988) = RCT(4988)*V(5100) - A(4989) = RCT(4989)*V(3932)*V(5255) - A(4990) = RCT(4990)*V(3932)*V(5252) - A(4991) = RCT(4991)*V(3932)*V(5252) - A(4992) = RCT(4992)*V(3932)*V(5256) - A(4993) = RCT(4993)*V(3932) - A(4994) = RCT(4994)*V(3932) - A(4995) = RCT(4995)*V(3932) - A(4996) = RCT(4996)*V(3893)*V(5255) - A(4997) = RCT(4997)*V(3893)*V(5252) - A(4998) = RCT(4998)*V(3893)*V(5252) - A(4999) = RCT(4999)*V(3893)*V(5256) - A(5000) = RCT(5000)*V(3893) - A(5001) = RCT(5001)*V(3893) - A(5002) = RCT(5002)*V(3893) - A(5003) = RCT(5003)*V(3885)*V(5255) - A(5004) = RCT(5004)*V(3885)*V(5252) - A(5005) = RCT(5005)*V(3885)*V(5252) - A(5006) = RCT(5006)*V(3885)*V(5256) - A(5007) = RCT(5007)*V(3885) - A(5008) = RCT(5008)*V(3885) - A(5009) = RCT(5009)*V(3885) - A(5010) = RCT(5010)*V(4860)*V(5255) - A(5011) = RCT(5011)*V(4860)*V(5255) - A(5012) = RCT(5012)*V(4860)*V(5252) - A(5013) = RCT(5013)*V(4860)*V(5253) - A(5014) = RCT(5014)*V(4860)*V(5256) - A(5015) = RCT(5015)*V(4860) - A(5016) = RCT(5016)*V(3870)*V(5255) - A(5017) = RCT(5017)*V(3870)*V(5252) - A(5018) = RCT(5018)*V(3870)*V(5252) - A(5019) = RCT(5019)*V(3870)*V(5256) - A(5020) = RCT(5020)*V(3870) - A(5021) = RCT(5021)*V(3870) - A(5022) = RCT(5022)*V(3870) - A(5023) = RCT(5023)*V(4760)*V(5255) - A(5024) = RCT(5024)*V(4760)*V(5255) - A(5025) = RCT(5025)*V(4760)*V(5252) - A(5026) = RCT(5026)*V(4760)*V(5253) - A(5027) = RCT(5027)*V(4760)*V(5256) - A(5028) = RCT(5028)*V(4760) - A(5029) = RCT(5029)*V(3718)*V(5255) - A(5030) = RCT(5030)*V(3718)*V(5252) - A(5031) = RCT(5031)*V(3718)*V(5252) - A(5032) = RCT(5032)*V(3718)*V(5256) - A(5033) = RCT(5033)*V(3718) - A(5034) = RCT(5034)*V(3718) - A(5035) = RCT(5035)*V(3718) - A(5036) = RCT(5036)*V(3961)*V(5255) - A(5037) = RCT(5037)*V(3961)*V(5252) - A(5038) = RCT(5038)*V(3961)*V(5252) - A(5039) = RCT(5039)*V(3961)*V(5256) - A(5040) = RCT(5040)*V(3961) - A(5041) = RCT(5041)*V(3961) - A(5042) = RCT(5042)*V(3961) - A(5043) = RCT(5043)*V(3967)*V(5255) - A(5044) = RCT(5044)*V(3967)*V(5252) - A(5045) = RCT(5045)*V(3967)*V(5252) - A(5046) = RCT(5046)*V(3967)*V(5256) - A(5047) = RCT(5047)*V(3967) - A(5048) = RCT(5048)*V(3967) - A(5049) = RCT(5049)*V(3967) - A(5050) = RCT(5050)*V(4990)*V(5255) - A(5051) = RCT(5051)*V(4990)*V(5255) - A(5052) = RCT(5052)*V(4990)*V(5252) - A(5053) = RCT(5053)*V(4990)*V(5253) - A(5054) = RCT(5054)*V(4990)*V(5256) - A(5055) = RCT(5055)*V(4990) - A(5056) = RCT(5056)*V(3869)*V(5255) - A(5057) = RCT(5057)*V(3869)*V(5252) - A(5058) = RCT(5058)*V(3869)*V(5252) - A(5059) = RCT(5059)*V(3869)*V(5256) - A(5060) = RCT(5060)*V(3869) - A(5061) = RCT(5061)*V(3869) - A(5062) = RCT(5062)*V(3869) - A(5063) = RCT(5063)*V(3944)*V(5255) - A(5064) = RCT(5064)*V(3944)*V(5252) - A(5065) = RCT(5065)*V(3944)*V(5256) - A(5066) = RCT(5066)*V(3944) - A(5067) = RCT(5067)*V(3944) - A(5068) = RCT(5068)*V(4880)*V(5255) - A(5069) = RCT(5069)*V(4880)*V(5252) - A(5070) = RCT(5070)*V(4880)*V(5252) - A(5071) = RCT(5071)*V(4880)*V(5256) - A(5072) = RCT(5072)*V(4880) - A(5073) = RCT(5073)*V(4880) - A(5074) = RCT(5074)*V(4880) - A(5075) = RCT(5075)*V(3778)*V(5255) - A(5076) = RCT(5076)*V(3778)*V(5252) - A(5077) = RCT(5077)*V(3778)*V(5252) - A(5078) = RCT(5078)*V(3778)*V(5256) - A(5079) = RCT(5079)*V(3778) - A(5080) = RCT(5080)*V(3778) - A(5081) = RCT(5081)*V(3778) - A(5082) = RCT(5082)*V(3989)*V(5255) - A(5083) = RCT(5083)*V(3989)*V(5252) - A(5084) = RCT(5084)*V(3989)*V(5252) - A(5085) = RCT(5085)*V(3989)*V(5256) - A(5086) = RCT(5086)*V(3989) - A(5087) = RCT(5087)*V(3989) - A(5088) = RCT(5088)*V(3989) - A(5089) = RCT(5089)*V(4515)*V(5255) - A(5090) = RCT(5090)*V(4515)*V(5255) - A(5091) = RCT(5091)*V(4515)*V(5252) - A(5092) = RCT(5092)*V(4515)*V(5253) - A(5093) = RCT(5093)*V(4515)*V(5256) - A(5094) = RCT(5094)*V(4515) - A(5095) = RCT(5095)*V(3873)*V(5255) - A(5096) = RCT(5096)*V(3873)*V(5252) - A(5097) = RCT(5097)*V(3873)*V(5252) - A(5098) = RCT(5098)*V(3873)*V(5256) - A(5099) = RCT(5099)*V(3873) - A(5100) = RCT(5100)*V(3873) - A(5101) = RCT(5101)*V(3873) - A(5102) = RCT(5102)*V(4334)*V(5255) - A(5103) = RCT(5103)*V(4334)*V(5252) - A(5104) = RCT(5104)*V(4334)*V(5252) - A(5105) = RCT(5105)*V(4334)*V(5256) - A(5106) = RCT(5106)*V(4334) - A(5107) = RCT(5107)*V(4334) - A(5108) = RCT(5108)*V(4334) - A(5109) = RCT(5109)*V(3889)*V(5255) - A(5110) = RCT(5110)*V(3889)*V(5252) - A(5111) = RCT(5111)*V(3889)*V(5256) - A(5112) = RCT(5112)*V(3889) - A(5113) = RCT(5113)*V(3889) - A(5114) = RCT(5114)*V(3854)*V(5255) - A(5115) = RCT(5115)*V(3854)*V(5252) - A(5116) = RCT(5116)*V(3854)*V(5252) - A(5117) = RCT(5117)*V(3854)*V(5256) - A(5118) = RCT(5118)*V(3854) - A(5119) = RCT(5119)*V(3854) - A(5120) = RCT(5120)*V(3854) - A(5121) = RCT(5121)*V(4469)*V(5255) - A(5122) = RCT(5122)*V(4469)*V(5255) - A(5123) = RCT(5123)*V(4469)*V(5252) - A(5124) = RCT(5124)*V(4469)*V(5253) - A(5125) = RCT(5125)*V(4469)*V(5256) - A(5126) = RCT(5126)*V(4469) - A(5127) = RCT(5127)*V(3859)*V(5255) - A(5128) = RCT(5128)*V(3859)*V(5252) - A(5129) = RCT(5129)*V(3859)*V(5252) - A(5130) = RCT(5130)*V(3859)*V(5256) - A(5131) = RCT(5131)*V(3859) - A(5132) = RCT(5132)*V(3859) - A(5133) = RCT(5133)*V(3859) - A(5134) = RCT(5134)*V(4771)*V(5255) - A(5135) = RCT(5135)*V(4771)*V(5255) - A(5136) = RCT(5136)*V(4771)*V(5255) - A(5137) = RCT(5137)*V(4771)*V(5252) - A(5138) = RCT(5138)*V(4771)*V(5253) - A(5139) = RCT(5139)*V(4771)*V(5256) - A(5140) = RCT(5140)*V(4771) - A(5141) = RCT(5141)*V(4771) - A(5142) = RCT(5142)*V(3667)*V(5255) - A(5143) = RCT(5143)*V(3667)*V(5252) - A(5144) = RCT(5144)*V(3667)*V(5252) - A(5145) = RCT(5145)*V(3667)*V(5256) - A(5146) = RCT(5146)*V(3667) - A(5147) = RCT(5147)*V(3667) - A(5148) = RCT(5148)*V(3667) - A(5149) = RCT(5149)*V(4994)*V(5255) - A(5150) = RCT(5150)*V(4994)*V(5255) - A(5151) = RCT(5151)*V(4994)*V(5255) - A(5152) = RCT(5152)*V(4994)*V(5252) - A(5153) = RCT(5153)*V(4994)*V(5253) - A(5154) = RCT(5154)*V(4994)*V(5256) - A(5155) = RCT(5155)*V(4994) - A(5156) = RCT(5156)*V(4994) - A(5157) = RCT(5157)*V(5108)*V(5255) - A(5158) = RCT(5158)*V(5108)*V(5252) - A(5159) = RCT(5159)*V(5108)*V(5252) - A(5160) = RCT(5160)*V(5108)*V(5256) - A(5161) = RCT(5161)*V(5108) - A(5162) = RCT(5162)*V(5108) - A(5163) = RCT(5163)*V(5108) - A(5164) = RCT(5164)*V(3785)*V(5255) - A(5165) = RCT(5165)*V(3785)*V(5252) - A(5166) = RCT(5166)*V(3785)*V(5256) - A(5167) = RCT(5167)*V(3785) - A(5168) = RCT(5168)*V(4722)*V(5255) - A(5169) = RCT(5169)*V(4722)*V(5252) - A(5170) = RCT(5170)*V(4722)*V(5252) - A(5171) = RCT(5171)*V(4722)*V(5256) - A(5172) = RCT(5172)*V(4722) - A(5173) = RCT(5173)*V(4722) - A(5174) = RCT(5174)*V(3674)*V(5255) - A(5175) = RCT(5175)*V(3674)*V(5252) - A(5176) = RCT(5176)*V(3674)*V(5256) - A(5177) = RCT(5177)*V(3674) - A(5178) = RCT(5178)*V(4577)*V(5255) - A(5179) = RCT(5179)*V(4577)*V(5252) - A(5180) = RCT(5180)*V(4577)*V(5252) - A(5181) = RCT(5181)*V(4577)*V(5256) - A(5182) = RCT(5182)*V(4577) - A(5183) = RCT(5183)*V(4577) - A(5184) = RCT(5184)*V(4577) - A(5185) = RCT(5185)*V(5119)*V(5255) - A(5186) = RCT(5186)*V(5119)*V(5252) - A(5187) = RCT(5187)*V(5119)*V(5252) - A(5188) = RCT(5188)*V(5119)*V(5256) - A(5189) = RCT(5189)*V(5119) - A(5190) = RCT(5190)*V(5119) - A(5191) = RCT(5191)*V(5119) - A(5192) = RCT(5192)*V(3730)*V(5255) - A(5193) = RCT(5193)*V(3730)*V(5252) - A(5194) = RCT(5194)*V(3730)*V(5256) - A(5195) = RCT(5195)*V(3730) - A(5196) = RCT(5196)*V(3688)*V(5255) - A(5197) = RCT(5197)*V(3688)*V(5252) - A(5198) = RCT(5198)*V(3688)*V(5252) - A(5199) = RCT(5199)*V(3688)*V(5256) - A(5200) = RCT(5200)*V(3688) - A(5201) = RCT(5201)*V(3688) - A(5202) = RCT(5202)*V(3688) - A(5203) = RCT(5203)*V(3749)*V(5255) - A(5204) = RCT(5204)*V(3749)*V(5252) - A(5205) = RCT(5205)*V(3749)*V(5252) - A(5206) = RCT(5206)*V(3749)*V(5256) - A(5207) = RCT(5207)*V(3749) - A(5208) = RCT(5208)*V(3749) - A(5209) = RCT(5209)*V(3749) - A(5210) = RCT(5210)*V(3781)*V(5255) - A(5211) = RCT(5211)*V(3781)*V(5252) - A(5212) = RCT(5212)*V(3781)*V(5256) - A(5213) = RCT(5213)*V(3781) - A(5214) = RCT(5214)*V(3751)*V(5255) - A(5215) = RCT(5215)*V(3751)*V(5252) - A(5216) = RCT(5216)*V(3751)*V(5252) - A(5217) = RCT(5217)*V(3751)*V(5256) - A(5218) = RCT(5218)*V(3751) - A(5219) = RCT(5219)*V(3751) - A(5220) = RCT(5220)*V(3751) - A(5221) = RCT(5221)*V(3768)*V(5255) - A(5222) = RCT(5222)*V(3768)*V(5252) - A(5223) = RCT(5223)*V(3768)*V(5256) - A(5224) = RCT(5224)*V(3768) - A(5225) = RCT(5225)*V(3731)*V(5255) - A(5226) = RCT(5226)*V(3731)*V(5252) - A(5227) = RCT(5227)*V(3731)*V(5252) - A(5228) = RCT(5228)*V(3731)*V(5256) - A(5229) = RCT(5229)*V(3731) - A(5230) = RCT(5230)*V(3731) - A(5231) = RCT(5231)*V(3731) - A(5232) = RCT(5232)*V(3766)*V(5255) - A(5233) = RCT(5233)*V(3766)*V(5252) - A(5234) = RCT(5234)*V(3766)*V(5256) - A(5235) = RCT(5235)*V(3766) - A(5236) = RCT(5236)*V(3690)*V(5255) - A(5237) = RCT(5237)*V(3690)*V(5252) - A(5238) = RCT(5238)*V(3690)*V(5252) - A(5239) = RCT(5239)*V(3690)*V(5256) - A(5240) = RCT(5240)*V(3690) - A(5241) = RCT(5241)*V(3690) - A(5242) = RCT(5242)*V(3690) - A(5243) = RCT(5243)*V(3678)*V(5255) - A(5244) = RCT(5244)*V(3678)*V(5252) - A(5245) = RCT(5245)*V(3678)*V(5256) - A(5246) = RCT(5246)*V(3678) - A(5247) = RCT(5247)*V(3691)*V(5255) - A(5248) = RCT(5248)*V(3691)*V(5252) - A(5249) = RCT(5249)*V(3691)*V(5252) - A(5250) = RCT(5250)*V(3691)*V(5256) - A(5251) = RCT(5251)*V(3691) - A(5252) = RCT(5252)*V(3691) - A(5253) = RCT(5253)*V(3691) - A(5254) = RCT(5254)*V(3704)*V(5255) - A(5255) = RCT(5255)*V(3704)*V(5252) - A(5256) = RCT(5256)*V(3704)*V(5256) - A(5257) = RCT(5257)*V(3704) - A(5258) = RCT(5258)*V(3952)*V(5255) - A(5259) = RCT(5259)*V(3952)*V(5252) - A(5260) = RCT(5260)*V(3952)*V(5252) - A(5261) = RCT(5261)*V(3952)*V(5256) - A(5262) = RCT(5262)*V(3952) - A(5263) = RCT(5263)*V(3952) - A(5264) = RCT(5264)*V(3952) - A(5265) = RCT(5265)*V(5152)*V(5255) - A(5266) = RCT(5266)*V(5152)*V(5255) - A(5267) = RCT(5267)*V(5152)*V(5255) - A(5268) = RCT(5268)*V(5152)*V(5252) - A(5269) = RCT(5269)*V(5152)*V(5253) - A(5270) = RCT(5270)*V(5152)*V(5256) - A(5271) = RCT(5271)*V(5152) - A(5272) = RCT(5272)*V(5152) - A(5273) = RCT(5273)*V(4405)*V(5255) - A(5274) = RCT(5274)*V(4405)*V(5255) - A(5275) = RCT(5275)*V(4405)*V(5255) - A(5276) = RCT(5276)*V(4405)*V(5252) - A(5277) = RCT(5277)*V(4405)*V(5253) - A(5278) = RCT(5278)*V(4405)*V(5256) - A(5279) = RCT(5279)*V(4405) - A(5280) = RCT(5280)*V(4405) - A(5281) = RCT(5281)*V(2807) - A(5282) = RCT(5282)*V(4724)*V(5255) - A(5283) = RCT(5283)*V(4724)*V(5252) - A(5284) = RCT(5284)*V(4724)*V(5256) - A(5285) = RCT(5285)*V(4724) - A(5286) = RCT(5286)*V(4724) - A(5287) = RCT(5287)*V(4724) - A(5288) = RCT(5288)*V(3301) - A(5289) = RCT(5289)*V(4275)*V(5255) - A(5290) = RCT(5290)*V(4275)*V(5255) - A(5291) = RCT(5291)*V(4275)*V(5252) - A(5292) = RCT(5292)*V(4275)*V(5253) - A(5293) = RCT(5293)*V(4275)*V(5256) - A(5294) = RCT(5294)*V(4275) - A(5295) = RCT(5295)*V(4452)*V(5255) - A(5296) = RCT(5296)*V(4452)*V(5255) - A(5297) = RCT(5297)*V(4452)*V(5255) - A(5298) = RCT(5298)*V(4452)*V(5252) - A(5299) = RCT(5299)*V(4452)*V(5253) - A(5300) = RCT(5300)*V(4452)*V(5256) - A(5301) = RCT(5301)*V(4452) - A(5302) = RCT(5302)*V(4452) - A(5303) = RCT(5303)*V(4817)*V(5255) - A(5304) = RCT(5304)*V(4817)*V(5252) - A(5305) = RCT(5305)*V(4817)*V(5256) - A(5306) = RCT(5306)*V(4817) - A(5307) = RCT(5307)*V(4817) - A(5308) = RCT(5308)*V(4817) - A(5309) = RCT(5309)*V(2163) - A(5310) = RCT(5310)*V(4470)*V(5255) - A(5311) = RCT(5311)*V(4470)*V(5255) - A(5312) = RCT(5312)*V(4470)*V(5255) - A(5313) = RCT(5313)*V(4470)*V(5252) - A(5314) = RCT(5314)*V(4470)*V(5253) - A(5315) = RCT(5315)*V(4470)*V(5256) - A(5316) = RCT(5316)*V(4470) - A(5317) = RCT(5317)*V(4470) - A(5318) = RCT(5318)*V(3269) - A(5319) = RCT(5319)*V(4856)*V(5255) - A(5320) = RCT(5320)*V(4856)*V(5252) - A(5321) = RCT(5321)*V(4856)*V(5256) - A(5322) = RCT(5322)*V(4856) - A(5323) = RCT(5323)*V(4281)*V(5255) - A(5324) = RCT(5324)*V(4281)*V(5255) - A(5325) = RCT(5325)*V(4281)*V(5252) - A(5326) = RCT(5326)*V(4281)*V(5253) - A(5327) = RCT(5327)*V(4281)*V(5256) - A(5328) = RCT(5328)*V(4281) - A(5329) = RCT(5329)*V(3964)*V(5255) - A(5330) = RCT(5330)*V(3964)*V(5252) - A(5331) = RCT(5331)*V(3964)*V(5256) - A(5332) = RCT(5332)*V(3964) - A(5333) = RCT(5333)*V(4344)*V(5255) - A(5334) = RCT(5334)*V(4344)*V(5252) - A(5335) = RCT(5335)*V(4344)*V(5256) - A(5336) = RCT(5336)*V(4344) - A(5337) = RCT(5337)*V(4522)*V(5255) - A(5338) = RCT(5338)*V(4522)*V(5255) - A(5339) = RCT(5339)*V(4522)*V(5255) - A(5340) = RCT(5340)*V(4522)*V(5252) - A(5341) = RCT(5341)*V(4522)*V(5253) - A(5342) = RCT(5342)*V(4522)*V(5256) - A(5343) = RCT(5343)*V(4522) - A(5344) = RCT(5344)*V(4522) - A(5345) = RCT(5345)*V(11) - A(5346) = RCT(5346)*V(3888)*V(5255) - A(5347) = RCT(5347)*V(3888)*V(5252) - A(5348) = RCT(5348)*V(3888)*V(5256) - A(5349) = RCT(5349)*V(3888) - A(5350) = RCT(5350)*V(3888) - A(5351) = RCT(5351)*V(7) - A(5352) = RCT(5352)*V(4433)*V(5255) - A(5353) = RCT(5353)*V(4433)*V(5255) - A(5354) = RCT(5354)*V(4433)*V(5255) - A(5355) = RCT(5355)*V(4433)*V(5252) - A(5356) = RCT(5356)*V(4433)*V(5253) - A(5357) = RCT(5357)*V(4433)*V(5256) - A(5358) = RCT(5358)*V(4433) - A(5359) = RCT(5359)*V(4433) - A(5360) = RCT(5360)*V(3252) - A(5361) = RCT(5361)*V(4215)*V(5255) - A(5362) = RCT(5362)*V(4215)*V(5255) - A(5363) = RCT(5363)*V(4215)*V(5252) - A(5364) = RCT(5364)*V(4215)*V(5253) - A(5365) = RCT(5365)*V(4215)*V(5256) - A(5366) = RCT(5366)*V(4215) - A(5367) = RCT(5367)*V(4345)*V(5255) - A(5368) = RCT(5368)*V(4345)*V(5252) - A(5369) = RCT(5369)*V(4345)*V(5256) - A(5370) = RCT(5370)*V(4345) - A(5371) = RCT(5371)*V(4427)*V(5255) - A(5372) = RCT(5372)*V(4427)*V(5255) - A(5373) = RCT(5373)*V(4427)*V(5255) - A(5374) = RCT(5374)*V(4427)*V(5252) - A(5375) = RCT(5375)*V(4427)*V(5253) - A(5376) = RCT(5376)*V(4427)*V(5256) - A(5377) = RCT(5377)*V(4427) - A(5378) = RCT(5378)*V(4427) - A(5379) = RCT(5379)*V(4804)*V(5255) - A(5380) = RCT(5380)*V(4804)*V(5252) - A(5381) = RCT(5381)*V(4804)*V(5256) - A(5382) = RCT(5382)*V(4804) - A(5383) = RCT(5383)*V(4804) - A(5384) = RCT(5384)*V(4804) - A(5385) = RCT(5385)*V(4889)*V(5255) - A(5386) = RCT(5386)*V(4889)*V(5252) - A(5387) = RCT(5387)*V(4889)*V(5256) - A(5388) = RCT(5388)*V(4889) - A(5389) = RCT(5389)*V(4889) - A(5390) = RCT(5390)*V(4889) - A(5391) = RCT(5391)*V(4283)*V(5255) - A(5392) = RCT(5392)*V(4283)*V(5255) - A(5393) = RCT(5393)*V(4283)*V(5252) - A(5394) = RCT(5394)*V(4283)*V(5253) - A(5395) = RCT(5395)*V(4283)*V(5256) - A(5396) = RCT(5396)*V(4283) - A(5397) = RCT(5397)*V(4590)*V(5255) - A(5398) = RCT(5398)*V(4590)*V(5252) - A(5399) = RCT(5399)*V(4590)*V(5256) - A(5400) = RCT(5400)*V(4590) - A(5401) = RCT(5401)*V(4590) - A(5402) = RCT(5402)*V(4590) - A(5403) = RCT(5403)*V(4719)*V(5255) - A(5404) = RCT(5404)*V(4719)*V(5252) - A(5405) = RCT(5405)*V(4719)*V(5256) - A(5406) = RCT(5406)*V(4719) - A(5407) = RCT(5407)*V(4719) - A(5408) = RCT(5408)*V(4719) - A(5409) = RCT(5409)*V(4951)*V(5256) - A(5410) = RCT(5410)*V(4951)*V(5258) - A(5411) = RCT(5411)*V(4951)*V(5250) - A(5412) = RCT(5412)*V(4916)*V(5255) - A(5413) = RCT(5413)*V(4916)*V(5255) - A(5414) = RCT(5414)*V(4916)*V(5255) - A(5415) = RCT(5415)*V(4916)*V(5252) - A(5416) = RCT(5416)*V(4916)*V(5253) - A(5417) = RCT(5417)*V(4916)*V(5256) - A(5418) = RCT(5418)*V(4916) - A(5419) = RCT(5419)*V(4916) - A(5420) = RCT(5420)*V(1210)*V(5250) - A(5421) = RCT(5421)*V(1210) - A(5422) = RCT(5422)*V(1417)*V(5250) - A(5423) = RCT(5423)*V(1417) - A(5424) = RCT(5424)*V(2955)*V(5250) - A(5425) = RCT(5425)*V(2955) - A(5426) = RCT(5426)*V(4822)*V(5255) - A(5427) = RCT(5427)*V(4822)*V(5255) - A(5428) = RCT(5428)*V(4822)*V(5255) - A(5429) = RCT(5429)*V(4822)*V(5252) - A(5430) = RCT(5430)*V(4822)*V(5253) - A(5431) = RCT(5431)*V(4822)*V(5256) - A(5432) = RCT(5432)*V(4822) - A(5433) = RCT(5433)*V(4822) - A(5434) = RCT(5434)*V(4823)*V(5255) - A(5435) = RCT(5435)*V(4823)*V(5252) - A(5436) = RCT(5436)*V(4823)*V(5256) - A(5437) = RCT(5437)*V(4823) - A(5438) = RCT(5438)*V(4823) - A(5439) = RCT(5439)*V(4823) - A(5440) = RCT(5440)*V(1016)*V(5250) - A(5441) = RCT(5441)*V(1016) - A(5442) = RCT(5442)*V(3285)*V(5250) - A(5443) = RCT(5443)*V(3285) - A(5444) = RCT(5444)*V(3576) - A(5445) = RCT(5445)*V(3576) - A(5446) = RCT(5446)*V(3416)*V(5250) - A(5447) = RCT(5447)*V(3416) - A(5448) = RCT(5448)*V(788)*V(5250) - A(5449) = RCT(5449)*V(788) - A(5450) = RCT(5450)*V(3022)*V(5250) - A(5451) = RCT(5451)*V(3022) - A(5452) = RCT(5452)*V(3022) - A(5453) = RCT(5453)*V(2200) - A(5454) = RCT(5454)*V(2448)*V(5250) - A(5455) = RCT(5455)*V(2448) - A(5456) = RCT(5456)*V(1698)*V(5250) - A(5457) = RCT(5457)*V(1698) - A(5458) = RCT(5458)*V(4358)*V(5255) - A(5459) = RCT(5459)*V(4358)*V(5252) - A(5460) = RCT(5460)*V(4358)*V(5256) - A(5461) = RCT(5461)*V(4358) - A(5462) = RCT(5462)*V(4358) - A(5463) = RCT(5463)*V(4358) - A(5464) = RCT(5464)*V(3161)*V(5256) - A(5465) = RCT(5465)*V(3161)*V(5250) - A(5466) = RCT(5466)*V(2799)*V(5250) - A(5467) = RCT(5467)*V(2799) - A(5468) = RCT(5468)*V(2799) - A(5469) = RCT(5469)*V(2798) - A(5470) = RCT(5470)*V(2468)*V(5250) - A(5471) = RCT(5471)*V(2468) - A(5472) = RCT(5472)*V(4531)*V(5253) - A(5473) = RCT(5473)*V(4531)*V(5258) - A(5474) = RCT(5474)*V(614) - A(5475) = RCT(5475)*V(1024)*V(5250) - A(5476) = RCT(5476)*V(1024) - A(5477) = RCT(5477)*V(4603) - A(5478) = RCT(5478)*V(4603) - A(5479) = RCT(5479)*V(94)*V(5250) - A(5480) = RCT(5480)*V(939)*V(5250) - A(5481) = RCT(5481)*V(939) - A(5482) = RCT(5482)*V(4488) - A(5483) = RCT(5483)*V(4488) - A(5484) = RCT(5484)*V(136)*V(5250) - A(5485) = RCT(5485)*V(3253)*V(5250) - A(5486) = RCT(5486)*V(3253) - A(5487) = RCT(5487)*V(3253) - A(5488) = RCT(5488)*V(2506) - A(5489) = RCT(5489)*V(1747)*V(5250) - A(5490) = RCT(5490)*V(1747) - A(5491) = RCT(5491)*V(4048)*V(5256) - A(5492) = RCT(5492)*V(4048)*V(5250) - A(5493) = RCT(5493)*V(4592)*V(5255) - A(5494) = RCT(5494)*V(4592)*V(5252) - A(5495) = RCT(5495)*V(4592)*V(5256) - A(5496) = RCT(5496)*V(4592) - A(5497) = RCT(5497)*V(4514)*V(5253) - A(5498) = RCT(5498)*V(4514)*V(5258) - A(5499) = RCT(5499)*V(628) - A(5500) = RCT(5500)*V(5209)*V(5256) - A(5501) = RCT(5501)*V(5209)*V(5256) - A(5502) = RCT(5502)*V(5209)*V(5258) - A(5503) = RCT(5503)*V(5209)*V(5258) - A(5504) = RCT(5504)*V(5209)*V(5250) - A(5505) = RCT(5505)*V(5209)*V(5250) - A(5506) = RCT(5506)*V(5209)*V(5250) - A(5507) = RCT(5507)*V(5209) - A(5508) = RCT(5508)*V(5209) - A(5509) = RCT(5509)*V(5209) - A(5510) = RCT(5510)*V(5123)*V(5256) - A(5511) = RCT(5511)*V(5123)*V(5258) - A(5512) = RCT(5512)*V(5123)*V(5258) - A(5513) = RCT(5513)*V(5123)*V(5250) - A(5514) = RCT(5514)*V(5123)*V(5250) - A(5515) = RCT(5515)*V(5123) - A(5516) = RCT(5516)*V(5123) - A(5517) = RCT(5517)*V(4952)*V(5256) - A(5518) = RCT(5518)*V(4952)*V(5258) - A(5519) = RCT(5519)*V(4952)*V(5250) - A(5520) = RCT(5520)*V(4986)*V(5255) - A(5521) = RCT(5521)*V(4986)*V(5255) - A(5522) = RCT(5522)*V(4986)*V(5255) - A(5523) = RCT(5523)*V(4986)*V(5252) - A(5524) = RCT(5524)*V(4986)*V(5253) - A(5525) = RCT(5525)*V(4986)*V(5256) - A(5526) = RCT(5526)*V(4986) - A(5527) = RCT(5527)*V(4986) - A(5528) = RCT(5528)*V(1316)*V(5250) - A(5529) = RCT(5529)*V(1316) - A(5530) = RCT(5530)*V(837)*V(5250) - A(5531) = RCT(5531)*V(837) - A(5532) = RCT(5532)*V(3060)*V(5250) - A(5533) = RCT(5533)*V(3060) - A(5534) = RCT(5534)*V(5102)*V(5251) - A(5535) = RCT(5535)*V(5102)*V(5252) - A(5536) = RCT(5536)*V(5102)*V(5253) - A(5537) = RCT(5537)*V(5102)*V(5254) - A(5538) = RCT(5538)*V(5102) - A(5539) = RCT(5539)*V(5102) - A(5540) = RCT(5540)*V(846)*V(5250) - A(5541) = RCT(5541)*V(846) - A(5542) = RCT(5542)*V(3379)*V(5250) - A(5543) = RCT(5543)*V(3379) - A(5544) = RCT(5544)*V(3589) - A(5545) = RCT(5545)*V(3589) - A(5546) = RCT(5546)*V(3378)*V(5250) - A(5547) = RCT(5547)*V(3378) - A(5548) = RCT(5548)*V(565)*V(5250) - A(5549) = RCT(5549)*V(565) - A(5550) = RCT(5550)*V(2501)*V(5250) - A(5551) = RCT(5551)*V(2501) - A(5552) = RCT(5552)*V(2501) - A(5553) = RCT(5553)*V(2234) - A(5554) = RCT(5554)*V(1806)*V(5250) - A(5555) = RCT(5555)*V(1806) - A(5556) = RCT(5556)*V(1588)*V(5250) - A(5557) = RCT(5557)*V(1588) - A(5558) = RCT(5558)*V(4591)*V(5255) - A(5559) = RCT(5559)*V(4591)*V(5255) - A(5560) = RCT(5560)*V(4591)*V(5255) - A(5561) = RCT(5561)*V(4591)*V(5252) - A(5562) = RCT(5562)*V(4591)*V(5253) - A(5563) = RCT(5563)*V(4591)*V(5256) - A(5564) = RCT(5564)*V(4591) - A(5565) = RCT(5565)*V(4591) - A(5566) = RCT(5566)*V(2175)*V(5250) - A(5567) = RCT(5567)*V(2175) - A(5568) = RCT(5568)*V(5076)*V(5256) - A(5569) = RCT(5569)*V(5076)*V(5258) - A(5570) = RCT(5570)*V(5076)*V(5258) - A(5571) = RCT(5571)*V(5076)*V(5250) - A(5572) = RCT(5572)*V(5076)*V(5250) - A(5573) = RCT(5573)*V(5076) - A(5574) = RCT(5574)*V(5076) - A(5575) = RCT(5575)*V(3519)*V(5256) - A(5576) = RCT(5576)*V(3519)*V(5258) - A(5577) = RCT(5577)*V(3519)*V(5250) - A(5578) = RCT(5578)*V(1343)*V(5250) - A(5579) = RCT(5579)*V(1343) - A(5580) = RCT(5580)*V(937)*V(5250) - A(5581) = RCT(5581)*V(937) - A(5582) = RCT(5582)*V(3292)*V(5250) - A(5583) = RCT(5583)*V(3292) - A(5584) = RCT(5584)*V(4740)*V(5255) - A(5585) = RCT(5585)*V(4740)*V(5255) - A(5586) = RCT(5586)*V(4740)*V(5255) - A(5587) = RCT(5587)*V(4740)*V(5252) - A(5588) = RCT(5588)*V(4740)*V(5253) - A(5589) = RCT(5589)*V(4740)*V(5256) - A(5590) = RCT(5590)*V(4740) - A(5591) = RCT(5591)*V(4740) - A(5592) = RCT(5592)*V(4947)*V(5255) - A(5593) = RCT(5593)*V(4947)*V(5252) - A(5594) = RCT(5594)*V(4947)*V(5256) - A(5595) = RCT(5595)*V(4947) - A(5596) = RCT(5596)*V(1049)*V(5250) - A(5597) = RCT(5597)*V(1049) - A(5598) = RCT(5598)*V(3177)*V(5250) - A(5599) = RCT(5599)*V(3177) - A(5600) = RCT(5600)*V(3573) - A(5601) = RCT(5601)*V(3573) - A(5602) = RCT(5602)*V(3176)*V(5250) - A(5603) = RCT(5603)*V(3176) - A(5604) = RCT(5604)*V(764)*V(5250) - A(5605) = RCT(5605)*V(764) - A(5606) = RCT(5606)*V(3469)*V(5250) - A(5607) = RCT(5607)*V(3469) - A(5608) = RCT(5608)*V(3469) - A(5609) = RCT(5609)*V(3469) - A(5610) = RCT(5610)*V(755) - A(5611) = RCT(5611)*V(1988)*V(5250) - A(5612) = RCT(5612)*V(1988) - A(5613) = RCT(5613)*V(1988) - A(5614) = RCT(5614)*V(3321)*V(5250) - A(5615) = RCT(5615)*V(3321) - A(5616) = RCT(5616)*V(3321) - A(5617) = RCT(5617)*V(2806) - A(5618) = RCT(5618)*V(1549)*V(5250) - A(5619) = RCT(5619)*V(1549) - A(5620) = RCT(5620)*V(3170)*V(5256) - A(5621) = RCT(5621)*V(3170)*V(5250) - A(5622) = RCT(5622)*V(4376)*V(5255) - A(5623) = RCT(5623)*V(4376)*V(5252) - A(5624) = RCT(5624)*V(4376)*V(5256) - A(5625) = RCT(5625)*V(4376) - A(5626) = RCT(5626)*V(1157)*V(5250) - A(5627) = RCT(5627)*V(1157) - A(5628) = RCT(5628)*V(4326) - A(5629) = RCT(5629)*V(4326) - A(5630) = RCT(5630)*V(109)*V(5250) - A(5631) = RCT(5631)*V(4471)*V(5253) - A(5632) = RCT(5632)*V(4471)*V(5258) - A(5633) = RCT(5633)*V(723) - A(5634) = RCT(5634)*V(4338)*V(5255) - A(5635) = RCT(5635)*V(4338)*V(5255) - A(5636) = RCT(5636)*V(4338)*V(5255) - A(5637) = RCT(5637)*V(4338)*V(5252) - A(5638) = RCT(5638)*V(4338)*V(5253) - A(5639) = RCT(5639)*V(4338)*V(5256) - A(5640) = RCT(5640)*V(4338) - A(5641) = RCT(5641)*V(4338) - A(5642) = RCT(5642)*V(4038)*V(5255) - A(5643) = RCT(5643)*V(4038)*V(5252) - A(5644) = RCT(5644)*V(4038)*V(5256) - A(5645) = RCT(5645)*V(4038) - A(5646) = RCT(5646)*V(5089)*V(5256) - A(5647) = RCT(5647)*V(5089)*V(5258) - A(5648) = RCT(5648)*V(5089)*V(5258) - A(5649) = RCT(5649)*V(5089)*V(5250) - A(5650) = RCT(5650)*V(5089)*V(5250) - A(5651) = RCT(5651)*V(5089) - A(5652) = RCT(5652)*V(5089) - A(5653) = RCT(5653)*V(4895)*V(5256) - A(5654) = RCT(5654)*V(4895)*V(5258) - A(5655) = RCT(5655)*V(4895)*V(5250) - A(5656) = RCT(5656)*V(4927)*V(5256) - A(5657) = RCT(5657)*V(4927)*V(5258) - A(5658) = RCT(5658)*V(4927)*V(5250) - A(5659) = RCT(5659)*V(4773)*V(5255) - A(5660) = RCT(5660)*V(4773)*V(5255) - A(5661) = RCT(5661)*V(4773)*V(5252) - A(5662) = RCT(5662)*V(4773)*V(5253) - A(5663) = RCT(5663)*V(4773)*V(5256) - A(5664) = RCT(5664)*V(4773) - A(5665) = RCT(5665)*V(1354)*V(5250) - A(5666) = RCT(5666)*V(1354) - A(5667) = RCT(5667)*V(1296)*V(5250) - A(5668) = RCT(5668)*V(1296) - A(5669) = RCT(5669)*V(3206)*V(5250) - A(5670) = RCT(5670)*V(3206) - A(5671) = RCT(5671)*V(4684)*V(5255) - A(5672) = RCT(5672)*V(4684)*V(5255) - A(5673) = RCT(5673)*V(4684)*V(5255) - A(5674) = RCT(5674)*V(4684)*V(5252) - A(5675) = RCT(5675)*V(4684)*V(5253) - A(5676) = RCT(5676)*V(4684)*V(5256) - A(5677) = RCT(5677)*V(4684) - A(5678) = RCT(5678)*V(4684) - A(5679) = RCT(5679)*V(5001)*V(5255) - A(5680) = RCT(5680)*V(5001)*V(5252) - A(5681) = RCT(5681)*V(5001)*V(5256) - A(5682) = RCT(5682)*V(5001) - A(5683) = RCT(5683)*V(5001) - A(5684) = RCT(5684)*V(1415)*V(5250) - A(5685) = RCT(5685)*V(1415) - A(5686) = RCT(5686)*V(3360)*V(5250) - A(5687) = RCT(5687)*V(3360) - A(5688) = RCT(5688)*V(3614) - A(5689) = RCT(5689)*V(3614) - A(5690) = RCT(5690)*V(3359)*V(5250) - A(5691) = RCT(5691)*V(3359) - A(5692) = RCT(5692)*V(779)*V(5250) - A(5693) = RCT(5693)*V(779) - A(5694) = RCT(5694)*V(1836)*V(5250) - A(5695) = RCT(5695)*V(1836) - A(5696) = RCT(5696)*V(720) - A(5697) = RCT(5697)*V(1610)*V(5250) - A(5698) = RCT(5698)*V(1610) - A(5699) = RCT(5699)*V(1609)*V(5250) - A(5700) = RCT(5700)*V(1609) - A(5701) = RCT(5701)*V(3125)*V(5256) - A(5702) = RCT(5702)*V(3125)*V(5250) - A(5703) = RCT(5703)*V(4075)*V(5255) - A(5704) = RCT(5704)*V(4075)*V(5252) - A(5705) = RCT(5705)*V(4075)*V(5256) - A(5706) = RCT(5706)*V(4075) - A(5707) = RCT(5707)*V(1009)*V(5250) - A(5708) = RCT(5708)*V(1009) - A(5709) = RCT(5709)*V(4448) - A(5710) = RCT(5710)*V(4448) - A(5711) = RCT(5711)*V(31)*V(5250) - A(5712) = RCT(5712)*V(3320)*V(5250) - A(5713) = RCT(5713)*V(3320) - A(5714) = RCT(5714)*V(3320) - A(5715) = RCT(5715)*V(2762) - A(5716) = RCT(5716)*V(1664)*V(5250) - A(5717) = RCT(5717)*V(1664) - A(5718) = RCT(5718)*V(4487)*V(5253) - A(5719) = RCT(5719)*V(4487)*V(5258) - A(5720) = RCT(5720)*V(738) - A(5721) = RCT(5721)*V(4100)*V(5255) - A(5722) = RCT(5722)*V(4100)*V(5255) - A(5723) = RCT(5723)*V(4100)*V(5255) - A(5724) = RCT(5724)*V(4100)*V(5252) - A(5725) = RCT(5725)*V(4100)*V(5253) - A(5726) = RCT(5726)*V(4100)*V(5256) - A(5727) = RCT(5727)*V(4100) - A(5728) = RCT(5728)*V(4100) - A(5729) = RCT(5729)*V(4005)*V(5255) - A(5730) = RCT(5730)*V(4005)*V(5252) - A(5731) = RCT(5731)*V(4005)*V(5256) - A(5732) = RCT(5732)*V(4005) - A(5733) = RCT(5733)*V(5037)*V(5258) - A(5734) = RCT(5734)*V(5037)*V(5250) - A(5735) = RCT(5735)*V(5037) - A(5736) = RCT(5736)*V(1403)*V(5250) - A(5737) = RCT(5737)*V(1403) - A(5738) = RCT(5738)*V(941)*V(5250) - A(5739) = RCT(5739)*V(941) - A(5740) = RCT(5740)*V(2569)*V(5250) - A(5741) = RCT(5741)*V(2569) - A(5742) = RCT(5742)*V(1167)*V(5250) - A(5743) = RCT(5743)*V(1167) - A(5744) = RCT(5744)*V(3340)*V(5250) - A(5745) = RCT(5745)*V(3340) - A(5746) = RCT(5746)*V(3605) - A(5747) = RCT(5747)*V(3605) - A(5748) = RCT(5748)*V(3339)*V(5250) - A(5749) = RCT(5749)*V(3339) - A(5750) = RCT(5750)*V(681)*V(5250) - A(5751) = RCT(5751)*V(681) - A(5752) = RCT(5752)*V(3468)*V(5250) - A(5753) = RCT(5753)*V(3468) - A(5754) = RCT(5754)*V(3468) - A(5755) = RCT(5755)*V(3468) - A(5756) = RCT(5756)*V(2837) - A(5757) = RCT(5757)*V(2477)*V(5250) - A(5758) = RCT(5758)*V(2477) - A(5759) = RCT(5759)*V(2477) - A(5760) = RCT(5760)*V(2565)*V(5250) - A(5761) = RCT(5761)*V(2565) - A(5762) = RCT(5762)*V(2565) - A(5763) = RCT(5763)*V(2595) - A(5764) = RCT(5764)*V(1700)*V(5250) - A(5765) = RCT(5765)*V(1700) - A(5766) = RCT(5766)*V(3150)*V(5256) - A(5767) = RCT(5767)*V(3150)*V(5250) - A(5768) = RCT(5768)*V(4001)*V(5255) - A(5769) = RCT(5769)*V(4001)*V(5252) - A(5770) = RCT(5770)*V(4001)*V(5256) - A(5771) = RCT(5771)*V(4001) - A(5772) = RCT(5772)*V(996)*V(5250) - A(5773) = RCT(5773)*V(996) - A(5774) = RCT(5774)*V(4012) - A(5775) = RCT(5775)*V(4012) - A(5776) = RCT(5776)*V(84)*V(5250) - A(5777) = RCT(5777)*V(4509)*V(5253) - A(5778) = RCT(5778)*V(4509)*V(5258) - A(5779) = RCT(5779)*V(569) - A(5780) = RCT(5780)*V(4187)*V(5255) - A(5781) = RCT(5781)*V(4187)*V(5255) - A(5782) = RCT(5782)*V(4187)*V(5255) - A(5783) = RCT(5783)*V(4187)*V(5252) - A(5784) = RCT(5784)*V(4187)*V(5253) - A(5785) = RCT(5785)*V(4187)*V(5256) - A(5786) = RCT(5786)*V(4187) - A(5787) = RCT(5787)*V(4187) - A(5788) = RCT(5788)*V(3093)*V(5256) - A(5789) = RCT(5789)*V(3093)*V(5250) - A(5790) = RCT(5790)*V(4020)*V(5255) - A(5791) = RCT(5791)*V(4020)*V(5252) - A(5792) = RCT(5792)*V(4020)*V(5256) - A(5793) = RCT(5793)*V(4020) - A(5794) = RCT(5794)*V(938)*V(5250) - A(5795) = RCT(5795)*V(938) - A(5796) = RCT(5796)*V(4045) - A(5797) = RCT(5797)*V(4045) - A(5798) = RCT(5798)*V(47)*V(5250) - A(5799) = RCT(5799)*V(2520)*V(5250) - A(5800) = RCT(5800)*V(2520) - A(5801) = RCT(5801)*V(2520) - A(5802) = RCT(5802)*V(3050) - A(5803) = RCT(5803)*V(1613)*V(5250) - A(5804) = RCT(5804)*V(1613) - A(5805) = RCT(5805)*V(4454)*V(5253) - A(5806) = RCT(5806)*V(4454)*V(5258) - A(5807) = RCT(5807)*V(568) - A(5808) = RCT(5808)*V(5126)*V(5256) - A(5809) = RCT(5809)*V(5126)*V(5258) - A(5810) = RCT(5810)*V(5126)*V(5258) - A(5811) = RCT(5811)*V(5126)*V(5250) - A(5812) = RCT(5812)*V(5126)*V(5250) - A(5813) = RCT(5813)*V(5126) - A(5814) = RCT(5814)*V(5126) - A(5815) = RCT(5815)*V(4896)*V(5256) - A(5816) = RCT(5816)*V(4896)*V(5258) - A(5817) = RCT(5817)*V(4896)*V(5250) - A(5818) = RCT(5818)*V(5034)*V(5255) - A(5819) = RCT(5819)*V(5034)*V(5255) - A(5820) = RCT(5820)*V(5034)*V(5255) - A(5821) = RCT(5821)*V(5034)*V(5252) - A(5822) = RCT(5822)*V(5034)*V(5253) - A(5823) = RCT(5823)*V(5034)*V(5256) - A(5824) = RCT(5824)*V(5034) - A(5825) = RCT(5825)*V(5034) - A(5826) = RCT(5826)*V(961)*V(5250) - A(5827) = RCT(5827)*V(961) - A(5828) = RCT(5828)*V(921)*V(5250) - A(5829) = RCT(5829)*V(921) - A(5830) = RCT(5830)*V(2640)*V(5250) - A(5831) = RCT(5831)*V(2640) - A(5832) = RCT(5832)*V(5070)*V(5251) - A(5833) = RCT(5833)*V(5070)*V(5252) - A(5834) = RCT(5834)*V(5070)*V(5253) - A(5835) = RCT(5835)*V(5070)*V(5254) - A(5836) = RCT(5836)*V(5070) - A(5837) = RCT(5837)*V(5070) - A(5838) = RCT(5838)*V(1510)*V(5250) - A(5839) = RCT(5839)*V(1510) - A(5840) = RCT(5840)*V(3357)*V(5250) - A(5841) = RCT(5841)*V(3357) - A(5842) = RCT(5842)*V(3588) - A(5843) = RCT(5843)*V(3588) - A(5844) = RCT(5844)*V(3356)*V(5250) - A(5845) = RCT(5845)*V(3356) - A(5846) = RCT(5846)*V(683)*V(5250) - A(5847) = RCT(5847)*V(683) - A(5848) = RCT(5848)*V(3238)*V(5250) - A(5849) = RCT(5849)*V(3238) - A(5850) = RCT(5850)*V(3238) - A(5851) = RCT(5851)*V(1760) - A(5852) = RCT(5852)*V(1598)*V(5250) - A(5853) = RCT(5853)*V(1598) - A(5854) = RCT(5854)*V(2714)*V(5250) - A(5855) = RCT(5855)*V(2714) - A(5856) = RCT(5856)*V(4030)*V(5255) - A(5857) = RCT(5857)*V(4030)*V(5252) - A(5858) = RCT(5858)*V(4030)*V(5256) - A(5859) = RCT(5859)*V(4030) - A(5860) = RCT(5860)*V(4030) - A(5861) = RCT(5861)*V(4030) - A(5862) = RCT(5862)*V(3319)*V(5250) - A(5863) = RCT(5863)*V(3319) - A(5864) = RCT(5864)*V(3319) - A(5865) = RCT(5865)*V(2493) - A(5866) = RCT(5866)*V(1672)*V(5250) - A(5867) = RCT(5867)*V(1672) - A(5868) = RCT(5868)*V(3140)*V(5256) - A(5869) = RCT(5869)*V(3140)*V(5250) - A(5870) = RCT(5870)*V(4016)*V(5255) - A(5871) = RCT(5871)*V(4016)*V(5252) - A(5872) = RCT(5872)*V(4016)*V(5256) - A(5873) = RCT(5873)*V(4016) - A(5874) = RCT(5874)*V(1023)*V(5250) - A(5875) = RCT(5875)*V(1023) - A(5876) = RCT(5876)*V(4619) - A(5877) = RCT(5877)*V(4619) - A(5878) = RCT(5878)*V(143)*V(5250) - A(5879) = RCT(5879)*V(4466)*V(5253) - A(5880) = RCT(5880)*V(4466)*V(5258) - A(5881) = RCT(5881)*V(538) - A(5882) = RCT(5882)*V(4918)*V(5256) - A(5883) = RCT(5883)*V(4918)*V(5250) - A(5884) = RCT(5884)*V(4918) - A(5885) = RCT(5885)*V(5066)*V(5256) - A(5886) = RCT(5886)*V(5066)*V(5258) - A(5887) = RCT(5887)*V(5066)*V(5258) - A(5888) = RCT(5888)*V(5066)*V(5250) - A(5889) = RCT(5889)*V(5066)*V(5250) - A(5890) = RCT(5890)*V(5066) - A(5891) = RCT(5891)*V(5066) - A(5892) = RCT(5892)*V(4637)*V(5256) - A(5893) = RCT(5893)*V(4637)*V(5258) - A(5894) = RCT(5894)*V(4637)*V(5250) - A(5895) = RCT(5895)*V(4917)*V(5255) - A(5896) = RCT(5896)*V(4917)*V(5255) - A(5897) = RCT(5897)*V(4917)*V(5255) - A(5898) = RCT(5898)*V(4917)*V(5252) - A(5899) = RCT(5899)*V(4917)*V(5253) - A(5900) = RCT(5900)*V(4917)*V(5256) - A(5901) = RCT(5901)*V(4917) - A(5902) = RCT(5902)*V(4917) - A(5903) = RCT(5903)*V(1073)*V(5250) - A(5904) = RCT(5904)*V(1073) - A(5905) = RCT(5905)*V(1031)*V(5250) - A(5906) = RCT(5906)*V(1031) - A(5907) = RCT(5907)*V(2656)*V(5250) - A(5908) = RCT(5908)*V(2656) - A(5909) = RCT(5909)*V(4997)*V(5251) - A(5910) = RCT(5910)*V(4997)*V(5252) - A(5911) = RCT(5911)*V(4997)*V(5253) - A(5912) = RCT(5912)*V(4997)*V(5254) - A(5913) = RCT(5913)*V(4997) - A(5914) = RCT(5914)*V(4997) - A(5915) = RCT(5915)*V(851)*V(5250) - A(5916) = RCT(5916)*V(851) - A(5917) = RCT(5917)*V(3427)*V(5250) - A(5918) = RCT(5918)*V(3427) - A(5919) = RCT(5919)*V(4388) - A(5920) = RCT(5920)*V(4388) - A(5921) = RCT(5921)*V(3426)*V(5250) - A(5922) = RCT(5922)*V(3426) - A(5923) = RCT(5923)*V(732)*V(5250) - A(5924) = RCT(5924)*V(732) - A(5925) = RCT(5925)*V(2559)*V(5250) - A(5926) = RCT(5926)*V(2559) - A(5927) = RCT(5927)*V(2559) - A(5928) = RCT(5928)*V(2117) - A(5929) = RCT(5929)*V(1623)*V(5250) - A(5930) = RCT(5930)*V(1623) - A(5931) = RCT(5931)*V(2645)*V(5250) - A(5932) = RCT(5932)*V(2645) - A(5933) = RCT(5933)*V(1878)*V(5250) - A(5934) = RCT(5934)*V(1878) - A(5935) = RCT(5935)*V(3165)*V(5256) - A(5936) = RCT(5936)*V(3165)*V(5250) - A(5937) = RCT(5937)*V(4063)*V(5255) - A(5938) = RCT(5938)*V(4063)*V(5252) - A(5939) = RCT(5939)*V(4063)*V(5256) - A(5940) = RCT(5940)*V(4063) - A(5941) = RCT(5941)*V(1232)*V(5250) - A(5942) = RCT(5942)*V(1232) - A(5943) = RCT(5943)*V(4743) - A(5944) = RCT(5944)*V(4743) - A(5945) = RCT(5945)*V(71)*V(5250) - A(5946) = RCT(5946)*V(2709)*V(5250) - A(5947) = RCT(5947)*V(2709) - A(5948) = RCT(5948)*V(2709) - A(5949) = RCT(5949)*V(3027) - A(5950) = RCT(5950)*V(1717)*V(5250) - A(5951) = RCT(5951)*V(1717) - A(5952) = RCT(5952)*V(4444)*V(5253) - A(5953) = RCT(5953)*V(4444)*V(5258) - A(5954) = RCT(5954)*V(700) - A(5955) = RCT(5955)*V(5068)*V(5256) - A(5956) = RCT(5956)*V(5068)*V(5258) - A(5957) = RCT(5957)*V(5068)*V(5258) - A(5958) = RCT(5958)*V(5068)*V(5250) - A(5959) = RCT(5959)*V(5068)*V(5250) - A(5960) = RCT(5960)*V(5068) - A(5961) = RCT(5961)*V(5068) - A(5962) = RCT(5962)*V(5068) - A(5963) = RCT(5963)*V(4650)*V(5256) - A(5964) = RCT(5964)*V(4650)*V(5258) - A(5965) = RCT(5965)*V(4650)*V(5250) - A(5966) = RCT(5966)*V(4930)*V(5255) - A(5967) = RCT(5967)*V(4930)*V(5255) - A(5968) = RCT(5968)*V(4930)*V(5255) - A(5969) = RCT(5969)*V(4930)*V(5252) - A(5970) = RCT(5970)*V(4930)*V(5253) - A(5971) = RCT(5971)*V(4930)*V(5256) - A(5972) = RCT(5972)*V(4930) - A(5973) = RCT(5973)*V(4930) - A(5974) = RCT(5974)*V(1174)*V(5250) - A(5975) = RCT(5975)*V(1174) - A(5976) = RCT(5976)*V(910)*V(5250) - A(5977) = RCT(5977)*V(910) - A(5978) = RCT(5978)*V(2915)*V(5250) - A(5979) = RCT(5979)*V(2915) - A(5980) = RCT(5980)*V(4998)*V(5251) - A(5981) = RCT(5981)*V(4998)*V(5252) - A(5982) = RCT(5982)*V(4998)*V(5253) - A(5983) = RCT(5983)*V(4998)*V(5254) - A(5984) = RCT(5984)*V(4998) - A(5985) = RCT(5985)*V(4998) - A(5986) = RCT(5986)*V(1065)*V(5250) - A(5987) = RCT(5987)*V(1065) - A(5988) = RCT(5988)*V(3353)*V(5250) - A(5989) = RCT(5989)*V(3353) - A(5990) = RCT(5990)*V(4393) - A(5991) = RCT(5991)*V(4393) - A(5992) = RCT(5992)*V(3352)*V(5250) - A(5993) = RCT(5993)*V(3352) - A(5994) = RCT(5994)*V(531)*V(5250) - A(5995) = RCT(5995)*V(531) - A(5996) = RCT(5996)*V(2601)*V(5250) - A(5997) = RCT(5997)*V(2601) - A(5998) = RCT(5998)*V(2601) - A(5999) = RCT(5999)*V(1951) - A(6000) = RCT(6000)*V(1636)*V(5250) - A(6001) = RCT(6001)*V(1636) - A(6002) = RCT(6002)*V(2875)*V(5250) - A(6003) = RCT(6003)*V(2875) - A(6004) = RCT(6004)*V(4375)*V(5255) - A(6005) = RCT(6005)*V(4375)*V(5255) - A(6006) = RCT(6006)*V(4375)*V(5255) - A(6007) = RCT(6007)*V(4375)*V(5252) - A(6008) = RCT(6008)*V(4375)*V(5253) - A(6009) = RCT(6009)*V(4375)*V(5256) - A(6010) = RCT(6010)*V(4375) - A(6011) = RCT(6011)*V(4375) - A(6012) = RCT(6012)*V(2740)*V(5250) - A(6013) = RCT(6013)*V(2740) - A(6014) = RCT(6014)*V(2740) - A(6015) = RCT(6015)*V(2994) - A(6016) = RCT(6016)*V(1647)*V(5250) - A(6017) = RCT(6017)*V(1647) - A(6018) = RCT(6018)*V(3111)*V(5256) - A(6019) = RCT(6019)*V(3111)*V(5250) - A(6020) = RCT(6020)*V(4037)*V(5255) - A(6021) = RCT(6021)*V(4037)*V(5252) - A(6022) = RCT(6022)*V(4037)*V(5256) - A(6023) = RCT(6023)*V(4037) - A(6024) = RCT(6024)*V(884)*V(5250) - A(6025) = RCT(6025)*V(884) - A(6026) = RCT(6026)*V(3195) - A(6027) = RCT(6027)*V(68)*V(5250) - A(6028) = RCT(6028)*V(4639)*V(5253) - A(6029) = RCT(6029)*V(4639)*V(5258) - A(6030) = RCT(6030)*V(752) - A(6031) = RCT(6031)*V(3437)*V(5256) - A(6032) = RCT(6032)*V(3437)*V(5250) - A(6033) = RCT(6033)*V(3437)*V(5250) - A(6034) = RCT(6034)*V(3437) - A(6035) = RCT(6035)*V(3437) - A(6036) = RCT(6036)*V(4505)*V(5256) - A(6037) = RCT(6037)*V(4505)*V(5258) - A(6038) = RCT(6038)*V(4505)*V(5250) - A(6039) = RCT(6039)*V(3553)*V(5256) - A(6040) = RCT(6040)*V(3553)*V(5258) - A(6041) = RCT(6041)*V(3553)*V(5250) - A(6042) = RCT(6042)*V(4846)*V(5255) - A(6043) = RCT(6043)*V(4846)*V(5255) - A(6044) = RCT(6044)*V(4846)*V(5255) - A(6045) = RCT(6045)*V(4846)*V(5252) - A(6046) = RCT(6046)*V(4846)*V(5253) - A(6047) = RCT(6047)*V(4846)*V(5256) - A(6048) = RCT(6048)*V(4846) - A(6049) = RCT(6049)*V(4846) - A(6050) = RCT(6050)*V(4913)*V(5255) - A(6051) = RCT(6051)*V(4913)*V(5252) - A(6052) = RCT(6052)*V(4913)*V(5256) - A(6053) = RCT(6053)*V(4913) - A(6054) = RCT(6054)*V(1112)*V(5250) - A(6055) = RCT(6055)*V(1112) - A(6056) = RCT(6056)*V(3567) - A(6057) = RCT(6057)*V(3567) - A(6058) = RCT(6058)*V(3304)*V(5250) - A(6059) = RCT(6059)*V(3304) - A(6060) = RCT(6060)*V(3486)*V(5250) - A(6061) = RCT(6061)*V(3486) - A(6062) = RCT(6062)*V(3486) - A(6063) = RCT(6063)*V(812)*V(5250) - A(6064) = RCT(6064)*V(812) - A(6065) = RCT(6065)*V(4139)*V(5255) - A(6066) = RCT(6066)*V(4139)*V(5255) - A(6067) = RCT(6067)*V(4139)*V(5255) - A(6068) = RCT(6068)*V(4139)*V(5252) - A(6069) = RCT(6069)*V(4139)*V(5253) - A(6070) = RCT(6070)*V(4139)*V(5256) - A(6071) = RCT(6071)*V(4139) - A(6072) = RCT(6072)*V(4139) - A(6073) = RCT(6073)*V(4000)*V(5255) - A(6074) = RCT(6074)*V(4000)*V(5252) - A(6075) = RCT(6075)*V(4000)*V(5256) - A(6076) = RCT(6076)*V(4000) - A(6077) = RCT(6077)*V(3832)*V(5258) - A(6078) = RCT(6078)*V(3832)*V(5258) - A(6079) = RCT(6079)*V(3832)*V(5250) - A(6080) = RCT(6080)*V(3832) - A(6081) = RCT(6081)*V(3832) - A(6082) = RCT(6082)*V(2649)*V(5250) - A(6083) = RCT(6083)*V(2649) - A(6084) = RCT(6084)*V(2649) - A(6085) = RCT(6085)*V(2776) - A(6086) = RCT(6086)*V(1669)*V(5250) - A(6087) = RCT(6087)*V(1669) - A(6088) = RCT(6088)*V(3085)*V(5256) - A(6089) = RCT(6089)*V(3085)*V(5250) - A(6090) = RCT(6090)*V(4009)*V(5255) - A(6091) = RCT(6091)*V(4009)*V(5252) - A(6092) = RCT(6092)*V(4009)*V(5256) - A(6093) = RCT(6093)*V(4009) - A(6094) = RCT(6094)*V(959)*V(5250) - A(6095) = RCT(6095)*V(959) - A(6096) = RCT(6096)*V(4322) - A(6097) = RCT(6097)*V(4322) - A(6098) = RCT(6098)*V(17)*V(5250) - A(6099) = RCT(6099)*V(4670)*V(5253) - A(6100) = RCT(6100)*V(4670)*V(5258) - A(6101) = RCT(6101)*V(705) - A(6102) = RCT(6102)*V(3227)*V(5250) - A(6103) = RCT(6103)*V(3227) - A(6104) = RCT(6104)*V(3487)*V(5250) - A(6105) = RCT(6105)*V(3487) - A(6106) = RCT(6106)*V(3487) - A(6107) = RCT(6107)*V(3316)*V(5250) - A(6108) = RCT(6108)*V(3316) - A(6109) = RCT(6109)*V(1014)*V(5250) - A(6110) = RCT(6110)*V(1014) - A(6111) = RCT(6111)*V(3584) - A(6112) = RCT(6112)*V(3584) - A(6113) = RCT(6113)*V(3264)*V(5250) - A(6114) = RCT(6114)*V(3264) - A(6115) = RCT(6115)*V(3433)*V(5250) - A(6116) = RCT(6116)*V(3433) - A(6117) = RCT(6117)*V(785)*V(5250) - A(6118) = RCT(6118)*V(785) - A(6119) = RCT(6119)*V(3452)*V(5250) - A(6120) = RCT(6120)*V(3452) - A(6121) = RCT(6121)*V(3452) - A(6122) = RCT(6122)*V(3452) - A(6123) = RCT(6123)*V(2356) - A(6124) = RCT(6124)*V(2357)*V(5250) - A(6125) = RCT(6125)*V(2357) - A(6126) = RCT(6126)*V(2357) - A(6127) = RCT(6127)*V(4181)*V(5255) - A(6128) = RCT(6128)*V(4181)*V(5255) - A(6129) = RCT(6129)*V(4181)*V(5255) - A(6130) = RCT(6130)*V(4181)*V(5252) - A(6131) = RCT(6131)*V(4181)*V(5253) - A(6132) = RCT(6132)*V(4181)*V(5256) - A(6133) = RCT(6133)*V(4181) - A(6134) = RCT(6134)*V(4181) - A(6135) = RCT(6135)*V(4041)*V(5255) - A(6136) = RCT(6136)*V(4041)*V(5252) - A(6137) = RCT(6137)*V(4041)*V(5256) - A(6138) = RCT(6138)*V(4041) - A(6139) = RCT(6139)*V(4985)*V(5255) - A(6140) = RCT(6140)*V(4985)*V(5255) - A(6141) = RCT(6141)*V(4985)*V(5252) - A(6142) = RCT(6142)*V(4985)*V(5253) - A(6143) = RCT(6143)*V(4985)*V(5256) - A(6144) = RCT(6144)*V(4985) - A(6145) = RCT(6145)*V(4985) - A(6146) = RCT(6146)*V(2585)*V(5250) - A(6147) = RCT(6147)*V(2585) - A(6148) = RCT(6148)*V(2585) - A(6149) = RCT(6149)*V(2847) - A(6150) = RCT(6150)*V(1589)*V(5250) - A(6151) = RCT(6151)*V(1589) - A(6152) = RCT(6152)*V(1218)*V(5250) - A(6153) = RCT(6153)*V(1218) - A(6154) = RCT(6154)*V(3246) - A(6155) = RCT(6155)*V(13)*V(5250) - A(6156) = RCT(6156)*V(1513)*V(5250) - A(6157) = RCT(6157)*V(1513) - A(6158) = RCT(6158)*V(1465)*V(5250) - A(6159) = RCT(6159)*V(1465) - A(6160) = RCT(6160)*V(3258)*V(5250) - A(6161) = RCT(6161)*V(3258) - A(6162) = RCT(6162)*V(4680)*V(5255) - A(6163) = RCT(6163)*V(4680)*V(5255) - A(6164) = RCT(6164)*V(4680)*V(5255) - A(6165) = RCT(6165)*V(4680)*V(5252) - A(6166) = RCT(6166)*V(4680)*V(5253) - A(6167) = RCT(6167)*V(4680)*V(5256) - A(6168) = RCT(6168)*V(4680) - A(6169) = RCT(6169)*V(4680) - A(6170) = RCT(6170)*V(5011)*V(5255) - A(6171) = RCT(6171)*V(5011)*V(5252) - A(6172) = RCT(6172)*V(5011)*V(5256) - A(6173) = RCT(6173)*V(5011) - A(6174) = RCT(6174)*V(1034)*V(5250) - A(6175) = RCT(6175)*V(1034) - A(6176) = RCT(6176)*V(3569) - A(6177) = RCT(6177)*V(3569) - A(6178) = RCT(6178)*V(3438)*V(5250) - A(6179) = RCT(6179)*V(3438) - A(6180) = RCT(6180)*V(487)*V(5250) - A(6181) = RCT(6181)*V(487) - A(6182) = RCT(6182)*V(3624)*V(5250) - A(6183) = RCT(6183)*V(3624) - A(6184) = RCT(6184)*V(3624) - A(6185) = RCT(6185)*V(3624) - A(6186) = RCT(6186)*V(756) - A(6187) = RCT(6187)*V(1600)*V(5250) - A(6188) = RCT(6188)*V(1600) - A(6189) = RCT(6189)*V(3251)*V(5250) - A(6190) = RCT(6190)*V(3251) - A(6191) = RCT(6191)*V(3251) - A(6192) = RCT(6192)*V(3814)*V(5255) - A(6193) = RCT(6193)*V(3814)*V(5252) - A(6194) = RCT(6194)*V(3814)*V(5256) - A(6195) = RCT(6195)*V(3814) - A(6196) = RCT(6196)*V(3814) - A(6197) = RCT(6197)*V(3814) - A(6198) = RCT(6198)*V(1409)*V(5250) - A(6199) = RCT(6199)*V(1409) - A(6200) = RCT(6200)*V(1370)*V(5250) - A(6201) = RCT(6201)*V(1370) - A(6202) = RCT(6202)*V(2857)*V(5250) - A(6203) = RCT(6203)*V(2857) - A(6204) = RCT(6204)*V(4198)*V(5255) - A(6205) = RCT(6205)*V(4198)*V(5255) - A(6206) = RCT(6206)*V(4198)*V(5255) - A(6207) = RCT(6207)*V(4198)*V(5252) - A(6208) = RCT(6208)*V(4198)*V(5253) - A(6209) = RCT(6209)*V(4198)*V(5256) - A(6210) = RCT(6210)*V(4198) - A(6211) = RCT(6211)*V(4198) - A(6212) = RCT(6212)*V(4769)*V(5255) - A(6213) = RCT(6213)*V(4769)*V(5252) - A(6214) = RCT(6214)*V(4769)*V(5256) - A(6215) = RCT(6215)*V(4769) - A(6216) = RCT(6216)*V(1103)*V(5250) - A(6217) = RCT(6217)*V(1103) - A(6218) = RCT(6218)*V(3108)*V(5250) - A(6219) = RCT(6219)*V(3108) - A(6220) = RCT(6220)*V(3606) - A(6221) = RCT(6221)*V(3606) - A(6222) = RCT(6222)*V(3107)*V(5250) - A(6223) = RCT(6223)*V(3107) - A(6224) = RCT(6224)*V(647)*V(5250) - A(6225) = RCT(6225)*V(647) - A(6226) = RCT(6226)*V(1968)*V(5250) - A(6227) = RCT(6227)*V(1968) - A(6228) = RCT(6228)*V(1968) - A(6229) = RCT(6229)*V(1583) - A(6230) = RCT(6230)*V(1584)*V(5250) - A(6231) = RCT(6231)*V(1584) - A(6232) = RCT(6232)*V(1584) - A(6233) = RCT(6233)*V(2624)*V(5250) - A(6234) = RCT(6234)*V(2624) - A(6235) = RCT(6235)*V(2624) - A(6236) = RCT(6236)*V(3666) - A(6237) = RCT(6237)*V(1567)*V(5250) - A(6238) = RCT(6238)*V(1567) - A(6239) = RCT(6239)*V(3153)*V(5256) - A(6240) = RCT(6240)*V(3153)*V(5250) - A(6241) = RCT(6241)*V(4082)*V(5255) - A(6242) = RCT(6242)*V(4082)*V(5252) - A(6243) = RCT(6243)*V(4082)*V(5256) - A(6244) = RCT(6244)*V(4082) - A(6245) = RCT(6245)*V(1033)*V(5250) - A(6246) = RCT(6246)*V(1033) - A(6247) = RCT(6247)*V(4152) - A(6248) = RCT(6248)*V(4152) - A(6249) = RCT(6249)*V(119)*V(5250) - A(6250) = RCT(6250)*V(4413)*V(5253) - A(6251) = RCT(6251)*V(4413)*V(5258) - A(6252) = RCT(6252)*V(718) - A(6253) = RCT(6253)*V(1405)*V(5250) - A(6254) = RCT(6254)*V(1405) - A(6255) = RCT(6255)*V(1473)*V(5250) - A(6256) = RCT(6256)*V(1473) - A(6257) = RCT(6257)*V(2950)*V(5250) - A(6258) = RCT(6258)*V(2950) - A(6259) = RCT(6259)*V(1038)*V(5250) - A(6260) = RCT(6260)*V(1038) - A(6261) = RCT(6261)*V(3322)*V(5250) - A(6262) = RCT(6262)*V(3322) - A(6263) = RCT(6263)*V(3610) - A(6264) = RCT(6264)*V(3610) - A(6265) = RCT(6265)*V(3411)*V(5250) - A(6266) = RCT(6266)*V(3411) - A(6267) = RCT(6267)*V(742)*V(5250) - A(6268) = RCT(6268)*V(742) - A(6269) = RCT(6269)*V(1873)*V(5250) - A(6270) = RCT(6270)*V(1873) - A(6271) = RCT(6271)*V(1873) - A(6272) = RCT(6272)*V(1640) - A(6273) = RCT(6273)*V(2484)*V(5250) - A(6274) = RCT(6274)*V(2484) - A(6275) = RCT(6275)*V(2484) - A(6276) = RCT(6276)*V(1560)*V(5250) - A(6277) = RCT(6277)*V(1560) - A(6278) = RCT(6278)*V(1560) - A(6279) = RCT(6279)*V(3101)*V(5256) - A(6280) = RCT(6280)*V(3101)*V(5250) - A(6281) = RCT(6281)*V(4008)*V(5255) - A(6282) = RCT(6282)*V(4008)*V(5252) - A(6283) = RCT(6283)*V(4008)*V(5256) - A(6284) = RCT(6284)*V(4008) - A(6285) = RCT(6285)*V(1503)*V(5250) - A(6286) = RCT(6286)*V(1503) - A(6287) = RCT(6287)*V(4799) - A(6288) = RCT(6288)*V(4799) - A(6289) = RCT(6289)*V(124)*V(5250) - A(6290) = RCT(6290)*V(2499)*V(5250) - A(6291) = RCT(6291)*V(2499) - A(6292) = RCT(6292)*V(2499) - A(6293) = RCT(6293)*V(2789) - A(6294) = RCT(6294)*V(1555)*V(5250) - A(6295) = RCT(6295)*V(1555) - A(6296) = RCT(6296)*V(4402)*V(5253) - A(6297) = RCT(6297)*V(4402)*V(5258) - A(6298) = RCT(6298)*V(676) - A(6299) = RCT(6299)*V(5103)*V(5258) - A(6300) = RCT(6300)*V(5103)*V(5258) - A(6301) = RCT(6301)*V(5103)*V(5250) - A(6302) = RCT(6302)*V(5103) - A(6303) = RCT(6303)*V(5103) - A(6304) = RCT(6304)*V(1481)*V(5250) - A(6305) = RCT(6305)*V(1481) - A(6306) = RCT(6306)*V(1254)*V(5250) - A(6307) = RCT(6307)*V(1254) - A(6308) = RCT(6308)*V(2632)*V(5250) - A(6309) = RCT(6309)*V(2632) - A(6310) = RCT(6310)*V(1161)*V(5250) - A(6311) = RCT(6311)*V(1161) - A(6312) = RCT(6312)*V(3271)*V(5250) - A(6313) = RCT(6313)*V(3271) - A(6314) = RCT(6314)*V(3570) - A(6315) = RCT(6315)*V(3570) - A(6316) = RCT(6316)*V(3345)*V(5250) - A(6317) = RCT(6317)*V(3345) - A(6318) = RCT(6318)*V(811)*V(5250) - A(6319) = RCT(6319)*V(811) - A(6320) = RCT(6320)*V(3451)*V(5250) - A(6321) = RCT(6321)*V(3451) - A(6322) = RCT(6322)*V(3451) - A(6323) = RCT(6323)*V(3451) - A(6324) = RCT(6324)*V(2287) - A(6325) = RCT(6325)*V(1857)*V(5250) - A(6326) = RCT(6326)*V(1857) - A(6327) = RCT(6327)*V(1857) - A(6328) = RCT(6328)*V(3279)*V(5250) - A(6329) = RCT(6329)*V(3279) - A(6330) = RCT(6330)*V(3279) - A(6331) = RCT(6331)*V(2563) - A(6332) = RCT(6332)*V(1554)*V(5250) - A(6333) = RCT(6333)*V(1554) - A(6334) = RCT(6334)*V(3098)*V(5256) - A(6335) = RCT(6335)*V(3098)*V(5250) - A(6336) = RCT(6336)*V(4085)*V(5255) - A(6337) = RCT(6337)*V(4085)*V(5252) - A(6338) = RCT(6338)*V(4085)*V(5256) - A(6339) = RCT(6339)*V(4085) - A(6340) = RCT(6340)*V(932)*V(5250) - A(6341) = RCT(6341)*V(932) - A(6342) = RCT(6342)*V(4533) - A(6343) = RCT(6343)*V(4533) - A(6344) = RCT(6344)*V(111)*V(5250) - A(6345) = RCT(6345)*V(4499)*V(5253) - A(6346) = RCT(6346)*V(4499)*V(5258) - A(6347) = RCT(6347)*V(560) - A(6348) = RCT(6348)*V(4070)*V(5255) - A(6349) = RCT(6349)*V(4070)*V(5252) - A(6350) = RCT(6350)*V(4070)*V(5256) - A(6351) = RCT(6351)*V(4070) - A(6352) = RCT(6352)*V(4070) - A(6353) = RCT(6353)*V(4070) - A(6354) = RCT(6354)*V(5141)*V(5256) - A(6355) = RCT(6355)*V(5141)*V(5258) - A(6356) = RCT(6356)*V(5141)*V(5258) - A(6357) = RCT(6357)*V(5141)*V(5250) - A(6358) = RCT(6358)*V(5141)*V(5250) - A(6359) = RCT(6359)*V(5141) - A(6360) = RCT(6360)*V(5141) - A(6361) = RCT(6361)*V(4793)*V(5256) - A(6362) = RCT(6362)*V(4793)*V(5258) - A(6363) = RCT(6363)*V(4793)*V(5250) - A(6364) = RCT(6364)*V(1330)*V(5250) - A(6365) = RCT(6365)*V(1330) - A(6366) = RCT(6366)*V(1299)*V(5250) - A(6367) = RCT(6367)*V(1299) - A(6368) = RCT(6368)*V(2948)*V(5250) - A(6369) = RCT(6369)*V(2948) - A(6370) = RCT(6370)*V(947)*V(5250) - A(6371) = RCT(6371)*V(947) - A(6372) = RCT(6372)*V(3581) - A(6373) = RCT(6373)*V(3581) - A(6374) = RCT(6374)*V(3457)*V(5250) - A(6375) = RCT(6375)*V(3457) - A(6376) = RCT(6376)*V(475)*V(5250) - A(6377) = RCT(6377)*V(475) - A(6378) = RCT(6378)*V(3702)*V(5250) - A(6379) = RCT(6379)*V(3702) - A(6380) = RCT(6380)*V(3702) - A(6381) = RCT(6381)*V(3702) - A(6382) = RCT(6382)*V(623) - A(6383) = RCT(6383)*V(1665)*V(5250) - A(6384) = RCT(6384)*V(1665) - A(6385) = RCT(6385)*V(3262)*V(5250) - A(6386) = RCT(6386)*V(3262) - A(6387) = RCT(6387)*V(3295)*V(5250) - A(6388) = RCT(6388)*V(3295) - A(6389) = RCT(6389)*V(3295) - A(6390) = RCT(6390)*V(2728) - A(6391) = RCT(6391)*V(1594)*V(5250) - A(6392) = RCT(6392)*V(1594) - A(6393) = RCT(6393)*V(982)*V(5250) - A(6394) = RCT(6394)*V(982) - A(6395) = RCT(6395)*V(3296) - A(6396) = RCT(6396)*V(18)*V(5250) - A(6397) = RCT(6397)*V(3810)*V(5255) - A(6398) = RCT(6398)*V(3810)*V(5252) - A(6399) = RCT(6399)*V(3810)*V(5256) - A(6400) = RCT(6400)*V(3810) - A(6401) = RCT(6401)*V(3810) - A(6402) = RCT(6402)*V(3810) - A(6403) = RCT(6403)*V(4051)*V(5255) - A(6404) = RCT(6404)*V(4051)*V(5255) - A(6405) = RCT(6405)*V(4051)*V(5252) - A(6406) = RCT(6406)*V(4051)*V(5253) - A(6407) = RCT(6407)*V(4051)*V(5256) - A(6408) = RCT(6408)*V(4051) - A(6409) = RCT(6409)*V(3235)*V(5250) - A(6410) = RCT(6410)*V(3235) - A(6411) = RCT(6411)*V(3235) - A(6412) = RCT(6412)*V(2732) - A(6413) = RCT(6413)*V(1729)*V(5250) - A(6414) = RCT(6414)*V(1729) - A(6415) = RCT(6415)*V(1396)*V(5250) - A(6416) = RCT(6416)*V(1396) - A(6417) = RCT(6417)*V(3283) - A(6418) = RCT(6418)*V(74)*V(5250) - A(6419) = RCT(6419)*V(4168)*V(5255) - A(6420) = RCT(6420)*V(4168)*V(5255) - A(6421) = RCT(6421)*V(4168)*V(5252) - A(6422) = RCT(6422)*V(4168)*V(5253) - A(6423) = RCT(6423)*V(4168)*V(5256) - A(6424) = RCT(6424)*V(4168) - A(6425) = RCT(6425)*V(898)*V(5250) - A(6426) = RCT(6426)*V(898) - A(6427) = RCT(6427)*V(1274)*V(5250) - A(6428) = RCT(6428)*V(1274) - A(6429) = RCT(6429)*V(2650)*V(5250) - A(6430) = RCT(6430)*V(2650) - A(6431) = RCT(6431)*V(4628)*V(5255) - A(6432) = RCT(6432)*V(4628)*V(5255) - A(6433) = RCT(6433)*V(4628)*V(5255) - A(6434) = RCT(6434)*V(4628)*V(5252) - A(6435) = RCT(6435)*V(4628)*V(5253) - A(6436) = RCT(6436)*V(4628)*V(5256) - A(6437) = RCT(6437)*V(4628) - A(6438) = RCT(6438)*V(4628) - A(6439) = RCT(6439)*V(4277)*V(5255) - A(6440) = RCT(6440)*V(4277)*V(5252) - A(6441) = RCT(6441)*V(4277)*V(5256) - A(6442) = RCT(6442)*V(4277) - A(6443) = RCT(6443)*V(4277) - A(6444) = RCT(6444)*V(4787)*V(5255) - A(6445) = RCT(6445)*V(4787)*V(5252) - A(6446) = RCT(6446)*V(4787)*V(5256) - A(6447) = RCT(6447)*V(4787) - A(6448) = RCT(6448)*V(4787) - A(6449) = RCT(6449)*V(4787) - A(6450) = RCT(6450)*V(914)*V(5250) - A(6451) = RCT(6451)*V(914) - A(6452) = RCT(6452)*V(3600) - A(6453) = RCT(6453)*V(3600) - A(6454) = RCT(6454)*V(3460)*V(5250) - A(6455) = RCT(6455)*V(3460) - A(6456) = RCT(6456)*V(374)*V(5250) - A(6457) = RCT(6457)*V(374) - A(6458) = RCT(6458)*V(2137)*V(5250) - A(6459) = RCT(6459)*V(2137) - A(6460) = RCT(6460)*V(2137) - A(6461) = RCT(6461)*V(589) - A(6462) = RCT(6462)*V(1576)*V(5250) - A(6463) = RCT(6463)*V(1576) - A(6464) = RCT(6464)*V(3200)*V(5250) - A(6465) = RCT(6465)*V(3200) - A(6466) = RCT(6466)*V(4589)*V(5255) - A(6467) = RCT(6467)*V(4589)*V(5252) - A(6468) = RCT(6468)*V(4589)*V(5256) - A(6469) = RCT(6469)*V(4589) - A(6470) = RCT(6470)*V(4589) - A(6471) = RCT(6471)*V(4589) - A(6472) = RCT(6472)*V(4516)*V(5255) - A(6473) = RCT(6473)*V(4516)*V(5255) - A(6474) = RCT(6474)*V(4516)*V(5255) - A(6475) = RCT(6475)*V(4516)*V(5252) - A(6476) = RCT(6476)*V(4516)*V(5253) - A(6477) = RCT(6477)*V(4516)*V(5256) - A(6478) = RCT(6478)*V(4516) - A(6479) = RCT(6479)*V(4516) - A(6480) = RCT(6480)*V(2481) - A(6481) = RCT(6481)*V(2481) - A(6482) = RCT(6482)*V(2481) - A(6483) = RCT(6483)*V(2481) - A(6484) = RCT(6484)*V(4732)*V(5255) - A(6485) = RCT(6485)*V(4732)*V(5252) - A(6486) = RCT(6486)*V(4732)*V(5256) - A(6487) = RCT(6487)*V(4732) - A(6488) = RCT(6488)*V(4732) - A(6489) = RCT(6489)*V(4732) - A(6490) = RCT(6490)*V(4414)*V(5255) - A(6491) = RCT(6491)*V(4414)*V(5255) - A(6492) = RCT(6492)*V(4414)*V(5255) - A(6493) = RCT(6493)*V(4414)*V(5252) - A(6494) = RCT(6494)*V(4414)*V(5253) - A(6495) = RCT(6495)*V(4414)*V(5256) - A(6496) = RCT(6496)*V(4414) - A(6497) = RCT(6497)*V(4414) - A(6498) = RCT(6498)*V(1642) - A(6499) = RCT(6499)*V(1642) - A(6500) = RCT(6500)*V(1642) - A(6501) = RCT(6501)*V(1642) - A(6502) = RCT(6502)*V(4159)*V(5255) - A(6503) = RCT(6503)*V(4159)*V(5252) - A(6504) = RCT(6504)*V(4159)*V(5252) - A(6505) = RCT(6505)*V(4159)*V(5256) - A(6506) = RCT(6506)*V(4159) - A(6507) = RCT(6507)*V(4159) - A(6508) = RCT(6508)*V(4159) - A(6509) = RCT(6509)*V(2258) - A(6510) = RCT(6510)*V(2258) - A(6511) = RCT(6511)*V(2258) - A(6512) = RCT(6512)*V(2258) - A(6513) = RCT(6513)*V(4578)*V(5255) - A(6514) = RCT(6514)*V(4578)*V(5252) - A(6515) = RCT(6515)*V(4578)*V(5252) - A(6516) = RCT(6516)*V(4578)*V(5256) - A(6517) = RCT(6517)*V(4578) - A(6518) = RCT(6518)*V(4578) - A(6519) = RCT(6519)*V(4578) - A(6520) = RCT(6520)*V(4341)*V(5255) - A(6521) = RCT(6521)*V(4341)*V(5252) - A(6522) = RCT(6522)*V(4341)*V(5256) - A(6523) = RCT(6523)*V(4341) - A(6524) = RCT(6524)*V(4341) - A(6525) = RCT(6525)*V(4341) - A(6526) = RCT(6526)*V(4259)*V(5255) - A(6527) = RCT(6527)*V(4259)*V(5255) - A(6528) = RCT(6528)*V(4259)*V(5252) - A(6529) = RCT(6529)*V(4259)*V(5253) - A(6530) = RCT(6530)*V(4259)*V(5256) - A(6531) = RCT(6531)*V(4259) - A(6532) = RCT(6532)*V(1661) - A(6533) = RCT(6533)*V(2081) - A(6534) = RCT(6534)*V(2081) - A(6535) = RCT(6535)*V(563) - A(6536) = RCT(6536)*V(563) - A(6537) = RCT(6537)*V(5015)*V(5255) - A(6538) = RCT(6538)*V(5015)*V(5252) - A(6539) = RCT(6539)*V(5015)*V(5252) - A(6540) = RCT(6540)*V(5015)*V(5256) - A(6541) = RCT(6541)*V(5015) - A(6542) = RCT(6542)*V(5015) - A(6543) = RCT(6543)*V(5015) - A(6544) = RCT(6544)*V(4436)*V(5255) - A(6545) = RCT(6545)*V(4436)*V(5255) - A(6546) = RCT(6546)*V(4436)*V(5255) - A(6547) = RCT(6547)*V(4436)*V(5252) - A(6548) = RCT(6548)*V(4436)*V(5253) - A(6549) = RCT(6549)*V(4436)*V(5256) - A(6550) = RCT(6550)*V(4436) - A(6551) = RCT(6551)*V(4436) - A(6552) = RCT(6552)*V(3630) - A(6553) = RCT(6553)*V(3630) - A(6554) = RCT(6554)*V(529) - A(6555) = RCT(6555)*V(529) - A(6556) = RCT(6556)*V(3939)*V(5255) - A(6557) = RCT(6557)*V(3939)*V(5252) - A(6558) = RCT(6558)*V(3939)*V(5256) - A(6559) = RCT(6559)*V(3939) - A(6560) = RCT(6560)*V(3939) - A(6561) = RCT(6561)*V(1289) - A(6562) = RCT(6562)*V(1289)*V(5250) - A(6563) = RCT(6563)*V(4958) - A(6564) = RCT(6564)*V(4958)*V(5250) - A(6565) = RCT(6565)*V(3234) - A(6566) = RCT(6566)*V(4564) - A(6567) = RCT(6567)*V(4564)*V(5250) - A(6568) = RCT(6568)*V(5225)*V(5250) - A(6569) = RCT(6569)*V(5225)*V(5250) - A(6570) = RCT(6570)*V(5225) - A(6571) = RCT(6571)*V(3514) - A(6572) = RCT(6572)*V(3514)*V(5250) - A(6573) = RCT(6573)*V(533) - A(6574) = RCT(6574)*V(5080) - A(6575) = RCT(6575)*V(5080)*V(5250) - A(6576) = RCT(6576)*V(2497) - A(6577) = RCT(6577)*V(2497) - A(6578) = RCT(6578)*V(2497)*V(5250) - A(6579) = RCT(6579)*V(2497)*V(5250) - A(6580) = RCT(6580)*V(654) - A(6581) = RCT(6581)*V(3488)*V(5256) - A(6582) = RCT(6582)*V(3488)*V(5250) - A(6583) = RCT(6583)*V(3488) - A(6584) = RCT(6584)*V(4107) - A(6585) = RCT(6585)*V(4107)*V(5250) - A(6586) = RCT(6586)*V(4107)*V(5250) - A(6587) = RCT(6587)*V(4107)*V(5250) - A(6588) = RCT(6588)*V(2308) - A(6589) = RCT(6589)*V(2308) - A(6590) = RCT(6590)*V(2308) - A(6591) = RCT(6591)*V(5013) - A(6592) = RCT(6592)*V(5013)*V(5258) - A(6593) = RCT(6593)*V(5013)*V(5258) - A(6594) = RCT(6594)*V(5013)*V(5250) - A(6595) = RCT(6595)*V(4758)*V(5255) - A(6596) = RCT(6596)*V(4758)*V(5252) - A(6597) = RCT(6597)*V(4758)*V(5256) - A(6598) = RCT(6598)*V(4758) - A(6599) = RCT(6599)*V(4758) - A(6600) = RCT(6600)*V(4976)*V(5256) - A(6601) = RCT(6601)*V(4976)*V(5258) - A(6602) = RCT(6602)*V(4976)*V(5258) - A(6603) = RCT(6603)*V(4976)*V(5250) - A(6604) = RCT(6604)*V(4976)*V(5250) - A(6605) = RCT(6605)*V(4976)*V(5250) - A(6606) = RCT(6606)*V(4976) - A(6607) = RCT(6607)*V(4976) - A(6608) = RCT(6608)*V(5205) - A(6609) = RCT(6609)*V(5205) - A(6610) = RCT(6610)*V(5205)*V(5256) - A(6611) = RCT(6611)*V(5205)*V(5258) - A(6612) = RCT(6612)*V(5205)*V(5258) - A(6613) = RCT(6613)*V(5205)*V(5250) - A(6614) = RCT(6614)*V(5205)*V(5250) - A(6615) = RCT(6615)*V(5205)*V(5250) - A(6616) = RCT(6616)*V(5205)*V(5250) - A(6617) = RCT(6617)*V(3413)*V(5250) - A(6618) = RCT(6618)*V(3413)*V(5250) - A(6619) = RCT(6619)*V(2252) - A(6620) = RCT(6620)*V(2252)*V(5250) - A(6621) = RCT(6621)*V(2252)*V(5250) - A(6622) = RCT(6622)*V(4615) - A(6623) = RCT(6623)*V(4615)*V(5258) - A(6624) = RCT(6624)*V(4615)*V(5258) - A(6625) = RCT(6625)*V(4615)*V(5250) - A(6626) = RCT(6626)*V(4615)*V(5250) - A(6627) = RCT(6627)*V(3241) - A(6628) = RCT(6628)*V(105)*V(5250) - A(6629) = RCT(6629)*V(4113) - A(6630) = RCT(6630)*V(4113)*V(5250) - A(6631) = RCT(6631)*V(4113)*V(5250) - A(6632) = RCT(6632)*V(4113)*V(5250) - A(6633) = RCT(6633)*V(2130) - A(6634) = RCT(6634)*V(2130) - A(6635) = RCT(6635)*V(2130) - A(6636) = RCT(6636)*V(4617)*V(5255) - A(6637) = RCT(6637)*V(4617)*V(5252) - A(6638) = RCT(6638)*V(4617)*V(5256) - A(6639) = RCT(6639)*V(4617) - A(6640) = RCT(6640)*V(4617) - A(6641) = RCT(6641)*V(5002)*V(5256) - A(6642) = RCT(6642)*V(5002)*V(5258) - A(6643) = RCT(6643)*V(5002)*V(5258) - A(6644) = RCT(6644)*V(5002)*V(5250) - A(6645) = RCT(6645)*V(5002)*V(5250) - A(6646) = RCT(6646)*V(5002)*V(5250) - A(6647) = RCT(6647)*V(5002) - A(6648) = RCT(6648)*V(5002) - A(6649) = RCT(6649)*V(5220) - A(6650) = RCT(6650)*V(5220) - A(6651) = RCT(6651)*V(5220)*V(5256) - A(6652) = RCT(6652)*V(5220)*V(5258) - A(6653) = RCT(6653)*V(5220)*V(5258) - A(6654) = RCT(6654)*V(5220)*V(5250) - A(6655) = RCT(6655)*V(5220)*V(5250) - A(6656) = RCT(6656)*V(5220)*V(5250) - A(6657) = RCT(6657)*V(5220)*V(5250) - A(6658) = RCT(6658)*V(2544) - A(6659) = RCT(6659)*V(2544)*V(5250) - A(6660) = RCT(6660)*V(2544)*V(5250) - A(6661) = RCT(6661)*V(2544)*V(5250) - A(6662) = RCT(6662)*V(4786) - A(6663) = RCT(6663)*V(4786)*V(5258) - A(6664) = RCT(6664)*V(4786)*V(5258) - A(6665) = RCT(6665)*V(4786)*V(5250) - A(6666) = RCT(6666)*V(3194) - A(6667) = RCT(6667)*V(3734) - A(6668) = RCT(6668)*V(3734)*V(5250) - A(6669) = RCT(6669)*V(5173)*V(5255) - A(6670) = RCT(6670)*V(5173)*V(5252) - A(6671) = RCT(6671)*V(5173)*V(5252) - A(6672) = RCT(6672)*V(5173)*V(5256) - A(6673) = RCT(6673)*V(5173) - A(6674) = RCT(6674)*V(5173) - A(6675) = RCT(6675)*V(558) - A(6676) = RCT(6676)*V(558) - A(6677) = RCT(6677)*V(4894)*V(5255) - A(6678) = RCT(6678)*V(4894)*V(5252) - A(6679) = RCT(6679)*V(4894)*V(5252) - A(6680) = RCT(6680)*V(4894)*V(5256) - A(6681) = RCT(6681)*V(4894) - A(6682) = RCT(6682)*V(4894) - A(6683) = RCT(6683)*V(4269)*V(5255) - A(6684) = RCT(6684)*V(4269)*V(5255) - A(6685) = RCT(6685)*V(4269)*V(5252) - A(6686) = RCT(6686)*V(4269)*V(5253) - A(6687) = RCT(6687)*V(4269)*V(5256) - A(6688) = RCT(6688)*V(4269) - A(6689) = RCT(6689)*V(1364)*V(5250) - A(6690) = RCT(6690)*V(1364) - A(6691) = RCT(6691)*V(3586) - A(6692) = RCT(6692)*V(3586) - A(6693) = RCT(6693)*V(4963)*V(5251) - A(6694) = RCT(6694)*V(4963)*V(5252) - A(6695) = RCT(6695)*V(4963)*V(5253) - A(6696) = RCT(6696)*V(4963)*V(5254) - A(6697) = RCT(6697)*V(4963) - A(6698) = RCT(6698)*V(4963) - A(6699) = RCT(6699)*V(873)*V(5250) - A(6700) = RCT(6700)*V(873) - A(6701) = RCT(6701)*V(2834)*V(5250) - A(6702) = RCT(6702)*V(2834) - A(6703) = RCT(6703)*V(3048) - A(6704) = RCT(6704)*V(1285)*V(5250) - A(6705) = RCT(6705)*V(1285) - A(6706) = RCT(6706)*V(2791)*V(5250) - A(6707) = RCT(6707)*V(2791) - A(6708) = RCT(6708)*V(1445)*V(5250) - A(6709) = RCT(6709)*V(1445) - A(6710) = RCT(6710)*V(1846)*V(5250) - A(6711) = RCT(6711)*V(1846) - A(6712) = RCT(6712)*V(1847) - A(6713) = RCT(6713)*V(1306)*V(5250) - A(6714) = RCT(6714)*V(1306) - A(6715) = RCT(6715)*V(2821) - A(6716) = RCT(6716)*V(981) - A(6717) = RCT(6717)*V(981)*V(5250) - A(6718) = RCT(6718)*V(2436) - A(6719) = RCT(6719)*V(2436)*V(5250) - A(6720) = RCT(6720)*V(2996) - A(6721) = RCT(6721)*V(9)*V(5250) - A(6722) = RCT(6722)*V(4109) - A(6723) = RCT(6723)*V(4109)*V(5250) - A(6724) = RCT(6724)*V(1102)*V(5250) - A(6725) = RCT(6725)*V(1102) - A(6726) = RCT(6726)*V(1909)*V(5250) - A(6727) = RCT(6727)*V(1909) - A(6728) = RCT(6728)*V(1910) - A(6729) = RCT(6729)*V(194) - A(6730) = RCT(6730)*V(4060)*V(5255) - A(6731) = RCT(6731)*V(4060)*V(5252) - A(6732) = RCT(6732)*V(4060)*V(5252) - A(6733) = RCT(6733)*V(4060)*V(5256) - A(6734) = RCT(6734)*V(4060) - A(6735) = RCT(6735)*V(4060) - A(6736) = RCT(6736)*V(4060) - A(6737) = RCT(6737)*V(3676)*V(5255) - A(6738) = RCT(6738)*V(3676)*V(5252) - A(6739) = RCT(6739)*V(3676)*V(5252) - A(6740) = RCT(6740)*V(3676)*V(5256) - A(6741) = RCT(6741)*V(3676) - A(6742) = RCT(6742)*V(3676) - A(6743) = RCT(6743)*V(3676) - A(6744) = RCT(6744)*V(4595)*V(5255) - A(6745) = RCT(6745)*V(4595)*V(5252) - A(6746) = RCT(6746)*V(4595)*V(5256) - A(6747) = RCT(6747)*V(4595) - A(6748) = RCT(6748)*V(4595) - A(6749) = RCT(6749)*V(4595) - A(6750) = RCT(6750)*V(4127)*V(5255) - A(6751) = RCT(6751)*V(4127)*V(5255) - A(6752) = RCT(6752)*V(4127)*V(5252) - A(6753) = RCT(6753)*V(4127)*V(5252) - A(6754) = RCT(6754)*V(4127)*V(5256) - A(6755) = RCT(6755)*V(4127) - A(6756) = RCT(6756)*V(4127) - A(6757) = RCT(6757)*V(4127) - A(6758) = RCT(6758)*V(3619)*V(5250) - A(6759) = RCT(6759)*V(3619)*V(5250) - A(6760) = RCT(6760)*V(4219)*V(5255) - A(6761) = RCT(6761)*V(4219)*V(5255) - A(6762) = RCT(6762)*V(4219)*V(5252) - A(6763) = RCT(6763)*V(4219)*V(5252) - A(6764) = RCT(6764)*V(4219)*V(5256) - A(6765) = RCT(6765)*V(4219) - A(6766) = RCT(6766)*V(4219) - A(6767) = RCT(6767)*V(4219) - A(6768) = RCT(6768)*V(4368)*V(5255) - A(6769) = RCT(6769)*V(4368)*V(5255) - A(6770) = RCT(6770)*V(4368)*V(5252) - A(6771) = RCT(6771)*V(4368)*V(5252) - A(6772) = RCT(6772)*V(4368)*V(5256) - A(6773) = RCT(6773)*V(4368) - A(6774) = RCT(6774)*V(4368) - A(6775) = RCT(6775)*V(4368) - A(6776) = RCT(6776)*V(4610)*V(5255) - A(6777) = RCT(6777)*V(4610)*V(5255) - A(6778) = RCT(6778)*V(4610)*V(5252) - A(6779) = RCT(6779)*V(4610)*V(5252) - A(6780) = RCT(6780)*V(4610)*V(5256) - A(6781) = RCT(6781)*V(4610) - A(6782) = RCT(6782)*V(4610) - A(6783) = RCT(6783)*V(4610) - A(6784) = RCT(6784)*V(4611)*V(5255) - A(6785) = RCT(6785)*V(4611)*V(5255) - A(6786) = RCT(6786)*V(4611)*V(5255) - A(6787) = RCT(6787)*V(4611)*V(5252) - A(6788) = RCT(6788)*V(4611)*V(5253) - A(6789) = RCT(6789)*V(4611)*V(5256) - A(6790) = RCT(6790)*V(4611) - A(6791) = RCT(6791)*V(4611) - A(6792) = RCT(6792)*V(4730)*V(5255) - A(6793) = RCT(6793)*V(4730)*V(5252) - A(6794) = RCT(6794)*V(4730)*V(5256) - A(6795) = RCT(6795)*V(4730) - A(6796) = RCT(6796)*V(4730) - A(6797) = RCT(6797)*V(4730) - A(6798) = RCT(6798)*V(5197)*V(5255) - A(6799) = RCT(6799)*V(5197)*V(5252) - A(6800) = RCT(6800)*V(5197)*V(5256) - A(6801) = RCT(6801)*V(5197) - A(6802) = RCT(6802)*V(5197) - A(6803) = RCT(6803)*V(5197) - A(6804) = RCT(6804)*V(4885)*V(5255) - A(6805) = RCT(6805)*V(4885)*V(5252) - A(6806) = RCT(6806)*V(4885)*V(5256) - A(6807) = RCT(6807)*V(4885) - A(6808) = RCT(6808)*V(4885) - A(6809) = RCT(6809)*V(4885) - A(6810) = RCT(6810)*V(4991)*V(5255) - A(6811) = RCT(6811)*V(4991)*V(5252) - A(6812) = RCT(6812)*V(4991)*V(5256) - A(6813) = RCT(6813)*V(4991) - A(6814) = RCT(6814)*V(4169)*V(5255) - A(6815) = RCT(6815)*V(4169)*V(5252) - A(6816) = RCT(6816)*V(4169)*V(5256) - A(6817) = RCT(6817)*V(4169) - A(6818) = RCT(6818)*V(4169) - A(6819) = RCT(6819)*V(4169) - A(6820) = RCT(6820)*V(4126)*V(5255) - A(6821) = RCT(6821)*V(4126)*V(5252) - A(6822) = RCT(6822)*V(4126)*V(5256) - A(6823) = RCT(6823)*V(4126) - A(6824) = RCT(6824)*V(4126) - A(6825) = RCT(6825)*V(4126) - A(6826) = RCT(6826)*V(5117)*V(5255) - A(6827) = RCT(6827)*V(5117)*V(5255) - A(6828) = RCT(6828)*V(5117)*V(5255) - A(6829) = RCT(6829)*V(5117)*V(5252) - A(6830) = RCT(6830)*V(5117)*V(5253) - A(6831) = RCT(6831)*V(5117)*V(5256) - A(6832) = RCT(6832)*V(5117) - A(6833) = RCT(6833)*V(5117) - A(6834) = RCT(6834)*V(3926)*V(5255) - A(6835) = RCT(6835)*V(3926)*V(5252) - A(6836) = RCT(6836)*V(3926)*V(5256) - A(6837) = RCT(6837)*V(3926) - A(6838) = RCT(6838)*V(4095)*V(5255) - A(6839) = RCT(6839)*V(4095)*V(5252) - A(6840) = RCT(6840)*V(4095)*V(5256) - A(6841) = RCT(6841)*V(4095) - A(6842) = RCT(6842)*V(4446)*V(5255) - A(6843) = RCT(6843)*V(4446)*V(5252) - A(6844) = RCT(6844)*V(4446)*V(5256) - A(6845) = RCT(6845)*V(4446) - A(6846) = RCT(6846)*V(4446) - A(6847) = RCT(6847)*V(4446) - A(6848) = RCT(6848)*V(5150)*V(5255) - A(6849) = RCT(6849)*V(5150)*V(5252) - A(6850) = RCT(6850)*V(5150)*V(5252) - A(6851) = RCT(6851)*V(5150)*V(5256) - A(6852) = RCT(6852)*V(5150) - A(6853) = RCT(6853)*V(5150) - A(6854) = RCT(6854)*V(5150) - A(6855) = RCT(6855)*V(4646)*V(5255) - A(6856) = RCT(6856)*V(4646)*V(5252) - A(6857) = RCT(6857)*V(4646)*V(5252) - A(6858) = RCT(6858)*V(4646)*V(5256) - A(6859) = RCT(6859)*V(4646) - A(6860) = RCT(6860)*V(4646) - A(6861) = RCT(6861)*V(4646) - A(6862) = RCT(6862)*V(4871)*V(5255) - A(6863) = RCT(6863)*V(4871)*V(5252) - A(6864) = RCT(6864)*V(4871)*V(5256) - A(6865) = RCT(6865)*V(4871) - A(6866) = RCT(6866)*V(4827)*V(5255) - A(6867) = RCT(6867)*V(4827)*V(5252) - A(6868) = RCT(6868)*V(4827)*V(5256) - A(6869) = RCT(6869)*V(4827) - A(6870) = RCT(6870)*V(4827) - A(6871) = RCT(6871)*V(4827) - A(6872) = RCT(6872)*V(4118)*V(5255) - A(6873) = RCT(6873)*V(4118)*V(5252) - A(6874) = RCT(6874)*V(4118)*V(5256) - A(6875) = RCT(6875)*V(4118) - A(6876) = RCT(6876)*V(4365)*V(5255) - A(6877) = RCT(6877)*V(4365)*V(5252) - A(6878) = RCT(6878)*V(4365)*V(5256) - A(6879) = RCT(6879)*V(4365) - A(6880) = RCT(6880)*V(4365) - A(6881) = RCT(6881)*V(4365) - A(6882) = RCT(6882)*V(4627)*V(5255) - A(6883) = RCT(6883)*V(4627)*V(5255) - A(6884) = RCT(6884)*V(4627)*V(5252) - A(6885) = RCT(6885)*V(4627)*V(5253) - A(6886) = RCT(6886)*V(4627)*V(5256) - A(6887) = RCT(6887)*V(4627) - A(6888) = RCT(6888)*V(4318)*V(5255) - A(6889) = RCT(6889)*V(4318)*V(5252) - A(6890) = RCT(6890)*V(4318)*V(5256) - A(6891) = RCT(6891)*V(4318) - A(6892) = RCT(6892)*V(4170)*V(5255) - A(6893) = RCT(6893)*V(4170)*V(5252) - A(6894) = RCT(6894)*V(4170)*V(5256) - A(6895) = RCT(6895)*V(4170) - A(6896) = RCT(6896)*V(4105)*V(5255) - A(6897) = RCT(6897)*V(4105)*V(5252) - A(6898) = RCT(6898)*V(4105)*V(5256) - A(6899) = RCT(6899)*V(4105) - A(6900) = RCT(6900)*V(4105) - A(6901) = RCT(6901)*V(4105) - A(6902) = RCT(6902)*V(4836)*V(5255) - A(6903) = RCT(6903)*V(4836)*V(5255) - A(6904) = RCT(6904)*V(4836)*V(5255) - A(6905) = RCT(6905)*V(4836)*V(5252) - A(6906) = RCT(6906)*V(4836)*V(5253) - A(6907) = RCT(6907)*V(4836)*V(5256) - A(6908) = RCT(6908)*V(4836) - A(6909) = RCT(6909)*V(4836) - A(6910) = RCT(6910)*V(4158)*V(5255) - A(6911) = RCT(6911)*V(4158)*V(5252) - A(6912) = RCT(6912)*V(4158)*V(5256) - A(6913) = RCT(6913)*V(4158) - A(6914) = RCT(6914)*V(4158) - A(6915) = RCT(6915)*V(4158) - A(6916) = RCT(6916)*V(4765)*V(5255) - A(6917) = RCT(6917)*V(4765)*V(5252) - A(6918) = RCT(6918)*V(4765)*V(5256) - A(6919) = RCT(6919)*V(4765) - A(6920) = RCT(6920)*V(4765) - A(6921) = RCT(6921)*V(4765) - A(6922) = RCT(6922)*V(1113)*V(5250) - A(6923) = RCT(6923)*V(5213)*V(5256) - A(6924) = RCT(6924)*V(5213)*V(5250) - A(6925) = RCT(6925)*V(5213)*V(5250) - A(6926) = RCT(6926)*V(5213) - A(6927) = RCT(6927)*V(3745)*V(5255) - A(6928) = RCT(6928)*V(3745)*V(5252) - A(6929) = RCT(6929)*V(3745)*V(5256) - A(6930) = RCT(6930)*V(3745) - A(6931) = RCT(6931)*V(5029)*V(5255) - A(6932) = RCT(6932)*V(5029)*V(5255) - A(6933) = RCT(6933)*V(5029)*V(5255) - A(6934) = RCT(6934)*V(5029)*V(5252) - A(6935) = RCT(6935)*V(5029)*V(5253) - A(6936) = RCT(6936)*V(5029)*V(5256) - A(6937) = RCT(6937)*V(5029) - A(6938) = RCT(6938)*V(5029) - A(6939) = RCT(6939)*V(1007)*V(5250) - A(6940) = RCT(6940)*V(1007) - A(6941) = RCT(6941)*V(370) - A(6942) = RCT(6942)*V(369)*V(5250) - A(6943) = RCT(6943)*V(369) - A(6944) = RCT(6944)*V(2540)*V(5250) - A(6945) = RCT(6945)*V(2540) - A(6946) = RCT(6946)*V(2540) - A(6947) = RCT(6947)*V(2323) - A(6948) = RCT(6948)*V(2323) - A(6949) = RCT(6949)*V(3115)*V(5250) - A(6950) = RCT(6950)*V(3115) - A(6951) = RCT(6951)*V(3559)*V(5250) - A(6952) = RCT(6952)*V(3559) - A(6953) = RCT(6953)*V(3559) - A(6954) = RCT(6954)*V(2140)*V(5250) - A(6955) = RCT(6955)*V(2140) - A(6956) = RCT(6956)*V(2002)*V(5250) - A(6957) = RCT(6957)*V(2002)*V(5250) - A(6958) = RCT(6958)*V(2002) - A(6959) = RCT(6959)*V(2313)*V(5250) - A(6960) = RCT(6960)*V(2313) - A(6961) = RCT(6961)*V(271) - A(6962) = RCT(6962)*V(599)*V(5250) - A(6963) = RCT(6963)*V(599) - A(6964) = RCT(6964)*V(4914)*V(5256) - A(6965) = RCT(6965)*V(4914)*V(5250) - A(6966) = RCT(6966)*V(4914) - A(6967) = RCT(6967)*V(2480)*V(5250) - A(6968) = RCT(6968)*V(4089)*V(5255) - A(6969) = RCT(6969)*V(4089)*V(5252) - A(6970) = RCT(6970)*V(4089)*V(5252) - A(6971) = RCT(6971)*V(4089)*V(5256) - A(6972) = RCT(6972)*V(4089) - A(6973) = RCT(6973)*V(4089) - A(6974) = RCT(6974)*V(4089) - A(6975) = RCT(6975)*V(4266)*V(5255) - A(6976) = RCT(6976)*V(4266)*V(5255) - A(6977) = RCT(6977)*V(4266)*V(5252) - A(6978) = RCT(6978)*V(4266)*V(5253) - A(6979) = RCT(6979)*V(4266)*V(5256) - A(6980) = RCT(6980)*V(4266) - A(6981) = RCT(6981)*V(904)*V(5250) - A(6982) = RCT(6982)*V(904) - A(6983) = RCT(6983)*V(2296)*V(5250) - A(6984) = RCT(6984)*V(2296) - A(6985) = RCT(6985)*V(3398) - A(6986) = RCT(6986)*V(3398) - A(6987) = RCT(6987)*V(1604)*V(5250) - A(6988) = RCT(6988)*V(336)*V(5250) - A(6989) = RCT(6989)*V(653)*V(5250) - A(6990) = RCT(6990)*V(653) - A(6991) = RCT(6991)*V(840)*V(5250) - A(6992) = RCT(6992)*V(840) - A(6993) = RCT(6993)*V(176) - A(6994) = RCT(6994)*V(652)*V(5250) - A(6995) = RCT(6995)*V(395)*V(5250) - A(6996) = RCT(6996)*V(1470)*V(5250) - A(6997) = RCT(6997)*V(1470) - A(6998) = RCT(6998)*V(3034)*V(5250) - A(6999) = RCT(6999)*V(3034) - A(7000) = RCT(7000)*V(254) - A(7001) = RCT(7001)*V(28)*V(5250) - A(7002) = RCT(7002)*V(405)*V(5250) - A(7003) = RCT(7003)*V(405) - A(7004) = RCT(7004)*V(145) - A(7005) = RCT(7005)*V(404)*V(5250) - A(7006) = RCT(7006)*V(403)*V(5250) - A(7007) = RCT(7007)*V(4078)*V(5255) - A(7008) = RCT(7008)*V(4078)*V(5252) - A(7009) = RCT(7009)*V(4078)*V(5252) - A(7010) = RCT(7010)*V(4078)*V(5256) - A(7011) = RCT(7011)*V(4078) - A(7012) = RCT(7012)*V(4078) - A(7013) = RCT(7013)*V(4078) - A(7014) = RCT(7014)*V(4301)*V(5255) - A(7015) = RCT(7015)*V(4301)*V(5255) - A(7016) = RCT(7016)*V(4301)*V(5252) - A(7017) = RCT(7017)*V(4301)*V(5253) - A(7018) = RCT(7018)*V(4301)*V(5256) - A(7019) = RCT(7019)*V(4301) - A(7020) = RCT(7020)*V(5169)*V(5256) - A(7021) = RCT(7021)*V(5169)*V(5256) - A(7022) = RCT(7022)*V(5169)*V(5258) - A(7023) = RCT(7023)*V(5169)*V(5258) - A(7024) = RCT(7024)*V(5169)*V(5250) - A(7025) = RCT(7025)*V(5169)*V(5250) - A(7026) = RCT(7026)*V(5169) - A(7027) = RCT(7027)*V(2362)*V(5250) - A(7028) = RCT(7028)*V(2362) - A(7029) = RCT(7029)*V(2362) - A(7030) = RCT(7030)*V(740) - A(7031) = RCT(7031)*V(2231)*V(5250) - A(7032) = RCT(7032)*V(2231) - A(7033) = RCT(7033)*V(1585)*V(5250) - A(7034) = RCT(7034)*V(1585) - A(7035) = RCT(7035)*V(2727)*V(5250) - A(7036) = RCT(7036)*V(2727) - A(7037) = RCT(7037)*V(2727) - A(7038) = RCT(7038)*V(708) - A(7039) = RCT(7039)*V(1858)*V(5250) - A(7040) = RCT(7040)*V(1858) - A(7041) = RCT(7041)*V(1718)*V(5250) - A(7042) = RCT(7042)*V(1718) - A(7043) = RCT(7043)*V(1205)*V(5250) - A(7044) = RCT(7044)*V(1205) - A(7045) = RCT(7045)*V(2061)*V(5250) - A(7046) = RCT(7046)*V(2061) - A(7047) = RCT(7047)*V(199) - A(7048) = RCT(7048)*V(401)*V(5250) - A(7049) = RCT(7049)*V(5212)*V(5250) - A(7050) = RCT(7050)*V(5212)*V(5250) - A(7051) = RCT(7051)*V(5212) - A(7052) = RCT(7052)*V(709)*V(5250) - A(7053) = RCT(7053)*V(4847)*V(5255) - A(7054) = RCT(7054)*V(4847)*V(5255) - A(7055) = RCT(7055)*V(4847)*V(5255) - A(7056) = RCT(7056)*V(4847)*V(5252) - A(7057) = RCT(7057)*V(4847)*V(5253) - A(7058) = RCT(7058)*V(4847)*V(5256) - A(7059) = RCT(7059)*V(4847) - A(7060) = RCT(7060)*V(4847) - A(7061) = RCT(7061)*V(5175)*V(5256) - A(7062) = RCT(7062)*V(5175)*V(5258) - A(7063) = RCT(7063)*V(5175)*V(5258) - A(7064) = RCT(7064)*V(5175)*V(5250) - A(7065) = RCT(7065)*V(5175)*V(5250) - A(7066) = RCT(7066)*V(5099)*V(5255) - A(7067) = RCT(7067)*V(5099)*V(5255) - A(7068) = RCT(7068)*V(5099)*V(5255) - A(7069) = RCT(7069)*V(5099)*V(5252) - A(7070) = RCT(7070)*V(5099)*V(5253) - A(7071) = RCT(7071)*V(5099)*V(5256) - A(7072) = RCT(7072)*V(5099) - A(7073) = RCT(7073)*V(5099) - A(7074) = RCT(7074)*V(3988)*V(5255) - A(7075) = RCT(7075)*V(3988)*V(5252) - A(7076) = RCT(7076)*V(3988)*V(5256) - A(7077) = RCT(7077)*V(3988) - A(7078) = RCT(7078)*V(3988) - A(7079) = RCT(7079)*V(236) - A(7080) = RCT(7080)*V(236) - A(7081) = RCT(7081)*V(5248)*V(5256) - A(7082) = RCT(7082)*V(5248)*V(5250) - A(7083) = RCT(7083)*V(5248)*V(5250) - A(7084) = RCT(7084)*V(5248)*V(5250) - A(7085) = RCT(7085)*V(5248)*V(5250) - A(7086) = RCT(7086)*V(5248)*V(5250) - A(7087) = RCT(7087)*V(5248) - A(7088) = RCT(7088)*V(3883)*V(5255) - A(7089) = RCT(7089)*V(3883)*V(5252) - A(7090) = RCT(7090)*V(3883)*V(5252) - A(7091) = RCT(7091)*V(3883)*V(5256) - A(7092) = RCT(7092)*V(3883) - A(7093) = RCT(7093)*V(3883) - A(7094) = RCT(7094)*V(3617)*V(5250) - A(7095) = RCT(7095)*V(4869)*V(5251) - A(7096) = RCT(7096)*V(4869)*V(5252) - A(7097) = RCT(7097)*V(4869)*V(5253) - A(7098) = RCT(7098)*V(4869)*V(5254) - A(7099) = RCT(7099)*V(4869) - A(7100) = RCT(7100)*V(4541)*V(5255) - A(7101) = RCT(7101)*V(4541)*V(5252) - A(7102) = RCT(7102)*V(4541)*V(5252) - A(7103) = RCT(7103)*V(4541)*V(5256) - A(7104) = RCT(7104)*V(4541) - A(7105) = RCT(7105)*V(4541) - A(7106) = RCT(7106)*V(3638)*V(5250) - A(7107) = RCT(7107)*V(362) - A(7108) = RCT(7108)*V(362) - A(7109) = RCT(7109)*V(3990)*V(5255) - A(7110) = RCT(7110)*V(3990)*V(5252) - A(7111) = RCT(7111)*V(3990)*V(5252) - A(7112) = RCT(7112)*V(3990)*V(5256) - A(7113) = RCT(7113)*V(3990) - A(7114) = RCT(7114)*V(3990) - A(7115) = RCT(7115)*V(2469)*V(5250) - A(7116) = RCT(7116)*V(2469) - A(7117) = RCT(7117)*V(2469) - A(7118) = RCT(7118)*V(770) - A(7119) = RCT(7119)*V(1834)*V(5250) - A(7120) = RCT(7120)*V(1834) - A(7121) = RCT(7121)*V(1611)*V(5250) - A(7122) = RCT(7122)*V(1611) - A(7123) = RCT(7123)*V(2836)*V(5250) - A(7124) = RCT(7124)*V(2836) - A(7125) = RCT(7125)*V(2836) - A(7126) = RCT(7126)*V(688) - A(7127) = RCT(7127)*V(1791)*V(5250) - A(7128) = RCT(7128)*V(1791) - A(7129) = RCT(7129)*V(1742)*V(5250) - A(7130) = RCT(7130)*V(1742) - A(7131) = RCT(7131)*V(243) - A(7132) = RCT(7132)*V(243) - A(7133) = RCT(7133)*V(3516)*V(5250) - A(7134) = RCT(7134)*V(4249)*V(5255) - A(7135) = RCT(7135)*V(4249)*V(5252) - A(7136) = RCT(7136)*V(4249)*V(5252) - A(7137) = RCT(7137)*V(4249)*V(5256) - A(7138) = RCT(7138)*V(4249) - A(7139) = RCT(7139)*V(4249) - A(7140) = RCT(7140)*V(1178)*V(5250) - A(7141) = RCT(7141)*V(1178) - A(7142) = RCT(7142)*V(1771)*V(5250) - A(7143) = RCT(7143)*V(1771) - A(7144) = RCT(7144)*V(156) - A(7145) = RCT(7145)*V(5207)*V(5256) - A(7146) = RCT(7146)*V(5207)*V(5256) - A(7147) = RCT(7147)*V(5207)*V(5258) - A(7148) = RCT(7148)*V(5207)*V(5258) - A(7149) = RCT(7149)*V(5207)*V(5250) - A(7150) = RCT(7150)*V(5207)*V(5250) - A(7151) = RCT(7151)*V(5207) - A(7152) = RCT(7152)*V(325)*V(5250) - A(7153) = RCT(7153)*V(3043)*V(5250) - A(7154) = RCT(7154)*V(3043) - A(7155) = RCT(7155)*V(3043) - A(7156) = RCT(7156)*V(2170) - A(7157) = RCT(7157)*V(2132)*V(5250) - A(7158) = RCT(7158)*V(2132) - A(7159) = RCT(7159)*V(1612)*V(5250) - A(7160) = RCT(7160)*V(1612) - A(7161) = RCT(7161)*V(1128)*V(5250) - A(7162) = RCT(7162)*V(1128) - A(7163) = RCT(7163)*V(2108)*V(5250) - A(7164) = RCT(7164)*V(2108) - A(7165) = RCT(7165)*V(172) - A(7166) = RCT(7166)*V(4183)*V(5250) - A(7167) = RCT(7167)*V(4183) - A(7168) = RCT(7168)*V(439)*V(5250) - A(7169) = RCT(7169)*V(5249)*V(5256) - A(7170) = RCT(7170)*V(5249)*V(5258) - A(7171) = RCT(7171)*V(5249)*V(5258) - A(7172) = RCT(7172)*V(5249)*V(5258) - A(7173) = RCT(7173)*V(5249)*V(5258) - A(7174) = RCT(7174)*V(5249)*V(5250) - A(7175) = RCT(7175)*V(5249)*V(5250) - A(7176) = RCT(7176)*V(237)*V(5250) - A(7177) = RCT(7177)*V(868) - A(7178) = RCT(7178)*V(868)*V(5250) - A(7179) = RCT(7179)*V(2825) - A(7180) = RCT(7180)*V(2825)*V(5250) - A(7181) = RCT(7181)*V(343)*V(5250) - A(7182) = RCT(7182)*V(1158) - A(7183) = RCT(7183)*V(1158)*V(5250) - A(7184) = RCT(7184)*V(2790) - A(7185) = RCT(7185)*V(2790)*V(5250) - A(7186) = RCT(7186)*V(1142) - A(7187) = RCT(7187)*V(1142)*V(5250) - A(7188) = RCT(7188)*V(2074) - A(7189) = RCT(7189)*V(2074)*V(5250) - A(7190) = RCT(7190)*V(2745) - A(7191) = RCT(7191)*V(498)*V(5250) - A(7192) = RCT(7192)*V(3602) - A(7193) = RCT(7193)*V(3602)*V(5250) - A(7194) = RCT(7194)*V(1545) - A(7195) = RCT(7195)*V(1545)*V(5250) - A(7196) = RCT(7196)*V(2880) - A(7197) = RCT(7197)*V(2880)*V(5250) - A(7198) = RCT(7198)*V(2693) - A(7199) = RCT(7199)*V(2693)*V(5250) - A(7200) = RCT(7200)*V(2693)*V(5250) - A(7201) = RCT(7201)*V(1531)*V(5250) - A(7202) = RCT(7202)*V(532) - A(7203) = RCT(7203)*V(497)*V(5250) - A(7204) = RCT(7204)*V(3935) - A(7205) = RCT(7205)*V(3935)*V(5256) - A(7206) = RCT(7206)*V(3935)*V(5250) - A(7207) = RCT(7207)*V(1380) - A(7208) = RCT(7208)*V(1380)*V(5250) - A(7209) = RCT(7209)*V(2675) - A(7210) = RCT(7210)*V(2675)*V(5250) - A(7211) = RCT(7211)*V(2208)*V(5250) - A(7212) = RCT(7212)*V(2208) - A(7213) = RCT(7213)*V(2620)*V(5250) - A(7214) = RCT(7214)*V(2620) - A(7215) = RCT(7215)*V(3205) - A(7216) = RCT(7216)*V(3205)*V(5250) - A(7217) = RCT(7217)*V(3205)*V(5250) - A(7218) = RCT(7218)*V(1005)*V(5250) - A(7219) = RCT(7219)*V(2005) - A(7220) = RCT(7220)*V(3991) - A(7221) = RCT(7221)*V(3991)*V(5256) - A(7222) = RCT(7222)*V(3991)*V(5250) - A(7223) = RCT(7223)*V(355)*V(5250) - A(7224) = RCT(7224)*V(393)*V(5250) - A(7225) = RCT(7225)*V(1134) - A(7226) = RCT(7226)*V(1134)*V(5250) - A(7227) = RCT(7227)*V(2684) - A(7228) = RCT(7228)*V(2684)*V(5250) - A(7229) = RCT(7229)*V(4451)*V(5255) - A(7230) = RCT(7230)*V(4451)*V(5255) - A(7231) = RCT(7231)*V(4451)*V(5252) - A(7232) = RCT(7232)*V(4451)*V(5253) - A(7233) = RCT(7233)*V(4451)*V(5256) - A(7234) = RCT(7234)*V(4451) - A(7235) = RCT(7235)*V(4354)*V(5255) - A(7236) = RCT(7236)*V(4354)*V(5252) - A(7237) = RCT(7237)*V(4354)*V(5256) - A(7238) = RCT(7238)*V(4354) - A(7239) = RCT(7239)*V(4354) - A(7240) = RCT(7240)*V(4354) - A(7241) = RCT(7241)*V(4244)*V(5255) - A(7242) = RCT(7242)*V(4244)*V(5252) - A(7243) = RCT(7243)*V(4244)*V(5256) - A(7244) = RCT(7244)*V(4244) - A(7245) = RCT(7245)*V(3784)*V(5255) - A(7246) = RCT(7246)*V(3784)*V(5252) - A(7247) = RCT(7247)*V(3784)*V(5256) - A(7248) = RCT(7248)*V(3784) - A(7249) = RCT(7249)*V(1430)*V(5250) - A(7250) = RCT(7250)*V(1430) - A(7251) = RCT(7251)*V(3054) - A(7252) = RCT(7252)*V(2434)*V(5250) - A(7253) = RCT(7253)*V(2434) - A(7254) = RCT(7254)*V(2815)*V(5250) - A(7255) = RCT(7255)*V(2815) - A(7256) = RCT(7256)*V(2110)*V(5250) - A(7257) = RCT(7257)*V(2110) - A(7258) = RCT(7258)*V(3020)*V(5250) - A(7259) = RCT(7259)*V(3020) - A(7260) = RCT(7260)*V(833)*V(5250) - A(7261) = RCT(7261)*V(833) - A(7262) = RCT(7262)*V(3021)*V(5250) - A(7263) = RCT(7263)*V(3021) - A(7264) = RCT(7264)*V(330)*V(5250) - A(7265) = RCT(7265)*V(1015) - A(7266) = RCT(7266)*V(1015)*V(5250) - A(7267) = RCT(7267)*V(2525) - A(7268) = RCT(7268)*V(2525)*V(5250) - A(7269) = RCT(7269)*V(1097)*V(5250) - A(7270) = RCT(7270)*V(1097) - A(7271) = RCT(7271)*V(1048)*V(5250) - A(7272) = RCT(7272)*V(1048) - A(7273) = RCT(7273)*V(3056)*V(5250) - A(7274) = RCT(7274)*V(3056) - A(7275) = RCT(7275)*V(2828)*V(5250) - A(7276) = RCT(7276)*V(2828) - A(7277) = RCT(7277)*V(2828) - A(7278) = RCT(7278)*V(1037) - A(7279) = RCT(7279)*V(1037)*V(5250) - A(7280) = RCT(7280)*V(1100) - A(7281) = RCT(7281)*V(1100)*V(5250) - A(7282) = RCT(7282)*V(2691) - A(7283) = RCT(7283)*V(2691)*V(5250) - A(7284) = RCT(7284)*V(2127) - A(7285) = RCT(7285)*V(2127)*V(5250) - A(7286) = RCT(7286)*V(2127)*V(5250) - A(7287) = RCT(7287)*V(1902) - A(7288) = RCT(7288)*V(1902)*V(5250) - A(7289) = RCT(7289)*V(1720) - A(7290) = RCT(7290)*V(4540) - A(7291) = RCT(7291)*V(4540)*V(5256) - A(7292) = RCT(7292)*V(4540)*V(5250) - A(7293) = RCT(7293)*V(231)*V(5250) - A(7294) = RCT(7294)*V(603) - A(7295) = 1.867e-11*V(222)*V(5250) - A(7296) = 1.513e-11*V(1436)*V(5250) - A(7297) = RCT(7297)*V(1436) - A(7298) = 1.865e-11*V(2921)*V(5250) - A(7299) = RCT(7299)*V(2921) - A(7300) = RCT(7300)*V(2410)*V(5250) - A(7301) = RCT(7301)*V(2410) - A(7302) = RCT(7302)*V(2511)*V(5250) - A(7303) = RCT(7303)*V(2511) - A(7304) = RCT(7304)*V(4983) - A(7305) = RCT(7305)*V(4983)*V(5250) - A(7306) = RCT(7306)*V(5133)*V(5255) - A(7307) = RCT(7307)*V(5133)*V(5255) - A(7308) = RCT(7308)*V(5133)*V(5255) - A(7309) = RCT(7309)*V(5133)*V(5252) - A(7310) = RCT(7310)*V(5133)*V(5253) - A(7311) = RCT(7311)*V(5133)*V(5256) - A(7312) = RCT(7312)*V(5133) - A(7313) = RCT(7313)*V(5133) - A(7314) = RCT(7314)*V(3334)*V(5250) - A(7315) = RCT(7315)*V(3334)*V(5250) - A(7316) = RCT(7316)*V(3326)*V(5250) - A(7317) = RCT(7317)*V(3326)*V(5250) - A(7318) = RCT(7318)*V(3326) - A(7319) = RCT(7319)*V(3059)*V(5250) - A(7320) = RCT(7320)*V(3059) - A(7321) = RCT(7321)*V(2985)*V(5250) - A(7322) = RCT(7322)*V(2985)*V(5250) - A(7323) = RCT(7323)*V(3203)*V(5250) - A(7324) = RCT(7324)*V(3203)*V(5250) - A(7325) = RCT(7325)*V(3203) - A(7326) = RCT(7326)*V(2240)*V(5250) - A(7327) = RCT(7327)*V(2240) - A(7328) = RCT(7328)*V(2131)*V(5250) - A(7329) = RCT(7329)*V(2131) - A(7330) = RCT(7330)*V(2887)*V(5250) - A(7331) = RCT(7331)*V(2887) - A(7332) = RCT(7332)*V(3476) - A(7333) = RCT(7333)*V(3476) - A(7334) = RCT(7334)*V(3476)*V(5250) - A(7335) = RCT(7335)*V(2793) - A(7336) = RCT(7336)*V(2793)*V(5250) - A(7337) = RCT(7337)*V(831) - A(7338) = RCT(7338)*V(831)*V(5250) - A(7339) = RCT(7339)*V(2172) - A(7340) = RCT(7340)*V(2172)*V(5250) - A(7341) = RCT(7341)*V(2173) - A(7342) = RCT(7342)*V(4248) - A(7343) = RCT(7343)*V(4248)*V(5250) - A(7344) = RCT(7344)*V(4248)*V(5250) - A(7345) = RCT(7345)*V(1179)*V(5250) - A(7346) = RCT(7346)*V(2785) - A(7347) = RCT(7347)*V(2785)*V(5250) - A(7348) = RCT(7348)*V(2785)*V(5250) - A(7349) = RCT(7349)*V(2519) - A(7350) = RCT(7350)*V(2519)*V(5250) - A(7351) = RCT(7351)*V(1667) - A(7352) = RCT(7352)*V(4261) - A(7353) = RCT(7353)*V(4261)*V(5256) - A(7354) = RCT(7354)*V(4261)*V(5250) - A(7355) = RCT(7355)*V(2871) - A(7356) = RCT(7356)*V(2871)*V(5250) - A(7357) = RCT(7357)*V(2871)*V(5250) - A(7358) = RCT(7358)*V(2761) - A(7359) = RCT(7359)*V(2761)*V(5250) - A(7360) = RCT(7360)*V(1616) - A(7361) = RCT(7361)*V(546)*V(5250) - A(7362) = RCT(7362)*V(546)*V(5250) - A(7363) = RCT(7363)*V(3923) - A(7364) = RCT(7364)*V(3923)*V(5256) - A(7365) = RCT(7365)*V(3923)*V(5250) - A(7366) = RCT(7366)*V(889)*V(5250) - A(7367) = RCT(7367)*V(889) - A(7368) = RCT(7368)*V(3260) - A(7369) = RCT(7369)*V(3260)*V(5250) - A(7370) = RCT(7370)*V(1165) - A(7371) = RCT(7371)*V(1165)*V(5250) - A(7372) = RCT(7372)*V(2509) - A(7373) = RCT(7373)*V(2509)*V(5250) - A(7374) = RCT(7374)*V(1755) - A(7375) = RCT(7375)*V(1521)*V(5250) - A(7376) = RCT(7376)*V(5140) - A(7377) = RCT(7377)*V(5140) - A(7378) = RCT(7378)*V(5140)*V(5250) - A(7379) = RCT(7379)*V(5140)*V(5250) - A(7380) = RCT(7380)*V(1290) - A(7381) = RCT(7381)*V(1290)*V(5250) - A(7382) = RCT(7382)*V(2841)*V(5250) - A(7383) = RCT(7383)*V(2841) - A(7384) = RCT(7384)*V(836) - A(7385) = RCT(7385)*V(836)*V(5250) - A(7386) = RCT(7386)*V(2189) - A(7387) = RCT(7387)*V(2189)*V(5250) - A(7388) = RCT(7388)*V(2030) - A(7389) = RCT(7389)*V(437)*V(5250) - A(7390) = RCT(7390)*V(3046) - A(7391) = RCT(7391)*V(3046)*V(5250) - A(7392) = RCT(7392)*V(3046)*V(5250) - A(7393) = RCT(7393)*V(2835) - A(7394) = RCT(7394)*V(2835)*V(5250) - A(7395) = RCT(7395)*V(1563) - A(7396) = RCT(7396)*V(5115) - A(7397) = RCT(7397)*V(5115)*V(5256) - A(7398) = RCT(7398)*V(5115)*V(5250) - A(7399) = RCT(7399)*V(5115)*V(5250) - A(7400) = RCT(7400)*V(1506) - A(7401) = RCT(7401)*V(1506)*V(5250) - A(7402) = RCT(7402)*V(1798) - A(7403) = RCT(7403)*V(1798)*V(5250) - A(7404) = RCT(7404)*V(1799) - A(7405) = RCT(7405)*V(5010) - A(7406) = RCT(7406)*V(5010)*V(5250) - A(7407) = RCT(7407)*V(5010)*V(5250) - A(7408) = RCT(7408)*V(435)*V(5250) - A(7409) = RCT(7409)*V(876) - A(7410) = RCT(7410)*V(876)*V(5250) - A(7411) = RCT(7411)*V(2755) - A(7412) = RCT(7412)*V(2755)*V(5250) - A(7413) = RCT(7413)*V(2543) - A(7414) = RCT(7414)*V(2543)*V(5250) - A(7415) = RCT(7415)*V(2543)*V(5250) - A(7416) = RCT(7416)*V(2653) - A(7417) = RCT(7417)*V(2653)*V(5250) - A(7418) = RCT(7418)*V(1564) - A(7419) = RCT(7419)*V(4975) - A(7420) = RCT(7420)*V(4975)*V(5256) - A(7421) = RCT(7421)*V(4975)*V(5250) - A(7422) = RCT(7422)*V(4975)*V(5250) - A(7423) = RCT(7423)*V(2244) - A(7424) = RCT(7424)*V(2244) - A(7425) = RCT(7425)*V(2244)*V(5250) - A(7426) = RCT(7426)*V(1654) - A(7427) = RCT(7427)*V(1653) - A(7428) = RCT(7428)*V(1653)*V(5250) - A(7429) = RCT(7429)*V(1262) - A(7430) = RCT(7430)*V(1262)*V(5250) - A(7431) = RCT(7431)*V(1980) - A(7432) = RCT(7432)*V(1980)*V(5250) - A(7433) = RCT(7433)*V(195) - A(7434) = RCT(7434)*V(3857) - A(7435) = RCT(7435)*V(3857)*V(5256) - A(7436) = RCT(7436)*V(3857)*V(5250) - A(7437) = RCT(7437)*V(1693) - A(7438) = RCT(7438)*V(1693)*V(5250) - A(7439) = RCT(7439)*V(2233) - A(7440) = RCT(7440)*V(2233)*V(5250) - A(7441) = RCT(7441)*V(2233)*V(5250) - A(7442) = RCT(7442)*V(2182) - A(7443) = RCT(7443)*V(2182)*V(5250) - A(7444) = RCT(7444)*V(1692) - A(7445) = RCT(7445)*V(4110) - A(7446) = RCT(7446)*V(4110)*V(5256) - A(7447) = RCT(7447)*V(4110)*V(5250) - A(7448) = RCT(7448)*V(4110)*V(5250) - A(7449) = RCT(7449)*V(425)*V(5250) - A(7450) = RCT(7450)*V(1340) - A(7451) = RCT(7451)*V(1340)*V(5250) - A(7452) = RCT(7452)*V(2555) - A(7453) = RCT(7453)*V(2555)*V(5250) - A(7454) = RCT(7454)*V(1838) - A(7455) = RCT(7455)*V(5064) - A(7456) = RCT(7456)*V(5064)*V(5250) - A(7457) = RCT(7457)*V(5064)*V(5250) - A(7458) = RCT(7458)*V(488)*V(5250) - A(7459) = RCT(7459)*V(1180) - A(7460) = RCT(7460)*V(1180)*V(5250) - A(7461) = RCT(7461)*V(3024) - A(7462) = RCT(7462)*V(3024)*V(5250) - A(7463) = RCT(7463)*V(2775) - A(7464) = RCT(7464)*V(2775)*V(5250) - A(7465) = RCT(7465)*V(2775)*V(5250) - A(7466) = RCT(7466)*V(2934) - A(7467) = RCT(7467)*V(2934)*V(5250) - A(7468) = RCT(7468)*V(1721) - A(7469) = RCT(7469)*V(5063) - A(7470) = RCT(7470)*V(5063)*V(5256) - A(7471) = RCT(7471)*V(5063)*V(5250) - A(7472) = RCT(7472)*V(5063)*V(5250) - A(7473) = RCT(7473)*V(1281) - A(7474) = RCT(7474)*V(1281)*V(5250) - A(7475) = RCT(7475)*V(2045) - A(7476) = RCT(7476)*V(2045)*V(5250) - A(7477) = RCT(7477)*V(2889) - A(7478) = RCT(7478)*V(2889) - A(7479) = RCT(7479)*V(3384) - A(7480) = RCT(7480)*V(3384)*V(5250) - A(7481) = RCT(7481)*V(220)*V(5250) - A(7482) = RCT(7482)*V(1514) - A(7483) = RCT(7483)*V(1514)*V(5250) - A(7484) = RCT(7484)*V(1714) - A(7485) = RCT(7485)*V(1694) - A(7486) = RCT(7486)*V(1694)*V(5250) - A(7487) = RCT(7487)*V(3038) - A(7488) = RCT(7488)*V(3038)*V(5250) - A(7489) = RCT(7489)*V(3038)*V(5250) - A(7490) = RCT(7490)*V(2513) - A(7491) = RCT(7491)*V(2513)*V(5250) - A(7492) = RCT(7492)*V(1663) - A(7493) = RCT(7493)*V(4313) - A(7494) = RCT(7494)*V(4313)*V(5256) - A(7495) = RCT(7495)*V(4313)*V(5250) - A(7496) = RCT(7496)*V(2259)*V(5250) - A(7497) = RCT(7497)*V(2259)*V(5250) - A(7498) = RCT(7498)*V(853) - A(7499) = RCT(7499)*V(853)*V(5250) - A(7500) = RCT(7500)*V(3026) - A(7501) = RCT(7501)*V(3026)*V(5250) - A(7502) = RCT(7502)*V(2633) - A(7503) = RCT(7503)*V(2633)*V(5250) - A(7504) = RCT(7504)*V(2633)*V(5250) - A(7505) = RCT(7505)*V(2713) - A(7506) = RCT(7506)*V(2713)*V(5250) - A(7507) = RCT(7507)*V(1627) - A(7508) = RCT(7508)*V(4834) - A(7509) = RCT(7509)*V(4834)*V(5256) - A(7510) = RCT(7510)*V(4834)*V(5250) - A(7511) = RCT(7511)*V(291)*V(5250) - A(7512) = RCT(7512)*V(828) - A(7513) = RCT(7513)*V(828)*V(5250) - A(7514) = RCT(7514)*V(3312) - A(7515) = RCT(7515)*V(3312)*V(5250) - A(7516) = RCT(7516)*V(1992) - A(7517) = RCT(7517)*V(1992)*V(5250) - A(7518) = RCT(7518)*V(1992)*V(5250) - A(7519) = RCT(7519)*V(2218) - A(7520) = RCT(7520)*V(2218)*V(5250) - A(7521) = RCT(7521)*V(1559) - A(7522) = RCT(7522)*V(333)*V(5250) - A(7523) = RCT(7523)*V(3986) - A(7524) = RCT(7524)*V(3986)*V(5256) - A(7525) = RCT(7525)*V(3986)*V(5250) - A(7526) = RCT(7526)*V(379)*V(5250) - A(7527) = RCT(7527)*V(832) - A(7528) = RCT(7528)*V(832)*V(5250) - A(7529) = RCT(7529)*V(3023) - A(7530) = RCT(7530)*V(3023)*V(5250) - A(7531) = RCT(7531)*V(1375) - A(7532) = RCT(7532)*V(1375)*V(5250) - A(7533) = RCT(7533)*V(2917) - A(7534) = RCT(7534)*V(2917)*V(5250) - A(7535) = RCT(7535)*V(1945) - A(7536) = RCT(7536)*V(314)*V(5250) - A(7537) = RCT(7537)*V(3382) - A(7538) = RCT(7538)*V(3382)*V(5250) - A(7539) = RCT(7539)*V(1075) - A(7540) = RCT(7540)*V(1075)*V(5250) - A(7541) = RCT(7541)*V(117) - A(7542) = RCT(7542)*V(1326) - A(7543) = RCT(7543)*V(1326)*V(5250) - A(7544) = RCT(7544)*V(3212) - A(7545) = RCT(7545)*V(3212)*V(5250) - A(7546) = RCT(7546)*V(2361) - A(7547) = RCT(7547)*V(895)*V(5250) - A(7548) = RCT(7548)*V(1282) - A(7549) = RCT(7549)*V(1282)*V(5250) - A(7550) = RCT(7550)*V(91) - A(7551) = RCT(7551)*V(1010) - A(7552) = RCT(7552)*V(1010)*V(5250) - A(7553) = RCT(7553)*V(2291) - A(7554) = RCT(7554)*V(2291)*V(5250) - A(7555) = RCT(7555)*V(3393) - A(7556) = RCT(7556)*V(3393) - A(7557) = RCT(7557)*V(3747) - A(7558) = RCT(7558)*V(3747)*V(5250) - A(7559) = RCT(7559)*V(3747)*V(5250) - A(7560) = RCT(7560)*V(964) - A(7561) = RCT(7561)*V(964)*V(5250) - A(7562) = RCT(7562)*V(2049) - A(7563) = RCT(7563)*V(2049)*V(5250) - A(7564) = RCT(7564)*V(2050) - A(7565) = RCT(7565)*V(675)*V(5250) - A(7566) = RCT(7566)*V(675)*V(5250) - A(7567) = RCT(7567)*V(3822)*V(5250) - A(7568) = RCT(7568)*V(3822) - A(7569) = RCT(7569)*V(1032) - A(7570) = RCT(7570)*V(1032)*V(5250) - A(7571) = RCT(7571)*V(132) - A(7572) = RCT(7572)*V(1382)*V(5250) - A(7573) = RCT(7573)*V(1382)*V(5250) - A(7574) = RCT(7574)*V(2202) - A(7575) = RCT(7575)*V(2202)*V(5250) - A(7576) = RCT(7576)*V(727) - A(7577) = RCT(7577)*V(223)*V(5250) - A(7578) = RCT(7578)*V(3946) - A(7579) = RCT(7579)*V(3946)*V(5256) - A(7580) = RCT(7580)*V(3946)*V(5250) - A(7581) = RCT(7581)*V(1168) - A(7582) = RCT(7582)*V(1168)*V(5250) - A(7583) = RCT(7583)*V(2299) - A(7584) = RCT(7584)*V(2299)*V(5250) - A(7585) = RCT(7585)*V(2284) - A(7586) = RCT(7586)*V(469)*V(5250) - A(7587) = RCT(7587)*V(3917) - A(7588) = RCT(7588)*V(3917)*V(5250) - A(7589) = RCT(7589)*V(3917)*V(5250) - A(7590) = RCT(7590)*V(1416) - A(7591) = RCT(7591)*V(1416)*V(5250) - A(7592) = RCT(7592)*V(50) - A(7593) = RCT(7593)*V(1401) - A(7594) = RCT(7594)*V(1401)*V(5250) - A(7595) = RCT(7595)*V(1780) - A(7596) = RCT(7596)*V(1780)*V(5250) - A(7597) = RCT(7597)*V(1781) - A(7598) = RCT(7598)*V(468)*V(5250) - A(7599) = RCT(7599)*V(4103) - A(7600) = RCT(7600)*V(4103)*V(5250) - A(7601) = RCT(7601)*V(4103)*V(5250) - A(7602) = RCT(7602)*V(1374) - A(7603) = RCT(7603)*V(1374)*V(5250) - A(7604) = RCT(7604)*V(140) - A(7605) = RCT(7605)*V(1304) - A(7606) = RCT(7606)*V(1304)*V(5250) - A(7607) = RCT(7607)*V(2268) - A(7608) = RCT(7608)*V(2268)*V(5250) - A(7609) = RCT(7609)*V(2122) - A(7610) = RCT(7610)*V(525)*V(5250) - A(7611) = RCT(7611)*V(4122) - A(7612) = RCT(7612)*V(4122)*V(5250) - A(7613) = RCT(7613)*V(4122)*V(5250) - A(7614) = RCT(7614)*V(1410) - A(7615) = RCT(7615)*V(1410)*V(5250) - A(7616) = RCT(7616)*V(66) - A(7617) = RCT(7617)*V(1349) - A(7618) = RCT(7618)*V(1349)*V(5250) - A(7619) = RCT(7619)*V(2206) - A(7620) = RCT(7620)*V(2206)*V(5250) - A(7621) = RCT(7621)*V(2060) - A(7622) = RCT(7622)*V(295)*V(5250) - A(7623) = RCT(7623)*V(4179) - A(7624) = RCT(7624)*V(4179)*V(5250) - A(7625) = RCT(7625)*V(4179)*V(5250) - A(7626) = RCT(7626)*V(1028) - A(7627) = RCT(7627)*V(1028)*V(5250) - A(7628) = RCT(7628)*V(35) - A(7629) = RCT(7629)*V(1387) - A(7630) = RCT(7630)*V(1387)*V(5250) - A(7631) = RCT(7631)*V(2387) - A(7632) = RCT(7632)*V(2387)*V(5250) - A(7633) = RCT(7633)*V(2031) - A(7634) = RCT(7634)*V(524)*V(5250) - A(7635) = RCT(7635)*V(4164) - A(7636) = RCT(7636)*V(4164)*V(5250) - A(7637) = RCT(7637)*V(4164)*V(5250) - A(7638) = RCT(7638)*V(1534) - A(7639) = RCT(7639)*V(1534)*V(5250) - A(7640) = RCT(7640)*V(43) - A(7641) = RCT(7641)*V(1536)*V(5250) - A(7642) = RCT(7642)*V(1536) - A(7643) = RCT(7643)*V(1889)*V(5250) - A(7644) = RCT(7644)*V(1889) - A(7645) = RCT(7645)*V(188) - A(7646) = RCT(7646)*V(501)*V(5250) - A(7647) = RCT(7647)*V(2783)*V(5250) - A(7648) = RCT(7648)*V(2150)*V(5250) - A(7649) = RCT(7649)*V(2150) - A(7650) = RCT(7650)*V(2500)*V(5250) - A(7651) = RCT(7651)*V(2500) - A(7652) = RCT(7652)*V(1110)*V(5250) - A(7653) = RCT(7653)*V(1997)*V(5250) - A(7654) = RCT(7654)*V(1997) - A(7655) = RCT(7655)*V(2579)*V(5250) - A(7656) = RCT(7656)*V(2579) - A(7657) = RCT(7657)*V(2080)*V(5250) - A(7658) = RCT(7658)*V(2080) - A(7659) = RCT(7659)*V(637) - A(7660) = RCT(7660)*V(4352)*V(5250) - A(7661) = RCT(7661)*V(4352) - A(7662) = RCT(7662)*V(1916)*V(5250) - A(7663) = RCT(7663)*V(1916) - A(7664) = RCT(7664)*V(2384)*V(5250) - A(7665) = RCT(7665)*V(2384) - A(7666) = RCT(7666)*V(2698)*V(5250) - A(7667) = RCT(7667)*V(2698) - A(7668) = RCT(7668)*V(1078)*V(5250) - A(7669) = RCT(7669)*V(2460)*V(5250) - A(7670) = RCT(7670)*V(2460) - A(7671) = RCT(7671)*V(2522)*V(5250) - A(7672) = RCT(7672)*V(2522) - A(7673) = RCT(7673)*V(1802)*V(5250) - A(7674) = RCT(7674)*V(1802) - A(7675) = RCT(7675)*V(737) - A(7676) = RCT(7676)*V(2478)*V(5250) - A(7677) = RCT(7677)*V(2478) - A(7678) = RCT(7678)*V(2478) - A(7679) = RCT(7679)*V(1562)*V(5250) - A(7680) = RCT(7680)*V(1562) - A(7681) = RCT(7681)*V(1363)*V(5250) - A(7682) = RCT(7682)*V(2176)*V(5250) - A(7683) = RCT(7683)*V(2176) - A(7684) = RCT(7684)*V(2583)*V(5250) - A(7685) = RCT(7685)*V(2583) - A(7686) = RCT(7686)*V(3231)*V(5250) - A(7687) = RCT(7687)*V(3231) - A(7688) = RCT(7688)*V(3231) - A(7689) = RCT(7689)*V(706) - A(7690) = RCT(7690)*V(2396)*V(5250) - A(7691) = RCT(7691)*V(2396) - A(7692) = RCT(7692)*V(2738)*V(5250) - A(7693) = RCT(7693)*V(2738) - A(7694) = RCT(7694)*V(1515)*V(5250) - A(7695) = RCT(7695)*V(1515) - A(7696) = RCT(7696)*V(2858) - A(7697) = RCT(7697)*V(829)*V(5250) - A(7698) = RCT(7698)*V(829) - A(7699) = RCT(7699)*V(3897) - A(7700) = RCT(7700)*V(3897) - A(7701) = RCT(7701)*V(924)*V(5250) - A(7702) = RCT(7702)*V(2314)*V(5250) - A(7703) = RCT(7703)*V(2314) - A(7704) = RCT(7704)*V(2702)*V(5250) - A(7705) = RCT(7705)*V(2702) - A(7706) = RCT(7706)*V(1080)*V(5250) - A(7707) = RCT(7707)*V(1080) - A(7708) = RCT(7708)*V(1261)*V(5250) - A(7709) = RCT(7709)*V(2036)*V(5250) - A(7710) = RCT(7710)*V(2036) - A(7711) = RCT(7711)*V(2872)*V(5250) - A(7712) = RCT(7712)*V(2872) - A(7713) = RCT(7713)*V(2301)*V(5250) - A(7714) = RCT(7714)*V(2301) - A(7715) = RCT(7715)*V(3051)*V(5250) - A(7716) = RCT(7716)*V(3051) - A(7717) = RCT(7717)*V(3278)*V(5250) - A(7718) = RCT(7718)*V(3278)*V(5250) - A(7719) = RCT(7719)*V(3278) - A(7720) = RCT(7720)*V(3909) - A(7721) = RCT(7721)*V(3909) - A(7722) = RCT(7722)*V(834)*V(5250) - A(7723) = RCT(7723)*V(2290)*V(5250) - A(7724) = RCT(7724)*V(2290) - A(7725) = RCT(7725)*V(2988)*V(5250) - A(7726) = RCT(7726)*V(2988) - A(7727) = RCT(7727)*V(1999)*V(5250) - A(7728) = RCT(7728)*V(1999) - A(7729) = RCT(7729)*V(669) - A(7730) = RCT(7730)*V(2028)*V(5250) - A(7731) = RCT(7731)*V(2028) - A(7732) = RCT(7732)*V(2028) - A(7733) = RCT(7733)*V(1621)*V(5250) - A(7734) = RCT(7734)*V(1621) - A(7735) = RCT(7735)*V(2466)*V(5250) - A(7736) = RCT(7736)*V(2466) - A(7737) = RCT(7737)*V(551) - A(7738) = RCT(7738)*V(1670)*V(5250) - A(7739) = RCT(7739)*V(1670) - A(7740) = RCT(7740)*V(3759) - A(7741) = RCT(7741)*V(3759)*V(5250) - A(7742) = RCT(7742)*V(2371) - A(7743) = RCT(7743)*V(2371)*V(5250) - A(7744) = RCT(7744)*V(2896) - A(7745) = RCT(7745)*V(2896)*V(5250) - A(7746) = RCT(7746)*V(2166)*V(5250) - A(7747) = RCT(7747)*V(2166) - A(7748) = RCT(7748)*V(815) - A(7749) = RCT(7749)*V(2547)*V(5250) - A(7750) = RCT(7750)*V(2547) - A(7751) = RCT(7751)*V(2129)*V(5250) - A(7752) = RCT(7752)*V(2129) - A(7753) = RCT(7753)*V(2114)*V(5250) - A(7754) = RCT(7754)*V(2114)*V(5250) - A(7755) = RCT(7755)*V(2114) - A(7756) = RCT(7756)*V(3904) - A(7757) = RCT(7757)*V(3904) - A(7758) = RCT(7758)*V(3354)*V(5250) - A(7759) = RCT(7759)*V(3354) - A(7760) = RCT(7760)*V(2344)*V(5250) - A(7761) = RCT(7761)*V(2344) - A(7762) = RCT(7762)*V(3728)*V(5255) - A(7763) = RCT(7763)*V(3728)*V(5252) - A(7764) = RCT(7764)*V(3728)*V(5256) - A(7765) = RCT(7765)*V(3728) - A(7766) = RCT(7766)*V(759) - A(7767) = RCT(7767)*V(759) - A(7768) = RCT(7768)*V(3669)*V(5255) - A(7769) = RCT(7769)*V(3669)*V(5252) - A(7770) = RCT(7770)*V(3669)*V(5256) - A(7771) = RCT(7771)*V(3669) - A(7772) = RCT(7772)*V(3669) - A(7773) = RCT(7773)*V(3669) - A(7774) = RCT(7774)*V(4398)*V(5250) - A(7775) = RCT(7775)*V(4398) - A(7776) = RCT(7776)*V(3325)*V(5250) - A(7777) = RCT(7777)*V(3325) - A(7778) = RCT(7778)*V(3325) - A(7779) = RCT(7779)*V(3712) - A(7780) = RCT(7780)*V(3712) - A(7781) = RCT(7781)*V(2924)*V(5250) - A(7782) = RCT(7782)*V(2924) - A(7783) = RCT(7783)*V(1356)*V(5250) - A(7784) = RCT(7784)*V(1356) - A(7785) = RCT(7785)*V(1067)*V(5250) - A(7786) = RCT(7786)*V(1067) - A(7787) = RCT(7787)*V(2712)*V(5250) - A(7788) = RCT(7788)*V(2712) - A(7789) = RCT(7789)*V(2609)*V(5250) - A(7790) = RCT(7790)*V(2609) - A(7791) = RCT(7791)*V(2609) - A(7792) = RCT(7792)*V(2376) - A(7793) = RCT(7793)*V(4602)*V(5250) - A(7794) = RCT(7794)*V(4602) - A(7795) = RCT(7795)*V(3446)*V(5250) - A(7796) = RCT(7796)*V(3446)*V(5250) - A(7797) = RCT(7797)*V(3446) - A(7798) = RCT(7798)*V(3446) - A(7799) = RCT(7799)*V(808) - A(7800) = RCT(7800)*V(3644)*V(5250) - A(7801) = RCT(7801)*V(3644) - A(7802) = RCT(7802)*V(1570)*V(5250) - A(7803) = RCT(7803)*V(1570) - A(7804) = RCT(7804)*V(4859)*V(5253) - A(7805) = RCT(7805)*V(4859)*V(5258) - A(7806) = RCT(7806)*V(3092)*V(5256) - A(7807) = RCT(7807)*V(3092)*V(5250) - A(7808) = RCT(7808)*V(4079)*V(5255) - A(7809) = RCT(7809)*V(4079)*V(5252) - A(7810) = RCT(7810)*V(4079)*V(5256) - A(7811) = RCT(7811)*V(4079) - A(7812) = RCT(7812)*V(1775)*V(5256) - A(7813) = RCT(7813)*V(1775)*V(5250) - A(7814) = RCT(7814)*V(4491)*V(5250) - A(7815) = RCT(7815)*V(4491) - A(7816) = RCT(7816)*V(2054)*V(5256) - A(7817) = RCT(7817)*V(2054)*V(5250) - A(7818) = RCT(7818)*V(4798)*V(5253) - A(7819) = RCT(7819)*V(4798)*V(5258) - A(7820) = RCT(7820)*V(2283)*V(5250) - A(7821) = RCT(7821)*V(2283) - A(7822) = RCT(7822)*V(3167)*V(5256) - A(7823) = RCT(7823)*V(3167)*V(5250) - A(7824) = RCT(7824)*V(4049)*V(5255) - A(7825) = RCT(7825)*V(4049)*V(5252) - A(7826) = RCT(7826)*V(4049)*V(5256) - A(7827) = RCT(7827)*V(4049) - A(7828) = RCT(7828)*V(3590)*V(5250) - A(7829) = RCT(7829)*V(3590) - A(7830) = RCT(7830)*V(4993)*V(5255) - A(7831) = RCT(7831)*V(4993)*V(5255) - A(7832) = RCT(7832)*V(4993)*V(5255) - A(7833) = RCT(7833)*V(4993)*V(5252) - A(7834) = RCT(7834)*V(4993)*V(5253) - A(7835) = RCT(7835)*V(4993)*V(5256) - A(7836) = RCT(7836)*V(4993) - A(7837) = RCT(7837)*V(4993) - A(7838) = RCT(7838)*V(3647) - A(7839) = RCT(7839)*V(3647) - A(7840) = RCT(7840)*V(4861)*V(5255) - A(7841) = RCT(7841)*V(4861)*V(5252) - A(7842) = RCT(7842)*V(4861)*V(5256) - A(7843) = RCT(7843)*V(4861) - A(7844) = RCT(7844)*V(4861) - A(7845) = RCT(7845)*V(4835)*V(5255) - A(7846) = RCT(7846)*V(4835)*V(5252) - A(7847) = RCT(7847)*V(4835)*V(5256) - A(7848) = RCT(7848)*V(4835) - A(7849) = RCT(7849)*V(4835) - A(7850) = RCT(7850)*V(4835) - A(7851) = RCT(7851)*V(3692)*V(5255) - A(7852) = RCT(7852)*V(3692)*V(5252) - A(7853) = RCT(7853)*V(3692)*V(5256) - A(7854) = RCT(7854)*V(3692) - A(7855) = RCT(7855)*V(771) - A(7856) = RCT(7856)*V(771) - A(7857) = RCT(7857)*V(3752)*V(5255) - A(7858) = RCT(7858)*V(3752)*V(5252) - A(7859) = RCT(7859)*V(3752)*V(5256) - A(7860) = RCT(7860)*V(3752) - A(7861) = RCT(7861)*V(3752) - A(7862) = RCT(7862)*V(4071) - A(7863) = RCT(7863)*V(4071) - A(7864) = RCT(7864)*V(1109)*V(5250) - A(7865) = RCT(7865)*V(1109) - A(7866) = RCT(7866)*V(2876)*V(5250) - A(7867) = RCT(7867)*V(2876) - A(7868) = RCT(7868)*V(4693) - A(7869) = RCT(7869)*V(4693)*V(5250) - A(7870) = RCT(7870)*V(461)*V(5250) - A(7871) = RCT(7871)*V(1456)*V(5250) - A(7872) = RCT(7872)*V(1456) - A(7873) = RCT(7873)*V(3220)*V(5250) - A(7874) = RCT(7874)*V(3220) - A(7875) = RCT(7875)*V(4968)*V(5255) - A(7876) = RCT(7876)*V(4968)*V(5255) - A(7877) = RCT(7877)*V(4968)*V(5255) - A(7878) = RCT(7878)*V(4968)*V(5252) - A(7879) = RCT(7879)*V(4968)*V(5253) - A(7880) = RCT(7880)*V(4968)*V(5256) - A(7881) = RCT(7881)*V(4968) - A(7882) = RCT(7882)*V(4968) - A(7883) = RCT(7883)*V(2393) - A(7884) = RCT(7884)*V(2393) - A(7885) = RCT(7885)*V(2393) - A(7886) = RCT(7886)*V(2393) - A(7887) = RCT(7887)*V(4347)*V(5255) - A(7888) = RCT(7888)*V(4347)*V(5252) - A(7889) = RCT(7889)*V(4347)*V(5256) - A(7890) = RCT(7890)*V(4347) - A(7891) = RCT(7891)*V(4347) - A(7892) = RCT(7892)*V(4440)*V(5255) - A(7893) = RCT(7893)*V(4440)*V(5252) - A(7894) = RCT(7894)*V(4440)*V(5256) - A(7895) = RCT(7895)*V(4440) - A(7896) = RCT(7896)*V(4669)*V(5255) - A(7897) = RCT(7897)*V(4669)*V(5252) - A(7898) = RCT(7898)*V(4669)*V(5256) - A(7899) = RCT(7899)*V(4669) - A(7900) = RCT(7900)*V(4669) - A(7901) = RCT(7901)*V(4669) - A(7902) = RCT(7902)*V(4422)*V(5255) - A(7903) = RCT(7903)*V(4422)*V(5252) - A(7904) = RCT(7904)*V(4422)*V(5256) - A(7905) = RCT(7905)*V(4422) - A(7906) = RCT(7906)*V(4422) - A(7907) = RCT(7907)*V(1765)*V(5250) - A(7908) = RCT(7908)*V(1765) - A(7909) = RCT(7909)*V(2051)*V(5250) - A(7910) = RCT(7910)*V(2051) - A(7911) = RCT(7911)*V(1086)*V(5250) - A(7912) = RCT(7912)*V(1086) - A(7913) = RCT(7913)*V(3931)*V(5250) - A(7914) = RCT(7914)*V(3931) - A(7915) = RCT(7915)*V(3931) - A(7916) = RCT(7916)*V(3931) - A(7917) = RCT(7917)*V(3930) - A(7918) = RCT(7918)*V(3930) - A(7919) = RCT(7919)*V(3450)*V(5250) - A(7920) = RCT(7920)*V(3450) - A(7921) = RCT(7921)*V(3450) - A(7922) = RCT(7922)*V(3821)*V(5250) - A(7923) = RCT(7923)*V(3821) - A(7924) = RCT(7924)*V(4690)*V(5253) - A(7925) = RCT(7925)*V(4690)*V(5258) - A(7926) = RCT(7926)*V(2177)*V(5250) - A(7927) = RCT(7927)*V(2177) - A(7928) = RCT(7928)*V(1936)*V(5256) - A(7929) = RCT(7929)*V(1936)*V(5250) - A(7930) = RCT(7930)*V(3095)*V(5256) - A(7931) = RCT(7931)*V(3095)*V(5250) - A(7932) = RCT(7932)*V(4033)*V(5255) - A(7933) = RCT(7933)*V(4033)*V(5252) - A(7934) = RCT(7934)*V(4033)*V(5256) - A(7935) = RCT(7935)*V(4033) - A(7936) = RCT(7936)*V(389)*V(5250) - A(7937) = RCT(7937)*V(1283)*V(5250) - A(7938) = RCT(7938)*V(1283) - A(7939) = RCT(7939)*V(2956)*V(5250) - A(7940) = RCT(7940)*V(2956) - A(7941) = RCT(7941)*V(3385)*V(5250) - A(7942) = RCT(7942)*V(3385) - A(7943) = RCT(7943)*V(1645)*V(5253) - A(7944) = RCT(7944)*V(4558)*V(5255) - A(7945) = RCT(7945)*V(4558)*V(5252) - A(7946) = RCT(7946)*V(4558)*V(5256) - A(7947) = RCT(7947)*V(4558) - A(7948) = RCT(7948)*V(4558) - A(7949) = RCT(7949)*V(3739)*V(5255) - A(7950) = RCT(7950)*V(3739)*V(5252) - A(7951) = RCT(7951)*V(3739)*V(5256) - A(7952) = RCT(7952)*V(3739) - A(7953) = RCT(7953)*V(4857)*V(5255) - A(7954) = RCT(7954)*V(4857)*V(5252) - A(7955) = RCT(7955)*V(4857)*V(5256) - A(7956) = RCT(7956)*V(4857) - A(7957) = RCT(7957)*V(4857) - A(7958) = RCT(7958)*V(4857) - A(7959) = RCT(7959)*V(3705)*V(5255) - A(7960) = RCT(7960)*V(3705)*V(5252) - A(7961) = RCT(7961)*V(3705)*V(5256) - A(7962) = RCT(7962)*V(3705) - A(7963) = RCT(7963)*V(3705) - A(7964) = RCT(7964)*V(3677)*V(5255) - A(7965) = RCT(7965)*V(3677)*V(5252) - A(7966) = RCT(7966)*V(3677)*V(5256) - A(7967) = RCT(7967)*V(3677) - A(7968) = RCT(7968)*V(4550)*V(5255) - A(7969) = RCT(7969)*V(4550)*V(5252) - A(7970) = RCT(7970)*V(4550)*V(5256) - A(7971) = RCT(7971)*V(4550) - A(7972) = RCT(7972)*V(3695)*V(5255) - A(7973) = RCT(7973)*V(3695)*V(5252) - A(7974) = RCT(7974)*V(3695)*V(5256) - A(7975) = RCT(7975)*V(3695) - A(7976) = RCT(7976)*V(3695) - A(7977) = RCT(7977)*V(3582) - A(7978) = RCT(7978)*V(3582) - A(7979) = RCT(7979)*V(3475)*V(5250) - A(7980) = RCT(7980)*V(3475) - A(7981) = RCT(7981)*V(3475) - A(7982) = RCT(7982)*V(2830)*V(5250) - A(7983) = RCT(7983)*V(2830) - A(7984) = RCT(7984)*V(1084)*V(5250) - A(7985) = RCT(7985)*V(1084) - A(7986) = RCT(7986)*V(915)*V(5250) - A(7987) = RCT(7987)*V(915) - A(7988) = RCT(7988)*V(2904)*V(5250) - A(7989) = RCT(7989)*V(2904) - A(7990) = RCT(7990)*V(4125)*V(5250) - A(7991) = RCT(7991)*V(4125) - A(7992) = RCT(7992)*V(4125) - A(7993) = RCT(7993)*V(1810) - A(7994) = RCT(7994)*V(4671)*V(5253) - A(7995) = RCT(7995)*V(4671)*V(5258) - A(7996) = RCT(7996)*V(1419)*V(5250) - A(7997) = RCT(7997)*V(1419) - A(7998) = RCT(7998)*V(2464)*V(5256) - A(7999) = RCT(7999)*V(2464)*V(5250) - A(8000) = RCT(8000)*V(3119)*V(5256) - A(8001) = RCT(8001)*V(3119)*V(5250) - A(8002) = RCT(8002)*V(4073)*V(5255) - A(8003) = RCT(8003)*V(4073)*V(5252) - A(8004) = RCT(8004)*V(4073)*V(5256) - A(8005) = RCT(8005)*V(4073) - A(8006) = RCT(8006)*V(4014)*V(5250) - A(8007) = RCT(8007)*V(4014) - A(8008) = RCT(8008)*V(341)*V(5250) - A(8009) = RCT(8009)*V(1002)*V(5250) - A(8010) = RCT(8010)*V(1002) - A(8011) = RCT(8011)*V(3229)*V(5250) - A(8012) = RCT(8012)*V(3229) - A(8013) = RCT(8013)*V(2102)*V(5250) - A(8014) = RCT(8014)*V(2102) - A(8015) = RCT(8015)*V(3456)*V(5253) - A(8016) = RCT(8016)*V(4706)*V(5255) - A(8017) = RCT(8017)*V(4706)*V(5252) - A(8018) = RCT(8018)*V(4706)*V(5256) - A(8019) = RCT(8019)*V(4706) - A(8020) = RCT(8020)*V(4706) - A(8021) = RCT(8021)*V(4706) - A(8022) = RCT(8022)*V(4676)*V(5253) - A(8023) = RCT(8023)*V(4676)*V(5258) - A(8024) = RCT(8024)*V(854)*V(5250) - A(8025) = RCT(8025)*V(854) - A(8026) = RCT(8026)*V(2167)*V(5256) - A(8027) = RCT(8027)*V(2167)*V(5250) - A(8028) = RCT(8028)*V(3112)*V(5256) - A(8029) = RCT(8029)*V(3112)*V(5250) - A(8030) = RCT(8030)*V(4002)*V(5255) - A(8031) = RCT(8031)*V(4002)*V(5252) - A(8032) = RCT(8032)*V(4002)*V(5256) - A(8033) = RCT(8033)*V(4002) - A(8034) = RCT(8034)*V(276)*V(5250) - A(8035) = RCT(8035)*V(867)*V(5250) - A(8036) = RCT(8036)*V(867) - A(8037) = RCT(8037)*V(2780)*V(5250) - A(8038) = RCT(8038)*V(2780) - A(8039) = RCT(8039)*V(4797)*V(5253) - A(8040) = RCT(8040)*V(4797)*V(5258) - A(8041) = RCT(8041)*V(1476)*V(5250) - A(8042) = RCT(8042)*V(1476) - A(8043) = RCT(8043)*V(4047)*V(5250) - A(8044) = RCT(8044)*V(4047) - A(8045) = RCT(8045)*V(1805)*V(5256) - A(8046) = RCT(8046)*V(1805)*V(5250) - A(8047) = RCT(8047)*V(3162)*V(5256) - A(8048) = RCT(8048)*V(3162)*V(5250) - A(8049) = RCT(8049)*V(4057)*V(5255) - A(8050) = RCT(8050)*V(4057)*V(5252) - A(8051) = RCT(8051)*V(4057)*V(5256) - A(8052) = RCT(8052)*V(4057) - A(8053) = RCT(8053)*V(3230)*V(5250) - A(8054) = RCT(8054)*V(3230) - A(8055) = RCT(8055)*V(4877)*V(5255) - A(8056) = RCT(8056)*V(4877)*V(5252) - A(8057) = RCT(8057)*V(4877)*V(5256) - A(8058) = RCT(8058)*V(4877) - A(8059) = RCT(8059)*V(4877) - A(8060) = RCT(8060)*V(4877) - A(8061) = RCT(8061)*V(3713)*V(5255) - A(8062) = RCT(8062)*V(3713)*V(5252) - A(8063) = RCT(8063)*V(3713)*V(5256) - A(8064) = RCT(8064)*V(3713) - A(8065) = RCT(8065)*V(4661)*V(5255) - A(8066) = RCT(8066)*V(4661)*V(5252) - A(8067) = RCT(8067)*V(4661)*V(5256) - A(8068) = RCT(8068)*V(4661) - A(8069) = RCT(8069)*V(4661) - A(8070) = RCT(8070)*V(4661) - A(8071) = RCT(8071)*V(3727)*V(5255) - A(8072) = RCT(8072)*V(3727)*V(5252) - A(8073) = RCT(8073)*V(3727)*V(5256) - A(8074) = RCT(8074)*V(3727) - A(8075) = RCT(8075)*V(3727) - A(8076) = RCT(8076)*V(3727) - A(8077) = RCT(8077)*V(4062) - A(8078) = RCT(8078)*V(4062) - A(8079) = RCT(8079)*V(3458)*V(5250) - A(8080) = RCT(8080)*V(3458) - A(8081) = RCT(8081)*V(3458) - A(8082) = RCT(8082)*V(2582)*V(5250) - A(8083) = RCT(8083)*V(2582) - A(8084) = RCT(8084)*V(4403)*V(5250) - A(8085) = RCT(8085)*V(4403) - A(8086) = RCT(8086)*V(4728)*V(5250) - A(8087) = RCT(8087)*V(4728) - A(8088) = RCT(8088)*V(4728) - A(8089) = RCT(8089)*V(3860)*V(5255) - A(8090) = RCT(8090)*V(3860)*V(5252) - A(8091) = RCT(8091)*V(3860)*V(5256) - A(8092) = RCT(8092)*V(3860) - A(8093) = RCT(8093)*V(2204)*V(5250) - A(8094) = RCT(8094)*V(2204) - A(8095) = RCT(8095)*V(787) - A(8096) = RCT(8096)*V(2295)*V(5250) - A(8097) = RCT(8097)*V(2295) - A(8098) = RCT(8098)*V(358)*V(5250) - A(8099) = RCT(8099)*V(3800)*V(5250) - A(8100) = RCT(8100)*V(3800) - A(8101) = RCT(8101)*V(4791)*V(5253) - A(8102) = RCT(8102)*V(4791)*V(5258) - A(8103) = RCT(8103)*V(1188)*V(5250) - A(8104) = RCT(8104)*V(1188) - A(8105) = RCT(8105)*V(2274)*V(5256) - A(8106) = RCT(8106)*V(2274)*V(5250) - A(8107) = RCT(8107)*V(3123)*V(5256) - A(8108) = RCT(8108)*V(3123)*V(5250) - A(8109) = RCT(8109)*V(4065)*V(5255) - A(8110) = RCT(8110)*V(4065)*V(5252) - A(8111) = RCT(8111)*V(4065)*V(5256) - A(8112) = RCT(8112)*V(4065) - A(8113) = RCT(8113)*V(2936)*V(5250) - A(8114) = RCT(8114)*V(2936) - A(8115) = RCT(8115)*V(2104) - A(8116) = RCT(8116)*V(2104) - A(8117) = RCT(8117)*V(2104) - A(8118) = RCT(8118)*V(2104) - A(8119) = RCT(8119)*V(4165)*V(5255) - A(8120) = RCT(8120)*V(4165)*V(5252) - A(8121) = RCT(8121)*V(4165)*V(5256) - A(8122) = RCT(8122)*V(4165) - A(8123) = RCT(8123)*V(4165) - A(8124) = RCT(8124)*V(4165) - A(8125) = RCT(8125)*V(3772)*V(5255) - A(8126) = RCT(8126)*V(3772)*V(5252) - A(8127) = RCT(8127)*V(3772)*V(5256) - A(8128) = RCT(8128)*V(3772) - A(8129) = RCT(8129)*V(4689)*V(5255) - A(8130) = RCT(8130)*V(4689)*V(5252) - A(8131) = RCT(8131)*V(4689)*V(5256) - A(8132) = RCT(8132)*V(4689) - A(8133) = RCT(8133)*V(4689) - A(8134) = RCT(8134)*V(4689) - A(8135) = RCT(8135)*V(3696)*V(5255) - A(8136) = RCT(8136)*V(3696)*V(5252) - A(8137) = RCT(8137)*V(3696)*V(5256) - A(8138) = RCT(8138)*V(3696) - A(8139) = RCT(8139)*V(3696) - A(8140) = RCT(8140)*V(3696) - A(8141) = RCT(8141)*V(4029) - A(8142) = RCT(8142)*V(4029) - A(8143) = RCT(8143)*V(3225)*V(5250) - A(8144) = RCT(8144)*V(3225) - A(8145) = RCT(8145)*V(3225) - A(8146) = RCT(8146)*V(2689)*V(5250) - A(8147) = RCT(8147)*V(2689) - A(8148) = RCT(8148)*V(862)*V(5250) - A(8149) = RCT(8149)*V(862) - A(8150) = RCT(8150)*V(2474)*V(5250) - A(8151) = RCT(8151)*V(2474) - A(8152) = RCT(8152)*V(2474) - A(8153) = RCT(8153)*V(3973)*V(5255) - A(8154) = RCT(8154)*V(3973)*V(5252) - A(8155) = RCT(8155)*V(3973)*V(5256) - A(8156) = RCT(8156)*V(3973) - A(8157) = RCT(8157)*V(4069)*V(5255) - A(8158) = RCT(8158)*V(4069)*V(5252) - A(8159) = RCT(8159)*V(4069)*V(5256) - A(8160) = RCT(8160)*V(4069) - A(8161) = RCT(8161)*V(4069) - A(8162) = RCT(8162)*V(4069) - A(8163) = RCT(8163)*V(4790)*V(5253) - A(8164) = RCT(8164)*V(4790)*V(5258) - A(8165) = RCT(8165)*V(1303)*V(5250) - A(8166) = RCT(8166)*V(1303) - A(8167) = RCT(8167)*V(3816)*V(5250) - A(8168) = RCT(8168)*V(3816) - A(8169) = RCT(8169)*V(2398)*V(5256) - A(8170) = RCT(8170)*V(2398)*V(5250) - A(8171) = RCT(8171)*V(3100)*V(5256) - A(8172) = RCT(8172)*V(3100)*V(5250) - A(8173) = RCT(8173)*V(3997)*V(5255) - A(8174) = RCT(8174)*V(3997)*V(5252) - A(8175) = RCT(8175)*V(3997)*V(5256) - A(8176) = RCT(8176)*V(3997) - A(8177) = RCT(8177)*V(2927)*V(5250) - A(8178) = RCT(8178)*V(2927) - A(8179) = RCT(8179)*V(4141)*V(5255) - A(8180) = RCT(8180)*V(4141)*V(5252) - A(8181) = RCT(8181)*V(4141)*V(5256) - A(8182) = RCT(8182)*V(4141) - A(8183) = RCT(8183)*V(4141) - A(8184) = RCT(8184)*V(4141) - A(8185) = RCT(8185)*V(3774)*V(5255) - A(8186) = RCT(8186)*V(3774)*V(5252) - A(8187) = RCT(8187)*V(3774)*V(5256) - A(8188) = RCT(8188)*V(3774) - A(8189) = RCT(8189)*V(4688)*V(5255) - A(8190) = RCT(8190)*V(4688)*V(5252) - A(8191) = RCT(8191)*V(4688)*V(5256) - A(8192) = RCT(8192)*V(4688) - A(8193) = RCT(8193)*V(4688) - A(8194) = RCT(8194)*V(4688) - A(8195) = RCT(8195)*V(3762)*V(5255) - A(8196) = RCT(8196)*V(3762)*V(5252) - A(8197) = RCT(8197)*V(3762)*V(5256) - A(8198) = RCT(8198)*V(3762) - A(8199) = RCT(8199)*V(3762) - A(8200) = RCT(8200)*V(3762) - A(8201) = RCT(8201)*V(4086) - A(8202) = RCT(8202)*V(4086) - A(8203) = RCT(8203)*V(3226)*V(5250) - A(8204) = RCT(8204)*V(3226) - A(8205) = RCT(8205)*V(3226) - A(8206) = RCT(8206)*V(2808)*V(5250) - A(8207) = RCT(8207)*V(2808) - A(8208) = RCT(8208)*V(1111)*V(5250) - A(8209) = RCT(8209)*V(1111) - A(8210) = RCT(8210)*V(2472)*V(5250) - A(8211) = RCT(8211)*V(2472) - A(8212) = RCT(8212)*V(2472) - A(8213) = RCT(8213)*V(3953)*V(5255) - A(8214) = RCT(8214)*V(3953)*V(5252) - A(8215) = RCT(8215)*V(3953)*V(5256) - A(8216) = RCT(8216)*V(3953) - A(8217) = RCT(8217)*V(227)*V(5250) - A(8218) = RCT(8218)*V(1355)*V(5250) - A(8219) = RCT(8219)*V(1355) - A(8220) = RCT(8220)*V(3199)*V(5250) - A(8221) = RCT(8221)*V(3199) - A(8222) = RCT(8222)*V(3664)*V(5250) - A(8223) = RCT(8223)*V(3664) - A(8224) = RCT(8224)*V(4810)*V(5253) - A(8225) = RCT(8225)*V(4810)*V(5258) - A(8226) = RCT(8226)*V(1227)*V(5250) - A(8227) = RCT(8227)*V(1227) - A(8228) = RCT(8228)*V(3114)*V(5256) - A(8229) = RCT(8229)*V(3114)*V(5250) - A(8230) = RCT(8230)*V(4023)*V(5255) - A(8231) = RCT(8231)*V(4023)*V(5252) - A(8232) = RCT(8232)*V(4023)*V(5256) - A(8233) = RCT(8233)*V(4023) - A(8234) = RCT(8234)*V(4888)*V(5255) - A(8235) = RCT(8235)*V(4888)*V(5255) - A(8236) = RCT(8236)*V(4888)*V(5255) - A(8237) = RCT(8237)*V(4888)*V(5252) - A(8238) = RCT(8238)*V(4888)*V(5253) - A(8239) = RCT(8239)*V(4888)*V(5256) - A(8240) = RCT(8240)*V(4888) - A(8241) = RCT(8241)*V(4888) - A(8242) = RCT(8242)*V(3975)*V(5255) - A(8243) = RCT(8243)*V(3975)*V(5252) - A(8244) = RCT(8244)*V(3975)*V(5256) - A(8245) = RCT(8245)*V(3975) - A(8246) = RCT(8246)*V(3975) - A(8247) = RCT(8247)*V(3945)*V(5255) - A(8248) = RCT(8248)*V(3945)*V(5252) - A(8249) = RCT(8249)*V(3945)*V(5256) - A(8250) = RCT(8250)*V(3945) - A(8251) = RCT(8251)*V(3726)*V(5250) - A(8252) = RCT(8252)*V(3726) - A(8253) = RCT(8253)*V(3725)*V(5255) - A(8254) = RCT(8254)*V(3725)*V(5252) - A(8255) = RCT(8255)*V(3725)*V(5256) - A(8256) = RCT(8256)*V(3725) - A(8257) = RCT(8257)*V(3725) - A(8258) = RCT(8258)*V(4416)*V(5255) - A(8259) = RCT(8259)*V(4416)*V(5252) - A(8260) = RCT(8260)*V(4416)*V(5256) - A(8261) = RCT(8261)*V(4416) - A(8262) = RCT(8262)*V(4481)*V(5255) - A(8263) = RCT(8263)*V(4481)*V(5252) - A(8264) = RCT(8264)*V(4481)*V(5256) - A(8265) = RCT(8265)*V(4481) - A(8266) = RCT(8266)*V(4481) - A(8267) = RCT(8267)*V(4480)*V(5255) - A(8268) = RCT(8268)*V(4480)*V(5252) - A(8269) = RCT(8269)*V(4480)*V(5256) - A(8270) = RCT(8270)*V(4480) - A(8271) = RCT(8271)*V(4480) - A(8272) = RCT(8272)*V(1175)*V(5250) - A(8273) = RCT(8273)*V(1175) - A(8274) = RCT(8274)*V(1404)*V(5250) - A(8275) = RCT(8275)*V(1404) - A(8276) = RCT(8276)*V(2518)*V(5250) - A(8277) = RCT(8277)*V(2518) - A(8278) = RCT(8278)*V(3965)*V(5250) - A(8279) = RCT(8279)*V(3965) - A(8280) = RCT(8280)*V(3965) - A(8281) = RCT(8281)*V(3965) - A(8282) = RCT(8282)*V(503)*V(5250) - A(8283) = RCT(8283)*V(1537)*V(5250) - A(8284) = RCT(8284)*V(1537) - A(8285) = RCT(8285)*V(3318)*V(5250) - A(8286) = RCT(8286)*V(3318) - A(8287) = RCT(8287)*V(2225)*V(5250) - A(8288) = RCT(8288)*V(2225) - A(8289) = RCT(8289)*V(3305)*V(5253) - A(8290) = RCT(8290)*V(214) - A(8291) = RCT(8291)*V(214) - A(8292) = RCT(8292)*V(4674)*V(5255) - A(8293) = RCT(8293)*V(4674)*V(5252) - A(8294) = RCT(8294)*V(4674)*V(5256) - A(8295) = RCT(8295)*V(4674) - A(8296) = RCT(8296)*V(4674) - A(8297) = RCT(8297)*V(3829)*V(5250) - A(8298) = RCT(8298)*V(3829) - A(8299) = RCT(8299)*V(4788)*V(5253) - A(8300) = RCT(8300)*V(4788)*V(5258) - A(8301) = RCT(8301)*V(943)*V(5250) - A(8302) = RCT(8302)*V(943) - A(8303) = RCT(8303)*V(2048)*V(5256) - A(8304) = RCT(8304)*V(2048)*V(5250) - A(8305) = RCT(8305)*V(3142)*V(5256) - A(8306) = RCT(8306)*V(3142)*V(5250) - A(8307) = RCT(8307)*V(4007)*V(5255) - A(8308) = RCT(8308)*V(4007)*V(5252) - A(8309) = RCT(8309)*V(4007)*V(5256) - A(8310) = RCT(8310)*V(4007) - A(8311) = RCT(8311)*V(4694)*V(5250) - A(8312) = RCT(8312)*V(4694) - A(8313) = RCT(8313)*V(423)*V(5250) - A(8314) = RCT(8314)*V(1228)*V(5250) - A(8315) = RCT(8315)*V(1228) - A(8316) = RCT(8316)*V(3232)*V(5250) - A(8317) = RCT(8317)*V(3232) - A(8318) = RCT(8318)*V(2379)*V(5250) - A(8319) = RCT(8319)*V(2379) - A(8320) = RCT(8320)*V(3474)*V(5253) - A(8321) = RCT(8321)*V(3765) - A(8322) = RCT(8322)*V(3765) - A(8323) = RCT(8323)*V(2603)*V(5250) - A(8324) = RCT(8324)*V(2603) - A(8325) = RCT(8325)*V(2603) - A(8326) = RCT(8326)*V(3300)*V(5250) - A(8327) = RCT(8327)*V(3300) - A(8328) = RCT(8328)*V(1432)*V(5250) - A(8329) = RCT(8329)*V(1432) - A(8330) = RCT(8330)*V(1378)*V(5250) - A(8331) = RCT(8331)*V(1378) - A(8332) = RCT(8332)*V(2671)*V(5250) - A(8333) = RCT(8333)*V(2671) - A(8334) = RCT(8334)*V(3366)*V(5250) - A(8335) = RCT(8335)*V(3366) - A(8336) = RCT(8336)*V(3366) - A(8337) = RCT(8337)*V(1833) - A(8338) = RCT(8338)*V(3918)*V(5250) - A(8339) = RCT(8339)*V(3918) - A(8340) = RCT(8340)*V(5031)*V(5250) - A(8341) = RCT(8341)*V(5031) - A(8342) = RCT(8342)*V(2047)*V(5250) - A(8343) = RCT(8343)*V(2047) - A(8344) = RCT(8344)*V(2047) - A(8345) = RCT(8345)*V(782) - A(8346) = RCT(8346)*V(1666)*V(5250) - A(8347) = RCT(8347)*V(1666) - A(8348) = RCT(8348)*V(3132)*V(5250) - A(8349) = RCT(8349)*V(3132) - A(8350) = RCT(8350)*V(1389)*V(5250) - A(8351) = RCT(8351)*V(1389) - A(8352) = RCT(8352)*V(1206)*V(5250) - A(8353) = RCT(8353)*V(1206) - A(8354) = RCT(8354)*V(1368)*V(5250) - A(8355) = RCT(8355)*V(1368) - A(8356) = RCT(8356)*V(3441)*V(5250) - A(8357) = RCT(8357)*V(3441) - A(8358) = RCT(8358)*V(3441) - A(8359) = RCT(8359)*V(3441) - A(8360) = RCT(8360)*V(3419) - A(8361) = RCT(8361)*V(3419) - A(8362) = RCT(8362)*V(2310)*V(5250) - A(8363) = RCT(8363)*V(2310) - A(8364) = RCT(8364)*V(4682)*V(5253) - A(8365) = RCT(8365)*V(4682)*V(5258) - A(8366) = RCT(8366)*V(1156)*V(5250) - A(8367) = RCT(8367)*V(1156) - A(8368) = RCT(8368)*V(2420)*V(5256) - A(8369) = RCT(8369)*V(2420)*V(5250) - A(8370) = RCT(8370)*V(3127)*V(5256) - A(8371) = RCT(8371)*V(3127)*V(5250) - A(8372) = RCT(8372)*V(4054)*V(5255) - A(8373) = RCT(8373)*V(4054)*V(5252) - A(8374) = RCT(8374)*V(4054)*V(5256) - A(8375) = RCT(8375)*V(4054) - A(8376) = RCT(8376)*V(5199) - A(8377) = RCT(8377)*V(5199) - A(8378) = RCT(8378)*V(5199)*V(5256) - A(8379) = RCT(8379)*V(5199)*V(5250) - A(8380) = RCT(8380)*V(4632)*V(5253) - A(8381) = RCT(8381)*V(4632)*V(5258) - A(8382) = RCT(8382)*V(843)*V(5250) - A(8383) = RCT(8383)*V(843) - A(8384) = RCT(8384)*V(2281)*V(5256) - A(8385) = RCT(8385)*V(2281)*V(5250) - A(8386) = RCT(8386)*V(3116)*V(5256) - A(8387) = RCT(8387)*V(3116)*V(5250) - A(8388) = RCT(8388)*V(4035)*V(5255) - A(8389) = RCT(8389)*V(4035)*V(5252) - A(8390) = RCT(8390)*V(4035)*V(5256) - A(8391) = RCT(8391)*V(4035) - A(8392) = RCT(8392)*V(4703)*V(5255) - A(8393) = RCT(8393)*V(4703)*V(5252) - A(8394) = RCT(8394)*V(4703)*V(5256) - A(8395) = RCT(8395)*V(4703) - A(8396) = RCT(8396)*V(4703) - A(8397) = RCT(8397)*V(4703) - A(8398) = RCT(8398)*V(4663)*V(5253) - A(8399) = RCT(8399)*V(4663)*V(5258) - A(8400) = RCT(8400)*V(852)*V(5250) - A(8401) = RCT(8401)*V(852) - A(8402) = RCT(8402)*V(2390)*V(5256) - A(8403) = RCT(8403)*V(2390)*V(5250) - A(8404) = RCT(8404)*V(3087)*V(5256) - A(8405) = RCT(8405)*V(3087)*V(5250) - A(8406) = RCT(8406)*V(4064)*V(5255) - A(8407) = RCT(8407)*V(4064)*V(5252) - A(8408) = RCT(8408)*V(4064)*V(5256) - A(8409) = RCT(8409)*V(4064) - A(8410) = RCT(8410)*V(2690)*V(5250) - A(8411) = RCT(8411)*V(2690) - A(8412) = RCT(8412)*V(2690) - A(8413) = RCT(8413)*V(801) - A(8414) = RCT(8414)*V(1735)*V(5250) - A(8415) = RCT(8415)*V(1735) - A(8416) = RCT(8416)*V(1797)*V(5250) - A(8417) = RCT(8417)*V(1797) - A(8418) = RCT(8418)*V(4946)*V(5255) - A(8419) = RCT(8419)*V(4946)*V(5255) - A(8420) = RCT(8420)*V(4946)*V(5255) - A(8421) = RCT(8421)*V(4946)*V(5252) - A(8422) = RCT(8422)*V(4946)*V(5253) - A(8423) = RCT(8423)*V(4946)*V(5256) - A(8424) = RCT(8424)*V(4946) - A(8425) = RCT(8425)*V(4946) - A(8426) = RCT(8426)*V(3853)*V(5255) - A(8427) = RCT(8427)*V(3853)*V(5252) - A(8428) = RCT(8428)*V(3853)*V(5256) - A(8429) = RCT(8429)*V(3853) - A(8430) = RCT(8430)*V(3853) - A(8431) = RCT(8431)*V(3687)*V(5255) - A(8432) = RCT(8432)*V(3687)*V(5252) - A(8433) = RCT(8433)*V(3687)*V(5256) - A(8434) = RCT(8434)*V(3687) - A(8435) = RCT(8435)*V(4920)*V(5255) - A(8436) = RCT(8436)*V(4920)*V(5252) - A(8437) = RCT(8437)*V(4920)*V(5256) - A(8438) = RCT(8438)*V(4920) - A(8439) = RCT(8439)*V(4920) - A(8440) = RCT(8440)*V(4920) - A(8441) = RCT(8441)*V(3788)*V(5255) - A(8442) = RCT(8442)*V(3788)*V(5252) - A(8443) = RCT(8443)*V(3788)*V(5256) - A(8444) = RCT(8444)*V(3788) - A(8445) = RCT(8445)*V(3788) - A(8446) = RCT(8446)*V(4401)*V(5250) - A(8447) = RCT(8447)*V(4401) - A(8448) = RCT(8448)*V(4401) - A(8449) = RCT(8449)*V(2900)*V(5250) - A(8450) = RCT(8450)*V(2900) - A(8451) = RCT(8451)*V(2900) - A(8452) = RCT(8452)*V(717) - A(8453) = RCT(8453)*V(1716)*V(5250) - A(8454) = RCT(8454)*V(1716) - A(8455) = RCT(8455)*V(2134)*V(5250) - A(8456) = RCT(8456)*V(2134) - A(8457) = RCT(8457)*V(1076)*V(5250) - A(8458) = RCT(8458)*V(1076) - A(8459) = RCT(8459)*V(4050)*V(5255) - A(8460) = RCT(8460)*V(4050)*V(5252) - A(8461) = RCT(8461)*V(4050)*V(5256) - A(8462) = RCT(8462)*V(4050) - A(8463) = RCT(8463)*V(3303)*V(5250) - A(8464) = RCT(8464)*V(3303) - A(8465) = RCT(8465)*V(4178)*V(5250) - A(8466) = RCT(8466)*V(4178)*V(5250) - A(8467) = RCT(8467)*V(4178) - A(8468) = RCT(8468)*V(4178) - A(8469) = RCT(8469)*V(2307)*V(5250) - A(8470) = RCT(8470)*V(2307) - A(8471) = RCT(8471)*V(2681)*V(5250) - A(8472) = RCT(8472)*V(2681) - A(8473) = RCT(8473)*V(1256)*V(5250) - A(8474) = RCT(8474)*V(1256) - A(8475) = RCT(8475)*V(1176)*V(5250) - A(8476) = RCT(8476)*V(1176) - A(8477) = RCT(8477)*V(2630)*V(5250) - A(8478) = RCT(8478)*V(2630) - A(8479) = RCT(8479)*V(2971)*V(5250) - A(8480) = RCT(8480)*V(2971) - A(8481) = RCT(8481)*V(2971) - A(8482) = RCT(8482)*V(2238) - A(8483) = RCT(8483)*V(572)*V(5250) - A(8484) = RCT(8484)*V(572) - A(8485) = RCT(8485)*V(2358)*V(5250) - A(8486) = RCT(8486)*V(2358) - A(8487) = RCT(8487)*V(2358) - A(8488) = RCT(8488)*V(750) - A(8489) = RCT(8489)*V(4865)*V(5250) - A(8490) = RCT(8490)*V(4865) - A(8491) = RCT(8491)*V(1917) - A(8492) = RCT(8492)*V(1917) - A(8493) = RCT(8493)*V(1917)*V(5250) - A(8494) = RCT(8494)*V(595) - A(8495) = RCT(8495)*V(2711) - A(8496) = RCT(8496)*V(2711)*V(5250) - A(8497) = RCT(8497)*V(1683) - A(8498) = RCT(8498)*V(1683)*V(5250) - A(8499) = RCT(8499)*V(1969)*V(5250) - A(8500) = RCT(8500)*V(2824) - A(8501) = RCT(8501)*V(2824)*V(5250) - A(8502) = RCT(8502)*V(2531) - A(8503) = RCT(8503)*V(2531)*V(5250) - A(8504) = RCT(8504)*V(4668)*V(5251) - A(8505) = RCT(8505)*V(4668)*V(5252) - A(8506) = RCT(8506)*V(4668)*V(5253) - A(8507) = RCT(8507)*V(4668)*V(5254) - A(8508) = RCT(8508)*V(4668) - A(8509) = RCT(8509)*V(4668) - A(8510) = RCT(8510)*V(3459) - A(8511) = RCT(8511)*V(3459) - A(8512) = RCT(8512)*V(3459)*V(5250) - A(8513) = RCT(8513)*V(2112) - A(8514) = RCT(8514)*V(1644) - A(8515) = RCT(8515)*V(1644)*V(5250) - A(8516) = RCT(8516)*V(3483) - A(8517) = RCT(8517)*V(3483)*V(5256) - A(8518) = RCT(8518)*V(3483)*V(5250) - A(8519) = RCT(8519)*V(1851)*V(5250) - A(8520) = RCT(8520)*V(2494) - A(8521) = RCT(8521)*V(2494)*V(5250) - A(8522) = RCT(8522)*V(2796) - A(8523) = RCT(8523)*V(2796)*V(5250) - A(8524) = RCT(8524)*V(4999)*V(5251) - A(8525) = RCT(8525)*V(4999)*V(5252) - A(8526) = RCT(8526)*V(4999)*V(5253) - A(8527) = RCT(8527)*V(4999)*V(5254) - A(8528) = RCT(8528)*V(4999) - A(8529) = RCT(8529)*V(4999) - A(8530) = RCT(8530)*V(1098) - A(8531) = RCT(8531)*V(1098)*V(5250) - A(8532) = RCT(8532)*V(991)*V(5250) - A(8533) = RCT(8533)*V(2816) - A(8534) = RCT(8534)*V(1626) - A(8535) = RCT(8535)*V(1626)*V(5250) - A(8536) = RCT(8536)*V(4851) - A(8537) = RCT(8537)*V(4851)*V(5256) - A(8538) = RCT(8538)*V(4851)*V(5250) - A(8539) = RCT(8539)*V(4776)*V(5251) - A(8540) = RCT(8540)*V(4776)*V(5252) - A(8541) = RCT(8541)*V(4776)*V(5253) - A(8542) = RCT(8542)*V(4776)*V(5254) - A(8543) = RCT(8543)*V(4776) - A(8544) = RCT(8544)*V(4776) - A(8545) = RCT(8545)*V(1220)*V(5250) - A(8546) = RCT(8546)*V(1220) - A(8547) = RCT(8547)*V(1529)*V(5250) - A(8548) = RCT(8548)*V(2596) - A(8549) = RCT(8549)*V(3608)*V(5250) - A(8550) = RCT(8550)*V(3608) - A(8551) = RCT(8551)*V(2695)*V(5250) - A(8552) = RCT(8552)*V(2695) - A(8553) = RCT(8553)*V(2695) - A(8554) = RCT(8554)*V(656) - A(8555) = RCT(8555)*V(2043)*V(5250) - A(8556) = RCT(8556)*V(2043) - A(8557) = RCT(8557)*V(2431) - A(8558) = RCT(8558)*V(2431)*V(5250) - A(8559) = RCT(8559)*V(2801) - A(8560) = RCT(8560)*V(2801)*V(5250) - A(8561) = RCT(8561)*V(4282)*V(5251) - A(8562) = RCT(8562)*V(4282)*V(5252) - A(8563) = RCT(8563)*V(4282)*V(5253) - A(8564) = RCT(8564)*V(4282)*V(5254) - A(8565) = RCT(8565)*V(4282) - A(8566) = RCT(8566)*V(2147) - A(8567) = RCT(8567)*V(2147)*V(5250) - A(8568) = RCT(8568)*V(2147)*V(5250) - A(8569) = RCT(8569)*V(3835)*V(5250) - A(8570) = RCT(8570)*V(3835)*V(5250) - A(8571) = RCT(8571)*V(3835)*V(5250) - A(8572) = RCT(8572)*V(2717) - A(8573) = RCT(8573)*V(3628) - A(8574) = RCT(8574)*V(3628)*V(5250) - A(8575) = RCT(8575)*V(463)*V(5250) - A(8576) = RCT(8576)*V(2191)*V(5250) - A(8577) = RCT(8577)*V(3033) - A(8578) = RCT(8578)*V(3033)*V(5250) - A(8579) = RCT(8579)*V(2670) - A(8580) = RCT(8580)*V(2670)*V(5250) - A(8581) = RCT(8581)*V(4213)*V(5251) - A(8582) = RCT(8582)*V(4213)*V(5252) - A(8583) = RCT(8583)*V(4213)*V(5253) - A(8584) = RCT(8584)*V(4213)*V(5254) - A(8585) = RCT(8585)*V(4213) - A(8586) = RCT(8586)*V(1438) - A(8587) = RCT(8587)*V(1438)*V(5250) - A(8588) = RCT(8588)*V(2545) - A(8589) = RCT(8589)*V(55)*V(5250) - A(8590) = RCT(8590)*V(3933)*V(5250) - A(8591) = RCT(8591)*V(3933) - A(8592) = RCT(8592)*V(391)*V(5250) - A(8593) = RCT(8593)*V(4321)*V(5255) - A(8594) = RCT(8594)*V(4321)*V(5252) - A(8595) = RCT(8595)*V(4321)*V(5252) - A(8596) = RCT(8596)*V(4321)*V(5256) - A(8597) = RCT(8597)*V(4321) - A(8598) = RCT(8598)*V(4321) - A(8599) = RCT(8599)*V(4832)*V(5256) - A(8600) = RCT(8600)*V(4832)*V(5258) - A(8601) = RCT(8601)*V(4832)*V(5250) - A(8602) = RCT(8602)*V(819) - A(8603) = RCT(8603)*V(819) - A(8604) = RCT(8604)*V(1795) - A(8605) = RCT(8605)*V(1795) - A(8606) = RCT(8606)*V(3707)*V(5250) - A(8607) = RCT(8607)*V(3707) - A(8608) = RCT(8608)*V(3707) - A(8609) = RCT(8609)*V(3707) - A(8610) = RCT(8610)*V(1346) - A(8611) = RCT(8611)*V(3464)*V(5250) - A(8612) = RCT(8612)*V(3464)*V(5250) - A(8613) = RCT(8613)*V(3464) - A(8614) = RCT(8614)*V(3464) - A(8615) = RCT(8615)*V(4805)*V(5258) - A(8616) = RCT(8616)*V(4805)*V(5258) - A(8617) = RCT(8617)*V(4805)*V(5250) - A(8618) = RCT(8618)*V(4805) - A(8619) = RCT(8619)*V(29) - A(8620) = RCT(8620)*V(3693)*V(5250) - A(8621) = RCT(8621)*V(3693) - A(8622) = RCT(8622)*V(3693) - A(8623) = RCT(8623)*V(1558)*V(5250) - A(8624) = RCT(8624)*V(1558) - A(8625) = RCT(8625)*V(5025)*V(5255) - A(8626) = RCT(8626)*V(5025)*V(5255) - A(8627) = RCT(8627)*V(5025)*V(5255) - A(8628) = RCT(8628)*V(5025)*V(5252) - A(8629) = RCT(8629)*V(5025)*V(5253) - A(8630) = RCT(8630)*V(5025)*V(5256) - A(8631) = RCT(8631)*V(5025) - A(8632) = RCT(8632)*V(5025) - A(8633) = RCT(8633)*V(5025) - A(8634) = RCT(8634)*V(5035)*V(5255) - A(8635) = RCT(8635)*V(5035)*V(5252) - A(8636) = RCT(8636)*V(5035)*V(5252) - A(8637) = RCT(8637)*V(5035)*V(5256) - A(8638) = RCT(8638)*V(5035) - A(8639) = RCT(8639)*V(5035) - A(8640) = RCT(8640)*V(3428)*V(5250) - A(8641) = RCT(8641)*V(3428)*V(5250) - A(8642) = RCT(8642)*V(3428)*V(5250) - A(8643) = RCT(8643)*V(3428)*V(5250) - A(8644) = RCT(8644)*V(3428)*V(5250) - A(8645) = RCT(8645)*V(2489) - A(8646) = RCT(8646)*V(2489) - A(8647) = RCT(8647)*V(2489) - A(8648) = RCT(8648)*V(2489) - A(8649) = RCT(8649)*V(5074)*V(5255) - A(8650) = RCT(8650)*V(5074)*V(5252) - A(8651) = RCT(8651)*V(5074)*V(5252) - A(8652) = RCT(8652)*V(5074)*V(5256) - A(8653) = RCT(8653)*V(5074) - A(8654) = RCT(8654)*V(5074) - A(8655) = RCT(8655)*V(5074) - A(8656) = RCT(8656)*V(5154)*V(5255) - A(8657) = RCT(8657)*V(5154)*V(5252) - A(8658) = RCT(8658)*V(5154)*V(5252) - A(8659) = RCT(8659)*V(5154) - A(8660) = RCT(8660)*V(5154) - A(8661) = RCT(8661)*V(5154) - A(8662) = RCT(8662)*V(678)*V(5250) - A(8663) = RCT(8663)*V(678)*V(5250) - A(8664) = RCT(8664)*V(3801)*V(5255) - A(8665) = RCT(8665)*V(3801)*V(5252) - A(8666) = RCT(8666)*V(3801)*V(5252) - A(8667) = RCT(8667)*V(3801)*V(5256) - A(8668) = RCT(8668)*V(3801) - A(8669) = RCT(8669)*V(3801) - A(8670) = RCT(8670)*V(3524)*V(5250) - A(8671) = RCT(8671)*V(3524) - A(8672) = RCT(8672)*V(3524) - A(8673) = RCT(8673)*V(3524) - A(8674) = RCT(8674)*V(1246) - A(8675) = RCT(8675)*V(4749)*V(5250) - A(8676) = RCT(8676)*V(4749)*V(5250) - A(8677) = RCT(8677)*V(4749) - A(8678) = RCT(8678)*V(4749) - A(8679) = RCT(8679)*V(4749) - A(8680) = RCT(8680)*V(4570)*V(5258) - A(8681) = RCT(8681)*V(4570)*V(5258) - A(8682) = RCT(8682)*V(4570)*V(5250) - A(8683) = RCT(8683)*V(4570) - A(8684) = RCT(8684)*V(19) - A(8685) = RCT(8685)*V(4339)*V(5255) - A(8686) = RCT(8686)*V(4339)*V(5252) - A(8687) = RCT(8687)*V(4339)*V(5256) - A(8688) = RCT(8688)*V(4339) - A(8689) = RCT(8689)*V(1682)*V(5250) - A(8690) = RCT(8690)*V(1682) - A(8691) = RCT(8691)*V(5033)*V(5255) - A(8692) = RCT(8692)*V(5033)*V(5255) - A(8693) = RCT(8693)*V(5033)*V(5255) - A(8694) = RCT(8694)*V(5033)*V(5252) - A(8695) = RCT(8695)*V(5033)*V(5253) - A(8696) = RCT(8696)*V(5033)*V(5256) - A(8697) = RCT(8697)*V(5033) - A(8698) = RCT(8698)*V(5033) - A(8699) = RCT(8699)*V(5033) - A(8700) = RCT(8700)*V(4711)*V(5255) - A(8701) = RCT(8701)*V(4711)*V(5252) - A(8702) = RCT(8702)*V(4711)*V(5252) - A(8703) = RCT(8703)*V(4711)*V(5256) - A(8704) = RCT(8704)*V(4711) - A(8705) = RCT(8705)*V(5174)*V(5255) - A(8706) = RCT(8706)*V(5174)*V(5252) - A(8707) = RCT(8707)*V(5174)*V(5252) - A(8708) = RCT(8708)*V(5174)*V(5256) - A(8709) = RCT(8709)*V(5174) - A(8710) = RCT(8710)*V(5174) - A(8711) = RCT(8711)*V(5174) - A(8712) = RCT(8712)*V(790) - A(8713) = RCT(8713)*V(790) - A(8714) = RCT(8714)*V(5022)*V(5255) - A(8715) = RCT(8715)*V(5022)*V(5252) - A(8716) = RCT(8716)*V(5022)*V(5252) - A(8717) = RCT(8717)*V(5022)*V(5256) - A(8718) = RCT(8718)*V(5022) - A(8719) = RCT(8719)*V(5022) - A(8720) = RCT(8720)*V(5134)*V(5255) - A(8721) = RCT(8721)*V(5134)*V(5252) - A(8722) = RCT(8722)*V(5134)*V(5256) - A(8723) = RCT(8723)*V(5134) - A(8724) = RCT(8724)*V(3552) - A(8725) = RCT(8725)*V(3552)*V(5250) - A(8726) = RCT(8726)*V(3552)*V(5250) - A(8727) = RCT(8727)*V(4945)*V(5250) - A(8728) = RCT(8728)*V(4945)*V(5250) - A(8729) = RCT(8729)*V(4945)*V(5250) - A(8730) = RCT(8730)*V(4945)*V(5250) - A(8731) = RCT(8731)*V(4945)*V(5250) - A(8732) = RCT(8732)*V(2162) - A(8733) = RCT(8733)*V(458)*V(5250) - A(8734) = RCT(8734)*V(4556)*V(5251) - A(8735) = RCT(8735)*V(4556)*V(5252) - A(8736) = RCT(8736)*V(4556)*V(5253) - A(8737) = RCT(8737)*V(4556)*V(5254) - A(8738) = RCT(8738)*V(4556) - A(8739) = RCT(8739)*V(2236) - A(8740) = RCT(8740)*V(2236)*V(5250) - A(8741) = RCT(8741)*V(4256) - A(8742) = RCT(8742)*V(4256)*V(5250) - A(8743) = RCT(8743)*V(3080) - A(8744) = RCT(8744)*V(70)*V(5250) - A(8745) = RCT(8745)*V(2402)*V(5250) - A(8746) = RCT(8746)*V(2402) - A(8747) = RCT(8747)*V(2576)*V(5250) - A(8748) = RCT(8748)*V(2576) - A(8749) = RCT(8749)*V(114)*V(5250) - A(8750) = RCT(8750)*V(4939) - A(8751) = RCT(8751)*V(4939)*V(5256) - A(8752) = RCT(8752)*V(4939)*V(5250) - A(8753) = RCT(8753)*V(5091)*V(5255) - A(8754) = RCT(8754)*V(5091)*V(5252) - A(8755) = RCT(8755)*V(5091)*V(5252) - A(8756) = RCT(8756)*V(5091)*V(5256) - A(8757) = RCT(8757)*V(5091) - A(8758) = RCT(8758)*V(5091) - A(8759) = RCT(8759)*V(5091) - A(8760) = RCT(8760)*V(5091) - A(8761) = RCT(8761)*V(2156)*V(5250) - A(8762) = RCT(8762)*V(2156)*V(5250) - A(8763) = RCT(8763)*V(2156) - A(8764) = RCT(8764)*V(2461)*V(5250) - A(8765) = RCT(8765)*V(2461) - A(8766) = RCT(8766)*V(3344) - A(8767) = RCT(8767)*V(3344) - A(8768) = RCT(8768)*V(319)*V(5250) - A(8769) = RCT(8769)*V(3626)*V(5250) - A(8770) = RCT(8770)*V(2187)*V(5250) - A(8771) = RCT(8771)*V(2187)*V(5250) - A(8772) = RCT(8772)*V(2187) - A(8773) = RCT(8773)*V(2375)*V(5250) - A(8774) = RCT(8774)*V(2375) - A(8775) = RCT(8775)*V(1743) - A(8776) = RCT(8776)*V(4231)*V(5256) - A(8777) = RCT(8777)*V(4231)*V(5250) - A(8778) = RCT(8778)*V(4231) - A(8779) = RCT(8779)*V(2716)*V(5250) - A(8780) = RCT(8780)*V(2260)*V(5250) - A(8781) = RCT(8781)*V(2260)*V(5250) - A(8782) = RCT(8782)*V(2260) - A(8783) = RCT(8783)*V(51) - A(8784) = RCT(8784)*V(3510)*V(5256) - A(8785) = RCT(8785)*V(3510)*V(5250) - A(8786) = RCT(8786)*V(3510) - A(8787) = RCT(8787)*V(1870)*V(5250) - A(8788) = RCT(8788)*V(2753)*V(5250) - A(8789) = RCT(8789)*V(2753)*V(5250) - A(8790) = RCT(8790)*V(2753) - A(8791) = RCT(8791)*V(1728)*V(5250) - A(8792) = RCT(8792)*V(2672)*V(5250) - A(8793) = RCT(8793)*V(2672) - A(8794) = RCT(8794)*V(1553) - A(8795) = RCT(8795)*V(208)*V(5250) - A(8796) = RCT(8796)*V(4612)*V(5255) - A(8797) = RCT(8797)*V(4612)*V(5255) - A(8798) = RCT(8798)*V(4612)*V(5252) - A(8799) = RCT(8799)*V(4612)*V(5252) - A(8800) = RCT(8800)*V(4612)*V(5256) - A(8801) = RCT(8801)*V(4612) - A(8802) = RCT(8802)*V(4612) - A(8803) = RCT(8803)*V(4612) - A(8804) = RCT(8804)*V(1449)*V(5250) - A(8805) = RCT(8805)*V(1449) - A(8806) = RCT(8806)*V(1864)*V(5250) - A(8807) = RCT(8807)*V(1864) - A(8808) = RCT(8808)*V(1865) - A(8809) = RCT(8809)*V(471)*V(5250) - A(8810) = RCT(8810)*V(1869)*V(5250) - A(8811) = RCT(8811)*V(1869) - A(8812) = RCT(8812)*V(2954) - A(8813) = RCT(8813)*V(2405)*V(5250) - A(8814) = RCT(8814)*V(2405) - A(8815) = RCT(8815)*V(321)*V(5250) - A(8816) = RCT(8816)*V(1160)*V(5250) - A(8817) = RCT(8817)*V(1160) - A(8818) = RCT(8818)*V(3405) - A(8819) = RCT(8819)*V(1952)*V(5250) - A(8820) = RCT(8820)*V(1952) - A(8821) = RCT(8821)*V(381)*V(5250) - A(8822) = RCT(8822)*V(309)*V(5250) - A(8823) = RCT(8823)*V(1064)*V(5250) - A(8824) = RCT(8824)*V(1064) - A(8825) = RCT(8825)*V(2757)*V(5250) - A(8826) = RCT(8826)*V(2757) - A(8827) = RCT(8827)*V(3049)*V(5250) - A(8828) = RCT(8828)*V(3049)*V(5250) - A(8829) = RCT(8829)*V(3049) - A(8830) = RCT(8830)*V(665) - A(8831) = RCT(8831)*V(3682)*V(5250) - A(8832) = RCT(8832)*V(3682) - A(8833) = RCT(8833)*V(4239)*V(5256) - A(8834) = RCT(8834)*V(4239)*V(5250) - A(8835) = RCT(8835)*V(4239) - A(8836) = RCT(8836)*V(3708) - A(8837) = RCT(8837)*V(3708)*V(5250) - A(8838) = RCT(8838)*V(3708)*V(5250) - A(8839) = RCT(8839)*V(1825) - A(8840) = RCT(8840)*V(1938)*V(5250) - A(8841) = RCT(8841)*V(1938)*V(5250) - A(8842) = RCT(8842)*V(1938) - A(8843) = RCT(8843)*V(2000) - A(8844) = RCT(8844)*V(1655)*V(5250) - A(8845) = RCT(8845)*V(1655) - A(8846) = RCT(8846)*V(3683)*V(5250) - A(8847) = RCT(8847)*V(3683) - A(8848) = RCT(8848)*V(1099)*V(5250) - A(8849) = RCT(8849)*V(1099) - A(8850) = RCT(8850)*V(2679) - A(8851) = RCT(8851)*V(2424)*V(5250) - A(8852) = RCT(8852)*V(2424) - A(8853) = RCT(8853)*V(2424) - A(8854) = RCT(8854)*V(600) - A(8855) = RCT(8855)*V(1646)*V(5250) - A(8856) = RCT(8856)*V(1646) - A(8857) = RCT(8857)*V(4392) - A(8858) = RCT(8858)*V(4392)*V(5250) - A(8859) = RCT(8859)*V(3287) - A(8860) = RCT(8860)*V(3287) - A(8861) = RCT(8861)*V(3287)*V(5250) - A(8862) = RCT(8862)*V(3287)*V(5250) - A(8863) = RCT(8863)*V(689) - A(8864) = RCT(8864)*V(1658) - A(8865) = RCT(8865)*V(1658)*V(5250) - A(8866) = RCT(8866)*V(2395) - A(8867) = RCT(8867)*V(2395)*V(5250) - A(8868) = RCT(8868)*V(2397) - A(8869) = RCT(8869)*V(2397)*V(5250) - A(8870) = RCT(8870)*V(3031) - A(8871) = RCT(8871)*V(3031) - A(8872) = RCT(8872)*V(3031)*V(5250) - A(8873) = RCT(8873)*V(2883) - A(8874) = RCT(8874)*V(2883)*V(5250) - A(8875) = RCT(8875)*V(1212)*V(5250) - A(8876) = RCT(8876)*V(1212) - A(8877) = RCT(8877)*V(2190) - A(8878) = RCT(8878)*V(2618)*V(5250) - A(8879) = RCT(8879)*V(2618)*V(5250) - A(8880) = RCT(8880)*V(2618) - A(8881) = RCT(8881)*V(2618) - A(8882) = RCT(8882)*V(610) - A(8883) = RCT(8883)*V(2428) - A(8884) = RCT(8884)*V(2428) - A(8885) = RCT(8885)*V(2428)*V(5250) - A(8886) = RCT(8886)*V(682) - A(8887) = RCT(8887)*V(5110) - A(8888) = RCT(8888)*V(5110) - A(8889) = RCT(8889)*V(5110)*V(5250) - A(8890) = RCT(8890)*V(1566) - A(8891) = RCT(8891)*V(1566)*V(5250) - A(8892) = RCT(8892)*V(2247) - A(8893) = RCT(8893)*V(2247)*V(5250) - A(8894) = RCT(8894)*V(2247)*V(5250) - A(8895) = RCT(8895)*V(1856) - A(8896) = RCT(8896)*V(1856)*V(5250) - A(8897) = RCT(8897)*V(2939) - A(8898) = RCT(8898)*V(2939) - A(8899) = RCT(8899)*V(1337) - A(8900) = RCT(8900)*V(1337)*V(5250) - A(8901) = RCT(8901)*V(2123) - A(8902) = RCT(8902)*V(2123)*V(5250) - A(8903) = RCT(8903)*V(2528) - A(8904) = RCT(8904)*V(3616) - A(8905) = RCT(8905)*V(3616)*V(5250) - A(8906) = RCT(8906)*V(586) - A(8907) = RCT(8907)*V(586)*V(5250) - A(8908) = RCT(8908)*V(1406)*V(5250) - A(8909) = RCT(8909)*V(1406) - A(8910) = RCT(8910)*V(3346) - A(8911) = RCT(8911)*V(3346) - A(8912) = RCT(8912)*V(2940)*V(5250) - A(8913) = RCT(8913)*V(2940)*V(5250) - A(8914) = RCT(8914)*V(2940) - A(8915) = RCT(8915)*V(1650) - A(8916) = RCT(8916)*V(3756)*V(5250) - A(8917) = RCT(8917)*V(3756) - A(8918) = RCT(8918)*V(1705)*V(5250) - A(8919) = RCT(8919)*V(1705) - A(8920) = RCT(8920)*V(1495)*V(5250) - A(8921) = RCT(8921)*V(1495) - A(8922) = RCT(8922)*V(2692) - A(8923) = RCT(8923)*V(3473)*V(5250) - A(8924) = RCT(8924)*V(3473)*V(5250) - A(8925) = RCT(8925)*V(3473) - A(8926) = RCT(8926)*V(3473) - A(8927) = RCT(8927)*V(749) - A(8928) = RCT(8928)*V(2932)*V(5250) - A(8929) = RCT(8929)*V(2932) - A(8930) = RCT(8930)*V(1601)*V(5250) - A(8931) = RCT(8931)*V(1601) - A(8932) = RCT(8932)*V(1498)*V(5250) - A(8933) = RCT(8933)*V(1498) - A(8934) = RCT(8934)*V(2560)*V(5250) - A(8935) = RCT(8935)*V(2560) - A(8936) = RCT(8936)*V(1217)*V(5250) - A(8937) = RCT(8937)*V(1217) - A(8938) = RCT(8938)*V(1292)*V(5250) - A(8939) = RCT(8939)*V(1292) - A(8940) = RCT(8940)*V(2881) - A(8941) = RCT(8941)*V(3291) - A(8942) = RCT(8942)*V(3291)*V(5250) - A(8943) = RCT(8943)*V(3291)*V(5250) - A(8944) = RCT(8944)*V(1556) - A(8945) = RCT(8945)*V(608) - A(8946) = RCT(8946)*V(608)*V(5250) - A(8947) = RCT(8947)*V(2255) - A(8948) = RCT(8948)*V(2255)*V(5250) - A(8949) = RCT(8949)*V(363)*V(5250) - A(8950) = RCT(8950)*V(1193) - A(8951) = RCT(8951)*V(1193)*V(5250) - A(8952) = RCT(8952)*V(3239) - A(8953) = RCT(8953)*V(3239)*V(5250) - A(8954) = RCT(8954)*V(1935)*V(5250) - A(8955) = RCT(8955)*V(1935) - A(8956) = RCT(8956)*V(557) - A(8957) = RCT(8957)*V(4996)*V(5256) - A(8958) = RCT(8958)*V(4996)*V(5250) - A(8959) = RCT(8959)*V(4996) - A(8960) = RCT(8960)*V(4996) - A(8961) = RCT(8961)*V(3580)*V(5250) - A(8962) = RCT(8962)*V(3580) - A(8963) = RCT(8963)*V(3055)*V(5250) - A(8964) = RCT(8964)*V(3055)*V(5250) - A(8965) = RCT(8965)*V(3055) - A(8966) = RCT(8966)*V(2186) - A(8967) = RCT(8967)*V(2186) - A(8968) = RCT(8968)*V(1777)*V(5250) - A(8969) = RCT(8969)*V(1777) - A(8970) = RCT(8970)*V(3389)*V(5250) - A(8971) = RCT(8971)*V(3389) - A(8972) = RCT(8972)*V(4124)*V(5255) - A(8973) = RCT(8973)*V(4124)*V(5252) - A(8974) = RCT(8974)*V(4124)*V(5252) - A(8975) = RCT(8975)*V(4124)*V(5256) - A(8976) = RCT(8976)*V(4124) - A(8977) = RCT(8977)*V(4124) - A(8978) = RCT(8978)*V(1043)*V(5250) - A(8979) = RCT(8979)*V(1043) - A(8980) = RCT(8980)*V(42) - A(8981) = RCT(8981)*V(1462)*V(5250) - A(8982) = RCT(8982)*V(1462) - A(8983) = RCT(8983)*V(2951)*V(5250) - A(8984) = RCT(8984)*V(2951) - A(8985) = RCT(8985)*V(3955)*V(5255) - A(8986) = RCT(8986)*V(3955)*V(5252) - A(8987) = RCT(8987)*V(3955)*V(5252) - A(8988) = RCT(8988)*V(3955)*V(5256) - A(8989) = RCT(8989)*V(3955) - A(8990) = RCT(8990)*V(3955) - A(8991) = RCT(8991)*V(4910)*V(5255) - A(8992) = RCT(8992)*V(4910)*V(5255) - A(8993) = RCT(8993)*V(4910)*V(5255) - A(8994) = RCT(8994)*V(4910)*V(5252) - A(8995) = RCT(8995)*V(4910)*V(5253) - A(8996) = RCT(8996)*V(4910)*V(5256) - A(8997) = RCT(8997)*V(4910) - A(8998) = RCT(8998)*V(4910) - A(8999) = RCT(8999)*V(4830)*V(5255) - A(9000) = RCT(9000)*V(4830)*V(5255) - A(9001) = RCT(9001)*V(4830)*V(5255) - A(9002) = RCT(9002)*V(4830)*V(5252) - A(9003) = RCT(9003)*V(4830)*V(5253) - A(9004) = RCT(9004)*V(4830)*V(5256) - A(9005) = RCT(9005)*V(4830) - A(9006) = RCT(9006)*V(4830) - A(9007) = RCT(9007)*V(4898)*V(5255) - A(9008) = RCT(9008)*V(4898)*V(5252) - A(9009) = RCT(9009)*V(4898)*V(5256) - A(9010) = RCT(9010)*V(4898) - A(9011) = RCT(9011)*V(3741)*V(5255) - A(9012) = RCT(9012)*V(3741)*V(5252) - A(9013) = RCT(9013)*V(3741)*V(5256) - A(9014) = RCT(9014)*V(3741) - A(9015) = RCT(9015)*V(3741) - A(9016) = RCT(9016)*V(4288)*V(5255) - A(9017) = RCT(9017)*V(4288)*V(5255) - A(9018) = RCT(9018)*V(4288)*V(5252) - A(9019) = RCT(9019)*V(4288)*V(5253) - A(9020) = RCT(9020)*V(4288)*V(5256) - A(9021) = RCT(9021)*V(4288) - A(9022) = RCT(9022)*V(4257)*V(5255) - A(9023) = RCT(9023)*V(4257)*V(5252) - A(9024) = RCT(9024)*V(4257)*V(5256) - A(9025) = RCT(9025)*V(4257) - A(9026) = RCT(9026)*V(4092)*V(5255) - A(9027) = RCT(9027)*V(4092)*V(5252) - A(9028) = RCT(9028)*V(4092)*V(5252) - A(9029) = RCT(9029)*V(4092)*V(5256) - A(9030) = RCT(9030)*V(4092) - A(9031) = RCT(9031)*V(4092) - A(9032) = RCT(9032)*V(1059)*V(5250) - A(9033) = RCT(9033)*V(1059) - A(9034) = RCT(9034)*V(2462)*V(5250) - A(9035) = RCT(9035)*V(2462) - A(9036) = RCT(9036)*V(2324) - A(9037) = RCT(9037)*V(516)*V(5250) - A(9038) = RCT(9038)*V(1770)*V(5250) - A(9039) = RCT(9039)*V(1770) - A(9040) = RCT(9040)*V(2898)*V(5250) - A(9041) = RCT(9041)*V(2898) - A(9042) = RCT(9042)*V(4173)*V(5255) - A(9043) = RCT(9043)*V(4173)*V(5252) - A(9044) = RCT(9044)*V(4173)*V(5252) - A(9045) = RCT(9045)*V(4173)*V(5256) - A(9046) = RCT(9046)*V(4173) - A(9047) = RCT(9047)*V(4173) - A(9048) = RCT(9048)*V(3720)*V(5255) - A(9049) = RCT(9049)*V(3720)*V(5252) - A(9050) = RCT(9050)*V(3720)*V(5252) - A(9051) = RCT(9051)*V(3720)*V(5256) - A(9052) = RCT(9052)*V(3720) - A(9053) = RCT(9053)*V(3720) - A(9054) = RCT(9054)*V(3720) - A(9055) = RCT(9055)*V(4789)*V(5255) - A(9056) = RCT(9056)*V(4789)*V(5252) - A(9057) = RCT(9057)*V(4789)*V(5252) - A(9058) = RCT(9058)*V(4789)*V(5256) - A(9059) = RCT(9059)*V(4789) - A(9060) = RCT(9060)*V(4789) - A(9061) = RCT(9061)*V(4789) - A(9062) = RCT(9062)*V(1696)*V(5250) - A(9063) = RCT(9063)*V(3981)*V(5255) - A(9064) = RCT(9064)*V(3981)*V(5252) - A(9065) = RCT(9065)*V(3981)*V(5252) - A(9066) = RCT(9066)*V(3981)*V(5256) - A(9067) = RCT(9067)*V(3981) - A(9068) = RCT(9068)*V(3981) - A(9069) = RCT(9069)*V(736)*V(5250) - A(9070) = RCT(9070)*V(736) - A(9071) = RCT(9071)*V(1057)*V(5250) - A(9072) = RCT(9072)*V(1057) - A(9073) = RCT(9073)*V(154) - A(9074) = RCT(9074)*V(735)*V(5250) - A(9075) = RCT(9075)*V(344)*V(5250) - A(9076) = RCT(9076)*V(2146)*V(5250) - A(9077) = RCT(9077)*V(2146) - A(9078) = RCT(9078)*V(3017)*V(5250) - A(9079) = RCT(9079)*V(3017) - A(9080) = RCT(9080)*V(3876)*V(5255) - A(9081) = RCT(9081)*V(3876)*V(5252) - A(9082) = RCT(9082)*V(3876)*V(5256) - A(9083) = RCT(9083)*V(3876) - A(9084) = RCT(9084)*V(3876) - A(9085) = RCT(9085)*V(148) - A(9086) = RCT(9086)*V(5176)*V(5256) - A(9087) = RCT(9087)*V(5176)*V(5250) - A(9088) = RCT(9088)*V(5176)*V(5250) - A(9089) = RCT(9089)*V(5176) - A(9090) = RCT(9090)*V(3850)*V(5255) - A(9091) = RCT(9091)*V(3850)*V(5252) - A(9092) = RCT(9092)*V(3850)*V(5252) - A(9093) = RCT(9093)*V(3850)*V(5256) - A(9094) = RCT(9094)*V(3850) - A(9095) = RCT(9095)*V(3850) - A(9096) = RCT(9096)*V(5083)*V(5256) - A(9097) = RCT(9097)*V(5083)*V(5256) - A(9098) = RCT(9098)*V(5083)*V(5258) - A(9099) = RCT(9099)*V(5083)*V(5258) - A(9100) = RCT(9100)*V(5083)*V(5250) - A(9101) = RCT(9101)*V(5083)*V(5250) - A(9102) = RCT(9102)*V(5083) - A(9103) = RCT(9103)*V(4855)*V(5255) - A(9104) = RCT(9104)*V(4855)*V(5255) - A(9105) = RCT(9105)*V(4855)*V(5255) - A(9106) = RCT(9106)*V(4855)*V(5252) - A(9107) = RCT(9107)*V(4855)*V(5253) - A(9108) = RCT(9108)*V(4855)*V(5256) - A(9109) = RCT(9109)*V(4855) - A(9110) = RCT(9110)*V(4855) - A(9111) = RCT(9111)*V(4953)*V(5255) - A(9112) = RCT(9112)*V(4953)*V(5255) - A(9113) = RCT(9113)*V(4953)*V(5255) - A(9114) = RCT(9114)*V(4953)*V(5252) - A(9115) = RCT(9115)*V(4953)*V(5253) - A(9116) = RCT(9116)*V(4953)*V(5256) - A(9117) = RCT(9117)*V(4953) - A(9118) = RCT(9118)*V(4953) - A(9119) = RCT(9119)*V(4567)*V(5255) - A(9120) = RCT(9120)*V(4567)*V(5252) - A(9121) = RCT(9121)*V(4567)*V(5256) - A(9122) = RCT(9122)*V(4567) - A(9123) = RCT(9123)*V(4567) - A(9124) = RCT(9124)*V(4567) - A(9125) = RCT(9125)*V(4891)*V(5255) - A(9126) = RCT(9126)*V(4891)*V(5255) - A(9127) = RCT(9127)*V(4891)*V(5252) - A(9128) = RCT(9128)*V(4891)*V(5253) - A(9129) = RCT(9129)*V(4891)*V(5256) - A(9130) = RCT(9130)*V(4891) - A(9131) = RCT(9131)*V(3907)*V(5255) - A(9132) = RCT(9132)*V(3907)*V(5252) - A(9133) = RCT(9133)*V(3907)*V(5256) - A(9134) = RCT(9134)*V(3907) - A(9135) = RCT(9135)*V(4781)*V(5255) - A(9136) = RCT(9136)*V(4781)*V(5252) - A(9137) = RCT(9137)*V(4781)*V(5256) - A(9138) = RCT(9138)*V(4781) - A(9139) = RCT(9139)*V(985)*V(5250) - A(9140) = RCT(9140)*V(985) - A(9141) = RCT(9141)*V(2593)*V(5250) - A(9142) = RCT(9142)*V(2593) - A(9143) = RCT(9143)*V(3969)*V(5255) - A(9144) = RCT(9144)*V(3969)*V(5252) - A(9145) = RCT(9145)*V(3969)*V(5256) - A(9146) = RCT(9146)*V(3969) - A(9147) = RCT(9147)*V(3969) - A(9148) = RCT(9148)*V(224) - A(9149) = RCT(9149)*V(224) - A(9150) = RCT(9150)*V(612) - A(9151) = RCT(9151)*V(612) - A(9152) = RCT(9152)*V(3872)*V(5255) - A(9153) = RCT(9153)*V(3872)*V(5252) - A(9154) = RCT(9154)*V(3872)*V(5252) - A(9155) = RCT(9155)*V(3872)*V(5256) - A(9156) = RCT(9156)*V(3872) - A(9157) = RCT(9157)*V(3872) - A(9158) = RCT(9158)*V(3927)*V(5255) - A(9159) = RCT(9159)*V(3927)*V(5252) - A(9160) = RCT(9160)*V(3927)*V(5252) - A(9161) = RCT(9161)*V(3927)*V(5256) - A(9162) = RCT(9162)*V(3927) - A(9163) = RCT(9163)*V(3927) - A(9164) = RCT(9164)*V(3927) - A(9165) = RCT(9165)*V(1251)*V(5250) - A(9166) = RCT(9166)*V(1251) - A(9167) = RCT(9167)*V(2587)*V(5250) - A(9168) = RCT(9168)*V(2587) - A(9169) = RCT(9169)*V(885)*V(5250) - A(9170) = RCT(9170)*V(885) - A(9171) = RCT(9171)*V(3074) - A(9172) = RCT(9172)*V(621)*V(5250) - A(9173) = RCT(9173)*V(4264)*V(5251) - A(9174) = RCT(9174)*V(4264)*V(5252) - A(9175) = RCT(9175)*V(4264)*V(5253) - A(9176) = RCT(9176)*V(4264)*V(5254) - A(9177) = RCT(9177)*V(4264) - A(9178) = RCT(9178)*V(4762)*V(5255) - A(9179) = RCT(9179)*V(4762)*V(5252) - A(9180) = RCT(9180)*V(4762)*V(5256) - A(9181) = RCT(9181)*V(4762) - A(9182) = RCT(9182)*V(4762) - A(9183) = RCT(9183)*V(4762) - A(9184) = RCT(9184)*V(4921)*V(5255) - A(9185) = RCT(9185)*V(4921)*V(5255) - A(9186) = RCT(9186)*V(4921)*V(5255) - A(9187) = RCT(9187)*V(4921)*V(5252) - A(9188) = RCT(9188)*V(4921)*V(5253) - A(9189) = RCT(9189)*V(4921)*V(5256) - A(9190) = RCT(9190)*V(4921) - A(9191) = RCT(9191)*V(4921) - A(9192) = RCT(9192)*V(5028)*V(5255) - A(9193) = RCT(9193)*V(5028)*V(5252) - A(9194) = RCT(9194)*V(5028)*V(5256) - A(9195) = RCT(9195)*V(5028) - A(9196) = RCT(9196)*V(5028) - A(9197) = RCT(9197)*V(5028) - A(9198) = RCT(9198)*V(4761)*V(5255) - A(9199) = RCT(9199)*V(4761)*V(5252) - A(9200) = RCT(9200)*V(4761)*V(5256) - A(9201) = RCT(9201)*V(4761) - A(9202) = RCT(9202)*V(4761) - A(9203) = RCT(9203)*V(4761) - A(9204) = RCT(9204)*V(4542)*V(5255) - A(9205) = RCT(9205)*V(4542)*V(5252) - A(9206) = RCT(9206)*V(4542)*V(5256) - A(9207) = RCT(9207)*V(4542) - A(9208) = RCT(9208)*V(4542) - A(9209) = RCT(9209)*V(4542) - A(9210) = RCT(9210)*V(4940)*V(5255) - A(9211) = RCT(9211)*V(4940)*V(5252) - A(9212) = RCT(9212)*V(4940)*V(5252) - A(9213) = RCT(9213)*V(4940)*V(5256) - A(9214) = RCT(9214)*V(4940) - A(9215) = RCT(9215)*V(4940) - A(9216) = RCT(9216)*V(4940) - A(9217) = RCT(9217)*V(1314)*V(5250) - A(9218) = RCT(9218)*V(1314) - A(9219) = RCT(9219)*V(1918)*V(5250) - A(9220) = RCT(9220)*V(3039) - A(9221) = RCT(9221)*V(667)*V(5250) - A(9222) = RCT(9222)*V(1993)*V(5250) - A(9223) = RCT(9223)*V(1993) - A(9224) = RCT(9224)*V(2254)*V(5250) - A(9225) = RCT(9225)*V(3037) - A(9226) = RCT(9226)*V(580)*V(5250) - A(9227) = RCT(9227)*V(5039)*V(5255) - A(9228) = RCT(9228)*V(5039)*V(5252) - A(9229) = RCT(9229)*V(5039)*V(5256) - A(9230) = RCT(9230)*V(5039) - A(9231) = RCT(9231)*V(5039) - A(9232) = RCT(9232)*V(5039) - A(9233) = RCT(9233)*V(4526)*V(5251) - A(9234) = RCT(9234)*V(4526)*V(5252) - A(9235) = RCT(9235)*V(4526)*V(5253) - A(9236) = RCT(9236)*V(4526)*V(5254) - A(9237) = RCT(9237)*V(4526) - A(9238) = RCT(9238)*V(1758)*V(5250) - A(9239) = RCT(9239)*V(1758) - A(9240) = RCT(9240)*V(2347)*V(5250) - A(9241) = RCT(9241)*V(2744) - A(9242) = RCT(9242)*V(536)*V(5250) - A(9243) = RCT(9243)*V(5014)*V(5255) - A(9244) = RCT(9244)*V(5014)*V(5255) - A(9245) = RCT(9245)*V(5014)*V(5255) - A(9246) = RCT(9246)*V(5014)*V(5252) - A(9247) = RCT(9247)*V(5014)*V(5253) - A(9248) = RCT(9248)*V(5014)*V(5256) - A(9249) = RCT(9249)*V(5014) - A(9250) = RCT(9250)*V(5014) - A(9251) = RCT(9251)*V(4989)*V(5255) - A(9252) = RCT(9252)*V(4989)*V(5255) - A(9253) = RCT(9253)*V(4989)*V(5255) - A(9254) = RCT(9254)*V(4989)*V(5252) - A(9255) = RCT(9255)*V(4989)*V(5253) - A(9256) = RCT(9256)*V(4989)*V(5256) - A(9257) = RCT(9257)*V(4989) - A(9258) = RCT(9258)*V(4989) - A(9259) = RCT(9259)*V(4757)*V(5251) - A(9260) = RCT(9260)*V(4757)*V(5252) - A(9261) = RCT(9261)*V(4757)*V(5253) - A(9262) = RCT(9262)*V(4757)*V(5254) - A(9263) = RCT(9263)*V(4757) - A(9264) = RCT(9264)*V(5122)*V(5255) - A(9265) = RCT(9265)*V(5122)*V(5252) - A(9266) = RCT(9266)*V(5122)*V(5256) - A(9267) = RCT(9267)*V(5122) - A(9268) = RCT(9268)*V(5122) - A(9269) = RCT(9269)*V(5122) - A(9270) = RCT(9270)*V(2373)*V(5250) - A(9271) = RCT(9271)*V(2373) - A(9272) = RCT(9272)*V(2280)*V(5250) - A(9273) = RCT(9273)*V(2008) - A(9274) = RCT(9274)*V(694)*V(5250) - A(9275) = RCT(9275)*V(3901)*V(5255) - A(9276) = RCT(9276)*V(3901)*V(5252) - A(9277) = RCT(9277)*V(3901)*V(5252) - A(9278) = RCT(9278)*V(3901)*V(5256) - A(9279) = RCT(9279)*V(3901) - A(9280) = RCT(9280)*V(3901) - A(9281) = RCT(9281)*V(3928)*V(5255) - A(9282) = RCT(9282)*V(3928)*V(5252) - A(9283) = RCT(9283)*V(3928)*V(5256) - A(9284) = RCT(9284)*V(3928) - A(9285) = RCT(9285)*V(3928) - A(9286) = RCT(9286)*V(5240)*V(5256) - A(9287) = RCT(9287)*V(5240)*V(5250) - A(9288) = RCT(9288)*V(5240) - A(9289) = RCT(9289)*V(522) - A(9290) = RCT(9290)*V(522) - A(9291) = RCT(9291)*V(3886)*V(5255) - A(9292) = RCT(9292)*V(3886)*V(5252) - A(9293) = RCT(9293)*V(3886)*V(5252) - A(9294) = RCT(9294)*V(3886)*V(5256) - A(9295) = RCT(9295)*V(3886) - A(9296) = RCT(9296)*V(3886) - A(9297) = RCT(9297)*V(4088)*V(5255) - A(9298) = RCT(9298)*V(4088)*V(5252) - A(9299) = RCT(9299)*V(4088)*V(5252) - A(9300) = RCT(9300)*V(4088)*V(5256) - A(9301) = RCT(9301)*V(4088) - A(9302) = RCT(9302)*V(4088) - A(9303) = RCT(9303)*V(4088) - A(9304) = RCT(9304)*V(4745)*V(5255) - A(9305) = RCT(9305)*V(4745)*V(5252) - A(9306) = RCT(9306)*V(4745)*V(5256) - A(9307) = RCT(9307)*V(4745) - A(9308) = RCT(9308)*V(4394)*V(5255) - A(9309) = RCT(9309)*V(4394)*V(5252) - A(9310) = RCT(9310)*V(4394)*V(5252) - A(9311) = RCT(9311)*V(4394)*V(5256) - A(9312) = RCT(9312)*V(4394) - A(9313) = RCT(9313)*V(4394) - A(9314) = RCT(9314)*V(3564) - A(9315) = RCT(9315)*V(3844)*V(5255) - A(9316) = RCT(9316)*V(3844)*V(5252) - A(9317) = RCT(9317)*V(3844)*V(5256) - A(9318) = RCT(9318)*V(3844) - A(9319) = RCT(9319)*V(3844) - A(9320) = RCT(9320)*V(4691)*V(5251) - A(9321) = RCT(9321)*V(4691)*V(5252) - A(9322) = RCT(9322)*V(4691)*V(5253) - A(9323) = RCT(9323)*V(4691)*V(5254) - A(9324) = RCT(9324)*V(4691) - A(9325) = RCT(9325)*V(4691) - A(9326) = RCT(9326)*V(4678)*V(5251) - A(9327) = RCT(9327)*V(4678)*V(5252) - A(9328) = RCT(9328)*V(4678)*V(5253) - A(9329) = RCT(9329)*V(4678)*V(5254) - A(9330) = RCT(9330)*V(4678) - A(9331) = RCT(9331)*V(4678) - A(9332) = RCT(9332)*V(2359) - A(9333) = RCT(9333)*V(2359) - A(9334) = RCT(9334)*V(2359) - A(9335) = RCT(9335)*V(2359) - A(9336) = RCT(9336)*V(1569) - A(9337) = RCT(9337)*V(1569) - A(9338) = RCT(9338)*V(1569) - A(9339) = RCT(9339)*V(3920)*V(5255) - A(9340) = RCT(9340)*V(3920)*V(5252) - A(9341) = RCT(9341)*V(3920)*V(5252) - A(9342) = RCT(9342)*V(3920)*V(5256) - A(9343) = RCT(9343)*V(3920) - A(9344) = RCT(9344)*V(3920) - A(9345) = RCT(9345)*V(3966)*V(5255) - A(9346) = RCT(9346)*V(3966)*V(5252) - A(9347) = RCT(9347)*V(3966)*V(5252) - A(9348) = RCT(9348)*V(3966)*V(5256) - A(9349) = RCT(9349)*V(3966) - A(9350) = RCT(9350)*V(3966) - A(9351) = RCT(9351)*V(3966) - A(9352) = RCT(9352)*V(4243)*V(5255) - A(9353) = RCT(9353)*V(4243)*V(5255) - A(9354) = RCT(9354)*V(4243)*V(5252) - A(9355) = RCT(9355)*V(4243)*V(5253) - A(9356) = RCT(9356)*V(4243)*V(5256) - A(9357) = RCT(9357)*V(4243) - A(9358) = RCT(9358)*V(4260)*V(5255) - A(9359) = RCT(9359)*V(4260)*V(5255) - A(9360) = RCT(9360)*V(4260)*V(5252) - A(9361) = RCT(9361)*V(4260)*V(5253) - A(9362) = RCT(9362)*V(4260)*V(5256) - A(9363) = RCT(9363)*V(4260) - A(9364) = RCT(9364)*V(929)*V(5250) - A(9365) = RCT(9365)*V(929) - A(9366) = RCT(9366)*V(2674)*V(5250) - A(9367) = RCT(9367)*V(2674) - A(9368) = RCT(9368)*V(2009)*V(5250) - A(9369) = RCT(9369)*V(2009)*V(5250) - A(9370) = RCT(9370)*V(2009) - A(9371) = RCT(9371)*V(3415) - A(9372) = RCT(9372)*V(3415) - A(9373) = RCT(9373)*V(4883)*V(5250) - A(9374) = RCT(9374)*V(4883)*V(5250) - A(9375) = RCT(9375)*V(4883) - A(9376) = RCT(9376)*V(865)*V(5250) - A(9377) = RCT(9377)*V(865) - A(9378) = RCT(9378)*V(36) - A(9379) = RCT(9379)*V(1202)*V(5250) - A(9380) = RCT(9380)*V(1202) - A(9381) = RCT(9381)*V(45) - A(9382) = RCT(9382)*V(4962)*V(5255) - A(9383) = RCT(9383)*V(4962)*V(5255) - A(9384) = RCT(9384)*V(4962)*V(5255) - A(9385) = RCT(9385)*V(4962)*V(5252) - A(9386) = RCT(9386)*V(4962)*V(5253) - A(9387) = RCT(9387)*V(4962)*V(5256) - A(9388) = RCT(9388)*V(4962) - A(9389) = RCT(9389)*V(4962) - A(9390) = RCT(9390)*V(4263)*V(5255) - A(9391) = RCT(9391)*V(4263)*V(5252) - A(9392) = RCT(9392)*V(4263)*V(5256) - A(9393) = RCT(9393)*V(4263) - A(9394) = RCT(9394)*V(3672)*V(5250) - A(9395) = RCT(9395)*V(3672) - A(9396) = RCT(9396)*V(3502)*V(5250) - A(9397) = RCT(9397)*V(3502) - A(9398) = RCT(9398)*V(3529)*V(5250) - A(9399) = RCT(9399)*V(3529) - A(9400) = RCT(9400)*V(3387)*V(5250) - A(9401) = RCT(9401)*V(3387) - A(9402) = RCT(9402)*V(3515)*V(5250) - A(9403) = RCT(9403)*V(3515) - A(9404) = RCT(9404)*V(3515) - A(9405) = RCT(9405)*V(3401)*V(5250) - A(9406) = RCT(9406)*V(3401) - A(9407) = RCT(9407)*V(5211) - A(9408) = RCT(9408)*V(5211)*V(5256) - A(9409) = RCT(9409)*V(5211)*V(5250) - A(9410) = RCT(9410)*V(4848)*V(5255) - A(9411) = RCT(9411)*V(4848)*V(5255) - A(9412) = RCT(9412)*V(4848)*V(5255) - A(9413) = RCT(9413)*V(4848)*V(5252) - A(9414) = RCT(9414)*V(4848)*V(5253) - A(9415) = RCT(9415)*V(4848)*V(5256) - A(9416) = RCT(9416)*V(4848) - A(9417) = RCT(9417)*V(4848) - A(9418) = RCT(9418)*V(3915) - A(9419) = RCT(9419)*V(3915)*V(5256) - A(9420) = RCT(9420)*V(3915)*V(5250) - A(9421) = RCT(9421)*V(4412)*V(5255) - A(9422) = RCT(9422)*V(4412)*V(5255) - A(9423) = RCT(9423)*V(4412)*V(5252) - A(9424) = RCT(9424)*V(4412)*V(5253) - A(9425) = RCT(9425)*V(4412)*V(5256) - A(9426) = RCT(9426)*V(4412) - A(9427) = RCT(9427)*V(4735)*V(5255) - A(9428) = RCT(9428)*V(4735)*V(5252) - A(9429) = RCT(9429)*V(4735)*V(5252) - A(9430) = RCT(9430)*V(4735)*V(5256) - A(9431) = RCT(9431)*V(4735) - A(9432) = RCT(9432)*V(4735) - A(9433) = RCT(9433)*V(4735) - A(9434) = RCT(9434)*V(3662) - A(9435) = RCT(9435)*V(3662)*V(5256) - A(9436) = RCT(9436)*V(3662)*V(5250) - A(9437) = RCT(9437)*V(4623)*V(5255) - A(9438) = RCT(9438)*V(4623)*V(5255) - A(9439) = RCT(9439)*V(4623)*V(5255) - A(9440) = RCT(9440)*V(4623)*V(5252) - A(9441) = RCT(9441)*V(4623)*V(5253) - A(9442) = RCT(9442)*V(4623)*V(5256) - A(9443) = RCT(9443)*V(4623) - A(9444) = RCT(9444)*V(4623) - A(9445) = RCT(9445)*V(4561)*V(5255) - A(9446) = RCT(9446)*V(4561)*V(5252) - A(9447) = RCT(9447)*V(4561)*V(5252) - A(9448) = RCT(9448)*V(4561)*V(5256) - A(9449) = RCT(9449)*V(4561) - A(9450) = RCT(9450)*V(4561) - A(9451) = RCT(9451)*V(3792) - A(9452) = RCT(9452)*V(3792)*V(5256) - A(9453) = RCT(9453)*V(3792)*V(5250) - A(9454) = RCT(9454)*V(3792)*V(5250) - A(9455) = RCT(9455)*V(5120)*V(5255) - A(9456) = RCT(9456)*V(5120)*V(5252) - A(9457) = RCT(9457)*V(5120)*V(5252) - A(9458) = RCT(9458)*V(5120)*V(5256) - A(9459) = RCT(9459)*V(5120) - A(9460) = RCT(9460)*V(5120) - A(9461) = RCT(9461)*V(5120) - A(9462) = RCT(9462)*V(4934)*V(5255) - A(9463) = RCT(9463)*V(4934)*V(5255) - A(9464) = RCT(9464)*V(4934)*V(5255) - A(9465) = RCT(9465)*V(4934)*V(5252) - A(9466) = RCT(9466)*V(4934)*V(5253) - A(9467) = RCT(9467)*V(4934)*V(5256) - A(9468) = RCT(9468)*V(4934) - A(9469) = RCT(9469)*V(4934) - A(9470) = RCT(9470)*V(4911)*V(5255) - A(9471) = RCT(9471)*V(4911)*V(5252) - A(9472) = RCT(9472)*V(4911)*V(5256) - A(9473) = RCT(9473)*V(4911) - A(9474) = RCT(9474)*V(4911) - A(9475) = RCT(9475)*V(4911) - A(9476) = RCT(9476)*V(4517)*V(5255) - A(9477) = RCT(9477)*V(4517)*V(5255) - A(9478) = RCT(9478)*V(4517)*V(5252) - A(9479) = RCT(9479)*V(4517)*V(5253) - A(9480) = RCT(9480)*V(4517)*V(5256) - A(9481) = RCT(9481)*V(4517) - A(9482) = RCT(9482)*V(4629)*V(5255) - A(9483) = RCT(9483)*V(4629)*V(5255) - A(9484) = RCT(9484)*V(4629)*V(5255) - A(9485) = RCT(9485)*V(4629)*V(5252) - A(9486) = RCT(9486)*V(4629)*V(5253) - A(9487) = RCT(9487)*V(4629)*V(5256) - A(9488) = RCT(9488)*V(4629) - A(9489) = RCT(9489)*V(4629) - A(9490) = RCT(9490)*V(4128)*V(5255) - A(9491) = RCT(9491)*V(4128)*V(5252) - A(9492) = RCT(9492)*V(4128)*V(5252) - A(9493) = RCT(9493)*V(4128)*V(5256) - A(9494) = RCT(9494)*V(4128) - A(9495) = RCT(9495)*V(4128) - A(9496) = RCT(9496)*V(4128) - A(9497) = RCT(9497)*V(4704)*V(5255) - A(9498) = RCT(9498)*V(4704)*V(5252) - A(9499) = RCT(9499)*V(4704)*V(5252) - A(9500) = RCT(9500)*V(4704)*V(5256) - A(9501) = RCT(9501)*V(4704) - A(9502) = RCT(9502)*V(4704) - A(9503) = RCT(9503)*V(4704) - A(9504) = RCT(9504)*V(3471) - A(9505) = RCT(9505)*V(3471)*V(5256) - A(9506) = RCT(9506)*V(3471)*V(5250) - A(9507) = RCT(9507)*V(4665)*V(5255) - A(9508) = RCT(9508)*V(4665)*V(5255) - A(9509) = RCT(9509)*V(4665)*V(5255) - A(9510) = RCT(9510)*V(4665)*V(5252) - A(9511) = RCT(9511)*V(4665)*V(5253) - A(9512) = RCT(9512)*V(4665)*V(5256) - A(9513) = RCT(9513)*V(4665) - A(9514) = RCT(9514)*V(4665) - A(9515) = RCT(9515)*V(4357)*V(5255) - A(9516) = RCT(9516)*V(4357)*V(5252) - A(9517) = RCT(9517)*V(4357)*V(5252) - A(9518) = RCT(9518)*V(4357)*V(5256) - A(9519) = RCT(9519)*V(4357) - A(9520) = RCT(9520)*V(4357) - A(9521) = RCT(9521)*V(4697)*V(5255) - A(9522) = RCT(9522)*V(4697)*V(5252) - A(9523) = RCT(9523)*V(4697)*V(5256) - A(9524) = RCT(9524)*V(4697) - A(9525) = RCT(9525)*V(4697) - A(9526) = RCT(9526)*V(4697) - A(9527) = RCT(9527)*V(3948)*V(5255) - A(9528) = RCT(9528)*V(3948)*V(5252) - A(9529) = RCT(9529)*V(3948)*V(5256) - A(9530) = RCT(9530)*V(3948) - A(9531) = RCT(9531)*V(3948) - A(9532) = RCT(9532)*V(5090)*V(5255) - A(9533) = RCT(9533)*V(5090)*V(5255) - A(9534) = RCT(9534)*V(5090)*V(5255) - A(9535) = RCT(9535)*V(5090)*V(5252) - A(9536) = RCT(9536)*V(5090)*V(5253) - A(9537) = RCT(9537)*V(5090)*V(5256) - A(9538) = RCT(9538)*V(5090) - A(9539) = RCT(9539)*V(5090) - A(9540) = RCT(9540)*V(4058)*V(5255) - A(9541) = RCT(9541)*V(4058)*V(5252) - A(9542) = RCT(9542)*V(4058)*V(5252) - A(9543) = RCT(9543)*V(4058)*V(5256) - A(9544) = RCT(9544)*V(4058) - A(9545) = RCT(9545)*V(4058) - A(9546) = RCT(9546)*V(4058) - A(9547) = RCT(9547)*V(4500)*V(5255) - A(9548) = RCT(9548)*V(4500)*V(5255) - A(9549) = RCT(9549)*V(4500)*V(5255) - A(9550) = RCT(9550)*V(4500)*V(5252) - A(9551) = RCT(9551)*V(4500)*V(5253) - A(9552) = RCT(9552)*V(4500)*V(5256) - A(9553) = RCT(9553)*V(4500) - A(9554) = RCT(9554)*V(4500) - A(9555) = RCT(9555)*V(4523)*V(5255) - A(9556) = RCT(9556)*V(4523)*V(5255) - A(9557) = RCT(9557)*V(4523)*V(5255) - A(9558) = RCT(9558)*V(4523)*V(5252) - A(9559) = RCT(9559)*V(4523)*V(5253) - A(9560) = RCT(9560)*V(4523)*V(5256) - A(9561) = RCT(9561)*V(4523) - A(9562) = RCT(9562)*V(4523) - A(9563) = RCT(9563)*V(3777) - A(9564) = RCT(9564)*V(3777)*V(5250) - A(9565) = RCT(9565)*V(3777)*V(5250) - A(9566) = RCT(9566)*V(3906) - A(9567) = RCT(9567)*V(3906) - A(9568) = RCT(9568)*V(3906)*V(5250) - A(9569) = RCT(9569)*V(3906)*V(5250) - A(9570) = RCT(9570)*V(3912)*V(5255) - A(9571) = RCT(9571)*V(3912)*V(5252) - A(9572) = RCT(9572)*V(3912)*V(5256) - A(9573) = RCT(9573)*V(3912) - A(9574) = RCT(9574)*V(3941)*V(5255) - A(9575) = RCT(9575)*V(3941)*V(5252) - A(9576) = RCT(9576)*V(3941)*V(5256) - A(9577) = RCT(9577)*V(3941) - A(9578) = RCT(9578)*V(4903)*V(5255) - A(9579) = RCT(9579)*V(4903)*V(5252) - A(9580) = RCT(9580)*V(4903)*V(5252) - A(9581) = RCT(9581)*V(4903)*V(5256) - A(9582) = RCT(9582)*V(4903) - A(9583) = RCT(9583)*V(4903) - A(9584) = RCT(9584)*V(4903) - A(9585) = RCT(9585)*V(4967)*V(5255) - A(9586) = RCT(9586)*V(4967)*V(5252) - A(9587) = RCT(9587)*V(4967)*V(5256) - A(9588) = RCT(9588)*V(4967) - A(9589) = RCT(9589)*V(4967) - A(9590) = RCT(9590)*V(4967) - A(9591) = RCT(9591)*V(4800) - A(9592) = RCT(9592)*V(4800)*V(5250) - A(9593) = RCT(9593)*V(4800)*V(5250) - A(9594) = RCT(9594)*V(3298) - A(9595) = RCT(9595)*V(3298) - A(9596) = RCT(9596)*V(3298)*V(5250) - A(9597) = RCT(9597)*V(3298)*V(5250) - A(9598) = RCT(9598)*V(3871)*V(5255) - A(9599) = RCT(9599)*V(3871)*V(5252) - A(9600) = RCT(9600)*V(3871)*V(5256) - A(9601) = RCT(9601)*V(3871) - A(9602) = RCT(9602)*V(4251)*V(5255) - A(9603) = RCT(9603)*V(4251)*V(5252) - A(9604) = RCT(9604)*V(4251)*V(5252) - A(9605) = RCT(9605)*V(4251)*V(5256) - A(9606) = RCT(9606)*V(4251) - A(9607) = RCT(9607)*V(4251) - A(9608) = RCT(9608)*V(4251) - A(9609) = RCT(9609)*V(5088)*V(5255) - A(9610) = RCT(9610)*V(5088)*V(5255) - A(9611) = RCT(9611)*V(5088)*V(5255) - A(9612) = RCT(9612)*V(5088)*V(5252) - A(9613) = RCT(9613)*V(5088)*V(5253) - A(9614) = RCT(9614)*V(5088)*V(5256) - A(9615) = RCT(9615)*V(5088) - A(9616) = RCT(9616)*V(5088) - A(9617) = RCT(9617)*V(4716)*V(5255) - A(9618) = RCT(9618)*V(4716)*V(5252) - A(9619) = RCT(9619)*V(4716)*V(5252) - A(9620) = RCT(9620)*V(4716)*V(5256) - A(9621) = RCT(9621)*V(4716) - A(9622) = RCT(9622)*V(4716) - A(9623) = RCT(9623)*V(4716) - A(9624) = RCT(9624)*V(602) - A(9625) = RCT(9625)*V(602)*V(5250) - A(9626) = RCT(9626)*V(3977)*V(5255) - A(9627) = RCT(9627)*V(3977)*V(5252) - A(9628) = RCT(9628)*V(3977)*V(5256) - A(9629) = RCT(9629)*V(3977) - A(9630) = RCT(9630)*V(4713)*V(5255) - A(9631) = RCT(9631)*V(4713)*V(5252) - A(9632) = RCT(9632)*V(4713)*V(5252) - A(9633) = RCT(9633)*V(4713)*V(5256) - A(9634) = RCT(9634)*V(4713) - A(9635) = RCT(9635)*V(4713) - A(9636) = RCT(9636)*V(4713) - A(9637) = RCT(9637)*V(803) - A(9638) = RCT(9638)*V(803)*V(5250) - A(9639) = RCT(9639)*V(3881)*V(5255) - A(9640) = RCT(9640)*V(3881)*V(5252) - A(9641) = RCT(9641)*V(3881)*V(5256) - A(9642) = RCT(9642)*V(3881) - A(9643) = RCT(9643)*V(4270)*V(5255) - A(9644) = RCT(9644)*V(4270)*V(5252) - A(9645) = RCT(9645)*V(4270)*V(5256) - A(9646) = RCT(9646)*V(4270) - A(9647) = RCT(9647)*V(4712)*V(5255) - A(9648) = RCT(9648)*V(4712)*V(5252) - A(9649) = RCT(9649)*V(4712)*V(5252) - A(9650) = RCT(9650)*V(4712)*V(5256) - A(9651) = RCT(9651)*V(4712) - A(9652) = RCT(9652)*V(4712) - A(9653) = RCT(9653)*V(4712) - A(9654) = RCT(9654)*V(769) - A(9655) = RCT(9655)*V(769)*V(5250) - A(9656) = RCT(9656)*V(3919)*V(5255) - A(9657) = RCT(9657)*V(3919)*V(5252) - A(9658) = RCT(9658)*V(3919)*V(5256) - A(9659) = RCT(9659)*V(3919) - A(9660) = RCT(9660)*V(4254)*V(5255) - A(9661) = RCT(9661)*V(4254)*V(5252) - A(9662) = RCT(9662)*V(4254)*V(5256) - A(9663) = RCT(9663)*V(4254) - A(9664) = RCT(9664)*V(4715)*V(5255) - A(9665) = RCT(9665)*V(4715)*V(5252) - A(9666) = RCT(9666)*V(4715)*V(5252) - A(9667) = RCT(9667)*V(4715)*V(5256) - A(9668) = RCT(9668)*V(4715) - A(9669) = RCT(9669)*V(4715) - A(9670) = RCT(9670)*V(4715) - A(9671) = RCT(9671)*V(794) - A(9672) = RCT(9672)*V(794)*V(5250) - A(9673) = RCT(9673)*V(3916)*V(5255) - A(9674) = RCT(9674)*V(3916)*V(5252) - A(9675) = RCT(9675)*V(3916)*V(5256) - A(9676) = RCT(9676)*V(3916) - A(9677) = RCT(9677)*V(4238)*V(5255) - A(9678) = RCT(9678)*V(4238)*V(5252) - A(9679) = RCT(9679)*V(4238)*V(5256) - A(9680) = RCT(9680)*V(4238) - A(9681) = RCT(9681)*V(4709)*V(5255) - A(9682) = RCT(9682)*V(4709)*V(5252) - A(9683) = RCT(9683)*V(4709)*V(5252) - A(9684) = RCT(9684)*V(4709)*V(5256) - A(9685) = RCT(9685)*V(4709) - A(9686) = RCT(9686)*V(4709) - A(9687) = RCT(9687)*V(4709) - A(9688) = RCT(9688)*V(609) - A(9689) = RCT(9689)*V(609)*V(5250) - A(9690) = RCT(9690)*V(3880)*V(5255) - A(9691) = RCT(9691)*V(3880)*V(5252) - A(9692) = RCT(9692)*V(3880)*V(5256) - A(9693) = RCT(9693)*V(3880) - A(9694) = RCT(9694)*V(4360)*V(5255) - A(9695) = RCT(9695)*V(4360)*V(5252) - A(9696) = RCT(9696)*V(4360)*V(5252) - A(9697) = RCT(9697)*V(4360)*V(5256) - A(9698) = RCT(9698)*V(4360) - A(9699) = RCT(9699)*V(4360) - A(9700) = RCT(9700)*V(4360) - A(9701) = RCT(9701)*V(6) - A(9702) = RCT(9702)*V(8) - A(9703) = RCT(9703)*V(4284)*V(5255) - A(9704) = RCT(9704)*V(4284)*V(5252) - A(9705) = RCT(9705)*V(4284)*V(5256) - A(9706) = RCT(9706)*V(4284) - A(9707) = RCT(9707)*V(713)*V(5250) - A(9708) = RCT(9708)*V(713) - A(9709) = RCT(9709)*V(1807)*V(5250) - A(9710) = RCT(9710)*V(1807) - A(9711) = RCT(9711)*V(4053)*V(5250) - A(9712) = RCT(9712)*V(4053) - A(9713) = RCT(9713)*V(2803) - A(9714) = RCT(9714)*V(2803) - A(9715) = RCT(9715)*V(2803)*V(5250) - A(9716) = RCT(9716)*V(1127)*V(5250) - A(9717) = RCT(9717)*V(1127) - A(9718) = RCT(9718)*V(3407) - A(9719) = RCT(9719)*V(3407) - A(9720) = RCT(9720)*V(4828)*V(5251) - A(9721) = RCT(9721)*V(4828)*V(5252) - A(9722) = RCT(9722)*V(4828)*V(5253) - A(9723) = RCT(9723)*V(4828)*V(5254) - A(9724) = RCT(9724)*V(4828) - A(9725) = RCT(9725)*V(4828) - A(9726) = RCT(9726)*V(2089)*V(5250) - A(9727) = RCT(9727)*V(2089) - A(9728) = RCT(9728)*V(768) - A(9729) = RCT(9729)*V(1040)*V(5250) - A(9730) = RCT(9730)*V(233)*V(5250) - A(9731) = RCT(9731)*V(2471)*V(5250) - A(9732) = RCT(9732)*V(451)*V(5250) - A(9733) = RCT(9733)*V(451) - A(9734) = RCT(9734)*V(3146)*V(5256) - A(9735) = RCT(9735)*V(3146)*V(5250) - A(9736) = RCT(9736)*V(4067)*V(5255) - A(9737) = RCT(9737)*V(4067)*V(5252) - A(9738) = RCT(9738)*V(4067)*V(5256) - A(9739) = RCT(9739)*V(4067) - A(9740) = RCT(9740)*V(4195)*V(5255) - A(9741) = RCT(9741)*V(4195)*V(5252) - A(9742) = RCT(9742)*V(4195)*V(5256) - A(9743) = RCT(9743)*V(4195) - A(9744) = RCT(9744)*V(4273)*V(5255) - A(9745) = RCT(9745)*V(4273)*V(5252) - A(9746) = RCT(9746)*V(4273)*V(5256) - A(9747) = RCT(9747)*V(4273) - A(9748) = RCT(9748)*V(1125)*V(5250) - A(9749) = RCT(9749)*V(1125) - A(9750) = RCT(9750)*V(4163)*V(5255) - A(9751) = RCT(9751)*V(4163)*V(5252) - A(9752) = RCT(9752)*V(4163)*V(5256) - A(9753) = RCT(9753)*V(4163) - A(9754) = RCT(9754)*V(3740)*V(5255) - A(9755) = RCT(9755)*V(3740)*V(5252) - A(9756) = RCT(9756)*V(3740)*V(5256) - A(9757) = RCT(9757)*V(3740) - A(9758) = RCT(9758)*V(3740) - A(9759) = RCT(9759)*V(3740) - A(9760) = RCT(9760)*V(3685)*V(5255) - A(9761) = RCT(9761)*V(3685)*V(5252) - A(9762) = RCT(9762)*V(3685)*V(5256) - A(9763) = RCT(9763)*V(3685) - A(9764) = RCT(9764)*V(3699)*V(5255) - A(9765) = RCT(9765)*V(3699)*V(5252) - A(9766) = RCT(9766)*V(3699)*V(5256) - A(9767) = RCT(9767)*V(3699) - A(9768) = RCT(9768)*V(3699) - A(9769) = RCT(9769)*V(3699) - A(9770) = RCT(9770)*V(3088)*V(5256) - A(9771) = RCT(9771)*V(3088)*V(5250) - A(9772) = RCT(9772)*V(4022)*V(5255) - A(9773) = RCT(9773)*V(4022)*V(5252) - A(9774) = RCT(9774)*V(4022)*V(5256) - A(9775) = RCT(9775)*V(4022) - A(9776) = RCT(9776)*V(4265)*V(5255) - A(9777) = RCT(9777)*V(4265)*V(5252) - A(9778) = RCT(9778)*V(4265)*V(5256) - A(9779) = RCT(9779)*V(4265) - A(9780) = RCT(9780)*V(4217)*V(5255) - A(9781) = RCT(9781)*V(4217)*V(5252) - A(9782) = RCT(9782)*V(4217)*V(5256) - A(9783) = RCT(9783)*V(4217) - A(9784) = RCT(9784)*V(1429)*V(5250) - A(9785) = RCT(9785)*V(1429) - A(9786) = RCT(9786)*V(4024) - A(9787) = RCT(9787)*V(4024) - A(9788) = RCT(9788)*V(3280)*V(5250) - A(9789) = RCT(9789)*V(3280) - A(9790) = RCT(9790)*V(3280) - A(9791) = RCT(9791)*V(3290)*V(5250) - A(9792) = RCT(9792)*V(3290) - A(9793) = RCT(9793)*V(2592) - A(9794) = RCT(9794)*V(1602)*V(5250) - A(9795) = RCT(9795)*V(1602) - A(9796) = RCT(9796)*V(1837)*V(5250) - A(9797) = RCT(9797)*V(1837)*V(5250) - A(9798) = RCT(9798)*V(1837) - A(9799) = RCT(9799)*V(2752) - A(9800) = RCT(9800)*V(4490)*V(5250) - A(9801) = RCT(9801)*V(4490) - A(9802) = RCT(9802)*V(1734)*V(5250) - A(9803) = RCT(9803)*V(1734) - A(9804) = RCT(9804)*V(2454)*V(5250) - A(9805) = RCT(9805)*V(2454) - A(9806) = RCT(9806)*V(712) - A(9807) = RCT(9807)*V(4929)*V(5255) - A(9808) = RCT(9808)*V(4929)*V(5252) - A(9809) = RCT(9809)*V(4929)*V(5256) - A(9810) = RCT(9810)*V(4929) - A(9811) = RCT(9811)*V(4621)*V(5251) - A(9812) = RCT(9812)*V(4621)*V(5252) - A(9813) = RCT(9813)*V(4621)*V(5253) - A(9814) = RCT(9814)*V(4621)*V(5254) - A(9815) = RCT(9815)*V(4621) - A(9816) = RCT(9816)*V(4621) - A(9817) = RCT(9817)*V(944)*V(5250) - A(9818) = RCT(9818)*V(944) - A(9819) = RCT(9819)*V(1675) - A(9820) = RCT(9820)*V(100)*V(5250) - A(9821) = RCT(9821)*V(3209)*V(5250) - A(9822) = RCT(9822)*V(3209) - A(9823) = RCT(9823)*V(3209) - A(9824) = RCT(9824)*V(4328) - A(9825) = RCT(9825)*V(4328) - A(9826) = RCT(9826)*V(2504)*V(5250) - A(9827) = RCT(9827)*V(2504) - A(9828) = RCT(9828)*V(4741)*V(5251) - A(9829) = RCT(9829)*V(4741)*V(5252) - A(9830) = RCT(9830)*V(4741)*V(5253) - A(9831) = RCT(9831)*V(4741)*V(5254) - A(9832) = RCT(9832)*V(4741) - A(9833) = RCT(9833)*V(2602)*V(5250) - A(9834) = RCT(9834)*V(2602) - A(9835) = RCT(9835)*V(2602) - A(9836) = RCT(9836)*V(2659) - A(9837) = RCT(9837)*V(1681)*V(5250) - A(9838) = RCT(9838)*V(1681) - A(9839) = RCT(9839)*V(2152)*V(5250) - A(9840) = RCT(9840)*V(2152) - A(9841) = RCT(9841)*V(800) - A(9842) = RCT(9842)*V(3214)*V(5250) - A(9843) = RCT(9843)*V(3214)*V(5250) - A(9844) = RCT(9844)*V(3214) - A(9845) = RCT(9845)*V(605) - A(9846) = RCT(9846)*V(2467)*V(5250) - A(9847) = RCT(9847)*V(2467) - A(9848) = RCT(9848)*V(392)*V(5250) - A(9849) = RCT(9849)*V(838)*V(5250) - A(9850) = RCT(9850)*V(838) - A(9851) = RCT(9851)*V(1727) - A(9852) = RCT(9852)*V(73)*V(5250) - A(9853) = RCT(9853)*V(3163)*V(5256) - A(9854) = RCT(9854)*V(3163)*V(5250) - A(9855) = RCT(9855)*V(4006)*V(5255) - A(9856) = RCT(9856)*V(4006)*V(5252) - A(9857) = RCT(9857)*V(4006)*V(5256) - A(9858) = RCT(9858)*V(4006) - A(9859) = RCT(9859)*V(4327)*V(5255) - A(9860) = RCT(9860)*V(4327)*V(5252) - A(9861) = RCT(9861)*V(4327)*V(5256) - A(9862) = RCT(9862)*V(4327) - A(9863) = RCT(9863)*V(3697)*V(5255) - A(9864) = RCT(9864)*V(3697)*V(5252) - A(9865) = RCT(9865)*V(3697)*V(5256) - A(9866) = RCT(9866)*V(3697) - A(9867) = RCT(9867)*V(3697) - A(9868) = RCT(9868)*V(3697) - A(9869) = RCT(9869)*V(4293)*V(5255) - A(9870) = RCT(9870)*V(4293)*V(5252) - A(9871) = RCT(9871)*V(4293)*V(5256) - A(9872) = RCT(9872)*V(4293) - A(9873) = RCT(9873)*V(4291)*V(5255) - A(9874) = RCT(9874)*V(4291)*V(5252) - A(9875) = RCT(9875)*V(4291)*V(5256) - A(9876) = RCT(9876)*V(4291) - A(9877) = RCT(9877)*V(1243)*V(5250) - A(9878) = RCT(9878)*V(1243) - A(9879) = RCT(9879)*V(3196)*V(5250) - A(9880) = RCT(9880)*V(3196) - A(9881) = RCT(9881)*V(3196) - A(9882) = RCT(9882)*V(711) - A(9883) = RCT(9883)*V(2482)*V(5250) - A(9884) = RCT(9884)*V(2482) - A(9885) = RCT(9885)*V(2053)*V(5250) - A(9886) = RCT(9886)*V(2053) - A(9887) = RCT(9887)*V(660) - A(9888) = RCT(9888)*V(2920)*V(5250) - A(9889) = RCT(9889)*V(2920)*V(5250) - A(9890) = RCT(9890)*V(2920) - A(9891) = RCT(9891)*V(710) - A(9892) = RCT(9892)*V(1953)*V(5250) - A(9893) = RCT(9893)*V(1953) - A(9894) = RCT(9894)*V(340)*V(5250) - A(9895) = RCT(9895)*V(1020)*V(5250) - A(9896) = RCT(9896)*V(1020) - A(9897) = RCT(9897)*V(1713) - A(9898) = RCT(9898)*V(41)*V(5250) - A(9899) = RCT(9899)*V(1850)*V(5250) - A(9900) = RCT(9900)*V(1850) - A(9901) = RCT(9901)*V(747) - A(9902) = RCT(9902)*V(1854)*V(5250) - A(9903) = RCT(9903)*V(1854) - A(9904) = RCT(9904)*V(1854) - A(9905) = RCT(9905)*V(592) - A(9906) = RCT(9906)*V(1443)*V(5250) - A(9907) = RCT(9907)*V(1443) - A(9908) = RCT(9908)*V(1606) - A(9909) = RCT(9909)*V(58)*V(5250) - A(9910) = RCT(9910)*V(2488)*V(5250) - A(9911) = RCT(9911)*V(3120)*V(5256) - A(9912) = RCT(9912)*V(3120)*V(5250) - A(9913) = RCT(9913)*V(4011)*V(5255) - A(9914) = RCT(9914)*V(4011)*V(5252) - A(9915) = RCT(9915)*V(4011)*V(5256) - A(9916) = RCT(9916)*V(4011) - A(9917) = RCT(9917)*V(3679)*V(5255) - A(9918) = RCT(9918)*V(3679)*V(5252) - A(9919) = RCT(9919)*V(3679)*V(5256) - A(9920) = RCT(9920)*V(3679) - A(9921) = RCT(9921)*V(3714)*V(5255) - A(9922) = RCT(9922)*V(3714)*V(5252) - A(9923) = RCT(9923)*V(3714)*V(5256) - A(9924) = RCT(9924)*V(3714) - A(9925) = RCT(9925)*V(3714) - A(9926) = RCT(9926)*V(4303)*V(5255) - A(9927) = RCT(9927)*V(4303)*V(5252) - A(9928) = RCT(9928)*V(4303)*V(5256) - A(9929) = RCT(9929)*V(4303) - A(9930) = RCT(9930)*V(4200)*V(5255) - A(9931) = RCT(9931)*V(4200)*V(5252) - A(9932) = RCT(9932)*V(4200)*V(5256) - A(9933) = RCT(9933)*V(4200) - A(9934) = RCT(9934)*V(1152)*V(5250) - A(9935) = RCT(9935)*V(1152) - A(9936) = RCT(9936)*V(216)*V(5250) - A(9937) = RCT(9937)*V(3455)*V(5250) - A(9938) = RCT(9938)*V(3455)*V(5250) - A(9939) = RCT(9939)*V(3455) - A(9940) = RCT(9940)*V(3455) - A(9941) = RCT(9941)*V(3094) - A(9942) = RCT(9942)*V(3094) - A(9943) = RCT(9943)*V(1726)*V(5250) - A(9944) = RCT(9944)*V(1726) - A(9945) = RCT(9945)*V(4325)*V(5250) - A(9946) = RCT(9946)*V(4325) - A(9947) = RCT(9947)*V(4325) - A(9948) = RCT(9948)*V(3189)*V(5256) - A(9949) = RCT(9949)*V(3189)*V(5250) - A(9950) = RCT(9950)*V(4039)*V(5255) - A(9951) = RCT(9951)*V(4039)*V(5252) - A(9952) = RCT(9952)*V(4039)*V(5256) - A(9953) = RCT(9953)*V(4039) - A(9954) = RCT(9954)*V(4025)*V(5255) - A(9955) = RCT(9955)*V(4025)*V(5252) - A(9956) = RCT(9956)*V(4025)*V(5256) - A(9957) = RCT(9957)*V(4025) - A(9958) = RCT(9958)*V(3769)*V(5255) - A(9959) = RCT(9959)*V(3769)*V(5252) - A(9960) = RCT(9960)*V(3769)*V(5256) - A(9961) = RCT(9961)*V(3769) - A(9962) = RCT(9962)*V(3769) - A(9963) = RCT(9963)*V(4292)*V(5255) - A(9964) = RCT(9964)*V(4292)*V(5252) - A(9965) = RCT(9965)*V(4292)*V(5256) - A(9966) = RCT(9966)*V(4292) - A(9967) = RCT(9967)*V(4225)*V(5255) - A(9968) = RCT(9968)*V(4225)*V(5252) - A(9969) = RCT(9969)*V(4225)*V(5256) - A(9970) = RCT(9970)*V(4225) - A(9971) = RCT(9971)*V(1421)*V(5250) - A(9972) = RCT(9972)*V(1421) - A(9973) = RCT(9973)*V(3181)*V(5256) - A(9974) = RCT(9974)*V(3181)*V(5250) - A(9975) = RCT(9975)*V(4036)*V(5255) - A(9976) = RCT(9976)*V(4036)*V(5252) - A(9977) = RCT(9977)*V(4036)*V(5256) - A(9978) = RCT(9978)*V(4036) - A(9979) = RCT(9979)*V(4076)*V(5255) - A(9980) = RCT(9980)*V(4076)*V(5252) - A(9981) = RCT(9981)*V(4076)*V(5256) - A(9982) = RCT(9982)*V(4076) - A(9983) = RCT(9983)*V(3675)*V(5255) - A(9984) = RCT(9984)*V(3675)*V(5252) - A(9985) = RCT(9985)*V(3675)*V(5256) - A(9986) = RCT(9986)*V(3675) - A(9987) = RCT(9987)*V(3675) - A(9988) = RCT(9988)*V(3675) - A(9989) = RCT(9989)*V(4246)*V(5255) - A(9990) = RCT(9990)*V(4246)*V(5252) - A(9991) = RCT(9991)*V(4246)*V(5256) - A(9992) = RCT(9992)*V(4246) - A(9993) = RCT(9993)*V(4304)*V(5255) - A(9994) = RCT(9994)*V(4304)*V(5252) - A(9995) = RCT(9995)*V(4304)*V(5256) - A(9996) = RCT(9996)*V(4304) - A(9997) = RCT(9997)*V(1294)*V(5250) - A(9998) = RCT(9998)*V(1294) - A(9999) = RCT(9999)*V(3453)*V(5250) - A(10000) = RCT(10000)*V(3453) - A(10001) = RCT(10001)*V(3453) - A(10002) = RCT(10002)*V(1960) - A(10003) = RCT(10003)*V(4199)*V(5250) - A(10004) = RCT(10004)*V(4199) - A(10005) = RCT(10005)*V(2485)*V(5250) - A(10006) = RCT(10006)*V(2485) - A(10007) = RCT(10007)*V(2485) - A(10008) = RCT(10008)*V(1053)*V(5250) - A(10009) = RCT(10009)*V(1053) - A(10010) = RCT(10010)*V(3396) - A(10011) = RCT(10011)*V(3396) - A(10012) = RCT(10012)*V(1768)*V(5250) - A(10013) = RCT(10013)*V(1768)*V(5250) - A(10014) = RCT(10014)*V(1768) - A(10015) = RCT(10015)*V(1898)*V(5250) - A(10016) = RCT(10016)*V(1898) - A(10017) = RCT(10017)*V(792) - A(10018) = RCT(10018)*V(1133)*V(5250) - A(10019) = RCT(10019)*V(312)*V(5250) - A(10020) = RCT(10020)*V(4966)*V(5255) - A(10021) = RCT(10021)*V(4966)*V(5255) - A(10022) = RCT(10022)*V(4966)*V(5252) - A(10023) = RCT(10023)*V(4966)*V(5253) - A(10024) = RCT(10024)*V(4966)*V(5256) - A(10025) = RCT(10025)*V(4966) - A(10026) = RCT(10026)*V(891)*V(5250) - A(10027) = RCT(10027)*V(891) - A(10028) = RCT(10028)*V(2897) - A(10029) = RCT(10029)*V(4031)*V(5255) - A(10030) = RCT(10030)*V(4031)*V(5252) - A(10031) = RCT(10031)*V(4031)*V(5256) - A(10032) = RCT(10032)*V(4031) - A(10033) = RCT(10033)*V(3187)*V(5256) - A(10034) = RCT(10034)*V(3187)*V(5250) - A(10035) = RCT(10035)*V(3999)*V(5255) - A(10036) = RCT(10036)*V(3999)*V(5252) - A(10037) = RCT(10037)*V(3999)*V(5256) - A(10038) = RCT(10038)*V(3999) - A(10039) = RCT(10039)*V(4381)*V(5255) - A(10040) = RCT(10040)*V(4381)*V(5252) - A(10041) = RCT(10041)*V(4381)*V(5256) - A(10042) = RCT(10042)*V(4381) - A(10043) = RCT(10043)*V(3711)*V(5255) - A(10044) = RCT(10044)*V(3711)*V(5252) - A(10045) = RCT(10045)*V(3711)*V(5256) - A(10046) = RCT(10046)*V(3711) - A(10047) = RCT(10047)*V(3711) - A(10048) = RCT(10048)*V(3711) - A(10049) = RCT(10049)*V(4237)*V(5255) - A(10050) = RCT(10050)*V(4237)*V(5252) - A(10051) = RCT(10051)*V(4237)*V(5256) - A(10052) = RCT(10052)*V(4237) - A(10053) = RCT(10053)*V(4280)*V(5255) - A(10054) = RCT(10054)*V(4280)*V(5252) - A(10055) = RCT(10055)*V(4280)*V(5256) - A(10056) = RCT(10056)*V(4280) - A(10057) = RCT(10057)*V(1539)*V(5250) - A(10058) = RCT(10058)*V(1539) - A(10059) = RCT(10059)*V(1224)*V(5250) - A(10060) = RCT(10060)*V(1224) - A(10061) = RCT(10061)*V(2492) - A(10062) = RCT(10062)*V(4775)*V(5256) - A(10063) = RCT(10063)*V(4775)*V(5250) - A(10064) = RCT(10064)*V(4775) - A(10065) = RCT(10065)*V(4775) - A(10066) = RCT(10066)*V(4775) - A(10067) = RCT(10067)*V(622)*V(5250) - A(10068) = RCT(10068)*V(622) - A(10069) = RCT(10069)*V(1388)*V(5250) - A(10070) = RCT(10070)*V(1388) - A(10071) = RCT(10071)*V(3423) - A(10072) = RCT(10072)*V(3423) - A(10073) = RCT(10073)*V(2025)*V(5250) - A(10074) = RCT(10074)*V(2025)*V(5250) - A(10075) = RCT(10075)*V(2025) - A(10076) = RCT(10076)*V(1861)*V(5250) - A(10077) = RCT(10077)*V(1861) - A(10078) = RCT(10078)*V(620) - A(10079) = RCT(10079)*V(911)*V(5250) - A(10080) = RCT(10080)*V(485)*V(5250) - A(10081) = RCT(10081)*V(4792)*V(5255) - A(10082) = RCT(10082)*V(4792)*V(5255) - A(10083) = RCT(10083)*V(4792)*V(5252) - A(10084) = RCT(10084)*V(4792)*V(5253) - A(10085) = RCT(10085)*V(4792)*V(5256) - A(10086) = RCT(10086)*V(4792) - A(10087) = RCT(10087)*V(1170)*V(5250) - A(10088) = RCT(10088)*V(1170) - A(10089) = RCT(10089)*V(2581) - A(10090) = RCT(10090)*V(1840)*V(5250) - A(10091) = RCT(10091)*V(1840) - A(10092) = RCT(10092)*V(773) - A(10093) = RCT(10093)*V(402)*V(5250) - A(10094) = RCT(10094)*V(3543)*V(5256) - A(10095) = RCT(10095)*V(3543)*V(5250) - A(10096) = RCT(10096)*V(3543) - A(10097) = RCT(10097)*V(3178)*V(5256) - A(10098) = RCT(10098)*V(3178)*V(5250) - A(10099) = RCT(10099)*V(4021)*V(5255) - A(10100) = RCT(10100)*V(4021)*V(5252) - A(10101) = RCT(10101)*V(4021)*V(5256) - A(10102) = RCT(10102)*V(4021) - A(10103) = RCT(10103)*V(3738)*V(5255) - A(10104) = RCT(10104)*V(3738)*V(5252) - A(10105) = RCT(10105)*V(3738)*V(5256) - A(10106) = RCT(10106)*V(3738) - A(10107) = RCT(10107)*V(3983)*V(5255) - A(10108) = RCT(10108)*V(3983)*V(5252) - A(10109) = RCT(10109)*V(3983)*V(5256) - A(10110) = RCT(10110)*V(3983) - A(10111) = RCT(10111)*V(3983) - A(10112) = RCT(10112)*V(3983) - A(10113) = RCT(10113)*V(4307)*V(5255) - A(10114) = RCT(10114)*V(4307)*V(5252) - A(10115) = RCT(10115)*V(4307)*V(5256) - A(10116) = RCT(10116)*V(4307) - A(10117) = RCT(10117)*V(4296)*V(5255) - A(10118) = RCT(10118)*V(4296)*V(5252) - A(10119) = RCT(10119)*V(4296)*V(5256) - A(10120) = RCT(10120)*V(4296) - A(10121) = RCT(10121)*V(822)*V(5250) - A(10122) = RCT(10122)*V(822) - A(10123) = RCT(10123)*V(1088)*V(5250) - A(10124) = RCT(10124)*V(1088) - A(10125) = RCT(10125)*V(2949) - A(10126) = RCT(10126)*V(4815)*V(5256) - A(10127) = RCT(10127)*V(4815)*V(5250) - A(10128) = RCT(10128)*V(4815) - A(10129) = RCT(10129)*V(4815) - A(10130) = RCT(10130)*V(4815) - A(10131) = RCT(10131)*V(659)*V(5250) - A(10132) = RCT(10132)*V(659) - A(10133) = RCT(10133)*V(1123)*V(5250) - A(10134) = RCT(10134)*V(1123) - A(10135) = RCT(10135)*V(3380) - A(10136) = RCT(10136)*V(3380) - A(10137) = RCT(10137)*V(1949)*V(5250) - A(10138) = RCT(10138)*V(1949)*V(5250) - A(10139) = RCT(10139)*V(1949) - A(10140) = RCT(10140)*V(2446)*V(5250) - A(10141) = RCT(10141)*V(2446) - A(10142) = RCT(10142)*V(716) - A(10143) = RCT(10143)*V(1231)*V(5250) - A(10144) = RCT(10144)*V(356)*V(5250) - A(10145) = RCT(10145)*V(4864)*V(5255) - A(10146) = RCT(10146)*V(4864)*V(5255) - A(10147) = RCT(10147)*V(4864)*V(5252) - A(10148) = RCT(10148)*V(4864)*V(5253) - A(10149) = RCT(10149)*V(4864)*V(5256) - A(10150) = RCT(10150)*V(4864) - A(10151) = RCT(10151)*V(974)*V(5250) - A(10152) = RCT(10152)*V(974) - A(10153) = RCT(10153)*V(3028) - A(10154) = RCT(10154)*V(4379) - A(10155) = RCT(10155)*V(4379) - A(10156) = RCT(10156)*V(3191)*V(5256) - A(10157) = RCT(10157)*V(3191)*V(5250) - A(10158) = RCT(10158)*V(4034)*V(5255) - A(10159) = RCT(10159)*V(4034)*V(5252) - A(10160) = RCT(10160)*V(4034)*V(5256) - A(10161) = RCT(10161)*V(4034) - A(10162) = RCT(10162)*V(4212)*V(5255) - A(10163) = RCT(10163)*V(4212)*V(5252) - A(10164) = RCT(10164)*V(4212)*V(5256) - A(10165) = RCT(10165)*V(4212) - A(10166) = RCT(10166)*V(4193)*V(5255) - A(10167) = RCT(10167)*V(4193)*V(5252) - A(10168) = RCT(10168)*V(4193)*V(5256) - A(10169) = RCT(10169)*V(4193) - A(10170) = RCT(10170)*V(1361)*V(5250) - A(10171) = RCT(10171)*V(1361) - A(10172) = RCT(10172)*V(2766)*V(5250) - A(10173) = RCT(10173)*V(2766) - A(10174) = RCT(10174)*V(2766) - A(10175) = RCT(10175)*V(3221)*V(5250) - A(10176) = RCT(10176)*V(3221) - A(10177) = RCT(10177)*V(1345)*V(5250) - A(10178) = RCT(10178)*V(1345) - A(10179) = RCT(10179)*V(2967) - A(10180) = RCT(10180)*V(263)*V(5250) - A(10181) = RCT(10181)*V(263) - A(10182) = RCT(10182)*V(2262)*V(5250) - A(10183) = RCT(10183)*V(2262) - A(10184) = RCT(10184)*V(814) - A(10185) = RCT(10185)*V(1252)*V(5250) - A(10186) = RCT(10186)*V(1252) - A(10187) = RCT(10187)*V(1680) - A(10188) = RCT(10188)*V(46)*V(5250) - A(10189) = RCT(10189)*V(2417)*V(5250) - A(10190) = RCT(10190)*V(2417) - A(10191) = RCT(10191)*V(584) - A(10192) = RCT(10192)*V(928)*V(5250) - A(10193) = RCT(10193)*V(928) - A(10194) = RCT(10194)*V(1710) - A(10195) = RCT(10195)*V(63)*V(5250) - A(10196) = RCT(10196)*V(1129)*V(5250) - A(10197) = RCT(10197)*V(1129) - A(10198) = RCT(10198)*V(1622) - A(10199) = RCT(10199)*V(38)*V(5250) - A(10200) = RCT(10200)*V(264)*V(5250) - A(10201) = RCT(10201)*V(2686)*V(5250) - A(10202) = RCT(10202)*V(2686) - A(10203) = RCT(10203)*V(2686) - A(10204) = RCT(10204)*V(3578) - A(10205) = RCT(10205)*V(3578) - A(10206) = RCT(10206)*V(1578)*V(5250) - A(10207) = RCT(10207)*V(1578) - A(10208) = RCT(10208)*V(3137)*V(5256) - A(10209) = RCT(10209)*V(3137)*V(5250) - A(10210) = RCT(10210)*V(4044)*V(5255) - A(10211) = RCT(10211)*V(4044)*V(5252) - A(10212) = RCT(10212)*V(4044)*V(5256) - A(10213) = RCT(10213)*V(4044) - A(10214) = RCT(10214)*V(4323)*V(5255) - A(10215) = RCT(10215)*V(4323)*V(5252) - A(10216) = RCT(10216)*V(4323)*V(5256) - A(10217) = RCT(10217)*V(4323) - A(10218) = RCT(10218)*V(3771)*V(5255) - A(10219) = RCT(10219)*V(3771)*V(5252) - A(10220) = RCT(10220)*V(3771)*V(5256) - A(10221) = RCT(10221)*V(3771) - A(10222) = RCT(10222)*V(3771) - A(10223) = RCT(10223)*V(4192)*V(5255) - A(10224) = RCT(10224)*V(4192)*V(5252) - A(10225) = RCT(10225)*V(4192)*V(5256) - A(10226) = RCT(10226)*V(4192) - A(10227) = RCT(10227)*V(4317)*V(5255) - A(10228) = RCT(10228)*V(4317)*V(5252) - A(10229) = RCT(10229)*V(4317)*V(5256) - A(10230) = RCT(10230)*V(4317) - A(10231) = RCT(10231)*V(1003)*V(5250) - A(10232) = RCT(10232)*V(1003) - A(10233) = RCT(10233)*V(483)*V(5250) - A(10234) = RCT(10234)*V(4149)*V(5255) - A(10235) = RCT(10235)*V(4149)*V(5252) - A(10236) = RCT(10236)*V(4149)*V(5256) - A(10237) = RCT(10237)*V(4149) - A(10238) = RCT(10238)*V(3143)*V(5256) - A(10239) = RCT(10239)*V(3143)*V(5250) - A(10240) = RCT(10240)*V(4040)*V(5255) - A(10241) = RCT(10241)*V(4040)*V(5252) - A(10242) = RCT(10242)*V(4040)*V(5256) - A(10243) = RCT(10243)*V(4040) - A(10244) = RCT(10244)*V(4153)*V(5255) - A(10245) = RCT(10245)*V(4153)*V(5252) - A(10246) = RCT(10246)*V(4153)*V(5256) - A(10247) = RCT(10247)*V(4153) - A(10248) = RCT(10248)*V(3770)*V(5255) - A(10249) = RCT(10249)*V(3770)*V(5252) - A(10250) = RCT(10250)*V(3770)*V(5256) - A(10251) = RCT(10251)*V(3770) - A(10252) = RCT(10252)*V(3770) - A(10253) = RCT(10253)*V(3770) - A(10254) = RCT(10254)*V(4210)*V(5255) - A(10255) = RCT(10255)*V(4210)*V(5252) - A(10256) = RCT(10256)*V(4210)*V(5256) - A(10257) = RCT(10257)*V(4210) - A(10258) = RCT(10258)*V(4314)*V(5255) - A(10259) = RCT(10259)*V(4314)*V(5252) - A(10260) = RCT(10260)*V(4314)*V(5256) - A(10261) = RCT(10261)*V(4314) - A(10262) = RCT(10262)*V(1017)*V(5250) - A(10263) = RCT(10263)*V(1017) - A(10264) = RCT(10264)*V(3190)*V(5256) - A(10265) = RCT(10265)*V(3190)*V(5250) - A(10266) = RCT(10266)*V(4061)*V(5255) - A(10267) = RCT(10267)*V(4061)*V(5252) - A(10268) = RCT(10268)*V(4061)*V(5256) - A(10269) = RCT(10269)*V(4061) - A(10270) = RCT(10270)*V(3680)*V(5255) - A(10271) = RCT(10271)*V(3680)*V(5252) - A(10272) = RCT(10272)*V(3680)*V(5256) - A(10273) = RCT(10273)*V(3680) - A(10274) = RCT(10274)*V(3782)*V(5255) - A(10275) = RCT(10275)*V(3782)*V(5252) - A(10276) = RCT(10276)*V(3782)*V(5256) - A(10277) = RCT(10277)*V(3782) - A(10278) = RCT(10278)*V(3782) - A(10279) = RCT(10279)*V(4312)*V(5255) - A(10280) = RCT(10280)*V(4312)*V(5252) - A(10281) = RCT(10281)*V(4312)*V(5256) - A(10282) = RCT(10282)*V(4312) - A(10283) = RCT(10283)*V(4252)*V(5255) - A(10284) = RCT(10284)*V(4252)*V(5252) - A(10285) = RCT(10285)*V(4252)*V(5256) - A(10286) = RCT(10286)*V(4252) - A(10287) = RCT(10287)*V(844)*V(5250) - A(10288) = RCT(10288)*V(844) - A(10289) = RCT(10289)*V(1092)*V(5250) - A(10290) = RCT(10290)*V(1092) - A(10291) = RCT(10291)*V(3565) - A(10292) = RCT(10292)*V(3565) - A(10293) = RCT(10293)*V(4534)*V(5250) - A(10294) = RCT(10294)*V(4534) - A(10295) = RCT(10295)*V(4534) - A(10296) = RCT(10296)*V(576)*V(5250) - A(10297) = RCT(10297)*V(576) - A(10298) = RCT(10298)*V(3152)*V(5256) - A(10299) = RCT(10299)*V(3152)*V(5250) - A(10300) = RCT(10300)*V(4072)*V(5255) - A(10301) = RCT(10301)*V(4072)*V(5252) - A(10302) = RCT(10302)*V(4072)*V(5256) - A(10303) = RCT(10303)*V(4072) - A(10304) = RCT(10304)*V(4535)*V(5255) - A(10305) = RCT(10305)*V(4535)*V(5252) - A(10306) = RCT(10306)*V(4535)*V(5256) - A(10307) = RCT(10307)*V(4535) - A(10308) = RCT(10308)*V(3753)*V(5255) - A(10309) = RCT(10309)*V(3753)*V(5252) - A(10310) = RCT(10310)*V(3753)*V(5256) - A(10311) = RCT(10311)*V(3753) - A(10312) = RCT(10312)*V(3753) - A(10313) = RCT(10313)*V(4297)*V(5255) - A(10314) = RCT(10314)*V(4297)*V(5252) - A(10315) = RCT(10315)*V(4297)*V(5256) - A(10316) = RCT(10316)*V(4297) - A(10317) = RCT(10317)*V(4287)*V(5255) - A(10318) = RCT(10318)*V(4287)*V(5252) - A(10319) = RCT(10319)*V(4287)*V(5256) - A(10320) = RCT(10320)*V(4287) - A(10321) = RCT(10321)*V(1450)*V(5250) - A(10322) = RCT(10322)*V(1450) - A(10323) = RCT(10323)*V(3723) - A(10324) = RCT(10324)*V(3723) - A(10325) = RCT(10325)*V(3005)*V(5250) - A(10326) = RCT(10326)*V(3005) - A(10327) = RCT(10327)*V(3005) - A(10328) = RCT(10328)*V(3249)*V(5250) - A(10329) = RCT(10329)*V(3249) - A(10330) = RCT(10330)*V(1021)*V(5250) - A(10331) = RCT(10331)*V(1021) - A(10332) = RCT(10332)*V(2521) - A(10333) = RCT(10333)*V(350)*V(5250) - A(10334) = RCT(10334)*V(350) - A(10335) = RCT(10335)*V(2267)*V(5250) - A(10336) = RCT(10336)*V(2267) - A(10337) = RCT(10337)*V(550) - A(10338) = RCT(10338)*V(2923)*V(5250) - A(10339) = RCT(10339)*V(2923)*V(5250) - A(10340) = RCT(10340)*V(2923) - A(10341) = RCT(10341)*V(641) - A(10342) = RCT(10342)*V(3434)*V(5250) - A(10343) = RCT(10343)*V(3434) - A(10344) = RCT(10344)*V(513)*V(5250) - A(10345) = RCT(10345)*V(1530)*V(5250) - A(10346) = RCT(10346)*V(1530) - A(10347) = RCT(10347)*V(1745) - A(10348) = RCT(10348)*V(39)*V(5250) - A(10349) = RCT(10349)*V(2353)*V(5250) - A(10350) = RCT(10350)*V(2353) - A(10351) = RCT(10351)*V(3461)*V(5253) - A(10352) = RCT(10352)*V(4134)*V(5255) - A(10353) = RCT(10353)*V(4134)*V(5252) - A(10354) = RCT(10354)*V(4134)*V(5256) - A(10355) = RCT(10355)*V(4134) - A(10356) = RCT(10356)*V(3526) - A(10357) = RCT(10357)*V(3526)*V(5256) - A(10358) = RCT(10358)*V(3526)*V(5250) - A(10359) = RCT(10359)*V(4209)*V(5255) - A(10360) = RCT(10360)*V(4209)*V(5255) - A(10361) = RCT(10361)*V(4209)*V(5252) - A(10362) = RCT(10362)*V(4209)*V(5253) - A(10363) = RCT(10363)*V(4209)*V(5256) - A(10364) = RCT(10364)*V(4209) - A(10365) = RCT(10365)*V(494)*V(5250) - A(10366) = RCT(10366)*V(494) - A(10367) = RCT(10367)*V(3350)*V(5250) - A(10368) = RCT(10368)*V(3350) - A(10369) = RCT(10369)*V(3154)*V(5250) - A(10370) = RCT(10370)*V(3154)*V(5250) - A(10371) = RCT(10371)*V(3154) - A(10372) = RCT(10372)*V(1684) - A(10373) = RCT(10373)*V(2335) - A(10374) = RCT(10374)*V(2335)*V(5250) - A(10375) = RCT(10375)*V(4208)*V(5255) - A(10376) = RCT(10376)*V(4208)*V(5255) - A(10377) = RCT(10377)*V(4208)*V(5252) - A(10378) = RCT(10378)*V(4208)*V(5253) - A(10379) = RCT(10379)*V(4208)*V(5256) - A(10380) = RCT(10380)*V(4208) - A(10381) = RCT(10381)*V(3470) - A(10382) = RCT(10382)*V(3470)*V(5256) - A(10383) = RCT(10383)*V(3470)*V(5250) - A(10384) = RCT(10384)*V(3501)*V(5250) - A(10385) = RCT(10385)*V(3501)*V(5250) - A(10386) = RCT(10386)*V(3501) - A(10387) = RCT(10387)*V(3501) - A(10388) = RCT(10388)*V(3240)*V(5250) - A(10389) = RCT(10389)*V(3240) - A(10390) = RCT(10390)*V(2249) - A(10391) = RCT(10391)*V(386) - A(10392) = RCT(10392)*V(386) - A(10393) = RCT(10393)*V(4677)*V(5251) - A(10394) = RCT(10394)*V(4677)*V(5252) - A(10395) = RCT(10395)*V(4677)*V(5253) - A(10396) = RCT(10396)*V(4677)*V(5254) - A(10397) = RCT(10397)*V(4677) - A(10398) = RCT(10398)*V(4677) - A(10399) = RCT(10399)*V(4551)*V(5251) - A(10400) = RCT(10400)*V(4551)*V(5252) - A(10401) = RCT(10401)*V(4551)*V(5253) - A(10402) = RCT(10402)*V(4551)*V(5254) - A(10403) = RCT(10403)*V(4551) - A(10404) = RCT(10404)*V(4294)*V(5250) - A(10405) = RCT(10405)*V(4294) - A(10406) = RCT(10406)*V(131) - A(10407) = RCT(10407)*V(4180)*V(5255) - A(10408) = RCT(10408)*V(4180)*V(5252) - A(10409) = RCT(10409)*V(4180)*V(5256) - A(10410) = RCT(10410)*V(4180) - A(10411) = RCT(10411)*V(2138)*V(5250) - A(10412) = RCT(10412)*V(2616) - A(10413) = RCT(10413)*V(2616)*V(5250) - A(10414) = RCT(10414)*V(3204) - A(10415) = RCT(10415)*V(3204)*V(5250) - A(10416) = RCT(10416)*V(2392)*V(5250) - A(10417) = RCT(10417)*V(2392) - A(10418) = RCT(10418)*V(3443)*V(5250) - A(10419) = RCT(10419)*V(3443) - A(10420) = RCT(10420)*V(3064) - A(10421) = RCT(10421)*V(48)*V(5250) - A(10422) = RCT(10422)*V(21)*V(5250) - A(10423) = RCT(10423)*V(5040)*V(5251) - A(10424) = RCT(10424)*V(5040)*V(5252) - A(10425) = RCT(10425)*V(5040)*V(5253) - A(10426) = RCT(10426)*V(5040)*V(5254) - A(10427) = RCT(10427)*V(5040) - A(10428) = RCT(10428)*V(5040) - A(10429) = RCT(10429)*V(3625)*V(5250) - A(10430) = RCT(10430)*V(3625)*V(5250) - A(10431) = RCT(10431)*V(3625)*V(5250) - A(10432) = RCT(10432)*V(3625) - A(10433) = RCT(10433)*V(4066)*V(5250) - A(10434) = RCT(10434)*V(4066)*V(5250) - A(10435) = RCT(10435)*V(1748) - A(10436) = RCT(10436)*V(3635)*V(5250) - A(10437) = RCT(10437)*V(3635) - A(10438) = RCT(10438)*V(2101)*V(5250) - A(10439) = RCT(10439)*V(2101)*V(5250) - A(10440) = RCT(10440)*V(2590)*V(5250) - A(10441) = RCT(10441)*V(2590)*V(5250) - A(10442) = RCT(10442)*V(2590) - A(10443) = RCT(10443)*V(261) - A(10444) = RCT(10444)*V(3454) - A(10445) = RCT(10445)*V(3454)*V(5256) - A(10446) = RCT(10446)*V(3454)*V(5250) - A(10447) = RCT(10447)*V(3286)*V(5250) - A(10448) = RCT(10448)*V(3286) - A(10449) = RCT(10449)*V(3286) - A(10450) = RCT(10450)*V(3273)*V(5250) - A(10451) = RCT(10451)*V(3273) - A(10452) = RCT(10452)*V(1967) - A(10453) = RCT(10453)*V(67) - A(10454) = RCT(10454)*V(4982)*V(5255) - A(10455) = RCT(10455)*V(4982)*V(5252) - A(10456) = RCT(10456)*V(4982)*V(5256) - A(10457) = RCT(10457)*V(4982) - A(10458) = RCT(10458)*V(3449)*V(5250) - A(10459) = RCT(10459)*V(3449) - A(10460) = RCT(10460)*V(3449) - A(10461) = RCT(10461)*V(1848) - A(10462) = RCT(10462)*V(1242)*V(5250) - A(10463) = RCT(10463)*V(2554) - A(10464) = RCT(10464)*V(2554)*V(5250) - A(10465) = RCT(10465)*V(3197) - A(10466) = RCT(10466)*V(3197)*V(5250) - A(10467) = RCT(10467)*V(3201)*V(5250) - A(10468) = RCT(10468)*V(3201) - A(10469) = RCT(10469)*V(1955) - A(10470) = RCT(10470)*V(3549)*V(5250) - A(10471) = RCT(10471)*V(3549) - A(10472) = RCT(10472)*V(2109) - A(10473) = RCT(10473)*V(2109)*V(5250) - A(10474) = RCT(10474)*V(4378)*V(5250) - A(10475) = RCT(10475)*V(4378)*V(5250) - A(10476) = RCT(10476)*V(4378) - A(10477) = RCT(10477)*V(2662) - A(10478) = RCT(10478)*V(62)*V(5250) - A(10479) = RCT(10479)*V(4247)*V(5251) - A(10480) = RCT(10480)*V(4247)*V(5252) - A(10481) = RCT(10481)*V(4247)*V(5253) - A(10482) = RCT(10482)*V(4247)*V(5254) - A(10483) = RCT(10483)*V(4247) - A(10484) = RCT(10484)*V(3485)*V(5250) - A(10485) = RCT(10485)*V(3485)*V(5250) - A(10486) = RCT(10486)*V(3485) - A(10487) = RCT(10487)*V(3700) - A(10488) = RCT(10488)*V(3700) - A(10489) = RCT(10489)*V(302)*V(5250) - A(10490) = RCT(10490)*V(3550) - A(10491) = RCT(10491)*V(3550) - A(10492) = RCT(10492)*V(3550)*V(5250) - A(10493) = RCT(10493)*V(3550)*V(5250) - A(10494) = RCT(10494)*V(1575) - A(10495) = RCT(10495)*V(1575)*V(5250) - A(10496) = RCT(10496)*V(1981) - A(10497) = RCT(10497)*V(1981)*V(5250) - A(10498) = RCT(10498)*V(3160) - A(10499) = RCT(10499)*V(3160)*V(5250) - A(10500) = RCT(10500)*V(3160)*V(5250) - A(10501) = RCT(10501)*V(1685) - A(10502) = RCT(10502)*V(1685)*V(5250) - A(10503) = RCT(10503)*V(5167)*V(5255) - A(10504) = RCT(10504)*V(5167)*V(5255) - A(10505) = RCT(10505)*V(5167)*V(5255) - A(10506) = RCT(10506)*V(5167)*V(5252) - A(10507) = RCT(10507)*V(5167)*V(5253) - A(10508) = RCT(10508)*V(5167) - A(10509) = RCT(10509)*V(5167) - A(10510) = RCT(10510)*V(3621)*V(5250) - A(10511) = RCT(10511)*V(3621)*V(5250) - A(10512) = RCT(10512)*V(3621)*V(5250) - A(10513) = RCT(10513)*V(3621) - A(10514) = RCT(10514)*V(2354)*V(5250) - A(10515) = RCT(10515)*V(2354) - A(10516) = RCT(10516)*V(2770) - A(10517) = RCT(10517)*V(2230)*V(5250) - A(10518) = RCT(10518)*V(2230) - A(10519) = RCT(10519)*V(226)*V(5250) - A(10520) = RCT(10520)*V(5024)*V(5256) - A(10521) = RCT(10521)*V(5024)*V(5258) - A(10522) = RCT(10522)*V(5024)*V(5258) - A(10523) = RCT(10523)*V(5024)*V(5250) - A(10524) = RCT(10524)*V(5024)*V(5250) - A(10525) = RCT(10525)*V(4613)*V(5255) - A(10526) = RCT(10526)*V(4613)*V(5255) - A(10527) = RCT(10527)*V(4613)*V(5252) - A(10528) = RCT(10528)*V(4613)*V(5253) - A(10529) = RCT(10529)*V(4613)*V(5256) - A(10530) = RCT(10530)*V(4613) - A(10531) = RCT(10531)*V(4614)*V(5255) - A(10532) = RCT(10532)*V(4614)*V(5255) - A(10533) = RCT(10533)*V(4614)*V(5252) - A(10534) = RCT(10534)*V(4614)*V(5252) - A(10535) = RCT(10535)*V(4614)*V(5256) - A(10536) = RCT(10536)*V(4614) - A(10537) = RCT(10537)*V(4614) - A(10538) = RCT(10538)*V(4614) - A(10539) = RCT(10539)*V(4211)*V(5255) - A(10540) = RCT(10540)*V(4211)*V(5252) - A(10541) = RCT(10541)*V(4211)*V(5256) - A(10542) = RCT(10542)*V(4211) - A(10543) = RCT(10543)*V(2976)*V(5250) - A(10544) = RCT(10544)*V(2976)*V(5250) - A(10545) = RCT(10545)*V(2976) - A(10546) = RCT(10546)*V(3128)*V(5250) - A(10547) = RCT(10547)*V(2764)*V(5250) - A(10548) = RCT(10548)*V(2764) - A(10549) = RCT(10549)*V(1597) - A(10550) = RCT(10550)*V(512)*V(5250) - A(10551) = RCT(10551)*V(229)*V(5250) - A(10552) = RCT(10552)*V(5105) - A(10553) = RCT(10553)*V(5105) - A(10554) = RCT(10554)*V(5105)*V(5256) - A(10555) = RCT(10555)*V(5105)*V(5250) - A(10556) = RCT(10556)*V(4106)*V(5255) - A(10557) = RCT(10557)*V(4106)*V(5252) - A(10558) = RCT(10558)*V(4106)*V(5256) - A(10559) = RCT(10559)*V(4106) - A(10560) = RCT(10560)*V(4348)*V(5255) - A(10561) = RCT(10561)*V(4348)*V(5252) - A(10562) = RCT(10562)*V(4348)*V(5252) - A(10563) = RCT(10563)*V(4348)*V(5256) - A(10564) = RCT(10564)*V(4348) - A(10565) = RCT(10565)*V(4348) - A(10566) = RCT(10566)*V(4348) - A(10567) = RCT(10567)*V(77)*V(5250) - A(10568) = RCT(10568)*V(5079)*V(5255) - A(10569) = RCT(10569)*V(5079)*V(5255) - A(10570) = RCT(10570)*V(5079)*V(5255) - A(10571) = RCT(10571)*V(5079)*V(5252) - A(10572) = RCT(10572)*V(5079)*V(5253) - A(10573) = RCT(10573)*V(5079)*V(5256) - A(10574) = RCT(10574)*V(5079) - A(10575) = RCT(10575)*V(5079) - A(10576) = RCT(10576)*V(4926)*V(5255) - A(10577) = RCT(10577)*V(4926)*V(5255) - A(10578) = RCT(10578)*V(4926)*V(5255) - A(10579) = RCT(10579)*V(4926)*V(5252) - A(10580) = RCT(10580)*V(4926)*V(5253) - A(10581) = RCT(10581)*V(4926)*V(5256) - A(10582) = RCT(10582)*V(4926) - A(10583) = RCT(10583)*V(4926) - A(10584) = RCT(10584)*V(4552)*V(5255) - A(10585) = RCT(10585)*V(4552)*V(5252) - A(10586) = RCT(10586)*V(4552)*V(5256) - A(10587) = RCT(10587)*V(4552) - A(10588) = RCT(10588)*V(4768)*V(5255) - A(10589) = RCT(10589)*V(4768)*V(5252) - A(10590) = RCT(10590)*V(4768)*V(5256) - A(10591) = RCT(10591)*V(4768) - A(10592) = RCT(10592)*V(5214)*V(5255) - A(10593) = RCT(10593)*V(5214)*V(5255) - A(10594) = RCT(10594)*V(5214)*V(5255) - A(10595) = RCT(10595)*V(5214)*V(5252) - A(10596) = RCT(10596)*V(5214)*V(5253) - A(10597) = RCT(10597)*V(5214)*V(5256) - A(10598) = RCT(10598)*V(5214) - A(10599) = RCT(10599)*V(5214) - A(10600) = RCT(10600)*V(3954)*V(5255) - A(10601) = RCT(10601)*V(3954)*V(5252) - A(10602) = RCT(10602)*V(3954)*V(5256) - A(10603) = RCT(10603)*V(3954) - A(10604) = RCT(10604)*V(3717)*V(5255) - A(10605) = RCT(10605)*V(3717)*V(5252) - A(10606) = RCT(10606)*V(3717)*V(5256) - A(10607) = RCT(10607)*V(3717) - A(10608) = RCT(10608)*V(931)*V(5250) - A(10609) = RCT(10609)*V(931) - A(10610) = RCT(10610)*V(2892)*V(5250) - A(10611) = RCT(10611)*V(2892) - A(10612) = RCT(10612)*V(450) - A(10613) = RCT(10613)*V(366)*V(5250) - A(10614) = RCT(10614)*V(366) - A(10615) = RCT(10615)*V(3905)*V(5255) - A(10616) = RCT(10616)*V(3905)*V(5252) - A(10617) = RCT(10617)*V(3905)*V(5256) - A(10618) = RCT(10618)*V(3905) - A(10619) = RCT(10619)*V(1353)*V(5250) - A(10620) = RCT(10620)*V(1353) - A(10621) = RCT(10621)*V(2742)*V(5250) - A(10622) = RCT(10622)*V(2742) - A(10623) = RCT(10623)*V(2452) - A(10624) = RCT(10624)*V(354)*V(5250) - A(10625) = RCT(10625)*V(354) - A(10626) = RCT(10626)*V(1608) - A(10627) = RCT(10627)*V(1608) - A(10628) = RCT(10628)*V(1489)*V(5250) - A(10629) = RCT(10629)*V(1489) - A(10630) = RCT(10630)*V(864)*V(5250) - A(10631) = RCT(10631)*V(864) - A(10632) = RCT(10632)*V(3223)*V(5250) - A(10633) = RCT(10633)*V(3223) - A(10634) = RCT(10634)*V(1437)*V(5250) - A(10635) = RCT(10635)*V(1437) - A(10636) = RCT(10636)*V(990)*V(5250) - A(10637) = RCT(10637)*V(990) - A(10638) = RCT(10638)*V(2850)*V(5250) - A(10639) = RCT(10639)*V(2850) - A(10640) = RCT(10640)*V(1383)*V(5250) - A(10641) = RCT(10641)*V(1383) - A(10642) = RCT(10642)*V(146) - A(10643) = RCT(10643)*V(1324)*V(5250) - A(10644) = RCT(10644)*V(1324) - A(10645) = RCT(10645)*V(300) - A(10646) = RCT(10646)*V(454)*V(5250) - A(10647) = RCT(10647)*V(454) - A(10648) = RCT(10648)*V(919)*V(5250) - A(10649) = RCT(10649)*V(919) - A(10650) = RCT(10650)*V(3307)*V(5250) - A(10651) = RCT(10651)*V(3307) - A(10652) = RCT(10652)*V(2143)*V(5250) - A(10653) = RCT(10653)*V(2143) - A(10654) = RCT(10654)*V(138) - A(10655) = RCT(10655)*V(1147)*V(5250) - A(10656) = RCT(10656)*V(1147) - A(10657) = RCT(10657)*V(1311)*V(5250) - A(10658) = RCT(10658)*V(1572) - A(10659) = RCT(10659)*V(24)*V(5250) - A(10660) = RCT(10660)*V(1197)*V(5250) - A(10661) = RCT(10661)*V(1197) - A(10662) = RCT(10662)*V(3081)*V(5250) - A(10663) = RCT(10663)*V(3081) - A(10664) = RCT(10664)*V(407) - A(10665) = RCT(10665)*V(365)*V(5250) - A(10666) = RCT(10666)*V(365) - A(10667) = RCT(10667)*V(562)*V(5250) - A(10668) = RCT(10668)*V(562) - A(10669) = RCT(10669)*V(1284)*V(5250) - A(10670) = RCT(10670)*V(1284) - A(10671) = RCT(10671)*V(201) - A(10672) = RCT(10672)*V(561)*V(5250) - A(10673) = RCT(10673)*V(303)*V(5250) - A(10674) = RCT(10674)*V(1492)*V(5250) - A(10675) = RCT(10675)*V(1492) - A(10676) = RCT(10676)*V(1933)*V(5250) - A(10677) = RCT(10677)*V(1933) - A(10678) = RCT(10678)*V(2722) - A(10679) = RCT(10679)*V(2722) - A(10680) = RCT(10680)*V(3947)*V(5256) - A(10681) = RCT(10681)*V(3947)*V(5250) - A(10682) = RCT(10682)*V(3947) - A(10683) = RCT(10683)*V(427)*V(5250) - A(10684) = RCT(10684)*V(4664)*V(5255) - A(10685) = RCT(10685)*V(4664)*V(5255) - A(10686) = RCT(10686)*V(4664)*V(5255) - A(10687) = RCT(10687)*V(4664)*V(5252) - A(10688) = RCT(10688)*V(4664)*V(5253) - A(10689) = RCT(10689)*V(4664)*V(5256) - A(10690) = RCT(10690)*V(4664) - A(10691) = RCT(10691)*V(4664) - A(10692) = RCT(10692)*V(1266)*V(5250) - A(10693) = RCT(10693)*V(1266) - A(10694) = RCT(10694)*V(2943)*V(5250) - A(10695) = RCT(10695)*V(2943) - A(10696) = RCT(10696)*V(2207) - A(10697) = RCT(10697)*V(79)*V(5250) - A(10698) = RCT(10698)*V(4545)*V(5255) - A(10699) = RCT(10699)*V(4545)*V(5252) - A(10700) = RCT(10700)*V(4545)*V(5252) - A(10701) = RCT(10701)*V(4545)*V(5256) - A(10702) = RCT(10702)*V(4545) - A(10703) = RCT(10703)*V(4545) - A(10704) = RCT(10704)*V(1517)*V(5250) - A(10705) = RCT(10705)*V(1517) - A(10706) = RCT(10706)*V(2962) - A(10707) = RCT(10707)*V(587)*V(5250) - A(10708) = RCT(10708)*V(4987)*V(5255) - A(10709) = RCT(10709)*V(4987)*V(5252) - A(10710) = RCT(10710)*V(4987)*V(5256) - A(10711) = RCT(10711)*V(4987) - A(10712) = RCT(10712)*V(4987) - A(10713) = RCT(10713)*V(4849)*V(5255) - A(10714) = RCT(10714)*V(4849)*V(5255) - A(10715) = RCT(10715)*V(4849)*V(5255) - A(10716) = RCT(10716)*V(4849)*V(5252) - A(10717) = RCT(10717)*V(4849)*V(5253) - A(10718) = RCT(10718)*V(4849)*V(5256) - A(10719) = RCT(10719)*V(4849) - A(10720) = RCT(10720)*V(4849) - A(10721) = RCT(10721)*V(5196)*V(5255) - A(10722) = RCT(10722)*V(5196)*V(5252) - A(10723) = RCT(10723)*V(5196)*V(5252) - A(10724) = RCT(10724)*V(5196)*V(5256) - A(10725) = RCT(10725)*V(5196) - A(10726) = RCT(10726)*V(5196) - A(10727) = RCT(10727)*V(5196) - A(10728) = RCT(10728)*V(1371)*V(5250) - A(10729) = RCT(10729)*V(1371) - A(10730) = RCT(10730)*V(1835)*V(5250) - A(10731) = RCT(10731)*V(2997) - A(10732) = RCT(10732)*V(556)*V(5250) - A(10733) = RCT(10733)*V(3840)*V(5255) - A(10734) = RCT(10734)*V(3840)*V(5252) - A(10735) = RCT(10735)*V(3840)*V(5256) - A(10736) = RCT(10736)*V(3840) - A(10737) = RCT(10737)*V(3840) - A(10738) = RCT(10738)*V(4842)*V(5256) - A(10739) = RCT(10739)*V(4842)*V(5250) - A(10740) = RCT(10740)*V(4842) - A(10741) = RCT(10741)*V(27) - A(10742) = RCT(10742)*V(3985)*V(5255) - A(10743) = RCT(10743)*V(3985)*V(5252) - A(10744) = RCT(10744)*V(3985)*V(5252) - A(10745) = RCT(10745)*V(3985)*V(5256) - A(10746) = RCT(10746)*V(3985) - A(10747) = RCT(10747)*V(3985) - A(10748) = RCT(10748)*V(4197)*V(5255) - A(10749) = RCT(10749)*V(4197)*V(5252) - A(10750) = RCT(10750)*V(4197)*V(5252) - A(10751) = RCT(10751)*V(4197)*V(5256) - A(10752) = RCT(10752)*V(4197) - A(10753) = RCT(10753)*V(4197) - A(10754) = RCT(10754)*V(1087)*V(5250) - A(10755) = RCT(10755)*V(1087) - A(10756) = RCT(10756)*V(1047)*V(5250) - A(10757) = RCT(10757)*V(1047) - A(10758) = RCT(10758)*V(2879)*V(5250) - A(10759) = RCT(10759)*V(2879) - A(10760) = RCT(10760)*V(1605) - A(10761) = RCT(10761)*V(1605) - A(10762) = RCT(10762)*V(457)*V(5250) - A(10763) = RCT(10763)*V(1325)*V(5250) - A(10764) = RCT(10764)*V(1325) - A(10765) = RCT(10765)*V(2958)*V(5250) - A(10766) = RCT(10766)*V(2958) - A(10767) = RCT(10767)*V(2071)*V(5250) - A(10768) = RCT(10768)*V(2071) - A(10769) = RCT(10769)*V(728) - A(10770) = RCT(10770)*V(2273)*V(5250) - A(10771) = RCT(10771)*V(2273) - A(10772) = RCT(10772)*V(219)*V(5250) - A(10773) = RCT(10773)*V(1447)*V(5250) - A(10774) = RCT(10774)*V(1447) - A(10775) = RCT(10775)*V(2947)*V(5250) - A(10776) = RCT(10776)*V(2947) - A(10777) = RCT(10777)*V(1487)*V(5250) - A(10778) = RCT(10778)*V(1487) - A(10779) = RCT(10779)*V(3335) - A(10780) = RCT(10780)*V(1318)*V(5250) - A(10781) = RCT(10781)*V(1318) - A(10782) = RCT(10782)*V(3390) - A(10783) = RCT(10783)*V(3390) - A(10784) = RCT(10784)*V(1990)*V(5250) - A(10785) = RCT(10785)*V(1990) - A(10786) = RCT(10786)*V(649) - A(10787) = RCT(10787)*V(1995)*V(5250) - A(10788) = RCT(10788)*V(4145)*V(5255) - A(10789) = RCT(10789)*V(4145)*V(5252) - A(10790) = RCT(10790)*V(4145)*V(5256) - A(10791) = RCT(10791)*V(4145) - A(10793) = RCT(10793)*V(4145) - A(10794) = RCT(10794)*V(4135)*V(5255) - A(10795) = RCT(10795)*V(4135)*V(5252) - A(10796) = RCT(10796)*V(4135)*V(5256) - A(10797) = RCT(10797)*V(4135) - A(10798) = RCT(10798)*V(4135) - A(10799) = RCT(10799)*V(4135) - A(10800) = RCT(10800)*V(4824)*V(5251) - A(10801) = RCT(10801)*V(4824)*V(5252) - A(10802) = RCT(10802)*V(4824)*V(5253) - A(10803) = RCT(10803)*V(4824)*V(5254) - A(10804) = RCT(10804)*V(4824) - A(10805) = RCT(10805)*V(4824) - A(10806) = RCT(10806)*V(2407)*V(5250) - A(10807) = RCT(10807)*V(2407) - A(10808) = RCT(10808)*V(1151)*V(5250) - A(10809) = RCT(10809)*V(549) - A(10810) = RCT(10810)*V(1384)*V(5250) - A(10811) = RCT(10811)*V(1973)*V(5250) - A(10812) = RCT(10812)*V(1973) - A(10813) = RCT(10813)*V(721) - A(10814) = RCT(10814)*V(1706)*V(5250) - A(10815) = RCT(10815)*V(2439)*V(5250) - A(10816) = RCT(10816)*V(2439) - A(10817) = RCT(10817)*V(703) - A(10818) = RCT(10818)*V(1843)*V(5250) - A(10819) = RCT(10819)*V(1843) - A(10820) = RCT(10820)*V(281)*V(5250) - A(10821) = RCT(10821)*V(1182)*V(5250) - A(10822) = RCT(10822)*V(1182) - A(10823) = RCT(10823)*V(2860)*V(5250) - A(10824) = RCT(10824)*V(2860) - A(10825) = RCT(10825)*V(1950)*V(5250) - A(10826) = RCT(10826)*V(1950) - A(10827) = RCT(10827)*V(1950) - A(10828) = RCT(10828)*V(658) - A(10829) = RCT(10829)*V(2119)*V(5250) - A(10830) = RCT(10830)*V(2119) - A(10831) = RCT(10831)*V(1668)*V(5250) - A(10832) = RCT(10832)*V(1668) - A(10833) = RCT(10833)*V(1863)*V(5250) - A(10834) = RCT(10834)*V(1863) - A(10835) = RCT(10835)*V(1863) - A(10836) = RCT(10836)*V(585) - A(10837) = RCT(10837)*V(2315)*V(5250) - A(10838) = RCT(10838)*V(2315) - A(10839) = RCT(10839)*V(1687)*V(5250) - A(10840) = RCT(10840)*V(1687) - A(10841) = RCT(10841)*V(2737)*V(5250) - A(10842) = RCT(10842)*V(2737) - A(10843) = RCT(10843)*V(2737) - A(10844) = RCT(10844)*V(1769) - A(10845) = RCT(10845)*V(1828)*V(5250) - A(10846) = RCT(10846)*V(1828) - A(10847) = RCT(10847)*V(1619)*V(5250) - A(10848) = RCT(10848)*V(1619) - A(10849) = RCT(10849)*V(1523)*V(5250) - A(10850) = RCT(10850)*V(1523) - A(10851) = RCT(10851)*V(2165)*V(5250) - A(10852) = RCT(10852)*V(2165) - A(10853) = RCT(10853)*V(189) - A(10854) = RCT(10854)*V(3242)*V(5250) - A(10855) = RCT(10855)*V(413)*V(5250) - A(10856) = RCT(10856)*V(1373)*V(5250) - A(10857) = RCT(10857)*V(1373) - A(10858) = RCT(10858)*V(726) - A(10859) = RCT(10859)*V(1372)*V(5250) - A(10860) = RCT(10860)*V(440)*V(5250) - A(10861) = RCT(10861)*V(251)*V(5250) - A(10862) = RCT(10862)*V(900)*V(5250) - A(10863) = RCT(10863)*V(900) - A(10864) = RCT(10864)*V(2648)*V(5250) - A(10865) = RCT(10865)*V(2648) - A(10866) = RCT(10866)*V(1624) - A(10867) = RCT(10867)*V(1624) - A(10868) = RCT(10868)*V(496)*V(5250) - A(10869) = RCT(10869)*V(1407)*V(5250) - A(10870) = RCT(10870)*V(1407) - A(10871) = RCT(10871)*V(2685)*V(5250) - A(10872) = RCT(10872)*V(2685) - A(10873) = RCT(10873)*V(1900)*V(5250) - A(10874) = RCT(10874)*V(1900) - A(10875) = RCT(10875)*V(724) - A(10876) = RCT(10876)*V(1913)*V(5250) - A(10877) = RCT(10877)*V(1913) - A(10878) = RCT(10878)*V(371)*V(5250) - A(10879) = RCT(10879)*V(949)*V(5250) - A(10880) = RCT(10880)*V(949) - A(10881) = RCT(10881)*V(2079)*V(5250) - A(10882) = RCT(10882)*V(2079) - A(10883) = RCT(10883)*V(159) - A(10884) = RCT(10884)*V(462)*V(5250) - A(10885) = RCT(10885)*V(1502)*V(5250) - A(10886) = RCT(10886)*V(1502) - A(10887) = RCT(10887)*V(2832) - A(10888) = RCT(10888)*V(692)*V(5250) - A(10889) = RCT(10889)*V(4738)*V(5255) - A(10890) = RCT(10890)*V(4738)*V(5255) - A(10891) = RCT(10891)*V(4738)*V(5255) - A(10892) = RCT(10892)*V(4738)*V(5252) - A(10893) = RCT(10893)*V(4738)*V(5253) - A(10894) = RCT(10894)*V(4738)*V(5256) - A(10895) = RCT(10895)*V(4738) - A(10896) = RCT(10896)*V(4738) - A(10897) = RCT(10897)*V(4043)*V(5255) - A(10898) = RCT(10898)*V(4043)*V(5252) - A(10899) = RCT(10899)*V(4043)*V(5252) - A(10900) = RCT(10900)*V(4043)*V(5256) - A(10901) = RCT(10901)*V(4043) - A(10902) = RCT(10902)*V(4043) - A(10903) = RCT(10903)*V(4043) - A(10904) = RCT(10904)*V(4258)*V(5251) - A(10905) = RCT(10905)*V(4258)*V(5252) - A(10906) = RCT(10906)*V(4258)*V(5253) - A(10907) = RCT(10907)*V(4258)*V(5254) - A(10908) = RCT(10908)*V(4258) - A(10909) = RCT(10909)*V(4176)*V(5255) - A(10910) = RCT(10910)*V(4176)*V(5252) - A(10911) = RCT(10911)*V(4176)*V(5256) - A(10912) = RCT(10912)*V(4176) - A(10913) = RCT(10913)*V(4176) - A(10914) = RCT(10914)*V(4176) - A(10915) = RCT(10915)*V(1183)*V(5250) - A(10916) = RCT(10916)*V(1183) - A(10917) = RCT(10917)*V(2325)*V(5250) - A(10918) = RCT(10918)*V(2746) - A(10919) = RCT(10919)*V(127)*V(5250) - A(10920) = RCT(10920)*V(1286)*V(5250) - A(10921) = RCT(10921)*V(1286) - A(10922) = RCT(10922)*V(1629)*V(5250) - A(10923) = RCT(10923)*V(1629) - A(10924) = RCT(10924)*V(187) - A(10925) = RCT(10925)*V(1628)*V(5250) - A(10926) = RCT(10926)*V(248)*V(5250) - A(10927) = RCT(10927)*V(930)*V(5250) - A(10928) = RCT(10928)*V(930) - A(10929) = RCT(10929)*V(970)*V(5250) - A(10930) = RCT(10930)*V(970) - A(10931) = RCT(10931)*V(2239)*V(5250) - A(10932) = RCT(10932)*V(2239) - A(10933) = RCT(10933)*V(326) - A(10934) = RCT(10934)*V(87)*V(5250) - A(10935) = RCT(10935)*V(1862)*V(5250) - A(10936) = RCT(10936)*V(1862) - A(10937) = RCT(10937)*V(673) - A(10938) = RCT(10938)*V(2288)*V(5250) - A(10939) = RCT(10939)*V(5114)*V(5255) - A(10940) = RCT(10940)*V(5114)*V(5252) - A(10941) = RCT(10941)*V(5114)*V(5252) - A(10942) = RCT(10942)*V(5114)*V(5256) - A(10943) = RCT(10943)*V(5114) - A(10944) = RCT(10944)*V(5114) - A(10945) = RCT(10945)*V(5114) - A(10946) = RCT(10946)*V(2098)*V(5250) - A(10947) = RCT(10947)*V(2098) - A(10948) = RCT(10948)*V(1334)*V(5250) - A(10949) = RCT(10949)*V(730) - A(10950) = RCT(10950)*V(1056)*V(5250) - A(10951) = RCT(10951)*V(2266)*V(5250) - A(10952) = RCT(10952)*V(2266) - A(10953) = RCT(10953)*V(663) - A(10954) = RCT(10954)*V(1738)*V(5250) - A(10955) = RCT(10955)*V(2319) - A(10956) = RCT(10956)*V(2319)*V(5250) - A(10957) = RCT(10957)*V(2678) - A(10958) = RCT(10958)*V(2678)*V(5250) - A(10959) = RCT(10959)*V(2144) - A(10960) = RCT(10960)*V(2144)*V(5250) - A(10961) = RCT(10961)*V(2677) - A(10962) = RCT(10962)*V(2677)*V(5250) - A(10963) = RCT(10963)*V(5182) - A(10964) = RCT(10964)*V(5182)*V(5256) - A(10965) = RCT(10965)*V(5182)*V(5250) - A(10966) = RCT(10966)*V(4957)*V(5255) - A(10967) = RCT(10967)*V(4957)*V(5255) - A(10968) = RCT(10968)*V(4957)*V(5255) - A(10969) = RCT(10969)*V(4957)*V(5252) - A(10970) = RCT(10970)*V(4957)*V(5253) - A(10971) = RCT(10971)*V(4957)*V(5256) - A(10972) = RCT(10972)*V(4957) - A(10973) = RCT(10973)*V(4957) - A(10974) = RCT(10974)*V(4015)*V(5255) - A(10975) = RCT(10975)*V(4015)*V(5252) - A(10976) = RCT(10976)*V(4015)*V(5256) - A(10977) = RCT(10977)*V(4015) - A(10978) = RCT(10978)*V(3992)*V(5255) - A(10979) = RCT(10979)*V(3992)*V(5252) - A(10980) = RCT(10980)*V(3992)*V(5256) - A(10981) = RCT(10981)*V(3992) - A(10982) = RCT(10982)*V(4042)*V(5255) - A(10983) = RCT(10983)*V(4042)*V(5252) - A(10984) = RCT(10984)*V(4042)*V(5256) - A(10985) = RCT(10985)*V(4042) - A(10986) = RCT(10986)*V(258)*V(5250) - A(10987) = RCT(10987)*V(1475) - A(10988) = RCT(10988)*V(1475)*V(5250) - A(10989) = RCT(10989)*V(2786) - A(10990) = RCT(10990)*V(2786)*V(5250) - A(10991) = RCT(10991)*V(909)*V(5250) - A(10992) = RCT(10992)*V(909) - A(10993) = RCT(10993)*V(2865) - A(10994) = RCT(10994)*V(3358)*V(5250) - A(10995) = RCT(10995)*V(3358) - A(10996) = RCT(10996)*V(4795)*V(5255) - A(10997) = RCT(10997)*V(4795)*V(5255) - A(10998) = RCT(10998)*V(4795)*V(5255) - A(10999) = RCT(10999)*V(4795)*V(5252) - A(11000) = RCT(11000)*V(4795)*V(5253) - A(11001) = RCT(11001)*V(4795)*V(5256) - A(11002) = RCT(11002)*V(4795) - A(11003) = RCT(11003)*V(4795) - A(11004) = RCT(11004)*V(5179)*V(5255) - A(11005) = RCT(11005)*V(5179)*V(5255) - A(11006) = RCT(11006)*V(5179)*V(5255) - A(11007) = RCT(11007)*V(5179)*V(5252) - A(11008) = RCT(11008)*V(5179)*V(5253) - A(11009) = RCT(11009)*V(5179)*V(5256) - A(11010) = RCT(11010)*V(5179) - A(11011) = RCT(11011)*V(5179) - A(11012) = RCT(11012)*V(207)*V(5250) - A(11013) = RCT(11013)*V(1042) - A(11014) = RCT(11014)*V(1042)*V(5250) - A(11015) = RCT(11015)*V(2884) - A(11016) = RCT(11016)*V(2884)*V(5250) - A(11017) = RCT(11017)*V(4662)*V(5255) - A(11018) = RCT(11018)*V(4662)*V(5255) - A(11019) = RCT(11019)*V(4662)*V(5255) - A(11020) = RCT(11020)*V(4662)*V(5252) - A(11021) = RCT(11021)*V(4662)*V(5253) - A(11022) = RCT(11022)*V(4662)*V(5256) - A(11023) = RCT(11023)*V(4662) - A(11024) = RCT(11024)*V(4662) - A(11025) = RCT(11025)*V(1074) - A(11026) = RCT(11026)*V(1074)*V(5250) - A(11027) = RCT(11027)*V(2885) - A(11028) = RCT(11028)*V(2885)*V(5250) - A(11029) = RCT(11029)*V(1204) - A(11030) = RCT(11030)*V(1204)*V(5250) - A(11031) = RCT(11031)*V(2270) - A(11032) = RCT(11032)*V(2270)*V(5250) - A(11033) = RCT(11033)*V(2589) - A(11034) = RCT(11034)*V(590) - A(11035) = RCT(11035)*V(590)*V(5250) - A(11036) = RCT(11036)*V(4866)*V(5255) - A(11037) = RCT(11037)*V(4866)*V(5255) - A(11038) = RCT(11038)*V(4866)*V(5255) - A(11039) = RCT(11039)*V(4866)*V(5252) - A(11040) = RCT(11040)*V(4866)*V(5253) - A(11041) = RCT(11041)*V(4866)*V(5256) - A(11042) = RCT(11042)*V(4866) - A(11043) = RCT(11043)*V(4866) - A(11044) = RCT(11044)*V(376)*V(5250) - A(11045) = RCT(11045)*V(1448) - A(11046) = RCT(11046)*V(1448)*V(5250) - A(11047) = RCT(11047)*V(2843) - A(11048) = RCT(11048)*V(2843)*V(5250) - A(11049) = RCT(11049)*V(2553) - A(11050) = RCT(11050)*V(2553)*V(5250) - A(11051) = RCT(11051)*V(2553)*V(5250) - A(11052) = RCT(11052)*V(2814) - A(11053) = RCT(11053)*V(2814)*V(5250) - A(11054) = RCT(11054)*V(4979)*V(5255) - A(11055) = RCT(11055)*V(4979)*V(5255) - A(11056) = RCT(11056)*V(4979)*V(5255) - A(11057) = RCT(11057)*V(4979)*V(5252) - A(11058) = RCT(11058)*V(4979)*V(5253) - A(11059) = RCT(11059)*V(4979)*V(5256) - A(11060) = RCT(11060)*V(4979) - A(11061) = RCT(11061)*V(4979) - A(11062) = RCT(11062)*V(4546)*V(5255) - A(11063) = RCT(11063)*V(4546)*V(5252) - A(11064) = RCT(11064)*V(4546)*V(5256) - A(11065) = RCT(11065)*V(4546) - A(11066) = RCT(11066)*V(4546) - A(11067) = RCT(11067)*V(1490) - A(11068) = RCT(11068)*V(1490)*V(5250) - A(11069) = RCT(11069)*V(1978) - A(11070) = RCT(11070)*V(1978)*V(5250) - A(11071) = RCT(11071)*V(2646) - A(11072) = RCT(11072)*V(2646) - A(11073) = RCT(11073)*V(289)*V(5250) - A(11074) = RCT(11074)*V(479)*V(5250) - A(11075) = RCT(11075)*V(1090) - A(11076) = RCT(11076)*V(1090)*V(5250) - A(11077) = RCT(11077)*V(2846) - A(11078) = RCT(11078)*V(2846)*V(5250) - A(11079) = RCT(11079)*V(2730) - A(11080) = RCT(11080)*V(2730) - A(11081) = RCT(11081)*V(2730)*V(5250) - A(11082) = RCT(11082)*V(2730)*V(5250) - A(11083) = RCT(11083)*V(674) - A(11084) = RCT(11084)*V(3057) - A(11085) = RCT(11085)*V(3057)*V(5250) - A(11086) = RCT(11086)*V(1659) - A(11087) = RCT(11087)*V(1659)*V(5250) - A(11088) = RCT(11088)*V(1327) - A(11089) = RCT(11089)*V(1327)*V(5250) - A(11090) = RCT(11090)*V(2844) - A(11091) = RCT(11091)*V(2844)*V(5250) - A(11092) = RCT(11092)*V(240)*V(5250) - A(11093) = RCT(11093)*V(845) - A(11094) = RCT(11094)*V(845)*V(5250) - A(11095) = RCT(11095)*V(2848) - A(11096) = RCT(11096)*V(2848)*V(5250) - A(11097) = RCT(11097)*V(1213) - A(11098) = RCT(11098)*V(1213)*V(5250) - A(11099) = RCT(11099)*V(2256) - A(11100) = RCT(11100)*V(2256)*V(5250) - A(11101) = RCT(11101)*V(3013) - A(11102) = RCT(11102)*V(4279) - A(11103) = RCT(11103)*V(4279)*V(5256) - A(11104) = RCT(11104)*V(4279)*V(5250) - A(11105) = RCT(11105)*V(554) - A(11106) = RCT(11106)*V(554)*V(5250) - A(11107) = RCT(11107)*V(1323) - A(11108) = RCT(11108)*V(1323)*V(5250) - A(11109) = RCT(11109)*V(2253) - A(11110) = RCT(11110)*V(2253)*V(5250) - A(11111) = RCT(11111)*V(2982) - A(11112) = RCT(11112)*V(651) - A(11113) = RCT(11113)*V(651)*V(5250) - A(11114) = RCT(11114)*V(3780) - A(11115) = RCT(11115)*V(3780)*V(5250) - A(11116) = RCT(11116)*V(4642)*V(5255) - A(11117) = RCT(11117)*V(4642)*V(5255) - A(11118) = RCT(11118)*V(4642)*V(5255) - A(11119) = RCT(11119)*V(4642)*V(5252) - A(11120) = RCT(11120)*V(4642)*V(5253) - A(11121) = RCT(11121)*V(4642)*V(5256) - A(11122) = RCT(11122)*V(4642) - A(11123) = RCT(11123)*V(4642) - A(11124) = RCT(11124)*V(449)*V(5250) - A(11125) = RCT(11125)*V(1291) - A(11126) = RCT(11126)*V(1291)*V(5250) - A(11127) = RCT(11127)*V(3025) - A(11128) = RCT(11128)*V(3025)*V(5250) - A(11129) = RCT(11129)*V(1499) - A(11130) = RCT(11130)*V(1499)*V(5250) - A(11131) = RCT(11131)*V(2514) - A(11132) = RCT(11132)*V(2514)*V(5250) - A(11133) = RCT(11133)*V(2644) - A(11134) = RCT(11134)*V(284) - A(11135) = RCT(11135)*V(284)*V(5250) - A(11136) = RCT(11136)*V(1191) - A(11137) = RCT(11137)*V(1191)*V(5250) - A(11138) = RCT(11138)*V(1607) - A(11139) = RCT(11139)*V(664) - A(11140) = RCT(11140)*V(664)*V(5250) - A(11141) = RCT(11141)*V(2197) - A(11142) = RCT(11142)*V(2197)*V(5250) - A(11143) = RCT(11143)*V(2426) - A(11144) = RCT(11144)*V(2426) - A(11145) = RCT(11145)*V(2426)*V(5250) - A(11146) = RCT(11146)*V(1677) - A(11147) = RCT(11147)*V(1637) - A(11148) = RCT(11148)*V(1637)*V(5250) - A(11149) = RCT(11149)*V(456)*V(5250) - A(11150) = RCT(11150)*V(1547) - A(11151) = RCT(11151)*V(1547)*V(5250) - A(11152) = RCT(11152)*V(3311) - A(11153) = RCT(11153)*V(3311)*V(5250) - A(11154) = RCT(11154)*V(1907) - A(11155) = RCT(11155)*V(1907)*V(5250) - A(11156) = RCT(11156)*V(1907)*V(5250) - A(11157) = RCT(11157)*V(2419) - A(11158) = RCT(11158)*V(2419)*V(5250) - A(11159) = RCT(11159)*V(1552) - A(11160) = RCT(11160)*V(346)*V(5250) - A(11161) = RCT(11161)*V(4501) - A(11162) = RCT(11162)*V(4501)*V(5256) - A(11163) = RCT(11163)*V(4501)*V(5250) - A(11164) = RCT(11164)*V(329)*V(5250) - A(11165) = RCT(11165)*V(975) - A(11166) = RCT(11166)*V(975)*V(5250) - A(11167) = RCT(11167)*V(2669) - A(11168) = RCT(11168)*V(2669)*V(5250) - A(11169) = RCT(11169)*V(519)*V(5250) - A(11170) = RCT(11170)*V(1477) - A(11171) = RCT(11171)*V(1477)*V(5250) - A(11172) = RCT(11172)*V(2778) - A(11173) = RCT(11173)*V(2778)*V(5250) - A(11174) = RCT(11174)*V(4573)*V(5255) - A(11175) = RCT(11175)*V(4573)*V(5252) - A(11176) = RCT(11176)*V(4573)*V(5252) - A(11177) = RCT(11177)*V(4573)*V(5256) - A(11178) = RCT(11178)*V(4573) - A(11179) = RCT(11179)*V(4573) - A(11180) = RCT(11180)*V(4573) - A(11181) = RCT(11181)*V(4566)*V(5255) - A(11182) = RCT(11182)*V(4566)*V(5252) - A(11183) = RCT(11183)*V(4566)*V(5256) - A(11184) = RCT(11184)*V(4566) - A(11185) = RCT(11185)*V(4566) - A(11186) = RCT(11186)*V(4566) - A(11187) = RCT(11187)*V(4584)*V(5255) - A(11188) = RCT(11188)*V(4584)*V(5252) - A(11189) = RCT(11189)*V(4584)*V(5256) - A(11190) = RCT(11190)*V(4584) - A(11191) = RCT(11191)*V(4584) - A(11192) = RCT(11192)*V(4584) - A(11193) = RCT(11193)*V(1937) - A(11194) = RCT(11194)*V(1937) - A(11195) = RCT(11195)*V(1937)*V(5250) - A(11196) = RCT(11196)*V(596) - A(11197) = RCT(11197)*V(2016) - A(11198) = RCT(11198)*V(2016)*V(5250) - A(11199) = RCT(11199)*V(534) - A(11200) = RCT(11200)*V(1145) - A(11201) = RCT(11201)*V(1145)*V(5250) - A(11202) = RCT(11202)*V(2282) - A(11203) = RCT(11203)*V(2282)*V(5250) - A(11204) = RCT(11204)*V(2697) - A(11205) = RCT(11205)*V(3126) - A(11206) = RCT(11206)*V(3126)*V(5250) - A(11207) = RCT(11207)*V(758) - A(11208) = RCT(11208)*V(758)*V(5250) - A(11209) = RCT(11209)*V(3528) - A(11210) = RCT(11210)*V(3528) - A(11211) = RCT(11211)*V(3528)*V(5250) - A(11212) = RCT(11212)*V(3528)*V(5250) - A(11213) = RCT(11213)*V(734) - A(11214) = RCT(11214)*V(1826) - A(11215) = RCT(11215)*V(1826)*V(5250) - A(11216) = RCT(11216)*V(1557) - A(11217) = RCT(11217)*V(1557)*V(5250) - A(11218) = RCT(11218)*V(4802)*V(5255) - A(11219) = RCT(11219)*V(4802)*V(5252) - A(11220) = RCT(11220)*V(4802)*V(5252) - A(11221) = RCT(11221)*V(4802)*V(5256) - A(11222) = RCT(11222)*V(4802) - A(11223) = RCT(11223)*V(4802) - A(11224) = RCT(11224)*V(4309)*V(5255) - A(11225) = RCT(11225)*V(4309)*V(5252) - A(11226) = RCT(11226)*V(4309)*V(5256) - A(11227) = RCT(11227)*V(4309) - A(11228) = RCT(11228)*V(4309) - A(11229) = RCT(11229)*V(4811)*V(5255) - A(11230) = RCT(11230)*V(4811)*V(5252) - A(11231) = RCT(11231)*V(4811)*V(5256) - A(11232) = RCT(11232)*V(4811) - A(11233) = RCT(11233)*V(4811) - A(11234) = RCT(11234)*V(4811) - A(11235) = RCT(11235)*V(2095) - A(11236) = RCT(11236)*V(2095)*V(5250) - A(11237) = RCT(11237)*V(571) - A(11238) = RCT(11238)*V(2331) - A(11239) = RCT(11239)*V(2331)*V(5250) - A(11240) = RCT(11240)*V(2331)*V(5250) - A(11241) = RCT(11241)*V(1829) - A(11242) = RCT(11242)*V(1829)*V(5250) - A(11243) = RCT(11243)*V(200) - A(11244) = RCT(11244)*V(306)*V(5250) - A(11245) = RCT(11245)*V(4537) - A(11246) = RCT(11246)*V(4537)*V(5256) - A(11247) = RCT(11247)*V(4537)*V(5250) - A(11248) = RCT(11248)*V(280)*V(5250) - A(11249) = RCT(11249)*V(1196) - A(11250) = RCT(11250)*V(1196)*V(5250) - A(11251) = RCT(11251)*V(2496) - A(11252) = RCT(11252)*V(2496)*V(5250) - A(11253) = RCT(11253)*V(1136) - A(11254) = RCT(11254)*V(1136)*V(5250) - A(11255) = RCT(11255)*V(2185) - A(11256) = RCT(11256)*V(2185)*V(5250) - A(11257) = RCT(11257)*V(3009) - A(11258) = RCT(11258)*V(807) - A(11259) = RCT(11259)*V(807)*V(5250) - A(11260) = RCT(11260)*V(3504) - A(11261) = RCT(11261)*V(3504)*V(5250) - A(11262) = RCT(11262)*V(4369)*V(5255) - A(11263) = RCT(11263)*V(4369)*V(5252) - A(11264) = RCT(11264)*V(4369)*V(5256) - A(11265) = RCT(11265)*V(4369) - A(11266) = RCT(11266)*V(4369) - A(11267) = RCT(11267)*V(4369) - A(11268) = RCT(11268)*V(2316) - A(11269) = RCT(11269)*V(2316)*V(5250) - A(11270) = RCT(11270)*V(539) - A(11271) = RCT(11271)*V(1446) - A(11272) = RCT(11272)*V(1446)*V(5250) - A(11273) = RCT(11273)*V(2124) - A(11274) = RCT(11274)*V(2124)*V(5250) - A(11275) = RCT(11275)*V(2642) - A(11276) = RCT(11276)*V(3522) - A(11277) = RCT(11277)*V(3522)*V(5250) - A(11278) = RCT(11278)*V(616) - A(11279) = RCT(11279)*V(616)*V(5250) - A(11280) = RCT(11280)*V(4349)*V(5255) - A(11281) = RCT(11281)*V(4349)*V(5252) - A(11282) = RCT(11282)*V(4349)*V(5256) - A(11283) = RCT(11283)*V(4349) - A(11284) = RCT(11284)*V(4349) - A(11285) = RCT(11285)*V(4349) - A(11286) = RCT(11286)*V(2027) - A(11287) = RCT(11287)*V(2027)*V(5250) - A(11288) = RCT(11288)*V(791) - A(11289) = RCT(11289)*V(1115) - A(11290) = RCT(11290)*V(1115)*V(5250) - A(11291) = RCT(11291)*V(2760) - A(11292) = RCT(11292)*V(967) - A(11293) = RCT(11293)*V(967)*V(5250) - A(11294) = RCT(11294)*V(2245) - A(11295) = RCT(11295)*V(2245)*V(5250) - A(11296) = RCT(11296)*V(2594) - A(11297) = RCT(11297)*V(3544) - A(11298) = RCT(11298)*V(3544)*V(5250) - A(11299) = RCT(11299)*V(671) - A(11300) = RCT(11300)*V(671)*V(5250) - A(11301) = RCT(11301)*V(4389)*V(5255) - A(11302) = RCT(11302)*V(4389)*V(5252) - A(11303) = RCT(11303)*V(4389)*V(5256) - A(11304) = RCT(11304)*V(4389) - A(11305) = RCT(11305)*V(4389) - A(11306) = RCT(11306)*V(4389) - A(11307) = RCT(11307)*V(2298) - A(11308) = RCT(11308)*V(2298)*V(5250) - A(11309) = RCT(11309)*V(776) - A(11310) = RCT(11310)*V(1122) - A(11311) = RCT(11311)*V(1122)*V(5250) - A(11312) = RCT(11312)*V(2874) - A(11313) = RCT(11313)*V(1526) - A(11314) = RCT(11314)*V(1526)*V(5250) - A(11315) = RCT(11315)*V(2330) - A(11316) = RCT(11316)*V(2330)*V(5250) - A(11317) = RCT(11317)*V(2638) - A(11318) = RCT(11318)*V(3493) - A(11319) = RCT(11319)*V(3493)*V(5250) - A(11320) = RCT(11320)*V(804) - A(11321) = RCT(11321)*V(804)*V(5250) - A(11322) = RCT(11322)*V(4361)*V(5255) - A(11323) = RCT(11323)*V(4361)*V(5252) - A(11324) = RCT(11324)*V(4361)*V(5256) - A(11325) = RCT(11325)*V(4361) - A(11326) = RCT(11326)*V(4361) - A(11327) = RCT(11327)*V(4361) - A(11328) = RCT(11328)*V(2411) - A(11329) = RCT(11329)*V(2411)*V(5250) - A(11330) = RCT(11330)*V(528) - A(11331) = RCT(11331)*V(1398) - A(11332) = RCT(11332)*V(1398)*V(5250) - A(11333) = RCT(11333)*V(2676) - A(11334) = RCT(11334)*V(1543) - A(11335) = RCT(11335)*V(1543)*V(5250) - A(11336) = RCT(11336)*V(2271) - A(11337) = RCT(11337)*V(2271)*V(5250) - A(11338) = RCT(11338)*V(2562) - A(11339) = RCT(11339)*V(3548) - A(11340) = RCT(11340)*V(3548)*V(5250) - A(11341) = RCT(11341)*V(762) - A(11342) = RCT(11342)*V(762)*V(5250) - A(11343) = RCT(11343)*V(4850)*V(5255) - A(11344) = RCT(11344)*V(4850)*V(5255) - A(11345) = RCT(11345)*V(4850)*V(5255) - A(11346) = RCT(11346)*V(4850)*V(5252) - A(11347) = RCT(11347)*V(4850)*V(5253) - A(11348) = RCT(11348)*V(4850)*V(5256) - A(11349) = RCT(11349)*V(4850) - A(11350) = RCT(11350)*V(4850) - A(11351) = RCT(11351)*V(4355)*V(5255) - A(11352) = RCT(11352)*V(4355)*V(5252) - A(11353) = RCT(11353)*V(4355)*V(5256) - A(11354) = RCT(11354)*V(4355) - A(11355) = RCT(11355)*V(4355) - A(11356) = RCT(11356)*V(4355) - A(11357) = RCT(11357)*V(2205) - A(11358) = RCT(11358)*V(2205)*V(5250) - A(11359) = RCT(11359)*V(574) - A(11360) = RCT(11360)*V(1478)*V(5250) - A(11361) = RCT(11361)*V(1478) - A(11362) = RCT(11362)*V(3015)*V(5250) - A(11363) = RCT(11363)*V(3015) - A(11364) = RCT(11364)*V(1998) - A(11365) = RCT(11365)*V(408)*V(5250) - A(11366) = RCT(11366)*V(1947)*V(5250) - A(11367) = RCT(11367)*V(1947) - A(11368) = RCT(11368)*V(777) - A(11369) = RCT(11369)*V(4651)*V(5256) - A(11370) = RCT(11370)*V(4651)*V(5250) - A(11371) = RCT(11371)*V(4651) - A(11372) = RCT(11372)*V(331)*V(5250) - A(11373) = RCT(11373)*V(110)*V(5250) - A(11374) = RCT(11374)*V(5059)*V(5255) - A(11375) = RCT(11375)*V(5059)*V(5252) - A(11376) = RCT(11376)*V(5059)*V(5256) - A(11377) = RCT(11377)*V(5059) - A(11378) = RCT(11378)*V(5059) - A(11379) = RCT(11379)*V(5059) - A(11380) = RCT(11380)*V(4467)*V(5255) - A(11381) = RCT(11381)*V(4467)*V(5252) - A(11382) = RCT(11382)*V(4467)*V(5256) - A(11383) = RCT(11383)*V(4467) - A(11384) = RCT(11384)*V(4271)*V(5255) - A(11385) = RCT(11385)*V(4271)*V(5252) - A(11386) = RCT(11386)*V(4271)*V(5256) - A(11387) = RCT(11387)*V(4271) - A(11388) = RCT(11388)*V(1427)*V(5250) - A(11389) = RCT(11389)*V(1427) - A(11390) = RCT(11390)*V(979)*V(5250) - A(11391) = RCT(11391)*V(979) - A(11392) = RCT(11392)*V(2535) - A(11393) = RCT(11393)*V(1105)*V(5250) - A(11394) = RCT(11394)*V(1105) - A(11395) = RCT(11395)*V(2731) - A(11396) = RCT(11396)*V(1943)*V(5250) - A(11397) = RCT(11397)*V(1943) - A(11398) = RCT(11398)*V(535) - A(11399) = RCT(11399)*V(491)*V(5250) - A(11400) = RCT(11400)*V(491) - A(11401) = RCT(11401)*V(130) - A(11402) = RCT(11402)*V(490)*V(5250) - A(11403) = RCT(11403)*V(212)*V(5250) - A(11404) = RCT(11404)*V(2046)*V(5250) - A(11405) = RCT(11405)*V(2046) - A(11406) = RCT(11406)*V(816) - A(11407) = RCT(11407)*V(518)*V(5250) - A(11408) = RCT(11408)*V(518) - A(11409) = RCT(11409)*V(14) - A(11410) = RCT(11410)*V(455)*V(5250) - A(11411) = RCT(11411)*V(372)*V(5250) - A(11412) = RCT(11412)*V(4458)*V(5255) - A(11413) = RCT(11413)*V(4458)*V(5252) - A(11414) = RCT(11414)*V(4458)*V(5256) - A(11415) = RCT(11415)*V(4458) - A(11416) = RCT(11416)*V(4306)*V(5255) - A(11417) = RCT(11417)*V(4306)*V(5252) - A(11418) = RCT(11418)*V(4306)*V(5256) - A(11419) = RCT(11419)*V(4306) - A(11420) = RCT(11420)*V(1230)*V(5250) - A(11421) = RCT(11421)*V(1230) - A(11422) = RCT(11422)*V(1096)*V(5250) - A(11423) = RCT(11423)*V(1096) - A(11424) = RCT(11424)*V(2536) - A(11425) = RCT(11425)*V(1322)*V(5250) - A(11426) = RCT(11426)*V(1322) - A(11427) = RCT(11427)*V(3001) - A(11428) = RCT(11428)*V(3484)*V(5256) - A(11429) = RCT(11429)*V(3484)*V(5250) - A(11430) = RCT(11430)*V(3484) - A(11431) = RCT(11431)*V(5018)*V(5256) - A(11432) = RCT(11432)*V(5018)*V(5250) - A(11433) = RCT(11433)*V(5018) - A(11434) = RCT(11434)*V(2107)*V(5250) - A(11435) = RCT(11435)*V(2107) - A(11436) = RCT(11436)*V(693) - A(11437) = RCT(11437)*V(56)*V(5250) - A(11438) = RCT(11438)*V(3535)*V(5250) - A(11439) = RCT(11439)*V(3535) - A(11440) = RCT(11440)*V(4188)*V(5255) - A(11441) = RCT(11441)*V(4188)*V(5252) - A(11442) = RCT(11442)*V(4188)*V(5256) - A(11443) = RCT(11443)*V(4188) - A(11444) = RCT(11444)*V(4415)*V(5255) - A(11445) = RCT(11445)*V(4415)*V(5252) - A(11446) = RCT(11446)*V(4415)*V(5256) - A(11447) = RCT(11447)*V(4415) - A(11448) = RCT(11448)*V(4298)*V(5255) - A(11449) = RCT(11449)*V(4298)*V(5252) - A(11450) = RCT(11450)*V(4298)*V(5256) - A(11451) = RCT(11451)*V(4298) - A(11452) = RCT(11452)*V(978)*V(5250) - A(11453) = RCT(11453)*V(978) - A(11454) = RCT(11454)*V(2093)*V(5250) - A(11455) = RCT(11455)*V(2093) - A(11456) = RCT(11456)*V(809) - A(11457) = RCT(11457)*V(398)*V(5250) - A(11458) = RCT(11458)*V(398) - A(11459) = RCT(11459)*V(120) - A(11460) = RCT(11460)*V(397)*V(5250) - A(11461) = RCT(11461)*V(299)*V(5250) - A(11462) = RCT(11462)*V(1104)*V(5250) - A(11463) = RCT(11463)*V(1104) - A(11464) = RCT(11464)*V(2918) - A(11465) = RCT(11465)*V(917)*V(5250) - A(11466) = RCT(11466)*V(917) - A(11467) = RCT(11467)*V(2641) - A(11468) = RCT(11468)*V(542)*V(5250) - A(11469) = RCT(11469)*V(542) - A(11470) = RCT(11470)*V(3914)*V(5256) - A(11471) = RCT(11471)*V(3914)*V(5250) - A(11472) = RCT(11472)*V(3914) - A(11473) = RCT(11473)*V(4742)*V(5255) - A(11474) = RCT(11474)*V(4742)*V(5252) - A(11475) = RCT(11475)*V(4742)*V(5256) - A(11476) = RCT(11476)*V(4742) - A(11477) = RCT(11477)*V(3911)*V(5256) - A(11478) = RCT(11478)*V(3911)*V(5250) - A(11479) = RCT(11479)*V(3911) - A(11480) = RCT(11480)*V(4904)*V(5255) - A(11481) = RCT(11481)*V(4904)*V(5252) - A(11482) = RCT(11482)*V(4904)*V(5256) - A(11483) = RCT(11483)*V(4904) - A(11484) = RCT(11484)*V(4904) - A(11485) = RCT(11485)*V(4498)*V(5255) - A(11486) = RCT(11486)*V(4498)*V(5252) - A(11487) = RCT(11487)*V(4498)*V(5256) - A(11488) = RCT(11488)*V(4498) - A(11489) = RCT(11489)*V(4305)*V(5255) - A(11490) = RCT(11490)*V(4305)*V(5252) - A(11491) = RCT(11491)*V(4305)*V(5256) - A(11492) = RCT(11492)*V(4305) - A(11493) = RCT(11493)*V(892)*V(5250) - A(11494) = RCT(11494)*V(892) - A(11495) = RCT(11495)*V(1979)*V(5250) - A(11496) = RCT(11496)*V(1979) - A(11497) = RCT(11497)*V(753) - A(11498) = RCT(11498)*V(963)*V(5250) - A(11499) = RCT(11499)*V(963) - A(11500) = RCT(11500)*V(82) - A(11501) = RCT(11501)*V(33)*V(5250) - A(11502) = RCT(11502)*V(1255)*V(5250) - A(11503) = RCT(11503)*V(1255) - A(11504) = RCT(11504)*V(2668) - A(11505) = RCT(11505)*V(1379)*V(5250) - A(11506) = RCT(11506)*V(1379) - A(11507) = RCT(11507)*V(2963) - A(11508) = RCT(11508)*V(4101)*V(5255) - A(11509) = RCT(11509)*V(4101)*V(5252) - A(11510) = RCT(11510)*V(4101)*V(5256) - A(11511) = RCT(11511)*V(4101) - A(11512) = RCT(11512)*V(3281) - A(11513) = RCT(11513)*V(4506)*V(5255) - A(11514) = RCT(11514)*V(4506)*V(5252) - A(11515) = RCT(11515)*V(4506)*V(5256) - A(11516) = RCT(11516)*V(4506) - A(11517) = RCT(11517)*V(4204)*V(5255) - A(11518) = RCT(11518)*V(4204)*V(5252) - A(11519) = RCT(11519)*V(4204)*V(5256) - A(11520) = RCT(11520)*V(4204) - A(11521) = RCT(11521)*V(1366)*V(5250) - A(11522) = RCT(11522)*V(1366) - A(11523) = RCT(11523)*V(2091)*V(5250) - A(11524) = RCT(11524)*V(2091) - A(11525) = RCT(11525)*V(555) - A(11526) = RCT(11526)*V(1497)*V(5250) - A(11527) = RCT(11527)*V(1497) - A(11528) = RCT(11528)*V(65) - A(11529) = RCT(11529)*V(103)*V(5250) - A(11530) = RCT(11530)*V(1144)*V(5250) - A(11531) = RCT(11531)*V(1144) - A(11532) = RCT(11532)*V(2682) - A(11533) = RCT(11533)*V(1190)*V(5250) - A(11534) = RCT(11534)*V(1190) - A(11535) = RCT(11535)*V(2741) - A(11536) = RCT(11536)*V(4464)*V(5255) - A(11537) = RCT(11537)*V(4464)*V(5252) - A(11538) = RCT(11538)*V(4464)*V(5256) - A(11539) = RCT(11539)*V(4464) - A(11540) = RCT(11540)*V(4262)*V(5255) - A(11541) = RCT(11541)*V(4262)*V(5252) - A(11542) = RCT(11542)*V(4262)*V(5256) - A(11543) = RCT(11543)*V(4262) - A(11544) = RCT(11544)*V(1221)*V(5250) - A(11545) = RCT(11545)*V(1221) - A(11546) = RCT(11546)*V(2351)*V(5250) - A(11547) = RCT(11547)*V(2351) - A(11548) = RCT(11548)*V(746) - A(11549) = RCT(11549)*V(521)*V(5250) - A(11550) = RCT(11550)*V(521) - A(11551) = RCT(11551)*V(116) - A(11552) = RCT(11552)*V(318)*V(5250) - A(11553) = RCT(11553)*V(273)*V(5250) - A(11554) = RCT(11554)*V(1253)*V(5250) - A(11555) = RCT(11555)*V(1253) - A(11556) = RCT(11556)*V(2588) - A(11557) = RCT(11557)*V(1512)*V(5250) - A(11558) = RCT(11558)*V(1512) - A(11559) = RCT(11559)*V(2604) - A(11560) = RCT(11560)*V(1928)*V(5250) - A(11561) = RCT(11561)*V(1928) - A(11562) = RCT(11562)*V(1928) - A(11563) = RCT(11563)*V(3748)*V(5256) - A(11564) = RCT(11564)*V(3748)*V(5250) - A(11565) = RCT(11565)*V(3748) - A(11566) = RCT(11566)*V(259)*V(5250) - A(11567) = RCT(11567)*V(3237)*V(5250) - A(11568) = RCT(11568)*V(3237) - A(11569) = RCT(11569)*V(3237) - A(11570) = RCT(11570)*V(2696)*V(5250) - A(11571) = RCT(11571)*V(2696) - A(11572) = RCT(11572)*V(1293)*V(5250) - A(11573) = RCT(11573)*V(1293) - A(11574) = RCT(11574)*V(2758) - A(11575) = RCT(11575)*V(4511)*V(5255) - A(11576) = RCT(11576)*V(4511)*V(5252) - A(11577) = RCT(11577)*V(4511)*V(5256) - A(11578) = RCT(11578)*V(4511) - A(11579) = RCT(11579)*V(4205)*V(5255) - A(11580) = RCT(11580)*V(4205)*V(5252) - A(11581) = RCT(11581)*V(4205)*V(5256) - A(11582) = RCT(11582)*V(4205) - A(11583) = RCT(11583)*V(1091)*V(5250) - A(11584) = RCT(11584)*V(1091) - A(11585) = RCT(11585)*V(1830)*V(5250) - A(11586) = RCT(11586)*V(1830) - A(11587) = RCT(11587)*V(744) - A(11588) = RCT(11588)*V(324)*V(5250) - A(11589) = RCT(11589)*V(324) - A(11590) = RCT(11590)*V(97) - A(11591) = RCT(11591)*V(323)*V(5250) - A(11592) = RCT(11592)*V(322)*V(5250) - A(11593) = RCT(11593)*V(1329)*V(5250) - A(11594) = RCT(11594)*V(1329) - A(11595) = RCT(11595)*V(3421) - A(11596) = RCT(11596)*V(860)*V(5250) - A(11597) = RCT(11597)*V(860) - A(11598) = RCT(11598)*V(3579) - A(11599) = RCT(11599)*V(4502)*V(5255) - A(11600) = RCT(11600)*V(4502)*V(5255) - A(11601) = RCT(11601)*V(4502)*V(5252) - A(11602) = RCT(11602)*V(4502)*V(5253) - A(11603) = RCT(11603)*V(4502)*V(5256) - A(11604) = RCT(11604)*V(4502) - A(11605) = RCT(11605)*V(4233)*V(5256) - A(11606) = RCT(11606)*V(4233)*V(5250) - A(11607) = RCT(11607)*V(4233) - A(11608) = RCT(11608)*V(3773)*V(5256) - A(11609) = RCT(11609)*V(3773)*V(5250) - A(11610) = RCT(11610)*V(3773) - A(11611) = RCT(11611)*V(448)*V(5250) - A(11612) = RCT(11612)*V(3467)*V(5250) - A(11613) = RCT(11613)*V(3467) - A(11614) = RCT(11614)*V(3467) - A(11615) = RCT(11615)*V(3012)*V(5250) - A(11616) = RCT(11616)*V(3012) - A(11617) = RCT(11617)*V(4425)*V(5255) - A(11618) = RCT(11618)*V(4425)*V(5252) - A(11619) = RCT(11619)*V(4425)*V(5256) - A(11620) = RCT(11620)*V(4425) - A(11621) = RCT(11621)*V(4194)*V(5255) - A(11622) = RCT(11622)*V(4194)*V(5252) - A(11623) = RCT(11623)*V(4194)*V(5256) - A(11624) = RCT(11624)*V(4194) - A(11625) = RCT(11625)*V(1308)*V(5250) - A(11626) = RCT(11626)*V(1308) - A(11627) = RCT(11627)*V(2294)*V(5250) - A(11628) = RCT(11628)*V(2294) - A(11629) = RCT(11629)*V(743) - A(11630) = RCT(11630)*V(1359)*V(5250) - A(11631) = RCT(11631)*V(1359) - A(11632) = RCT(11632)*V(92) - A(11633) = RCT(11633)*V(510)*V(5250) - A(11634) = RCT(11634)*V(509)*V(5250) - A(11635) = RCT(11635)*V(923)*V(5250) - A(11636) = RCT(11636)*V(923) - A(11637) = RCT(11637)*V(3395) - A(11638) = RCT(11638)*V(878)*V(5250) - A(11639) = RCT(11639)*V(878) - A(11640) = RCT(11640)*V(3597) - A(11641) = RCT(11641)*V(4424)*V(5255) - A(11642) = RCT(11642)*V(4424)*V(5255) - A(11643) = RCT(11643)*V(4424)*V(5252) - A(11644) = RCT(11644)*V(4424)*V(5253) - A(11645) = RCT(11645)*V(4424)*V(5256) - A(11646) = RCT(11646)*V(4424) - A(11647) = RCT(11647)*V(4227)*V(5256) - A(11648) = RCT(11648)*V(4227)*V(5250) - A(11649) = RCT(11649)*V(4227) - A(11650) = RCT(11650)*V(3775)*V(5256) - A(11651) = RCT(11651)*V(3775)*V(5250) - A(11652) = RCT(11652)*V(3775) - A(11653) = RCT(11653)*V(244)*V(5250) - A(11654) = RCT(11654)*V(3463)*V(5250) - A(11655) = RCT(11655)*V(3463) - A(11656) = RCT(11656)*V(3463) - A(11657) = RCT(11657)*V(2969)*V(5250) - A(11658) = RCT(11658)*V(2969) - A(11659) = RCT(11659)*V(1845)*V(5256) - A(11660) = RCT(11660)*V(1845)*V(5250) - A(11661) = RCT(11661)*V(4655)*V(5255) - A(11662) = RCT(11662)*V(4655)*V(5252) - A(11663) = RCT(11663)*V(4655)*V(5256) - A(11664) = RCT(11664)*V(4655) - A(11665) = RCT(11665)*V(4285)*V(5255) - A(11666) = RCT(11666)*V(4285)*V(5252) - A(11667) = RCT(11667)*V(4285)*V(5256) - A(11668) = RCT(11668)*V(4285) - A(11669) = RCT(11669)*V(1061)*V(5250) - A(11670) = RCT(11670)*V(1061) - A(11671) = RCT(11671)*V(1051)*V(5250) - A(11672) = RCT(11672)*V(1051) - A(11673) = RCT(11673)*V(3016) - A(11674) = RCT(11674)*V(1532)*V(5250) - A(11675) = RCT(11675)*V(1532) - A(11676) = RCT(11676)*V(2586) - A(11677) = RCT(11677)*V(3556)*V(5250) - A(11678) = RCT(11678)*V(3556) - A(11679) = RCT(11679)*V(4726)*V(5255) - A(11680) = RCT(11680)*V(4726)*V(5252) - A(11681) = RCT(11681)*V(4726)*V(5256) - A(11682) = RCT(11682)*V(4726) - A(11683) = RCT(11683)*V(4643)*V(5255) - A(11684) = RCT(11684)*V(4643)*V(5252) - A(11685) = RCT(11685)*V(4643)*V(5256) - A(11686) = RCT(11686)*V(4643) - A(11687) = RCT(11687)*V(4276)*V(5255) - A(11688) = RCT(11688)*V(4276)*V(5252) - A(11689) = RCT(11689)*V(4276)*V(5256) - A(11690) = RCT(11690)*V(4276) - A(11691) = RCT(11691)*V(950)*V(5250) - A(11692) = RCT(11692)*V(950) - A(11693) = RCT(11693)*V(2342)*V(5250) - A(11694) = RCT(11694)*V(2342) - A(11695) = RCT(11695)*V(629) - A(11696) = RCT(11696)*V(1062)*V(5250) - A(11697) = RCT(11697)*V(1062) - A(11698) = RCT(11698)*V(57) - A(11699) = RCT(11699)*V(90)*V(5250) - A(11700) = RCT(11700)*V(1459)*V(5250) - A(11701) = RCT(11701)*V(1459) - A(11702) = RCT(11702)*V(2557) - A(11703) = RCT(11703)*V(1187)*V(5250) - A(11704) = RCT(11704)*V(1187) - A(11705) = RCT(11705)*V(2551) - A(11706) = RCT(11706)*V(4182)*V(5255) - A(11707) = RCT(11707)*V(4182)*V(5252) - A(11708) = RCT(11708)*V(4182)*V(5256) - A(11709) = RCT(11709)*V(4182) - A(11710) = RCT(11710)*V(877)*V(5250) - A(11711) = RCT(11711)*V(877) - A(11712) = RCT(11712)*V(2819) - A(11713) = RCT(11713)*V(4463)*V(5255) - A(11714) = RCT(11714)*V(4463)*V(5252) - A(11715) = RCT(11715)*V(4463)*V(5256) - A(11716) = RCT(11716)*V(4463) - A(11717) = RCT(11717)*V(4289)*V(5255) - A(11718) = RCT(11718)*V(4289)*V(5252) - A(11719) = RCT(11719)*V(4289)*V(5256) - A(11720) = RCT(11720)*V(4289) - A(11721) = RCT(11721)*V(1452)*V(5250) - A(11722) = RCT(11722)*V(1452) - A(11723) = RCT(11723)*V(2368)*V(5250) - A(11724) = RCT(11724)*V(2368) - A(11725) = RCT(11725)*V(597) - A(11726) = RCT(11726)*V(459)*V(5250) - A(11727) = RCT(11727)*V(459) - A(11728) = RCT(11728)*V(107) - A(11729) = RCT(11729)*V(373)*V(5250) - A(11730) = RCT(11730)*V(267)*V(5250) - A(11731) = RCT(11731)*V(962)*V(5250) - A(11732) = RCT(11732)*V(962) - A(11733) = RCT(11733)*V(2566) - A(11734) = RCT(11734)*V(1358)*V(5250) - A(11735) = RCT(11735)*V(1358) - A(11736) = RCT(11736)*V(3004) - A(11737) = RCT(11737)*V(4434)*V(5255) - A(11738) = RCT(11738)*V(4434)*V(5252) - A(11739) = RCT(11739)*V(4434)*V(5256) - A(11740) = RCT(11740)*V(4434) - A(11741) = RCT(11741)*V(4245)*V(5255) - A(11742) = RCT(11742)*V(4245)*V(5252) - A(11743) = RCT(11743)*V(4245)*V(5256) - A(11744) = RCT(11744)*V(4245) - A(11745) = RCT(11745)*V(857)*V(5250) - A(11746) = RCT(11746)*V(857) - A(11747) = RCT(11747)*V(2389)*V(5250) - A(11748) = RCT(11748)*V(2389) - A(11749) = RCT(11749)*V(798) - A(11750) = RCT(11750)*V(1435)*V(5250) - A(11751) = RCT(11751)*V(1435) - A(11752) = RCT(11752)*V(78) - A(11753) = RCT(11753)*V(93)*V(5250) - A(11754) = RCT(11754)*V(1399)*V(5250) - A(11755) = RCT(11755)*V(1399) - A(11756) = RCT(11756)*V(2818) - A(11757) = RCT(11757)*V(1524)*V(5250) - A(11758) = RCT(11758)*V(1524) - A(11759) = RCT(11759)*V(2599) - A(11760) = RCT(11760)*V(4455)*V(5255) - A(11761) = RCT(11761)*V(4455)*V(5252) - A(11762) = RCT(11762)*V(4455)*V(5256) - A(11763) = RCT(11763)*V(4455) - A(11764) = RCT(11764)*V(4232)*V(5255) - A(11765) = RCT(11765)*V(4232)*V(5252) - A(11766) = RCT(11766)*V(4232)*V(5256) - A(11767) = RCT(11767)*V(4232) - A(11768) = RCT(11768)*V(1453)*V(5250) - A(11769) = RCT(11769)*V(1453) - A(11770) = RCT(11770)*V(1783)*V(5250) - A(11771) = RCT(11771)*V(1783) - A(11772) = RCT(11772)*V(780) - A(11773) = RCT(11773)*V(1412)*V(5250) - A(11774) = RCT(11774)*V(1412) - A(11775) = RCT(11775)*V(16) - A(11776) = RCT(11776)*V(106)*V(5250) - A(11777) = RCT(11777)*V(1101)*V(5250) - A(11778) = RCT(11778)*V(1101) - A(11779) = RCT(11779)*V(3065) - A(11780) = RCT(11780)*V(1148)*V(5250) - A(11781) = RCT(11781)*V(1148) - A(11782) = RCT(11782)*V(2575) - A(11783) = RCT(11783)*V(3896)*V(5256) - A(11784) = RCT(11784)*V(3896)*V(5250) - A(11785) = RCT(11785)*V(3896) - A(11786) = RCT(11786)*V(4750)*V(5255) - A(11787) = RCT(11787)*V(4750)*V(5252) - A(11788) = RCT(11788)*V(4750)*V(5256) - A(11789) = RCT(11789)*V(4750) - A(11790) = RCT(11790)*V(387)*V(5250) - A(11791) = RCT(11791)*V(997)*V(5250) - A(11792) = RCT(11792)*V(997) - A(11793) = RCT(11793)*V(2905) - A(11794) = RCT(11794)*V(2320) - A(11795) = RCT(11795)*V(2320)*V(5250) - A(11796) = RCT(11796)*V(2498) - A(11797) = RCT(11797)*V(2498)*V(5250) - A(11798) = RCT(11798)*V(4460)*V(5255) - A(11799) = RCT(11799)*V(4460)*V(5255) - A(11800) = RCT(11800)*V(4460)*V(5255) - A(11801) = RCT(11801)*V(4460)*V(5252) - A(11802) = RCT(11802)*V(4460)*V(5253) - A(11803) = RCT(11803)*V(4460)*V(5256) - A(11804) = RCT(11804)*V(4460) - A(11805) = RCT(11805)*V(4460) - A(11806) = RCT(11806)*V(2105)*V(5250) - A(11807) = RCT(11807)*V(2105) - A(11808) = RCT(11808)*V(1184)*V(5250) - A(11809) = RCT(11809)*V(1184) - A(11810) = RCT(11810)*V(4548)*V(5255) - A(11811) = RCT(11811)*V(4548)*V(5255) - A(11812) = RCT(11812)*V(4548)*V(5252) - A(11813) = RCT(11813)*V(4548)*V(5253) - A(11814) = RCT(11814)*V(4548)*V(5256) - A(11815) = RCT(11815)*V(4548) - A(11816) = RCT(11816)*V(3250) - A(11817) = RCT(11817)*V(3250) - A(11818) = RCT(11818)*V(3250)*V(5250) - A(11819) = RCT(11819)*V(4129)*V(5255) - A(11820) = RCT(11820)*V(4129)*V(5252) - A(11821) = RCT(11821)*V(4129)*V(5256) - A(11822) = RCT(11822)*V(4129) - A(11823) = RCT(11823)*V(5047)*V(5251) - A(11824) = RCT(11824)*V(5047)*V(5252) - A(11825) = RCT(11825)*V(5047)*V(5253) - A(11826) = RCT(11826)*V(5047)*V(5254) - A(11827) = RCT(11827)*V(5047) - A(11828) = RCT(11828)*V(5172)*V(5255) - A(11829) = RCT(11829)*V(5172)*V(5255) - A(11830) = RCT(11830)*V(5172)*V(5252) - A(11831) = RCT(11831)*V(5172)*V(5253) - A(11832) = RCT(11832)*V(5172)*V(5256) - A(11833) = RCT(11833)*V(5172) - A(11834) = RCT(11834)*V(3261)*V(5250) - A(11835) = RCT(11835)*V(3261) - A(11836) = RCT(11836)*V(3261) - A(11837) = RCT(11837)*V(2085) - A(11838) = RCT(11838)*V(2382)*V(5250) - A(11839) = RCT(11839)*V(2382) - A(11840) = RCT(11840)*V(1625) - A(11841) = RCT(11841)*V(1625)*V(5250) - A(11842) = RCT(11842)*V(1603) - A(11843) = RCT(11843)*V(1603)*V(5250) - A(11844) = RCT(11844)*V(1991) - A(11845) = RCT(11845)*V(1991)*V(5250) - A(11846) = RCT(11846)*V(2243)*V(5250) - A(11847) = RCT(11847)*V(2243) - A(11848) = RCT(11848)*V(4539)*V(5255) - A(11849) = RCT(11849)*V(4539)*V(5255) - A(11850) = RCT(11850)*V(4539)*V(5252) - A(11851) = RCT(11851)*V(4539)*V(5253) - A(11852) = RCT(11852)*V(4539)*V(5256) - A(11853) = RCT(11853)*V(4539) - A(11854) = RCT(11854)*V(3618)*V(5250) - A(11855) = RCT(11855)*V(3618) - A(11856) = RCT(11856)*V(3618) - A(11857) = RCT(11857)*V(3618) - A(11858) = RCT(11858)*V(1891) - A(11859) = RCT(11859)*V(4229)*V(5255) - A(11860) = RCT(11860)*V(4229)*V(5255) - A(11861) = RCT(11861)*V(4229)*V(5252) - A(11862) = RCT(11862)*V(4229)*V(5253) - A(11863) = RCT(11863)*V(4229)*V(5256) - A(11864) = RCT(11864)*V(4229) - A(11865) = RCT(11865)*V(4228)*V(5255) - A(11866) = RCT(11866)*V(4228)*V(5255) - A(11867) = RCT(11867)*V(4228)*V(5252) - A(11868) = RCT(11868)*V(4228)*V(5253) - A(11869) = RCT(11869)*V(4228)*V(5256) - A(11870) = RCT(11870)*V(4228) - A(11871) = RCT(11871)*V(2491)*V(5250) - A(11872) = RCT(11872)*V(2491)*V(5250) - A(11873) = RCT(11873)*V(2491) - A(11874) = RCT(11874)*V(5075)*V(5255) - A(11875) = RCT(11875)*V(5075)*V(5255) - A(11876) = RCT(11876)*V(5075)*V(5255) - A(11877) = RCT(11877)*V(5075)*V(5252) - A(11878) = RCT(11878)*V(5075)*V(5253) - A(11879) = RCT(11879)*V(5075)*V(5256) - A(11880) = RCT(11880)*V(5075)*V(5256) - A(11881) = RCT(11881)*V(5075) - A(11882) = RCT(11882)*V(5075) - A(11883) = RCT(11883)*V(1651)*V(5250) - A(11884) = RCT(11884)*V(1651) - A(11885) = RCT(11885)*V(4658)*V(5255) - A(11886) = RCT(11886)*V(4658)*V(5255) - A(11887) = RCT(11887)*V(4658)*V(5255) - A(11888) = RCT(11888)*V(4658)*V(5252) - A(11889) = RCT(11889)*V(4658)*V(5253) - A(11890) = RCT(11890)*V(4658)*V(5256) - A(11891) = RCT(11891)*V(4658) - A(11892) = RCT(11892)*V(4658) - A(11893) = RCT(11893)*V(4518)*V(5255) - A(11894) = RCT(11894)*V(4518)*V(5255) - A(11895) = RCT(11895)*V(4518)*V(5255) - A(11896) = RCT(11896)*V(4518)*V(5252) - A(11897) = RCT(11897)*V(4518)*V(5253) - A(11898) = RCT(11898)*V(4518)*V(5256) - A(11899) = RCT(11899)*V(4518) - A(11900) = RCT(11900)*V(4518) - A(11901) = RCT(11901)*V(123)*V(5250) - A(11902) = RCT(11902)*V(4657)*V(5255) - A(11903) = RCT(11903)*V(4657)*V(5255) - A(11904) = RCT(11904)*V(4657)*V(5255) - A(11905) = RCT(11905)*V(4657)*V(5252) - A(11906) = RCT(11906)*V(4657)*V(5253) - A(11907) = RCT(11907)*V(4657)*V(5256) - A(11908) = RCT(11908)*V(4657) - A(11909) = RCT(11909)*V(4657) - A(11910) = RCT(11910)*V(1425)*V(5250) - A(11911) = RCT(11911)*V(2570) - A(11912) = RCT(11912)*V(2570)*V(5250) - A(11913) = RCT(11913)*V(2570)*V(5250) - A(11914) = RCT(11914)*V(2606) - A(11915) = RCT(11915)*V(2606)*V(5250) - A(11916) = RCT(11916)*V(217)*V(5250) - A(11917) = RCT(11917)*V(217)*V(5250) - A(11918) = RCT(11918)*V(4599)*V(5255) - A(11919) = RCT(11919)*V(4599)*V(5252) - A(11920) = RCT(11920)*V(4599)*V(5252) - A(11921) = RCT(11921)*V(4599)*V(5256) - A(11922) = RCT(11922)*V(4599) - A(11923) = RCT(11923)*V(4599) - A(11924) = RCT(11924)*V(3864)*V(5255) - A(11925) = RCT(11925)*V(3864)*V(5252) - A(11926) = RCT(11926)*V(3864)*V(5256) - A(11927) = RCT(11927)*V(3864) - A(11928) = RCT(11928)*V(4816)*V(5255) - A(11929) = RCT(11929)*V(4816)*V(5255) - A(11930) = RCT(11930)*V(4816)*V(5255) - A(11931) = RCT(11931)*V(4816)*V(5252) - A(11932) = RCT(11932)*V(4816)*V(5253) - A(11933) = RCT(11933)*V(4816)*V(5256) - A(11934) = RCT(11934)*V(4816) - A(11935) = RCT(11935)*V(4816) - A(11936) = RCT(11936)*V(701) - A(11937) = RCT(11937)*V(701) - A(11938) = RCT(11938)*V(3837)*V(5255) - A(11939) = RCT(11939)*V(3837)*V(5252) - A(11940) = RCT(11940)*V(3837)*V(5256) - A(11941) = RCT(11941)*V(3837) - A(11942) = RCT(11942)*V(3837) - A(11943) = RCT(11943)*V(3837) - A(11944) = RCT(11944)*V(899)*V(5250) - A(11945) = RCT(11945)*V(899) - A(11946) = RCT(11946)*V(2663)*V(5250) - A(11947) = RCT(11947)*V(2663) - A(11948) = RCT(11948)*V(2810)*V(5250) - A(11949) = RCT(11949)*V(2810)*V(5250) - A(11950) = RCT(11950)*V(2810) - A(11951) = RCT(11951)*V(2664)*V(5250) - A(11952) = RCT(11952)*V(2664) - A(11953) = RCT(11953)*V(1593) - A(11954) = RCT(11954)*V(473)*V(5250) - A(11955) = RCT(11955)*V(908)*V(5250) - A(11956) = RCT(11956)*V(908) - A(11957) = RCT(11957)*V(2827) - A(11958) = RCT(11958)*V(3972)*V(5256) - A(11959) = RCT(11959)*V(3972)*V(5250) - A(11960) = RCT(11960)*V(3972) - A(11961) = RCT(11961)*V(5171)*V(5255) - A(11962) = RCT(11962)*V(5171)*V(5255) - A(11963) = RCT(11963)*V(5171)*V(5252) - A(11964) = RCT(11964)*V(5171)*V(5253) - A(11965) = RCT(11965)*V(5171)*V(5256) - A(11966) = RCT(11966)*V(5171) - A(11967) = RCT(11967)*V(3259) - A(11968) = RCT(11968)*V(3259) - A(11969) = RCT(11969)*V(3259)*V(5250) - A(11970) = RCT(11970)*V(1884) - A(11971) = RCT(11971)*V(1884)*V(5250) - A(11972) = RCT(11972)*V(1884)*V(5250) - A(11973) = RCT(11973)*V(1321)*V(5250) - A(11974) = RCT(11974)*V(2972) - A(11975) = RCT(11975)*V(3861) - A(11976) = RCT(11976)*V(3861)*V(5256) - A(11977) = RCT(11977)*V(3861)*V(5250) - A(11978) = RCT(11978)*V(348)*V(5250) - A(11979) = RCT(11979)*V(4631)*V(5255) - A(11980) = RCT(11980)*V(4631)*V(5255) - A(11981) = RCT(11981)*V(4631)*V(5252) - A(11982) = RCT(11982)*V(4631)*V(5253) - A(11983) = RCT(11983)*V(4631)*V(5256) - A(11984) = RCT(11984)*V(4631) - A(11985) = RCT(11985)*V(434)*V(5250) - A(11986) = RCT(11986)*V(1041) - A(11987) = RCT(11987)*V(1041)*V(5250) - A(11988) = RCT(11988)*V(3275) - A(11989) = RCT(11989)*V(3275)*V(5250) - A(11990) = RCT(11990)*V(2381)*V(5250) - A(11991) = RCT(11991)*V(2381) - A(11992) = RCT(11992)*V(1893)*V(5250) - A(11993) = RCT(11993)*V(1893) - A(11994) = RCT(11994)*V(3408)*V(5250) - A(11995) = RCT(11995)*V(3408) - A(11996) = RCT(11996)*V(1762)*V(5250) - A(11997) = RCT(11997)*V(1762) - A(11998) = RCT(11998)*V(729) - A(11999) = RCT(11999)*V(1901)*V(5250) - A(12000) = RCT(12000)*V(1901) - A(12001) = RCT(12001)*V(786) - A(12002) = RCT(12002)*V(3247) - A(12003) = RCT(12003)*V(3247)*V(5250) - A(12004) = RCT(12004)*V(1319) - A(12005) = RCT(12005)*V(1319)*V(5250) - A(12006) = RCT(12006)*V(2804) - A(12007) = RCT(12007)*V(2804)*V(5250) - A(12008) = RCT(12008)*V(2360)*V(5250) - A(12009) = RCT(12009)*V(2360) - A(12010) = RCT(12010)*V(672) - A(12011) = RCT(12011)*V(992)*V(5250) - A(12012) = RCT(12012)*V(992) - A(12013) = RCT(12013)*V(80) - A(12014) = RCT(12014)*V(4493)*V(5256) - A(12015) = RCT(12015)*V(4493)*V(5250) - A(12016) = RCT(12016)*V(4493) - A(12017) = RCT(12017)*V(4189)*V(5255) - A(12018) = RCT(12018)*V(4189)*V(5252) - A(12019) = RCT(12019)*V(4189)*V(5252) - A(12020) = RCT(12020)*V(4189)*V(5256) - A(12021) = RCT(12021)*V(4189) - A(12022) = RCT(12022)*V(4189) - A(12023) = RCT(12023)*V(2423)*V(5250) - A(12024) = RCT(12024)*V(2423) - A(12025) = RCT(12025)*V(541) - A(12026) = RCT(12026)*V(3668)*V(5255) - A(12027) = RCT(12027)*V(3668)*V(5252) - A(12028) = RCT(12028)*V(3668)*V(5252) - A(12029) = RCT(12029)*V(3668)*V(5256) - A(12030) = RCT(12030)*V(3668) - A(12031) = RCT(12031)*V(3668) - A(12032) = RCT(12032)*V(3668) - A(12033) = RCT(12033)*V(5021)*V(5255) - A(12034) = RCT(12034)*V(5021)*V(5255) - A(12035) = RCT(12035)*V(5021)*V(5255) - A(12036) = RCT(12036)*V(5021)*V(5252) - A(12037) = RCT(12037)*V(5021)*V(5253) - A(12038) = RCT(12038)*V(5021)*V(5256) - A(12039) = RCT(12039)*V(5021) - A(12040) = RCT(12040)*V(5021) - A(12041) = RCT(12041)*V(5086)*V(5256) - A(12042) = RCT(12042)*V(5086)*V(5250) - A(12043) = RCT(12043)*V(5086) - A(12044) = RCT(12044)*V(3761)*V(5255) - A(12045) = RCT(12045)*V(3761)*V(5252) - A(12046) = RCT(12046)*V(3761)*V(5256) - A(12047) = RCT(12047)*V(3761) - A(12048) = RCT(12048)*V(4580)*V(5255) - A(12049) = RCT(12049)*V(4580)*V(5252) - A(12050) = RCT(12050)*V(4580)*V(5252) - A(12051) = RCT(12051)*V(4580)*V(5256) - A(12052) = RCT(12052)*V(4580) - A(12053) = RCT(12053)*V(4580) - A(12054) = RCT(12054)*V(4290)*V(5255) - A(12055) = RCT(12055)*V(4290)*V(5252) - A(12056) = RCT(12056)*V(4290)*V(5256) - A(12057) = RCT(12057)*V(4290) - A(12058) = RCT(12058)*V(5159)*V(5256) - A(12059) = RCT(12059)*V(5159)*V(5250) - A(12060) = RCT(12060)*V(5159)*V(5250) - A(12061) = RCT(12061)*V(5159) - A(12062) = RCT(12062)*V(4119)*V(5255) - A(12063) = RCT(12063)*V(4119)*V(5252) - A(12064) = RCT(12064)*V(4119)*V(5252) - A(12065) = RCT(12065)*V(4119)*V(5256) - A(12066) = RCT(12066)*V(4119) - A(12067) = RCT(12067)*V(4119) - A(12068) = RCT(12068)*V(3710)*V(5255) - A(12069) = RCT(12069)*V(3710)*V(5252) - A(12070) = RCT(12070)*V(3710)*V(5256) - A(12071) = RCT(12071)*V(3710) - A(12072) = RCT(12072)*V(3710) - A(12073) = RCT(12073)*V(3710) - A(12074) = RCT(12074)*V(4166)*V(5255) - A(12075) = RCT(12075)*V(4166)*V(5252) - A(12076) = RCT(12076)*V(4166)*V(5252) - A(12077) = RCT(12077)*V(4166)*V(5256) - A(12078) = RCT(12078)*V(4166) - A(12079) = RCT(12079)*V(4166) - A(12080) = RCT(12080)*V(4484)*V(5255) - A(12081) = RCT(12081)*V(4484)*V(5255) - A(12082) = RCT(12082)*V(4484)*V(5255) - A(12083) = RCT(12083)*V(4484)*V(5252) - A(12084) = RCT(12084)*V(4484)*V(5253) - A(12085) = RCT(12085)*V(4484)*V(5256) - A(12086) = RCT(12086)*V(4484) - A(12087) = RCT(12087)*V(4484) - A(12088) = RCT(12088)*V(4077)*V(5255) - A(12089) = RCT(12089)*V(4077)*V(5252) - A(12090) = RCT(12090)*V(4077)*V(5256) - A(12091) = RCT(12091)*V(4077) - A(12092) = RCT(12092)*V(4077) - A(12093) = RCT(12093)*V(4077) - A(12094) = RCT(12094)*V(1442)*V(5250) - A(12095) = RCT(12095)*V(1442) - A(12096) = RCT(12096)*V(859)*V(5250) - A(12097) = RCT(12097)*V(859) - A(12098) = RCT(12098)*V(4900)*V(5255) - A(12099) = RCT(12099)*V(4900)*V(5252) - A(12100) = RCT(12100)*V(4900)*V(5252) - A(12101) = RCT(12101)*V(4900)*V(5256) - A(12102) = RCT(12102)*V(4900) - A(12103) = RCT(12103)*V(4900) - A(12104) = RCT(12104)*V(4900) - A(12105) = RCT(12105)*V(2636)*V(5250) - A(12106) = RCT(12106)*V(2636) - A(12107) = RCT(12107)*V(3706)*V(5255) - A(12108) = RCT(12108)*V(3706)*V(5252) - A(12109) = RCT(12109)*V(3706)*V(5256) - A(12110) = RCT(12110)*V(3706) - A(12111) = RCT(12111)*V(3706) - A(12112) = RCT(12112)*V(3706) - A(12113) = RCT(12113)*V(1093)*V(5250) - A(12114) = RCT(12114)*V(1093) - A(12115) = RCT(12115)*V(2661)*V(5250) - A(12116) = RCT(12116)*V(2661) - A(12117) = RCT(12117)*V(443) - A(12118) = RCT(12118)*V(442)*V(5250) - A(12119) = RCT(12119)*V(442) - A(12120) = RCT(12120)*V(1351)*V(5250) - A(12121) = RCT(12121)*V(1351) - A(12122) = RCT(12122)*V(1689) - A(12123) = RCT(12123)*V(1676)*V(5250) - A(12124) = RCT(12124)*V(1676) - A(12125) = RCT(12125)*V(1424)*V(5250) - A(12126) = RCT(12126)*V(1424) - A(12127) = RCT(12127)*V(2340)*V(5250) - A(12128) = RCT(12128)*V(2340) - A(12129) = RCT(12129)*V(2533)*V(5250) - A(12130) = RCT(12130)*V(2533) - A(12131) = RCT(12131)*V(1260)*V(5250) - A(12132) = RCT(12132)*V(1260) - A(12133) = RCT(12133)*V(2458)*V(5250) - A(12134) = RCT(12134)*V(2458) - A(12135) = RCT(12135)*V(182) - A(12136) = RCT(12136)*V(2377)*V(5250) - A(12137) = RCT(12137)*V(821)*V(5250) - A(12138) = RCT(12138)*V(821) - A(12139) = RCT(12139)*V(1071)*V(5250) - A(12140) = RCT(12140)*V(1071) - A(12141) = RCT(12141)*V(2495) - A(12142) = RCT(12142)*V(311)*V(5250) - A(12143) = RCT(12143)*V(311) - A(12144) = RCT(12144)*V(5017)*V(5255) - A(12145) = RCT(12145)*V(5017)*V(5255) - A(12146) = RCT(12146)*V(5017)*V(5255) - A(12147) = RCT(12147)*V(5017)*V(5252) - A(12148) = RCT(12148)*V(5017)*V(5253) - A(12149) = RCT(12149)*V(5017)*V(5256) - A(12150) = RCT(12150)*V(5017) - A(12151) = RCT(12151)*V(5017) - A(12152) = RCT(12152)*V(5084)*V(5255) - A(12153) = RCT(12153)*V(5084)*V(5252) - A(12154) = RCT(12154)*V(5084)*V(5252) - A(12155) = RCT(12155)*V(5084)*V(5256) - A(12156) = RCT(12156)*V(5084) - A(12157) = RCT(12157)*V(5084) - A(12158) = RCT(12158)*V(5084) - A(12159) = RCT(12159)*V(4236)*V(5255) - A(12160) = RCT(12160)*V(4236)*V(5252) - A(12161) = RCT(12161)*V(4236)*V(5256) - A(12162) = RCT(12162)*V(4236) - A(12163) = RCT(12163)*V(4236) - A(12164) = RCT(12164)*V(1012)*V(5250) - A(12165) = RCT(12165)*V(1012) - A(12166) = RCT(12166)*V(2378)*V(5250) - A(12167) = RCT(12167)*V(2512) - A(12168) = RCT(12168)*V(317)*V(5250) - A(12169) = RCT(12169)*V(317) - A(12170) = RCT(12170)*V(1237)*V(5250) - A(12171) = RCT(12171)*V(1237) - A(12172) = RCT(12172)*V(2155)*V(5250) - A(12173) = RCT(12173)*V(2155) - A(12174) = RCT(12174)*V(180) - A(12175) = RCT(12175)*V(5095)*V(5256) - A(12176) = RCT(12176)*V(5095)*V(5256) - A(12177) = RCT(12177)*V(5095)*V(5258) - A(12178) = RCT(12178)*V(5095)*V(5258) - A(12179) = RCT(12179)*V(5095)*V(5250) - A(12180) = RCT(12180)*V(5095)*V(5250) - A(12181) = RCT(12181)*V(5095) - A(12182) = RCT(12182)*V(3962)*V(5255) - A(12183) = RCT(12183)*V(3962)*V(5252) - A(12184) = RCT(12184)*V(3962)*V(5252) - A(12185) = RCT(12185)*V(3962)*V(5256) - A(12186) = RCT(12186)*V(3962) - A(12187) = RCT(12187)*V(3962) - A(12188) = RCT(12188)*V(3962) - A(12189) = RCT(12189)*V(4638)*V(5255) - A(12190) = RCT(12190)*V(4638)*V(5255) - A(12191) = RCT(12191)*V(4638)*V(5255) - A(12192) = RCT(12192)*V(4638)*V(5252) - A(12193) = RCT(12193)*V(4638)*V(5253) - A(12194) = RCT(12194)*V(4638)*V(5256) - A(12195) = RCT(12195)*V(4638) - A(12196) = RCT(12196)*V(4638) - A(12197) = RCT(12197)*V(3839)*V(5255) - A(12198) = RCT(12198)*V(3839)*V(5252) - A(12199) = RCT(12199)*V(3839)*V(5256) - A(12200) = RCT(12200)*V(3839) - A(12201) = RCT(12201)*V(5006)*V(5255) - A(12202) = RCT(12202)*V(5006)*V(5255) - A(12203) = RCT(12203)*V(5006)*V(5255) - A(12204) = RCT(12204)*V(5006)*V(5252) - A(12205) = RCT(12205)*V(5006)*V(5253) - A(12206) = RCT(12206)*V(5006)*V(5256) - A(12207) = RCT(12207)*V(5006) - A(12208) = RCT(12208)*V(5006) - A(12209) = RCT(12209)*V(3629)*V(5250) - A(12210) = RCT(12210)*V(3629) - A(12211) = RCT(12211)*V(2305)*V(5250) - A(12212) = RCT(12212)*V(2305) - A(12213) = RCT(12213)*V(2305) - A(12214) = RCT(12214)*V(679) - A(12215) = RCT(12215)*V(2265)*V(5250) - A(12216) = RCT(12216)*V(2265) - A(12217) = RCT(12217)*V(1586)*V(5250) - A(12218) = RCT(12218)*V(1586) - A(12219) = RCT(12219)*V(2022)*V(5250) - A(12220) = RCT(12220)*V(2022) - A(12221) = RCT(12221)*V(2022) - A(12222) = RCT(12222)*V(619) - A(12223) = RCT(12223)*V(2141)*V(5250) - A(12224) = RCT(12224)*V(2141) - A(12225) = RCT(12225)*V(1615)*V(5250) - A(12226) = RCT(12226)*V(1615) - A(12227) = RCT(12227)*V(5131)*V(5255) - A(12228) = RCT(12228)*V(5131)*V(5255) - A(12229) = RCT(12229)*V(5131)*V(5255) - A(12230) = RCT(12230)*V(5131)*V(5252) - A(12231) = RCT(12231)*V(5131)*V(5253) - A(12232) = RCT(12232)*V(5131)*V(5256) - A(12233) = RCT(12233)*V(5131) - A(12234) = RCT(12234)*V(5131) - A(12235) = RCT(12235)*V(5052)*V(5255) - A(12236) = RCT(12236)*V(5052)*V(5255) - A(12237) = RCT(12237)*V(5052)*V(5255) - A(12238) = RCT(12238)*V(5052)*V(5252) - A(12239) = RCT(12239)*V(5052)*V(5253) - A(12240) = RCT(12240)*V(5052)*V(5256) - A(12241) = RCT(12241)*V(5052) - A(12242) = RCT(12242)*V(5052) - A(12243) = RCT(12243)*V(5247)*V(5255) - A(12244) = RCT(12244)*V(5247)*V(5252) - A(12245) = RCT(12245)*V(5247)*V(5256) - A(12246) = RCT(12246)*V(5247) - A(12247) = RCT(12247)*V(5247) - A(12248) = RCT(12248)*V(4679)*V(5255) - A(12249) = RCT(12249)*V(4679)*V(5255) - A(12250) = RCT(12250)*V(4679)*V(5255) - A(12251) = RCT(12251)*V(4679)*V(5252) - A(12252) = RCT(12252)*V(4679)*V(5253) - A(12253) = RCT(12253)*V(4679)*V(5256) - A(12254) = RCT(12254)*V(4679) - A(12255) = RCT(12255)*V(4679) - A(12256) = RCT(12256)*V(4431)*V(5255) - A(12257) = RCT(12257)*V(4431)*V(5255) - A(12258) = RCT(12258)*V(4431)*V(5255) - A(12259) = RCT(12259)*V(4431)*V(5252) - A(12260) = RCT(12260)*V(4431)*V(5253) - A(12261) = RCT(12261)*V(4431)*V(5256) - A(12262) = RCT(12262)*V(4431) - A(12263) = RCT(12263)*V(4431) - A(12264) = RCT(12264)*V(2909)*V(5250) - A(12265) = RCT(12265)*V(3890)*V(5255) - A(12266) = RCT(12266)*V(3890)*V(5252) - A(12267) = RCT(12267)*V(3890)*V(5252) - A(12268) = RCT(12268)*V(3890)*V(5256) - A(12269) = RCT(12269)*V(3890) - A(12270) = RCT(12270)*V(3890) - A(12271) = RCT(12271)*V(3890) - A(12272) = RCT(12272)*V(507)*V(5250) - A(12273) = RCT(12273)*V(1454)*V(5250) - A(12274) = RCT(12274)*V(1454) - A(12275) = RCT(12275)*V(2781)*V(5250) - A(12276) = RCT(12276)*V(2781) - A(12277) = RCT(12277)*V(830)*V(5250) - A(12278) = RCT(12278)*V(830) - A(12279) = RCT(12279)*V(1657)*V(5250) - A(12280) = RCT(12280)*V(1657) - A(12281) = RCT(12281)*V(149) - A(12282) = RCT(12282)*V(1656)*V(5250) - A(12283) = RCT(12283)*V(467)*V(5250) - A(12284) = RCT(12284)*V(1868)*V(5250) - A(12285) = RCT(12285)*V(1868) - A(12286) = RCT(12286)*V(618) - A(12287) = RCT(12287)*V(2154)*V(5250) - A(12288) = RCT(12288)*V(2154) - A(12289) = RCT(12289)*V(377)*V(5250) - A(12290) = RCT(12290)*V(4764)*V(5255) - A(12291) = RCT(12291)*V(4764)*V(5252) - A(12292) = RCT(12292)*V(4764)*V(5252) - A(12293) = RCT(12293)*V(4764)*V(5256) - A(12294) = RCT(12294)*V(4764) - A(12295) = RCT(12295)*V(4764) - A(12296) = RCT(12296)*V(3497)*V(5250) - A(12297) = RCT(12297)*V(3497) - A(12298) = RCT(12298)*V(4363)*V(5255) - A(12299) = RCT(12299)*V(4363)*V(5252) - A(12300) = RCT(12300)*V(4363)*V(5252) - A(12301) = RCT(12301)*V(4363)*V(5256) - A(12302) = RCT(12302)*V(4363) - A(12303) = RCT(12303)*V(4363) - A(12304) = RCT(12304)*V(4363) - A(12305) = RCT(12305)*V(1195)*V(5250) - A(12306) = RCT(12306)*V(1195) - A(12307) = RCT(12307)*V(2250)*V(5250) - A(12308) = RCT(12308)*V(2250) - A(12309) = RCT(12309)*V(183) - A(12310) = RCT(12310)*V(452)*V(5250) - A(12311) = RCT(12311)*V(958)*V(5250) - A(12312) = RCT(12312)*V(2868)*V(5250) - A(12313) = RCT(12313)*V(2868) - A(12314) = RCT(12314)*V(2546)*V(5250) - A(12315) = RCT(12315)*V(2546) - A(12316) = RCT(12316)*V(1279)*V(5250) - A(12317) = RCT(12317)*V(1279) - A(12318) = RCT(12318)*V(44) - A(12319) = RCT(12319)*V(2797)*V(5250) - A(12320) = RCT(12320)*V(2797) - A(12321) = RCT(12321)*V(2797) - A(12322) = RCT(12322)*V(2145) - A(12323) = RCT(12323)*V(1397)*V(5250) - A(12324) = RCT(12324)*V(1397) - A(12325) = RCT(12325)*V(96) - A(12326) = RCT(12326)*V(301)*V(5250) - A(12327) = RCT(12327)*V(1471) - A(12328) = RCT(12328)*V(1471)*V(5250) - A(12329) = RCT(12329)*V(2886) - A(12330) = RCT(12330)*V(2886)*V(5250) - A(12331) = RCT(12331)*V(420)*V(5250) - A(12332) = RCT(12332)*V(1055) - A(12333) = RCT(12333)*V(1055)*V(5250) - A(12334) = RCT(12334)*V(2978) - A(12335) = RCT(12335)*V(2978)*V(5250) - A(12336) = RCT(12336)*V(1440) - A(12337) = RCT(12337)*V(1440)*V(5250) - A(12338) = RCT(12338)*V(945) - A(12339) = RCT(12339)*V(945)*V(5250) - A(12340) = RCT(12340)*V(2842) - A(12341) = RCT(12341)*V(2842)*V(5250) - A(12342) = RCT(12342)*V(3336) - A(12343) = RCT(12343)*V(3336) - A(12344) = RCT(12344)*V(3336)*V(5250) - A(12345) = RCT(12345)*V(282)*V(5250) - A(12346) = RCT(12346)*V(983) - A(12347) = RCT(12347)*V(983)*V(5250) - A(12348) = RCT(12348)*V(2822) - A(12349) = RCT(12349)*V(2822)*V(5250) - A(12350) = RCT(12350)*V(4778)*V(5255) - A(12351) = RCT(12351)*V(4778)*V(5252) - A(12352) = RCT(12352)*V(4778)*V(5252) - A(12353) = RCT(12353)*V(4778)*V(5256) - A(12354) = RCT(12354)*V(4778) - A(12355) = RCT(12355)*V(4778) - A(12356) = RCT(12356)*V(4778) - A(12357) = RCT(12357)*V(3513) - A(12358) = RCT(12358)*V(3513)*V(5256) - A(12359) = RCT(12359)*V(3513)*V(5250) - A(12360) = RCT(12360)*V(4549)*V(5255) - A(12361) = RCT(12361)*V(4549)*V(5252) - A(12362) = RCT(12362)*V(4549)*V(5256) - A(12363) = RCT(12363)*V(4549) - A(12364) = RCT(12364)*V(4984)*V(5255) - A(12365) = RCT(12365)*V(4984)*V(5255) - A(12366) = RCT(12366)*V(4984)*V(5252) - A(12367) = RCT(12367)*V(4984)*V(5253) - A(12368) = RCT(12368)*V(4984)*V(5256) - A(12369) = RCT(12369)*V(4984) - A(12370) = RCT(12370)*V(805) - A(12371) = RCT(12371)*V(805)*V(5250) - A(12372) = RCT(12372)*V(230)*V(5250) - A(12373) = RCT(12373)*V(988) - A(12374) = RCT(12374)*V(988)*V(5250) - A(12375) = RCT(12375)*V(2787) - A(12376) = RCT(12376)*V(2787)*V(5250) - A(12377) = RCT(12377)*V(1441) - A(12378) = RCT(12378)*V(1441)*V(5250) - A(12379) = RCT(12379)*V(1963) - A(12380) = RCT(12380)*V(1963)*V(5250) - A(12381) = RCT(12381)*V(2826) - A(12382) = RCT(12382)*V(636) - A(12383) = RCT(12383)*V(636)*V(5250) - A(12384) = RCT(12384)*V(3537) - A(12385) = RCT(12385)*V(3537)*V(5250) - A(12386) = RCT(12386)*V(1908) - A(12387) = RCT(12387)*V(1908) - A(12388) = RCT(12388)*V(1908)*V(5250) - A(12389) = RCT(12389)*V(778) - A(12390) = RCT(12390)*V(3124) - A(12391) = RCT(12391)*V(3124)*V(5250) - A(12392) = RCT(12392)*V(1548) - A(12393) = RCT(12393)*V(1548)*V(5250) - A(12394) = RCT(12394)*V(3078) - A(12395) = RCT(12395)*V(3078) - A(12396) = RCT(12396)*V(3078)*V(5250) - A(12397) = RCT(12397)*V(564) - A(12398) = RCT(12398)*V(1832) - A(12399) = RCT(12399)*V(1832)*V(5250) - A(12400) = RCT(12400)*V(1690) - A(12401) = RCT(12401)*V(1690)*V(5250) - A(12402) = RCT(12402)*V(4419)*V(5255) - A(12403) = RCT(12403)*V(4419)*V(5255) - A(12404) = RCT(12404)*V(4419)*V(5252) - A(12405) = RCT(12405)*V(4419)*V(5253) - A(12406) = RCT(12406)*V(4419)*V(5256) - A(12407) = RCT(12407)*V(4419) - A(12408) = RCT(12408)*V(4235)*V(5255) - A(12409) = RCT(12409)*V(4235)*V(5252) - A(12410) = RCT(12410)*V(4235)*V(5256) - A(12411) = RCT(12411)*V(4235) - A(12412) = RCT(12412)*V(2981) - A(12413) = RCT(12413)*V(2981) - A(12414) = RCT(12414)*V(2981)*V(5250) - A(12415) = RCT(12415)*V(2999) - A(12416) = RCT(12416)*V(2999)*V(5250) - A(12417) = RCT(12417)*V(3000) - A(12418) = RCT(12418)*V(1633) - A(12419) = RCT(12419)*V(1633)*V(5250) - A(12420) = RCT(12420)*V(2084) - A(12421) = RCT(12421)*V(2084) - A(12422) = RCT(12422)*V(2084)*V(5250) - A(12423) = RCT(12423)*V(1723) - A(12424) = RCT(12424)*V(1722) - A(12425) = RCT(12425)*V(1722)*V(5250) - A(12426) = RCT(12426)*V(2625) - A(12427) = RCT(12427)*V(2625) - A(12428) = RCT(12428)*V(2625)*V(5250) - A(12429) = RCT(12429)*V(2625)*V(5250) - A(12430) = RCT(12430)*V(638) - A(12431) = RCT(12431)*V(1632) - A(12432) = RCT(12432)*V(1632)*V(5250) - A(12433) = RCT(12433)*V(2910) - A(12434) = RCT(12434)*V(2910) - A(12435) = RCT(12435)*V(2910)*V(5250) - A(12436) = RCT(12436)*V(4874)*V(5255) - A(12437) = RCT(12437)*V(4874)*V(5255) - A(12438) = RCT(12438)*V(4874)*V(5252) - A(12439) = RCT(12439)*V(4874)*V(5253) - A(12440) = RCT(12440)*V(4874)*V(5256) - A(12441) = RCT(12441)*V(4874) - A(12442) = RCT(12442)*V(4890)*V(5255) - A(12443) = RCT(12443)*V(4890)*V(5252) - A(12444) = RCT(12444)*V(4890)*V(5252) - A(12445) = RCT(12445)*V(4890)*V(5256) - A(12446) = RCT(12446)*V(4890) - A(12447) = RCT(12447)*V(4890) - A(12448) = RCT(12448)*V(4890) - A(12449) = RCT(12449)*V(3086) - A(12450) = RCT(12450)*V(3086)*V(5250) - A(12451) = RCT(12451)*V(1839) - A(12452) = RCT(12452)*V(1839) - A(12453) = RCT(12453)*V(1839)*V(5250) - A(12454) = RCT(12454)*V(745) - A(12455) = RCT(12455)*V(1571) - A(12456) = RCT(12456)*V(1571)*V(5250) - A(12457) = RCT(12457)*V(4521)*V(5255) - A(12458) = RCT(12458)*V(4521)*V(5255) - A(12459) = RCT(12459)*V(4521)*V(5252) - A(12460) = RCT(12460)*V(4521)*V(5253) - A(12461) = RCT(12461)*V(4521)*V(5256) - A(12462) = RCT(12462)*V(4521) - A(12463) = RCT(12463)*V(3151) - A(12464) = RCT(12464)*V(3151)*V(5250) - A(12465) = RCT(12465)*V(2052) - A(12466) = RCT(12466)*V(2052) - A(12467) = RCT(12467)*V(2052)*V(5250) - A(12468) = RCT(12468)*V(722) - A(12469) = RCT(12469)*V(1707) - A(12470) = RCT(12470)*V(1707)*V(5250) - A(12471) = RCT(12471)*V(4430)*V(5255) - A(12472) = RCT(12472)*V(4430)*V(5255) - A(12473) = RCT(12473)*V(4430)*V(5252) - A(12474) = RCT(12474)*V(4430)*V(5253) - A(12475) = RCT(12475)*V(4430)*V(5256) - A(12476) = RCT(12476)*V(4430) - A(12477) = RCT(12477)*V(3183) - A(12478) = RCT(12478)*V(3183)*V(5250) - A(12479) = RCT(12479)*V(2059) - A(12480) = RCT(12480)*V(2059) - A(12481) = RCT(12481)*V(2059)*V(5250) - A(12482) = RCT(12482)*V(698) - A(12483) = RCT(12483)*V(1744) - A(12484) = RCT(12484)*V(1744)*V(5250) - A(12485) = RCT(12485)*V(4443)*V(5255) - A(12486) = RCT(12486)*V(4443)*V(5255) - A(12487) = RCT(12487)*V(4443)*V(5252) - A(12488) = RCT(12488)*V(4443)*V(5253) - A(12489) = RCT(12489)*V(4443)*V(5256) - A(12490) = RCT(12490)*V(4443) - A(12491) = RCT(12491)*V(4710) - A(12492) = RCT(12492)*V(4710)*V(5256) - A(12493) = RCT(12493)*V(4710)*V(5250) - A(12494) = RCT(12494)*V(3184) - A(12495) = RCT(12495)*V(3184)*V(5250) - A(12496) = RCT(12496)*V(2121) - A(12497) = RCT(12497)*V(2121) - A(12498) = RCT(12498)*V(2121)*V(5250) - A(12499) = RCT(12499)*V(570) - A(12500) = RCT(12500)*V(1740) - A(12501) = RCT(12501)*V(1740)*V(5250) - A(12502) = RCT(12502)*V(4450)*V(5255) - A(12503) = RCT(12503)*V(4450)*V(5255) - A(12504) = RCT(12504)*V(4450)*V(5252) - A(12505) = RCT(12505)*V(4450)*V(5253) - A(12506) = RCT(12506)*V(4450)*V(5256) - A(12507) = RCT(12507)*V(4450) - A(12508) = RCT(12508)*V(3185) - A(12509) = RCT(12509)*V(3185)*V(5250) - A(12510) = RCT(12510)*V(474)*V(5250) - A(12511) = RCT(12511)*V(1114) - A(12512) = RCT(12512)*V(1114)*V(5250) - A(12513) = RCT(12513)*V(2726)*V(5250) - A(12514) = RCT(12514)*V(2726) - A(12515) = RCT(12515)*V(2221) - A(12516) = RCT(12516)*V(2221) - A(12517) = RCT(12517)*V(2221)*V(5250) - A(12518) = RCT(12518)*V(575) - A(12519) = RCT(12519)*V(1674) - A(12520) = RCT(12520)*V(1674)*V(5250) - A(12521) = RCT(12521)*V(4417)*V(5255) - A(12522) = RCT(12522)*V(4417)*V(5255) - A(12523) = RCT(12523)*V(4417)*V(5252) - A(12524) = RCT(12524)*V(4417)*V(5253) - A(12525) = RCT(12525)*V(4417)*V(5256) - A(12526) = RCT(12526)*V(4417) - A(12527) = RCT(12527)*V(1192)*V(5250) - A(12528) = RCT(12528)*V(1192) - A(12529) = RCT(12529)*V(141) - A(12530) = RCT(12530)*V(246)*V(5250) - A(12531) = RCT(12531)*V(1483)*V(5250) - A(12532) = RCT(12532)*V(934)*V(5250) - A(12533) = RCT(12533)*V(934) - A(12534) = RCT(12534)*V(3370) - A(12535) = RCT(12535)*V(1508)*V(5250) - A(12536) = RCT(12536)*V(1508) - A(12537) = RCT(12537)*V(2577) - A(12538) = RCT(12538)*V(3478)*V(5250) - A(12539) = RCT(12539)*V(3571)*V(5250) - A(12540) = RCT(12540)*V(3571) - A(12541) = RCT(12541)*V(4308)*V(5255) - A(12542) = RCT(12542)*V(4308)*V(5255) - A(12543) = RCT(12543)*V(4308)*V(5252) - A(12544) = RCT(12544)*V(4308)*V(5253) - A(12545) = RCT(12545)*V(4308)*V(5256) - A(12546) = RCT(12546)*V(4308) - A(12547) = RCT(12547)*V(3783)*V(5250) - A(12548) = RCT(12548)*V(3783) - A(12549) = RCT(12549)*V(4221)*V(5255) - A(12550) = RCT(12550)*V(4221)*V(5255) - A(12551) = RCT(12551)*V(4221)*V(5252) - A(12552) = RCT(12552)*V(4221)*V(5253) - A(12553) = RCT(12553)*V(4221)*V(5256) - A(12554) = RCT(12554)*V(4221) - A(12555) = RCT(12555)*V(1376)*V(5250) - A(12556) = RCT(12556)*V(1376) - A(12557) = RCT(12557)*V(3375) - A(12558) = RCT(12558)*V(835)*V(5250) - A(12559) = RCT(12559)*V(835) - A(12560) = RCT(12560)*V(3036) - A(12561) = RCT(12561)*V(4507)*V(5250) - A(12562) = RCT(12562)*V(4472)*V(5255) - A(12563) = RCT(12563)*V(4472)*V(5255) - A(12564) = RCT(12564)*V(4472)*V(5252) - A(12565) = RCT(12565)*V(4472)*V(5253) - A(12566) = RCT(12566)*V(4472)*V(5256) - A(12567) = RCT(12567)*V(4472) - A(12568) = RCT(12568)*V(1117)*V(5250) - A(12569) = RCT(12569)*V(1117) - A(12570) = RCT(12570)*V(2739) - A(12571) = RCT(12571)*V(977)*V(5250) - A(12572) = RCT(12572)*V(977) - A(12573) = RCT(12573)*V(3402) - A(12574) = RCT(12574)*V(1420)*V(5250) - A(12575) = RCT(12575)*V(1420) - A(12576) = RCT(12576)*V(2935) - A(12577) = RCT(12577)*V(3729)*V(5250) - A(12578) = RCT(12578)*V(3729) - A(12579) = RCT(12579)*V(4241)*V(5255) - A(12580) = RCT(12580)*V(4241)*V(5255) - A(12581) = RCT(12581)*V(4241)*V(5252) - A(12582) = RCT(12582)*V(4241)*V(5253) - A(12583) = RCT(12583)*V(4241)*V(5256) - A(12584) = RCT(12584)*V(4241) - A(12585) = RCT(12585)*V(4202)*V(5255) - A(12586) = RCT(12586)*V(4202)*V(5255) - A(12587) = RCT(12587)*V(4202)*V(5252) - A(12588) = RCT(12588)*V(4202)*V(5253) - A(12589) = RCT(12589)*V(4202)*V(5256) - A(12590) = RCT(12590)*V(4202) - A(12591) = RCT(12591)*V(4770)*V(5255) - A(12592) = RCT(12592)*V(4770)*V(5255) - A(12593) = RCT(12593)*V(4770)*V(5255) - A(12594) = RCT(12594)*V(4770)*V(5252) - A(12595) = RCT(12595)*V(4770)*V(5253) - A(12596) = RCT(12596)*V(4770)*V(5256) - A(12597) = RCT(12597)*V(4770) - A(12598) = RCT(12598)*V(4770) - A(12599) = RCT(12599)*V(2769)*V(5250) - A(12600) = RCT(12600)*V(2769) - A(12601) = RCT(12601)*V(2769) - A(12602) = RCT(12602)*V(2430) - A(12603) = RCT(12603)*V(4808)*V(5255) - A(12604) = RCT(12604)*V(4808)*V(5255) - A(12605) = RCT(12605)*V(4808)*V(5255) - A(12606) = RCT(12606)*V(4808)*V(5252) - A(12607) = RCT(12607)*V(4808)*V(5253) - A(12608) = RCT(12608)*V(4808)*V(5256) - A(12609) = RCT(12609)*V(4808) - A(12610) = RCT(12610)*V(4808) - A(12611) = RCT(12611)*V(994)*V(5250) - A(12612) = RCT(12612)*V(994) - A(12613) = RCT(12613)*V(170) - A(12614) = RCT(12614)*V(53)*V(5250) - A(12615) = RCT(12615)*V(1342)*V(5250) - A(12616) = RCT(12616)*V(1342) - A(12617) = RCT(12617)*V(3371) - A(12618) = RCT(12618)*V(913)*V(5250) - A(12619) = RCT(12619)*V(913) - A(12620) = RCT(12620)*V(2986) - A(12621) = RCT(12621)*V(3742)*V(5250) - A(12622) = RCT(12622)*V(3742) - A(12623) = RCT(12623)*V(4253)*V(5255) - A(12624) = RCT(12624)*V(4253)*V(5255) - A(12625) = RCT(12625)*V(4253)*V(5252) - A(12626) = RCT(12626)*V(4253)*V(5253) - A(12627) = RCT(12627)*V(4253)*V(5256) - A(12628) = RCT(12628)*V(4253) - A(12629) = RCT(12629)*V(1426)*V(5250) - A(12630) = RCT(12630)*V(1426) - A(12631) = RCT(12631)*V(3400) - A(12632) = RCT(12632)*V(1472)*V(5250) - A(12633) = RCT(12633)*V(1472) - A(12634) = RCT(12634)*V(3347) - A(12635) = RCT(12635)*V(1278)*V(5250) - A(12636) = RCT(12636)*V(1278) - A(12637) = RCT(12637)*V(2733) - A(12638) = RCT(12638)*V(3595)*V(5250) - A(12639) = RCT(12639)*V(3595) - A(12640) = RCT(12640)*V(4013)*V(5255) - A(12641) = RCT(12641)*V(4013)*V(5255) - A(12642) = RCT(12642)*V(4013)*V(5252) - A(12643) = RCT(12643)*V(4013)*V(5253) - A(12644) = RCT(12644)*V(4013)*V(5256) - A(12645) = RCT(12645)*V(4013) - A(12646) = RCT(12646)*V(1169)*V(5250) - A(12647) = RCT(12647)*V(1169) - A(12648) = RCT(12648)*V(3329) - A(12649) = RCT(12649)*V(825)*V(5250) - A(12650) = RCT(12650)*V(825) - A(12651) = RCT(12651)*V(2903) - A(12652) = RCT(12652)*V(3732)*V(5250) - A(12653) = RCT(12653)*V(3732) - A(12654) = RCT(12654)*V(4046)*V(5255) - A(12655) = RCT(12655)*V(4046)*V(5255) - A(12656) = RCT(12656)*V(4046)*V(5252) - A(12657) = RCT(12657)*V(4046)*V(5253) - A(12658) = RCT(12658)*V(4046)*V(5256) - A(12659) = RCT(12659)*V(4046) - A(12660) = RCT(12660)*V(3541)*V(5250) - A(12661) = RCT(12661)*V(4404)*V(5255) - A(12662) = RCT(12662)*V(4404)*V(5255) - A(12663) = RCT(12663)*V(4404)*V(5252) - A(12664) = RCT(12664)*V(4404)*V(5253) - A(12665) = RCT(12665)*V(4404)*V(5256) - A(12666) = RCT(12666)*V(4404) - A(12667) = RCT(12667)*V(1309)*V(5250) - A(12668) = RCT(12668)*V(1309) - A(12669) = RCT(12669)*V(3574) - A(12670) = RCT(12670)*V(1504)*V(5250) - A(12671) = RCT(12671)*V(1504) - A(12672) = RCT(12672)*V(3361) - A(12673) = RCT(12673)*V(3673)*V(5250) - A(12674) = RCT(12674)*V(3673) - A(12675) = RCT(12675)*V(4536)*V(5255) - A(12676) = RCT(12676)*V(4536)*V(5255) - A(12677) = RCT(12677)*V(4536)*V(5252) - A(12678) = RCT(12678)*V(4536)*V(5253) - A(12679) = RCT(12679)*V(4536)*V(5256) - A(12680) = RCT(12680)*V(4536) - A(12681) = RCT(12681)*V(2548)*V(5250) - A(12682) = RCT(12682)*V(2228)*V(5250) - A(12683) = RCT(12683)*V(2228) - A(12684) = RCT(12684)*V(2538)*V(5250) - A(12685) = RCT(12685)*V(2538) - A(12686) = RCT(12686)*V(1118)*V(5250) - A(12687) = RCT(12687)*V(1118) - A(12688) = RCT(12688)*V(3596) - A(12689) = RCT(12689)*V(1025)*V(5250) - A(12690) = RCT(12690)*V(1025) - A(12691) = RCT(12691)*V(3414) - A(12692) = RCT(12692)*V(3787)*V(5250) - A(12693) = RCT(12693)*V(3787) - A(12694) = RCT(12694)*V(4218)*V(5255) - A(12695) = RCT(12695)*V(4218)*V(5255) - A(12696) = RCT(12696)*V(4218)*V(5252) - A(12697) = RCT(12697)*V(4218)*V(5253) - A(12698) = RCT(12698)*V(4218)*V(5256) - A(12699) = RCT(12699)*V(4218) - A(12700) = RCT(12700)*V(2854)*V(5250) - A(12701) = RCT(12701)*V(2120)*V(5250) - A(12702) = RCT(12702)*V(2120) - A(12703) = RCT(12703)*V(2929)*V(5250) - A(12704) = RCT(12704)*V(2929) - A(12705) = RCT(12705)*V(3937)*V(5255) - A(12706) = RCT(12706)*V(3937)*V(5252) - A(12707) = RCT(12707)*V(3937)*V(5256) - A(12708) = RCT(12708)*V(3937) - A(12709) = RCT(12709)*V(3746)*V(5255) - A(12710) = RCT(12710)*V(3746)*V(5252) - A(12711) = RCT(12711)*V(3746)*V(5256) - A(12712) = RCT(12712)*V(3746) - A(12713) = RCT(12713)*V(3746) - A(12714) = RCT(12714)*V(869)*V(5250) - A(12715) = RCT(12715)*V(869) - A(12716) = RCT(12716)*V(3363) - A(12717) = RCT(12717)*V(1166)*V(5250) - A(12718) = RCT(12718)*V(1166) - A(12719) = RCT(12719)*V(2736) - A(12720) = RCT(12720)*V(4331)*V(5250) - A(12721) = RCT(12721)*V(1455)*V(5250) - A(12722) = RCT(12722)*V(1455) - A(12723) = RCT(12723)*V(3406) - A(12724) = RCT(12724)*V(888)*V(5250) - A(12725) = RCT(12725)*V(888) - A(12726) = RCT(12726)*V(3381) - A(12727) = RCT(12727)*V(1273)*V(5250) - A(12728) = RCT(12728)*V(1273) - A(12729) = RCT(12729)*V(2952) - A(12730) = RCT(12730)*V(3593)*V(5250) - A(12731) = RCT(12731)*V(3593) - A(12732) = RCT(12732)*V(4324)*V(5255) - A(12733) = RCT(12733)*V(4324)*V(5255) - A(12734) = RCT(12734)*V(4324)*V(5252) - A(12735) = RCT(12735)*V(4324)*V(5253) - A(12736) = RCT(12736)*V(4324)*V(5256) - A(12737) = RCT(12737)*V(4324) - A(12738) = RCT(12738)*V(1393)*V(5250) - A(12739) = RCT(12739)*V(1393) - A(12740) = RCT(12740)*V(2768) - A(12741) = RCT(12741)*V(1045)*V(5250) - A(12742) = RCT(12742)*V(1045) - A(12743) = RCT(12743)*V(3362) - A(12744) = RCT(12744)*V(1029)*V(5250) - A(12745) = RCT(12745)*V(1029) - A(12746) = RCT(12746)*V(2598) - A(12747) = RCT(12747)*V(3709)*V(5250) - A(12748) = RCT(12748)*V(3709) - A(12749) = RCT(12749)*V(4154)*V(5255) - A(12750) = RCT(12750)*V(4154)*V(5255) - A(12751) = RCT(12751)*V(4154)*V(5252) - A(12752) = RCT(12752)*V(4154)*V(5253) - A(12753) = RCT(12753)*V(4154)*V(5256) - A(12754) = RCT(12754)*V(4154) - A(12755) = RCT(12755)*V(1223)*V(5250) - A(12756) = RCT(12756)*V(1223) - A(12757) = RCT(12757)*V(3417) - A(12758) = RCT(12758)*V(972)*V(5250) - A(12759) = RCT(12759)*V(972) - A(12760) = RCT(12760)*V(2995) - A(12761) = RCT(12761)*V(3968)*V(5250) - A(12762) = RCT(12762)*V(3968) - A(12763) = RCT(12763)*V(4441)*V(5255) - A(12764) = RCT(12764)*V(4441)*V(5255) - A(12765) = RCT(12765)*V(4441)*V(5252) - A(12766) = RCT(12766)*V(4441)*V(5253) - A(12767) = RCT(12767)*V(4441)*V(5256) - A(12768) = RCT(12768)*V(4441) - A(12769) = RCT(12769)*V(1030)*V(5250) - A(12770) = RCT(12770)*V(1030) - A(12771) = RCT(12771)*V(3388) - A(12772) = RCT(12772)*V(1423)*V(5250) - A(12773) = RCT(12773)*V(1423) - A(12774) = RCT(12774)*V(2937) - A(12775) = RCT(12775)*V(3681)*V(5250) - A(12776) = RCT(12776)*V(3681) - A(12777) = RCT(12777)*V(4299)*V(5255) - A(12778) = RCT(12778)*V(4299)*V(5255) - A(12779) = RCT(12779)*V(4299)*V(5252) - A(12780) = RCT(12780)*V(4299)*V(5253) - A(12781) = RCT(12781)*V(4299)*V(5256) - A(12782) = RCT(12782)*V(4299) - A(12783) = RCT(12783)*V(4977)*V(5255) - A(12784) = RCT(12784)*V(4977)*V(5255) - A(12785) = RCT(12785)*V(4977)*V(5255) - A(12786) = RCT(12786)*V(4977)*V(5252) - A(12787) = RCT(12787)*V(4977)*V(5253) - A(12788) = RCT(12788)*V(4977)*V(5256) - A(12789) = RCT(12789)*V(4977) - A(12790) = RCT(12790)*V(4977) - A(12791) = RCT(12791)*V(1215)*V(5250) - A(12792) = RCT(12792)*V(1215) - A(12793) = RCT(12793)*V(2820) - A(12794) = RCT(12794)*V(4052)*V(5255) - A(12795) = RCT(12795)*V(4052)*V(5252) - A(12796) = RCT(12796)*V(4052)*V(5256) - A(12797) = RCT(12797)*V(4052) - A(12798) = RCT(12798)*V(1457)*V(5250) - A(12799) = RCT(12799)*V(2429) - A(12800) = RCT(12800)*V(2429)*V(5250) - A(12801) = RCT(12801)*V(2705) - A(12802) = RCT(12802)*V(2705)*V(5250) - A(12803) = RCT(12803)*V(1249) - A(12804) = RCT(12804)*V(1249)*V(5250) - A(12805) = RCT(12805)*V(2655) - A(12806) = RCT(12806)*V(2655)*V(5250) - A(12807) = RCT(12807)*V(2617)*V(5250) - A(12808) = RCT(12808)*V(2617) - A(12809) = RCT(12809)*V(781) - A(12810) = RCT(12810)*V(3558)*V(5250) - A(12811) = RCT(12811)*V(3558) - A(12812) = RCT(12812)*V(4826)*V(5255) - A(12813) = RCT(12813)*V(4826)*V(5255) - A(12814) = RCT(12814)*V(4826)*V(5252) - A(12815) = RCT(12815)*V(4826)*V(5253) - A(12816) = RCT(12816)*V(4826)*V(5256) - A(12817) = RCT(12817)*V(4826) - A(12818) = RCT(12818)*V(4519)*V(5255) - A(12819) = RCT(12819)*V(4519)*V(5255) - A(12820) = RCT(12820)*V(4519)*V(5255) - A(12821) = RCT(12821)*V(4519)*V(5252) - A(12822) = RCT(12822)*V(4519)*V(5253) - A(12823) = RCT(12823)*V(4519)*V(5256) - A(12824) = RCT(12824)*V(4519) - A(12825) = RCT(12825)*V(4519) - A(12826) = RCT(12826)*V(4753)*V(5255) - A(12827) = RCT(12827)*V(4753)*V(5255) - A(12828) = RCT(12828)*V(4753)*V(5255) - A(12829) = RCT(12829)*V(4753)*V(5252) - A(12830) = RCT(12830)*V(4753)*V(5253) - A(12831) = RCT(12831)*V(4753)*V(5256) - A(12832) = RCT(12832)*V(4753) - A(12833) = RCT(12833)*V(4753) - A(12834) = RCT(12834)*V(4739)*V(5255) - A(12835) = RCT(12835)*V(4739)*V(5255) - A(12836) = RCT(12836)*V(4739)*V(5255) - A(12837) = RCT(12837)*V(4739)*V(5252) - A(12838) = RCT(12838)*V(4739)*V(5253) - A(12839) = RCT(12839)*V(4739)*V(5256) - A(12840) = RCT(12840)*V(4739) - A(12841) = RCT(12841)*V(4739) - A(12842) = RCT(12842)*V(1467) - A(12843) = RCT(12843)*V(1467)*V(5250) - A(12844) = RCT(12844)*V(2823) - A(12845) = RCT(12845)*V(2823)*V(5250) - A(12846) = RCT(12846)*V(1816)*V(5250) - A(12847) = RCT(12847)*V(1816) - A(12848) = RCT(12848)*V(3042)*V(5250) - A(12849) = RCT(12849)*V(3042) - A(12850) = RCT(12850)*V(2329)*V(5250) - A(12851) = RCT(12851)*V(2329) - A(12852) = RCT(12852)*V(3045)*V(5250) - A(12853) = RCT(12853)*V(3045) - A(12854) = RCT(12854)*V(5005)*V(5255) - A(12855) = RCT(12855)*V(5005)*V(5255) - A(12856) = RCT(12856)*V(5005)*V(5255) - A(12857) = RCT(12857)*V(5005)*V(5252) - A(12858) = RCT(12858)*V(5005)*V(5253) - A(12859) = RCT(12859)*V(5005)*V(5256) - A(12860) = RCT(12860)*V(5005) - A(12861) = RCT(12861)*V(5005) - A(12862) = RCT(12862)*V(5003)*V(5255) - A(12863) = RCT(12863)*V(5003)*V(5255) - A(12864) = RCT(12864)*V(5003)*V(5255) - A(12865) = RCT(12865)*V(5003)*V(5252) - A(12866) = RCT(12866)*V(5003)*V(5253) - A(12867) = RCT(12867)*V(5003)*V(5256) - A(12868) = RCT(12868)*V(5003) - A(12869) = RCT(12869)*V(5003) - A(12870) = RCT(12870)*V(1229)*V(5250) - A(12871) = RCT(12871)*V(3272)*V(5250) - A(12872) = RCT(12872)*V(3272)*V(5250) - A(12873) = RCT(12873)*V(3272) - A(12874) = RCT(12874)*V(2735)*V(5250) - A(12875) = RCT(12875)*V(2735) - A(12876) = RCT(12876)*V(3998)*V(5255) - A(12877) = RCT(12877)*V(3998)*V(5255) - A(12878) = RCT(12878)*V(3998)*V(5252) - A(12879) = RCT(12879)*V(3998)*V(5253) - A(12880) = RCT(12880)*V(3998)*V(5256) - A(12881) = RCT(12881)*V(3998) - A(12882) = RCT(12882)*V(839) - A(12883) = RCT(12883)*V(839)*V(5250) - A(12884) = RCT(12884)*V(1518) - A(12885) = RCT(12885)*V(1518)*V(5250) - A(12886) = RCT(12886)*V(1939) - A(12887) = RCT(12887)*V(1939)*V(5250) - A(12888) = RCT(12888)*V(893)*V(5250) - A(12889) = RCT(12889)*V(1804) - A(12890) = RCT(12890)*V(1804)*V(5250) - A(12891) = RCT(12891)*V(2925) - A(12892) = RCT(12892)*V(2925)*V(5250) - A(12893) = RCT(12893)*V(4772)*V(5255) - A(12894) = RCT(12894)*V(4772)*V(5255) - A(12895) = RCT(12895)*V(4772)*V(5255) - A(12896) = RCT(12896)*V(4772)*V(5252) - A(12897) = RCT(12897)*V(4772)*V(5253) - A(12898) = RCT(12898)*V(4772)*V(5256) - A(12899) = RCT(12899)*V(4772) - A(12900) = RCT(12900)*V(4772) - A(12901) = RCT(12901)*V(890)*V(5250) - A(12902) = RCT(12902)*V(1874) - A(12903) = RCT(12903)*V(1874)*V(5250) - A(12904) = RCT(12904)*V(3236) - A(12905) = RCT(12905)*V(3236)*V(5250) - A(12906) = RCT(12906)*V(3500)*V(5250) - A(12907) = RCT(12907)*V(3500) - A(12908) = RCT(12908)*V(3555)*V(5250) - A(12909) = RCT(12909)*V(3555) - A(12910) = RCT(12910)*V(3532)*V(5250) - A(12911) = RCT(12911)*V(3532) - A(12912) = RCT(12912)*V(4565)*V(5255) - A(12913) = RCT(12913)*V(4565)*V(5252) - A(12914) = RCT(12914)*V(4565)*V(5256) - A(12915) = RCT(12915)*V(4565) - A(12916) = RCT(12916)*V(4123)*V(5255) - A(12917) = RCT(12917)*V(4123)*V(5252) - A(12918) = RCT(12918)*V(4123)*V(5256) - A(12919) = RCT(12919)*V(4123) - A(12920) = RCT(12920)*V(3620)*V(5250) - A(12921) = RCT(12921)*V(3620)*V(5250) - A(12922) = RCT(12922)*V(3620) - A(12923) = RCT(12923)*V(957)*V(5250) - A(12924) = RCT(12924)*V(3490) - A(12925) = RCT(12925)*V(3490) - A(12926) = RCT(12926)*V(305)*V(5250) - A(12927) = RCT(12927)*V(2289)*V(5250) - A(12928) = RCT(12928)*V(2289) - A(12929) = RCT(12929)*V(645) - A(12930) = RCT(12930)*V(1433)*V(5250) - A(12931) = RCT(12931)*V(3276)*V(5250) - A(12932) = RCT(12932)*V(3276)*V(5250) - A(12933) = RCT(12933)*V(3276) - A(12934) = RCT(12934)*V(3324)*V(5250) - A(12935) = RCT(12935)*V(3324) - A(12936) = RCT(12936)*V(4250)*V(5251) - A(12937) = RCT(12937)*V(4250)*V(5252) - A(12938) = RCT(12938)*V(4250)*V(5253) - A(12939) = RCT(12939)*V(4250)*V(5254) - A(12940) = RCT(12940)*V(4250) - A(12941) = RCT(12941)*V(3216)*V(5250) - A(12942) = RCT(12942)*V(3216) - A(12943) = RCT(12943)*V(3216) - A(12944) = RCT(12944)*V(3215) - A(12945) = RCT(12945)*V(4366)*V(5250) - A(12946) = RCT(12946)*V(4366) - A(12947) = RCT(12947)*V(2568)*V(5250) - A(12948) = RCT(12948)*V(2568) - A(12949) = RCT(12949)*V(4222)*V(5255) - A(12950) = RCT(12950)*V(4222)*V(5255) - A(12951) = RCT(12951)*V(4222)*V(5255) - A(12952) = RCT(12952)*V(4222)*V(5252) - A(12953) = RCT(12953)*V(4222)*V(5253) - A(12954) = RCT(12954)*V(4222)*V(5256) - A(12955) = RCT(12955)*V(4222) - A(12956) = RCT(12956)*V(4222) - A(12957) = RCT(12957)*V(1201) - A(12958) = RCT(12958)*V(1201)*V(5250) - A(12959) = RCT(12959)*V(2622) - A(12960) = RCT(12960)*V(2622)*V(5250) - A(12961) = RCT(12961)*V(4230)*V(5255) - A(12962) = RCT(12962)*V(4230)*V(5255) - A(12963) = RCT(12963)*V(4230)*V(5252) - A(12964) = RCT(12964)*V(4230)*V(5253) - A(12965) = RCT(12965)*V(4230)*V(5256) - A(12966) = RCT(12966)*V(4230) - A(12967) = RCT(12967)*V(4191)*V(5255) - A(12968) = RCT(12968)*V(4191)*V(5252) - A(12969) = RCT(12969)*V(4191)*V(5256) - A(12970) = RCT(12970)*V(4191) - A(12971) = RCT(12971)*V(954)*V(5250) - A(12972) = RCT(12972)*V(954) - A(12973) = RCT(12973)*V(3053)*V(5250) - A(12974) = RCT(12974)*V(3053) - A(12975) = RCT(12975)*V(5004)*V(5255) - A(12976) = RCT(12976)*V(5004)*V(5255) - A(12977) = RCT(12977)*V(5004)*V(5255) - A(12978) = RCT(12978)*V(5004)*V(5252) - A(12979) = RCT(12979)*V(5004)*V(5253) - A(12980) = RCT(12980)*V(5004)*V(5256) - A(12981) = RCT(12981)*V(5004) - A(12982) = RCT(12982)*V(5004) - A(12983) = RCT(12983)*V(5111)*V(5255) - A(12984) = RCT(12984)*V(5111)*V(5255) - A(12985) = RCT(12985)*V(5111)*V(5252) - A(12986) = RCT(12986)*V(5111)*V(5253) - A(12987) = RCT(12987)*V(5111)*V(5256) - A(12988) = RCT(12988)*V(5111) - A(12989) = RCT(12989)*V(4806)*V(5255) - A(12990) = RCT(12990)*V(4806)*V(5255) - A(12991) = RCT(12991)*V(4806)*V(5252) - A(12992) = RCT(12992)*V(4806)*V(5253) - A(12993) = RCT(12993)*V(4806)*V(5256) - A(12994) = RCT(12994)*V(4806) - A(12995) = RCT(12995)*V(4969)*V(5255) - A(12996) = RCT(12996)*V(4969)*V(5255) - A(12997) = RCT(12997)*V(4969)*V(5252) - A(12998) = RCT(12998)*V(4969)*V(5253) - A(12999) = RCT(12999)*V(4969)*V(5256) - A(13000) = RCT(13000)*V(4969) - A(13001) = RCT(13001)*V(1496)*V(5250) - A(13002) = RCT(13002)*V(1496) - A(13003) = RCT(13003)*V(2812)*V(5250) - A(13004) = RCT(13004)*V(2812) - A(13005) = RCT(13005)*V(1984) - A(13006) = RCT(13006)*V(526)*V(5250) - A(13007) = RCT(13007)*V(526) - A(13008) = RCT(13008)*V(3760)*V(5255) - A(13009) = RCT(13009)*V(3760)*V(5252) - A(13010) = RCT(13010)*V(3760)*V(5256) - A(13011) = RCT(13011)*V(3760) - A(13012) = RCT(13012)*V(1225)*V(5250) - A(13013) = RCT(13013)*V(1225) - A(13014) = RCT(13014)*V(2034)*V(5250) - A(13015) = RCT(13015)*V(2034) - A(13016) = RCT(13016)*V(2035) - A(13017) = RCT(13017)*V(767)*V(5250) - A(13018) = RCT(13018)*V(767) - A(13019) = RCT(13019)*V(1277)*V(5250) - A(13020) = RCT(13020)*V(1277) - A(13021) = RCT(13021)*V(3858)*V(5255) - A(13022) = RCT(13022)*V(3858)*V(5252) - A(13023) = RCT(13023)*V(3858)*V(5252) - A(13024) = RCT(13024)*V(3858)*V(5256) - A(13025) = RCT(13025)*V(3858) - A(13026) = RCT(13026)*V(3858) - A(13027) = RCT(13027)*V(3858) - A(13028) = RCT(13028)*V(265)*V(5250) - A(13029) = RCT(13029)*V(2658)*V(5250) - A(13030) = RCT(13030)*V(2658) - A(13031) = RCT(13031)*V(4268)*V(5255) - A(13032) = RCT(13032)*V(4268)*V(5252) - A(13033) = RCT(13033)*V(4268)*V(5256) - A(13034) = RCT(13034)*V(4268) - A(13035) = RCT(13035)*V(1203)*V(5250) - A(13036) = RCT(13036)*V(1203) - A(13037) = RCT(13037)*V(49) - A(13038) = RCT(13038)*V(1214)*V(5250) - A(13039) = RCT(13039)*V(1214) - A(13040) = RCT(13040)*V(2701)*V(5250) - A(13041) = RCT(13041)*V(2701) - A(13042) = RCT(13042)*V(1852) - A(13043) = RCT(13043)*V(209)*V(5250) - A(13044) = RCT(13044)*V(209) - A(13045) = RCT(13045)*V(2151)*V(5250) - A(13046) = RCT(13046)*V(2151) - A(13047) = RCT(13047)*V(632) - A(13048) = RCT(13048)*V(4660)*V(5255) - A(13049) = RCT(13049)*V(4660)*V(5255) - A(13050) = RCT(13050)*V(4660)*V(5255) - A(13051) = RCT(13051)*V(4660)*V(5252) - A(13052) = RCT(13052)*V(4660)*V(5253) - A(13053) = RCT(13053)*V(4660)*V(5256) - A(13054) = RCT(13054)*V(4660) - A(13055) = RCT(13055)*V(4660) - A(13056) = RCT(13056)*V(5019)*V(5255) - A(13057) = RCT(13057)*V(5019)*V(5252) - A(13058) = RCT(13058)*V(5019)*V(5256) - A(13059) = RCT(13059)*V(5019) - A(13060) = RCT(13060)*V(5019) - A(13061) = RCT(13061)*V(5019) - A(13062) = RCT(13062)*V(1367)*V(5250) - A(13063) = RCT(13063)*V(1367) - A(13064) = RCT(13064)*V(2629)*V(5250) - A(13065) = RCT(13065)*V(2629) - A(13066) = RCT(13066)*V(2457) - A(13067) = RCT(13067)*V(493)*V(5250) - A(13068) = RCT(13068)*V(493) - A(13069) = RCT(13069)*V(508)*V(5250) - A(13070) = RCT(13070)*V(508) - A(13071) = RCT(13071)*V(69) - A(13072) = RCT(13072)*V(472)*V(5250) - A(13073) = RCT(13073)*V(472) - A(13074) = RCT(13074)*V(359)*V(5250) - A(13075) = RCT(13075)*V(1390)*V(5250) - A(13076) = RCT(13076)*V(1390) - A(13077) = RCT(13077)*V(2759)*V(5250) - A(13078) = RCT(13078)*V(2759) - A(13079) = RCT(13079)*V(1803) - A(13080) = RCT(13080)*V(400)*V(5250) - A(13081) = RCT(13081)*V(400) - A(13082) = RCT(13082)*V(210)*V(5250) - A(13083) = RCT(13083)*V(1540)*V(5250) - A(13084) = RCT(13084)*V(1540) - A(13085) = RCT(13085)*V(2515)*V(5250) - A(13086) = RCT(13086)*V(2515) - A(13087) = RCT(13087)*V(594)*V(5250) - A(13088) = RCT(13088)*V(594) - A(13089) = RCT(13089)*V(88) - A(13090) = RCT(13090)*V(593)*V(5250) - A(13091) = RCT(13091)*V(347)*V(5250) - A(13092) = RCT(13092)*V(1428)*V(5250) - A(13093) = RCT(13093)*V(1428) - A(13094) = RCT(13094)*V(1823)*V(5250) - A(13095) = RCT(13095)*V(1823) - A(13096) = RCT(13096)*V(3591) - A(13097) = RCT(13097)*V(3591) - A(13098) = RCT(13098)*V(799)*V(5250) - A(13099) = RCT(13099)*V(799) - A(13100) = RCT(13100)*V(1089)*V(5250) - A(13101) = RCT(13101)*V(1089) - A(13102) = RCT(13102)*V(125) - A(13103) = RCT(13103)*V(502)*V(5250) - A(13104) = RCT(13104)*V(3845)*V(5255) - A(13105) = RCT(13105)*V(3845)*V(5252) - A(13106) = RCT(13106)*V(3845)*V(5252) - A(13107) = RCT(13107)*V(3845)*V(5256) - A(13108) = RCT(13108)*V(3845) - A(13109) = RCT(13109)*V(3845) - A(13110) = RCT(13110)*V(3862)*V(5256) - A(13111) = RCT(13111)*V(3862)*V(5250) - A(13112) = RCT(13112)*V(3862) - A(13113) = RCT(13113)*V(4150)*V(5255) - A(13114) = RCT(13114)*V(4150)*V(5252) - A(13115) = RCT(13115)*V(4150)*V(5256) - A(13116) = RCT(13116)*V(4150) - A(13117) = RCT(13117)*V(4150) - A(13118) = RCT(13118)*V(4150) - A(13119) = RCT(13119)*V(5073)*V(5255) - A(13120) = RCT(13120)*V(5073)*V(5255) - A(13121) = RCT(13121)*V(5073)*V(5252) - A(13122) = RCT(13122)*V(5073)*V(5253) - A(13123) = RCT(13123)*V(5073)*V(5256) - A(13124) = RCT(13124)*V(5073) - A(13125) = RCT(13125)*V(1394)*V(5250) - A(13126) = RCT(13126)*V(1394) - A(13127) = RCT(13127)*V(993)*V(5250) - A(13128) = RCT(13128)*V(993) - A(13129) = RCT(13129)*V(2708)*V(5250) - A(13130) = RCT(13130)*V(2708) - A(13131) = RCT(13131)*V(880)*V(5250) - A(13132) = RCT(13132)*V(880) - A(13133) = RCT(13133)*V(1996)*V(5250) - A(13134) = RCT(13134)*V(1996) - A(13135) = RCT(13135)*V(158) - A(13136) = RCT(13136)*V(121)*V(5250) - A(13137) = RCT(13137)*V(5085)*V(5256) - A(13138) = RCT(13138)*V(5085)*V(5250) - A(13139) = RCT(13139)*V(5085) - A(13140) = RCT(13140)*V(2386)*V(5250) - A(13141) = RCT(13141)*V(2386) - A(13142) = RCT(13142)*V(2386) - A(13143) = RCT(13143)*V(1631) - A(13144) = RCT(13144)*V(1630)*V(5250) - A(13145) = RCT(13145)*V(1630) - A(13146) = RCT(13146)*V(3949)*V(5255) - A(13147) = RCT(13147)*V(3949)*V(5252) - A(13148) = RCT(13148)*V(3949)*V(5256) - A(13149) = RCT(13149)*V(3949) - A(13150) = RCT(13150)*V(3949) - A(13151) = RCT(13151)*V(20) - A(13152) = RCT(13152)*V(3950)*V(5255) - A(13153) = RCT(13153)*V(3950)*V(5252) - A(13154) = RCT(13154)*V(3950)*V(5252) - A(13155) = RCT(13155)*V(3950)*V(5256) - A(13156) = RCT(13156)*V(3950) - A(13157) = RCT(13157)*V(3950) - A(13158) = RCT(13158)*V(4059)*V(5255) - A(13159) = RCT(13159)*V(4059)*V(5252) - A(13160) = RCT(13160)*V(4059)*V(5252) - A(13161) = RCT(13161)*V(4059)*V(5256) - A(13162) = RCT(13162)*V(4059) - A(13163) = RCT(13163)*V(4059) - A(13164) = RCT(13164)*V(4059) - A(13165) = RCT(13165)*V(1135)*V(5250) - A(13166) = RCT(13166)*V(1135) - A(13167) = RCT(13167)*V(2352)*V(5250) - A(13168) = RCT(13168)*V(2352) - A(13169) = RCT(13169)*V(162) - A(13170) = RCT(13170)*V(310)*V(5250) - A(13171) = RCT(13171)*V(1247)*V(5250) - A(13172) = RCT(13172)*V(1247) - A(13173) = RCT(13173)*V(3703)*V(5255) - A(13174) = RCT(13174)*V(3703)*V(5252) - A(13175) = RCT(13175)*V(3703)*V(5252) - A(13176) = RCT(13176)*V(3703)*V(5256) - A(13177) = RCT(13177)*V(3703) - A(13178) = RCT(13178)*V(3703) - A(13179) = RCT(13179)*V(3703) - A(13180) = RCT(13180)*V(241)*V(5250) - A(13181) = RCT(13181)*V(2597)*V(5250) - A(13182) = RCT(13182)*V(2597) - A(13183) = RCT(13183)*V(887)*V(5250) - A(13184) = RCT(13184)*V(887) - A(13185) = RCT(13185)*V(3338) - A(13186) = RCT(13186)*V(492)*V(5250) - A(13187) = RCT(13187)*V(1317)*V(5250) - A(13188) = RCT(13188)*V(1317) - A(13189) = RCT(13189)*V(2651)*V(5250) - A(13190) = RCT(13190)*V(2651) - A(13191) = RCT(13191)*V(4538)*V(5255) - A(13192) = RCT(13192)*V(4538)*V(5252) - A(13193) = RCT(13193)*V(4538)*V(5256) - A(13194) = RCT(13194)*V(4538) - A(13195) = RCT(13195)*V(5044)*V(5255) - A(13196) = RCT(13196)*V(5044)*V(5255) - A(13197) = RCT(13197)*V(5044)*V(5255) - A(13198) = RCT(13198)*V(5044)*V(5252) - A(13199) = RCT(13199)*V(5044)*V(5253) - A(13200) = RCT(13200)*V(5044)*V(5256) - A(13201) = RCT(13201)*V(5044) - A(13202) = RCT(13202)*V(5044) - A(13203) = RCT(13203)*V(364)*V(5250) - A(13204) = RCT(13204)*V(1479)*V(5250) - A(13205) = RCT(13205)*V(1479) - A(13206) = RCT(13206)*V(3686)*V(5255) - A(13207) = RCT(13207)*V(3686)*V(5252) - A(13208) = RCT(13208)*V(3686)*V(5252) - A(13209) = RCT(13209)*V(3686)*V(5256) - A(13210) = RCT(13210)*V(3686) - A(13211) = RCT(13211)*V(3686) - A(13212) = RCT(13212)*V(3686) - A(13213) = RCT(13213)*V(3011)*V(5250) - A(13214) = RCT(13214)*V(3011) - A(13215) = RCT(13215)*V(1739) - A(13216) = RCT(13216)*V(1739) - A(13217) = RCT(13217)*V(489)*V(5250) - A(13218) = RCT(13218)*V(1509)*V(5250) - A(13219) = RCT(13219)*V(1509) - A(13220) = RCT(13220)*V(2704)*V(5250) - A(13221) = RCT(13221)*V(2704) - A(13222) = RCT(13222)*V(871)*V(5250) - A(13223) = RCT(13223)*V(871) - A(13224) = RCT(13224)*V(206) - A(13225) = RCT(13225)*V(30)*V(5250) - A(13226) = RCT(13226)*V(275)*V(5250) - A(13227) = RCT(13227)*V(951)*V(5250) - A(13228) = RCT(13228)*V(951) - A(13229) = RCT(13229)*V(3789)*V(5255) - A(13230) = RCT(13230)*V(3789)*V(5252) - A(13231) = RCT(13231)*V(3789)*V(5252) - A(13232) = RCT(13232)*V(3789)*V(5256) - A(13233) = RCT(13233)*V(3789) - A(13234) = RCT(13234)*V(3789) - A(13235) = RCT(13235)*V(3789) - A(13236) = RCT(13236)*V(2666)*V(5250) - A(13237) = RCT(13237)*V(2666) - A(13238) = RCT(13238)*V(215)*V(5250) - A(13239) = RCT(13239)*V(1233)*V(5250) - A(13240) = RCT(13240)*V(1233) - A(13241) = RCT(13241)*V(3764)*V(5255) - A(13242) = RCT(13242)*V(3764)*V(5252) - A(13243) = RCT(13243)*V(3764)*V(5252) - A(13244) = RCT(13244)*V(3764)*V(5256) - A(13245) = RCT(13245)*V(3764) - A(13246) = RCT(13246)*V(3764) - A(13247) = RCT(13247)*V(3764) - A(13248) = RCT(13248)*V(2613)*V(5250) - A(13249) = RCT(13249)*V(2613) - A(13250) = RCT(13250)*V(4385)*V(5255) - A(13251) = RCT(13251)*V(4385)*V(5252) - A(13252) = RCT(13252)*V(4385)*V(5252) - A(13253) = RCT(13253)*V(4385)*V(5256) - A(13254) = RCT(13254)*V(4385) - A(13255) = RCT(13255)*V(4385) - A(13256) = RCT(13256)*V(927)*V(5250) - A(13257) = RCT(13257)*V(927) - A(13258) = RCT(13258)*V(2908)*V(5250) - A(13259) = RCT(13259)*V(2908) - A(13260) = RCT(13260)*V(1961) - A(13261) = RCT(13261)*V(511)*V(5250) - A(13262) = RCT(13262)*V(4748)*V(5255) - A(13263) = RCT(13263)*V(4748)*V(5252) - A(13264) = RCT(13264)*V(4748)*V(5252) - A(13265) = RCT(13265)*V(4748)*V(5256) - A(13266) = RCT(13266)*V(4748) - A(13267) = RCT(13267)*V(4748) - A(13268) = RCT(13268)*V(4863)*V(5255) - A(13269) = RCT(13269)*V(4863)*V(5255) - A(13270) = RCT(13270)*V(4863)*V(5255) - A(13271) = RCT(13271)*V(4863)*V(5252) - A(13272) = RCT(13272)*V(4863)*V(5253) - A(13273) = RCT(13273)*V(4863)*V(5256) - A(13274) = RCT(13274)*V(4863) - A(13275) = RCT(13275)*V(4863) - A(13276) = RCT(13276)*V(1245)*V(5250) - A(13277) = RCT(13277)*V(1245) - A(13278) = RCT(13278)*V(2408)*V(5250) - A(13279) = RCT(13279)*V(2408) - A(13280) = RCT(13280)*V(315) - A(13281) = RCT(13281)*V(59)*V(5250) - A(13282) = RCT(13282)*V(4734)*V(5255) - A(13283) = RCT(13283)*V(4734)*V(5252) - A(13284) = RCT(13284)*V(4734)*V(5256) - A(13285) = RCT(13285)*V(4734) - A(13286) = RCT(13286)*V(4734) - A(13287) = RCT(13287)*V(5104)*V(5255) - A(13288) = RCT(13288)*V(5104)*V(5252) - A(13289) = RCT(13289)*V(5104)*V(5252) - A(13290) = RCT(13290)*V(5104)*V(5256) - A(13291) = RCT(13291)*V(5104) - A(13292) = RCT(13292)*V(5104) - A(13293) = RCT(13293)*V(1444)*V(5250) - A(13294) = RCT(13294)*V(1444) - A(13295) = RCT(13295)*V(1752)*V(5250) - A(13296) = RCT(13296)*V(1752) - A(13297) = RCT(13297)*V(3425) - A(13298) = RCT(13298)*V(3425) - A(13299) = RCT(13299)*V(256)*V(5250) - A(13300) = RCT(13300)*V(3951)*V(5255) - A(13301) = RCT(13301)*V(3951)*V(5252) - A(13302) = RCT(13302)*V(3951)*V(5256) - A(13303) = RCT(13303)*V(3951) - A(13304) = RCT(13304)*V(3951) - A(13305) = RCT(13305)*V(4648)*V(5255) - A(13306) = RCT(13306)*V(4648)*V(5252) - A(13307) = RCT(13307)*V(4648)*V(5256) - A(13308) = RCT(13308)*V(4648) - A(13309) = RCT(13309)*V(4510)*V(5255) - A(13310) = RCT(13310)*V(4510)*V(5252) - A(13311) = RCT(13311)*V(4510)*V(5256) - A(13312) = RCT(13312)*V(4510) - A(13313) = RCT(13313)*V(1779) - A(13314) = RCT(13314)*V(1779)*V(5250) - A(13315) = RCT(13315)*V(1779)*V(5250) - A(13316) = RCT(13316)*V(1482)*V(5250) - A(13317) = RCT(13317)*V(3079) - A(13318) = RCT(13318)*V(285)*V(5250) - A(13319) = RCT(13319)*V(3938) - A(13320) = RCT(13320)*V(3938)*V(5256) - A(13321) = RCT(13321)*V(3938)*V(5250) - A(13322) = RCT(13322)*V(4468)*V(5255) - A(13323) = RCT(13323)*V(4468)*V(5255) - A(13324) = RCT(13324)*V(4468)*V(5252) - A(13325) = RCT(13325)*V(4468)*V(5253) - A(13326) = RCT(13326)*V(4468)*V(5256) - A(13327) = RCT(13327)*V(4468) - A(13328) = RCT(13328)*V(2115) - A(13329) = RCT(13329)*V(2115)*V(5250) - A(13330) = RCT(13330)*V(820) - A(13331) = RCT(13331)*V(1173) - A(13332) = RCT(13332)*V(1173)*V(5250) - A(13333) = RCT(13333)*V(2987) - A(13334) = RCT(13334)*V(2987)*V(5250) - A(13335) = RCT(13335)*V(4274)*V(5255) - A(13336) = RCT(13336)*V(4274)*V(5252) - A(13337) = RCT(13337)*V(4274)*V(5256) - A(13338) = RCT(13338)*V(4274) - A(13339) = RCT(13339)*V(4138)*V(5255) - A(13340) = RCT(13340)*V(4138)*V(5252) - A(13341) = RCT(13341)*V(4138)*V(5256) - A(13342) = RCT(13342)*V(4138) - A(13343) = RCT(13343)*V(946) - A(13344) = RCT(13344)*V(946)*V(5250) - A(13345) = RCT(13345)*V(2718) - A(13346) = RCT(13346)*V(2718)*V(5250) - A(13347) = RCT(13347)*V(2723) - A(13348) = RCT(13348)*V(2723) - A(13349) = RCT(13349)*V(2723)*V(5250) - A(13350) = RCT(13350)*V(2203) - A(13351) = RCT(13351)*V(4384)*V(5255) - A(13352) = RCT(13352)*V(4384)*V(5252) - A(13353) = RCT(13353)*V(4384)*V(5256) - A(13354) = RCT(13354)*V(4384) - A(13355) = RCT(13355)*V(1234) - A(13356) = RCT(13356)*V(1234)*V(5250) - A(13357) = RCT(13357)*V(2877) - A(13358) = RCT(13358)*V(2877)*V(5250) - A(13359) = RCT(13359)*V(995) - A(13360) = RCT(13360)*V(995)*V(5250) - A(13361) = RCT(13361)*V(1026)*V(5250) - A(13362) = RCT(13362)*V(2946) - A(13363) = RCT(13363)*V(385)*V(5250) - A(13364) = RCT(13364)*V(3391) - A(13365) = RCT(13365)*V(3391)*V(5250) - A(13366) = RCT(13366)*V(4435)*V(5255) - A(13367) = RCT(13367)*V(4435)*V(5252) - A(13368) = RCT(13368)*V(4435)*V(5256) - A(13369) = RCT(13369)*V(4435) - A(13370) = RCT(13370)*V(850) - A(13371) = RCT(13371)*V(850)*V(5250) - A(13372) = RCT(13372)*V(3007) - A(13373) = RCT(13373)*V(3007)*V(5250) - A(13374) = RCT(13374)*V(4461)*V(5255) - A(13375) = RCT(13375)*V(4461)*V(5252) - A(13376) = RCT(13376)*V(4461)*V(5256) - A(13377) = RCT(13377)*V(4461) - A(13378) = RCT(13378)*V(1244) - A(13379) = RCT(13379)*V(1244)*V(5250) - A(13380) = RCT(13380)*V(3070) - A(13381) = RCT(13381)*V(3070)*V(5250) - A(13382) = RCT(13382)*V(4421)*V(5255) - A(13383) = RCT(13383)*V(4421)*V(5252) - A(13384) = RCT(13384)*V(4421)*V(5256) - A(13385) = RCT(13385)*V(4421) - A(13386) = RCT(13386)*V(1418) - A(13387) = RCT(13387)*V(1418)*V(5250) - A(13388) = RCT(13388)*V(3218) - A(13389) = RCT(13389)*V(3218)*V(5250) - A(13390) = RCT(13390)*V(4532)*V(5255) - A(13391) = RCT(13391)*V(4532)*V(5252) - A(13392) = RCT(13392)*V(4532)*V(5256) - A(13393) = RCT(13393)*V(4532) - A(13394) = RCT(13394)*V(1226) - A(13395) = RCT(13395)*V(1226)*V(5250) - A(13396) = RCT(13396)*V(3306) - A(13397) = RCT(13397)*V(3306)*V(5250) - A(13398) = RCT(13398)*V(4429)*V(5255) - A(13399) = RCT(13399)*V(4429)*V(5252) - A(13400) = RCT(13400)*V(4429)*V(5256) - A(13401) = RCT(13401)*V(4429) - A(13402) = RCT(13402)*V(1198) - A(13403) = RCT(13403)*V(1198)*V(5250) - A(13404) = RCT(13404)*V(3282) - A(13405) = RCT(13405)*V(3282)*V(5250) - A(13406) = RCT(13406)*V(142) - A(13407) = RCT(13407)*V(4267)*V(5255) - A(13408) = RCT(13408)*V(4267)*V(5255) - A(13409) = RCT(13409)*V(4267)*V(5252) - A(13410) = RCT(13410)*V(4267)*V(5253) - A(13411) = RCT(13411)*V(4267)*V(5256) - A(13412) = RCT(13412)*V(4267) - A(13413) = RCT(13413)*V(2911)*V(5250) - A(13414) = RCT(13414)*V(2911) - A(13415) = RCT(13415)*V(2725)*V(5250) - A(13416) = RCT(13416)*V(2725) - A(13417) = RCT(13417)*V(4489)*V(5255) - A(13418) = RCT(13418)*V(4489)*V(5255) - A(13419) = RCT(13419)*V(4489)*V(5252) - A(13420) = RCT(13420)*V(4489)*V(5253) - A(13421) = RCT(13421)*V(4489)*V(5256) - A(13422) = RCT(13422)*V(4489) - A(13423) = RCT(13423)*V(2991)*V(5250) - A(13424) = RCT(13424)*V(2991) - A(13425) = RCT(13425)*V(3040)*V(5250) - A(13426) = RCT(13426)*V(3040) - A(13427) = RCT(13427)*V(85) - A(13428) = RCT(13428)*V(1248)*V(5250) - A(13429) = RCT(13429)*V(1248) - A(13430) = RCT(13430)*V(3075)*V(5250) - A(13431) = RCT(13431)*V(3075) - A(13432) = RCT(13432)*V(4329)*V(5255) - A(13433) = RCT(13433)*V(4329)*V(5255) - A(13434) = RCT(13434)*V(4329)*V(5252) - A(13435) = RCT(13435)*V(4329)*V(5253) - A(13436) = RCT(13436)*V(4329)*V(5256) - A(13437) = RCT(13437)*V(4329) - A(13438) = RCT(13438)*V(2055)*V(5250) - A(13439) = RCT(13439)*V(2055) - A(13440) = RCT(13440)*V(2683)*V(5250) - A(13441) = RCT(13441)*V(2683) - A(13442) = RCT(13442)*V(2248)*V(5250) - A(13443) = RCT(13443)*V(2248) - A(13444) = RCT(13444)*V(2643)*V(5250) - A(13445) = RCT(13445)*V(2643) - A(13446) = RCT(13446)*V(499)*V(5250) - A(13447) = RCT(13447)*V(1460)*V(5250) - A(13448) = RCT(13448)*V(1460) - A(13449) = RCT(13449)*V(3315)*V(5250) - A(13450) = RCT(13450)*V(3315) - A(13451) = RCT(13451)*V(287)*V(5250) - A(13452) = RCT(13452)*V(894)*V(5250) - A(13453) = RCT(13453)*V(894) - A(13454) = RCT(13454)*V(2552)*V(5250) - A(13455) = RCT(13455)*V(2552) - A(13456) = RCT(13456)*V(4449)*V(5250) - A(13457) = RCT(13457)*V(4449) - A(13458) = RCT(13458)*V(2443)*V(5250) - A(13459) = RCT(13459)*V(2443) - A(13460) = RCT(13460)*V(2863)*V(5250) - A(13461) = RCT(13461)*V(2863) - A(13462) = RCT(13462)*V(4026)*V(5255) - A(13463) = RCT(13463)*V(4026)*V(5255) - A(13464) = RCT(13464)*V(4026)*V(5252) - A(13465) = RCT(13465)*V(4026)*V(5253) - A(13466) = RCT(13466)*V(4026)*V(5256) - A(13467) = RCT(13467)*V(4026) - A(13468) = RCT(13468)*V(2838)*V(5250) - A(13469) = RCT(13469)*V(2838) - A(13470) = RCT(13470)*V(2631)*V(5250) - A(13471) = RCT(13471)*V(2631) - A(13472) = RCT(13472)*V(4102)*V(5255) - A(13473) = RCT(13473)*V(4102)*V(5255) - A(13474) = RCT(13474)*V(4102)*V(5252) - A(13475) = RCT(13475)*V(4102)*V(5253) - A(13476) = RCT(13476)*V(4102)*V(5256) - A(13477) = RCT(13477)*V(4102) - A(13478) = RCT(13478)*V(2541)*V(5250) - A(13479) = RCT(13479)*V(2541) - A(13480) = RCT(13480)*V(2765)*V(5250) - A(13481) = RCT(13481)*V(2765) - A(13482) = RCT(13482)*V(422) - A(13483) = RCT(13483)*V(2171)*V(5250) - A(13484) = RCT(13484)*V(2171) - A(13485) = RCT(13485)*V(3063)*V(5250) - A(13486) = RCT(13486)*V(3063) - A(13487) = RCT(13487)*V(4620)*V(5255) - A(13488) = RCT(13488)*V(4620)*V(5255) - A(13489) = RCT(13489)*V(4620)*V(5252) - A(13490) = RCT(13490)*V(4620)*V(5253) - A(13491) = RCT(13491)*V(4620)*V(5256) - A(13492) = RCT(13492)*V(4620) - A(13493) = RCT(13493)*V(2654)*V(5250) - A(13494) = RCT(13494)*V(2654) - A(13495) = RCT(13495)*V(2794)*V(5250) - A(13496) = RCT(13496)*V(2794) - A(13497) = RCT(13497)*V(245) - A(13498) = RCT(13498)*V(4744)*V(5255) - A(13499) = RCT(13499)*V(4744)*V(5255) - A(13500) = RCT(13500)*V(4744)*V(5252) - A(13501) = RCT(13501)*V(4744)*V(5253) - A(13502) = RCT(13502)*V(4744)*V(5256) - A(13503) = RCT(13503)*V(4744) - A(13504) = RCT(13504)*V(2862)*V(5250) - A(13505) = RCT(13505)*V(2862) - A(13506) = RCT(13506)*V(2505)*V(5250) - A(13507) = RCT(13507)*V(2505) - A(13508) = RCT(13508)*V(23) - A(13509) = RCT(13509)*V(1301)*V(5250) - A(13510) = RCT(13510)*V(1301) - A(13511) = RCT(13511)*V(2919) - A(13512) = RCT(13512)*V(1335)*V(5250) - A(13513) = RCT(13513)*V(1335) - A(13514) = RCT(13514)*V(204) - A(13515) = RCT(13515)*V(72)*V(5250) - A(13516) = RCT(13516)*V(2349)*V(5250) - A(13517) = RCT(13517)*V(2349) - A(13518) = RCT(13518)*V(2615)*V(5250) - A(13519) = RCT(13519)*V(2615) - A(13520) = RCT(13520)*V(4175)*V(5250) - A(13521) = RCT(13521)*V(4175) - A(13522) = RCT(13522)*V(4175) - A(13523) = RCT(13523)*V(4731)*V(5255) - A(13524) = RCT(13524)*V(4731)*V(5255) - A(13525) = RCT(13525)*V(4731)*V(5252) - A(13526) = RCT(13526)*V(4731)*V(5253) - A(13527) = RCT(13527)*V(4731)*V(5256) - A(13528) = RCT(13528)*V(4731) - A(13529) = RCT(13529)*V(2064)*V(5250) - A(13530) = RCT(13530)*V(2064) - A(13531) = RCT(13531)*V(3019)*V(5250) - A(13532) = RCT(13532)*V(3019) - A(13533) = RCT(13533)*V(4203)*V(5255) - A(13534) = RCT(13534)*V(4203)*V(5255) - A(13535) = RCT(13535)*V(4203)*V(5252) - A(13536) = RCT(13536)*V(4203)*V(5253) - A(13537) = RCT(13537)*V(4203)*V(5256) - A(13538) = RCT(13538)*V(4203) - A(13539) = RCT(13539)*V(2263)*V(5250) - A(13540) = RCT(13540)*V(2263) - A(13541) = RCT(13541)*V(2866)*V(5250) - A(13542) = RCT(13542)*V(2866) - A(13543) = RCT(13543)*V(4445)*V(5255) - A(13544) = RCT(13544)*V(4445)*V(5255) - A(13545) = RCT(13545)*V(4445)*V(5252) - A(13546) = RCT(13546)*V(4445)*V(5253) - A(13547) = RCT(13547)*V(4445)*V(5256) - A(13548) = RCT(13548)*V(4445) - A(13549) = RCT(13549)*V(2754)*V(5250) - A(13550) = RCT(13550)*V(2754) - A(13551) = RCT(13551)*V(3052)*V(5250) - A(13552) = RCT(13552)*V(3052) - A(13553) = RCT(13553)*V(255)*V(5250) - A(13554) = RCT(13554)*V(901)*V(5250) - A(13555) = RCT(13555)*V(901) - A(13556) = RCT(13556)*V(2852)*V(5250) - A(13557) = RCT(13557)*V(2852) - A(13558) = RCT(13558)*V(952)*V(5250) - A(13559) = RCT(13559)*V(952) - A(13560) = RCT(13560)*V(4184) - A(13561) = RCT(13561)*V(626)*V(5250) - A(13562) = RCT(13562)*V(626) - A(13563) = RCT(13563)*V(4831)*V(5255) - A(13564) = RCT(13564)*V(4831)*V(5255) - A(13565) = RCT(13565)*V(4831)*V(5252) - A(13566) = RCT(13566)*V(4831)*V(5253) - A(13567) = RCT(13567)*V(4831)*V(5256) - A(13568) = RCT(13568)*V(4831) - A(13569) = RCT(13569)*V(4751)*V(5255) - A(13570) = RCT(13570)*V(4751)*V(5252) - A(13571) = RCT(13571)*V(4751)*V(5256) - A(13572) = RCT(13572)*V(4751) - A(13573) = RCT(13573)*V(3211)*V(5250) - A(13574) = RCT(13574)*V(3211) - A(13575) = RCT(13575)*V(3224)*V(5250) - A(13576) = RCT(13576)*V(3224) - A(13577) = RCT(13577)*V(10)*V(5250) - A(13578) = RCT(13578)*V(1006)*V(5250) - A(13579) = RCT(13579)*V(1006) - A(13580) = RCT(13580)*V(2003)*V(5250) - A(13581) = RCT(13581)*V(2003) - A(13582) = RCT(13582)*V(1222)*V(5250) - A(13583) = RCT(13583)*V(2183)*V(5250) - A(13584) = RCT(13584)*V(2183) - A(13585) = RCT(13585)*V(2928)*V(5250) - A(13586) = RCT(13586)*V(2928) - A(13587) = RCT(13587)*V(1494)*V(5250) - A(13588) = RCT(13588)*V(1970)*V(5250) - A(13589) = RCT(13589)*V(1970) - A(13590) = RCT(13590)*V(2907)*V(5250) - A(13591) = RCT(13591)*V(2907) - A(13592) = RCT(13592)*V(3477)*V(5250) - A(13593) = RCT(13593)*V(3477) - A(13594) = RCT(13594)*V(3563)*V(5250) - A(13595) = RCT(13595)*V(3563) - A(13596) = RCT(13596)*V(3392)*V(5250) - A(13597) = RCT(13597)*V(3392) - A(13598) = RCT(13598)*V(907)*V(5250) - A(13599) = RCT(13599)*V(907) - A(13600) = RCT(13600)*V(2957)*V(5250) - A(13601) = RCT(13601)*V(2957) - A(13602) = RCT(13602)*V(2580) - A(13603) = RCT(13603)*V(2580)*V(5250) - A(13604) = RCT(13604)*V(2870) - A(13605) = RCT(13605)*V(2870)*V(5250) - A(13606) = RCT(13606)*V(2635) - A(13607) = RCT(13607)*V(2635)*V(5250) - A(13608) = RCT(13608)*V(3267)*V(5250) - A(13609) = RCT(13609)*V(3267) - A(13610) = RCT(13610)*V(3267) - A(13611) = RCT(13611)*V(1787) - A(13612) = RCT(13612)*V(3217)*V(5250) - A(13613) = RCT(13613)*V(3217) - A(13614) = RCT(13614)*V(3217) - A(13615) = RCT(13615)*V(1892) - A(13616) = RCT(13616)*V(2345)*V(5250) - A(13617) = RCT(13617)*V(2345) - A(13618) = RCT(13618)*V(2966)*V(5250) - A(13619) = RCT(13619)*V(2966) - A(13620) = RCT(13620)*V(3601)*V(5250) - A(13621) = RCT(13621)*V(3601) - A(13622) = RCT(13622)*V(2486)*V(5250) - A(13623) = RCT(13623)*V(2486) - A(13624) = RCT(13624)*V(272)*V(5250) - A(13625) = RCT(13625)*V(1208)*V(5250) - A(13626) = RCT(13626)*V(1208) - A(13627) = RCT(13627)*V(2517)*V(5250) - A(13628) = RCT(13628)*V(2517) - A(13629) = RCT(13629)*V(2116) - A(13630) = RCT(13630)*V(2116)*V(5250) - A(13631) = RCT(13631)*V(2784) - A(13632) = RCT(13632)*V(2784)*V(5250) - A(13633) = RCT(13633)*V(1360)*V(5250) - A(13634) = RCT(13634)*V(1360) - A(13635) = RCT(13635)*V(2989) - A(13636) = RCT(13636)*V(3233)*V(5250) - A(13637) = RCT(13637)*V(1320)*V(5250) - A(13638) = RCT(13638)*V(1320) - A(13639) = RCT(13639)*V(3008)*V(5250) - A(13640) = RCT(13640)*V(3008) - A(13641) = RCT(13641)*V(886)*V(5250) - A(13642) = RCT(13642)*V(886) - A(13643) = RCT(13643)*V(2600)*V(5250) - A(13644) = RCT(13644)*V(2600) - A(13645) = RCT(13645)*V(3976)*V(5255) - A(13646) = RCT(13646)*V(3976)*V(5252) - A(13647) = RCT(13647)*V(3976)*V(5256) - A(13648) = RCT(13648)*V(3976) - A(13649) = RCT(13649)*V(1275)*V(5250) - A(13650) = RCT(13650)*V(1275) - A(13651) = RCT(13651)*V(2867)*V(5250) - A(13652) = RCT(13652)*V(2867) - A(13653) = RCT(13653)*V(986)*V(5250) - A(13654) = RCT(13654)*V(986) - A(13655) = RCT(13655)*V(3984)*V(5255) - A(13656) = RCT(13656)*V(3984)*V(5252) - A(13657) = RCT(13657)*V(3984)*V(5256) - A(13658) = RCT(13658)*V(3984) - A(13659) = RCT(13659)*V(2977)*V(5250) - A(13660) = RCT(13660)*V(2977) - A(13661) = RCT(13661)*V(4340)*V(5255) - A(13662) = RCT(13662)*V(4340)*V(5252) - A(13663) = RCT(13663)*V(4340)*V(5256) - A(13664) = RCT(13664)*V(4340) - A(13665) = RCT(13665)*V(4340) - A(13666) = RCT(13666)*V(4340) - A(13667) = RCT(13667)*V(1164)*V(5250) - A(13668) = RCT(13668)*V(1164) - A(13669) = RCT(13669)*V(4190) - A(13670) = RCT(13670)*V(4190) - A(13671) = RCT(13671)*V(879)*V(5250) - A(13672) = RCT(13672)*V(879) - A(13673) = RCT(13673)*V(2328)*V(5250) - A(13674) = RCT(13674)*V(2328) - A(13675) = RCT(13675)*V(193) - A(13676) = RCT(13676)*V(4224)*V(5256) - A(13677) = RCT(13677)*V(4224)*V(5250) - A(13678) = RCT(13678)*V(4224) - A(13679) = RCT(13679)*V(399)*V(5250) - A(13680) = RCT(13680)*V(1888)*V(5250) - A(13681) = RCT(13681)*V(1888) - A(13682) = RCT(13682)*V(582) - A(13683) = RCT(13683)*V(3838)*V(5255) - A(13684) = RCT(13684)*V(3838)*V(5252) - A(13685) = RCT(13685)*V(3838)*V(5256) - A(13686) = RCT(13686)*V(3838) - A(13687) = RCT(13687)*V(4104)*V(5250) - A(13688) = RCT(13688)*V(4104) - A(13689) = RCT(13689)*V(4597)*V(5255) - A(13690) = RCT(13690)*V(4597)*V(5252) - A(13691) = RCT(13691)*V(4597)*V(5252) - A(13692) = RCT(13692)*V(4597)*V(5256) - A(13693) = RCT(13693)*V(4597) - A(13694) = RCT(13694)*V(4597) - A(13695) = RCT(13695)*V(4597) - A(13696) = RCT(13696)*V(4560)*V(5255) - A(13697) = RCT(13697)*V(4560)*V(5252) - A(13698) = RCT(13698)*V(4560)*V(5256) - A(13699) = RCT(13699)*V(4560) - A(13700) = RCT(13700)*V(933)*V(5250) - A(13701) = RCT(13701)*V(933) - A(13702) = RCT(13702)*V(1018)*V(5250) - A(13703) = RCT(13703)*V(1018) - A(13704) = RCT(13704)*V(2527)*V(5250) - A(13705) = RCT(13705)*V(2527) - A(13706) = RCT(13706)*V(2380)*V(5250) - A(13707) = RCT(13707)*V(2380) - A(13708) = RCT(13708)*V(697) - A(13709) = RCT(13709)*V(3348)*V(5250) - A(13710) = RCT(13710)*V(3348) - A(13711) = RCT(13711)*V(1934)*V(5250) - A(13712) = RCT(13712)*V(1934)*V(5250) - A(13713) = RCT(13713)*V(1934) - A(13714) = RCT(13714)*V(4410)*V(5255) - A(13715) = RCT(13715)*V(4410)*V(5252) - A(13716) = RCT(13716)*V(4410)*V(5256) - A(13717) = RCT(13717)*V(4410) - A(13718) = RCT(13718)*V(4410) - A(13719) = RCT(13719)*V(4410) - A(13720) = RCT(13720)*V(4624)*V(5255) - A(13721) = RCT(13721)*V(4624)*V(5255) - A(13722) = RCT(13722)*V(4624)*V(5255) - A(13723) = RCT(13723)*V(4624)*V(5252) - A(13724) = RCT(13724)*V(4624)*V(5253) - A(13725) = RCT(13725)*V(4624)*V(5256) - A(13726) = RCT(13726)*V(4624) - A(13727) = RCT(13727)*V(4624) - A(13728) = RCT(13728)*V(4278)*V(5256) - A(13729) = RCT(13729)*V(4278)*V(5250) - A(13730) = RCT(13730)*V(4278) - A(13731) = RCT(13731)*V(4350)*V(5255) - A(13732) = RCT(13732)*V(4350)*V(5252) - A(13733) = RCT(13733)*V(4350)*V(5256) - A(13734) = RCT(13734)*V(4350) - A(13735) = RCT(13735)*V(4350) - A(13736) = RCT(13736)*V(4350) - A(13737) = RCT(13737)*V(4485)*V(5255) - A(13738) = RCT(13738)*V(4485)*V(5255) - A(13739) = RCT(13739)*V(4485)*V(5255) - A(13740) = RCT(13740)*V(4485)*V(5252) - A(13741) = RCT(13741)*V(4485)*V(5253) - A(13742) = RCT(13742)*V(4485)*V(5256) - A(13743) = RCT(13743)*V(4485) - A(13744) = RCT(13744)*V(4485) - A(13745) = RCT(13745)*V(4142)*V(5255) - A(13746) = RCT(13746)*V(4142)*V(5252) - A(13747) = RCT(13747)*V(4142)*V(5256) - A(13748) = RCT(13748)*V(4142) - A(13749) = RCT(13749)*V(4142) - A(13750) = RCT(13750)*V(4142) - A(13751) = RCT(13751)*V(1929)*V(5250) - A(13752) = RCT(13752)*V(1929) - A(13753) = RCT(13753)*V(942)*V(5250) - A(13754) = RCT(13754)*V(942) - A(13755) = RCT(13755)*V(2532)*V(5250) - A(13756) = RCT(13756)*V(2532) - A(13757) = RCT(13757)*V(2056) - A(13758) = RCT(13758)*V(418)*V(5250) - A(13759) = RCT(13759)*V(418) - A(13760) = RCT(13760)*V(4659)*V(5255) - A(13761) = RCT(13761)*V(4659)*V(5255) - A(13762) = RCT(13762)*V(4659)*V(5255) - A(13763) = RCT(13763)*V(4659)*V(5252) - A(13764) = RCT(13764)*V(4659)*V(5253) - A(13765) = RCT(13765)*V(4659)*V(5256) - A(13766) = RCT(13766)*V(4659) - A(13767) = RCT(13767)*V(4418)*V(5255) - A(13768) = RCT(13768)*V(4418)*V(5252) - A(13769) = RCT(13769)*V(4418)*V(5256) - A(13770) = RCT(13770)*V(4418) - A(13771) = RCT(13771)*V(4418) - A(13772) = RCT(13772)*V(4418) - A(13773) = RCT(13773)*V(2017)*V(5250) - A(13774) = RCT(13774)*V(2017) - A(13775) = RCT(13775)*V(2017) - A(13776) = RCT(13776)*V(553) - A(13777) = RCT(13777)*V(1643)*V(5250) - A(13778) = RCT(13778)*V(1731)*V(5250) - A(13779) = RCT(13779)*V(1731) - A(13780) = RCT(13780)*V(1350)*V(5250) - A(13781) = RCT(13781)*V(1350) - A(13782) = RCT(13782)*V(4371)*V(5255) - A(13783) = RCT(13783)*V(4371)*V(5252) - A(13784) = RCT(13784)*V(4371)*V(5256) - A(13785) = RCT(13785)*V(4371) - A(13786) = RCT(13786)*V(3436)*V(5250) - A(13787) = RCT(13787)*V(3436) - A(13788) = RCT(13788)*V(4439)*V(5255) - A(13789) = RCT(13789)*V(4439)*V(5255) - A(13790) = RCT(13790)*V(4439)*V(5252) - A(13791) = RCT(13791)*V(4439)*V(5253) - A(13792) = RCT(13792)*V(4439)*V(5256) - A(13793) = RCT(13793)*V(4439) - A(13794) = RCT(13794)*V(4752)*V(5255) - A(13795) = RCT(13795)*V(4752)*V(5255) - A(13796) = RCT(13796)*V(4752)*V(5255) - A(13797) = RCT(13797)*V(4752)*V(5252) - A(13798) = RCT(13798)*V(4752)*V(5253) - A(13799) = RCT(13799)*V(4752)*V(5256) - A(13800) = RCT(13800)*V(4752) - A(13801) = RCT(13801)*V(4752) - A(13802) = RCT(13802)*V(4019)*V(5255) - A(13803) = RCT(13803)*V(4019)*V(5252) - A(13804) = RCT(13804)*V(4019)*V(5252) - A(13805) = RCT(13805)*V(4019)*V(5256) - A(13806) = RCT(13806)*V(4019) - A(13807) = RCT(13807)*V(4019) - A(13808) = RCT(13808)*V(4019) - A(13809) = RCT(13809)*V(984)*V(5250) - A(13810) = RCT(13810)*V(984) - A(13811) = RCT(13811)*V(2750) - A(13812) = RCT(13812)*V(662)*V(5250) - A(13813) = RCT(13813)*V(4242)*V(5255) - A(13814) = RCT(13814)*V(4242)*V(5252) - A(13815) = RCT(13815)*V(4242)*V(5256) - A(13816) = RCT(13816)*V(4242) - A(13817) = RCT(13817)*V(4242) - A(13818) = RCT(13818)*V(1272)*V(5250) - A(13819) = RCT(13819)*V(1272) - A(13820) = RCT(13820)*V(2007)*V(5250) - A(13821) = RCT(13821)*V(2561) - A(13822) = RCT(13822)*V(793)*V(5250) - A(13823) = RCT(13823)*V(1126)*V(5250) - A(13824) = RCT(13824)*V(1126) - A(13825) = RCT(13825)*V(2072)*V(5250) - A(13826) = RCT(13826)*V(2072) - A(13827) = RCT(13827)*V(2073) - A(13828) = RCT(13828)*V(5189)*V(5256) - A(13829) = RCT(13829)*V(5189)*V(5256) - A(13830) = RCT(13830)*V(5189)*V(5258) - A(13831) = RCT(13831)*V(5189)*V(5258) - A(13832) = RCT(13832)*V(5189)*V(5250) - A(13833) = RCT(13833)*V(5189)*V(5250) - A(13834) = RCT(13834)*V(5189) - A(13835) = RCT(13835)*V(465)*V(5250) - A(13836) = RCT(13836)*V(4098)*V(5255) - A(13837) = RCT(13837)*V(4098)*V(5252) - A(13838) = RCT(13838)*V(4098)*V(5256) - A(13839) = RCT(13839)*V(4098) - A(13840) = RCT(13840)*V(4098) - A(13841) = RCT(13841)*V(4098) - A(13842) = RCT(13842)*V(1070)*V(5250) - A(13843) = RCT(13843)*V(1070) - A(13844) = RCT(13844)*V(2063)*V(5250) - A(13845) = RCT(13845)*V(2063) - A(13846) = RCT(13846)*V(168) - A(13847) = RCT(13847)*V(3270)*V(5250) - A(13848) = RCT(13848)*V(3270) - A(13849) = RCT(13849)*V(478)*V(5250) - A(13850) = RCT(13850)*V(2062)*V(5250) - A(13851) = RCT(13851)*V(2062) - A(13852) = RCT(13852)*V(704) - A(13853) = RCT(13853)*V(1617) - A(13854) = RCT(13854)*V(1617) - A(13855) = RCT(13855)*V(515)*V(5250) - A(13856) = RCT(13856)*V(1511)*V(5250) - A(13857) = RCT(13857)*V(1511) - A(13858) = RCT(13858)*V(2688)*V(5250) - A(13859) = RCT(13859)*V(2688) - A(13860) = RCT(13860)*V(1119)*V(5250) - A(13861) = RCT(13861)*V(1119) - A(13862) = RCT(13862)*V(1551)*V(5250) - A(13863) = RCT(13863)*V(1551) - A(13864) = RCT(13864)*V(174) - A(13865) = RCT(13865)*V(1550)*V(5250) - A(13866) = RCT(13866)*V(257)*V(5250) - A(13867) = RCT(13867)*V(4652)*V(5255) - A(13868) = RCT(13868)*V(4652)*V(5255) - A(13869) = RCT(13869)*V(4652)*V(5255) - A(13870) = RCT(13870)*V(4652)*V(5252) - A(13871) = RCT(13871)*V(4652)*V(5253) - A(13872) = RCT(13872)*V(4652)*V(5256) - A(13873) = RCT(13873)*V(4652) - A(13874) = RCT(13874)*V(4652) - A(13875) = RCT(13875)*V(4825)*V(5255) - A(13876) = RCT(13876)*V(4825)*V(5252) - A(13877) = RCT(13877)*V(4825)*V(5252) - A(13878) = RCT(13878)*V(4825)*V(5256) - A(13879) = RCT(13879)*V(4825) - A(13880) = RCT(13880)*V(4825) - A(13881) = RCT(13881)*V(4825) - A(13882) = RCT(13882)*V(1004)*V(5250) - A(13883) = RCT(13883)*V(1004) - A(13884) = RCT(13884)*V(2157)*V(5250) - A(13885) = RCT(13885)*V(2157) - A(13886) = RCT(13886)*V(151) - A(13887) = RCT(13887)*V(3213)*V(5250) - A(13888) = RCT(13888)*V(3213) - A(13889) = RCT(13889)*V(409)*V(5250) - A(13890) = RCT(13890)*V(1149)*V(5250) - A(13891) = RCT(13891)*V(1149) - A(13892) = RCT(13892)*V(1591)*V(5250) - A(13893) = RCT(13893)*V(1591) - A(13894) = RCT(13894)*V(190) - A(13895) = RCT(13895)*V(1590)*V(5250) - A(13896) = RCT(13896)*V(266)*V(5250) - A(13897) = RCT(13897)*V(1801)*V(5250) - A(13898) = RCT(13898)*V(1801) - A(13899) = RCT(13899)*V(2524)*V(5250) - A(13900) = RCT(13900)*V(2524) - A(13901) = RCT(13901)*V(1614) - A(13902) = RCT(13902)*V(813)*V(5250) - A(13903) = RCT(13903)*V(1331)*V(5250) - A(13904) = RCT(13904)*V(1331) - A(13905) = RCT(13905)*V(2195)*V(5250) - A(13906) = RCT(13906)*V(2195) - A(13907) = RCT(13907)*V(211) - A(13908) = RCT(13908)*V(108)*V(5250) - A(13909) = RCT(13909)*V(378)*V(5250) - A(13910) = RCT(13910)*V(1480)*V(5250) - A(13911) = RCT(13911)*V(1480) - A(13912) = RCT(13912)*V(3722)*V(5255) - A(13913) = RCT(13913)*V(3722)*V(5252) - A(13914) = RCT(13914)*V(3722)*V(5252) - A(13915) = RCT(13915)*V(3722)*V(5256) - A(13916) = RCT(13916)*V(3722) - A(13917) = RCT(13917)*V(3722) - A(13918) = RCT(13918)*V(3722) - A(13919) = RCT(13919)*V(2829)*V(5250) - A(13920) = RCT(13920)*V(2829) - A(13921) = RCT(13921)*V(3420)*V(5250) - A(13922) = RCT(13922)*V(3420) - A(13923) = RCT(13923)*V(4172)*V(5255) - A(13924) = RCT(13924)*V(4172)*V(5252) - A(13925) = RCT(13925)*V(4172)*V(5252) - A(13926) = RCT(13926)*V(4172)*V(5256) - A(13927) = RCT(13927)*V(4172) - A(13928) = RCT(13928)*V(4172) - A(13929) = RCT(13929)*V(4172) - A(13930) = RCT(13930)*V(965)*V(5250) - A(13931) = RCT(13931)*V(965) - A(13932) = RCT(13932)*V(1620) - A(13933) = RCT(13933)*V(118)*V(5250) - A(13934) = RCT(13934)*V(883)*V(5250) - A(13935) = RCT(13935)*V(883) - A(13936) = RCT(13936)*V(2621)*V(5250) - A(13937) = RCT(13937)*V(2621) - A(13938) = RCT(13938)*V(2293) - A(13939) = RCT(13939)*V(99)*V(5250) - A(13940) = RCT(13940)*V(1333)*V(5250) - A(13941) = RCT(13941)*V(1333) - A(13942) = RCT(13942)*V(113) - A(13943) = RCT(13943)*V(213)*V(5250) - A(13944) = RCT(13944)*V(2975)*V(5250) - A(13945) = RCT(13945)*V(2975) - A(13946) = RCT(13946)*V(2975) - A(13947) = RCT(13947)*V(2210) - A(13948) = RCT(13948)*V(902)*V(5250) - A(13949) = RCT(13949)*V(902) - A(13950) = RCT(13950)*V(2724) - A(13951) = RCT(13951)*V(4207)*V(5255) - A(13952) = RCT(13952)*V(4207)*V(5255) - A(13953) = RCT(13953)*V(4207)*V(5252) - A(13954) = RCT(13954)*V(4207)*V(5253) - A(13955) = RCT(13955)*V(4207)*V(5256) - A(13956) = RCT(13956)*V(4207) - A(13957) = RCT(13957)*V(1236) - A(13958) = RCT(13958)*V(1236)*V(5250) - A(13959) = RCT(13959)*V(2845) - A(13960) = RCT(13960)*V(2845)*V(5250) - A(13961) = RCT(13961)*V(1759) - A(13962) = RCT(13962)*V(1759) - A(13963) = RCT(13963)*V(1759)*V(5250) - A(13964) = RCT(13964)*V(545) - A(13965) = RCT(13965)*V(2930) - A(13966) = RCT(13966)*V(2930) - A(13967) = RCT(13967)*V(2930)*V(5250) - A(13968) = RCT(13968)*V(2201) - A(13969) = RCT(13969)*V(3274) - A(13970) = RCT(13970)*V(3274) - A(13971) = RCT(13971)*V(3274)*V(5250) - A(13972) = RCT(13972)*V(2024) - A(13973) = RCT(13973)*V(3899)*V(5255) - A(13974) = RCT(13974)*V(3899)*V(5252) - A(13975) = RCT(13975)*V(3899)*V(5256) - A(13976) = RCT(13976)*V(3899) - A(13977) = RCT(13977)*V(1268) - A(13978) = RCT(13978)*V(1268)*V(5250) - A(13979) = RCT(13979)*V(2960) - A(13980) = RCT(13980)*V(1137) - A(13981) = RCT(13981)*V(1137)*V(5250) - A(13982) = RCT(13982)*V(3073) - A(13983) = RCT(13983)*V(960) - A(13984) = RCT(13984)*V(960)*V(5250) - A(13985) = RCT(13985)*V(2751) - A(13986) = RCT(13986)*V(1271) - A(13987) = RCT(13987)*V(1271)*V(5250) - A(13988) = RCT(13988)*V(2853) - A(13989) = RCT(13989)*V(1338) - A(13990) = RCT(13990)*V(1338)*V(5250) - A(13991) = RCT(13991)*V(3058) - A(13992) = RCT(13992)*V(2763)*V(5250) - A(13993) = RCT(13993)*V(2763) - A(13994) = RCT(13994)*V(2529)*V(5250) - A(13995) = RCT(13995)*V(2529) - A(13996) = RCT(13996)*V(2414)*V(5250) - A(13997) = RCT(13997)*V(2414) - A(13998) = RCT(13998)*V(2859)*V(5250) - A(13999) = RCT(13999)*V(2859) - A(14000) = RCT(14000)*V(2039)*V(5250) - A(14001) = RCT(14001)*V(2039) - A(14002) = RCT(14002)*V(2970)*V(5250) - A(14003) = RCT(14003)*V(2970) - A(14004) = RCT(14004)*V(3546)*V(5256) - A(14005) = RCT(14005)*V(3546)*V(5250) - A(14006) = RCT(14006)*V(3546) - A(14007) = RCT(14007)*V(2652)*V(5250) - A(14008) = RCT(14008)*V(2652) - A(14009) = RCT(14009)*V(2998)*V(5250) - A(14010) = RCT(14010)*V(2998) - A(14011) = RCT(14011)*V(1982)*V(5250) - A(14012) = RCT(14012)*V(1982) - A(14013) = RCT(14013)*V(2901)*V(5250) - A(14014) = RCT(14014)*V(2901) - A(14015) = RCT(14015)*V(75)*V(5250) - A(14016) = RCT(14016)*V(1879)*V(5250) - A(14017) = RCT(14017)*V(1879) - A(14018) = RCT(14018)*V(2721)*V(5250) - A(14019) = RCT(14019)*V(2721) - A(14020) = RCT(14020)*V(15)*V(5250) - A(14021) = RCT(14021)*V(2026)*V(5250) - A(14022) = RCT(14022)*V(2026) - A(14023) = RCT(14023)*V(3061)*V(5250) - A(14024) = RCT(14024)*V(3061) - A(14025) = RCT(14025)*V(122)*V(5250) - A(14026) = RCT(14026)*V(4214)*V(5255) - A(14027) = RCT(14027)*V(4214)*V(5255) - A(14028) = RCT(14028)*V(4214)*V(5252) - A(14029) = RCT(14029)*V(4214)*V(5253) - A(14030) = RCT(14030)*V(4214)*V(5256) - A(14031) = RCT(14031)*V(4214) - A(14032) = RCT(14032)*V(2082)*V(5250) - A(14033) = RCT(14033)*V(2082) - A(14034) = RCT(14034)*V(2700)*V(5250) - A(14035) = RCT(14035)*V(2700) - A(14036) = RCT(14036)*V(2899)*V(5250) - A(14037) = RCT(14037)*V(2899) - A(14038) = RCT(14038)*V(3014)*V(5250) - A(14039) = RCT(14039)*V(3014) - A(14040) = RCT(14040)*V(2388)*V(5250) - A(14041) = RCT(14041)*V(2388) - A(14042) = RCT(14042)*V(2833)*V(5250) - A(14043) = RCT(14043)*V(2833) - A(14044) = RCT(14044)*V(2336)*V(5250) - A(14045) = RCT(14045)*V(2336) - A(14046) = RCT(14046)*V(2507)*V(5250) - A(14047) = RCT(14047)*V(2507) - A(14048) = RCT(14048)*V(3257)*V(5250) - A(14049) = RCT(14049)*V(3257) - A(14050) = RCT(14050)*V(1392)*V(5250) - A(14051) = RCT(14051)*V(1392) - A(14052) = RCT(14052)*V(3071) - A(14053) = RCT(14053)*V(1639)*V(5250) - A(14054) = RCT(14054)*V(1639) - A(14055) = RCT(14055)*V(4462)*V(5256) - A(14056) = RCT(14056)*V(4462)*V(5250) - A(14057) = RCT(14057)*V(4462) - A(14058) = RCT(14058)*V(4462) - A(14059) = RCT(14059)*V(2348)*V(5250) - A(14060) = RCT(14060)*V(2348) - A(14061) = RCT(14061)*V(795) - A(14062) = RCT(14062)*V(2217)*V(5250) - A(14063) = RCT(14063)*V(2217) - A(14064) = RCT(14064)*V(617) - A(14065) = RCT(14065)*V(4902)*V(5256) - A(14066) = RCT(14066)*V(4902)*V(5250) - A(14067) = RCT(14067)*V(4902) - A(14068) = RCT(14068)*V(1932)*V(5250) - A(14069) = RCT(14069)*V(1932) - A(14070) = RCT(14070)*V(714) - A(14071) = RCT(14071)*V(583)*V(5250) - A(14072) = RCT(14072)*V(583) - A(14073) = RCT(14073)*V(3694)*V(5255) - A(14074) = RCT(14074)*V(3694)*V(5252) - A(14075) = RCT(14075)*V(3694)*V(5256) - A(14076) = RCT(14076)*V(3694) - A(14077) = RCT(14077)*V(3694) - A(14078) = RCT(14078)*V(4496)*V(5255) - A(14079) = RCT(14079)*V(4496)*V(5255) - A(14080) = RCT(14080)*V(4496)*V(5255) - A(14081) = RCT(14081)*V(4496)*V(5252) - A(14082) = RCT(14082)*V(4496)*V(5253) - A(14083) = RCT(14083)*V(4496)*V(5256) - A(14084) = RCT(14084)*V(4496) - A(14085) = RCT(14085)*V(4496) - A(14086) = RCT(14086)*V(4295)*V(5255) - A(14087) = RCT(14087)*V(4295)*V(5252) - A(14088) = RCT(14088)*V(4295)*V(5256) - A(14089) = RCT(14089)*V(4295) - A(14090) = RCT(14090)*V(1985)*V(5250) - A(14091) = RCT(14091)*V(1985) - A(14092) = RCT(14092)*V(775) - A(14093) = RCT(14093)*V(1414)*V(5250) - A(14094) = RCT(14094)*V(1414) - A(14095) = RCT(14095)*V(2332)*V(5250) - A(14096) = RCT(14096)*V(2332) - A(14097) = RCT(14097)*V(2953) - A(14098) = RCT(14098)*V(633)*V(5250) - A(14099) = RCT(14099)*V(633) - A(14100) = RCT(14100)*V(2404)*V(5250) - A(14101) = RCT(14101)*V(2404) - A(14102) = RCT(14102)*V(581) - A(14103) = RCT(14103)*V(4867)*V(5255) - A(14104) = RCT(14104)*V(4867)*V(5255) - A(14105) = RCT(14105)*V(4867)*V(5255) - A(14106) = RCT(14106)*V(4867)*V(5252) - A(14107) = RCT(14107)*V(4867)*V(5253) - A(14108) = RCT(14108)*V(4867)*V(5256) - A(14109) = RCT(14109)*V(4867) - A(14110) = RCT(14110)*V(4867) - A(14111) = RCT(14111)*V(1094)*V(5250) - A(14112) = RCT(14112)*V(1094) - A(14113) = RCT(14113)*V(1732) - A(14114) = RCT(14114)*V(3309)*V(5250) - A(14115) = RCT(14115)*V(3309) - A(14116) = RCT(14116)*V(3309) - A(14117) = RCT(14117)*V(789)*V(5250) - A(14118) = RCT(14118)*V(789) - A(14119) = RCT(14119)*V(1189)*V(5250) - A(14120) = RCT(14120)*V(1189) - A(14121) = RCT(14121)*V(849)*V(5250) - A(14122) = RCT(14122)*V(849) - A(14123) = RCT(14123)*V(4131)*V(5255) - A(14124) = RCT(14124)*V(4131)*V(5252) - A(14125) = RCT(14125)*V(4131)*V(5256) - A(14126) = RCT(14126)*V(4131) - A(14127) = RCT(14127)*V(4131) - A(14128) = RCT(14128)*V(4131) - A(14129) = RCT(14129)*V(2564)*V(5250) - A(14130) = RCT(14130)*V(2564) - A(14131) = RCT(14131)*V(1312)*V(5250) - A(14132) = RCT(14132)*V(1312) - A(14133) = RCT(14133)*V(3913) - A(14134) = RCT(14134)*V(3913) - A(14135) = RCT(14135)*V(696)*V(5250) - A(14136) = RCT(14136)*V(696) - A(14137) = RCT(14137)*V(1163)*V(5250) - A(14138) = RCT(14138)*V(1163) - A(14139) = RCT(14139)*V(1402)*V(5250) - A(14140) = RCT(14140)*V(1402) - A(14141) = RCT(14141)*V(3715)*V(5255) - A(14142) = RCT(14142)*V(3715)*V(5252) - A(14143) = RCT(14143)*V(3715)*V(5252) - A(14144) = RCT(14144)*V(3715)*V(5256) - A(14145) = RCT(14145)*V(3715) - A(14146) = RCT(14146)*V(3715) - A(14147) = RCT(14147)*V(3715) - A(14148) = RCT(14148)*V(2984)*V(5250) - A(14149) = RCT(14149)*V(2984) - A(14150) = RCT(14150)*V(1139)*V(5250) - A(14151) = RCT(14151)*V(1139) - A(14152) = RCT(14152)*V(1579) - A(14153) = RCT(14153)*V(3557)*V(5250) - A(14154) = RCT(14154)*V(3557) - A(14155) = RCT(14155)*V(657)*V(5250) - A(14156) = RCT(14156)*V(657) - A(14157) = RCT(14157)*V(3750)*V(5255) - A(14158) = RCT(14158)*V(3750)*V(5252) - A(14159) = RCT(14159)*V(3750)*V(5252) - A(14160) = RCT(14160)*V(3750)*V(5256) - A(14161) = RCT(14161)*V(3750) - A(14162) = RCT(14162)*V(3750) - A(14163) = RCT(14163)*V(3750) - A(14164) = RCT(14164)*V(823)*V(5250) - A(14165) = RCT(14165)*V(823) - A(14166) = RCT(14166)*V(1348)*V(5250) - A(14167) = RCT(14167)*V(1348) - A(14168) = RCT(14168)*V(2523)*V(5250) - A(14169) = RCT(14169)*V(2523) - A(14170) = RCT(14170)*V(2018)*V(5250) - A(14171) = RCT(14171)*V(2018) - A(14172) = RCT(14172)*V(2018) - A(14173) = RCT(14173)*V(739) - A(14174) = RCT(14174)*V(1618)*V(5250) - A(14175) = RCT(14175)*V(1618) - A(14176) = RCT(14176)*V(3337)*V(5250) - A(14177) = RCT(14177)*V(3337) - A(14178) = RCT(14178)*V(4644)*V(5255) - A(14179) = RCT(14179)*V(4644)*V(5252) - A(14180) = RCT(14180)*V(4644)*V(5256) - A(14181) = RCT(14181)*V(4644) - A(14182) = RCT(14182)*V(3006)*V(5250) - A(14183) = RCT(14183)*V(3006) - A(14184) = RCT(14184)*V(687) - A(14185) = RCT(14185)*V(1925)*V(5250) - A(14186) = RCT(14186)*V(1925) - A(14187) = RCT(14187)*V(842)*V(5250) - A(14188) = RCT(14188)*V(842) - A(14189) = RCT(14189)*V(2584)*V(5250) - A(14190) = RCT(14190)*V(2584) - A(14191) = RCT(14191)*V(375)*V(5250) - A(14192) = RCT(14192)*V(1008)*V(5250) - A(14193) = RCT(14193)*V(1008) - A(14194) = RCT(14194)*V(2772)*V(5250) - A(14195) = RCT(14195)*V(2772) - A(14196) = RCT(14196)*V(948)*V(5250) - A(14197) = RCT(14197)*V(948) - A(14198) = RCT(14198)*V(1941)*V(5250) - A(14199) = RCT(14199)*V(1941) - A(14200) = RCT(14200)*V(1942) - A(14201) = RCT(14201)*V(268)*V(5250) - A(14202) = RCT(14202)*V(5177)*V(5256) - A(14203) = RCT(14203)*V(5177)*V(5250) - A(14204) = RCT(14204)*V(5177) - A(14205) = RCT(14205)*V(1887)*V(5250) - A(14206) = RCT(14206)*V(1887) - A(14207) = RCT(14207)*V(1887) - A(14208) = RCT(14208)*V(1691) - A(14209) = RCT(14209)*V(1561)*V(5250) - A(14210) = RCT(14210)*V(1561) - A(14211) = RCT(14211)*V(4955)*V(5255) - A(14212) = RCT(14212)*V(4955)*V(5255) - A(14213) = RCT(14213)*V(4955)*V(5255) - A(14214) = RCT(14214)*V(4955)*V(5252) - A(14215) = RCT(14215)*V(4955)*V(5253) - A(14216) = RCT(14216)*V(4955)*V(5256) - A(14217) = RCT(14217)*V(4955) - A(14218) = RCT(14218)*V(4955) - A(14219) = RCT(14219)*V(3895)*V(5255) - A(14220) = RCT(14220)*V(3895)*V(5252) - A(14221) = RCT(14221)*V(3895)*V(5256) - A(14222) = RCT(14222)*V(3895) - A(14223) = RCT(14223)*V(3895) - A(14224) = RCT(14224)*V(112) - A(14225) = RCT(14225)*V(3974)*V(5255) - A(14226) = RCT(14226)*V(3974)*V(5252) - A(14227) = RCT(14227)*V(3974)*V(5252) - A(14228) = RCT(14228)*V(3974)*V(5256) - A(14229) = RCT(14229)*V(3974) - A(14230) = RCT(14230)*V(3974) - A(14231) = RCT(14231)*V(1181)*V(5250) - A(14232) = RCT(14232)*V(1181) - A(14233) = RCT(14233)*V(2890) - A(14234) = RCT(14234)*V(1756)*V(5250) - A(14235) = RCT(14235)*V(1756) - A(14236) = RCT(14236)*V(430)*V(5250) - A(14237) = RCT(14237)*V(4315)*V(5255) - A(14238) = RCT(14238)*V(4315)*V(5252) - A(14239) = RCT(14239)*V(4315)*V(5256) - A(14240) = RCT(14240)*V(4315) - A(14241) = RCT(14241)*V(4315) - A(14242) = RCT(14242)*V(4315) - A(14243) = RCT(14243)*V(3908)*V(5255) - A(14244) = RCT(14244)*V(3908)*V(5252) - A(14245) = RCT(14245)*V(3908)*V(5252) - A(14246) = RCT(14246)*V(3908)*V(5256) - A(14247) = RCT(14247)*V(3908) - A(14248) = RCT(14248)*V(3908) - A(14249) = RCT(14249)*V(3908) - A(14250) = RCT(14250)*V(4681)*V(5255) - A(14251) = RCT(14251)*V(4681)*V(5255) - A(14252) = RCT(14252)*V(4681)*V(5255) - A(14253) = RCT(14253)*V(4681)*V(5252) - A(14254) = RCT(14254)*V(4681)*V(5253) - A(14255) = RCT(14255)*V(4681)*V(5256) - A(14256) = RCT(14256)*V(4681) - A(14257) = RCT(14257)*V(4681) - A(14258) = RCT(14258)*V(4442)*V(5255) - A(14259) = RCT(14259)*V(4442)*V(5252) - A(14260) = RCT(14260)*V(4442)*V(5252) - A(14261) = RCT(14261)*V(4442)*V(5256) - A(14262) = RCT(14262)*V(4442) - A(14263) = RCT(14263)*V(4442) - A(14264) = RCT(14264)*V(4442) - A(14265) = RCT(14265)*V(388)*V(5250) - A(14266) = RCT(14266)*V(1336)*V(5250) - A(14267) = RCT(14267)*V(1336) - A(14268) = RCT(14268)*V(3698)*V(5255) - A(14269) = RCT(14269)*V(3698)*V(5252) - A(14270) = RCT(14270)*V(3698)*V(5252) - A(14271) = RCT(14271)*V(3698)*V(5256) - A(14272) = RCT(14272)*V(3698) - A(14273) = RCT(14273)*V(3698) - A(14274) = RCT(14274)*V(3698) - A(14275) = RCT(14275)*V(3313)*V(5250) - A(14276) = RCT(14276)*V(3313) - A(14277) = RCT(14277)*V(882)*V(5250) - A(14278) = RCT(14278)*V(882) - A(14279) = RCT(14279)*V(2311)*V(5250) - A(14280) = RCT(14280)*V(2311) - A(14281) = RCT(14281)*V(3957) - A(14282) = RCT(14282)*V(3957) - A(14283) = RCT(14283)*V(3374)*V(5250) - A(14284) = RCT(14284)*V(3374) - A(14285) = RCT(14285)*V(699)*V(5250) - A(14286) = RCT(14286)*V(699) - A(14287) = RCT(14287)*V(4319)*V(5255) - A(14288) = RCT(14288)*V(4319)*V(5252) - A(14289) = RCT(14289)*V(4319)*V(5252) - A(14290) = RCT(14290)*V(4319)*V(5256) - A(14291) = RCT(14291)*V(4319) - A(14292) = RCT(14292)*V(4319) - A(14293) = RCT(14293)*V(4672)*V(5255) - A(14294) = RCT(14294)*V(4672)*V(5252) - A(14295) = RCT(14295)*V(4672)*V(5252) - A(14296) = RCT(14296)*V(4672)*V(5256) - A(14297) = RCT(14297)*V(4672) - A(14298) = RCT(14298)*V(4672) - A(14299) = RCT(14299)*V(4672) - A(14300) = RCT(14300)*V(3397)*V(5250) - A(14301) = RCT(14301)*V(3397) - A(14302) = RCT(14302)*V(4130)*V(5255) - A(14303) = RCT(14303)*V(4130)*V(5252) - A(14304) = RCT(14304)*V(4130)*V(5256) - A(14305) = RCT(14305)*V(4130) - A(14306) = RCT(14306)*V(4130) - A(14307) = RCT(14307)*V(4130) - A(14308) = RCT(14308)*V(3373)*V(5250) - A(14309) = RCT(14309)*V(3373) - A(14310) = RCT(14310)*V(4162)*V(5255) - A(14311) = RCT(14311)*V(4162)*V(5252) - A(14312) = RCT(14312)*V(4162)*V(5252) - A(14313) = RCT(14313)*V(4162)*V(5256) - A(14314) = RCT(14314)*V(4162) - A(14315) = RCT(14315)*V(4162) - A(14316) = RCT(14316)*V(4162) - A(14317) = RCT(14317)*V(1413)*V(5250) - A(14318) = RCT(14318)*V(1413) - A(14319) = RCT(14319)*V(1649)*V(5250) - A(14320) = RCT(14320)*V(1649) - A(14321) = RCT(14321)*V(191) - A(14322) = RCT(14322)*V(1648)*V(5250) - A(14323) = RCT(14323)*V(410)*V(5250) - A(14324) = RCT(14324)*V(955)*V(5250) - A(14325) = RCT(14325)*V(955) - A(14326) = RCT(14326)*V(2673)*V(5250) - A(14327) = RCT(14327)*V(2673) - A(14328) = RCT(14328)*V(1986) - A(14329) = RCT(14329)*V(441)*V(5250) - A(14330) = RCT(14330)*V(5245)*V(5255) - A(14331) = RCT(14331)*V(5245)*V(5255) - A(14332) = RCT(14332)*V(5245)*V(5255) - A(14333) = RCT(14333)*V(5245)*V(5252) - A(14334) = RCT(14334)*V(5245)*V(5253) - A(14335) = RCT(14335)*V(5245)*V(5256) - A(14336) = RCT(14336)*V(5245) - A(14337) = RCT(14337)*V(5245) - A(14338) = RCT(14338)*V(3431)*V(5250) - A(14339) = RCT(14339)*V(3431) - A(14340) = RCT(14340)*V(4147)*V(5255) - A(14341) = RCT(14341)*V(4147)*V(5252) - A(14342) = RCT(14342)*V(4147)*V(5256) - A(14343) = RCT(14343)*V(4147) - A(14344) = RCT(14344)*V(4147) - A(14345) = RCT(14345)*V(4147) - A(14346) = RCT(14346)*V(2965)*V(5250) - A(14347) = RCT(14347)*V(3902)*V(5255) - A(14348) = RCT(14348)*V(3902)*V(5252) - A(14349) = RCT(14349)*V(3902)*V(5252) - A(14350) = RCT(14350)*V(3902)*V(5256) - A(14351) = RCT(14351)*V(3902) - A(14352) = RCT(14352)*V(3902) - A(14353) = RCT(14353)*V(3902) - A(14354) = RCT(14354)*V(3612)*V(5250) - A(14355) = RCT(14355)*V(3612) - A(14356) = RCT(14356)*V(2251) - A(14357) = RCT(14357)*V(2251)*V(5250) - A(14358) = RCT(14358)*V(2800) - A(14359) = RCT(14359)*V(2800)*V(5250) - A(14360) = RCT(14360)*V(2556) - A(14361) = RCT(14361)*V(2556) - A(14362) = RCT(14362)*V(2556)*V(5250) - A(14363) = RCT(14363)*V(2279) - A(14364) = RCT(14364)*V(4423)*V(5255) - A(14365) = RCT(14365)*V(4423)*V(5252) - A(14366) = RCT(14366)*V(4423)*V(5256) - A(14367) = RCT(14367)*V(4423) - A(14368) = RCT(14368)*V(4423) - A(14369) = RCT(14369)*V(4482)*V(5255) - A(14370) = RCT(14370)*V(4482)*V(5252) - A(14371) = RCT(14371)*V(4482)*V(5256) - A(14372) = RCT(14372)*V(4482) - A(14373) = RCT(14373)*V(4482) - A(14374) = RCT(14374)*V(4426)*V(5255) - A(14375) = RCT(14375)*V(4426)*V(5252) - A(14376) = RCT(14376)*V(4426)*V(5256) - A(14377) = RCT(14377)*V(4426) - A(14378) = RCT(14378)*V(4426) - A(14379) = RCT(14379)*V(2159)*V(5250) - A(14380) = RCT(14380)*V(2159) - A(14381) = RCT(14381)*V(2608)*V(5250) - A(14382) = RCT(14382)*V(2608) - A(14383) = RCT(14383)*V(4759)*V(5255) - A(14384) = RCT(14384)*V(4759)*V(5255) - A(14385) = RCT(14385)*V(4759)*V(5252) - A(14386) = RCT(14386)*V(4759)*V(5253) - A(14387) = RCT(14387)*V(4759)*V(5256) - A(14388) = RCT(14388)*V(4759) - A(14389) = RCT(14389)*V(4875)*V(5255) - A(14390) = RCT(14390)*V(4875)*V(5252) - A(14391) = RCT(14391)*V(4875)*V(5256) - A(14392) = RCT(14392)*V(4875) - A(14393) = RCT(14393)*V(3719)*V(5255) - A(14394) = RCT(14394)*V(3719)*V(5252) - A(14395) = RCT(14395)*V(3719)*V(5256) - A(14396) = RCT(14396)*V(3719) - A(14397) = RCT(14397)*V(935)*V(5250) - A(14398) = RCT(14398)*V(935) - A(14399) = RCT(14399)*V(169) - A(14400) = RCT(14400)*V(40)*V(5250) - A(14401) = RCT(14401)*V(1209)*V(5250) - A(14402) = RCT(14402)*V(1209) - A(14403) = RCT(14403)*V(351)*V(5250) - A(14404) = RCT(14404)*V(3327)*V(5250) - A(14405) = RCT(14405)*V(3327) - A(14406) = RCT(14406)*V(1761)*V(5250) - A(14407) = RCT(14407)*V(1761) - A(14408) = RCT(14408)*V(25) - A(14409) = RCT(14409)*V(3846)*V(5255) - A(14410) = RCT(14410)*V(3846)*V(5252) - A(14411) = RCT(14411)*V(3846)*V(5256) - A(14412) = RCT(14412)*V(3846) - A(14413) = RCT(14413)*V(906)*V(5250) - A(14414) = RCT(14414)*V(906) - A(14415) = RCT(14415)*V(1541)*V(5250) - A(14416) = RCT(14416)*V(1541) - A(14417) = RCT(14417)*V(2660)*V(5250) - A(14418) = RCT(14418)*V(2660) - A(14419) = RCT(14419)*V(4409)*V(5255) - A(14420) = RCT(14420)*V(4409)*V(5255) - A(14421) = RCT(14421)*V(4409)*V(5252) - A(14422) = RCT(14422)*V(4409)*V(5253) - A(14423) = RCT(14423)*V(4409)*V(5256) - A(14424) = RCT(14424)*V(4409) - A(14425) = RCT(14425)*V(4447)*V(5255) - A(14426) = RCT(14426)*V(4447)*V(5252) - A(14427) = RCT(14427)*V(4447)*V(5256) - A(14428) = RCT(14428)*V(4447) - A(14429) = RCT(14429)*V(1958)*V(5250) - A(14430) = RCT(14430)*V(1958) - A(14431) = RCT(14431)*V(774) - A(14432) = RCT(14432)*V(3365)*V(5250) - A(14433) = RCT(14433)*V(3365) - A(14434) = RCT(14434)*V(279)*V(5250) - A(14435) = RCT(14435)*V(3248)*V(5256) - A(14436) = RCT(14436)*V(3248)*V(5250) - A(14437) = RCT(14437)*V(3248) - A(14438) = RCT(14438)*V(1264)*V(5250) - A(14439) = RCT(14439)*V(1264) - A(14440) = RCT(14440)*V(2032)*V(5250) - A(14441) = RCT(14441)*V(2032) - A(14442) = RCT(14442)*V(2033) - A(14443) = RCT(14443)*V(5072)*V(5256) - A(14444) = RCT(14444)*V(5072)*V(5256) - A(14445) = RCT(14445)*V(5072)*V(5250) - A(14446) = RCT(14446)*V(5072)*V(5250) - A(14447) = RCT(14447)*V(5072) - A(14448) = RCT(14448)*V(5072) - A(14449) = RCT(14449)*V(772)*V(5250) - A(14450) = RCT(14450)*V(772) - A(14451) = RCT(14451)*V(1528)*V(5250) - A(14452) = RCT(14452)*V(1528) - A(14453) = RCT(14453)*V(1811)*V(5250) - A(14454) = RCT(14454)*V(1811) - A(14455) = RCT(14455)*V(1812) - A(14456) = RCT(14456)*V(527)*V(5250) - A(14457) = RCT(14457)*V(527) - A(14458) = RCT(14458)*V(2445)*V(5250) - A(14459) = RCT(14459)*V(2445) - A(14460) = RCT(14460)*V(731) - A(14461) = RCT(14461)*V(4486)*V(5255) - A(14462) = RCT(14462)*V(4486)*V(5252) - A(14463) = RCT(14463)*V(4486)*V(5256) - A(14464) = RCT(14464)*V(4486) - A(14465) = RCT(14465)*V(4636)*V(5255) - A(14466) = RCT(14466)*V(4636)*V(5255) - A(14467) = RCT(14467)*V(4636)*V(5255) - A(14468) = RCT(14468)*V(4636)*V(5252) - A(14469) = RCT(14469)*V(4636)*V(5253) - A(14470) = RCT(14470)*V(4636)*V(5256) - A(14471) = RCT(14471)*V(4636) - A(14472) = RCT(14472)*V(4636) - A(14473) = RCT(14473)*V(5113)*V(5250) - A(14474) = RCT(14474)*V(5113) - A(14475) = RCT(14475)*V(5113) - A(14476) = RCT(14476)*V(294)*V(5250) - A(14477) = RCT(14477)*V(916)*V(5250) - A(14478) = RCT(14478)*V(916) - A(14479) = RCT(14479)*V(3010)*V(5250) - A(14480) = RCT(14480)*V(3010) - A(14481) = RCT(14481)*V(971)*V(5250) - A(14482) = RCT(14482)*V(971) - A(14483) = RCT(14483)*V(2916) - A(14484) = RCT(14484)*V(543)*V(5250) - A(14485) = RCT(14485)*V(4625)*V(5255) - A(14486) = RCT(14486)*V(4625)*V(5252) - A(14487) = RCT(14487)*V(4625)*V(5256) - A(14488) = RCT(14488)*V(4625) - A(14489) = RCT(14489)*V(4625) - A(14490) = RCT(14490)*V(1381)*V(5250) - A(14491) = RCT(14491)*V(1381) - A(14492) = RCT(14492)*V(1766)*V(5250) - A(14493) = RCT(14493)*V(2591) - A(14494) = RCT(14494)*V(650)*V(5250) - A(14495) = RCT(14495)*V(5187)*V(5256) - A(14496) = RCT(14496)*V(5187)*V(5256) - A(14497) = RCT(14497)*V(5187)*V(5258) - A(14498) = RCT(14498)*V(5187)*V(5258) - A(14499) = RCT(14499)*V(5187)*V(5250) - A(14500) = RCT(14500)*V(5187)*V(5250) - A(14501) = RCT(14501)*V(5027)*V(5255) - A(14502) = RCT(14502)*V(5027)*V(5255) - A(14503) = RCT(14503)*V(5027)*V(5255) - A(14504) = RCT(14504)*V(5027)*V(5252) - A(14505) = RCT(14505)*V(5027)*V(5253) - A(14506) = RCT(14506)*V(5027)*V(5256) - A(14507) = RCT(14507)*V(5027) - A(14508) = RCT(14508)*V(5027) - A(14509) = RCT(14509)*V(2312)*V(5250) - A(14510) = RCT(14510)*V(2312) - A(14511) = RCT(14511)*V(625) - A(14512) = RCT(14512)*V(1493)*V(5250) - A(14513) = RCT(14513)*V(1493) - A(14514) = RCT(14514)*V(247)*V(5250) - A(14515) = RCT(14515)*V(1463)*V(5250) - A(14516) = RCT(14516)*V(1463) - A(14517) = RCT(14517)*V(2224)*V(5250) - A(14518) = RCT(14518)*V(2224) - A(14519) = RCT(14519)*V(203) - A(14520) = RCT(14520)*V(481)*V(5250) - A(14521) = RCT(14521)*V(1250)*V(5250) - A(14522) = RCT(14522)*V(1250) - A(14523) = RCT(14523)*V(3743)*V(5255) - A(14524) = RCT(14524)*V(3743)*V(5252) - A(14525) = RCT(14525)*V(3743)*V(5252) - A(14526) = RCT(14526)*V(3743)*V(5256) - A(14527) = RCT(14527)*V(3743) - A(14528) = RCT(14528)*V(3743) - A(14529) = RCT(14529)*V(3743) - A(14530) = RCT(14530)*V(360)*V(5250) - A(14531) = RCT(14531)*V(3323)*V(5250) - A(14532) = RCT(14532)*V(3323) - A(14533) = RCT(14533)*V(1546)*V(5250) - A(14534) = RCT(14534)*V(1546) - A(14535) = RCT(14535)*V(2136)*V(5250) - A(14536) = RCT(14536)*V(2136) - A(14537) = RCT(14537)*V(3613) - A(14538) = RCT(14538)*V(3613) - A(14539) = RCT(14539)*V(1660)*V(5250) - A(14540) = RCT(14540)*V(382)*V(5250) - A(14541) = RCT(14541)*V(872)*V(5250) - A(14542) = RCT(14542)*V(872) - A(14543) = RCT(14543)*V(1972)*V(5250) - A(14544) = RCT(14544)*V(1972) - A(14545) = RCT(14545)*V(178) - A(14546) = RCT(14546)*V(2773)*V(5250) - A(14547) = RCT(14547)*V(2773) - A(14548) = RCT(14548)*V(313)*V(5250) - A(14549) = RCT(14549)*V(5130)*V(5255) - A(14550) = RCT(14550)*V(5130)*V(5252) - A(14551) = RCT(14551)*V(5130)*V(5252) - A(14552) = RCT(14552)*V(5130)*V(5256) - A(14553) = RCT(14553)*V(5130) - A(14554) = RCT(14554)*V(5130) - A(14555) = RCT(14555)*V(4572)*V(5255) - A(14556) = RCT(14556)*V(4572)*V(5252) - A(14557) = RCT(14557)*V(4572)*V(5256) - A(14558) = RCT(14558)*V(4572) - A(14559) = RCT(14559)*V(4572) - A(14560) = RCT(14560)*V(4572) - A(14561) = RCT(14561)*V(4839)*V(5255) - A(14562) = RCT(14562)*V(4839)*V(5255) - A(14563) = RCT(14563)*V(4839)*V(5255) - A(14564) = RCT(14564)*V(4839)*V(5252) - A(14565) = RCT(14565)*V(4839)*V(5253) - A(14566) = RCT(14566)*V(4839)*V(5256) - A(14567) = RCT(14567)*V(4839) - A(14568) = RCT(14568)*V(4839) - A(14569) = RCT(14569)*V(1155)*V(5250) - A(14570) = RCT(14570)*V(1155) - A(14571) = RCT(14571)*V(2327)*V(5250) - A(14572) = RCT(14572)*V(2327) - A(14573) = RCT(14573)*V(297) - A(14574) = RCT(14574)*V(134)*V(5250) - A(14575) = RCT(14575)*V(1162)*V(5250) - A(14576) = RCT(14576)*V(1162) - A(14577) = RCT(14577)*V(2164)*V(5250) - A(14578) = RCT(14578)*V(2164) - A(14579) = RCT(14579)*V(3737) - A(14580) = RCT(14580)*V(3737) - A(14581) = RCT(14581)*V(3736)*V(5250) - A(14582) = RCT(14582)*V(415)*V(5250) - A(14583) = RCT(14583)*V(4812)*V(5255) - A(14584) = RCT(14584)*V(4812)*V(5255) - A(14585) = RCT(14585)*V(4812)*V(5255) - A(14586) = RCT(14586)*V(4812)*V(5252) - A(14587) = RCT(14587)*V(4812)*V(5253) - A(14588) = RCT(14588)*V(4812)*V(5256) - A(14589) = RCT(14589)*V(4812) - A(14590) = RCT(14590)*V(4812) - A(14591) = RCT(14591)*V(2440)*V(5250) - A(14592) = RCT(14592)*V(2440) - A(14593) = RCT(14593)*V(817) - A(14594) = RCT(14594)*V(406)*V(5250) - A(14595) = RCT(14595)*V(1060)*V(5250) - A(14596) = RCT(14596)*V(1060) - A(14597) = RCT(14597)*V(1813)*V(5250) - A(14598) = RCT(14598)*V(1813) - A(14599) = RCT(14599)*V(1814) - A(14600) = RCT(14600)*V(394)*V(5250) - A(14601) = RCT(14601)*V(4196)*V(5255) - A(14602) = RCT(14602)*V(4196)*V(5252) - A(14603) = RCT(14603)*V(4196)*V(5252) - A(14604) = RCT(14604)*V(4196)*V(5256) - A(14605) = RCT(14605)*V(4196) - A(14606) = RCT(14606)*V(4196) - A(14607) = RCT(14607)*V(4196) - A(14608) = RCT(14608)*V(367)*V(5250) - A(14609) = RCT(14609)*V(1199)*V(5250) - A(14610) = RCT(14610)*V(1199) - A(14611) = RCT(14611)*V(3841)*V(5255) - A(14612) = RCT(14612)*V(3841)*V(5252) - A(14613) = RCT(14613)*V(3841)*V(5252) - A(14614) = RCT(14614)*V(3841)*V(5256) - A(14615) = RCT(14615)*V(3841) - A(14616) = RCT(14616)*V(3841) - A(14617) = RCT(14617)*V(3841) - A(14618) = RCT(14618)*V(2813)*V(5250) - A(14619) = RCT(14619)*V(2813) - A(14620) = RCT(14620)*V(4673)*V(5255) - A(14621) = RCT(14621)*V(4673)*V(5255) - A(14622) = RCT(14622)*V(4673)*V(5255) - A(14623) = RCT(14623)*V(4673)*V(5252) - A(14624) = RCT(14624)*V(4673)*V(5253) - A(14625) = RCT(14625)*V(4673)*V(5256) - A(14626) = RCT(14626)*V(4673) - A(14627) = RCT(14627)*V(4673) - A(14628) = RCT(14628)*V(1871)*V(5250) - A(14629) = RCT(14629)*V(1871) - A(14630) = RCT(14630)*V(810) - A(14631) = RCT(14631)*V(411)*V(5250) - A(14632) = RCT(14632)*V(4137)*V(5255) - A(14633) = RCT(14633)*V(4137)*V(5252) - A(14634) = RCT(14634)*V(4137)*V(5252) - A(14635) = RCT(14635)*V(4137)*V(5256) - A(14636) = RCT(14636)*V(4137) - A(14637) = RCT(14637)*V(4137) - A(14638) = RCT(14638)*V(1295)*V(5250) - A(14639) = RCT(14639)*V(1295) - A(14640) = RCT(14640)*V(1930)*V(5250) - A(14641) = RCT(14641)*V(1930) - A(14642) = RCT(14642)*V(1931) - A(14643) = RCT(14643)*V(218)*V(5250) - A(14644) = RCT(14644)*V(973)*V(5250) - A(14645) = RCT(14645)*V(973) - A(14646) = RCT(14646)*V(163) - A(14647) = RCT(14647)*V(101)*V(5250) - A(14648) = RCT(14648)*V(1357)*V(5250) - A(14649) = RCT(14649)*V(1357) - A(14650) = RCT(14650)*V(164) - A(14651) = RCT(14651)*V(98)*V(5250) - A(14652) = RCT(14652)*V(1464)*V(5250) - A(14653) = RCT(14653)*V(1464) - A(14654) = RCT(14654)*V(152) - A(14655) = RCT(14655)*V(26)*V(5250) - A(14656) = RCT(14656)*V(1085)*V(5250) - A(14657) = RCT(14657)*V(1085) - A(14658) = RCT(14658)*V(2510)*V(5250) - A(14659) = RCT(14659)*V(2510) - A(14660) = RCT(14660)*V(1784)*V(5250) - A(14661) = RCT(14661)*V(1784) - A(14662) = RCT(14662)*V(655) - A(14663) = RCT(14663)*V(989)*V(5250) - A(14664) = RCT(14664)*V(989) - A(14665) = RCT(14665)*V(76) - A(14666) = RCT(14666)*V(4157)*V(5255) - A(14667) = RCT(14667)*V(4157)*V(5252) - A(14668) = RCT(14668)*V(4157)*V(5252) - A(14669) = RCT(14669)*V(4157)*V(5256) - A(14670) = RCT(14670)*V(4157) - A(14671) = RCT(14671)*V(4157) - A(14672) = RCT(14672)*V(4497)*V(5255) - A(14673) = RCT(14673)*V(4497)*V(5252) - A(14674) = RCT(14674)*V(4497)*V(5256) - A(14675) = RCT(14675)*V(4497) - A(14676) = RCT(14676)*V(863)*V(5250) - A(14677) = RCT(14677)*V(863) - A(14678) = RCT(14678)*V(2694) - A(14679) = RCT(14679)*V(1146)*V(5250) - A(14680) = RCT(14680)*V(1146) - A(14681) = RCT(14681)*V(2573)*V(5250) - A(14682) = RCT(14682)*V(2573) - A(14683) = RCT(14683)*V(1522)*V(5250) - A(14684) = RCT(14684)*V(1522) - A(14685) = RCT(14685)*V(2667) - A(14686) = RCT(14686)*V(4854)*V(5255) - A(14687) = RCT(14687)*V(4854)*V(5255) - A(14688) = RCT(14688)*V(4854)*V(5255) - A(14689) = RCT(14689)*V(4854)*V(5252) - A(14690) = RCT(14690)*V(4854)*V(5253) - A(14691) = RCT(14691)*V(4854)*V(5256) - A(14692) = RCT(14692)*V(4854) - A(14693) = RCT(14693)*V(4854) - A(14694) = RCT(14694)*V(4653)*V(5255) - A(14695) = RCT(14695)*V(4653)*V(5255) - A(14696) = RCT(14696)*V(4653)*V(5255) - A(14697) = RCT(14697)*V(4653)*V(5252) - A(14698) = RCT(14698)*V(4653)*V(5253) - A(14699) = RCT(14699)*V(4653)*V(5256) - A(14700) = RCT(14700)*V(4653) - A(14701) = RCT(14701)*V(4653) - A(14702) = RCT(14702)*V(4818)*V(5255) - A(14703) = RCT(14703)*V(4818)*V(5255) - A(14704) = RCT(14704)*V(4818)*V(5255) - A(14705) = RCT(14705)*V(4818)*V(5252) - A(14706) = RCT(14706)*V(4818)*V(5253) - A(14707) = RCT(14707)*V(4818)*V(5256) - A(14708) = RCT(14708)*V(4818) - A(14709) = RCT(14709)*V(4818) - A(14710) = RCT(14710)*V(4459)*V(5255) - A(14711) = RCT(14711)*V(4459)*V(5252) - A(14712) = RCT(14712)*V(4459)*V(5256) - A(14713) = RCT(14713)*V(4459) - A(14714) = RCT(14714)*V(4459) - A(14715) = RCT(14715)*V(4459) - A(14716) = RCT(14716)*V(4960)*V(5255) - A(14717) = RCT(14717)*V(4960)*V(5252) - A(14718) = RCT(14718)*V(4960)*V(5256) - A(14719) = RCT(14719)*V(4960) - A(14720) = RCT(14720)*V(4960) - A(14721) = RCT(14721)*V(1044)*V(5250) - A(14722) = RCT(14722)*V(1044) - A(14723) = RCT(14723)*V(3067) - A(14724) = RCT(14724)*V(506)*V(5250) - A(14725) = RCT(14725)*V(936)*V(5250) - A(14726) = RCT(14726)*V(936) - A(14727) = RCT(14727)*V(2777)*V(5250) - A(14728) = RCT(14728)*V(2777) - A(14729) = RCT(14729)*V(3495)*V(5250) - A(14730) = RCT(14730)*V(3495) - A(14731) = RCT(14731)*V(3495) - A(14732) = RCT(14732)*V(3495) - A(14733) = RCT(14733)*V(3611) - A(14734) = RCT(14734)*V(3611) - A(14735) = RCT(14735)*V(2475)*V(5250) - A(14736) = RCT(14736)*V(2475) - A(14737) = RCT(14737)*V(2475) - A(14738) = RCT(14738)*V(4117)*V(5255) - A(14739) = RCT(14739)*V(4117)*V(5252) - A(14740) = RCT(14740)*V(4117)*V(5256) - A(14741) = RCT(14741)*V(4117) - A(14742) = RCT(14742)*V(4117) - A(14743) = RCT(14743)*V(3849)*V(5256) - A(14744) = RCT(14744)*V(3849)*V(5250) - A(14745) = RCT(14745)*V(61) - A(14746) = RCT(14746)*V(3848)*V(5255) - A(14747) = RCT(14747)*V(3848)*V(5252) - A(14748) = RCT(14748)*V(3848)*V(5252) - A(14749) = RCT(14749)*V(3848)*V(5256) - A(14750) = RCT(14750)*V(3848) - A(14751) = RCT(14751)*V(3848) - A(14752) = RCT(14752)*V(252)*V(5250) - A(14753) = RCT(14753)*V(1107)*V(5250) - A(14754) = RCT(14754)*V(1107) - A(14755) = RCT(14755)*V(4342)*V(5255) - A(14756) = RCT(14756)*V(4342)*V(5252) - A(14757) = RCT(14757)*V(4342)*V(5252) - A(14758) = RCT(14758)*V(4342)*V(5256) - A(14759) = RCT(14759)*V(4342) - A(14760) = RCT(14760)*V(4342) - A(14761) = RCT(14761)*V(4342) - A(14762) = RCT(14762)*V(2637)*V(5250) - A(14763) = RCT(14763)*V(2637) - A(14764) = RCT(14764)*V(4120)*V(5255) - A(14765) = RCT(14765)*V(4120)*V(5252) - A(14766) = RCT(14766)*V(4120)*V(5256) - A(14767) = RCT(14767)*V(4120) - A(14768) = RCT(14768)*V(4120) - A(14769) = RCT(14769)*V(4120) - A(14770) = RCT(14770)*V(1339)*V(5250) - A(14771) = RCT(14771)*V(1339) - A(14772) = RCT(14772)*V(1883)*V(5250) - A(14773) = RCT(14773)*V(1883) - A(14774) = RCT(14774)*V(157) - A(14775) = RCT(14775)*V(2979)*V(5250) - A(14776) = RCT(14776)*V(2979) - A(14777) = RCT(14777)*V(476)*V(5250) - A(14778) = RCT(14778)*V(4216)*V(5255) - A(14779) = RCT(14779)*V(4216)*V(5252) - A(14780) = RCT(14780)*V(4216)*V(5252) - A(14781) = RCT(14781)*V(4216)*V(5256) - A(14782) = RCT(14782)*V(4216) - A(14783) = RCT(14783)*V(4216) - A(14784) = RCT(14784)*V(1411)*V(5250) - A(14785) = RCT(14785)*V(1411) - A(14786) = RCT(14786)*V(2802)*V(5250) - A(14787) = RCT(14787)*V(2802) - A(14788) = RCT(14788)*V(1818) - A(14789) = RCT(14789)*V(547)*V(5250) - A(14790) = RCT(14790)*V(547) - A(14791) = RCT(14791)*V(1485)*V(5250) - A(14792) = RCT(14792)*V(1485) - A(14793) = RCT(14793)*V(2749) - A(14794) = RCT(14794)*V(2809)*V(5250) - A(14795) = RCT(14795)*V(2809) - A(14796) = RCT(14796)*V(1875)*V(5250) - A(14797) = RCT(14797)*V(1875) - A(14798) = RCT(14798)*V(470)*V(5250) - A(14799) = RCT(14799)*V(1507)*V(5250) - A(14800) = RCT(14800)*V(1507) - A(14801) = RCT(14801)*V(4234)*V(5255) - A(14802) = RCT(14802)*V(4234)*V(5252) - A(14803) = RCT(14803)*V(4234)*V(5256) - A(14804) = RCT(14804)*V(4234) - A(14805) = RCT(14805)*V(4234) - A(14806) = RCT(14806)*V(3029)*V(5250) - A(14807) = RCT(14807)*V(3029) - A(14808) = RCT(14808)*V(2719)*V(5250) - A(14809) = RCT(14809)*V(3855)*V(5255) - A(14810) = RCT(14810)*V(3855)*V(5252) - A(14811) = RCT(14811)*V(3855)*V(5252) - A(14812) = RCT(14812)*V(3855)*V(5256) - A(14813) = RCT(14813)*V(3855) - A(14814) = RCT(14814)*V(3855) - A(14815) = RCT(14815)*V(3855) - A(14816) = RCT(14816)*V(2895)*V(5250) - A(14817) = RCT(14817)*V(2895) - A(14818) = RCT(14818)*V(1238)*V(5250) - A(14819) = RCT(14819)*V(2139)*V(5250) - A(14820) = RCT(14820)*V(2139) - A(14821) = RCT(14821)*V(2941)*V(5250) - A(14822) = RCT(14822)*V(2941) - A(14823) = RCT(14823)*V(1519)*V(5250) - A(14824) = RCT(14824)*V(1519) - A(14825) = RCT(14825)*V(2275)*V(5250) - A(14826) = RCT(14826)*V(2275) - A(14827) = RCT(14827)*V(3424) - A(14828) = RCT(14828)*V(3424) - A(14829) = RCT(14829)*V(2938)*V(5250) - A(14830) = RCT(14830)*V(320)*V(5250) - A(14831) = RCT(14831)*V(1328)*V(5250) - A(14832) = RCT(14832)*V(1328) - A(14833) = RCT(14833)*V(2444)*V(5250) - A(14834) = RCT(14834)*V(2444) - A(14835) = RCT(14835)*V(173) - A(14836) = RCT(14836)*V(4978)*V(5256) - A(14837) = RCT(14837)*V(4978)*V(5250) - A(14838) = RCT(14838)*V(4978) - A(14839) = RCT(14839)*V(334)*V(5250) - A(14840) = RCT(14840)*V(856)*V(5250) - A(14841) = RCT(14841)*V(1920)*V(5250) - A(14842) = RCT(14842)*V(1920) - A(14843) = RCT(14843)*V(2571)*V(5250) - A(14844) = RCT(14844)*V(2571) - A(14845) = RCT(14845)*V(2214)*V(5250) - A(14846) = RCT(14846)*V(2214) - A(14847) = RCT(14847)*V(2942)*V(5250) - A(14848) = RCT(14848)*V(2942) - A(14849) = RCT(14849)*V(1724) - A(14850) = RCT(14850)*V(754)*V(5250) - A(14851) = RCT(14851)*V(4220)*V(5255) - A(14852) = RCT(14852)*V(4220)*V(5255) - A(14853) = RCT(14853)*V(4220)*V(5252) - A(14854) = RCT(14854)*V(4220)*V(5253) - A(14855) = RCT(14855)*V(4220)*V(5256) - A(14856) = RCT(14856)*V(4220) - A(14857) = RCT(14857)*V(1263)*V(5250) - A(14858) = RCT(14858)*V(1263) - A(14859) = RCT(14859)*V(3447)*V(5250) - A(14860) = RCT(14860)*V(3447) - A(14861) = RCT(14861)*V(1989) - A(14862) = RCT(14862)*V(520)*V(5250) - A(14863) = RCT(14863)*V(520) - A(14864) = RCT(14864)*V(2111)*V(5250) - A(14865) = RCT(14865)*V(2111) - A(14866) = RCT(14866)*V(644) - A(14867) = RCT(14867)*V(4362)*V(5256) - A(14868) = RCT(14868)*V(4362)*V(5250) - A(14869) = RCT(14869)*V(4362) - A(14870) = RCT(14870)*V(4362) - A(14871) = RCT(14871)*V(3355)*V(5250) - A(14872) = RCT(14872)*V(3355) - A(14873) = RCT(14873)*V(1344)*V(5250) - A(14874) = RCT(14874)*V(1344) - A(14875) = RCT(14875)*V(998)*V(5250) - A(14876) = RCT(14876)*V(998) - A(14877) = RCT(14877)*V(4346)*V(5255) - A(14878) = RCT(14878)*V(4346)*V(5252) - A(14879) = RCT(14879)*V(4346)*V(5256) - A(14880) = RCT(14880)*V(4346) - A(14881) = RCT(14881)*V(4346) - A(14882) = RCT(14882)*V(4346) - A(14883) = RCT(14883)*V(2756)*V(5250) - A(14884) = RCT(14884)*V(2756) - A(14885) = RCT(14885)*V(827)*V(5250) - A(14886) = RCT(14886)*V(827) - A(14887) = RCT(14887)*V(1408)*V(5250) - A(14888) = RCT(14888)*V(1408) - A(14889) = RCT(14889)*V(2980)*V(5250) - A(14890) = RCT(14890)*V(2980) - A(14891) = RCT(14891)*V(953)*V(5250) - A(14892) = RCT(14892)*V(953) - A(14893) = RCT(14893)*V(1022)*V(5250) - A(14894) = RCT(14894)*V(1022) - A(14895) = RCT(14895)*V(3293)*V(5250) - A(14896) = RCT(14896)*V(3293) - A(14897) = RCT(14897)*V(1130)*V(5250) - A(14898) = RCT(14898)*V(1130) - A(14899) = RCT(14899)*V(1652) - A(14900) = RCT(14900)*V(3639)*V(5250) - A(14901) = RCT(14901)*V(3639) - A(14902) = RCT(14902)*V(725)*V(5250) - A(14903) = RCT(14903)*V(725) - A(14904) = RCT(14904)*V(1757)*V(5250) - A(14905) = RCT(14905)*V(1757) - A(14906) = RCT(14906)*V(741) - A(14907) = RCT(14907)*V(1527)*V(5250) - A(14908) = RCT(14908)*V(1527) - A(14909) = RCT(14909)*V(2578) - A(14910) = RCT(14910)*V(530)*V(5250) - A(14911) = RCT(14911)*V(5054)*V(5255) - A(14912) = RCT(14912)*V(5054)*V(5255) - A(14913) = RCT(14913)*V(5054)*V(5255) - A(14914) = RCT(14914)*V(5054)*V(5252) - A(14915) = RCT(14915)*V(5054)*V(5253) - A(14916) = RCT(14916)*V(5054)*V(5256) - A(14917) = RCT(14917)*V(5054) - A(14918) = RCT(14918)*V(5054) - A(14919) = RCT(14919)*V(4779)*V(5255) - A(14920) = RCT(14920)*V(4779)*V(5252) - A(14921) = RCT(14921)*V(4779)*V(5256) - A(14922) = RCT(14922)*V(4779) - A(14923) = RCT(14923)*V(4779) - A(14924) = RCT(14924)*V(1046)*V(5250) - A(14925) = RCT(14925)*V(1046) - A(14926) = RCT(14926)*V(1912)*V(5250) - A(14927) = RCT(14927)*V(2931) - A(14928) = RCT(14928)*V(690)*V(5250) - A(14929) = RCT(14929)*V(1439)*V(5250) - A(14930) = RCT(14930)*V(1439) - A(14931) = RCT(14931)*V(1786)*V(5250) - A(14932) = RCT(14932)*V(1786) - A(14933) = RCT(14933)*V(3430) - A(14934) = RCT(14934)*V(3430) - A(14935) = RCT(14935)*V(3642)*V(5250) - A(14936) = RCT(14936)*V(3642) - A(14937) = RCT(14937)*V(390)*V(5250) - A(14938) = RCT(14938)*V(1019)*V(5250) - A(14939) = RCT(14939)*V(1019) - A(14940) = RCT(14940)*V(2894) - A(14941) = RCT(14941)*V(2209)*V(5250) - A(14942) = RCT(14942)*V(2209) - A(14943) = RCT(14943)*V(482)*V(5250) - A(14944) = RCT(14944)*V(4226)*V(5255) - A(14945) = RCT(14945)*V(4226)*V(5252) - A(14946) = RCT(14946)*V(4226)*V(5256) - A(14947) = RCT(14947)*V(4226) - A(14948) = RCT(14948)*V(4226) - A(14949) = RCT(14949)*V(4226) - A(14950) = RCT(14950)*V(826)*V(5250) - A(14951) = RCT(14951)*V(826) - A(14952) = RCT(14952)*V(2257)*V(5250) - A(14953) = RCT(14953)*V(2257) - A(14954) = RCT(14954)*V(290) - A(14955) = RCT(14955)*V(83)*V(5250) - A(14956) = RCT(14956)*V(4136)*V(5255) - A(14957) = RCT(14957)*V(4136)*V(5252) - A(14958) = RCT(14958)*V(4136)*V(5256) - A(14959) = RCT(14959)*V(4136) - A(14960) = RCT(14960)*V(4136) - A(14961) = RCT(14961)*V(4136) - A(14962) = RCT(14962)*V(4115)*V(5255) - A(14963) = RCT(14963)*V(4115)*V(5252) - A(14964) = RCT(14964)*V(4115)*V(5256) - A(14965) = RCT(14965)*V(4115) - A(14966) = RCT(14966)*V(414)*V(5250) - A(14967) = RCT(14967)*V(414) - A(14968) = RCT(14968)*V(760) - A(14969) = RCT(14969)*V(60)*V(5250) - A(14970) = RCT(14970)*V(1077)*V(5250) - A(14971) = RCT(14971)*V(1077) - A(14972) = RCT(14972)*V(2303)*V(5250) - A(14973) = RCT(14973)*V(2303) - A(14974) = RCT(14974)*V(2304) - A(14975) = RCT(14975)*V(357)*V(5250) - A(14976) = RCT(14976)*V(4525)*V(5255) - A(14977) = RCT(14977)*V(4525)*V(5255) - A(14978) = RCT(14978)*V(4525)*V(5252) - A(14979) = RCT(14979)*V(4525)*V(5253) - A(14980) = RCT(14980)*V(4525)*V(5256) - A(14981) = RCT(14981)*V(4525) - A(14982) = RCT(14982)*V(4477)*V(5255) - A(14983) = RCT(14983)*V(4477)*V(5252) - A(14984) = RCT(14984)*V(4477)*V(5256) - A(14985) = RCT(14985)*V(4477) - A(14986) = RCT(14986)*V(4820)*V(5255) - A(14987) = RCT(14987)*V(4820)*V(5252) - A(14988) = RCT(14988)*V(4820)*V(5256) - A(14989) = RCT(14989)*V(4820) - A(14990) = RCT(14990)*V(4820) - A(14991) = RCT(14991)*V(4820) - A(14992) = RCT(14992)*V(2142)*V(5250) - A(14993) = RCT(14993)*V(2142) - A(14994) = RCT(14994)*V(2530)*V(5250) - A(14995) = RCT(14995)*V(2530) - A(14996) = RCT(14996)*V(3874)*V(5255) - A(14997) = RCT(14997)*V(3874)*V(5252) - A(14998) = RCT(14998)*V(3874)*V(5256) - A(14999) = RCT(14999)*V(3874) - A(15000) = RCT(15000)*V(3724)*V(5255) - A(15001) = RCT(15001)*V(3724)*V(5252) - A(15002) = RCT(15002)*V(3724)*V(5256) - A(15003) = RCT(15003)*V(3724) - A(15004) = RCT(15004)*V(4520)*V(5255) - A(15005) = RCT(15005)*V(4520)*V(5255) - A(15006) = RCT(15006)*V(4520)*V(5252) - A(15007) = RCT(15007)*V(4520)*V(5253) - A(15008) = RCT(15008)*V(4520)*V(5256) - A(15009) = RCT(15009)*V(4520) - A(15010) = RCT(15010)*V(4465)*V(5255) - A(15011) = RCT(15011)*V(4465)*V(5252) - A(15012) = RCT(15012)*V(4465)*V(5256) - A(15013) = RCT(15013)*V(4465) - A(15014) = RCT(15014)*V(1538)*V(5250) - A(15015) = RCT(15015)*V(1538) - A(15016) = RCT(15016)*V(3041) - A(15017) = RCT(15017)*V(559)*V(5250) - A(15018) = RCT(15018)*V(559) - A(15019) = RCT(15019)*V(4853)*V(5255) - A(15020) = RCT(15020)*V(4853)*V(5255) - A(15021) = RCT(15021)*V(4853)*V(5255) - A(15022) = RCT(15022)*V(4853)*V(5252) - A(15023) = RCT(15023)*V(4853)*V(5253) - A(15024) = RCT(15024)*V(4853)*V(5256) - A(15025) = RCT(15025)*V(4853) - A(15026) = RCT(15026)*V(4853) - A(15027) = RCT(15027)*V(433)*V(5250) - A(15028) = RCT(15028)*V(1347)*V(5250) - A(15029) = RCT(15029)*V(1347) - A(15030) = RCT(15030)*V(4116)*V(5255) - A(15031) = RCT(15031)*V(4116)*V(5252) - A(15032) = RCT(15032)*V(4116)*V(5256) - A(15033) = RCT(15033)*V(4116) - A(15034) = RCT(15034)*V(4116) - A(15035) = RCT(15035)*V(4116) - A(15036) = RCT(15036)*V(2703)*V(5250) - A(15037) = RCT(15037)*V(2703) - A(15038) = RCT(15038)*V(3480)*V(5250) - A(15039) = RCT(15039)*V(3480) - A(15040) = RCT(15040)*V(3480) - A(15041) = RCT(15041)*V(3480) - A(15042) = RCT(15042)*V(3615) - A(15043) = RCT(15043)*V(3615) - A(15044) = RCT(15044)*V(2483)*V(5250) - A(15045) = RCT(15045)*V(2483) - A(15046) = RCT(15046)*V(2483) - A(15047) = RCT(15047)*V(4343)*V(5255) - A(15048) = RCT(15048)*V(4343)*V(5252) - A(15049) = RCT(15049)*V(4343)*V(5256) - A(15050) = RCT(15050)*V(4343) - A(15051) = RCT(15051)*V(4343) - A(15052) = RCT(15052)*V(1890)*V(5250) - A(15053) = RCT(15053)*V(1890) - A(15054) = RCT(15054)*V(537) - A(15055) = RCT(15055)*V(1257)*V(5250) - A(15056) = RCT(15056)*V(1257) - A(15057) = RCT(15057)*V(368)*V(5250) - A(15058) = RCT(15058)*V(2856)*V(5250) - A(15059) = RCT(15059)*V(3882)*V(5255) - A(15060) = RCT(15060)*V(3882)*V(5252) - A(15061) = RCT(15061)*V(3882)*V(5252) - A(15062) = RCT(15062)*V(3882)*V(5256) - A(15063) = RCT(15063)*V(3882) - A(15064) = RCT(15064)*V(3882) - A(15065) = RCT(15065)*V(3882) - A(15066) = RCT(15066)*V(1793)*V(5250) - A(15067) = RCT(15067)*V(1793) - A(15068) = RCT(15068)*V(802) - A(15069) = RCT(15069)*V(1678)*V(5250) - A(15070) = RCT(15070)*V(1678) - A(15071) = RCT(15071)*V(858)*V(5250) - A(15072) = RCT(15072)*V(858) - A(15073) = RCT(15073)*V(3062) - A(15074) = RCT(15074)*V(1154)*V(5250) - A(15075) = RCT(15075)*V(1154) - A(15076) = RCT(15076)*V(2567)*V(5250) - A(15077) = RCT(15077)*V(2567) - A(15078) = RCT(15078)*V(2153)*V(5250) - A(15079) = RCT(15079)*V(2153)*V(5250) - A(15080) = RCT(15080)*V(2153) - A(15081) = RCT(15081)*V(643) - A(15082) = RCT(15082)*V(2300)*V(5250) - A(15083) = RCT(15083)*V(2300) - A(15084) = RCT(15084)*V(695) - A(15085) = RCT(15085)*V(2680)*V(5250) - A(15086) = RCT(15086)*V(2680) - A(15087) = RCT(15087)*V(500)*V(5250) - A(15088) = RCT(15088)*V(1544) - A(15089) = RCT(15089)*V(1544)*V(5250) - A(15090) = RCT(15090)*V(3410) - A(15091) = RCT(15091)*V(2450)*V(5250) - A(15092) = RCT(15092)*V(2450) - A(15093) = RCT(15093)*V(733) - A(15094) = RCT(15094)*V(1219)*V(5250) - A(15095) = RCT(15095)*V(1219) - A(15096) = RCT(15096)*V(2729)*V(5250) - A(15097) = RCT(15097)*V(2729) - A(15098) = RCT(15098)*V(1116)*V(5250) - A(15099) = RCT(15099)*V(1116) - A(15100) = RCT(15100)*V(2607) - A(15101) = RCT(15101)*V(3960)*V(5256) - A(15102) = RCT(15102)*V(3960)*V(5250) - A(15103) = RCT(15103)*V(3960) - A(15104) = RCT(15104)*V(903)*V(5250) - A(15105) = RCT(15105)*V(903) - A(15106) = RCT(15106)*V(824)*V(5250) - A(15107) = RCT(15107)*V(824) - A(15108) = RCT(15108)*V(2864)*V(5250) - A(15109) = RCT(15109)*V(2864) - A(15110) = RCT(15110)*V(2437)*V(5250) - A(15111) = RCT(15111)*V(2437) - A(15112) = RCT(15112)*V(2437) - A(15113) = RCT(15113)*V(544) - A(15114) = RCT(15114)*V(1926)*V(5250) - A(15115) = RCT(15115)*V(1926) - A(15116) = RCT(15116)*V(1926) - A(15117) = RCT(15117)*V(648) - A(15118) = RCT(15118)*V(567)*V(5250) - A(15119) = RCT(15119)*V(567) - A(15120) = RCT(15120)*V(1505)*V(5250) - A(15121) = RCT(15121)*V(1505) - A(15122) = RCT(15122)*V(2855)*V(5250) - A(15123) = RCT(15123)*V(2855) - A(15124) = RCT(15124)*V(2226) - A(15125) = RCT(15125)*V(296)*V(5250) - A(15126) = RCT(15126)*V(3958)*V(5250) - A(15127) = RCT(15127)*V(3958) - A(15128) = RCT(15128)*V(3633)*V(5256) - A(15129) = RCT(15129)*V(3633)*V(5250) - A(15130) = RCT(15130)*V(3633) - A(15131) = RCT(15131)*V(4686)*V(5255) - A(15132) = RCT(15132)*V(4686)*V(5255) - A(15133) = RCT(15133)*V(4686)*V(5252) - A(15134) = RCT(15134)*V(4686)*V(5253) - A(15135) = RCT(15135)*V(4686)*V(5256) - A(15136) = RCT(15136)*V(4686) - A(15137) = RCT(15137)*V(4687)*V(5255) - A(15138) = RCT(15138)*V(4687)*V(5252) - A(15139) = RCT(15139)*V(4687)*V(5256) - A(15140) = RCT(15140)*V(4687) - A(15141) = RCT(15141)*V(4687) - A(15142) = RCT(15142)*V(4687) - A(15143) = RCT(15143)*V(4456)*V(5255) - A(15144) = RCT(15144)*V(4456)*V(5255) - A(15145) = RCT(15145)*V(4456)*V(5252) - A(15146) = RCT(15146)*V(4456)*V(5253) - A(15147) = RCT(15147)*V(4456)*V(5256) - A(15148) = RCT(15148)*V(4456) - A(15149) = RCT(15149)*V(4503)*V(5255) - A(15150) = RCT(15150)*V(4503)*V(5252) - A(15151) = RCT(15151)*V(4503)*V(5256) - A(15152) = RCT(15152)*V(4503) - A(15153) = RCT(15153)*V(1474)*V(5250) - A(15154) = RCT(15154)*V(1474) - A(15155) = RCT(15155)*V(2779)*V(5250) - A(15156) = RCT(15156)*V(2779) - A(15157) = RCT(15157)*V(1956)*V(5250) - A(15158) = RCT(15158)*V(1956)*V(5250) - A(15159) = RCT(15159)*V(1956) - A(15160) = RCT(15160)*V(115) - A(15161) = RCT(15161)*V(352)*V(5250) - A(15162) = RCT(15162)*V(3604)*V(5250) - A(15163) = RCT(15163)*V(3604) - A(15164) = RCT(15164)*V(1461)*V(5250) - A(15165) = RCT(15165)*V(1461) - A(15166) = RCT(15166)*V(2619)*V(5250) - A(15167) = RCT(15167)*V(2619) - A(15168) = RCT(15168)*V(940)*V(5250) - A(15169) = RCT(15169)*V(940) - A(15170) = RCT(15170)*V(2968) - A(15171) = RCT(15171)*V(4543)*V(5255) - A(15172) = RCT(15172)*V(4543)*V(5252) - A(15173) = RCT(15173)*V(4543)*V(5256) - A(15174) = RCT(15174)*V(4543) - A(15175) = RCT(15175)*V(866)*V(5250) - A(15176) = RCT(15176)*V(866) - A(15177) = RCT(15177)*V(2788) - -! Aggregate function - Vdot(1) = A(34)+2*A(35) - Vdot(2) = A(36) - Vdot(3) = A(31)+A(33)-A(36)+A(2171)+A(2177)+A(2457)+A(2471)+A(2606)+A(2622)+A(2665)+A(3007)+A(3037)+A(3059)+A(3112)& - &+A(3134)+A(3173)+A(4113)+A(4148)+A(4215)+A(4221)+A(4565)+A(4630)+A(4674)+A(5537)+A(5835)+A(5912)+A(5983)& - &+A(6696)+A(7098)+A(8507)+A(8527)+A(8542)+A(8564)+A(8584)+A(8737)+A(9176)+A(9236)+A(9262)+A(9323)+A(9329)& - &+A(9723)+A(9814)+A(9831)+A(10396)+A(10402)+A(10426)+A(10482)+A(10803)+A(10907)+A(11826)+A(12939) - Vdot(4) = -A(7)-A(14)+A(37) - Vdot(5) = A(32)-A(33) - Vdot(6) = A(7663)-A(9701) - Vdot(7) = A(3120)-A(5351) - Vdot(8) = A(7677)-A(9702) - Vdot(9) = A(4313)-A(6721)+A(13318) - Vdot(10) = A(12818)+A(12824)-A(13577) - Vdot(11) = A(3104)-A(5345) - Vdot(12) = A(2618)-A(4956) - Vdot(13) = A(3828)-A(6155) - Vdot(14) = A(9765)+A(9766)+A(9768)+A(11408)-A(11409) - Vdot(15) = A(13497)-A(14020) - Vdot(16) = A(10309)+A(10310)+A(10311)+A(11774)-A(11775) - Vdot(17) = A(3775)-A(6098) - Vdot(18) = A(4055)-A(6396) - Vdot(19) = A(6643)-A(8684) - Vdot(20) = A(12178)-A(13151) - Vdot(21) = A(8644)-A(10422) - Vdot(22) = A(1707)-A(3921) - Vdot(23) = A(12700)-A(13508) - Vdot(24) = A(9031)-A(10659) - Vdot(25) = A(14087)+A(14088)+A(14089)+A(14407)-A(14408) - Vdot(26) = A(14378)-A(14655) - Vdot(27) = A(9099)-A(10741) - Vdot(28) = A(4619)-A(7001) - Vdot(29) = A(6602)-A(8619) - Vdot(30) = A(12247)-A(13225) - Vdot(31) = A(3456)-A(5711) - Vdot(32) = A(1404)-A(3226) - Vdot(33) = A(9925)-A(11501) - Vdot(34) = A(1105)-A(2906) - Vdot(35) = A(5244)+A(5245)+A(5246)+A(7626)-A(7628) - Vdot(36) = A(7242)+A(7243)+A(7244)+A(9377)-A(9378) - Vdot(37) = A(311)-A(1399) - Vdot(38) = A(8271)-A(10199) - Vdot(39) = A(8445)-A(10348) - Vdot(40) = A(14077)-A(14400) - Vdot(41) = A(7963)-A(9898) - Vdot(42) = A(6928)+A(6929)+A(6930)+A(8979)-A(8980) - Vdot(43) = A(5255)+A(5256)+A(5257)+A(7638)-A(7640) - Vdot(44) = A(10975)+A(10976)+A(10977)+A(12317)-A(12318) - Vdot(45) = A(7246)+A(7247)+A(7248)+A(9380)-A(9381) - Vdot(46) = A(8257)-A(10188) - Vdot(47) = A(3533)-A(5798) - Vdot(48) = A(8643)-A(10421) - Vdot(49) = A(12045)+A(12046)+A(12047)+A(13036)-A(13037) - Vdot(50) = A(5211)+A(5212)+A(5213)+A(7590)-A(7592) - Vdot(51) = A(6745)+A(6746)+A(6747)+A(8782)-A(8783) - Vdot(52) = A(1639)-A(3763) - Vdot(53) = A(11484)-A(12614) - Vdot(54) = A(1689)-A(3873) - Vdot(55) = A(6560)-A(8589) - Vdot(56) = A(9816)-A(11437) - Vdot(57) = A(10219)+A(10220)+A(10221)+A(11697)-A(11698) - Vdot(58) = A(7976)-A(9909) - Vdot(59) = A(12295)-A(13281) - Vdot(60) = A(14805)-A(14969) - Vdot(61) = A(14498)-A(14745) - Vdot(62) = A(8710)-A(10478) - Vdot(63) = A(8266)-A(10195) - Vdot(64) = A(1078)-A(2873) - Vdot(65) = A(9959)+A(9960)+A(9961)+A(11527)-A(11528) - Vdot(66) = A(5233)+A(5234)+A(5235)+A(7614)-A(7616) - Vdot(67) = A(8681)-A(10453) - Vdot(68) = A(3715)-A(6027) - Vdot(69) = A(12069)+A(12070)+A(12072)+A(13070)-A(13071) - Vdot(70) = A(6682)-A(8744) - Vdot(71) = A(3649)-A(5945) - Vdot(72) = A(12713)-A(13515) - Vdot(73) = A(7906)-A(9852) - Vdot(74) = A(4074)-A(6418) - Vdot(75) = A(13482)-A(14015) - Vdot(76) = A(14394)+A(14395)+A(14396)+A(14664)-A(14665) - Vdot(77) = A(8928)-A(10567) - Vdot(78) = A(10275)+A(10276)+A(10277)+A(11751)-A(11752) - Vdot(79) = A(9068)-A(10697) - Vdot(80) = A(10605)+A(10606)+A(10607)+A(12012)-A(12013) - Vdot(81) = A(1751)-A(4020) - Vdot(82) = A(9922)+A(9923)+A(9924)+A(11499)-A(11500) - Vdot(83) = A(14783)-A(14955) - Vdot(84) = A(3514)-A(5776) - Vdot(85) = A(12561)-A(13427) - Vdot(86) = A(718)-A(2493) - Vdot(87) = A(9313)-A(10934) - Vdot(88) = A(12089)+A(12090)+A(12092)+A(13088)-A(13089) - Vdot(89) = A(1584)-A(3642) - Vdot(90) = A(10222)-A(11699) - Vdot(91) = A(5175)+A(5176)+A(5177)+A(7548)-A(7550) - Vdot(92) = A(10108)+A(10109)+A(10111)+A(11631)-A(11632) - Vdot(93) = A(10278)-A(11753) - Vdot(94) = A(3284)-A(5479) - Vdot(95) = A(2094)-A(4588) - Vdot(96) = A(10983)+A(10984)+A(10985)+A(12324)-A(12325) - Vdot(97) = A(10044)+A(10045)+A(10047)+A(11589)-A(11590) - Vdot(98) = A(14373)-A(14651) - Vdot(99) = A(13292)-A(13939) - Vdot(100) = A(7861)-A(9820) - Vdot(101) = A(14368)-A(14647) - Vdot(102) = A(1514)-A(3482) - Vdot(103) = A(9962)-A(11529) - Vdot(104) = A(2134)-A(4647) - Vdot(105) = A(4245)-A(6628) - Vdot(106) = A(10312)-A(11776) - Vdot(107) = A(10249)+A(10250)+A(10252)+A(11727)-A(11728) - Vdot(108) = A(13267)-A(13908) - Vdot(109) = A(3398)-A(5630) - Vdot(110) = A(9725)-A(11373) - Vdot(111) = A(4000)-A(6344) - Vdot(112) = A(13830)-A(14224) - Vdot(113) = A(13301)+A(13302)+A(13303)+A(13941)-A(13942) - Vdot(114) = A(6698)-A(8749) - Vdot(115) = A(15138)+A(15139)+A(15140)+A(15159)-A(15160) - Vdot(116) = A(9984)+A(9985)+A(9987)+A(11550)-A(11551) - Vdot(117) = A(5165)+A(5166)+A(5167)+A(7539)-A(7541) - Vdot(118) = A(13286)-A(13933) - Vdot(119) = A(3908)-A(6249) - Vdot(120) = A(9864)+A(9865)+A(9867)+A(11458)-A(11459) - Vdot(121) = A(12156)-A(13136) - Vdot(122) = A(13508)-A(14025) - Vdot(123) = A(10499)-A(11901) - Vdot(124) = A(3951)-A(6289) - Vdot(125) = A(12108)+A(12109)+A(12111)+A(13101)-A(13102) - Vdot(126) = A(546)-A(2272) - Vdot(127) = A(9296)-A(10919) - Vdot(128) = A(1779)-A(4081) - Vdot(129) = A(1726)-A(3968) - Vdot(130) = A(9755)+A(9756)+A(9758)+A(11400)-A(11401) - Vdot(131) = A(8616)-A(10406) - Vdot(132) = A(5193)+A(5194)+A(5195)+A(7569)-A(7571) - Vdot(133) = A(1051)-A(2838) - Vdot(134) = A(14292)-A(14574) - Vdot(135) = A(1463)-A(3363) - Vdot(136) = A(3295)-A(5484) - Vdot(137) = A(13)-A(35)-A(45) - Vdot(138) = A(9023)+A(9024)+A(9025)+A(10653)-A(10654) - Vdot(139) = A(1118)-A(2920) - Vdot(140) = A(5222)+A(5223)+A(5224)+A(7602)-A(7604) - Vdot(141) = A(11375)+A(11376)+A(11378)+A(12528)-A(12529) - Vdot(142) = A(12538)-A(13406) - Vdot(143) = A(3597)-A(5878) - Vdot(144) = A(1031)-A(2811) - Vdot(145) = A(4621)+A(4622)+A(4624)+A(7003)-A(7004) - Vdot(146) = A(9008)+A(9009)+A(9010)+A(10641)-A(10642) - Vdot(147) = A(2113)-A(4626) - Vdot(148) = A(7022)-A(9085) - Vdot(149) = A(10899)+A(10900)+A(10902)+A(12278)+A(12280)-A(12281) - Vdot(150) = A(2011)+A(2012)+A(2014)+A(4470)+A(4473)-A(4474) - Vdot(151) = A(13231)+A(13232)+A(13234)+A(13883)+A(13885)-A(13886) - Vdot(152) = A(14375)+A(14376)+A(14377)+A(14653)-A(14654)+A(14655) - Vdot(153) = A(557)+A(558)+A(561)+A(2278)+A(2281)-A(2283) - Vdot(154) = A(7009)+A(7010)+A(7012)+A(9070)+A(9072)-A(9073) - Vdot(155) = A(986)+A(987)+A(989)+A(2749)+A(2752)-A(2754) - Vdot(156) = A(4728)+A(4729)+A(4731)+A(7141)+A(7143)-A(7144) - Vdot(157) = A(14525)+A(14526)+A(14528)+A(14771)+A(14773)-A(14774) - Vdot(158) = A(12154)+A(12155)+A(12158)+A(13132)+A(13134)-A(13135) - Vdot(159) = A(9277)+A(9278)+A(9279)+A(10880)+A(10882)-A(10883) - Vdot(160) = A(938)+A(939)+A(941)+A(2701)+A(2703)-A(2704) - Vdot(161) = A(1088)+A(1089)+A(1091)+A(2885)+A(2887)-A(2889) - Vdot(162) = A(12184)+A(12185)+A(12187)+A(13166)+A(13168)-A(13169) - Vdot(163) = A(14365)+A(14366)+A(14367)+A(14645)-A(14646)+A(14647) - Vdot(164) = A(14370)+A(14371)+A(14372)+A(14649)-A(14650)+A(14651) - Vdot(165) = A(1034)+A(1035)+A(1037)+A(2812)+A(2815)-A(2817) - Vdot(166) = A(1108)+A(1109)+A(1111)+A(2907)+A(2909)-A(2911) - Vdot(167) = A(2030)+A(2031)+A(2033)+A(4493)+A(4495)-A(4496) - Vdot(168) = A(13175)+A(13176)+A(13178)+A(13843)+A(13845)-A(13846) - Vdot(169) = A(14074)+A(14075)+A(14076)+A(14398)-A(14399)+A(14400) - Vdot(170) = A(11481)+A(11482)+A(11483)+A(12612)-A(12613)+A(12614) - Vdot(171) = A(993)+A(994)+A(996)+A(2760)+A(2763)-A(2765) - Vdot(172) = A(4741)+A(4742)+A(4744)+A(7162)+A(7164)-A(7165) - Vdot(173) = A(14613)+A(14614)+A(14616)+A(14832)+A(14834)-A(14835) - Vdot(174) = A(13208)+A(13209)+A(13211)+A(13861)+A(13863)-A(13864) - Vdot(175) = A(1972)+A(1973)+A(1975)+A(4420)+A(4422)-A(4423) - Vdot(176) = A(4609)+A(4610)+A(4612)+A(6990)+A(6992)-A(6993) - Vdot(177) = A(1121)+A(1122)+A(1124)+A(2921)+A(2923)-A(2925) - Vdot(178) = A(14270)+A(14271)+A(14273)+A(14542)+A(14544)-A(14545) - Vdot(179) = A(1952)+A(1954)+A(1956)+A(4397)-A(4399)+A(4401) - Vdot(180) = A(10750)+A(10751)+A(10753)+A(12171)+A(12173)-A(12174) - Vdot(181) = -A(72)-A(73)-A(74) - Vdot(182) = A(10723)+A(10724)+A(10726)+A(12132)+A(12134)-A(12135) - Vdot(183) = A(10941)+A(10942)+A(10944)+A(12306)+A(12308)-A(12309) - Vdot(184) = A(1095)+A(1096)+A(1098)+A(2893)+A(2895)-A(2897) - Vdot(185) = A(1991)+A(1992)+A(1995)+A(4440)+A(4442)-A(4443) - Vdot(186) = A(1142)+A(1143)+A(1145)+A(2946)+A(2948)-A(2949) - Vdot(187) = A(9299)+A(9300)+A(9302)+A(10921)+A(10923)-A(10924) - Vdot(188) = A(5260)+A(5261)+A(5263)+A(7642)+A(7644)-A(7645) - Vdot(189) = A(9212)+A(9213)+A(9215)+A(10850)+A(10852)-A(10853) - Vdot(190) = A(13243)+A(13244)+A(13246)+A(13891)+A(13893)-A(13894) - Vdot(191) = A(13914)+A(13915)+A(13917)+A(14318)+A(14320)-A(14321) - Vdot(192) = A(1135)+A(1136)+A(1138)+A(2937)+A(2939)-A(2941) - Vdot(193) = A(13023)+A(13024)+A(13026)+A(13672)+A(13674)-A(13675) - Vdot(194) = A(4324)+A(4325)+A(4327)+A(6584)+A(6591)-A(6729) - Vdot(195) = A(5070)+A(5071)+A(5073)+A(7429)+A(7431)-A(7433) - Vdot(196) = A(1149)+A(1150)+A(1152)+A(2953)+A(2955)-A(2957) - Vdot(197) = A(1128)+A(1129)+A(1131)+A(2929)+A(2931)-A(2933) - Vdot(198) = -A(313)-A(314) - Vdot(199) = A(4666)+A(4667)+A(4668)+A(7044)+A(7046)-A(7047) - Vdot(200) = A(9604)+A(9605)+A(9608)+A(11238)+A(11241)-A(11243) - Vdot(201) = A(9050)+A(9051)+A(9053)+A(10668)+A(10670)-A(10671) - Vdot(202) = A(1007)+A(1008)+A(1010)+A(2774)+A(2777)-A(2779) - Vdot(203) = A(14245)+A(14246)+A(14248)+A(14516)+A(14518)-A(14519) - Vdot(204) = A(12710)+A(12711)+A(12712)+A(13513)-A(13514)+A(13515) - Vdot(205) = A(1061)+A(1062)+A(1064)+A(2847)+A(2850)-A(2852) - Vdot(206) = A(12244)+A(12245)+A(12246)+A(13223)-A(13224)+A(13225) - Vdot(207) = A(9410)+A(9416)-A(11012) - Vdot(208) = A(6756)-A(8795) - Vdot(209) = A(12053)-A(13043)-A(13044) - Vdot(210) = A(12080)+A(12086)-A(13082) - Vdot(211) = A(13264)+A(13265)+A(13266)+A(13904)+A(13906)-A(13907)+A(13908) - Vdot(212) = A(9759)-A(11403) - Vdot(213) = A(13304)-A(13943) - Vdot(214) = A(6078)-A(8290)-A(8291) - Vdot(215) = A(12256)+A(12262)-A(13238) - Vdot(216) = A(8015)-A(9936) - Vdot(217) = A(10512)-A(11916)-A(11917) - Vdot(218) = A(14353)-A(14643) - Vdot(219) = A(9124)-A(10772) - Vdot(220) = A(5108)-A(7481) - Vdot(221) = -A(217)-A(218) - Vdot(222) = A(4928)+A(4934)-A(7295) - Vdot(223) = A(5200)-A(7577) - Vdot(224) = A(7062)-A(9148)-A(9149) - Vdot(225) = A(1457)-A(3352) - Vdot(226) = A(8759)-A(10519) - Vdot(227) = A(6005)+A(6011)-A(8217) - Vdot(228) = A(997)-A(2766) - Vdot(229) = A(8818)-A(10551) - Vdot(230) = A(11116)+A(11122)-A(12372) - Vdot(231) = A(4926)-A(7293) - Vdot(232) = A(689)+A(2448)-A(2453) - Vdot(233) = A(7773)-A(9730) - Vdot(234) = A(1112)-A(2914) - Vdot(235) = -A(227)-A(228) - Vdot(236) = A(4697)-A(7079)-A(7080) - Vdot(237) = A(4760)+A(4766)-A(7176) - Vdot(238) = A(1836)-A(4154) - Vdot(239) = A(288)-A(1330)-A(1331) - Vdot(240) = A(9482)+A(9488)-A(11092) - Vdot(241) = A(12191)+A(12196)-A(13180) - Vdot(242) = A(1011)-A(2783) - Vdot(243) = A(4723)-A(7131)-A(7132) - Vdot(244) = A(10136)-A(11653) - Vdot(245) = A(12681)-A(13497) - Vdot(246) = A(11377)-A(12530) - Vdot(247) = A(14242)-A(14514) - Vdot(248) = A(9303)-A(10926) - Vdot(249) = -A(87)+A(489) - Vdot(250) = -A(318)-A(319)-A(320)-A(321) - Vdot(251) = A(9243)+A(9249)-A(10861) - Vdot(252) = A(14501)+A(14507)-A(14752) - Vdot(253) = -A(225)-A(226) - Vdot(254) = A(4616)+A(4617)+A(4618)+A(6997)+A(6999)-A(7000)+A(7001) - Vdot(255) = A(12783)+A(12789)-A(13553) - Vdot(256) = A(12304)-A(13299) - Vdot(257) = A(13212)-A(13866) - Vdot(258) = A(9383)+A(9389)-A(10986) - Vdot(259) = A(10011)-A(11566) - Vdot(260) = -A(16)+A(97)+A(838) - Vdot(261) = A(8658)+A(8661)+A(10442)-A(10443) - Vdot(262) = A(1508)-A(3474) - Vdot(263) = A(8246)-A(10180)-A(10181) - Vdot(264) = A(8289)-A(10200) - Vdot(265) = A(12035)+A(12040)-A(13028) - Vdot(266) = A(13247)-A(13896) - Vdot(267) = A(10253)-A(11730) - Vdot(268) = A(13807)-A(14201) - Vdot(269) = A(1125)-A(2928) - Vdot(270) = -A(219)-A(220) - Vdot(271) = A(4570)+A(4571)+A(4572)+A(6958)+A(6960)-A(6961)+A(6963) - Vdot(272) = A(12950)+A(12956)-A(13624) - Vdot(273) = A(9988)-A(11553) - Vdot(274) = A(1621)-A(3729) - Vdot(275) = A(12248)+A(12254)-A(13226) - Vdot(276) = A(5780)+A(5786)-A(8034) - Vdot(277) = A(1532)-A(3523) - Vdot(278) = A(641)-A(2393) - Vdot(279) = A(14128)-A(14434) - Vdot(280) = A(9609)+A(9615)-A(11248) - Vdot(281) = A(9183)-A(10820) - Vdot(282) = A(11054)+A(11060)-A(12345) - Vdot(283) = A(1596)-A(3666) - Vdot(284) = A(9520)-A(11134)-A(11135) - Vdot(285) = A(12354)-A(13318) - Vdot(286) = A(559)-A(2284) - Vdot(287) = A(12603)+A(12609)-A(13451) - Vdot(288) = -A(175)-A(176) - Vdot(289) = A(9459)-A(11073) - Vdot(290) = A(14780)+A(14781)+A(14782)+A(14951)+A(14953)-A(14954)+A(14955) - Vdot(291) = A(5135)+A(5141)-A(7511) - Vdot(292) = A(1488)-A(3421) - Vdot(293) = A(458)-A(2072)-A(2073) - Vdot(294) = A(14211)+A(14217)-A(14476) - Vdot(295) = A(5240)-A(7622) - Vdot(296) = A(15065)-A(15125) - Vdot(297) = A(14289)+A(14290)+A(14291)+A(14570)+A(14572)-A(14573)+A(14574) - Vdot(298) = -A(64)-A(65)+A(934) - Vdot(299) = A(9868)-A(11461) - Vdot(300) = A(9012)+A(9013)+A(9014)+A(10644)-A(10645)+A(10646)+A(10647) - Vdot(301) = A(11004)+A(11010)-A(12326) - Vdot(302) = A(8719)-A(10489) - Vdot(303) = A(9054)-A(10673) - Vdot(304) = A(982)-A(2745) - Vdot(305) = A(11923)-A(12926) - Vdot(306) = A(9606)-A(11244) - Vdot(307) = A(1908)-A(4345) - Vdot(308) = A(1072)-A(2867) - Vdot(309) = A(6784)+A(6790)-A(8822) - Vdot(310) = A(12188)-A(13170) - Vdot(311) = A(10737)-A(12142)-A(12143) - Vdot(312) = A(8076)-A(10019) - Vdot(313) = A(14274)-A(14548) - Vdot(314) = A(5161)-A(7536) - Vdot(315) = A(12292)+A(12293)+A(12294)+A(13277)+A(13279)-A(13280)+A(13281) - Vdot(316) = A(1025)-A(2804) - Vdot(317) = A(10747)-A(12168)-A(12169) - Vdot(318) = A(9986)+A(11549)-A(11552)+A(11553) - Vdot(319) = A(6735)-A(8768) - Vdot(320) = A(14607)-A(14830) - Vdot(321) = A(6775)-A(8815) - Vdot(322) = A(10048)-A(11592) - Vdot(323) = A(10046)+A(11588)-A(11591)+A(11592) - Vdot(324) = A(10043)-A(11588)-A(11589) - Vdot(325) = A(4732)-A(7152) - Vdot(326) = A(9310)+A(9311)+A(9312)+A(10930)+A(10932)-A(10933)+A(10934) - Vdot(327) = A(253)-A(1228)-A(1229) - Vdot(328) = A(1787)-A(4108) - Vdot(329) = A(9547)+A(9553)-A(11164) - Vdot(330) = A(4890)-A(7264) - Vdot(331) = A(9719)-A(11372) - Vdot(332) = A(1482)-A(3411) - Vdot(333) = A(5147)-A(7522) - Vdot(334) = A(14617)-A(14839) - Vdot(335) = A(533)-A(2257) - Vdot(336) = A(4606)-A(6988) - Vdot(337) = A(22)-A(29)-A(43) - Vdot(338) = A(1065)-A(2856) - Vdot(339) = A(1084)-A(2881) - Vdot(340) = A(7958)-A(9894) - Vdot(341) = A(5722)+A(5728)-A(8008) - Vdot(342) = -A(221)-A(222) - Vdot(343) = A(4768)+A(4774)-A(7181) - Vdot(344) = A(7013)-A(9075) - Vdot(345) = A(942)-A(2705) - Vdot(346) = A(9545)-A(11160) - Vdot(347) = A(12093)-A(13091) - Vdot(348) = A(10566)-A(11978) - Vdot(349) = A(1038)-A(2821) - Vdot(350) = A(8430)-A(10333)-A(10334) - Vdot(351) = A(14080)+A(14085)-A(14403) - Vdot(352) = A(15141)-A(15161) - Vdot(353) = A(1092)-A(2892) - Vdot(354) = A(8990)-A(10624)-A(10625) - Vdot(355) = A(4833)-A(7223) - Vdot(356) = A(8200)-A(10144) - Vdot(357) = A(14815)-A(14975) - Vdot(358) = A(5861)-A(8098) - Vdot(359) = A(12073)-A(13074) - Vdot(360) = A(14252)+A(14257)-A(14530) - Vdot(361) = A(1442)-A(3315) - Vdot(362) = A(4709)-A(7107)-A(7108) - Vdot(363) = A(6902)+A(6908)-A(8949) - Vdot(364) = A(12227)+A(12233)-A(13203) - Vdot(365) = A(9047)-A(10665)-A(10666) - Vdot(366) = A(8977)-A(10613)-A(10614) - Vdot(367) = A(14330)+A(14336)-A(14608) - Vdot(368) = A(14949)-A(15057) - Vdot(369) = A(4555)-A(6942)-A(6943) - Vdot(370) = A(4552)+A(4553)+A(4554)+A(6940)-A(6941)+A(6942)+A(6943) - Vdot(371) = A(9269)-A(10878) - Vdot(372) = A(9769)-A(11411) - Vdot(373) = A(10251)+A(11726)-A(11729)+A(11730) - Vdot(374) = A(4101)-A(6456)-A(6457) - Vdot(375) = A(13794)+A(13800)-A(14191) - Vdot(376) = A(9437)+A(9443)-A(11044) - Vdot(377) = A(10914)-A(12289) - Vdot(378) = A(13268)+A(13274)-A(13909) - Vdot(379) = A(5150)+A(5156)-A(7526) - Vdot(380) = A(1004)-A(2773) - Vdot(381) = A(6782)-A(8821) - Vdot(382) = A(14264)-A(14540) - Vdot(383) = A(990)-A(2759) - Vdot(384) = A(2318)+A(2324)-A(4794) - Vdot(385) = A(12446)-A(13363) - Vdot(386) = A(8600)-A(10391)-A(10392) - Vdot(387) = A(10351)-A(11790) - Vdot(388) = A(13867)+A(13873)-A(14265) - Vdot(389) = A(5635)+A(5641)-A(7936) - Vdot(390) = A(14761)-A(14937) - Vdot(391) = A(6586)-A(8592) - Vdot(392) = A(7901)-A(9848) - Vdot(393) = A(4835)+A(4841)-A(7224) - Vdot(394) = A(14316)-A(14600) - Vdot(395) = A(4613)-A(6995) - Vdot(396) = A(1610)-A(3703) - Vdot(397) = A(9866)+A(11457)-A(11460)+A(11461) - Vdot(398) = A(9863)-A(11457)-A(11458) - Vdot(399) = A(13027)-A(13679) - Vdot(400) = A(12079)-A(13080)-A(13081) - Vdot(401) = A(4669)-A(7048) - Vdot(402) = A(8161)-A(10093) - Vdot(403) = A(4625)-A(7006) - Vdot(404) = A(4623)+A(7002)-A(7005)+A(7006) - Vdot(405) = A(4620)-A(7002)-A(7003) - Vdot(406) = A(14307)-A(14594) - Vdot(407) = A(9044)+A(9045)+A(9046)+A(10661)+A(10663)-A(10664)+A(10665)+A(10666) - Vdot(408) = A(9700)-A(11365) - Vdot(409) = A(13235)-A(13889) - Vdot(410) = A(13918)-A(14323) - Vdot(411) = A(14345)-A(14631) - Vdot(412) = A(1099)-A(2900) - Vdot(413) = A(9216)-A(10855) - Vdot(414) = A(14801)-A(14966)-A(14967) - Vdot(415) = A(14299)-A(14582) - Vdot(416) = A(498)-A(2221) - Vdot(417) = A(1916)-A(4354) - Vdot(418) = A(13109)-A(13758)-A(13759) - Vdot(419) = A(471)-A(2140)-A(2141) - Vdot(420) = A(11017)+A(11023)-A(12331) - Vdot(421) = A(1115)+A(1116)+A(1117)+A(2915)+A(2917)-A(2919)+A(2920) - Vdot(422) = A(12660)-A(13482) - Vdot(423) = A(6128)+A(6134)-A(8313) - Vdot(424) = A(1017)-A(2791) - Vdot(425) = A(5081)-A(7449) - Vdot(426) = -A(223)-A(224) - Vdot(427) = A(9061)-A(10683) - Vdot(428) = A(1545)-A(3550) - Vdot(429) = A(1153)-A(2960) - Vdot(430) = A(13841)-A(14236) - Vdot(431) = A(1659)-A(3808) - Vdot(432) = A(1768)-A(4061) - Vdot(433) = A(14911)+A(14917)-A(15027) - Vdot(434) = A(10568)+A(10574)-A(11985) - Vdot(435) = A(5048)+A(5060)-A(7408) - Vdot(436) = A(1571)-A(3609) - Vdot(437) = A(5033)-A(7389) - Vdot(438) = A(2297)+A(2303)-A(4789) - Vdot(439) = A(4745)-A(7168) - Vdot(440) = A(9232)-A(10860) - Vdot(441) = A(13929)-A(14329) - Vdot(442) = A(10703)-A(12118)-A(12119) - Vdot(443) = A(10700)+A(10701)+A(10702)+A(12114)+A(12116)-A(12117)+A(12118)+A(12119) - Vdot(444) = A(1431)-A(3290) - Vdot(445) = A(1102)+A(1103)+A(1104)+A(2901)+A(2903)-A(2905)+A(2906) - Vdot(446) = A(1682)-A(3860) - Vdot(447) = -A(207)-A(208) - Vdot(448) = A(10072)-A(11611) - Vdot(449) = A(9507)+A(9513)-A(11124) - Vdot(450) = A(8974)+A(8975)+A(8976)+A(10609)+A(10611)-A(10612)+A(10613)+A(10614) - Vdot(451) = A(7800)-A(9732)-A(9733) - Vdot(452) = A(10945)-A(12310) - Vdot(453) = A(1132)-A(2936) - Vdot(454) = A(9015)-A(10646)-A(10647) - Vdot(455) = A(9767)+A(11407)-A(11410)+A(11411) - Vdot(456) = A(9532)+A(9538)-A(11149) - Vdot(457) = A(9112)+A(9118)-A(10762) - Vdot(458) = A(6674)-A(8733) - Vdot(459) = A(10248)-A(11726)-A(11727) - Vdot(460) = A(1146)-A(2952) - Vdot(461) = A(5559)+A(5565)-A(7870) - Vdot(462) = A(9280)-A(10884) - Vdot(463) = A(6543)-A(8575) - Vdot(464) = A(1558)-A(3583) - Vdot(465) = A(13164)-A(13835) - Vdot(466) = A(1057)-A(2846) - Vdot(467) = A(10903)-A(12283) - Vdot(468) = A(5218)-A(7598) - Vdot(469) = A(5207)-A(7586) - Vdot(470) = A(14561)+A(14567)-A(14798) - Vdot(471) = A(6767)-A(8809) - Vdot(472) = A(12071)+A(13069)-A(13072)-A(13073)+A(13074) - Vdot(473) = A(10537)-A(11954) - Vdot(474) = A(11343)+A(11349)-A(12510) - Vdot(475) = A(4038)-A(6376)-A(6377) - Vdot(476) = A(14529)-A(14777) - Vdot(477) = A(276)-A(1294)-A(1295) - Vdot(478) = A(13179)-A(13849) - Vdot(479) = A(9462)+A(9468)-A(11074) - Vdot(480) = A(1634)-A(3752) - Vdot(481) = A(14249)-A(14520) - Vdot(482) = A(14769)-A(14943) - Vdot(483) = A(8320)-A(10233) - Vdot(484) = A(829)+A(837)-A(2592) - Vdot(485) = A(8140)-A(10080) - Vdot(486) = A(1139)-A(2944) - Vdot(487) = A(3848)-A(6180)-A(6181) - Vdot(488) = A(5088)+A(5101)-A(7458) - Vdot(489) = A(12236)+A(12242)-A(13217) - Vdot(490) = A(9757)+A(11399)-A(11402)+A(11403) - Vdot(491) = A(9754)-A(11399)-A(11400) - Vdot(492) = A(12201)+A(12207)-A(13186) - Vdot(493) = A(12067)-A(13067)-A(13068) - Vdot(494) = A(8544)-A(10365)-A(10366) - Vdot(495) = A(949)-A(2713) - Vdot(496) = A(9252)+A(9258)-A(10868) - Vdot(497) = A(4813)-A(7203) - Vdot(498) = A(4780)-A(7191) - Vdot(499) = A(12591)+A(12597)-A(13446) - Vdot(500) = A(14991)-A(15087) - Vdot(501) = A(5264)-A(7646) - Vdot(502) = A(12112)-A(13103) - Vdot(503) = A(6066)+A(6072)-A(8282) - Vdot(504) = A(1045)-A(2832) - Vdot(505) = A(1744)-A(4009) - Vdot(506) = A(14465)+A(14471)-A(14724) - Vdot(507) = A(10889)+A(10895)-A(12272) - Vdot(508) = A(12068)-A(13069)-A(13070) - Vdot(509) = A(10112)-A(11634) - Vdot(510) = A(10110)+A(11630)-A(11633)+A(11634) - Vdot(511) = A(12271)-A(13261) - Vdot(512) = A(8802)-A(10550) - Vdot(513) = A(8440)-A(10344) - Vdot(514) = A(1889)-A(4282)-A(4283) - Vdot(515) = A(13196)+A(13202)-A(13855) - Vdot(516) = A(6973)-A(9037) - Vdot(517) = A(1411)-A(3233) - Vdot(518) = A(9764)-A(11407)-A(11408) - Vdot(519) = A(9555)+A(9561)-A(11169) - Vdot(520) = A(14671)-A(14862)-A(14863) - Vdot(521) = A(9983)-A(11549)-A(11550) - Vdot(522) = A(7148)-A(9289)-A(9290) - Vdot(523) = A(1664)-A(3815) - Vdot(524) = A(5251)-A(7634) - Vdot(525) = A(5229)-A(7610) - Vdot(526) = A(12022)-A(13006)-A(13007) - Vdot(527) = A(14162)-A(14456)-A(14457) - Vdot(528) = A(9674)+A(9675)+A(9676)+A(11328)-A(11330) - Vdot(529) = A(4191)-A(6554)-A(6555) - Vdot(530) = A(14742)-A(14910) - Vdot(531) = A(3687)-A(5994)-A(5995) - Vdot(532) = A(4810)+A(4811)+A(4812)+A(7198)-A(7202) - Vdot(533) = A(4207)+A(4208)+A(4210)+A(6571)-A(6573) - Vdot(534) = A(9575)+A(9576)+A(9577)+A(11197)-A(11199) - Vdot(535) = A(9751)+A(9752)+A(9753)+A(11397)-A(11398) - Vdot(536) = A(7114)-A(9242) - Vdot(537) = A(14945)+A(14946)+A(14948)+A(15053)-A(15054) - Vdot(538) = A(3599)-A(5881) - Vdot(539) = A(9627)+A(9628)+A(9629)+A(11268)-A(11270) - Vdot(540) = A(2162)-A(4690) - Vdot(541) = A(10616)+A(10617)+A(10618)+A(12024)-A(12025) - Vdot(542) = A(9883)-A(11468)-A(11469) - Vdot(543) = A(14223)-A(14484) - Vdot(544) = A(15031)+A(15032)+A(15033)+A(15111)-A(15113) - Vdot(545) = A(13336)+A(13337)+A(13338)+A(13961)-A(13964) - Vdot(546) = A(5008)-A(7361)-A(7362) - Vdot(547) = A(14554)-A(14789)-A(14790) - Vdot(548) = -A(213)-A(214)-A(215)-A(216) - Vdot(549) = A(9154)+A(9155)+A(9156)+A(10807)-A(10809) - Vdot(550) = A(8432)+A(8433)+A(8434)+A(10336)-A(10337) - Vdot(551) = A(5386)+A(5387)+A(5388)+A(7736)-A(7737) - Vdot(552) = A(1812)+A(1813)+A(1814)+A(4126)-A(4128) - Vdot(553) = A(13114)+A(13115)+A(13117)+A(13775)-A(13776) - Vdot(554) = A(9496)-A(11105)-A(11106) - Vdot(555) = A(9955)+A(9956)+A(9957)+A(11524)-A(11525) - Vdot(556) = A(9095)-A(10732) - Vdot(557) = A(6911)+A(6912)+A(6913)+A(8955)-A(8956) - Vdot(558) = A(4272)-A(6675)-A(6676) - Vdot(559) = A(14882)-A(15017)-A(15018) - Vdot(560) = A(4002)-A(6347) - Vdot(561) = A(9052)+A(10667)+A(10669)-A(10672)+A(10673) - Vdot(562) = A(9048)-A(10667)-A(10668) - Vdot(563) = A(4186)-A(6535)-A(6536) - Vdot(564) = A(11188)+A(11189)+A(11191)+A(12395)-A(12397) - Vdot(565) = A(3336)-A(5548)-A(5549) - Vdot(566) = -A(203)-A(204)-A(205)-A(206) - Vdot(567) = A(15051)-A(15118)-A(15119) - Vdot(568) = A(3540)-A(5807) - Vdot(569) = A(3516)-A(5779) - Vdot(570) = A(11323)+A(11324)+A(11325)+A(12496)-A(12499) - Vdot(571) = A(9599)+A(9600)+A(9601)+A(11235)-A(11237) - Vdot(572) = A(6443)-A(8483)-A(8484) - Vdot(573) = A(1395)+A(1396)+A(1397)+A(3220)-A(3221) - Vdot(574) = A(9691)+A(9692)+A(9693)+A(11357)-A(11359) - Vdot(575) = A(11352)+A(11353)+A(11354)+A(12515)-A(12518) - Vdot(576) = A(8397)-A(10296)-A(10297) - Vdot(577) = A(2053)-A(4527)-A(4528) - Vdot(578) = A(682)+A(2442)-A(2446)+A(5350) - Vdot(579) = A(2478)-A(4876)-A(4877) - Vdot(580) = A(7105)-A(9226) - Vdot(581) = A(13697)+A(13698)+A(13699)+A(14101)-A(14102) - Vdot(582) = A(13032)+A(13033)+A(13034)+A(13681)-A(13682) - Vdot(583) = A(13670)-A(14071)-A(14072) - Vdot(584) = A(8259)+A(8260)+A(8261)+A(10190)-A(10191) - Vdot(585) = A(9199)+A(9200)+A(9202)+A(10834)-A(10836) - Vdot(586) = A(6861)-A(8906)-A(8907) - Vdot(587) = A(9084)-A(10707) - Vdot(588) = -A(209)-A(210)-A(211)-A(212) - Vdot(589) = A(4103)+A(4104)+A(4105)+A(6460)-A(6461) - Vdot(590) = A(9432)-A(11034)-A(11035) - Vdot(591) = A(2394)-A(4846)-A(4847) - Vdot(592) = A(7969)+A(7970)+A(7971)+A(9904)-A(9905) - Vdot(593) = A(12091)+A(13085)+A(13087)-A(13090)+A(13091) - Vdot(594) = A(12088)-A(13087)-A(13088) - Vdot(595) = A(6467)+A(6468)+A(6470)+A(8491)-A(8494) - Vdot(596) = A(9571)+A(9572)+A(9573)+A(11193)-A(11196) - Vdot(597) = A(10245)+A(10246)+A(10247)+A(11724)-A(11725) - Vdot(598) = -A(81)-A(82)+A(1159) - Vdot(599) = A(4573)-A(6962)-A(6963) - Vdot(600) = A(6815)+A(6816)+A(6819)+A(8853)-A(8854) - Vdot(601) = -A(159)-A(160)-A(161)-A(162) - Vdot(602) = A(7589)-A(9624)-A(9625) - Vdot(603) = A(4927)+A(4930)+A(4932)+A(4933)-A(7294) - Vdot(604) = A(459)-A(2074)-A(2075) - Vdot(605) = A(7897)+A(7898)+A(7900)+A(9844)-A(9845) - Vdot(606) = A(417)-A(1898)-A(1899)+A(4247)+A(4329) - Vdot(607) = A(418)-A(1900)-A(1901)+A(4267)+A(4337) - Vdot(608) = A(6900)-A(8945)-A(8946) - Vdot(609) = A(7637)-A(9688)-A(9689) - Vdot(610) = A(6839)+A(6840)+A(6841)+A(8881)-A(8882) - Vdot(611) = A(794)+A(800)-A(2559)+A(3175) - Vdot(612) = A(7063)-A(9150)-A(9151) - Vdot(613) = A(1801)+A(1806)+A(4115)-A(4121) - Vdot(614) = A(3278)-A(5474) - Vdot(615) = A(528)+A(530)+A(531)+A(2252)-A(2253) - Vdot(616) = A(9636)-A(11278)-A(11279) - Vdot(617) = A(13656)+A(13657)+A(13658)+A(14063)-A(14064) - Vdot(618) = A(10910)+A(10911)+A(10913)+A(12285)-A(12286) - Vdot(619) = A(10795)+A(10796)+A(10798)+A(12221)-A(12222) - Vdot(620) = A(8136)+A(8137)+A(8139)+A(10077)-A(10078) - Vdot(621) = A(7078)-A(9172) - Vdot(622) = A(8124)-A(10067)-A(10068) - Vdot(623) = A(4040)+A(4041)+A(4042)+A(6380)-A(6382) - Vdot(624) = A(2195)+A(2196)+A(2199)+A(4752)-A(4753) - Vdot(625) = A(14238)+A(14239)+A(14241)+A(14510)-A(14511) - Vdot(626) = A(12807)-A(13561)-A(13562) - Vdot(627) = A(1770)+A(1773)-A(4064) - Vdot(628) = A(3304)-A(5499) - Vdot(629) = A(10215)+A(10216)+A(10217)+A(11694)-A(11695) - Vdot(630) = A(657)+A(658)+A(661)+A(2415)-A(2417) - Vdot(631) = A(766)+A(772)-A(2535)+A(3135) - Vdot(632) = A(12055)+A(12056)+A(12057)+A(13046)-A(13047) - Vdot(633) = A(13695)-A(14098)-A(14099) - Vdot(634) = A(1752)-A(4021)-A(4022) - Vdot(635) = A(2136)+A(2137)+A(2139)+A(4649)-A(4650) - Vdot(636) = A(11179)-A(12382)-A(12383) - Vdot(637) = A(5283)+A(5284)+A(5286)+A(7658)-A(7659) - Vdot(638) = A(11230)+A(11231)+A(11232)+A(12426)-A(12430) - Vdot(639) = A(2152)+A(2153)+A(2156)+A(4683)-A(4684) - Vdot(640) = A(466)-A(2113)-A(2114)-A(2115) - Vdot(641) = A(8436)+A(8437)+A(8439)+A(10340)-A(10341) - Vdot(642) = A(850)+A(856)-A(2609)+A(4216) - Vdot(643) = A(14983)+A(14984)+A(14985)+A(15080)-A(15081) - Vdot(644) = A(14673)+A(14674)+A(14675)+A(14865)-A(14866) - Vdot(645) = A(11925)+A(11926)+A(11927)+A(12928)-A(12929) - Vdot(646) = A(2189)+A(2190)+A(2191)+A(4747)-A(4749) - Vdot(647) = A(3891)-A(6224)-A(6225) - Vdot(648) = A(15048)+A(15049)+A(15050)+A(15115)-A(15117) - Vdot(649) = A(9144)+A(9145)+A(9147)+A(10785)-A(10786) - Vdot(650) = A(14230)-A(14494) - Vdot(651) = A(9502)-A(11112)-A(11113) - Vdot(652) = A(4611)+A(6989)+A(6991)-A(6994)+A(6995) - Vdot(653) = A(4607)-A(6989)-A(6990) - Vdot(654) = A(4224)+A(4225)+A(4226)+A(6577)-A(6580) - Vdot(655) = A(14390)+A(14391)+A(14392)+A(14661)-A(14662) - Vdot(656) = A(6521)+A(6522)+A(6525)+A(8553)-A(8554) - Vdot(657) = A(13750)-A(14155)-A(14156) - Vdot(658) = A(9193)+A(9194)+A(9196)+A(10826)-A(10828) - Vdot(659) = A(8184)-A(10131)-A(10132) - Vdot(660) = A(7950)+A(7951)+A(7952)+A(9886)-A(9887) - Vdot(661) = A(2205)-A(4759) - Vdot(662) = A(13150)-A(13812) - Vdot(663) = A(9347)+A(9348)+A(9351)+A(10952)-A(10953) - Vdot(664) = A(9525)-A(11139)-A(11140) - Vdot(665) = A(6793)+A(6794)+A(6796)+A(8829)-A(8830) - Vdot(666) = A(2042)+A(2043)+A(2045)+A(4512)-A(4513) - Vdot(667) = A(7093)-A(9221) - Vdot(668) = -A(419)-A(420) - Vdot(669) = A(5380)+A(5381)+A(5384)+A(7728)-A(7729) - Vdot(670) = A(2062)+A(2063)+A(2065)+A(4540)-A(4541) - Vdot(671) = A(9653)-A(11299)-A(11300) - Vdot(672) = A(10601)+A(10602)+A(10603)+A(12009)-A(12010) - Vdot(673) = A(9316)+A(9317)+A(9319)+A(10936)-A(10937) - Vdot(674) = A(9471)+A(9472)+A(9474)+A(11079)-A(11083) - Vdot(675) = A(5189)-A(7565)-A(7566) - Vdot(676) = A(3958)-A(6298) - Vdot(677) = A(1759)+A(1761)-A(4045) - Vdot(678) = A(6631)-A(8662)-A(8663) - Vdot(679) = A(10789)+A(10790)+A(12213)-A(12214) - Vdot(680) = A(314)-A(1406)+A(2473)+A(4955)+A(8767) - Vdot(681) = A(3497)-A(5750)-A(5751) - Vdot(682) = A(6843)+A(6844)+A(6846)+A(8884)-A(8886) - Vdot(683) = A(3571)-A(5846)-A(5847) - Vdot(684) = A(134)-A(862)-A(863)-A(864) - Vdot(685) = A(408)+A(409)-A(1859)-A(1860)-A(1861) - Vdot(686) = A(402)-A(1824)-A(1825)-A(1826) - Vdot(687) = A(13783)+A(13784)+A(13785)+A(14183)-A(14184) - Vdot(688) = A(4718)+A(4719)+A(4721)+A(7124)-A(7126) - Vdot(689) = A(6821)+A(6822)+A(6823)+A(8859)-A(8863) - Vdot(690) = A(14751)-A(14928) - Vdot(691) = A(744)+A(750)-A(2509)+A(3060) - Vdot(692) = A(9285)-A(10888) - Vdot(693) = A(9808)+A(9809)+A(9810)+A(11435)-A(11436) - Vdot(694) = A(7139)-A(9274) - Vdot(695) = A(14987)+A(14988)+A(14990)+A(15083)-A(15084) - Vdot(696) = A(13735)-A(14135)-A(14136) - Vdot(697) = A(13057)+A(13058)+A(13060)+A(13707)-A(13708) - Vdot(698) = A(11302)+A(11303)+A(11304)+A(12479)-A(12482) - Vdot(699) = A(13881)-A(14285)-A(14286) - Vdot(700) = A(3656)-A(5954) - Vdot(701) = A(10522)-A(11936)-A(11937) - Vdot(702) = A(412)-A(1876)-A(1877)+A(4235)+A(4243) - Vdot(703) = A(9179)+A(9180)+A(9182)+A(10816)-A(10817) - Vdot(704) = A(13192)+A(13193)+A(13194)+A(13851)-A(13852) - Vdot(705) = A(3777)-A(6101) - Vdot(706) = A(5320)+A(5321)+A(5322)+A(7687)-A(7689) - Vdot(707) = A(1668)+A(1669)-A(3823) - Vdot(708) = A(4659)+A(4660)+A(4662)+A(7037)-A(7038) - Vdot(709) = A(4676)-A(7052)+A(7055)+A(7060) - Vdot(710) = A(7954)+A(7955)+A(7957)+A(9890)-A(9891) - Vdot(711) = A(7945)+A(7946)+A(7947)+A(9881)-A(9882) - Vdot(712) = A(7852)+A(7853)+A(7854)+A(9805)-A(9806) - Vdot(713) = A(7699)-A(9707)-A(9708) - Vdot(714) = A(13662)+A(13663)+A(13664)+A(14069)-A(14070) - Vdot(715) = A(413)-A(1878)-A(1879)+A(4254)+A(4262) - Vdot(716) = A(8196)+A(8197)+A(8199)+A(10141)-A(10142) - Vdot(717) = A(6398)+A(6399)+A(6400)+A(8451)-A(8452) - Vdot(718) = A(3910)-A(6252) - Vdot(719) = A(472)-A(2142)-A(2143) - Vdot(720) = A(3445)+A(3446)+A(3449)+A(5695)-A(5696) - Vdot(721) = A(9160)+A(9161)+A(9164)+A(10812)-A(10813) - Vdot(722) = A(11281)+A(11282)+A(11283)+A(12466)-A(12468) - Vdot(723) = A(3400)-A(5633) - Vdot(724) = A(9265)+A(9266)+A(9268)+A(10874)-A(10875) - Vdot(725) = A(14715)-A(14902)-A(14903) - Vdot(726) = A(9228)+A(9229)+A(9231)+A(10857)-A(10858) - Vdot(727) = A(5198)+A(5199)+A(5202)+A(7574)-A(7576) - Vdot(728) = A(9120)+A(9121)+A(9123)+A(10768)-A(10769) - Vdot(729) = A(10585)+A(10586)+A(10587)+A(11997)-A(11998) - Vdot(730) = A(9341)+A(9342)+A(9343)+A(10947)-A(10949) - Vdot(731) = A(14179)+A(14180)+A(14181)+A(14459)-A(14460) - Vdot(732) = A(3630)-A(5923)-A(5924) - Vdot(733) = A(15001)+A(15002)+A(15003)+A(15092)-A(15093) - Vdot(734) = A(9586)+A(9587)+A(9589)+A(11209)-A(11213) - Vdot(735) = A(7011)+A(9069)+A(9071)-A(9074)+A(9075) - Vdot(736) = A(7007)-A(9069)-A(9070) - Vdot(737) = A(5304)+A(5305)+A(5308)+A(7674)-A(7675) - Vdot(738) = A(3463)-A(5720) - Vdot(739) = A(13768)+A(13769)+A(13770)+A(14171)-A(14173) - Vdot(740) = A(4653)+A(4654)+A(4656)+A(7029)-A(7030) - Vdot(741) = A(14717)+A(14718)+A(14719)+A(14905)-A(14906) - Vdot(742) = A(3938)-A(6267)-A(6268) - Vdot(743) = A(10104)+A(10105)+A(10106)+A(11628)-A(11629) - Vdot(744) = A(10040)+A(10041)+A(10042)+A(11586)-A(11587) - Vdot(745) = A(11263)+A(11264)+A(11265)+A(12452)-A(12454) - Vdot(746) = A(9980)+A(9981)+A(9982)+A(11547)-A(11548) - Vdot(747) = A(7965)+A(7966)+A(7967)+A(9900)-A(9901) - Vdot(748) = A(2146)+A(2147)+A(2148)+A(4678)-A(4680) - Vdot(749) = A(6877)+A(6878)+A(6881)+A(8926)-A(8927) - Vdot(750) = A(6445)+A(6446)+A(6449)+A(8486)-A(8488) - Vdot(751) = A(731)+A(736)-A(2501)+A(3009) - Vdot(752) = A(3717)-A(6030) - Vdot(753) = A(9918)+A(9919)+A(9920)+A(11496)-A(11497) - Vdot(754) = A(14637)-A(14850) - Vdot(755) = A(3383)+A(3384)+A(3385)+A(5609)-A(5610) - Vdot(756) = A(3850)+A(3851)+A(3852)+A(6184)-A(6186) - Vdot(757) = -A(59)-A(60)+A(920) - Vdot(758) = A(9584)-A(11207)-A(11208) - Vdot(759) = A(5410)-A(7766)-A(7767) - Vdot(760) = A(14802)+A(14803)+A(14804)-A(14968)+A(14969) - Vdot(761) = A(2017)+A(2018)+A(2021)+A(4480)-A(4481) - Vdot(762) = A(9687)-A(11341)-A(11342) - Vdot(763) = A(133)-A(857)-A(858) - Vdot(764) = A(3381)-A(5604)-A(5605) - Vdot(765) = A(637)+A(639)+A(640)+A(2390)-A(2391) - Vdot(766) = A(289)-A(1332)-A(1333) - Vdot(767) = A(12031)-A(13017)-A(13018) - Vdot(768) = A(7769)+A(7770)+A(7772)+A(9727)-A(9728) - Vdot(769) = A(7613)-A(9654)-A(9655) - Vdot(770) = A(4712)+A(4713)+A(4715)+A(7116)-A(7118) - Vdot(771) = A(5518)-A(7855)-A(7856) - Vdot(772) = A(14147)-A(14449)-A(14450) - Vdot(773) = A(8158)+A(8159)+A(8160)+A(10091)-A(10092) - Vdot(774) = A(14124)+A(14125)+A(14127)+A(14430)-A(14431) - Vdot(775) = A(13684)+A(13685)+A(13686)+A(14091)-A(14092) - Vdot(776) = A(9657)+A(9658)+A(9659)+A(11307)-A(11309) - Vdot(777) = A(9704)+A(9705)+A(9706)+A(11367)-A(11368) - Vdot(778) = A(11182)+A(11183)+A(11185)+A(12387)-A(12389) - Vdot(779) = A(3443)-A(5692)-A(5693) - Vdot(780) = A(10305)+A(10306)+A(10307)+A(11771)-A(11772) - Vdot(781) = A(11820)+A(11821)+A(11822)+A(12808)-A(12809) - Vdot(782) = A(6193)+A(6194)+A(6195)+A(8343)-A(8345) - Vdot(783) = A(2078)+A(2079)+A(2080)+A(4576)-A(4577) - Vdot(784) = A(2084)+A(2085)+A(2087)+A(4580)-A(4581) - Vdot(785) = A(3793)-A(6117)-A(6118) - Vdot(786) = A(10589)+A(10590)+A(10591)+A(12000)-A(12001) - Vdot(787) = A(5857)+A(5858)+A(5860)+A(8094)-A(8095) - Vdot(788) = A(3257)-A(5448)-A(5449) - Vdot(789) = A(13719)-A(14117)-A(14118) - Vdot(790) = A(6664)-A(8712)-A(8713) - Vdot(791) = A(9640)+A(9641)+A(9642)+A(11286)-A(11288) - Vdot(792) = A(8072)+A(8073)+A(8075)+A(10016)-A(10017) - Vdot(793) = A(13157)-A(13822) - Vdot(794) = A(7625)-A(9671)-A(9672) - Vdot(795) = A(13646)+A(13647)+A(13648)+A(14060)-A(14061) - Vdot(796) = A(1780)-A(4082)-A(4083) - Vdot(797) = A(2164)+A(2165)+A(2167)+A(4692)-A(4693) - Vdot(798) = A(10271)+A(10272)+A(10273)+A(11748)-A(11749) - Vdot(799) = A(12103)-A(13098)-A(13099) - Vdot(800) = A(7893)+A(7894)+A(7895)+A(9840)-A(9841) - Vdot(801) = A(6349)+A(6350)+A(6351)+A(8411)-A(8413) - Vdot(802) = A(14957)+A(14958)+A(14960)+A(15067)-A(15068) - Vdot(803) = A(7601)-A(9637)-A(9638) - Vdot(804) = A(9670)-A(11320)-A(11321) - Vdot(805) = A(11115)-A(12370)-A(12371) - Vdot(806) = -A(75)-A(76)-A(77)+A(976) - Vdot(807) = A(9622)-A(11258)-A(11259) - Vdot(808) = A(5459)+A(5460)+A(5463)+A(7798)-A(7799) - Vdot(809) = A(9860)+A(9861)+A(9862)+A(11455)-A(11456) - Vdot(810) = A(14341)+A(14342)+A(14344)+A(14629)-A(14630) - Vdot(811) = A(3983)-A(6318)-A(6319) - Vdot(812) = A(3742)-A(6063)-A(6064) - Vdot(813) = A(13255)-A(13902) - Vdot(814) = A(8248)+A(8249)+A(8250)+A(10183)-A(10184) - Vdot(815) = A(5398)+A(5399)+A(5401)+A(7747)-A(7748) - Vdot(816) = A(9761)+A(9762)+A(9763)+A(11405)-A(11406) - Vdot(817) = A(14303)+A(14304)+A(14306)+A(14592)-A(14593) - Vdot(818) = A(662)+A(668)-A(2423)+A(2667) - Vdot(819) = A(6592)-A(8602)-A(8603) - Vdot(820) = A(12361)+A(12362)+A(12363)+A(13328)-A(13330) - Vdot(821) = A(10727)-A(12137)-A(12138) - Vdot(822) = A(8173)-A(10121)-A(10122) - Vdot(823) = A(13761)-A(14164)-A(14165) - Vdot(824) = A(15020)-A(15106)-A(15107) - Vdot(825) = A(11540)-A(12649)-A(12650) - Vdot(826) = A(14778)-A(14950)-A(14951) - Vdot(827) = A(14694)+A(14700)-A(14885)-A(14886) - Vdot(828) = A(5136)-A(7512)-A(7513) - Vdot(829) = A(5333)-A(7697)-A(7698) - Vdot(830) = A(10897)-A(12277)-A(12278) - Vdot(831) = A(4989)-A(7337)-A(7338) - Vdot(832) = A(5151)-A(7527)-A(7528) - Vdot(833) = A(4885)-A(7260)-A(7261) - Vdot(834) = A(5372)+A(5378)-A(7722) - Vdot(835) = A(11416)-A(12558)-A(12559) - Vdot(836) = A(5029)-A(7384)-A(7385) - Vdot(837) = A(3320)-A(5530)-A(5531) - Vdot(838) = A(7902)-A(9849)-A(9850) - Vdot(839) = A(11886)+A(11892)-A(12882)-A(12883) - Vdot(840) = A(4608)-A(6991)-A(6992) - Vdot(841) = A(1838)-A(4162)-A(4163) - Vdot(842) = A(13788)-A(14187)-A(14188) - Vdot(843) = A(6281)-A(8382)-A(8383) - Vdot(844) = A(8388)-A(10287)-A(10288) - Vdot(845) = A(9483)-A(11093)-A(11094) - Vdot(846) = A(3330)-A(5540)-A(5541) - Vdot(847) = A(519)+A(1208)-A(2239) - Vdot(848) = A(1147)-A(2953)-A(2954) - Vdot(849) = A(13721)-A(14121)-A(14122) - Vdot(850) = A(12457)-A(13370)-A(13371) - Vdot(851) = A(3624)-A(5915)-A(5916) - Vdot(852) = A(6336)-A(8400)-A(8401) - Vdot(853) = A(5121)-A(7498)-A(7499) - Vdot(854) = A(5768)-A(8024)-A(8025) - Vdot(855) = A(930)-A(2695)-A(2696) - Vdot(856) = A(14620)+A(14626)-A(14840) - Vdot(857) = A(10266)-A(11745)-A(11746) - Vdot(858) = A(14962)-A(15071)-A(15072) - Vdot(859) = A(10685)-A(12096)-A(12097) - Vdot(860) = A(10053)-A(11596)-A(11597) - Vdot(861) = A(1702)-A(3912)-A(3913) - Vdot(862) = A(5914)+A(8114)-A(8148)-A(8149) - Vdot(863) = A(14409)-A(14676)-A(14677) - Vdot(864) = A(8993)-A(10630)-A(10631) - Vdot(865) = A(7241)-A(9376)-A(9377) - Vdot(866) = A(15171)-A(15175)-A(15176) - Vdot(867) = A(5781)-A(8035)-A(8036) - Vdot(868) = A(4761)-A(7177)-A(7178) - Vdot(869) = A(11661)-A(12714)-A(12715) - Vdot(870) = A(1093)-A(2893)-A(2894) - Vdot(871) = A(12243)-A(13222)-A(13223) - Vdot(872) = A(14268)-A(14541)-A(14542) - Vdot(873) = A(4284)-A(6699)-A(6700) - Vdot(874) = A(585)+A(620)-A(2317) - Vdot(875) = A(823)-A(2586)-A(2587) - Vdot(876) = A(5050)-A(7409)-A(7410) - Vdot(877) = A(10234)-A(11710)-A(11711) - Vdot(878) = A(10117)-A(11638)-A(11639) - Vdot(879) = A(13021)-A(13671)-A(13672) - Vdot(880) = A(12152)-A(13131)-A(13132) - Vdot(881) = A(2200)-A(4755)-A(4756) - Vdot(882) = A(13875)-A(14277)-A(14278) - Vdot(883) = A(13287)-A(13934)-A(13935) - Vdot(884) = A(3711)-A(6024)-A(6025) - Vdot(885) = A(7074)-A(9169)-A(9170) - Vdot(886) = A(12984)-A(13641)-A(13642) - Vdot(887) = A(12197)-A(13183)-A(13184) - Vdot(888) = A(11683)-A(12724)-A(12725) - Vdot(889) = A(5010)-A(7366)-A(7367) - Vdot(890) = A(11903)+A(11909)-A(12901) - Vdot(891) = A(8089)-A(10026)-A(10027) - Vdot(892) = A(9913)-A(11493)-A(11494) - Vdot(893) = A(11894)+A(11900)-A(12888) - Vdot(894) = A(12604)-A(13452)-A(13453) - Vdot(895) = A(5172)+A(5182)-A(7547) - Vdot(896) = A(594)+A(608)-A(2337) - Vdot(897) = A(2095)-A(4589)-A(4590) - Vdot(898) = A(4085)+A(4091)-A(6425)-A(6426) - Vdot(899) = A(10525)-A(11944)-A(11945) - Vdot(900) = A(9244)-A(10862)-A(10863) - Vdot(901) = A(12784)-A(13554)-A(13555) - Vdot(902) = A(13309)-A(13948)-A(13949) - Vdot(903) = A(15019)+A(15025)-A(15104)-A(15105) - Vdot(904) = A(4600)-A(6981)-A(6982) - Vdot(905) = A(2188)-A(4748) - Vdot(906) = A(14103)+A(14109)-A(14413)-A(14414) - Vdot(907) = A(12876)-A(13598)-A(13599) - Vdot(908) = A(10539)-A(11955)-A(11956) - Vdot(909) = A(9390)-A(10991)-A(10992) - Vdot(910) = A(3671)-A(5976)-A(5977) - Vdot(911) = A(8138)-A(10079)+A(10080)+A(11611) - Vdot(912) = A(2129)-A(4642)-A(4643) - Vdot(913) = A(11489)-A(12618)-A(12619) - Vdot(914) = A(4096)-A(6450)-A(6451) - Vdot(915) = A(5673)-A(7986)-A(7987) - Vdot(916) = A(14212)-A(14477)-A(14478) - Vdot(917) = A(9873)-A(11465)-A(11466) - Vdot(918) = A(2326)-A(4799)-A(4800) - Vdot(919) = A(9016)-A(10648)-A(10649) - Vdot(920) = A(2122)-A(4636)-A(4637) - Vdot(921) = A(3555)-A(5828)-A(5829) - Vdot(922) = A(1502)-A(3465)-A(3466) - Vdot(923) = A(10113)-A(11635)-A(11636) - Vdot(924) = A(5337)+A(5343)-A(7701) - Vdot(925) = A(26)-A(27)-A(46) - Vdot(926) = A(1251)+A(1258)-A(3068) - Vdot(927) = A(12265)-A(13256)-A(13257) - Vdot(928) = A(8262)-A(10192)-A(10193) - Vdot(929) = A(7229)-A(9364)-A(9365) - Vdot(930) = A(9304)-A(10927)-A(10928) - Vdot(931) = A(8972)-A(10608)-A(10609) - Vdot(932) = A(3996)-A(6340)-A(6341) - Vdot(933) = A(13049)+A(13055)-A(13700)-A(13701) - Vdot(934) = A(11380)-A(12532)-A(12533) - Vdot(935) = A(14073)-A(14397)-A(14398) - Vdot(936) = A(14466)-A(14725)-A(14726) - Vdot(937) = A(3366)-A(5580)-A(5581) - Vdot(938) = A(3529)-A(5794)-A(5795) - Vdot(939) = A(3291)-A(5480)-A(5481) - Vdot(940) = A(15149)-A(15168)-A(15169) - Vdot(941) = A(3485)-A(5738)-A(5739) - Vdot(942) = A(13104)-A(13753)-A(13754) - Vdot(943) = A(6090)-A(8301)-A(8302) - Vdot(944) = A(7857)-A(9817)-A(9818) - Vdot(945) = A(11037)-A(12338)-A(12339) - Vdot(946) = A(12402)-A(13343)-A(13344) - Vdot(947) = A(4033)-A(6370)-A(6371) - Vdot(948) = A(13802)-A(14196)-A(14197) - Vdot(949) = A(9275)-A(10879)-A(10880) - Vdot(950) = A(10210)-A(11691)-A(11692) - Vdot(951) = A(12249)-A(13227)-A(13228) - Vdot(952) = A(12794)-A(13558)-A(13559) - Vdot(953) = A(14702)+A(14708)-A(14891)-A(14892) - Vdot(954) = A(11980)-A(12971)-A(12972) - Vdot(955) = A(13923)-A(14324)-A(14325) - Vdot(956) = A(1617)-A(3719)-A(3720) - Vdot(957) = A(11919)-A(12923) - Vdot(958) = A(10966)+A(10972)-A(12311) - Vdot(959) = A(3771)-A(6094)-A(6095) - Vdot(960) = A(13382)-A(13983)-A(13984) - Vdot(961) = A(3554)+A(3560)-A(5826)-A(5827) - Vdot(962) = A(10254)-A(11731)-A(11732) - Vdot(963) = A(9921)-A(11498)-A(11499) - Vdot(964) = A(5185)-A(7560)-A(7561) - Vdot(965) = A(13282)-A(13930)-A(13931) - Vdot(966) = A(1527)-A(3518)-A(3519) - Vdot(967) = A(9647)-A(11292)-A(11293) - Vdot(968) = A(1880)-A(4268)-A(4269) - Vdot(969) = A(1811)-A(4126)-A(4127) - Vdot(970) = A(9308)-A(10929)-A(10930) - Vdot(971) = A(14219)-A(14481)-A(14482) - Vdot(972) = A(11741)-A(12758)-A(12759) - Vdot(973) = A(14364)-A(14644)-A(14645) - Vdot(974) = A(8213)-A(10151)-A(10152) - Vdot(975) = A(9548)-A(11165)-A(11166) - Vdot(976) = A(1334)-A(3154)-A(3155) - Vdot(977) = A(11444)-A(12571)-A(12572) - Vdot(978) = A(9855)-A(11452)-A(11453) - Vdot(979) = A(9740)-A(11390)-A(11391) - Vdot(980) = A(1046)-A(2833)-A(2834) - Vdot(981) = A(4308)-A(6716)-A(6717) - Vdot(982) = A(4051)-A(6393)-A(6394) - Vdot(983) = A(11055)-A(12346)-A(12347) - Vdot(984) = A(13146)-A(13809)-A(13810) - Vdot(985) = A(7053)-A(9139)-A(9140) - Vdot(986) = A(12995)-A(13653)-A(13654) - Vdot(987) = A(730)-A(2499)-A(2500) - Vdot(988) = A(11117)-A(12373)-A(12374) - Vdot(989) = A(14393)-A(14663)-A(14664) - Vdot(990) = A(9001)+A(9006)-A(10636)-A(10637) - Vdot(991) = A(6503)-A(8532) - Vdot(992) = A(10604)-A(12011)-A(12012) - Vdot(993) = A(12145)-A(13127)-A(13128) - Vdot(994) = A(11480)-A(12611)-A(12612) - Vdot(995) = A(12442)-A(13359)-A(13360) - Vdot(996) = A(3510)-A(5772)-A(5773) - Vdot(997) = A(10352)-A(11791)-A(11792) - Vdot(998) = A(14687)-A(14875)-A(14876) - Vdot(999) = A(950)-A(2714)-A(2715) - Vdot(1000) = A(1722)-A(3962)-A(3963) - Vdot(1001) = A(2192)+A(2197)-A(4750) - Vdot(1002) = A(5723)-A(8009)-A(8010) - Vdot(1003) = A(8307)-A(10231)-A(10232) - Vdot(1004) = A(13229)-A(13882)-A(13883) - Vdot(1005) = A(4828)-A(7218) - Vdot(1006) = A(12819)-A(13578)-A(13579) - Vdot(1007) = A(4551)-A(6939)-A(6940) - Vdot(1008) = A(13795)-A(14192)-A(14193) - Vdot(1009) = A(3452)-A(5707)-A(5708) - Vdot(1010) = A(5178)-A(7551)-A(7552) - Vdot(1011) = A(894)+A(895)+A(897)-A(2659) - Vdot(1012) = A(10742)-A(12164)-A(12165) - Vdot(1013) = A(833)+A(836)+A(2596)-A(2599) - Vdot(1014) = A(3787)-A(6109)-A(6110) - Vdot(1015) = A(4891)+A(4896)-A(7265)-A(7266) - Vdot(1016) = A(3251)-A(5440)-A(5441) - Vdot(1017) = A(8372)-A(10262)-A(10263) - Vdot(1018) = A(13050)-A(13702)-A(13703) - Vdot(1019) = A(14764)-A(14938)-A(14939) - Vdot(1020) = A(7959)-A(9895)-A(9896) - Vdot(1021) = A(8426)-A(10330)-A(10331) - Vdot(1022) = A(14703)-A(14893)-A(14894) - Vdot(1023) = A(3593)-A(5874)-A(5875) - Vdot(1024) = A(3280)-A(5475)-A(5476) - Vdot(1025) = A(11621)-A(12689)-A(12690) - Vdot(1026) = A(12443)-A(13361) - Vdot(1027) = A(1566)-A(3601)-A(3602) - Vdot(1028) = A(5243)-A(7626)-A(7627) - Vdot(1029) = A(11717)-A(12744)-A(12745) - Vdot(1030) = A(11760)-A(12769)-A(12770) - Vdot(1031) = A(3614)-A(5905)-A(5906) - Vdot(1032) = A(5192)-A(7569)-A(7570) - Vdot(1033) = A(3904)-A(6245)-A(6246) - Vdot(1034) = A(3843)-A(6174)-A(6175) - Vdot(1035) = A(566)+A(1280)-A(2294) - Vdot(1036) = A(2081)+A(2088)-A(4578) - Vdot(1037) = A(4912)+A(4918)-A(7278)-A(7279) - Vdot(1038) = A(3932)-A(6259)-A(6260) - Vdot(1039) = A(1591)-A(3658)-A(3659) - Vdot(1040) = A(7771)-A(9729)+A(9730)+A(11372) - Vdot(1041) = A(10569)-A(11986)-A(11987) - Vdot(1042) = A(9411)-A(11013)-A(11014) - Vdot(1043) = A(6927)-A(8978)-A(8979) - Vdot(1044) = A(14461)-A(14721)-A(14722) - Vdot(1045) = A(11713)-A(12741)-A(12742) - Vdot(1046) = A(14746)-A(14924)-A(14925) - Vdot(1047) = A(9104)-A(10756)-A(10757) - Vdot(1048) = A(4900)-A(7271)-A(7272) - Vdot(1049) = A(3375)-A(5596)-A(5597) - Vdot(1050) = A(578)+A(628)-A(2310) - Vdot(1051) = A(10162)-A(11671)-A(11672) - Vdot(1052) = A(1140)-A(2945)-A(2946) - Vdot(1053) = A(8061)-A(10008)-A(10009) - Vdot(1054) = A(1843)+A(1849)-A(4166) - Vdot(1055) = A(11018)-A(12332)-A(12333) - Vdot(1056) = A(9344)+A(9349)-A(10950) - Vdot(1057) = A(7008)-A(9071)-A(9072) - Vdot(1058) = A(2145)-A(4679) - Vdot(1059) = A(6968)-A(9032)-A(9033) - Vdot(1060) = A(14310)-A(14595)-A(14596) - Vdot(1061) = A(10158)-A(11669)-A(11670) - Vdot(1062) = A(10218)-A(11696)-A(11697) - Vdot(1063) = A(1192)-A(2997)-A(2998) - Vdot(1064) = A(6785)-A(8823)-A(8824) - Vdot(1065) = A(3681)-A(5986)-A(5987) - Vdot(1066) = A(663)-A(2424)-A(2425) - Vdot(1067) = A(5428)-A(7785)-A(7786) - Vdot(1068) = -A(47)+A(721)+A(6498) - Vdot(1069) = A(971)-A(2734)-A(2735) - Vdot(1070) = A(13173)-A(13842)-A(13843) - Vdot(1071) = A(10733)-A(12139)-A(12140) - Vdot(1072) = A(1325)-A(3151)-A(3152) - Vdot(1073) = A(3613)+A(3619)-A(5903)-A(5904) - Vdot(1074) = A(9421)-A(11025)-A(11026) - Vdot(1075) = A(5164)-A(7539)-A(7540) - Vdot(1076) = A(6403)-A(8457)-A(8458) - Vdot(1077) = A(14809)-A(14970)-A(14971) - Vdot(1078) = A(5296)+A(5302)-A(7668) - Vdot(1079) = A(1133)-A(2937)-A(2938) - Vdot(1080) = A(5346)-A(7706)-A(7707) - Vdot(1081) = A(651)-A(2409) - Vdot(1082) = A(1113)-A(2915)-A(2916) - Vdot(1083) = A(1775)-A(4077)-A(4078) - Vdot(1084) = A(5672)+A(5678)-A(7984)-A(7985) - Vdot(1085) = A(14383)-A(14656)-A(14657) - Vdot(1086) = A(5588)-A(7911)-A(7912) - Vdot(1087) = A(9103)+A(9109)-A(10754)-A(10755) - Vdot(1088) = A(8179)-A(10123)-A(10124) - Vdot(1089) = A(12107)-A(13100)-A(13101) - Vdot(1090) = A(9463)-A(11075)-A(11076) - Vdot(1091) = A(10035)-A(11583)-A(11584) - Vdot(1092) = A(8392)-A(10289)-A(10290) - Vdot(1093) = A(10698)-A(12113)-A(12114) - Vdot(1094) = A(13714)-A(14111)-A(14112) - Vdot(1095) = A(1799)-A(4119)-A(4120) - Vdot(1096) = A(9776)-A(11422)-A(11423) - Vdot(1097) = A(4899)+A(4905)-A(7269)-A(7270) - Vdot(1098) = A(6502)-A(8530)-A(8531) - Vdot(1099) = A(6810)-A(8848)-A(8849) - Vdot(1100) = A(4913)-A(7280)-A(7281) - Vdot(1101) = A(10313)-A(11777)-A(11778) - Vdot(1102) = A(4315)-A(6724)-A(6725) - Vdot(1103) = A(3885)-A(6216)-A(6217) - Vdot(1104) = A(9869)-A(11462)-A(11463) - Vdot(1105) = A(9744)-A(11393)-A(11394) - Vdot(1106) = A(2319)-A(4795)-A(4796) - Vdot(1107) = A(14502)-A(14753)-A(14754) - Vdot(1108) = A(573)-A(2305)-A(2306) - Vdot(1109) = A(5522)-A(7864)-A(7865) - Vdot(1110) = A(5274)+A(5280)-A(7652) - Vdot(1111) = A(5984)+A(8178)-A(8208)-A(8209) - Vdot(1112) = A(3736)-A(6054)-A(6055) - Vdot(1113) = A(4538)-A(6922)+A(8969) - Vdot(1114) = A(11344)-A(12511)-A(12512) - Vdot(1115) = A(9643)-A(11289)-A(11290) - Vdot(1116) = A(15010)-A(15098)-A(15099) - Vdot(1117) = A(11440)-A(12568)-A(12569) - Vdot(1118) = A(11617)-A(12686)-A(12687) - Vdot(1119) = A(13206)-A(13860)-A(13861) - Vdot(1120) = A(706)+A(711)-A(2480) - Vdot(1121) = A(1384)+A(1391)-A(3210) - Vdot(1122) = A(9660)-A(11310)-A(11311) - Vdot(1123) = A(8185)-A(10133)-A(10134) - Vdot(1124) = A(613)+A(634)-A(2362) - Vdot(1125) = A(7808)-A(9748)-A(9749) - Vdot(1126) = A(13158)-A(13823)-A(13824) - Vdot(1127) = A(7762)-A(9716)-A(9717) - Vdot(1128) = A(4739)-A(7161)-A(7162) - Vdot(1129) = A(8267)-A(10196)-A(10197) - Vdot(1130) = A(14710)-A(14897)-A(14898) - Vdot(1131) = A(1763)-A(4056)-A(4057) - Vdot(1132) = A(1982)-A(4429)-A(4430) - Vdot(1133) = A(8074)-A(10018)+A(10019)+A(11566) - Vdot(1134) = A(4836)-A(7225)-A(7226) - Vdot(1135) = A(12182)-A(13165)-A(13166) - Vdot(1136) = A(9617)-A(11253)-A(11254) - Vdot(1137) = A(13374)-A(13980)-A(13981) - Vdot(1138) = A(534)-A(2258)-A(2259) - Vdot(1139) = A(13745)-A(14150)-A(14151) - Vdot(1140) = A(524)-A(2247)+A(6854) - Vdot(1141) = A(1209)-A(3017)-A(3018) - Vdot(1142) = A(4776)-A(7186)-A(7187) - Vdot(1143) = A(1910)-A(4346)-A(4347) - Vdot(1144) = A(9963)-A(11530)-A(11531) - Vdot(1145) = A(9578)-A(11200)-A(11201) - Vdot(1146) = A(14419)-A(14679)-A(14680) - Vdot(1147) = A(9026)-A(10655)-A(10656) - Vdot(1148) = A(10317)-A(11780)-A(11781) - Vdot(1149) = A(13241)-A(13890)-A(13891) - Vdot(1150) = A(1677)-A(3855)-A(3856) - Vdot(1151) = A(9153)-A(10808) - Vdot(1152) = A(8002)-A(9934)-A(9935) - Vdot(1153) = A(2035)-A(4503)-A(4504) - Vdot(1154) = A(14976)-A(15074)-A(15075) - Vdot(1155) = A(14287)-A(14569)-A(14570) - Vdot(1156) = A(6241)-A(8366)-A(8367) - Vdot(1157) = A(3394)-A(5626)-A(5627) - Vdot(1158) = A(4769)-A(7182)-A(7183) - Vdot(1159) = A(1774)-A(4075)-A(4076) - Vdot(1160) = A(6776)-A(8816)-A(8817) - Vdot(1161) = A(3977)-A(6310)-A(6311) - Vdot(1162) = A(14293)-A(14575)-A(14576) - Vdot(1163) = A(13737)+A(13743)-A(14137)-A(14138) - Vdot(1164) = A(13008)-A(13667)-A(13668) - Vdot(1165) = A(5016)-A(7370)-A(7371) - Vdot(1166) = A(11665)-A(12717)-A(12718) - Vdot(1167) = A(3491)-A(5742)-A(5743) - Vdot(1168) = A(5203)-A(7581)-A(7582) - Vdot(1169) = A(11536)-A(12646)-A(12647) - Vdot(1170) = A(8153)-A(10087)-A(10088) - Vdot(1171) = A(1400)-A(3223)-A(3224) - Vdot(1172) = A(1839)-A(4164) - Vdot(1173) = A(12365)-A(13331)-A(13332) - Vdot(1174) = A(3670)+A(3676)-A(5974)-A(5975) - Vdot(1175) = A(6043)+A(6049)-A(8272)-A(8273) - Vdot(1176) = A(6433)-A(8475)-A(8476) - Vdot(1177) = A(2047)-A(4518)-A(4519) - Vdot(1178) = A(4726)-A(7140)-A(7141) - Vdot(1179) = A(4995)+A(5002)-A(7345) - Vdot(1180) = A(5090)-A(7459)-A(7460) - Vdot(1181) = A(13836)-A(14231)-A(14232) - Vdot(1182) = A(9185)-A(10821)-A(10822) - Vdot(1183) = A(9291)-A(10915)-A(10916) - Vdot(1184) = A(10378)-A(11808)-A(11809) - Vdot(1185) = A(903)-A(2668)-A(2669) - Vdot(1186) = A(2116)-A(4632)-A(4633) - Vdot(1187) = A(10227)-A(11703)-A(11704) - Vdot(1188) = A(5870)-A(8103)-A(8104) - Vdot(1189) = A(13720)+A(13726)-A(14119)-A(14120) - Vdot(1190) = A(9967)-A(11533)-A(11534) - Vdot(1191) = A(9521)-A(11136)-A(11137) - Vdot(1192) = A(11374)-A(12527)-A(12528) - Vdot(1193) = A(6903)-A(8950)-A(8951) - Vdot(1194) = A(599)+A(1317)-A(2343) - Vdot(1195) = A(10939)-A(12305)-A(12306) - Vdot(1196) = A(9610)-A(11249)-A(11250) - Vdot(1197) = A(9042)-A(10660)-A(10661) - Vdot(1198) = A(12521)-A(13402)-A(13403) - Vdot(1199) = A(14331)-A(14609)-A(14610) - Vdot(1200) = A(1746)-A(4012)-A(4013) - Vdot(1201) = A(11962)-A(12957)-A(12958) - Vdot(1202) = A(7245)-A(9379)-A(9380) - Vdot(1203) = A(12044)-A(13035)-A(13036) - Vdot(1204) = A(9427)-A(11029)-A(11030) - Vdot(1205) = A(4664)-A(7043)-A(7044) - Vdot(1206) = A(6206)-A(8352)-A(8353) - Vdot(1207) = A(1100)-A(2901)-A(2902) - Vdot(1208) = A(12951)-A(13625)-A(13626) - Vdot(1209) = A(14078)-A(14401)-A(14402) - Vdot(1210) = A(3236)+A(3242)-A(5420)-A(5421) - Vdot(1211) = A(1540)-A(3542)-A(3543) - Vdot(1212) = A(6834)-A(8875)-A(8876) - Vdot(1213) = A(9490)-A(11097)-A(11098) - Vdot(1214) = A(12048)-A(13038)-A(13039) - Vdot(1215) = A(11786)-A(12791)-A(12792) - Vdot(1216) = A(1747)-A(4014)-A(4015) - Vdot(1217) = A(6888)-A(8936)-A(8937) - Vdot(1218) = A(3824)-A(6152)-A(6153) - Vdot(1219) = A(15005)-A(15094)-A(15095) - Vdot(1220) = A(6513)-A(8545)-A(8546) - Vdot(1221) = A(9975)-A(11544)-A(11545) - Vdot(1222) = A(12826)+A(12832)-A(13582) - Vdot(1223) = A(11737)-A(12755)-A(12756) - Vdot(1224) = A(8119)-A(10059)-A(10060) - Vdot(1225) = A(12026)-A(13012)-A(13013) - Vdot(1226) = A(12502)-A(13394)-A(13395) - Vdot(1227) = A(6020)-A(8226)-A(8227) - Vdot(1228) = A(6129)-A(8314)-A(8315) - Vdot(1229) = A(11874)+A(11881)-A(12870) - Vdot(1230) = A(9772)-A(11420)-A(11421) - Vdot(1231) = A(8198)-A(10143)+A(10144)+A(11653) - Vdot(1232) = A(3645)-A(5941)-A(5942) - Vdot(1233) = A(12257)-A(13239)-A(13240) - Vdot(1234) = A(12436)-A(13355)-A(13356) - Vdot(1235) = A(1154)-A(2961)-A(2962) - Vdot(1236) = A(13322)-A(13957)-A(13958) - Vdot(1237) = A(10748)-A(12170)-A(12171) - Vdot(1238) = A(14583)+A(14589)-A(14818) - Vdot(1239) = A(1902)-A(4338)-A(4339) - Vdot(1240) = A(1788)+A(1789)+A(1790)-A(4109) - Vdot(1241) = A(2089)-A(4583)-A(4584) - Vdot(1242) = A(8692)+A(8699)-A(10462) - Vdot(1243) = A(7932)-A(9877)-A(9878) - Vdot(1244) = A(12471)-A(13378)-A(13379) - Vdot(1245) = A(12290)-A(13276)-A(13277) - Vdot(1246) = A(6637)+A(6638)+A(6639)-A(8674) - Vdot(1247) = A(12189)-A(13171)-A(13172) - Vdot(1248) = A(12562)-A(13428)-A(13429) - Vdot(1249) = A(11811)-A(12803)-A(12804) - Vdot(1250) = A(14250)-A(14521)-A(14522) - Vdot(1251) = A(7067)-A(9165)-A(9166) - Vdot(1252) = A(8253)-A(10185)-A(10186) - Vdot(1253) = A(9989)-A(11554)-A(11555) - Vdot(1254) = A(3971)-A(6306)-A(6307) - Vdot(1255) = A(9926)-A(11502)-A(11503) - Vdot(1256) = A(6432)+A(6438)-A(8473)-A(8474) - Vdot(1257) = A(14947)+A(15052)-A(15055)-A(15056)+A(15057) - Vdot(1258) = A(1852)-A(4179)-A(4180) - Vdot(1259) = A(1126)-A(2929)-A(2930) - Vdot(1260) = A(10721)-A(12131)-A(12132) - Vdot(1261) = A(5352)+A(5358)-A(7708) - Vdot(1262) = A(5068)-A(7429)-A(7430) - Vdot(1263) = A(14666)-A(14857)-A(14858) - Vdot(1264) = A(14141)-A(14438)-A(14439) - Vdot(1265) = A(589)-A(2332)-A(2333) - Vdot(1266) = A(9063)-A(10692)-A(10693) - Vdot(1267) = A(1086)-A(2885)-A(2886) - Vdot(1268) = A(13366)-A(13977)-A(13978) - Vdot(1269) = A(2612)+A(2617)-A(4955) - Vdot(1270) = A(1739)-A(4004)-A(4005) - Vdot(1271) = A(13390)-A(13986)-A(13987) - Vdot(1272) = A(13152)-A(13818)-A(13819) - Vdot(1273) = A(11687)-A(12727)-A(12728) - Vdot(1274) = A(4086)-A(6427)-A(6428) - Vdot(1275) = A(12990)-A(13649)-A(13650) - Vdot(1276) = A(1483)-A(3412)-A(3413) - Vdot(1277) = A(12033)-A(13019)-A(13020) - Vdot(1278) = A(11517)-A(12635)-A(12636) - Vdot(1279) = A(10974)-A(12316)-A(12317) - Vdot(1280) = A(1886)+A(4265)-A(4277) - Vdot(1281) = A(5102)-A(7473)-A(7474) - Vdot(1282) = A(5174)-A(7548)-A(7549) - Vdot(1283) = A(5636)-A(7937)-A(7938) - Vdot(1284) = A(9049)-A(10669)-A(10670) - Vdot(1285) = A(4290)-A(6704)-A(6705) - Vdot(1286) = A(9297)-A(10920)-A(10921) - Vdot(1287) = A(1451)-A(3343)-A(3344) - Vdot(1288) = A(1215)-A(3023)-A(3024) - Vdot(1289) = A(4198)-A(6561)-A(6562) - Vdot(1290) = A(5023)-A(7380)-A(7381) - Vdot(1291) = A(9508)-A(11125)-A(11126) - Vdot(1292) = A(6892)-A(8938)-A(8939) - Vdot(1293) = A(10029)-A(11572)-A(11573) - Vdot(1294) = A(8049)-A(9997)-A(9998) - Vdot(1295) = A(14347)-A(14638)-A(14639) - Vdot(1296) = A(3428)-A(5667)-A(5668) - Vdot(1297) = A(2121)+A(2126)-A(4635) - Vdot(1298) = A(998)-A(2767)-A(2768) - Vdot(1299) = A(4025)-A(6366)-A(6367) - Vdot(1300) = A(1220)-A(3026)-A(3027) - Vdot(1301) = A(12705)-A(13509)-A(13510) - Vdot(1302) = A(1186)-A(2990)-A(2991) - Vdot(1303) = A(5937)-A(8165)-A(8166) - Vdot(1304) = A(5225)-A(7605)-A(7606) - Vdot(1305) = A(1918)-A(4355)-A(4356) - Vdot(1306) = A(4300)-A(6713)-A(6714) - Vdot(1307) = A(1438)-A(3306)-A(3307) - Vdot(1308) = A(10099)-A(11625)-A(11626) - Vdot(1309) = A(11575)-A(12667)-A(12668) - Vdot(1310) = A(1660)-A(3809)-A(3810) - Vdot(1311) = A(9027)-A(10657) - Vdot(1312) = A(13731)-A(14131)-A(14132) - Vdot(1313) = A(2054)-A(4529)-A(4530) - Vdot(1314) = A(7088)-A(9217)-A(9218) - Vdot(1315) = A(1553)-A(3578)-A(3579) - Vdot(1316) = A(3319)+A(3325)-A(5528)-A(5529) - Vdot(1317) = A(12202)-A(13187)-A(13188) - Vdot(1318) = A(9135)-A(10780)-A(10781) - Vdot(1319) = A(10593)-A(12004)-A(12005) - Vdot(1320) = A(12976)-A(13637)-A(13638) - Vdot(1321) = A(10561)-A(11973) - Vdot(1322) = A(9780)-A(11425)-A(11426) - Vdot(1323) = A(9497)-A(11107)-A(11108) - Vdot(1324) = A(9011)-A(10643)-A(10644) - Vdot(1325) = A(9113)-A(10763)-A(10764) - Vdot(1326) = A(5168)-A(7542)-A(7543) - Vdot(1327) = A(9476)-A(11088)-A(11089) - Vdot(1328) = A(14611)-A(14831)-A(14832) - Vdot(1329) = A(10049)-A(11593)-A(11594) - Vdot(1330) = A(4024)+A(4030)-A(6364)-A(6365) - Vdot(1331) = A(13262)-A(13903)-A(13904) - Vdot(1332) = A(795)-A(2560)-A(2561) - Vdot(1333) = A(13300)-A(13940)-A(13941) - Vdot(1334) = A(9340)-A(10948) - Vdot(1335) = A(12709)-A(13512)-A(13513) - Vdot(1336) = A(13868)-A(14266)-A(14267) - Vdot(1337) = A(6855)-A(8899)-A(8900) - Vdot(1338) = A(13398)-A(13989)-A(13990) - Vdot(1339) = A(14523)-A(14770)-A(14771) - Vdot(1340) = A(5082)-A(7450)-A(7451) - Vdot(1341) = A(1425)-A(3285)-A(3286) - Vdot(1342) = A(11485)-A(12615)-A(12616) - Vdot(1343) = A(3365)+A(3371)-A(5578)-A(5579) - Vdot(1344) = A(14686)+A(14692)-A(14873)-A(14874) - Vdot(1345) = A(8242)-A(10177)-A(10178) - Vdot(1346) = A(6596)+A(6597)+A(6598)-A(8610) - Vdot(1347) = A(14912)-A(15028)-A(15029) - Vdot(1348) = A(13762)-A(14166)-A(14167) - Vdot(1349) = A(5236)-A(7617)-A(7618) - Vdot(1350) = A(13119)-A(13780)-A(13781) - Vdot(1351) = A(10708)-A(12120)-A(12121) - Vdot(1352) = A(1831)-A(4151)-A(4152) - Vdot(1353) = A(8985)-A(10619)-A(10620) - Vdot(1354) = A(3427)+A(3433)-A(5665)-A(5666) - Vdot(1355) = A(6006)-A(8218)-A(8219) - Vdot(1356) = A(5427)+A(5433)-A(7783)-A(7784) - Vdot(1357) = A(14369)-A(14648)-A(14649) - Vdot(1358) = A(10258)-A(11734)-A(11735) - Vdot(1359) = A(10107)-A(11630)-A(11631) - Vdot(1360) = A(12967)-A(13633)-A(13634) - Vdot(1361) = A(8230)-A(10170)-A(10171) - Vdot(1362) = A(2100)-A(4593)-A(4594) - Vdot(1363) = A(5311)+A(5317)-A(7681) - Vdot(1364) = A(4278)-A(6689)-A(6690) - Vdot(1365) = A(1817)-A(4132)-A(4133) - Vdot(1366) = A(9950)-A(11521)-A(11522) - Vdot(1367) = A(12062)-A(13062)-A(13063) - Vdot(1368) = A(6208)-A(8354)-A(8355) - Vdot(1369) = A(539)+A(552)-A(2262) - Vdot(1370) = A(3876)-A(6200)-A(6201) - Vdot(1371) = A(9090)-A(10728)-A(10729) - Vdot(1372) = A(9230)+A(10856)-A(10859)+A(10860) - Vdot(1373) = A(9227)-A(10856)-A(10857) - Vdot(1374) = A(5221)-A(7602)-A(7603) - Vdot(1375) = A(5157)-A(7531)-A(7532) - Vdot(1376) = A(11412)-A(12555)-A(12556) - Vdot(1377) = A(1795)-A(4116)-A(4117) - Vdot(1378) = A(6164)-A(8330)-A(8331) - Vdot(1379) = A(9930)-A(11505)-A(11506) - Vdot(1380) = A(4815)-A(7207)-A(7208) - Vdot(1381) = A(14225)-A(14490)-A(14491) - Vdot(1382) = A(5196)-A(7572)-A(7573) - Vdot(1383) = A(9007)-A(10640)-A(10641) - Vdot(1384) = A(9157)+A(9162)-A(10810) - Vdot(1385) = A(1653)-A(3799)-A(3800) - Vdot(1386) = A(1355)+A(1361)-A(3182) - Vdot(1387) = A(5247)-A(7629)-A(7630) - Vdot(1388) = A(8125)-A(10069)-A(10070) - Vdot(1389) = A(6205)+A(6211)-A(8350)-A(8351) - Vdot(1390) = A(12074)-A(13075)-A(13076) - Vdot(1391) = A(1289)-A(3106)-A(3107) - Vdot(1392) = A(13569)-A(14050)-A(14051) - Vdot(1393) = A(11706)-A(12738)-A(12739) - Vdot(1394) = A(12144)+A(12150)-A(13125)-A(13126) - Vdot(1395) = A(1845)-A(4173)-A(4174) - Vdot(1396) = A(4070)-A(6415)-A(6416) - Vdot(1397) = A(10982)-A(12323)-A(12324) - Vdot(1398) = A(9677)-A(11331)-A(11332) - Vdot(1399) = A(10279)-A(11754)-A(11755) - Vdot(1400) = A(638)-A(2392) - Vdot(1401) = A(5214)-A(7593)-A(7594) - Vdot(1402) = A(13738)-A(14139)-A(14140) - Vdot(1403) = A(3484)+A(3490)-A(5736)-A(5737) - Vdot(1404) = A(6044)-A(8274)-A(8275) - Vdot(1405) = A(3925)+A(3931)-A(6253)-A(6254) - Vdot(1406) = A(6862)-A(8908)-A(8909) - Vdot(1407) = A(9253)-A(10869)-A(10870) - Vdot(1408) = A(14695)-A(14887)-A(14888) - Vdot(1409) = A(3875)+A(3881)-A(6198)-A(6199) - Vdot(1410) = A(5232)-A(7614)-A(7615) - Vdot(1411) = A(14549)-A(14784)-A(14785) - Vdot(1412) = A(10308)-A(11773)-A(11774) - Vdot(1413) = A(13912)-A(14317)-A(14318) - Vdot(1414) = A(13689)-A(14093)-A(14094) - Vdot(1415) = A(3437)-A(5684)-A(5685) - Vdot(1416) = A(5210)-A(7590)-A(7591) - Vdot(1417) = A(3237)-A(5422)-A(5423) - Vdot(1418) = A(12485)-A(13386)-A(13387) - Vdot(1419) = A(5703)-A(7996)-A(7997) - Vdot(1420) = A(11448)-A(12574)-A(12575) - Vdot(1421) = A(8030)-A(9971)-A(9972) - Vdot(1422) = A(580)-A(2313)-A(2314) - Vdot(1423) = A(11764)-A(12772)-A(12773) - Vdot(1424) = A(10713)-A(12125)-A(12126) - Vdot(1425) = A(10503)+A(10508)-A(11910) - Vdot(1426) = A(11508)-A(12629)-A(12630) - Vdot(1427) = A(9736)-A(11388)-A(11389) - Vdot(1428) = A(12098)-A(13092)-A(13093) - Vdot(1429) = A(7824)-A(9784)-A(9785) - Vdot(1430) = A(4849)-A(7249)-A(7250) - Vdot(1431) = A(1579)-A(3637)-A(3638) - Vdot(1432) = A(6163)+A(6169)-A(8328)-A(8329) - Vdot(1433) = A(11928)+A(11934)-A(12930) - Vdot(1434) = A(1407)-A(3227)-A(3228) - Vdot(1435) = A(10274)-A(11750)-A(11751) - Vdot(1436) = A(4929)-A(7296)-A(7297) - Vdot(1437) = A(8999)-A(10634)-A(10635) - Vdot(1438) = A(6556)-A(8586)-A(8587) - Vdot(1439) = A(14755)-A(14929)-A(14930) - Vdot(1440) = A(11036)+A(11042)-A(12336)-A(12337) - Vdot(1441) = A(11174)-A(12377)-A(12378) - Vdot(1442) = A(10684)+A(10690)-A(12094)-A(12095) - Vdot(1443) = A(7972)-A(9906)-A(9907) - Vdot(1444) = A(12298)-A(13293)-A(13294) - Vdot(1445) = A(4295)-A(6708)-A(6709) - Vdot(1446) = A(9630)-A(11271)-A(11272) - Vdot(1447) = A(9125)-A(10773)-A(10774) - Vdot(1448) = A(9438)-A(11045)-A(11046) - Vdot(1449) = A(6761)-A(8804)-A(8805) - Vdot(1450) = A(8406)-A(10321)-A(10322) - Vdot(1451) = A(1458)-A(3353)-A(3354) - Vdot(1452) = A(10240)-A(11721)-A(11722) - Vdot(1453) = A(10300)-A(11768)-A(11769) - Vdot(1454) = A(10890)-A(12273)-A(12274) - Vdot(1455) = A(11679)-A(12721)-A(12722) - Vdot(1456) = A(5560)-A(7871)-A(7872) - Vdot(1457) = A(11798)+A(11804)-A(12798) - Vdot(1458) = A(1628)-A(3743)-A(3744) - Vdot(1459) = A(10223)-A(11700)-A(11701) - Vdot(1460) = A(12592)-A(13447)-A(13448) - Vdot(1461) = A(15143)-A(15164)-A(15165) - Vdot(1462) = A(6932)-A(8981)-A(8982) - Vdot(1463) = A(14243)-A(14515)-A(14516) - Vdot(1464) = A(14374)-A(14652)-A(14653) - Vdot(1465) = A(3831)-A(6158)-A(6159) - Vdot(1466) = A(768)-A(2536)-A(2537) - Vdot(1467) = A(11848)-A(12842)-A(12843) - Vdot(1468) = A(2157)-A(4686)-A(4687) - Vdot(1469) = A(1073)-A(2868)-A(2869) - Vdot(1470) = A(4614)-A(6996)-A(6997) - Vdot(1471) = A(11005)-A(12327)-A(12328) - Vdot(1472) = A(11513)-A(12632)-A(12633) - Vdot(1473) = A(3926)-A(6255)-A(6256) - Vdot(1474) = A(15131)-A(15153)-A(15154) - Vdot(1475) = A(9384)-A(10987)-A(10988) - Vdot(1476) = A(5790)-A(8041)-A(8042) - Vdot(1477) = A(9556)-A(11170)-A(11171) - Vdot(1478) = A(9694)-A(11360)-A(11361) - Vdot(1479) = A(12228)-A(13204)-A(13205) - Vdot(1480) = A(13269)-A(13910)-A(13911) - Vdot(1481) = A(3970)+A(3976)-A(6304)-A(6305) - Vdot(1482) = A(12351)-A(13316) - Vdot(1483) = A(11379)+A(12527)+A(12530)-A(12531) - Vdot(1484) = A(1476)-A(3402)-A(3403) - Vdot(1485) = A(14555)-A(14791)-A(14792) - Vdot(1486) = A(1635)-A(3753)-A(3754) - Vdot(1487) = A(9131)-A(10777)-A(10778) - Vdot(1488) = A(1026)-A(2805)-A(2806) - Vdot(1489) = A(8992)+A(8998)-A(10628)-A(10629) - Vdot(1490) = A(9455)-A(11067)-A(11068) - Vdot(1491) = A(1119)-A(2921)-A(2922) - Vdot(1492) = A(9055)-A(10674)-A(10675) - Vdot(1493) = A(14240)+A(14509)-A(14512)-A(14513)+A(14514) - Vdot(1494) = A(12834)+A(12840)-A(13587) - Vdot(1495) = A(6872)-A(8920)-A(8921) - Vdot(1496) = A(12017)-A(13001)-A(13002) - Vdot(1497) = A(9958)-A(11526)-A(11527) - Vdot(1498) = A(6882)-A(8932)-A(8933) - Vdot(1499) = A(9515)-A(11129)-A(11130) - Vdot(1500) = A(746)-A(2510)-A(2511) - Vdot(1501) = A(1106)-A(2907)-A(2908) - Vdot(1502) = A(9281)-A(10885)-A(10886) - Vdot(1503) = A(3947)-A(6285)-A(6286) - Vdot(1504) = A(11579)-A(12670)-A(12671) - Vdot(1505) = A(15059)-A(15120)-A(15121) - Vdot(1506) = A(5043)-A(7400)-A(7401) - Vdot(1507) = A(14562)-A(14799)-A(14800) - Vdot(1508) = A(11384)-A(12535)-A(12536) - Vdot(1509) = A(12237)-A(13218)-A(13219) - Vdot(1510) = A(3565)-A(5838)-A(5839) - Vdot(1511) = A(13197)-A(13856)-A(13857) - Vdot(1512) = A(9993)-A(11557)-A(11558) - Vdot(1513) = A(3830)+A(3836)-A(6156)-A(6157) - Vdot(1514) = A(5109)-A(7482)-A(7483) - Vdot(1515) = A(5329)-A(7694)-A(7695) - Vdot(1516) = A(2298)-A(4790)-A(4791) - Vdot(1517) = A(9080)-A(10704)-A(10705) - Vdot(1518) = A(11887)-A(12884)-A(12885) - Vdot(1519) = A(14601)-A(14823)-A(14824) - Vdot(1520) = A(2149)+A(2154)-A(4681) - Vdot(1521) = A(5020)+A(5040)-A(7375) - Vdot(1522) = A(14425)-A(14683)-A(14684) - Vdot(1523) = A(9210)-A(10849)-A(10850) - Vdot(1524) = A(10283)-A(11757)-A(11758) - Vdot(1525) = A(1721)-A(3960)-A(3961) - Vdot(1526) = A(9664)-A(11313)-A(11314) - Vdot(1527) = A(14738)-A(14907)-A(14908) - Vdot(1528) = A(14157)-A(14451)-A(14452) - Vdot(1529) = A(6514)-A(8547) - Vdot(1530) = A(8441)-A(10345)-A(10346) - Vdot(1531) = A(4809)-A(7201) - Vdot(1532) = A(10166)-A(11674)-A(11675) - Vdot(1533) = A(1509)-A(3475)-A(3476) - Vdot(1534) = A(5254)-A(7638)-A(7639) - Vdot(1535) = A(1684)-A(3863)-A(3864) - Vdot(1536) = A(5258)-A(7641)-A(7642) - Vdot(1537) = A(6067)-A(8283)-A(8284) - Vdot(1538) = A(14877)-A(15014)-A(15015) - Vdot(1539) = A(8109)-A(10057)-A(10058) - Vdot(1540) = A(12081)-A(13083)-A(13084) - Vdot(1541) = A(14104)-A(14415)-A(14416) - Vdot(1542) = A(1604)-A(3694)-A(3695) - Vdot(1543) = A(9681)-A(11334)-A(11335) - Vdot(1544) = A(14996)-A(15088)-A(15089) - Vdot(1545) = A(4783)-A(7194)-A(7195) - Vdot(1546) = A(14258)-A(14533)-A(14534) - Vdot(1547) = A(9533)-A(11150)-A(11151) - Vdot(1548) = A(11186)-A(12392)-A(12393) - Vdot(1549) = A(3391)-A(5618)-A(5619) - Vdot(1550) = A(13210)+A(13213)+A(13860)+A(13862)-A(13865)+A(13866) - Vdot(1551) = A(13207)-A(13862)-A(13863) - Vdot(1552) = A(9542)+A(9543)+A(9544)+A(11154)+A(11157)-A(11159) - Vdot(1553) = A(6753)+A(6754)+A(6755)+A(8790)+A(8793)-A(8794) - Vdot(1554) = A(3993)-A(6332)-A(6333) - Vdot(1555) = A(3956)-A(6294)-A(6295) - Vdot(1556) = A(6897)+A(6898)+A(6899)+A(8941)-A(8944)+A(8945) - Vdot(1557) = A(9590)-A(11216)-A(11217) - Vdot(1558) = A(6607)-A(8623)-A(8624) - Vdot(1559) = A(5144)+A(5145)+A(5146)+A(7516)+A(7519)-A(7521) - Vdot(1560) = A(3944)-A(6276)-A(6277)-A(6278) - Vdot(1561) = A(13817)-A(14209)-A(14210) - Vdot(1562) = A(5307)-A(7679)-A(7680) - Vdot(1563) = A(5038)+A(5039)+A(5042)+A(7390)+A(7393)-A(7395) - Vdot(1564) = A(5058)+A(5059)+A(5062)+A(7413)+A(7416)-A(7418) - Vdot(1565) = A(2086)+A(4542)+A(4578)+A(4579)-A(4582) - Vdot(1566) = A(6847)-A(8890)-A(8891) - Vdot(1567) = A(3901)-A(6237)-A(6238) - Vdot(1568) = A(542)+A(543)+A(545)+A(2265)+A(2267)-A(2268) - Vdot(1569) = A(7173)-A(9336)-A(9337)-A(9338) - Vdot(1570) = A(5462)-A(7802)-A(7803) - Vdot(1571) = A(11266)-A(12455)-A(12456) - Vdot(1572) = A(9028)+A(9029)+A(9030)+A(10656)-A(10658)+A(10659) - Vdot(1573) = A(72)-A(586)-A(587)-A(588) - Vdot(1574) = A(1946)+A(1947)+A(1949)+A(2995)+A(4390)-A(4391) - Vdot(1575) = A(8725)-A(10494)-A(10495) - Vdot(1576) = A(4106)-A(6462)-A(6463) - Vdot(1577) = -A(78)-A(79)-A(80)+A(969) - Vdot(1578) = A(8296)-A(10206)-A(10207) - Vdot(1579) = A(13746)+A(13747)+A(13749)+A(14151)-A(14152)+A(14156) - Vdot(1580) = -A(421)-A(422)-A(423) - Vdot(1581) = A(2155)+A(4651)+A(4681)+A(4682)-A(4685) - Vdot(1582) = A(659)-A(2418)-A(2419) - Vdot(1583) = A(3893)+A(3894)+A(3895)+A(6228)-A(6229)+A(6232) - Vdot(1584) = A(3896)-A(6230)-A(6231)-A(6232) - Vdot(1585) = A(4657)-A(7033)-A(7034) - Vdot(1586) = A(10793)-A(12217)-A(12218) - Vdot(1587) = A(2046)-A(4516)-A(4517) - Vdot(1588) = A(3342)-A(5556)-A(5557) - Vdot(1589) = A(3822)-A(6150)-A(6151) - Vdot(1590) = A(13245)+A(13248)+A(13890)+A(13892)-A(13895)+A(13896) - Vdot(1591) = A(13242)-A(13892)-A(13893) - Vdot(1592) = A(1940)+A(1941)+A(1944)+A(3022)+A(4383)-A(4384) - Vdot(1593) = A(10534)+A(10535)+A(10538)+A(11950)+A(11952)-A(11953) - Vdot(1594) = A(4050)-A(6391)-A(6392) - Vdot(1595) = A(1959)+A(1960)+A(1962)+A(3089)+A(4409)-A(4410) - Vdot(1596) = -A(66)-A(67)-A(68)+A(956) - Vdot(1597) = A(8799)+A(8800)+A(8801)+A(10545)+A(10548)-A(10549) - Vdot(1598) = A(3576)-A(5852)-A(5853) - Vdot(1599) = A(2034)-A(4501)-A(4502) - Vdot(1600) = A(3853)-A(6187)-A(6188) - Vdot(1601) = A(6880)-A(8930)-A(8931) - Vdot(1602) = A(7843)-A(9794)-A(9795) - Vdot(1603) = A(10433)-A(11842)-A(11843) - Vdot(1604) = A(4604)+A(6981)+A(6983)+A(6986)-A(6987)+A(6988) - Vdot(1605) = A(9111)+A(9114)+A(9116)+A(9117)-A(10760)-A(10761)+A(10762)+A(10764) - Vdot(1606) = A(7973)+A(7974)+A(7975)+A(9907)-A(9908)+A(9909) - Vdot(1607) = A(9522)+A(9523)+A(9524)+A(11136)-A(11138)+A(11139) - Vdot(1608) = A(8991)+A(8994)+A(8996)+A(8997)-A(10626)-A(10627)+A(10628)+A(10629)+A(10631) - Vdot(1609) = A(3448)-A(5699)-A(5700) - Vdot(1610) = A(3447)+A(5694)-A(5697)-A(5698)+A(5699) - Vdot(1611) = A(4716)-A(7121)-A(7122) - Vdot(1612) = A(4738)-A(7159)-A(7160) - Vdot(1613) = A(3538)-A(5803)-A(5804) - Vdot(1614) = A(13252)+A(13253)+A(13254)+A(13898)+A(13900)-A(13901) - Vdot(1615) = A(10799)-A(12225)-A(12226) - Vdot(1616) = A(5005)+A(5006)+A(5007)+A(7355)+A(7358)-A(7360) - Vdot(1617) = A(13195)+A(13198)+A(13200)+A(13201)-A(13853)-A(13854)+A(13855)+A(13857) - Vdot(1618) = A(13771)-A(14174)-A(14175) - Vdot(1619) = A(9209)-A(10847)-A(10848) - Vdot(1620) = A(13283)+A(13284)+A(13285)+A(13931)-A(13932)+A(13933) - Vdot(1621) = A(5383)-A(7733)-A(7734) - Vdot(1622) = A(8268)+A(8269)+A(8270)+A(10197)-A(10198)+A(10199) - Vdot(1623) = A(3635)-A(5929)-A(5930) - Vdot(1624) = A(9251)+A(9254)+A(9256)+A(9257)-A(10866)-A(10867)+A(10868)+A(10870) - Vdot(1625) = A(10430)-A(11840)-A(11841) - Vdot(1626) = A(6507)-A(8534)-A(8535) - Vdot(1627) = A(5129)+A(5130)+A(5132)+A(7502)+A(7505)-A(7507) - Vdot(1628) = A(9301)+A(10864)+A(10920)+A(10922)-A(10925)+A(10926) - Vdot(1629) = A(9298)-A(10922)-A(10923) - Vdot(1630) = A(12163)-A(13144)-A(13145) - Vdot(1631) = A(12160)+A(12161)+A(12162)+A(13141)-A(13143)+A(13144) - Vdot(1632) = A(11233)-A(12431)-A(12432) - Vdot(1633) = A(11223)-A(12418)-A(12419) - Vdot(1634) = A(717)+A(719)+A(720)+A(2487)+A(2490)-A(2492) - Vdot(1635) = -A(169)-A(170)-A(171)-A(172)-A(173)-A(174) - Vdot(1636) = A(3692)-A(6000)-A(6001) - Vdot(1637) = A(9531)-A(11147)-A(11148) - Vdot(1638) = A(1965)+A(1966)+A(1968)+A(3082)+A(4416)-A(4417) - Vdot(1639) = A(13620)-A(14053)-A(14054) - Vdot(1640) = A(3940)+A(3941)+A(3943)+A(6271)-A(6272)+A(6278) - Vdot(1641) = -A(191)-A(192)-A(193)-A(194)-A(195)-A(196) - Vdot(1642) = A(4158)-A(6498)-A(6499)-A(6500)-A(6501) - Vdot(1643) = A(13116)+A(13185)+A(13773)-A(13777)+A(13778) - Vdot(1644) = A(6488)-A(8514)-A(8515) - Vdot(1645) = A(5643)+A(5644)+A(5645)+A(7942)-A(7943) - Vdot(1646) = A(6817)-A(8855)-A(8856) - Vdot(1647) = A(3708)-A(6016)-A(6017) - Vdot(1648) = A(13916)+A(13919)+A(14317)+A(14319)-A(14322)+A(14323) - Vdot(1649) = A(13913)-A(14319)-A(14320) - Vdot(1650) = A(6867)+A(6868)+A(6871)+A(7752)+A(8914)-A(8915) - Vdot(1651) = A(10484)-A(11883)-A(11884) - Vdot(1652) = A(14711)+A(14712)+A(14714)+A(14898)-A(14899)+A(14903) - Vdot(1653) = A(5067)-A(7427)-A(7428) - Vdot(1654) = A(5064)+A(5065)+A(5066)+A(7424)-A(7426)+A(7428) - Vdot(1655) = A(6807)-A(8844)-A(8845) - Vdot(1656) = A(10901)+A(12275)+A(12277)+A(12279)-A(12282)+A(12283) - Vdot(1657) = A(10898)-A(12279)-A(12280) - Vdot(1658) = A(6824)-A(8864)-A(8865) - Vdot(1659) = A(9475)-A(11086)-A(11087) - Vdot(1660) = A(14262)+A(14533)+A(14535)+A(14537)-A(14539)+A(14540) - Vdot(1661) = A(4184)+A(4332)+A(4333)+A(4336)-A(6532)+A(6629) - Vdot(1662) = A(788)+A(789)+A(791)+A(2553)+A(2556)-A(2558) - Vdot(1663) = A(5116)+A(5117)+A(5119)+A(7487)+A(7490)-A(7492) - Vdot(1664) = A(3461)-A(5716)-A(5717) - Vdot(1665) = A(4043)-A(6383)-A(6384) - Vdot(1666) = A(6196)-A(8346)-A(8347) - Vdot(1667) = A(4998)+A(4999)+A(5001)+A(7346)+A(7349)-A(7351) - Vdot(1668) = A(9197)-A(10831)-A(10832) - Vdot(1669) = A(3768)-A(6086)-A(6087) - Vdot(1670) = A(5389)-A(7738)-A(7739) - Vdot(1671) = A(648)-A(2403)-A(2404) - Vdot(1672) = A(3590)-A(5866)-A(5867) - Vdot(1673) = A(2060)-A(4537)-A(4538) - Vdot(1674) = A(11355)-A(12519)-A(12520) - Vdot(1675) = A(7858)+A(7859)+A(7860)+A(9818)-A(9819)+A(9820) - Vdot(1676) = A(10712)-A(12123)-A(12124) - Vdot(1677) = A(9528)+A(9529)+A(9530)+A(11143)-A(11146)+A(11148) - Vdot(1678) = A(14961)-A(15069)-A(15070) - Vdot(1679) = A(494)+A(495)+A(496)+A(2212)+A(2215)-A(2217) - Vdot(1680) = A(8254)+A(8255)+A(8256)+A(10186)-A(10187)+A(10188) - Vdot(1681) = A(7890)-A(9837)-A(9838) - Vdot(1682) = A(6648)-A(8689)-A(8690) - Vdot(1683) = A(6471)-A(8497)-A(8498) - Vdot(1684) = A(8573)+A(8721)+A(8722)+A(8723)-A(10372)+A(10490) - Vdot(1685) = A(8733)-A(10501)-A(10502) - Vdot(1686) = -A(51)-A(52)-A(53)+A(765) - Vdot(1687) = A(9203)-A(10839)-A(10840) - Vdot(1688) = -A(197)-A(198)-A(199)-A(200)-A(201)-A(202) - Vdot(1689) = A(10709)+A(10710)+A(10711)+A(12121)-A(12122)+A(12124) - Vdot(1690) = A(11192)-A(12400)-A(12401) - Vdot(1691) = A(13814)+A(13815)+A(13816)+A(14206)-A(14208)+A(14209) - Vdot(1692) = A(5077)+A(5078)+A(5080)+A(7439)+A(7442)-A(7444) - Vdot(1693) = A(5074)-A(7437)-A(7438) - Vdot(1694) = A(5113)-A(7485)-A(7486) - Vdot(1695) = A(761)+A(762)+A(764)+A(2529)+A(2532)-A(2534) - Vdot(1696) = A(6998)-A(9062)+A(10694)+A(12110)+A(13100)+A(13103) - Vdot(1697) = -A(56)-A(57)-A(58)+A(813) - Vdot(1698) = A(3263)-A(5456)-A(5457) - Vdot(1699) = A(2004)+A(2005)+A(2008)+A(3204)+A(4464)-A(4465) - Vdot(1700) = A(3507)-A(5764)-A(5765) - Vdot(1701) = -A(61)-A(62)-A(63)+A(927) - Vdot(1702) = A(776)+A(777)+A(779)+A(2542)+A(2544)-A(2545) - Vdot(1703) = -A(315)-A(316)-A(317)+A(1791) - Vdot(1704) = A(2015)-A(4475)-A(4476) - Vdot(1705) = A(6870)-A(8918)-A(8919) - Vdot(1706) = A(9163)+A(10787)+A(10810)+A(10811)-A(10814) - Vdot(1707) = A(11284)-A(12469)-A(12470) - Vdot(1708) = -A(163)-A(164)-A(165)-A(166)-A(167)-A(168) - Vdot(1709) = -A(177)-A(178)-A(179)-A(180)-A(181)-A(182) - Vdot(1710) = A(8263)+A(8264)+A(8265)+A(10193)-A(10194)+A(10195) - Vdot(1711) = A(2020)-A(4484)-A(4485) - Vdot(1712) = A(2019)+A(4477)-A(4482)-A(4483)+A(4484) - Vdot(1713) = A(7960)+A(7961)+A(7962)+A(9896)-A(9897)+A(9898) - Vdot(1714) = A(5110)+A(5111)+A(5112)+A(7482)-A(7484)+A(7486) - Vdot(1715) = A(925)+A(926)+A(928)+A(2689)+A(2692)-A(2694) - Vdot(1716) = A(6401)-A(8453)-A(8454) - Vdot(1717) = A(3654)-A(5950)-A(5951) - Vdot(1718) = A(4663)-A(7041)-A(7042) - Vdot(1719) = A(1994)-A(4447)-A(4448) - Vdot(1720) = A(4922)+A(4923)+A(4924)+A(7284)+A(7287)-A(7289) - Vdot(1721) = A(5097)+A(5098)+A(5100)+A(7463)+A(7466)-A(7468) - Vdot(1722) = A(11228)-A(12424)-A(12425) - Vdot(1723) = A(11225)+A(11226)+A(11227)+A(12420)-A(12423)+A(12425) - Vdot(1724) = A(14634)+A(14635)+A(14636)+A(14846)+A(14848)-A(14849) - Vdot(1725) = A(803)+A(804)+A(805)+A(2566)+A(2568)-A(2569) - Vdot(1726) = A(8019)-A(9943)-A(9944) - Vdot(1727) = A(7903)+A(7904)+A(7905)+A(9850)-A(9851)+A(9852) - Vdot(1728) = A(6751)+A(6757)+A(8789)-A(8791)+A(8792)+A(8795) - Vdot(1729) = A(4069)-A(6413)-A(6414) - Vdot(1730) = -A(69)-A(70)-A(71)+A(963) - Vdot(1731) = A(13118)-A(13778)-A(13779) - Vdot(1732) = A(13715)+A(13716)+A(13718)+A(14112)-A(14113)+A(14118) - Vdot(1733) = -A(48)-A(49)-A(50)+A(742) - Vdot(1734) = A(7849)-A(9802)-A(9803) - Vdot(1735) = A(6352)-A(8414)-A(8415) - Vdot(1736) = A(2198)+A(4694)+A(4750)+A(4751)-A(4754) - Vdot(1737) = A(2023)+A(2024)+A(2026)+A(3196)+A(4489)-A(4490) - Vdot(1738) = A(9350)+A(10938)+A(10950)+A(10951)-A(10954) - Vdot(1739) = A(12235)+A(12238)+A(12240)+A(12241)-A(13215)-A(13216)+A(13217)+A(13219) - Vdot(1740) = A(11326)-A(12500)-A(12501) - Vdot(1741) = A(979)+A(980)+A(2739)+A(2742)-A(2744) - Vdot(1742) = A(4722)-A(7129)-A(7130) - Vdot(1743) = A(6739)+A(6740)+A(6741)+A(8772)+A(8774)-A(8775) - Vdot(1744) = A(11305)-A(12483)-A(12484) - Vdot(1745) = A(8442)+A(8443)+A(8444)+A(10346)-A(10347)+A(10348) - Vdot(1746) = A(480)-A(2184)-A(2185)-A(2186) - Vdot(1747) = A(3300)-A(5489)-A(5490) - Vdot(1748) = A(8651)+A(8652)+A(8654)+A(10432)-A(10435) - Vdot(1749) = A(738)-A(2507)-A(2508) - Vdot(1750) = A(48)-A(484)+A(739)+A(740)+A(741)+A(2504)+A(2507) - Vdot(1751) = A(1032)-A(2812)-A(2813)-A(2814) - Vdot(1752) = A(12299)-A(13295)-A(13296) - Vdot(1753) = A(1039)-A(2822)-A(2823)-A(2824) - Vdot(1754) = A(1402)+A(1403)+A(1405)+A(3222)+A(3224)-A(3225)+A(3226) - Vdot(1755) = A(5018)+A(5019)+A(5021)+A(7370)+A(7372)-A(7374) - Vdot(1756) = A(13839)+A(14231)-A(14234)-A(14235)+A(14236) - Vdot(1757) = A(14716)-A(14904)-A(14905) - Vdot(1758) = A(7109)-A(9238)-A(9239) - Vdot(1759) = A(13335)-A(13961)-A(13962)-A(13963) - Vdot(1760) = A(3573)+A(3574)+A(3575)+A(5850)-A(5851) - Vdot(1761) = A(14086)+A(14404)-A(14406)-A(14407) - Vdot(1762) = A(10584)-A(11996)-A(11997) - Vdot(1763) = A(1807)+A(4122)-A(4124)-A(4125) - Vdot(1764) = A(2429)+A(2435)-A(4855)+A(8529) - Vdot(1765) = A(5585)+A(5591)+A(6103)-A(7907)-A(7908) - Vdot(1766) = A(14226)-A(14492) - Vdot(1767) = A(1380)-A(3206)-A(3207)-A(3208) - Vdot(1768) = A(8065)-A(10012)-A(10013)-A(10014) - Vdot(1769) = A(9205)+A(9206)+A(9208)+A(10842)-A(10844) - Vdot(1770) = A(6975)-A(9038)-A(9039) - Vdot(1771) = A(4727)-A(7142)-A(7143) - Vdot(1772) = A(1629)-A(3745)-A(3746) - Vdot(1773) = A(1630)+A(1631)+A(1633)+A(3744)+A(3746)-A(3747) - Vdot(1774) = A(1357)-A(3183)-A(3184)-A(3185) - Vdot(1775) = A(5478)-A(7812)-A(7813) - Vdot(1776) = A(92)-A(691)-A(692)-A(693)-A(694) - Vdot(1777) = A(6920)-A(8968)-A(8969) - Vdot(1778) = A(1253)-A(3069)-A(3070)-A(3071) - Vdot(1779) = A(12350)-A(13313)-A(13314)-A(13315) - Vdot(1780) = A(5215)-A(7595)-A(7596) - Vdot(1781) = A(5216)+A(5217)+A(5219)+A(7593)+A(7595)-A(7597) - Vdot(1782) = A(529)+A(1212)-A(2254) - Vdot(1783) = A(10304)-A(11770)-A(11771) - Vdot(1784) = A(14389)-A(14660)-A(14661) - Vdot(1785) = A(1191)+A(1203)-A(2996) - Vdot(1786) = A(14756)-A(14931)-A(14932) - Vdot(1787) = A(12913)+A(12914)+A(12915)+A(13609)-A(13611) - Vdot(1788) = A(1074)-A(2870)-A(2871) - Vdot(1789) = A(1075)+A(1076)+A(1077)+A(2868)+A(2870)-A(2872)+A(2873) - Vdot(1790) = A(2044)+A(4509)-A(4514)-A(4515)+A(4516) - Vdot(1791) = A(4720)+A(7123)-A(7127)-A(7128)+A(7129) - Vdot(1792) = A(1427)+A(1428)+A(1430)+A(3286)+A(3288)-A(3289) - Vdot(1793) = A(14956)-A(15066)-A(15067) - Vdot(1794) = A(1426)-A(3287)-A(3288) - Vdot(1795) = A(6593)+A(6612)-A(8604)-A(8605) - Vdot(1796) = A(1528)+A(1530)+A(1531)+A(3519)-A(3520)+A(3522) - Vdot(1797) = A(6353)+A(8410)-A(8416)-A(8417) - Vdot(1798) = A(5044)-A(7402)-A(7403) - Vdot(1799) = A(5045)+A(5046)+A(5049)+A(7400)+A(7402)-A(7404) - Vdot(1800) = A(556)-A(2281)-A(2282) - Vdot(1801) = A(13250)-A(13897)-A(13898) - Vdot(1802) = A(5303)-A(7673)-A(7674) - Vdot(1803) = A(12076)+A(12077)+A(12078)+A(13076)+A(13078)-A(13079)+A(13080)+A(13081) - Vdot(1804) = A(11895)-A(12889)-A(12890) - Vdot(1805) = A(5797)-A(8045)-A(8046) - Vdot(1806) = A(3340)+A(5550)-A(5554)-A(5555)+A(5556) - Vdot(1807) = A(7717)+A(7721)-A(9709)-A(9710) - Vdot(1808) = A(680)+A(681)+A(684)+A(2444)-A(2445) - Vdot(1809) = A(485)-A(2206)-A(2207)-A(2208) - Vdot(1810) = A(5680)+A(5681)+A(5682)+A(7991)-A(7993) - Vdot(1811) = A(14158)-A(14453)-A(14454) - Vdot(1812) = A(14159)+A(14160)+A(14161)+A(14452)+A(14454)-A(14455)+A(14457) - Vdot(1813) = A(14311)-A(14597)-A(14598) - Vdot(1814) = A(14312)+A(14313)+A(14315)+A(14596)+A(14598)-A(14599) - Vdot(1815) = A(702)+A(703)+A(705)+A(2476)-A(2477) - Vdot(1816) = A(11860)-A(12846)-A(12847) - Vdot(1817) = -A(155)-A(156)-A(157)-A(158)+A(1346) - Vdot(1818) = A(14551)+A(14552)+A(14553)+A(14785)+A(14787)-A(14788)+A(14789) - Vdot(1819) = A(1477)-A(3404)-A(3405) - Vdot(1820) = A(1478)+A(1479)+A(1481)+A(3403)+A(3405)-A(3406) - Vdot(1821) = A(1504)+A(1505)+A(1507)+A(3466)+A(3468)-A(3469) - Vdot(1822) = A(1765)+A(1766)+A(1767)+A(4057)+A(4059)-A(4060) - Vdot(1823) = A(12099)-A(13094)-A(13095) - Vdot(1824) = A(1134)-A(2939)-A(2940) - Vdot(1825) = A(6799)+A(6800)+A(6801)+A(8836)-A(8839) - Vdot(1826) = A(9588)+A(11211)-A(11214)-A(11215)+A(11217) - Vdot(1827) = A(1339)+A(1351)-A(3161) - Vdot(1828) = A(9207)+A(10841)-A(10845)-A(10846)+A(10847) - Vdot(1829) = A(9603)-A(11241)-A(11242) - Vdot(1830) = A(10039)-A(11585)-A(11586) - Vdot(1831) = A(1107)-A(2909)-A(2910) - Vdot(1832) = A(11190)+A(12396)-A(12398)-A(12399)+A(12401) - Vdot(1833) = A(6171)+A(6172)+A(6173)+A(8335)-A(8337)+A(9708) - Vdot(1834) = A(4714)+A(7115)-A(7119)-A(7120)+A(7121) - Vdot(1835) = A(9091)-A(10730) - Vdot(1836) = A(3444)-A(5694)-A(5695) - Vdot(1837) = A(7845)-A(9796)-A(9797)-A(9798) - Vdot(1838) = A(5084)+A(5085)+A(5087)+A(7450)+A(7452)-A(7454) - Vdot(1839) = A(11262)-A(12451)-A(12452)-A(12453) - Vdot(1840) = A(8157)-A(10090)-A(10091) - Vdot(1841) = A(1990)-A(4441)-A(4442) - Vdot(1842) = A(623)-A(2372)-A(2373)-A(2374) - Vdot(1843) = A(9181)+A(10815)-A(10818)-A(10819)+A(10820) - Vdot(1844) = A(2061)-A(4539)-A(4540) - Vdot(1845) = A(10155)-A(11659)-A(11660) - Vdot(1846) = A(4296)-A(6710)-A(6711) - Vdot(1847) = A(4297)+A(4298)+A(4299)+A(6709)+A(6711)-A(6712) - Vdot(1848) = A(8686)+A(8687)+A(8688)+A(10460)-A(10461) - Vdot(1849) = A(1161)-A(2967)-A(2968)-A(2969) - Vdot(1850) = A(7964)-A(9899)-A(9900) - Vdot(1851) = A(6490)+A(6496)-A(8519) - Vdot(1852) = A(12050)+A(12051)+A(12052)+A(13039)+A(13041)-A(13042)+A(13043)+A(13044) - Vdot(1853) = A(892)-A(2654)-A(2655) - Vdot(1854) = A(7968)-A(9902)-A(9903)-A(9904) - Vdot(1855) = A(1012)-A(2784)-A(2785)-A(2786) - Vdot(1856) = A(6849)-A(8895)-A(8896) - Vdot(1857) = A(3988)-A(6325)-A(6326)-A(6327) - Vdot(1858) = A(4661)+A(7035)-A(7039)-A(7040)+A(7041) - Vdot(1859) = A(1170)-A(2975)-A(2976)-A(2977) - Vdot(1860) = A(1606)+A(1607)+A(1609)+A(3695)+A(3697)-A(3698) - Vdot(1861) = A(8135)-A(10076)-A(10077) - Vdot(1862) = A(9315)-A(10935)-A(10936) - Vdot(1863) = A(9198)-A(10833)-A(10834)-A(10835) - Vdot(1864) = A(6762)-A(8806)-A(8807) - Vdot(1865) = A(6763)+A(6764)+A(6766)+A(8805)+A(8807)-A(8808) - Vdot(1866) = A(874)+A(875)+A(878)+A(2635)-A(2638) - Vdot(1867) = A(1920)+A(1921)+A(1924)+A(4356)+A(4358)-A(4359) - Vdot(1868) = A(10909)-A(12284)-A(12285) - Vdot(1869) = A(6769)-A(8810)-A(8811) - Vdot(1870) = A(6749)+A(6768)+A(6773)-A(8787)+A(8810)+A(8813)+A(8815) - Vdot(1871) = A(14340)-A(14628)-A(14629) - Vdot(1872) = A(911)+A(912)+A(915)+A(2678)-A(2679) - Vdot(1873) = A(3939)-A(6269)-A(6270)-A(6271) - Vdot(1874) = A(11904)-A(12902)-A(12903) - Vdot(1875) = A(14560)-A(14796)-A(14797) - Vdot(1876) = A(1996)-A(4449)-A(4450)-A(4451) - Vdot(1877) = A(1248)+A(1249)+A(1252)+A(3064)-A(3065) - Vdot(1878) = A(3639)+A(3641)-A(5933)-A(5934) - Vdot(1879) = A(13488)-A(14016)-A(14017) - Vdot(1880) = A(801)-A(2564)-A(2565)-A(2566) - Vdot(1881) = A(1605)-A(3696)-A(3697) - Vdot(1882) = A(709)+A(710)+A(713)+A(2483)-A(2484) - Vdot(1883) = A(14524)-A(14772)-A(14773) - Vdot(1884) = A(10560)-A(11970)-A(11971)-A(11972) - Vdot(1885) = A(957)-A(2720)-A(2721)-A(2722) - Vdot(1886) = A(513)-A(2232)-A(2233)-A(2234) - Vdot(1887) = A(13813)-A(14205)-A(14206)-A(14207) - Vdot(1888) = A(13031)-A(13680)-A(13681) - Vdot(1889) = A(5259)-A(7643)-A(7644) - Vdot(1890) = A(14944)-A(15052)-A(15053) - Vdot(1891) = A(10455)+A(10456)+A(10457)+A(11856)-A(11858) - Vdot(1892) = A(12917)+A(12918)+A(12919)+A(13613)-A(13615) - Vdot(1893) = A(10578)-A(11992)-A(11993)+A(12312) - Vdot(1894) = A(688)+A(701)-A(2452) - Vdot(1895) = A(1933)-A(4376)-A(4377) - Vdot(1896) = A(1703)-A(3914)-A(3915) - Vdot(1897) = A(649)-A(2405)-A(2406)-A(2407) - Vdot(1898) = A(8071)-A(10015)-A(10016) - Vdot(1899) = A(499)-A(2222)-A(2223)-A(2224) - Vdot(1900) = A(9264)-A(10873)-A(10874) - Vdot(1901) = A(10588)-A(11999)-A(12000) - Vdot(1902) = A(4921)-A(7287)-A(7288) - Vdot(1903) = A(1655)+A(1656)+A(1658)+A(3800)+A(3802)-A(3803) - Vdot(1904) = A(1997)-A(4452)-A(4453) - Vdot(1905) = A(2158)-A(4688) - Vdot(1906) = A(575)+A(576)+A(577)+A(2305)+A(2307)-A(2309) - Vdot(1907) = A(9540)-A(11154)-A(11155)-A(11156) - Vdot(1908) = A(11181)-A(12386)-A(12387)-A(12388) - Vdot(1909) = A(4316)-A(6726)-A(6727) - Vdot(1910) = A(4317)+A(4318)+A(4321)+A(6725)+A(6727)-A(6728) - Vdot(1911) = A(2150)-A(4682)-A(4683) - Vdot(1912) = A(14747)-A(14926) - Vdot(1913) = A(9267)+A(10873)-A(10876)-A(10877)+A(10878) - Vdot(1914) = A(520)-A(2240)-A(2241)-A(2242) - Vdot(1915) = A(2138)+A(2151)-A(4651) - Vdot(1916) = A(5287)-A(7662)-A(7663) - Vdot(1917) = A(6466)-A(8491)-A(8492)-A(8493) - Vdot(1918) = A(7089)-A(9219) - Vdot(1919) = A(1087)-A(2887)-A(2888) - Vdot(1920) = A(14621)-A(14841)-A(14842) - Vdot(1921) = A(809)-A(2576)-A(2577) - Vdot(1922) = A(1904)-A(4342)-A(4343) - Vdot(1923) = A(1905)+A(1906)+A(1907)+A(4339)+A(4343)-A(4344) - Vdot(1924) = A(632)+A(633)+A(635)+A(2385)-A(2387) - Vdot(1925) = A(13786)+A(14182)-A(14185)-A(14186) - Vdot(1926) = A(15047)-A(15114)-A(15115)-A(15116) - Vdot(1927) = A(1352)+A(1353)+A(1356)+A(3178)-A(3179) - Vdot(1928) = A(10003)-A(11560)-A(11561)-A(11562) - Vdot(1929) = A(13097)-A(13751)-A(13752)+A(14859)+A(15090) - Vdot(1930) = A(14348)-A(14640)-A(14641) - Vdot(1931) = A(14349)+A(14350)+A(14352)+A(14639)+A(14641)-A(14642) - Vdot(1932) = A(13661)-A(14068)-A(14069) - Vdot(1933) = A(9056)-A(10676)-A(10677) - Vdot(1934) = A(13061)-A(13711)-A(13712)-A(13713) - Vdot(1935) = A(6910)-A(8954)-A(8955) - Vdot(1936) = A(5629)-A(7928)-A(7929) - Vdot(1937) = A(9570)-A(11193)-A(11194)-A(11195) - Vdot(1938) = A(6804)-A(8840)-A(8841)-A(8842) - Vdot(1939) = A(11889)-A(12886)-A(12887) - Vdot(1940) = A(1370)-A(3198)-A(3199)-A(3200) - Vdot(1941) = A(13803)-A(14198)-A(14199) - Vdot(1942) = A(13804)+A(13805)+A(13806)+A(14197)+A(14199)-A(14200) - Vdot(1943) = A(9750)-A(11396)-A(11397) - Vdot(1944) = A(549)+A(550)+A(553)+A(2275)-A(2277) - Vdot(1945) = A(5159)+A(5160)+A(5162)+A(7531)+A(7533)-A(7535) - Vdot(1946) = A(917)-A(2685)-A(2686) - Vdot(1947) = A(9703)-A(11366)-A(11367) - Vdot(1948) = A(609)-A(2356)-A(2357)-A(2358) - Vdot(1949) = A(8189)-A(10137)-A(10138)-A(10139) - Vdot(1950) = A(9192)-A(10825)-A(10826)-A(10827) - Vdot(1951) = A(3689)+A(3690)+A(3691)+A(5997)-A(5999) - Vdot(1952) = A(6779)-A(8819)-A(8820) - Vdot(1953) = A(7956)+A(9888)-A(9892)-A(9893)+A(9894)+A(13449) - Vdot(1954) = A(2010)-A(4472)-A(4473) - Vdot(1955) = A(8701)+A(8703)+A(8704)+A(10468)-A(10469) - Vdot(1956) = A(15137)-A(15157)-A(15158)-A(15159) - Vdot(1957) = A(617)+A(1293)-A(2367) - Vdot(1958) = A(14123)-A(14429)-A(14430) - Vdot(1959) = A(403)-A(1827)-A(1828)-A(1829)-A(1830) - Vdot(1960) = A(8056)+A(8057)+A(8060)+A(10001)-A(10002) - Vdot(1961) = A(12267)+A(12268)+A(12270)+A(13257)+A(13259)-A(13260) - Vdot(1962) = A(1048)+A(1049)+A(1050)+A(2833)+A(2835)-A(2837)+A(2838) - Vdot(1963) = A(11175)-A(12379)-A(12380) - Vdot(1964) = A(1542)-A(3548)-A(3549) - Vdot(1965) = A(944)-A(2709)-A(2710) - Vdot(1966) = A(1005)-A(2774)-A(2775)-A(2776) - Vdot(1967) = A(8666)+A(8667)+A(8668)+A(10451)-A(10452) - Vdot(1968) = A(3892)-A(6226)-A(6227)-A(6228) - Vdot(1969) = A(6472)+A(6478)-A(8499) - Vdot(1970) = A(12835)-A(13588)-A(13589) - Vdot(1971) = A(1833)+A(1834)+A(1835)+A(4137)+A(4151)-A(4153) - Vdot(1972) = A(14269)-A(14543)-A(14544) - Vdot(1973) = A(9158)-A(10811)-A(10812) - Vdot(1974) = A(760)-A(2532)-A(2533) - Vdot(1975) = A(2131)+A(2132)+A(2133)+A(4643)+A(4645)-A(4646)+A(4647) - Vdot(1976) = A(610)+A(1329)-A(2359) - Vdot(1977) = A(596)+A(1307)-A(2341) - Vdot(1978) = A(9456)-A(11069)-A(11070) - Vdot(1979) = A(9917)-A(11495)-A(11496) - Vdot(1980) = A(5069)-A(7431)-A(7432) - Vdot(1981) = A(8730)-A(10496)-A(10497) - Vdot(1982) = A(13473)-A(14011)-A(14012) - Vdot(1983) = A(1977)+A(2384)-A(4426)-A(4427) - Vdot(1984) = A(12019)+A(12020)+A(12021)+A(13002)+A(13004)-A(13005)+A(13006)+A(13007) - Vdot(1985) = A(13683)-A(14090)-A(14091) - Vdot(1986) = A(13925)+A(13926)+A(13928)+A(14325)+A(14327)-A(14328) - Vdot(1987) = A(985)-A(2752)-A(2753) - Vdot(1988) = A(3386)-A(5611)-A(5612)-A(5613) - Vdot(1989) = A(14668)+A(14669)+A(14670)+A(14858)+A(14860)-A(14861)+A(14862)+A(14863) - Vdot(1990) = A(9143)-A(10784)-A(10785) - Vdot(1991) = A(10434)-A(11844)-A(11845) - Vdot(1992) = A(5142)-A(7516)-A(7517)-A(7518) - Vdot(1993) = A(7100)-A(9222)-A(9223) - Vdot(1994) = A(602)-A(2346)-A(2347)-A(2348) - Vdot(1995) = A(9146)+A(9159)-A(10787) - Vdot(1996) = A(12153)-A(13133)-A(13134) - Vdot(1997) = A(5275)-A(7653)-A(7654) - Vdot(1998) = A(9696)+A(9697)+A(9699)+A(11361)+A(11363)-A(11364) - Vdot(1999) = A(5379)-A(7727)-A(7728) - Vdot(2000) = A(6805)+A(6806)+A(6808)+A(7680)+A(8842)-A(8843) - Vdot(2001) = A(653)-A(2410)-A(2411)+A(9450) - Vdot(2002) = A(4568)-A(6956)-A(6957)-A(6958) - Vdot(2003) = A(12822)-A(13580)-A(13581) - Vdot(2004) = A(867)+A(868)+A(870)+A(2625)-A(2630) - Vdot(2005) = A(4829)+A(4830)+A(4832)+A(7215)-A(7219) - Vdot(2006) = A(595)-A(2338)-A(2339)-A(2340) - Vdot(2007) = A(13153)-A(13820) - Vdot(2008) = A(7136)+A(7137)+A(7138)+A(9271)-A(9273) - Vdot(2009) = A(7235)-A(9368)-A(9369)-A(9370) - Vdot(2010) = A(685)-A(2448)-A(2449)-A(2450) - Vdot(2011) = A(1345)+A(1358)-A(3169) - Vdot(2012) = A(1204)+A(1205)+A(1207)+A(3012)-A(3013) - Vdot(2013) = A(240)-A(1198)-A(1199)-A(1200)-A(1201) - Vdot(2014) = A(1452)-A(3345)-A(3346) - Vdot(2015) = A(1453)+A(1454)+A(1456)+A(3344)+A(3346)-A(3347) - Vdot(2016) = A(9574)-A(11197)-A(11198) - Vdot(2017) = A(13113)-A(13773)-A(13774)-A(13775) - Vdot(2018) = A(13767)-A(14170)-A(14171)-A(14172) - Vdot(2019) = A(1079)-A(2874)-A(2875)-A(2876) - Vdot(2020) = A(1155)-A(2963)-A(2964) - Vdot(2021) = A(1708)+A(3914)-A(3922)-A(3923) - Vdot(2022) = A(10794)-A(12219)-A(12220)-A(12221) - Vdot(2023) = A(2064)+A(2083)-A(4542) - Vdot(2024) = A(13352)+A(13353)+A(13354)+A(13969)-A(13972) - Vdot(2025) = A(8129)-A(10073)-A(10074)-A(10075) - Vdot(2026) = A(13498)-A(14021)-A(14022) - Vdot(2027) = A(9639)-A(11286)-A(11287) - Vdot(2028) = A(5382)-A(7730)-A(7731)-A(7732)+A(7733) - Vdot(2029) = A(644)+A(645)+A(647)+A(2399)-A(2400) - Vdot(2030) = A(5031)+A(5032)+A(5034)+A(7384)+A(7386)-A(7388) - Vdot(2031) = A(5249)+A(5250)+A(5252)+A(7629)+A(7631)-A(7633) - Vdot(2032) = A(14142)-A(14440)-A(14441) - Vdot(2033) = A(14143)+A(14144)+A(14146)+A(14439)+A(14441)-A(14442)+A(14450) - Vdot(2034) = A(12027)-A(13014)-A(13015) - Vdot(2035) = A(12028)+A(12029)+A(12030)+A(13013)+A(13015)-A(13016)+A(13018) - Vdot(2036) = A(5353)-A(7709)-A(7710) - Vdot(2037) = A(548)+A(1219)-A(2276) - Vdot(2038) = A(230)-A(1167)-A(1168)-A(1169)+A(10521) - Vdot(2039) = A(13432)-A(14000)-A(14001) - Vdot(2040) = A(1853)-A(4181)-A(4182) - Vdot(2041) = A(1854)+A(1855)+A(1858)+A(4179)+A(4181)-A(4183) - Vdot(2042) = A(258)-A(1242)-A(1243)-A(1244)-A(1245) - Vdot(2043) = A(6523)+A(8551)-A(8555)-A(8556) - Vdot(2044) = A(714)-A(2487)-A(2488)-A(2489) - Vdot(2045) = A(5103)-A(7475)-A(7476) - Vdot(2046) = A(9760)-A(11404)-A(11405) - Vdot(2047) = A(6192)-A(8342)-A(8343)-A(8344) - Vdot(2048) = A(6097)-A(8303)-A(8304) - Vdot(2049) = A(5186)-A(7562)-A(7563) - Vdot(2050) = A(5187)+A(5188)+A(5190)+A(7560)+A(7562)-A(7564) - Vdot(2051) = A(5586)+A(6106)-A(7909)-A(7910) - Vdot(2052) = A(11280)-A(12465)-A(12466)-A(12467) - Vdot(2053) = A(7949)-A(9885)-A(9886) - Vdot(2054) = A(5483)-A(7816)-A(7817) - Vdot(2055) = A(12580)-A(13438)-A(13439) - Vdot(2056) = A(13106)+A(13107)+A(13108)+A(13754)+A(13756)-A(13757)+A(13758)+A(13759) - Vdot(2057) = A(943)-A(2706)-A(2707)-A(2708) - Vdot(2058) = A(2082)-A(4579)-A(4580) - Vdot(2059) = A(11301)-A(12479)-A(12480)-A(12481) - Vdot(2060) = A(5238)+A(5239)+A(5241)+A(7617)+A(7619)-A(7621) - Vdot(2061) = A(4665)-A(7045)-A(7046) - Vdot(2062) = A(13191)-A(13850)-A(13851) - Vdot(2063) = A(13174)-A(13844)-A(13845) - Vdot(2064) = A(12749)-A(13529)-A(13530) - Vdot(2065) = A(2135)-A(4648)-A(4649) - Vdot(2066) = A(564)+A(565)+A(568)+A(2291)-A(2293) - Vdot(2067) = A(1375)+A(1388)-A(3205) - Vdot(2068) = A(1394)-A(3219)-A(3220) - Vdot(2069) = A(1296)-A(3114)-A(3115)-A(3116) - Vdot(2070) = A(1932)-A(4373)-A(4374)-A(4375) - Vdot(2071) = A(9119)-A(10767)-A(10768) - Vdot(2072) = A(13159)-A(13825)-A(13826) - Vdot(2073) = A(13160)+A(13161)+A(13163)+A(13824)+A(13826)-A(13827) - Vdot(2074) = A(4777)-A(7188)-A(7189) - Vdot(2075) = A(1912)-A(4351)-A(4352) - Vdot(2076) = A(1913)+A(1914)+A(1915)+A(4347)+A(4352)-A(4353) - Vdot(2077) = A(753)-A(2518)-A(2519) - Vdot(2078) = A(1764)-A(4058)-A(4059) - Vdot(2079) = A(9276)-A(10881)-A(10882) - Vdot(2080) = A(5282)-A(7657)-A(7658) - Vdot(2081) = A(4185)-A(6533)-A(6534)+A(6653) - Vdot(2082) = A(13523)-A(14032)-A(14033) - Vdot(2083) = A(1971)-A(4421)-A(4422) - Vdot(2084) = A(11224)-A(12420)-A(12421)-A(12422) - Vdot(2085) = A(10408)+A(10409)+A(10410)+A(11835)-A(11837) - Vdot(2086) = A(992)-A(2763)-A(2764) - Vdot(2087) = A(1678)-A(3857)-A(3858) - Vdot(2088) = A(1679)+A(1680)+A(1681)+A(3856)+A(3858)-A(3859) - Vdot(2089) = A(7768)-A(9726)-A(9727) - Vdot(2090) = A(618)+A(619)+A(621)+A(2366)-A(2368) - Vdot(2091) = A(9954)-A(11523)-A(11524) - Vdot(2092) = A(1983)-A(4431)-A(4432) - Vdot(2093) = A(9859)-A(11454)-A(11455) - Vdot(2094) = A(1094)-A(2895)-A(2896) - Vdot(2095) = A(9598)-A(11235)-A(11236) - Vdot(2096) = A(486)+A(1165)-A(2209) - Vdot(2097) = A(1067)-A(2860)-A(2861) - Vdot(2098) = A(9339)-A(10946)-A(10947) - Vdot(2099) = A(1818)-A(4134)-A(4135) - Vdot(2100) = A(1819)+A(1820)+A(1822)+A(4132)+A(4134)-A(4136) - Vdot(2101) = A(8655)+A(8660)-A(10438)-A(10439) - Vdot(2102) = A(5729)+A(8011)-A(8013)-A(8014) - Vdot(2103) = A(2076)-A(4575)-A(4576) - Vdot(2104) = A(5886)-A(8115)-A(8116)-A(8117)-A(8118) - Vdot(2105) = A(10375)-A(11806)-A(11807) - Vdot(2106) = A(802)-A(2567)-A(2568) - Vdot(2107) = A(9807)-A(11434)-A(11435) - Vdot(2108) = A(4740)-A(7163)-A(7164) - Vdot(2109) = A(8705)-A(10472)-A(10473) - Vdot(2110) = A(4878)-A(7256)-A(7257) - Vdot(2111) = A(14672)-A(14864)-A(14865) - Vdot(2112) = A(6485)+A(6486)+A(6487)+A(8510)-A(8513) - Vdot(2113) = A(1148)-A(2955)-A(2956) - Vdot(2114) = A(5403)-A(7753)-A(7754)-A(7755) - Vdot(2115) = A(12360)-A(13328)-A(13329) - Vdot(2116) = A(12961)-A(13629)-A(13630) - Vdot(2117) = A(3632)+A(3633)+A(3634)+A(5927)-A(5928) - Vdot(2118) = -A(83)-A(84)-A(85)-A(86)+A(2040) - Vdot(2119) = A(9195)+A(10825)-A(10829)-A(10830)+A(10831) - Vdot(2120) = A(11642)-A(12701)-A(12702) - Vdot(2121) = A(11322)-A(12496)-A(12497)-A(12498) - Vdot(2122) = A(5227)+A(5228)+A(5230)+A(7605)+A(7607)-A(7609) - Vdot(2123) = A(6856)-A(8901)-A(8902) - Vdot(2124) = A(9631)-A(11273)-A(11274) - Vdot(2125) = A(1340)-A(3162)-A(3163)-A(3164) - Vdot(2126) = A(786)-A(2553)-A(2554)-A(2555) - Vdot(2127) = A(4920)-A(7284)-A(7285)-A(7286) - Vdot(2128) = A(521)-A(2243)-A(2244) - Vdot(2129) = A(5402)-A(7751)-A(7752) - Vdot(2130) = A(4249)+A(4251)+A(4255)-A(6633)-A(6634)-A(6635) - Vdot(2131) = A(4975)-A(7328)-A(7329) - Vdot(2132) = A(4736)+A(7153)-A(7157)-A(7158)+A(7159) - Vdot(2133) = A(1387)-A(3213)-A(3214)-A(3215) - Vdot(2134) = A(6402)+A(8449)+A(8453)-A(8455)-A(8456) - Vdot(2135) = A(1312)-A(3137)-A(3138)-A(3139) - Vdot(2136) = A(14259)-A(14535)-A(14536) - Vdot(2137) = A(4102)-A(6458)-A(6459)-A(6460) - Vdot(2138) = A(8626)+A(8633)-A(10411) - Vdot(2139) = A(14584)-A(14819)-A(14820) - Vdot(2140) = A(4567)+A(6933)+A(6938)-A(6954)-A(6955) - Vdot(2141) = A(10797)+A(12219)-A(12223)-A(12224)+A(12225) - Vdot(2142) = A(14852)-A(14992)-A(14993) - Vdot(2143) = A(9022)+A(10650)-A(10652)-A(10653) - Vdot(2144) = A(9358)-A(10959)-A(10960) - Vdot(2145) = A(10979)+A(10980)+A(10981)+A(12321)-A(12322) - Vdot(2146) = A(7014)-A(9076)-A(9077) - Vdot(2147) = A(6537)-A(8566)-A(8567)-A(8568) - Vdot(2148) = A(1574)-A(3620)-A(3621)-A(3622)-A(3623) - Vdot(2149) = A(999)-A(2769)-A(2770) - Vdot(2150) = A(5267)-A(7648)-A(7649) - Vdot(2151) = A(12054)-A(13045)-A(13046) - Vdot(2152) = A(7892)-A(9839)-A(9840) - Vdot(2153) = A(14982)-A(15078)-A(15079)-A(15080) - Vdot(2154) = A(10912)+A(12284)-A(12287)-A(12288)+A(12289) - Vdot(2155) = A(10749)-A(12172)-A(12173) - Vdot(2156) = A(6730)-A(8761)-A(8762)-A(8763) - Vdot(2157) = A(13230)-A(13884)-A(13885) - Vdot(2158) = A(1278)+A(1279)+A(1282)+A(3093)-A(3094) - Vdot(2159) = A(14027)-A(14379)-A(14380) - Vdot(2160) = A(2193)-A(4751)-A(4752) - Vdot(2161) = A(1120)-A(2923)-A(2924) - Vdot(2162) = A(6671)+A(6672)+A(6673)+A(8724)-A(8732) - Vdot(2163) = A(3045)-A(5309)+A(6889)+A(6890)+A(6891)+A(8937) - Vdot(2164) = A(14294)-A(14577)-A(14578) - Vdot(2165) = A(9211)-A(10851)-A(10852) - Vdot(2166) = A(5397)-A(7746)-A(7747) - Vdot(2167) = A(5775)-A(8026)-A(8027) - Vdot(2168) = A(1006)-A(2777)-A(2778) - Vdot(2169) = A(1060)-A(2850)-A(2851) - Vdot(2170) = A(4734)+A(4735)+A(4737)+A(7154)-A(7156) - Vdot(2171) = A(12662)-A(13483)-A(13484) - Vdot(2172) = A(4990)-A(7339)-A(7340) - Vdot(2173) = A(4991)+A(4992)+A(4994)+A(7337)+A(7339)-A(7341) - Vdot(2174) = A(2066)-A(4543)-A(4544)-A(4545) - Vdot(2175) = A(3355)+A(3865)-A(5566)-A(5567) - Vdot(2176) = A(5312)-A(7682)-A(7683) - Vdot(2177) = A(5622)-A(7926)-A(7927)+A(8220) - Vdot(2178) = A(2187)-A(4746)-A(4747) - Vdot(2179) = A(1236)-A(3047)-A(3048)-A(3049) - Vdot(2180) = A(2163)-A(4691)-A(4692) - Vdot(2181) = A(2069)+A(2077)-A(4548) - Vdot(2182) = A(5076)-A(7442)-A(7443) - Vdot(2183) = A(12827)-A(13583)-A(13584) - Vdot(2184) = A(2166)+A(2194)-A(4694) - Vdot(2185) = A(9618)-A(11255)-A(11256) - Vdot(2186) = A(6917)+A(6918)+A(6919)+A(8965)-A(8966)-A(8967) - Vdot(2187) = A(6737)-A(8770)-A(8771)-A(8772) - Vdot(2188) = A(737)-A(2504)-A(2505)-A(2506) - Vdot(2189) = A(5030)-A(7386)-A(7387) - Vdot(2190) = A(6835)+A(6836)+A(6837)+A(7734)+A(8876)-A(8877) - Vdot(2191) = A(6544)+A(6550)-A(8576) - Vdot(2192) = A(1066)-A(2857)-A(2858)-A(2859) - Vdot(2193) = A(965)-A(2730)-A(2731) - Vdot(2194) = A(1020)-A(2795)-A(2796) - Vdot(2195) = A(13263)-A(13905)-A(13906) - Vdot(2196) = A(951)-A(2716)-A(2717) - Vdot(2197) = A(9526)+A(11137)-A(11141)-A(11142) - Vdot(2198) = A(574)-A(2307)-A(2308) - Vdot(2199) = A(1053)-A(2842)-A(2843) - Vdot(2200) = A(3259)+A(3260)+A(3262)+A(5451)-A(5453) - Vdot(2201) = A(13340)+A(13341)+A(13342)+A(13965)-A(13968) - Vdot(2202) = A(5197)-A(7574)-A(7575) - Vdot(2203) = A(12409)+A(12410)+A(12411)+A(13347)-A(13350) - Vdot(2204) = A(5856)-A(8093)-A(8094) - Vdot(2205) = A(9690)-A(11357)-A(11358) - Vdot(2206) = A(5237)-A(7619)-A(7620) - Vdot(2207) = A(9065)+A(9066)+A(9067)+A(10693)+A(10695)-A(10696)+A(10697) - Vdot(2208) = A(4822)-A(7211)-A(7212) - Vdot(2209) = A(14767)+A(14938)-A(14941)-A(14942)+A(14943) - Vdot(2210) = A(13306)+A(13307)+A(13308)+A(13946)-A(13947) - Vdot(2211) = A(2462)-A(4872)-A(4873) - Vdot(2212) = A(283)-A(1308)-A(1309)-A(1310)-A(1311) - Vdot(2213) = A(2029)-A(4494)-A(4495) - Vdot(2214) = A(14632)-A(14845)-A(14846) - Vdot(2215) = A(2055)-A(4531)-A(4532) - Vdot(2216) = A(1127)-A(2931)-A(2932) - Vdot(2217) = A(13655)-A(14062)-A(14063) - Vdot(2218) = A(5143)-A(7519)-A(7520) - Vdot(2219) = A(2437)-A(4860)-A(4861) - Vdot(2220) = A(624)-A(2375)-A(2376) - Vdot(2221) = A(11351)-A(12515)-A(12516)-A(12517) - Vdot(2222) = A(1815)+A(1847)-A(4129) - Vdot(2223) = A(964)-A(2727)-A(2728)-A(2729) - Vdot(2224) = A(14244)-A(14517)-A(14518) - Vdot(2225) = A(6073)+A(8285)-A(8287)-A(8288) - Vdot(2226) = A(15061)+A(15062)+A(15064)+A(15121)+A(15123)-A(15124) - Vdot(2227) = A(936)-A(2699)-A(2700)-A(2701) - Vdot(2228) = A(11599)-A(12682)-A(12683) - Vdot(2229) = A(507)+A(509)+A(511)+A(2229)-A(2230) - Vdot(2230) = A(8757)+A(10510)-A(10517)-A(10518)+A(10519) - Vdot(2231) = A(4655)+A(7027)-A(7031)-A(7032)+A(7033) - Vdot(2232) = A(1654)-A(3801)-A(3802) - Vdot(2233) = A(5075)-A(7439)-A(7440)-A(7441) - Vdot(2234) = A(3338)+A(3339)+A(3341)+A(5552)-A(5553) - Vdot(2235) = A(540)-A(2263)-A(2264)-A(2265) - Vdot(2236) = A(6677)-A(8739)-A(8740) - Vdot(2237) = A(924)-A(2692)-A(2693) - Vdot(2238) = A(6440)+A(6441)+A(6442)+A(8480)-A(8482) - Vdot(2239) = A(9309)-A(10931)-A(10932) - Vdot(2240) = A(4971)-A(7326)-A(7327) - Vdot(2241) = A(1618)-A(3721)-A(3722) - Vdot(2242) = A(2201)-A(4757) - Vdot(2243) = A(10436)+A(10500)-A(11846)-A(11847) - Vdot(2244) = A(5063)-A(7423)-A(7424)-A(7425) - Vdot(2245) = A(9648)-A(11294)-A(11295) - Vdot(2246) = A(1040)-A(2825)-A(2826) - Vdot(2247) = A(6848)-A(8892)-A(8893)-A(8894) - Vdot(2248) = A(12586)-A(13442)-A(13443) - Vdot(2249) = A(8595)+A(8596)+A(8597)+A(10389)-A(10390) - Vdot(2250) = A(10940)-A(12307)-A(12308) - Vdot(2251) = A(13951)-A(14356)-A(14357) - Vdot(2252) = A(4239)-A(6619)-A(6620)-A(6621) - Vdot(2253) = A(9498)-A(11109)-A(11110) - Vdot(2254) = A(7101)-A(9224) - Vdot(2255) = A(6901)+A(8943)+A(8946)-A(8947)-A(8948) - Vdot(2256) = A(9491)-A(11099)-A(11100) - Vdot(2257) = A(14779)-A(14952)-A(14953) - Vdot(2258) = A(4167)-A(6509)-A(6510)-A(6511)-A(6512) - Vdot(2259) = A(5120)+A(5133)-A(7496)-A(7497) - Vdot(2260) = A(6744)-A(8780)-A(8781)-A(8782) - Vdot(2261) = A(541)-A(2266)-A(2267) - Vdot(2262) = A(8247)-A(10182)-A(10183) - Vdot(2263) = A(12764)-A(13539)-A(13540) - Vdot(2264) = A(1059)-A(2847)-A(2848)-A(2849) - Vdot(2265) = A(10791)+A(12211)-A(12215)-A(12216)+A(12217) - Vdot(2266) = A(9345)-A(10951)-A(10952) - Vdot(2267) = A(8431)-A(10335)-A(10336) - Vdot(2268) = A(5226)-A(7607)-A(7608) - Vdot(2269) = A(1989)-A(4438)-A(4439)-A(4440) - Vdot(2270) = A(9428)-A(11031)-A(11032) - Vdot(2271) = A(9682)-A(11336)-A(11337) - Vdot(2272) = A(2395)+A(4171)+A(4320)-A(4848) - Vdot(2273) = A(9122)+A(10767)-A(10770)-A(10771)+A(10772) - Vdot(2274) = A(5877)-A(8105)-A(8106) - Vdot(2275) = A(14602)-A(14825)-A(14826) - Vdot(2276) = A(683)+A(708)-A(2447) - Vdot(2277) = A(1033)-A(2815)-A(2816) - Vdot(2278) = A(1235)+A(1254)-A(3046) - Vdot(2279) = A(13974)+A(13975)+A(13976)+A(14361)-A(14363) - Vdot(2280) = A(7135)-A(9272) - Vdot(2281) = A(6288)-A(8384)-A(8385) - Vdot(2282) = A(9579)-A(11202)-A(11203) - Vdot(2283) = A(5493)-A(7820)-A(7821)+A(7873) - Vdot(2284) = A(5205)+A(5206)+A(5208)+A(7581)+A(7583)-A(7585) - Vdot(2285) = A(937)-A(2702)-A(2703) - Vdot(2286) = A(235)-A(1182)-A(1183)-A(1184)-A(1185) - Vdot(2287) = A(3985)+A(3986)+A(3987)+A(6323)-A(6324) - Vdot(2288) = A(9318)+A(9346)-A(10938) - Vdot(2289) = A(11924)-A(12927)-A(12928) - Vdot(2290) = A(5373)-A(7723)-A(7724) - Vdot(2291) = A(5179)-A(7553)-A(7554) - Vdot(2292) = A(759)-A(2529)-A(2530)-A(2531) - Vdot(2293) = A(13289)+A(13290)+A(13291)+A(13935)+A(13937)-A(13938)+A(13939) - Vdot(2294) = A(10103)-A(11627)-A(11628) - Vdot(2295) = A(5859)+A(8093)-A(8096)-A(8097)+A(8098) - Vdot(2296) = A(4601)-A(6983)-A(6984) - Vdot(2297) = A(563)+A(1265)-A(2292) - Vdot(2298) = A(9656)-A(11307)-A(11308) - Vdot(2299) = A(5204)-A(7583)-A(7584) - Vdot(2300) = A(14986)-A(15082)-A(15083) - Vdot(2301) = A(5361)-A(7713)-A(7714) - Vdot(2302) = A(1529)-A(3521)-A(3522) - Vdot(2303) = A(14810)-A(14972)-A(14973) - Vdot(2304) = A(14811)+A(14812)+A(14814)+A(14971)+A(14973)-A(14974) - Vdot(2305) = A(10788)-A(12211)-A(12212)-A(12213) - Vdot(2306) = A(493)-A(2215)-A(2216) - Vdot(2307) = A(6419)-A(8469)-A(8470) - Vdot(2308) = A(4230)+A(4232)+A(4236)-A(6588)-A(6589)-A(6590) - Vdot(2309) = A(1503)-A(3467)-A(3468) - Vdot(2310) = A(6236)+A(6247)-A(8362)-A(8363) - Vdot(2311) = A(13876)-A(14279)-A(14280) - Vdot(2312) = A(14237)-A(14509)-A(14510) - Vdot(2313) = A(4569)-A(6959)-A(6960) - Vdot(2314) = A(5338)-A(7702)-A(7703) - Vdot(2315) = A(9201)+A(10833)-A(10837)-A(10838)+A(10839) - Vdot(2316) = A(9626)-A(11268)-A(11269) - Vdot(2317) = A(1484)-A(3414)-A(3415) - Vdot(2318) = A(808)-A(2573)-A(2574)-A(2575) - Vdot(2319) = A(9352)-A(10955)-A(10956) - Vdot(2320) = A(10359)-A(11794)-A(11795) - Vdot(2321) = A(1554)-A(3580)-A(3581) - Vdot(2322) = A(1555)+A(1556)+A(1557)+A(3579)+A(3581)-A(3582) - Vdot(2323) = A(4557)+A(4558)+A(4560)+A(6945)-A(6947)-A(6948) - Vdot(2324) = A(6970)+A(6971)+A(6972)+A(9033)+A(9035)-A(9036) - Vdot(2325) = A(9292)-A(10917) - Vdot(2326) = A(1925)+A(1927)+A(1928)+A(1930)+A(2989)-A(4368)+A(4372) - Vdot(2327) = A(14288)-A(14571)-A(14572) - Vdot(2328) = A(13022)-A(13673)-A(13674) - Vdot(2329) = A(11865)-A(12850)-A(12851) - Vdot(2330) = A(9665)-A(11315)-A(11316) - Vdot(2331) = A(9602)-A(11238)-A(11239)-A(11240) - Vdot(2332) = A(13690)-A(14095)-A(14096) - Vdot(2333) = A(1740)-A(4006)-A(4007) - Vdot(2334) = A(1741)+A(1742)+A(1743)+A(4005)+A(4007)-A(4008) - Vdot(2335) = A(8574)+A(10369)-A(10373)-A(10374) - Vdot(2336) = A(13560)-A(14044)-A(14045) - Vdot(2337) = A(958)-A(2723)-A(2724) - Vdot(2338) = A(775)-A(2543)-A(2544) - Vdot(2339) = A(923)-A(2689)-A(2690)-A(2691) - Vdot(2340) = A(10715)+A(10720)+A(10804)-A(12127)-A(12128) - Vdot(2341) = A(1408)-A(3229)-A(3230) - Vdot(2342) = A(10214)-A(11693)-A(11694) - Vdot(2343) = A(2098)+A(2123)-A(4592) - Vdot(2344) = A(5408)-A(7760)-A(7761) - Vdot(2345) = A(12920)-A(13616)-A(13617) - Vdot(2346) = A(880)+A(885)-A(2643) - Vdot(2347) = A(7110)-A(9240) - Vdot(2348) = A(13645)-A(14059)-A(14060) - Vdot(2349) = A(12732)-A(13516)-A(13517) - Vdot(2350) = A(1013)-A(2787)-A(2788) - Vdot(2351) = A(9979)-A(11546)-A(11547) - Vdot(2352) = A(12183)-A(13167)-A(13168) - Vdot(2353) = A(8459)+A(8463)-A(10349)-A(10350) - Vdot(2354) = A(8754)-A(10514)-A(10515) - Vdot(2355) = A(1019)-A(2792)-A(2793)-A(2794) - Vdot(2356) = A(3795)+A(3796)+A(3797)+A(6121)-A(6123)+A(6124) - Vdot(2357) = A(3798)-A(6124)-A(6125)-A(6126) - Vdot(2358) = A(6444)-A(8485)-A(8486)-A(8487) - Vdot(2359) = A(7172)-A(9332)-A(9333)-A(9334)-A(9335) - Vdot(2360) = A(10600)-A(12008)-A(12009) - Vdot(2361) = A(5170)+A(5171)+A(5173)+A(7542)+A(7544)-A(7546) - Vdot(2362) = A(4652)-A(7027)-A(7028)-A(7029) - Vdot(2363) = A(1302)-A(3123)-A(3124)-A(3125) - Vdot(2364) = A(2459)+A(2461)+A(2467)-A(4871) - Vdot(2365) = A(1953)-A(4400)-A(4401) - Vdot(2366) = A(1319)-A(3144)-A(3145)-A(3146) - Vdot(2367) = A(514)+A(1197)-A(2235) - Vdot(2368) = A(10244)-A(11723)-A(11724) - Vdot(2369) = A(1283)-A(3097)-A(3098)-A(3099) - Vdot(2370) = A(1369)+A(1381)-A(3197) - Vdot(2371) = A(5392)-A(7742)-A(7743) - Vdot(2372) = A(1661)-A(3811)-A(3812) - Vdot(2373) = A(7134)-A(9270)-A(9271) - Vdot(2374) = A(591)+A(592)+A(593)+A(2332)+A(2334)-A(2336) - Vdot(2375) = A(6738)-A(8773)-A(8774) - Vdot(2376) = A(5435)+A(5436)+A(5439)+A(7790)-A(7792) - Vdot(2377) = A(10725)+A(10779)+A(12129)+A(12131)+A(12133)-A(12136)+A(12137) - Vdot(2378) = A(10743)-A(12166) - Vdot(2379) = A(6135)+A(8316)-A(8318)-A(8319) - Vdot(2380) = A(13056)-A(13706)-A(13707) - Vdot(2381) = A(10577)+A(10583)-A(11990)-A(11991)+A(12311) - Vdot(2382) = A(10418)-A(11838)-A(11839) - Vdot(2383) = A(1440)-A(3313)-A(3314) - Vdot(2384) = A(5290)-A(7664)-A(7665) - Vdot(2385) = -A(183)-A(184)-A(185)-A(186)-A(187)-A(188)-A(189)-A(190) - Vdot(2386) = A(12159)-A(13140)-A(13141)-A(13142) - Vdot(2387) = A(5248)-A(7631)-A(7632) - Vdot(2388) = A(13543)-A(14040)-A(14041) - Vdot(2389) = A(10270)-A(11747)-A(11748) - Vdot(2390) = A(6343)-A(8402)-A(8403) - Vdot(2391) = A(555)-A(2278)-A(2279)-A(2280) - Vdot(2392) = A(8634)-A(10416)-A(10417) - Vdot(2393) = A(5570)-A(7883)-A(7884)-A(7885)-A(7886) - Vdot(2394) = A(1230)-A(3039)-A(3040)-A(3041) - Vdot(2395) = A(6825)+A(8862)+A(8865)-A(8866)-A(8867) - Vdot(2396) = A(5324)-A(7690)-A(7691) - Vdot(2397) = A(6826)+A(6832)-A(8868)-A(8869) - Vdot(2398) = A(5944)-A(8169)-A(8170) - Vdot(2399) = A(2328)+A(2329)+A(2330)+A(4800)+A(4802)-A(4804) - Vdot(2400) = A(1970)-A(4418)-A(4419)-A(4420) - Vdot(2401) = A(2028)-A(4491)-A(4492)-A(4493) - Vdot(2402) = A(6683)-A(8745)-A(8746) - Vdot(2403) = A(1080)-A(2877)-A(2878) - Vdot(2404) = A(13696)-A(14100)-A(14101) - Vdot(2405) = A(6771)-A(8813)-A(8814) - Vdot(2406) = A(1568)-A(3607)-A(3608) - Vdot(2407) = A(9152)-A(10806)-A(10807) - Vdot(2408) = A(12291)-A(13278)-A(13279) - Vdot(2409) = A(1052)-A(2839)-A(2840)-A(2841) - Vdot(2410) = A(4936)-A(7300)-A(7301) - Vdot(2411) = A(9673)-A(11328)-A(11329) - Vdot(2412) = A(2430)-A(4856)-A(4857) - Vdot(2413) = A(1260)-A(3076)-A(3077)-A(3078) - Vdot(2414) = A(13417)-A(13996)-A(13997) - Vdot(2415) = A(2091)+A(2092)+A(2093)+A(4584)+A(4586)-A(4587)+A(4588) - Vdot(2416) = A(984)-A(2749)-A(2750)-A(2751) - Vdot(2417) = A(8258)-A(10189)-A(10190) - Vdot(2418) = A(1593)-A(3664)-A(3665) - Vdot(2419) = A(9541)-A(11157)-A(11158) - Vdot(2420) = A(6248)-A(8368)-A(8369) - Vdot(2421) = -A(88)-A(89)+A(503)+A(512) - Vdot(2422) = A(991)-A(2760)-A(2761)-A(2762) - Vdot(2423) = A(10615)-A(12023)-A(12024) - Vdot(2424) = A(6814)-A(8851)-A(8852)-A(8853) - Vdot(2425) = A(1895)-A(4304)-A(4305)-A(4306)-A(4307) - Vdot(2426) = A(9527)-A(11143)-A(11144)-A(11145) - Vdot(2427) = A(787)-A(2556)-A(2557) - Vdot(2428) = A(6842)-A(8883)-A(8884)-A(8885) - Vdot(2429) = A(11799)-A(12799)-A(12800) - Vdot(2430) = A(11474)+A(11475)+A(11476)+A(12600)-A(12602) - Vdot(2431) = A(6527)-A(8557)-A(8558) - Vdot(2432) = A(1141)-A(2947)-A(2948) - Vdot(2433) = A(508)+A(1180)-A(2231) - Vdot(2434) = A(4866)-A(7252)-A(7253) - Vdot(2435) = A(916)-A(2682)-A(2683)-A(2684) - Vdot(2436) = A(4309)-A(6718)-A(6719) - Vdot(2437) = A(15030)-A(15110)-A(15111)-A(15112) - Vdot(2438) = A(646)+A(2396)-A(2401)-A(2402)+A(2403) - Vdot(2439) = A(9178)-A(10815)-A(10816) - Vdot(2440) = A(14302)-A(14591)-A(14592) - Vdot(2441) = A(1241)+A(1247)-A(3055) - Vdot(2442) = A(1176)-A(2983)-A(2984)-A(2985) - Vdot(2443) = A(12624)-A(13458)-A(13459) - Vdot(2444) = A(14612)-A(14833)-A(14834) - Vdot(2445) = A(14178)-A(14458)-A(14459) - Vdot(2446) = A(8195)-A(10140)-A(10141) - Vdot(2447) = A(1271)+A(1277)-A(3090) - Vdot(2448) = A(3261)+A(5450)-A(5454)-A(5455)+A(5456) - Vdot(2449) = A(1266)-A(3083)-A(3084)-A(3085) - Vdot(2450) = A(15000)-A(15091)-A(15092) - Vdot(2451) = A(2144)-A(4677)-A(4678) - Vdot(2452) = A(8987)+A(8988)+A(8989)+A(10620)+A(10622)-A(10623)+A(10624)+A(10625) - Vdot(2453) = A(2048)-A(4520)-A(4521) - Vdot(2454) = A(7851)-A(9804)-A(9805) - Vdot(2455) = A(1364)-A(3190)-A(3191)-A(3192) - Vdot(2456) = A(492)-A(2212)-A(2213)-A(2214) - Vdot(2457) = A(12064)+A(12065)+A(12066)+A(13063)+A(13065)-A(13066)+A(13067)+A(13068) - Vdot(2458) = A(10722)-A(12133)-A(12134) - Vdot(2459) = A(603)-A(2349)-A(2350) - Vdot(2460) = A(5297)-A(7669)-A(7670) - Vdot(2461) = A(6731)-A(8764)-A(8765) - Vdot(2462) = A(6969)-A(9034)-A(9035) - Vdot(2463) = A(774)-A(2540)-A(2541)-A(2542) - Vdot(2464) = A(5710)-A(7998)-A(7999) - Vdot(2465) = A(65)-A(554)+A(932)+A(933)+A(935)+A(2696)+A(2698) - Vdot(2466) = A(5385)-A(7735)-A(7736) - Vdot(2467) = A(7899)+A(9842)-A(9846)-A(9847)+A(9848) - Vdot(2468) = A(3276)-A(5470)-A(5471) - Vdot(2469) = A(4711)-A(7115)-A(7116)-A(7117) - Vdot(2470) = A(479)-A(2180)-A(2181)-A(2182)-A(2183) - Vdot(2471) = A(7780)+A(7862)+A(8078)+A(8141)+A(8202)-A(9731)+A(13406) - Vdot(2472) = A(5990)-A(8210)-A(8211)-A(8212) - Vdot(2473) = A(2446)-A(4864)+A(5347)+A(5348)+A(5349)+A(7707) - Vdot(2474) = A(5919)-A(8150)-A(8151)-A(8152) - Vdot(2475) = A(14489)-A(14735)-A(14736)-A(14737) - Vdot(2476) = A(410)-A(1868)-A(1869)-A(1870)-A(1871) - Vdot(2477) = A(3502)-A(5757)-A(5758)-A(5759) - Vdot(2478) = A(5306)-A(7676)-A(7677)-A(7678)+A(7679) - Vdot(2479) = A(1864)-A(4194)-A(4195)-A(4196)-A(4197) - Vdot(2480) = A(4585)+A(4644)-A(6967)+A(6974)+A(9032)+A(9034)+A(9036)+A(9037) - Vdot(2481) = A(4141)-A(6480)-A(6481)-A(6482)-A(6483) - Vdot(2482) = A(7948)-A(9883)-A(9884) - Vdot(2483) = A(14923)-A(15044)-A(15045)-A(15046) - Vdot(2484) = A(3942)-A(6273)-A(6274)-A(6275) - Vdot(2485) = A(8059)-A(10005)-A(10006)-A(10007) - Vdot(2486) = A(12926)-A(13622)-A(13623) - Vdot(2487) = A(295)-A(1346)-A(1347)-A(1348)-A(1349) - Vdot(2488) = A(7978)+A(8322)+A(9787)+A(9825)-A(9910)+A(10324)+A(13427) - Vdot(2489) = A(6623)-A(8645)-A(8646)-A(8647)-A(8648) - Vdot(2490) = A(973)+A(974)+A(975)+A(981)+A(2734)+A(2736)-A(2738) - Vdot(2491) = A(10474)-A(11871)-A(11872)-A(11873) - Vdot(2492) = A(8120)+A(8121)+A(8123)+A(10060)-A(10061)+A(10068) - Vdot(2493) = A(3587)+A(3588)+A(3589)+A(5863)-A(5865)+A(5866) - Vdot(2494) = A(6491)-A(8520)-A(8521) - Vdot(2495) = A(10734)+A(10735)+A(10736)+A(12140)-A(12141)+A(12142)+A(12143) - Vdot(2496) = A(9613)-A(11251)-A(11252) - Vdot(2497) = A(4223)-A(6576)-A(6577)-A(6578)-A(6579) - Vdot(2498) = A(10362)-A(11796)-A(11797) - Vdot(2499) = A(3952)-A(6290)-A(6291)-A(6292) - Vdot(2500) = A(5269)-A(7650)-A(7651) - Vdot(2501) = A(3337)-A(5550)-A(5551)-A(5552) - Vdot(2502) = A(1216)+A(1217)+A(1218)+A(3024)-A(3025) - Vdot(2503) = A(527)-A(2250)-A(2251)-A(2252) - Vdot(2504) = A(7879)-A(9826)-A(9827) - Vdot(2505) = A(12697)-A(13506)-A(13507) - Vdot(2506) = A(3297)+A(3298)+A(3299)+A(5487)-A(5488)+A(5489) - Vdot(2507) = A(13563)-A(14046)-A(14047) - Vdot(2508) = A(2159)+A(2160)+A(2161)+A(4687)-A(4689) - Vdot(2509) = A(5017)-A(7372)-A(7373) - Vdot(2510) = A(14386)-A(14658)-A(14659) - Vdot(2511) = A(4938)-A(7302)-A(7303) - Vdot(2512) = A(10744)+A(10745)+A(10746)+A(12165)-A(12167)+A(12168)+A(12169) - Vdot(2513) = A(5115)-A(7490)-A(7491) - Vdot(2514) = A(9516)-A(11131)-A(11132) - Vdot(2515) = A(12084)-A(13085)-A(13086) - Vdot(2516) = A(2124)+A(2125)+A(2127)+A(4637)-A(4638) - Vdot(2517) = A(12953)-A(13627)-A(13628) - Vdot(2518) = A(6046)-A(8276)-A(8277) - Vdot(2519) = A(4997)-A(7349)-A(7350) - Vdot(2520) = A(3534)-A(5799)-A(5800)-A(5801) - Vdot(2521) = A(8427)+A(8428)+A(8429)+A(10331)-A(10332)+A(10333)+A(10334) - Vdot(2522) = A(5299)-A(7671)-A(7672) - Vdot(2523) = A(13764)-A(14168)-A(14169) - Vdot(2524) = A(13251)-A(13899)-A(13900) - Vdot(2525) = A(4894)-A(7267)-A(7268) - Vdot(2526) = A(824)+A(825)+A(826)+A(2587)-A(2588) - Vdot(2527) = A(13052)-A(13704)-A(13705) - Vdot(2528) = A(6857)+A(6858)+A(6860)+A(8899)+A(8901)-A(8903)+A(8906) - Vdot(2529) = A(13410)-A(13994)-A(13995) - Vdot(2530) = A(14854)-A(14994)-A(14995) - Vdot(2531) = A(6476)-A(8502)-A(8503) - Vdot(2532) = A(13105)-A(13755)-A(13756) - Vdot(2533) = A(10717)-A(12129)-A(12130) - Vdot(2534) = A(1101)-A(2903)-A(2904) - Vdot(2535) = A(9741)+A(9742)+A(9743)+A(11391)-A(11392) - Vdot(2536) = A(9777)+A(9778)+A(9779)+A(11423)-A(11424) - Vdot(2537) = A(748)-A(2512)-A(2513) - Vdot(2538) = A(11602)-A(12684)-A(12685) - Vdot(2539) = A(1934)+A(1935)+A(1937)+A(4375)+A(4377)-A(4378)-A(4379) - Vdot(2540) = A(4556)-A(6944)-A(6945)-A(6946) - Vdot(2541) = A(12655)-A(13478)-A(13479) - Vdot(2542) = A(590)-A(2334)-A(2335) - Vdot(2543) = A(5056)-A(7413)-A(7414)-A(7415) - Vdot(2544) = A(4258)-A(6658)-A(6659)-A(6660)-A(6661) - Vdot(2545) = A(6557)+A(6558)+A(6559)+A(8586)-A(8588)+A(8589) - Vdot(2546) = A(10970)-A(12314)-A(12315) - Vdot(2547) = A(5400)+A(7746)-A(7749)-A(7750)+A(7751) - Vdot(2548) = A(11595)+A(11598)+A(12669)+A(12672)-A(12681) - Vdot(2549) = A(1255)+A(1256)+A(1259)+A(3071)-A(3072) - Vdot(2550) = A(650)+A(652)+A(655)+A(2407)-A(2408) - Vdot(2551) = A(10228)+A(10229)+A(10230)+A(11704)-A(11705) - Vdot(2552) = A(12607)-A(13454)-A(13455) - Vdot(2553) = A(9445)-A(11049)-A(11050)-A(11051) - Vdot(2554) = A(8693)-A(10463)-A(10464) - Vdot(2555) = A(5083)-A(7452)-A(7453) - Vdot(2556) = A(13973)-A(14360)-A(14361)-A(14362) - Vdot(2557) = A(10224)+A(10225)+A(10226)+A(11701)-A(11702) - Vdot(2558) = A(2022)-A(4486)-A(4487)-A(4488)-A(4489) - Vdot(2559) = A(3631)-A(5925)-A(5926)-A(5927) - Vdot(2560) = A(6885)-A(8934)-A(8935) - Vdot(2561) = A(13154)+A(13155)+A(13156)+A(13819)-A(13821) - Vdot(2562) = A(9683)+A(9684)+A(9686)+A(11334)+A(11336)-A(11338)+A(11341) - Vdot(2563) = A(3990)+A(3991)+A(3992)+A(6329)-A(6331)+A(6332) - Vdot(2564) = A(13724)-A(14129)-A(14130) - Vdot(2565) = A(3503)-A(5760)-A(5761)-A(5762) - Vdot(2566) = A(10255)+A(10256)+A(10257)+A(11732)-A(11733) - Vdot(2567) = A(14979)-A(15076)-A(15077) - Vdot(2568) = A(11943)-A(12947)-A(12948)+A(13612)+A(13614) - Vdot(2569) = A(3487)-A(5740)-A(5741) - Vdot(2570) = A(10504)-A(11911)-A(11912)-A(11913) - Vdot(2571) = A(14624)-A(14843)-A(14844) - Vdot(2572) = A(2016)-A(4477)-A(4478)-A(4479)-A(4480) - Vdot(2573) = A(14422)-A(14681)-A(14682) - Vdot(2574) = A(1903)+A(1909)+A(4338)-A(4340)-A(4341)+A(4342)+A(4344)+A(4345) - Vdot(2575) = A(10318)+A(10319)+A(10320)+A(11781)-A(11782) - Vdot(2576) = A(6686)-A(8747)-A(8748) - Vdot(2577) = A(11385)+A(11386)+A(11387)+A(12536)-A(12537) - Vdot(2578) = A(14739)+A(14740)+A(14741)+A(14908)-A(14909) - Vdot(2579) = A(5277)-A(7655)-A(7656) - Vdot(2580) = A(12893)+A(12899)-A(13602)-A(13603) - Vdot(2581) = A(8154)+A(8155)+A(8156)+A(10088)-A(10089) - Vdot(2582) = A(5822)-A(8082)-A(8083) - Vdot(2583) = A(5314)-A(7684)-A(7685) - Vdot(2584) = A(13791)-A(14189)-A(14190) - Vdot(2585) = A(3818)-A(6146)-A(6147)-A(6148) - Vdot(2586) = A(10167)+A(10168)+A(10169)+A(11675)-A(11676) - Vdot(2587) = A(7070)-A(9167)-A(9168) - Vdot(2588) = A(9990)+A(9991)+A(9992)+A(11555)-A(11556) - Vdot(2589) = A(9429)+A(9430)+A(9431)+A(11029)+A(11031)-A(11033)+A(11034) - Vdot(2590) = A(8656)-A(10440)-A(10441)-A(10442) - Vdot(2591) = A(14227)+A(14228)+A(14229)+A(14491)-A(14493) - Vdot(2592) = A(7841)+A(7842)+A(7844)+A(8621)-A(9793)+A(9794) - Vdot(2593) = A(7057)-A(9141)-A(9142) - Vdot(2594) = A(9649)+A(9650)+A(9652)+A(11292)+A(11294)-A(11296)+A(11299) - Vdot(2595) = A(3504)+A(3505)+A(3506)+A(5761)-A(5763)+A(5764) - Vdot(2596) = A(6515)+A(6516)+A(6518)+A(8546)-A(8548) - Vdot(2597) = A(12193)-A(13181)-A(13182) - Vdot(2598) = A(11718)+A(11719)+A(11720)+A(12745)-A(12746) - Vdot(2599) = A(10284)+A(10285)+A(10286)+A(11758)-A(11759) - Vdot(2600) = A(12986)-A(13643)-A(13644) - Vdot(2601) = A(3688)-A(5996)-A(5997)-A(5998) - Vdot(2602) = A(7887)-A(9833)-A(9834)-A(9835) - Vdot(2603) = A(6140)-A(8323)-A(8324)-A(8325) - Vdot(2604) = A(9994)+A(9995)+A(9996)+A(11558)-A(11559) - Vdot(2605) = A(1636)-A(3755)-A(3756) - Vdot(2606) = A(10507)-A(11914)-A(11915) - Vdot(2607) = A(15011)+A(15012)+A(15013)+A(15099)-A(15100) - Vdot(2608) = A(14029)-A(14381)-A(14382) - Vdot(2609) = A(5434)-A(7789)-A(7790)-A(7791) - Vdot(2610) = A(1027)-A(2807)-A(2808) - Vdot(2611) = A(797)-A(2562)-A(2563) - Vdot(2612) = A(770)-A(2538)-A(2539) - Vdot(2613) = A(12260)-A(13248)-A(13249) - Vdot(2614) = A(1984)+A(1985)+A(1987)+A(4429)+A(4431)-A(4433)-A(4434) - Vdot(2615) = A(12735)-A(13518)-A(13519) - Vdot(2616) = A(8627)-A(10412)-A(10413) - Vdot(2617) = A(11819)-A(12807)-A(12808) - Vdot(2618) = A(6838)-A(8878)-A(8879)-A(8880)-A(8881) - Vdot(2619) = A(15146)-A(15166)-A(15167) - Vdot(2620) = A(4824)-A(7213)-A(7214) - Vdot(2621) = A(13288)-A(13936)-A(13937) - Vdot(2622) = A(11964)-A(12959)-A(12960) - Vdot(2623) = A(1882)+A(1883)+A(1885)+A(4269)-A(4273) - Vdot(2624) = A(3897)-A(6233)-A(6234)-A(6235) - Vdot(2625) = A(11229)-A(12426)-A(12427)-A(12428)-A(12429) - Vdot(2626) = A(2090)-A(4585)-A(4586) - Vdot(2627) = A(831)-A(2595)-A(2596) - Vdot(2628) = A(977)-A(2739)-A(2740)-A(2741) - Vdot(2629) = A(12063)-A(13064)-A(13065) - Vdot(2630) = A(6435)-A(8477)-A(8478) - Vdot(2631) = A(12643)-A(13470)-A(13471) - Vdot(2632) = A(3973)-A(6308)-A(6309) - Vdot(2633) = A(5127)-A(7502)-A(7503)-A(7504) - Vdot(2634) = A(2049)+A(2050)+A(2052)+A(4518)+A(4520)-A(4522)-A(4523)+A(4527) - Vdot(2635) = A(12897)-A(13606)-A(13607) - Vdot(2636) = A(10688)-A(12105)-A(12106) - Vdot(2637) = A(14505)-A(14762)-A(14763) - Vdot(2638) = A(9666)+A(9667)+A(9669)+A(11313)+A(11315)-A(11317)+A(11320) - Vdot(2639) = A(500)+A(502)+A(504)+A(2224)-A(2225) - Vdot(2640) = A(3557)-A(5830)-A(5831) - Vdot(2641) = A(9874)+A(9875)+A(9876)+A(11466)-A(11467) - Vdot(2642) = A(9632)+A(9633)+A(9635)+A(11271)+A(11273)-A(11275)+A(11278) - Vdot(2643) = A(12588)-A(13444)-A(13445) - Vdot(2644) = A(9517)+A(9518)+A(9519)+A(11129)+A(11131)-A(11133)+A(11134)+A(11135) - Vdot(2645) = A(3636)+A(5925)+A(5929)-A(5931)-A(5932) - Vdot(2646) = A(9457)+A(9458)+A(9460)+A(11067)+A(11069)-A(11071)-A(11072) - Vdot(2647) = A(625)+A(626)+A(627)+A(2372)+A(2375)-A(2377)-A(2378) - Vdot(2648) = A(9247)-A(10864)-A(10865) - Vdot(2649) = A(3764)-A(6082)-A(6083)-A(6084) - Vdot(2650) = A(4088)-A(6429)-A(6430) - Vdot(2651) = A(12205)-A(13189)-A(13190) - Vdot(2652) = A(13462)-A(14007)-A(14008) - Vdot(2653) = A(5057)-A(7416)-A(7417) - Vdot(2654) = A(12676)-A(13493)-A(13494) - Vdot(2655) = A(11813)-A(12805)-A(12806) - Vdot(2656) = A(3616)-A(5907)-A(5908) - Vdot(2657) = A(666)-A(2426)-A(2427) - Vdot(2658) = A(12037)-A(13029)-A(13030) - Vdot(2659) = A(7888)+A(7889)+A(7891)+A(9835)-A(9836)+A(9837) - Vdot(2660) = A(14107)-A(14417)-A(14418) - Vdot(2661) = A(10699)-A(12115)-A(12116) - Vdot(2662) = A(8707)+A(8708)+A(8709)+A(10472)-A(10477)+A(10478) - Vdot(2663) = A(10528)-A(11946)-A(11947) - Vdot(2664) = A(10533)-A(11951)-A(11952) - Vdot(2665) = A(1976)+A(2284)-A(4424)-A(4425) - Vdot(2666) = A(12252)-A(13236)-A(13237) - Vdot(2667) = A(14426)+A(14427)+A(14428)+A(14684)-A(14685) - Vdot(2668) = A(9927)+A(9928)+A(9929)+A(11503)-A(11504) - Vdot(2669) = A(9551)-A(11167)-A(11168) - Vdot(2670) = A(6548)-A(8579)-A(8580) - Vdot(2671) = A(6166)-A(8332)-A(8333) - Vdot(2672) = A(6752)-A(8792)-A(8793) - Vdot(2673) = A(13924)-A(14326)-A(14327) - Vdot(2674) = A(7232)-A(9366)-A(9367) - Vdot(2675) = A(4818)-A(7209)-A(7210) - Vdot(2676) = A(9678)+A(9679)+A(9680)+A(11331)-A(11333) - Vdot(2677) = A(9361)-A(10961)-A(10962) - Vdot(2678) = A(9355)-A(10957)-A(10958) - Vdot(2679) = A(6811)+A(6812)+A(6813)+A(8849)-A(8850) - Vdot(2680) = A(14989)+A(15082)-A(15085)-A(15086)+A(15087) - Vdot(2681) = A(6422)-A(8471)-A(8472) - Vdot(2682) = A(9964)+A(9965)+A(9966)+A(11531)-A(11532) - Vdot(2683) = A(12582)-A(13440)-A(13441) - Vdot(2684) = A(4838)-A(7227)-A(7228) - Vdot(2685) = A(9255)-A(10871)-A(10872) - Vdot(2686) = A(8292)-A(10201)-A(10202)-A(10203) - Vdot(2687) = A(931)-A(2697)-A(2698) - Vdot(2688) = A(13199)-A(13858)-A(13859) - Vdot(2689) = A(5899)-A(8146)-A(8147) - Vdot(2690) = A(6348)-A(8410)-A(8411)-A(8412) - Vdot(2691) = A(4916)-A(7282)-A(7283) - Vdot(2692) = A(6873)+A(6874)+A(6875)+A(8921)-A(8922) - Vdot(2693) = A(4808)-A(7198)-A(7199)-A(7200) - Vdot(2694) = A(14410)+A(14411)+A(14412)+A(14677)-A(14678) - Vdot(2695) = A(6520)-A(8551)-A(8552)-A(8553) - Vdot(2696) = A(10023)-A(11570)-A(11571) - Vdot(2697) = A(9580)+A(9581)+A(9583)+A(11200)+A(11202)-A(11204)+A(11207) - Vdot(2698) = A(5292)-A(7666)-A(7667) - Vdot(2699) = A(945)+A(946)+A(948)+A(2708)+A(2710)-A(2711)-A(2712) - Vdot(2700) = A(13526)-A(14034)-A(14035) - Vdot(2701) = A(12049)-A(13040)-A(13041) - Vdot(2702) = A(5341)-A(7704)-A(7705) - Vdot(2703) = A(14915)-A(15036)-A(15037) - Vdot(2704) = A(12239)-A(13220)-A(13221) - Vdot(2705) = A(11802)-A(12801)-A(12802) - Vdot(2706) = A(1846)+A(1848)+A(1850)+A(4173)-A(4175) - Vdot(2707) = A(487)+A(488)+A(490)+A(2208)-A(2210)-A(2211) - Vdot(2708) = A(12148)-A(13129)-A(13130) - Vdot(2709) = A(3650)-A(5946)-A(5947)-A(5948) - Vdot(2710) = A(1000)+A(1001)+A(1003)+A(2767)+A(2769)-A(2771)-A(2772) - Vdot(2711) = A(6469)+A(8493)-A(8495)-A(8496)+A(8498) - Vdot(2712) = A(5430)-A(7787)-A(7788) - Vdot(2713) = A(5128)-A(7505)-A(7506) - Vdot(2714) = A(3577)+A(5848)+A(5852)-A(5854)-A(5855) - Vdot(2715) = A(1939)-A(4380)-A(4381)-A(4382)-A(4383) - Vdot(2716) = A(6743)+A(6777)+A(6783)-A(8779)+A(8816)+A(8819)+A(8821) - Vdot(2717) = A(6539)+A(6540)+A(6542)+A(8566)-A(8572) - Vdot(2718) = A(12405)-A(13345)-A(13346) - Vdot(2719) = A(14571)-A(14808)+A(14813)+A(14970)+A(14972)+A(14975) - Vdot(2720) = A(515)+A(516)+A(518)+A(2234)-A(2236) - Vdot(2721) = A(13490)-A(14018)-A(14019) - Vdot(2722) = A(9057)+A(9058)+A(9060)+A(10675)+A(10677)-A(10678)-A(10679) - Vdot(2723) = A(12408)-A(13347)-A(13348)-A(13349) - Vdot(2724) = A(13310)+A(13311)+A(13312)+A(13949)-A(13950) - Vdot(2725) = A(12544)-A(13415)-A(13416) - Vdot(2726) = A(11347)-A(12513)-A(12514) - Vdot(2727) = A(4658)-A(7035)-A(7036)-A(7037) - Vdot(2728) = A(4047)+A(4048)+A(4049)+A(6389)-A(6390)+A(6391) - Vdot(2729) = A(15007)-A(15096)-A(15097) - Vdot(2730) = A(9470)-A(11079)-A(11080)-A(11081)-A(11082) - Vdot(2731) = A(9745)+A(9746)+A(9747)+A(11394)-A(11395) - Vdot(2732) = A(4066)+A(4067)+A(4068)+A(6411)-A(6412)+A(6413) - Vdot(2733) = A(11518)+A(11519)+A(11520)+A(12636)-A(12637) - Vdot(2734) = A(888)+A(889)+A(891)+A(2648)-A(2649)+A(2658) - Vdot(2735) = A(11878)-A(12874)-A(12875) - Vdot(2736) = A(11666)+A(11667)+A(11668)+A(12718)-A(12719) - Vdot(2737) = A(9204)-A(10841)-A(10842)-A(10843) - Vdot(2738) = A(5326)-A(7692)-A(7693) - Vdot(2739) = A(11441)+A(11442)+A(11443)+A(12569)-A(12570) - Vdot(2740) = A(3704)-A(6012)-A(6013)-A(6014) - Vdot(2741) = A(9968)+A(9969)+A(9970)+A(11534)-A(11535) - Vdot(2742) = A(8986)-A(10621)-A(10622) - Vdot(2743) = A(2322)-A(4797)-A(4798) - Vdot(2744) = A(7111)+A(7112)+A(7113)+A(9239)-A(9241) - Vdot(2745) = A(4778)+A(4779)+A(4781)+A(7186)+A(7188)-A(7190) - Vdot(2746) = A(9293)+A(9294)+A(9295)+A(10916)-A(10918)+A(10919) - Vdot(2747) = A(597)+A(598)+A(600)+A(2340)-A(2342) - Vdot(2748) = A(129)+A(141)-A(843)-A(844)-A(845)-A(846) - Vdot(2749) = A(14556)+A(14557)+A(14559)+A(14792)-A(14793) - Vdot(2750) = A(13147)+A(13148)+A(13149)+A(13810)-A(13811) - Vdot(2751) = A(13383)+A(13384)+A(13385)+A(13983)-A(13985) - Vdot(2752) = A(7846)+A(7847)+A(7850)+A(9798)-A(9799) - Vdot(2753) = A(6750)-A(8788)-A(8789)-A(8790) - Vdot(2754) = A(12778)-A(13549)-A(13550) - Vdot(2755) = A(5053)-A(7411)-A(7412) - Vdot(2756) = A(14690)-A(14883)-A(14884) - Vdot(2757) = A(6788)-A(8825)-A(8826) - Vdot(2758) = A(10030)+A(10031)+A(10032)+A(11573)-A(11574) - Vdot(2759) = A(12075)-A(13077)-A(13078) - Vdot(2760) = A(9644)+A(9645)+A(9646)+A(11289)-A(11291) - Vdot(2761) = A(5004)-A(7358)-A(7359) - Vdot(2762) = A(3458)+A(3459)+A(3460)+A(5714)-A(5715)+A(5716) - Vdot(2763) = A(13407)-A(13992)-A(13993) - Vdot(2764) = A(8798)-A(10547)-A(10548) - Vdot(2765) = A(12657)-A(13480)-A(13481) - Vdot(2766) = A(8236)-A(10172)-A(10173)-A(10174) - Vdot(2767) = A(1081)+A(1082)+A(1083)+A(2874)+A(2877)-A(2879)-A(2880) - Vdot(2768) = A(11707)+A(11708)+A(11709)+A(12739)-A(12740) - Vdot(2769) = A(11473)-A(12599)-A(12600)-A(12601) - Vdot(2770) = A(8755)+A(8756)+A(8758)+A(10513)+A(10515)-A(10516) - Vdot(2771) = A(1840)+A(1841)+A(1842)+A(4162)-A(4165) - Vdot(2772) = A(13798)-A(14194)-A(14195) - Vdot(2773) = A(14272)+A(14275)+A(14541)+A(14543)-A(14546)-A(14547)+A(14548) - Vdot(2774) = A(1945)-A(4387)-A(4388)-A(4389)-A(4390) - Vdot(2775) = A(5095)-A(7463)-A(7464)-A(7465) - Vdot(2776) = A(3765)+A(3766)+A(3767)+A(6083)-A(6085)+A(6086) - Vdot(2777) = A(14469)-A(14727)-A(14728) - Vdot(2778) = A(9559)-A(11172)-A(11173) - Vdot(2779) = A(15134)-A(15155)-A(15156) - Vdot(2780) = A(5784)-A(8037)-A(8038) - Vdot(2781) = A(10893)-A(12275)-A(12276) - Vdot(2782) = A(1510)-A(3477)-A(3478) - Vdot(2783) = A(5266)+A(5272)-A(7647)+A(8509)+A(10398) - Vdot(2784) = A(12964)-A(13631)-A(13632) - Vdot(2785) = A(4996)-A(7346)-A(7347)-A(7348) - Vdot(2786) = A(9386)-A(10989)-A(10990) - Vdot(2787) = A(11120)-A(12375)-A(12376) - Vdot(2788) = A(15172)+A(15173)+A(15174)+A(15176)-A(15177) - Vdot(2789) = A(3953)+A(3954)+A(3955)+A(6292)-A(6293)+A(6294) - Vdot(2790) = A(4772)-A(7184)-A(7185) - Vdot(2791) = A(4292)-A(6706)-A(6707) - Vdot(2792) = A(2464)-A(4874)-A(4875) - Vdot(2793) = A(4986)-A(7335)-A(7336) - Vdot(2794) = A(12678)-A(13495)-A(13496) - Vdot(2795) = A(904)+A(906)+A(907)+A(2669)-A(2670) - Vdot(2796) = A(6494)-A(8522)-A(8523) - Vdot(2797) = A(10978)-A(12319)-A(12320)-A(12321) - Vdot(2798) = A(3273)+A(3274)+A(3275)+A(5468)-A(5469)+A(5470) - Vdot(2799) = A(3272)-A(5466)-A(5467)-A(5468) - Vdot(2800) = A(13954)-A(14358)-A(14359) - Vdot(2801) = A(6529)-A(8559)-A(8560) - Vdot(2802) = A(14550)-A(14786)-A(14787) - Vdot(2803) = A(7741)+A(9711)-A(9713)-A(9714)-A(9715) - Vdot(2804) = A(10596)-A(12006)-A(12007) - Vdot(2805) = A(910)-A(2676)-A(2677)-A(2678) - Vdot(2806) = A(3388)+A(3389)+A(3390)+A(5615)-A(5617)+A(5618) - Vdot(2807) = A(2982)+A(4907)+A(4908)+A(4911)-A(5281)+A(7277) - Vdot(2808) = A(5970)-A(8206)-A(8207) - Vdot(2809) = A(14558)+A(14791)-A(14794)-A(14795)+A(14796) - Vdot(2810) = A(10532)-A(11948)-A(11949)-A(11950) - Vdot(2811) = A(883)-A(2644)-A(2645) - Vdot(2812) = A(12018)-A(13003)-A(13004) - Vdot(2813) = A(14334)-A(14618)-A(14619) - Vdot(2814) = A(9446)-A(11052)-A(11053) - Vdot(2815) = A(4868)-A(7254)-A(7255) - Vdot(2816) = A(6504)+A(6505)+A(6506)+A(8530)-A(8533) - Vdot(2817) = A(1919)-A(4357)-A(4358) - Vdot(2818) = A(10280)+A(10281)+A(10282)+A(11755)-A(11756) - Vdot(2819) = A(10235)+A(10236)+A(10237)+A(11711)-A(11712) - Vdot(2820) = A(11787)+A(11788)+A(11789)+A(12792)-A(12793) - Vdot(2821) = A(4301)+A(4302)+A(4303)+A(6714)-A(6715) - Vdot(2822) = A(11058)-A(12348)-A(12349) - Vdot(2823) = A(11851)-A(12844)-A(12845) - Vdot(2824) = A(6473)-A(8500)-A(8501) - Vdot(2825) = A(4764)-A(7179)-A(7180) - Vdot(2826) = A(11176)+A(11177)+A(11178)+A(12377)+A(12379)-A(12381)+A(12382) - Vdot(2827) = A(10540)+A(10541)+A(10542)+A(11956)-A(11957) - Vdot(2828) = A(4906)-A(7275)-A(7276)-A(7277) - Vdot(2829) = A(13272)-A(13919)-A(13920) - Vdot(2830) = A(5662)-A(7982)-A(7983) - Vdot(2831) = A(1326)+A(1327)+A(1328)+A(3152)-A(3153) - Vdot(2832) = A(9282)+A(9283)+A(9284)+A(10886)-A(10887) - Vdot(2833) = A(13546)-A(14042)-A(14043) - Vdot(2834) = A(4285)-A(6701)-A(6702) - Vdot(2835) = A(5037)-A(7393)-A(7394) - Vdot(2836) = A(4717)-A(7123)-A(7124)-A(7125) - Vdot(2837) = A(3499)+A(3500)+A(3501)+A(5754)-A(5756)+A(5757) - Vdot(2838) = A(12640)-A(13468)-A(13469) - Vdot(2839) = A(1047)-A(2835)-A(2836) - Vdot(2840) = A(536)+A(537)+A(538)+A(2259)-A(2261) - Vdot(2841) = A(5026)-A(7382)-A(7383) - Vdot(2842) = A(11040)-A(12340)-A(12341) - Vdot(2843) = A(9441)-A(11047)-A(11048) - Vdot(2844) = A(9479)-A(11090)-A(11091) - Vdot(2845) = A(13325)-A(13959)-A(13960) - Vdot(2846) = A(9466)-A(11077)-A(11078) - Vdot(2847) = A(3819)+A(3820)+A(3821)+A(6147)-A(6149)+A(6150) - Vdot(2848) = A(9486)-A(11095)-A(11096) - Vdot(2849) = A(1389)+A(1390)+A(1392)+A(3215)-A(3216) - Vdot(2850) = A(9003)-A(10638)-A(10639) - Vdot(2851) = A(1290)+A(1291)+A(1292)+A(3107)-A(3108) - Vdot(2852) = A(12787)-A(13556)-A(13557) - Vdot(2853) = A(13391)+A(13392)+A(13393)+A(13986)-A(13988) - Vdot(2854) = A(11637)+A(11640)+A(12688)+A(12691)-A(12700) - Vdot(2855) = A(15060)-A(15122)-A(15123) - Vdot(2856) = A(14952)-A(15058)+A(15063)+A(15120)+A(15122)+A(15125) - Vdot(2857) = A(3878)-A(6202)-A(6203) - Vdot(2858) = A(5330)+A(5331)+A(5332)+A(7695)-A(7696) - Vdot(2859) = A(13420)-A(13998)-A(13999) - Vdot(2860) = A(9188)-A(10823)-A(10824) - Vdot(2861) = A(724)+A(725)+A(727)+A(2496)-A(2498)+A(2974) - Vdot(2862) = A(12695)-A(13504)-A(13505) - Vdot(2863) = A(12626)-A(13460)-A(13461) - Vdot(2864) = A(15023)-A(15108)-A(15109) - Vdot(2865) = A(9391)+A(9392)+A(9393)+A(10992)-A(10993) - Vdot(2866) = A(12766)-A(13541)-A(13542) - Vdot(2867) = A(12992)-A(13651)-A(13652) - Vdot(2868) = A(10967)-A(12312)-A(12313) - Vdot(2869) = A(686)+A(687)+A(690)+A(2450)-A(2451) - Vdot(2870) = A(12894)-A(13604)-A(13605) - Vdot(2871) = A(5003)-A(7355)-A(7356)-A(7357) - Vdot(2872) = A(5356)-A(7711)-A(7712) - Vdot(2873) = A(879)-A(2641)-A(2642) - Vdot(2874) = A(9661)+A(9662)+A(9663)+A(11310)-A(11312) - Vdot(2875) = A(3693)+A(5996)+A(6000)-A(6002)-A(6003) - Vdot(2876) = A(5524)-A(7866)-A(7867) - Vdot(2877) = A(12439)-A(13357)-A(13358) - Vdot(2878) = A(2003)-A(4461)-A(4462)-A(4463)-A(4464) - Vdot(2879) = A(9107)-A(10758)-A(10759) - Vdot(2880) = A(4786)-A(7196)-A(7197) - Vdot(2881) = A(6893)+A(6894)+A(6895)+A(8939)-A(8940) - Vdot(2882) = A(2301)-A(4792)-A(4793) - Vdot(2883) = A(6830)-A(8873)-A(8874) - Vdot(2884) = A(9414)-A(11015)-A(11016) - Vdot(2885) = A(9424)-A(11027)-A(11028) - Vdot(2886) = A(11008)-A(12329)-A(12330) - Vdot(2887) = A(4978)-A(7330)-A(7331) - Vdot(2888) = A(2130)-A(4644)-A(4645) - Vdot(2889) = A(5104)+A(5105)+A(5107)+A(7473)+A(7475)-A(7477)-A(7478) - Vdot(2890) = A(13837)+A(13838)+A(13840)+A(14232)-A(14233) - Vdot(2891) = A(604)+A(605)+A(607)+A(2346)+A(2349)-A(2351)-A(2352) - Vdot(2892) = A(8973)-A(10610)-A(10611) - Vdot(2893) = A(1964)-A(4413)-A(4414)-A(4415)-A(4416) - Vdot(2894) = A(14765)+A(14766)+A(14768)+A(14939)-A(14940) - Vdot(2895) = A(14580)+A(14581)-A(14816)-A(14817) - Vdot(2896) = A(5394)-A(7744)-A(7745) - Vdot(2897) = A(8090)+A(8091)+A(8092)+A(10027)-A(10028) - Vdot(2898) = A(6978)-A(9040)-A(9041) - Vdot(2899) = A(13533)-A(14036)-A(14037) - Vdot(2900) = A(6397)-A(8449)-A(8450)-A(8451) - Vdot(2901) = A(13475)-A(14013)-A(14014) - Vdot(2902) = A(2118)+A(2119)+A(2120)+A(4633)-A(4634) - Vdot(2903) = A(11541)+A(11542)+A(11543)+A(12650)-A(12651) - Vdot(2904) = A(5675)-A(7988)-A(7989) - Vdot(2905) = A(10353)+A(10354)+A(10355)+A(11792)-A(11793) - Vdot(2906) = A(1068)+A(1069)+A(1071)+A(2857)+A(2860)-A(2862)-A(2863) - Vdot(2907) = A(12838)-A(13590)-A(13591) - Vdot(2908) = A(12266)-A(13258)-A(13259) - Vdot(2909) = A(10879)+A(10881)+A(10884)-A(12264)+A(12269)+A(13256)+A(13258)+A(13261) - Vdot(2910) = A(11234)+A(12429)+A(12432)-A(12433)-A(12434)-A(12435) - Vdot(2911) = A(12541)-A(13413)-A(13414) - Vdot(2912) = A(1382)+A(1383)+A(1385)+A(3208)-A(3209) - Vdot(2913) = A(978)-A(2742)-A(2743) - Vdot(2914) = -A(147)-A(148)+A(902)+A(1185) - Vdot(2915) = A(3673)-A(5978)-A(5979) - Vdot(2916) = A(14220)+A(14221)+A(14222)+A(14482)-A(14483) - Vdot(2917) = A(5158)-A(7533)-A(7534) - Vdot(2918) = A(9870)+A(9871)+A(9872)+A(11463)-A(11464) - Vdot(2919) = A(12706)+A(12707)+A(12708)+A(13510)-A(13511) - Vdot(2920) = A(7953)-A(9888)-A(9889)-A(9890) - Vdot(2921) = A(4931)-A(7298)-A(7299) - Vdot(2922) = A(1156)+A(1157)+A(1158)+A(2961)+A(2963)-A(2965)-A(2966) - Vdot(2923) = A(8435)-A(10338)-A(10339)-A(10340) - Vdot(2924) = A(5416)-A(7781)-A(7782) - Vdot(2925) = A(11897)-A(12891)-A(12892) - Vdot(2926) = A(810)+A(811)+A(814)+A(2573)+A(2576)-A(2578)-A(2579) - Vdot(2927) = A(5954)-A(8177)-A(8178) - Vdot(2928) = A(12830)-A(13585)-A(13586) - Vdot(2929) = A(11644)-A(12703)-A(12704) - Vdot(2930) = A(13339)-A(13965)-A(13966)-A(13967) - Vdot(2931) = A(14748)+A(14749)+A(14750)+A(14925)-A(14927) - Vdot(2932) = A(6879)+A(8923)-A(8928)-A(8929)+A(8930) - Vdot(2933) = A(1028)+A(1029)+A(1030)+A(2805)+A(2807)-A(2809)-A(2810)+A(2811) - Vdot(2934) = A(5096)-A(7466)-A(7467) - Vdot(2935) = A(11449)+A(11450)+A(11451)+A(12575)-A(12576) - Vdot(2936) = A(5881)-A(8113)-A(8114) - Vdot(2937) = A(11765)+A(11766)+A(11767)+A(12773)-A(12774) - Vdot(2938) = A(14605)+A(14823)+A(14825)+A(14827)-A(14829)+A(14830) - Vdot(2939) = A(6850)+A(6851)+A(6853)+A(8892)+A(8895)-A(8897)-A(8898) - Vdot(2940) = A(6866)-A(8912)-A(8913)-A(8914) - Vdot(2941) = A(14587)-A(14821)-A(14822) - Vdot(2942) = A(14633)-A(14847)-A(14848) - Vdot(2943) = A(9064)-A(10694)-A(10695) - Vdot(2944) = A(1359)+A(1360)+A(1363)+A(3183)-A(3186) - Vdot(2945) = A(2439)-A(4862)-A(4863) - Vdot(2946) = A(12444)+A(12445)+A(12447)+A(13359)-A(13362) - Vdot(2947) = A(9128)-A(10775)-A(10776) - Vdot(2948) = A(4027)-A(6368)-A(6369) - Vdot(2949) = A(8180)+A(8181)+A(8183)+A(10124)-A(10125)+A(10132) - Vdot(2950) = A(3928)-A(6257)-A(6258) - Vdot(2951) = A(6935)-A(8983)-A(8984) - Vdot(2952) = A(11688)+A(11689)+A(11690)+A(12728)-A(12729) - Vdot(2953) = A(13691)+A(13692)+A(13694)+A(14094)+A(14096)-A(14097)+A(14099) - Vdot(2954) = A(6770)+A(6772)+A(6774)+A(8811)-A(8812)+A(8814) - Vdot(2955) = A(3240)-A(5424)-A(5425) - Vdot(2956) = A(5638)-A(7939)-A(7940) - Vdot(2957) = A(12879)-A(13600)-A(13601) - Vdot(2958) = A(9115)-A(10765)-A(10766) - Vdot(2959) = A(2101)+A(2102)+A(2104)+A(4594)-A(4595) - Vdot(2960) = A(13367)+A(13368)+A(13369)+A(13977)-A(13979) - Vdot(2961) = A(2202)+A(2203)+A(2204)+A(4756)-A(4758) - Vdot(2962) = A(9081)+A(9082)+A(9083)+A(10705)-A(10706) - Vdot(2963) = A(9931)+A(9932)+A(9933)+A(11506)-A(11507) - Vdot(2964) = A(1114)-A(2917)-A(2918) - Vdot(2965) = A(13940)+A(13943)-A(14346)+A(14351)+A(14638)+A(14640)+A(14643) - Vdot(2966) = A(12923)-A(13618)-A(13619) - Vdot(2967) = A(8243)+A(8244)+A(8245)+A(10178)-A(10179)+A(10180)+A(10181) - Vdot(2968) = A(15150)+A(15151)+A(15152)+A(15169)-A(15170) - Vdot(2969) = A(10148)-A(11657)-A(11658) - Vdot(2970) = A(13435)-A(14002)-A(14003) - Vdot(2971) = A(6439)-A(8479)-A(8480)-A(8481) - Vdot(2972) = A(10562)+A(10563)+A(10565)+A(11970)-A(11974) - Vdot(2973) = -A(149)-A(150)+A(1201)+A(1275) - Vdot(2974) = A(1014)+A(1015)+A(1016)+A(2784)+A(2787)-A(2789)-A(2790) - Vdot(2975) = A(13305)-A(13944)-A(13945)-A(13946) - Vdot(2976) = A(8796)-A(10543)-A(10544)-A(10545) - Vdot(2977) = A(12998)-A(13659)-A(13660) - Vdot(2978) = A(11021)-A(12334)-A(12335) - Vdot(2979) = A(14527)+A(14531)+A(14770)+A(14772)-A(14775)-A(14776)+A(14777) - Vdot(2980) = A(14698)-A(14889)-A(14890) - Vdot(2981) = A(11218)-A(12412)-A(12413)-A(12414) - Vdot(2982) = A(9499)+A(9500)+A(9501)+A(11107)+A(11109)-A(11111)+A(11112) - Vdot(2983) = A(582)+A(583)+A(584)+A(2314)-A(2316) - Vdot(2984) = A(13741)-A(14148)-A(14149) - Vdot(2985) = A(4967)+A(4973)-A(7321)-A(7322) - Vdot(2986) = A(11490)+A(11491)+A(11492)+A(12619)-A(12620) - Vdot(2987) = A(12367)-A(13333)-A(13334) - Vdot(2988) = A(5375)-A(7725)-A(7726) - Vdot(2989) = A(12968)+A(12969)+A(12970)+A(13634)-A(13635) - Vdot(2990) = A(1041)+A(1042)+A(1044)+A(2822)+A(2825)-A(2827)-A(2828) - Vdot(2991) = A(12550)-A(13423)-A(13424) - Vdot(2992) = A(782)+A(783)+A(785)+A(2551)-A(2552)+A(3033) - Vdot(2993) = A(781)-A(2549)-A(2550)-A(2551) - Vdot(2994) = A(3705)+A(3706)+A(3707)+A(6013)-A(6015)+A(6016) - Vdot(2995) = A(11742)+A(11743)+A(11744)+A(12759)-A(12760) - Vdot(2996) = A(4310)+A(4311)+A(4312)+A(6716)+A(6718)-A(6720) - Vdot(2997) = A(9092)+A(9093)+A(9094)+A(10729)-A(10731) - Vdot(2998) = A(13465)-A(14009)-A(14010) - Vdot(2999) = A(11219)-A(12415)-A(12416) - Vdot(3000) = A(11220)+A(11221)+A(11222)+A(12412)+A(12415)-A(12417)+A(12419) - Vdot(3001) = A(9781)+A(9782)+A(9783)+A(11426)-A(11427) - Vdot(3002) = A(1335)+A(1336)+A(1338)-A(3156)-A(3157) - Vdot(3003) = A(733)-A(2502)-A(2503) - Vdot(3004) = A(10259)+A(10260)+A(10261)+A(11735)-A(11736) - Vdot(3005) = A(8420)-A(10325)-A(10326)-A(10327) - Vdot(3006) = A(13782)-A(14182)-A(14183) - Vdot(3007) = A(12460)-A(13372)-A(13373) - Vdot(3008) = A(12979)-A(13639)-A(13640) - Vdot(3009) = A(9619)+A(9620)+A(9621)+A(11253)+A(11255)-A(11257)+A(11258) - Vdot(3010) = A(14215)-A(14479)-A(14480) - Vdot(3011) = A(12231)-A(13213)-A(13214) - Vdot(3012) = A(10084)-A(11615)-A(11616) - Vdot(3013) = A(9492)+A(9493)+A(9495)+A(11097)+A(11099)-A(11101)+A(11105) - Vdot(3014) = A(13536)-A(14038)-A(14039) - Vdot(3015) = A(9695)-A(11362)-A(11363) - Vdot(3016) = A(10163)+A(10164)+A(10165)+A(11672)-A(11673) - Vdot(3017) = A(7017)-A(9078)-A(9079) - Vdot(3018) = A(636)-A(2388)-A(2389)-A(2390) - Vdot(3019) = A(12752)-A(13531)-A(13532) - Vdot(3020) = A(4881)-A(7258)-A(7259) - Vdot(3021) = A(4887)-A(7262)-A(7263) - Vdot(3022) = A(3258)-A(5450)-A(5451)-A(5452) - Vdot(3023) = A(5153)-A(7529)-A(7530) - Vdot(3024) = A(5092)-A(7461)-A(7462) - Vdot(3025) = A(9511)-A(11127)-A(11128) - Vdot(3026) = A(5124)-A(7500)-A(7501) - Vdot(3027) = A(3651)+A(3652)+A(3653)+A(5948)-A(5949)+A(5950) - Vdot(3028) = A(8214)+A(8215)+A(8216)+A(10152)-A(10153) - Vdot(3029) = A(14565)-A(14806)-A(14807) - Vdot(3030) = A(2096)+A(2097)+A(2099)+A(4590)-A(4591) - Vdot(3031) = A(6827)-A(8870)-A(8871)-A(8872) - Vdot(3032) = A(959)+A(960)+A(962)+A(2720)+A(2723)-A(2725)-A(2726) - Vdot(3033) = A(6545)-A(8577)-A(8578) - Vdot(3034) = A(4615)-A(6998)-A(6999) - Vdot(3035) = A(1958)-A(4406)-A(4407)-A(4408)-A(4409) - Vdot(3036) = A(11417)+A(11418)+A(11419)+A(12559)-A(12560) - Vdot(3037) = A(7102)+A(7103)+A(7104)+A(9223)-A(9225) - Vdot(3038) = A(5114)-A(7487)-A(7488)-A(7489) - Vdot(3039) = A(7090)+A(7091)+A(7092)+A(9218)-A(9220) - Vdot(3040) = A(12552)-A(13425)-A(13426) - Vdot(3041) = A(14878)+A(14879)+A(14881)+A(15015)-A(15016)+A(15018) - Vdot(3042) = A(11862)-A(12848)-A(12849) - Vdot(3043) = A(4733)-A(7153)-A(7154)-A(7155) - Vdot(3044) = A(908)+A(913)-A(2671)-A(2672) - Vdot(3045) = A(11868)-A(12852)-A(12853) - Vdot(3046) = A(5036)-A(7390)-A(7391)-A(7392) - Vdot(3047) = A(2432)-A(4858)-A(4859) - Vdot(3048) = A(4286)+A(4287)+A(4288)+A(6700)+A(6702)-A(6703) - Vdot(3049) = A(6792)-A(8827)-A(8828)-A(8829) - Vdot(3050) = A(3535)+A(3536)+A(3537)+A(5801)-A(5802)+A(5803) - Vdot(3051) = A(5364)-A(7715)-A(7716) - Vdot(3052) = A(12780)-A(13551)-A(13552) - Vdot(3053) = A(11982)-A(12973)-A(12974) - Vdot(3054) = A(4850)+A(4851)+A(4852)+A(7250)-A(7251) - Vdot(3055) = A(6916)-A(8963)-A(8964)-A(8965) - Vdot(3056) = A(4902)-A(7273)-A(7274) - Vdot(3057) = A(9473)+A(11081)-A(11084)-A(11085)+A(11087) - Vdot(3058) = A(13399)+A(13400)+A(13401)+A(13989)-A(13991) - Vdot(3059) = A(4963)-A(7319)-A(7320) - Vdot(3060) = A(3322)-A(5532)-A(5533) - Vdot(3061) = A(13501)-A(14023)-A(14024) - Vdot(3062) = A(14963)+A(14964)+A(14965)+A(15072)-A(15073) - Vdot(3063) = A(12664)-A(13485)-A(13486) - Vdot(3064) = A(8636)+A(8637)+A(8638)+A(10417)-A(10420) - Vdot(3065) = A(10314)+A(10315)+A(10316)+A(11778)-A(11779) - Vdot(3066) = A(2056)+A(2057)+A(2059)+A(4530)+A(4532)-A(4533)-A(4534) - Vdot(3067) = A(14462)+A(14463)+A(14464)+A(14722)-A(14723) - Vdot(3068) = A(2036)-A(4505)-A(4506) - Vdot(3069) = A(2037)+A(2038)+A(2039)+A(4504)+A(4506)-A(4507)-A(4508) - Vdot(3070) = A(12474)-A(13380)-A(13381) - Vdot(3071) = A(13570)+A(13571)+A(13572)+A(14051)-A(14052) - Vdot(3072) = A(1796)+A(1797)+A(1798)+A(4117)-A(4118) - Vdot(3073) = A(13375)+A(13376)+A(13377)+A(13980)-A(13982) - Vdot(3074) = A(7075)+A(7076)+A(7077)+A(9170)-A(9171) - Vdot(3075) = A(12565)-A(13430)-A(13431) - Vdot(3076) = A(972)-A(2736)-A(2737) - Vdot(3077) = A(1190)+A(2993)-A(2994)-A(2995) - Vdot(3078) = A(11187)-A(12394)-A(12395)-A(12396) - Vdot(3079) = A(12352)+A(12353)+A(12356)+A(13313)-A(13317) - Vdot(3080) = A(6679)+A(6680)+A(6681)+A(8739)-A(8743)+A(8744) - Vdot(3081) = A(9043)-A(10662)-A(10663) - Vdot(3082) = A(1666)+A(3809)+A(3811)+A(3815)-A(3816)-A(3817) - Vdot(3083) = -A(54)-A(55)+A(693)+A(792) - Vdot(3084) = -A(347)-A(348)-A(349)-A(350)-A(351) - Vdot(3085) = A(3769)-A(6088)-A(6089) - Vdot(3086) = A(11261)+A(11267)-A(12449)-A(12450)+A(12453)+A(12456) - Vdot(3087) = A(6345)-A(8404)-A(8405) - Vdot(3088) = A(7818)-A(9770)-A(9771) - Vdot(3089) = A(1546)+A(3542)+A(3548)+A(3550)-A(3551)-A(3552) - Vdot(3090) = A(2071)+A(4544)+A(4546)-A(4549)-A(4550) - Vdot(3091) = A(1144)+A(2945)+A(2947)-A(2950)-A(2951)+A(2952) - Vdot(3092) = A(5472)-A(7806)-A(7807) - Vdot(3093) = A(3527)-A(5788)-A(5789) - Vdot(3094) = A(8017)+A(8018)+A(8021)+A(9940)-A(9941)-A(9942) - Vdot(3095) = A(5631)-A(7930)-A(7931) - Vdot(3096) = -A(327)-A(328)-A(329)-A(330)-A(331) - Vdot(3097) = -A(362)-A(363)-A(364)-A(365)-A(366) - Vdot(3098) = A(3994)-A(6334)-A(6335) - Vdot(3099) = A(815)+A(821)-A(2580)+A(4149) - Vdot(3100) = A(5952)-A(8171)-A(8172) - Vdot(3101) = A(3945)-A(6279)-A(6280) - Vdot(3102) = A(1821)+A(1832)-A(4137)-A(4138) - Vdot(3103) = A(1623)+A(3719)+A(3721)+A(3729)-A(3730)-A(3731) - Vdot(3104) = A(1978)+A(1979)+A(1980)+A(2363)+A(3150)+A(4426)-A(4428) - Vdot(3105) = -A(337)-A(338)-A(339)-A(340)-A(341) - Vdot(3106) = A(581)+A(1288)-A(2315) - Vdot(3107) = A(3889)+A(6216)+A(6218)-A(6222)-A(6223)+A(6224) - Vdot(3108) = A(3886)-A(6218)-A(6219) - Vdot(3109) = A(1110)+A(2908)+A(2910)-A(2912)-A(2913)+A(2914) - Vdot(3110) = A(1151)+A(2954)+A(2956)-A(2958)-A(2959)+A(2960) - Vdot(3111) = A(3709)-A(6018)-A(6019) - Vdot(3112) = A(5777)-A(8028)-A(8029) - Vdot(3113) = -A(372)-A(373)-A(374)-A(375)-A(376) - Vdot(3114) = A(6028)-A(8228)-A(8229) - Vdot(3115) = A(4559)+A(6944)-A(6949)-A(6950)+A(6951) - Vdot(3116) = A(6296)-A(8386)-A(8387) - Vdot(3117) = A(1130)+A(2930)+A(2932)-A(2934)-A(2935)+A(2936) - Vdot(3118) = A(1090)+A(2886)+A(2888)-A(2890)-A(2891)+A(2892) - Vdot(3119) = A(5718)-A(8000)-A(8001) - Vdot(3120) = A(7994)-A(9911)-A(9912) - Vdot(3121) = A(1413)+A(3227)+A(3229)+A(3233)-A(3234)-A(3235) - Vdot(3122) = A(1597)+A(3658)+A(3664)+A(3666)-A(3667)-A(3668) - Vdot(3123) = A(5879)-A(8107)-A(8108) - Vdot(3124) = A(11184)+A(12385)+A(12388)-A(12390)-A(12391)+A(12393) - Vdot(3125) = A(3450)-A(5701)-A(5702) - Vdot(3126) = A(9582)+A(11201)+A(11203)-A(11205)-A(11206)+A(11208) - Vdot(3127) = A(6250)-A(8370)-A(8371) - Vdot(3128) = A(8797)+A(8803)+A(10531)+A(10536)+A(10544)-A(10546)+A(10547)+A(10550)+A(11946)+A(11948)+A(11951)+A(11954)& - &+A(13430) - Vdot(3129) = -A(377)-A(378)-A(379)-A(380)-A(381) - Vdot(3130) = A(381)-A(1733)-A(1734)-A(1735)-A(1736)-A(1737)-A(1738) - Vdot(3131) = A(331)-A(1496)-A(1497)-A(1498)-A(1499)-A(1500)-A(1501) - Vdot(3132) = A(6197)+A(8342)+A(8346)-A(8348)-A(8349)+A(8414) - Vdot(3133) = A(1672)-A(3841)-A(3842)+A(5647)+A(6077) - Vdot(3134) = -A(332)-A(333)-A(334)-A(335)-A(336) - Vdot(3135) = A(336)-A(1521)-A(1522)-A(1523)-A(1524)-A(1525)-A(1526) - Vdot(3136) = A(339)-A(1534)-A(1535)-A(1536)-A(1537)-A(1538)-A(1539) - Vdot(3137) = A(8299)-A(10208)-A(10209) - Vdot(3138) = -A(357)-A(358)-A(359)-A(360)-A(361) - Vdot(3139) = A(360)-A(1641)-A(1642)-A(1643)-A(1644)-A(1645)-A(1646) - Vdot(3140) = A(3591)-A(5868)-A(5869) - Vdot(3141) = A(2103)+A(2117)-A(4596) - Vdot(3142) = A(6099)-A(8305)-A(8306) - Vdot(3143) = A(8364)-A(10238)-A(10239) - Vdot(3144) = -A(342)-A(343)-A(344)-A(345)-A(346) - Vdot(3145) = -A(322)-A(323)-A(324)-A(325)-A(326) - Vdot(3146) = A(7804)-A(9734)-A(9735) - Vdot(3147) = A(394)-A(1791)-A(1792)-A(1793)-A(1794) - Vdot(3148) = A(1123)+A(2922)+A(2924)-A(2926)-A(2927)+A(2928) - Vdot(3149) = A(343)-A(1560)-A(1561)-A(1562)-A(1563)-A(1564)-A(1565) - Vdot(3150) = A(3508)-A(5766)-A(5767) - Vdot(3151) = A(11277)+A(11285)-A(12463)-A(12464)+A(12467)+A(12470) - Vdot(3152) = A(8398)-A(10298)-A(10299) - Vdot(3153) = A(3902)-A(6239)-A(6240) - Vdot(3154) = A(8570)-A(10369)-A(10370)-A(10371) - Vdot(3155) = A(411)-A(1872)-A(1873)-A(1874)-A(1875) - Vdot(3156) = A(1911)+A(1917)+A(4346)-A(4348)-A(4349)-A(4350)+A(4351)+A(4354) - Vdot(3157) = A(319)-A(1432)-A(1433)-A(1434)-A(1435)-A(1436)-A(1437) - Vdot(3158) = A(326)-A(1470)-A(1471)-A(1472)-A(1473)-A(1474)-A(1475) - Vdot(3159) = A(631)+A(1324)-A(2386) - Vdot(3160) = A(8731)-A(10498)-A(10499)-A(10500) - Vdot(3161) = A(3270)-A(5464)-A(5465) - Vdot(3162) = A(5805)-A(8047)-A(8048) - Vdot(3163) = A(7924)-A(9853)-A(9854) - Vdot(3164) = A(376)-A(1715)-A(1716)-A(1717)-A(1718)-A(1719)-A(1720) - Vdot(3165) = A(3643)-A(5935)-A(5936) - Vdot(3166) = A(1137)+A(2938)+A(2940)-A(2942)-A(2943)+A(2944) - Vdot(3167) = A(5497)-A(7822)-A(7823) - Vdot(3168) = A(1097)+A(2894)+A(2896)-A(2898)-A(2899)+A(2900) - Vdot(3169) = -A(387)-A(388)-A(389)-A(390)-A(391) - Vdot(3170) = A(3392)-A(5620)-A(5621) - Vdot(3171) = A(914)+A(2654)+A(2676)-A(2680)-A(2681) - Vdot(3172) = A(348)-A(1585)-A(1586)-A(1587)-A(1588)-A(1589)-A(1590) - Vdot(3173) = A(535)+A(1223)-A(2260) - Vdot(3174) = A(1572)+A(3601)+A(3607)+A(3609)-A(3610)-A(3611) - Vdot(3175) = A(1301)+A(1313)-A(3121)-A(3122) - Vdot(3176) = A(3379)+A(5596)+A(5598)-A(5602)-A(5603)+A(5604) - Vdot(3177) = A(3376)-A(5598)-A(5599) - Vdot(3178) = A(8163)-A(10097)-A(10098) - Vdot(3179) = -A(352)-A(353)-A(354)-A(355)-A(356) - Vdot(3180) = A(354)-A(1611)-A(1612)-A(1613)-A(1614)-A(1615)-A(1616) - Vdot(3181) = A(8039)-A(9973)-A(9974) - Vdot(3182) = -A(382)-A(383)-A(384)-A(385)-A(386) - Vdot(3183) = A(11298)+A(11306)-A(12477)-A(12478)+A(12481)+A(12484) - Vdot(3184) = A(11319)+A(11327)-A(12494)-A(12495)+A(12498)+A(12501) - Vdot(3185) = A(11340)+A(11356)-A(12508)-A(12509)+A(12517)+A(12520) - Vdot(3186) = A(1754)+A(1782)-A(4031)-A(4032)+A(6355) - Vdot(3187) = A(8101)-A(10033)-A(10034) - Vdot(3188) = A(1398)+A(1401)-A(3222) - Vdot(3189) = A(8022)-A(9948)-A(9949) - Vdot(3190) = A(8380)-A(10264)-A(10265) - Vdot(3191) = A(8224)-A(10156)-A(10157) - Vdot(3192) = -A(367)-A(368)-A(369)-A(370)-A(371) - Vdot(3193) = A(371)-A(1696)-A(1697)-A(1698)-A(1699)-A(1700)-A(1701) - Vdot(3194) = A(4260)+A(4261)+A(4264)+A(6658)+A(6662)-A(6666) - Vdot(3195) = A(3712)+A(3713)+A(3714)+A(6014)+A(6017)+A(6025)-A(6026)+A(6027) - Vdot(3196) = A(7944)-A(9879)-A(9880)-A(9881) - Vdot(3197) = A(8695)-A(10465)-A(10466) - Vdot(3198) = A(679)-A(2442)-A(2443)-A(2444) - Vdot(3199) = A(6008)-A(8220)-A(8221) - Vdot(3200) = A(4107)+A(6458)+A(6462)-A(6464)-A(6465) - Vdot(3201) = A(8700)-A(10467)-A(10468) - Vdot(3202) = A(301)+A(307)-A(1376)-A(1377)-A(1378)-A(1379) - Vdot(3203) = A(4968)-A(7323)-A(7324)-A(7325) - Vdot(3204) = A(8629)-A(10414)-A(10415) - Vdot(3205) = A(4827)-A(7215)-A(7216)-A(7217) - Vdot(3206) = A(3430)-A(5669)-A(5670) - Vdot(3207) = A(656)-A(2414)-A(2415)-A(2416) - Vdot(3208) = A(1202)-A(3010)-A(3011)-A(3012) - Vdot(3209) = A(7876)-A(9821)-A(9822)-A(9823) - Vdot(3210) = A(1599)-A(3677)-A(3678)-A(3679)-A(3680)+A(5956) - Vdot(3211) = A(12812)-A(13573)-A(13574) - Vdot(3212) = A(5169)-A(7544)-A(7545) - Vdot(3213) = A(13233)+A(13236)+A(13882)+A(13884)-A(13887)-A(13888)+A(13889) - Vdot(3214) = A(7896)-A(9842)-A(9843)-A(9844) - Vdot(3215) = A(11939)+A(11940)+A(11942)+A(12943)-A(12944)+A(12947) - Vdot(3216) = A(11938)-A(12941)-A(12942)-A(12943) - Vdot(3217) = A(12916)-A(13612)-A(13613)-A(13614) - Vdot(3218) = A(12488)-A(13388)-A(13389) - Vdot(3219) = A(389)-A(1770)-A(1771)-A(1772)-A(1773)+A(4064) - Vdot(3220) = A(5562)-A(7873)-A(7874) - Vdot(3221) = A(8238)-A(10175)-A(10176) - Vdot(3222) = A(1951)-A(4395)-A(4396)-A(4397)-A(4398) - Vdot(3223) = A(8995)-A(10632)-A(10633) - Vdot(3224) = A(12815)-A(13575)-A(13576) - Vdot(3225) = A(5897)-A(8143)-A(8144)-A(8145) - Vdot(3226) = A(5968)-A(8203)-A(8204)-A(8205) - Vdot(3227) = A(3780)+A(3786)-A(6102)-A(6103) - Vdot(3228) = A(1884)+A(4268)-A(4274)-A(4275)-A(4276) - Vdot(3229) = A(5725)-A(8011)-A(8012) - Vdot(3230) = A(5807)-A(8053)-A(8054) - Vdot(3231) = A(5319)-A(7686)-A(7687)-A(7688) - Vdot(3232) = A(6131)-A(8316)-A(8317) - Vdot(3233) = A(12975)+A(12981)-A(13636)+A(14808)+A(14974)+A(15058)+A(15124) - Vdot(3234) = A(4200)+A(4201)+A(4203)+A(6561)+A(6563)-A(6565) - Vdot(3235) = A(4065)-A(6409)-A(6410)-A(6411) - Vdot(3236) = A(11906)-A(12904)-A(12905) - Vdot(3237) = A(10020)-A(11567)-A(11568)-A(11569) - Vdot(3238) = A(3572)-A(5848)-A(5849)-A(5850) - Vdot(3239) = A(6906)-A(8952)-A(8953) - Vdot(3240) = A(8594)-A(10388)-A(10389) - Vdot(3241) = A(4241)+A(4242)+A(4244)+A(6619)+A(6622)-A(6627)+A(6628) - Vdot(3242) = A(9214)+A(9314)+A(10823)+A(10843)+A(10844)+A(10848)+A(10849)+A(10851)-A(10854)+A(10855) - Vdot(3243) = A(700)-A(2474)-A(2475)-A(2476) - Vdot(3244) = A(386)-A(1759)-A(1760)-A(1761)-A(1762)+A(4045) - Vdot(3245) = A(505)+A(1175)-A(2226)+A(8648) - Vdot(3246) = A(3825)+A(3826)+A(3827)+A(6148)+A(6151)+A(6153)-A(6154)+A(6155) - Vdot(3247) = A(10592)+A(10598)+A(10858)+A(10859)-A(12002)-A(12003) - Vdot(3248) = A(14134)-A(14435)-A(14436)-A(14437) - Vdot(3249) = A(8422)-A(10328)-A(10329) - Vdot(3250) = A(10385)+A(10493)-A(11816)-A(11817)-A(11818) - Vdot(3251) = A(3854)+A(6182)+A(6187)-A(6189)-A(6190)-A(6191) - Vdot(3252) = A(3130)-A(5360)+A(8190)+A(8191)+A(8194)+A(10139) - Vdot(3253) = A(3296)-A(5485)-A(5486)-A(5487) - Vdot(3254) = A(819)-A(2584)-A(2585) - Vdot(3255) = A(2413)-A(4854)+A(11063)+A(11064)+A(11065)+A(12342) - Vdot(3256) = A(707)-A(2481)-A(2482)-A(2483) - Vdot(3257) = A(13566)-A(14048)-A(14049) - Vdot(3258) = A(3833)-A(6160)-A(6161) - Vdot(3259) = A(10556)-A(11967)-A(11968)-A(11969) - Vdot(3260) = A(5013)-A(7368)-A(7369) - Vdot(3261) = A(10407)-A(11834)-A(11835)-A(11836) - Vdot(3262) = A(4044)+A(6378)+A(6383)-A(6385)-A(6386) - Vdot(3263) = A(364)-A(1667)-A(1668)-A(1669)-A(1670)+A(3823) - Vdot(3264) = A(3789)-A(6113)-A(6114) - Vdot(3265) = A(562)-A(2289)-A(2290)-A(2291) - Vdot(3266) = A(1276)-A(3091)-A(3092)-A(3093) - Vdot(3267) = A(12912)-A(13608)-A(13609)-A(13610) - Vdot(3268) = A(1314)+A(1315)+A(1318)+A(3122)+A(3139)-A(3140) - Vdot(3269) = A(3054)-A(5318)+A(8130)+A(8131)+A(8132)+A(10075) - Vdot(3270) = A(13177)+A(13181)+A(13842)+A(13844)-A(13847)-A(13848)+A(13849) - Vdot(3271) = A(3978)-A(6312)-A(6313) - Vdot(3272) = A(11875)-A(12871)-A(12872)-A(12873) - Vdot(3273) = A(8665)-A(10450)-A(10451) - Vdot(3274) = A(13351)-A(13969)-A(13970)-A(13971) - Vdot(3275) = A(10572)-A(11988)-A(11989) - Vdot(3276) = A(11929)-A(12931)-A(12932)-A(12933) - Vdot(3277) = A(506)-A(2227)-A(2228)-A(2229) - Vdot(3278) = A(5367)-A(7717)-A(7718)-A(7719) - Vdot(3279) = A(3989)-A(6328)-A(6329)-A(6330) - Vdot(3280) = A(7832)-A(9788)-A(9789)-A(9790) - Vdot(3281) = A(9945)+A(10557)+A(10558)+A(10559)-A(11512)+A(11967) - Vdot(3282) = A(12524)-A(13404)-A(13405) - Vdot(3283) = A(4071)+A(4072)+A(4073)+A(6410)+A(6414)+A(6416)-A(6417)+A(6418) - Vdot(3284) = A(2410)-A(4853)+A(9447)+A(9448)+A(9449)+A(11049)+A(11052) - Vdot(3285) = A(3252)-A(5442)-A(5443) - Vdot(3286) = A(8664)-A(10447)-A(10448)-A(10449) - Vdot(3287) = A(6820)-A(8859)-A(8860)-A(8861)-A(8862) - Vdot(3288) = A(2009)-A(4468)-A(4469)-A(4470)-A(4471) - Vdot(3289) = A(1246)-A(3062)-A(3063)-A(3064) - Vdot(3290) = A(7834)-A(9791)-A(9792) - Vdot(3291) = A(6896)-A(8941)-A(8942)-A(8943) - Vdot(3292) = A(3368)-A(5582)-A(5583) - Vdot(3293) = A(14706)-A(14895)-A(14896) - Vdot(3294) = A(816)-A(2581)-A(2582)-A(2583) - Vdot(3295) = A(4046)-A(6387)-A(6388)-A(6389) - Vdot(3296) = A(4052)+A(4053)+A(4054)+A(6388)+A(6392)+A(6394)-A(6395)+A(6396) - Vdot(3297) = A(264)+A(270)-A(1272)-A(1273)-A(1274)-A(1275) - Vdot(3298) = A(7567)+A(9593)-A(9594)-A(9595)-A(9596)-A(9597) - Vdot(3299) = A(547)-A(2273)-A(2274)-A(2275) - Vdot(3300) = A(6142)-A(8326)-A(8327) - Vdot(3301) = A(3002)-A(5288)+A(8066)+A(8067)+A(8068)+A(10014) - Vdot(3302) = A(1195)+A(2999)-A(3001)-A(3002)-A(3003) - Vdot(3303) = A(6406)-A(8463)-A(8464) - Vdot(3304) = A(3738)-A(6058)-A(6059) - Vdot(3305) = A(6074)+A(6076)+A(8288)-A(8289) - Vdot(3306) = A(12505)-A(13396)-A(13397) - Vdot(3307) = A(9019)-A(10650)-A(10651) - Vdot(3308) = A(1350)-A(3176)-A(3177)-A(3178) - Vdot(3309) = A(13717)+A(14111)-A(14114)-A(14115)-A(14116)+A(14117) - Vdot(3310) = A(616)-A(2364)-A(2365)-A(2366) - Vdot(3311) = A(9536)-A(11152)-A(11153) - Vdot(3312) = A(5138)-A(7514)-A(7515) - Vdot(3313) = A(13871)-A(14275)-A(14276) - Vdot(3314) = A(2041)-A(4509)-A(4510)-A(4511)-A(4512) - Vdot(3315) = A(12595)-A(13449)-A(13450) - Vdot(3316) = A(3783)-A(6107)-A(6108) - Vdot(3317) = A(1803)-A(4122)-A(4123) - Vdot(3318) = A(6069)-A(8285)-A(8286) - Vdot(3319) = A(3586)-A(5862)-A(5863)-A(5864) - Vdot(3320) = A(3457)-A(5712)-A(5713)-A(5714) - Vdot(3321) = A(3387)-A(5614)-A(5615)-A(5616) - Vdot(3322) = A(3933)-A(6261)-A(6262) - Vdot(3323) = A(14254)-A(14531)-A(14532) - Vdot(3324) = A(11932)-A(12934)-A(12935) - Vdot(3325) = A(5413)-A(7776)-A(7777)-A(7778) - Vdot(3326) = A(4961)-A(7316)-A(7317)-A(7318) - Vdot(3327) = A(14082)-A(14404)-A(14405) - Vdot(3328) = A(1213)+A(3017)+A(3019)-A(3021)-A(3022) - Vdot(3329) = A(11537)+A(11538)+A(11539)+A(12647)-A(12648) - Vdot(3330) = A(865)-A(2624)-A(2625)-A(2626)+A(8669)+A(10447)+A(10449)+A(10450) - Vdot(3331) = A(1683)+A(3855)+A(3857)+A(3859)+A(3860)-A(3861)-A(3862) - Vdot(3332) = A(1662)+A(1663)+A(1665)+A(3810)+A(3812)-A(3813)-A(3814) - Vdot(3333) = A(1054)+A(1055)+A(1056)+A(2839)+A(2842)-A(2844)-A(2845) - Vdot(3334) = A(4960)+A(4966)-A(7314)-A(7315)+A(10427) - Vdot(3335) = A(9132)+A(9133)+A(9134)+A(10778)-A(10779) - Vdot(3336) = A(11051)+A(11062)-A(12342)-A(12343)-A(12344) - Vdot(3337) = A(13772)+A(14168)+A(14170)+A(14174)-A(14176)-A(14177) - Vdot(3338) = A(12198)+A(12199)+A(12200)+A(13184)-A(13185) - Vdot(3339) = A(3495)+A(5742)+A(5744)-A(5748)-A(5749)+A(5750) - Vdot(3340) = A(3492)-A(5744)-A(5745) - Vdot(3341) = A(1367)+A(3190)+A(3194)-A(3195)-A(3196) - Vdot(3342) = A(1409)+A(1410)+A(1412)+A(3228)+A(3230)-A(3231)-A(3232) - Vdot(3343) = A(1769)+A(4056)+A(4058)+A(4060)+A(4061)-A(4062)-A(4063) - Vdot(3344) = A(6732)+A(6733)+A(6734)+A(8763)+A(8765)-A(8766)-A(8767) - Vdot(3345) = A(3981)+A(6310)+A(6312)-A(6316)-A(6317)+A(6318) - Vdot(3346) = A(6863)+A(6864)+A(6865)+A(8909)-A(8910)-A(8911) - Vdot(3347) = A(11514)+A(11515)+A(11516)+A(12633)-A(12634) - Vdot(3348) = A(13059)+A(13704)+A(13706)-A(13709)-A(13710)+A(13712) - Vdot(3349) = A(1343)+A(3162)+A(3166)-A(3167)-A(3168) - Vdot(3350) = A(8555)-A(10367)-A(10368)+A(15096) - Vdot(3351) = A(1162)+A(1163)+A(1164)+A(2969)-A(2970)-A(2971) - Vdot(3352) = A(3685)+A(5986)+A(5988)-A(5992)-A(5993)+A(5994) - Vdot(3353) = A(3682)-A(5988)-A(5989) - Vdot(3354) = A(5406)+A(7753)+A(7757)-A(7758)-A(7759)+A(7760) - Vdot(3355) = A(14681)+A(14683)-A(14871)-A(14872) - Vdot(3356) = A(3569)+A(5838)+A(5840)-A(5844)-A(5845)+A(5846) - Vdot(3357) = A(3566)-A(5840)-A(5841) - Vdot(3358) = A(9398)-A(10994)-A(10995)+A(11831) - Vdot(3359) = A(3441)+A(5684)+A(5686)-A(5690)-A(5691)+A(5692) - Vdot(3360) = A(3438)-A(5686)-A(5687) - Vdot(3361) = A(11580)+A(11581)+A(11582)+A(12671)-A(12672) - Vdot(3362) = A(11714)+A(11715)+A(11716)+A(12742)-A(12743) - Vdot(3363) = A(11662)+A(11663)+A(11664)+A(12715)-A(12716) - Vdot(3364) = A(1323)+A(3145)+A(3147)-A(3149)-A(3150) - Vdot(3365) = A(14126)+A(14129)+A(14429)-A(14432)-A(14433)+A(14434) - Vdot(3366) = A(6170)+A(6185)+A(6381)-A(8334)-A(8335)-A(8336) - Vdot(3367) = A(1998)+A(1999)+A(2001)+A(4451)+A(4453)-A(4454)-A(4455) - Vdot(3368) = A(1559)+A(3578)+A(3580)+A(3582)+A(3583)-A(3584)-A(3585) - Vdot(3369) = -A(451)-A(452)+A(1058)+A(2841)+A(2843)+A(2844)+A(2846) - Vdot(3370) = A(11381)+A(11382)+A(11383)+A(12533)-A(12534) - Vdot(3371) = A(11486)+A(11487)+A(11488)+A(12616)-A(12617) - Vdot(3372) = A(1444)+A(3306)+A(3313)+A(3315)-A(3316)-A(3317)+A(3477) - Vdot(3373) = A(13905)-A(14308)-A(14309)+A(14314)+A(14595)+A(14597)+A(14600) - Vdot(3374) = A(13879)+A(14277)+A(14279)+A(14281)-A(14283)-A(14284)+A(14285) - Vdot(3375) = A(11413)+A(11414)+A(11415)+A(12556)-A(12557) - Vdot(3376) = A(1373)+A(3198)+A(3202)-A(3203)-A(3204) - Vdot(3377) = A(952)+A(953)+A(955)+A(2715)+A(2717)-A(2718)-A(2719) - Vdot(3378) = A(3334)+A(5540)+A(5542)-A(5546)-A(5547)+A(5548) - Vdot(3379) = A(3331)-A(5542)-A(5543) - Vdot(3380) = A(8186)+A(8187)+A(8188)+A(10134)-A(10135)-A(10136) - Vdot(3381) = A(11684)+A(11685)+A(11686)+A(12725)-A(12726) - Vdot(3382) = A(5163)+A(7532)+A(7534)-A(7537)-A(7538) - Vdot(3383) = A(754)+A(755)+A(756)+A(2516)+A(2519)-A(2520)-A(2521) - Vdot(3384) = A(5106)+A(7474)+A(7476)+A(7478)-A(7479)-A(7480)+A(7481) - Vdot(3385) = A(5642)+A(7939)-A(7941)-A(7942) - Vdot(3386) = A(522)+A(523)+A(526)+A(2242)+A(2244)-A(2245)-A(2246) - Vdot(3387) = A(7321)-A(9400)-A(9401)+A(10996)+A(11002) - Vdot(3388) = A(11761)+A(11762)+A(11763)+A(12770)-A(12771) - Vdot(3389) = A(6921)+A(8964)+A(8966)+A(8968)-A(8970)-A(8971) - Vdot(3390) = A(9136)+A(9137)+A(9138)+A(10781)-A(10782)-A(10783) - Vdot(3391) = A(12448)+A(13360)+A(13361)+A(13363)-A(13364)-A(13365) - Vdot(3392) = A(12866)+A(12874)-A(13596)-A(13597) - Vdot(3393) = A(5180)+A(5181)+A(5183)+A(7551)+A(7553)-A(7555)-A(7556) - Vdot(3394) = A(716)-A(2490)-A(2491)+A(6480) - Vdot(3395) = A(10114)+A(10115)+A(10116)+A(11636)-A(11637) - Vdot(3396) = A(8062)+A(8063)+A(8064)+A(10009)-A(10010)-A(10011) - Vdot(3397) = A(13897)+A(13899)+A(13902)-A(14300)-A(14301)+A(14305)+A(14591)+A(14594) - Vdot(3398) = A(4602)+A(4603)+A(4605)+A(6982)+A(6984)-A(6985)-A(6986) - Vdot(3399) = A(1233)+A(3039)+A(3043)-A(3044)-A(3045) - Vdot(3400) = A(11509)+A(11510)+A(11511)+A(12630)-A(12631) - Vdot(3401) = A(7326)-A(9405)-A(9406)+A(11000) - Vdot(3402) = A(11445)+A(11446)+A(11447)+A(12572)-A(12573) - Vdot(3403) = A(1776)+A(1777)+A(1778)+A(4076)+A(4077)+A(4078)-A(4079)-A(4080)+A(4081) - Vdot(3404) = A(966)+A(967)+A(968)+A(2727)+A(2730)-A(2732)-A(2733) - Vdot(3405) = A(6778)+A(6780)+A(6781)+A(8817)-A(8818)+A(8820) - Vdot(3406) = A(11680)+A(11681)+A(11682)+A(12722)-A(12723) - Vdot(3407) = A(7763)+A(7764)+A(7765)+A(9717)-A(9718)-A(9719) - Vdot(3408) = A(10580)-A(11994)-A(11995)+A(12314) - Vdot(3409) = A(1269)+A(3083)+A(3086)-A(3088)-A(3089) - Vdot(3410) = A(14997)+A(14998)+A(14999)+A(15088)-A(15090) - Vdot(3411) = A(3936)+A(6259)+A(6261)-A(6265)-A(6266)+A(6267) - Vdot(3412) = A(1745)+A(4004)+A(4006)+A(4008)+A(4009)-A(4010)-A(4011) - Vdot(3413) = A(4238)+A(4257)+A(4328)+A(4335)-A(6617)-A(6618) - Vdot(3414) = A(11622)+A(11623)+A(11624)+A(12690)-A(12691) - Vdot(3415) = A(7236)+A(7237)+A(7239)+A(9370)-A(9371)-A(9372) - Vdot(3416) = A(3255)+A(5440)+A(5442)-A(5446)-A(5447)+A(5448) - Vdot(3417) = A(11738)+A(11739)+A(11740)+A(12756)-A(12757) - Vdot(3418) = A(1263)+A(3076)+A(3080)-A(3081)-A(3082) - Vdot(3419) = A(6213)+A(6214)+A(6215)+A(8357)-A(8360)-A(8361) - Vdot(3420) = A(13278)-A(13921)-A(13922)+A(13927)+A(14324)+A(14326)+A(14329) - Vdot(3421) = A(10050)+A(10051)+A(10052)+A(11594)-A(11595) - Vdot(3422) = A(611)+A(612)+A(614)+A(2358)-A(2360)-A(2361) - Vdot(3423) = A(8126)+A(8127)+A(8128)+A(10070)-A(10071)-A(10072) - Vdot(3424) = A(14603)+A(14604)+A(14606)+A(14824)+A(14826)-A(14827)-A(14828) - Vdot(3425) = A(12300)+A(12301)+A(12303)+A(13294)+A(13296)-A(13297)-A(13298) - Vdot(3426) = A(3628)+A(5915)+A(5917)-A(5921)-A(5922)+A(5923) - Vdot(3427) = A(3625)-A(5917)-A(5918) - Vdot(3428) = A(6620)+A(6660)-A(8640)-A(8641)-A(8642)-A(8643)-A(8644) - Vdot(3429) = A(918)+A(919)+A(922)+A(2684)+A(2686)-A(2687)-A(2688) - Vdot(3430) = A(14757)+A(14758)+A(14760)+A(14930)+A(14932)-A(14933)-A(14934) - Vdot(3431) = A(13936)-A(14338)-A(14339)+A(14343)+A(14628)+A(14631) - Vdot(3432) = A(1300)+A(3115)+A(3117)-A(3119)-A(3120) - Vdot(3433) = A(3791)+A(6109)+A(6113)-A(6115)-A(6116)+A(6117) - Vdot(3434) = A(8438)+A(10338)-A(10342)-A(10343)+A(10344)+A(13556) - Vdot(3435) = A(1459)-A(3355)-A(3356) - Vdot(3436) = A(13122)-A(13786)-A(13787) - Vdot(3437) = A(3724)-A(6031)-A(6032)-A(6033)-A(6034)-A(6035) - Vdot(3438) = A(3845)-A(6178)-A(6179) - Vdot(3439) = A(1580)-A(3639)-A(3640) - Vdot(3440) = A(1581)+A(1582)+A(1583)+A(3638)+A(3640)-A(3641)+A(3642) - Vdot(3441) = A(6212)-A(8356)-A(8357)-A(8358)-A(8359) - Vdot(3442) = -A(310)-A(311)-A(312) - Vdot(3443) = A(8635)-A(10418)-A(10419) - Vdot(3444) = A(630)-A(2383)-A(2384)-A(2385) - Vdot(3445) = A(1685)-A(3865)-A(3866) - Vdot(3446) = A(5458)-A(7795)-A(7796)-A(7797)-A(7798) - Vdot(3447) = A(14667)-A(14859)-A(14860) - Vdot(3448) = A(851)-A(2610)-A(2611)-A(2612)-A(2613) - Vdot(3449) = A(8685)-A(10458)-A(10459)-A(10460) - Vdot(3450) = A(5612)+A(6125)-A(7919)-A(7920)-A(7921) - Vdot(3451) = A(3984)-A(6320)-A(6321)-A(6322)-A(6323) - Vdot(3452) = A(3794)-A(6119)-A(6120)-A(6121)-A(6122) - Vdot(3453) = A(8055)-A(9999)-A(10000)-A(10001) - Vdot(3454) = A(8663)-A(10444)-A(10445)-A(10446) - Vdot(3455) = A(8016)-A(9937)-A(9938)-A(9939)-A(9940) - Vdot(3456) = A(5730)+A(5731)+A(5732)+A(8014)-A(8015) - Vdot(3457) = A(4035)-A(6374)-A(6375) - Vdot(3458) = A(5820)-A(8079)-A(8080)-A(8081) - Vdot(3459) = A(6484)-A(8510)-A(8511)-A(8512) - Vdot(3460) = A(4098)-A(6454)-A(6455) - Vdot(3461) = A(8460)+A(8461)+A(8462)+A(10350)-A(10351) - Vdot(3462) = A(872)-A(2633)-A(2634)-A(2635) - Vdot(3463) = A(10145)-A(11654)-A(11655)-A(11656) - Vdot(3464) = A(6599)+A(8606)+A(8608)-A(8611)-A(8612)-A(8613)-A(8614) - Vdot(3465) = -A(244)-A(245)-A(246) - Vdot(3466) = -A(247)-A(248)-A(249) - Vdot(3467) = A(10081)-A(11612)-A(11613)-A(11614) - Vdot(3468) = A(3498)-A(5752)-A(5753)-A(5754)-A(5755) - Vdot(3469) = A(3382)-A(5606)-A(5607)-A(5608)-A(5609) - Vdot(3470) = A(8592)-A(10381)-A(10382)-A(10383) - Vdot(3471) = A(7457)-A(9504)-A(9505)-A(9506) - Vdot(3472) = A(1922)-A(4360)-A(4361)-A(4362)-A(4363)-A(4364) - Vdot(3473) = A(6876)-A(8923)-A(8924)-A(8925)-A(8926) - Vdot(3474) = A(6136)+A(6137)+A(6138)+A(8319)-A(8320) - Vdot(3475) = A(5660)-A(7979)-A(7980)-A(7981) - Vdot(3476) = A(4983)-A(7332)-A(7333)-A(7334)+A(11857) - Vdot(3477) = A(12863)+A(12869)+A(12870)-A(13592)-A(13593) - Vdot(3478) = A(11392)+A(11395)+A(12534)+A(12537)-A(12538) - Vdot(3479) = A(252)+A(277)-A(1226)-A(1227)+A(1888)+A(4271)+A(6663) - Vdot(3480) = A(14919)-A(15038)-A(15039)-A(15040)-A(15041) - Vdot(3481) = A(337)+A(338)-A(1527)-A(1528)-A(1529)-A(1530)-A(1531)-A(1532)-A(1533) - Vdot(3482) = A(1614)-A(3716)-A(3717)-A(3718) - Vdot(3483) = A(6489)+A(8512)+A(8515)-A(8516)-A(8517)-A(8518) - Vdot(3484) = A(9800)-A(11428)-A(11429)-A(11430)+A(13456) - Vdot(3485) = A(8714)-A(10484)-A(10485)-A(10486) - Vdot(3486) = A(3740)+A(6054)+A(6058)-A(6060)-A(6061)-A(6062)+A(6063) - Vdot(3487) = A(3781)-A(6104)-A(6105)-A(6106) - Vdot(3488) = A(4228)+A(6579)-A(6581)-A(6582)-A(6583) - Vdot(3489) = A(1735)+A(1738)-A(3996)-A(3997)-A(3998)-A(3999)-A(4000)+A(6340) - Vdot(3490) = A(11920)+A(11921)+A(11922)+A(12922)-A(12924)-A(12925) - Vdot(3491) = A(1472)+A(1475)-A(3394)-A(3395)-A(3396)-A(3397)-A(3398)+A(5626) - Vdot(3492) = A(362)+A(366)-A(1653)-A(1654)-A(1655)-A(1656)-A(1657)-A(1658)-A(1659) - Vdot(3493) = A(9668)+A(11314)+A(11316)-A(11318)-A(11319)+A(11321) - Vdot(3494) = A(1644)-A(3776)-A(3777)-A(3778) - Vdot(3495) = A(14485)-A(14729)-A(14730)-A(14731)-A(14732) - Vdot(3496) = A(1897)-A(4315)-A(4316)-A(4317)-A(4318)-A(4319)-A(4320)-A(4321) - Vdot(3497) = A(10931)-A(12296)-A(12297)+A(12302)+A(13293)+A(13295)+A(13297)+A(13299) - Vdot(3498) = A(2006)+A(2025)+A(3211)+A(3217)+A(4461)-A(4466)-A(4467)+A(4486) - Vdot(3499) = A(1719)-A(3957)-A(3958)-A(3959) - Vdot(3500) = A(11910)+A(12855)+A(12861)-A(12906)-A(12907) - Vdot(3501) = A(8593)-A(10384)-A(10385)-A(10386)-A(10387) - Vdot(3502) = A(7307)+A(7316)-A(9396)-A(9397) - Vdot(3503) = A(1698)+A(1701)-A(3904)-A(3905)-A(3906)-A(3907)-A(3908)+A(6245) - Vdot(3504) = A(9623)+A(11254)+A(11256)+A(11259)-A(11260)-A(11261) - Vdot(3505) = -A(439)-A(440)-A(441)-A(442)+A(995)+A(2761)+A(2764)+A(2766) - Vdot(3506) = A(1700)-A(3909)-A(3910)-A(3911) - Vdot(3507) = A(332)+A(335)-A(1502)-A(1503)-A(1504)-A(1505)-A(1506)-A(1507)-A(1508) - Vdot(3508) = A(1474)-A(3399)-A(3400)-A(3401) - Vdot(3509) = A(327)+A(330)-A(1476)-A(1477)-A(1478)-A(1479)-A(1480)-A(1481)-A(1482) - Vdot(3510) = A(6748)+A(8781)-A(8784)-A(8785)-A(8786) - Vdot(3511) = A(1716)+A(1720)-A(3947)-A(3948)-A(3949)-A(3950)-A(3951)+A(6285) - Vdot(3512) = A(1525)-A(3515)-A(3516)-A(3517) - Vdot(3513) = A(11085)-A(12357)-A(12358)-A(12359) - Vdot(3514) = A(4206)-A(6571)-A(6572)+A(8598)+A(10384)+A(10386)+A(10388)+A(10467) - Vdot(3515) = A(7323)-A(9402)-A(9403)-A(9404)+A(10997) - Vdot(3516) = A(4724)-A(7133)+A(9259)+A(9260)+A(9261)+A(9262)+A(9263)+A(9270)+A(9272)+A(9273)+A(9274)+A(9334) - Vdot(3517) = A(2182)-A(4723)-A(4724)-A(4725) - Vdot(3518) = A(1643)+A(1646)-A(3771)-A(3772)-A(3773)-A(3774)-A(3775)+A(6094) - Vdot(3519) = A(3361)-A(5575)-A(5576)-A(5577) - Vdot(3520) = A(898)+A(905)-A(2660)-A(2661) - Vdot(3521) = A(352)+A(353)-A(1604)-A(1605)-A(1606)-A(1607)-A(1608)-A(1609)-A(1610) - Vdot(3522) = A(9634)+A(11272)+A(11274)-A(11276)-A(11277)+A(11279) - Vdot(3523) = A(322)+A(325)-A(1451)-A(1452)-A(1453)-A(1454)-A(1455)-A(1456)-A(1457) - Vdot(3524) = A(6636)-A(8670)-A(8671)-A(8672)-A(8673) - Vdot(3525) = A(357)+A(358)-A(1628)-A(1629)-A(1630)-A(1631)-A(1632)-A(1633)-A(1634) - Vdot(3526) = A(8496)-A(10356)-A(10357)-A(10358) - Vdot(3527) = A(379)-A(1721)-A(1722)-A(1723)-A(1724)-A(1725)-A(1726)+A(3960) - Vdot(3528) = A(9585)-A(11209)-A(11210)-A(11211)-A(11212) - Vdot(3529) = A(7310)+A(7319)-A(9398)-A(9399) - Vdot(3530) = A(2000)+A(4449)+A(4452)+A(4455)-A(4456)-A(4457)+A(4460) - Vdot(3531) = A(1497)+A(1501)-A(3452)-A(3453)-A(3454)-A(3455)-A(3456)+A(5707) - Vdot(3532) = A(11915)+A(12858)-A(12910)-A(12911) - Vdot(3533) = A(2327)-A(4801)-A(4802)-A(4803) - Vdot(3534) = A(1523)+A(1526)-A(3510)-A(3511)-A(3512)-A(3513)-A(3514)+A(5772) - Vdot(3535) = A(9841)+A(9851)-A(11438)-A(11439) - Vdot(3536) = A(615)+A(1981)+A(2357)+A(2359)+A(2361)+A(2362)-A(2363) - Vdot(3537) = A(11180)+A(12378)+A(12380)+A(12383)-A(12384)-A(12385) - Vdot(3538) = A(1432)+A(1435)-A(3291)-A(3292)-A(3293)-A(3294)-A(3295)+A(5480) - Vdot(3539) = A(1586)+A(1589)-A(3645)-A(3646)-A(3647)-A(3648)-A(3649)+A(5941) - Vdot(3540) = A(752)-A(2514)-A(2515)-A(2516)-A(2517) - Vdot(3541) = A(11556)+A(11559)+A(12648)+A(12651)-A(12660) - Vdot(3542) = A(1354)+A(3161)+A(3176)-A(3180)-A(3181)+A(3182) - Vdot(3543) = A(8162)+A(10090)+A(10093)-A(10094)-A(10095)-A(10096) - Vdot(3544) = A(9651)+A(11293)+A(11295)-A(11297)-A(11298)+A(11300) - Vdot(3545) = A(1436)-A(3303)-A(3304)-A(3305) - Vdot(3546) = A(13454)-A(14004)-A(14005)-A(14006) - Vdot(3547) = A(654)+A(2405)+A(2409)+A(2411)-A(2412)-A(2413)+A(11066) - Vdot(3548) = A(9685)+A(11335)+A(11337)-A(11339)-A(11340)+A(11342) - Vdot(3549) = A(8702)-A(10470)-A(10471)+A(10489) - Vdot(3550) = A(8720)-A(10490)-A(10491)-A(10492)-A(10493) - Vdot(3551) = A(1737)-A(4001)-A(4002)-A(4003) - Vdot(3552) = A(6669)-A(8724)-A(8725)-A(8726) - Vdot(3553) = A(3728)+A(6035)-A(6039)-A(6040)-A(6041) - Vdot(3554) = A(1562)+A(1564)-A(3593)-A(3594)-A(3595)-A(3596)-A(3597)+A(5874) - Vdot(3555) = A(11913)+A(12856)-A(12908)-A(12909) - Vdot(3556) = A(10191)+A(10198)-A(11677)-A(11678) - Vdot(3557) = A(13748)+A(14150)-A(14153)-A(14154)+A(14155)+A(14786)+A(14959)+A(15066)+A(15069) - Vdot(3558) = A(11823)+A(11824)+A(11825)+A(11826)+A(11827)-A(12810)-A(12811) - Vdot(3559) = A(4561)-A(6951)-A(6952)-A(6953)+A(10638) - Vdot(3560) = A(1500)-A(3462)-A(3463)-A(3464) - Vdot(3561) = A(1250)+A(3055)+A(3062)-A(3066)-A(3067)+A(3068) - Vdot(3562) = A(1535)+A(1538)-A(3529)-A(3530)-A(3531)-A(3532)-A(3533)+A(5794) - Vdot(3563) = A(12864)+A(12872)-A(13594)-A(13595) - Vdot(3564) = A(7167)+A(9305)+A(9306)+A(9307)-A(9314)+A(10928) - Vdot(3565) = A(8393)+A(8394)+A(8396)+A(10290)-A(10291)-A(10292)+A(10297) - Vdot(3566) = A(2653)-A(4981)-A(4982)+A(6051)+A(6052)+A(6053)+A(8279) - Vdot(3567) = A(3737)+A(3739)+A(3741)+A(6055)-A(6056)-A(6057)+A(6064) - Vdot(3568) = -A(2)-A(3)-A(4)-A(5)-A(6)+A(7)-A(31)+A(38)+A(40)+A(42) - Vdot(3569) = A(3844)+A(3846)+A(3847)+A(6175)-A(6176)-A(6177)+A(6180)+A(6181) - Vdot(3570) = A(3979)+A(3980)+A(3982)+A(6311)-A(6314)-A(6315)+A(6319) - Vdot(3571) = A(11398)-A(12539)-A(12540) - Vdot(3572) = A(1237)+A(1238)+A(1240)+A(3049)-A(3050)-A(3051) - Vdot(3573) = A(3377)+A(3378)+A(3380)+A(5597)-A(5600)-A(5601)+A(5605) - Vdot(3574) = A(11576)+A(11577)+A(11578)+A(12668)-A(12669) - Vdot(3575) = A(1303)+A(1304)+A(1306)+A(3125)-A(3126)-A(3127) - Vdot(3576) = A(3253)+A(3254)+A(3256)+A(5441)-A(5444)-A(5445)+A(5449) - Vdot(3577) = A(1177)+A(1178)+A(1181)+A(2985)-A(2986)-A(2987) - Vdot(3578) = A(8293)+A(8294)+A(8295)+A(10203)-A(10204)-A(10205)+A(10206) - Vdot(3579) = A(10054)+A(10055)+A(10056)+A(11597)-A(11598) - Vdot(3580) = A(6915)-A(8961)-A(8962)+A(9698)+A(11360)+A(11362)+A(11365) - Vdot(3581) = A(4034)+A(4036)+A(4037)+A(6371)-A(6372)-A(6373)+A(6376)+A(6377) - Vdot(3582) = A(5659)+A(5661)+A(5663)+A(5664)-A(7977)-A(7978)+A(7980) - Vdot(3583) = -A(448)-A(449)-A(450)+A(1018)+A(2786)+A(2788)+A(2790)+A(2791) - Vdot(3584) = A(3788)+A(3790)+A(3792)+A(6110)-A(6111)-A(6112)+A(6118) - Vdot(3585) = A(1171)+A(1172)+A(1174)+A(2977)-A(2978)-A(2979) - Vdot(3586) = A(4279)+A(4280)+A(4281)+A(6690)-A(6691)-A(6692) - Vdot(3587) = A(832)+A(834)-A(2597)-A(2598)+A(8514) - Vdot(3588) = A(3567)+A(3568)+A(3570)+A(5839)-A(5842)-A(5843)+A(5847) - Vdot(3589) = A(3332)+A(3333)+A(3335)+A(5541)-A(5544)-A(5545)+A(5549) - Vdot(3590) = A(5499)+A(5779)+A(6347)-A(7828)-A(7829)+A(7831)+A(7837) - Vdot(3591) = A(12100)+A(12101)+A(12102)+A(13093)+A(13095)-A(13096)-A(13097)+A(13099) - Vdot(3592) = A(1284)+A(1285)+A(1286)+A(3099)-A(3100)-A(3101) - Vdot(3593) = A(11695)-A(12730)-A(12731) - Vdot(3594) = A(1043)+A(2823)+A(2826)+A(2828)-A(2829)-A(2830)-A(2831)+A(2832) - Vdot(3595) = A(11525)-A(12638)-A(12639) - Vdot(3596) = A(11618)+A(11619)+A(11620)+A(12687)-A(12688) - Vdot(3597) = A(10118)+A(10119)+A(10120)+A(11639)-A(11640) - Vdot(3598) = A(1221)+A(1222)+A(1225)+A(3027)-A(3028)-A(3029) - Vdot(3599) = A(1489)+A(3412)+A(3414)+A(3421)-A(3422)-A(3423)-A(3424)-A(3425)+A(3755) - Vdot(3600) = A(4097)+A(4099)+A(4100)+A(6451)-A(6452)-A(6453)+A(6456)+A(6457) - Vdot(3601) = A(12924)+A(13616)+A(13618)+A(13619)-A(13620)-A(13621)+A(13622) - Vdot(3602) = A(4782)+A(7187)+A(7189)+A(7191)-A(7192)-A(7193)+A(15034) - Vdot(3603) = A(712)+A(2447)+A(2481)-A(2485)-A(2486) - Vdot(3604) = A(15142)+A(15155)+A(15158)+A(15161)-A(15162)-A(15163) - Vdot(3605) = A(3493)+A(3494)+A(3496)+A(5743)-A(5746)-A(5747)+A(5751) - Vdot(3606) = A(3887)+A(3888)+A(3890)+A(6217)-A(6220)-A(6221)+A(6225) - Vdot(3607) = A(2058)+A(4529)+A(4531)+A(4534)-A(4535)-A(4536)+A(4537) - Vdot(3608) = A(6519)+A(6524)-A(8549)-A(8550)+A(13608)+A(13610) - Vdot(3609) = A(66)-A(433)-A(434)-A(435)+A(954)+A(2714)+A(2716)+A(2719) - Vdot(3610) = A(3934)+A(3935)+A(3937)+A(6260)-A(6263)-A(6264)+A(6268) - Vdot(3611) = A(14486)+A(14487)+A(14488)+A(14731)-A(14733)-A(14734)+A(14735) - Vdot(3612) = A(13945)+A(13947)-A(14354)-A(14355) - Vdot(3613) = A(14260)+A(14261)+A(14263)+A(14534)+A(14536)-A(14537)-A(14538) - Vdot(3614) = A(3439)+A(3440)+A(3442)+A(5685)-A(5688)-A(5689)+A(5693) - Vdot(3615) = A(14920)+A(14921)+A(14922)+A(15039)-A(15042)-A(15043)+A(15044) - Vdot(3616) = A(6859)+A(8900)+A(8902)-A(8904)-A(8905)+A(8907)+A(8918) - Vdot(3617) = A(4705)-A(7094)+A(7095)+A(7096)+A(7097)+A(7098)+A(7099)+A(9222)+A(9224)+A(9225)+A(9226)+A(9324)+A(9330) - Vdot(3618) = A(10454)-A(11854)-A(11855)-A(11856)-A(11857) - Vdot(3619) = A(4353)-A(6758)-A(6759)+A(6760)+A(6765)+A(8804)+A(8806)+A(8808)+A(8809)+A(8812)+A(8825) - Vdot(3620) = A(11918)-A(12920)-A(12921)-A(12922) - Vdot(3621) = A(8753)-A(10510)-A(10511)-A(10512)-A(10513) - Vdot(3622) = A(356)-A(1624)-A(1625)-A(1626)-A(1627) - Vdot(3623) = A(643)-A(2396)-A(2397)-A(2398)-A(2399) - Vdot(3624) = A(3849)-A(6182)-A(6183)-A(6184)-A(6185) - Vdot(3625) = A(8649)-A(10429)-A(10430)-A(10431)-A(10432) - Vdot(3626) = A(6736)+A(8762)+A(8764)+A(8766)+A(8768)-A(8769)+A(13564)+A(13565)+A(13567)+A(13568)+A(13627)+A(14047)& - &+A(14048)+A(14052) - Vdot(3627) = A(1613)+A(1616)-A(3711)-A(3712)-A(3713)-A(3714)-A(3715)+A(6024) - Vdot(3628) = A(6541)+A(8567)+A(8569)-A(8573)-A(8574)+A(8575) - Vdot(3629) = A(10775)+A(10780)+A(10782)-A(12209)-A(12210) - Vdot(3630) = A(4190)+A(5503)+A(5569)-A(6552)-A(6553)+A(6611)+A(6642)+A(8615) - Vdot(3631) = A(1760)-A(4046)-A(4047)-A(4048)-A(4049)-A(4050)+A(6387) - Vdot(3632) = A(1762)-A(4051)-A(4052)-A(4053)-A(4054)-A(4055)+A(6393) - Vdot(3633) = A(15085)-A(15128)-A(15129)-A(15130) - Vdot(3634) = A(407)-A(1852)-A(1853)-A(1854)-A(1855)-A(1856)-A(1857)-A(1858) - Vdot(3635) = A(8653)+A(10429)-A(10436)-A(10437)+A(10439) - Vdot(3636) = A(400)-A(1811)-A(1812)-A(1813)-A(1814)-A(1815)-A(1816) - Vdot(3637) = A(419)+A(420)-A(1902)-A(1903)-A(1904)-A(1905)-A(1906)-A(1907)-A(1908)-A(1909) - Vdot(3638) = A(4708)-A(7106)+A(9184)+A(9190)+A(9233)+A(9234)+A(9235)+A(9236)+A(9237)+A(9238)+A(9240)+A(9241)+A(9242)& - &+A(9331)+A(9337) - Vdot(3639) = A(14713)+A(14880)+A(14883)+A(14889)+A(14897)-A(14900)-A(14901)+A(14902)+A(15014)+A(15017) - Vdot(3640) = A(1480)+A(3402)+A(3404)+A(3406)-A(3407)-A(3408)-A(3409)-A(3410)+A(3411) - Vdot(3641) = A(1667)-A(3818)-A(3819)-A(3820)-A(3821)-A(3822)+A(6146) - Vdot(3642) = A(14759)+A(14762)+A(14929)+A(14931)+A(14933)-A(14935)-A(14936)+A(14937) - Vdot(3643) = A(1455)+A(3343)+A(3345)+A(3347)-A(3348)-A(3349)-A(3350)-A(3351)+A(3352) - Vdot(3644) = A(5461)+A(7795)-A(7800)-A(7801)+A(7802)+A(12542)+A(12543)+A(12545)+A(12546)+A(13414)+A(13415) - Vdot(3645) = A(1657)+A(3799)+A(3801)+A(3803)-A(3804)-A(3805)-A(3806)-A(3807)+A(3808) - Vdot(3646) = A(2173)+A(2178)-A(4705)-A(4706)-A(4707) - Vdot(3647) = A(5502)+A(5648)+A(6356)+A(6601)+A(6652)-A(7838)-A(7839)+A(8680) - Vdot(3648) = A(1670)-A(3824)-A(3825)-A(3826)-A(3827)-A(3828)+A(6152) - Vdot(3649) = A(1533)+A(3518)+A(3520)+A(3521)+A(3523)-A(3524)-A(3525)-A(3526) - Vdot(3650) = A(1772)-A(4070)-A(4071)-A(4072)-A(4073)-A(4074)+A(6415) - Vdot(3651) = -A(151)-A(152)-A(153)-A(154)+A(1243)+A(1308)+A(1377) - Vdot(3652) = A(130)-A(847)-A(848)+A(849)+A(852)+A(854)+A(855)+A(2609)+A(2610) - Vdot(3653) = A(642)+A(2389)+A(2392)+A(2393)-A(2394)-A(2395) - Vdot(3654) = A(893)-A(2656)-A(2657)-A(2658) - Vdot(3655) = A(1632)+A(3743)+A(3745)+A(3747)-A(3748)-A(3749)-A(3750)-A(3751)+A(3752) - Vdot(3656) = A(1281)+A(1969)+A(2294)+A(3090)+A(3091)-A(3095)-A(3096) - Vdot(3657) = A(1506)+A(3465)+A(3467)+A(3469)-A(3470)-A(3471)-A(3472)-A(3473)+A(3474) - Vdot(3658) = A(401)-A(1817)-A(1818)-A(1819)-A(1820)-A(1821)-A(1822)-A(1823) - Vdot(3659) = A(1771)-A(4065)-A(4066)-A(4067)-A(4068)-A(4069)+A(6409) - Vdot(3660) = A(887)-A(2646)-A(2647)-A(2648) - Vdot(3661) = A(1608)+A(3694)+A(3696)+A(3698)-A(3699)-A(3700)-A(3701)-A(3702)+A(3703) - Vdot(3662) = A(7379)+A(7398)-A(9434)-A(9435)-A(9436) - Vdot(3663) = A(1611)-A(3704)-A(3705)-A(3706)-A(3707)-A(3708)+A(6012) - Vdot(3664) = A(6015)+A(6026)-A(8222)-A(8223)+A(8235)+A(8241) - Vdot(3665) = A(1696)-A(3897)-A(3898)-A(3899)-A(3900)-A(3901)+A(6233) - Vdot(3666) = A(3898)+A(3899)+A(3900)+A(6234)-A(6236)+A(6237) - Vdot(3667) = A(2879)-A(5142)-A(5143)-A(5144)-A(5145)-A(5146)-A(5147)-A(5148)+A(7517) - Vdot(3668) = A(10623)-A(12026)-A(12027)-A(12028)-A(12029)-A(12030)-A(12031)-A(12032) - Vdot(3669) = A(5411)-A(7768)-A(7769)-A(7770)-A(7771)-A(7772)-A(7773)+A(9726) - Vdot(3670) = A(404)-A(1831)-A(1832)-A(1833)-A(1834)-A(1835)-A(1836)-A(1837) - Vdot(3671) = A(310)-A(1394)-A(1395)-A(1396)-A(1397)-A(1398)+A(3219) - Vdot(3672) = A(7306)+A(7312)+A(7315)-A(9394)-A(9395) - Vdot(3673) = A(11587)-A(12673)-A(12674) - Vdot(3674) = A(2899)-A(5174)-A(5175)-A(5176)-A(5177)+A(7549) - Vdot(3675) = A(8046)-A(9983)-A(9984)-A(9985)-A(9986)-A(9987)-A(9988) - Vdot(3676) = A(4348)-A(6737)-A(6738)-A(6739)-A(6740)-A(6741)-A(6742)-A(6743)+A(8770) - Vdot(3677) = A(5656)-A(7964)-A(7965)-A(7966)-A(7967)+A(9899) - Vdot(3678) = A(2950)-A(5243)-A(5244)-A(5245)-A(5246)+A(7627) - Vdot(3679) = A(7998)-A(9917)-A(9918)-A(9919)-A(9920)+A(11495) - Vdot(3680) = A(8384)-A(10270)-A(10271)-A(10272)-A(10273)+A(11747) - Vdot(3681) = A(11772)-A(12775)-A(12776) - Vdot(3682) = A(6795)-A(8831)-A(8832)+A(13932) - Vdot(3683) = A(6809)+A(7675)+A(8841)-A(8846)-A(8847) - Vdot(3684) = A(1590)-A(3655)-A(3656)-A(3657) - Vdot(3685) = A(7816)-A(9760)-A(9761)-A(9762)-A(9763)+A(11404) - Vdot(3686) = A(12229)+A(12230)+A(12232)+A(12234)+A(13203)+A(13205)-A(13206)-A(13207)-A(13208)-A(13209)-A(13210)& - &-A(13211)-A(13212) - Vdot(3687) = A(6361)-A(8431)-A(8432)-A(8433)-A(8434)+A(10335) - Vdot(3688) = A(2919)-A(5196)-A(5197)-A(5198)-A(5199)-A(5200)-A(5201)-A(5202)+A(7573) - Vdot(3689) = A(82)-A(453)-A(454)-A(455)+A(1160)+A(2962)+A(2964)+A(2966) - Vdot(3690) = A(2949)-A(5236)-A(5237)-A(5238)-A(5239)-A(5240)-A(5241)-A(5242) - Vdot(3691) = A(2957)-A(5247)-A(5248)-A(5249)-A(5250)-A(5251)-A(5252)-A(5253) - Vdot(3692) = A(5517)-A(7851)-A(7852)-A(7853)-A(7854)+A(9804) - Vdot(3693) = A(6603)+A(7840)-A(8620)-A(8621)-A(8622)+A(8740) - Vdot(3694) = A(13675)-A(14073)-A(14074)-A(14075)-A(14076)-A(14077)+A(14397) - Vdot(3695) = A(5658)-A(7972)-A(7973)-A(7974)-A(7975)-A(7976)+A(9906) - Vdot(3696) = A(5894)-A(8135)-A(8136)-A(8137)-A(8138)-A(8139)-A(8140)+A(10076) - Vdot(3697) = A(7929)-A(9863)-A(9864)-A(9865)-A(9866)-A(9867)-A(9868) - Vdot(3698) = A(13869)+A(13870)+A(13872)+A(13874)+A(14265)+A(14267)-A(14268)-A(14269)-A(14270)-A(14271)-A(14272)& - &-A(14273)-A(14274) - Vdot(3699) = A(7817)-A(9764)-A(9765)-A(9766)-A(9767)-A(9768)-A(9769) - Vdot(3700) = A(8716)+A(8717)+A(8718)+A(10486)-A(10487)-A(10488) - Vdot(3701) = A(1565)-A(3598)-A(3599)-A(3600) - Vdot(3702) = A(4039)-A(6378)-A(6379)-A(6380)-A(6381) - Vdot(3703) = A(12190)+A(12192)+A(12194)+A(12195)+A(13172)-A(13173)-A(13174)-A(13175)-A(13176)-A(13177)-A(13178)& - &-A(13179)+A(13180) - Vdot(3704) = A(2959)-A(5254)-A(5255)-A(5256)-A(5257)+A(7639) - Vdot(3705) = A(5655)-A(7959)-A(7960)-A(7961)-A(7962)-A(7963)+A(9895) - Vdot(3706) = A(10696)-A(12107)-A(12108)-A(12109)-A(12110)-A(12111)-A(12112) - Vdot(3707) = A(6595)-A(8606)-A(8607)-A(8608)-A(8609) - Vdot(3708) = A(6798)+A(8611)-A(8836)-A(8837)-A(8838) - Vdot(3709) = A(11725)-A(12747)-A(12748) - Vdot(3710) = A(10671)+A(10672)-A(12068)-A(12069)-A(12070)-A(12071)-A(12072)-A(12073) - Vdot(3711) = A(8106)-A(10043)-A(10044)-A(10045)-A(10046)-A(10047)-A(10048) - Vdot(3712) = A(5414)+A(5415)+A(5417)+A(5419)+A(7774)+A(7778)-A(7779)-A(7780) - Vdot(3713) = A(5815)-A(8061)-A(8062)-A(8063)-A(8064)+A(10008) - Vdot(3714) = A(7999)-A(9921)-A(9922)-A(9923)-A(9924)-A(9925)+A(11498) - Vdot(3715) = A(13739)+A(13740)+A(13742)+A(13744)+A(14137)+A(14138)+A(14140)-A(14141)-A(14142)-A(14143)-A(14144)& - &-A(14145)-A(14146)-A(14147) - Vdot(3716) = A(601)+A(2339)+A(2341)+A(2343)-A(2344)-A(2345) - Vdot(3717) = A(8970)-A(10604)-A(10605)-A(10606)-A(10607)+A(12011) - Vdot(3718) = A(2765)-A(5029)-A(5030)-A(5031)-A(5032)-A(5033)-A(5034)-A(5035) - Vdot(3719) = A(14071)-A(14393)-A(14394)-A(14395)-A(14396)+A(14663) - Vdot(3720) = A(6987)-A(9048)-A(9049)-A(9050)-A(9051)-A(9052)-A(9053)-A(9054) - Vdot(3721) = A(312)-A(1400)-A(1401)-A(1402)-A(1403)-A(1404)-A(1405)+A(3223) - Vdot(3722) = A(13270)+A(13271)+A(13273)+A(13275)+A(13909)+A(13911)-A(13912)-A(13913)-A(13914)-A(13915)-A(13916)& - &-A(13917)-A(13918) - Vdot(3723) = A(8418)+A(8421)+A(8423)+A(8424)+A(8465)-A(10323)-A(10324)+A(10326) - Vdot(3724) = A(14866)-A(15000)-A(15001)-A(15002)-A(15003)+A(15091) - Vdot(3725) = A(6038)-A(8253)-A(8254)-A(8255)-A(8256)-A(8257)+A(10185) - Vdot(3726) = A(6037)-A(8251)-A(8252)+A(10184)+A(10187) - Vdot(3727) = A(5817)-A(8071)-A(8072)-A(8073)-A(8074)-A(8075)-A(8076)+A(10015) - Vdot(3728) = A(5409)-A(7762)-A(7763)-A(7764)-A(7765)+A(9716) - Vdot(3729) = A(11456)-A(12577)-A(12578) - Vdot(3730) = A(2913)-A(5192)-A(5193)-A(5194)-A(5195)+A(7570) - Vdot(3731) = A(2941)-A(5225)-A(5226)-A(5227)-A(5228)-A(5229)-A(5230)-A(5231) - Vdot(3732) = A(11548)-A(12652)-A(12653) - Vdot(3733) = A(2107)-A(4607)-A(4608)-A(4609)-A(4610)-A(4611)-A(4612)-A(4613) - Vdot(3734) = A(4263)+A(4277)+A(6659)-A(6667)-A(6668)+A(14479) - Vdot(3735) = A(567)+A(1963)+A(2289)+A(2292)-A(2295)-A(2296) - Vdot(3736) = A(14297)+A(14575)+A(14577)+A(14579)-A(14581)+A(14582) - Vdot(3737) = A(14295)+A(14296)+A(14298)+A(14576)+A(14578)-A(14579)-A(14580) - Vdot(3738) = A(8169)-A(10103)-A(10104)-A(10105)-A(10106)+A(11627) - Vdot(3739) = A(5653)-A(7949)-A(7950)-A(7951)-A(7952)+A(9885) - Vdot(3740) = A(7813)-A(9754)-A(9755)-A(9756)-A(9757)-A(9758)-A(9759) - Vdot(3741) = A(6961)-A(9011)-A(9012)-A(9013)-A(9014)-A(9015)+A(10643) - Vdot(3742) = A(11497)-A(12621)-A(12622) - Vdot(3743) = A(14251)+A(14253)+A(14255)+A(14256)+A(14522)-A(14523)-A(14524)-A(14525)-A(14526)-A(14527)-A(14528)& - &-A(14529)+A(14530) - Vdot(3744) = A(2067)+A(2068)+A(2070)+A(4545)-A(4546)-A(4547) - Vdot(3745) = A(4549)-A(6927)-A(6928)-A(6929)-A(6930)+A(8978) - Vdot(3746) = A(11660)-A(12709)-A(12710)-A(12711)-A(12712)-A(12713)+A(13512) - Vdot(3747) = A(5184)+A(7546)+A(7547)+A(7552)+A(7554)+A(7555)-A(7557)-A(7558)-A(7559) - Vdot(3748) = A(10010)+A(10017)+A(10018)-A(11563)-A(11564)-A(11565) - Vdot(3749) = A(2925)-A(5203)-A(5204)-A(5205)-A(5206)-A(5207)-A(5208)-A(5209) - Vdot(3750) = A(13757)-A(14157)-A(14158)-A(14159)-A(14160)-A(14161)-A(14162)-A(14163) - Vdot(3751) = A(2933)-A(5214)-A(5215)-A(5216)-A(5217)-A(5218)-A(5219)-A(5220) - Vdot(3752) = A(5519)-A(7857)-A(7858)-A(7859)-A(7860)-A(7861)+A(9817) - Vdot(3753) = A(8403)-A(10308)-A(10309)-A(10310)-A(10311)-A(10312)+A(11773) - Vdot(3754) = A(1511)+A(1512)+A(1513)+A(3476)+A(3478)-A(3479)-A(3480)-A(3481)+A(3482) - Vdot(3755) = A(704)+A(2452)+A(2474)-A(2478)-A(2479)+A(2480) - Vdot(3756) = A(6869)+A(7748)+A(8912)-A(8916)-A(8917) - Vdot(3757) = A(1386)+A(2007)+A(3197)+A(3207)-A(3211)-A(3212) - Vdot(3758) = A(2579)-A(4920)-A(4921)-A(4922)-A(4923)-A(4924)-A(4925)-A(4926)+A(7285) - Vdot(3759) = A(5390)+A(7735)+A(7738)-A(7740)-A(7741)+A(9433)+A(11030)+A(11032)+A(11035) - Vdot(3760) = A(12025)-A(13008)-A(13009)-A(13010)-A(13011)+A(13667) - Vdot(3761) = A(10642)-A(12044)-A(12045)-A(12046)-A(12047)+A(13035) - Vdot(3762) = A(5965)-A(8195)-A(8196)-A(8197)-A(8198)-A(8199)-A(8200)+A(10140) - Vdot(3763) = A(1816)+A(4127)+A(4128)-A(4130)-A(4131) - Vdot(3764) = A(12258)+A(12259)+A(12261)+A(12263)+A(13238)+A(13240)-A(13241)-A(13242)-A(13243)-A(13244)-A(13245)& - &-A(13246)-A(13247) - Vdot(3765) = A(6139)+A(6141)+A(6143)+A(6144)+A(8311)-A(8321)-A(8322)+A(8324) - Vdot(3766) = A(2943)-A(5232)-A(5233)-A(5234)-A(5235)+A(7615) - Vdot(3767) = A(1210)+A(1211)+A(1214)+A(3018)-A(3019)-A(3020) - Vdot(3768) = A(2935)-A(5221)-A(5222)-A(5223)-A(5224)+A(7603) - Vdot(3769) = A(8027)-A(9958)-A(9959)-A(9960)-A(9961)-A(9962)+A(11526) - Vdot(3770) = A(8369)-A(10248)-A(10249)-A(10250)-A(10251)-A(10252)-A(10253) - Vdot(3771) = A(8304)-A(10218)-A(10219)-A(10220)-A(10221)-A(10222)+A(11696) - Vdot(3772) = A(5892)-A(8125)-A(8126)-A(8127)-A(8128)+A(10069) - Vdot(3773) = A(10071)+A(10078)+A(10079)-A(11608)-A(11609)-A(11610) - Vdot(3774) = A(5963)-A(8185)-A(8186)-A(8187)-A(8188)+A(10133) - Vdot(3775) = A(10135)+A(10142)+A(10143)-A(11650)-A(11651)-A(11652) - Vdot(3776) = A(318)-A(1425)-A(1426)-A(1427)-A(1428)-A(1429)-A(1430)-A(1431)+A(3526)+A(5782)+A(5783)+A(5785)+A(5787)& - &+A(8034)+A(8036) - Vdot(3777) = A(7535)+A(7536)-A(9563)-A(9564)-A(9565) - Vdot(3778) = A(2810)-A(5075)-A(5076)-A(5077)-A(5078)-A(5079)-A(5080)-A(5081)+A(7441) - Vdot(3779) = A(1021)+A(1022)+A(1024)+A(2792)+A(2795)-A(2797)-A(2798)-A(2799) - Vdot(3780) = A(9503)+A(11108)+A(11110)+A(11113)-A(11114)-A(11115)+A(11140) - Vdot(3781) = A(2927)-A(5210)-A(5211)-A(5212)-A(5213)+A(7591) - Vdot(3782) = A(8385)-A(10274)-A(10275)-A(10276)-A(10277)-A(10278)+A(11750) - Vdot(3783) = A(11406)-A(12547)-A(12548) - Vdot(3784) = A(4846)-A(7245)-A(7246)-A(7247)-A(7248)+A(9379) - Vdot(3785) = A(2891)-A(5164)-A(5165)-A(5166)-A(5167)+A(7540) - Vdot(3786) = A(1424)-A(3280)-A(3281)-A(3282)-A(3283)-A(3284)+A(5475) - Vdot(3787) = A(11629)-A(12692)-A(12693) - Vdot(3788) = A(6363)-A(8441)-A(8442)-A(8443)-A(8444)-A(8445)+A(10345) - Vdot(3789) = A(12250)+A(12251)+A(12253)+A(12255)+A(13226)+A(13228)-A(13229)-A(13230)-A(13231)-A(13232)-A(13233)& - &-A(13234)-A(13235) - Vdot(3790) = A(387)+A(388)-A(1763)-A(1764)-A(1765)-A(1766)-A(1767)-A(1768)-A(1769) - Vdot(3791) = A(1717)-A(3952)-A(3953)-A(3954)-A(3955)-A(3956)+A(6290) - Vdot(3792) = A(7407)+A(7421)-A(9451)-A(9452)-A(9453)-A(9454) - Vdot(3793) = A(1434)+A(1437)-A(3301)-A(3302)+A(5494)+A(5495)+A(5496)+A(7821) - Vdot(3794) = A(349)-A(1591)-A(1592)-A(1593)-A(1594)-A(1595)-A(1596)-A(1597) - Vdot(3795) = A(1592)+A(1594)+A(1595)+A(3659)-A(3660)-A(3661)-A(3662)-A(3663)+A(3665) - Vdot(3796) = A(1498)-A(3457)-A(3458)-A(3459)-A(3460)-A(3461)+A(5712) - Vdot(3797) = A(367)+A(368)+A(372)+A(373)+A(377)+A(378)-A(1677)-A(1678)-A(1679)-A(1680)-A(1681)-A(1682)-A(1683) - Vdot(3798) = A(374)-A(1702)-A(1703)-A(1704)-A(1705)-A(1706)-A(1707)-A(1708)+A(3912) - Vdot(3799) = A(1560)-A(3586)-A(3587)-A(3588)-A(3589)-A(3590)+A(5862) - Vdot(3800) = A(5865)+A(5876)+A(5896)+A(5902)-A(8099)-A(8100) - Vdot(3801) = A(6633)-A(8664)-A(8665)-A(8666)-A(8667)-A(8668)-A(8669) - Vdot(3802) = A(1723)+A(1724)+A(1725)+A(3961)+A(3962)+A(3963)-A(3964)-A(3965)-A(3966)-A(3967)+A(3968) - Vdot(3803) = A(355)-A(1617)-A(1618)-A(1619)-A(1620)-A(1621)-A(1622)-A(1623) - Vdot(3804) = A(344)-A(1566)-A(1567)-A(1568)-A(1569)-A(1570)-A(1571)-A(1572) - Vdot(3805) = A(1567)+A(1569)+A(1570)+A(3602)-A(3603)-A(3604)-A(3605)-A(3606)+A(3608) - Vdot(3806) = A(464)-A(2100)-A(2101)-A(2102)-A(2103)-A(2104)-A(2105) - Vdot(3807) = A(342)+A(346)-A(1553)-A(1554)-A(1555)-A(1556)-A(1557)-A(1558)-A(1559) - Vdot(3808) = A(1521)-A(3503)-A(3504)-A(3505)-A(3506)-A(3507)+A(5760) - Vdot(3809) = A(841)+A(842)-A(2600)-A(2601)-A(2602)+A(8377)+A(11562)+A(14662) - Vdot(3810) = A(4062)-A(6397)-A(6398)-A(6399)-A(6400)-A(6401)-A(6402) - Vdot(3811) = A(340)-A(1540)-A(1541)-A(1542)-A(1543)-A(1544)-A(1545)-A(1546) - Vdot(3812) = A(1541)+A(1543)+A(1544)+A(3543)-A(3544)-A(3545)-A(3546)-A(3547)+A(3549) - Vdot(3813) = A(1536)-A(3534)-A(3535)-A(3536)-A(3537)-A(3538)+A(5799) - Vdot(3814) = A(3861)-A(6192)-A(6193)-A(6194)-A(6195)-A(6196)-A(6197) - Vdot(3815) = A(1587)-A(3650)-A(3651)-A(3652)-A(3653)-A(3654)+A(5946) - Vdot(3816) = A(5943)+A(5949)+A(5967)+A(5973)-A(8167)-A(8168) - Vdot(3817) = A(384)-A(1746)-A(1747)-A(1748)-A(1749)-A(1750)-A(1751)-A(1752)+A(4012) - Vdot(3818) = A(1748)+A(1749)+A(1750)+A(4013)+A(4014)+A(4015)-A(4016)-A(4017)-A(4018)-A(4019)+A(4020) - Vdot(3819) = A(382)+A(383)-A(1739)-A(1740)-A(1741)-A(1742)-A(1743)-A(1744)-A(1745) - Vdot(3820) = A(1470)-A(3387)-A(3388)-A(3389)-A(3390)-A(3391)+A(5614) - Vdot(3821) = A(5617)+A(5628)+A(6030)+A(7875)+A(7881)-A(7922)-A(7923)+A(12723) - Vdot(3822) = A(5191)+A(7561)+A(7563)+A(7566)-A(7567)-A(7568) - Vdot(3823) = A(320)-A(1438)-A(1439)-A(1440)-A(1441)-A(1442)-A(1443)-A(1444) - Vdot(3824) = A(1439)+A(1441)+A(1443)+A(3307)-A(3308)-A(3309)-A(3310)-A(3311)-A(3312)+A(3314) - Vdot(3825) = A(1733)-A(3989)-A(3990)-A(3991)-A(3992)-A(3993)+A(6328) - Vdot(3826) = A(1704)+A(1705)+A(1706)+A(3913)+A(3915)-A(3916)-A(3917)-A(3918)-A(3919)-A(3920)+A(3921) - Vdot(3827) = A(1433)-A(3296)-A(3297)-A(3298)-A(3299)-A(3300)+A(5485) - Vdot(3828) = A(1641)-A(3764)-A(3765)-A(3766)-A(3767)-A(3768)+A(6082) - Vdot(3829) = A(6085)+A(6096)-A(8297)-A(8298) - Vdot(3830) = A(1423)-A(3277)-A(3278)-A(3279) - Vdot(3831) = A(1539)-A(3539)-A(3540)-A(3541) - Vdot(3832) = A(3759)-A(6077)-A(6078)-A(6079)-A(6080)-A(6081) - Vdot(3833) = A(370)-A(1690)-A(1691)-A(1692)-A(1693)-A(1694)-A(1695) - Vdot(3834) = A(324)-A(1464)-A(1465)-A(1466)-A(1467)-A(1468)-A(1469) - Vdot(3835) = A(6538)-A(8569)-A(8570)-A(8571) - Vdot(3836) = A(452)-A(2047)-A(2048)-A(2049)-A(2050)-A(2051)-A(2052)-A(2053) - Vdot(3837) = A(10524)-A(11938)-A(11939)-A(11940)-A(11941)-A(11942)-A(11943)+A(12941) - Vdot(3838) = A(13037)-A(13683)-A(13684)-A(13685)-A(13686)+A(14090) - Vdot(3839) = A(10770)-A(12197)-A(12198)-A(12199)-A(12200)+A(13183) - Vdot(3840) = A(9097)-A(10733)-A(10734)-A(10735)-A(10736)-A(10737)+A(12139) - Vdot(3841) = A(14332)+A(14333)+A(14335)+A(14337)+A(14608)+A(14610)-A(14611)-A(14612)-A(14613)-A(14614)-A(14615)& - &-A(14616)-A(14617) - Vdot(3842) = A(1371)+A(1372)+A(1374)+A(3200)-A(3201)-A(3202) - Vdot(3843) = -A(443)-A(444)-A(445)-A(446)-A(447)+A(1002)+A(2768)+A(2770)+A(2771)+A(2773) - Vdot(3844) = A(7169)-A(9315)-A(9316)-A(9317)-A(9318)-A(9319)+A(10935) - Vdot(3845) = A(12117)-A(13104)-A(13105)-A(13106)-A(13107)-A(13108)-A(13109)+A(13753) - Vdot(3846) = A(14092)-A(14409)-A(14410)-A(14411)-A(14412)+A(14676) - Vdot(3847) = A(113)-A(774)-A(775)-A(776)-A(777)-A(778)-A(779)-A(780)+A(2540) - Vdot(3848) = A(14500)-A(14746)-A(14747)-A(14748)-A(14749)-A(14750)-A(14751)+A(14924) - Vdot(3849) = A(14497)-A(14743)-A(14744)+A(14909)+A(14910)+A(14926)+A(14927)+A(14928)+A(14940) - Vdot(3850) = A(7025)-A(9090)-A(9091)-A(9092)-A(9093)-A(9094)-A(9095)+A(10728) - Vdot(3851) = A(1036)+A(2813)+A(2816)-A(2818)-A(2819)-A(2820)+A(2821) - Vdot(3852) = A(2106)-A(4600)-A(4601)-A(4602)-A(4603)-A(4604)-A(4605)-A(4606) - Vdot(3853) = A(6358)-A(8426)-A(8427)-A(8428)-A(8429)-A(8430)+A(10330) - Vdot(3854) = A(2852)-A(5114)-A(5115)-A(5116)-A(5117)-A(5118)-A(5119)-A(5120)+A(7489) - Vdot(3855) = A(14573)-A(14809)-A(14810)-A(14811)-A(14812)-A(14813)-A(14814)-A(14815) - Vdot(3856) = A(1063)+A(2848)+A(2851)-A(2853)-A(2854)-A(2855)+A(2856) - Vdot(3857) = A(5072)+A(7430)+A(7432)-A(7434)-A(7435)-A(7436)+A(7438) - Vdot(3858) = A(12034)+A(12036)+A(12038)+A(12039)+A(13020)-A(13021)-A(13022)-A(13023)-A(13024)-A(13025)-A(13026)& - &-A(13027)+A(13028) - Vdot(3859) = A(2862)-A(5127)-A(5128)-A(5129)-A(5130)-A(5131)-A(5132)-A(5133)+A(7504) - Vdot(3860) = A(5854)-A(8089)-A(8090)-A(8091)-A(8092)+A(10026) - Vdot(3861) = A(10564)+A(11971)+A(11973)-A(11975)-A(11976)-A(11977)+A(11978) - Vdot(3862) = A(12122)+A(12123)-A(13110)-A(13111)-A(13112) - Vdot(3863) = A(473)-A(2144)-A(2145)-A(2146)-A(2147)-A(2148)-A(2149)+A(4677) - Vdot(3864) = A(10517)-A(11924)-A(11925)-A(11926)-A(11927)+A(12927) - Vdot(3865) = A(1893)-A(4300)-A(4301)-A(4302)-A(4303)+A(6713) - Vdot(3866) = A(392)-A(1787)-A(1788)-A(1789)-A(1790)+A(4108) - Vdot(3867) = A(474)-A(2150)-A(2151)-A(2152)-A(2153)-A(2154)-A(2155)-A(2156) - Vdot(3868) = A(80)-A(436)-A(437)-A(438)+A(970)+A(2729)+A(2731)+A(2733)+A(7530) - Vdot(3869) = A(2789)-A(5056)-A(5057)-A(5058)-A(5059)-A(5060)-A(5061)-A(5062)+A(7415) - Vdot(3870) = A(2754)-A(5016)-A(5017)-A(5018)-A(5019)-A(5020)-A(5021)-A(5022) - Vdot(3871) = A(7571)-A(9598)-A(9599)-A(9600)-A(9601)+A(11236) - Vdot(3872) = A(7064)-A(9152)-A(9153)-A(9154)-A(9155)-A(9156)-A(9157)+A(10806) - Vdot(3873) = A(2827)-A(5095)-A(5096)-A(5097)-A(5098)-A(5099)-A(5100)-A(5101)+A(7465) - Vdot(3874) = A(14861)-A(14996)-A(14997)-A(14998)-A(14999)+A(15089) - Vdot(3875) = A(1009)+A(2775)+A(2778)-A(2780)-A(2781)-A(2782)+A(2783) - Vdot(3876) = A(7021)-A(9080)-A(9081)-A(9082)-A(9083)-A(9084)+A(10704) - Vdot(3877) = A(1085)+A(2876)+A(2878)+A(2880)+A(2881)-A(2882)-A(2883)-A(2884) - Vdot(3878) = A(1231)+A(1232)+A(1234)+A(3041)-A(3042)-A(3043) - Vdot(3879) = A(2051)+A(4519)+A(4521)+A(4523)-A(4524)-A(4525)-A(4526)+A(4528) - Vdot(3880) = A(7640)-A(9690)-A(9691)-A(9692)-A(9693)+A(11358) - Vdot(3881) = A(7604)-A(9639)-A(9640)-A(9641)-A(9642)+A(11287) - Vdot(3882) = A(14954)-A(15059)-A(15060)-A(15061)-A(15062)-A(15063)-A(15064)-A(15065) - Vdot(3883) = A(4702)-A(7088)-A(7089)-A(7090)-A(7091)-A(7092)-A(7093)+A(9217) - Vdot(3884) = A(118)-A(801)-A(802)-A(803)-A(804)-A(805)-A(806)-A(807)+A(2564) - Vdot(3885) = A(2726)-A(5003)-A(5004)-A(5005)-A(5006)-A(5007)-A(5008)-A(5009)+A(7356) - Vdot(3886) = A(7150)-A(9291)-A(9292)-A(9293)-A(9294)-A(9295)-A(9296)+A(10915) - Vdot(3887) = A(1297)+A(1298)+A(1299)+A(3116)-A(3117)-A(3118) - Vdot(3888) = A(3119)-A(5346)-A(5347)-A(5348)-A(5349)-A(5350)+A(7706) - Vdot(3889) = A(2831)-A(5109)-A(5110)-A(5111)-A(5112)-A(5113)+A(7483) - Vdot(3890) = A(10883)-A(12265)-A(12266)-A(12267)-A(12268)-A(12269)-A(12270)-A(12271) - Vdot(3891) = A(476)-A(2163)-A(2164)-A(2165)-A(2166)-A(2167)+A(4691) - Vdot(3892) = A(660)+A(2418)-A(2420)-A(2421)-A(2422)+A(13334) - Vdot(3893) = A(2711)-A(4996)-A(4997)-A(4998)-A(4999)-A(5000)-A(5001)-A(5002)+A(7348) - Vdot(3894) = A(203)+A(205)-A(1073)-A(1074)-A(1075)-A(1076)-A(1077)-A(1078)+A(2869) - Vdot(3895) = A(13829)-A(14219)-A(14220)-A(14221)-A(14222)-A(14223)+A(14481) - Vdot(3896) = A(10337)+A(10347)-A(11783)-A(11784)-A(11785) - Vdot(3897) = A(5334)+A(5335)+A(5336)+A(7698)-A(7699)-A(7700) - Vdot(3898) = A(483)-A(2200)-A(2201)-A(2202)-A(2203)-A(2204)-A(2205)+A(4755) - Vdot(3899) = A(13365)-A(13973)-A(13974)-A(13975)-A(13976)+A(14362) - Vdot(3900) = A(1923)+A(4355)+A(4357)+A(4364)-A(4365)-A(4366)-A(4367) - Vdot(3901) = A(7144)-A(9275)-A(9276)-A(9277)-A(9278)-A(9279)-A(9280) - Vdot(3902) = A(13942)-A(14347)-A(14348)-A(14349)-A(14350)-A(14351)-A(14352)-A(14353) - Vdot(3903) = A(1421)-A(3272)-A(3273)-A(3274)-A(3275)-A(3276)+A(5466) - Vdot(3904) = A(5404)+A(5405)+A(5407)+A(7755)-A(7756)-A(7757) - Vdot(3905) = A(8980)-A(10615)-A(10616)-A(10617)-A(10618)+A(12023) - Vdot(3906) = A(7538)+A(9565)-A(9566)-A(9567)-A(9568)-A(9569) - Vdot(3907) = A(7050)-A(9131)-A(9132)-A(9133)-A(9134)+A(10777) - Vdot(3908) = A(13853)-A(14243)-A(14244)-A(14245)-A(14246)-A(14247)-A(14248)-A(14249) - Vdot(3909) = A(5368)+A(5369)+A(5370)+A(7719)-A(7720)-A(7721) - Vdot(3910) = A(1365)+A(1366)+A(1368)+A(3192)-A(3193)-A(3194) - Vdot(3911) = A(9901)+A(9908)-A(11477)-A(11478)-A(11479) - Vdot(3912) = A(7541)-A(9570)-A(9571)-A(9572)-A(9573)+A(11195) - Vdot(3913) = A(13732)+A(13733)+A(13734)+A(14132)-A(14133)-A(14134)+A(14136) - Vdot(3914) = A(9887)+A(9897)-A(11470)-A(11471)-A(11472) - Vdot(3915) = A(7360)+A(7361)-A(9418)-A(9419)-A(9420) - Vdot(3916) = A(7628)-A(9673)-A(9674)-A(9675)-A(9676)+A(11329) - Vdot(3917) = A(5209)+A(7582)+A(7584)+A(7585)+A(7586)-A(7587)-A(7588)-A(7589) - Vdot(3918) = A(6176)+A(6178)-A(8338)-A(8339)+A(9880)+A(9884)+A(10202)+A(10204)+A(10207) - Vdot(3919) = A(7616)-A(9656)-A(9657)-A(9658)-A(9659)+A(11308) - Vdot(3920) = A(7174)-A(9339)-A(9340)-A(9341)-A(9342)-A(9343)-A(9344)+A(10946) - Vdot(3921) = A(460)-A(2076)-A(2077)-A(2078)-A(2079)-A(2080)-A(2081)+A(4575) - Vdot(3922) = A(1267)+A(1268)+A(1270)+A(3085)-A(3086)-A(3087) - Vdot(3923) = A(5009)+A(7357)+A(7359)+A(7362)-A(7363)-A(7364)-A(7365) - Vdot(3924) = A(1070)+A(2858)+A(2861)+A(2863)-A(2864)-A(2865)-A(2866)+A(2867) - Vdot(3925) = A(1341)+A(1342)+A(1344)+A(3164)-A(3165)-A(3166) - Vdot(3926) = A(4443)-A(6834)-A(6835)-A(6836)-A(6837)+A(8875) - Vdot(3927) = A(7065)-A(9158)-A(9159)-A(9160)-A(9161)-A(9162)-A(9163)-A(9164) - Vdot(3928) = A(7146)-A(9281)-A(9282)-A(9283)-A(9284)-A(9285)+A(10885) - Vdot(3929) = A(873)-A(2636)-A(2637)+A(11800)+A(11801)+A(11803)+A(11805)+A(12798)+A(12799)+A(12802) - Vdot(3930) = A(5593)+A(5594)+A(5595)+A(7915)-A(7917)-A(7918)+A(7919) - Vdot(3931) = A(5592)+A(5607)+A(6120)-A(7913)-A(7914)-A(7915)-A(7916) - Vdot(3932) = A(2704)-A(4989)-A(4990)-A(4991)-A(4992)-A(4993)-A(4994)-A(4995) - Vdot(3933) = A(6569)-A(8590)-A(8591)+A(12813)+A(12814)+A(12816)+A(12817)+A(13575) - Vdot(3934) = A(1193)+A(1194)+A(1196)+A(2998)-A(2999)-A(3000) - Vdot(3935) = A(4814)+A(7200)+A(7201)+A(7203)-A(7204)-A(7205)-A(7206) - Vdot(3936) = A(461)-A(2082)-A(2083)-A(2084)-A(2085)-A(2086)-A(2087)-A(2088) - Vdot(3937) = A(11659)-A(12705)-A(12706)-A(12707)-A(12708)+A(13509) - Vdot(3938) = A(12355)+A(13314)+A(13316)-A(13319)-A(13320)-A(13321) - Vdot(3939) = A(4192)-A(6556)-A(6557)-A(6558)-A(6559)-A(6560)+A(8587) - Vdot(3940) = A(470)-A(2135)-A(2136)-A(2137)-A(2138)-A(2139)+A(4648) - Vdot(3941) = A(7550)-A(9574)-A(9575)-A(9576)-A(9577)+A(11198) - Vdot(3942) = A(1187)+A(1188)+A(1189)+A(2991)-A(2992)-A(2993) - Vdot(3943) = A(456)-A(2061)-A(2062)-A(2063)-A(2064)-A(2065)+A(4539) - Vdot(3944) = A(2802)-A(5063)-A(5064)-A(5065)-A(5066)-A(5067)+A(7425) - Vdot(3945) = A(6036)-A(8247)-A(8248)-A(8249)-A(8250)+A(10182) - Vdot(3946) = A(5201)+A(7572)+A(7575)+A(7576)+A(7577)-A(7578)-A(7579)-A(7580) - Vdot(3947) = A(9059)+A(10674)+A(10676)+A(10678)-A(10680)-A(10681)-A(10682)+A(10683) - Vdot(3948) = A(7480)-A(9527)-A(9528)-A(9529)-A(9530)-A(9531)+A(11145) - Vdot(3949) = A(12176)-A(13146)-A(13147)-A(13148)-A(13149)-A(13150)+A(13809) - Vdot(3950) = A(12180)-A(13152)-A(13153)-A(13154)-A(13155)-A(13156)-A(13157)+A(13818) - Vdot(3951) = A(12309)-A(13300)-A(13301)-A(13302)-A(13303)-A(13304) - Vdot(3952) = A(2965)-A(5258)-A(5259)-A(5260)-A(5261)-A(5262)-A(5263)-A(5264) - Vdot(3953) = A(6002)-A(8213)-A(8214)-A(8215)-A(8216)+A(10151) - Vdot(3954) = A(8967)-A(10600)-A(10601)-A(10602)-A(10603)+A(12008) - Vdot(3955) = A(6941)-A(8985)-A(8986)-A(8987)-A(8988)-A(8989)-A(8990)+A(10619) - Vdot(3956) = A(1261)+A(1262)+A(1264)+A(3078)-A(3079)-A(3080) - Vdot(3957) = A(13877)+A(13878)+A(13880)+A(14278)+A(14280)-A(14281)-A(14282)+A(14286) - Vdot(3958) = A(15076)+A(15078)+A(15081)-A(15126)-A(15127) - Vdot(3959) = A(517)+A(1950)+A(2232)+A(2235)-A(2237)-A(2238)+A(2239) - Vdot(3960) = A(15016)-A(15101)-A(15102)-A(15103) - Vdot(3961) = A(2772)-A(5036)-A(5037)-A(5038)-A(5039)-A(5040)-A(5041)-A(5042)+A(7392) - Vdot(3962) = A(10760)-A(12182)-A(12183)-A(12184)-A(12185)-A(12186)-A(12187)-A(12188) - Vdot(3963) = A(482)-A(2193)-A(2194)-A(2195)-A(2196)-A(2197)-A(2198)-A(2199) - Vdot(3964) = A(3081)-A(5329)-A(5330)-A(5331)-A(5332)+A(7694) - Vdot(3965) = A(6050)-A(8278)-A(8279)-A(8280)-A(8281)+A(8612)+A(8671) - Vdot(3966) = A(7175)-A(9345)-A(9346)-A(9347)-A(9348)-A(9349)-A(9350)-A(9351) - Vdot(3967) = A(2779)-A(5043)-A(5044)-A(5045)-A(5046)-A(5047)-A(5048)-A(5049) - Vdot(3968) = A(11749)-A(12761)-A(12762) - Vdot(3969) = A(7061)-A(9143)-A(9144)-A(9145)-A(9146)-A(9147)+A(10784) - Vdot(3970) = A(1320)+A(1321)+A(1322)+A(3146)-A(3147)-A(3148) - Vdot(3971) = A(481)-A(2187)-A(2188)-A(2189)-A(2190)-A(2191)-A(2192)+A(4746) - Vdot(3972) = A(10551)-A(11958)-A(11959)-A(11960) - Vdot(3973) = A(5931)-A(8153)-A(8154)-A(8155)-A(8156)+A(10087) - Vdot(3974) = A(13833)-A(14225)-A(14226)-A(14227)-A(14228)-A(14229)-A(14230)+A(14490) - Vdot(3975) = A(6033)-A(8242)-A(8243)-A(8244)-A(8245)-A(8246)+A(10177) - Vdot(3976) = A(12989)+A(12991)+A(12993)+A(12994)-A(13645)-A(13646)-A(13647)-A(13648)+A(13650)+A(14059) - Vdot(3977) = A(7592)-A(9626)-A(9627)-A(9628)-A(9629)+A(11269) - Vdot(3978) = -A(430)-A(431)-A(432)+A(947)+A(2706)+A(2709)+A(2712)+A(2713)+A(7412) - Vdot(3979) = A(2401)-A(4849)-A(4850)-A(4851)-A(4852)+A(7249) - Vdot(3980) = A(1890)-A(4284)-A(4285)-A(4286)-A(4287)-A(4288)+A(6699) - Vdot(3981) = A(7000)-A(9063)-A(9064)-A(9065)-A(9066)-A(9067)-A(9068)+A(10692) - Vdot(3982) = A(2108)-A(4614)-A(4615)-A(4616)-A(4617)-A(4618)-A(4619)+A(6996) - Vdot(3983) = A(8170)-A(10107)-A(10108)-A(10109)-A(10110)-A(10111)-A(10112) - Vdot(3984) = A(12996)+A(12997)+A(12999)+A(13000)+A(13654)-A(13655)-A(13656)-A(13657)-A(13658)+A(14062) - Vdot(3985) = A(9101)-A(10742)-A(10743)-A(10744)-A(10745)-A(10746)-A(10747)+A(12164) - Vdot(3986) = A(5148)+A(7518)+A(7520)+A(7521)+A(7522)-A(7523)-A(7524)-A(7525) - Vdot(3987) = A(395)-A(1795)-A(1796)-A(1797)-A(1798)+A(4116) - Vdot(3988) = A(4696)-A(7074)-A(7075)-A(7076)-A(7077)-A(7078)+A(9169) - Vdot(3989) = A(2817)-A(5082)-A(5083)-A(5084)-A(5085)-A(5086)-A(5087)-A(5088) - Vdot(3990) = A(4710)-A(7109)-A(7110)-A(7111)-A(7112)-A(7113)-A(7114) - Vdot(3991) = A(4831)+A(7216)+A(7218)-A(7220)-A(7221)-A(7222)+A(7223) - Vdot(3992) = A(9378)-A(10978)-A(10979)-A(10980)-A(10981)+A(12319) - Vdot(3993) = A(871)+A(877)-A(2631)-A(2632)+A(8639)+A(10413)+A(10415)+A(10416) - Vdot(3994) = A(475)-A(2157)-A(2158)-A(2159)-A(2160)-A(2161)-A(2162)+A(4686) - Vdot(3995) = A(780)+A(2541)+A(2543)+A(2545)-A(2546)-A(2547)-A(2548) - Vdot(3996) = A(365)-A(1671)-A(1672)-A(1673)-A(1674)-A(1675)-A(1676) - Vdot(3997) = A(5953)-A(8173)-A(8174)-A(8175)-A(8176)+A(10121) - Vdot(3998) = A(11883)-A(12876)-A(12877)-A(12878)-A(12879)-A(12880)-A(12881)+A(13598)+A(13601) - Vdot(3999) = A(8102)-A(10035)-A(10036)-A(10037)-A(10038)+A(11583) - Vdot(4000) = A(3750)+A(6065)+A(6068)+A(6070)+A(6071)-A(6073)-A(6074)-A(6076)+A(8282)+A(8284)+A(8287) - Vdot(4001) = A(3509)-A(5768)-A(5769)-A(5770)-A(5771)+A(8024) - Vdot(4002) = A(5778)-A(8030)-A(8031)-A(8032)-A(8033)+A(9971) - Vdot(4003) = A(328)-A(1483)-A(1484)-A(1485)-A(1486)-A(1487)-A(1488)-A(1489) - Vdot(4004) = A(1485)+A(1486)+A(1487)+A(3413)+A(3415)-A(3416)-A(3417)-A(3418)-A(3419)-A(3420) - Vdot(4005) = A(3472)+A(5721)+A(5724)+A(5726)+A(5727)-A(5729)-A(5730)-A(5731)-A(5732)+A(8008)+A(8010)+A(8013) - Vdot(4006) = A(7925)-A(9855)-A(9856)-A(9857)-A(9858)+A(11452) - Vdot(4007) = A(6100)-A(8307)-A(8308)-A(8309)-A(8310)+A(10231) - Vdot(4008) = A(3946)-A(6281)-A(6282)-A(6283)-A(6284)+A(8382) - Vdot(4009) = A(3770)-A(6090)-A(6091)-A(6092)-A(6093)+A(8301) - Vdot(4010) = A(321)-A(1445)-A(1446)-A(1447)-A(1448)-A(1449)-A(1450) - Vdot(4011) = A(7995)-A(9913)-A(9914)-A(9915)-A(9916)+A(11493) - Vdot(4012) = A(3511)+A(3512)+A(3513)+A(5762)+A(5765)+A(5773)-A(5774)-A(5775)+A(5776) - Vdot(4013) = A(11528)+A(11529)-A(12640)-A(12641)-A(12642)-A(12643)-A(12644)-A(12645)+A(13468)+A(13471) - Vdot(4014) = A(5720)+A(5763)+A(5774)+A(6298)+A(6331)+A(6342)-A(8006)-A(8007) - Vdot(4015) = A(9375)+A(10968)+A(10969)+A(10971)+A(10973)-A(10974)-A(10975)-A(10976)-A(10977)+A(12313)+A(12316) - Vdot(4016) = A(3592)-A(5870)-A(5871)-A(5872)-A(5873)+A(8103) - Vdot(4017) = A(391)-A(1781)-A(1782)-A(1783)-A(1784)-A(1785)-A(1786) - Vdot(4018) = A(385)-A(1753)-A(1754)-A(1755)-A(1756)-A(1757)-A(1758) - Vdot(4019) = A(13139)+A(13796)+A(13797)+A(13799)+A(13801)-A(13802)-A(13803)-A(13804)-A(13805)-A(13806)-A(13807)& - &-A(13808)+A(14191)+A(14193) - Vdot(4020) = A(3528)-A(5790)-A(5791)-A(5792)-A(5793)+A(8041) - Vdot(4021) = A(8164)-A(10099)-A(10100)-A(10101)-A(10102)+A(11625) - Vdot(4022) = A(7819)-A(9772)-A(9773)-A(9774)-A(9775)+A(11420) - Vdot(4023) = A(6029)-A(8230)-A(8231)-A(8232)-A(8233)+A(10170) - Vdot(4024) = A(7828)+A(7830)+A(7833)+A(7835)+A(7836)-A(9786)-A(9787)+A(9790) - Vdot(4025) = A(8026)-A(9954)-A(9955)-A(9956)-A(9957)+A(11523) - Vdot(4026) = A(12639)-A(13462)-A(13463)-A(13464)-A(13465)-A(13466)-A(13467)+A(14007)+A(14010) - Vdot(4027) = A(361)-A(1647)-A(1648)-A(1649)-A(1650)-A(1651)-A(1652) - Vdot(4028) = A(323)-A(1458)-A(1459)-A(1460)-A(1461)-A(1462)-A(1463)+A(3353) - Vdot(4029) = A(5895)+A(5898)+A(5900)+A(5901)+A(8099)-A(8141)-A(8142)+A(8144) - Vdot(4030) = A(3584)-A(5856)-A(5857)-A(5858)-A(5859)-A(5860)-A(5861) - Vdot(4031) = A(8096)-A(10029)-A(10030)-A(10031)-A(10032)+A(11572) - Vdot(4032) = A(341)-A(1547)-A(1548)-A(1549)-A(1550)-A(1551)-A(1552) - Vdot(4033) = A(5632)-A(7932)-A(7933)-A(7934)-A(7935)+A(9877) - Vdot(4034) = A(8225)-A(10158)-A(10159)-A(10160)-A(10161)+A(11669) - Vdot(4035) = A(6297)-A(8388)-A(8389)-A(8390)-A(8391)+A(10287) - Vdot(4036) = A(8040)-A(9975)-A(9976)-A(9977)-A(9978)+A(11544) - Vdot(4037) = A(3710)-A(6020)-A(6021)-A(6022)-A(6023)+A(8226) - Vdot(4038) = A(3409)+A(5634)+A(5637)+A(5639)+A(5640)-A(5642)-A(5643)-A(5644)-A(5645)+A(7936)+A(7938)+A(7941) - Vdot(4039) = A(8023)-A(9950)-A(9951)-A(9952)-A(9953)+A(11521) - Vdot(4040) = A(8365)-A(10240)-A(10241)-A(10242)-A(10243)+A(11721) - Vdot(4041) = A(3806)+A(6127)+A(6130)+A(6132)+A(6133)-A(6135)-A(6136)-A(6137)-A(6138)+A(8313)+A(8315)+A(8318) - Vdot(4042) = A(9381)-A(10982)-A(10983)-A(10984)-A(10985)+A(12323)+A(14849) - Vdot(4043) = A(9288)+A(10891)+A(10892)+A(10894)+A(10896)-A(10897)-A(10898)-A(10899)-A(10900)-A(10901)-A(10902)& - &-A(10903)+A(12272)+A(12274) - Vdot(4044) = A(8300)-A(10210)-A(10211)-A(10212)-A(10213)+A(11691) - Vdot(4045) = A(3530)+A(3531)+A(3532)+A(5795)-A(5796)-A(5797)+A(5798)+A(5800)+A(5804) - Vdot(4046) = A(11551)+A(11552)-A(12654)-A(12655)-A(12656)-A(12657)-A(12658)-A(12659)+A(13478)+A(13481) - Vdot(4047) = A(5796)+A(5802)+A(5819)+A(5825)+A(6287)+A(6293)-A(8043)-A(8044) - Vdot(4048) = A(3301)-A(5491)-A(5492)+A(7943) - Vdot(4049) = A(5498)-A(7824)-A(7825)-A(7826)-A(7827)+A(9784) - Vdot(4050) = A(6404)+A(6405)+A(6407)+A(6408)+A(8458)-A(8459)-A(8460)-A(8461)-A(8462)+A(10349) - Vdot(4051) = A(4063)-A(6403)-A(6404)-A(6405)-A(6406)-A(6407)-A(6408)+A(8450)+A(8452)+A(8454)+A(8455)+A(8456)+A(8457)& - &+A(8464) - Vdot(4052) = A(11790)-A(12794)-A(12795)-A(12796)-A(12797)+A(13558) - Vdot(4053) = A(7729)+A(7737)-A(9711)-A(9712) - Vdot(4054) = A(6251)-A(8372)-A(8373)-A(8374)-A(8375)+A(10262) - Vdot(4055) = A(363)-A(1660)-A(1661)-A(1662)-A(1663)-A(1664)-A(1665)-A(1666) - Vdot(4056) = A(329)-A(1490)-A(1491)-A(1492)-A(1493)-A(1494)-A(1495) - Vdot(4057) = A(5806)-A(8049)-A(8050)-A(8051)-A(8052)+A(9997) - Vdot(4058) = A(7508)-A(9540)-A(9541)-A(9542)-A(9543)-A(9544)-A(9545)-A(9546)+A(9549)+A(9550)+A(9552)+A(9554)+A(11155)& - &+A(11164)+A(11165) - Vdot(4059) = A(12181)+A(12203)+A(12204)+A(12206)+A(12208)-A(13158)-A(13159)-A(13160)-A(13161)-A(13162)-A(13163)& - &-A(13164)+A(13186)+A(13188) - Vdot(4060) = A(4341)-A(6730)-A(6731)-A(6732)-A(6733)-A(6734)-A(6735)-A(6736)+A(8761)+A(11960)+A(12949)+A(12952)& - &+A(12954)+A(12955)+A(13624)+A(13626) - Vdot(4061) = A(8381)-A(10266)-A(10267)-A(10268)-A(10269)+A(11745) - Vdot(4062) = A(5818)+A(5821)+A(5823)+A(5824)+A(8043)-A(8077)-A(8078)+A(8080) - Vdot(4063) = A(3644)-A(5937)-A(5938)-A(5939)-A(5940)+A(8165) - Vdot(4064) = A(6346)-A(8406)-A(8407)-A(8408)-A(8409)+A(10321) - Vdot(4065) = A(5880)-A(8109)-A(8110)-A(8111)-A(8112)+A(10057) - Vdot(4066) = A(8650)+A(8715)-A(10433)-A(10434) - Vdot(4067) = A(7805)-A(9736)-A(9737)-A(9738)-A(9739)+A(11388) - Vdot(4068) = A(347)+A(351)-A(1579)-A(1580)-A(1581)-A(1582)-A(1583)-A(1584)+A(3637) - Vdot(4069) = A(5933)-A(8157)-A(8158)-A(8159)-A(8160)-A(8161)-A(8162) - Vdot(4070) = A(4010)-A(6348)-A(6349)-A(6350)-A(6351)-A(6352)-A(6353) - Vdot(4071) = A(5520)+A(5523)+A(5525)+A(5526)+A(7814)-A(7862)-A(7863)+A(7865) - Vdot(4072) = A(8399)-A(10300)-A(10301)-A(10302)-A(10303)+A(11768) - Vdot(4073) = A(5719)-A(8002)-A(8003)-A(8004)-A(8005)+A(9934) - Vdot(4074) = A(369)-A(1684)-A(1685)-A(1686)-A(1687)-A(1688)-A(1689)+A(3863) - Vdot(4075) = A(3451)-A(5703)-A(5704)-A(5705)-A(5706)+A(7996) - Vdot(4076) = A(8045)-A(9979)-A(9980)-A(9981)-A(9982)+A(11546) - Vdot(4077) = A(10682)+A(12082)+A(12083)+A(12085)+A(12087)-A(12088)-A(12089)-A(12090)-A(12091)-A(12092)-A(12093)& - &+A(13082)+A(13084) - Vdot(4078) = A(4626)-A(7007)-A(7008)-A(7009)-A(7010)-A(7011)-A(7012)-A(7013) - Vdot(4079) = A(5473)-A(7808)-A(7809)-A(7810)-A(7811)+A(9748) - Vdot(4080) = A(375)-A(1709)-A(1710)-A(1711)-A(1712)-A(1713)-A(1714) - Vdot(4081) = A(1548)+A(1710)+A(1728)-A(3561)-A(3562)-A(3563)-A(3564)+A(5810)+A(6299) - Vdot(4082) = A(3903)-A(6241)-A(6242)-A(6243)-A(6244)+A(8366) - Vdot(4083) = A(334)-A(1515)-A(1516)-A(1517)-A(1518)-A(1519)-A(1520) - Vdot(4084) = A(1446)+A(1491)+A(1516)+A(1624)+A(1648)-A(3326)-A(3327)-A(3328)-A(3329)+A(5511)+A(5733)+A(6300) - Vdot(4085) = A(3995)-A(6336)-A(6337)-A(6338)-A(6339)+A(8400) - Vdot(4086) = A(5966)+A(5969)+A(5971)+A(5972)+A(8167)-A(8201)-A(8202)+A(8204) - Vdot(4087) = A(1892)+A(4289)+A(4291)+A(4293)+A(4294)-A(4295)-A(4296)-A(4297)-A(4298)-A(4299)+A(6705) - Vdot(4088) = A(7151)+A(9245)+A(9246)+A(9248)+A(9250)-A(9297)-A(9298)-A(9299)-A(9300)-A(9301)-A(9302)-A(9303)+A(10861)& - &+A(10863) - Vdot(4089) = A(4587)+A(4646)-A(6968)-A(6969)-A(6970)-A(6971)-A(6972)-A(6973)-A(6974) - Vdot(4090) = A(469)-A(2129)-A(2130)-A(2131)-A(2132)-A(2133)-A(2134)+A(4642) - Vdot(4091) = A(462)-A(2089)-A(2090)-A(2091)-A(2092)-A(2093)-A(2094)+A(4583) - Vdot(4092) = A(6967)-A(9026)-A(9027)-A(9028)-A(9029)-A(9030)-A(9031)+A(10655) - Vdot(4093) = A(350)-A(1598)-A(1599)-A(1600)-A(1601)-A(1602)-A(1603) - Vdot(4094) = A(345)-A(1573)-A(1574)-A(1575)-A(1576)-A(1577)-A(1578) - Vdot(4095) = A(4444)-A(6838)-A(6839)-A(6840)-A(6841)+A(8879) - Vdot(4096) = A(1881)-A(4270)-A(4271)-A(4272) - Vdot(4097) = A(463)-A(2095)-A(2096)-A(2097)-A(2098)-A(2099)+A(4589) - Vdot(4098) = A(13169)-A(13836)-A(13837)-A(13838)-A(13839)-A(13840)-A(13841) - Vdot(4099) = A(210)+A(212)-A(1100)-A(1101)-A(1102)-A(1103)-A(1104)-A(1105)+A(2902) - Vdot(4100) = A(3470)+A(3471)+A(3473)-A(5721)-A(5722)-A(5723)-A(5724)-A(5725)-A(5726)-A(5727)-A(5728)+A(8009)+A(8012) - Vdot(4101) = A(9936)-A(11508)-A(11509)-A(11510)-A(11511)+A(12629) - Vdot(4102) = A(12653)-A(13472)-A(13473)-A(13474)-A(13475)-A(13476)-A(13477)+A(14011)+A(14014) - Vdot(4103) = A(5220)+A(7594)+A(7596)+A(7597)+A(7598)-A(7599)-A(7600)-A(7601) - Vdot(4104) = A(13040)-A(13687)-A(13688)+A(13693)+A(13711)+A(14093)+A(14095)+A(14098)+A(14460) - Vdot(4105) = A(4522)-A(6896)-A(6897)-A(6898)-A(6899)-A(6900)-A(6901)+A(8942) - Vdot(4106) = A(8889)-A(10556)-A(10557)-A(10558)-A(10559)+A(11969) - Vdot(4107) = A(4229)+A(4322)-A(6584)-A(6585)-A(6586)-A(6587) - Vdot(4108) = A(1224)+A(3029)-A(3030)-A(3031)-A(3032)-A(3033) - Vdot(4109) = A(4314)+A(6717)+A(6719)+A(6721)-A(6722)-A(6723)+A(7689)+A(8844) - Vdot(4110) = A(5079)+A(7440)+A(7443)+A(7444)-A(7445)-A(7446)-A(7447)-A(7448)+A(7449) - Vdot(4111) = A(405)-A(1838)-A(1839)-A(1840)-A(1841)-A(1842)-A(1843)-A(1844) - Vdot(4112) = A(250)-A(1215)-A(1216)-A(1217)-A(1218)-A(1219)+A(3023) - Vdot(4113) = A(4248)+A(4330)-A(6629)-A(6630)-A(6631)-A(6632) - Vdot(4114) = A(1287)+A(3098)+A(3100)-A(3102)-A(3103)-A(3104)-A(3105) - Vdot(4115) = A(14794)-A(14962)-A(14963)-A(14964)-A(14965)+A(15071) - Vdot(4116) = A(14913)+A(14914)+A(14916)+A(14918)+A(15027)+A(15029)-A(15030)-A(15031)-A(15032)-A(15033)-A(15034)& - &-A(15035) - Vdot(4117) = A(14496)-A(14738)-A(14739)-A(14740)-A(14741)-A(14742)+A(14907) - Vdot(4118) = A(4482)-A(6872)-A(6873)-A(6874)-A(6875)+A(8920) - Vdot(4119) = A(10664)-A(12062)-A(12063)-A(12064)-A(12065)-A(12066)-A(12067)+A(13062) - Vdot(4120) = A(14519)-A(14764)-A(14765)-A(14766)-A(14767)-A(14768)-A(14769) - Vdot(4121) = A(193)+A(196)-A(1046)-A(1047)-A(1048)-A(1049)-A(1050)-A(1051)+A(2834) - Vdot(4122) = A(5231)+A(7606)+A(7608)+A(7609)+A(7610)-A(7611)-A(7612)-A(7613) - Vdot(4123) = A(11917)-A(12916)-A(12917)-A(12918)-A(12919) - Vdot(4124) = A(6925)-A(8972)-A(8973)-A(8974)-A(8975)-A(8976)-A(8977)+A(10608) - Vdot(4125) = A(5679)+A(5753)+A(6321)-A(7990)-A(7991)-A(7992)+A(8607)+A(8675)+A(8677)+A(11855) - Vdot(4126) = A(4433)-A(6820)-A(6821)-A(6822)-A(6823)-A(6824)-A(6825)+A(8861) - Vdot(4127) = A(4350)-A(6750)-A(6751)-A(6752)-A(6753)-A(6754)-A(6755)-A(6756)-A(6757)+A(8788) - Vdot(4128) = A(7447)-A(9490)-A(9491)-A(9492)-A(9493)-A(9494)-A(9495)-A(9496) - Vdot(4129) = A(10391)-A(11819)-A(11820)-A(11821)-A(11822) - Vdot(4130) = A(13901)-A(14302)-A(14303)-A(14304)-A(14305)-A(14306)-A(14307) - Vdot(4131) = A(13722)+A(13723)+A(13725)+A(13727)+A(14119)+A(14120)+A(14122)-A(14123)-A(14124)-A(14125)-A(14126)& - &-A(14127)-A(14128) - Vdot(4132) = A(1709)+A(1711)-A(3924)-A(3925)-A(3926)-A(3927)-A(3928)-A(3929)-A(3930)-A(3931)+A(6255)+A(6258) - Vdot(4133) = A(359)-A(1635)-A(1636)-A(1637)-A(1638)-A(1639)-A(1640)+A(3753) - Vdot(4134) = A(8489)-A(10352)-A(10353)-A(10354)-A(10355)+A(11791) - Vdot(4135) = A(9149)-A(10794)-A(10795)-A(10796)-A(10797)-A(10798)-A(10799) - Vdot(4136) = A(14788)-A(14956)-A(14957)-A(14958)-A(14959)-A(14960)-A(14961) - Vdot(4137) = A(14346)-A(14632)-A(14633)-A(14634)-A(14635)-A(14636)-A(14637)+A(14642) - Vdot(4138) = A(12399)-A(13339)-A(13340)-A(13341)-A(13342)+A(13967) - Vdot(4139) = A(3748)+A(3749)+A(3751)-A(6065)-A(6066)-A(6067)-A(6068)-A(6069)-A(6070)-A(6071)-A(6072)+A(8283)+A(8286) - Vdot(4140) = A(287)-A(1325)-A(1326)-A(1327)-A(1328)-A(1329)+A(3151) - Vdot(4141) = A(5959)-A(8179)-A(8180)-A(8181)-A(8182)-A(8183)-A(8184) - Vdot(4142) = A(13096)-A(13745)-A(13746)-A(13747)-A(13748)-A(13749)-A(13750) - Vdot(4143) = A(275)-A(1289)-A(1290)-A(1291)-A(1292)-A(1293)+A(3106) - Vdot(4144) = A(2141)-A(4658)-A(4659)-A(4660)-A(4661)-A(4662)-A(4663) - Vdot(4145) = A(9148)-A(10788)-A(10789)-A(10790)-A(10791)-A(10793) - Vdot(4146) = A(468)-A(2122)-A(2123)-A(2124)-A(2125)-A(2126)-A(2127)-A(2128) - Vdot(4147) = A(13938)-A(14340)-A(14341)-A(14342)-A(14343)-A(14344)-A(14345) - Vdot(4148) = A(2140)-A(4652)-A(4653)-A(4654)-A(4655)-A(4656)-A(4657) - Vdot(4149) = A(8340)-A(10234)-A(10235)-A(10236)-A(10237)+A(11710) - Vdot(4150) = A(12135)+A(12138)-A(13113)-A(13114)-A(13115)-A(13116)-A(13117)-A(13118) - Vdot(4151) = A(2105)+A(4593)-A(4597)-A(4598)-A(4599) - Vdot(4152) = A(3905)+A(3906)+A(3907)+A(6235)+A(6238)+A(6246)-A(6247)-A(6248)+A(6249) - Vdot(4153) = A(8368)-A(10244)-A(10245)-A(10246)-A(10247)+A(11723) - Vdot(4154) = A(11728)+A(11729)-A(12749)-A(12750)-A(12751)-A(12752)-A(12753)-A(12754)+A(13529)+A(13532) - Vdot(4155) = A(1337)+A(3154)+A(3157)-A(3158)-A(3159)-A(3160) - Vdot(4156) = A(890)+A(896)-A(2650)-A(2651)-A(2652)-A(2653) - Vdot(4157) = A(14399)-A(14666)-A(14667)-A(14668)-A(14669)-A(14670)-A(14671)+A(14857) - Vdot(4158) = A(4533)-A(6910)-A(6911)-A(6912)-A(6913)-A(6914)-A(6915)+A(8954) - Vdot(4159) = A(4160)-A(6502)-A(6503)-A(6504)-A(6505)-A(6506)-A(6507)-A(6508) - Vdot(4160) = A(1305)+A(3123)+A(3126)-A(3128)-A(3129)-A(3130) - Vdot(4161) = A(84)-A(649)-A(650)-A(651)-A(652)-A(653)-A(654)-A(655)+A(2406) - Vdot(4162) = A(13907)-A(14310)-A(14311)-A(14312)-A(14313)-A(14314)-A(14315)-A(14316) - Vdot(4163) = A(7812)-A(9750)-A(9751)-A(9752)-A(9753)+A(11396) - Vdot(4164) = A(5253)+A(7630)+A(7632)+A(7633)+A(7634)-A(7635)-A(7636)-A(7637) - Vdot(4165) = A(5889)-A(8119)-A(8120)-A(8121)-A(8122)-A(8123)-A(8124) - Vdot(4166) = A(10679)-A(12074)-A(12075)-A(12076)-A(12077)-A(12078)-A(12079)+A(13075) - Vdot(4167) = A(390)-A(1774)-A(1775)-A(1776)-A(1777)-A(1778)-A(1779)-A(1780)+A(4075) - Vdot(4168) = A(4082)+A(4083)-A(6419)-A(6420)-A(6421)-A(6422)-A(6423)-A(6424)+A(8469)+A(8472) - Vdot(4169) = A(4423)-A(6814)-A(6815)-A(6816)-A(6817)-A(6818)-A(6819)+A(8851) - Vdot(4170) = A(4514)-A(6892)-A(6893)-A(6894)-A(6895)+A(8938) - Vdot(4171) = A(229)-A(1161)-A(1162)-A(1163)-A(1164)-A(1165)-A(1166)+A(2967) - Vdot(4172) = A(13280)-A(13923)-A(13924)-A(13925)-A(13926)-A(13927)-A(13928)-A(13929) - Vdot(4173) = A(6985)-A(9042)-A(9043)-A(9044)-A(9045)-A(9046)-A(9047)+A(10660) - Vdot(4174) = A(1239)+A(3047)+A(3051)-A(3052)-A(3053)-A(3054) - Vdot(4175) = A(12747)+A(12775)+A(12973)-A(13520)-A(13521)-A(13522)+A(13524)+A(13525)+A(13527)+A(13528)+A(14033)& - &+A(14034) - Vdot(4176) = A(9290)-A(10909)-A(10910)-A(10911)-A(10912)-A(10913)-A(10914) - Vdot(4177) = A(1686)+A(1687)+A(1688)+A(3864)+A(3866)-A(3867)-A(3868)-A(3869)-A(3870)-A(3871)-A(3872)+A(3873) - Vdot(4178) = A(6412)+A(6417)+A(8419)+A(8425)-A(8465)-A(8466)-A(8467)-A(8468) - Vdot(4179) = A(5242)+A(7618)+A(7620)+A(7621)+A(7622)-A(7623)-A(7624)-A(7625) - Vdot(4180) = A(8617)-A(10407)-A(10408)-A(10409)-A(10410)+A(11834) - Vdot(4181) = A(3804)+A(3805)+A(3807)+A(4011)-A(6127)-A(6128)-A(6129)-A(6130)-A(6131)-A(6132)-A(6133)-A(6134)+A(8314)& - &+A(8317)+A(8412)+A(8413)+A(8415)+A(8416)+A(8417) - Vdot(4182) = A(10233)-A(11706)-A(11707)-A(11708)-A(11709)+A(12738) - Vdot(4183) = A(4743)+A(7155)+A(7156)+A(7160)+A(7161)+A(7163)-A(7166)-A(7167)+A(7168)+A(9167) - Vdot(4184) = A(12795)+A(12796)+A(12797)+A(13559)-A(13560) - Vdot(4185) = A(467)-A(2116)-A(2117)-A(2118)-A(2119)-A(2120)-A(2121)+A(4632) - Vdot(4186) = A(2128)+A(4592)+A(4635)+A(4636)-A(4639)-A(4640)-A(4641) - Vdot(4187) = A(3524)+A(3525)-A(5780)-A(5781)-A(5782)-A(5783)-A(5784)-A(5785)-A(5786)-A(5787)+A(8035)+A(8038) - Vdot(4188) = A(9846)-A(11440)-A(11441)-A(11442)-A(11443)+A(12568) - Vdot(4189) = A(10612)-A(12017)-A(12018)-A(12019)-A(12020)-A(12021)-A(12022)+A(13001) - Vdot(4190) = A(13009)+A(13010)+A(13011)+A(13668)-A(13669)-A(13670) - Vdot(4191) = A(11979)+A(11981)+A(11983)+A(11984)-A(12967)-A(12968)-A(12969)-A(12970)+A(12972)+A(13633) - Vdot(4192) = A(8305)-A(10223)-A(10224)-A(10225)-A(10226)+A(11700) - Vdot(4193) = A(8229)-A(10166)-A(10167)-A(10168)-A(10169)+A(11674) - Vdot(4194) = A(10098)-A(11621)-A(11622)-A(11623)-A(11624)+A(12689) - Vdot(4195) = A(7806)-A(9740)-A(9741)-A(9742)-A(9743)+A(11390) - Vdot(4196) = A(14321)+A(14322)-A(14601)-A(14602)-A(14603)-A(14604)-A(14605)-A(14606)-A(14607) - Vdot(4197) = A(9102)+A(9105)+A(9106)+A(9108)+A(9110)-A(10748)-A(10749)-A(10750)-A(10751)-A(10752)-A(10753)+A(10754)& - &+A(10755)+A(10757) - Vdot(4198) = A(3882)+A(3883)-A(6204)-A(6205)-A(6206)-A(6207)-A(6208)-A(6209)-A(6210)-A(6211)+A(8352)+A(8354)+A(8355) - Vdot(4199) = A(8058)-A(10003)-A(10004)+A(10005)+A(12654)+A(12656)+A(12658)+A(12659)+A(12750)+A(12751)+A(12753)& - &+A(12754)+A(13479)+A(13480)+A(13530)+A(13531) - Vdot(4200) = A(8001)-A(9930)-A(9931)-A(9932)-A(9933)+A(11505) - Vdot(4201) = A(2072)-A(4551)-A(4552)-A(4553)-A(4554)-A(4555)+A(6939) - Vdot(4202) = A(11468)-A(12585)-A(12586)-A(12587)-A(12588)-A(12589)-A(12590)+A(13442)+A(13445) - Vdot(4203) = A(12762)-A(13533)-A(13534)-A(13535)-A(13536)-A(13537)-A(13538)+A(14036)+A(14039) - Vdot(4204) = A(9949)-A(11517)-A(11518)-A(11519)-A(11520)+A(12635) - Vdot(4205) = A(10034)-A(11579)-A(11580)-A(11581)-A(11582)+A(12670) - Vdot(4206) = A(2369)+A(2370)-A(4821)-A(4822)-A(4823)-A(4824)-A(4825)-A(4826)+A(7211)+A(7214) - Vdot(4207) = A(13320)+A(13321)-A(13951)-A(13952)-A(13953)-A(13954)-A(13955)-A(13956)+A(14357)+A(14358) - Vdot(4208) = A(8590)-A(10375)-A(10376)-A(10377)-A(10378)-A(10379)-A(10380)+A(11806)+A(11808)+A(11809) - Vdot(4209) = A(8537)+A(8538)-A(10359)-A(10360)-A(10361)-A(10362)-A(10363)-A(10364)+A(11795)+A(11796) - Vdot(4210) = A(8370)-A(10254)-A(10255)-A(10256)-A(10257)+A(11731) - Vdot(4211) = A(8787)-A(10539)-A(10540)-A(10541)-A(10542)+A(11955) - Vdot(4212) = A(8228)-A(10162)-A(10163)-A(10164)-A(10165)+A(11671) - Vdot(4213) = A(6554)-A(8581)-A(8582)-A(8583)-A(8584)-A(8585) - Vdot(4214) = A(13514)-A(14026)-A(14027)-A(14028)-A(14029)-A(14030)-A(14031)+A(14379)+A(14382) - Vdot(4215) = A(3141)+A(3142)-A(5361)-A(5362)-A(5363)-A(5364)-A(5365)-A(5366)+A(7713)+A(7716) - Vdot(4216) = A(14545)+A(14546)+A(14547)-A(14778)-A(14779)-A(14780)-A(14781)-A(14782)-A(14783)+A(14950) - Vdot(4217) = A(7823)-A(9780)-A(9781)-A(9782)-A(9783)+A(11425) - Vdot(4218) = A(11633)-A(12694)-A(12695)-A(12696)-A(12697)-A(12698)-A(12699)+A(13504)+A(13507) - Vdot(4219) = A(4359)+A(4367)-A(6760)-A(6761)-A(6762)-A(6763)-A(6764)-A(6765)-A(6766)-A(6767)+A(6786)+A(6787)+A(6789)& - &+A(6791)+A(8822)+A(8824) - Vdot(4220) = A(14665)-A(14851)-A(14852)-A(14853)-A(14854)-A(14855)-A(14856)+A(14992)+A(14995) - Vdot(4221) = A(11409)+A(11410)-A(12549)-A(12550)-A(12551)-A(12552)-A(12553)-A(12554)+A(13423)+A(13426) - Vdot(4222) = A(11958)+A(11959)-A(12949)-A(12950)-A(12951)-A(12952)-A(12953)-A(12954)-A(12955)-A(12956)+A(13625)& - &+A(13628) - Vdot(4223) = A(1393)+A(2027)+A(3205)+A(3210)+A(3214)-A(3217)-A(3218) - Vdot(4224) = A(13025)+A(13029)+A(13671)+A(13673)-A(13676)-A(13677)-A(13678)+A(13679) - Vdot(4225) = A(8029)-A(9967)-A(9968)-A(9969)-A(9970)+A(11533) - Vdot(4226) = A(14774)+A(14775)+A(14776)-A(14944)-A(14945)-A(14946)-A(14947)-A(14948)-A(14949) - Vdot(4227) = A(10128)+A(11641)+A(11643)+A(11645)+A(11646)-A(11647)-A(11648)-A(11649)+A(12702)+A(12703) - Vdot(4228) = A(10470)-A(11865)-A(11866)-A(11867)-A(11868)-A(11869)-A(11870)+A(12850)+A(12853) - Vdot(4229) = A(10458)-A(11859)-A(11860)-A(11861)-A(11862)-A(11863)-A(11864)+A(12846)+A(12849) - Vdot(4230) = A(11976)+A(11977)-A(12961)-A(12962)-A(12963)-A(12964)-A(12965)-A(12966)+A(13630)+A(13631) - Vdot(4231) = A(6742)+A(8771)+A(8773)+A(8775)-A(8776)-A(8777)-A(8778)+A(8779) - Vdot(4232) = A(10299)-A(11764)-A(11765)-A(11766)-A(11767)+A(12772) - Vdot(4233) = A(10066)+A(11600)+A(11601)+A(11603)+A(11604)-A(11605)-A(11606)-A(11607)+A(12683)+A(12684) - Vdot(4234) = A(14563)+A(14564)+A(14566)+A(14568)+A(14798)+A(14800)-A(14801)-A(14802)-A(14803)-A(14804)-A(14805)& - &+A(14838)+A(14966)+A(14967) - Vdot(4235) = A(11206)+A(11215)-A(12408)-A(12409)-A(12410)-A(12411)+A(13349) - Vdot(4236) = A(10741)-A(12159)-A(12160)-A(12161)-A(12162)-A(12163)+A(13140) - Vdot(4237) = A(8107)-A(10049)-A(10050)-A(10051)-A(10052)+A(11593) - Vdot(4238) = A(7635)-A(9677)-A(9678)-A(9679)-A(9680)+A(11332)+A(12522)+A(12523)+A(12525)+A(12526)+A(13402) - Vdot(4239) = A(6797)+A(8828)+A(8831)-A(8833)-A(8834)-A(8835)+A(15041)+A(15043)+A(15046) - Vdot(4240) = A(2109)+A(2114)-A(4620)-A(4621)-A(4622)-A(4623)-A(4624)-A(4625) - Vdot(4241) = A(11459)+A(11460)-A(12579)-A(12580)-A(12581)-A(12582)-A(12583)-A(12584)+A(13438)+A(13441) - Vdot(4242) = A(13151)-A(13813)-A(13814)-A(13815)-A(13816)-A(13817)+A(14205) - Vdot(4243) = A(7205)+A(7206)-A(9352)-A(9353)-A(9354)-A(9355)-A(9356)-A(9357)+A(10956)+A(10957) - Vdot(4244) = A(4845)+A(7230)+A(7231)+A(7233)+A(7234)-A(7241)-A(7242)-A(7243)-A(7244)+A(9365)+A(9376) - Vdot(4245) = A(10265)-A(11741)-A(11742)-A(11743)-A(11744)+A(12758) - Vdot(4246) = A(8047)-A(9989)-A(9990)-A(9991)-A(9992)+A(11554) - Vdot(4247) = A(8712)-A(10479)-A(10480)-A(10481)-A(10482)-A(10483) - Vdot(4248) = A(4993)+A(7202)+A(7338)+A(7340)-A(7342)-A(7343)-A(7344)+A(7345)+A(7351) - Vdot(4249) = A(4725)-A(7134)-A(7135)-A(7136)-A(7137)-A(7138)-A(7139) - Vdot(4250) = A(11936)-A(12936)-A(12937)-A(12938)-A(12939)-A(12940) - Vdot(4251) = A(7578)-A(9602)-A(9603)-A(9604)-A(9605)-A(9606)-A(9607)-A(9608)+A(9611)+A(9612)+A(9614)+A(9616)+A(11240)& - &+A(11248)+A(11249) - Vdot(4252) = A(8387)-A(10283)-A(10284)-A(10285)-A(10286)+A(11757) - Vdot(4253) = A(11500)+A(11501)-A(12623)-A(12624)-A(12625)-A(12626)-A(12627)-A(12628)+A(13458)+A(13461) - Vdot(4254) = A(7623)-A(9660)-A(9661)-A(9662)-A(9663)+A(11311)+A(12503)+A(12504)+A(12506)+A(12507)+A(13394) - Vdot(4255) = A(1891)-A(4289)-A(4290)-A(4291)-A(4292)-A(4293)-A(4294)+A(6704)+A(6707) - Vdot(4256) = A(6678)+A(8659)+A(8728)-A(8741)-A(8742)+A(10438)+A(10440) - Vdot(4257) = A(6966)+A(9017)+A(9018)+A(9020)+A(9021)-A(9022)-A(9023)-A(9024)-A(9025)+A(10649)+A(10652) - Vdot(4258) = A(9289)-A(10904)-A(10905)-A(10906)-A(10907)-A(10908) - Vdot(4259) = A(4177)+A(4178)-A(6526)-A(6527)-A(6528)-A(6529)-A(6530)-A(6531)+A(8558)+A(8559) - Vdot(4260) = A(7221)+A(7222)-A(9358)-A(9359)-A(9360)-A(9361)-A(9362)-A(9363)+A(10960)+A(10961) - Vdot(4261) = A(5000)+A(7341)+A(7347)+A(7350)-A(7352)-A(7353)-A(7354) - Vdot(4262) = A(9974)-A(11540)-A(11541)-A(11542)-A(11543)+A(12649) - Vdot(4263) = A(7295)+A(7297)-A(9390)-A(9391)-A(9392)-A(9393)+A(10991)+A(14355) - Vdot(4264) = A(7079)-A(9173)-A(9174)-A(9175)-A(9176)-A(9177) - Vdot(4265) = A(7822)-A(9776)-A(9777)-A(9778)-A(9779)+A(11422) - Vdot(4266) = A(4597)+A(4598)-A(6975)-A(6976)-A(6977)-A(6978)-A(6979)-A(6980)+A(9038)+A(9041) - Vdot(4267) = A(12540)-A(13407)-A(13408)-A(13409)-A(13410)-A(13411)-A(13412)+A(13992)+A(13995) - Vdot(4268) = A(12043)+A(12983)+A(12985)+A(12987)+A(12988)-A(13031)-A(13032)-A(13033)-A(13034)+A(13642)+A(13680) - Vdot(4269) = A(4275)-A(6683)-A(6684)-A(6685)-A(6686)-A(6687)-A(6688)+A(8745)+A(8748) - Vdot(4270) = A(7611)-A(9643)-A(9644)-A(9645)-A(9646)+A(11290)+A(12486)+A(12487)+A(12489)+A(12490)+A(13386) - Vdot(4271) = A(9735)-A(11384)-A(11385)-A(11386)-A(11387)+A(12535) - Vdot(4272) = A(380)-A(1727)-A(1728)-A(1729)-A(1730)-A(1731)-A(1732) - Vdot(4273) = A(7807)-A(9744)-A(9745)-A(9746)-A(9747)+A(11393) - Vdot(4274) = A(12391)-A(13335)-A(13336)-A(13337)-A(13338)+A(13963) - Vdot(4275) = A(3014)+A(3015)-A(5289)-A(5290)-A(5291)-A(5292)-A(5293)-A(5294)+A(7664)+A(7667) - Vdot(4276) = A(10209)-A(11687)-A(11688)-A(11689)-A(11690)+A(12727) - Vdot(4277) = A(4094)-A(6439)-A(6440)-A(6441)-A(6442)-A(6443)+A(6452)+A(6454)+A(8479) - Vdot(4278) = A(13077)-A(13728)-A(13729)-A(13730)+A(13736)+A(14131)+A(14135)+A(14845)+A(14847)+A(14850) - Vdot(4279) = A(9494)+A(11098)+A(11100)-A(11102)-A(11103)-A(11104)+A(11106)+A(14720) - Vdot(4280) = A(8108)-A(10053)-A(10054)-A(10055)-A(10056)+A(11596) - Vdot(4281) = A(3073)+A(3074)-A(5323)-A(5324)-A(5325)-A(5326)-A(5327)-A(5328)+A(7690)+A(7693) - Vdot(4282) = A(6535)-A(8561)-A(8562)-A(8563)-A(8564)-A(8565) - Vdot(4283) = A(3188)+A(3189)-A(5391)-A(5392)-A(5393)-A(5394)-A(5395)-A(5396)+A(7743)+A(7744) - Vdot(4284) = A(7678)+A(7731)-A(9703)-A(9704)-A(9705)-A(9706)+A(11366) - Vdot(4285) = A(10157)-A(11665)-A(11666)-A(11667)-A(11668)+A(12717) - Vdot(4286) = A(1874)-A(4218)-A(4219)-A(4220)-A(4221)-A(4222) - Vdot(4287) = A(8405)-A(10317)-A(10318)-A(10319)-A(10320)+A(11780) - Vdot(4288) = A(6964)+A(6965)-A(9016)-A(9017)-A(9018)-A(9019)-A(9020)-A(9021)+A(10648)+A(10651) - Vdot(4289) = A(10239)-A(11717)-A(11718)-A(11719)-A(11720)+A(12744) - Vdot(4290) = A(10654)-A(12054)-A(12055)-A(12056)-A(12057)+A(13045) - Vdot(4291) = A(7931)-A(9873)-A(9874)-A(9875)-A(9876)+A(11465) - Vdot(4292) = A(8028)-A(9963)-A(9964)-A(9965)-A(9966)+A(11530) - Vdot(4293) = A(7930)-A(9869)-A(9870)-A(9871)-A(9872)+A(11462) - Vdot(4294) = A(8615)+A(9397)+A(9789)-A(10404)-A(10405)+A(11829)+A(11837)+A(13574)+A(13595)+A(13604) - Vdot(4295) = A(13678)+A(14079)+A(14081)+A(14083)+A(14084)-A(14086)-A(14087)-A(14088)-A(14089)+A(14402)+A(14403)& - &+A(14406) - Vdot(4296) = A(8172)-A(10117)-A(10118)-A(10119)-A(10120)+A(11638) - Vdot(4297) = A(8404)-A(10313)-A(10314)-A(10315)-A(10316)+A(11777) - Vdot(4298) = A(9854)-A(11448)-A(11449)-A(11450)-A(11451)+A(12574) - Vdot(4299) = A(11775)+A(11776)-A(12777)-A(12778)-A(12779)-A(12780)-A(12781)-A(12782)+A(13549)+A(13552) - Vdot(4300) = A(2002)-A(4458)-A(4459)-A(4460)+A(5035)+A(7385)+A(7387)+A(7388)+A(7389) - Vdot(4301) = A(4639)+A(4640)-A(7014)-A(7015)-A(7016)-A(7017)-A(7018)-A(7019)+A(9076)+A(9079) - Vdot(4302) = A(2115)-A(4627)-A(4628)-A(4629)-A(4630)-A(4631) - Vdot(4303) = A(8000)-A(9926)-A(9927)-A(9928)-A(9929)+A(11502) - Vdot(4304) = A(8048)-A(9993)-A(9994)-A(9995)-A(9996)+A(11557) - Vdot(4305) = A(9912)-A(11489)-A(11490)-A(11491)-A(11492)+A(12618) - Vdot(4306) = A(9771)-A(11416)-A(11417)-A(11418)-A(11419)+A(12558) - Vdot(4307) = A(8171)-A(10113)-A(10114)-A(10115)-A(10116)+A(11635) - Vdot(4308) = A(11401)+A(11402)-A(12541)-A(12542)-A(12543)-A(12544)-A(12545)-A(12546)+A(13413)+A(13416) - Vdot(4309) = A(9596)-A(11224)-A(11225)-A(11226)-A(11227)-A(11228)+A(12422) - Vdot(4310) = A(70)-A(573)-A(574)-A(575)-A(576)-A(577)-A(578)-A(579)+A(7523)+A(9557)+A(9558)+A(9560)+A(9562)+A(11169)& - &+A(11170) - Vdot(4311) = A(1695)+A(3874)+A(3877)+A(3879)+A(3880)-A(3892)-A(3893)-A(3894)-A(3895)-A(3896)+A(6198)+A(6199)+A(6201)& - &+A(6226) - Vdot(4312) = A(8386)-A(10279)-A(10280)-A(10281)-A(10282)+A(11754) - Vdot(4313) = A(5118)+A(7488)+A(7491)-A(7493)-A(7494)-A(7495)+A(7497)+A(7507) - Vdot(4314) = A(8371)-A(10258)-A(10259)-A(10260)-A(10261)+A(11734) - Vdot(4315) = A(13846)+A(13847)+A(13848)-A(14237)-A(14238)-A(14239)-A(14240)-A(14241)-A(14242) - Vdot(4316) = A(2453)-A(4865)-A(4866)-A(4867)-A(4868)-A(4869)-A(4870)+A(7252)+A(7255) - Vdot(4317) = A(8306)-A(10227)-A(10228)-A(10229)-A(10230)+A(11703) - Vdot(4318) = A(4500)+A(6883)+A(6884)+A(6886)+A(6887)-A(6888)-A(6889)-A(6890)-A(6891)+A(8933)+A(8936) - Vdot(4319) = A(13886)+A(13887)+A(13888)-A(14287)-A(14288)-A(14289)-A(14290)-A(14291)-A(14292)+A(14569) - Vdot(4320) = A(1294)-A(3109)-A(3110)-A(3111)-A(3112)-A(3113) - Vdot(4321) = A(6588)-A(8593)-A(8594)-A(8595)-A(8596)-A(8597)-A(8598) - Vdot(4322) = A(3772)+A(3773)+A(3774)+A(6084)+A(6087)+A(6095)-A(6096)-A(6097)+A(6098) - Vdot(4323) = A(8303)-A(10214)-A(10215)-A(10216)-A(10217)+A(11693) - Vdot(4324) = A(11698)+A(11699)-A(12732)-A(12733)-A(12734)-A(12735)-A(12736)-A(12737)+A(13516)+A(13519) - Vdot(4325) = A(8020)+A(9937)+A(9943)-A(9945)-A(9946)-A(9947)+A(12641)+A(12642)+A(12644)+A(12645)+A(12733)+A(12734)& - &+A(12736)+A(12737)+A(13469)+A(13470)+A(13517)+A(13518) - Vdot(4326) = A(3395)+A(3396)+A(3397)+A(5616)+A(5619)+A(5627)-A(5628)-A(5629)+A(5630) - Vdot(4327) = A(7928)-A(9859)-A(9860)-A(9861)-A(9862)+A(11454) - Vdot(4328) = A(7877)+A(7878)+A(7880)+A(7882)+A(7922)+A(9823)-A(9824)-A(9825) - Vdot(4329) = A(12578)+A(12731)-A(13432)-A(13433)-A(13434)-A(13435)-A(13436)-A(13437)+A(14000)+A(14003)+A(14032) - Vdot(4330) = A(853)-A(2614)-A(2615)-A(2616)-A(2617)-A(2618) - Vdot(4331) = A(11673)+A(11676)+A(11702)+A(11705)+A(12716)+A(12719)-A(12720)+A(12726)+A(12729) - Vdot(4332) = -A(262)-A(263)-A(264)-A(265)-A(266)-A(267) - Vdot(4333) = A(142)+A(245)+A(248)+A(265)+A(271)+A(300)+A(306)-A(899)-A(900)-A(901)-A(902) - Vdot(4334) = A(2830)-A(5102)-A(5103)-A(5104)-A(5105)-A(5106)-A(5107)-A(5108) - Vdot(4335) = A(1783)-A(4096)-A(4097)-A(4098)-A(4099)-A(4100)-A(4101)+A(6450) - Vdot(4336) = A(445)-A(2022)-A(2023)-A(2024)-A(2025)-A(2026)-A(2027)+A(4487) - Vdot(4337) = A(1887)-A(4278)-A(4279)-A(4280)-A(4281)+A(6689) - Vdot(4338) = A(3407)+A(3408)+A(3410)-A(5634)-A(5635)-A(5636)-A(5637)-A(5638)-A(5639)-A(5640)-A(5641)+A(7937)+A(7940) - Vdot(4339) = A(6646)-A(8685)-A(8686)-A(8687)-A(8688) - Vdot(4340) = A(13005)-A(13661)-A(13662)-A(13663)-A(13664)-A(13665)-A(13666) - Vdot(4341) = A(4170)-A(6520)-A(6521)-A(6522)-A(6523)-A(6524)-A(6525) - Vdot(4342) = A(14503)+A(14504)+A(14506)+A(14508)+A(14752)+A(14754)-A(14755)-A(14756)-A(14757)-A(14758)-A(14759)& - &-A(14760)-A(14761) - Vdot(4343) = A(14935)-A(15047)-A(15048)-A(15049)-A(15050)-A(15051)+A(15114) - Vdot(4344) = A(3088)-A(5333)-A(5334)-A(5335)-A(5336)+A(7697) - Vdot(4345) = A(3149)-A(5367)-A(5368)-A(5369)-A(5370)+A(7718) - Vdot(4346) = A(14688)+A(14689)+A(14691)+A(14693)+A(14873)+A(14874)+A(14876)-A(14877)-A(14878)-A(14879)-A(14880)& - &-A(14881)-A(14882) - Vdot(4347) = A(5572)-A(7887)-A(7888)-A(7889)-A(7890)-A(7891)+A(9833) - Vdot(4348) = A(8897)-A(10560)-A(10561)-A(10562)-A(10563)-A(10564)-A(10565)-A(10566)+A(11972) - Vdot(4349) = A(9638)-A(11280)-A(11281)-A(11282)-A(11283)-A(11284)-A(11285) - Vdot(4350) = A(13079)-A(13731)-A(13732)-A(13733)-A(13734)-A(13735)-A(13736) - Vdot(4351) = A(232)-A(1170)-A(1171)-A(1172)-A(1173)-A(1174)-A(1175)+A(2976) - Vdot(4352) = A(5285)+A(6675)-A(7660)-A(7661)+A(7662)+A(12895)+A(12896)+A(12898)+A(12900)+A(13603)+A(13607) - Vdot(4353) = A(145)-A(910)-A(911)-A(912)-A(913)-A(914)-A(915) - Vdot(4354) = A(4843)-A(7235)-A(7236)-A(7237)-A(7238)-A(7239)-A(7240)+A(9369) - Vdot(4355) = A(9689)-A(11351)-A(11352)-A(11353)-A(11354)-A(11355)-A(11356) - Vdot(4356) = A(446)-A(2028)-A(2029)-A(2030)-A(2031)-A(2032)-A(2033)-A(2034)+A(4492) - Vdot(4357) = A(7471)-A(9515)-A(9516)-A(9517)-A(9518)-A(9519)-A(9520)+A(11130) - Vdot(4358) = A(3267)-A(5458)-A(5459)-A(5460)-A(5461)-A(5462)-A(5463)+A(7796) - Vdot(4359) = A(2377)-A(4827)-A(4828)-A(4829)-A(4830)-A(4831)-A(4832)-A(4833)+A(7217) - Vdot(4360) = A(7645)-A(9694)-A(9695)-A(9696)-A(9697)-A(9698)-A(9699)-A(9700) - Vdot(4361) = A(9672)-A(11322)-A(11323)-A(11324)-A(11325)-A(11326)-A(11327) - Vdot(4362) = A(14678)-A(14867)-A(14868)-A(14869)-A(14870) - Vdot(4363) = A(10933)-A(12298)-A(12299)-A(12300)-A(12301)-A(12302)-A(12303)-A(12304) - Vdot(4364) = A(91)-A(685)-A(686)-A(687)-A(688)-A(689)-A(690)+A(2449) - Vdot(4365) = A(4496)-A(6876)-A(6877)-A(6878)-A(6879)-A(6880)-A(6881)+A(8924) - Vdot(4366) = A(11941)+A(12925)+A(12929)+A(12931)+A(12934)+A(12942)+A(12944)-A(12945)-A(12946)+A(12948)+A(13615) - Vdot(4367) = A(444)-A(2016)-A(2017)-A(2018)-A(2019)-A(2020)-A(2021)+A(4478) - Vdot(4368) = A(4360)+A(4362)-A(6768)-A(6769)-A(6770)-A(6771)-A(6772)-A(6773)-A(6774)-A(6775) - Vdot(4369) = A(9625)-A(11262)-A(11263)-A(11264)-A(11265)-A(11266)-A(11267) - Vdot(4370) = A(233)-A(1176)-A(1177)-A(1178)-A(1179)-A(1180)-A(1181)+A(2984) - Vdot(4371) = A(13120)+A(13121)+A(13123)+A(13124)+A(13781)-A(13782)-A(13783)-A(13784)-A(13785) - Vdot(4372) = A(406)-A(1845)-A(1846)-A(1847)-A(1848)-A(1849)-A(1850)-A(1851) - Vdot(4373) = A(1851)+A(4129)+A(4174)-A(4176)-A(4177)-A(4178) - Vdot(4374) = A(2283)-A(4776)-A(4777)-A(4778)-A(4779)-A(4780)-A(4781)-A(4782) - Vdot(4375) = A(3699)+A(3700)+A(3702)-A(6004)-A(6005)-A(6006)-A(6007)-A(6008)-A(6009)-A(6010)-A(6011)+A(8218)+A(8221) - Vdot(4376) = A(3393)+A(3701)-A(5622)-A(5623)-A(5624)-A(5625)+A(6004)+A(6007)+A(6009)+A(6010)+A(7926)+A(8217)+A(8219) - Vdot(4377) = A(1576)-A(3624)-A(3625)-A(3626)-A(3627)-A(3628)-A(3629)-A(3630) - Vdot(4378) = A(8706)+A(10443)-A(10474)-A(10475)-A(10476) - Vdot(4379) = A(8222)+A(8234)+A(8237)+A(8239)+A(8240)-A(10154)-A(10155)+A(10174) - Vdot(4380) = A(586)+A(588)-A(2318)-A(2319)-A(2320)-A(2321)-A(2322)-A(2323)-A(2324)-A(2325)+A(4795)+A(4798) - Vdot(4381) = A(8105)-A(10039)-A(10040)-A(10041)-A(10042)+A(11585) - Vdot(4382) = A(123)-A(823)-A(824)-A(825)-A(826)-A(827)-A(828)-A(829) - Vdot(4383) = A(1926)-A(4369)-A(4370)-A(4371)-A(4372)+A(6642)+A(8673)+A(8674)+A(8676)+A(8678)+A(10461) - Vdot(4384) = A(12435)-A(13351)-A(13352)-A(13353)-A(13354)+A(13971) - Vdot(4385) = A(12264)-A(13250)-A(13251)-A(13252)-A(13253)-A(13254)-A(13255)+A(13260) - Vdot(4386) = A(532)+A(1943)+A(2250)+A(2254)-A(2255)-A(2256)+A(2257)+A(7228)+A(12416) - Vdot(4387) = A(244)+A(247)-A(1209)-A(1210)-A(1211)-A(1212)-A(1213)-A(1214) - Vdot(4388) = A(3626)+A(3627)+A(3629)+A(5916)-A(5919)-A(5920)+A(5924) - Vdot(4389) = A(9655)-A(11301)-A(11302)-A(11303)-A(11304)-A(11305)-A(11306) - Vdot(4390) = A(441)-A(2003)-A(2004)-A(2005)-A(2006)-A(2007)-A(2008)+A(4462) - Vdot(4391) = A(1957)-A(4404)-A(4405)+A(9461)+A(11068)+A(11070)+A(11072)+A(11073)+A(11078)+A(12413)+A(12418) - Vdot(4392) = A(6818)+A(7193)+A(8855)-A(8857)-A(8858)+A(15035)+A(15036)+A(15040)+A(15042)+A(15045)+A(15110) - Vdot(4393) = A(3683)+A(3684)+A(3686)+A(5987)-A(5990)-A(5991)+A(5995) - Vdot(4394) = A(7165)-A(9308)-A(9309)-A(9310)-A(9311)-A(9312)-A(9313)+A(10929) - Vdot(4395) = -A(392)-A(393)-A(394)-A(395) - Vdot(4396) = A(316)-A(1414)-A(1415)-A(1416)-A(1417)-A(1418)-A(1419) - Vdot(4397) = A(317)-A(1420)-A(1421)-A(1422)-A(1423)-A(1424) - Vdot(4398) = A(5412)+A(5418)+A(5467)+A(5469)+A(5471)+A(5474)+A(5477)-A(7774)-A(7775) - Vdot(4399) = A(315)-A(1407)-A(1408)-A(1409)-A(1410)-A(1411)-A(1412)-A(1413) - Vdot(4400) = A(1755)-A(4033)-A(4034)-A(4035)-A(4036)-A(4037)-A(4038)+A(6370) - Vdot(4401) = A(6372)+A(6374)+A(6447)+A(6452)+A(6454)-A(8446)-A(8447)-A(8448) - Vdot(4402) = A(3957)+A(3959)-A(6296)-A(6297)+A(8389)+A(8390)+A(8391)+A(10288) - Vdot(4403) = A(5836)+A(6252)+A(6298)+A(6347)+A(8054)-A(8084)-A(8085)+A(11733)+A(11736)+A(11756)+A(11759)+A(11779)& - &+A(11782)+A(12743)+A(12746)+A(12757)+A(12760)+A(12771)+A(12774) - Vdot(4404) = A(11560)-A(12661)-A(12662)-A(12663)-A(12664)-A(12665)-A(12666)+A(13483)+A(13486) - Vdot(4405) = A(2980)+A(2981)-A(5273)-A(5274)-A(5275)-A(5276)-A(5277)-A(5278)-A(5279)-A(5280)+A(7653)+A(7656) - Vdot(4406) = A(2627)-A(4957)-A(4958)+A(12854)+A(12857)+A(12859)+A(12860)+A(12906)+A(12910) - Vdot(4407) = A(1642)+A(1645)-A(3769)-A(3770)+A(6091)+A(6092)+A(6093)+A(8302) - Vdot(4408) = A(1496)+A(1499)-A(3450)-A(3451)+A(5704)+A(5705)+A(5706)+A(7997) - Vdot(4409) = A(14114)-A(14419)-A(14420)-A(14421)-A(14422)-A(14423)-A(14424)+A(14679)+A(14682) - Vdot(4410) = A(13066)-A(13714)-A(13715)-A(13716)-A(13717)-A(13718)-A(13719) - Vdot(4411) = A(62)-A(540)-A(541)-A(542)-A(543)-A(544)-A(545)-A(546)+A(2264)+A(7363)+A(7405)+A(9422)+A(9423)+A(9425) - Vdot(4412) = A(7364)+A(7365)-A(9421)-A(9422)-A(9423)-A(9424)-A(9425)-A(9426)+A(11026)+A(11027) - Vdot(4413) = A(3909)+A(3911)-A(6250)-A(6251)+A(8373)+A(8374)+A(8375)+A(10263) - Vdot(4414) = A(4155)+A(4157)+A(4161)-A(6490)-A(6491)-A(6492)-A(6493)-A(6494)-A(6495)-A(6496)-A(6497)+A(8521)+A(8522) - Vdot(4415) = A(9853)-A(11444)-A(11445)-A(11446)-A(11447)+A(12571) - Vdot(4416) = A(6039)-A(8258)-A(8259)-A(8260)-A(8261)+A(10189) - Vdot(4417) = A(11359)-A(12521)-A(12522)-A(12523)-A(12524)-A(12525)-A(12526)+A(13403)+A(13404) - Vdot(4418) = A(13112)+A(13760)+A(13763)+A(13765)+A(13766)-A(13767)-A(13768)-A(13769)-A(13770)-A(13771)-A(13772)& - &+A(14164)+A(14165)+A(14167) - Vdot(4419) = A(11199)-A(12402)-A(12403)-A(12404)-A(12405)-A(12406)-A(12407)+A(13344)+A(13345) - Vdot(4420) = A(723)-A(2494)-A(2495)-A(2496)-A(2497)+A(6601)+A(8609)+A(8610)+A(8613) - Vdot(4421) = A(12478)-A(13382)-A(13383)-A(13384)-A(13385)+A(13984) - Vdot(4422) = A(5577)-A(7902)-A(7903)-A(7904)-A(7905)-A(7906)+A(9849) - Vdot(4423) = A(14015)-A(14364)-A(14365)-A(14366)-A(14367)-A(14368)+A(14644) - Vdot(4424) = A(10126)+A(10127)-A(11641)-A(11642)-A(11643)-A(11644)-A(11645)-A(11646)+A(12701)+A(12704) - Vdot(4425) = A(10097)-A(11617)-A(11618)-A(11619)-A(11620)+A(12686) - Vdot(4426) = A(14025)-A(14374)-A(14375)-A(14376)-A(14377)-A(14378)+A(14652) - Vdot(4427) = A(3158)+A(3159)-A(5371)-A(5372)-A(5373)-A(5374)-A(5375)-A(5376)-A(5377)-A(5378)+A(7723)+A(7726) - Vdot(4428) = A(138)+A(143)-A(879)-A(880)-A(881)-A(882)-A(883)-A(884)-A(885)-A(886)+A(2641)+A(2645) - Vdot(4429) = A(12509)-A(13398)-A(13399)-A(13400)-A(13401)+A(13990) - Vdot(4430) = A(11288)-A(12471)-A(12472)-A(12473)-A(12474)-A(12475)-A(12476)+A(13379)+A(13380) - Vdot(4431) = A(10875)+A(10876)+A(10877)-A(12256)-A(12257)-A(12258)-A(12259)-A(12260)-A(12261)-A(12262)-A(12263)& - &+A(13239)+A(13249) - Vdot(4432) = A(1449)+A(3318)+A(3321)+A(3323)+A(3324)-A(3337)-A(3338)-A(3339)-A(3340)-A(3341)-A(3342)+A(5528)+A(5529)& - &+A(5531) - Vdot(4433) = A(3128)+A(3129)-A(5352)-A(5353)-A(5354)-A(5355)-A(5356)-A(5357)-A(5358)-A(5359)+A(7709)+A(7712) - Vdot(4434) = A(10264)-A(11737)-A(11738)-A(11739)-A(11740)+A(12755) - Vdot(4435) = A(12450)-A(13366)-A(13367)-A(13368)-A(13369)+A(13978) - Vdot(4436) = A(4189)+A(4193)-A(6544)-A(6545)-A(6546)-A(6547)-A(6548)-A(6549)-A(6550)-A(6551)+A(8578)+A(8579) - Vdot(4437) = A(1715)+A(1718)-A(3945)-A(3946)+A(6282)+A(6283)+A(6284)+A(8383) - Vdot(4438) = A(1697)+A(1699)-A(3902)-A(3903)+A(6242)+A(6243)+A(6244)+A(8367) - Vdot(4439) = A(13136)-A(13788)-A(13789)-A(13790)-A(13791)-A(13792)-A(13793)+A(14187)+A(14190) - Vdot(4440) = A(5575)-A(7892)-A(7893)-A(7894)-A(7895)+A(9839) - Vdot(4441) = A(11752)+A(11753)-A(12763)-A(12764)-A(12765)-A(12766)-A(12767)-A(12768)+A(13539)+A(13542) - Vdot(4442) = A(13864)+A(13865)-A(14258)-A(14259)-A(14260)-A(14261)-A(14262)-A(14263)-A(14264) - Vdot(4443) = A(11309)-A(12485)-A(12486)-A(12487)-A(12488)-A(12489)-A(12490)+A(13387)+A(13388) - Vdot(4444) = A(3655)+A(3657)-A(5952)-A(5953)+A(8174)+A(8175)+A(8176)+A(10122) - Vdot(4445) = A(12776)-A(13543)-A(13544)-A(13545)-A(13546)-A(13547)-A(13548)+A(14040)+A(14043) - Vdot(4446) = A(4457)-A(6842)-A(6843)-A(6844)-A(6845)-A(6846)-A(6847) - Vdot(4447) = A(14115)+A(14420)+A(14421)+A(14423)+A(14424)-A(14425)-A(14426)-A(14427)-A(14428)+A(14680) - Vdot(4448) = A(3453)+A(3454)+A(3455)+A(5708)-A(5709)-A(5710)+A(5711)+A(5713)+A(5717) - Vdot(4449) = A(12623)+A(12625)+A(12627)+A(12628)+A(12763)+A(12765)+A(12767)+A(12768)-A(13456)-A(13457)+A(13459)& - &+A(13460)+A(13540)+A(13541) - Vdot(4450) = A(11330)-A(12502)-A(12503)-A(12504)-A(12505)-A(12506)-A(12507)+A(13395)+A(13396) - Vdot(4451) = A(4842)+A(4844)-A(7229)-A(7230)-A(7231)-A(7232)-A(7233)-A(7234)+A(9364)+A(9367) - Vdot(4452) = A(3030)+A(3031)-A(5295)-A(5296)-A(5297)-A(5298)-A(5299)-A(5300)-A(5301)-A(5302)+A(7669)+A(7672) - Vdot(4453) = A(1534)+A(1537)-A(3527)-A(3528)+A(5791)+A(5792)+A(5793)+A(8042) - Vdot(4454) = A(3539)+A(3541)-A(5805)-A(5806)+A(8050)+A(8051)+A(8052)+A(9998) - Vdot(4455) = A(10298)-A(11760)-A(11761)-A(11762)-A(11763)+A(12769) - Vdot(4456) = A(15128)+A(15129)-A(15143)-A(15144)-A(15145)-A(15146)-A(15147)-A(15148)+A(15164)+A(15167) - Vdot(4457) = A(1585)+A(1588)-A(3643)-A(3644)+A(5938)+A(5939)+A(5940)+A(8166) - Vdot(4458) = A(9770)-A(11412)-A(11413)-A(11414)-A(11415)+A(12555) - Vdot(4459) = A(14447)+A(14696)+A(14697)+A(14699)+A(14701)-A(14710)-A(14711)-A(14712)-A(14713)-A(14714)-A(14715)& - &+A(14885)+A(14886)+A(14888) - Vdot(4460) = A(10370)-A(11798)-A(11799)-A(11800)-A(11801)-A(11802)-A(11803)-A(11804)-A(11805)+A(12800)+A(12801) - Vdot(4461) = A(12464)-A(13374)-A(13375)-A(13376)-A(13377)+A(13981) - Vdot(4462) = A(13643)+A(13651)-A(14055)-A(14056)-A(14057)-A(14058)+A(14473) - Vdot(4463) = A(10238)-A(11713)-A(11714)-A(11715)-A(11716)+A(12741) - Vdot(4464) = A(9973)-A(11536)-A(11537)-A(11538)-A(11539)+A(12646) - Vdot(4465) = A(14869)+A(15004)+A(15006)+A(15008)+A(15009)-A(15010)-A(15011)-A(15012)-A(15013)+A(15095)+A(15098) - Vdot(4466) = A(3598)+A(3600)-A(5879)-A(5880)+A(8110)+A(8111)+A(8112)+A(10058) - Vdot(4467) = A(9734)-A(11380)-A(11381)-A(11382)-A(11383)+A(12532) - Vdot(4468) = A(12358)+A(12359)-A(13322)-A(13323)-A(13324)-A(13325)-A(13326)-A(13327)+A(13958)+A(13959) - Vdot(4469) = A(2854)+A(2855)-A(5121)-A(5122)-A(5123)-A(5124)-A(5125)-A(5126)+A(7499)+A(7500) - Vdot(4470) = A(3052)+A(3053)-A(5310)-A(5311)-A(5312)-A(5313)-A(5314)-A(5315)-A(5316)-A(5317)+A(7682)+A(7685) - Vdot(4471) = A(3399)+A(3401)-A(5631)-A(5632)+A(7933)+A(7934)+A(7935)+A(9878) - Vdot(4472) = A(11431)+A(11432)-A(12562)-A(12563)-A(12564)-A(12565)-A(12566)-A(12567)+A(13428)+A(13431) - Vdot(4473) = A(76)+A(290)-A(609)-A(610)-A(611)-A(612)-A(613)-A(614)-A(615)+A(2356) - Vdot(4474) = -A(286)-A(287)-A(288)-A(289)-A(290)-A(291) - Vdot(4475) = -A(268)-A(269)-A(270)-A(271)-A(272)-A(273) - Vdot(4476) = A(266)+A(272)-A(1276)-A(1277)-A(1278)-A(1279)-A(1280)-A(1281)-A(1282)+A(3092) - Vdot(4477) = A(14817)+A(14977)+A(14978)+A(14980)+A(14981)-A(14982)-A(14983)-A(14984)-A(14985)+A(15075)+A(15079) - Vdot(4478) = A(1471)+A(1473)-A(3392)-A(3393)+A(5623)+A(5624)+A(5625)+A(7927) - Vdot(4479) = A(1561)+A(1563)-A(3591)-A(3592)+A(5871)+A(5872)+A(5873)+A(8104) - Vdot(4480) = A(6041)-A(8267)-A(8268)-A(8269)-A(8270)-A(8271)+A(10196) - Vdot(4481) = A(6040)-A(8262)-A(8263)-A(8264)-A(8265)-A(8266)+A(10192)+A(11677) - Vdot(4482) = A(14020)-A(14369)-A(14370)-A(14371)-A(14372)-A(14373)+A(14648) - Vdot(4483) = A(1494)+A(1626)+A(3426)+A(3429)+A(3431)+A(3432)-A(3444)-A(3445)-A(3446)-A(3447)-A(3448)-A(3449)+A(5665)& - &+A(5666)+A(5668) - Vdot(4484) = A(10680)+A(10681)-A(12080)-A(12081)-A(12082)-A(12083)-A(12084)-A(12085)-A(12086)-A(12087)+A(13083)& - &+A(13086) - Vdot(4485) = A(13089)+A(13090)-A(13737)-A(13738)-A(13739)-A(13740)-A(13741)-A(13742)-A(13743)-A(13744)+A(14139)& - &+A(14149) - Vdot(4486) = A(14185)-A(14461)-A(14462)-A(14463)-A(14464)+A(14721) - Vdot(4487) = A(3462)+A(3464)-A(5718)-A(5719)+A(8003)+A(8004)+A(8005)+A(9935) - Vdot(4488) = A(3292)+A(3293)+A(3294)+A(5481)-A(5482)-A(5483)+A(5484)+A(5486)+A(5490) - Vdot(4489) = A(12548)+A(12622)-A(13417)-A(13418)-A(13419)-A(13420)-A(13421)-A(13422)+A(13996)+A(13999) - Vdot(4490) = A(7848)+A(9796)-A(9800)-A(9801)+A(9802)+A(12549)+A(12551)+A(12553)+A(12554)+A(12579)+A(12581)+A(12583)& - &+A(12584)+A(13424)+A(13425)+A(13439)+A(13440) - Vdot(4491) = A(5482)+A(5488)+A(5521)+A(5527)+A(5633)+A(5709)+A(5715)+A(6252)-A(7814)-A(7815) - Vdot(4492) = -A(456)-A(457)-A(458)-A(459)-A(460)-A(461)-A(462) - Vdot(4493) = A(10610)+A(10621)-A(12014)-A(12015)-A(12016)+A(12032)+A(12059)+A(13003)+A(13012)+A(13014)+A(13016)& - &+A(13017)+A(13666)+A(13669)+A(14068) - Vdot(4494) = A(1612)+A(1615)-A(3709)-A(3710)+A(6021)+A(6022)+A(6023)+A(8227) - Vdot(4495) = A(1522)+A(1524)-A(3508)-A(3509)+A(5769)+A(5770)+A(5771)+A(8025) - Vdot(4496) = A(13676)+A(13677)-A(14078)-A(14079)-A(14080)-A(14081)-A(14082)-A(14083)-A(14084)-A(14085)+A(14401)& - &+A(14405) - Vdot(4497) = A(14408)-A(14672)-A(14673)-A(14674)-A(14675)+A(14864) - Vdot(4498) = A(9911)-A(11485)-A(11486)-A(11487)-A(11488)+A(12615) - Vdot(4499) = A(4001)+A(4003)-A(6345)-A(6346)+A(8407)+A(8408)+A(8409)+A(10322) - Vdot(4500) = A(7509)+A(7510)-A(9547)-A(9548)-A(9549)-A(9550)-A(9551)-A(9552)-A(9553)-A(9554)+A(11166)+A(11167) - Vdot(4501) = A(9546)+A(11156)+A(11158)+A(11159)+A(11160)-A(11161)-A(11162)-A(11163)+A(11168) - Vdot(4502) = A(10062)+A(10063)-A(11599)-A(11600)-A(11601)-A(11602)-A(11603)-A(11604)+A(12682)+A(12685) - Vdot(4503) = A(15130)+A(15144)+A(15145)+A(15147)+A(15148)-A(15149)-A(15150)-A(15151)-A(15152)+A(15165)+A(15168) - Vdot(4504) = A(1734)+A(1736)-A(3994)-A(3995)+A(6337)+A(6338)+A(6339)+A(8401) - Vdot(4505) = A(3727)+A(3762)+A(5574)-A(6036)-A(6037)-A(6038) - Vdot(4506) = A(9948)-A(11513)-A(11514)-A(11515)-A(11516)+A(12632) - Vdot(4507) = A(11424)+A(11427)+A(11464)+A(11467)+A(11504)+A(11507)+A(11532)+A(11535)+A(11733)+A(11736)+A(11756)& - &+A(11759)+A(11779)+A(11782)+A(12557)+A(12560)-A(12561)+A(12573)+A(12576)+A(12617)+A(12620)+A(12634)& - &+A(12637)+A(12743)+A(12746)+A(12757)+A(12760)+A(12771)+A(12774) - Vdot(4508) = -A(280)-A(281)-A(282)-A(283)-A(284)-A(285) - Vdot(4509) = A(3515)+A(3517)-A(5777)-A(5778)+A(8031)+A(8032)+A(8033)+A(9972) - Vdot(4510) = A(12325)-A(13309)-A(13310)-A(13311)-A(13312)+A(13948) - Vdot(4511) = A(10033)-A(11575)-A(11576)-A(11577)-A(11578)+A(12667) - Vdot(4512) = -A(250)-A(251)-A(252)-A(253)-A(254)-A(255) - Vdot(4513) = A(1418)+A(3238)+A(3239)+A(3241)+A(3243)-A(3258)-A(3259)-A(3260)-A(3261)-A(3262)-A(3263)+A(5420)+A(5421)& - &+A(5423) - Vdot(4514) = A(3303)+A(3305)-A(5497)-A(5498)+A(7825)+A(7826)+A(7827)+A(9785) - Vdot(4515) = A(2819)+A(2820)-A(5089)-A(5090)-A(5091)-A(5092)-A(5093)-A(5094)+A(7460)+A(7461) - Vdot(4516) = A(4140)+A(4144)-A(6472)-A(6473)-A(6474)-A(6475)-A(6476)-A(6477)-A(6478)-A(6479)+A(8501)+A(8502) - Vdot(4517) = A(7435)+A(7436)-A(9476)-A(9477)-A(9478)-A(9479)-A(9480)-A(9481)+A(11089)+A(11090) - Vdot(4518) = A(10497)-A(11893)-A(11894)-A(11895)-A(11896)-A(11897)-A(11898)-A(11899)-A(11900)+A(12890)+A(12891) - Vdot(4519) = A(11841)-A(12818)-A(12819)-A(12820)-A(12821)-A(12822)-A(12823)-A(12824)-A(12825)+A(13578)+A(13581) - Vdot(4520) = A(14867)+A(14868)-A(15004)-A(15005)-A(15006)-A(15007)-A(15008)-A(15009)+A(15094)+A(15097) - Vdot(4521) = A(11270)-A(12457)-A(12458)-A(12459)-A(12460)-A(12461)-A(12462)+A(13371)+A(13372) - Vdot(4522) = A(3102)+A(3103)-A(5337)-A(5338)-A(5339)-A(5340)-A(5341)-A(5342)-A(5343)-A(5344)+A(7702)+A(7705) - Vdot(4523) = A(7524)+A(7525)-A(9555)-A(9556)-A(9557)-A(9558)-A(9559)-A(9560)-A(9561)-A(9562)+A(11171)+A(11172) - Vdot(4524) = A(579)+A(1988)+A(2306)+A(2308)+A(2309)+A(2310)-A(2311)-A(2312)+A(11173) - Vdot(4525) = A(14816)-A(14976)-A(14977)-A(14978)-A(14979)-A(14980)-A(14981)+A(15074)+A(15077) - Vdot(4526) = A(7107)-A(9233)-A(9234)-A(9235)-A(9236)-A(9237) - Vdot(4527) = -A(292)-A(293)-A(294)-A(295)-A(296)-A(297) - Vdot(4528) = A(93)+A(128)+A(234)+A(241)+A(259)+A(282)+A(294)+A(393)-A(697)-A(698)-A(699)+A(1865)+A(1894)+A(4168)& - &+A(6624) - Vdot(4529) = A(333)-A(1509)-A(1510)-A(1511)-A(1512)-A(1513)-A(1514)+A(3475) - Vdot(4530) = A(2598)-A(4941)-A(4942)-A(4943)-A(4944)+A(8511)+A(8516)+A(8517)+A(8518) - Vdot(4531) = A(3277)+A(3279)-A(5472)-A(5473)+A(7809)+A(7810)+A(7811)+A(9749) - Vdot(4532) = A(12495)-A(13390)-A(13391)-A(13392)-A(13393)+A(13987) - Vdot(4533) = A(3997)+A(3998)+A(3999)+A(6330)+A(6333)+A(6341)-A(6342)-A(6343)+A(6344) - Vdot(4534) = A(8395)+A(10289)-A(10293)-A(10294)-A(10295)+A(10296)+A(12777)+A(12779)+A(12781)+A(12782)+A(13550)& - &+A(13551) - Vdot(4535) = A(8402)-A(10304)-A(10305)-A(10306)-A(10307)+A(11770) - Vdot(4536) = A(11590)+A(11591)+A(11632)-A(12675)-A(12676)-A(12677)-A(12678)-A(12679)-A(12680)+A(13493)+A(13496) - Vdot(4537) = A(9607)+A(11239)+A(11242)+A(11244)-A(11245)-A(11246)-A(11247)+A(11252) - Vdot(4538) = A(12209)-A(13191)-A(13192)-A(13193)-A(13194)+A(13850) - Vdot(4539) = A(10445)+A(10446)-A(11848)-A(11849)-A(11850)-A(11851)-A(11852)-A(11853)+A(12843)+A(12844) - Vdot(4540) = A(4925)+A(7286)+A(7288)+A(7289)-A(7290)-A(7291)-A(7292)+A(7293)+A(12320)+A(12322) - Vdot(4541) = A(4707)-A(7100)-A(7101)-A(7102)-A(7103)-A(7104)-A(7105) - Vdot(4542) = A(7084)-A(9204)-A(9205)-A(9206)-A(9207)-A(9208)-A(9209)+A(9336) - Vdot(4543) = A(15162)-A(15171)-A(15172)-A(15173)-A(15174)+A(15175) - Vdot(4544) = A(1228)+A(1330)-A(3034)-A(3035)-A(3036)-A(3037)-A(3038) - Vdot(4545) = A(9073)+A(9074)+A(10627)-A(10698)-A(10699)-A(10700)-A(10701)-A(10702)-A(10703)+A(12113) - Vdot(4546) = A(9453)-A(11062)-A(11063)-A(11064)-A(11065)-A(11066)+A(12344) - Vdot(4547) = A(1465)+A(1468)+A(1648)+A(1652)-A(3372)-A(3373)-A(3374)+A(5599)+A(5601)+A(5602)+A(5603)+A(6112)+A(6114) - Vdot(4548) = A(10382)+A(10383)-A(11810)-A(11811)-A(11812)-A(11813)-A(11814)-A(11815)+A(12804)+A(12805) - Vdot(4549) = A(11102)-A(12360)-A(12361)-A(12362)-A(12363)+A(12364)+A(12366)+A(12368)+A(12369)+A(13329)+A(13331) - Vdot(4550) = A(5657)-A(7968)-A(7969)-A(7970)-A(7971)+A(9902)+A(11479)+A(12605)+A(12606)+A(12608)+A(12610)+A(13451)& - &+A(13453) - Vdot(4551) = A(8604)-A(10399)-A(10400)-A(10401)-A(10402)-A(10403) - Vdot(4552) = A(8959)+A(10576)+A(10579)+A(10581)+A(10582)-A(10584)-A(10585)-A(10586)-A(10587)+A(11990)+A(11991)& - &+A(11993)+A(11996) - Vdot(4553) = A(2485)-A(4878)-A(4879)-A(4880)-A(4881)-A(4882)-A(4883)+A(7256)+A(7259) - Vdot(4554) = A(95)-A(707)-A(708)-A(709)-A(710)-A(711)-A(712)-A(713)+A(2482) - Vdot(4555) = -A(90)-A(91)-A(92)-A(93)-A(94)-A(95) - Vdot(4556) = A(6676)-A(8734)-A(8735)-A(8736)-A(8737)-A(8738) - Vdot(4557) = A(2639)-A(4975)-A(4976)-A(4977)-A(4978)-A(4979)-A(4980)+A(7328)+A(7331)+A(11469) - Vdot(4558) = A(5650)-A(7944)-A(7945)-A(7946)-A(7947)-A(7948)+A(9879) - Vdot(4559) = A(983)+A(2741)+A(2743)+A(2745)-A(2746)-A(2747)-A(2748)+A(7501) - Vdot(4560) = A(13047)-A(13696)-A(13697)-A(13698)-A(13699)+A(13789)+A(13790)+A(13792)+A(13793)+A(14100)+A(14188) - Vdot(4561) = A(7406)-A(9445)-A(9446)-A(9447)-A(9448)-A(9449)-A(9450)+A(11050) - Vdot(4562) = A(74)+A(285)-A(595)-A(596)-A(597)-A(598)-A(599)-A(600)-A(601)+A(2338) - Vdot(4563) = A(2073)-A(4556)-A(4557)-A(4558)-A(4559)-A(4560)-A(4561) - Vdot(4564) = A(4204)+A(4211)-A(6566)-A(6567)+A(8711)+A(10464)+A(10466)+A(10473)+A(11876)+A(11877)+A(11879)+A(11882)& - &+A(12873) - Vdot(4565) = A(11916)-A(12912)-A(12913)-A(12914)-A(12915) - Vdot(4566) = A(9568)-A(11181)-A(11182)-A(11183)-A(11184)-A(11185)-A(11186) - Vdot(4567) = A(7047)-A(9119)-A(9120)-A(9121)-A(9122)-A(9123)-A(9124) - Vdot(4568) = A(1673)-A(3843)-A(3844)-A(3845)-A(3846)-A(3847)-A(3848)+A(6174) - Vdot(4569) = A(1672)+A(1676)+A(1754)+A(1758)-A(3837)-A(3838)-A(3839)-A(3840)+A(6177)+A(6179)+A(6373)+A(6375) - Vdot(4570) = A(6641)+A(6645)+A(8632)-A(8680)-A(8681)-A(8682)-A(8683) - Vdot(4571) = A(185)+A(189)-A(1019)-A(1020)-A(1021)-A(1022)-A(1023)-A(1024)-A(1025)+A(2794) - Vdot(4572) = A(14283)-A(14555)-A(14556)-A(14557)-A(14558)-A(14559)-A(14560) - Vdot(4573) = A(9564)-A(11174)-A(11175)-A(11176)-A(11177)-A(11178)-A(11179)-A(11180) - Vdot(4574) = A(239)-A(1192)-A(1193)-A(1194)-A(1195)-A(1196)-A(1197)+A(2997) - Vdot(4575) = A(1693)-A(3885)-A(3886)-A(3887)-A(3888)-A(3889)-A(3890)-A(3891) - Vdot(4576) = A(1691)+A(1694)-A(3882)-A(3883)-A(3884)+A(6219)+A(6221)+A(6222)+A(6223) - Vdot(4577) = A(2905)-A(5178)-A(5179)-A(5180)-A(5181)-A(5182)-A(5183)-A(5184) - Vdot(4578) = A(4169)-A(6513)-A(6514)-A(6515)-A(6516)-A(6517)-A(6518)-A(6519) - Vdot(4579) = A(238)-A(1186)-A(1187)-A(1188)-A(1189)-A(1190)-A(1191)+A(2990) - Vdot(4580) = A(10645)-A(12048)-A(12049)-A(12050)-A(12051)-A(12052)-A(12053)+A(13038) - Vdot(4581) = A(439)-A(1989)-A(1990)-A(1991)-A(1992)-A(1993)-A(1994)-A(1995)+A(4439) - Vdot(4582) = A(296)-A(1350)-A(1351)-A(1352)-A(1353)-A(1354)-A(1355)-A(1356)+A(3177) - Vdot(4583) = A(443)-A(2009)-A(2010)-A(2011)-A(2012)-A(2013)-A(2014)-A(2015)+A(4469) - Vdot(4584) = A(9569)-A(11187)-A(11188)-A(11189)-A(11190)-A(11191)-A(11192) - Vdot(4585) = A(90)-A(679)-A(680)-A(681)-A(682)-A(683)-A(684)+A(2443) - Vdot(4586) = A(213)+A(215)-A(1106)-A(1107)-A(1108)-A(1109)-A(1110)-A(1111)-A(1112) - Vdot(4587) = A(293)-A(1340)-A(1341)-A(1342)-A(1343)-A(1344)-A(1345)+A(3163) - Vdot(4588) = A(1415)+A(1465)+A(1691)-A(3247)-A(3248)-A(3249)-A(3250)+A(3265)+A(4142)+A(4159)+A(5512)+A(5809)+A(5887)& - &+A(5957) - Vdot(4589) = A(4131)-A(6466)-A(6467)-A(6468)-A(6469)-A(6470)-A(6471) - Vdot(4590) = A(3195)-A(5397)-A(5398)-A(5399)-A(5400)-A(5401)-A(5402) - Vdot(4591) = A(3348)+A(3349)+A(3351)+A(3862)-A(5558)-A(5559)-A(5560)-A(5561)-A(5562)-A(5563)-A(5564)-A(5565)+A(7871)& - &+A(7874)+A(8344)+A(8345)+A(8347)+A(8348)+A(8349) - Vdot(4592) = A(3302)+A(3350)-A(5493)-A(5494)-A(5495)-A(5496)+A(5558)+A(5561)+A(5563)+A(5564)+A(7820)+A(7870)+A(7872) - Vdot(4593) = A(256)-A(1230)-A(1231)-A(1232)-A(1233)-A(1234)-A(1235)+A(3040) - Vdot(4594) = A(449)-A(2041)-A(2042)-A(2043)-A(2044)-A(2045)-A(2046)+A(4510) - Vdot(4595) = A(4349)-A(6744)-A(6745)-A(6746)-A(6747)-A(6748)-A(6749)+A(8780) - Vdot(4596) = A(94)-A(700)-A(701)-A(702)-A(703)-A(704)-A(705)-A(706)+A(2475) - Vdot(4597) = A(13042)-A(13689)-A(13690)-A(13691)-A(13692)-A(13693)-A(13694)-A(13695) - Vdot(4598) = A(260)-A(1246)-A(1247)-A(1248)-A(1249)-A(1250)-A(1251)-A(1252)+A(3063) - Vdot(4599) = A(10514)-A(11918)-A(11919)-A(11920)-A(11921)-A(11922)-A(11923)+A(12921) - Vdot(4600) = -A(463)-A(464)-A(465)-A(466)-A(467)-A(468)-A(469) - Vdot(4601) = -A(274)-A(275)-A(276)-A(277)-A(278)-A(279) - Vdot(4602) = A(5438)+A(7787)+A(7789)-A(7793)-A(7794)+A(10028)+A(10089)+A(10153)+A(12539)+A(12547)+A(12652)+A(12673)& - &+A(12692)+A(12761)+A(13408)+A(13409)+A(13411)+A(13412)+A(13418)+A(13419)+A(13421)+A(13422)+A(13457)& - &+A(13472)+A(13474)+A(13476)+A(13477)+A(13487)+A(13489)+A(13491)+A(13492)+A(13499)+A(13500)+A(13502)& - &+A(13503)+A(13993)+A(13994)+A(13997)+A(13998)+A(14012)+A(14013)+A(14017)+A(14018)+A(14022)+A(14023)& - &+A(14658) - Vdot(4603) = A(3281)+A(3282)+A(3283)+A(5476)-A(5477)-A(5478)+A(5479) - Vdot(4604) = -A(298)-A(299)-A(300)-A(301)-A(302)-A(303) - Vdot(4605) = -A(470)-A(471)-A(472)-A(473)-A(474)-A(475) - Vdot(4606) = -A(304)-A(305)-A(306)-A(307)-A(308)-A(309) - Vdot(4607) = A(302)+A(308)-A(1380)-A(1381)-A(1382)-A(1383)-A(1384)-A(1385)-A(1386)+A(3206) - Vdot(4608) = A(303)+A(309)-A(1387)-A(1388)-A(1389)-A(1390)-A(1391)-A(1392)-A(1393)+A(3213) - Vdot(4609) = A(423)-A(1918)-A(1919)-A(1920)-A(1921)-A(1922)-A(1923)-A(1924) - Vdot(4610) = A(4361)+A(4363)-A(6776)-A(6777)-A(6778)-A(6779)-A(6780)-A(6781)-A(6782)-A(6783) - Vdot(4611) = A(4365)+A(4366)-A(6784)-A(6785)-A(6786)-A(6787)-A(6788)-A(6789)-A(6790)-A(6791)+A(8823)+A(8826) - Vdot(4612) = A(6759)-A(8796)-A(8797)-A(8798)-A(8799)-A(8800)-A(8801)-A(8802)-A(8803)+A(10543) - Vdot(4613) = A(8776)+A(8777)-A(10525)-A(10526)-A(10527)-A(10528)-A(10529)-A(10530)+A(11944)+A(11947) - Vdot(4614) = A(8778)+A(10526)+A(10527)+A(10529)+A(10530)-A(10531)-A(10532)-A(10533)-A(10534)-A(10535)-A(10536)& - &-A(10537)-A(10538)+A(11945)+A(11949) - Vdot(4615) = A(4240)-A(6622)-A(6623)-A(6624)-A(6625)-A(6626) - Vdot(4616) = A(421)+A(422)-A(1910)-A(1911)-A(1912)-A(1913)-A(1914)-A(1915)-A(1916)-A(1917) - Vdot(4617) = A(4252)-A(6636)-A(6637)-A(6638)-A(6639)-A(6640) - Vdot(4618) = A(1961)+A(1967)+A(2295)+A(3095)+A(3867)+A(3871)+A(4406)-A(4411)-A(4412)+A(4413)+A(8359)+A(8360)+A(8362)& - &+A(8363)+A(11091) - Vdot(4619) = A(3594)+A(3595)+A(3596)+A(5864)+A(5867)+A(5875)-A(5876)-A(5877)+A(5878) - Vdot(4620) = A(12674)-A(13487)-A(13488)-A(13489)-A(13490)-A(13491)-A(13492)+A(14016)+A(14019)+A(14021) - Vdot(4621) = A(7856)-A(9811)-A(9812)-A(9813)-A(9814)-A(9815)-A(9816) - Vdot(4622) = A(396)+A(398)+A(399)-A(1799)-A(1800)-A(1801)-A(1802)-A(1803)-A(1804)-A(1805)-A(1806)+A(3585)+A(4119)& - &+A(4123)+A(5934)+A(8095)+A(8097)+A(10092)+A(10094)+A(10095)+A(10096)+A(11574) - Vdot(4623) = A(7397)+A(7399)-A(9437)-A(9438)-A(9439)-A(9440)-A(9441)-A(9442)-A(9443)-A(9444)+A(11046)+A(11047) - Vdot(4624) = A(13071)+A(13072)+A(13073)-A(13720)-A(13721)-A(13722)-A(13723)-A(13724)-A(13725)-A(13726)-A(13727)& - &+A(14121)+A(14130) - Vdot(4625) = A(14224)-A(14485)-A(14486)-A(14487)-A(14488)-A(14489)+A(14729) - Vdot(4626) = A(1445)+A(1447)-A(3318)-A(3319)-A(3320)-A(3321)-A(3322)-A(3323)-A(3324)-A(3325)+A(5530)+A(5533) - Vdot(4627) = A(4497)+A(4498)-A(6882)-A(6883)-A(6884)-A(6885)-A(6886)-A(6887)+A(8932)+A(8935) - Vdot(4628) = A(4092)+A(4093)-A(6431)-A(6432)-A(6433)-A(6434)-A(6435)-A(6436)-A(6437)-A(6438)+A(8475)+A(8478) - Vdot(4629) = A(7446)+A(7448)-A(9482)-A(9483)-A(9484)-A(9485)-A(9486)-A(9487)-A(9488)-A(9489)+A(11094)+A(11095) - Vdot(4630) = A(1624)+A(1627)-A(3732)-A(3733)-A(3734)-A(3735)+A(6057)+A(6059) - Vdot(4631) = A(10567)-A(11979)-A(11980)-A(11981)-A(11982)-A(11983)-A(11984)+A(12971)+A(12974) - Vdot(4632) = A(6279)+A(6280)-A(8380)-A(8381)+A(10267)+A(10268)+A(10269)+A(11746) - Vdot(4633) = A(1727)+A(1729)-A(3969)-A(3970)-A(3971)-A(3972)-A(3973)-A(3974)-A(3975)-A(3976)+A(6306)+A(6309) - Vdot(4634) = A(571)+A(572)-A(2297)-A(2298)-A(2299)-A(2300)-A(2301)-A(2302)-A(2303)-A(2304)+A(4791)+A(4792) - Vdot(4635) = A(1598)+A(1600)-A(3669)-A(3670)-A(3671)-A(3672)-A(3673)-A(3674)-A(3675)-A(3676)+A(5976)+A(5979) - Vdot(4636) = A(14202)+A(14203)-A(14465)-A(14466)-A(14467)-A(14468)-A(14469)-A(14470)-A(14471)-A(14472)+A(14725)& - &+A(14728) - Vdot(4637) = A(3606)+A(5891)-A(5892)-A(5893)-A(5894) - Vdot(4638) = A(10761)-A(12189)-A(12190)-A(12191)-A(12192)-A(12193)-A(12194)-A(12195)-A(12196)+A(13171)+A(13182) - Vdot(4639) = A(3716)+A(3718)-A(6028)-A(6029)+A(8231)+A(8232)+A(8233)+A(10171) - Vdot(4640) = A(2548)+A(4898)+A(4901)+A(4903)+A(4904)-A(4906)-A(4907)-A(4908)-A(4909)-A(4910)-A(4911)+A(7269)+A(7270)& - &+A(7272) - Vdot(4641) = A(1547)+A(1549)-A(3553)-A(3554)-A(3555)-A(3556)-A(3557)-A(3558)-A(3559)-A(3560)+A(5828)+A(5831) - Vdot(4642) = A(9505)+A(9506)-A(11116)-A(11117)-A(11118)-A(11119)-A(11120)-A(11121)-A(11122)-A(11123)+A(12374)+A(12375) - Vdot(4643) = A(10208)-A(11683)-A(11684)-A(11685)-A(11686)+A(12724) - Vdot(4644) = A(13777)-A(14178)-A(14179)-A(14180)-A(14181)+A(14458) - Vdot(4645) = A(57)+A(243)-A(513)-A(514)-A(515)-A(516)-A(517)-A(518)-A(519)+A(2233) - Vdot(4646) = A(4459)-A(6855)-A(6856)-A(6857)-A(6858)-A(6859)-A(6860)-A(6861) - Vdot(4647) = A(79)+A(291)-A(630)-A(631)-A(632)-A(633)-A(634)-A(635)+A(2383) - Vdot(4648) = A(12318)-A(13305)-A(13306)-A(13307)-A(13308)+A(13944) - Vdot(4649) = A(1414)+A(1416)-A(3236)-A(3237)-A(3238)-A(3239)-A(3240)-A(3241)-A(3242)-A(3243)+A(5422)+A(5425) - Vdot(4650) = A(3662)+A(5961)-A(5963)-A(5964)-A(5965) - Vdot(4651) = A(9718)+A(9720)+A(9721)+A(9722)+A(9723)+A(9724)+A(9728)+A(9729)-A(11369)-A(11370)-A(11371) - Vdot(4652) = A(13216)-A(13867)-A(13868)-A(13869)-A(13870)-A(13871)-A(13872)-A(13873)-A(13874)+A(14266)+A(14276) - Vdot(4653) = A(14443)+A(14445)-A(14694)-A(14695)-A(14696)-A(14697)-A(14698)-A(14699)-A(14700)-A(14701)+A(14887)& - &+A(14890) - Vdot(4654) = A(1690)+A(1692)-A(3874)-A(3875)-A(3876)-A(3877)-A(3878)-A(3879)-A(3880)-A(3881)+A(6200)+A(6203) - Vdot(4655) = A(10156)-A(11661)-A(11662)-A(11663)-A(11664)+A(12714) - Vdot(4656) = A(1781)+A(1784)-A(4084)-A(4085)-A(4086)-A(4087)-A(4088)-A(4089)-A(4090)-A(4091)+A(6427)+A(6430) - Vdot(4657) = A(10502)-A(11902)-A(11903)-A(11904)-A(11905)-A(11906)-A(11907)-A(11908)-A(11909)+A(12903) - Vdot(4658) = A(10495)-A(11885)-A(11886)-A(11887)-A(11888)-A(11889)-A(11890)-A(11891)-A(11892)+A(12885)+A(12886)& - &+A(12904) - Vdot(4659) = A(13110)+A(13111)-A(13760)-A(13761)-A(13762)-A(13763)-A(13764)-A(13765)-A(13766)+A(14166)+A(14169) - Vdot(4660) = A(12058)+A(12060)-A(13048)-A(13049)-A(13050)-A(13051)-A(13052)-A(13053)-A(13054)-A(13055)+A(13702)& - &+A(13705) - Vdot(4661) = A(5816)-A(8065)-A(8066)-A(8067)-A(8068)-A(8069)-A(8070)+A(10012)+A(11563)+A(11564)+A(11565) - Vdot(4662) = A(9419)+A(9420)-A(11017)-A(11018)-A(11019)-A(11020)-A(11021)-A(11022)-A(11023)-A(11024)+A(12333)+A(12334) - Vdot(4663) = A(6334)+A(6335)-A(8398)-A(8399)+A(10301)+A(10302)+A(10303)+A(11769) - Vdot(4664) = A(9062)-A(10684)-A(10685)-A(10686)-A(10687)-A(10688)-A(10689)-A(10690)-A(10691)+A(12096)+A(12106)& - &+A(13102) - Vdot(4665) = A(7470)+A(7472)-A(9507)-A(9508)-A(9509)-A(9510)-A(9511)-A(9512)-A(9513)-A(9514)+A(11126)+A(11127) - Vdot(4666) = A(397)+A(1792)+A(1793)+A(1800)+A(1802)+A(1804)+A(1805)-A(1807)-A(1808)-A(1809)-A(1810)+A(3271)+A(4120)& - &+A(4121)+A(4124) - Vdot(4667) = A(1551)+A(3553)+A(3556)+A(3558)+A(3559)-A(3572)-A(3573)-A(3574)-A(3575)-A(3576)-A(3577)+A(5826)+A(5827)& - &+A(5829) - Vdot(4668) = A(6482)-A(8504)-A(8505)-A(8506)-A(8507)-A(8508)-A(8509) - Vdot(4669) = A(5576)-A(7896)-A(7897)-A(7898)-A(7899)-A(7900)-A(7901)+A(9843)+A(11438) - Vdot(4670) = A(3776)+A(3778)-A(6099)-A(6100)+A(8308)+A(8309)+A(8310)+A(10232) - Vdot(4671) = A(5701)+A(5702)-A(7994)-A(7995)+A(9914)+A(9915)+A(9916)+A(11494) - Vdot(4672) = A(13894)+A(13895)-A(14293)-A(14294)-A(14295)-A(14296)-A(14297)-A(14298)-A(14299) - Vdot(4673) = A(14338)+A(14339)-A(14620)-A(14621)-A(14622)-A(14623)-A(14624)-A(14625)-A(14626)-A(14627)+A(14630)& - &+A(14841)+A(14844) - Vdot(4674) = A(6079)-A(8292)-A(8293)-A(8294)-A(8295)-A(8296)+A(10201) - Vdot(4675) = A(1602)+A(3669)+A(3672)+A(3674)+A(3675)-A(3688)-A(3689)-A(3690)-A(3691)-A(3692)-A(3693)+A(5974)+A(5975)& - &+A(5977) - Vdot(4676) = A(5766)+A(5767)-A(8022)-A(8023)+A(9951)+A(9952)+A(9953)+A(11522) - Vdot(4677) = A(8602)-A(10393)-A(10394)-A(10395)-A(10396)-A(10397)-A(10398) - Vdot(4678) = A(7171)-A(9326)-A(9327)-A(9328)-A(9329)-A(9330)-A(9331) - Vdot(4679) = A(10867)-A(12248)-A(12249)-A(12250)-A(12251)-A(12252)-A(12253)-A(12254)-A(12255)+A(13227)+A(13237) - Vdot(4680) = A(3837)+A(3838)-A(6162)-A(6163)-A(6164)-A(6165)-A(6166)-A(6167)-A(6168)-A(6169)+A(8330)+A(8333) - Vdot(4681) = A(13854)-A(14250)-A(14251)-A(14252)-A(14253)-A(14254)-A(14255)-A(14256)-A(14257)+A(14521)+A(14532) - Vdot(4682) = A(6239)+A(6240)-A(8364)-A(8365)+A(10241)+A(10242)+A(10243)+A(11722) - Vdot(4683) = A(1577)+A(3612)+A(3615)+A(3617)+A(3618)-A(3631)-A(3632)-A(3633)-A(3634)-A(3635)-A(3636)+A(5903)+A(5904)& - &+A(5906) - Vdot(4684) = A(3434)+A(3435)-A(5671)-A(5672)-A(5673)-A(5674)-A(5675)-A(5676)-A(5677)-A(5678)+A(7986)+A(7989) - Vdot(4685) = A(1753)+A(1756)-A(4023)-A(4024)-A(4025)-A(4026)-A(4027)-A(4028)-A(4029)-A(4030)+A(6366)+A(6369) - Vdot(4686) = A(15126)-A(15131)-A(15132)-A(15133)-A(15134)-A(15135)-A(15136)+A(15153)+A(15156) - Vdot(4687) = A(15127)+A(15132)+A(15133)+A(15135)+A(15136)-A(15137)-A(15138)-A(15139)-A(15140)-A(15141)-A(15142)& - &+A(15154)+A(15157) - Vdot(4688) = A(5964)-A(8189)-A(8190)-A(8191)-A(8192)-A(8193)-A(8194)+A(10137)+A(11650)+A(11651)+A(11652) - Vdot(4689) = A(5893)-A(8129)-A(8130)-A(8131)-A(8132)-A(8133)-A(8134)+A(10073)+A(11608)+A(11609)+A(11610) - Vdot(4690) = A(5620)+A(5621)-A(7924)-A(7925)+A(9856)+A(9857)+A(9858)+A(11453) - Vdot(4691) = A(7170)-A(9320)-A(9321)-A(9322)-A(9323)-A(9324)-A(9325) - Vdot(4692) = A(1515)+A(1517)-A(3483)-A(3484)-A(3485)-A(3486)-A(3487)-A(3488)-A(3489)-A(3490)+A(5738)+A(5741) - Vdot(4693) = A(5538)+A(5633)+A(5720)+A(5779)+A(6030)+A(6101)+A(7829)-A(7868)-A(7869)+A(8298)+A(8312)+A(8467)+A(9395)& - &+A(11464)+A(11467)+A(11504)+A(11507)+A(11532)+A(11535)+A(11673)+A(11676)+A(11702)+A(11705)+A(12573)& - &+A(12576)+A(12617)+A(12620)+A(12634)+A(12637)+A(12716)+A(12719)+A(12726)+A(12729)+A(13593)+A(13602) - Vdot(4694) = A(6101)+A(6145)+A(6149)+A(6154)+A(6390)+A(6395)-A(8311)-A(8312)+A(12740) - Vdot(4695) = A(144)-A(903)-A(904)-A(905)-A(906)-A(907)-A(908)-A(909) - Vdot(4696) = A(191)+A(194)-A(1032)-A(1033)-A(1034)-A(1035)-A(1036)-A(1037)-A(1038)+A(2814) - Vdot(4697) = A(7477)-A(9521)-A(9522)-A(9523)-A(9524)-A(9525)-A(9526) - Vdot(4698) = A(85)-A(656)-A(657)-A(658)-A(659)-A(660)-A(661)+A(2414)+A(4508) - Vdot(4699) = A(1518)-A(3491)-A(3492)-A(3493)-A(3494)-A(3495)-A(3496)-A(3497) - Vdot(4700) = A(280)-A(1296)-A(1297)-A(1298)-A(1299)-A(1300)-A(1301)+A(3114) - Vdot(4701) = A(1550)-A(3565)-A(3566)-A(3567)-A(3568)-A(3569)-A(3570)-A(3571) - Vdot(4702) = A(299)+A(305)-A(1370)-A(1371)-A(1372)-A(1373)-A(1374)-A(1375)+A(3199) - Vdot(4703) = A(6301)-A(8392)-A(8393)-A(8394)-A(8395)-A(8396)-A(8397) - Vdot(4704) = A(7456)-A(9497)-A(9498)-A(9499)-A(9500)-A(9501)-A(9502)-A(9503) - Vdot(4705) = A(108)-A(752)-A(753)-A(754)-A(755)-A(756)-A(757)-A(758)+A(2514) - Vdot(4706) = A(5734)-A(8016)-A(8017)-A(8018)-A(8019)-A(8020)-A(8021)+A(9938) - Vdot(4707) = A(1467)-A(3375)-A(3376)-A(3377)-A(3378)-A(3379)-A(3380)-A(3381) - Vdot(4708) = A(830)+A(835)-A(2593)-A(2594)+A(5437)+A(5444)+A(5600)+A(6220)+A(7797)+A(7803)+A(10000)+A(10006) - Vdot(4709) = A(7636)-A(9681)-A(9682)-A(9683)-A(9684)-A(9685)-A(9686)-A(9687) - Vdot(4710) = A(11312)+A(11333)+A(11338)+A(11339)-A(12491)-A(12492)-A(12493)+A(13397)+A(13405) - Vdot(4711) = A(6655)-A(8700)-A(8701)-A(8702)-A(8703)-A(8704) - Vdot(4712) = A(7612)-A(9647)-A(9648)-A(9649)-A(9650)-A(9651)-A(9652)-A(9653) - Vdot(4713) = A(7600)-A(9630)-A(9631)-A(9632)-A(9633)-A(9634)-A(9635)-A(9636) - Vdot(4714) = A(262)+A(268)-A(1260)-A(1261)-A(1262)-A(1263)-A(1264)-A(1265)+A(3077) - Vdot(4715) = A(7624)-A(9664)-A(9665)-A(9666)-A(9667)-A(9668)-A(9669)-A(9670) - Vdot(4716) = A(7588)-A(9617)-A(9618)-A(9619)-A(9620)-A(9621)-A(9622)-A(9623) - Vdot(4717) = A(2032)+A(4491)+A(4494)-A(4497)-A(4498)-A(4499)-A(4500)+A(4501) - Vdot(4718) = A(1493)-A(3437)-A(3438)-A(3439)-A(3440)-A(3441)-A(3442)-A(3443) - Vdot(4719) = A(3203)-A(5403)-A(5404)-A(5405)-A(5406)-A(5407)-A(5408)+A(7754) - Vdot(4720) = A(1417)-A(3251)-A(3252)-A(3253)-A(3254)-A(3255)-A(3256)-A(3257) - Vdot(4721) = A(1415)+A(1446)+A(1450)+A(1548)+A(1552)+A(1574)+A(1578)+A(1599)+A(1603)-A(3244)-A(3245)-A(3246)+A(5443)& - &+A(5445)+A(5543)+A(5545)+A(5546)+A(5547)+A(5841)+A(5843)+A(5844)+A(5845)+A(5918)+A(5920)+A(5921)+A(5922)& - &+A(5989)+A(5991)+A(5992)+A(5993) - Vdot(4722) = A(2897)-A(5168)-A(5169)-A(5170)-A(5171)-A(5172)-A(5173)+A(7543) - Vdot(4723) = A(286)-A(1319)-A(1320)-A(1321)-A(1322)-A(1323)-A(1324)+A(3144) - Vdot(4724) = A(2994)-A(5282)-A(5283)-A(5284)-A(5285)-A(5286)-A(5287)+A(7657) - Vdot(4725) = A(1712)-A(3932)-A(3933)-A(3934)-A(3935)-A(3936)-A(3937)-A(3938) - Vdot(4726) = A(10200)-A(11679)-A(11680)-A(11681)-A(11682)+A(12721) - Vdot(4727) = A(1730)-A(3977)-A(3978)-A(3979)-A(3980)-A(3981)-A(3982)-A(3983) - Vdot(4728) = A(5842)+A(6263)+A(6314)-A(8086)-A(8087)-A(8088)+A(10007)+A(10291) - Vdot(4729) = A(1491)+A(1495)+A(1516)+A(1520)+A(1710)+A(1714)+A(1728)+A(1732)-A(3434)-A(3435)-A(3436)+A(5687)+A(5689)& - &+A(5690)+A(5691)+A(5745)+A(5747)+A(5748)+A(5749)+A(6262)+A(6264)+A(6265)+A(6266)+A(6313)+A(6315)+A(6316)& - &+A(6317) - Vdot(4730) = A(4379)-A(6792)-A(6793)-A(6794)-A(6795)-A(6796)-A(6797)+A(8827) - Vdot(4731) = A(12748)-A(13523)-A(13524)-A(13525)-A(13526)-A(13527)-A(13528)+A(14035) - Vdot(4732) = A(4143)-A(6484)-A(6485)-A(6486)-A(6487)-A(6488)-A(6489) - Vdot(4733) = A(183)+A(187)-A(1005)-A(1006)-A(1007)-A(1008)-A(1009)-A(1010)-A(1011)+A(2776) - Vdot(4734) = A(12296)-A(13282)-A(13283)-A(13284)-A(13285)-A(13286)+A(13930) - Vdot(4735) = A(7378)-A(9427)-A(9428)-A(9429)-A(9430)-A(9431)-A(9432)-A(9433) - Vdot(4736) = A(1023)+A(2793)+A(2796)+A(2798)-A(2800)-A(2801)-A(2802)-A(2803)+A(2804) - Vdot(4737) = A(629)+A(2374)+A(2376)+A(2378)-A(2379)-A(2380)-A(2381)-A(2382)+A(11128) - Vdot(4738) = A(9286)+A(9287)+A(10830)-A(10889)-A(10890)-A(10891)-A(10892)-A(10893)-A(10894)-A(10895)-A(10896)+A(12273)& - &+A(12276) - Vdot(4739) = A(11845)-A(12834)-A(12835)-A(12836)-A(12837)-A(12838)-A(12839)-A(12840)-A(12841)+A(13588)+A(13591) - Vdot(4740) = A(3372)+A(3373)-A(5584)-A(5585)-A(5586)-A(5587)-A(5588)-A(5589)-A(5590)-A(5591)+A(6115)+A(7909)+A(7911)& - &+A(7912) - Vdot(4741) = A(7886)+A(8291)-A(9828)-A(9829)-A(9830)-A(9831)-A(9832) - Vdot(4742) = A(9892)-A(11473)-A(11474)-A(11475)-A(11476)+A(12599) - Vdot(4743) = A(3646)+A(3647)+A(3648)+A(5942)-A(5943)-A(5944)+A(5945)+A(5947)+A(5951) - Vdot(4744) = A(12693)-A(13498)-A(13499)-A(13500)-A(13501)-A(13502)-A(13503)+A(14024) - Vdot(4745) = A(7157)+A(7158)+A(7166)-A(9304)-A(9305)-A(9306)-A(9307)+A(10927) - Vdot(4746) = A(2184)+A(4701)-A(4733)-A(4734)-A(4735)-A(4736)-A(4737)-A(4738) - Vdot(4747) = A(465)-A(2110)-A(2111)-A(2112)+A(4698)+A(4705)+A(4708)+A(4724)+A(7023)+A(7147)+A(9098)+A(12177)+A(13831)& - &+A(14497) - Vdot(4748) = A(12281)+A(12282)-A(13262)-A(13263)-A(13264)-A(13265)-A(13266)-A(13267)+A(13903) - Vdot(4749) = A(6640)+A(8670)+A(8672)-A(8675)-A(8676)-A(8677)-A(8678)-A(8679)+A(10459)+A(11859)+A(11861)+A(11863)& - &+A(11864)+A(12847)+A(12848) - Vdot(4750) = A(10342)-A(11786)-A(11787)-A(11788)-A(11789)+A(12791) - Vdot(4751) = A(12810)-A(13569)-A(13570)-A(13571)-A(13572)+A(14050) - Vdot(4752) = A(13137)+A(13138)-A(13794)-A(13795)-A(13796)-A(13797)-A(13798)-A(13799)-A(13800)-A(13801)+A(14192)& - &+A(14195)+A(15055)+A(15056) - Vdot(4753) = A(11843)-A(12826)-A(12827)-A(12828)-A(12829)-A(12830)-A(12831)-A(12832)-A(12833)+A(13583)+A(13586) - Vdot(4754) = A(2180)+A(4699)-A(4711)-A(4712)-A(4713)-A(4714)-A(4715)-A(4716) - Vdot(4755) = A(159)+A(161)+A(450)-A(923)-A(924)-A(925)-A(926)-A(927)-A(928)-A(929)+A(2320)+A(2321)+A(2323)+A(2325)& - &+A(2690)+A(4794)+A(4796) - Vdot(4756) = A(2181)+A(4700)-A(4717)-A(4718)-A(4719)-A(4720)-A(4721)-A(4722) - Vdot(4757) = A(7131)-A(9259)-A(9260)-A(9261)-A(9262)-A(9263) - Vdot(4758) = A(4233)-A(6595)-A(6596)-A(6597)-A(6598)-A(6599) - Vdot(4759) = A(14055)+A(14056)+A(14061)-A(14383)-A(14384)-A(14385)-A(14386)-A(14387)-A(14388)+A(14656)+A(14659) - Vdot(4760) = A(2757)+A(2758)-A(5023)-A(5024)-A(5025)-A(5026)-A(5027)-A(5028)+A(7381)+A(7383)+A(9671)+A(12494)+A(12497)& - &+A(12499)+A(12500)+A(13988) - Vdot(4761) = A(7083)-A(9198)-A(9199)-A(9200)-A(9201)-A(9202)-A(9203)+A(9333) - Vdot(4762) = A(7080)+A(7086)-A(9178)-A(9179)-A(9180)-A(9181)-A(9182)-A(9183) - Vdot(4763) = A(114)-A(781)-A(782)-A(783)-A(784)-A(785)+A(2549)+A(15021)+A(15022)+A(15024)+A(15026)+A(15103)+A(15104)& - &+A(15105)+A(15107) - Vdot(4764) = A(10924)+A(10925)-A(12290)-A(12291)-A(12292)-A(12293)-A(12294)-A(12295)+A(13276) - Vdot(4765) = A(4535)-A(6916)-A(6917)-A(6918)-A(6919)-A(6920)-A(6921)+A(8963) - Vdot(4766) = A(207)+A(208)-A(1086)-A(1087)-A(1088)-A(1089)-A(1090)-A(1091)-A(1092)+A(2942) - Vdot(4767) = A(68)+A(267)+A(273)-A(562)-A(563)-A(564)-A(565)-A(566)-A(567)-A(568)+A(2290) - Vdot(4768) = A(8960)+A(9372)-A(10588)-A(10589)-A(10590)-A(10591)+A(11999)+A(12977)+A(12978)+A(12980)+A(12982)+A(13636)& - &+A(13638) - Vdot(4769) = A(3884)+A(6204)+A(6207)+A(6209)+A(6210)-A(6212)-A(6213)-A(6214)-A(6215)+A(6220)+A(8350)+A(8351)+A(8353)& - &+A(8356) - Vdot(4770) = A(11470)+A(11471)-A(12591)-A(12592)-A(12593)-A(12594)-A(12595)-A(12596)-A(12597)-A(12598)+A(13447)& - &+A(13450) - Vdot(4771) = A(2865)+A(2866)-A(5134)-A(5135)-A(5136)-A(5137)-A(5138)-A(5139)-A(5140)-A(5141)+A(7513)+A(7514) - Vdot(4772) = A(11901)-A(12893)-A(12894)-A(12895)-A(12896)-A(12897)-A(12898)-A(12899)-A(12900)+A(13605)+A(13606) - Vdot(4773) = A(3422)+A(3424)+A(5500)+A(5504)+A(5507)-A(5659)-A(5660)-A(5661)-A(5662)-A(5663)-A(5664)+A(7979)+A(7983) - Vdot(4774) = A(1875)-A(4223)-A(4224)-A(4225)-A(4226)-A(4227)-A(4228)+A(6578) - Vdot(4775) = A(8122)+A(10059)-A(10062)-A(10063)-A(10064)-A(10065)-A(10066)+A(10067)+A(12675)+A(12677)+A(12679)& - &+A(12680)+A(13494)+A(13495) - Vdot(4776) = A(6509)-A(8539)-A(8540)-A(8541)-A(8542)-A(8543)-A(8544) - Vdot(4777) = A(274)-A(1283)-A(1284)-A(1285)-A(1286)-A(1287)-A(1288)+A(3097) - Vdot(4778) = A(11071)-A(12350)-A(12351)-A(12352)-A(12353)-A(12354)-A(12355)-A(12356)+A(13315) - Vdot(4779) = A(14745)-A(14919)-A(14920)-A(14921)-A(14922)-A(14923)+A(15038) - Vdot(4780) = A(83)-A(643)-A(644)-A(645)-A(646)-A(647)-A(648)+A(2397) - Vdot(4781) = A(7051)+A(9126)+A(9127)+A(9129)+A(9130)-A(9135)-A(9136)-A(9137)-A(9138)+A(10774) - Vdot(4782) = A(263)+A(269)-A(1266)-A(1267)-A(1268)-A(1269)-A(1270)-A(1271)+A(3084) - Vdot(4783) = A(137)-A(872)-A(873)-A(874)-A(875)-A(876)-A(877)-A(878) - Vdot(4784) = A(440)-A(1996)-A(1997)-A(1998)-A(1999)-A(2000)-A(2001)-A(2002)+A(4450) - Vdot(4785) = A(2351)-A(4808)-A(4809)-A(4810)-A(4811)-A(4812)-A(4813)-A(4814)+A(7199) - Vdot(4786) = A(4259)-A(6662)-A(6663)-A(6664)-A(6665) - Vdot(4787) = A(4095)+A(6431)+A(6434)+A(6436)+A(6437)-A(6444)-A(6445)-A(6446)-A(6447)-A(6448)-A(6449)+A(8473)+A(8474)& - &+A(8476) - Vdot(4788) = A(6088)+A(6089)-A(8299)-A(8300)+A(10211)+A(10212)+A(10213)+A(11692) - Vdot(4789) = A(6993)+A(6994)-A(9055)-A(9056)-A(9057)-A(9058)-A(9059)-A(9060)-A(9061) - Vdot(4790) = A(5935)+A(5936)-A(8163)-A(8164)+A(10100)+A(10101)+A(10102)+A(11626) - Vdot(4791) = A(5868)+A(5869)-A(8101)-A(8102)+A(10036)+A(10037)+A(10038)+A(11584) - Vdot(4792) = A(8150)-A(10081)-A(10082)-A(10083)-A(10084)-A(10085)-A(10086)+A(11612)+A(11616)+A(14650) - Vdot(4793) = A(4018)+A(4080)+A(6360)-A(6361)-A(6362)-A(6363) - Vdot(4794) = A(415)-A(1887)-A(1888)-A(1889)-A(1890)-A(1891)-A(1892) - Vdot(4795) = A(9402)+A(9406)-A(10996)-A(10997)-A(10998)-A(10999)-A(11000)-A(11001)-A(11002)-A(11003) - Vdot(4796) = A(2608)+A(4945)+A(4952)-A(4953)-A(4954)+A(5474)+A(5499)+A(5807)+A(5881)+A(5954)+A(7775)+A(7815)+A(7923)& - &+A(8007)+A(8044)+A(9401)+A(11392)+A(11395)+A(11424)+A(11427)+A(11556)+A(11559)+A(11595)+A(11598)+A(11637)& - &+A(11640)+A(12537)+A(12560)+A(12651)+A(12672)+A(12691)+A(12907)+A(14045) - Vdot(4797) = A(5788)+A(5789)-A(8039)-A(8040)+A(9976)+A(9977)+A(9978)+A(11545) - Vdot(4798) = A(5491)+A(5492)-A(7818)-A(7819)+A(9773)+A(9774)+A(9775)+A(11421) - Vdot(4799) = A(3948)+A(3949)+A(3950)+A(6286)-A(6287)-A(6288)+A(6289)+A(6291)+A(6295) - Vdot(4800) = A(7564)+A(7565)-A(9591)-A(9592)-A(9593) - Vdot(4801) = A(1955)+A(2408)+A(2412)+A(4395)+A(4400)-A(4402)-A(4403)+A(4404)+A(4853)+A(4854)+A(12343)+A(12349)& - &+A(12417)+A(12421)+A(12423)+A(12424) - Vdot(4802) = A(9592)-A(11218)-A(11219)-A(11220)-A(11221)-A(11222)-A(11223)+A(12414) - Vdot(4803) = A(1649)-A(3787)-A(3788)-A(3789)-A(3790)-A(3791)-A(3792)-A(3793) - Vdot(4804) = A(3167)-A(5379)-A(5380)-A(5381)-A(5382)-A(5383)-A(5384)+A(7727) - Vdot(4805) = A(6600)+A(6605)-A(8615)-A(8616)-A(8617)-A(8618)+A(8697) - Vdot(4806) = A(12013)-A(12989)-A(12990)-A(12991)-A(12992)-A(12993)-A(12994)+A(13649)+A(13652) - Vdot(4807) = A(1671)+A(1674)-A(3829)-A(3830)-A(3831)-A(3832)-A(3833)-A(3834)-A(3835)-A(3836)+A(6158)+A(6161) - Vdot(4808) = A(11477)+A(11478)-A(12603)-A(12604)-A(12605)-A(12606)-A(12607)-A(12608)-A(12609)-A(12610)+A(13452)& - &+A(13455) - Vdot(4809) = A(251)-A(1220)-A(1221)-A(1222)-A(1223)-A(1224)-A(1225)+A(3026)+A(4803) - Vdot(4810) = A(6018)+A(6019)-A(8224)-A(8225)+A(10159)+A(10160)+A(10161)+A(11670) - Vdot(4811) = A(9597)-A(11229)-A(11230)-A(11231)-A(11232)-A(11233)-A(11234)+A(12428) - Vdot(4812) = A(14300)+A(14301)-A(14583)-A(14584)-A(14585)-A(14586)-A(14587)-A(14588)-A(14589)-A(14590)+A(14593)& - &+A(14819)+A(14822) - Vdot(4813) = A(1785)+A(4084)+A(4087)+A(4089)+A(4090)-A(4102)-A(4103)-A(4104)-A(4105)-A(4106)-A(4107)+A(6425)+A(6426)& - &+A(6428) - Vdot(4814) = A(81)-A(636)-A(637)-A(638)-A(639)-A(640)-A(641)-A(642)+A(2388) - Vdot(4815) = A(8182)+A(10123)-A(10126)-A(10127)-A(10128)-A(10129)-A(10130)+A(10131)+A(12694)+A(12696)+A(12698)& - &+A(12699)+A(13505)+A(13506) - Vdot(4816) = A(10520)+A(10523)-A(11928)-A(11929)-A(11930)-A(11931)-A(11932)-A(11933)-A(11934)-A(11935)+A(12932)& - &+A(12935) - Vdot(4817) = A(3044)-A(5303)-A(5304)-A(5305)-A(5306)-A(5307)-A(5308)+A(7673) - Vdot(4818) = A(14444)+A(14446)-A(14702)-A(14703)-A(14704)-A(14705)-A(14706)-A(14707)-A(14708)-A(14709)+A(14893)& - &+A(14896) - Vdot(4819) = A(1827)-A(4145)-A(4146)-A(4147)-A(4148)-A(4149)-A(4150) - Vdot(4820) = A(14835)-A(14986)-A(14987)-A(14988)-A(14989)-A(14990)-A(14991) - Vdot(4821) = A(1448)-A(3330)-A(3331)-A(3332)-A(3333)-A(3334)-A(3335)-A(3336) - Vdot(4822) = A(3244)+A(3245)-A(5426)-A(5427)-A(5428)-A(5429)-A(5430)-A(5431)-A(5432)-A(5433)+A(5446)+A(7785)+A(7788) - Vdot(4823) = A(3246)+A(5426)+A(5429)+A(5431)+A(5432)-A(5434)-A(5435)-A(5436)-A(5437)-A(5438)-A(5439)+A(5444)+A(5447)& - &+A(5544)+A(5842)+A(5919)+A(5990)+A(7783)+A(7784)+A(7786) - Vdot(4824) = A(9151)-A(10800)-A(10801)-A(10802)-A(10803)-A(10804)-A(10805) - Vdot(4825) = A(13224)-A(13875)-A(13876)-A(13877)-A(13878)-A(13879)-A(13880)-A(13881) - Vdot(4826) = A(11838)-A(12812)-A(12813)-A(12814)-A(12815)-A(12816)-A(12817)+A(13573)+A(13576) - Vdot(4827) = A(4474)-A(6866)-A(6867)-A(6868)-A(6869)-A(6870)-A(6871)+A(8913) - Vdot(4828) = A(7766)-A(9720)-A(9721)-A(9722)-A(9723)-A(9724)-A(9725) - Vdot(4829) = A(1573)+A(1575)-A(3612)-A(3613)-A(3614)-A(3615)-A(3616)-A(3617)-A(3618)-A(3619)+A(5905)+A(5908) - Vdot(4830) = A(6948)-A(8999)-A(9000)-A(9001)-A(9002)-A(9003)-A(9004)-A(9005)-A(9006)+A(10634)+A(10639) - Vdot(4831) = A(12809)+A(12811)+A(13561)+A(13562)-A(13563)-A(13564)-A(13565)-A(13566)-A(13567)-A(13568)+A(14046)& - &+A(14049) - Vdot(4832) = A(6590)+A(6635)-A(8599)-A(8600)-A(8601) - Vdot(4833) = A(1464)+A(1466)-A(3364)-A(3365)-A(3366)-A(3367)-A(3368)-A(3369)-A(3370)-A(3371)+A(5580)+A(5583) - Vdot(4834) = A(5131)+A(7492)+A(7496)+A(7503)+A(7506)-A(7508)-A(7509)-A(7510) - Vdot(4835) = A(5514)-A(7845)-A(7846)-A(7847)-A(7848)-A(7849)-A(7850)+A(9797) - Vdot(4836) = A(4525)+A(4526)-A(6902)-A(6903)-A(6904)-A(6905)-A(6906)-A(6907)-A(6908)-A(6909)+A(8951)+A(8952) - Vdot(4837) = A(71)+A(278)-A(580)-A(581)-A(582)-A(583)-A(584)-A(585)+A(2313) - Vdot(4838) = A(1347)-A(3170)-A(3171)-A(3172)-A(3173)-A(3174)-A(3175) - Vdot(4839) = A(14284)-A(14561)-A(14562)-A(14563)-A(14564)-A(14565)-A(14566)-A(14567)-A(14568)+A(14795)+A(14799)& - &+A(14807)+A(14836)+A(14837)+A(15073) - Vdot(4840) = -A(138)-A(139)-A(140)-A(141)-A(142)-A(143)-A(144)-A(145)-A(146) - Vdot(4841) = A(437)-A(1977)-A(1978)-A(1979)-A(1980)-A(1981)+A(4427)+A(6904)+A(6905)+A(6907)+A(6909)+A(8949)+A(8950) - Vdot(4842) = A(9098)-A(10738)-A(10739)-A(10740)+A(12141)+A(12166)+A(12167)+A(12212)+A(12214)+A(12215)+A(12218)& - &+A(13858)+A(14247)+A(14515)+A(14517)+A(14520) - Vdot(4843) = A(2143)-A(4671)-A(4672)-A(4673)-A(4674)-A(4675)-A(4676) - Vdot(4844) = A(73)-A(589)-A(590)-A(591)-A(592)-A(593)-A(594)+A(2333)+A(7493)+A(9534)+A(9535)+A(9537)+A(9539)+A(11149)& - &+A(11150) - Vdot(4845) = A(1173)+A(2661)+A(2975)+A(2978)-A(2980)-A(2981)-A(2982) - Vdot(4846) = A(3732)+A(3733)-A(6042)-A(6043)-A(6044)-A(6045)-A(6046)-A(6047)-A(6048)-A(6049)+A(6060)+A(6062)+A(8274)& - &+A(8277) - Vdot(4847) = A(4685)+A(7020)+A(7024)-A(7053)-A(7054)-A(7055)-A(7056)-A(7057)-A(7058)-A(7059)-A(7060)+A(9139)+A(9142) - Vdot(4848) = A(7353)+A(7354)-A(9410)-A(9411)-A(9412)-A(9413)-A(9414)-A(9415)-A(9416)-A(9417)+A(11014)+A(11015) - Vdot(4849) = A(9086)+A(9087)-A(10713)-A(10714)-A(10715)-A(10716)-A(10717)-A(10718)-A(10719)-A(10720)+A(10814)+A(12125)& - &+A(12130) - Vdot(4850) = A(9688)-A(11343)-A(11344)-A(11345)-A(11346)-A(11347)-A(11348)-A(11349)-A(11350)+A(12492)+A(12493)& - &+A(12508)+A(12512)+A(12514)+A(12516)+A(12518)+A(12519)+A(13991) - Vdot(4851) = A(6508)+A(6517)+A(8531)+A(8532)+A(8535)-A(8536)-A(8537)-A(8538)+A(8545)+A(8547)+A(8549) - Vdot(4852) = A(433)-A(1964)-A(1965)-A(1966)-A(1967)-A(1968)-A(1969)+A(4414)+A(7434)+A(9477)+A(9478)+A(9480)+A(9481)& - &+A(11088) - Vdot(4853) = A(14899)+A(14900)+A(14901)-A(15019)-A(15020)-A(15021)-A(15022)-A(15023)-A(15024)-A(15025)-A(15026)& - &+A(15101)+A(15102)+A(15106)+A(15109) - Vdot(4854) = A(14431)+A(14432)+A(14433)-A(14686)-A(14687)-A(14688)-A(14689)-A(14690)-A(14691)-A(14692)-A(14693)& - &+A(14875)+A(14884) - Vdot(4855) = A(7032)+A(9096)+A(9100)-A(9103)-A(9104)-A(9105)-A(9106)-A(9107)-A(9108)-A(9109)-A(9110)+A(10756)+A(10759) - Vdot(4856) = A(3066)-A(5319)-A(5320)-A(5321)-A(5322)+A(7686) - Vdot(4857) = A(5654)-A(7953)-A(7954)-A(7955)-A(7956)-A(7957)-A(7958)+A(9889)+A(11472)+A(12593)+A(12594)+A(12596)& - &+A(12598)+A(13446)+A(13448) - Vdot(4858) = A(431)-A(1958)-A(1959)-A(1960)-A(1961)-A(1962)-A(1963)+A(4407) - Vdot(4859) = A(5464)+A(5465)-A(7804)-A(7805)+A(9737)+A(9738)+A(9739)+A(11389) - Vdot(4860) = A(2746)+A(2747)-A(5010)-A(5011)-A(5012)-A(5013)-A(5014)-A(5015)+A(7366)+A(7368) - Vdot(4861) = A(5505)-A(7840)-A(7841)-A(7842)-A(7843)-A(7844)+A(10421)+A(10422) - Vdot(4862) = A(2592)-A(4927)-A(4928)-A(4929)-A(4930)-A(4931)-A(4932)-A(4933)-A(4934)+A(7296)+A(7299) - Vdot(4863) = A(12286)+A(12287)+A(12288)-A(13268)-A(13269)-A(13270)-A(13271)-A(13272)-A(13273)-A(13274)-A(13275)& - &+A(13910)+A(13920) - Vdot(4864) = A(8210)-A(10145)-A(10146)-A(10147)-A(10148)-A(10149)-A(10150)+A(11654)+A(11658)+A(14654) - Vdot(4865) = A(6448)+A(6464)+A(6465)+A(7758)+A(8446)+A(8485)-A(8489)-A(8490)+A(13534)+A(13535)+A(13537)+A(13538)& - &+A(14037)+A(14038) - Vdot(4866) = A(9435)+A(9436)-A(11036)-A(11037)-A(11038)-A(11039)-A(11040)-A(11041)-A(11042)-A(11043)+A(12339)+A(12340) - Vdot(4867) = A(13708)+A(13709)+A(13710)-A(14103)-A(14104)-A(14105)-A(14106)-A(14107)-A(14108)-A(14109)-A(14110)& - &+A(14415)+A(14418) - Vdot(4868) = A(1311)-A(3131)-A(3132)-A(3133)-A(3134)-A(3135)-A(3136) - Vdot(4869) = A(4706)-A(7095)-A(7096)-A(7097)-A(7098)-A(7099) - Vdot(4870) = A(58)-A(520)-A(521)-A(522)-A(523)-A(524)-A(525)-A(526)+A(2241)+A(7455)+A(9418)+A(11019)+A(11020)+A(11022)& - &+A(11024)+A(12331)+A(12332) - Vdot(4871) = A(4466)-A(6862)-A(6863)-A(6864)-A(6865)+A(8908) - Vdot(4872) = A(560)+A(807)+A(2279)+A(2282)-A(2285)-A(2286)-A(2287)-A(2288)+A(11048) - Vdot(4873) = A(1362)+A(3169)+A(3184)-A(3187)-A(3188)-A(3189)+A(13381) - Vdot(4874) = A(11237)+A(11246)+A(11247)-A(12436)-A(12437)-A(12438)-A(12439)-A(12440)-A(12441)+A(13356)+A(13357) - Vdot(4875) = A(14057)+A(14384)+A(14385)+A(14387)+A(14388)-A(14389)-A(14390)-A(14391)-A(14392)+A(14657)+A(14660) - Vdot(4876) = A(165)+A(168)-A(950)-A(951)-A(952)-A(953)-A(954)-A(955)-A(956) - Vdot(4877) = A(5812)-A(8055)-A(8056)-A(8057)-A(8058)-A(8059)-A(8060)+A(9999) - Vdot(4878) = A(214)+A(216)-A(1113)-A(1114)-A(1115)-A(1116)-A(1117)-A(1118)+A(2916) - Vdot(4879) = A(292)-A(1334)-A(1335)-A(1336)-A(1337)-A(1338)-A(1339)+A(3155) - Vdot(4880) = A(2803)-A(5068)-A(5069)-A(5070)-A(5071)-A(5072)-A(5073)-A(5074) - Vdot(4881) = A(281)-A(1302)-A(1303)-A(1304)-A(1305)-A(1306)-A(1307)+A(3124) - Vdot(4882) = A(2391)-A(4842)-A(4843)-A(4844)-A(4845)+A(5262)+A(7641)+A(7643)+A(7646) - Vdot(4883) = A(7240)-A(9373)-A(9374)-A(9375)+A(11364) - Vdot(4884) = A(298)+A(304)-A(1364)-A(1365)-A(1366)-A(1367)-A(1368)-A(1369)+A(3191) - Vdot(4885) = A(4399)-A(6804)-A(6805)-A(6806)-A(6807)-A(6808)-A(6809)+A(8840) - Vdot(4886) = A(204)+A(206)-A(1079)-A(1080)-A(1081)-A(1082)-A(1083)-A(1084)-A(1085)+A(2875) - Vdot(4887) = A(1469)+A(3364)+A(3367)+A(3369)+A(3370)-A(3382)-A(3383)-A(3384)-A(3385)-A(3386)+A(5578)+A(5579)+A(5581)& - &+A(5606) - Vdot(4888) = A(6031)+A(6032)+A(6034)-A(8234)-A(8235)-A(8236)-A(8237)-A(8238)-A(8239)-A(8240)-A(8241)+A(10172)+A(10176) - Vdot(4889) = A(3180)-A(5385)-A(5386)-A(5387)-A(5388)-A(5389)-A(5390) - Vdot(4890) = A(11243)-A(12442)-A(12443)-A(12444)-A(12445)-A(12446)-A(12447)-A(12448) - Vdot(4891) = A(7049)-A(9125)-A(9126)-A(9127)-A(9128)-A(9129)-A(9130)+A(10773)+A(10776) - Vdot(4892) = A(1490)+A(1492)-A(3426)-A(3427)-A(3428)-A(3429)-A(3430)-A(3431)-A(3432)-A(3433)+A(5667)+A(5670) - Vdot(4893) = A(1519)+A(3483)+A(3486)+A(3488)+A(3489)-A(3498)-A(3499)-A(3500)-A(3501)-A(3502)+A(5736)+A(5737)+A(5739)& - &+A(5752) - Vdot(4894) = A(4274)+A(6615)-A(6677)-A(6678)-A(6679)-A(6680)-A(6681)-A(6682) - Vdot(4895) = A(3417)+A(3814)+A(4019)+A(5652)-A(5653)-A(5654)-A(5655) - Vdot(4896) = A(3546)+A(3870)+A(3919)+A(3966)+A(5814)-A(5815)-A(5816)-A(5817) - Vdot(4897) = A(1713)+A(3924)+A(3927)+A(3929)+A(3930)-A(3939)-A(3940)-A(3941)-A(3942)-A(3943)-A(3944)+A(6253)+A(6254)& - &+A(6256)+A(6269) - Vdot(4898) = A(6953)+A(9000)+A(9002)+A(9004)+A(9005)-A(9007)-A(9008)-A(9009)-A(9010)+A(10635)+A(10636)+A(10637)& - &+A(10640) - Vdot(4899) = A(1651)+A(3779)+A(3782)+A(3784)+A(3785)-A(3794)-A(3795)-A(3796)-A(3797)-A(3798)+A(6102)+A(6105)+A(6119) - Vdot(4900) = A(10686)+A(10687)+A(10689)+A(10691)+A(12094)+A(12095)+A(12097)-A(12098)-A(12099)-A(12100)-A(12101)& - &-A(12102)-A(12103)-A(12104) - Vdot(4901) = A(170)+A(173)-A(964)-A(965)-A(966)-A(967)-A(968)-A(969)-A(970)+A(2728)+A(2882)+A(5149)+A(5152)+A(5154)& - &+A(5155)+A(7526)+A(7527) - Vdot(4902) = A(13659)+A(13687)-A(14065)-A(14066)-A(14067)+A(14851)+A(14853)+A(14855)+A(14856)+A(14993)+A(14994) - Vdot(4903) = A(7558)-A(9578)-A(9579)-A(9580)-A(9581)-A(9582)-A(9583)-A(9584) - Vdot(4904) = A(9910)-A(11480)-A(11481)-A(11482)-A(11483)-A(11484)+A(12611) - Vdot(4905) = A(1731)+A(3969)+A(3972)+A(3974)+A(3975)-A(3984)-A(3985)-A(3986)-A(3987)-A(3988)+A(6304)+A(6305)+A(6307)& - &+A(6320) - Vdot(4906) = A(1870)-A(4212)-A(4213)-A(4214)-A(4215)-A(4216)-A(4217) - Vdot(4907) = A(416)-A(1893)-A(1894)-A(1895)-A(1896)-A(1897) - Vdot(4908) = A(694)-A(2454)-A(2455)-A(2456)-A(2457)-A(2458)-A(2459) - Vdot(4909) = A(1179)+A(2983)+A(2987)-A(2988)-A(2989)+A(4185)+A(4190)+A(4969)+A(4970)+A(4972)+A(4974)+A(6546)+A(6547)& - &+A(6549)+A(6551)+A(6692)+A(7322)+A(7325)+A(8561)+A(8562)+A(8563)+A(8564)+A(8565)+A(8571)+A(8572)+A(8576)& - &+A(8577)+A(8580)+A(8581)+A(8582)+A(8583)+A(8584)+A(8585)+A(8588)+A(10371) - Vdot(4910) = A(6946)+A(6947)+A(6949)+A(6950)+A(6952)+A(7004)+A(7005)-A(8991)-A(8992)-A(8993)-A(8994)-A(8995)-A(8996)& - &-A(8997)-A(8998)+A(10630)+A(10633) - Vdot(4911) = A(7433)-A(9470)-A(9471)-A(9472)-A(9473)-A(9474)-A(9475)+A(11082) - Vdot(4912) = A(2074)-A(4562)-A(4563)-A(4564)-A(4565)-A(4566)-A(4567) - Vdot(4913) = A(3734)+A(4282)+A(4304)+A(5746)-A(6050)-A(6051)-A(6052)-A(6053)+A(6314) - Vdot(4914) = A(4574)+A(6957)+A(6959)+A(6962)-A(6964)-A(6965)-A(6966)+A(8983) - Vdot(4915) = A(2546)+A(2547)-A(4898)-A(4899)-A(4900)-A(4901)-A(4902)-A(4903)-A(4904)-A(4905)+A(7271)+A(7274)+A(12357) - Vdot(4916) = A(3234)+A(3235)+A(3264)+A(3266)+A(3269)-A(5412)-A(5413)-A(5414)-A(5415)-A(5416)-A(5417)-A(5418)-A(5419)& - &+A(5454)+A(5455)+A(5566)+A(5567)+A(7776)+A(7782) - Vdot(4917) = A(3610)+A(3611)+A(5885)+A(5888)+A(5890)-A(5895)-A(5896)-A(5897)-A(5898)-A(5899)-A(5900)-A(5901)-A(5902)& - &+A(5932)+A(8143)+A(8147) - Vdot(4918) = A(3603)+A(3605)-A(5882)-A(5883)-A(5884)+A(5887)+A(5909)+A(5910)+A(5911)+A(5912)+A(5913)+A(5920)+A(8100)& - &+A(8134)+A(8142)+A(8145)+A(8146)+A(8152)+A(8934)+A(10061)+A(10074)+A(10082)+A(10083)+A(10085)+A(10086)& - &+A(10089)+A(11614)+A(11615) - Vdot(4919) = A(1794)-A(4110)-A(4111)-A(4112)-A(4113)-A(4114)-A(4115) - Vdot(4920) = A(6362)-A(8435)-A(8436)-A(8437)-A(8438)-A(8439)-A(8440)+A(10339)+A(11785)+A(12785)+A(12786)+A(12788)& - &+A(12790)+A(13553)+A(13555) - Vdot(4921) = A(7081)+A(7085)-A(9184)-A(9185)-A(9186)-A(9187)-A(9188)-A(9189)-A(9190)-A(9191)+A(10821)+A(10824)& - &+A(10954) - Vdot(4922) = A(140)-A(893)-A(894)-A(895)-A(896)-A(897)-A(898)+A(2657) - Vdot(4923) = A(139)-A(887)-A(888)-A(889)-A(890)-A(891)-A(892)+A(2646)+A(2647)+A(2650)+A(2651)+A(2652) - Vdot(4924) = A(676)+A(677)-A(2436)-A(2437)-A(2438)-A(2439)-A(2440)-A(2441)+A(2680)+A(2681)+A(4860)+A(4863)+A(8919)& - &+A(9701) - Vdot(4925) = A(457)-A(2066)-A(2067)-A(2068)-A(2069)-A(2070)-A(2071)+A(4543) - Vdot(4926) = A(8957)+A(8958)-A(10576)-A(10577)-A(10578)-A(10579)-A(10580)-A(10581)-A(10582)-A(10583)+A(11992)+A(11995) - Vdot(4927) = A(3420)+A(3481)+A(3761)+A(5509)-A(5656)-A(5657)-A(5658) - Vdot(4928) = A(1601)-A(3681)-A(3682)-A(3683)-A(3684)-A(3685)-A(3686)-A(3687) - Vdot(4929) = A(7855)+A(8791)-A(9807)-A(9808)-A(9809)-A(9810)+A(11433)+A(11434)+A(11437)+A(12563)+A(12564)+A(12566)& - &+A(12567)+A(13429) - Vdot(4930) = A(3667)+A(3668)+A(5955)+A(5958)+A(5960)-A(5966)-A(5967)-A(5968)-A(5969)-A(5970)-A(5971)-A(5972)-A(5973)& - &+A(6003)+A(8203)+A(8207) - Vdot(4931) = A(2344)+A(3660)+A(3663)-A(4805)-A(4806)-A(4807)+A(5957)+A(5980)+A(5981)+A(5982)+A(5983)+A(5985)+A(5991)& - &+A(8168)+A(8193)+A(8201)+A(8205)+A(8206)+A(8212)+A(10125)+A(10138)+A(10146)+A(10147)+A(10149)+A(10150)& - &+A(10153)+A(11656)+A(11657) - Vdot(4932) = A(124)-A(830)-A(831)-A(832)-A(833)-A(834)-A(835)-A(836)-A(837)+A(2595) - Vdot(4933) = A(1782)+A(1786)-A(4092)-A(4093)-A(4094)-A(4095)+A(6453)+A(6455) - Vdot(4934) = A(7420)+A(7422)-A(9462)-A(9463)-A(9464)-A(9465)-A(9466)-A(9467)-A(9468)-A(9469)+A(11076)+A(11077) - Vdot(4935) = A(1675)+A(3829)+A(3832)+A(3834)+A(3835)-A(3849)-A(3850)-A(3851)-A(3852)-A(3853)-A(3854)+A(6156)+A(6157)& - &+A(6159) - Vdot(4936) = A(136)-A(865)-A(866)-A(867)-A(868)-A(869)-A(870)-A(871)+A(10444)+A(11849)+A(11850)+A(11852)+A(11853)& - &+A(12842)+A(12845) - Vdot(4937) = A(1619)+A(1620)+A(1622)+A(3720)+A(3722)-A(3723)-A(3724)-A(3725)-A(3726)-A(3727)-A(3728) - Vdot(4938) = A(1942)+A(2255)+A(3021)+A(3357)+A(3359)+A(3723)+A(3726)+A(3730)+A(3731)+A(3758)+A(3761)+A(4380)-A(4385)& - &-A(4386)+A(5569)+A(6077)+A(6080)+A(7720)+A(7914)+A(7917)+A(7920)+A(8223)+A(8276)+A(8874)+A(8953)+A(9824)& - &+A(9826)+A(9828)+A(9829)+A(9830)+A(9831)+A(9832)+A(9836)+A(10154)+A(10173)+A(10175)+A(10179)+A(10194)& - &+A(10205)+A(11144)+A(11146)+A(11147)+A(12720)+A(13511)+A(13972)+A(14026)+A(14028)+A(14030)+A(14031)& - &+A(14360)+A(14363)+A(14380)+A(14381) - Vdot(4939) = A(6723)+A(7676)-A(8750)-A(8751)-A(8752)+A(8846)+A(15166) - Vdot(4940) = A(7087)+A(7094)+A(9186)+A(9187)+A(9189)+A(9191)-A(9210)-A(9211)-A(9212)-A(9213)-A(9214)-A(9215)-A(9216)& - &+A(9338)+A(10822) - Vdot(4941) = A(1198)+A(1272)-A(3004)-A(3005)-A(3006)-A(3007)-A(3008)-A(3009) - Vdot(4942) = A(177)+A(180)-A(984)-A(985)-A(986)-A(987)-A(988)-A(989)-A(990)+A(2751)+A(2934)+A(11345)+A(11346)+A(11348)& - &+A(11350)+A(12491)+A(12510)+A(12511) - Vdot(4943) = A(899)+A(1182)+A(1332)-A(2662)-A(2663)-A(2664)-A(2665)-A(2666)-A(2667) - Vdot(4944) = A(117)+A(119)-A(793)-A(794)-A(795)-A(796)-A(797)-A(798)-A(799)-A(800)+A(2560)+A(2563)+A(3168)+A(9654)& - &+A(12477)+A(12480)+A(12482)+A(12483)+A(13985) - Vdot(4945) = A(6670)+A(8657)-A(8727)-A(8728)-A(8729)-A(8730)-A(8731) - Vdot(4946) = A(6354)+A(6357)+A(6359)-A(8418)-A(8419)-A(8420)-A(8421)-A(8422)-A(8423)-A(8424)-A(8425)+A(10325)+A(10329) - Vdot(4947) = A(3374)+A(3735)+A(5584)+A(5587)+A(5589)+A(5590)-A(5592)-A(5593)-A(5594)-A(5595)+A(5600)+A(6042)+A(6045)& - &+A(6047)+A(6048)+A(6056)+A(6061)+A(6111)+A(6116)+A(7907)+A(7908)+A(7910)+A(7913)+A(8272)+A(8273)+A(8275) - Vdot(4948) = A(1647)+A(1650)-A(3779)-A(3780)-A(3781)-A(3782)-A(3783)-A(3784)-A(3785)-A(3786)+A(6104)+A(6108) - Vdot(4949) = A(2270)+A(2271)-A(4768)-A(4769)-A(4770)-A(4771)-A(4772)-A(4773)-A(4774)-A(4775)+A(7183)+A(7184)+A(8860)& - &+A(8863)+A(8864)+A(8866)+A(8867)+A(11080)+A(11083)+A(11086) - Vdot(4950) = A(1460)+A(1461)+A(1462)+A(3354)+A(3356)-A(3357)-A(3358)-A(3359)-A(3360)-A(3361)-A(3362)+A(3363) - Vdot(4951) = A(3231)+A(3268)+A(3311)+A(3357)+A(3544)+A(3603)+A(3660)+A(3867)-A(5409)-A(5410)-A(5411) - Vdot(4952) = A(3310)+A(3362)+A(3726)+A(3872)+A(3920)+A(3967)+A(5516)-A(5517)-A(5518)-A(5519) - Vdot(4953) = A(7036)+A(7038)+A(7039)+A(7040)+A(7042)-A(9111)-A(9112)-A(9113)-A(9114)-A(9115)-A(9116)-A(9117)-A(9118)& - &+A(10763)+A(10766) - Vdot(4954) = A(121)+A(122)+A(125)-A(815)-A(816)-A(817)-A(818)-A(819)-A(820)-A(821)-A(822)+A(2582)+A(2584)+A(6576)& - &+A(6580)+A(6581)+A(6582)+A(6583) - Vdot(4955) = A(13828)+A(13832)-A(14211)-A(14212)-A(14213)-A(14214)-A(14215)-A(14216)-A(14217)-A(14218)+A(14477)& - &+A(14480) - Vdot(4956) = A(1242)+A(1376)-A(3056)-A(3057)-A(3058)-A(3059)-A(3060)-A(3061) - Vdot(4957) = A(9373)-A(10966)-A(10967)-A(10968)-A(10969)-A(10970)-A(10971)-A(10972)-A(10973)+A(12315) - Vdot(4958) = A(4199)+A(4271)-A(6563)-A(6564)+A(8729)+A(8734)+A(8735)+A(8736)+A(8737)+A(8738)+A(10494)+A(10496)& - &+A(10501)+A(11885)+A(11888)+A(11890)+A(11891)+A(11893)+A(11896)+A(11898)+A(11899)+A(11902)+A(11905)& - &+A(11907)+A(11908)+A(12882)+A(12883)+A(12884)+A(12887)+A(12888)+A(12889)+A(12892)+A(12901)+A(12902)& - &+A(12905) - Vdot(4959) = A(77)+A(279)-A(616)-A(617)-A(618)-A(619)-A(620)-A(621)-A(622)+A(2364)+A(11245)+A(12437)+A(12438)+A(12440)& - &+A(12441)+A(13355) - Vdot(4960) = A(14448)+A(14704)+A(14705)+A(14707)+A(14709)-A(14716)-A(14717)-A(14718)-A(14719)-A(14720)+A(14891)& - &+A(14892)+A(14894)+A(14904) - Vdot(4961) = A(1316)+A(3121)+A(3137)-A(3141)-A(3142)-A(3143)+A(8192)+A(13346) - Vdot(4962) = A(7291)+A(7292)+A(7377)-A(9382)-A(9383)-A(9384)-A(9385)-A(9386)-A(9387)-A(9388)-A(9389)+A(10988)+A(10989) - Vdot(4963) = A(4283)+A(4307)-A(6693)-A(6694)-A(6695)-A(6696)-A(6697)-A(6698) - Vdot(4964) = A(393)-A(396)-A(397)-A(398)-A(399)+A(1429)+A(3285)+A(3287)+A(3289)+A(3290)+A(4109)+A(4110)+A(4111)& - &+A(4112)+A(4113)+A(4114)+A(4118)+A(8037) - Vdot(4965) = A(1420)+A(1422)+A(1808)+A(1809)+A(1810)-A(3270)-A(3271)+A(4125) - Vdot(4966) = A(8086)-A(10020)-A(10021)-A(10022)-A(10023)-A(10024)-A(10025)+A(11567)+A(11571)+A(14646) - Vdot(4967) = A(7559)-A(9585)-A(9586)-A(9587)-A(9588)-A(9589)-A(9590)+A(11212) - Vdot(4968) = A(5568)+A(5571)+A(5573)-A(7875)-A(7876)-A(7877)-A(7878)-A(7879)-A(7880)-A(7881)-A(7882)+A(9821)+A(9827) - Vdot(4969) = A(12014)+A(12015)-A(12995)-A(12996)-A(12997)-A(12998)-A(12999)-A(13000)+A(13653)+A(13660)+A(14072) - Vdot(4970) = A(2179)+A(2185)-A(4708)-A(4709)-A(4710)+A(7066)+A(7072) - Vdot(4971) = A(1625)-A(3736)-A(3737)-A(3738)-A(3739)-A(3740)-A(3741)-A(3742) - Vdot(4972) = A(257)-A(1236)-A(1237)-A(1238)-A(1239)-A(1240)-A(1241)+A(3048) - Vdot(4973) = A(525)+A(1938)+A(2240)+A(2243)+A(2246)+A(2247)-A(2248)-A(2249)+A(7204)+A(9353)+A(9354)+A(9356)+A(9357)& - &+A(10955)+A(10958)+A(11132)+A(11153)+A(12335)+A(13362) - Vdot(4974) = A(184)+A(188)-A(1012)-A(1013)-A(1014)-A(1015)-A(1016)-A(1017)-A(1018)+A(2785) - Vdot(4975) = A(5061)+A(7404)+A(7414)+A(7417)-A(7419)-A(7420)-A(7421)-A(7422) - Vdot(4976) = A(4234)-A(6600)-A(6601)-A(6602)-A(6603)-A(6604)-A(6605)-A(6606)-A(6607) - Vdot(4977) = A(11783)+A(11784)-A(12783)-A(12784)-A(12785)-A(12786)-A(12787)-A(12788)-A(12789)-A(12790)+A(13554)& - &+A(13557) - Vdot(4978) = A(14615)+A(14618)+A(14793)+A(14797)+A(14831)+A(14833)-A(14836)-A(14837)-A(14838)+A(14839) - Vdot(4979) = A(9452)+A(9454)-A(11054)-A(11055)-A(11056)-A(11057)-A(11058)-A(11059)-A(11060)-A(11061)+A(12347)+A(12348) - Vdot(4980) = A(175)+A(176)-A(977)-A(978)-A(979)-A(980)-A(981)-A(982)-A(983)+A(2740)+A(2853)+A(5122)+A(5123)+A(5125)& - &+A(5126)+A(7498) - Vdot(4981) = A(160)+A(162)+A(451)-A(930)-A(931)-A(932)-A(933)-A(934)-A(935)+A(2695)+A(2744)+A(2748)+A(2845)+A(5011)& - &+A(5012)+A(5014)+A(5015)+A(7367) - Vdot(4982) = A(8682)-A(10454)-A(10455)-A(10456)-A(10457)+A(11854) - Vdot(4983) = A(4946)-A(7304)-A(7305)+A(7332)+A(7777)+A(7981)+A(8081)+A(8680)+A(9404)+A(9822)+A(11568)+A(11613)& - &+A(11655)+A(11858)+A(12909) - Vdot(4984) = A(11103)+A(11104)-A(12364)-A(12365)-A(12366)-A(12367)-A(12368)-A(12369)+A(13332)+A(13333) - Vdot(4985) = A(3816)+A(3817)+A(4021)+A(4022)+A(5646)+A(5649)+A(5651)-A(6139)-A(6140)-A(6141)-A(6142)-A(6143)-A(6144)& - &-A(6145)+A(6189)+A(6191)+A(8323)+A(8327) - Vdot(4986) = A(3316)+A(3317)+A(3423)+A(3425)+A(3730)+A(3731)+A(3922)+A(3923)+A(5510)+A(5513)+A(5515)-A(5520)-A(5521)& - &-A(5522)-A(5523)-A(5524)-A(5525)-A(5526)-A(5527)+A(5554)+A(5555)+A(5697)+A(5698)+A(7864)+A(7867) - Vdot(4987) = A(9085)+A(9088)-A(10708)-A(10709)-A(10710)-A(10711)-A(10712)+A(12120) - Vdot(4988) = -A(476)-A(477)-A(478)-A(479)-A(480)-A(481)-A(482)-A(483) - Vdot(4989) = A(7125)+A(7126)+A(7127)+A(7128)+A(7130)-A(9251)-A(9252)-A(9253)-A(9254)-A(9255)-A(9256)-A(9257)-A(9258)& - &+A(10869)+A(10872) - Vdot(4990) = A(2781)+A(2782)-A(5050)-A(5051)-A(5052)-A(5053)-A(5054)-A(5055)+A(7410)+A(7411) - Vdot(4991) = A(4411)-A(6810)-A(6811)-A(6812)-A(6813)+A(8848)+A(12434)+A(13323)+A(13324)+A(13326)+A(13327)+A(13957) - Vdot(4992) = A(1757)+A(4023)+A(4026)+A(4028)+A(4029)-A(4039)-A(4040)-A(4041)-A(4042)-A(4043)-A(4044)+A(6364)+A(6365)& - &+A(6367) - Vdot(4993) = A(5501)+A(5506)+A(5508)-A(7830)-A(7831)-A(7832)-A(7833)-A(7834)-A(7835)-A(7836)-A(7837)+A(9788)+A(9792) - Vdot(4994) = A(2883)+A(2884)-A(5149)-A(5150)-A(5151)-A(5152)-A(5153)-A(5154)-A(5155)-A(5156)+A(7528)+A(7529) - Vdot(4995) = A(52)-A(492)-A(493)-A(494)-A(495)-A(496)-A(497)-A(498)+A(2213)+A(7290)+A(7342)+A(7376)+A(8962)+A(9382)& - &+A(9385)+A(9387)+A(9388)+A(10986)+A(10987) - Vdot(4996) = A(6914)+A(7238)+A(8956)-A(8957)-A(8958)-A(8959)-A(8960)+A(8961)+A(9368)+A(9371)+A(9374) - Vdot(4997) = A(3623)-A(5909)-A(5910)-A(5911)-A(5912)-A(5913)-A(5914)+A(8118) - Vdot(4998) = A(3677)-A(5980)-A(5981)-A(5982)-A(5983)-A(5984)-A(5985) - Vdot(4999) = A(6499)+A(6533)-A(8524)-A(8525)-A(8526)-A(8527)-A(8528)-A(8529) - Vdot(5000) = A(93)+A(551)-A(695)-A(696)+A(784)+A(2262)+A(2273)+A(2276)+A(2398)+A(2404)+A(2451)+A(2454)+A(2455)+A(2456)& - &+A(2457)+A(2458)+A(2484)+A(2486)+A(2634)+A(4865)+A(4867)+A(4869)+A(4870)+A(4879)+A(4880)+A(4882)+A(4883)& - &+A(7210)+A(7253)+A(7254)+A(7257)+A(7258) - Vdot(5001) = A(3436)+A(3839)+A(5671)+A(5674)+A(5676)+A(5677)-A(5679)-A(5680)-A(5681)-A(5682)-A(5683)+A(5688)+A(6176)& - &+A(6178)+A(6263)+A(6372)+A(6374)+A(7984)+A(7985)+A(7987)+A(7990) - Vdot(5002) = A(4253)-A(6641)-A(6642)-A(6643)-A(6644)-A(6645)-A(6646)-A(6647)-A(6648) - Vdot(5003) = A(11872)-A(12862)-A(12863)-A(12864)-A(12865)-A(12866)-A(12867)-A(12868)-A(12869)+A(13594)+A(13597) - Vdot(5004) = A(11998)-A(12975)-A(12976)-A(12977)-A(12978)-A(12979)-A(12980)-A(12981)-A(12982)+A(13637)+A(13640)& - &+A(13728)+A(13729)+A(13730)+A(14133)+A(14435)+A(14436)+A(14437)+A(14585)+A(14586)+A(14588)+A(14590)& - &+A(14818)+A(14820) - Vdot(5005) = A(11871)-A(12854)-A(12855)-A(12856)-A(12857)-A(12858)-A(12859)-A(12860)-A(12861)+A(12908)+A(12911) - Vdot(5006) = A(10771)+A(12174)+A(12175)+A(12179)-A(12201)-A(12202)-A(12203)-A(12204)-A(12205)-A(12206)-A(12207)& - &-A(12208)+A(13135)+A(13187)+A(13190)+A(14512)+A(14513) - Vdot(5007) = A(59)+A(246)+A(249)-A(527)-A(528)-A(529)-A(530)-A(531)-A(532)-A(533)+A(2251)+A(2379)+A(4834)+A(4837)& - &+A(4839)+A(4840)+A(7224)+A(7225) - Vdot(5008) = A(2380)+A(2382)-A(4834)-A(4835)-A(4836)-A(4837)-A(4838)-A(4839)-A(4840)-A(4841)+A(7226)+A(7227)+A(11138)& - &+A(11141)+A(11142) - Vdot(5009) = A(1257)+A(3046)+A(3069)-A(3073)-A(3074)-A(3075)+A(8133)+A(13373) - Vdot(5010) = A(5047)+A(7401)+A(7403)-A(7405)-A(7406)-A(7407)+A(7408)+A(7418) - Vdot(5011) = A(3840)+A(4402)+A(6162)+A(6165)+A(6167)+A(6168)-A(6170)-A(6171)-A(6172)-A(6173)+A(8328)+A(8329)+A(8331)& - &+A(8334) - Vdot(5012) = A(622)+A(2317)+A(2365)+A(2367)-A(2369)-A(2370)-A(2371)+A(13358) - Vdot(5013) = A(4231)+A(4323)-A(6591)-A(6592)-A(6593)-A(6594) - Vdot(5014) = A(7120)+A(7145)+A(7149)-A(9243)-A(9244)-A(9245)-A(9246)-A(9247)-A(9248)-A(9249)-A(9250)+A(10862)+A(10865) - Vdot(5015) = A(4187)-A(6537)-A(6538)-A(6539)-A(6540)-A(6541)-A(6542)-A(6543)+A(8568) - Vdot(5016) = A(1867)-A(4205)-A(4206)-A(4207)-A(4208)-A(4209)-A(4210)-A(4211)+A(10381)+A(11810)+A(11812)+A(11814)& - &+A(11815)+A(12803)+A(12806)+A(14204)+A(14467)+A(14468)+A(14470)+A(14472)+A(14724)+A(14726) - Vdot(5017) = A(10738)+A(10739)-A(12144)-A(12145)-A(12146)-A(12147)-A(12148)-A(12149)-A(12150)-A(12151)+A(12216)& - &+A(13127)+A(13130) - Vdot(5018) = A(9806)+A(9811)+A(9812)+A(9813)+A(9814)+A(9815)+A(9819)-A(11431)-A(11432)-A(11433) - Vdot(5019) = A(12061)+A(13048)+A(13051)+A(13053)+A(13054)-A(13056)-A(13057)-A(13058)-A(13059)-A(13060)-A(13061)& - &+A(13700)+A(13701)+A(13703) - Vdot(5020) = A(1866)-A(4198)-A(4199)-A(4200)-A(4201)-A(4202)-A(4203)-A(4204)+A(13713)+A(14105)+A(14106)+A(14108)& - &+A(14110)+A(14413)+A(14414)+A(14416) - Vdot(5021) = A(10626)-A(12033)-A(12034)-A(12035)-A(12036)-A(12037)-A(12038)-A(12039)-A(12040)+A(13019)+A(13030) - Vdot(5022) = A(6665)-A(8714)-A(8715)-A(8716)-A(8717)-A(8718)-A(8719)+A(10485) - Vdot(5023) = A(828)+A(2586)-A(2589)-A(2590)-A(2591)+A(4168)+A(8539)+A(8540)+A(8541)+A(8542)+A(8543)+A(8548)+A(10360)& - &+A(10361)+A(10363)+A(10364)+A(10521)+A(11794)+A(11797)+A(12936)+A(12937)+A(12938)+A(12939)+A(12940)& - &+A(12945)+A(13611)+A(13617)+A(13623)+A(14732)+A(14734)+A(14737) - Vdot(5024) = A(8760)+A(10516)-A(10520)-A(10521)-A(10522)-A(10523)-A(10524) - Vdot(5025) = A(6609)+A(6610)+A(6616)-A(8625)-A(8626)-A(8627)-A(8628)-A(8629)-A(8630)-A(8631)-A(8632)-A(8633)+A(10414) - Vdot(5026) = A(1986)+A(2312)+A(2381)+A(4430)+A(4432)+A(4434)-A(4435)-A(4436)-A(4437)+A(11111)+A(12376)+A(12427)& - &+A(12430)+A(12431) - Vdot(5027) = A(14234)+A(14235)+A(14495)+A(14499)-A(14501)-A(14502)-A(14503)-A(14504)-A(14505)-A(14506)-A(14507)& - &-A(14508)+A(14753)+A(14763) - Vdot(5028) = A(7082)-A(9192)-A(9193)-A(9194)-A(9195)-A(9196)-A(9197)+A(9332) - Vdot(5029) = A(4550)+A(4582)+A(6923)+A(6924)-A(6931)-A(6932)-A(6933)-A(6934)-A(6935)-A(6936)-A(6937)-A(6938)+A(8981)& - &+A(8984) - Vdot(5030) = A(1637)+A(1638)+A(1640)+A(3754)+A(3756)-A(3757)-A(3758)-A(3759)-A(3760)-A(3761)-A(3762)+A(3763) - Vdot(5031) = A(6190)+A(6385)+A(6386)+A(7251)+A(8332)+A(8338)-A(8340)-A(8341)+A(9707)+A(12585)+A(12587)+A(12589)& - &+A(12590)+A(12621)+A(12730)+A(13443)+A(13444)+A(13960)+A(13970) - Vdot(5032) = A(448)-A(2035)-A(2036)-A(2037)-A(2038)-A(2039)-A(2040)+A(4503) - Vdot(5033) = A(6650)+A(6651)+A(6657)-A(8691)-A(8692)-A(8693)-A(8694)-A(8695)-A(8696)-A(8697)-A(8698)-A(8699)+A(10465) - Vdot(5034) = A(3551)+A(3552)+A(5808)+A(5811)+A(5813)-A(5818)-A(5819)-A(5820)-A(5821)-A(5822)-A(5823)-A(5824)-A(5825)& - &+A(5855)+A(6273)+A(6274)+A(8079)+A(8083) - Vdot(5035) = A(6614)-A(8634)-A(8635)-A(8636)-A(8637)-A(8638)-A(8639)+A(8641) - Vdot(5036) = A(2637)-A(4967)-A(4968)-A(4969)-A(4970)-A(4971)-A(4972)-A(4973)-A(4974)+A(7324)+A(7327)+A(10373)+A(10374) - Vdot(5037) = A(3479)+A(3757)-A(5733)-A(5734)-A(5735)+A(5740)+A(5755)+A(5756)+A(5759)+A(6107)+A(6122)+A(6123)+A(6126) - Vdot(5038) = A(2593)-A(4935)-A(4936)-A(4937)-A(4938)-A(4939)-A(4940)+A(5447)+A(7300)+A(7303)+A(7801)+A(10004)+A(10065)& - &+A(10130)+A(12529) - Vdot(5039) = A(7106)+A(7108)-A(9227)-A(9228)-A(9229)-A(9230)-A(9231)-A(9232) - Vdot(5040) = A(8647)-A(10423)-A(10424)-A(10425)-A(10426)-A(10427)-A(10428) - Vdot(5041) = A(2183)-A(4726)-A(4727)-A(4728)-A(4729)-A(4730)-A(4731)-A(4732)+A(10866) - Vdot(5042) = A(69)-A(569)-A(570)-A(571)-A(572)+A(961)+A(2721)+A(2724)+A(2725)+A(7462) - Vdot(5043) = A(284)-A(1312)-A(1313)-A(1314)-A(1315)-A(1316)-A(1317)-A(1318)+A(3138)+A(12403)+A(12404)+A(12406)& - &+A(12407)+A(13343) - Vdot(5044) = A(12220)+A(12222)+A(12223)+A(12224)+A(12226)-A(13195)-A(13196)-A(13197)-A(13198)-A(13199)-A(13200)& - &-A(13201)-A(13202)+A(13856)+A(13859) - Vdot(5045) = A(197)+A(200)-A(1052)-A(1053)-A(1054)-A(1055)-A(1056)-A(1057)-A(1058)+A(2840) - Vdot(5046) = -A(18)+A(21)-A(39)+A(2172)+A(2458)+A(2472)+A(2607)+A(2623)+A(2666)+A(3008)+A(3038)+A(3061)+A(3113)& - &+A(3136)+A(3174)+A(4114)+A(4150)+A(4217)+A(4222)+A(4566)+A(4631)+A(4675)+A(5539)+A(5837)+A(5913)+A(5985)& - &+A(6697)+A(7099)+A(8508)+A(8528)+A(8543)+A(8565)+A(8585)+A(8738)+A(9177)+A(9237)+A(9263)+A(9325)+A(9724)& - &+A(9815)+A(9832)+A(10397)+A(10403)+A(10428)+A(10483)+A(10805)+A(10908)+A(11827)+A(12940) - Vdot(5047) = A(10392)-A(11823)-A(11824)-A(11825)-A(11826)-A(11827) - Vdot(5048) = A(477)-A(2168)-A(2169)-A(2170)-A(2171)-A(2172)-A(2173) - Vdot(5049) = A(1837)+A(4138)+A(4152)+A(4153)+A(4154)-A(4155)-A(4156)-A(4157)-A(4158)-A(4159)-A(4160)-A(4161) - Vdot(5050) = A(1823)+A(4133)+A(4135)+A(4136)-A(4139)-A(4140)-A(4141)-A(4142)-A(4143)-A(4144) - Vdot(5051) = -A(238)-A(239)-A(240)-A(241)-A(242)-A(243)+A(2755) - Vdot(5052) = A(10835)+A(10836)+A(10837)+A(10838)+A(10840)-A(12235)-A(12236)-A(12237)-A(12238)-A(12239)-A(12240)& - &-A(12241)-A(12242)+A(13218)+A(13221) - Vdot(5053) = A(428)-A(1945)-A(1946)-A(1947)-A(1948)-A(1949)-A(1950)+A(2570)+A(4388)+A(4445)+A(4914)+A(4915)+A(4917)& - &+A(4919)+A(7278)+A(7279)+A(7280)+A(7740)+A(9713) - Vdot(5054) = A(14743)+A(14744)-A(14911)-A(14912)-A(14913)-A(14914)-A(14915)-A(14916)-A(14917)-A(14918)+A(14941)& - &+A(14942)+A(15028)+A(15037) - Vdot(5055) = A(758)-A(2525)-A(2526)-A(2527)-A(2528)+A(6852)+A(7545)+A(8893)+A(8896)+A(8898)+A(11016)+A(13317)+A(13319)& - &+A(13952)+A(13953)+A(13955)+A(13956)+A(14356)+A(14359) - Vdot(5056) = A(186)+A(190)-A(1026)-A(1027)-A(1028)-A(1029)-A(1030)-A(1031)+A(2806) - Vdot(5057) = A(606)+A(2331)+A(2337)+A(2347)+A(2350)+A(2352)-A(2353)-A(2354)-A(2355)+A(11096)+A(11210)+A(11216) - Vdot(5058) = A(1419)+A(3232)-A(3264)-A(3265)-A(3266)-A(3267)-A(3268)-A(3269)+A(3312)+A(3359)+A(3547)+A(3605)+A(3663)& - &+A(3871)+A(5424)+A(5452)+A(5453)+A(5457) - Vdot(5059) = A(9731)-A(11374)-A(11375)-A(11376)-A(11377)-A(11378)-A(11379) - Vdot(5060) = A(61)+A(254)-A(534)-A(535)-A(536)-A(537)-A(538)-A(539)+A(2258)+A(10570)+A(10571)+A(10573)+A(10575)& - &+A(11161)+A(11985)+A(11986) - Vdot(5061) = A(192)+A(195)-A(1039)-A(1040)-A(1041)-A(1042)-A(1043)-A(1044)-A(1045)+A(2824) - Vdot(5062) = A(156)+A(158)+A(570)-A(916)-A(917)-A(918)-A(919)-A(920)-A(921)-A(922)+A(2299)+A(2300)+A(2302)+A(2304)& - &+A(2683)+A(2829)+A(4789)+A(4790)+A(9426)+A(11025) - Vdot(5063) = A(5099)+A(7454)+A(7464)+A(7467)-A(7469)-A(7470)-A(7471)-A(7472) - Vdot(5064) = A(5086)+A(7451)+A(7453)-A(7455)-A(7456)-A(7457)+A(7458)+A(7468) - Vdot(5065) = A(225)+A(226)-A(1147)-A(1148)-A(1149)-A(1150)-A(1151)-A(1152)-A(1153) - Vdot(5066) = A(3604)-A(5885)-A(5886)-A(5887)-A(5888)-A(5889)-A(5890)-A(5891)+A(5907)+A(5926)+A(5928)+A(5930) - Vdot(5067) = A(1206)+A(2996)+A(3010)-A(3014)-A(3015)-A(3016)+A(7197)+A(7761)+A(8070) - Vdot(5068) = A(3661)-A(5955)-A(5956)-A(5957)-A(5958)-A(5959)-A(5960)-A(5961)-A(5962)+A(5978)+A(5998)+A(5999)+A(6001) - Vdot(5069) = A(1857)+A(4180)+A(4182)+A(4183)-A(4188)-A(4189)-A(4190)-A(4191)-A(4192)-A(4193) - Vdot(5070) = A(3564)+A(4032)-A(5832)-A(5833)-A(5834)-A(5835)-A(5836)-A(5837) - Vdot(5071) = A(544)+A(778)+A(2263)+A(2266)+A(2268)-A(2269)-A(2270)-A(2271)+A(2272)+A(7219)+A(7220)+A(9359)+A(9360)& - &+A(9362)+A(9363)+A(10959)+A(10962)+A(11028) - Vdot(5072) = A(14145)+A(14148)+A(14438)+A(14440)+A(14442)-A(14443)-A(14444)-A(14445)-A(14446)-A(14447)-A(14448)& - &+A(14449) - Vdot(5073) = A(12136)-A(13119)-A(13120)-A(13121)-A(13122)-A(13123)-A(13124)+A(13780)+A(13787) - Vdot(5074) = A(6625)-A(8649)-A(8650)-A(8651)-A(8652)-A(8653)-A(8654)-A(8655)+A(10431) - Vdot(5075) = A(10475)-A(11874)-A(11875)-A(11876)-A(11877)-A(11878)-A(11879)-A(11880)-A(11881)-A(11882)+A(12871)& - &+A(12875) - Vdot(5076) = A(3360)+A(3725)+A(3760)-A(5568)-A(5569)-A(5570)-A(5571)-A(5572)-A(5573)-A(5574) - Vdot(5077) = A(199)+A(202)-A(1066)-A(1067)-A(1068)-A(1069)-A(1070)-A(1071)-A(1072)+A(2859) - Vdot(5078) = A(171)+A(174)-A(971)-A(972)-A(973)-A(974)-A(975)-A(976)+A(2735)+A(2864)+A(5134)+A(5137)+A(5139)+A(5140)& - &+A(7511)+A(7512) - Vdot(5079) = A(8944)+A(8947)+A(8948)-A(10568)-A(10569)-A(10570)-A(10571)-A(10572)-A(10573)-A(10574)-A(10575)+A(11162)& - &+A(11163)+A(11987)+A(11988)+A(15084)+A(15086) - Vdot(5080) = A(4209)+A(6567)+A(6568)+A(6572)-A(6574)-A(6575)+A(6802)+A(8713)+A(11816)+A(11818)+A(14727)+A(14730)& - &+A(14733)+A(14736) - Vdot(5081) = A(453)-A(2054)-A(2055)-A(2056)-A(2057)-A(2058)-A(2059)-A(2060) - Vdot(5082) = A(198)+A(201)-A(1059)-A(1060)-A(1061)-A(1062)-A(1063)-A(1064)-A(1065)+A(2849) - Vdot(5083) = A(7028)+A(7030)+A(7031)+A(7034)-A(9096)-A(9097)-A(9098)-A(9099)-A(9100)-A(9101)-A(9102)+A(10765)+A(12186)& - &+A(13165)+A(13167)+A(13170) - Vdot(5084) = A(10740)+A(12146)+A(12147)+A(12149)+A(12151)-A(12152)-A(12153)-A(12154)-A(12155)-A(12156)-A(12157)& - &-A(12158)+A(13125)+A(13126)+A(13128) - Vdot(5085) = A(12157)+A(12177)+A(13129)+A(13131)+A(13133)-A(13137)-A(13138)-A(13139)+A(13774)+A(13776)+A(13779)& - &+A(13811)+A(13812)+A(13820)+A(13821)+A(13822)+A(15054) - Vdot(5086) = A(10632)+A(11994)-A(12041)-A(12042)-A(12043)+A(12104)+A(12105)+A(12115)+A(13092)+A(13094)+A(13098)& - &+A(13142)+A(13143)+A(13145)+A(13755)+A(14070)+A(14163)+A(14451)+A(14453)+A(14455)+A(14456) - Vdot(5087) = A(89)+A(510)-A(676)-A(677)-A(678)+A(2227)+A(2231)+A(2655)+A(2672)+A(2677)+A(2679)+A(4909)+A(7268) - Vdot(5088) = A(7579)+A(7580)-A(9609)-A(9610)-A(9611)-A(9612)-A(9613)-A(9614)-A(9615)-A(9616)+A(11250)+A(11251) - Vdot(5089) = A(3416)+A(3813)+A(4016)-A(5646)-A(5647)-A(5648)-A(5649)-A(5650)-A(5651)-A(5652)+A(6160)+A(6183)+A(6186)& - &+A(6188) - Vdot(5090) = A(7494)+A(7495)-A(9532)-A(9533)-A(9534)-A(9535)-A(9536)-A(9537)-A(9538)-A(9539)+A(11151)+A(11152) - Vdot(5091) = A(6729)-A(8753)-A(8754)-A(8755)-A(8756)-A(8757)-A(8758)-A(8759)-A(8760)+A(10511) - Vdot(5092) = A(478)-A(2174)-A(2175)-A(2176)-A(2177)-A(2178)-A(2179) - Vdot(5093) = A(1844)+A(4163)+A(4164)+A(4166)-A(4167)-A(4168)-A(4169)-A(4170)-A(4171)-A(4172)+A(4227) - Vdot(5094) = A(876)+A(2632)+A(2633)+A(2636)-A(2639)-A(2640)+A(5683)+A(5758)+A(6326)+A(8689) - Vdot(5095) = A(10752)+A(10758)+A(10769)+A(12170)+A(12172)-A(12175)-A(12176)-A(12177)-A(12178)-A(12179)-A(12180)& - &-A(12181)+A(14511) - Vdot(5096) = A(261)-A(1253)-A(1254)-A(1255)-A(1256)-A(1257)-A(1258)-A(1259)+A(3070)+A(12458)+A(12459)+A(12461)& - &+A(12462)+A(13370) - Vdot(5097) = A(438)-A(1982)-A(1983)-A(1984)-A(1985)-A(1986)-A(1987)-A(1988)+A(4524)+A(9504)+A(9595)+A(11118)+A(11119)& - &+A(11121)+A(11123)+A(12372)+A(12373) - Vdot(5098) = A(427)+A(1295)-A(1939)-A(1940)-A(1941)-A(1942)-A(1943)-A(1944)+A(4381)+A(4435)+A(6828)+A(6829)+A(6831)& - &+A(6833)+A(7479)+A(8251)+A(8252)+A(8869)+A(8871)+A(11114)+A(11678) - Vdot(5099) = A(4695)+A(4703)+A(4754)-A(7066)-A(7067)-A(7068)-A(7069)-A(7070)-A(7071)-A(7072)-A(7073)+A(9165)+A(9168) - Vdot(5100) = A(2674)+A(2675)-A(4983)-A(4984)-A(4985)-A(4986)-A(4987)-A(4988)+A(6061)+A(6116)+A(7334)+A(7335)+A(9947)& - &+A(12613) - Vdot(5101) = A(2354)+A(2355)+A(2417)+A(2422)-A(4815)-A(4816)-A(4817)-A(4818)-A(4819)-A(4820)+A(7208)+A(7209)+A(11214)& - &+A(14790) - Vdot(5102) = A(3329)+A(3842)+A(4196)-A(5534)-A(5535)-A(5536)-A(5537)-A(5538)-A(5539) - Vdot(5103) = A(3965)-A(6299)-A(6300)-A(6301)-A(6302)-A(6303)+A(6308)+A(6322)+A(6324)+A(6325)+A(6327) - Vdot(5104) = A(12297)-A(13287)-A(13288)-A(13289)-A(13290)-A(13291)-A(13292)+A(13298)+A(13921)+A(13922)+A(13934)& - &+A(14328)+A(14808)+A(14974) - Vdot(5105) = A(8858)-A(10552)-A(10553)-A(10554)-A(10555)+A(14097)+A(14189) - Vdot(5106) = A(112)+A(115)-A(766)-A(767)-A(768)-A(769)-A(770)-A(771)-A(772)-A(773)+A(1603)+A(2536)+A(2539)+A(2801)& - &+A(3679)+A(3680)+A(4515)+A(4805)+A(4806)+A(4807)+A(5351)+A(5962)+A(5989)+A(5992)+A(5993)+A(8177)+A(8208)& - &+A(8209)+A(8211)+A(10129)+A(10130)+A(11084)+A(11647)+A(11648)+A(11649)+A(12692)+A(13499)+A(13500)+A(13502)& - &+A(13503)+A(14022) - Vdot(5107) = A(221)+A(222)-A(1133)-A(1134)-A(1135)-A(1136)-A(1137)-A(1138)-A(1139) - Vdot(5108) = A(2889)-A(5157)-A(5158)-A(5159)-A(5160)-A(5161)-A(5162)-A(5163) - Vdot(5109) = A(178)+A(181)-A(991)-A(992)-A(993)-A(994)-A(995)-A(996)-A(997)+A(2762) - Vdot(5110) = A(6845)+A(7749)+A(8878)+A(8885)-A(8887)-A(8888)-A(8889)+A(8891)+A(8905)+A(8911)+A(8916)+A(13348)+A(13350) - Vdot(5111) = A(12010)+A(12016)+A(12041)+A(12042)-A(12983)-A(12984)-A(12985)-A(12986)-A(12987)-A(12988)+A(13641)& - &+A(13644) - Vdot(5112) = A(219)+A(220)-A(1126)-A(1127)-A(1128)-A(1129)-A(1130)-A(1131)-A(1132)+A(2958) - Vdot(5113) = A(14207)+A(14208)+A(14210)+A(14354)-A(14473)-A(14474)-A(14475) - Vdot(5114) = A(9335)-A(10939)-A(10940)-A(10941)-A(10942)-A(10943)-A(10944)-A(10945)+A(13215) - Vdot(5115) = A(5041)+A(7374)+A(7391)+A(7394)-A(7396)-A(7397)-A(7398)-A(7399) - Vdot(5116) = A(78)-A(623)-A(624)-A(625)-A(626)-A(627)-A(628)-A(629)+A(2373)+A(7469)+A(9509)+A(9510)+A(9512)+A(9514)& - &+A(9591)+A(11124)+A(11125) - Vdot(5117) = A(4436)+A(4437)-A(6826)-A(6827)-A(6828)-A(6829)-A(6830)-A(6831)-A(6832)-A(6833)+A(8872)+A(8873)+A(12370)& - &+A(12371)+A(12433) - Vdot(5118) = A(1900)-A(4330)-A(4331)-A(4332)-A(4333)-A(4334)-A(4335)-A(4336)-A(4337)+A(6632) - Vdot(5119) = A(2911)-A(5185)-A(5186)-A(5187)-A(5188)-A(5189)-A(5190)-A(5191) - Vdot(5120) = A(7419)+A(7568)-A(9455)-A(9456)-A(9457)-A(9458)-A(9459)-A(9460)-A(9461)+A(9464)+A(9465)+A(9467)+A(9469)& - &+A(11074)+A(11075) - Vdot(5121) = A(53)+A(236)-A(499)-A(500)-A(501)-A(502)-A(503)-A(504)-A(505)+A(2223)+A(2269)+A(2311)+A(4770)+A(4771)& - &+A(4773)+A(4775)+A(7181)+A(7182)+A(7437) - Vdot(5122) = A(7132)+A(7133)-A(9264)-A(9265)-A(9266)-A(9267)-A(9268)-A(9269) - Vdot(5123) = A(3309)+A(3358)+A(3419)+A(3723)+A(3868)+A(3917)-A(5510)-A(5511)-A(5512)-A(5513)-A(5514)-A(5515)-A(5516)& - &+A(5532)+A(5551)+A(5553)+A(5557)+A(5582)+A(5608)+A(5610)+A(5611)+A(5613)+A(5669)+A(5696)+A(5700)+A(6202)& - &+A(6227)+A(6229)+A(6230)+A(6231) - Vdot(5124) = A(110)+A(126)-A(229)-A(230)-A(231)+A(454)+A(1828)+A(2395)+A(4536) - Vdot(5125) = A(107)+A(109)-A(744)-A(745)-A(746)-A(747)-A(748)-A(749)-A(750)-A(751)+A(1578)+A(2510)+A(2513)+A(3218)& - &+A(3621)+A(3622)+A(4467)+A(4488)+A(4490)+A(4499)+A(5309)+A(5882)+A(5883)+A(5884)+A(5918)+A(5921)+A(5922)& - &+A(8113)+A(8116)+A(8117)+A(8148)+A(8149)+A(8151)+A(9637)+A(10064)+A(10065)+A(11605)+A(11606)+A(11607)& - &+A(11613)+A(11655)+A(12463)+A(12465)+A(12468)+A(12469)+A(12673)+A(13487)+A(13489)+A(13491)+A(13492)& - &+A(13982)+A(14017) - Vdot(5126) = A(3545)+A(3869)+A(3918)-A(5808)-A(5809)-A(5810)-A(5811)-A(5812)-A(5813)-A(5814)+A(5830)+A(5849)+A(5851)& - &+A(5853)+A(6257)+A(6270)+A(6272)+A(6276)+A(6277) - Vdot(5127) = A(1896)-A(4308)-A(4309)-A(4310)-A(4311)-A(4312)-A(4313)-A(4314)+A(7343) - Vdot(5128) = A(131)+A(132)+A(135)-A(849)-A(850)-A(851)-A(852)-A(853)-A(854)-A(855)-A(856)+A(2613)+A(2614)+A(12210)& - &+A(14936) - Vdot(5129) = A(64)+A(86)+A(255)-A(547)-A(548)-A(549)-A(550)-A(551)-A(552)-A(553)+A(2274)+A(2353)+A(2416)+A(2419)& - &+A(2420)+A(2421)+A(4816)+A(4817)+A(4819)+A(4820)+A(7207)+A(11213) - Vdot(5130) = A(14282)+A(14308)+A(14309)-A(14549)-A(14550)-A(14551)-A(14552)-A(14553)-A(14554)+A(14599)+A(14784)& - &+A(15058)+A(15124) - Vdot(5131) = A(10817)+A(10818)+A(10819)+A(10858)+A(10859)-A(12227)-A(12228)-A(12229)-A(12230)-A(12231)-A(12232)& - &-A(12233)-A(12234)+A(13204)+A(13214) - Vdot(5132) = A(414)-A(1880)-A(1881)-A(1882)-A(1883)-A(1884)-A(1885)-A(1886) - Vdot(5133) = A(4957)-A(7306)-A(7307)-A(7308)-A(7309)-A(7310)-A(7311)-A(7312)-A(7313)+A(9396)+A(9399) - Vdot(5134) = A(6668)+A(8642)+A(8662)-A(8720)-A(8721)-A(8722)-A(8723)+A(10492) - Vdot(5135) = A(297)-A(1357)-A(1358)-A(1359)-A(1360)-A(1361)-A(1362)-A(1363)+A(3185)+A(7599)+A(12472)+A(12473)+A(12475)& - &+A(12476)+A(13378) - Vdot(5136) = A(2286)+A(2288)-A(4783)-A(4784)-A(4785)-A(4786)-A(4787)-A(4788)+A(7195)+A(7196)+A(8877)+A(9712)+A(11194)& - &+A(11196) - Vdot(5137) = A(2571)+A(2572)-A(4912)-A(4913)-A(4914)-A(4915)-A(4916)-A(4917)-A(4918)-A(4919)+A(7281)+A(7282)+A(7730)& - &+A(7732)+A(9714)+A(9715)+A(11260)+A(11276)+A(11297)+A(11318)+A(11339)+A(12384)+A(12390)+A(12449)+A(12463)& - &+A(12477)+A(12494)+A(12508) - Vdot(5138) = A(223)+A(224)-A(1140)-A(1141)-A(1142)-A(1143)-A(1144)-A(1145)-A(1146) - Vdot(5139) = A(1948)+A(2237)+A(3001)+A(3544)+A(3547)+A(3868)+A(3872)+A(3916)+A(3917)+A(3920)+A(3922)+A(3923)+A(3964)& - &+A(3967)+A(4016)+A(4019)+A(4021)+A(4022)+A(4079)+A(4080)+A(4387)-A(4392)-A(4393)-A(4394)+A(5809)+A(5832)& - &+A(5833)+A(5834)+A(5835)+A(5837)+A(5843)+A(6264)+A(6300)+A(6303)+A(6315)+A(6331)+A(6342)+A(6356)+A(6373)& - &+A(6375)+A(6385)+A(6390)+A(6395)+A(6412)+A(6417)+A(6420)+A(6421)+A(6423)+A(6424)+A(6453)+A(6455)+A(6464)& - &+A(7283)+A(8069)+A(8077)+A(8082)+A(8088)+A(8358)+A(8361)+A(8447)+A(8466)+A(8468)+A(8470)+A(8471)+A(8481)& - &+A(8482)+A(8483)+A(8484)+A(10002)+A(10013)+A(10021)+A(10022)+A(10024)+A(10025)+A(10028)+A(10292)+A(10293)& - &+A(10294)+A(10323)+A(10327)+A(10328)+A(10332)+A(11569)+A(11570)+A(13979)+A(13982)+A(13985)+A(13988)& - &+A(13991)+A(14044) - Vdot(5140) = A(5022)+A(7371)+A(7373)+A(7375)-A(7376)-A(7377)-A(7378)-A(7379)+A(7395) - Vdot(5141) = A(4017)+A(4079)-A(6354)-A(6355)-A(6356)-A(6357)-A(6358)-A(6359)-A(6360)+A(6368)+A(6379)+A(6382)+A(6384)& - &+A(6429)+A(6459)+A(6461)+A(6463) - Vdot(5142) = A(106)+A(149)+A(150)+A(429)+A(435)+A(729)+A(732)+A(734)+A(735)-A(737)-A(738)-A(739)-A(740)-A(741)-A(742)& - &-A(743)+A(1199)+A(1200)+A(1273)+A(1274)+A(2500)+A(2501)+A(2505)+A(2687)+A(2718)+A(2738)+A(2797)+A(2801)& - &+A(2837)+A(3585)+A(3865)+A(6758)+A(7377)+A(8078)+A(8783)+A(8784)+A(8785)+A(8786)+A(8868)+A(10324)+A(13522) - Vdot(5143) = A(806)+A(1974)+A(2287)+A(2565)+A(2567)+A(2569)-A(2570)-A(2571)-A(2572)+A(4418)+A(4421)+A(4424)+A(11033)& - &+A(11257)+A(11275)+A(11296)+A(11317)+A(11338)+A(12341)+A(12381)+A(12386)+A(12389)+A(12392)+A(12451)& - &+A(12454)+A(12455)+A(12465)+A(12468)+A(12469)+A(12480)+A(12482)+A(12483)+A(12497)+A(12499)+A(12500)& - &+A(12516)+A(12518)+A(12519) - Vdot(5144) = A(217)+A(218)-A(1119)-A(1120)-A(1121)-A(1122)-A(1123)-A(1124)-A(1125)+A(2951) - Vdot(5145) = A(116)+A(151)+A(153)+A(436)+A(767)+A(769)+A(771)+A(773)-A(786)-A(787)-A(788)-A(789)-A(790)-A(791)-A(792)& - &+A(1309)+A(1310)+A(2345)+A(2517)+A(2535)+A(2537)+A(2555)+A(2732)+A(2799)+A(2800)+A(2872)+A(4398)+A(4471)& - &+A(7688)+A(8202) - Vdot(5146) = A(209)+A(211)-A(1093)-A(1094)-A(1095)-A(1096)-A(1097)-A(1098)-A(1099) - Vdot(5147) = A(169)+A(172)-A(957)-A(958)-A(959)-A(960)-A(961)-A(962)-A(963)+A(2722)+A(2818)+A(2898)+A(2912)+A(5089)& - &+A(5091)+A(5093)+A(5094)+A(7459) - Vdot(5148) = A(75)-A(602)-A(603)-A(604)-A(605)-A(606)-A(607)-A(608)+A(2348)+A(7445)+A(7556)+A(7557)+A(9484)+A(9485)& - &+A(9487)+A(9489)+A(11092)+A(11093) - Vdot(5149) = A(242)-A(1202)-A(1203)-A(1204)-A(1205)-A(1206)-A(1207)-A(1208)+A(2285)+A(3011)+A(4448)+A(4784)+A(4785)& - &+A(4787)+A(4788)+A(7194)+A(7739) - Vdot(5150) = A(4458)-A(6848)-A(6849)-A(6850)-A(6851)-A(6852)-A(6853)-A(6854)+A(7352)+A(8894)+A(9412)+A(9413)+A(9415)& - &+A(9417)+A(9563)+A(11012)+A(11013) - Vdot(5151) = A(430)-A(1951)-A(1952)-A(1953)-A(1954)-A(1955)-A(1956)-A(1957)+A(4396)+A(9451)+A(9594)+A(11056)+A(11057)& - &+A(11059)+A(11061)+A(12345)+A(12346) - Vdot(5152) = A(2972)+A(2973)+A(4130)+A(4864)+A(4942)+A(4943)+A(4944)-A(5265)-A(5266)-A(5267)-A(5268)-A(5269)-A(5270)& - &-A(5271)-A(5272)+A(7648)+A(7651)+A(7659)+A(7661)+A(8492)+A(8494)+A(8495)+A(8497)+A(10356)+A(10357)& - &+A(10358)+A(10498)+A(11368)+A(13602)+A(13604) - Vdot(5153) = -A(400)-A(401)-A(402)-A(403)-A(404)-A(405)-A(406)+A(4847) - Vdot(5154) = A(6626)-A(8656)-A(8657)-A(8658)-A(8659)-A(8660)-A(8661)+A(10441) - Vdot(5155) = A(2628)-A(4959)-A(4960)-A(4961)-A(4962)-A(4963)-A(4964)-A(4965)-A(4966)+A(7317)+A(7320)+A(11846)+A(11847) - Vdot(5156) = A(857)-A(2619)-A(2620)-A(2621)-A(2622)-A(2623)+A(7838) - Vdot(5157) = A(1993)+A(2013)+A(4438)+A(4441)-A(4444)-A(4445)-A(4446)+A(4447)+A(4468)+A(4472)+A(4475)+A(8477) - Vdot(5158) = A(2522)+A(2523)-A(4884)-A(4885)-A(4886)-A(4887)-A(4888)-A(4889)+A(7260)+A(7263)+A(7750)+A(8750)+A(8751)& - &+A(8752)+A(8843)+A(8880)+A(8882)+A(8888)+A(8904)+A(9702)+A(12398)+A(13966)+A(13968)+A(15086)+A(15170) - Vdot(5159) = A(10657)+A(10658)-A(12058)-A(12059)-A(12060)-A(12061)+A(13665) - Vdot(5160) = A(54)+A(252)+A(289)+A(311)-A(424)-A(425)+A(554)+A(691)+A(692)+A(696)+A(790)+A(2260)+A(2261)+A(2277)& - &+A(2335)+A(2336)+A(2360)+A(2386)+A(2387)+A(2400)+A(2445)+A(2460)+A(2463)+A(2465)+A(2466)+A(2477)+A(2538)& - &+A(2550)+A(2552)+A(2554)+A(2557)+A(2558)+A(2697)+A(2737)+A(2738)+A(2808)+A(2809)+2*A(2871)+A(2872)+A(2904)& - &+A(3025)+A(3028)+A(3032)+A(3034)+A(3035)+A(3036)+A(3037)+A(3038)+A(3148)+A(3153)+2*A(3221)+2*A(3225)& - &+A(4306)+A(4428)+A(4505)+A(4507)+A(4585)+A(4587)+A(4644)+A(4646)+A(4801)+A(4804)+A(4864)+A(4871)+A(4872)& - &+A(4875)+A(5295)+A(5298)+A(5300)+A(5301)+A(6998)+A(7369)+A(7423)+A(7426)+A(7427)+A(7545)+A(7668)+A(7670)& - &+A(7671)+A(7885)+A(8940)+A(10610)+A(10621)+A(10623)+A(10632)+A(10662)+A(10694)+A(10696)+A(11101)+A(11204)& - &+A(12025)+A(12115)+A(13003)+A(13005)+A(13040)+A(13042)+A(13047)+A(13064)+A(13066)+A(13077)+A(13079)& - &+A(13755)+A(13757)+A(13897)+A(13899)+A(13901)+A(13902)+A(13936)+A(13938)+A(14092)+A(14786)+A(14788)& - &+A(14806)+A(14845)+A(14847)+A(14849)+A(14850)+A(14859)+A(14861)+A(14866)+A(14895)+A(14906)+A(14968)& - &+A(15108)+A(15166)+A(15170) - Vdot(5161) = A(434)-A(1970)-A(1971)-A(1972)-A(1973)-A(1974)-A(1975)-A(1976)+A(4419)+A(9434)+A(9567)+A(9624)+A(9637)& - &+A(9654)+A(9671)+A(9688)+A(11038)+A(11039)+A(11041)+A(11043)+A(12336)+A(12337)+A(12338) - Vdot(5162) = A(988)+A(2750)+A(2753)-A(2755)-A(2756)-A(2757)-A(2758)+A(2759)+A(11291)+A(11317)+A(11318)+A(12513)& - &+A(13389) - Vdot(5163) = A(163)+A(166)-A(936)-A(937)-A(938)-A(939)-A(940)-A(941)-A(942)+A(2700)+A(2756)+A(2926)+A(5024)+A(5025)& - &+A(5027)+A(5028)+A(7380) - Vdot(5164) = A(2526)+A(2528)-A(4890)-A(4891)-A(4892)-A(4893)-A(4894)-A(4895)-A(4896)-A(4897)+A(7266)+A(7267)+A(8847)& - &+A(8915)+A(8917) - Vdot(5165) = -A(117)-A(118)-A(119)-A(120)+A(294)+A(940)+A(2699)+A(2702)+A(2705)+A(3156)+A(3160)+A(3165)+A(3170)& - &+A(3171)+A(3172)+A(3173)+A(3174)+A(3179)+A(3186)+A(3187)+A(5371)+A(5374)+A(5376)+A(5377)+A(5391)+A(5393)& - &+A(5395)+A(5396)+A(7382)+A(7722)+A(7724)+A(7725)+A(7742)+A(7745)+A(11296)+A(11297) - Vdot(5166) = -A(407)-A(408)-A(409)-A(410)-A(411)-A(412)-A(413)-A(414)-A(415)-A(416)-A(417)-A(418) - Vdot(5167) = A(8742)-A(10503)-A(10504)-A(10505)-A(10506)-A(10507)-A(10508)-A(10509)+A(11912)+A(11914) - Vdot(5168) = A(1856)-A(4184)-A(4185)-A(4186)-A(4187)+A(4250)+A(4331) - Vdot(5169) = A(4650)+A(4671)+A(4672)+A(4673)+A(4674)+A(4675)+A(4679)+A(4680)+A(4684)-A(7020)-A(7021)-A(7022)-A(7023)& - &-A(7024)-A(7025)-A(7026) - Vdot(5170) = A(843)-A(2603)-A(2604)-A(2605)-A(2606)-A(2607)-A(2608)+A(3247)+A(6552) - Vdot(5171) = A(10554)+A(10555)-A(11961)-A(11962)-A(11963)-A(11964)-A(11965)-A(11966)+A(12958)+A(12959)+A(13962)& - &+A(13964)+A(14064)+A(14065)+A(14066)+A(14067) - Vdot(5172) = A(10404)+A(10406)+A(10995)-A(11828)-A(11829)-A(11830)-A(11831)-A(11832)-A(11833) - Vdot(5173) = A(4270)+A(6594)-A(6669)-A(6670)-A(6671)-A(6672)-A(6673)-A(6674)+A(8726) - Vdot(5174) = A(6656)+A(8640)-A(8705)-A(8706)-A(8707)-A(8708)-A(8709)-A(8710)-A(8711) - Vdot(5175) = A(4688)+A(4689)+A(4690)-A(7061)-A(7062)-A(7063)-A(7064)-A(7065) - Vdot(5176) = A(7023)-A(9086)-A(9087)-A(9088)-A(9089)+A(10706)+A(10707)+A(10730)+A(10731)+A(10732)+A(10786)+A(10800)& - &+A(10801)+A(10802)+A(10803)+A(10805)+A(10808)+A(10809)+A(10813) - Vdot(5177) = A(13808)+A(13831)+A(14194)+A(14196)+A(14198)+A(14200)+A(14201)-A(14202)-A(14203)-A(14204)+A(14483)& - &+A(14484)+A(14492)+A(14493)+A(14494) - Vdot(5178) = A(60)+A(277)-A(426)-A(427)-A(428)-A(429)+A(921)+A(2316)+A(2368)+A(2371)+A(2682)+A(2685)+A(2688)+A(2836)& - &+A(2837)+A(2918)+A(3101)+A(3105)+A(3108)+A(3109)+A(3110)+A(3111)+A(3112)+A(3113)+A(4793)+A(4821)+A(4823)& - &+A(4825)+A(4826)+A(5339)+A(5340)+A(5342)+A(5344)+A(5345)+A(7212)+A(7213)+A(7484)+A(7485)+A(7515)+A(7701)& - &+A(7703)+A(7704) - Vdot(5179) = A(9408)+A(9409)-A(11004)-A(11005)-A(11006)-A(11007)-A(11008)-A(11009)-A(11010)-A(11011)+A(12297)+A(12328)& - &+A(12329)+A(13852)+A(14172)+A(14173)+A(14175)+A(14176)+A(14177)+A(14186)+A(14968) - Vdot(5180) = A(1166)+A(2445)+A(2597)+A(2968)+A(2971)-A(2972)-A(2973)-A(2974)+A(4139)+A(4142)+A(6474)+A(6475)+A(6477)& - &+A(6479)+A(6593)+A(8499)+A(8500)+A(8503)+A(8504)+A(8505)+A(8506)+A(8507)+A(8508)+A(8513)+A(8727)+A(8732)& - &+A(10393)+A(10394)+A(10395)+A(10396)+A(10397) - Vdot(5181) = A(227)+A(228)-A(1154)-A(1155)-A(1156)-A(1157)-A(1158)-A(1159)-A(1160) - Vdot(5182) = A(9372)+2*A(10662)+A(10817)+A(10818)+A(10875)+A(10876)-A(10963)-A(10964)-A(10965)+A(11101)+A(12001)& - &+A(12286)+A(12287)+2*A(13064)+A(13639)+A(13921)+A(13950)+A(14102)+A(14113)+A(14308)+A(14328)+A(14599)& - &+A(14821)+A(14828)+A(14829)+A(14895)+A(15093) - Vdot(5183) = A(104)+A(105)+A(435)+A(447)-A(729)-A(730)-A(731)-A(732)-A(733)-A(734)-A(735)-A(736)+A(1552)+A(1714)& - &+A(1731)+A(1758)+A(1786)+A(2238)+A(2499)+A(2503)+A(2800)+A(2890)+A(2926)+A(2934)+A(2942)+A(2951)+A(2958)& - &+A(3096)+A(3562)+A(3563)+A(4031)+A(4389)+A(4391)+A(4392)+A(4393)+A(4394)+A(4412)+A(4415)+A(4417)+A(4425)& - &+A(4446)+A(4471)+A(4476)+A(4479)+A(4481)+2*A(4483)+A(4485)+A(5841)+A(5844)+A(5845)+A(6227)+A(6229)+A(6230)& - &+A(6231)+A(6262)+A(6265)+A(6266)+A(6275)+A(6302)+A(6313)+A(6316)+A(6317)+A(6321)+A(6326)+A(6381)+A(6386)& - &+A(6420)+A(6421)+A(6423)+A(6424)+A(6459)+A(6461)+A(6463)+A(6465)+A(7376)+A(7423)+A(7426)+A(7427)+A(7437)& - &+A(7587)+A(7599)+A(7611)+A(7623)+A(7635)+A(7731)+A(7759)+A(8044)+A(8053)+A(8081)+A(8084)+A(8085)+A(8087)& - &+A(8448)+A(8470)+A(8487)+A(8488)+A(8490)+A(8870)+A(8922)+A(8929)+A(9563)+A(9566)+A(9624)+A(10000)+A(10004)& - &+A(10006)+A(10295)+A(10343)+A(11561)+A(11562)+A(11568)+A(12394)+A(12397)+A(12398)+A(12400)+A(12449)& - &+A(12451)+A(12454)+A(12455)+A(12652)+A(12661)+A(12663)+A(12665)+A(12666)+A(12761)+A(12763)+A(12765)& - &+A(12767)+A(12768)+A(13472)+A(13474)+A(13476)+A(13477)+A(13484)+A(13520)+A(13521)+A(13540)+A(13544)& - &+A(13545)+A(13547)+A(13548)+A(13635)+A(13979)+A(14012)+A(14041)+A(14045) - Vdot(5184) = A(497)+A(2214)+A(2216)+A(2217)-A(2218)-A(2219)-A(2220)+A(2221)+A(7190)+A(7192)+A(10990)+A(11974)+A(11975)& - &+A(12264)+A(12962)+A(12963)+A(12965)+A(12966)+A(13260)+A(13629)+A(13632)+A(14346)+A(14642)+A(14843)& - &+A(15112)+A(15113) - Vdot(5185) = A(67)-A(555)-A(556)-A(557)-A(558)-A(559)-A(560)-A(561)+A(2280)+A(7396)+A(7537)+A(7587)+A(9439)+A(9440)& - &+A(9442)+A(9444)+A(11044)+A(11045) - Vdot(5186) = A(179)+A(182)-A(998)-A(999)-A(1000)-A(1001)-A(1002)-A(1003)-A(1004) - Vdot(5187) = A(14233)-A(14495)-A(14496)-A(14497)-A(14498)-A(14499)-A(14500) - Vdot(5188) = A(88)+A(501)-A(674)-A(675)+A(869)+A(1929)+A(2222)+A(2226)+A(2315)+A(2611)+A(2616)+A(2624)+A(2626)+A(2629)& - &+A(2630)+A(2631)+A(4959)+A(4962)+A(4964)+A(4965)+A(6592)+A(6608)+A(6611)+A(6647)+A(7185)+A(7314)+A(7318)& - &+A(8625)+A(8628)+A(8630)+A(8631)+A(8645)+A(8646)+A(8727)+A(8732)+A(8741)+A(8743)+A(10372)+A(10399)& - &+A(10400)+A(10401)+A(10402)+A(10403)+A(10411)+A(10412)+A(10419)+A(10420)+A(10435)+A(10437)+A(10448)& - &+A(10452)+A(10487)+A(10491)+A(10498)+A(11053)+A(11840)+A(11842)+A(11989)+A(13852)+A(15116)+A(15117)& - &+A(15118)+A(15119) - Vdot(5189) = A(13162)+A(13189)+A(13823)+A(13825)+A(13827)-A(13828)-A(13829)-A(13830)-A(13831)-A(13832)-A(13833)& - &-A(13834)+A(13835) - Vdot(5190) = -A(256)-A(257)-A(258)-A(259)-A(260)-A(261)+A(455) - Vdot(5191) = A(51)-A(104)-A(105)-A(106)+A(241)+A(265)+A(271)+A(763)+A(2236)+A(2293)+A(2296)+A(2512)+A(2530)+A(2533)& - &+A(2534)+A(2718)+A(2799)+A(2808)+A(2918)+A(2992)+A(3000)+A(3003)+A(3004)+A(3005)+A(3006)+A(3007)+A(3008)& - &+A(3013)+A(3016)+A(3079)+A(3087)+A(3094)+A(3561)+A(4408)+A(4410)+A(4479)+A(4481)+A(4485)+A(5288)+A(5289)& - &+A(5291)+A(5293)+A(5294)+A(6202)+A(6429)+A(7665)+A(7666)+A(7756)+A(8471)+A(8925)+A(8927)+A(8931)+A(10341)& - &+A(11257)+A(11260)+A(13541)+A(14013)+A(14042) - Vdot(5192) = A(164)+A(167)-A(943)-A(944)-A(945)-A(946)-A(947)-A(948)-A(949)+A(2707)+A(2780)+A(5051)+A(5052)+A(5054)& - &+A(5055)+A(7409) - Vdot(5193) = A(49)-A(100)-A(101)-A(102)-A(103)+A(110)+A(141)+A(146)+A(234)+A(245)+A(248)+A(264)+A(270)+A(288)+A(301)& - &+A(307)+A(484)+A(569)+A(678)+A(743)+A(881)+A(882)+A(884)+A(886)+A(2225)+A(2230)+A(2245)+2*A(2253)+A(2256)& - &+A(2293)+A(2315)+A(2360)+A(2386)+A(2387)+A(2436)+A(2438)+A(2440)+A(2441)+A(2502)+A(2506)+A(2508)+A(2520)& - &+A(2642)+A(2643)+A(2644)+A(2649)+A(2656)+A(2659)+A(2662)+A(2663)+A(2664)+A(2665)+A(2666)+A(2670)+A(2687)& - &+A(2732)+A(2737)+A(2755)+A(2836)+A(2845)+A(2979)+A(2986)+2*A(3020)+A(3079)+A(3087)+A(3094)+A(3096)+A(3148)& - &+A(3153)+A(3193)+A(3201)+A(3209)+A(3216)+A(3218)+A(3326)+A(4194)+A(4382)+A(4384)+A(4415)+A(4417)+A(4454)& - &+A(4488)+A(4490)+A(4861)+A(4862)+A(5273)+A(5276)+A(5278)+A(5279)+A(5281)+A(6257)+A(6368)+A(7190)+A(7276)& - &+A(7556)+A(7652)+A(7654)+A(7655)+A(7659)+2*A(7696)+A(7700)+A(7750)+A(8095)+A(8794)+A(8850)+A(8852)+A(8854)& - &+A(8856)+A(8880)+A(8882)+A(8903)+A(8904)+A(8910)+A(8915)+A(8922)+A(9891)+A(10549)+A(11080)+A(11083)& - &+A(11086)+A(11133)+A(11194)+A(11196)+A(11270)+A(11288)+A(11309)+A(11330)+A(11333)+A(11359)+A(11793)& - &+A(11957)+A(12381)+A(12384)+A(12417)+A(12793)+A(13362)+A(13405)+A(13485)+A(13531)+A(13962)+A(13964)& - &+A(13966)+A(13968)+A(13998)+A(14034) - Vdot(5194) = -A(121)-A(122)-A(123)-A(124)-A(125)-A(126)-A(127)-A(128)-A(129)+A(402)+A(4145)+A(4146)+A(4147)+A(4148)& - &+A(4150)+A(4165)+A(4175)+A(4176)+A(4319)+A(4536)+A(4848)+A(6526)+A(6528)+A(6530)+A(6531)+A(6724)+A(6726)& - &+A(6728)+A(8557)+A(8560)+A(8969) - Vdot(5195) = A(50)+A(231)-A(485)-A(486)-A(487)-A(488)-A(489)-A(490)-A(491)+A(2206)+A(2218)+A(2245)+A(2249)+A(2336)& - &+A(4425)+A(4762)+A(4763)+A(4765)+A(4767)+A(7176)+A(7177)+A(8832)+A(14934)+A(14936) - Vdot(5196) = A(9089)+A(9150)+A(10714)+A(10716)+A(10718)+A(10719)-A(10721)-A(10722)-A(10723)-A(10724)-A(10725)-A(10726)& - &-A(10727)+A(12126)+A(12127)+A(12128) - Vdot(5197) = A(4386)-A(6798)-A(6799)-A(6800)-A(6801)-A(6802)-A(6803)+A(7883)+A(8290)+A(8837)+A(8910)+A(10552)+A(11961)& - &+A(11963)+A(11965)+A(11966)+A(12957)+A(13688) - Vdot(5198) = A(2075)-A(4568)-A(4569)-A(4570)-A(4571)-A(4572)-A(4573)-A(4574)+A(6926)+A(6931)+A(6934)+A(6936)+A(6937)& - &+A(6954)+A(6955)+A(6956)+A(8982) - Vdot(5199) = A(6275)+A(6575)+A(6803)+A(7660)+A(8278)-A(8376)-A(8377)-A(8378)-A(8379)+A(8838)+A(9801)+A(9946)+A(12577)& - &+A(12638)+A(12960)+A(13433)+A(13434)+A(13436)+A(13437)+A(13463)+A(13464)+A(13466)+A(13467)+A(13544)& - &+A(13545)+A(13547)+A(13548)+A(14001)+A(14002)+A(14008)+A(14009)+A(14041)+A(14042) - Vdot(5200) = -A(232)-A(233)-A(234)-A(235)-A(236)-A(237)+A(454)+A(569)+A(1862)+A(1868)+A(1872)+A(4538)+A(8971) - Vdot(5201) = A(23)-A(30)-A(34)-A(44)+A(98)+A(101)+A(104)+A(107)+A(112)+A(117)+A(121)+A(132)+A(138)+A(322)+A(327)& - &+A(332)+A(337)+A(342)+A(347)+A(352)+A(357)+A(362)+A(367)+A(372)+A(377)+A(382)+A(387)+A(398)+A(419)+A(421)& - &+A(571)+A(586)+A(670)+A(676)+A(841)+A(860)+A(1414)+A(1420)+A(1432)+A(1434)+A(1445)+A(1464)+A(1471)+A(1472)& - &+A(1490)+A(1496)+A(1497)+A(1515)+A(1522)+A(1523)+A(1534)+A(1535)+A(1547)+A(1561)+A(1562)+A(1573)+A(1585)& - &+A(1586)+A(1598)+A(1612)+A(1613)+A(1642)+A(1643)+A(1647)+A(1668)+A(1671)+A(1690)+A(1697)+A(1698)+A(1709)& - &+A(1715)+A(1716)+A(1727)+A(1734)+A(1735)+A(1753)+A(1759)+A(1770)+A(1781)+A(2219)+A(2270)+A(2286)+A(2354)& - &+A(2369)+A(2380)+A(2420)+A(2522)+A(2526)+A(2546)+A(2571)+A(2590)+A(2646)+A(2650)+A(2656)+A(2674)+A(2746)& - &+A(2757)+A(2781)+A(2819)+A(2854)+A(2865)+A(2883)+A(2972)+A(2980)+A(3014)+A(3030)+A(3052)+A(3073)+A(3102)& - &+A(3128)+A(3141)+A(3158)+A(3188)+A(3244)+A(3264)+A(3277)+A(3303)+A(3348)+A(3372)+A(3399)+A(3407)+A(3434)& - &+A(3462)+A(3470)+A(3515)+A(3524)+A(3539)+A(3598)+A(3655)+A(3716)+A(3732)+A(3748)+A(3776)+A(3804)+A(3837)& - &+A(3882)+A(3909)+A(3957)+A(4001)+A(4092)+A(4140)+A(4157)+A(4177)+A(4189)+A(4360)+A(4361)+A(4365)+A(4393)& - &+A(4436)+A(4497)+A(4525)+A(4597)+A(4639)+A(4695)+A(4805)+A(4842)+A(4943)+A(5464)+A(5491)+A(5500)+A(5501)& - &+A(5510)+A(5568)+A(5620)+A(5646)+A(5701)+A(5766)+A(5788)+A(5808)+A(5868)+A(5882)+A(5885)+A(5935)+A(5955)& - &+A(6018)+A(6031)+A(6088)+A(6239)+A(6279)+A(6334)+A(6354)+A(6581)+A(6600)+A(6610)+A(6641)+A(6651)+A(6923)& - &+A(6964)+A(7020)+A(7081)+A(7145)+A(7205)+A(7221)+A(7291)+A(7353)+A(7364)+A(7397)+A(7420)+A(7435)+A(7446)& - &+A(7470)+A(7494)+A(7509)+A(7524)+A(7579)+A(8378)+A(8517)+A(8537)+A(8751)+A(8776)+A(8784)+A(8833)+A(8957)& - &+A(9086)+A(9096)+A(9286)+A(9408)+A(9419)+A(9435)+A(9452)+A(9505)+A(10062)+A(10094)+A(10126)+A(10357)& - &+A(10382)+A(10445)+A(10520)+A(10554)+A(10680)+A(10738)+A(10964)+A(11103)+A(11162)+A(11246)+A(11369)& - &+A(11428)+A(11431)+A(11470)+A(11477)+A(11563)+A(11605)+A(11608)+A(11647)+A(11650)+A(11783)+A(11958)& - &+A(11976)+A(12014)+A(12041)+A(12058)+A(12175)+A(12358)+A(12492)+A(12534)+A(12557)+A(12573)+A(12617)& - &+A(12634)+A(12648)+A(12669)+A(12688)+A(12716)+A(12726)+A(12743)+A(12757)+A(12771)+A(13110)+A(13137)& - &+A(13320)+A(13676)+A(13728)+A(13828)+A(14004)+A(14055)+A(14065)+A(14202)+A(14435)+A(14443)+A(14444)& - &+A(14495)+A(14743)+A(14836)+A(14867)+A(15101)+A(15128) - Vdot(5202) = A(55)+A(237)-A(506)-A(507)-A(508)-A(509)-A(510)-A(511)-A(512)+A(2228)+A(2525)+A(4405)+A(4476)+A(4892)& - &+A(4893)+A(4895)+A(4897)+A(7264)+A(7265)+A(8845)+A(8919) - Vdot(5203) = A(63)-A(112)-A(113)-A(114)-A(115)-A(116)+A(282)+A(929)+A(2342)+A(2691)+A(2693)+A(2694)+A(2797)+A(3118)& - &+A(3127)+A(3131)+A(3132)+A(3133)+A(3134)+A(3136)+A(3140)+A(3143)+A(3678)+A(4511)+A(4513)+A(4517)+A(4797)& - &+A(5354)+A(5355)+A(5357)+A(5359)+A(5360)+A(5362)+A(5363)+A(5365)+A(5366)+A(7708)+A(7710)+A(7711)+A(7714)& - &+A(7715)+A(14023) - Vdot(5204) = A(1878)-A(4248)-A(4249)-A(4250)-A(4251)-A(4252)-A(4253)-A(4254)-A(4255)-A(4256)-A(4257) - Vdot(5205) = A(4237)+A(4326)+A(6585)-A(6608)-A(6609)-A(6610)-A(6611)-A(6612)-A(6613)-A(6614)-A(6615)-A(6616)+A(6617)& - &+A(6634) - Vdot(5206) = A(2186)+A(4704)-A(4739)-A(4740)-A(4741)-A(4742)-A(4743)-A(4744)-A(4745)+A(7068)+A(7069)+A(7071)+A(7073)& - &+A(9166) - Vdot(5207) = A(4730)+A(7117)+A(7118)+A(7119)+A(7122)+A(7140)+A(7142)-A(7145)-A(7146)-A(7147)-A(7148)-A(7149)-A(7150)& - &-A(7151)+A(7152)+A(10871) - Vdot(5208) = A(120)+A(155)+A(157)+A(442)+A(793)+A(796)+A(798)+A(799)-A(808)-A(809)-A(810)-A(811)-A(812)-A(813)-A(814)& - &+A(1348)+A(1349)+A(2559)+A(2561)+A(2575)+A(2890)+A(3181) - Vdot(5209) = A(3308)+A(3418)+A(3480)+A(3758)+A(3916)+A(3964)+A(4188)-A(5500)-A(5501)-A(5502)-A(5503)-A(5504)-A(5505)& - &-A(5506)-A(5507)-A(5508)-A(5509)+A(6604)+A(6613)+A(6644)+A(6654)+A(8599)+A(8601) - Vdot(5210) = A(909)+A(2660)+A(2668)+A(2671)-A(2673)-A(2674)-A(2675)+A(4202)+A(5544)+A(5688)+A(5746)+A(6056)+A(6111)& - &+A(6562)+A(6564)+A(8620)+A(8622)+A(8623)+A(9795)+A(9803)+A(9834)+A(9838)+A(9939)+A(9941)+A(9944)+A(11836)& - &+A(12631)+A(12862)+A(12865)+A(12867)+A(12868)+A(13592)+A(13596)+A(14417) - Vdot(5211) = A(7344)+A(9366)-A(9407)-A(9408)-A(9409)+A(13298)+A(14184)+A(14282)+A(14538)+A(14806) - Vdot(5212) = A(4670)+A(7043)+A(7045)+A(7048)-A(7049)-A(7050)-A(7051)+A(9141) - Vdot(5213) = A(4541)+A(4547)+A(4548)+A(4562)+A(4563)+A(4564)+A(4565)+A(4566)+A(4577)+A(4581)-A(6923)-A(6924)-A(6925)& - &-A(6926) - Vdot(5214) = A(8960)+A(8962)+A(10553)-A(10592)-A(10593)-A(10594)-A(10595)-A(10596)-A(10597)-A(10598)-A(10599)+A(10819)& - &+A(10877)+A(10964)+A(10965)+A(12005)+A(12006)+A(12288)+A(13682)+A(13751)+A(13752)+A(13922)+A(14058)& - &+A(14113)+2*A(14116)+A(14309)+A(14685)+A(14870)+A(14871)+A(14872)+A(14906) - Vdot(5215) = A(465)-A(2106)-A(2107)-A(2108)-A(2109)+A(4591)+A(4595)+A(4596)+A(4599)+A(4627)+A(4628)+A(4629)+A(4630)& - &+A(4631)+A(4634)+A(4638)+A(4641)+A(6976)+A(6977)+A(6979)+A(6980)+A(7015)+A(7016)+A(7018)+A(7019)+A(9039)& - &+A(9040)+A(9077)+A(9078) - Vdot(5216) = A(2602)-A(4945)-A(4946)-A(4947)-A(4948)-A(4949)-A(4950)-A(4951)-A(4952)+A(7305)+A(10453) - Vdot(5217) = A(1876)-A(4229)-A(4230)-A(4231)-A(4232)-A(4233)-A(4234)-A(4235)-A(4236)-A(4237)-A(4238) - Vdot(5218) = A(1898)-A(4322)-A(4323)-A(4324)-A(4325)-A(4326)-A(4327)-A(4328)-A(4329)+A(6587) - Vdot(5219) = A(1877)+A(1899)-A(4239)-A(4240)-A(4241)-A(4242)-A(4243)-A(4244)-A(4245)-A(4246)-A(4247)+A(6621) - Vdot(5220) = A(4256)+A(4334)+A(6532)+A(6589)+A(6618)+A(6630)-A(6649)-A(6650)-A(6651)-A(6652)-A(6653)-A(6654)-A(6655)& - &-A(6656)-A(6657) - Vdot(5221) = A(866)-A(2627)-A(2628)-A(2629)+A(6624)+A(10423)+A(10424)+A(10425)+A(10426)+A(10428)+A(10505)+A(10506)& - &+A(10509)+A(11880)+A(11911)+A(12820)+A(12821)+A(12823)+A(12825)+A(12828)+A(12829)+A(12831)+A(12833)& - &+A(13577)+A(13579)+A(13580)+A(13582)+A(13584)+A(13585) - Vdot(5222) = A(134)+A(674)-A(859)-A(860)-A(861)+A(1865)+A(1931)+A(2400)+A(2619)+A(2620)+A(2621)+A(2622)+A(2623)& - &+A(2638)+A(2640)+A(2673)+A(2988)+A(3311)+A(3312)+A(3358)+A(3362)+A(3418)+A(3419)+A(3420)+A(3422)+A(3423)& - &+A(3424)+A(3425)+A(3480)+A(3481)+A(3725)+A(3727)+A(3757)+A(3760)+A(3762)+A(3813)+A(3814)+A(3816)+A(3817)& - &+A(3869)+A(3870)+A(3918)+A(3919)+A(3966)+A(4017)+A(4018)+A(4082)+A(4083)+A(4370)+A(4505)+A(4910)+A(4958)& - &+A(4976)+A(4977)+A(4979)+A(4980)+A(4982)+A(4984)+A(4985)+A(4987)+A(4988)+A(5503)+A(5512)+A(5534)+A(5535)& - &+A(5536)+A(5537)+A(5539)+A(5545)+A(5566)+A(5567)+A(5647)+A(5648)+A(5689)+A(5709)+A(5715)+A(5733)+A(5735)& - &+A(5747)+A(5763)+A(5774)+A(6057)+A(6059)+A(6060)+A(6062)+A(6078)+A(6081)+A(6085)+A(6096)+A(6112)+A(6114)& - &+A(6115)+A(6149)+A(6154)+A(6177)+A(6179)+A(6287)+A(6293)+A(6299)+A(6302)+A(6355)+A(6536)+A(6555)+A(6565)& - &+A(6602)+A(6653)+A(7262)+A(7273)+A(7275)+A(7308)+A(7309)+A(7311)+A(7313)+A(7329)+A(7330)+A(7333)+A(7336)& - &+A(7700)+A(7756)+A(7759)+A(7863)+A(7866)+A(7916)+A(7918)+A(7921)+A(7977)+A(7982)+A(7988)+A(7992)+A(7993)& - &+A(8006)+A(8281)+A(8297)+A(8321)+A(8325)+A(8326)+A(8336)+A(8337)+A(8339)+A(8448)+A(8487)+A(8488)+A(8605)& - &+A(8609)+A(8610)+A(8614)+A(8679)+A(8681)+A(8683)+A(8684)+A(8690)+A(9394)+A(9709)+A(9710)+A(9793)+A(9799)& - &+A(9845)+2*A(9882)+2*A(9942)+A(10179)+A(10205)+A(10292)+A(10293)+A(10295)+A(10332)+A(10376)+A(10377)& - &+A(10379)+A(10380)+A(10387)+A(10390)+A(10469)+A(10471)+A(10476)+A(10477)+A(11053)+A(11213)+A(11512)& - &+A(11807)+A(11817)+A(11839)+A(11858)+A(11873)+A(11884)+A(11968)+A(12416)+A(12907)+A(12909)+A(14052)& - &+A(14475) - Vdot(5223) = A(697)+A(862)+A(1167)+A(1226)+A(1824)+A(1859)+A(2110)-A(2468)-A(2469)-A(2470)-A(2471)-A(2472)-A(2473) - Vdot(5224) = A(1879)+A(1901)-A(4258)-A(4259)-A(4260)-A(4261)-A(4262)-A(4263)-A(4264)-A(4265)-A(4266)-A(4267)+A(6661)& - &+A(13834)+A(14213)+A(14214)+A(14216)+A(14218)+A(14476)+A(14478) - Vdot(5225) = A(4205)-A(6568)-A(6569)-A(6570)+A(6663)+A(10479)+A(10480)+A(10481)+A(10482)+A(10483)+A(10488)+A(11844)& - &+A(11866)+A(11867)+A(11869)+A(11870)+A(12836)+A(12837)+A(12839)+A(12841)+A(12851)+A(12852)+A(12877)& - &+A(12878)+A(12880)+A(12881)+A(13587)+A(13589)+A(13590)+A(13599)+A(13600) - Vdot(5226) = -A(130)-A(131)-A(132)-A(133)-A(134)-A(135)-A(136)-A(137)+A(408)+A(4212)+A(4213)+A(4214)+A(4215)+A(4217)& - &+A(4266)+A(4273)+A(4276)+A(6666)+A(6684)+A(6685)+A(6687)+A(6688)+A(6706)+A(6708)+A(6710)+A(6712)+A(8746)& - &+A(8747)+A(10783)+A(14934) - Vdot(5227) = A(409)-A(1862)-A(1863)-A(1864)-A(1865)-A(1866)-A(1867)+A(4218)+A(4219)+A(4220)+A(4221)+A(4222)+A(4246)& - &+A(6627) - Vdot(5228) = A(100)+A(147)+A(148)+A(425)+A(554)+A(664)+A(665)+A(667)+A(669)-A(714)-A(715)-A(716)-A(717)-A(718)-A(719)& - &-A(720)-A(721)-A(722)+A(848)+A(900)+A(901)+A(1183)+A(1184)+A(1333)+A(1873)+A(2183)+A(2423)+A(2425)+A(2488)& - &+A(2493)+A(3355)+A(3477)+A(3641)+A(3755)+A(3862)+A(4011)+A(4063)+A(4340)+A(4353)+A(5582)+A(5669)+A(5934)& - &+A(6107)+A(6160)+A(7862)+A(7884)+A(8007)+A(8322)+A(8794)+A(8818)+A(9335)+A(9786)+A(9825)+A(10155)+A(11953)& - &+A(12811)+A(13560)+A(15160)+A(15163) - Vdot(5229) = A(111)+A(152)+A(154)+A(432)+A(447)+A(745)+A(747)+A(749)+A(751)-A(759)-A(760)-A(761)-A(762)-A(763)-A(764)& - &-A(765)+A(1244)+A(1245)+A(1378)+A(1379)+A(2509)+A(2511)+A(2531)+A(2809)+A(3067)+A(4502)+A(8141) - Vdot(5230) = A(56)-A(107)-A(108)-A(109)-A(110)-A(111)+A(259)+A(300)+A(306)+A(812)+A(2562)+A(2574)+A(2577)+A(2578)& - &+A(2904)+A(3042)+A(3050)+A(3056)+A(3057)+A(3058)+A(3059)+A(3061)+A(3065)+A(3072)+A(3075)+A(3193)+A(3201)& - &+A(3209)+A(3212)+A(3216)+A(3620)+A(4463)+A(4465)+A(5310)+A(5313)+A(5315)+A(5316)+A(5318)+A(5323)+A(5325)& - &+A(5327)+A(5328)+A(7681)+A(7683)+A(7684)+A(7691)+A(7692)+A(8115)+A(11275)+A(11276)+A(14018) - Vdot(5231) = A(47)+A(92)-A(96)-A(97)-A(98)-A(99)+A(127)+A(129)+A(133)+A(230)+A(235)+A(240)+A(253)+A(258)+A(276)+A(283)& - &+A(295)+A(394)+A(403)+A(410)+A(411)+A(466)+A(673)+A(675)+A(715)+A(722)+A(817)+A(818)+A(820)+A(822)+A(840)& - &+A(844)+A(847)+A(848)+A(1829)+A(1830)+A(1863)+A(1864)+A(1869)+A(1871)+A(1873)+A(1889)+A(1895)+2*A(2210)& - &+A(2225)+A(2230)+A(2236)+A(2238)+A(2260)+A(2261)+A(2277)+A(2316)+A(2342)+A(2368)+A(2408)+A(2416)+A(2417)& - &+A(2426)+A(2428)+A(2431)+A(2433)+A(2434)+A(2451)+A(2468)+A(2469)+A(2470)+A(2471)+A(2472)+A(2479)+A(2484)& - &+A(2489)+A(2491)+A(2492)+A(2497)+A(2498)+A(2524)+A(2580)+A(2581)+A(2599)+A(2615)+A(2638)+A(2697)+A(2744)+2& - &*A(2970)+A(2979)+A(2986)+A(2992)+A(3000)+A(3013)+A(3016)+A(3025)+A(3028)+A(3042)+A(3050)+A(3065)+A(3072)& - &+A(3101)+A(3108)+A(3118)+A(3127)+A(3140)+A(3156)+A(3165)+A(3168)+A(3179)+A(3186)+A(3248)+A(3639)+A(4109)& - &+A(4118)+A(4130)+A(4165)+A(4167)+A(4172)+A(4175)+A(4195)+A(4246)+A(4266)+A(4272)+A(4273)+A(4359)+A(4368)& - &+A(4371)+A(4389)+A(4391)+A(4591)+A(4595)+A(4596)+A(4634)+A(4638)+A(4688)+A(4689)+A(4690)+A(4697)+A(4706)& - &+A(4709)+A(4723)+A(4757)+A(4758)+A(4759)+A(4853)+A(4855)+A(4857)+A(4858)+A(4941)+A(5265)+A(5268)+A(5270)& - &+A(5271)+A(5309)+A(5351)+A(6481)+A(6483)+A(6500)+A(6501)+A(6565)+A(6576)+A(6580)+A(6623)+A(6627)+A(6664)& - &+A(6666)+A(6667)+A(6691)+A(6701)+A(6703)+A(6715)+A(6720)+A(6946)+A(6947)+A(6952)+A(7022)+A(7036)+A(7038)& - &+A(7042)+A(7125)+A(7126)+A(7130)+A(7148)+A(7219)+A(7251)+A(7369)+A(7515)+A(7647)+A(7649)+A(7650)+A(7720)& - &+A(7730)+A(7732)+A(8326)+A(8344)+A(8345)+A(8347)+A(8412)+A(8413)+A(8415)+A(8450)+A(8452)+A(8454)+A(8548)& - &+A(8607)+A(8614)+A(8671)+A(8679)+A(8729)+A(8760)+A(8812)+A(8830)+A(8839)+A(8843)+A(8860)+A(8863)+A(8864)& - &+A(8877)+A(8944)+A(8953)+A(9099)+A(9171)+A(9172)+A(9219)+A(9220)+A(9221)+A(9222)+A(9224)+A(9225)+A(9226)& - &+A(9238)+A(9240)+A(9241)+A(9242)+A(9270)+A(9272)+A(9273)+A(9274)+A(9314)+A(9701)+A(9702)+A(9791)+A(9903)& - &+A(9905)+A(10092)+A(10175)+A(10328)+A(10488)+A(10516)+A(10518)+A(10522)+A(10706)+A(10707)+A(10730)& - &+A(10731)+A(10732)+A(10779)+A(10835)+A(10836)+A(10840)+A(10887)+A(10888)+A(10917)+A(10918)+A(10993)& - &+A(10994)+A(11033)+A(11111)+A(11138)+A(11153)+A(11199)+A(11237)+A(11291)+A(11312)+A(11368)+A(11436)& - &+A(11574)+A(11712)+A(11930)+A(11931)+A(11933)+A(11935)+A(11953)+A(11957)+A(11974)+A(11989)+A(11998)& - &+A(12010)+A(12141)+A(12166)+A(12167)+A(12178)+A(12220)+A(12222)+A(12226)+A(12570)+A(12601)+A(12602)& - &+A(12809)+A(12924)+A(12930)+A(12933)+A(12946)+A(13097)+A(13185)+A(13317)+A(13330)+A(13348)+A(13350)& - &+A(13389)+A(13397)+A(13635)+A(13682)+A(13708)+A(13811)+A(13812)+A(13820)+A(13821)+A(13822)+A(13830)& - &+A(14061)+A(14064)+A(14097)+A(14172)+A(14173)+A(14175)+A(14431)+A(14483)+A(14484)+A(14492)+A(14493)& - &+A(14494)+A(14498)+A(14585)+A(14586)+A(14588)+A(14590)+A(14593)+A(14622)+A(14623)+A(14625)+A(14627)& - &+A(14630)+A(14662)+A(14678)+A(14685)+A(14818)+A(14820)+A(14840)+A(14842)+A(14843)+A(14859)+A(14899)& - &+A(14909)+A(14910)+A(14926)+A(14927)+A(14928)+A(15090)+A(15100)+A(15177) - Vdot(5232) = A(670)+A(672)+A(2345)+A(2419)-A(2428)-A(2429)-A(2430)-A(2431)-A(2432)-A(2433)-A(2434)-A(2435)+A(2589)& - &+A(2590)+A(2591)+A(3067)+A(3181)+A(4172)+A(4856)+A(4859)+A(6511)+A(6512)+A(6574)+A(6667)+A(6722)+A(7688)& - &+A(7739)+A(7740)+A(8495)+A(8550)+A(8552)+A(8554)+2*A(8556)+A(8832)+A(8845)+A(10365)+A(10366)+A(10367)& - &+A(10368)+A(10372)+A(10437)+A(10491)+2*A(10518)+A(11114)+A(11817)+A(11930)+A(11931)+A(11933)+A(11935)& - &+A(11937)+A(12929)+A(12930)+A(12933)+A(12946)+A(13688)+A(13713)+A(13950)+A(14474)+A(14870)+A(15070)& - &+A(15100) - Vdot(5233) = A(128)+A(142)+A(313)+A(671)+A(726)-A(838)-A(839)-A(840)-A(841)-A(842)+A(2494)+A(2594)+A(2599)+A(2603)& - &+A(2604)+A(2605)+A(2606)+A(2607)+A(2649)+A(2656)+A(2659)+A(2670)+A(3231)+A(3232)+A(3234)+A(3235)+A(3265)& - &+A(3308)+A(3309)+A(3310)+A(3316)+A(3317)+A(3360)+A(3361)+A(3416)+A(3417)+A(3479)+A(3545)+A(3546)+A(3551)& - &+A(3552)+A(3604)+A(3606)+A(3610)+A(3611)+A(3661)+A(3662)+A(3667)+A(3668)+A(3724)+A(3728)+A(3759)+A(3965)& - &+A(4141)+A(4158)+A(4191)+A(4801)+A(4935)+A(4937)+A(4939)+A(4940)+A(4981)+A(5443)+A(5445)+A(5446)+A(5467)& - &+A(5469)+A(5471)+A(5477)+A(5482)+A(5488)+A(5502)+A(5511)+A(5570)+A(5601)+A(5617)+A(5628)+A(5796)+A(5802)& - &+A(5810)+A(5865)+A(5876)+A(5886)+A(5943)+A(5949)+A(5956)+A(5962)+A(6015)+A(6026)+A(6221)+A(6236)+A(6247)& - &+A(6534)+A(6612)+A(6643)+A(7301)+A(7302)+A(7779)+A(7781)+A(7791)+A(7792)+2*A(7799)+A(8053)+A(8087)+A(8113)& - &+A(8151)+A(8177)+A(8211)+A(8280)+A(8513)+A(8533)+A(8534)+A(8588)+A(8591)+A(8603)+A(8616)+A(8618)+A(8619)& - &+A(8624)+A(8673)+A(8674)+A(8741)+A(8743)+A(9400)+A(9403)+A(9405)+A(9786)+A(9791)+A(9793)+A(9799)+A(9836)& - &+A(10002)+A(10061)+A(10064)+A(10125)+A(10129)+A(10371)+A(10419)+A(10420)+A(10448)+A(10452)+A(10461)& - &+A(10998)+A(10999)+A(11001)+A(11003)+A(11132)+A(11837)+A(11839)+A(11840)+A(11842)+A(11873)+A(12007)& - &+A(13574)+A(13593)+A(13595)+A(13615)+A(14133)+A(14152) - Vdot(5234) = A(87)+A(491)-A(670)-A(671)-A(672)-A(673)+A(728)+A(827)+A(2207)+A(2209)+A(2211)+A(2335)+A(2477)+A(2583)& - &+A(2585)+A(2588)+A(4156)+A(4159)+A(4186)+A(6492)+A(6493)+A(6495)+A(6497)+A(6510)+A(6566)+A(6570)+A(6573)& - &+A(6606)+A(6649)+A(6652)+A(6922)+A(7180)+A(7294)+A(7298)+A(8492)+A(8494)+A(8497)+A(8519)+A(8520)+A(8523)& - &+A(8524)+A(8525)+A(8526)+A(8527)+A(8528)+A(8533)+A(8534)+A(8536)+A(8550)+A(8552)+A(8554)+A(8571)+A(8572)& - &+A(8691)+A(8694)+A(8696)+A(8698)+A(10387)+A(10390)+A(10435)+A(10462)+A(10463)+A(10469)+A(10471)+A(10476)& - &+A(10477)+A(10487)+A(10993)+A(11884)+A(12925)+A(13611)+A(13617)+A(13621)+A(13623)+A(14053)+A(14054)& - &+A(14360)+A(14363)+A(15073) - Vdot(5235) = A(103)-A(723)-A(724)-A(725)-A(726)-A(727)-A(728)+A(2495)+A(2520)+A(4499)+A(4804)+A(6692)+A(7767)+A(10594)& - &+A(10595)+A(10597)+A(10599)+A(10963)+A(11369)+A(11370)+A(11371)+A(11373)+A(12002)+A(12003)+A(12004)& - &+A(14474) - Vdot(5236) = A(2142)-A(4664)-A(4665)-A(4666)-A(4667)-A(4668)-A(4669)-A(4670)+A(7026)+A(7052)+A(7054)+A(7056)+A(7058)& - &+A(7059)+A(9140) - Vdot(5237) = A(2219)+A(2220)+A(4502)-A(4760)-A(4761)-A(4762)-A(4763)-A(4764)-A(4765)-A(4766)-A(4767)+A(7178)+A(7179)& - &+A(8830)+A(8833)+A(8834)+A(8835)+A(8852)+A(8854)+A(8856)+A(8857)+A(8925)+A(8927)+A(8929)+A(8931)+A(14152)& - &+A(14153)+A(14154)+A(14284)+A(14622)+A(14623)+A(14625)+A(14627)+A(14790)+A(14793)+A(14795)+A(14797)& - &+A(14840)+A(14842)+A(15068)+A(15070)+A(15116)+A(15117)+A(15118)+A(15119) - Vdot(5238) = -A(147)-A(149)-A(151)-A(152)-A(155)-A(156)-A(159)-A(160)-A(163)-A(164)-A(165)-A(169)-A(170)-A(171)-A(175)& - &-A(177)-A(178)-A(179)-A(183)-A(184)-A(185)-A(186)-A(191)-A(192)-A(193)-A(197)-A(198)-A(199)-A(203)-A(204)& - &-A(207)-A(209)-A(210)-A(213)-A(214)-A(217)-A(219)-A(221)-A(223)-A(225)-A(227) - Vdot(5239) = A(587)-A(2326)-A(2327)-A(2328)-A(2329)-A(2330)-A(2331)+A(4799)+A(14538)+A(14580)+A(14581)+A(14828)& - &+A(14829) - Vdot(5240) = A(7147)-A(9286)-A(9287)-A(9288)+A(10827)+A(10828)+A(10829)+A(10832)+A(10887)+A(10888)+A(10904)+A(10905)& - &+A(10906)+A(10907)+A(10908)+A(10917)+A(10918)+A(10943)+A(12305)+A(12307)+A(12310)+A(13220) - Vdot(5241) = A(424)+A(1229)+A(1331)+A(1399)-A(1925)-A(1926)-A(1927)-A(1928)-A(1929)-A(1930)-A(1931)+A(2524)+A(4305)& - &+A(4369)+A(4403)+A(4446)+A(4507)+A(4884)+A(4886)+A(4888)+A(4889)+A(4956)+A(6722)+A(7261)+A(8749)+A(8887)& - &+A(11205)+A(11439)+A(12413)+A(12418) - Vdot(5242) = A(757)+A(1888)+A(1894)+A(1936)+A(2248)+A(2515)+A(2518)+A(2521)-A(2522)-A(2523)-A(2524)+A(2527)+A(4373)& - &+A(4376)+A(4378)+A(6691)+A(6693)+A(6694)+A(6695)+A(6696)+A(6697)+A(6701)+A(6703)+A(6715)+A(6720)+A(8883)& - &+A(8886)+A(8890)+A(8903)+A(11133)+A(11204)+A(12330)+A(12394)+A(12397)+A(12400)+A(13364)+A(14723)+A(15084) - Vdot(5243) = A(695)+A(2402)-A(2460)-A(2461)-A(2462)-A(2463)-A(2464)-A(2465)-A(2466)-A(2467)+A(2479)+A(4873)+A(4874)& - &+A(4876)+A(4877)+A(11205)+A(13330) - Vdot(5244) = A(86)+A(101)+A(102)+A(425)+A(429)+A(432)+A(436)+A(442)+A(450)+A(451)-A(662)-A(663)-A(664)-A(665)-A(666)& - &-A(667)-A(668)-A(669)+A(675)+A(847)+A(858)+A(859)+A(860)+A(861)+A(1450)+A(1495)+A(1520)+A(1626)+A(1627)& - &+A(1652)+A(1676)+A(1732)+A(1863)+A(1869)+A(1871)+A(1897)+A(2249)+A(2256)+A(2296)+A(2311)+A(2398)+A(2402)& - &+A(2404)+A(2424)+A(2427)+A(2615)+A(2829)+A(2898)+A(2912)+A(3212)+A(3327)+A(3328)+A(3734)+A(3839)+A(3841)& - &+A(4094)+A(4195)+A(4197)+A(4368)+A(4371)+A(4382)+A(4384)+2*A(4385)+A(4398)+A(4403)+A(4405)+A(4408)+A(4410)& - &+A(4412)+A(4428)+A(4445)+A(4448)+A(4456)+A(4458)+A(4463)+A(4465)+A(4467)+A(4511)+A(4513)+A(4515)+A(4517)& - &+A(4955)+A(4981)+A(5543)+A(5546)+A(5547)+A(5608)+A(5610)+A(5611)+A(5613)+A(5687)+A(5690)+A(5691)+A(5696)& - &+A(5697)+A(5698)+A(5700)+A(5735)+A(5745)+A(5748)+A(5749)+A(5753)+A(5758)+A(6080)+2*A(6081)+A(6103)+A(6106)& - &+A(6120)+A(6122)+A(6123)+A(6125)+A(6126)+A(6183)+A(6185)+A(6186)+A(6188)+A(6189)+A(6190)+A(6191)+A(6270)& - &+A(6272)+A(6273)+A(6274)+A(6276)+A(6277)+A(6303)+A(6379)+A(6382)+A(6384)+A(6566)+A(6570)+A(6573)+A(6574)& - &+A(6606)+A(6649)+A(6667)+A(7028)+A(7030)+A(7031)+A(7032)+A(7034)+A(7117)+A(7118)+A(7119)+A(7120)+A(7122)& - &+A(7192)+A(7332)+A(7342)+A(7405)+A(7455)+A(7479)+A(7484)+A(7485)+A(7537)+A(7557)+A(7568)+A(7661)+A(7678)& - &+A(7761)+A(7815)+A(7839)+A(7868)+A(7869)+A(7884)+A(7916)+A(7918)+A(7921)+2*A(7923)+A(7981)+A(8097)+A(8223)& - &+A(8280)+A(8297)+A(8298)+A(8312)+A(8321)+A(8325)+A(8336)+A(8337)+A(8339)+2*A(8341)+A(8358)+A(8361)+A(8376)& - &+A(8377)+A(8378)+A(8379)+A(8447)+A(8466)+A(8467)+A(8468)+A(8490)+A(8591)+A(8613)+A(8618)+A(8624)+A(8691)& - &+A(8694)+A(8696)+A(8698)+A(8839)+A(8850)+A(8857)+A(8868)+A(8870)+A(8883)+A(8886)+A(8887)+A(8888)+A(8890)& - &+A(8917)+A(8940)+A(9567)+A(9591)+A(9594)+A(9595)+A(9709)+A(9710)+2*A(9822)+A(9834)+A(9838)+A(9845)+2& - &*A(9847)+A(9891)+2*A(9893)+A(9903)+A(9905)+A(9939)+A(9941)+A(9944)+A(9946)+A(9947)+A(10154)+A(10173)& - &+A(10194)+A(10202)+A(10204)+A(10207)+A(10291)+A(10294)+A(10323)+A(10327)+A(10341)+A(10343)+A(10405)& - &+A(10462)+A(10463)+A(10546)+A(10553)+A(10769)+A(10771)+A(10827)+A(10828)+A(10829)+A(10830)+A(10832)& - &+A(11084)+A(11144)+A(11146)+A(11147)+A(11210)+A(11214)+A(11216)+A(11428)+A(11429)+A(11430)+A(11436)& - &+A(11439)+A(11469)+A(11512)+A(11678)+A(11712)+A(11793)+A(11828)+A(11830)+A(11832)+A(11833)+A(11968)& - &+A(12016)+A(12122)+A(12123)+A(12212)+A(12214)+A(12215)+A(12216)+A(12218)+A(12357)+A(12386)+A(12389)& - &+A(12390)+A(12392)+A(12421)+A(12423)+A(12424)+A(12427)+A(12430)+A(12431)+A(12433)+A(12434)+A(12547)& - &+A(12570)+A(12577)+A(12579)+A(12581)+A(12583)+A(12584)+A(12601)+A(12602)+A(12622)+A(12623)+A(12625)& - &+A(12627)+A(12628)+A(12638)+A(12639)+A(12730)+A(12731)+A(12733)+A(12734)+A(12736)+A(12737)+A(12747)& - &+A(12750)+A(12751)+A(12753)+A(12754)+A(12761)+A(12775)+A(12793)+A(13142)+A(13143)+A(13145)+A(13364)& - &+A(13418)+A(13419)+A(13421)+A(13422)+A(13433)+A(13434)+A(13436)+A(13437)+A(13439)+A(13440)+A(13457)& - &+A(13459)+A(13460)+A(13517)+A(13524)+A(13525)+A(13527)+A(13528)+A(13530)+A(13774)+A(13776)+A(13779)& - &+A(13970)+A(13972)+A(13997)+A(14001)+A(14002)+A(14004)+A(14005)+A(14006)+A(14033)+A(14070)+A(14102)& - &+A(14184)+A(14186)+A(14207)+A(14208)+A(14210)+A(14460)+A(14723)+A(14732)+A(14734)+A(14737)+A(15041)& - &+A(15043)+A(15046)+A(15112)+A(15113) - Vdot(5245) = A(13932)-A(14330)-A(14331)-A(14332)-A(14333)-A(14334)-A(14335)-A(14336)-A(14337)+A(14539)+A(14609)& - &+A(14619) - Vdot(5246) = A(426)-A(1932)-A(1933)-A(1934)-A(1935)-A(1936)-A(1937)-A(1938)+A(4374)+A(4454)+A(4456)+A(9407)+A(9566)& - &+A(10783)+A(11006)+A(11007)+A(11009)+A(11011)+A(12210)+A(12326)+A(12327) - Vdot(5247) = A(10845)+A(10846)+A(10853)+A(10854)-A(12243)-A(12244)-A(12245)-A(12246)-A(12247)+A(13222) - Vdot(5248) = A(4698)-A(7081)-A(7082)-A(7083)-A(7084)-A(7085)-A(7086)-A(7087)+A(9171)+A(9172)+A(9173)+A(9174)+A(9175)& - &+A(9176)+A(9177)+A(9219)+A(9220)+A(9221)+A(9320)+A(9321)+A(9322)+A(9323)+A(9325)+A(10937)+A(10948)& - &+A(10949)+A(10953) - Vdot(5249) = A(4757)+A(4758)+A(4759)-A(7169)-A(7170)-A(7171)-A(7172)-A(7173)-A(7174)-A(7175)+A(9326)+A(9327)+A(9328)& - &+A(9329) - Vdot(5250) = 2*A(14)-A(15)-A(16)-A(17)-A(18)+A(19)-A(20)-A(22)-A(23)-A(24)+A(25)-A(27)+A(28)-A(29)-A(30)-A(32)+2*A(39)& - &+A(43)+A(44)-A(47)-A(48)-A(49)-A(50)-A(51)-A(52)-A(53)-A(54)-A(55)-A(56)-A(57)-A(58)-A(59)-A(60)-A(61)& - &-A(62)-A(63)-A(64)-A(65)-A(66)-A(67)-A(68)-A(69)-A(70)-A(71)-A(72)-A(73)-A(74)-A(75)-A(76)-A(77)-A(78)& - &-A(79)-A(80)-A(81)-A(82)-A(83)-A(84)-A(85)-A(87)-A(88)-A(89)-A(94)-A(95)-A(99)-A(102)-A(103)-A(105)-A(108)& - &-A(109)-A(113)-A(114)-A(115)-A(118)-A(119)-A(122)-A(123)-A(124)-A(135)-A(136)-A(137)-A(143)-A(144)-A(145)& - &-A(148)-A(150)-A(153)-A(154)-A(157)-A(158)-A(161)-A(162)-A(166)-A(167)-A(168)-A(172)-A(173)-A(174)-A(176)& - &-A(180)-A(181)-A(182)-A(187)-A(188)-A(189)-A(190)-A(194)-A(195)-A(196)-A(200)-A(201)-A(202)-A(205)-A(206)& - &-A(208)-A(211)-A(212)-A(215)-A(216)-A(218)-A(220)-A(222)-A(224)-A(226)-A(228)-A(231)-A(236)-A(237)-A(242)& - &-A(243)-A(246)-A(249)-A(254)-A(255)-A(260)-A(261)-A(266)-A(267)-A(272)-A(273)-A(278)-A(279)-A(284)-A(285)& - &-A(290)-A(291)-A(296)-A(297)-A(302)-A(303)-A(308)-A(309)-A(312)-A(314)-A(315)-A(316)-A(317)-A(318)-A(319)& - &-A(320)-A(321)-A(323)-A(324)-A(325)-A(326)-A(328)-A(329)-A(330)-A(331)-A(333)-A(334)-A(335)-A(336)-A(338)& - &-A(339)-A(340)-A(341)-A(343)-A(344)-A(345)-A(346)-A(348)-A(349)-A(350)-A(351)-A(353)-A(354)-A(355)-A(356)& - &-A(358)-A(359)-A(360)-A(361)-A(363)-A(364)-A(365)-A(366)-A(368)-A(369)-A(370)-A(371)-A(373)-A(374)-A(375)& - &-A(376)-A(378)-A(379)-A(380)-A(381)-A(383)-A(384)-A(385)-A(386)-A(388)-A(389)-A(390)-A(391)-A(395)-A(399)& - &-A(404)-A(405)-A(406)-A(412)-A(413)-A(414)-A(415)-A(416)-A(417)-A(418)-A(420)-A(422)-A(423)-A(424)-A(426)& - &-A(427)-A(428)-A(430)-A(431)-A(433)-A(434)-A(437)-A(438)-A(439)-A(440)-A(441)-A(443)-A(444)-A(445)-A(446)& - &-A(448)-A(449)-A(452)-A(453)-A(460)-A(461)-A(462)-A(467)-A(468)-A(469)-A(473)-A(474)-A(475)-A(481)-A(482)& - &-A(483)-A(572)-A(587)-A(588)+A(664)-A(671)-A(672)-A(674)-A(677)+A(691)-A(695)+A(699)+A(729)+A(745)+A(767)& - &+A(793)+A(817)+A(827)-A(842)+A(846)+A(849)+A(858)-A(861)+A(864)+A(869)+A(881)+A(900)+A(1169)+A(1183)& - &+A(1199)+A(1227)+A(1229)+A(1244)+A(1273)+A(1295)+A(1309)+A(1331)+A(1333)+A(1348)+A(1378)+A(1399)-A(1406)& - &-A(1416)-A(1417)-A(1422)-A(1423)-A(1424)-A(1435)-A(1436)-A(1437)-A(1447)-A(1448)-A(1466)-A(1467)-A(1473)& - &-A(1474)-A(1475)-A(1492)-A(1493)-A(1499)-A(1500)-A(1501)-A(1517)-A(1518)-A(1524)-A(1525)-A(1526)-A(1537)& - &-A(1538)-A(1539)-A(1549)-A(1550)-A(1563)-A(1564)-A(1565)-A(1575)-A(1576)-A(1588)-A(1589)-A(1590)-A(1600)& - &-A(1601)-A(1614)-A(1615)-A(1616)-A(1625)-A(1644)-A(1645)-A(1646)-A(1649)-A(1650)-A(1669)-A(1670)-A(1673)& - &-A(1674)-A(1692)-A(1693)-A(1699)-A(1700)-A(1701)-A(1711)-A(1712)-A(1718)-A(1719)-A(1720)-A(1729)-A(1730)& - &-A(1736)-A(1737)-A(1738)-A(1755)-A(1756)-A(1761)-A(1762)-A(1772)-A(1773)-A(1783)-A(1784)+A(1792)+A(1800)& - &+A(1826)+A(1829)+A(1861)-A(1866)-A(1867)+A(1871)+A(1875)-A(1890)-A(1891)-A(1896)+A(1925)+A(2072)+A(2073)& - &+A(2075)-A(2106)-A(2107)-A(2108)-A(2109)+A(2112)+A(2114)+A(2140)+A(2141)+A(2142)+A(2180)+A(2181)+A(2184)& - &-A(2206)+A(2208)-A(2209)+A(2212)-A(2213)-A(2216)-A(2220)-A(2221)-A(2223)+A(2224)-A(2226)-A(2228)+A(2229)& - &-A(2231)-A(2233)+A(2234)-A(2235)-A(2237)-A(2239)-A(2241)+A(2242)-A(2243)-A(2247)-A(2248)-A(2251)+A(2252)& - &-A(2254)-A(2255)-A(2257)-A(2258)+A(2259)-A(2260)-A(2262)-A(2264)+A(2265)-A(2266)-A(2271)-A(2272)-A(2274)& - &+A(2275)-A(2276)+A(2278)-A(2280)-A(2282)-A(2284)-A(2287)-A(2288)-A(2290)+A(2291)-A(2292)-A(2294)-A(2295)& - &+A(2299)+A(2305)-A(2308)-A(2310)-A(2312)-A(2313)+A(2314)-A(2315)-A(2317)+A(2320)+A(2332)-A(2333)-A(2335)& - &-A(2337)-A(2338)+A(2340)-A(2341)-A(2343)-A(2344)+A(2346)-A(2348)-A(2350)-A(2355)-A(2356)+A(2358)-A(2359)& - &-A(2362)-A(2363)-A(2364)+A(2366)-A(2367)-A(2370)+A(2372)-A(2373)-A(2376)-A(2381)-A(2382)-A(2383)-A(2384)& - &+A(2385)-A(2386)-A(2388)+A(2390)-A(2392)-A(2393)-A(2394)-A(2397)+A(2398)+A(2399)-A(2401)-A(2403)-A(2406)& - &+A(2407)-A(2409)-A(2411)-A(2413)-A(2414)+A(2415)+A(2416)-A(2418)-A(2421)-A(2423)-A(2424)+A(2425)-A(2426)& - &+A(2428)+A(2436)-A(2443)+A(2444)-A(2446)-A(2447)-A(2449)+A(2450)-A(2452)-A(2453)+A(2460)-A(2475)+A(2476)& - &-A(2478)-A(2480)-A(2482)+A(2483)-A(2485)+A(2487)-A(2488)-A(2491)-A(2495)+A(2496)+A(2497)-A(2499)+A(2500)& - &-A(2501)-A(2502)+A(2504)-A(2505)-A(2508)-A(2509)-A(2510)+A(2511)-A(2512)-A(2514)+A(2516)-A(2518)-A(2523)& - &-A(2527)-A(2528)+A(2529)-A(2531)-A(2533)-A(2535)-A(2536)+A(2537)-A(2538)-A(2540)+A(2542)-A(2543)-A(2547)& - &-A(2549)+A(2550)+A(2551)+A(2553)-A(2555)-A(2557)-A(2559)-A(2560)+A(2561)-A(2562)-A(2564)+A(2566)-A(2567)& - &-A(2572)+A(2573)-A(2575)-A(2577)-A(2580)+A(2581)-A(2582)-A(2585)+A(2587)-A(2591)-A(2592)-A(2593)-A(2595)& - &+A(2596)-A(2598)+A(2601)-A(2609)+A(2610)-A(2613)-A(2616)-A(2617)-A(2618)+A(2624)+A(2625)-A(2627)-A(2628)& - &-A(2632)+A(2634)+A(2635)-A(2637)-A(2639)-A(2641)+A(2642)-A(2643)-A(2644)-A(2647)+A(2648)-A(2651)-A(2654)& - &+A(2656)-A(2657)+A(2658)-A(2660)+A(2669)-A(2671)-A(2675)+A(2677)+A(2678)-A(2680)-A(2683)+A(2684)-A(2685)& - &+A(2689)-A(2690)-A(2693)-A(2695)+A(2696)-A(2697)-A(2700)+A(2701)-A(2702)-A(2705)-A(2707)+A(2708)-A(2709)& - &-A(2713)+A(2715)-A(2716)+A(2720)-A(2722)-A(2724)+A(2727)-A(2728)-A(2731)+A(2734)-A(2735)-A(2737)+A(2739)& - &-A(2740)-A(2743)-A(2745)-A(2747)+A(2749)-A(2751)-A(2753)-A(2758)-A(2759)+A(2760)-A(2762)-A(2764)-A(2766)& - &+A(2767)-A(2770)-A(2773)+A(2774)-A(2776)-A(2778)-A(2782)-A(2783)+A(2784)-A(2785)-A(2788)-A(2791)+A(2792)& - &-A(2794)-A(2796)-A(2802)-A(2803)-A(2804)+A(2805)-A(2806)-A(2808)-A(2811)+A(2812)-A(2814)-A(2816)-A(2820)& - &-A(2821)+A(2822)-A(2824)-A(2826)-A(2830)-A(2831)-A(2832)+A(2833)-A(2834)-A(2836)-A(2838)+A(2839)-A(2840)& - &-A(2843)-A(2846)+A(2847)-A(2849)-A(2851)-A(2855)-A(2856)+A(2857)-A(2859)-A(2861)-A(2866)-A(2867)+A(2868)& - &-A(2869)-A(2871)-A(2873)+A(2874)-A(2875)-A(2878)-A(2881)-A(2884)+A(2885)-A(2888)-A(2891)-A(2892)+A(2893)& - &-A(2896)-A(2899)-A(2900)+A(2901)-A(2902)-A(2904)-A(2906)+A(2907)-A(2910)-A(2913)-A(2914)+A(2915)-A(2916)& - &-A(2918)-A(2920)+A(2921)-A(2924)-A(2927)-A(2928)+A(2929)-A(2932)-A(2935)-A(2936)+A(2937)-A(2940)-A(2943)& - &-A(2944)+A(2946)-A(2947)-A(2950)-A(2952)+A(2953)-A(2956)-A(2959)-A(2960)+A(2961)-A(2964)-A(2967)+A(2969)& - &-A(2973)-A(2976)+A(2977)-A(2981)-A(2984)+A(2985)-A(2988)-A(2990)+A(2991)-A(2994)-A(2996)-A(2997)+A(2998)& - &-A(3001)-A(3011)+A(3012)-A(3015)+A(3018)-A(3021)-A(3023)+A(3024)-A(3026)+A(3027)-A(3031)-A(3040)+A(3041)& - &-A(3044)-A(3046)-A(3048)+A(3049)-A(3053)-A(3055)-A(3063)+A(3064)-A(3066)-A(3068)-A(3070)+A(3071)-A(3074)& - &-A(3077)+A(3078)-A(3081)-A(3084)+A(3085)-A(3088)-A(3090)-A(3092)+A(3093)-A(3095)-A(3097)+A(3099)-A(3103)& - &-A(3106)+A(3107)-A(3114)+A(3116)-A(3119)-A(3121)-A(3124)+A(3125)-A(3129)-A(3138)+A(3139)-A(3142)-A(3144)& - &+A(3146)-A(3149)-A(3151)+A(3152)-A(3155)-A(3159)-A(3161)-A(3163)+A(3164)-A(3167)-A(3169)-A(3177)+A(3178)& - &-A(3180)-A(3182)+A(3183)-A(3185)-A(3189)-A(3191)+A(3192)-A(3195)-A(3197)-A(3199)+A(3200)-A(3203)-A(3205)& - &-A(3206)+A(3208)-A(3210)-A(3211)-A(3213)+A(3215)-A(3217)-A(3219)+A(3220)-A(3222)-A(3223)+A(3224)-A(3226)& - &+A(3228)-A(3229)-A(3233)-A(3234)+A(3238)-A(3245)+A(3250)-A(3266)-A(3267)-A(3279)+A(3286)-A(3287)-A(3290)& - &-A(3305)+A(3307)-A(3313)-A(3315)-A(3316)+A(3318)+A(3327)+A(3344)-A(3345)-A(3349)-A(3352)-A(3353)+A(3354)& - &-A(3355)-A(3363)+A(3364)-A(3373)-A(3401)+A(3403)-A(3404)-A(3408)-A(3411)+A(3413)-A(3414)-A(3421)-A(3422)& - &-A(3423)+A(3426)-A(3435)-A(3464)+A(3466)-A(3467)-A(3471)-A(3474)-A(3475)+A(3476)-A(3477)-A(3482)+A(3483)& - &-A(3517)+A(3519)-A(3521)-A(3523)-A(3525)-A(3541)+A(3543)-A(3548)-A(3550)-A(3551)+A(3553)+A(3562)+A(3579)& - &-A(3580)-A(3583)-A(3584)-A(3600)+A(3602)-A(3607)-A(3609)-A(3610)+A(3612)+A(3621)-A(3637)+A(3638)-A(3639)& - &-A(3642)-A(3657)+A(3659)-A(3664)-A(3666)-A(3667)+A(3669)+A(3679)+A(3695)-A(3696)-A(3700)-A(3703)-A(3718)& - &+A(3720)-A(3721)-A(3729)-A(3730)-A(3733)+A(3744)-A(3745)-A(3749)-A(3752)-A(3753)+A(3754)-A(3755)-A(3763)& - &-A(3778)+A(3779)+A(3800)-A(3801)-A(3805)-A(3808)+A(3810)-A(3811)-A(3815)-A(3816)+A(3829)-A(3838)+A(3841)& - &+A(3856)-A(3857)-A(3860)-A(3861)-A(3863)+A(3864)-A(3865)-A(3873)+A(3874)-A(3883)-A(3911)-A(3912)+A(3913)& - &-A(3914)-A(3921)-A(3922)+A(3924)-A(3959)-A(3960)+A(3961)-A(3962)-A(3968)+A(3969)-A(4003)+A(4005)-A(4006)& - &-A(4009)-A(4010)-A(4012)+A(4013)-A(4014)-A(4020)-A(4021)+A(4023)+A(4031)+A(4057)-A(4058)-A(4061)-A(4062)& - &-A(4075)+A(4076)-A(4077)-A(4081)-A(4082)+A(4084)-A(4093)-A(4108)-A(4116)+A(4117)-A(4119)+A(4120)-A(4121)& - &-A(4122)-A(4124)+A(4125)+A(4126)-A(4129)-A(4131)+A(4132)-A(4135)-A(4138)-A(4143)-A(4144)+A(4151)-A(4154)& - &-A(4160)-A(4161)+A(4162)-A(4164)-A(4166)-A(4169)-A(4170)+A(4173)-A(4178)+A(4179)-A(4182)-A(4187)-A(4192)& - &-A(4193)+A(4197)+A(4246)+A(4266)+A(4269)-A(4270)-A(4274)-A(4275)-A(4277)+A(4282)+A(4289)+A(4304)+A(4339)& - &-A(4340)-A(4341)-A(4342)-A(4345)+A(4347)-A(4348)-A(4349)-A(4350)-A(4351)-A(4354)+A(4356)-A(4357)-A(4362)& - &-A(4363)-A(4364)-A(4366)-A(4369)+A(4371)+A(4372)-A(4374)+A(4375)-A(4376)-A(4381)+A(4382)+A(4383)-A(4386)& - &-A(4388)+A(4389)+A(4390)-A(4394)-A(4396)+A(4397)-A(4400)-A(4402)-A(4404)-A(4407)+A(4408)+A(4409)-A(4411)& - &-A(4414)+A(4415)+A(4416)-A(4419)+A(4420)-A(4421)-A(4424)+A(4426)-A(4427)+A(4429)-A(4432)-A(4437)-A(4439)& - &+A(4440)-A(4441)-A(4444)-A(4447)-A(4450)+A(4451)-A(4452)-A(4457)-A(4459)-A(4460)-A(4462)+A(4463)+A(4464)& - &-A(4466)-A(4469)+A(4470)-A(4472)-A(4475)-A(4478)+A(4479)+A(4480)-A(4482)-A(4484)-A(4487)+A(4488)+A(4489)& - &-A(4492)+A(4493)-A(4494)-A(4498)-A(4501)-A(4503)+A(4504)-A(4505)-A(4510)+A(4511)+A(4512)-A(4514)-A(4516)& - &+A(4518)-A(4521)-A(4526)-A(4528)+A(4530)-A(4531)-A(4535)-A(4537)+A(4538)-A(4539)+A(4540)-A(4542)-A(4543)& - &+A(4545)-A(4548)-A(4549)-A(4575)+A(4576)-A(4578)+A(4580)-A(4582)-A(4583)+A(4584)-A(4585)-A(4588)-A(4589)& - &+A(4590)-A(4592)+A(4594)-A(4596)-A(4598)-A(4626)-A(4632)+A(4633)-A(4635)+A(4637)-A(4640)-A(4642)+A(4643)& - &-A(4644)-A(4647)-A(4648)+A(4649)-A(4651)-A(4677)+A(4678)-A(4679)-A(4681)+A(4683)-A(4685)-A(4686)+A(4687)& - &-A(4688)-A(4690)-A(4691)+A(4692)-A(4694)-A(4699)-A(4700)-A(4701)-A(4702)-A(4703)-A(4707)-A(4710)-A(4725)& - &-A(4746)+A(4747)-A(4748)-A(4750)+A(4752)-A(4754)-A(4755)+A(4756)-A(4757)-A(4759)+A(4762)+A(4770)+A(4784)& - &-A(4789)+A(4790)-A(4791)-A(4793)-A(4794)-A(4795)+A(4796)-A(4797)-A(4799)+A(4800)-A(4801)-A(4806)+A(4816)& - &+A(4821)+A(4834)-A(4843)-A(4844)-A(4846)-A(4848)-A(4855)-A(4856)+A(4857)-A(4858)-A(4860)+A(4861)-A(4862)& - &+A(4865)-A(4871)+A(4872)-A(4873)-A(4875)-A(4876)+A(4879)+A(4884)+A(4892)+A(4898)+A(4914)+A(4927)+A(4935)& - &-A(4944)+A(4947)-A(4954)-A(4955)-A(4956)-A(4957)+A(4959)+A(4969)+A(4976)+A(4984)+A(5011)+A(5024)+A(5051)& - &+A(5089)+A(5122)+A(5134)+A(5149)+A(5265)+A(5273)+A(5289)+A(5295)+A(5310)+A(5323)+A(5339)+A(5354)+A(5362)& - &+A(5371)+A(5391)-A(5411)+A(5414)-A(5420)-A(5422)+A(5423)-A(5424)+A(5426)+A(5441)-A(5442)-A(5446)-A(5448)& - &+A(5451)+A(5452)-A(5454)-A(5456)-A(5465)-A(5466)+A(5467)+A(5468)-A(5470)+A(5474)-A(5475)+A(5476)-A(5479)& - &-A(5480)+A(5481)-A(5484)-A(5485)+A(5486)+A(5487)-A(5489)-A(5492)+A(5499)-A(5504)-A(5505)-A(5506)-A(5513)& - &-A(5514)-A(5519)+A(5520)-A(5528)-A(5530)+A(5531)-A(5532)+A(5541)-A(5542)-A(5546)-A(5548)+A(5551)+A(5552)& - &-A(5554)-A(5556)+A(5558)-A(5566)-A(5571)-A(5572)+A(5576)-A(5577)-A(5578)-A(5580)+A(5581)-A(5582)+A(5584)& - &+A(5597)-A(5598)-A(5602)-A(5604)-A(5606)+A(5608)+A(5609)-A(5611)-A(5614)+A(5615)+A(5616)-A(5618)-A(5621)& - &-A(5626)+A(5627)-A(5630)+A(5633)+A(5634)-A(5649)-A(5650)+A(5654)-A(5655)+A(5657)-A(5658)+A(5659)-A(5665)& - &-A(5667)+A(5668)-A(5669)+A(5671)+A(5685)-A(5686)-A(5690)-A(5692)+A(5695)-A(5697)-A(5699)-A(5702)-A(5707)& - &+A(5708)-A(5711)-A(5712)+A(5713)+A(5714)-A(5716)+A(5720)+A(5721)-A(5734)-A(5736)-A(5738)+A(5739)-A(5740)& - &+A(5743)-A(5744)-A(5748)-A(5750)-A(5752)+A(5754)+A(5755)-A(5757)-A(5760)+A(5761)+A(5762)-A(5764)-A(5767)& - &-A(5772)+A(5773)-A(5776)+A(5779)+A(5782)-A(5789)-A(5794)+A(5795)-A(5798)-A(5799)+A(5800)+A(5801)-A(5803)& - &+A(5807)-A(5811)-A(5812)+A(5816)-A(5817)+A(5818)-A(5826)-A(5828)+A(5829)-A(5830)+A(5839)-A(5840)-A(5844)& - &-A(5846)+A(5849)+A(5850)-A(5852)-A(5854)-A(5862)+A(5863)+A(5864)-A(5866)-A(5869)-A(5874)+A(5875)-A(5878)& - &+A(5881)-A(5883)-A(5888)-A(5889)+A(5893)-A(5894)+A(5895)-A(5903)-A(5905)+A(5906)-A(5907)+A(5916)-A(5917)& - &-A(5921)-A(5923)+A(5926)+A(5927)-A(5929)-A(5931)-A(5933)-A(5936)-A(5941)+A(5942)-A(5945)-A(5946)+A(5947)& - &+A(5948)-A(5950)+A(5954)-A(5958)-A(5959)+A(5964)-A(5965)+A(5966)-A(5974)-A(5976)+A(5977)-A(5978)+A(5987)& - &-A(5988)-A(5992)-A(5994)+A(5997)+A(5998)-A(6000)-A(6002)+A(6004)-A(6012)+A(6013)+A(6014)-A(6016)-A(6019)& - &-A(6024)+A(6025)-A(6027)+A(6030)-A(6032)-A(6033)-A(6038)+A(6040)-A(6041)+A(6042)+A(6055)-A(6058)-A(6060)& - &-A(6063)+A(6065)-A(6079)-A(6082)+A(6083)+A(6084)-A(6086)-A(6089)-A(6094)+A(6095)-A(6098)+A(6101)-A(6102)& - &-A(6104)+A(6105)-A(6107)+A(6110)-A(6113)-A(6115)-A(6117)-A(6119)+A(6121)+A(6122)-A(6124)+A(6127)+A(6139)& - &-A(6146)+A(6147)+A(6148)-A(6150)-A(6152)+A(6153)-A(6155)-A(6156)-A(6158)+A(6159)-A(6160)+A(6162)-A(6174)& - &+A(6175)-A(6178)-A(6180)+A(6183)+A(6184)-A(6187)-A(6189)-A(6198)-A(6200)+A(6201)-A(6202)+A(6204)+A(6217)& - &-A(6218)-A(6222)-A(6224)-A(6226)+A(6227)+A(6228)-A(6230)-A(6233)+A(6234)+A(6235)-A(6237)-A(6240)-A(6245)& - &+A(6246)-A(6249)+A(6252)-A(6253)-A(6255)+A(6256)-A(6257)+A(6260)-A(6261)-A(6265)-A(6267)-A(6269)+A(6270)& - &+A(6271)-A(6273)-A(6276)-A(6280)-A(6285)+A(6286)-A(6289)-A(6290)+A(6291)+A(6292)-A(6294)+A(6298)-A(6301)& - &-A(6304)-A(6306)+A(6307)-A(6308)+A(6311)-A(6312)-A(6316)-A(6318)-A(6320)+A(6322)+A(6323)-A(6325)-A(6328)& - &+A(6329)+A(6330)-A(6332)-A(6335)-A(6340)+A(6341)-A(6344)+A(6347)-A(6357)-A(6358)+A(6362)-A(6363)-A(6364)& - &-A(6366)+A(6367)-A(6368)-A(6370)+A(6371)-A(6374)-A(6376)+A(6379)+A(6380)-A(6383)-A(6385)-A(6387)+A(6388)& - &+A(6389)-A(6391)-A(6393)+A(6394)-A(6396)+A(6404)-A(6409)+A(6410)+A(6411)-A(6413)-A(6415)+A(6416)-A(6418)& - &+A(6420)-A(6425)-A(6427)+A(6428)-A(6429)+A(6431)-A(6450)+A(6451)-A(6454)-A(6456)+A(6459)+A(6460)-A(6462)& - &-A(6464)+A(6474)+A(6483)+A(6492)+A(6501)+A(6512)+A(6526)+A(6534)+A(6536)+A(6546)+A(6553)+A(6555)+A(6561)& - &-A(6564)-A(6567)-A(6568)-A(6569)+A(6571)-A(6575)+A(6576)+A(6577)-A(6578)-A(6582)+A(6584)-A(6587)-A(6594)& - &+A(6599)+A(6600)+A(6606)+2*A(6607)-A(6613)-A(6614)-A(6615)-A(6616)-A(6617)-A(6618)+A(6619)-A(6621)-A(6625)& - &-A(6626)-A(6628)+A(6629)-A(6632)+A(6640)+A(6641)-A(6646)+A(6647)+2*A(6648)-A(6654)-A(6655)-A(6656)-A(6657)& - &+A(6658)-A(6661)-A(6665)-A(6668)+A(6675)+A(6684)-A(6689)+A(6690)-A(6699)+A(6700)-A(6701)-A(6704)+A(6705)& - &-A(6706)+A(6709)-A(6710)-A(6713)+A(6714)+A(6716)-A(6719)-A(6723)+A(6725)-A(6726)-A(6758)-A(6759)+A(6786)& - &+A(6828)+A(6883)+A(6904)-A(6922)-A(6924)-A(6925)+A(6931)-A(6939)+A(6940)-A(6942)+A(6945)+A(6946)-A(6949)& - &-A(6951)-A(6954)-A(6956)+A(6958)-A(6959)-A(6962)-A(6965)-A(6967)+A(6976)+A(6982)-A(6983)-A(6987)-A(6988)& - &+A(6990)-A(6991)-A(6994)-A(6995)-A(6996)+A(6997)-A(6998)-A(7001)+A(7003)-A(7005)-A(7006)+A(7015)-A(7024)& - &-A(7025)+A(7028)+A(7029)-A(7031)-A(7033)+A(7036)+A(7037)-A(7039)-A(7041)+A(7044)-A(7045)-A(7048)-A(7049)& - &-A(7050)-A(7052)+A(7054)-A(7064)-A(7065)+A(7068)+A(7080)-A(7082)-A(7083)-A(7084)-A(7085)-A(7086)-A(7094)& - &-A(7106)+A(7108)+A(7116)+A(7117)-A(7119)-A(7121)+A(7124)+A(7125)-A(7127)-A(7129)+A(7132)-A(7133)+A(7141)& - &-A(7142)-A(7149)-A(7150)-A(7152)+A(7154)+A(7155)-A(7157)-A(7159)+A(7162)-A(7163)-A(7166)-A(7168)-A(7174)& - &-A(7175)-A(7176)+A(7177)-A(7178)-A(7180)-A(7181)+A(7182)-A(7183)-A(7185)+A(7186)-A(7189)-A(7191)-A(7193)& - &+A(7194)-A(7195)-A(7197)+A(7198)-A(7199)-A(7201)-A(7203)-A(7206)+A(7207)-A(7208)-A(7210)-A(7211)+A(7212)& - &-A(7213)+A(7215)-A(7217)-A(7218)-A(7222)-A(7223)-A(7224)+A(7225)-A(7226)-A(7228)+A(7230)-A(7249)+A(7250)& - &-A(7252)+A(7253)-A(7254)-A(7256)+A(7257)-A(7258)-A(7260)+A(7261)-A(7262)-A(7264)+A(7265)-A(7266)-A(7268)& - &-A(7269)-A(7271)+A(7272)-A(7273)+A(7276)+A(7277)-A(7279)+A(7280)-A(7281)-A(7283)+A(7284)-A(7285)-A(7288)& - &-A(7292)-A(7293)-A(7295)-A(7296)-A(7298)-A(7300)+A(7301)-A(7302)+A(7304)-A(7305)+A(7308)-A(7314)-A(7315)& - &-A(7316)-A(7317)+A(7318)-A(7319)-A(7321)-A(7322)-A(7323)-A(7324)+A(7325)-A(7326)-A(7328)+A(7329)-A(7330)& - &+A(7333)-A(7334)-A(7336)+A(7337)-A(7340)-A(7343)-A(7344)-A(7345)+A(7346)-A(7348)-A(7350)-A(7354)+A(7355)& - &-A(7356)-A(7359)-A(7361)-A(7362)-A(7365)-A(7366)+A(7367)-A(7369)+A(7370)-A(7373)-A(7375)-A(7378)-A(7379)& - &+A(7380)-A(7381)-A(7382)+A(7384)-A(7387)-A(7389)+A(7390)-A(7392)-A(7394)-A(7398)-A(7399)+A(7400)-A(7403)& - &-A(7406)-A(7407)-A(7408)+A(7409)-A(7410)-A(7412)+A(7413)-A(7415)-A(7417)-A(7421)-A(7422)+A(7423)+A(7424)& - &-A(7425)-A(7428)+A(7429)-A(7432)-A(7436)-A(7438)+A(7439)-A(7441)-A(7443)-A(7447)-A(7448)-A(7449)+A(7450)& - &-A(7453)-A(7456)-A(7457)-A(7458)+A(7459)-A(7460)-A(7462)+A(7463)-A(7465)-A(7467)-A(7471)-A(7472)+A(7473)& - &-A(7476)-A(7480)-A(7481)+A(7482)-A(7483)-A(7486)+A(7487)-A(7489)-A(7491)-A(7495)-A(7496)-A(7497)+A(7498)& - &-A(7499)-A(7501)+A(7502)-A(7504)-A(7506)-A(7510)-A(7511)+A(7512)-A(7513)-A(7515)+A(7516)-A(7517)-A(7520)& - &-A(7522)-A(7525)-A(7526)+A(7527)-A(7528)-A(7530)+A(7531)-A(7534)-A(7536)-A(7538)+A(7539)-A(7540)+A(7542)& - &-A(7543)-A(7545)-A(7547)+A(7548)-A(7549)+A(7551)-A(7554)-A(7558)-A(7559)+A(7560)-A(7563)-A(7565)-A(7566)& - &-A(7567)+A(7569)-A(7570)-A(7573)-A(7575)-A(7577)-A(7580)+A(7581)-A(7584)-A(7586)-A(7588)-A(7589)+A(7590)& - &-A(7591)+A(7593)-A(7596)-A(7598)-A(7600)-A(7601)+A(7602)-A(7603)+A(7605)-A(7608)-A(7610)-A(7612)-A(7613)& - &+A(7614)-A(7615)+A(7617)-A(7620)-A(7622)-A(7624)-A(7625)+A(7626)-A(7627)+A(7629)-A(7632)-A(7634)-A(7636)& - &-A(7637)+A(7638)-A(7639)+A(7642)-A(7643)-A(7646)-A(7647)-A(7648)+A(7649)-A(7650)-A(7652)-A(7653)+A(7654)& - &-A(7655)-A(7657)+A(7658)-A(7660)-A(7662)-A(7664)+A(7665)-A(7666)-A(7668)-A(7669)+A(7670)-A(7671)-A(7673)& - &+A(7674)-A(7676)-A(7679)-A(7681)-A(7682)+A(7683)-A(7684)-A(7686)+A(7687)-A(7690)+A(7691)-A(7692)-A(7694)& - &+A(7695)-A(7697)+A(7698)-A(7701)-A(7702)+A(7703)-A(7704)-A(7706)+A(7707)-A(7708)-A(7709)+A(7710)-A(7711)& - &-A(7713)+A(7714)-A(7715)-A(7718)+A(7719)-A(7722)-A(7723)+A(7724)-A(7725)-A(7727)+A(7728)-A(7730)-A(7733)& - &+A(7736)-A(7738)-A(7741)+A(7742)-A(7743)-A(7745)+A(7747)-A(7749)-A(7751)-A(7754)+A(7755)-A(7758)-A(7760)& - &+A(7767)-A(7774)-A(7776)+A(7778)-A(7781)-A(7783)-A(7785)+A(7786)-A(7787)+A(7790)+A(7791)-A(7793)-A(7796)& - &+A(7797)+A(7798)-A(7800)-A(7802)-A(7807)-A(7813)-A(7814)-A(7817)-A(7820)+A(7821)-A(7823)-A(7828)+A(7830)& - &+A(7839)+A(7855)-A(7864)+A(7865)-A(7866)-A(7869)-A(7870)-A(7871)+A(7872)-A(7873)+A(7877)+A(7883)-A(7907)& - &-A(7909)+A(7910)-A(7911)-A(7913)+A(7914)+A(7915)+A(7916)-A(7919)-A(7922)-A(7926)+A(7927)-A(7929)-A(7931)& - &-A(7936)-A(7937)+A(7938)-A(7939)-A(7941)+A(7942)-A(7979)+A(7980)-A(7982)-A(7984)-A(7986)+A(7987)-A(7988)& - &-A(7990)+A(7991)+A(7992)-A(7996)+A(7997)-A(7999)-A(8001)-A(8006)-A(8008)-A(8009)+A(8010)-A(8011)-A(8013)& - &+A(8014)-A(8024)+A(8025)-A(8027)-A(8029)-A(8034)-A(8035)+A(8036)-A(8037)-A(8041)+A(8042)-A(8043)-A(8046)& - &-A(8048)-A(8053)-A(8079)+A(8080)-A(8082)-A(8084)-A(8086)+A(8094)-A(8096)-A(8098)-A(8099)-A(8103)+A(8104)& - &-A(8106)-A(8108)-A(8113)+A(8116)-A(8143)+A(8144)+A(8145)-A(8146)-A(8148)-A(8150)-A(8165)+A(8166)-A(8167)& - &-A(8170)-A(8172)-A(8177)-A(8203)+A(8204)+A(8205)-A(8206)-A(8208)-A(8210)-A(8217)-A(8218)+A(8219)-A(8220)& - &-A(8222)-A(8226)+A(8227)-A(8229)+A(8234)-A(8251)-A(8272)-A(8274)+A(8275)-A(8276)+A(8279)+A(8280)+A(8281)& - &-A(8282)-A(8283)+A(8284)-A(8285)-A(8287)+A(8288)+A(8290)-A(8297)-A(8301)+A(8302)-A(8304)-A(8306)-A(8311)& - &-A(8313)-A(8314)+A(8315)-A(8316)-A(8318)+A(8319)-A(8323)+A(8324)+A(8325)-A(8326)-A(8328)-A(8330)+A(8331)& - &-A(8332)-A(8334)+A(8335)+A(8336)-A(8338)-A(8340)+A(8343)+A(8344)-A(8346)-A(8348)-A(8350)-A(8352)+A(8353)& - &-A(8354)-A(8356)+A(8357)+A(8358)+A(8359)-A(8362)-A(8366)+A(8367)-A(8369)-A(8371)-A(8379)-A(8382)+A(8383)& - &-A(8385)-A(8387)-A(8400)+A(8401)-A(8403)-A(8405)+A(8411)+A(8412)-A(8414)-A(8416)+A(8418)-A(8446)+A(8450)& - &+A(8451)-A(8453)-A(8455)-A(8457)+A(8458)-A(8463)-A(8465)-A(8466)-A(8469)+A(8470)-A(8471)-A(8473)-A(8475)& - &+A(8476)-A(8477)-A(8479)+A(8480)+A(8481)-A(8483)+A(8486)+A(8487)-A(8489)+A(8491)+A(8492)-A(8496)-A(8498)& - &-A(8499)+A(8500)-A(8501)-A(8503)+A(8510)-A(8515)-A(8518)-A(8519)+A(8520)-A(8521)-A(8523)+A(8530)-A(8532)& - &-A(8535)-A(8538)+A(8546)-A(8547)-A(8549)+A(8552)+A(8553)-A(8555)+A(8557)-A(8558)-A(8560)+A(8566)-A(8568)& - &-A(8569)-A(8570)-A(8571)-A(8574)-A(8575)-A(8576)+A(8577)-A(8578)-A(8580)+A(8586)-A(8587)-A(8589)-A(8590)& - &-A(8592)+A(8598)-A(8601)+A(8603)+A(8605)+2*A(8607)+A(8608)+2*A(8609)+A(8610)+A(8613)+2*A(8614)-A(8617)& - &+A(8618)+2*A(8619)+A(8621)+A(8622)-A(8623)+A(8624)+A(8625)+A(8639)-A(8640)-A(8641)-A(8642)-A(8643)-A(8644)& - &+A(8645)-A(8662)-A(8663)+A(8669)+2*A(8671)+A(8672)+2*A(8673)+A(8674)+A(8677)+A(8678)+2*A(8679)-A(8682)& - &+A(8683)+2*A(8684)-A(8689)+A(8690)+A(8691)+A(8711)+A(8713)+A(8724)-A(8725)-A(8726)-A(8727)-A(8728)-A(8729)& - &-A(8730)-A(8731)-A(8733)+A(8739)-A(8740)-A(8742)-A(8744)-A(8745)+A(8746)-A(8747)-A(8749)-A(8752)+A(8760)& - &-A(8761)+A(8763)-A(8764)-A(8768)-A(8769)-A(8770)+A(8772)-A(8773)-A(8777)-A(8779)-A(8780)+A(8782)-A(8785)& - &-A(8787)-A(8788)+A(8790)-A(8791)-A(8792)-A(8795)+A(8805)-A(8806)-A(8809)-A(8810)+A(8811)-A(8813)-A(8815)& - &+A(8817)-A(8819)-A(8821)-A(8822)-A(8823)+A(8824)-A(8825)-A(8827)+A(8829)-A(8831)-A(8834)+A(8836)-A(8837)& - &-A(8840)+A(8842)-A(8844)-A(8846)-A(8848)+A(8849)-A(8851)+A(8852)+A(8853)-A(8855)-A(8858)+A(8859)+A(8860)& - &-A(8861)-A(8865)-A(8867)-A(8869)+A(8871)-A(8872)-A(8874)-A(8875)+A(8876)-A(8879)+A(8881)+A(8883)+A(8884)& - &-A(8889)-A(8891)+A(8892)-A(8894)-A(8896)+A(8899)-A(8902)-A(8905)-A(8907)-A(8908)+A(8909)-A(8913)+A(8914)& - &-A(8916)-A(8918)-A(8920)+A(8921)-A(8924)+A(8925)+A(8926)-A(8928)-A(8930)-A(8932)+A(8933)-A(8934)-A(8936)& - &+A(8937)-A(8938)+A(8939)+A(8941)-A(8942)-A(8946)-A(8948)-A(8949)+A(8950)-A(8951)-A(8953)-A(8954)+A(8955)& - &-A(8958)-A(8961)-A(8963)+A(8965)-A(8968)-A(8970)-A(8978)+A(8979)-A(8981)+A(8982)-A(8983)+A(8991)+A(9000)& - &+A(9017)+A(9033)-A(9034)-A(9037)-A(9038)+A(9039)-A(9040)-A(9062)+A(9070)-A(9071)-A(9074)-A(9075)-A(9076)& - &+A(9077)-A(9078)+A(9085)-A(9087)-A(9088)-A(9100)-A(9101)+A(9105)+A(9111)+A(9126)-A(9139)+A(9140)-A(9141)& - &+A(9148)+A(9149)+A(9150)-A(9165)+A(9166)-A(9167)-A(9169)+A(9170)-A(9172)+A(9186)-A(9217)+A(9218)-A(9219)& - &-A(9221)+A(9223)-A(9224)-A(9226)+A(9239)-A(9240)-A(9242)+A(9245)+A(9251)+A(9271)-A(9272)-A(9274)-A(9287)& - &+A(9290)+A(9332)+A(9333)+A(9336)+A(9353)+A(9359)-A(9364)+A(9365)-A(9366)-A(9369)+A(9370)-A(9373)-A(9374)& - &-A(9376)+A(9377)-A(9379)+A(9380)+A(9382)-A(9394)-A(9396)-A(9398)-A(9400)-A(9402)+A(9403)-A(9405)-A(9409)& - &+A(9412)-A(9420)+A(9422)-A(9436)+A(9439)-A(9453)-A(9454)+A(9464)+A(9477)+A(9484)-A(9506)+A(9509)+A(9534)& - &+A(9549)+A(9557)-A(9564)-A(9565)-A(9568)-A(9569)-A(9592)-A(9593)-A(9596)-A(9597)+A(9611)-A(9625)-A(9638)& - &-A(9655)-A(9672)-A(9689)-A(9707)-A(9709)-A(9711)-A(9715)-A(9716)+A(9717)-A(9726)+A(9727)-A(9729)-A(9730)& - &-A(9731)-A(9732)-A(9735)-A(9748)+A(9749)-A(9771)-A(9784)+A(9785)-A(9788)+A(9790)-A(9791)-A(9794)-A(9797)& - &+A(9798)-A(9800)-A(9802)-A(9804)+A(9805)-A(9817)+A(9818)-A(9820)-A(9821)-A(9826)-A(9833)+A(9834)+A(9835)& - &-A(9837)-A(9839)+A(9840)-A(9843)+A(9844)-A(9846)-A(9848)-A(9849)+A(9850)-A(9852)-A(9854)-A(9877)+A(9878)& - &-A(9879)+A(9880)+A(9881)-A(9883)-A(9885)+A(9886)-A(9889)+A(9890)-A(9892)-A(9894)-A(9895)+A(9896)-A(9898)& - &-A(9899)+A(9900)-A(9902)+A(9903)+A(9904)-A(9906)+A(9907)-A(9909)-A(9910)-A(9912)-A(9934)+A(9935)-A(9936)& - &-A(9938)+A(9939)+A(9940)-A(9943)-A(9945)-A(9949)-A(9971)+A(9972)-A(9974)-A(9997)+A(9998)-A(9999)+A(10000)& - &+A(10001)-A(10003)-A(10005)-A(10008)+A(10009)-A(10012)+A(10014)-A(10015)+A(10016)-A(10018)-A(10019)& - &+A(10021)-A(10026)+A(10027)-A(10034)-A(10057)+A(10058)+A(10060)-A(10063)+A(10064)-A(10067)-A(10069)& - &+A(10070)-A(10073)+A(10075)-A(10076)+A(10077)-A(10079)-A(10080)+A(10082)-A(10087)+A(10088)+A(10091)& - &-A(10093)-A(10095)-A(10098)-A(10121)+A(10122)+A(10124)-A(10127)+A(10129)-A(10131)-A(10133)+A(10134)& - &-A(10137)+A(10139)-A(10140)+A(10141)-A(10143)-A(10144)+A(10146)-A(10151)+A(10152)-A(10157)-A(10170)& - &+A(10171)-A(10172)+A(10173)-A(10175)-A(10177)+A(10178)-A(10180)-A(10182)+A(10183)-A(10185)+A(10186)& - &-A(10188)-A(10189)+A(10190)-A(10192)+A(10193)-A(10195)-A(10196)+A(10197)-A(10199)-A(10200)-A(10201)& - &+A(10202)+A(10203)-A(10206)-A(10209)-A(10231)+A(10232)-A(10233)-A(10239)-A(10262)+A(10263)-A(10265)& - &-A(10287)+A(10288)+A(10290)-A(10293)-A(10296)-A(10299)-A(10321)+A(10322)-A(10325)+A(10326)+A(10327)& - &-A(10328)-A(10330)+A(10331)-A(10333)-A(10335)+A(10336)-A(10339)+A(10340)-A(10342)-A(10344)-A(10345)& - &+A(10346)-A(10348)-A(10349)+A(10350)-A(10358)+A(10360)-A(10365)-A(10367)-A(10369)-A(10370)-A(10374)& - &+A(10376)-A(10383)+A(10386)+2*A(10387)-A(10388)+A(10390)+A(10391)-A(10404)+A(10405)+A(10406)-A(10411)& - &+A(10412)-A(10415)+A(10417)-A(10418)-A(10421)-A(10422)-A(10430)-A(10431)+A(10432)-A(10433)-A(10434)& - &-A(10436)-A(10438)-A(10439)-A(10441)+A(10442)-A(10446)+2*A(10448)+A(10449)-A(10450)+A(10452)+A(10453)& - &-A(10458)+A(10460)-A(10462)+A(10463)-A(10466)-A(10467)+A(10468)-A(10470)+A(10472)-A(10474)-A(10475)& - &-A(10478)-A(10484)-A(10485)+A(10486)-A(10489)+A(10490)+A(10491)-A(10492)-A(10493)+A(10494)-A(10495)& - &-A(10497)-A(10499)-A(10500)-A(10502)+A(10505)-A(10511)+A(10513)-A(10514)-A(10517)-A(10519)-A(10523)& - &-A(10524)+A(10526)-A(10543)+A(10545)-A(10546)-A(10547)-A(10550)-A(10551)-A(10555)-A(10567)+A(10570)& - &+A(10576)+A(10594)-A(10608)+A(10609)-A(10610)-A(10613)-A(10619)+A(10620)-A(10621)-A(10624)-A(10628)& - &-A(10630)+A(10631)-A(10632)-A(10634)+A(10635)-A(10636)-A(10638)-A(10640)+A(10641)-A(10643)+A(10644)& - &-A(10646)-A(10648)+A(10649)-A(10650)-A(10652)+A(10653)-A(10655)+A(10656)-A(10657)-A(10659)-A(10660)& - &+A(10661)-A(10662)-A(10665)+A(10668)-A(10669)-A(10672)-A(10673)+A(10675)-A(10676)-A(10681)-A(10683)& - &+A(10686)-A(10692)+A(10693)-A(10694)-A(10697)-A(10704)+A(10705)-A(10707)+A(10714)-A(10728)+A(10729)& - &-A(10730)-A(10732)-A(10739)+A(10741)-A(10754)-A(10756)+A(10757)-A(10758)-A(10762)-A(10763)+A(10764)& - &-A(10765)+A(10768)-A(10770)-A(10772)-A(10773)+A(10774)-A(10775)-A(10777)+A(10778)+A(10781)-A(10784)& - &+A(10785)-A(10787)-A(10806)+A(10807)-A(10808)-A(10810)+A(10812)-A(10814)+A(10816)-A(10818)-A(10820)& - &-A(10821)+A(10822)-A(10823)+A(10826)+A(10827)-A(10829)-A(10831)+A(10834)+A(10835)-A(10837)-A(10839)& - &+A(10842)+A(10843)-A(10845)-A(10847)+A(10850)-A(10851)-A(10854)-A(10855)+A(10857)-A(10859)-A(10860)& - &-A(10861)-A(10862)+A(10863)-A(10864)-A(10868)-A(10869)+A(10870)-A(10871)+A(10874)-A(10876)-A(10878)& - &+A(10880)-A(10881)-A(10884)-A(10885)+A(10886)-A(10888)+A(10891)-A(10915)+A(10916)-A(10917)-A(10919)& - &+A(10921)-A(10922)-A(10925)-A(10926)-A(10927)+A(10928)-A(10929)+A(10930)-A(10931)-A(10934)-A(10935)& - &+A(10936)-A(10938)-A(10946)+A(10947)-A(10948)-A(10950)+A(10952)-A(10954)+A(10955)-A(10956)-A(10958)& - &+A(10959)-A(10960)-A(10962)-A(10965)+A(10968)-A(10986)+A(10987)-A(10988)-A(10990)-A(10991)+A(10992)& - &-A(10994)+A(10998)+A(11006)-A(11012)+A(11013)-A(11014)-A(11016)+A(11019)+A(11025)-A(11026)-A(11028)& - &+A(11029)-A(11032)-A(11035)+A(11038)-A(11044)+A(11045)-A(11046)-A(11048)+A(11049)-A(11050)-A(11051)& - &-A(11053)+A(11056)+A(11067)-A(11070)-A(11073)-A(11074)+A(11075)-A(11076)-A(11078)+A(11079)+A(11080)& - &-A(11082)-A(11085)-A(11087)+A(11088)-A(11089)-A(11091)-A(11092)+A(11093)-A(11094)-A(11096)+A(11097)& - &-A(11100)-A(11104)-A(11106)+A(11107)-A(11110)-A(11113)-A(11115)+A(11118)-A(11124)+A(11125)-A(11126)& - &-A(11128)+A(11129)-A(11130)-A(11132)-A(11135)+A(11136)-A(11140)-A(11142)+A(11143)+A(11144)-A(11145)& - &-A(11148)-A(11149)+A(11150)-A(11151)-A(11153)+A(11154)-A(11155)-A(11158)-A(11160)-A(11163)-A(11164)& - &+A(11165)-A(11166)-A(11168)-A(11169)+A(11170)-A(11171)-A(11173)+A(11193)+A(11194)-A(11195)+A(11197)& - &-A(11198)+A(11200)-A(11203)-A(11206)-A(11208)+A(11209)+A(11210)-A(11212)-A(11215)-A(11217)+A(11235)& - &-A(11236)+A(11238)-A(11240)-A(11242)-A(11244)-A(11247)-A(11248)+A(11249)-A(11250)-A(11252)+A(11253)& - &-A(11256)-A(11259)-A(11261)+A(11268)-A(11269)+A(11271)-A(11274)-A(11277)-A(11279)+A(11286)-A(11287)& - &+A(11289)-A(11290)+A(11292)-A(11295)-A(11298)-A(11300)+A(11307)-A(11308)+A(11310)-A(11311)+A(11313)& - &-A(11316)-A(11319)-A(11321)+A(11328)-A(11329)+A(11331)-A(11332)+A(11334)-A(11337)-A(11340)-A(11342)& - &+A(11345)+A(11357)-A(11358)+A(11361)-A(11362)-A(11365)-A(11366)+A(11367)-A(11370)-A(11372)-A(11373)& - &-A(11388)+A(11389)-A(11390)+A(11391)-A(11393)+A(11394)-A(11396)+A(11397)+A(11400)-A(11402)-A(11403)& - &-A(11404)+A(11405)+A(11408)-A(11410)-A(11411)-A(11420)+A(11421)-A(11422)+A(11423)-A(11425)+A(11426)& - &-A(11429)-A(11432)-A(11434)+A(11435)-A(11437)-A(11438)-A(11452)+A(11453)-A(11454)+A(11455)+A(11458)& - &-A(11460)-A(11461)-A(11462)+A(11463)-A(11465)+A(11466)-A(11468)-A(11471)-A(11478)-A(11493)+A(11494)& - &-A(11495)+A(11496)-A(11498)+A(11499)-A(11501)-A(11502)+A(11503)-A(11505)+A(11506)-A(11521)+A(11522)& - &-A(11523)+A(11524)-A(11526)+A(11527)-A(11529)-A(11530)+A(11531)-A(11533)+A(11534)-A(11544)+A(11545)& - &-A(11546)+A(11547)+A(11550)-A(11552)-A(11553)-A(11554)+A(11555)-A(11557)+A(11558)-A(11560)-A(11564)& - &-A(11566)-A(11567)+A(11569)-A(11570)-A(11572)+A(11573)-A(11583)+A(11584)-A(11585)+A(11586)+A(11589)& - &-A(11591)-A(11592)-A(11593)+A(11594)-A(11596)+A(11597)+A(11600)-A(11606)-A(11609)-A(11611)-A(11612)& - &-A(11615)-A(11625)+A(11626)-A(11627)+A(11628)+A(11631)-A(11633)-A(11634)-A(11635)+A(11636)-A(11638)& - &+A(11639)+A(11641)-A(11648)-A(11651)-A(11653)-A(11654)+A(11656)-A(11657)-A(11660)-A(11669)+A(11670)& - &-A(11671)+A(11672)-A(11674)+A(11675)-A(11677)-A(11691)+A(11692)-A(11693)+A(11694)-A(11696)+A(11697)& - &-A(11699)-A(11700)+A(11701)-A(11703)+A(11704)-A(11710)+A(11711)-A(11721)+A(11722)-A(11723)+A(11724)& - &+A(11727)-A(11729)-A(11730)-A(11731)+A(11732)-A(11734)+A(11735)-A(11745)+A(11746)-A(11747)+A(11748)& - &-A(11750)+A(11751)-A(11753)-A(11754)+A(11755)-A(11757)+A(11758)-A(11768)+A(11769)-A(11770)+A(11771)& - &-A(11773)+A(11774)-A(11776)-A(11777)+A(11778)-A(11780)+A(11781)-A(11784)-A(11790)-A(11791)+A(11792)& - &+A(11794)-A(11795)-A(11797)+A(11800)-A(11806)+A(11807)-A(11808)+A(11810)+A(11816)+A(11817)+A(11828)& - &-A(11834)+A(11835)+2*A(11836)-A(11838)+A(11840)-A(11841)-A(11843)-A(11845)-A(11846)+A(11849)-A(11854)& - &+A(11855)+A(11856)+A(11857)+A(11859)+A(11866)-A(11871)-A(11872)+A(11876)-A(11883)+A(11884)+2*A(11885)& - &+A(11888)+A(11890)+A(11891)+A(11893)-A(11901)+A(11902)-A(11910)+A(11911)-A(11912)-A(11913)-A(11915)& - &-A(11916)-A(11917)+A(11930)+A(11941)-A(11944)+A(11945)-A(11946)-A(11949)+A(11950)-A(11951)-A(11954)& - &-A(11955)+A(11956)-A(11959)+A(11961)+A(11967)+A(11968)-A(11969)+A(11970)-A(11972)-A(11973)-A(11977)& - &-A(11978)+A(11979)-A(11985)+A(11986)-A(11987)-A(11989)-A(11990)-A(11992)+A(11993)-A(11994)-A(11996)& - &+A(11997)-A(11999)+A(12000)-A(12003)+A(12004)-A(12005)-A(12007)-A(12008)+A(12009)-A(12011)+A(12012)& - &-A(12015)-A(12023)+A(12024)+A(12034)-A(12042)-A(12059)-A(12060)+A(12082)-A(12094)-A(12096)+A(12097)& - &-A(12105)-A(12113)+A(12114)-A(12115)-A(12118)-A(12120)+A(12121)-A(12123)-A(12125)+A(12126)-A(12127)& - &-A(12129)+A(12132)-A(12133)-A(12136)-A(12137)-A(12139)+A(12140)-A(12142)+A(12146)-A(12164)+A(12165)& - &-A(12166)-A(12168)+A(12171)-A(12172)-A(12179)-A(12180)+A(12190)+A(12203)-A(12209)+A(12212)+A(12213)& - &-A(12215)-A(12217)+A(12220)+A(12221)-A(12223)-A(12225)+A(12229)+A(12235)+A(12250)+A(12258)-A(12264)& - &-A(12272)-A(12273)+A(12274)-A(12275)+A(12278)-A(12279)-A(12282)-A(12283)+A(12285)-A(12287)-A(12289)& - &-A(12296)+A(12306)-A(12307)-A(12310)-A(12311)-A(12312)+A(12313)-A(12314)-A(12316)+A(12317)-A(12319)& - &+A(12320)+A(12321)-A(12323)+A(12324)-A(12326)+A(12327)-A(12328)-A(12330)-A(12331)+A(12332)-A(12333)& - &-A(12335)-A(12337)+A(12338)-A(12339)-A(12341)+A(12342)+A(12343)-A(12344)-A(12345)+A(12346)-A(12347)& - &-A(12349)-A(12359)+A(12364)-A(12371)-A(12372)+A(12373)-A(12374)-A(12376)+A(12377)-A(12380)-A(12383)& - &-A(12385)+A(12386)+A(12387)-A(12391)-A(12393)+A(12394)+A(12395)-A(12399)-A(12401)+A(12403)+A(12412)& - &+A(12413)-A(12414)-A(12416)-A(12419)+A(12420)+A(12421)-A(12422)-A(12425)+A(12426)+A(12427)-A(12428)& - &-A(12432)-A(12435)+A(12437)-A(12450)+A(12451)+A(12452)-A(12456)+A(12458)-A(12464)+A(12465)+A(12466)& - &-A(12470)+A(12472)-A(12478)+A(12479)+A(12480)-A(12484)+A(12486)-A(12493)-A(12495)+A(12496)+A(12497)& - &-A(12501)+A(12503)-A(12509)-A(12510)+A(12511)-A(12512)-A(12513)+A(12515)+A(12516)-A(12520)+A(12522)& - &+A(12528)-A(12530)-A(12531)-A(12532)+A(12533)-A(12535)+A(12536)-A(12538)-A(12539)+A(12542)-A(12547)& - &+A(12549)-A(12555)+A(12556)-A(12558)+A(12559)-A(12561)+A(12563)-A(12568)+A(12569)-A(12571)+A(12572)& - &-A(12574)+A(12575)-A(12577)+A(12579)+A(12585)+A(12593)-A(12599)+A(12600)+A(12601)+A(12605)-A(12611)& - &+A(12612)-A(12614)-A(12615)+A(12616)-A(12618)+A(12619)-A(12621)+A(12623)-A(12629)+A(12630)-A(12632)& - &+A(12633)-A(12635)+A(12636)-A(12638)+A(12641)-A(12646)+A(12647)-A(12649)+A(12650)-A(12652)+A(12654)& - &-A(12660)+A(12661)-A(12667)+A(12668)-A(12670)+A(12671)-A(12673)+A(12675)-A(12681)-A(12682)+A(12683)& - &-A(12684)-A(12686)+A(12687)-A(12689)+A(12690)-A(12692)+A(12694)-A(12700)-A(12701)+A(12702)-A(12703)& - &-A(12714)+A(12715)-A(12717)+A(12718)-A(12720)-A(12721)+A(12722)-A(12724)+A(12725)-A(12727)+A(12728)& - &-A(12730)+A(12733)-A(12738)+A(12739)-A(12741)+A(12742)-A(12744)+A(12745)-A(12747)+A(12750)-A(12755)& - &+A(12756)-A(12758)+A(12759)-A(12761)+A(12763)-A(12769)+A(12770)-A(12772)+A(12773)-A(12775)+A(12777)& - &+A(12785)-A(12791)+A(12792)-A(12798)+A(12799)-A(12800)-A(12802)+A(12803)-A(12804)-A(12806)+A(12808)& - &-A(12810)+A(12813)+2*A(12820)+A(12821)+A(12823)+A(12825)+A(12828)+A(12836)+A(12842)-A(12843)-A(12845)& - &-A(12846)+A(12847)-A(12848)-A(12850)+A(12851)-A(12852)+A(12854)+A(12862)-A(12870)-A(12871)-A(12872)& - &+A(12873)-A(12874)+2*A(12877)+A(12878)+A(12880)+A(12881)+A(12882)+2*A(12884)-A(12885)-A(12888)+A(12889)& - &-A(12890)-A(12892)+A(12895)-A(12901)+A(12902)-A(12903)-A(12905)-A(12906)-A(12908)-A(12910)-A(12920)& - &-A(12921)+A(12922)-A(12923)-A(12926)-A(12927)+A(12928)-A(12930)-A(12932)+A(12933)-A(12934)-A(12941)& - &+A(12942)+A(12943)-A(12945)-A(12947)+A(12949)+A(12957)-A(12958)-A(12960)+A(12962)-A(12971)+A(12972)& - &-A(12973)+A(12977)+A(12983)+A(12989)+A(12996)-A(13001)+A(13002)-A(13003)-A(13006)+A(13013)-A(13014)& - &-A(13017)-A(13019)+A(13020)-A(13028)-A(13029)-A(13035)+A(13036)-A(13038)+A(13039)-A(13040)-A(13043)& - &-A(13045)+A(13046)+A(13048)-A(13062)+A(13063)-A(13064)-A(13067)+A(13070)-A(13072)-A(13074)-A(13075)& - &+A(13076)-A(13077)-A(13080)-A(13082)-A(13083)+A(13084)-A(13085)+A(13088)-A(13090)-A(13091)+A(13093)& - &-A(13094)-A(13098)+A(13101)-A(13103)-A(13111)+A(13120)-A(13125)-A(13127)+A(13128)-A(13129)+A(13132)& - &-A(13133)-A(13136)-A(13138)-A(13140)+A(13141)+A(13142)-A(13144)+A(13151)+A(13166)-A(13167)-A(13170)& - &-A(13171)+A(13172)-A(13180)-A(13181)-A(13183)+A(13184)-A(13186)-A(13187)+A(13188)-A(13189)+A(13195)& - &-A(13203)-A(13204)+A(13205)-A(13213)-A(13217)-A(13218)+A(13219)-A(13220)-A(13222)+A(13223)-A(13225)& - &-A(13226)-A(13227)+A(13228)-A(13236)-A(13238)-A(13239)+A(13240)-A(13248)+A(13257)-A(13258)-A(13261)& - &+A(13270)-A(13276)+A(13277)-A(13278)-A(13281)+A(13294)-A(13295)-A(13299)+A(13313)-A(13315)-A(13316)& - &-A(13318)-A(13321)+A(13323)+A(13328)-A(13329)+A(13331)-A(13332)-A(13334)+A(13343)-A(13344)-A(13346)& - &+A(13347)+A(13348)-A(13349)+A(13355)-A(13356)-A(13358)+A(13359)-A(13361)-A(13363)-A(13365)+A(13370)& - &-A(13371)-A(13373)+A(13378)-A(13379)-A(13381)+A(13386)-A(13387)-A(13389)+A(13394)-A(13395)-A(13397)& - &+A(13402)-A(13403)-A(13405)+A(13408)-A(13413)+A(13414)-A(13415)+A(13418)-A(13423)+A(13424)-A(13425)& - &-A(13428)+A(13429)-A(13430)+A(13433)-A(13438)+A(13439)-A(13440)-A(13442)+A(13443)-A(13444)-A(13446)& - &-A(13447)+A(13448)-A(13449)-A(13451)-A(13452)+A(13453)-A(13454)-A(13456)-A(13458)+A(13459)-A(13460)& - &+A(13463)-A(13468)+A(13469)-A(13470)+A(13472)-A(13478)+A(13479)-A(13480)-A(13483)+A(13484)-A(13485)& - &+A(13487)-A(13493)+A(13494)-A(13495)+A(13499)-A(13504)+A(13505)-A(13506)-A(13509)+A(13510)-A(13512)& - &+A(13513)-A(13515)-A(13516)+A(13517)-A(13518)-A(13520)+A(13524)-A(13529)+A(13530)-A(13531)+A(13534)& - &-A(13539)+A(13540)-A(13541)+A(13544)-A(13549)+A(13550)-A(13551)-A(13553)-A(13554)+A(13555)-A(13556)& - &-A(13558)+A(13559)-A(13561)+A(13564)-A(13573)-A(13575)-A(13578)+2*A(13579)-A(13582)-A(13583)+A(13584)& - &-A(13585)-A(13587)-A(13588)+A(13589)-A(13590)-A(13592)-A(13594)-A(13596)-A(13598)+2*A(13599)-A(13600)& - &-A(13603)-A(13605)-A(13607)+A(13609)+A(13610)+A(13613)+A(13614)+A(13617)-A(13618)-A(13620)-A(13622)& - &-A(13624)-A(13625)+A(13626)-A(13627)+A(13629)-A(13630)-A(13632)-A(13633)+A(13634)-A(13636)-A(13637)& - &+A(13638)-A(13639)-A(13641)+A(13642)-A(13643)-A(13649)+A(13650)-A(13651)-A(13653)+A(13654)-A(13659)& - &-A(13667)+A(13668)+A(13672)-A(13673)-A(13677)-A(13679)-A(13680)+A(13681)-A(13687)-A(13700)-A(13702)& - &+A(13703)-A(13704)+A(13707)-A(13709)-A(13711)-A(13712)+A(13722)-A(13729)+A(13739)-A(13751)-A(13753)& - &+A(13754)-A(13755)-A(13758)+A(13760)+A(13774)+A(13775)-A(13777)-A(13778)-A(13780)+A(13781)-A(13786)& - &+A(13789)+A(13796)-A(13809)+A(13810)-A(13812)-A(13818)+A(13819)-A(13820)-A(13822)+A(13824)-A(13825)& - &-A(13832)-A(13833)-A(13835)+A(13843)-A(13844)-A(13847)-A(13849)-A(13850)+A(13851)-A(13855)-A(13856)& - &+A(13857)-A(13858)+A(13861)-A(13862)-A(13865)-A(13866)+A(13869)+A(13883)-A(13884)-A(13887)-A(13889)& - &+A(13891)-A(13892)-A(13895)-A(13896)+A(13898)-A(13899)-A(13902)-A(13903)+A(13904)-A(13905)-A(13908)& - &-A(13909)-A(13910)+A(13911)-A(13919)-A(13921)-A(13930)+A(13931)-A(13933)-A(13934)+A(13935)-A(13936)& - &-A(13939)+A(13941)-A(13943)-A(13944)+A(13945)+A(13946)-A(13948)+A(13949)+A(13952)+A(13957)-A(13958)& - &-A(13960)+A(13961)+A(13962)-A(13963)+A(13965)+A(13966)-A(13967)+A(13969)+A(13970)-A(13971)+A(13977)& - &-A(13978)+A(13980)-A(13981)+A(13983)-A(13984)+A(13986)-A(13987)+A(13989)-A(13990)-A(13992)+A(13993)& - &-A(13994)-A(13996)+A(13997)-A(13998)-A(14000)+A(14001)-A(14002)-A(14005)-A(14007)+A(14008)-A(14009)& - &-A(14011)+A(14012)-A(14013)-A(14015)-A(14016)+A(14017)-A(14018)-A(14020)-A(14021)+A(14022)-A(14023)& - &-A(14025)+A(14026)-A(14032)+A(14033)-A(14034)-A(14036)+A(14037)-A(14038)-A(14040)+A(14041)-A(14042)& - &-A(14044)-A(14046)+A(14047)-A(14048)-A(14050)+A(14051)-A(14053)-A(14056)-A(14059)+A(14060)-A(14062)& - &+A(14063)-A(14066)+A(14069)-A(14071)+A(14079)-A(14090)+A(14091)+A(14094)-A(14095)-A(14098)-A(14100)& - &+A(14101)+A(14105)+A(14112)-A(14114)-A(14117)-A(14119)-A(14121)+A(14122)-A(14129)+A(14132)-A(14135)& - &-A(14137)-A(14139)+A(14140)-A(14148)+A(14151)-A(14153)-A(14155)-A(14164)-A(14166)+A(14167)-A(14168)& - &+A(14171)+A(14172)-A(14174)-A(14176)+A(14183)-A(14185)-A(14187)+A(14188)-A(14189)-A(14191)-A(14192)& - &+A(14193)-A(14194)+A(14197)-A(14198)-A(14201)-A(14203)-A(14205)+A(14206)+A(14207)-A(14209)+A(14213)& - &+A(14224)+A(14232)-A(14234)-A(14236)+A(14251)-A(14265)-A(14266)+A(14267)-A(14275)+A(14278)-A(14279)& - &-A(14283)-A(14285)-A(14300)-A(14308)+A(14318)-A(14319)-A(14322)-A(14323)+A(14325)-A(14326)-A(14329)& - &+A(14332)-A(14338)-A(14346)-A(14354)+A(14356)-A(14357)-A(14359)+A(14360)+A(14361)-A(14362)-A(14379)& - &+A(14380)-A(14381)+A(14384)-A(14397)+A(14398)-A(14400)-A(14401)+A(14402)-A(14403)-A(14404)-A(14406)& - &+A(14407)-A(14413)-A(14415)+A(14416)-A(14417)+A(14420)+A(14430)-A(14432)-A(14434)-A(14436)+A(14439)& - &-A(14440)-A(14445)-A(14446)-A(14449)+A(14452)-A(14453)-A(14456)-A(14458)+A(14459)+A(14467)-A(14473)& - &-A(14476)-A(14477)+A(14478)-A(14479)-A(14481)+A(14482)-A(14484)-A(14490)+A(14491)-A(14492)-A(14494)& - &-A(14499)-A(14500)+A(14503)+A(14510)-A(14512)-A(14514)+A(14516)-A(14517)-A(14520)-A(14521)+A(14522)& - &-A(14530)-A(14531)+A(14534)-A(14535)-A(14539)-A(14540)+A(14542)-A(14543)-A(14546)-A(14548)+A(14563)& - &-A(14569)+A(14570)-A(14571)-A(14574)+A(14576)-A(14577)-A(14581)-A(14582)+A(14585)+A(14592)-A(14594)& - &+A(14596)-A(14597)-A(14600)-A(14608)-A(14609)+A(14610)-A(14618)+A(14622)+A(14629)-A(14631)+A(14639)& - &-A(14640)-A(14643)-A(14644)+A(14645)-A(14647)-A(14648)+A(14649)-A(14651)-A(14652)+A(14653)-A(14655)& - &-A(14656)+A(14657)-A(14658)-A(14660)+A(14661)-A(14663)+A(14664)-A(14676)+A(14677)-A(14679)+A(14680)& - &-A(14681)+A(14684)+A(14688)+A(14696)+A(14704)-A(14721)+A(14722)-A(14724)-A(14725)+A(14726)-A(14727)& - &-A(14729)+A(14730)+A(14731)+A(14732)-A(14735)-A(14744)+A(14745)-A(14752)-A(14753)+A(14754)-A(14762)& - &+A(14771)-A(14772)-A(14775)-A(14777)-A(14784)+A(14785)-A(14786)-A(14789)+A(14792)-A(14794)-A(14796)& - &-A(14798)-A(14799)+A(14800)-A(14806)-A(14808)-A(14816)-A(14818)-A(14819)+A(14820)-A(14821)+A(14824)& - &-A(14825)-A(14829)-A(14830)+A(14832)-A(14833)-A(14837)-A(14839)-A(14840)-A(14841)+A(14842)-A(14843)& - &+A(14846)-A(14847)-A(14850)+A(14851)-A(14857)+A(14858)-A(14859)-A(14862)-A(14864)+A(14865)-A(14868)& - &-A(14871)-A(14873)-A(14875)+A(14876)-A(14883)-A(14885)-A(14887)+A(14888)-A(14889)-A(14891)-A(14893)& - &+A(14894)-A(14895)+A(14898)-A(14900)-A(14902)-A(14904)+A(14905)-A(14907)+A(14908)-A(14910)+A(14913)& - &-A(14924)+A(14925)-A(14926)-A(14928)+A(14930)-A(14931)-A(14935)-A(14937)+A(14939)-A(14941)-A(14943)& - &-A(14950)+A(14951)-A(14952)-A(14955)-A(14966)+A(14967)-A(14969)+A(14971)-A(14972)-A(14975)+A(14977)& - &-A(14992)+A(14993)-A(14994)+A(15004)+A(15015)-A(15017)+A(15021)-A(15027)-A(15028)+A(15029)-A(15036)& - &-A(15038)+A(15039)+A(15040)+A(15041)-A(15044)+A(15053)-A(15055)-A(15057)-A(15058)+A(15067)-A(15069)& - &-A(15071)+A(15072)-A(15074)+A(15075)-A(15076)-A(15079)+A(15080)+A(15083)-A(15085)-A(15087)+A(15088)& - &-A(15091)+A(15092)-A(15094)+A(15095)-A(15096)-A(15098)+A(15099)-A(15102)-A(15104)-A(15106)+A(15107)& - &-A(15108)+A(15111)+A(15112)-A(15114)+A(15115)+A(15116)-A(15118)+A(15121)-A(15122)-A(15125)-A(15126)& - &-A(15129)+A(15132)+A(15144)-A(15153)+A(15154)-A(15155)-A(15157)+A(15159)-A(15161)-A(15162)-A(15164)& - &+A(15165)-A(15166)-A(15168)+A(15169)-A(15175)+A(15176) - Vdot(5251) = -A(17)+A(96)+A(97)+A(98)+A(99)+A(100)+A(106)+A(111)+A(116)+A(120)+A(126)+A(127)+A(130)+2*A(146)+A(314)& - &+A(397)+A(454)+A(455)+A(570)+A(673)+A(678)+A(691)+A(696)+A(698)+A(699)+A(817)+A(818)+A(820)+A(822)+A(827)& - &+2*A(838)+2*A(839)+A(840)+A(845)+2*A(846)+A(848)+A(858)+A(859)+A(860)+A(861)+A(863)+A(864)+A(869)+A(881)& - &+A(882)+A(884)+A(886)+A(900)+A(1168)+A(1169)+A(1183)+A(1199)+A(1227)+A(1244)+A(1273)+A(1309)+A(1333)& - &+A(1348)+A(1378)+A(1418)+2*A(1419)+A(1449)+A(1450)+2*A(1468)+A(1469)+A(1494)+A(1495)+A(1519)+A(1520)& - &+A(1551)+A(1552)+A(1577)+A(1578)+A(1602)+A(1603)+A(1627)+A(1651)+A(1652)+A(1675)+A(1676)+2*A(1694)+A(1695)& - &+A(1713)+A(1714)+A(1732)+A(1757)+A(1758)+A(1785)+A(1786)+A(1792)+A(1825)+A(1826)+2*A(1829)+A(1830)+A(1860)& - &+A(1861)+A(1862)+A(1863)+A(1871)+A(1873)+A(1892)+A(2075)+A(2111)+A(2112)+A(2142)-A(2168)-A(2174)+A(2218)& - &+A(2269)+A(2285)+A(2353)+A(2371)+A(2379)+A(2395)+A(2412)+A(2416)+2*A(2420)+2*A(2421)+A(2422)+A(2426)& - &-A(2454)-A(2468)+A(2486)+A(2497)+A(2498)+A(2502)+A(2512)+A(2517)+A(2525)+A(2538)+A(2548)+A(2550)+A(2552)& - &+A(2562)+A(2570)+A(2580)+A(2581)+A(2583)+A(2585)+A(2588)+A(2589)+A(2590)+A(2591)+A(2594)+A(2597)+2*A(2600)& - &+A(2601)-A(2603)+A(2611)+A(2616)-A(2619)+A(2624)+A(2626)+A(2629)+A(2630)+A(2631)+A(2634)+A(2640)+A(2642)& - &+A(2643)+2*A(2644)+A(2652)+A(2655)+A(2661)-A(2662)+A(2672)+A(2673)+A(2677)+A(2679)+A(2680)+A(2681)+A(2748)& - &+A(2756)+A(2780)+A(2818)+A(2853)+A(2864)+A(2882)+A(3003)-A(3004)+A(3032)-A(3034)-A(3056)+A(3075)+A(3105)& - &-A(3109)-A(3131)+A(3143)+A(3160)-A(3170)+A(3187)+A(3246)+A(3249)+2*A(3250)+A(3327)+A(3350)+A(3374)+A(3409)& - &+A(3436)+A(3472)+A(3526)+A(3562)+A(3621)+A(3679)+A(3701)+A(3735)+A(3750)+A(3806)+A(3840)+A(3841)+A(3884)& - &+A(4031)+A(4095)-A(4110)+A(4122)+A(4130)+2*A(4139)-A(4145)+2*A(4156)+A(4171)+A(4172)+A(4176)+A(4197)& - &-A(4212)-A(4218)+A(4276)+A(4367)+A(4392)+A(4393)+A(4394)+A(4435)+A(4500)+A(4524)+A(4536)-A(4562)+A(4599)& - &-A(4627)+A(4641)-A(4671)+A(4704)+A(4793)+A(4797)+A(4803)+A(4805)+A(4806)+A(4807)+A(4845)+2*A(4847)+A(4854)& - &+A(4858)+A(4862)+A(4875)+A(4876)+A(4877)+2*A(4941)+A(4942)+A(4943)+A(4944)+A(4947)+A(4948)+A(4949)+A(4950)& - &+A(4951)+A(4953)+A(4954)+A(4958)+A(4982)+A(5281)+A(5288)+A(5318)+A(5345)+A(5360)+A(5424)+A(5452)+A(5453)& - &+A(5454)+A(5455)+A(5457)+A(5507)+A(5508)+A(5532)-A(5534)+A(5543)+A(5546)+A(5547)+A(5551)+A(5553)+A(5554)& - &+A(5555)+A(5557)+A(5582)+2*A(5599)+A(5602)+2*A(5603)+2*A(5607)+2*A(5612)+A(5654)+A(5657)+A(5669)+A(5687)& - &+A(5690)+A(5691)+A(5735)+A(5740)+A(5745)+A(5748)+A(5749)+A(5753)+A(5755)+A(5756)+A(5758)+A(5759)+A(5813)& - &+A(5816)+A(5830)-A(5832)+A(5841)+A(5844)+A(5845)+A(5849)+A(5851)+A(5853)+A(5855)+A(5882)+A(5883)+A(5884)& - &+A(5893)+A(5907)-A(5909)+A(5918)+A(5921)+A(5922)+A(5926)+A(5928)+A(5930)+A(5932)+A(5962)+A(5964)+A(5978)& - &-A(5980)+A(5989)+A(5992)+A(5993)+A(5998)+A(5999)+A(6001)+A(6003)+A(6080)+A(6103)+A(6106)+A(6107)+A(6120)& - &+A(6125)+A(6160)+A(6185)+A(6190)+A(6219)+A(6222)+2*A(6223)+A(6265)+A(6266)+A(6275)+A(6302)+A(6303)+A(6308)& - &+A(6316)+A(6317)+A(6321)+A(6322)+A(6324)+A(6325)+A(6326)+A(6327)+A(6362)+A(6381)+A(6386)+A(6465)+A(6474)& - &+A(6475)+A(6477)+A(6479)+A(6483)+A(6492)+A(6493)+A(6495)+A(6497)+A(6501)+A(6512)+A(6546)+A(6547)+A(6549)& - &+A(6551)+2*A(6553)+A(6581)+A(6582)+A(6583)+A(6599)+A(6606)+A(6607)+2*A(6608)+A(6640)+2*A(6647)+A(6648)& - &+A(6649)-A(6693)+A(6706)+A(6926)+A(6949)+A(6950)+A(6953)+A(6966)+A(7026)+A(7039)+A(7040)+A(7051)+A(7087)& - &-A(7095)+A(7127)+A(7128)+A(7151)+A(7155)+A(7156)+A(7157)+A(7158)+A(7160)+A(7180)+A(7185)+A(7197)+A(7204)& - &+A(7210)+A(7213)+A(7220)+A(7228)+A(7254)+A(7258)+A(7262)+A(7268)+A(7273)+A(7276)+A(7283)+A(7290)+A(7298)& - &+A(7302)+A(7304)+A(7330)+A(7336)+A(7352)+A(7363)+A(7369)+A(7382)+A(7396)+A(7412)+A(7419)+A(7434)+A(7445)& - &+A(7462)+A(7469)+A(7493)+A(7501)+A(7508)+A(7515)+A(7523)+A(7530)+A(7578)+A(7650)+A(7655)+A(7666)+A(7671)& - &+A(7684)+A(7692)+A(7696)+A(7704)+A(7711)+A(7715)+A(7725)+A(7745)+A(7767)+2*A(7775)+2*A(7777)+A(7779)+2& - &*A(7781)+A(7787)+A(7791)+A(7792)+3*A(7793)+3*A(7794)+A(7797)+A(7801)+A(7803)+A(7815)+2*A(7829)+A(7839)& - &+A(7855)+A(7863)+2*A(7866)+A(7873)+A(7914)+A(7917)+A(7920)+A(7939)+A(7977)+A(7981)+2*A(7982)+A(7988)& - &+A(7992)+A(7993)+A(8006)+2*A(8007)+A(8011)+A(8037)+A(8044)+2*A(8054)+A(8077)+A(8081)+2*A(8082)+A(8088)& - &+A(8100)+2*A(8114)+A(8116)+A(8142)+A(8145)+2*A(8146)+A(8152)+A(8168)+2*A(8178)+A(8201)+A(8205)+2*A(8206)& - &+A(8212)+A(8220)+A(8251)+A(8252)+A(8276)+A(8281)+A(8285)+A(8298)+A(8312)+A(8316)+2*A(8326)+A(8332)+A(8341)& - &+A(8348)+A(8349)+A(8359)+A(8360)+A(8362)+A(8363)+2*A(8376)+2*A(8378)+2*A(8379)+A(8416)+A(8417)+A(8455)& - &+A(8456)+A(8463)+A(8467)+A(8477)+A(8481)+A(8482)+A(8483)+A(8484)+A(8490)+A(8499)+A(8500)+2*A(8503)-A(8504)& - &+A(8511)+A(8514)+A(8516)+A(8517)+A(8518)+A(8519)+A(8520)+2*A(8523)-A(8524)+A(8536)-A(8539)+A(8560)-A(8561)& - &+A(8576)+A(8577)+2*A(8580)-A(8581)+A(8598)+A(8606)+A(8608)+A(8620)+A(8622)+A(8625)+A(8628)+A(8630)+A(8631)& - &+A(8639)+A(8645)+A(8669)+A(8670)+A(8672)+A(8676)+A(8678)+A(8683)+A(8690)+A(8711)-A(8734)+A(8747)+A(8750)& - &+A(8751)+A(8752)+A(8767)+A(8769)+A(8778)+A(8784)+A(8785)+A(8786)+A(8825)+A(8833)+A(8834)+A(8835)+A(8839)& - &+A(8847)+A(8850)+A(8866)+A(8867)+A(8874)+A(8887)+A(8922)+A(8934)+A(8940)+A(8947)+A(8948)+A(8953)+A(8959)& - &+A(8969)+3*A(8971)+A(8983)+A(9040)+A(9078)+A(9089)+A(9102)+A(9141)+A(9150)+A(9167)-A(9173)-A(9233)-A(9259)& - &+A(9288)-A(9320)-A(9326)+A(9366)+A(9375)+A(9395)+A(9397)+A(9398)+A(9401)+A(9404)+A(9407)+A(9418)+A(9434)& - &+A(9451)+A(9504)+A(9712)+2*A(9713)+A(9714)+A(9715)-A(9720)+4*A(9732)+4*A(9733)+A(9786)+2*A(9789)+A(9791)& - &+A(9795)+A(9801)+A(9803)-A(9811)+A(9824)+2*A(9826)-A(9828)+A(9847)+A(9880)+A(9884)+A(10007)+A(10021)& - &+A(10022)+A(10024)+A(10025)+A(10064)+A(10066)+A(10082)+A(10083)+A(10085)+A(10086)+A(10094)+A(10095)& - &+A(10096)+A(10128)+A(10129)+A(10146)+A(10147)+A(10149)+A(10150)+2*A(10175)+A(10294)+A(10295)+2*A(10328)+2& - &*A(10356)+2*A(10357)+2*A(10358)+2*A(10367)+2*A(10368)+A(10373)+A(10374)+A(10381)+A(10384)+A(10386)& - &+A(10388)-A(10393)-A(10399)+A(10411)+A(10412)+A(10413)+A(10415)+A(10416)-A(10423)+A(10444)+A(10447)& - &+A(10449)+A(10450)+A(10459)+A(10464)+A(10466)+A(10467)+A(10473)-A(10479)+A(10494)+A(10496)+A(10501)& - &+A(10552)+A(10632)+A(10638)+A(10650)+A(10682)+A(10740)+A(10758)+A(10765)+A(10775)-A(10800)+A(10823)& - &+A(10837)+A(10838)+A(10843)+A(10844)+A(10845)+A(10846)+A(10848)+A(10864)+A(10871)-A(10904)+A(10958)& - &+A(10962)+A(10963)+A(10990)+2*A(10994)+A(11016)+A(11028)+A(11048)+A(11078)+A(11091)+A(11096)+A(11102)& - &+A(11128)+A(11141)+A(11153)+A(11161)+A(11168)+A(11173)+A(11245)+A(11252)+A(11369)+A(11370)+A(11371)+3& - &*A(11428)+3*A(11429)+3*A(11430)+A(11433)+A(11472)+A(11479)+A(11512)+3*A(11561)+A(11562)+A(11563)+A(11564)& - &+A(11565)+A(11570)+A(11574)+2*A(11605)+2*A(11606)+2*A(11607)+A(11608)+A(11609)+A(11610)+A(11614)+A(11615)& - &+2*A(11647)+2*A(11648)+2*A(11649)+A(11650)+A(11651)+A(11652)+A(11656)+A(11657)+2*A(11712)+A(11785)+2& - &*A(11793)+A(11797)+A(11816)+A(11818)-A(11823)+A(11844)+A(11846)+A(11847)+A(11857)+A(11937)+A(11941)& - &+A(11946)+A(11960)+A(11968)+A(11975)+A(11989)+A(11994)+A(12007)+A(12043)+A(12061)+A(12105)+A(12129)& - &+A(12181)+A(12223)+A(12224)+A(12275)+A(12320)+A(12322)+A(12330)+A(12335)+A(12341)+A(12343)+A(12349)& - &+A(12370)+A(12371)+A(12376)+A(12491)+A(12513)+3*A(12531)+2*A(12534)+3*A(12539)+A(12540)+A(12542)+A(12543)& - &+A(12545)+A(12546)+2*A(12547)+A(12548)+A(12549)+A(12551)+A(12553)+A(12554)+2*A(12557)+2*A(12570)+2& - &*A(12577)+A(12578)+A(12601)+A(12602)+3*A(12621)+2*A(12631)+2*A(12638)+A(12641)+A(12642)+A(12644)+A(12645)& - &+2*A(12648)+2*A(12652)+A(12653)+A(12654)+A(12656)+A(12658)+A(12659)+2*A(12661)+2*A(12663)+2*A(12665)+2& - &*A(12666)+2*A(12669)+2*A(12673)+A(12674)+A(12675)+A(12677)+A(12679)+A(12680)+A(12684)+2*A(12688)+2& - &*A(12692)+A(12693)+A(12694)+A(12696)+A(12698)+A(12699)+A(12703)+A(12720)+2*A(12723)+2*A(12730)+2*A(12740)& - &+2*A(12747)+A(12748)+A(12761)+A(12762)+2*A(12775)+A(12776)+A(12777)+A(12779)+A(12781)+A(12782)+A(12793)& - &+A(12806)+A(12845)+A(12848)+A(12887)+A(12892)+A(12905)+A(12931)+A(12934)-A(12936)+A(12942)+A(12944)& - &+A(12948)+A(12960)+A(12973)+A(13029)+A(13085)+A(13112)+A(13129)+A(13139)+A(13181)+A(13189)+A(13213)& - &+A(13220)+A(13236)+A(13248)+A(13319)+A(13334)+A(13346)+A(13358)+A(13373)+A(13381)+A(13389)+A(13397)& - &+A(13405)+A(13408)+A(13409)+A(13411)+A(13412)+A(13414)+2*A(13415)+A(13424)+2*A(13425)+2*A(13430)+A(13444)& - &+A(13449)+A(13454)+A(13463)+A(13464)+A(13466)+A(13467)+A(13469)+A(13470)+A(13479)+2*A(13480)+2*A(13484)+3& - &*A(13485)+A(13494)+2*A(13495)+A(13505)+2*A(13506)+A(13511)+A(13518)+2*A(13520)+2*A(13521)+2*A(13522)& - &+A(13534)+A(13535)+A(13537)+A(13538)+A(13550)+A(13551)+A(13556)+A(13560)+A(13561)+A(13562)+A(13564)& - &+A(13565)+A(13567)+A(13568)+A(13575)+A(13580)+A(13585)+A(13590)+A(13608)+A(13610)+A(13612)+A(13614)& - &+A(13616)+A(13618)+A(13619)+2*A(13621)+A(13622)+A(13627)+A(13632)+A(13635)+A(13639)+A(13643)+2*A(13651)& - &+A(13659)+A(13678)+A(13704)+A(13709)+A(13710)+2*A(13728)+2*A(13729)+2*A(13730)+A(13786)+A(13834)+A(13858)& - &+A(13919)+A(13945)+A(13947)+A(13950)+A(13960)+A(13966)+A(13968)+A(13972)+A(13979)+A(13982)+A(13985)& - &+A(13988)+A(13991)+A(13993)+A(13994)+A(14004)+A(14005)+A(14006)+A(14008)+A(14009)+A(14037)+A(14038)& - &+A(14044)+A(14045)+A(14047)+A(14048)+2*A(14053)+2*A(14054)+A(14057)+A(14058)+A(14065)+A(14066)+A(14067)& - &+A(14115)+A(14129)+A(14134)+A(14148)+2*A(14153)+2*A(14154)+A(14168)+A(14176)+A(14177)+A(14189)+A(14194)& - &+A(14204)+A(14233)+A(14234)+A(14235)+A(14275)+A(14300)+A(14301)+A(14338)+A(14339)+A(14355)+A(14359)& - &+A(14381)+A(14404)+A(14417)+A(14432)+A(14433)+A(14435)+A(14436)+A(14437)+A(14447)+A(14448)+A(14475)& - &+A(14479)+A(14531)+A(14618)+A(14658)+A(14681)+A(14685)+A(14723)+A(14727)+A(14730)+A(14733)+A(14736)& - &+A(14762)+A(14793)+A(14795)+A(14797)+A(14817)+A(14821)+A(14838)+A(14869)+2*A(14871)+2*A(14872)+A(14883)& - &+A(14889)+A(14895)+A(14900)+A(14901)+A(14940)+A(14941)+A(14942)+A(14994)+A(15016)+A(15036)+A(15040)& - &+A(15042)+A(15045)+A(15068)+2*A(15073)+A(15076)+A(15096)+A(15100)+A(15103)+A(15108)+A(15127)+A(15130)& - &+A(15155)+A(15163)+A(15170)+A(15177) - Vdot(5252) = -A(4)+A(5)-A(8)-2*A(10)-A(11)+A(12)-A(22)-A(25)+A(40)+A(41)+A(43)-A(486)-A(487)-A(493)-A(494)-A(504)& - &-A(505)-A(507)-A(508)-A(514)-A(515)-A(521)-A(522)-A(528)-A(529)-A(535)-A(536)-A(541)-A(542)-A(548)-A(549)& - &-A(556)-A(557)-A(563)-A(564)-A(574)-A(575)-A(581)-A(582)-A(590)-A(591)-A(596)-A(597)-A(603)-A(604)-A(610)& - &-A(611)-A(617)-A(618)-A(624)-A(625)-A(631)-A(632)-A(637)-A(638)-A(644)-A(650)-A(651)-A(657)-A(665)-A(680)& - &-A(686)-A(701)-A(702)-A(708)-A(709)-A(716)-A(717)-A(724)-A(732)-A(738)-A(739)-A(747)-A(753)-A(754)-A(760)& - &-A(761)-A(769)-A(775)-A(776)-A(782)-A(787)-A(788)-A(796)-A(802)-A(803)-A(809)-A(810)-A(818)-A(824)-A(832)& - &-A(833)-A(852)-A(866)-A(867)-A(873)-A(874)-A(882)-A(888)-A(894)-A(904)-A(905)-A(911)-A(917)-A(918)-A(924)& - &-A(925)-A(931)-A(932)-A(937)-A(938)-A(944)-A(945)-A(951)-A(952)-A(958)-A(959)-A(965)-A(966)-A(972)-A(973)& - &-A(978)-A(979)-A(985)-A(986)-A(992)-A(993)-A(999)-A(1000)-A(1006)-A(1007)-A(1013)-A(1014)-A(1020)-A(1021)& - &-A(1027)-A(1028)-A(1033)-A(1034)-A(1040)-A(1041)-A(1047)-A(1048)-A(1053)-A(1054)-A(1060)-A(1061)-A(1067)& - &-A(1068)-A(1074)-A(1075)-A(1080)-A(1081)-A(1087)-A(1088)-A(1094)-A(1095)-A(1101)-A(1102)-A(1107)-A(1108)& - &-A(1114)-A(1115)-A(1120)-A(1121)-A(1127)-A(1128)-A(1134)-A(1135)-A(1141)-A(1142)-A(1148)-A(1149)-A(1155)& - &-A(1156)-A(1162)-A(1171)-A(1177)-A(1187)-A(1193)-A(1203)-A(1204)-A(1210)-A(1216)-A(1221)-A(1231)-A(1237)& - &-A(1247)-A(1248)-A(1254)-A(1255)-A(1261)-A(1267)-A(1277)-A(1278)-A(1284)-A(1290)-A(1297)-A(1303)-A(1313)& - &-A(1314)-A(1320)-A(1326)-A(1335)-A(1341)-A(1351)-A(1352)-A(1358)-A(1359)-A(1365)-A(1371)-A(1381)-A(1382)& - &-A(1388)-A(1389)-A(1395)-A(1401)-A(1402)-A(1408)-A(1409)-A(1426)-A(1427)-A(1439)-A(1440)-A(1452)-A(1453)& - &-A(1459)-A(1460)-A(1477)-A(1478)-A(1484)-A(1485)-A(1503)-A(1504)-A(1510)-A(1511)-A(1528)-A(1529)-A(1541)& - &-A(1542)-A(1554)-A(1555)-A(1567)-A(1568)-A(1580)-A(1581)-A(1592)-A(1593)-A(1605)-A(1606)-A(1618)-A(1619)& - &-A(1629)-A(1630)-A(1636)-A(1637)-A(1654)-A(1655)-A(1661)-A(1662)-A(1678)-A(1679)-A(1685)-A(1686)-A(1703)& - &-A(1704)-A(1722)-A(1723)-A(1740)-A(1741)-A(1747)-A(1748)-A(1764)-A(1765)-A(1775)-A(1776)-A(1788)-A(1796)& - &-A(1802)-A(1808)-A(1812)-A(1818)-A(1819)-A(1832)-A(1833)-A(1839)-A(1840)-A(1846)-A(1847)-A(1853)-A(1854)& - &-A(1881)-A(1882)-A(1904)-A(1905)-A(1912)-A(1913)-A(1919)-A(1920)-A(1927)-A(1933)-A(1934)-A(1940)-A(1946)& - &-A(1952)-A(1953)-A(1959)-A(1965)-A(1971)-A(1972)-A(1978)-A(1983)-A(1984)-A(1990)-A(1991)-A(1997)-A(1998)& - &-A(2004)-A(2010)-A(2011)-A(2017)-A(2023)-A(2029)-A(2030)-A(2036)-A(2037)-A(2042)-A(2048)-A(2049)-A(2055)& - &-A(2056)-A(2062)-A(2067)-A(2077)-A(2078)-A(2083)-A(2084)-A(2090)-A(2091)-A(2096)-A(2101)-A(2117)-A(2118)& - &-A(2123)-A(2124)-A(2130)-A(2131)-A(2136)-A(2145)-A(2146)-A(2151)-A(2152)-A(2158)-A(2159)-A(2164)-A(2169)& - &-A(2175)-A(2188)-A(2189)-A(2194)-A(2195)-A(2201)-A(2202)-A(2300)-A(2321)-A(2327)-A(2328)-A(2431)-A(2438)& - &-A(2455)-A(2463)-A(2469)-A(2604)-A(2620)-A(2663)-A(3005)-A(3035)-A(3057)-A(3110)-A(3132)-A(3171)-A(3239)& - &-A(3252)-A(3253)-A(3259)-A(3273)-A(3281)-A(3292)-A(3297)-A(3321)-A(3331)-A(3332)-A(3338)-A(3367)-A(3376)& - &-A(3377)-A(3383)-A(3388)-A(3395)-A(3429)-A(3438)-A(3439)-A(3445)-A(3453)-A(3458)-A(3486)-A(3492)-A(3493)& - &-A(3499)-A(3504)-A(3511)-A(3530)-A(3535)-A(3556)-A(3566)-A(3567)-A(3573)-A(3587)-A(3594)-A(3615)-A(3625)& - &-A(3626)-A(3632)-A(3646)-A(3651)-A(3672)-A(3682)-A(3683)-A(3689)-A(3705)-A(3712)-A(3737)-A(3738)-A(3765)& - &-A(3772)-A(3782)-A(3788)-A(3789)-A(3795)-A(3819)-A(3825)-A(3832)-A(3844)-A(3845)-A(3850)-A(3877)-A(3886)& - &-A(3887)-A(3893)-A(3898)-A(3905)-A(3933)-A(3934)-A(3940)-A(3948)-A(3953)-A(3972)-A(3978)-A(3979)-A(3985)& - &-A(3990)-A(3997)-A(4026)-A(4034)-A(4035)-A(4040)-A(4047)-A(4052)-A(4066)-A(4071)-A(4087)-A(4097)-A(4098)& - &-A(4103)-A(4111)-A(4146)-A(4199)-A(4200)-A(4205)-A(4207)-A(4213)-A(4219)-A(4224)-A(4230)-A(4231)-A(4240)& - &-A(4241)-A(4249)-A(4250)-A(4259)-A(4260)-A(4279)-A(4285)-A(4286)-A(4291)-A(4296)-A(4297)-A(4301)-A(4309)& - &-A(4310)-A(4316)-A(4317)-A(4323)-A(4324)-A(4331)-A(4332)-A(4552)-A(4557)-A(4563)-A(4569)-A(4570)-A(4601)& - &-A(4602)-A(4608)-A(4609)-A(4615)-A(4616)-A(4621)-A(4628)-A(4653)-A(4659)-A(4665)-A(4666)-A(4672)-A(4712)& - &-A(4718)-A(4727)-A(4728)-A(4734)-A(4740)-A(4741)-A(4763)-A(4771)-A(4777)-A(4778)-A(4785)-A(4809)-A(4810)& - &-A(4817)-A(4823)-A(4828)-A(4829)-A(4837)-A(4850)-A(4867)-A(4880)-A(4886)-A(4893)-A(4901)-A(4907)-A(4915)& - &-A(4921)-A(4922)-A(4930)-A(4937)-A(4948)-A(4962)-A(4970)-A(4977)-A(4985)-A(4990)-A(4991)-A(4997)-A(4998)& - &-A(5004)-A(5005)-A(5012)-A(5017)-A(5018)-A(5025)-A(5030)-A(5031)-A(5037)-A(5038)-A(5044)-A(5045)-A(5052)& - &-A(5057)-A(5058)-A(5064)-A(5069)-A(5070)-A(5076)-A(5077)-A(5083)-A(5084)-A(5091)-A(5096)-A(5097)-A(5103)& - &-A(5104)-A(5110)-A(5115)-A(5116)-A(5123)-A(5128)-A(5129)-A(5137)-A(5143)-A(5144)-A(5152)-A(5158)-A(5159)& - &-A(5165)-A(5169)-A(5170)-A(5175)-A(5179)-A(5180)-A(5186)-A(5187)-A(5193)-A(5197)-A(5198)-A(5204)-A(5205)& - &-A(5211)-A(5215)-A(5216)-A(5222)-A(5226)-A(5227)-A(5233)-A(5237)-A(5238)-A(5244)-A(5248)-A(5249)-A(5255)& - &-A(5259)-A(5260)-A(5268)-A(5276)-A(5283)-A(5291)-A(5298)-A(5304)-A(5313)-A(5320)-A(5325)-A(5330)-A(5334)& - &-A(5340)-A(5347)-A(5355)-A(5363)-A(5368)-A(5374)-A(5380)-A(5386)-A(5393)-A(5398)-A(5404)-A(5415)-A(5429)& - &-A(5435)-A(5459)-A(5494)-A(5523)-A(5535)-A(5561)-A(5587)-A(5593)-A(5623)-A(5637)-A(5643)-A(5661)-A(5674)& - &-A(5680)-A(5704)-A(5724)-A(5730)-A(5769)-A(5783)-A(5791)-A(5821)-A(5833)-A(5857)-A(5871)-A(5898)-A(5910)& - &-A(5938)-A(5969)-A(5981)-A(6007)-A(6021)-A(6045)-A(6051)-A(6068)-A(6074)-A(6091)-A(6130)-A(6136)-A(6141)& - &-A(6165)-A(6171)-A(6193)-A(6207)-A(6213)-A(6242)-A(6282)-A(6337)-A(6349)-A(6398)-A(6405)-A(6421)-A(6434)& - &-A(6440)-A(6445)-A(6467)-A(6475)-A(6485)-A(6493)-A(6503)-A(6504)-A(6514)-A(6515)-A(6521)-A(6528)-A(6538)& - &-A(6539)-A(6547)-A(6557)-A(6596)-A(6637)-A(6670)-A(6671)-A(6678)-A(6679)-A(6685)-A(6694)-A(6731)-A(6732)& - &-A(6738)-A(6739)-A(6745)-A(6752)-A(6753)-A(6762)-A(6763)-A(6770)-A(6771)-A(6778)-A(6779)-A(6787)-A(6793)& - &-A(6799)-A(6805)-A(6811)-A(6815)-A(6821)-A(6829)-A(6835)-A(6839)-A(6843)-A(6849)-A(6850)-A(6856)-A(6857)& - &-A(6863)-A(6867)-A(6873)-A(6877)-A(6884)-A(6889)-A(6893)-A(6897)-A(6905)-A(6911)-A(6917)-A(6928)-A(6934)& - &-A(6969)-A(6970)-A(6977)-A(7008)-A(7009)-A(7016)-A(7056)-A(7069)-A(7075)-A(7089)-A(7090)-A(7096)-A(7101)& - &-A(7102)-A(7110)-A(7111)-A(7135)-A(7136)-A(7231)-A(7236)-A(7242)-A(7246)-A(7309)-A(7763)-A(7769)-A(7809)& - &-A(7825)-A(7833)-A(7841)-A(7846)-A(7852)-A(7858)-A(7878)-A(7888)-A(7893)-A(7897)-A(7903)-A(7933)-A(7945)& - &-A(7950)-A(7954)-A(7960)-A(7965)-A(7969)-A(7973)-A(8003)-A(8017)-A(8031)-A(8050)-A(8056)-A(8062)-A(8066)& - &-A(8072)-A(8090)-A(8110)-A(8120)-A(8126)-A(8130)-A(8136)-A(8154)-A(8158)-A(8174)-A(8180)-A(8186)-A(8190)& - &-A(8196)-A(8214)-A(8231)-A(8237)-A(8243)-A(8248)-A(8254)-A(8259)-A(8263)-A(8268)-A(8293)-A(8308)-A(8373)& - &-A(8389)-A(8393)-A(8407)-A(8421)-A(8427)-A(8432)-A(8436)-A(8442)-A(8460)-A(8505)-A(8525)-A(8540)-A(8562)& - &-A(8582)-A(8594)-A(8595)-A(8628)-A(8635)-A(8636)-A(8650)-A(8651)-A(8657)-A(8658)-A(8665)-A(8666)-A(8686)& - &-A(8694)-A(8701)-A(8702)-A(8706)-A(8707)-A(8715)-A(8716)-A(8721)-A(8735)-A(8754)-A(8755)-A(8798)-A(8799)& - &-A(8973)-A(8974)-A(8986)-A(8987)-A(8994)-A(9002)-A(9008)-A(9012)-A(9018)-A(9023)-A(9027)-A(9028)-A(9043)& - &-A(9044)-A(9049)-A(9050)-A(9056)-A(9057)-A(9064)-A(9065)-A(9081)-A(9091)-A(9092)-A(9106)-A(9114)-A(9120)& - &-A(9127)-A(9132)-A(9136)-A(9144)-A(9153)-A(9154)-A(9159)-A(9160)-A(9174)-A(9179)-A(9187)-A(9193)-A(9199)& - &-A(9205)-A(9211)-A(9212)-A(9228)-A(9234)-A(9246)-A(9254)-A(9260)-A(9265)-A(9276)-A(9277)-A(9282)-A(9292)& - &-A(9293)-A(9298)-A(9299)-A(9305)-A(9309)-A(9310)-A(9316)-A(9321)-A(9327)-A(9340)-A(9341)-A(9346)-A(9347)& - &-A(9354)-A(9360)-A(9385)-A(9391)-A(9413)-A(9423)-A(9428)-A(9429)-A(9440)-A(9446)-A(9447)-A(9456)-A(9457)& - &-A(9465)-A(9471)-A(9478)-A(9485)-A(9491)-A(9492)-A(9498)-A(9499)-A(9510)-A(9516)-A(9517)-A(9522)-A(9528)& - &-A(9535)-A(9541)-A(9542)-A(9550)-A(9558)-A(9571)-A(9575)-A(9579)-A(9580)-A(9586)-A(9599)-A(9603)-A(9604)& - &-A(9612)-A(9618)-A(9619)-A(9627)-A(9631)-A(9632)-A(9640)-A(9644)-A(9648)-A(9649)-A(9657)-A(9661)-A(9665)& - &-A(9666)-A(9674)-A(9678)-A(9682)-A(9683)-A(9691)-A(9695)-A(9696)-A(9704)-A(9721)-A(9737)-A(9741)-A(9745)& - &-A(9751)-A(9755)-A(9761)-A(9765)-A(9773)-A(9777)-A(9781)-A(9808)-A(9812)-A(9829)-A(9856)-A(9860)-A(9864)& - &-A(9870)-A(9874)-A(9914)-A(9918)-A(9922)-A(9927)-A(9931)-A(9951)-A(9955)-A(9959)-A(9964)-A(9968)-A(9976)& - &-A(9980)-A(9984)-A(9990)-A(9994)-A(10022)-A(10030)-A(10036)-A(10040)-A(10044)-A(10050)-A(10054)-A(10083)& - &-A(10100)-A(10104)-A(10108)-A(10114)-A(10118)-A(10147)-A(10159)-A(10163)-A(10167)-A(10211)-A(10215)& - &-A(10219)-A(10224)-A(10228)-A(10235)-A(10241)-A(10245)-A(10249)-A(10255)-A(10259)-A(10267)-A(10271)& - &-A(10275)-A(10280)-A(10284)-A(10301)-A(10305)-A(10309)-A(10314)-A(10318)-A(10353)-A(10361)-A(10377)& - &-A(10394)-A(10400)-A(10408)-A(10424)-A(10455)-A(10480)-A(10506)-A(10527)-A(10533)-A(10534)-A(10540)& - &-A(10557)-A(10561)-A(10562)-A(10571)-A(10579)-A(10585)-A(10589)-A(10595)-A(10601)-A(10605)-A(10616)& - &-A(10687)-A(10699)-A(10700)-A(10709)-A(10716)-A(10722)-A(10723)-A(10734)-A(10743)-A(10744)-A(10749)& - &-A(10750)-A(10789)-A(10795)-A(10801)-A(10892)-A(10898)-A(10899)-A(10905)-A(10910)-A(10940)-A(10941)& - &-A(10969)-A(10975)-A(10979)-A(10983)-A(10999)-A(11007)-A(11020)-A(11039)-A(11057)-A(11063)-A(11119)& - &-A(11175)-A(11176)-A(11182)-A(11188)-A(11219)-A(11220)-A(11225)-A(11230)-A(11263)-A(11281)-A(11302)& - &-A(11323)-A(11346)-A(11352)-A(11375)-A(11381)-A(11385)-A(11413)-A(11417)-A(11441)-A(11445)-A(11449)& - &-A(11474)-A(11481)-A(11486)-A(11490)-A(11509)-A(11514)-A(11518)-A(11537)-A(11541)-A(11576)-A(11580)& - &-A(11601)-A(11618)-A(11622)-A(11643)-A(11662)-A(11666)-A(11680)-A(11684)-A(11688)-A(11707)-A(11714)& - &-A(11718)-A(11738)-A(11742)-A(11761)-A(11765)-A(11787)-A(11801)-A(11812)-A(11820)-A(11824)-A(11830)& - &-A(11850)-A(11861)-A(11867)-A(11877)-A(11888)-A(11896)-A(11905)-A(11919)-A(11920)-A(11925)-A(11931)& - &-A(11939)-A(11963)-A(11981)-A(12018)-A(12019)-A(12027)-A(12028)-A(12036)-A(12045)-A(12049)-A(12050)& - &-A(12055)-A(12063)-A(12064)-A(12069)-A(12075)-A(12076)-A(12083)-A(12089)-A(12099)-A(12100)-A(12108)& - &-A(12147)-A(12153)-A(12154)-A(12160)-A(12183)-A(12184)-A(12192)-A(12198)-A(12204)-A(12230)-A(12238)& - &-A(12244)-A(12251)-A(12259)-A(12266)-A(12267)-A(12291)-A(12292)-A(12299)-A(12300)-A(12351)-A(12352)& - &-A(12361)-A(12366)-A(12404)-A(12409)-A(12438)-A(12443)-A(12444)-A(12459)-A(12473)-A(12487)-A(12504)& - &-A(12523)-A(12543)-A(12551)-A(12564)-A(12581)-A(12587)-A(12594)-A(12606)-A(12625)-A(12642)-A(12656)& - &-A(12663)-A(12677)-A(12696)-A(12706)-A(12710)-A(12734)-A(12751)-A(12765)-A(12779)-A(12786)-A(12795)& - &-A(12814)-A(12821)-A(12829)-A(12837)-A(12857)-A(12865)-A(12878)-A(12896)-A(12913)-A(12917)-A(12937)& - &-A(12952)-A(12963)-A(12968)-A(12978)-A(12985)-A(12991)-A(12997)-A(13009)-A(13022)-A(13023)-A(13032)& - &-A(13051)-A(13057)-A(13105)-A(13106)-A(13114)-A(13121)-A(13147)-A(13153)-A(13154)-A(13159)-A(13160)& - &-A(13174)-A(13175)-A(13192)-A(13198)-A(13207)-A(13208)-A(13230)-A(13231)-A(13242)-A(13243)-A(13251)& - &-A(13252)-A(13263)-A(13264)-A(13271)-A(13283)-A(13288)-A(13289)-A(13301)-A(13306)-A(13310)-A(13324)& - &-A(13336)-A(13340)-A(13352)-A(13367)-A(13375)-A(13383)-A(13391)-A(13399)-A(13409)-A(13419)-A(13434)& - &-A(13464)-A(13474)-A(13489)-A(13500)-A(13525)-A(13535)-A(13545)-A(13565)-A(13570)-A(13646)-A(13656)& - &-A(13662)-A(13684)-A(13690)-A(13691)-A(13697)-A(13715)-A(13723)-A(13732)-A(13740)-A(13746)-A(13763)& - &-A(13768)-A(13783)-A(13790)-A(13797)-A(13803)-A(13804)-A(13814)-A(13837)-A(13870)-A(13876)-A(13877)& - &-A(13913)-A(13914)-A(13924)-A(13925)-A(13953)-A(13974)-A(14028)-A(14074)-A(14081)-A(14087)-A(14106)& - &-A(14124)-A(14142)-A(14143)-A(14158)-A(14159)-A(14179)-A(14214)-A(14220)-A(14226)-A(14227)-A(14238)& - &-A(14244)-A(14245)-A(14253)-A(14259)-A(14260)-A(14269)-A(14270)-A(14288)-A(14289)-A(14294)-A(14295)& - &-A(14303)-A(14311)-A(14312)-A(14333)-A(14341)-A(14348)-A(14349)-A(14365)-A(14370)-A(14375)-A(14385)& - &-A(14390)-A(14394)-A(14410)-A(14421)-A(14426)-A(14462)-A(14468)-A(14486)-A(14504)-A(14524)-A(14525)& - &-A(14550)-A(14551)-A(14556)-A(14564)-A(14586)-A(14602)-A(14603)-A(14612)-A(14613)-A(14623)-A(14633)& - &-A(14634)-A(14667)-A(14668)-A(14673)-A(14689)-A(14697)-A(14705)-A(14711)-A(14717)-A(14739)-A(14747)& - &-A(14748)-A(14756)-A(14757)-A(14765)-A(14779)-A(14780)-A(14802)-A(14810)-A(14811)-A(14853)-A(14878)& - &-A(14914)-A(14920)-A(14945)-A(14957)-A(14963)-A(14978)-A(14983)-A(14987)-A(14997)-A(15001)-A(15006)& - &-A(15011)-A(15022)-A(15031)-A(15048)-A(15060)-A(15061)-A(15133)-A(15138)-A(15145)-A(15150)-A(15172) - Vdot(5253) = A(4)-A(5)-A(6)+A(8)-A(9)+2*A(10)+2*A(11)-A(13)-A(23)+A(24)+A(25)-A(26)+A(27)+A(28)+A(29)-A(40)+A(42)& - &+A(44)+A(45)+A(46)+A(487)+A(488)+A(494)+A(495)+A(500)+A(504)+A(507)+A(509)+A(515)+A(516)+A(522)+A(523)& - &+A(528)+A(530)+A(536)+A(537)+A(542)+A(543)+A(549)+A(550)+A(557)+A(558)+A(564)+A(565)+A(575)+A(576)+A(582)& - &+A(583)+A(591)+A(592)+A(597)+A(598)+A(604)+A(605)+A(611)+A(612)+A(618)+A(619)+A(625)+A(626)+A(632)+A(633)& - &+A(637)+A(639)+A(644)+A(645)+A(650)+A(652)+A(657)+A(658)+A(665)-A(666)+A(667)+A(680)+A(681)+A(686)+A(687)& - &+A(702)+A(703)+A(709)+A(710)+A(717)-A(718)+A(719)+A(724)+A(725)+A(732)-A(733)+A(734)+A(739)+A(740)+A(747)& - &-A(748)+A(749)+A(754)+A(755)+A(761)+A(762)+A(769)-A(770)+A(771)+A(776)+A(777)+A(782)+A(783)+A(788)+A(789)& - &+A(796)-A(797)+A(798)+A(803)+A(804)+A(810)+A(811)+A(818)-A(819)+A(820)+A(824)+A(825)+A(833)+A(834)+A(852)& - &-A(853)+A(854)+A(867)+A(868)+A(874)+A(875)+A(882)-A(883)+A(884)+A(888)+A(889)+A(894)+A(895)+A(904)+A(906)& - &+A(911)+A(912)+A(918)+A(919)+A(925)+A(926)+A(932)+A(933)+A(938)+A(939)+A(945)+A(946)+A(952)+A(953)+A(959)& - &+A(960)+A(966)+A(967)+A(973)+A(974)+A(979)+A(980)+A(986)+A(987)+A(993)+A(994)+A(1000)+A(1001)+A(1007)& - &+A(1008)+A(1014)+A(1015)+A(1021)+A(1022)+A(1028)+A(1029)+A(1034)+A(1035)+A(1041)+A(1042)+A(1048)+A(1049)& - &+A(1054)+A(1055)+A(1061)+A(1062)+A(1068)+A(1069)+A(1075)+A(1076)+A(1081)+A(1082)+A(1088)+A(1089)+A(1095)& - &+A(1096)+A(1102)+A(1103)+A(1108)+A(1109)+A(1115)+A(1116)+A(1121)+A(1122)+A(1128)+A(1129)+A(1135)+A(1136)& - &+A(1142)+A(1143)+A(1149)+A(1150)+A(1156)+A(1157)+A(1162)+A(1163)+A(1171)+A(1172)+A(1177)+A(1178)+A(1187)& - &+A(1188)+A(1193)+A(1194)+A(1204)+A(1205)+A(1210)+A(1211)+A(1216)+A(1217)+A(1221)+A(1222)+A(1231)+A(1232)& - &+A(1237)+A(1238)+A(1248)+A(1249)+A(1255)+A(1256)+A(1261)+A(1262)+A(1267)+A(1268)+A(1278)+A(1279)+A(1284)& - &+A(1285)+A(1290)+A(1291)+A(1297)+A(1298)+A(1303)+A(1304)+A(1314)+A(1315)+A(1320)+A(1321)+A(1326)+A(1327)& - &+A(1335)+A(1336)+A(1341)+A(1342)+A(1352)+A(1353)+A(1359)+A(1360)+A(1365)+A(1366)+A(1371)+A(1372)+A(1382)& - &+A(1383)+A(1389)+A(1390)+A(1395)+A(1396)+A(1402)+A(1403)+A(1409)+A(1410)+A(1427)+A(1428)+A(1439)+A(1441)& - &+A(1453)+A(1454)+A(1460)+A(1461)+A(1478)+A(1479)+A(1485)+A(1486)+A(1504)+A(1505)+A(1511)+A(1512)+A(1528)& - &+A(1530)+A(1541)+A(1543)+A(1555)+A(1556)+A(1567)+A(1569)+A(1581)+A(1582)+A(1592)+A(1594)+A(1606)+A(1607)& - &+A(1619)+A(1620)+A(1630)+A(1631)+A(1637)+A(1638)+A(1655)+A(1656)+A(1662)+A(1663)+A(1679)+A(1680)+A(1686)& - &+A(1687)+A(1704)+A(1705)+A(1723)+A(1724)+A(1741)+A(1742)+A(1748)+A(1749)+A(1765)+A(1766)+A(1776)+A(1777)& - &+A(1788)+A(1789)+A(1796)+A(1797)+A(1802)-A(1803)+A(1804)+A(1808)+A(1809)+A(1812)+A(1813)+A(1819)+A(1820)& - &+A(1833)+A(1834)+A(1840)+A(1841)+A(1846)+A(1848)+A(1854)+A(1855)+A(1882)+A(1883)+A(1905)+A(1906)+A(1913)& - &+A(1914)+A(1920)+A(1921)+A(1927)+A(1928)+A(1934)+A(1935)+A(1940)+A(1941)+A(1946)+A(1947)+A(1952)+A(1954)& - &+A(1959)+A(1960)+A(1965)+A(1966)+A(1972)+A(1973)+A(1978)+A(1979)+A(1984)+A(1985)+A(1991)+A(1992)+A(1998)& - &+A(1999)+A(2004)+A(2005)+A(2011)+A(2012)+A(2017)+A(2018)+A(2023)+A(2024)+A(2030)+A(2031)+A(2037)+A(2038)& - &+A(2042)+A(2043)+A(2049)+A(2050)+A(2056)+A(2057)+A(2062)+A(2063)+A(2067)+A(2068)+A(2078)+A(2079)+A(2084)& - &+A(2085)+A(2091)+A(2092)+A(2096)+A(2097)+A(2101)+A(2102)+A(2118)+A(2119)+A(2124)+A(2125)+A(2131)+A(2132)& - &+A(2136)+A(2137)+A(2146)+A(2147)+A(2152)+A(2153)+A(2159)+A(2160)+A(2164)+A(2165)+A(2169)-A(2170)+A(2175)& - &-A(2176)+A(2189)+A(2190)+A(2195)+A(2196)+A(2202)+A(2203)+A(2209)+A(2215)+A(2216)+A(2226)+A(2231)+A(2235)& - &+A(2243)+A(2244)+A(2254)+A(2260)+A(2266)+A(2267)+A(2276)+A(2281)+A(2282)+A(2292)+A(2300)-A(2301)+A(2302)& - &+A(2307)+A(2308)+A(2315)+A(2321)-A(2322)+A(2323)+A(2328)+A(2329)+A(2334)+A(2335)+A(2341)+A(2349)+A(2350)& - &+A(2359)+A(2367)+A(2375)+A(2376)+A(2386)+A(2392)+A(2409)+A(2426)+A(2427)+A(2431)-A(2432)+A(2433)+A(2438)& - &-A(2439)+A(2440)+A(2447)+A(2451)+A(2452)+A(2455)-A(2456)+A(2463)-A(2464)+A(2465)+A(2469)-A(2470)+A(2490)& - &+A(2491)+A(2493)+A(2502)+A(2503)+A(2507)+A(2508)+A(2512)+A(2513)+A(2518)+A(2519)+A(2532)+A(2533)+A(2538)& - &+A(2539)+A(2543)+A(2544)+A(2556)+A(2557)+A(2562)+A(2563)+A(2567)+A(2568)+A(2576)+A(2577)+A(2584)+A(2604)& - &-A(2605)+A(2614)+A(2620)-A(2621)+A(2629)+A(2636)+A(2644)+A(2645)+A(2649)+A(2653)+A(2654)+A(2655)+A(2656)& - &+A(2659)+A(2660)+A(2663)-A(2664)+A(2685)+A(2686)+A(2692)+A(2693)+A(2697)+A(2698)+A(2702)+A(2703)+A(2709)& - &+A(2710)+A(2716)+A(2717)+A(2723)+A(2724)+A(2730)+A(2731)+A(2736)+A(2737)+A(2742)+A(2743)+A(2752)+A(2753)& - &+A(2763)+A(2764)+A(2769)+A(2770)+A(2777)+A(2778)+A(2787)+A(2788)+A(2795)+A(2796)+A(2807)+A(2808)+A(2815)& - &+A(2816)+A(2825)+A(2826)+A(2835)+A(2836)+A(2842)+A(2843)+A(2850)+A(2851)+A(2860)+A(2861)+A(2870)+A(2871)& - &+A(2877)+A(2878)+A(2887)+A(2888)+A(2895)+A(2896)+A(2903)+A(2904)+A(2909)+A(2910)+A(2917)+A(2918)+A(2923)& - &+A(2924)+A(2931)+A(2932)+A(2939)+A(2940)+A(2947)+A(2948)+A(2955)+A(2956)+A(2963)+A(2964)+A(2970)+A(2974)& - &+A(2979)+A(2982)+A(2986)+A(2988)+A(2989)+A(2992)+A(2995)+A(2996)+A(3000)+A(3001)+A(3002)+A(3003)+A(3005)& - &-A(3006)+A(3020)+A(3021)+A(3022)+A(3025)+A(3028)+A(3032)+A(3033)+A(3035)-A(3036)+A(3042)+A(3045)+A(3046)& - &+A(3050)+A(3054)+A(3055)+A(3057)-A(3058)+A(3079)+A(3082)+A(3087)+A(3089)+A(3090)+A(3101)+A(3104)+A(3105)& - &+A(3108)+A(3110)-A(3111)+A(3118)+A(3120)+A(3121)+A(3122)+A(3127)+A(3130)+A(3132)-A(3133)+A(3148)+A(3150)& - &+A(3153)+A(3156)+A(3160)+A(3161)+A(3165)+A(3168)+A(3169)+A(3171)-A(3172)+A(3193)+A(3196)+A(3197)+A(3201)& - &+A(3204)+A(3205)+A(3221)+A(3222)+A(3229)+A(3230)+A(3239)-A(3240)+A(3241)+A(3253)+A(3254)+A(3259)+A(3260)& - &-A(3270)+A(3273)+A(3274)+A(3281)+A(3282)+A(3287)+A(3288)+A(3292)+A(3293)+A(3297)+A(3298)-A(3301)+A(3313)& - &+A(3314)+A(3321)-A(3322)+A(3323)+A(3332)+A(3333)+A(3338)+A(3339)+A(3345)+A(3346)+A(3355)+A(3356)+A(3367)& - &-A(3368)+A(3369)+A(3377)+A(3378)+A(3383)+A(3384)+A(3388)+A(3389)-A(3392)+A(3395)+A(3396)+A(3404)+A(3405)& - &+A(3414)+A(3415)+A(3429)-A(3430)+A(3431)+A(3439)+A(3440)+A(3445)+A(3446)-A(3450)+A(3453)+A(3454)+A(3458)& - &+A(3459)+A(3467)+A(3468)+A(3477)+A(3478)+A(3486)-A(3487)+A(3488)+A(3493)+A(3494)+A(3499)+A(3500)+A(3504)& - &+A(3505)-A(3508)+A(3511)+A(3512)+A(3521)+A(3522)-A(3527)+A(3530)+A(3531)+A(3535)+A(3536)+A(3548)+A(3549)& - &+A(3556)-A(3557)+A(3558)+A(3567)+A(3568)+A(3573)+A(3574)+A(3580)+A(3581)+A(3587)+A(3588)-A(3591)+A(3594)& - &+A(3595)+A(3607)+A(3608)+A(3615)-A(3616)+A(3617)+A(3626)+A(3627)+A(3632)+A(3633)+A(3639)+A(3640)-A(3643)& - &+A(3646)+A(3647)+A(3651)+A(3652)+A(3664)+A(3665)+A(3672)-A(3673)+A(3674)+A(3683)+A(3684)+A(3689)+A(3690)& - &+A(3696)+A(3697)+A(3699)+A(3705)+A(3706)-A(3709)+A(3712)+A(3713)+A(3721)+A(3722)+A(3737)+A(3739)+A(3745)& - &+A(3746)+A(3755)+A(3756)+A(3765)+A(3766)-A(3769)+A(3772)+A(3773)+A(3782)-A(3783)+A(3784)+A(3788)+A(3790)& - &+A(3795)+A(3796)+A(3801)+A(3802)+A(3811)+A(3812)+A(3819)+A(3820)+A(3825)+A(3826)+A(3832)-A(3833)+A(3834)& - &+A(3844)+A(3846)+A(3850)+A(3851)+A(3857)+A(3858)+A(3865)+A(3866)+A(3877)-A(3878)+A(3879)+A(3887)+A(3888)& - &+A(3893)+A(3894)+A(3898)+A(3899)-A(3902)+A(3905)+A(3906)+A(3914)+A(3915)-A(3928)+A(3929)+A(3934)+A(3935)& - &+A(3940)+A(3941)-A(3945)+A(3948)+A(3949)+A(3953)+A(3954)+A(3962)+A(3963)+A(3972)-A(3973)+A(3974)+A(3979)& - &+A(3980)+A(3985)+A(3986)+A(3990)+A(3991)-A(3994)+A(3997)+A(3998)+A(4006)+A(4007)+A(4014)+A(4015)+A(4026)& - &-A(4027)+A(4028)+A(4034)+A(4036)+A(4040)+A(4041)+A(4047)+A(4048)+A(4052)+A(4053)+A(4058)+A(4059)+A(4066)& - &+A(4067)+A(4071)+A(4072)+A(4077)+A(4078)+A(4087)-A(4088)+A(4089)+A(4097)+A(4099)+A(4103)+A(4104)+A(4109)& - &+A(4111)-A(4112)+A(4122)+A(4123)+A(4129)+A(4134)+A(4135)+A(4137)+A(4138)+A(4146)-A(4147)+A(4164)+A(4181)& - &+A(4182)+A(4184)+A(4188)+A(4200)+A(4201)+A(4207)+A(4208)+A(4213)-A(4214)+A(4219)-A(4220)+A(4224)+A(4225)& - &+A(4230)+A(4232)+A(4241)+A(4242)+A(4249)+A(4251)+A(4260)+A(4261)+A(4279)+A(4280)+A(4286)+A(4287)+A(4289)& - &+A(4291)-A(4292)+A(4293)+A(4297)+A(4298)+A(4301)+A(4302)+A(4310)+A(4311)+A(4317)+A(4318)+A(4324)+A(4325)& - &+A(4332)+A(4333)+A(4342)+A(4343)+A(4351)+A(4352)+A(4357)+A(4358)+A(4376)+A(4377)+A(4400)+A(4401)+A(4421)& - &+A(4422)+A(4431)+A(4432)+A(4441)+A(4442)+A(4452)+A(4453)+A(4472)+A(4473)+A(4494)+A(4495)+A(4505)+A(4506)& - &+A(4520)+A(4521)+A(4531)+A(4532)+A(4541)+A(4542)+A(4547)+A(4548)+A(4550)+A(4552)+A(4553)+A(4557)+A(4558)& - &+A(4563)-A(4564)+A(4570)+A(4571)+A(4585)+A(4586)+A(4591)+A(4592)+A(4595)+A(4596)+A(4599)+A(4602)+A(4603)& - &+A(4609)+A(4610)+A(4616)+A(4617)+A(4621)+A(4622)+A(4628)-A(4629)+A(4644)+A(4645)+A(4650)+A(4651)+A(4653)& - &+A(4654)+A(4659)+A(4660)+A(4666)+A(4667)+A(4672)-A(4673)+A(4679)+A(4688)+A(4693)+A(4694)+A(4712)+A(4713)& - &+A(4718)+A(4719)+A(4728)+A(4729)+A(4734)+A(4735)+A(4741)+A(4742)+A(4748)+A(4757)+A(4763)-A(4764)+A(4765)& - &+A(4771)-A(4772)+A(4773)+A(4778)+A(4779)+A(4785)-A(4786)+A(4787)+A(4792)+A(4793)+A(4797)+A(4798)+A(4801)& - &+A(4802)+A(4810)+A(4811)+A(4817)-A(4818)+A(4819)+A(4823)-A(4824)+A(4825)+A(4829)+A(4830)+A(4837)-A(4838)& - &+A(4839)+A(4850)+A(4851)+A(4858)+A(4859)+A(4862)+A(4863)+A(4865)+2*A(4867)-A(4868)+2*A(4869)+A(4870)& - &+A(4874)+A(4875)+A(4880)-A(4881)+A(4882)+A(4886)-A(4887)+A(4888)+A(4893)-A(4894)+A(4895)+A(4901)-A(4902)& - &+A(4903)+A(4907)+A(4908)+A(4915)-A(4916)+A(4917)+A(4922)+A(4923)+A(4930)-A(4931)+A(4932)+A(4937)-A(4938)& - &+A(4939)+A(4941)+A(4948)-A(4949)+A(4950)+A(4958)+A(4959)+2*A(4962)-A(4963)+2*A(4964)+A(4965)+A(4970)& - &-A(4971)+A(4972)+A(4977)-A(4978)+A(4979)+A(4985)-A(4986)+A(4987)+A(4991)+A(4992)+A(4998)+A(4999)+A(5005)& - &+A(5006)+A(5012)-A(5013)+A(5014)+A(5018)+A(5019)+A(5025)-A(5026)+A(5027)+A(5031)+A(5032)+A(5038)+A(5039)& - &+A(5045)+A(5046)+A(5052)-A(5053)+A(5054)+A(5058)+A(5059)+A(5064)+A(5065)+A(5070)+A(5071)+A(5077)+A(5078)& - &+A(5084)+A(5085)+A(5091)-A(5092)+A(5093)+A(5097)+A(5098)+A(5104)+A(5105)+A(5110)+A(5111)+A(5116)+A(5117)& - &+A(5123)-A(5124)+A(5125)+A(5129)+A(5130)+A(5137)-A(5138)+A(5139)+A(5144)+A(5145)+A(5152)-A(5153)+A(5154)& - &+A(5159)+A(5160)+A(5165)+A(5166)+A(5170)+A(5171)+A(5175)+A(5176)+A(5180)+A(5181)+A(5187)+A(5188)+A(5193)& - &+A(5194)+A(5198)+A(5199)+A(5205)+A(5206)+A(5211)+A(5212)+A(5216)+A(5217)+A(5222)+A(5223)+A(5227)+A(5228)& - &+A(5233)+A(5234)+A(5238)+A(5239)+A(5244)+A(5245)+A(5249)+A(5250)+A(5255)+A(5256)+A(5260)+A(5261)+A(5265)+2& - &*A(5268)-A(5269)+2*A(5270)+A(5271)+A(5273)+2*A(5276)-A(5277)+2*A(5278)+A(5279)+A(5283)+A(5284)+A(5291)& - &-A(5292)+A(5293)+A(5295)+2*A(5298)-A(5299)+2*A(5300)+A(5301)+A(5304)+A(5305)+A(5310)+2*A(5313)-A(5314)+2& - &*A(5315)+A(5316)+A(5320)+A(5321)+A(5325)-A(5326)+A(5327)+A(5330)+A(5331)+A(5334)+A(5335)+A(5339)+2*A(5340)& - &-A(5341)+2*A(5342)+A(5344)+A(5347)+A(5348)+A(5354)+2*A(5355)-A(5356)+A(5357)+A(5359)+A(5363)-A(5364)& - &+A(5365)+A(5368)+A(5369)+A(5371)+2*A(5374)-A(5375)+2*A(5376)+A(5377)+A(5380)+A(5381)+A(5386)+A(5387)& - &+A(5393)-A(5394)+A(5395)+A(5398)+A(5399)+A(5404)+A(5405)+A(5415)-A(5416)+A(5417)+A(5424)+A(5425)+A(5429)& - &-A(5430)+A(5431)+A(5435)+A(5436)+A(5442)+A(5443)+A(5459)+A(5460)+A(5467)+A(5469)+A(5471)-A(5472)+A(5486)& - &+A(5488)+A(5490)+A(5494)+A(5495)-A(5497)+A(5523)-A(5524)+A(5525)+A(5532)+A(5533)+A(5535)-A(5536)+A(5542)& - &+A(5543)+A(5561)-A(5562)+A(5563)+A(5582)+A(5583)+A(5587)-A(5588)+A(5589)+A(5593)+A(5594)+A(5598)+A(5599)& - &+A(5616)+A(5617)+A(5619)+A(5623)+A(5624)-A(5631)+A(5637)-A(5638)+A(5639)+A(5643)+A(5644)+A(5661)-A(5662)& - &+A(5663)+A(5669)+A(5670)+A(5674)-A(5675)+A(5676)+A(5680)+A(5681)+A(5686)+A(5687)+A(5704)+A(5705)+A(5713)& - &+A(5715)+A(5717)-A(5718)+A(5724)-A(5725)+A(5726)+A(5730)+A(5731)+A(5740)+A(5741)+A(5744)+A(5745)+A(5762)& - &+A(5763)+A(5765)+A(5769)+A(5770)-A(5777)+A(5783)-A(5784)+A(5785)+A(5791)+A(5792)+A(5800)+A(5802)+A(5804)& - &-A(5805)+A(5821)-A(5822)+A(5823)+A(5830)+A(5831)+A(5833)-A(5834)+A(5840)+A(5841)+A(5857)+A(5858)+A(5864)& - &+A(5865)+A(5867)+A(5871)+A(5872)-A(5879)+A(5898)-A(5899)+A(5900)+A(5907)+A(5908)+A(5910)-A(5911)+A(5917)& - &+A(5918)+A(5938)+A(5939)+A(5947)+A(5949)+A(5951)-A(5952)+A(5969)-A(5970)+A(5971)+A(5978)+A(5979)+A(5981)& - &-A(5982)+A(5988)+A(5989)+A(6007)-A(6008)+A(6009)+A(6014)+A(6015)+A(6017)+A(6021)+A(6022)-A(6028)+A(6045)& - &-A(6046)+A(6047)+A(6051)+A(6052)+A(6058)+A(6059)+A(6068)-A(6069)+A(6070)+A(6074)+A(6075)+A(6084)+A(6085)& - &+A(6087)+A(6091)+A(6092)-A(6099)+A(6107)+A(6108)+A(6113)+A(6114)+A(6130)-A(6131)+A(6132)+A(6136)+A(6137)& - &+A(6141)-A(6142)+A(6143)+A(6148)+A(6149)+A(6151)+A(6160)+A(6161)+A(6165)-A(6166)+A(6167)+A(6171)+A(6172)& - &+A(6178)+A(6179)+A(6193)+A(6194)+A(6202)+A(6203)+A(6207)-A(6208)+A(6209)+A(6213)+A(6214)+A(6218)+A(6219)& - &+A(6235)+A(6236)+A(6238)+A(6242)+A(6243)-A(6250)+A(6257)+A(6258)+A(6261)+A(6262)+A(6282)+A(6283)+A(6291)& - &+A(6293)+A(6295)-A(6296)+A(6308)+A(6309)+A(6312)+A(6313)+A(6330)+A(6331)+A(6333)+A(6337)+A(6338)-A(6345)& - &+A(6349)+A(6350)+A(6368)+A(6369)+A(6374)+A(6375)+A(6388)+A(6390)+A(6392)+A(6398)+A(6399)+A(6405)-A(6406)& - &+A(6407)+A(6410)+A(6412)+A(6414)+A(6421)-A(6422)+A(6423)+A(6429)+A(6430)+A(6434)-A(6435)+A(6436)+A(6440)& - &+A(6441)+A(6445)+A(6446)+A(6454)+A(6455)+A(6467)+A(6468)+A(6475)-A(6476)+A(6477)+A(6481)+A(6483)+A(6485)& - &+A(6486)+A(6493)-A(6494)+A(6495)+A(6504)+A(6505)+A(6515)+A(6516)+A(6521)+A(6522)+A(6528)-A(6529)+A(6530)& - &+A(6536)+A(6539)+A(6540)+A(6547)-A(6548)+A(6549)+A(6555)+A(6557)+A(6558)+A(6563)+A(6564)+A(6568)+A(6570)& - &+A(6591)+A(6596)+A(6597)+A(6622)+A(6637)+A(6638)+A(6662)+A(6671)+A(6672)+A(6679)+A(6680)+A(6685)-A(6686)& - &+A(6687)+A(6691)+A(6694)-A(6695)+A(6701)+A(6702)+A(6706)+A(6707)+A(6710)+A(6711)+A(6715)+A(6718)+A(6719)& - &+A(6726)+A(6727)+A(6732)+A(6733)+A(6739)+A(6740)+A(6745)+A(6746)+A(6753)+A(6754)+A(6763)+A(6764)+A(6770)& - &+A(6772)+A(6778)+A(6780)+A(6787)-A(6788)+A(6789)+A(6793)+A(6794)+A(6799)+A(6800)+A(6805)+A(6806)+A(6811)& - &+A(6812)+A(6815)+A(6816)+A(6821)+A(6822)+A(6829)-A(6830)+A(6831)+A(6835)+A(6836)+A(6839)+A(6840)+A(6843)& - &+A(6844)+A(6850)+A(6851)+A(6857)+A(6858)+A(6863)+A(6864)+A(6867)+A(6868)+A(6873)+A(6874)+A(6877)+A(6878)& - &+A(6884)-A(6885)+A(6886)+A(6889)+A(6890)+A(6893)+A(6894)+A(6897)+A(6898)+A(6905)-A(6906)+A(6907)+A(6911)& - &+A(6912)+A(6917)+A(6918)+A(6928)+A(6929)+A(6934)-A(6935)+A(6936)+A(6959)+A(6960)+A(6970)+A(6971)+A(6976)+2& - &*A(6977)-A(6978)+2*A(6979)+A(6980)+A(6983)+A(6984)+A(6991)+A(6992)+A(6998)+A(6999)+A(7009)+A(7010)+A(7016)& - &-A(7017)+A(7018)+A(7045)+A(7046)+A(7056)-A(7057)+A(7058)+A(7069)-A(7070)+A(7071)+A(7075)+A(7076)+A(7090)& - &+A(7091)+A(7096)-A(7097)+A(7111)+A(7112)+A(7136)+A(7137)+A(7142)+A(7143)+A(7163)+A(7164)+A(7179)+A(7180)& - &+A(7184)+A(7185)+A(7188)+A(7189)+A(7196)+A(7197)+A(7201)+A(7209)+A(7210)+A(7213)+A(7214)+A(7218)+A(7227)& - &+A(7228)+A(7231)-A(7232)+A(7233)+A(7236)+A(7237)+A(7242)+A(7243)+A(7246)+A(7247)+A(7253)+2*A(7254)+A(7255)& - &+A(7258)+A(7259)+A(7262)+A(7263)+A(7267)+A(7268)+A(7273)+A(7274)+A(7282)+A(7283)+A(7287)+A(7288)+A(7298)& - &+A(7299)+A(7302)+A(7303)+A(7308)+2*A(7309)-A(7310)+2*A(7311)+A(7313)+A(7314)+A(7318)+A(7320)+A(7321)& - &+A(7323)+A(7326)+A(7327)+A(7330)+A(7331)+A(7335)+A(7336)+A(7339)+A(7340)+A(7349)+A(7350)+A(7358)+A(7359)& - &+A(7368)+A(7369)+A(7372)+A(7373)+A(7382)+A(7383)+A(7386)+A(7387)+A(7393)+A(7394)+A(7402)+A(7403)+A(7411)& - &+A(7412)+A(7416)+A(7417)+A(7431)+A(7432)+A(7442)+A(7443)+A(7452)+A(7453)+A(7461)+A(7462)+A(7466)+A(7467)& - &+A(7475)+A(7476)+A(7490)+A(7491)+A(7500)+A(7501)+A(7505)+A(7506)+A(7514)+A(7515)+A(7519)+A(7520)+A(7529)& - &+A(7530)+A(7533)+A(7534)+A(7544)+A(7545)+A(7553)+A(7554)+A(7562)+A(7563)+A(7574)+A(7575)+A(7583)+A(7584)& - &+A(7595)+A(7596)+A(7607)+A(7608)+A(7619)+A(7620)+A(7631)+A(7632)+A(7643)+A(7644)+A(7647)+A(7649)+2*A(7650)& - &+A(7651)+A(7652)+A(7654)+2*A(7655)+A(7656)+A(7660)+A(7663)+A(7666)+A(7667)+A(7668)+A(7670)+2*A(7671)& - &+A(7672)+A(7675)+A(7676)+A(7677)+A(7680)+A(7681)+A(7683)+2*A(7684)+A(7685)+A(7692)+A(7693)+A(7696)+A(7700)& - &+A(7701)+A(7703)+2*A(7704)+A(7705)+A(7708)+A(7710)+2*A(7711)+A(7712)+A(7715)+A(7716)+A(7720)+A(7722)& - &+A(7724)+2*A(7725)+A(7726)+A(7729)+A(7730)+A(7732)+A(7734)+A(7744)+A(7745)+A(7748)+A(7749)+A(7750)+A(7752)& - &+A(7756)+A(7758)+A(7759)+A(7761)+A(7763)+A(7764)+A(7769)+A(7770)+A(7781)+A(7782)+A(7787)+A(7788)-A(7804)& - &+A(7809)+A(7810)-A(7818)+A(7825)+A(7826)+A(7833)-A(7834)+A(7835)+A(7841)+A(7842)+A(7846)+A(7847)+A(7852)& - &+A(7853)+A(7858)+A(7859)+A(7866)+A(7867)+A(7873)+A(7874)+A(7878)-A(7879)+A(7880)+A(7888)+A(7889)+A(7893)& - &+A(7894)+A(7897)+A(7898)+A(7903)+A(7904)+A(7911)+A(7912)-A(7924)+A(7933)+A(7934)+A(7939)+A(7940)-A(7943)& - &+A(7945)+A(7946)+A(7950)+A(7951)+A(7954)+A(7955)+A(7960)+A(7961)+A(7965)+A(7966)+A(7969)+A(7970)+A(7973)& - &+A(7974)+A(7982)+A(7983)+A(7988)+A(7989)-A(7994)+A(8003)+A(8004)+A(8011)+A(8012)-A(8015)+A(8017)+A(8018)& - &-A(8022)+A(8031)+A(8032)+A(8037)+A(8038)-A(8039)+A(8050)+A(8051)+A(8056)+A(8057)+A(8062)+A(8063)+A(8066)& - &+A(8067)+A(8072)+A(8073)+A(8082)+A(8083)+A(8090)+A(8091)-A(8101)+A(8110)+A(8111)+A(8120)+A(8121)+A(8126)& - &+A(8127)+A(8130)+A(8131)+A(8136)+A(8137)+A(8146)+A(8147)+A(8154)+A(8155)+A(8158)+A(8159)-A(8163)+A(8174)& - &+A(8175)+A(8180)+A(8181)+A(8186)+A(8187)+A(8190)+A(8191)+A(8196)+A(8197)+A(8206)+A(8207)+A(8214)+A(8215)& - &+A(8220)+A(8221)-A(8224)+A(8231)+A(8232)+A(8237)-A(8238)+A(8239)+A(8243)+A(8244)+A(8248)+A(8249)+A(8254)& - &+A(8255)+A(8259)+A(8260)+A(8263)+A(8264)+A(8268)+A(8269)+A(8276)+A(8277)+A(8285)+A(8286)-A(8289)+A(8293)& - &+A(8294)-A(8299)+A(8308)+A(8309)+A(8316)+A(8317)-A(8320)+A(8326)+A(8327)+A(8332)+A(8333)+A(8354)+A(8355)& - &-A(8364)+A(8373)+A(8374)-A(8380)+A(8389)+A(8390)+A(8393)+A(8394)-A(8398)+A(8407)+A(8408)+A(8421)-A(8422)& - &+A(8423)+A(8427)+A(8428)+A(8432)+A(8433)+A(8436)+A(8437)+A(8442)+A(8443)+A(8460)+A(8461)+A(8463)+A(8464)& - &+A(8471)+A(8472)+A(8477)+A(8478)+A(8502)+A(8503)+A(8505)-A(8506)+A(8522)+A(8523)+A(8525)-A(8526)+A(8532)& - &+A(8540)-A(8541)+A(8547)+A(8559)+A(8560)+A(8562)-A(8563)+A(8569)+A(8571)+A(8573)+A(8579)+A(8580)+A(8582)& - &-A(8583)+A(8591)+A(8595)+A(8596)+A(8599)+A(8603)+A(8628)-A(8629)+A(8630)+A(8636)+A(8637)+A(8645)+A(8646)& - &+A(8651)+A(8652)+A(8658)+A(8666)+A(8667)+A(8686)+A(8687)+A(8694)-A(8695)+A(8696)+A(8701)+A(8703)+A(8707)& - &+A(8708)+A(8713)+A(8716)+A(8717)+A(8721)+A(8722)+A(8727)+A(8728)+A(8729)+A(8735)-A(8736)+A(8741)+A(8747)& - &+A(8748)+A(8755)+A(8756)+A(8764)+A(8765)+A(8773)+A(8774)+A(8792)+A(8793)+A(8799)+A(8800)+A(8806)+A(8807)& - &+A(8813)+A(8814)+A(8819)+A(8820)+A(8825)+A(8826)+A(8873)+A(8874)+A(8895)+A(8896)+A(8901)+A(8902)+A(8934)& - &+A(8935)+A(8952)+A(8953)+A(8974)+A(8975)+A(8983)+A(8984)+A(8987)+A(8988)+A(8994)-A(8995)+A(8996)+A(9002)& - &-A(9003)+A(9004)+A(9008)+A(9009)+A(9012)+A(9013)+A(9018)-A(9019)+A(9020)+A(9023)+A(9024)+A(9028)+A(9029)& - &+A(9034)+A(9035)+A(9039)+2*A(9040)+A(9041)+A(9044)+A(9045)+A(9050)+A(9051)+A(9057)+A(9058)+A(9065)+A(9066)& - &+A(9071)+A(9072)+A(9078)+A(9079)+A(9081)+A(9082)+A(9092)+A(9093)+A(9106)-A(9107)+A(9108)+A(9114)-A(9115)& - &+A(9116)+A(9120)+A(9121)+A(9127)-A(9128)+A(9129)+A(9132)+A(9133)+A(9136)+A(9137)+A(9141)+A(9142)+A(9144)& - &+A(9145)+A(9154)+A(9155)+A(9160)+A(9161)+A(9167)+A(9168)+A(9171)+A(9172)+A(9174)-A(9175)+A(9179)+A(9180)& - &+A(9187)-A(9188)+A(9189)+A(9193)+A(9194)+A(9199)+A(9200)+A(9205)+A(9206)+A(9212)+A(9213)+A(9219)+A(9224)& - &+A(9228)+A(9229)+A(9234)-A(9235)+A(9240)+A(9246)-A(9247)+A(9248)+A(9254)-A(9255)+A(9256)+A(9260)-A(9261)& - &+A(9265)+A(9266)+A(9272)+A(9277)+A(9278)+A(9282)+A(9283)+A(9293)+A(9294)+A(9299)+A(9300)+A(9305)+A(9306)& - &+A(9310)+A(9311)+A(9316)+A(9317)+A(9321)-A(9322)+A(9327)-A(9328)+A(9341)+A(9342)+A(9347)+A(9348)+A(9354)& - &-A(9355)+A(9356)+A(9360)-A(9361)+A(9362)+A(9366)+A(9367)+A(9385)-A(9386)+A(9387)+A(9391)+A(9392)+A(9394)& - &+A(9395)+A(9397)+A(9398)+A(9399)+A(9406)+A(9413)-A(9414)+A(9415)+A(9423)-A(9424)+A(9425)+A(9429)+A(9430)& - &+A(9440)-A(9441)+A(9442)+A(9447)+A(9448)+A(9457)+A(9458)+A(9465)-A(9466)+A(9467)+A(9471)+A(9472)+A(9478)& - &-A(9479)+A(9480)+A(9485)-A(9486)+A(9487)+A(9492)+A(9493)+A(9499)+A(9500)+A(9510)-A(9511)+A(9512)+A(9517)& - &+A(9518)+A(9522)+A(9523)+A(9528)+A(9529)+A(9535)-A(9536)+A(9537)+A(9542)+A(9543)+A(9550)-A(9551)+A(9552)& - &+A(9558)-A(9559)+A(9560)+A(9571)+A(9572)+A(9575)+A(9576)+A(9580)+A(9581)+A(9586)+A(9587)+A(9599)+A(9600)& - &+A(9604)+A(9605)+A(9612)-A(9613)+A(9614)+A(9619)+A(9620)+A(9627)+A(9628)+A(9632)+A(9633)+A(9640)+A(9641)& - &+A(9644)+A(9645)+A(9649)+A(9650)+A(9657)+A(9658)+A(9661)+A(9662)+A(9666)+A(9667)+A(9674)+A(9675)+A(9678)& - &+A(9679)+A(9683)+A(9684)+A(9691)+A(9692)+A(9696)+A(9697)+A(9704)+A(9705)+A(9707)+A(9708)+A(9709)+A(9710)& - &+A(9718)+A(9721)-A(9722)+A(9737)+A(9738)+A(9741)+A(9742)+A(9745)+A(9746)+A(9751)+A(9752)+A(9755)+A(9756)& - &+A(9761)+A(9762)+A(9765)+A(9766)+A(9773)+A(9774)+A(9777)+A(9778)+A(9781)+A(9782)+A(9791)+A(9792)+A(9806)& - &+A(9808)+A(9809)+A(9812)-A(9813)+A(9826)+A(9827)+A(9829)-A(9830)+A(9841)+A(9856)+A(9857)+A(9860)+A(9861)& - &+A(9864)+A(9865)+A(9870)+A(9871)+A(9874)+A(9875)+A(9887)+A(9901)+A(9914)+A(9915)+A(9918)+A(9919)+A(9922)& - &+A(9923)+A(9927)+A(9928)+A(9931)+A(9932)+A(9951)+A(9952)+A(9955)+A(9956)+A(9959)+A(9960)+A(9964)+A(9965)& - &+A(9968)+A(9969)+A(9976)+A(9977)+A(9980)+A(9981)+A(9984)+A(9985)+A(9990)+A(9991)+A(9994)+A(9995)+A(10010)& - &+A(10022)-A(10023)+A(10024)+A(10030)+A(10031)+A(10036)+A(10037)+A(10040)+A(10041)+A(10044)+A(10045)& - &+A(10050)+A(10051)+A(10054)+A(10055)+A(10071)+A(10083)-A(10084)+A(10085)+A(10100)+A(10101)+A(10104)& - &+A(10105)+A(10108)+A(10109)+A(10114)+A(10115)+A(10118)+A(10119)+A(10135)+A(10147)-A(10148)+A(10149)& - &+A(10159)+A(10160)+A(10163)+A(10164)+A(10167)+A(10168)+A(10175)+A(10176)+A(10184)+A(10191)+A(10211)& - &+A(10212)+A(10215)+A(10216)+A(10219)+A(10220)+A(10224)+A(10225)+A(10228)+A(10229)+A(10235)+A(10236)& - &+A(10241)+A(10242)+A(10245)+A(10246)+A(10249)+A(10250)+A(10255)+A(10256)+A(10259)+A(10260)+A(10267)& - &+A(10268)+A(10271)+A(10272)+A(10275)+A(10276)+A(10280)+A(10281)+A(10284)+A(10285)+A(10301)+A(10302)& - &+A(10305)+A(10306)+A(10309)+A(10310)+A(10314)+A(10315)+A(10318)+A(10319)+A(10328)+A(10329)+A(10337)& - &-A(10351)+A(10353)+A(10354)+A(10361)-A(10362)+A(10363)+A(10369)+A(10371)+A(10376)+2*A(10377)-A(10378)+2& - &*A(10379)+A(10380)+A(10388)+A(10389)+A(10394)-A(10395)+A(10400)-A(10401)+A(10408)+A(10409)+A(10414)& - &+A(10419)+A(10424)-A(10425)+A(10435)+A(10437)+A(10450)+A(10451)+A(10455)+A(10456)+A(10465)+A(10471)& - &+A(10476)+A(10480)-A(10481)+A(10487)+A(10496)+A(10498)+A(10500)+A(10506)-A(10507)+A(10515)+A(10527)& - &-A(10528)+A(10529)+A(10534)+A(10535)+A(10540)+A(10541)+A(10547)+A(10548)+A(10557)+A(10558)+A(10562)& - &+A(10563)+A(10571)-A(10572)+A(10573)+A(10579)-A(10580)+A(10581)+A(10585)+A(10586)+A(10589)+A(10590)& - &+A(10595)-A(10596)+A(10597)+A(10601)+A(10602)+A(10605)+A(10606)+A(10610)+A(10611)+A(10616)+A(10617)& - &+A(10621)+A(10622)+A(10632)+A(10633)+A(10638)+A(10639)+A(10650)+A(10651)+A(10657)+A(10662)+A(10663)& - &+A(10669)+A(10670)+A(10676)+A(10677)+A(10687)-A(10688)+A(10689)+A(10694)+A(10695)+A(10700)+A(10701)& - &+A(10706)+A(10707)+A(10709)+A(10710)+A(10716)-A(10717)+A(10718)+A(10723)+A(10724)+A(10730)+A(10734)& - &+A(10735)+A(10744)+A(10745)+A(10750)+A(10751)+A(10758)+A(10759)+A(10765)+A(10766)+A(10775)+A(10776)& - &+A(10786)+A(10787)+A(10789)+A(10790)+A(10795)+A(10796)+A(10801)-A(10802)+A(10808)+A(10823)+A(10824)& - &+A(10851)+A(10852)+A(10864)+A(10865)+A(10871)+A(10872)+A(10881)+A(10882)+A(10887)+A(10888)+A(10892)& - &-A(10893)+A(10894)+A(10899)+A(10900)+A(10905)-A(10906)+A(10910)+A(10911)+A(10917)+A(10922)+A(10923)& - &+A(10931)+A(10932)+A(10937)+A(10938)+A(10941)+A(10942)+A(10948)+A(10957)+A(10958)+A(10961)+A(10962)& - &+A(10969)-A(10970)+A(10971)+A(10975)+A(10976)+A(10979)+A(10980)+A(10983)+A(10984)+A(10989)+A(10990)& - &+A(10994)+A(10995)+A(10999)-A(11000)+A(11001)+A(11007)-A(11008)+A(11009)+A(11015)+A(11016)+A(11020)& - &-A(11021)+A(11022)+A(11027)+A(11028)+A(11031)+A(11032)+A(11039)-A(11040)+A(11041)+A(11047)+A(11048)& - &+A(11052)+A(11053)+A(11057)-A(11058)+A(11059)+A(11063)+A(11064)+A(11069)+A(11070)+A(11077)+A(11078)& - &+A(11090)+A(11091)+A(11095)+A(11096)+A(11099)+A(11100)+A(11109)+A(11110)+A(11119)-A(11120)+A(11121)& - &+A(11127)+A(11128)+A(11131)+A(11132)+A(11152)+A(11153)+A(11157)+A(11158)+A(11167)+A(11168)+A(11172)& - &+A(11173)+A(11176)+A(11177)+A(11182)+A(11183)+A(11188)+A(11189)+A(11202)+A(11203)+A(11220)+A(11221)& - &+A(11225)+A(11226)+A(11230)+A(11231)+A(11241)+A(11242)+A(11251)+A(11252)+A(11255)+A(11256)+A(11263)& - &+A(11264)+A(11273)+A(11274)+A(11281)+A(11282)+A(11294)+A(11295)+A(11302)+A(11303)+A(11315)+A(11316)& - &+A(11323)+A(11324)+A(11336)+A(11337)+A(11346)-A(11347)+A(11348)+A(11352)+A(11353)+A(11362)+A(11363)& - &+A(11372)+A(11375)+A(11376)+A(11381)+A(11382)+A(11385)+A(11386)+A(11392)+A(11398)+A(11406)+A(11413)& - &+A(11414)+A(11417)+A(11418)+A(11424)+A(11441)+A(11442)+A(11445)+A(11446)+A(11449)+A(11450)+A(11456)& - &+A(11464)+A(11474)+A(11475)+A(11481)+A(11482)+A(11486)+A(11487)+A(11490)+A(11491)+A(11497)+A(11504)& - &+A(11509)+A(11510)+A(11514)+A(11515)+A(11518)+A(11519)+A(11525)+A(11532)+A(11537)+A(11538)+A(11541)& - &+A(11542)+A(11548)+A(11556)+A(11566)+A(11570)+A(11571)+A(11576)+A(11577)+A(11580)+A(11581)+A(11587)& - &+A(11595)+A(11601)-A(11602)+A(11603)+A(11611)+A(11615)+A(11616)+A(11618)+A(11619)+A(11622)+A(11623)& - &+A(11629)+A(11637)+A(11643)-A(11644)+A(11645)+A(11653)+A(11657)+A(11658)+A(11662)+A(11663)+A(11666)& - &+A(11667)+A(11673)+A(11680)+A(11681)+A(11684)+A(11685)+A(11688)+A(11689)+A(11695)+A(11702)+A(11707)& - &+A(11708)+A(11714)+A(11715)+A(11718)+A(11719)+A(11725)+A(11733)+A(11738)+A(11739)+A(11742)+A(11743)& - &+A(11749)+A(11756)+A(11761)+A(11762)+A(11765)+A(11766)+A(11772)+A(11779)+A(11787)+A(11788)+A(11796)& - &+A(11797)+A(11800)+2*A(11801)-A(11802)+2*A(11803)+A(11805)+A(11807)+A(11809)+A(11812)-A(11813)+A(11814)& - &+A(11820)+A(11821)+A(11824)-A(11825)+A(11830)-A(11831)+A(11832)+A(11839)+A(11840)+2*A(11842)+A(11844)& - &+A(11850)-A(11851)+A(11852)+A(11861)-A(11862)+A(11863)+A(11867)-A(11868)+A(11869)+A(11873)+A(11876)+2& - &*A(11877)-A(11878)+2*A(11879)+A(11880)+A(11882)+A(11884)+A(11888)-A(11889)+A(11890)+A(11893)+2*A(11896)& - &-A(11897)+2*A(11898)+A(11899)+A(11905)-A(11906)+A(11907)+A(11914)+A(11920)+A(11921)+A(11925)+A(11926)& - &+A(11931)-A(11932)+A(11933)+A(11939)+A(11940)+A(11946)+A(11947)+A(11951)+A(11952)+A(11963)-A(11964)& - &+A(11965)+A(11973)+A(11981)-A(11982)+A(11983)+A(11988)+A(11989)+A(11994)+A(11995)+A(12006)+A(12007)& - &+A(12019)+A(12020)+A(12028)+A(12029)+A(12036)-A(12037)+A(12038)+A(12045)+A(12046)+A(12050)+A(12051)& - &+A(12055)+A(12056)+A(12064)+A(12065)+A(12069)+A(12070)+A(12076)+A(12077)+A(12083)-A(12084)+A(12085)& - &+A(12089)+A(12090)+A(12100)+A(12101)+A(12105)+A(12106)+A(12108)+A(12109)+A(12115)+A(12116)+A(12129)& - &+A(12130)+A(12133)+A(12134)+A(12141)+A(12147)-A(12148)+A(12149)+A(12154)+A(12155)+A(12160)+A(12161)& - &+A(12166)+A(12172)+A(12173)+A(12184)+A(12185)+A(12192)-A(12193)+A(12194)+A(12198)+A(12199)+A(12204)& - &-A(12205)+A(12206)+A(12230)-A(12231)+A(12232)+A(12238)-A(12239)+A(12240)+A(12244)+A(12245)+A(12251)& - &-A(12252)+A(12253)+A(12259)-A(12260)+A(12261)+A(12267)+A(12268)+A(12275)+A(12276)+A(12279)+A(12280)& - &+A(12292)+A(12293)+A(12300)+A(12301)+A(12307)+A(12308)+A(12315)+A(12329)+A(12330)+A(12334)+A(12335)& - &+A(12340)+A(12341)+A(12348)+A(12349)+A(12352)+A(12353)+A(12361)+A(12362)+A(12366)-A(12367)+A(12368)& - &+A(12375)+A(12376)+A(12379)+A(12380)+A(12404)-A(12405)+A(12406)+A(12409)+A(12410)+A(12415)+A(12416)& - &+A(12438)-A(12439)+A(12440)+A(12444)+A(12445)+A(12459)-A(12460)+A(12461)+A(12473)-A(12474)+A(12475)& - &+A(12487)-A(12488)+A(12489)+A(12504)-A(12505)+A(12506)+A(12513)+A(12514)+A(12523)-A(12524)+A(12525)& - &+A(12534)+A(12537)+A(12543)-A(12544)+A(12545)+A(12551)-A(12552)+A(12553)+A(12557)+A(12560)+A(12564)& - &-A(12565)+A(12566)+A(12573)+A(12576)+A(12581)-A(12582)+A(12583)+A(12587)-A(12588)+A(12589)+A(12594)& - &-A(12595)+A(12596)+A(12606)-A(12607)+A(12608)+A(12617)+A(12620)+A(12625)-A(12626)+A(12627)+A(12631)& - &+A(12634)+A(12637)+A(12642)-A(12643)+A(12644)+A(12648)+A(12651)+A(12656)-A(12657)+A(12658)+A(12663)& - &-A(12664)+A(12665)+A(12669)+A(12672)+A(12677)-A(12678)+A(12679)+A(12684)+A(12685)+A(12688)+A(12691)& - &+A(12696)-A(12697)+A(12698)+A(12703)+A(12704)+A(12706)+A(12707)+A(12710)+A(12711)+A(12716)+A(12719)& - &+A(12720)+A(12723)+A(12726)+A(12729)+A(12734)-A(12735)+A(12736)+A(12740)+A(12743)+A(12746)+A(12751)& - &-A(12752)+A(12753)+A(12757)+A(12760)+A(12765)-A(12766)+A(12767)+A(12771)+A(12774)+A(12779)-A(12780)& - &+A(12781)+A(12786)-A(12787)+A(12788)+A(12795)+A(12796)+A(12798)+A(12799)+A(12801)+A(12802)+A(12805)& - &+A(12806)+A(12814)-A(12815)+A(12816)+A(12821)-A(12822)+A(12823)+A(12828)+2*A(12829)-A(12830)+2*A(12831)& - &+A(12833)+A(12836)+2*A(12837)-A(12838)+2*A(12839)+A(12841)+A(12844)+A(12845)+A(12848)+A(12849)+A(12853)& - &+A(12857)-A(12858)+A(12859)+A(12862)+2*A(12865)-A(12866)+2*A(12867)+A(12868)+A(12873)+A(12875)+A(12878)& - &-A(12879)+A(12880)+A(12886)+A(12887)+A(12888)+A(12889)+A(12891)+2*A(12892)+A(12895)+2*A(12896)-A(12897)+2& - &*A(12898)+A(12900)+A(12904)+A(12905)+A(12907)+A(12909)+A(12911)+A(12913)+A(12914)+A(12917)+A(12918)& - &+A(12925)+A(12935)+A(12937)-A(12938)+A(12952)-A(12953)+A(12954)+A(12959)+A(12960)+A(12963)-A(12964)& - &+A(12965)+A(12968)+A(12969)+A(12973)+A(12974)+A(12978)-A(12979)+A(12980)+A(12985)-A(12986)+A(12987)& - &+A(12991)-A(12992)+A(12993)+A(12997)-A(12998)+A(12999)+A(13003)+A(13004)+A(13009)+A(13010)+A(13014)& - &+A(13015)+A(13023)+A(13024)+A(13029)+A(13030)+A(13032)+A(13033)+A(13040)+A(13041)+A(13051)-A(13052)& - &+A(13053)+A(13057)+A(13058)+A(13064)+A(13065)+A(13077)+A(13078)+A(13085)+A(13086)+A(13094)+A(13095)& - &+A(13106)+A(13107)+A(13114)+A(13115)+A(13121)-A(13122)+A(13123)+A(13129)+A(13130)+A(13133)+A(13134)& - &+A(13147)+A(13148)+A(13154)+A(13155)+A(13160)+A(13161)+A(13167)+A(13168)+A(13175)+A(13176)+A(13181)& - &+A(13182)+A(13189)+A(13190)+A(13192)+A(13193)+A(13198)-A(13199)+A(13200)+A(13208)+A(13209)+A(13213)& - &+A(13214)+A(13220)+A(13221)+A(13231)+A(13232)+A(13236)+A(13237)+A(13243)+A(13244)+A(13248)+A(13249)& - &+A(13252)+A(13253)+A(13258)+A(13259)+A(13264)+A(13265)+A(13271)-A(13272)+A(13273)+A(13278)+A(13279)& - &+A(13283)+A(13284)+A(13289)+A(13290)+A(13295)+A(13296)+A(13301)+A(13302)+A(13306)+A(13307)+A(13310)& - &+A(13311)+A(13316)+A(13324)-A(13325)+A(13326)+A(13333)+A(13334)+A(13336)+A(13337)+A(13340)+A(13341)& - &+A(13345)+A(13346)+A(13352)+A(13353)+A(13357)+A(13358)+A(13361)+A(13367)+A(13368)+A(13372)+A(13373)& - &+A(13375)+A(13376)+A(13380)+A(13381)+A(13383)+A(13384)+A(13388)+A(13389)+A(13391)+A(13392)+A(13396)& - &+A(13397)+A(13399)+A(13400)+A(13404)+A(13405)+A(13406)+A(13409)-A(13410)+A(13411)+A(13415)+A(13416)& - &+A(13419)-A(13420)+A(13421)+A(13425)+A(13426)+A(13427)+A(13430)+A(13431)+A(13434)-A(13435)+A(13436)& - &+A(13440)+A(13441)+A(13444)+A(13445)+A(13449)+A(13450)+A(13454)+A(13455)+A(13460)+A(13461)+A(13464)& - &-A(13465)+A(13466)+A(13470)+A(13471)+A(13474)-A(13475)+A(13476)+A(13480)+A(13481)+A(13482)+A(13485)& - &+A(13486)+A(13489)-A(13490)+A(13491)+A(13495)+A(13496)+A(13497)+A(13500)-A(13501)+A(13502)+A(13506)& - &+A(13507)+A(13508)+A(13511)+A(13518)+A(13519)+A(13525)-A(13526)+A(13527)+A(13531)+A(13532)+A(13535)& - &-A(13536)+A(13537)+A(13541)+A(13542)+A(13545)-A(13546)+A(13547)+A(13551)+A(13552)+A(13556)+A(13557)& - &+A(13560)+A(13565)-A(13566)+A(13567)+A(13570)+A(13571)+A(13574)+A(13576)+A(13580)+A(13581)+A(13582)& - &+A(13584)+2*A(13585)+A(13586)+A(13587)+A(13589)+2*A(13590)+A(13591)+A(13592)+A(13593)+A(13595)+A(13596)& - &+A(13597)+A(13601)+A(13602)+A(13603)+A(13604)+A(13606)+A(13617)+A(13618)+A(13619)+A(13621)+A(13623)& - &+A(13627)+A(13628)+A(13631)+A(13632)+A(13639)+A(13640)+A(13643)+A(13644)+A(13646)+A(13647)+A(13651)& - &+A(13652)+A(13656)+A(13657)+A(13659)+A(13660)+A(13662)+A(13663)+A(13669)+A(13673)+A(13674)+A(13684)& - &+A(13685)+A(13691)+A(13692)+A(13697)+A(13698)+A(13704)+A(13705)+A(13715)+A(13716)+A(13723)-A(13724)& - &+A(13725)+A(13732)+A(13733)+A(13740)-A(13741)+A(13742)+A(13746)+A(13747)+A(13755)+A(13756)+A(13763)& - &-A(13764)+A(13765)+A(13768)+A(13769)+A(13783)+A(13784)+A(13786)+A(13787)+A(13790)-A(13791)+A(13792)& - &+A(13797)-A(13798)+A(13799)+A(13804)+A(13805)+A(13811)+A(13812)+A(13814)+A(13815)+A(13820)+A(13825)& - &+A(13826)+A(13837)+A(13838)+A(13844)+A(13845)+A(13858)+A(13859)+A(13862)+A(13863)+A(13870)-A(13871)& - &+A(13872)+A(13877)+A(13878)+A(13884)+A(13885)+A(13892)+A(13893)+A(13899)+A(13900)+A(13905)+A(13906)& - &+A(13914)+A(13915)+A(13919)+A(13920)+A(13925)+A(13926)+A(13936)+A(13937)+A(13953)-A(13954)+A(13955)& - &+A(13959)+A(13960)+A(13974)+A(13975)+A(13994)+A(13995)+A(13998)+A(13999)+A(14002)+A(14003)+A(14009)& - &+A(14010)+A(14013)+A(14014)+A(14018)+A(14019)+A(14023)+A(14024)+A(14028)-A(14029)+A(14030)+A(14034)& - &+A(14035)+A(14038)+A(14039)+A(14042)+A(14043)+A(14049)+A(14053)+A(14054)+A(14072)+A(14074)+A(14075)& - &+A(14081)-A(14082)+A(14083)+A(14087)+A(14088)+A(14095)+A(14096)+A(14106)-A(14107)+A(14108)+A(14124)& - &+A(14125)+A(14129)+A(14130)+A(14143)+A(14144)+A(14148)+A(14149)+A(14159)+A(14160)+A(14168)+A(14169)& - &+A(14179)+A(14180)+A(14189)+A(14190)+A(14194)+A(14195)+A(14198)+A(14199)+A(14214)-A(14215)+A(14216)& - &+A(14220)+A(14221)+A(14227)+A(14228)+A(14238)+A(14239)+A(14245)+A(14246)+A(14253)-A(14254)+A(14255)& - &+A(14260)+A(14261)+A(14270)+A(14271)+A(14275)+A(14276)+A(14279)+A(14280)+A(14289)+A(14290)+A(14295)& - &+A(14296)+A(14303)+A(14304)+A(14312)+A(14313)+A(14319)+A(14320)+A(14326)+A(14327)+A(14333)-A(14334)& - &+A(14335)+A(14341)+A(14342)+A(14349)+A(14350)+A(14358)+A(14359)+A(14365)+A(14366)+A(14370)+A(14371)& - &+A(14375)+A(14376)+A(14381)+A(14382)+A(14385)-A(14386)+A(14387)+A(14390)+A(14391)+A(14394)+A(14395)& - &+A(14404)+A(14405)+A(14410)+A(14411)+A(14417)+A(14418)+A(14421)-A(14422)+A(14423)+A(14426)+A(14427)& - &+A(14440)+A(14441)+A(14453)+A(14454)+A(14462)+A(14463)+A(14468)-A(14469)+A(14470)+A(14479)+A(14480)& - &+A(14483)+A(14484)+A(14486)+A(14487)+A(14492)+A(14504)-A(14505)+A(14506)+A(14517)+A(14518)+A(14525)& - &+A(14526)+A(14531)+A(14532)+A(14535)+A(14536)+A(14543)+A(14544)+A(14551)+A(14552)+A(14556)+A(14557)& - &+A(14564)-A(14565)+A(14566)+A(14571)+A(14572)+A(14577)+A(14578)+A(14586)-A(14587)+A(14588)+A(14597)& - &+A(14598)+A(14603)+A(14604)+A(14613)+A(14614)+A(14618)+A(14619)+A(14623)-A(14624)+A(14625)+A(14634)& - &+A(14635)+A(14640)+A(14641)+A(14658)+A(14659)+A(14668)+A(14669)+A(14673)+A(14674)+A(14681)+A(14682)& - &+A(14689)-A(14690)+A(14691)+A(14697)-A(14698)+A(14699)+A(14705)-A(14706)+A(14707)+A(14711)+A(14712)& - &+A(14717)+A(14718)+A(14727)+A(14728)+A(14739)+A(14740)+A(14748)+A(14749)+A(14757)+A(14758)+A(14762)& - &+A(14763)+A(14765)+A(14766)+A(14772)+A(14773)+A(14780)+A(14781)+A(14786)+A(14787)+A(14802)+A(14803)& - &+A(14806)+A(14807)+A(14811)+A(14812)+A(14821)+A(14822)+A(14825)+A(14826)+A(14833)+A(14834)+A(14843)& - &+A(14844)+A(14847)+A(14848)+A(14851)+2*A(14853)-A(14854)+2*A(14855)+A(14856)+A(14859)+A(14860)+A(14878)& - &+A(14879)+A(14883)+A(14884)+A(14889)+A(14890)+A(14895)+A(14896)+A(14909)+A(14910)+A(14914)-A(14915)& - &+A(14916)+A(14920)+A(14921)+A(14926)+A(14931)+A(14932)+A(14945)+A(14946)+A(14952)+A(14953)+A(14957)& - &+A(14958)+A(14963)+A(14964)+A(14972)+A(14973)+A(14978)-A(14979)+A(14980)+A(14983)+A(14984)+A(14987)& - &+A(14988)+A(14993)+2*A(14994)+A(14995)+A(14997)+A(14998)+A(15001)+A(15002)+A(15006)-A(15007)+A(15008)& - &+A(15011)+A(15012)+A(15022)-A(15023)+A(15024)+A(15031)+A(15032)+A(15036)+A(15037)+A(15048)+A(15049)& - &+A(15061)+A(15062)+A(15076)+A(15077)+A(15096)+A(15097)+A(15108)+A(15109)+A(15122)+A(15123)+A(15133)& - &-A(15134)+A(15135)+A(15138)+A(15139)+A(15145)-A(15146)+A(15147)+A(15150)+A(15151)+A(15155)+A(15156)& - &+A(15166)+A(15167)+A(15172)+A(15173) - Vdot(5254) = -A(31)-A(32)-A(2171)-A(2177)-A(2457)-A(2471)-A(2606)-A(2622)-A(2665)-A(3007)-A(3037)-A(3059)-A(3112)& - &-A(3134)-A(3173)-A(4113)-A(4148)-A(4215)-A(4221)-A(4565)-A(4630)-A(4674)-A(5537)-A(5835)-A(5912)-A(5983)& - &-A(6696)-A(7098)-A(8507)-A(8527)-A(8542)-A(8564)-A(8584)-A(8737)-A(9176)-A(9236)-A(9262)-A(9323)-A(9329)& - &-A(9723)-A(9814)-A(9831)-A(10396)-A(10402)-A(10426)-A(10482)-A(10803)-A(10907)-A(11826)-A(12939) - Vdot(5255) = A(15)+A(16)+A(17)+A(18)-A(19)-A(20)-2*A(21)+A(24)-A(25)-A(26)-A(28)+A(33)+A(46)+A(47)+A(49)+A(51)+A(54)& - &+A(56)+A(60)+A(63)+A(66)+A(69)+A(72)+A(80)+A(82)+A(87)+A(88)+A(89)+2*A(96)+A(98)+A(99)+A(100)+A(106)& - &+A(111)+A(116)+A(120)+A(127)+A(130)+A(131)+2*A(146)+A(314)+A(316)+A(317)+A(319)+A(321)+A(324)+A(326)& - &+A(329)+A(331)+A(334)+A(336)+A(339)+A(341)+A(343)+A(345)+A(348)+A(350)+A(354)+A(356)+A(360)+A(361)+A(364)& - &+A(365)+A(370)+A(371)+A(375)+A(376)+A(380)+A(381)+A(385)+A(386)+A(389)+A(391)+A(396)+A(397)+A(415)+A(416)& - &+A(484)-A(485)-A(492)-A(499)-A(506)-A(513)-A(520)-A(527)-A(534)-A(540)-A(547)-A(555)-A(562)+A(570)-A(573)& - &-A(580)-A(589)-A(595)-A(602)-A(609)-A(616)-A(623)-A(630)-A(636)-A(643)-A(649)-A(656)-A(662)-A(663)-A(664)& - &+A(671)+2*A(673)+A(674)+A(675)+2*A(678)-A(679)-A(685)+A(691)+2*A(692)+2*A(696)+A(699)-A(700)-A(707)-A(714)& - &-A(715)-A(723)-A(729)-A(730)-A(731)-A(737)-A(744)-A(745)-A(746)-A(752)-A(759)-A(766)-A(767)-A(768)-A(774)& - &-A(781)-A(786)-A(793)-A(794)-A(795)-A(801)-A(808)-A(815)-A(816)+A(818)+A(820)+A(822)-A(823)-A(830)-A(831)& - &+2*A(839)+2*A(845)+A(846)-A(849)-A(850)-A(851)+A(859)+A(864)-A(865)-A(872)-A(879)-A(880)+A(882)+A(884)& - &+A(886)-A(887)-A(893)+A(901)-A(903)-A(910)-A(916)-A(923)-A(930)-A(936)-A(943)-A(950)-A(957)-A(964)-A(971)& - &-A(977)-A(984)-A(991)-A(998)-A(1005)-A(1012)-A(1019)-A(1026)-A(1032)-A(1039)-A(1046)-A(1052)-A(1059)& - &-A(1066)-A(1073)-A(1079)-A(1086)-A(1093)-A(1100)-A(1106)-A(1113)-A(1119)-A(1126)-A(1133)-A(1140)-A(1147)& - &-A(1154)-A(1161)+A(1169)-A(1170)-A(1176)+A(1184)-A(1186)-A(1192)+A(1200)-A(1202)-A(1209)-A(1215)-A(1220)& - &+A(1227)-A(1230)-A(1236)+A(1245)-A(1246)-A(1253)-A(1260)-A(1266)+A(1274)-A(1276)-A(1283)-A(1289)-A(1296)& - &-A(1302)+A(1310)-A(1312)-A(1319)-A(1325)-A(1334)-A(1340)+A(1349)-A(1350)-A(1357)-A(1364)-A(1370)+A(1379)& - &-A(1380)-A(1387)-A(1394)-A(1400)+A(1406)-A(1407)+A(1418)+2*A(1419)+A(1423)-A(1425)+A(1436)-A(1438)+A(1449)& - &+A(1450)-A(1451)-A(1458)+2*A(1468)+A(1469)+A(1474)-A(1476)-A(1483)+A(1494)+A(1495)+A(1500)-A(1502)-A(1509)& - &+A(1519)+A(1520)+A(1525)-A(1527)+A(1539)-A(1540)+A(1551)+A(1552)-A(1553)+A(1565)-A(1566)+A(1577)+A(1578)& - &-A(1579)+A(1590)-A(1591)+A(1602)+A(1603)-A(1604)+A(1614)-A(1617)+A(1627)-A(1628)-A(1635)+A(1644)+A(1651)& - &+A(1652)-A(1653)-A(1660)+A(1675)+A(1676)-A(1677)-A(1684)+2*A(1694)+A(1695)+A(1700)-A(1702)+A(1713)+A(1714)& - &+A(1719)-A(1721)+A(1732)+A(1737)-A(1739)-A(1746)+A(1757)+A(1758)-A(1763)-A(1774)+A(1785)+A(1786)-A(1787)& - &+A(1793)-A(1795)-A(1799)-A(1800)-A(1801)-A(1807)-A(1811)-A(1817)+A(1826)+A(1829)+2*A(1830)-A(1831)-A(1838)& - &-A(1845)-A(1852)+A(1861)+A(1863)+A(1869)+A(1873)-A(1880)+A(1892)-A(1902)-A(1903)-A(1910)-A(1911)-A(1918)& - &-A(1925)-A(1926)-A(1932)-A(1939)-A(1945)-A(1951)-A(1958)-A(1964)-A(1970)-A(1977)-A(1982)-A(1989)-A(1996)& - &-A(2003)-A(2009)-A(2016)-A(2022)-A(2028)-A(2035)-A(2041)-A(2047)-A(2054)-A(2061)-A(2066)-A(2076)-A(2082)& - &-A(2089)-A(2095)-A(2100)+A(2112)-A(2116)-A(2122)-A(2129)-A(2135)-A(2144)-A(2150)-A(2157)-A(2163)+A(2186)& - &-A(2187)-A(2193)-A(2200)+A(2210)+A(2211)+A(2217)+A(2218)+A(2221)+A(2225)+A(2230)+A(2236)+A(2237)+A(2238)& - &+A(2239)+A(2246)+A(2247)+A(2248)+A(2253)+A(2255)+A(2256)+A(2257)+A(2261)+A(2262)+A(2268)+A(2269)+A(2277)& - &+A(2284)+A(2285)+A(2287)+A(2293)+A(2294)+A(2295)+A(2296)-A(2297)-A(2298)-A(2299)+A(2309)+A(2310)+A(2312)& - &+A(2316)+A(2317)-A(2318)-A(2319)-A(2320)-A(2326)+A(2337)+A(2342)+A(2343)+A(2344)+A(2352)+A(2353)+A(2360)& - &+A(2361)+A(2362)+A(2368)+2*A(2371)+A(2378)+A(2379)+A(2381)+A(2384)+A(2387)+A(2391)+A(2393)+A(2394)+A(2400)& - &+A(2403)+A(2404)+A(2408)+A(2410)+A(2411)+2*A(2412)+A(2418)+A(2422)-A(2429)-A(2430)+A(2431)+A(2433)+A(2434)& - &-A(2437)+A(2438)+A(2440)+A(2441)+A(2445)-A(2461)-A(2462)+A(2463)+A(2465)+A(2466)+A(2477)+A(2478)+A(2479)& - &+A(2480)+A(2484)+2*A(2486)+A(2492)+A(2497)+A(2498)+A(2517)+A(2521)+A(2525)+A(2527)+A(2534)+A(2545)+A(2548)& - &+A(2550)+A(2552)+A(2558)+A(2569)+A(2570)+A(2578)+A(2580)+A(2581)+A(2588)+A(2589)+2*A(2594)+2*A(2597)& - &+A(2598)+A(2599)+A(2600)+A(2624)+A(2627)+A(2629)+A(2630)+2*A(2631)+A(2632)+A(2634)+A(2636)+A(2638)+2& - &*A(2640)+A(2642)+A(2643)+A(2652)+A(2655)+A(2661)+A(2670)+A(2671)+2*A(2672)+2*A(2673)+A(2677)+A(2679)& - &+A(2681)+A(2688)+A(2694)+A(2705)+A(2712)+A(2713)+A(2719)+A(2725)+A(2733)+A(2745)+A(2748)+A(2756)+A(2759)& - &+A(2766)+A(2771)+A(2773)+A(2780)+A(2783)+A(2790)+A(2791)+A(2798)+A(2804)+A(2818)+A(2821)+A(2828)+A(2832)& - &+A(2844)+A(2846)+A(2853)+A(2856)+A(2863)+A(2864)+A(2867)+A(2880)+A(2881)+A(2882)+A(2892)+A(2900)+A(2914)& - &+A(2928)+A(2936)+A(2944)+A(2952)+A(2960)+A(2966)+A(2971)+A(2978)+A(2987)+A(2993)+A(2999)+A(3003)+A(3013)& - &+A(3016)+A(3019)+A(3029)+A(3032)+A(3043)+A(3051)+A(3065)+A(3068)+A(3072)+2*A(3075)+A(3080)+A(3086)+A(3094)& - &+A(3100)+A(3105)+A(3117)+A(3126)+A(3140)+A(3143)+A(3147)+A(3157)+A(3160)+A(3166)+A(3179)+A(3182)+A(3186)+2& - &*A(3187)+A(3194)+A(3202)+A(3209)+A(3210)+A(3216)+A(3217)+A(3218)+A(3225)+A(3231)+A(3232)+A(3233)+A(3235)& - &-A(3236)-A(3237)-A(3238)+A(3246)+2*A(3249)+A(3250)-A(3251)-A(3258)+A(3269)-A(3272)-A(3280)+A(3289)+A(3290)& - &-A(3291)-A(3296)+A(3308)+A(3309)+A(3310)+A(3311)+A(3312)+A(3315)+A(3317)-A(3318)-A(3319)-A(3320)+A(3328)& - &-A(3330)-A(3337)+A(3347)+A(3350)+A(3351)+A(3352)+A(3357)+A(3358)+A(3359)+A(3360)+A(3361)+A(3362)-A(3364)& - &-A(3365)-A(3366)+A(3374)-A(3375)-A(3382)-A(3387)-A(3394)+A(3406)+A(3409)+A(3410)+A(3411)+A(3416)+A(3417)& - &+A(3418)+A(3419)+A(3420)+A(3421)+A(3424)+A(3425)-A(3426)-A(3427)-A(3428)+A(3436)-A(3437)-A(3444)-A(3452)& - &-A(3457)+A(3469)+A(3472)+A(3473)+A(3474)+A(3479)+A(3480)+A(3481)-A(3483)-A(3484)-A(3485)-A(3491)-A(3498)& - &-A(3503)-A(3510)+A(3520)+A(3523)+A(3526)-A(3529)-A(3534)+A(3544)+A(3545)+A(3546)+A(3547)+A(3550)+A(3552)& - &-A(3553)-A(3554)-A(3555)+A(3563)-A(3565)-A(3572)+A(3582)+A(3583)-A(3586)-A(3593)+A(3603)+A(3604)+A(3605)& - &+A(3606)+A(3609)+A(3611)-A(3612)-A(3613)-A(3614)+A(3622)-A(3624)-A(3631)-A(3645)-A(3650)+A(3660)+A(3661)& - &+A(3662)+A(3663)+A(3666)+A(3668)-A(3669)-A(3670)-A(3671)+A(3680)-A(3681)-A(3688)+A(3698)+A(3701)+A(3702)& - &+A(3703)-A(3704)-A(3711)+A(3723)+A(3724)+A(3725)+A(3726)+A(3727)+A(3728)+A(3729)+A(3731)+A(3735)-A(3736)& - &+A(3747)+A(3750)+A(3751)+A(3752)+A(3757)+A(3758)+A(3759)+A(3760)+A(3761)+A(3762)-A(3764)-A(3771)-A(3779)& - &-A(3780)-A(3781)-A(3787)-A(3794)+A(3803)+A(3806)+A(3807)+A(3808)+A(3813)+A(3814)+A(3815)+A(3817)-A(3818)& - &-A(3823)-A(3824)-A(3829)-A(3830)-A(3831)+A(3840)-A(3843)-A(3849)+A(3859)+A(3860)+A(3867)+A(3868)+A(3869)& - &+A(3870)+A(3871)+A(3872)-A(3874)-A(3875)-A(3876)+A(3884)-A(3885)-A(3892)-A(3897)-A(3904)+A(3916)+A(3917)& - &+A(3918)+A(3919)+A(3920)+A(3923)-A(3924)-A(3925)-A(3926)-A(3932)-A(3939)-A(3947)-A(3952)+A(3964)+A(3965)& - &+A(3966)+A(3967)-A(3969)-A(3970)-A(3971)-A(3977)-A(3984)-A(3989)-A(3996)+A(4008)+A(4009)+A(4016)+A(4017)& - &+A(4018)+A(4019)+A(4022)-A(4023)-A(4024)-A(4025)-A(4033)-A(4039)-A(4045)-A(4046)-A(4051)+A(4060)+A(4061)& - &-A(4064)-A(4065)-A(4070)+A(4079)+A(4080)+A(4083)-A(4084)-A(4085)-A(4086)+A(4095)-A(4096)-A(4102)+A(4118)& - &+A(4128)+A(4130)+A(4136)+2*A(4139)+A(4153)+A(4154)+A(4155)+2*A(4156)+A(4165)+A(4166)+A(4172)+A(4175)+2& - &*A(4176)+A(4183)+A(4188)+A(4195)-A(4198)-A(4206)-A(4223)-A(4229)+A(4234)-A(4239)-A(4248)+A(4253)-A(4258)& - &+A(4273)+2*A(4276)+A(4277)-A(4278)-A(4284)-A(4289)-A(4290)-A(4295)-A(4300)+A(4305)-A(4308)-A(4315)-A(4322)& - &-A(4330)+A(4344)+A(4345)+A(4354)+A(4364)+A(4367)+A(4378)+A(4392)+A(4404)+A(4424)+A(4434)+A(4435)+A(4447)& - &+A(4455)+A(4460)+A(4475)+A(4484)+A(4485)+A(4500)+A(4501)+A(4516)+A(4517)+A(4523)+A(4524)+A(4527)+A(4528)& - &+A(4534)+A(4537)+A(4546)-A(4551)-A(4556)-A(4568)+A(4577)+A(4578)+A(4581)+A(4599)-A(4600)-A(4607)-A(4614)& - &-A(4620)+A(4634)+A(4635)+A(4638)+2*A(4641)-A(4652)-A(4658)-A(4664)+A(4680)+A(4681)+A(4684)+A(4689)+A(4690)& - &+A(4704)-A(4711)-A(4717)-A(4726)-A(4733)-A(4739)+A(4749)+A(4750)+A(4753)+A(4758)+A(4759)-A(4760)-A(4761)& - &-A(4762)-A(4768)-A(4769)-A(4770)-A(4776)-A(4783)-A(4784)+A(4803)+A(4807)-A(4808)-A(4815)-A(4816)-A(4822)& - &+A(4823)+A(4825)+A(4826)-A(4827)-A(4834)-A(4835)-A(4836)+A(4845)+A(4848)-A(4849)+A(4853)+A(4854)+A(4855)& - &+A(4857)+A(4861)-A(4865)-A(4866)+A(4871)+A(4872)+A(4877)-A(4878)+A(4880)+A(4882)+A(4883)-A(4884)-A(4885)& - &-A(4890)-A(4891)-A(4892)-A(4898)-A(4899)-A(4900)-A(4906)-A(4912)-A(4913)-A(4914)-A(4920)-A(4927)-A(4928)& - &-A(4929)-A(4936)+A(4937)+A(4939)+A(4940)+A(4941)+A(4942)-A(4945)-A(4946)+A(4948)+A(4949)+A(4950)+A(4951)+2& - &*A(4953)+A(4954)+A(4958)-A(4959)-A(4960)-A(4961)-A(4967)-A(4968)+A(4970)+A(4972)+A(4974)-A(4975)+A(4977)& - &+A(4979)+A(4980)+A(4982)-A(4983)+A(4985)+A(4987)+A(4988)-A(4989)-A(4996)-A(5003)-A(5010)-A(5011)-A(5016)& - &-A(5023)-A(5024)-A(5029)-A(5036)-A(5043)-A(5050)-A(5051)-A(5056)-A(5063)-A(5068)-A(5075)-A(5082)-A(5089)& - &-A(5090)-A(5095)-A(5102)-A(5109)-A(5114)-A(5121)-A(5122)-A(5127)-A(5134)-A(5135)-A(5136)-A(5142)-A(5149)& - &-A(5150)-A(5151)-A(5157)-A(5164)-A(5168)-A(5174)-A(5178)-A(5185)-A(5192)-A(5196)-A(5203)-A(5210)-A(5214)& - &-A(5221)-A(5225)-A(5232)-A(5236)-A(5243)-A(5247)-A(5254)-A(5258)-A(5265)-A(5266)-A(5267)-A(5273)-A(5274)& - &-A(5275)+A(5281)-A(5282)+A(5288)-A(5290)+A(5291)+A(5293)+A(5294)-A(5295)-A(5296)-A(5297)-A(5303)-A(5310)& - &-A(5311)-A(5312)+A(5318)-A(5319)-A(5324)+A(5325)+A(5327)+A(5328)-A(5329)-A(5333)-A(5337)-A(5338)-A(5339)& - &+A(5345)-A(5346)-A(5352)-A(5353)-A(5354)+A(5360)-A(5361)+A(5363)+A(5365)+A(5366)-A(5367)-A(5371)-A(5372)& - &-A(5373)-A(5379)-A(5385)-A(5392)+A(5393)+A(5395)+A(5396)-A(5397)-A(5403)-A(5412)-A(5413)-A(5414)+A(5421)& - &-A(5426)-A(5427)-A(5428)-A(5434)+A(5443)+A(5445)+A(5448)+A(5449)+A(5452)+A(5453)+A(5455)+A(5456)+2*A(5457)& - &-A(5458)+A(5471)+A(5474)+A(5477)+A(5478)+A(5482)+A(5483)+A(5490)-A(5493)+A(5499)+A(5507)+A(5508)+A(5515)& - &-A(5520)-A(5521)-A(5522)+A(5529)+A(5543)+A(5545)+A(5547)+A(5548)+A(5549)+A(5551)+A(5553)+A(5555)+A(5556)+2& - &*A(5557)-A(5558)-A(5559)-A(5560)+A(5567)+A(5573)+A(5579)-A(5584)-A(5585)-A(5586)-A(5592)+2*A(5599)+A(5601)& - &+A(5602)+2*A(5603)+A(5604)+A(5605)+2*A(5607)+2*A(5612)+A(5613)+A(5619)-A(5622)+A(5628)+A(5629)+A(5633)& - &-A(5634)-A(5635)-A(5636)-A(5642)+A(5651)-A(5659)-A(5660)+A(5666)-A(5671)-A(5672)-A(5673)-A(5679)+A(5687)& - &+A(5689)+A(5691)+A(5692)+A(5693)+A(5699)+A(5700)-A(5703)+A(5709)+A(5710)+A(5717)+A(5720)-A(5721)-A(5722)& - &-A(5723)-A(5729)+A(5735)+A(5737)+A(5745)+A(5747)+A(5749)+A(5750)+A(5751)+A(5753)+A(5755)+A(5756)+A(5758)+2& - &*A(5759)+A(5765)-A(5768)+A(5774)+A(5775)+A(5779)-A(5780)-A(5781)-A(5782)-A(5790)+A(5796)+A(5797)+A(5804)& - &+A(5807)+A(5813)-A(5818)-A(5819)-A(5820)+A(5827)+A(5841)+A(5843)+A(5845)+A(5846)+A(5847)+A(5849)+A(5851)& - &+A(5852)+2*A(5853)+A(5855)-A(5856)+A(5867)-A(5870)+A(5876)+A(5877)+A(5881)+A(5884)+A(5890)-A(5895)-A(5896)& - &-A(5897)+A(5904)+A(5918)+A(5920)+A(5922)+A(5923)+A(5924)+A(5926)+A(5928)+A(5929)+2*A(5930)+A(5932)-A(5937)& - &+A(5943)+A(5944)+A(5951)+A(5954)+A(5960)+A(5962)-A(5966)-A(5967)-A(5968)+A(5975)+A(5989)+A(5991)+A(5993)& - &+A(5994)+A(5995)+A(5998)+A(5999)+A(6000)+2*A(6001)+A(6003)-A(6004)-A(6005)-A(6006)+A(6017)-A(6020)+A(6026)& - &+A(6030)+A(6034)-A(6042)-A(6043)-A(6044)-A(6050)+A(6057)+A(6059)+A(6062)+A(6063)+A(6064)-A(6065)-A(6066)& - &-A(6067)-A(6073)+A(6080)+A(6087)-A(6090)+A(6096)+A(6097)+A(6101)+A(6103)+A(6106)+A(6112)+A(6114)+A(6117)& - &+A(6118)+A(6120)+A(6125)+A(6126)-A(6127)-A(6128)-A(6129)-A(6135)-A(6139)-A(6140)+A(6151)+A(6154)+A(6157)& - &-A(6162)-A(6163)-A(6164)-A(6170)+A(6177)+A(6179)+A(6181)+A(6185)+A(6187)+A(6188)+A(6190)-A(6192)+A(6199)& - &-A(6204)-A(6205)-A(6206)-A(6212)+2*A(6219)+A(6221)+A(6222)+2*A(6223)+A(6224)+A(6225)+A(6231)+A(6232)& - &+A(6238)-A(6241)+A(6247)+A(6248)+A(6252)+A(6254)+A(6262)+A(6264)+A(6266)+A(6267)+A(6268)+A(6275)+A(6277)& - &+A(6278)-A(6281)+A(6287)+A(6288)+A(6295)+A(6298)+A(6302)+A(6303)+A(6305)+A(6313)+A(6315)+A(6317)+A(6318)& - &+A(6319)+A(6321)+A(6322)+A(6324)+A(6325)+A(6326)+2*A(6327)+A(6333)-A(6336)+A(6342)+A(6343)+A(6347)-A(6348)& - &+A(6359)+A(6365)+A(6373)+A(6375)+A(6377)+A(6381)+A(6383)+A(6384)+A(6385)+A(6386)+A(6392)+A(6395)-A(6397)& - &-A(6403)-A(6404)+A(6414)+A(6417)-A(6419)-A(6420)+A(6426)-A(6431)-A(6432)-A(6433)-A(6439)-A(6444)+A(6453)& - &+A(6455)+A(6457)+A(6462)+A(6463)+A(6464)+A(6465)-A(6466)-A(6472)-A(6473)+A(6475)+A(6477)+A(6479)+A(6481)& - &-A(6484)-A(6490)-A(6491)+A(6493)+A(6495)+A(6497)+2*A(6500)+A(6501)-A(6502)+A(6511)-A(6513)-A(6520)-A(6527)& - &+A(6528)+A(6530)+A(6531)+A(6532)+A(6534)-A(6537)-A(6544)-A(6545)+A(6547)+A(6549)+A(6551)+A(6553)-A(6556)& - &+A(6565)+A(6566)+A(6567)+A(6569)+A(6575)+A(6583)+A(6589)+A(6590)-A(6595)+2*A(6608)+A(6609)+A(6613)+A(6617)& - &+A(6618)+A(6627)+A(6634)+A(6635)-A(6636)+A(6647)+A(6649)+A(6650)+A(6654)+A(6666)-A(6669)+A(6675)-A(6677)& - &-A(6683)+A(6685)+A(6687)+A(6688)+A(6703)+A(6712)+A(6720)+A(6723)+A(6728)-A(6730)-A(6737)-A(6744)-A(6750)& - &-A(6751)-A(6760)-A(6761)-A(6768)-A(6769)-A(6776)-A(6777)-A(6784)-A(6785)-A(6786)-A(6792)-A(6798)-A(6804)& - &-A(6810)-A(6814)-A(6820)-A(6826)-A(6827)-A(6828)-A(6834)-A(6838)-A(6842)-A(6848)-A(6855)-A(6862)-A(6866)& - &-A(6872)-A(6876)-A(6882)-A(6883)-A(6888)-A(6892)-A(6896)-A(6902)-A(6903)-A(6904)-A(6910)-A(6916)+A(6922)& - &+A(6926)-A(6927)-A(6931)-A(6932)-A(6933)+A(6943)+A(6950)+A(6951)+A(6952)+A(6953)+A(6955)+A(6962)+A(6963)& - &+A(6966)-A(6968)-A(6975)-A(6976)+A(6986)+A(6988)+A(6995)+A(7006)-A(7007)-A(7014)+A(7016)+A(7018)+A(7019)& - &+A(7026)+A(7033)+A(7034)+A(7040)+A(7041)+A(7042)+A(7048)+A(7051)-A(7053)-A(7054)-A(7055)-A(7066)-A(7067)& - &-A(7068)-A(7074)+A(7087)-A(7088)-A(7100)-A(7109)+A(7121)+A(7122)+A(7128)+A(7129)+A(7130)-A(7134)+A(7151)& - &+A(7152)+A(7155)+A(7156)+A(7158)+A(7159)+2*A(7160)+A(7167)+A(7168)+A(7190)+A(7191)+A(7192)+A(7193)+A(7202)& - &+A(7203)+2*A(7204)+A(7212)+A(7219)+2*A(7220)+A(7223)-A(7229)-A(7230)-A(7235)-A(7241)-A(7245)+A(7251)& - &+A(7257)+A(7270)+A(7276)+A(7278)+A(7289)+A(7290)+A(7293)+A(7294)+A(7301)+A(7304)-A(7306)-A(7307)-A(7308)& - &+A(7315)+A(7316)+A(7319)+A(7322)+A(7325)+A(7329)+A(7332)+A(7333)+A(7341)+A(7344)+A(7345)+A(7351)+A(7352)& - &+A(7360)+A(7361)+A(7362)+A(7363)+A(7374)+A(7375)+A(7379)+A(7388)+A(7389)+A(7395)+A(7396)+A(7398)+A(7404)& - &+A(7407)+A(7418)+A(7419)+A(7421)+A(7427)+A(7434)+A(7438)+A(7444)+A(7445)+A(7449)+A(7454)+A(7457)+A(7468)& - &+A(7469)+A(7478)+A(7481)+A(7485)+A(7492)+A(7493)+A(7496)+A(7497)+A(7507)+A(7508)+A(7521)+A(7522)+A(7523)& - &+A(7535)+A(7536)+A(7538)+A(7546)+A(7547)+A(7555)+A(7564)+A(7565)+A(7566)+A(7567)+A(7576)+A(7577)+A(7578)& - &+A(7585)+A(7586)+A(7589)+A(7597)+A(7598)+A(7601)+A(7609)+A(7610)+A(7613)+A(7621)+A(7622)+A(7625)+A(7633)& - &+A(7634)+A(7637)+A(7646)+A(7662)+A(7665)+A(7679)+A(7689)+A(7691)+A(7699)+A(7714)+A(7721)+A(7733)+A(7737)& - &+A(7738)+A(7741)+A(7742)+A(7751)+A(7757)+A(7760)-A(7762)-A(7768)+2*A(7775)+2*A(7777)+A(7779)+A(7780)& - &+A(7784)+A(7791)+A(7792)+A(7793)+2*A(7794)+A(7797)+A(7799)+A(7800)+A(7801)+A(7802)+2*A(7803)-A(7808)& - &+A(7815)-A(7824)+2*A(7829)-A(7830)-A(7831)-A(7832)-A(7840)-A(7845)-A(7851)-A(7857)+A(7863)+A(7868)-A(7875)& - &-A(7876)-A(7877)-A(7887)-A(7892)-A(7896)-A(7902)+A(7908)+A(7914)+A(7917)+2*A(7920)+A(7921)-A(7932)-A(7944)& - &-A(7949)-A(7953)-A(7959)-A(7964)-A(7968)-A(7972)+A(7977)+A(7978)+A(7981)+A(7985)+A(7992)+A(7993)-A(8002)& - &+A(8006)+A(8007)-A(8016)-A(8030)+A(8044)-A(8049)+2*A(8054)-A(8055)-A(8061)-A(8065)-A(8071)+A(8077)+A(8081)& - &+A(8085)+A(8087)+2*A(8088)-A(8089)+A(8098)+2*A(8100)-A(8109)+2*A(8114)+A(8117)-A(8119)-A(8125)-A(8129)& - &-A(8135)+A(8142)+A(8145)+A(8149)+A(8151)+2*A(8152)-A(8153)-A(8157)+2*A(8168)-A(8173)+2*A(8178)-A(8179)& - &-A(8185)-A(8189)-A(8195)+A(8201)+A(8205)+A(8209)+A(8211)+2*A(8212)-A(8213)+A(8223)-A(8230)-A(8234)-A(8235)& - &-A(8236)-A(8242)-A(8247)+A(8252)-A(8253)-A(8258)-A(8262)-A(8267)+A(8273)+A(8281)-A(8292)+A(8298)-A(8307)& - &+A(8312)+A(8329)+A(8338)+A(8339)+A(8346)+A(8347)+A(8349)+A(8351)+A(8359)+A(8360)+A(8362)+2*A(8363)-A(8372)& - &+A(8376)-A(8388)-A(8392)-A(8406)+A(8414)+A(8415)+A(8417)-A(8418)-A(8419)-A(8420)-A(8426)-A(8431)-A(8435)& - &-A(8441)+A(8446)+A(8447)+A(8448)+A(8453)+A(8454)+A(8456)-A(8459)+A(8467)+A(8468)+A(8474)+A(8481)+A(8482)& - &+A(8483)+2*A(8484)+A(8496)+A(8497)+A(8498)+A(8499)+A(8500)+2*A(8511)+A(8513)+2*A(8514)+A(8515)+2*A(8516)& - &+A(8517)+A(8518)+A(8519)+A(8520)+A(8533)+2*A(8534)+A(8535)+2*A(8536)+A(8548)+A(8549)+A(8550)+A(8555)& - &+A(8557)+A(8570)+A(8572)+A(8574)+A(8575)+A(8576)+A(8577)+A(8588)+A(8592)-A(8593)+A(8601)+A(8605)+A(8608)& - &+A(8622)+A(8623)-A(8626)-A(8627)+A(8628)+A(8630)+A(8631)+A(8632)-A(8634)+A(8646)-A(8649)-A(8656)+A(8663)& - &-A(8664)+A(8672)+A(8678)+A(8683)-A(8685)+A(8689)+A(8690)-A(8691)-A(8692)-A(8693)+A(8697)-A(8700)-A(8705)& - &-A(8714)-A(8720)+A(8725)+A(8730)+A(8731)+A(8732)+A(8733)+A(8740)+A(8741)+A(8743)+A(8746)+A(8750)-A(8753)& - &+A(8766)+A(8767)+A(8768)+A(8769)+A(8775)+A(8778)+A(8779)+A(8786)+A(8795)-A(8796)-A(8797)+A(8808)+A(8809)& - &+A(8810)+A(8812)+A(8815)+A(8821)+A(8831)+A(8835)+A(8844)+A(8846)+A(8847)+A(8855)+A(8858)+A(8864)+A(8865)& - &+A(8866)+A(8890)+A(8891)+A(8898)+A(8903)+A(8904)+A(8905)+A(8906)+A(8907)+A(8911)+A(8916)+A(8918)+A(8928)& - &+A(8930)+A(8931)+A(8945)+A(8946)+A(8947)+A(8956)+A(8959)+A(8961)+A(8966)+A(8968)-A(8972)-A(8985)-A(8991)& - &-A(8992)-A(8993)-A(8999)-A(9000)-A(9001)-A(9007)-A(9011)-A(9016)-A(9017)-A(9022)-A(9026)+A(9036)+A(9037)& - &-A(9042)-A(9048)-A(9055)-A(9063)+A(9075)+A(9077)-A(9080)+A(9089)-A(9090)+A(9102)-A(9103)-A(9104)-A(9105)& - &-A(9111)-A(9112)-A(9113)-A(9119)-A(9125)-A(9126)-A(9131)-A(9135)-A(9143)-A(9152)-A(9158)-A(9178)-A(9184)& - &-A(9185)-A(9186)-A(9192)-A(9198)-A(9204)-A(9210)+A(9220)+A(9221)+A(9225)+A(9226)-A(9227)+A(9241)+A(9242)& - &-A(9243)-A(9244)-A(9245)-A(9251)-A(9252)-A(9253)-A(9264)+A(9273)+A(9274)-A(9275)-A(9281)+A(9288)-A(9291)& - &-A(9297)-A(9304)-A(9308)+A(9314)-A(9315)+A(9338)-A(9339)-A(9345)-A(9352)+A(9354)+A(9356)+A(9357)-A(9358)& - &+A(9360)+A(9362)+A(9363)+A(9371)+A(9374)+A(9375)-A(9382)-A(9383)-A(9384)-A(9390)+A(9395)+A(9397)+A(9400)& - &+A(9401)+A(9403)+A(9404)+A(9407)-A(9410)-A(9411)-A(9412)+A(9418)-A(9421)-A(9422)-A(9427)+A(9434)-A(9437)& - &-A(9438)-A(9439)-A(9445)+A(9451)-A(9455)-A(9462)-A(9463)-A(9464)-A(9470)-A(9476)-A(9477)-A(9482)-A(9483)& - &-A(9484)-A(9490)-A(9497)+A(9504)-A(9507)-A(9508)-A(9509)-A(9515)-A(9521)-A(9527)-A(9532)-A(9533)-A(9534)& - &-A(9540)-A(9547)-A(9548)-A(9549)-A(9555)-A(9556)-A(9557)+A(9565)-A(9570)-A(9574)-A(9578)-A(9585)+A(9593)& - &-A(9598)-A(9602)-A(9609)-A(9610)-A(9611)-A(9617)-A(9626)-A(9630)-A(9639)-A(9643)-A(9647)-A(9656)-A(9660)& - &-A(9664)-A(9673)-A(9677)-A(9681)-A(9690)-A(9694)-A(9703)+A(9711)+A(9712)+A(9713)+A(9714)+A(9719)+A(9728)& - &+A(9729)+A(9730)+A(9732)+2*A(9733)-A(9736)-A(9740)-A(9744)-A(9750)-A(9754)-A(9760)-A(9764)-A(9772)-A(9776)& - &-A(9780)+A(9787)+2*A(9789)+A(9793)+2*A(9795)+A(9799)+A(9800)+2*A(9801)+A(9802)+2*A(9803)-A(9807)+A(9819)& - &+A(9823)+A(9824)+A(9836)+A(9838)+A(9848)+A(9851)-A(9855)-A(9859)-A(9863)-A(9869)-A(9873)+A(9880)+A(9882)& - &+A(9883)+2*A(9884)+A(9894)+A(9897)+A(9908)-A(9913)-A(9917)-A(9921)-A(9926)-A(9930)+A(9942)+A(9943)+A(9944)& - &+A(9946)-A(9950)-A(9954)-A(9958)-A(9963)-A(9967)-A(9975)-A(9979)-A(9983)-A(9989)-A(9993)+A(10002)+A(10003)& - &+A(10005)+A(10006)+2*A(10007)+A(10011)+A(10017)+A(10018)+A(10019)-A(10020)+A(10022)+A(10024)+A(10025)& - &+A(10028)-A(10029)-A(10035)-A(10039)-A(10043)-A(10049)-A(10053)+A(10061)+2*A(10066)+A(10067)+A(10068)& - &+A(10072)+A(10078)+A(10079)+A(10080)-A(10081)+A(10083)+A(10085)+A(10086)+A(10089)+A(10093)+A(10096)& - &-A(10099)-A(10103)-A(10107)-A(10113)-A(10117)+A(10125)+2*A(10128)+A(10131)+A(10132)+A(10136)+A(10142)& - &+A(10143)+A(10144)-A(10145)+A(10147)+A(10149)+A(10150)+A(10153)-A(10158)-A(10162)-A(10166)+A(10179)& - &+A(10181)+A(10187)+A(10198)+A(10205)+A(10207)-A(10210)-A(10214)-A(10218)-A(10223)-A(10227)-A(10234)& - &-A(10240)-A(10244)-A(10248)-A(10254)-A(10258)-A(10266)-A(10270)-A(10274)-A(10279)-A(10283)+A(10292)& - &+A(10293)+A(10294)+A(10295)+A(10296)+A(10297)-A(10300)-A(10304)-A(10308)-A(10313)-A(10317)+A(10332)& - &+A(10334)+A(10344)+A(10347)-A(10352)+A(10356)-A(10359)+A(10361)+A(10363)+A(10364)+A(10366)+A(10368)& - &+A(10371)+A(10373)-A(10375)-A(10376)+A(10381)+A(10386)-A(10407)+A(10411)+A(10412)+A(10418)+A(10419)& - &+A(10420)+A(10430)+A(10433)+A(10434)+A(10436)+A(10438)+A(10439)+A(10443)+A(10444)+A(10449)-A(10454)+2& - &*A(10459)+A(10461)+A(10467)+A(10469)+A(10471)+A(10474)+A(10476)+A(10477)+A(10484)+A(10488)+A(10489)& - &+A(10493)+A(10494)+A(10496)+A(10499)+2*A(10501)-A(10503)-A(10504)+A(10506)+A(10509)+A(10516)+A(10519)& - &-A(10525)-A(10526)-A(10531)-A(10532)-A(10539)+A(10549)+A(10550)+A(10551)+A(10552)-A(10556)-A(10560)& - &-A(10568)-A(10569)-A(10570)-A(10576)-A(10577)-A(10578)-A(10584)-A(10588)-A(10592)-A(10593)-A(10594)& - &-A(10600)-A(10604)+A(10614)-A(10615)+A(10625)+A(10629)+A(10637)+A(10647)+A(10658)+A(10666)+A(10673)& - &+A(10678)+A(10682)+A(10683)-A(10684)-A(10685)-A(10686)-A(10698)-A(10708)-A(10713)-A(10714)-A(10715)& - &-A(10721)+A(10731)+A(10732)-A(10733)+A(10740)-A(10742)-A(10748)+A(10755)+A(10772)+A(10779)+A(10782)& - &-A(10788)-A(10794)+A(10809)+A(10810)+A(10813)+A(10820)+A(10831)+A(10832)+A(10838)+A(10839)+A(10840)& - &+A(10843)+A(10844)+A(10846)+A(10847)+2*A(10848)+A(10855)+A(10860)+A(10878)+A(10884)-A(10889)-A(10890)& - &-A(10891)-A(10897)-A(10909)+A(10918)+A(10926)-A(10939)+A(10949)+A(10950)+A(10953)+A(10955)+A(10959)& - &+A(10963)-A(10966)-A(10967)-A(10968)-A(10974)-A(10978)-A(10982)+A(10993)-A(10996)-A(10997)+A(10999)& - &+A(11001)+A(11003)-A(11004)-A(11005)-A(11006)-A(11017)-A(11018)-A(11019)+A(11033)+A(11034)+A(11035)& - &-A(11036)-A(11037)-A(11038)+A(11051)-A(11054)-A(11055)-A(11056)-A(11062)+A(11072)+A(11073)+A(11085)& - &+A(11086)+A(11087)+A(11101)+A(11102)+A(11105)+A(11106)+A(11111)+A(11112)+A(11113)+A(11115)-A(11116)& - &-A(11117)-A(11118)+A(11133)+A(11134)+A(11139)+A(11140)+A(11141)+A(11147)+A(11159)+A(11160)+A(11161)& - &-A(11174)-A(11181)-A(11187)+A(11204)+A(11207)+A(11208)+A(11216)+A(11217)-A(11218)-A(11224)-A(11229)& - &+A(11244)+A(11245)+A(11257)+A(11258)+A(11259)+A(11260)+A(11261)-A(11262)+A(11275)+A(11276)+A(11277)& - &+A(11278)+A(11279)-A(11280)+A(11291)+A(11296)+A(11297)+A(11298)+A(11299)+A(11300)-A(11301)+A(11312)& - &+A(11317)+A(11318)+A(11319)+A(11320)+A(11321)-A(11322)+A(11333)+A(11338)+A(11339)+A(11340)+A(11341)& - &+A(11342)-A(11343)-A(11344)-A(11345)-A(11351)+A(11364)+A(11365)+A(11371)-A(11374)-A(11380)-A(11384)& - &+A(11395)+A(11403)+A(11411)-A(11412)-A(11416)+A(11427)+A(11430)+A(11433)-A(11440)-A(11444)-A(11448)& - &+A(11461)+A(11467)+A(11472)-A(11473)+A(11479)-A(11480)-A(11485)-A(11489)+A(11507)-A(11508)-A(11513)& - &-A(11517)+A(11535)-A(11536)-A(11540)+A(11553)+A(11559)+A(11561)+A(11565)+A(11568)+A(11569)-A(11575)& - &-A(11579)+A(11592)+A(11598)-A(11599)+A(11601)+A(11603)+A(11604)+A(11607)+A(11610)+A(11613)+A(11614)& - &-A(11617)-A(11621)+A(11634)+A(11640)-A(11642)+A(11643)+A(11645)+A(11646)+A(11649)+A(11652)+A(11655)& - &+A(11656)-A(11661)-A(11665)+A(11676)-A(11679)-A(11683)-A(11687)+A(11705)-A(11706)-A(11713)-A(11717)& - &+A(11730)+A(11736)-A(11737)-A(11741)+A(11759)-A(11760)-A(11764)+A(11782)+A(11785)-A(11786)+A(11794)& - &-A(11798)-A(11799)-A(11800)-A(11810)-A(11811)+A(11816)-A(11819)-A(11828)-A(11829)+A(11837)+A(11839)& - &+A(11844)+A(11847)-A(11848)-A(11849)+A(11855)+A(11857)+A(11858)-A(11860)+A(11861)+A(11863)+A(11864)& - &-A(11865)+A(11867)+A(11869)+A(11870)+A(11873)-A(11874)-A(11875)-A(11876)+A(11880)-A(11885)-A(11886)& - &-A(11887)-A(11893)-A(11894)-A(11895)-A(11903)-A(11904)+A(11905)+A(11907)+A(11908)+A(11910)+A(11911)& - &+A(11913)+A(11915)-A(11918)-A(11924)-A(11928)-A(11929)-A(11930)+A(11937)-A(11938)+A(11954)+A(11957)& - &+A(11960)-A(11961)-A(11962)+A(11974)+2*A(11975)+A(11978)-A(11979)-A(11980)+A(11991)+A(12001)+A(12002)& - &-A(12017)-A(12026)-A(12033)-A(12034)-A(12035)+A(12043)-A(12044)-A(12048)-A(12054)+A(12059)+A(12061)& - &-A(12062)-A(12068)-A(12074)-A(12080)-A(12081)-A(12082)-A(12088)+A(12095)-A(12098)-A(12107)+A(12119)& - &+A(12124)+A(12128)+A(12137)+A(12138)+A(12143)-A(12144)-A(12145)-A(12146)-A(12152)-A(12159)+A(12167)& - &+A(12169)+A(12181)-A(12182)-A(12189)-A(12190)-A(12191)-A(12197)-A(12201)-A(12202)-A(12203)+A(12217)& - &+A(12218)+A(12224)+A(12225)+A(12226)-A(12227)-A(12228)-A(12229)-A(12235)-A(12236)-A(12237)-A(12243)& - &-A(12248)-A(12249)-A(12250)-A(12256)-A(12257)-A(12258)-A(12265)+A(12283)+A(12289)-A(12290)-A(12298)& - &+A(12310)+A(12311)+A(12312)+A(12314)+A(12320)+A(12322)+A(12336)+A(12343)-A(12350)-A(12360)-A(12364)& - &-A(12365)+A(12370)+A(12381)+A(12382)+A(12383)+A(12384)+A(12385)+A(12392)+A(12393)+A(12400)+A(12401)& - &-A(12402)-A(12403)-A(12408)+A(12417)+A(12418)+A(12424)+A(12431)+A(12432)-A(12436)-A(12437)-A(12442)& - &+A(12455)+A(12456)-A(12457)-A(12458)+A(12469)+A(12470)-A(12471)-A(12472)+A(12483)+A(12484)-A(12485)& - &-A(12486)+A(12491)+A(12500)+A(12501)-A(12502)-A(12503)+A(12519)+A(12520)-A(12521)-A(12522)+A(12530)& - &+A(12531)+A(12539)+A(12540)-A(12541)+A(12543)+A(12545)+A(12546)+A(12548)-A(12550)+A(12551)+A(12553)& - &+A(12554)-A(12562)-A(12563)+A(12578)-A(12579)-A(12580)-A(12586)+A(12587)+A(12589)+A(12590)-A(12591)& - &-A(12592)-A(12593)-A(12603)-A(12604)-A(12605)+A(12621)-A(12623)-A(12624)+A(12631)-A(12640)+A(12642)& - &+A(12644)+A(12645)+A(12653)-A(12655)+A(12656)+A(12658)+A(12659)-A(12661)-A(12662)+A(12674)-A(12676)& - &+A(12677)+A(12679)+A(12680)+A(12683)+A(12693)-A(12695)+A(12696)+A(12698)+A(12699)+A(12702)-A(12705)& - &-A(12709)+A(12723)-A(12732)-A(12733)+A(12748)-A(12749)-A(12750)+A(12762)-A(12763)-A(12764)+A(12775)& - &+A(12776)-A(12778)+A(12779)+A(12781)+A(12782)-A(12783)-A(12784)-A(12785)-A(12794)-A(12812)+A(12814)& - &+A(12816)+A(12817)-A(12818)-A(12819)-A(12820)-A(12826)-A(12827)-A(12828)-A(12834)-A(12835)-A(12836)& - &+A(12847)+A(12851)-A(12855)-A(12856)+A(12857)+A(12859)+A(12860)-A(12862)-A(12863)-A(12864)+A(12870)& - &+A(12872)+A(12874)-A(12876)-A(12877)+A(12882)-A(12893)-A(12894)-A(12895)+A(12901)+A(12902)+A(12905)& - &+A(12906)+A(12907)+A(12909)+A(12910)-A(12912)-A(12916)+A(12920)+A(12923)+A(12924)+A(12926)+A(12942)& - &+A(12944)+A(12945)+A(12946)+2*A(12948)-A(12949)-A(12950)-A(12951)-A(12961)+A(12963)+A(12965)+A(12966)& - &-A(12967)-A(12975)-A(12976)-A(12977)-A(12983)-A(12984)-A(12989)-A(12990)-A(12995)-A(12996)+A(13007)& - &-A(13008)+A(13016)+A(13017)+A(13018)-A(13021)-A(13031)+A(13044)-A(13048)-A(13049)-A(13050)-A(13056)& - &+A(13068)+A(13074)+A(13081)+A(13091)+A(13097)+A(13098)+A(13099)+A(13103)-A(13104)+A(13112)-A(13113)& - &-A(13119)-A(13120)+A(13126)+A(13139)+A(13145)-A(13146)-A(13152)-A(13158)+A(13170)-A(13173)+A(13185)& - &-A(13191)-A(13195)-A(13196)-A(13197)-A(13206)-A(13229)-A(13241)-A(13250)+A(13261)-A(13262)-A(13268)& - &-A(13269)-A(13270)-A(13282)-A(13287)+A(13297)+A(13299)-A(13300)-A(13305)-A(13309)+A(13317)+A(13318)+2& - &*A(13319)-A(13322)-A(13323)-A(13335)-A(13339)+A(13350)-A(13351)+A(13362)+A(13363)+A(13364)-A(13366)& - &-A(13374)-A(13382)-A(13390)-A(13398)-A(13407)+A(13409)+A(13411)+A(13412)+A(13414)-A(13417)-A(13418)& - &+A(13424)-A(13432)-A(13433)+A(13443)+A(13456)+A(13457)-A(13462)+A(13464)+A(13466)+A(13467)+A(13469)& - &-A(13472)-A(13473)+A(13479)-A(13487)-A(13488)+A(13494)-A(13498)-A(13499)+A(13505)+A(13521)+A(13522)& - &-A(13523)-A(13524)-A(13533)+A(13535)+A(13537)+A(13538)-A(13543)-A(13544)+A(13550)+A(13562)-A(13563)& - &+A(13565)+A(13567)+A(13568)-A(13569)+A(13574)+A(13593)+A(13595)+A(13610)+A(13611)+A(13614)+A(13615)& - &+A(13619)+A(13620)+A(13621)+A(13622)+A(13623)+A(13629)-A(13645)-A(13655)-A(13661)+A(13670)+A(13678)& - &+A(13679)-A(13683)+A(13687)-A(13689)-A(13696)+A(13701)+A(13710)+A(13711)+A(13712)-A(13714)-A(13720)& - &-A(13721)-A(13722)+A(13730)-A(13731)-A(13737)-A(13738)-A(13739)-A(13745)+A(13752)+A(13759)-A(13760)& - &-A(13761)-A(13762)-A(13767)+A(13778)+A(13779)-A(13782)-A(13788)-A(13789)-A(13794)-A(13795)-A(13796)& - &-A(13802)-A(13813)+A(13821)+A(13822)+A(13827)+A(13834)+A(13835)-A(13836)+A(13848)+A(13849)+A(13866)& - &-A(13867)-A(13868)-A(13869)-A(13875)+A(13888)+A(13889)+A(13896)+A(13902)-A(13912)-A(13923)+A(13943)& - &+A(13945)+A(13947)-A(13951)+A(13953)+A(13955)+A(13956)-A(13973)+A(13993)+A(14006)+A(14008)-A(14027)& - &+A(14028)+A(14030)+A(14031)+A(14037)+A(14044)+A(14045)+A(14047)+A(14052)+A(14054)+A(14057)+A(14058)& - &+A(14067)-A(14073)-A(14078)-A(14079)-A(14080)-A(14086)+A(14097)+A(14098)+A(14099)-A(14103)-A(14104)& - &-A(14105)+A(14115)+A(14117)+A(14118)+A(14120)-A(14123)+A(14134)+A(14135)+A(14136)+A(14138)-A(14141)& - &+A(14154)+A(14155)+A(14156)-A(14157)+A(14165)+A(14174)+A(14175)+A(14177)-A(14178)+A(14200)+A(14201)& - &+A(14204)+A(14210)-A(14211)-A(14212)-A(14213)-A(14219)-A(14225)+A(14233)+A(14235)+A(14236)-A(14237)& - &-A(14243)-A(14250)-A(14251)-A(14252)-A(14258)-A(14268)+A(14281)+A(14285)+A(14286)-A(14287)-A(14293)& - &+A(14301)-A(14302)-A(14310)+A(14323)+A(14329)-A(14330)-A(14331)-A(14332)+A(14339)-A(14340)-A(14347)& - &+A(14354)+A(14355)+A(14356)+A(14360)+A(14363)-A(14364)-A(14369)-A(14374)+A(14380)-A(14383)-A(14384)& - &-A(14389)-A(14393)-A(14409)+A(14414)-A(14419)-A(14420)-A(14425)+A(14433)+A(14434)+A(14437)+A(14442)& - &+A(14447)+A(14448)+A(14449)+A(14450)+A(14455)+A(14456)+A(14457)-A(14461)-A(14465)-A(14466)-A(14467)& - &+A(14473)+2*A(14475)-A(14485)+A(14493)+A(14494)-A(14501)-A(14502)-A(14503)+A(14511)+A(14513)+A(14514)& - &+A(14520)-A(14523)+A(14537)+A(14540)+A(14547)+A(14548)-A(14549)-A(14555)-A(14561)-A(14562)-A(14563)& - &+A(14579)+A(14582)-A(14583)-A(14584)-A(14585)+A(14594)+A(14600)-A(14601)-A(14611)-A(14620)-A(14621)& - &-A(14622)+A(14631)-A(14632)+A(14643)-A(14666)-A(14672)+A(14678)-A(14686)-A(14687)-A(14688)-A(14694)& - &-A(14695)-A(14696)-A(14702)-A(14703)-A(14704)-A(14710)-A(14716)+A(14730)+A(14733)+2*A(14736)+A(14737)& - &-A(14738)-A(14746)-A(14755)-A(14764)+A(14776)+A(14777)-A(14778)+A(14796)+A(14797)-A(14801)-A(14809)& - &+A(14817)+A(14827)+A(14830)+A(14838)+A(14839)+A(14850)-A(14851)-A(14852)+A(14863)+A(14869)+A(14872)& - &+A(14874)-A(14877)+A(14886)+A(14892)+A(14901)+A(14902)+A(14903)-A(14911)-A(14912)-A(14913)-A(14919)& - &+A(14927)+A(14928)+A(14933)+A(14937)+A(14940)+A(14942)+A(14943)-A(14944)-A(14956)-A(14962)+A(14975)& - &-A(14976)-A(14977)-A(14982)-A(14986)-A(14996)-A(15000)-A(15004)-A(15005)-A(15010)+A(15016)+A(15017)& - &+A(15018)-A(15019)-A(15020)-A(15021)-A(15030)+A(15040)+A(15042)+2*A(15045)+A(15046)-A(15047)+A(15054)& - &+A(15056)+A(15057)-A(15059)+A(15069)+A(15081)+A(15085)+A(15087)+A(15090)+A(15093)+A(15103)+A(15105)& - &+A(15119)+A(15125)+A(15127)+A(15130)-A(15131)-A(15132)-A(15137)-A(15143)-A(15144)-A(15149)+A(15161)& - &+A(15163)-A(15171)+A(15177) - Vdot(5256) = A(6)+A(9)-A(11)-A(12)-A(13)-A(24)-A(28)+A(30)-A(41)-A(42)+A(45)-A(90)-A(91)-A(98)-A(101)-A(104)-A(107)& - &-A(112)-A(117)-A(121)-A(132)-A(138)-A(139)-A(140)-A(229)-A(232)-A(233)-A(238)-A(239)-A(244)-A(247)-A(250)& - &-A(251)-A(256)-A(257)-A(262)-A(263)-A(268)-A(269)-A(274)-A(275)-A(280)-A(281)-A(286)-A(287)-A(292)-A(293)& - &-A(298)-A(299)-A(304)-A(305)-A(310)-A(322)-A(327)-A(332)-A(337)-A(342)-A(347)-A(352)-A(357)-A(362)-A(367)& - &-A(372)-A(377)-A(382)-A(387)-A(392)-A(398)-A(400)-A(401)-A(407)-A(419)-A(421)-A(456)-A(457)-A(463)-A(464)& - &-A(470)-A(476)-A(488)-A(495)-A(500)-A(509)-A(516)-A(523)-A(530)-A(537)-A(543)-A(550)-A(558)-A(565)-A(571)& - &-A(576)-A(583)-A(586)-A(592)-A(598)-A(605)-A(612)-A(619)-A(626)-A(633)-A(639)-A(645)-A(652)-A(658)-A(667)& - &-A(670)-A(676)-A(681)-A(687)-A(703)-A(710)-A(719)-A(725)-A(734)-A(740)-A(749)-A(755)-A(762)-A(771)-A(777)& - &-A(783)-A(789)-A(798)-A(804)-A(811)-A(820)-A(825)-A(834)-A(841)-A(854)-A(860)-A(868)-A(875)-A(884)-A(889)& - &-A(895)-A(906)-A(912)-A(919)-A(926)-A(933)-A(939)-A(946)-A(953)-A(960)-A(967)-A(974)-A(980)-A(987)-A(994)& - &-A(1001)-A(1008)-A(1015)-A(1022)-A(1029)-A(1035)-A(1042)-A(1049)-A(1055)-A(1062)-A(1069)-A(1076)-A(1082)& - &-A(1089)-A(1096)-A(1103)-A(1109)-A(1116)-A(1122)-A(1129)-A(1136)-A(1143)-A(1150)-A(1157)-A(1163)-A(1172)& - &-A(1178)-A(1188)-A(1194)-A(1205)-A(1211)-A(1217)-A(1222)-A(1232)-A(1238)-A(1249)-A(1256)-A(1262)-A(1268)& - &-A(1279)-A(1285)-A(1291)-A(1298)-A(1304)-A(1315)-A(1321)-A(1327)-A(1336)-A(1342)-A(1353)-A(1360)-A(1366)& - &-A(1372)-A(1383)-A(1390)-A(1396)-A(1403)-A(1410)-A(1414)-A(1420)-A(1421)-A(1428)-A(1432)-A(1433)-A(1434)& - &-A(1441)-A(1445)-A(1454)-A(1461)-A(1464)-A(1470)-A(1471)-A(1472)-A(1479)-A(1486)-A(1490)-A(1496)-A(1497)& - &-A(1498)-A(1505)-A(1512)-A(1515)-A(1521)-A(1522)-A(1523)-A(1530)-A(1534)-A(1535)-A(1536)-A(1543)-A(1547)& - &-A(1556)-A(1560)-A(1561)-A(1562)-A(1569)-A(1573)-A(1582)-A(1585)-A(1586)-A(1587)-A(1594)-A(1598)-A(1607)& - &-A(1611)-A(1612)-A(1613)-A(1620)-A(1631)-A(1638)-A(1641)-A(1642)-A(1643)-A(1647)-A(1656)-A(1663)-A(1667)& - &-A(1668)-A(1671)-A(1680)-A(1687)-A(1690)-A(1696)-A(1697)-A(1698)-A(1705)-A(1709)-A(1715)-A(1716)-A(1717)& - &-A(1724)-A(1727)-A(1733)-A(1734)-A(1735)-A(1742)-A(1749)-A(1753)-A(1759)-A(1760)-A(1766)-A(1770)-A(1771)& - &-A(1777)-A(1781)-A(1789)-A(1797)-A(1804)-A(1809)-A(1813)-A(1820)-A(1834)-A(1841)-A(1848)-A(1855)-A(1883)& - &-A(1887)-A(1893)-A(1906)-A(1914)-A(1921)-A(1928)-A(1935)-A(1941)-A(1947)-A(1954)-A(1960)-A(1966)-A(1973)& - &-A(1979)-A(1985)-A(1992)-A(1999)-A(2005)-A(2012)-A(2018)-A(2024)-A(2031)-A(2038)-A(2043)-A(2050)-A(2057)& - &-A(2063)-A(2068)-A(2079)-A(2085)-A(2092)-A(2097)-A(2102)-A(2119)-A(2125)-A(2132)-A(2137)-A(2147)-A(2153)& - &-A(2160)-A(2165)+A(2170)+A(2176)-A(2190)-A(2196)-A(2203)-A(2219)-A(2270)-A(2286)-A(2302)-A(2323)-A(2329)& - &-A(2354)-A(2369)-A(2380)-A(2420)-A(2433)-A(2440)+A(2456)-A(2465)+A(2470)-A(2522)-A(2526)-A(2546)-A(2571)& - &+A(2585)-A(2590)+A(2605)+A(2615)+A(2616)+A(2617)+A(2618)+A(2621)-A(2646)-A(2650)-A(2656)+A(2664)-A(2674)& - &-A(2746)-A(2757)-A(2781)-A(2819)-A(2854)-A(2865)-A(2883)-A(2972)-A(2980)+A(3006)-A(3014)-A(3030)+A(3036)& - &-A(3052)+A(3058)-A(3073)-A(3102)+A(3111)-A(3128)+A(3133)-A(3141)-A(3158)+A(3172)-A(3188)-A(3241)-A(3244)& - &-A(3254)-A(3260)-A(3264)-A(3274)-A(3277)-A(3282)-A(3293)-A(3298)-A(3303)-A(3323)-A(3333)-A(3339)-A(3348)& - &-A(3369)-A(3372)-A(3378)-A(3384)-A(3389)-A(3396)-A(3399)-A(3407)-A(3431)-A(3434)-A(3440)-A(3446)-A(3454)& - &-A(3459)-A(3462)-A(3470)-A(3488)-A(3494)-A(3500)-A(3505)-A(3512)-A(3515)-A(3524)-A(3531)-A(3536)-A(3539)& - &-A(3558)-A(3568)-A(3574)-A(3588)-A(3595)-A(3598)-A(3617)-A(3627)-A(3633)-A(3647)-A(3652)-A(3655)-A(3674)& - &-A(3684)-A(3690)-A(3699)-A(3706)-A(3713)-A(3716)-A(3732)-A(3739)-A(3748)-A(3766)-A(3773)-A(3776)-A(3784)& - &-A(3790)-A(3796)-A(3804)-A(3820)-A(3826)-A(3834)-A(3837)-A(3846)-A(3851)-A(3879)-A(3882)-A(3888)-A(3894)& - &-A(3899)-A(3906)-A(3909)-A(3929)-A(3935)-A(3941)-A(3949)-A(3954)-A(3957)-A(3974)-A(3980)-A(3986)-A(3991)& - &-A(3998)-A(4001)-A(4028)-A(4036)-A(4041)-A(4048)-A(4053)-A(4067)-A(4072)-A(4089)-A(4092)-A(4099)-A(4104)& - &+A(4112)-A(4140)+A(4147)-A(4157)-A(4177)-A(4189)-A(4201)-A(4208)+A(4214)+A(4220)-A(4225)-A(4232)-A(4242)& - &-A(4251)-A(4261)-A(4280)-A(4287)-A(4293)-A(4298)-A(4302)-A(4311)-A(4318)-A(4325)-A(4333)-A(4360)-A(4361)& - &-A(4365)-A(4393)-A(4436)-A(4497)-A(4525)-A(4553)-A(4558)+A(4564)-A(4571)-A(4597)-A(4603)-A(4610)-A(4617)& - &-A(4622)+A(4629)-A(4639)-A(4654)-A(4660)-A(4667)+A(4673)-A(4695)-A(4696)-A(4713)-A(4719)-A(4729)-A(4735)& - &-A(4742)-A(4765)-A(4773)-A(4779)-A(4787)-A(4805)-A(4811)-A(4819)-A(4825)-A(4830)-A(4839)-A(4842)-A(4851)& - &-A(4869)-A(4882)-A(4888)-A(4895)-A(4903)-A(4908)-A(4917)-A(4923)-A(4932)-A(4939)-A(4943)+A(4949)-A(4950)& - &-A(4964)-A(4972)-A(4979)-A(4987)-A(4992)-A(4999)-A(5006)-A(5014)-A(5019)-A(5027)-A(5032)-A(5039)-A(5046)& - &-A(5054)-A(5059)-A(5065)-A(5071)-A(5078)-A(5085)-A(5093)-A(5098)-A(5105)-A(5111)-A(5117)-A(5125)-A(5130)& - &-A(5139)-A(5145)-A(5154)-A(5160)-A(5166)-A(5171)-A(5176)-A(5181)-A(5188)-A(5194)-A(5199)-A(5206)-A(5212)& - &-A(5217)-A(5223)-A(5228)-A(5234)-A(5239)-A(5245)-A(5250)-A(5256)-A(5261)-A(5270)-A(5278)-A(5284)-A(5293)& - &-A(5300)-A(5305)-A(5315)-A(5321)-A(5327)-A(5331)-A(5335)-A(5342)-A(5348)-A(5357)-A(5365)-A(5369)-A(5376)& - &-A(5381)-A(5387)-A(5395)-A(5399)-A(5405)-A(5409)-A(5417)-A(5431)-A(5436)-A(5460)-A(5464)-A(5491)-A(5495)& - &-A(5500)-A(5501)-A(5510)-A(5517)-A(5525)+A(5536)-A(5563)-A(5568)-A(5575)-A(5589)-A(5594)-A(5620)-A(5624)& - &-A(5639)-A(5644)-A(5646)-A(5653)-A(5656)-A(5663)-A(5676)-A(5681)-A(5701)-A(5705)-A(5726)-A(5731)-A(5766)& - &-A(5770)-A(5785)-A(5788)-A(5792)-A(5808)-A(5815)-A(5823)+A(5834)-A(5858)-A(5868)-A(5872)-A(5882)-A(5885)& - &-A(5892)-A(5900)+A(5911)-A(5935)-A(5939)-A(5955)-A(5963)-A(5971)+A(5982)-A(6009)-A(6018)-A(6022)-A(6031)& - &-A(6036)-A(6039)-A(6047)-A(6052)-A(6070)-A(6075)-A(6088)-A(6092)-A(6132)-A(6137)-A(6143)-A(6167)-A(6172)& - &-A(6194)-A(6209)-A(6214)-A(6239)-A(6243)-A(6279)-A(6283)-A(6334)-A(6338)-A(6350)-A(6354)-A(6361)-A(6399)& - &-A(6407)-A(6423)-A(6436)-A(6441)-A(6446)-A(6468)-A(6477)-A(6486)-A(6495)-A(6505)-A(6516)-A(6522)-A(6530)& - &-A(6540)-A(6549)-A(6558)-A(6581)-A(6597)-A(6600)-A(6610)-A(6638)-A(6641)-A(6651)-A(6672)-A(6680)-A(6687)& - &+A(6695)-A(6733)-A(6740)-A(6746)-A(6754)-A(6764)-A(6772)-A(6780)-A(6789)-A(6794)-A(6800)-A(6806)-A(6812)& - &-A(6816)-A(6822)-A(6831)-A(6836)-A(6840)-A(6844)-A(6851)-A(6858)-A(6864)-A(6868)-A(6874)-A(6878)-A(6886)& - &-A(6890)-A(6894)-A(6898)-A(6907)-A(6912)-A(6918)-A(6923)-A(6929)-A(6936)-A(6964)-A(6971)-A(6979)-A(7010)& - &-A(7018)-A(7020)-A(7021)-A(7058)-A(7061)-A(7071)-A(7076)-A(7081)-A(7091)+A(7097)-A(7103)-A(7112)-A(7137)& - &-A(7145)-A(7146)-A(7169)-A(7205)-A(7221)-A(7233)-A(7237)-A(7243)-A(7247)-A(7291)-A(7311)-A(7353)-A(7364)& - &-A(7397)-A(7420)-A(7435)-A(7446)-A(7470)-A(7494)-A(7509)-A(7524)-A(7579)-A(7764)-A(7770)-A(7806)-A(7810)& - &-A(7812)-A(7816)-A(7822)-A(7826)-A(7835)-A(7842)-A(7847)-A(7853)-A(7859)-A(7880)-A(7889)-A(7894)-A(7898)& - &-A(7904)-A(7928)-A(7930)-A(7934)-A(7946)-A(7951)-A(7955)-A(7961)-A(7966)-A(7970)-A(7974)-A(7998)-A(8000)& - &-A(8004)-A(8018)-A(8026)-A(8028)-A(8032)-A(8045)-A(8047)-A(8051)-A(8057)-A(8063)-A(8067)-A(8073)-A(8091)& - &-A(8105)-A(8107)-A(8111)-A(8121)-A(8127)-A(8131)-A(8137)-A(8155)-A(8159)-A(8169)-A(8171)-A(8175)-A(8181)& - &-A(8187)-A(8191)-A(8197)-A(8215)-A(8228)-A(8232)-A(8239)-A(8244)-A(8249)-A(8255)-A(8260)-A(8264)-A(8269)& - &-A(8294)-A(8303)-A(8305)-A(8309)-A(8368)-A(8370)-A(8374)-A(8378)-A(8384)-A(8386)-A(8390)-A(8394)-A(8402)& - &-A(8404)-A(8408)-A(8423)-A(8428)-A(8433)-A(8437)-A(8443)-A(8461)+A(8506)-A(8517)+A(8526)-A(8537)+A(8541)& - &+A(8563)+A(8583)-A(8596)-A(8599)-A(8630)-A(8637)-A(8652)-A(8667)-A(8687)-A(8696)-A(8703)-A(8708)-A(8717)& - &-A(8722)+A(8736)-A(8751)-A(8756)-A(8776)-A(8784)-A(8800)-A(8833)-A(8957)-A(8975)-A(8988)-A(8996)-A(9004)& - &-A(9009)-A(9013)-A(9020)-A(9024)-A(9029)-A(9045)-A(9051)-A(9058)-A(9066)-A(9082)-A(9086)-A(9093)-A(9096)& - &-A(9097)-A(9108)-A(9116)-A(9121)-A(9129)-A(9133)-A(9137)-A(9145)-A(9155)-A(9161)+A(9175)-A(9180)-A(9189)& - &-A(9194)-A(9200)-A(9206)-A(9213)-A(9229)+A(9235)-A(9248)-A(9256)+A(9261)-A(9266)-A(9278)-A(9283)-A(9286)& - &-A(9294)-A(9300)-A(9306)-A(9311)-A(9317)+A(9322)+A(9328)-A(9342)-A(9348)-A(9356)-A(9362)-A(9387)-A(9392)& - &+A(9405)-A(9408)-A(9415)-A(9419)-A(9425)-A(9430)-A(9435)-A(9442)-A(9448)-A(9452)-A(9458)-A(9467)-A(9472)& - &-A(9480)-A(9487)-A(9493)-A(9500)-A(9505)-A(9512)-A(9518)-A(9523)-A(9529)-A(9537)-A(9543)-A(9552)-A(9560)& - &-A(9572)-A(9576)-A(9581)-A(9587)-A(9600)-A(9605)-A(9614)-A(9620)-A(9628)-A(9633)-A(9641)-A(9645)-A(9650)& - &-A(9658)-A(9662)-A(9667)-A(9675)-A(9679)-A(9684)-A(9692)-A(9697)-A(9705)+A(9722)-A(9734)-A(9738)-A(9742)& - &-A(9746)-A(9752)-A(9756)-A(9762)-A(9766)-A(9770)-A(9774)-A(9778)-A(9782)-A(9809)+A(9813)+A(9830)-A(9853)& - &-A(9857)-A(9861)-A(9865)-A(9871)-A(9875)-A(9911)-A(9915)-A(9919)-A(9923)-A(9928)-A(9932)-A(9948)-A(9952)& - &-A(9956)-A(9960)-A(9965)-A(9969)-A(9973)-A(9977)-A(9981)-A(9985)-A(9991)-A(9995)-A(10024)-A(10031)& - &-A(10033)-A(10037)-A(10041)-A(10045)-A(10051)-A(10055)-A(10062)-A(10085)-A(10094)-A(10097)-A(10101)& - &-A(10105)-A(10109)-A(10115)-A(10119)-A(10126)-A(10149)-A(10156)-A(10160)-A(10164)-A(10168)-A(10208)& - &-A(10212)-A(10216)-A(10220)-A(10225)-A(10229)-A(10236)-A(10238)-A(10242)-A(10246)-A(10250)-A(10256)& - &-A(10260)-A(10264)-A(10268)-A(10272)-A(10276)-A(10281)-A(10285)-A(10298)-A(10302)-A(10306)-A(10310)& - &-A(10315)-A(10319)-A(10354)-A(10357)-A(10363)-A(10379)-A(10382)+A(10395)+A(10401)-A(10409)+A(10415)& - &+A(10425)-A(10445)-A(10456)+A(10466)+A(10481)-A(10520)-A(10529)-A(10535)-A(10541)-A(10554)-A(10558)& - &-A(10563)-A(10573)-A(10581)-A(10586)-A(10590)-A(10597)-A(10602)-A(10606)-A(10617)-A(10680)-A(10689)& - &-A(10701)-A(10710)-A(10718)-A(10724)-A(10735)-A(10738)-A(10745)-A(10751)-A(10790)-A(10796)+A(10802)& - &-A(10894)-A(10900)+A(10906)-A(10911)-A(10942)-A(10964)-A(10971)-A(10976)-A(10980)-A(10984)-A(11001)& - &-A(11009)-A(11022)-A(11041)-A(11059)-A(11064)-A(11103)-A(11121)-A(11162)-A(11177)-A(11183)-A(11189)& - &-A(11221)-A(11226)-A(11231)-A(11246)-A(11264)-A(11282)-A(11303)-A(11324)-A(11348)-A(11353)-A(11369)& - &-A(11376)-A(11382)-A(11386)-A(11414)-A(11418)-A(11428)-A(11431)-A(11442)-A(11446)-A(11450)-A(11470)& - &-A(11475)-A(11477)-A(11482)-A(11487)-A(11491)-A(11510)-A(11515)-A(11519)-A(11538)-A(11542)-A(11563)& - &-A(11577)-A(11581)-A(11603)-A(11605)-A(11608)-A(11619)-A(11623)-A(11645)-A(11647)-A(11650)-A(11659)& - &-A(11663)-A(11667)-A(11681)-A(11685)-A(11689)-A(11708)-A(11715)-A(11719)-A(11739)-A(11743)-A(11762)& - &-A(11766)-A(11783)-A(11788)-A(11803)-A(11814)-A(11821)+A(11825)-A(11832)-A(11852)-A(11863)-A(11869)& - &-A(11879)-A(11880)-A(11890)-A(11898)-A(11907)-A(11921)-A(11926)-A(11933)-A(11940)-A(11958)-A(11965)& - &-A(11976)-A(11983)-A(12014)-A(12020)-A(12029)-A(12038)-A(12041)-A(12046)-A(12051)-A(12056)-A(12058)& - &-A(12065)-A(12070)-A(12077)-A(12085)-A(12090)-A(12101)-A(12109)-A(12149)-A(12155)-A(12161)-A(12175)& - &-A(12176)-A(12185)-A(12194)-A(12199)-A(12206)-A(12232)-A(12240)-A(12245)-A(12253)-A(12261)-A(12268)& - &-A(12293)-A(12301)-A(12353)-A(12358)-A(12362)-A(12368)-A(12406)-A(12410)-A(12440)-A(12445)-A(12461)& - &-A(12475)-A(12489)-A(12492)-A(12506)-A(12525)-A(12545)-A(12553)-A(12566)-A(12583)-A(12589)-A(12596)& - &-A(12608)-A(12627)-A(12644)-A(12658)-A(12665)-A(12679)-A(12698)-A(12707)-A(12711)-A(12736)-A(12753)& - &-A(12767)-A(12781)-A(12788)-A(12796)+A(12802)-A(12816)-A(12823)-A(12831)-A(12839)+A(12852)-A(12859)& - &-A(12867)-A(12880)-A(12898)+A(12910)-A(12914)-A(12918)+A(12934)+A(12938)-A(12954)-A(12965)-A(12969)& - &-A(12980)-A(12987)-A(12993)-A(12999)-A(13010)-A(13024)-A(13033)-A(13053)-A(13058)-A(13107)-A(13110)& - &-A(13115)-A(13123)-A(13137)-A(13148)-A(13155)-A(13161)-A(13176)-A(13193)-A(13200)-A(13209)-A(13232)& - &-A(13244)-A(13253)-A(13265)-A(13273)-A(13284)-A(13290)-A(13302)-A(13307)-A(13311)-A(13320)-A(13326)& - &-A(13337)-A(13341)-A(13353)-A(13368)-A(13376)-A(13384)-A(13392)-A(13400)-A(13411)-A(13421)-A(13436)& - &-A(13466)-A(13476)-A(13491)-A(13502)-A(13527)-A(13537)-A(13547)-A(13567)-A(13571)+A(13575)+A(13596)& - &+A(13600)+A(13607)-A(13647)-A(13657)-A(13663)-A(13676)-A(13685)-A(13692)-A(13698)-A(13716)-A(13725)& - &-A(13728)-A(13733)-A(13742)-A(13747)-A(13765)-A(13769)-A(13784)-A(13792)-A(13799)-A(13805)-A(13815)& - &-A(13828)-A(13829)-A(13838)-A(13872)-A(13878)-A(13915)-A(13926)-A(13955)-A(13975)-A(14004)-A(14030)& - &+A(14048)-A(14055)-A(14065)-A(14075)-A(14083)-A(14088)-A(14108)-A(14125)-A(14144)-A(14160)-A(14180)& - &-A(14202)-A(14216)-A(14221)-A(14228)-A(14239)-A(14246)-A(14255)-A(14261)-A(14271)-A(14290)-A(14296)& - &-A(14304)-A(14313)-A(14335)-A(14342)-A(14350)-A(14366)-A(14371)-A(14376)-A(14387)-A(14391)-A(14395)& - &-A(14411)-A(14423)-A(14427)-A(14435)-A(14443)-A(14444)-A(14463)-A(14470)-A(14487)-A(14495)-A(14496)& - &-A(14506)-A(14526)-A(14552)-A(14557)-A(14566)-A(14588)-A(14604)-A(14614)-A(14625)-A(14635)-A(14669)& - &-A(14674)-A(14691)-A(14699)-A(14707)-A(14712)-A(14718)-A(14740)-A(14743)-A(14749)-A(14758)-A(14766)& - &-A(14781)-A(14803)-A(14812)-A(14836)-A(14855)-A(14867)-A(14879)-A(14916)-A(14921)-A(14946)-A(14958)& - &-A(14964)-A(14980)-A(14984)-A(14988)-A(14998)-A(15002)-A(15008)-A(15012)-A(15024)-A(15032)-A(15049)& - &-A(15062)-A(15101)-A(15128)-A(15135)-A(15139)-A(15147)-A(15151)-A(15173) - Vdot(5257) = A(2168)+A(2169)+A(2170)+A(2171)+A(2172)+A(2174)+A(2175)+A(2176)+A(2177)+A(4693)-A(4695)-A(4696)-A(4697)& - &-A(4698)-A(4699)-A(4700)-A(4701)-A(4702)-A(4703)-A(4704)+A(4748)+A(4749)+A(4753) - Vdot(5258) = A(2)-A(3)-A(8)-A(9)-A(15)-A(19)-A(37)-A(38)-A(92)-A(93)-A(128)-A(129)-A(133)-A(134)-A(141)-A(142)-A(230)& - &-A(234)-A(235)-A(240)-A(241)-A(245)-A(248)-A(252)-A(253)-A(258)-A(259)-A(264)-A(265)-A(270)-A(271)-A(276)& - &-A(277)-A(282)-A(283)-A(288)-A(289)-A(294)-A(295)-A(300)-A(301)-A(306)-A(307)-A(311)-A(393)-A(394)-A(402)& - &-A(403)-A(408)-A(409)-A(410)-A(411)-A(458)-A(459)-A(465)-A(466)-A(471)-A(472)-A(477)-A(478)-A(479)-A(480)& - &+A(662)+A(731)+A(744)+A(766)+A(794)+A(815)+A(830)+A(850)+A(880)-A(1415)-A(1446)-A(1465)-A(1491)-A(1516)& - &-A(1548)-A(1574)-A(1599)-A(1624)-A(1648)-A(1672)-A(1691)-A(1710)-A(1728)-A(1754)-A(1782)+A(1801)-A(1864)& - &-A(1865)-A(1888)-A(1889)-A(1894)-A(1895)+A(2297)+A(2318)+A(2429)+A(2461)-A(2615)+A(3236)-A(3265)-A(3271)& - &-A(3278)-A(3302)-A(3304)+A(3319)+A(3365)-A(3393)-A(3400)+A(3427)-A(3451)-A(3463)+A(3484)-A(3509)-A(3516)& - &-A(3528)-A(3540)+A(3554)-A(3592)-A(3599)+A(3613)-A(3644)-A(3656)+A(3670)-A(3710)-A(3717)-A(3770)-A(3777)& - &+A(3780)+A(3830)+A(3875)-A(3903)-A(3910)+A(3925)-A(3946)-A(3958)+A(3970)-A(3995)-A(4002)+A(4024)+A(4085)& - &-A(4141)-A(4142)-A(4158)-A(4159)-A(4167)-A(4168)-A(4185)-A(4186)-A(4190)-A(4191)-A(4271)-A(4272)-A(4697)& - &-A(4698)-A(4705)-A(4706)-A(4708)-A(4709)-A(4723)-A(4724)+A(4760)+A(4768)+A(4835)+A(4890)+A(4899)+A(4912)& - &+A(4928)+A(4945)+A(4960)+A(4967)+A(5135)+A(5150)+A(5266)+A(5274)+A(5296)+A(5311)+A(5337)+A(5352)+A(5372)& - &-A(5410)+A(5412)+A(5427)-A(5473)-A(5498)-A(5502)-A(5503)-A(5511)-A(5512)-A(5518)+A(5521)+A(5559)-A(5569)& - &-A(5570)-A(5576)+A(5585)-A(5632)+A(5635)-A(5647)-A(5648)-A(5654)-A(5657)+A(5672)-A(5719)+A(5722)-A(5733)& - &-A(5778)+A(5780)-A(5806)-A(5809)-A(5810)-A(5816)+A(5819)-A(5880)-A(5886)-A(5887)-A(5893)+A(5896)-A(5953)& - &-A(5956)-A(5957)-A(5964)+A(5967)+A(6005)-A(6029)-A(6037)-A(6040)+A(6043)+A(6066)-A(6077)-A(6078)-A(6100)& - &+A(6128)+A(6163)+A(6205)-A(6251)-A(6297)-A(6299)-A(6300)-A(6346)-A(6355)-A(6356)-A(6362)+A(6432)+A(6472)& - &+A(6490)+A(6544)-A(6592)-A(6593)-A(6601)-A(6602)-A(6611)-A(6612)-A(6623)-A(6624)-A(6642)-A(6643)-A(6652)& - &-A(6653)-A(6663)-A(6664)+A(6784)+A(6826)+A(6902)+A(6933)-A(7022)-A(7023)+A(7055)-A(7062)-A(7063)+A(7066)& - &-A(7147)-A(7148)-A(7170)-A(7171)-A(7172)-A(7173)+A(7306)-A(7805)-A(7819)+A(7831)+A(7875)-A(7925)-A(7995)& - &-A(8023)-A(8040)-A(8102)-A(8164)-A(8225)+A(8235)-A(8300)-A(8365)-A(8381)-A(8399)+A(8419)-A(8600)-A(8615)& - &-A(8616)+A(8626)-A(8680)-A(8681)+A(8692)+A(8992)+A(9001)-A(9098)-A(9099)+A(9103)+A(9112)+A(9184)+A(9243)& - &+A(9252)+A(9383)+A(9410)+A(9437)+A(9462)+A(9482)+A(9507)+A(9532)+A(9547)+A(9555)+A(9609)+A(10503)-A(10521)& - &-A(10522)+A(10568)+A(10577)+A(10592)+A(10684)+A(10715)+A(10889)+A(10996)+A(11004)+A(11017)+A(11036)& - &+A(11054)+A(11116)+A(11343)+A(11798)+A(11874)+A(11886)+A(11894)+A(11903)+A(11928)+A(12035)+A(12080)& - &+A(12144)-A(12177)-A(12178)+A(12191)+A(12201)+A(12227)+A(12236)+A(12248)+A(12256)+A(12591)+A(12603)& - &+A(12783)+A(12818)+A(12826)+A(12834)+A(12855)+A(12863)+A(12893)+A(12950)+A(12975)+A(13049)+A(13196)& - &+A(13268)+A(13720)+A(13737)+A(13761)+A(13794)-A(13830)-A(13831)+A(13867)+A(14080)+A(14103)+A(14211)& - &+A(14252)+A(14330)+A(14465)-A(14497)-A(14498)+A(14501)+A(14561)+A(14583)+A(14620)+A(14686)+A(14694)& - &+A(14702)+A(14911)+A(15019) - -END SUBROUTINE Fun - -! End of Fun function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE MCMv3_3_Function - diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Function.o b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Function.o deleted file mode 100644 index 9f75fe8d9428db7e2676e619dc8c3301805c0a39..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Function.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Global.f90 b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Global.f90 deleted file mode 100644 index 032d02bca8db319b2a97add58b296e929a677843..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Global.f90 +++ /dev/null @@ -1,149 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Global Data Module File -! -! Generated by KPP-2.2.3 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 : MCMv3_3_Global.f90 -! Time : Mon Jul 19 14:16:06 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MCMv3_3_3654_BOXMOX -! Equation file : MCMv3_3.kpp -! Output root filename : MCMv3_3 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MCMv3_3_Global - - USE MCMv3_3_Parameters, ONLY: dp, NSPEC, NVAR, NFIX, NREACT, LU_NONZERO - PUBLIC - SAVE - - -! Declaration of global variables - -! C - Concentration of all species - REAL(kind=dp) :: C(NSPEC) -! VAR - Concentrations of variable species (global) - REAL(kind=dp) :: VAR(NVAR) -! FIX - Concentrations of fixed species (global) - REAL(kind=dp) :: FIX(NFIX) -! VAR, FIX are chunks of array C - EQUIVALENCE( C(1),VAR(1) ) - EQUIVALENCE( C(5259),FIX(1) ) -! RCONST - Rate constants (global) - REAL(kind=dp) :: RCONST(NREACT) -! TIME - Current integration time - REAL(kind=dp) :: TIME -! SUN - Sunlight intensity between [0,1] - REAL(kind=dp) :: SUN -! TEMP - Temperature - REAL(kind=dp) :: TEMP -! RTOLS - (scalar) Relative tolerance - REAL(kind=dp) :: RTOLS -! TSTART - Integration start time - REAL(kind=dp) :: TSTART -! TEND - Integration end time - REAL(kind=dp) :: TEND -! DT - Integration step - REAL(kind=dp) :: DT -! ATOL - Absolute tolerance - REAL(kind=dp) :: ATOL(NVAR) -! RTOL - Relative tolerance - REAL(kind=dp) :: RTOL(NVAR) -! STEPMIN - Lower bound for integration step - REAL(kind=dp) :: STEPMIN -! STEPMAX - Upper bound for integration step - REAL(kind=dp) :: STEPMAX -! CFACTOR - Conversion factor for concentration units - REAL(kind=dp) :: CFACTOR - -! INLINED global variable declarations - - - ! BOXMOX global variables - - ! Parameters - INTEGER, PARAMETER :: max_species_boxmox = 10000 ! maximum number of species - ! read in - INTEGER, PARAMETER :: max_jhash_boxmox = 10000 ! maximum hash value of - ! photolysis rate labels - - ! Configuration - LOGICAL :: lverbose ! verbose output? - LOGICAL :: llibrary ! library version? - - - ! State definition - REAL(KIND=dp) :: pres ! pressure [Pa] - ! temperature variable temp [K] defined in KPP already - REAL(KIND=dp) :: dxdydz(3), dxdydz_old(3) ! box dimensions (x,y,z) - ! [m] - - ! Turbulent mixing - INTEGER :: iturb ! type of mixing - INTEGER, PARAMETER :: TURB_OPT_NONE = 0, & ! no turbulent mixing - TURB_OPT_SPECIFIED = 1, & ! using specified Kturb - TURB_OPT_VOLUME = 2, & ! using volume changes - TURB_OPT_TRACER = 3 ! using tracer conc. - REAL(KIND=dp) :: Kturb ! eddy diffusivity [m2 s-1] - - ! Photolysis rates - REAL(KIND=dp) :: jvalues(max_jhash_boxmox) ! Photolysis rate [s-1] - - ! Aerosol - REAL(KIND=dp) :: AER_R, & ! particle radius [m] - AER_SAD ! surface area density - ! [m^2 m^-3] - - ! Steady-state modeling - LOGICAL :: lfix_nox ! fix total NOx? - REAL(kind=dp) :: initial_total_nox ! total NOx to fix - - - REAL(dp)::M, N2, O2, RO2, H2O - REAL(dp) :: & -KRO2NO,KRO2HO2,KAPHO2,KAPNO,& -KRO2NO3,KNO3AL,KDEC,KROPRIM,KROSEC,& -KCH3O2,K298CH3O2,K16ISOM1,K15ISOM1,K14ISOM1,& -KD0,KDI,KRD,FCD,NCD,& -FD,KBPAN,KC0,KCI,KRC,& -FCC,NC,FC,KFPAN,K10,& -K1I,KR1,FC1,NC1,F1,& -KMT01,K20,K2I,KR2,FC2,& -NC2,F2xx,KMT02,K30,K3I,& -KR3,FC3,NC3,F3,KMT03,& -K40,K4I,KR4,FC4,NC4,& -F4,KMT04,KMT05,KMT06,K70,& -K7I,KR7,FC7,NC7,F7,& -KMT07,K80,K8I,KR8,FC8,& -NC8,F8,KMT08,K90,K9I,& -KR9,FC9,NC9,F9,KMT09,& -K100,K10I,KR10,FC10,NC10,& -F10,KMT10,K1,K3,K4,& -K2,KMT11,K120,K12I,KR12,& -FC12,NC12,F12,KMT12,K130,& -K13I,KR13,FC13,NC13,F13,& -KMT13,K140,K14I,KR14,FC14,& -NC14,F14,KMT14,K150,K15I,& -KR15,FC15,NC15,F15,KMT15,& -K160,K16I,KR16,FC16,NC16,& -F16,KMT16,K170,K17I,KR17,& -FC17,NC17,F17,KMT17,KMT18,& -KPPN0,KPPNI,KRPPN,FCPPN,NCPPN,FPPN,KBPPN - - -! INLINED global variable declarations - - -END MODULE MCMv3_3_Global - diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Global.o b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Global.o deleted file mode 100644 index 351a230571fee6555156e800aa33cf6bb661316e..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Global.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Initialize.f90 b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Initialize.f90 deleted file mode 100644 index 2deab7d853ec8855741b27ad0297633009311133..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Initialize.f90 +++ /dev/null @@ -1,115 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Initialization File -! -! Generated by KPP-2.2.3 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 : MCMv3_3_Initialize.f90 -! Time : Mon Jul 19 14:16:06 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MCMv3_3_3654_BOXMOX -! Equation file : MCMv3_3.kpp -! Output root filename : MCMv3_3 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MCMv3_3_Initialize - - USE MCMv3_3_Parameters, ONLY: dp, NVAR, NFIX - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Initialize - function to initialize concentrations -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Initialize ( ) - - - USE MCMv3_3_Global - - USE MCMv3_3_Util - - INTEGER :: i - REAL(kind=dp) :: x - - CFACTOR = 1.000000e+00_dp - - x = (1.0E-9)*CFACTOR - DO i = 1, NVAR - VAR(i) = x - END DO - - x = (1.0E-9)*CFACTOR - DO i = 1, NFIX - FIX(i) = x - END DO - -! constant rate coefficients - RCONST(1) = 1e-20 - RCONST(2595) = 9.258e-11 - RCONST(7295) = 1.867e-11 - RCONST(7296) = 1.513e-11 - RCONST(7298) = 1.865e-11 -! END constant rate coefficients - -! INLINED initializations - - - IF (.NOT. llibrary) THEN - - ! Write version number to VERSION file - CALL writeVersion() - - ! Initialization (time step, run length, etc.) happening - ! in namelist BOXMOX.nml. Read it! - CALL readConfig() - - ENDIF - - ! Check configuration values - CALL checkConfig() - - - - ! BOXMOX defaults for global variables - - ! Environment.csv - temp = 293.15 ! K - pres = 101325.0 ! Pa - dxdydz(:) = 1.0 ! m - - ! Aerosol.csv - AER_SAD = 0.0 ! m^2 m^-3 - AER_R = 1.0e-6 ! m - - ! Turbulent mixing - Kturb = 0.0 ! m2 s-1 - - -! End INLINED initializations - - -END SUBROUTINE Initialize - -! End of Initialize function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE MCMv3_3_Initialize - diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Initialize.o b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Initialize.o deleted file mode 100644 index 2c2d401c3c5e131e16e2f31d272d7fc4d828e6d1..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Initialize.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Integrator.f90 b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Integrator.f90 deleted file mode 100644 index 0de56bf7a3f5ceeb18ef440772cd81794fa8f52c..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Integrator.f90 +++ /dev/null @@ -1,1365 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Numerical Integrator (Time-Stepping) File -! -! Generated by KPP-2.2.3 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 : MCMv3_3_Integrator.f90 -! Time : Mon Jul 19 14:16:06 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MCMv3_3_3654_BOXMOX -! Equation file : MCMv3_3.kpp -! Output root filename : MCMv3_3 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! INTEGRATE - Integrator routine -! Arguments : -! TIN - Start Time for Integration -! TOUT - End Time for Integration -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! -! Rosenbrock - Implementation of several Rosenbrock methods: ! -! * Ros2 ! -! * Ros3 ! -! * Ros4 ! -! * Rodas3 ! -! * Rodas4 ! -! By default the code employs the KPP sparse linear algebra routines ! -! Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK) ! -! ! -! (C) Adrian Sandu, August 2004 ! -! Virginia Polytechnic Institute and State University ! -! Contact: sandu@cs.vt.edu ! -! Revised by Philipp Miehe and Adrian Sandu, May 2006 ! ! -! This implementation is part of KPP - the Kinetic PreProcessor ! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! - -MODULE MCMv3_3_Integrator - - USE MCMv3_3_Parameters, ONLY: NVAR, NFIX, NSPEC, LU_NONZERO - USE MCMv3_3_Global - IMPLICIT NONE - PUBLIC - SAVE - -!~~~> Statistics on the work performed by the Rosenbrock method - INTEGER, PARAMETER :: Nfun=1, Njac=2, Nstp=3, Nacc=4, & - Nrej=5, Ndec=6, Nsol=7, Nsng=8, & - Ntexit=1, Nhexit=2, Nhnew = 3 - -CONTAINS - -SUBROUTINE INTEGRATE( TIN, TOUT, & - ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U, IERR_U ) - - IMPLICIT NONE - - REAL(kind=dp), INTENT(IN) :: TIN ! Start Time - REAL(kind=dp), INTENT(IN) :: TOUT ! End Time - ! Optional input parameters and statistics - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - REAL(kind=dp), INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - REAL(kind=dp), INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: IERR_U - - REAL(kind=dp) :: RCNTRL(20), RSTATUS(20) - INTEGER :: ICNTRL(20), ISTATUS(20), IERR - - INTEGER, SAVE :: Ntotal = 0 - - ICNTRL(:) = 0 - RCNTRL(:) = 0.0_dp - ISTATUS(:) = 0 - RSTATUS(:) = 0.0_dp - - !~~~> fine-tune the integrator: - ICNTRL(1) = 0 ! 0 - non-autonomous, 1 - autonomous - ICNTRL(2) = 0 ! 0 - vector tolerances, 1 - scalars - - ! If optional parameters are given, and if they are >0, - ! then they overwrite default settings. - IF (PRESENT(ICNTRL_U)) THEN - WHERE(ICNTRL_U(:) > 0) ICNTRL(:) = ICNTRL_U(:) - END IF - IF (PRESENT(RCNTRL_U)) THEN - WHERE(RCNTRL_U(:) > 0) RCNTRL(:) = RCNTRL_U(:) - END IF - - - CALL Rosenbrock(NVAR,VAR,TIN,TOUT, & - ATOL,RTOL, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) - - !~~~> Debug option: show no of steps - ! Ntotal = Ntotal + ISTATUS(Nstp) - ! PRINT*,'NSTEPS=',ISTATUS(Nstp),' (',Ntotal,')',' O3=', VAR(ind_O3) - - STEPMIN = RSTATUS(Nhexit) - ! if optional parameters are given for output they - ! are updated with the return information - IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(:) - IF (PRESENT(RSTATUS_U)) RSTATUS_U(:) = RSTATUS(:) - IF (PRESENT(IERR_U)) IERR_U = IERR - -END SUBROUTINE INTEGRATE - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE Rosenbrock(N,Y,Tstart,Tend, & - AbsTol,RelTol, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Solves the system y'=F(t,y) using a Rosenbrock method defined by: -! -! G = 1/(H*gamma(1)) - Jac(t0,Y0) -! T_i = t0 + Alpha(i)*H -! Y_i = Y0 + \sum_{j=1}^{i-1} A(i,j)*K_j -! G * K_i = Fun( T_i, Y_i ) + \sum_{j=1}^S C(i,j)/H * K_j + -! gamma(i)*dF/dT(t0, Y0) -! Y1 = Y0 + \sum_{j=1}^S M(j)*K_j -! -! For details on Rosenbrock methods and their implementation consult: -! E. Hairer and G. Wanner -! "Solving ODEs II. Stiff and differential-algebraic problems". -! Springer series in computational mathematics, Springer-Verlag, 1996. -! The codes contained in the book inspired this implementation. -! -! (C) Adrian Sandu, August 2004 -! Virginia Polytechnic Institute and State University -! Contact: sandu@cs.vt.edu -! Revised by Philipp Miehe and Adrian Sandu, May 2006 -! This implementation is part of KPP - the Kinetic PreProcessor -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT ARGUMENTS: -! -!- Y(N) = vector of initial conditions (at T=Tstart) -!- [Tstart,Tend] = time range of integration -! (if Tstart>Tend the integration is performed backwards in time) -!- RelTol, AbsTol = user precribed accuracy -!- SUBROUTINE Fun( T, Y, Ydot ) = ODE function, -! returns Ydot = Y' = F(T,Y) -!- SUBROUTINE Jac( T, Y, Jcb ) = Jacobian of the ODE function, -! returns Jcb = dFun/dY -!- ICNTRL(1:20) = integer inputs parameters -!- RCNTRL(1:20) = real inputs parameters -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT ARGUMENTS: -! -!- Y(N) -> vector of final states (at T->Tend) -!- ISTATUS(1:20) -> integer output parameters -!- RSTATUS(1:20) -> real output parameters -!- IERR -> job status upon return -! success (positive value) or -! failure (negative value) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT PARAMETERS: -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -! ICNTRL(1) = 1: F = F(y) Independent of T (AUTONOMOUS) -! = 0: F = F(t,y) Depends on T (NON-AUTONOMOUS) -! -! ICNTRL(2) = 0: AbsTol, RelTol are N-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ICNTRL(3) -> selection of a particular Rosenbrock method -! = 0 : Rodas3 (default) -! = 1 : Ros2 -! = 2 : Ros3 -! = 3 : Ros4 -! = 4 : Rodas3 -! = 5 : Rodas4 -! -! ICNTRL(4) -> maximum number of integration steps -! For ICNTRL(4)=0) the default value of 100000 is used -! -! RCNTRL(1) -> Hmin, lower bound for the integration step size -! It is strongly recommended to keep Hmin = ZERO -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! RCNTRL(3) -> Hstart, starting value for the integration step size -! -! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! RCNTRL(5) -> FacMax, upper bound on step increase factor (default=6) -! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! -! OUTPUT ARGUMENTS: -! ----------------- -! -! T -> T value for which the solution has been computed -! (after successful return T=Tend). -! -! Y(N) -> Numerical solution at T -! -! IDID -> Reports on successfulness upon return: -! = 1 for success -! < 0 for error (value equals error code) -! -! ISTATUS(1) -> No. of function calls -! ISTATUS(2) -> No. of jacobian calls -! ISTATUS(3) -> No. of steps -! ISTATUS(4) -> No. of accepted steps -! ISTATUS(5) -> No. of rejected steps (except at very beginning) -! ISTATUS(6) -> No. of LU decompositions -! ISTATUS(7) -> No. of forward/backward substitutions -! ISTATUS(8) -> No. of singular matrix decompositions -! -! RSTATUS(1) -> Texit, the time corresponding to the -! computed Y upon return -! RSTATUS(2) -> Hexit, last accepted step before exit -! RSTATUS(3) -> Hnew, last predicted step (not yet taken) -! For multiple restarts, use Hnew as Hstart -! in the subsequent run -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MCMv3_3_Parameters - USE MCMv3_3_LinearAlgebra - IMPLICIT NONE - -!~~~> Arguments - INTEGER, INTENT(IN) :: N - REAL(kind=dp), INTENT(INOUT) :: Y(N) - REAL(kind=dp), INTENT(IN) :: Tstart,Tend - REAL(kind=dp), INTENT(IN) :: AbsTol(N),RelTol(N) - INTEGER, INTENT(IN) :: ICNTRL(20) - REAL(kind=dp), INTENT(IN) :: RCNTRL(20) - INTEGER, INTENT(INOUT) :: ISTATUS(20) - REAL(kind=dp), INTENT(INOUT) :: RSTATUS(20) - INTEGER, INTENT(OUT) :: IERR -!~~~> Parameters of the Rosenbrock method, up to 6 stages - INTEGER :: ros_S, rosMethod - INTEGER, PARAMETER :: RS2=1, RS3=2, RS4=3, RD3=4, RD4=5, RG3=6 - REAL(kind=dp) :: ros_A(15), ros_C(15), ros_M(6), ros_E(6), & - ros_Alpha(6), ros_Gamma(6), ros_ELO - LOGICAL :: ros_NewF(6) - CHARACTER(LEN=12) :: ros_Name -!~~~> Local variables - REAL(kind=dp) :: Roundoff, FacMin, FacMax, FacRej, FacSafe - REAL(kind=dp) :: Hmin, Hmax, Hstart - REAL(kind=dp) :: Texit - INTEGER :: i, UplimTol, Max_no_steps - LOGICAL :: Autonomous, VectorTol -!~~~> Parameters - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp - REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp - -!~~~> Initialize statistics - ISTATUS(1:8) = 0 - RSTATUS(1:3) = ZERO - -!~~~> Autonomous or time dependent ODE. Default is time dependent. - Autonomous = .NOT.(ICNTRL(1) == 0) - -!~~~> For Scalar tolerances (ICNTRL(2).NE.0) the code uses AbsTol(1) and RelTol(1) -! For Vector tolerances (ICNTRL(2) == 0) the code uses AbsTol(1:N) and RelTol(1:N) - IF (ICNTRL(2) == 0) THEN - VectorTol = .TRUE. - UplimTol = N - ELSE - VectorTol = .FALSE. - UplimTol = 1 - END IF - -!~~~> Initialize the particular Rosenbrock method selected - SELECT CASE (ICNTRL(3)) - CASE (1) - CALL Ros2 - CASE (2) - CALL Ros3 - CASE (3) - CALL Ros4 - CASE (0,4) - CALL Rodas3 - CASE (5) - CALL Rodas4 - CASE (6) - CALL Rang3 - CASE DEFAULT - PRINT * , 'Unknown Rosenbrock method: ICNTRL(3)=',ICNTRL(3) - CALL ros_ErrorMsg(-2,Tstart,ZERO,IERR) - RETURN - END SELECT - -!~~~> The maximum number of steps admitted - IF (ICNTRL(4) == 0) THEN - Max_no_steps = 200000 - ELSEIF (ICNTRL(4) > 0) THEN - Max_no_steps=ICNTRL(4) - ELSE - PRINT * ,'User-selected max no. of steps: ICNTRL(4)=',ICNTRL(4) - CALL ros_ErrorMsg(-1,Tstart,ZERO,IERR) - RETURN - END IF - -!~~~> Unit roundoff (1+Roundoff>1) - Roundoff = WLAMCH('E') - -!~~~> Lower bound on the step size: (positive value) - IF (RCNTRL(1) == ZERO) THEN - Hmin = ZERO - ELSEIF (RCNTRL(1) > ZERO) THEN - Hmin = RCNTRL(1) - ELSE - PRINT * , 'User-selected Hmin: RCNTRL(1)=', RCNTRL(1) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Upper bound on the step size: (positive value) - IF (RCNTRL(2) == ZERO) THEN - Hmax = ABS(Tend-Tstart) - ELSEIF (RCNTRL(2) > ZERO) THEN - Hmax = MIN(ABS(RCNTRL(2)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hmax: RCNTRL(2)=', RCNTRL(2) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Starting step size: (positive value) - IF (RCNTRL(3) == ZERO) THEN - Hstart = MAX(Hmin,DeltaMin) - ELSEIF (RCNTRL(3) > ZERO) THEN - Hstart = MIN(ABS(RCNTRL(3)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hstart: RCNTRL(3)=', RCNTRL(3) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Step size can be changed s.t. FacMin < Hnew/Hold < FacMax - IF (RCNTRL(4) == ZERO) THEN - FacMin = 0.2_dp - ELSEIF (RCNTRL(4) > ZERO) THEN - FacMin = RCNTRL(4) - ELSE - PRINT * , 'User-selected FacMin: RCNTRL(4)=', RCNTRL(4) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF - IF (RCNTRL(5) == ZERO) THEN - FacMax = 6.0_dp - ELSEIF (RCNTRL(5) > ZERO) THEN - FacMax = RCNTRL(5) - ELSE - PRINT * , 'User-selected FacMax: RCNTRL(5)=', RCNTRL(5) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacRej: Factor to decrease step after 2 succesive rejections - IF (RCNTRL(6) == ZERO) THEN - FacRej = 0.1_dp - ELSEIF (RCNTRL(6) > ZERO) THEN - FacRej = RCNTRL(6) - ELSE - PRINT * , 'User-selected FacRej: RCNTRL(6)=', RCNTRL(6) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacSafe: Safety Factor in the computation of new step size - IF (RCNTRL(7) == ZERO) THEN - FacSafe = 0.9_dp - ELSEIF (RCNTRL(7) > ZERO) THEN - FacSafe = RCNTRL(7) - ELSE - PRINT * , 'User-selected FacSafe: RCNTRL(7)=', RCNTRL(7) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Check if tolerances are reasonable - DO i=1,UplimTol - IF ( (AbsTol(i) <= ZERO) .OR. (RelTol(i) <= 10.0_dp*Roundoff) & - .OR. (RelTol(i) >= 1.0_dp) ) THEN - PRINT * , ' AbsTol(',i,') = ',AbsTol(i) - PRINT * , ' RelTol(',i,') = ',RelTol(i) - CALL ros_ErrorMsg(-5,Tstart,ZERO,IERR) - RETURN - END IF - END DO - - -!~~~> CALL Rosenbrock method - CALL ros_Integrator(Y, Tstart, Tend, Texit, & - AbsTol, RelTol, & -! Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -! Error indicator - IERR) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -CONTAINS ! SUBROUTINES internal to Rosenbrock -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_ErrorMsg(Code,T,H,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - REAL(kind=dp), INTENT(IN) :: T, H - INTEGER, INTENT(IN) :: Code - INTEGER, INTENT(OUT) :: IERR - - IERR = Code - PRINT * , & - 'Forced exit from Rosenbrock due to the following error:' - - SELECT CASE (Code) - CASE (-1) - PRINT * , '--> Improper value for maximal no of steps' - CASE (-2) - PRINT * , '--> Selected Rosenbrock method not implemented' - CASE (-3) - PRINT * , '--> Hmin/Hmax/Hstart must be positive' - CASE (-4) - PRINT * , '--> FacMin/FacMax/FacRej must be positive' - CASE (-5) - PRINT * , '--> Improper tolerance values' - CASE (-6) - PRINT * , '--> No of steps exceeds maximum bound' - CASE (-7) - PRINT * , '--> Step size too small: T + 10*H = T', & - ' or H < Roundoff' - CASE (-8) - PRINT * , '--> Matrix is repeatedly singular' - CASE DEFAULT - PRINT *, 'Unknown Error code: ', Code - END SELECT - - PRINT *, "T=", T, "and H=", H - - END SUBROUTINE ros_ErrorMsg - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Integrator (Y, Tstart, Tend, T, & - AbsTol, RelTol, & -!~~~> Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -!~~~> Error indicator - IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the implementation of a generic Rosenbrock method -! defined by ros_S (no of stages) -! and its coefficients ros_{A,C,M,E,Alpha,Gamma} -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - -!~~~> Input: the initial condition at Tstart; Output: the solution at T - REAL(kind=dp), INTENT(INOUT) :: Y(N) -!~~~> Input: integration interval - REAL(kind=dp), INTENT(IN) :: Tstart,Tend -!~~~> Output: time at which the solution is returned (T=Tend if success) - REAL(kind=dp), INTENT(OUT) :: T -!~~~> Input: tolerances - REAL(kind=dp), INTENT(IN) :: AbsTol(N), RelTol(N) -!~~~> Input: integration parameters - LOGICAL, INTENT(IN) :: Autonomous, VectorTol - REAL(kind=dp), INTENT(IN) :: Hstart, Hmin, Hmax - INTEGER, INTENT(IN) :: Max_no_steps - REAL(kind=dp), INTENT(IN) :: Roundoff, FacMin, FacMax, FacRej, FacSafe -!~~~> Output: Error indicator - INTEGER, INTENT(OUT) :: IERR -! ~~~~ Local variables - REAL(kind=dp) :: Ynew(N), Fcn0(N), Fcn(N) - REAL(kind=dp) :: K(N*ros_S), dFdT(N) -#ifdef FULL_ALGEBRA - REAL(kind=dp) :: Jac0(N,N), Ghimj(N,N) -#else - REAL(kind=dp) :: Jac0(LU_NONZERO), Ghimj(LU_NONZERO) -#endif - REAL(kind=dp) :: H, Hnew, HC, HG, Fac, Tau - REAL(kind=dp) :: Err, Yerr(N) - INTEGER :: Pivot(N), Direction, ioffset, j, istage - LOGICAL :: RejectLastH, RejectMoreH, Singular -!~~~> Local parameters - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp - REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp -!~~~> Locally called functions -! REAL(kind=dp) WLAMCH -! EXTERNAL WLAMCH -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~> Initial preparations - T = Tstart - RSTATUS(Nhexit) = ZERO - H = MIN( MAX(ABS(Hmin),ABS(Hstart)) , ABS(Hmax) ) - IF (ABS(H) <= 10.0_dp*Roundoff) H = DeltaMin - - IF (Tend >= Tstart) THEN - Direction = +1 - ELSE - Direction = -1 - END IF - H = Direction*H - - RejectLastH=.FALSE. - RejectMoreH=.FALSE. - -!~~~> Time loop begins below - -TimeLoop: DO WHILE ( (Direction > 0).AND.((T-Tend)+Roundoff <= ZERO) & - .OR. (Direction < 0).AND.((Tend-T)+Roundoff <= ZERO) ) - - IF ( ISTATUS(Nstp) > Max_no_steps ) THEN ! Too many steps - CALL ros_ErrorMsg(-6,T,H,IERR) - RETURN - END IF - IF ( ((T+0.1_dp*H) == T).OR.(H <= Roundoff) ) THEN ! Step size too small - CALL ros_ErrorMsg(-7,T,H,IERR) - RETURN - END IF - -!~~~> Limit H if necessary to avoid going beyond Tend - H = MIN(H,ABS(Tend-T)) - -!~~~> Compute the function at current time - CALL FunTemplate(T,Y,Fcn0) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - -!~~~> Compute the function derivative with respect to T - IF (.NOT.Autonomous) THEN - CALL ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) - END IF - -!~~~> Compute the Jacobian at current time - CALL JacTemplate(T,Y,Jac0) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - -!~~~> Repeat step calculation until current step accepted -UntilAccepted: DO - - CALL ros_PrepareMatrix(H,Direction,ros_Gamma(1), & - Jac0,Ghimj,Pivot,Singular) - IF (Singular) THEN ! More than 5 consecutive failed decompositions - CALL ros_ErrorMsg(-8,T,H,IERR) - RETURN - END IF - -!~~~> Compute the stages -Stage: DO istage = 1, ros_S - - ! Current istage offset. Current istage vector is K(ioffset+1:ioffset+N) - ioffset = N*(istage-1) - - ! For the 1st istage the function has been computed previously - IF ( istage == 1 ) THEN - !slim: CALL WCOPY(N,Fcn0,1,Fcn,1) - Fcn(1:N) = Fcn0(1:N) - ! istage>1 and a new function evaluation is needed at the current istage - ELSEIF ( ros_NewF(istage) ) THEN - !slim: CALL WCOPY(N,Y,1,Ynew,1) - Ynew(1:N) = Y(1:N) - DO j = 1, istage-1 - CALL WAXPY(N,ros_A((istage-1)*(istage-2)/2+j), & - K(N*(j-1)+1),1,Ynew,1) - END DO - Tau = T + ros_Alpha(istage)*Direction*H - CALL FunTemplate(Tau,Ynew,Fcn) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - END IF ! if istage == 1 elseif ros_NewF(istage) - !slim: CALL WCOPY(N,Fcn,1,K(ioffset+1),1) - K(ioffset+1:ioffset+N) = Fcn(1:N) - DO j = 1, istage-1 - HC = ros_C((istage-1)*(istage-2)/2+j)/(Direction*H) - CALL WAXPY(N,HC,K(N*(j-1)+1),1,K(ioffset+1),1) - END DO - IF ((.NOT. Autonomous).AND.(ros_Gamma(istage).NE.ZERO)) THEN - HG = Direction*H*ros_Gamma(istage) - CALL WAXPY(N,HG,dFdT,1,K(ioffset+1),1) - END IF - CALL ros_Solve(Ghimj, Pivot, K(ioffset+1)) - - END DO Stage - - -!~~~> Compute the new solution - !slim: CALL WCOPY(N,Y,1,Ynew,1) - Ynew(1:N) = Y(1:N) - DO j=1,ros_S - CALL WAXPY(N,ros_M(j),K(N*(j-1)+1),1,Ynew,1) - END DO - -!~~~> Compute the error estimation - !slim: CALL WSCAL(N,ZERO,Yerr,1) - Yerr(1:N) = ZERO - DO j=1,ros_S - CALL WAXPY(N,ros_E(j),K(N*(j-1)+1),1,Yerr,1) - END DO - Err = ros_ErrorNorm ( Y, Ynew, Yerr, AbsTol, RelTol, VectorTol ) - -!~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax - Fac = MIN(FacMax,MAX(FacMin,FacSafe/Err**(ONE/ros_ELO))) - Hnew = H*Fac - -!~~~> Check the error magnitude and adjust step size - ISTATUS(Nstp) = ISTATUS(Nstp) + 1 - IF ( (Err <= ONE).OR.(H <= Hmin) ) THEN !~~~> Accept step - ISTATUS(Nacc) = ISTATUS(Nacc) + 1 - !slim: CALL WCOPY(N,Ynew,1,Y,1) - Y(1:N) = Ynew(1:N) - T = T + Direction*H - Hnew = MAX(Hmin,MIN(Hnew,Hmax)) - IF (RejectLastH) THEN ! No step size increase after a rejected step - Hnew = MIN(Hnew,H) - END IF - RSTATUS(Nhexit) = H - RSTATUS(Nhnew) = Hnew - RSTATUS(Ntexit) = T - RejectLastH = .FALSE. - RejectMoreH = .FALSE. - H = Hnew - EXIT UntilAccepted ! EXIT THE LOOP: WHILE STEP NOT ACCEPTED - ELSE !~~~> Reject step - IF (RejectMoreH) THEN - Hnew = H*FacRej - END IF - RejectMoreH = RejectLastH - RejectLastH = .TRUE. - H = Hnew - IF (ISTATUS(Nacc) >= 1) ISTATUS(Nrej) = ISTATUS(Nrej) + 1 - END IF ! Err <= 1 - - END DO UntilAccepted - - END DO TimeLoop - -!~~~> Succesful exit - IERR = 1 !~~~> The integration was successful - - END SUBROUTINE ros_Integrator - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - REAL(kind=dp) FUNCTION ros_ErrorNorm ( Y, Ynew, Yerr, & - AbsTol, RelTol, VectorTol ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Computes the "scaled norm" of the error vector Yerr -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -! Input arguments - REAL(kind=dp), INTENT(IN) :: Y(N), Ynew(N), & - Yerr(N), AbsTol(N), RelTol(N) - LOGICAL, INTENT(IN) :: VectorTol -! Local variables - REAL(kind=dp) :: Err, Scale, Ymax - INTEGER :: i - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp - - Err = ZERO - DO i=1,N - Ymax = MAX(ABS(Y(i)),ABS(Ynew(i))) - IF (VectorTol) THEN - Scale = AbsTol(i)+RelTol(i)*Ymax - ELSE - Scale = AbsTol(1)+RelTol(1)*Ymax - END IF - Err = Err+(Yerr(i)/Scale)**2 - END DO - Err = SQRT(Err/N) - - ros_ErrorNorm = MAX(Err,1.0d-10) - - END FUNCTION ros_ErrorNorm - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> The time partial derivative of the function by finite differences -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -!~~~> Input arguments - REAL(kind=dp), INTENT(IN) :: T, Roundoff, Y(N), Fcn0(N) -!~~~> Output arguments - REAL(kind=dp), INTENT(OUT) :: dFdT(N) -!~~~> Local variables - REAL(kind=dp) :: Delta - REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, DeltaMin = 1.0E-6_dp - - Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T)) - CALL FunTemplate(T+Delta,Y,dFdT) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - CALL WAXPY(N,(-ONE),Fcn0,1,dFdT,1) - CALL WSCAL(N,(ONE/Delta),dFdT,1) - - END SUBROUTINE ros_FunTimeDerivative - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_PrepareMatrix ( H, Direction, gam, & - Jac0, Ghimj, Pivot, Singular ) -! --- --- --- --- --- --- --- --- --- --- --- --- --- -! Prepares the LHS matrix for stage calculations -! 1. Construct Ghimj = 1/(H*ham) - Jac0 -! "(Gamma H) Inverse Minus Jacobian" -! 2. Repeat LU decomposition of Ghimj until successful. -! -half the step size if LU decomposition fails and retry -! -exit after 5 consecutive fails -! --- --- --- --- --- --- --- --- --- --- --- --- --- - IMPLICIT NONE - -!~~~> Input arguments -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(IN) :: Jac0(N,N) -#else - REAL(kind=dp), INTENT(IN) :: Jac0(LU_NONZERO) -#endif - REAL(kind=dp), INTENT(IN) :: gam - INTEGER, INTENT(IN) :: Direction -!~~~> Output arguments -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(OUT) :: Ghimj(N,N) -#else - REAL(kind=dp), INTENT(OUT) :: Ghimj(LU_NONZERO) -#endif - LOGICAL, INTENT(OUT) :: Singular - INTEGER, INTENT(OUT) :: Pivot(N) -!~~~> Inout arguments - REAL(kind=dp), INTENT(INOUT) :: H ! step size is decreased when LU fails -!~~~> Local variables - INTEGER :: i, ISING, Nconsecutive - REAL(kind=dp) :: ghinv - REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, HALF = 0.5_dp - - Nconsecutive = 0 - Singular = .TRUE. - - DO WHILE (Singular) - -!~~~> Construct Ghimj = 1/(H*gam) - Jac0 -#ifdef FULL_ALGEBRA - !slim: CALL WCOPY(N*N,Jac0,1,Ghimj,1) - !slim: CALL WSCAL(N*N,(-ONE),Ghimj,1) - Ghimj = -Jac0 - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(i,i) = Ghimj(i,i)+ghinv - END DO -#else - !slim: CALL WCOPY(LU_NONZERO,Jac0,1,Ghimj,1) - !slim: CALL WSCAL(LU_NONZERO,(-ONE),Ghimj,1) - Ghimj(1:LU_NONZERO) = -Jac0(1:LU_NONZERO) - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(LU_DIAG(i)) = Ghimj(LU_DIAG(i))+ghinv - END DO -#endif -!~~~> Compute LU decomposition - CALL ros_Decomp( Ghimj, Pivot, ISING ) - IF (ISING == 0) THEN -!~~~> If successful done - Singular = .FALSE. - ELSE ! ISING .ne. 0 -!~~~> If unsuccessful half the step size; if 5 consecutive fails then return - ISTATUS(Nsng) = ISTATUS(Nsng) + 1 - Nconsecutive = Nconsecutive+1 - Singular = .TRUE. - PRINT*,'Warning: LU Decomposition returned ISING = ',ISING - IF (Nconsecutive <= 5) THEN ! Less than 5 consecutive failed decompositions - H = H*HALF - ELSE ! More than 5 consecutive failed decompositions - RETURN - END IF ! Nconsecutive - END IF ! ISING - - END DO ! WHILE Singular - - END SUBROUTINE ros_PrepareMatrix - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Decomp( A, Pivot, ISING ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the LU decomposition -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Inout variables -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(INOUT) :: A(N,N) -#else - REAL(kind=dp), INTENT(INOUT) :: A(LU_NONZERO) -#endif -!~~~> Output variables - INTEGER, INTENT(OUT) :: Pivot(N), ISING - -#ifdef FULL_ALGEBRA - CALL DGETRF( N, N, A, N, Pivot, ISING ) -#else - CALL KppDecomp ( A, ISING ) - Pivot(1) = 1 -#endif - ISTATUS(Ndec) = ISTATUS(Ndec) + 1 - - END SUBROUTINE ros_Decomp - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Solve( A, Pivot, b ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the forward/backward substitution (using pre-computed LU decomposition) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Input variables -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(IN) :: A(N,N) - INTEGER :: ISING -#else - REAL(kind=dp), INTENT(IN) :: A(LU_NONZERO) -#endif - INTEGER, INTENT(IN) :: Pivot(N) -!~~~> InOut variables - REAL(kind=dp), INTENT(INOUT) :: b(N) - -#ifdef FULL_ALGEBRA - CALL DGETRS( 'N', N , 1, A, N, Pivot, b, N, ISING ) - IF ( Info < 0 ) THEN - PRINT*,"Error in DGETRS. ISING=",ISING - END IF -#else - CALL KppSolve( A, b ) -#endif - - ISTATUS(Nsol) = ISTATUS(Nsol) + 1 - - END SUBROUTINE ros_Solve - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 2 stages, order 2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - DOUBLE PRECISION g - - g = 1.0_dp + 1.0_dp/SQRT(2.0_dp) - rosMethod = RS2 -!~~~> Name of the method - ros_Name = 'ROS-2' -!~~~> Number of stages - ros_S = 2 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = (1.0_dp)/g - ros_C(1) = (-2.0_dp)/g -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1)= (3.0_dp)/(2.0_dp*g) - ros_M(2)= (1.0_dp)/(2.0_dp*g) -! E_i = Coefficients for error estimator - ros_E(1) = 1.0_dp/(2.0_dp*g) - ros_E(2) = 1.0_dp/(2.0_dp*g) -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus one - ros_ELO = 2.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 1.0_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = g - ros_Gamma(2) =-g - - END SUBROUTINE Ros2 - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 3 stages, order 3, 2 function evaluations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - rosMethod = RS3 -!~~~> Name of the method - ros_Name = 'ROS-3' -!~~~> Number of stages - ros_S = 3 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1)= 1.0_dp - ros_A(2)= 1.0_dp - ros_A(3)= 0.0_dp - - ros_C(1) = -0.10156171083877702091975600115545E+01_dp - ros_C(2) = 0.40759956452537699824805835358067E+01_dp - ros_C(3) = 0.92076794298330791242156818474003E+01_dp -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.1E+01_dp - ros_M(2) = 0.61697947043828245592553615689730E+01_dp - ros_M(3) = -0.42772256543218573326238373806514_dp -! E_i = Coefficients for error estimator - ros_E(1) = 0.5_dp - ros_E(2) = -0.29079558716805469821718236208017E+01_dp - ros_E(3) = 0.22354069897811569627360909276199_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1)= 0.0_dp - ros_Alpha(2)= 0.43586652150845899941601945119356_dp - ros_Alpha(3)= 0.43586652150845899941601945119356_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1)= 0.43586652150845899941601945119356_dp - ros_Gamma(2)= 0.24291996454816804366592249683314_dp - ros_Gamma(3)= 0.21851380027664058511513169485832E+01_dp - - END SUBROUTINE Ros3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! L-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 4 STAGES -! L-STABLE EMBEDDED ROSENBROCK METHOD OF ORDER 3 -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1990) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RS4 -!~~~> Name of the method - ros_Name = 'ROS-4' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.2000000000000000E+01_dp - ros_A(2) = 0.1867943637803922E+01_dp - ros_A(3) = 0.2344449711399156_dp - ros_A(4) = ros_A(2) - ros_A(5) = ros_A(3) - ros_A(6) = 0.0_dp - - ros_C(1) =-0.7137615036412310E+01_dp - ros_C(2) = 0.2580708087951457E+01_dp - ros_C(3) = 0.6515950076447975_dp - ros_C(4) =-0.2137148994382534E+01_dp - ros_C(5) =-0.3214669691237626_dp - ros_C(6) =-0.6949742501781779_dp -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.2255570073418735E+01_dp - ros_M(2) = 0.2870493262186792_dp - ros_M(3) = 0.4353179431840180_dp - ros_M(4) = 0.1093502252409163E+01_dp -!~~~> E_i = Coefficients for error estimator - ros_E(1) =-0.2815431932141155_dp - ros_E(2) =-0.7276199124938920E-01_dp - ros_E(3) =-0.1082196201495311_dp - ros_E(4) =-0.1093502252409163E+01_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 0.1145640000000000E+01_dp - ros_Alpha(3) = 0.6552168638155900_dp - ros_Alpha(4) = ros_Alpha(3) -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5728200000000000_dp - ros_Gamma(2) =-0.1769193891319233E+01_dp - ros_Gamma(3) = 0.7592633437920482_dp - ros_Gamma(4) =-0.1049021087100450_dp - - END SUBROUTINE Ros4 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- A STIFFLY-STABLE METHOD, 4 stages, order 3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD3 -!~~~> Name of the method - ros_Name = 'RODAS-3' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.0_dp - ros_A(2) = 2.0_dp - ros_A(3) = 0.0_dp - ros_A(4) = 2.0_dp - ros_A(5) = 0.0_dp - ros_A(6) = 1.0_dp - - ros_C(1) = 4.0_dp - ros_C(2) = 1.0_dp - ros_C(3) =-1.0_dp - ros_C(4) = 1.0_dp - ros_C(5) =-1.0_dp - ros_C(6) =-(8.0_dp/3.0_dp) - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .FALSE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 2.0_dp - ros_M(2) = 0.0_dp - ros_M(3) = 1.0_dp - ros_M(4) = 1.0_dp -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0_dp - ros_E(2) = 0.0_dp - ros_E(3) = 0.0_dp - ros_E(4) = 1.0_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 0.0_dp - ros_Alpha(3) = 1.0_dp - ros_Alpha(4) = 1.0_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5_dp - ros_Gamma(2) = 1.5_dp - ros_Gamma(3) = 0.0_dp - ros_Gamma(4) = 0.0_dp - - END SUBROUTINE Rodas3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 6 STAGES -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1996) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD4 -!~~~> Name of the method - ros_Name = 'RODAS-4' -!~~~> Number of stages - ros_S = 6 - -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.000_dp - ros_Alpha(2) = 0.386_dp - ros_Alpha(3) = 0.210_dp - ros_Alpha(4) = 0.630_dp - ros_Alpha(5) = 1.000_dp - ros_Alpha(6) = 1.000_dp - -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.2500000000000000_dp - ros_Gamma(2) =-0.1043000000000000_dp - ros_Gamma(3) = 0.1035000000000000_dp - ros_Gamma(4) =-0.3620000000000023E-01_dp - ros_Gamma(5) = 0.0_dp - ros_Gamma(6) = 0.0_dp - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.1544000000000000E+01_dp - ros_A(2) = 0.9466785280815826_dp - ros_A(3) = 0.2557011698983284_dp - ros_A(4) = 0.3314825187068521E+01_dp - ros_A(5) = 0.2896124015972201E+01_dp - ros_A(6) = 0.9986419139977817_dp - ros_A(7) = 0.1221224509226641E+01_dp - ros_A(8) = 0.6019134481288629E+01_dp - ros_A(9) = 0.1253708332932087E+02_dp - ros_A(10) =-0.6878860361058950_dp - ros_A(11) = ros_A(7) - ros_A(12) = ros_A(8) - ros_A(13) = ros_A(9) - ros_A(14) = ros_A(10) - ros_A(15) = 1.0_dp - - ros_C(1) =-0.5668800000000000E+01_dp - ros_C(2) =-0.2430093356833875E+01_dp - ros_C(3) =-0.2063599157091915_dp - ros_C(4) =-0.1073529058151375_dp - ros_C(5) =-0.9594562251023355E+01_dp - ros_C(6) =-0.2047028614809616E+02_dp - ros_C(7) = 0.7496443313967647E+01_dp - ros_C(8) =-0.1024680431464352E+02_dp - ros_C(9) =-0.3399990352819905E+02_dp - ros_C(10) = 0.1170890893206160E+02_dp - ros_C(11) = 0.8083246795921522E+01_dp - ros_C(12) =-0.7981132988064893E+01_dp - ros_C(13) =-0.3152159432874371E+02_dp - ros_C(14) = 0.1631930543123136E+02_dp - ros_C(15) =-0.6058818238834054E+01_dp - -!~~~> M_i = Coefficients for new step solution - ros_M(1) = ros_A(7) - ros_M(2) = ros_A(8) - ros_M(3) = ros_A(9) - ros_M(4) = ros_A(10) - ros_M(5) = 1.0_dp - ros_M(6) = 1.0_dp - -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0_dp - ros_E(2) = 0.0_dp - ros_E(3) = 0.0_dp - ros_E(4) = 0.0_dp - ros_E(5) = 0.0_dp - ros_E(6) = 1.0_dp - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - ros_NewF(5) = .TRUE. - ros_NewF(6) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0_dp - - END SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rang3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE W METHOD OF ORDER 3, WITH 4 STAGES -! -! J. RANG and L. ANGERMANN -! NEW ROSENBROCK W-METHODS OF ORDER 3 -! FOR PARTIAL DIFFERENTIAL ALGEBRAIC -! EQUATIONS OF INDEX 1 -! BIT Numerical Mathematics (2005) 45: 761-787 -! DOI: 10.1007/s10543-005-0035-y -! Table 4.1-4.2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RG3 -!~~~> Name of the method - ros_Name = 'RANG-3' -!~~~> Number of stages - ros_S = 4 - - ros_A(1) = 5.09052051067020d+00; - ros_A(2) = 5.09052051067020d+00; - ros_A(3) = 0.0d0; - ros_A(4) = 4.97628111010787d+00; - ros_A(5) = 2.77268164715849d-02; - ros_A(6) = 2.29428036027904d-01; - - ros_C(1) = -1.16790812312283d+01; - ros_C(2) = -1.64057326467367d+01; - ros_C(3) = -2.77268164715850d-01; - ros_C(4) = -8.38103960500476d+00; - ros_C(5) = -8.48328409199343d-01; - ros_C(6) = 2.87009860433106d-01; - - ros_M(1) = 5.22582761233094d+00; - ros_M(2) = -5.56971148154165d-01; - ros_M(3) = 3.57979469353645d-01; - ros_M(4) = 1.72337398521064d+00; - - ros_E(1) = -5.16845212784040d+00; - ros_E(2) = -1.26351942603842d+00; - ros_E(3) = -1.11022302462516d-16; - ros_E(4) = 2.22044604925031d-16; - - ros_Alpha(1) = 0.0d00; - ros_Alpha(2) = 2.21878746765329d+00; - ros_Alpha(3) = 2.21878746765329d+00; - ros_Alpha(4) = 1.55392337535788d+00; - - ros_Gamma(1) = 4.35866521508459d-01; - ros_Gamma(2) = -1.78292094614483d+00; - ros_Gamma(3) = -2.46541900496934d+00; - ros_Gamma(4) = -8.05529997906370d-01; - - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp - - END SUBROUTINE Rang3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! End of the set of internal Rosenbrock subroutines -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -END SUBROUTINE Rosenbrock -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE FunTemplate( T, Y, Ydot ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE function call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE MCMv3_3_Parameters, ONLY: NVAR, LU_NONZERO - USE MCMv3_3_Global, ONLY: FIX, RCONST, TIME - USE MCMv3_3_Function, ONLY: Fun - USE MCMv3_3_Rates, ONLY: Update_SUN, Update_RCONST -!~~~> Input variables - REAL(kind=dp) :: T, Y(NVAR) -!~~~> Output variables - REAL(kind=dp) :: Ydot(NVAR) -!~~~> Local variables - REAL(kind=dp) :: Told - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, Ydot ) - TIME = Told - -END SUBROUTINE FunTemplate - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE JacTemplate( T, Y, Jcb ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE Jacobian call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE MCMv3_3_Parameters, ONLY: NVAR, LU_NONZERO - USE MCMv3_3_Global, ONLY: FIX, RCONST, TIME - USE MCMv3_3_Jacobian, ONLY: Jac_SP, LU_IROW, LU_ICOL - USE MCMv3_3_LinearAlgebra - USE MCMv3_3_Rates, ONLY: Update_SUN, Update_RCONST -!~~~> Input variables - REAL(kind=dp) :: T, Y(NVAR) -!~~~> Output variables -#ifdef FULL_ALGEBRA - REAL(kind=dp) :: JV(LU_NONZERO), Jcb(NVAR,NVAR) -#else - REAL(kind=dp) :: Jcb(LU_NONZERO) -#endif -!~~~> Local variables - REAL(kind=dp) :: Told -#ifdef FULL_ALGEBRA - INTEGER :: i, j -#endif - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() -#ifdef FULL_ALGEBRA - CALL Jac_SP(Y, FIX, RCONST, JV) - DO j=1,NVAR - DO i=1,NVAR - Jcb(i,j) = 0.0_dp - END DO - END DO - DO i=1,LU_NONZERO - Jcb(LU_IROW(i),LU_ICOL(i)) = JV(i) - END DO -#else - CALL Jac_SP( Y, FIX, RCONST, Jcb ) -#endif - TIME = Told - -END SUBROUTINE JacTemplate - -END MODULE MCMv3_3_Integrator - - - - -! End of INTEGRATE function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Integrator.o b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Integrator.o deleted file mode 100644 index 3e1c8d37fdad49bb0c9539bf2a1a2da3860ccb61..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Integrator.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Jacobian.f90 b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Jacobian.f90 deleted file mode 100644 index e0ed18220ef09b66bb0f9d2524eacf77e28194c7..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Jacobian.f90 +++ /dev/null @@ -1,180610 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The ODE Jacobian of Chemical Model File -! -! Generated by KPP-2.2.3 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 : MCMv3_3_Jacobian.f90 -! Time : Mon Jul 19 14:16:06 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MCMv3_3_3654_BOXMOX -! Equation file : MCMv3_3.kpp -! Output root filename : MCMv3_3 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MCMv3_3_Jacobian - - USE MCMv3_3_Parameters - USE MCMv3_3_JacobianSP - - USE MCMv3_3_Global - - 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(24046) - -! B(3) = dA(2)/dV(3568) - B(3) = RCT(2) -! B(4) = dA(3)/dV(3568) - B(4) = RCT(3)*V(5258) -! B(5) = dA(3)/dV(5258) - B(5) = RCT(3)*V(3568) -! B(6) = dA(4)/dV(3568) - B(6) = RCT(4)*V(5252) -! B(7) = dA(4)/dV(5252) - B(7) = RCT(4)*V(3568) -! B(8) = dA(5)/dV(3568) - B(8) = RCT(5)*V(5253) -! B(9) = dA(5)/dV(5253) - B(9) = RCT(5)*V(3568) -! B(10) = dA(6)/dV(3568) - B(10) = RCT(6)*V(5253) -! B(11) = dA(6)/dV(5253) - B(11) = RCT(6)*V(3568) -! B(12) = dA(7)/dV(4) - B(12) = RCT(7) -! B(13) = dA(8)/dV(5252) - B(13) = RCT(8)*V(5258) -! B(14) = dA(8)/dV(5258) - B(14) = RCT(8)*V(5252) -! B(15) = dA(9)/dV(5253) - B(15) = RCT(9)*V(5258) -! B(16) = dA(9)/dV(5258) - B(16) = RCT(9)*V(5253) -! B(17) = dA(10)/dV(5252) - B(17) = RCT(10)*2*V(5252) -! B(18) = dA(11)/dV(5252) - B(18) = RCT(11)*V(5256) -! B(19) = dA(11)/dV(5256) - B(19) = RCT(11)*V(5252) -! B(20) = dA(12)/dV(5253) - B(20) = RCT(12)*V(5256) -! B(21) = dA(12)/dV(5256) - B(21) = RCT(12)*V(5253) -! B(22) = dA(13)/dV(5253) - B(22) = RCT(13)*V(5256) -! B(23) = dA(13)/dV(5256) - B(23) = RCT(13)*V(5253) -! B(24) = dA(14)/dV(4) - B(24) = RCT(14) -! B(25) = dA(15)/dV(5250) - B(25) = RCT(15)*V(5258) -! B(26) = dA(15)/dV(5258) - B(26) = RCT(15)*V(5250) -! B(27) = dA(16)/dV(260) - B(27) = RCT(16)*V(5250) -! B(28) = dA(16)/dV(5250) - B(28) = RCT(16)*V(260) -! B(29) = dA(17)/dV(5250) - B(29) = RCT(17)*V(5251) -! B(30) = dA(17)/dV(5251) - B(30) = RCT(17)*V(5250) -! B(31) = dA(18)/dV(5046) - B(31) = RCT(18)*V(5250) -! B(32) = dA(18)/dV(5250) - B(32) = RCT(18)*V(5046) -! B(33) = dA(19)/dV(5255) - B(33) = RCT(19)*V(5258) -! B(34) = dA(19)/dV(5258) - B(34) = RCT(19)*V(5255) -! B(35) = dA(20)/dV(5250) - B(35) = RCT(20)*V(5255) -! B(36) = dA(20)/dV(5255) - B(36) = RCT(20)*V(5250) -! B(37) = dA(21)/dV(5255) - B(37) = RCT(21)*2*V(5255) -! B(38) = dA(22)/dV(5250) - B(38) = RCT(22)*V(5252) -! B(39) = dA(22)/dV(5252) - B(39) = RCT(22)*V(5250) -! B(40) = dA(23)/dV(5250) - B(40) = RCT(23)*V(5253) -! B(41) = dA(23)/dV(5253) - B(41) = RCT(23)*V(5250) -! B(42) = dA(24)/dV(5250) - B(42) = RCT(24)*V(5256) -! B(43) = dA(24)/dV(5256) - B(43) = RCT(24)*V(5250) -! B(44) = dA(25)/dV(5252) - B(44) = RCT(25)*V(5255) -! B(45) = dA(25)/dV(5255) - B(45) = RCT(25)*V(5252) -! B(46) = dA(26)/dV(5253) - B(46) = RCT(26)*V(5255) -! B(47) = dA(26)/dV(5255) - B(47) = RCT(26)*V(5253) -! B(48) = dA(27)/dV(925) - B(48) = RCT(27)*V(5250) -! B(49) = dA(27)/dV(5250) - B(49) = RCT(27)*V(925) -! B(50) = dA(28)/dV(5255) - B(50) = RCT(28)*V(5256) -! B(51) = dA(28)/dV(5256) - B(51) = RCT(28)*V(5255) -! B(52) = dA(29)/dV(337) - B(52) = RCT(29)*V(5250) -! B(53) = dA(29)/dV(5250) - B(53) = RCT(29)*V(337) -! B(54) = dA(30)/dV(5201) - B(54) = RCT(30)*V(5250) -! B(55) = dA(30)/dV(5250) - B(55) = RCT(30)*V(5201) -! B(56) = dA(31)/dV(3568) - B(56) = RCT(31)*V(5254) -! B(57) = dA(31)/dV(5254) - B(57) = RCT(31)*V(3568) -! B(58) = dA(32)/dV(5250) - B(58) = RCT(32)*V(5254) -! B(59) = dA(32)/dV(5254) - B(59) = RCT(32)*V(5250) -! B(60) = dA(33)/dV(5) - B(60) = RCT(33) -! B(61) = dA(34)/dV(5201) - B(61) = RCT(34) -! B(62) = dA(35)/dV(137) - B(62) = RCT(35) -! B(63) = dA(36)/dV(3) - B(63) = RCT(36) -! B(64) = dA(37)/dV(5258) - B(64) = RCT(37) -! B(65) = dA(38)/dV(5258) - B(65) = RCT(38) -! B(66) = dA(39)/dV(5046) - B(66) = RCT(39) -! B(67) = dA(40)/dV(5253) - B(67) = RCT(40) -! B(68) = dA(41)/dV(5256) - B(68) = RCT(41) -! B(69) = dA(42)/dV(5256) - B(69) = RCT(42) -! B(70) = dA(43)/dV(337) - B(70) = RCT(43) -! B(71) = dA(44)/dV(5201) - B(71) = RCT(44) -! B(72) = dA(45)/dV(137) - B(72) = RCT(45) -! B(73) = dA(46)/dV(925) - B(73) = RCT(46) -! B(74) = dA(47)/dV(1068) - B(74) = RCT(47)*V(5250) -! B(75) = dA(47)/dV(5250) - B(75) = RCT(47)*V(1068) -! B(76) = dA(48)/dV(1733) - B(76) = RCT(48)*V(5250) -! B(77) = dA(48)/dV(5250) - B(77) = RCT(48)*V(1733) -! B(78) = dA(49)/dV(1733) - B(78) = RCT(49)*V(5250) -! B(79) = dA(49)/dV(5250) - B(79) = RCT(49)*V(1733) -! B(80) = dA(50)/dV(1733) - B(80) = RCT(50)*V(5250) -! B(81) = dA(50)/dV(5250) - B(81) = RCT(50)*V(1733) -! B(82) = dA(51)/dV(1686) - B(82) = RCT(51)*V(5250) -! B(83) = dA(51)/dV(5250) - B(83) = RCT(51)*V(1686) -! B(84) = dA(52)/dV(1686) - B(84) = RCT(52)*V(5250) -! B(85) = dA(52)/dV(5250) - B(85) = RCT(52)*V(1686) -! B(86) = dA(53)/dV(1686) - B(86) = RCT(53)*V(5250) -! B(87) = dA(53)/dV(5250) - B(87) = RCT(53)*V(1686) -! B(88) = dA(54)/dV(3083) - B(88) = RCT(54)*V(5250) -! B(89) = dA(54)/dV(5250) - B(89) = RCT(54)*V(3083) -! B(90) = dA(55)/dV(3083) - B(90) = RCT(55)*V(5250) -! B(91) = dA(55)/dV(5250) - B(91) = RCT(55)*V(3083) -! B(92) = dA(56)/dV(1697) - B(92) = RCT(56)*V(5250) -! B(93) = dA(56)/dV(5250) - B(93) = RCT(56)*V(1697) -! B(94) = dA(57)/dV(1697) - B(94) = RCT(57)*V(5250) -! B(95) = dA(57)/dV(5250) - B(95) = RCT(57)*V(1697) -! B(96) = dA(58)/dV(1697) - B(96) = RCT(58)*V(5250) -! B(97) = dA(58)/dV(5250) - B(97) = RCT(58)*V(1697) -! B(98) = dA(59)/dV(757) - B(98) = RCT(59)*V(5250) -! B(99) = dA(59)/dV(5250) - B(99) = RCT(59)*V(757) -! B(100) = dA(60)/dV(757) - B(100) = RCT(60)*V(5250) -! B(101) = dA(60)/dV(5250) - B(101) = RCT(60)*V(757) -! B(102) = dA(61)/dV(1701) - B(102) = RCT(61)*V(5250) -! B(103) = dA(61)/dV(5250) - B(103) = RCT(61)*V(1701) -! B(104) = dA(62)/dV(1701) - B(104) = RCT(62)*V(5250) -! B(105) = dA(62)/dV(5250) - B(105) = RCT(62)*V(1701) -! B(106) = dA(63)/dV(1701) - B(106) = RCT(63)*V(5250) -! B(107) = dA(63)/dV(5250) - B(107) = RCT(63)*V(1701) -! B(108) = dA(64)/dV(298) - B(108) = RCT(64)*V(5250) -! B(109) = dA(64)/dV(5250) - B(109) = RCT(64)*V(298) -! B(110) = dA(65)/dV(298) - B(110) = RCT(65)*V(5250) -! B(111) = dA(65)/dV(5250) - B(111) = RCT(65)*V(298) -! B(112) = dA(66)/dV(1596) - B(112) = RCT(66)*V(5250) -! B(113) = dA(66)/dV(5250) - B(113) = RCT(66)*V(1596) -! B(114) = dA(67)/dV(1596) - B(114) = RCT(67)*V(5250) -! B(115) = dA(67)/dV(5250) - B(115) = RCT(67)*V(1596) -! B(116) = dA(68)/dV(1596) - B(116) = RCT(68)*V(5250) -! B(117) = dA(68)/dV(5250) - B(117) = RCT(68)*V(1596) -! B(118) = dA(69)/dV(1730) - B(118) = RCT(69)*V(5250) -! B(119) = dA(69)/dV(5250) - B(119) = RCT(69)*V(1730) -! B(120) = dA(70)/dV(1730) - B(120) = RCT(70)*V(5250) -! B(121) = dA(70)/dV(5250) - B(121) = RCT(70)*V(1730) -! B(122) = dA(71)/dV(1730) - B(122) = RCT(71)*V(5250) -! B(123) = dA(71)/dV(5250) - B(123) = RCT(71)*V(1730) -! B(124) = dA(72)/dV(181) - B(124) = RCT(72)*V(5250) -! B(125) = dA(72)/dV(5250) - B(125) = RCT(72)*V(181) -! B(126) = dA(73)/dV(181) - B(126) = RCT(73)*V(5250) -! B(127) = dA(73)/dV(5250) - B(127) = RCT(73)*V(181) -! B(128) = dA(74)/dV(181) - B(128) = RCT(74)*V(5250) -! B(129) = dA(74)/dV(5250) - B(129) = RCT(74)*V(181) -! B(130) = dA(75)/dV(806) - B(130) = RCT(75)*V(5250) -! B(131) = dA(75)/dV(5250) - B(131) = RCT(75)*V(806) -! B(132) = dA(76)/dV(806) - B(132) = RCT(76)*V(5250) -! B(133) = dA(76)/dV(5250) - B(133) = RCT(76)*V(806) -! B(134) = dA(77)/dV(806) - B(134) = RCT(77)*V(5250) -! B(135) = dA(77)/dV(5250) - B(135) = RCT(77)*V(806) -! B(136) = dA(78)/dV(1577) - B(136) = RCT(78)*V(5250) -! B(137) = dA(78)/dV(5250) - B(137) = RCT(78)*V(1577) -! B(138) = dA(79)/dV(1577) - B(138) = RCT(79)*V(5250) -! B(139) = dA(79)/dV(5250) - B(139) = RCT(79)*V(1577) -! B(140) = dA(80)/dV(1577) - B(140) = RCT(80)*V(5250) -! B(141) = dA(80)/dV(5250) - B(141) = RCT(80)*V(1577) -! B(142) = dA(81)/dV(598) - B(142) = RCT(81)*V(5250) -! B(143) = dA(81)/dV(5250) - B(143) = RCT(81)*V(598) -! B(144) = dA(82)/dV(598) - B(144) = RCT(82)*V(5250) -! B(145) = dA(82)/dV(5250) - B(145) = RCT(82)*V(598) -! B(146) = dA(83)/dV(2118) - B(146) = RCT(83)*V(5250) -! B(147) = dA(83)/dV(5250) - B(147) = RCT(83)*V(2118) -! B(148) = dA(84)/dV(2118) - B(148) = RCT(84)*V(5250) -! B(149) = dA(84)/dV(5250) - B(149) = RCT(84)*V(2118) -! B(150) = dA(85)/dV(2118) - B(150) = RCT(85)*V(5250) -! B(151) = dA(85)/dV(5250) - B(151) = RCT(85)*V(2118) -! B(152) = dA(86)/dV(2118) - B(152) = RCT(86) -! B(153) = dA(87)/dV(249) - B(153) = RCT(87)*V(5250) -! B(154) = dA(87)/dV(5250) - B(154) = RCT(87)*V(249) -! B(155) = dA(88)/dV(2421) - B(155) = RCT(88)*V(5250) -! B(156) = dA(88)/dV(5250) - B(156) = RCT(88)*V(2421) -! B(157) = dA(89)/dV(2421) - B(157) = RCT(89)*V(5250) -! B(158) = dA(89)/dV(5250) - B(158) = RCT(89)*V(2421) -! B(159) = dA(90)/dV(4555) - B(159) = RCT(90)*V(5256) -! B(160) = dA(90)/dV(5256) - B(160) = RCT(90)*V(4555) -! B(161) = dA(91)/dV(4555) - B(161) = RCT(91)*V(5256) -! B(162) = dA(91)/dV(5256) - B(162) = RCT(91)*V(4555) -! B(163) = dA(92)/dV(4555) - B(163) = RCT(92)*V(5258) -! B(164) = dA(92)/dV(5258) - B(164) = RCT(92)*V(4555) -! B(165) = dA(93)/dV(4555) - B(165) = RCT(93)*V(5258) -! B(166) = dA(93)/dV(5258) - B(166) = RCT(93)*V(4555) -! B(167) = dA(94)/dV(4555) - B(167) = RCT(94)*V(5250) -! B(168) = dA(94)/dV(5250) - B(168) = RCT(94)*V(4555) -! B(169) = dA(95)/dV(4555) - B(169) = RCT(95)*V(5250) -! B(170) = dA(95)/dV(5250) - B(170) = RCT(95)*V(4555) -! B(171) = dA(96)/dV(5231) - B(171) = RCT(96) -! B(172) = dA(97)/dV(5231) - B(172) = RCT(97) -! B(173) = dA(98)/dV(5231) - B(173) = RCT(98)*V(5256) -! B(174) = dA(98)/dV(5256) - B(174) = RCT(98)*V(5231) -! B(175) = dA(99)/dV(5231) - B(175) = RCT(99)*V(5250) -! B(176) = dA(99)/dV(5250) - B(176) = RCT(99)*V(5231) -! B(177) = dA(100)/dV(5193) - B(177) = RCT(100) -! B(178) = dA(101)/dV(5193) - B(178) = RCT(101)*V(5256) -! B(179) = dA(101)/dV(5256) - B(179) = RCT(101)*V(5193) -! B(180) = dA(102)/dV(5193) - B(180) = RCT(102)*V(5250) -! B(181) = dA(102)/dV(5250) - B(181) = RCT(102)*V(5193) -! B(182) = dA(103)/dV(5193) - B(182) = RCT(103)*V(5250) -! B(183) = dA(103)/dV(5250) - B(183) = RCT(103)*V(5193) -! B(184) = dA(104)/dV(5191) - B(184) = RCT(104)*V(5256) -! B(185) = dA(104)/dV(5256) - B(185) = RCT(104)*V(5191) -! B(186) = dA(105)/dV(5191) - B(186) = RCT(105)*V(5250) -! B(187) = dA(105)/dV(5250) - B(187) = RCT(105)*V(5191) -! B(188) = dA(106)/dV(5191) - B(188) = RCT(106) -! B(189) = dA(107)/dV(5230) - B(189) = RCT(107)*V(5256) -! B(190) = dA(107)/dV(5256) - B(190) = RCT(107)*V(5230) -! B(191) = dA(108)/dV(5230) - B(191) = RCT(108)*V(5250) -! B(192) = dA(108)/dV(5250) - B(192) = RCT(108)*V(5230) -! B(193) = dA(109)/dV(5230) - B(193) = RCT(109)*V(5250) -! B(194) = dA(109)/dV(5250) - B(194) = RCT(109)*V(5230) -! B(195) = dA(110)/dV(5230) - B(195) = RCT(110) -! B(196) = dA(111)/dV(5230) - B(196) = RCT(111) -! B(197) = dA(112)/dV(5203) - B(197) = RCT(112)*V(5256) -! B(198) = dA(112)/dV(5256) - B(198) = RCT(112)*V(5203) -! B(199) = dA(113)/dV(5203) - B(199) = RCT(113)*V(5250) -! B(200) = dA(113)/dV(5250) - B(200) = RCT(113)*V(5203) -! B(201) = dA(114)/dV(5203) - B(201) = RCT(114)*V(5250) -! B(202) = dA(114)/dV(5250) - B(202) = RCT(114)*V(5203) -! B(203) = dA(115)/dV(5203) - B(203) = RCT(115)*V(5250) -! B(204) = dA(115)/dV(5250) - B(204) = RCT(115)*V(5203) -! B(205) = dA(116)/dV(5203) - B(205) = RCT(116) -! B(206) = dA(117)/dV(5165) - B(206) = RCT(117)*V(5256) -! B(207) = dA(117)/dV(5256) - B(207) = RCT(117)*V(5165) -! B(208) = dA(118)/dV(5165) - B(208) = RCT(118)*V(5250) -! B(209) = dA(118)/dV(5250) - B(209) = RCT(118)*V(5165) -! B(210) = dA(119)/dV(5165) - B(210) = RCT(119)*V(5250) -! B(211) = dA(119)/dV(5250) - B(211) = RCT(119)*V(5165) -! B(212) = dA(120)/dV(5165) - B(212) = RCT(120) -! B(213) = dA(121)/dV(5194) - B(213) = RCT(121)*V(5256) -! B(214) = dA(121)/dV(5256) - B(214) = RCT(121)*V(5194) -! B(215) = dA(122)/dV(5194) - B(215) = RCT(122)*V(5250) -! B(216) = dA(122)/dV(5250) - B(216) = RCT(122)*V(5194) -! B(217) = dA(123)/dV(5194) - B(217) = RCT(123)*V(5250) -! B(218) = dA(123)/dV(5250) - B(218) = RCT(123)*V(5194) -! B(219) = dA(124)/dV(5194) - B(219) = RCT(124)*V(5250) -! B(220) = dA(124)/dV(5250) - B(220) = RCT(124)*V(5194) -! B(221) = dA(125)/dV(5194) - B(221) = RCT(125) -! B(222) = dA(126)/dV(5194) - B(222) = RCT(126) -! B(223) = dA(127)/dV(5194) - B(223) = RCT(127) -! B(224) = dA(128)/dV(5194) - B(224) = RCT(128)*V(5258) -! B(225) = dA(128)/dV(5258) - B(225) = RCT(128)*V(5194) -! B(226) = dA(129)/dV(5194) - B(226) = RCT(129)*V(5258) -! B(227) = dA(129)/dV(5258) - B(227) = RCT(129)*V(5194) -! B(228) = dA(130)/dV(5226) - B(228) = RCT(130) -! B(229) = dA(131)/dV(5226) - B(229) = RCT(131) -! B(230) = dA(132)/dV(5226) - B(230) = RCT(132)*V(5256) -! B(231) = dA(132)/dV(5256) - B(231) = RCT(132)*V(5226) -! B(232) = dA(133)/dV(5226) - B(232) = RCT(133)*V(5258) -! B(233) = dA(133)/dV(5258) - B(233) = RCT(133)*V(5226) -! B(234) = dA(134)/dV(5226) - B(234) = RCT(134)*V(5258) -! B(235) = dA(134)/dV(5258) - B(235) = RCT(134)*V(5226) -! B(236) = dA(135)/dV(5226) - B(236) = RCT(135)*V(5250) -! B(237) = dA(135)/dV(5250) - B(237) = RCT(135)*V(5226) -! B(238) = dA(136)/dV(5226) - B(238) = RCT(136)*V(5250) -! B(239) = dA(136)/dV(5250) - B(239) = RCT(136)*V(5226) -! B(240) = dA(137)/dV(5226) - B(240) = RCT(137)*V(5250) -! B(241) = dA(137)/dV(5250) - B(241) = RCT(137)*V(5226) -! B(242) = dA(138)/dV(4840) - B(242) = RCT(138)*V(5256) -! B(243) = dA(138)/dV(5256) - B(243) = RCT(138)*V(4840) -! B(244) = dA(139)/dV(4840) - B(244) = RCT(139)*V(5256) -! B(245) = dA(139)/dV(5256) - B(245) = RCT(139)*V(4840) -! B(246) = dA(140)/dV(4840) - B(246) = RCT(140)*V(5256) -! B(247) = dA(140)/dV(5256) - B(247) = RCT(140)*V(4840) -! B(248) = dA(141)/dV(4840) - B(248) = RCT(141)*V(5258) -! B(249) = dA(141)/dV(5258) - B(249) = RCT(141)*V(4840) -! B(250) = dA(142)/dV(4840) - B(250) = RCT(142)*V(5258) -! B(251) = dA(142)/dV(5258) - B(251) = RCT(142)*V(4840) -! B(252) = dA(143)/dV(4840) - B(252) = RCT(143)*V(5250) -! B(253) = dA(143)/dV(5250) - B(253) = RCT(143)*V(4840) -! B(254) = dA(144)/dV(4840) - B(254) = RCT(144)*V(5250) -! B(255) = dA(144)/dV(5250) - B(255) = RCT(144)*V(4840) -! B(256) = dA(145)/dV(4840) - B(256) = RCT(145)*V(5250) -! B(257) = dA(145)/dV(5250) - B(257) = RCT(145)*V(4840) -! B(258) = dA(146)/dV(4840) - B(258) = RCT(146) -! B(259) = dA(147)/dV(2914) - B(259) = RCT(147)*V(5238) -! B(260) = dA(147)/dV(5238) - B(260) = RCT(147)*V(2914) -! B(261) = dA(148)/dV(2914) - B(261) = RCT(148)*V(5250) -! B(262) = dA(148)/dV(5250) - B(262) = RCT(148)*V(2914) -! B(263) = dA(149)/dV(2973) - B(263) = RCT(149)*V(5238) -! B(264) = dA(149)/dV(5238) - B(264) = RCT(149)*V(2973) -! B(265) = dA(150)/dV(2973) - B(265) = RCT(150)*V(5250) -! B(266) = dA(150)/dV(5250) - B(266) = RCT(150)*V(2973) -! B(267) = dA(151)/dV(3651) - B(267) = RCT(151)*V(5238) -! B(268) = dA(151)/dV(5238) - B(268) = RCT(151)*V(3651) -! B(269) = dA(152)/dV(3651) - B(269) = RCT(152)*V(5238) -! B(270) = dA(152)/dV(5238) - B(270) = RCT(152)*V(3651) -! B(271) = dA(153)/dV(3651) - B(271) = RCT(153)*V(5250) -! B(272) = dA(153)/dV(5250) - B(272) = RCT(153)*V(3651) -! B(273) = dA(154)/dV(3651) - B(273) = RCT(154)*V(5250) -! B(274) = dA(154)/dV(5250) - B(274) = RCT(154)*V(3651) -! B(275) = dA(155)/dV(1817) - B(275) = RCT(155)*V(5238) -! B(276) = dA(155)/dV(5238) - B(276) = RCT(155)*V(1817) -! B(277) = dA(156)/dV(1817) - B(277) = RCT(156)*V(5238) -! B(278) = dA(156)/dV(5238) - B(278) = RCT(156)*V(1817) -! B(279) = dA(157)/dV(1817) - B(279) = RCT(157)*V(5250) -! B(280) = dA(157)/dV(5250) - B(280) = RCT(157)*V(1817) -! B(281) = dA(158)/dV(1817) - B(281) = RCT(158)*V(5250) -! B(282) = dA(158)/dV(5250) - B(282) = RCT(158)*V(1817) -! B(283) = dA(159)/dV(601) - B(283) = RCT(159)*V(5238) -! B(284) = dA(159)/dV(5238) - B(284) = RCT(159)*V(601) -! B(285) = dA(160)/dV(601) - B(285) = RCT(160)*V(5238) -! B(286) = dA(160)/dV(5238) - B(286) = RCT(160)*V(601) -! B(287) = dA(161)/dV(601) - B(287) = RCT(161)*V(5250) -! B(288) = dA(161)/dV(5250) - B(288) = RCT(161)*V(601) -! B(289) = dA(162)/dV(601) - B(289) = RCT(162)*V(5250) -! B(290) = dA(162)/dV(5250) - B(290) = RCT(162)*V(601) -! B(291) = dA(163)/dV(1708) - B(291) = RCT(163)*V(5238) -! B(292) = dA(163)/dV(5238) - B(292) = RCT(163)*V(1708) -! B(293) = dA(164)/dV(1708) - B(293) = RCT(164)*V(5238) -! B(294) = dA(164)/dV(5238) - B(294) = RCT(164)*V(1708) -! B(295) = dA(165)/dV(1708) - B(295) = RCT(165)*V(5238) -! B(296) = dA(165)/dV(5238) - B(296) = RCT(165)*V(1708) -! B(297) = dA(166)/dV(1708) - B(297) = RCT(166)*V(5250) -! B(298) = dA(166)/dV(5250) - B(298) = RCT(166)*V(1708) -! B(299) = dA(167)/dV(1708) - B(299) = RCT(167)*V(5250) -! B(300) = dA(167)/dV(5250) - B(300) = RCT(167)*V(1708) -! B(301) = dA(168)/dV(1708) - B(301) = RCT(168)*V(5250) -! B(302) = dA(168)/dV(5250) - B(302) = RCT(168)*V(1708) -! B(303) = dA(169)/dV(1635) - B(303) = RCT(169)*V(5238) -! B(304) = dA(169)/dV(5238) - B(304) = RCT(169)*V(1635) -! B(305) = dA(170)/dV(1635) - B(305) = RCT(170)*V(5238) -! B(306) = dA(170)/dV(5238) - B(306) = RCT(170)*V(1635) -! B(307) = dA(171)/dV(1635) - B(307) = RCT(171)*V(5238) -! B(308) = dA(171)/dV(5238) - B(308) = RCT(171)*V(1635) -! B(309) = dA(172)/dV(1635) - B(309) = RCT(172)*V(5250) -! B(310) = dA(172)/dV(5250) - B(310) = RCT(172)*V(1635) -! B(311) = dA(173)/dV(1635) - B(311) = RCT(173)*V(5250) -! B(312) = dA(173)/dV(5250) - B(312) = RCT(173)*V(1635) -! B(313) = dA(174)/dV(1635) - B(313) = RCT(174)*V(5250) -! B(314) = dA(174)/dV(5250) - B(314) = RCT(174)*V(1635) -! B(315) = dA(175)/dV(288) - B(315) = RCT(175)*V(5238) -! B(316) = dA(175)/dV(5238) - B(316) = RCT(175)*V(288) -! B(317) = dA(176)/dV(288) - B(317) = RCT(176)*V(5250) -! B(318) = dA(176)/dV(5250) - B(318) = RCT(176)*V(288) -! B(319) = dA(177)/dV(1709) - B(319) = RCT(177)*V(5238) -! B(320) = dA(177)/dV(5238) - B(320) = RCT(177)*V(1709) -! B(321) = dA(178)/dV(1709) - B(321) = RCT(178)*V(5238) -! B(322) = dA(178)/dV(5238) - B(322) = RCT(178)*V(1709) -! B(323) = dA(179)/dV(1709) - B(323) = RCT(179)*V(5238) -! B(324) = dA(179)/dV(5238) - B(324) = RCT(179)*V(1709) -! B(325) = dA(180)/dV(1709) - B(325) = RCT(180)*V(5250) -! B(326) = dA(180)/dV(5250) - B(326) = RCT(180)*V(1709) -! B(327) = dA(181)/dV(1709) - B(327) = RCT(181)*V(5250) -! B(328) = dA(181)/dV(5250) - B(328) = RCT(181)*V(1709) -! B(329) = dA(182)/dV(1709) - B(329) = RCT(182)*V(5250) -! B(330) = dA(182)/dV(5250) - B(330) = RCT(182)*V(1709) -! B(331) = dA(183)/dV(2385) - B(331) = RCT(183)*V(5238) -! B(332) = dA(183)/dV(5238) - B(332) = RCT(183)*V(2385) -! B(333) = dA(184)/dV(2385) - B(333) = RCT(184)*V(5238) -! B(334) = dA(184)/dV(5238) - B(334) = RCT(184)*V(2385) -! B(335) = dA(185)/dV(2385) - B(335) = RCT(185)*V(5238) -! B(336) = dA(185)/dV(5238) - B(336) = RCT(185)*V(2385) -! B(337) = dA(186)/dV(2385) - B(337) = RCT(186)*V(5238) -! B(338) = dA(186)/dV(5238) - B(338) = RCT(186)*V(2385) -! B(339) = dA(187)/dV(2385) - B(339) = RCT(187)*V(5250) -! B(340) = dA(187)/dV(5250) - B(340) = RCT(187)*V(2385) -! B(341) = dA(188)/dV(2385) - B(341) = RCT(188)*V(5250) -! B(342) = dA(188)/dV(5250) - B(342) = RCT(188)*V(2385) -! B(343) = dA(189)/dV(2385) - B(343) = RCT(189)*V(5250) -! B(344) = dA(189)/dV(5250) - B(344) = RCT(189)*V(2385) -! B(345) = dA(190)/dV(2385) - B(345) = RCT(190)*V(5250) -! B(346) = dA(190)/dV(5250) - B(346) = RCT(190)*V(2385) -! B(347) = dA(191)/dV(1641) - B(347) = RCT(191)*V(5238) -! B(348) = dA(191)/dV(5238) - B(348) = RCT(191)*V(1641) -! B(349) = dA(192)/dV(1641) - B(349) = RCT(192)*V(5238) -! B(350) = dA(192)/dV(5238) - B(350) = RCT(192)*V(1641) -! B(351) = dA(193)/dV(1641) - B(351) = RCT(193)*V(5238) -! B(352) = dA(193)/dV(5238) - B(352) = RCT(193)*V(1641) -! B(353) = dA(194)/dV(1641) - B(353) = RCT(194)*V(5250) -! B(354) = dA(194)/dV(5250) - B(354) = RCT(194)*V(1641) -! B(355) = dA(195)/dV(1641) - B(355) = RCT(195)*V(5250) -! B(356) = dA(195)/dV(5250) - B(356) = RCT(195)*V(1641) -! B(357) = dA(196)/dV(1641) - B(357) = RCT(196)*V(5250) -! B(358) = dA(196)/dV(5250) - B(358) = RCT(196)*V(1641) -! B(359) = dA(197)/dV(1688) - B(359) = RCT(197)*V(5238) -! B(360) = dA(197)/dV(5238) - B(360) = RCT(197)*V(1688) -! B(361) = dA(198)/dV(1688) - B(361) = RCT(198)*V(5238) -! B(362) = dA(198)/dV(5238) - B(362) = RCT(198)*V(1688) -! B(363) = dA(199)/dV(1688) - B(363) = RCT(199)*V(5238) -! B(364) = dA(199)/dV(5238) - B(364) = RCT(199)*V(1688) -! B(365) = dA(200)/dV(1688) - B(365) = RCT(200)*V(5250) -! B(366) = dA(200)/dV(5250) - B(366) = RCT(200)*V(1688) -! B(367) = dA(201)/dV(1688) - B(367) = RCT(201)*V(5250) -! B(368) = dA(201)/dV(5250) - B(368) = RCT(201)*V(1688) -! B(369) = dA(202)/dV(1688) - B(369) = RCT(202)*V(5250) -! B(370) = dA(202)/dV(5250) - B(370) = RCT(202)*V(1688) -! B(371) = dA(203)/dV(566) - B(371) = RCT(203)*V(5238) -! B(372) = dA(203)/dV(5238) - B(372) = RCT(203)*V(566) -! B(373) = dA(204)/dV(566) - B(373) = RCT(204)*V(5238) -! B(374) = dA(204)/dV(5238) - B(374) = RCT(204)*V(566) -! B(375) = dA(205)/dV(566) - B(375) = RCT(205)*V(5250) -! B(376) = dA(205)/dV(5250) - B(376) = RCT(205)*V(566) -! B(377) = dA(206)/dV(566) - B(377) = RCT(206)*V(5250) -! B(378) = dA(206)/dV(5250) - B(378) = RCT(206)*V(566) -! B(379) = dA(207)/dV(447) - B(379) = RCT(207)*V(5238) -! B(380) = dA(207)/dV(5238) - B(380) = RCT(207)*V(447) -! B(381) = dA(208)/dV(447) - B(381) = RCT(208)*V(5250) -! B(382) = dA(208)/dV(5250) - B(382) = RCT(208)*V(447) -! B(383) = dA(209)/dV(588) - B(383) = RCT(209)*V(5238) -! B(384) = dA(209)/dV(5238) - B(384) = RCT(209)*V(588) -! B(385) = dA(210)/dV(588) - B(385) = RCT(210)*V(5238) -! B(386) = dA(210)/dV(5238) - B(386) = RCT(210)*V(588) -! B(387) = dA(211)/dV(588) - B(387) = RCT(211)*V(5250) -! B(388) = dA(211)/dV(5250) - B(388) = RCT(211)*V(588) -! B(389) = dA(212)/dV(588) - B(389) = RCT(212)*V(5250) -! B(390) = dA(212)/dV(5250) - B(390) = RCT(212)*V(588) -! B(391) = dA(213)/dV(548) - B(391) = RCT(213)*V(5238) -! B(392) = dA(213)/dV(5238) - B(392) = RCT(213)*V(548) -! B(393) = dA(214)/dV(548) - B(393) = RCT(214)*V(5238) -! B(394) = dA(214)/dV(5238) - B(394) = RCT(214)*V(548) -! B(395) = dA(215)/dV(548) - B(395) = RCT(215)*V(5250) -! B(396) = dA(215)/dV(5250) - B(396) = RCT(215)*V(548) -! B(397) = dA(216)/dV(548) - B(397) = RCT(216)*V(5250) -! B(398) = dA(216)/dV(5250) - B(398) = RCT(216)*V(548) -! B(399) = dA(217)/dV(221) - B(399) = RCT(217)*V(5238) -! B(400) = dA(217)/dV(5238) - B(400) = RCT(217)*V(221) -! B(401) = dA(218)/dV(221) - B(401) = RCT(218)*V(5250) -! B(402) = dA(218)/dV(5250) - B(402) = RCT(218)*V(221) -! B(403) = dA(219)/dV(270) - B(403) = RCT(219)*V(5238) -! B(404) = dA(219)/dV(5238) - B(404) = RCT(219)*V(270) -! B(405) = dA(220)/dV(270) - B(405) = RCT(220)*V(5250) -! B(406) = dA(220)/dV(5250) - B(406) = RCT(220)*V(270) -! B(407) = dA(221)/dV(342) - B(407) = RCT(221)*V(5238) -! B(408) = dA(221)/dV(5238) - B(408) = RCT(221)*V(342) -! B(409) = dA(222)/dV(342) - B(409) = RCT(222)*V(5250) -! B(410) = dA(222)/dV(5250) - B(410) = RCT(222)*V(342) -! B(411) = dA(223)/dV(426) - B(411) = RCT(223)*V(5238) -! B(412) = dA(223)/dV(5238) - B(412) = RCT(223)*V(426) -! B(413) = dA(224)/dV(426) - B(413) = RCT(224)*V(5250) -! B(414) = dA(224)/dV(5250) - B(414) = RCT(224)*V(426) -! B(415) = dA(225)/dV(253) - B(415) = RCT(225)*V(5238) -! B(416) = dA(225)/dV(5238) - B(416) = RCT(225)*V(253) -! B(417) = dA(226)/dV(253) - B(417) = RCT(226)*V(5250) -! B(418) = dA(226)/dV(5250) - B(418) = RCT(226)*V(253) -! B(419) = dA(227)/dV(235) - B(419) = RCT(227)*V(5238) -! B(420) = dA(227)/dV(5238) - B(420) = RCT(227)*V(235) -! B(421) = dA(228)/dV(235) - B(421) = RCT(228)*V(5250) -! B(422) = dA(228)/dV(5250) - B(422) = RCT(228)*V(235) -! B(423) = dA(229)/dV(5124) - B(423) = RCT(229)*V(5256) -! B(424) = dA(229)/dV(5256) - B(424) = RCT(229)*V(5124) -! B(425) = dA(230)/dV(5124) - B(425) = RCT(230)*V(5258) -! B(426) = dA(230)/dV(5258) - B(426) = RCT(230)*V(5124) -! B(427) = dA(231)/dV(5124) - B(427) = RCT(231)*V(5250) -! B(428) = dA(231)/dV(5250) - B(428) = RCT(231)*V(5124) -! B(429) = dA(232)/dV(5200) - B(429) = RCT(232)*V(5256) -! B(430) = dA(232)/dV(5256) - B(430) = RCT(232)*V(5200) -! B(431) = dA(233)/dV(5200) - B(431) = RCT(233)*V(5256) -! B(432) = dA(233)/dV(5256) - B(432) = RCT(233)*V(5200) -! B(433) = dA(234)/dV(5200) - B(433) = RCT(234)*V(5258) -! B(434) = dA(234)/dV(5258) - B(434) = RCT(234)*V(5200) -! B(435) = dA(235)/dV(5200) - B(435) = RCT(235)*V(5258) -! B(436) = dA(235)/dV(5258) - B(436) = RCT(235)*V(5200) -! B(437) = dA(236)/dV(5200) - B(437) = RCT(236)*V(5250) -! B(438) = dA(236)/dV(5250) - B(438) = RCT(236)*V(5200) -! B(439) = dA(237)/dV(5200) - B(439) = RCT(237)*V(5250) -! B(440) = dA(237)/dV(5250) - B(440) = RCT(237)*V(5200) -! B(441) = dA(238)/dV(5051) - B(441) = RCT(238)*V(5256) -! B(442) = dA(238)/dV(5256) - B(442) = RCT(238)*V(5051) -! B(443) = dA(239)/dV(5051) - B(443) = RCT(239)*V(5256) -! B(444) = dA(239)/dV(5256) - B(444) = RCT(239)*V(5051) -! B(445) = dA(240)/dV(5051) - B(445) = RCT(240)*V(5258) -! B(446) = dA(240)/dV(5258) - B(446) = RCT(240)*V(5051) -! B(447) = dA(241)/dV(5051) - B(447) = RCT(241)*V(5258) -! B(448) = dA(241)/dV(5258) - B(448) = RCT(241)*V(5051) -! B(449) = dA(242)/dV(5051) - B(449) = RCT(242)*V(5250) -! B(450) = dA(242)/dV(5250) - B(450) = RCT(242)*V(5051) -! B(451) = dA(243)/dV(5051) - B(451) = RCT(243)*V(5250) -! B(452) = dA(243)/dV(5250) - B(452) = RCT(243)*V(5051) -! B(453) = dA(244)/dV(3465) - B(453) = RCT(244)*V(5256) -! B(454) = dA(244)/dV(5256) - B(454) = RCT(244)*V(3465) -! B(455) = dA(245)/dV(3465) - B(455) = RCT(245)*V(5258) -! B(456) = dA(245)/dV(5258) - B(456) = RCT(245)*V(3465) -! B(457) = dA(246)/dV(3465) - B(457) = RCT(246)*V(5250) -! B(458) = dA(246)/dV(5250) - B(458) = RCT(246)*V(3465) -! B(459) = dA(247)/dV(3466) - B(459) = RCT(247)*V(5256) -! B(460) = dA(247)/dV(5256) - B(460) = RCT(247)*V(3466) -! B(461) = dA(248)/dV(3466) - B(461) = RCT(248)*V(5258) -! B(462) = dA(248)/dV(5258) - B(462) = RCT(248)*V(3466) -! B(463) = dA(249)/dV(3466) - B(463) = RCT(249)*V(5250) -! B(464) = dA(249)/dV(5250) - B(464) = RCT(249)*V(3466) -! B(465) = dA(250)/dV(4512) - B(465) = RCT(250)*V(5256) -! B(466) = dA(250)/dV(5256) - B(466) = RCT(250)*V(4512) -! B(467) = dA(251)/dV(4512) - B(467) = RCT(251)*V(5256) -! B(468) = dA(251)/dV(5256) - B(468) = RCT(251)*V(4512) -! B(469) = dA(252)/dV(4512) - B(469) = RCT(252)*V(5258) -! B(470) = dA(252)/dV(5258) - B(470) = RCT(252)*V(4512) -! B(471) = dA(253)/dV(4512) - B(471) = RCT(253)*V(5258) -! B(472) = dA(253)/dV(5258) - B(472) = RCT(253)*V(4512) -! B(473) = dA(254)/dV(4512) - B(473) = RCT(254)*V(5250) -! B(474) = dA(254)/dV(5250) - B(474) = RCT(254)*V(4512) -! B(475) = dA(255)/dV(4512) - B(475) = RCT(255)*V(5250) -! B(476) = dA(255)/dV(5250) - B(476) = RCT(255)*V(4512) -! B(477) = dA(256)/dV(5190) - B(477) = RCT(256)*V(5256) -! B(478) = dA(256)/dV(5256) - B(478) = RCT(256)*V(5190) -! B(479) = dA(257)/dV(5190) - B(479) = RCT(257)*V(5256) -! B(480) = dA(257)/dV(5256) - B(480) = RCT(257)*V(5190) -! B(481) = dA(258)/dV(5190) - B(481) = RCT(258)*V(5258) -! B(482) = dA(258)/dV(5258) - B(482) = RCT(258)*V(5190) -! B(483) = dA(259)/dV(5190) - B(483) = RCT(259)*V(5258) -! B(484) = dA(259)/dV(5258) - B(484) = RCT(259)*V(5190) -! B(485) = dA(260)/dV(5190) - B(485) = RCT(260)*V(5250) -! B(486) = dA(260)/dV(5250) - B(486) = RCT(260)*V(5190) -! B(487) = dA(261)/dV(5190) - B(487) = RCT(261)*V(5250) -! B(488) = dA(261)/dV(5250) - B(488) = RCT(261)*V(5190) -! B(489) = dA(262)/dV(4332) - B(489) = RCT(262)*V(5256) -! B(490) = dA(262)/dV(5256) - B(490) = RCT(262)*V(4332) -! B(491) = dA(263)/dV(4332) - B(491) = RCT(263)*V(5256) -! B(492) = dA(263)/dV(5256) - B(492) = RCT(263)*V(4332) -! B(493) = dA(264)/dV(4332) - B(493) = RCT(264)*V(5258) -! B(494) = dA(264)/dV(5258) - B(494) = RCT(264)*V(4332) -! B(495) = dA(265)/dV(4332) - B(495) = RCT(265)*V(5258) -! B(496) = dA(265)/dV(5258) - B(496) = RCT(265)*V(4332) -! B(497) = dA(266)/dV(4332) - B(497) = RCT(266)*V(5250) -! B(498) = dA(266)/dV(5250) - B(498) = RCT(266)*V(4332) -! B(499) = dA(267)/dV(4332) - B(499) = RCT(267)*V(5250) -! B(500) = dA(267)/dV(5250) - B(500) = RCT(267)*V(4332) -! B(501) = dA(268)/dV(4475) - B(501) = RCT(268)*V(5256) -! B(502) = dA(268)/dV(5256) - B(502) = RCT(268)*V(4475) -! B(503) = dA(269)/dV(4475) - B(503) = RCT(269)*V(5256) -! B(504) = dA(269)/dV(5256) - B(504) = RCT(269)*V(4475) -! B(505) = dA(270)/dV(4475) - B(505) = RCT(270)*V(5258) -! B(506) = dA(270)/dV(5258) - B(506) = RCT(270)*V(4475) -! B(507) = dA(271)/dV(4475) - B(507) = RCT(271)*V(5258) -! B(508) = dA(271)/dV(5258) - B(508) = RCT(271)*V(4475) -! B(509) = dA(272)/dV(4475) - B(509) = RCT(272)*V(5250) -! B(510) = dA(272)/dV(5250) - B(510) = RCT(272)*V(4475) -! B(511) = dA(273)/dV(4475) - B(511) = RCT(273)*V(5250) -! B(512) = dA(273)/dV(5250) - B(512) = RCT(273)*V(4475) -! B(513) = dA(274)/dV(4601) - B(513) = RCT(274)*V(5256) -! B(514) = dA(274)/dV(5256) - B(514) = RCT(274)*V(4601) -! B(515) = dA(275)/dV(4601) - B(515) = RCT(275)*V(5256) -! B(516) = dA(275)/dV(5256) - B(516) = RCT(275)*V(4601) -! B(517) = dA(276)/dV(4601) - B(517) = RCT(276)*V(5258) -! B(518) = dA(276)/dV(5258) - B(518) = RCT(276)*V(4601) -! B(519) = dA(277)/dV(4601) - B(519) = RCT(277)*V(5258) -! B(520) = dA(277)/dV(5258) - B(520) = RCT(277)*V(4601) -! B(521) = dA(278)/dV(4601) - B(521) = RCT(278)*V(5250) -! B(522) = dA(278)/dV(5250) - B(522) = RCT(278)*V(4601) -! B(523) = dA(279)/dV(4601) - B(523) = RCT(279)*V(5250) -! B(524) = dA(279)/dV(5250) - B(524) = RCT(279)*V(4601) -! B(525) = dA(280)/dV(4508) - B(525) = RCT(280)*V(5256) -! B(526) = dA(280)/dV(5256) - B(526) = RCT(280)*V(4508) -! B(527) = dA(281)/dV(4508) - B(527) = RCT(281)*V(5256) -! B(528) = dA(281)/dV(5256) - B(528) = RCT(281)*V(4508) -! B(529) = dA(282)/dV(4508) - B(529) = RCT(282)*V(5258) -! B(530) = dA(282)/dV(5258) - B(530) = RCT(282)*V(4508) -! B(531) = dA(283)/dV(4508) - B(531) = RCT(283)*V(5258) -! B(532) = dA(283)/dV(5258) - B(532) = RCT(283)*V(4508) -! B(533) = dA(284)/dV(4508) - B(533) = RCT(284)*V(5250) -! B(534) = dA(284)/dV(5250) - B(534) = RCT(284)*V(4508) -! B(535) = dA(285)/dV(4508) - B(535) = RCT(285)*V(5250) -! B(536) = dA(285)/dV(5250) - B(536) = RCT(285)*V(4508) -! B(537) = dA(286)/dV(4474) - B(537) = RCT(286)*V(5256) -! B(538) = dA(286)/dV(5256) - B(538) = RCT(286)*V(4474) -! B(539) = dA(287)/dV(4474) - B(539) = RCT(287)*V(5256) -! B(540) = dA(287)/dV(5256) - B(540) = RCT(287)*V(4474) -! B(541) = dA(288)/dV(4474) - B(541) = RCT(288)*V(5258) -! B(542) = dA(288)/dV(5258) - B(542) = RCT(288)*V(4474) -! B(543) = dA(289)/dV(4474) - B(543) = RCT(289)*V(5258) -! B(544) = dA(289)/dV(5258) - B(544) = RCT(289)*V(4474) -! B(545) = dA(290)/dV(4474) - B(545) = RCT(290)*V(5250) -! B(546) = dA(290)/dV(5250) - B(546) = RCT(290)*V(4474) -! B(547) = dA(291)/dV(4474) - B(547) = RCT(291)*V(5250) -! B(548) = dA(291)/dV(5250) - B(548) = RCT(291)*V(4474) -! B(549) = dA(292)/dV(4527) - B(549) = RCT(292)*V(5256) -! B(550) = dA(292)/dV(5256) - B(550) = RCT(292)*V(4527) -! B(551) = dA(293)/dV(4527) - B(551) = RCT(293)*V(5256) -! B(552) = dA(293)/dV(5256) - B(552) = RCT(293)*V(4527) -! B(553) = dA(294)/dV(4527) - B(553) = RCT(294)*V(5258) -! B(554) = dA(294)/dV(5258) - B(554) = RCT(294)*V(4527) -! B(555) = dA(295)/dV(4527) - B(555) = RCT(295)*V(5258) -! B(556) = dA(295)/dV(5258) - B(556) = RCT(295)*V(4527) -! B(557) = dA(296)/dV(4527) - B(557) = RCT(296)*V(5250) -! B(558) = dA(296)/dV(5250) - B(558) = RCT(296)*V(4527) -! B(559) = dA(297)/dV(4527) - B(559) = RCT(297)*V(5250) -! B(560) = dA(297)/dV(5250) - B(560) = RCT(297)*V(4527) -! B(561) = dA(298)/dV(4604) - B(561) = RCT(298)*V(5256) -! B(562) = dA(298)/dV(5256) - B(562) = RCT(298)*V(4604) -! B(563) = dA(299)/dV(4604) - B(563) = RCT(299)*V(5256) -! B(564) = dA(299)/dV(5256) - B(564) = RCT(299)*V(4604) -! B(565) = dA(300)/dV(4604) - B(565) = RCT(300)*V(5258) -! B(566) = dA(300)/dV(5258) - B(566) = RCT(300)*V(4604) -! B(567) = dA(301)/dV(4604) - B(567) = RCT(301)*V(5258) -! B(568) = dA(301)/dV(5258) - B(568) = RCT(301)*V(4604) -! B(569) = dA(302)/dV(4604) - B(569) = RCT(302)*V(5250) -! B(570) = dA(302)/dV(5250) - B(570) = RCT(302)*V(4604) -! B(571) = dA(303)/dV(4604) - B(571) = RCT(303)*V(5250) -! B(572) = dA(303)/dV(5250) - B(572) = RCT(303)*V(4604) -! B(573) = dA(304)/dV(4606) - B(573) = RCT(304)*V(5256) -! B(574) = dA(304)/dV(5256) - B(574) = RCT(304)*V(4606) -! B(575) = dA(305)/dV(4606) - B(575) = RCT(305)*V(5256) -! B(576) = dA(305)/dV(5256) - B(576) = RCT(305)*V(4606) -! B(577) = dA(306)/dV(4606) - B(577) = RCT(306)*V(5258) -! B(578) = dA(306)/dV(5258) - B(578) = RCT(306)*V(4606) -! B(579) = dA(307)/dV(4606) - B(579) = RCT(307)*V(5258) -! B(580) = dA(307)/dV(5258) - B(580) = RCT(307)*V(4606) -! B(581) = dA(308)/dV(4606) - B(581) = RCT(308)*V(5250) -! B(582) = dA(308)/dV(5250) - B(582) = RCT(308)*V(4606) -! B(583) = dA(309)/dV(4606) - B(583) = RCT(309)*V(5250) -! B(584) = dA(309)/dV(5250) - B(584) = RCT(309)*V(4606) -! B(585) = dA(310)/dV(3442) - B(585) = RCT(310)*V(5256) -! B(586) = dA(310)/dV(5256) - B(586) = RCT(310)*V(3442) -! B(587) = dA(311)/dV(3442) - B(587) = RCT(311)*V(5258) -! B(588) = dA(311)/dV(5258) - B(588) = RCT(311)*V(3442) -! B(589) = dA(312)/dV(3442) - B(589) = RCT(312)*V(5250) -! B(590) = dA(312)/dV(5250) - B(590) = RCT(312)*V(3442) -! B(591) = dA(313)/dV(198) - B(591) = RCT(313)*V(5250) -! B(592) = dA(313)/dV(5250) - B(592) = RCT(313)*V(198) -! B(593) = dA(314)/dV(198) - B(593) = RCT(314)*V(5250) -! B(594) = dA(314)/dV(5250) - B(594) = RCT(314)*V(198) -! B(595) = dA(315)/dV(1703) - B(595) = RCT(315)*V(5250) -! B(596) = dA(315)/dV(5250) - B(596) = RCT(315)*V(1703) -! B(597) = dA(316)/dV(1703) - B(597) = RCT(316)*V(5250) -! B(598) = dA(316)/dV(5250) - B(598) = RCT(316)*V(1703) -! B(599) = dA(317)/dV(1703) - B(599) = RCT(317)*V(5250) -! B(600) = dA(317)/dV(5250) - B(600) = RCT(317)*V(1703) -! B(601) = dA(318)/dV(250) - B(601) = RCT(318)*V(5250) -! B(602) = dA(318)/dV(5250) - B(602) = RCT(318)*V(250) -! B(603) = dA(319)/dV(250) - B(603) = RCT(319)*V(5250) -! B(604) = dA(319)/dV(5250) - B(604) = RCT(319)*V(250) -! B(605) = dA(320)/dV(250) - B(605) = RCT(320)*V(5250) -! B(606) = dA(320)/dV(5250) - B(606) = RCT(320)*V(250) -! B(607) = dA(321)/dV(250) - B(607) = RCT(321)*V(5250) -! B(608) = dA(321)/dV(5250) - B(608) = RCT(321)*V(250) -! B(609) = dA(322)/dV(3145) - B(609) = RCT(322)*V(5256) -! B(610) = dA(322)/dV(5256) - B(610) = RCT(322)*V(3145) -! B(611) = dA(323)/dV(3145) - B(611) = RCT(323)*V(5250) -! B(612) = dA(323)/dV(5250) - B(612) = RCT(323)*V(3145) -! B(613) = dA(324)/dV(3145) - B(613) = RCT(324)*V(5250) -! B(614) = dA(324)/dV(5250) - B(614) = RCT(324)*V(3145) -! B(615) = dA(325)/dV(3145) - B(615) = RCT(325)*V(5250) -! B(616) = dA(325)/dV(5250) - B(616) = RCT(325)*V(3145) -! B(617) = dA(326)/dV(3145) - B(617) = RCT(326)*V(5250) -! B(618) = dA(326)/dV(5250) - B(618) = RCT(326)*V(3145) -! B(619) = dA(327)/dV(3096) - B(619) = RCT(327)*V(5256) -! B(620) = dA(327)/dV(5256) - B(620) = RCT(327)*V(3096) -! B(621) = dA(328)/dV(3096) - B(621) = RCT(328)*V(5250) -! B(622) = dA(328)/dV(5250) - B(622) = RCT(328)*V(3096) -! B(623) = dA(329)/dV(3096) - B(623) = RCT(329)*V(5250) -! B(624) = dA(329)/dV(5250) - B(624) = RCT(329)*V(3096) -! B(625) = dA(330)/dV(3096) - B(625) = RCT(330)*V(5250) -! B(626) = dA(330)/dV(5250) - B(626) = RCT(330)*V(3096) -! B(627) = dA(331)/dV(3096) - B(627) = RCT(331)*V(5250) -! B(628) = dA(331)/dV(5250) - B(628) = RCT(331)*V(3096) -! B(629) = dA(332)/dV(3134) - B(629) = RCT(332)*V(5256) -! B(630) = dA(332)/dV(5256) - B(630) = RCT(332)*V(3134) -! B(631) = dA(333)/dV(3134) - B(631) = RCT(333)*V(5250) -! B(632) = dA(333)/dV(5250) - B(632) = RCT(333)*V(3134) -! B(633) = dA(334)/dV(3134) - B(633) = RCT(334)*V(5250) -! B(634) = dA(334)/dV(5250) - B(634) = RCT(334)*V(3134) -! B(635) = dA(335)/dV(3134) - B(635) = RCT(335)*V(5250) -! B(636) = dA(335)/dV(5250) - B(636) = RCT(335)*V(3134) -! B(637) = dA(336)/dV(3134) - B(637) = RCT(336)*V(5250) -! B(638) = dA(336)/dV(5250) - B(638) = RCT(336)*V(3134) -! B(639) = dA(337)/dV(3105) - B(639) = RCT(337)*V(5256) -! B(640) = dA(337)/dV(5256) - B(640) = RCT(337)*V(3105) -! B(641) = dA(338)/dV(3105) - B(641) = RCT(338)*V(5250) -! B(642) = dA(338)/dV(5250) - B(642) = RCT(338)*V(3105) -! B(643) = dA(339)/dV(3105) - B(643) = RCT(339)*V(5250) -! B(644) = dA(339)/dV(5250) - B(644) = RCT(339)*V(3105) -! B(645) = dA(340)/dV(3105) - B(645) = RCT(340)*V(5250) -! B(646) = dA(340)/dV(5250) - B(646) = RCT(340)*V(3105) -! B(647) = dA(341)/dV(3105) - B(647) = RCT(341)*V(5250) -! B(648) = dA(341)/dV(5250) - B(648) = RCT(341)*V(3105) -! B(649) = dA(342)/dV(3144) - B(649) = RCT(342)*V(5256) -! B(650) = dA(342)/dV(5256) - B(650) = RCT(342)*V(3144) -! B(651) = dA(343)/dV(3144) - B(651) = RCT(343)*V(5250) -! B(652) = dA(343)/dV(5250) - B(652) = RCT(343)*V(3144) -! B(653) = dA(344)/dV(3144) - B(653) = RCT(344)*V(5250) -! B(654) = dA(344)/dV(5250) - B(654) = RCT(344)*V(3144) -! B(655) = dA(345)/dV(3144) - B(655) = RCT(345)*V(5250) -! B(656) = dA(345)/dV(5250) - B(656) = RCT(345)*V(3144) -! B(657) = dA(346)/dV(3144) - B(657) = RCT(346)*V(5250) -! B(658) = dA(346)/dV(5250) - B(658) = RCT(346)*V(3144) -! B(659) = dA(347)/dV(3084) - B(659) = RCT(347)*V(5256) -! B(660) = dA(347)/dV(5256) - B(660) = RCT(347)*V(3084) -! B(661) = dA(348)/dV(3084) - B(661) = RCT(348)*V(5250) -! B(662) = dA(348)/dV(5250) - B(662) = RCT(348)*V(3084) -! B(663) = dA(349)/dV(3084) - B(663) = RCT(349)*V(5250) -! B(664) = dA(349)/dV(5250) - B(664) = RCT(349)*V(3084) -! B(665) = dA(350)/dV(3084) - B(665) = RCT(350)*V(5250) -! B(666) = dA(350)/dV(5250) - B(666) = RCT(350)*V(3084) -! B(667) = dA(351)/dV(3084) - B(667) = RCT(351)*V(5250) -! B(668) = dA(351)/dV(5250) - B(668) = RCT(351)*V(3084) -! B(669) = dA(352)/dV(3179) - B(669) = RCT(352)*V(5256) -! B(670) = dA(352)/dV(5256) - B(670) = RCT(352)*V(3179) -! B(671) = dA(353)/dV(3179) - B(671) = RCT(353)*V(5250) -! B(672) = dA(353)/dV(5250) - B(672) = RCT(353)*V(3179) -! B(673) = dA(354)/dV(3179) - B(673) = RCT(354)*V(5250) -! B(674) = dA(354)/dV(5250) - B(674) = RCT(354)*V(3179) -! B(675) = dA(355)/dV(3179) - B(675) = RCT(355)*V(5250) -! B(676) = dA(355)/dV(5250) - B(676) = RCT(355)*V(3179) -! B(677) = dA(356)/dV(3179) - B(677) = RCT(356)*V(5250) -! B(678) = dA(356)/dV(5250) - B(678) = RCT(356)*V(3179) -! B(679) = dA(357)/dV(3138) - B(679) = RCT(357)*V(5256) -! B(680) = dA(357)/dV(5256) - B(680) = RCT(357)*V(3138) -! B(681) = dA(358)/dV(3138) - B(681) = RCT(358)*V(5250) -! B(682) = dA(358)/dV(5250) - B(682) = RCT(358)*V(3138) -! B(683) = dA(359)/dV(3138) - B(683) = RCT(359)*V(5250) -! B(684) = dA(359)/dV(5250) - B(684) = RCT(359)*V(3138) -! B(685) = dA(360)/dV(3138) - B(685) = RCT(360)*V(5250) -! B(686) = dA(360)/dV(5250) - B(686) = RCT(360)*V(3138) -! B(687) = dA(361)/dV(3138) - B(687) = RCT(361)*V(5250) -! B(688) = dA(361)/dV(5250) - B(688) = RCT(361)*V(3138) -! B(689) = dA(362)/dV(3097) - B(689) = RCT(362)*V(5256) -! B(690) = dA(362)/dV(5256) - B(690) = RCT(362)*V(3097) -! B(691) = dA(363)/dV(3097) - B(691) = RCT(363)*V(5250) -! B(692) = dA(363)/dV(5250) - B(692) = RCT(363)*V(3097) -! B(693) = dA(364)/dV(3097) - B(693) = RCT(364)*V(5250) -! B(694) = dA(364)/dV(5250) - B(694) = RCT(364)*V(3097) -! B(695) = dA(365)/dV(3097) - B(695) = RCT(365)*V(5250) -! B(696) = dA(365)/dV(5250) - B(696) = RCT(365)*V(3097) -! B(697) = dA(366)/dV(3097) - B(697) = RCT(366)*V(5250) -! B(698) = dA(366)/dV(5250) - B(698) = RCT(366)*V(3097) -! B(699) = dA(367)/dV(3192) - B(699) = RCT(367)*V(5256) -! B(700) = dA(367)/dV(5256) - B(700) = RCT(367)*V(3192) -! B(701) = dA(368)/dV(3192) - B(701) = RCT(368)*V(5250) -! B(702) = dA(368)/dV(5250) - B(702) = RCT(368)*V(3192) -! B(703) = dA(369)/dV(3192) - B(703) = RCT(369)*V(5250) -! B(704) = dA(369)/dV(5250) - B(704) = RCT(369)*V(3192) -! B(705) = dA(370)/dV(3192) - B(705) = RCT(370)*V(5250) -! B(706) = dA(370)/dV(5250) - B(706) = RCT(370)*V(3192) -! B(707) = dA(371)/dV(3192) - B(707) = RCT(371)*V(5250) -! B(708) = dA(371)/dV(5250) - B(708) = RCT(371)*V(3192) -! B(709) = dA(372)/dV(3113) - B(709) = RCT(372)*V(5256) -! B(710) = dA(372)/dV(5256) - B(710) = RCT(372)*V(3113) -! B(711) = dA(373)/dV(3113) - B(711) = RCT(373)*V(5250) -! B(712) = dA(373)/dV(5250) - B(712) = RCT(373)*V(3113) -! B(713) = dA(374)/dV(3113) - B(713) = RCT(374)*V(5250) -! B(714) = dA(374)/dV(5250) - B(714) = RCT(374)*V(3113) -! B(715) = dA(375)/dV(3113) - B(715) = RCT(375)*V(5250) -! B(716) = dA(375)/dV(5250) - B(716) = RCT(375)*V(3113) -! B(717) = dA(376)/dV(3113) - B(717) = RCT(376)*V(5250) -! B(718) = dA(376)/dV(5250) - B(718) = RCT(376)*V(3113) -! B(719) = dA(377)/dV(3129) - B(719) = RCT(377)*V(5256) -! B(720) = dA(377)/dV(5256) - B(720) = RCT(377)*V(3129) -! B(721) = dA(378)/dV(3129) - B(721) = RCT(378)*V(5250) -! B(722) = dA(378)/dV(5250) - B(722) = RCT(378)*V(3129) -! B(723) = dA(379)/dV(3129) - B(723) = RCT(379)*V(5250) -! B(724) = dA(379)/dV(5250) - B(724) = RCT(379)*V(3129) -! B(725) = dA(380)/dV(3129) - B(725) = RCT(380)*V(5250) -! B(726) = dA(380)/dV(5250) - B(726) = RCT(380)*V(3129) -! B(727) = dA(381)/dV(3129) - B(727) = RCT(381)*V(5250) -! B(728) = dA(381)/dV(5250) - B(728) = RCT(381)*V(3129) -! B(729) = dA(382)/dV(3182) - B(729) = RCT(382)*V(5256) -! B(730) = dA(382)/dV(5256) - B(730) = RCT(382)*V(3182) -! B(731) = dA(383)/dV(3182) - B(731) = RCT(383)*V(5250) -! B(732) = dA(383)/dV(5250) - B(732) = RCT(383)*V(3182) -! B(733) = dA(384)/dV(3182) - B(733) = RCT(384)*V(5250) -! B(734) = dA(384)/dV(5250) - B(734) = RCT(384)*V(3182) -! B(735) = dA(385)/dV(3182) - B(735) = RCT(385)*V(5250) -! B(736) = dA(385)/dV(5250) - B(736) = RCT(385)*V(3182) -! B(737) = dA(386)/dV(3182) - B(737) = RCT(386)*V(5250) -! B(738) = dA(386)/dV(5250) - B(738) = RCT(386)*V(3182) -! B(739) = dA(387)/dV(3169) - B(739) = RCT(387)*V(5256) -! B(740) = dA(387)/dV(5256) - B(740) = RCT(387)*V(3169) -! B(741) = dA(388)/dV(3169) - B(741) = RCT(388)*V(5250) -! B(742) = dA(388)/dV(5250) - B(742) = RCT(388)*V(3169) -! B(743) = dA(389)/dV(3169) - B(743) = RCT(389)*V(5250) -! B(744) = dA(389)/dV(5250) - B(744) = RCT(389)*V(3169) -! B(745) = dA(390)/dV(3169) - B(745) = RCT(390)*V(5250) -! B(746) = dA(390)/dV(5250) - B(746) = RCT(390)*V(3169) -! B(747) = dA(391)/dV(3169) - B(747) = RCT(391)*V(5250) -! B(748) = dA(391)/dV(5250) - B(748) = RCT(391)*V(3169) -! B(749) = dA(392)/dV(4395) - B(749) = RCT(392)*V(5256) -! B(750) = dA(392)/dV(5256) - B(750) = RCT(392)*V(4395) -! B(751) = dA(393)/dV(4395) - B(751) = RCT(393)*V(5258) -! B(752) = dA(393)/dV(5258) - B(752) = RCT(393)*V(4395) -! B(753) = dA(394)/dV(4395) - B(753) = RCT(394)*V(5258) -! B(754) = dA(394)/dV(5258) - B(754) = RCT(394)*V(4395) -! B(755) = dA(395)/dV(4395) - B(755) = RCT(395)*V(5250) -! B(756) = dA(395)/dV(5250) - B(756) = RCT(395)*V(4395) -! B(757) = dA(396)/dV(4964) - B(757) = RCT(396) -! B(758) = dA(397)/dV(4964) - B(758) = RCT(397) -! B(759) = dA(398)/dV(4964) - B(759) = RCT(398)*V(5256) -! B(760) = dA(398)/dV(5256) - B(760) = RCT(398)*V(4964) -! B(761) = dA(399)/dV(4964) - B(761) = RCT(399)*V(5250) -! B(762) = dA(399)/dV(5250) - B(762) = RCT(399)*V(4964) -! B(763) = dA(400)/dV(5153) - B(763) = RCT(400)*V(5256) -! B(764) = dA(400)/dV(5256) - B(764) = RCT(400)*V(5153) -! B(765) = dA(401)/dV(5153) - B(765) = RCT(401)*V(5256) -! B(766) = dA(401)/dV(5256) - B(766) = RCT(401)*V(5153) -! B(767) = dA(402)/dV(5153) - B(767) = RCT(402)*V(5258) -! B(768) = dA(402)/dV(5258) - B(768) = RCT(402)*V(5153) -! B(769) = dA(403)/dV(5153) - B(769) = RCT(403)*V(5258) -! B(770) = dA(403)/dV(5258) - B(770) = RCT(403)*V(5153) -! B(771) = dA(404)/dV(5153) - B(771) = RCT(404)*V(5250) -! B(772) = dA(404)/dV(5250) - B(772) = RCT(404)*V(5153) -! B(773) = dA(405)/dV(5153) - B(773) = RCT(405)*V(5250) -! B(774) = dA(405)/dV(5250) - B(774) = RCT(405)*V(5153) -! B(775) = dA(406)/dV(5153) - B(775) = RCT(406)*V(5250) -! B(776) = dA(406)/dV(5250) - B(776) = RCT(406)*V(5153) -! B(777) = dA(407)/dV(5166) - B(777) = RCT(407)*V(5256) -! B(778) = dA(407)/dV(5256) - B(778) = RCT(407)*V(5166) -! B(779) = dA(408)/dV(5166) - B(779) = RCT(408)*V(5258) -! B(780) = dA(408)/dV(5258) - B(780) = RCT(408)*V(5166) -! B(781) = dA(409)/dV(5166) - B(781) = RCT(409)*V(5258) -! B(782) = dA(409)/dV(5258) - B(782) = RCT(409)*V(5166) -! B(783) = dA(410)/dV(5166) - B(783) = RCT(410)*V(5258) -! B(784) = dA(410)/dV(5258) - B(784) = RCT(410)*V(5166) -! B(785) = dA(411)/dV(5166) - B(785) = RCT(411)*V(5258) -! B(786) = dA(411)/dV(5258) - B(786) = RCT(411)*V(5166) -! B(787) = dA(412)/dV(5166) - B(787) = RCT(412)*V(5250) -! B(788) = dA(412)/dV(5250) - B(788) = RCT(412)*V(5166) -! B(789) = dA(413)/dV(5166) - B(789) = RCT(413)*V(5250) -! B(790) = dA(413)/dV(5250) - B(790) = RCT(413)*V(5166) -! B(791) = dA(414)/dV(5166) - B(791) = RCT(414)*V(5250) -! B(792) = dA(414)/dV(5250) - B(792) = RCT(414)*V(5166) -! B(793) = dA(415)/dV(5166) - B(793) = RCT(415)*V(5250) -! B(794) = dA(415)/dV(5250) - B(794) = RCT(415)*V(5166) -! B(795) = dA(416)/dV(5166) - B(795) = RCT(416)*V(5250) -! B(796) = dA(416)/dV(5250) - B(796) = RCT(416)*V(5166) -! B(797) = dA(417)/dV(5166) - B(797) = RCT(417)*V(5250) -! B(798) = dA(417)/dV(5250) - B(798) = RCT(417)*V(5166) -! B(799) = dA(418)/dV(5166) - B(799) = RCT(418)*V(5250) -! B(800) = dA(418)/dV(5250) - B(800) = RCT(418)*V(5166) -! B(801) = dA(419)/dV(668) - B(801) = RCT(419)*V(5256) -! B(802) = dA(419)/dV(5256) - B(802) = RCT(419)*V(668) -! B(803) = dA(420)/dV(668) - B(803) = RCT(420)*V(5250) -! B(804) = dA(420)/dV(5250) - B(804) = RCT(420)*V(668) -! B(805) = dA(421)/dV(1580) - B(805) = RCT(421)*V(5256) -! B(806) = dA(421)/dV(5256) - B(806) = RCT(421)*V(1580) -! B(807) = dA(422)/dV(1580) - B(807) = RCT(422)*V(5250) -! B(808) = dA(422)/dV(5250) - B(808) = RCT(422)*V(1580) -! B(809) = dA(423)/dV(1580) - B(809) = RCT(423)*V(5250) -! B(810) = dA(423)/dV(5250) - B(810) = RCT(423)*V(1580) -! B(811) = dA(424)/dV(5160) - B(811) = RCT(424)*V(5250) -! B(812) = dA(424)/dV(5250) - B(812) = RCT(424)*V(5160) -! B(813) = dA(425)/dV(5160) - B(813) = RCT(425) -! B(814) = dA(426)/dV(5178) - B(814) = RCT(426)*V(5250) -! B(815) = dA(426)/dV(5250) - B(815) = RCT(426)*V(5178) -! B(816) = dA(427)/dV(5178) - B(816) = RCT(427)*V(5250) -! B(817) = dA(427)/dV(5250) - B(817) = RCT(427)*V(5178) -! B(818) = dA(428)/dV(5178) - B(818) = RCT(428)*V(5250) -! B(819) = dA(428)/dV(5250) - B(819) = RCT(428)*V(5178) -! B(820) = dA(429)/dV(5178) - B(820) = RCT(429) -! B(821) = dA(430)/dV(3978) - B(821) = RCT(430)*V(5250) -! B(822) = dA(430)/dV(5250) - B(822) = RCT(430)*V(3978) -! B(823) = dA(431)/dV(3978) - B(823) = RCT(431)*V(5250) -! B(824) = dA(431)/dV(5250) - B(824) = RCT(431)*V(3978) -! B(825) = dA(432)/dV(3978) - B(825) = RCT(432) -! B(826) = dA(433)/dV(3609) - B(826) = RCT(433)*V(5250) -! B(827) = dA(433)/dV(5250) - B(827) = RCT(433)*V(3609) -! B(828) = dA(434)/dV(3609) - B(828) = RCT(434)*V(5250) -! B(829) = dA(434)/dV(5250) - B(829) = RCT(434)*V(3609) -! B(830) = dA(435)/dV(3609) - B(830) = RCT(435) -! B(831) = dA(436)/dV(3868) - B(831) = RCT(436) -! B(832) = dA(437)/dV(3868) - B(832) = RCT(437)*V(5250) -! B(833) = dA(437)/dV(5250) - B(833) = RCT(437)*V(3868) -! B(834) = dA(438)/dV(3868) - B(834) = RCT(438)*V(5250) -! B(835) = dA(438)/dV(5250) - B(835) = RCT(438)*V(3868) -! B(836) = dA(439)/dV(3505) - B(836) = RCT(439)*V(5250) -! B(837) = dA(439)/dV(5250) - B(837) = RCT(439)*V(3505) -! B(838) = dA(440)/dV(3505) - B(838) = RCT(440)*V(5250) -! B(839) = dA(440)/dV(5250) - B(839) = RCT(440)*V(3505) -! B(840) = dA(441)/dV(3505) - B(840) = RCT(441)*V(5250) -! B(841) = dA(441)/dV(5250) - B(841) = RCT(441)*V(3505) -! B(842) = dA(442)/dV(3505) - B(842) = RCT(442) -! B(843) = dA(443)/dV(3843) - B(843) = RCT(443)*V(5250) -! B(844) = dA(443)/dV(5250) - B(844) = RCT(443)*V(3843) -! B(845) = dA(444)/dV(3843) - B(845) = RCT(444)*V(5250) -! B(846) = dA(444)/dV(5250) - B(846) = RCT(444)*V(3843) -! B(847) = dA(445)/dV(3843) - B(847) = RCT(445)*V(5250) -! B(848) = dA(445)/dV(5250) - B(848) = RCT(445)*V(3843) -! B(849) = dA(446)/dV(3843) - B(849) = RCT(446)*V(5250) -! B(850) = dA(446)/dV(5250) - B(850) = RCT(446)*V(3843) -! B(851) = dA(447)/dV(3843) - B(851) = RCT(447) -! B(852) = dA(448)/dV(3583) - B(852) = RCT(448)*V(5250) -! B(853) = dA(448)/dV(5250) - B(853) = RCT(448)*V(3583) -! B(854) = dA(449)/dV(3583) - B(854) = RCT(449)*V(5250) -! B(855) = dA(449)/dV(5250) - B(855) = RCT(449)*V(3583) -! B(856) = dA(450)/dV(3583) - B(856) = RCT(450) -! B(857) = dA(451)/dV(3369) - B(857) = RCT(451) -! B(858) = dA(452)/dV(3369) - B(858) = RCT(452)*V(5250) -! B(859) = dA(452)/dV(5250) - B(859) = RCT(452)*V(3369) -! B(860) = dA(453)/dV(3689) - B(860) = RCT(453)*V(5250) -! B(861) = dA(453)/dV(5250) - B(861) = RCT(453)*V(3689) -! B(862) = dA(454)/dV(3689) - B(862) = RCT(454) -! B(863) = dA(455)/dV(3689) - B(863) = RCT(455) -! B(864) = dA(456)/dV(4492) - B(864) = RCT(456)*V(5256) -! B(865) = dA(456)/dV(5256) - B(865) = RCT(456)*V(4492) -! B(866) = dA(457)/dV(4492) - B(866) = RCT(457)*V(5256) -! B(867) = dA(457)/dV(5256) - B(867) = RCT(457)*V(4492) -! B(868) = dA(458)/dV(4492) - B(868) = RCT(458)*V(5258) -! B(869) = dA(458)/dV(5258) - B(869) = RCT(458)*V(4492) -! B(870) = dA(459)/dV(4492) - B(870) = RCT(459)*V(5258) -! B(871) = dA(459)/dV(5258) - B(871) = RCT(459)*V(4492) -! B(872) = dA(460)/dV(4492) - B(872) = RCT(460)*V(5250) -! B(873) = dA(460)/dV(5250) - B(873) = RCT(460)*V(4492) -! B(874) = dA(461)/dV(4492) - B(874) = RCT(461)*V(5250) -! B(875) = dA(461)/dV(5250) - B(875) = RCT(461)*V(4492) -! B(876) = dA(462)/dV(4492) - B(876) = RCT(462)*V(5250) -! B(877) = dA(462)/dV(5250) - B(877) = RCT(462)*V(4492) -! B(878) = dA(463)/dV(4600) - B(878) = RCT(463)*V(5256) -! B(879) = dA(463)/dV(5256) - B(879) = RCT(463)*V(4600) -! B(880) = dA(464)/dV(4600) - B(880) = RCT(464)*V(5256) -! B(881) = dA(464)/dV(5256) - B(881) = RCT(464)*V(4600) -! B(882) = dA(465)/dV(4600) - B(882) = RCT(465)*V(5258) -! B(883) = dA(465)/dV(5258) - B(883) = RCT(465)*V(4600) -! B(884) = dA(466)/dV(4600) - B(884) = RCT(466)*V(5258) -! B(885) = dA(466)/dV(5258) - B(885) = RCT(466)*V(4600) -! B(886) = dA(467)/dV(4600) - B(886) = RCT(467)*V(5250) -! B(887) = dA(467)/dV(5250) - B(887) = RCT(467)*V(4600) -! B(888) = dA(468)/dV(4600) - B(888) = RCT(468)*V(5250) -! B(889) = dA(468)/dV(5250) - B(889) = RCT(468)*V(4600) -! B(890) = dA(469)/dV(4600) - B(890) = RCT(469)*V(5250) -! B(891) = dA(469)/dV(5250) - B(891) = RCT(469)*V(4600) -! B(892) = dA(470)/dV(4605) - B(892) = RCT(470)*V(5256) -! B(893) = dA(470)/dV(5256) - B(893) = RCT(470)*V(4605) -! B(894) = dA(471)/dV(4605) - B(894) = RCT(471)*V(5258) -! B(895) = dA(471)/dV(5258) - B(895) = RCT(471)*V(4605) -! B(896) = dA(472)/dV(4605) - B(896) = RCT(472)*V(5258) -! B(897) = dA(472)/dV(5258) - B(897) = RCT(472)*V(4605) -! B(898) = dA(473)/dV(4605) - B(898) = RCT(473)*V(5250) -! B(899) = dA(473)/dV(5250) - B(899) = RCT(473)*V(4605) -! B(900) = dA(474)/dV(4605) - B(900) = RCT(474)*V(5250) -! B(901) = dA(474)/dV(5250) - B(901) = RCT(474)*V(4605) -! B(902) = dA(475)/dV(4605) - B(902) = RCT(475)*V(5250) -! B(903) = dA(475)/dV(5250) - B(903) = RCT(475)*V(4605) -! B(904) = dA(476)/dV(4988) - B(904) = RCT(476)*V(5256) -! B(905) = dA(476)/dV(5256) - B(905) = RCT(476)*V(4988) -! B(906) = dA(477)/dV(4988) - B(906) = RCT(477)*V(5258) -! B(907) = dA(477)/dV(5258) - B(907) = RCT(477)*V(4988) -! B(908) = dA(478)/dV(4988) - B(908) = RCT(478)*V(5258) -! B(909) = dA(478)/dV(5258) - B(909) = RCT(478)*V(4988) -! B(910) = dA(479)/dV(4988) - B(910) = RCT(479)*V(5258) -! B(911) = dA(479)/dV(5258) - B(911) = RCT(479)*V(4988) -! B(912) = dA(480)/dV(4988) - B(912) = RCT(480)*V(5258) -! B(913) = dA(480)/dV(5258) - B(913) = RCT(480)*V(4988) -! B(914) = dA(481)/dV(4988) - B(914) = RCT(481)*V(5250) -! B(915) = dA(481)/dV(5250) - B(915) = RCT(481)*V(4988) -! B(916) = dA(482)/dV(4988) - B(916) = RCT(482)*V(5250) -! B(917) = dA(482)/dV(5250) - B(917) = RCT(482)*V(4988) -! B(918) = dA(483)/dV(4988) - B(918) = RCT(483)*V(5250) -! B(919) = dA(483)/dV(5250) - B(919) = RCT(483)*V(4988) -! B(920) = dA(484)/dV(1750) - B(920) = RCT(484) -! B(921) = dA(485)/dV(5195) - B(921) = RCT(485)*V(5255) -! B(922) = dA(485)/dV(5255) - B(922) = RCT(485)*V(5195) -! B(923) = dA(486)/dV(5195) - B(923) = RCT(486)*V(5252) -! B(924) = dA(486)/dV(5252) - B(924) = RCT(486)*V(5195) -! B(925) = dA(487)/dV(5195) - B(925) = RCT(487)*V(5252) -! B(926) = dA(487)/dV(5252) - B(926) = RCT(487)*V(5195) -! B(927) = dA(488)/dV(5195) - B(927) = RCT(488)*V(5256) -! B(928) = dA(488)/dV(5256) - B(928) = RCT(488)*V(5195) -! B(929) = dA(489)/dV(5195) - B(929) = RCT(489) -! B(930) = dA(490)/dV(5195) - B(930) = RCT(490) -! B(931) = dA(491)/dV(5195) - B(931) = RCT(491) -! B(932) = dA(492)/dV(4995) - B(932) = RCT(492)*V(5255) -! B(933) = dA(492)/dV(5255) - B(933) = RCT(492)*V(4995) -! B(934) = dA(493)/dV(4995) - B(934) = RCT(493)*V(5252) -! B(935) = dA(493)/dV(5252) - B(935) = RCT(493)*V(4995) -! B(936) = dA(494)/dV(4995) - B(936) = RCT(494)*V(5252) -! B(937) = dA(494)/dV(5252) - B(937) = RCT(494)*V(4995) -! B(938) = dA(495)/dV(4995) - B(938) = RCT(495)*V(5256) -! B(939) = dA(495)/dV(5256) - B(939) = RCT(495)*V(4995) -! B(940) = dA(496)/dV(4995) - B(940) = RCT(496) -! B(941) = dA(497)/dV(4995) - B(941) = RCT(497) -! B(942) = dA(498)/dV(4995) - B(942) = RCT(498) -! B(943) = dA(499)/dV(5121) - B(943) = RCT(499)*V(5255) -! B(944) = dA(499)/dV(5255) - B(944) = RCT(499)*V(5121) -! B(945) = dA(500)/dV(5121) - B(945) = RCT(500)*V(5256) -! B(946) = dA(500)/dV(5256) - B(946) = RCT(500)*V(5121) -! B(947) = dA(501)/dV(5121) - B(947) = RCT(501) -! B(948) = dA(502)/dV(5121) - B(948) = RCT(502) -! B(949) = dA(503)/dV(5121) - B(949) = RCT(503) -! B(950) = dA(504)/dV(5121) - B(950) = RCT(504)*V(5252) -! B(951) = dA(504)/dV(5252) - B(951) = RCT(504)*V(5121) -! B(952) = dA(505)/dV(5121) - B(952) = RCT(505)*V(5252) -! B(953) = dA(505)/dV(5252) - B(953) = RCT(505)*V(5121) -! B(954) = dA(506)/dV(5202) - B(954) = RCT(506)*V(5255) -! B(955) = dA(506)/dV(5255) - B(955) = RCT(506)*V(5202) -! B(956) = dA(507)/dV(5202) - B(956) = RCT(507)*V(5252) -! B(957) = dA(507)/dV(5252) - B(957) = RCT(507)*V(5202) -! B(958) = dA(508)/dV(5202) - B(958) = RCT(508)*V(5252) -! B(959) = dA(508)/dV(5252) - B(959) = RCT(508)*V(5202) -! B(960) = dA(509)/dV(5202) - B(960) = RCT(509)*V(5256) -! B(961) = dA(509)/dV(5256) - B(961) = RCT(509)*V(5202) -! B(962) = dA(510)/dV(5202) - B(962) = RCT(510) -! B(963) = dA(511)/dV(5202) - B(963) = RCT(511) -! B(964) = dA(512)/dV(5202) - B(964) = RCT(512) -! B(965) = dA(513)/dV(4645) - B(965) = RCT(513)*V(5255) -! B(966) = dA(513)/dV(5255) - B(966) = RCT(513)*V(4645) -! B(967) = dA(514)/dV(4645) - B(967) = RCT(514)*V(5252) -! B(968) = dA(514)/dV(5252) - B(968) = RCT(514)*V(4645) -! B(969) = dA(515)/dV(4645) - B(969) = RCT(515)*V(5252) -! B(970) = dA(515)/dV(5252) - B(970) = RCT(515)*V(4645) -! B(971) = dA(516)/dV(4645) - B(971) = RCT(516)*V(5256) -! B(972) = dA(516)/dV(5256) - B(972) = RCT(516)*V(4645) -! B(973) = dA(517)/dV(4645) - B(973) = RCT(517) -! B(974) = dA(518)/dV(4645) - B(974) = RCT(518) -! B(975) = dA(519)/dV(4645) - B(975) = RCT(519) -! B(976) = dA(520)/dV(4870) - B(976) = RCT(520)*V(5255) -! B(977) = dA(520)/dV(5255) - B(977) = RCT(520)*V(4870) -! B(978) = dA(521)/dV(4870) - B(978) = RCT(521)*V(5252) -! B(979) = dA(521)/dV(5252) - B(979) = RCT(521)*V(4870) -! B(980) = dA(522)/dV(4870) - B(980) = RCT(522)*V(5252) -! B(981) = dA(522)/dV(5252) - B(981) = RCT(522)*V(4870) -! B(982) = dA(523)/dV(4870) - B(982) = RCT(523)*V(5256) -! B(983) = dA(523)/dV(5256) - B(983) = RCT(523)*V(4870) -! B(984) = dA(524)/dV(4870) - B(984) = RCT(524) -! B(985) = dA(525)/dV(4870) - B(985) = RCT(525) -! B(986) = dA(526)/dV(4870) - B(986) = RCT(526) -! B(987) = dA(527)/dV(5007) - B(987) = RCT(527)*V(5255) -! B(988) = dA(527)/dV(5255) - B(988) = RCT(527)*V(5007) -! B(989) = dA(528)/dV(5007) - B(989) = RCT(528)*V(5252) -! B(990) = dA(528)/dV(5252) - B(990) = RCT(528)*V(5007) -! B(991) = dA(529)/dV(5007) - B(991) = RCT(529)*V(5252) -! B(992) = dA(529)/dV(5252) - B(992) = RCT(529)*V(5007) -! B(993) = dA(530)/dV(5007) - B(993) = RCT(530)*V(5256) -! B(994) = dA(530)/dV(5256) - B(994) = RCT(530)*V(5007) -! B(995) = dA(531)/dV(5007) - B(995) = RCT(531) -! B(996) = dA(532)/dV(5007) - B(996) = RCT(532) -! B(997) = dA(533)/dV(5007) - B(997) = RCT(533) -! B(998) = dA(534)/dV(5060) - B(998) = RCT(534)*V(5255) -! B(999) = dA(534)/dV(5255) - B(999) = RCT(534)*V(5060) -! B(1000) = dA(535)/dV(5060) - B(1000) = RCT(535)*V(5252) -! B(1001) = dA(535)/dV(5252) - B(1001) = RCT(535)*V(5060) -! B(1002) = dA(536)/dV(5060) - B(1002) = RCT(536)*V(5252) -! B(1003) = dA(536)/dV(5252) - B(1003) = RCT(536)*V(5060) -! B(1004) = dA(537)/dV(5060) - B(1004) = RCT(537)*V(5256) -! B(1005) = dA(537)/dV(5256) - B(1005) = RCT(537)*V(5060) -! B(1006) = dA(538)/dV(5060) - B(1006) = RCT(538) -! B(1007) = dA(539)/dV(5060) - B(1007) = RCT(539) -! B(1008) = dA(540)/dV(4411) - B(1008) = RCT(540)*V(5255) -! B(1009) = dA(540)/dV(5255) - B(1009) = RCT(540)*V(4411) -! B(1010) = dA(541)/dV(4411) - B(1010) = RCT(541)*V(5252) -! B(1011) = dA(541)/dV(5252) - B(1011) = RCT(541)*V(4411) -! B(1012) = dA(542)/dV(4411) - B(1012) = RCT(542)*V(5252) -! B(1013) = dA(542)/dV(5252) - B(1013) = RCT(542)*V(4411) -! B(1014) = dA(543)/dV(4411) - B(1014) = RCT(543)*V(5256) -! B(1015) = dA(543)/dV(5256) - B(1015) = RCT(543)*V(4411) -! B(1016) = dA(544)/dV(4411) - B(1016) = RCT(544) -! B(1017) = dA(545)/dV(4411) - B(1017) = RCT(545) -! B(1018) = dA(546)/dV(4411) - B(1018) = RCT(546) -! B(1019) = dA(547)/dV(5129) - B(1019) = RCT(547)*V(5255) -! B(1020) = dA(547)/dV(5255) - B(1020) = RCT(547)*V(5129) -! B(1021) = dA(548)/dV(5129) - B(1021) = RCT(548)*V(5252) -! B(1022) = dA(548)/dV(5252) - B(1022) = RCT(548)*V(5129) -! B(1023) = dA(549)/dV(5129) - B(1023) = RCT(549)*V(5252) -! B(1024) = dA(549)/dV(5252) - B(1024) = RCT(549)*V(5129) -! B(1025) = dA(550)/dV(5129) - B(1025) = RCT(550)*V(5256) -! B(1026) = dA(550)/dV(5256) - B(1026) = RCT(550)*V(5129) -! B(1027) = dA(551)/dV(5129) - B(1027) = RCT(551) -! B(1028) = dA(552)/dV(5129) - B(1028) = RCT(552) -! B(1029) = dA(553)/dV(5129) - B(1029) = RCT(553) -! B(1030) = dA(554)/dV(2465) - B(1030) = RCT(554) -! B(1031) = dA(555)/dV(5185) - B(1031) = RCT(555)*V(5255) -! B(1032) = dA(555)/dV(5255) - B(1032) = RCT(555)*V(5185) -! B(1033) = dA(556)/dV(5185) - B(1033) = RCT(556)*V(5252) -! B(1034) = dA(556)/dV(5252) - B(1034) = RCT(556)*V(5185) -! B(1035) = dA(557)/dV(5185) - B(1035) = RCT(557)*V(5252) -! B(1036) = dA(557)/dV(5252) - B(1036) = RCT(557)*V(5185) -! B(1037) = dA(558)/dV(5185) - B(1037) = RCT(558)*V(5256) -! B(1038) = dA(558)/dV(5256) - B(1038) = RCT(558)*V(5185) -! B(1039) = dA(559)/dV(5185) - B(1039) = RCT(559) -! B(1040) = dA(560)/dV(5185) - B(1040) = RCT(560) -! B(1041) = dA(561)/dV(5185) - B(1041) = RCT(561) -! B(1042) = dA(562)/dV(4767) - B(1042) = RCT(562)*V(5255) -! B(1043) = dA(562)/dV(5255) - B(1043) = RCT(562)*V(4767) -! B(1044) = dA(563)/dV(4767) - B(1044) = RCT(563)*V(5252) -! B(1045) = dA(563)/dV(5252) - B(1045) = RCT(563)*V(4767) -! B(1046) = dA(564)/dV(4767) - B(1046) = RCT(564)*V(5252) -! B(1047) = dA(564)/dV(5252) - B(1047) = RCT(564)*V(4767) -! B(1048) = dA(565)/dV(4767) - B(1048) = RCT(565)*V(5256) -! B(1049) = dA(565)/dV(5256) - B(1049) = RCT(565)*V(4767) -! B(1050) = dA(566)/dV(4767) - B(1050) = RCT(566) -! B(1051) = dA(567)/dV(4767) - B(1051) = RCT(567) -! B(1052) = dA(568)/dV(4767) - B(1052) = RCT(568) -! B(1053) = dA(569)/dV(5042) - B(1053) = RCT(569) -! B(1054) = dA(570)/dV(5042) - B(1054) = RCT(570) -! B(1055) = dA(571)/dV(5042) - B(1055) = RCT(571)*V(5256) -! B(1056) = dA(571)/dV(5256) - B(1056) = RCT(571)*V(5042) -! B(1057) = dA(572)/dV(5042) - B(1057) = RCT(572)*V(5250) -! B(1058) = dA(572)/dV(5250) - B(1058) = RCT(572)*V(5042) -! B(1059) = dA(573)/dV(4310) - B(1059) = RCT(573)*V(5255) -! B(1060) = dA(573)/dV(5255) - B(1060) = RCT(573)*V(4310) -! B(1061) = dA(574)/dV(4310) - B(1061) = RCT(574)*V(5252) -! B(1062) = dA(574)/dV(5252) - B(1062) = RCT(574)*V(4310) -! B(1063) = dA(575)/dV(4310) - B(1063) = RCT(575)*V(5252) -! B(1064) = dA(575)/dV(5252) - B(1064) = RCT(575)*V(4310) -! B(1065) = dA(576)/dV(4310) - B(1065) = RCT(576)*V(5256) -! B(1066) = dA(576)/dV(5256) - B(1066) = RCT(576)*V(4310) -! B(1067) = dA(577)/dV(4310) - B(1067) = RCT(577) -! B(1068) = dA(578)/dV(4310) - B(1068) = RCT(578) -! B(1069) = dA(579)/dV(4310) - B(1069) = RCT(579) -! B(1070) = dA(580)/dV(4837) - B(1070) = RCT(580)*V(5255) -! B(1071) = dA(580)/dV(5255) - B(1071) = RCT(580)*V(4837) -! B(1072) = dA(581)/dV(4837) - B(1072) = RCT(581)*V(5252) -! B(1073) = dA(581)/dV(5252) - B(1073) = RCT(581)*V(4837) -! B(1074) = dA(582)/dV(4837) - B(1074) = RCT(582)*V(5252) -! B(1075) = dA(582)/dV(5252) - B(1075) = RCT(582)*V(4837) -! B(1076) = dA(583)/dV(4837) - B(1076) = RCT(583)*V(5256) -! B(1077) = dA(583)/dV(5256) - B(1077) = RCT(583)*V(4837) -! B(1078) = dA(584)/dV(4837) - B(1078) = RCT(584) -! B(1079) = dA(585)/dV(4837) - B(1079) = RCT(585) -! B(1080) = dA(586)/dV(1573) - B(1080) = RCT(586)*V(5256) -! B(1081) = dA(586)/dV(5256) - B(1081) = RCT(586)*V(1573) -! B(1082) = dA(587)/dV(1573) - B(1082) = RCT(587)*V(5250) -! B(1083) = dA(587)/dV(5250) - B(1083) = RCT(587)*V(1573) -! B(1084) = dA(588)/dV(1573) - B(1084) = RCT(588)*V(5250) -! B(1085) = dA(588)/dV(5250) - B(1085) = RCT(588)*V(1573) -! B(1086) = dA(589)/dV(4844) - B(1086) = RCT(589)*V(5255) -! B(1087) = dA(589)/dV(5255) - B(1087) = RCT(589)*V(4844) -! B(1088) = dA(590)/dV(4844) - B(1088) = RCT(590)*V(5252) -! B(1089) = dA(590)/dV(5252) - B(1089) = RCT(590)*V(4844) -! B(1090) = dA(591)/dV(4844) - B(1090) = RCT(591)*V(5252) -! B(1091) = dA(591)/dV(5252) - B(1091) = RCT(591)*V(4844) -! B(1092) = dA(592)/dV(4844) - B(1092) = RCT(592)*V(5256) -! B(1093) = dA(592)/dV(5256) - B(1093) = RCT(592)*V(4844) -! B(1094) = dA(593)/dV(4844) - B(1094) = RCT(593) -! B(1095) = dA(594)/dV(4844) - B(1095) = RCT(594) -! B(1096) = dA(595)/dV(4562) - B(1096) = RCT(595)*V(5255) -! B(1097) = dA(595)/dV(5255) - B(1097) = RCT(595)*V(4562) -! B(1098) = dA(596)/dV(4562) - B(1098) = RCT(596)*V(5252) -! B(1099) = dA(596)/dV(5252) - B(1099) = RCT(596)*V(4562) -! B(1100) = dA(597)/dV(4562) - B(1100) = RCT(597)*V(5252) -! B(1101) = dA(597)/dV(5252) - B(1101) = RCT(597)*V(4562) -! B(1102) = dA(598)/dV(4562) - B(1102) = RCT(598)*V(5256) -! B(1103) = dA(598)/dV(5256) - B(1103) = RCT(598)*V(4562) -! B(1104) = dA(599)/dV(4562) - B(1104) = RCT(599) -! B(1105) = dA(600)/dV(4562) - B(1105) = RCT(600) -! B(1106) = dA(601)/dV(4562) - B(1106) = RCT(601) -! B(1107) = dA(602)/dV(5148) - B(1107) = RCT(602)*V(5255) -! B(1108) = dA(602)/dV(5255) - B(1108) = RCT(602)*V(5148) -! B(1109) = dA(603)/dV(5148) - B(1109) = RCT(603)*V(5252) -! B(1110) = dA(603)/dV(5252) - B(1110) = RCT(603)*V(5148) -! B(1111) = dA(604)/dV(5148) - B(1111) = RCT(604)*V(5252) -! B(1112) = dA(604)/dV(5252) - B(1112) = RCT(604)*V(5148) -! B(1113) = dA(605)/dV(5148) - B(1113) = RCT(605)*V(5256) -! B(1114) = dA(605)/dV(5256) - B(1114) = RCT(605)*V(5148) -! B(1115) = dA(606)/dV(5148) - B(1115) = RCT(606) -! B(1116) = dA(607)/dV(5148) - B(1116) = RCT(607) -! B(1117) = dA(608)/dV(5148) - B(1117) = RCT(608) -! B(1118) = dA(609)/dV(4473) - B(1118) = RCT(609)*V(5255) -! B(1119) = dA(609)/dV(5255) - B(1119) = RCT(609)*V(4473) -! B(1120) = dA(610)/dV(4473) - B(1120) = RCT(610)*V(5252) -! B(1121) = dA(610)/dV(5252) - B(1121) = RCT(610)*V(4473) -! B(1122) = dA(611)/dV(4473) - B(1122) = RCT(611)*V(5252) -! B(1123) = dA(611)/dV(5252) - B(1123) = RCT(611)*V(4473) -! B(1124) = dA(612)/dV(4473) - B(1124) = RCT(612)*V(5256) -! B(1125) = dA(612)/dV(5256) - B(1125) = RCT(612)*V(4473) -! B(1126) = dA(613)/dV(4473) - B(1126) = RCT(613) -! B(1127) = dA(614)/dV(4473) - B(1127) = RCT(614) -! B(1128) = dA(615)/dV(4473) - B(1128) = RCT(615) -! B(1129) = dA(616)/dV(4959) - B(1129) = RCT(616)*V(5255) -! B(1130) = dA(616)/dV(5255) - B(1130) = RCT(616)*V(4959) -! B(1131) = dA(617)/dV(4959) - B(1131) = RCT(617)*V(5252) -! B(1132) = dA(617)/dV(5252) - B(1132) = RCT(617)*V(4959) -! B(1133) = dA(618)/dV(4959) - B(1133) = RCT(618)*V(5252) -! B(1134) = dA(618)/dV(5252) - B(1134) = RCT(618)*V(4959) -! B(1135) = dA(619)/dV(4959) - B(1135) = RCT(619)*V(5256) -! B(1136) = dA(619)/dV(5256) - B(1136) = RCT(619)*V(4959) -! B(1137) = dA(620)/dV(4959) - B(1137) = RCT(620) -! B(1138) = dA(621)/dV(4959) - B(1138) = RCT(621) -! B(1139) = dA(622)/dV(4959) - B(1139) = RCT(622) -! B(1140) = dA(623)/dV(5116) - B(1140) = RCT(623)*V(5255) -! B(1141) = dA(623)/dV(5255) - B(1141) = RCT(623)*V(5116) -! B(1142) = dA(624)/dV(5116) - B(1142) = RCT(624)*V(5252) -! B(1143) = dA(624)/dV(5252) - B(1143) = RCT(624)*V(5116) -! B(1144) = dA(625)/dV(5116) - B(1144) = RCT(625)*V(5252) -! B(1145) = dA(625)/dV(5252) - B(1145) = RCT(625)*V(5116) -! B(1146) = dA(626)/dV(5116) - B(1146) = RCT(626)*V(5256) -! B(1147) = dA(626)/dV(5256) - B(1147) = RCT(626)*V(5116) -! B(1148) = dA(627)/dV(5116) - B(1148) = RCT(627) -! B(1149) = dA(628)/dV(5116) - B(1149) = RCT(628) -! B(1150) = dA(629)/dV(5116) - B(1150) = RCT(629) -! B(1151) = dA(630)/dV(4647) - B(1151) = RCT(630)*V(5255) -! B(1152) = dA(630)/dV(5255) - B(1152) = RCT(630)*V(4647) -! B(1153) = dA(631)/dV(4647) - B(1153) = RCT(631)*V(5252) -! B(1154) = dA(631)/dV(5252) - B(1154) = RCT(631)*V(4647) -! B(1155) = dA(632)/dV(4647) - B(1155) = RCT(632)*V(5252) -! B(1156) = dA(632)/dV(5252) - B(1156) = RCT(632)*V(4647) -! B(1157) = dA(633)/dV(4647) - B(1157) = RCT(633)*V(5256) -! B(1158) = dA(633)/dV(5256) - B(1158) = RCT(633)*V(4647) -! B(1159) = dA(634)/dV(4647) - B(1159) = RCT(634) -! B(1160) = dA(635)/dV(4647) - B(1160) = RCT(635) -! B(1161) = dA(636)/dV(4814) - B(1161) = RCT(636)*V(5255) -! B(1162) = dA(636)/dV(5255) - B(1162) = RCT(636)*V(4814) -! B(1163) = dA(637)/dV(4814) - B(1163) = RCT(637)*V(5252) -! B(1164) = dA(637)/dV(5252) - B(1164) = RCT(637)*V(4814) -! B(1165) = dA(638)/dV(4814) - B(1165) = RCT(638)*V(5252) -! B(1166) = dA(638)/dV(5252) - B(1166) = RCT(638)*V(4814) -! B(1167) = dA(639)/dV(4814) - B(1167) = RCT(639)*V(5256) -! B(1168) = dA(639)/dV(5256) - B(1168) = RCT(639)*V(4814) -! B(1169) = dA(640)/dV(4814) - B(1169) = RCT(640) -! B(1170) = dA(641)/dV(4814) - B(1170) = RCT(641) -! B(1171) = dA(642)/dV(4814) - B(1171) = RCT(642) -! B(1172) = dA(643)/dV(4780) - B(1172) = RCT(643)*V(5255) -! B(1173) = dA(643)/dV(5255) - B(1173) = RCT(643)*V(4780) -! B(1174) = dA(644)/dV(4780) - B(1174) = RCT(644)*V(5252) -! B(1175) = dA(644)/dV(5252) - B(1175) = RCT(644)*V(4780) -! B(1176) = dA(645)/dV(4780) - B(1176) = RCT(645)*V(5256) -! B(1177) = dA(645)/dV(5256) - B(1177) = RCT(645)*V(4780) -! B(1178) = dA(646)/dV(4780) - B(1178) = RCT(646) -! B(1179) = dA(647)/dV(4780) - B(1179) = RCT(647) -! B(1180) = dA(648)/dV(4780) - B(1180) = RCT(648) -! B(1181) = dA(649)/dV(4161) - B(1181) = RCT(649)*V(5255) -! B(1182) = dA(649)/dV(5255) - B(1182) = RCT(649)*V(4161) -! B(1183) = dA(650)/dV(4161) - B(1183) = RCT(650)*V(5252) -! B(1184) = dA(650)/dV(5252) - B(1184) = RCT(650)*V(4161) -! B(1185) = dA(651)/dV(4161) - B(1185) = RCT(651)*V(5252) -! B(1186) = dA(651)/dV(5252) - B(1186) = RCT(651)*V(4161) -! B(1187) = dA(652)/dV(4161) - B(1187) = RCT(652)*V(5256) -! B(1188) = dA(652)/dV(5256) - B(1188) = RCT(652)*V(4161) -! B(1189) = dA(653)/dV(4161) - B(1189) = RCT(653) -! B(1190) = dA(654)/dV(4161) - B(1190) = RCT(654) -! B(1191) = dA(655)/dV(4161) - B(1191) = RCT(655) -! B(1192) = dA(656)/dV(4698) - B(1192) = RCT(656)*V(5255) -! B(1193) = dA(656)/dV(5255) - B(1193) = RCT(656)*V(4698) -! B(1194) = dA(657)/dV(4698) - B(1194) = RCT(657)*V(5252) -! B(1195) = dA(657)/dV(5252) - B(1195) = RCT(657)*V(4698) -! B(1196) = dA(658)/dV(4698) - B(1196) = RCT(658)*V(5256) -! B(1197) = dA(658)/dV(5256) - B(1197) = RCT(658)*V(4698) -! B(1198) = dA(659)/dV(4698) - B(1198) = RCT(659) -! B(1199) = dA(660)/dV(4698) - B(1199) = RCT(660) -! B(1200) = dA(661)/dV(4698) - B(1200) = RCT(661) -! B(1201) = dA(662)/dV(5244) - B(1201) = RCT(662)*V(5255) -! B(1202) = dA(662)/dV(5255) - B(1202) = RCT(662)*V(5244) -! B(1203) = dA(663)/dV(5244) - B(1203) = RCT(663)*V(5255) -! B(1204) = dA(663)/dV(5255) - B(1204) = RCT(663)*V(5244) -! B(1205) = dA(664)/dV(5244) - B(1205) = RCT(664)*V(5255) -! B(1206) = dA(664)/dV(5255) - B(1206) = RCT(664)*V(5244) -! B(1207) = dA(665)/dV(5244) - B(1207) = RCT(665)*V(5252) -! B(1208) = dA(665)/dV(5252) - B(1208) = RCT(665)*V(5244) -! B(1209) = dA(666)/dV(5244) - B(1209) = RCT(666)*V(5253) -! B(1210) = dA(666)/dV(5253) - B(1210) = RCT(666)*V(5244) -! B(1211) = dA(667)/dV(5244) - B(1211) = RCT(667)*V(5256) -! B(1212) = dA(667)/dV(5256) - B(1212) = RCT(667)*V(5244) -! B(1213) = dA(668)/dV(5244) - B(1213) = RCT(668) -! B(1214) = dA(669)/dV(5244) - B(1214) = RCT(669) -! B(1215) = dA(670)/dV(5234) - B(1215) = RCT(670)*V(5256) -! B(1216) = dA(670)/dV(5256) - B(1216) = RCT(670)*V(5234) -! B(1217) = dA(671)/dV(5234) - B(1217) = RCT(671)*V(5250) -! B(1218) = dA(671)/dV(5250) - B(1218) = RCT(671)*V(5234) -! B(1219) = dA(672)/dV(5234) - B(1219) = RCT(672)*V(5250) -! B(1220) = dA(672)/dV(5250) - B(1220) = RCT(672)*V(5234) -! B(1221) = dA(673)/dV(5234) - B(1221) = RCT(673) -! B(1222) = dA(674)/dV(5188) - B(1222) = RCT(674)*V(5250) -! B(1223) = dA(674)/dV(5250) - B(1223) = RCT(674)*V(5188) -! B(1224) = dA(675)/dV(5188) - B(1224) = RCT(675) -! B(1225) = dA(676)/dV(5087) - B(1225) = RCT(676)*V(5256) -! B(1226) = dA(676)/dV(5256) - B(1226) = RCT(676)*V(5087) -! B(1227) = dA(677)/dV(5087) - B(1227) = RCT(677)*V(5250) -! B(1228) = dA(677)/dV(5250) - B(1228) = RCT(677)*V(5087) -! B(1229) = dA(678)/dV(5087) - B(1229) = RCT(678) -! B(1230) = dA(679)/dV(4585) - B(1230) = RCT(679)*V(5255) -! B(1231) = dA(679)/dV(5255) - B(1231) = RCT(679)*V(4585) -! B(1232) = dA(680)/dV(4585) - B(1232) = RCT(680)*V(5252) -! B(1233) = dA(680)/dV(5252) - B(1233) = RCT(680)*V(4585) -! B(1234) = dA(681)/dV(4585) - B(1234) = RCT(681)*V(5256) -! B(1235) = dA(681)/dV(5256) - B(1235) = RCT(681)*V(4585) -! B(1236) = dA(682)/dV(4585) - B(1236) = RCT(682) -! B(1237) = dA(683)/dV(4585) - B(1237) = RCT(683) -! B(1238) = dA(684)/dV(4585) - B(1238) = RCT(684) -! B(1239) = dA(685)/dV(4364) - B(1239) = RCT(685)*V(5255) -! B(1240) = dA(685)/dV(5255) - B(1240) = RCT(685)*V(4364) -! B(1241) = dA(686)/dV(4364) - B(1241) = RCT(686)*V(5252) -! B(1242) = dA(686)/dV(5252) - B(1242) = RCT(686)*V(4364) -! B(1243) = dA(687)/dV(4364) - B(1243) = RCT(687)*V(5256) -! B(1244) = dA(687)/dV(5256) - B(1244) = RCT(687)*V(4364) -! B(1245) = dA(688)/dV(4364) - B(1245) = RCT(688) -! B(1246) = dA(689)/dV(4364) - B(1246) = RCT(689) -! B(1247) = dA(690)/dV(4364) - B(1247) = RCT(690) -! B(1248) = dA(691)/dV(1776) - B(1248) = RCT(691) -! B(1249) = dA(692)/dV(1776) - B(1249) = RCT(692) -! B(1250) = dA(693)/dV(1776) - B(1250) = RCT(693) -! B(1251) = dA(694)/dV(1776) - B(1251) = RCT(694) -! B(1252) = dA(695)/dV(5000) - B(1252) = RCT(695)*V(5250) -! B(1253) = dA(695)/dV(5250) - B(1253) = RCT(695)*V(5000) -! B(1254) = dA(696)/dV(5000) - B(1254) = RCT(696) -! B(1255) = dA(697)/dV(4528) - B(1255) = RCT(697) -! B(1256) = dA(698)/dV(4528) - B(1256) = RCT(698) -! B(1257) = dA(699)/dV(4528) - B(1257) = RCT(699) -! B(1258) = dA(700)/dV(4596) - B(1258) = RCT(700)*V(5255) -! B(1259) = dA(700)/dV(5255) - B(1259) = RCT(700)*V(4596) -! B(1260) = dA(701)/dV(4596) - B(1260) = RCT(701)*V(5252) -! B(1261) = dA(701)/dV(5252) - B(1261) = RCT(701)*V(4596) -! B(1262) = dA(702)/dV(4596) - B(1262) = RCT(702)*V(5252) -! B(1263) = dA(702)/dV(5252) - B(1263) = RCT(702)*V(4596) -! B(1264) = dA(703)/dV(4596) - B(1264) = RCT(703)*V(5256) -! B(1265) = dA(703)/dV(5256) - B(1265) = RCT(703)*V(4596) -! B(1266) = dA(704)/dV(4596) - B(1266) = RCT(704) -! B(1267) = dA(705)/dV(4596) - B(1267) = RCT(705) -! B(1268) = dA(706)/dV(4596) - B(1268) = RCT(706) -! B(1269) = dA(707)/dV(4554) - B(1269) = RCT(707)*V(5255) -! B(1270) = dA(707)/dV(5255) - B(1270) = RCT(707)*V(4554) -! B(1271) = dA(708)/dV(4554) - B(1271) = RCT(708)*V(5252) -! B(1272) = dA(708)/dV(5252) - B(1272) = RCT(708)*V(4554) -! B(1273) = dA(709)/dV(4554) - B(1273) = RCT(709)*V(5252) -! B(1274) = dA(709)/dV(5252) - B(1274) = RCT(709)*V(4554) -! B(1275) = dA(710)/dV(4554) - B(1275) = RCT(710)*V(5256) -! B(1276) = dA(710)/dV(5256) - B(1276) = RCT(710)*V(4554) -! B(1277) = dA(711)/dV(4554) - B(1277) = RCT(711) -! B(1278) = dA(712)/dV(4554) - B(1278) = RCT(712) -! B(1279) = dA(713)/dV(4554) - B(1279) = RCT(713) -! B(1280) = dA(714)/dV(5228) - B(1280) = RCT(714)*V(5255) -! B(1281) = dA(714)/dV(5255) - B(1281) = RCT(714)*V(5228) -! B(1282) = dA(715)/dV(5228) - B(1282) = RCT(715)*V(5255) -! B(1283) = dA(715)/dV(5255) - B(1283) = RCT(715)*V(5228) -! B(1284) = dA(716)/dV(5228) - B(1284) = RCT(716)*V(5252) -! B(1285) = dA(716)/dV(5252) - B(1285) = RCT(716)*V(5228) -! B(1286) = dA(717)/dV(5228) - B(1286) = RCT(717)*V(5252) -! B(1287) = dA(717)/dV(5252) - B(1287) = RCT(717)*V(5228) -! B(1288) = dA(718)/dV(5228) - B(1288) = RCT(718)*V(5253) -! B(1289) = dA(718)/dV(5253) - B(1289) = RCT(718)*V(5228) -! B(1290) = dA(719)/dV(5228) - B(1290) = RCT(719)*V(5256) -! B(1291) = dA(719)/dV(5256) - B(1291) = RCT(719)*V(5228) -! B(1292) = dA(720)/dV(5228) - B(1292) = RCT(720) -! B(1293) = dA(721)/dV(5228) - B(1293) = RCT(721) -! B(1294) = dA(722)/dV(5228) - B(1294) = RCT(722) -! B(1295) = dA(723)/dV(5235) - B(1295) = RCT(723)*V(5255) -! B(1296) = dA(723)/dV(5255) - B(1296) = RCT(723)*V(5235) -! B(1297) = dA(724)/dV(5235) - B(1297) = RCT(724)*V(5252) -! B(1298) = dA(724)/dV(5252) - B(1298) = RCT(724)*V(5235) -! B(1299) = dA(725)/dV(5235) - B(1299) = RCT(725)*V(5256) -! B(1300) = dA(725)/dV(5256) - B(1300) = RCT(725)*V(5235) -! B(1301) = dA(726)/dV(5235) - B(1301) = RCT(726) -! B(1302) = dA(727)/dV(5235) - B(1302) = RCT(727) -! B(1303) = dA(728)/dV(5235) - B(1303) = RCT(728) -! B(1304) = dA(729)/dV(5183) - B(1304) = RCT(729)*V(5255) -! B(1305) = dA(729)/dV(5255) - B(1305) = RCT(729)*V(5183) -! B(1306) = dA(730)/dV(5183) - B(1306) = RCT(730)*V(5255) -! B(1307) = dA(730)/dV(5255) - B(1307) = RCT(730)*V(5183) -! B(1308) = dA(731)/dV(5183) - B(1308) = RCT(731)*V(5255) -! B(1309) = dA(731)/dV(5255) - B(1309) = RCT(731)*V(5183) -! B(1310) = dA(732)/dV(5183) - B(1310) = RCT(732)*V(5252) -! B(1311) = dA(732)/dV(5252) - B(1311) = RCT(732)*V(5183) -! B(1312) = dA(733)/dV(5183) - B(1312) = RCT(733)*V(5253) -! B(1313) = dA(733)/dV(5253) - B(1313) = RCT(733)*V(5183) -! B(1314) = dA(734)/dV(5183) - B(1314) = RCT(734)*V(5256) -! B(1315) = dA(734)/dV(5256) - B(1315) = RCT(734)*V(5183) -! B(1316) = dA(735)/dV(5183) - B(1316) = RCT(735) -! B(1317) = dA(736)/dV(5183) - B(1317) = RCT(736) -! B(1318) = dA(737)/dV(5142) - B(1318) = RCT(737)*V(5255) -! B(1319) = dA(737)/dV(5255) - B(1319) = RCT(737)*V(5142) -! B(1320) = dA(738)/dV(5142) - B(1320) = RCT(738)*V(5252) -! B(1321) = dA(738)/dV(5252) - B(1321) = RCT(738)*V(5142) -! B(1322) = dA(739)/dV(5142) - B(1322) = RCT(739)*V(5252) -! B(1323) = dA(739)/dV(5252) - B(1323) = RCT(739)*V(5142) -! B(1324) = dA(740)/dV(5142) - B(1324) = RCT(740)*V(5256) -! B(1325) = dA(740)/dV(5256) - B(1325) = RCT(740)*V(5142) -! B(1326) = dA(741)/dV(5142) - B(1326) = RCT(741) -! B(1327) = dA(742)/dV(5142) - B(1327) = RCT(742) -! B(1328) = dA(743)/dV(5142) - B(1328) = RCT(743) -! B(1329) = dA(744)/dV(5125) - B(1329) = RCT(744)*V(5255) -! B(1330) = dA(744)/dV(5255) - B(1330) = RCT(744)*V(5125) -! B(1331) = dA(745)/dV(5125) - B(1331) = RCT(745)*V(5255) -! B(1332) = dA(745)/dV(5255) - B(1332) = RCT(745)*V(5125) -! B(1333) = dA(746)/dV(5125) - B(1333) = RCT(746)*V(5255) -! B(1334) = dA(746)/dV(5255) - B(1334) = RCT(746)*V(5125) -! B(1335) = dA(747)/dV(5125) - B(1335) = RCT(747)*V(5252) -! B(1336) = dA(747)/dV(5252) - B(1336) = RCT(747)*V(5125) -! B(1337) = dA(748)/dV(5125) - B(1337) = RCT(748)*V(5253) -! B(1338) = dA(748)/dV(5253) - B(1338) = RCT(748)*V(5125) -! B(1339) = dA(749)/dV(5125) - B(1339) = RCT(749)*V(5256) -! B(1340) = dA(749)/dV(5256) - B(1340) = RCT(749)*V(5125) -! B(1341) = dA(750)/dV(5125) - B(1341) = RCT(750) -! B(1342) = dA(751)/dV(5125) - B(1342) = RCT(751) -! B(1343) = dA(752)/dV(4705) - B(1343) = RCT(752)*V(5255) -! B(1344) = dA(752)/dV(5255) - B(1344) = RCT(752)*V(4705) -! B(1345) = dA(753)/dV(4705) - B(1345) = RCT(753)*V(5252) -! B(1346) = dA(753)/dV(5252) - B(1346) = RCT(753)*V(4705) -! B(1347) = dA(754)/dV(4705) - B(1347) = RCT(754)*V(5252) -! B(1348) = dA(754)/dV(5252) - B(1348) = RCT(754)*V(4705) -! B(1349) = dA(755)/dV(4705) - B(1349) = RCT(755)*V(5256) -! B(1350) = dA(755)/dV(5256) - B(1350) = RCT(755)*V(4705) -! B(1351) = dA(756)/dV(4705) - B(1351) = RCT(756) -! B(1352) = dA(757)/dV(4705) - B(1352) = RCT(757) -! B(1353) = dA(758)/dV(4705) - B(1353) = RCT(758) -! B(1354) = dA(759)/dV(5229) - B(1354) = RCT(759)*V(5255) -! B(1355) = dA(759)/dV(5255) - B(1355) = RCT(759)*V(5229) -! B(1356) = dA(760)/dV(5229) - B(1356) = RCT(760)*V(5252) -! B(1357) = dA(760)/dV(5252) - B(1357) = RCT(760)*V(5229) -! B(1358) = dA(761)/dV(5229) - B(1358) = RCT(761)*V(5252) -! B(1359) = dA(761)/dV(5252) - B(1359) = RCT(761)*V(5229) -! B(1360) = dA(762)/dV(5229) - B(1360) = RCT(762)*V(5256) -! B(1361) = dA(762)/dV(5256) - B(1361) = RCT(762)*V(5229) -! B(1362) = dA(763)/dV(5229) - B(1362) = RCT(763) -! B(1363) = dA(764)/dV(5229) - B(1363) = RCT(764) -! B(1364) = dA(765)/dV(5229) - B(1364) = RCT(765) -! B(1365) = dA(766)/dV(5106) - B(1365) = RCT(766)*V(5255) -! B(1366) = dA(766)/dV(5255) - B(1366) = RCT(766)*V(5106) -! B(1367) = dA(767)/dV(5106) - B(1367) = RCT(767)*V(5255) -! B(1368) = dA(767)/dV(5255) - B(1368) = RCT(767)*V(5106) -! B(1369) = dA(768)/dV(5106) - B(1369) = RCT(768)*V(5255) -! B(1370) = dA(768)/dV(5255) - B(1370) = RCT(768)*V(5106) -! B(1371) = dA(769)/dV(5106) - B(1371) = RCT(769)*V(5252) -! B(1372) = dA(769)/dV(5252) - B(1372) = RCT(769)*V(5106) -! B(1373) = dA(770)/dV(5106) - B(1373) = RCT(770)*V(5253) -! B(1374) = dA(770)/dV(5253) - B(1374) = RCT(770)*V(5106) -! B(1375) = dA(771)/dV(5106) - B(1375) = RCT(771)*V(5256) -! B(1376) = dA(771)/dV(5256) - B(1376) = RCT(771)*V(5106) -! B(1377) = dA(772)/dV(5106) - B(1377) = RCT(772) -! B(1378) = dA(773)/dV(5106) - B(1378) = RCT(773) -! B(1379) = dA(774)/dV(3847) - B(1379) = RCT(774)*V(5255) -! B(1380) = dA(774)/dV(5255) - B(1380) = RCT(774)*V(3847) -! B(1381) = dA(775)/dV(3847) - B(1381) = RCT(775)*V(5252) -! B(1382) = dA(775)/dV(5252) - B(1382) = RCT(775)*V(3847) -! B(1383) = dA(776)/dV(3847) - B(1383) = RCT(776)*V(5252) -! B(1384) = dA(776)/dV(5252) - B(1384) = RCT(776)*V(3847) -! B(1385) = dA(777)/dV(3847) - B(1385) = RCT(777)*V(5256) -! B(1386) = dA(777)/dV(5256) - B(1386) = RCT(777)*V(3847) -! B(1387) = dA(778)/dV(3847) - B(1387) = RCT(778) -! B(1388) = dA(779)/dV(3847) - B(1388) = RCT(779) -! B(1389) = dA(780)/dV(3847) - B(1389) = RCT(780) -! B(1390) = dA(781)/dV(4763) - B(1390) = RCT(781)*V(5255) -! B(1391) = dA(781)/dV(5255) - B(1391) = RCT(781)*V(4763) -! B(1392) = dA(782)/dV(4763) - B(1392) = RCT(782)*V(5252) -! B(1393) = dA(782)/dV(5252) - B(1393) = RCT(782)*V(4763) -! B(1394) = dA(783)/dV(4763) - B(1394) = RCT(783)*V(5256) -! B(1395) = dA(783)/dV(5256) - B(1395) = RCT(783)*V(4763) -! B(1396) = dA(784)/dV(4763) - B(1396) = RCT(784) -! B(1397) = dA(785)/dV(4763) - B(1397) = RCT(785) -! B(1398) = dA(786)/dV(5145) - B(1398) = RCT(786)*V(5255) -! B(1399) = dA(786)/dV(5255) - B(1399) = RCT(786)*V(5145) -! B(1400) = dA(787)/dV(5145) - B(1400) = RCT(787)*V(5252) -! B(1401) = dA(787)/dV(5252) - B(1401) = RCT(787)*V(5145) -! B(1402) = dA(788)/dV(5145) - B(1402) = RCT(788)*V(5252) -! B(1403) = dA(788)/dV(5252) - B(1403) = RCT(788)*V(5145) -! B(1404) = dA(789)/dV(5145) - B(1404) = RCT(789)*V(5256) -! B(1405) = dA(789)/dV(5256) - B(1405) = RCT(789)*V(5145) -! B(1406) = dA(790)/dV(5145) - B(1406) = RCT(790) -! B(1407) = dA(791)/dV(5145) - B(1407) = RCT(791) -! B(1408) = dA(792)/dV(5145) - B(1408) = RCT(792) -! B(1409) = dA(793)/dV(4944) - B(1409) = RCT(793)*V(5255) -! B(1410) = dA(793)/dV(5255) - B(1410) = RCT(793)*V(4944) -! B(1411) = dA(794)/dV(4944) - B(1411) = RCT(794)*V(5255) -! B(1412) = dA(794)/dV(5255) - B(1412) = RCT(794)*V(4944) -! B(1413) = dA(795)/dV(4944) - B(1413) = RCT(795)*V(5255) -! B(1414) = dA(795)/dV(5255) - B(1414) = RCT(795)*V(4944) -! B(1415) = dA(796)/dV(4944) - B(1415) = RCT(796)*V(5252) -! B(1416) = dA(796)/dV(5252) - B(1416) = RCT(796)*V(4944) -! B(1417) = dA(797)/dV(4944) - B(1417) = RCT(797)*V(5253) -! B(1418) = dA(797)/dV(5253) - B(1418) = RCT(797)*V(4944) -! B(1419) = dA(798)/dV(4944) - B(1419) = RCT(798)*V(5256) -! B(1420) = dA(798)/dV(5256) - B(1420) = RCT(798)*V(4944) -! B(1421) = dA(799)/dV(4944) - B(1421) = RCT(799) -! B(1422) = dA(800)/dV(4944) - B(1422) = RCT(800) -! B(1423) = dA(801)/dV(3884) - B(1423) = RCT(801)*V(5255) -! B(1424) = dA(801)/dV(5255) - B(1424) = RCT(801)*V(3884) -! B(1425) = dA(802)/dV(3884) - B(1425) = RCT(802)*V(5252) -! B(1426) = dA(802)/dV(5252) - B(1426) = RCT(802)*V(3884) -! B(1427) = dA(803)/dV(3884) - B(1427) = RCT(803)*V(5252) -! B(1428) = dA(803)/dV(5252) - B(1428) = RCT(803)*V(3884) -! B(1429) = dA(804)/dV(3884) - B(1429) = RCT(804)*V(5256) -! B(1430) = dA(804)/dV(5256) - B(1430) = RCT(804)*V(3884) -! B(1431) = dA(805)/dV(3884) - B(1431) = RCT(805) -! B(1432) = dA(806)/dV(3884) - B(1432) = RCT(806) -! B(1433) = dA(807)/dV(3884) - B(1433) = RCT(807) -! B(1434) = dA(808)/dV(5208) - B(1434) = RCT(808)*V(5255) -! B(1435) = dA(808)/dV(5255) - B(1435) = RCT(808)*V(5208) -! B(1436) = dA(809)/dV(5208) - B(1436) = RCT(809)*V(5252) -! B(1437) = dA(809)/dV(5252) - B(1437) = RCT(809)*V(5208) -! B(1438) = dA(810)/dV(5208) - B(1438) = RCT(810)*V(5252) -! B(1439) = dA(810)/dV(5252) - B(1439) = RCT(810)*V(5208) -! B(1440) = dA(811)/dV(5208) - B(1440) = RCT(811)*V(5256) -! B(1441) = dA(811)/dV(5256) - B(1441) = RCT(811)*V(5208) -! B(1442) = dA(812)/dV(5208) - B(1442) = RCT(812) -! B(1443) = dA(813)/dV(5208) - B(1443) = RCT(813) -! B(1444) = dA(814)/dV(5208) - B(1444) = RCT(814) -! B(1445) = dA(815)/dV(4954) - B(1445) = RCT(815)*V(5255) -! B(1446) = dA(815)/dV(5255) - B(1446) = RCT(815)*V(4954) -! B(1447) = dA(816)/dV(4954) - B(1447) = RCT(816)*V(5255) -! B(1448) = dA(816)/dV(5255) - B(1448) = RCT(816)*V(4954) -! B(1449) = dA(817)/dV(4954) - B(1449) = RCT(817)*V(5255) -! B(1450) = dA(817)/dV(5255) - B(1450) = RCT(817)*V(4954) -! B(1451) = dA(818)/dV(4954) - B(1451) = RCT(818)*V(5252) -! B(1452) = dA(818)/dV(5252) - B(1452) = RCT(818)*V(4954) -! B(1453) = dA(819)/dV(4954) - B(1453) = RCT(819)*V(5253) -! B(1454) = dA(819)/dV(5253) - B(1454) = RCT(819)*V(4954) -! B(1455) = dA(820)/dV(4954) - B(1455) = RCT(820)*V(5256) -! B(1456) = dA(820)/dV(5256) - B(1456) = RCT(820)*V(4954) -! B(1457) = dA(821)/dV(4954) - B(1457) = RCT(821) -! B(1458) = dA(822)/dV(4954) - B(1458) = RCT(822) -! B(1459) = dA(823)/dV(4382) - B(1459) = RCT(823)*V(5255) -! B(1460) = dA(823)/dV(5255) - B(1460) = RCT(823)*V(4382) -! B(1461) = dA(824)/dV(4382) - B(1461) = RCT(824)*V(5252) -! B(1462) = dA(824)/dV(5252) - B(1462) = RCT(824)*V(4382) -! B(1463) = dA(825)/dV(4382) - B(1463) = RCT(825)*V(5256) -! B(1464) = dA(825)/dV(5256) - B(1464) = RCT(825)*V(4382) -! B(1465) = dA(826)/dV(4382) - B(1465) = RCT(826) -! B(1466) = dA(827)/dV(4382) - B(1466) = RCT(827) -! B(1467) = dA(828)/dV(4382) - B(1467) = RCT(828) -! B(1468) = dA(829)/dV(4382) - B(1468) = RCT(829) -! B(1469) = dA(830)/dV(4932) - B(1469) = RCT(830)*V(5255) -! B(1470) = dA(830)/dV(5255) - B(1470) = RCT(830)*V(4932) -! B(1471) = dA(831)/dV(4932) - B(1471) = RCT(831)*V(5255) -! B(1472) = dA(831)/dV(5255) - B(1472) = RCT(831)*V(4932) -! B(1473) = dA(832)/dV(4932) - B(1473) = RCT(832)*V(5252) -! B(1474) = dA(832)/dV(5252) - B(1474) = RCT(832)*V(4932) -! B(1475) = dA(833)/dV(4932) - B(1475) = RCT(833)*V(5252) -! B(1476) = dA(833)/dV(5252) - B(1476) = RCT(833)*V(4932) -! B(1477) = dA(834)/dV(4932) - B(1477) = RCT(834)*V(5256) -! B(1478) = dA(834)/dV(5256) - B(1478) = RCT(834)*V(4932) -! B(1479) = dA(835)/dV(4932) - B(1479) = RCT(835) -! B(1480) = dA(836)/dV(4932) - B(1480) = RCT(836) -! B(1481) = dA(837)/dV(4932) - B(1481) = RCT(837) -! B(1482) = dA(838)/dV(5233) - B(1482) = RCT(838) -! B(1483) = dA(839)/dV(5233) - B(1483) = RCT(839) -! B(1484) = dA(840)/dV(5233) - B(1484) = RCT(840) -! B(1485) = dA(841)/dV(5233) - B(1485) = RCT(841)*V(5256) -! B(1486) = dA(841)/dV(5256) - B(1486) = RCT(841)*V(5233) -! B(1487) = dA(842)/dV(5233) - B(1487) = RCT(842)*V(5250) -! B(1488) = dA(842)/dV(5250) - B(1488) = RCT(842)*V(5233) -! B(1489) = dA(843)/dV(2748) - B(1489) = RCT(843) -! B(1490) = dA(844)/dV(2748) - B(1490) = RCT(844) -! B(1491) = dA(845)/dV(2748) - B(1491) = RCT(845) -! B(1492) = dA(846)/dV(2748) - B(1492) = RCT(846) -! B(1493) = dA(847)/dV(3652) - B(1493) = RCT(847) -! B(1494) = dA(848)/dV(3652) - B(1494) = RCT(848) -! B(1495) = dA(849)/dV(5128) - B(1495) = RCT(849)*V(5255) -! B(1496) = dA(849)/dV(5255) - B(1496) = RCT(849)*V(5128) -! B(1497) = dA(850)/dV(5128) - B(1497) = RCT(850)*V(5255) -! B(1498) = dA(850)/dV(5255) - B(1498) = RCT(850)*V(5128) -! B(1499) = dA(851)/dV(5128) - B(1499) = RCT(851)*V(5255) -! B(1500) = dA(851)/dV(5255) - B(1500) = RCT(851)*V(5128) -! B(1501) = dA(852)/dV(5128) - B(1501) = RCT(852)*V(5252) -! B(1502) = dA(852)/dV(5252) - B(1502) = RCT(852)*V(5128) -! B(1503) = dA(853)/dV(5128) - B(1503) = RCT(853)*V(5253) -! B(1504) = dA(853)/dV(5253) - B(1504) = RCT(853)*V(5128) -! B(1505) = dA(854)/dV(5128) - B(1505) = RCT(854)*V(5256) -! B(1506) = dA(854)/dV(5256) - B(1506) = RCT(854)*V(5128) -! B(1507) = dA(855)/dV(5128) - B(1507) = RCT(855) -! B(1508) = dA(856)/dV(5128) - B(1508) = RCT(856) -! B(1509) = dA(857)/dV(763) - B(1509) = RCT(857) -! B(1510) = dA(858)/dV(763) - B(1510) = RCT(858) -! B(1511) = dA(859)/dV(5222) - B(1511) = RCT(859) -! B(1512) = dA(860)/dV(5222) - B(1512) = RCT(860)*V(5256) -! B(1513) = dA(860)/dV(5256) - B(1513) = RCT(860)*V(5222) -! B(1514) = dA(861)/dV(5222) - B(1514) = RCT(861)*V(5250) -! B(1515) = dA(861)/dV(5250) - B(1515) = RCT(861)*V(5222) -! B(1516) = dA(862)/dV(684) - B(1516) = RCT(862) -! B(1517) = dA(863)/dV(684) - B(1517) = RCT(863) -! B(1518) = dA(864)/dV(684) - B(1518) = RCT(864) -! B(1519) = dA(865)/dV(4936) - B(1519) = RCT(865)*V(5255) -! B(1520) = dA(865)/dV(5255) - B(1520) = RCT(865)*V(4936) -! B(1521) = dA(866)/dV(4936) - B(1521) = RCT(866)*V(5252) -! B(1522) = dA(866)/dV(5252) - B(1522) = RCT(866)*V(4936) -! B(1523) = dA(867)/dV(4936) - B(1523) = RCT(867)*V(5252) -! B(1524) = dA(867)/dV(5252) - B(1524) = RCT(867)*V(4936) -! B(1525) = dA(868)/dV(4936) - B(1525) = RCT(868)*V(5256) -! B(1526) = dA(868)/dV(5256) - B(1526) = RCT(868)*V(4936) -! B(1527) = dA(869)/dV(4936) - B(1527) = RCT(869) -! B(1528) = dA(870)/dV(4936) - B(1528) = RCT(870) -! B(1529) = dA(871)/dV(4936) - B(1529) = RCT(871) -! B(1530) = dA(872)/dV(4783) - B(1530) = RCT(872)*V(5255) -! B(1531) = dA(872)/dV(5255) - B(1531) = RCT(872)*V(4783) -! B(1532) = dA(873)/dV(4783) - B(1532) = RCT(873)*V(5252) -! B(1533) = dA(873)/dV(5252) - B(1533) = RCT(873)*V(4783) -! B(1534) = dA(874)/dV(4783) - B(1534) = RCT(874)*V(5252) -! B(1535) = dA(874)/dV(5252) - B(1535) = RCT(874)*V(4783) -! B(1536) = dA(875)/dV(4783) - B(1536) = RCT(875)*V(5256) -! B(1537) = dA(875)/dV(5256) - B(1537) = RCT(875)*V(4783) -! B(1538) = dA(876)/dV(4783) - B(1538) = RCT(876) -! B(1539) = dA(877)/dV(4783) - B(1539) = RCT(877) -! B(1540) = dA(878)/dV(4783) - B(1540) = RCT(878) -! B(1541) = dA(879)/dV(4428) - B(1541) = RCT(879)*V(5255) -! B(1542) = dA(879)/dV(5255) - B(1542) = RCT(879)*V(4428) -! B(1543) = dA(880)/dV(4428) - B(1543) = RCT(880)*V(5255) -! B(1544) = dA(880)/dV(5255) - B(1544) = RCT(880)*V(4428) -! B(1545) = dA(881)/dV(4428) - B(1545) = RCT(881)*V(5255) -! B(1546) = dA(881)/dV(5255) - B(1546) = RCT(881)*V(4428) -! B(1547) = dA(882)/dV(4428) - B(1547) = RCT(882)*V(5252) -! B(1548) = dA(882)/dV(5252) - B(1548) = RCT(882)*V(4428) -! B(1549) = dA(883)/dV(4428) - B(1549) = RCT(883)*V(5253) -! B(1550) = dA(883)/dV(5253) - B(1550) = RCT(883)*V(4428) -! B(1551) = dA(884)/dV(4428) - B(1551) = RCT(884)*V(5256) -! B(1552) = dA(884)/dV(5256) - B(1552) = RCT(884)*V(4428) -! B(1553) = dA(885)/dV(4428) - B(1553) = RCT(885) -! B(1554) = dA(886)/dV(4428) - B(1554) = RCT(886) -! B(1555) = dA(887)/dV(4923) - B(1555) = RCT(887)*V(5255) -! B(1556) = dA(887)/dV(5255) - B(1556) = RCT(887)*V(4923) -! B(1557) = dA(888)/dV(4923) - B(1557) = RCT(888)*V(5252) -! B(1558) = dA(888)/dV(5252) - B(1558) = RCT(888)*V(4923) -! B(1559) = dA(889)/dV(4923) - B(1559) = RCT(889)*V(5256) -! B(1560) = dA(889)/dV(5256) - B(1560) = RCT(889)*V(4923) -! B(1561) = dA(890)/dV(4923) - B(1561) = RCT(890) -! B(1562) = dA(891)/dV(4923) - B(1562) = RCT(891) -! B(1563) = dA(892)/dV(4923) - B(1563) = RCT(892) -! B(1564) = dA(893)/dV(4922) - B(1564) = RCT(893)*V(5255) -! B(1565) = dA(893)/dV(5255) - B(1565) = RCT(893)*V(4922) -! B(1566) = dA(894)/dV(4922) - B(1566) = RCT(894)*V(5252) -! B(1567) = dA(894)/dV(5252) - B(1567) = RCT(894)*V(4922) -! B(1568) = dA(895)/dV(4922) - B(1568) = RCT(895)*V(5256) -! B(1569) = dA(895)/dV(5256) - B(1569) = RCT(895)*V(4922) -! B(1570) = dA(896)/dV(4922) - B(1570) = RCT(896) -! B(1571) = dA(897)/dV(4922) - B(1571) = RCT(897) -! B(1572) = dA(898)/dV(4922) - B(1572) = RCT(898) -! B(1573) = dA(899)/dV(4333) - B(1573) = RCT(899) -! B(1574) = dA(900)/dV(4333) - B(1574) = RCT(900) -! B(1575) = dA(901)/dV(4333) - B(1575) = RCT(901) -! B(1576) = dA(902)/dV(4333) - B(1576) = RCT(902) -! B(1577) = dA(903)/dV(4695) - B(1577) = RCT(903)*V(5255) -! B(1578) = dA(903)/dV(5255) - B(1578) = RCT(903)*V(4695) -! B(1579) = dA(904)/dV(4695) - B(1579) = RCT(904)*V(5252) -! B(1580) = dA(904)/dV(5252) - B(1580) = RCT(904)*V(4695) -! B(1581) = dA(905)/dV(4695) - B(1581) = RCT(905)*V(5252) -! B(1582) = dA(905)/dV(5252) - B(1582) = RCT(905)*V(4695) -! B(1583) = dA(906)/dV(4695) - B(1583) = RCT(906)*V(5256) -! B(1584) = dA(906)/dV(5256) - B(1584) = RCT(906)*V(4695) -! B(1585) = dA(907)/dV(4695) - B(1585) = RCT(907) -! B(1586) = dA(908)/dV(4695) - B(1586) = RCT(908) -! B(1587) = dA(909)/dV(4695) - B(1587) = RCT(909) -! B(1588) = dA(910)/dV(4353) - B(1588) = RCT(910)*V(5255) -! B(1589) = dA(910)/dV(5255) - B(1589) = RCT(910)*V(4353) -! B(1590) = dA(911)/dV(4353) - B(1590) = RCT(911)*V(5252) -! B(1591) = dA(911)/dV(5252) - B(1591) = RCT(911)*V(4353) -! B(1592) = dA(912)/dV(4353) - B(1592) = RCT(912)*V(5256) -! B(1593) = dA(912)/dV(5256) - B(1593) = RCT(912)*V(4353) -! B(1594) = dA(913)/dV(4353) - B(1594) = RCT(913) -! B(1595) = dA(914)/dV(4353) - B(1595) = RCT(914) -! B(1596) = dA(915)/dV(4353) - B(1596) = RCT(915) -! B(1597) = dA(916)/dV(5062) - B(1597) = RCT(916)*V(5255) -! B(1598) = dA(916)/dV(5255) - B(1598) = RCT(916)*V(5062) -! B(1599) = dA(917)/dV(5062) - B(1599) = RCT(917)*V(5252) -! B(1600) = dA(917)/dV(5252) - B(1600) = RCT(917)*V(5062) -! B(1601) = dA(918)/dV(5062) - B(1601) = RCT(918)*V(5252) -! B(1602) = dA(918)/dV(5252) - B(1602) = RCT(918)*V(5062) -! B(1603) = dA(919)/dV(5062) - B(1603) = RCT(919)*V(5256) -! B(1604) = dA(919)/dV(5256) - B(1604) = RCT(919)*V(5062) -! B(1605) = dA(920)/dV(5062) - B(1605) = RCT(920) -! B(1606) = dA(921)/dV(5062) - B(1606) = RCT(921) -! B(1607) = dA(922)/dV(5062) - B(1607) = RCT(922) -! B(1608) = dA(923)/dV(4755) - B(1608) = RCT(923)*V(5255) -! B(1609) = dA(923)/dV(5255) - B(1609) = RCT(923)*V(4755) -! B(1610) = dA(924)/dV(4755) - B(1610) = RCT(924)*V(5252) -! B(1611) = dA(924)/dV(5252) - B(1611) = RCT(924)*V(4755) -! B(1612) = dA(925)/dV(4755) - B(1612) = RCT(925)*V(5252) -! B(1613) = dA(925)/dV(5252) - B(1613) = RCT(925)*V(4755) -! B(1614) = dA(926)/dV(4755) - B(1614) = RCT(926)*V(5256) -! B(1615) = dA(926)/dV(5256) - B(1615) = RCT(926)*V(4755) -! B(1616) = dA(927)/dV(4755) - B(1616) = RCT(927) -! B(1617) = dA(928)/dV(4755) - B(1617) = RCT(928) -! B(1618) = dA(929)/dV(4755) - B(1618) = RCT(929) -! B(1619) = dA(930)/dV(4981) - B(1619) = RCT(930)*V(5255) -! B(1620) = dA(930)/dV(5255) - B(1620) = RCT(930)*V(4981) -! B(1621) = dA(931)/dV(4981) - B(1621) = RCT(931)*V(5252) -! B(1622) = dA(931)/dV(5252) - B(1622) = RCT(931)*V(4981) -! B(1623) = dA(932)/dV(4981) - B(1623) = RCT(932)*V(5252) -! B(1624) = dA(932)/dV(5252) - B(1624) = RCT(932)*V(4981) -! B(1625) = dA(933)/dV(4981) - B(1625) = RCT(933)*V(5256) -! B(1626) = dA(933)/dV(5256) - B(1626) = RCT(933)*V(4981) -! B(1627) = dA(934)/dV(4981) - B(1627) = RCT(934) -! B(1628) = dA(935)/dV(4981) - B(1628) = RCT(935) -! B(1629) = dA(936)/dV(5163) - B(1629) = RCT(936)*V(5255) -! B(1630) = dA(936)/dV(5255) - B(1630) = RCT(936)*V(5163) -! B(1631) = dA(937)/dV(5163) - B(1631) = RCT(937)*V(5252) -! B(1632) = dA(937)/dV(5252) - B(1632) = RCT(937)*V(5163) -! B(1633) = dA(938)/dV(5163) - B(1633) = RCT(938)*V(5252) -! B(1634) = dA(938)/dV(5252) - B(1634) = RCT(938)*V(5163) -! B(1635) = dA(939)/dV(5163) - B(1635) = RCT(939)*V(5256) -! B(1636) = dA(939)/dV(5256) - B(1636) = RCT(939)*V(5163) -! B(1637) = dA(940)/dV(5163) - B(1637) = RCT(940) -! B(1638) = dA(941)/dV(5163) - B(1638) = RCT(941) -! B(1639) = dA(942)/dV(5163) - B(1639) = RCT(942) -! B(1640) = dA(943)/dV(5192) - B(1640) = RCT(943)*V(5255) -! B(1641) = dA(943)/dV(5255) - B(1641) = RCT(943)*V(5192) -! B(1642) = dA(944)/dV(5192) - B(1642) = RCT(944)*V(5252) -! B(1643) = dA(944)/dV(5252) - B(1643) = RCT(944)*V(5192) -! B(1644) = dA(945)/dV(5192) - B(1644) = RCT(945)*V(5252) -! B(1645) = dA(945)/dV(5252) - B(1645) = RCT(945)*V(5192) -! B(1646) = dA(946)/dV(5192) - B(1646) = RCT(946)*V(5256) -! B(1647) = dA(946)/dV(5256) - B(1647) = RCT(946)*V(5192) -! B(1648) = dA(947)/dV(5192) - B(1648) = RCT(947) -! B(1649) = dA(948)/dV(5192) - B(1649) = RCT(948) -! B(1650) = dA(949)/dV(5192) - B(1650) = RCT(949) -! B(1651) = dA(950)/dV(4876) - B(1651) = RCT(950)*V(5255) -! B(1652) = dA(950)/dV(5255) - B(1652) = RCT(950)*V(4876) -! B(1653) = dA(951)/dV(4876) - B(1653) = RCT(951)*V(5252) -! B(1654) = dA(951)/dV(5252) - B(1654) = RCT(951)*V(4876) -! B(1655) = dA(952)/dV(4876) - B(1655) = RCT(952)*V(5252) -! B(1656) = dA(952)/dV(5252) - B(1656) = RCT(952)*V(4876) -! B(1657) = dA(953)/dV(4876) - B(1657) = RCT(953)*V(5256) -! B(1658) = dA(953)/dV(5256) - B(1658) = RCT(953)*V(4876) -! B(1659) = dA(954)/dV(4876) - B(1659) = RCT(954) -! B(1660) = dA(955)/dV(4876) - B(1660) = RCT(955) -! B(1661) = dA(956)/dV(4876) - B(1661) = RCT(956) -! B(1662) = dA(957)/dV(5147) - B(1662) = RCT(957)*V(5255) -! B(1663) = dA(957)/dV(5255) - B(1663) = RCT(957)*V(5147) -! B(1664) = dA(958)/dV(5147) - B(1664) = RCT(958)*V(5252) -! B(1665) = dA(958)/dV(5252) - B(1665) = RCT(958)*V(5147) -! B(1666) = dA(959)/dV(5147) - B(1666) = RCT(959)*V(5252) -! B(1667) = dA(959)/dV(5252) - B(1667) = RCT(959)*V(5147) -! B(1668) = dA(960)/dV(5147) - B(1668) = RCT(960)*V(5256) -! B(1669) = dA(960)/dV(5256) - B(1669) = RCT(960)*V(5147) -! B(1670) = dA(961)/dV(5147) - B(1670) = RCT(961) -! B(1671) = dA(962)/dV(5147) - B(1671) = RCT(962) -! B(1672) = dA(963)/dV(5147) - B(1672) = RCT(963) -! B(1673) = dA(964)/dV(4901) - B(1673) = RCT(964)*V(5255) -! B(1674) = dA(964)/dV(5255) - B(1674) = RCT(964)*V(4901) -! B(1675) = dA(965)/dV(4901) - B(1675) = RCT(965)*V(5252) -! B(1676) = dA(965)/dV(5252) - B(1676) = RCT(965)*V(4901) -! B(1677) = dA(966)/dV(4901) - B(1677) = RCT(966)*V(5252) -! B(1678) = dA(966)/dV(5252) - B(1678) = RCT(966)*V(4901) -! B(1679) = dA(967)/dV(4901) - B(1679) = RCT(967)*V(5256) -! B(1680) = dA(967)/dV(5256) - B(1680) = RCT(967)*V(4901) -! B(1681) = dA(968)/dV(4901) - B(1681) = RCT(968) -! B(1682) = dA(969)/dV(4901) - B(1682) = RCT(969) -! B(1683) = dA(970)/dV(4901) - B(1683) = RCT(970) -! B(1684) = dA(971)/dV(5078) - B(1684) = RCT(971)*V(5255) -! B(1685) = dA(971)/dV(5255) - B(1685) = RCT(971)*V(5078) -! B(1686) = dA(972)/dV(5078) - B(1686) = RCT(972)*V(5252) -! B(1687) = dA(972)/dV(5252) - B(1687) = RCT(972)*V(5078) -! B(1688) = dA(973)/dV(5078) - B(1688) = RCT(973)*V(5252) -! B(1689) = dA(973)/dV(5252) - B(1689) = RCT(973)*V(5078) -! B(1690) = dA(974)/dV(5078) - B(1690) = RCT(974)*V(5256) -! B(1691) = dA(974)/dV(5256) - B(1691) = RCT(974)*V(5078) -! B(1692) = dA(975)/dV(5078) - B(1692) = RCT(975) -! B(1693) = dA(976)/dV(5078) - B(1693) = RCT(976) -! B(1694) = dA(977)/dV(4980) - B(1694) = RCT(977)*V(5255) -! B(1695) = dA(977)/dV(5255) - B(1695) = RCT(977)*V(4980) -! B(1696) = dA(978)/dV(4980) - B(1696) = RCT(978)*V(5252) -! B(1697) = dA(978)/dV(5252) - B(1697) = RCT(978)*V(4980) -! B(1698) = dA(979)/dV(4980) - B(1698) = RCT(979)*V(5252) -! B(1699) = dA(979)/dV(5252) - B(1699) = RCT(979)*V(4980) -! B(1700) = dA(980)/dV(4980) - B(1700) = RCT(980)*V(5256) -! B(1701) = dA(980)/dV(5256) - B(1701) = RCT(980)*V(4980) -! B(1702) = dA(981)/dV(4980) - B(1702) = RCT(981) -! B(1703) = dA(982)/dV(4980) - B(1703) = RCT(982) -! B(1704) = dA(983)/dV(4980) - B(1704) = RCT(983) -! B(1705) = dA(984)/dV(4942) - B(1705) = RCT(984)*V(5255) -! B(1706) = dA(984)/dV(5255) - B(1706) = RCT(984)*V(4942) -! B(1707) = dA(985)/dV(4942) - B(1707) = RCT(985)*V(5252) -! B(1708) = dA(985)/dV(5252) - B(1708) = RCT(985)*V(4942) -! B(1709) = dA(986)/dV(4942) - B(1709) = RCT(986)*V(5252) -! B(1710) = dA(986)/dV(5252) - B(1710) = RCT(986)*V(4942) -! B(1711) = dA(987)/dV(4942) - B(1711) = RCT(987)*V(5256) -! B(1712) = dA(987)/dV(5256) - B(1712) = RCT(987)*V(4942) -! B(1713) = dA(988)/dV(4942) - B(1713) = RCT(988) -! B(1714) = dA(989)/dV(4942) - B(1714) = RCT(989) -! B(1715) = dA(990)/dV(4942) - B(1715) = RCT(990) -! B(1716) = dA(991)/dV(5109) - B(1716) = RCT(991)*V(5255) -! B(1717) = dA(991)/dV(5255) - B(1717) = RCT(991)*V(5109) -! B(1718) = dA(992)/dV(5109) - B(1718) = RCT(992)*V(5252) -! B(1719) = dA(992)/dV(5252) - B(1719) = RCT(992)*V(5109) -! B(1720) = dA(993)/dV(5109) - B(1720) = RCT(993)*V(5252) -! B(1721) = dA(993)/dV(5252) - B(1721) = RCT(993)*V(5109) -! B(1722) = dA(994)/dV(5109) - B(1722) = RCT(994)*V(5256) -! B(1723) = dA(994)/dV(5256) - B(1723) = RCT(994)*V(5109) -! B(1724) = dA(995)/dV(5109) - B(1724) = RCT(995) -! B(1725) = dA(996)/dV(5109) - B(1725) = RCT(996) -! B(1726) = dA(997)/dV(5109) - B(1726) = RCT(997) -! B(1727) = dA(998)/dV(5186) - B(1727) = RCT(998)*V(5255) -! B(1728) = dA(998)/dV(5255) - B(1728) = RCT(998)*V(5186) -! B(1729) = dA(999)/dV(5186) - B(1729) = RCT(999)*V(5252) -! B(1730) = dA(999)/dV(5252) - B(1730) = RCT(999)*V(5186) -! B(1731) = dA(1000)/dV(5186) - B(1731) = RCT(1000)*V(5252) -! B(1732) = dA(1000)/dV(5252) - B(1732) = RCT(1000)*V(5186) -! B(1733) = dA(1001)/dV(5186) - B(1733) = RCT(1001)*V(5256) -! B(1734) = dA(1001)/dV(5256) - B(1734) = RCT(1001)*V(5186) -! B(1735) = dA(1002)/dV(5186) - B(1735) = RCT(1002) -! B(1736) = dA(1003)/dV(5186) - B(1736) = RCT(1003) -! B(1737) = dA(1004)/dV(5186) - B(1737) = RCT(1004) -! B(1738) = dA(1005)/dV(4733) - B(1738) = RCT(1005)*V(5255) -! B(1739) = dA(1005)/dV(5255) - B(1739) = RCT(1005)*V(4733) -! B(1740) = dA(1006)/dV(4733) - B(1740) = RCT(1006)*V(5252) -! B(1741) = dA(1006)/dV(5252) - B(1741) = RCT(1006)*V(4733) -! B(1742) = dA(1007)/dV(4733) - B(1742) = RCT(1007)*V(5252) -! B(1743) = dA(1007)/dV(5252) - B(1743) = RCT(1007)*V(4733) -! B(1744) = dA(1008)/dV(4733) - B(1744) = RCT(1008)*V(5256) -! B(1745) = dA(1008)/dV(5256) - B(1745) = RCT(1008)*V(4733) -! B(1746) = dA(1009)/dV(4733) - B(1746) = RCT(1009) -! B(1747) = dA(1010)/dV(4733) - B(1747) = RCT(1010) -! B(1748) = dA(1011)/dV(4733) - B(1748) = RCT(1011) -! B(1749) = dA(1012)/dV(4974) - B(1749) = RCT(1012)*V(5255) -! B(1750) = dA(1012)/dV(5255) - B(1750) = RCT(1012)*V(4974) -! B(1751) = dA(1013)/dV(4974) - B(1751) = RCT(1013)*V(5252) -! B(1752) = dA(1013)/dV(5252) - B(1752) = RCT(1013)*V(4974) -! B(1753) = dA(1014)/dV(4974) - B(1753) = RCT(1014)*V(5252) -! B(1754) = dA(1014)/dV(5252) - B(1754) = RCT(1014)*V(4974) -! B(1755) = dA(1015)/dV(4974) - B(1755) = RCT(1015)*V(5256) -! B(1756) = dA(1015)/dV(5256) - B(1756) = RCT(1015)*V(4974) -! B(1757) = dA(1016)/dV(4974) - B(1757) = RCT(1016) -! B(1758) = dA(1017)/dV(4974) - B(1758) = RCT(1017) -! B(1759) = dA(1018)/dV(4974) - B(1759) = RCT(1018) -! B(1760) = dA(1019)/dV(4571) - B(1760) = RCT(1019)*V(5255) -! B(1761) = dA(1019)/dV(5255) - B(1761) = RCT(1019)*V(4571) -! B(1762) = dA(1020)/dV(4571) - B(1762) = RCT(1020)*V(5252) -! B(1763) = dA(1020)/dV(5252) - B(1763) = RCT(1020)*V(4571) -! B(1764) = dA(1021)/dV(4571) - B(1764) = RCT(1021)*V(5252) -! B(1765) = dA(1021)/dV(5252) - B(1765) = RCT(1021)*V(4571) -! B(1766) = dA(1022)/dV(4571) - B(1766) = RCT(1022)*V(5256) -! B(1767) = dA(1022)/dV(5256) - B(1767) = RCT(1022)*V(4571) -! B(1768) = dA(1023)/dV(4571) - B(1768) = RCT(1023) -! B(1769) = dA(1024)/dV(4571) - B(1769) = RCT(1024) -! B(1770) = dA(1025)/dV(4571) - B(1770) = RCT(1025) -! B(1771) = dA(1026)/dV(5056) - B(1771) = RCT(1026)*V(5255) -! B(1772) = dA(1026)/dV(5255) - B(1772) = RCT(1026)*V(5056) -! B(1773) = dA(1027)/dV(5056) - B(1773) = RCT(1027)*V(5252) -! B(1774) = dA(1027)/dV(5252) - B(1774) = RCT(1027)*V(5056) -! B(1775) = dA(1028)/dV(5056) - B(1775) = RCT(1028)*V(5252) -! B(1776) = dA(1028)/dV(5252) - B(1776) = RCT(1028)*V(5056) -! B(1777) = dA(1029)/dV(5056) - B(1777) = RCT(1029)*V(5256) -! B(1778) = dA(1029)/dV(5256) - B(1778) = RCT(1029)*V(5056) -! B(1779) = dA(1030)/dV(5056) - B(1779) = RCT(1030) -! B(1780) = dA(1031)/dV(5056) - B(1780) = RCT(1031) -! B(1781) = dA(1032)/dV(4696) - B(1781) = RCT(1032)*V(5255) -! B(1782) = dA(1032)/dV(5255) - B(1782) = RCT(1032)*V(4696) -! B(1783) = dA(1033)/dV(4696) - B(1783) = RCT(1033)*V(5252) -! B(1784) = dA(1033)/dV(5252) - B(1784) = RCT(1033)*V(4696) -! B(1785) = dA(1034)/dV(4696) - B(1785) = RCT(1034)*V(5252) -! B(1786) = dA(1034)/dV(5252) - B(1786) = RCT(1034)*V(4696) -! B(1787) = dA(1035)/dV(4696) - B(1787) = RCT(1035)*V(5256) -! B(1788) = dA(1035)/dV(5256) - B(1788) = RCT(1035)*V(4696) -! B(1789) = dA(1036)/dV(4696) - B(1789) = RCT(1036) -! B(1790) = dA(1037)/dV(4696) - B(1790) = RCT(1037) -! B(1791) = dA(1038)/dV(4696) - B(1791) = RCT(1038) -! B(1792) = dA(1039)/dV(5061) - B(1792) = RCT(1039)*V(5255) -! B(1793) = dA(1039)/dV(5255) - B(1793) = RCT(1039)*V(5061) -! B(1794) = dA(1040)/dV(5061) - B(1794) = RCT(1040)*V(5252) -! B(1795) = dA(1040)/dV(5252) - B(1795) = RCT(1040)*V(5061) -! B(1796) = dA(1041)/dV(5061) - B(1796) = RCT(1041)*V(5252) -! B(1797) = dA(1041)/dV(5252) - B(1797) = RCT(1041)*V(5061) -! B(1798) = dA(1042)/dV(5061) - B(1798) = RCT(1042)*V(5256) -! B(1799) = dA(1042)/dV(5256) - B(1799) = RCT(1042)*V(5061) -! B(1800) = dA(1043)/dV(5061) - B(1800) = RCT(1043) -! B(1801) = dA(1044)/dV(5061) - B(1801) = RCT(1044) -! B(1802) = dA(1045)/dV(5061) - B(1802) = RCT(1045) -! B(1803) = dA(1046)/dV(4121) - B(1803) = RCT(1046)*V(5255) -! B(1804) = dA(1046)/dV(5255) - B(1804) = RCT(1046)*V(4121) -! B(1805) = dA(1047)/dV(4121) - B(1805) = RCT(1047)*V(5252) -! B(1806) = dA(1047)/dV(5252) - B(1806) = RCT(1047)*V(4121) -! B(1807) = dA(1048)/dV(4121) - B(1807) = RCT(1048)*V(5252) -! B(1808) = dA(1048)/dV(5252) - B(1808) = RCT(1048)*V(4121) -! B(1809) = dA(1049)/dV(4121) - B(1809) = RCT(1049)*V(5256) -! B(1810) = dA(1049)/dV(5256) - B(1810) = RCT(1049)*V(4121) -! B(1811) = dA(1050)/dV(4121) - B(1811) = RCT(1050) -! B(1812) = dA(1051)/dV(4121) - B(1812) = RCT(1051) -! B(1813) = dA(1052)/dV(5045) - B(1813) = RCT(1052)*V(5255) -! B(1814) = dA(1052)/dV(5255) - B(1814) = RCT(1052)*V(5045) -! B(1815) = dA(1053)/dV(5045) - B(1815) = RCT(1053)*V(5252) -! B(1816) = dA(1053)/dV(5252) - B(1816) = RCT(1053)*V(5045) -! B(1817) = dA(1054)/dV(5045) - B(1817) = RCT(1054)*V(5252) -! B(1818) = dA(1054)/dV(5252) - B(1818) = RCT(1054)*V(5045) -! B(1819) = dA(1055)/dV(5045) - B(1819) = RCT(1055)*V(5256) -! B(1820) = dA(1055)/dV(5256) - B(1820) = RCT(1055)*V(5045) -! B(1821) = dA(1056)/dV(5045) - B(1821) = RCT(1056) -! B(1822) = dA(1057)/dV(5045) - B(1822) = RCT(1057) -! B(1823) = dA(1058)/dV(5045) - B(1823) = RCT(1058) -! B(1824) = dA(1059)/dV(5082) - B(1824) = RCT(1059)*V(5255) -! B(1825) = dA(1059)/dV(5255) - B(1825) = RCT(1059)*V(5082) -! B(1826) = dA(1060)/dV(5082) - B(1826) = RCT(1060)*V(5252) -! B(1827) = dA(1060)/dV(5252) - B(1827) = RCT(1060)*V(5082) -! B(1828) = dA(1061)/dV(5082) - B(1828) = RCT(1061)*V(5252) -! B(1829) = dA(1061)/dV(5252) - B(1829) = RCT(1061)*V(5082) -! B(1830) = dA(1062)/dV(5082) - B(1830) = RCT(1062)*V(5256) -! B(1831) = dA(1062)/dV(5256) - B(1831) = RCT(1062)*V(5082) -! B(1832) = dA(1063)/dV(5082) - B(1832) = RCT(1063) -! B(1833) = dA(1064)/dV(5082) - B(1833) = RCT(1064) -! B(1834) = dA(1065)/dV(5082) - B(1834) = RCT(1065) -! B(1835) = dA(1066)/dV(5077) - B(1835) = RCT(1066)*V(5255) -! B(1836) = dA(1066)/dV(5255) - B(1836) = RCT(1066)*V(5077) -! B(1837) = dA(1067)/dV(5077) - B(1837) = RCT(1067)*V(5252) -! B(1838) = dA(1067)/dV(5252) - B(1838) = RCT(1067)*V(5077) -! B(1839) = dA(1068)/dV(5077) - B(1839) = RCT(1068)*V(5252) -! B(1840) = dA(1068)/dV(5252) - B(1840) = RCT(1068)*V(5077) -! B(1841) = dA(1069)/dV(5077) - B(1841) = RCT(1069)*V(5256) -! B(1842) = dA(1069)/dV(5256) - B(1842) = RCT(1069)*V(5077) -! B(1843) = dA(1070)/dV(5077) - B(1843) = RCT(1070) -! B(1844) = dA(1071)/dV(5077) - B(1844) = RCT(1071) -! B(1845) = dA(1072)/dV(5077) - B(1845) = RCT(1072) -! B(1846) = dA(1073)/dV(3894) - B(1846) = RCT(1073)*V(5255) -! B(1847) = dA(1073)/dV(5255) - B(1847) = RCT(1073)*V(3894) -! B(1848) = dA(1074)/dV(3894) - B(1848) = RCT(1074)*V(5252) -! B(1849) = dA(1074)/dV(5252) - B(1849) = RCT(1074)*V(3894) -! B(1850) = dA(1075)/dV(3894) - B(1850) = RCT(1075)*V(5252) -! B(1851) = dA(1075)/dV(5252) - B(1851) = RCT(1075)*V(3894) -! B(1852) = dA(1076)/dV(3894) - B(1852) = RCT(1076)*V(5256) -! B(1853) = dA(1076)/dV(5256) - B(1853) = RCT(1076)*V(3894) -! B(1854) = dA(1077)/dV(3894) - B(1854) = RCT(1077) -! B(1855) = dA(1078)/dV(3894) - B(1855) = RCT(1078) -! B(1856) = dA(1079)/dV(4886) - B(1856) = RCT(1079)*V(5255) -! B(1857) = dA(1079)/dV(5255) - B(1857) = RCT(1079)*V(4886) -! B(1858) = dA(1080)/dV(4886) - B(1858) = RCT(1080)*V(5252) -! B(1859) = dA(1080)/dV(5252) - B(1859) = RCT(1080)*V(4886) -! B(1860) = dA(1081)/dV(4886) - B(1860) = RCT(1081)*V(5252) -! B(1861) = dA(1081)/dV(5252) - B(1861) = RCT(1081)*V(4886) -! B(1862) = dA(1082)/dV(4886) - B(1862) = RCT(1082)*V(5256) -! B(1863) = dA(1082)/dV(5256) - B(1863) = RCT(1082)*V(4886) -! B(1864) = dA(1083)/dV(4886) - B(1864) = RCT(1083) -! B(1865) = dA(1084)/dV(4886) - B(1865) = RCT(1084) -! B(1866) = dA(1085)/dV(4886) - B(1866) = RCT(1085) -! B(1867) = dA(1086)/dV(4766) - B(1867) = RCT(1086)*V(5255) -! B(1868) = dA(1086)/dV(5255) - B(1868) = RCT(1086)*V(4766) -! B(1869) = dA(1087)/dV(4766) - B(1869) = RCT(1087)*V(5252) -! B(1870) = dA(1087)/dV(5252) - B(1870) = RCT(1087)*V(4766) -! B(1871) = dA(1088)/dV(4766) - B(1871) = RCT(1088)*V(5252) -! B(1872) = dA(1088)/dV(5252) - B(1872) = RCT(1088)*V(4766) -! B(1873) = dA(1089)/dV(4766) - B(1873) = RCT(1089)*V(5256) -! B(1874) = dA(1089)/dV(5256) - B(1874) = RCT(1089)*V(4766) -! B(1875) = dA(1090)/dV(4766) - B(1875) = RCT(1090) -! B(1876) = dA(1091)/dV(4766) - B(1876) = RCT(1091) -! B(1877) = dA(1092)/dV(4766) - B(1877) = RCT(1092) -! B(1878) = dA(1093)/dV(5146) - B(1878) = RCT(1093)*V(5255) -! B(1879) = dA(1093)/dV(5255) - B(1879) = RCT(1093)*V(5146) -! B(1880) = dA(1094)/dV(5146) - B(1880) = RCT(1094)*V(5252) -! B(1881) = dA(1094)/dV(5252) - B(1881) = RCT(1094)*V(5146) -! B(1882) = dA(1095)/dV(5146) - B(1882) = RCT(1095)*V(5252) -! B(1883) = dA(1095)/dV(5252) - B(1883) = RCT(1095)*V(5146) -! B(1884) = dA(1096)/dV(5146) - B(1884) = RCT(1096)*V(5256) -! B(1885) = dA(1096)/dV(5256) - B(1885) = RCT(1096)*V(5146) -! B(1886) = dA(1097)/dV(5146) - B(1886) = RCT(1097) -! B(1887) = dA(1098)/dV(5146) - B(1887) = RCT(1098) -! B(1888) = dA(1099)/dV(5146) - B(1888) = RCT(1099) -! B(1889) = dA(1100)/dV(4099) - B(1889) = RCT(1100)*V(5255) -! B(1890) = dA(1100)/dV(5255) - B(1890) = RCT(1100)*V(4099) -! B(1891) = dA(1101)/dV(4099) - B(1891) = RCT(1101)*V(5252) -! B(1892) = dA(1101)/dV(5252) - B(1892) = RCT(1101)*V(4099) -! B(1893) = dA(1102)/dV(4099) - B(1893) = RCT(1102)*V(5252) -! B(1894) = dA(1102)/dV(5252) - B(1894) = RCT(1102)*V(4099) -! B(1895) = dA(1103)/dV(4099) - B(1895) = RCT(1103)*V(5256) -! B(1896) = dA(1103)/dV(5256) - B(1896) = RCT(1103)*V(4099) -! B(1897) = dA(1104)/dV(4099) - B(1897) = RCT(1104) -! B(1898) = dA(1105)/dV(4099) - B(1898) = RCT(1105) -! B(1899) = dA(1106)/dV(4586) - B(1899) = RCT(1106)*V(5255) -! B(1900) = dA(1106)/dV(5255) - B(1900) = RCT(1106)*V(4586) -! B(1901) = dA(1107)/dV(4586) - B(1901) = RCT(1107)*V(5252) -! B(1902) = dA(1107)/dV(5252) - B(1902) = RCT(1107)*V(4586) -! B(1903) = dA(1108)/dV(4586) - B(1903) = RCT(1108)*V(5252) -! B(1904) = dA(1108)/dV(5252) - B(1904) = RCT(1108)*V(4586) -! B(1905) = dA(1109)/dV(4586) - B(1905) = RCT(1109)*V(5256) -! B(1906) = dA(1109)/dV(5256) - B(1906) = RCT(1109)*V(4586) -! B(1907) = dA(1110)/dV(4586) - B(1907) = RCT(1110) -! B(1908) = dA(1111)/dV(4586) - B(1908) = RCT(1111) -! B(1909) = dA(1112)/dV(4586) - B(1909) = RCT(1112) -! B(1910) = dA(1113)/dV(4878) - B(1910) = RCT(1113)*V(5255) -! B(1911) = dA(1113)/dV(5255) - B(1911) = RCT(1113)*V(4878) -! B(1912) = dA(1114)/dV(4878) - B(1912) = RCT(1114)*V(5252) -! B(1913) = dA(1114)/dV(5252) - B(1913) = RCT(1114)*V(4878) -! B(1914) = dA(1115)/dV(4878) - B(1914) = RCT(1115)*V(5252) -! B(1915) = dA(1115)/dV(5252) - B(1915) = RCT(1115)*V(4878) -! B(1916) = dA(1116)/dV(4878) - B(1916) = RCT(1116)*V(5256) -! B(1917) = dA(1116)/dV(5256) - B(1917) = RCT(1116)*V(4878) -! B(1918) = dA(1117)/dV(4878) - B(1918) = RCT(1117) -! B(1919) = dA(1118)/dV(4878) - B(1919) = RCT(1118) -! B(1920) = dA(1119)/dV(5144) - B(1920) = RCT(1119)*V(5255) -! B(1921) = dA(1119)/dV(5255) - B(1921) = RCT(1119)*V(5144) -! B(1922) = dA(1120)/dV(5144) - B(1922) = RCT(1120)*V(5252) -! B(1923) = dA(1120)/dV(5252) - B(1923) = RCT(1120)*V(5144) -! B(1924) = dA(1121)/dV(5144) - B(1924) = RCT(1121)*V(5252) -! B(1925) = dA(1121)/dV(5252) - B(1925) = RCT(1121)*V(5144) -! B(1926) = dA(1122)/dV(5144) - B(1926) = RCT(1122)*V(5256) -! B(1927) = dA(1122)/dV(5256) - B(1927) = RCT(1122)*V(5144) -! B(1928) = dA(1123)/dV(5144) - B(1928) = RCT(1123) -! B(1929) = dA(1124)/dV(5144) - B(1929) = RCT(1124) -! B(1930) = dA(1125)/dV(5144) - B(1930) = RCT(1125) -! B(1931) = dA(1126)/dV(5112) - B(1931) = RCT(1126)*V(5255) -! B(1932) = dA(1126)/dV(5255) - B(1932) = RCT(1126)*V(5112) -! B(1933) = dA(1127)/dV(5112) - B(1933) = RCT(1127)*V(5252) -! B(1934) = dA(1127)/dV(5252) - B(1934) = RCT(1127)*V(5112) -! B(1935) = dA(1128)/dV(5112) - B(1935) = RCT(1128)*V(5252) -! B(1936) = dA(1128)/dV(5252) - B(1936) = RCT(1128)*V(5112) -! B(1937) = dA(1129)/dV(5112) - B(1937) = RCT(1129)*V(5256) -! B(1938) = dA(1129)/dV(5256) - B(1938) = RCT(1129)*V(5112) -! B(1939) = dA(1130)/dV(5112) - B(1939) = RCT(1130) -! B(1940) = dA(1131)/dV(5112) - B(1940) = RCT(1131) -! B(1941) = dA(1132)/dV(5112) - B(1941) = RCT(1132) -! B(1942) = dA(1133)/dV(5107) - B(1942) = RCT(1133)*V(5255) -! B(1943) = dA(1133)/dV(5255) - B(1943) = RCT(1133)*V(5107) -! B(1944) = dA(1134)/dV(5107) - B(1944) = RCT(1134)*V(5252) -! B(1945) = dA(1134)/dV(5252) - B(1945) = RCT(1134)*V(5107) -! B(1946) = dA(1135)/dV(5107) - B(1946) = RCT(1135)*V(5252) -! B(1947) = dA(1135)/dV(5252) - B(1947) = RCT(1135)*V(5107) -! B(1948) = dA(1136)/dV(5107) - B(1948) = RCT(1136)*V(5256) -! B(1949) = dA(1136)/dV(5256) - B(1949) = RCT(1136)*V(5107) -! B(1950) = dA(1137)/dV(5107) - B(1950) = RCT(1137) -! B(1951) = dA(1138)/dV(5107) - B(1951) = RCT(1138) -! B(1952) = dA(1139)/dV(5107) - B(1952) = RCT(1139) -! B(1953) = dA(1140)/dV(5138) - B(1953) = RCT(1140)*V(5255) -! B(1954) = dA(1140)/dV(5255) - B(1954) = RCT(1140)*V(5138) -! B(1955) = dA(1141)/dV(5138) - B(1955) = RCT(1141)*V(5252) -! B(1956) = dA(1141)/dV(5252) - B(1956) = RCT(1141)*V(5138) -! B(1957) = dA(1142)/dV(5138) - B(1957) = RCT(1142)*V(5252) -! B(1958) = dA(1142)/dV(5252) - B(1958) = RCT(1142)*V(5138) -! B(1959) = dA(1143)/dV(5138) - B(1959) = RCT(1143)*V(5256) -! B(1960) = dA(1143)/dV(5256) - B(1960) = RCT(1143)*V(5138) -! B(1961) = dA(1144)/dV(5138) - B(1961) = RCT(1144) -! B(1962) = dA(1145)/dV(5138) - B(1962) = RCT(1145) -! B(1963) = dA(1146)/dV(5138) - B(1963) = RCT(1146) -! B(1964) = dA(1147)/dV(5065) - B(1964) = RCT(1147)*V(5255) -! B(1965) = dA(1147)/dV(5255) - B(1965) = RCT(1147)*V(5065) -! B(1966) = dA(1148)/dV(5065) - B(1966) = RCT(1148)*V(5252) -! B(1967) = dA(1148)/dV(5252) - B(1967) = RCT(1148)*V(5065) -! B(1968) = dA(1149)/dV(5065) - B(1968) = RCT(1149)*V(5252) -! B(1969) = dA(1149)/dV(5252) - B(1969) = RCT(1149)*V(5065) -! B(1970) = dA(1150)/dV(5065) - B(1970) = RCT(1150)*V(5256) -! B(1971) = dA(1150)/dV(5256) - B(1971) = RCT(1150)*V(5065) -! B(1972) = dA(1151)/dV(5065) - B(1972) = RCT(1151) -! B(1973) = dA(1152)/dV(5065) - B(1973) = RCT(1152) -! B(1974) = dA(1153)/dV(5065) - B(1974) = RCT(1153) -! B(1975) = dA(1154)/dV(5181) - B(1975) = RCT(1154)*V(5255) -! B(1976) = dA(1154)/dV(5255) - B(1976) = RCT(1154)*V(5181) -! B(1977) = dA(1155)/dV(5181) - B(1977) = RCT(1155)*V(5252) -! B(1978) = dA(1155)/dV(5252) - B(1978) = RCT(1155)*V(5181) -! B(1979) = dA(1156)/dV(5181) - B(1979) = RCT(1156)*V(5252) -! B(1980) = dA(1156)/dV(5252) - B(1980) = RCT(1156)*V(5181) -! B(1981) = dA(1157)/dV(5181) - B(1981) = RCT(1157)*V(5256) -! B(1982) = dA(1157)/dV(5256) - B(1982) = RCT(1157)*V(5181) -! B(1983) = dA(1158)/dV(5181) - B(1983) = RCT(1158) -! B(1984) = dA(1159)/dV(5181) - B(1984) = RCT(1159) -! B(1985) = dA(1160)/dV(5181) - B(1985) = RCT(1160) -! B(1986) = dA(1161)/dV(4171) - B(1986) = RCT(1161)*V(5255) -! B(1987) = dA(1161)/dV(5255) - B(1987) = RCT(1161)*V(4171) -! B(1988) = dA(1162)/dV(4171) - B(1988) = RCT(1162)*V(5252) -! B(1989) = dA(1162)/dV(5252) - B(1989) = RCT(1162)*V(4171) -! B(1990) = dA(1163)/dV(4171) - B(1990) = RCT(1163)*V(5256) -! B(1991) = dA(1163)/dV(5256) - B(1991) = RCT(1163)*V(4171) -! B(1992) = dA(1164)/dV(4171) - B(1992) = RCT(1164) -! B(1993) = dA(1165)/dV(4171) - B(1993) = RCT(1165) -! B(1994) = dA(1166)/dV(4171) - B(1994) = RCT(1166) -! B(1995) = dA(1167)/dV(2038) - B(1995) = RCT(1167) -! B(1996) = dA(1168)/dV(2038) - B(1996) = RCT(1168) -! B(1997) = dA(1169)/dV(2038) - B(1997) = RCT(1169) -! B(1998) = dA(1170)/dV(4351) - B(1998) = RCT(1170)*V(5255) -! B(1999) = dA(1170)/dV(5255) - B(1999) = RCT(1170)*V(4351) -! B(2000) = dA(1171)/dV(4351) - B(2000) = RCT(1171)*V(5252) -! B(2001) = dA(1171)/dV(5252) - B(2001) = RCT(1171)*V(4351) -! B(2002) = dA(1172)/dV(4351) - B(2002) = RCT(1172)*V(5256) -! B(2003) = dA(1172)/dV(5256) - B(2003) = RCT(1172)*V(4351) -! B(2004) = dA(1173)/dV(4351) - B(2004) = RCT(1173) -! B(2005) = dA(1174)/dV(4351) - B(2005) = RCT(1174) -! B(2006) = dA(1175)/dV(4351) - B(2006) = RCT(1175) -! B(2007) = dA(1176)/dV(4370) - B(2007) = RCT(1176)*V(5255) -! B(2008) = dA(1176)/dV(5255) - B(2008) = RCT(1176)*V(4370) -! B(2009) = dA(1177)/dV(4370) - B(2009) = RCT(1177)*V(5252) -! B(2010) = dA(1177)/dV(5252) - B(2010) = RCT(1177)*V(4370) -! B(2011) = dA(1178)/dV(4370) - B(2011) = RCT(1178)*V(5256) -! B(2012) = dA(1178)/dV(5256) - B(2012) = RCT(1178)*V(4370) -! B(2013) = dA(1179)/dV(4370) - B(2013) = RCT(1179) -! B(2014) = dA(1180)/dV(4370) - B(2014) = RCT(1180) -! B(2015) = dA(1181)/dV(4370) - B(2015) = RCT(1181) -! B(2016) = dA(1182)/dV(2286) - B(2016) = RCT(1182) -! B(2017) = dA(1183)/dV(2286) - B(2017) = RCT(1183) -! B(2018) = dA(1184)/dV(2286) - B(2018) = RCT(1184) -! B(2019) = dA(1185)/dV(2286) - B(2019) = RCT(1185) -! B(2020) = dA(1186)/dV(4579) - B(2020) = RCT(1186)*V(5255) -! B(2021) = dA(1186)/dV(5255) - B(2021) = RCT(1186)*V(4579) -! B(2022) = dA(1187)/dV(4579) - B(2022) = RCT(1187)*V(5252) -! B(2023) = dA(1187)/dV(5252) - B(2023) = RCT(1187)*V(4579) -! B(2024) = dA(1188)/dV(4579) - B(2024) = RCT(1188)*V(5256) -! B(2025) = dA(1188)/dV(5256) - B(2025) = RCT(1188)*V(4579) -! B(2026) = dA(1189)/dV(4579) - B(2026) = RCT(1189) -! B(2027) = dA(1190)/dV(4579) - B(2027) = RCT(1190) -! B(2028) = dA(1191)/dV(4579) - B(2028) = RCT(1191) -! B(2029) = dA(1192)/dV(4574) - B(2029) = RCT(1192)*V(5255) -! B(2030) = dA(1192)/dV(5255) - B(2030) = RCT(1192)*V(4574) -! B(2031) = dA(1193)/dV(4574) - B(2031) = RCT(1193)*V(5252) -! B(2032) = dA(1193)/dV(5252) - B(2032) = RCT(1193)*V(4574) -! B(2033) = dA(1194)/dV(4574) - B(2033) = RCT(1194)*V(5256) -! B(2034) = dA(1194)/dV(5256) - B(2034) = RCT(1194)*V(4574) -! B(2035) = dA(1195)/dV(4574) - B(2035) = RCT(1195) -! B(2036) = dA(1196)/dV(4574) - B(2036) = RCT(1196) -! B(2037) = dA(1197)/dV(4574) - B(2037) = RCT(1197) -! B(2038) = dA(1198)/dV(2013) - B(2038) = RCT(1198) -! B(2039) = dA(1199)/dV(2013) - B(2039) = RCT(1199) -! B(2040) = dA(1200)/dV(2013) - B(2040) = RCT(1200) -! B(2041) = dA(1201)/dV(2013) - B(2041) = RCT(1201) -! B(2042) = dA(1202)/dV(5149) - B(2042) = RCT(1202)*V(5255) -! B(2043) = dA(1202)/dV(5255) - B(2043) = RCT(1202)*V(5149) -! B(2044) = dA(1203)/dV(5149) - B(2044) = RCT(1203)*V(5252) -! B(2045) = dA(1203)/dV(5252) - B(2045) = RCT(1203)*V(5149) -! B(2046) = dA(1204)/dV(5149) - B(2046) = RCT(1204)*V(5252) -! B(2047) = dA(1204)/dV(5252) - B(2047) = RCT(1204)*V(5149) -! B(2048) = dA(1205)/dV(5149) - B(2048) = RCT(1205)*V(5256) -! B(2049) = dA(1205)/dV(5256) - B(2049) = RCT(1205)*V(5149) -! B(2050) = dA(1206)/dV(5149) - B(2050) = RCT(1206) -! B(2051) = dA(1207)/dV(5149) - B(2051) = RCT(1207) -! B(2052) = dA(1208)/dV(5149) - B(2052) = RCT(1208) -! B(2053) = dA(1209)/dV(4387) - B(2053) = RCT(1209)*V(5255) -! B(2054) = dA(1209)/dV(5255) - B(2054) = RCT(1209)*V(4387) -! B(2055) = dA(1210)/dV(4387) - B(2055) = RCT(1210)*V(5252) -! B(2056) = dA(1210)/dV(5252) - B(2056) = RCT(1210)*V(4387) -! B(2057) = dA(1211)/dV(4387) - B(2057) = RCT(1211)*V(5256) -! B(2058) = dA(1211)/dV(5256) - B(2058) = RCT(1211)*V(4387) -! B(2059) = dA(1212)/dV(4387) - B(2059) = RCT(1212) -! B(2060) = dA(1213)/dV(4387) - B(2060) = RCT(1213) -! B(2061) = dA(1214)/dV(4387) - B(2061) = RCT(1214) -! B(2062) = dA(1215)/dV(4112) - B(2062) = RCT(1215)*V(5255) -! B(2063) = dA(1215)/dV(5255) - B(2063) = RCT(1215)*V(4112) -! B(2064) = dA(1216)/dV(4112) - B(2064) = RCT(1216)*V(5252) -! B(2065) = dA(1216)/dV(5252) - B(2065) = RCT(1216)*V(4112) -! B(2066) = dA(1217)/dV(4112) - B(2066) = RCT(1217)*V(5256) -! B(2067) = dA(1217)/dV(5256) - B(2067) = RCT(1217)*V(4112) -! B(2068) = dA(1218)/dV(4112) - B(2068) = RCT(1218) -! B(2069) = dA(1219)/dV(4112) - B(2069) = RCT(1219) -! B(2070) = dA(1220)/dV(4809) - B(2070) = RCT(1220)*V(5255) -! B(2071) = dA(1220)/dV(5255) - B(2071) = RCT(1220)*V(4809) -! B(2072) = dA(1221)/dV(4809) - B(2072) = RCT(1221)*V(5252) -! B(2073) = dA(1221)/dV(5252) - B(2073) = RCT(1221)*V(4809) -! B(2074) = dA(1222)/dV(4809) - B(2074) = RCT(1222)*V(5256) -! B(2075) = dA(1222)/dV(5256) - B(2075) = RCT(1222)*V(4809) -! B(2076) = dA(1223)/dV(4809) - B(2076) = RCT(1223) -! B(2077) = dA(1224)/dV(4809) - B(2077) = RCT(1224) -! B(2078) = dA(1225)/dV(4809) - B(2078) = RCT(1225) -! B(2079) = dA(1226)/dV(3479) - B(2079) = RCT(1226) -! B(2080) = dA(1227)/dV(3479) - B(2080) = RCT(1227) -! B(2081) = dA(1228)/dV(327) - B(2081) = RCT(1228) -! B(2082) = dA(1229)/dV(327) - B(2082) = RCT(1229) -! B(2083) = dA(1230)/dV(4593) - B(2083) = RCT(1230)*V(5255) -! B(2084) = dA(1230)/dV(5255) - B(2084) = RCT(1230)*V(4593) -! B(2085) = dA(1231)/dV(4593) - B(2085) = RCT(1231)*V(5252) -! B(2086) = dA(1231)/dV(5252) - B(2086) = RCT(1231)*V(4593) -! B(2087) = dA(1232)/dV(4593) - B(2087) = RCT(1232)*V(5256) -! B(2088) = dA(1232)/dV(5256) - B(2088) = RCT(1232)*V(4593) -! B(2089) = dA(1233)/dV(4593) - B(2089) = RCT(1233) -! B(2090) = dA(1234)/dV(4593) - B(2090) = RCT(1234) -! B(2091) = dA(1235)/dV(4593) - B(2091) = RCT(1235) -! B(2092) = dA(1236)/dV(4972) - B(2092) = RCT(1236)*V(5255) -! B(2093) = dA(1236)/dV(5255) - B(2093) = RCT(1236)*V(4972) -! B(2094) = dA(1237)/dV(4972) - B(2094) = RCT(1237)*V(5252) -! B(2095) = dA(1237)/dV(5252) - B(2095) = RCT(1237)*V(4972) -! B(2096) = dA(1238)/dV(4972) - B(2096) = RCT(1238)*V(5256) -! B(2097) = dA(1238)/dV(5256) - B(2097) = RCT(1238)*V(4972) -! B(2098) = dA(1239)/dV(4972) - B(2098) = RCT(1239) -! B(2099) = dA(1240)/dV(4972) - B(2099) = RCT(1240) -! B(2100) = dA(1241)/dV(4972) - B(2100) = RCT(1241) -! B(2101) = dA(1242)/dV(2042) - B(2101) = RCT(1242) -! B(2102) = dA(1243)/dV(2042) - B(2102) = RCT(1243) -! B(2103) = dA(1244)/dV(2042) - B(2103) = RCT(1244) -! B(2104) = dA(1245)/dV(2042) - B(2104) = RCT(1245) -! B(2105) = dA(1246)/dV(4598) - B(2105) = RCT(1246)*V(5255) -! B(2106) = dA(1246)/dV(5255) - B(2106) = RCT(1246)*V(4598) -! B(2107) = dA(1247)/dV(4598) - B(2107) = RCT(1247)*V(5252) -! B(2108) = dA(1247)/dV(5252) - B(2108) = RCT(1247)*V(4598) -! B(2109) = dA(1248)/dV(4598) - B(2109) = RCT(1248)*V(5252) -! B(2110) = dA(1248)/dV(5252) - B(2110) = RCT(1248)*V(4598) -! B(2111) = dA(1249)/dV(4598) - B(2111) = RCT(1249)*V(5256) -! B(2112) = dA(1249)/dV(5256) - B(2112) = RCT(1249)*V(4598) -! B(2113) = dA(1250)/dV(4598) - B(2113) = RCT(1250) -! B(2114) = dA(1251)/dV(4598) - B(2114) = RCT(1251) -! B(2115) = dA(1252)/dV(4598) - B(2115) = RCT(1252) -! B(2116) = dA(1253)/dV(5096) - B(2116) = RCT(1253)*V(5255) -! B(2117) = dA(1253)/dV(5255) - B(2117) = RCT(1253)*V(5096) -! B(2118) = dA(1254)/dV(5096) - B(2118) = RCT(1254)*V(5252) -! B(2119) = dA(1254)/dV(5252) - B(2119) = RCT(1254)*V(5096) -! B(2120) = dA(1255)/dV(5096) - B(2120) = RCT(1255)*V(5252) -! B(2121) = dA(1255)/dV(5252) - B(2121) = RCT(1255)*V(5096) -! B(2122) = dA(1256)/dV(5096) - B(2122) = RCT(1256)*V(5256) -! B(2123) = dA(1256)/dV(5256) - B(2123) = RCT(1256)*V(5096) -! B(2124) = dA(1257)/dV(5096) - B(2124) = RCT(1257) -! B(2125) = dA(1258)/dV(5096) - B(2125) = RCT(1258) -! B(2126) = dA(1259)/dV(5096) - B(2126) = RCT(1259) -! B(2127) = dA(1260)/dV(4714) - B(2127) = RCT(1260)*V(5255) -! B(2128) = dA(1260)/dV(5255) - B(2128) = RCT(1260)*V(4714) -! B(2129) = dA(1261)/dV(4714) - B(2129) = RCT(1261)*V(5252) -! B(2130) = dA(1261)/dV(5252) - B(2130) = RCT(1261)*V(4714) -! B(2131) = dA(1262)/dV(4714) - B(2131) = RCT(1262)*V(5256) -! B(2132) = dA(1262)/dV(5256) - B(2132) = RCT(1262)*V(4714) -! B(2133) = dA(1263)/dV(4714) - B(2133) = RCT(1263) -! B(2134) = dA(1264)/dV(4714) - B(2134) = RCT(1264) -! B(2135) = dA(1265)/dV(4714) - B(2135) = RCT(1265) -! B(2136) = dA(1266)/dV(4782) - B(2136) = RCT(1266)*V(5255) -! B(2137) = dA(1266)/dV(5255) - B(2137) = RCT(1266)*V(4782) -! B(2138) = dA(1267)/dV(4782) - B(2138) = RCT(1267)*V(5252) -! B(2139) = dA(1267)/dV(5252) - B(2139) = RCT(1267)*V(4782) -! B(2140) = dA(1268)/dV(4782) - B(2140) = RCT(1268)*V(5256) -! B(2141) = dA(1268)/dV(5256) - B(2141) = RCT(1268)*V(4782) -! B(2142) = dA(1269)/dV(4782) - B(2142) = RCT(1269) -! B(2143) = dA(1270)/dV(4782) - B(2143) = RCT(1270) -! B(2144) = dA(1271)/dV(4782) - B(2144) = RCT(1271) -! B(2145) = dA(1272)/dV(3297) - B(2145) = RCT(1272) -! B(2146) = dA(1273)/dV(3297) - B(2146) = RCT(1273) -! B(2147) = dA(1274)/dV(3297) - B(2147) = RCT(1274) -! B(2148) = dA(1275)/dV(3297) - B(2148) = RCT(1275) -! B(2149) = dA(1276)/dV(4476) - B(2149) = RCT(1276)*V(5255) -! B(2150) = dA(1276)/dV(5255) - B(2150) = RCT(1276)*V(4476) -! B(2151) = dA(1277)/dV(4476) - B(2151) = RCT(1277)*V(5252) -! B(2152) = dA(1277)/dV(5252) - B(2152) = RCT(1277)*V(4476) -! B(2153) = dA(1278)/dV(4476) - B(2153) = RCT(1278)*V(5252) -! B(2154) = dA(1278)/dV(5252) - B(2154) = RCT(1278)*V(4476) -! B(2155) = dA(1279)/dV(4476) - B(2155) = RCT(1279)*V(5256) -! B(2156) = dA(1279)/dV(5256) - B(2156) = RCT(1279)*V(4476) -! B(2157) = dA(1280)/dV(4476) - B(2157) = RCT(1280) -! B(2158) = dA(1281)/dV(4476) - B(2158) = RCT(1281) -! B(2159) = dA(1282)/dV(4476) - B(2159) = RCT(1282) -! B(2160) = dA(1283)/dV(4777) - B(2160) = RCT(1283)*V(5255) -! B(2161) = dA(1283)/dV(5255) - B(2161) = RCT(1283)*V(4777) -! B(2162) = dA(1284)/dV(4777) - B(2162) = RCT(1284)*V(5252) -! B(2163) = dA(1284)/dV(5252) - B(2163) = RCT(1284)*V(4777) -! B(2164) = dA(1285)/dV(4777) - B(2164) = RCT(1285)*V(5256) -! B(2165) = dA(1285)/dV(5256) - B(2165) = RCT(1285)*V(4777) -! B(2166) = dA(1286)/dV(4777) - B(2166) = RCT(1286) -! B(2167) = dA(1287)/dV(4777) - B(2167) = RCT(1287) -! B(2168) = dA(1288)/dV(4777) - B(2168) = RCT(1288) -! B(2169) = dA(1289)/dV(4143) - B(2169) = RCT(1289)*V(5255) -! B(2170) = dA(1289)/dV(5255) - B(2170) = RCT(1289)*V(4143) -! B(2171) = dA(1290)/dV(4143) - B(2171) = RCT(1290)*V(5252) -! B(2172) = dA(1290)/dV(5252) - B(2172) = RCT(1290)*V(4143) -! B(2173) = dA(1291)/dV(4143) - B(2173) = RCT(1291)*V(5256) -! B(2174) = dA(1291)/dV(5256) - B(2174) = RCT(1291)*V(4143) -! B(2175) = dA(1292)/dV(4143) - B(2175) = RCT(1292) -! B(2176) = dA(1293)/dV(4143) - B(2176) = RCT(1293) -! B(2177) = dA(1294)/dV(477) - B(2177) = RCT(1294) -! B(2178) = dA(1295)/dV(477) - B(2178) = RCT(1295) -! B(2179) = dA(1296)/dV(4700) - B(2179) = RCT(1296)*V(5255) -! B(2180) = dA(1296)/dV(5255) - B(2180) = RCT(1296)*V(4700) -! B(2181) = dA(1297)/dV(4700) - B(2181) = RCT(1297)*V(5252) -! B(2182) = dA(1297)/dV(5252) - B(2182) = RCT(1297)*V(4700) -! B(2183) = dA(1298)/dV(4700) - B(2183) = RCT(1298)*V(5256) -! B(2184) = dA(1298)/dV(5256) - B(2184) = RCT(1298)*V(4700) -! B(2185) = dA(1299)/dV(4700) - B(2185) = RCT(1299) -! B(2186) = dA(1300)/dV(4700) - B(2186) = RCT(1300) -! B(2187) = dA(1301)/dV(4700) - B(2187) = RCT(1301) -! B(2188) = dA(1302)/dV(4881) - B(2188) = RCT(1302)*V(5255) -! B(2189) = dA(1302)/dV(5255) - B(2189) = RCT(1302)*V(4881) -! B(2190) = dA(1303)/dV(4881) - B(2190) = RCT(1303)*V(5252) -! B(2191) = dA(1303)/dV(5252) - B(2191) = RCT(1303)*V(4881) -! B(2192) = dA(1304)/dV(4881) - B(2192) = RCT(1304)*V(5256) -! B(2193) = dA(1304)/dV(5256) - B(2193) = RCT(1304)*V(4881) -! B(2194) = dA(1305)/dV(4881) - B(2194) = RCT(1305) -! B(2195) = dA(1306)/dV(4881) - B(2195) = RCT(1306) -! B(2196) = dA(1307)/dV(4881) - B(2196) = RCT(1307) -! B(2197) = dA(1308)/dV(2212) - B(2197) = RCT(1308) -! B(2198) = dA(1309)/dV(2212) - B(2198) = RCT(1309) -! B(2199) = dA(1310)/dV(2212) - B(2199) = RCT(1310) -! B(2200) = dA(1311)/dV(2212) - B(2200) = RCT(1311) -! B(2201) = dA(1312)/dV(5043) - B(2201) = RCT(1312)*V(5255) -! B(2202) = dA(1312)/dV(5255) - B(2202) = RCT(1312)*V(5043) -! B(2203) = dA(1313)/dV(5043) - B(2203) = RCT(1313)*V(5252) -! B(2204) = dA(1313)/dV(5252) - B(2204) = RCT(1313)*V(5043) -! B(2205) = dA(1314)/dV(5043) - B(2205) = RCT(1314)*V(5252) -! B(2206) = dA(1314)/dV(5252) - B(2206) = RCT(1314)*V(5043) -! B(2207) = dA(1315)/dV(5043) - B(2207) = RCT(1315)*V(5256) -! B(2208) = dA(1315)/dV(5256) - B(2208) = RCT(1315)*V(5043) -! B(2209) = dA(1316)/dV(5043) - B(2209) = RCT(1316) -! B(2210) = dA(1317)/dV(5043) - B(2210) = RCT(1317) -! B(2211) = dA(1318)/dV(5043) - B(2211) = RCT(1318) -! B(2212) = dA(1319)/dV(4723) - B(2212) = RCT(1319)*V(5255) -! B(2213) = dA(1319)/dV(5255) - B(2213) = RCT(1319)*V(4723) -! B(2214) = dA(1320)/dV(4723) - B(2214) = RCT(1320)*V(5252) -! B(2215) = dA(1320)/dV(5252) - B(2215) = RCT(1320)*V(4723) -! B(2216) = dA(1321)/dV(4723) - B(2216) = RCT(1321)*V(5256) -! B(2217) = dA(1321)/dV(5256) - B(2217) = RCT(1321)*V(4723) -! B(2218) = dA(1322)/dV(4723) - B(2218) = RCT(1322) -! B(2219) = dA(1323)/dV(4723) - B(2219) = RCT(1323) -! B(2220) = dA(1324)/dV(4723) - B(2220) = RCT(1324) -! B(2221) = dA(1325)/dV(4140) - B(2221) = RCT(1325)*V(5255) -! B(2222) = dA(1325)/dV(5255) - B(2222) = RCT(1325)*V(4140) -! B(2223) = dA(1326)/dV(4140) - B(2223) = RCT(1326)*V(5252) -! B(2224) = dA(1326)/dV(5252) - B(2224) = RCT(1326)*V(4140) -! B(2225) = dA(1327)/dV(4140) - B(2225) = RCT(1327)*V(5256) -! B(2226) = dA(1327)/dV(5256) - B(2226) = RCT(1327)*V(4140) -! B(2227) = dA(1328)/dV(4140) - B(2227) = RCT(1328) -! B(2228) = dA(1329)/dV(4140) - B(2228) = RCT(1329) -! B(2229) = dA(1330)/dV(239) - B(2229) = RCT(1330) -! B(2230) = dA(1331)/dV(239) - B(2230) = RCT(1331) -! B(2231) = dA(1332)/dV(766) - B(2231) = RCT(1332) -! B(2232) = dA(1333)/dV(766) - B(2232) = RCT(1333) -! B(2233) = dA(1334)/dV(4879) - B(2233) = RCT(1334)*V(5255) -! B(2234) = dA(1334)/dV(5255) - B(2234) = RCT(1334)*V(4879) -! B(2235) = dA(1335)/dV(4879) - B(2235) = RCT(1335)*V(5252) -! B(2236) = dA(1335)/dV(5252) - B(2236) = RCT(1335)*V(4879) -! B(2237) = dA(1336)/dV(4879) - B(2237) = RCT(1336)*V(5256) -! B(2238) = dA(1336)/dV(5256) - B(2238) = RCT(1336)*V(4879) -! B(2239) = dA(1337)/dV(4879) - B(2239) = RCT(1337) -! B(2240) = dA(1338)/dV(4879) - B(2240) = RCT(1338) -! B(2241) = dA(1339)/dV(4879) - B(2241) = RCT(1339) -! B(2242) = dA(1340)/dV(4587) - B(2242) = RCT(1340)*V(5255) -! B(2243) = dA(1340)/dV(5255) - B(2243) = RCT(1340)*V(4587) -! B(2244) = dA(1341)/dV(4587) - B(2244) = RCT(1341)*V(5252) -! B(2245) = dA(1341)/dV(5252) - B(2245) = RCT(1341)*V(4587) -! B(2246) = dA(1342)/dV(4587) - B(2246) = RCT(1342)*V(5256) -! B(2247) = dA(1342)/dV(5256) - B(2247) = RCT(1342)*V(4587) -! B(2248) = dA(1343)/dV(4587) - B(2248) = RCT(1343) -! B(2249) = dA(1344)/dV(4587) - B(2249) = RCT(1344) -! B(2250) = dA(1345)/dV(4587) - B(2250) = RCT(1345) -! B(2251) = dA(1346)/dV(2487) - B(2251) = RCT(1346) -! B(2252) = dA(1347)/dV(2487) - B(2252) = RCT(1347) -! B(2253) = dA(1348)/dV(2487) - B(2253) = RCT(1348) -! B(2254) = dA(1349)/dV(2487) - B(2254) = RCT(1349) -! B(2255) = dA(1350)/dV(4582) - B(2255) = RCT(1350)*V(5255) -! B(2256) = dA(1350)/dV(5255) - B(2256) = RCT(1350)*V(4582) -! B(2257) = dA(1351)/dV(4582) - B(2257) = RCT(1351)*V(5252) -! B(2258) = dA(1351)/dV(5252) - B(2258) = RCT(1351)*V(4582) -! B(2259) = dA(1352)/dV(4582) - B(2259) = RCT(1352)*V(5252) -! B(2260) = dA(1352)/dV(5252) - B(2260) = RCT(1352)*V(4582) -! B(2261) = dA(1353)/dV(4582) - B(2261) = RCT(1353)*V(5256) -! B(2262) = dA(1353)/dV(5256) - B(2262) = RCT(1353)*V(4582) -! B(2263) = dA(1354)/dV(4582) - B(2263) = RCT(1354) -! B(2264) = dA(1355)/dV(4582) - B(2264) = RCT(1355) -! B(2265) = dA(1356)/dV(4582) - B(2265) = RCT(1356) -! B(2266) = dA(1357)/dV(5135) - B(2266) = RCT(1357)*V(5255) -! B(2267) = dA(1357)/dV(5255) - B(2267) = RCT(1357)*V(5135) -! B(2268) = dA(1358)/dV(5135) - B(2268) = RCT(1358)*V(5252) -! B(2269) = dA(1358)/dV(5252) - B(2269) = RCT(1358)*V(5135) -! B(2270) = dA(1359)/dV(5135) - B(2270) = RCT(1359)*V(5252) -! B(2271) = dA(1359)/dV(5252) - B(2271) = RCT(1359)*V(5135) -! B(2272) = dA(1360)/dV(5135) - B(2272) = RCT(1360)*V(5256) -! B(2273) = dA(1360)/dV(5256) - B(2273) = RCT(1360)*V(5135) -! B(2274) = dA(1361)/dV(5135) - B(2274) = RCT(1361) -! B(2275) = dA(1362)/dV(5135) - B(2275) = RCT(1362) -! B(2276) = dA(1363)/dV(5135) - B(2276) = RCT(1363) -! B(2277) = dA(1364)/dV(4884) - B(2277) = RCT(1364)*V(5255) -! B(2278) = dA(1364)/dV(5255) - B(2278) = RCT(1364)*V(4884) -! B(2279) = dA(1365)/dV(4884) - B(2279) = RCT(1365)*V(5252) -! B(2280) = dA(1365)/dV(5252) - B(2280) = RCT(1365)*V(4884) -! B(2281) = dA(1366)/dV(4884) - B(2281) = RCT(1366)*V(5256) -! B(2282) = dA(1366)/dV(5256) - B(2282) = RCT(1366)*V(4884) -! B(2283) = dA(1367)/dV(4884) - B(2283) = RCT(1367) -! B(2284) = dA(1368)/dV(4884) - B(2284) = RCT(1368) -! B(2285) = dA(1369)/dV(4884) - B(2285) = RCT(1369) -! B(2286) = dA(1370)/dV(4702) - B(2286) = RCT(1370)*V(5255) -! B(2287) = dA(1370)/dV(5255) - B(2287) = RCT(1370)*V(4702) -! B(2288) = dA(1371)/dV(4702) - B(2288) = RCT(1371)*V(5252) -! B(2289) = dA(1371)/dV(5252) - B(2289) = RCT(1371)*V(4702) -! B(2290) = dA(1372)/dV(4702) - B(2290) = RCT(1372)*V(5256) -! B(2291) = dA(1372)/dV(5256) - B(2291) = RCT(1372)*V(4702) -! B(2292) = dA(1373)/dV(4702) - B(2292) = RCT(1373) -! B(2293) = dA(1374)/dV(4702) - B(2293) = RCT(1374) -! B(2294) = dA(1375)/dV(4702) - B(2294) = RCT(1375) -! B(2295) = dA(1376)/dV(3202) - B(2295) = RCT(1376) -! B(2296) = dA(1377)/dV(3202) - B(2296) = RCT(1377) -! B(2297) = dA(1378)/dV(3202) - B(2297) = RCT(1378) -! B(2298) = dA(1379)/dV(3202) - B(2298) = RCT(1379) -! B(2299) = dA(1380)/dV(4607) - B(2299) = RCT(1380)*V(5255) -! B(2300) = dA(1380)/dV(5255) - B(2300) = RCT(1380)*V(4607) -! B(2301) = dA(1381)/dV(4607) - B(2301) = RCT(1381)*V(5252) -! B(2302) = dA(1381)/dV(5252) - B(2302) = RCT(1381)*V(4607) -! B(2303) = dA(1382)/dV(4607) - B(2303) = RCT(1382)*V(5252) -! B(2304) = dA(1382)/dV(5252) - B(2304) = RCT(1382)*V(4607) -! B(2305) = dA(1383)/dV(4607) - B(2305) = RCT(1383)*V(5256) -! B(2306) = dA(1383)/dV(5256) - B(2306) = RCT(1383)*V(4607) -! B(2307) = dA(1384)/dV(4607) - B(2307) = RCT(1384) -! B(2308) = dA(1385)/dV(4607) - B(2308) = RCT(1385) -! B(2309) = dA(1386)/dV(4607) - B(2309) = RCT(1386) -! B(2310) = dA(1387)/dV(4608) - B(2310) = RCT(1387)*V(5255) -! B(2311) = dA(1387)/dV(5255) - B(2311) = RCT(1387)*V(4608) -! B(2312) = dA(1388)/dV(4608) - B(2312) = RCT(1388)*V(5252) -! B(2313) = dA(1388)/dV(5252) - B(2313) = RCT(1388)*V(4608) -! B(2314) = dA(1389)/dV(4608) - B(2314) = RCT(1389)*V(5252) -! B(2315) = dA(1389)/dV(5252) - B(2315) = RCT(1389)*V(4608) -! B(2316) = dA(1390)/dV(4608) - B(2316) = RCT(1390)*V(5256) -! B(2317) = dA(1390)/dV(5256) - B(2317) = RCT(1390)*V(4608) -! B(2318) = dA(1391)/dV(4608) - B(2318) = RCT(1391) -! B(2319) = dA(1392)/dV(4608) - B(2319) = RCT(1392) -! B(2320) = dA(1393)/dV(4608) - B(2320) = RCT(1393) -! B(2321) = dA(1394)/dV(3671) - B(2321) = RCT(1394)*V(5255) -! B(2322) = dA(1394)/dV(5255) - B(2322) = RCT(1394)*V(3671) -! B(2323) = dA(1395)/dV(3671) - B(2323) = RCT(1395)*V(5252) -! B(2324) = dA(1395)/dV(5252) - B(2324) = RCT(1395)*V(3671) -! B(2325) = dA(1396)/dV(3671) - B(2325) = RCT(1396)*V(5256) -! B(2326) = dA(1396)/dV(5256) - B(2326) = RCT(1396)*V(3671) -! B(2327) = dA(1397)/dV(3671) - B(2327) = RCT(1397) -! B(2328) = dA(1398)/dV(3671) - B(2328) = RCT(1398) -! B(2329) = dA(1399)/dV(37) - B(2329) = RCT(1399) -! B(2330) = dA(1400)/dV(3721) - B(2330) = RCT(1400)*V(5255) -! B(2331) = dA(1400)/dV(5255) - B(2331) = RCT(1400)*V(3721) -! B(2332) = dA(1401)/dV(3721) - B(2332) = RCT(1401)*V(5252) -! B(2333) = dA(1401)/dV(5252) - B(2333) = RCT(1401)*V(3721) -! B(2334) = dA(1402)/dV(3721) - B(2334) = RCT(1402)*V(5252) -! B(2335) = dA(1402)/dV(5252) - B(2335) = RCT(1402)*V(3721) -! B(2336) = dA(1403)/dV(3721) - B(2336) = RCT(1403)*V(5256) -! B(2337) = dA(1403)/dV(5256) - B(2337) = RCT(1403)*V(3721) -! B(2338) = dA(1404)/dV(3721) - B(2338) = RCT(1404) -! B(2339) = dA(1405)/dV(3721) - B(2339) = RCT(1405) -! B(2340) = dA(1406)/dV(680) - B(2340) = RCT(1406)*V(5250) -! B(2341) = dA(1406)/dV(5250) - B(2341) = RCT(1406)*V(680) -! B(2342) = dA(1407)/dV(4399) - B(2342) = RCT(1407)*V(5255) -! B(2343) = dA(1407)/dV(5255) - B(2343) = RCT(1407)*V(4399) -! B(2344) = dA(1408)/dV(4399) - B(2344) = RCT(1408)*V(5252) -! B(2345) = dA(1408)/dV(5252) - B(2345) = RCT(1408)*V(4399) -! B(2346) = dA(1409)/dV(4399) - B(2346) = RCT(1409)*V(5252) -! B(2347) = dA(1409)/dV(5252) - B(2347) = RCT(1409)*V(4399) -! B(2348) = dA(1410)/dV(4399) - B(2348) = RCT(1410)*V(5256) -! B(2349) = dA(1410)/dV(5256) - B(2349) = RCT(1410)*V(4399) -! B(2350) = dA(1411)/dV(4399) - B(2350) = RCT(1411) -! B(2351) = dA(1412)/dV(4399) - B(2351) = RCT(1412) -! B(2352) = dA(1413)/dV(4399) - B(2352) = RCT(1413) -! B(2353) = dA(1414)/dV(4396) - B(2353) = RCT(1414)*V(5256) -! B(2354) = dA(1414)/dV(5256) - B(2354) = RCT(1414)*V(4396) -! B(2355) = dA(1415)/dV(4396) - B(2355) = RCT(1415)*V(5258) -! B(2356) = dA(1415)/dV(5258) - B(2356) = RCT(1415)*V(4396) -! B(2357) = dA(1416)/dV(4396) - B(2357) = RCT(1416)*V(5250) -! B(2358) = dA(1416)/dV(5250) - B(2358) = RCT(1416)*V(4396) -! B(2359) = dA(1417)/dV(4396) - B(2359) = RCT(1417)*V(5250) -! B(2360) = dA(1417)/dV(5250) - B(2360) = RCT(1417)*V(4396) -! B(2361) = dA(1418)/dV(4396) - B(2361) = RCT(1418) -! B(2362) = dA(1419)/dV(4396) - B(2362) = RCT(1419) -! B(2363) = dA(1420)/dV(4397) - B(2363) = RCT(1420)*V(5256) -! B(2364) = dA(1420)/dV(5256) - B(2364) = RCT(1420)*V(4397) -! B(2365) = dA(1421)/dV(4397) - B(2365) = RCT(1421)*V(5256) -! B(2366) = dA(1421)/dV(5256) - B(2366) = RCT(1421)*V(4397) -! B(2367) = dA(1422)/dV(4397) - B(2367) = RCT(1422)*V(5250) -! B(2368) = dA(1422)/dV(5250) - B(2368) = RCT(1422)*V(4397) -! B(2369) = dA(1423)/dV(4397) - B(2369) = RCT(1423)*V(5250) -! B(2370) = dA(1423)/dV(5250) - B(2370) = RCT(1423)*V(4397) -! B(2371) = dA(1424)/dV(4397) - B(2371) = RCT(1424)*V(5250) -! B(2372) = dA(1424)/dV(5250) - B(2372) = RCT(1424)*V(4397) -! B(2373) = dA(1425)/dV(3776) - B(2373) = RCT(1425)*V(5255) -! B(2374) = dA(1425)/dV(5255) - B(2374) = RCT(1425)*V(3776) -! B(2375) = dA(1426)/dV(3776) - B(2375) = RCT(1426)*V(5252) -! B(2376) = dA(1426)/dV(5252) - B(2376) = RCT(1426)*V(3776) -! B(2377) = dA(1427)/dV(3776) - B(2377) = RCT(1427)*V(5252) -! B(2378) = dA(1427)/dV(5252) - B(2378) = RCT(1427)*V(3776) -! B(2379) = dA(1428)/dV(3776) - B(2379) = RCT(1428)*V(5256) -! B(2380) = dA(1428)/dV(5256) - B(2380) = RCT(1428)*V(3776) -! B(2381) = dA(1429)/dV(3776) - B(2381) = RCT(1429) -! B(2382) = dA(1430)/dV(3776) - B(2382) = RCT(1430) -! B(2383) = dA(1431)/dV(3776) - B(2383) = RCT(1431) -! B(2384) = dA(1432)/dV(3157) - B(2384) = RCT(1432)*V(5256) -! B(2385) = dA(1432)/dV(5256) - B(2385) = RCT(1432)*V(3157) -! B(2386) = dA(1433)/dV(3157) - B(2386) = RCT(1433)*V(5256) -! B(2387) = dA(1433)/dV(5256) - B(2387) = RCT(1433)*V(3157) -! B(2388) = dA(1434)/dV(3157) - B(2388) = RCT(1434)*V(5256) -! B(2389) = dA(1434)/dV(5256) - B(2389) = RCT(1434)*V(3157) -! B(2390) = dA(1435)/dV(3157) - B(2390) = RCT(1435)*V(5250) -! B(2391) = dA(1435)/dV(5250) - B(2391) = RCT(1435)*V(3157) -! B(2392) = dA(1436)/dV(3157) - B(2392) = RCT(1436)*V(5250) -! B(2393) = dA(1436)/dV(5250) - B(2393) = RCT(1436)*V(3157) -! B(2394) = dA(1437)/dV(3157) - B(2394) = RCT(1437)*V(5250) -! B(2395) = dA(1437)/dV(5250) - B(2395) = RCT(1437)*V(3157) -! B(2396) = dA(1438)/dV(3823) - B(2396) = RCT(1438)*V(5255) -! B(2397) = dA(1438)/dV(5255) - B(2397) = RCT(1438)*V(3823) -! B(2398) = dA(1439)/dV(3823) - B(2398) = RCT(1439)*V(5252) -! B(2399) = dA(1439)/dV(5252) - B(2399) = RCT(1439)*V(3823) -! B(2400) = dA(1440)/dV(3823) - B(2400) = RCT(1440)*V(5252) -! B(2401) = dA(1440)/dV(5252) - B(2401) = RCT(1440)*V(3823) -! B(2402) = dA(1441)/dV(3823) - B(2402) = RCT(1441)*V(5256) -! B(2403) = dA(1441)/dV(5256) - B(2403) = RCT(1441)*V(3823) -! B(2404) = dA(1442)/dV(3823) - B(2404) = RCT(1442) -! B(2405) = dA(1443)/dV(3823) - B(2405) = RCT(1443) -! B(2406) = dA(1444)/dV(3823) - B(2406) = RCT(1444) -! B(2407) = dA(1445)/dV(4010) - B(2407) = RCT(1445)*V(5256) -! B(2408) = dA(1445)/dV(5256) - B(2408) = RCT(1445)*V(4010) -! B(2409) = dA(1446)/dV(4010) - B(2409) = RCT(1446)*V(5258) -! B(2410) = dA(1446)/dV(5258) - B(2410) = RCT(1446)*V(4010) -! B(2411) = dA(1447)/dV(4010) - B(2411) = RCT(1447)*V(5250) -! B(2412) = dA(1447)/dV(5250) - B(2412) = RCT(1447)*V(4010) -! B(2413) = dA(1448)/dV(4010) - B(2413) = RCT(1448)*V(5250) -! B(2414) = dA(1448)/dV(5250) - B(2414) = RCT(1448)*V(4010) -! B(2415) = dA(1449)/dV(4010) - B(2415) = RCT(1449) -! B(2416) = dA(1450)/dV(4010) - B(2416) = RCT(1450) -! B(2417) = dA(1451)/dV(3523) - B(2417) = RCT(1451)*V(5255) -! B(2418) = dA(1451)/dV(5255) - B(2418) = RCT(1451)*V(3523) -! B(2419) = dA(1452)/dV(3523) - B(2419) = RCT(1452)*V(5252) -! B(2420) = dA(1452)/dV(5252) - B(2420) = RCT(1452)*V(3523) -! B(2421) = dA(1453)/dV(3523) - B(2421) = RCT(1453)*V(5252) -! B(2422) = dA(1453)/dV(5252) - B(2422) = RCT(1453)*V(3523) -! B(2423) = dA(1454)/dV(3523) - B(2423) = RCT(1454)*V(5256) -! B(2424) = dA(1454)/dV(5256) - B(2424) = RCT(1454)*V(3523) -! B(2425) = dA(1455)/dV(3523) - B(2425) = RCT(1455) -! B(2426) = dA(1456)/dV(3523) - B(2426) = RCT(1456) -! B(2427) = dA(1457)/dV(3523) - B(2427) = RCT(1457) -! B(2428) = dA(1458)/dV(4028) - B(2428) = RCT(1458)*V(5255) -! B(2429) = dA(1458)/dV(5255) - B(2429) = RCT(1458)*V(4028) -! B(2430) = dA(1459)/dV(4028) - B(2430) = RCT(1459)*V(5252) -! B(2431) = dA(1459)/dV(5252) - B(2431) = RCT(1459)*V(4028) -! B(2432) = dA(1460)/dV(4028) - B(2432) = RCT(1460)*V(5252) -! B(2433) = dA(1460)/dV(5252) - B(2433) = RCT(1460)*V(4028) -! B(2434) = dA(1461)/dV(4028) - B(2434) = RCT(1461)*V(5256) -! B(2435) = dA(1461)/dV(5256) - B(2435) = RCT(1461)*V(4028) -! B(2436) = dA(1462)/dV(4028) - B(2436) = RCT(1462) -! B(2437) = dA(1463)/dV(4028) - B(2437) = RCT(1463) -! B(2438) = dA(1464)/dV(3834) - B(2438) = RCT(1464)*V(5256) -! B(2439) = dA(1464)/dV(5256) - B(2439) = RCT(1464)*V(3834) -! B(2440) = dA(1465)/dV(3834) - B(2440) = RCT(1465)*V(5258) -! B(2441) = dA(1465)/dV(5258) - B(2441) = RCT(1465)*V(3834) -! B(2442) = dA(1466)/dV(3834) - B(2442) = RCT(1466)*V(5250) -! B(2443) = dA(1466)/dV(5250) - B(2443) = RCT(1466)*V(3834) -! B(2444) = dA(1467)/dV(3834) - B(2444) = RCT(1467)*V(5250) -! B(2445) = dA(1467)/dV(5250) - B(2445) = RCT(1467)*V(3834) -! B(2446) = dA(1468)/dV(3834) - B(2446) = RCT(1468) -! B(2447) = dA(1469)/dV(3834) - B(2447) = RCT(1469) -! B(2448) = dA(1470)/dV(3158) - B(2448) = RCT(1470)*V(5256) -! B(2449) = dA(1470)/dV(5256) - B(2449) = RCT(1470)*V(3158) -! B(2450) = dA(1471)/dV(3158) - B(2450) = RCT(1471)*V(5256) -! B(2451) = dA(1471)/dV(5256) - B(2451) = RCT(1471)*V(3158) -! B(2452) = dA(1472)/dV(3158) - B(2452) = RCT(1472)*V(5256) -! B(2453) = dA(1472)/dV(5256) - B(2453) = RCT(1472)*V(3158) -! B(2454) = dA(1473)/dV(3158) - B(2454) = RCT(1473)*V(5250) -! B(2455) = dA(1473)/dV(5250) - B(2455) = RCT(1473)*V(3158) -! B(2456) = dA(1474)/dV(3158) - B(2456) = RCT(1474)*V(5250) -! B(2457) = dA(1474)/dV(5250) - B(2457) = RCT(1474)*V(3158) -! B(2458) = dA(1475)/dV(3158) - B(2458) = RCT(1475)*V(5250) -! B(2459) = dA(1475)/dV(5250) - B(2459) = RCT(1475)*V(3158) -! B(2460) = dA(1476)/dV(3509) - B(2460) = RCT(1476)*V(5255) -! B(2461) = dA(1476)/dV(5255) - B(2461) = RCT(1476)*V(3509) -! B(2462) = dA(1477)/dV(3509) - B(2462) = RCT(1477)*V(5252) -! B(2463) = dA(1477)/dV(5252) - B(2463) = RCT(1477)*V(3509) -! B(2464) = dA(1478)/dV(3509) - B(2464) = RCT(1478)*V(5252) -! B(2465) = dA(1478)/dV(5252) - B(2465) = RCT(1478)*V(3509) -! B(2466) = dA(1479)/dV(3509) - B(2466) = RCT(1479)*V(5256) -! B(2467) = dA(1479)/dV(5256) - B(2467) = RCT(1479)*V(3509) -! B(2468) = dA(1480)/dV(3509) - B(2468) = RCT(1480) -! B(2469) = dA(1481)/dV(3509) - B(2469) = RCT(1481) -! B(2470) = dA(1482)/dV(3509) - B(2470) = RCT(1482) -! B(2471) = dA(1483)/dV(4003) - B(2471) = RCT(1483)*V(5255) -! B(2472) = dA(1483)/dV(5255) - B(2472) = RCT(1483)*V(4003) -! B(2473) = dA(1484)/dV(4003) - B(2473) = RCT(1484)*V(5252) -! B(2474) = dA(1484)/dV(5252) - B(2474) = RCT(1484)*V(4003) -! B(2475) = dA(1485)/dV(4003) - B(2475) = RCT(1485)*V(5252) -! B(2476) = dA(1485)/dV(5252) - B(2476) = RCT(1485)*V(4003) -! B(2477) = dA(1486)/dV(4003) - B(2477) = RCT(1486)*V(5256) -! B(2478) = dA(1486)/dV(5256) - B(2478) = RCT(1486)*V(4003) -! B(2479) = dA(1487)/dV(4003) - B(2479) = RCT(1487) -! B(2480) = dA(1488)/dV(4003) - B(2480) = RCT(1488) -! B(2481) = dA(1489)/dV(4003) - B(2481) = RCT(1489) -! B(2482) = dA(1490)/dV(4056) - B(2482) = RCT(1490)*V(5256) -! B(2483) = dA(1490)/dV(5256) - B(2483) = RCT(1490)*V(4056) -! B(2484) = dA(1491)/dV(4056) - B(2484) = RCT(1491)*V(5258) -! B(2485) = dA(1491)/dV(5258) - B(2485) = RCT(1491)*V(4056) -! B(2486) = dA(1492)/dV(4056) - B(2486) = RCT(1492)*V(5250) -! B(2487) = dA(1492)/dV(5250) - B(2487) = RCT(1492)*V(4056) -! B(2488) = dA(1493)/dV(4056) - B(2488) = RCT(1493)*V(5250) -! B(2489) = dA(1493)/dV(5250) - B(2489) = RCT(1493)*V(4056) -! B(2490) = dA(1494)/dV(4056) - B(2490) = RCT(1494) -! B(2491) = dA(1495)/dV(4056) - B(2491) = RCT(1495) -! B(2492) = dA(1496)/dV(3131) - B(2492) = RCT(1496)*V(5256) -! B(2493) = dA(1496)/dV(5256) - B(2493) = RCT(1496)*V(3131) -! B(2494) = dA(1497)/dV(3131) - B(2494) = RCT(1497)*V(5256) -! B(2495) = dA(1497)/dV(5256) - B(2495) = RCT(1497)*V(3131) -! B(2496) = dA(1498)/dV(3131) - B(2496) = RCT(1498)*V(5256) -! B(2497) = dA(1498)/dV(5256) - B(2497) = RCT(1498)*V(3131) -! B(2498) = dA(1499)/dV(3131) - B(2498) = RCT(1499)*V(5250) -! B(2499) = dA(1499)/dV(5250) - B(2499) = RCT(1499)*V(3131) -! B(2500) = dA(1500)/dV(3131) - B(2500) = RCT(1500)*V(5250) -! B(2501) = dA(1500)/dV(5250) - B(2501) = RCT(1500)*V(3131) -! B(2502) = dA(1501)/dV(3131) - B(2502) = RCT(1501)*V(5250) -! B(2503) = dA(1501)/dV(5250) - B(2503) = RCT(1501)*V(3131) -! B(2504) = dA(1502)/dV(3507) - B(2504) = RCT(1502)*V(5255) -! B(2505) = dA(1502)/dV(5255) - B(2505) = RCT(1502)*V(3507) -! B(2506) = dA(1503)/dV(3507) - B(2506) = RCT(1503)*V(5252) -! B(2507) = dA(1503)/dV(5252) - B(2507) = RCT(1503)*V(3507) -! B(2508) = dA(1504)/dV(3507) - B(2508) = RCT(1504)*V(5252) -! B(2509) = dA(1504)/dV(5252) - B(2509) = RCT(1504)*V(3507) -! B(2510) = dA(1505)/dV(3507) - B(2510) = RCT(1505)*V(5256) -! B(2511) = dA(1505)/dV(5256) - B(2511) = RCT(1505)*V(3507) -! B(2512) = dA(1506)/dV(3507) - B(2512) = RCT(1506) -! B(2513) = dA(1507)/dV(3507) - B(2513) = RCT(1507) -! B(2514) = dA(1508)/dV(3507) - B(2514) = RCT(1508) -! B(2515) = dA(1509)/dV(4529) - B(2515) = RCT(1509)*V(5255) -! B(2516) = dA(1509)/dV(5255) - B(2516) = RCT(1509)*V(4529) -! B(2517) = dA(1510)/dV(4529) - B(2517) = RCT(1510)*V(5252) -! B(2518) = dA(1510)/dV(5252) - B(2518) = RCT(1510)*V(4529) -! B(2519) = dA(1511)/dV(4529) - B(2519) = RCT(1511)*V(5252) -! B(2520) = dA(1511)/dV(5252) - B(2520) = RCT(1511)*V(4529) -! B(2521) = dA(1512)/dV(4529) - B(2521) = RCT(1512)*V(5256) -! B(2522) = dA(1512)/dV(5256) - B(2522) = RCT(1512)*V(4529) -! B(2523) = dA(1513)/dV(4529) - B(2523) = RCT(1513) -! B(2524) = dA(1514)/dV(4529) - B(2524) = RCT(1514) -! B(2525) = dA(1515)/dV(4083) - B(2525) = RCT(1515)*V(5256) -! B(2526) = dA(1515)/dV(5256) - B(2526) = RCT(1515)*V(4083) -! B(2527) = dA(1516)/dV(4083) - B(2527) = RCT(1516)*V(5258) -! B(2528) = dA(1516)/dV(5258) - B(2528) = RCT(1516)*V(4083) -! B(2529) = dA(1517)/dV(4083) - B(2529) = RCT(1517)*V(5250) -! B(2530) = dA(1517)/dV(5250) - B(2530) = RCT(1517)*V(4083) -! B(2531) = dA(1518)/dV(4083) - B(2531) = RCT(1518)*V(5250) -! B(2532) = dA(1518)/dV(5250) - B(2532) = RCT(1518)*V(4083) -! B(2533) = dA(1519)/dV(4083) - B(2533) = RCT(1519) -! B(2534) = dA(1520)/dV(4083) - B(2534) = RCT(1520) -! B(2535) = dA(1521)/dV(3135) - B(2535) = RCT(1521)*V(5256) -! B(2536) = dA(1521)/dV(5256) - B(2536) = RCT(1521)*V(3135) -! B(2537) = dA(1522)/dV(3135) - B(2537) = RCT(1522)*V(5256) -! B(2538) = dA(1522)/dV(5256) - B(2538) = RCT(1522)*V(3135) -! B(2539) = dA(1523)/dV(3135) - B(2539) = RCT(1523)*V(5256) -! B(2540) = dA(1523)/dV(5256) - B(2540) = RCT(1523)*V(3135) -! B(2541) = dA(1524)/dV(3135) - B(2541) = RCT(1524)*V(5250) -! B(2542) = dA(1524)/dV(5250) - B(2542) = RCT(1524)*V(3135) -! B(2543) = dA(1525)/dV(3135) - B(2543) = RCT(1525)*V(5250) -! B(2544) = dA(1525)/dV(5250) - B(2544) = RCT(1525)*V(3135) -! B(2545) = dA(1526)/dV(3135) - B(2545) = RCT(1526)*V(5250) -! B(2546) = dA(1526)/dV(5250) - B(2546) = RCT(1526)*V(3135) -! B(2547) = dA(1527)/dV(3481) - B(2547) = RCT(1527)*V(5255) -! B(2548) = dA(1527)/dV(5255) - B(2548) = RCT(1527)*V(3481) -! B(2549) = dA(1528)/dV(3481) - B(2549) = RCT(1528)*V(5252) -! B(2550) = dA(1528)/dV(5252) - B(2550) = RCT(1528)*V(3481) -! B(2551) = dA(1529)/dV(3481) - B(2551) = RCT(1529)*V(5252) -! B(2552) = dA(1529)/dV(5252) - B(2552) = RCT(1529)*V(3481) -! B(2553) = dA(1530)/dV(3481) - B(2553) = RCT(1530)*V(5256) -! B(2554) = dA(1530)/dV(5256) - B(2554) = RCT(1530)*V(3481) -! B(2555) = dA(1531)/dV(3481) - B(2555) = RCT(1531) -! B(2556) = dA(1532)/dV(3481) - B(2556) = RCT(1532) -! B(2557) = dA(1533)/dV(3481) - B(2557) = RCT(1533) -! B(2558) = dA(1534)/dV(3136) - B(2558) = RCT(1534)*V(5256) -! B(2559) = dA(1534)/dV(5256) - B(2559) = RCT(1534)*V(3136) -! B(2560) = dA(1535)/dV(3136) - B(2560) = RCT(1535)*V(5256) -! B(2561) = dA(1535)/dV(5256) - B(2561) = RCT(1535)*V(3136) -! B(2562) = dA(1536)/dV(3136) - B(2562) = RCT(1536)*V(5256) -! B(2563) = dA(1536)/dV(5256) - B(2563) = RCT(1536)*V(3136) -! B(2564) = dA(1537)/dV(3136) - B(2564) = RCT(1537)*V(5250) -! B(2565) = dA(1537)/dV(5250) - B(2565) = RCT(1537)*V(3136) -! B(2566) = dA(1538)/dV(3136) - B(2566) = RCT(1538)*V(5250) -! B(2567) = dA(1538)/dV(5250) - B(2567) = RCT(1538)*V(3136) -! B(2568) = dA(1539)/dV(3136) - B(2568) = RCT(1539)*V(5250) -! B(2569) = dA(1539)/dV(5250) - B(2569) = RCT(1539)*V(3136) -! B(2570) = dA(1540)/dV(3811) - B(2570) = RCT(1540)*V(5255) -! B(2571) = dA(1540)/dV(5255) - B(2571) = RCT(1540)*V(3811) -! B(2572) = dA(1541)/dV(3811) - B(2572) = RCT(1541)*V(5252) -! B(2573) = dA(1541)/dV(5252) - B(2573) = RCT(1541)*V(3811) -! B(2574) = dA(1542)/dV(3811) - B(2574) = RCT(1542)*V(5252) -! B(2575) = dA(1542)/dV(5252) - B(2575) = RCT(1542)*V(3811) -! B(2576) = dA(1543)/dV(3811) - B(2576) = RCT(1543)*V(5256) -! B(2577) = dA(1543)/dV(5256) - B(2577) = RCT(1543)*V(3811) -! B(2578) = dA(1544)/dV(3811) - B(2578) = RCT(1544) -! B(2579) = dA(1545)/dV(3811) - B(2579) = RCT(1545) -! B(2580) = dA(1546)/dV(3811) - B(2580) = RCT(1546) -! B(2581) = dA(1547)/dV(4032) - B(2581) = RCT(1547)*V(5256) -! B(2582) = dA(1547)/dV(5256) - B(2582) = RCT(1547)*V(4032) -! B(2583) = dA(1548)/dV(4032) - B(2583) = RCT(1548)*V(5258) -! B(2584) = dA(1548)/dV(5258) - B(2584) = RCT(1548)*V(4032) -! B(2585) = dA(1549)/dV(4032) - B(2585) = RCT(1549)*V(5250) -! B(2586) = dA(1549)/dV(5250) - B(2586) = RCT(1549)*V(4032) -! B(2587) = dA(1550)/dV(4032) - B(2587) = RCT(1550)*V(5250) -! B(2588) = dA(1550)/dV(5250) - B(2588) = RCT(1550)*V(4032) -! B(2589) = dA(1551)/dV(4032) - B(2589) = RCT(1551) -! B(2590) = dA(1552)/dV(4032) - B(2590) = RCT(1552) -! B(2591) = dA(1553)/dV(3807) - B(2591) = RCT(1553)*V(5255) -! B(2592) = dA(1553)/dV(5255) - B(2592) = RCT(1553)*V(3807) -! B(2593) = dA(1554)/dV(3807) - B(2593) = RCT(1554)*V(5252) -! B(2594) = dA(1554)/dV(5252) - B(2594) = RCT(1554)*V(3807) -! B(2595) = dA(1555)/dV(3807) - B(2595) = RCT(1555)*V(5252) -! B(2596) = dA(1555)/dV(5252) - B(2596) = RCT(1555)*V(3807) -! B(2597) = dA(1556)/dV(3807) - B(2597) = RCT(1556)*V(5256) -! B(2598) = dA(1556)/dV(5256) - B(2598) = RCT(1556)*V(3807) -! B(2599) = dA(1557)/dV(3807) - B(2599) = RCT(1557) -! B(2600) = dA(1558)/dV(3807) - B(2600) = RCT(1558) -! B(2601) = dA(1559)/dV(3807) - B(2601) = RCT(1559) -! B(2602) = dA(1560)/dV(3149) - B(2602) = RCT(1560)*V(5256) -! B(2603) = dA(1560)/dV(5256) - B(2603) = RCT(1560)*V(3149) -! B(2604) = dA(1561)/dV(3149) - B(2604) = RCT(1561)*V(5256) -! B(2605) = dA(1561)/dV(5256) - B(2605) = RCT(1561)*V(3149) -! B(2606) = dA(1562)/dV(3149) - B(2606) = RCT(1562)*V(5256) -! B(2607) = dA(1562)/dV(5256) - B(2607) = RCT(1562)*V(3149) -! B(2608) = dA(1563)/dV(3149) - B(2608) = RCT(1563)*V(5250) -! B(2609) = dA(1563)/dV(5250) - B(2609) = RCT(1563)*V(3149) -! B(2610) = dA(1564)/dV(3149) - B(2610) = RCT(1564)*V(5250) -! B(2611) = dA(1564)/dV(5250) - B(2611) = RCT(1564)*V(3149) -! B(2612) = dA(1565)/dV(3149) - B(2612) = RCT(1565)*V(5250) -! B(2613) = dA(1565)/dV(5250) - B(2613) = RCT(1565)*V(3149) -! B(2614) = dA(1566)/dV(3804) - B(2614) = RCT(1566)*V(5255) -! B(2615) = dA(1566)/dV(5255) - B(2615) = RCT(1566)*V(3804) -! B(2616) = dA(1567)/dV(3804) - B(2616) = RCT(1567)*V(5252) -! B(2617) = dA(1567)/dV(5252) - B(2617) = RCT(1567)*V(3804) -! B(2618) = dA(1568)/dV(3804) - B(2618) = RCT(1568)*V(5252) -! B(2619) = dA(1568)/dV(5252) - B(2619) = RCT(1568)*V(3804) -! B(2620) = dA(1569)/dV(3804) - B(2620) = RCT(1569)*V(5256) -! B(2621) = dA(1569)/dV(5256) - B(2621) = RCT(1569)*V(3804) -! B(2622) = dA(1570)/dV(3804) - B(2622) = RCT(1570) -! B(2623) = dA(1571)/dV(3804) - B(2623) = RCT(1571) -! B(2624) = dA(1572)/dV(3804) - B(2624) = RCT(1572) -! B(2625) = dA(1573)/dV(4094) - B(2625) = RCT(1573)*V(5256) -! B(2626) = dA(1573)/dV(5256) - B(2626) = RCT(1573)*V(4094) -! B(2627) = dA(1574)/dV(4094) - B(2627) = RCT(1574)*V(5258) -! B(2628) = dA(1574)/dV(5258) - B(2628) = RCT(1574)*V(4094) -! B(2629) = dA(1575)/dV(4094) - B(2629) = RCT(1575)*V(5250) -! B(2630) = dA(1575)/dV(5250) - B(2630) = RCT(1575)*V(4094) -! B(2631) = dA(1576)/dV(4094) - B(2631) = RCT(1576)*V(5250) -! B(2632) = dA(1576)/dV(5250) - B(2632) = RCT(1576)*V(4094) -! B(2633) = dA(1577)/dV(4094) - B(2633) = RCT(1577) -! B(2634) = dA(1578)/dV(4094) - B(2634) = RCT(1578) -! B(2635) = dA(1579)/dV(4068) - B(2635) = RCT(1579)*V(5255) -! B(2636) = dA(1579)/dV(5255) - B(2636) = RCT(1579)*V(4068) -! B(2637) = dA(1580)/dV(4068) - B(2637) = RCT(1580)*V(5252) -! B(2638) = dA(1580)/dV(5252) - B(2638) = RCT(1580)*V(4068) -! B(2639) = dA(1581)/dV(4068) - B(2639) = RCT(1581)*V(5252) -! B(2640) = dA(1581)/dV(5252) - B(2640) = RCT(1581)*V(4068) -! B(2641) = dA(1582)/dV(4068) - B(2641) = RCT(1582)*V(5256) -! B(2642) = dA(1582)/dV(5256) - B(2642) = RCT(1582)*V(4068) -! B(2643) = dA(1583)/dV(4068) - B(2643) = RCT(1583) -! B(2644) = dA(1584)/dV(4068) - B(2644) = RCT(1584) -! B(2645) = dA(1585)/dV(3172) - B(2645) = RCT(1585)*V(5256) -! B(2646) = dA(1585)/dV(5256) - B(2646) = RCT(1585)*V(3172) -! B(2647) = dA(1586)/dV(3172) - B(2647) = RCT(1586)*V(5256) -! B(2648) = dA(1586)/dV(5256) - B(2648) = RCT(1586)*V(3172) -! B(2649) = dA(1587)/dV(3172) - B(2649) = RCT(1587)*V(5256) -! B(2650) = dA(1587)/dV(5256) - B(2650) = RCT(1587)*V(3172) -! B(2651) = dA(1588)/dV(3172) - B(2651) = RCT(1588)*V(5250) -! B(2652) = dA(1588)/dV(5250) - B(2652) = RCT(1588)*V(3172) -! B(2653) = dA(1589)/dV(3172) - B(2653) = RCT(1589)*V(5250) -! B(2654) = dA(1589)/dV(5250) - B(2654) = RCT(1589)*V(3172) -! B(2655) = dA(1590)/dV(3172) - B(2655) = RCT(1590)*V(5250) -! B(2656) = dA(1590)/dV(5250) - B(2656) = RCT(1590)*V(3172) -! B(2657) = dA(1591)/dV(3794) - B(2657) = RCT(1591)*V(5255) -! B(2658) = dA(1591)/dV(5255) - B(2658) = RCT(1591)*V(3794) -! B(2659) = dA(1592)/dV(3794) - B(2659) = RCT(1592)*V(5252) -! B(2660) = dA(1592)/dV(5252) - B(2660) = RCT(1592)*V(3794) -! B(2661) = dA(1593)/dV(3794) - B(2661) = RCT(1593)*V(5252) -! B(2662) = dA(1593)/dV(5252) - B(2662) = RCT(1593)*V(3794) -! B(2663) = dA(1594)/dV(3794) - B(2663) = RCT(1594)*V(5256) -! B(2664) = dA(1594)/dV(5256) - B(2664) = RCT(1594)*V(3794) -! B(2665) = dA(1595)/dV(3794) - B(2665) = RCT(1595) -! B(2666) = dA(1596)/dV(3794) - B(2666) = RCT(1596) -! B(2667) = dA(1597)/dV(3794) - B(2667) = RCT(1597) -! B(2668) = dA(1598)/dV(4093) - B(2668) = RCT(1598)*V(5256) -! B(2669) = dA(1598)/dV(5256) - B(2669) = RCT(1598)*V(4093) -! B(2670) = dA(1599)/dV(4093) - B(2670) = RCT(1599)*V(5258) -! B(2671) = dA(1599)/dV(5258) - B(2671) = RCT(1599)*V(4093) -! B(2672) = dA(1600)/dV(4093) - B(2672) = RCT(1600)*V(5250) -! B(2673) = dA(1600)/dV(5250) - B(2673) = RCT(1600)*V(4093) -! B(2674) = dA(1601)/dV(4093) - B(2674) = RCT(1601)*V(5250) -! B(2675) = dA(1601)/dV(5250) - B(2675) = RCT(1601)*V(4093) -! B(2676) = dA(1602)/dV(4093) - B(2676) = RCT(1602) -! B(2677) = dA(1603)/dV(4093) - B(2677) = RCT(1603) -! B(2678) = dA(1604)/dV(3521) - B(2678) = RCT(1604)*V(5255) -! B(2679) = dA(1604)/dV(5255) - B(2679) = RCT(1604)*V(3521) -! B(2680) = dA(1605)/dV(3521) - B(2680) = RCT(1605)*V(5252) -! B(2681) = dA(1605)/dV(5252) - B(2681) = RCT(1605)*V(3521) -! B(2682) = dA(1606)/dV(3521) - B(2682) = RCT(1606)*V(5252) -! B(2683) = dA(1606)/dV(5252) - B(2683) = RCT(1606)*V(3521) -! B(2684) = dA(1607)/dV(3521) - B(2684) = RCT(1607)*V(5256) -! B(2685) = dA(1607)/dV(5256) - B(2685) = RCT(1607)*V(3521) -! B(2686) = dA(1608)/dV(3521) - B(2686) = RCT(1608) -! B(2687) = dA(1609)/dV(3521) - B(2687) = RCT(1609) -! B(2688) = dA(1610)/dV(3521) - B(2688) = RCT(1610) -! B(2689) = dA(1611)/dV(3180) - B(2689) = RCT(1611)*V(5256) -! B(2690) = dA(1611)/dV(5256) - B(2690) = RCT(1611)*V(3180) -! B(2691) = dA(1612)/dV(3180) - B(2691) = RCT(1612)*V(5256) -! B(2692) = dA(1612)/dV(5256) - B(2692) = RCT(1612)*V(3180) -! B(2693) = dA(1613)/dV(3180) - B(2693) = RCT(1613)*V(5256) -! B(2694) = dA(1613)/dV(5256) - B(2694) = RCT(1613)*V(3180) -! B(2695) = dA(1614)/dV(3180) - B(2695) = RCT(1614)*V(5250) -! B(2696) = dA(1614)/dV(5250) - B(2696) = RCT(1614)*V(3180) -! B(2697) = dA(1615)/dV(3180) - B(2697) = RCT(1615)*V(5250) -! B(2698) = dA(1615)/dV(5250) - B(2698) = RCT(1615)*V(3180) -! B(2699) = dA(1616)/dV(3180) - B(2699) = RCT(1616)*V(5250) -! B(2700) = dA(1616)/dV(5250) - B(2700) = RCT(1616)*V(3180) -! B(2701) = dA(1617)/dV(3803) - B(2701) = RCT(1617)*V(5255) -! B(2702) = dA(1617)/dV(5255) - B(2702) = RCT(1617)*V(3803) -! B(2703) = dA(1618)/dV(3803) - B(2703) = RCT(1618)*V(5252) -! B(2704) = dA(1618)/dV(5252) - B(2704) = RCT(1618)*V(3803) -! B(2705) = dA(1619)/dV(3803) - B(2705) = RCT(1619)*V(5252) -! B(2706) = dA(1619)/dV(5252) - B(2706) = RCT(1619)*V(3803) -! B(2707) = dA(1620)/dV(3803) - B(2707) = RCT(1620)*V(5256) -! B(2708) = dA(1620)/dV(5256) - B(2708) = RCT(1620)*V(3803) -! B(2709) = dA(1621)/dV(3803) - B(2709) = RCT(1621) -! B(2710) = dA(1622)/dV(3803) - B(2710) = RCT(1622) -! B(2711) = dA(1623)/dV(3803) - B(2711) = RCT(1623) -! B(2712) = dA(1624)/dV(3622) - B(2712) = RCT(1624)*V(5258) -! B(2713) = dA(1624)/dV(5258) - B(2713) = RCT(1624)*V(3622) -! B(2714) = dA(1625)/dV(3622) - B(2714) = RCT(1625)*V(5250) -! B(2715) = dA(1625)/dV(5250) - B(2715) = RCT(1625)*V(3622) -! B(2716) = dA(1626)/dV(3622) - B(2716) = RCT(1626) -! B(2717) = dA(1627)/dV(3622) - B(2717) = RCT(1627) -! B(2718) = dA(1628)/dV(3525) - B(2718) = RCT(1628)*V(5255) -! B(2719) = dA(1628)/dV(5255) - B(2719) = RCT(1628)*V(3525) -! B(2720) = dA(1629)/dV(3525) - B(2720) = RCT(1629)*V(5252) -! B(2721) = dA(1629)/dV(5252) - B(2721) = RCT(1629)*V(3525) -! B(2722) = dA(1630)/dV(3525) - B(2722) = RCT(1630)*V(5252) -! B(2723) = dA(1630)/dV(5252) - B(2723) = RCT(1630)*V(3525) -! B(2724) = dA(1631)/dV(3525) - B(2724) = RCT(1631)*V(5256) -! B(2725) = dA(1631)/dV(5256) - B(2725) = RCT(1631)*V(3525) -! B(2726) = dA(1632)/dV(3525) - B(2726) = RCT(1632) -! B(2727) = dA(1633)/dV(3525) - B(2727) = RCT(1633) -! B(2728) = dA(1634)/dV(3525) - B(2728) = RCT(1634) -! B(2729) = dA(1635)/dV(4133) - B(2729) = RCT(1635)*V(5255) -! B(2730) = dA(1635)/dV(5255) - B(2730) = RCT(1635)*V(4133) -! B(2731) = dA(1636)/dV(4133) - B(2731) = RCT(1636)*V(5252) -! B(2732) = dA(1636)/dV(5252) - B(2732) = RCT(1636)*V(4133) -! B(2733) = dA(1637)/dV(4133) - B(2733) = RCT(1637)*V(5252) -! B(2734) = dA(1637)/dV(5252) - B(2734) = RCT(1637)*V(4133) -! B(2735) = dA(1638)/dV(4133) - B(2735) = RCT(1638)*V(5256) -! B(2736) = dA(1638)/dV(5256) - B(2736) = RCT(1638)*V(4133) -! B(2737) = dA(1639)/dV(4133) - B(2737) = RCT(1639) -! B(2738) = dA(1640)/dV(4133) - B(2738) = RCT(1640) -! B(2739) = dA(1641)/dV(3139) - B(2739) = RCT(1641)*V(5256) -! B(2740) = dA(1641)/dV(5256) - B(2740) = RCT(1641)*V(3139) -! B(2741) = dA(1642)/dV(3139) - B(2741) = RCT(1642)*V(5256) -! B(2742) = dA(1642)/dV(5256) - B(2742) = RCT(1642)*V(3139) -! B(2743) = dA(1643)/dV(3139) - B(2743) = RCT(1643)*V(5256) -! B(2744) = dA(1643)/dV(5256) - B(2744) = RCT(1643)*V(3139) -! B(2745) = dA(1644)/dV(3139) - B(2745) = RCT(1644)*V(5250) -! B(2746) = dA(1644)/dV(5250) - B(2746) = RCT(1644)*V(3139) -! B(2747) = dA(1645)/dV(3139) - B(2747) = RCT(1645)*V(5250) -! B(2748) = dA(1645)/dV(5250) - B(2748) = RCT(1645)*V(3139) -! B(2749) = dA(1646)/dV(3139) - B(2749) = RCT(1646)*V(5250) -! B(2750) = dA(1646)/dV(5250) - B(2750) = RCT(1646)*V(3139) -! B(2751) = dA(1647)/dV(4027) - B(2751) = RCT(1647)*V(5256) -! B(2752) = dA(1647)/dV(5256) - B(2752) = RCT(1647)*V(4027) -! B(2753) = dA(1648)/dV(4027) - B(2753) = RCT(1648)*V(5258) -! B(2754) = dA(1648)/dV(5258) - B(2754) = RCT(1648)*V(4027) -! B(2755) = dA(1649)/dV(4027) - B(2755) = RCT(1649)*V(5250) -! B(2756) = dA(1649)/dV(5250) - B(2756) = RCT(1649)*V(4027) -! B(2757) = dA(1650)/dV(4027) - B(2757) = RCT(1650)*V(5250) -! B(2758) = dA(1650)/dV(5250) - B(2758) = RCT(1650)*V(4027) -! B(2759) = dA(1651)/dV(4027) - B(2759) = RCT(1651) -! B(2760) = dA(1652)/dV(4027) - B(2760) = RCT(1652) -! B(2761) = dA(1653)/dV(3492) - B(2761) = RCT(1653)*V(5255) -! B(2762) = dA(1653)/dV(5255) - B(2762) = RCT(1653)*V(3492) -! B(2763) = dA(1654)/dV(3492) - B(2763) = RCT(1654)*V(5252) -! B(2764) = dA(1654)/dV(5252) - B(2764) = RCT(1654)*V(3492) -! B(2765) = dA(1655)/dV(3492) - B(2765) = RCT(1655)*V(5252) -! B(2766) = dA(1655)/dV(5252) - B(2766) = RCT(1655)*V(3492) -! B(2767) = dA(1656)/dV(3492) - B(2767) = RCT(1656)*V(5256) -! B(2768) = dA(1656)/dV(5256) - B(2768) = RCT(1656)*V(3492) -! B(2769) = dA(1657)/dV(3492) - B(2769) = RCT(1657) -! B(2770) = dA(1658)/dV(3492) - B(2770) = RCT(1658) -! B(2771) = dA(1659)/dV(3492) - B(2771) = RCT(1659) -! B(2772) = dA(1660)/dV(4055) - B(2772) = RCT(1660)*V(5255) -! B(2773) = dA(1660)/dV(5255) - B(2773) = RCT(1660)*V(4055) -! B(2774) = dA(1661)/dV(4055) - B(2774) = RCT(1661)*V(5252) -! B(2775) = dA(1661)/dV(5252) - B(2775) = RCT(1661)*V(4055) -! B(2776) = dA(1662)/dV(4055) - B(2776) = RCT(1662)*V(5252) -! B(2777) = dA(1662)/dV(5252) - B(2777) = RCT(1662)*V(4055) -! B(2778) = dA(1663)/dV(4055) - B(2778) = RCT(1663)*V(5256) -! B(2779) = dA(1663)/dV(5256) - B(2779) = RCT(1663)*V(4055) -! B(2780) = dA(1664)/dV(4055) - B(2780) = RCT(1664) -! B(2781) = dA(1665)/dV(4055) - B(2781) = RCT(1665) -! B(2782) = dA(1666)/dV(4055) - B(2782) = RCT(1666) -! B(2783) = dA(1667)/dV(3263) - B(2783) = RCT(1667)*V(5256) -! B(2784) = dA(1667)/dV(5256) - B(2784) = RCT(1667)*V(3263) -! B(2785) = dA(1668)/dV(3263) - B(2785) = RCT(1668)*V(5256) -! B(2786) = dA(1668)/dV(5256) - B(2786) = RCT(1668)*V(3263) -! B(2787) = dA(1669)/dV(3263) - B(2787) = RCT(1669)*V(5250) -! B(2788) = dA(1669)/dV(5250) - B(2788) = RCT(1669)*V(3263) -! B(2789) = dA(1670)/dV(3263) - B(2789) = RCT(1670)*V(5250) -! B(2790) = dA(1670)/dV(5250) - B(2790) = RCT(1670)*V(3263) -! B(2791) = dA(1671)/dV(3996) - B(2791) = RCT(1671)*V(5256) -! B(2792) = dA(1671)/dV(5256) - B(2792) = RCT(1671)*V(3996) -! B(2793) = dA(1672)/dV(3996) - B(2793) = RCT(1672)*V(5258) -! B(2794) = dA(1672)/dV(5258) - B(2794) = RCT(1672)*V(3996) -! B(2795) = dA(1673)/dV(3996) - B(2795) = RCT(1673)*V(5250) -! B(2796) = dA(1673)/dV(5250) - B(2796) = RCT(1673)*V(3996) -! B(2797) = dA(1674)/dV(3996) - B(2797) = RCT(1674)*V(5250) -! B(2798) = dA(1674)/dV(5250) - B(2798) = RCT(1674)*V(3996) -! B(2799) = dA(1675)/dV(3996) - B(2799) = RCT(1675) -! B(2800) = dA(1676)/dV(3996) - B(2800) = RCT(1676) -! B(2801) = dA(1677)/dV(3797) - B(2801) = RCT(1677)*V(5255) -! B(2802) = dA(1677)/dV(5255) - B(2802) = RCT(1677)*V(3797) -! B(2803) = dA(1678)/dV(3797) - B(2803) = RCT(1678)*V(5252) -! B(2804) = dA(1678)/dV(5252) - B(2804) = RCT(1678)*V(3797) -! B(2805) = dA(1679)/dV(3797) - B(2805) = RCT(1679)*V(5252) -! B(2806) = dA(1679)/dV(5252) - B(2806) = RCT(1679)*V(3797) -! B(2807) = dA(1680)/dV(3797) - B(2807) = RCT(1680)*V(5256) -! B(2808) = dA(1680)/dV(5256) - B(2808) = RCT(1680)*V(3797) -! B(2809) = dA(1681)/dV(3797) - B(2809) = RCT(1681) -! B(2810) = dA(1682)/dV(3797) - B(2810) = RCT(1682) -! B(2811) = dA(1683)/dV(3797) - B(2811) = RCT(1683) -! B(2812) = dA(1684)/dV(4074) - B(2812) = RCT(1684)*V(5255) -! B(2813) = dA(1684)/dV(5255) - B(2813) = RCT(1684)*V(4074) -! B(2814) = dA(1685)/dV(4074) - B(2814) = RCT(1685)*V(5252) -! B(2815) = dA(1685)/dV(5252) - B(2815) = RCT(1685)*V(4074) -! B(2816) = dA(1686)/dV(4074) - B(2816) = RCT(1686)*V(5252) -! B(2817) = dA(1686)/dV(5252) - B(2817) = RCT(1686)*V(4074) -! B(2818) = dA(1687)/dV(4074) - B(2818) = RCT(1687)*V(5256) -! B(2819) = dA(1687)/dV(5256) - B(2819) = RCT(1687)*V(4074) -! B(2820) = dA(1688)/dV(4074) - B(2820) = RCT(1688) -! B(2821) = dA(1689)/dV(4074) - B(2821) = RCT(1689) -! B(2822) = dA(1690)/dV(3833) - B(2822) = RCT(1690)*V(5256) -! B(2823) = dA(1690)/dV(5256) - B(2823) = RCT(1690)*V(3833) -! B(2824) = dA(1691)/dV(3833) - B(2824) = RCT(1691)*V(5258) -! B(2825) = dA(1691)/dV(5258) - B(2825) = RCT(1691)*V(3833) -! B(2826) = dA(1692)/dV(3833) - B(2826) = RCT(1692)*V(5250) -! B(2827) = dA(1692)/dV(5250) - B(2827) = RCT(1692)*V(3833) -! B(2828) = dA(1693)/dV(3833) - B(2828) = RCT(1693)*V(5250) -! B(2829) = dA(1693)/dV(5250) - B(2829) = RCT(1693)*V(3833) -! B(2830) = dA(1694)/dV(3833) - B(2830) = RCT(1694) -! B(2831) = dA(1695)/dV(3833) - B(2831) = RCT(1695) -! B(2832) = dA(1696)/dV(3193) - B(2832) = RCT(1696)*V(5256) -! B(2833) = dA(1696)/dV(5256) - B(2833) = RCT(1696)*V(3193) -! B(2834) = dA(1697)/dV(3193) - B(2834) = RCT(1697)*V(5256) -! B(2835) = dA(1697)/dV(5256) - B(2835) = RCT(1697)*V(3193) -! B(2836) = dA(1698)/dV(3193) - B(2836) = RCT(1698)*V(5256) -! B(2837) = dA(1698)/dV(5256) - B(2837) = RCT(1698)*V(3193) -! B(2838) = dA(1699)/dV(3193) - B(2838) = RCT(1699)*V(5250) -! B(2839) = dA(1699)/dV(5250) - B(2839) = RCT(1699)*V(3193) -! B(2840) = dA(1700)/dV(3193) - B(2840) = RCT(1700)*V(5250) -! B(2841) = dA(1700)/dV(5250) - B(2841) = RCT(1700)*V(3193) -! B(2842) = dA(1701)/dV(3193) - B(2842) = RCT(1701)*V(5250) -! B(2843) = dA(1701)/dV(5250) - B(2843) = RCT(1701)*V(3193) -! B(2844) = dA(1702)/dV(3798) - B(2844) = RCT(1702)*V(5255) -! B(2845) = dA(1702)/dV(5255) - B(2845) = RCT(1702)*V(3798) -! B(2846) = dA(1703)/dV(3798) - B(2846) = RCT(1703)*V(5252) -! B(2847) = dA(1703)/dV(5252) - B(2847) = RCT(1703)*V(3798) -! B(2848) = dA(1704)/dV(3798) - B(2848) = RCT(1704)*V(5252) -! B(2849) = dA(1704)/dV(5252) - B(2849) = RCT(1704)*V(3798) -! B(2850) = dA(1705)/dV(3798) - B(2850) = RCT(1705)*V(5256) -! B(2851) = dA(1705)/dV(5256) - B(2851) = RCT(1705)*V(3798) -! B(2852) = dA(1706)/dV(3798) - B(2852) = RCT(1706) -! B(2853) = dA(1707)/dV(3798) - B(2853) = RCT(1707) -! B(2854) = dA(1708)/dV(3798) - B(2854) = RCT(1708) -! B(2855) = dA(1709)/dV(4080) - B(2855) = RCT(1709)*V(5256) -! B(2856) = dA(1709)/dV(5256) - B(2856) = RCT(1709)*V(4080) -! B(2857) = dA(1710)/dV(4080) - B(2857) = RCT(1710)*V(5258) -! B(2858) = dA(1710)/dV(5258) - B(2858) = RCT(1710)*V(4080) -! B(2859) = dA(1711)/dV(4080) - B(2859) = RCT(1711)*V(5250) -! B(2860) = dA(1711)/dV(5250) - B(2860) = RCT(1711)*V(4080) -! B(2861) = dA(1712)/dV(4080) - B(2861) = RCT(1712)*V(5250) -! B(2862) = dA(1712)/dV(5250) - B(2862) = RCT(1712)*V(4080) -! B(2863) = dA(1713)/dV(4080) - B(2863) = RCT(1713) -! B(2864) = dA(1714)/dV(4080) - B(2864) = RCT(1714) -! B(2865) = dA(1715)/dV(3164) - B(2865) = RCT(1715)*V(5256) -! B(2866) = dA(1715)/dV(5256) - B(2866) = RCT(1715)*V(3164) -! B(2867) = dA(1716)/dV(3164) - B(2867) = RCT(1716)*V(5256) -! B(2868) = dA(1716)/dV(5256) - B(2868) = RCT(1716)*V(3164) -! B(2869) = dA(1717)/dV(3164) - B(2869) = RCT(1717)*V(5256) -! B(2870) = dA(1717)/dV(5256) - B(2870) = RCT(1717)*V(3164) -! B(2871) = dA(1718)/dV(3164) - B(2871) = RCT(1718)*V(5250) -! B(2872) = dA(1718)/dV(5250) - B(2872) = RCT(1718)*V(3164) -! B(2873) = dA(1719)/dV(3164) - B(2873) = RCT(1719)*V(5250) -! B(2874) = dA(1719)/dV(5250) - B(2874) = RCT(1719)*V(3164) -! B(2875) = dA(1720)/dV(3164) - B(2875) = RCT(1720)*V(5250) -! B(2876) = dA(1720)/dV(5250) - B(2876) = RCT(1720)*V(3164) -! B(2877) = dA(1721)/dV(3527) - B(2877) = RCT(1721)*V(5255) -! B(2878) = dA(1721)/dV(5255) - B(2878) = RCT(1721)*V(3527) -! B(2879) = dA(1722)/dV(3527) - B(2879) = RCT(1722)*V(5252) -! B(2880) = dA(1722)/dV(5252) - B(2880) = RCT(1722)*V(3527) -! B(2881) = dA(1723)/dV(3527) - B(2881) = RCT(1723)*V(5252) -! B(2882) = dA(1723)/dV(5252) - B(2882) = RCT(1723)*V(3527) -! B(2883) = dA(1724)/dV(3527) - B(2883) = RCT(1724)*V(5256) -! B(2884) = dA(1724)/dV(5256) - B(2884) = RCT(1724)*V(3527) -! B(2885) = dA(1725)/dV(3527) - B(2885) = RCT(1725) -! B(2886) = dA(1726)/dV(3527) - B(2886) = RCT(1726) -! B(2887) = dA(1727)/dV(4272) - B(2887) = RCT(1727)*V(5256) -! B(2888) = dA(1727)/dV(5256) - B(2888) = RCT(1727)*V(4272) -! B(2889) = dA(1728)/dV(4272) - B(2889) = RCT(1728)*V(5258) -! B(2890) = dA(1728)/dV(5258) - B(2890) = RCT(1728)*V(4272) -! B(2891) = dA(1729)/dV(4272) - B(2891) = RCT(1729)*V(5250) -! B(2892) = dA(1729)/dV(5250) - B(2892) = RCT(1729)*V(4272) -! B(2893) = dA(1730)/dV(4272) - B(2893) = RCT(1730)*V(5250) -! B(2894) = dA(1730)/dV(5250) - B(2894) = RCT(1730)*V(4272) -! B(2895) = dA(1731)/dV(4272) - B(2895) = RCT(1731) -! B(2896) = dA(1732)/dV(4272) - B(2896) = RCT(1732) -! B(2897) = dA(1733)/dV(3130) - B(2897) = RCT(1733)*V(5256) -! B(2898) = dA(1733)/dV(5256) - B(2898) = RCT(1733)*V(3130) -! B(2899) = dA(1734)/dV(3130) - B(2899) = RCT(1734)*V(5256) -! B(2900) = dA(1734)/dV(5256) - B(2900) = RCT(1734)*V(3130) -! B(2901) = dA(1735)/dV(3130) - B(2901) = RCT(1735)*V(5256) -! B(2902) = dA(1735)/dV(5256) - B(2902) = RCT(1735)*V(3130) -! B(2903) = dA(1736)/dV(3130) - B(2903) = RCT(1736)*V(5250) -! B(2904) = dA(1736)/dV(5250) - B(2904) = RCT(1736)*V(3130) -! B(2905) = dA(1737)/dV(3130) - B(2905) = RCT(1737)*V(5250) -! B(2906) = dA(1737)/dV(5250) - B(2906) = RCT(1737)*V(3130) -! B(2907) = dA(1738)/dV(3130) - B(2907) = RCT(1738)*V(5250) -! B(2908) = dA(1738)/dV(5250) - B(2908) = RCT(1738)*V(3130) -! B(2909) = dA(1739)/dV(3819) - B(2909) = RCT(1739)*V(5255) -! B(2910) = dA(1739)/dV(5255) - B(2910) = RCT(1739)*V(3819) -! B(2911) = dA(1740)/dV(3819) - B(2911) = RCT(1740)*V(5252) -! B(2912) = dA(1740)/dV(5252) - B(2912) = RCT(1740)*V(3819) -! B(2913) = dA(1741)/dV(3819) - B(2913) = RCT(1741)*V(5252) -! B(2914) = dA(1741)/dV(5252) - B(2914) = RCT(1741)*V(3819) -! B(2915) = dA(1742)/dV(3819) - B(2915) = RCT(1742)*V(5256) -! B(2916) = dA(1742)/dV(5256) - B(2916) = RCT(1742)*V(3819) -! B(2917) = dA(1743)/dV(3819) - B(2917) = RCT(1743) -! B(2918) = dA(1744)/dV(3819) - B(2918) = RCT(1744) -! B(2919) = dA(1745)/dV(3819) - B(2919) = RCT(1745) -! B(2920) = dA(1746)/dV(3817) - B(2920) = RCT(1746)*V(5255) -! B(2921) = dA(1746)/dV(5255) - B(2921) = RCT(1746)*V(3817) -! B(2922) = dA(1747)/dV(3817) - B(2922) = RCT(1747)*V(5252) -! B(2923) = dA(1747)/dV(5252) - B(2923) = RCT(1747)*V(3817) -! B(2924) = dA(1748)/dV(3817) - B(2924) = RCT(1748)*V(5252) -! B(2925) = dA(1748)/dV(5252) - B(2925) = RCT(1748)*V(3817) -! B(2926) = dA(1749)/dV(3817) - B(2926) = RCT(1749)*V(5256) -! B(2927) = dA(1749)/dV(5256) - B(2927) = RCT(1749)*V(3817) -! B(2928) = dA(1750)/dV(3817) - B(2928) = RCT(1750) -! B(2929) = dA(1751)/dV(3817) - B(2929) = RCT(1751) -! B(2930) = dA(1752)/dV(3817) - B(2930) = RCT(1752) -! B(2931) = dA(1753)/dV(4018) - B(2931) = RCT(1753)*V(5256) -! B(2932) = dA(1753)/dV(5256) - B(2932) = RCT(1753)*V(4018) -! B(2933) = dA(1754)/dV(4018) - B(2933) = RCT(1754)*V(5258) -! B(2934) = dA(1754)/dV(5258) - B(2934) = RCT(1754)*V(4018) -! B(2935) = dA(1755)/dV(4018) - B(2935) = RCT(1755)*V(5250) -! B(2936) = dA(1755)/dV(5250) - B(2936) = RCT(1755)*V(4018) -! B(2937) = dA(1756)/dV(4018) - B(2937) = RCT(1756)*V(5250) -! B(2938) = dA(1756)/dV(5250) - B(2938) = RCT(1756)*V(4018) -! B(2939) = dA(1757)/dV(4018) - B(2939) = RCT(1757) -! B(2940) = dA(1758)/dV(4018) - B(2940) = RCT(1758) -! B(2941) = dA(1759)/dV(3244) - B(2941) = RCT(1759)*V(5256) -! B(2942) = dA(1759)/dV(5256) - B(2942) = RCT(1759)*V(3244) -! B(2943) = dA(1760)/dV(3244) - B(2943) = RCT(1760)*V(5256) -! B(2944) = dA(1760)/dV(5256) - B(2944) = RCT(1760)*V(3244) -! B(2945) = dA(1761)/dV(3244) - B(2945) = RCT(1761)*V(5250) -! B(2946) = dA(1761)/dV(5250) - B(2946) = RCT(1761)*V(3244) -! B(2947) = dA(1762)/dV(3244) - B(2947) = RCT(1762)*V(5250) -! B(2948) = dA(1762)/dV(5250) - B(2948) = RCT(1762)*V(3244) -! B(2949) = dA(1763)/dV(3790) - B(2949) = RCT(1763)*V(5255) -! B(2950) = dA(1763)/dV(5255) - B(2950) = RCT(1763)*V(3790) -! B(2951) = dA(1764)/dV(3790) - B(2951) = RCT(1764)*V(5252) -! B(2952) = dA(1764)/dV(5252) - B(2952) = RCT(1764)*V(3790) -! B(2953) = dA(1765)/dV(3790) - B(2953) = RCT(1765)*V(5252) -! B(2954) = dA(1765)/dV(5252) - B(2954) = RCT(1765)*V(3790) -! B(2955) = dA(1766)/dV(3790) - B(2955) = RCT(1766)*V(5256) -! B(2956) = dA(1766)/dV(5256) - B(2956) = RCT(1766)*V(3790) -! B(2957) = dA(1767)/dV(3790) - B(2957) = RCT(1767) -! B(2958) = dA(1768)/dV(3790) - B(2958) = RCT(1768) -! B(2959) = dA(1769)/dV(3790) - B(2959) = RCT(1769) -! B(2960) = dA(1770)/dV(3219) - B(2960) = RCT(1770)*V(5256) -! B(2961) = dA(1770)/dV(5256) - B(2961) = RCT(1770)*V(3219) -! B(2962) = dA(1771)/dV(3219) - B(2962) = RCT(1771)*V(5256) -! B(2963) = dA(1771)/dV(5256) - B(2963) = RCT(1771)*V(3219) -! B(2964) = dA(1772)/dV(3219) - B(2964) = RCT(1772)*V(5250) -! B(2965) = dA(1772)/dV(5250) - B(2965) = RCT(1772)*V(3219) -! B(2966) = dA(1773)/dV(3219) - B(2966) = RCT(1773)*V(5250) -! B(2967) = dA(1773)/dV(5250) - B(2967) = RCT(1773)*V(3219) -! B(2968) = dA(1774)/dV(4167) - B(2968) = RCT(1774)*V(5255) -! B(2969) = dA(1774)/dV(5255) - B(2969) = RCT(1774)*V(4167) -! B(2970) = dA(1775)/dV(4167) - B(2970) = RCT(1775)*V(5252) -! B(2971) = dA(1775)/dV(5252) - B(2971) = RCT(1775)*V(4167) -! B(2972) = dA(1776)/dV(4167) - B(2972) = RCT(1776)*V(5252) -! B(2973) = dA(1776)/dV(5252) - B(2973) = RCT(1776)*V(4167) -! B(2974) = dA(1777)/dV(4167) - B(2974) = RCT(1777)*V(5256) -! B(2975) = dA(1777)/dV(5256) - B(2975) = RCT(1777)*V(4167) -! B(2976) = dA(1778)/dV(4167) - B(2976) = RCT(1778) -! B(2977) = dA(1779)/dV(4167) - B(2977) = RCT(1779) -! B(2978) = dA(1780)/dV(4167) - B(2978) = RCT(1780) -! B(2979) = dA(1781)/dV(4017) - B(2979) = RCT(1781)*V(5256) -! B(2980) = dA(1781)/dV(5256) - B(2980) = RCT(1781)*V(4017) -! B(2981) = dA(1782)/dV(4017) - B(2981) = RCT(1782)*V(5258) -! B(2982) = dA(1782)/dV(5258) - B(2982) = RCT(1782)*V(4017) -! B(2983) = dA(1783)/dV(4017) - B(2983) = RCT(1783)*V(5250) -! B(2984) = dA(1783)/dV(5250) - B(2984) = RCT(1783)*V(4017) -! B(2985) = dA(1784)/dV(4017) - B(2985) = RCT(1784)*V(5250) -! B(2986) = dA(1784)/dV(5250) - B(2986) = RCT(1784)*V(4017) -! B(2987) = dA(1785)/dV(4017) - B(2987) = RCT(1785) -! B(2988) = dA(1786)/dV(4017) - B(2988) = RCT(1786) -! B(2989) = dA(1787)/dV(3866) - B(2989) = RCT(1787)*V(5255) -! B(2990) = dA(1787)/dV(5255) - B(2990) = RCT(1787)*V(3866) -! B(2991) = dA(1788)/dV(3866) - B(2991) = RCT(1788)*V(5252) -! B(2992) = dA(1788)/dV(5252) - B(2992) = RCT(1788)*V(3866) -! B(2993) = dA(1789)/dV(3866) - B(2993) = RCT(1789)*V(5256) -! B(2994) = dA(1789)/dV(5256) - B(2994) = RCT(1789)*V(3866) -! B(2995) = dA(1790)/dV(3866) - B(2995) = RCT(1790) -! B(2996) = dA(1791)/dV(3147) - B(2996) = RCT(1791) -! B(2997) = dA(1792)/dV(3147) - B(2997) = RCT(1792) -! B(2998) = dA(1793)/dV(3147) - B(2998) = RCT(1793) -! B(2999) = dA(1794)/dV(3147) - B(2999) = RCT(1794) -! B(3000) = dA(1795)/dV(3987) - B(3000) = RCT(1795)*V(5255) -! B(3001) = dA(1795)/dV(5255) - B(3001) = RCT(1795)*V(3987) -! B(3002) = dA(1796)/dV(3987) - B(3002) = RCT(1796)*V(5252) -! B(3003) = dA(1796)/dV(5252) - B(3003) = RCT(1796)*V(3987) -! B(3004) = dA(1797)/dV(3987) - B(3004) = RCT(1797)*V(5256) -! B(3005) = dA(1797)/dV(5256) - B(3005) = RCT(1797)*V(3987) -! B(3006) = dA(1798)/dV(3987) - B(3006) = RCT(1798) -! B(3007) = dA(1799)/dV(4622) - B(3007) = RCT(1799)*V(5255) -! B(3008) = dA(1799)/dV(5255) - B(3008) = RCT(1799)*V(4622) -! B(3009) = dA(1800)/dV(4622) - B(3009) = RCT(1800)*V(5255) -! B(3010) = dA(1800)/dV(5255) - B(3010) = RCT(1800)*V(4622) -! B(3011) = dA(1801)/dV(4622) - B(3011) = RCT(1801)*V(5255) -! B(3012) = dA(1801)/dV(5255) - B(3012) = RCT(1801)*V(4622) -! B(3013) = dA(1802)/dV(4622) - B(3013) = RCT(1802)*V(5252) -! B(3014) = dA(1802)/dV(5252) - B(3014) = RCT(1802)*V(4622) -! B(3015) = dA(1803)/dV(4622) - B(3015) = RCT(1803)*V(5253) -! B(3016) = dA(1803)/dV(5253) - B(3016) = RCT(1803)*V(4622) -! B(3017) = dA(1804)/dV(4622) - B(3017) = RCT(1804)*V(5256) -! B(3018) = dA(1804)/dV(5256) - B(3018) = RCT(1804)*V(4622) -! B(3019) = dA(1805)/dV(4622) - B(3019) = RCT(1805) -! B(3020) = dA(1806)/dV(4622) - B(3020) = RCT(1806) -! B(3021) = dA(1807)/dV(4666) - B(3021) = RCT(1807)*V(5255) -! B(3022) = dA(1807)/dV(5255) - B(3022) = RCT(1807)*V(4666) -! B(3023) = dA(1808)/dV(4666) - B(3023) = RCT(1808)*V(5252) -! B(3024) = dA(1808)/dV(5252) - B(3024) = RCT(1808)*V(4666) -! B(3025) = dA(1809)/dV(4666) - B(3025) = RCT(1809)*V(5256) -! B(3026) = dA(1809)/dV(5256) - B(3026) = RCT(1809)*V(4666) -! B(3027) = dA(1810)/dV(4666) - B(3027) = RCT(1810) -! B(3028) = dA(1811)/dV(3636) - B(3028) = RCT(1811)*V(5255) -! B(3029) = dA(1811)/dV(5255) - B(3029) = RCT(1811)*V(3636) -! B(3030) = dA(1812)/dV(3636) - B(3030) = RCT(1812)*V(5252) -! B(3031) = dA(1812)/dV(5252) - B(3031) = RCT(1812)*V(3636) -! B(3032) = dA(1813)/dV(3636) - B(3032) = RCT(1813)*V(5256) -! B(3033) = dA(1813)/dV(5256) - B(3033) = RCT(1813)*V(3636) -! B(3034) = dA(1814)/dV(3636) - B(3034) = RCT(1814) -! B(3035) = dA(1815)/dV(3636) - B(3035) = RCT(1815) -! B(3036) = dA(1816)/dV(3636) - B(3036) = RCT(1816) -! B(3037) = dA(1817)/dV(3658) - B(3037) = RCT(1817)*V(5255) -! B(3038) = dA(1817)/dV(5255) - B(3038) = RCT(1817)*V(3658) -! B(3039) = dA(1818)/dV(3658) - B(3039) = RCT(1818)*V(5252) -! B(3040) = dA(1818)/dV(5252) - B(3040) = RCT(1818)*V(3658) -! B(3041) = dA(1819)/dV(3658) - B(3041) = RCT(1819)*V(5252) -! B(3042) = dA(1819)/dV(5252) - B(3042) = RCT(1819)*V(3658) -! B(3043) = dA(1820)/dV(3658) - B(3043) = RCT(1820)*V(5256) -! B(3044) = dA(1820)/dV(5256) - B(3044) = RCT(1820)*V(3658) -! B(3045) = dA(1821)/dV(3658) - B(3045) = RCT(1821) -! B(3046) = dA(1822)/dV(3658) - B(3046) = RCT(1822) -! B(3047) = dA(1823)/dV(3658) - B(3047) = RCT(1823) -! B(3048) = dA(1824)/dV(686) - B(3048) = RCT(1824) -! B(3049) = dA(1825)/dV(686) - B(3049) = RCT(1825) -! B(3050) = dA(1826)/dV(686) - B(3050) = RCT(1826) -! B(3051) = dA(1827)/dV(1959) - B(3051) = RCT(1827) -! B(3052) = dA(1828)/dV(1959) - B(3052) = RCT(1828) -! B(3053) = dA(1829)/dV(1959) - B(3053) = RCT(1829) -! B(3054) = dA(1830)/dV(1959) - B(3054) = RCT(1830) -! B(3055) = dA(1831)/dV(3670) - B(3055) = RCT(1831)*V(5255) -! B(3056) = dA(1831)/dV(5255) - B(3056) = RCT(1831)*V(3670) -! B(3057) = dA(1832)/dV(3670) - B(3057) = RCT(1832)*V(5252) -! B(3058) = dA(1832)/dV(5252) - B(3058) = RCT(1832)*V(3670) -! B(3059) = dA(1833)/dV(3670) - B(3059) = RCT(1833)*V(5252) -! B(3060) = dA(1833)/dV(5252) - B(3060) = RCT(1833)*V(3670) -! B(3061) = dA(1834)/dV(3670) - B(3061) = RCT(1834)*V(5256) -! B(3062) = dA(1834)/dV(5256) - B(3062) = RCT(1834)*V(3670) -! B(3063) = dA(1835)/dV(3670) - B(3063) = RCT(1835) -! B(3064) = dA(1836)/dV(3670) - B(3064) = RCT(1836) -! B(3065) = dA(1837)/dV(3670) - B(3065) = RCT(1837) -! B(3066) = dA(1838)/dV(4111) - B(3066) = RCT(1838)*V(5255) -! B(3067) = dA(1838)/dV(5255) - B(3067) = RCT(1838)*V(4111) -! B(3068) = dA(1839)/dV(4111) - B(3068) = RCT(1839)*V(5252) -! B(3069) = dA(1839)/dV(5252) - B(3069) = RCT(1839)*V(4111) -! B(3070) = dA(1840)/dV(4111) - B(3070) = RCT(1840)*V(5252) -! B(3071) = dA(1840)/dV(5252) - B(3071) = RCT(1840)*V(4111) -! B(3072) = dA(1841)/dV(4111) - B(3072) = RCT(1841)*V(5256) -! B(3073) = dA(1841)/dV(5256) - B(3073) = RCT(1841)*V(4111) -! B(3074) = dA(1842)/dV(4111) - B(3074) = RCT(1842) -! B(3075) = dA(1843)/dV(4111) - B(3075) = RCT(1843) -! B(3076) = dA(1844)/dV(4111) - B(3076) = RCT(1844) -! B(3077) = dA(1845)/dV(4372) - B(3077) = RCT(1845)*V(5255) -! B(3078) = dA(1845)/dV(5255) - B(3078) = RCT(1845)*V(4372) -! B(3079) = dA(1846)/dV(4372) - B(3079) = RCT(1846)*V(5252) -! B(3080) = dA(1846)/dV(5252) - B(3080) = RCT(1846)*V(4372) -! B(3081) = dA(1847)/dV(4372) - B(3081) = RCT(1847)*V(5252) -! B(3082) = dA(1847)/dV(5252) - B(3082) = RCT(1847)*V(4372) -! B(3083) = dA(1848)/dV(4372) - B(3083) = RCT(1848)*V(5256) -! B(3084) = dA(1848)/dV(5256) - B(3084) = RCT(1848)*V(4372) -! B(3085) = dA(1849)/dV(4372) - B(3085) = RCT(1849) -! B(3086) = dA(1850)/dV(4372) - B(3086) = RCT(1850) -! B(3087) = dA(1851)/dV(4372) - B(3087) = RCT(1851) -! B(3088) = dA(1852)/dV(3634) - B(3088) = RCT(1852)*V(5255) -! B(3089) = dA(1852)/dV(5255) - B(3089) = RCT(1852)*V(3634) -! B(3090) = dA(1853)/dV(3634) - B(3090) = RCT(1853)*V(5252) -! B(3091) = dA(1853)/dV(5252) - B(3091) = RCT(1853)*V(3634) -! B(3092) = dA(1854)/dV(3634) - B(3092) = RCT(1854)*V(5252) -! B(3093) = dA(1854)/dV(5252) - B(3093) = RCT(1854)*V(3634) -! B(3094) = dA(1855)/dV(3634) - B(3094) = RCT(1855)*V(5256) -! B(3095) = dA(1855)/dV(5256) - B(3095) = RCT(1855)*V(3634) -! B(3096) = dA(1856)/dV(3634) - B(3096) = RCT(1856) -! B(3097) = dA(1857)/dV(3634) - B(3097) = RCT(1857) -! B(3098) = dA(1858)/dV(3634) - B(3098) = RCT(1858) -! B(3099) = dA(1859)/dV(685) - B(3099) = RCT(1859) -! B(3100) = dA(1860)/dV(685) - B(3100) = RCT(1860) -! B(3101) = dA(1861)/dV(685) - B(3101) = RCT(1861) -! B(3102) = dA(1862)/dV(5227) - B(3102) = RCT(1862) -! B(3103) = dA(1863)/dV(5227) - B(3103) = RCT(1863) -! B(3104) = dA(1864)/dV(5227) - B(3104) = RCT(1864)*V(5258) -! B(3105) = dA(1864)/dV(5258) - B(3105) = RCT(1864)*V(5227) -! B(3106) = dA(1865)/dV(5227) - B(3106) = RCT(1865)*V(5258) -! B(3107) = dA(1865)/dV(5258) - B(3107) = RCT(1865)*V(5227) -! B(3108) = dA(1866)/dV(5227) - B(3108) = RCT(1866)*V(5250) -! B(3109) = dA(1866)/dV(5250) - B(3109) = RCT(1866)*V(5227) -! B(3110) = dA(1867)/dV(5227) - B(3110) = RCT(1867)*V(5250) -! B(3111) = dA(1867)/dV(5250) - B(3111) = RCT(1867)*V(5227) -! B(3112) = dA(1868)/dV(2476) - B(3112) = RCT(1868) -! B(3113) = dA(1869)/dV(2476) - B(3113) = RCT(1869) -! B(3114) = dA(1870)/dV(2476) - B(3114) = RCT(1870) -! B(3115) = dA(1871)/dV(2476) - B(3115) = RCT(1871) -! B(3116) = dA(1872)/dV(3155) - B(3116) = RCT(1872) -! B(3117) = dA(1873)/dV(3155) - B(3117) = RCT(1873) -! B(3118) = dA(1874)/dV(3155) - B(3118) = RCT(1874) -! B(3119) = dA(1875)/dV(3155) - B(3119) = RCT(1875) -! B(3120) = dA(1876)/dV(702) - B(3120) = RCT(1876) -! B(3121) = dA(1877)/dV(702) - B(3121) = RCT(1877) -! B(3122) = dA(1878)/dV(715) - B(3122) = RCT(1878) -! B(3123) = dA(1879)/dV(715) - B(3123) = RCT(1879) -! B(3124) = dA(1880)/dV(5132) - B(3124) = RCT(1880)*V(5255) -! B(3125) = dA(1880)/dV(5255) - B(3125) = RCT(1880)*V(5132) -! B(3126) = dA(1881)/dV(5132) - B(3126) = RCT(1881)*V(5252) -! B(3127) = dA(1881)/dV(5252) - B(3127) = RCT(1881)*V(5132) -! B(3128) = dA(1882)/dV(5132) - B(3128) = RCT(1882)*V(5252) -! B(3129) = dA(1882)/dV(5252) - B(3129) = RCT(1882)*V(5132) -! B(3130) = dA(1883)/dV(5132) - B(3130) = RCT(1883)*V(5256) -! B(3131) = dA(1883)/dV(5256) - B(3131) = RCT(1883)*V(5132) -! B(3132) = dA(1884)/dV(5132) - B(3132) = RCT(1884) -! B(3133) = dA(1885)/dV(5132) - B(3133) = RCT(1885) -! B(3134) = dA(1886)/dV(5132) - B(3134) = RCT(1886) -! B(3135) = dA(1887)/dV(4794) - B(3135) = RCT(1887)*V(5256) -! B(3136) = dA(1887)/dV(5256) - B(3136) = RCT(1887)*V(4794) -! B(3137) = dA(1888)/dV(4794) - B(3137) = RCT(1888)*V(5258) -! B(3138) = dA(1888)/dV(5258) - B(3138) = RCT(1888)*V(4794) -! B(3139) = dA(1889)/dV(4794) - B(3139) = RCT(1889)*V(5258) -! B(3140) = dA(1889)/dV(5258) - B(3140) = RCT(1889)*V(4794) -! B(3141) = dA(1890)/dV(4794) - B(3141) = RCT(1890)*V(5250) -! B(3142) = dA(1890)/dV(5250) - B(3142) = RCT(1890)*V(4794) -! B(3143) = dA(1891)/dV(4794) - B(3143) = RCT(1891)*V(5250) -! B(3144) = dA(1891)/dV(5250) - B(3144) = RCT(1891)*V(4794) -! B(3145) = dA(1892)/dV(4794) - B(3145) = RCT(1892) -! B(3146) = dA(1893)/dV(4907) - B(3146) = RCT(1893)*V(5256) -! B(3147) = dA(1893)/dV(5256) - B(3147) = RCT(1893)*V(4907) -! B(3148) = dA(1894)/dV(4907) - B(3148) = RCT(1894)*V(5258) -! B(3149) = dA(1894)/dV(5258) - B(3149) = RCT(1894)*V(4907) -! B(3150) = dA(1895)/dV(4907) - B(3150) = RCT(1895)*V(5258) -! B(3151) = dA(1895)/dV(5258) - B(3151) = RCT(1895)*V(4907) -! B(3152) = dA(1896)/dV(4907) - B(3152) = RCT(1896)*V(5250) -! B(3153) = dA(1896)/dV(5250) - B(3153) = RCT(1896)*V(4907) -! B(3154) = dA(1897)/dV(4907) - B(3154) = RCT(1897) -! B(3155) = dA(1898)/dV(606) - B(3155) = RCT(1898) -! B(3156) = dA(1899)/dV(606) - B(3156) = RCT(1899) -! B(3157) = dA(1900)/dV(607) - B(3157) = RCT(1900) -! B(3158) = dA(1901)/dV(607) - B(3158) = RCT(1901) -! B(3159) = dA(1902)/dV(3637) - B(3159) = RCT(1902)*V(5255) -! B(3160) = dA(1902)/dV(5255) - B(3160) = RCT(1902)*V(3637) -! B(3161) = dA(1903)/dV(3637) - B(3161) = RCT(1903)*V(5255) -! B(3162) = dA(1903)/dV(5255) - B(3162) = RCT(1903)*V(3637) -! B(3163) = dA(1904)/dV(3637) - B(3163) = RCT(1904)*V(5252) -! B(3164) = dA(1904)/dV(5252) - B(3164) = RCT(1904)*V(3637) -! B(3165) = dA(1905)/dV(3637) - B(3165) = RCT(1905)*V(5252) -! B(3166) = dA(1905)/dV(5252) - B(3166) = RCT(1905)*V(3637) -! B(3167) = dA(1906)/dV(3637) - B(3167) = RCT(1906)*V(5256) -! B(3168) = dA(1906)/dV(5256) - B(3168) = RCT(1906)*V(3637) -! B(3169) = dA(1907)/dV(3637) - B(3169) = RCT(1907) -! B(3170) = dA(1908)/dV(3637) - B(3170) = RCT(1908) -! B(3171) = dA(1909)/dV(3637) - B(3171) = RCT(1909) -! B(3172) = dA(1910)/dV(4616) - B(3172) = RCT(1910)*V(5255) -! B(3173) = dA(1910)/dV(5255) - B(3173) = RCT(1910)*V(4616) -! B(3174) = dA(1911)/dV(4616) - B(3174) = RCT(1911)*V(5255) -! B(3175) = dA(1911)/dV(5255) - B(3175) = RCT(1911)*V(4616) -! B(3176) = dA(1912)/dV(4616) - B(3176) = RCT(1912)*V(5252) -! B(3177) = dA(1912)/dV(5252) - B(3177) = RCT(1912)*V(4616) -! B(3178) = dA(1913)/dV(4616) - B(3178) = RCT(1913)*V(5252) -! B(3179) = dA(1913)/dV(5252) - B(3179) = RCT(1913)*V(4616) -! B(3180) = dA(1914)/dV(4616) - B(3180) = RCT(1914)*V(5256) -! B(3181) = dA(1914)/dV(5256) - B(3181) = RCT(1914)*V(4616) -! B(3182) = dA(1915)/dV(4616) - B(3182) = RCT(1915) -! B(3183) = dA(1916)/dV(4616) - B(3183) = RCT(1916) -! B(3184) = dA(1917)/dV(4616) - B(3184) = RCT(1917) -! B(3185) = dA(1918)/dV(4609) - B(3185) = RCT(1918)*V(5255) -! B(3186) = dA(1918)/dV(5255) - B(3186) = RCT(1918)*V(4609) -! B(3187) = dA(1919)/dV(4609) - B(3187) = RCT(1919)*V(5252) -! B(3188) = dA(1919)/dV(5252) - B(3188) = RCT(1919)*V(4609) -! B(3189) = dA(1920)/dV(4609) - B(3189) = RCT(1920)*V(5252) -! B(3190) = dA(1920)/dV(5252) - B(3190) = RCT(1920)*V(4609) -! B(3191) = dA(1921)/dV(4609) - B(3191) = RCT(1921)*V(5256) -! B(3192) = dA(1921)/dV(5256) - B(3192) = RCT(1921)*V(4609) -! B(3193) = dA(1922)/dV(4609) - B(3193) = RCT(1922) -! B(3194) = dA(1923)/dV(4609) - B(3194) = RCT(1923) -! B(3195) = dA(1924)/dV(4609) - B(3195) = RCT(1924) -! B(3196) = dA(1925)/dV(5241) - B(3196) = RCT(1925)*V(5255) -! B(3197) = dA(1925)/dV(5255) - B(3197) = RCT(1925)*V(5241) -! B(3198) = dA(1926)/dV(5241) - B(3198) = RCT(1926)*V(5255) -! B(3199) = dA(1926)/dV(5255) - B(3199) = RCT(1926)*V(5241) -! B(3200) = dA(1927)/dV(5241) - B(3200) = RCT(1927)*V(5252) -! B(3201) = dA(1927)/dV(5252) - B(3201) = RCT(1927)*V(5241) -! B(3202) = dA(1928)/dV(5241) - B(3202) = RCT(1928)*V(5256) -! B(3203) = dA(1928)/dV(5256) - B(3203) = RCT(1928)*V(5241) -! B(3204) = dA(1929)/dV(5241) - B(3204) = RCT(1929) -! B(3205) = dA(1930)/dV(5241) - B(3205) = RCT(1930) -! B(3206) = dA(1931)/dV(5241) - B(3206) = RCT(1931) -! B(3207) = dA(1932)/dV(5246) - B(3207) = RCT(1932)*V(5255) -! B(3208) = dA(1932)/dV(5255) - B(3208) = RCT(1932)*V(5246) -! B(3209) = dA(1933)/dV(5246) - B(3209) = RCT(1933)*V(5252) -! B(3210) = dA(1933)/dV(5252) - B(3210) = RCT(1933)*V(5246) -! B(3211) = dA(1934)/dV(5246) - B(3211) = RCT(1934)*V(5252) -! B(3212) = dA(1934)/dV(5252) - B(3212) = RCT(1934)*V(5246) -! B(3213) = dA(1935)/dV(5246) - B(3213) = RCT(1935)*V(5256) -! B(3214) = dA(1935)/dV(5256) - B(3214) = RCT(1935)*V(5246) -! B(3215) = dA(1936)/dV(5246) - B(3215) = RCT(1936) -! B(3216) = dA(1937)/dV(5246) - B(3216) = RCT(1937) -! B(3217) = dA(1938)/dV(5246) - B(3217) = RCT(1938) -! B(3218) = dA(1939)/dV(5098) - B(3218) = RCT(1939)*V(5255) -! B(3219) = dA(1939)/dV(5255) - B(3219) = RCT(1939)*V(5098) -! B(3220) = dA(1940)/dV(5098) - B(3220) = RCT(1940)*V(5252) -! B(3221) = dA(1940)/dV(5252) - B(3221) = RCT(1940)*V(5098) -! B(3222) = dA(1941)/dV(5098) - B(3222) = RCT(1941)*V(5256) -! B(3223) = dA(1941)/dV(5256) - B(3223) = RCT(1941)*V(5098) -! B(3224) = dA(1942)/dV(5098) - B(3224) = RCT(1942) -! B(3225) = dA(1943)/dV(5098) - B(3225) = RCT(1943) -! B(3226) = dA(1944)/dV(5098) - B(3226) = RCT(1944) -! B(3227) = dA(1945)/dV(5053) - B(3227) = RCT(1945)*V(5255) -! B(3228) = dA(1945)/dV(5255) - B(3228) = RCT(1945)*V(5053) -! B(3229) = dA(1946)/dV(5053) - B(3229) = RCT(1946)*V(5252) -! B(3230) = dA(1946)/dV(5252) - B(3230) = RCT(1946)*V(5053) -! B(3231) = dA(1947)/dV(5053) - B(3231) = RCT(1947)*V(5256) -! B(3232) = dA(1947)/dV(5256) - B(3232) = RCT(1947)*V(5053) -! B(3233) = dA(1948)/dV(5053) - B(3233) = RCT(1948) -! B(3234) = dA(1949)/dV(5053) - B(3234) = RCT(1949) -! B(3235) = dA(1950)/dV(5053) - B(3235) = RCT(1950) -! B(3236) = dA(1951)/dV(5151) - B(3236) = RCT(1951)*V(5255) -! B(3237) = dA(1951)/dV(5255) - B(3237) = RCT(1951)*V(5151) -! B(3238) = dA(1952)/dV(5151) - B(3238) = RCT(1952)*V(5252) -! B(3239) = dA(1952)/dV(5252) - B(3239) = RCT(1952)*V(5151) -! B(3240) = dA(1953)/dV(5151) - B(3240) = RCT(1953)*V(5252) -! B(3241) = dA(1953)/dV(5252) - B(3241) = RCT(1953)*V(5151) -! B(3242) = dA(1954)/dV(5151) - B(3242) = RCT(1954)*V(5256) -! B(3243) = dA(1954)/dV(5256) - B(3243) = RCT(1954)*V(5151) -! B(3244) = dA(1955)/dV(5151) - B(3244) = RCT(1955) -! B(3245) = dA(1956)/dV(5151) - B(3245) = RCT(1956) -! B(3246) = dA(1957)/dV(5151) - B(3246) = RCT(1957) -! B(3247) = dA(1958)/dV(4858) - B(3247) = RCT(1958)*V(5255) -! B(3248) = dA(1958)/dV(5255) - B(3248) = RCT(1958)*V(4858) -! B(3249) = dA(1959)/dV(4858) - B(3249) = RCT(1959)*V(5252) -! B(3250) = dA(1959)/dV(5252) - B(3250) = RCT(1959)*V(4858) -! B(3251) = dA(1960)/dV(4858) - B(3251) = RCT(1960)*V(5256) -! B(3252) = dA(1960)/dV(5256) - B(3252) = RCT(1960)*V(4858) -! B(3253) = dA(1961)/dV(4858) - B(3253) = RCT(1961) -! B(3254) = dA(1962)/dV(4858) - B(3254) = RCT(1962) -! B(3255) = dA(1963)/dV(4858) - B(3255) = RCT(1963) -! B(3256) = dA(1964)/dV(4852) - B(3256) = RCT(1964)*V(5255) -! B(3257) = dA(1964)/dV(5255) - B(3257) = RCT(1964)*V(4852) -! B(3258) = dA(1965)/dV(4852) - B(3258) = RCT(1965)*V(5252) -! B(3259) = dA(1965)/dV(5252) - B(3259) = RCT(1965)*V(4852) -! B(3260) = dA(1966)/dV(4852) - B(3260) = RCT(1966)*V(5256) -! B(3261) = dA(1966)/dV(5256) - B(3261) = RCT(1966)*V(4852) -! B(3262) = dA(1967)/dV(4852) - B(3262) = RCT(1967) -! B(3263) = dA(1968)/dV(4852) - B(3263) = RCT(1968) -! B(3264) = dA(1969)/dV(4852) - B(3264) = RCT(1969) -! B(3265) = dA(1970)/dV(5161) - B(3265) = RCT(1970)*V(5255) -! B(3266) = dA(1970)/dV(5255) - B(3266) = RCT(1970)*V(5161) -! B(3267) = dA(1971)/dV(5161) - B(3267) = RCT(1971)*V(5252) -! B(3268) = dA(1971)/dV(5252) - B(3268) = RCT(1971)*V(5161) -! B(3269) = dA(1972)/dV(5161) - B(3269) = RCT(1972)*V(5252) -! B(3270) = dA(1972)/dV(5252) - B(3270) = RCT(1972)*V(5161) -! B(3271) = dA(1973)/dV(5161) - B(3271) = RCT(1973)*V(5256) -! B(3272) = dA(1973)/dV(5256) - B(3272) = RCT(1973)*V(5161) -! B(3273) = dA(1974)/dV(5161) - B(3273) = RCT(1974) -! B(3274) = dA(1975)/dV(5161) - B(3274) = RCT(1975) -! B(3275) = dA(1976)/dV(5161) - B(3275) = RCT(1976) -! B(3276) = dA(1977)/dV(4841) - B(3276) = RCT(1977)*V(5255) -! B(3277) = dA(1977)/dV(5255) - B(3277) = RCT(1977)*V(4841) -! B(3278) = dA(1978)/dV(4841) - B(3278) = RCT(1978)*V(5252) -! B(3279) = dA(1978)/dV(5252) - B(3279) = RCT(1978)*V(4841) -! B(3280) = dA(1979)/dV(4841) - B(3280) = RCT(1979)*V(5256) -! B(3281) = dA(1979)/dV(5256) - B(3281) = RCT(1979)*V(4841) -! B(3282) = dA(1980)/dV(4841) - B(3282) = RCT(1980) -! B(3283) = dA(1981)/dV(4841) - B(3283) = RCT(1981) -! B(3284) = dA(1982)/dV(5097) - B(3284) = RCT(1982)*V(5255) -! B(3285) = dA(1982)/dV(5255) - B(3285) = RCT(1982)*V(5097) -! B(3286) = dA(1983)/dV(5097) - B(3286) = RCT(1983)*V(5252) -! B(3287) = dA(1983)/dV(5252) - B(3287) = RCT(1983)*V(5097) -! B(3288) = dA(1984)/dV(5097) - B(3288) = RCT(1984)*V(5252) -! B(3289) = dA(1984)/dV(5252) - B(3289) = RCT(1984)*V(5097) -! B(3290) = dA(1985)/dV(5097) - B(3290) = RCT(1985)*V(5256) -! B(3291) = dA(1985)/dV(5256) - B(3291) = RCT(1985)*V(5097) -! B(3292) = dA(1986)/dV(5097) - B(3292) = RCT(1986) -! B(3293) = dA(1987)/dV(5097) - B(3293) = RCT(1987) -! B(3294) = dA(1988)/dV(5097) - B(3294) = RCT(1988) -! B(3295) = dA(1989)/dV(4581) - B(3295) = RCT(1989)*V(5255) -! B(3296) = dA(1989)/dV(5255) - B(3296) = RCT(1989)*V(4581) -! B(3297) = dA(1990)/dV(4581) - B(3297) = RCT(1990)*V(5252) -! B(3298) = dA(1990)/dV(5252) - B(3298) = RCT(1990)*V(4581) -! B(3299) = dA(1991)/dV(4581) - B(3299) = RCT(1991)*V(5252) -! B(3300) = dA(1991)/dV(5252) - B(3300) = RCT(1991)*V(4581) -! B(3301) = dA(1992)/dV(4581) - B(3301) = RCT(1992)*V(5256) -! B(3302) = dA(1992)/dV(5256) - B(3302) = RCT(1992)*V(4581) -! B(3303) = dA(1993)/dV(4581) - B(3303) = RCT(1993) -! B(3304) = dA(1994)/dV(4581) - B(3304) = RCT(1994) -! B(3305) = dA(1995)/dV(4581) - B(3305) = RCT(1995) -! B(3306) = dA(1996)/dV(4784) - B(3306) = RCT(1996)*V(5255) -! B(3307) = dA(1996)/dV(5255) - B(3307) = RCT(1996)*V(4784) -! B(3308) = dA(1997)/dV(4784) - B(3308) = RCT(1997)*V(5252) -! B(3309) = dA(1997)/dV(5252) - B(3309) = RCT(1997)*V(4784) -! B(3310) = dA(1998)/dV(4784) - B(3310) = RCT(1998)*V(5252) -! B(3311) = dA(1998)/dV(5252) - B(3311) = RCT(1998)*V(4784) -! B(3312) = dA(1999)/dV(4784) - B(3312) = RCT(1999)*V(5256) -! B(3313) = dA(1999)/dV(5256) - B(3313) = RCT(1999)*V(4784) -! B(3314) = dA(2000)/dV(4784) - B(3314) = RCT(2000) -! B(3315) = dA(2001)/dV(4784) - B(3315) = RCT(2001) -! B(3316) = dA(2002)/dV(4784) - B(3316) = RCT(2002) -! B(3317) = dA(2003)/dV(4390) - B(3317) = RCT(2003)*V(5255) -! B(3318) = dA(2003)/dV(5255) - B(3318) = RCT(2003)*V(4390) -! B(3319) = dA(2004)/dV(4390) - B(3319) = RCT(2004)*V(5252) -! B(3320) = dA(2004)/dV(5252) - B(3320) = RCT(2004)*V(4390) -! B(3321) = dA(2005)/dV(4390) - B(3321) = RCT(2005)*V(5256) -! B(3322) = dA(2005)/dV(5256) - B(3322) = RCT(2005)*V(4390) -! B(3323) = dA(2006)/dV(4390) - B(3323) = RCT(2006) -! B(3324) = dA(2007)/dV(4390) - B(3324) = RCT(2007) -! B(3325) = dA(2008)/dV(4390) - B(3325) = RCT(2008) -! B(3326) = dA(2009)/dV(4583) - B(3326) = RCT(2009)*V(5255) -! B(3327) = dA(2009)/dV(5255) - B(3327) = RCT(2009)*V(4583) -! B(3328) = dA(2010)/dV(4583) - B(3328) = RCT(2010)*V(5252) -! B(3329) = dA(2010)/dV(5252) - B(3329) = RCT(2010)*V(4583) -! B(3330) = dA(2011)/dV(4583) - B(3330) = RCT(2011)*V(5252) -! B(3331) = dA(2011)/dV(5252) - B(3331) = RCT(2011)*V(4583) -! B(3332) = dA(2012)/dV(4583) - B(3332) = RCT(2012)*V(5256) -! B(3333) = dA(2012)/dV(5256) - B(3333) = RCT(2012)*V(4583) -! B(3334) = dA(2013)/dV(4583) - B(3334) = RCT(2013) -! B(3335) = dA(2014)/dV(4583) - B(3335) = RCT(2014) -! B(3336) = dA(2015)/dV(4583) - B(3336) = RCT(2015) -! B(3337) = dA(2016)/dV(4367) - B(3337) = RCT(2016)*V(5255) -! B(3338) = dA(2016)/dV(5255) - B(3338) = RCT(2016)*V(4367) -! B(3339) = dA(2017)/dV(4367) - B(3339) = RCT(2017)*V(5252) -! B(3340) = dA(2017)/dV(5252) - B(3340) = RCT(2017)*V(4367) -! B(3341) = dA(2018)/dV(4367) - B(3341) = RCT(2018)*V(5256) -! B(3342) = dA(2018)/dV(5256) - B(3342) = RCT(2018)*V(4367) -! B(3343) = dA(2019)/dV(4367) - B(3343) = RCT(2019) -! B(3344) = dA(2020)/dV(4367) - B(3344) = RCT(2020) -! B(3345) = dA(2021)/dV(4367) - B(3345) = RCT(2021) -! B(3346) = dA(2022)/dV(4336) - B(3346) = RCT(2022)*V(5255) -! B(3347) = dA(2022)/dV(5255) - B(3347) = RCT(2022)*V(4336) -! B(3348) = dA(2023)/dV(4336) - B(3348) = RCT(2023)*V(5252) -! B(3349) = dA(2023)/dV(5252) - B(3349) = RCT(2023)*V(4336) -! B(3350) = dA(2024)/dV(4336) - B(3350) = RCT(2024)*V(5256) -! B(3351) = dA(2024)/dV(5256) - B(3351) = RCT(2024)*V(4336) -! B(3352) = dA(2025)/dV(4336) - B(3352) = RCT(2025) -! B(3353) = dA(2026)/dV(4336) - B(3353) = RCT(2026) -! B(3354) = dA(2027)/dV(4336) - B(3354) = RCT(2027) -! B(3355) = dA(2028)/dV(4356) - B(3355) = RCT(2028)*V(5255) -! B(3356) = dA(2028)/dV(5255) - B(3356) = RCT(2028)*V(4356) -! B(3357) = dA(2029)/dV(4356) - B(3357) = RCT(2029)*V(5252) -! B(3358) = dA(2029)/dV(5252) - B(3358) = RCT(2029)*V(4356) -! B(3359) = dA(2030)/dV(4356) - B(3359) = RCT(2030)*V(5252) -! B(3360) = dA(2030)/dV(5252) - B(3360) = RCT(2030)*V(4356) -! B(3361) = dA(2031)/dV(4356) - B(3361) = RCT(2031)*V(5256) -! B(3362) = dA(2031)/dV(5256) - B(3362) = RCT(2031)*V(4356) -! B(3363) = dA(2032)/dV(4356) - B(3363) = RCT(2032) -! B(3364) = dA(2033)/dV(4356) - B(3364) = RCT(2033) -! B(3365) = dA(2034)/dV(4356) - B(3365) = RCT(2034) -! B(3366) = dA(2035)/dV(5032) - B(3366) = RCT(2035)*V(5255) -! B(3367) = dA(2035)/dV(5255) - B(3367) = RCT(2035)*V(5032) -! B(3368) = dA(2036)/dV(5032) - B(3368) = RCT(2036)*V(5252) -! B(3369) = dA(2036)/dV(5252) - B(3369) = RCT(2036)*V(5032) -! B(3370) = dA(2037)/dV(5032) - B(3370) = RCT(2037)*V(5252) -! B(3371) = dA(2037)/dV(5252) - B(3371) = RCT(2037)*V(5032) -! B(3372) = dA(2038)/dV(5032) - B(3372) = RCT(2038)*V(5256) -! B(3373) = dA(2038)/dV(5256) - B(3373) = RCT(2038)*V(5032) -! B(3374) = dA(2039)/dV(5032) - B(3374) = RCT(2039) -! B(3375) = dA(2040)/dV(5032) - B(3375) = RCT(2040) -! B(3376) = dA(2041)/dV(4594) - B(3376) = RCT(2041)*V(5255) -! B(3377) = dA(2041)/dV(5255) - B(3377) = RCT(2041)*V(4594) -! B(3378) = dA(2042)/dV(4594) - B(3378) = RCT(2042)*V(5252) -! B(3379) = dA(2042)/dV(5252) - B(3379) = RCT(2042)*V(4594) -! B(3380) = dA(2043)/dV(4594) - B(3380) = RCT(2043)*V(5256) -! B(3381) = dA(2043)/dV(5256) - B(3381) = RCT(2043)*V(4594) -! B(3382) = dA(2044)/dV(4594) - B(3382) = RCT(2044) -! B(3383) = dA(2045)/dV(4594) - B(3383) = RCT(2045) -! B(3384) = dA(2046)/dV(4594) - B(3384) = RCT(2046) -! B(3385) = dA(2047)/dV(3836) - B(3385) = RCT(2047)*V(5255) -! B(3386) = dA(2047)/dV(5255) - B(3386) = RCT(2047)*V(3836) -! B(3387) = dA(2048)/dV(3836) - B(3387) = RCT(2048)*V(5252) -! B(3388) = dA(2048)/dV(5252) - B(3388) = RCT(2048)*V(3836) -! B(3389) = dA(2049)/dV(3836) - B(3389) = RCT(2049)*V(5252) -! B(3390) = dA(2049)/dV(5252) - B(3390) = RCT(2049)*V(3836) -! B(3391) = dA(2050)/dV(3836) - B(3391) = RCT(2050)*V(5256) -! B(3392) = dA(2050)/dV(5256) - B(3392) = RCT(2050)*V(3836) -! B(3393) = dA(2051)/dV(3836) - B(3393) = RCT(2051) -! B(3394) = dA(2052)/dV(3836) - B(3394) = RCT(2052) -! B(3395) = dA(2053)/dV(3836) - B(3395) = RCT(2053) -! B(3396) = dA(2054)/dV(5081) - B(3396) = RCT(2054)*V(5255) -! B(3397) = dA(2054)/dV(5255) - B(3397) = RCT(2054)*V(5081) -! B(3398) = dA(2055)/dV(5081) - B(3398) = RCT(2055)*V(5252) -! B(3399) = dA(2055)/dV(5252) - B(3399) = RCT(2055)*V(5081) -! B(3400) = dA(2056)/dV(5081) - B(3400) = RCT(2056)*V(5252) -! B(3401) = dA(2056)/dV(5252) - B(3401) = RCT(2056)*V(5081) -! B(3402) = dA(2057)/dV(5081) - B(3402) = RCT(2057)*V(5256) -! B(3403) = dA(2057)/dV(5256) - B(3403) = RCT(2057)*V(5081) -! B(3404) = dA(2058)/dV(5081) - B(3404) = RCT(2058) -! B(3405) = dA(2059)/dV(5081) - B(3405) = RCT(2059) -! B(3406) = dA(2060)/dV(5081) - B(3406) = RCT(2060) -! B(3407) = dA(2061)/dV(3943) - B(3407) = RCT(2061)*V(5255) -! B(3408) = dA(2061)/dV(5255) - B(3408) = RCT(2061)*V(3943) -! B(3409) = dA(2062)/dV(3943) - B(3409) = RCT(2062)*V(5252) -! B(3410) = dA(2062)/dV(5252) - B(3410) = RCT(2062)*V(3943) -! B(3411) = dA(2063)/dV(3943) - B(3411) = RCT(2063)*V(5256) -! B(3412) = dA(2063)/dV(5256) - B(3412) = RCT(2063)*V(3943) -! B(3413) = dA(2064)/dV(3943) - B(3413) = RCT(2064) -! B(3414) = dA(2065)/dV(3943) - B(3414) = RCT(2065) -! B(3415) = dA(2066)/dV(4925) - B(3415) = RCT(2066)*V(5255) -! B(3416) = dA(2066)/dV(5255) - B(3416) = RCT(2066)*V(4925) -! B(3417) = dA(2067)/dV(4925) - B(3417) = RCT(2067)*V(5252) -! B(3418) = dA(2067)/dV(5252) - B(3418) = RCT(2067)*V(4925) -! B(3419) = dA(2068)/dV(4925) - B(3419) = RCT(2068)*V(5256) -! B(3420) = dA(2068)/dV(5256) - B(3420) = RCT(2068)*V(4925) -! B(3421) = dA(2069)/dV(4925) - B(3421) = RCT(2069) -! B(3422) = dA(2070)/dV(4925) - B(3422) = RCT(2070) -! B(3423) = dA(2071)/dV(4925) - B(3423) = RCT(2071) -! B(3424) = dA(2072)/dV(293) - B(3424) = RCT(2072) -! B(3425) = dA(2073)/dV(293) - B(3425) = RCT(2073) -! B(3426) = dA(2074)/dV(604) - B(3426) = RCT(2074) -! B(3427) = dA(2075)/dV(604) - B(3427) = RCT(2075) -! B(3428) = dA(2076)/dV(3921) - B(3428) = RCT(2076)*V(5255) -! B(3429) = dA(2076)/dV(5255) - B(3429) = RCT(2076)*V(3921) -! B(3430) = dA(2077)/dV(3921) - B(3430) = RCT(2077)*V(5252) -! B(3431) = dA(2077)/dV(5252) - B(3431) = RCT(2077)*V(3921) -! B(3432) = dA(2078)/dV(3921) - B(3432) = RCT(2078)*V(5252) -! B(3433) = dA(2078)/dV(5252) - B(3433) = RCT(2078)*V(3921) -! B(3434) = dA(2079)/dV(3921) - B(3434) = RCT(2079)*V(5256) -! B(3435) = dA(2079)/dV(5256) - B(3435) = RCT(2079)*V(3921) -! B(3436) = dA(2080)/dV(3921) - B(3436) = RCT(2080) -! B(3437) = dA(2081)/dV(3921) - B(3437) = RCT(2081) -! B(3438) = dA(2082)/dV(3936) - B(3438) = RCT(2082)*V(5255) -! B(3439) = dA(2082)/dV(5255) - B(3439) = RCT(2082)*V(3936) -! B(3440) = dA(2083)/dV(3936) - B(3440) = RCT(2083)*V(5252) -! B(3441) = dA(2083)/dV(5252) - B(3441) = RCT(2083)*V(3936) -! B(3442) = dA(2084)/dV(3936) - B(3442) = RCT(2084)*V(5252) -! B(3443) = dA(2084)/dV(5252) - B(3443) = RCT(2084)*V(3936) -! B(3444) = dA(2085)/dV(3936) - B(3444) = RCT(2085)*V(5256) -! B(3445) = dA(2085)/dV(5256) - B(3445) = RCT(2085)*V(3936) -! B(3446) = dA(2086)/dV(3936) - B(3446) = RCT(2086) -! B(3447) = dA(2087)/dV(3936) - B(3447) = RCT(2087) -! B(3448) = dA(2088)/dV(3936) - B(3448) = RCT(2088) -! B(3449) = dA(2089)/dV(4091) - B(3449) = RCT(2089)*V(5255) -! B(3450) = dA(2089)/dV(5255) - B(3450) = RCT(2089)*V(4091) -! B(3451) = dA(2090)/dV(4091) - B(3451) = RCT(2090)*V(5252) -! B(3452) = dA(2090)/dV(5252) - B(3452) = RCT(2090)*V(4091) -! B(3453) = dA(2091)/dV(4091) - B(3453) = RCT(2091)*V(5252) -! B(3454) = dA(2091)/dV(5252) - B(3454) = RCT(2091)*V(4091) -! B(3455) = dA(2092)/dV(4091) - B(3455) = RCT(2092)*V(5256) -! B(3456) = dA(2092)/dV(5256) - B(3456) = RCT(2092)*V(4091) -! B(3457) = dA(2093)/dV(4091) - B(3457) = RCT(2093) -! B(3458) = dA(2094)/dV(4091) - B(3458) = RCT(2094) -! B(3459) = dA(2095)/dV(4097) - B(3459) = RCT(2095)*V(5255) -! B(3460) = dA(2095)/dV(5255) - B(3460) = RCT(2095)*V(4097) -! B(3461) = dA(2096)/dV(4097) - B(3461) = RCT(2096)*V(5252) -! B(3462) = dA(2096)/dV(5252) - B(3462) = RCT(2096)*V(4097) -! B(3463) = dA(2097)/dV(4097) - B(3463) = RCT(2097)*V(5256) -! B(3464) = dA(2097)/dV(5256) - B(3464) = RCT(2097)*V(4097) -! B(3465) = dA(2098)/dV(4097) - B(3465) = RCT(2098) -! B(3466) = dA(2099)/dV(4097) - B(3466) = RCT(2099) -! B(3467) = dA(2100)/dV(3806) - B(3467) = RCT(2100)*V(5255) -! B(3468) = dA(2100)/dV(5255) - B(3468) = RCT(2100)*V(3806) -! B(3469) = dA(2101)/dV(3806) - B(3469) = RCT(2101)*V(5252) -! B(3470) = dA(2101)/dV(5252) - B(3470) = RCT(2101)*V(3806) -! B(3471) = dA(2102)/dV(3806) - B(3471) = RCT(2102)*V(5256) -! B(3472) = dA(2102)/dV(5256) - B(3472) = RCT(2102)*V(3806) -! B(3473) = dA(2103)/dV(3806) - B(3473) = RCT(2103) -! B(3474) = dA(2104)/dV(3806) - B(3474) = RCT(2104) -! B(3475) = dA(2105)/dV(3806) - B(3475) = RCT(2105) -! B(3476) = dA(2106)/dV(5215) - B(3476) = RCT(2106)*V(5250) -! B(3477) = dA(2106)/dV(5250) - B(3477) = RCT(2106)*V(5215) -! B(3478) = dA(2107)/dV(5215) - B(3478) = RCT(2107)*V(5250) -! B(3479) = dA(2107)/dV(5250) - B(3479) = RCT(2107)*V(5215) -! B(3480) = dA(2108)/dV(5215) - B(3480) = RCT(2108)*V(5250) -! B(3481) = dA(2108)/dV(5250) - B(3481) = RCT(2108)*V(5215) -! B(3482) = dA(2109)/dV(5215) - B(3482) = RCT(2109)*V(5250) -! B(3483) = dA(2109)/dV(5250) - B(3483) = RCT(2109)*V(5215) -! B(3484) = dA(2110)/dV(4747) - B(3484) = RCT(2110) -! B(3485) = dA(2111)/dV(4747) - B(3485) = RCT(2111) -! B(3486) = dA(2112)/dV(4747) - B(3486) = RCT(2112) -! B(3487) = dA(2113)/dV(640) - B(3487) = RCT(2113) -! B(3488) = dA(2114)/dV(640) - B(3488) = RCT(2114) -! B(3489) = dA(2115)/dV(640) - B(3489) = RCT(2115) -! B(3490) = dA(2116)/dV(4185) - B(3490) = RCT(2116)*V(5255) -! B(3491) = dA(2116)/dV(5255) - B(3491) = RCT(2116)*V(4185) -! B(3492) = dA(2117)/dV(4185) - B(3492) = RCT(2117)*V(5252) -! B(3493) = dA(2117)/dV(5252) - B(3493) = RCT(2117)*V(4185) -! B(3494) = dA(2118)/dV(4185) - B(3494) = RCT(2118)*V(5252) -! B(3495) = dA(2118)/dV(5252) - B(3495) = RCT(2118)*V(4185) -! B(3496) = dA(2119)/dV(4185) - B(3496) = RCT(2119)*V(5256) -! B(3497) = dA(2119)/dV(5256) - B(3497) = RCT(2119)*V(4185) -! B(3498) = dA(2120)/dV(4185) - B(3498) = RCT(2120) -! B(3499) = dA(2121)/dV(4185) - B(3499) = RCT(2121) -! B(3500) = dA(2122)/dV(4146) - B(3500) = RCT(2122)*V(5255) -! B(3501) = dA(2122)/dV(5255) - B(3501) = RCT(2122)*V(4146) -! B(3502) = dA(2123)/dV(4146) - B(3502) = RCT(2123)*V(5252) -! B(3503) = dA(2123)/dV(5252) - B(3503) = RCT(2123)*V(4146) -! B(3504) = dA(2124)/dV(4146) - B(3504) = RCT(2124)*V(5252) -! B(3505) = dA(2124)/dV(5252) - B(3505) = RCT(2124)*V(4146) -! B(3506) = dA(2125)/dV(4146) - B(3506) = RCT(2125)*V(5256) -! B(3507) = dA(2125)/dV(5256) - B(3507) = RCT(2125)*V(4146) -! B(3508) = dA(2126)/dV(4146) - B(3508) = RCT(2126) -! B(3509) = dA(2127)/dV(4146) - B(3509) = RCT(2127) -! B(3510) = dA(2128)/dV(4146) - B(3510) = RCT(2128) -! B(3511) = dA(2129)/dV(4090) - B(3511) = RCT(2129)*V(5255) -! B(3512) = dA(2129)/dV(5255) - B(3512) = RCT(2129)*V(4090) -! B(3513) = dA(2130)/dV(4090) - B(3513) = RCT(2130)*V(5252) -! B(3514) = dA(2130)/dV(5252) - B(3514) = RCT(2130)*V(4090) -! B(3515) = dA(2131)/dV(4090) - B(3515) = RCT(2131)*V(5252) -! B(3516) = dA(2131)/dV(5252) - B(3516) = RCT(2131)*V(4090) -! B(3517) = dA(2132)/dV(4090) - B(3517) = RCT(2132)*V(5256) -! B(3518) = dA(2132)/dV(5256) - B(3518) = RCT(2132)*V(4090) -! B(3519) = dA(2133)/dV(4090) - B(3519) = RCT(2133) -! B(3520) = dA(2134)/dV(4090) - B(3520) = RCT(2134) -! B(3521) = dA(2135)/dV(3940) - B(3521) = RCT(2135)*V(5255) -! B(3522) = dA(2135)/dV(5255) - B(3522) = RCT(2135)*V(3940) -! B(3523) = dA(2136)/dV(3940) - B(3523) = RCT(2136)*V(5252) -! B(3524) = dA(2136)/dV(5252) - B(3524) = RCT(2136)*V(3940) -! B(3525) = dA(2137)/dV(3940) - B(3525) = RCT(2137)*V(5256) -! B(3526) = dA(2137)/dV(5256) - B(3526) = RCT(2137)*V(3940) -! B(3527) = dA(2138)/dV(3940) - B(3527) = RCT(2138) -! B(3528) = dA(2139)/dV(3940) - B(3528) = RCT(2139) -! B(3529) = dA(2140)/dV(419) - B(3529) = RCT(2140) -! B(3530) = dA(2141)/dV(419) - B(3530) = RCT(2141) -! B(3531) = dA(2142)/dV(719) - B(3531) = RCT(2142) -! B(3532) = dA(2143)/dV(719) - B(3532) = RCT(2143) -! B(3533) = dA(2144)/dV(3863) - B(3533) = RCT(2144)*V(5255) -! B(3534) = dA(2144)/dV(5255) - B(3534) = RCT(2144)*V(3863) -! B(3535) = dA(2145)/dV(3863) - B(3535) = RCT(2145)*V(5252) -! B(3536) = dA(2145)/dV(5252) - B(3536) = RCT(2145)*V(3863) -! B(3537) = dA(2146)/dV(3863) - B(3537) = RCT(2146)*V(5252) -! B(3538) = dA(2146)/dV(5252) - B(3538) = RCT(2146)*V(3863) -! B(3539) = dA(2147)/dV(3863) - B(3539) = RCT(2147)*V(5256) -! B(3540) = dA(2147)/dV(5256) - B(3540) = RCT(2147)*V(3863) -! B(3541) = dA(2148)/dV(3863) - B(3541) = RCT(2148) -! B(3542) = dA(2149)/dV(3863) - B(3542) = RCT(2149) -! B(3543) = dA(2150)/dV(3867) - B(3543) = RCT(2150)*V(5255) -! B(3544) = dA(2150)/dV(5255) - B(3544) = RCT(2150)*V(3867) -! B(3545) = dA(2151)/dV(3867) - B(3545) = RCT(2151)*V(5252) -! B(3546) = dA(2151)/dV(5252) - B(3546) = RCT(2151)*V(3867) -! B(3547) = dA(2152)/dV(3867) - B(3547) = RCT(2152)*V(5252) -! B(3548) = dA(2152)/dV(5252) - B(3548) = RCT(2152)*V(3867) -! B(3549) = dA(2153)/dV(3867) - B(3549) = RCT(2153)*V(5256) -! B(3550) = dA(2153)/dV(5256) - B(3550) = RCT(2153)*V(3867) -! B(3551) = dA(2154)/dV(3867) - B(3551) = RCT(2154) -! B(3552) = dA(2155)/dV(3867) - B(3552) = RCT(2155) -! B(3553) = dA(2156)/dV(3867) - B(3553) = RCT(2156) -! B(3554) = dA(2157)/dV(3994) - B(3554) = RCT(2157)*V(5255) -! B(3555) = dA(2157)/dV(5255) - B(3555) = RCT(2157)*V(3994) -! B(3556) = dA(2158)/dV(3994) - B(3556) = RCT(2158)*V(5252) -! B(3557) = dA(2158)/dV(5252) - B(3557) = RCT(2158)*V(3994) -! B(3558) = dA(2159)/dV(3994) - B(3558) = RCT(2159)*V(5252) -! B(3559) = dA(2159)/dV(5252) - B(3559) = RCT(2159)*V(3994) -! B(3560) = dA(2160)/dV(3994) - B(3560) = RCT(2160)*V(5256) -! B(3561) = dA(2160)/dV(5256) - B(3561) = RCT(2160)*V(3994) -! B(3562) = dA(2161)/dV(3994) - B(3562) = RCT(2161) -! B(3563) = dA(2162)/dV(3994) - B(3563) = RCT(2162) -! B(3564) = dA(2163)/dV(3891) - B(3564) = RCT(2163)*V(5255) -! B(3565) = dA(2163)/dV(5255) - B(3565) = RCT(2163)*V(3891) -! B(3566) = dA(2164)/dV(3891) - B(3566) = RCT(2164)*V(5252) -! B(3567) = dA(2164)/dV(5252) - B(3567) = RCT(2164)*V(3891) -! B(3568) = dA(2165)/dV(3891) - B(3568) = RCT(2165)*V(5256) -! B(3569) = dA(2165)/dV(5256) - B(3569) = RCT(2165)*V(3891) -! B(3570) = dA(2166)/dV(3891) - B(3570) = RCT(2166) -! B(3571) = dA(2167)/dV(3891) - B(3571) = RCT(2167) -! B(3572) = dA(2168)/dV(5048) - B(3572) = RCT(2168)*V(5251) -! B(3573) = dA(2168)/dV(5251) - B(3573) = RCT(2168)*V(5048) -! B(3574) = dA(2169)/dV(5048) - B(3574) = RCT(2169)*V(5252) -! B(3575) = dA(2169)/dV(5252) - B(3575) = RCT(2169)*V(5048) -! B(3576) = dA(2170)/dV(5048) - B(3576) = RCT(2170)*V(5253) -! B(3577) = dA(2170)/dV(5253) - B(3577) = RCT(2170)*V(5048) -! B(3578) = dA(2171)/dV(5048) - B(3578) = RCT(2171)*V(5254) -! B(3579) = dA(2171)/dV(5254) - B(3579) = RCT(2171)*V(5048) -! B(3580) = dA(2172)/dV(5048) - B(3580) = RCT(2172) -! B(3581) = dA(2173)/dV(5048) - B(3581) = RCT(2173) -! B(3582) = dA(2174)/dV(5092) - B(3582) = RCT(2174)*V(5251) -! B(3583) = dA(2174)/dV(5251) - B(3583) = RCT(2174)*V(5092) -! B(3584) = dA(2175)/dV(5092) - B(3584) = RCT(2175)*V(5252) -! B(3585) = dA(2175)/dV(5252) - B(3585) = RCT(2175)*V(5092) -! B(3586) = dA(2176)/dV(5092) - B(3586) = RCT(2176)*V(5253) -! B(3587) = dA(2176)/dV(5253) - B(3587) = RCT(2176)*V(5092) -! B(3588) = dA(2177)/dV(5092) - B(3588) = RCT(2177)*V(5254) -! B(3589) = dA(2177)/dV(5254) - B(3589) = RCT(2177)*V(5092) -! B(3590) = dA(2178)/dV(5092) - B(3590) = RCT(2178) -! B(3591) = dA(2179)/dV(5092) - B(3591) = RCT(2179) -! B(3592) = dA(2180)/dV(2470) - B(3592) = RCT(2180) -! B(3593) = dA(2181)/dV(2470) - B(3593) = RCT(2181) -! B(3594) = dA(2182)/dV(2470) - B(3594) = RCT(2182) -! B(3595) = dA(2183)/dV(2470) - B(3595) = RCT(2183) -! B(3596) = dA(2184)/dV(1746) - B(3596) = RCT(2184) -! B(3597) = dA(2185)/dV(1746) - B(3597) = RCT(2185) -! B(3598) = dA(2186)/dV(1746) - B(3598) = RCT(2186) -! B(3599) = dA(2187)/dV(3971) - B(3599) = RCT(2187)*V(5255) -! B(3600) = dA(2187)/dV(5255) - B(3600) = RCT(2187)*V(3971) -! B(3601) = dA(2188)/dV(3971) - B(3601) = RCT(2188)*V(5252) -! B(3602) = dA(2188)/dV(5252) - B(3602) = RCT(2188)*V(3971) -! B(3603) = dA(2189)/dV(3971) - B(3603) = RCT(2189)*V(5252) -! B(3604) = dA(2189)/dV(5252) - B(3604) = RCT(2189)*V(3971) -! B(3605) = dA(2190)/dV(3971) - B(3605) = RCT(2190)*V(5256) -! B(3606) = dA(2190)/dV(5256) - B(3606) = RCT(2190)*V(3971) -! B(3607) = dA(2191)/dV(3971) - B(3607) = RCT(2191) -! B(3608) = dA(2192)/dV(3971) - B(3608) = RCT(2192) -! B(3609) = dA(2193)/dV(3963) - B(3609) = RCT(2193)*V(5255) -! B(3610) = dA(2193)/dV(5255) - B(3610) = RCT(2193)*V(3963) -! B(3611) = dA(2194)/dV(3963) - B(3611) = RCT(2194)*V(5252) -! B(3612) = dA(2194)/dV(5252) - B(3612) = RCT(2194)*V(3963) -! B(3613) = dA(2195)/dV(3963) - B(3613) = RCT(2195)*V(5252) -! B(3614) = dA(2195)/dV(5252) - B(3614) = RCT(2195)*V(3963) -! B(3615) = dA(2196)/dV(3963) - B(3615) = RCT(2196)*V(5256) -! B(3616) = dA(2196)/dV(5256) - B(3616) = RCT(2196)*V(3963) -! B(3617) = dA(2197)/dV(3963) - B(3617) = RCT(2197) -! B(3618) = dA(2198)/dV(3963) - B(3618) = RCT(2198) -! B(3619) = dA(2199)/dV(3963) - B(3619) = RCT(2199) -! B(3620) = dA(2200)/dV(3898) - B(3620) = RCT(2200)*V(5255) -! B(3621) = dA(2200)/dV(5255) - B(3621) = RCT(2200)*V(3898) -! B(3622) = dA(2201)/dV(3898) - B(3622) = RCT(2201)*V(5252) -! B(3623) = dA(2201)/dV(5252) - B(3623) = RCT(2201)*V(3898) -! B(3624) = dA(2202)/dV(3898) - B(3624) = RCT(2202)*V(5252) -! B(3625) = dA(2202)/dV(5252) - B(3625) = RCT(2202)*V(3898) -! B(3626) = dA(2203)/dV(3898) - B(3626) = RCT(2203)*V(5256) -! B(3627) = dA(2203)/dV(5256) - B(3627) = RCT(2203)*V(3898) -! B(3628) = dA(2204)/dV(3898) - B(3628) = RCT(2204) -! B(3629) = dA(2205)/dV(3898) - B(3629) = RCT(2205) -! B(3630) = dA(2206)/dV(1809) - B(3630) = RCT(2206)*V(5250) -! B(3631) = dA(2206)/dV(5250) - B(3631) = RCT(2206)*V(1809) -! B(3632) = dA(2207)/dV(1809) - B(3632) = RCT(2207)*V(5250) -! B(3633) = dA(2207)/dV(5250) - B(3633) = RCT(2207)*V(1809) -! B(3634) = dA(2208)/dV(1809) - B(3634) = RCT(2208) -! B(3635) = dA(2209)/dV(2096) - B(3635) = RCT(2209)*V(5250) -! B(3636) = dA(2209)/dV(5250) - B(3636) = RCT(2209)*V(2096) -! B(3637) = dA(2210)/dV(2707) - B(3637) = RCT(2210) -! B(3638) = dA(2211)/dV(2707) - B(3638) = RCT(2211) -! B(3639) = dA(2212)/dV(2456) - B(3639) = RCT(2212) -! B(3640) = dA(2213)/dV(2456) - B(3640) = RCT(2213)*V(5250) -! B(3641) = dA(2213)/dV(5250) - B(3641) = RCT(2213)*V(2456) -! B(3642) = dA(2214)/dV(2456) - B(3642) = RCT(2214)*V(5250) -! B(3643) = dA(2214)/dV(5250) - B(3643) = RCT(2214)*V(2456) -! B(3644) = dA(2215)/dV(2306) - B(3644) = RCT(2215) -! B(3645) = dA(2216)/dV(2306) - B(3645) = RCT(2216)*V(5250) -! B(3646) = dA(2216)/dV(5250) - B(3646) = RCT(2216)*V(2306) -! B(3647) = dA(2217)/dV(1679) - B(3647) = RCT(2217) -! B(3648) = dA(2218)/dV(5184) - B(3648) = RCT(2218) -! B(3649) = dA(2219)/dV(5184) - B(3649) = RCT(2219)*V(5256) -! B(3650) = dA(2219)/dV(5256) - B(3650) = RCT(2219)*V(5184) -! B(3651) = dA(2220)/dV(5184) - B(3651) = RCT(2220)*V(5250) -! B(3652) = dA(2220)/dV(5250) - B(3652) = RCT(2220)*V(5184) -! B(3653) = dA(2221)/dV(416) - B(3653) = RCT(2221)*V(5250) -! B(3654) = dA(2221)/dV(5250) - B(3654) = RCT(2221)*V(416) -! B(3655) = dA(2222)/dV(1899) - B(3655) = RCT(2222)*V(5250) -! B(3656) = dA(2222)/dV(5250) - B(3656) = RCT(2222)*V(1899) -! B(3657) = dA(2223)/dV(1899) - B(3657) = RCT(2223)*V(5250) -! B(3658) = dA(2223)/dV(5250) - B(3658) = RCT(2223)*V(1899) -! B(3659) = dA(2224)/dV(1899) - B(3659) = RCT(2224) -! B(3660) = dA(2225)/dV(2639) - B(3660) = RCT(2225) -! B(3661) = dA(2226)/dV(3245) - B(3661) = RCT(2226)*V(5250) -! B(3662) = dA(2226)/dV(5250) - B(3662) = RCT(2226)*V(3245) -! B(3663) = dA(2227)/dV(3277) - B(3663) = RCT(2227)*V(5250) -! B(3664) = dA(2227)/dV(5250) - B(3664) = RCT(2227)*V(3277) -! B(3665) = dA(2228)/dV(3277) - B(3665) = RCT(2228)*V(5250) -! B(3666) = dA(2228)/dV(5250) - B(3666) = RCT(2228)*V(3277) -! B(3667) = dA(2229)/dV(3277) - B(3667) = RCT(2229) -! B(3668) = dA(2230)/dV(2229) - B(3668) = RCT(2230) -! B(3669) = dA(2231)/dV(2433) - B(3669) = RCT(2231)*V(5250) -! B(3670) = dA(2231)/dV(5250) - B(3670) = RCT(2231)*V(2433) -! B(3671) = dA(2232)/dV(1886) - B(3671) = RCT(2232)*V(5250) -! B(3672) = dA(2232)/dV(5250) - B(3672) = RCT(2232)*V(1886) -! B(3673) = dA(2233)/dV(1886) - B(3673) = RCT(2233)*V(5250) -! B(3674) = dA(2233)/dV(5250) - B(3674) = RCT(2233)*V(1886) -! B(3675) = dA(2234)/dV(1886) - B(3675) = RCT(2234) -! B(3676) = dA(2235)/dV(2367) - B(3676) = RCT(2235)*V(5250) -! B(3677) = dA(2235)/dV(5250) - B(3677) = RCT(2235)*V(2367) -! B(3678) = dA(2236)/dV(2720) - B(3678) = RCT(2236) -! B(3679) = dA(2237)/dV(3959) - B(3679) = RCT(2237)*V(5250) -! B(3680) = dA(2237)/dV(5250) - B(3680) = RCT(2237)*V(3959) -! B(3681) = dA(2238)/dV(3959) - B(3681) = RCT(2238) -! B(3682) = dA(2239)/dV(847) - B(3682) = RCT(2239)*V(5250) -! B(3683) = dA(2239)/dV(5250) - B(3683) = RCT(2239)*V(847) -! B(3684) = dA(2240)/dV(1914) - B(3684) = RCT(2240)*V(5250) -! B(3685) = dA(2240)/dV(5250) - B(3685) = RCT(2240)*V(1914) -! B(3686) = dA(2241)/dV(1914) - B(3686) = RCT(2241)*V(5250) -! B(3687) = dA(2241)/dV(5250) - B(3687) = RCT(2241)*V(1914) -! B(3688) = dA(2242)/dV(1914) - B(3688) = RCT(2242) -! B(3689) = dA(2243)/dV(2128) - B(3689) = RCT(2243)*V(5250) -! B(3690) = dA(2243)/dV(5250) - B(3690) = RCT(2243)*V(2128) -! B(3691) = dA(2244)/dV(2128) - B(3691) = RCT(2244) -! B(3692) = dA(2245)/dV(3386) - B(3692) = RCT(2245) -! B(3693) = dA(2246)/dV(3386) - B(3693) = RCT(2246) -! B(3694) = dA(2247)/dV(1140) - B(3694) = RCT(2247)*V(5250) -! B(3695) = dA(2247)/dV(5250) - B(3695) = RCT(2247)*V(1140) -! B(3696) = dA(2248)/dV(4973) - B(3696) = RCT(2248)*V(5250) -! B(3697) = dA(2248)/dV(5250) - B(3697) = RCT(2248)*V(4973) -! B(3698) = dA(2249)/dV(4973) - B(3698) = RCT(2249) -! B(3699) = dA(2250)/dV(2503) - B(3699) = RCT(2250)*V(5250) -! B(3700) = dA(2250)/dV(5250) - B(3700) = RCT(2250)*V(2503) -! B(3701) = dA(2251)/dV(2503) - B(3701) = RCT(2251)*V(5250) -! B(3702) = dA(2251)/dV(5250) - B(3702) = RCT(2251)*V(2503) -! B(3703) = dA(2252)/dV(2503) - B(3703) = RCT(2252) -! B(3704) = dA(2253)/dV(615) - B(3704) = RCT(2253) -! B(3705) = dA(2254)/dV(1782) - B(3705) = RCT(2254)*V(5250) -! B(3706) = dA(2254)/dV(5250) - B(3706) = RCT(2254)*V(1782) -! B(3707) = dA(2255)/dV(4386) - B(3707) = RCT(2255)*V(5250) -! B(3708) = dA(2255)/dV(5250) - B(3708) = RCT(2255)*V(4386) -! B(3709) = dA(2256)/dV(4386) - B(3709) = RCT(2256) -! B(3710) = dA(2257)/dV(335) - B(3710) = RCT(2257)*V(5250) -! B(3711) = dA(2257)/dV(5250) - B(3711) = RCT(2257)*V(335) -! B(3712) = dA(2258)/dV(1138) - B(3712) = RCT(2258)*V(5250) -! B(3713) = dA(2258)/dV(5250) - B(3713) = RCT(2258)*V(1138) -! B(3714) = dA(2259)/dV(1138) - B(3714) = RCT(2259) -! B(3715) = dA(2260)/dV(3173) - B(3715) = RCT(2260)*V(5250) -! B(3716) = dA(2260)/dV(5250) - B(3716) = RCT(2260)*V(3173) -! B(3717) = dA(2261)/dV(2840) - B(3717) = RCT(2261) -! B(3718) = dA(2262)/dV(1369) - B(3718) = RCT(2262)*V(5250) -! B(3719) = dA(2262)/dV(5250) - B(3719) = RCT(2262)*V(1369) -! B(3720) = dA(2263)/dV(2235) - B(3720) = RCT(2263)*V(5250) -! B(3721) = dA(2263)/dV(5250) - B(3721) = RCT(2263)*V(2235) -! B(3722) = dA(2264)/dV(2235) - B(3722) = RCT(2264)*V(5250) -! B(3723) = dA(2264)/dV(5250) - B(3723) = RCT(2264)*V(2235) -! B(3724) = dA(2265)/dV(2235) - B(3724) = RCT(2265) -! B(3725) = dA(2266)/dV(2261) - B(3725) = RCT(2266)*V(5250) -! B(3726) = dA(2266)/dV(5250) - B(3726) = RCT(2266)*V(2261) -! B(3727) = dA(2267)/dV(2261) - B(3727) = RCT(2267) -! B(3728) = dA(2268)/dV(1568) - B(3728) = RCT(2268) -! B(3729) = dA(2269)/dV(5071) - B(3729) = RCT(2269) -! B(3730) = dA(2270)/dV(5071) - B(3730) = RCT(2270)*V(5256) -! B(3731) = dA(2270)/dV(5256) - B(3731) = RCT(2270)*V(5071) -! B(3732) = dA(2271)/dV(5071) - B(3732) = RCT(2271)*V(5250) -! B(3733) = dA(2271)/dV(5250) - B(3733) = RCT(2271)*V(5071) -! B(3734) = dA(2272)/dV(126) - B(3734) = RCT(2272)*V(5250) -! B(3735) = dA(2272)/dV(5250) - B(3735) = RCT(2272)*V(126) -! B(3736) = dA(2273)/dV(3299) - B(3736) = RCT(2273)*V(5250) -! B(3737) = dA(2273)/dV(5250) - B(3737) = RCT(2273)*V(3299) -! B(3738) = dA(2274)/dV(3299) - B(3738) = RCT(2274)*V(5250) -! B(3739) = dA(2274)/dV(5250) - B(3739) = RCT(2274)*V(3299) -! B(3740) = dA(2275)/dV(3299) - B(3740) = RCT(2275) -! B(3741) = dA(2276)/dV(2037) - B(3741) = RCT(2276)*V(5250) -! B(3742) = dA(2276)/dV(5250) - B(3742) = RCT(2276)*V(2037) -! B(3743) = dA(2277)/dV(1944) - B(3743) = RCT(2277) -! B(3744) = dA(2278)/dV(2391) - B(3744) = RCT(2278) -! B(3745) = dA(2279)/dV(2391) - B(3745) = RCT(2279)*V(5250) -! B(3746) = dA(2279)/dV(5250) - B(3746) = RCT(2279)*V(2391) -! B(3747) = dA(2280)/dV(2391) - B(3747) = RCT(2280)*V(5250) -! B(3748) = dA(2280)/dV(5250) - B(3748) = RCT(2280)*V(2391) -! B(3749) = dA(2281)/dV(1800) - B(3749) = RCT(2281) -! B(3750) = dA(2282)/dV(1800) - B(3750) = RCT(2282)*V(5250) -! B(3751) = dA(2282)/dV(5250) - B(3751) = RCT(2282)*V(1800) -! B(3752) = dA(2283)/dV(153) - B(3752) = RCT(2283) -! B(3753) = dA(2284)/dV(286) - B(3753) = RCT(2284)*V(5250) -! B(3754) = dA(2284)/dV(5250) - B(3754) = RCT(2284)*V(286) -! B(3755) = dA(2285)/dV(4872) - B(3755) = RCT(2285) -! B(3756) = dA(2286)/dV(4872) - B(3756) = RCT(2286)*V(5256) -! B(3757) = dA(2286)/dV(5256) - B(3757) = RCT(2286)*V(4872) -! B(3758) = dA(2287)/dV(4872) - B(3758) = RCT(2287)*V(5250) -! B(3759) = dA(2287)/dV(5250) - B(3759) = RCT(2287)*V(4872) -! B(3760) = dA(2288)/dV(4872) - B(3760) = RCT(2288)*V(5250) -! B(3761) = dA(2288)/dV(5250) - B(3761) = RCT(2288)*V(4872) -! B(3762) = dA(2289)/dV(3265) - B(3762) = RCT(2289)*V(5250) -! B(3763) = dA(2289)/dV(5250) - B(3763) = RCT(2289)*V(3265) -! B(3764) = dA(2290)/dV(3265) - B(3764) = RCT(2290)*V(5250) -! B(3765) = dA(2290)/dV(5250) - B(3765) = RCT(2290)*V(3265) -! B(3766) = dA(2291)/dV(3265) - B(3766) = RCT(2291) -! B(3767) = dA(2292)/dV(2297) - B(3767) = RCT(2292)*V(5250) -! B(3768) = dA(2292)/dV(5250) - B(3768) = RCT(2292)*V(2297) -! B(3769) = dA(2293)/dV(2066) - B(3769) = RCT(2293) -! B(3770) = dA(2294)/dV(1035) - B(3770) = RCT(2294)*V(5250) -! B(3771) = dA(2294)/dV(5250) - B(3771) = RCT(2294)*V(1035) -! B(3772) = dA(2295)/dV(3735) - B(3772) = RCT(2295)*V(5250) -! B(3773) = dA(2295)/dV(5250) - B(3773) = RCT(2295)*V(3735) -! B(3774) = dA(2296)/dV(3735) - B(3774) = RCT(2296) -! B(3775) = dA(2297)/dV(4634) - B(3775) = RCT(2297)*V(5255) -! B(3776) = dA(2297)/dV(5255) - B(3776) = RCT(2297)*V(4634) -! B(3777) = dA(2298)/dV(4634) - B(3777) = RCT(2298)*V(5255) -! B(3778) = dA(2298)/dV(5255) - B(3778) = RCT(2298)*V(4634) -! B(3779) = dA(2299)/dV(4634) - B(3779) = RCT(2299)*V(5255) -! B(3780) = dA(2299)/dV(5255) - B(3780) = RCT(2299)*V(4634) -! B(3781) = dA(2300)/dV(4634) - B(3781) = RCT(2300)*V(5252) -! B(3782) = dA(2300)/dV(5252) - B(3782) = RCT(2300)*V(4634) -! B(3783) = dA(2301)/dV(4634) - B(3783) = RCT(2301)*V(5253) -! B(3784) = dA(2301)/dV(5253) - B(3784) = RCT(2301)*V(4634) -! B(3785) = dA(2302)/dV(4634) - B(3785) = RCT(2302)*V(5256) -! B(3786) = dA(2302)/dV(5256) - B(3786) = RCT(2302)*V(4634) -! B(3787) = dA(2303)/dV(4634) - B(3787) = RCT(2303) -! B(3788) = dA(2304)/dV(4634) - B(3788) = RCT(2304) -! B(3789) = dA(2305)/dV(1108) - B(3789) = RCT(2305) -! B(3790) = dA(2306)/dV(1108) - B(3790) = RCT(2306)*V(5250) -! B(3791) = dA(2306)/dV(5250) - B(3791) = RCT(2306)*V(1108) -! B(3792) = dA(2307)/dV(2198) - B(3792) = RCT(2307) -! B(3793) = dA(2308)/dV(2198) - B(3793) = RCT(2308)*V(5250) -! B(3794) = dA(2308)/dV(5250) - B(3794) = RCT(2308)*V(2198) -! B(3795) = dA(2309)/dV(1906) - B(3795) = RCT(2309) -! B(3796) = dA(2310)/dV(1050) - B(3796) = RCT(2310)*V(5250) -! B(3797) = dA(2310)/dV(5250) - B(3797) = RCT(2310)*V(1050) -! B(3798) = dA(2311)/dV(4524) - B(3798) = RCT(2311) -! B(3799) = dA(2312)/dV(4524) - B(3799) = RCT(2312)*V(5250) -! B(3800) = dA(2312)/dV(5250) - B(3800) = RCT(2312)*V(4524) -! B(3801) = dA(2313)/dV(1422) - B(3801) = RCT(2313)*V(5250) -! B(3802) = dA(2313)/dV(5250) - B(3802) = RCT(2313)*V(1422) -! B(3803) = dA(2314)/dV(1422) - B(3803) = RCT(2314) -! B(3804) = dA(2315)/dV(3106) - B(3804) = RCT(2315)*V(5250) -! B(3805) = dA(2315)/dV(5250) - B(3805) = RCT(2315)*V(3106) -! B(3806) = dA(2316)/dV(2983) - B(3806) = RCT(2316) -! B(3807) = dA(2317)/dV(874) - B(3807) = RCT(2317)*V(5250) -! B(3808) = dA(2317)/dV(5250) - B(3808) = RCT(2317)*V(874) -! B(3809) = dA(2318)/dV(4380) - B(3809) = RCT(2318)*V(5255) -! B(3810) = dA(2318)/dV(5255) - B(3810) = RCT(2318)*V(4380) -! B(3811) = dA(2319)/dV(4380) - B(3811) = RCT(2319)*V(5255) -! B(3812) = dA(2319)/dV(5255) - B(3812) = RCT(2319)*V(4380) -! B(3813) = dA(2320)/dV(4380) - B(3813) = RCT(2320)*V(5255) -! B(3814) = dA(2320)/dV(5255) - B(3814) = RCT(2320)*V(4380) -! B(3815) = dA(2321)/dV(4380) - B(3815) = RCT(2321)*V(5252) -! B(3816) = dA(2321)/dV(5252) - B(3816) = RCT(2321)*V(4380) -! B(3817) = dA(2322)/dV(4380) - B(3817) = RCT(2322)*V(5253) -! B(3818) = dA(2322)/dV(5253) - B(3818) = RCT(2322)*V(4380) -! B(3819) = dA(2323)/dV(4380) - B(3819) = RCT(2323)*V(5256) -! B(3820) = dA(2323)/dV(5256) - B(3820) = RCT(2323)*V(4380) -! B(3821) = dA(2324)/dV(4380) - B(3821) = RCT(2324) -! B(3822) = dA(2325)/dV(4380) - B(3822) = RCT(2325) -! B(3823) = dA(2326)/dV(5239) - B(3823) = RCT(2326)*V(5255) -! B(3824) = dA(2326)/dV(5255) - B(3824) = RCT(2326)*V(5239) -! B(3825) = dA(2327)/dV(5239) - B(3825) = RCT(2327)*V(5252) -! B(3826) = dA(2327)/dV(5252) - B(3826) = RCT(2327)*V(5239) -! B(3827) = dA(2328)/dV(5239) - B(3827) = RCT(2328)*V(5252) -! B(3828) = dA(2328)/dV(5252) - B(3828) = RCT(2328)*V(5239) -! B(3829) = dA(2329)/dV(5239) - B(3829) = RCT(2329)*V(5256) -! B(3830) = dA(2329)/dV(5256) - B(3830) = RCT(2329)*V(5239) -! B(3831) = dA(2330)/dV(5239) - B(3831) = RCT(2330) -! B(3832) = dA(2331)/dV(5239) - B(3832) = RCT(2331) -! B(3833) = dA(2332)/dV(1265) - B(3833) = RCT(2332) -! B(3834) = dA(2333)/dV(1265) - B(3834) = RCT(2333)*V(5250) -! B(3835) = dA(2333)/dV(5250) - B(3835) = RCT(2333)*V(1265) -! B(3836) = dA(2334)/dV(2542) - B(3836) = RCT(2334) -! B(3837) = dA(2335)/dV(2542) - B(3837) = RCT(2335)*V(5250) -! B(3838) = dA(2335)/dV(5250) - B(3838) = RCT(2335)*V(2542) -! B(3839) = dA(2336)/dV(2374) - B(3839) = RCT(2336) -! B(3840) = dA(2337)/dV(896) - B(3840) = RCT(2337)*V(5250) -! B(3841) = dA(2337)/dV(5250) - B(3841) = RCT(2337)*V(896) -! B(3842) = dA(2338)/dV(2006) - B(3842) = RCT(2338)*V(5250) -! B(3843) = dA(2338)/dV(5250) - B(3843) = RCT(2338)*V(2006) -! B(3844) = dA(2339)/dV(2006) - B(3844) = RCT(2339)*V(5250) -! B(3845) = dA(2339)/dV(5250) - B(3845) = RCT(2339)*V(2006) -! B(3846) = dA(2340)/dV(2006) - B(3846) = RCT(2340) -! B(3847) = dA(2341)/dV(1977) - B(3847) = RCT(2341)*V(5250) -! B(3848) = dA(2341)/dV(5250) - B(3848) = RCT(2341)*V(1977) -! B(3849) = dA(2342)/dV(2747) - B(3849) = RCT(2342) -! B(3850) = dA(2343)/dV(1194) - B(3850) = RCT(2343)*V(5250) -! B(3851) = dA(2343)/dV(5250) - B(3851) = RCT(2343)*V(1194) -! B(3852) = dA(2344)/dV(3716) - B(3852) = RCT(2344)*V(5250) -! B(3853) = dA(2344)/dV(5250) - B(3853) = RCT(2344)*V(3716) -! B(3854) = dA(2345)/dV(3716) - B(3854) = RCT(2345) -! B(3855) = dA(2346)/dV(1994) - B(3855) = RCT(2346) -! B(3856) = dA(2347)/dV(1994) - B(3856) = RCT(2347)*V(5250) -! B(3857) = dA(2347)/dV(5250) - B(3857) = RCT(2347)*V(1994) -! B(3858) = dA(2348)/dV(1994) - B(3858) = RCT(2348)*V(5250) -! B(3859) = dA(2348)/dV(5250) - B(3859) = RCT(2348)*V(1994) -! B(3860) = dA(2349)/dV(2459) - B(3860) = RCT(2349) -! B(3861) = dA(2350)/dV(2459) - B(3861) = RCT(2350)*V(5250) -! B(3862) = dA(2350)/dV(5250) - B(3862) = RCT(2350)*V(2459) -! B(3863) = dA(2351)/dV(2891) - B(3863) = RCT(2351) -! B(3864) = dA(2352)/dV(2891) - B(3864) = RCT(2352) -! B(3865) = dA(2353)/dV(5057) - B(3865) = RCT(2353) -! B(3866) = dA(2354)/dV(5057) - B(3866) = RCT(2354)*V(5256) -! B(3867) = dA(2354)/dV(5256) - B(3867) = RCT(2354)*V(5057) -! B(3868) = dA(2355)/dV(5057) - B(3868) = RCT(2355)*V(5250) -! B(3869) = dA(2355)/dV(5250) - B(3869) = RCT(2355)*V(5057) -! B(3870) = dA(2356)/dV(1948) - B(3870) = RCT(2356)*V(5250) -! B(3871) = dA(2356)/dV(5250) - B(3871) = RCT(2356)*V(1948) -! B(3872) = dA(2357)/dV(1948) - B(3872) = RCT(2357)*V(5250) -! B(3873) = dA(2357)/dV(5250) - B(3873) = RCT(2357)*V(1948) -! B(3874) = dA(2358)/dV(1948) - B(3874) = RCT(2358) -! B(3875) = dA(2359)/dV(1976) - B(3875) = RCT(2359)*V(5250) -! B(3876) = dA(2359)/dV(5250) - B(3876) = RCT(2359)*V(1976) -! B(3877) = dA(2360)/dV(3422) - B(3877) = RCT(2360) -! B(3878) = dA(2361)/dV(3422) - B(3878) = RCT(2361) -! B(3879) = dA(2362)/dV(1124) - B(3879) = RCT(2362)*V(5250) -! B(3880) = dA(2362)/dV(5250) - B(3880) = RCT(2362)*V(1124) -! B(3881) = dA(2363)/dV(3536) - B(3881) = RCT(2363)*V(5250) -! B(3882) = dA(2363)/dV(5250) - B(3882) = RCT(2363)*V(3536) -! B(3883) = dA(2364)/dV(3310) - B(3883) = RCT(2364)*V(5250) -! B(3884) = dA(2364)/dV(5250) - B(3884) = RCT(2364)*V(3310) -! B(3885) = dA(2365)/dV(3310) - B(3885) = RCT(2365)*V(5250) -! B(3886) = dA(2365)/dV(5250) - B(3886) = RCT(2365)*V(3310) -! B(3887) = dA(2366)/dV(3310) - B(3887) = RCT(2366) -! B(3888) = dA(2367)/dV(1957) - B(3888) = RCT(2367)*V(5250) -! B(3889) = dA(2367)/dV(5250) - B(3889) = RCT(2367)*V(1957) -! B(3890) = dA(2368)/dV(2090) - B(3890) = RCT(2368) -! B(3891) = dA(2369)/dV(5012) - B(3891) = RCT(2369)*V(5256) -! B(3892) = dA(2369)/dV(5256) - B(3892) = RCT(2369)*V(5012) -! B(3893) = dA(2370)/dV(5012) - B(3893) = RCT(2370)*V(5250) -! B(3894) = dA(2370)/dV(5250) - B(3894) = RCT(2370)*V(5012) -! B(3895) = dA(2371)/dV(5012) - B(3895) = RCT(2371) -! B(3896) = dA(2372)/dV(1842) - B(3896) = RCT(2372) -! B(3897) = dA(2373)/dV(1842) - B(3897) = RCT(2373)*V(5250) -! B(3898) = dA(2373)/dV(5250) - B(3898) = RCT(2373)*V(1842) -! B(3899) = dA(2374)/dV(1842) - B(3899) = RCT(2374)*V(5250) -! B(3900) = dA(2374)/dV(5250) - B(3900) = RCT(2374)*V(1842) -! B(3901) = dA(2375)/dV(2220) - B(3901) = RCT(2375) -! B(3902) = dA(2376)/dV(2220) - B(3902) = RCT(2376)*V(5250) -! B(3903) = dA(2376)/dV(5250) - B(3903) = RCT(2376)*V(2220) -! B(3904) = dA(2377)/dV(2647) - B(3904) = RCT(2377) -! B(3905) = dA(2378)/dV(2647) - B(3905) = RCT(2378) -! B(3906) = dA(2379)/dV(4737) - B(3906) = RCT(2379) -! B(3907) = dA(2380)/dV(4737) - B(3907) = RCT(2380)*V(5256) -! B(3908) = dA(2380)/dV(5256) - B(3908) = RCT(2380)*V(4737) -! B(3909) = dA(2381)/dV(4737) - B(3909) = RCT(2381)*V(5250) -! B(3910) = dA(2381)/dV(5250) - B(3910) = RCT(2381)*V(4737) -! B(3911) = dA(2382)/dV(4737) - B(3911) = RCT(2382)*V(5250) -! B(3912) = dA(2382)/dV(5250) - B(3912) = RCT(2382)*V(4737) -! B(3913) = dA(2383)/dV(3444) - B(3913) = RCT(2383)*V(5250) -! B(3914) = dA(2383)/dV(5250) - B(3914) = RCT(2383)*V(3444) -! B(3915) = dA(2384)/dV(3444) - B(3915) = RCT(2384)*V(5250) -! B(3916) = dA(2384)/dV(5250) - B(3916) = RCT(2384)*V(3444) -! B(3917) = dA(2385)/dV(3444) - B(3917) = RCT(2385) -! B(3918) = dA(2386)/dV(3159) - B(3918) = RCT(2386)*V(5250) -! B(3919) = dA(2386)/dV(5250) - B(3919) = RCT(2386)*V(3159) -! B(3920) = dA(2387)/dV(1924) - B(3920) = RCT(2387) -! B(3921) = dA(2388)/dV(3018) - B(3921) = RCT(2388)*V(5250) -! B(3922) = dA(2388)/dV(5250) - B(3922) = RCT(2388)*V(3018) -! B(3923) = dA(2389)/dV(3018) - B(3923) = RCT(2389)*V(5250) -! B(3924) = dA(2389)/dV(5250) - B(3924) = RCT(2389)*V(3018) -! B(3925) = dA(2390)/dV(3018) - B(3925) = RCT(2390) -! B(3926) = dA(2391)/dV(765) - B(3926) = RCT(2391) -! B(3927) = dA(2392)/dV(1400) - B(3927) = RCT(2392)*V(5250) -! B(3928) = dA(2392)/dV(5250) - B(3928) = RCT(2392)*V(1400) -! B(3929) = dA(2393)/dV(278) - B(3929) = RCT(2393)*V(5250) -! B(3930) = dA(2393)/dV(5250) - B(3930) = RCT(2393)*V(278) -! B(3931) = dA(2394)/dV(3653) - B(3931) = RCT(2394)*V(5250) -! B(3932) = dA(2394)/dV(5250) - B(3932) = RCT(2394)*V(3653) -! B(3933) = dA(2395)/dV(3653) - B(3933) = RCT(2395) -! B(3934) = dA(2396)/dV(3623) - B(3934) = RCT(2396)*V(5250) -! B(3935) = dA(2396)/dV(5250) - B(3935) = RCT(2396)*V(3623) -! B(3936) = dA(2397)/dV(3623) - B(3936) = RCT(2397)*V(5250) -! B(3937) = dA(2397)/dV(5250) - B(3937) = RCT(2397)*V(3623) -! B(3938) = dA(2398)/dV(3623) - B(3938) = RCT(2398) -! B(3939) = dA(2399)/dV(3623) - B(3939) = RCT(2399) -! B(3940) = dA(2400)/dV(2029) - B(3940) = RCT(2400) -! B(3941) = dA(2401)/dV(2438) - B(3941) = RCT(2401)*V(5250) -! B(3942) = dA(2401)/dV(5250) - B(3942) = RCT(2401)*V(2438) -! B(3943) = dA(2402)/dV(2438) - B(3943) = RCT(2402) -! B(3944) = dA(2403)/dV(1671) - B(3944) = RCT(2403)*V(5250) -! B(3945) = dA(2403)/dV(5250) - B(3945) = RCT(2403)*V(1671) -! B(3946) = dA(2404)/dV(1671) - B(3946) = RCT(2404) -! B(3947) = dA(2405)/dV(1897) - B(3947) = RCT(2405)*V(5250) -! B(3948) = dA(2405)/dV(5250) - B(3948) = RCT(2405)*V(1897) -! B(3949) = dA(2406)/dV(1897) - B(3949) = RCT(2406)*V(5250) -! B(3950) = dA(2406)/dV(5250) - B(3950) = RCT(2406)*V(1897) -! B(3951) = dA(2407)/dV(1897) - B(3951) = RCT(2407) -! B(3952) = dA(2408)/dV(2550) - B(3952) = RCT(2408) -! B(3953) = dA(2409)/dV(1081) - B(3953) = RCT(2409)*V(5250) -! B(3954) = dA(2409)/dV(5250) - B(3954) = RCT(2409)*V(1081) -! B(3955) = dA(2410)/dV(2001) - B(3955) = RCT(2410) -! B(3956) = dA(2411)/dV(2001) - B(3956) = RCT(2411)*V(5250) -! B(3957) = dA(2411)/dV(5250) - B(3957) = RCT(2411)*V(2001) -! B(3958) = dA(2412)/dV(3547) - B(3958) = RCT(2412) -! B(3959) = dA(2413)/dV(3547) - B(3959) = RCT(2413)*V(5250) -! B(3960) = dA(2413)/dV(5250) - B(3960) = RCT(2413)*V(3547) -! B(3961) = dA(2414)/dV(3207) - B(3961) = RCT(2414)*V(5250) -! B(3962) = dA(2414)/dV(5250) - B(3962) = RCT(2414)*V(3207) -! B(3963) = dA(2415)/dV(3207) - B(3963) = RCT(2415) -! B(3964) = dA(2416)/dV(3207) - B(3964) = RCT(2416) -! B(3965) = dA(2417)/dV(630) - B(3965) = RCT(2417) -! B(3966) = dA(2418)/dV(1582) - B(3966) = RCT(2418)*V(5250) -! B(3967) = dA(2418)/dV(5250) - B(3967) = RCT(2418)*V(1582) -! B(3968) = dA(2419)/dV(1582) - B(3968) = RCT(2419) -! B(3969) = dA(2420)/dV(3892) - B(3969) = RCT(2420)*V(5256) -! B(3970) = dA(2420)/dV(5256) - B(3970) = RCT(2420)*V(3892) -! B(3971) = dA(2421)/dV(3892) - B(3971) = RCT(2421)*V(5250) -! B(3972) = dA(2421)/dV(5250) - B(3972) = RCT(2421)*V(3892) -! B(3973) = dA(2422)/dV(3892) - B(3973) = RCT(2422) -! B(3974) = dA(2423)/dV(818) - B(3974) = RCT(2423)*V(5250) -! B(3975) = dA(2423)/dV(5250) - B(3975) = RCT(2423)*V(818) -! B(3976) = dA(2424)/dV(1066) - B(3976) = RCT(2424)*V(5250) -! B(3977) = dA(2424)/dV(5250) - B(3977) = RCT(2424)*V(1066) -! B(3978) = dA(2425)/dV(1066) - B(3978) = RCT(2425) -! B(3979) = dA(2426)/dV(2657) - B(3979) = RCT(2426)*V(5250) -! B(3980) = dA(2426)/dV(5250) - B(3980) = RCT(2426)*V(2657) -! B(3981) = dA(2427)/dV(2657) - B(3981) = RCT(2427) -! B(3982) = dA(2428)/dV(5232) - B(3982) = RCT(2428)*V(5255) -! B(3983) = dA(2428)/dV(5255) - B(3983) = RCT(2428)*V(5232) -! B(3984) = dA(2429)/dV(5232) - B(3984) = RCT(2429)*V(5255) -! B(3985) = dA(2429)/dV(5255) - B(3985) = RCT(2429)*V(5232) -! B(3986) = dA(2430)/dV(5232) - B(3986) = RCT(2430)*V(5255) -! B(3987) = dA(2430)/dV(5255) - B(3987) = RCT(2430)*V(5232) -! B(3988) = dA(2431)/dV(5232) - B(3988) = RCT(2431)*V(5252) -! B(3989) = dA(2431)/dV(5252) - B(3989) = RCT(2431)*V(5232) -! B(3990) = dA(2432)/dV(5232) - B(3990) = RCT(2432)*V(5253) -! B(3991) = dA(2432)/dV(5253) - B(3991) = RCT(2432)*V(5232) -! B(3992) = dA(2433)/dV(5232) - B(3992) = RCT(2433)*V(5256) -! B(3993) = dA(2433)/dV(5256) - B(3993) = RCT(2433)*V(5232) -! B(3994) = dA(2434)/dV(5232) - B(3994) = RCT(2434) -! B(3995) = dA(2435)/dV(5232) - B(3995) = RCT(2435) -! B(3996) = dA(2436)/dV(4924) - B(3996) = RCT(2436)*V(5255) -! B(3997) = dA(2436)/dV(5255) - B(3997) = RCT(2436)*V(4924) -! B(3998) = dA(2437)/dV(4924) - B(3998) = RCT(2437)*V(5255) -! B(3999) = dA(2437)/dV(5255) - B(3999) = RCT(2437)*V(4924) -! B(4000) = dA(2438)/dV(4924) - B(4000) = RCT(2438)*V(5252) -! B(4001) = dA(2438)/dV(5252) - B(4001) = RCT(2438)*V(4924) -! B(4002) = dA(2439)/dV(4924) - B(4002) = RCT(2439)*V(5253) -! B(4003) = dA(2439)/dV(5253) - B(4003) = RCT(2439)*V(4924) -! B(4004) = dA(2440)/dV(4924) - B(4004) = RCT(2440)*V(5256) -! B(4005) = dA(2440)/dV(5256) - B(4005) = RCT(2440)*V(4924) -! B(4006) = dA(2441)/dV(4924) - B(4006) = RCT(2441) -! B(4007) = dA(2442)/dV(3198) - B(4007) = RCT(2442)*V(5250) -! B(4008) = dA(2442)/dV(5250) - B(4008) = RCT(2442)*V(3198) -! B(4009) = dA(2443)/dV(3198) - B(4009) = RCT(2443)*V(5250) -! B(4010) = dA(2443)/dV(5250) - B(4010) = RCT(2443)*V(3198) -! B(4011) = dA(2444)/dV(3198) - B(4011) = RCT(2444) -! B(4012) = dA(2445)/dV(1808) - B(4012) = RCT(2445) -! B(4013) = dA(2446)/dV(578) - B(4013) = RCT(2446)*V(5250) -! B(4014) = dA(2446)/dV(5250) - B(4014) = RCT(2446)*V(578) -! B(4015) = dA(2447)/dV(2276) - B(4015) = RCT(2447)*V(5250) -! B(4016) = dA(2447)/dV(5250) - B(4016) = RCT(2447)*V(2276) -! B(4017) = dA(2448)/dV(2010) - B(4017) = RCT(2448)*V(5250) -! B(4018) = dA(2448)/dV(5250) - B(4018) = RCT(2448)*V(2010) -! B(4019) = dA(2449)/dV(2010) - B(4019) = RCT(2449)*V(5250) -! B(4020) = dA(2449)/dV(5250) - B(4020) = RCT(2449)*V(2010) -! B(4021) = dA(2450)/dV(2010) - B(4021) = RCT(2450) -! B(4022) = dA(2451)/dV(2869) - B(4022) = RCT(2451) -! B(4023) = dA(2452)/dV(1894) - B(4023) = RCT(2452)*V(5250) -! B(4024) = dA(2452)/dV(5250) - B(4024) = RCT(2452)*V(1894) -! B(4025) = dA(2453)/dV(232) - B(4025) = RCT(2453)*V(5250) -! B(4026) = dA(2453)/dV(5250) - B(4026) = RCT(2453)*V(232) -! B(4027) = dA(2454)/dV(4908) - B(4027) = RCT(2454)*V(5251) -! B(4028) = dA(2454)/dV(5251) - B(4028) = RCT(2454)*V(4908) -! B(4029) = dA(2455)/dV(4908) - B(4029) = RCT(2455)*V(5252) -! B(4030) = dA(2455)/dV(5252) - B(4030) = RCT(2455)*V(4908) -! B(4031) = dA(2456)/dV(4908) - B(4031) = RCT(2456)*V(5253) -! B(4032) = dA(2456)/dV(5253) - B(4032) = RCT(2456)*V(4908) -! B(4033) = dA(2457)/dV(4908) - B(4033) = RCT(2457)*V(5254) -! B(4034) = dA(2457)/dV(5254) - B(4034) = RCT(2457)*V(4908) -! B(4035) = dA(2458)/dV(4908) - B(4035) = RCT(2458) -! B(4036) = dA(2459)/dV(4908) - B(4036) = RCT(2459) -! B(4037) = dA(2460)/dV(5243) - B(4037) = RCT(2460)*V(5255) -! B(4038) = dA(2460)/dV(5255) - B(4038) = RCT(2460)*V(5243) -! B(4039) = dA(2461)/dV(5243) - B(4039) = RCT(2461)*V(5255) -! B(4040) = dA(2461)/dV(5255) - B(4040) = RCT(2461)*V(5243) -! B(4041) = dA(2462)/dV(5243) - B(4041) = RCT(2462)*V(5255) -! B(4042) = dA(2462)/dV(5255) - B(4042) = RCT(2462)*V(5243) -! B(4043) = dA(2463)/dV(5243) - B(4043) = RCT(2463)*V(5252) -! B(4044) = dA(2463)/dV(5252) - B(4044) = RCT(2463)*V(5243) -! B(4045) = dA(2464)/dV(5243) - B(4045) = RCT(2464)*V(5253) -! B(4046) = dA(2464)/dV(5253) - B(4046) = RCT(2464)*V(5243) -! B(4047) = dA(2465)/dV(5243) - B(4047) = RCT(2465)*V(5256) -! B(4048) = dA(2465)/dV(5256) - B(4048) = RCT(2465)*V(5243) -! B(4049) = dA(2466)/dV(5243) - B(4049) = RCT(2466) -! B(4050) = dA(2467)/dV(5243) - B(4050) = RCT(2467) -! B(4051) = dA(2468)/dV(5223) - B(4051) = RCT(2468)*V(5251) -! B(4052) = dA(2468)/dV(5251) - B(4052) = RCT(2468)*V(5223) -! B(4053) = dA(2469)/dV(5223) - B(4053) = RCT(2469)*V(5252) -! B(4054) = dA(2469)/dV(5252) - B(4054) = RCT(2469)*V(5223) -! B(4055) = dA(2470)/dV(5223) - B(4055) = RCT(2470)*V(5253) -! B(4056) = dA(2470)/dV(5253) - B(4056) = RCT(2470)*V(5223) -! B(4057) = dA(2471)/dV(5223) - B(4057) = RCT(2471)*V(5254) -! B(4058) = dA(2471)/dV(5254) - B(4058) = RCT(2471)*V(5223) -! B(4059) = dA(2472)/dV(5223) - B(4059) = RCT(2472) -! B(4060) = dA(2473)/dV(5223) - B(4060) = RCT(2473) -! B(4061) = dA(2474)/dV(3243) - B(4061) = RCT(2474)*V(5250) -! B(4062) = dA(2474)/dV(5250) - B(4062) = RCT(2474)*V(3243) -! B(4063) = dA(2475)/dV(3243) - B(4063) = RCT(2475)*V(5250) -! B(4064) = dA(2475)/dV(5250) - B(4064) = RCT(2475)*V(3243) -! B(4065) = dA(2476)/dV(3243) - B(4065) = RCT(2476) -! B(4066) = dA(2477)/dV(1815) - B(4066) = RCT(2477) -! B(4067) = dA(2478)/dV(3755) - B(4067) = RCT(2478)*V(5250) -! B(4068) = dA(2478)/dV(5250) - B(4068) = RCT(2478)*V(3755) -! B(4069) = dA(2479)/dV(3755) - B(4069) = RCT(2479) -! B(4070) = dA(2480)/dV(1120) - B(4070) = RCT(2480)*V(5250) -! B(4071) = dA(2480)/dV(5250) - B(4071) = RCT(2480)*V(1120) -! B(4072) = dA(2481)/dV(3256) - B(4072) = RCT(2481)*V(5250) -! B(4073) = dA(2481)/dV(5250) - B(4073) = RCT(2481)*V(3256) -! B(4074) = dA(2482)/dV(3256) - B(4074) = RCT(2482)*V(5250) -! B(4075) = dA(2482)/dV(5250) - B(4075) = RCT(2482)*V(3256) -! B(4076) = dA(2483)/dV(3256) - B(4076) = RCT(2483) -! B(4077) = dA(2484)/dV(1882) - B(4077) = RCT(2484) -! B(4078) = dA(2485)/dV(3603) - B(4078) = RCT(2485)*V(5250) -! B(4079) = dA(2485)/dV(5250) - B(4079) = RCT(2485)*V(3603) -! B(4080) = dA(2486)/dV(3603) - B(4080) = RCT(2486) -! B(4081) = dA(2487)/dV(2044) - B(4081) = RCT(2487) -! B(4082) = dA(2488)/dV(2044) - B(4082) = RCT(2488)*V(5250) -! B(4083) = dA(2488)/dV(5250) - B(4083) = RCT(2488)*V(2044) -! B(4084) = dA(2489)/dV(2044) - B(4084) = RCT(2489)*V(5250) -! B(4085) = dA(2489)/dV(5250) - B(4085) = RCT(2489)*V(2044) -! B(4086) = dA(2490)/dV(3394) - B(4086) = RCT(2490) -! B(4087) = dA(2491)/dV(3394) - B(4087) = RCT(2491)*V(5250) -! B(4088) = dA(2491)/dV(5250) - B(4088) = RCT(2491)*V(3394) -! B(4089) = dA(2492)/dV(1634) - B(4089) = RCT(2492) -! B(4090) = dA(2493)/dV(86) - B(4090) = RCT(2493) -! B(4091) = dA(2494)/dV(4420) - B(4091) = RCT(2494)*V(5250) -! B(4092) = dA(2494)/dV(5250) - B(4092) = RCT(2494)*V(4420) -! B(4093) = dA(2495)/dV(4420) - B(4093) = RCT(2495)*V(5250) -! B(4094) = dA(2495)/dV(5250) - B(4094) = RCT(2495)*V(4420) -! B(4095) = dA(2496)/dV(4420) - B(4095) = RCT(2496) -! B(4096) = dA(2497)/dV(4420) - B(4096) = RCT(2497) -! B(4097) = dA(2498)/dV(2861) - B(4097) = RCT(2498) -! B(4098) = dA(2499)/dV(987) - B(4098) = RCT(2499)*V(5250) -! B(4099) = dA(2499)/dV(5250) - B(4099) = RCT(2499)*V(987) -! B(4100) = dA(2500)/dV(987) - B(4100) = RCT(2500) -! B(4101) = dA(2501)/dV(751) - B(4101) = RCT(2501)*V(5250) -! B(4102) = dA(2501)/dV(5250) - B(4102) = RCT(2501)*V(751) -! B(4103) = dA(2502)/dV(3003) - B(4103) = RCT(2502)*V(5250) -! B(4104) = dA(2502)/dV(5250) - B(4104) = RCT(2502)*V(3003) -! B(4105) = dA(2503)/dV(3003) - B(4105) = RCT(2503) -! B(4106) = dA(2504)/dV(2188) - B(4106) = RCT(2504) -! B(4107) = dA(2505)/dV(2188) - B(4107) = RCT(2505)*V(5250) -! B(4108) = dA(2505)/dV(5250) - B(4108) = RCT(2505)*V(2188) -! B(4109) = dA(2506)/dV(2188) - B(4109) = RCT(2506)*V(5250) -! B(4110) = dA(2506)/dV(5250) - B(4110) = RCT(2506)*V(2188) -! B(4111) = dA(2507)/dV(1749) - B(4111) = RCT(2507) -! B(4112) = dA(2508)/dV(1749) - B(4112) = RCT(2508)*V(5250) -! B(4113) = dA(2508)/dV(5250) - B(4113) = RCT(2508)*V(1749) -! B(4114) = dA(2509)/dV(691) - B(4114) = RCT(2509)*V(5250) -! B(4115) = dA(2509)/dV(5250) - B(4115) = RCT(2509)*V(691) -! B(4116) = dA(2510)/dV(1500) - B(4116) = RCT(2510)*V(5250) -! B(4117) = dA(2510)/dV(5250) - B(4117) = RCT(2510)*V(1500) -! B(4118) = dA(2511)/dV(1500) - B(4118) = RCT(2511) -! B(4119) = dA(2512)/dV(2537) - B(4119) = RCT(2512)*V(5250) -! B(4120) = dA(2512)/dV(5250) - B(4120) = RCT(2512)*V(2537) -! B(4121) = dA(2513)/dV(2537) - B(4121) = RCT(2513) -! B(4122) = dA(2514)/dV(3540) - B(4122) = RCT(2514)*V(5250) -! B(4123) = dA(2514)/dV(5250) - B(4123) = RCT(2514)*V(3540) -! B(4124) = dA(2515)/dV(3540) - B(4124) = RCT(2515)*V(5250) -! B(4125) = dA(2515)/dV(5250) - B(4125) = RCT(2515)*V(3540) -! B(4126) = dA(2516)/dV(3540) - B(4126) = RCT(2516) -! B(4127) = dA(2517)/dV(3540) - B(4127) = RCT(2517) -! B(4128) = dA(2518)/dV(2077) - B(4128) = RCT(2518)*V(5250) -! B(4129) = dA(2518)/dV(5250) - B(4129) = RCT(2518)*V(2077) -! B(4130) = dA(2519)/dV(2077) - B(4130) = RCT(2519) -! B(4131) = dA(2520)/dV(3383) - B(4131) = RCT(2520) -! B(4132) = dA(2521)/dV(3383) - B(4132) = RCT(2521) -! B(4133) = dA(2522)/dV(5242) - B(4133) = RCT(2522)*V(5256) -! B(4134) = dA(2522)/dV(5256) - B(4134) = RCT(2522)*V(5242) -! B(4135) = dA(2523)/dV(5242) - B(4135) = RCT(2523)*V(5250) -! B(4136) = dA(2523)/dV(5250) - B(4136) = RCT(2523)*V(5242) -! B(4137) = dA(2524)/dV(5242) - B(4137) = RCT(2524) -! B(4138) = dA(2525)/dV(5055) - B(4138) = RCT(2525) -! B(4139) = dA(2526)/dV(5055) - B(4139) = RCT(2526)*V(5256) -! B(4140) = dA(2526)/dV(5256) - B(4140) = RCT(2526)*V(5055) -! B(4141) = dA(2527)/dV(5055) - B(4141) = RCT(2527)*V(5250) -! B(4142) = dA(2527)/dV(5250) - B(4142) = RCT(2527)*V(5055) -! B(4143) = dA(2528)/dV(5055) - B(4143) = RCT(2528)*V(5250) -! B(4144) = dA(2528)/dV(5250) - B(4144) = RCT(2528)*V(5055) -! B(4145) = dA(2529)/dV(2292) - B(4145) = RCT(2529) -! B(4146) = dA(2530)/dV(2292) - B(4146) = RCT(2530)*V(5250) -! B(4147) = dA(2530)/dV(5250) - B(4147) = RCT(2530)*V(2292) -! B(4148) = dA(2531)/dV(2292) - B(4148) = RCT(2531)*V(5250) -! B(4149) = dA(2531)/dV(5250) - B(4149) = RCT(2531)*V(2292) -! B(4150) = dA(2532)/dV(1974) - B(4150) = RCT(2532) -! B(4151) = dA(2533)/dV(1974) - B(4151) = RCT(2533)*V(5250) -! B(4152) = dA(2533)/dV(5250) - B(4152) = RCT(2533)*V(1974) -! B(4153) = dA(2534)/dV(1695) - B(4153) = RCT(2534) -! B(4154) = dA(2535)/dV(631) - B(4154) = RCT(2535)*V(5250) -! B(4155) = dA(2535)/dV(5250) - B(4155) = RCT(2535)*V(631) -! B(4156) = dA(2536)/dV(1466) - B(4156) = RCT(2536)*V(5250) -! B(4157) = dA(2536)/dV(5250) - B(4157) = RCT(2536)*V(1466) -! B(4158) = dA(2537)/dV(1466) - B(4158) = RCT(2537) -! B(4159) = dA(2538)/dV(2612) - B(4159) = RCT(2538)*V(5250) -! B(4160) = dA(2538)/dV(5250) - B(4160) = RCT(2538)*V(2612) -! B(4161) = dA(2539)/dV(2612) - B(4161) = RCT(2539) -! B(4162) = dA(2540)/dV(2463) - B(4162) = RCT(2540)*V(5250) -! B(4163) = dA(2540)/dV(5250) - B(4163) = RCT(2540)*V(2463) -! B(4164) = dA(2541)/dV(2463) - B(4164) = RCT(2541)*V(5250) -! B(4165) = dA(2541)/dV(5250) - B(4165) = RCT(2541)*V(2463) -! B(4166) = dA(2542)/dV(2463) - B(4166) = RCT(2542) -! B(4167) = dA(2543)/dV(2338) - B(4167) = RCT(2543)*V(5250) -! B(4168) = dA(2543)/dV(5250) - B(4168) = RCT(2543)*V(2338) -! B(4169) = dA(2544)/dV(2338) - B(4169) = RCT(2544) -! B(4170) = dA(2545)/dV(1702) - B(4170) = RCT(2545) -! B(4171) = dA(2546)/dV(3995) - B(4171) = RCT(2546)*V(5256) -! B(4172) = dA(2546)/dV(5256) - B(4172) = RCT(2546)*V(3995) -! B(4173) = dA(2547)/dV(3995) - B(4173) = RCT(2547)*V(5250) -! B(4174) = dA(2547)/dV(5250) - B(4174) = RCT(2547)*V(3995) -! B(4175) = dA(2548)/dV(3995) - B(4175) = RCT(2548) -! B(4176) = dA(2549)/dV(2993) - B(4176) = RCT(2549)*V(5250) -! B(4177) = dA(2549)/dV(5250) - B(4177) = RCT(2549)*V(2993) -! B(4178) = dA(2550)/dV(2993) - B(4178) = RCT(2550) -! B(4179) = dA(2551)/dV(2993) - B(4179) = RCT(2551) -! B(4180) = dA(2552)/dV(2992) - B(4180) = RCT(2552) -! B(4181) = dA(2553)/dV(2126) - B(4181) = RCT(2553) -! B(4182) = dA(2554)/dV(2126) - B(4182) = RCT(2554)*V(5250) -! B(4183) = dA(2554)/dV(5250) - B(4183) = RCT(2554)*V(2126) -! B(4184) = dA(2555)/dV(2126) - B(4184) = RCT(2555)*V(5250) -! B(4185) = dA(2555)/dV(5250) - B(4185) = RCT(2555)*V(2126) -! B(4186) = dA(2556)/dV(2427) - B(4186) = RCT(2556) -! B(4187) = dA(2557)/dV(2427) - B(4187) = RCT(2557)*V(5250) -! B(4188) = dA(2557)/dV(5250) - B(4188) = RCT(2557)*V(2427) -! B(4189) = dA(2558)/dV(1662) - B(4189) = RCT(2558) -! B(4190) = dA(2559)/dV(611) - B(4190) = RCT(2559)*V(5250) -! B(4191) = dA(2559)/dV(5250) - B(4191) = RCT(2559)*V(611) -! B(4192) = dA(2560)/dV(1332) - B(4192) = RCT(2560)*V(5250) -! B(4193) = dA(2560)/dV(5250) - B(4193) = RCT(2560)*V(1332) -! B(4194) = dA(2561)/dV(1332) - B(4194) = RCT(2561) -! B(4195) = dA(2562)/dV(2611) - B(4195) = RCT(2562)*V(5250) -! B(4196) = dA(2562)/dV(5250) - B(4196) = RCT(2562)*V(2611) -! B(4197) = dA(2563)/dV(2611) - B(4197) = RCT(2563) -! B(4198) = dA(2564)/dV(1880) - B(4198) = RCT(2564)*V(5250) -! B(4199) = dA(2564)/dV(5250) - B(4199) = RCT(2564)*V(1880) -! B(4200) = dA(2565)/dV(1880) - B(4200) = RCT(2565)*V(5250) -! B(4201) = dA(2565)/dV(5250) - B(4201) = RCT(2565)*V(1880) -! B(4202) = dA(2566)/dV(1880) - B(4202) = RCT(2566) -! B(4203) = dA(2567)/dV(2106) - B(4203) = RCT(2567)*V(5250) -! B(4204) = dA(2567)/dV(5250) - B(4204) = RCT(2567)*V(2106) -! B(4205) = dA(2568)/dV(2106) - B(4205) = RCT(2568) -! B(4206) = dA(2569)/dV(1725) - B(4206) = RCT(2569) -! B(4207) = dA(2570)/dV(5143) - B(4207) = RCT(2570) -! B(4208) = dA(2571)/dV(5143) - B(4208) = RCT(2571)*V(5256) -! B(4209) = dA(2571)/dV(5256) - B(4209) = RCT(2571)*V(5143) -! B(4210) = dA(2572)/dV(5143) - B(4210) = RCT(2572)*V(5250) -! B(4211) = dA(2572)/dV(5250) - B(4211) = RCT(2572)*V(5143) -! B(4212) = dA(2573)/dV(2318) - B(4212) = RCT(2573) -! B(4213) = dA(2574)/dV(2318) - B(4213) = RCT(2574)*V(5250) -! B(4214) = dA(2574)/dV(5250) - B(4214) = RCT(2574)*V(2318) -! B(4215) = dA(2575)/dV(2318) - B(4215) = RCT(2575)*V(5250) -! B(4216) = dA(2575)/dV(5250) - B(4216) = RCT(2575)*V(2318) -! B(4217) = dA(2576)/dV(1921) - B(4217) = RCT(2576) -! B(4218) = dA(2577)/dV(1921) - B(4218) = RCT(2577)*V(5250) -! B(4219) = dA(2577)/dV(5250) - B(4219) = RCT(2577)*V(1921) -! B(4220) = dA(2578)/dV(2926) - B(4220) = RCT(2578) -! B(4221) = dA(2579)/dV(2926) - B(4221) = RCT(2579) -! B(4222) = dA(2580)/dV(3099) - B(4222) = RCT(2580)*V(5250) -! B(4223) = dA(2580)/dV(5250) - B(4223) = RCT(2580)*V(3099) -! B(4224) = dA(2581)/dV(3294) - B(4224) = RCT(2581) -! B(4225) = dA(2582)/dV(3294) - B(4225) = RCT(2582)*V(5250) -! B(4226) = dA(2582)/dV(5250) - B(4226) = RCT(2582)*V(3294) -! B(4227) = dA(2583)/dV(3294) - B(4227) = RCT(2583)*V(5250) -! B(4228) = dA(2583)/dV(5250) - B(4228) = RCT(2583)*V(3294) -! B(4229) = dA(2584)/dV(3254) - B(4229) = RCT(2584) -! B(4230) = dA(2585)/dV(3254) - B(4230) = RCT(2585)*V(5250) -! B(4231) = dA(2585)/dV(5250) - B(4231) = RCT(2585)*V(3254) -! B(4232) = dA(2586)/dV(875) - B(4232) = RCT(2586)*V(5250) -! B(4233) = dA(2586)/dV(5250) - B(4233) = RCT(2586)*V(875) -! B(4234) = dA(2587)/dV(875) - B(4234) = RCT(2587) -! B(4235) = dA(2588)/dV(2526) - B(4235) = RCT(2588) -! B(4236) = dA(2589)/dV(5023) - B(4236) = RCT(2589) -! B(4237) = dA(2590)/dV(5023) - B(4237) = RCT(2590)*V(5256) -! B(4238) = dA(2590)/dV(5256) - B(4238) = RCT(2590)*V(5023) -! B(4239) = dA(2591)/dV(5023) - B(4239) = RCT(2591)*V(5250) -! B(4240) = dA(2591)/dV(5250) - B(4240) = RCT(2591)*V(5023) -! B(4241) = dA(2592)/dV(484) - B(4241) = RCT(2592)*V(5250) -! B(4242) = dA(2592)/dV(5250) - B(4242) = RCT(2592)*V(484) -! B(4243) = dA(2593)/dV(4708) - B(4243) = RCT(2593)*V(5250) -! B(4244) = dA(2593)/dV(5250) - B(4244) = RCT(2593)*V(4708) -! B(4245) = dA(2594)/dV(4708) - B(4245) = RCT(2594) -! B(4246) = dA(2595)/dV(2627) - B(4246) = 9.258e-11*V(5250) -! B(4247) = dA(2595)/dV(5250) - B(4247) = 9.258e-11*V(2627) -! B(4248) = dA(2596)/dV(2627) - B(4248) = RCT(2596) -! B(4249) = dA(2597)/dV(3587) - B(4249) = RCT(2597) -! B(4250) = dA(2598)/dV(3587) - B(4250) = RCT(2598)*V(5250) -! B(4251) = dA(2598)/dV(5250) - B(4251) = RCT(2598)*V(3587) -! B(4252) = dA(2599)/dV(1013) - B(4252) = RCT(2599) -! B(4253) = dA(2600)/dV(3809) - B(4253) = RCT(2600) -! B(4254) = dA(2601)/dV(3809) - B(4254) = RCT(2601) -! B(4255) = dA(2602)/dV(3809) - B(4255) = RCT(2602) -! B(4256) = dA(2603)/dV(5170) - B(4256) = RCT(2603)*V(5251) -! B(4257) = dA(2603)/dV(5251) - B(4257) = RCT(2603)*V(5170) -! B(4258) = dA(2604)/dV(5170) - B(4258) = RCT(2604)*V(5252) -! B(4259) = dA(2604)/dV(5252) - B(4259) = RCT(2604)*V(5170) -! B(4260) = dA(2605)/dV(5170) - B(4260) = RCT(2605)*V(5253) -! B(4261) = dA(2605)/dV(5253) - B(4261) = RCT(2605)*V(5170) -! B(4262) = dA(2606)/dV(5170) - B(4262) = RCT(2606)*V(5254) -! B(4263) = dA(2606)/dV(5254) - B(4263) = RCT(2606)*V(5170) -! B(4264) = dA(2607)/dV(5170) - B(4264) = RCT(2607) -! B(4265) = dA(2608)/dV(5170) - B(4265) = RCT(2608) -! B(4266) = dA(2609)/dV(642) - B(4266) = RCT(2609)*V(5250) -! B(4267) = dA(2609)/dV(5250) - B(4267) = RCT(2609)*V(642) -! B(4268) = dA(2610)/dV(3448) - B(4268) = RCT(2610) -! B(4269) = dA(2611)/dV(3448) - B(4269) = RCT(2611)*V(5250) -! B(4270) = dA(2611)/dV(5250) - B(4270) = RCT(2611)*V(3448) -! B(4271) = dA(2612)/dV(3448) - B(4271) = RCT(2612)*V(5250) -! B(4272) = dA(2612)/dV(5250) - B(4272) = RCT(2612)*V(3448) -! B(4273) = dA(2613)/dV(3448) - B(4273) = RCT(2613)*V(5250) -! B(4274) = dA(2613)/dV(5250) - B(4274) = RCT(2613)*V(3448) -! B(4275) = dA(2614)/dV(4330) - B(4275) = RCT(2614) -! B(4276) = dA(2615)/dV(4330) - B(4276) = RCT(2615)*V(5258) -! B(4277) = dA(2615)/dV(5258) - B(4277) = RCT(2615)*V(4330) -! B(4278) = dA(2616)/dV(4330) - B(4278) = RCT(2616)*V(5250) -! B(4279) = dA(2616)/dV(5250) - B(4279) = RCT(2616)*V(4330) -! B(4280) = dA(2617)/dV(4330) - B(4280) = RCT(2617)*V(5250) -! B(4281) = dA(2617)/dV(5250) - B(4281) = RCT(2617)*V(4330) -! B(4282) = dA(2618)/dV(4330) - B(4282) = RCT(2618)*V(5250) -! B(4283) = dA(2618)/dV(5250) - B(4283) = RCT(2618)*V(4330) -! B(4284) = dA(2619)/dV(5156) - B(4284) = RCT(2619)*V(5251) -! B(4285) = dA(2619)/dV(5251) - B(4285) = RCT(2619)*V(5156) -! B(4286) = dA(2620)/dV(5156) - B(4286) = RCT(2620)*V(5252) -! B(4287) = dA(2620)/dV(5252) - B(4287) = RCT(2620)*V(5156) -! B(4288) = dA(2621)/dV(5156) - B(4288) = RCT(2621)*V(5253) -! B(4289) = dA(2621)/dV(5253) - B(4289) = RCT(2621)*V(5156) -! B(4290) = dA(2622)/dV(5156) - B(4290) = RCT(2622)*V(5254) -! B(4291) = dA(2622)/dV(5254) - B(4291) = RCT(2622)*V(5156) -! B(4292) = dA(2623)/dV(5156) - B(4292) = RCT(2623) -! B(4293) = dA(2624)/dV(3330) - B(4293) = RCT(2624) -! B(4294) = dA(2625)/dV(3330) - B(4294) = RCT(2625) -! B(4295) = dA(2626)/dV(3330) - B(4295) = RCT(2626)*V(5250) -! B(4296) = dA(2626)/dV(5250) - B(4296) = RCT(2626)*V(3330) -! B(4297) = dA(2627)/dV(5221) - B(4297) = RCT(2627)*V(5250) -! B(4298) = dA(2627)/dV(5250) - B(4298) = RCT(2627)*V(5221) -! B(4299) = dA(2628)/dV(5221) - B(4299) = RCT(2628)*V(5250) -! B(4300) = dA(2628)/dV(5250) - B(4300) = RCT(2628)*V(5221) -! B(4301) = dA(2629)/dV(5221) - B(4301) = RCT(2629) -! B(4302) = dA(2630)/dV(2004) - B(4302) = RCT(2630) -! B(4303) = dA(2631)/dV(3993) - B(4303) = RCT(2631) -! B(4304) = dA(2632)/dV(3993) - B(4304) = RCT(2632)*V(5250) -! B(4305) = dA(2632)/dV(5250) - B(4305) = RCT(2632)*V(3993) -! B(4306) = dA(2633)/dV(3462) - B(4306) = RCT(2633)*V(5250) -! B(4307) = dA(2633)/dV(5250) - B(4307) = RCT(2633)*V(3462) -! B(4308) = dA(2634)/dV(3462) - B(4308) = RCT(2634) -! B(4309) = dA(2635)/dV(3462) - B(4309) = RCT(2635) -! B(4310) = dA(2636)/dV(3929) - B(4310) = RCT(2636) -! B(4311) = dA(2637)/dV(3929) - B(4311) = RCT(2637)*V(5250) -! B(4312) = dA(2637)/dV(5250) - B(4312) = RCT(2637)*V(3929) -! B(4313) = dA(2638)/dV(1866) - B(4313) = RCT(2638) -! B(4314) = dA(2639)/dV(5094) - B(4314) = RCT(2639)*V(5250) -! B(4315) = dA(2639)/dV(5250) - B(4315) = RCT(2639)*V(5094) -! B(4316) = dA(2640)/dV(5094) - B(4316) = RCT(2640) -! B(4317) = dA(2641)/dV(2873) - B(4317) = RCT(2641)*V(5250) -! B(4318) = dA(2641)/dV(5250) - B(4318) = RCT(2641)*V(2873) -! B(4319) = dA(2642)/dV(2873) - B(4319) = RCT(2642) -! B(4320) = dA(2643)/dV(2346) - B(4320) = RCT(2643)*V(5250) -! B(4321) = dA(2643)/dV(5250) - B(4321) = RCT(2643)*V(2346) -! B(4322) = dA(2644)/dV(2811) - B(4322) = RCT(2644)*V(5250) -! B(4323) = dA(2644)/dV(5250) - B(4323) = RCT(2644)*V(2811) -! B(4324) = dA(2645)/dV(2811) - B(4324) = RCT(2645) -! B(4325) = dA(2646)/dV(3660) - B(4325) = RCT(2646)*V(5256) -! B(4326) = dA(2646)/dV(5256) - B(4326) = RCT(2646)*V(3660) -! B(4327) = dA(2647)/dV(3660) - B(4327) = RCT(2647)*V(5250) -! B(4328) = dA(2647)/dV(5250) - B(4328) = RCT(2647)*V(3660) -! B(4329) = dA(2648)/dV(3660) - B(4329) = RCT(2648) -! B(4330) = dA(2649)/dV(2734) - B(4330) = RCT(2649) -! B(4331) = dA(2650)/dV(4156) - B(4331) = RCT(2650)*V(5256) -! B(4332) = dA(2650)/dV(5256) - B(4332) = RCT(2650)*V(4156) -! B(4333) = dA(2651)/dV(4156) - B(4333) = RCT(2651)*V(5250) -! B(4334) = dA(2651)/dV(5250) - B(4334) = RCT(2651)*V(4156) -! B(4335) = dA(2652)/dV(4156) - B(4335) = RCT(2652) -! B(4336) = dA(2653)/dV(4156) - B(4336) = RCT(2653) -! B(4337) = dA(2654)/dV(1853) - B(4337) = RCT(2654)*V(5250) -! B(4338) = dA(2654)/dV(5250) - B(4338) = RCT(2654)*V(1853) -! B(4339) = dA(2655)/dV(1853) - B(4339) = RCT(2655) -! B(4340) = dA(2656)/dV(3654) - B(4340) = RCT(2656)*V(5256) -! B(4341) = dA(2656)/dV(5256) - B(4341) = RCT(2656)*V(3654) -! B(4342) = dA(2657)/dV(3654) - B(4342) = RCT(2657)*V(5250) -! B(4343) = dA(2657)/dV(5250) - B(4343) = RCT(2657)*V(3654) -! B(4344) = dA(2658)/dV(3654) - B(4344) = RCT(2658) -! B(4345) = dA(2659)/dV(1011) - B(4345) = RCT(2659) -! B(4346) = dA(2660)/dV(3520) - B(4346) = RCT(2660)*V(5250) -! B(4347) = dA(2660)/dV(5250) - B(4347) = RCT(2660)*V(3520) -! B(4348) = dA(2661)/dV(3520) - B(4348) = RCT(2661) -! B(4349) = dA(2662)/dV(4943) - B(4349) = RCT(2662)*V(5251) -! B(4350) = dA(2662)/dV(5251) - B(4350) = RCT(2662)*V(4943) -! B(4351) = dA(2663)/dV(4943) - B(4351) = RCT(2663)*V(5252) -! B(4352) = dA(2663)/dV(5252) - B(4352) = RCT(2663)*V(4943) -! B(4353) = dA(2664)/dV(4943) - B(4353) = RCT(2664)*V(5253) -! B(4354) = dA(2664)/dV(5253) - B(4354) = RCT(2664)*V(4943) -! B(4355) = dA(2665)/dV(4943) - B(4355) = RCT(2665)*V(5254) -! B(4356) = dA(2665)/dV(5254) - B(4356) = RCT(2665)*V(4943) -! B(4357) = dA(2666)/dV(4943) - B(4357) = RCT(2666) -! B(4358) = dA(2667)/dV(4943) - B(4358) = RCT(2667) -! B(4359) = dA(2668)/dV(1185) - B(4359) = RCT(2668)*V(5250) -! B(4360) = dA(2668)/dV(5250) - B(4360) = RCT(2668)*V(1185) -! B(4361) = dA(2669)/dV(1185) - B(4361) = RCT(2669) -! B(4362) = dA(2670)/dV(2795) - B(4362) = RCT(2670) -! B(4363) = dA(2671)/dV(3044) - B(4363) = RCT(2671)*V(5250) -! B(4364) = dA(2671)/dV(5250) - B(4364) = RCT(2671)*V(3044) -! B(4365) = dA(2672)/dV(3044) - B(4365) = RCT(2672) -! B(4366) = dA(2673)/dV(5210) - B(4366) = RCT(2673) -! B(4367) = dA(2674)/dV(5210) - B(4367) = RCT(2674)*V(5256) -! B(4368) = dA(2674)/dV(5256) - B(4368) = RCT(2674)*V(5210) -! B(4369) = dA(2675)/dV(5210) - B(4369) = RCT(2675)*V(5250) -! B(4370) = dA(2675)/dV(5250) - B(4370) = RCT(2675)*V(5210) -! B(4371) = dA(2676)/dV(2805) - B(4371) = RCT(2676)*V(5250) -! B(4372) = dA(2676)/dV(5250) - B(4372) = RCT(2676)*V(2805) -! B(4373) = dA(2677)/dV(2805) - B(4373) = RCT(2677) -! B(4374) = dA(2678)/dV(2805) - B(4374) = RCT(2678) -! B(4375) = dA(2679)/dV(1872) - B(4375) = RCT(2679) -! B(4376) = dA(2680)/dV(3171) - B(4376) = RCT(2680)*V(5250) -! B(4377) = dA(2680)/dV(5250) - B(4377) = RCT(2680)*V(3171) -! B(4378) = dA(2681)/dV(3171) - B(4378) = RCT(2681) -! B(4379) = dA(2682)/dV(2435) - B(4379) = RCT(2682)*V(5250) -! B(4380) = dA(2682)/dV(5250) - B(4380) = RCT(2682)*V(2435) -! B(4381) = dA(2683)/dV(2435) - B(4381) = RCT(2683)*V(5250) -! B(4382) = dA(2683)/dV(5250) - B(4382) = RCT(2683)*V(2435) -! B(4383) = dA(2684)/dV(2435) - B(4383) = RCT(2684) -! B(4384) = dA(2685)/dV(1946) - B(4384) = RCT(2685)*V(5250) -! B(4385) = dA(2685)/dV(5250) - B(4385) = RCT(2685)*V(1946) -! B(4386) = dA(2686)/dV(1946) - B(4386) = RCT(2686) -! B(4387) = dA(2687)/dV(3429) - B(4387) = RCT(2687) -! B(4388) = dA(2688)/dV(3429) - B(4388) = RCT(2688) -! B(4389) = dA(2689)/dV(2339) - B(4389) = RCT(2689) -! B(4390) = dA(2690)/dV(2339) - B(4390) = RCT(2690)*V(5250) -! B(4391) = dA(2690)/dV(5250) - B(4391) = RCT(2690)*V(2339) -! B(4392) = dA(2691)/dV(2339) - B(4392) = RCT(2691)*V(5250) -! B(4393) = dA(2691)/dV(5250) - B(4393) = RCT(2691)*V(2339) -! B(4394) = dA(2692)/dV(2237) - B(4394) = RCT(2692) -! B(4395) = dA(2693)/dV(2237) - B(4395) = RCT(2693)*V(5250) -! B(4396) = dA(2693)/dV(5250) - B(4396) = RCT(2693)*V(2237) -! B(4397) = dA(2694)/dV(1715) - B(4397) = RCT(2694) -! B(4398) = dA(2695)/dV(855) - B(4398) = RCT(2695)*V(5250) -! B(4399) = dA(2695)/dV(5250) - B(4399) = RCT(2695)*V(855) -! B(4400) = dA(2696)/dV(855) - B(4400) = RCT(2696) -! B(4401) = dA(2697)/dV(2687) - B(4401) = RCT(2697)*V(5250) -! B(4402) = dA(2697)/dV(5250) - B(4402) = RCT(2697)*V(2687) -! B(4403) = dA(2698)/dV(2687) - B(4403) = RCT(2698) -! B(4404) = dA(2699)/dV(2227) - B(4404) = RCT(2699)*V(5250) -! B(4405) = dA(2699)/dV(5250) - B(4405) = RCT(2699)*V(2227) -! B(4406) = dA(2700)/dV(2227) - B(4406) = RCT(2700)*V(5250) -! B(4407) = dA(2700)/dV(5250) - B(4407) = RCT(2700)*V(2227) -! B(4408) = dA(2701)/dV(2227) - B(4408) = RCT(2701) -! B(4409) = dA(2702)/dV(2285) - B(4409) = RCT(2702)*V(5250) -! B(4410) = dA(2702)/dV(5250) - B(4410) = RCT(2702)*V(2285) -! B(4411) = dA(2703)/dV(2285) - B(4411) = RCT(2703) -! B(4412) = dA(2704)/dV(160) - B(4412) = RCT(2704) -! B(4413) = dA(2705)/dV(345) - B(4413) = RCT(2705)*V(5250) -! B(4414) = dA(2705)/dV(5250) - B(4414) = RCT(2705)*V(345) -! B(4415) = dA(2706)/dV(2057) - B(4415) = RCT(2706)*V(5250) -! B(4416) = dA(2706)/dV(5250) - B(4416) = RCT(2706)*V(2057) -! B(4417) = dA(2707)/dV(2057) - B(4417) = RCT(2707)*V(5250) -! B(4418) = dA(2707)/dV(5250) - B(4418) = RCT(2707)*V(2057) -! B(4419) = dA(2708)/dV(2057) - B(4419) = RCT(2708) -! B(4420) = dA(2709)/dV(1965) - B(4420) = RCT(2709)*V(5250) -! B(4421) = dA(2709)/dV(5250) - B(4421) = RCT(2709)*V(1965) -! B(4422) = dA(2710)/dV(1965) - B(4422) = RCT(2710) -! B(4423) = dA(2711)/dV(2699) - B(4423) = RCT(2711) -! B(4424) = dA(2712)/dV(2699) - B(4424) = RCT(2712) -! B(4425) = dA(2713)/dV(495) - B(4425) = RCT(2713)*V(5250) -! B(4426) = dA(2713)/dV(5250) - B(4426) = RCT(2713)*V(495) -! B(4427) = dA(2714)/dV(999) - B(4427) = RCT(2714)*V(5250) -! B(4428) = dA(2714)/dV(5250) - B(4428) = RCT(2714)*V(999) -! B(4429) = dA(2715)/dV(999) - B(4429) = RCT(2715) -! B(4430) = dA(2716)/dV(2196) - B(4430) = RCT(2716)*V(5250) -! B(4431) = dA(2716)/dV(5250) - B(4431) = RCT(2716)*V(2196) -! B(4432) = dA(2717)/dV(2196) - B(4432) = RCT(2717) -! B(4433) = dA(2718)/dV(3377) - B(4433) = RCT(2718) -! B(4434) = dA(2719)/dV(3377) - B(4434) = RCT(2719) -! B(4435) = dA(2720)/dV(1885) - B(4435) = RCT(2720) -! B(4436) = dA(2721)/dV(1885) - B(4436) = RCT(2721)*V(5250) -! B(4437) = dA(2721)/dV(5250) - B(4437) = RCT(2721)*V(1885) -! B(4438) = dA(2722)/dV(1885) - B(4438) = RCT(2722)*V(5250) -! B(4439) = dA(2722)/dV(5250) - B(4439) = RCT(2722)*V(1885) -! B(4440) = dA(2723)/dV(2337) - B(4440) = RCT(2723) -! B(4441) = dA(2724)/dV(2337) - B(4441) = RCT(2724)*V(5250) -! B(4442) = dA(2724)/dV(5250) - B(4442) = RCT(2724)*V(2337) -! B(4443) = dA(2725)/dV(3032) - B(4443) = RCT(2725) -! B(4444) = dA(2726)/dV(3032) - B(4444) = RCT(2726) -! B(4445) = dA(2727)/dV(2223) - B(4445) = RCT(2727) -! B(4446) = dA(2728)/dV(2223) - B(4446) = RCT(2728)*V(5250) -! B(4447) = dA(2728)/dV(5250) - B(4447) = RCT(2728)*V(2223) -! B(4448) = dA(2729)/dV(2223) - B(4448) = RCT(2729)*V(5250) -! B(4449) = dA(2729)/dV(5250) - B(4449) = RCT(2729)*V(2223) -! B(4450) = dA(2730)/dV(2193) - B(4450) = RCT(2730) -! B(4451) = dA(2731)/dV(2193) - B(4451) = RCT(2731)*V(5250) -! B(4452) = dA(2731)/dV(5250) - B(4452) = RCT(2731)*V(2193) -! B(4453) = dA(2732)/dV(3404) - B(4453) = RCT(2732) -! B(4454) = dA(2733)/dV(3404) - B(4454) = RCT(2733) -! B(4455) = dA(2734)/dV(1069) - B(4455) = RCT(2734) -! B(4456) = dA(2735)/dV(1069) - B(4456) = RCT(2735)*V(5250) -! B(4457) = dA(2735)/dV(5250) - B(4457) = RCT(2735)*V(1069) -! B(4458) = dA(2736)/dV(3076) - B(4458) = RCT(2736) -! B(4459) = dA(2737)/dV(3076) - B(4459) = RCT(2737)*V(5250) -! B(4460) = dA(2737)/dV(5250) - B(4460) = RCT(2737)*V(3076) -! B(4461) = dA(2738)/dV(2490) - B(4461) = RCT(2738) -! B(4462) = dA(2739)/dV(2628) - B(4462) = RCT(2739) -! B(4463) = dA(2740)/dV(2628) - B(4463) = RCT(2740)*V(5250) -! B(4464) = dA(2740)/dV(5250) - B(4464) = RCT(2740)*V(2628) -! B(4465) = dA(2741)/dV(2628) - B(4465) = RCT(2741)*V(5250) -! B(4466) = dA(2741)/dV(5250) - B(4466) = RCT(2741)*V(2628) -! B(4467) = dA(2742)/dV(2913) - B(4467) = RCT(2742) -! B(4468) = dA(2743)/dV(2913) - B(4468) = RCT(2743)*V(5250) -! B(4469) = dA(2743)/dV(5250) - B(4469) = RCT(2743)*V(2913) -! B(4470) = dA(2744)/dV(1741) - B(4470) = RCT(2744) -! B(4471) = dA(2745)/dV(304) - B(4471) = RCT(2745)*V(5250) -! B(4472) = dA(2745)/dV(5250) - B(4472) = RCT(2745)*V(304) -! B(4473) = dA(2746)/dV(4559) - B(4473) = RCT(2746)*V(5256) -! B(4474) = dA(2746)/dV(5256) - B(4474) = RCT(2746)*V(4559) -! B(4475) = dA(2747)/dV(4559) - B(4475) = RCT(2747)*V(5250) -! B(4476) = dA(2747)/dV(5250) - B(4476) = RCT(2747)*V(4559) -! B(4477) = dA(2748)/dV(4559) - B(4477) = RCT(2748) -! B(4478) = dA(2749)/dV(2416) - B(4478) = RCT(2749) -! B(4479) = dA(2750)/dV(2416) - B(4479) = RCT(2750)*V(5250) -! B(4480) = dA(2750)/dV(5250) - B(4480) = RCT(2750)*V(2416) -! B(4481) = dA(2751)/dV(2416) - B(4481) = RCT(2751)*V(5250) -! B(4482) = dA(2751)/dV(5250) - B(4482) = RCT(2751)*V(2416) -! B(4483) = dA(2752)/dV(1987) - B(4483) = RCT(2752) -! B(4484) = dA(2753)/dV(1987) - B(4484) = RCT(2753)*V(5250) -! B(4485) = dA(2753)/dV(5250) - B(4485) = RCT(2753)*V(1987) -! B(4486) = dA(2754)/dV(155) - B(4486) = RCT(2754) -! B(4487) = dA(2755)/dV(5162) - B(4487) = RCT(2755) -! B(4488) = dA(2756)/dV(5162) - B(4488) = RCT(2756) -! B(4489) = dA(2757)/dV(5162) - B(4489) = RCT(2757)*V(5256) -! B(4490) = dA(2757)/dV(5256) - B(4490) = RCT(2757)*V(5162) -! B(4491) = dA(2758)/dV(5162) - B(4491) = RCT(2758)*V(5250) -! B(4492) = dA(2758)/dV(5250) - B(4492) = RCT(2758)*V(5162) -! B(4493) = dA(2759)/dV(383) - B(4493) = RCT(2759)*V(5250) -! B(4494) = dA(2759)/dV(5250) - B(4494) = RCT(2759)*V(383) -! B(4495) = dA(2760)/dV(2422) - B(4495) = RCT(2760) -! B(4496) = dA(2761)/dV(2422) - B(4496) = RCT(2761)*V(5250) -! B(4497) = dA(2761)/dV(5250) - B(4497) = RCT(2761)*V(2422) -! B(4498) = dA(2762)/dV(2422) - B(4498) = RCT(2762)*V(5250) -! B(4499) = dA(2762)/dV(5250) - B(4499) = RCT(2762)*V(2422) -! B(4500) = dA(2763)/dV(2086) - B(4500) = RCT(2763) -! B(4501) = dA(2764)/dV(2086) - B(4501) = RCT(2764)*V(5250) -! B(4502) = dA(2764)/dV(5250) - B(4502) = RCT(2764)*V(2086) -! B(4503) = dA(2765)/dV(171) - B(4503) = RCT(2765) -! B(4504) = dA(2766)/dV(228) - B(4504) = RCT(2766)*V(5250) -! B(4505) = dA(2766)/dV(5250) - B(4505) = RCT(2766)*V(228) -! B(4506) = dA(2767)/dV(1298) - B(4506) = RCT(2767) -! B(4507) = dA(2768)/dV(1298) - B(4507) = RCT(2768)*V(5250) -! B(4508) = dA(2768)/dV(5250) - B(4508) = RCT(2768)*V(1298) -! B(4509) = dA(2769)/dV(2149) - B(4509) = RCT(2769) -! B(4510) = dA(2770)/dV(2149) - B(4510) = RCT(2770)*V(5250) -! B(4511) = dA(2770)/dV(5250) - B(4511) = RCT(2770)*V(2149) -! B(4512) = dA(2771)/dV(2710) - B(4512) = RCT(2771) -! B(4513) = dA(2772)/dV(2710) - B(4513) = RCT(2772) -! B(4514) = dA(2773)/dV(380) - B(4514) = RCT(2773)*V(5250) -! B(4515) = dA(2773)/dV(5250) - B(4515) = RCT(2773)*V(380) -! B(4516) = dA(2774)/dV(1966) - B(4516) = RCT(2774) -! B(4517) = dA(2775)/dV(1966) - B(4517) = RCT(2775)*V(5250) -! B(4518) = dA(2775)/dV(5250) - B(4518) = RCT(2775)*V(1966) -! B(4519) = dA(2776)/dV(1966) - B(4519) = RCT(2776)*V(5250) -! B(4520) = dA(2776)/dV(5250) - B(4520) = RCT(2776)*V(1966) -! B(4521) = dA(2777)/dV(2168) - B(4521) = RCT(2777) -! B(4522) = dA(2778)/dV(2168) - B(4522) = RCT(2778)*V(5250) -! B(4523) = dA(2778)/dV(5250) - B(4523) = RCT(2778)*V(2168) -! B(4524) = dA(2779)/dV(202) - B(4524) = RCT(2779) -! B(4525) = dA(2780)/dV(3875) - B(4525) = RCT(2780) -! B(4526) = dA(2781)/dV(3875) - B(4526) = RCT(2781)*V(5256) -! B(4527) = dA(2781)/dV(5256) - B(4527) = RCT(2781)*V(3875) -! B(4528) = dA(2782)/dV(3875) - B(4528) = RCT(2782)*V(5250) -! B(4529) = dA(2782)/dV(5250) - B(4529) = RCT(2782)*V(3875) -! B(4530) = dA(2783)/dV(242) - B(4530) = RCT(2783)*V(5250) -! B(4531) = dA(2783)/dV(5250) - B(4531) = RCT(2783)*V(242) -! B(4532) = dA(2784)/dV(1855) - B(4532) = RCT(2784) -! B(4533) = dA(2785)/dV(1855) - B(4533) = RCT(2785)*V(5250) -! B(4534) = dA(2785)/dV(5250) - B(4534) = RCT(2785)*V(1855) -! B(4535) = dA(2786)/dV(1855) - B(4535) = RCT(2786)*V(5250) -! B(4536) = dA(2786)/dV(5250) - B(4536) = RCT(2786)*V(1855) -! B(4537) = dA(2787)/dV(2350) - B(4537) = RCT(2787) -! B(4538) = dA(2788)/dV(2350) - B(4538) = RCT(2788)*V(5250) -! B(4539) = dA(2788)/dV(5250) - B(4539) = RCT(2788)*V(2350) -! B(4540) = dA(2789)/dV(2974) - B(4540) = RCT(2789) -! B(4541) = dA(2790)/dV(2974) - B(4541) = RCT(2790) -! B(4542) = dA(2791)/dV(424) - B(4542) = RCT(2791)*V(5250) -! B(4543) = dA(2791)/dV(5250) - B(4543) = RCT(2791)*V(424) -! B(4544) = dA(2792)/dV(2355) - B(4544) = RCT(2792) -! B(4545) = dA(2793)/dV(2355) - B(4545) = RCT(2793)*V(5250) -! B(4546) = dA(2793)/dV(5250) - B(4546) = RCT(2793)*V(2355) -! B(4547) = dA(2794)/dV(2355) - B(4547) = RCT(2794)*V(5250) -! B(4548) = dA(2794)/dV(5250) - B(4548) = RCT(2794)*V(2355) -! B(4549) = dA(2795)/dV(2194) - B(4549) = RCT(2795) -! B(4550) = dA(2796)/dV(2194) - B(4550) = RCT(2796)*V(5250) -! B(4551) = dA(2796)/dV(5250) - B(4551) = RCT(2796)*V(2194) -! B(4552) = dA(2797)/dV(3779) - B(4552) = RCT(2797) -! B(4553) = dA(2798)/dV(3779) - B(4553) = RCT(2798) -! B(4554) = dA(2799)/dV(3779) - B(4554) = RCT(2799) -! B(4555) = dA(2800)/dV(4736) - B(4555) = RCT(2800) -! B(4556) = dA(2801)/dV(4736) - B(4556) = RCT(2801) -! B(4557) = dA(2802)/dV(4736) - B(4557) = RCT(2802)*V(5250) -! B(4558) = dA(2802)/dV(5250) - B(4558) = RCT(2802)*V(4736) -! B(4559) = dA(2803)/dV(4736) - B(4559) = RCT(2803)*V(5250) -! B(4560) = dA(2803)/dV(5250) - B(4560) = RCT(2803)*V(4736) -! B(4561) = dA(2804)/dV(316) - B(4561) = RCT(2804)*V(5250) -! B(4562) = dA(2804)/dV(5250) - B(4562) = RCT(2804)*V(316) -! B(4563) = dA(2805)/dV(1488) - B(4563) = RCT(2805) -! B(4564) = dA(2806)/dV(1488) - B(4564) = RCT(2806)*V(5250) -! B(4565) = dA(2806)/dV(5250) - B(4565) = RCT(2806)*V(1488) -! B(4566) = dA(2807)/dV(2610) - B(4566) = RCT(2807) -! B(4567) = dA(2808)/dV(2610) - B(4567) = RCT(2808)*V(5250) -! B(4568) = dA(2808)/dV(5250) - B(4568) = RCT(2808)*V(2610) -! B(4569) = dA(2809)/dV(2933) - B(4569) = RCT(2809) -! B(4570) = dA(2810)/dV(2933) - B(4570) = RCT(2810) -! B(4571) = dA(2811)/dV(144) - B(4571) = RCT(2811)*V(5250) -! B(4572) = dA(2811)/dV(5250) - B(4572) = RCT(2811)*V(144) -! B(4573) = dA(2812)/dV(1751) - B(4573) = RCT(2812) -! B(4574) = dA(2813)/dV(1751) - B(4574) = RCT(2813)*V(5250) -! B(4575) = dA(2813)/dV(5250) - B(4575) = RCT(2813)*V(1751) -! B(4576) = dA(2814)/dV(1751) - B(4576) = RCT(2814)*V(5250) -! B(4577) = dA(2814)/dV(5250) - B(4577) = RCT(2814)*V(1751) -! B(4578) = dA(2815)/dV(2277) - B(4578) = RCT(2815) -! B(4579) = dA(2816)/dV(2277) - B(4579) = RCT(2816)*V(5250) -! B(4580) = dA(2816)/dV(5250) - B(4580) = RCT(2816)*V(2277) -! B(4581) = dA(2817)/dV(165) - B(4581) = RCT(2817) -! B(4582) = dA(2818)/dV(3851) - B(4582) = RCT(2818) -! B(4583) = dA(2819)/dV(3851) - B(4583) = RCT(2819)*V(5256) -! B(4584) = dA(2819)/dV(5256) - B(4584) = RCT(2819)*V(3851) -! B(4585) = dA(2820)/dV(3851) - B(4585) = RCT(2820)*V(5250) -! B(4586) = dA(2820)/dV(5250) - B(4586) = RCT(2820)*V(3851) -! B(4587) = dA(2821)/dV(349) - B(4587) = RCT(2821)*V(5250) -! B(4588) = dA(2821)/dV(5250) - B(4588) = RCT(2821)*V(349) -! B(4589) = dA(2822)/dV(1753) - B(4589) = RCT(2822) -! B(4590) = dA(2823)/dV(1753) - B(4590) = RCT(2823)*V(5250) -! B(4591) = dA(2823)/dV(5250) - B(4591) = RCT(2823)*V(1753) -! B(4592) = dA(2824)/dV(1753) - B(4592) = RCT(2824)*V(5250) -! B(4593) = dA(2824)/dV(5250) - B(4593) = RCT(2824)*V(1753) -! B(4594) = dA(2825)/dV(2246) - B(4594) = RCT(2825) -! B(4595) = dA(2826)/dV(2246) - B(4595) = RCT(2826)*V(5250) -! B(4596) = dA(2826)/dV(5250) - B(4596) = RCT(2826)*V(2246) -! B(4597) = dA(2827)/dV(2990) - B(4597) = RCT(2827) -! B(4598) = dA(2828)/dV(2990) - B(4598) = RCT(2828) -! B(4599) = dA(2829)/dV(3594) - B(4599) = RCT(2829) -! B(4600) = dA(2830)/dV(3594) - B(4600) = RCT(2830)*V(5250) -! B(4601) = dA(2830)/dV(5250) - B(4601) = RCT(2830)*V(3594) -! B(4602) = dA(2831)/dV(3594) - B(4602) = RCT(2831)*V(5250) -! B(4603) = dA(2831)/dV(5250) - B(4603) = RCT(2831)*V(3594) -! B(4604) = dA(2832)/dV(504) - B(4604) = RCT(2832)*V(5250) -! B(4605) = dA(2832)/dV(5250) - B(4605) = RCT(2832)*V(504) -! B(4606) = dA(2833)/dV(980) - B(4606) = RCT(2833) -! B(4607) = dA(2834)/dV(980) - B(4607) = RCT(2834)*V(5250) -! B(4608) = dA(2834)/dV(5250) - B(4608) = RCT(2834)*V(980) -! B(4609) = dA(2835)/dV(2839) - B(4609) = RCT(2835) -! B(4610) = dA(2836)/dV(2839) - B(4610) = RCT(2836)*V(5250) -! B(4611) = dA(2836)/dV(5250) - B(4611) = RCT(2836)*V(2839) -! B(4612) = dA(2837)/dV(1962) - B(4612) = RCT(2837) -! B(4613) = dA(2838)/dV(133) - B(4613) = RCT(2838)*V(5250) -! B(4614) = dA(2838)/dV(5250) - B(4614) = RCT(2838)*V(133) -! B(4615) = dA(2839)/dV(2409) - B(4615) = RCT(2839) -! B(4616) = dA(2840)/dV(2409) - B(4616) = RCT(2840)*V(5250) -! B(4617) = dA(2840)/dV(5250) - B(4617) = RCT(2840)*V(2409) -! B(4618) = dA(2841)/dV(2409) - B(4618) = RCT(2841)*V(5250) -! B(4619) = dA(2841)/dV(5250) - B(4619) = RCT(2841)*V(2409) -! B(4620) = dA(2842)/dV(2199) - B(4620) = RCT(2842) -! B(4621) = dA(2843)/dV(2199) - B(4621) = RCT(2843)*V(5250) -! B(4622) = dA(2843)/dV(5250) - B(4622) = RCT(2843)*V(2199) -! B(4623) = dA(2844)/dV(3333) - B(4623) = RCT(2844) -! B(4624) = dA(2845)/dV(3333) - B(4624) = RCT(2845) -! B(4625) = dA(2846)/dV(466) - B(4625) = RCT(2846)*V(5250) -! B(4626) = dA(2846)/dV(5250) - B(4626) = RCT(2846)*V(466) -! B(4627) = dA(2847)/dV(2264) - B(4627) = RCT(2847) -! B(4628) = dA(2848)/dV(2264) - B(4628) = RCT(2848)*V(5250) -! B(4629) = dA(2848)/dV(5250) - B(4629) = RCT(2848)*V(2264) -! B(4630) = dA(2849)/dV(2264) - B(4630) = RCT(2849)*V(5250) -! B(4631) = dA(2849)/dV(5250) - B(4631) = RCT(2849)*V(2264) -! B(4632) = dA(2850)/dV(2169) - B(4632) = RCT(2850) -! B(4633) = dA(2851)/dV(2169) - B(4633) = RCT(2851)*V(5250) -! B(4634) = dA(2851)/dV(5250) - B(4634) = RCT(2851)*V(2169) -! B(4635) = dA(2852)/dV(205) - B(4635) = RCT(2852) -! B(4636) = dA(2853)/dV(3856) - B(4636) = RCT(2853) -! B(4637) = dA(2854)/dV(3856) - B(4637) = RCT(2854)*V(5256) -! B(4638) = dA(2854)/dV(5256) - B(4638) = RCT(2854)*V(3856) -! B(4639) = dA(2855)/dV(3856) - B(4639) = RCT(2855)*V(5250) -! B(4640) = dA(2855)/dV(5250) - B(4640) = RCT(2855)*V(3856) -! B(4641) = dA(2856)/dV(338) - B(4641) = RCT(2856)*V(5250) -! B(4642) = dA(2856)/dV(5250) - B(4642) = RCT(2856)*V(338) -! B(4643) = dA(2857)/dV(2192) - B(4643) = RCT(2857) -! B(4644) = dA(2858)/dV(2192) - B(4644) = RCT(2858)*V(5250) -! B(4645) = dA(2858)/dV(5250) - B(4645) = RCT(2858)*V(2192) -! B(4646) = dA(2859)/dV(2192) - B(4646) = RCT(2859)*V(5250) -! B(4647) = dA(2859)/dV(5250) - B(4647) = RCT(2859)*V(2192) -! B(4648) = dA(2860)/dV(2097) - B(4648) = RCT(2860) -! B(4649) = dA(2861)/dV(2097) - B(4649) = RCT(2861)*V(5250) -! B(4650) = dA(2861)/dV(5250) - B(4650) = RCT(2861)*V(2097) -! B(4651) = dA(2862)/dV(2906) - B(4651) = RCT(2862) -! B(4652) = dA(2863)/dV(2906) - B(4652) = RCT(2863) -! B(4653) = dA(2864)/dV(3924) - B(4653) = RCT(2864) -! B(4654) = dA(2865)/dV(3924) - B(4654) = RCT(2865)*V(5256) -! B(4655) = dA(2865)/dV(5256) - B(4655) = RCT(2865)*V(3924) -! B(4656) = dA(2866)/dV(3924) - B(4656) = RCT(2866)*V(5250) -! B(4657) = dA(2866)/dV(5250) - B(4657) = RCT(2866)*V(3924) -! B(4658) = dA(2867)/dV(308) - B(4658) = RCT(2867)*V(5250) -! B(4659) = dA(2867)/dV(5250) - B(4659) = RCT(2867)*V(308) -! B(4660) = dA(2868)/dV(1469) - B(4660) = RCT(2868) -! B(4661) = dA(2869)/dV(1469) - B(4661) = RCT(2869)*V(5250) -! B(4662) = dA(2869)/dV(5250) - B(4662) = RCT(2869)*V(1469) -! B(4663) = dA(2870)/dV(1788) - B(4663) = RCT(2870) -! B(4664) = dA(2871)/dV(1788) - B(4664) = RCT(2871)*V(5250) -! B(4665) = dA(2871)/dV(5250) - B(4665) = RCT(2871)*V(1788) -! B(4666) = dA(2872)/dV(1789) - B(4666) = RCT(2872) -! B(4667) = dA(2873)/dV(64) - B(4667) = RCT(2873)*V(5250) -! B(4668) = dA(2873)/dV(5250) - B(4668) = RCT(2873)*V(64) -! B(4669) = dA(2874)/dV(2019) - B(4669) = RCT(2874) -! B(4670) = dA(2875)/dV(2019) - B(4670) = RCT(2875)*V(5250) -! B(4671) = dA(2875)/dV(5250) - B(4671) = RCT(2875)*V(2019) -! B(4672) = dA(2876)/dV(2019) - B(4672) = RCT(2876)*V(5250) -! B(4673) = dA(2876)/dV(5250) - B(4673) = RCT(2876)*V(2019) -! B(4674) = dA(2877)/dV(2403) - B(4674) = RCT(2877) -! B(4675) = dA(2878)/dV(2403) - B(4675) = RCT(2878)*V(5250) -! B(4676) = dA(2878)/dV(5250) - B(4676) = RCT(2878)*V(2403) -! B(4677) = dA(2879)/dV(2767) - B(4677) = RCT(2879) -! B(4678) = dA(2880)/dV(2767) - B(4678) = RCT(2880) -! B(4679) = dA(2881)/dV(339) - B(4679) = RCT(2881)*V(5250) -! B(4680) = dA(2881)/dV(5250) - B(4680) = RCT(2881)*V(339) -! B(4681) = dA(2882)/dV(3877) - B(4681) = RCT(2882) -! B(4682) = dA(2883)/dV(3877) - B(4682) = RCT(2883)*V(5256) -! B(4683) = dA(2883)/dV(5256) - B(4683) = RCT(2883)*V(3877) -! B(4684) = dA(2884)/dV(3877) - B(4684) = RCT(2884)*V(5250) -! B(4685) = dA(2884)/dV(5250) - B(4685) = RCT(2884)*V(3877) -! B(4686) = dA(2885)/dV(1267) - B(4686) = RCT(2885) -! B(4687) = dA(2886)/dV(1267) - B(4687) = RCT(2886)*V(5250) -! B(4688) = dA(2886)/dV(5250) - B(4688) = RCT(2886)*V(1267) -! B(4689) = dA(2887)/dV(1919) - B(4689) = RCT(2887) -! B(4690) = dA(2888)/dV(1919) - B(4690) = RCT(2888)*V(5250) -! B(4691) = dA(2888)/dV(5250) - B(4691) = RCT(2888)*V(1919) -! B(4692) = dA(2889)/dV(161) - B(4692) = RCT(2889) -! B(4693) = dA(2890)/dV(3118) - B(4693) = RCT(2890) -! B(4694) = dA(2891)/dV(3118) - B(4694) = RCT(2891)*V(5250) -! B(4695) = dA(2891)/dV(5250) - B(4695) = RCT(2891)*V(3118) -! B(4696) = dA(2892)/dV(353) - B(4696) = RCT(2892)*V(5250) -! B(4697) = dA(2892)/dV(5250) - B(4697) = RCT(2892)*V(353) -! B(4698) = dA(2893)/dV(870) - B(4698) = RCT(2893) -! B(4699) = dA(2894)/dV(870) - B(4699) = RCT(2894)*V(5250) -! B(4700) = dA(2894)/dV(5250) - B(4700) = RCT(2894)*V(870) -! B(4701) = dA(2895)/dV(2094) - B(4701) = RCT(2895) -! B(4702) = dA(2896)/dV(2094) - B(4702) = RCT(2896)*V(5250) -! B(4703) = dA(2896)/dV(5250) - B(4703) = RCT(2896)*V(2094) -! B(4704) = dA(2897)/dV(184) - B(4704) = RCT(2897) -! B(4705) = dA(2898)/dV(3168) - B(4705) = RCT(2898) -! B(4706) = dA(2899)/dV(3168) - B(4706) = RCT(2899)*V(5250) -! B(4707) = dA(2899)/dV(5250) - B(4707) = RCT(2899)*V(3168) -! B(4708) = dA(2900)/dV(412) - B(4708) = RCT(2900)*V(5250) -! B(4709) = dA(2900)/dV(5250) - B(4709) = RCT(2900)*V(412) -! B(4710) = dA(2901)/dV(1207) - B(4710) = RCT(2901) -! B(4711) = dA(2902)/dV(1207) - B(4711) = RCT(2902)*V(5250) -! B(4712) = dA(2902)/dV(5250) - B(4712) = RCT(2902)*V(1207) -! B(4713) = dA(2903)/dV(2534) - B(4713) = RCT(2903) -! B(4714) = dA(2904)/dV(2534) - B(4714) = RCT(2904)*V(5250) -! B(4715) = dA(2904)/dV(5250) - B(4715) = RCT(2904)*V(2534) -! B(4716) = dA(2905)/dV(445) - B(4716) = RCT(2905) -! B(4717) = dA(2906)/dV(34) - B(4717) = RCT(2906)*V(5250) -! B(4718) = dA(2906)/dV(5250) - B(4718) = RCT(2906)*V(34) -! B(4719) = dA(2907)/dV(1501) - B(4719) = RCT(2907) -! B(4720) = dA(2908)/dV(1501) - B(4720) = RCT(2908)*V(5250) -! B(4721) = dA(2908)/dV(5250) - B(4721) = RCT(2908)*V(1501) -! B(4722) = dA(2909)/dV(1831) - B(4722) = RCT(2909) -! B(4723) = dA(2910)/dV(1831) - B(4723) = RCT(2910)*V(5250) -! B(4724) = dA(2910)/dV(5250) - B(4724) = RCT(2910)*V(1831) -! B(4725) = dA(2911)/dV(166) - B(4725) = RCT(2911) -! B(4726) = dA(2912)/dV(3109) - B(4726) = RCT(2912) -! B(4727) = dA(2913)/dV(3109) - B(4727) = RCT(2913)*V(5250) -! B(4728) = dA(2913)/dV(5250) - B(4728) = RCT(2913)*V(3109) -! B(4729) = dA(2914)/dV(234) - B(4729) = RCT(2914)*V(5250) -! B(4730) = dA(2914)/dV(5250) - B(4730) = RCT(2914)*V(234) -! B(4731) = dA(2915)/dV(1082) - B(4731) = RCT(2915) -! B(4732) = dA(2916)/dV(1082) - B(4732) = RCT(2916)*V(5250) -! B(4733) = dA(2916)/dV(5250) - B(4733) = RCT(2916)*V(1082) -! B(4734) = dA(2917)/dV(2964) - B(4734) = RCT(2917) -! B(4735) = dA(2918)/dV(2964) - B(4735) = RCT(2918)*V(5250) -! B(4736) = dA(2918)/dV(5250) - B(4736) = RCT(2918)*V(2964) -! B(4737) = dA(2919)/dV(421) - B(4737) = RCT(2919) -! B(4738) = dA(2920)/dV(139) - B(4738) = RCT(2920)*V(5250) -! B(4739) = dA(2920)/dV(5250) - B(4739) = RCT(2920)*V(139) -! B(4740) = dA(2921)/dV(1491) - B(4740) = RCT(2921) -! B(4741) = dA(2922)/dV(1491) - B(4741) = RCT(2922)*V(5250) -! B(4742) = dA(2922)/dV(5250) - B(4742) = RCT(2922)*V(1491) -! B(4743) = dA(2923)/dV(2161) - B(4743) = RCT(2923) -! B(4744) = dA(2924)/dV(2161) - B(4744) = RCT(2924)*V(5250) -! B(4745) = dA(2924)/dV(5250) - B(4745) = RCT(2924)*V(2161) -! B(4746) = dA(2925)/dV(177) - B(4746) = RCT(2925) -! B(4747) = dA(2926)/dV(3148) - B(4747) = RCT(2926) -! B(4748) = dA(2927)/dV(3148) - B(4748) = RCT(2927)*V(5250) -! B(4749) = dA(2927)/dV(5250) - B(4749) = RCT(2927)*V(3148) -! B(4750) = dA(2928)/dV(269) - B(4750) = RCT(2928)*V(5250) -! B(4751) = dA(2928)/dV(5250) - B(4751) = RCT(2928)*V(269) -! B(4752) = dA(2929)/dV(1259) - B(4752) = RCT(2929) -! B(4753) = dA(2930)/dV(1259) - B(4753) = RCT(2930)*V(5250) -! B(4754) = dA(2930)/dV(5250) - B(4754) = RCT(2930)*V(1259) -! B(4755) = dA(2931)/dV(2216) - B(4755) = RCT(2931) -! B(4756) = dA(2932)/dV(2216) - B(4756) = RCT(2932)*V(5250) -! B(4757) = dA(2932)/dV(5250) - B(4757) = RCT(2932)*V(2216) -! B(4758) = dA(2933)/dV(197) - B(4758) = RCT(2933) -! B(4759) = dA(2934)/dV(3117) - B(4759) = RCT(2934) -! B(4760) = dA(2935)/dV(3117) - B(4760) = RCT(2935)*V(5250) -! B(4761) = dA(2935)/dV(5250) - B(4761) = RCT(2935)*V(3117) -! B(4762) = dA(2936)/dV(453) - B(4762) = RCT(2936)*V(5250) -! B(4763) = dA(2936)/dV(5250) - B(4763) = RCT(2936)*V(453) -! B(4764) = dA(2937)/dV(1079) - B(4764) = RCT(2937) -! B(4765) = dA(2938)/dV(1079) - B(4765) = RCT(2938)*V(5250) -! B(4766) = dA(2938)/dV(5250) - B(4766) = RCT(2938)*V(1079) -! B(4767) = dA(2939)/dV(1824) - B(4767) = RCT(2939) -! B(4768) = dA(2940)/dV(1824) - B(4768) = RCT(2940)*V(5250) -! B(4769) = dA(2940)/dV(5250) - B(4769) = RCT(2940)*V(1824) -! B(4770) = dA(2941)/dV(192) - B(4770) = RCT(2941) -! B(4771) = dA(2942)/dV(3166) - B(4771) = RCT(2942) -! B(4772) = dA(2943)/dV(3166) - B(4772) = RCT(2943)*V(5250) -! B(4773) = dA(2943)/dV(5250) - B(4773) = RCT(2943)*V(3166) -! B(4774) = dA(2944)/dV(486) - B(4774) = RCT(2944)*V(5250) -! B(4775) = dA(2944)/dV(5250) - B(4775) = RCT(2944)*V(486) -! B(4776) = dA(2945)/dV(1052) - B(4776) = RCT(2945)*V(5250) -! B(4777) = dA(2945)/dV(5250) - B(4777) = RCT(2945)*V(1052) -! B(4778) = dA(2946)/dV(1052) - B(4778) = RCT(2946) -! B(4779) = dA(2947)/dV(2432) - B(4779) = RCT(2947)*V(5250) -! B(4780) = dA(2947)/dV(5250) - B(4780) = RCT(2947)*V(2432) -! B(4781) = dA(2948)/dV(2432) - B(4781) = RCT(2948) -! B(4782) = dA(2949)/dV(186) - B(4782) = RCT(2949) -! B(4783) = dA(2950)/dV(3091) - B(4783) = RCT(2950)*V(5250) -! B(4784) = dA(2950)/dV(5250) - B(4784) = RCT(2950)*V(3091) -! B(4785) = dA(2951)/dV(3091) - B(4785) = RCT(2951) -! B(4786) = dA(2952)/dV(460) - B(4786) = RCT(2952)*V(5250) -! B(4787) = dA(2952)/dV(5250) - B(4787) = RCT(2952)*V(460) -! B(4788) = dA(2953)/dV(848) - B(4788) = RCT(2953) -! B(4789) = dA(2954)/dV(848) - B(4789) = RCT(2954)*V(5250) -! B(4790) = dA(2954)/dV(5250) - B(4790) = RCT(2954)*V(848) -! B(4791) = dA(2955)/dV(2113) - B(4791) = RCT(2955) -! B(4792) = dA(2956)/dV(2113) - B(4792) = RCT(2956)*V(5250) -! B(4793) = dA(2956)/dV(5250) - B(4793) = RCT(2956)*V(2113) -! B(4794) = dA(2957)/dV(196) - B(4794) = RCT(2957) -! B(4795) = dA(2958)/dV(3110) - B(4795) = RCT(2958) -! B(4796) = dA(2959)/dV(3110) - B(4796) = RCT(2959)*V(5250) -! B(4797) = dA(2959)/dV(5250) - B(4797) = RCT(2959)*V(3110) -! B(4798) = dA(2960)/dV(429) - B(4798) = RCT(2960)*V(5250) -! B(4799) = dA(2960)/dV(5250) - B(4799) = RCT(2960)*V(429) -! B(4800) = dA(2961)/dV(1235) - B(4800) = RCT(2961) -! B(4801) = dA(2962)/dV(1235) - B(4801) = RCT(2962)*V(5250) -! B(4802) = dA(2962)/dV(5250) - B(4802) = RCT(2962)*V(1235) -! B(4803) = dA(2963)/dV(2020) - B(4803) = RCT(2963) -! B(4804) = dA(2964)/dV(2020) - B(4804) = RCT(2964)*V(5250) -! B(4805) = dA(2964)/dV(5250) - B(4805) = RCT(2964)*V(2020) -! B(4806) = dA(2965)/dV(2922) - B(4806) = RCT(2965) -! B(4807) = dA(2966)/dV(2922) - B(4807) = RCT(2966) -! B(4808) = dA(2967)/dV(1849) - B(4808) = RCT(2967)*V(5250) -! B(4809) = dA(2967)/dV(5250) - B(4809) = RCT(2967)*V(1849) -! B(4810) = dA(2968)/dV(1849) - B(4810) = RCT(2968)*V(5250) -! B(4811) = dA(2968)/dV(5250) - B(4811) = RCT(2968)*V(1849) -! B(4812) = dA(2969)/dV(1849) - B(4812) = RCT(2969) -! B(4813) = dA(2970)/dV(3351) - B(4813) = RCT(2970) -! B(4814) = dA(2971)/dV(3351) - B(4814) = RCT(2971) -! B(4815) = dA(2972)/dV(5180) - B(4815) = RCT(2972)*V(5256) -! B(4816) = dA(2972)/dV(5256) - B(4816) = RCT(2972)*V(5180) -! B(4817) = dA(2973)/dV(5180) - B(4817) = RCT(2973)*V(5250) -! B(4818) = dA(2973)/dV(5250) - B(4818) = RCT(2973)*V(5180) -! B(4819) = dA(2974)/dV(5180) - B(4819) = RCT(2974) -! B(4820) = dA(2975)/dV(1859) - B(4820) = RCT(2975)*V(5250) -! B(4821) = dA(2975)/dV(5250) - B(4821) = RCT(2975)*V(1859) -! B(4822) = dA(2976)/dV(1859) - B(4822) = RCT(2976)*V(5250) -! B(4823) = dA(2976)/dV(5250) - B(4823) = RCT(2976)*V(1859) -! B(4824) = dA(2977)/dV(1859) - B(4824) = RCT(2977) -! B(4825) = dA(2978)/dV(3585) - B(4825) = RCT(2978) -! B(4826) = dA(2979)/dV(3585) - B(4826) = RCT(2979) -! B(4827) = dA(2980)/dV(4845) - B(4827) = RCT(2980)*V(5256) -! B(4828) = dA(2980)/dV(5256) - B(4828) = RCT(2980)*V(4845) -! B(4829) = dA(2981)/dV(4845) - B(4829) = RCT(2981)*V(5250) -! B(4830) = dA(2981)/dV(5250) - B(4830) = RCT(2981)*V(4845) -! B(4831) = dA(2982)/dV(4845) - B(4831) = RCT(2982) -! B(4832) = dA(2983)/dV(2442) - B(4832) = RCT(2983)*V(5250) -! B(4833) = dA(2983)/dV(5250) - B(4833) = RCT(2983)*V(2442) -! B(4834) = dA(2984)/dV(2442) - B(4834) = RCT(2984)*V(5250) -! B(4835) = dA(2984)/dV(5250) - B(4835) = RCT(2984)*V(2442) -! B(4836) = dA(2985)/dV(2442) - B(4836) = RCT(2985) -! B(4837) = dA(2986)/dV(3577) - B(4837) = RCT(2986) -! B(4838) = dA(2987)/dV(3577) - B(4838) = RCT(2987) -! B(4839) = dA(2988)/dV(4909) - B(4839) = RCT(2988)*V(5250) -! B(4840) = dA(2988)/dV(5250) - B(4840) = RCT(2988)*V(4909) -! B(4841) = dA(2989)/dV(4909) - B(4841) = RCT(2989) -! B(4842) = dA(2990)/dV(1302) - B(4842) = RCT(2990)*V(5250) -! B(4843) = dA(2990)/dV(5250) - B(4843) = RCT(2990)*V(1302) -! B(4844) = dA(2991)/dV(1302) - B(4844) = RCT(2991) -! B(4845) = dA(2992)/dV(3942) - B(4845) = RCT(2992) -! B(4846) = dA(2993)/dV(3942) - B(4846) = RCT(2993) -! B(4847) = dA(2994)/dV(3077) - B(4847) = RCT(2994)*V(5250) -! B(4848) = dA(2994)/dV(5250) - B(4848) = RCT(2994)*V(3077) -! B(4849) = dA(2995)/dV(3077) - B(4849) = RCT(2995) -! B(4850) = dA(2996)/dV(1785) - B(4850) = RCT(2996)*V(5250) -! B(4851) = dA(2996)/dV(5250) - B(4851) = RCT(2996)*V(1785) -! B(4852) = dA(2997)/dV(1063) - B(4852) = RCT(2997)*V(5250) -! B(4853) = dA(2997)/dV(5250) - B(4853) = RCT(2997)*V(1063) -! B(4854) = dA(2998)/dV(1063) - B(4854) = RCT(2998) -! B(4855) = dA(2999)/dV(3934) - B(4855) = RCT(2999) -! B(4856) = dA(3000)/dV(3934) - B(4856) = RCT(3000) -! B(4857) = dA(3001)/dV(3302) - B(4857) = RCT(3001)*V(5250) -! B(4858) = dA(3001)/dV(5250) - B(4858) = RCT(3001)*V(3302) -! B(4859) = dA(3002)/dV(3302) - B(4859) = RCT(3002) -! B(4860) = dA(3003)/dV(3302) - B(4860) = RCT(3003) -! B(4861) = dA(3004)/dV(4941) - B(4861) = RCT(3004)*V(5251) -! B(4862) = dA(3004)/dV(5251) - B(4862) = RCT(3004)*V(4941) -! B(4863) = dA(3005)/dV(4941) - B(4863) = RCT(3005)*V(5252) -! B(4864) = dA(3005)/dV(5252) - B(4864) = RCT(3005)*V(4941) -! B(4865) = dA(3006)/dV(4941) - B(4865) = RCT(3006)*V(5253) -! B(4866) = dA(3006)/dV(5253) - B(4866) = RCT(3006)*V(4941) -! B(4867) = dA(3007)/dV(4941) - B(4867) = RCT(3007)*V(5254) -! B(4868) = dA(3007)/dV(5254) - B(4868) = RCT(3007)*V(4941) -! B(4869) = dA(3008)/dV(4941) - B(4869) = RCT(3008) -! B(4870) = dA(3009)/dV(4941) - B(4870) = RCT(3009) -! B(4871) = dA(3010)/dV(3208) - B(4871) = RCT(3010)*V(5250) -! B(4872) = dA(3010)/dV(5250) - B(4872) = RCT(3010)*V(3208) -! B(4873) = dA(3011)/dV(3208) - B(4873) = RCT(3011)*V(5250) -! B(4874) = dA(3011)/dV(5250) - B(4874) = RCT(3011)*V(3208) -! B(4875) = dA(3012)/dV(3208) - B(4875) = RCT(3012) -! B(4876) = dA(3013)/dV(2012) - B(4876) = RCT(3013) -! B(4877) = dA(3014)/dV(5067) - B(4877) = RCT(3014)*V(5256) -! B(4878) = dA(3014)/dV(5256) - B(4878) = RCT(3014)*V(5067) -! B(4879) = dA(3015)/dV(5067) - B(4879) = RCT(3015)*V(5250) -! B(4880) = dA(3015)/dV(5250) - B(4880) = RCT(3015)*V(5067) -! B(4881) = dA(3016)/dV(5067) - B(4881) = RCT(3016) -! B(4882) = dA(3017)/dV(1141) - B(4882) = RCT(3017)*V(5250) -! B(4883) = dA(3017)/dV(5250) - B(4883) = RCT(3017)*V(1141) -! B(4884) = dA(3018)/dV(1141) - B(4884) = RCT(3018) -! B(4885) = dA(3019)/dV(3767) - B(4885) = RCT(3019) -! B(4886) = dA(3020)/dV(3767) - B(4886) = RCT(3020) -! B(4887) = dA(3021)/dV(3328) - B(4887) = RCT(3021)*V(5250) -! B(4888) = dA(3021)/dV(5250) - B(4888) = RCT(3021)*V(3328) -! B(4889) = dA(3022)/dV(3328) - B(4889) = RCT(3022) -! B(4890) = dA(3023)/dV(1288) - B(4890) = RCT(3023)*V(5250) -! B(4891) = dA(3023)/dV(5250) - B(4891) = RCT(3023)*V(1288) -! B(4892) = dA(3024)/dV(1288) - B(4892) = RCT(3024) -! B(4893) = dA(3025)/dV(2502) - B(4893) = RCT(3025) -! B(4894) = dA(3026)/dV(1300) - B(4894) = RCT(3026)*V(5250) -! B(4895) = dA(3026)/dV(5250) - B(4895) = RCT(3026)*V(1300) -! B(4896) = dA(3027)/dV(1300) - B(4896) = RCT(3027) -! B(4897) = dA(3028)/dV(3598) - B(4897) = RCT(3028) -! B(4898) = dA(3029)/dV(3598) - B(4898) = RCT(3029) -! B(4899) = dA(3030)/dV(4108) - B(4899) = RCT(3030)*V(5256) -! B(4900) = dA(3030)/dV(5256) - B(4900) = RCT(3030)*V(4108) -! B(4901) = dA(3031)/dV(4108) - B(4901) = RCT(3031)*V(5250) -! B(4902) = dA(3031)/dV(5250) - B(4902) = RCT(3031)*V(4108) -! B(4903) = dA(3032)/dV(4108) - B(4903) = RCT(3032) -! B(4904) = dA(3033)/dV(4108) - B(4904) = RCT(3033) -! B(4905) = dA(3034)/dV(4544) - B(4905) = RCT(3034)*V(5251) -! B(4906) = dA(3034)/dV(5251) - B(4906) = RCT(3034)*V(4544) -! B(4907) = dA(3035)/dV(4544) - B(4907) = RCT(3035)*V(5252) -! B(4908) = dA(3035)/dV(5252) - B(4908) = RCT(3035)*V(4544) -! B(4909) = dA(3036)/dV(4544) - B(4909) = RCT(3036)*V(5253) -! B(4910) = dA(3036)/dV(5253) - B(4910) = RCT(3036)*V(4544) -! B(4911) = dA(3037)/dV(4544) - B(4911) = RCT(3037)*V(5254) -! B(4912) = dA(3037)/dV(5254) - B(4912) = RCT(3037)*V(4544) -! B(4913) = dA(3038)/dV(4544) - B(4913) = RCT(3038) -! B(4914) = dA(3039)/dV(2394) - B(4914) = RCT(3039)*V(5250) -! B(4915) = dA(3039)/dV(5250) - B(4915) = RCT(3039)*V(2394) -! B(4916) = dA(3040)/dV(2394) - B(4916) = RCT(3040)*V(5250) -! B(4917) = dA(3040)/dV(5250) - B(4917) = RCT(3040)*V(2394) -! B(4918) = dA(3041)/dV(2394) - B(4918) = RCT(3041) -! B(4919) = dA(3042)/dV(3878) - B(4919) = RCT(3042) -! B(4920) = dA(3043)/dV(3878) - B(4920) = RCT(3043) -! B(4921) = dA(3044)/dV(3399) - B(4921) = RCT(3044)*V(5250) -! B(4922) = dA(3044)/dV(5250) - B(4922) = RCT(3044)*V(3399) -! B(4923) = dA(3045)/dV(3399) - B(4923) = RCT(3045) -! B(4924) = dA(3046)/dV(2278) - B(4924) = RCT(3046)*V(5250) -! B(4925) = dA(3046)/dV(5250) - B(4925) = RCT(3046)*V(2278) -! B(4926) = dA(3047)/dV(2179) - B(4926) = RCT(3047)*V(5250) -! B(4927) = dA(3047)/dV(5250) - B(4927) = RCT(3047)*V(2179) -! B(4928) = dA(3048)/dV(2179) - B(4928) = RCT(3048)*V(5250) -! B(4929) = dA(3048)/dV(5250) - B(4929) = RCT(3048)*V(2179) -! B(4930) = dA(3049)/dV(2179) - B(4930) = RCT(3049) -! B(4931) = dA(3050)/dV(3572) - B(4931) = RCT(3050) -! B(4932) = dA(3051)/dV(3572) - B(4932) = RCT(3051) -! B(4933) = dA(3052)/dV(4174) - B(4933) = RCT(3052)*V(5256) -! B(4934) = dA(3052)/dV(5256) - B(4934) = RCT(3052)*V(4174) -! B(4935) = dA(3053)/dV(4174) - B(4935) = RCT(3053)*V(5250) -! B(4936) = dA(3053)/dV(5250) - B(4936) = RCT(3053)*V(4174) -! B(4937) = dA(3054)/dV(4174) - B(4937) = RCT(3054) -! B(4938) = dA(3055)/dV(2441) - B(4938) = RCT(3055)*V(5250) -! B(4939) = dA(3055)/dV(5250) - B(4939) = RCT(3055)*V(2441) -! B(4940) = dA(3056)/dV(4956) - B(4940) = RCT(3056)*V(5251) -! B(4941) = dA(3056)/dV(5251) - B(4941) = RCT(3056)*V(4956) -! B(4942) = dA(3057)/dV(4956) - B(4942) = RCT(3057)*V(5252) -! B(4943) = dA(3057)/dV(5252) - B(4943) = RCT(3057)*V(4956) -! B(4944) = dA(3058)/dV(4956) - B(4944) = RCT(3058)*V(5253) -! B(4945) = dA(3058)/dV(5253) - B(4945) = RCT(3058)*V(4956) -! B(4946) = dA(3059)/dV(4956) - B(4946) = RCT(3059)*V(5254) -! B(4947) = dA(3059)/dV(5254) - B(4947) = RCT(3059)*V(4956) -! B(4948) = dA(3060)/dV(4956) - B(4948) = RCT(3060) -! B(4949) = dA(3061)/dV(4956) - B(4949) = RCT(3061) -! B(4950) = dA(3062)/dV(3289) - B(4950) = RCT(3062)*V(5250) -! B(4951) = dA(3062)/dV(5250) - B(4951) = RCT(3062)*V(3289) -! B(4952) = dA(3063)/dV(3289) - B(4952) = RCT(3063)*V(5250) -! B(4953) = dA(3063)/dV(5250) - B(4953) = RCT(3063)*V(3289) -! B(4954) = dA(3064)/dV(3289) - B(4954) = RCT(3064) -! B(4955) = dA(3065)/dV(1877) - B(4955) = RCT(3065) -! B(4956) = dA(3066)/dV(3561) - B(4956) = RCT(3066)*V(5250) -! B(4957) = dA(3066)/dV(5250) - B(4957) = RCT(3066)*V(3561) -! B(4958) = dA(3067)/dV(3561) - B(4958) = RCT(3067) -! B(4959) = dA(3068)/dV(926) - B(4959) = RCT(3068)*V(5250) -! B(4960) = dA(3068)/dV(5250) - B(4960) = RCT(3068)*V(926) -! B(4961) = dA(3069)/dV(1778) - B(4961) = RCT(3069)*V(5250) -! B(4962) = dA(3069)/dV(5250) - B(4962) = RCT(3069)*V(1778) -! B(4963) = dA(3070)/dV(1778) - B(4963) = RCT(3070)*V(5250) -! B(4964) = dA(3070)/dV(5250) - B(4964) = RCT(3070)*V(1778) -! B(4965) = dA(3071)/dV(1778) - B(4965) = RCT(3071) -! B(4966) = dA(3072)/dV(2549) - B(4966) = RCT(3072) -! B(4967) = dA(3073)/dV(5009) - B(4967) = RCT(3073)*V(5256) -! B(4968) = dA(3073)/dV(5256) - B(4968) = RCT(3073)*V(5009) -! B(4969) = dA(3074)/dV(5009) - B(4969) = RCT(3074)*V(5250) -! B(4970) = dA(3074)/dV(5250) - B(4970) = RCT(3074)*V(5009) -! B(4971) = dA(3075)/dV(5009) - B(4971) = RCT(3075) -! B(4972) = dA(3076)/dV(2413) - B(4972) = RCT(3076)*V(5250) -! B(4973) = dA(3076)/dV(5250) - B(4973) = RCT(3076)*V(2413) -! B(4974) = dA(3077)/dV(2413) - B(4974) = RCT(3077)*V(5250) -! B(4975) = dA(3077)/dV(5250) - B(4975) = RCT(3077)*V(2413) -! B(4976) = dA(3078)/dV(2413) - B(4976) = RCT(3078) -! B(4977) = dA(3079)/dV(3956) - B(4977) = RCT(3079) -! B(4978) = dA(3080)/dV(3956) - B(4978) = RCT(3080) -! B(4979) = dA(3081)/dV(3418) - B(4979) = RCT(3081)*V(5250) -! B(4980) = dA(3081)/dV(5250) - B(4980) = RCT(3081)*V(3418) -! B(4981) = dA(3082)/dV(3418) - B(4981) = RCT(3082) -! B(4982) = dA(3083)/dV(2449) - B(4982) = RCT(3083)*V(5250) -! B(4983) = dA(3083)/dV(5250) - B(4983) = RCT(3083)*V(2449) -! B(4984) = dA(3084)/dV(2449) - B(4984) = RCT(3084)*V(5250) -! B(4985) = dA(3084)/dV(5250) - B(4985) = RCT(3084)*V(2449) -! B(4986) = dA(3085)/dV(2449) - B(4986) = RCT(3085) -! B(4987) = dA(3086)/dV(3922) - B(4987) = RCT(3086) -! B(4988) = dA(3087)/dV(3922) - B(4988) = RCT(3087) -! B(4989) = dA(3088)/dV(3409) - B(4989) = RCT(3088)*V(5250) -! B(4990) = dA(3088)/dV(5250) - B(4990) = RCT(3088)*V(3409) -! B(4991) = dA(3089)/dV(3409) - B(4991) = RCT(3089) -! B(4992) = dA(3090)/dV(2447) - B(4992) = RCT(3090)*V(5250) -! B(4993) = dA(3090)/dV(5250) - B(4993) = RCT(3090)*V(2447) -! B(4994) = dA(3091)/dV(3266) - B(4994) = RCT(3091)*V(5250) -! B(4995) = dA(3091)/dV(5250) - B(4995) = RCT(3091)*V(3266) -! B(4996) = dA(3092)/dV(3266) - B(4996) = RCT(3092)*V(5250) -! B(4997) = dA(3092)/dV(5250) - B(4997) = RCT(3092)*V(3266) -! B(4998) = dA(3093)/dV(3266) - B(4998) = RCT(3093) -! B(4999) = dA(3094)/dV(2158) - B(4999) = RCT(3094) -! B(5000) = dA(3095)/dV(3656) - B(5000) = RCT(3095)*V(5250) -! B(5001) = dA(3095)/dV(5250) - B(5001) = RCT(3095)*V(3656) -! B(5002) = dA(3096)/dV(3656) - B(5002) = RCT(3096) -! B(5003) = dA(3097)/dV(2369) - B(5003) = RCT(3097)*V(5250) -! B(5004) = dA(3097)/dV(5250) - B(5004) = RCT(3097)*V(2369) -! B(5005) = dA(3098)/dV(2369) - B(5005) = RCT(3098)*V(5250) -! B(5006) = dA(3098)/dV(5250) - B(5006) = RCT(3098)*V(2369) -! B(5007) = dA(3099)/dV(2369) - B(5007) = RCT(3099) -! B(5008) = dA(3100)/dV(3592) - B(5008) = RCT(3100) -! B(5009) = dA(3101)/dV(3592) - B(5009) = RCT(3101) -! B(5010) = dA(3102)/dV(4114) - B(5010) = RCT(3102)*V(5256) -! B(5011) = dA(3102)/dV(5256) - B(5011) = RCT(3102)*V(4114) -! B(5012) = dA(3103)/dV(4114) - B(5012) = RCT(3103)*V(5250) -! B(5013) = dA(3103)/dV(5250) - B(5013) = RCT(3103)*V(4114) -! B(5014) = dA(3104)/dV(4114) - B(5014) = RCT(3104) -! B(5015) = dA(3105)/dV(4114) - B(5015) = RCT(3105) -! B(5016) = dA(3106)/dV(1391) - B(5016) = RCT(3106)*V(5250) -! B(5017) = dA(3106)/dV(5250) - B(5017) = RCT(3106)*V(1391) -! B(5018) = dA(3107)/dV(1391) - B(5018) = RCT(3107) -! B(5019) = dA(3108)/dV(2851) - B(5019) = RCT(3108) -! B(5020) = dA(3109)/dV(4320) - B(5020) = RCT(3109)*V(5251) -! B(5021) = dA(3109)/dV(5251) - B(5021) = RCT(3109)*V(4320) -! B(5022) = dA(3110)/dV(4320) - B(5022) = RCT(3110)*V(5252) -! B(5023) = dA(3110)/dV(5252) - B(5023) = RCT(3110)*V(4320) -! B(5024) = dA(3111)/dV(4320) - B(5024) = RCT(3111)*V(5253) -! B(5025) = dA(3111)/dV(5253) - B(5025) = RCT(3111)*V(4320) -! B(5026) = dA(3112)/dV(4320) - B(5026) = RCT(3112)*V(5254) -! B(5027) = dA(3112)/dV(5254) - B(5027) = RCT(3112)*V(4320) -! B(5028) = dA(3113)/dV(4320) - B(5028) = RCT(3113) -! B(5029) = dA(3114)/dV(2069) - B(5029) = RCT(3114)*V(5250) -! B(5030) = dA(3114)/dV(5250) - B(5030) = RCT(3114)*V(2069) -! B(5031) = dA(3115)/dV(2069) - B(5031) = RCT(3115)*V(5250) -! B(5032) = dA(3115)/dV(5250) - B(5032) = RCT(3115)*V(2069) -! B(5033) = dA(3116)/dV(2069) - B(5033) = RCT(3116) -! B(5034) = dA(3117)/dV(3887) - B(5034) = RCT(3117) -! B(5035) = dA(3118)/dV(3887) - B(5035) = RCT(3118) -! B(5036) = dA(3119)/dV(3432) - B(5036) = RCT(3119)*V(5250) -! B(5037) = dA(3119)/dV(5250) - B(5037) = RCT(3119)*V(3432) -! B(5038) = dA(3120)/dV(3432) - B(5038) = RCT(3120) -! B(5039) = dA(3121)/dV(3175) - B(5039) = RCT(3121)*V(5250) -! B(5040) = dA(3121)/dV(5250) - B(5040) = RCT(3121)*V(3175) -! B(5041) = dA(3122)/dV(3175) - B(5041) = RCT(3122) -! B(5042) = dA(3123)/dV(2363) - B(5042) = RCT(3123)*V(5250) -! B(5043) = dA(3123)/dV(5250) - B(5043) = RCT(3123)*V(2363) -! B(5044) = dA(3124)/dV(2363) - B(5044) = RCT(3124)*V(5250) -! B(5045) = dA(3124)/dV(5250) - B(5045) = RCT(3124)*V(2363) -! B(5046) = dA(3125)/dV(2363) - B(5046) = RCT(3125) -! B(5047) = dA(3126)/dV(3575) - B(5047) = RCT(3126) -! B(5048) = dA(3127)/dV(3575) - B(5048) = RCT(3127) -! B(5049) = dA(3128)/dV(4160) - B(5049) = RCT(3128)*V(5256) -! B(5050) = dA(3128)/dV(5256) - B(5050) = RCT(3128)*V(4160) -! B(5051) = dA(3129)/dV(4160) - B(5051) = RCT(3129)*V(5250) -! B(5052) = dA(3129)/dV(5250) - B(5052) = RCT(3129)*V(4160) -! B(5053) = dA(3130)/dV(4160) - B(5053) = RCT(3130) -! B(5054) = dA(3131)/dV(4868) - B(5054) = RCT(3131)*V(5251) -! B(5055) = dA(3131)/dV(5251) - B(5055) = RCT(3131)*V(4868) -! B(5056) = dA(3132)/dV(4868) - B(5056) = RCT(3132)*V(5252) -! B(5057) = dA(3132)/dV(5252) - B(5057) = RCT(3132)*V(4868) -! B(5058) = dA(3133)/dV(4868) - B(5058) = RCT(3133)*V(5253) -! B(5059) = dA(3133)/dV(5253) - B(5059) = RCT(3133)*V(4868) -! B(5060) = dA(3134)/dV(4868) - B(5060) = RCT(3134)*V(5254) -! B(5061) = dA(3134)/dV(5254) - B(5061) = RCT(3134)*V(4868) -! B(5062) = dA(3135)/dV(4868) - B(5062) = RCT(3135) -! B(5063) = dA(3136)/dV(4868) - B(5063) = RCT(3136) -! B(5064) = dA(3137)/dV(2135) - B(5064) = RCT(3137)*V(5250) -! B(5065) = dA(3137)/dV(5250) - B(5065) = RCT(3137)*V(2135) -! B(5066) = dA(3138)/dV(2135) - B(5066) = RCT(3138)*V(5250) -! B(5067) = dA(3138)/dV(5250) - B(5067) = RCT(3138)*V(2135) -! B(5068) = dA(3139)/dV(2135) - B(5068) = RCT(3139) -! B(5069) = dA(3140)/dV(3268) - B(5069) = RCT(3140) -! B(5070) = dA(3141)/dV(4961) - B(5070) = RCT(3141)*V(5256) -! B(5071) = dA(3141)/dV(5256) - B(5071) = RCT(3141)*V(4961) -! B(5072) = dA(3142)/dV(4961) - B(5072) = RCT(3142)*V(5250) -! B(5073) = dA(3142)/dV(5250) - B(5073) = RCT(3142)*V(4961) -! B(5074) = dA(3143)/dV(4961) - B(5074) = RCT(3143) -! B(5075) = dA(3144)/dV(2366) - B(5075) = RCT(3144)*V(5250) -! B(5076) = dA(3144)/dV(5250) - B(5076) = RCT(3144)*V(2366) -! B(5077) = dA(3145)/dV(2366) - B(5077) = RCT(3145)*V(5250) -! B(5078) = dA(3145)/dV(5250) - B(5078) = RCT(3145)*V(2366) -! B(5079) = dA(3146)/dV(2366) - B(5079) = RCT(3146) -! B(5080) = dA(3147)/dV(3970) - B(5080) = RCT(3147) -! B(5081) = dA(3148)/dV(3970) - B(5081) = RCT(3148) -! B(5082) = dA(3149)/dV(3364) - B(5082) = RCT(3149)*V(5250) -! B(5083) = dA(3149)/dV(5250) - B(5083) = RCT(3149)*V(3364) -! B(5084) = dA(3150)/dV(3364) - B(5084) = RCT(3150) -! B(5085) = dA(3151)/dV(1072) - B(5085) = RCT(3151)*V(5250) -! B(5086) = dA(3151)/dV(5250) - B(5086) = RCT(3151)*V(1072) -! B(5087) = dA(3152)/dV(1072) - B(5087) = RCT(3152) -! B(5088) = dA(3153)/dV(2831) - B(5088) = RCT(3153) -! B(5089) = dA(3154)/dV(976) - B(5089) = RCT(3154)*V(5250) -! B(5090) = dA(3154)/dV(5250) - B(5090) = RCT(3154)*V(976) -! B(5091) = dA(3155)/dV(976) - B(5091) = RCT(3155)*V(5250) -! B(5092) = dA(3155)/dV(5250) - B(5092) = RCT(3155)*V(976) -! B(5093) = dA(3156)/dV(3002) - B(5093) = RCT(3156) -! B(5094) = dA(3157)/dV(3002) - B(5094) = RCT(3157) -! B(5095) = dA(3158)/dV(4155) - B(5095) = RCT(3158)*V(5256) -! B(5096) = dA(3158)/dV(5256) - B(5096) = RCT(3158)*V(4155) -! B(5097) = dA(3159)/dV(4155) - B(5097) = RCT(3159)*V(5250) -! B(5098) = dA(3159)/dV(5250) - B(5098) = RCT(3159)*V(4155) -! B(5099) = dA(3160)/dV(4155) - B(5099) = RCT(3160) -! B(5100) = dA(3161)/dV(1827) - B(5100) = RCT(3161)*V(5250) -! B(5101) = dA(3161)/dV(5250) - B(5101) = RCT(3161)*V(1827) -! B(5102) = dA(3162)/dV(2125) - B(5102) = RCT(3162)*V(5250) -! B(5103) = dA(3162)/dV(5250) - B(5103) = RCT(3162)*V(2125) -! B(5104) = dA(3163)/dV(2125) - B(5104) = RCT(3163)*V(5250) -! B(5105) = dA(3163)/dV(5250) - B(5105) = RCT(3163)*V(2125) -! B(5106) = dA(3164)/dV(2125) - B(5106) = RCT(3164) -! B(5107) = dA(3165)/dV(3925) - B(5107) = RCT(3165) -! B(5108) = dA(3166)/dV(3925) - B(5108) = RCT(3166) -! B(5109) = dA(3167)/dV(3349) - B(5109) = RCT(3167)*V(5250) -! B(5110) = dA(3167)/dV(5250) - B(5110) = RCT(3167)*V(3349) -! B(5111) = dA(3168)/dV(3349) - B(5111) = RCT(3168) -! B(5112) = dA(3169)/dV(2011) - B(5112) = RCT(3169)*V(5250) -! B(5113) = dA(3169)/dV(5250) - B(5113) = RCT(3169)*V(2011) -! B(5114) = dA(3170)/dV(4838) - B(5114) = RCT(3170)*V(5251) -! B(5115) = dA(3170)/dV(5251) - B(5115) = RCT(3170)*V(4838) -! B(5116) = dA(3171)/dV(4838) - B(5116) = RCT(3171)*V(5252) -! B(5117) = dA(3171)/dV(5252) - B(5117) = RCT(3171)*V(4838) -! B(5118) = dA(3172)/dV(4838) - B(5118) = RCT(3172)*V(5253) -! B(5119) = dA(3172)/dV(5253) - B(5119) = RCT(3172)*V(4838) -! B(5120) = dA(3173)/dV(4838) - B(5120) = RCT(3173)*V(5254) -! B(5121) = dA(3173)/dV(5254) - B(5121) = RCT(3173)*V(4838) -! B(5122) = dA(3174)/dV(4838) - B(5122) = RCT(3174) -! B(5123) = dA(3175)/dV(4838) - B(5123) = RCT(3175) -! B(5124) = dA(3176)/dV(3308) - B(5124) = RCT(3176)*V(5250) -! B(5125) = dA(3176)/dV(5250) - B(5125) = RCT(3176)*V(3308) -! B(5126) = dA(3177)/dV(3308) - B(5126) = RCT(3177)*V(5250) -! B(5127) = dA(3177)/dV(5250) - B(5127) = RCT(3177)*V(3308) -! B(5128) = dA(3178)/dV(3308) - B(5128) = RCT(3178) -! B(5129) = dA(3179)/dV(1927) - B(5129) = RCT(3179) -! B(5130) = dA(3180)/dV(3542) - B(5130) = RCT(3180)*V(5250) -! B(5131) = dA(3180)/dV(5250) - B(5131) = RCT(3180)*V(3542) -! B(5132) = dA(3181)/dV(3542) - B(5132) = RCT(3181) -! B(5133) = dA(3182)/dV(1386) - B(5133) = RCT(3182)*V(5250) -! B(5134) = dA(3182)/dV(5250) - B(5134) = RCT(3182)*V(1386) -! B(5135) = dA(3183)/dV(1774) - B(5135) = RCT(3183) -! B(5136) = dA(3184)/dV(1774) - B(5136) = RCT(3184)*V(5250) -! B(5137) = dA(3184)/dV(5250) - B(5137) = RCT(3184)*V(1774) -! B(5138) = dA(3185)/dV(1774) - B(5138) = RCT(3185)*V(5250) -! B(5139) = dA(3185)/dV(5250) - B(5139) = RCT(3185)*V(1774) -! B(5140) = dA(3186)/dV(2944) - B(5140) = RCT(3186) -! B(5141) = dA(3187)/dV(4873) - B(5141) = RCT(3187) -! B(5142) = dA(3188)/dV(4873) - B(5142) = RCT(3188)*V(5256) -! B(5143) = dA(3188)/dV(5256) - B(5143) = RCT(3188)*V(4873) -! B(5144) = dA(3189)/dV(4873) - B(5144) = RCT(3189)*V(5250) -! B(5145) = dA(3189)/dV(5250) - B(5145) = RCT(3189)*V(4873) -! B(5146) = dA(3190)/dV(2455) - B(5146) = RCT(3190)*V(5250) -! B(5147) = dA(3190)/dV(5250) - B(5147) = RCT(3190)*V(2455) -! B(5148) = dA(3191)/dV(2455) - B(5148) = RCT(3191)*V(5250) -! B(5149) = dA(3191)/dV(5250) - B(5149) = RCT(3191)*V(2455) -! B(5150) = dA(3192)/dV(2455) - B(5150) = RCT(3192) -! B(5151) = dA(3193)/dV(3910) - B(5151) = RCT(3193) -! B(5152) = dA(3194)/dV(3910) - B(5152) = RCT(3194) -! B(5153) = dA(3195)/dV(3341) - B(5153) = RCT(3195)*V(5250) -! B(5154) = dA(3195)/dV(5250) - B(5154) = RCT(3195)*V(3341) -! B(5155) = dA(3196)/dV(3341) - B(5155) = RCT(3196) -! B(5156) = dA(3197)/dV(2370) - B(5156) = RCT(3197)*V(5250) -! B(5157) = dA(3197)/dV(5250) - B(5157) = RCT(3197)*V(2370) -! B(5158) = dA(3198)/dV(1940) - B(5158) = RCT(3198)*V(5250) -! B(5159) = dA(3198)/dV(5250) - B(5159) = RCT(3198)*V(1940) -! B(5160) = dA(3199)/dV(1940) - B(5160) = RCT(3199)*V(5250) -! B(5161) = dA(3199)/dV(5250) - B(5161) = RCT(3199)*V(1940) -! B(5162) = dA(3200)/dV(1940) - B(5162) = RCT(3200) -! B(5163) = dA(3201)/dV(3842) - B(5163) = RCT(3201) -! B(5164) = dA(3202)/dV(3842) - B(5164) = RCT(3202) -! B(5165) = dA(3203)/dV(3376) - B(5165) = RCT(3203)*V(5250) -! B(5166) = dA(3203)/dV(5250) - B(5166) = RCT(3203)*V(3376) -! B(5167) = dA(3204)/dV(3376) - B(5167) = RCT(3204) -! B(5168) = dA(3205)/dV(2067) - B(5168) = RCT(3205)*V(5250) -! B(5169) = dA(3205)/dV(5250) - B(5169) = RCT(3205)*V(2067) -! B(5170) = dA(3206)/dV(1767) - B(5170) = RCT(3206)*V(5250) -! B(5171) = dA(3206)/dV(5250) - B(5171) = RCT(3206)*V(1767) -! B(5172) = dA(3207)/dV(1767) - B(5172) = RCT(3207)*V(5250) -! B(5173) = dA(3207)/dV(5250) - B(5173) = RCT(3207)*V(1767) -! B(5174) = dA(3208)/dV(1767) - B(5174) = RCT(3208) -! B(5175) = dA(3209)/dV(2912) - B(5175) = RCT(3209) -! B(5176) = dA(3210)/dV(1121) - B(5176) = RCT(3210)*V(5250) -! B(5177) = dA(3210)/dV(5250) - B(5177) = RCT(3210)*V(1121) -! B(5178) = dA(3211)/dV(3757) - B(5178) = RCT(3211)*V(5250) -! B(5179) = dA(3211)/dV(5250) - B(5179) = RCT(3211)*V(3757) -! B(5180) = dA(3212)/dV(3757) - B(5180) = RCT(3212) -! B(5181) = dA(3213)/dV(2133) - B(5181) = RCT(3213)*V(5250) -! B(5182) = dA(3213)/dV(5250) - B(5182) = RCT(3213)*V(2133) -! B(5183) = dA(3214)/dV(2133) - B(5183) = RCT(3214)*V(5250) -! B(5184) = dA(3214)/dV(5250) - B(5184) = RCT(3214)*V(2133) -! B(5185) = dA(3215)/dV(2133) - B(5185) = RCT(3215) -! B(5186) = dA(3216)/dV(2849) - B(5186) = RCT(3216) -! B(5187) = dA(3217)/dV(4223) - B(5187) = RCT(3217)*V(5250) -! B(5188) = dA(3217)/dV(5250) - B(5188) = RCT(3217)*V(4223) -! B(5189) = dA(3218)/dV(4223) - B(5189) = RCT(3218) -! B(5190) = dA(3219)/dV(2068) - B(5190) = RCT(3219)*V(5250) -! B(5191) = dA(3219)/dV(5250) - B(5191) = RCT(3219)*V(2068) -! B(5192) = dA(3220)/dV(2068) - B(5192) = RCT(3220) -! B(5193) = dA(3221)/dV(573) - B(5193) = RCT(3221) -! B(5194) = dA(3222)/dV(3188) - B(5194) = RCT(3222)*V(5250) -! B(5195) = dA(3222)/dV(5250) - B(5195) = RCT(3222)*V(3188) -! B(5196) = dA(3223)/dV(1171) - B(5196) = RCT(3223)*V(5250) -! B(5197) = dA(3223)/dV(5250) - B(5197) = RCT(3223)*V(1171) -! B(5198) = dA(3224)/dV(1171) - B(5198) = RCT(3224) -! B(5199) = dA(3225)/dV(1754) - B(5199) = RCT(3225) -! B(5200) = dA(3226)/dV(32) - B(5200) = RCT(3226)*V(5250) -! B(5201) = dA(3226)/dV(5250) - B(5201) = RCT(3226)*V(32) -! B(5202) = dA(3227)/dV(1434) - B(5202) = RCT(3227)*V(5250) -! B(5203) = dA(3227)/dV(5250) - B(5203) = RCT(3227)*V(1434) -! B(5204) = dA(3228)/dV(1434) - B(5204) = RCT(3228) -! B(5205) = dA(3229)/dV(2341) - B(5205) = RCT(3229)*V(5250) -! B(5206) = dA(3229)/dV(5250) - B(5206) = RCT(3229)*V(2341) -! B(5207) = dA(3230)/dV(2341) - B(5207) = RCT(3230) -! B(5208) = dA(3231)/dV(3342) - B(5208) = RCT(3231) -! B(5209) = dA(3232)/dV(3342) - B(5209) = RCT(3232) -! B(5210) = dA(3233)/dV(517) - B(5210) = RCT(3233)*V(5250) -! B(5211) = dA(3233)/dV(5250) - B(5211) = RCT(3233)*V(517) -! B(5212) = dA(3234)/dV(3121) - B(5212) = RCT(3234)*V(5250) -! B(5213) = dA(3234)/dV(5250) - B(5213) = RCT(3234)*V(3121) -! B(5214) = dA(3235)/dV(3121) - B(5214) = RCT(3235) -! B(5215) = dA(3236)/dV(4649) - B(5215) = RCT(3236)*V(5255) -! B(5216) = dA(3236)/dV(5255) - B(5216) = RCT(3236)*V(4649) -! B(5217) = dA(3237)/dV(4649) - B(5217) = RCT(3237)*V(5255) -! B(5218) = dA(3237)/dV(5255) - B(5218) = RCT(3237)*V(4649) -! B(5219) = dA(3238)/dV(4649) - B(5219) = RCT(3238)*V(5255) -! B(5220) = dA(3238)/dV(5255) - B(5220) = RCT(3238)*V(4649) -! B(5221) = dA(3239)/dV(4649) - B(5221) = RCT(3239)*V(5252) -! B(5222) = dA(3239)/dV(5252) - B(5222) = RCT(3239)*V(4649) -! B(5223) = dA(3240)/dV(4649) - B(5223) = RCT(3240)*V(5253) -! B(5224) = dA(3240)/dV(5253) - B(5224) = RCT(3240)*V(4649) -! B(5225) = dA(3241)/dV(4649) - B(5225) = RCT(3241)*V(5256) -! B(5226) = dA(3241)/dV(5256) - B(5226) = RCT(3241)*V(4649) -! B(5227) = dA(3242)/dV(4649) - B(5227) = RCT(3242) -! B(5228) = dA(3243)/dV(4649) - B(5228) = RCT(3243) -! B(5229) = dA(3244)/dV(4721) - B(5229) = RCT(3244)*V(5256) -! B(5230) = dA(3244)/dV(5256) - B(5230) = RCT(3244)*V(4721) -! B(5231) = dA(3245)/dV(4721) - B(5231) = RCT(3245)*V(5250) -! B(5232) = dA(3245)/dV(5250) - B(5232) = RCT(3245)*V(4721) -! B(5233) = dA(3246)/dV(4721) - B(5233) = RCT(3246) -! B(5234) = dA(3247)/dV(4588) - B(5234) = RCT(3247) -! B(5235) = dA(3248)/dV(4588) - B(5235) = RCT(3248) -! B(5236) = dA(3249)/dV(4588) - B(5236) = RCT(3249) -! B(5237) = dA(3250)/dV(4588) - B(5237) = RCT(3250) -! B(5238) = dA(3251)/dV(4720) - B(5238) = RCT(3251)*V(5255) -! B(5239) = dA(3251)/dV(5255) - B(5239) = RCT(3251)*V(4720) -! B(5240) = dA(3252)/dV(4720) - B(5240) = RCT(3252)*V(5252) -! B(5241) = dA(3252)/dV(5252) - B(5241) = RCT(3252)*V(4720) -! B(5242) = dA(3253)/dV(4720) - B(5242) = RCT(3253)*V(5252) -! B(5243) = dA(3253)/dV(5252) - B(5243) = RCT(3253)*V(4720) -! B(5244) = dA(3254)/dV(4720) - B(5244) = RCT(3254)*V(5256) -! B(5245) = dA(3254)/dV(5256) - B(5245) = RCT(3254)*V(4720) -! B(5246) = dA(3255)/dV(4720) - B(5246) = RCT(3255) -! B(5247) = dA(3256)/dV(4720) - B(5247) = RCT(3256) -! B(5248) = dA(3257)/dV(4720) - B(5248) = RCT(3257) -! B(5249) = dA(3258)/dV(4513) - B(5249) = RCT(3258)*V(5255) -! B(5250) = dA(3258)/dV(5255) - B(5250) = RCT(3258)*V(4513) -! B(5251) = dA(3259)/dV(4513) - B(5251) = RCT(3259)*V(5252) -! B(5252) = dA(3259)/dV(5252) - B(5252) = RCT(3259)*V(4513) -! B(5253) = dA(3260)/dV(4513) - B(5253) = RCT(3260)*V(5256) -! B(5254) = dA(3260)/dV(5256) - B(5254) = RCT(3260)*V(4513) -! B(5255) = dA(3261)/dV(4513) - B(5255) = RCT(3261) -! B(5256) = dA(3262)/dV(4513) - B(5256) = RCT(3262) -! B(5257) = dA(3263)/dV(4513) - B(5257) = RCT(3263) -! B(5258) = dA(3264)/dV(5058) - B(5258) = RCT(3264)*V(5256) -! B(5259) = dA(3264)/dV(5256) - B(5259) = RCT(3264)*V(5058) -! B(5260) = dA(3265)/dV(5058) - B(5260) = RCT(3265)*V(5258) -! B(5261) = dA(3265)/dV(5258) - B(5261) = RCT(3265)*V(5058) -! B(5262) = dA(3266)/dV(5058) - B(5262) = RCT(3266)*V(5250) -! B(5263) = dA(3266)/dV(5250) - B(5263) = RCT(3266)*V(5058) -! B(5264) = dA(3267)/dV(5058) - B(5264) = RCT(3267)*V(5250) -! B(5265) = dA(3267)/dV(5250) - B(5265) = RCT(3267)*V(5058) -! B(5266) = dA(3268)/dV(5058) - B(5266) = RCT(3268) -! B(5267) = dA(3269)/dV(5058) - B(5267) = RCT(3269) -! B(5268) = dA(3270)/dV(4965) - B(5268) = RCT(3270)*V(5253) -! B(5269) = dA(3270)/dV(5253) - B(5269) = RCT(3270)*V(4965) -! B(5270) = dA(3271)/dV(4965) - B(5270) = RCT(3271)*V(5258) -! B(5271) = dA(3271)/dV(5258) - B(5271) = RCT(3271)*V(4965) -! B(5272) = dA(3272)/dV(3903) - B(5272) = RCT(3272)*V(5255) -! B(5273) = dA(3272)/dV(5255) - B(5273) = RCT(3272)*V(3903) -! B(5274) = dA(3273)/dV(3903) - B(5274) = RCT(3273)*V(5252) -! B(5275) = dA(3273)/dV(5252) - B(5275) = RCT(3273)*V(3903) -! B(5276) = dA(3274)/dV(3903) - B(5276) = RCT(3274)*V(5256) -! B(5277) = dA(3274)/dV(5256) - B(5277) = RCT(3274)*V(3903) -! B(5278) = dA(3275)/dV(3903) - B(5278) = RCT(3275) -! B(5279) = dA(3276)/dV(3903) - B(5279) = RCT(3276) -! B(5280) = dA(3277)/dV(3830) - B(5280) = RCT(3277)*V(5256) -! B(5281) = dA(3277)/dV(5256) - B(5281) = RCT(3277)*V(3830) -! B(5282) = dA(3278)/dV(3830) - B(5282) = RCT(3278)*V(5258) -! B(5283) = dA(3278)/dV(5258) - B(5283) = RCT(3278)*V(3830) -! B(5284) = dA(3279)/dV(3830) - B(5284) = RCT(3279)*V(5250) -! B(5285) = dA(3279)/dV(5250) - B(5285) = RCT(3279)*V(3830) -! B(5286) = dA(3280)/dV(3786) - B(5286) = RCT(3280)*V(5255) -! B(5287) = dA(3280)/dV(5255) - B(5287) = RCT(3280)*V(3786) -! B(5288) = dA(3281)/dV(3786) - B(5288) = RCT(3281)*V(5252) -! B(5289) = dA(3281)/dV(5252) - B(5289) = RCT(3281)*V(3786) -! B(5290) = dA(3282)/dV(3786) - B(5290) = RCT(3282)*V(5256) -! B(5291) = dA(3282)/dV(5256) - B(5291) = RCT(3282)*V(3786) -! B(5292) = dA(3283)/dV(3786) - B(5292) = RCT(3283) -! B(5293) = dA(3284)/dV(3786) - B(5293) = RCT(3284) -! B(5294) = dA(3285)/dV(1341) - B(5294) = RCT(3285)*V(5250) -! B(5295) = dA(3285)/dV(5250) - B(5295) = RCT(3285)*V(1341) -! B(5296) = dA(3286)/dV(1341) - B(5296) = RCT(3286) -! B(5297) = dA(3287)/dV(1794) - B(5297) = RCT(3287)*V(5250) -! B(5298) = dA(3287)/dV(5250) - B(5298) = RCT(3287)*V(1794) -! B(5299) = dA(3288)/dV(1794) - B(5299) = RCT(3288) -! B(5300) = dA(3289)/dV(1792) - B(5300) = RCT(3289) -! B(5301) = dA(3290)/dV(444) - B(5301) = RCT(3290)*V(5250) -! B(5302) = dA(3290)/dV(5250) - B(5302) = RCT(3290)*V(444) -! B(5303) = dA(3291)/dV(3538) - B(5303) = RCT(3291)*V(5255) -! B(5304) = dA(3291)/dV(5255) - B(5304) = RCT(3291)*V(3538) -! B(5305) = dA(3292)/dV(3538) - B(5305) = RCT(3292)*V(5252) -! B(5306) = dA(3292)/dV(5252) - B(5306) = RCT(3292)*V(3538) -! B(5307) = dA(3293)/dV(3538) - B(5307) = RCT(3293)*V(5256) -! B(5308) = dA(3293)/dV(5256) - B(5308) = RCT(3293)*V(3538) -! B(5309) = dA(3294)/dV(3538) - B(5309) = RCT(3294) -! B(5310) = dA(3295)/dV(3538) - B(5310) = RCT(3295) -! B(5311) = dA(3296)/dV(3827) - B(5311) = RCT(3296)*V(5255) -! B(5312) = dA(3296)/dV(5255) - B(5312) = RCT(3296)*V(3827) -! B(5313) = dA(3297)/dV(3827) - B(5313) = RCT(3297)*V(5252) -! B(5314) = dA(3297)/dV(5252) - B(5314) = RCT(3297)*V(3827) -! B(5315) = dA(3298)/dV(3827) - B(5315) = RCT(3298)*V(5256) -! B(5316) = dA(3298)/dV(5256) - B(5316) = RCT(3298)*V(3827) -! B(5317) = dA(3299)/dV(3827) - B(5317) = RCT(3299) -! B(5318) = dA(3300)/dV(3827) - B(5318) = RCT(3300) -! B(5319) = dA(3301)/dV(3793) - B(5319) = RCT(3301)*V(5253) -! B(5320) = dA(3301)/dV(5253) - B(5320) = RCT(3301)*V(3793) -! B(5321) = dA(3302)/dV(3793) - B(5321) = RCT(3302)*V(5258) -! B(5322) = dA(3302)/dV(5258) - B(5322) = RCT(3302)*V(3793) -! B(5323) = dA(3303)/dV(3545) - B(5323) = RCT(3303)*V(5256) -! B(5324) = dA(3303)/dV(5256) - B(5324) = RCT(3303)*V(3545) -! B(5325) = dA(3304)/dV(3545) - B(5325) = RCT(3304)*V(5258) -! B(5326) = dA(3304)/dV(5258) - B(5326) = RCT(3304)*V(3545) -! B(5327) = dA(3305)/dV(3545) - B(5327) = RCT(3305)*V(5250) -! B(5328) = dA(3305)/dV(5250) - B(5328) = RCT(3305)*V(3545) -! B(5329) = dA(3306)/dV(1307) - B(5329) = RCT(3306)*V(5250) -! B(5330) = dA(3306)/dV(5250) - B(5330) = RCT(3306)*V(1307) -! B(5331) = dA(3307)/dV(1307) - B(5331) = RCT(3307) -! B(5332) = dA(3308)/dV(3824) - B(5332) = RCT(3308) -! B(5333) = dA(3309)/dV(3824) - B(5333) = RCT(3309) -! B(5334) = dA(3310)/dV(3824) - B(5334) = RCT(3310) -! B(5335) = dA(3311)/dV(3824) - B(5335) = RCT(3311) -! B(5336) = dA(3312)/dV(3824) - B(5336) = RCT(3312) -! B(5337) = dA(3313)/dV(2383) - B(5337) = RCT(3313)*V(5250) -! B(5338) = dA(3313)/dV(5250) - B(5338) = RCT(3313)*V(2383) -! B(5339) = dA(3314)/dV(2383) - B(5339) = RCT(3314) -! B(5340) = dA(3315)/dV(361) - B(5340) = RCT(3315)*V(5250) -! B(5341) = dA(3315)/dV(5250) - B(5341) = RCT(3315)*V(361) -! B(5342) = dA(3316)/dV(3372) - B(5342) = RCT(3316)*V(5250) -! B(5343) = dA(3316)/dV(5250) - B(5343) = RCT(3316)*V(3372) -! B(5344) = dA(3317)/dV(3372) - B(5344) = RCT(3317) -! B(5345) = dA(3318)/dV(4626) - B(5345) = RCT(3318)*V(5255) -! B(5346) = dA(3318)/dV(5255) - B(5346) = RCT(3318)*V(4626) -! B(5347) = dA(3319)/dV(4626) - B(5347) = RCT(3319)*V(5255) -! B(5348) = dA(3319)/dV(5255) - B(5348) = RCT(3319)*V(4626) -! B(5349) = dA(3320)/dV(4626) - B(5349) = RCT(3320)*V(5255) -! B(5350) = dA(3320)/dV(5255) - B(5350) = RCT(3320)*V(4626) -! B(5351) = dA(3321)/dV(4626) - B(5351) = RCT(3321)*V(5252) -! B(5352) = dA(3321)/dV(5252) - B(5352) = RCT(3321)*V(4626) -! B(5353) = dA(3322)/dV(4626) - B(5353) = RCT(3322)*V(5253) -! B(5354) = dA(3322)/dV(5253) - B(5354) = RCT(3322)*V(4626) -! B(5355) = dA(3323)/dV(4626) - B(5355) = RCT(3323)*V(5256) -! B(5356) = dA(3323)/dV(5256) - B(5356) = RCT(3323)*V(4626) -! B(5357) = dA(3324)/dV(4626) - B(5357) = RCT(3324) -! B(5358) = dA(3325)/dV(4626) - B(5358) = RCT(3325) -! B(5359) = dA(3326)/dV(4084) - B(5359) = RCT(3326) -! B(5360) = dA(3327)/dV(4084) - B(5360) = RCT(3327) -! B(5361) = dA(3328)/dV(4084) - B(5361) = RCT(3328) -! B(5362) = dA(3329)/dV(4084) - B(5362) = RCT(3329) -! B(5363) = dA(3330)/dV(4821) - B(5363) = RCT(3330)*V(5255) -! B(5364) = dA(3330)/dV(5255) - B(5364) = RCT(3330)*V(4821) -! B(5365) = dA(3331)/dV(4821) - B(5365) = RCT(3331)*V(5252) -! B(5366) = dA(3331)/dV(5252) - B(5366) = RCT(3331)*V(4821) -! B(5367) = dA(3332)/dV(4821) - B(5367) = RCT(3332)*V(5252) -! B(5368) = dA(3332)/dV(5252) - B(5368) = RCT(3332)*V(4821) -! B(5369) = dA(3333)/dV(4821) - B(5369) = RCT(3333)*V(5256) -! B(5370) = dA(3333)/dV(5256) - B(5370) = RCT(3333)*V(4821) -! B(5371) = dA(3334)/dV(4821) - B(5371) = RCT(3334) -! B(5372) = dA(3335)/dV(4821) - B(5372) = RCT(3335) -! B(5373) = dA(3336)/dV(4821) - B(5373) = RCT(3336) -! B(5374) = dA(3337)/dV(4432) - B(5374) = RCT(3337)*V(5255) -! B(5375) = dA(3337)/dV(5255) - B(5375) = RCT(3337)*V(4432) -! B(5376) = dA(3338)/dV(4432) - B(5376) = RCT(3338)*V(5252) -! B(5377) = dA(3338)/dV(5252) - B(5377) = RCT(3338)*V(4432) -! B(5378) = dA(3339)/dV(4432) - B(5378) = RCT(3339)*V(5256) -! B(5379) = dA(3339)/dV(5256) - B(5379) = RCT(3339)*V(4432) -! B(5380) = dA(3340)/dV(4432) - B(5380) = RCT(3340) -! B(5381) = dA(3341)/dV(4432) - B(5381) = RCT(3341) -! B(5382) = dA(3342)/dV(4432) - B(5382) = RCT(3342) -! B(5383) = dA(3343)/dV(1287) - B(5383) = RCT(3343)*V(5250) -! B(5384) = dA(3343)/dV(5250) - B(5384) = RCT(3343)*V(1287) -! B(5385) = dA(3344)/dV(1287) - B(5385) = RCT(3344) -! B(5386) = dA(3345)/dV(2014) - B(5386) = RCT(3345)*V(5250) -! B(5387) = dA(3345)/dV(5250) - B(5387) = RCT(3345)*V(2014) -! B(5388) = dA(3346)/dV(2014) - B(5388) = RCT(3346) -! B(5389) = dA(3347)/dV(2015) - B(5389) = RCT(3347) -! B(5390) = dA(3348)/dV(3643) - B(5390) = RCT(3348)*V(5256) -! B(5391) = dA(3348)/dV(5256) - B(5391) = RCT(3348)*V(3643) -! B(5392) = dA(3349)/dV(3643) - B(5392) = RCT(3349)*V(5250) -! B(5393) = dA(3349)/dV(5250) - B(5393) = RCT(3349)*V(3643) -! B(5394) = dA(3350)/dV(3643) - B(5394) = RCT(3350) -! B(5395) = dA(3351)/dV(3643) - B(5395) = RCT(3351) -! B(5396) = dA(3352)/dV(225) - B(5396) = RCT(3352)*V(5250) -! B(5397) = dA(3352)/dV(5250) - B(5397) = RCT(3352)*V(225) -! B(5398) = dA(3353)/dV(1451) - B(5398) = RCT(3353)*V(5250) -! B(5399) = dA(3353)/dV(5250) - B(5399) = RCT(3353)*V(1451) -! B(5400) = dA(3354)/dV(1451) - B(5400) = RCT(3354) -! B(5401) = dA(3355)/dV(3435) - B(5401) = RCT(3355)*V(5250) -! B(5402) = dA(3355)/dV(5250) - B(5402) = RCT(3355)*V(3435) -! B(5403) = dA(3356)/dV(3435) - B(5403) = RCT(3356) -! B(5404) = dA(3357)/dV(4950) - B(5404) = RCT(3357) -! B(5405) = dA(3358)/dV(4950) - B(5405) = RCT(3358) -! B(5406) = dA(3359)/dV(4950) - B(5406) = RCT(3359) -! B(5407) = dA(3360)/dV(4950) - B(5407) = RCT(3360) -! B(5408) = dA(3361)/dV(4950) - B(5408) = RCT(3361) -! B(5409) = dA(3362)/dV(4950) - B(5409) = RCT(3362) -! B(5410) = dA(3363)/dV(135) - B(5410) = RCT(3363)*V(5250) -! B(5411) = dA(3363)/dV(5250) - B(5411) = RCT(3363)*V(135) -! B(5412) = dA(3364)/dV(4833) - B(5412) = RCT(3364)*V(5255) -! B(5413) = dA(3364)/dV(5255) - B(5413) = RCT(3364)*V(4833) -! B(5414) = dA(3365)/dV(4833) - B(5414) = RCT(3365)*V(5255) -! B(5415) = dA(3365)/dV(5255) - B(5415) = RCT(3365)*V(4833) -! B(5416) = dA(3366)/dV(4833) - B(5416) = RCT(3366)*V(5255) -! B(5417) = dA(3366)/dV(5255) - B(5417) = RCT(3366)*V(4833) -! B(5418) = dA(3367)/dV(4833) - B(5418) = RCT(3367)*V(5252) -! B(5419) = dA(3367)/dV(5252) - B(5419) = RCT(3367)*V(4833) -! B(5420) = dA(3368)/dV(4833) - B(5420) = RCT(3368)*V(5253) -! B(5421) = dA(3368)/dV(5253) - B(5421) = RCT(3368)*V(4833) -! B(5422) = dA(3369)/dV(4833) - B(5422) = RCT(3369)*V(5256) -! B(5423) = dA(3369)/dV(5256) - B(5423) = RCT(3369)*V(4833) -! B(5424) = dA(3370)/dV(4833) - B(5424) = RCT(3370) -! B(5425) = dA(3371)/dV(4833) - B(5425) = RCT(3371) -! B(5426) = dA(3372)/dV(4547) - B(5426) = RCT(3372)*V(5256) -! B(5427) = dA(3372)/dV(5256) - B(5427) = RCT(3372)*V(4547) -! B(5428) = dA(3373)/dV(4547) - B(5428) = RCT(3373)*V(5250) -! B(5429) = dA(3373)/dV(5250) - B(5429) = RCT(3373)*V(4547) -! B(5430) = dA(3374)/dV(4547) - B(5430) = RCT(3374) -! B(5431) = dA(3375)/dV(4707) - B(5431) = RCT(3375)*V(5255) -! B(5432) = dA(3375)/dV(5255) - B(5432) = RCT(3375)*V(4707) -! B(5433) = dA(3376)/dV(4707) - B(5433) = RCT(3376)*V(5252) -! B(5434) = dA(3376)/dV(5252) - B(5434) = RCT(3376)*V(4707) -! B(5435) = dA(3377)/dV(4707) - B(5435) = RCT(3377)*V(5252) -! B(5436) = dA(3377)/dV(5252) - B(5436) = RCT(3377)*V(4707) -! B(5437) = dA(3378)/dV(4707) - B(5437) = RCT(3378)*V(5256) -! B(5438) = dA(3378)/dV(5256) - B(5438) = RCT(3378)*V(4707) -! B(5439) = dA(3379)/dV(4707) - B(5439) = RCT(3379) -! B(5440) = dA(3380)/dV(4707) - B(5440) = RCT(3380) -! B(5441) = dA(3381)/dV(4707) - B(5441) = RCT(3381) -! B(5442) = dA(3382)/dV(4887) - B(5442) = RCT(3382)*V(5255) -! B(5443) = dA(3382)/dV(5255) - B(5443) = RCT(3382)*V(4887) -! B(5444) = dA(3383)/dV(4887) - B(5444) = RCT(3383)*V(5252) -! B(5445) = dA(3383)/dV(5252) - B(5445) = RCT(3383)*V(4887) -! B(5446) = dA(3384)/dV(4887) - B(5446) = RCT(3384)*V(5256) -! B(5447) = dA(3384)/dV(5256) - B(5447) = RCT(3384)*V(4887) -! B(5448) = dA(3385)/dV(4887) - B(5448) = RCT(3385) -! B(5449) = dA(3386)/dV(4887) - B(5449) = RCT(3386) -! B(5450) = dA(3387)/dV(3820) - B(5450) = RCT(3387)*V(5255) -! B(5451) = dA(3387)/dV(5255) - B(5451) = RCT(3387)*V(3820) -! B(5452) = dA(3388)/dV(3820) - B(5452) = RCT(3388)*V(5252) -! B(5453) = dA(3388)/dV(5252) - B(5453) = RCT(3388)*V(3820) -! B(5454) = dA(3389)/dV(3820) - B(5454) = RCT(3389)*V(5256) -! B(5455) = dA(3389)/dV(5256) - B(5455) = RCT(3389)*V(3820) -! B(5456) = dA(3390)/dV(3820) - B(5456) = RCT(3390) -! B(5457) = dA(3391)/dV(3820) - B(5457) = RCT(3391) -! B(5458) = dA(3392)/dV(4478) - B(5458) = RCT(3392)*V(5253) -! B(5459) = dA(3392)/dV(5253) - B(5459) = RCT(3392)*V(4478) -! B(5460) = dA(3393)/dV(4478) - B(5460) = RCT(3393)*V(5258) -! B(5461) = dA(3393)/dV(5258) - B(5461) = RCT(3393)*V(4478) -! B(5462) = dA(3394)/dV(3491) - B(5462) = RCT(3394)*V(5255) -! B(5463) = dA(3394)/dV(5255) - B(5463) = RCT(3394)*V(3491) -! B(5464) = dA(3395)/dV(3491) - B(5464) = RCT(3395)*V(5252) -! B(5465) = dA(3395)/dV(5252) - B(5465) = RCT(3395)*V(3491) -! B(5466) = dA(3396)/dV(3491) - B(5466) = RCT(3396)*V(5256) -! B(5467) = dA(3396)/dV(5256) - B(5467) = RCT(3396)*V(3491) -! B(5468) = dA(3397)/dV(3491) - B(5468) = RCT(3397) -! B(5469) = dA(3398)/dV(3491) - B(5469) = RCT(3398) -! B(5470) = dA(3399)/dV(3508) - B(5470) = RCT(3399)*V(5256) -! B(5471) = dA(3399)/dV(5256) - B(5471) = RCT(3399)*V(3508) -! B(5472) = dA(3400)/dV(3508) - B(5472) = RCT(3400)*V(5258) -! B(5473) = dA(3400)/dV(5258) - B(5473) = RCT(3400)*V(3508) -! B(5474) = dA(3401)/dV(3508) - B(5474) = RCT(3401)*V(5250) -! B(5475) = dA(3401)/dV(5250) - B(5475) = RCT(3401)*V(3508) -! B(5476) = dA(3402)/dV(1484) - B(5476) = RCT(3402)*V(5250) -! B(5477) = dA(3402)/dV(5250) - B(5477) = RCT(3402)*V(1484) -! B(5478) = dA(3403)/dV(1484) - B(5478) = RCT(3403) -! B(5479) = dA(3404)/dV(1819) - B(5479) = RCT(3404)*V(5250) -! B(5480) = dA(3404)/dV(5250) - B(5480) = RCT(3404)*V(1819) -! B(5481) = dA(3405)/dV(1819) - B(5481) = RCT(3405) -! B(5482) = dA(3406)/dV(1820) - B(5482) = RCT(3406) -! B(5483) = dA(3407)/dV(3640) - B(5483) = RCT(3407)*V(5256) -! B(5484) = dA(3407)/dV(5256) - B(5484) = RCT(3407)*V(3640) -! B(5485) = dA(3408)/dV(3640) - B(5485) = RCT(3408)*V(5250) -! B(5486) = dA(3408)/dV(5250) - B(5486) = RCT(3408)*V(3640) -! B(5487) = dA(3409)/dV(3640) - B(5487) = RCT(3409) -! B(5488) = dA(3410)/dV(3640) - B(5488) = RCT(3410) -! B(5489) = dA(3411)/dV(332) - B(5489) = RCT(3411)*V(5250) -! B(5490) = dA(3411)/dV(5250) - B(5490) = RCT(3411)*V(332) -! B(5491) = dA(3412)/dV(1276) - B(5491) = RCT(3412)*V(5250) -! B(5492) = dA(3412)/dV(5250) - B(5492) = RCT(3412)*V(1276) -! B(5493) = dA(3413)/dV(1276) - B(5493) = RCT(3413) -! B(5494) = dA(3414)/dV(2317) - B(5494) = RCT(3414)*V(5250) -! B(5495) = dA(3414)/dV(5250) - B(5495) = RCT(3414)*V(2317) -! B(5496) = dA(3415)/dV(2317) - B(5496) = RCT(3415) -! B(5497) = dA(3416)/dV(4004) - B(5497) = RCT(3416) -! B(5498) = dA(3417)/dV(4004) - B(5498) = RCT(3417) -! B(5499) = dA(3418)/dV(4004) - B(5499) = RCT(3418) -! B(5500) = dA(3419)/dV(4004) - B(5500) = RCT(3419) -! B(5501) = dA(3420)/dV(4004) - B(5501) = RCT(3420) -! B(5502) = dA(3421)/dV(292) - B(5502) = RCT(3421)*V(5250) -! B(5503) = dA(3421)/dV(5250) - B(5503) = RCT(3421)*V(292) -! B(5504) = dA(3422)/dV(3599) - B(5504) = RCT(3422)*V(5250) -! B(5505) = dA(3422)/dV(5250) - B(5505) = RCT(3422)*V(3599) -! B(5506) = dA(3423)/dV(3599) - B(5506) = RCT(3423)*V(5250) -! B(5507) = dA(3423)/dV(5250) - B(5507) = RCT(3423)*V(3599) -! B(5508) = dA(3424)/dV(3599) - B(5508) = RCT(3424) -! B(5509) = dA(3425)/dV(3599) - B(5509) = RCT(3425) -! B(5510) = dA(3426)/dV(4892) - B(5510) = RCT(3426)*V(5255) -! B(5511) = dA(3426)/dV(5255) - B(5511) = RCT(3426)*V(4892) -! B(5512) = dA(3427)/dV(4892) - B(5512) = RCT(3427)*V(5255) -! B(5513) = dA(3427)/dV(5255) - B(5513) = RCT(3427)*V(4892) -! B(5514) = dA(3428)/dV(4892) - B(5514) = RCT(3428)*V(5255) -! B(5515) = dA(3428)/dV(5255) - B(5515) = RCT(3428)*V(4892) -! B(5516) = dA(3429)/dV(4892) - B(5516) = RCT(3429)*V(5252) -! B(5517) = dA(3429)/dV(5252) - B(5517) = RCT(3429)*V(4892) -! B(5518) = dA(3430)/dV(4892) - B(5518) = RCT(3430)*V(5253) -! B(5519) = dA(3430)/dV(5253) - B(5519) = RCT(3430)*V(4892) -! B(5520) = dA(3431)/dV(4892) - B(5520) = RCT(3431)*V(5256) -! B(5521) = dA(3431)/dV(5256) - B(5521) = RCT(3431)*V(4892) -! B(5522) = dA(3432)/dV(4892) - B(5522) = RCT(3432) -! B(5523) = dA(3433)/dV(4892) - B(5523) = RCT(3433) -! B(5524) = dA(3434)/dV(4729) - B(5524) = RCT(3434)*V(5256) -! B(5525) = dA(3434)/dV(5256) - B(5525) = RCT(3434)*V(4729) -! B(5526) = dA(3435)/dV(4729) - B(5526) = RCT(3435)*V(5250) -! B(5527) = dA(3435)/dV(5250) - B(5527) = RCT(3435)*V(4729) -! B(5528) = dA(3436)/dV(4729) - B(5528) = RCT(3436) -! B(5529) = dA(3437)/dV(4718) - B(5529) = RCT(3437)*V(5255) -! B(5530) = dA(3437)/dV(5255) - B(5530) = RCT(3437)*V(4718) -! B(5531) = dA(3438)/dV(4718) - B(5531) = RCT(3438)*V(5252) -! B(5532) = dA(3438)/dV(5252) - B(5532) = RCT(3438)*V(4718) -! B(5533) = dA(3439)/dV(4718) - B(5533) = RCT(3439)*V(5252) -! B(5534) = dA(3439)/dV(5252) - B(5534) = RCT(3439)*V(4718) -! B(5535) = dA(3440)/dV(4718) - B(5535) = RCT(3440)*V(5256) -! B(5536) = dA(3440)/dV(5256) - B(5536) = RCT(3440)*V(4718) -! B(5537) = dA(3441)/dV(4718) - B(5537) = RCT(3441) -! B(5538) = dA(3442)/dV(4718) - B(5538) = RCT(3442) -! B(5539) = dA(3443)/dV(4718) - B(5539) = RCT(3443) -! B(5540) = dA(3444)/dV(4483) - B(5540) = RCT(3444)*V(5255) -! B(5541) = dA(3444)/dV(5255) - B(5541) = RCT(3444)*V(4483) -! B(5542) = dA(3445)/dV(4483) - B(5542) = RCT(3445)*V(5252) -! B(5543) = dA(3445)/dV(5252) - B(5543) = RCT(3445)*V(4483) -! B(5544) = dA(3446)/dV(4483) - B(5544) = RCT(3446)*V(5256) -! B(5545) = dA(3446)/dV(5256) - B(5545) = RCT(3446)*V(4483) -! B(5546) = dA(3447)/dV(4483) - B(5546) = RCT(3447) -! B(5547) = dA(3448)/dV(4483) - B(5547) = RCT(3448) -! B(5548) = dA(3449)/dV(4483) - B(5548) = RCT(3449) -! B(5549) = dA(3450)/dV(4408) - B(5549) = RCT(3450)*V(5253) -! B(5550) = dA(3450)/dV(5253) - B(5550) = RCT(3450)*V(4408) -! B(5551) = dA(3451)/dV(4408) - B(5551) = RCT(3451)*V(5258) -! B(5552) = dA(3451)/dV(5258) - B(5552) = RCT(3451)*V(4408) -! B(5553) = dA(3452)/dV(3531) - B(5553) = RCT(3452)*V(5255) -! B(5554) = dA(3452)/dV(5255) - B(5554) = RCT(3452)*V(3531) -! B(5555) = dA(3453)/dV(3531) - B(5555) = RCT(3453)*V(5252) -! B(5556) = dA(3453)/dV(5252) - B(5556) = RCT(3453)*V(3531) -! B(5557) = dA(3454)/dV(3531) - B(5557) = RCT(3454)*V(5256) -! B(5558) = dA(3454)/dV(5256) - B(5558) = RCT(3454)*V(3531) -! B(5559) = dA(3455)/dV(3531) - B(5559) = RCT(3455) -! B(5560) = dA(3456)/dV(3531) - B(5560) = RCT(3456) -! B(5561) = dA(3457)/dV(3796) - B(5561) = RCT(3457)*V(5255) -! B(5562) = dA(3457)/dV(5255) - B(5562) = RCT(3457)*V(3796) -! B(5563) = dA(3458)/dV(3796) - B(5563) = RCT(3458)*V(5252) -! B(5564) = dA(3458)/dV(5252) - B(5564) = RCT(3458)*V(3796) -! B(5565) = dA(3459)/dV(3796) - B(5565) = RCT(3459)*V(5256) -! B(5566) = dA(3459)/dV(5256) - B(5566) = RCT(3459)*V(3796) -! B(5567) = dA(3460)/dV(3796) - B(5567) = RCT(3460) -! B(5568) = dA(3461)/dV(3796) - B(5568) = RCT(3461) -! B(5569) = dA(3462)/dV(3560) - B(5569) = RCT(3462)*V(5256) -! B(5570) = dA(3462)/dV(5256) - B(5570) = RCT(3462)*V(3560) -! B(5571) = dA(3463)/dV(3560) - B(5571) = RCT(3463)*V(5258) -! B(5572) = dA(3463)/dV(5258) - B(5572) = RCT(3463)*V(3560) -! B(5573) = dA(3464)/dV(3560) - B(5573) = RCT(3464)*V(5250) -! B(5574) = dA(3464)/dV(5250) - B(5574) = RCT(3464)*V(3560) -! B(5575) = dA(3465)/dV(922) - B(5575) = RCT(3465)*V(5250) -! B(5576) = dA(3465)/dV(5250) - B(5576) = RCT(3465)*V(922) -! B(5577) = dA(3466)/dV(922) - B(5577) = RCT(3466) -! B(5578) = dA(3467)/dV(2309) - B(5578) = RCT(3467)*V(5250) -! B(5579) = dA(3467)/dV(5250) - B(5579) = RCT(3467)*V(2309) -! B(5580) = dA(3468)/dV(2309) - B(5580) = RCT(3468) -! B(5581) = dA(3469)/dV(1821) - B(5581) = RCT(3469) -! B(5582) = dA(3470)/dV(3657) - B(5582) = RCT(3470)*V(5256) -! B(5583) = dA(3470)/dV(5256) - B(5583) = RCT(3470)*V(3657) -! B(5584) = dA(3471)/dV(3657) - B(5584) = RCT(3471)*V(5250) -! B(5585) = dA(3471)/dV(5250) - B(5585) = RCT(3471)*V(3657) -! B(5586) = dA(3472)/dV(3657) - B(5586) = RCT(3472) -! B(5587) = dA(3473)/dV(3657) - B(5587) = RCT(3473) -! B(5588) = dA(3474)/dV(262) - B(5588) = RCT(3474)*V(5250) -! B(5589) = dA(3474)/dV(5250) - B(5589) = RCT(3474)*V(262) -! B(5590) = dA(3475)/dV(1533) - B(5590) = RCT(3475)*V(5250) -! B(5591) = dA(3475)/dV(5250) - B(5591) = RCT(3475)*V(1533) -! B(5592) = dA(3476)/dV(1533) - B(5592) = RCT(3476) -! B(5593) = dA(3477)/dV(2782) - B(5593) = RCT(3477)*V(5250) -! B(5594) = dA(3477)/dV(5250) - B(5594) = RCT(3477)*V(2782) -! B(5595) = dA(3478)/dV(2782) - B(5595) = RCT(3478) -! B(5596) = dA(3479)/dV(3754) - B(5596) = RCT(3479) -! B(5597) = dA(3480)/dV(3754) - B(5597) = RCT(3480) -! B(5598) = dA(3481)/dV(3754) - B(5598) = RCT(3481) -! B(5599) = dA(3482)/dV(102) - B(5599) = RCT(3482)*V(5250) -! B(5600) = dA(3482)/dV(5250) - B(5600) = RCT(3482)*V(102) -! B(5601) = dA(3483)/dV(4692) - B(5601) = RCT(3483)*V(5255) -! B(5602) = dA(3483)/dV(5255) - B(5602) = RCT(3483)*V(4692) -! B(5603) = dA(3484)/dV(4692) - B(5603) = RCT(3484)*V(5255) -! B(5604) = dA(3484)/dV(5255) - B(5604) = RCT(3484)*V(4692) -! B(5605) = dA(3485)/dV(4692) - B(5605) = RCT(3485)*V(5255) -! B(5606) = dA(3485)/dV(5255) - B(5606) = RCT(3485)*V(4692) -! B(5607) = dA(3486)/dV(4692) - B(5607) = RCT(3486)*V(5252) -! B(5608) = dA(3486)/dV(5252) - B(5608) = RCT(3486)*V(4692) -! B(5609) = dA(3487)/dV(4692) - B(5609) = RCT(3487)*V(5253) -! B(5610) = dA(3487)/dV(5253) - B(5610) = RCT(3487)*V(4692) -! B(5611) = dA(3488)/dV(4692) - B(5611) = RCT(3488)*V(5256) -! B(5612) = dA(3488)/dV(5256) - B(5612) = RCT(3488)*V(4692) -! B(5613) = dA(3489)/dV(4692) - B(5613) = RCT(3489) -! B(5614) = dA(3490)/dV(4692) - B(5614) = RCT(3490) -! B(5615) = dA(3491)/dV(4699) - B(5615) = RCT(3491)*V(5255) -! B(5616) = dA(3491)/dV(5255) - B(5616) = RCT(3491)*V(4699) -! B(5617) = dA(3492)/dV(4699) - B(5617) = RCT(3492)*V(5252) -! B(5618) = dA(3492)/dV(5252) - B(5618) = RCT(3492)*V(4699) -! B(5619) = dA(3493)/dV(4699) - B(5619) = RCT(3493)*V(5252) -! B(5620) = dA(3493)/dV(5252) - B(5620) = RCT(3493)*V(4699) -! B(5621) = dA(3494)/dV(4699) - B(5621) = RCT(3494)*V(5256) -! B(5622) = dA(3494)/dV(5256) - B(5622) = RCT(3494)*V(4699) -! B(5623) = dA(3495)/dV(4699) - B(5623) = RCT(3495) -! B(5624) = dA(3496)/dV(4699) - B(5624) = RCT(3496) -! B(5625) = dA(3497)/dV(4699) - B(5625) = RCT(3497) -! B(5626) = dA(3498)/dV(4893) - B(5626) = RCT(3498)*V(5255) -! B(5627) = dA(3498)/dV(5255) - B(5627) = RCT(3498)*V(4893) -! B(5628) = dA(3499)/dV(4893) - B(5628) = RCT(3499)*V(5252) -! B(5629) = dA(3499)/dV(5252) - B(5629) = RCT(3499)*V(4893) -! B(5630) = dA(3500)/dV(4893) - B(5630) = RCT(3500)*V(5256) -! B(5631) = dA(3500)/dV(5256) - B(5631) = RCT(3500)*V(4893) -! B(5632) = dA(3501)/dV(4893) - B(5632) = RCT(3501) -! B(5633) = dA(3502)/dV(4893) - B(5633) = RCT(3502) -! B(5634) = dA(3503)/dV(3808) - B(5634) = RCT(3503)*V(5255) -! B(5635) = dA(3503)/dV(5255) - B(5635) = RCT(3503)*V(3808) -! B(5636) = dA(3504)/dV(3808) - B(5636) = RCT(3504)*V(5252) -! B(5637) = dA(3504)/dV(5252) - B(5637) = RCT(3504)*V(3808) -! B(5638) = dA(3505)/dV(3808) - B(5638) = RCT(3505)*V(5256) -! B(5639) = dA(3505)/dV(5256) - B(5639) = RCT(3505)*V(3808) -! B(5640) = dA(3506)/dV(3808) - B(5640) = RCT(3506) -! B(5641) = dA(3507)/dV(3808) - B(5641) = RCT(3507) -! B(5642) = dA(3508)/dV(4495) - B(5642) = RCT(3508)*V(5253) -! B(5643) = dA(3508)/dV(5253) - B(5643) = RCT(3508)*V(4495) -! B(5644) = dA(3509)/dV(4495) - B(5644) = RCT(3509)*V(5258) -! B(5645) = dA(3509)/dV(5258) - B(5645) = RCT(3509)*V(4495) -! B(5646) = dA(3510)/dV(3534) - B(5646) = RCT(3510)*V(5255) -! B(5647) = dA(3510)/dV(5255) - B(5647) = RCT(3510)*V(3534) -! B(5648) = dA(3511)/dV(3534) - B(5648) = RCT(3511)*V(5252) -! B(5649) = dA(3511)/dV(5252) - B(5649) = RCT(3511)*V(3534) -! B(5650) = dA(3512)/dV(3534) - B(5650) = RCT(3512)*V(5256) -! B(5651) = dA(3512)/dV(5256) - B(5651) = RCT(3512)*V(3534) -! B(5652) = dA(3513)/dV(3534) - B(5652) = RCT(3513) -! B(5653) = dA(3514)/dV(3534) - B(5653) = RCT(3514) -! B(5654) = dA(3515)/dV(3512) - B(5654) = RCT(3515)*V(5256) -! B(5655) = dA(3515)/dV(5256) - B(5655) = RCT(3515)*V(3512) -! B(5656) = dA(3516)/dV(3512) - B(5656) = RCT(3516)*V(5258) -! B(5657) = dA(3516)/dV(5258) - B(5657) = RCT(3516)*V(3512) -! B(5658) = dA(3517)/dV(3512) - B(5658) = RCT(3517)*V(5250) -! B(5659) = dA(3517)/dV(5250) - B(5659) = RCT(3517)*V(3512) -! B(5660) = dA(3518)/dV(966) - B(5660) = RCT(3518)*V(5250) -! B(5661) = dA(3518)/dV(5250) - B(5661) = RCT(3518)*V(966) -! B(5662) = dA(3519)/dV(966) - B(5662) = RCT(3519) -! B(5663) = dA(3520)/dV(1796) - B(5663) = RCT(3520) -! B(5664) = dA(3521)/dV(2302) - B(5664) = RCT(3521)*V(5250) -! B(5665) = dA(3521)/dV(5250) - B(5665) = RCT(3521)*V(2302) -! B(5666) = dA(3522)/dV(2302) - B(5666) = RCT(3522) -! B(5667) = dA(3523)/dV(277) - B(5667) = RCT(3523)*V(5250) -! B(5668) = dA(3523)/dV(5250) - B(5668) = RCT(3523)*V(277) -! B(5669) = dA(3524)/dV(3649) - B(5669) = RCT(3524)*V(5256) -! B(5670) = dA(3524)/dV(5256) - B(5670) = RCT(3524)*V(3649) -! B(5671) = dA(3525)/dV(3649) - B(5671) = RCT(3525)*V(5250) -! B(5672) = dA(3525)/dV(5250) - B(5672) = RCT(3525)*V(3649) -! B(5673) = dA(3526)/dV(3649) - B(5673) = RCT(3526) -! B(5674) = dA(3527)/dV(4453) - B(5674) = RCT(3527)*V(5253) -! B(5675) = dA(3527)/dV(5253) - B(5675) = RCT(3527)*V(4453) -! B(5676) = dA(3528)/dV(4453) - B(5676) = RCT(3528)*V(5258) -! B(5677) = dA(3528)/dV(5258) - B(5677) = RCT(3528)*V(4453) -! B(5678) = dA(3529)/dV(3562) - B(5678) = RCT(3529)*V(5255) -! B(5679) = dA(3529)/dV(5255) - B(5679) = RCT(3529)*V(3562) -! B(5680) = dA(3530)/dV(3562) - B(5680) = RCT(3530)*V(5252) -! B(5681) = dA(3530)/dV(5252) - B(5681) = RCT(3530)*V(3562) -! B(5682) = dA(3531)/dV(3562) - B(5682) = RCT(3531)*V(5256) -! B(5683) = dA(3531)/dV(5256) - B(5683) = RCT(3531)*V(3562) -! B(5684) = dA(3532)/dV(3562) - B(5684) = RCT(3532) -! B(5685) = dA(3533)/dV(3562) - B(5685) = RCT(3533) -! B(5686) = dA(3534)/dV(3813) - B(5686) = RCT(3534)*V(5255) -! B(5687) = dA(3534)/dV(5255) - B(5687) = RCT(3534)*V(3813) -! B(5688) = dA(3535)/dV(3813) - B(5688) = RCT(3535)*V(5252) -! B(5689) = dA(3535)/dV(5252) - B(5689) = RCT(3535)*V(3813) -! B(5690) = dA(3536)/dV(3813) - B(5690) = RCT(3536)*V(5256) -! B(5691) = dA(3536)/dV(5256) - B(5691) = RCT(3536)*V(3813) -! B(5692) = dA(3537)/dV(3813) - B(5692) = RCT(3537) -! B(5693) = dA(3538)/dV(3813) - B(5693) = RCT(3538) -! B(5694) = dA(3539)/dV(3831) - B(5694) = RCT(3539)*V(5256) -! B(5695) = dA(3539)/dV(5256) - B(5695) = RCT(3539)*V(3831) -! B(5696) = dA(3540)/dV(3831) - B(5696) = RCT(3540)*V(5258) -! B(5697) = dA(3540)/dV(5258) - B(5697) = RCT(3540)*V(3831) -! B(5698) = dA(3541)/dV(3831) - B(5698) = RCT(3541)*V(5250) -! B(5699) = dA(3541)/dV(5250) - B(5699) = RCT(3541)*V(3831) -! B(5700) = dA(3542)/dV(1211) - B(5700) = RCT(3542)*V(5250) -! B(5701) = dA(3542)/dV(5250) - B(5701) = RCT(3542)*V(1211) -! B(5702) = dA(3543)/dV(1211) - B(5702) = RCT(3543) -! B(5703) = dA(3544)/dV(3812) - B(5703) = RCT(3544) -! B(5704) = dA(3545)/dV(3812) - B(5704) = RCT(3545) -! B(5705) = dA(3546)/dV(3812) - B(5705) = RCT(3546) -! B(5706) = dA(3547)/dV(3812) - B(5706) = RCT(3547) -! B(5707) = dA(3548)/dV(1964) - B(5707) = RCT(3548)*V(5250) -! B(5708) = dA(3548)/dV(5250) - B(5708) = RCT(3548)*V(1964) -! B(5709) = dA(3549)/dV(1964) - B(5709) = RCT(3549) -! B(5710) = dA(3550)/dV(428) - B(5710) = RCT(3550)*V(5250) -! B(5711) = dA(3550)/dV(5250) - B(5711) = RCT(3550)*V(428) -! B(5712) = dA(3551)/dV(3089) - B(5712) = RCT(3551)*V(5250) -! B(5713) = dA(3551)/dV(5250) - B(5713) = RCT(3551)*V(3089) -! B(5714) = dA(3552)/dV(3089) - B(5714) = RCT(3552) -! B(5715) = dA(3553)/dV(4641) - B(5715) = RCT(3553)*V(5255) -! B(5716) = dA(3553)/dV(5255) - B(5716) = RCT(3553)*V(4641) -! B(5717) = dA(3554)/dV(4641) - B(5717) = RCT(3554)*V(5255) -! B(5718) = dA(3554)/dV(5255) - B(5718) = RCT(3554)*V(4641) -! B(5719) = dA(3555)/dV(4641) - B(5719) = RCT(3555)*V(5255) -! B(5720) = dA(3555)/dV(5255) - B(5720) = RCT(3555)*V(4641) -! B(5721) = dA(3556)/dV(4641) - B(5721) = RCT(3556)*V(5252) -! B(5722) = dA(3556)/dV(5252) - B(5722) = RCT(3556)*V(4641) -! B(5723) = dA(3557)/dV(4641) - B(5723) = RCT(3557)*V(5253) -! B(5724) = dA(3557)/dV(5253) - B(5724) = RCT(3557)*V(4641) -! B(5725) = dA(3558)/dV(4641) - B(5725) = RCT(3558)*V(5256) -! B(5726) = dA(3558)/dV(5256) - B(5726) = RCT(3558)*V(4641) -! B(5727) = dA(3559)/dV(4641) - B(5727) = RCT(3559) -! B(5728) = dA(3560)/dV(4641) - B(5728) = RCT(3560) -! B(5729) = dA(3561)/dV(4081) - B(5729) = RCT(3561) -! B(5730) = dA(3562)/dV(4081) - B(5730) = RCT(3562) -! B(5731) = dA(3563)/dV(4081) - B(5731) = RCT(3563) -! B(5732) = dA(3564)/dV(4081) - B(5732) = RCT(3564) -! B(5733) = dA(3565)/dV(4701) - B(5733) = RCT(3565)*V(5255) -! B(5734) = dA(3565)/dV(5255) - B(5734) = RCT(3565)*V(4701) -! B(5735) = dA(3566)/dV(4701) - B(5735) = RCT(3566)*V(5252) -! B(5736) = dA(3566)/dV(5252) - B(5736) = RCT(3566)*V(4701) -! B(5737) = dA(3567)/dV(4701) - B(5737) = RCT(3567)*V(5252) -! B(5738) = dA(3567)/dV(5252) - B(5738) = RCT(3567)*V(4701) -! B(5739) = dA(3568)/dV(4701) - B(5739) = RCT(3568)*V(5256) -! B(5740) = dA(3568)/dV(5256) - B(5740) = RCT(3568)*V(4701) -! B(5741) = dA(3569)/dV(4701) - B(5741) = RCT(3569) -! B(5742) = dA(3570)/dV(4701) - B(5742) = RCT(3570) -! B(5743) = dA(3571)/dV(4701) - B(5743) = RCT(3571) -! B(5744) = dA(3572)/dV(4667) - B(5744) = RCT(3572)*V(5255) -! B(5745) = dA(3572)/dV(5255) - B(5745) = RCT(3572)*V(4667) -! B(5746) = dA(3573)/dV(4667) - B(5746) = RCT(3573)*V(5252) -! B(5747) = dA(3573)/dV(5252) - B(5747) = RCT(3573)*V(4667) -! B(5748) = dA(3574)/dV(4667) - B(5748) = RCT(3574)*V(5256) -! B(5749) = dA(3574)/dV(5256) - B(5749) = RCT(3574)*V(4667) -! B(5750) = dA(3575)/dV(4667) - B(5750) = RCT(3575) -! B(5751) = dA(3576)/dV(4667) - B(5751) = RCT(3576) -! B(5752) = dA(3577)/dV(4667) - B(5752) = RCT(3577) -! B(5753) = dA(3578)/dV(1315) - B(5753) = RCT(3578)*V(5250) -! B(5754) = dA(3578)/dV(5250) - B(5754) = RCT(3578)*V(1315) -! B(5755) = dA(3579)/dV(1315) - B(5755) = RCT(3579) -! B(5756) = dA(3580)/dV(2321) - B(5756) = RCT(3580)*V(5250) -! B(5757) = dA(3580)/dV(5250) - B(5757) = RCT(3580)*V(2321) -! B(5758) = dA(3581)/dV(2321) - B(5758) = RCT(3581) -! B(5759) = dA(3582)/dV(2322) - B(5759) = RCT(3582) -! B(5760) = dA(3583)/dV(464) - B(5760) = RCT(3583)*V(5250) -! B(5761) = dA(3583)/dV(5250) - B(5761) = RCT(3583)*V(464) -! B(5762) = dA(3584)/dV(3368) - B(5762) = RCT(3584)*V(5250) -! B(5763) = dA(3584)/dV(5250) - B(5763) = RCT(3584)*V(3368) -! B(5764) = dA(3585)/dV(3368) - B(5764) = RCT(3585) -! B(5765) = dA(3586)/dV(3799) - B(5765) = RCT(3586)*V(5255) -! B(5766) = dA(3586)/dV(5255) - B(5766) = RCT(3586)*V(3799) -! B(5767) = dA(3587)/dV(3799) - B(5767) = RCT(3587)*V(5252) -! B(5768) = dA(3587)/dV(5252) - B(5768) = RCT(3587)*V(3799) -! B(5769) = dA(3588)/dV(3799) - B(5769) = RCT(3588)*V(5256) -! B(5770) = dA(3588)/dV(5256) - B(5770) = RCT(3588)*V(3799) -! B(5771) = dA(3589)/dV(3799) - B(5771) = RCT(3589) -! B(5772) = dA(3590)/dV(3799) - B(5772) = RCT(3590) -! B(5773) = dA(3591)/dV(4479) - B(5773) = RCT(3591)*V(5253) -! B(5774) = dA(3591)/dV(5253) - B(5774) = RCT(3591)*V(4479) -! B(5775) = dA(3592)/dV(4479) - B(5775) = RCT(3592)*V(5258) -! B(5776) = dA(3592)/dV(5258) - B(5776) = RCT(3592)*V(4479) -! B(5777) = dA(3593)/dV(3554) - B(5777) = RCT(3593)*V(5255) -! B(5778) = dA(3593)/dV(5255) - B(5778) = RCT(3593)*V(3554) -! B(5779) = dA(3594)/dV(3554) - B(5779) = RCT(3594)*V(5252) -! B(5780) = dA(3594)/dV(5252) - B(5780) = RCT(3594)*V(3554) -! B(5781) = dA(3595)/dV(3554) - B(5781) = RCT(3595)*V(5256) -! B(5782) = dA(3595)/dV(5256) - B(5782) = RCT(3595)*V(3554) -! B(5783) = dA(3596)/dV(3554) - B(5783) = RCT(3596) -! B(5784) = dA(3597)/dV(3554) - B(5784) = RCT(3597) -! B(5785) = dA(3598)/dV(3701) - B(5785) = RCT(3598)*V(5256) -! B(5786) = dA(3598)/dV(5256) - B(5786) = RCT(3598)*V(3701) -! B(5787) = dA(3599)/dV(3701) - B(5787) = RCT(3599)*V(5258) -! B(5788) = dA(3599)/dV(5258) - B(5788) = RCT(3599)*V(3701) -! B(5789) = dA(3600)/dV(3701) - B(5789) = RCT(3600)*V(5250) -! B(5790) = dA(3600)/dV(5250) - B(5790) = RCT(3600)*V(3701) -! B(5791) = dA(3601)/dV(1027) - B(5791) = RCT(3601)*V(5250) -! B(5792) = dA(3601)/dV(5250) - B(5792) = RCT(3601)*V(1027) -! B(5793) = dA(3602)/dV(1027) - B(5793) = RCT(3602) -! B(5794) = dA(3603)/dV(3805) - B(5794) = RCT(3603) -! B(5795) = dA(3604)/dV(3805) - B(5795) = RCT(3604) -! B(5796) = dA(3605)/dV(3805) - B(5796) = RCT(3605) -! B(5797) = dA(3606)/dV(3805) - B(5797) = RCT(3606) -! B(5798) = dA(3607)/dV(2406) - B(5798) = RCT(3607)*V(5250) -! B(5799) = dA(3607)/dV(5250) - B(5799) = RCT(3607)*V(2406) -! B(5800) = dA(3608)/dV(2406) - B(5800) = RCT(3608) -! B(5801) = dA(3609)/dV(436) - B(5801) = RCT(3609)*V(5250) -! B(5802) = dA(3609)/dV(5250) - B(5802) = RCT(3609)*V(436) -! B(5803) = dA(3610)/dV(3174) - B(5803) = RCT(3610)*V(5250) -! B(5804) = dA(3610)/dV(5250) - B(5804) = RCT(3610)*V(3174) -! B(5805) = dA(3611)/dV(3174) - B(5805) = RCT(3611) -! B(5806) = dA(3612)/dV(4829) - B(5806) = RCT(3612)*V(5255) -! B(5807) = dA(3612)/dV(5255) - B(5807) = RCT(3612)*V(4829) -! B(5808) = dA(3613)/dV(4829) - B(5808) = RCT(3613)*V(5255) -! B(5809) = dA(3613)/dV(5255) - B(5809) = RCT(3613)*V(4829) -! B(5810) = dA(3614)/dV(4829) - B(5810) = RCT(3614)*V(5255) -! B(5811) = dA(3614)/dV(5255) - B(5811) = RCT(3614)*V(4829) -! B(5812) = dA(3615)/dV(4829) - B(5812) = RCT(3615)*V(5252) -! B(5813) = dA(3615)/dV(5252) - B(5813) = RCT(3615)*V(4829) -! B(5814) = dA(3616)/dV(4829) - B(5814) = RCT(3616)*V(5253) -! B(5815) = dA(3616)/dV(5253) - B(5815) = RCT(3616)*V(4829) -! B(5816) = dA(3617)/dV(4829) - B(5816) = RCT(3617)*V(5256) -! B(5817) = dA(3617)/dV(5256) - B(5817) = RCT(3617)*V(4829) -! B(5818) = dA(3618)/dV(4829) - B(5818) = RCT(3618) -! B(5819) = dA(3619)/dV(4829) - B(5819) = RCT(3619) -! B(5820) = dA(3620)/dV(2148) - B(5820) = RCT(3620) -! B(5821) = dA(3621)/dV(2148) - B(5821) = RCT(3621) -! B(5822) = dA(3622)/dV(2148) - B(5822) = RCT(3622) -! B(5823) = dA(3623)/dV(2148) - B(5823) = RCT(3623) -! B(5824) = dA(3624)/dV(4377) - B(5824) = RCT(3624)*V(5255) -! B(5825) = dA(3624)/dV(5255) - B(5825) = RCT(3624)*V(4377) -! B(5826) = dA(3625)/dV(4377) - B(5826) = RCT(3625)*V(5252) -! B(5827) = dA(3625)/dV(5252) - B(5827) = RCT(3625)*V(4377) -! B(5828) = dA(3626)/dV(4377) - B(5828) = RCT(3626)*V(5252) -! B(5829) = dA(3626)/dV(5252) - B(5829) = RCT(3626)*V(4377) -! B(5830) = dA(3627)/dV(4377) - B(5830) = RCT(3627)*V(5256) -! B(5831) = dA(3627)/dV(5256) - B(5831) = RCT(3627)*V(4377) -! B(5832) = dA(3628)/dV(4377) - B(5832) = RCT(3628) -! B(5833) = dA(3629)/dV(4377) - B(5833) = RCT(3629) -! B(5834) = dA(3630)/dV(4377) - B(5834) = RCT(3630) -! B(5835) = dA(3631)/dV(4683) - B(5835) = RCT(3631)*V(5255) -! B(5836) = dA(3631)/dV(5255) - B(5836) = RCT(3631)*V(4683) -! B(5837) = dA(3632)/dV(4683) - B(5837) = RCT(3632)*V(5252) -! B(5838) = dA(3632)/dV(5252) - B(5838) = RCT(3632)*V(4683) -! B(5839) = dA(3633)/dV(4683) - B(5839) = RCT(3633)*V(5256) -! B(5840) = dA(3633)/dV(5256) - B(5840) = RCT(3633)*V(4683) -! B(5841) = dA(3634)/dV(4683) - B(5841) = RCT(3634) -! B(5842) = dA(3635)/dV(4683) - B(5842) = RCT(3635) -! B(5843) = dA(3636)/dV(4683) - B(5843) = RCT(3636) -! B(5844) = dA(3637)/dV(1431) - B(5844) = RCT(3637)*V(5250) -! B(5845) = dA(3637)/dV(5250) - B(5845) = RCT(3637)*V(1431) -! B(5846) = dA(3638)/dV(1431) - B(5846) = RCT(3638) -! B(5847) = dA(3639)/dV(3439) - B(5847) = RCT(3639)*V(5250) -! B(5848) = dA(3639)/dV(5250) - B(5848) = RCT(3639)*V(3439) -! B(5849) = dA(3640)/dV(3439) - B(5849) = RCT(3640) -! B(5850) = dA(3641)/dV(3440) - B(5850) = RCT(3641) -! B(5851) = dA(3642)/dV(89) - B(5851) = RCT(3642)*V(5250) -! B(5852) = dA(3642)/dV(5250) - B(5852) = RCT(3642)*V(89) -! B(5853) = dA(3643)/dV(4457) - B(5853) = RCT(3643)*V(5253) -! B(5854) = dA(3643)/dV(5253) - B(5854) = RCT(3643)*V(4457) -! B(5855) = dA(3644)/dV(4457) - B(5855) = RCT(3644)*V(5258) -! B(5856) = dA(3644)/dV(5258) - B(5856) = RCT(3644)*V(4457) -! B(5857) = dA(3645)/dV(3539) - B(5857) = RCT(3645)*V(5255) -! B(5858) = dA(3645)/dV(5255) - B(5858) = RCT(3645)*V(3539) -! B(5859) = dA(3646)/dV(3539) - B(5859) = RCT(3646)*V(5252) -! B(5860) = dA(3646)/dV(5252) - B(5860) = RCT(3646)*V(3539) -! B(5861) = dA(3647)/dV(3539) - B(5861) = RCT(3647)*V(5256) -! B(5862) = dA(3647)/dV(5256) - B(5862) = RCT(3647)*V(3539) -! B(5863) = dA(3648)/dV(3539) - B(5863) = RCT(3648) -! B(5864) = dA(3649)/dV(3539) - B(5864) = RCT(3649) -! B(5865) = dA(3650)/dV(3815) - B(5865) = RCT(3650)*V(5255) -! B(5866) = dA(3650)/dV(5255) - B(5866) = RCT(3650)*V(3815) -! B(5867) = dA(3651)/dV(3815) - B(5867) = RCT(3651)*V(5252) -! B(5868) = dA(3651)/dV(5252) - B(5868) = RCT(3651)*V(3815) -! B(5869) = dA(3652)/dV(3815) - B(5869) = RCT(3652)*V(5256) -! B(5870) = dA(3652)/dV(5256) - B(5870) = RCT(3652)*V(3815) -! B(5871) = dA(3653)/dV(3815) - B(5871) = RCT(3653) -! B(5872) = dA(3654)/dV(3815) - B(5872) = RCT(3654) -! B(5873) = dA(3655)/dV(3684) - B(5873) = RCT(3655)*V(5256) -! B(5874) = dA(3655)/dV(5256) - B(5874) = RCT(3655)*V(3684) -! B(5875) = dA(3656)/dV(3684) - B(5875) = RCT(3656)*V(5258) -! B(5876) = dA(3656)/dV(5258) - B(5876) = RCT(3656)*V(3684) -! B(5877) = dA(3657)/dV(3684) - B(5877) = RCT(3657)*V(5250) -! B(5878) = dA(3657)/dV(5250) - B(5878) = RCT(3657)*V(3684) -! B(5879) = dA(3658)/dV(1039) - B(5879) = RCT(3658)*V(5250) -! B(5880) = dA(3658)/dV(5250) - B(5880) = RCT(3658)*V(1039) -! B(5881) = dA(3659)/dV(1039) - B(5881) = RCT(3659) -! B(5882) = dA(3660)/dV(3795) - B(5882) = RCT(3660) -! B(5883) = dA(3661)/dV(3795) - B(5883) = RCT(3661) -! B(5884) = dA(3662)/dV(3795) - B(5884) = RCT(3662) -! B(5885) = dA(3663)/dV(3795) - B(5885) = RCT(3663) -! B(5886) = dA(3664)/dV(2418) - B(5886) = RCT(3664)*V(5250) -! B(5887) = dA(3664)/dV(5250) - B(5887) = RCT(3664)*V(2418) -! B(5888) = dA(3665)/dV(2418) - B(5888) = RCT(3665) -! B(5889) = dA(3666)/dV(283) - B(5889) = RCT(3666)*V(5250) -! B(5890) = dA(3666)/dV(5250) - B(5890) = RCT(3666)*V(283) -! B(5891) = dA(3667)/dV(3122) - B(5891) = RCT(3667)*V(5250) -! B(5892) = dA(3667)/dV(5250) - B(5892) = RCT(3667)*V(3122) -! B(5893) = dA(3668)/dV(3122) - B(5893) = RCT(3668) -! B(5894) = dA(3669)/dV(4635) - B(5894) = RCT(3669)*V(5255) -! B(5895) = dA(3669)/dV(5255) - B(5895) = RCT(3669)*V(4635) -! B(5896) = dA(3670)/dV(4635) - B(5896) = RCT(3670)*V(5255) -! B(5897) = dA(3670)/dV(5255) - B(5897) = RCT(3670)*V(4635) -! B(5898) = dA(3671)/dV(4635) - B(5898) = RCT(3671)*V(5255) -! B(5899) = dA(3671)/dV(5255) - B(5899) = RCT(3671)*V(4635) -! B(5900) = dA(3672)/dV(4635) - B(5900) = RCT(3672)*V(5252) -! B(5901) = dA(3672)/dV(5252) - B(5901) = RCT(3672)*V(4635) -! B(5902) = dA(3673)/dV(4635) - B(5902) = RCT(3673)*V(5253) -! B(5903) = dA(3673)/dV(5253) - B(5903) = RCT(3673)*V(4635) -! B(5904) = dA(3674)/dV(4635) - B(5904) = RCT(3674)*V(5256) -! B(5905) = dA(3674)/dV(5256) - B(5905) = RCT(3674)*V(4635) -! B(5906) = dA(3675)/dV(4635) - B(5906) = RCT(3675) -! B(5907) = dA(3676)/dV(4635) - B(5907) = RCT(3676) -! B(5908) = dA(3677)/dV(3210) - B(5908) = RCT(3677) -! B(5909) = dA(3678)/dV(3210) - B(5909) = RCT(3678) -! B(5910) = dA(3679)/dV(3210) - B(5910) = RCT(3679) -! B(5911) = dA(3680)/dV(3210) - B(5911) = RCT(3680) -! B(5912) = dA(3681)/dV(4928) - B(5912) = RCT(3681)*V(5255) -! B(5913) = dA(3681)/dV(5255) - B(5913) = RCT(3681)*V(4928) -! B(5914) = dA(3682)/dV(4928) - B(5914) = RCT(3682)*V(5252) -! B(5915) = dA(3682)/dV(5252) - B(5915) = RCT(3682)*V(4928) -! B(5916) = dA(3683)/dV(4928) - B(5916) = RCT(3683)*V(5252) -! B(5917) = dA(3683)/dV(5252) - B(5917) = RCT(3683)*V(4928) -! B(5918) = dA(3684)/dV(4928) - B(5918) = RCT(3684)*V(5256) -! B(5919) = dA(3684)/dV(5256) - B(5919) = RCT(3684)*V(4928) -! B(5920) = dA(3685)/dV(4928) - B(5920) = RCT(3685) -! B(5921) = dA(3686)/dV(4928) - B(5921) = RCT(3686) -! B(5922) = dA(3687)/dV(4928) - B(5922) = RCT(3687) -! B(5923) = dA(3688)/dV(4675) - B(5923) = RCT(3688)*V(5255) -! B(5924) = dA(3688)/dV(5255) - B(5924) = RCT(3688)*V(4675) -! B(5925) = dA(3689)/dV(4675) - B(5925) = RCT(3689)*V(5252) -! B(5926) = dA(3689)/dV(5252) - B(5926) = RCT(3689)*V(4675) -! B(5927) = dA(3690)/dV(4675) - B(5927) = RCT(3690)*V(5256) -! B(5928) = dA(3690)/dV(5256) - B(5928) = RCT(3690)*V(4675) -! B(5929) = dA(3691)/dV(4675) - B(5929) = RCT(3691) -! B(5930) = dA(3692)/dV(4675) - B(5930) = RCT(3692) -! B(5931) = dA(3693)/dV(4675) - B(5931) = RCT(3693) -! B(5932) = dA(3694)/dV(1542) - B(5932) = RCT(3694)*V(5250) -! B(5933) = dA(3694)/dV(5250) - B(5933) = RCT(3694)*V(1542) -! B(5934) = dA(3695)/dV(1542) - B(5934) = RCT(3695) -! B(5935) = dA(3696)/dV(1881) - B(5935) = RCT(3696)*V(5250) -! B(5936) = dA(3696)/dV(5250) - B(5936) = RCT(3696)*V(1881) -! B(5937) = dA(3697)/dV(1881) - B(5937) = RCT(3697) -! B(5938) = dA(3698)/dV(1860) - B(5938) = RCT(3698) -! B(5939) = dA(3699)/dV(3661) - B(5939) = RCT(3699)*V(5256) -! B(5940) = dA(3699)/dV(5256) - B(5940) = RCT(3699)*V(3661) -! B(5941) = dA(3700)/dV(3661) - B(5941) = RCT(3700)*V(5250) -! B(5942) = dA(3700)/dV(5250) - B(5942) = RCT(3700)*V(3661) -! B(5943) = dA(3701)/dV(3661) - B(5943) = RCT(3701) -! B(5944) = dA(3702)/dV(3661) - B(5944) = RCT(3702) -! B(5945) = dA(3703)/dV(396) - B(5945) = RCT(3703)*V(5250) -! B(5946) = dA(3703)/dV(5250) - B(5946) = RCT(3703)*V(396) -! B(5947) = dA(3704)/dV(3663) - B(5947) = RCT(3704)*V(5255) -! B(5948) = dA(3704)/dV(5255) - B(5948) = RCT(3704)*V(3663) -! B(5949) = dA(3705)/dV(3663) - B(5949) = RCT(3705)*V(5252) -! B(5950) = dA(3705)/dV(5252) - B(5950) = RCT(3705)*V(3663) -! B(5951) = dA(3706)/dV(3663) - B(5951) = RCT(3706)*V(5256) -! B(5952) = dA(3706)/dV(5256) - B(5952) = RCT(3706)*V(3663) -! B(5953) = dA(3707)/dV(3663) - B(5953) = RCT(3707) -! B(5954) = dA(3708)/dV(3663) - B(5954) = RCT(3708) -! B(5955) = dA(3709)/dV(4494) - B(5955) = RCT(3709)*V(5253) -! B(5956) = dA(3709)/dV(5253) - B(5956) = RCT(3709)*V(4494) -! B(5957) = dA(3710)/dV(4494) - B(5957) = RCT(3710)*V(5258) -! B(5958) = dA(3710)/dV(5258) - B(5958) = RCT(3710)*V(4494) -! B(5959) = dA(3711)/dV(3627) - B(5959) = RCT(3711)*V(5255) -! B(5960) = dA(3711)/dV(5255) - B(5960) = RCT(3711)*V(3627) -! B(5961) = dA(3712)/dV(3627) - B(5961) = RCT(3712)*V(5252) -! B(5962) = dA(3712)/dV(5252) - B(5962) = RCT(3712)*V(3627) -! B(5963) = dA(3713)/dV(3627) - B(5963) = RCT(3713)*V(5256) -! B(5964) = dA(3713)/dV(5256) - B(5964) = RCT(3713)*V(3627) -! B(5965) = dA(3714)/dV(3627) - B(5965) = RCT(3714) -! B(5966) = dA(3715)/dV(3627) - B(5966) = RCT(3715) -! B(5967) = dA(3716)/dV(3482) - B(5967) = RCT(3716)*V(5256) -! B(5968) = dA(3716)/dV(5256) - B(5968) = RCT(3716)*V(3482) -! B(5969) = dA(3717)/dV(3482) - B(5969) = RCT(3717)*V(5258) -! B(5970) = dA(3717)/dV(5258) - B(5970) = RCT(3717)*V(3482) -! B(5971) = dA(3718)/dV(3482) - B(5971) = RCT(3718)*V(5250) -! B(5972) = dA(3718)/dV(5250) - B(5972) = RCT(3718)*V(3482) -! B(5973) = dA(3719)/dV(956) - B(5973) = RCT(3719)*V(5250) -! B(5974) = dA(3719)/dV(5250) - B(5974) = RCT(3719)*V(956) -! B(5975) = dA(3720)/dV(956) - B(5975) = RCT(3720) -! B(5976) = dA(3721)/dV(2241) - B(5976) = RCT(3721)*V(5250) -! B(5977) = dA(3721)/dV(5250) - B(5977) = RCT(3721)*V(2241) -! B(5978) = dA(3722)/dV(2241) - B(5978) = RCT(3722) -! B(5979) = dA(3723)/dV(4937) - B(5979) = RCT(3723) -! B(5980) = dA(3724)/dV(4937) - B(5980) = RCT(3724) -! B(5981) = dA(3725)/dV(4937) - B(5981) = RCT(3725) -! B(5982) = dA(3726)/dV(4937) - B(5982) = RCT(3726) -! B(5983) = dA(3727)/dV(4937) - B(5983) = RCT(3727) -! B(5984) = dA(3728)/dV(4937) - B(5984) = RCT(3728) -! B(5985) = dA(3729)/dV(274) - B(5985) = RCT(3729)*V(5250) -! B(5986) = dA(3729)/dV(5250) - B(5986) = RCT(3729)*V(274) -! B(5987) = dA(3730)/dV(3103) - B(5987) = RCT(3730)*V(5250) -! B(5988) = dA(3730)/dV(5250) - B(5988) = RCT(3730)*V(3103) -! B(5989) = dA(3731)/dV(3103) - B(5989) = RCT(3731) -! B(5990) = dA(3732)/dV(4630) - B(5990) = RCT(3732)*V(5256) -! B(5991) = dA(3732)/dV(5256) - B(5991) = RCT(3732)*V(4630) -! B(5992) = dA(3733)/dV(4630) - B(5992) = RCT(3733)*V(5250) -! B(5993) = dA(3733)/dV(5250) - B(5993) = RCT(3733)*V(4630) -! B(5994) = dA(3734)/dV(4630) - B(5994) = RCT(3734) -! B(5995) = dA(3735)/dV(4630) - B(5995) = RCT(3735) -! B(5996) = dA(3736)/dV(4971) - B(5996) = RCT(3736)*V(5255) -! B(5997) = dA(3736)/dV(5255) - B(5997) = RCT(3736)*V(4971) -! B(5998) = dA(3737)/dV(4971) - B(5998) = RCT(3737)*V(5252) -! B(5999) = dA(3737)/dV(5252) - B(5999) = RCT(3737)*V(4971) -! B(6000) = dA(3738)/dV(4971) - B(6000) = RCT(3738)*V(5252) -! B(6001) = dA(3738)/dV(5252) - B(6001) = RCT(3738)*V(4971) -! B(6002) = dA(3739)/dV(4971) - B(6002) = RCT(3739)*V(5256) -! B(6003) = dA(3739)/dV(5256) - B(6003) = RCT(3739)*V(4971) -! B(6004) = dA(3740)/dV(4971) - B(6004) = RCT(3740) -! B(6005) = dA(3741)/dV(4971) - B(6005) = RCT(3741) -! B(6006) = dA(3742)/dV(4971) - B(6006) = RCT(3742) -! B(6007) = dA(3743)/dV(1458) - B(6007) = RCT(3743)*V(5250) -! B(6008) = dA(3743)/dV(5250) - B(6008) = RCT(3743)*V(1458) -! B(6009) = dA(3744)/dV(1458) - B(6009) = RCT(3744) -! B(6010) = dA(3745)/dV(1772) - B(6010) = RCT(3745)*V(5250) -! B(6011) = dA(3745)/dV(5250) - B(6011) = RCT(3745)*V(1772) -! B(6012) = dA(3746)/dV(1772) - B(6012) = RCT(3746) -! B(6013) = dA(3747)/dV(1773) - B(6013) = RCT(3747) -! B(6014) = dA(3748)/dV(3655) - B(6014) = RCT(3748)*V(5256) -! B(6015) = dA(3748)/dV(5256) - B(6015) = RCT(3748)*V(3655) -! B(6016) = dA(3749)/dV(3655) - B(6016) = RCT(3749)*V(5250) -! B(6017) = dA(3749)/dV(5250) - B(6017) = RCT(3749)*V(3655) -! B(6018) = dA(3750)/dV(3655) - B(6018) = RCT(3750) -! B(6019) = dA(3751)/dV(3655) - B(6019) = RCT(3751) -! B(6020) = dA(3752)/dV(480) - B(6020) = RCT(3752)*V(5250) -! B(6021) = dA(3752)/dV(5250) - B(6021) = RCT(3752)*V(480) -! B(6022) = dA(3753)/dV(1486) - B(6022) = RCT(3753)*V(5250) -! B(6023) = dA(3753)/dV(5250) - B(6023) = RCT(3753)*V(1486) -! B(6024) = dA(3754)/dV(1486) - B(6024) = RCT(3754) -! B(6025) = dA(3755)/dV(2605) - B(6025) = RCT(3755)*V(5250) -! B(6026) = dA(3755)/dV(5250) - B(6026) = RCT(3755)*V(2605) -! B(6027) = dA(3756)/dV(2605) - B(6027) = RCT(3756) -! B(6028) = dA(3757)/dV(5030) - B(6028) = RCT(3757) -! B(6029) = dA(3758)/dV(5030) - B(6029) = RCT(3758) -! B(6030) = dA(3759)/dV(5030) - B(6030) = RCT(3759) -! B(6031) = dA(3760)/dV(5030) - B(6031) = RCT(3760) -! B(6032) = dA(3761)/dV(5030) - B(6032) = RCT(3761) -! B(6033) = dA(3762)/dV(5030) - B(6033) = RCT(3762) -! B(6034) = dA(3763)/dV(52) - B(6034) = RCT(3763)*V(5250) -! B(6035) = dA(3763)/dV(5250) - B(6035) = RCT(3763)*V(52) -! B(6036) = dA(3764)/dV(3828) - B(6036) = RCT(3764)*V(5255) -! B(6037) = dA(3764)/dV(5255) - B(6037) = RCT(3764)*V(3828) -! B(6038) = dA(3765)/dV(3828) - B(6038) = RCT(3765)*V(5252) -! B(6039) = dA(3765)/dV(5252) - B(6039) = RCT(3765)*V(3828) -! B(6040) = dA(3766)/dV(3828) - B(6040) = RCT(3766)*V(5256) -! B(6041) = dA(3766)/dV(5256) - B(6041) = RCT(3766)*V(3828) -! B(6042) = dA(3767)/dV(3828) - B(6042) = RCT(3767) -! B(6043) = dA(3768)/dV(3828) - B(6043) = RCT(3768) -! B(6044) = dA(3769)/dV(4407) - B(6044) = RCT(3769)*V(5253) -! B(6045) = dA(3769)/dV(5253) - B(6045) = RCT(3769)*V(4407) -! B(6046) = dA(3770)/dV(4407) - B(6046) = RCT(3770)*V(5258) -! B(6047) = dA(3770)/dV(5258) - B(6047) = RCT(3770)*V(4407) -! B(6048) = dA(3771)/dV(3518) - B(6048) = RCT(3771)*V(5255) -! B(6049) = dA(3771)/dV(5255) - B(6049) = RCT(3771)*V(3518) -! B(6050) = dA(3772)/dV(3518) - B(6050) = RCT(3772)*V(5252) -! B(6051) = dA(3772)/dV(5252) - B(6051) = RCT(3772)*V(3518) -! B(6052) = dA(3773)/dV(3518) - B(6052) = RCT(3773)*V(5256) -! B(6053) = dA(3773)/dV(5256) - B(6053) = RCT(3773)*V(3518) -! B(6054) = dA(3774)/dV(3518) - B(6054) = RCT(3774) -! B(6055) = dA(3775)/dV(3518) - B(6055) = RCT(3775) -! B(6056) = dA(3776)/dV(3494) - B(6056) = RCT(3776)*V(5256) -! B(6057) = dA(3776)/dV(5256) - B(6057) = RCT(3776)*V(3494) -! B(6058) = dA(3777)/dV(3494) - B(6058) = RCT(3777)*V(5258) -! B(6059) = dA(3777)/dV(5258) - B(6059) = RCT(3777)*V(3494) -! B(6060) = dA(3778)/dV(3494) - B(6060) = RCT(3778)*V(5250) -! B(6061) = dA(3778)/dV(5250) - B(6061) = RCT(3778)*V(3494) -! B(6062) = dA(3779)/dV(4948) - B(6062) = RCT(3779)*V(5255) -! B(6063) = dA(3779)/dV(5255) - B(6063) = RCT(3779)*V(4948) -! B(6064) = dA(3780)/dV(4948) - B(6064) = RCT(3780)*V(5255) -! B(6065) = dA(3780)/dV(5255) - B(6065) = RCT(3780)*V(4948) -! B(6066) = dA(3781)/dV(4948) - B(6066) = RCT(3781)*V(5255) -! B(6067) = dA(3781)/dV(5255) - B(6067) = RCT(3781)*V(4948) -! B(6068) = dA(3782)/dV(4948) - B(6068) = RCT(3782)*V(5252) -! B(6069) = dA(3782)/dV(5252) - B(6069) = RCT(3782)*V(4948) -! B(6070) = dA(3783)/dV(4948) - B(6070) = RCT(3783)*V(5253) -! B(6071) = dA(3783)/dV(5253) - B(6071) = RCT(3783)*V(4948) -! B(6072) = dA(3784)/dV(4948) - B(6072) = RCT(3784)*V(5256) -! B(6073) = dA(3784)/dV(5256) - B(6073) = RCT(3784)*V(4948) -! B(6074) = dA(3785)/dV(4948) - B(6074) = RCT(3785) -! B(6075) = dA(3786)/dV(4948) - B(6075) = RCT(3786) -! B(6076) = dA(3787)/dV(4803) - B(6076) = RCT(3787)*V(5255) -! B(6077) = dA(3787)/dV(5255) - B(6077) = RCT(3787)*V(4803) -! B(6078) = dA(3788)/dV(4803) - B(6078) = RCT(3788)*V(5252) -! B(6079) = dA(3788)/dV(5252) - B(6079) = RCT(3788)*V(4803) -! B(6080) = dA(3789)/dV(4803) - B(6080) = RCT(3789)*V(5252) -! B(6081) = dA(3789)/dV(5252) - B(6081) = RCT(3789)*V(4803) -! B(6082) = dA(3790)/dV(4803) - B(6082) = RCT(3790)*V(5256) -! B(6083) = dA(3790)/dV(5256) - B(6083) = RCT(3790)*V(4803) -! B(6084) = dA(3791)/dV(4803) - B(6084) = RCT(3791) -! B(6085) = dA(3792)/dV(4803) - B(6085) = RCT(3792) -! B(6086) = dA(3793)/dV(4803) - B(6086) = RCT(3793) -! B(6087) = dA(3794)/dV(4899) - B(6087) = RCT(3794)*V(5255) -! B(6088) = dA(3794)/dV(5255) - B(6088) = RCT(3794)*V(4899) -! B(6089) = dA(3795)/dV(4899) - B(6089) = RCT(3795)*V(5252) -! B(6090) = dA(3795)/dV(5252) - B(6090) = RCT(3795)*V(4899) -! B(6091) = dA(3796)/dV(4899) - B(6091) = RCT(3796)*V(5256) -! B(6092) = dA(3796)/dV(5256) - B(6092) = RCT(3796)*V(4899) -! B(6093) = dA(3797)/dV(4899) - B(6093) = RCT(3797) -! B(6094) = dA(3798)/dV(4899) - B(6094) = RCT(3798) -! B(6095) = dA(3799)/dV(1385) - B(6095) = RCT(3799)*V(5250) -! B(6096) = dA(3799)/dV(5250) - B(6096) = RCT(3799)*V(1385) -! B(6097) = dA(3800)/dV(1385) - B(6097) = RCT(3800) -! B(6098) = dA(3801)/dV(2232) - B(6098) = RCT(3801)*V(5250) -! B(6099) = dA(3801)/dV(5250) - B(6099) = RCT(3801)*V(2232) -! B(6100) = dA(3802)/dV(2232) - B(6100) = RCT(3802) -! B(6101) = dA(3803)/dV(1903) - B(6101) = RCT(3803) -! B(6102) = dA(3804)/dV(3645) - B(6102) = RCT(3804)*V(5256) -! B(6103) = dA(3804)/dV(5256) - B(6103) = RCT(3804)*V(3645) -! B(6104) = dA(3805)/dV(3645) - B(6104) = RCT(3805)*V(5250) -! B(6105) = dA(3805)/dV(5250) - B(6105) = RCT(3805)*V(3645) -! B(6106) = dA(3806)/dV(3645) - B(6106) = RCT(3806) -! B(6107) = dA(3807)/dV(3645) - B(6107) = RCT(3807) -! B(6108) = dA(3808)/dV(431) - B(6108) = RCT(3808)*V(5250) -! B(6109) = dA(3808)/dV(5250) - B(6109) = RCT(3808)*V(431) -! B(6110) = dA(3809)/dV(1310) - B(6110) = RCT(3809)*V(5250) -! B(6111) = dA(3809)/dV(5250) - B(6111) = RCT(3809)*V(1310) -! B(6112) = dA(3810)/dV(1310) - B(6112) = RCT(3810) -! B(6113) = dA(3811)/dV(2372) - B(6113) = RCT(3811)*V(5250) -! B(6114) = dA(3811)/dV(5250) - B(6114) = RCT(3811)*V(2372) -! B(6115) = dA(3812)/dV(2372) - B(6115) = RCT(3812) -! B(6116) = dA(3813)/dV(3332) - B(6116) = RCT(3813) -! B(6117) = dA(3814)/dV(3332) - B(6117) = RCT(3814) -! B(6118) = dA(3815)/dV(523) - B(6118) = RCT(3815)*V(5250) -! B(6119) = dA(3815)/dV(5250) - B(6119) = RCT(3815)*V(523) -! B(6120) = dA(3816)/dV(3082) - B(6120) = RCT(3816)*V(5250) -! B(6121) = dA(3816)/dV(5250) - B(6121) = RCT(3816)*V(3082) -! B(6122) = dA(3817)/dV(3082) - B(6122) = RCT(3817) -! B(6123) = dA(3818)/dV(3641) - B(6123) = RCT(3818)*V(5255) -! B(6124) = dA(3818)/dV(5255) - B(6124) = RCT(3818)*V(3641) -! B(6125) = dA(3819)/dV(3641) - B(6125) = RCT(3819)*V(5252) -! B(6126) = dA(3819)/dV(5252) - B(6126) = RCT(3819)*V(3641) -! B(6127) = dA(3820)/dV(3641) - B(6127) = RCT(3820)*V(5256) -! B(6128) = dA(3820)/dV(5256) - B(6128) = RCT(3820)*V(3641) -! B(6129) = dA(3821)/dV(3641) - B(6129) = RCT(3821) -! B(6130) = dA(3822)/dV(3641) - B(6130) = RCT(3822) -! B(6131) = dA(3823)/dV(707) - B(6131) = RCT(3823)*V(5255) -! B(6132) = dA(3823)/dV(5255) - B(6132) = RCT(3823)*V(707) -! B(6133) = dA(3824)/dV(3648) - B(6133) = RCT(3824)*V(5255) -! B(6134) = dA(3824)/dV(5255) - B(6134) = RCT(3824)*V(3648) -! B(6135) = dA(3825)/dV(3648) - B(6135) = RCT(3825)*V(5252) -! B(6136) = dA(3825)/dV(5252) - B(6136) = RCT(3825)*V(3648) -! B(6137) = dA(3826)/dV(3648) - B(6137) = RCT(3826)*V(5256) -! B(6138) = dA(3826)/dV(5256) - B(6138) = RCT(3826)*V(3648) -! B(6139) = dA(3827)/dV(3648) - B(6139) = RCT(3827) -! B(6140) = dA(3828)/dV(3648) - B(6140) = RCT(3828) -! B(6141) = dA(3829)/dV(4807) - B(6141) = RCT(3829)*V(5255) -! B(6142) = dA(3829)/dV(5255) - B(6142) = RCT(3829)*V(4807) -! B(6143) = dA(3830)/dV(4807) - B(6143) = RCT(3830)*V(5255) -! B(6144) = dA(3830)/dV(5255) - B(6144) = RCT(3830)*V(4807) -! B(6145) = dA(3831)/dV(4807) - B(6145) = RCT(3831)*V(5255) -! B(6146) = dA(3831)/dV(5255) - B(6146) = RCT(3831)*V(4807) -! B(6147) = dA(3832)/dV(4807) - B(6147) = RCT(3832)*V(5252) -! B(6148) = dA(3832)/dV(5252) - B(6148) = RCT(3832)*V(4807) -! B(6149) = dA(3833)/dV(4807) - B(6149) = RCT(3833)*V(5253) -! B(6150) = dA(3833)/dV(5253) - B(6150) = RCT(3833)*V(4807) -! B(6151) = dA(3834)/dV(4807) - B(6151) = RCT(3834)*V(5256) -! B(6152) = dA(3834)/dV(5256) - B(6152) = RCT(3834)*V(4807) -! B(6153) = dA(3835)/dV(4807) - B(6153) = RCT(3835) -! B(6154) = dA(3836)/dV(4807) - B(6154) = RCT(3836) -! B(6155) = dA(3837)/dV(4569) - B(6155) = RCT(3837)*V(5256) -! B(6156) = dA(3837)/dV(5256) - B(6156) = RCT(3837)*V(4569) -! B(6157) = dA(3838)/dV(4569) - B(6157) = RCT(3838)*V(5250) -! B(6158) = dA(3838)/dV(5250) - B(6158) = RCT(3838)*V(4569) -! B(6159) = dA(3839)/dV(4569) - B(6159) = RCT(3839) -! B(6160) = dA(3840)/dV(4569) - B(6160) = RCT(3840) -! B(6161) = dA(3841)/dV(3133) - B(6161) = RCT(3841) -! B(6162) = dA(3842)/dV(3133) - B(6162) = RCT(3842) -! B(6163) = dA(3843)/dV(4568) - B(6163) = RCT(3843)*V(5255) -! B(6164) = dA(3843)/dV(5255) - B(6164) = RCT(3843)*V(4568) -! B(6165) = dA(3844)/dV(4568) - B(6165) = RCT(3844)*V(5252) -! B(6166) = dA(3844)/dV(5252) - B(6166) = RCT(3844)*V(4568) -! B(6167) = dA(3845)/dV(4568) - B(6167) = RCT(3845)*V(5252) -! B(6168) = dA(3845)/dV(5252) - B(6168) = RCT(3845)*V(4568) -! B(6169) = dA(3846)/dV(4568) - B(6169) = RCT(3846)*V(5256) -! B(6170) = dA(3846)/dV(5256) - B(6170) = RCT(3846)*V(4568) -! B(6171) = dA(3847)/dV(4568) - B(6171) = RCT(3847) -! B(6172) = dA(3848)/dV(4568) - B(6172) = RCT(3848) -! B(6173) = dA(3849)/dV(4935) - B(6173) = RCT(3849)*V(5255) -! B(6174) = dA(3849)/dV(5255) - B(6174) = RCT(3849)*V(4935) -! B(6175) = dA(3850)/dV(4935) - B(6175) = RCT(3850)*V(5252) -! B(6176) = dA(3850)/dV(5252) - B(6176) = RCT(3850)*V(4935) -! B(6177) = dA(3851)/dV(4935) - B(6177) = RCT(3851)*V(5256) -! B(6178) = dA(3851)/dV(5256) - B(6178) = RCT(3851)*V(4935) -! B(6179) = dA(3852)/dV(4935) - B(6179) = RCT(3852) -! B(6180) = dA(3853)/dV(4935) - B(6180) = RCT(3853) -! B(6181) = dA(3854)/dV(4935) - B(6181) = RCT(3854) -! B(6182) = dA(3855)/dV(1150) - B(6182) = RCT(3855)*V(5250) -! B(6183) = dA(3855)/dV(5250) - B(6183) = RCT(3855)*V(1150) -! B(6184) = dA(3856)/dV(1150) - B(6184) = RCT(3856) -! B(6185) = dA(3857)/dV(2087) - B(6185) = RCT(3857)*V(5250) -! B(6186) = dA(3857)/dV(5250) - B(6186) = RCT(3857)*V(2087) -! B(6187) = dA(3858)/dV(2087) - B(6187) = RCT(3858) -! B(6188) = dA(3859)/dV(2088) - B(6188) = RCT(3859) -! B(6189) = dA(3860)/dV(446) - B(6189) = RCT(3860)*V(5250) -! B(6190) = dA(3860)/dV(5250) - B(6190) = RCT(3860)*V(446) -! B(6191) = dA(3861)/dV(3331) - B(6191) = RCT(3861)*V(5250) -! B(6192) = dA(3861)/dV(5250) - B(6192) = RCT(3861)*V(3331) -! B(6193) = dA(3862)/dV(3331) - B(6193) = RCT(3862) -! B(6194) = dA(3863)/dV(1535) - B(6194) = RCT(3863)*V(5250) -! B(6195) = dA(3863)/dV(5250) - B(6195) = RCT(3863)*V(1535) -! B(6196) = dA(3864)/dV(1535) - B(6196) = RCT(3864) -! B(6197) = dA(3865)/dV(3445) - B(6197) = RCT(3865)*V(5250) -! B(6198) = dA(3865)/dV(5250) - B(6198) = RCT(3865)*V(3445) -! B(6199) = dA(3866)/dV(3445) - B(6199) = RCT(3866) -! B(6200) = dA(3867)/dV(4177) - B(6200) = RCT(3867) -! B(6201) = dA(3868)/dV(4177) - B(6201) = RCT(3868) -! B(6202) = dA(3869)/dV(4177) - B(6202) = RCT(3869) -! B(6203) = dA(3870)/dV(4177) - B(6203) = RCT(3870) -! B(6204) = dA(3871)/dV(4177) - B(6204) = RCT(3871) -! B(6205) = dA(3872)/dV(4177) - B(6205) = RCT(3872) -! B(6206) = dA(3873)/dV(54) - B(6206) = RCT(3873)*V(5250) -! B(6207) = dA(3873)/dV(5250) - B(6207) = RCT(3873)*V(54) -! B(6208) = dA(3874)/dV(4654) - B(6208) = RCT(3874)*V(5255) -! B(6209) = dA(3874)/dV(5255) - B(6209) = RCT(3874)*V(4654) -! B(6210) = dA(3875)/dV(4654) - B(6210) = RCT(3875)*V(5255) -! B(6211) = dA(3875)/dV(5255) - B(6211) = RCT(3875)*V(4654) -! B(6212) = dA(3876)/dV(4654) - B(6212) = RCT(3876)*V(5255) -! B(6213) = dA(3876)/dV(5255) - B(6213) = RCT(3876)*V(4654) -! B(6214) = dA(3877)/dV(4654) - B(6214) = RCT(3877)*V(5252) -! B(6215) = dA(3877)/dV(5252) - B(6215) = RCT(3877)*V(4654) -! B(6216) = dA(3878)/dV(4654) - B(6216) = RCT(3878)*V(5253) -! B(6217) = dA(3878)/dV(5253) - B(6217) = RCT(3878)*V(4654) -! B(6218) = dA(3879)/dV(4654) - B(6218) = RCT(3879)*V(5256) -! B(6219) = dA(3879)/dV(5256) - B(6219) = RCT(3879)*V(4654) -! B(6220) = dA(3880)/dV(4654) - B(6220) = RCT(3880) -! B(6221) = dA(3881)/dV(4654) - B(6221) = RCT(3881) -! B(6222) = dA(3882)/dV(4576) - B(6222) = RCT(3882)*V(5256) -! B(6223) = dA(3882)/dV(5256) - B(6223) = RCT(3882)*V(4576) -! B(6224) = dA(3883)/dV(4576) - B(6224) = RCT(3883)*V(5250) -! B(6225) = dA(3883)/dV(5250) - B(6225) = RCT(3883)*V(4576) -! B(6226) = dA(3884)/dV(4576) - B(6226) = RCT(3884) -! B(6227) = dA(3885)/dV(4575) - B(6227) = RCT(3885)*V(5255) -! B(6228) = dA(3885)/dV(5255) - B(6228) = RCT(3885)*V(4575) -! B(6229) = dA(3886)/dV(4575) - B(6229) = RCT(3886)*V(5252) -! B(6230) = dA(3886)/dV(5252) - B(6230) = RCT(3886)*V(4575) -! B(6231) = dA(3887)/dV(4575) - B(6231) = RCT(3887)*V(5252) -! B(6232) = dA(3887)/dV(5252) - B(6232) = RCT(3887)*V(4575) -! B(6233) = dA(3888)/dV(4575) - B(6233) = RCT(3888)*V(5256) -! B(6234) = dA(3888)/dV(5256) - B(6234) = RCT(3888)*V(4575) -! B(6235) = dA(3889)/dV(4575) - B(6235) = RCT(3889) -! B(6236) = dA(3890)/dV(4575) - B(6236) = RCT(3890) -! B(6237) = dA(3891)/dV(4575) - B(6237) = RCT(3891) -! B(6238) = dA(3892)/dV(4311) - B(6238) = RCT(3892)*V(5255) -! B(6239) = dA(3892)/dV(5255) - B(6239) = RCT(3892)*V(4311) -! B(6240) = dA(3893)/dV(4311) - B(6240) = RCT(3893)*V(5252) -! B(6241) = dA(3893)/dV(5252) - B(6241) = RCT(3893)*V(4311) -! B(6242) = dA(3894)/dV(4311) - B(6242) = RCT(3894)*V(5256) -! B(6243) = dA(3894)/dV(5256) - B(6243) = RCT(3894)*V(4311) -! B(6244) = dA(3895)/dV(4311) - B(6244) = RCT(3895) -! B(6245) = dA(3896)/dV(4311) - B(6245) = RCT(3896) -! B(6246) = dA(3897)/dV(3665) - B(6246) = RCT(3897)*V(5255) -! B(6247) = dA(3897)/dV(5255) - B(6247) = RCT(3897)*V(3665) -! B(6248) = dA(3898)/dV(3665) - B(6248) = RCT(3898)*V(5252) -! B(6249) = dA(3898)/dV(5252) - B(6249) = RCT(3898)*V(3665) -! B(6250) = dA(3899)/dV(3665) - B(6250) = RCT(3899)*V(5256) -! B(6251) = dA(3899)/dV(5256) - B(6251) = RCT(3899)*V(3665) -! B(6252) = dA(3900)/dV(3665) - B(6252) = RCT(3900) -! B(6253) = dA(3901)/dV(3665) - B(6253) = RCT(3901) -! B(6254) = dA(3902)/dV(4438) - B(6254) = RCT(3902)*V(5253) -! B(6255) = dA(3902)/dV(5253) - B(6255) = RCT(3902)*V(4438) -! B(6256) = dA(3903)/dV(4438) - B(6256) = RCT(3903)*V(5258) -! B(6257) = dA(3903)/dV(5258) - B(6257) = RCT(3903)*V(4438) -! B(6258) = dA(3904)/dV(3503) - B(6258) = RCT(3904)*V(5255) -! B(6259) = dA(3904)/dV(5255) - B(6259) = RCT(3904)*V(3503) -! B(6260) = dA(3905)/dV(3503) - B(6260) = RCT(3905)*V(5252) -! B(6261) = dA(3905)/dV(5252) - B(6261) = RCT(3905)*V(3503) -! B(6262) = dA(3906)/dV(3503) - B(6262) = RCT(3906)*V(5256) -! B(6263) = dA(3906)/dV(5256) - B(6263) = RCT(3906)*V(3503) -! B(6264) = dA(3907)/dV(3503) - B(6264) = RCT(3907) -! B(6265) = dA(3908)/dV(3503) - B(6265) = RCT(3908) -! B(6266) = dA(3909)/dV(3506) - B(6266) = RCT(3909)*V(5256) -! B(6267) = dA(3909)/dV(5256) - B(6267) = RCT(3909)*V(3506) -! B(6268) = dA(3910)/dV(3506) - B(6268) = RCT(3910)*V(5258) -! B(6269) = dA(3910)/dV(5258) - B(6269) = RCT(3910)*V(3506) -! B(6270) = dA(3911)/dV(3506) - B(6270) = RCT(3911)*V(5250) -! B(6271) = dA(3911)/dV(5250) - B(6271) = RCT(3911)*V(3506) -! B(6272) = dA(3912)/dV(861) - B(6272) = RCT(3912)*V(5250) -! B(6273) = dA(3912)/dV(5250) - B(6273) = RCT(3912)*V(861) -! B(6274) = dA(3913)/dV(861) - B(6274) = RCT(3913) -! B(6275) = dA(3914)/dV(1896) - B(6275) = RCT(3914)*V(5250) -! B(6276) = dA(3914)/dV(5250) - B(6276) = RCT(3914)*V(1896) -! B(6277) = dA(3915)/dV(1896) - B(6277) = RCT(3915) -! B(6278) = dA(3916)/dV(3826) - B(6278) = RCT(3916) -! B(6279) = dA(3917)/dV(3826) - B(6279) = RCT(3917) -! B(6280) = dA(3918)/dV(3826) - B(6280) = RCT(3918) -! B(6281) = dA(3919)/dV(3826) - B(6281) = RCT(3919) -! B(6282) = dA(3920)/dV(3826) - B(6282) = RCT(3920) -! B(6283) = dA(3921)/dV(22) - B(6283) = RCT(3921)*V(5250) -! B(6284) = dA(3921)/dV(5250) - B(6284) = RCT(3921)*V(22) -! B(6285) = dA(3922)/dV(2021) - B(6285) = RCT(3922)*V(5250) -! B(6286) = dA(3922)/dV(5250) - B(6286) = RCT(3922)*V(2021) -! B(6287) = dA(3923)/dV(2021) - B(6287) = RCT(3923) -! B(6288) = dA(3924)/dV(4132) - B(6288) = RCT(3924)*V(5255) -! B(6289) = dA(3924)/dV(5255) - B(6289) = RCT(3924)*V(4132) -! B(6290) = dA(3925)/dV(4132) - B(6290) = RCT(3925)*V(5255) -! B(6291) = dA(3925)/dV(5255) - B(6291) = RCT(3925)*V(4132) -! B(6292) = dA(3926)/dV(4132) - B(6292) = RCT(3926)*V(5255) -! B(6293) = dA(3926)/dV(5255) - B(6293) = RCT(3926)*V(4132) -! B(6294) = dA(3927)/dV(4132) - B(6294) = RCT(3927)*V(5253) -! B(6295) = dA(3927)/dV(5253) - B(6295) = RCT(3927)*V(4132) -! B(6296) = dA(3928)/dV(4132) - B(6296) = RCT(3928)*V(5253) -! B(6297) = dA(3928)/dV(5253) - B(6297) = RCT(3928)*V(4132) -! B(6298) = dA(3929)/dV(4132) - B(6298) = RCT(3929)*V(5256) -! B(6299) = dA(3929)/dV(5256) - B(6299) = RCT(3929)*V(4132) -! B(6300) = dA(3930)/dV(4132) - B(6300) = RCT(3930) -! B(6301) = dA(3931)/dV(4132) - B(6301) = RCT(3931) -! B(6302) = dA(3932)/dV(4725) - B(6302) = RCT(3932)*V(5255) -! B(6303) = dA(3932)/dV(5255) - B(6303) = RCT(3932)*V(4725) -! B(6304) = dA(3933)/dV(4725) - B(6304) = RCT(3933)*V(5252) -! B(6305) = dA(3933)/dV(5252) - B(6305) = RCT(3933)*V(4725) -! B(6306) = dA(3934)/dV(4725) - B(6306) = RCT(3934)*V(5252) -! B(6307) = dA(3934)/dV(5252) - B(6307) = RCT(3934)*V(4725) -! B(6308) = dA(3935)/dV(4725) - B(6308) = RCT(3935)*V(5256) -! B(6309) = dA(3935)/dV(5256) - B(6309) = RCT(3935)*V(4725) -! B(6310) = dA(3936)/dV(4725) - B(6310) = RCT(3936) -! B(6311) = dA(3937)/dV(4725) - B(6311) = RCT(3937) -! B(6312) = dA(3938)/dV(4725) - B(6312) = RCT(3938) -! B(6313) = dA(3939)/dV(4897) - B(6313) = RCT(3939)*V(5255) -! B(6314) = dA(3939)/dV(5255) - B(6314) = RCT(3939)*V(4897) -! B(6315) = dA(3940)/dV(4897) - B(6315) = RCT(3940)*V(5252) -! B(6316) = dA(3940)/dV(5252) - B(6316) = RCT(3940)*V(4897) -! B(6317) = dA(3941)/dV(4897) - B(6317) = RCT(3941)*V(5256) -! B(6318) = dA(3941)/dV(5256) - B(6318) = RCT(3941)*V(4897) -! B(6319) = dA(3942)/dV(4897) - B(6319) = RCT(3942) -! B(6320) = dA(3943)/dV(4897) - B(6320) = RCT(3943) -! B(6321) = dA(3944)/dV(4897) - B(6321) = RCT(3944) -! B(6322) = dA(3945)/dV(4437) - B(6322) = RCT(3945)*V(5253) -! B(6323) = dA(3945)/dV(5253) - B(6323) = RCT(3945)*V(4437) -! B(6324) = dA(3946)/dV(4437) - B(6324) = RCT(3946)*V(5258) -! B(6325) = dA(3946)/dV(5258) - B(6325) = RCT(3946)*V(4437) -! B(6326) = dA(3947)/dV(3511) - B(6326) = RCT(3947)*V(5255) -! B(6327) = dA(3947)/dV(5255) - B(6327) = RCT(3947)*V(3511) -! B(6328) = dA(3948)/dV(3511) - B(6328) = RCT(3948)*V(5252) -! B(6329) = dA(3948)/dV(5252) - B(6329) = RCT(3948)*V(3511) -! B(6330) = dA(3949)/dV(3511) - B(6330) = RCT(3949)*V(5256) -! B(6331) = dA(3949)/dV(5256) - B(6331) = RCT(3949)*V(3511) -! B(6332) = dA(3950)/dV(3511) - B(6332) = RCT(3950) -! B(6333) = dA(3951)/dV(3511) - B(6333) = RCT(3951) -! B(6334) = dA(3952)/dV(3791) - B(6334) = RCT(3952)*V(5255) -! B(6335) = dA(3952)/dV(5255) - B(6335) = RCT(3952)*V(3791) -! B(6336) = dA(3953)/dV(3791) - B(6336) = RCT(3953)*V(5252) -! B(6337) = dA(3953)/dV(5252) - B(6337) = RCT(3953)*V(3791) -! B(6338) = dA(3954)/dV(3791) - B(6338) = RCT(3954)*V(5256) -! B(6339) = dA(3954)/dV(5256) - B(6339) = RCT(3954)*V(3791) -! B(6340) = dA(3955)/dV(3791) - B(6340) = RCT(3955) -! B(6341) = dA(3956)/dV(3791) - B(6341) = RCT(3956) -! B(6342) = dA(3957)/dV(3499) - B(6342) = RCT(3957)*V(5256) -! B(6343) = dA(3957)/dV(5256) - B(6343) = RCT(3957)*V(3499) -! B(6344) = dA(3958)/dV(3499) - B(6344) = RCT(3958)*V(5258) -! B(6345) = dA(3958)/dV(5258) - B(6345) = RCT(3958)*V(3499) -! B(6346) = dA(3959)/dV(3499) - B(6346) = RCT(3959)*V(5250) -! B(6347) = dA(3959)/dV(5250) - B(6347) = RCT(3959)*V(3499) -! B(6348) = dA(3960)/dV(1525) - B(6348) = RCT(3960)*V(5250) -! B(6349) = dA(3960)/dV(5250) - B(6349) = RCT(3960)*V(1525) -! B(6350) = dA(3961)/dV(1525) - B(6350) = RCT(3961) -! B(6351) = dA(3962)/dV(1000) - B(6351) = RCT(3962)*V(5250) -! B(6352) = dA(3962)/dV(5250) - B(6352) = RCT(3962)*V(1000) -! B(6353) = dA(3963)/dV(1000) - B(6353) = RCT(3963) -! B(6354) = dA(3964)/dV(3802) - B(6354) = RCT(3964) -! B(6355) = dA(3965)/dV(3802) - B(6355) = RCT(3965) -! B(6356) = dA(3966)/dV(3802) - B(6356) = RCT(3966) -! B(6357) = dA(3967)/dV(3802) - B(6357) = RCT(3967) -! B(6358) = dA(3968)/dV(129) - B(6358) = RCT(3968)*V(5250) -! B(6359) = dA(3968)/dV(5250) - B(6359) = RCT(3968)*V(129) -! B(6360) = dA(3969)/dV(4633) - B(6360) = RCT(3969)*V(5255) -! B(6361) = dA(3969)/dV(5255) - B(6361) = RCT(3969)*V(4633) -! B(6362) = dA(3970)/dV(4633) - B(6362) = RCT(3970)*V(5255) -! B(6363) = dA(3970)/dV(5255) - B(6363) = RCT(3970)*V(4633) -! B(6364) = dA(3971)/dV(4633) - B(6364) = RCT(3971)*V(5255) -! B(6365) = dA(3971)/dV(5255) - B(6365) = RCT(3971)*V(4633) -! B(6366) = dA(3972)/dV(4633) - B(6366) = RCT(3972)*V(5252) -! B(6367) = dA(3972)/dV(5252) - B(6367) = RCT(3972)*V(4633) -! B(6368) = dA(3973)/dV(4633) - B(6368) = RCT(3973)*V(5253) -! B(6369) = dA(3973)/dV(5253) - B(6369) = RCT(3973)*V(4633) -! B(6370) = dA(3974)/dV(4633) - B(6370) = RCT(3974)*V(5256) -! B(6371) = dA(3974)/dV(5256) - B(6371) = RCT(3974)*V(4633) -! B(6372) = dA(3975)/dV(4633) - B(6372) = RCT(3975) -! B(6373) = dA(3976)/dV(4633) - B(6373) = RCT(3976) -! B(6374) = dA(3977)/dV(4727) - B(6374) = RCT(3977)*V(5255) -! B(6375) = dA(3977)/dV(5255) - B(6375) = RCT(3977)*V(4727) -! B(6376) = dA(3978)/dV(4727) - B(6376) = RCT(3978)*V(5252) -! B(6377) = dA(3978)/dV(5252) - B(6377) = RCT(3978)*V(4727) -! B(6378) = dA(3979)/dV(4727) - B(6378) = RCT(3979)*V(5252) -! B(6379) = dA(3979)/dV(5252) - B(6379) = RCT(3979)*V(4727) -! B(6380) = dA(3980)/dV(4727) - B(6380) = RCT(3980)*V(5256) -! B(6381) = dA(3980)/dV(5256) - B(6381) = RCT(3980)*V(4727) -! B(6382) = dA(3981)/dV(4727) - B(6382) = RCT(3981) -! B(6383) = dA(3982)/dV(4727) - B(6383) = RCT(3982) -! B(6384) = dA(3983)/dV(4727) - B(6384) = RCT(3983) -! B(6385) = dA(3984)/dV(4905) - B(6385) = RCT(3984)*V(5255) -! B(6386) = dA(3984)/dV(5255) - B(6386) = RCT(3984)*V(4905) -! B(6387) = dA(3985)/dV(4905) - B(6387) = RCT(3985)*V(5252) -! B(6388) = dA(3985)/dV(5252) - B(6388) = RCT(3985)*V(4905) -! B(6389) = dA(3986)/dV(4905) - B(6389) = RCT(3986)*V(5256) -! B(6390) = dA(3986)/dV(5256) - B(6390) = RCT(3986)*V(4905) -! B(6391) = dA(3987)/dV(4905) - B(6391) = RCT(3987) -! B(6392) = dA(3988)/dV(4905) - B(6392) = RCT(3988) -! B(6393) = dA(3989)/dV(3825) - B(6393) = RCT(3989)*V(5255) -! B(6394) = dA(3989)/dV(5255) - B(6394) = RCT(3989)*V(3825) -! B(6395) = dA(3990)/dV(3825) - B(6395) = RCT(3990)*V(5252) -! B(6396) = dA(3990)/dV(5252) - B(6396) = RCT(3990)*V(3825) -! B(6397) = dA(3991)/dV(3825) - B(6397) = RCT(3991)*V(5256) -! B(6398) = dA(3991)/dV(5256) - B(6398) = RCT(3991)*V(3825) -! B(6399) = dA(3992)/dV(3825) - B(6399) = RCT(3992) -! B(6400) = dA(3993)/dV(3825) - B(6400) = RCT(3993) -! B(6401) = dA(3994)/dV(4504) - B(6401) = RCT(3994)*V(5253) -! B(6402) = dA(3994)/dV(5253) - B(6402) = RCT(3994)*V(4504) -! B(6403) = dA(3995)/dV(4504) - B(6403) = RCT(3995)*V(5258) -! B(6404) = dA(3995)/dV(5258) - B(6404) = RCT(3995)*V(4504) -! B(6405) = dA(3996)/dV(3489) - B(6405) = RCT(3996)*V(5255) -! B(6406) = dA(3996)/dV(5255) - B(6406) = RCT(3996)*V(3489) -! B(6407) = dA(3997)/dV(3489) - B(6407) = RCT(3997)*V(5252) -! B(6408) = dA(3997)/dV(5252) - B(6408) = RCT(3997)*V(3489) -! B(6409) = dA(3998)/dV(3489) - B(6409) = RCT(3998)*V(5256) -! B(6410) = dA(3998)/dV(5256) - B(6410) = RCT(3998)*V(3489) -! B(6411) = dA(3999)/dV(3489) - B(6411) = RCT(3999) -! B(6412) = dA(4000)/dV(3489) - B(6412) = RCT(4000) -! B(6413) = dA(4001)/dV(3551) - B(6413) = RCT(4001)*V(5256) -! B(6414) = dA(4001)/dV(5256) - B(6414) = RCT(4001)*V(3551) -! B(6415) = dA(4002)/dV(3551) - B(6415) = RCT(4002)*V(5258) -! B(6416) = dA(4002)/dV(5258) - B(6416) = RCT(4002)*V(3551) -! B(6417) = dA(4003)/dV(3551) - B(6417) = RCT(4003)*V(5250) -! B(6418) = dA(4003)/dV(5250) - B(6418) = RCT(4003)*V(3551) -! B(6419) = dA(4004)/dV(1270) - B(6419) = RCT(4004)*V(5250) -! B(6420) = dA(4004)/dV(5250) - B(6420) = RCT(4004)*V(1270) -! B(6421) = dA(4005)/dV(1270) - B(6421) = RCT(4005) -! B(6422) = dA(4006)/dV(2333) - B(6422) = RCT(4006)*V(5250) -! B(6423) = dA(4006)/dV(5250) - B(6423) = RCT(4006)*V(2333) -! B(6424) = dA(4007)/dV(2333) - B(6424) = RCT(4007) -! B(6425) = dA(4008)/dV(2334) - B(6425) = RCT(4008) -! B(6426) = dA(4009)/dV(505) - B(6426) = RCT(4009)*V(5250) -! B(6427) = dA(4009)/dV(5250) - B(6427) = RCT(4009)*V(505) -! B(6428) = dA(4010)/dV(3412) - B(6428) = RCT(4010)*V(5250) -! B(6429) = dA(4010)/dV(5250) - B(6429) = RCT(4010)*V(3412) -! B(6430) = dA(4011)/dV(3412) - B(6430) = RCT(4011) -! B(6431) = dA(4012)/dV(1200) - B(6431) = RCT(4012)*V(5250) -! B(6432) = dA(4012)/dV(5250) - B(6432) = RCT(4012)*V(1200) -! B(6433) = dA(4013)/dV(1200) - B(6433) = RCT(4013) -! B(6434) = dA(4014)/dV(1216) - B(6434) = RCT(4014)*V(5250) -! B(6435) = dA(4014)/dV(5250) - B(6435) = RCT(4014)*V(1216) -! B(6436) = dA(4015)/dV(1216) - B(6436) = RCT(4015) -! B(6437) = dA(4016)/dV(3818) - B(6437) = RCT(4016) -! B(6438) = dA(4017)/dV(3818) - B(6438) = RCT(4017) -! B(6439) = dA(4018)/dV(3818) - B(6439) = RCT(4018) -! B(6440) = dA(4019)/dV(3818) - B(6440) = RCT(4019) -! B(6441) = dA(4020)/dV(81) - B(6441) = RCT(4020)*V(5250) -! B(6442) = dA(4020)/dV(5250) - B(6442) = RCT(4020)*V(81) -! B(6443) = dA(4021)/dV(634) - B(6443) = RCT(4021)*V(5250) -! B(6444) = dA(4021)/dV(5250) - B(6444) = RCT(4021)*V(634) -! B(6445) = dA(4022)/dV(634) - B(6445) = RCT(4022) -! B(6446) = dA(4023)/dV(4685) - B(6446) = RCT(4023)*V(5255) -! B(6447) = dA(4023)/dV(5255) - B(6447) = RCT(4023)*V(4685) -! B(6448) = dA(4024)/dV(4685) - B(6448) = RCT(4024)*V(5255) -! B(6449) = dA(4024)/dV(5255) - B(6449) = RCT(4024)*V(4685) -! B(6450) = dA(4025)/dV(4685) - B(6450) = RCT(4025)*V(5255) -! B(6451) = dA(4025)/dV(5255) - B(6451) = RCT(4025)*V(4685) -! B(6452) = dA(4026)/dV(4685) - B(6452) = RCT(4026)*V(5252) -! B(6453) = dA(4026)/dV(5252) - B(6453) = RCT(4026)*V(4685) -! B(6454) = dA(4027)/dV(4685) - B(6454) = RCT(4027)*V(5253) -! B(6455) = dA(4027)/dV(5253) - B(6455) = RCT(4027)*V(4685) -! B(6456) = dA(4028)/dV(4685) - B(6456) = RCT(4028)*V(5256) -! B(6457) = dA(4028)/dV(5256) - B(6457) = RCT(4028)*V(4685) -! B(6458) = dA(4029)/dV(4685) - B(6458) = RCT(4029) -! B(6459) = dA(4030)/dV(4685) - B(6459) = RCT(4030) -! B(6460) = dA(4031)/dV(3186) - B(6460) = RCT(4031) -! B(6461) = dA(4032)/dV(3186) - B(6461) = RCT(4032) -! B(6462) = dA(4033)/dV(4400) - B(6462) = RCT(4033)*V(5255) -! B(6463) = dA(4033)/dV(5255) - B(6463) = RCT(4033)*V(4400) -! B(6464) = dA(4034)/dV(4400) - B(6464) = RCT(4034)*V(5252) -! B(6465) = dA(4034)/dV(5252) - B(6465) = RCT(4034)*V(4400) -! B(6466) = dA(4035)/dV(4400) - B(6466) = RCT(4035)*V(5252) -! B(6467) = dA(4035)/dV(5252) - B(6467) = RCT(4035)*V(4400) -! B(6468) = dA(4036)/dV(4400) - B(6468) = RCT(4036)*V(5256) -! B(6469) = dA(4036)/dV(5256) - B(6469) = RCT(4036)*V(4400) -! B(6470) = dA(4037)/dV(4400) - B(6470) = RCT(4037) -! B(6471) = dA(4038)/dV(4400) - B(6471) = RCT(4038) -! B(6472) = dA(4039)/dV(4992) - B(6472) = RCT(4039)*V(5255) -! B(6473) = dA(4039)/dV(5255) - B(6473) = RCT(4039)*V(4992) -! B(6474) = dA(4040)/dV(4992) - B(6474) = RCT(4040)*V(5252) -! B(6475) = dA(4040)/dV(5252) - B(6475) = RCT(4040)*V(4992) -! B(6476) = dA(4041)/dV(4992) - B(6476) = RCT(4041)*V(5256) -! B(6477) = dA(4041)/dV(5256) - B(6477) = RCT(4041)*V(4992) -! B(6478) = dA(4042)/dV(4992) - B(6478) = RCT(4042) -! B(6479) = dA(4043)/dV(4992) - B(6479) = RCT(4043) -! B(6480) = dA(4044)/dV(4992) - B(6480) = RCT(4044) -! B(6481) = dA(4045)/dV(677) - B(6481) = RCT(4045)*V(5255) -! B(6482) = dA(4045)/dV(5255) - B(6482) = RCT(4045)*V(677) -! B(6483) = dA(4046)/dV(3631) - B(6483) = RCT(4046)*V(5255) -! B(6484) = dA(4046)/dV(5255) - B(6484) = RCT(4046)*V(3631) -! B(6485) = dA(4047)/dV(3631) - B(6485) = RCT(4047)*V(5252) -! B(6486) = dA(4047)/dV(5252) - B(6486) = RCT(4047)*V(3631) -! B(6487) = dA(4048)/dV(3631) - B(6487) = RCT(4048)*V(5256) -! B(6488) = dA(4048)/dV(5256) - B(6488) = RCT(4048)*V(3631) -! B(6489) = dA(4049)/dV(3631) - B(6489) = RCT(4049) -! B(6490) = dA(4050)/dV(3631) - B(6490) = RCT(4050) -! B(6491) = dA(4051)/dV(3632) - B(6491) = RCT(4051)*V(5255) -! B(6492) = dA(4051)/dV(5255) - B(6492) = RCT(4051)*V(3632) -! B(6493) = dA(4052)/dV(3632) - B(6493) = RCT(4052)*V(5252) -! B(6494) = dA(4052)/dV(5252) - B(6494) = RCT(4052)*V(3632) -! B(6495) = dA(4053)/dV(3632) - B(6495) = RCT(4053)*V(5256) -! B(6496) = dA(4053)/dV(5256) - B(6496) = RCT(4053)*V(3632) -! B(6497) = dA(4054)/dV(3632) - B(6497) = RCT(4054) -! B(6498) = dA(4055)/dV(3632) - B(6498) = RCT(4055) -! B(6499) = dA(4056)/dV(1131) - B(6499) = RCT(4056)*V(5250) -! B(6500) = dA(4056)/dV(5250) - B(6500) = RCT(4056)*V(1131) -! B(6501) = dA(4057)/dV(1131) - B(6501) = RCT(4057) -! B(6502) = dA(4058)/dV(2078) - B(6502) = RCT(4058)*V(5250) -! B(6503) = dA(4058)/dV(5250) - B(6503) = RCT(4058)*V(2078) -! B(6504) = dA(4059)/dV(2078) - B(6504) = RCT(4059) -! B(6505) = dA(4060)/dV(1822) - B(6505) = RCT(4060) -! B(6506) = dA(4061)/dV(432) - B(6506) = RCT(4061)*V(5250) -! B(6507) = dA(4061)/dV(5250) - B(6507) = RCT(4061)*V(432) -! B(6508) = dA(4062)/dV(3343) - B(6508) = RCT(4062)*V(5250) -! B(6509) = dA(4062)/dV(5250) - B(6509) = RCT(4062)*V(3343) -! B(6510) = dA(4063)/dV(3343) - B(6510) = RCT(4063) -! B(6511) = dA(4064)/dV(627) - B(6511) = RCT(4064)*V(5255) -! B(6512) = dA(4064)/dV(5255) - B(6512) = RCT(4064)*V(627) -! B(6513) = dA(4065)/dV(3659) - B(6513) = RCT(4065)*V(5255) -! B(6514) = dA(4065)/dV(5255) - B(6514) = RCT(4065)*V(3659) -! B(6515) = dA(4066)/dV(3659) - B(6515) = RCT(4066)*V(5252) -! B(6516) = dA(4066)/dV(5252) - B(6516) = RCT(4066)*V(3659) -! B(6517) = dA(4067)/dV(3659) - B(6517) = RCT(4067)*V(5256) -! B(6518) = dA(4067)/dV(5256) - B(6518) = RCT(4067)*V(3659) -! B(6519) = dA(4068)/dV(3659) - B(6519) = RCT(4068) -! B(6520) = dA(4069)/dV(3659) - B(6520) = RCT(4069) -! B(6521) = dA(4070)/dV(3650) - B(6521) = RCT(4070)*V(5255) -! B(6522) = dA(4070)/dV(5255) - B(6522) = RCT(4070)*V(3650) -! B(6523) = dA(4071)/dV(3650) - B(6523) = RCT(4071)*V(5252) -! B(6524) = dA(4071)/dV(5252) - B(6524) = RCT(4071)*V(3650) -! B(6525) = dA(4072)/dV(3650) - B(6525) = RCT(4072)*V(5256) -! B(6526) = dA(4072)/dV(5256) - B(6526) = RCT(4072)*V(3650) -! B(6527) = dA(4073)/dV(3650) - B(6527) = RCT(4073) -! B(6528) = dA(4074)/dV(3650) - B(6528) = RCT(4074) -! B(6529) = dA(4075)/dV(1159) - B(6529) = RCT(4075)*V(5250) -! B(6530) = dA(4075)/dV(5250) - B(6530) = RCT(4075)*V(1159) -! B(6531) = dA(4076)/dV(1159) - B(6531) = RCT(4076) -! B(6532) = dA(4077)/dV(1083) - B(6532) = RCT(4077)*V(5250) -! B(6533) = dA(4077)/dV(5250) - B(6533) = RCT(4077)*V(1083) -! B(6534) = dA(4078)/dV(1083) - B(6534) = RCT(4078) -! B(6535) = dA(4079)/dV(3403) - B(6535) = RCT(4079) -! B(6536) = dA(4080)/dV(3403) - B(6536) = RCT(4080) -! B(6537) = dA(4081)/dV(128) - B(6537) = RCT(4081)*V(5250) -! B(6538) = dA(4081)/dV(5250) - B(6538) = RCT(4081)*V(128) -! B(6539) = dA(4082)/dV(796) - B(6539) = RCT(4082)*V(5250) -! B(6540) = dA(4082)/dV(5250) - B(6540) = RCT(4082)*V(796) -! B(6541) = dA(4083)/dV(796) - B(6541) = RCT(4083) -! B(6542) = dA(4084)/dV(4656) - B(6542) = RCT(4084)*V(5255) -! B(6543) = dA(4084)/dV(5255) - B(6543) = RCT(4084)*V(4656) -! B(6544) = dA(4085)/dV(4656) - B(6544) = RCT(4085)*V(5255) -! B(6545) = dA(4085)/dV(5255) - B(6545) = RCT(4085)*V(4656) -! B(6546) = dA(4086)/dV(4656) - B(6546) = RCT(4086)*V(5255) -! B(6547) = dA(4086)/dV(5255) - B(6547) = RCT(4086)*V(4656) -! B(6548) = dA(4087)/dV(4656) - B(6548) = RCT(4087)*V(5252) -! B(6549) = dA(4087)/dV(5252) - B(6549) = RCT(4087)*V(4656) -! B(6550) = dA(4088)/dV(4656) - B(6550) = RCT(4088)*V(5253) -! B(6551) = dA(4088)/dV(5253) - B(6551) = RCT(4088)*V(4656) -! B(6552) = dA(4089)/dV(4656) - B(6552) = RCT(4089)*V(5256) -! B(6553) = dA(4089)/dV(5256) - B(6553) = RCT(4089)*V(4656) -! B(6554) = dA(4090)/dV(4656) - B(6554) = RCT(4090) -! B(6555) = dA(4091)/dV(4656) - B(6555) = RCT(4091) -! B(6556) = dA(4092)/dV(4933) - B(6556) = RCT(4092)*V(5256) -! B(6557) = dA(4092)/dV(5256) - B(6557) = RCT(4092)*V(4933) -! B(6558) = dA(4093)/dV(4933) - B(6558) = RCT(4093)*V(5250) -! B(6559) = dA(4093)/dV(5250) - B(6559) = RCT(4093)*V(4933) -! B(6560) = dA(4094)/dV(4933) - B(6560) = RCT(4094) -! B(6561) = dA(4095)/dV(4933) - B(6561) = RCT(4095) -! B(6562) = dA(4096)/dV(4335) - B(6562) = RCT(4096)*V(5255) -! B(6563) = dA(4096)/dV(5255) - B(6563) = RCT(4096)*V(4335) -! B(6564) = dA(4097)/dV(4335) - B(6564) = RCT(4097)*V(5252) -! B(6565) = dA(4097)/dV(5252) - B(6565) = RCT(4097)*V(4335) -! B(6566) = dA(4098)/dV(4335) - B(6566) = RCT(4098)*V(5252) -! B(6567) = dA(4098)/dV(5252) - B(6567) = RCT(4098)*V(4335) -! B(6568) = dA(4099)/dV(4335) - B(6568) = RCT(4099)*V(5256) -! B(6569) = dA(4099)/dV(5256) - B(6569) = RCT(4099)*V(4335) -! B(6570) = dA(4100)/dV(4335) - B(6570) = RCT(4100) -! B(6571) = dA(4101)/dV(4335) - B(6571) = RCT(4101) -! B(6572) = dA(4102)/dV(4813) - B(6572) = RCT(4102)*V(5255) -! B(6573) = dA(4102)/dV(5255) - B(6573) = RCT(4102)*V(4813) -! B(6574) = dA(4103)/dV(4813) - B(6574) = RCT(4103)*V(5252) -! B(6575) = dA(4103)/dV(5252) - B(6575) = RCT(4103)*V(4813) -! B(6576) = dA(4104)/dV(4813) - B(6576) = RCT(4104)*V(5256) -! B(6577) = dA(4104)/dV(5256) - B(6577) = RCT(4104)*V(4813) -! B(6578) = dA(4105)/dV(4813) - B(6578) = RCT(4105) -! B(6579) = dA(4106)/dV(4813) - B(6579) = RCT(4106) -! B(6580) = dA(4107)/dV(4813) - B(6580) = RCT(4107) -! B(6581) = dA(4108)/dV(328) - B(6581) = RCT(4108)*V(5250) -! B(6582) = dA(4108)/dV(5250) - B(6582) = RCT(4108)*V(328) -! B(6583) = dA(4109)/dV(1240) - B(6583) = RCT(4109) -! B(6584) = dA(4110)/dV(4919) - B(6584) = RCT(4110)*V(5251) -! B(6585) = dA(4110)/dV(5251) - B(6585) = RCT(4110)*V(4919) -! B(6586) = dA(4111)/dV(4919) - B(6586) = RCT(4111)*V(5252) -! B(6587) = dA(4111)/dV(5252) - B(6587) = RCT(4111)*V(4919) -! B(6588) = dA(4112)/dV(4919) - B(6588) = RCT(4112)*V(5253) -! B(6589) = dA(4112)/dV(5253) - B(6589) = RCT(4112)*V(4919) -! B(6590) = dA(4113)/dV(4919) - B(6590) = RCT(4113)*V(5254) -! B(6591) = dA(4113)/dV(5254) - B(6591) = RCT(4113)*V(4919) -! B(6592) = dA(4114)/dV(4919) - B(6592) = RCT(4114) -! B(6593) = dA(4115)/dV(4919) - B(6593) = RCT(4115) -! B(6594) = dA(4116)/dV(1377) - B(6594) = RCT(4116)*V(5250) -! B(6595) = dA(4116)/dV(5250) - B(6595) = RCT(4116)*V(1377) -! B(6596) = dA(4117)/dV(1377) - B(6596) = RCT(4117) -! B(6597) = dA(4118)/dV(3072) - B(6597) = RCT(4118) -! B(6598) = dA(4119)/dV(1095) - B(6598) = RCT(4119)*V(5250) -! B(6599) = dA(4119)/dV(5250) - B(6599) = RCT(4119)*V(1095) -! B(6600) = dA(4120)/dV(1095) - B(6600) = RCT(4120) -! B(6601) = dA(4121)/dV(613) - B(6601) = RCT(4121)*V(5250) -! B(6602) = dA(4121)/dV(5250) - B(6602) = RCT(4121)*V(613) -! B(6603) = dA(4122)/dV(3317) - B(6603) = RCT(4122)*V(5250) -! B(6604) = dA(4122)/dV(5250) - B(6604) = RCT(4122)*V(3317) -! B(6605) = dA(4123)/dV(3317) - B(6605) = RCT(4123) -! B(6606) = dA(4124)/dV(1763) - B(6606) = RCT(4124)*V(5250) -! B(6607) = dA(4124)/dV(5250) - B(6607) = RCT(4124)*V(1763) -! B(6608) = dA(4125)/dV(1763) - B(6608) = RCT(4125) -! B(6609) = dA(4126)/dV(969) - B(6609) = RCT(4126) -! B(6610) = dA(4127)/dV(969) - B(6610) = RCT(4127)*V(5250) -! B(6611) = dA(4127)/dV(5250) - B(6611) = RCT(4127)*V(969) -! B(6612) = dA(4128)/dV(552) - B(6612) = RCT(4128) -! B(6613) = dA(4129)/dV(2222) - B(6613) = RCT(4129)*V(5250) -! B(6614) = dA(4129)/dV(5250) - B(6614) = RCT(4129)*V(2222) -! B(6615) = dA(4130)/dV(3763) - B(6615) = RCT(4130) -! B(6616) = dA(4131)/dV(3763) - B(6616) = RCT(4131)*V(5250) -! B(6617) = dA(4131)/dV(5250) - B(6617) = RCT(4131)*V(3763) -! B(6618) = dA(4132)/dV(1365) - B(6618) = RCT(4132) -! B(6619) = dA(4133)/dV(1365) - B(6619) = RCT(4133)*V(5250) -! B(6620) = dA(4133)/dV(5250) - B(6620) = RCT(4133)*V(1365) -! B(6621) = dA(4134)/dV(2099) - B(6621) = RCT(4134) -! B(6622) = dA(4135)/dV(2099) - B(6622) = RCT(4135)*V(5250) -! B(6623) = dA(4135)/dV(5250) - B(6623) = RCT(4135)*V(2099) -! B(6624) = dA(4136)/dV(2100) - B(6624) = RCT(4136) -! B(6625) = dA(4137)/dV(3102) - B(6625) = RCT(4137) -! B(6626) = dA(4138)/dV(3102) - B(6626) = RCT(4138)*V(5250) -! B(6627) = dA(4138)/dV(5250) - B(6627) = RCT(4138)*V(3102) -! B(6628) = dA(4139)/dV(5050) - B(6628) = RCT(4139) -! B(6629) = dA(4140)/dV(5050) - B(6629) = RCT(4140)*V(5256) -! B(6630) = dA(4140)/dV(5256) - B(6630) = RCT(4140)*V(5050) -! B(6631) = dA(4141)/dV(5050) - B(6631) = RCT(4141)*V(5258) -! B(6632) = dA(4141)/dV(5258) - B(6632) = RCT(4141)*V(5050) -! B(6633) = dA(4142)/dV(5050) - B(6633) = RCT(4142)*V(5258) -! B(6634) = dA(4142)/dV(5258) - B(6634) = RCT(4142)*V(5050) -! B(6635) = dA(4143)/dV(5050) - B(6635) = RCT(4143)*V(5250) -! B(6636) = dA(4143)/dV(5250) - B(6636) = RCT(4143)*V(5050) -! B(6637) = dA(4144)/dV(5050) - B(6637) = RCT(4144)*V(5250) -! B(6638) = dA(4144)/dV(5250) - B(6638) = RCT(4144)*V(5050) -! B(6639) = dA(4145)/dV(4819) - B(6639) = RCT(4145)*V(5251) -! B(6640) = dA(4145)/dV(5251) - B(6640) = RCT(4145)*V(4819) -! B(6641) = dA(4146)/dV(4819) - B(6641) = RCT(4146)*V(5252) -! B(6642) = dA(4146)/dV(5252) - B(6642) = RCT(4146)*V(4819) -! B(6643) = dA(4147)/dV(4819) - B(6643) = RCT(4147)*V(5253) -! B(6644) = dA(4147)/dV(5253) - B(6644) = RCT(4147)*V(4819) -! B(6645) = dA(4148)/dV(4819) - B(6645) = RCT(4148)*V(5254) -! B(6646) = dA(4148)/dV(5254) - B(6646) = RCT(4148)*V(4819) -! B(6647) = dA(4149)/dV(4819) - B(6647) = RCT(4149) -! B(6648) = dA(4150)/dV(4819) - B(6648) = RCT(4150) -! B(6649) = dA(4151)/dV(1352) - B(6649) = RCT(4151) -! B(6650) = dA(4152)/dV(1352) - B(6650) = RCT(4152)*V(5250) -! B(6651) = dA(4152)/dV(5250) - B(6651) = RCT(4152)*V(1352) -! B(6652) = dA(4153)/dV(1971) - B(6652) = RCT(4153) -! B(6653) = dA(4154)/dV(238) - B(6653) = RCT(4154)*V(5250) -! B(6654) = dA(4154)/dV(5250) - B(6654) = RCT(4154)*V(238) -! B(6655) = dA(4155)/dV(5049) - B(6655) = RCT(4155) -! B(6656) = dA(4156)/dV(5049) - B(6656) = RCT(4156) -! B(6657) = dA(4157)/dV(5049) - B(6657) = RCT(4157)*V(5256) -! B(6658) = dA(4157)/dV(5256) - B(6658) = RCT(4157)*V(5049) -! B(6659) = dA(4158)/dV(5049) - B(6659) = RCT(4158)*V(5258) -! B(6660) = dA(4158)/dV(5258) - B(6660) = RCT(4158)*V(5049) -! B(6661) = dA(4159)/dV(5049) - B(6661) = RCT(4159)*V(5258) -! B(6662) = dA(4159)/dV(5258) - B(6662) = RCT(4159)*V(5049) -! B(6663) = dA(4160)/dV(5049) - B(6663) = RCT(4160)*V(5250) -! B(6664) = dA(4160)/dV(5250) - B(6664) = RCT(4160)*V(5049) -! B(6665) = dA(4161)/dV(5049) - B(6665) = RCT(4161)*V(5250) -! B(6666) = dA(4161)/dV(5250) - B(6666) = RCT(4161)*V(5049) -! B(6667) = dA(4162)/dV(841) - B(6667) = RCT(4162) -! B(6668) = dA(4163)/dV(841) - B(6668) = RCT(4163)*V(5250) -! B(6669) = dA(4163)/dV(5250) - B(6669) = RCT(4163)*V(841) -! B(6670) = dA(4164)/dV(1172) - B(6670) = RCT(4164)*V(5250) -! B(6671) = dA(4164)/dV(5250) - B(6671) = RCT(4164)*V(1172) -! B(6672) = dA(4165)/dV(2771) - B(6672) = RCT(4165) -! B(6673) = dA(4166)/dV(1054) - B(6673) = RCT(4166)*V(5250) -! B(6674) = dA(4166)/dV(5250) - B(6674) = RCT(4166)*V(1054) -! B(6675) = dA(4167)/dV(5093) - B(6675) = RCT(4167)*V(5258) -! B(6676) = dA(4167)/dV(5258) - B(6676) = RCT(4167)*V(5093) -! B(6677) = dA(4168)/dV(5093) - B(6677) = RCT(4168)*V(5258) -! B(6678) = dA(4168)/dV(5258) - B(6678) = RCT(4168)*V(5093) -! B(6679) = dA(4169)/dV(5093) - B(6679) = RCT(4169)*V(5250) -! B(6680) = dA(4169)/dV(5250) - B(6680) = RCT(4169)*V(5093) -! B(6681) = dA(4170)/dV(5093) - B(6681) = RCT(4170)*V(5250) -! B(6682) = dA(4170)/dV(5250) - B(6682) = RCT(4170)*V(5093) -! B(6683) = dA(4171)/dV(5093) - B(6683) = RCT(4171) -! B(6684) = dA(4172)/dV(5093) - B(6684) = RCT(4172) -! B(6685) = dA(4173)/dV(1395) - B(6685) = RCT(4173) -! B(6686) = dA(4174)/dV(1395) - B(6686) = RCT(4174)*V(5250) -! B(6687) = dA(4174)/dV(5250) - B(6687) = RCT(4174)*V(1395) -! B(6688) = dA(4175)/dV(2706) - B(6688) = RCT(4175) -! B(6689) = dA(4176)/dV(4373) - B(6689) = RCT(4176) -! B(6690) = dA(4177)/dV(4373) - B(6690) = RCT(4177)*V(5256) -! B(6691) = dA(4177)/dV(5256) - B(6691) = RCT(4177)*V(4373) -! B(6692) = dA(4178)/dV(4373) - B(6692) = RCT(4178)*V(5250) -! B(6693) = dA(4178)/dV(5250) - B(6693) = RCT(4178)*V(4373) -! B(6694) = dA(4179)/dV(1258) - B(6694) = RCT(4179) -! B(6695) = dA(4180)/dV(1258) - B(6695) = RCT(4180)*V(5250) -! B(6696) = dA(4180)/dV(5250) - B(6696) = RCT(4180)*V(1258) -! B(6697) = dA(4181)/dV(2040) - B(6697) = RCT(4181) -! B(6698) = dA(4182)/dV(2040) - B(6698) = RCT(4182)*V(5250) -! B(6699) = dA(4182)/dV(5250) - B(6699) = RCT(4182)*V(2040) -! B(6700) = dA(4183)/dV(2041) - B(6700) = RCT(4183) -! B(6701) = dA(4184)/dV(5168) - B(6701) = RCT(4184) -! B(6702) = dA(4185)/dV(5168) - B(6702) = RCT(4185)*V(5258) -! B(6703) = dA(4185)/dV(5258) - B(6703) = RCT(4185)*V(5168) -! B(6704) = dA(4186)/dV(5168) - B(6704) = RCT(4186)*V(5258) -! B(6705) = dA(4186)/dV(5258) - B(6705) = RCT(4186)*V(5168) -! B(6706) = dA(4187)/dV(5168) - B(6706) = RCT(4187)*V(5250) -! B(6707) = dA(4187)/dV(5250) - B(6707) = RCT(4187)*V(5168) -! B(6708) = dA(4188)/dV(5069) - B(6708) = RCT(4188) -! B(6709) = dA(4189)/dV(5069) - B(6709) = RCT(4189)*V(5256) -! B(6710) = dA(4189)/dV(5256) - B(6710) = RCT(4189)*V(5069) -! B(6711) = dA(4190)/dV(5069) - B(6711) = RCT(4190)*V(5258) -! B(6712) = dA(4190)/dV(5258) - B(6712) = RCT(4190)*V(5069) -! B(6713) = dA(4191)/dV(5069) - B(6713) = RCT(4191)*V(5258) -! B(6714) = dA(4191)/dV(5258) - B(6714) = RCT(4191)*V(5069) -! B(6715) = dA(4192)/dV(5069) - B(6715) = RCT(4192)*V(5250) -! B(6716) = dA(4192)/dV(5250) - B(6716) = RCT(4192)*V(5069) -! B(6717) = dA(4193)/dV(5069) - B(6717) = RCT(4193)*V(5250) -! B(6718) = dA(4193)/dV(5250) - B(6718) = RCT(4193)*V(5069) -! B(6719) = dA(4194)/dV(2479) - B(6719) = RCT(4194) -! B(6720) = dA(4195)/dV(2479) - B(6720) = RCT(4195) -! B(6721) = dA(4196)/dV(2479) - B(6721) = RCT(4196) -! B(6722) = dA(4197)/dV(2479) - B(6722) = RCT(4197) -! B(6723) = dA(4198)/dV(5020) - B(6723) = RCT(4198)*V(5255) -! B(6724) = dA(4198)/dV(5255) - B(6724) = RCT(4198)*V(5020) -! B(6725) = dA(4199)/dV(5020) - B(6725) = RCT(4199)*V(5252) -! B(6726) = dA(4199)/dV(5252) - B(6726) = RCT(4199)*V(5020) -! B(6727) = dA(4200)/dV(5020) - B(6727) = RCT(4200)*V(5252) -! B(6728) = dA(4200)/dV(5252) - B(6728) = RCT(4200)*V(5020) -! B(6729) = dA(4201)/dV(5020) - B(6729) = RCT(4201)*V(5256) -! B(6730) = dA(4201)/dV(5256) - B(6730) = RCT(4201)*V(5020) -! B(6731) = dA(4202)/dV(5020) - B(6731) = RCT(4202) -! B(6732) = dA(4203)/dV(5020) - B(6732) = RCT(4203) -! B(6733) = dA(4204)/dV(5020) - B(6733) = RCT(4204) -! B(6734) = dA(4205)/dV(5016) - B(6734) = RCT(4205)*V(5252) -! B(6735) = dA(4205)/dV(5252) - B(6735) = RCT(4205)*V(5016) -! B(6736) = dA(4206)/dV(5016) - B(6736) = RCT(4206)*V(5255) -! B(6737) = dA(4206)/dV(5255) - B(6737) = RCT(4206)*V(5016) -! B(6738) = dA(4207)/dV(5016) - B(6738) = RCT(4207)*V(5252) -! B(6739) = dA(4207)/dV(5252) - B(6739) = RCT(4207)*V(5016) -! B(6740) = dA(4208)/dV(5016) - B(6740) = RCT(4208)*V(5256) -! B(6741) = dA(4208)/dV(5256) - B(6741) = RCT(4208)*V(5016) -! B(6742) = dA(4209)/dV(5016) - B(6742) = RCT(4209) -! B(6743) = dA(4210)/dV(5016) - B(6743) = RCT(4210) -! B(6744) = dA(4211)/dV(5016) - B(6744) = RCT(4211) -! B(6745) = dA(4212)/dV(4906) - B(6745) = RCT(4212)*V(5251) -! B(6746) = dA(4212)/dV(5251) - B(6746) = RCT(4212)*V(4906) -! B(6747) = dA(4213)/dV(4906) - B(6747) = RCT(4213)*V(5252) -! B(6748) = dA(4213)/dV(5252) - B(6748) = RCT(4213)*V(4906) -! B(6749) = dA(4214)/dV(4906) - B(6749) = RCT(4214)*V(5253) -! B(6750) = dA(4214)/dV(5253) - B(6750) = RCT(4214)*V(4906) -! B(6751) = dA(4215)/dV(4906) - B(6751) = RCT(4215)*V(5254) -! B(6752) = dA(4215)/dV(5254) - B(6752) = RCT(4215)*V(4906) -! B(6753) = dA(4216)/dV(4906) - B(6753) = RCT(4216) -! B(6754) = dA(4217)/dV(4906) - B(6754) = RCT(4217) -! B(6755) = dA(4218)/dV(4286) - B(6755) = RCT(4218)*V(5251) -! B(6756) = dA(4218)/dV(5251) - B(6756) = RCT(4218)*V(4286) -! B(6757) = dA(4219)/dV(4286) - B(6757) = RCT(4219)*V(5252) -! B(6758) = dA(4219)/dV(5252) - B(6758) = RCT(4219)*V(4286) -! B(6759) = dA(4220)/dV(4286) - B(6759) = RCT(4220)*V(5253) -! B(6760) = dA(4220)/dV(5253) - B(6760) = RCT(4220)*V(4286) -! B(6761) = dA(4221)/dV(4286) - B(6761) = RCT(4221)*V(5254) -! B(6762) = dA(4221)/dV(5254) - B(6762) = RCT(4221)*V(4286) -! B(6763) = dA(4222)/dV(4286) - B(6763) = RCT(4222) -! B(6764) = dA(4223)/dV(4774) - B(6764) = RCT(4223)*V(5255) -! B(6765) = dA(4223)/dV(5255) - B(6765) = RCT(4223)*V(4774) -! B(6766) = dA(4224)/dV(4774) - B(6766) = RCT(4224)*V(5252) -! B(6767) = dA(4224)/dV(5252) - B(6767) = RCT(4224)*V(4774) -! B(6768) = dA(4225)/dV(4774) - B(6768) = RCT(4225)*V(5256) -! B(6769) = dA(4225)/dV(5256) - B(6769) = RCT(4225)*V(4774) -! B(6770) = dA(4226)/dV(4774) - B(6770) = RCT(4226) -! B(6771) = dA(4227)/dV(4774) - B(6771) = RCT(4227) -! B(6772) = dA(4228)/dV(4774) - B(6772) = RCT(4228) -! B(6773) = dA(4229)/dV(5217) - B(6773) = RCT(4229)*V(5255) -! B(6774) = dA(4229)/dV(5255) - B(6774) = RCT(4229)*V(5217) -! B(6775) = dA(4230)/dV(5217) - B(6775) = RCT(4230)*V(5252) -! B(6776) = dA(4230)/dV(5252) - B(6776) = RCT(4230)*V(5217) -! B(6777) = dA(4231)/dV(5217) - B(6777) = RCT(4231)*V(5252) -! B(6778) = dA(4231)/dV(5252) - B(6778) = RCT(4231)*V(5217) -! B(6779) = dA(4232)/dV(5217) - B(6779) = RCT(4232)*V(5256) -! B(6780) = dA(4232)/dV(5256) - B(6780) = RCT(4232)*V(5217) -! B(6781) = dA(4233)/dV(5217) - B(6781) = RCT(4233) -! B(6782) = dA(4234)/dV(5217) - B(6782) = RCT(4234) -! B(6783) = dA(4235)/dV(5217) - B(6783) = RCT(4235) -! B(6784) = dA(4236)/dV(5217) - B(6784) = RCT(4236) -! B(6785) = dA(4237)/dV(5217) - B(6785) = RCT(4237) -! B(6786) = dA(4238)/dV(5217) - B(6786) = RCT(4238) -! B(6787) = dA(4239)/dV(5219) - B(6787) = RCT(4239)*V(5255) -! B(6788) = dA(4239)/dV(5255) - B(6788) = RCT(4239)*V(5219) -! B(6789) = dA(4240)/dV(5219) - B(6789) = RCT(4240)*V(5252) -! B(6790) = dA(4240)/dV(5252) - B(6790) = RCT(4240)*V(5219) -! B(6791) = dA(4241)/dV(5219) - B(6791) = RCT(4241)*V(5252) -! B(6792) = dA(4241)/dV(5252) - B(6792) = RCT(4241)*V(5219) -! B(6793) = dA(4242)/dV(5219) - B(6793) = RCT(4242)*V(5256) -! B(6794) = dA(4242)/dV(5256) - B(6794) = RCT(4242)*V(5219) -! B(6795) = dA(4243)/dV(5219) - B(6795) = RCT(4243) -! B(6796) = dA(4244)/dV(5219) - B(6796) = RCT(4244) -! B(6797) = dA(4245)/dV(5219) - B(6797) = RCT(4245) -! B(6798) = dA(4246)/dV(5219) - B(6798) = RCT(4246) -! B(6799) = dA(4247)/dV(5219) - B(6799) = RCT(4247) -! B(6800) = dA(4248)/dV(5204) - B(6800) = RCT(4248)*V(5255) -! B(6801) = dA(4248)/dV(5255) - B(6801) = RCT(4248)*V(5204) -! B(6802) = dA(4249)/dV(5204) - B(6802) = RCT(4249)*V(5252) -! B(6803) = dA(4249)/dV(5252) - B(6803) = RCT(4249)*V(5204) -! B(6804) = dA(4250)/dV(5204) - B(6804) = RCT(4250)*V(5252) -! B(6805) = dA(4250)/dV(5252) - B(6805) = RCT(4250)*V(5204) -! B(6806) = dA(4251)/dV(5204) - B(6806) = RCT(4251)*V(5256) -! B(6807) = dA(4251)/dV(5256) - B(6807) = RCT(4251)*V(5204) -! B(6808) = dA(4252)/dV(5204) - B(6808) = RCT(4252) -! B(6809) = dA(4253)/dV(5204) - B(6809) = RCT(4253) -! B(6810) = dA(4254)/dV(5204) - B(6810) = RCT(4254) -! B(6811) = dA(4255)/dV(5204) - B(6811) = RCT(4255) -! B(6812) = dA(4256)/dV(5204) - B(6812) = RCT(4256) -! B(6813) = dA(4257)/dV(5204) - B(6813) = RCT(4257) -! B(6814) = dA(4258)/dV(5224) - B(6814) = RCT(4258)*V(5255) -! B(6815) = dA(4258)/dV(5255) - B(6815) = RCT(4258)*V(5224) -! B(6816) = dA(4259)/dV(5224) - B(6816) = RCT(4259)*V(5252) -! B(6817) = dA(4259)/dV(5252) - B(6817) = RCT(4259)*V(5224) -! B(6818) = dA(4260)/dV(5224) - B(6818) = RCT(4260)*V(5252) -! B(6819) = dA(4260)/dV(5252) - B(6819) = RCT(4260)*V(5224) -! B(6820) = dA(4261)/dV(5224) - B(6820) = RCT(4261)*V(5256) -! B(6821) = dA(4261)/dV(5256) - B(6821) = RCT(4261)*V(5224) -! B(6822) = dA(4262)/dV(5224) - B(6822) = RCT(4262) -! B(6823) = dA(4263)/dV(5224) - B(6823) = RCT(4263) -! B(6824) = dA(4264)/dV(5224) - B(6824) = RCT(4264) -! B(6825) = dA(4265)/dV(5224) - B(6825) = RCT(4265) -! B(6826) = dA(4266)/dV(5224) - B(6826) = RCT(4266) -! B(6827) = dA(4267)/dV(5224) - B(6827) = RCT(4267) -! B(6828) = dA(4268)/dV(968) - B(6828) = RCT(4268)*V(5250) -! B(6829) = dA(4268)/dV(5250) - B(6829) = RCT(4268)*V(968) -! B(6830) = dA(4269)/dV(968) - B(6830) = RCT(4269) -! B(6831) = dA(4270)/dV(4096) - B(6831) = RCT(4270)*V(5250) -! B(6832) = dA(4270)/dV(5250) - B(6832) = RCT(4270)*V(4096) -! B(6833) = dA(4271)/dV(4096) - B(6833) = RCT(4271)*V(5258) -! B(6834) = dA(4271)/dV(5258) - B(6834) = RCT(4271)*V(4096) -! B(6835) = dA(4272)/dV(4096) - B(6835) = RCT(4272)*V(5258) -! B(6836) = dA(4272)/dV(5258) - B(6836) = RCT(4272)*V(4096) -! B(6837) = dA(4273)/dV(2623) - B(6837) = RCT(4273) -! B(6838) = dA(4274)/dV(3228) - B(6838) = RCT(4274)*V(5250) -! B(6839) = dA(4274)/dV(5250) - B(6839) = RCT(4274)*V(3228) -! B(6840) = dA(4275)/dV(3228) - B(6840) = RCT(4275)*V(5250) -! B(6841) = dA(4275)/dV(5250) - B(6841) = RCT(4275)*V(3228) -! B(6842) = dA(4276)/dV(3228) - B(6842) = RCT(4276) -! B(6843) = dA(4277)/dV(1280) - B(6843) = RCT(4277)*V(5250) -! B(6844) = dA(4277)/dV(5250) - B(6844) = RCT(4277)*V(1280) -! B(6845) = dA(4278)/dV(4337) - B(6845) = RCT(4278)*V(5255) -! B(6846) = dA(4278)/dV(5255) - B(6846) = RCT(4278)*V(4337) -! B(6847) = dA(4279)/dV(4337) - B(6847) = RCT(4279)*V(5252) -! B(6848) = dA(4279)/dV(5252) - B(6848) = RCT(4279)*V(4337) -! B(6849) = dA(4280)/dV(4337) - B(6849) = RCT(4280)*V(5256) -! B(6850) = dA(4280)/dV(5256) - B(6850) = RCT(4280)*V(4337) -! B(6851) = dA(4281)/dV(4337) - B(6851) = RCT(4281) -! B(6852) = dA(4282)/dV(514) - B(6852) = RCT(4282) -! B(6853) = dA(4283)/dV(514) - B(6853) = RCT(4283) -! B(6854) = dA(4284)/dV(3980) - B(6854) = RCT(4284)*V(5255) -! B(6855) = dA(4284)/dV(5255) - B(6855) = RCT(4284)*V(3980) -! B(6856) = dA(4285)/dV(3980) - B(6856) = RCT(4285)*V(5252) -! B(6857) = dA(4285)/dV(5252) - B(6857) = RCT(4285)*V(3980) -! B(6858) = dA(4286)/dV(3980) - B(6858) = RCT(4286)*V(5252) -! B(6859) = dA(4286)/dV(5252) - B(6859) = RCT(4286)*V(3980) -! B(6860) = dA(4287)/dV(3980) - B(6860) = RCT(4287)*V(5256) -! B(6861) = dA(4287)/dV(5256) - B(6861) = RCT(4287)*V(3980) -! B(6862) = dA(4288)/dV(3980) - B(6862) = RCT(4288) -! B(6863) = dA(4289)/dV(4255) - B(6863) = RCT(4289)*V(5255) -! B(6864) = dA(4289)/dV(5255) - B(6864) = RCT(4289)*V(4255) -! B(6865) = dA(4290)/dV(4255) - B(6865) = RCT(4290)*V(5255) -! B(6866) = dA(4290)/dV(5255) - B(6866) = RCT(4290)*V(4255) -! B(6867) = dA(4291)/dV(4255) - B(6867) = RCT(4291)*V(5252) -! B(6868) = dA(4291)/dV(5252) - B(6868) = RCT(4291)*V(4255) -! B(6869) = dA(4292)/dV(4255) - B(6869) = RCT(4292)*V(5253) -! B(6870) = dA(4292)/dV(5253) - B(6870) = RCT(4292)*V(4255) -! B(6871) = dA(4293)/dV(4255) - B(6871) = RCT(4293)*V(5256) -! B(6872) = dA(4293)/dV(5256) - B(6872) = RCT(4293)*V(4255) -! B(6873) = dA(4294)/dV(4255) - B(6873) = RCT(4294) -! B(6874) = dA(4295)/dV(4087) - B(6874) = RCT(4295)*V(5255) -! B(6875) = dA(4295)/dV(5255) - B(6875) = RCT(4295)*V(4087) -! B(6876) = dA(4296)/dV(4087) - B(6876) = RCT(4296)*V(5252) -! B(6877) = dA(4296)/dV(5252) - B(6877) = RCT(4296)*V(4087) -! B(6878) = dA(4297)/dV(4087) - B(6878) = RCT(4297)*V(5252) -! B(6879) = dA(4297)/dV(5252) - B(6879) = RCT(4297)*V(4087) -! B(6880) = dA(4298)/dV(4087) - B(6880) = RCT(4298)*V(5256) -! B(6881) = dA(4298)/dV(5256) - B(6881) = RCT(4298)*V(4087) -! B(6882) = dA(4299)/dV(4087) - B(6882) = RCT(4299) -! B(6883) = dA(4300)/dV(3865) - B(6883) = RCT(4300)*V(5255) -! B(6884) = dA(4300)/dV(5255) - B(6884) = RCT(4300)*V(3865) -! B(6885) = dA(4301)/dV(3865) - B(6885) = RCT(4301)*V(5252) -! B(6886) = dA(4301)/dV(5252) - B(6886) = RCT(4301)*V(3865) -! B(6887) = dA(4302)/dV(3865) - B(6887) = RCT(4302)*V(5256) -! B(6888) = dA(4302)/dV(5256) - B(6888) = RCT(4302)*V(3865) -! B(6889) = dA(4303)/dV(3865) - B(6889) = RCT(4303) -! B(6890) = dA(4304)/dV(2425) - B(6890) = RCT(4304) -! B(6891) = dA(4305)/dV(2425) - B(6891) = RCT(4305) -! B(6892) = dA(4306)/dV(2425) - B(6892) = RCT(4306) -! B(6893) = dA(4307)/dV(2425) - B(6893) = RCT(4307) -! B(6894) = dA(4308)/dV(5127) - B(6894) = RCT(4308)*V(5255) -! B(6895) = dA(4308)/dV(5255) - B(6895) = RCT(4308)*V(5127) -! B(6896) = dA(4309)/dV(5127) - B(6896) = RCT(4309)*V(5252) -! B(6897) = dA(4309)/dV(5252) - B(6897) = RCT(4309)*V(5127) -! B(6898) = dA(4310)/dV(5127) - B(6898) = RCT(4310)*V(5252) -! B(6899) = dA(4310)/dV(5252) - B(6899) = RCT(4310)*V(5127) -! B(6900) = dA(4311)/dV(5127) - B(6900) = RCT(4311)*V(5256) -! B(6901) = dA(4311)/dV(5256) - B(6901) = RCT(4311)*V(5127) -! B(6902) = dA(4312)/dV(5127) - B(6902) = RCT(4312) -! B(6903) = dA(4313)/dV(5127) - B(6903) = RCT(4313) -! B(6904) = dA(4314)/dV(5127) - B(6904) = RCT(4314) -! B(6905) = dA(4315)/dV(3496) - B(6905) = RCT(4315)*V(5255) -! B(6906) = dA(4315)/dV(5255) - B(6906) = RCT(4315)*V(3496) -! B(6907) = dA(4316)/dV(3496) - B(6907) = RCT(4316)*V(5252) -! B(6908) = dA(4316)/dV(5252) - B(6908) = RCT(4316)*V(3496) -! B(6909) = dA(4317)/dV(3496) - B(6909) = RCT(4317)*V(5252) -! B(6910) = dA(4317)/dV(5252) - B(6910) = RCT(4317)*V(3496) -! B(6911) = dA(4318)/dV(3496) - B(6911) = RCT(4318)*V(5256) -! B(6912) = dA(4318)/dV(5256) - B(6912) = RCT(4318)*V(3496) -! B(6913) = dA(4319)/dV(3496) - B(6913) = RCT(4319) -! B(6914) = dA(4320)/dV(3496) - B(6914) = RCT(4320) -! B(6915) = dA(4321)/dV(3496) - B(6915) = RCT(4321) -! B(6916) = dA(4322)/dV(5218) - B(6916) = RCT(4322)*V(5255) -! B(6917) = dA(4322)/dV(5255) - B(6917) = RCT(4322)*V(5218) -! B(6918) = dA(4323)/dV(5218) - B(6918) = RCT(4323)*V(5252) -! B(6919) = dA(4323)/dV(5252) - B(6919) = RCT(4323)*V(5218) -! B(6920) = dA(4324)/dV(5218) - B(6920) = RCT(4324)*V(5252) -! B(6921) = dA(4324)/dV(5252) - B(6921) = RCT(4324)*V(5218) -! B(6922) = dA(4325)/dV(5218) - B(6922) = RCT(4325)*V(5256) -! B(6923) = dA(4325)/dV(5256) - B(6923) = RCT(4325)*V(5218) -! B(6924) = dA(4326)/dV(5218) - B(6924) = RCT(4326) -! B(6925) = dA(4327)/dV(5218) - B(6925) = RCT(4327) -! B(6926) = dA(4328)/dV(5218) - B(6926) = RCT(4328) -! B(6927) = dA(4329)/dV(5218) - B(6927) = RCT(4329) -! B(6928) = dA(4330)/dV(5118) - B(6928) = RCT(4330)*V(5255) -! B(6929) = dA(4330)/dV(5255) - B(6929) = RCT(4330)*V(5118) -! B(6930) = dA(4331)/dV(5118) - B(6930) = RCT(4331)*V(5252) -! B(6931) = dA(4331)/dV(5252) - B(6931) = RCT(4331)*V(5118) -! B(6932) = dA(4332)/dV(5118) - B(6932) = RCT(4332)*V(5252) -! B(6933) = dA(4332)/dV(5252) - B(6933) = RCT(4332)*V(5118) -! B(6934) = dA(4333)/dV(5118) - B(6934) = RCT(4333)*V(5256) -! B(6935) = dA(4333)/dV(5256) - B(6935) = RCT(4333)*V(5118) -! B(6936) = dA(4334)/dV(5118) - B(6936) = RCT(4334) -! B(6937) = dA(4335)/dV(5118) - B(6937) = RCT(4335) -! B(6938) = dA(4336)/dV(5118) - B(6938) = RCT(4336) -! B(6939) = dA(4337)/dV(5118) - B(6939) = RCT(4337) -! B(6940) = dA(4338)/dV(1239) - B(6940) = RCT(4338)*V(5250) -! B(6941) = dA(4338)/dV(5250) - B(6941) = RCT(4338)*V(1239) -! B(6942) = dA(4339)/dV(1239) - B(6942) = RCT(4339) -! B(6943) = dA(4340)/dV(2574) - B(6943) = RCT(4340)*V(5250) -! B(6944) = dA(4340)/dV(5250) - B(6944) = RCT(4340)*V(2574) -! B(6945) = dA(4341)/dV(2574) - B(6945) = RCT(4341)*V(5250) -! B(6946) = dA(4341)/dV(5250) - B(6946) = RCT(4341)*V(2574) -! B(6947) = dA(4342)/dV(1922) - B(6947) = RCT(4342)*V(5250) -! B(6948) = dA(4342)/dV(5250) - B(6948) = RCT(4342)*V(1922) -! B(6949) = dA(4343)/dV(1922) - B(6949) = RCT(4343) -! B(6950) = dA(4344)/dV(1923) - B(6950) = RCT(4344) -! B(6951) = dA(4345)/dV(307) - B(6951) = RCT(4345)*V(5250) -! B(6952) = dA(4345)/dV(5250) - B(6952) = RCT(4345)*V(307) -! B(6953) = dA(4346)/dV(1143) - B(6953) = RCT(4346)*V(5250) -! B(6954) = dA(4346)/dV(5250) - B(6954) = RCT(4346)*V(1143) -! B(6955) = dA(4347)/dV(1143) - B(6955) = RCT(4347) -! B(6956) = dA(4348)/dV(3156) - B(6956) = RCT(4348)*V(5250) -! B(6957) = dA(4348)/dV(5250) - B(6957) = RCT(4348)*V(3156) -! B(6958) = dA(4349)/dV(3156) - B(6958) = RCT(4349)*V(5250) -! B(6959) = dA(4349)/dV(5250) - B(6959) = RCT(4349)*V(3156) -! B(6960) = dA(4350)/dV(3156) - B(6960) = RCT(4350)*V(5250) -! B(6961) = dA(4350)/dV(5250) - B(6961) = RCT(4350)*V(3156) -! B(6962) = dA(4351)/dV(2075) - B(6962) = RCT(4351)*V(5250) -! B(6963) = dA(4351)/dV(5250) - B(6963) = RCT(4351)*V(2075) -! B(6964) = dA(4352)/dV(2075) - B(6964) = RCT(4352) -! B(6965) = dA(4353)/dV(2076) - B(6965) = RCT(4353) -! B(6966) = dA(4354)/dV(417) - B(6966) = RCT(4354)*V(5250) -! B(6967) = dA(4354)/dV(5250) - B(6967) = RCT(4354)*V(417) -! B(6968) = dA(4355)/dV(1305) - B(6968) = RCT(4355)*V(5250) -! B(6969) = dA(4355)/dV(5250) - B(6969) = RCT(4355)*V(1305) -! B(6970) = dA(4356)/dV(1305) - B(6970) = RCT(4356) -! B(6971) = dA(4357)/dV(2817) - B(6971) = RCT(4357)*V(5250) -! B(6972) = dA(4357)/dV(5250) - B(6972) = RCT(4357)*V(2817) -! B(6973) = dA(4358)/dV(2817) - B(6973) = RCT(4358) -! B(6974) = dA(4359)/dV(1867) - B(6974) = RCT(4359) -! B(6975) = dA(4360)/dV(3472) - B(6975) = RCT(4360)*V(5256) -! B(6976) = dA(4360)/dV(5256) - B(6976) = RCT(4360)*V(3472) -! B(6977) = dA(4361)/dV(3472) - B(6977) = RCT(4361)*V(5256) -! B(6978) = dA(4361)/dV(5256) - B(6978) = RCT(4361)*V(3472) -! B(6979) = dA(4362)/dV(3472) - B(6979) = RCT(4362)*V(5250) -! B(6980) = dA(4362)/dV(5250) - B(6980) = RCT(4362)*V(3472) -! B(6981) = dA(4363)/dV(3472) - B(6981) = RCT(4363)*V(5250) -! B(6982) = dA(4363)/dV(5250) - B(6982) = RCT(4363)*V(3472) -! B(6983) = dA(4364)/dV(3472) - B(6983) = RCT(4364)*V(5250) -! B(6984) = dA(4364)/dV(5250) - B(6984) = RCT(4364)*V(3472) -! B(6985) = dA(4365)/dV(3900) - B(6985) = RCT(4365)*V(5256) -! B(6986) = dA(4365)/dV(5256) - B(6986) = RCT(4365)*V(3900) -! B(6987) = dA(4366)/dV(3900) - B(6987) = RCT(4366)*V(5250) -! B(6988) = dA(4366)/dV(5250) - B(6988) = RCT(4366)*V(3900) -! B(6989) = dA(4367)/dV(3900) - B(6989) = RCT(4367) -! B(6990) = dA(4368)/dV(2326) - B(6990) = RCT(4368) -! B(6991) = dA(4369)/dV(4383) - B(6991) = RCT(4369)*V(5250) -! B(6992) = dA(4369)/dV(5250) - B(6992) = RCT(4369)*V(4383) -! B(6993) = dA(4370)/dV(4383) - B(6993) = RCT(4370)*V(5250) -! B(6994) = dA(4370)/dV(5250) - B(6994) = RCT(4370)*V(4383) -! B(6995) = dA(4371)/dV(4383) - B(6995) = RCT(4371) -! B(6996) = dA(4372)/dV(4383) - B(6996) = RCT(4372) -! B(6997) = dA(4373)/dV(2070) - B(6997) = RCT(4373)*V(5250) -! B(6998) = dA(4373)/dV(5250) - B(6998) = RCT(4373)*V(2070) -! B(6999) = dA(4374)/dV(2070) - B(6999) = RCT(4374)*V(5250) -! B(7000) = dA(4374)/dV(5250) - B(7000) = RCT(4374)*V(2070) -! B(7001) = dA(4375)/dV(2070) - B(7001) = RCT(4375) -! B(7002) = dA(4376)/dV(1895) - B(7002) = RCT(4376)*V(5250) -! B(7003) = dA(4376)/dV(5250) - B(7003) = RCT(4376)*V(1895) -! B(7004) = dA(4377)/dV(1895) - B(7004) = RCT(4377) -! B(7005) = dA(4378)/dV(2539) - B(7005) = RCT(4378) -! B(7006) = dA(4379)/dV(2539) - B(7006) = RCT(4379) -! B(7007) = dA(4380)/dV(2715) - B(7007) = RCT(4380)*V(5250) -! B(7008) = dA(4380)/dV(5250) - B(7008) = RCT(4380)*V(2715) -! B(7009) = dA(4381)/dV(2715) - B(7009) = RCT(4381)*V(5250) -! B(7010) = dA(4381)/dV(5250) - B(7010) = RCT(4381)*V(2715) -! B(7011) = dA(4382)/dV(2715) - B(7011) = RCT(4382) -! B(7012) = dA(4383)/dV(2715) - B(7012) = RCT(4383) -! B(7013) = dA(4384)/dV(1592) - B(7013) = RCT(4384) -! B(7014) = dA(4385)/dV(4938) - B(7014) = RCT(4385) -! B(7015) = dA(4386)/dV(4938) - B(7015) = RCT(4386)*V(5250) -! B(7016) = dA(4386)/dV(5250) - B(7016) = RCT(4386)*V(4938) -! B(7017) = dA(4387)/dV(2774) - B(7017) = RCT(4387)*V(5250) -! B(7018) = dA(4387)/dV(5250) - B(7018) = RCT(4387)*V(2774) -! B(7019) = dA(4388)/dV(2774) - B(7019) = RCT(4388)*V(5250) -! B(7020) = dA(4388)/dV(5250) - B(7020) = RCT(4388)*V(2774) -! B(7021) = dA(4389)/dV(2774) - B(7021) = RCT(4389) -! B(7022) = dA(4390)/dV(2774) - B(7022) = RCT(4390) -! B(7023) = dA(4391)/dV(1574) - B(7023) = RCT(4391) -! B(7024) = dA(4392)/dV(5139) - B(7024) = RCT(4392) -! B(7025) = dA(4393)/dV(5139) - B(7025) = RCT(4393)*V(5256) -! B(7026) = dA(4393)/dV(5256) - B(7026) = RCT(4393)*V(5139) -! B(7027) = dA(4394)/dV(5139) - B(7027) = RCT(4394)*V(5250) -! B(7028) = dA(4394)/dV(5250) - B(7028) = RCT(4394)*V(5139) -! B(7029) = dA(4395)/dV(3222) - B(7029) = RCT(4395)*V(5250) -! B(7030) = dA(4395)/dV(5250) - B(7030) = RCT(4395)*V(3222) -! B(7031) = dA(4396)/dV(3222) - B(7031) = RCT(4396)*V(5250) -! B(7032) = dA(4396)/dV(5250) - B(7032) = RCT(4396)*V(3222) -! B(7033) = dA(4397)/dV(3222) - B(7033) = RCT(4397) -! B(7034) = dA(4398)/dV(3222) - B(7034) = RCT(4398) -! B(7035) = dA(4399)/dV(179) - B(7035) = RCT(4399) -! B(7036) = dA(4400)/dV(2365) - B(7036) = RCT(4400)*V(5250) -! B(7037) = dA(4400)/dV(5250) - B(7037) = RCT(4400)*V(2365) -! B(7038) = dA(4401)/dV(2365) - B(7038) = RCT(4401) -! B(7039) = dA(4402)/dV(4801) - B(7039) = RCT(4402)*V(5250) -! B(7040) = dA(4402)/dV(5250) - B(7040) = RCT(4402)*V(4801) -! B(7041) = dA(4403)/dV(4801) - B(7041) = RCT(4403) -! B(7042) = dA(4404)/dV(4391) - B(7042) = RCT(4404)*V(5250) -! B(7043) = dA(4404)/dV(5250) - B(7043) = RCT(4404)*V(4391) -! B(7044) = dA(4405)/dV(4391) - B(7044) = RCT(4405) -! B(7045) = dA(4406)/dV(3035) - B(7045) = RCT(4406)*V(5250) -! B(7046) = dA(4406)/dV(5250) - B(7046) = RCT(4406)*V(3035) -! B(7047) = dA(4407)/dV(3035) - B(7047) = RCT(4407)*V(5250) -! B(7048) = dA(4407)/dV(5250) - B(7048) = RCT(4407)*V(3035) -! B(7049) = dA(4408)/dV(3035) - B(7049) = RCT(4408) -! B(7050) = dA(4409)/dV(3035) - B(7050) = RCT(4409) -! B(7051) = dA(4410)/dV(1595) - B(7051) = RCT(4410) -! B(7052) = dA(4411)/dV(4618) - B(7052) = RCT(4411)*V(5250) -! B(7053) = dA(4411)/dV(5250) - B(7053) = RCT(4411)*V(4618) -! B(7054) = dA(4412)/dV(4618) - B(7054) = RCT(4412) -! B(7055) = dA(4413)/dV(2893) - B(7055) = RCT(4413)*V(5250) -! B(7056) = dA(4413)/dV(5250) - B(7056) = RCT(4413)*V(2893) -! B(7057) = dA(4414)/dV(2893) - B(7057) = RCT(4414)*V(5250) -! B(7058) = dA(4414)/dV(5250) - B(7058) = RCT(4414)*V(2893) -! B(7059) = dA(4415)/dV(2893) - B(7059) = RCT(4415) -! B(7060) = dA(4416)/dV(2893) - B(7060) = RCT(4416) -! B(7061) = dA(4417)/dV(1638) - B(7061) = RCT(4417) -! B(7062) = dA(4418)/dV(2400) - B(7062) = RCT(4418)*V(5250) -! B(7063) = dA(4418)/dV(5250) - B(7063) = RCT(4418)*V(2400) -! B(7064) = dA(4419)/dV(2400) - B(7064) = RCT(4419)*V(5250) -! B(7065) = dA(4419)/dV(5250) - B(7065) = RCT(4419)*V(2400) -! B(7066) = dA(4420)/dV(2400) - B(7066) = RCT(4420) -! B(7067) = dA(4421)/dV(2083) - B(7067) = RCT(4421)*V(5250) -! B(7068) = dA(4421)/dV(5250) - B(7068) = RCT(4421)*V(2083) -! B(7069) = dA(4422)/dV(2083) - B(7069) = RCT(4422) -! B(7070) = dA(4423)/dV(175) - B(7070) = RCT(4423) -! B(7071) = dA(4424)/dV(2665) - B(7071) = RCT(4424)*V(5250) -! B(7072) = dA(4424)/dV(5250) - B(7072) = RCT(4424)*V(2665) -! B(7073) = dA(4425)/dV(2665) - B(7073) = RCT(4425) -! B(7074) = dA(4426)/dV(1983) - B(7074) = RCT(4426) -! B(7075) = dA(4427)/dV(1983) - B(7075) = RCT(4427)*V(5250) -! B(7076) = dA(4427)/dV(5250) - B(7076) = RCT(4427)*V(1983) -! B(7077) = dA(4428)/dV(3104) - B(7077) = RCT(4428) -! B(7078) = dA(4429)/dV(1132) - B(7078) = RCT(4429) -! B(7079) = dA(4430)/dV(1132) - B(7079) = RCT(4430)*V(5250) -! B(7080) = dA(4430)/dV(5250) - B(7080) = RCT(4430)*V(1132) -! B(7081) = dA(4431)/dV(2092) - B(7081) = RCT(4431) -! B(7082) = dA(4432)/dV(2092) - B(7082) = RCT(4432)*V(5250) -! B(7083) = dA(4432)/dV(5250) - B(7083) = RCT(4432)*V(2092) -! B(7084) = dA(4433)/dV(2614) - B(7084) = RCT(4433) -! B(7085) = dA(4434)/dV(2614) - B(7085) = RCT(4434) -! B(7086) = dA(4435)/dV(5026) - B(7086) = RCT(4435) -! B(7087) = dA(4436)/dV(5026) - B(7087) = RCT(4436)*V(5256) -! B(7088) = dA(4436)/dV(5256) - B(7088) = RCT(4436)*V(5026) -! B(7089) = dA(4437)/dV(5026) - B(7089) = RCT(4437)*V(5250) -! B(7090) = dA(4437)/dV(5250) - B(7090) = RCT(4437)*V(5026) -! B(7091) = dA(4438)/dV(2269) - B(7091) = RCT(4438)*V(5250) -! B(7092) = dA(4438)/dV(5250) - B(7092) = RCT(4438)*V(2269) -! B(7093) = dA(4439)/dV(2269) - B(7093) = RCT(4439)*V(5250) -! B(7094) = dA(4439)/dV(5250) - B(7094) = RCT(4439)*V(2269) -! B(7095) = dA(4440)/dV(2269) - B(7095) = RCT(4440) -! B(7096) = dA(4441)/dV(1841) - B(7096) = RCT(4441)*V(5250) -! B(7097) = dA(4441)/dV(5250) - B(7097) = RCT(4441)*V(1841) -! B(7098) = dA(4442)/dV(1841) - B(7098) = RCT(4442) -! B(7099) = dA(4443)/dV(185) - B(7099) = RCT(4443) -! B(7100) = dA(4444)/dV(5157) - B(7100) = RCT(4444)*V(5250) -! B(7101) = dA(4444)/dV(5250) - B(7101) = RCT(4444)*V(5157) -! B(7102) = dA(4445)/dV(5157) - B(7102) = RCT(4445) -! B(7103) = dA(4446)/dV(5157) - B(7103) = RCT(4446) -! B(7104) = dA(4447)/dV(1719) - B(7104) = RCT(4447)*V(5250) -! B(7105) = dA(4447)/dV(5250) - B(7105) = RCT(4447)*V(1719) -! B(7106) = dA(4448)/dV(1719) - B(7106) = RCT(4448) -! B(7107) = dA(4449)/dV(1876) - B(7107) = RCT(4449)*V(5250) -! B(7108) = dA(4449)/dV(5250) - B(7108) = RCT(4449)*V(1876) -! B(7109) = dA(4450)/dV(1876) - B(7109) = RCT(4450)*V(5250) -! B(7110) = dA(4450)/dV(5250) - B(7110) = RCT(4450)*V(1876) -! B(7111) = dA(4451)/dV(1876) - B(7111) = RCT(4451) -! B(7112) = dA(4452)/dV(1904) - B(7112) = RCT(4452)*V(5250) -! B(7113) = dA(4452)/dV(5250) - B(7113) = RCT(4452)*V(1904) -! B(7114) = dA(4453)/dV(1904) - B(7114) = RCT(4453) -! B(7115) = dA(4454)/dV(3367) - B(7115) = RCT(4454) -! B(7116) = dA(4455)/dV(3367) - B(7116) = RCT(4455) -! B(7117) = dA(4456)/dV(3530) - B(7117) = RCT(4456) -! B(7118) = dA(4457)/dV(3530) - B(7118) = RCT(4457)*V(5250) -! B(7119) = dA(4457)/dV(5250) - B(7119) = RCT(4457)*V(3530) -! B(7120) = dA(4458)/dV(4300) - B(7120) = RCT(4458) -! B(7121) = dA(4459)/dV(4300) - B(7121) = RCT(4459)*V(5250) -! B(7122) = dA(4459)/dV(5250) - B(7122) = RCT(4459)*V(4300) -! B(7123) = dA(4460)/dV(4300) - B(7123) = RCT(4460)*V(5250) -! B(7124) = dA(4460)/dV(5250) - B(7124) = RCT(4460)*V(4300) -! B(7125) = dA(4461)/dV(2878) - B(7125) = RCT(4461)*V(5250) -! B(7126) = dA(4461)/dV(5250) - B(7126) = RCT(4461)*V(2878) -! B(7127) = dA(4462)/dV(2878) - B(7127) = RCT(4462)*V(5250) -! B(7128) = dA(4462)/dV(5250) - B(7128) = RCT(4462)*V(2878) -! B(7129) = dA(4463)/dV(2878) - B(7129) = RCT(4463) -! B(7130) = dA(4464)/dV(2878) - B(7130) = RCT(4464) -! B(7131) = dA(4465)/dV(1699) - B(7131) = RCT(4465) -! B(7132) = dA(4466)/dV(3498) - B(7132) = RCT(4466)*V(5250) -! B(7133) = dA(4466)/dV(5250) - B(7133) = RCT(4466)*V(3498) -! B(7134) = dA(4467)/dV(3498) - B(7134) = RCT(4467) -! B(7135) = dA(4468)/dV(3288) - B(7135) = RCT(4468)*V(5250) -! B(7136) = dA(4468)/dV(5250) - B(7136) = RCT(4468)*V(3288) -! B(7137) = dA(4469)/dV(3288) - B(7137) = RCT(4469)*V(5250) -! B(7138) = dA(4469)/dV(5250) - B(7138) = RCT(4469)*V(3288) -! B(7139) = dA(4470)/dV(3288) - B(7139) = RCT(4470) -! B(7140) = dA(4471)/dV(3288) - B(7140) = RCT(4471) -! B(7141) = dA(4472)/dV(1954) - B(7141) = RCT(4472)*V(5250) -! B(7142) = dA(4472)/dV(5250) - B(7142) = RCT(4472)*V(1954) -! B(7143) = dA(4473)/dV(1954) - B(7143) = RCT(4473) -! B(7144) = dA(4474)/dV(150) - B(7144) = RCT(4474) -! B(7145) = dA(4475)/dV(1704) - B(7145) = RCT(4475)*V(5250) -! B(7146) = dA(4475)/dV(5250) - B(7146) = RCT(4475)*V(1704) -! B(7147) = dA(4476)/dV(1704) - B(7147) = RCT(4476) -! B(7148) = dA(4477)/dV(2572) - B(7148) = RCT(4477)*V(5250) -! B(7149) = dA(4477)/dV(5250) - B(7149) = RCT(4477)*V(2572) -! B(7150) = dA(4478)/dV(2572) - B(7150) = RCT(4478)*V(5250) -! B(7151) = dA(4478)/dV(5250) - B(7151) = RCT(4478)*V(2572) -! B(7152) = dA(4479)/dV(2572) - B(7152) = RCT(4479) -! B(7153) = dA(4480)/dV(2572) - B(7153) = RCT(4480) -! B(7154) = dA(4481)/dV(761) - B(7154) = RCT(4481) -! B(7155) = dA(4482)/dV(1712) - B(7155) = RCT(4482)*V(5250) -! B(7156) = dA(4482)/dV(5250) - B(7156) = RCT(4482)*V(1712) -! B(7157) = dA(4483)/dV(1712) - B(7157) = RCT(4483) -! B(7158) = dA(4484)/dV(1711) - B(7158) = RCT(4484)*V(5250) -! B(7159) = dA(4484)/dV(5250) - B(7159) = RCT(4484)*V(1711) -! B(7160) = dA(4485)/dV(1711) - B(7160) = RCT(4485) -! B(7161) = dA(4486)/dV(2558) - B(7161) = RCT(4486)*V(5250) -! B(7162) = dA(4486)/dV(5250) - B(7162) = RCT(4486)*V(2558) -! B(7163) = dA(4487)/dV(2558) - B(7163) = RCT(4487)*V(5250) -! B(7164) = dA(4487)/dV(5250) - B(7164) = RCT(4487)*V(2558) -! B(7165) = dA(4488)/dV(2558) - B(7165) = RCT(4488) -! B(7166) = dA(4489)/dV(2558) - B(7166) = RCT(4489) -! B(7167) = dA(4490)/dV(1737) - B(7167) = RCT(4490) -! B(7168) = dA(4491)/dV(2401) - B(7168) = RCT(4491)*V(5250) -! B(7169) = dA(4491)/dV(5250) - B(7169) = RCT(4491)*V(2401) -! B(7170) = dA(4492)/dV(2401) - B(7170) = RCT(4492)*V(5250) -! B(7171) = dA(4492)/dV(5250) - B(7171) = RCT(4492)*V(2401) -! B(7172) = dA(4493)/dV(2401) - B(7172) = RCT(4493) -! B(7173) = dA(4494)/dV(2213) - B(7173) = RCT(4494)*V(5250) -! B(7174) = dA(4494)/dV(5250) - B(7174) = RCT(4494)*V(2213) -! B(7175) = dA(4495)/dV(2213) - B(7175) = RCT(4495) -! B(7176) = dA(4496)/dV(167) - B(7176) = RCT(4496) -! B(7177) = dA(4497)/dV(4717) - B(7177) = RCT(4497)*V(5256) -! B(7178) = dA(4497)/dV(5256) - B(7178) = RCT(4497)*V(4717) -! B(7179) = dA(4498)/dV(4717) - B(7179) = RCT(4498)*V(5250) -! B(7180) = dA(4498)/dV(5250) - B(7180) = RCT(4498)*V(4717) -! B(7181) = dA(4499)/dV(4717) - B(7181) = RCT(4499) -! B(7182) = dA(4500)/dV(4717) - B(7182) = RCT(4500) -! B(7183) = dA(4501)/dV(1599) - B(7183) = RCT(4501)*V(5250) -! B(7184) = dA(4501)/dV(5250) - B(7184) = RCT(4501)*V(1599) -! B(7185) = dA(4502)/dV(1599) - B(7185) = RCT(4502) -! B(7186) = dA(4503)/dV(1153) - B(7186) = RCT(4503)*V(5250) -! B(7187) = dA(4503)/dV(5250) - B(7187) = RCT(4503)*V(1153) -! B(7188) = dA(4504)/dV(1153) - B(7188) = RCT(4504) -! B(7189) = dA(4505)/dV(3068) - B(7189) = RCT(4505)*V(5250) -! B(7190) = dA(4505)/dV(5250) - B(7190) = RCT(4505)*V(3068) -! B(7191) = dA(4506)/dV(3068) - B(7191) = RCT(4506) -! B(7192) = dA(4507)/dV(3069) - B(7192) = RCT(4507) -! B(7193) = dA(4508)/dV(3069) - B(7193) = RCT(4508) -! B(7194) = dA(4509)/dV(3314) - B(7194) = RCT(4509)*V(5250) -! B(7195) = dA(4509)/dV(5250) - B(7195) = RCT(4509)*V(3314) -! B(7196) = dA(4510)/dV(3314) - B(7196) = RCT(4510)*V(5250) -! B(7197) = dA(4510)/dV(5250) - B(7197) = RCT(4510)*V(3314) -! B(7198) = dA(4511)/dV(3314) - B(7198) = RCT(4511) -! B(7199) = dA(4512)/dV(3314) - B(7199) = RCT(4512) -! B(7200) = dA(4513)/dV(666) - B(7200) = RCT(4513) -! B(7201) = dA(4514)/dV(1790) - B(7201) = RCT(4514)*V(5250) -! B(7202) = dA(4514)/dV(5250) - B(7202) = RCT(4514)*V(1790) -! B(7203) = dA(4515)/dV(1790) - B(7203) = RCT(4515) -! B(7204) = dA(4516)/dV(1587) - B(7204) = RCT(4516)*V(5250) -! B(7205) = dA(4516)/dV(5250) - B(7205) = RCT(4516)*V(1587) -! B(7206) = dA(4517)/dV(1587) - B(7206) = RCT(4517) -! B(7207) = dA(4518)/dV(1177) - B(7207) = RCT(4518) -! B(7208) = dA(4519)/dV(1177) - B(7208) = RCT(4519)*V(5250) -! B(7209) = dA(4519)/dV(5250) - B(7209) = RCT(4519)*V(1177) -! B(7210) = dA(4520)/dV(2453) - B(7210) = RCT(4520) -! B(7211) = dA(4521)/dV(2453) - B(7211) = RCT(4521)*V(5250) -! B(7212) = dA(4521)/dV(5250) - B(7212) = RCT(4521)*V(2453) -! B(7213) = dA(4522)/dV(2634) - B(7213) = RCT(4522) -! B(7214) = dA(4523)/dV(2634) - B(7214) = RCT(4523) -! B(7215) = dA(4524)/dV(3879) - B(7215) = RCT(4524) -! B(7216) = dA(4525)/dV(3879) - B(7216) = RCT(4525)*V(5256) -! B(7217) = dA(4525)/dV(5256) - B(7217) = RCT(4525)*V(3879) -! B(7218) = dA(4526)/dV(3879) - B(7218) = RCT(4526)*V(5250) -! B(7219) = dA(4526)/dV(5250) - B(7219) = RCT(4526)*V(3879) -! B(7220) = dA(4527)/dV(577) - B(7220) = RCT(4527) -! B(7221) = dA(4528)/dV(577) - B(7221) = RCT(4528)*V(5250) -! B(7222) = dA(4528)/dV(5250) - B(7222) = RCT(4528)*V(577) -! B(7223) = dA(4529)/dV(1313) - B(7223) = RCT(4529)*V(5250) -! B(7224) = dA(4529)/dV(5250) - B(7224) = RCT(4529)*V(1313) -! B(7225) = dA(4530)/dV(1313) - B(7225) = RCT(4530) -! B(7226) = dA(4531)/dV(2215) - B(7226) = RCT(4531)*V(5250) -! B(7227) = dA(4531)/dV(5250) - B(7227) = RCT(4531)*V(2215) -! B(7228) = dA(4532)/dV(2215) - B(7228) = RCT(4532) -! B(7229) = dA(4533)/dV(3066) - B(7229) = RCT(4533) -! B(7230) = dA(4534)/dV(3066) - B(7230) = RCT(4534) -! B(7231) = dA(4535)/dV(3607) - B(7231) = RCT(4535)*V(5250) -! B(7232) = dA(4535)/dV(5250) - B(7232) = RCT(4535)*V(3607) -! B(7233) = dA(4536)/dV(3607) - B(7233) = RCT(4536) -! B(7234) = dA(4537)/dV(1673) - B(7234) = RCT(4537)*V(5250) -! B(7235) = dA(4537)/dV(5250) - B(7235) = RCT(4537)*V(1673) -! B(7236) = dA(4538)/dV(1673) - B(7236) = RCT(4538) -! B(7237) = dA(4539)/dV(1844) - B(7237) = RCT(4539)*V(5250) -! B(7238) = dA(4539)/dV(5250) - B(7238) = RCT(4539)*V(1844) -! B(7239) = dA(4540)/dV(1844) - B(7239) = RCT(4540) -! B(7240) = dA(4541)/dV(670) - B(7240) = RCT(4541) -! B(7241) = dA(4542)/dV(2023) - B(7241) = RCT(4542)*V(5250) -! B(7242) = dA(4542)/dV(5250) - B(7242) = RCT(4542)*V(2023) -! B(7243) = dA(4543)/dV(2174) - B(7243) = RCT(4543)*V(5250) -! B(7244) = dA(4543)/dV(5250) - B(7244) = RCT(4543)*V(2174) -! B(7245) = dA(4544)/dV(2174) - B(7245) = RCT(4544)*V(5250) -! B(7246) = dA(4544)/dV(5250) - B(7246) = RCT(4544)*V(2174) -! B(7247) = dA(4545)/dV(2174) - B(7247) = RCT(4545) -! B(7248) = dA(4546)/dV(3744) - B(7248) = RCT(4546) -! B(7249) = dA(4547)/dV(3744) - B(7249) = RCT(4547) -! B(7250) = dA(4548)/dV(2181) - B(7250) = RCT(4548)*V(5250) -! B(7251) = dA(4548)/dV(5250) - B(7251) = RCT(4548)*V(2181) -! B(7252) = dA(4549)/dV(3090) - B(7252) = RCT(4549)*V(5250) -! B(7253) = dA(4549)/dV(5250) - B(7253) = RCT(4549)*V(3090) -! B(7254) = dA(4550)/dV(3090) - B(7254) = RCT(4550) -! B(7255) = dA(4551)/dV(4201) - B(7255) = RCT(4551)*V(5255) -! B(7256) = dA(4551)/dV(5255) - B(7256) = RCT(4551)*V(4201) -! B(7257) = dA(4552)/dV(4201) - B(7257) = RCT(4552)*V(5252) -! B(7258) = dA(4552)/dV(5252) - B(7258) = RCT(4552)*V(4201) -! B(7259) = dA(4553)/dV(4201) - B(7259) = RCT(4553)*V(5256) -! B(7260) = dA(4553)/dV(5256) - B(7260) = RCT(4553)*V(4201) -! B(7261) = dA(4554)/dV(4201) - B(7261) = RCT(4554) -! B(7262) = dA(4555)/dV(4201) - B(7262) = RCT(4555) -! B(7263) = dA(4556)/dV(4563) - B(7263) = RCT(4556)*V(5255) -! B(7264) = dA(4556)/dV(5255) - B(7264) = RCT(4556)*V(4563) -! B(7265) = dA(4557)/dV(4563) - B(7265) = RCT(4557)*V(5252) -! B(7266) = dA(4557)/dV(5252) - B(7266) = RCT(4557)*V(4563) -! B(7267) = dA(4558)/dV(4563) - B(7267) = RCT(4558)*V(5256) -! B(7268) = dA(4558)/dV(5256) - B(7268) = RCT(4558)*V(4563) -! B(7269) = dA(4559)/dV(4563) - B(7269) = RCT(4559) -! B(7270) = dA(4560)/dV(4563) - B(7270) = RCT(4560) -! B(7271) = dA(4561)/dV(4563) - B(7271) = RCT(4561) -! B(7272) = dA(4562)/dV(4912) - B(7272) = RCT(4562)*V(5251) -! B(7273) = dA(4562)/dV(5251) - B(7273) = RCT(4562)*V(4912) -! B(7274) = dA(4563)/dV(4912) - B(7274) = RCT(4563)*V(5252) -! B(7275) = dA(4563)/dV(5252) - B(7275) = RCT(4563)*V(4912) -! B(7276) = dA(4564)/dV(4912) - B(7276) = RCT(4564)*V(5253) -! B(7277) = dA(4564)/dV(5253) - B(7277) = RCT(4564)*V(4912) -! B(7278) = dA(4565)/dV(4912) - B(7278) = RCT(4565)*V(5254) -! B(7279) = dA(4565)/dV(5254) - B(7279) = RCT(4565)*V(4912) -! B(7280) = dA(4566)/dV(4912) - B(7280) = RCT(4566) -! B(7281) = dA(4567)/dV(4912) - B(7281) = RCT(4567) -! B(7282) = dA(4568)/dV(5198) - B(7282) = RCT(4568)*V(5255) -! B(7283) = dA(4568)/dV(5255) - B(7283) = RCT(4568)*V(5198) -! B(7284) = dA(4569)/dV(5198) - B(7284) = RCT(4569)*V(5252) -! B(7285) = dA(4569)/dV(5252) - B(7285) = RCT(4569)*V(5198) -! B(7286) = dA(4570)/dV(5198) - B(7286) = RCT(4570)*V(5252) -! B(7287) = dA(4570)/dV(5252) - B(7287) = RCT(4570)*V(5198) -! B(7288) = dA(4571)/dV(5198) - B(7288) = RCT(4571)*V(5256) -! B(7289) = dA(4571)/dV(5256) - B(7289) = RCT(4571)*V(5198) -! B(7290) = dA(4572)/dV(5198) - B(7290) = RCT(4572) -! B(7291) = dA(4573)/dV(5198) - B(7291) = RCT(4573) -! B(7292) = dA(4574)/dV(5198) - B(7292) = RCT(4574) -! B(7293) = dA(4575)/dV(2103) - B(7293) = RCT(4575)*V(5250) -! B(7294) = dA(4575)/dV(5250) - B(7294) = RCT(4575)*V(2103) -! B(7295) = dA(4576)/dV(2103) - B(7295) = RCT(4576) -! B(7296) = dA(4577)/dV(783) - B(7296) = RCT(4577) -! B(7297) = dA(4578)/dV(1036) - B(7297) = RCT(4578)*V(5250) -! B(7298) = dA(4578)/dV(5250) - B(7298) = RCT(4578)*V(1036) -! B(7299) = dA(4579)/dV(2058) - B(7299) = RCT(4579)*V(5250) -! B(7300) = dA(4579)/dV(5250) - B(7300) = RCT(4579)*V(2058) -! B(7301) = dA(4580)/dV(2058) - B(7301) = RCT(4580) -! B(7302) = dA(4581)/dV(784) - B(7302) = RCT(4581) -! B(7303) = dA(4582)/dV(1565) - B(7303) = RCT(4582)*V(5250) -! B(7304) = dA(4582)/dV(5250) - B(7304) = RCT(4582)*V(1565) -! B(7305) = dA(4583)/dV(1241) - B(7305) = RCT(4583)*V(5250) -! B(7306) = dA(4583)/dV(5250) - B(7306) = RCT(4583)*V(1241) -! B(7307) = dA(4584)/dV(1241) - B(7307) = RCT(4584) -! B(7308) = dA(4585)/dV(2626) - B(7308) = RCT(4585)*V(5250) -! B(7309) = dA(4585)/dV(5250) - B(7309) = RCT(4585)*V(2626) -! B(7310) = dA(4586)/dV(2626) - B(7310) = RCT(4586) -! B(7311) = dA(4587)/dV(2415) - B(7311) = RCT(4587) -! B(7312) = dA(4588)/dV(95) - B(7312) = RCT(4588)*V(5250) -! B(7313) = dA(4588)/dV(5250) - B(7313) = RCT(4588)*V(95) -! B(7314) = dA(4589)/dV(897) - B(7314) = RCT(4589)*V(5250) -! B(7315) = dA(4589)/dV(5250) - B(7315) = RCT(4589)*V(897) -! B(7316) = dA(4590)/dV(897) - B(7316) = RCT(4590) -! B(7317) = dA(4591)/dV(3030) - B(7317) = RCT(4591) -! B(7318) = dA(4592)/dV(2343) - B(7318) = RCT(4592)*V(5250) -! B(7319) = dA(4592)/dV(5250) - B(7319) = RCT(4592)*V(2343) -! B(7320) = dA(4593)/dV(1362) - B(7320) = RCT(4593)*V(5250) -! B(7321) = dA(4593)/dV(5250) - B(7321) = RCT(4593)*V(1362) -! B(7322) = dA(4594)/dV(1362) - B(7322) = RCT(4594) -! B(7323) = dA(4595)/dV(2959) - B(7323) = RCT(4595) -! B(7324) = dA(4596)/dV(3141) - B(7324) = RCT(4596)*V(5250) -! B(7325) = dA(4596)/dV(5250) - B(7325) = RCT(4596)*V(3141) -! B(7326) = dA(4597)/dV(4151) - B(7326) = RCT(4597)*V(5256) -! B(7327) = dA(4597)/dV(5256) - B(7327) = RCT(4597)*V(4151) -! B(7328) = dA(4598)/dV(4151) - B(7328) = RCT(4598)*V(5250) -! B(7329) = dA(4598)/dV(5250) - B(7329) = RCT(4598)*V(4151) -! B(7330) = dA(4599)/dV(4151) - B(7330) = RCT(4599) -! B(7331) = dA(4600)/dV(3852) - B(7331) = RCT(4600)*V(5255) -! B(7332) = dA(4600)/dV(5255) - B(7332) = RCT(4600)*V(3852) -! B(7333) = dA(4601)/dV(3852) - B(7333) = RCT(4601)*V(5252) -! B(7334) = dA(4601)/dV(5252) - B(7334) = RCT(4601)*V(3852) -! B(7335) = dA(4602)/dV(3852) - B(7335) = RCT(4602)*V(5252) -! B(7336) = dA(4602)/dV(5252) - B(7336) = RCT(4602)*V(3852) -! B(7337) = dA(4603)/dV(3852) - B(7337) = RCT(4603)*V(5256) -! B(7338) = dA(4603)/dV(5256) - B(7338) = RCT(4603)*V(3852) -! B(7339) = dA(4604)/dV(3852) - B(7339) = RCT(4604) -! B(7340) = dA(4605)/dV(3852) - B(7340) = RCT(4605) -! B(7341) = dA(4606)/dV(3852) - B(7341) = RCT(4606) -! B(7342) = dA(4607)/dV(3733) - B(7342) = RCT(4607)*V(5255) -! B(7343) = dA(4607)/dV(5255) - B(7343) = RCT(4607)*V(3733) -! B(7344) = dA(4608)/dV(3733) - B(7344) = RCT(4608)*V(5252) -! B(7345) = dA(4608)/dV(5252) - B(7345) = RCT(4608)*V(3733) -! B(7346) = dA(4609)/dV(3733) - B(7346) = RCT(4609)*V(5252) -! B(7347) = dA(4609)/dV(5252) - B(7347) = RCT(4609)*V(3733) -! B(7348) = dA(4610)/dV(3733) - B(7348) = RCT(4610)*V(5256) -! B(7349) = dA(4610)/dV(5256) - B(7349) = RCT(4610)*V(3733) -! B(7350) = dA(4611)/dV(3733) - B(7350) = RCT(4611) -! B(7351) = dA(4612)/dV(3733) - B(7351) = RCT(4612) -! B(7352) = dA(4613)/dV(3733) - B(7352) = RCT(4613) -! B(7353) = dA(4614)/dV(3982) - B(7353) = RCT(4614)*V(5255) -! B(7354) = dA(4614)/dV(5255) - B(7354) = RCT(4614)*V(3982) -! B(7355) = dA(4615)/dV(3982) - B(7355) = RCT(4615)*V(5252) -! B(7356) = dA(4615)/dV(5252) - B(7356) = RCT(4615)*V(3982) -! B(7357) = dA(4616)/dV(3982) - B(7357) = RCT(4616)*V(5252) -! B(7358) = dA(4616)/dV(5252) - B(7358) = RCT(4616)*V(3982) -! B(7359) = dA(4617)/dV(3982) - B(7359) = RCT(4617)*V(5256) -! B(7360) = dA(4617)/dV(5256) - B(7360) = RCT(4617)*V(3982) -! B(7361) = dA(4618)/dV(3982) - B(7361) = RCT(4618) -! B(7362) = dA(4619)/dV(3982) - B(7362) = RCT(4619) -! B(7363) = dA(4620)/dV(4240) - B(7363) = RCT(4620)*V(5255) -! B(7364) = dA(4620)/dV(5255) - B(7364) = RCT(4620)*V(4240) -! B(7365) = dA(4621)/dV(4240) - B(7365) = RCT(4621)*V(5252) -! B(7366) = dA(4621)/dV(5252) - B(7366) = RCT(4621)*V(4240) -! B(7367) = dA(4622)/dV(4240) - B(7367) = RCT(4622)*V(5256) -! B(7368) = dA(4622)/dV(5256) - B(7368) = RCT(4622)*V(4240) -! B(7369) = dA(4623)/dV(4240) - B(7369) = RCT(4623) -! B(7370) = dA(4624)/dV(4240) - B(7370) = RCT(4624) -! B(7371) = dA(4625)/dV(4240) - B(7371) = RCT(4625) -! B(7372) = dA(4626)/dV(147) - B(7372) = RCT(4626)*V(5250) -! B(7373) = dA(4626)/dV(5250) - B(7373) = RCT(4626)*V(147) -! B(7374) = dA(4627)/dV(4302) - B(7374) = RCT(4627)*V(5251) -! B(7375) = dA(4627)/dV(5251) - B(7375) = RCT(4627)*V(4302) -! B(7376) = dA(4628)/dV(4302) - B(7376) = RCT(4628)*V(5252) -! B(7377) = dA(4628)/dV(5252) - B(7377) = RCT(4628)*V(4302) -! B(7378) = dA(4629)/dV(4302) - B(7378) = RCT(4629)*V(5253) -! B(7379) = dA(4629)/dV(5253) - B(7379) = RCT(4629)*V(4302) -! B(7380) = dA(4630)/dV(4302) - B(7380) = RCT(4630)*V(5254) -! B(7381) = dA(4630)/dV(5254) - B(7381) = RCT(4630)*V(4302) -! B(7382) = dA(4631)/dV(4302) - B(7382) = RCT(4631) -! B(7383) = dA(4632)/dV(1186) - B(7383) = RCT(4632)*V(5250) -! B(7384) = dA(4632)/dV(5250) - B(7384) = RCT(4632)*V(1186) -! B(7385) = dA(4633)/dV(1186) - B(7385) = RCT(4633) -! B(7386) = dA(4634)/dV(2902) - B(7386) = RCT(4634) -! B(7387) = dA(4635)/dV(1297) - B(7387) = RCT(4635)*V(5250) -! B(7388) = dA(4635)/dV(5250) - B(7388) = RCT(4635)*V(1297) -! B(7389) = dA(4636)/dV(920) - B(7389) = RCT(4636)*V(5250) -! B(7390) = dA(4636)/dV(5250) - B(7390) = RCT(4636)*V(920) -! B(7391) = dA(4637)/dV(920) - B(7391) = RCT(4637) -! B(7392) = dA(4638)/dV(2516) - B(7392) = RCT(4638) -! B(7393) = dA(4639)/dV(4186) - B(7393) = RCT(4639)*V(5256) -! B(7394) = dA(4639)/dV(5256) - B(7394) = RCT(4639)*V(4186) -! B(7395) = dA(4640)/dV(4186) - B(7395) = RCT(4640)*V(5250) -! B(7396) = dA(4640)/dV(5250) - B(7396) = RCT(4640)*V(4186) -! B(7397) = dA(4641)/dV(4186) - B(7397) = RCT(4641) -! B(7398) = dA(4642)/dV(912) - B(7398) = RCT(4642)*V(5250) -! B(7399) = dA(4642)/dV(5250) - B(7399) = RCT(4642)*V(912) -! B(7400) = dA(4643)/dV(912) - B(7400) = RCT(4643) -! B(7401) = dA(4644)/dV(2888) - B(7401) = RCT(4644)*V(5250) -! B(7402) = dA(4644)/dV(5250) - B(7402) = RCT(4644)*V(2888) -! B(7403) = dA(4645)/dV(2888) - B(7403) = RCT(4645) -! B(7404) = dA(4646)/dV(1975) - B(7404) = RCT(4646) -! B(7405) = dA(4647)/dV(104) - B(7405) = RCT(4647)*V(5250) -! B(7406) = dA(4647)/dV(5250) - B(7406) = RCT(4647)*V(104) -! B(7407) = dA(4648)/dV(2065) - B(7407) = RCT(4648)*V(5250) -! B(7408) = dA(4648)/dV(5250) - B(7408) = RCT(4648)*V(2065) -! B(7409) = dA(4649)/dV(2065) - B(7409) = RCT(4649) -! B(7410) = dA(4650)/dV(635) - B(7410) = RCT(4650) -! B(7411) = dA(4651)/dV(1915) - B(7411) = RCT(4651)*V(5250) -! B(7412) = dA(4651)/dV(5250) - B(7412) = RCT(4651)*V(1915) -! B(7413) = dA(4652)/dV(4148) - B(7413) = RCT(4652)*V(5255) -! B(7414) = dA(4652)/dV(5255) - B(7414) = RCT(4652)*V(4148) -! B(7415) = dA(4653)/dV(4148) - B(7415) = RCT(4653)*V(5252) -! B(7416) = dA(4653)/dV(5252) - B(7416) = RCT(4653)*V(4148) -! B(7417) = dA(4654)/dV(4148) - B(7417) = RCT(4654)*V(5256) -! B(7418) = dA(4654)/dV(5256) - B(7418) = RCT(4654)*V(4148) -! B(7419) = dA(4655)/dV(4148) - B(7419) = RCT(4655) -! B(7420) = dA(4656)/dV(4148) - B(7420) = RCT(4656) -! B(7421) = dA(4657)/dV(4148) - B(7421) = RCT(4657) -! B(7422) = dA(4658)/dV(4144) - B(7422) = RCT(4658)*V(5255) -! B(7423) = dA(4658)/dV(5255) - B(7423) = RCT(4658)*V(4144) -! B(7424) = dA(4659)/dV(4144) - B(7424) = RCT(4659)*V(5252) -! B(7425) = dA(4659)/dV(5252) - B(7425) = RCT(4659)*V(4144) -! B(7426) = dA(4660)/dV(4144) - B(7426) = RCT(4660)*V(5256) -! B(7427) = dA(4660)/dV(5256) - B(7427) = RCT(4660)*V(4144) -! B(7428) = dA(4661)/dV(4144) - B(7428) = RCT(4661) -! B(7429) = dA(4662)/dV(4144) - B(7429) = RCT(4662) -! B(7430) = dA(4663)/dV(4144) - B(7430) = RCT(4663) -! B(7431) = dA(4664)/dV(5236) - B(7431) = RCT(4664)*V(5255) -! B(7432) = dA(4664)/dV(5255) - B(7432) = RCT(4664)*V(5236) -! B(7433) = dA(4665)/dV(5236) - B(7433) = RCT(4665)*V(5252) -! B(7434) = dA(4665)/dV(5252) - B(7434) = RCT(4665)*V(5236) -! B(7435) = dA(4666)/dV(5236) - B(7435) = RCT(4666)*V(5252) -! B(7436) = dA(4666)/dV(5252) - B(7436) = RCT(4666)*V(5236) -! B(7437) = dA(4667)/dV(5236) - B(7437) = RCT(4667)*V(5256) -! B(7438) = dA(4667)/dV(5256) - B(7438) = RCT(4667)*V(5236) -! B(7439) = dA(4668)/dV(5236) - B(7439) = RCT(4668) -! B(7440) = dA(4669)/dV(5236) - B(7440) = RCT(4669) -! B(7441) = dA(4670)/dV(5236) - B(7441) = RCT(4670) -! B(7442) = dA(4671)/dV(4843) - B(7442) = RCT(4671)*V(5251) -! B(7443) = dA(4671)/dV(5251) - B(7443) = RCT(4671)*V(4843) -! B(7444) = dA(4672)/dV(4843) - B(7444) = RCT(4672)*V(5252) -! B(7445) = dA(4672)/dV(5252) - B(7445) = RCT(4672)*V(4843) -! B(7446) = dA(4673)/dV(4843) - B(7446) = RCT(4673)*V(5253) -! B(7447) = dA(4673)/dV(5253) - B(7447) = RCT(4673)*V(4843) -! B(7448) = dA(4674)/dV(4843) - B(7448) = RCT(4674)*V(5254) -! B(7449) = dA(4674)/dV(5254) - B(7449) = RCT(4674)*V(4843) -! B(7450) = dA(4675)/dV(4843) - B(7450) = RCT(4675) -! B(7451) = dA(4676)/dV(4843) - B(7451) = RCT(4676) -! B(7452) = dA(4677)/dV(2451) - B(7452) = RCT(4677)*V(5250) -! B(7453) = dA(4677)/dV(5250) - B(7453) = RCT(4677)*V(2451) -! B(7454) = dA(4678)/dV(2451) - B(7454) = RCT(4678) -! B(7455) = dA(4679)/dV(1058) - B(7455) = RCT(4679)*V(5250) -! B(7456) = dA(4679)/dV(5250) - B(7456) = RCT(4679)*V(1058) -! B(7457) = dA(4680)/dV(748) - B(7457) = RCT(4680) -! B(7458) = dA(4681)/dV(1520) - B(7458) = RCT(4681)*V(5250) -! B(7459) = dA(4681)/dV(5250) - B(7459) = RCT(4681)*V(1520) -! B(7460) = dA(4682)/dV(1911) - B(7460) = RCT(4682)*V(5250) -! B(7461) = dA(4682)/dV(5250) - B(7461) = RCT(4682)*V(1911) -! B(7462) = dA(4683)/dV(1911) - B(7462) = RCT(4683) -! B(7463) = dA(4684)/dV(639) - B(7463) = RCT(4684) -! B(7464) = dA(4685)/dV(1581) - B(7464) = RCT(4685)*V(5250) -! B(7465) = dA(4685)/dV(5250) - B(7465) = RCT(4685)*V(1581) -! B(7466) = dA(4686)/dV(1468) - B(7466) = RCT(4686)*V(5250) -! B(7467) = dA(4686)/dV(5250) - B(7467) = RCT(4686)*V(1468) -! B(7468) = dA(4687)/dV(1468) - B(7468) = RCT(4687) -! B(7469) = dA(4688)/dV(1905) - B(7469) = RCT(4688)*V(5250) -! B(7470) = dA(4688)/dV(5250) - B(7470) = RCT(4688)*V(1905) -! B(7471) = dA(4689)/dV(2508) - B(7471) = RCT(4689) -! B(7472) = dA(4690)/dV(540) - B(7472) = RCT(4690)*V(5250) -! B(7473) = dA(4690)/dV(5250) - B(7473) = RCT(4690)*V(540) -! B(7474) = dA(4691)/dV(2180) - B(7474) = RCT(4691)*V(5250) -! B(7475) = dA(4691)/dV(5250) - B(7475) = RCT(4691)*V(2180) -! B(7476) = dA(4692)/dV(2180) - B(7476) = RCT(4692) -! B(7477) = dA(4693)/dV(797) - B(7477) = RCT(4693) -! B(7478) = dA(4694)/dV(2184) - B(7478) = RCT(4694)*V(5250) -! B(7479) = dA(4694)/dV(5250) - B(7479) = RCT(4694)*V(2184) -! B(7480) = dA(4695)/dV(5256) - B(7480) = RCT(4695)*V(5257) -! B(7481) = dA(4695)/dV(5257) - B(7481) = RCT(4695)*V(5256) -! B(7482) = dA(4696)/dV(5256) - B(7482) = RCT(4696)*V(5257) -! B(7483) = dA(4696)/dV(5257) - B(7483) = RCT(4696)*V(5256) -! B(7484) = dA(4697)/dV(5257) - B(7484) = RCT(4697)*V(5258) -! B(7485) = dA(4697)/dV(5258) - B(7485) = RCT(4697)*V(5257) -! B(7486) = dA(4698)/dV(5257) - B(7486) = RCT(4698)*V(5258) -! B(7487) = dA(4698)/dV(5258) - B(7487) = RCT(4698)*V(5257) -! B(7488) = dA(4699)/dV(5250) - B(7488) = RCT(4699)*V(5257) -! B(7489) = dA(4699)/dV(5257) - B(7489) = RCT(4699)*V(5250) -! B(7490) = dA(4700)/dV(5250) - B(7490) = RCT(4700)*V(5257) -! B(7491) = dA(4700)/dV(5257) - B(7491) = RCT(4700)*V(5250) -! B(7492) = dA(4701)/dV(5250) - B(7492) = RCT(4701)*V(5257) -! B(7493) = dA(4701)/dV(5257) - B(7493) = RCT(4701)*V(5250) -! B(7494) = dA(4702)/dV(5250) - B(7494) = RCT(4702)*V(5257) -! B(7495) = dA(4702)/dV(5257) - B(7495) = RCT(4702)*V(5250) -! B(7496) = dA(4703)/dV(5250) - B(7496) = RCT(4703)*V(5257) -! B(7497) = dA(4703)/dV(5257) - B(7497) = RCT(4703)*V(5250) -! B(7498) = dA(4704)/dV(5257) - B(7498) = RCT(4704) -! B(7499) = dA(4705)/dV(3646) - B(7499) = RCT(4705)*V(5258) -! B(7500) = dA(4705)/dV(5258) - B(7500) = RCT(4705)*V(3646) -! B(7501) = dA(4706)/dV(3646) - B(7501) = RCT(4706)*V(5258) -! B(7502) = dA(4706)/dV(5258) - B(7502) = RCT(4706)*V(3646) -! B(7503) = dA(4707)/dV(3646) - B(7503) = RCT(4707)*V(5250) -! B(7504) = dA(4707)/dV(5250) - B(7504) = RCT(4707)*V(3646) -! B(7505) = dA(4708)/dV(4970) - B(7505) = RCT(4708)*V(5258) -! B(7506) = dA(4708)/dV(5258) - B(7506) = RCT(4708)*V(4970) -! B(7507) = dA(4709)/dV(4970) - B(7507) = RCT(4709)*V(5258) -! B(7508) = dA(4709)/dV(5258) - B(7508) = RCT(4709)*V(4970) -! B(7509) = dA(4710)/dV(4970) - B(7509) = RCT(4710)*V(5250) -! B(7510) = dA(4710)/dV(5250) - B(7510) = RCT(4710)*V(4970) -! B(7511) = dA(4711)/dV(4754) - B(7511) = RCT(4711)*V(5255) -! B(7512) = dA(4711)/dV(5255) - B(7512) = RCT(4711)*V(4754) -! B(7513) = dA(4712)/dV(4754) - B(7513) = RCT(4712)*V(5252) -! B(7514) = dA(4712)/dV(5252) - B(7514) = RCT(4712)*V(4754) -! B(7515) = dA(4713)/dV(4754) - B(7515) = RCT(4713)*V(5256) -! B(7516) = dA(4713)/dV(5256) - B(7516) = RCT(4713)*V(4754) -! B(7517) = dA(4714)/dV(4754) - B(7517) = RCT(4714) -! B(7518) = dA(4715)/dV(4754) - B(7518) = RCT(4715) -! B(7519) = dA(4716)/dV(4754) - B(7519) = RCT(4716) -! B(7520) = dA(4717)/dV(4756) - B(7520) = RCT(4717)*V(5255) -! B(7521) = dA(4717)/dV(5255) - B(7521) = RCT(4717)*V(4756) -! B(7522) = dA(4718)/dV(4756) - B(7522) = RCT(4718)*V(5252) -! B(7523) = dA(4718)/dV(5252) - B(7523) = RCT(4718)*V(4756) -! B(7524) = dA(4719)/dV(4756) - B(7524) = RCT(4719)*V(5256) -! B(7525) = dA(4719)/dV(5256) - B(7525) = RCT(4719)*V(4756) -! B(7526) = dA(4720)/dV(4756) - B(7526) = RCT(4720) -! B(7527) = dA(4721)/dV(4756) - B(7527) = RCT(4721) -! B(7528) = dA(4722)/dV(4756) - B(7528) = RCT(4722) -! B(7529) = dA(4723)/dV(3517) - B(7529) = RCT(4723)*V(5258) -! B(7530) = dA(4723)/dV(5258) - B(7530) = RCT(4723)*V(3517) -! B(7531) = dA(4724)/dV(3517) - B(7531) = RCT(4724)*V(5258) -! B(7532) = dA(4724)/dV(5258) - B(7532) = RCT(4724)*V(3517) -! B(7533) = dA(4725)/dV(3517) - B(7533) = RCT(4725)*V(5250) -! B(7534) = dA(4725)/dV(5250) - B(7534) = RCT(4725)*V(3517) -! B(7535) = dA(4726)/dV(5041) - B(7535) = RCT(4726)*V(5255) -! B(7536) = dA(4726)/dV(5255) - B(7536) = RCT(4726)*V(5041) -! B(7537) = dA(4727)/dV(5041) - B(7537) = RCT(4727)*V(5252) -! B(7538) = dA(4727)/dV(5252) - B(7538) = RCT(4727)*V(5041) -! B(7539) = dA(4728)/dV(5041) - B(7539) = RCT(4728)*V(5252) -! B(7540) = dA(4728)/dV(5252) - B(7540) = RCT(4728)*V(5041) -! B(7541) = dA(4729)/dV(5041) - B(7541) = RCT(4729)*V(5256) -! B(7542) = dA(4729)/dV(5256) - B(7542) = RCT(4729)*V(5041) -! B(7543) = dA(4730)/dV(5041) - B(7543) = RCT(4730) -! B(7544) = dA(4731)/dV(5041) - B(7544) = RCT(4731) -! B(7545) = dA(4732)/dV(5041) - B(7545) = RCT(4732) -! B(7546) = dA(4733)/dV(4746) - B(7546) = RCT(4733)*V(5255) -! B(7547) = dA(4733)/dV(5255) - B(7547) = RCT(4733)*V(4746) -! B(7548) = dA(4734)/dV(4746) - B(7548) = RCT(4734)*V(5252) -! B(7549) = dA(4734)/dV(5252) - B(7549) = RCT(4734)*V(4746) -! B(7550) = dA(4735)/dV(4746) - B(7550) = RCT(4735)*V(5256) -! B(7551) = dA(4735)/dV(5256) - B(7551) = RCT(4735)*V(4746) -! B(7552) = dA(4736)/dV(4746) - B(7552) = RCT(4736) -! B(7553) = dA(4737)/dV(4746) - B(7553) = RCT(4737) -! B(7554) = dA(4738)/dV(4746) - B(7554) = RCT(4738) -! B(7555) = dA(4739)/dV(5206) - B(7555) = RCT(4739)*V(5255) -! B(7556) = dA(4739)/dV(5255) - B(7556) = RCT(4739)*V(5206) -! B(7557) = dA(4740)/dV(5206) - B(7557) = RCT(4740)*V(5252) -! B(7558) = dA(4740)/dV(5252) - B(7558) = RCT(4740)*V(5206) -! B(7559) = dA(4741)/dV(5206) - B(7559) = RCT(4741)*V(5252) -! B(7560) = dA(4741)/dV(5252) - B(7560) = RCT(4741)*V(5206) -! B(7561) = dA(4742)/dV(5206) - B(7561) = RCT(4742)*V(5256) -! B(7562) = dA(4742)/dV(5256) - B(7562) = RCT(4742)*V(5206) -! B(7563) = dA(4743)/dV(5206) - B(7563) = RCT(4743) -! B(7564) = dA(4744)/dV(5206) - B(7564) = RCT(4744) -! B(7565) = dA(4745)/dV(5206) - B(7565) = RCT(4745) -! B(7566) = dA(4746)/dV(2178) - B(7566) = RCT(4746)*V(5250) -! B(7567) = dA(4746)/dV(5250) - B(7567) = RCT(4746)*V(2178) -! B(7568) = dA(4747)/dV(2178) - B(7568) = RCT(4747) -! B(7569) = dA(4748)/dV(905) - B(7569) = RCT(4748)*V(5250) -! B(7570) = dA(4748)/dV(5250) - B(7570) = RCT(4748)*V(905) -! B(7571) = dA(4749)/dV(646) - B(7571) = RCT(4749) -! B(7572) = dA(4750)/dV(1001) - B(7572) = RCT(4750)*V(5250) -! B(7573) = dA(4750)/dV(5250) - B(7573) = RCT(4750)*V(1001) -! B(7574) = dA(4751)/dV(2160) - B(7574) = RCT(4751)*V(5250) -! B(7575) = dA(4751)/dV(5250) - B(7575) = RCT(4751)*V(2160) -! B(7576) = dA(4752)/dV(2160) - B(7576) = RCT(4752) -! B(7577) = dA(4753)/dV(624) - B(7577) = RCT(4753) -! B(7578) = dA(4754)/dV(1736) - B(7578) = RCT(4754)*V(5250) -! B(7579) = dA(4754)/dV(5250) - B(7579) = RCT(4754)*V(1736) -! B(7580) = dA(4755)/dV(881) - B(7580) = RCT(4755)*V(5250) -! B(7581) = dA(4755)/dV(5250) - B(7581) = RCT(4755)*V(881) -! B(7582) = dA(4756)/dV(881) - B(7582) = RCT(4756) -! B(7583) = dA(4757)/dV(2242) - B(7583) = RCT(4757)*V(5250) -! B(7584) = dA(4757)/dV(5250) - B(7584) = RCT(4757)*V(2242) -! B(7585) = dA(4758)/dV(2961) - B(7585) = RCT(4758) -! B(7586) = dA(4759)/dV(661) - B(7586) = RCT(4759)*V(5250) -! B(7587) = dA(4759)/dV(5250) - B(7587) = RCT(4759)*V(661) -! B(7588) = dA(4760)/dV(5237) - B(7588) = RCT(4760)*V(5255) -! B(7589) = dA(4760)/dV(5255) - B(7589) = RCT(4760)*V(5237) -! B(7590) = dA(4761)/dV(5237) - B(7590) = RCT(4761)*V(5255) -! B(7591) = dA(4761)/dV(5255) - B(7591) = RCT(4761)*V(5237) -! B(7592) = dA(4762)/dV(5237) - B(7592) = RCT(4762)*V(5255) -! B(7593) = dA(4762)/dV(5255) - B(7593) = RCT(4762)*V(5237) -! B(7594) = dA(4763)/dV(5237) - B(7594) = RCT(4763)*V(5252) -! B(7595) = dA(4763)/dV(5252) - B(7595) = RCT(4763)*V(5237) -! B(7596) = dA(4764)/dV(5237) - B(7596) = RCT(4764)*V(5253) -! B(7597) = dA(4764)/dV(5253) - B(7597) = RCT(4764)*V(5237) -! B(7598) = dA(4765)/dV(5237) - B(7598) = RCT(4765)*V(5256) -! B(7599) = dA(4765)/dV(5256) - B(7599) = RCT(4765)*V(5237) -! B(7600) = dA(4766)/dV(5237) - B(7600) = RCT(4766) -! B(7601) = dA(4767)/dV(5237) - B(7601) = RCT(4767) -! B(7602) = dA(4768)/dV(4949) - B(7602) = RCT(4768)*V(5255) -! B(7603) = dA(4768)/dV(5255) - B(7603) = RCT(4768)*V(4949) -! B(7604) = dA(4769)/dV(4949) - B(7604) = RCT(4769)*V(5255) -! B(7605) = dA(4769)/dV(5255) - B(7605) = RCT(4769)*V(4949) -! B(7606) = dA(4770)/dV(4949) - B(7606) = RCT(4770)*V(5255) -! B(7607) = dA(4770)/dV(5255) - B(7607) = RCT(4770)*V(4949) -! B(7608) = dA(4771)/dV(4949) - B(7608) = RCT(4771)*V(5252) -! B(7609) = dA(4771)/dV(5252) - B(7609) = RCT(4771)*V(4949) -! B(7610) = dA(4772)/dV(4949) - B(7610) = RCT(4772)*V(5253) -! B(7611) = dA(4772)/dV(5253) - B(7611) = RCT(4772)*V(4949) -! B(7612) = dA(4773)/dV(4949) - B(7612) = RCT(4773)*V(5256) -! B(7613) = dA(4773)/dV(5256) - B(7613) = RCT(4773)*V(4949) -! B(7614) = dA(4774)/dV(4949) - B(7614) = RCT(4774) -! B(7615) = dA(4775)/dV(4949) - B(7615) = RCT(4775) -! B(7616) = dA(4776)/dV(4374) - B(7616) = RCT(4776)*V(5255) -! B(7617) = dA(4776)/dV(5255) - B(7617) = RCT(4776)*V(4374) -! B(7618) = dA(4777)/dV(4374) - B(7618) = RCT(4777)*V(5252) -! B(7619) = dA(4777)/dV(5252) - B(7619) = RCT(4777)*V(4374) -! B(7620) = dA(4778)/dV(4374) - B(7620) = RCT(4778)*V(5252) -! B(7621) = dA(4778)/dV(5252) - B(7621) = RCT(4778)*V(4374) -! B(7622) = dA(4779)/dV(4374) - B(7622) = RCT(4779)*V(5256) -! B(7623) = dA(4779)/dV(5256) - B(7623) = RCT(4779)*V(4374) -! B(7624) = dA(4780)/dV(4374) - B(7624) = RCT(4780) -! B(7625) = dA(4781)/dV(4374) - B(7625) = RCT(4781) -! B(7626) = dA(4782)/dV(4374) - B(7626) = RCT(4782) -! B(7627) = dA(4783)/dV(5136) - B(7627) = RCT(4783)*V(5255) -! B(7628) = dA(4783)/dV(5255) - B(7628) = RCT(4783)*V(5136) -! B(7629) = dA(4784)/dV(5136) - B(7629) = RCT(4784)*V(5255) -! B(7630) = dA(4784)/dV(5255) - B(7630) = RCT(4784)*V(5136) -! B(7631) = dA(4785)/dV(5136) - B(7631) = RCT(4785)*V(5252) -! B(7632) = dA(4785)/dV(5252) - B(7632) = RCT(4785)*V(5136) -! B(7633) = dA(4786)/dV(5136) - B(7633) = RCT(4786)*V(5253) -! B(7634) = dA(4786)/dV(5253) - B(7634) = RCT(4786)*V(5136) -! B(7635) = dA(4787)/dV(5136) - B(7635) = RCT(4787)*V(5256) -! B(7636) = dA(4787)/dV(5256) - B(7636) = RCT(4787)*V(5136) -! B(7637) = dA(4788)/dV(5136) - B(7637) = RCT(4788) -! B(7638) = dA(4789)/dV(438) - B(7638) = RCT(4789)*V(5250) -! B(7639) = dA(4789)/dV(5250) - B(7639) = RCT(4789)*V(438) -! B(7640) = dA(4790)/dV(1516) - B(7640) = RCT(4790) -! B(7641) = dA(4791)/dV(1516) - B(7641) = RCT(4791)*V(5250) -! B(7642) = dA(4791)/dV(5250) - B(7642) = RCT(4791)*V(1516) -! B(7643) = dA(4792)/dV(2882) - B(7643) = RCT(4792) -! B(7644) = dA(4793)/dV(2882) - B(7644) = RCT(4793)*V(5250) -! B(7645) = dA(4793)/dV(5250) - B(7645) = RCT(4793)*V(2882) -! B(7646) = dA(4794)/dV(384) - B(7646) = RCT(4794)*V(5250) -! B(7647) = dA(4794)/dV(5250) - B(7647) = RCT(4794)*V(384) -! B(7648) = dA(4795)/dV(1106) - B(7648) = RCT(4795)*V(5250) -! B(7649) = dA(4795)/dV(5250) - B(7649) = RCT(4795)*V(1106) -! B(7650) = dA(4796)/dV(1106) - B(7650) = RCT(4796) -! B(7651) = dA(4797)/dV(2743) - B(7651) = RCT(4797)*V(5250) -! B(7652) = dA(4797)/dV(5250) - B(7652) = RCT(4797)*V(2743) -! B(7653) = dA(4798)/dV(2743) - B(7653) = RCT(4798) -! B(7654) = dA(4799)/dV(918) - B(7654) = RCT(4799)*V(5250) -! B(7655) = dA(4799)/dV(5250) - B(7655) = RCT(4799)*V(918) -! B(7656) = dA(4800)/dV(918) - B(7656) = RCT(4800) -! B(7657) = dA(4801)/dV(3533) - B(7657) = RCT(4801)*V(5250) -! B(7658) = dA(4801)/dV(5250) - B(7658) = RCT(4801)*V(3533) -! B(7659) = dA(4802)/dV(3533) - B(7659) = RCT(4802) -! B(7660) = dA(4803)/dV(3533) - B(7660) = RCT(4803) -! B(7661) = dA(4804)/dV(2399) - B(7661) = RCT(4804) -! B(7662) = dA(4805)/dV(4931) - B(7662) = RCT(4805)*V(5256) -! B(7663) = dA(4805)/dV(5256) - B(7663) = RCT(4805)*V(4931) -! B(7664) = dA(4806)/dV(4931) - B(7664) = RCT(4806)*V(5250) -! B(7665) = dA(4806)/dV(5250) - B(7665) = RCT(4806)*V(4931) -! B(7666) = dA(4807)/dV(4931) - B(7666) = RCT(4807) -! B(7667) = dA(4808)/dV(4785) - B(7667) = RCT(4808)*V(5255) -! B(7668) = dA(4808)/dV(5255) - B(7668) = RCT(4808)*V(4785) -! B(7669) = dA(4809)/dV(4785) - B(7669) = RCT(4809)*V(5252) -! B(7670) = dA(4809)/dV(5252) - B(7670) = RCT(4809)*V(4785) -! B(7671) = dA(4810)/dV(4785) - B(7671) = RCT(4810)*V(5252) -! B(7672) = dA(4810)/dV(5252) - B(7672) = RCT(4810)*V(4785) -! B(7673) = dA(4811)/dV(4785) - B(7673) = RCT(4811)*V(5256) -! B(7674) = dA(4811)/dV(5256) - B(7674) = RCT(4811)*V(4785) -! B(7675) = dA(4812)/dV(4785) - B(7675) = RCT(4812) -! B(7676) = dA(4813)/dV(4785) - B(7676) = RCT(4813) -! B(7677) = dA(4814)/dV(4785) - B(7677) = RCT(4814) -! B(7678) = dA(4815)/dV(5101) - B(7678) = RCT(4815)*V(5255) -! B(7679) = dA(4815)/dV(5255) - B(7679) = RCT(4815)*V(5101) -! B(7680) = dA(4816)/dV(5101) - B(7680) = RCT(4816)*V(5255) -! B(7681) = dA(4816)/dV(5255) - B(7681) = RCT(4816)*V(5101) -! B(7682) = dA(4817)/dV(5101) - B(7682) = RCT(4817)*V(5252) -! B(7683) = dA(4817)/dV(5252) - B(7683) = RCT(4817)*V(5101) -! B(7684) = dA(4818)/dV(5101) - B(7684) = RCT(4818)*V(5253) -! B(7685) = dA(4818)/dV(5253) - B(7685) = RCT(4818)*V(5101) -! B(7686) = dA(4819)/dV(5101) - B(7686) = RCT(4819)*V(5256) -! B(7687) = dA(4819)/dV(5256) - B(7687) = RCT(4819)*V(5101) -! B(7688) = dA(4820)/dV(5101) - B(7688) = RCT(4820) -! B(7689) = dA(4821)/dV(4206) - B(7689) = RCT(4821)*V(5255) -! B(7690) = dA(4821)/dV(5255) - B(7690) = RCT(4821)*V(4206) -! B(7691) = dA(4822)/dV(4206) - B(7691) = RCT(4822)*V(5255) -! B(7692) = dA(4822)/dV(5255) - B(7692) = RCT(4822)*V(4206) -! B(7693) = dA(4823)/dV(4206) - B(7693) = RCT(4823)*V(5252) -! B(7694) = dA(4823)/dV(5252) - B(7694) = RCT(4823)*V(4206) -! B(7695) = dA(4824)/dV(4206) - B(7695) = RCT(4824)*V(5253) -! B(7696) = dA(4824)/dV(5253) - B(7696) = RCT(4824)*V(4206) -! B(7697) = dA(4825)/dV(4206) - B(7697) = RCT(4825)*V(5256) -! B(7698) = dA(4825)/dV(5256) - B(7698) = RCT(4825)*V(4206) -! B(7699) = dA(4826)/dV(4206) - B(7699) = RCT(4826) -! B(7700) = dA(4827)/dV(4359) - B(7700) = RCT(4827)*V(5255) -! B(7701) = dA(4827)/dV(5255) - B(7701) = RCT(4827)*V(4359) -! B(7702) = dA(4828)/dV(4359) - B(7702) = RCT(4828)*V(5252) -! B(7703) = dA(4828)/dV(5252) - B(7703) = RCT(4828)*V(4359) -! B(7704) = dA(4829)/dV(4359) - B(7704) = RCT(4829)*V(5252) -! B(7705) = dA(4829)/dV(5252) - B(7705) = RCT(4829)*V(4359) -! B(7706) = dA(4830)/dV(4359) - B(7706) = RCT(4830)*V(5256) -! B(7707) = dA(4830)/dV(5256) - B(7707) = RCT(4830)*V(4359) -! B(7708) = dA(4831)/dV(4359) - B(7708) = RCT(4831) -! B(7709) = dA(4832)/dV(4359) - B(7709) = RCT(4832) -! B(7710) = dA(4833)/dV(4359) - B(7710) = RCT(4833) -! B(7711) = dA(4834)/dV(5008) - B(7711) = RCT(4834)*V(5255) -! B(7712) = dA(4834)/dV(5255) - B(7712) = RCT(4834)*V(5008) -! B(7713) = dA(4835)/dV(5008) - B(7713) = RCT(4835)*V(5255) -! B(7714) = dA(4835)/dV(5255) - B(7714) = RCT(4835)*V(5008) -! B(7715) = dA(4836)/dV(5008) - B(7715) = RCT(4836)*V(5255) -! B(7716) = dA(4836)/dV(5255) - B(7716) = RCT(4836)*V(5008) -! B(7717) = dA(4837)/dV(5008) - B(7717) = RCT(4837)*V(5252) -! B(7718) = dA(4837)/dV(5252) - B(7718) = RCT(4837)*V(5008) -! B(7719) = dA(4838)/dV(5008) - B(7719) = RCT(4838)*V(5253) -! B(7720) = dA(4838)/dV(5253) - B(7720) = RCT(4838)*V(5008) -! B(7721) = dA(4839)/dV(5008) - B(7721) = RCT(4839)*V(5256) -! B(7722) = dA(4839)/dV(5256) - B(7722) = RCT(4839)*V(5008) -! B(7723) = dA(4840)/dV(5008) - B(7723) = RCT(4840) -! B(7724) = dA(4841)/dV(5008) - B(7724) = RCT(4841) -! B(7725) = dA(4842)/dV(4882) - B(7725) = RCT(4842)*V(5256) -! B(7726) = dA(4842)/dV(5256) - B(7726) = RCT(4842)*V(4882) -! B(7727) = dA(4843)/dV(4882) - B(7727) = RCT(4843)*V(5250) -! B(7728) = dA(4843)/dV(5250) - B(7728) = RCT(4843)*V(4882) -! B(7729) = dA(4844)/dV(4882) - B(7729) = RCT(4844)*V(5250) -! B(7730) = dA(4844)/dV(5250) - B(7730) = RCT(4844)*V(4882) -! B(7731) = dA(4845)/dV(4882) - B(7731) = RCT(4845) -! B(7732) = dA(4846)/dV(591) - B(7732) = RCT(4846)*V(5250) -! B(7733) = dA(4846)/dV(5250) - B(7733) = RCT(4846)*V(591) -! B(7734) = dA(4847)/dV(591) - B(7734) = RCT(4847) -! B(7735) = dA(4848)/dV(2272) - B(7735) = RCT(4848)*V(5250) -! B(7736) = dA(4848)/dV(5250) - B(7736) = RCT(4848)*V(2272) -! B(7737) = dA(4849)/dV(3979) - B(7737) = RCT(4849)*V(5255) -! B(7738) = dA(4849)/dV(5255) - B(7738) = RCT(4849)*V(3979) -! B(7739) = dA(4850)/dV(3979) - B(7739) = RCT(4850)*V(5252) -! B(7740) = dA(4850)/dV(5252) - B(7740) = RCT(4850)*V(3979) -! B(7741) = dA(4851)/dV(3979) - B(7741) = RCT(4851)*V(5256) -! B(7742) = dA(4851)/dV(5256) - B(7742) = RCT(4851)*V(3979) -! B(7743) = dA(4852)/dV(3979) - B(7743) = RCT(4852) -! B(7744) = dA(4853)/dV(3284) - B(7744) = RCT(4853) -! B(7745) = dA(4854)/dV(3255) - B(7745) = RCT(4854) -! B(7746) = dA(4855)/dV(1764) - B(7746) = RCT(4855)*V(5250) -! B(7747) = dA(4855)/dV(5250) - B(7747) = RCT(4855)*V(1764) -! B(7748) = dA(4856)/dV(2412) - B(7748) = RCT(4856)*V(5250) -! B(7749) = dA(4856)/dV(5250) - B(7749) = RCT(4856)*V(2412) -! B(7750) = dA(4857)/dV(2412) - B(7750) = RCT(4857) -! B(7751) = dA(4858)/dV(3047) - B(7751) = RCT(4858)*V(5250) -! B(7752) = dA(4858)/dV(5250) - B(7752) = RCT(4858)*V(3047) -! B(7753) = dA(4859)/dV(3047) - B(7753) = RCT(4859) -! B(7754) = dA(4860)/dV(2219) - B(7754) = RCT(4860)*V(5250) -! B(7755) = dA(4860)/dV(5250) - B(7755) = RCT(4860)*V(2219) -! B(7756) = dA(4861)/dV(2219) - B(7756) = RCT(4861) -! B(7757) = dA(4862)/dV(2945) - B(7757) = RCT(4862)*V(5250) -! B(7758) = dA(4862)/dV(5250) - B(7758) = RCT(4862)*V(2945) -! B(7759) = dA(4863)/dV(2945) - B(7759) = RCT(4863) -! B(7760) = dA(4864)/dV(2473) - B(7760) = RCT(4864) -! B(7761) = dA(4865)/dV(4316) - B(7761) = RCT(4865)*V(5255) -! B(7762) = dA(4865)/dV(5255) - B(7762) = RCT(4865)*V(4316) -! B(7763) = dA(4866)/dV(4316) - B(7763) = RCT(4866)*V(5255) -! B(7764) = dA(4866)/dV(5255) - B(7764) = RCT(4866)*V(4316) -! B(7765) = dA(4867)/dV(4316) - B(7765) = RCT(4867)*V(5252) -! B(7766) = dA(4867)/dV(5252) - B(7766) = RCT(4867)*V(4316) -! B(7767) = dA(4868)/dV(4316) - B(7767) = RCT(4868)*V(5253) -! B(7768) = dA(4868)/dV(5253) - B(7768) = RCT(4868)*V(4316) -! B(7769) = dA(4869)/dV(4316) - B(7769) = RCT(4869)*V(5256) -! B(7770) = dA(4869)/dV(5256) - B(7770) = RCT(4869)*V(4316) -! B(7771) = dA(4870)/dV(4316) - B(7771) = RCT(4870) -! B(7772) = dA(4871)/dV(2364) - B(7772) = RCT(4871)*V(5250) -! B(7773) = dA(4871)/dV(5250) - B(7773) = RCT(4871)*V(2364) -! B(7774) = dA(4872)/dV(2211) - B(7774) = RCT(4872) -! B(7775) = dA(4873)/dV(2211) - B(7775) = RCT(4873)*V(5250) -! B(7776) = dA(4873)/dV(5250) - B(7776) = RCT(4873)*V(2211) -! B(7777) = dA(4874)/dV(2792) - B(7777) = RCT(4874) -! B(7778) = dA(4875)/dV(2792) - B(7778) = RCT(4875)*V(5250) -! B(7779) = dA(4875)/dV(5250) - B(7779) = RCT(4875)*V(2792) -! B(7780) = dA(4876)/dV(579) - B(7780) = RCT(4876)*V(5250) -! B(7781) = dA(4876)/dV(5250) - B(7781) = RCT(4876)*V(579) -! B(7782) = dA(4877)/dV(579) - B(7782) = RCT(4877) -! B(7783) = dA(4878)/dV(4553) - B(7783) = RCT(4878)*V(5255) -! B(7784) = dA(4878)/dV(5255) - B(7784) = RCT(4878)*V(4553) -! B(7785) = dA(4879)/dV(4553) - B(7785) = RCT(4879)*V(5255) -! B(7786) = dA(4879)/dV(5255) - B(7786) = RCT(4879)*V(4553) -! B(7787) = dA(4880)/dV(4553) - B(7787) = RCT(4880)*V(5252) -! B(7788) = dA(4880)/dV(5252) - B(7788) = RCT(4880)*V(4553) -! B(7789) = dA(4881)/dV(4553) - B(7789) = RCT(4881)*V(5253) -! B(7790) = dA(4881)/dV(5253) - B(7790) = RCT(4881)*V(4553) -! B(7791) = dA(4882)/dV(4553) - B(7791) = RCT(4882)*V(5256) -! B(7792) = dA(4882)/dV(5256) - B(7792) = RCT(4882)*V(4553) -! B(7793) = dA(4883)/dV(4553) - B(7793) = RCT(4883) -! B(7794) = dA(4884)/dV(5158) - B(7794) = RCT(4884)*V(5255) -! B(7795) = dA(4884)/dV(5255) - B(7795) = RCT(4884)*V(5158) -! B(7796) = dA(4885)/dV(5158) - B(7796) = RCT(4885)*V(5255) -! B(7797) = dA(4885)/dV(5255) - B(7797) = RCT(4885)*V(5158) -! B(7798) = dA(4886)/dV(5158) - B(7798) = RCT(4886)*V(5252) -! B(7799) = dA(4886)/dV(5252) - B(7799) = RCT(4886)*V(5158) -! B(7800) = dA(4887)/dV(5158) - B(7800) = RCT(4887)*V(5253) -! B(7801) = dA(4887)/dV(5253) - B(7801) = RCT(4887)*V(5158) -! B(7802) = dA(4888)/dV(5158) - B(7802) = RCT(4888)*V(5256) -! B(7803) = dA(4888)/dV(5256) - B(7803) = RCT(4888)*V(5158) -! B(7804) = dA(4889)/dV(5158) - B(7804) = RCT(4889) -! B(7805) = dA(4890)/dV(5164) - B(7805) = RCT(4890)*V(5255) -! B(7806) = dA(4890)/dV(5255) - B(7806) = RCT(4890)*V(5164) -! B(7807) = dA(4891)/dV(5164) - B(7807) = RCT(4891)*V(5255) -! B(7808) = dA(4891)/dV(5255) - B(7808) = RCT(4891)*V(5164) -! B(7809) = dA(4892)/dV(5164) - B(7809) = RCT(4892)*V(5255) -! B(7810) = dA(4892)/dV(5255) - B(7810) = RCT(4892)*V(5164) -! B(7811) = dA(4893)/dV(5164) - B(7811) = RCT(4893)*V(5252) -! B(7812) = dA(4893)/dV(5252) - B(7812) = RCT(4893)*V(5164) -! B(7813) = dA(4894)/dV(5164) - B(7813) = RCT(4894)*V(5253) -! B(7814) = dA(4894)/dV(5253) - B(7814) = RCT(4894)*V(5164) -! B(7815) = dA(4895)/dV(5164) - B(7815) = RCT(4895)*V(5256) -! B(7816) = dA(4895)/dV(5256) - B(7816) = RCT(4895)*V(5164) -! B(7817) = dA(4896)/dV(5164) - B(7817) = RCT(4896) -! B(7818) = dA(4897)/dV(5164) - B(7818) = RCT(4897) -! B(7819) = dA(4898)/dV(4915) - B(7819) = RCT(4898)*V(5255) -! B(7820) = dA(4898)/dV(5255) - B(7820) = RCT(4898)*V(4915) -! B(7821) = dA(4899)/dV(4915) - B(7821) = RCT(4899)*V(5255) -! B(7822) = dA(4899)/dV(5255) - B(7822) = RCT(4899)*V(4915) -! B(7823) = dA(4900)/dV(4915) - B(7823) = RCT(4900)*V(5255) -! B(7824) = dA(4900)/dV(5255) - B(7824) = RCT(4900)*V(4915) -! B(7825) = dA(4901)/dV(4915) - B(7825) = RCT(4901)*V(5252) -! B(7826) = dA(4901)/dV(5252) - B(7826) = RCT(4901)*V(4915) -! B(7827) = dA(4902)/dV(4915) - B(7827) = RCT(4902)*V(5253) -! B(7828) = dA(4902)/dV(5253) - B(7828) = RCT(4902)*V(4915) -! B(7829) = dA(4903)/dV(4915) - B(7829) = RCT(4903)*V(5256) -! B(7830) = dA(4903)/dV(5256) - B(7830) = RCT(4903)*V(4915) -! B(7831) = dA(4904)/dV(4915) - B(7831) = RCT(4904) -! B(7832) = dA(4905)/dV(4915) - B(7832) = RCT(4905) -! B(7833) = dA(4906)/dV(4640) - B(7833) = RCT(4906)*V(5255) -! B(7834) = dA(4906)/dV(5255) - B(7834) = RCT(4906)*V(4640) -! B(7835) = dA(4907)/dV(4640) - B(7835) = RCT(4907)*V(5252) -! B(7836) = dA(4907)/dV(5252) - B(7836) = RCT(4907)*V(4640) -! B(7837) = dA(4908)/dV(4640) - B(7837) = RCT(4908)*V(5256) -! B(7838) = dA(4908)/dV(5256) - B(7838) = RCT(4908)*V(4640) -! B(7839) = dA(4909)/dV(4640) - B(7839) = RCT(4909) -! B(7840) = dA(4910)/dV(4640) - B(7840) = RCT(4910) -! B(7841) = dA(4911)/dV(4640) - B(7841) = RCT(4911) -! B(7842) = dA(4912)/dV(5137) - B(7842) = RCT(4912)*V(5255) -! B(7843) = dA(4912)/dV(5255) - B(7843) = RCT(4912)*V(5137) -! B(7844) = dA(4913)/dV(5137) - B(7844) = RCT(4913)*V(5255) -! B(7845) = dA(4913)/dV(5255) - B(7845) = RCT(4913)*V(5137) -! B(7846) = dA(4914)/dV(5137) - B(7846) = RCT(4914)*V(5255) -! B(7847) = dA(4914)/dV(5255) - B(7847) = RCT(4914)*V(5137) -! B(7848) = dA(4915)/dV(5137) - B(7848) = RCT(4915)*V(5252) -! B(7849) = dA(4915)/dV(5252) - B(7849) = RCT(4915)*V(5137) -! B(7850) = dA(4916)/dV(5137) - B(7850) = RCT(4916)*V(5253) -! B(7851) = dA(4916)/dV(5253) - B(7851) = RCT(4916)*V(5137) -! B(7852) = dA(4917)/dV(5137) - B(7852) = RCT(4917)*V(5256) -! B(7853) = dA(4917)/dV(5256) - B(7853) = RCT(4917)*V(5137) -! B(7854) = dA(4918)/dV(5137) - B(7854) = RCT(4918) -! B(7855) = dA(4919)/dV(5137) - B(7855) = RCT(4919) -! B(7856) = dA(4920)/dV(3758) - B(7856) = RCT(4920)*V(5255) -! B(7857) = dA(4920)/dV(5255) - B(7857) = RCT(4920)*V(3758) -! B(7858) = dA(4921)/dV(3758) - B(7858) = RCT(4921)*V(5252) -! B(7859) = dA(4921)/dV(5252) - B(7859) = RCT(4921)*V(3758) -! B(7860) = dA(4922)/dV(3758) - B(7860) = RCT(4922)*V(5252) -! B(7861) = dA(4922)/dV(5252) - B(7861) = RCT(4922)*V(3758) -! B(7862) = dA(4923)/dV(3758) - B(7862) = RCT(4923)*V(5256) -! B(7863) = dA(4923)/dV(5256) - B(7863) = RCT(4923)*V(3758) -! B(7864) = dA(4924)/dV(3758) - B(7864) = RCT(4924) -! B(7865) = dA(4925)/dV(3758) - B(7865) = RCT(4925) -! B(7866) = dA(4926)/dV(3758) - B(7866) = RCT(4926) -! B(7867) = dA(4927)/dV(4862) - B(7867) = RCT(4927)*V(5255) -! B(7868) = dA(4927)/dV(5255) - B(7868) = RCT(4927)*V(4862) -! B(7869) = dA(4928)/dV(4862) - B(7869) = RCT(4928)*V(5255) -! B(7870) = dA(4928)/dV(5255) - B(7870) = RCT(4928)*V(4862) -! B(7871) = dA(4929)/dV(4862) - B(7871) = RCT(4929)*V(5255) -! B(7872) = dA(4929)/dV(5255) - B(7872) = RCT(4929)*V(4862) -! B(7873) = dA(4930)/dV(4862) - B(7873) = RCT(4930)*V(5252) -! B(7874) = dA(4930)/dV(5252) - B(7874) = RCT(4930)*V(4862) -! B(7875) = dA(4931)/dV(4862) - B(7875) = RCT(4931)*V(5253) -! B(7876) = dA(4931)/dV(5253) - B(7876) = RCT(4931)*V(4862) -! B(7877) = dA(4932)/dV(4862) - B(7877) = RCT(4932)*V(5256) -! B(7878) = dA(4932)/dV(5256) - B(7878) = RCT(4932)*V(4862) -! B(7879) = dA(4933)/dV(4862) - B(7879) = RCT(4933) -! B(7880) = dA(4934)/dV(4862) - B(7880) = RCT(4934) -! B(7881) = dA(4935)/dV(5038) - B(7881) = RCT(4935)*V(5255) -! B(7882) = dA(4935)/dV(5255) - B(7882) = RCT(4935)*V(5038) -! B(7883) = dA(4936)/dV(5038) - B(7883) = RCT(4936)*V(5255) -! B(7884) = dA(4936)/dV(5255) - B(7884) = RCT(4936)*V(5038) -! B(7885) = dA(4937)/dV(5038) - B(7885) = RCT(4937)*V(5252) -! B(7886) = dA(4937)/dV(5252) - B(7886) = RCT(4937)*V(5038) -! B(7887) = dA(4938)/dV(5038) - B(7887) = RCT(4938)*V(5253) -! B(7888) = dA(4938)/dV(5253) - B(7888) = RCT(4938)*V(5038) -! B(7889) = dA(4939)/dV(5038) - B(7889) = RCT(4939)*V(5256) -! B(7890) = dA(4939)/dV(5256) - B(7890) = RCT(4939)*V(5038) -! B(7891) = dA(4940)/dV(5038) - B(7891) = RCT(4940) -! B(7892) = dA(4941)/dV(4530) - B(7892) = RCT(4941) -! B(7893) = dA(4942)/dV(4530) - B(7893) = RCT(4942) -! B(7894) = dA(4943)/dV(4530) - B(7894) = RCT(4943)*V(5256) -! B(7895) = dA(4943)/dV(5256) - B(7895) = RCT(4943)*V(4530) -! B(7896) = dA(4944)/dV(4530) - B(7896) = RCT(4944)*V(5250) -! B(7897) = dA(4944)/dV(5250) - B(7897) = RCT(4944)*V(4530) -! B(7898) = dA(4945)/dV(5216) - B(7898) = RCT(4945)*V(5255) -! B(7899) = dA(4945)/dV(5255) - B(7899) = RCT(4945)*V(5216) -! B(7900) = dA(4946)/dV(5216) - B(7900) = RCT(4946)*V(5255) -! B(7901) = dA(4946)/dV(5255) - B(7901) = RCT(4946)*V(5216) -! B(7902) = dA(4947)/dV(5216) - B(7902) = RCT(4947)*V(5255) -! B(7903) = dA(4947)/dV(5255) - B(7903) = RCT(4947)*V(5216) -! B(7904) = dA(4948)/dV(5216) - B(7904) = RCT(4948)*V(5252) -! B(7905) = dA(4948)/dV(5252) - B(7905) = RCT(4948)*V(5216) -! B(7906) = dA(4949)/dV(5216) - B(7906) = RCT(4949)*V(5253) -! B(7907) = dA(4949)/dV(5253) - B(7907) = RCT(4949)*V(5216) -! B(7908) = dA(4950)/dV(5216) - B(7908) = RCT(4950)*V(5256) -! B(7909) = dA(4950)/dV(5256) - B(7909) = RCT(4950)*V(5216) -! B(7910) = dA(4951)/dV(5216) - B(7910) = RCT(4951) -! B(7911) = dA(4952)/dV(5216) - B(7911) = RCT(4952) -! B(7912) = dA(4953)/dV(4796) - B(7912) = RCT(4953) -! B(7913) = dA(4954)/dV(4796) - B(7913) = RCT(4954)*V(5250) -! B(7914) = dA(4954)/dV(5250) - B(7914) = RCT(4954)*V(4796) -! B(7915) = dA(4955)/dV(1269) - B(7915) = RCT(4955)*V(5250) -! B(7916) = dA(4955)/dV(5250) - B(7916) = RCT(4955)*V(1269) -! B(7917) = dA(4956)/dV(12) - B(7917) = RCT(4956)*V(5250) -! B(7918) = dA(4956)/dV(5250) - B(7918) = RCT(4956)*V(12) -! B(7919) = dA(4957)/dV(4406) - B(7919) = RCT(4957)*V(5250) -! B(7920) = dA(4957)/dV(5250) - B(7920) = RCT(4957)*V(4406) -! B(7921) = dA(4958)/dV(4406) - B(7921) = RCT(4958) -! B(7922) = dA(4959)/dV(5155) - B(7922) = RCT(4959)*V(5255) -! B(7923) = dA(4959)/dV(5255) - B(7923) = RCT(4959)*V(5155) -! B(7924) = dA(4960)/dV(5155) - B(7924) = RCT(4960)*V(5255) -! B(7925) = dA(4960)/dV(5255) - B(7925) = RCT(4960)*V(5155) -! B(7926) = dA(4961)/dV(5155) - B(7926) = RCT(4961)*V(5255) -! B(7927) = dA(4961)/dV(5255) - B(7927) = RCT(4961)*V(5155) -! B(7928) = dA(4962)/dV(5155) - B(7928) = RCT(4962)*V(5252) -! B(7929) = dA(4962)/dV(5252) - B(7929) = RCT(4962)*V(5155) -! B(7930) = dA(4963)/dV(5155) - B(7930) = RCT(4963)*V(5253) -! B(7931) = dA(4963)/dV(5253) - B(7931) = RCT(4963)*V(5155) -! B(7932) = dA(4964)/dV(5155) - B(7932) = RCT(4964)*V(5256) -! B(7933) = dA(4964)/dV(5256) - B(7933) = RCT(4964)*V(5155) -! B(7934) = dA(4965)/dV(5155) - B(7934) = RCT(4965) -! B(7935) = dA(4966)/dV(5155) - B(7935) = RCT(4966) -! B(7936) = dA(4967)/dV(5036) - B(7936) = RCT(4967)*V(5255) -! B(7937) = dA(4967)/dV(5255) - B(7937) = RCT(4967)*V(5036) -! B(7938) = dA(4968)/dV(5036) - B(7938) = RCT(4968)*V(5255) -! B(7939) = dA(4968)/dV(5255) - B(7939) = RCT(4968)*V(5036) -! B(7940) = dA(4969)/dV(5036) - B(7940) = RCT(4969)*V(5255) -! B(7941) = dA(4969)/dV(5255) - B(7941) = RCT(4969)*V(5036) -! B(7942) = dA(4970)/dV(5036) - B(7942) = RCT(4970)*V(5252) -! B(7943) = dA(4970)/dV(5252) - B(7943) = RCT(4970)*V(5036) -! B(7944) = dA(4971)/dV(5036) - B(7944) = RCT(4971)*V(5253) -! B(7945) = dA(4971)/dV(5253) - B(7945) = RCT(4971)*V(5036) -! B(7946) = dA(4972)/dV(5036) - B(7946) = RCT(4972)*V(5256) -! B(7947) = dA(4972)/dV(5256) - B(7947) = RCT(4972)*V(5036) -! B(7948) = dA(4973)/dV(5036) - B(7948) = RCT(4973) -! B(7949) = dA(4974)/dV(5036) - B(7949) = RCT(4974) -! B(7950) = dA(4975)/dV(4557) - B(7950) = RCT(4975)*V(5255) -! B(7951) = dA(4975)/dV(5255) - B(7951) = RCT(4975)*V(4557) -! B(7952) = dA(4976)/dV(4557) - B(7952) = RCT(4976)*V(5255) -! B(7953) = dA(4976)/dV(5255) - B(7953) = RCT(4976)*V(4557) -! B(7954) = dA(4977)/dV(4557) - B(7954) = RCT(4977)*V(5252) -! B(7955) = dA(4977)/dV(5252) - B(7955) = RCT(4977)*V(4557) -! B(7956) = dA(4978)/dV(4557) - B(7956) = RCT(4978)*V(5253) -! B(7957) = dA(4978)/dV(5253) - B(7957) = RCT(4978)*V(4557) -! B(7958) = dA(4979)/dV(4557) - B(7958) = RCT(4979)*V(5256) -! B(7959) = dA(4979)/dV(5256) - B(7959) = RCT(4979)*V(4557) -! B(7960) = dA(4980)/dV(4557) - B(7960) = RCT(4980) -! B(7961) = dA(4981)/dV(3566) - B(7961) = RCT(4981) -! B(7962) = dA(4982)/dV(3566) - B(7962) = RCT(4982) -! B(7963) = dA(4983)/dV(5100) - B(7963) = RCT(4983)*V(5255) -! B(7964) = dA(4983)/dV(5255) - B(7964) = RCT(4983)*V(5100) -! B(7965) = dA(4984)/dV(5100) - B(7965) = RCT(4984)*V(5255) -! B(7966) = dA(4984)/dV(5255) - B(7966) = RCT(4984)*V(5100) -! B(7967) = dA(4985)/dV(5100) - B(7967) = RCT(4985)*V(5252) -! B(7968) = dA(4985)/dV(5252) - B(7968) = RCT(4985)*V(5100) -! B(7969) = dA(4986)/dV(5100) - B(7969) = RCT(4986)*V(5253) -! B(7970) = dA(4986)/dV(5253) - B(7970) = RCT(4986)*V(5100) -! B(7971) = dA(4987)/dV(5100) - B(7971) = RCT(4987)*V(5256) -! B(7972) = dA(4987)/dV(5256) - B(7972) = RCT(4987)*V(5100) -! B(7973) = dA(4988)/dV(5100) - B(7973) = RCT(4988) -! B(7974) = dA(4989)/dV(3932) - B(7974) = RCT(4989)*V(5255) -! B(7975) = dA(4989)/dV(5255) - B(7975) = RCT(4989)*V(3932) -! B(7976) = dA(4990)/dV(3932) - B(7976) = RCT(4990)*V(5252) -! B(7977) = dA(4990)/dV(5252) - B(7977) = RCT(4990)*V(3932) -! B(7978) = dA(4991)/dV(3932) - B(7978) = RCT(4991)*V(5252) -! B(7979) = dA(4991)/dV(5252) - B(7979) = RCT(4991)*V(3932) -! B(7980) = dA(4992)/dV(3932) - B(7980) = RCT(4992)*V(5256) -! B(7981) = dA(4992)/dV(5256) - B(7981) = RCT(4992)*V(3932) -! B(7982) = dA(4993)/dV(3932) - B(7982) = RCT(4993) -! B(7983) = dA(4994)/dV(3932) - B(7983) = RCT(4994) -! B(7984) = dA(4995)/dV(3932) - B(7984) = RCT(4995) -! B(7985) = dA(4996)/dV(3893) - B(7985) = RCT(4996)*V(5255) -! B(7986) = dA(4996)/dV(5255) - B(7986) = RCT(4996)*V(3893) -! B(7987) = dA(4997)/dV(3893) - B(7987) = RCT(4997)*V(5252) -! B(7988) = dA(4997)/dV(5252) - B(7988) = RCT(4997)*V(3893) -! B(7989) = dA(4998)/dV(3893) - B(7989) = RCT(4998)*V(5252) -! B(7990) = dA(4998)/dV(5252) - B(7990) = RCT(4998)*V(3893) -! B(7991) = dA(4999)/dV(3893) - B(7991) = RCT(4999)*V(5256) -! B(7992) = dA(4999)/dV(5256) - B(7992) = RCT(4999)*V(3893) -! B(7993) = dA(5000)/dV(3893) - B(7993) = RCT(5000) -! B(7994) = dA(5001)/dV(3893) - B(7994) = RCT(5001) -! B(7995) = dA(5002)/dV(3893) - B(7995) = RCT(5002) -! B(7996) = dA(5003)/dV(3885) - B(7996) = RCT(5003)*V(5255) -! B(7997) = dA(5003)/dV(5255) - B(7997) = RCT(5003)*V(3885) -! B(7998) = dA(5004)/dV(3885) - B(7998) = RCT(5004)*V(5252) -! B(7999) = dA(5004)/dV(5252) - B(7999) = RCT(5004)*V(3885) -! B(8000) = dA(5005)/dV(3885) - B(8000) = RCT(5005)*V(5252) -! B(8001) = dA(5005)/dV(5252) - B(8001) = RCT(5005)*V(3885) -! B(8002) = dA(5006)/dV(3885) - B(8002) = RCT(5006)*V(5256) -! B(8003) = dA(5006)/dV(5256) - B(8003) = RCT(5006)*V(3885) -! B(8004) = dA(5007)/dV(3885) - B(8004) = RCT(5007) -! B(8005) = dA(5008)/dV(3885) - B(8005) = RCT(5008) -! B(8006) = dA(5009)/dV(3885) - B(8006) = RCT(5009) -! B(8007) = dA(5010)/dV(4860) - B(8007) = RCT(5010)*V(5255) -! B(8008) = dA(5010)/dV(5255) - B(8008) = RCT(5010)*V(4860) -! B(8009) = dA(5011)/dV(4860) - B(8009) = RCT(5011)*V(5255) -! B(8010) = dA(5011)/dV(5255) - B(8010) = RCT(5011)*V(4860) -! B(8011) = dA(5012)/dV(4860) - B(8011) = RCT(5012)*V(5252) -! B(8012) = dA(5012)/dV(5252) - B(8012) = RCT(5012)*V(4860) -! B(8013) = dA(5013)/dV(4860) - B(8013) = RCT(5013)*V(5253) -! B(8014) = dA(5013)/dV(5253) - B(8014) = RCT(5013)*V(4860) -! B(8015) = dA(5014)/dV(4860) - B(8015) = RCT(5014)*V(5256) -! B(8016) = dA(5014)/dV(5256) - B(8016) = RCT(5014)*V(4860) -! B(8017) = dA(5015)/dV(4860) - B(8017) = RCT(5015) -! B(8018) = dA(5016)/dV(3870) - B(8018) = RCT(5016)*V(5255) -! B(8019) = dA(5016)/dV(5255) - B(8019) = RCT(5016)*V(3870) -! B(8020) = dA(5017)/dV(3870) - B(8020) = RCT(5017)*V(5252) -! B(8021) = dA(5017)/dV(5252) - B(8021) = RCT(5017)*V(3870) -! B(8022) = dA(5018)/dV(3870) - B(8022) = RCT(5018)*V(5252) -! B(8023) = dA(5018)/dV(5252) - B(8023) = RCT(5018)*V(3870) -! B(8024) = dA(5019)/dV(3870) - B(8024) = RCT(5019)*V(5256) -! B(8025) = dA(5019)/dV(5256) - B(8025) = RCT(5019)*V(3870) -! B(8026) = dA(5020)/dV(3870) - B(8026) = RCT(5020) -! B(8027) = dA(5021)/dV(3870) - B(8027) = RCT(5021) -! B(8028) = dA(5022)/dV(3870) - B(8028) = RCT(5022) -! B(8029) = dA(5023)/dV(4760) - B(8029) = RCT(5023)*V(5255) -! B(8030) = dA(5023)/dV(5255) - B(8030) = RCT(5023)*V(4760) -! B(8031) = dA(5024)/dV(4760) - B(8031) = RCT(5024)*V(5255) -! B(8032) = dA(5024)/dV(5255) - B(8032) = RCT(5024)*V(4760) -! B(8033) = dA(5025)/dV(4760) - B(8033) = RCT(5025)*V(5252) -! B(8034) = dA(5025)/dV(5252) - B(8034) = RCT(5025)*V(4760) -! B(8035) = dA(5026)/dV(4760) - B(8035) = RCT(5026)*V(5253) -! B(8036) = dA(5026)/dV(5253) - B(8036) = RCT(5026)*V(4760) -! B(8037) = dA(5027)/dV(4760) - B(8037) = RCT(5027)*V(5256) -! B(8038) = dA(5027)/dV(5256) - B(8038) = RCT(5027)*V(4760) -! B(8039) = dA(5028)/dV(4760) - B(8039) = RCT(5028) -! B(8040) = dA(5029)/dV(3718) - B(8040) = RCT(5029)*V(5255) -! B(8041) = dA(5029)/dV(5255) - B(8041) = RCT(5029)*V(3718) -! B(8042) = dA(5030)/dV(3718) - B(8042) = RCT(5030)*V(5252) -! B(8043) = dA(5030)/dV(5252) - B(8043) = RCT(5030)*V(3718) -! B(8044) = dA(5031)/dV(3718) - B(8044) = RCT(5031)*V(5252) -! B(8045) = dA(5031)/dV(5252) - B(8045) = RCT(5031)*V(3718) -! B(8046) = dA(5032)/dV(3718) - B(8046) = RCT(5032)*V(5256) -! B(8047) = dA(5032)/dV(5256) - B(8047) = RCT(5032)*V(3718) -! B(8048) = dA(5033)/dV(3718) - B(8048) = RCT(5033) -! B(8049) = dA(5034)/dV(3718) - B(8049) = RCT(5034) -! B(8050) = dA(5035)/dV(3718) - B(8050) = RCT(5035) -! B(8051) = dA(5036)/dV(3961) - B(8051) = RCT(5036)*V(5255) -! B(8052) = dA(5036)/dV(5255) - B(8052) = RCT(5036)*V(3961) -! B(8053) = dA(5037)/dV(3961) - B(8053) = RCT(5037)*V(5252) -! B(8054) = dA(5037)/dV(5252) - B(8054) = RCT(5037)*V(3961) -! B(8055) = dA(5038)/dV(3961) - B(8055) = RCT(5038)*V(5252) -! B(8056) = dA(5038)/dV(5252) - B(8056) = RCT(5038)*V(3961) -! B(8057) = dA(5039)/dV(3961) - B(8057) = RCT(5039)*V(5256) -! B(8058) = dA(5039)/dV(5256) - B(8058) = RCT(5039)*V(3961) -! B(8059) = dA(5040)/dV(3961) - B(8059) = RCT(5040) -! B(8060) = dA(5041)/dV(3961) - B(8060) = RCT(5041) -! B(8061) = dA(5042)/dV(3961) - B(8061) = RCT(5042) -! B(8062) = dA(5043)/dV(3967) - B(8062) = RCT(5043)*V(5255) -! B(8063) = dA(5043)/dV(5255) - B(8063) = RCT(5043)*V(3967) -! B(8064) = dA(5044)/dV(3967) - B(8064) = RCT(5044)*V(5252) -! B(8065) = dA(5044)/dV(5252) - B(8065) = RCT(5044)*V(3967) -! B(8066) = dA(5045)/dV(3967) - B(8066) = RCT(5045)*V(5252) -! B(8067) = dA(5045)/dV(5252) - B(8067) = RCT(5045)*V(3967) -! B(8068) = dA(5046)/dV(3967) - B(8068) = RCT(5046)*V(5256) -! B(8069) = dA(5046)/dV(5256) - B(8069) = RCT(5046)*V(3967) -! B(8070) = dA(5047)/dV(3967) - B(8070) = RCT(5047) -! B(8071) = dA(5048)/dV(3967) - B(8071) = RCT(5048) -! B(8072) = dA(5049)/dV(3967) - B(8072) = RCT(5049) -! B(8073) = dA(5050)/dV(4990) - B(8073) = RCT(5050)*V(5255) -! B(8074) = dA(5050)/dV(5255) - B(8074) = RCT(5050)*V(4990) -! B(8075) = dA(5051)/dV(4990) - B(8075) = RCT(5051)*V(5255) -! B(8076) = dA(5051)/dV(5255) - B(8076) = RCT(5051)*V(4990) -! B(8077) = dA(5052)/dV(4990) - B(8077) = RCT(5052)*V(5252) -! B(8078) = dA(5052)/dV(5252) - B(8078) = RCT(5052)*V(4990) -! B(8079) = dA(5053)/dV(4990) - B(8079) = RCT(5053)*V(5253) -! B(8080) = dA(5053)/dV(5253) - B(8080) = RCT(5053)*V(4990) -! B(8081) = dA(5054)/dV(4990) - B(8081) = RCT(5054)*V(5256) -! B(8082) = dA(5054)/dV(5256) - B(8082) = RCT(5054)*V(4990) -! B(8083) = dA(5055)/dV(4990) - B(8083) = RCT(5055) -! B(8084) = dA(5056)/dV(3869) - B(8084) = RCT(5056)*V(5255) -! B(8085) = dA(5056)/dV(5255) - B(8085) = RCT(5056)*V(3869) -! B(8086) = dA(5057)/dV(3869) - B(8086) = RCT(5057)*V(5252) -! B(8087) = dA(5057)/dV(5252) - B(8087) = RCT(5057)*V(3869) -! B(8088) = dA(5058)/dV(3869) - B(8088) = RCT(5058)*V(5252) -! B(8089) = dA(5058)/dV(5252) - B(8089) = RCT(5058)*V(3869) -! B(8090) = dA(5059)/dV(3869) - B(8090) = RCT(5059)*V(5256) -! B(8091) = dA(5059)/dV(5256) - B(8091) = RCT(5059)*V(3869) -! B(8092) = dA(5060)/dV(3869) - B(8092) = RCT(5060) -! B(8093) = dA(5061)/dV(3869) - B(8093) = RCT(5061) -! B(8094) = dA(5062)/dV(3869) - B(8094) = RCT(5062) -! B(8095) = dA(5063)/dV(3944) - B(8095) = RCT(5063)*V(5255) -! B(8096) = dA(5063)/dV(5255) - B(8096) = RCT(5063)*V(3944) -! B(8097) = dA(5064)/dV(3944) - B(8097) = RCT(5064)*V(5252) -! B(8098) = dA(5064)/dV(5252) - B(8098) = RCT(5064)*V(3944) -! B(8099) = dA(5065)/dV(3944) - B(8099) = RCT(5065)*V(5256) -! B(8100) = dA(5065)/dV(5256) - B(8100) = RCT(5065)*V(3944) -! B(8101) = dA(5066)/dV(3944) - B(8101) = RCT(5066) -! B(8102) = dA(5067)/dV(3944) - B(8102) = RCT(5067) -! B(8103) = dA(5068)/dV(4880) - B(8103) = RCT(5068)*V(5255) -! B(8104) = dA(5068)/dV(5255) - B(8104) = RCT(5068)*V(4880) -! B(8105) = dA(5069)/dV(4880) - B(8105) = RCT(5069)*V(5252) -! B(8106) = dA(5069)/dV(5252) - B(8106) = RCT(5069)*V(4880) -! B(8107) = dA(5070)/dV(4880) - B(8107) = RCT(5070)*V(5252) -! B(8108) = dA(5070)/dV(5252) - B(8108) = RCT(5070)*V(4880) -! B(8109) = dA(5071)/dV(4880) - B(8109) = RCT(5071)*V(5256) -! B(8110) = dA(5071)/dV(5256) - B(8110) = RCT(5071)*V(4880) -! B(8111) = dA(5072)/dV(4880) - B(8111) = RCT(5072) -! B(8112) = dA(5073)/dV(4880) - B(8112) = RCT(5073) -! B(8113) = dA(5074)/dV(4880) - B(8113) = RCT(5074) -! B(8114) = dA(5075)/dV(3778) - B(8114) = RCT(5075)*V(5255) -! B(8115) = dA(5075)/dV(5255) - B(8115) = RCT(5075)*V(3778) -! B(8116) = dA(5076)/dV(3778) - B(8116) = RCT(5076)*V(5252) -! B(8117) = dA(5076)/dV(5252) - B(8117) = RCT(5076)*V(3778) -! B(8118) = dA(5077)/dV(3778) - B(8118) = RCT(5077)*V(5252) -! B(8119) = dA(5077)/dV(5252) - B(8119) = RCT(5077)*V(3778) -! B(8120) = dA(5078)/dV(3778) - B(8120) = RCT(5078)*V(5256) -! B(8121) = dA(5078)/dV(5256) - B(8121) = RCT(5078)*V(3778) -! B(8122) = dA(5079)/dV(3778) - B(8122) = RCT(5079) -! B(8123) = dA(5080)/dV(3778) - B(8123) = RCT(5080) -! B(8124) = dA(5081)/dV(3778) - B(8124) = RCT(5081) -! B(8125) = dA(5082)/dV(3989) - B(8125) = RCT(5082)*V(5255) -! B(8126) = dA(5082)/dV(5255) - B(8126) = RCT(5082)*V(3989) -! B(8127) = dA(5083)/dV(3989) - B(8127) = RCT(5083)*V(5252) -! B(8128) = dA(5083)/dV(5252) - B(8128) = RCT(5083)*V(3989) -! B(8129) = dA(5084)/dV(3989) - B(8129) = RCT(5084)*V(5252) -! B(8130) = dA(5084)/dV(5252) - B(8130) = RCT(5084)*V(3989) -! B(8131) = dA(5085)/dV(3989) - B(8131) = RCT(5085)*V(5256) -! B(8132) = dA(5085)/dV(5256) - B(8132) = RCT(5085)*V(3989) -! B(8133) = dA(5086)/dV(3989) - B(8133) = RCT(5086) -! B(8134) = dA(5087)/dV(3989) - B(8134) = RCT(5087) -! B(8135) = dA(5088)/dV(3989) - B(8135) = RCT(5088) -! B(8136) = dA(5089)/dV(4515) - B(8136) = RCT(5089)*V(5255) -! B(8137) = dA(5089)/dV(5255) - B(8137) = RCT(5089)*V(4515) -! B(8138) = dA(5090)/dV(4515) - B(8138) = RCT(5090)*V(5255) -! B(8139) = dA(5090)/dV(5255) - B(8139) = RCT(5090)*V(4515) -! B(8140) = dA(5091)/dV(4515) - B(8140) = RCT(5091)*V(5252) -! B(8141) = dA(5091)/dV(5252) - B(8141) = RCT(5091)*V(4515) -! B(8142) = dA(5092)/dV(4515) - B(8142) = RCT(5092)*V(5253) -! B(8143) = dA(5092)/dV(5253) - B(8143) = RCT(5092)*V(4515) -! B(8144) = dA(5093)/dV(4515) - B(8144) = RCT(5093)*V(5256) -! B(8145) = dA(5093)/dV(5256) - B(8145) = RCT(5093)*V(4515) -! B(8146) = dA(5094)/dV(4515) - B(8146) = RCT(5094) -! B(8147) = dA(5095)/dV(3873) - B(8147) = RCT(5095)*V(5255) -! B(8148) = dA(5095)/dV(5255) - B(8148) = RCT(5095)*V(3873) -! B(8149) = dA(5096)/dV(3873) - B(8149) = RCT(5096)*V(5252) -! B(8150) = dA(5096)/dV(5252) - B(8150) = RCT(5096)*V(3873) -! B(8151) = dA(5097)/dV(3873) - B(8151) = RCT(5097)*V(5252) -! B(8152) = dA(5097)/dV(5252) - B(8152) = RCT(5097)*V(3873) -! B(8153) = dA(5098)/dV(3873) - B(8153) = RCT(5098)*V(5256) -! B(8154) = dA(5098)/dV(5256) - B(8154) = RCT(5098)*V(3873) -! B(8155) = dA(5099)/dV(3873) - B(8155) = RCT(5099) -! B(8156) = dA(5100)/dV(3873) - B(8156) = RCT(5100) -! B(8157) = dA(5101)/dV(3873) - B(8157) = RCT(5101) -! B(8158) = dA(5102)/dV(4334) - B(8158) = RCT(5102)*V(5255) -! B(8159) = dA(5102)/dV(5255) - B(8159) = RCT(5102)*V(4334) -! B(8160) = dA(5103)/dV(4334) - B(8160) = RCT(5103)*V(5252) -! B(8161) = dA(5103)/dV(5252) - B(8161) = RCT(5103)*V(4334) -! B(8162) = dA(5104)/dV(4334) - B(8162) = RCT(5104)*V(5252) -! B(8163) = dA(5104)/dV(5252) - B(8163) = RCT(5104)*V(4334) -! B(8164) = dA(5105)/dV(4334) - B(8164) = RCT(5105)*V(5256) -! B(8165) = dA(5105)/dV(5256) - B(8165) = RCT(5105)*V(4334) -! B(8166) = dA(5106)/dV(4334) - B(8166) = RCT(5106) -! B(8167) = dA(5107)/dV(4334) - B(8167) = RCT(5107) -! B(8168) = dA(5108)/dV(4334) - B(8168) = RCT(5108) -! B(8169) = dA(5109)/dV(3889) - B(8169) = RCT(5109)*V(5255) -! B(8170) = dA(5109)/dV(5255) - B(8170) = RCT(5109)*V(3889) -! B(8171) = dA(5110)/dV(3889) - B(8171) = RCT(5110)*V(5252) -! B(8172) = dA(5110)/dV(5252) - B(8172) = RCT(5110)*V(3889) -! B(8173) = dA(5111)/dV(3889) - B(8173) = RCT(5111)*V(5256) -! B(8174) = dA(5111)/dV(5256) - B(8174) = RCT(5111)*V(3889) -! B(8175) = dA(5112)/dV(3889) - B(8175) = RCT(5112) -! B(8176) = dA(5113)/dV(3889) - B(8176) = RCT(5113) -! B(8177) = dA(5114)/dV(3854) - B(8177) = RCT(5114)*V(5255) -! B(8178) = dA(5114)/dV(5255) - B(8178) = RCT(5114)*V(3854) -! B(8179) = dA(5115)/dV(3854) - B(8179) = RCT(5115)*V(5252) -! B(8180) = dA(5115)/dV(5252) - B(8180) = RCT(5115)*V(3854) -! B(8181) = dA(5116)/dV(3854) - B(8181) = RCT(5116)*V(5252) -! B(8182) = dA(5116)/dV(5252) - B(8182) = RCT(5116)*V(3854) -! B(8183) = dA(5117)/dV(3854) - B(8183) = RCT(5117)*V(5256) -! B(8184) = dA(5117)/dV(5256) - B(8184) = RCT(5117)*V(3854) -! B(8185) = dA(5118)/dV(3854) - B(8185) = RCT(5118) -! B(8186) = dA(5119)/dV(3854) - B(8186) = RCT(5119) -! B(8187) = dA(5120)/dV(3854) - B(8187) = RCT(5120) -! B(8188) = dA(5121)/dV(4469) - B(8188) = RCT(5121)*V(5255) -! B(8189) = dA(5121)/dV(5255) - B(8189) = RCT(5121)*V(4469) -! B(8190) = dA(5122)/dV(4469) - B(8190) = RCT(5122)*V(5255) -! B(8191) = dA(5122)/dV(5255) - B(8191) = RCT(5122)*V(4469) -! B(8192) = dA(5123)/dV(4469) - B(8192) = RCT(5123)*V(5252) -! B(8193) = dA(5123)/dV(5252) - B(8193) = RCT(5123)*V(4469) -! B(8194) = dA(5124)/dV(4469) - B(8194) = RCT(5124)*V(5253) -! B(8195) = dA(5124)/dV(5253) - B(8195) = RCT(5124)*V(4469) -! B(8196) = dA(5125)/dV(4469) - B(8196) = RCT(5125)*V(5256) -! B(8197) = dA(5125)/dV(5256) - B(8197) = RCT(5125)*V(4469) -! B(8198) = dA(5126)/dV(4469) - B(8198) = RCT(5126) -! B(8199) = dA(5127)/dV(3859) - B(8199) = RCT(5127)*V(5255) -! B(8200) = dA(5127)/dV(5255) - B(8200) = RCT(5127)*V(3859) -! B(8201) = dA(5128)/dV(3859) - B(8201) = RCT(5128)*V(5252) -! B(8202) = dA(5128)/dV(5252) - B(8202) = RCT(5128)*V(3859) -! B(8203) = dA(5129)/dV(3859) - B(8203) = RCT(5129)*V(5252) -! B(8204) = dA(5129)/dV(5252) - B(8204) = RCT(5129)*V(3859) -! B(8205) = dA(5130)/dV(3859) - B(8205) = RCT(5130)*V(5256) -! B(8206) = dA(5130)/dV(5256) - B(8206) = RCT(5130)*V(3859) -! B(8207) = dA(5131)/dV(3859) - B(8207) = RCT(5131) -! B(8208) = dA(5132)/dV(3859) - B(8208) = RCT(5132) -! B(8209) = dA(5133)/dV(3859) - B(8209) = RCT(5133) -! B(8210) = dA(5134)/dV(4771) - B(8210) = RCT(5134)*V(5255) -! B(8211) = dA(5134)/dV(5255) - B(8211) = RCT(5134)*V(4771) -! B(8212) = dA(5135)/dV(4771) - B(8212) = RCT(5135)*V(5255) -! B(8213) = dA(5135)/dV(5255) - B(8213) = RCT(5135)*V(4771) -! B(8214) = dA(5136)/dV(4771) - B(8214) = RCT(5136)*V(5255) -! B(8215) = dA(5136)/dV(5255) - B(8215) = RCT(5136)*V(4771) -! B(8216) = dA(5137)/dV(4771) - B(8216) = RCT(5137)*V(5252) -! B(8217) = dA(5137)/dV(5252) - B(8217) = RCT(5137)*V(4771) -! B(8218) = dA(5138)/dV(4771) - B(8218) = RCT(5138)*V(5253) -! B(8219) = dA(5138)/dV(5253) - B(8219) = RCT(5138)*V(4771) -! B(8220) = dA(5139)/dV(4771) - B(8220) = RCT(5139)*V(5256) -! B(8221) = dA(5139)/dV(5256) - B(8221) = RCT(5139)*V(4771) -! B(8222) = dA(5140)/dV(4771) - B(8222) = RCT(5140) -! B(8223) = dA(5141)/dV(4771) - B(8223) = RCT(5141) -! B(8224) = dA(5142)/dV(3667) - B(8224) = RCT(5142)*V(5255) -! B(8225) = dA(5142)/dV(5255) - B(8225) = RCT(5142)*V(3667) -! B(8226) = dA(5143)/dV(3667) - B(8226) = RCT(5143)*V(5252) -! B(8227) = dA(5143)/dV(5252) - B(8227) = RCT(5143)*V(3667) -! B(8228) = dA(5144)/dV(3667) - B(8228) = RCT(5144)*V(5252) -! B(8229) = dA(5144)/dV(5252) - B(8229) = RCT(5144)*V(3667) -! B(8230) = dA(5145)/dV(3667) - B(8230) = RCT(5145)*V(5256) -! B(8231) = dA(5145)/dV(5256) - B(8231) = RCT(5145)*V(3667) -! B(8232) = dA(5146)/dV(3667) - B(8232) = RCT(5146) -! B(8233) = dA(5147)/dV(3667) - B(8233) = RCT(5147) -! B(8234) = dA(5148)/dV(3667) - B(8234) = RCT(5148) -! B(8235) = dA(5149)/dV(4994) - B(8235) = RCT(5149)*V(5255) -! B(8236) = dA(5149)/dV(5255) - B(8236) = RCT(5149)*V(4994) -! B(8237) = dA(5150)/dV(4994) - B(8237) = RCT(5150)*V(5255) -! B(8238) = dA(5150)/dV(5255) - B(8238) = RCT(5150)*V(4994) -! B(8239) = dA(5151)/dV(4994) - B(8239) = RCT(5151)*V(5255) -! B(8240) = dA(5151)/dV(5255) - B(8240) = RCT(5151)*V(4994) -! B(8241) = dA(5152)/dV(4994) - B(8241) = RCT(5152)*V(5252) -! B(8242) = dA(5152)/dV(5252) - B(8242) = RCT(5152)*V(4994) -! B(8243) = dA(5153)/dV(4994) - B(8243) = RCT(5153)*V(5253) -! B(8244) = dA(5153)/dV(5253) - B(8244) = RCT(5153)*V(4994) -! B(8245) = dA(5154)/dV(4994) - B(8245) = RCT(5154)*V(5256) -! B(8246) = dA(5154)/dV(5256) - B(8246) = RCT(5154)*V(4994) -! B(8247) = dA(5155)/dV(4994) - B(8247) = RCT(5155) -! B(8248) = dA(5156)/dV(4994) - B(8248) = RCT(5156) -! B(8249) = dA(5157)/dV(5108) - B(8249) = RCT(5157)*V(5255) -! B(8250) = dA(5157)/dV(5255) - B(8250) = RCT(5157)*V(5108) -! B(8251) = dA(5158)/dV(5108) - B(8251) = RCT(5158)*V(5252) -! B(8252) = dA(5158)/dV(5252) - B(8252) = RCT(5158)*V(5108) -! B(8253) = dA(5159)/dV(5108) - B(8253) = RCT(5159)*V(5252) -! B(8254) = dA(5159)/dV(5252) - B(8254) = RCT(5159)*V(5108) -! B(8255) = dA(5160)/dV(5108) - B(8255) = RCT(5160)*V(5256) -! B(8256) = dA(5160)/dV(5256) - B(8256) = RCT(5160)*V(5108) -! B(8257) = dA(5161)/dV(5108) - B(8257) = RCT(5161) -! B(8258) = dA(5162)/dV(5108) - B(8258) = RCT(5162) -! B(8259) = dA(5163)/dV(5108) - B(8259) = RCT(5163) -! B(8260) = dA(5164)/dV(3785) - B(8260) = RCT(5164)*V(5255) -! B(8261) = dA(5164)/dV(5255) - B(8261) = RCT(5164)*V(3785) -! B(8262) = dA(5165)/dV(3785) - B(8262) = RCT(5165)*V(5252) -! B(8263) = dA(5165)/dV(5252) - B(8263) = RCT(5165)*V(3785) -! B(8264) = dA(5166)/dV(3785) - B(8264) = RCT(5166)*V(5256) -! B(8265) = dA(5166)/dV(5256) - B(8265) = RCT(5166)*V(3785) -! B(8266) = dA(5167)/dV(3785) - B(8266) = RCT(5167) -! B(8267) = dA(5168)/dV(4722) - B(8267) = RCT(5168)*V(5255) -! B(8268) = dA(5168)/dV(5255) - B(8268) = RCT(5168)*V(4722) -! B(8269) = dA(5169)/dV(4722) - B(8269) = RCT(5169)*V(5252) -! B(8270) = dA(5169)/dV(5252) - B(8270) = RCT(5169)*V(4722) -! B(8271) = dA(5170)/dV(4722) - B(8271) = RCT(5170)*V(5252) -! B(8272) = dA(5170)/dV(5252) - B(8272) = RCT(5170)*V(4722) -! B(8273) = dA(5171)/dV(4722) - B(8273) = RCT(5171)*V(5256) -! B(8274) = dA(5171)/dV(5256) - B(8274) = RCT(5171)*V(4722) -! B(8275) = dA(5172)/dV(4722) - B(8275) = RCT(5172) -! B(8276) = dA(5173)/dV(4722) - B(8276) = RCT(5173) -! B(8277) = dA(5174)/dV(3674) - B(8277) = RCT(5174)*V(5255) -! B(8278) = dA(5174)/dV(5255) - B(8278) = RCT(5174)*V(3674) -! B(8279) = dA(5175)/dV(3674) - B(8279) = RCT(5175)*V(5252) -! B(8280) = dA(5175)/dV(5252) - B(8280) = RCT(5175)*V(3674) -! B(8281) = dA(5176)/dV(3674) - B(8281) = RCT(5176)*V(5256) -! B(8282) = dA(5176)/dV(5256) - B(8282) = RCT(5176)*V(3674) -! B(8283) = dA(5177)/dV(3674) - B(8283) = RCT(5177) -! B(8284) = dA(5178)/dV(4577) - B(8284) = RCT(5178)*V(5255) -! B(8285) = dA(5178)/dV(5255) - B(8285) = RCT(5178)*V(4577) -! B(8286) = dA(5179)/dV(4577) - B(8286) = RCT(5179)*V(5252) -! B(8287) = dA(5179)/dV(5252) - B(8287) = RCT(5179)*V(4577) -! B(8288) = dA(5180)/dV(4577) - B(8288) = RCT(5180)*V(5252) -! B(8289) = dA(5180)/dV(5252) - B(8289) = RCT(5180)*V(4577) -! B(8290) = dA(5181)/dV(4577) - B(8290) = RCT(5181)*V(5256) -! B(8291) = dA(5181)/dV(5256) - B(8291) = RCT(5181)*V(4577) -! B(8292) = dA(5182)/dV(4577) - B(8292) = RCT(5182) -! B(8293) = dA(5183)/dV(4577) - B(8293) = RCT(5183) -! B(8294) = dA(5184)/dV(4577) - B(8294) = RCT(5184) -! B(8295) = dA(5185)/dV(5119) - B(8295) = RCT(5185)*V(5255) -! B(8296) = dA(5185)/dV(5255) - B(8296) = RCT(5185)*V(5119) -! B(8297) = dA(5186)/dV(5119) - B(8297) = RCT(5186)*V(5252) -! B(8298) = dA(5186)/dV(5252) - B(8298) = RCT(5186)*V(5119) -! B(8299) = dA(5187)/dV(5119) - B(8299) = RCT(5187)*V(5252) -! B(8300) = dA(5187)/dV(5252) - B(8300) = RCT(5187)*V(5119) -! B(8301) = dA(5188)/dV(5119) - B(8301) = RCT(5188)*V(5256) -! B(8302) = dA(5188)/dV(5256) - B(8302) = RCT(5188)*V(5119) -! B(8303) = dA(5189)/dV(5119) - B(8303) = RCT(5189) -! B(8304) = dA(5190)/dV(5119) - B(8304) = RCT(5190) -! B(8305) = dA(5191)/dV(5119) - B(8305) = RCT(5191) -! B(8306) = dA(5192)/dV(3730) - B(8306) = RCT(5192)*V(5255) -! B(8307) = dA(5192)/dV(5255) - B(8307) = RCT(5192)*V(3730) -! B(8308) = dA(5193)/dV(3730) - B(8308) = RCT(5193)*V(5252) -! B(8309) = dA(5193)/dV(5252) - B(8309) = RCT(5193)*V(3730) -! B(8310) = dA(5194)/dV(3730) - B(8310) = RCT(5194)*V(5256) -! B(8311) = dA(5194)/dV(5256) - B(8311) = RCT(5194)*V(3730) -! B(8312) = dA(5195)/dV(3730) - B(8312) = RCT(5195) -! B(8313) = dA(5196)/dV(3688) - B(8313) = RCT(5196)*V(5255) -! B(8314) = dA(5196)/dV(5255) - B(8314) = RCT(5196)*V(3688) -! B(8315) = dA(5197)/dV(3688) - B(8315) = RCT(5197)*V(5252) -! B(8316) = dA(5197)/dV(5252) - B(8316) = RCT(5197)*V(3688) -! B(8317) = dA(5198)/dV(3688) - B(8317) = RCT(5198)*V(5252) -! B(8318) = dA(5198)/dV(5252) - B(8318) = RCT(5198)*V(3688) -! B(8319) = dA(5199)/dV(3688) - B(8319) = RCT(5199)*V(5256) -! B(8320) = dA(5199)/dV(5256) - B(8320) = RCT(5199)*V(3688) -! B(8321) = dA(5200)/dV(3688) - B(8321) = RCT(5200) -! B(8322) = dA(5201)/dV(3688) - B(8322) = RCT(5201) -! B(8323) = dA(5202)/dV(3688) - B(8323) = RCT(5202) -! B(8324) = dA(5203)/dV(3749) - B(8324) = RCT(5203)*V(5255) -! B(8325) = dA(5203)/dV(5255) - B(8325) = RCT(5203)*V(3749) -! B(8326) = dA(5204)/dV(3749) - B(8326) = RCT(5204)*V(5252) -! B(8327) = dA(5204)/dV(5252) - B(8327) = RCT(5204)*V(3749) -! B(8328) = dA(5205)/dV(3749) - B(8328) = RCT(5205)*V(5252) -! B(8329) = dA(5205)/dV(5252) - B(8329) = RCT(5205)*V(3749) -! B(8330) = dA(5206)/dV(3749) - B(8330) = RCT(5206)*V(5256) -! B(8331) = dA(5206)/dV(5256) - B(8331) = RCT(5206)*V(3749) -! B(8332) = dA(5207)/dV(3749) - B(8332) = RCT(5207) -! B(8333) = dA(5208)/dV(3749) - B(8333) = RCT(5208) -! B(8334) = dA(5209)/dV(3749) - B(8334) = RCT(5209) -! B(8335) = dA(5210)/dV(3781) - B(8335) = RCT(5210)*V(5255) -! B(8336) = dA(5210)/dV(5255) - B(8336) = RCT(5210)*V(3781) -! B(8337) = dA(5211)/dV(3781) - B(8337) = RCT(5211)*V(5252) -! B(8338) = dA(5211)/dV(5252) - B(8338) = RCT(5211)*V(3781) -! B(8339) = dA(5212)/dV(3781) - B(8339) = RCT(5212)*V(5256) -! B(8340) = dA(5212)/dV(5256) - B(8340) = RCT(5212)*V(3781) -! B(8341) = dA(5213)/dV(3781) - B(8341) = RCT(5213) -! B(8342) = dA(5214)/dV(3751) - B(8342) = RCT(5214)*V(5255) -! B(8343) = dA(5214)/dV(5255) - B(8343) = RCT(5214)*V(3751) -! B(8344) = dA(5215)/dV(3751) - B(8344) = RCT(5215)*V(5252) -! B(8345) = dA(5215)/dV(5252) - B(8345) = RCT(5215)*V(3751) -! B(8346) = dA(5216)/dV(3751) - B(8346) = RCT(5216)*V(5252) -! B(8347) = dA(5216)/dV(5252) - B(8347) = RCT(5216)*V(3751) -! B(8348) = dA(5217)/dV(3751) - B(8348) = RCT(5217)*V(5256) -! B(8349) = dA(5217)/dV(5256) - B(8349) = RCT(5217)*V(3751) -! B(8350) = dA(5218)/dV(3751) - B(8350) = RCT(5218) -! B(8351) = dA(5219)/dV(3751) - B(8351) = RCT(5219) -! B(8352) = dA(5220)/dV(3751) - B(8352) = RCT(5220) -! B(8353) = dA(5221)/dV(3768) - B(8353) = RCT(5221)*V(5255) -! B(8354) = dA(5221)/dV(5255) - B(8354) = RCT(5221)*V(3768) -! B(8355) = dA(5222)/dV(3768) - B(8355) = RCT(5222)*V(5252) -! B(8356) = dA(5222)/dV(5252) - B(8356) = RCT(5222)*V(3768) -! B(8357) = dA(5223)/dV(3768) - B(8357) = RCT(5223)*V(5256) -! B(8358) = dA(5223)/dV(5256) - B(8358) = RCT(5223)*V(3768) -! B(8359) = dA(5224)/dV(3768) - B(8359) = RCT(5224) -! B(8360) = dA(5225)/dV(3731) - B(8360) = RCT(5225)*V(5255) -! B(8361) = dA(5225)/dV(5255) - B(8361) = RCT(5225)*V(3731) -! B(8362) = dA(5226)/dV(3731) - B(8362) = RCT(5226)*V(5252) -! B(8363) = dA(5226)/dV(5252) - B(8363) = RCT(5226)*V(3731) -! B(8364) = dA(5227)/dV(3731) - B(8364) = RCT(5227)*V(5252) -! B(8365) = dA(5227)/dV(5252) - B(8365) = RCT(5227)*V(3731) -! B(8366) = dA(5228)/dV(3731) - B(8366) = RCT(5228)*V(5256) -! B(8367) = dA(5228)/dV(5256) - B(8367) = RCT(5228)*V(3731) -! B(8368) = dA(5229)/dV(3731) - B(8368) = RCT(5229) -! B(8369) = dA(5230)/dV(3731) - B(8369) = RCT(5230) -! B(8370) = dA(5231)/dV(3731) - B(8370) = RCT(5231) -! B(8371) = dA(5232)/dV(3766) - B(8371) = RCT(5232)*V(5255) -! B(8372) = dA(5232)/dV(5255) - B(8372) = RCT(5232)*V(3766) -! B(8373) = dA(5233)/dV(3766) - B(8373) = RCT(5233)*V(5252) -! B(8374) = dA(5233)/dV(5252) - B(8374) = RCT(5233)*V(3766) -! B(8375) = dA(5234)/dV(3766) - B(8375) = RCT(5234)*V(5256) -! B(8376) = dA(5234)/dV(5256) - B(8376) = RCT(5234)*V(3766) -! B(8377) = dA(5235)/dV(3766) - B(8377) = RCT(5235) -! B(8378) = dA(5236)/dV(3690) - B(8378) = RCT(5236)*V(5255) -! B(8379) = dA(5236)/dV(5255) - B(8379) = RCT(5236)*V(3690) -! B(8380) = dA(5237)/dV(3690) - B(8380) = RCT(5237)*V(5252) -! B(8381) = dA(5237)/dV(5252) - B(8381) = RCT(5237)*V(3690) -! B(8382) = dA(5238)/dV(3690) - B(8382) = RCT(5238)*V(5252) -! B(8383) = dA(5238)/dV(5252) - B(8383) = RCT(5238)*V(3690) -! B(8384) = dA(5239)/dV(3690) - B(8384) = RCT(5239)*V(5256) -! B(8385) = dA(5239)/dV(5256) - B(8385) = RCT(5239)*V(3690) -! B(8386) = dA(5240)/dV(3690) - B(8386) = RCT(5240) -! B(8387) = dA(5241)/dV(3690) - B(8387) = RCT(5241) -! B(8388) = dA(5242)/dV(3690) - B(8388) = RCT(5242) -! B(8389) = dA(5243)/dV(3678) - B(8389) = RCT(5243)*V(5255) -! B(8390) = dA(5243)/dV(5255) - B(8390) = RCT(5243)*V(3678) -! B(8391) = dA(5244)/dV(3678) - B(8391) = RCT(5244)*V(5252) -! B(8392) = dA(5244)/dV(5252) - B(8392) = RCT(5244)*V(3678) -! B(8393) = dA(5245)/dV(3678) - B(8393) = RCT(5245)*V(5256) -! B(8394) = dA(5245)/dV(5256) - B(8394) = RCT(5245)*V(3678) -! B(8395) = dA(5246)/dV(3678) - B(8395) = RCT(5246) -! B(8396) = dA(5247)/dV(3691) - B(8396) = RCT(5247)*V(5255) -! B(8397) = dA(5247)/dV(5255) - B(8397) = RCT(5247)*V(3691) -! B(8398) = dA(5248)/dV(3691) - B(8398) = RCT(5248)*V(5252) -! B(8399) = dA(5248)/dV(5252) - B(8399) = RCT(5248)*V(3691) -! B(8400) = dA(5249)/dV(3691) - B(8400) = RCT(5249)*V(5252) -! B(8401) = dA(5249)/dV(5252) - B(8401) = RCT(5249)*V(3691) -! B(8402) = dA(5250)/dV(3691) - B(8402) = RCT(5250)*V(5256) -! B(8403) = dA(5250)/dV(5256) - B(8403) = RCT(5250)*V(3691) -! B(8404) = dA(5251)/dV(3691) - B(8404) = RCT(5251) -! B(8405) = dA(5252)/dV(3691) - B(8405) = RCT(5252) -! B(8406) = dA(5253)/dV(3691) - B(8406) = RCT(5253) -! B(8407) = dA(5254)/dV(3704) - B(8407) = RCT(5254)*V(5255) -! B(8408) = dA(5254)/dV(5255) - B(8408) = RCT(5254)*V(3704) -! B(8409) = dA(5255)/dV(3704) - B(8409) = RCT(5255)*V(5252) -! B(8410) = dA(5255)/dV(5252) - B(8410) = RCT(5255)*V(3704) -! B(8411) = dA(5256)/dV(3704) - B(8411) = RCT(5256)*V(5256) -! B(8412) = dA(5256)/dV(5256) - B(8412) = RCT(5256)*V(3704) -! B(8413) = dA(5257)/dV(3704) - B(8413) = RCT(5257) -! B(8414) = dA(5258)/dV(3952) - B(8414) = RCT(5258)*V(5255) -! B(8415) = dA(5258)/dV(5255) - B(8415) = RCT(5258)*V(3952) -! B(8416) = dA(5259)/dV(3952) - B(8416) = RCT(5259)*V(5252) -! B(8417) = dA(5259)/dV(5252) - B(8417) = RCT(5259)*V(3952) -! B(8418) = dA(5260)/dV(3952) - B(8418) = RCT(5260)*V(5252) -! B(8419) = dA(5260)/dV(5252) - B(8419) = RCT(5260)*V(3952) -! B(8420) = dA(5261)/dV(3952) - B(8420) = RCT(5261)*V(5256) -! B(8421) = dA(5261)/dV(5256) - B(8421) = RCT(5261)*V(3952) -! B(8422) = dA(5262)/dV(3952) - B(8422) = RCT(5262) -! B(8423) = dA(5263)/dV(3952) - B(8423) = RCT(5263) -! B(8424) = dA(5264)/dV(3952) - B(8424) = RCT(5264) -! B(8425) = dA(5265)/dV(5152) - B(8425) = RCT(5265)*V(5255) -! B(8426) = dA(5265)/dV(5255) - B(8426) = RCT(5265)*V(5152) -! B(8427) = dA(5266)/dV(5152) - B(8427) = RCT(5266)*V(5255) -! B(8428) = dA(5266)/dV(5255) - B(8428) = RCT(5266)*V(5152) -! B(8429) = dA(5267)/dV(5152) - B(8429) = RCT(5267)*V(5255) -! B(8430) = dA(5267)/dV(5255) - B(8430) = RCT(5267)*V(5152) -! B(8431) = dA(5268)/dV(5152) - B(8431) = RCT(5268)*V(5252) -! B(8432) = dA(5268)/dV(5252) - B(8432) = RCT(5268)*V(5152) -! B(8433) = dA(5269)/dV(5152) - B(8433) = RCT(5269)*V(5253) -! B(8434) = dA(5269)/dV(5253) - B(8434) = RCT(5269)*V(5152) -! B(8435) = dA(5270)/dV(5152) - B(8435) = RCT(5270)*V(5256) -! B(8436) = dA(5270)/dV(5256) - B(8436) = RCT(5270)*V(5152) -! B(8437) = dA(5271)/dV(5152) - B(8437) = RCT(5271) -! B(8438) = dA(5272)/dV(5152) - B(8438) = RCT(5272) -! B(8439) = dA(5273)/dV(4405) - B(8439) = RCT(5273)*V(5255) -! B(8440) = dA(5273)/dV(5255) - B(8440) = RCT(5273)*V(4405) -! B(8441) = dA(5274)/dV(4405) - B(8441) = RCT(5274)*V(5255) -! B(8442) = dA(5274)/dV(5255) - B(8442) = RCT(5274)*V(4405) -! B(8443) = dA(5275)/dV(4405) - B(8443) = RCT(5275)*V(5255) -! B(8444) = dA(5275)/dV(5255) - B(8444) = RCT(5275)*V(4405) -! B(8445) = dA(5276)/dV(4405) - B(8445) = RCT(5276)*V(5252) -! B(8446) = dA(5276)/dV(5252) - B(8446) = RCT(5276)*V(4405) -! B(8447) = dA(5277)/dV(4405) - B(8447) = RCT(5277)*V(5253) -! B(8448) = dA(5277)/dV(5253) - B(8448) = RCT(5277)*V(4405) -! B(8449) = dA(5278)/dV(4405) - B(8449) = RCT(5278)*V(5256) -! B(8450) = dA(5278)/dV(5256) - B(8450) = RCT(5278)*V(4405) -! B(8451) = dA(5279)/dV(4405) - B(8451) = RCT(5279) -! B(8452) = dA(5280)/dV(4405) - B(8452) = RCT(5280) -! B(8453) = dA(5281)/dV(2807) - B(8453) = RCT(5281) -! B(8454) = dA(5282)/dV(4724) - B(8454) = RCT(5282)*V(5255) -! B(8455) = dA(5282)/dV(5255) - B(8455) = RCT(5282)*V(4724) -! B(8456) = dA(5283)/dV(4724) - B(8456) = RCT(5283)*V(5252) -! B(8457) = dA(5283)/dV(5252) - B(8457) = RCT(5283)*V(4724) -! B(8458) = dA(5284)/dV(4724) - B(8458) = RCT(5284)*V(5256) -! B(8459) = dA(5284)/dV(5256) - B(8459) = RCT(5284)*V(4724) -! B(8460) = dA(5285)/dV(4724) - B(8460) = RCT(5285) -! B(8461) = dA(5286)/dV(4724) - B(8461) = RCT(5286) -! B(8462) = dA(5287)/dV(4724) - B(8462) = RCT(5287) -! B(8463) = dA(5288)/dV(3301) - B(8463) = RCT(5288) -! B(8464) = dA(5289)/dV(4275) - B(8464) = RCT(5289)*V(5255) -! B(8465) = dA(5289)/dV(5255) - B(8465) = RCT(5289)*V(4275) -! B(8466) = dA(5290)/dV(4275) - B(8466) = RCT(5290)*V(5255) -! B(8467) = dA(5290)/dV(5255) - B(8467) = RCT(5290)*V(4275) -! B(8468) = dA(5291)/dV(4275) - B(8468) = RCT(5291)*V(5252) -! B(8469) = dA(5291)/dV(5252) - B(8469) = RCT(5291)*V(4275) -! B(8470) = dA(5292)/dV(4275) - B(8470) = RCT(5292)*V(5253) -! B(8471) = dA(5292)/dV(5253) - B(8471) = RCT(5292)*V(4275) -! B(8472) = dA(5293)/dV(4275) - B(8472) = RCT(5293)*V(5256) -! B(8473) = dA(5293)/dV(5256) - B(8473) = RCT(5293)*V(4275) -! B(8474) = dA(5294)/dV(4275) - B(8474) = RCT(5294) -! B(8475) = dA(5295)/dV(4452) - B(8475) = RCT(5295)*V(5255) -! B(8476) = dA(5295)/dV(5255) - B(8476) = RCT(5295)*V(4452) -! B(8477) = dA(5296)/dV(4452) - B(8477) = RCT(5296)*V(5255) -! B(8478) = dA(5296)/dV(5255) - B(8478) = RCT(5296)*V(4452) -! B(8479) = dA(5297)/dV(4452) - B(8479) = RCT(5297)*V(5255) -! B(8480) = dA(5297)/dV(5255) - B(8480) = RCT(5297)*V(4452) -! B(8481) = dA(5298)/dV(4452) - B(8481) = RCT(5298)*V(5252) -! B(8482) = dA(5298)/dV(5252) - B(8482) = RCT(5298)*V(4452) -! B(8483) = dA(5299)/dV(4452) - B(8483) = RCT(5299)*V(5253) -! B(8484) = dA(5299)/dV(5253) - B(8484) = RCT(5299)*V(4452) -! B(8485) = dA(5300)/dV(4452) - B(8485) = RCT(5300)*V(5256) -! B(8486) = dA(5300)/dV(5256) - B(8486) = RCT(5300)*V(4452) -! B(8487) = dA(5301)/dV(4452) - B(8487) = RCT(5301) -! B(8488) = dA(5302)/dV(4452) - B(8488) = RCT(5302) -! B(8489) = dA(5303)/dV(4817) - B(8489) = RCT(5303)*V(5255) -! B(8490) = dA(5303)/dV(5255) - B(8490) = RCT(5303)*V(4817) -! B(8491) = dA(5304)/dV(4817) - B(8491) = RCT(5304)*V(5252) -! B(8492) = dA(5304)/dV(5252) - B(8492) = RCT(5304)*V(4817) -! B(8493) = dA(5305)/dV(4817) - B(8493) = RCT(5305)*V(5256) -! B(8494) = dA(5305)/dV(5256) - B(8494) = RCT(5305)*V(4817) -! B(8495) = dA(5306)/dV(4817) - B(8495) = RCT(5306) -! B(8496) = dA(5307)/dV(4817) - B(8496) = RCT(5307) -! B(8497) = dA(5308)/dV(4817) - B(8497) = RCT(5308) -! B(8498) = dA(5309)/dV(2163) - B(8498) = RCT(5309) -! B(8499) = dA(5310)/dV(4470) - B(8499) = RCT(5310)*V(5255) -! B(8500) = dA(5310)/dV(5255) - B(8500) = RCT(5310)*V(4470) -! B(8501) = dA(5311)/dV(4470) - B(8501) = RCT(5311)*V(5255) -! B(8502) = dA(5311)/dV(5255) - B(8502) = RCT(5311)*V(4470) -! B(8503) = dA(5312)/dV(4470) - B(8503) = RCT(5312)*V(5255) -! B(8504) = dA(5312)/dV(5255) - B(8504) = RCT(5312)*V(4470) -! B(8505) = dA(5313)/dV(4470) - B(8505) = RCT(5313)*V(5252) -! B(8506) = dA(5313)/dV(5252) - B(8506) = RCT(5313)*V(4470) -! B(8507) = dA(5314)/dV(4470) - B(8507) = RCT(5314)*V(5253) -! B(8508) = dA(5314)/dV(5253) - B(8508) = RCT(5314)*V(4470) -! B(8509) = dA(5315)/dV(4470) - B(8509) = RCT(5315)*V(5256) -! B(8510) = dA(5315)/dV(5256) - B(8510) = RCT(5315)*V(4470) -! B(8511) = dA(5316)/dV(4470) - B(8511) = RCT(5316) -! B(8512) = dA(5317)/dV(4470) - B(8512) = RCT(5317) -! B(8513) = dA(5318)/dV(3269) - B(8513) = RCT(5318) -! B(8514) = dA(5319)/dV(4856) - B(8514) = RCT(5319)*V(5255) -! B(8515) = dA(5319)/dV(5255) - B(8515) = RCT(5319)*V(4856) -! B(8516) = dA(5320)/dV(4856) - B(8516) = RCT(5320)*V(5252) -! B(8517) = dA(5320)/dV(5252) - B(8517) = RCT(5320)*V(4856) -! B(8518) = dA(5321)/dV(4856) - B(8518) = RCT(5321)*V(5256) -! B(8519) = dA(5321)/dV(5256) - B(8519) = RCT(5321)*V(4856) -! B(8520) = dA(5322)/dV(4856) - B(8520) = RCT(5322) -! B(8521) = dA(5323)/dV(4281) - B(8521) = RCT(5323)*V(5255) -! B(8522) = dA(5323)/dV(5255) - B(8522) = RCT(5323)*V(4281) -! B(8523) = dA(5324)/dV(4281) - B(8523) = RCT(5324)*V(5255) -! B(8524) = dA(5324)/dV(5255) - B(8524) = RCT(5324)*V(4281) -! B(8525) = dA(5325)/dV(4281) - B(8525) = RCT(5325)*V(5252) -! B(8526) = dA(5325)/dV(5252) - B(8526) = RCT(5325)*V(4281) -! B(8527) = dA(5326)/dV(4281) - B(8527) = RCT(5326)*V(5253) -! B(8528) = dA(5326)/dV(5253) - B(8528) = RCT(5326)*V(4281) -! B(8529) = dA(5327)/dV(4281) - B(8529) = RCT(5327)*V(5256) -! B(8530) = dA(5327)/dV(5256) - B(8530) = RCT(5327)*V(4281) -! B(8531) = dA(5328)/dV(4281) - B(8531) = RCT(5328) -! B(8532) = dA(5329)/dV(3964) - B(8532) = RCT(5329)*V(5255) -! B(8533) = dA(5329)/dV(5255) - B(8533) = RCT(5329)*V(3964) -! B(8534) = dA(5330)/dV(3964) - B(8534) = RCT(5330)*V(5252) -! B(8535) = dA(5330)/dV(5252) - B(8535) = RCT(5330)*V(3964) -! B(8536) = dA(5331)/dV(3964) - B(8536) = RCT(5331)*V(5256) -! B(8537) = dA(5331)/dV(5256) - B(8537) = RCT(5331)*V(3964) -! B(8538) = dA(5332)/dV(3964) - B(8538) = RCT(5332) -! B(8539) = dA(5333)/dV(4344) - B(8539) = RCT(5333)*V(5255) -! B(8540) = dA(5333)/dV(5255) - B(8540) = RCT(5333)*V(4344) -! B(8541) = dA(5334)/dV(4344) - B(8541) = RCT(5334)*V(5252) -! B(8542) = dA(5334)/dV(5252) - B(8542) = RCT(5334)*V(4344) -! B(8543) = dA(5335)/dV(4344) - B(8543) = RCT(5335)*V(5256) -! B(8544) = dA(5335)/dV(5256) - B(8544) = RCT(5335)*V(4344) -! B(8545) = dA(5336)/dV(4344) - B(8545) = RCT(5336) -! B(8546) = dA(5337)/dV(4522) - B(8546) = RCT(5337)*V(5255) -! B(8547) = dA(5337)/dV(5255) - B(8547) = RCT(5337)*V(4522) -! B(8548) = dA(5338)/dV(4522) - B(8548) = RCT(5338)*V(5255) -! B(8549) = dA(5338)/dV(5255) - B(8549) = RCT(5338)*V(4522) -! B(8550) = dA(5339)/dV(4522) - B(8550) = RCT(5339)*V(5255) -! B(8551) = dA(5339)/dV(5255) - B(8551) = RCT(5339)*V(4522) -! B(8552) = dA(5340)/dV(4522) - B(8552) = RCT(5340)*V(5252) -! B(8553) = dA(5340)/dV(5252) - B(8553) = RCT(5340)*V(4522) -! B(8554) = dA(5341)/dV(4522) - B(8554) = RCT(5341)*V(5253) -! B(8555) = dA(5341)/dV(5253) - B(8555) = RCT(5341)*V(4522) -! B(8556) = dA(5342)/dV(4522) - B(8556) = RCT(5342)*V(5256) -! B(8557) = dA(5342)/dV(5256) - B(8557) = RCT(5342)*V(4522) -! B(8558) = dA(5343)/dV(4522) - B(8558) = RCT(5343) -! B(8559) = dA(5344)/dV(4522) - B(8559) = RCT(5344) -! B(8560) = dA(5345)/dV(11) - B(8560) = RCT(5345) -! B(8561) = dA(5346)/dV(3888) - B(8561) = RCT(5346)*V(5255) -! B(8562) = dA(5346)/dV(5255) - B(8562) = RCT(5346)*V(3888) -! B(8563) = dA(5347)/dV(3888) - B(8563) = RCT(5347)*V(5252) -! B(8564) = dA(5347)/dV(5252) - B(8564) = RCT(5347)*V(3888) -! B(8565) = dA(5348)/dV(3888) - B(8565) = RCT(5348)*V(5256) -! B(8566) = dA(5348)/dV(5256) - B(8566) = RCT(5348)*V(3888) -! B(8567) = dA(5349)/dV(3888) - B(8567) = RCT(5349) -! B(8568) = dA(5350)/dV(3888) - B(8568) = RCT(5350) -! B(8569) = dA(5351)/dV(7) - B(8569) = RCT(5351) -! B(8570) = dA(5352)/dV(4433) - B(8570) = RCT(5352)*V(5255) -! B(8571) = dA(5352)/dV(5255) - B(8571) = RCT(5352)*V(4433) -! B(8572) = dA(5353)/dV(4433) - B(8572) = RCT(5353)*V(5255) -! B(8573) = dA(5353)/dV(5255) - B(8573) = RCT(5353)*V(4433) -! B(8574) = dA(5354)/dV(4433) - B(8574) = RCT(5354)*V(5255) -! B(8575) = dA(5354)/dV(5255) - B(8575) = RCT(5354)*V(4433) -! B(8576) = dA(5355)/dV(4433) - B(8576) = RCT(5355)*V(5252) -! B(8577) = dA(5355)/dV(5252) - B(8577) = RCT(5355)*V(4433) -! B(8578) = dA(5356)/dV(4433) - B(8578) = RCT(5356)*V(5253) -! B(8579) = dA(5356)/dV(5253) - B(8579) = RCT(5356)*V(4433) -! B(8580) = dA(5357)/dV(4433) - B(8580) = RCT(5357)*V(5256) -! B(8581) = dA(5357)/dV(5256) - B(8581) = RCT(5357)*V(4433) -! B(8582) = dA(5358)/dV(4433) - B(8582) = RCT(5358) -! B(8583) = dA(5359)/dV(4433) - B(8583) = RCT(5359) -! B(8584) = dA(5360)/dV(3252) - B(8584) = RCT(5360) -! B(8585) = dA(5361)/dV(4215) - B(8585) = RCT(5361)*V(5255) -! B(8586) = dA(5361)/dV(5255) - B(8586) = RCT(5361)*V(4215) -! B(8587) = dA(5362)/dV(4215) - B(8587) = RCT(5362)*V(5255) -! B(8588) = dA(5362)/dV(5255) - B(8588) = RCT(5362)*V(4215) -! B(8589) = dA(5363)/dV(4215) - B(8589) = RCT(5363)*V(5252) -! B(8590) = dA(5363)/dV(5252) - B(8590) = RCT(5363)*V(4215) -! B(8591) = dA(5364)/dV(4215) - B(8591) = RCT(5364)*V(5253) -! B(8592) = dA(5364)/dV(5253) - B(8592) = RCT(5364)*V(4215) -! B(8593) = dA(5365)/dV(4215) - B(8593) = RCT(5365)*V(5256) -! B(8594) = dA(5365)/dV(5256) - B(8594) = RCT(5365)*V(4215) -! B(8595) = dA(5366)/dV(4215) - B(8595) = RCT(5366) -! B(8596) = dA(5367)/dV(4345) - B(8596) = RCT(5367)*V(5255) -! B(8597) = dA(5367)/dV(5255) - B(8597) = RCT(5367)*V(4345) -! B(8598) = dA(5368)/dV(4345) - B(8598) = RCT(5368)*V(5252) -! B(8599) = dA(5368)/dV(5252) - B(8599) = RCT(5368)*V(4345) -! B(8600) = dA(5369)/dV(4345) - B(8600) = RCT(5369)*V(5256) -! B(8601) = dA(5369)/dV(5256) - B(8601) = RCT(5369)*V(4345) -! B(8602) = dA(5370)/dV(4345) - B(8602) = RCT(5370) -! B(8603) = dA(5371)/dV(4427) - B(8603) = RCT(5371)*V(5255) -! B(8604) = dA(5371)/dV(5255) - B(8604) = RCT(5371)*V(4427) -! B(8605) = dA(5372)/dV(4427) - B(8605) = RCT(5372)*V(5255) -! B(8606) = dA(5372)/dV(5255) - B(8606) = RCT(5372)*V(4427) -! B(8607) = dA(5373)/dV(4427) - B(8607) = RCT(5373)*V(5255) -! B(8608) = dA(5373)/dV(5255) - B(8608) = RCT(5373)*V(4427) -! B(8609) = dA(5374)/dV(4427) - B(8609) = RCT(5374)*V(5252) -! B(8610) = dA(5374)/dV(5252) - B(8610) = RCT(5374)*V(4427) -! B(8611) = dA(5375)/dV(4427) - B(8611) = RCT(5375)*V(5253) -! B(8612) = dA(5375)/dV(5253) - B(8612) = RCT(5375)*V(4427) -! B(8613) = dA(5376)/dV(4427) - B(8613) = RCT(5376)*V(5256) -! B(8614) = dA(5376)/dV(5256) - B(8614) = RCT(5376)*V(4427) -! B(8615) = dA(5377)/dV(4427) - B(8615) = RCT(5377) -! B(8616) = dA(5378)/dV(4427) - B(8616) = RCT(5378) -! B(8617) = dA(5379)/dV(4804) - B(8617) = RCT(5379)*V(5255) -! B(8618) = dA(5379)/dV(5255) - B(8618) = RCT(5379)*V(4804) -! B(8619) = dA(5380)/dV(4804) - B(8619) = RCT(5380)*V(5252) -! B(8620) = dA(5380)/dV(5252) - B(8620) = RCT(5380)*V(4804) -! B(8621) = dA(5381)/dV(4804) - B(8621) = RCT(5381)*V(5256) -! B(8622) = dA(5381)/dV(5256) - B(8622) = RCT(5381)*V(4804) -! B(8623) = dA(5382)/dV(4804) - B(8623) = RCT(5382) -! B(8624) = dA(5383)/dV(4804) - B(8624) = RCT(5383) -! B(8625) = dA(5384)/dV(4804) - B(8625) = RCT(5384) -! B(8626) = dA(5385)/dV(4889) - B(8626) = RCT(5385)*V(5255) -! B(8627) = dA(5385)/dV(5255) - B(8627) = RCT(5385)*V(4889) -! B(8628) = dA(5386)/dV(4889) - B(8628) = RCT(5386)*V(5252) -! B(8629) = dA(5386)/dV(5252) - B(8629) = RCT(5386)*V(4889) -! B(8630) = dA(5387)/dV(4889) - B(8630) = RCT(5387)*V(5256) -! B(8631) = dA(5387)/dV(5256) - B(8631) = RCT(5387)*V(4889) -! B(8632) = dA(5388)/dV(4889) - B(8632) = RCT(5388) -! B(8633) = dA(5389)/dV(4889) - B(8633) = RCT(5389) -! B(8634) = dA(5390)/dV(4889) - B(8634) = RCT(5390) -! B(8635) = dA(5391)/dV(4283) - B(8635) = RCT(5391)*V(5255) -! B(8636) = dA(5391)/dV(5255) - B(8636) = RCT(5391)*V(4283) -! B(8637) = dA(5392)/dV(4283) - B(8637) = RCT(5392)*V(5255) -! B(8638) = dA(5392)/dV(5255) - B(8638) = RCT(5392)*V(4283) -! B(8639) = dA(5393)/dV(4283) - B(8639) = RCT(5393)*V(5252) -! B(8640) = dA(5393)/dV(5252) - B(8640) = RCT(5393)*V(4283) -! B(8641) = dA(5394)/dV(4283) - B(8641) = RCT(5394)*V(5253) -! B(8642) = dA(5394)/dV(5253) - B(8642) = RCT(5394)*V(4283) -! B(8643) = dA(5395)/dV(4283) - B(8643) = RCT(5395)*V(5256) -! B(8644) = dA(5395)/dV(5256) - B(8644) = RCT(5395)*V(4283) -! B(8645) = dA(5396)/dV(4283) - B(8645) = RCT(5396) -! B(8646) = dA(5397)/dV(4590) - B(8646) = RCT(5397)*V(5255) -! B(8647) = dA(5397)/dV(5255) - B(8647) = RCT(5397)*V(4590) -! B(8648) = dA(5398)/dV(4590) - B(8648) = RCT(5398)*V(5252) -! B(8649) = dA(5398)/dV(5252) - B(8649) = RCT(5398)*V(4590) -! B(8650) = dA(5399)/dV(4590) - B(8650) = RCT(5399)*V(5256) -! B(8651) = dA(5399)/dV(5256) - B(8651) = RCT(5399)*V(4590) -! B(8652) = dA(5400)/dV(4590) - B(8652) = RCT(5400) -! B(8653) = dA(5401)/dV(4590) - B(8653) = RCT(5401) -! B(8654) = dA(5402)/dV(4590) - B(8654) = RCT(5402) -! B(8655) = dA(5403)/dV(4719) - B(8655) = RCT(5403)*V(5255) -! B(8656) = dA(5403)/dV(5255) - B(8656) = RCT(5403)*V(4719) -! B(8657) = dA(5404)/dV(4719) - B(8657) = RCT(5404)*V(5252) -! B(8658) = dA(5404)/dV(5252) - B(8658) = RCT(5404)*V(4719) -! B(8659) = dA(5405)/dV(4719) - B(8659) = RCT(5405)*V(5256) -! B(8660) = dA(5405)/dV(5256) - B(8660) = RCT(5405)*V(4719) -! B(8661) = dA(5406)/dV(4719) - B(8661) = RCT(5406) -! B(8662) = dA(5407)/dV(4719) - B(8662) = RCT(5407) -! B(8663) = dA(5408)/dV(4719) - B(8663) = RCT(5408) -! B(8664) = dA(5409)/dV(4951) - B(8664) = RCT(5409)*V(5256) -! B(8665) = dA(5409)/dV(5256) - B(8665) = RCT(5409)*V(4951) -! B(8666) = dA(5410)/dV(4951) - B(8666) = RCT(5410)*V(5258) -! B(8667) = dA(5410)/dV(5258) - B(8667) = RCT(5410)*V(4951) -! B(8668) = dA(5411)/dV(4951) - B(8668) = RCT(5411)*V(5250) -! B(8669) = dA(5411)/dV(5250) - B(8669) = RCT(5411)*V(4951) -! B(8670) = dA(5412)/dV(4916) - B(8670) = RCT(5412)*V(5255) -! B(8671) = dA(5412)/dV(5255) - B(8671) = RCT(5412)*V(4916) -! B(8672) = dA(5413)/dV(4916) - B(8672) = RCT(5413)*V(5255) -! B(8673) = dA(5413)/dV(5255) - B(8673) = RCT(5413)*V(4916) -! B(8674) = dA(5414)/dV(4916) - B(8674) = RCT(5414)*V(5255) -! B(8675) = dA(5414)/dV(5255) - B(8675) = RCT(5414)*V(4916) -! B(8676) = dA(5415)/dV(4916) - B(8676) = RCT(5415)*V(5252) -! B(8677) = dA(5415)/dV(5252) - B(8677) = RCT(5415)*V(4916) -! B(8678) = dA(5416)/dV(4916) - B(8678) = RCT(5416)*V(5253) -! B(8679) = dA(5416)/dV(5253) - B(8679) = RCT(5416)*V(4916) -! B(8680) = dA(5417)/dV(4916) - B(8680) = RCT(5417)*V(5256) -! B(8681) = dA(5417)/dV(5256) - B(8681) = RCT(5417)*V(4916) -! B(8682) = dA(5418)/dV(4916) - B(8682) = RCT(5418) -! B(8683) = dA(5419)/dV(4916) - B(8683) = RCT(5419) -! B(8684) = dA(5420)/dV(1210) - B(8684) = RCT(5420)*V(5250) -! B(8685) = dA(5420)/dV(5250) - B(8685) = RCT(5420)*V(1210) -! B(8686) = dA(5421)/dV(1210) - B(8686) = RCT(5421) -! B(8687) = dA(5422)/dV(1417) - B(8687) = RCT(5422)*V(5250) -! B(8688) = dA(5422)/dV(5250) - B(8688) = RCT(5422)*V(1417) -! B(8689) = dA(5423)/dV(1417) - B(8689) = RCT(5423) -! B(8690) = dA(5424)/dV(2955) - B(8690) = RCT(5424)*V(5250) -! B(8691) = dA(5424)/dV(5250) - B(8691) = RCT(5424)*V(2955) -! B(8692) = dA(5425)/dV(2955) - B(8692) = RCT(5425) -! B(8693) = dA(5426)/dV(4822) - B(8693) = RCT(5426)*V(5255) -! B(8694) = dA(5426)/dV(5255) - B(8694) = RCT(5426)*V(4822) -! B(8695) = dA(5427)/dV(4822) - B(8695) = RCT(5427)*V(5255) -! B(8696) = dA(5427)/dV(5255) - B(8696) = RCT(5427)*V(4822) -! B(8697) = dA(5428)/dV(4822) - B(8697) = RCT(5428)*V(5255) -! B(8698) = dA(5428)/dV(5255) - B(8698) = RCT(5428)*V(4822) -! B(8699) = dA(5429)/dV(4822) - B(8699) = RCT(5429)*V(5252) -! B(8700) = dA(5429)/dV(5252) - B(8700) = RCT(5429)*V(4822) -! B(8701) = dA(5430)/dV(4822) - B(8701) = RCT(5430)*V(5253) -! B(8702) = dA(5430)/dV(5253) - B(8702) = RCT(5430)*V(4822) -! B(8703) = dA(5431)/dV(4822) - B(8703) = RCT(5431)*V(5256) -! B(8704) = dA(5431)/dV(5256) - B(8704) = RCT(5431)*V(4822) -! B(8705) = dA(5432)/dV(4822) - B(8705) = RCT(5432) -! B(8706) = dA(5433)/dV(4822) - B(8706) = RCT(5433) -! B(8707) = dA(5434)/dV(4823) - B(8707) = RCT(5434)*V(5255) -! B(8708) = dA(5434)/dV(5255) - B(8708) = RCT(5434)*V(4823) -! B(8709) = dA(5435)/dV(4823) - B(8709) = RCT(5435)*V(5252) -! B(8710) = dA(5435)/dV(5252) - B(8710) = RCT(5435)*V(4823) -! B(8711) = dA(5436)/dV(4823) - B(8711) = RCT(5436)*V(5256) -! B(8712) = dA(5436)/dV(5256) - B(8712) = RCT(5436)*V(4823) -! B(8713) = dA(5437)/dV(4823) - B(8713) = RCT(5437) -! B(8714) = dA(5438)/dV(4823) - B(8714) = RCT(5438) -! B(8715) = dA(5439)/dV(4823) - B(8715) = RCT(5439) -! B(8716) = dA(5440)/dV(1016) - B(8716) = RCT(5440)*V(5250) -! B(8717) = dA(5440)/dV(5250) - B(8717) = RCT(5440)*V(1016) -! B(8718) = dA(5441)/dV(1016) - B(8718) = RCT(5441) -! B(8719) = dA(5442)/dV(3285) - B(8719) = RCT(5442)*V(5250) -! B(8720) = dA(5442)/dV(5250) - B(8720) = RCT(5442)*V(3285) -! B(8721) = dA(5443)/dV(3285) - B(8721) = RCT(5443) -! B(8722) = dA(5444)/dV(3576) - B(8722) = RCT(5444) -! B(8723) = dA(5445)/dV(3576) - B(8723) = RCT(5445) -! B(8724) = dA(5446)/dV(3416) - B(8724) = RCT(5446)*V(5250) -! B(8725) = dA(5446)/dV(5250) - B(8725) = RCT(5446)*V(3416) -! B(8726) = dA(5447)/dV(3416) - B(8726) = RCT(5447) -! B(8727) = dA(5448)/dV(788) - B(8727) = RCT(5448)*V(5250) -! B(8728) = dA(5448)/dV(5250) - B(8728) = RCT(5448)*V(788) -! B(8729) = dA(5449)/dV(788) - B(8729) = RCT(5449) -! B(8730) = dA(5450)/dV(3022) - B(8730) = RCT(5450)*V(5250) -! B(8731) = dA(5450)/dV(5250) - B(8731) = RCT(5450)*V(3022) -! B(8732) = dA(5451)/dV(3022) - B(8732) = RCT(5451) -! B(8733) = dA(5452)/dV(3022) - B(8733) = RCT(5452) -! B(8734) = dA(5453)/dV(2200) - B(8734) = RCT(5453) -! B(8735) = dA(5454)/dV(2448) - B(8735) = RCT(5454)*V(5250) -! B(8736) = dA(5454)/dV(5250) - B(8736) = RCT(5454)*V(2448) -! B(8737) = dA(5455)/dV(2448) - B(8737) = RCT(5455) -! B(8738) = dA(5456)/dV(1698) - B(8738) = RCT(5456)*V(5250) -! B(8739) = dA(5456)/dV(5250) - B(8739) = RCT(5456)*V(1698) -! B(8740) = dA(5457)/dV(1698) - B(8740) = RCT(5457) -! B(8741) = dA(5458)/dV(4358) - B(8741) = RCT(5458)*V(5255) -! B(8742) = dA(5458)/dV(5255) - B(8742) = RCT(5458)*V(4358) -! B(8743) = dA(5459)/dV(4358) - B(8743) = RCT(5459)*V(5252) -! B(8744) = dA(5459)/dV(5252) - B(8744) = RCT(5459)*V(4358) -! B(8745) = dA(5460)/dV(4358) - B(8745) = RCT(5460)*V(5256) -! B(8746) = dA(5460)/dV(5256) - B(8746) = RCT(5460)*V(4358) -! B(8747) = dA(5461)/dV(4358) - B(8747) = RCT(5461) -! B(8748) = dA(5462)/dV(4358) - B(8748) = RCT(5462) -! B(8749) = dA(5463)/dV(4358) - B(8749) = RCT(5463) -! B(8750) = dA(5464)/dV(3161) - B(8750) = RCT(5464)*V(5256) -! B(8751) = dA(5464)/dV(5256) - B(8751) = RCT(5464)*V(3161) -! B(8752) = dA(5465)/dV(3161) - B(8752) = RCT(5465)*V(5250) -! B(8753) = dA(5465)/dV(5250) - B(8753) = RCT(5465)*V(3161) -! B(8754) = dA(5466)/dV(2799) - B(8754) = RCT(5466)*V(5250) -! B(8755) = dA(5466)/dV(5250) - B(8755) = RCT(5466)*V(2799) -! B(8756) = dA(5467)/dV(2799) - B(8756) = RCT(5467) -! B(8757) = dA(5468)/dV(2799) - B(8757) = RCT(5468) -! B(8758) = dA(5469)/dV(2798) - B(8758) = RCT(5469) -! B(8759) = dA(5470)/dV(2468) - B(8759) = RCT(5470)*V(5250) -! B(8760) = dA(5470)/dV(5250) - B(8760) = RCT(5470)*V(2468) -! B(8761) = dA(5471)/dV(2468) - B(8761) = RCT(5471) -! B(8762) = dA(5472)/dV(4531) - B(8762) = RCT(5472)*V(5253) -! B(8763) = dA(5472)/dV(5253) - B(8763) = RCT(5472)*V(4531) -! B(8764) = dA(5473)/dV(4531) - B(8764) = RCT(5473)*V(5258) -! B(8765) = dA(5473)/dV(5258) - B(8765) = RCT(5473)*V(4531) -! B(8766) = dA(5474)/dV(614) - B(8766) = RCT(5474) -! B(8767) = dA(5475)/dV(1024) - B(8767) = RCT(5475)*V(5250) -! B(8768) = dA(5475)/dV(5250) - B(8768) = RCT(5475)*V(1024) -! B(8769) = dA(5476)/dV(1024) - B(8769) = RCT(5476) -! B(8770) = dA(5477)/dV(4603) - B(8770) = RCT(5477) -! B(8771) = dA(5478)/dV(4603) - B(8771) = RCT(5478) -! B(8772) = dA(5479)/dV(94) - B(8772) = RCT(5479)*V(5250) -! B(8773) = dA(5479)/dV(5250) - B(8773) = RCT(5479)*V(94) -! B(8774) = dA(5480)/dV(939) - B(8774) = RCT(5480)*V(5250) -! B(8775) = dA(5480)/dV(5250) - B(8775) = RCT(5480)*V(939) -! B(8776) = dA(5481)/dV(939) - B(8776) = RCT(5481) -! B(8777) = dA(5482)/dV(4488) - B(8777) = RCT(5482) -! B(8778) = dA(5483)/dV(4488) - B(8778) = RCT(5483) -! B(8779) = dA(5484)/dV(136) - B(8779) = RCT(5484)*V(5250) -! B(8780) = dA(5484)/dV(5250) - B(8780) = RCT(5484)*V(136) -! B(8781) = dA(5485)/dV(3253) - B(8781) = RCT(5485)*V(5250) -! B(8782) = dA(5485)/dV(5250) - B(8782) = RCT(5485)*V(3253) -! B(8783) = dA(5486)/dV(3253) - B(8783) = RCT(5486) -! B(8784) = dA(5487)/dV(3253) - B(8784) = RCT(5487) -! B(8785) = dA(5488)/dV(2506) - B(8785) = RCT(5488) -! B(8786) = dA(5489)/dV(1747) - B(8786) = RCT(5489)*V(5250) -! B(8787) = dA(5489)/dV(5250) - B(8787) = RCT(5489)*V(1747) -! B(8788) = dA(5490)/dV(1747) - B(8788) = RCT(5490) -! B(8789) = dA(5491)/dV(4048) - B(8789) = RCT(5491)*V(5256) -! B(8790) = dA(5491)/dV(5256) - B(8790) = RCT(5491)*V(4048) -! B(8791) = dA(5492)/dV(4048) - B(8791) = RCT(5492)*V(5250) -! B(8792) = dA(5492)/dV(5250) - B(8792) = RCT(5492)*V(4048) -! B(8793) = dA(5493)/dV(4592) - B(8793) = RCT(5493)*V(5255) -! B(8794) = dA(5493)/dV(5255) - B(8794) = RCT(5493)*V(4592) -! B(8795) = dA(5494)/dV(4592) - B(8795) = RCT(5494)*V(5252) -! B(8796) = dA(5494)/dV(5252) - B(8796) = RCT(5494)*V(4592) -! B(8797) = dA(5495)/dV(4592) - B(8797) = RCT(5495)*V(5256) -! B(8798) = dA(5495)/dV(5256) - B(8798) = RCT(5495)*V(4592) -! B(8799) = dA(5496)/dV(4592) - B(8799) = RCT(5496) -! B(8800) = dA(5497)/dV(4514) - B(8800) = RCT(5497)*V(5253) -! B(8801) = dA(5497)/dV(5253) - B(8801) = RCT(5497)*V(4514) -! B(8802) = dA(5498)/dV(4514) - B(8802) = RCT(5498)*V(5258) -! B(8803) = dA(5498)/dV(5258) - B(8803) = RCT(5498)*V(4514) -! B(8804) = dA(5499)/dV(628) - B(8804) = RCT(5499) -! B(8805) = dA(5500)/dV(5209) - B(8805) = RCT(5500)*V(5256) -! B(8806) = dA(5500)/dV(5256) - B(8806) = RCT(5500)*V(5209) -! B(8807) = dA(5501)/dV(5209) - B(8807) = RCT(5501)*V(5256) -! B(8808) = dA(5501)/dV(5256) - B(8808) = RCT(5501)*V(5209) -! B(8809) = dA(5502)/dV(5209) - B(8809) = RCT(5502)*V(5258) -! B(8810) = dA(5502)/dV(5258) - B(8810) = RCT(5502)*V(5209) -! B(8811) = dA(5503)/dV(5209) - B(8811) = RCT(5503)*V(5258) -! B(8812) = dA(5503)/dV(5258) - B(8812) = RCT(5503)*V(5209) -! B(8813) = dA(5504)/dV(5209) - B(8813) = RCT(5504)*V(5250) -! B(8814) = dA(5504)/dV(5250) - B(8814) = RCT(5504)*V(5209) -! B(8815) = dA(5505)/dV(5209) - B(8815) = RCT(5505)*V(5250) -! B(8816) = dA(5505)/dV(5250) - B(8816) = RCT(5505)*V(5209) -! B(8817) = dA(5506)/dV(5209) - B(8817) = RCT(5506)*V(5250) -! B(8818) = dA(5506)/dV(5250) - B(8818) = RCT(5506)*V(5209) -! B(8819) = dA(5507)/dV(5209) - B(8819) = RCT(5507) -! B(8820) = dA(5508)/dV(5209) - B(8820) = RCT(5508) -! B(8821) = dA(5509)/dV(5209) - B(8821) = RCT(5509) -! B(8822) = dA(5510)/dV(5123) - B(8822) = RCT(5510)*V(5256) -! B(8823) = dA(5510)/dV(5256) - B(8823) = RCT(5510)*V(5123) -! B(8824) = dA(5511)/dV(5123) - B(8824) = RCT(5511)*V(5258) -! B(8825) = dA(5511)/dV(5258) - B(8825) = RCT(5511)*V(5123) -! B(8826) = dA(5512)/dV(5123) - B(8826) = RCT(5512)*V(5258) -! B(8827) = dA(5512)/dV(5258) - B(8827) = RCT(5512)*V(5123) -! B(8828) = dA(5513)/dV(5123) - B(8828) = RCT(5513)*V(5250) -! B(8829) = dA(5513)/dV(5250) - B(8829) = RCT(5513)*V(5123) -! B(8830) = dA(5514)/dV(5123) - B(8830) = RCT(5514)*V(5250) -! B(8831) = dA(5514)/dV(5250) - B(8831) = RCT(5514)*V(5123) -! B(8832) = dA(5515)/dV(5123) - B(8832) = RCT(5515) -! B(8833) = dA(5516)/dV(5123) - B(8833) = RCT(5516) -! B(8834) = dA(5517)/dV(4952) - B(8834) = RCT(5517)*V(5256) -! B(8835) = dA(5517)/dV(5256) - B(8835) = RCT(5517)*V(4952) -! B(8836) = dA(5518)/dV(4952) - B(8836) = RCT(5518)*V(5258) -! B(8837) = dA(5518)/dV(5258) - B(8837) = RCT(5518)*V(4952) -! B(8838) = dA(5519)/dV(4952) - B(8838) = RCT(5519)*V(5250) -! B(8839) = dA(5519)/dV(5250) - B(8839) = RCT(5519)*V(4952) -! B(8840) = dA(5520)/dV(4986) - B(8840) = RCT(5520)*V(5255) -! B(8841) = dA(5520)/dV(5255) - B(8841) = RCT(5520)*V(4986) -! B(8842) = dA(5521)/dV(4986) - B(8842) = RCT(5521)*V(5255) -! B(8843) = dA(5521)/dV(5255) - B(8843) = RCT(5521)*V(4986) -! B(8844) = dA(5522)/dV(4986) - B(8844) = RCT(5522)*V(5255) -! B(8845) = dA(5522)/dV(5255) - B(8845) = RCT(5522)*V(4986) -! B(8846) = dA(5523)/dV(4986) - B(8846) = RCT(5523)*V(5252) -! B(8847) = dA(5523)/dV(5252) - B(8847) = RCT(5523)*V(4986) -! B(8848) = dA(5524)/dV(4986) - B(8848) = RCT(5524)*V(5253) -! B(8849) = dA(5524)/dV(5253) - B(8849) = RCT(5524)*V(4986) -! B(8850) = dA(5525)/dV(4986) - B(8850) = RCT(5525)*V(5256) -! B(8851) = dA(5525)/dV(5256) - B(8851) = RCT(5525)*V(4986) -! B(8852) = dA(5526)/dV(4986) - B(8852) = RCT(5526) -! B(8853) = dA(5527)/dV(4986) - B(8853) = RCT(5527) -! B(8854) = dA(5528)/dV(1316) - B(8854) = RCT(5528)*V(5250) -! B(8855) = dA(5528)/dV(5250) - B(8855) = RCT(5528)*V(1316) -! B(8856) = dA(5529)/dV(1316) - B(8856) = RCT(5529) -! B(8857) = dA(5530)/dV(837) - B(8857) = RCT(5530)*V(5250) -! B(8858) = dA(5530)/dV(5250) - B(8858) = RCT(5530)*V(837) -! B(8859) = dA(5531)/dV(837) - B(8859) = RCT(5531) -! B(8860) = dA(5532)/dV(3060) - B(8860) = RCT(5532)*V(5250) -! B(8861) = dA(5532)/dV(5250) - B(8861) = RCT(5532)*V(3060) -! B(8862) = dA(5533)/dV(3060) - B(8862) = RCT(5533) -! B(8863) = dA(5534)/dV(5102) - B(8863) = RCT(5534)*V(5251) -! B(8864) = dA(5534)/dV(5251) - B(8864) = RCT(5534)*V(5102) -! B(8865) = dA(5535)/dV(5102) - B(8865) = RCT(5535)*V(5252) -! B(8866) = dA(5535)/dV(5252) - B(8866) = RCT(5535)*V(5102) -! B(8867) = dA(5536)/dV(5102) - B(8867) = RCT(5536)*V(5253) -! B(8868) = dA(5536)/dV(5253) - B(8868) = RCT(5536)*V(5102) -! B(8869) = dA(5537)/dV(5102) - B(8869) = RCT(5537)*V(5254) -! B(8870) = dA(5537)/dV(5254) - B(8870) = RCT(5537)*V(5102) -! B(8871) = dA(5538)/dV(5102) - B(8871) = RCT(5538) -! B(8872) = dA(5539)/dV(5102) - B(8872) = RCT(5539) -! B(8873) = dA(5540)/dV(846) - B(8873) = RCT(5540)*V(5250) -! B(8874) = dA(5540)/dV(5250) - B(8874) = RCT(5540)*V(846) -! B(8875) = dA(5541)/dV(846) - B(8875) = RCT(5541) -! B(8876) = dA(5542)/dV(3379) - B(8876) = RCT(5542)*V(5250) -! B(8877) = dA(5542)/dV(5250) - B(8877) = RCT(5542)*V(3379) -! B(8878) = dA(5543)/dV(3379) - B(8878) = RCT(5543) -! B(8879) = dA(5544)/dV(3589) - B(8879) = RCT(5544) -! B(8880) = dA(5545)/dV(3589) - B(8880) = RCT(5545) -! B(8881) = dA(5546)/dV(3378) - B(8881) = RCT(5546)*V(5250) -! B(8882) = dA(5546)/dV(5250) - B(8882) = RCT(5546)*V(3378) -! B(8883) = dA(5547)/dV(3378) - B(8883) = RCT(5547) -! B(8884) = dA(5548)/dV(565) - B(8884) = RCT(5548)*V(5250) -! B(8885) = dA(5548)/dV(5250) - B(8885) = RCT(5548)*V(565) -! B(8886) = dA(5549)/dV(565) - B(8886) = RCT(5549) -! B(8887) = dA(5550)/dV(2501) - B(8887) = RCT(5550)*V(5250) -! B(8888) = dA(5550)/dV(5250) - B(8888) = RCT(5550)*V(2501) -! B(8889) = dA(5551)/dV(2501) - B(8889) = RCT(5551) -! B(8890) = dA(5552)/dV(2501) - B(8890) = RCT(5552) -! B(8891) = dA(5553)/dV(2234) - B(8891) = RCT(5553) -! B(8892) = dA(5554)/dV(1806) - B(8892) = RCT(5554)*V(5250) -! B(8893) = dA(5554)/dV(5250) - B(8893) = RCT(5554)*V(1806) -! B(8894) = dA(5555)/dV(1806) - B(8894) = RCT(5555) -! B(8895) = dA(5556)/dV(1588) - B(8895) = RCT(5556)*V(5250) -! B(8896) = dA(5556)/dV(5250) - B(8896) = RCT(5556)*V(1588) -! B(8897) = dA(5557)/dV(1588) - B(8897) = RCT(5557) -! B(8898) = dA(5558)/dV(4591) - B(8898) = RCT(5558)*V(5255) -! B(8899) = dA(5558)/dV(5255) - B(8899) = RCT(5558)*V(4591) -! B(8900) = dA(5559)/dV(4591) - B(8900) = RCT(5559)*V(5255) -! B(8901) = dA(5559)/dV(5255) - B(8901) = RCT(5559)*V(4591) -! B(8902) = dA(5560)/dV(4591) - B(8902) = RCT(5560)*V(5255) -! B(8903) = dA(5560)/dV(5255) - B(8903) = RCT(5560)*V(4591) -! B(8904) = dA(5561)/dV(4591) - B(8904) = RCT(5561)*V(5252) -! B(8905) = dA(5561)/dV(5252) - B(8905) = RCT(5561)*V(4591) -! B(8906) = dA(5562)/dV(4591) - B(8906) = RCT(5562)*V(5253) -! B(8907) = dA(5562)/dV(5253) - B(8907) = RCT(5562)*V(4591) -! B(8908) = dA(5563)/dV(4591) - B(8908) = RCT(5563)*V(5256) -! B(8909) = dA(5563)/dV(5256) - B(8909) = RCT(5563)*V(4591) -! B(8910) = dA(5564)/dV(4591) - B(8910) = RCT(5564) -! B(8911) = dA(5565)/dV(4591) - B(8911) = RCT(5565) -! B(8912) = dA(5566)/dV(2175) - B(8912) = RCT(5566)*V(5250) -! B(8913) = dA(5566)/dV(5250) - B(8913) = RCT(5566)*V(2175) -! B(8914) = dA(5567)/dV(2175) - B(8914) = RCT(5567) -! B(8915) = dA(5568)/dV(5076) - B(8915) = RCT(5568)*V(5256) -! B(8916) = dA(5568)/dV(5256) - B(8916) = RCT(5568)*V(5076) -! B(8917) = dA(5569)/dV(5076) - B(8917) = RCT(5569)*V(5258) -! B(8918) = dA(5569)/dV(5258) - B(8918) = RCT(5569)*V(5076) -! B(8919) = dA(5570)/dV(5076) - B(8919) = RCT(5570)*V(5258) -! B(8920) = dA(5570)/dV(5258) - B(8920) = RCT(5570)*V(5076) -! B(8921) = dA(5571)/dV(5076) - B(8921) = RCT(5571)*V(5250) -! B(8922) = dA(5571)/dV(5250) - B(8922) = RCT(5571)*V(5076) -! B(8923) = dA(5572)/dV(5076) - B(8923) = RCT(5572)*V(5250) -! B(8924) = dA(5572)/dV(5250) - B(8924) = RCT(5572)*V(5076) -! B(8925) = dA(5573)/dV(5076) - B(8925) = RCT(5573) -! B(8926) = dA(5574)/dV(5076) - B(8926) = RCT(5574) -! B(8927) = dA(5575)/dV(3519) - B(8927) = RCT(5575)*V(5256) -! B(8928) = dA(5575)/dV(5256) - B(8928) = RCT(5575)*V(3519) -! B(8929) = dA(5576)/dV(3519) - B(8929) = RCT(5576)*V(5258) -! B(8930) = dA(5576)/dV(5258) - B(8930) = RCT(5576)*V(3519) -! B(8931) = dA(5577)/dV(3519) - B(8931) = RCT(5577)*V(5250) -! B(8932) = dA(5577)/dV(5250) - B(8932) = RCT(5577)*V(3519) -! B(8933) = dA(5578)/dV(1343) - B(8933) = RCT(5578)*V(5250) -! B(8934) = dA(5578)/dV(5250) - B(8934) = RCT(5578)*V(1343) -! B(8935) = dA(5579)/dV(1343) - B(8935) = RCT(5579) -! B(8936) = dA(5580)/dV(937) - B(8936) = RCT(5580)*V(5250) -! B(8937) = dA(5580)/dV(5250) - B(8937) = RCT(5580)*V(937) -! B(8938) = dA(5581)/dV(937) - B(8938) = RCT(5581) -! B(8939) = dA(5582)/dV(3292) - B(8939) = RCT(5582)*V(5250) -! B(8940) = dA(5582)/dV(5250) - B(8940) = RCT(5582)*V(3292) -! B(8941) = dA(5583)/dV(3292) - B(8941) = RCT(5583) -! B(8942) = dA(5584)/dV(4740) - B(8942) = RCT(5584)*V(5255) -! B(8943) = dA(5584)/dV(5255) - B(8943) = RCT(5584)*V(4740) -! B(8944) = dA(5585)/dV(4740) - B(8944) = RCT(5585)*V(5255) -! B(8945) = dA(5585)/dV(5255) - B(8945) = RCT(5585)*V(4740) -! B(8946) = dA(5586)/dV(4740) - B(8946) = RCT(5586)*V(5255) -! B(8947) = dA(5586)/dV(5255) - B(8947) = RCT(5586)*V(4740) -! B(8948) = dA(5587)/dV(4740) - B(8948) = RCT(5587)*V(5252) -! B(8949) = dA(5587)/dV(5252) - B(8949) = RCT(5587)*V(4740) -! B(8950) = dA(5588)/dV(4740) - B(8950) = RCT(5588)*V(5253) -! B(8951) = dA(5588)/dV(5253) - B(8951) = RCT(5588)*V(4740) -! B(8952) = dA(5589)/dV(4740) - B(8952) = RCT(5589)*V(5256) -! B(8953) = dA(5589)/dV(5256) - B(8953) = RCT(5589)*V(4740) -! B(8954) = dA(5590)/dV(4740) - B(8954) = RCT(5590) -! B(8955) = dA(5591)/dV(4740) - B(8955) = RCT(5591) -! B(8956) = dA(5592)/dV(4947) - B(8956) = RCT(5592)*V(5255) -! B(8957) = dA(5592)/dV(5255) - B(8957) = RCT(5592)*V(4947) -! B(8958) = dA(5593)/dV(4947) - B(8958) = RCT(5593)*V(5252) -! B(8959) = dA(5593)/dV(5252) - B(8959) = RCT(5593)*V(4947) -! B(8960) = dA(5594)/dV(4947) - B(8960) = RCT(5594)*V(5256) -! B(8961) = dA(5594)/dV(5256) - B(8961) = RCT(5594)*V(4947) -! B(8962) = dA(5595)/dV(4947) - B(8962) = RCT(5595) -! B(8963) = dA(5596)/dV(1049) - B(8963) = RCT(5596)*V(5250) -! B(8964) = dA(5596)/dV(5250) - B(8964) = RCT(5596)*V(1049) -! B(8965) = dA(5597)/dV(1049) - B(8965) = RCT(5597) -! B(8966) = dA(5598)/dV(3177) - B(8966) = RCT(5598)*V(5250) -! B(8967) = dA(5598)/dV(5250) - B(8967) = RCT(5598)*V(3177) -! B(8968) = dA(5599)/dV(3177) - B(8968) = RCT(5599) -! B(8969) = dA(5600)/dV(3573) - B(8969) = RCT(5600) -! B(8970) = dA(5601)/dV(3573) - B(8970) = RCT(5601) -! B(8971) = dA(5602)/dV(3176) - B(8971) = RCT(5602)*V(5250) -! B(8972) = dA(5602)/dV(5250) - B(8972) = RCT(5602)*V(3176) -! B(8973) = dA(5603)/dV(3176) - B(8973) = RCT(5603) -! B(8974) = dA(5604)/dV(764) - B(8974) = RCT(5604)*V(5250) -! B(8975) = dA(5604)/dV(5250) - B(8975) = RCT(5604)*V(764) -! B(8976) = dA(5605)/dV(764) - B(8976) = RCT(5605) -! B(8977) = dA(5606)/dV(3469) - B(8977) = RCT(5606)*V(5250) -! B(8978) = dA(5606)/dV(5250) - B(8978) = RCT(5606)*V(3469) -! B(8979) = dA(5607)/dV(3469) - B(8979) = RCT(5607) -! B(8980) = dA(5608)/dV(3469) - B(8980) = RCT(5608) -! B(8981) = dA(5609)/dV(3469) - B(8981) = RCT(5609) -! B(8982) = dA(5610)/dV(755) - B(8982) = RCT(5610) -! B(8983) = dA(5611)/dV(1988) - B(8983) = RCT(5611)*V(5250) -! B(8984) = dA(5611)/dV(5250) - B(8984) = RCT(5611)*V(1988) -! B(8985) = dA(5612)/dV(1988) - B(8985) = RCT(5612) -! B(8986) = dA(5613)/dV(1988) - B(8986) = RCT(5613) -! B(8987) = dA(5614)/dV(3321) - B(8987) = RCT(5614)*V(5250) -! B(8988) = dA(5614)/dV(5250) - B(8988) = RCT(5614)*V(3321) -! B(8989) = dA(5615)/dV(3321) - B(8989) = RCT(5615) -! B(8990) = dA(5616)/dV(3321) - B(8990) = RCT(5616) -! B(8991) = dA(5617)/dV(2806) - B(8991) = RCT(5617) -! B(8992) = dA(5618)/dV(1549) - B(8992) = RCT(5618)*V(5250) -! B(8993) = dA(5618)/dV(5250) - B(8993) = RCT(5618)*V(1549) -! B(8994) = dA(5619)/dV(1549) - B(8994) = RCT(5619) -! B(8995) = dA(5620)/dV(3170) - B(8995) = RCT(5620)*V(5256) -! B(8996) = dA(5620)/dV(5256) - B(8996) = RCT(5620)*V(3170) -! B(8997) = dA(5621)/dV(3170) - B(8997) = RCT(5621)*V(5250) -! B(8998) = dA(5621)/dV(5250) - B(8998) = RCT(5621)*V(3170) -! B(8999) = dA(5622)/dV(4376) - B(8999) = RCT(5622)*V(5255) -! B(9000) = dA(5622)/dV(5255) - B(9000) = RCT(5622)*V(4376) -! B(9001) = dA(5623)/dV(4376) - B(9001) = RCT(5623)*V(5252) -! B(9002) = dA(5623)/dV(5252) - B(9002) = RCT(5623)*V(4376) -! B(9003) = dA(5624)/dV(4376) - B(9003) = RCT(5624)*V(5256) -! B(9004) = dA(5624)/dV(5256) - B(9004) = RCT(5624)*V(4376) -! B(9005) = dA(5625)/dV(4376) - B(9005) = RCT(5625) -! B(9006) = dA(5626)/dV(1157) - B(9006) = RCT(5626)*V(5250) -! B(9007) = dA(5626)/dV(5250) - B(9007) = RCT(5626)*V(1157) -! B(9008) = dA(5627)/dV(1157) - B(9008) = RCT(5627) -! B(9009) = dA(5628)/dV(4326) - B(9009) = RCT(5628) -! B(9010) = dA(5629)/dV(4326) - B(9010) = RCT(5629) -! B(9011) = dA(5630)/dV(109) - B(9011) = RCT(5630)*V(5250) -! B(9012) = dA(5630)/dV(5250) - B(9012) = RCT(5630)*V(109) -! B(9013) = dA(5631)/dV(4471) - B(9013) = RCT(5631)*V(5253) -! B(9014) = dA(5631)/dV(5253) - B(9014) = RCT(5631)*V(4471) -! B(9015) = dA(5632)/dV(4471) - B(9015) = RCT(5632)*V(5258) -! B(9016) = dA(5632)/dV(5258) - B(9016) = RCT(5632)*V(4471) -! B(9017) = dA(5633)/dV(723) - B(9017) = RCT(5633) -! B(9018) = dA(5634)/dV(4338) - B(9018) = RCT(5634)*V(5255) -! B(9019) = dA(5634)/dV(5255) - B(9019) = RCT(5634)*V(4338) -! B(9020) = dA(5635)/dV(4338) - B(9020) = RCT(5635)*V(5255) -! B(9021) = dA(5635)/dV(5255) - B(9021) = RCT(5635)*V(4338) -! B(9022) = dA(5636)/dV(4338) - B(9022) = RCT(5636)*V(5255) -! B(9023) = dA(5636)/dV(5255) - B(9023) = RCT(5636)*V(4338) -! B(9024) = dA(5637)/dV(4338) - B(9024) = RCT(5637)*V(5252) -! B(9025) = dA(5637)/dV(5252) - B(9025) = RCT(5637)*V(4338) -! B(9026) = dA(5638)/dV(4338) - B(9026) = RCT(5638)*V(5253) -! B(9027) = dA(5638)/dV(5253) - B(9027) = RCT(5638)*V(4338) -! B(9028) = dA(5639)/dV(4338) - B(9028) = RCT(5639)*V(5256) -! B(9029) = dA(5639)/dV(5256) - B(9029) = RCT(5639)*V(4338) -! B(9030) = dA(5640)/dV(4338) - B(9030) = RCT(5640) -! B(9031) = dA(5641)/dV(4338) - B(9031) = RCT(5641) -! B(9032) = dA(5642)/dV(4038) - B(9032) = RCT(5642)*V(5255) -! B(9033) = dA(5642)/dV(5255) - B(9033) = RCT(5642)*V(4038) -! B(9034) = dA(5643)/dV(4038) - B(9034) = RCT(5643)*V(5252) -! B(9035) = dA(5643)/dV(5252) - B(9035) = RCT(5643)*V(4038) -! B(9036) = dA(5644)/dV(4038) - B(9036) = RCT(5644)*V(5256) -! B(9037) = dA(5644)/dV(5256) - B(9037) = RCT(5644)*V(4038) -! B(9038) = dA(5645)/dV(4038) - B(9038) = RCT(5645) -! B(9039) = dA(5646)/dV(5089) - B(9039) = RCT(5646)*V(5256) -! B(9040) = dA(5646)/dV(5256) - B(9040) = RCT(5646)*V(5089) -! B(9041) = dA(5647)/dV(5089) - B(9041) = RCT(5647)*V(5258) -! B(9042) = dA(5647)/dV(5258) - B(9042) = RCT(5647)*V(5089) -! B(9043) = dA(5648)/dV(5089) - B(9043) = RCT(5648)*V(5258) -! B(9044) = dA(5648)/dV(5258) - B(9044) = RCT(5648)*V(5089) -! B(9045) = dA(5649)/dV(5089) - B(9045) = RCT(5649)*V(5250) -! B(9046) = dA(5649)/dV(5250) - B(9046) = RCT(5649)*V(5089) -! B(9047) = dA(5650)/dV(5089) - B(9047) = RCT(5650)*V(5250) -! B(9048) = dA(5650)/dV(5250) - B(9048) = RCT(5650)*V(5089) -! B(9049) = dA(5651)/dV(5089) - B(9049) = RCT(5651) -! B(9050) = dA(5652)/dV(5089) - B(9050) = RCT(5652) -! B(9051) = dA(5653)/dV(4895) - B(9051) = RCT(5653)*V(5256) -! B(9052) = dA(5653)/dV(5256) - B(9052) = RCT(5653)*V(4895) -! B(9053) = dA(5654)/dV(4895) - B(9053) = RCT(5654)*V(5258) -! B(9054) = dA(5654)/dV(5258) - B(9054) = RCT(5654)*V(4895) -! B(9055) = dA(5655)/dV(4895) - B(9055) = RCT(5655)*V(5250) -! B(9056) = dA(5655)/dV(5250) - B(9056) = RCT(5655)*V(4895) -! B(9057) = dA(5656)/dV(4927) - B(9057) = RCT(5656)*V(5256) -! B(9058) = dA(5656)/dV(5256) - B(9058) = RCT(5656)*V(4927) -! B(9059) = dA(5657)/dV(4927) - B(9059) = RCT(5657)*V(5258) -! B(9060) = dA(5657)/dV(5258) - B(9060) = RCT(5657)*V(4927) -! B(9061) = dA(5658)/dV(4927) - B(9061) = RCT(5658)*V(5250) -! B(9062) = dA(5658)/dV(5250) - B(9062) = RCT(5658)*V(4927) -! B(9063) = dA(5659)/dV(4773) - B(9063) = RCT(5659)*V(5255) -! B(9064) = dA(5659)/dV(5255) - B(9064) = RCT(5659)*V(4773) -! B(9065) = dA(5660)/dV(4773) - B(9065) = RCT(5660)*V(5255) -! B(9066) = dA(5660)/dV(5255) - B(9066) = RCT(5660)*V(4773) -! B(9067) = dA(5661)/dV(4773) - B(9067) = RCT(5661)*V(5252) -! B(9068) = dA(5661)/dV(5252) - B(9068) = RCT(5661)*V(4773) -! B(9069) = dA(5662)/dV(4773) - B(9069) = RCT(5662)*V(5253) -! B(9070) = dA(5662)/dV(5253) - B(9070) = RCT(5662)*V(4773) -! B(9071) = dA(5663)/dV(4773) - B(9071) = RCT(5663)*V(5256) -! B(9072) = dA(5663)/dV(5256) - B(9072) = RCT(5663)*V(4773) -! B(9073) = dA(5664)/dV(4773) - B(9073) = RCT(5664) -! B(9074) = dA(5665)/dV(1354) - B(9074) = RCT(5665)*V(5250) -! B(9075) = dA(5665)/dV(5250) - B(9075) = RCT(5665)*V(1354) -! B(9076) = dA(5666)/dV(1354) - B(9076) = RCT(5666) -! B(9077) = dA(5667)/dV(1296) - B(9077) = RCT(5667)*V(5250) -! B(9078) = dA(5667)/dV(5250) - B(9078) = RCT(5667)*V(1296) -! B(9079) = dA(5668)/dV(1296) - B(9079) = RCT(5668) -! B(9080) = dA(5669)/dV(3206) - B(9080) = RCT(5669)*V(5250) -! B(9081) = dA(5669)/dV(5250) - B(9081) = RCT(5669)*V(3206) -! B(9082) = dA(5670)/dV(3206) - B(9082) = RCT(5670) -! B(9083) = dA(5671)/dV(4684) - B(9083) = RCT(5671)*V(5255) -! B(9084) = dA(5671)/dV(5255) - B(9084) = RCT(5671)*V(4684) -! B(9085) = dA(5672)/dV(4684) - B(9085) = RCT(5672)*V(5255) -! B(9086) = dA(5672)/dV(5255) - B(9086) = RCT(5672)*V(4684) -! B(9087) = dA(5673)/dV(4684) - B(9087) = RCT(5673)*V(5255) -! B(9088) = dA(5673)/dV(5255) - B(9088) = RCT(5673)*V(4684) -! B(9089) = dA(5674)/dV(4684) - B(9089) = RCT(5674)*V(5252) -! B(9090) = dA(5674)/dV(5252) - B(9090) = RCT(5674)*V(4684) -! B(9091) = dA(5675)/dV(4684) - B(9091) = RCT(5675)*V(5253) -! B(9092) = dA(5675)/dV(5253) - B(9092) = RCT(5675)*V(4684) -! B(9093) = dA(5676)/dV(4684) - B(9093) = RCT(5676)*V(5256) -! B(9094) = dA(5676)/dV(5256) - B(9094) = RCT(5676)*V(4684) -! B(9095) = dA(5677)/dV(4684) - B(9095) = RCT(5677) -! B(9096) = dA(5678)/dV(4684) - B(9096) = RCT(5678) -! B(9097) = dA(5679)/dV(5001) - B(9097) = RCT(5679)*V(5255) -! B(9098) = dA(5679)/dV(5255) - B(9098) = RCT(5679)*V(5001) -! B(9099) = dA(5680)/dV(5001) - B(9099) = RCT(5680)*V(5252) -! B(9100) = dA(5680)/dV(5252) - B(9100) = RCT(5680)*V(5001) -! B(9101) = dA(5681)/dV(5001) - B(9101) = RCT(5681)*V(5256) -! B(9102) = dA(5681)/dV(5256) - B(9102) = RCT(5681)*V(5001) -! B(9103) = dA(5682)/dV(5001) - B(9103) = RCT(5682) -! B(9104) = dA(5683)/dV(5001) - B(9104) = RCT(5683) -! B(9105) = dA(5684)/dV(1415) - B(9105) = RCT(5684)*V(5250) -! B(9106) = dA(5684)/dV(5250) - B(9106) = RCT(5684)*V(1415) -! B(9107) = dA(5685)/dV(1415) - B(9107) = RCT(5685) -! B(9108) = dA(5686)/dV(3360) - B(9108) = RCT(5686)*V(5250) -! B(9109) = dA(5686)/dV(5250) - B(9109) = RCT(5686)*V(3360) -! B(9110) = dA(5687)/dV(3360) - B(9110) = RCT(5687) -! B(9111) = dA(5688)/dV(3614) - B(9111) = RCT(5688) -! B(9112) = dA(5689)/dV(3614) - B(9112) = RCT(5689) -! B(9113) = dA(5690)/dV(3359) - B(9113) = RCT(5690)*V(5250) -! B(9114) = dA(5690)/dV(5250) - B(9114) = RCT(5690)*V(3359) -! B(9115) = dA(5691)/dV(3359) - B(9115) = RCT(5691) -! B(9116) = dA(5692)/dV(779) - B(9116) = RCT(5692)*V(5250) -! B(9117) = dA(5692)/dV(5250) - B(9117) = RCT(5692)*V(779) -! B(9118) = dA(5693)/dV(779) - B(9118) = RCT(5693) -! B(9119) = dA(5694)/dV(1836) - B(9119) = RCT(5694)*V(5250) -! B(9120) = dA(5694)/dV(5250) - B(9120) = RCT(5694)*V(1836) -! B(9121) = dA(5695)/dV(1836) - B(9121) = RCT(5695) -! B(9122) = dA(5696)/dV(720) - B(9122) = RCT(5696) -! B(9123) = dA(5697)/dV(1610) - B(9123) = RCT(5697)*V(5250) -! B(9124) = dA(5697)/dV(5250) - B(9124) = RCT(5697)*V(1610) -! B(9125) = dA(5698)/dV(1610) - B(9125) = RCT(5698) -! B(9126) = dA(5699)/dV(1609) - B(9126) = RCT(5699)*V(5250) -! B(9127) = dA(5699)/dV(5250) - B(9127) = RCT(5699)*V(1609) -! B(9128) = dA(5700)/dV(1609) - B(9128) = RCT(5700) -! B(9129) = dA(5701)/dV(3125) - B(9129) = RCT(5701)*V(5256) -! B(9130) = dA(5701)/dV(5256) - B(9130) = RCT(5701)*V(3125) -! B(9131) = dA(5702)/dV(3125) - B(9131) = RCT(5702)*V(5250) -! B(9132) = dA(5702)/dV(5250) - B(9132) = RCT(5702)*V(3125) -! B(9133) = dA(5703)/dV(4075) - B(9133) = RCT(5703)*V(5255) -! B(9134) = dA(5703)/dV(5255) - B(9134) = RCT(5703)*V(4075) -! B(9135) = dA(5704)/dV(4075) - B(9135) = RCT(5704)*V(5252) -! B(9136) = dA(5704)/dV(5252) - B(9136) = RCT(5704)*V(4075) -! B(9137) = dA(5705)/dV(4075) - B(9137) = RCT(5705)*V(5256) -! B(9138) = dA(5705)/dV(5256) - B(9138) = RCT(5705)*V(4075) -! B(9139) = dA(5706)/dV(4075) - B(9139) = RCT(5706) -! B(9140) = dA(5707)/dV(1009) - B(9140) = RCT(5707)*V(5250) -! B(9141) = dA(5707)/dV(5250) - B(9141) = RCT(5707)*V(1009) -! B(9142) = dA(5708)/dV(1009) - B(9142) = RCT(5708) -! B(9143) = dA(5709)/dV(4448) - B(9143) = RCT(5709) -! B(9144) = dA(5710)/dV(4448) - B(9144) = RCT(5710) -! B(9145) = dA(5711)/dV(31) - B(9145) = RCT(5711)*V(5250) -! B(9146) = dA(5711)/dV(5250) - B(9146) = RCT(5711)*V(31) -! B(9147) = dA(5712)/dV(3320) - B(9147) = RCT(5712)*V(5250) -! B(9148) = dA(5712)/dV(5250) - B(9148) = RCT(5712)*V(3320) -! B(9149) = dA(5713)/dV(3320) - B(9149) = RCT(5713) -! B(9150) = dA(5714)/dV(3320) - B(9150) = RCT(5714) -! B(9151) = dA(5715)/dV(2762) - B(9151) = RCT(5715) -! B(9152) = dA(5716)/dV(1664) - B(9152) = RCT(5716)*V(5250) -! B(9153) = dA(5716)/dV(5250) - B(9153) = RCT(5716)*V(1664) -! B(9154) = dA(5717)/dV(1664) - B(9154) = RCT(5717) -! B(9155) = dA(5718)/dV(4487) - B(9155) = RCT(5718)*V(5253) -! B(9156) = dA(5718)/dV(5253) - B(9156) = RCT(5718)*V(4487) -! B(9157) = dA(5719)/dV(4487) - B(9157) = RCT(5719)*V(5258) -! B(9158) = dA(5719)/dV(5258) - B(9158) = RCT(5719)*V(4487) -! B(9159) = dA(5720)/dV(738) - B(9159) = RCT(5720) -! B(9160) = dA(5721)/dV(4100) - B(9160) = RCT(5721)*V(5255) -! B(9161) = dA(5721)/dV(5255) - B(9161) = RCT(5721)*V(4100) -! B(9162) = dA(5722)/dV(4100) - B(9162) = RCT(5722)*V(5255) -! B(9163) = dA(5722)/dV(5255) - B(9163) = RCT(5722)*V(4100) -! B(9164) = dA(5723)/dV(4100) - B(9164) = RCT(5723)*V(5255) -! B(9165) = dA(5723)/dV(5255) - B(9165) = RCT(5723)*V(4100) -! B(9166) = dA(5724)/dV(4100) - B(9166) = RCT(5724)*V(5252) -! B(9167) = dA(5724)/dV(5252) - B(9167) = RCT(5724)*V(4100) -! B(9168) = dA(5725)/dV(4100) - B(9168) = RCT(5725)*V(5253) -! B(9169) = dA(5725)/dV(5253) - B(9169) = RCT(5725)*V(4100) -! B(9170) = dA(5726)/dV(4100) - B(9170) = RCT(5726)*V(5256) -! B(9171) = dA(5726)/dV(5256) - B(9171) = RCT(5726)*V(4100) -! B(9172) = dA(5727)/dV(4100) - B(9172) = RCT(5727) -! B(9173) = dA(5728)/dV(4100) - B(9173) = RCT(5728) -! B(9174) = dA(5729)/dV(4005) - B(9174) = RCT(5729)*V(5255) -! B(9175) = dA(5729)/dV(5255) - B(9175) = RCT(5729)*V(4005) -! B(9176) = dA(5730)/dV(4005) - B(9176) = RCT(5730)*V(5252) -! B(9177) = dA(5730)/dV(5252) - B(9177) = RCT(5730)*V(4005) -! B(9178) = dA(5731)/dV(4005) - B(9178) = RCT(5731)*V(5256) -! B(9179) = dA(5731)/dV(5256) - B(9179) = RCT(5731)*V(4005) -! B(9180) = dA(5732)/dV(4005) - B(9180) = RCT(5732) -! B(9181) = dA(5733)/dV(5037) - B(9181) = RCT(5733)*V(5258) -! B(9182) = dA(5733)/dV(5258) - B(9182) = RCT(5733)*V(5037) -! B(9183) = dA(5734)/dV(5037) - B(9183) = RCT(5734)*V(5250) -! B(9184) = dA(5734)/dV(5250) - B(9184) = RCT(5734)*V(5037) -! B(9185) = dA(5735)/dV(5037) - B(9185) = RCT(5735) -! B(9186) = dA(5736)/dV(1403) - B(9186) = RCT(5736)*V(5250) -! B(9187) = dA(5736)/dV(5250) - B(9187) = RCT(5736)*V(1403) -! B(9188) = dA(5737)/dV(1403) - B(9188) = RCT(5737) -! B(9189) = dA(5738)/dV(941) - B(9189) = RCT(5738)*V(5250) -! B(9190) = dA(5738)/dV(5250) - B(9190) = RCT(5738)*V(941) -! B(9191) = dA(5739)/dV(941) - B(9191) = RCT(5739) -! B(9192) = dA(5740)/dV(2569) - B(9192) = RCT(5740)*V(5250) -! B(9193) = dA(5740)/dV(5250) - B(9193) = RCT(5740)*V(2569) -! B(9194) = dA(5741)/dV(2569) - B(9194) = RCT(5741) -! B(9195) = dA(5742)/dV(1167) - B(9195) = RCT(5742)*V(5250) -! B(9196) = dA(5742)/dV(5250) - B(9196) = RCT(5742)*V(1167) -! B(9197) = dA(5743)/dV(1167) - B(9197) = RCT(5743) -! B(9198) = dA(5744)/dV(3340) - B(9198) = RCT(5744)*V(5250) -! B(9199) = dA(5744)/dV(5250) - B(9199) = RCT(5744)*V(3340) -! B(9200) = dA(5745)/dV(3340) - B(9200) = RCT(5745) -! B(9201) = dA(5746)/dV(3605) - B(9201) = RCT(5746) -! B(9202) = dA(5747)/dV(3605) - B(9202) = RCT(5747) -! B(9203) = dA(5748)/dV(3339) - B(9203) = RCT(5748)*V(5250) -! B(9204) = dA(5748)/dV(5250) - B(9204) = RCT(5748)*V(3339) -! B(9205) = dA(5749)/dV(3339) - B(9205) = RCT(5749) -! B(9206) = dA(5750)/dV(681) - B(9206) = RCT(5750)*V(5250) -! B(9207) = dA(5750)/dV(5250) - B(9207) = RCT(5750)*V(681) -! B(9208) = dA(5751)/dV(681) - B(9208) = RCT(5751) -! B(9209) = dA(5752)/dV(3468) - B(9209) = RCT(5752)*V(5250) -! B(9210) = dA(5752)/dV(5250) - B(9210) = RCT(5752)*V(3468) -! B(9211) = dA(5753)/dV(3468) - B(9211) = RCT(5753) -! B(9212) = dA(5754)/dV(3468) - B(9212) = RCT(5754) -! B(9213) = dA(5755)/dV(3468) - B(9213) = RCT(5755) -! B(9214) = dA(5756)/dV(2837) - B(9214) = RCT(5756) -! B(9215) = dA(5757)/dV(2477) - B(9215) = RCT(5757)*V(5250) -! B(9216) = dA(5757)/dV(5250) - B(9216) = RCT(5757)*V(2477) -! B(9217) = dA(5758)/dV(2477) - B(9217) = RCT(5758) -! B(9218) = dA(5759)/dV(2477) - B(9218) = RCT(5759) -! B(9219) = dA(5760)/dV(2565) - B(9219) = RCT(5760)*V(5250) -! B(9220) = dA(5760)/dV(5250) - B(9220) = RCT(5760)*V(2565) -! B(9221) = dA(5761)/dV(2565) - B(9221) = RCT(5761) -! B(9222) = dA(5762)/dV(2565) - B(9222) = RCT(5762) -! B(9223) = dA(5763)/dV(2595) - B(9223) = RCT(5763) -! B(9224) = dA(5764)/dV(1700) - B(9224) = RCT(5764)*V(5250) -! B(9225) = dA(5764)/dV(5250) - B(9225) = RCT(5764)*V(1700) -! B(9226) = dA(5765)/dV(1700) - B(9226) = RCT(5765) -! B(9227) = dA(5766)/dV(3150) - B(9227) = RCT(5766)*V(5256) -! B(9228) = dA(5766)/dV(5256) - B(9228) = RCT(5766)*V(3150) -! B(9229) = dA(5767)/dV(3150) - B(9229) = RCT(5767)*V(5250) -! B(9230) = dA(5767)/dV(5250) - B(9230) = RCT(5767)*V(3150) -! B(9231) = dA(5768)/dV(4001) - B(9231) = RCT(5768)*V(5255) -! B(9232) = dA(5768)/dV(5255) - B(9232) = RCT(5768)*V(4001) -! B(9233) = dA(5769)/dV(4001) - B(9233) = RCT(5769)*V(5252) -! B(9234) = dA(5769)/dV(5252) - B(9234) = RCT(5769)*V(4001) -! B(9235) = dA(5770)/dV(4001) - B(9235) = RCT(5770)*V(5256) -! B(9236) = dA(5770)/dV(5256) - B(9236) = RCT(5770)*V(4001) -! B(9237) = dA(5771)/dV(4001) - B(9237) = RCT(5771) -! B(9238) = dA(5772)/dV(996) - B(9238) = RCT(5772)*V(5250) -! B(9239) = dA(5772)/dV(5250) - B(9239) = RCT(5772)*V(996) -! B(9240) = dA(5773)/dV(996) - B(9240) = RCT(5773) -! B(9241) = dA(5774)/dV(4012) - B(9241) = RCT(5774) -! B(9242) = dA(5775)/dV(4012) - B(9242) = RCT(5775) -! B(9243) = dA(5776)/dV(84) - B(9243) = RCT(5776)*V(5250) -! B(9244) = dA(5776)/dV(5250) - B(9244) = RCT(5776)*V(84) -! B(9245) = dA(5777)/dV(4509) - B(9245) = RCT(5777)*V(5253) -! B(9246) = dA(5777)/dV(5253) - B(9246) = RCT(5777)*V(4509) -! B(9247) = dA(5778)/dV(4509) - B(9247) = RCT(5778)*V(5258) -! B(9248) = dA(5778)/dV(5258) - B(9248) = RCT(5778)*V(4509) -! B(9249) = dA(5779)/dV(569) - B(9249) = RCT(5779) -! B(9250) = dA(5780)/dV(4187) - B(9250) = RCT(5780)*V(5255) -! B(9251) = dA(5780)/dV(5255) - B(9251) = RCT(5780)*V(4187) -! B(9252) = dA(5781)/dV(4187) - B(9252) = RCT(5781)*V(5255) -! B(9253) = dA(5781)/dV(5255) - B(9253) = RCT(5781)*V(4187) -! B(9254) = dA(5782)/dV(4187) - B(9254) = RCT(5782)*V(5255) -! B(9255) = dA(5782)/dV(5255) - B(9255) = RCT(5782)*V(4187) -! B(9256) = dA(5783)/dV(4187) - B(9256) = RCT(5783)*V(5252) -! B(9257) = dA(5783)/dV(5252) - B(9257) = RCT(5783)*V(4187) -! B(9258) = dA(5784)/dV(4187) - B(9258) = RCT(5784)*V(5253) -! B(9259) = dA(5784)/dV(5253) - B(9259) = RCT(5784)*V(4187) -! B(9260) = dA(5785)/dV(4187) - B(9260) = RCT(5785)*V(5256) -! B(9261) = dA(5785)/dV(5256) - B(9261) = RCT(5785)*V(4187) -! B(9262) = dA(5786)/dV(4187) - B(9262) = RCT(5786) -! B(9263) = dA(5787)/dV(4187) - B(9263) = RCT(5787) -! B(9264) = dA(5788)/dV(3093) - B(9264) = RCT(5788)*V(5256) -! B(9265) = dA(5788)/dV(5256) - B(9265) = RCT(5788)*V(3093) -! B(9266) = dA(5789)/dV(3093) - B(9266) = RCT(5789)*V(5250) -! B(9267) = dA(5789)/dV(5250) - B(9267) = RCT(5789)*V(3093) -! B(9268) = dA(5790)/dV(4020) - B(9268) = RCT(5790)*V(5255) -! B(9269) = dA(5790)/dV(5255) - B(9269) = RCT(5790)*V(4020) -! B(9270) = dA(5791)/dV(4020) - B(9270) = RCT(5791)*V(5252) -! B(9271) = dA(5791)/dV(5252) - B(9271) = RCT(5791)*V(4020) -! B(9272) = dA(5792)/dV(4020) - B(9272) = RCT(5792)*V(5256) -! B(9273) = dA(5792)/dV(5256) - B(9273) = RCT(5792)*V(4020) -! B(9274) = dA(5793)/dV(4020) - B(9274) = RCT(5793) -! B(9275) = dA(5794)/dV(938) - B(9275) = RCT(5794)*V(5250) -! B(9276) = dA(5794)/dV(5250) - B(9276) = RCT(5794)*V(938) -! B(9277) = dA(5795)/dV(938) - B(9277) = RCT(5795) -! B(9278) = dA(5796)/dV(4045) - B(9278) = RCT(5796) -! B(9279) = dA(5797)/dV(4045) - B(9279) = RCT(5797) -! B(9280) = dA(5798)/dV(47) - B(9280) = RCT(5798)*V(5250) -! B(9281) = dA(5798)/dV(5250) - B(9281) = RCT(5798)*V(47) -! B(9282) = dA(5799)/dV(2520) - B(9282) = RCT(5799)*V(5250) -! B(9283) = dA(5799)/dV(5250) - B(9283) = RCT(5799)*V(2520) -! B(9284) = dA(5800)/dV(2520) - B(9284) = RCT(5800) -! B(9285) = dA(5801)/dV(2520) - B(9285) = RCT(5801) -! B(9286) = dA(5802)/dV(3050) - B(9286) = RCT(5802) -! B(9287) = dA(5803)/dV(1613) - B(9287) = RCT(5803)*V(5250) -! B(9288) = dA(5803)/dV(5250) - B(9288) = RCT(5803)*V(1613) -! B(9289) = dA(5804)/dV(1613) - B(9289) = RCT(5804) -! B(9290) = dA(5805)/dV(4454) - B(9290) = RCT(5805)*V(5253) -! B(9291) = dA(5805)/dV(5253) - B(9291) = RCT(5805)*V(4454) -! B(9292) = dA(5806)/dV(4454) - B(9292) = RCT(5806)*V(5258) -! B(9293) = dA(5806)/dV(5258) - B(9293) = RCT(5806)*V(4454) -! B(9294) = dA(5807)/dV(568) - B(9294) = RCT(5807) -! B(9295) = dA(5808)/dV(5126) - B(9295) = RCT(5808)*V(5256) -! B(9296) = dA(5808)/dV(5256) - B(9296) = RCT(5808)*V(5126) -! B(9297) = dA(5809)/dV(5126) - B(9297) = RCT(5809)*V(5258) -! B(9298) = dA(5809)/dV(5258) - B(9298) = RCT(5809)*V(5126) -! B(9299) = dA(5810)/dV(5126) - B(9299) = RCT(5810)*V(5258) -! B(9300) = dA(5810)/dV(5258) - B(9300) = RCT(5810)*V(5126) -! B(9301) = dA(5811)/dV(5126) - B(9301) = RCT(5811)*V(5250) -! B(9302) = dA(5811)/dV(5250) - B(9302) = RCT(5811)*V(5126) -! B(9303) = dA(5812)/dV(5126) - B(9303) = RCT(5812)*V(5250) -! B(9304) = dA(5812)/dV(5250) - B(9304) = RCT(5812)*V(5126) -! B(9305) = dA(5813)/dV(5126) - B(9305) = RCT(5813) -! B(9306) = dA(5814)/dV(5126) - B(9306) = RCT(5814) -! B(9307) = dA(5815)/dV(4896) - B(9307) = RCT(5815)*V(5256) -! B(9308) = dA(5815)/dV(5256) - B(9308) = RCT(5815)*V(4896) -! B(9309) = dA(5816)/dV(4896) - B(9309) = RCT(5816)*V(5258) -! B(9310) = dA(5816)/dV(5258) - B(9310) = RCT(5816)*V(4896) -! B(9311) = dA(5817)/dV(4896) - B(9311) = RCT(5817)*V(5250) -! B(9312) = dA(5817)/dV(5250) - B(9312) = RCT(5817)*V(4896) -! B(9313) = dA(5818)/dV(5034) - B(9313) = RCT(5818)*V(5255) -! B(9314) = dA(5818)/dV(5255) - B(9314) = RCT(5818)*V(5034) -! B(9315) = dA(5819)/dV(5034) - B(9315) = RCT(5819)*V(5255) -! B(9316) = dA(5819)/dV(5255) - B(9316) = RCT(5819)*V(5034) -! B(9317) = dA(5820)/dV(5034) - B(9317) = RCT(5820)*V(5255) -! B(9318) = dA(5820)/dV(5255) - B(9318) = RCT(5820)*V(5034) -! B(9319) = dA(5821)/dV(5034) - B(9319) = RCT(5821)*V(5252) -! B(9320) = dA(5821)/dV(5252) - B(9320) = RCT(5821)*V(5034) -! B(9321) = dA(5822)/dV(5034) - B(9321) = RCT(5822)*V(5253) -! B(9322) = dA(5822)/dV(5253) - B(9322) = RCT(5822)*V(5034) -! B(9323) = dA(5823)/dV(5034) - B(9323) = RCT(5823)*V(5256) -! B(9324) = dA(5823)/dV(5256) - B(9324) = RCT(5823)*V(5034) -! B(9325) = dA(5824)/dV(5034) - B(9325) = RCT(5824) -! B(9326) = dA(5825)/dV(5034) - B(9326) = RCT(5825) -! B(9327) = dA(5826)/dV(961) - B(9327) = RCT(5826)*V(5250) -! B(9328) = dA(5826)/dV(5250) - B(9328) = RCT(5826)*V(961) -! B(9329) = dA(5827)/dV(961) - B(9329) = RCT(5827) -! B(9330) = dA(5828)/dV(921) - B(9330) = RCT(5828)*V(5250) -! B(9331) = dA(5828)/dV(5250) - B(9331) = RCT(5828)*V(921) -! B(9332) = dA(5829)/dV(921) - B(9332) = RCT(5829) -! B(9333) = dA(5830)/dV(2640) - B(9333) = RCT(5830)*V(5250) -! B(9334) = dA(5830)/dV(5250) - B(9334) = RCT(5830)*V(2640) -! B(9335) = dA(5831)/dV(2640) - B(9335) = RCT(5831) -! B(9336) = dA(5832)/dV(5070) - B(9336) = RCT(5832)*V(5251) -! B(9337) = dA(5832)/dV(5251) - B(9337) = RCT(5832)*V(5070) -! B(9338) = dA(5833)/dV(5070) - B(9338) = RCT(5833)*V(5252) -! B(9339) = dA(5833)/dV(5252) - B(9339) = RCT(5833)*V(5070) -! B(9340) = dA(5834)/dV(5070) - B(9340) = RCT(5834)*V(5253) -! B(9341) = dA(5834)/dV(5253) - B(9341) = RCT(5834)*V(5070) -! B(9342) = dA(5835)/dV(5070) - B(9342) = RCT(5835)*V(5254) -! B(9343) = dA(5835)/dV(5254) - B(9343) = RCT(5835)*V(5070) -! B(9344) = dA(5836)/dV(5070) - B(9344) = RCT(5836) -! B(9345) = dA(5837)/dV(5070) - B(9345) = RCT(5837) -! B(9346) = dA(5838)/dV(1510) - B(9346) = RCT(5838)*V(5250) -! B(9347) = dA(5838)/dV(5250) - B(9347) = RCT(5838)*V(1510) -! B(9348) = dA(5839)/dV(1510) - B(9348) = RCT(5839) -! B(9349) = dA(5840)/dV(3357) - B(9349) = RCT(5840)*V(5250) -! B(9350) = dA(5840)/dV(5250) - B(9350) = RCT(5840)*V(3357) -! B(9351) = dA(5841)/dV(3357) - B(9351) = RCT(5841) -! B(9352) = dA(5842)/dV(3588) - B(9352) = RCT(5842) -! B(9353) = dA(5843)/dV(3588) - B(9353) = RCT(5843) -! B(9354) = dA(5844)/dV(3356) - B(9354) = RCT(5844)*V(5250) -! B(9355) = dA(5844)/dV(5250) - B(9355) = RCT(5844)*V(3356) -! B(9356) = dA(5845)/dV(3356) - B(9356) = RCT(5845) -! B(9357) = dA(5846)/dV(683) - B(9357) = RCT(5846)*V(5250) -! B(9358) = dA(5846)/dV(5250) - B(9358) = RCT(5846)*V(683) -! B(9359) = dA(5847)/dV(683) - B(9359) = RCT(5847) -! B(9360) = dA(5848)/dV(3238) - B(9360) = RCT(5848)*V(5250) -! B(9361) = dA(5848)/dV(5250) - B(9361) = RCT(5848)*V(3238) -! B(9362) = dA(5849)/dV(3238) - B(9362) = RCT(5849) -! B(9363) = dA(5850)/dV(3238) - B(9363) = RCT(5850) -! B(9364) = dA(5851)/dV(1760) - B(9364) = RCT(5851) -! B(9365) = dA(5852)/dV(1598) - B(9365) = RCT(5852)*V(5250) -! B(9366) = dA(5852)/dV(5250) - B(9366) = RCT(5852)*V(1598) -! B(9367) = dA(5853)/dV(1598) - B(9367) = RCT(5853) -! B(9368) = dA(5854)/dV(2714) - B(9368) = RCT(5854)*V(5250) -! B(9369) = dA(5854)/dV(5250) - B(9369) = RCT(5854)*V(2714) -! B(9370) = dA(5855)/dV(2714) - B(9370) = RCT(5855) -! B(9371) = dA(5856)/dV(4030) - B(9371) = RCT(5856)*V(5255) -! B(9372) = dA(5856)/dV(5255) - B(9372) = RCT(5856)*V(4030) -! B(9373) = dA(5857)/dV(4030) - B(9373) = RCT(5857)*V(5252) -! B(9374) = dA(5857)/dV(5252) - B(9374) = RCT(5857)*V(4030) -! B(9375) = dA(5858)/dV(4030) - B(9375) = RCT(5858)*V(5256) -! B(9376) = dA(5858)/dV(5256) - B(9376) = RCT(5858)*V(4030) -! B(9377) = dA(5859)/dV(4030) - B(9377) = RCT(5859) -! B(9378) = dA(5860)/dV(4030) - B(9378) = RCT(5860) -! B(9379) = dA(5861)/dV(4030) - B(9379) = RCT(5861) -! B(9380) = dA(5862)/dV(3319) - B(9380) = RCT(5862)*V(5250) -! B(9381) = dA(5862)/dV(5250) - B(9381) = RCT(5862)*V(3319) -! B(9382) = dA(5863)/dV(3319) - B(9382) = RCT(5863) -! B(9383) = dA(5864)/dV(3319) - B(9383) = RCT(5864) -! B(9384) = dA(5865)/dV(2493) - B(9384) = RCT(5865) -! B(9385) = dA(5866)/dV(1672) - B(9385) = RCT(5866)*V(5250) -! B(9386) = dA(5866)/dV(5250) - B(9386) = RCT(5866)*V(1672) -! B(9387) = dA(5867)/dV(1672) - B(9387) = RCT(5867) -! B(9388) = dA(5868)/dV(3140) - B(9388) = RCT(5868)*V(5256) -! B(9389) = dA(5868)/dV(5256) - B(9389) = RCT(5868)*V(3140) -! B(9390) = dA(5869)/dV(3140) - B(9390) = RCT(5869)*V(5250) -! B(9391) = dA(5869)/dV(5250) - B(9391) = RCT(5869)*V(3140) -! B(9392) = dA(5870)/dV(4016) - B(9392) = RCT(5870)*V(5255) -! B(9393) = dA(5870)/dV(5255) - B(9393) = RCT(5870)*V(4016) -! B(9394) = dA(5871)/dV(4016) - B(9394) = RCT(5871)*V(5252) -! B(9395) = dA(5871)/dV(5252) - B(9395) = RCT(5871)*V(4016) -! B(9396) = dA(5872)/dV(4016) - B(9396) = RCT(5872)*V(5256) -! B(9397) = dA(5872)/dV(5256) - B(9397) = RCT(5872)*V(4016) -! B(9398) = dA(5873)/dV(4016) - B(9398) = RCT(5873) -! B(9399) = dA(5874)/dV(1023) - B(9399) = RCT(5874)*V(5250) -! B(9400) = dA(5874)/dV(5250) - B(9400) = RCT(5874)*V(1023) -! B(9401) = dA(5875)/dV(1023) - B(9401) = RCT(5875) -! B(9402) = dA(5876)/dV(4619) - B(9402) = RCT(5876) -! B(9403) = dA(5877)/dV(4619) - B(9403) = RCT(5877) -! B(9404) = dA(5878)/dV(143) - B(9404) = RCT(5878)*V(5250) -! B(9405) = dA(5878)/dV(5250) - B(9405) = RCT(5878)*V(143) -! B(9406) = dA(5879)/dV(4466) - B(9406) = RCT(5879)*V(5253) -! B(9407) = dA(5879)/dV(5253) - B(9407) = RCT(5879)*V(4466) -! B(9408) = dA(5880)/dV(4466) - B(9408) = RCT(5880)*V(5258) -! B(9409) = dA(5880)/dV(5258) - B(9409) = RCT(5880)*V(4466) -! B(9410) = dA(5881)/dV(538) - B(9410) = RCT(5881) -! B(9411) = dA(5882)/dV(4918) - B(9411) = RCT(5882)*V(5256) -! B(9412) = dA(5882)/dV(5256) - B(9412) = RCT(5882)*V(4918) -! B(9413) = dA(5883)/dV(4918) - B(9413) = RCT(5883)*V(5250) -! B(9414) = dA(5883)/dV(5250) - B(9414) = RCT(5883)*V(4918) -! B(9415) = dA(5884)/dV(4918) - B(9415) = RCT(5884) -! B(9416) = dA(5885)/dV(5066) - B(9416) = RCT(5885)*V(5256) -! B(9417) = dA(5885)/dV(5256) - B(9417) = RCT(5885)*V(5066) -! B(9418) = dA(5886)/dV(5066) - B(9418) = RCT(5886)*V(5258) -! B(9419) = dA(5886)/dV(5258) - B(9419) = RCT(5886)*V(5066) -! B(9420) = dA(5887)/dV(5066) - B(9420) = RCT(5887)*V(5258) -! B(9421) = dA(5887)/dV(5258) - B(9421) = RCT(5887)*V(5066) -! B(9422) = dA(5888)/dV(5066) - B(9422) = RCT(5888)*V(5250) -! B(9423) = dA(5888)/dV(5250) - B(9423) = RCT(5888)*V(5066) -! B(9424) = dA(5889)/dV(5066) - B(9424) = RCT(5889)*V(5250) -! B(9425) = dA(5889)/dV(5250) - B(9425) = RCT(5889)*V(5066) -! B(9426) = dA(5890)/dV(5066) - B(9426) = RCT(5890) -! B(9427) = dA(5891)/dV(5066) - B(9427) = RCT(5891) -! B(9428) = dA(5892)/dV(4637) - B(9428) = RCT(5892)*V(5256) -! B(9429) = dA(5892)/dV(5256) - B(9429) = RCT(5892)*V(4637) -! B(9430) = dA(5893)/dV(4637) - B(9430) = RCT(5893)*V(5258) -! B(9431) = dA(5893)/dV(5258) - B(9431) = RCT(5893)*V(4637) -! B(9432) = dA(5894)/dV(4637) - B(9432) = RCT(5894)*V(5250) -! B(9433) = dA(5894)/dV(5250) - B(9433) = RCT(5894)*V(4637) -! B(9434) = dA(5895)/dV(4917) - B(9434) = RCT(5895)*V(5255) -! B(9435) = dA(5895)/dV(5255) - B(9435) = RCT(5895)*V(4917) -! B(9436) = dA(5896)/dV(4917) - B(9436) = RCT(5896)*V(5255) -! B(9437) = dA(5896)/dV(5255) - B(9437) = RCT(5896)*V(4917) -! B(9438) = dA(5897)/dV(4917) - B(9438) = RCT(5897)*V(5255) -! B(9439) = dA(5897)/dV(5255) - B(9439) = RCT(5897)*V(4917) -! B(9440) = dA(5898)/dV(4917) - B(9440) = RCT(5898)*V(5252) -! B(9441) = dA(5898)/dV(5252) - B(9441) = RCT(5898)*V(4917) -! B(9442) = dA(5899)/dV(4917) - B(9442) = RCT(5899)*V(5253) -! B(9443) = dA(5899)/dV(5253) - B(9443) = RCT(5899)*V(4917) -! B(9444) = dA(5900)/dV(4917) - B(9444) = RCT(5900)*V(5256) -! B(9445) = dA(5900)/dV(5256) - B(9445) = RCT(5900)*V(4917) -! B(9446) = dA(5901)/dV(4917) - B(9446) = RCT(5901) -! B(9447) = dA(5902)/dV(4917) - B(9447) = RCT(5902) -! B(9448) = dA(5903)/dV(1073) - B(9448) = RCT(5903)*V(5250) -! B(9449) = dA(5903)/dV(5250) - B(9449) = RCT(5903)*V(1073) -! B(9450) = dA(5904)/dV(1073) - B(9450) = RCT(5904) -! B(9451) = dA(5905)/dV(1031) - B(9451) = RCT(5905)*V(5250) -! B(9452) = dA(5905)/dV(5250) - B(9452) = RCT(5905)*V(1031) -! B(9453) = dA(5906)/dV(1031) - B(9453) = RCT(5906) -! B(9454) = dA(5907)/dV(2656) - B(9454) = RCT(5907)*V(5250) -! B(9455) = dA(5907)/dV(5250) - B(9455) = RCT(5907)*V(2656) -! B(9456) = dA(5908)/dV(2656) - B(9456) = RCT(5908) -! B(9457) = dA(5909)/dV(4997) - B(9457) = RCT(5909)*V(5251) -! B(9458) = dA(5909)/dV(5251) - B(9458) = RCT(5909)*V(4997) -! B(9459) = dA(5910)/dV(4997) - B(9459) = RCT(5910)*V(5252) -! B(9460) = dA(5910)/dV(5252) - B(9460) = RCT(5910)*V(4997) -! B(9461) = dA(5911)/dV(4997) - B(9461) = RCT(5911)*V(5253) -! B(9462) = dA(5911)/dV(5253) - B(9462) = RCT(5911)*V(4997) -! B(9463) = dA(5912)/dV(4997) - B(9463) = RCT(5912)*V(5254) -! B(9464) = dA(5912)/dV(5254) - B(9464) = RCT(5912)*V(4997) -! B(9465) = dA(5913)/dV(4997) - B(9465) = RCT(5913) -! B(9466) = dA(5914)/dV(4997) - B(9466) = RCT(5914) -! B(9467) = dA(5915)/dV(851) - B(9467) = RCT(5915)*V(5250) -! B(9468) = dA(5915)/dV(5250) - B(9468) = RCT(5915)*V(851) -! B(9469) = dA(5916)/dV(851) - B(9469) = RCT(5916) -! B(9470) = dA(5917)/dV(3427) - B(9470) = RCT(5917)*V(5250) -! B(9471) = dA(5917)/dV(5250) - B(9471) = RCT(5917)*V(3427) -! B(9472) = dA(5918)/dV(3427) - B(9472) = RCT(5918) -! B(9473) = dA(5919)/dV(4388) - B(9473) = RCT(5919) -! B(9474) = dA(5920)/dV(4388) - B(9474) = RCT(5920) -! B(9475) = dA(5921)/dV(3426) - B(9475) = RCT(5921)*V(5250) -! B(9476) = dA(5921)/dV(5250) - B(9476) = RCT(5921)*V(3426) -! B(9477) = dA(5922)/dV(3426) - B(9477) = RCT(5922) -! B(9478) = dA(5923)/dV(732) - B(9478) = RCT(5923)*V(5250) -! B(9479) = dA(5923)/dV(5250) - B(9479) = RCT(5923)*V(732) -! B(9480) = dA(5924)/dV(732) - B(9480) = RCT(5924) -! B(9481) = dA(5925)/dV(2559) - B(9481) = RCT(5925)*V(5250) -! B(9482) = dA(5925)/dV(5250) - B(9482) = RCT(5925)*V(2559) -! B(9483) = dA(5926)/dV(2559) - B(9483) = RCT(5926) -! B(9484) = dA(5927)/dV(2559) - B(9484) = RCT(5927) -! B(9485) = dA(5928)/dV(2117) - B(9485) = RCT(5928) -! B(9486) = dA(5929)/dV(1623) - B(9486) = RCT(5929)*V(5250) -! B(9487) = dA(5929)/dV(5250) - B(9487) = RCT(5929)*V(1623) -! B(9488) = dA(5930)/dV(1623) - B(9488) = RCT(5930) -! B(9489) = dA(5931)/dV(2645) - B(9489) = RCT(5931)*V(5250) -! B(9490) = dA(5931)/dV(5250) - B(9490) = RCT(5931)*V(2645) -! B(9491) = dA(5932)/dV(2645) - B(9491) = RCT(5932) -! B(9492) = dA(5933)/dV(1878) - B(9492) = RCT(5933)*V(5250) -! B(9493) = dA(5933)/dV(5250) - B(9493) = RCT(5933)*V(1878) -! B(9494) = dA(5934)/dV(1878) - B(9494) = RCT(5934) -! B(9495) = dA(5935)/dV(3165) - B(9495) = RCT(5935)*V(5256) -! B(9496) = dA(5935)/dV(5256) - B(9496) = RCT(5935)*V(3165) -! B(9497) = dA(5936)/dV(3165) - B(9497) = RCT(5936)*V(5250) -! B(9498) = dA(5936)/dV(5250) - B(9498) = RCT(5936)*V(3165) -! B(9499) = dA(5937)/dV(4063) - B(9499) = RCT(5937)*V(5255) -! B(9500) = dA(5937)/dV(5255) - B(9500) = RCT(5937)*V(4063) -! B(9501) = dA(5938)/dV(4063) - B(9501) = RCT(5938)*V(5252) -! B(9502) = dA(5938)/dV(5252) - B(9502) = RCT(5938)*V(4063) -! B(9503) = dA(5939)/dV(4063) - B(9503) = RCT(5939)*V(5256) -! B(9504) = dA(5939)/dV(5256) - B(9504) = RCT(5939)*V(4063) -! B(9505) = dA(5940)/dV(4063) - B(9505) = RCT(5940) -! B(9506) = dA(5941)/dV(1232) - B(9506) = RCT(5941)*V(5250) -! B(9507) = dA(5941)/dV(5250) - B(9507) = RCT(5941)*V(1232) -! B(9508) = dA(5942)/dV(1232) - B(9508) = RCT(5942) -! B(9509) = dA(5943)/dV(4743) - B(9509) = RCT(5943) -! B(9510) = dA(5944)/dV(4743) - B(9510) = RCT(5944) -! B(9511) = dA(5945)/dV(71) - B(9511) = RCT(5945)*V(5250) -! B(9512) = dA(5945)/dV(5250) - B(9512) = RCT(5945)*V(71) -! B(9513) = dA(5946)/dV(2709) - B(9513) = RCT(5946)*V(5250) -! B(9514) = dA(5946)/dV(5250) - B(9514) = RCT(5946)*V(2709) -! B(9515) = dA(5947)/dV(2709) - B(9515) = RCT(5947) -! B(9516) = dA(5948)/dV(2709) - B(9516) = RCT(5948) -! B(9517) = dA(5949)/dV(3027) - B(9517) = RCT(5949) -! B(9518) = dA(5950)/dV(1717) - B(9518) = RCT(5950)*V(5250) -! B(9519) = dA(5950)/dV(5250) - B(9519) = RCT(5950)*V(1717) -! B(9520) = dA(5951)/dV(1717) - B(9520) = RCT(5951) -! B(9521) = dA(5952)/dV(4444) - B(9521) = RCT(5952)*V(5253) -! B(9522) = dA(5952)/dV(5253) - B(9522) = RCT(5952)*V(4444) -! B(9523) = dA(5953)/dV(4444) - B(9523) = RCT(5953)*V(5258) -! B(9524) = dA(5953)/dV(5258) - B(9524) = RCT(5953)*V(4444) -! B(9525) = dA(5954)/dV(700) - B(9525) = RCT(5954) -! B(9526) = dA(5955)/dV(5068) - B(9526) = RCT(5955)*V(5256) -! B(9527) = dA(5955)/dV(5256) - B(9527) = RCT(5955)*V(5068) -! B(9528) = dA(5956)/dV(5068) - B(9528) = RCT(5956)*V(5258) -! B(9529) = dA(5956)/dV(5258) - B(9529) = RCT(5956)*V(5068) -! B(9530) = dA(5957)/dV(5068) - B(9530) = RCT(5957)*V(5258) -! B(9531) = dA(5957)/dV(5258) - B(9531) = RCT(5957)*V(5068) -! B(9532) = dA(5958)/dV(5068) - B(9532) = RCT(5958)*V(5250) -! B(9533) = dA(5958)/dV(5250) - B(9533) = RCT(5958)*V(5068) -! B(9534) = dA(5959)/dV(5068) - B(9534) = RCT(5959)*V(5250) -! B(9535) = dA(5959)/dV(5250) - B(9535) = RCT(5959)*V(5068) -! B(9536) = dA(5960)/dV(5068) - B(9536) = RCT(5960) -! B(9537) = dA(5961)/dV(5068) - B(9537) = RCT(5961) -! B(9538) = dA(5962)/dV(5068) - B(9538) = RCT(5962) -! B(9539) = dA(5963)/dV(4650) - B(9539) = RCT(5963)*V(5256) -! B(9540) = dA(5963)/dV(5256) - B(9540) = RCT(5963)*V(4650) -! B(9541) = dA(5964)/dV(4650) - B(9541) = RCT(5964)*V(5258) -! B(9542) = dA(5964)/dV(5258) - B(9542) = RCT(5964)*V(4650) -! B(9543) = dA(5965)/dV(4650) - B(9543) = RCT(5965)*V(5250) -! B(9544) = dA(5965)/dV(5250) - B(9544) = RCT(5965)*V(4650) -! B(9545) = dA(5966)/dV(4930) - B(9545) = RCT(5966)*V(5255) -! B(9546) = dA(5966)/dV(5255) - B(9546) = RCT(5966)*V(4930) -! B(9547) = dA(5967)/dV(4930) - B(9547) = RCT(5967)*V(5255) -! B(9548) = dA(5967)/dV(5255) - B(9548) = RCT(5967)*V(4930) -! B(9549) = dA(5968)/dV(4930) - B(9549) = RCT(5968)*V(5255) -! B(9550) = dA(5968)/dV(5255) - B(9550) = RCT(5968)*V(4930) -! B(9551) = dA(5969)/dV(4930) - B(9551) = RCT(5969)*V(5252) -! B(9552) = dA(5969)/dV(5252) - B(9552) = RCT(5969)*V(4930) -! B(9553) = dA(5970)/dV(4930) - B(9553) = RCT(5970)*V(5253) -! B(9554) = dA(5970)/dV(5253) - B(9554) = RCT(5970)*V(4930) -! B(9555) = dA(5971)/dV(4930) - B(9555) = RCT(5971)*V(5256) -! B(9556) = dA(5971)/dV(5256) - B(9556) = RCT(5971)*V(4930) -! B(9557) = dA(5972)/dV(4930) - B(9557) = RCT(5972) -! B(9558) = dA(5973)/dV(4930) - B(9558) = RCT(5973) -! B(9559) = dA(5974)/dV(1174) - B(9559) = RCT(5974)*V(5250) -! B(9560) = dA(5974)/dV(5250) - B(9560) = RCT(5974)*V(1174) -! B(9561) = dA(5975)/dV(1174) - B(9561) = RCT(5975) -! B(9562) = dA(5976)/dV(910) - B(9562) = RCT(5976)*V(5250) -! B(9563) = dA(5976)/dV(5250) - B(9563) = RCT(5976)*V(910) -! B(9564) = dA(5977)/dV(910) - B(9564) = RCT(5977) -! B(9565) = dA(5978)/dV(2915) - B(9565) = RCT(5978)*V(5250) -! B(9566) = dA(5978)/dV(5250) - B(9566) = RCT(5978)*V(2915) -! B(9567) = dA(5979)/dV(2915) - B(9567) = RCT(5979) -! B(9568) = dA(5980)/dV(4998) - B(9568) = RCT(5980)*V(5251) -! B(9569) = dA(5980)/dV(5251) - B(9569) = RCT(5980)*V(4998) -! B(9570) = dA(5981)/dV(4998) - B(9570) = RCT(5981)*V(5252) -! B(9571) = dA(5981)/dV(5252) - B(9571) = RCT(5981)*V(4998) -! B(9572) = dA(5982)/dV(4998) - B(9572) = RCT(5982)*V(5253) -! B(9573) = dA(5982)/dV(5253) - B(9573) = RCT(5982)*V(4998) -! B(9574) = dA(5983)/dV(4998) - B(9574) = RCT(5983)*V(5254) -! B(9575) = dA(5983)/dV(5254) - B(9575) = RCT(5983)*V(4998) -! B(9576) = dA(5984)/dV(4998) - B(9576) = RCT(5984) -! B(9577) = dA(5985)/dV(4998) - B(9577) = RCT(5985) -! B(9578) = dA(5986)/dV(1065) - B(9578) = RCT(5986)*V(5250) -! B(9579) = dA(5986)/dV(5250) - B(9579) = RCT(5986)*V(1065) -! B(9580) = dA(5987)/dV(1065) - B(9580) = RCT(5987) -! B(9581) = dA(5988)/dV(3353) - B(9581) = RCT(5988)*V(5250) -! B(9582) = dA(5988)/dV(5250) - B(9582) = RCT(5988)*V(3353) -! B(9583) = dA(5989)/dV(3353) - B(9583) = RCT(5989) -! B(9584) = dA(5990)/dV(4393) - B(9584) = RCT(5990) -! B(9585) = dA(5991)/dV(4393) - B(9585) = RCT(5991) -! B(9586) = dA(5992)/dV(3352) - B(9586) = RCT(5992)*V(5250) -! B(9587) = dA(5992)/dV(5250) - B(9587) = RCT(5992)*V(3352) -! B(9588) = dA(5993)/dV(3352) - B(9588) = RCT(5993) -! B(9589) = dA(5994)/dV(531) - B(9589) = RCT(5994)*V(5250) -! B(9590) = dA(5994)/dV(5250) - B(9590) = RCT(5994)*V(531) -! B(9591) = dA(5995)/dV(531) - B(9591) = RCT(5995) -! B(9592) = dA(5996)/dV(2601) - B(9592) = RCT(5996)*V(5250) -! B(9593) = dA(5996)/dV(5250) - B(9593) = RCT(5996)*V(2601) -! B(9594) = dA(5997)/dV(2601) - B(9594) = RCT(5997) -! B(9595) = dA(5998)/dV(2601) - B(9595) = RCT(5998) -! B(9596) = dA(5999)/dV(1951) - B(9596) = RCT(5999) -! B(9597) = dA(6000)/dV(1636) - B(9597) = RCT(6000)*V(5250) -! B(9598) = dA(6000)/dV(5250) - B(9598) = RCT(6000)*V(1636) -! B(9599) = dA(6001)/dV(1636) - B(9599) = RCT(6001) -! B(9600) = dA(6002)/dV(2875) - B(9600) = RCT(6002)*V(5250) -! B(9601) = dA(6002)/dV(5250) - B(9601) = RCT(6002)*V(2875) -! B(9602) = dA(6003)/dV(2875) - B(9602) = RCT(6003) -! B(9603) = dA(6004)/dV(4375) - B(9603) = RCT(6004)*V(5255) -! B(9604) = dA(6004)/dV(5255) - B(9604) = RCT(6004)*V(4375) -! B(9605) = dA(6005)/dV(4375) - B(9605) = RCT(6005)*V(5255) -! B(9606) = dA(6005)/dV(5255) - B(9606) = RCT(6005)*V(4375) -! B(9607) = dA(6006)/dV(4375) - B(9607) = RCT(6006)*V(5255) -! B(9608) = dA(6006)/dV(5255) - B(9608) = RCT(6006)*V(4375) -! B(9609) = dA(6007)/dV(4375) - B(9609) = RCT(6007)*V(5252) -! B(9610) = dA(6007)/dV(5252) - B(9610) = RCT(6007)*V(4375) -! B(9611) = dA(6008)/dV(4375) - B(9611) = RCT(6008)*V(5253) -! B(9612) = dA(6008)/dV(5253) - B(9612) = RCT(6008)*V(4375) -! B(9613) = dA(6009)/dV(4375) - B(9613) = RCT(6009)*V(5256) -! B(9614) = dA(6009)/dV(5256) - B(9614) = RCT(6009)*V(4375) -! B(9615) = dA(6010)/dV(4375) - B(9615) = RCT(6010) -! B(9616) = dA(6011)/dV(4375) - B(9616) = RCT(6011) -! B(9617) = dA(6012)/dV(2740) - B(9617) = RCT(6012)*V(5250) -! B(9618) = dA(6012)/dV(5250) - B(9618) = RCT(6012)*V(2740) -! B(9619) = dA(6013)/dV(2740) - B(9619) = RCT(6013) -! B(9620) = dA(6014)/dV(2740) - B(9620) = RCT(6014) -! B(9621) = dA(6015)/dV(2994) - B(9621) = RCT(6015) -! B(9622) = dA(6016)/dV(1647) - B(9622) = RCT(6016)*V(5250) -! B(9623) = dA(6016)/dV(5250) - B(9623) = RCT(6016)*V(1647) -! B(9624) = dA(6017)/dV(1647) - B(9624) = RCT(6017) -! B(9625) = dA(6018)/dV(3111) - B(9625) = RCT(6018)*V(5256) -! B(9626) = dA(6018)/dV(5256) - B(9626) = RCT(6018)*V(3111) -! B(9627) = dA(6019)/dV(3111) - B(9627) = RCT(6019)*V(5250) -! B(9628) = dA(6019)/dV(5250) - B(9628) = RCT(6019)*V(3111) -! B(9629) = dA(6020)/dV(4037) - B(9629) = RCT(6020)*V(5255) -! B(9630) = dA(6020)/dV(5255) - B(9630) = RCT(6020)*V(4037) -! B(9631) = dA(6021)/dV(4037) - B(9631) = RCT(6021)*V(5252) -! B(9632) = dA(6021)/dV(5252) - B(9632) = RCT(6021)*V(4037) -! B(9633) = dA(6022)/dV(4037) - B(9633) = RCT(6022)*V(5256) -! B(9634) = dA(6022)/dV(5256) - B(9634) = RCT(6022)*V(4037) -! B(9635) = dA(6023)/dV(4037) - B(9635) = RCT(6023) -! B(9636) = dA(6024)/dV(884) - B(9636) = RCT(6024)*V(5250) -! B(9637) = dA(6024)/dV(5250) - B(9637) = RCT(6024)*V(884) -! B(9638) = dA(6025)/dV(884) - B(9638) = RCT(6025) -! B(9639) = dA(6026)/dV(3195) - B(9639) = RCT(6026) -! B(9640) = dA(6027)/dV(68) - B(9640) = RCT(6027)*V(5250) -! B(9641) = dA(6027)/dV(5250) - B(9641) = RCT(6027)*V(68) -! B(9642) = dA(6028)/dV(4639) - B(9642) = RCT(6028)*V(5253) -! B(9643) = dA(6028)/dV(5253) - B(9643) = RCT(6028)*V(4639) -! B(9644) = dA(6029)/dV(4639) - B(9644) = RCT(6029)*V(5258) -! B(9645) = dA(6029)/dV(5258) - B(9645) = RCT(6029)*V(4639) -! B(9646) = dA(6030)/dV(752) - B(9646) = RCT(6030) -! B(9647) = dA(6031)/dV(3437) - B(9647) = RCT(6031)*V(5256) -! B(9648) = dA(6031)/dV(5256) - B(9648) = RCT(6031)*V(3437) -! B(9649) = dA(6032)/dV(3437) - B(9649) = RCT(6032)*V(5250) -! B(9650) = dA(6032)/dV(5250) - B(9650) = RCT(6032)*V(3437) -! B(9651) = dA(6033)/dV(3437) - B(9651) = RCT(6033)*V(5250) -! B(9652) = dA(6033)/dV(5250) - B(9652) = RCT(6033)*V(3437) -! B(9653) = dA(6034)/dV(3437) - B(9653) = RCT(6034) -! B(9654) = dA(6035)/dV(3437) - B(9654) = RCT(6035) -! B(9655) = dA(6036)/dV(4505) - B(9655) = RCT(6036)*V(5256) -! B(9656) = dA(6036)/dV(5256) - B(9656) = RCT(6036)*V(4505) -! B(9657) = dA(6037)/dV(4505) - B(9657) = RCT(6037)*V(5258) -! B(9658) = dA(6037)/dV(5258) - B(9658) = RCT(6037)*V(4505) -! B(9659) = dA(6038)/dV(4505) - B(9659) = RCT(6038)*V(5250) -! B(9660) = dA(6038)/dV(5250) - B(9660) = RCT(6038)*V(4505) -! B(9661) = dA(6039)/dV(3553) - B(9661) = RCT(6039)*V(5256) -! B(9662) = dA(6039)/dV(5256) - B(9662) = RCT(6039)*V(3553) -! B(9663) = dA(6040)/dV(3553) - B(9663) = RCT(6040)*V(5258) -! B(9664) = dA(6040)/dV(5258) - B(9664) = RCT(6040)*V(3553) -! B(9665) = dA(6041)/dV(3553) - B(9665) = RCT(6041)*V(5250) -! B(9666) = dA(6041)/dV(5250) - B(9666) = RCT(6041)*V(3553) -! B(9667) = dA(6042)/dV(4846) - B(9667) = RCT(6042)*V(5255) -! B(9668) = dA(6042)/dV(5255) - B(9668) = RCT(6042)*V(4846) -! B(9669) = dA(6043)/dV(4846) - B(9669) = RCT(6043)*V(5255) -! B(9670) = dA(6043)/dV(5255) - B(9670) = RCT(6043)*V(4846) -! B(9671) = dA(6044)/dV(4846) - B(9671) = RCT(6044)*V(5255) -! B(9672) = dA(6044)/dV(5255) - B(9672) = RCT(6044)*V(4846) -! B(9673) = dA(6045)/dV(4846) - B(9673) = RCT(6045)*V(5252) -! B(9674) = dA(6045)/dV(5252) - B(9674) = RCT(6045)*V(4846) -! B(9675) = dA(6046)/dV(4846) - B(9675) = RCT(6046)*V(5253) -! B(9676) = dA(6046)/dV(5253) - B(9676) = RCT(6046)*V(4846) -! B(9677) = dA(6047)/dV(4846) - B(9677) = RCT(6047)*V(5256) -! B(9678) = dA(6047)/dV(5256) - B(9678) = RCT(6047)*V(4846) -! B(9679) = dA(6048)/dV(4846) - B(9679) = RCT(6048) -! B(9680) = dA(6049)/dV(4846) - B(9680) = RCT(6049) -! B(9681) = dA(6050)/dV(4913) - B(9681) = RCT(6050)*V(5255) -! B(9682) = dA(6050)/dV(5255) - B(9682) = RCT(6050)*V(4913) -! B(9683) = dA(6051)/dV(4913) - B(9683) = RCT(6051)*V(5252) -! B(9684) = dA(6051)/dV(5252) - B(9684) = RCT(6051)*V(4913) -! B(9685) = dA(6052)/dV(4913) - B(9685) = RCT(6052)*V(5256) -! B(9686) = dA(6052)/dV(5256) - B(9686) = RCT(6052)*V(4913) -! B(9687) = dA(6053)/dV(4913) - B(9687) = RCT(6053) -! B(9688) = dA(6054)/dV(1112) - B(9688) = RCT(6054)*V(5250) -! B(9689) = dA(6054)/dV(5250) - B(9689) = RCT(6054)*V(1112) -! B(9690) = dA(6055)/dV(1112) - B(9690) = RCT(6055) -! B(9691) = dA(6056)/dV(3567) - B(9691) = RCT(6056) -! B(9692) = dA(6057)/dV(3567) - B(9692) = RCT(6057) -! B(9693) = dA(6058)/dV(3304) - B(9693) = RCT(6058)*V(5250) -! B(9694) = dA(6058)/dV(5250) - B(9694) = RCT(6058)*V(3304) -! B(9695) = dA(6059)/dV(3304) - B(9695) = RCT(6059) -! B(9696) = dA(6060)/dV(3486) - B(9696) = RCT(6060)*V(5250) -! B(9697) = dA(6060)/dV(5250) - B(9697) = RCT(6060)*V(3486) -! B(9698) = dA(6061)/dV(3486) - B(9698) = RCT(6061) -! B(9699) = dA(6062)/dV(3486) - B(9699) = RCT(6062) -! B(9700) = dA(6063)/dV(812) - B(9700) = RCT(6063)*V(5250) -! B(9701) = dA(6063)/dV(5250) - B(9701) = RCT(6063)*V(812) -! B(9702) = dA(6064)/dV(812) - B(9702) = RCT(6064) -! B(9703) = dA(6065)/dV(4139) - B(9703) = RCT(6065)*V(5255) -! B(9704) = dA(6065)/dV(5255) - B(9704) = RCT(6065)*V(4139) -! B(9705) = dA(6066)/dV(4139) - B(9705) = RCT(6066)*V(5255) -! B(9706) = dA(6066)/dV(5255) - B(9706) = RCT(6066)*V(4139) -! B(9707) = dA(6067)/dV(4139) - B(9707) = RCT(6067)*V(5255) -! B(9708) = dA(6067)/dV(5255) - B(9708) = RCT(6067)*V(4139) -! B(9709) = dA(6068)/dV(4139) - B(9709) = RCT(6068)*V(5252) -! B(9710) = dA(6068)/dV(5252) - B(9710) = RCT(6068)*V(4139) -! B(9711) = dA(6069)/dV(4139) - B(9711) = RCT(6069)*V(5253) -! B(9712) = dA(6069)/dV(5253) - B(9712) = RCT(6069)*V(4139) -! B(9713) = dA(6070)/dV(4139) - B(9713) = RCT(6070)*V(5256) -! B(9714) = dA(6070)/dV(5256) - B(9714) = RCT(6070)*V(4139) -! B(9715) = dA(6071)/dV(4139) - B(9715) = RCT(6071) -! B(9716) = dA(6072)/dV(4139) - B(9716) = RCT(6072) -! B(9717) = dA(6073)/dV(4000) - B(9717) = RCT(6073)*V(5255) -! B(9718) = dA(6073)/dV(5255) - B(9718) = RCT(6073)*V(4000) -! B(9719) = dA(6074)/dV(4000) - B(9719) = RCT(6074)*V(5252) -! B(9720) = dA(6074)/dV(5252) - B(9720) = RCT(6074)*V(4000) -! B(9721) = dA(6075)/dV(4000) - B(9721) = RCT(6075)*V(5256) -! B(9722) = dA(6075)/dV(5256) - B(9722) = RCT(6075)*V(4000) -! B(9723) = dA(6076)/dV(4000) - B(9723) = RCT(6076) -! B(9724) = dA(6077)/dV(3832) - B(9724) = RCT(6077)*V(5258) -! B(9725) = dA(6077)/dV(5258) - B(9725) = RCT(6077)*V(3832) -! B(9726) = dA(6078)/dV(3832) - B(9726) = RCT(6078)*V(5258) -! B(9727) = dA(6078)/dV(5258) - B(9727) = RCT(6078)*V(3832) -! B(9728) = dA(6079)/dV(3832) - B(9728) = RCT(6079)*V(5250) -! B(9729) = dA(6079)/dV(5250) - B(9729) = RCT(6079)*V(3832) -! B(9730) = dA(6080)/dV(3832) - B(9730) = RCT(6080) -! B(9731) = dA(6081)/dV(3832) - B(9731) = RCT(6081) -! B(9732) = dA(6082)/dV(2649) - B(9732) = RCT(6082)*V(5250) -! B(9733) = dA(6082)/dV(5250) - B(9733) = RCT(6082)*V(2649) -! B(9734) = dA(6083)/dV(2649) - B(9734) = RCT(6083) -! B(9735) = dA(6084)/dV(2649) - B(9735) = RCT(6084) -! B(9736) = dA(6085)/dV(2776) - B(9736) = RCT(6085) -! B(9737) = dA(6086)/dV(1669) - B(9737) = RCT(6086)*V(5250) -! B(9738) = dA(6086)/dV(5250) - B(9738) = RCT(6086)*V(1669) -! B(9739) = dA(6087)/dV(1669) - B(9739) = RCT(6087) -! B(9740) = dA(6088)/dV(3085) - B(9740) = RCT(6088)*V(5256) -! B(9741) = dA(6088)/dV(5256) - B(9741) = RCT(6088)*V(3085) -! B(9742) = dA(6089)/dV(3085) - B(9742) = RCT(6089)*V(5250) -! B(9743) = dA(6089)/dV(5250) - B(9743) = RCT(6089)*V(3085) -! B(9744) = dA(6090)/dV(4009) - B(9744) = RCT(6090)*V(5255) -! B(9745) = dA(6090)/dV(5255) - B(9745) = RCT(6090)*V(4009) -! B(9746) = dA(6091)/dV(4009) - B(9746) = RCT(6091)*V(5252) -! B(9747) = dA(6091)/dV(5252) - B(9747) = RCT(6091)*V(4009) -! B(9748) = dA(6092)/dV(4009) - B(9748) = RCT(6092)*V(5256) -! B(9749) = dA(6092)/dV(5256) - B(9749) = RCT(6092)*V(4009) -! B(9750) = dA(6093)/dV(4009) - B(9750) = RCT(6093) -! B(9751) = dA(6094)/dV(959) - B(9751) = RCT(6094)*V(5250) -! B(9752) = dA(6094)/dV(5250) - B(9752) = RCT(6094)*V(959) -! B(9753) = dA(6095)/dV(959) - B(9753) = RCT(6095) -! B(9754) = dA(6096)/dV(4322) - B(9754) = RCT(6096) -! B(9755) = dA(6097)/dV(4322) - B(9755) = RCT(6097) -! B(9756) = dA(6098)/dV(17) - B(9756) = RCT(6098)*V(5250) -! B(9757) = dA(6098)/dV(5250) - B(9757) = RCT(6098)*V(17) -! B(9758) = dA(6099)/dV(4670) - B(9758) = RCT(6099)*V(5253) -! B(9759) = dA(6099)/dV(5253) - B(9759) = RCT(6099)*V(4670) -! B(9760) = dA(6100)/dV(4670) - B(9760) = RCT(6100)*V(5258) -! B(9761) = dA(6100)/dV(5258) - B(9761) = RCT(6100)*V(4670) -! B(9762) = dA(6101)/dV(705) - B(9762) = RCT(6101) -! B(9763) = dA(6102)/dV(3227) - B(9763) = RCT(6102)*V(5250) -! B(9764) = dA(6102)/dV(5250) - B(9764) = RCT(6102)*V(3227) -! B(9765) = dA(6103)/dV(3227) - B(9765) = RCT(6103) -! B(9766) = dA(6104)/dV(3487) - B(9766) = RCT(6104)*V(5250) -! B(9767) = dA(6104)/dV(5250) - B(9767) = RCT(6104)*V(3487) -! B(9768) = dA(6105)/dV(3487) - B(9768) = RCT(6105) -! B(9769) = dA(6106)/dV(3487) - B(9769) = RCT(6106) -! B(9770) = dA(6107)/dV(3316) - B(9770) = RCT(6107)*V(5250) -! B(9771) = dA(6107)/dV(5250) - B(9771) = RCT(6107)*V(3316) -! B(9772) = dA(6108)/dV(3316) - B(9772) = RCT(6108) -! B(9773) = dA(6109)/dV(1014) - B(9773) = RCT(6109)*V(5250) -! B(9774) = dA(6109)/dV(5250) - B(9774) = RCT(6109)*V(1014) -! B(9775) = dA(6110)/dV(1014) - B(9775) = RCT(6110) -! B(9776) = dA(6111)/dV(3584) - B(9776) = RCT(6111) -! B(9777) = dA(6112)/dV(3584) - B(9777) = RCT(6112) -! B(9778) = dA(6113)/dV(3264) - B(9778) = RCT(6113)*V(5250) -! B(9779) = dA(6113)/dV(5250) - B(9779) = RCT(6113)*V(3264) -! B(9780) = dA(6114)/dV(3264) - B(9780) = RCT(6114) -! B(9781) = dA(6115)/dV(3433) - B(9781) = RCT(6115)*V(5250) -! B(9782) = dA(6115)/dV(5250) - B(9782) = RCT(6115)*V(3433) -! B(9783) = dA(6116)/dV(3433) - B(9783) = RCT(6116) -! B(9784) = dA(6117)/dV(785) - B(9784) = RCT(6117)*V(5250) -! B(9785) = dA(6117)/dV(5250) - B(9785) = RCT(6117)*V(785) -! B(9786) = dA(6118)/dV(785) - B(9786) = RCT(6118) -! B(9787) = dA(6119)/dV(3452) - B(9787) = RCT(6119)*V(5250) -! B(9788) = dA(6119)/dV(5250) - B(9788) = RCT(6119)*V(3452) -! B(9789) = dA(6120)/dV(3452) - B(9789) = RCT(6120) -! B(9790) = dA(6121)/dV(3452) - B(9790) = RCT(6121) -! B(9791) = dA(6122)/dV(3452) - B(9791) = RCT(6122) -! B(9792) = dA(6123)/dV(2356) - B(9792) = RCT(6123) -! B(9793) = dA(6124)/dV(2357) - B(9793) = RCT(6124)*V(5250) -! B(9794) = dA(6124)/dV(5250) - B(9794) = RCT(6124)*V(2357) -! B(9795) = dA(6125)/dV(2357) - B(9795) = RCT(6125) -! B(9796) = dA(6126)/dV(2357) - B(9796) = RCT(6126) -! B(9797) = dA(6127)/dV(4181) - B(9797) = RCT(6127)*V(5255) -! B(9798) = dA(6127)/dV(5255) - B(9798) = RCT(6127)*V(4181) -! B(9799) = dA(6128)/dV(4181) - B(9799) = RCT(6128)*V(5255) -! B(9800) = dA(6128)/dV(5255) - B(9800) = RCT(6128)*V(4181) -! B(9801) = dA(6129)/dV(4181) - B(9801) = RCT(6129)*V(5255) -! B(9802) = dA(6129)/dV(5255) - B(9802) = RCT(6129)*V(4181) -! B(9803) = dA(6130)/dV(4181) - B(9803) = RCT(6130)*V(5252) -! B(9804) = dA(6130)/dV(5252) - B(9804) = RCT(6130)*V(4181) -! B(9805) = dA(6131)/dV(4181) - B(9805) = RCT(6131)*V(5253) -! B(9806) = dA(6131)/dV(5253) - B(9806) = RCT(6131)*V(4181) -! B(9807) = dA(6132)/dV(4181) - B(9807) = RCT(6132)*V(5256) -! B(9808) = dA(6132)/dV(5256) - B(9808) = RCT(6132)*V(4181) -! B(9809) = dA(6133)/dV(4181) - B(9809) = RCT(6133) -! B(9810) = dA(6134)/dV(4181) - B(9810) = RCT(6134) -! B(9811) = dA(6135)/dV(4041) - B(9811) = RCT(6135)*V(5255) -! B(9812) = dA(6135)/dV(5255) - B(9812) = RCT(6135)*V(4041) -! B(9813) = dA(6136)/dV(4041) - B(9813) = RCT(6136)*V(5252) -! B(9814) = dA(6136)/dV(5252) - B(9814) = RCT(6136)*V(4041) -! B(9815) = dA(6137)/dV(4041) - B(9815) = RCT(6137)*V(5256) -! B(9816) = dA(6137)/dV(5256) - B(9816) = RCT(6137)*V(4041) -! B(9817) = dA(6138)/dV(4041) - B(9817) = RCT(6138) -! B(9818) = dA(6139)/dV(4985) - B(9818) = RCT(6139)*V(5255) -! B(9819) = dA(6139)/dV(5255) - B(9819) = RCT(6139)*V(4985) -! B(9820) = dA(6140)/dV(4985) - B(9820) = RCT(6140)*V(5255) -! B(9821) = dA(6140)/dV(5255) - B(9821) = RCT(6140)*V(4985) -! B(9822) = dA(6141)/dV(4985) - B(9822) = RCT(6141)*V(5252) -! B(9823) = dA(6141)/dV(5252) - B(9823) = RCT(6141)*V(4985) -! B(9824) = dA(6142)/dV(4985) - B(9824) = RCT(6142)*V(5253) -! B(9825) = dA(6142)/dV(5253) - B(9825) = RCT(6142)*V(4985) -! B(9826) = dA(6143)/dV(4985) - B(9826) = RCT(6143)*V(5256) -! B(9827) = dA(6143)/dV(5256) - B(9827) = RCT(6143)*V(4985) -! B(9828) = dA(6144)/dV(4985) - B(9828) = RCT(6144) -! B(9829) = dA(6145)/dV(4985) - B(9829) = RCT(6145) -! B(9830) = dA(6146)/dV(2585) - B(9830) = RCT(6146)*V(5250) -! B(9831) = dA(6146)/dV(5250) - B(9831) = RCT(6146)*V(2585) -! B(9832) = dA(6147)/dV(2585) - B(9832) = RCT(6147) -! B(9833) = dA(6148)/dV(2585) - B(9833) = RCT(6148) -! B(9834) = dA(6149)/dV(2847) - B(9834) = RCT(6149) -! B(9835) = dA(6150)/dV(1589) - B(9835) = RCT(6150)*V(5250) -! B(9836) = dA(6150)/dV(5250) - B(9836) = RCT(6150)*V(1589) -! B(9837) = dA(6151)/dV(1589) - B(9837) = RCT(6151) -! B(9838) = dA(6152)/dV(1218) - B(9838) = RCT(6152)*V(5250) -! B(9839) = dA(6152)/dV(5250) - B(9839) = RCT(6152)*V(1218) -! B(9840) = dA(6153)/dV(1218) - B(9840) = RCT(6153) -! B(9841) = dA(6154)/dV(3246) - B(9841) = RCT(6154) -! B(9842) = dA(6155)/dV(13) - B(9842) = RCT(6155)*V(5250) -! B(9843) = dA(6155)/dV(5250) - B(9843) = RCT(6155)*V(13) -! B(9844) = dA(6156)/dV(1513) - B(9844) = RCT(6156)*V(5250) -! B(9845) = dA(6156)/dV(5250) - B(9845) = RCT(6156)*V(1513) -! B(9846) = dA(6157)/dV(1513) - B(9846) = RCT(6157) -! B(9847) = dA(6158)/dV(1465) - B(9847) = RCT(6158)*V(5250) -! B(9848) = dA(6158)/dV(5250) - B(9848) = RCT(6158)*V(1465) -! B(9849) = dA(6159)/dV(1465) - B(9849) = RCT(6159) -! B(9850) = dA(6160)/dV(3258) - B(9850) = RCT(6160)*V(5250) -! B(9851) = dA(6160)/dV(5250) - B(9851) = RCT(6160)*V(3258) -! B(9852) = dA(6161)/dV(3258) - B(9852) = RCT(6161) -! B(9853) = dA(6162)/dV(4680) - B(9853) = RCT(6162)*V(5255) -! B(9854) = dA(6162)/dV(5255) - B(9854) = RCT(6162)*V(4680) -! B(9855) = dA(6163)/dV(4680) - B(9855) = RCT(6163)*V(5255) -! B(9856) = dA(6163)/dV(5255) - B(9856) = RCT(6163)*V(4680) -! B(9857) = dA(6164)/dV(4680) - B(9857) = RCT(6164)*V(5255) -! B(9858) = dA(6164)/dV(5255) - B(9858) = RCT(6164)*V(4680) -! B(9859) = dA(6165)/dV(4680) - B(9859) = RCT(6165)*V(5252) -! B(9860) = dA(6165)/dV(5252) - B(9860) = RCT(6165)*V(4680) -! B(9861) = dA(6166)/dV(4680) - B(9861) = RCT(6166)*V(5253) -! B(9862) = dA(6166)/dV(5253) - B(9862) = RCT(6166)*V(4680) -! B(9863) = dA(6167)/dV(4680) - B(9863) = RCT(6167)*V(5256) -! B(9864) = dA(6167)/dV(5256) - B(9864) = RCT(6167)*V(4680) -! B(9865) = dA(6168)/dV(4680) - B(9865) = RCT(6168) -! B(9866) = dA(6169)/dV(4680) - B(9866) = RCT(6169) -! B(9867) = dA(6170)/dV(5011) - B(9867) = RCT(6170)*V(5255) -! B(9868) = dA(6170)/dV(5255) - B(9868) = RCT(6170)*V(5011) -! B(9869) = dA(6171)/dV(5011) - B(9869) = RCT(6171)*V(5252) -! B(9870) = dA(6171)/dV(5252) - B(9870) = RCT(6171)*V(5011) -! B(9871) = dA(6172)/dV(5011) - B(9871) = RCT(6172)*V(5256) -! B(9872) = dA(6172)/dV(5256) - B(9872) = RCT(6172)*V(5011) -! B(9873) = dA(6173)/dV(5011) - B(9873) = RCT(6173) -! B(9874) = dA(6174)/dV(1034) - B(9874) = RCT(6174)*V(5250) -! B(9875) = dA(6174)/dV(5250) - B(9875) = RCT(6174)*V(1034) -! B(9876) = dA(6175)/dV(1034) - B(9876) = RCT(6175) -! B(9877) = dA(6176)/dV(3569) - B(9877) = RCT(6176) -! B(9878) = dA(6177)/dV(3569) - B(9878) = RCT(6177) -! B(9879) = dA(6178)/dV(3438) - B(9879) = RCT(6178)*V(5250) -! B(9880) = dA(6178)/dV(5250) - B(9880) = RCT(6178)*V(3438) -! B(9881) = dA(6179)/dV(3438) - B(9881) = RCT(6179) -! B(9882) = dA(6180)/dV(487) - B(9882) = RCT(6180)*V(5250) -! B(9883) = dA(6180)/dV(5250) - B(9883) = RCT(6180)*V(487) -! B(9884) = dA(6181)/dV(487) - B(9884) = RCT(6181) -! B(9885) = dA(6182)/dV(3624) - B(9885) = RCT(6182)*V(5250) -! B(9886) = dA(6182)/dV(5250) - B(9886) = RCT(6182)*V(3624) -! B(9887) = dA(6183)/dV(3624) - B(9887) = RCT(6183) -! B(9888) = dA(6184)/dV(3624) - B(9888) = RCT(6184) -! B(9889) = dA(6185)/dV(3624) - B(9889) = RCT(6185) -! B(9890) = dA(6186)/dV(756) - B(9890) = RCT(6186) -! B(9891) = dA(6187)/dV(1600) - B(9891) = RCT(6187)*V(5250) -! B(9892) = dA(6187)/dV(5250) - B(9892) = RCT(6187)*V(1600) -! B(9893) = dA(6188)/dV(1600) - B(9893) = RCT(6188) -! B(9894) = dA(6189)/dV(3251) - B(9894) = RCT(6189)*V(5250) -! B(9895) = dA(6189)/dV(5250) - B(9895) = RCT(6189)*V(3251) -! B(9896) = dA(6190)/dV(3251) - B(9896) = RCT(6190) -! B(9897) = dA(6191)/dV(3251) - B(9897) = RCT(6191) -! B(9898) = dA(6192)/dV(3814) - B(9898) = RCT(6192)*V(5255) -! B(9899) = dA(6192)/dV(5255) - B(9899) = RCT(6192)*V(3814) -! B(9900) = dA(6193)/dV(3814) - B(9900) = RCT(6193)*V(5252) -! B(9901) = dA(6193)/dV(5252) - B(9901) = RCT(6193)*V(3814) -! B(9902) = dA(6194)/dV(3814) - B(9902) = RCT(6194)*V(5256) -! B(9903) = dA(6194)/dV(5256) - B(9903) = RCT(6194)*V(3814) -! B(9904) = dA(6195)/dV(3814) - B(9904) = RCT(6195) -! B(9905) = dA(6196)/dV(3814) - B(9905) = RCT(6196) -! B(9906) = dA(6197)/dV(3814) - B(9906) = RCT(6197) -! B(9907) = dA(6198)/dV(1409) - B(9907) = RCT(6198)*V(5250) -! B(9908) = dA(6198)/dV(5250) - B(9908) = RCT(6198)*V(1409) -! B(9909) = dA(6199)/dV(1409) - B(9909) = RCT(6199) -! B(9910) = dA(6200)/dV(1370) - B(9910) = RCT(6200)*V(5250) -! B(9911) = dA(6200)/dV(5250) - B(9911) = RCT(6200)*V(1370) -! B(9912) = dA(6201)/dV(1370) - B(9912) = RCT(6201) -! B(9913) = dA(6202)/dV(2857) - B(9913) = RCT(6202)*V(5250) -! B(9914) = dA(6202)/dV(5250) - B(9914) = RCT(6202)*V(2857) -! B(9915) = dA(6203)/dV(2857) - B(9915) = RCT(6203) -! B(9916) = dA(6204)/dV(4198) - B(9916) = RCT(6204)*V(5255) -! B(9917) = dA(6204)/dV(5255) - B(9917) = RCT(6204)*V(4198) -! B(9918) = dA(6205)/dV(4198) - B(9918) = RCT(6205)*V(5255) -! B(9919) = dA(6205)/dV(5255) - B(9919) = RCT(6205)*V(4198) -! B(9920) = dA(6206)/dV(4198) - B(9920) = RCT(6206)*V(5255) -! B(9921) = dA(6206)/dV(5255) - B(9921) = RCT(6206)*V(4198) -! B(9922) = dA(6207)/dV(4198) - B(9922) = RCT(6207)*V(5252) -! B(9923) = dA(6207)/dV(5252) - B(9923) = RCT(6207)*V(4198) -! B(9924) = dA(6208)/dV(4198) - B(9924) = RCT(6208)*V(5253) -! B(9925) = dA(6208)/dV(5253) - B(9925) = RCT(6208)*V(4198) -! B(9926) = dA(6209)/dV(4198) - B(9926) = RCT(6209)*V(5256) -! B(9927) = dA(6209)/dV(5256) - B(9927) = RCT(6209)*V(4198) -! B(9928) = dA(6210)/dV(4198) - B(9928) = RCT(6210) -! B(9929) = dA(6211)/dV(4198) - B(9929) = RCT(6211) -! B(9930) = dA(6212)/dV(4769) - B(9930) = RCT(6212)*V(5255) -! B(9931) = dA(6212)/dV(5255) - B(9931) = RCT(6212)*V(4769) -! B(9932) = dA(6213)/dV(4769) - B(9932) = RCT(6213)*V(5252) -! B(9933) = dA(6213)/dV(5252) - B(9933) = RCT(6213)*V(4769) -! B(9934) = dA(6214)/dV(4769) - B(9934) = RCT(6214)*V(5256) -! B(9935) = dA(6214)/dV(5256) - B(9935) = RCT(6214)*V(4769) -! B(9936) = dA(6215)/dV(4769) - B(9936) = RCT(6215) -! B(9937) = dA(6216)/dV(1103) - B(9937) = RCT(6216)*V(5250) -! B(9938) = dA(6216)/dV(5250) - B(9938) = RCT(6216)*V(1103) -! B(9939) = dA(6217)/dV(1103) - B(9939) = RCT(6217) -! B(9940) = dA(6218)/dV(3108) - B(9940) = RCT(6218)*V(5250) -! B(9941) = dA(6218)/dV(5250) - B(9941) = RCT(6218)*V(3108) -! B(9942) = dA(6219)/dV(3108) - B(9942) = RCT(6219) -! B(9943) = dA(6220)/dV(3606) - B(9943) = RCT(6220) -! B(9944) = dA(6221)/dV(3606) - B(9944) = RCT(6221) -! B(9945) = dA(6222)/dV(3107) - B(9945) = RCT(6222)*V(5250) -! B(9946) = dA(6222)/dV(5250) - B(9946) = RCT(6222)*V(3107) -! B(9947) = dA(6223)/dV(3107) - B(9947) = RCT(6223) -! B(9948) = dA(6224)/dV(647) - B(9948) = RCT(6224)*V(5250) -! B(9949) = dA(6224)/dV(5250) - B(9949) = RCT(6224)*V(647) -! B(9950) = dA(6225)/dV(647) - B(9950) = RCT(6225) -! B(9951) = dA(6226)/dV(1968) - B(9951) = RCT(6226)*V(5250) -! B(9952) = dA(6226)/dV(5250) - B(9952) = RCT(6226)*V(1968) -! B(9953) = dA(6227)/dV(1968) - B(9953) = RCT(6227) -! B(9954) = dA(6228)/dV(1968) - B(9954) = RCT(6228) -! B(9955) = dA(6229)/dV(1583) - B(9955) = RCT(6229) -! B(9956) = dA(6230)/dV(1584) - B(9956) = RCT(6230)*V(5250) -! B(9957) = dA(6230)/dV(5250) - B(9957) = RCT(6230)*V(1584) -! B(9958) = dA(6231)/dV(1584) - B(9958) = RCT(6231) -! B(9959) = dA(6232)/dV(1584) - B(9959) = RCT(6232) -! B(9960) = dA(6233)/dV(2624) - B(9960) = RCT(6233)*V(5250) -! B(9961) = dA(6233)/dV(5250) - B(9961) = RCT(6233)*V(2624) -! B(9962) = dA(6234)/dV(2624) - B(9962) = RCT(6234) -! B(9963) = dA(6235)/dV(2624) - B(9963) = RCT(6235) -! B(9964) = dA(6236)/dV(3666) - B(9964) = RCT(6236) -! B(9965) = dA(6237)/dV(1567) - B(9965) = RCT(6237)*V(5250) -! B(9966) = dA(6237)/dV(5250) - B(9966) = RCT(6237)*V(1567) -! B(9967) = dA(6238)/dV(1567) - B(9967) = RCT(6238) -! B(9968) = dA(6239)/dV(3153) - B(9968) = RCT(6239)*V(5256) -! B(9969) = dA(6239)/dV(5256) - B(9969) = RCT(6239)*V(3153) -! B(9970) = dA(6240)/dV(3153) - B(9970) = RCT(6240)*V(5250) -! B(9971) = dA(6240)/dV(5250) - B(9971) = RCT(6240)*V(3153) -! B(9972) = dA(6241)/dV(4082) - B(9972) = RCT(6241)*V(5255) -! B(9973) = dA(6241)/dV(5255) - B(9973) = RCT(6241)*V(4082) -! B(9974) = dA(6242)/dV(4082) - B(9974) = RCT(6242)*V(5252) -! B(9975) = dA(6242)/dV(5252) - B(9975) = RCT(6242)*V(4082) -! B(9976) = dA(6243)/dV(4082) - B(9976) = RCT(6243)*V(5256) -! B(9977) = dA(6243)/dV(5256) - B(9977) = RCT(6243)*V(4082) -! B(9978) = dA(6244)/dV(4082) - B(9978) = RCT(6244) -! B(9979) = dA(6245)/dV(1033) - B(9979) = RCT(6245)*V(5250) -! B(9980) = dA(6245)/dV(5250) - B(9980) = RCT(6245)*V(1033) -! B(9981) = dA(6246)/dV(1033) - B(9981) = RCT(6246) -! B(9982) = dA(6247)/dV(4152) - B(9982) = RCT(6247) -! B(9983) = dA(6248)/dV(4152) - B(9983) = RCT(6248) -! B(9984) = dA(6249)/dV(119) - B(9984) = RCT(6249)*V(5250) -! B(9985) = dA(6249)/dV(5250) - B(9985) = RCT(6249)*V(119) -! B(9986) = dA(6250)/dV(4413) - B(9986) = RCT(6250)*V(5253) -! B(9987) = dA(6250)/dV(5253) - B(9987) = RCT(6250)*V(4413) -! B(9988) = dA(6251)/dV(4413) - B(9988) = RCT(6251)*V(5258) -! B(9989) = dA(6251)/dV(5258) - B(9989) = RCT(6251)*V(4413) -! B(9990) = dA(6252)/dV(718) - B(9990) = RCT(6252) -! B(9991) = dA(6253)/dV(1405) - B(9991) = RCT(6253)*V(5250) -! B(9992) = dA(6253)/dV(5250) - B(9992) = RCT(6253)*V(1405) -! B(9993) = dA(6254)/dV(1405) - B(9993) = RCT(6254) -! B(9994) = dA(6255)/dV(1473) - B(9994) = RCT(6255)*V(5250) -! B(9995) = dA(6255)/dV(5250) - B(9995) = RCT(6255)*V(1473) -! B(9996) = dA(6256)/dV(1473) - B(9996) = RCT(6256) -! B(9997) = dA(6257)/dV(2950) - B(9997) = RCT(6257)*V(5250) -! B(9998) = dA(6257)/dV(5250) - B(9998) = RCT(6257)*V(2950) -! B(9999) = dA(6258)/dV(2950) - B(9999) = RCT(6258) -! B(10000) = dA(6259)/dV(1038) - B(10000) = RCT(6259)*V(5250) -! B(10001) = dA(6259)/dV(5250) - B(10001) = RCT(6259)*V(1038) -! B(10002) = dA(6260)/dV(1038) - B(10002) = RCT(6260) -! B(10003) = dA(6261)/dV(3322) - B(10003) = RCT(6261)*V(5250) -! B(10004) = dA(6261)/dV(5250) - B(10004) = RCT(6261)*V(3322) -! B(10005) = dA(6262)/dV(3322) - B(10005) = RCT(6262) -! B(10006) = dA(6263)/dV(3610) - B(10006) = RCT(6263) -! B(10007) = dA(6264)/dV(3610) - B(10007) = RCT(6264) -! B(10008) = dA(6265)/dV(3411) - B(10008) = RCT(6265)*V(5250) -! B(10009) = dA(6265)/dV(5250) - B(10009) = RCT(6265)*V(3411) -! B(10010) = dA(6266)/dV(3411) - B(10010) = RCT(6266) -! B(10011) = dA(6267)/dV(742) - B(10011) = RCT(6267)*V(5250) -! B(10012) = dA(6267)/dV(5250) - B(10012) = RCT(6267)*V(742) -! B(10013) = dA(6268)/dV(742) - B(10013) = RCT(6268) -! B(10014) = dA(6269)/dV(1873) - B(10014) = RCT(6269)*V(5250) -! B(10015) = dA(6269)/dV(5250) - B(10015) = RCT(6269)*V(1873) -! B(10016) = dA(6270)/dV(1873) - B(10016) = RCT(6270) -! B(10017) = dA(6271)/dV(1873) - B(10017) = RCT(6271) -! B(10018) = dA(6272)/dV(1640) - B(10018) = RCT(6272) -! B(10019) = dA(6273)/dV(2484) - B(10019) = RCT(6273)*V(5250) -! B(10020) = dA(6273)/dV(5250) - B(10020) = RCT(6273)*V(2484) -! B(10021) = dA(6274)/dV(2484) - B(10021) = RCT(6274) -! B(10022) = dA(6275)/dV(2484) - B(10022) = RCT(6275) -! B(10023) = dA(6276)/dV(1560) - B(10023) = RCT(6276)*V(5250) -! B(10024) = dA(6276)/dV(5250) - B(10024) = RCT(6276)*V(1560) -! B(10025) = dA(6277)/dV(1560) - B(10025) = RCT(6277) -! B(10026) = dA(6278)/dV(1560) - B(10026) = RCT(6278) -! B(10027) = dA(6279)/dV(3101) - B(10027) = RCT(6279)*V(5256) -! B(10028) = dA(6279)/dV(5256) - B(10028) = RCT(6279)*V(3101) -! B(10029) = dA(6280)/dV(3101) - B(10029) = RCT(6280)*V(5250) -! B(10030) = dA(6280)/dV(5250) - B(10030) = RCT(6280)*V(3101) -! B(10031) = dA(6281)/dV(4008) - B(10031) = RCT(6281)*V(5255) -! B(10032) = dA(6281)/dV(5255) - B(10032) = RCT(6281)*V(4008) -! B(10033) = dA(6282)/dV(4008) - B(10033) = RCT(6282)*V(5252) -! B(10034) = dA(6282)/dV(5252) - B(10034) = RCT(6282)*V(4008) -! B(10035) = dA(6283)/dV(4008) - B(10035) = RCT(6283)*V(5256) -! B(10036) = dA(6283)/dV(5256) - B(10036) = RCT(6283)*V(4008) -! B(10037) = dA(6284)/dV(4008) - B(10037) = RCT(6284) -! B(10038) = dA(6285)/dV(1503) - B(10038) = RCT(6285)*V(5250) -! B(10039) = dA(6285)/dV(5250) - B(10039) = RCT(6285)*V(1503) -! B(10040) = dA(6286)/dV(1503) - B(10040) = RCT(6286) -! B(10041) = dA(6287)/dV(4799) - B(10041) = RCT(6287) -! B(10042) = dA(6288)/dV(4799) - B(10042) = RCT(6288) -! B(10043) = dA(6289)/dV(124) - B(10043) = RCT(6289)*V(5250) -! B(10044) = dA(6289)/dV(5250) - B(10044) = RCT(6289)*V(124) -! B(10045) = dA(6290)/dV(2499) - B(10045) = RCT(6290)*V(5250) -! B(10046) = dA(6290)/dV(5250) - B(10046) = RCT(6290)*V(2499) -! B(10047) = dA(6291)/dV(2499) - B(10047) = RCT(6291) -! B(10048) = dA(6292)/dV(2499) - B(10048) = RCT(6292) -! B(10049) = dA(6293)/dV(2789) - B(10049) = RCT(6293) -! B(10050) = dA(6294)/dV(1555) - B(10050) = RCT(6294)*V(5250) -! B(10051) = dA(6294)/dV(5250) - B(10051) = RCT(6294)*V(1555) -! B(10052) = dA(6295)/dV(1555) - B(10052) = RCT(6295) -! B(10053) = dA(6296)/dV(4402) - B(10053) = RCT(6296)*V(5253) -! B(10054) = dA(6296)/dV(5253) - B(10054) = RCT(6296)*V(4402) -! B(10055) = dA(6297)/dV(4402) - B(10055) = RCT(6297)*V(5258) -! B(10056) = dA(6297)/dV(5258) - B(10056) = RCT(6297)*V(4402) -! B(10057) = dA(6298)/dV(676) - B(10057) = RCT(6298) -! B(10058) = dA(6299)/dV(5103) - B(10058) = RCT(6299)*V(5258) -! B(10059) = dA(6299)/dV(5258) - B(10059) = RCT(6299)*V(5103) -! B(10060) = dA(6300)/dV(5103) - B(10060) = RCT(6300)*V(5258) -! B(10061) = dA(6300)/dV(5258) - B(10061) = RCT(6300)*V(5103) -! B(10062) = dA(6301)/dV(5103) - B(10062) = RCT(6301)*V(5250) -! B(10063) = dA(6301)/dV(5250) - B(10063) = RCT(6301)*V(5103) -! B(10064) = dA(6302)/dV(5103) - B(10064) = RCT(6302) -! B(10065) = dA(6303)/dV(5103) - B(10065) = RCT(6303) -! B(10066) = dA(6304)/dV(1481) - B(10066) = RCT(6304)*V(5250) -! B(10067) = dA(6304)/dV(5250) - B(10067) = RCT(6304)*V(1481) -! B(10068) = dA(6305)/dV(1481) - B(10068) = RCT(6305) -! B(10069) = dA(6306)/dV(1254) - B(10069) = RCT(6306)*V(5250) -! B(10070) = dA(6306)/dV(5250) - B(10070) = RCT(6306)*V(1254) -! B(10071) = dA(6307)/dV(1254) - B(10071) = RCT(6307) -! B(10072) = dA(6308)/dV(2632) - B(10072) = RCT(6308)*V(5250) -! B(10073) = dA(6308)/dV(5250) - B(10073) = RCT(6308)*V(2632) -! B(10074) = dA(6309)/dV(2632) - B(10074) = RCT(6309) -! B(10075) = dA(6310)/dV(1161) - B(10075) = RCT(6310)*V(5250) -! B(10076) = dA(6310)/dV(5250) - B(10076) = RCT(6310)*V(1161) -! B(10077) = dA(6311)/dV(1161) - B(10077) = RCT(6311) -! B(10078) = dA(6312)/dV(3271) - B(10078) = RCT(6312)*V(5250) -! B(10079) = dA(6312)/dV(5250) - B(10079) = RCT(6312)*V(3271) -! B(10080) = dA(6313)/dV(3271) - B(10080) = RCT(6313) -! B(10081) = dA(6314)/dV(3570) - B(10081) = RCT(6314) -! B(10082) = dA(6315)/dV(3570) - B(10082) = RCT(6315) -! B(10083) = dA(6316)/dV(3345) - B(10083) = RCT(6316)*V(5250) -! B(10084) = dA(6316)/dV(5250) - B(10084) = RCT(6316)*V(3345) -! B(10085) = dA(6317)/dV(3345) - B(10085) = RCT(6317) -! B(10086) = dA(6318)/dV(811) - B(10086) = RCT(6318)*V(5250) -! B(10087) = dA(6318)/dV(5250) - B(10087) = RCT(6318)*V(811) -! B(10088) = dA(6319)/dV(811) - B(10088) = RCT(6319) -! B(10089) = dA(6320)/dV(3451) - B(10089) = RCT(6320)*V(5250) -! B(10090) = dA(6320)/dV(5250) - B(10090) = RCT(6320)*V(3451) -! B(10091) = dA(6321)/dV(3451) - B(10091) = RCT(6321) -! B(10092) = dA(6322)/dV(3451) - B(10092) = RCT(6322) -! B(10093) = dA(6323)/dV(3451) - B(10093) = RCT(6323) -! B(10094) = dA(6324)/dV(2287) - B(10094) = RCT(6324) -! B(10095) = dA(6325)/dV(1857) - B(10095) = RCT(6325)*V(5250) -! B(10096) = dA(6325)/dV(5250) - B(10096) = RCT(6325)*V(1857) -! B(10097) = dA(6326)/dV(1857) - B(10097) = RCT(6326) -! B(10098) = dA(6327)/dV(1857) - B(10098) = RCT(6327) -! B(10099) = dA(6328)/dV(3279) - B(10099) = RCT(6328)*V(5250) -! B(10100) = dA(6328)/dV(5250) - B(10100) = RCT(6328)*V(3279) -! B(10101) = dA(6329)/dV(3279) - B(10101) = RCT(6329) -! B(10102) = dA(6330)/dV(3279) - B(10102) = RCT(6330) -! B(10103) = dA(6331)/dV(2563) - B(10103) = RCT(6331) -! B(10104) = dA(6332)/dV(1554) - B(10104) = RCT(6332)*V(5250) -! B(10105) = dA(6332)/dV(5250) - B(10105) = RCT(6332)*V(1554) -! B(10106) = dA(6333)/dV(1554) - B(10106) = RCT(6333) -! B(10107) = dA(6334)/dV(3098) - B(10107) = RCT(6334)*V(5256) -! B(10108) = dA(6334)/dV(5256) - B(10108) = RCT(6334)*V(3098) -! B(10109) = dA(6335)/dV(3098) - B(10109) = RCT(6335)*V(5250) -! B(10110) = dA(6335)/dV(5250) - B(10110) = RCT(6335)*V(3098) -! B(10111) = dA(6336)/dV(4085) - B(10111) = RCT(6336)*V(5255) -! B(10112) = dA(6336)/dV(5255) - B(10112) = RCT(6336)*V(4085) -! B(10113) = dA(6337)/dV(4085) - B(10113) = RCT(6337)*V(5252) -! B(10114) = dA(6337)/dV(5252) - B(10114) = RCT(6337)*V(4085) -! B(10115) = dA(6338)/dV(4085) - B(10115) = RCT(6338)*V(5256) -! B(10116) = dA(6338)/dV(5256) - B(10116) = RCT(6338)*V(4085) -! B(10117) = dA(6339)/dV(4085) - B(10117) = RCT(6339) -! B(10118) = dA(6340)/dV(932) - B(10118) = RCT(6340)*V(5250) -! B(10119) = dA(6340)/dV(5250) - B(10119) = RCT(6340)*V(932) -! B(10120) = dA(6341)/dV(932) - B(10120) = RCT(6341) -! B(10121) = dA(6342)/dV(4533) - B(10121) = RCT(6342) -! B(10122) = dA(6343)/dV(4533) - B(10122) = RCT(6343) -! B(10123) = dA(6344)/dV(111) - B(10123) = RCT(6344)*V(5250) -! B(10124) = dA(6344)/dV(5250) - B(10124) = RCT(6344)*V(111) -! B(10125) = dA(6345)/dV(4499) - B(10125) = RCT(6345)*V(5253) -! B(10126) = dA(6345)/dV(5253) - B(10126) = RCT(6345)*V(4499) -! B(10127) = dA(6346)/dV(4499) - B(10127) = RCT(6346)*V(5258) -! B(10128) = dA(6346)/dV(5258) - B(10128) = RCT(6346)*V(4499) -! B(10129) = dA(6347)/dV(560) - B(10129) = RCT(6347) -! B(10130) = dA(6348)/dV(4070) - B(10130) = RCT(6348)*V(5255) -! B(10131) = dA(6348)/dV(5255) - B(10131) = RCT(6348)*V(4070) -! B(10132) = dA(6349)/dV(4070) - B(10132) = RCT(6349)*V(5252) -! B(10133) = dA(6349)/dV(5252) - B(10133) = RCT(6349)*V(4070) -! B(10134) = dA(6350)/dV(4070) - B(10134) = RCT(6350)*V(5256) -! B(10135) = dA(6350)/dV(5256) - B(10135) = RCT(6350)*V(4070) -! B(10136) = dA(6351)/dV(4070) - B(10136) = RCT(6351) -! B(10137) = dA(6352)/dV(4070) - B(10137) = RCT(6352) -! B(10138) = dA(6353)/dV(4070) - B(10138) = RCT(6353) -! B(10139) = dA(6354)/dV(5141) - B(10139) = RCT(6354)*V(5256) -! B(10140) = dA(6354)/dV(5256) - B(10140) = RCT(6354)*V(5141) -! B(10141) = dA(6355)/dV(5141) - B(10141) = RCT(6355)*V(5258) -! B(10142) = dA(6355)/dV(5258) - B(10142) = RCT(6355)*V(5141) -! B(10143) = dA(6356)/dV(5141) - B(10143) = RCT(6356)*V(5258) -! B(10144) = dA(6356)/dV(5258) - B(10144) = RCT(6356)*V(5141) -! B(10145) = dA(6357)/dV(5141) - B(10145) = RCT(6357)*V(5250) -! B(10146) = dA(6357)/dV(5250) - B(10146) = RCT(6357)*V(5141) -! B(10147) = dA(6358)/dV(5141) - B(10147) = RCT(6358)*V(5250) -! B(10148) = dA(6358)/dV(5250) - B(10148) = RCT(6358)*V(5141) -! B(10149) = dA(6359)/dV(5141) - B(10149) = RCT(6359) -! B(10150) = dA(6360)/dV(5141) - B(10150) = RCT(6360) -! B(10151) = dA(6361)/dV(4793) - B(10151) = RCT(6361)*V(5256) -! B(10152) = dA(6361)/dV(5256) - B(10152) = RCT(6361)*V(4793) -! B(10153) = dA(6362)/dV(4793) - B(10153) = RCT(6362)*V(5258) -! B(10154) = dA(6362)/dV(5258) - B(10154) = RCT(6362)*V(4793) -! B(10155) = dA(6363)/dV(4793) - B(10155) = RCT(6363)*V(5250) -! B(10156) = dA(6363)/dV(5250) - B(10156) = RCT(6363)*V(4793) -! B(10157) = dA(6364)/dV(1330) - B(10157) = RCT(6364)*V(5250) -! B(10158) = dA(6364)/dV(5250) - B(10158) = RCT(6364)*V(1330) -! B(10159) = dA(6365)/dV(1330) - B(10159) = RCT(6365) -! B(10160) = dA(6366)/dV(1299) - B(10160) = RCT(6366)*V(5250) -! B(10161) = dA(6366)/dV(5250) - B(10161) = RCT(6366)*V(1299) -! B(10162) = dA(6367)/dV(1299) - B(10162) = RCT(6367) -! B(10163) = dA(6368)/dV(2948) - B(10163) = RCT(6368)*V(5250) -! B(10164) = dA(6368)/dV(5250) - B(10164) = RCT(6368)*V(2948) -! B(10165) = dA(6369)/dV(2948) - B(10165) = RCT(6369) -! B(10166) = dA(6370)/dV(947) - B(10166) = RCT(6370)*V(5250) -! B(10167) = dA(6370)/dV(5250) - B(10167) = RCT(6370)*V(947) -! B(10168) = dA(6371)/dV(947) - B(10168) = RCT(6371) -! B(10169) = dA(6372)/dV(3581) - B(10169) = RCT(6372) -! B(10170) = dA(6373)/dV(3581) - B(10170) = RCT(6373) -! B(10171) = dA(6374)/dV(3457) - B(10171) = RCT(6374)*V(5250) -! B(10172) = dA(6374)/dV(5250) - B(10172) = RCT(6374)*V(3457) -! B(10173) = dA(6375)/dV(3457) - B(10173) = RCT(6375) -! B(10174) = dA(6376)/dV(475) - B(10174) = RCT(6376)*V(5250) -! B(10175) = dA(6376)/dV(5250) - B(10175) = RCT(6376)*V(475) -! B(10176) = dA(6377)/dV(475) - B(10176) = RCT(6377) -! B(10177) = dA(6378)/dV(3702) - B(10177) = RCT(6378)*V(5250) -! B(10178) = dA(6378)/dV(5250) - B(10178) = RCT(6378)*V(3702) -! B(10179) = dA(6379)/dV(3702) - B(10179) = RCT(6379) -! B(10180) = dA(6380)/dV(3702) - B(10180) = RCT(6380) -! B(10181) = dA(6381)/dV(3702) - B(10181) = RCT(6381) -! B(10182) = dA(6382)/dV(623) - B(10182) = RCT(6382) -! B(10183) = dA(6383)/dV(1665) - B(10183) = RCT(6383)*V(5250) -! B(10184) = dA(6383)/dV(5250) - B(10184) = RCT(6383)*V(1665) -! B(10185) = dA(6384)/dV(1665) - B(10185) = RCT(6384) -! B(10186) = dA(6385)/dV(3262) - B(10186) = RCT(6385)*V(5250) -! B(10187) = dA(6385)/dV(5250) - B(10187) = RCT(6385)*V(3262) -! B(10188) = dA(6386)/dV(3262) - B(10188) = RCT(6386) -! B(10189) = dA(6387)/dV(3295) - B(10189) = RCT(6387)*V(5250) -! B(10190) = dA(6387)/dV(5250) - B(10190) = RCT(6387)*V(3295) -! B(10191) = dA(6388)/dV(3295) - B(10191) = RCT(6388) -! B(10192) = dA(6389)/dV(3295) - B(10192) = RCT(6389) -! B(10193) = dA(6390)/dV(2728) - B(10193) = RCT(6390) -! B(10194) = dA(6391)/dV(1594) - B(10194) = RCT(6391)*V(5250) -! B(10195) = dA(6391)/dV(5250) - B(10195) = RCT(6391)*V(1594) -! B(10196) = dA(6392)/dV(1594) - B(10196) = RCT(6392) -! B(10197) = dA(6393)/dV(982) - B(10197) = RCT(6393)*V(5250) -! B(10198) = dA(6393)/dV(5250) - B(10198) = RCT(6393)*V(982) -! B(10199) = dA(6394)/dV(982) - B(10199) = RCT(6394) -! B(10200) = dA(6395)/dV(3296) - B(10200) = RCT(6395) -! B(10201) = dA(6396)/dV(18) - B(10201) = RCT(6396)*V(5250) -! B(10202) = dA(6396)/dV(5250) - B(10202) = RCT(6396)*V(18) -! B(10203) = dA(6397)/dV(3810) - B(10203) = RCT(6397)*V(5255) -! B(10204) = dA(6397)/dV(5255) - B(10204) = RCT(6397)*V(3810) -! B(10205) = dA(6398)/dV(3810) - B(10205) = RCT(6398)*V(5252) -! B(10206) = dA(6398)/dV(5252) - B(10206) = RCT(6398)*V(3810) -! B(10207) = dA(6399)/dV(3810) - B(10207) = RCT(6399)*V(5256) -! B(10208) = dA(6399)/dV(5256) - B(10208) = RCT(6399)*V(3810) -! B(10209) = dA(6400)/dV(3810) - B(10209) = RCT(6400) -! B(10210) = dA(6401)/dV(3810) - B(10210) = RCT(6401) -! B(10211) = dA(6402)/dV(3810) - B(10211) = RCT(6402) -! B(10212) = dA(6403)/dV(4051) - B(10212) = RCT(6403)*V(5255) -! B(10213) = dA(6403)/dV(5255) - B(10213) = RCT(6403)*V(4051) -! B(10214) = dA(6404)/dV(4051) - B(10214) = RCT(6404)*V(5255) -! B(10215) = dA(6404)/dV(5255) - B(10215) = RCT(6404)*V(4051) -! B(10216) = dA(6405)/dV(4051) - B(10216) = RCT(6405)*V(5252) -! B(10217) = dA(6405)/dV(5252) - B(10217) = RCT(6405)*V(4051) -! B(10218) = dA(6406)/dV(4051) - B(10218) = RCT(6406)*V(5253) -! B(10219) = dA(6406)/dV(5253) - B(10219) = RCT(6406)*V(4051) -! B(10220) = dA(6407)/dV(4051) - B(10220) = RCT(6407)*V(5256) -! B(10221) = dA(6407)/dV(5256) - B(10221) = RCT(6407)*V(4051) -! B(10222) = dA(6408)/dV(4051) - B(10222) = RCT(6408) -! B(10223) = dA(6409)/dV(3235) - B(10223) = RCT(6409)*V(5250) -! B(10224) = dA(6409)/dV(5250) - B(10224) = RCT(6409)*V(3235) -! B(10225) = dA(6410)/dV(3235) - B(10225) = RCT(6410) -! B(10226) = dA(6411)/dV(3235) - B(10226) = RCT(6411) -! B(10227) = dA(6412)/dV(2732) - B(10227) = RCT(6412) -! B(10228) = dA(6413)/dV(1729) - B(10228) = RCT(6413)*V(5250) -! B(10229) = dA(6413)/dV(5250) - B(10229) = RCT(6413)*V(1729) -! B(10230) = dA(6414)/dV(1729) - B(10230) = RCT(6414) -! B(10231) = dA(6415)/dV(1396) - B(10231) = RCT(6415)*V(5250) -! B(10232) = dA(6415)/dV(5250) - B(10232) = RCT(6415)*V(1396) -! B(10233) = dA(6416)/dV(1396) - B(10233) = RCT(6416) -! B(10234) = dA(6417)/dV(3283) - B(10234) = RCT(6417) -! B(10235) = dA(6418)/dV(74) - B(10235) = RCT(6418)*V(5250) -! B(10236) = dA(6418)/dV(5250) - B(10236) = RCT(6418)*V(74) -! B(10237) = dA(6419)/dV(4168) - B(10237) = RCT(6419)*V(5255) -! B(10238) = dA(6419)/dV(5255) - B(10238) = RCT(6419)*V(4168) -! B(10239) = dA(6420)/dV(4168) - B(10239) = RCT(6420)*V(5255) -! B(10240) = dA(6420)/dV(5255) - B(10240) = RCT(6420)*V(4168) -! B(10241) = dA(6421)/dV(4168) - B(10241) = RCT(6421)*V(5252) -! B(10242) = dA(6421)/dV(5252) - B(10242) = RCT(6421)*V(4168) -! B(10243) = dA(6422)/dV(4168) - B(10243) = RCT(6422)*V(5253) -! B(10244) = dA(6422)/dV(5253) - B(10244) = RCT(6422)*V(4168) -! B(10245) = dA(6423)/dV(4168) - B(10245) = RCT(6423)*V(5256) -! B(10246) = dA(6423)/dV(5256) - B(10246) = RCT(6423)*V(4168) -! B(10247) = dA(6424)/dV(4168) - B(10247) = RCT(6424) -! B(10248) = dA(6425)/dV(898) - B(10248) = RCT(6425)*V(5250) -! B(10249) = dA(6425)/dV(5250) - B(10249) = RCT(6425)*V(898) -! B(10250) = dA(6426)/dV(898) - B(10250) = RCT(6426) -! B(10251) = dA(6427)/dV(1274) - B(10251) = RCT(6427)*V(5250) -! B(10252) = dA(6427)/dV(5250) - B(10252) = RCT(6427)*V(1274) -! B(10253) = dA(6428)/dV(1274) - B(10253) = RCT(6428) -! B(10254) = dA(6429)/dV(2650) - B(10254) = RCT(6429)*V(5250) -! B(10255) = dA(6429)/dV(5250) - B(10255) = RCT(6429)*V(2650) -! B(10256) = dA(6430)/dV(2650) - B(10256) = RCT(6430) -! B(10257) = dA(6431)/dV(4628) - B(10257) = RCT(6431)*V(5255) -! B(10258) = dA(6431)/dV(5255) - B(10258) = RCT(6431)*V(4628) -! B(10259) = dA(6432)/dV(4628) - B(10259) = RCT(6432)*V(5255) -! B(10260) = dA(6432)/dV(5255) - B(10260) = RCT(6432)*V(4628) -! B(10261) = dA(6433)/dV(4628) - B(10261) = RCT(6433)*V(5255) -! B(10262) = dA(6433)/dV(5255) - B(10262) = RCT(6433)*V(4628) -! B(10263) = dA(6434)/dV(4628) - B(10263) = RCT(6434)*V(5252) -! B(10264) = dA(6434)/dV(5252) - B(10264) = RCT(6434)*V(4628) -! B(10265) = dA(6435)/dV(4628) - B(10265) = RCT(6435)*V(5253) -! B(10266) = dA(6435)/dV(5253) - B(10266) = RCT(6435)*V(4628) -! B(10267) = dA(6436)/dV(4628) - B(10267) = RCT(6436)*V(5256) -! B(10268) = dA(6436)/dV(5256) - B(10268) = RCT(6436)*V(4628) -! B(10269) = dA(6437)/dV(4628) - B(10269) = RCT(6437) -! B(10270) = dA(6438)/dV(4628) - B(10270) = RCT(6438) -! B(10271) = dA(6439)/dV(4277) - B(10271) = RCT(6439)*V(5255) -! B(10272) = dA(6439)/dV(5255) - B(10272) = RCT(6439)*V(4277) -! B(10273) = dA(6440)/dV(4277) - B(10273) = RCT(6440)*V(5252) -! B(10274) = dA(6440)/dV(5252) - B(10274) = RCT(6440)*V(4277) -! B(10275) = dA(6441)/dV(4277) - B(10275) = RCT(6441)*V(5256) -! B(10276) = dA(6441)/dV(5256) - B(10276) = RCT(6441)*V(4277) -! B(10277) = dA(6442)/dV(4277) - B(10277) = RCT(6442) -! B(10278) = dA(6443)/dV(4277) - B(10278) = RCT(6443) -! B(10279) = dA(6444)/dV(4787) - B(10279) = RCT(6444)*V(5255) -! B(10280) = dA(6444)/dV(5255) - B(10280) = RCT(6444)*V(4787) -! B(10281) = dA(6445)/dV(4787) - B(10281) = RCT(6445)*V(5252) -! B(10282) = dA(6445)/dV(5252) - B(10282) = RCT(6445)*V(4787) -! B(10283) = dA(6446)/dV(4787) - B(10283) = RCT(6446)*V(5256) -! B(10284) = dA(6446)/dV(5256) - B(10284) = RCT(6446)*V(4787) -! B(10285) = dA(6447)/dV(4787) - B(10285) = RCT(6447) -! B(10286) = dA(6448)/dV(4787) - B(10286) = RCT(6448) -! B(10287) = dA(6449)/dV(4787) - B(10287) = RCT(6449) -! B(10288) = dA(6450)/dV(914) - B(10288) = RCT(6450)*V(5250) -! B(10289) = dA(6450)/dV(5250) - B(10289) = RCT(6450)*V(914) -! B(10290) = dA(6451)/dV(914) - B(10290) = RCT(6451) -! B(10291) = dA(6452)/dV(3600) - B(10291) = RCT(6452) -! B(10292) = dA(6453)/dV(3600) - B(10292) = RCT(6453) -! B(10293) = dA(6454)/dV(3460) - B(10293) = RCT(6454)*V(5250) -! B(10294) = dA(6454)/dV(5250) - B(10294) = RCT(6454)*V(3460) -! B(10295) = dA(6455)/dV(3460) - B(10295) = RCT(6455) -! B(10296) = dA(6456)/dV(374) - B(10296) = RCT(6456)*V(5250) -! B(10297) = dA(6456)/dV(5250) - B(10297) = RCT(6456)*V(374) -! B(10298) = dA(6457)/dV(374) - B(10298) = RCT(6457) -! B(10299) = dA(6458)/dV(2137) - B(10299) = RCT(6458)*V(5250) -! B(10300) = dA(6458)/dV(5250) - B(10300) = RCT(6458)*V(2137) -! B(10301) = dA(6459)/dV(2137) - B(10301) = RCT(6459) -! B(10302) = dA(6460)/dV(2137) - B(10302) = RCT(6460) -! B(10303) = dA(6461)/dV(589) - B(10303) = RCT(6461) -! B(10304) = dA(6462)/dV(1576) - B(10304) = RCT(6462)*V(5250) -! B(10305) = dA(6462)/dV(5250) - B(10305) = RCT(6462)*V(1576) -! B(10306) = dA(6463)/dV(1576) - B(10306) = RCT(6463) -! B(10307) = dA(6464)/dV(3200) - B(10307) = RCT(6464)*V(5250) -! B(10308) = dA(6464)/dV(5250) - B(10308) = RCT(6464)*V(3200) -! B(10309) = dA(6465)/dV(3200) - B(10309) = RCT(6465) -! B(10310) = dA(6466)/dV(4589) - B(10310) = RCT(6466)*V(5255) -! B(10311) = dA(6466)/dV(5255) - B(10311) = RCT(6466)*V(4589) -! B(10312) = dA(6467)/dV(4589) - B(10312) = RCT(6467)*V(5252) -! B(10313) = dA(6467)/dV(5252) - B(10313) = RCT(6467)*V(4589) -! B(10314) = dA(6468)/dV(4589) - B(10314) = RCT(6468)*V(5256) -! B(10315) = dA(6468)/dV(5256) - B(10315) = RCT(6468)*V(4589) -! B(10316) = dA(6469)/dV(4589) - B(10316) = RCT(6469) -! B(10317) = dA(6470)/dV(4589) - B(10317) = RCT(6470) -! B(10318) = dA(6471)/dV(4589) - B(10318) = RCT(6471) -! B(10319) = dA(6472)/dV(4516) - B(10319) = RCT(6472)*V(5255) -! B(10320) = dA(6472)/dV(5255) - B(10320) = RCT(6472)*V(4516) -! B(10321) = dA(6473)/dV(4516) - B(10321) = RCT(6473)*V(5255) -! B(10322) = dA(6473)/dV(5255) - B(10322) = RCT(6473)*V(4516) -! B(10323) = dA(6474)/dV(4516) - B(10323) = RCT(6474)*V(5255) -! B(10324) = dA(6474)/dV(5255) - B(10324) = RCT(6474)*V(4516) -! B(10325) = dA(6475)/dV(4516) - B(10325) = RCT(6475)*V(5252) -! B(10326) = dA(6475)/dV(5252) - B(10326) = RCT(6475)*V(4516) -! B(10327) = dA(6476)/dV(4516) - B(10327) = RCT(6476)*V(5253) -! B(10328) = dA(6476)/dV(5253) - B(10328) = RCT(6476)*V(4516) -! B(10329) = dA(6477)/dV(4516) - B(10329) = RCT(6477)*V(5256) -! B(10330) = dA(6477)/dV(5256) - B(10330) = RCT(6477)*V(4516) -! B(10331) = dA(6478)/dV(4516) - B(10331) = RCT(6478) -! B(10332) = dA(6479)/dV(4516) - B(10332) = RCT(6479) -! B(10333) = dA(6480)/dV(2481) - B(10333) = RCT(6480) -! B(10334) = dA(6481)/dV(2481) - B(10334) = RCT(6481) -! B(10335) = dA(6482)/dV(2481) - B(10335) = RCT(6482) -! B(10336) = dA(6483)/dV(2481) - B(10336) = RCT(6483) -! B(10337) = dA(6484)/dV(4732) - B(10337) = RCT(6484)*V(5255) -! B(10338) = dA(6484)/dV(5255) - B(10338) = RCT(6484)*V(4732) -! B(10339) = dA(6485)/dV(4732) - B(10339) = RCT(6485)*V(5252) -! B(10340) = dA(6485)/dV(5252) - B(10340) = RCT(6485)*V(4732) -! B(10341) = dA(6486)/dV(4732) - B(10341) = RCT(6486)*V(5256) -! B(10342) = dA(6486)/dV(5256) - B(10342) = RCT(6486)*V(4732) -! B(10343) = dA(6487)/dV(4732) - B(10343) = RCT(6487) -! B(10344) = dA(6488)/dV(4732) - B(10344) = RCT(6488) -! B(10345) = dA(6489)/dV(4732) - B(10345) = RCT(6489) -! B(10346) = dA(6490)/dV(4414) - B(10346) = RCT(6490)*V(5255) -! B(10347) = dA(6490)/dV(5255) - B(10347) = RCT(6490)*V(4414) -! B(10348) = dA(6491)/dV(4414) - B(10348) = RCT(6491)*V(5255) -! B(10349) = dA(6491)/dV(5255) - B(10349) = RCT(6491)*V(4414) -! B(10350) = dA(6492)/dV(4414) - B(10350) = RCT(6492)*V(5255) -! B(10351) = dA(6492)/dV(5255) - B(10351) = RCT(6492)*V(4414) -! B(10352) = dA(6493)/dV(4414) - B(10352) = RCT(6493)*V(5252) -! B(10353) = dA(6493)/dV(5252) - B(10353) = RCT(6493)*V(4414) -! B(10354) = dA(6494)/dV(4414) - B(10354) = RCT(6494)*V(5253) -! B(10355) = dA(6494)/dV(5253) - B(10355) = RCT(6494)*V(4414) -! B(10356) = dA(6495)/dV(4414) - B(10356) = RCT(6495)*V(5256) -! B(10357) = dA(6495)/dV(5256) - B(10357) = RCT(6495)*V(4414) -! B(10358) = dA(6496)/dV(4414) - B(10358) = RCT(6496) -! B(10359) = dA(6497)/dV(4414) - B(10359) = RCT(6497) -! B(10360) = dA(6498)/dV(1642) - B(10360) = RCT(6498) -! B(10361) = dA(6499)/dV(1642) - B(10361) = RCT(6499) -! B(10362) = dA(6500)/dV(1642) - B(10362) = RCT(6500) -! B(10363) = dA(6501)/dV(1642) - B(10363) = RCT(6501) -! B(10364) = dA(6502)/dV(4159) - B(10364) = RCT(6502)*V(5255) -! B(10365) = dA(6502)/dV(5255) - B(10365) = RCT(6502)*V(4159) -! B(10366) = dA(6503)/dV(4159) - B(10366) = RCT(6503)*V(5252) -! B(10367) = dA(6503)/dV(5252) - B(10367) = RCT(6503)*V(4159) -! B(10368) = dA(6504)/dV(4159) - B(10368) = RCT(6504)*V(5252) -! B(10369) = dA(6504)/dV(5252) - B(10369) = RCT(6504)*V(4159) -! B(10370) = dA(6505)/dV(4159) - B(10370) = RCT(6505)*V(5256) -! B(10371) = dA(6505)/dV(5256) - B(10371) = RCT(6505)*V(4159) -! B(10372) = dA(6506)/dV(4159) - B(10372) = RCT(6506) -! B(10373) = dA(6507)/dV(4159) - B(10373) = RCT(6507) -! B(10374) = dA(6508)/dV(4159) - B(10374) = RCT(6508) -! B(10375) = dA(6509)/dV(2258) - B(10375) = RCT(6509) -! B(10376) = dA(6510)/dV(2258) - B(10376) = RCT(6510) -! B(10377) = dA(6511)/dV(2258) - B(10377) = RCT(6511) -! B(10378) = dA(6512)/dV(2258) - B(10378) = RCT(6512) -! B(10379) = dA(6513)/dV(4578) - B(10379) = RCT(6513)*V(5255) -! B(10380) = dA(6513)/dV(5255) - B(10380) = RCT(6513)*V(4578) -! B(10381) = dA(6514)/dV(4578) - B(10381) = RCT(6514)*V(5252) -! B(10382) = dA(6514)/dV(5252) - B(10382) = RCT(6514)*V(4578) -! B(10383) = dA(6515)/dV(4578) - B(10383) = RCT(6515)*V(5252) -! B(10384) = dA(6515)/dV(5252) - B(10384) = RCT(6515)*V(4578) -! B(10385) = dA(6516)/dV(4578) - B(10385) = RCT(6516)*V(5256) -! B(10386) = dA(6516)/dV(5256) - B(10386) = RCT(6516)*V(4578) -! B(10387) = dA(6517)/dV(4578) - B(10387) = RCT(6517) -! B(10388) = dA(6518)/dV(4578) - B(10388) = RCT(6518) -! B(10389) = dA(6519)/dV(4578) - B(10389) = RCT(6519) -! B(10390) = dA(6520)/dV(4341) - B(10390) = RCT(6520)*V(5255) -! B(10391) = dA(6520)/dV(5255) - B(10391) = RCT(6520)*V(4341) -! B(10392) = dA(6521)/dV(4341) - B(10392) = RCT(6521)*V(5252) -! B(10393) = dA(6521)/dV(5252) - B(10393) = RCT(6521)*V(4341) -! B(10394) = dA(6522)/dV(4341) - B(10394) = RCT(6522)*V(5256) -! B(10395) = dA(6522)/dV(5256) - B(10395) = RCT(6522)*V(4341) -! B(10396) = dA(6523)/dV(4341) - B(10396) = RCT(6523) -! B(10397) = dA(6524)/dV(4341) - B(10397) = RCT(6524) -! B(10398) = dA(6525)/dV(4341) - B(10398) = RCT(6525) -! B(10399) = dA(6526)/dV(4259) - B(10399) = RCT(6526)*V(5255) -! B(10400) = dA(6526)/dV(5255) - B(10400) = RCT(6526)*V(4259) -! B(10401) = dA(6527)/dV(4259) - B(10401) = RCT(6527)*V(5255) -! B(10402) = dA(6527)/dV(5255) - B(10402) = RCT(6527)*V(4259) -! B(10403) = dA(6528)/dV(4259) - B(10403) = RCT(6528)*V(5252) -! B(10404) = dA(6528)/dV(5252) - B(10404) = RCT(6528)*V(4259) -! B(10405) = dA(6529)/dV(4259) - B(10405) = RCT(6529)*V(5253) -! B(10406) = dA(6529)/dV(5253) - B(10406) = RCT(6529)*V(4259) -! B(10407) = dA(6530)/dV(4259) - B(10407) = RCT(6530)*V(5256) -! B(10408) = dA(6530)/dV(5256) - B(10408) = RCT(6530)*V(4259) -! B(10409) = dA(6531)/dV(4259) - B(10409) = RCT(6531) -! B(10410) = dA(6532)/dV(1661) - B(10410) = RCT(6532) -! B(10411) = dA(6533)/dV(2081) - B(10411) = RCT(6533) -! B(10412) = dA(6534)/dV(2081) - B(10412) = RCT(6534) -! B(10413) = dA(6535)/dV(563) - B(10413) = RCT(6535) -! B(10414) = dA(6536)/dV(563) - B(10414) = RCT(6536) -! B(10415) = dA(6537)/dV(5015) - B(10415) = RCT(6537)*V(5255) -! B(10416) = dA(6537)/dV(5255) - B(10416) = RCT(6537)*V(5015) -! B(10417) = dA(6538)/dV(5015) - B(10417) = RCT(6538)*V(5252) -! B(10418) = dA(6538)/dV(5252) - B(10418) = RCT(6538)*V(5015) -! B(10419) = dA(6539)/dV(5015) - B(10419) = RCT(6539)*V(5252) -! B(10420) = dA(6539)/dV(5252) - B(10420) = RCT(6539)*V(5015) -! B(10421) = dA(6540)/dV(5015) - B(10421) = RCT(6540)*V(5256) -! B(10422) = dA(6540)/dV(5256) - B(10422) = RCT(6540)*V(5015) -! B(10423) = dA(6541)/dV(5015) - B(10423) = RCT(6541) -! B(10424) = dA(6542)/dV(5015) - B(10424) = RCT(6542) -! B(10425) = dA(6543)/dV(5015) - B(10425) = RCT(6543) -! B(10426) = dA(6544)/dV(4436) - B(10426) = RCT(6544)*V(5255) -! B(10427) = dA(6544)/dV(5255) - B(10427) = RCT(6544)*V(4436) -! B(10428) = dA(6545)/dV(4436) - B(10428) = RCT(6545)*V(5255) -! B(10429) = dA(6545)/dV(5255) - B(10429) = RCT(6545)*V(4436) -! B(10430) = dA(6546)/dV(4436) - B(10430) = RCT(6546)*V(5255) -! B(10431) = dA(6546)/dV(5255) - B(10431) = RCT(6546)*V(4436) -! B(10432) = dA(6547)/dV(4436) - B(10432) = RCT(6547)*V(5252) -! B(10433) = dA(6547)/dV(5252) - B(10433) = RCT(6547)*V(4436) -! B(10434) = dA(6548)/dV(4436) - B(10434) = RCT(6548)*V(5253) -! B(10435) = dA(6548)/dV(5253) - B(10435) = RCT(6548)*V(4436) -! B(10436) = dA(6549)/dV(4436) - B(10436) = RCT(6549)*V(5256) -! B(10437) = dA(6549)/dV(5256) - B(10437) = RCT(6549)*V(4436) -! B(10438) = dA(6550)/dV(4436) - B(10438) = RCT(6550) -! B(10439) = dA(6551)/dV(4436) - B(10439) = RCT(6551) -! B(10440) = dA(6552)/dV(3630) - B(10440) = RCT(6552) -! B(10441) = dA(6553)/dV(3630) - B(10441) = RCT(6553) -! B(10442) = dA(6554)/dV(529) - B(10442) = RCT(6554) -! B(10443) = dA(6555)/dV(529) - B(10443) = RCT(6555) -! B(10444) = dA(6556)/dV(3939) - B(10444) = RCT(6556)*V(5255) -! B(10445) = dA(6556)/dV(5255) - B(10445) = RCT(6556)*V(3939) -! B(10446) = dA(6557)/dV(3939) - B(10446) = RCT(6557)*V(5252) -! B(10447) = dA(6557)/dV(5252) - B(10447) = RCT(6557)*V(3939) -! B(10448) = dA(6558)/dV(3939) - B(10448) = RCT(6558)*V(5256) -! B(10449) = dA(6558)/dV(5256) - B(10449) = RCT(6558)*V(3939) -! B(10450) = dA(6559)/dV(3939) - B(10450) = RCT(6559) -! B(10451) = dA(6560)/dV(3939) - B(10451) = RCT(6560) -! B(10452) = dA(6561)/dV(1289) - B(10452) = RCT(6561) -! B(10453) = dA(6562)/dV(1289) - B(10453) = RCT(6562)*V(5250) -! B(10454) = dA(6562)/dV(5250) - B(10454) = RCT(6562)*V(1289) -! B(10455) = dA(6563)/dV(4958) - B(10455) = RCT(6563) -! B(10456) = dA(6564)/dV(4958) - B(10456) = RCT(6564)*V(5250) -! B(10457) = dA(6564)/dV(5250) - B(10457) = RCT(6564)*V(4958) -! B(10458) = dA(6565)/dV(3234) - B(10458) = RCT(6565) -! B(10459) = dA(6566)/dV(4564) - B(10459) = RCT(6566) -! B(10460) = dA(6567)/dV(4564) - B(10460) = RCT(6567)*V(5250) -! B(10461) = dA(6567)/dV(5250) - B(10461) = RCT(6567)*V(4564) -! B(10462) = dA(6568)/dV(5225) - B(10462) = RCT(6568)*V(5250) -! B(10463) = dA(6568)/dV(5250) - B(10463) = RCT(6568)*V(5225) -! B(10464) = dA(6569)/dV(5225) - B(10464) = RCT(6569)*V(5250) -! B(10465) = dA(6569)/dV(5250) - B(10465) = RCT(6569)*V(5225) -! B(10466) = dA(6570)/dV(5225) - B(10466) = RCT(6570) -! B(10467) = dA(6571)/dV(3514) - B(10467) = RCT(6571) -! B(10468) = dA(6572)/dV(3514) - B(10468) = RCT(6572)*V(5250) -! B(10469) = dA(6572)/dV(5250) - B(10469) = RCT(6572)*V(3514) -! B(10470) = dA(6573)/dV(533) - B(10470) = RCT(6573) -! B(10471) = dA(6574)/dV(5080) - B(10471) = RCT(6574) -! B(10472) = dA(6575)/dV(5080) - B(10472) = RCT(6575)*V(5250) -! B(10473) = dA(6575)/dV(5250) - B(10473) = RCT(6575)*V(5080) -! B(10474) = dA(6576)/dV(2497) - B(10474) = RCT(6576) -! B(10475) = dA(6577)/dV(2497) - B(10475) = RCT(6577) -! B(10476) = dA(6578)/dV(2497) - B(10476) = RCT(6578)*V(5250) -! B(10477) = dA(6578)/dV(5250) - B(10477) = RCT(6578)*V(2497) -! B(10478) = dA(6579)/dV(2497) - B(10478) = RCT(6579)*V(5250) -! B(10479) = dA(6579)/dV(5250) - B(10479) = RCT(6579)*V(2497) -! B(10480) = dA(6580)/dV(654) - B(10480) = RCT(6580) -! B(10481) = dA(6581)/dV(3488) - B(10481) = RCT(6581)*V(5256) -! B(10482) = dA(6581)/dV(5256) - B(10482) = RCT(6581)*V(3488) -! B(10483) = dA(6582)/dV(3488) - B(10483) = RCT(6582)*V(5250) -! B(10484) = dA(6582)/dV(5250) - B(10484) = RCT(6582)*V(3488) -! B(10485) = dA(6583)/dV(3488) - B(10485) = RCT(6583) -! B(10486) = dA(6584)/dV(4107) - B(10486) = RCT(6584) -! B(10487) = dA(6585)/dV(4107) - B(10487) = RCT(6585)*V(5250) -! B(10488) = dA(6585)/dV(5250) - B(10488) = RCT(6585)*V(4107) -! B(10489) = dA(6586)/dV(4107) - B(10489) = RCT(6586)*V(5250) -! B(10490) = dA(6586)/dV(5250) - B(10490) = RCT(6586)*V(4107) -! B(10491) = dA(6587)/dV(4107) - B(10491) = RCT(6587)*V(5250) -! B(10492) = dA(6587)/dV(5250) - B(10492) = RCT(6587)*V(4107) -! B(10493) = dA(6588)/dV(2308) - B(10493) = RCT(6588) -! B(10494) = dA(6589)/dV(2308) - B(10494) = RCT(6589) -! B(10495) = dA(6590)/dV(2308) - B(10495) = RCT(6590) -! B(10496) = dA(6591)/dV(5013) - B(10496) = RCT(6591) -! B(10497) = dA(6592)/dV(5013) - B(10497) = RCT(6592)*V(5258) -! B(10498) = dA(6592)/dV(5258) - B(10498) = RCT(6592)*V(5013) -! B(10499) = dA(6593)/dV(5013) - B(10499) = RCT(6593)*V(5258) -! B(10500) = dA(6593)/dV(5258) - B(10500) = RCT(6593)*V(5013) -! B(10501) = dA(6594)/dV(5013) - B(10501) = RCT(6594)*V(5250) -! B(10502) = dA(6594)/dV(5250) - B(10502) = RCT(6594)*V(5013) -! B(10503) = dA(6595)/dV(4758) - B(10503) = RCT(6595)*V(5255) -! B(10504) = dA(6595)/dV(5255) - B(10504) = RCT(6595)*V(4758) -! B(10505) = dA(6596)/dV(4758) - B(10505) = RCT(6596)*V(5252) -! B(10506) = dA(6596)/dV(5252) - B(10506) = RCT(6596)*V(4758) -! B(10507) = dA(6597)/dV(4758) - B(10507) = RCT(6597)*V(5256) -! B(10508) = dA(6597)/dV(5256) - B(10508) = RCT(6597)*V(4758) -! B(10509) = dA(6598)/dV(4758) - B(10509) = RCT(6598) -! B(10510) = dA(6599)/dV(4758) - B(10510) = RCT(6599) -! B(10511) = dA(6600)/dV(4976) - B(10511) = RCT(6600)*V(5256) -! B(10512) = dA(6600)/dV(5256) - B(10512) = RCT(6600)*V(4976) -! B(10513) = dA(6601)/dV(4976) - B(10513) = RCT(6601)*V(5258) -! B(10514) = dA(6601)/dV(5258) - B(10514) = RCT(6601)*V(4976) -! B(10515) = dA(6602)/dV(4976) - B(10515) = RCT(6602)*V(5258) -! B(10516) = dA(6602)/dV(5258) - B(10516) = RCT(6602)*V(4976) -! B(10517) = dA(6603)/dV(4976) - B(10517) = RCT(6603)*V(5250) -! B(10518) = dA(6603)/dV(5250) - B(10518) = RCT(6603)*V(4976) -! B(10519) = dA(6604)/dV(4976) - B(10519) = RCT(6604)*V(5250) -! B(10520) = dA(6604)/dV(5250) - B(10520) = RCT(6604)*V(4976) -! B(10521) = dA(6605)/dV(4976) - B(10521) = RCT(6605)*V(5250) -! B(10522) = dA(6605)/dV(5250) - B(10522) = RCT(6605)*V(4976) -! B(10523) = dA(6606)/dV(4976) - B(10523) = RCT(6606) -! B(10524) = dA(6607)/dV(4976) - B(10524) = RCT(6607) -! B(10525) = dA(6608)/dV(5205) - B(10525) = RCT(6608) -! B(10526) = dA(6609)/dV(5205) - B(10526) = RCT(6609) -! B(10527) = dA(6610)/dV(5205) - B(10527) = RCT(6610)*V(5256) -! B(10528) = dA(6610)/dV(5256) - B(10528) = RCT(6610)*V(5205) -! B(10529) = dA(6611)/dV(5205) - B(10529) = RCT(6611)*V(5258) -! B(10530) = dA(6611)/dV(5258) - B(10530) = RCT(6611)*V(5205) -! B(10531) = dA(6612)/dV(5205) - B(10531) = RCT(6612)*V(5258) -! B(10532) = dA(6612)/dV(5258) - B(10532) = RCT(6612)*V(5205) -! B(10533) = dA(6613)/dV(5205) - B(10533) = RCT(6613)*V(5250) -! B(10534) = dA(6613)/dV(5250) - B(10534) = RCT(6613)*V(5205) -! B(10535) = dA(6614)/dV(5205) - B(10535) = RCT(6614)*V(5250) -! B(10536) = dA(6614)/dV(5250) - B(10536) = RCT(6614)*V(5205) -! B(10537) = dA(6615)/dV(5205) - B(10537) = RCT(6615)*V(5250) -! B(10538) = dA(6615)/dV(5250) - B(10538) = RCT(6615)*V(5205) -! B(10539) = dA(6616)/dV(5205) - B(10539) = RCT(6616)*V(5250) -! B(10540) = dA(6616)/dV(5250) - B(10540) = RCT(6616)*V(5205) -! B(10541) = dA(6617)/dV(3413) - B(10541) = RCT(6617)*V(5250) -! B(10542) = dA(6617)/dV(5250) - B(10542) = RCT(6617)*V(3413) -! B(10543) = dA(6618)/dV(3413) - B(10543) = RCT(6618)*V(5250) -! B(10544) = dA(6618)/dV(5250) - B(10544) = RCT(6618)*V(3413) -! B(10545) = dA(6619)/dV(2252) - B(10545) = RCT(6619) -! B(10546) = dA(6620)/dV(2252) - B(10546) = RCT(6620)*V(5250) -! B(10547) = dA(6620)/dV(5250) - B(10547) = RCT(6620)*V(2252) -! B(10548) = dA(6621)/dV(2252) - B(10548) = RCT(6621)*V(5250) -! B(10549) = dA(6621)/dV(5250) - B(10549) = RCT(6621)*V(2252) -! B(10550) = dA(6622)/dV(4615) - B(10550) = RCT(6622) -! B(10551) = dA(6623)/dV(4615) - B(10551) = RCT(6623)*V(5258) -! B(10552) = dA(6623)/dV(5258) - B(10552) = RCT(6623)*V(4615) -! B(10553) = dA(6624)/dV(4615) - B(10553) = RCT(6624)*V(5258) -! B(10554) = dA(6624)/dV(5258) - B(10554) = RCT(6624)*V(4615) -! B(10555) = dA(6625)/dV(4615) - B(10555) = RCT(6625)*V(5250) -! B(10556) = dA(6625)/dV(5250) - B(10556) = RCT(6625)*V(4615) -! B(10557) = dA(6626)/dV(4615) - B(10557) = RCT(6626)*V(5250) -! B(10558) = dA(6626)/dV(5250) - B(10558) = RCT(6626)*V(4615) -! B(10559) = dA(6627)/dV(3241) - B(10559) = RCT(6627) -! B(10560) = dA(6628)/dV(105) - B(10560) = RCT(6628)*V(5250) -! B(10561) = dA(6628)/dV(5250) - B(10561) = RCT(6628)*V(105) -! B(10562) = dA(6629)/dV(4113) - B(10562) = RCT(6629) -! B(10563) = dA(6630)/dV(4113) - B(10563) = RCT(6630)*V(5250) -! B(10564) = dA(6630)/dV(5250) - B(10564) = RCT(6630)*V(4113) -! B(10565) = dA(6631)/dV(4113) - B(10565) = RCT(6631)*V(5250) -! B(10566) = dA(6631)/dV(5250) - B(10566) = RCT(6631)*V(4113) -! B(10567) = dA(6632)/dV(4113) - B(10567) = RCT(6632)*V(5250) -! B(10568) = dA(6632)/dV(5250) - B(10568) = RCT(6632)*V(4113) -! B(10569) = dA(6633)/dV(2130) - B(10569) = RCT(6633) -! B(10570) = dA(6634)/dV(2130) - B(10570) = RCT(6634) -! B(10571) = dA(6635)/dV(2130) - B(10571) = RCT(6635) -! B(10572) = dA(6636)/dV(4617) - B(10572) = RCT(6636)*V(5255) -! B(10573) = dA(6636)/dV(5255) - B(10573) = RCT(6636)*V(4617) -! B(10574) = dA(6637)/dV(4617) - B(10574) = RCT(6637)*V(5252) -! B(10575) = dA(6637)/dV(5252) - B(10575) = RCT(6637)*V(4617) -! B(10576) = dA(6638)/dV(4617) - B(10576) = RCT(6638)*V(5256) -! B(10577) = dA(6638)/dV(5256) - B(10577) = RCT(6638)*V(4617) -! B(10578) = dA(6639)/dV(4617) - B(10578) = RCT(6639) -! B(10579) = dA(6640)/dV(4617) - B(10579) = RCT(6640) -! B(10580) = dA(6641)/dV(5002) - B(10580) = RCT(6641)*V(5256) -! B(10581) = dA(6641)/dV(5256) - B(10581) = RCT(6641)*V(5002) -! B(10582) = dA(6642)/dV(5002) - B(10582) = RCT(6642)*V(5258) -! B(10583) = dA(6642)/dV(5258) - B(10583) = RCT(6642)*V(5002) -! B(10584) = dA(6643)/dV(5002) - B(10584) = RCT(6643)*V(5258) -! B(10585) = dA(6643)/dV(5258) - B(10585) = RCT(6643)*V(5002) -! B(10586) = dA(6644)/dV(5002) - B(10586) = RCT(6644)*V(5250) -! B(10587) = dA(6644)/dV(5250) - B(10587) = RCT(6644)*V(5002) -! B(10588) = dA(6645)/dV(5002) - B(10588) = RCT(6645)*V(5250) -! B(10589) = dA(6645)/dV(5250) - B(10589) = RCT(6645)*V(5002) -! B(10590) = dA(6646)/dV(5002) - B(10590) = RCT(6646)*V(5250) -! B(10591) = dA(6646)/dV(5250) - B(10591) = RCT(6646)*V(5002) -! B(10592) = dA(6647)/dV(5002) - B(10592) = RCT(6647) -! B(10593) = dA(6648)/dV(5002) - B(10593) = RCT(6648) -! B(10594) = dA(6649)/dV(5220) - B(10594) = RCT(6649) -! B(10595) = dA(6650)/dV(5220) - B(10595) = RCT(6650) -! B(10596) = dA(6651)/dV(5220) - B(10596) = RCT(6651)*V(5256) -! B(10597) = dA(6651)/dV(5256) - B(10597) = RCT(6651)*V(5220) -! B(10598) = dA(6652)/dV(5220) - B(10598) = RCT(6652)*V(5258) -! B(10599) = dA(6652)/dV(5258) - B(10599) = RCT(6652)*V(5220) -! B(10600) = dA(6653)/dV(5220) - B(10600) = RCT(6653)*V(5258) -! B(10601) = dA(6653)/dV(5258) - B(10601) = RCT(6653)*V(5220) -! B(10602) = dA(6654)/dV(5220) - B(10602) = RCT(6654)*V(5250) -! B(10603) = dA(6654)/dV(5250) - B(10603) = RCT(6654)*V(5220) -! B(10604) = dA(6655)/dV(5220) - B(10604) = RCT(6655)*V(5250) -! B(10605) = dA(6655)/dV(5250) - B(10605) = RCT(6655)*V(5220) -! B(10606) = dA(6656)/dV(5220) - B(10606) = RCT(6656)*V(5250) -! B(10607) = dA(6656)/dV(5250) - B(10607) = RCT(6656)*V(5220) -! B(10608) = dA(6657)/dV(5220) - B(10608) = RCT(6657)*V(5250) -! B(10609) = dA(6657)/dV(5250) - B(10609) = RCT(6657)*V(5220) -! B(10610) = dA(6658)/dV(2544) - B(10610) = RCT(6658) -! B(10611) = dA(6659)/dV(2544) - B(10611) = RCT(6659)*V(5250) -! B(10612) = dA(6659)/dV(5250) - B(10612) = RCT(6659)*V(2544) -! B(10613) = dA(6660)/dV(2544) - B(10613) = RCT(6660)*V(5250) -! B(10614) = dA(6660)/dV(5250) - B(10614) = RCT(6660)*V(2544) -! B(10615) = dA(6661)/dV(2544) - B(10615) = RCT(6661)*V(5250) -! B(10616) = dA(6661)/dV(5250) - B(10616) = RCT(6661)*V(2544) -! B(10617) = dA(6662)/dV(4786) - B(10617) = RCT(6662) -! B(10618) = dA(6663)/dV(4786) - B(10618) = RCT(6663)*V(5258) -! B(10619) = dA(6663)/dV(5258) - B(10619) = RCT(6663)*V(4786) -! B(10620) = dA(6664)/dV(4786) - B(10620) = RCT(6664)*V(5258) -! B(10621) = dA(6664)/dV(5258) - B(10621) = RCT(6664)*V(4786) -! B(10622) = dA(6665)/dV(4786) - B(10622) = RCT(6665)*V(5250) -! B(10623) = dA(6665)/dV(5250) - B(10623) = RCT(6665)*V(4786) -! B(10624) = dA(6666)/dV(3194) - B(10624) = RCT(6666) -! B(10625) = dA(6667)/dV(3734) - B(10625) = RCT(6667) -! B(10626) = dA(6668)/dV(3734) - B(10626) = RCT(6668)*V(5250) -! B(10627) = dA(6668)/dV(5250) - B(10627) = RCT(6668)*V(3734) -! B(10628) = dA(6669)/dV(5173) - B(10628) = RCT(6669)*V(5255) -! B(10629) = dA(6669)/dV(5255) - B(10629) = RCT(6669)*V(5173) -! B(10630) = dA(6670)/dV(5173) - B(10630) = RCT(6670)*V(5252) -! B(10631) = dA(6670)/dV(5252) - B(10631) = RCT(6670)*V(5173) -! B(10632) = dA(6671)/dV(5173) - B(10632) = RCT(6671)*V(5252) -! B(10633) = dA(6671)/dV(5252) - B(10633) = RCT(6671)*V(5173) -! B(10634) = dA(6672)/dV(5173) - B(10634) = RCT(6672)*V(5256) -! B(10635) = dA(6672)/dV(5256) - B(10635) = RCT(6672)*V(5173) -! B(10636) = dA(6673)/dV(5173) - B(10636) = RCT(6673) -! B(10637) = dA(6674)/dV(5173) - B(10637) = RCT(6674) -! B(10638) = dA(6675)/dV(558) - B(10638) = RCT(6675) -! B(10639) = dA(6676)/dV(558) - B(10639) = RCT(6676) -! B(10640) = dA(6677)/dV(4894) - B(10640) = RCT(6677)*V(5255) -! B(10641) = dA(6677)/dV(5255) - B(10641) = RCT(6677)*V(4894) -! B(10642) = dA(6678)/dV(4894) - B(10642) = RCT(6678)*V(5252) -! B(10643) = dA(6678)/dV(5252) - B(10643) = RCT(6678)*V(4894) -! B(10644) = dA(6679)/dV(4894) - B(10644) = RCT(6679)*V(5252) -! B(10645) = dA(6679)/dV(5252) - B(10645) = RCT(6679)*V(4894) -! B(10646) = dA(6680)/dV(4894) - B(10646) = RCT(6680)*V(5256) -! B(10647) = dA(6680)/dV(5256) - B(10647) = RCT(6680)*V(4894) -! B(10648) = dA(6681)/dV(4894) - B(10648) = RCT(6681) -! B(10649) = dA(6682)/dV(4894) - B(10649) = RCT(6682) -! B(10650) = dA(6683)/dV(4269) - B(10650) = RCT(6683)*V(5255) -! B(10651) = dA(6683)/dV(5255) - B(10651) = RCT(6683)*V(4269) -! B(10652) = dA(6684)/dV(4269) - B(10652) = RCT(6684)*V(5255) -! B(10653) = dA(6684)/dV(5255) - B(10653) = RCT(6684)*V(4269) -! B(10654) = dA(6685)/dV(4269) - B(10654) = RCT(6685)*V(5252) -! B(10655) = dA(6685)/dV(5252) - B(10655) = RCT(6685)*V(4269) -! B(10656) = dA(6686)/dV(4269) - B(10656) = RCT(6686)*V(5253) -! B(10657) = dA(6686)/dV(5253) - B(10657) = RCT(6686)*V(4269) -! B(10658) = dA(6687)/dV(4269) - B(10658) = RCT(6687)*V(5256) -! B(10659) = dA(6687)/dV(5256) - B(10659) = RCT(6687)*V(4269) -! B(10660) = dA(6688)/dV(4269) - B(10660) = RCT(6688) -! B(10661) = dA(6689)/dV(1364) - B(10661) = RCT(6689)*V(5250) -! B(10662) = dA(6689)/dV(5250) - B(10662) = RCT(6689)*V(1364) -! B(10663) = dA(6690)/dV(1364) - B(10663) = RCT(6690) -! B(10664) = dA(6691)/dV(3586) - B(10664) = RCT(6691) -! B(10665) = dA(6692)/dV(3586) - B(10665) = RCT(6692) -! B(10666) = dA(6693)/dV(4963) - B(10666) = RCT(6693)*V(5251) -! B(10667) = dA(6693)/dV(5251) - B(10667) = RCT(6693)*V(4963) -! B(10668) = dA(6694)/dV(4963) - B(10668) = RCT(6694)*V(5252) -! B(10669) = dA(6694)/dV(5252) - B(10669) = RCT(6694)*V(4963) -! B(10670) = dA(6695)/dV(4963) - B(10670) = RCT(6695)*V(5253) -! B(10671) = dA(6695)/dV(5253) - B(10671) = RCT(6695)*V(4963) -! B(10672) = dA(6696)/dV(4963) - B(10672) = RCT(6696)*V(5254) -! B(10673) = dA(6696)/dV(5254) - B(10673) = RCT(6696)*V(4963) -! B(10674) = dA(6697)/dV(4963) - B(10674) = RCT(6697) -! B(10675) = dA(6698)/dV(4963) - B(10675) = RCT(6698) -! B(10676) = dA(6699)/dV(873) - B(10676) = RCT(6699)*V(5250) -! B(10677) = dA(6699)/dV(5250) - B(10677) = RCT(6699)*V(873) -! B(10678) = dA(6700)/dV(873) - B(10678) = RCT(6700) -! B(10679) = dA(6701)/dV(2834) - B(10679) = RCT(6701)*V(5250) -! B(10680) = dA(6701)/dV(5250) - B(10680) = RCT(6701)*V(2834) -! B(10681) = dA(6702)/dV(2834) - B(10681) = RCT(6702) -! B(10682) = dA(6703)/dV(3048) - B(10682) = RCT(6703) -! B(10683) = dA(6704)/dV(1285) - B(10683) = RCT(6704)*V(5250) -! B(10684) = dA(6704)/dV(5250) - B(10684) = RCT(6704)*V(1285) -! B(10685) = dA(6705)/dV(1285) - B(10685) = RCT(6705) -! B(10686) = dA(6706)/dV(2791) - B(10686) = RCT(6706)*V(5250) -! B(10687) = dA(6706)/dV(5250) - B(10687) = RCT(6706)*V(2791) -! B(10688) = dA(6707)/dV(2791) - B(10688) = RCT(6707) -! B(10689) = dA(6708)/dV(1445) - B(10689) = RCT(6708)*V(5250) -! B(10690) = dA(6708)/dV(5250) - B(10690) = RCT(6708)*V(1445) -! B(10691) = dA(6709)/dV(1445) - B(10691) = RCT(6709) -! B(10692) = dA(6710)/dV(1846) - B(10692) = RCT(6710)*V(5250) -! B(10693) = dA(6710)/dV(5250) - B(10693) = RCT(6710)*V(1846) -! B(10694) = dA(6711)/dV(1846) - B(10694) = RCT(6711) -! B(10695) = dA(6712)/dV(1847) - B(10695) = RCT(6712) -! B(10696) = dA(6713)/dV(1306) - B(10696) = RCT(6713)*V(5250) -! B(10697) = dA(6713)/dV(5250) - B(10697) = RCT(6713)*V(1306) -! B(10698) = dA(6714)/dV(1306) - B(10698) = RCT(6714) -! B(10699) = dA(6715)/dV(2821) - B(10699) = RCT(6715) -! B(10700) = dA(6716)/dV(981) - B(10700) = RCT(6716) -! B(10701) = dA(6717)/dV(981) - B(10701) = RCT(6717)*V(5250) -! B(10702) = dA(6717)/dV(5250) - B(10702) = RCT(6717)*V(981) -! B(10703) = dA(6718)/dV(2436) - B(10703) = RCT(6718) -! B(10704) = dA(6719)/dV(2436) - B(10704) = RCT(6719)*V(5250) -! B(10705) = dA(6719)/dV(5250) - B(10705) = RCT(6719)*V(2436) -! B(10706) = dA(6720)/dV(2996) - B(10706) = RCT(6720) -! B(10707) = dA(6721)/dV(9) - B(10707) = RCT(6721)*V(5250) -! B(10708) = dA(6721)/dV(5250) - B(10708) = RCT(6721)*V(9) -! B(10709) = dA(6722)/dV(4109) - B(10709) = RCT(6722) -! B(10710) = dA(6723)/dV(4109) - B(10710) = RCT(6723)*V(5250) -! B(10711) = dA(6723)/dV(5250) - B(10711) = RCT(6723)*V(4109) -! B(10712) = dA(6724)/dV(1102) - B(10712) = RCT(6724)*V(5250) -! B(10713) = dA(6724)/dV(5250) - B(10713) = RCT(6724)*V(1102) -! B(10714) = dA(6725)/dV(1102) - B(10714) = RCT(6725) -! B(10715) = dA(6726)/dV(1909) - B(10715) = RCT(6726)*V(5250) -! B(10716) = dA(6726)/dV(5250) - B(10716) = RCT(6726)*V(1909) -! B(10717) = dA(6727)/dV(1909) - B(10717) = RCT(6727) -! B(10718) = dA(6728)/dV(1910) - B(10718) = RCT(6728) -! B(10719) = dA(6729)/dV(194) - B(10719) = RCT(6729) -! B(10720) = dA(6730)/dV(4060) - B(10720) = RCT(6730)*V(5255) -! B(10721) = dA(6730)/dV(5255) - B(10721) = RCT(6730)*V(4060) -! B(10722) = dA(6731)/dV(4060) - B(10722) = RCT(6731)*V(5252) -! B(10723) = dA(6731)/dV(5252) - B(10723) = RCT(6731)*V(4060) -! B(10724) = dA(6732)/dV(4060) - B(10724) = RCT(6732)*V(5252) -! B(10725) = dA(6732)/dV(5252) - B(10725) = RCT(6732)*V(4060) -! B(10726) = dA(6733)/dV(4060) - B(10726) = RCT(6733)*V(5256) -! B(10727) = dA(6733)/dV(5256) - B(10727) = RCT(6733)*V(4060) -! B(10728) = dA(6734)/dV(4060) - B(10728) = RCT(6734) -! B(10729) = dA(6735)/dV(4060) - B(10729) = RCT(6735) -! B(10730) = dA(6736)/dV(4060) - B(10730) = RCT(6736) -! B(10731) = dA(6737)/dV(3676) - B(10731) = RCT(6737)*V(5255) -! B(10732) = dA(6737)/dV(5255) - B(10732) = RCT(6737)*V(3676) -! B(10733) = dA(6738)/dV(3676) - B(10733) = RCT(6738)*V(5252) -! B(10734) = dA(6738)/dV(5252) - B(10734) = RCT(6738)*V(3676) -! B(10735) = dA(6739)/dV(3676) - B(10735) = RCT(6739)*V(5252) -! B(10736) = dA(6739)/dV(5252) - B(10736) = RCT(6739)*V(3676) -! B(10737) = dA(6740)/dV(3676) - B(10737) = RCT(6740)*V(5256) -! B(10738) = dA(6740)/dV(5256) - B(10738) = RCT(6740)*V(3676) -! B(10739) = dA(6741)/dV(3676) - B(10739) = RCT(6741) -! B(10740) = dA(6742)/dV(3676) - B(10740) = RCT(6742) -! B(10741) = dA(6743)/dV(3676) - B(10741) = RCT(6743) -! B(10742) = dA(6744)/dV(4595) - B(10742) = RCT(6744)*V(5255) -! B(10743) = dA(6744)/dV(5255) - B(10743) = RCT(6744)*V(4595) -! B(10744) = dA(6745)/dV(4595) - B(10744) = RCT(6745)*V(5252) -! B(10745) = dA(6745)/dV(5252) - B(10745) = RCT(6745)*V(4595) -! B(10746) = dA(6746)/dV(4595) - B(10746) = RCT(6746)*V(5256) -! B(10747) = dA(6746)/dV(5256) - B(10747) = RCT(6746)*V(4595) -! B(10748) = dA(6747)/dV(4595) - B(10748) = RCT(6747) -! B(10749) = dA(6748)/dV(4595) - B(10749) = RCT(6748) -! B(10750) = dA(6749)/dV(4595) - B(10750) = RCT(6749) -! B(10751) = dA(6750)/dV(4127) - B(10751) = RCT(6750)*V(5255) -! B(10752) = dA(6750)/dV(5255) - B(10752) = RCT(6750)*V(4127) -! B(10753) = dA(6751)/dV(4127) - B(10753) = RCT(6751)*V(5255) -! B(10754) = dA(6751)/dV(5255) - B(10754) = RCT(6751)*V(4127) -! B(10755) = dA(6752)/dV(4127) - B(10755) = RCT(6752)*V(5252) -! B(10756) = dA(6752)/dV(5252) - B(10756) = RCT(6752)*V(4127) -! B(10757) = dA(6753)/dV(4127) - B(10757) = RCT(6753)*V(5252) -! B(10758) = dA(6753)/dV(5252) - B(10758) = RCT(6753)*V(4127) -! B(10759) = dA(6754)/dV(4127) - B(10759) = RCT(6754)*V(5256) -! B(10760) = dA(6754)/dV(5256) - B(10760) = RCT(6754)*V(4127) -! B(10761) = dA(6755)/dV(4127) - B(10761) = RCT(6755) -! B(10762) = dA(6756)/dV(4127) - B(10762) = RCT(6756) -! B(10763) = dA(6757)/dV(4127) - B(10763) = RCT(6757) -! B(10764) = dA(6758)/dV(3619) - B(10764) = RCT(6758)*V(5250) -! B(10765) = dA(6758)/dV(5250) - B(10765) = RCT(6758)*V(3619) -! B(10766) = dA(6759)/dV(3619) - B(10766) = RCT(6759)*V(5250) -! B(10767) = dA(6759)/dV(5250) - B(10767) = RCT(6759)*V(3619) -! B(10768) = dA(6760)/dV(4219) - B(10768) = RCT(6760)*V(5255) -! B(10769) = dA(6760)/dV(5255) - B(10769) = RCT(6760)*V(4219) -! B(10770) = dA(6761)/dV(4219) - B(10770) = RCT(6761)*V(5255) -! B(10771) = dA(6761)/dV(5255) - B(10771) = RCT(6761)*V(4219) -! B(10772) = dA(6762)/dV(4219) - B(10772) = RCT(6762)*V(5252) -! B(10773) = dA(6762)/dV(5252) - B(10773) = RCT(6762)*V(4219) -! B(10774) = dA(6763)/dV(4219) - B(10774) = RCT(6763)*V(5252) -! B(10775) = dA(6763)/dV(5252) - B(10775) = RCT(6763)*V(4219) -! B(10776) = dA(6764)/dV(4219) - B(10776) = RCT(6764)*V(5256) -! B(10777) = dA(6764)/dV(5256) - B(10777) = RCT(6764)*V(4219) -! B(10778) = dA(6765)/dV(4219) - B(10778) = RCT(6765) -! B(10779) = dA(6766)/dV(4219) - B(10779) = RCT(6766) -! B(10780) = dA(6767)/dV(4219) - B(10780) = RCT(6767) -! B(10781) = dA(6768)/dV(4368) - B(10781) = RCT(6768)*V(5255) -! B(10782) = dA(6768)/dV(5255) - B(10782) = RCT(6768)*V(4368) -! B(10783) = dA(6769)/dV(4368) - B(10783) = RCT(6769)*V(5255) -! B(10784) = dA(6769)/dV(5255) - B(10784) = RCT(6769)*V(4368) -! B(10785) = dA(6770)/dV(4368) - B(10785) = RCT(6770)*V(5252) -! B(10786) = dA(6770)/dV(5252) - B(10786) = RCT(6770)*V(4368) -! B(10787) = dA(6771)/dV(4368) - B(10787) = RCT(6771)*V(5252) -! B(10788) = dA(6771)/dV(5252) - B(10788) = RCT(6771)*V(4368) -! B(10789) = dA(6772)/dV(4368) - B(10789) = RCT(6772)*V(5256) -! B(10790) = dA(6772)/dV(5256) - B(10790) = RCT(6772)*V(4368) -! B(10791) = dA(6773)/dV(4368) - B(10791) = RCT(6773) -! B(10792) = dA(6774)/dV(4368) - B(10792) = RCT(6774) -! B(10793) = dA(6775)/dV(4368) - B(10793) = RCT(6775) -! B(10794) = dA(6776)/dV(4610) - B(10794) = RCT(6776)*V(5255) -! B(10795) = dA(6776)/dV(5255) - B(10795) = RCT(6776)*V(4610) -! B(10796) = dA(6777)/dV(4610) - B(10796) = RCT(6777)*V(5255) -! B(10797) = dA(6777)/dV(5255) - B(10797) = RCT(6777)*V(4610) -! B(10798) = dA(6778)/dV(4610) - B(10798) = RCT(6778)*V(5252) -! B(10799) = dA(6778)/dV(5252) - B(10799) = RCT(6778)*V(4610) -! B(10800) = dA(6779)/dV(4610) - B(10800) = RCT(6779)*V(5252) -! B(10801) = dA(6779)/dV(5252) - B(10801) = RCT(6779)*V(4610) -! B(10802) = dA(6780)/dV(4610) - B(10802) = RCT(6780)*V(5256) -! B(10803) = dA(6780)/dV(5256) - B(10803) = RCT(6780)*V(4610) -! B(10804) = dA(6781)/dV(4610) - B(10804) = RCT(6781) -! B(10805) = dA(6782)/dV(4610) - B(10805) = RCT(6782) -! B(10806) = dA(6783)/dV(4610) - B(10806) = RCT(6783) -! B(10807) = dA(6784)/dV(4611) - B(10807) = RCT(6784)*V(5255) -! B(10808) = dA(6784)/dV(5255) - B(10808) = RCT(6784)*V(4611) -! B(10809) = dA(6785)/dV(4611) - B(10809) = RCT(6785)*V(5255) -! B(10810) = dA(6785)/dV(5255) - B(10810) = RCT(6785)*V(4611) -! B(10811) = dA(6786)/dV(4611) - B(10811) = RCT(6786)*V(5255) -! B(10812) = dA(6786)/dV(5255) - B(10812) = RCT(6786)*V(4611) -! B(10813) = dA(6787)/dV(4611) - B(10813) = RCT(6787)*V(5252) -! B(10814) = dA(6787)/dV(5252) - B(10814) = RCT(6787)*V(4611) -! B(10815) = dA(6788)/dV(4611) - B(10815) = RCT(6788)*V(5253) -! B(10816) = dA(6788)/dV(5253) - B(10816) = RCT(6788)*V(4611) -! B(10817) = dA(6789)/dV(4611) - B(10817) = RCT(6789)*V(5256) -! B(10818) = dA(6789)/dV(5256) - B(10818) = RCT(6789)*V(4611) -! B(10819) = dA(6790)/dV(4611) - B(10819) = RCT(6790) -! B(10820) = dA(6791)/dV(4611) - B(10820) = RCT(6791) -! B(10821) = dA(6792)/dV(4730) - B(10821) = RCT(6792)*V(5255) -! B(10822) = dA(6792)/dV(5255) - B(10822) = RCT(6792)*V(4730) -! B(10823) = dA(6793)/dV(4730) - B(10823) = RCT(6793)*V(5252) -! B(10824) = dA(6793)/dV(5252) - B(10824) = RCT(6793)*V(4730) -! B(10825) = dA(6794)/dV(4730) - B(10825) = RCT(6794)*V(5256) -! B(10826) = dA(6794)/dV(5256) - B(10826) = RCT(6794)*V(4730) -! B(10827) = dA(6795)/dV(4730) - B(10827) = RCT(6795) -! B(10828) = dA(6796)/dV(4730) - B(10828) = RCT(6796) -! B(10829) = dA(6797)/dV(4730) - B(10829) = RCT(6797) -! B(10830) = dA(6798)/dV(5197) - B(10830) = RCT(6798)*V(5255) -! B(10831) = dA(6798)/dV(5255) - B(10831) = RCT(6798)*V(5197) -! B(10832) = dA(6799)/dV(5197) - B(10832) = RCT(6799)*V(5252) -! B(10833) = dA(6799)/dV(5252) - B(10833) = RCT(6799)*V(5197) -! B(10834) = dA(6800)/dV(5197) - B(10834) = RCT(6800)*V(5256) -! B(10835) = dA(6800)/dV(5256) - B(10835) = RCT(6800)*V(5197) -! B(10836) = dA(6801)/dV(5197) - B(10836) = RCT(6801) -! B(10837) = dA(6802)/dV(5197) - B(10837) = RCT(6802) -! B(10838) = dA(6803)/dV(5197) - B(10838) = RCT(6803) -! B(10839) = dA(6804)/dV(4885) - B(10839) = RCT(6804)*V(5255) -! B(10840) = dA(6804)/dV(5255) - B(10840) = RCT(6804)*V(4885) -! B(10841) = dA(6805)/dV(4885) - B(10841) = RCT(6805)*V(5252) -! B(10842) = dA(6805)/dV(5252) - B(10842) = RCT(6805)*V(4885) -! B(10843) = dA(6806)/dV(4885) - B(10843) = RCT(6806)*V(5256) -! B(10844) = dA(6806)/dV(5256) - B(10844) = RCT(6806)*V(4885) -! B(10845) = dA(6807)/dV(4885) - B(10845) = RCT(6807) -! B(10846) = dA(6808)/dV(4885) - B(10846) = RCT(6808) -! B(10847) = dA(6809)/dV(4885) - B(10847) = RCT(6809) -! B(10848) = dA(6810)/dV(4991) - B(10848) = RCT(6810)*V(5255) -! B(10849) = dA(6810)/dV(5255) - B(10849) = RCT(6810)*V(4991) -! B(10850) = dA(6811)/dV(4991) - B(10850) = RCT(6811)*V(5252) -! B(10851) = dA(6811)/dV(5252) - B(10851) = RCT(6811)*V(4991) -! B(10852) = dA(6812)/dV(4991) - B(10852) = RCT(6812)*V(5256) -! B(10853) = dA(6812)/dV(5256) - B(10853) = RCT(6812)*V(4991) -! B(10854) = dA(6813)/dV(4991) - B(10854) = RCT(6813) -! B(10855) = dA(6814)/dV(4169) - B(10855) = RCT(6814)*V(5255) -! B(10856) = dA(6814)/dV(5255) - B(10856) = RCT(6814)*V(4169) -! B(10857) = dA(6815)/dV(4169) - B(10857) = RCT(6815)*V(5252) -! B(10858) = dA(6815)/dV(5252) - B(10858) = RCT(6815)*V(4169) -! B(10859) = dA(6816)/dV(4169) - B(10859) = RCT(6816)*V(5256) -! B(10860) = dA(6816)/dV(5256) - B(10860) = RCT(6816)*V(4169) -! B(10861) = dA(6817)/dV(4169) - B(10861) = RCT(6817) -! B(10862) = dA(6818)/dV(4169) - B(10862) = RCT(6818) -! B(10863) = dA(6819)/dV(4169) - B(10863) = RCT(6819) -! B(10864) = dA(6820)/dV(4126) - B(10864) = RCT(6820)*V(5255) -! B(10865) = dA(6820)/dV(5255) - B(10865) = RCT(6820)*V(4126) -! B(10866) = dA(6821)/dV(4126) - B(10866) = RCT(6821)*V(5252) -! B(10867) = dA(6821)/dV(5252) - B(10867) = RCT(6821)*V(4126) -! B(10868) = dA(6822)/dV(4126) - B(10868) = RCT(6822)*V(5256) -! B(10869) = dA(6822)/dV(5256) - B(10869) = RCT(6822)*V(4126) -! B(10870) = dA(6823)/dV(4126) - B(10870) = RCT(6823) -! B(10871) = dA(6824)/dV(4126) - B(10871) = RCT(6824) -! B(10872) = dA(6825)/dV(4126) - B(10872) = RCT(6825) -! B(10873) = dA(6826)/dV(5117) - B(10873) = RCT(6826)*V(5255) -! B(10874) = dA(6826)/dV(5255) - B(10874) = RCT(6826)*V(5117) -! B(10875) = dA(6827)/dV(5117) - B(10875) = RCT(6827)*V(5255) -! B(10876) = dA(6827)/dV(5255) - B(10876) = RCT(6827)*V(5117) -! B(10877) = dA(6828)/dV(5117) - B(10877) = RCT(6828)*V(5255) -! B(10878) = dA(6828)/dV(5255) - B(10878) = RCT(6828)*V(5117) -! B(10879) = dA(6829)/dV(5117) - B(10879) = RCT(6829)*V(5252) -! B(10880) = dA(6829)/dV(5252) - B(10880) = RCT(6829)*V(5117) -! B(10881) = dA(6830)/dV(5117) - B(10881) = RCT(6830)*V(5253) -! B(10882) = dA(6830)/dV(5253) - B(10882) = RCT(6830)*V(5117) -! B(10883) = dA(6831)/dV(5117) - B(10883) = RCT(6831)*V(5256) -! B(10884) = dA(6831)/dV(5256) - B(10884) = RCT(6831)*V(5117) -! B(10885) = dA(6832)/dV(5117) - B(10885) = RCT(6832) -! B(10886) = dA(6833)/dV(5117) - B(10886) = RCT(6833) -! B(10887) = dA(6834)/dV(3926) - B(10887) = RCT(6834)*V(5255) -! B(10888) = dA(6834)/dV(5255) - B(10888) = RCT(6834)*V(3926) -! B(10889) = dA(6835)/dV(3926) - B(10889) = RCT(6835)*V(5252) -! B(10890) = dA(6835)/dV(5252) - B(10890) = RCT(6835)*V(3926) -! B(10891) = dA(6836)/dV(3926) - B(10891) = RCT(6836)*V(5256) -! B(10892) = dA(6836)/dV(5256) - B(10892) = RCT(6836)*V(3926) -! B(10893) = dA(6837)/dV(3926) - B(10893) = RCT(6837) -! B(10894) = dA(6838)/dV(4095) - B(10894) = RCT(6838)*V(5255) -! B(10895) = dA(6838)/dV(5255) - B(10895) = RCT(6838)*V(4095) -! B(10896) = dA(6839)/dV(4095) - B(10896) = RCT(6839)*V(5252) -! B(10897) = dA(6839)/dV(5252) - B(10897) = RCT(6839)*V(4095) -! B(10898) = dA(6840)/dV(4095) - B(10898) = RCT(6840)*V(5256) -! B(10899) = dA(6840)/dV(5256) - B(10899) = RCT(6840)*V(4095) -! B(10900) = dA(6841)/dV(4095) - B(10900) = RCT(6841) -! B(10901) = dA(6842)/dV(4446) - B(10901) = RCT(6842)*V(5255) -! B(10902) = dA(6842)/dV(5255) - B(10902) = RCT(6842)*V(4446) -! B(10903) = dA(6843)/dV(4446) - B(10903) = RCT(6843)*V(5252) -! B(10904) = dA(6843)/dV(5252) - B(10904) = RCT(6843)*V(4446) -! B(10905) = dA(6844)/dV(4446) - B(10905) = RCT(6844)*V(5256) -! B(10906) = dA(6844)/dV(5256) - B(10906) = RCT(6844)*V(4446) -! B(10907) = dA(6845)/dV(4446) - B(10907) = RCT(6845) -! B(10908) = dA(6846)/dV(4446) - B(10908) = RCT(6846) -! B(10909) = dA(6847)/dV(4446) - B(10909) = RCT(6847) -! B(10910) = dA(6848)/dV(5150) - B(10910) = RCT(6848)*V(5255) -! B(10911) = dA(6848)/dV(5255) - B(10911) = RCT(6848)*V(5150) -! B(10912) = dA(6849)/dV(5150) - B(10912) = RCT(6849)*V(5252) -! B(10913) = dA(6849)/dV(5252) - B(10913) = RCT(6849)*V(5150) -! B(10914) = dA(6850)/dV(5150) - B(10914) = RCT(6850)*V(5252) -! B(10915) = dA(6850)/dV(5252) - B(10915) = RCT(6850)*V(5150) -! B(10916) = dA(6851)/dV(5150) - B(10916) = RCT(6851)*V(5256) -! B(10917) = dA(6851)/dV(5256) - B(10917) = RCT(6851)*V(5150) -! B(10918) = dA(6852)/dV(5150) - B(10918) = RCT(6852) -! B(10919) = dA(6853)/dV(5150) - B(10919) = RCT(6853) -! B(10920) = dA(6854)/dV(5150) - B(10920) = RCT(6854) -! B(10921) = dA(6855)/dV(4646) - B(10921) = RCT(6855)*V(5255) -! B(10922) = dA(6855)/dV(5255) - B(10922) = RCT(6855)*V(4646) -! B(10923) = dA(6856)/dV(4646) - B(10923) = RCT(6856)*V(5252) -! B(10924) = dA(6856)/dV(5252) - B(10924) = RCT(6856)*V(4646) -! B(10925) = dA(6857)/dV(4646) - B(10925) = RCT(6857)*V(5252) -! B(10926) = dA(6857)/dV(5252) - B(10926) = RCT(6857)*V(4646) -! B(10927) = dA(6858)/dV(4646) - B(10927) = RCT(6858)*V(5256) -! B(10928) = dA(6858)/dV(5256) - B(10928) = RCT(6858)*V(4646) -! B(10929) = dA(6859)/dV(4646) - B(10929) = RCT(6859) -! B(10930) = dA(6860)/dV(4646) - B(10930) = RCT(6860) -! B(10931) = dA(6861)/dV(4646) - B(10931) = RCT(6861) -! B(10932) = dA(6862)/dV(4871) - B(10932) = RCT(6862)*V(5255) -! B(10933) = dA(6862)/dV(5255) - B(10933) = RCT(6862)*V(4871) -! B(10934) = dA(6863)/dV(4871) - B(10934) = RCT(6863)*V(5252) -! B(10935) = dA(6863)/dV(5252) - B(10935) = RCT(6863)*V(4871) -! B(10936) = dA(6864)/dV(4871) - B(10936) = RCT(6864)*V(5256) -! B(10937) = dA(6864)/dV(5256) - B(10937) = RCT(6864)*V(4871) -! B(10938) = dA(6865)/dV(4871) - B(10938) = RCT(6865) -! B(10939) = dA(6866)/dV(4827) - B(10939) = RCT(6866)*V(5255) -! B(10940) = dA(6866)/dV(5255) - B(10940) = RCT(6866)*V(4827) -! B(10941) = dA(6867)/dV(4827) - B(10941) = RCT(6867)*V(5252) -! B(10942) = dA(6867)/dV(5252) - B(10942) = RCT(6867)*V(4827) -! B(10943) = dA(6868)/dV(4827) - B(10943) = RCT(6868)*V(5256) -! B(10944) = dA(6868)/dV(5256) - B(10944) = RCT(6868)*V(4827) -! B(10945) = dA(6869)/dV(4827) - B(10945) = RCT(6869) -! B(10946) = dA(6870)/dV(4827) - B(10946) = RCT(6870) -! B(10947) = dA(6871)/dV(4827) - B(10947) = RCT(6871) -! B(10948) = dA(6872)/dV(4118) - B(10948) = RCT(6872)*V(5255) -! B(10949) = dA(6872)/dV(5255) - B(10949) = RCT(6872)*V(4118) -! B(10950) = dA(6873)/dV(4118) - B(10950) = RCT(6873)*V(5252) -! B(10951) = dA(6873)/dV(5252) - B(10951) = RCT(6873)*V(4118) -! B(10952) = dA(6874)/dV(4118) - B(10952) = RCT(6874)*V(5256) -! B(10953) = dA(6874)/dV(5256) - B(10953) = RCT(6874)*V(4118) -! B(10954) = dA(6875)/dV(4118) - B(10954) = RCT(6875) -! B(10955) = dA(6876)/dV(4365) - B(10955) = RCT(6876)*V(5255) -! B(10956) = dA(6876)/dV(5255) - B(10956) = RCT(6876)*V(4365) -! B(10957) = dA(6877)/dV(4365) - B(10957) = RCT(6877)*V(5252) -! B(10958) = dA(6877)/dV(5252) - B(10958) = RCT(6877)*V(4365) -! B(10959) = dA(6878)/dV(4365) - B(10959) = RCT(6878)*V(5256) -! B(10960) = dA(6878)/dV(5256) - B(10960) = RCT(6878)*V(4365) -! B(10961) = dA(6879)/dV(4365) - B(10961) = RCT(6879) -! B(10962) = dA(6880)/dV(4365) - B(10962) = RCT(6880) -! B(10963) = dA(6881)/dV(4365) - B(10963) = RCT(6881) -! B(10964) = dA(6882)/dV(4627) - B(10964) = RCT(6882)*V(5255) -! B(10965) = dA(6882)/dV(5255) - B(10965) = RCT(6882)*V(4627) -! B(10966) = dA(6883)/dV(4627) - B(10966) = RCT(6883)*V(5255) -! B(10967) = dA(6883)/dV(5255) - B(10967) = RCT(6883)*V(4627) -! B(10968) = dA(6884)/dV(4627) - B(10968) = RCT(6884)*V(5252) -! B(10969) = dA(6884)/dV(5252) - B(10969) = RCT(6884)*V(4627) -! B(10970) = dA(6885)/dV(4627) - B(10970) = RCT(6885)*V(5253) -! B(10971) = dA(6885)/dV(5253) - B(10971) = RCT(6885)*V(4627) -! B(10972) = dA(6886)/dV(4627) - B(10972) = RCT(6886)*V(5256) -! B(10973) = dA(6886)/dV(5256) - B(10973) = RCT(6886)*V(4627) -! B(10974) = dA(6887)/dV(4627) - B(10974) = RCT(6887) -! B(10975) = dA(6888)/dV(4318) - B(10975) = RCT(6888)*V(5255) -! B(10976) = dA(6888)/dV(5255) - B(10976) = RCT(6888)*V(4318) -! B(10977) = dA(6889)/dV(4318) - B(10977) = RCT(6889)*V(5252) -! B(10978) = dA(6889)/dV(5252) - B(10978) = RCT(6889)*V(4318) -! B(10979) = dA(6890)/dV(4318) - B(10979) = RCT(6890)*V(5256) -! B(10980) = dA(6890)/dV(5256) - B(10980) = RCT(6890)*V(4318) -! B(10981) = dA(6891)/dV(4318) - B(10981) = RCT(6891) -! B(10982) = dA(6892)/dV(4170) - B(10982) = RCT(6892)*V(5255) -! B(10983) = dA(6892)/dV(5255) - B(10983) = RCT(6892)*V(4170) -! B(10984) = dA(6893)/dV(4170) - B(10984) = RCT(6893)*V(5252) -! B(10985) = dA(6893)/dV(5252) - B(10985) = RCT(6893)*V(4170) -! B(10986) = dA(6894)/dV(4170) - B(10986) = RCT(6894)*V(5256) -! B(10987) = dA(6894)/dV(5256) - B(10987) = RCT(6894)*V(4170) -! B(10988) = dA(6895)/dV(4170) - B(10988) = RCT(6895) -! B(10989) = dA(6896)/dV(4105) - B(10989) = RCT(6896)*V(5255) -! B(10990) = dA(6896)/dV(5255) - B(10990) = RCT(6896)*V(4105) -! B(10991) = dA(6897)/dV(4105) - B(10991) = RCT(6897)*V(5252) -! B(10992) = dA(6897)/dV(5252) - B(10992) = RCT(6897)*V(4105) -! B(10993) = dA(6898)/dV(4105) - B(10993) = RCT(6898)*V(5256) -! B(10994) = dA(6898)/dV(5256) - B(10994) = RCT(6898)*V(4105) -! B(10995) = dA(6899)/dV(4105) - B(10995) = RCT(6899) -! B(10996) = dA(6900)/dV(4105) - B(10996) = RCT(6900) -! B(10997) = dA(6901)/dV(4105) - B(10997) = RCT(6901) -! B(10998) = dA(6902)/dV(4836) - B(10998) = RCT(6902)*V(5255) -! B(10999) = dA(6902)/dV(5255) - B(10999) = RCT(6902)*V(4836) -! B(11000) = dA(6903)/dV(4836) - B(11000) = RCT(6903)*V(5255) -! B(11001) = dA(6903)/dV(5255) - B(11001) = RCT(6903)*V(4836) -! B(11002) = dA(6904)/dV(4836) - B(11002) = RCT(6904)*V(5255) -! B(11003) = dA(6904)/dV(5255) - B(11003) = RCT(6904)*V(4836) -! B(11004) = dA(6905)/dV(4836) - B(11004) = RCT(6905)*V(5252) -! B(11005) = dA(6905)/dV(5252) - B(11005) = RCT(6905)*V(4836) -! B(11006) = dA(6906)/dV(4836) - B(11006) = RCT(6906)*V(5253) -! B(11007) = dA(6906)/dV(5253) - B(11007) = RCT(6906)*V(4836) -! B(11008) = dA(6907)/dV(4836) - B(11008) = RCT(6907)*V(5256) -! B(11009) = dA(6907)/dV(5256) - B(11009) = RCT(6907)*V(4836) -! B(11010) = dA(6908)/dV(4836) - B(11010) = RCT(6908) -! B(11011) = dA(6909)/dV(4836) - B(11011) = RCT(6909) -! B(11012) = dA(6910)/dV(4158) - B(11012) = RCT(6910)*V(5255) -! B(11013) = dA(6910)/dV(5255) - B(11013) = RCT(6910)*V(4158) -! B(11014) = dA(6911)/dV(4158) - B(11014) = RCT(6911)*V(5252) -! B(11015) = dA(6911)/dV(5252) - B(11015) = RCT(6911)*V(4158) -! B(11016) = dA(6912)/dV(4158) - B(11016) = RCT(6912)*V(5256) -! B(11017) = dA(6912)/dV(5256) - B(11017) = RCT(6912)*V(4158) -! B(11018) = dA(6913)/dV(4158) - B(11018) = RCT(6913) -! B(11019) = dA(6914)/dV(4158) - B(11019) = RCT(6914) -! B(11020) = dA(6915)/dV(4158) - B(11020) = RCT(6915) -! B(11021) = dA(6916)/dV(4765) - B(11021) = RCT(6916)*V(5255) -! B(11022) = dA(6916)/dV(5255) - B(11022) = RCT(6916)*V(4765) -! B(11023) = dA(6917)/dV(4765) - B(11023) = RCT(6917)*V(5252) -! B(11024) = dA(6917)/dV(5252) - B(11024) = RCT(6917)*V(4765) -! B(11025) = dA(6918)/dV(4765) - B(11025) = RCT(6918)*V(5256) -! B(11026) = dA(6918)/dV(5256) - B(11026) = RCT(6918)*V(4765) -! B(11027) = dA(6919)/dV(4765) - B(11027) = RCT(6919) -! B(11028) = dA(6920)/dV(4765) - B(11028) = RCT(6920) -! B(11029) = dA(6921)/dV(4765) - B(11029) = RCT(6921) -! B(11030) = dA(6922)/dV(1113) - B(11030) = RCT(6922)*V(5250) -! B(11031) = dA(6922)/dV(5250) - B(11031) = RCT(6922)*V(1113) -! B(11032) = dA(6923)/dV(5213) - B(11032) = RCT(6923)*V(5256) -! B(11033) = dA(6923)/dV(5256) - B(11033) = RCT(6923)*V(5213) -! B(11034) = dA(6924)/dV(5213) - B(11034) = RCT(6924)*V(5250) -! B(11035) = dA(6924)/dV(5250) - B(11035) = RCT(6924)*V(5213) -! B(11036) = dA(6925)/dV(5213) - B(11036) = RCT(6925)*V(5250) -! B(11037) = dA(6925)/dV(5250) - B(11037) = RCT(6925)*V(5213) -! B(11038) = dA(6926)/dV(5213) - B(11038) = RCT(6926) -! B(11039) = dA(6927)/dV(3745) - B(11039) = RCT(6927)*V(5255) -! B(11040) = dA(6927)/dV(5255) - B(11040) = RCT(6927)*V(3745) -! B(11041) = dA(6928)/dV(3745) - B(11041) = RCT(6928)*V(5252) -! B(11042) = dA(6928)/dV(5252) - B(11042) = RCT(6928)*V(3745) -! B(11043) = dA(6929)/dV(3745) - B(11043) = RCT(6929)*V(5256) -! B(11044) = dA(6929)/dV(5256) - B(11044) = RCT(6929)*V(3745) -! B(11045) = dA(6930)/dV(3745) - B(11045) = RCT(6930) -! B(11046) = dA(6931)/dV(5029) - B(11046) = RCT(6931)*V(5255) -! B(11047) = dA(6931)/dV(5255) - B(11047) = RCT(6931)*V(5029) -! B(11048) = dA(6932)/dV(5029) - B(11048) = RCT(6932)*V(5255) -! B(11049) = dA(6932)/dV(5255) - B(11049) = RCT(6932)*V(5029) -! B(11050) = dA(6933)/dV(5029) - B(11050) = RCT(6933)*V(5255) -! B(11051) = dA(6933)/dV(5255) - B(11051) = RCT(6933)*V(5029) -! B(11052) = dA(6934)/dV(5029) - B(11052) = RCT(6934)*V(5252) -! B(11053) = dA(6934)/dV(5252) - B(11053) = RCT(6934)*V(5029) -! B(11054) = dA(6935)/dV(5029) - B(11054) = RCT(6935)*V(5253) -! B(11055) = dA(6935)/dV(5253) - B(11055) = RCT(6935)*V(5029) -! B(11056) = dA(6936)/dV(5029) - B(11056) = RCT(6936)*V(5256) -! B(11057) = dA(6936)/dV(5256) - B(11057) = RCT(6936)*V(5029) -! B(11058) = dA(6937)/dV(5029) - B(11058) = RCT(6937) -! B(11059) = dA(6938)/dV(5029) - B(11059) = RCT(6938) -! B(11060) = dA(6939)/dV(1007) - B(11060) = RCT(6939)*V(5250) -! B(11061) = dA(6939)/dV(5250) - B(11061) = RCT(6939)*V(1007) -! B(11062) = dA(6940)/dV(1007) - B(11062) = RCT(6940) -! B(11063) = dA(6941)/dV(370) - B(11063) = RCT(6941) -! B(11064) = dA(6942)/dV(369) - B(11064) = RCT(6942)*V(5250) -! B(11065) = dA(6942)/dV(5250) - B(11065) = RCT(6942)*V(369) -! B(11066) = dA(6943)/dV(369) - B(11066) = RCT(6943) -! B(11067) = dA(6944)/dV(2540) - B(11067) = RCT(6944)*V(5250) -! B(11068) = dA(6944)/dV(5250) - B(11068) = RCT(6944)*V(2540) -! B(11069) = dA(6945)/dV(2540) - B(11069) = RCT(6945) -! B(11070) = dA(6946)/dV(2540) - B(11070) = RCT(6946) -! B(11071) = dA(6947)/dV(2323) - B(11071) = RCT(6947) -! B(11072) = dA(6948)/dV(2323) - B(11072) = RCT(6948) -! B(11073) = dA(6949)/dV(3115) - B(11073) = RCT(6949)*V(5250) -! B(11074) = dA(6949)/dV(5250) - B(11074) = RCT(6949)*V(3115) -! B(11075) = dA(6950)/dV(3115) - B(11075) = RCT(6950) -! B(11076) = dA(6951)/dV(3559) - B(11076) = RCT(6951)*V(5250) -! B(11077) = dA(6951)/dV(5250) - B(11077) = RCT(6951)*V(3559) -! B(11078) = dA(6952)/dV(3559) - B(11078) = RCT(6952) -! B(11079) = dA(6953)/dV(3559) - B(11079) = RCT(6953) -! B(11080) = dA(6954)/dV(2140) - B(11080) = RCT(6954)*V(5250) -! B(11081) = dA(6954)/dV(5250) - B(11081) = RCT(6954)*V(2140) -! B(11082) = dA(6955)/dV(2140) - B(11082) = RCT(6955) -! B(11083) = dA(6956)/dV(2002) - B(11083) = RCT(6956)*V(5250) -! B(11084) = dA(6956)/dV(5250) - B(11084) = RCT(6956)*V(2002) -! B(11085) = dA(6957)/dV(2002) - B(11085) = RCT(6957)*V(5250) -! B(11086) = dA(6957)/dV(5250) - B(11086) = RCT(6957)*V(2002) -! B(11087) = dA(6958)/dV(2002) - B(11087) = RCT(6958) -! B(11088) = dA(6959)/dV(2313) - B(11088) = RCT(6959)*V(5250) -! B(11089) = dA(6959)/dV(5250) - B(11089) = RCT(6959)*V(2313) -! B(11090) = dA(6960)/dV(2313) - B(11090) = RCT(6960) -! B(11091) = dA(6961)/dV(271) - B(11091) = RCT(6961) -! B(11092) = dA(6962)/dV(599) - B(11092) = RCT(6962)*V(5250) -! B(11093) = dA(6962)/dV(5250) - B(11093) = RCT(6962)*V(599) -! B(11094) = dA(6963)/dV(599) - B(11094) = RCT(6963) -! B(11095) = dA(6964)/dV(4914) - B(11095) = RCT(6964)*V(5256) -! B(11096) = dA(6964)/dV(5256) - B(11096) = RCT(6964)*V(4914) -! B(11097) = dA(6965)/dV(4914) - B(11097) = RCT(6965)*V(5250) -! B(11098) = dA(6965)/dV(5250) - B(11098) = RCT(6965)*V(4914) -! B(11099) = dA(6966)/dV(4914) - B(11099) = RCT(6966) -! B(11100) = dA(6967)/dV(2480) - B(11100) = RCT(6967)*V(5250) -! B(11101) = dA(6967)/dV(5250) - B(11101) = RCT(6967)*V(2480) -! B(11102) = dA(6968)/dV(4089) - B(11102) = RCT(6968)*V(5255) -! B(11103) = dA(6968)/dV(5255) - B(11103) = RCT(6968)*V(4089) -! B(11104) = dA(6969)/dV(4089) - B(11104) = RCT(6969)*V(5252) -! B(11105) = dA(6969)/dV(5252) - B(11105) = RCT(6969)*V(4089) -! B(11106) = dA(6970)/dV(4089) - B(11106) = RCT(6970)*V(5252) -! B(11107) = dA(6970)/dV(5252) - B(11107) = RCT(6970)*V(4089) -! B(11108) = dA(6971)/dV(4089) - B(11108) = RCT(6971)*V(5256) -! B(11109) = dA(6971)/dV(5256) - B(11109) = RCT(6971)*V(4089) -! B(11110) = dA(6972)/dV(4089) - B(11110) = RCT(6972) -! B(11111) = dA(6973)/dV(4089) - B(11111) = RCT(6973) -! B(11112) = dA(6974)/dV(4089) - B(11112) = RCT(6974) -! B(11113) = dA(6975)/dV(4266) - B(11113) = RCT(6975)*V(5255) -! B(11114) = dA(6975)/dV(5255) - B(11114) = RCT(6975)*V(4266) -! B(11115) = dA(6976)/dV(4266) - B(11115) = RCT(6976)*V(5255) -! B(11116) = dA(6976)/dV(5255) - B(11116) = RCT(6976)*V(4266) -! B(11117) = dA(6977)/dV(4266) - B(11117) = RCT(6977)*V(5252) -! B(11118) = dA(6977)/dV(5252) - B(11118) = RCT(6977)*V(4266) -! B(11119) = dA(6978)/dV(4266) - B(11119) = RCT(6978)*V(5253) -! B(11120) = dA(6978)/dV(5253) - B(11120) = RCT(6978)*V(4266) -! B(11121) = dA(6979)/dV(4266) - B(11121) = RCT(6979)*V(5256) -! B(11122) = dA(6979)/dV(5256) - B(11122) = RCT(6979)*V(4266) -! B(11123) = dA(6980)/dV(4266) - B(11123) = RCT(6980) -! B(11124) = dA(6981)/dV(904) - B(11124) = RCT(6981)*V(5250) -! B(11125) = dA(6981)/dV(5250) - B(11125) = RCT(6981)*V(904) -! B(11126) = dA(6982)/dV(904) - B(11126) = RCT(6982) -! B(11127) = dA(6983)/dV(2296) - B(11127) = RCT(6983)*V(5250) -! B(11128) = dA(6983)/dV(5250) - B(11128) = RCT(6983)*V(2296) -! B(11129) = dA(6984)/dV(2296) - B(11129) = RCT(6984) -! B(11130) = dA(6985)/dV(3398) - B(11130) = RCT(6985) -! B(11131) = dA(6986)/dV(3398) - B(11131) = RCT(6986) -! B(11132) = dA(6987)/dV(1604) - B(11132) = RCT(6987)*V(5250) -! B(11133) = dA(6987)/dV(5250) - B(11133) = RCT(6987)*V(1604) -! B(11134) = dA(6988)/dV(336) - B(11134) = RCT(6988)*V(5250) -! B(11135) = dA(6988)/dV(5250) - B(11135) = RCT(6988)*V(336) -! B(11136) = dA(6989)/dV(653) - B(11136) = RCT(6989)*V(5250) -! B(11137) = dA(6989)/dV(5250) - B(11137) = RCT(6989)*V(653) -! B(11138) = dA(6990)/dV(653) - B(11138) = RCT(6990) -! B(11139) = dA(6991)/dV(840) - B(11139) = RCT(6991)*V(5250) -! B(11140) = dA(6991)/dV(5250) - B(11140) = RCT(6991)*V(840) -! B(11141) = dA(6992)/dV(840) - B(11141) = RCT(6992) -! B(11142) = dA(6993)/dV(176) - B(11142) = RCT(6993) -! B(11143) = dA(6994)/dV(652) - B(11143) = RCT(6994)*V(5250) -! B(11144) = dA(6994)/dV(5250) - B(11144) = RCT(6994)*V(652) -! B(11145) = dA(6995)/dV(395) - B(11145) = RCT(6995)*V(5250) -! B(11146) = dA(6995)/dV(5250) - B(11146) = RCT(6995)*V(395) -! B(11147) = dA(6996)/dV(1470) - B(11147) = RCT(6996)*V(5250) -! B(11148) = dA(6996)/dV(5250) - B(11148) = RCT(6996)*V(1470) -! B(11149) = dA(6997)/dV(1470) - B(11149) = RCT(6997) -! B(11150) = dA(6998)/dV(3034) - B(11150) = RCT(6998)*V(5250) -! B(11151) = dA(6998)/dV(5250) - B(11151) = RCT(6998)*V(3034) -! B(11152) = dA(6999)/dV(3034) - B(11152) = RCT(6999) -! B(11153) = dA(7000)/dV(254) - B(11153) = RCT(7000) -! B(11154) = dA(7001)/dV(28) - B(11154) = RCT(7001)*V(5250) -! B(11155) = dA(7001)/dV(5250) - B(11155) = RCT(7001)*V(28) -! B(11156) = dA(7002)/dV(405) - B(11156) = RCT(7002)*V(5250) -! B(11157) = dA(7002)/dV(5250) - B(11157) = RCT(7002)*V(405) -! B(11158) = dA(7003)/dV(405) - B(11158) = RCT(7003) -! B(11159) = dA(7004)/dV(145) - B(11159) = RCT(7004) -! B(11160) = dA(7005)/dV(404) - B(11160) = RCT(7005)*V(5250) -! B(11161) = dA(7005)/dV(5250) - B(11161) = RCT(7005)*V(404) -! B(11162) = dA(7006)/dV(403) - B(11162) = RCT(7006)*V(5250) -! B(11163) = dA(7006)/dV(5250) - B(11163) = RCT(7006)*V(403) -! B(11164) = dA(7007)/dV(4078) - B(11164) = RCT(7007)*V(5255) -! B(11165) = dA(7007)/dV(5255) - B(11165) = RCT(7007)*V(4078) -! B(11166) = dA(7008)/dV(4078) - B(11166) = RCT(7008)*V(5252) -! B(11167) = dA(7008)/dV(5252) - B(11167) = RCT(7008)*V(4078) -! B(11168) = dA(7009)/dV(4078) - B(11168) = RCT(7009)*V(5252) -! B(11169) = dA(7009)/dV(5252) - B(11169) = RCT(7009)*V(4078) -! B(11170) = dA(7010)/dV(4078) - B(11170) = RCT(7010)*V(5256) -! B(11171) = dA(7010)/dV(5256) - B(11171) = RCT(7010)*V(4078) -! B(11172) = dA(7011)/dV(4078) - B(11172) = RCT(7011) -! B(11173) = dA(7012)/dV(4078) - B(11173) = RCT(7012) -! B(11174) = dA(7013)/dV(4078) - B(11174) = RCT(7013) -! B(11175) = dA(7014)/dV(4301) - B(11175) = RCT(7014)*V(5255) -! B(11176) = dA(7014)/dV(5255) - B(11176) = RCT(7014)*V(4301) -! B(11177) = dA(7015)/dV(4301) - B(11177) = RCT(7015)*V(5255) -! B(11178) = dA(7015)/dV(5255) - B(11178) = RCT(7015)*V(4301) -! B(11179) = dA(7016)/dV(4301) - B(11179) = RCT(7016)*V(5252) -! B(11180) = dA(7016)/dV(5252) - B(11180) = RCT(7016)*V(4301) -! B(11181) = dA(7017)/dV(4301) - B(11181) = RCT(7017)*V(5253) -! B(11182) = dA(7017)/dV(5253) - B(11182) = RCT(7017)*V(4301) -! B(11183) = dA(7018)/dV(4301) - B(11183) = RCT(7018)*V(5256) -! B(11184) = dA(7018)/dV(5256) - B(11184) = RCT(7018)*V(4301) -! B(11185) = dA(7019)/dV(4301) - B(11185) = RCT(7019) -! B(11186) = dA(7020)/dV(5169) - B(11186) = RCT(7020)*V(5256) -! B(11187) = dA(7020)/dV(5256) - B(11187) = RCT(7020)*V(5169) -! B(11188) = dA(7021)/dV(5169) - B(11188) = RCT(7021)*V(5256) -! B(11189) = dA(7021)/dV(5256) - B(11189) = RCT(7021)*V(5169) -! B(11190) = dA(7022)/dV(5169) - B(11190) = RCT(7022)*V(5258) -! B(11191) = dA(7022)/dV(5258) - B(11191) = RCT(7022)*V(5169) -! B(11192) = dA(7023)/dV(5169) - B(11192) = RCT(7023)*V(5258) -! B(11193) = dA(7023)/dV(5258) - B(11193) = RCT(7023)*V(5169) -! B(11194) = dA(7024)/dV(5169) - B(11194) = RCT(7024)*V(5250) -! B(11195) = dA(7024)/dV(5250) - B(11195) = RCT(7024)*V(5169) -! B(11196) = dA(7025)/dV(5169) - B(11196) = RCT(7025)*V(5250) -! B(11197) = dA(7025)/dV(5250) - B(11197) = RCT(7025)*V(5169) -! B(11198) = dA(7026)/dV(5169) - B(11198) = RCT(7026) -! B(11199) = dA(7027)/dV(2362) - B(11199) = RCT(7027)*V(5250) -! B(11200) = dA(7027)/dV(5250) - B(11200) = RCT(7027)*V(2362) -! B(11201) = dA(7028)/dV(2362) - B(11201) = RCT(7028) -! B(11202) = dA(7029)/dV(2362) - B(11202) = RCT(7029) -! B(11203) = dA(7030)/dV(740) - B(11203) = RCT(7030) -! B(11204) = dA(7031)/dV(2231) - B(11204) = RCT(7031)*V(5250) -! B(11205) = dA(7031)/dV(5250) - B(11205) = RCT(7031)*V(2231) -! B(11206) = dA(7032)/dV(2231) - B(11206) = RCT(7032) -! B(11207) = dA(7033)/dV(1585) - B(11207) = RCT(7033)*V(5250) -! B(11208) = dA(7033)/dV(5250) - B(11208) = RCT(7033)*V(1585) -! B(11209) = dA(7034)/dV(1585) - B(11209) = RCT(7034) -! B(11210) = dA(7035)/dV(2727) - B(11210) = RCT(7035)*V(5250) -! B(11211) = dA(7035)/dV(5250) - B(11211) = RCT(7035)*V(2727) -! B(11212) = dA(7036)/dV(2727) - B(11212) = RCT(7036) -! B(11213) = dA(7037)/dV(2727) - B(11213) = RCT(7037) -! B(11214) = dA(7038)/dV(708) - B(11214) = RCT(7038) -! B(11215) = dA(7039)/dV(1858) - B(11215) = RCT(7039)*V(5250) -! B(11216) = dA(7039)/dV(5250) - B(11216) = RCT(7039)*V(1858) -! B(11217) = dA(7040)/dV(1858) - B(11217) = RCT(7040) -! B(11218) = dA(7041)/dV(1718) - B(11218) = RCT(7041)*V(5250) -! B(11219) = dA(7041)/dV(5250) - B(11219) = RCT(7041)*V(1718) -! B(11220) = dA(7042)/dV(1718) - B(11220) = RCT(7042) -! B(11221) = dA(7043)/dV(1205) - B(11221) = RCT(7043)*V(5250) -! B(11222) = dA(7043)/dV(5250) - B(11222) = RCT(7043)*V(1205) -! B(11223) = dA(7044)/dV(1205) - B(11223) = RCT(7044) -! B(11224) = dA(7045)/dV(2061) - B(11224) = RCT(7045)*V(5250) -! B(11225) = dA(7045)/dV(5250) - B(11225) = RCT(7045)*V(2061) -! B(11226) = dA(7046)/dV(2061) - B(11226) = RCT(7046) -! B(11227) = dA(7047)/dV(199) - B(11227) = RCT(7047) -! B(11228) = dA(7048)/dV(401) - B(11228) = RCT(7048)*V(5250) -! B(11229) = dA(7048)/dV(5250) - B(11229) = RCT(7048)*V(401) -! B(11230) = dA(7049)/dV(5212) - B(11230) = RCT(7049)*V(5250) -! B(11231) = dA(7049)/dV(5250) - B(11231) = RCT(7049)*V(5212) -! B(11232) = dA(7050)/dV(5212) - B(11232) = RCT(7050)*V(5250) -! B(11233) = dA(7050)/dV(5250) - B(11233) = RCT(7050)*V(5212) -! B(11234) = dA(7051)/dV(5212) - B(11234) = RCT(7051) -! B(11235) = dA(7052)/dV(709) - B(11235) = RCT(7052)*V(5250) -! B(11236) = dA(7052)/dV(5250) - B(11236) = RCT(7052)*V(709) -! B(11237) = dA(7053)/dV(4847) - B(11237) = RCT(7053)*V(5255) -! B(11238) = dA(7053)/dV(5255) - B(11238) = RCT(7053)*V(4847) -! B(11239) = dA(7054)/dV(4847) - B(11239) = RCT(7054)*V(5255) -! B(11240) = dA(7054)/dV(5255) - B(11240) = RCT(7054)*V(4847) -! B(11241) = dA(7055)/dV(4847) - B(11241) = RCT(7055)*V(5255) -! B(11242) = dA(7055)/dV(5255) - B(11242) = RCT(7055)*V(4847) -! B(11243) = dA(7056)/dV(4847) - B(11243) = RCT(7056)*V(5252) -! B(11244) = dA(7056)/dV(5252) - B(11244) = RCT(7056)*V(4847) -! B(11245) = dA(7057)/dV(4847) - B(11245) = RCT(7057)*V(5253) -! B(11246) = dA(7057)/dV(5253) - B(11246) = RCT(7057)*V(4847) -! B(11247) = dA(7058)/dV(4847) - B(11247) = RCT(7058)*V(5256) -! B(11248) = dA(7058)/dV(5256) - B(11248) = RCT(7058)*V(4847) -! B(11249) = dA(7059)/dV(4847) - B(11249) = RCT(7059) -! B(11250) = dA(7060)/dV(4847) - B(11250) = RCT(7060) -! B(11251) = dA(7061)/dV(5175) - B(11251) = RCT(7061)*V(5256) -! B(11252) = dA(7061)/dV(5256) - B(11252) = RCT(7061)*V(5175) -! B(11253) = dA(7062)/dV(5175) - B(11253) = RCT(7062)*V(5258) -! B(11254) = dA(7062)/dV(5258) - B(11254) = RCT(7062)*V(5175) -! B(11255) = dA(7063)/dV(5175) - B(11255) = RCT(7063)*V(5258) -! B(11256) = dA(7063)/dV(5258) - B(11256) = RCT(7063)*V(5175) -! B(11257) = dA(7064)/dV(5175) - B(11257) = RCT(7064)*V(5250) -! B(11258) = dA(7064)/dV(5250) - B(11258) = RCT(7064)*V(5175) -! B(11259) = dA(7065)/dV(5175) - B(11259) = RCT(7065)*V(5250) -! B(11260) = dA(7065)/dV(5250) - B(11260) = RCT(7065)*V(5175) -! B(11261) = dA(7066)/dV(5099) - B(11261) = RCT(7066)*V(5255) -! B(11262) = dA(7066)/dV(5255) - B(11262) = RCT(7066)*V(5099) -! B(11263) = dA(7067)/dV(5099) - B(11263) = RCT(7067)*V(5255) -! B(11264) = dA(7067)/dV(5255) - B(11264) = RCT(7067)*V(5099) -! B(11265) = dA(7068)/dV(5099) - B(11265) = RCT(7068)*V(5255) -! B(11266) = dA(7068)/dV(5255) - B(11266) = RCT(7068)*V(5099) -! B(11267) = dA(7069)/dV(5099) - B(11267) = RCT(7069)*V(5252) -! B(11268) = dA(7069)/dV(5252) - B(11268) = RCT(7069)*V(5099) -! B(11269) = dA(7070)/dV(5099) - B(11269) = RCT(7070)*V(5253) -! B(11270) = dA(7070)/dV(5253) - B(11270) = RCT(7070)*V(5099) -! B(11271) = dA(7071)/dV(5099) - B(11271) = RCT(7071)*V(5256) -! B(11272) = dA(7071)/dV(5256) - B(11272) = RCT(7071)*V(5099) -! B(11273) = dA(7072)/dV(5099) - B(11273) = RCT(7072) -! B(11274) = dA(7073)/dV(5099) - B(11274) = RCT(7073) -! B(11275) = dA(7074)/dV(3988) - B(11275) = RCT(7074)*V(5255) -! B(11276) = dA(7074)/dV(5255) - B(11276) = RCT(7074)*V(3988) -! B(11277) = dA(7075)/dV(3988) - B(11277) = RCT(7075)*V(5252) -! B(11278) = dA(7075)/dV(5252) - B(11278) = RCT(7075)*V(3988) -! B(11279) = dA(7076)/dV(3988) - B(11279) = RCT(7076)*V(5256) -! B(11280) = dA(7076)/dV(5256) - B(11280) = RCT(7076)*V(3988) -! B(11281) = dA(7077)/dV(3988) - B(11281) = RCT(7077) -! B(11282) = dA(7078)/dV(3988) - B(11282) = RCT(7078) -! B(11283) = dA(7079)/dV(236) - B(11283) = RCT(7079) -! B(11284) = dA(7080)/dV(236) - B(11284) = RCT(7080) -! B(11285) = dA(7081)/dV(5248) - B(11285) = RCT(7081)*V(5256) -! B(11286) = dA(7081)/dV(5256) - B(11286) = RCT(7081)*V(5248) -! B(11287) = dA(7082)/dV(5248) - B(11287) = RCT(7082)*V(5250) -! B(11288) = dA(7082)/dV(5250) - B(11288) = RCT(7082)*V(5248) -! B(11289) = dA(7083)/dV(5248) - B(11289) = RCT(7083)*V(5250) -! B(11290) = dA(7083)/dV(5250) - B(11290) = RCT(7083)*V(5248) -! B(11291) = dA(7084)/dV(5248) - B(11291) = RCT(7084)*V(5250) -! B(11292) = dA(7084)/dV(5250) - B(11292) = RCT(7084)*V(5248) -! B(11293) = dA(7085)/dV(5248) - B(11293) = RCT(7085)*V(5250) -! B(11294) = dA(7085)/dV(5250) - B(11294) = RCT(7085)*V(5248) -! B(11295) = dA(7086)/dV(5248) - B(11295) = RCT(7086)*V(5250) -! B(11296) = dA(7086)/dV(5250) - B(11296) = RCT(7086)*V(5248) -! B(11297) = dA(7087)/dV(5248) - B(11297) = RCT(7087) -! B(11298) = dA(7088)/dV(3883) - B(11298) = RCT(7088)*V(5255) -! B(11299) = dA(7088)/dV(5255) - B(11299) = RCT(7088)*V(3883) -! B(11300) = dA(7089)/dV(3883) - B(11300) = RCT(7089)*V(5252) -! B(11301) = dA(7089)/dV(5252) - B(11301) = RCT(7089)*V(3883) -! B(11302) = dA(7090)/dV(3883) - B(11302) = RCT(7090)*V(5252) -! B(11303) = dA(7090)/dV(5252) - B(11303) = RCT(7090)*V(3883) -! B(11304) = dA(7091)/dV(3883) - B(11304) = RCT(7091)*V(5256) -! B(11305) = dA(7091)/dV(5256) - B(11305) = RCT(7091)*V(3883) -! B(11306) = dA(7092)/dV(3883) - B(11306) = RCT(7092) -! B(11307) = dA(7093)/dV(3883) - B(11307) = RCT(7093) -! B(11308) = dA(7094)/dV(3617) - B(11308) = RCT(7094)*V(5250) -! B(11309) = dA(7094)/dV(5250) - B(11309) = RCT(7094)*V(3617) -! B(11310) = dA(7095)/dV(4869) - B(11310) = RCT(7095)*V(5251) -! B(11311) = dA(7095)/dV(5251) - B(11311) = RCT(7095)*V(4869) -! B(11312) = dA(7096)/dV(4869) - B(11312) = RCT(7096)*V(5252) -! B(11313) = dA(7096)/dV(5252) - B(11313) = RCT(7096)*V(4869) -! B(11314) = dA(7097)/dV(4869) - B(11314) = RCT(7097)*V(5253) -! B(11315) = dA(7097)/dV(5253) - B(11315) = RCT(7097)*V(4869) -! B(11316) = dA(7098)/dV(4869) - B(11316) = RCT(7098)*V(5254) -! B(11317) = dA(7098)/dV(5254) - B(11317) = RCT(7098)*V(4869) -! B(11318) = dA(7099)/dV(4869) - B(11318) = RCT(7099) -! B(11319) = dA(7100)/dV(4541) - B(11319) = RCT(7100)*V(5255) -! B(11320) = dA(7100)/dV(5255) - B(11320) = RCT(7100)*V(4541) -! B(11321) = dA(7101)/dV(4541) - B(11321) = RCT(7101)*V(5252) -! B(11322) = dA(7101)/dV(5252) - B(11322) = RCT(7101)*V(4541) -! B(11323) = dA(7102)/dV(4541) - B(11323) = RCT(7102)*V(5252) -! B(11324) = dA(7102)/dV(5252) - B(11324) = RCT(7102)*V(4541) -! B(11325) = dA(7103)/dV(4541) - B(11325) = RCT(7103)*V(5256) -! B(11326) = dA(7103)/dV(5256) - B(11326) = RCT(7103)*V(4541) -! B(11327) = dA(7104)/dV(4541) - B(11327) = RCT(7104) -! B(11328) = dA(7105)/dV(4541) - B(11328) = RCT(7105) -! B(11329) = dA(7106)/dV(3638) - B(11329) = RCT(7106)*V(5250) -! B(11330) = dA(7106)/dV(5250) - B(11330) = RCT(7106)*V(3638) -! B(11331) = dA(7107)/dV(362) - B(11331) = RCT(7107) -! B(11332) = dA(7108)/dV(362) - B(11332) = RCT(7108) -! B(11333) = dA(7109)/dV(3990) - B(11333) = RCT(7109)*V(5255) -! B(11334) = dA(7109)/dV(5255) - B(11334) = RCT(7109)*V(3990) -! B(11335) = dA(7110)/dV(3990) - B(11335) = RCT(7110)*V(5252) -! B(11336) = dA(7110)/dV(5252) - B(11336) = RCT(7110)*V(3990) -! B(11337) = dA(7111)/dV(3990) - B(11337) = RCT(7111)*V(5252) -! B(11338) = dA(7111)/dV(5252) - B(11338) = RCT(7111)*V(3990) -! B(11339) = dA(7112)/dV(3990) - B(11339) = RCT(7112)*V(5256) -! B(11340) = dA(7112)/dV(5256) - B(11340) = RCT(7112)*V(3990) -! B(11341) = dA(7113)/dV(3990) - B(11341) = RCT(7113) -! B(11342) = dA(7114)/dV(3990) - B(11342) = RCT(7114) -! B(11343) = dA(7115)/dV(2469) - B(11343) = RCT(7115)*V(5250) -! B(11344) = dA(7115)/dV(5250) - B(11344) = RCT(7115)*V(2469) -! B(11345) = dA(7116)/dV(2469) - B(11345) = RCT(7116) -! B(11346) = dA(7117)/dV(2469) - B(11346) = RCT(7117) -! B(11347) = dA(7118)/dV(770) - B(11347) = RCT(7118) -! B(11348) = dA(7119)/dV(1834) - B(11348) = RCT(7119)*V(5250) -! B(11349) = dA(7119)/dV(5250) - B(11349) = RCT(7119)*V(1834) -! B(11350) = dA(7120)/dV(1834) - B(11350) = RCT(7120) -! B(11351) = dA(7121)/dV(1611) - B(11351) = RCT(7121)*V(5250) -! B(11352) = dA(7121)/dV(5250) - B(11352) = RCT(7121)*V(1611) -! B(11353) = dA(7122)/dV(1611) - B(11353) = RCT(7122) -! B(11354) = dA(7123)/dV(2836) - B(11354) = RCT(7123)*V(5250) -! B(11355) = dA(7123)/dV(5250) - B(11355) = RCT(7123)*V(2836) -! B(11356) = dA(7124)/dV(2836) - B(11356) = RCT(7124) -! B(11357) = dA(7125)/dV(2836) - B(11357) = RCT(7125) -! B(11358) = dA(7126)/dV(688) - B(11358) = RCT(7126) -! B(11359) = dA(7127)/dV(1791) - B(11359) = RCT(7127)*V(5250) -! B(11360) = dA(7127)/dV(5250) - B(11360) = RCT(7127)*V(1791) -! B(11361) = dA(7128)/dV(1791) - B(11361) = RCT(7128) -! B(11362) = dA(7129)/dV(1742) - B(11362) = RCT(7129)*V(5250) -! B(11363) = dA(7129)/dV(5250) - B(11363) = RCT(7129)*V(1742) -! B(11364) = dA(7130)/dV(1742) - B(11364) = RCT(7130) -! B(11365) = dA(7131)/dV(243) - B(11365) = RCT(7131) -! B(11366) = dA(7132)/dV(243) - B(11366) = RCT(7132) -! B(11367) = dA(7133)/dV(3516) - B(11367) = RCT(7133)*V(5250) -! B(11368) = dA(7133)/dV(5250) - B(11368) = RCT(7133)*V(3516) -! B(11369) = dA(7134)/dV(4249) - B(11369) = RCT(7134)*V(5255) -! B(11370) = dA(7134)/dV(5255) - B(11370) = RCT(7134)*V(4249) -! B(11371) = dA(7135)/dV(4249) - B(11371) = RCT(7135)*V(5252) -! B(11372) = dA(7135)/dV(5252) - B(11372) = RCT(7135)*V(4249) -! B(11373) = dA(7136)/dV(4249) - B(11373) = RCT(7136)*V(5252) -! B(11374) = dA(7136)/dV(5252) - B(11374) = RCT(7136)*V(4249) -! B(11375) = dA(7137)/dV(4249) - B(11375) = RCT(7137)*V(5256) -! B(11376) = dA(7137)/dV(5256) - B(11376) = RCT(7137)*V(4249) -! B(11377) = dA(7138)/dV(4249) - B(11377) = RCT(7138) -! B(11378) = dA(7139)/dV(4249) - B(11378) = RCT(7139) -! B(11379) = dA(7140)/dV(1178) - B(11379) = RCT(7140)*V(5250) -! B(11380) = dA(7140)/dV(5250) - B(11380) = RCT(7140)*V(1178) -! B(11381) = dA(7141)/dV(1178) - B(11381) = RCT(7141) -! B(11382) = dA(7142)/dV(1771) - B(11382) = RCT(7142)*V(5250) -! B(11383) = dA(7142)/dV(5250) - B(11383) = RCT(7142)*V(1771) -! B(11384) = dA(7143)/dV(1771) - B(11384) = RCT(7143) -! B(11385) = dA(7144)/dV(156) - B(11385) = RCT(7144) -! B(11386) = dA(7145)/dV(5207) - B(11386) = RCT(7145)*V(5256) -! B(11387) = dA(7145)/dV(5256) - B(11387) = RCT(7145)*V(5207) -! B(11388) = dA(7146)/dV(5207) - B(11388) = RCT(7146)*V(5256) -! B(11389) = dA(7146)/dV(5256) - B(11389) = RCT(7146)*V(5207) -! B(11390) = dA(7147)/dV(5207) - B(11390) = RCT(7147)*V(5258) -! B(11391) = dA(7147)/dV(5258) - B(11391) = RCT(7147)*V(5207) -! B(11392) = dA(7148)/dV(5207) - B(11392) = RCT(7148)*V(5258) -! B(11393) = dA(7148)/dV(5258) - B(11393) = RCT(7148)*V(5207) -! B(11394) = dA(7149)/dV(5207) - B(11394) = RCT(7149)*V(5250) -! B(11395) = dA(7149)/dV(5250) - B(11395) = RCT(7149)*V(5207) -! B(11396) = dA(7150)/dV(5207) - B(11396) = RCT(7150)*V(5250) -! B(11397) = dA(7150)/dV(5250) - B(11397) = RCT(7150)*V(5207) -! B(11398) = dA(7151)/dV(5207) - B(11398) = RCT(7151) -! B(11399) = dA(7152)/dV(325) - B(11399) = RCT(7152)*V(5250) -! B(11400) = dA(7152)/dV(5250) - B(11400) = RCT(7152)*V(325) -! B(11401) = dA(7153)/dV(3043) - B(11401) = RCT(7153)*V(5250) -! B(11402) = dA(7153)/dV(5250) - B(11402) = RCT(7153)*V(3043) -! B(11403) = dA(7154)/dV(3043) - B(11403) = RCT(7154) -! B(11404) = dA(7155)/dV(3043) - B(11404) = RCT(7155) -! B(11405) = dA(7156)/dV(2170) - B(11405) = RCT(7156) -! B(11406) = dA(7157)/dV(2132) - B(11406) = RCT(7157)*V(5250) -! B(11407) = dA(7157)/dV(5250) - B(11407) = RCT(7157)*V(2132) -! B(11408) = dA(7158)/dV(2132) - B(11408) = RCT(7158) -! B(11409) = dA(7159)/dV(1612) - B(11409) = RCT(7159)*V(5250) -! B(11410) = dA(7159)/dV(5250) - B(11410) = RCT(7159)*V(1612) -! B(11411) = dA(7160)/dV(1612) - B(11411) = RCT(7160) -! B(11412) = dA(7161)/dV(1128) - B(11412) = RCT(7161)*V(5250) -! B(11413) = dA(7161)/dV(5250) - B(11413) = RCT(7161)*V(1128) -! B(11414) = dA(7162)/dV(1128) - B(11414) = RCT(7162) -! B(11415) = dA(7163)/dV(2108) - B(11415) = RCT(7163)*V(5250) -! B(11416) = dA(7163)/dV(5250) - B(11416) = RCT(7163)*V(2108) -! B(11417) = dA(7164)/dV(2108) - B(11417) = RCT(7164) -! B(11418) = dA(7165)/dV(172) - B(11418) = RCT(7165) -! B(11419) = dA(7166)/dV(4183) - B(11419) = RCT(7166)*V(5250) -! B(11420) = dA(7166)/dV(5250) - B(11420) = RCT(7166)*V(4183) -! B(11421) = dA(7167)/dV(4183) - B(11421) = RCT(7167) -! B(11422) = dA(7168)/dV(439) - B(11422) = RCT(7168)*V(5250) -! B(11423) = dA(7168)/dV(5250) - B(11423) = RCT(7168)*V(439) -! B(11424) = dA(7169)/dV(5249) - B(11424) = RCT(7169)*V(5256) -! B(11425) = dA(7169)/dV(5256) - B(11425) = RCT(7169)*V(5249) -! B(11426) = dA(7170)/dV(5249) - B(11426) = RCT(7170)*V(5258) -! B(11427) = dA(7170)/dV(5258) - B(11427) = RCT(7170)*V(5249) -! B(11428) = dA(7171)/dV(5249) - B(11428) = RCT(7171)*V(5258) -! B(11429) = dA(7171)/dV(5258) - B(11429) = RCT(7171)*V(5249) -! B(11430) = dA(7172)/dV(5249) - B(11430) = RCT(7172)*V(5258) -! B(11431) = dA(7172)/dV(5258) - B(11431) = RCT(7172)*V(5249) -! B(11432) = dA(7173)/dV(5249) - B(11432) = RCT(7173)*V(5258) -! B(11433) = dA(7173)/dV(5258) - B(11433) = RCT(7173)*V(5249) -! B(11434) = dA(7174)/dV(5249) - B(11434) = RCT(7174)*V(5250) -! B(11435) = dA(7174)/dV(5250) - B(11435) = RCT(7174)*V(5249) -! B(11436) = dA(7175)/dV(5249) - B(11436) = RCT(7175)*V(5250) -! B(11437) = dA(7175)/dV(5250) - B(11437) = RCT(7175)*V(5249) -! B(11438) = dA(7176)/dV(237) - B(11438) = RCT(7176)*V(5250) -! B(11439) = dA(7176)/dV(5250) - B(11439) = RCT(7176)*V(237) -! B(11440) = dA(7177)/dV(868) - B(11440) = RCT(7177) -! B(11441) = dA(7178)/dV(868) - B(11441) = RCT(7178)*V(5250) -! B(11442) = dA(7178)/dV(5250) - B(11442) = RCT(7178)*V(868) -! B(11443) = dA(7179)/dV(2825) - B(11443) = RCT(7179) -! B(11444) = dA(7180)/dV(2825) - B(11444) = RCT(7180)*V(5250) -! B(11445) = dA(7180)/dV(5250) - B(11445) = RCT(7180)*V(2825) -! B(11446) = dA(7181)/dV(343) - B(11446) = RCT(7181)*V(5250) -! B(11447) = dA(7181)/dV(5250) - B(11447) = RCT(7181)*V(343) -! B(11448) = dA(7182)/dV(1158) - B(11448) = RCT(7182) -! B(11449) = dA(7183)/dV(1158) - B(11449) = RCT(7183)*V(5250) -! B(11450) = dA(7183)/dV(5250) - B(11450) = RCT(7183)*V(1158) -! B(11451) = dA(7184)/dV(2790) - B(11451) = RCT(7184) -! B(11452) = dA(7185)/dV(2790) - B(11452) = RCT(7185)*V(5250) -! B(11453) = dA(7185)/dV(5250) - B(11453) = RCT(7185)*V(2790) -! B(11454) = dA(7186)/dV(1142) - B(11454) = RCT(7186) -! B(11455) = dA(7187)/dV(1142) - B(11455) = RCT(7187)*V(5250) -! B(11456) = dA(7187)/dV(5250) - B(11456) = RCT(7187)*V(1142) -! B(11457) = dA(7188)/dV(2074) - B(11457) = RCT(7188) -! B(11458) = dA(7189)/dV(2074) - B(11458) = RCT(7189)*V(5250) -! B(11459) = dA(7189)/dV(5250) - B(11459) = RCT(7189)*V(2074) -! B(11460) = dA(7190)/dV(2745) - B(11460) = RCT(7190) -! B(11461) = dA(7191)/dV(498) - B(11461) = RCT(7191)*V(5250) -! B(11462) = dA(7191)/dV(5250) - B(11462) = RCT(7191)*V(498) -! B(11463) = dA(7192)/dV(3602) - B(11463) = RCT(7192) -! B(11464) = dA(7193)/dV(3602) - B(11464) = RCT(7193)*V(5250) -! B(11465) = dA(7193)/dV(5250) - B(11465) = RCT(7193)*V(3602) -! B(11466) = dA(7194)/dV(1545) - B(11466) = RCT(7194) -! B(11467) = dA(7195)/dV(1545) - B(11467) = RCT(7195)*V(5250) -! B(11468) = dA(7195)/dV(5250) - B(11468) = RCT(7195)*V(1545) -! B(11469) = dA(7196)/dV(2880) - B(11469) = RCT(7196) -! B(11470) = dA(7197)/dV(2880) - B(11470) = RCT(7197)*V(5250) -! B(11471) = dA(7197)/dV(5250) - B(11471) = RCT(7197)*V(2880) -! B(11472) = dA(7198)/dV(2693) - B(11472) = RCT(7198) -! B(11473) = dA(7199)/dV(2693) - B(11473) = RCT(7199)*V(5250) -! B(11474) = dA(7199)/dV(5250) - B(11474) = RCT(7199)*V(2693) -! B(11475) = dA(7200)/dV(2693) - B(11475) = RCT(7200)*V(5250) -! B(11476) = dA(7200)/dV(5250) - B(11476) = RCT(7200)*V(2693) -! B(11477) = dA(7201)/dV(1531) - B(11477) = RCT(7201)*V(5250) -! B(11478) = dA(7201)/dV(5250) - B(11478) = RCT(7201)*V(1531) -! B(11479) = dA(7202)/dV(532) - B(11479) = RCT(7202) -! B(11480) = dA(7203)/dV(497) - B(11480) = RCT(7203)*V(5250) -! B(11481) = dA(7203)/dV(5250) - B(11481) = RCT(7203)*V(497) -! B(11482) = dA(7204)/dV(3935) - B(11482) = RCT(7204) -! B(11483) = dA(7205)/dV(3935) - B(11483) = RCT(7205)*V(5256) -! B(11484) = dA(7205)/dV(5256) - B(11484) = RCT(7205)*V(3935) -! B(11485) = dA(7206)/dV(3935) - B(11485) = RCT(7206)*V(5250) -! B(11486) = dA(7206)/dV(5250) - B(11486) = RCT(7206)*V(3935) -! B(11487) = dA(7207)/dV(1380) - B(11487) = RCT(7207) -! B(11488) = dA(7208)/dV(1380) - B(11488) = RCT(7208)*V(5250) -! B(11489) = dA(7208)/dV(5250) - B(11489) = RCT(7208)*V(1380) -! B(11490) = dA(7209)/dV(2675) - B(11490) = RCT(7209) -! B(11491) = dA(7210)/dV(2675) - B(11491) = RCT(7210)*V(5250) -! B(11492) = dA(7210)/dV(5250) - B(11492) = RCT(7210)*V(2675) -! B(11493) = dA(7211)/dV(2208) - B(11493) = RCT(7211)*V(5250) -! B(11494) = dA(7211)/dV(5250) - B(11494) = RCT(7211)*V(2208) -! B(11495) = dA(7212)/dV(2208) - B(11495) = RCT(7212) -! B(11496) = dA(7213)/dV(2620) - B(11496) = RCT(7213)*V(5250) -! B(11497) = dA(7213)/dV(5250) - B(11497) = RCT(7213)*V(2620) -! B(11498) = dA(7214)/dV(2620) - B(11498) = RCT(7214) -! B(11499) = dA(7215)/dV(3205) - B(11499) = RCT(7215) -! B(11500) = dA(7216)/dV(3205) - B(11500) = RCT(7216)*V(5250) -! B(11501) = dA(7216)/dV(5250) - B(11501) = RCT(7216)*V(3205) -! B(11502) = dA(7217)/dV(3205) - B(11502) = RCT(7217)*V(5250) -! B(11503) = dA(7217)/dV(5250) - B(11503) = RCT(7217)*V(3205) -! B(11504) = dA(7218)/dV(1005) - B(11504) = RCT(7218)*V(5250) -! B(11505) = dA(7218)/dV(5250) - B(11505) = RCT(7218)*V(1005) -! B(11506) = dA(7219)/dV(2005) - B(11506) = RCT(7219) -! B(11507) = dA(7220)/dV(3991) - B(11507) = RCT(7220) -! B(11508) = dA(7221)/dV(3991) - B(11508) = RCT(7221)*V(5256) -! B(11509) = dA(7221)/dV(5256) - B(11509) = RCT(7221)*V(3991) -! B(11510) = dA(7222)/dV(3991) - B(11510) = RCT(7222)*V(5250) -! B(11511) = dA(7222)/dV(5250) - B(11511) = RCT(7222)*V(3991) -! B(11512) = dA(7223)/dV(355) - B(11512) = RCT(7223)*V(5250) -! B(11513) = dA(7223)/dV(5250) - B(11513) = RCT(7223)*V(355) -! B(11514) = dA(7224)/dV(393) - B(11514) = RCT(7224)*V(5250) -! B(11515) = dA(7224)/dV(5250) - B(11515) = RCT(7224)*V(393) -! B(11516) = dA(7225)/dV(1134) - B(11516) = RCT(7225) -! B(11517) = dA(7226)/dV(1134) - B(11517) = RCT(7226)*V(5250) -! B(11518) = dA(7226)/dV(5250) - B(11518) = RCT(7226)*V(1134) -! B(11519) = dA(7227)/dV(2684) - B(11519) = RCT(7227) -! B(11520) = dA(7228)/dV(2684) - B(11520) = RCT(7228)*V(5250) -! B(11521) = dA(7228)/dV(5250) - B(11521) = RCT(7228)*V(2684) -! B(11522) = dA(7229)/dV(4451) - B(11522) = RCT(7229)*V(5255) -! B(11523) = dA(7229)/dV(5255) - B(11523) = RCT(7229)*V(4451) -! B(11524) = dA(7230)/dV(4451) - B(11524) = RCT(7230)*V(5255) -! B(11525) = dA(7230)/dV(5255) - B(11525) = RCT(7230)*V(4451) -! B(11526) = dA(7231)/dV(4451) - B(11526) = RCT(7231)*V(5252) -! B(11527) = dA(7231)/dV(5252) - B(11527) = RCT(7231)*V(4451) -! B(11528) = dA(7232)/dV(4451) - B(11528) = RCT(7232)*V(5253) -! B(11529) = dA(7232)/dV(5253) - B(11529) = RCT(7232)*V(4451) -! B(11530) = dA(7233)/dV(4451) - B(11530) = RCT(7233)*V(5256) -! B(11531) = dA(7233)/dV(5256) - B(11531) = RCT(7233)*V(4451) -! B(11532) = dA(7234)/dV(4451) - B(11532) = RCT(7234) -! B(11533) = dA(7235)/dV(4354) - B(11533) = RCT(7235)*V(5255) -! B(11534) = dA(7235)/dV(5255) - B(11534) = RCT(7235)*V(4354) -! B(11535) = dA(7236)/dV(4354) - B(11535) = RCT(7236)*V(5252) -! B(11536) = dA(7236)/dV(5252) - B(11536) = RCT(7236)*V(4354) -! B(11537) = dA(7237)/dV(4354) - B(11537) = RCT(7237)*V(5256) -! B(11538) = dA(7237)/dV(5256) - B(11538) = RCT(7237)*V(4354) -! B(11539) = dA(7238)/dV(4354) - B(11539) = RCT(7238) -! B(11540) = dA(7239)/dV(4354) - B(11540) = RCT(7239) -! B(11541) = dA(7240)/dV(4354) - B(11541) = RCT(7240) -! B(11542) = dA(7241)/dV(4244) - B(11542) = RCT(7241)*V(5255) -! B(11543) = dA(7241)/dV(5255) - B(11543) = RCT(7241)*V(4244) -! B(11544) = dA(7242)/dV(4244) - B(11544) = RCT(7242)*V(5252) -! B(11545) = dA(7242)/dV(5252) - B(11545) = RCT(7242)*V(4244) -! B(11546) = dA(7243)/dV(4244) - B(11546) = RCT(7243)*V(5256) -! B(11547) = dA(7243)/dV(5256) - B(11547) = RCT(7243)*V(4244) -! B(11548) = dA(7244)/dV(4244) - B(11548) = RCT(7244) -! B(11549) = dA(7245)/dV(3784) - B(11549) = RCT(7245)*V(5255) -! B(11550) = dA(7245)/dV(5255) - B(11550) = RCT(7245)*V(3784) -! B(11551) = dA(7246)/dV(3784) - B(11551) = RCT(7246)*V(5252) -! B(11552) = dA(7246)/dV(5252) - B(11552) = RCT(7246)*V(3784) -! B(11553) = dA(7247)/dV(3784) - B(11553) = RCT(7247)*V(5256) -! B(11554) = dA(7247)/dV(5256) - B(11554) = RCT(7247)*V(3784) -! B(11555) = dA(7248)/dV(3784) - B(11555) = RCT(7248) -! B(11556) = dA(7249)/dV(1430) - B(11556) = RCT(7249)*V(5250) -! B(11557) = dA(7249)/dV(5250) - B(11557) = RCT(7249)*V(1430) -! B(11558) = dA(7250)/dV(1430) - B(11558) = RCT(7250) -! B(11559) = dA(7251)/dV(3054) - B(11559) = RCT(7251) -! B(11560) = dA(7252)/dV(2434) - B(11560) = RCT(7252)*V(5250) -! B(11561) = dA(7252)/dV(5250) - B(11561) = RCT(7252)*V(2434) -! B(11562) = dA(7253)/dV(2434) - B(11562) = RCT(7253) -! B(11563) = dA(7254)/dV(2815) - B(11563) = RCT(7254)*V(5250) -! B(11564) = dA(7254)/dV(5250) - B(11564) = RCT(7254)*V(2815) -! B(11565) = dA(7255)/dV(2815) - B(11565) = RCT(7255) -! B(11566) = dA(7256)/dV(2110) - B(11566) = RCT(7256)*V(5250) -! B(11567) = dA(7256)/dV(5250) - B(11567) = RCT(7256)*V(2110) -! B(11568) = dA(7257)/dV(2110) - B(11568) = RCT(7257) -! B(11569) = dA(7258)/dV(3020) - B(11569) = RCT(7258)*V(5250) -! B(11570) = dA(7258)/dV(5250) - B(11570) = RCT(7258)*V(3020) -! B(11571) = dA(7259)/dV(3020) - B(11571) = RCT(7259) -! B(11572) = dA(7260)/dV(833) - B(11572) = RCT(7260)*V(5250) -! B(11573) = dA(7260)/dV(5250) - B(11573) = RCT(7260)*V(833) -! B(11574) = dA(7261)/dV(833) - B(11574) = RCT(7261) -! B(11575) = dA(7262)/dV(3021) - B(11575) = RCT(7262)*V(5250) -! B(11576) = dA(7262)/dV(5250) - B(11576) = RCT(7262)*V(3021) -! B(11577) = dA(7263)/dV(3021) - B(11577) = RCT(7263) -! B(11578) = dA(7264)/dV(330) - B(11578) = RCT(7264)*V(5250) -! B(11579) = dA(7264)/dV(5250) - B(11579) = RCT(7264)*V(330) -! B(11580) = dA(7265)/dV(1015) - B(11580) = RCT(7265) -! B(11581) = dA(7266)/dV(1015) - B(11581) = RCT(7266)*V(5250) -! B(11582) = dA(7266)/dV(5250) - B(11582) = RCT(7266)*V(1015) -! B(11583) = dA(7267)/dV(2525) - B(11583) = RCT(7267) -! B(11584) = dA(7268)/dV(2525) - B(11584) = RCT(7268)*V(5250) -! B(11585) = dA(7268)/dV(5250) - B(11585) = RCT(7268)*V(2525) -! B(11586) = dA(7269)/dV(1097) - B(11586) = RCT(7269)*V(5250) -! B(11587) = dA(7269)/dV(5250) - B(11587) = RCT(7269)*V(1097) -! B(11588) = dA(7270)/dV(1097) - B(11588) = RCT(7270) -! B(11589) = dA(7271)/dV(1048) - B(11589) = RCT(7271)*V(5250) -! B(11590) = dA(7271)/dV(5250) - B(11590) = RCT(7271)*V(1048) -! B(11591) = dA(7272)/dV(1048) - B(11591) = RCT(7272) -! B(11592) = dA(7273)/dV(3056) - B(11592) = RCT(7273)*V(5250) -! B(11593) = dA(7273)/dV(5250) - B(11593) = RCT(7273)*V(3056) -! B(11594) = dA(7274)/dV(3056) - B(11594) = RCT(7274) -! B(11595) = dA(7275)/dV(2828) - B(11595) = RCT(7275)*V(5250) -! B(11596) = dA(7275)/dV(5250) - B(11596) = RCT(7275)*V(2828) -! B(11597) = dA(7276)/dV(2828) - B(11597) = RCT(7276) -! B(11598) = dA(7277)/dV(2828) - B(11598) = RCT(7277) -! B(11599) = dA(7278)/dV(1037) - B(11599) = RCT(7278) -! B(11600) = dA(7279)/dV(1037) - B(11600) = RCT(7279)*V(5250) -! B(11601) = dA(7279)/dV(5250) - B(11601) = RCT(7279)*V(1037) -! B(11602) = dA(7280)/dV(1100) - B(11602) = RCT(7280) -! B(11603) = dA(7281)/dV(1100) - B(11603) = RCT(7281)*V(5250) -! B(11604) = dA(7281)/dV(5250) - B(11604) = RCT(7281)*V(1100) -! B(11605) = dA(7282)/dV(2691) - B(11605) = RCT(7282) -! B(11606) = dA(7283)/dV(2691) - B(11606) = RCT(7283)*V(5250) -! B(11607) = dA(7283)/dV(5250) - B(11607) = RCT(7283)*V(2691) -! B(11608) = dA(7284)/dV(2127) - B(11608) = RCT(7284) -! B(11609) = dA(7285)/dV(2127) - B(11609) = RCT(7285)*V(5250) -! B(11610) = dA(7285)/dV(5250) - B(11610) = RCT(7285)*V(2127) -! B(11611) = dA(7286)/dV(2127) - B(11611) = RCT(7286)*V(5250) -! B(11612) = dA(7286)/dV(5250) - B(11612) = RCT(7286)*V(2127) -! B(11613) = dA(7287)/dV(1902) - B(11613) = RCT(7287) -! B(11614) = dA(7288)/dV(1902) - B(11614) = RCT(7288)*V(5250) -! B(11615) = dA(7288)/dV(5250) - B(11615) = RCT(7288)*V(1902) -! B(11616) = dA(7289)/dV(1720) - B(11616) = RCT(7289) -! B(11617) = dA(7290)/dV(4540) - B(11617) = RCT(7290) -! B(11618) = dA(7291)/dV(4540) - B(11618) = RCT(7291)*V(5256) -! B(11619) = dA(7291)/dV(5256) - B(11619) = RCT(7291)*V(4540) -! B(11620) = dA(7292)/dV(4540) - B(11620) = RCT(7292)*V(5250) -! B(11621) = dA(7292)/dV(5250) - B(11621) = RCT(7292)*V(4540) -! B(11622) = dA(7293)/dV(231) - B(11622) = RCT(7293)*V(5250) -! B(11623) = dA(7293)/dV(5250) - B(11623) = RCT(7293)*V(231) -! B(11624) = dA(7294)/dV(603) - B(11624) = RCT(7294) -! B(11625) = dA(7295)/dV(222) - B(11625) = 1.867e-11*V(5250) -! B(11626) = dA(7295)/dV(5250) - B(11626) = 1.867e-11*V(222) -! B(11627) = dA(7296)/dV(1436) - B(11627) = 1.513e-11*V(5250) -! B(11628) = dA(7296)/dV(5250) - B(11628) = 1.513e-11*V(1436) -! B(11629) = dA(7297)/dV(1436) - B(11629) = RCT(7297) -! B(11630) = dA(7298)/dV(2921) - B(11630) = 1.865e-11*V(5250) -! B(11631) = dA(7298)/dV(5250) - B(11631) = 1.865e-11*V(2921) -! B(11632) = dA(7299)/dV(2921) - B(11632) = RCT(7299) -! B(11633) = dA(7300)/dV(2410) - B(11633) = RCT(7300)*V(5250) -! B(11634) = dA(7300)/dV(5250) - B(11634) = RCT(7300)*V(2410) -! B(11635) = dA(7301)/dV(2410) - B(11635) = RCT(7301) -! B(11636) = dA(7302)/dV(2511) - B(11636) = RCT(7302)*V(5250) -! B(11637) = dA(7302)/dV(5250) - B(11637) = RCT(7302)*V(2511) -! B(11638) = dA(7303)/dV(2511) - B(11638) = RCT(7303) -! B(11639) = dA(7304)/dV(4983) - B(11639) = RCT(7304) -! B(11640) = dA(7305)/dV(4983) - B(11640) = RCT(7305)*V(5250) -! B(11641) = dA(7305)/dV(5250) - B(11641) = RCT(7305)*V(4983) -! B(11642) = dA(7306)/dV(5133) - B(11642) = RCT(7306)*V(5255) -! B(11643) = dA(7306)/dV(5255) - B(11643) = RCT(7306)*V(5133) -! B(11644) = dA(7307)/dV(5133) - B(11644) = RCT(7307)*V(5255) -! B(11645) = dA(7307)/dV(5255) - B(11645) = RCT(7307)*V(5133) -! B(11646) = dA(7308)/dV(5133) - B(11646) = RCT(7308)*V(5255) -! B(11647) = dA(7308)/dV(5255) - B(11647) = RCT(7308)*V(5133) -! B(11648) = dA(7309)/dV(5133) - B(11648) = RCT(7309)*V(5252) -! B(11649) = dA(7309)/dV(5252) - B(11649) = RCT(7309)*V(5133) -! B(11650) = dA(7310)/dV(5133) - B(11650) = RCT(7310)*V(5253) -! B(11651) = dA(7310)/dV(5253) - B(11651) = RCT(7310)*V(5133) -! B(11652) = dA(7311)/dV(5133) - B(11652) = RCT(7311)*V(5256) -! B(11653) = dA(7311)/dV(5256) - B(11653) = RCT(7311)*V(5133) -! B(11654) = dA(7312)/dV(5133) - B(11654) = RCT(7312) -! B(11655) = dA(7313)/dV(5133) - B(11655) = RCT(7313) -! B(11656) = dA(7314)/dV(3334) - B(11656) = RCT(7314)*V(5250) -! B(11657) = dA(7314)/dV(5250) - B(11657) = RCT(7314)*V(3334) -! B(11658) = dA(7315)/dV(3334) - B(11658) = RCT(7315)*V(5250) -! B(11659) = dA(7315)/dV(5250) - B(11659) = RCT(7315)*V(3334) -! B(11660) = dA(7316)/dV(3326) - B(11660) = RCT(7316)*V(5250) -! B(11661) = dA(7316)/dV(5250) - B(11661) = RCT(7316)*V(3326) -! B(11662) = dA(7317)/dV(3326) - B(11662) = RCT(7317)*V(5250) -! B(11663) = dA(7317)/dV(5250) - B(11663) = RCT(7317)*V(3326) -! B(11664) = dA(7318)/dV(3326) - B(11664) = RCT(7318) -! B(11665) = dA(7319)/dV(3059) - B(11665) = RCT(7319)*V(5250) -! B(11666) = dA(7319)/dV(5250) - B(11666) = RCT(7319)*V(3059) -! B(11667) = dA(7320)/dV(3059) - B(11667) = RCT(7320) -! B(11668) = dA(7321)/dV(2985) - B(11668) = RCT(7321)*V(5250) -! B(11669) = dA(7321)/dV(5250) - B(11669) = RCT(7321)*V(2985) -! B(11670) = dA(7322)/dV(2985) - B(11670) = RCT(7322)*V(5250) -! B(11671) = dA(7322)/dV(5250) - B(11671) = RCT(7322)*V(2985) -! B(11672) = dA(7323)/dV(3203) - B(11672) = RCT(7323)*V(5250) -! B(11673) = dA(7323)/dV(5250) - B(11673) = RCT(7323)*V(3203) -! B(11674) = dA(7324)/dV(3203) - B(11674) = RCT(7324)*V(5250) -! B(11675) = dA(7324)/dV(5250) - B(11675) = RCT(7324)*V(3203) -! B(11676) = dA(7325)/dV(3203) - B(11676) = RCT(7325) -! B(11677) = dA(7326)/dV(2240) - B(11677) = RCT(7326)*V(5250) -! B(11678) = dA(7326)/dV(5250) - B(11678) = RCT(7326)*V(2240) -! B(11679) = dA(7327)/dV(2240) - B(11679) = RCT(7327) -! B(11680) = dA(7328)/dV(2131) - B(11680) = RCT(7328)*V(5250) -! B(11681) = dA(7328)/dV(5250) - B(11681) = RCT(7328)*V(2131) -! B(11682) = dA(7329)/dV(2131) - B(11682) = RCT(7329) -! B(11683) = dA(7330)/dV(2887) - B(11683) = RCT(7330)*V(5250) -! B(11684) = dA(7330)/dV(5250) - B(11684) = RCT(7330)*V(2887) -! B(11685) = dA(7331)/dV(2887) - B(11685) = RCT(7331) -! B(11686) = dA(7332)/dV(3476) - B(11686) = RCT(7332) -! B(11687) = dA(7333)/dV(3476) - B(11687) = RCT(7333) -! B(11688) = dA(7334)/dV(3476) - B(11688) = RCT(7334)*V(5250) -! B(11689) = dA(7334)/dV(5250) - B(11689) = RCT(7334)*V(3476) -! B(11690) = dA(7335)/dV(2793) - B(11690) = RCT(7335) -! B(11691) = dA(7336)/dV(2793) - B(11691) = RCT(7336)*V(5250) -! B(11692) = dA(7336)/dV(5250) - B(11692) = RCT(7336)*V(2793) -! B(11693) = dA(7337)/dV(831) - B(11693) = RCT(7337) -! B(11694) = dA(7338)/dV(831) - B(11694) = RCT(7338)*V(5250) -! B(11695) = dA(7338)/dV(5250) - B(11695) = RCT(7338)*V(831) -! B(11696) = dA(7339)/dV(2172) - B(11696) = RCT(7339) -! B(11697) = dA(7340)/dV(2172) - B(11697) = RCT(7340)*V(5250) -! B(11698) = dA(7340)/dV(5250) - B(11698) = RCT(7340)*V(2172) -! B(11699) = dA(7341)/dV(2173) - B(11699) = RCT(7341) -! B(11700) = dA(7342)/dV(4248) - B(11700) = RCT(7342) -! B(11701) = dA(7343)/dV(4248) - B(11701) = RCT(7343)*V(5250) -! B(11702) = dA(7343)/dV(5250) - B(11702) = RCT(7343)*V(4248) -! B(11703) = dA(7344)/dV(4248) - B(11703) = RCT(7344)*V(5250) -! B(11704) = dA(7344)/dV(5250) - B(11704) = RCT(7344)*V(4248) -! B(11705) = dA(7345)/dV(1179) - B(11705) = RCT(7345)*V(5250) -! B(11706) = dA(7345)/dV(5250) - B(11706) = RCT(7345)*V(1179) -! B(11707) = dA(7346)/dV(2785) - B(11707) = RCT(7346) -! B(11708) = dA(7347)/dV(2785) - B(11708) = RCT(7347)*V(5250) -! B(11709) = dA(7347)/dV(5250) - B(11709) = RCT(7347)*V(2785) -! B(11710) = dA(7348)/dV(2785) - B(11710) = RCT(7348)*V(5250) -! B(11711) = dA(7348)/dV(5250) - B(11711) = RCT(7348)*V(2785) -! B(11712) = dA(7349)/dV(2519) - B(11712) = RCT(7349) -! B(11713) = dA(7350)/dV(2519) - B(11713) = RCT(7350)*V(5250) -! B(11714) = dA(7350)/dV(5250) - B(11714) = RCT(7350)*V(2519) -! B(11715) = dA(7351)/dV(1667) - B(11715) = RCT(7351) -! B(11716) = dA(7352)/dV(4261) - B(11716) = RCT(7352) -! B(11717) = dA(7353)/dV(4261) - B(11717) = RCT(7353)*V(5256) -! B(11718) = dA(7353)/dV(5256) - B(11718) = RCT(7353)*V(4261) -! B(11719) = dA(7354)/dV(4261) - B(11719) = RCT(7354)*V(5250) -! B(11720) = dA(7354)/dV(5250) - B(11720) = RCT(7354)*V(4261) -! B(11721) = dA(7355)/dV(2871) - B(11721) = RCT(7355) -! B(11722) = dA(7356)/dV(2871) - B(11722) = RCT(7356)*V(5250) -! B(11723) = dA(7356)/dV(5250) - B(11723) = RCT(7356)*V(2871) -! B(11724) = dA(7357)/dV(2871) - B(11724) = RCT(7357)*V(5250) -! B(11725) = dA(7357)/dV(5250) - B(11725) = RCT(7357)*V(2871) -! B(11726) = dA(7358)/dV(2761) - B(11726) = RCT(7358) -! B(11727) = dA(7359)/dV(2761) - B(11727) = RCT(7359)*V(5250) -! B(11728) = dA(7359)/dV(5250) - B(11728) = RCT(7359)*V(2761) -! B(11729) = dA(7360)/dV(1616) - B(11729) = RCT(7360) -! B(11730) = dA(7361)/dV(546) - B(11730) = RCT(7361)*V(5250) -! B(11731) = dA(7361)/dV(5250) - B(11731) = RCT(7361)*V(546) -! B(11732) = dA(7362)/dV(546) - B(11732) = RCT(7362)*V(5250) -! B(11733) = dA(7362)/dV(5250) - B(11733) = RCT(7362)*V(546) -! B(11734) = dA(7363)/dV(3923) - B(11734) = RCT(7363) -! B(11735) = dA(7364)/dV(3923) - B(11735) = RCT(7364)*V(5256) -! B(11736) = dA(7364)/dV(5256) - B(11736) = RCT(7364)*V(3923) -! B(11737) = dA(7365)/dV(3923) - B(11737) = RCT(7365)*V(5250) -! B(11738) = dA(7365)/dV(5250) - B(11738) = RCT(7365)*V(3923) -! B(11739) = dA(7366)/dV(889) - B(11739) = RCT(7366)*V(5250) -! B(11740) = dA(7366)/dV(5250) - B(11740) = RCT(7366)*V(889) -! B(11741) = dA(7367)/dV(889) - B(11741) = RCT(7367) -! B(11742) = dA(7368)/dV(3260) - B(11742) = RCT(7368) -! B(11743) = dA(7369)/dV(3260) - B(11743) = RCT(7369)*V(5250) -! B(11744) = dA(7369)/dV(5250) - B(11744) = RCT(7369)*V(3260) -! B(11745) = dA(7370)/dV(1165) - B(11745) = RCT(7370) -! B(11746) = dA(7371)/dV(1165) - B(11746) = RCT(7371)*V(5250) -! B(11747) = dA(7371)/dV(5250) - B(11747) = RCT(7371)*V(1165) -! B(11748) = dA(7372)/dV(2509) - B(11748) = RCT(7372) -! B(11749) = dA(7373)/dV(2509) - B(11749) = RCT(7373)*V(5250) -! B(11750) = dA(7373)/dV(5250) - B(11750) = RCT(7373)*V(2509) -! B(11751) = dA(7374)/dV(1755) - B(11751) = RCT(7374) -! B(11752) = dA(7375)/dV(1521) - B(11752) = RCT(7375)*V(5250) -! B(11753) = dA(7375)/dV(5250) - B(11753) = RCT(7375)*V(1521) -! B(11754) = dA(7376)/dV(5140) - B(11754) = RCT(7376) -! B(11755) = dA(7377)/dV(5140) - B(11755) = RCT(7377) -! B(11756) = dA(7378)/dV(5140) - B(11756) = RCT(7378)*V(5250) -! B(11757) = dA(7378)/dV(5250) - B(11757) = RCT(7378)*V(5140) -! B(11758) = dA(7379)/dV(5140) - B(11758) = RCT(7379)*V(5250) -! B(11759) = dA(7379)/dV(5250) - B(11759) = RCT(7379)*V(5140) -! B(11760) = dA(7380)/dV(1290) - B(11760) = RCT(7380) -! B(11761) = dA(7381)/dV(1290) - B(11761) = RCT(7381)*V(5250) -! B(11762) = dA(7381)/dV(5250) - B(11762) = RCT(7381)*V(1290) -! B(11763) = dA(7382)/dV(2841) - B(11763) = RCT(7382)*V(5250) -! B(11764) = dA(7382)/dV(5250) - B(11764) = RCT(7382)*V(2841) -! B(11765) = dA(7383)/dV(2841) - B(11765) = RCT(7383) -! B(11766) = dA(7384)/dV(836) - B(11766) = RCT(7384) -! B(11767) = dA(7385)/dV(836) - B(11767) = RCT(7385)*V(5250) -! B(11768) = dA(7385)/dV(5250) - B(11768) = RCT(7385)*V(836) -! B(11769) = dA(7386)/dV(2189) - B(11769) = RCT(7386) -! B(11770) = dA(7387)/dV(2189) - B(11770) = RCT(7387)*V(5250) -! B(11771) = dA(7387)/dV(5250) - B(11771) = RCT(7387)*V(2189) -! B(11772) = dA(7388)/dV(2030) - B(11772) = RCT(7388) -! B(11773) = dA(7389)/dV(437) - B(11773) = RCT(7389)*V(5250) -! B(11774) = dA(7389)/dV(5250) - B(11774) = RCT(7389)*V(437) -! B(11775) = dA(7390)/dV(3046) - B(11775) = RCT(7390) -! B(11776) = dA(7391)/dV(3046) - B(11776) = RCT(7391)*V(5250) -! B(11777) = dA(7391)/dV(5250) - B(11777) = RCT(7391)*V(3046) -! B(11778) = dA(7392)/dV(3046) - B(11778) = RCT(7392)*V(5250) -! B(11779) = dA(7392)/dV(5250) - B(11779) = RCT(7392)*V(3046) -! B(11780) = dA(7393)/dV(2835) - B(11780) = RCT(7393) -! B(11781) = dA(7394)/dV(2835) - B(11781) = RCT(7394)*V(5250) -! B(11782) = dA(7394)/dV(5250) - B(11782) = RCT(7394)*V(2835) -! B(11783) = dA(7395)/dV(1563) - B(11783) = RCT(7395) -! B(11784) = dA(7396)/dV(5115) - B(11784) = RCT(7396) -! B(11785) = dA(7397)/dV(5115) - B(11785) = RCT(7397)*V(5256) -! B(11786) = dA(7397)/dV(5256) - B(11786) = RCT(7397)*V(5115) -! B(11787) = dA(7398)/dV(5115) - B(11787) = RCT(7398)*V(5250) -! B(11788) = dA(7398)/dV(5250) - B(11788) = RCT(7398)*V(5115) -! B(11789) = dA(7399)/dV(5115) - B(11789) = RCT(7399)*V(5250) -! B(11790) = dA(7399)/dV(5250) - B(11790) = RCT(7399)*V(5115) -! B(11791) = dA(7400)/dV(1506) - B(11791) = RCT(7400) -! B(11792) = dA(7401)/dV(1506) - B(11792) = RCT(7401)*V(5250) -! B(11793) = dA(7401)/dV(5250) - B(11793) = RCT(7401)*V(1506) -! B(11794) = dA(7402)/dV(1798) - B(11794) = RCT(7402) -! B(11795) = dA(7403)/dV(1798) - B(11795) = RCT(7403)*V(5250) -! B(11796) = dA(7403)/dV(5250) - B(11796) = RCT(7403)*V(1798) -! B(11797) = dA(7404)/dV(1799) - B(11797) = RCT(7404) -! B(11798) = dA(7405)/dV(5010) - B(11798) = RCT(7405) -! B(11799) = dA(7406)/dV(5010) - B(11799) = RCT(7406)*V(5250) -! B(11800) = dA(7406)/dV(5250) - B(11800) = RCT(7406)*V(5010) -! B(11801) = dA(7407)/dV(5010) - B(11801) = RCT(7407)*V(5250) -! B(11802) = dA(7407)/dV(5250) - B(11802) = RCT(7407)*V(5010) -! B(11803) = dA(7408)/dV(435) - B(11803) = RCT(7408)*V(5250) -! B(11804) = dA(7408)/dV(5250) - B(11804) = RCT(7408)*V(435) -! B(11805) = dA(7409)/dV(876) - B(11805) = RCT(7409) -! B(11806) = dA(7410)/dV(876) - B(11806) = RCT(7410)*V(5250) -! B(11807) = dA(7410)/dV(5250) - B(11807) = RCT(7410)*V(876) -! B(11808) = dA(7411)/dV(2755) - B(11808) = RCT(7411) -! B(11809) = dA(7412)/dV(2755) - B(11809) = RCT(7412)*V(5250) -! B(11810) = dA(7412)/dV(5250) - B(11810) = RCT(7412)*V(2755) -! B(11811) = dA(7413)/dV(2543) - B(11811) = RCT(7413) -! B(11812) = dA(7414)/dV(2543) - B(11812) = RCT(7414)*V(5250) -! B(11813) = dA(7414)/dV(5250) - B(11813) = RCT(7414)*V(2543) -! B(11814) = dA(7415)/dV(2543) - B(11814) = RCT(7415)*V(5250) -! B(11815) = dA(7415)/dV(5250) - B(11815) = RCT(7415)*V(2543) -! B(11816) = dA(7416)/dV(2653) - B(11816) = RCT(7416) -! B(11817) = dA(7417)/dV(2653) - B(11817) = RCT(7417)*V(5250) -! B(11818) = dA(7417)/dV(5250) - B(11818) = RCT(7417)*V(2653) -! B(11819) = dA(7418)/dV(1564) - B(11819) = RCT(7418) -! B(11820) = dA(7419)/dV(4975) - B(11820) = RCT(7419) -! B(11821) = dA(7420)/dV(4975) - B(11821) = RCT(7420)*V(5256) -! B(11822) = dA(7420)/dV(5256) - B(11822) = RCT(7420)*V(4975) -! B(11823) = dA(7421)/dV(4975) - B(11823) = RCT(7421)*V(5250) -! B(11824) = dA(7421)/dV(5250) - B(11824) = RCT(7421)*V(4975) -! B(11825) = dA(7422)/dV(4975) - B(11825) = RCT(7422)*V(5250) -! B(11826) = dA(7422)/dV(5250) - B(11826) = RCT(7422)*V(4975) -! B(11827) = dA(7423)/dV(2244) - B(11827) = RCT(7423) -! B(11828) = dA(7424)/dV(2244) - B(11828) = RCT(7424) -! B(11829) = dA(7425)/dV(2244) - B(11829) = RCT(7425)*V(5250) -! B(11830) = dA(7425)/dV(5250) - B(11830) = RCT(7425)*V(2244) -! B(11831) = dA(7426)/dV(1654) - B(11831) = RCT(7426) -! B(11832) = dA(7427)/dV(1653) - B(11832) = RCT(7427) -! B(11833) = dA(7428)/dV(1653) - B(11833) = RCT(7428)*V(5250) -! B(11834) = dA(7428)/dV(5250) - B(11834) = RCT(7428)*V(1653) -! B(11835) = dA(7429)/dV(1262) - B(11835) = RCT(7429) -! B(11836) = dA(7430)/dV(1262) - B(11836) = RCT(7430)*V(5250) -! B(11837) = dA(7430)/dV(5250) - B(11837) = RCT(7430)*V(1262) -! B(11838) = dA(7431)/dV(1980) - B(11838) = RCT(7431) -! B(11839) = dA(7432)/dV(1980) - B(11839) = RCT(7432)*V(5250) -! B(11840) = dA(7432)/dV(5250) - B(11840) = RCT(7432)*V(1980) -! B(11841) = dA(7433)/dV(195) - B(11841) = RCT(7433) -! B(11842) = dA(7434)/dV(3857) - B(11842) = RCT(7434) -! B(11843) = dA(7435)/dV(3857) - B(11843) = RCT(7435)*V(5256) -! B(11844) = dA(7435)/dV(5256) - B(11844) = RCT(7435)*V(3857) -! B(11845) = dA(7436)/dV(3857) - B(11845) = RCT(7436)*V(5250) -! B(11846) = dA(7436)/dV(5250) - B(11846) = RCT(7436)*V(3857) -! B(11847) = dA(7437)/dV(1693) - B(11847) = RCT(7437) -! B(11848) = dA(7438)/dV(1693) - B(11848) = RCT(7438)*V(5250) -! B(11849) = dA(7438)/dV(5250) - B(11849) = RCT(7438)*V(1693) -! B(11850) = dA(7439)/dV(2233) - B(11850) = RCT(7439) -! B(11851) = dA(7440)/dV(2233) - B(11851) = RCT(7440)*V(5250) -! B(11852) = dA(7440)/dV(5250) - B(11852) = RCT(7440)*V(2233) -! B(11853) = dA(7441)/dV(2233) - B(11853) = RCT(7441)*V(5250) -! B(11854) = dA(7441)/dV(5250) - B(11854) = RCT(7441)*V(2233) -! B(11855) = dA(7442)/dV(2182) - B(11855) = RCT(7442) -! B(11856) = dA(7443)/dV(2182) - B(11856) = RCT(7443)*V(5250) -! B(11857) = dA(7443)/dV(5250) - B(11857) = RCT(7443)*V(2182) -! B(11858) = dA(7444)/dV(1692) - B(11858) = RCT(7444) -! B(11859) = dA(7445)/dV(4110) - B(11859) = RCT(7445) -! B(11860) = dA(7446)/dV(4110) - B(11860) = RCT(7446)*V(5256) -! B(11861) = dA(7446)/dV(5256) - B(11861) = RCT(7446)*V(4110) -! B(11862) = dA(7447)/dV(4110) - B(11862) = RCT(7447)*V(5250) -! B(11863) = dA(7447)/dV(5250) - B(11863) = RCT(7447)*V(4110) -! B(11864) = dA(7448)/dV(4110) - B(11864) = RCT(7448)*V(5250) -! B(11865) = dA(7448)/dV(5250) - B(11865) = RCT(7448)*V(4110) -! B(11866) = dA(7449)/dV(425) - B(11866) = RCT(7449)*V(5250) -! B(11867) = dA(7449)/dV(5250) - B(11867) = RCT(7449)*V(425) -! B(11868) = dA(7450)/dV(1340) - B(11868) = RCT(7450) -! B(11869) = dA(7451)/dV(1340) - B(11869) = RCT(7451)*V(5250) -! B(11870) = dA(7451)/dV(5250) - B(11870) = RCT(7451)*V(1340) -! B(11871) = dA(7452)/dV(2555) - B(11871) = RCT(7452) -! B(11872) = dA(7453)/dV(2555) - B(11872) = RCT(7453)*V(5250) -! B(11873) = dA(7453)/dV(5250) - B(11873) = RCT(7453)*V(2555) -! B(11874) = dA(7454)/dV(1838) - B(11874) = RCT(7454) -! B(11875) = dA(7455)/dV(5064) - B(11875) = RCT(7455) -! B(11876) = dA(7456)/dV(5064) - B(11876) = RCT(7456)*V(5250) -! B(11877) = dA(7456)/dV(5250) - B(11877) = RCT(7456)*V(5064) -! B(11878) = dA(7457)/dV(5064) - B(11878) = RCT(7457)*V(5250) -! B(11879) = dA(7457)/dV(5250) - B(11879) = RCT(7457)*V(5064) -! B(11880) = dA(7458)/dV(488) - B(11880) = RCT(7458)*V(5250) -! B(11881) = dA(7458)/dV(5250) - B(11881) = RCT(7458)*V(488) -! B(11882) = dA(7459)/dV(1180) - B(11882) = RCT(7459) -! B(11883) = dA(7460)/dV(1180) - B(11883) = RCT(7460)*V(5250) -! B(11884) = dA(7460)/dV(5250) - B(11884) = RCT(7460)*V(1180) -! B(11885) = dA(7461)/dV(3024) - B(11885) = RCT(7461) -! B(11886) = dA(7462)/dV(3024) - B(11886) = RCT(7462)*V(5250) -! B(11887) = dA(7462)/dV(5250) - B(11887) = RCT(7462)*V(3024) -! B(11888) = dA(7463)/dV(2775) - B(11888) = RCT(7463) -! B(11889) = dA(7464)/dV(2775) - B(11889) = RCT(7464)*V(5250) -! B(11890) = dA(7464)/dV(5250) - B(11890) = RCT(7464)*V(2775) -! B(11891) = dA(7465)/dV(2775) - B(11891) = RCT(7465)*V(5250) -! B(11892) = dA(7465)/dV(5250) - B(11892) = RCT(7465)*V(2775) -! B(11893) = dA(7466)/dV(2934) - B(11893) = RCT(7466) -! B(11894) = dA(7467)/dV(2934) - B(11894) = RCT(7467)*V(5250) -! B(11895) = dA(7467)/dV(5250) - B(11895) = RCT(7467)*V(2934) -! B(11896) = dA(7468)/dV(1721) - B(11896) = RCT(7468) -! B(11897) = dA(7469)/dV(5063) - B(11897) = RCT(7469) -! B(11898) = dA(7470)/dV(5063) - B(11898) = RCT(7470)*V(5256) -! B(11899) = dA(7470)/dV(5256) - B(11899) = RCT(7470)*V(5063) -! B(11900) = dA(7471)/dV(5063) - B(11900) = RCT(7471)*V(5250) -! B(11901) = dA(7471)/dV(5250) - B(11901) = RCT(7471)*V(5063) -! B(11902) = dA(7472)/dV(5063) - B(11902) = RCT(7472)*V(5250) -! B(11903) = dA(7472)/dV(5250) - B(11903) = RCT(7472)*V(5063) -! B(11904) = dA(7473)/dV(1281) - B(11904) = RCT(7473) -! B(11905) = dA(7474)/dV(1281) - B(11905) = RCT(7474)*V(5250) -! B(11906) = dA(7474)/dV(5250) - B(11906) = RCT(7474)*V(1281) -! B(11907) = dA(7475)/dV(2045) - B(11907) = RCT(7475) -! B(11908) = dA(7476)/dV(2045) - B(11908) = RCT(7476)*V(5250) -! B(11909) = dA(7476)/dV(5250) - B(11909) = RCT(7476)*V(2045) -! B(11910) = dA(7477)/dV(2889) - B(11910) = RCT(7477) -! B(11911) = dA(7478)/dV(2889) - B(11911) = RCT(7478) -! B(11912) = dA(7479)/dV(3384) - B(11912) = RCT(7479) -! B(11913) = dA(7480)/dV(3384) - B(11913) = RCT(7480)*V(5250) -! B(11914) = dA(7480)/dV(5250) - B(11914) = RCT(7480)*V(3384) -! B(11915) = dA(7481)/dV(220) - B(11915) = RCT(7481)*V(5250) -! B(11916) = dA(7481)/dV(5250) - B(11916) = RCT(7481)*V(220) -! B(11917) = dA(7482)/dV(1514) - B(11917) = RCT(7482) -! B(11918) = dA(7483)/dV(1514) - B(11918) = RCT(7483)*V(5250) -! B(11919) = dA(7483)/dV(5250) - B(11919) = RCT(7483)*V(1514) -! B(11920) = dA(7484)/dV(1714) - B(11920) = RCT(7484) -! B(11921) = dA(7485)/dV(1694) - B(11921) = RCT(7485) -! B(11922) = dA(7486)/dV(1694) - B(11922) = RCT(7486)*V(5250) -! B(11923) = dA(7486)/dV(5250) - B(11923) = RCT(7486)*V(1694) -! B(11924) = dA(7487)/dV(3038) - B(11924) = RCT(7487) -! B(11925) = dA(7488)/dV(3038) - B(11925) = RCT(7488)*V(5250) -! B(11926) = dA(7488)/dV(5250) - B(11926) = RCT(7488)*V(3038) -! B(11927) = dA(7489)/dV(3038) - B(11927) = RCT(7489)*V(5250) -! B(11928) = dA(7489)/dV(5250) - B(11928) = RCT(7489)*V(3038) -! B(11929) = dA(7490)/dV(2513) - B(11929) = RCT(7490) -! B(11930) = dA(7491)/dV(2513) - B(11930) = RCT(7491)*V(5250) -! B(11931) = dA(7491)/dV(5250) - B(11931) = RCT(7491)*V(2513) -! B(11932) = dA(7492)/dV(1663) - B(11932) = RCT(7492) -! B(11933) = dA(7493)/dV(4313) - B(11933) = RCT(7493) -! B(11934) = dA(7494)/dV(4313) - B(11934) = RCT(7494)*V(5256) -! B(11935) = dA(7494)/dV(5256) - B(11935) = RCT(7494)*V(4313) -! B(11936) = dA(7495)/dV(4313) - B(11936) = RCT(7495)*V(5250) -! B(11937) = dA(7495)/dV(5250) - B(11937) = RCT(7495)*V(4313) -! B(11938) = dA(7496)/dV(2259) - B(11938) = RCT(7496)*V(5250) -! B(11939) = dA(7496)/dV(5250) - B(11939) = RCT(7496)*V(2259) -! B(11940) = dA(7497)/dV(2259) - B(11940) = RCT(7497)*V(5250) -! B(11941) = dA(7497)/dV(5250) - B(11941) = RCT(7497)*V(2259) -! B(11942) = dA(7498)/dV(853) - B(11942) = RCT(7498) -! B(11943) = dA(7499)/dV(853) - B(11943) = RCT(7499)*V(5250) -! B(11944) = dA(7499)/dV(5250) - B(11944) = RCT(7499)*V(853) -! B(11945) = dA(7500)/dV(3026) - B(11945) = RCT(7500) -! B(11946) = dA(7501)/dV(3026) - B(11946) = RCT(7501)*V(5250) -! B(11947) = dA(7501)/dV(5250) - B(11947) = RCT(7501)*V(3026) -! B(11948) = dA(7502)/dV(2633) - B(11948) = RCT(7502) -! B(11949) = dA(7503)/dV(2633) - B(11949) = RCT(7503)*V(5250) -! B(11950) = dA(7503)/dV(5250) - B(11950) = RCT(7503)*V(2633) -! B(11951) = dA(7504)/dV(2633) - B(11951) = RCT(7504)*V(5250) -! B(11952) = dA(7504)/dV(5250) - B(11952) = RCT(7504)*V(2633) -! B(11953) = dA(7505)/dV(2713) - B(11953) = RCT(7505) -! B(11954) = dA(7506)/dV(2713) - B(11954) = RCT(7506)*V(5250) -! B(11955) = dA(7506)/dV(5250) - B(11955) = RCT(7506)*V(2713) -! B(11956) = dA(7507)/dV(1627) - B(11956) = RCT(7507) -! B(11957) = dA(7508)/dV(4834) - B(11957) = RCT(7508) -! B(11958) = dA(7509)/dV(4834) - B(11958) = RCT(7509)*V(5256) -! B(11959) = dA(7509)/dV(5256) - B(11959) = RCT(7509)*V(4834) -! B(11960) = dA(7510)/dV(4834) - B(11960) = RCT(7510)*V(5250) -! B(11961) = dA(7510)/dV(5250) - B(11961) = RCT(7510)*V(4834) -! B(11962) = dA(7511)/dV(291) - B(11962) = RCT(7511)*V(5250) -! B(11963) = dA(7511)/dV(5250) - B(11963) = RCT(7511)*V(291) -! B(11964) = dA(7512)/dV(828) - B(11964) = RCT(7512) -! B(11965) = dA(7513)/dV(828) - B(11965) = RCT(7513)*V(5250) -! B(11966) = dA(7513)/dV(5250) - B(11966) = RCT(7513)*V(828) -! B(11967) = dA(7514)/dV(3312) - B(11967) = RCT(7514) -! B(11968) = dA(7515)/dV(3312) - B(11968) = RCT(7515)*V(5250) -! B(11969) = dA(7515)/dV(5250) - B(11969) = RCT(7515)*V(3312) -! B(11970) = dA(7516)/dV(1992) - B(11970) = RCT(7516) -! B(11971) = dA(7517)/dV(1992) - B(11971) = RCT(7517)*V(5250) -! B(11972) = dA(7517)/dV(5250) - B(11972) = RCT(7517)*V(1992) -! B(11973) = dA(7518)/dV(1992) - B(11973) = RCT(7518)*V(5250) -! B(11974) = dA(7518)/dV(5250) - B(11974) = RCT(7518)*V(1992) -! B(11975) = dA(7519)/dV(2218) - B(11975) = RCT(7519) -! B(11976) = dA(7520)/dV(2218) - B(11976) = RCT(7520)*V(5250) -! B(11977) = dA(7520)/dV(5250) - B(11977) = RCT(7520)*V(2218) -! B(11978) = dA(7521)/dV(1559) - B(11978) = RCT(7521) -! B(11979) = dA(7522)/dV(333) - B(11979) = RCT(7522)*V(5250) -! B(11980) = dA(7522)/dV(5250) - B(11980) = RCT(7522)*V(333) -! B(11981) = dA(7523)/dV(3986) - B(11981) = RCT(7523) -! B(11982) = dA(7524)/dV(3986) - B(11982) = RCT(7524)*V(5256) -! B(11983) = dA(7524)/dV(5256) - B(11983) = RCT(7524)*V(3986) -! B(11984) = dA(7525)/dV(3986) - B(11984) = RCT(7525)*V(5250) -! B(11985) = dA(7525)/dV(5250) - B(11985) = RCT(7525)*V(3986) -! B(11986) = dA(7526)/dV(379) - B(11986) = RCT(7526)*V(5250) -! B(11987) = dA(7526)/dV(5250) - B(11987) = RCT(7526)*V(379) -! B(11988) = dA(7527)/dV(832) - B(11988) = RCT(7527) -! B(11989) = dA(7528)/dV(832) - B(11989) = RCT(7528)*V(5250) -! B(11990) = dA(7528)/dV(5250) - B(11990) = RCT(7528)*V(832) -! B(11991) = dA(7529)/dV(3023) - B(11991) = RCT(7529) -! B(11992) = dA(7530)/dV(3023) - B(11992) = RCT(7530)*V(5250) -! B(11993) = dA(7530)/dV(5250) - B(11993) = RCT(7530)*V(3023) -! B(11994) = dA(7531)/dV(1375) - B(11994) = RCT(7531) -! B(11995) = dA(7532)/dV(1375) - B(11995) = RCT(7532)*V(5250) -! B(11996) = dA(7532)/dV(5250) - B(11996) = RCT(7532)*V(1375) -! B(11997) = dA(7533)/dV(2917) - B(11997) = RCT(7533) -! B(11998) = dA(7534)/dV(2917) - B(11998) = RCT(7534)*V(5250) -! B(11999) = dA(7534)/dV(5250) - B(11999) = RCT(7534)*V(2917) -! B(12000) = dA(7535)/dV(1945) - B(12000) = RCT(7535) -! B(12001) = dA(7536)/dV(314) - B(12001) = RCT(7536)*V(5250) -! B(12002) = dA(7536)/dV(5250) - B(12002) = RCT(7536)*V(314) -! B(12003) = dA(7537)/dV(3382) - B(12003) = RCT(7537) -! B(12004) = dA(7538)/dV(3382) - B(12004) = RCT(7538)*V(5250) -! B(12005) = dA(7538)/dV(5250) - B(12005) = RCT(7538)*V(3382) -! B(12006) = dA(7539)/dV(1075) - B(12006) = RCT(7539) -! B(12007) = dA(7540)/dV(1075) - B(12007) = RCT(7540)*V(5250) -! B(12008) = dA(7540)/dV(5250) - B(12008) = RCT(7540)*V(1075) -! B(12009) = dA(7541)/dV(117) - B(12009) = RCT(7541) -! B(12010) = dA(7542)/dV(1326) - B(12010) = RCT(7542) -! B(12011) = dA(7543)/dV(1326) - B(12011) = RCT(7543)*V(5250) -! B(12012) = dA(7543)/dV(5250) - B(12012) = RCT(7543)*V(1326) -! B(12013) = dA(7544)/dV(3212) - B(12013) = RCT(7544) -! B(12014) = dA(7545)/dV(3212) - B(12014) = RCT(7545)*V(5250) -! B(12015) = dA(7545)/dV(5250) - B(12015) = RCT(7545)*V(3212) -! B(12016) = dA(7546)/dV(2361) - B(12016) = RCT(7546) -! B(12017) = dA(7547)/dV(895) - B(12017) = RCT(7547)*V(5250) -! B(12018) = dA(7547)/dV(5250) - B(12018) = RCT(7547)*V(895) -! B(12019) = dA(7548)/dV(1282) - B(12019) = RCT(7548) -! B(12020) = dA(7549)/dV(1282) - B(12020) = RCT(7549)*V(5250) -! B(12021) = dA(7549)/dV(5250) - B(12021) = RCT(7549)*V(1282) -! B(12022) = dA(7550)/dV(91) - B(12022) = RCT(7550) -! B(12023) = dA(7551)/dV(1010) - B(12023) = RCT(7551) -! B(12024) = dA(7552)/dV(1010) - B(12024) = RCT(7552)*V(5250) -! B(12025) = dA(7552)/dV(5250) - B(12025) = RCT(7552)*V(1010) -! B(12026) = dA(7553)/dV(2291) - B(12026) = RCT(7553) -! B(12027) = dA(7554)/dV(2291) - B(12027) = RCT(7554)*V(5250) -! B(12028) = dA(7554)/dV(5250) - B(12028) = RCT(7554)*V(2291) -! B(12029) = dA(7555)/dV(3393) - B(12029) = RCT(7555) -! B(12030) = dA(7556)/dV(3393) - B(12030) = RCT(7556) -! B(12031) = dA(7557)/dV(3747) - B(12031) = RCT(7557) -! B(12032) = dA(7558)/dV(3747) - B(12032) = RCT(7558)*V(5250) -! B(12033) = dA(7558)/dV(5250) - B(12033) = RCT(7558)*V(3747) -! B(12034) = dA(7559)/dV(3747) - B(12034) = RCT(7559)*V(5250) -! B(12035) = dA(7559)/dV(5250) - B(12035) = RCT(7559)*V(3747) -! B(12036) = dA(7560)/dV(964) - B(12036) = RCT(7560) -! B(12037) = dA(7561)/dV(964) - B(12037) = RCT(7561)*V(5250) -! B(12038) = dA(7561)/dV(5250) - B(12038) = RCT(7561)*V(964) -! B(12039) = dA(7562)/dV(2049) - B(12039) = RCT(7562) -! B(12040) = dA(7563)/dV(2049) - B(12040) = RCT(7563)*V(5250) -! B(12041) = dA(7563)/dV(5250) - B(12041) = RCT(7563)*V(2049) -! B(12042) = dA(7564)/dV(2050) - B(12042) = RCT(7564) -! B(12043) = dA(7565)/dV(675) - B(12043) = RCT(7565)*V(5250) -! B(12044) = dA(7565)/dV(5250) - B(12044) = RCT(7565)*V(675) -! B(12045) = dA(7566)/dV(675) - B(12045) = RCT(7566)*V(5250) -! B(12046) = dA(7566)/dV(5250) - B(12046) = RCT(7566)*V(675) -! B(12047) = dA(7567)/dV(3822) - B(12047) = RCT(7567)*V(5250) -! B(12048) = dA(7567)/dV(5250) - B(12048) = RCT(7567)*V(3822) -! B(12049) = dA(7568)/dV(3822) - B(12049) = RCT(7568) -! B(12050) = dA(7569)/dV(1032) - B(12050) = RCT(7569) -! B(12051) = dA(7570)/dV(1032) - B(12051) = RCT(7570)*V(5250) -! B(12052) = dA(7570)/dV(5250) - B(12052) = RCT(7570)*V(1032) -! B(12053) = dA(7571)/dV(132) - B(12053) = RCT(7571) -! B(12054) = dA(7572)/dV(1382) - B(12054) = RCT(7572)*V(5250) -! B(12055) = dA(7572)/dV(5250) - B(12055) = RCT(7572)*V(1382) -! B(12056) = dA(7573)/dV(1382) - B(12056) = RCT(7573)*V(5250) -! B(12057) = dA(7573)/dV(5250) - B(12057) = RCT(7573)*V(1382) -! B(12058) = dA(7574)/dV(2202) - B(12058) = RCT(7574) -! B(12059) = dA(7575)/dV(2202) - B(12059) = RCT(7575)*V(5250) -! B(12060) = dA(7575)/dV(5250) - B(12060) = RCT(7575)*V(2202) -! B(12061) = dA(7576)/dV(727) - B(12061) = RCT(7576) -! B(12062) = dA(7577)/dV(223) - B(12062) = RCT(7577)*V(5250) -! B(12063) = dA(7577)/dV(5250) - B(12063) = RCT(7577)*V(223) -! B(12064) = dA(7578)/dV(3946) - B(12064) = RCT(7578) -! B(12065) = dA(7579)/dV(3946) - B(12065) = RCT(7579)*V(5256) -! B(12066) = dA(7579)/dV(5256) - B(12066) = RCT(7579)*V(3946) -! B(12067) = dA(7580)/dV(3946) - B(12067) = RCT(7580)*V(5250) -! B(12068) = dA(7580)/dV(5250) - B(12068) = RCT(7580)*V(3946) -! B(12069) = dA(7581)/dV(1168) - B(12069) = RCT(7581) -! B(12070) = dA(7582)/dV(1168) - B(12070) = RCT(7582)*V(5250) -! B(12071) = dA(7582)/dV(5250) - B(12071) = RCT(7582)*V(1168) -! B(12072) = dA(7583)/dV(2299) - B(12072) = RCT(7583) -! B(12073) = dA(7584)/dV(2299) - B(12073) = RCT(7584)*V(5250) -! B(12074) = dA(7584)/dV(5250) - B(12074) = RCT(7584)*V(2299) -! B(12075) = dA(7585)/dV(2284) - B(12075) = RCT(7585) -! B(12076) = dA(7586)/dV(469) - B(12076) = RCT(7586)*V(5250) -! B(12077) = dA(7586)/dV(5250) - B(12077) = RCT(7586)*V(469) -! B(12078) = dA(7587)/dV(3917) - B(12078) = RCT(7587) -! B(12079) = dA(7588)/dV(3917) - B(12079) = RCT(7588)*V(5250) -! B(12080) = dA(7588)/dV(5250) - B(12080) = RCT(7588)*V(3917) -! B(12081) = dA(7589)/dV(3917) - B(12081) = RCT(7589)*V(5250) -! B(12082) = dA(7589)/dV(5250) - B(12082) = RCT(7589)*V(3917) -! B(12083) = dA(7590)/dV(1416) - B(12083) = RCT(7590) -! B(12084) = dA(7591)/dV(1416) - B(12084) = RCT(7591)*V(5250) -! B(12085) = dA(7591)/dV(5250) - B(12085) = RCT(7591)*V(1416) -! B(12086) = dA(7592)/dV(50) - B(12086) = RCT(7592) -! B(12087) = dA(7593)/dV(1401) - B(12087) = RCT(7593) -! B(12088) = dA(7594)/dV(1401) - B(12088) = RCT(7594)*V(5250) -! B(12089) = dA(7594)/dV(5250) - B(12089) = RCT(7594)*V(1401) -! B(12090) = dA(7595)/dV(1780) - B(12090) = RCT(7595) -! B(12091) = dA(7596)/dV(1780) - B(12091) = RCT(7596)*V(5250) -! B(12092) = dA(7596)/dV(5250) - B(12092) = RCT(7596)*V(1780) -! B(12093) = dA(7597)/dV(1781) - B(12093) = RCT(7597) -! B(12094) = dA(7598)/dV(468) - B(12094) = RCT(7598)*V(5250) -! B(12095) = dA(7598)/dV(5250) - B(12095) = RCT(7598)*V(468) -! B(12096) = dA(7599)/dV(4103) - B(12096) = RCT(7599) -! B(12097) = dA(7600)/dV(4103) - B(12097) = RCT(7600)*V(5250) -! B(12098) = dA(7600)/dV(5250) - B(12098) = RCT(7600)*V(4103) -! B(12099) = dA(7601)/dV(4103) - B(12099) = RCT(7601)*V(5250) -! B(12100) = dA(7601)/dV(5250) - B(12100) = RCT(7601)*V(4103) -! B(12101) = dA(7602)/dV(1374) - B(12101) = RCT(7602) -! B(12102) = dA(7603)/dV(1374) - B(12102) = RCT(7603)*V(5250) -! B(12103) = dA(7603)/dV(5250) - B(12103) = RCT(7603)*V(1374) -! B(12104) = dA(7604)/dV(140) - B(12104) = RCT(7604) -! B(12105) = dA(7605)/dV(1304) - B(12105) = RCT(7605) -! B(12106) = dA(7606)/dV(1304) - B(12106) = RCT(7606)*V(5250) -! B(12107) = dA(7606)/dV(5250) - B(12107) = RCT(7606)*V(1304) -! B(12108) = dA(7607)/dV(2268) - B(12108) = RCT(7607) -! B(12109) = dA(7608)/dV(2268) - B(12109) = RCT(7608)*V(5250) -! B(12110) = dA(7608)/dV(5250) - B(12110) = RCT(7608)*V(2268) -! B(12111) = dA(7609)/dV(2122) - B(12111) = RCT(7609) -! B(12112) = dA(7610)/dV(525) - B(12112) = RCT(7610)*V(5250) -! B(12113) = dA(7610)/dV(5250) - B(12113) = RCT(7610)*V(525) -! B(12114) = dA(7611)/dV(4122) - B(12114) = RCT(7611) -! B(12115) = dA(7612)/dV(4122) - B(12115) = RCT(7612)*V(5250) -! B(12116) = dA(7612)/dV(5250) - B(12116) = RCT(7612)*V(4122) -! B(12117) = dA(7613)/dV(4122) - B(12117) = RCT(7613)*V(5250) -! B(12118) = dA(7613)/dV(5250) - B(12118) = RCT(7613)*V(4122) -! B(12119) = dA(7614)/dV(1410) - B(12119) = RCT(7614) -! B(12120) = dA(7615)/dV(1410) - B(12120) = RCT(7615)*V(5250) -! B(12121) = dA(7615)/dV(5250) - B(12121) = RCT(7615)*V(1410) -! B(12122) = dA(7616)/dV(66) - B(12122) = RCT(7616) -! B(12123) = dA(7617)/dV(1349) - B(12123) = RCT(7617) -! B(12124) = dA(7618)/dV(1349) - B(12124) = RCT(7618)*V(5250) -! B(12125) = dA(7618)/dV(5250) - B(12125) = RCT(7618)*V(1349) -! B(12126) = dA(7619)/dV(2206) - B(12126) = RCT(7619) -! B(12127) = dA(7620)/dV(2206) - B(12127) = RCT(7620)*V(5250) -! B(12128) = dA(7620)/dV(5250) - B(12128) = RCT(7620)*V(2206) -! B(12129) = dA(7621)/dV(2060) - B(12129) = RCT(7621) -! B(12130) = dA(7622)/dV(295) - B(12130) = RCT(7622)*V(5250) -! B(12131) = dA(7622)/dV(5250) - B(12131) = RCT(7622)*V(295) -! B(12132) = dA(7623)/dV(4179) - B(12132) = RCT(7623) -! B(12133) = dA(7624)/dV(4179) - B(12133) = RCT(7624)*V(5250) -! B(12134) = dA(7624)/dV(5250) - B(12134) = RCT(7624)*V(4179) -! B(12135) = dA(7625)/dV(4179) - B(12135) = RCT(7625)*V(5250) -! B(12136) = dA(7625)/dV(5250) - B(12136) = RCT(7625)*V(4179) -! B(12137) = dA(7626)/dV(1028) - B(12137) = RCT(7626) -! B(12138) = dA(7627)/dV(1028) - B(12138) = RCT(7627)*V(5250) -! B(12139) = dA(7627)/dV(5250) - B(12139) = RCT(7627)*V(1028) -! B(12140) = dA(7628)/dV(35) - B(12140) = RCT(7628) -! B(12141) = dA(7629)/dV(1387) - B(12141) = RCT(7629) -! B(12142) = dA(7630)/dV(1387) - B(12142) = RCT(7630)*V(5250) -! B(12143) = dA(7630)/dV(5250) - B(12143) = RCT(7630)*V(1387) -! B(12144) = dA(7631)/dV(2387) - B(12144) = RCT(7631) -! B(12145) = dA(7632)/dV(2387) - B(12145) = RCT(7632)*V(5250) -! B(12146) = dA(7632)/dV(5250) - B(12146) = RCT(7632)*V(2387) -! B(12147) = dA(7633)/dV(2031) - B(12147) = RCT(7633) -! B(12148) = dA(7634)/dV(524) - B(12148) = RCT(7634)*V(5250) -! B(12149) = dA(7634)/dV(5250) - B(12149) = RCT(7634)*V(524) -! B(12150) = dA(7635)/dV(4164) - B(12150) = RCT(7635) -! B(12151) = dA(7636)/dV(4164) - B(12151) = RCT(7636)*V(5250) -! B(12152) = dA(7636)/dV(5250) - B(12152) = RCT(7636)*V(4164) -! B(12153) = dA(7637)/dV(4164) - B(12153) = RCT(7637)*V(5250) -! B(12154) = dA(7637)/dV(5250) - B(12154) = RCT(7637)*V(4164) -! B(12155) = dA(7638)/dV(1534) - B(12155) = RCT(7638) -! B(12156) = dA(7639)/dV(1534) - B(12156) = RCT(7639)*V(5250) -! B(12157) = dA(7639)/dV(5250) - B(12157) = RCT(7639)*V(1534) -! B(12158) = dA(7640)/dV(43) - B(12158) = RCT(7640) -! B(12159) = dA(7641)/dV(1536) - B(12159) = RCT(7641)*V(5250) -! B(12160) = dA(7641)/dV(5250) - B(12160) = RCT(7641)*V(1536) -! B(12161) = dA(7642)/dV(1536) - B(12161) = RCT(7642) -! B(12162) = dA(7643)/dV(1889) - B(12162) = RCT(7643)*V(5250) -! B(12163) = dA(7643)/dV(5250) - B(12163) = RCT(7643)*V(1889) -! B(12164) = dA(7644)/dV(1889) - B(12164) = RCT(7644) -! B(12165) = dA(7645)/dV(188) - B(12165) = RCT(7645) -! B(12166) = dA(7646)/dV(501) - B(12166) = RCT(7646)*V(5250) -! B(12167) = dA(7646)/dV(5250) - B(12167) = RCT(7646)*V(501) -! B(12168) = dA(7647)/dV(2783) - B(12168) = RCT(7647)*V(5250) -! B(12169) = dA(7647)/dV(5250) - B(12169) = RCT(7647)*V(2783) -! B(12170) = dA(7648)/dV(2150) - B(12170) = RCT(7648)*V(5250) -! B(12171) = dA(7648)/dV(5250) - B(12171) = RCT(7648)*V(2150) -! B(12172) = dA(7649)/dV(2150) - B(12172) = RCT(7649) -! B(12173) = dA(7650)/dV(2500) - B(12173) = RCT(7650)*V(5250) -! B(12174) = dA(7650)/dV(5250) - B(12174) = RCT(7650)*V(2500) -! B(12175) = dA(7651)/dV(2500) - B(12175) = RCT(7651) -! B(12176) = dA(7652)/dV(1110) - B(12176) = RCT(7652)*V(5250) -! B(12177) = dA(7652)/dV(5250) - B(12177) = RCT(7652)*V(1110) -! B(12178) = dA(7653)/dV(1997) - B(12178) = RCT(7653)*V(5250) -! B(12179) = dA(7653)/dV(5250) - B(12179) = RCT(7653)*V(1997) -! B(12180) = dA(7654)/dV(1997) - B(12180) = RCT(7654) -! B(12181) = dA(7655)/dV(2579) - B(12181) = RCT(7655)*V(5250) -! B(12182) = dA(7655)/dV(5250) - B(12182) = RCT(7655)*V(2579) -! B(12183) = dA(7656)/dV(2579) - B(12183) = RCT(7656) -! B(12184) = dA(7657)/dV(2080) - B(12184) = RCT(7657)*V(5250) -! B(12185) = dA(7657)/dV(5250) - B(12185) = RCT(7657)*V(2080) -! B(12186) = dA(7658)/dV(2080) - B(12186) = RCT(7658) -! B(12187) = dA(7659)/dV(637) - B(12187) = RCT(7659) -! B(12188) = dA(7660)/dV(4352) - B(12188) = RCT(7660)*V(5250) -! B(12189) = dA(7660)/dV(5250) - B(12189) = RCT(7660)*V(4352) -! B(12190) = dA(7661)/dV(4352) - B(12190) = RCT(7661) -! B(12191) = dA(7662)/dV(1916) - B(12191) = RCT(7662)*V(5250) -! B(12192) = dA(7662)/dV(5250) - B(12192) = RCT(7662)*V(1916) -! B(12193) = dA(7663)/dV(1916) - B(12193) = RCT(7663) -! B(12194) = dA(7664)/dV(2384) - B(12194) = RCT(7664)*V(5250) -! B(12195) = dA(7664)/dV(5250) - B(12195) = RCT(7664)*V(2384) -! B(12196) = dA(7665)/dV(2384) - B(12196) = RCT(7665) -! B(12197) = dA(7666)/dV(2698) - B(12197) = RCT(7666)*V(5250) -! B(12198) = dA(7666)/dV(5250) - B(12198) = RCT(7666)*V(2698) -! B(12199) = dA(7667)/dV(2698) - B(12199) = RCT(7667) -! B(12200) = dA(7668)/dV(1078) - B(12200) = RCT(7668)*V(5250) -! B(12201) = dA(7668)/dV(5250) - B(12201) = RCT(7668)*V(1078) -! B(12202) = dA(7669)/dV(2460) - B(12202) = RCT(7669)*V(5250) -! B(12203) = dA(7669)/dV(5250) - B(12203) = RCT(7669)*V(2460) -! B(12204) = dA(7670)/dV(2460) - B(12204) = RCT(7670) -! B(12205) = dA(7671)/dV(2522) - B(12205) = RCT(7671)*V(5250) -! B(12206) = dA(7671)/dV(5250) - B(12206) = RCT(7671)*V(2522) -! B(12207) = dA(7672)/dV(2522) - B(12207) = RCT(7672) -! B(12208) = dA(7673)/dV(1802) - B(12208) = RCT(7673)*V(5250) -! B(12209) = dA(7673)/dV(5250) - B(12209) = RCT(7673)*V(1802) -! B(12210) = dA(7674)/dV(1802) - B(12210) = RCT(7674) -! B(12211) = dA(7675)/dV(737) - B(12211) = RCT(7675) -! B(12212) = dA(7676)/dV(2478) - B(12212) = RCT(7676)*V(5250) -! B(12213) = dA(7676)/dV(5250) - B(12213) = RCT(7676)*V(2478) -! B(12214) = dA(7677)/dV(2478) - B(12214) = RCT(7677) -! B(12215) = dA(7678)/dV(2478) - B(12215) = RCT(7678) -! B(12216) = dA(7679)/dV(1562) - B(12216) = RCT(7679)*V(5250) -! B(12217) = dA(7679)/dV(5250) - B(12217) = RCT(7679)*V(1562) -! B(12218) = dA(7680)/dV(1562) - B(12218) = RCT(7680) -! B(12219) = dA(7681)/dV(1363) - B(12219) = RCT(7681)*V(5250) -! B(12220) = dA(7681)/dV(5250) - B(12220) = RCT(7681)*V(1363) -! B(12221) = dA(7682)/dV(2176) - B(12221) = RCT(7682)*V(5250) -! B(12222) = dA(7682)/dV(5250) - B(12222) = RCT(7682)*V(2176) -! B(12223) = dA(7683)/dV(2176) - B(12223) = RCT(7683) -! B(12224) = dA(7684)/dV(2583) - B(12224) = RCT(7684)*V(5250) -! B(12225) = dA(7684)/dV(5250) - B(12225) = RCT(7684)*V(2583) -! B(12226) = dA(7685)/dV(2583) - B(12226) = RCT(7685) -! B(12227) = dA(7686)/dV(3231) - B(12227) = RCT(7686)*V(5250) -! B(12228) = dA(7686)/dV(5250) - B(12228) = RCT(7686)*V(3231) -! B(12229) = dA(7687)/dV(3231) - B(12229) = RCT(7687) -! B(12230) = dA(7688)/dV(3231) - B(12230) = RCT(7688) -! B(12231) = dA(7689)/dV(706) - B(12231) = RCT(7689) -! B(12232) = dA(7690)/dV(2396) - B(12232) = RCT(7690)*V(5250) -! B(12233) = dA(7690)/dV(5250) - B(12233) = RCT(7690)*V(2396) -! B(12234) = dA(7691)/dV(2396) - B(12234) = RCT(7691) -! B(12235) = dA(7692)/dV(2738) - B(12235) = RCT(7692)*V(5250) -! B(12236) = dA(7692)/dV(5250) - B(12236) = RCT(7692)*V(2738) -! B(12237) = dA(7693)/dV(2738) - B(12237) = RCT(7693) -! B(12238) = dA(7694)/dV(1515) - B(12238) = RCT(7694)*V(5250) -! B(12239) = dA(7694)/dV(5250) - B(12239) = RCT(7694)*V(1515) -! B(12240) = dA(7695)/dV(1515) - B(12240) = RCT(7695) -! B(12241) = dA(7696)/dV(2858) - B(12241) = RCT(7696) -! B(12242) = dA(7697)/dV(829) - B(12242) = RCT(7697)*V(5250) -! B(12243) = dA(7697)/dV(5250) - B(12243) = RCT(7697)*V(829) -! B(12244) = dA(7698)/dV(829) - B(12244) = RCT(7698) -! B(12245) = dA(7699)/dV(3897) - B(12245) = RCT(7699) -! B(12246) = dA(7700)/dV(3897) - B(12246) = RCT(7700) -! B(12247) = dA(7701)/dV(924) - B(12247) = RCT(7701)*V(5250) -! B(12248) = dA(7701)/dV(5250) - B(12248) = RCT(7701)*V(924) -! B(12249) = dA(7702)/dV(2314) - B(12249) = RCT(7702)*V(5250) -! B(12250) = dA(7702)/dV(5250) - B(12250) = RCT(7702)*V(2314) -! B(12251) = dA(7703)/dV(2314) - B(12251) = RCT(7703) -! B(12252) = dA(7704)/dV(2702) - B(12252) = RCT(7704)*V(5250) -! B(12253) = dA(7704)/dV(5250) - B(12253) = RCT(7704)*V(2702) -! B(12254) = dA(7705)/dV(2702) - B(12254) = RCT(7705) -! B(12255) = dA(7706)/dV(1080) - B(12255) = RCT(7706)*V(5250) -! B(12256) = dA(7706)/dV(5250) - B(12256) = RCT(7706)*V(1080) -! B(12257) = dA(7707)/dV(1080) - B(12257) = RCT(7707) -! B(12258) = dA(7708)/dV(1261) - B(12258) = RCT(7708)*V(5250) -! B(12259) = dA(7708)/dV(5250) - B(12259) = RCT(7708)*V(1261) -! B(12260) = dA(7709)/dV(2036) - B(12260) = RCT(7709)*V(5250) -! B(12261) = dA(7709)/dV(5250) - B(12261) = RCT(7709)*V(2036) -! B(12262) = dA(7710)/dV(2036) - B(12262) = RCT(7710) -! B(12263) = dA(7711)/dV(2872) - B(12263) = RCT(7711)*V(5250) -! B(12264) = dA(7711)/dV(5250) - B(12264) = RCT(7711)*V(2872) -! B(12265) = dA(7712)/dV(2872) - B(12265) = RCT(7712) -! B(12266) = dA(7713)/dV(2301) - B(12266) = RCT(7713)*V(5250) -! B(12267) = dA(7713)/dV(5250) - B(12267) = RCT(7713)*V(2301) -! B(12268) = dA(7714)/dV(2301) - B(12268) = RCT(7714) -! B(12269) = dA(7715)/dV(3051) - B(12269) = RCT(7715)*V(5250) -! B(12270) = dA(7715)/dV(5250) - B(12270) = RCT(7715)*V(3051) -! B(12271) = dA(7716)/dV(3051) - B(12271) = RCT(7716) -! B(12272) = dA(7717)/dV(3278) - B(12272) = RCT(7717)*V(5250) -! B(12273) = dA(7717)/dV(5250) - B(12273) = RCT(7717)*V(3278) -! B(12274) = dA(7718)/dV(3278) - B(12274) = RCT(7718)*V(5250) -! B(12275) = dA(7718)/dV(5250) - B(12275) = RCT(7718)*V(3278) -! B(12276) = dA(7719)/dV(3278) - B(12276) = RCT(7719) -! B(12277) = dA(7720)/dV(3909) - B(12277) = RCT(7720) -! B(12278) = dA(7721)/dV(3909) - B(12278) = RCT(7721) -! B(12279) = dA(7722)/dV(834) - B(12279) = RCT(7722)*V(5250) -! B(12280) = dA(7722)/dV(5250) - B(12280) = RCT(7722)*V(834) -! B(12281) = dA(7723)/dV(2290) - B(12281) = RCT(7723)*V(5250) -! B(12282) = dA(7723)/dV(5250) - B(12282) = RCT(7723)*V(2290) -! B(12283) = dA(7724)/dV(2290) - B(12283) = RCT(7724) -! B(12284) = dA(7725)/dV(2988) - B(12284) = RCT(7725)*V(5250) -! B(12285) = dA(7725)/dV(5250) - B(12285) = RCT(7725)*V(2988) -! B(12286) = dA(7726)/dV(2988) - B(12286) = RCT(7726) -! B(12287) = dA(7727)/dV(1999) - B(12287) = RCT(7727)*V(5250) -! B(12288) = dA(7727)/dV(5250) - B(12288) = RCT(7727)*V(1999) -! B(12289) = dA(7728)/dV(1999) - B(12289) = RCT(7728) -! B(12290) = dA(7729)/dV(669) - B(12290) = RCT(7729) -! B(12291) = dA(7730)/dV(2028) - B(12291) = RCT(7730)*V(5250) -! B(12292) = dA(7730)/dV(5250) - B(12292) = RCT(7730)*V(2028) -! B(12293) = dA(7731)/dV(2028) - B(12293) = RCT(7731) -! B(12294) = dA(7732)/dV(2028) - B(12294) = RCT(7732) -! B(12295) = dA(7733)/dV(1621) - B(12295) = RCT(7733)*V(5250) -! B(12296) = dA(7733)/dV(5250) - B(12296) = RCT(7733)*V(1621) -! B(12297) = dA(7734)/dV(1621) - B(12297) = RCT(7734) -! B(12298) = dA(7735)/dV(2466) - B(12298) = RCT(7735)*V(5250) -! B(12299) = dA(7735)/dV(5250) - B(12299) = RCT(7735)*V(2466) -! B(12300) = dA(7736)/dV(2466) - B(12300) = RCT(7736) -! B(12301) = dA(7737)/dV(551) - B(12301) = RCT(7737) -! B(12302) = dA(7738)/dV(1670) - B(12302) = RCT(7738)*V(5250) -! B(12303) = dA(7738)/dV(5250) - B(12303) = RCT(7738)*V(1670) -! B(12304) = dA(7739)/dV(1670) - B(12304) = RCT(7739) -! B(12305) = dA(7740)/dV(3759) - B(12305) = RCT(7740) -! B(12306) = dA(7741)/dV(3759) - B(12306) = RCT(7741)*V(5250) -! B(12307) = dA(7741)/dV(5250) - B(12307) = RCT(7741)*V(3759) -! B(12308) = dA(7742)/dV(2371) - B(12308) = RCT(7742) -! B(12309) = dA(7743)/dV(2371) - B(12309) = RCT(7743)*V(5250) -! B(12310) = dA(7743)/dV(5250) - B(12310) = RCT(7743)*V(2371) -! B(12311) = dA(7744)/dV(2896) - B(12311) = RCT(7744) -! B(12312) = dA(7745)/dV(2896) - B(12312) = RCT(7745)*V(5250) -! B(12313) = dA(7745)/dV(5250) - B(12313) = RCT(7745)*V(2896) -! B(12314) = dA(7746)/dV(2166) - B(12314) = RCT(7746)*V(5250) -! B(12315) = dA(7746)/dV(5250) - B(12315) = RCT(7746)*V(2166) -! B(12316) = dA(7747)/dV(2166) - B(12316) = RCT(7747) -! B(12317) = dA(7748)/dV(815) - B(12317) = RCT(7748) -! B(12318) = dA(7749)/dV(2547) - B(12318) = RCT(7749)*V(5250) -! B(12319) = dA(7749)/dV(5250) - B(12319) = RCT(7749)*V(2547) -! B(12320) = dA(7750)/dV(2547) - B(12320) = RCT(7750) -! B(12321) = dA(7751)/dV(2129) - B(12321) = RCT(7751)*V(5250) -! B(12322) = dA(7751)/dV(5250) - B(12322) = RCT(7751)*V(2129) -! B(12323) = dA(7752)/dV(2129) - B(12323) = RCT(7752) -! B(12324) = dA(7753)/dV(2114) - B(12324) = RCT(7753)*V(5250) -! B(12325) = dA(7753)/dV(5250) - B(12325) = RCT(7753)*V(2114) -! B(12326) = dA(7754)/dV(2114) - B(12326) = RCT(7754)*V(5250) -! B(12327) = dA(7754)/dV(5250) - B(12327) = RCT(7754)*V(2114) -! B(12328) = dA(7755)/dV(2114) - B(12328) = RCT(7755) -! B(12329) = dA(7756)/dV(3904) - B(12329) = RCT(7756) -! B(12330) = dA(7757)/dV(3904) - B(12330) = RCT(7757) -! B(12331) = dA(7758)/dV(3354) - B(12331) = RCT(7758)*V(5250) -! B(12332) = dA(7758)/dV(5250) - B(12332) = RCT(7758)*V(3354) -! B(12333) = dA(7759)/dV(3354) - B(12333) = RCT(7759) -! B(12334) = dA(7760)/dV(2344) - B(12334) = RCT(7760)*V(5250) -! B(12335) = dA(7760)/dV(5250) - B(12335) = RCT(7760)*V(2344) -! B(12336) = dA(7761)/dV(2344) - B(12336) = RCT(7761) -! B(12337) = dA(7762)/dV(3728) - B(12337) = RCT(7762)*V(5255) -! B(12338) = dA(7762)/dV(5255) - B(12338) = RCT(7762)*V(3728) -! B(12339) = dA(7763)/dV(3728) - B(12339) = RCT(7763)*V(5252) -! B(12340) = dA(7763)/dV(5252) - B(12340) = RCT(7763)*V(3728) -! B(12341) = dA(7764)/dV(3728) - B(12341) = RCT(7764)*V(5256) -! B(12342) = dA(7764)/dV(5256) - B(12342) = RCT(7764)*V(3728) -! B(12343) = dA(7765)/dV(3728) - B(12343) = RCT(7765) -! B(12344) = dA(7766)/dV(759) - B(12344) = RCT(7766) -! B(12345) = dA(7767)/dV(759) - B(12345) = RCT(7767) -! B(12346) = dA(7768)/dV(3669) - B(12346) = RCT(7768)*V(5255) -! B(12347) = dA(7768)/dV(5255) - B(12347) = RCT(7768)*V(3669) -! B(12348) = dA(7769)/dV(3669) - B(12348) = RCT(7769)*V(5252) -! B(12349) = dA(7769)/dV(5252) - B(12349) = RCT(7769)*V(3669) -! B(12350) = dA(7770)/dV(3669) - B(12350) = RCT(7770)*V(5256) -! B(12351) = dA(7770)/dV(5256) - B(12351) = RCT(7770)*V(3669) -! B(12352) = dA(7771)/dV(3669) - B(12352) = RCT(7771) -! B(12353) = dA(7772)/dV(3669) - B(12353) = RCT(7772) -! B(12354) = dA(7773)/dV(3669) - B(12354) = RCT(7773) -! B(12355) = dA(7774)/dV(4398) - B(12355) = RCT(7774)*V(5250) -! B(12356) = dA(7774)/dV(5250) - B(12356) = RCT(7774)*V(4398) -! B(12357) = dA(7775)/dV(4398) - B(12357) = RCT(7775) -! B(12358) = dA(7776)/dV(3325) - B(12358) = RCT(7776)*V(5250) -! B(12359) = dA(7776)/dV(5250) - B(12359) = RCT(7776)*V(3325) -! B(12360) = dA(7777)/dV(3325) - B(12360) = RCT(7777) -! B(12361) = dA(7778)/dV(3325) - B(12361) = RCT(7778) -! B(12362) = dA(7779)/dV(3712) - B(12362) = RCT(7779) -! B(12363) = dA(7780)/dV(3712) - B(12363) = RCT(7780) -! B(12364) = dA(7781)/dV(2924) - B(12364) = RCT(7781)*V(5250) -! B(12365) = dA(7781)/dV(5250) - B(12365) = RCT(7781)*V(2924) -! B(12366) = dA(7782)/dV(2924) - B(12366) = RCT(7782) -! B(12367) = dA(7783)/dV(1356) - B(12367) = RCT(7783)*V(5250) -! B(12368) = dA(7783)/dV(5250) - B(12368) = RCT(7783)*V(1356) -! B(12369) = dA(7784)/dV(1356) - B(12369) = RCT(7784) -! B(12370) = dA(7785)/dV(1067) - B(12370) = RCT(7785)*V(5250) -! B(12371) = dA(7785)/dV(5250) - B(12371) = RCT(7785)*V(1067) -! B(12372) = dA(7786)/dV(1067) - B(12372) = RCT(7786) -! B(12373) = dA(7787)/dV(2712) - B(12373) = RCT(7787)*V(5250) -! B(12374) = dA(7787)/dV(5250) - B(12374) = RCT(7787)*V(2712) -! B(12375) = dA(7788)/dV(2712) - B(12375) = RCT(7788) -! B(12376) = dA(7789)/dV(2609) - B(12376) = RCT(7789)*V(5250) -! B(12377) = dA(7789)/dV(5250) - B(12377) = RCT(7789)*V(2609) -! B(12378) = dA(7790)/dV(2609) - B(12378) = RCT(7790) -! B(12379) = dA(7791)/dV(2609) - B(12379) = RCT(7791) -! B(12380) = dA(7792)/dV(2376) - B(12380) = RCT(7792) -! B(12381) = dA(7793)/dV(4602) - B(12381) = RCT(7793)*V(5250) -! B(12382) = dA(7793)/dV(5250) - B(12382) = RCT(7793)*V(4602) -! B(12383) = dA(7794)/dV(4602) - B(12383) = RCT(7794) -! B(12384) = dA(7795)/dV(3446) - B(12384) = RCT(7795)*V(5250) -! B(12385) = dA(7795)/dV(5250) - B(12385) = RCT(7795)*V(3446) -! B(12386) = dA(7796)/dV(3446) - B(12386) = RCT(7796)*V(5250) -! B(12387) = dA(7796)/dV(5250) - B(12387) = RCT(7796)*V(3446) -! B(12388) = dA(7797)/dV(3446) - B(12388) = RCT(7797) -! B(12389) = dA(7798)/dV(3446) - B(12389) = RCT(7798) -! B(12390) = dA(7799)/dV(808) - B(12390) = RCT(7799) -! B(12391) = dA(7800)/dV(3644) - B(12391) = RCT(7800)*V(5250) -! B(12392) = dA(7800)/dV(5250) - B(12392) = RCT(7800)*V(3644) -! B(12393) = dA(7801)/dV(3644) - B(12393) = RCT(7801) -! B(12394) = dA(7802)/dV(1570) - B(12394) = RCT(7802)*V(5250) -! B(12395) = dA(7802)/dV(5250) - B(12395) = RCT(7802)*V(1570) -! B(12396) = dA(7803)/dV(1570) - B(12396) = RCT(7803) -! B(12397) = dA(7804)/dV(4859) - B(12397) = RCT(7804)*V(5253) -! B(12398) = dA(7804)/dV(5253) - B(12398) = RCT(7804)*V(4859) -! B(12399) = dA(7805)/dV(4859) - B(12399) = RCT(7805)*V(5258) -! B(12400) = dA(7805)/dV(5258) - B(12400) = RCT(7805)*V(4859) -! B(12401) = dA(7806)/dV(3092) - B(12401) = RCT(7806)*V(5256) -! B(12402) = dA(7806)/dV(5256) - B(12402) = RCT(7806)*V(3092) -! B(12403) = dA(7807)/dV(3092) - B(12403) = RCT(7807)*V(5250) -! B(12404) = dA(7807)/dV(5250) - B(12404) = RCT(7807)*V(3092) -! B(12405) = dA(7808)/dV(4079) - B(12405) = RCT(7808)*V(5255) -! B(12406) = dA(7808)/dV(5255) - B(12406) = RCT(7808)*V(4079) -! B(12407) = dA(7809)/dV(4079) - B(12407) = RCT(7809)*V(5252) -! B(12408) = dA(7809)/dV(5252) - B(12408) = RCT(7809)*V(4079) -! B(12409) = dA(7810)/dV(4079) - B(12409) = RCT(7810)*V(5256) -! B(12410) = dA(7810)/dV(5256) - B(12410) = RCT(7810)*V(4079) -! B(12411) = dA(7811)/dV(4079) - B(12411) = RCT(7811) -! B(12412) = dA(7812)/dV(1775) - B(12412) = RCT(7812)*V(5256) -! B(12413) = dA(7812)/dV(5256) - B(12413) = RCT(7812)*V(1775) -! B(12414) = dA(7813)/dV(1775) - B(12414) = RCT(7813)*V(5250) -! B(12415) = dA(7813)/dV(5250) - B(12415) = RCT(7813)*V(1775) -! B(12416) = dA(7814)/dV(4491) - B(12416) = RCT(7814)*V(5250) -! B(12417) = dA(7814)/dV(5250) - B(12417) = RCT(7814)*V(4491) -! B(12418) = dA(7815)/dV(4491) - B(12418) = RCT(7815) -! B(12419) = dA(7816)/dV(2054) - B(12419) = RCT(7816)*V(5256) -! B(12420) = dA(7816)/dV(5256) - B(12420) = RCT(7816)*V(2054) -! B(12421) = dA(7817)/dV(2054) - B(12421) = RCT(7817)*V(5250) -! B(12422) = dA(7817)/dV(5250) - B(12422) = RCT(7817)*V(2054) -! B(12423) = dA(7818)/dV(4798) - B(12423) = RCT(7818)*V(5253) -! B(12424) = dA(7818)/dV(5253) - B(12424) = RCT(7818)*V(4798) -! B(12425) = dA(7819)/dV(4798) - B(12425) = RCT(7819)*V(5258) -! B(12426) = dA(7819)/dV(5258) - B(12426) = RCT(7819)*V(4798) -! B(12427) = dA(7820)/dV(2283) - B(12427) = RCT(7820)*V(5250) -! B(12428) = dA(7820)/dV(5250) - B(12428) = RCT(7820)*V(2283) -! B(12429) = dA(7821)/dV(2283) - B(12429) = RCT(7821) -! B(12430) = dA(7822)/dV(3167) - B(12430) = RCT(7822)*V(5256) -! B(12431) = dA(7822)/dV(5256) - B(12431) = RCT(7822)*V(3167) -! B(12432) = dA(7823)/dV(3167) - B(12432) = RCT(7823)*V(5250) -! B(12433) = dA(7823)/dV(5250) - B(12433) = RCT(7823)*V(3167) -! B(12434) = dA(7824)/dV(4049) - B(12434) = RCT(7824)*V(5255) -! B(12435) = dA(7824)/dV(5255) - B(12435) = RCT(7824)*V(4049) -! B(12436) = dA(7825)/dV(4049) - B(12436) = RCT(7825)*V(5252) -! B(12437) = dA(7825)/dV(5252) - B(12437) = RCT(7825)*V(4049) -! B(12438) = dA(7826)/dV(4049) - B(12438) = RCT(7826)*V(5256) -! B(12439) = dA(7826)/dV(5256) - B(12439) = RCT(7826)*V(4049) -! B(12440) = dA(7827)/dV(4049) - B(12440) = RCT(7827) -! B(12441) = dA(7828)/dV(3590) - B(12441) = RCT(7828)*V(5250) -! B(12442) = dA(7828)/dV(5250) - B(12442) = RCT(7828)*V(3590) -! B(12443) = dA(7829)/dV(3590) - B(12443) = RCT(7829) -! B(12444) = dA(7830)/dV(4993) - B(12444) = RCT(7830)*V(5255) -! B(12445) = dA(7830)/dV(5255) - B(12445) = RCT(7830)*V(4993) -! B(12446) = dA(7831)/dV(4993) - B(12446) = RCT(7831)*V(5255) -! B(12447) = dA(7831)/dV(5255) - B(12447) = RCT(7831)*V(4993) -! B(12448) = dA(7832)/dV(4993) - B(12448) = RCT(7832)*V(5255) -! B(12449) = dA(7832)/dV(5255) - B(12449) = RCT(7832)*V(4993) -! B(12450) = dA(7833)/dV(4993) - B(12450) = RCT(7833)*V(5252) -! B(12451) = dA(7833)/dV(5252) - B(12451) = RCT(7833)*V(4993) -! B(12452) = dA(7834)/dV(4993) - B(12452) = RCT(7834)*V(5253) -! B(12453) = dA(7834)/dV(5253) - B(12453) = RCT(7834)*V(4993) -! B(12454) = dA(7835)/dV(4993) - B(12454) = RCT(7835)*V(5256) -! B(12455) = dA(7835)/dV(5256) - B(12455) = RCT(7835)*V(4993) -! B(12456) = dA(7836)/dV(4993) - B(12456) = RCT(7836) -! B(12457) = dA(7837)/dV(4993) - B(12457) = RCT(7837) -! B(12458) = dA(7838)/dV(3647) - B(12458) = RCT(7838) -! B(12459) = dA(7839)/dV(3647) - B(12459) = RCT(7839) -! B(12460) = dA(7840)/dV(4861) - B(12460) = RCT(7840)*V(5255) -! B(12461) = dA(7840)/dV(5255) - B(12461) = RCT(7840)*V(4861) -! B(12462) = dA(7841)/dV(4861) - B(12462) = RCT(7841)*V(5252) -! B(12463) = dA(7841)/dV(5252) - B(12463) = RCT(7841)*V(4861) -! B(12464) = dA(7842)/dV(4861) - B(12464) = RCT(7842)*V(5256) -! B(12465) = dA(7842)/dV(5256) - B(12465) = RCT(7842)*V(4861) -! B(12466) = dA(7843)/dV(4861) - B(12466) = RCT(7843) -! B(12467) = dA(7844)/dV(4861) - B(12467) = RCT(7844) -! B(12468) = dA(7845)/dV(4835) - B(12468) = RCT(7845)*V(5255) -! B(12469) = dA(7845)/dV(5255) - B(12469) = RCT(7845)*V(4835) -! B(12470) = dA(7846)/dV(4835) - B(12470) = RCT(7846)*V(5252) -! B(12471) = dA(7846)/dV(5252) - B(12471) = RCT(7846)*V(4835) -! B(12472) = dA(7847)/dV(4835) - B(12472) = RCT(7847)*V(5256) -! B(12473) = dA(7847)/dV(5256) - B(12473) = RCT(7847)*V(4835) -! B(12474) = dA(7848)/dV(4835) - B(12474) = RCT(7848) -! B(12475) = dA(7849)/dV(4835) - B(12475) = RCT(7849) -! B(12476) = dA(7850)/dV(4835) - B(12476) = RCT(7850) -! B(12477) = dA(7851)/dV(3692) - B(12477) = RCT(7851)*V(5255) -! B(12478) = dA(7851)/dV(5255) - B(12478) = RCT(7851)*V(3692) -! B(12479) = dA(7852)/dV(3692) - B(12479) = RCT(7852)*V(5252) -! B(12480) = dA(7852)/dV(5252) - B(12480) = RCT(7852)*V(3692) -! B(12481) = dA(7853)/dV(3692) - B(12481) = RCT(7853)*V(5256) -! B(12482) = dA(7853)/dV(5256) - B(12482) = RCT(7853)*V(3692) -! B(12483) = dA(7854)/dV(3692) - B(12483) = RCT(7854) -! B(12484) = dA(7855)/dV(771) - B(12484) = RCT(7855) -! B(12485) = dA(7856)/dV(771) - B(12485) = RCT(7856) -! B(12486) = dA(7857)/dV(3752) - B(12486) = RCT(7857)*V(5255) -! B(12487) = dA(7857)/dV(5255) - B(12487) = RCT(7857)*V(3752) -! B(12488) = dA(7858)/dV(3752) - B(12488) = RCT(7858)*V(5252) -! B(12489) = dA(7858)/dV(5252) - B(12489) = RCT(7858)*V(3752) -! B(12490) = dA(7859)/dV(3752) - B(12490) = RCT(7859)*V(5256) -! B(12491) = dA(7859)/dV(5256) - B(12491) = RCT(7859)*V(3752) -! B(12492) = dA(7860)/dV(3752) - B(12492) = RCT(7860) -! B(12493) = dA(7861)/dV(3752) - B(12493) = RCT(7861) -! B(12494) = dA(7862)/dV(4071) - B(12494) = RCT(7862) -! B(12495) = dA(7863)/dV(4071) - B(12495) = RCT(7863) -! B(12496) = dA(7864)/dV(1109) - B(12496) = RCT(7864)*V(5250) -! B(12497) = dA(7864)/dV(5250) - B(12497) = RCT(7864)*V(1109) -! B(12498) = dA(7865)/dV(1109) - B(12498) = RCT(7865) -! B(12499) = dA(7866)/dV(2876) - B(12499) = RCT(7866)*V(5250) -! B(12500) = dA(7866)/dV(5250) - B(12500) = RCT(7866)*V(2876) -! B(12501) = dA(7867)/dV(2876) - B(12501) = RCT(7867) -! B(12502) = dA(7868)/dV(4693) - B(12502) = RCT(7868) -! B(12503) = dA(7869)/dV(4693) - B(12503) = RCT(7869)*V(5250) -! B(12504) = dA(7869)/dV(5250) - B(12504) = RCT(7869)*V(4693) -! B(12505) = dA(7870)/dV(461) - B(12505) = RCT(7870)*V(5250) -! B(12506) = dA(7870)/dV(5250) - B(12506) = RCT(7870)*V(461) -! B(12507) = dA(7871)/dV(1456) - B(12507) = RCT(7871)*V(5250) -! B(12508) = dA(7871)/dV(5250) - B(12508) = RCT(7871)*V(1456) -! B(12509) = dA(7872)/dV(1456) - B(12509) = RCT(7872) -! B(12510) = dA(7873)/dV(3220) - B(12510) = RCT(7873)*V(5250) -! B(12511) = dA(7873)/dV(5250) - B(12511) = RCT(7873)*V(3220) -! B(12512) = dA(7874)/dV(3220) - B(12512) = RCT(7874) -! B(12513) = dA(7875)/dV(4968) - B(12513) = RCT(7875)*V(5255) -! B(12514) = dA(7875)/dV(5255) - B(12514) = RCT(7875)*V(4968) -! B(12515) = dA(7876)/dV(4968) - B(12515) = RCT(7876)*V(5255) -! B(12516) = dA(7876)/dV(5255) - B(12516) = RCT(7876)*V(4968) -! B(12517) = dA(7877)/dV(4968) - B(12517) = RCT(7877)*V(5255) -! B(12518) = dA(7877)/dV(5255) - B(12518) = RCT(7877)*V(4968) -! B(12519) = dA(7878)/dV(4968) - B(12519) = RCT(7878)*V(5252) -! B(12520) = dA(7878)/dV(5252) - B(12520) = RCT(7878)*V(4968) -! B(12521) = dA(7879)/dV(4968) - B(12521) = RCT(7879)*V(5253) -! B(12522) = dA(7879)/dV(5253) - B(12522) = RCT(7879)*V(4968) -! B(12523) = dA(7880)/dV(4968) - B(12523) = RCT(7880)*V(5256) -! B(12524) = dA(7880)/dV(5256) - B(12524) = RCT(7880)*V(4968) -! B(12525) = dA(7881)/dV(4968) - B(12525) = RCT(7881) -! B(12526) = dA(7882)/dV(4968) - B(12526) = RCT(7882) -! B(12527) = dA(7883)/dV(2393) - B(12527) = RCT(7883) -! B(12528) = dA(7884)/dV(2393) - B(12528) = RCT(7884) -! B(12529) = dA(7885)/dV(2393) - B(12529) = RCT(7885) -! B(12530) = dA(7886)/dV(2393) - B(12530) = RCT(7886) -! B(12531) = dA(7887)/dV(4347) - B(12531) = RCT(7887)*V(5255) -! B(12532) = dA(7887)/dV(5255) - B(12532) = RCT(7887)*V(4347) -! B(12533) = dA(7888)/dV(4347) - B(12533) = RCT(7888)*V(5252) -! B(12534) = dA(7888)/dV(5252) - B(12534) = RCT(7888)*V(4347) -! B(12535) = dA(7889)/dV(4347) - B(12535) = RCT(7889)*V(5256) -! B(12536) = dA(7889)/dV(5256) - B(12536) = RCT(7889)*V(4347) -! B(12537) = dA(7890)/dV(4347) - B(12537) = RCT(7890) -! B(12538) = dA(7891)/dV(4347) - B(12538) = RCT(7891) -! B(12539) = dA(7892)/dV(4440) - B(12539) = RCT(7892)*V(5255) -! B(12540) = dA(7892)/dV(5255) - B(12540) = RCT(7892)*V(4440) -! B(12541) = dA(7893)/dV(4440) - B(12541) = RCT(7893)*V(5252) -! B(12542) = dA(7893)/dV(5252) - B(12542) = RCT(7893)*V(4440) -! B(12543) = dA(7894)/dV(4440) - B(12543) = RCT(7894)*V(5256) -! B(12544) = dA(7894)/dV(5256) - B(12544) = RCT(7894)*V(4440) -! B(12545) = dA(7895)/dV(4440) - B(12545) = RCT(7895) -! B(12546) = dA(7896)/dV(4669) - B(12546) = RCT(7896)*V(5255) -! B(12547) = dA(7896)/dV(5255) - B(12547) = RCT(7896)*V(4669) -! B(12548) = dA(7897)/dV(4669) - B(12548) = RCT(7897)*V(5252) -! B(12549) = dA(7897)/dV(5252) - B(12549) = RCT(7897)*V(4669) -! B(12550) = dA(7898)/dV(4669) - B(12550) = RCT(7898)*V(5256) -! B(12551) = dA(7898)/dV(5256) - B(12551) = RCT(7898)*V(4669) -! B(12552) = dA(7899)/dV(4669) - B(12552) = RCT(7899) -! B(12553) = dA(7900)/dV(4669) - B(12553) = RCT(7900) -! B(12554) = dA(7901)/dV(4669) - B(12554) = RCT(7901) -! B(12555) = dA(7902)/dV(4422) - B(12555) = RCT(7902)*V(5255) -! B(12556) = dA(7902)/dV(5255) - B(12556) = RCT(7902)*V(4422) -! B(12557) = dA(7903)/dV(4422) - B(12557) = RCT(7903)*V(5252) -! B(12558) = dA(7903)/dV(5252) - B(12558) = RCT(7903)*V(4422) -! B(12559) = dA(7904)/dV(4422) - B(12559) = RCT(7904)*V(5256) -! B(12560) = dA(7904)/dV(5256) - B(12560) = RCT(7904)*V(4422) -! B(12561) = dA(7905)/dV(4422) - B(12561) = RCT(7905) -! B(12562) = dA(7906)/dV(4422) - B(12562) = RCT(7906) -! B(12563) = dA(7907)/dV(1765) - B(12563) = RCT(7907)*V(5250) -! B(12564) = dA(7907)/dV(5250) - B(12564) = RCT(7907)*V(1765) -! B(12565) = dA(7908)/dV(1765) - B(12565) = RCT(7908) -! B(12566) = dA(7909)/dV(2051) - B(12566) = RCT(7909)*V(5250) -! B(12567) = dA(7909)/dV(5250) - B(12567) = RCT(7909)*V(2051) -! B(12568) = dA(7910)/dV(2051) - B(12568) = RCT(7910) -! B(12569) = dA(7911)/dV(1086) - B(12569) = RCT(7911)*V(5250) -! B(12570) = dA(7911)/dV(5250) - B(12570) = RCT(7911)*V(1086) -! B(12571) = dA(7912)/dV(1086) - B(12571) = RCT(7912) -! B(12572) = dA(7913)/dV(3931) - B(12572) = RCT(7913)*V(5250) -! B(12573) = dA(7913)/dV(5250) - B(12573) = RCT(7913)*V(3931) -! B(12574) = dA(7914)/dV(3931) - B(12574) = RCT(7914) -! B(12575) = dA(7915)/dV(3931) - B(12575) = RCT(7915) -! B(12576) = dA(7916)/dV(3931) - B(12576) = RCT(7916) -! B(12577) = dA(7917)/dV(3930) - B(12577) = RCT(7917) -! B(12578) = dA(7918)/dV(3930) - B(12578) = RCT(7918) -! B(12579) = dA(7919)/dV(3450) - B(12579) = RCT(7919)*V(5250) -! B(12580) = dA(7919)/dV(5250) - B(12580) = RCT(7919)*V(3450) -! B(12581) = dA(7920)/dV(3450) - B(12581) = RCT(7920) -! B(12582) = dA(7921)/dV(3450) - B(12582) = RCT(7921) -! B(12583) = dA(7922)/dV(3821) - B(12583) = RCT(7922)*V(5250) -! B(12584) = dA(7922)/dV(5250) - B(12584) = RCT(7922)*V(3821) -! B(12585) = dA(7923)/dV(3821) - B(12585) = RCT(7923) -! B(12586) = dA(7924)/dV(4690) - B(12586) = RCT(7924)*V(5253) -! B(12587) = dA(7924)/dV(5253) - B(12587) = RCT(7924)*V(4690) -! B(12588) = dA(7925)/dV(4690) - B(12588) = RCT(7925)*V(5258) -! B(12589) = dA(7925)/dV(5258) - B(12589) = RCT(7925)*V(4690) -! B(12590) = dA(7926)/dV(2177) - B(12590) = RCT(7926)*V(5250) -! B(12591) = dA(7926)/dV(5250) - B(12591) = RCT(7926)*V(2177) -! B(12592) = dA(7927)/dV(2177) - B(12592) = RCT(7927) -! B(12593) = dA(7928)/dV(1936) - B(12593) = RCT(7928)*V(5256) -! B(12594) = dA(7928)/dV(5256) - B(12594) = RCT(7928)*V(1936) -! B(12595) = dA(7929)/dV(1936) - B(12595) = RCT(7929)*V(5250) -! B(12596) = dA(7929)/dV(5250) - B(12596) = RCT(7929)*V(1936) -! B(12597) = dA(7930)/dV(3095) - B(12597) = RCT(7930)*V(5256) -! B(12598) = dA(7930)/dV(5256) - B(12598) = RCT(7930)*V(3095) -! B(12599) = dA(7931)/dV(3095) - B(12599) = RCT(7931)*V(5250) -! B(12600) = dA(7931)/dV(5250) - B(12600) = RCT(7931)*V(3095) -! B(12601) = dA(7932)/dV(4033) - B(12601) = RCT(7932)*V(5255) -! B(12602) = dA(7932)/dV(5255) - B(12602) = RCT(7932)*V(4033) -! B(12603) = dA(7933)/dV(4033) - B(12603) = RCT(7933)*V(5252) -! B(12604) = dA(7933)/dV(5252) - B(12604) = RCT(7933)*V(4033) -! B(12605) = dA(7934)/dV(4033) - B(12605) = RCT(7934)*V(5256) -! B(12606) = dA(7934)/dV(5256) - B(12606) = RCT(7934)*V(4033) -! B(12607) = dA(7935)/dV(4033) - B(12607) = RCT(7935) -! B(12608) = dA(7936)/dV(389) - B(12608) = RCT(7936)*V(5250) -! B(12609) = dA(7936)/dV(5250) - B(12609) = RCT(7936)*V(389) -! B(12610) = dA(7937)/dV(1283) - B(12610) = RCT(7937)*V(5250) -! B(12611) = dA(7937)/dV(5250) - B(12611) = RCT(7937)*V(1283) -! B(12612) = dA(7938)/dV(1283) - B(12612) = RCT(7938) -! B(12613) = dA(7939)/dV(2956) - B(12613) = RCT(7939)*V(5250) -! B(12614) = dA(7939)/dV(5250) - B(12614) = RCT(7939)*V(2956) -! B(12615) = dA(7940)/dV(2956) - B(12615) = RCT(7940) -! B(12616) = dA(7941)/dV(3385) - B(12616) = RCT(7941)*V(5250) -! B(12617) = dA(7941)/dV(5250) - B(12617) = RCT(7941)*V(3385) -! B(12618) = dA(7942)/dV(3385) - B(12618) = RCT(7942) -! B(12619) = dA(7943)/dV(1645) - B(12619) = RCT(7943)*V(5253) -! B(12620) = dA(7943)/dV(5253) - B(12620) = RCT(7943)*V(1645) -! B(12621) = dA(7944)/dV(4558) - B(12621) = RCT(7944)*V(5255) -! B(12622) = dA(7944)/dV(5255) - B(12622) = RCT(7944)*V(4558) -! B(12623) = dA(7945)/dV(4558) - B(12623) = RCT(7945)*V(5252) -! B(12624) = dA(7945)/dV(5252) - B(12624) = RCT(7945)*V(4558) -! B(12625) = dA(7946)/dV(4558) - B(12625) = RCT(7946)*V(5256) -! B(12626) = dA(7946)/dV(5256) - B(12626) = RCT(7946)*V(4558) -! B(12627) = dA(7947)/dV(4558) - B(12627) = RCT(7947) -! B(12628) = dA(7948)/dV(4558) - B(12628) = RCT(7948) -! B(12629) = dA(7949)/dV(3739) - B(12629) = RCT(7949)*V(5255) -! B(12630) = dA(7949)/dV(5255) - B(12630) = RCT(7949)*V(3739) -! B(12631) = dA(7950)/dV(3739) - B(12631) = RCT(7950)*V(5252) -! B(12632) = dA(7950)/dV(5252) - B(12632) = RCT(7950)*V(3739) -! B(12633) = dA(7951)/dV(3739) - B(12633) = RCT(7951)*V(5256) -! B(12634) = dA(7951)/dV(5256) - B(12634) = RCT(7951)*V(3739) -! B(12635) = dA(7952)/dV(3739) - B(12635) = RCT(7952) -! B(12636) = dA(7953)/dV(4857) - B(12636) = RCT(7953)*V(5255) -! B(12637) = dA(7953)/dV(5255) - B(12637) = RCT(7953)*V(4857) -! B(12638) = dA(7954)/dV(4857) - B(12638) = RCT(7954)*V(5252) -! B(12639) = dA(7954)/dV(5252) - B(12639) = RCT(7954)*V(4857) -! B(12640) = dA(7955)/dV(4857) - B(12640) = RCT(7955)*V(5256) -! B(12641) = dA(7955)/dV(5256) - B(12641) = RCT(7955)*V(4857) -! B(12642) = dA(7956)/dV(4857) - B(12642) = RCT(7956) -! B(12643) = dA(7957)/dV(4857) - B(12643) = RCT(7957) -! B(12644) = dA(7958)/dV(4857) - B(12644) = RCT(7958) -! B(12645) = dA(7959)/dV(3705) - B(12645) = RCT(7959)*V(5255) -! B(12646) = dA(7959)/dV(5255) - B(12646) = RCT(7959)*V(3705) -! B(12647) = dA(7960)/dV(3705) - B(12647) = RCT(7960)*V(5252) -! B(12648) = dA(7960)/dV(5252) - B(12648) = RCT(7960)*V(3705) -! B(12649) = dA(7961)/dV(3705) - B(12649) = RCT(7961)*V(5256) -! B(12650) = dA(7961)/dV(5256) - B(12650) = RCT(7961)*V(3705) -! B(12651) = dA(7962)/dV(3705) - B(12651) = RCT(7962) -! B(12652) = dA(7963)/dV(3705) - B(12652) = RCT(7963) -! B(12653) = dA(7964)/dV(3677) - B(12653) = RCT(7964)*V(5255) -! B(12654) = dA(7964)/dV(5255) - B(12654) = RCT(7964)*V(3677) -! B(12655) = dA(7965)/dV(3677) - B(12655) = RCT(7965)*V(5252) -! B(12656) = dA(7965)/dV(5252) - B(12656) = RCT(7965)*V(3677) -! B(12657) = dA(7966)/dV(3677) - B(12657) = RCT(7966)*V(5256) -! B(12658) = dA(7966)/dV(5256) - B(12658) = RCT(7966)*V(3677) -! B(12659) = dA(7967)/dV(3677) - B(12659) = RCT(7967) -! B(12660) = dA(7968)/dV(4550) - B(12660) = RCT(7968)*V(5255) -! B(12661) = dA(7968)/dV(5255) - B(12661) = RCT(7968)*V(4550) -! B(12662) = dA(7969)/dV(4550) - B(12662) = RCT(7969)*V(5252) -! B(12663) = dA(7969)/dV(5252) - B(12663) = RCT(7969)*V(4550) -! B(12664) = dA(7970)/dV(4550) - B(12664) = RCT(7970)*V(5256) -! B(12665) = dA(7970)/dV(5256) - B(12665) = RCT(7970)*V(4550) -! B(12666) = dA(7971)/dV(4550) - B(12666) = RCT(7971) -! B(12667) = dA(7972)/dV(3695) - B(12667) = RCT(7972)*V(5255) -! B(12668) = dA(7972)/dV(5255) - B(12668) = RCT(7972)*V(3695) -! B(12669) = dA(7973)/dV(3695) - B(12669) = RCT(7973)*V(5252) -! B(12670) = dA(7973)/dV(5252) - B(12670) = RCT(7973)*V(3695) -! B(12671) = dA(7974)/dV(3695) - B(12671) = RCT(7974)*V(5256) -! B(12672) = dA(7974)/dV(5256) - B(12672) = RCT(7974)*V(3695) -! B(12673) = dA(7975)/dV(3695) - B(12673) = RCT(7975) -! B(12674) = dA(7976)/dV(3695) - B(12674) = RCT(7976) -! B(12675) = dA(7977)/dV(3582) - B(12675) = RCT(7977) -! B(12676) = dA(7978)/dV(3582) - B(12676) = RCT(7978) -! B(12677) = dA(7979)/dV(3475) - B(12677) = RCT(7979)*V(5250) -! B(12678) = dA(7979)/dV(5250) - B(12678) = RCT(7979)*V(3475) -! B(12679) = dA(7980)/dV(3475) - B(12679) = RCT(7980) -! B(12680) = dA(7981)/dV(3475) - B(12680) = RCT(7981) -! B(12681) = dA(7982)/dV(2830) - B(12681) = RCT(7982)*V(5250) -! B(12682) = dA(7982)/dV(5250) - B(12682) = RCT(7982)*V(2830) -! B(12683) = dA(7983)/dV(2830) - B(12683) = RCT(7983) -! B(12684) = dA(7984)/dV(1084) - B(12684) = RCT(7984)*V(5250) -! B(12685) = dA(7984)/dV(5250) - B(12685) = RCT(7984)*V(1084) -! B(12686) = dA(7985)/dV(1084) - B(12686) = RCT(7985) -! B(12687) = dA(7986)/dV(915) - B(12687) = RCT(7986)*V(5250) -! B(12688) = dA(7986)/dV(5250) - B(12688) = RCT(7986)*V(915) -! B(12689) = dA(7987)/dV(915) - B(12689) = RCT(7987) -! B(12690) = dA(7988)/dV(2904) - B(12690) = RCT(7988)*V(5250) -! B(12691) = dA(7988)/dV(5250) - B(12691) = RCT(7988)*V(2904) -! B(12692) = dA(7989)/dV(2904) - B(12692) = RCT(7989) -! B(12693) = dA(7990)/dV(4125) - B(12693) = RCT(7990)*V(5250) -! B(12694) = dA(7990)/dV(5250) - B(12694) = RCT(7990)*V(4125) -! B(12695) = dA(7991)/dV(4125) - B(12695) = RCT(7991) -! B(12696) = dA(7992)/dV(4125) - B(12696) = RCT(7992) -! B(12697) = dA(7993)/dV(1810) - B(12697) = RCT(7993) -! B(12698) = dA(7994)/dV(4671) - B(12698) = RCT(7994)*V(5253) -! B(12699) = dA(7994)/dV(5253) - B(12699) = RCT(7994)*V(4671) -! B(12700) = dA(7995)/dV(4671) - B(12700) = RCT(7995)*V(5258) -! B(12701) = dA(7995)/dV(5258) - B(12701) = RCT(7995)*V(4671) -! B(12702) = dA(7996)/dV(1419) - B(12702) = RCT(7996)*V(5250) -! B(12703) = dA(7996)/dV(5250) - B(12703) = RCT(7996)*V(1419) -! B(12704) = dA(7997)/dV(1419) - B(12704) = RCT(7997) -! B(12705) = dA(7998)/dV(2464) - B(12705) = RCT(7998)*V(5256) -! B(12706) = dA(7998)/dV(5256) - B(12706) = RCT(7998)*V(2464) -! B(12707) = dA(7999)/dV(2464) - B(12707) = RCT(7999)*V(5250) -! B(12708) = dA(7999)/dV(5250) - B(12708) = RCT(7999)*V(2464) -! B(12709) = dA(8000)/dV(3119) - B(12709) = RCT(8000)*V(5256) -! B(12710) = dA(8000)/dV(5256) - B(12710) = RCT(8000)*V(3119) -! B(12711) = dA(8001)/dV(3119) - B(12711) = RCT(8001)*V(5250) -! B(12712) = dA(8001)/dV(5250) - B(12712) = RCT(8001)*V(3119) -! B(12713) = dA(8002)/dV(4073) - B(12713) = RCT(8002)*V(5255) -! B(12714) = dA(8002)/dV(5255) - B(12714) = RCT(8002)*V(4073) -! B(12715) = dA(8003)/dV(4073) - B(12715) = RCT(8003)*V(5252) -! B(12716) = dA(8003)/dV(5252) - B(12716) = RCT(8003)*V(4073) -! B(12717) = dA(8004)/dV(4073) - B(12717) = RCT(8004)*V(5256) -! B(12718) = dA(8004)/dV(5256) - B(12718) = RCT(8004)*V(4073) -! B(12719) = dA(8005)/dV(4073) - B(12719) = RCT(8005) -! B(12720) = dA(8006)/dV(4014) - B(12720) = RCT(8006)*V(5250) -! B(12721) = dA(8006)/dV(5250) - B(12721) = RCT(8006)*V(4014) -! B(12722) = dA(8007)/dV(4014) - B(12722) = RCT(8007) -! B(12723) = dA(8008)/dV(341) - B(12723) = RCT(8008)*V(5250) -! B(12724) = dA(8008)/dV(5250) - B(12724) = RCT(8008)*V(341) -! B(12725) = dA(8009)/dV(1002) - B(12725) = RCT(8009)*V(5250) -! B(12726) = dA(8009)/dV(5250) - B(12726) = RCT(8009)*V(1002) -! B(12727) = dA(8010)/dV(1002) - B(12727) = RCT(8010) -! B(12728) = dA(8011)/dV(3229) - B(12728) = RCT(8011)*V(5250) -! B(12729) = dA(8011)/dV(5250) - B(12729) = RCT(8011)*V(3229) -! B(12730) = dA(8012)/dV(3229) - B(12730) = RCT(8012) -! B(12731) = dA(8013)/dV(2102) - B(12731) = RCT(8013)*V(5250) -! B(12732) = dA(8013)/dV(5250) - B(12732) = RCT(8013)*V(2102) -! B(12733) = dA(8014)/dV(2102) - B(12733) = RCT(8014) -! B(12734) = dA(8015)/dV(3456) - B(12734) = RCT(8015)*V(5253) -! B(12735) = dA(8015)/dV(5253) - B(12735) = RCT(8015)*V(3456) -! B(12736) = dA(8016)/dV(4706) - B(12736) = RCT(8016)*V(5255) -! B(12737) = dA(8016)/dV(5255) - B(12737) = RCT(8016)*V(4706) -! B(12738) = dA(8017)/dV(4706) - B(12738) = RCT(8017)*V(5252) -! B(12739) = dA(8017)/dV(5252) - B(12739) = RCT(8017)*V(4706) -! B(12740) = dA(8018)/dV(4706) - B(12740) = RCT(8018)*V(5256) -! B(12741) = dA(8018)/dV(5256) - B(12741) = RCT(8018)*V(4706) -! B(12742) = dA(8019)/dV(4706) - B(12742) = RCT(8019) -! B(12743) = dA(8020)/dV(4706) - B(12743) = RCT(8020) -! B(12744) = dA(8021)/dV(4706) - B(12744) = RCT(8021) -! B(12745) = dA(8022)/dV(4676) - B(12745) = RCT(8022)*V(5253) -! B(12746) = dA(8022)/dV(5253) - B(12746) = RCT(8022)*V(4676) -! B(12747) = dA(8023)/dV(4676) - B(12747) = RCT(8023)*V(5258) -! B(12748) = dA(8023)/dV(5258) - B(12748) = RCT(8023)*V(4676) -! B(12749) = dA(8024)/dV(854) - B(12749) = RCT(8024)*V(5250) -! B(12750) = dA(8024)/dV(5250) - B(12750) = RCT(8024)*V(854) -! B(12751) = dA(8025)/dV(854) - B(12751) = RCT(8025) -! B(12752) = dA(8026)/dV(2167) - B(12752) = RCT(8026)*V(5256) -! B(12753) = dA(8026)/dV(5256) - B(12753) = RCT(8026)*V(2167) -! B(12754) = dA(8027)/dV(2167) - B(12754) = RCT(8027)*V(5250) -! B(12755) = dA(8027)/dV(5250) - B(12755) = RCT(8027)*V(2167) -! B(12756) = dA(8028)/dV(3112) - B(12756) = RCT(8028)*V(5256) -! B(12757) = dA(8028)/dV(5256) - B(12757) = RCT(8028)*V(3112) -! B(12758) = dA(8029)/dV(3112) - B(12758) = RCT(8029)*V(5250) -! B(12759) = dA(8029)/dV(5250) - B(12759) = RCT(8029)*V(3112) -! B(12760) = dA(8030)/dV(4002) - B(12760) = RCT(8030)*V(5255) -! B(12761) = dA(8030)/dV(5255) - B(12761) = RCT(8030)*V(4002) -! B(12762) = dA(8031)/dV(4002) - B(12762) = RCT(8031)*V(5252) -! B(12763) = dA(8031)/dV(5252) - B(12763) = RCT(8031)*V(4002) -! B(12764) = dA(8032)/dV(4002) - B(12764) = RCT(8032)*V(5256) -! B(12765) = dA(8032)/dV(5256) - B(12765) = RCT(8032)*V(4002) -! B(12766) = dA(8033)/dV(4002) - B(12766) = RCT(8033) -! B(12767) = dA(8034)/dV(276) - B(12767) = RCT(8034)*V(5250) -! B(12768) = dA(8034)/dV(5250) - B(12768) = RCT(8034)*V(276) -! B(12769) = dA(8035)/dV(867) - B(12769) = RCT(8035)*V(5250) -! B(12770) = dA(8035)/dV(5250) - B(12770) = RCT(8035)*V(867) -! B(12771) = dA(8036)/dV(867) - B(12771) = RCT(8036) -! B(12772) = dA(8037)/dV(2780) - B(12772) = RCT(8037)*V(5250) -! B(12773) = dA(8037)/dV(5250) - B(12773) = RCT(8037)*V(2780) -! B(12774) = dA(8038)/dV(2780) - B(12774) = RCT(8038) -! B(12775) = dA(8039)/dV(4797) - B(12775) = RCT(8039)*V(5253) -! B(12776) = dA(8039)/dV(5253) - B(12776) = RCT(8039)*V(4797) -! B(12777) = dA(8040)/dV(4797) - B(12777) = RCT(8040)*V(5258) -! B(12778) = dA(8040)/dV(5258) - B(12778) = RCT(8040)*V(4797) -! B(12779) = dA(8041)/dV(1476) - B(12779) = RCT(8041)*V(5250) -! B(12780) = dA(8041)/dV(5250) - B(12780) = RCT(8041)*V(1476) -! B(12781) = dA(8042)/dV(1476) - B(12781) = RCT(8042) -! B(12782) = dA(8043)/dV(4047) - B(12782) = RCT(8043)*V(5250) -! B(12783) = dA(8043)/dV(5250) - B(12783) = RCT(8043)*V(4047) -! B(12784) = dA(8044)/dV(4047) - B(12784) = RCT(8044) -! B(12785) = dA(8045)/dV(1805) - B(12785) = RCT(8045)*V(5256) -! B(12786) = dA(8045)/dV(5256) - B(12786) = RCT(8045)*V(1805) -! B(12787) = dA(8046)/dV(1805) - B(12787) = RCT(8046)*V(5250) -! B(12788) = dA(8046)/dV(5250) - B(12788) = RCT(8046)*V(1805) -! B(12789) = dA(8047)/dV(3162) - B(12789) = RCT(8047)*V(5256) -! B(12790) = dA(8047)/dV(5256) - B(12790) = RCT(8047)*V(3162) -! B(12791) = dA(8048)/dV(3162) - B(12791) = RCT(8048)*V(5250) -! B(12792) = dA(8048)/dV(5250) - B(12792) = RCT(8048)*V(3162) -! B(12793) = dA(8049)/dV(4057) - B(12793) = RCT(8049)*V(5255) -! B(12794) = dA(8049)/dV(5255) - B(12794) = RCT(8049)*V(4057) -! B(12795) = dA(8050)/dV(4057) - B(12795) = RCT(8050)*V(5252) -! B(12796) = dA(8050)/dV(5252) - B(12796) = RCT(8050)*V(4057) -! B(12797) = dA(8051)/dV(4057) - B(12797) = RCT(8051)*V(5256) -! B(12798) = dA(8051)/dV(5256) - B(12798) = RCT(8051)*V(4057) -! B(12799) = dA(8052)/dV(4057) - B(12799) = RCT(8052) -! B(12800) = dA(8053)/dV(3230) - B(12800) = RCT(8053)*V(5250) -! B(12801) = dA(8053)/dV(5250) - B(12801) = RCT(8053)*V(3230) -! B(12802) = dA(8054)/dV(3230) - B(12802) = RCT(8054) -! B(12803) = dA(8055)/dV(4877) - B(12803) = RCT(8055)*V(5255) -! B(12804) = dA(8055)/dV(5255) - B(12804) = RCT(8055)*V(4877) -! B(12805) = dA(8056)/dV(4877) - B(12805) = RCT(8056)*V(5252) -! B(12806) = dA(8056)/dV(5252) - B(12806) = RCT(8056)*V(4877) -! B(12807) = dA(8057)/dV(4877) - B(12807) = RCT(8057)*V(5256) -! B(12808) = dA(8057)/dV(5256) - B(12808) = RCT(8057)*V(4877) -! B(12809) = dA(8058)/dV(4877) - B(12809) = RCT(8058) -! B(12810) = dA(8059)/dV(4877) - B(12810) = RCT(8059) -! B(12811) = dA(8060)/dV(4877) - B(12811) = RCT(8060) -! B(12812) = dA(8061)/dV(3713) - B(12812) = RCT(8061)*V(5255) -! B(12813) = dA(8061)/dV(5255) - B(12813) = RCT(8061)*V(3713) -! B(12814) = dA(8062)/dV(3713) - B(12814) = RCT(8062)*V(5252) -! B(12815) = dA(8062)/dV(5252) - B(12815) = RCT(8062)*V(3713) -! B(12816) = dA(8063)/dV(3713) - B(12816) = RCT(8063)*V(5256) -! B(12817) = dA(8063)/dV(5256) - B(12817) = RCT(8063)*V(3713) -! B(12818) = dA(8064)/dV(3713) - B(12818) = RCT(8064) -! B(12819) = dA(8065)/dV(4661) - B(12819) = RCT(8065)*V(5255) -! B(12820) = dA(8065)/dV(5255) - B(12820) = RCT(8065)*V(4661) -! B(12821) = dA(8066)/dV(4661) - B(12821) = RCT(8066)*V(5252) -! B(12822) = dA(8066)/dV(5252) - B(12822) = RCT(8066)*V(4661) -! B(12823) = dA(8067)/dV(4661) - B(12823) = RCT(8067)*V(5256) -! B(12824) = dA(8067)/dV(5256) - B(12824) = RCT(8067)*V(4661) -! B(12825) = dA(8068)/dV(4661) - B(12825) = RCT(8068) -! B(12826) = dA(8069)/dV(4661) - B(12826) = RCT(8069) -! B(12827) = dA(8070)/dV(4661) - B(12827) = RCT(8070) -! B(12828) = dA(8071)/dV(3727) - B(12828) = RCT(8071)*V(5255) -! B(12829) = dA(8071)/dV(5255) - B(12829) = RCT(8071)*V(3727) -! B(12830) = dA(8072)/dV(3727) - B(12830) = RCT(8072)*V(5252) -! B(12831) = dA(8072)/dV(5252) - B(12831) = RCT(8072)*V(3727) -! B(12832) = dA(8073)/dV(3727) - B(12832) = RCT(8073)*V(5256) -! B(12833) = dA(8073)/dV(5256) - B(12833) = RCT(8073)*V(3727) -! B(12834) = dA(8074)/dV(3727) - B(12834) = RCT(8074) -! B(12835) = dA(8075)/dV(3727) - B(12835) = RCT(8075) -! B(12836) = dA(8076)/dV(3727) - B(12836) = RCT(8076) -! B(12837) = dA(8077)/dV(4062) - B(12837) = RCT(8077) -! B(12838) = dA(8078)/dV(4062) - B(12838) = RCT(8078) -! B(12839) = dA(8079)/dV(3458) - B(12839) = RCT(8079)*V(5250) -! B(12840) = dA(8079)/dV(5250) - B(12840) = RCT(8079)*V(3458) -! B(12841) = dA(8080)/dV(3458) - B(12841) = RCT(8080) -! B(12842) = dA(8081)/dV(3458) - B(12842) = RCT(8081) -! B(12843) = dA(8082)/dV(2582) - B(12843) = RCT(8082)*V(5250) -! B(12844) = dA(8082)/dV(5250) - B(12844) = RCT(8082)*V(2582) -! B(12845) = dA(8083)/dV(2582) - B(12845) = RCT(8083) -! B(12846) = dA(8084)/dV(4403) - B(12846) = RCT(8084)*V(5250) -! B(12847) = dA(8084)/dV(5250) - B(12847) = RCT(8084)*V(4403) -! B(12848) = dA(8085)/dV(4403) - B(12848) = RCT(8085) -! B(12849) = dA(8086)/dV(4728) - B(12849) = RCT(8086)*V(5250) -! B(12850) = dA(8086)/dV(5250) - B(12850) = RCT(8086)*V(4728) -! B(12851) = dA(8087)/dV(4728) - B(12851) = RCT(8087) -! B(12852) = dA(8088)/dV(4728) - B(12852) = RCT(8088) -! B(12853) = dA(8089)/dV(3860) - B(12853) = RCT(8089)*V(5255) -! B(12854) = dA(8089)/dV(5255) - B(12854) = RCT(8089)*V(3860) -! B(12855) = dA(8090)/dV(3860) - B(12855) = RCT(8090)*V(5252) -! B(12856) = dA(8090)/dV(5252) - B(12856) = RCT(8090)*V(3860) -! B(12857) = dA(8091)/dV(3860) - B(12857) = RCT(8091)*V(5256) -! B(12858) = dA(8091)/dV(5256) - B(12858) = RCT(8091)*V(3860) -! B(12859) = dA(8092)/dV(3860) - B(12859) = RCT(8092) -! B(12860) = dA(8093)/dV(2204) - B(12860) = RCT(8093)*V(5250) -! B(12861) = dA(8093)/dV(5250) - B(12861) = RCT(8093)*V(2204) -! B(12862) = dA(8094)/dV(2204) - B(12862) = RCT(8094) -! B(12863) = dA(8095)/dV(787) - B(12863) = RCT(8095) -! B(12864) = dA(8096)/dV(2295) - B(12864) = RCT(8096)*V(5250) -! B(12865) = dA(8096)/dV(5250) - B(12865) = RCT(8096)*V(2295) -! B(12866) = dA(8097)/dV(2295) - B(12866) = RCT(8097) -! B(12867) = dA(8098)/dV(358) - B(12867) = RCT(8098)*V(5250) -! B(12868) = dA(8098)/dV(5250) - B(12868) = RCT(8098)*V(358) -! B(12869) = dA(8099)/dV(3800) - B(12869) = RCT(8099)*V(5250) -! B(12870) = dA(8099)/dV(5250) - B(12870) = RCT(8099)*V(3800) -! B(12871) = dA(8100)/dV(3800) - B(12871) = RCT(8100) -! B(12872) = dA(8101)/dV(4791) - B(12872) = RCT(8101)*V(5253) -! B(12873) = dA(8101)/dV(5253) - B(12873) = RCT(8101)*V(4791) -! B(12874) = dA(8102)/dV(4791) - B(12874) = RCT(8102)*V(5258) -! B(12875) = dA(8102)/dV(5258) - B(12875) = RCT(8102)*V(4791) -! B(12876) = dA(8103)/dV(1188) - B(12876) = RCT(8103)*V(5250) -! B(12877) = dA(8103)/dV(5250) - B(12877) = RCT(8103)*V(1188) -! B(12878) = dA(8104)/dV(1188) - B(12878) = RCT(8104) -! B(12879) = dA(8105)/dV(2274) - B(12879) = RCT(8105)*V(5256) -! B(12880) = dA(8105)/dV(5256) - B(12880) = RCT(8105)*V(2274) -! B(12881) = dA(8106)/dV(2274) - B(12881) = RCT(8106)*V(5250) -! B(12882) = dA(8106)/dV(5250) - B(12882) = RCT(8106)*V(2274) -! B(12883) = dA(8107)/dV(3123) - B(12883) = RCT(8107)*V(5256) -! B(12884) = dA(8107)/dV(5256) - B(12884) = RCT(8107)*V(3123) -! B(12885) = dA(8108)/dV(3123) - B(12885) = RCT(8108)*V(5250) -! B(12886) = dA(8108)/dV(5250) - B(12886) = RCT(8108)*V(3123) -! B(12887) = dA(8109)/dV(4065) - B(12887) = RCT(8109)*V(5255) -! B(12888) = dA(8109)/dV(5255) - B(12888) = RCT(8109)*V(4065) -! B(12889) = dA(8110)/dV(4065) - B(12889) = RCT(8110)*V(5252) -! B(12890) = dA(8110)/dV(5252) - B(12890) = RCT(8110)*V(4065) -! B(12891) = dA(8111)/dV(4065) - B(12891) = RCT(8111)*V(5256) -! B(12892) = dA(8111)/dV(5256) - B(12892) = RCT(8111)*V(4065) -! B(12893) = dA(8112)/dV(4065) - B(12893) = RCT(8112) -! B(12894) = dA(8113)/dV(2936) - B(12894) = RCT(8113)*V(5250) -! B(12895) = dA(8113)/dV(5250) - B(12895) = RCT(8113)*V(2936) -! B(12896) = dA(8114)/dV(2936) - B(12896) = RCT(8114) -! B(12897) = dA(8115)/dV(2104) - B(12897) = RCT(8115) -! B(12898) = dA(8116)/dV(2104) - B(12898) = RCT(8116) -! B(12899) = dA(8117)/dV(2104) - B(12899) = RCT(8117) -! B(12900) = dA(8118)/dV(2104) - B(12900) = RCT(8118) -! B(12901) = dA(8119)/dV(4165) - B(12901) = RCT(8119)*V(5255) -! B(12902) = dA(8119)/dV(5255) - B(12902) = RCT(8119)*V(4165) -! B(12903) = dA(8120)/dV(4165) - B(12903) = RCT(8120)*V(5252) -! B(12904) = dA(8120)/dV(5252) - B(12904) = RCT(8120)*V(4165) -! B(12905) = dA(8121)/dV(4165) - B(12905) = RCT(8121)*V(5256) -! B(12906) = dA(8121)/dV(5256) - B(12906) = RCT(8121)*V(4165) -! B(12907) = dA(8122)/dV(4165) - B(12907) = RCT(8122) -! B(12908) = dA(8123)/dV(4165) - B(12908) = RCT(8123) -! B(12909) = dA(8124)/dV(4165) - B(12909) = RCT(8124) -! B(12910) = dA(8125)/dV(3772) - B(12910) = RCT(8125)*V(5255) -! B(12911) = dA(8125)/dV(5255) - B(12911) = RCT(8125)*V(3772) -! B(12912) = dA(8126)/dV(3772) - B(12912) = RCT(8126)*V(5252) -! B(12913) = dA(8126)/dV(5252) - B(12913) = RCT(8126)*V(3772) -! B(12914) = dA(8127)/dV(3772) - B(12914) = RCT(8127)*V(5256) -! B(12915) = dA(8127)/dV(5256) - B(12915) = RCT(8127)*V(3772) -! B(12916) = dA(8128)/dV(3772) - B(12916) = RCT(8128) -! B(12917) = dA(8129)/dV(4689) - B(12917) = RCT(8129)*V(5255) -! B(12918) = dA(8129)/dV(5255) - B(12918) = RCT(8129)*V(4689) -! B(12919) = dA(8130)/dV(4689) - B(12919) = RCT(8130)*V(5252) -! B(12920) = dA(8130)/dV(5252) - B(12920) = RCT(8130)*V(4689) -! B(12921) = dA(8131)/dV(4689) - B(12921) = RCT(8131)*V(5256) -! B(12922) = dA(8131)/dV(5256) - B(12922) = RCT(8131)*V(4689) -! B(12923) = dA(8132)/dV(4689) - B(12923) = RCT(8132) -! B(12924) = dA(8133)/dV(4689) - B(12924) = RCT(8133) -! B(12925) = dA(8134)/dV(4689) - B(12925) = RCT(8134) -! B(12926) = dA(8135)/dV(3696) - B(12926) = RCT(8135)*V(5255) -! B(12927) = dA(8135)/dV(5255) - B(12927) = RCT(8135)*V(3696) -! B(12928) = dA(8136)/dV(3696) - B(12928) = RCT(8136)*V(5252) -! B(12929) = dA(8136)/dV(5252) - B(12929) = RCT(8136)*V(3696) -! B(12930) = dA(8137)/dV(3696) - B(12930) = RCT(8137)*V(5256) -! B(12931) = dA(8137)/dV(5256) - B(12931) = RCT(8137)*V(3696) -! B(12932) = dA(8138)/dV(3696) - B(12932) = RCT(8138) -! B(12933) = dA(8139)/dV(3696) - B(12933) = RCT(8139) -! B(12934) = dA(8140)/dV(3696) - B(12934) = RCT(8140) -! B(12935) = dA(8141)/dV(4029) - B(12935) = RCT(8141) -! B(12936) = dA(8142)/dV(4029) - B(12936) = RCT(8142) -! B(12937) = dA(8143)/dV(3225) - B(12937) = RCT(8143)*V(5250) -! B(12938) = dA(8143)/dV(5250) - B(12938) = RCT(8143)*V(3225) -! B(12939) = dA(8144)/dV(3225) - B(12939) = RCT(8144) -! B(12940) = dA(8145)/dV(3225) - B(12940) = RCT(8145) -! B(12941) = dA(8146)/dV(2689) - B(12941) = RCT(8146)*V(5250) -! B(12942) = dA(8146)/dV(5250) - B(12942) = RCT(8146)*V(2689) -! B(12943) = dA(8147)/dV(2689) - B(12943) = RCT(8147) -! B(12944) = dA(8148)/dV(862) - B(12944) = RCT(8148)*V(5250) -! B(12945) = dA(8148)/dV(5250) - B(12945) = RCT(8148)*V(862) -! B(12946) = dA(8149)/dV(862) - B(12946) = RCT(8149) -! B(12947) = dA(8150)/dV(2474) - B(12947) = RCT(8150)*V(5250) -! B(12948) = dA(8150)/dV(5250) - B(12948) = RCT(8150)*V(2474) -! B(12949) = dA(8151)/dV(2474) - B(12949) = RCT(8151) -! B(12950) = dA(8152)/dV(2474) - B(12950) = RCT(8152) -! B(12951) = dA(8153)/dV(3973) - B(12951) = RCT(8153)*V(5255) -! B(12952) = dA(8153)/dV(5255) - B(12952) = RCT(8153)*V(3973) -! B(12953) = dA(8154)/dV(3973) - B(12953) = RCT(8154)*V(5252) -! B(12954) = dA(8154)/dV(5252) - B(12954) = RCT(8154)*V(3973) -! B(12955) = dA(8155)/dV(3973) - B(12955) = RCT(8155)*V(5256) -! B(12956) = dA(8155)/dV(5256) - B(12956) = RCT(8155)*V(3973) -! B(12957) = dA(8156)/dV(3973) - B(12957) = RCT(8156) -! B(12958) = dA(8157)/dV(4069) - B(12958) = RCT(8157)*V(5255) -! B(12959) = dA(8157)/dV(5255) - B(12959) = RCT(8157)*V(4069) -! B(12960) = dA(8158)/dV(4069) - B(12960) = RCT(8158)*V(5252) -! B(12961) = dA(8158)/dV(5252) - B(12961) = RCT(8158)*V(4069) -! B(12962) = dA(8159)/dV(4069) - B(12962) = RCT(8159)*V(5256) -! B(12963) = dA(8159)/dV(5256) - B(12963) = RCT(8159)*V(4069) -! B(12964) = dA(8160)/dV(4069) - B(12964) = RCT(8160) -! B(12965) = dA(8161)/dV(4069) - B(12965) = RCT(8161) -! B(12966) = dA(8162)/dV(4069) - B(12966) = RCT(8162) -! B(12967) = dA(8163)/dV(4790) - B(12967) = RCT(8163)*V(5253) -! B(12968) = dA(8163)/dV(5253) - B(12968) = RCT(8163)*V(4790) -! B(12969) = dA(8164)/dV(4790) - B(12969) = RCT(8164)*V(5258) -! B(12970) = dA(8164)/dV(5258) - B(12970) = RCT(8164)*V(4790) -! B(12971) = dA(8165)/dV(1303) - B(12971) = RCT(8165)*V(5250) -! B(12972) = dA(8165)/dV(5250) - B(12972) = RCT(8165)*V(1303) -! B(12973) = dA(8166)/dV(1303) - B(12973) = RCT(8166) -! B(12974) = dA(8167)/dV(3816) - B(12974) = RCT(8167)*V(5250) -! B(12975) = dA(8167)/dV(5250) - B(12975) = RCT(8167)*V(3816) -! B(12976) = dA(8168)/dV(3816) - B(12976) = RCT(8168) -! B(12977) = dA(8169)/dV(2398) - B(12977) = RCT(8169)*V(5256) -! B(12978) = dA(8169)/dV(5256) - B(12978) = RCT(8169)*V(2398) -! B(12979) = dA(8170)/dV(2398) - B(12979) = RCT(8170)*V(5250) -! B(12980) = dA(8170)/dV(5250) - B(12980) = RCT(8170)*V(2398) -! B(12981) = dA(8171)/dV(3100) - B(12981) = RCT(8171)*V(5256) -! B(12982) = dA(8171)/dV(5256) - B(12982) = RCT(8171)*V(3100) -! B(12983) = dA(8172)/dV(3100) - B(12983) = RCT(8172)*V(5250) -! B(12984) = dA(8172)/dV(5250) - B(12984) = RCT(8172)*V(3100) -! B(12985) = dA(8173)/dV(3997) - B(12985) = RCT(8173)*V(5255) -! B(12986) = dA(8173)/dV(5255) - B(12986) = RCT(8173)*V(3997) -! B(12987) = dA(8174)/dV(3997) - B(12987) = RCT(8174)*V(5252) -! B(12988) = dA(8174)/dV(5252) - B(12988) = RCT(8174)*V(3997) -! B(12989) = dA(8175)/dV(3997) - B(12989) = RCT(8175)*V(5256) -! B(12990) = dA(8175)/dV(5256) - B(12990) = RCT(8175)*V(3997) -! B(12991) = dA(8176)/dV(3997) - B(12991) = RCT(8176) -! B(12992) = dA(8177)/dV(2927) - B(12992) = RCT(8177)*V(5250) -! B(12993) = dA(8177)/dV(5250) - B(12993) = RCT(8177)*V(2927) -! B(12994) = dA(8178)/dV(2927) - B(12994) = RCT(8178) -! B(12995) = dA(8179)/dV(4141) - B(12995) = RCT(8179)*V(5255) -! B(12996) = dA(8179)/dV(5255) - B(12996) = RCT(8179)*V(4141) -! B(12997) = dA(8180)/dV(4141) - B(12997) = RCT(8180)*V(5252) -! B(12998) = dA(8180)/dV(5252) - B(12998) = RCT(8180)*V(4141) -! B(12999) = dA(8181)/dV(4141) - B(12999) = RCT(8181)*V(5256) -! B(13000) = dA(8181)/dV(5256) - B(13000) = RCT(8181)*V(4141) -! B(13001) = dA(8182)/dV(4141) - B(13001) = RCT(8182) -! B(13002) = dA(8183)/dV(4141) - B(13002) = RCT(8183) -! B(13003) = dA(8184)/dV(4141) - B(13003) = RCT(8184) -! B(13004) = dA(8185)/dV(3774) - B(13004) = RCT(8185)*V(5255) -! B(13005) = dA(8185)/dV(5255) - B(13005) = RCT(8185)*V(3774) -! B(13006) = dA(8186)/dV(3774) - B(13006) = RCT(8186)*V(5252) -! B(13007) = dA(8186)/dV(5252) - B(13007) = RCT(8186)*V(3774) -! B(13008) = dA(8187)/dV(3774) - B(13008) = RCT(8187)*V(5256) -! B(13009) = dA(8187)/dV(5256) - B(13009) = RCT(8187)*V(3774) -! B(13010) = dA(8188)/dV(3774) - B(13010) = RCT(8188) -! B(13011) = dA(8189)/dV(4688) - B(13011) = RCT(8189)*V(5255) -! B(13012) = dA(8189)/dV(5255) - B(13012) = RCT(8189)*V(4688) -! B(13013) = dA(8190)/dV(4688) - B(13013) = RCT(8190)*V(5252) -! B(13014) = dA(8190)/dV(5252) - B(13014) = RCT(8190)*V(4688) -! B(13015) = dA(8191)/dV(4688) - B(13015) = RCT(8191)*V(5256) -! B(13016) = dA(8191)/dV(5256) - B(13016) = RCT(8191)*V(4688) -! B(13017) = dA(8192)/dV(4688) - B(13017) = RCT(8192) -! B(13018) = dA(8193)/dV(4688) - B(13018) = RCT(8193) -! B(13019) = dA(8194)/dV(4688) - B(13019) = RCT(8194) -! B(13020) = dA(8195)/dV(3762) - B(13020) = RCT(8195)*V(5255) -! B(13021) = dA(8195)/dV(5255) - B(13021) = RCT(8195)*V(3762) -! B(13022) = dA(8196)/dV(3762) - B(13022) = RCT(8196)*V(5252) -! B(13023) = dA(8196)/dV(5252) - B(13023) = RCT(8196)*V(3762) -! B(13024) = dA(8197)/dV(3762) - B(13024) = RCT(8197)*V(5256) -! B(13025) = dA(8197)/dV(5256) - B(13025) = RCT(8197)*V(3762) -! B(13026) = dA(8198)/dV(3762) - B(13026) = RCT(8198) -! B(13027) = dA(8199)/dV(3762) - B(13027) = RCT(8199) -! B(13028) = dA(8200)/dV(3762) - B(13028) = RCT(8200) -! B(13029) = dA(8201)/dV(4086) - B(13029) = RCT(8201) -! B(13030) = dA(8202)/dV(4086) - B(13030) = RCT(8202) -! B(13031) = dA(8203)/dV(3226) - B(13031) = RCT(8203)*V(5250) -! B(13032) = dA(8203)/dV(5250) - B(13032) = RCT(8203)*V(3226) -! B(13033) = dA(8204)/dV(3226) - B(13033) = RCT(8204) -! B(13034) = dA(8205)/dV(3226) - B(13034) = RCT(8205) -! B(13035) = dA(8206)/dV(2808) - B(13035) = RCT(8206)*V(5250) -! B(13036) = dA(8206)/dV(5250) - B(13036) = RCT(8206)*V(2808) -! B(13037) = dA(8207)/dV(2808) - B(13037) = RCT(8207) -! B(13038) = dA(8208)/dV(1111) - B(13038) = RCT(8208)*V(5250) -! B(13039) = dA(8208)/dV(5250) - B(13039) = RCT(8208)*V(1111) -! B(13040) = dA(8209)/dV(1111) - B(13040) = RCT(8209) -! B(13041) = dA(8210)/dV(2472) - B(13041) = RCT(8210)*V(5250) -! B(13042) = dA(8210)/dV(5250) - B(13042) = RCT(8210)*V(2472) -! B(13043) = dA(8211)/dV(2472) - B(13043) = RCT(8211) -! B(13044) = dA(8212)/dV(2472) - B(13044) = RCT(8212) -! B(13045) = dA(8213)/dV(3953) - B(13045) = RCT(8213)*V(5255) -! B(13046) = dA(8213)/dV(5255) - B(13046) = RCT(8213)*V(3953) -! B(13047) = dA(8214)/dV(3953) - B(13047) = RCT(8214)*V(5252) -! B(13048) = dA(8214)/dV(5252) - B(13048) = RCT(8214)*V(3953) -! B(13049) = dA(8215)/dV(3953) - B(13049) = RCT(8215)*V(5256) -! B(13050) = dA(8215)/dV(5256) - B(13050) = RCT(8215)*V(3953) -! B(13051) = dA(8216)/dV(3953) - B(13051) = RCT(8216) -! B(13052) = dA(8217)/dV(227) - B(13052) = RCT(8217)*V(5250) -! B(13053) = dA(8217)/dV(5250) - B(13053) = RCT(8217)*V(227) -! B(13054) = dA(8218)/dV(1355) - B(13054) = RCT(8218)*V(5250) -! B(13055) = dA(8218)/dV(5250) - B(13055) = RCT(8218)*V(1355) -! B(13056) = dA(8219)/dV(1355) - B(13056) = RCT(8219) -! B(13057) = dA(8220)/dV(3199) - B(13057) = RCT(8220)*V(5250) -! B(13058) = dA(8220)/dV(5250) - B(13058) = RCT(8220)*V(3199) -! B(13059) = dA(8221)/dV(3199) - B(13059) = RCT(8221) -! B(13060) = dA(8222)/dV(3664) - B(13060) = RCT(8222)*V(5250) -! B(13061) = dA(8222)/dV(5250) - B(13061) = RCT(8222)*V(3664) -! B(13062) = dA(8223)/dV(3664) - B(13062) = RCT(8223) -! B(13063) = dA(8224)/dV(4810) - B(13063) = RCT(8224)*V(5253) -! B(13064) = dA(8224)/dV(5253) - B(13064) = RCT(8224)*V(4810) -! B(13065) = dA(8225)/dV(4810) - B(13065) = RCT(8225)*V(5258) -! B(13066) = dA(8225)/dV(5258) - B(13066) = RCT(8225)*V(4810) -! B(13067) = dA(8226)/dV(1227) - B(13067) = RCT(8226)*V(5250) -! B(13068) = dA(8226)/dV(5250) - B(13068) = RCT(8226)*V(1227) -! B(13069) = dA(8227)/dV(1227) - B(13069) = RCT(8227) -! B(13070) = dA(8228)/dV(3114) - B(13070) = RCT(8228)*V(5256) -! B(13071) = dA(8228)/dV(5256) - B(13071) = RCT(8228)*V(3114) -! B(13072) = dA(8229)/dV(3114) - B(13072) = RCT(8229)*V(5250) -! B(13073) = dA(8229)/dV(5250) - B(13073) = RCT(8229)*V(3114) -! B(13074) = dA(8230)/dV(4023) - B(13074) = RCT(8230)*V(5255) -! B(13075) = dA(8230)/dV(5255) - B(13075) = RCT(8230)*V(4023) -! B(13076) = dA(8231)/dV(4023) - B(13076) = RCT(8231)*V(5252) -! B(13077) = dA(8231)/dV(5252) - B(13077) = RCT(8231)*V(4023) -! B(13078) = dA(8232)/dV(4023) - B(13078) = RCT(8232)*V(5256) -! B(13079) = dA(8232)/dV(5256) - B(13079) = RCT(8232)*V(4023) -! B(13080) = dA(8233)/dV(4023) - B(13080) = RCT(8233) -! B(13081) = dA(8234)/dV(4888) - B(13081) = RCT(8234)*V(5255) -! B(13082) = dA(8234)/dV(5255) - B(13082) = RCT(8234)*V(4888) -! B(13083) = dA(8235)/dV(4888) - B(13083) = RCT(8235)*V(5255) -! B(13084) = dA(8235)/dV(5255) - B(13084) = RCT(8235)*V(4888) -! B(13085) = dA(8236)/dV(4888) - B(13085) = RCT(8236)*V(5255) -! B(13086) = dA(8236)/dV(5255) - B(13086) = RCT(8236)*V(4888) -! B(13087) = dA(8237)/dV(4888) - B(13087) = RCT(8237)*V(5252) -! B(13088) = dA(8237)/dV(5252) - B(13088) = RCT(8237)*V(4888) -! B(13089) = dA(8238)/dV(4888) - B(13089) = RCT(8238)*V(5253) -! B(13090) = dA(8238)/dV(5253) - B(13090) = RCT(8238)*V(4888) -! B(13091) = dA(8239)/dV(4888) - B(13091) = RCT(8239)*V(5256) -! B(13092) = dA(8239)/dV(5256) - B(13092) = RCT(8239)*V(4888) -! B(13093) = dA(8240)/dV(4888) - B(13093) = RCT(8240) -! B(13094) = dA(8241)/dV(4888) - B(13094) = RCT(8241) -! B(13095) = dA(8242)/dV(3975) - B(13095) = RCT(8242)*V(5255) -! B(13096) = dA(8242)/dV(5255) - B(13096) = RCT(8242)*V(3975) -! B(13097) = dA(8243)/dV(3975) - B(13097) = RCT(8243)*V(5252) -! B(13098) = dA(8243)/dV(5252) - B(13098) = RCT(8243)*V(3975) -! B(13099) = dA(8244)/dV(3975) - B(13099) = RCT(8244)*V(5256) -! B(13100) = dA(8244)/dV(5256) - B(13100) = RCT(8244)*V(3975) -! B(13101) = dA(8245)/dV(3975) - B(13101) = RCT(8245) -! B(13102) = dA(8246)/dV(3975) - B(13102) = RCT(8246) -! B(13103) = dA(8247)/dV(3945) - B(13103) = RCT(8247)*V(5255) -! B(13104) = dA(8247)/dV(5255) - B(13104) = RCT(8247)*V(3945) -! B(13105) = dA(8248)/dV(3945) - B(13105) = RCT(8248)*V(5252) -! B(13106) = dA(8248)/dV(5252) - B(13106) = RCT(8248)*V(3945) -! B(13107) = dA(8249)/dV(3945) - B(13107) = RCT(8249)*V(5256) -! B(13108) = dA(8249)/dV(5256) - B(13108) = RCT(8249)*V(3945) -! B(13109) = dA(8250)/dV(3945) - B(13109) = RCT(8250) -! B(13110) = dA(8251)/dV(3726) - B(13110) = RCT(8251)*V(5250) -! B(13111) = dA(8251)/dV(5250) - B(13111) = RCT(8251)*V(3726) -! B(13112) = dA(8252)/dV(3726) - B(13112) = RCT(8252) -! B(13113) = dA(8253)/dV(3725) - B(13113) = RCT(8253)*V(5255) -! B(13114) = dA(8253)/dV(5255) - B(13114) = RCT(8253)*V(3725) -! B(13115) = dA(8254)/dV(3725) - B(13115) = RCT(8254)*V(5252) -! B(13116) = dA(8254)/dV(5252) - B(13116) = RCT(8254)*V(3725) -! B(13117) = dA(8255)/dV(3725) - B(13117) = RCT(8255)*V(5256) -! B(13118) = dA(8255)/dV(5256) - B(13118) = RCT(8255)*V(3725) -! B(13119) = dA(8256)/dV(3725) - B(13119) = RCT(8256) -! B(13120) = dA(8257)/dV(3725) - B(13120) = RCT(8257) -! B(13121) = dA(8258)/dV(4416) - B(13121) = RCT(8258)*V(5255) -! B(13122) = dA(8258)/dV(5255) - B(13122) = RCT(8258)*V(4416) -! B(13123) = dA(8259)/dV(4416) - B(13123) = RCT(8259)*V(5252) -! B(13124) = dA(8259)/dV(5252) - B(13124) = RCT(8259)*V(4416) -! B(13125) = dA(8260)/dV(4416) - B(13125) = RCT(8260)*V(5256) -! B(13126) = dA(8260)/dV(5256) - B(13126) = RCT(8260)*V(4416) -! B(13127) = dA(8261)/dV(4416) - B(13127) = RCT(8261) -! B(13128) = dA(8262)/dV(4481) - B(13128) = RCT(8262)*V(5255) -! B(13129) = dA(8262)/dV(5255) - B(13129) = RCT(8262)*V(4481) -! B(13130) = dA(8263)/dV(4481) - B(13130) = RCT(8263)*V(5252) -! B(13131) = dA(8263)/dV(5252) - B(13131) = RCT(8263)*V(4481) -! B(13132) = dA(8264)/dV(4481) - B(13132) = RCT(8264)*V(5256) -! B(13133) = dA(8264)/dV(5256) - B(13133) = RCT(8264)*V(4481) -! B(13134) = dA(8265)/dV(4481) - B(13134) = RCT(8265) -! B(13135) = dA(8266)/dV(4481) - B(13135) = RCT(8266) -! B(13136) = dA(8267)/dV(4480) - B(13136) = RCT(8267)*V(5255) -! B(13137) = dA(8267)/dV(5255) - B(13137) = RCT(8267)*V(4480) -! B(13138) = dA(8268)/dV(4480) - B(13138) = RCT(8268)*V(5252) -! B(13139) = dA(8268)/dV(5252) - B(13139) = RCT(8268)*V(4480) -! B(13140) = dA(8269)/dV(4480) - B(13140) = RCT(8269)*V(5256) -! B(13141) = dA(8269)/dV(5256) - B(13141) = RCT(8269)*V(4480) -! B(13142) = dA(8270)/dV(4480) - B(13142) = RCT(8270) -! B(13143) = dA(8271)/dV(4480) - B(13143) = RCT(8271) -! B(13144) = dA(8272)/dV(1175) - B(13144) = RCT(8272)*V(5250) -! B(13145) = dA(8272)/dV(5250) - B(13145) = RCT(8272)*V(1175) -! B(13146) = dA(8273)/dV(1175) - B(13146) = RCT(8273) -! B(13147) = dA(8274)/dV(1404) - B(13147) = RCT(8274)*V(5250) -! B(13148) = dA(8274)/dV(5250) - B(13148) = RCT(8274)*V(1404) -! B(13149) = dA(8275)/dV(1404) - B(13149) = RCT(8275) -! B(13150) = dA(8276)/dV(2518) - B(13150) = RCT(8276)*V(5250) -! B(13151) = dA(8276)/dV(5250) - B(13151) = RCT(8276)*V(2518) -! B(13152) = dA(8277)/dV(2518) - B(13152) = RCT(8277) -! B(13153) = dA(8278)/dV(3965) - B(13153) = RCT(8278)*V(5250) -! B(13154) = dA(8278)/dV(5250) - B(13154) = RCT(8278)*V(3965) -! B(13155) = dA(8279)/dV(3965) - B(13155) = RCT(8279) -! B(13156) = dA(8280)/dV(3965) - B(13156) = RCT(8280) -! B(13157) = dA(8281)/dV(3965) - B(13157) = RCT(8281) -! B(13158) = dA(8282)/dV(503) - B(13158) = RCT(8282)*V(5250) -! B(13159) = dA(8282)/dV(5250) - B(13159) = RCT(8282)*V(503) -! B(13160) = dA(8283)/dV(1537) - B(13160) = RCT(8283)*V(5250) -! B(13161) = dA(8283)/dV(5250) - B(13161) = RCT(8283)*V(1537) -! B(13162) = dA(8284)/dV(1537) - B(13162) = RCT(8284) -! B(13163) = dA(8285)/dV(3318) - B(13163) = RCT(8285)*V(5250) -! B(13164) = dA(8285)/dV(5250) - B(13164) = RCT(8285)*V(3318) -! B(13165) = dA(8286)/dV(3318) - B(13165) = RCT(8286) -! B(13166) = dA(8287)/dV(2225) - B(13166) = RCT(8287)*V(5250) -! B(13167) = dA(8287)/dV(5250) - B(13167) = RCT(8287)*V(2225) -! B(13168) = dA(8288)/dV(2225) - B(13168) = RCT(8288) -! B(13169) = dA(8289)/dV(3305) - B(13169) = RCT(8289)*V(5253) -! B(13170) = dA(8289)/dV(5253) - B(13170) = RCT(8289)*V(3305) -! B(13171) = dA(8290)/dV(214) - B(13171) = RCT(8290) -! B(13172) = dA(8291)/dV(214) - B(13172) = RCT(8291) -! B(13173) = dA(8292)/dV(4674) - B(13173) = RCT(8292)*V(5255) -! B(13174) = dA(8292)/dV(5255) - B(13174) = RCT(8292)*V(4674) -! B(13175) = dA(8293)/dV(4674) - B(13175) = RCT(8293)*V(5252) -! B(13176) = dA(8293)/dV(5252) - B(13176) = RCT(8293)*V(4674) -! B(13177) = dA(8294)/dV(4674) - B(13177) = RCT(8294)*V(5256) -! B(13178) = dA(8294)/dV(5256) - B(13178) = RCT(8294)*V(4674) -! B(13179) = dA(8295)/dV(4674) - B(13179) = RCT(8295) -! B(13180) = dA(8296)/dV(4674) - B(13180) = RCT(8296) -! B(13181) = dA(8297)/dV(3829) - B(13181) = RCT(8297)*V(5250) -! B(13182) = dA(8297)/dV(5250) - B(13182) = RCT(8297)*V(3829) -! B(13183) = dA(8298)/dV(3829) - B(13183) = RCT(8298) -! B(13184) = dA(8299)/dV(4788) - B(13184) = RCT(8299)*V(5253) -! B(13185) = dA(8299)/dV(5253) - B(13185) = RCT(8299)*V(4788) -! B(13186) = dA(8300)/dV(4788) - B(13186) = RCT(8300)*V(5258) -! B(13187) = dA(8300)/dV(5258) - B(13187) = RCT(8300)*V(4788) -! B(13188) = dA(8301)/dV(943) - B(13188) = RCT(8301)*V(5250) -! B(13189) = dA(8301)/dV(5250) - B(13189) = RCT(8301)*V(943) -! B(13190) = dA(8302)/dV(943) - B(13190) = RCT(8302) -! B(13191) = dA(8303)/dV(2048) - B(13191) = RCT(8303)*V(5256) -! B(13192) = dA(8303)/dV(5256) - B(13192) = RCT(8303)*V(2048) -! B(13193) = dA(8304)/dV(2048) - B(13193) = RCT(8304)*V(5250) -! B(13194) = dA(8304)/dV(5250) - B(13194) = RCT(8304)*V(2048) -! B(13195) = dA(8305)/dV(3142) - B(13195) = RCT(8305)*V(5256) -! B(13196) = dA(8305)/dV(5256) - B(13196) = RCT(8305)*V(3142) -! B(13197) = dA(8306)/dV(3142) - B(13197) = RCT(8306)*V(5250) -! B(13198) = dA(8306)/dV(5250) - B(13198) = RCT(8306)*V(3142) -! B(13199) = dA(8307)/dV(4007) - B(13199) = RCT(8307)*V(5255) -! B(13200) = dA(8307)/dV(5255) - B(13200) = RCT(8307)*V(4007) -! B(13201) = dA(8308)/dV(4007) - B(13201) = RCT(8308)*V(5252) -! B(13202) = dA(8308)/dV(5252) - B(13202) = RCT(8308)*V(4007) -! B(13203) = dA(8309)/dV(4007) - B(13203) = RCT(8309)*V(5256) -! B(13204) = dA(8309)/dV(5256) - B(13204) = RCT(8309)*V(4007) -! B(13205) = dA(8310)/dV(4007) - B(13205) = RCT(8310) -! B(13206) = dA(8311)/dV(4694) - B(13206) = RCT(8311)*V(5250) -! B(13207) = dA(8311)/dV(5250) - B(13207) = RCT(8311)*V(4694) -! B(13208) = dA(8312)/dV(4694) - B(13208) = RCT(8312) -! B(13209) = dA(8313)/dV(423) - B(13209) = RCT(8313)*V(5250) -! B(13210) = dA(8313)/dV(5250) - B(13210) = RCT(8313)*V(423) -! B(13211) = dA(8314)/dV(1228) - B(13211) = RCT(8314)*V(5250) -! B(13212) = dA(8314)/dV(5250) - B(13212) = RCT(8314)*V(1228) -! B(13213) = dA(8315)/dV(1228) - B(13213) = RCT(8315) -! B(13214) = dA(8316)/dV(3232) - B(13214) = RCT(8316)*V(5250) -! B(13215) = dA(8316)/dV(5250) - B(13215) = RCT(8316)*V(3232) -! B(13216) = dA(8317)/dV(3232) - B(13216) = RCT(8317) -! B(13217) = dA(8318)/dV(2379) - B(13217) = RCT(8318)*V(5250) -! B(13218) = dA(8318)/dV(5250) - B(13218) = RCT(8318)*V(2379) -! B(13219) = dA(8319)/dV(2379) - B(13219) = RCT(8319) -! B(13220) = dA(8320)/dV(3474) - B(13220) = RCT(8320)*V(5253) -! B(13221) = dA(8320)/dV(5253) - B(13221) = RCT(8320)*V(3474) -! B(13222) = dA(8321)/dV(3765) - B(13222) = RCT(8321) -! B(13223) = dA(8322)/dV(3765) - B(13223) = RCT(8322) -! B(13224) = dA(8323)/dV(2603) - B(13224) = RCT(8323)*V(5250) -! B(13225) = dA(8323)/dV(5250) - B(13225) = RCT(8323)*V(2603) -! B(13226) = dA(8324)/dV(2603) - B(13226) = RCT(8324) -! B(13227) = dA(8325)/dV(2603) - B(13227) = RCT(8325) -! B(13228) = dA(8326)/dV(3300) - B(13228) = RCT(8326)*V(5250) -! B(13229) = dA(8326)/dV(5250) - B(13229) = RCT(8326)*V(3300) -! B(13230) = dA(8327)/dV(3300) - B(13230) = RCT(8327) -! B(13231) = dA(8328)/dV(1432) - B(13231) = RCT(8328)*V(5250) -! B(13232) = dA(8328)/dV(5250) - B(13232) = RCT(8328)*V(1432) -! B(13233) = dA(8329)/dV(1432) - B(13233) = RCT(8329) -! B(13234) = dA(8330)/dV(1378) - B(13234) = RCT(8330)*V(5250) -! B(13235) = dA(8330)/dV(5250) - B(13235) = RCT(8330)*V(1378) -! B(13236) = dA(8331)/dV(1378) - B(13236) = RCT(8331) -! B(13237) = dA(8332)/dV(2671) - B(13237) = RCT(8332)*V(5250) -! B(13238) = dA(8332)/dV(5250) - B(13238) = RCT(8332)*V(2671) -! B(13239) = dA(8333)/dV(2671) - B(13239) = RCT(8333) -! B(13240) = dA(8334)/dV(3366) - B(13240) = RCT(8334)*V(5250) -! B(13241) = dA(8334)/dV(5250) - B(13241) = RCT(8334)*V(3366) -! B(13242) = dA(8335)/dV(3366) - B(13242) = RCT(8335) -! B(13243) = dA(8336)/dV(3366) - B(13243) = RCT(8336) -! B(13244) = dA(8337)/dV(1833) - B(13244) = RCT(8337) -! B(13245) = dA(8338)/dV(3918) - B(13245) = RCT(8338)*V(5250) -! B(13246) = dA(8338)/dV(5250) - B(13246) = RCT(8338)*V(3918) -! B(13247) = dA(8339)/dV(3918) - B(13247) = RCT(8339) -! B(13248) = dA(8340)/dV(5031) - B(13248) = RCT(8340)*V(5250) -! B(13249) = dA(8340)/dV(5250) - B(13249) = RCT(8340)*V(5031) -! B(13250) = dA(8341)/dV(5031) - B(13250) = RCT(8341) -! B(13251) = dA(8342)/dV(2047) - B(13251) = RCT(8342)*V(5250) -! B(13252) = dA(8342)/dV(5250) - B(13252) = RCT(8342)*V(2047) -! B(13253) = dA(8343)/dV(2047) - B(13253) = RCT(8343) -! B(13254) = dA(8344)/dV(2047) - B(13254) = RCT(8344) -! B(13255) = dA(8345)/dV(782) - B(13255) = RCT(8345) -! B(13256) = dA(8346)/dV(1666) - B(13256) = RCT(8346)*V(5250) -! B(13257) = dA(8346)/dV(5250) - B(13257) = RCT(8346)*V(1666) -! B(13258) = dA(8347)/dV(1666) - B(13258) = RCT(8347) -! B(13259) = dA(8348)/dV(3132) - B(13259) = RCT(8348)*V(5250) -! B(13260) = dA(8348)/dV(5250) - B(13260) = RCT(8348)*V(3132) -! B(13261) = dA(8349)/dV(3132) - B(13261) = RCT(8349) -! B(13262) = dA(8350)/dV(1389) - B(13262) = RCT(8350)*V(5250) -! B(13263) = dA(8350)/dV(5250) - B(13263) = RCT(8350)*V(1389) -! B(13264) = dA(8351)/dV(1389) - B(13264) = RCT(8351) -! B(13265) = dA(8352)/dV(1206) - B(13265) = RCT(8352)*V(5250) -! B(13266) = dA(8352)/dV(5250) - B(13266) = RCT(8352)*V(1206) -! B(13267) = dA(8353)/dV(1206) - B(13267) = RCT(8353) -! B(13268) = dA(8354)/dV(1368) - B(13268) = RCT(8354)*V(5250) -! B(13269) = dA(8354)/dV(5250) - B(13269) = RCT(8354)*V(1368) -! B(13270) = dA(8355)/dV(1368) - B(13270) = RCT(8355) -! B(13271) = dA(8356)/dV(3441) - B(13271) = RCT(8356)*V(5250) -! B(13272) = dA(8356)/dV(5250) - B(13272) = RCT(8356)*V(3441) -! B(13273) = dA(8357)/dV(3441) - B(13273) = RCT(8357) -! B(13274) = dA(8358)/dV(3441) - B(13274) = RCT(8358) -! B(13275) = dA(8359)/dV(3441) - B(13275) = RCT(8359) -! B(13276) = dA(8360)/dV(3419) - B(13276) = RCT(8360) -! B(13277) = dA(8361)/dV(3419) - B(13277) = RCT(8361) -! B(13278) = dA(8362)/dV(2310) - B(13278) = RCT(8362)*V(5250) -! B(13279) = dA(8362)/dV(5250) - B(13279) = RCT(8362)*V(2310) -! B(13280) = dA(8363)/dV(2310) - B(13280) = RCT(8363) -! B(13281) = dA(8364)/dV(4682) - B(13281) = RCT(8364)*V(5253) -! B(13282) = dA(8364)/dV(5253) - B(13282) = RCT(8364)*V(4682) -! B(13283) = dA(8365)/dV(4682) - B(13283) = RCT(8365)*V(5258) -! B(13284) = dA(8365)/dV(5258) - B(13284) = RCT(8365)*V(4682) -! B(13285) = dA(8366)/dV(1156) - B(13285) = RCT(8366)*V(5250) -! B(13286) = dA(8366)/dV(5250) - B(13286) = RCT(8366)*V(1156) -! B(13287) = dA(8367)/dV(1156) - B(13287) = RCT(8367) -! B(13288) = dA(8368)/dV(2420) - B(13288) = RCT(8368)*V(5256) -! B(13289) = dA(8368)/dV(5256) - B(13289) = RCT(8368)*V(2420) -! B(13290) = dA(8369)/dV(2420) - B(13290) = RCT(8369)*V(5250) -! B(13291) = dA(8369)/dV(5250) - B(13291) = RCT(8369)*V(2420) -! B(13292) = dA(8370)/dV(3127) - B(13292) = RCT(8370)*V(5256) -! B(13293) = dA(8370)/dV(5256) - B(13293) = RCT(8370)*V(3127) -! B(13294) = dA(8371)/dV(3127) - B(13294) = RCT(8371)*V(5250) -! B(13295) = dA(8371)/dV(5250) - B(13295) = RCT(8371)*V(3127) -! B(13296) = dA(8372)/dV(4054) - B(13296) = RCT(8372)*V(5255) -! B(13297) = dA(8372)/dV(5255) - B(13297) = RCT(8372)*V(4054) -! B(13298) = dA(8373)/dV(4054) - B(13298) = RCT(8373)*V(5252) -! B(13299) = dA(8373)/dV(5252) - B(13299) = RCT(8373)*V(4054) -! B(13300) = dA(8374)/dV(4054) - B(13300) = RCT(8374)*V(5256) -! B(13301) = dA(8374)/dV(5256) - B(13301) = RCT(8374)*V(4054) -! B(13302) = dA(8375)/dV(4054) - B(13302) = RCT(8375) -! B(13303) = dA(8376)/dV(5199) - B(13303) = RCT(8376) -! B(13304) = dA(8377)/dV(5199) - B(13304) = RCT(8377) -! B(13305) = dA(8378)/dV(5199) - B(13305) = RCT(8378)*V(5256) -! B(13306) = dA(8378)/dV(5256) - B(13306) = RCT(8378)*V(5199) -! B(13307) = dA(8379)/dV(5199) - B(13307) = RCT(8379)*V(5250) -! B(13308) = dA(8379)/dV(5250) - B(13308) = RCT(8379)*V(5199) -! B(13309) = dA(8380)/dV(4632) - B(13309) = RCT(8380)*V(5253) -! B(13310) = dA(8380)/dV(5253) - B(13310) = RCT(8380)*V(4632) -! B(13311) = dA(8381)/dV(4632) - B(13311) = RCT(8381)*V(5258) -! B(13312) = dA(8381)/dV(5258) - B(13312) = RCT(8381)*V(4632) -! B(13313) = dA(8382)/dV(843) - B(13313) = RCT(8382)*V(5250) -! B(13314) = dA(8382)/dV(5250) - B(13314) = RCT(8382)*V(843) -! B(13315) = dA(8383)/dV(843) - B(13315) = RCT(8383) -! B(13316) = dA(8384)/dV(2281) - B(13316) = RCT(8384)*V(5256) -! B(13317) = dA(8384)/dV(5256) - B(13317) = RCT(8384)*V(2281) -! B(13318) = dA(8385)/dV(2281) - B(13318) = RCT(8385)*V(5250) -! B(13319) = dA(8385)/dV(5250) - B(13319) = RCT(8385)*V(2281) -! B(13320) = dA(8386)/dV(3116) - B(13320) = RCT(8386)*V(5256) -! B(13321) = dA(8386)/dV(5256) - B(13321) = RCT(8386)*V(3116) -! B(13322) = dA(8387)/dV(3116) - B(13322) = RCT(8387)*V(5250) -! B(13323) = dA(8387)/dV(5250) - B(13323) = RCT(8387)*V(3116) -! B(13324) = dA(8388)/dV(4035) - B(13324) = RCT(8388)*V(5255) -! B(13325) = dA(8388)/dV(5255) - B(13325) = RCT(8388)*V(4035) -! B(13326) = dA(8389)/dV(4035) - B(13326) = RCT(8389)*V(5252) -! B(13327) = dA(8389)/dV(5252) - B(13327) = RCT(8389)*V(4035) -! B(13328) = dA(8390)/dV(4035) - B(13328) = RCT(8390)*V(5256) -! B(13329) = dA(8390)/dV(5256) - B(13329) = RCT(8390)*V(4035) -! B(13330) = dA(8391)/dV(4035) - B(13330) = RCT(8391) -! B(13331) = dA(8392)/dV(4703) - B(13331) = RCT(8392)*V(5255) -! B(13332) = dA(8392)/dV(5255) - B(13332) = RCT(8392)*V(4703) -! B(13333) = dA(8393)/dV(4703) - B(13333) = RCT(8393)*V(5252) -! B(13334) = dA(8393)/dV(5252) - B(13334) = RCT(8393)*V(4703) -! B(13335) = dA(8394)/dV(4703) - B(13335) = RCT(8394)*V(5256) -! B(13336) = dA(8394)/dV(5256) - B(13336) = RCT(8394)*V(4703) -! B(13337) = dA(8395)/dV(4703) - B(13337) = RCT(8395) -! B(13338) = dA(8396)/dV(4703) - B(13338) = RCT(8396) -! B(13339) = dA(8397)/dV(4703) - B(13339) = RCT(8397) -! B(13340) = dA(8398)/dV(4663) - B(13340) = RCT(8398)*V(5253) -! B(13341) = dA(8398)/dV(5253) - B(13341) = RCT(8398)*V(4663) -! B(13342) = dA(8399)/dV(4663) - B(13342) = RCT(8399)*V(5258) -! B(13343) = dA(8399)/dV(5258) - B(13343) = RCT(8399)*V(4663) -! B(13344) = dA(8400)/dV(852) - B(13344) = RCT(8400)*V(5250) -! B(13345) = dA(8400)/dV(5250) - B(13345) = RCT(8400)*V(852) -! B(13346) = dA(8401)/dV(852) - B(13346) = RCT(8401) -! B(13347) = dA(8402)/dV(2390) - B(13347) = RCT(8402)*V(5256) -! B(13348) = dA(8402)/dV(5256) - B(13348) = RCT(8402)*V(2390) -! B(13349) = dA(8403)/dV(2390) - B(13349) = RCT(8403)*V(5250) -! B(13350) = dA(8403)/dV(5250) - B(13350) = RCT(8403)*V(2390) -! B(13351) = dA(8404)/dV(3087) - B(13351) = RCT(8404)*V(5256) -! B(13352) = dA(8404)/dV(5256) - B(13352) = RCT(8404)*V(3087) -! B(13353) = dA(8405)/dV(3087) - B(13353) = RCT(8405)*V(5250) -! B(13354) = dA(8405)/dV(5250) - B(13354) = RCT(8405)*V(3087) -! B(13355) = dA(8406)/dV(4064) - B(13355) = RCT(8406)*V(5255) -! B(13356) = dA(8406)/dV(5255) - B(13356) = RCT(8406)*V(4064) -! B(13357) = dA(8407)/dV(4064) - B(13357) = RCT(8407)*V(5252) -! B(13358) = dA(8407)/dV(5252) - B(13358) = RCT(8407)*V(4064) -! B(13359) = dA(8408)/dV(4064) - B(13359) = RCT(8408)*V(5256) -! B(13360) = dA(8408)/dV(5256) - B(13360) = RCT(8408)*V(4064) -! B(13361) = dA(8409)/dV(4064) - B(13361) = RCT(8409) -! B(13362) = dA(8410)/dV(2690) - B(13362) = RCT(8410)*V(5250) -! B(13363) = dA(8410)/dV(5250) - B(13363) = RCT(8410)*V(2690) -! B(13364) = dA(8411)/dV(2690) - B(13364) = RCT(8411) -! B(13365) = dA(8412)/dV(2690) - B(13365) = RCT(8412) -! B(13366) = dA(8413)/dV(801) - B(13366) = RCT(8413) -! B(13367) = dA(8414)/dV(1735) - B(13367) = RCT(8414)*V(5250) -! B(13368) = dA(8414)/dV(5250) - B(13368) = RCT(8414)*V(1735) -! B(13369) = dA(8415)/dV(1735) - B(13369) = RCT(8415) -! B(13370) = dA(8416)/dV(1797) - B(13370) = RCT(8416)*V(5250) -! B(13371) = dA(8416)/dV(5250) - B(13371) = RCT(8416)*V(1797) -! B(13372) = dA(8417)/dV(1797) - B(13372) = RCT(8417) -! B(13373) = dA(8418)/dV(4946) - B(13373) = RCT(8418)*V(5255) -! B(13374) = dA(8418)/dV(5255) - B(13374) = RCT(8418)*V(4946) -! B(13375) = dA(8419)/dV(4946) - B(13375) = RCT(8419)*V(5255) -! B(13376) = dA(8419)/dV(5255) - B(13376) = RCT(8419)*V(4946) -! B(13377) = dA(8420)/dV(4946) - B(13377) = RCT(8420)*V(5255) -! B(13378) = dA(8420)/dV(5255) - B(13378) = RCT(8420)*V(4946) -! B(13379) = dA(8421)/dV(4946) - B(13379) = RCT(8421)*V(5252) -! B(13380) = dA(8421)/dV(5252) - B(13380) = RCT(8421)*V(4946) -! B(13381) = dA(8422)/dV(4946) - B(13381) = RCT(8422)*V(5253) -! B(13382) = dA(8422)/dV(5253) - B(13382) = RCT(8422)*V(4946) -! B(13383) = dA(8423)/dV(4946) - B(13383) = RCT(8423)*V(5256) -! B(13384) = dA(8423)/dV(5256) - B(13384) = RCT(8423)*V(4946) -! B(13385) = dA(8424)/dV(4946) - B(13385) = RCT(8424) -! B(13386) = dA(8425)/dV(4946) - B(13386) = RCT(8425) -! B(13387) = dA(8426)/dV(3853) - B(13387) = RCT(8426)*V(5255) -! B(13388) = dA(8426)/dV(5255) - B(13388) = RCT(8426)*V(3853) -! B(13389) = dA(8427)/dV(3853) - B(13389) = RCT(8427)*V(5252) -! B(13390) = dA(8427)/dV(5252) - B(13390) = RCT(8427)*V(3853) -! B(13391) = dA(8428)/dV(3853) - B(13391) = RCT(8428)*V(5256) -! B(13392) = dA(8428)/dV(5256) - B(13392) = RCT(8428)*V(3853) -! B(13393) = dA(8429)/dV(3853) - B(13393) = RCT(8429) -! B(13394) = dA(8430)/dV(3853) - B(13394) = RCT(8430) -! B(13395) = dA(8431)/dV(3687) - B(13395) = RCT(8431)*V(5255) -! B(13396) = dA(8431)/dV(5255) - B(13396) = RCT(8431)*V(3687) -! B(13397) = dA(8432)/dV(3687) - B(13397) = RCT(8432)*V(5252) -! B(13398) = dA(8432)/dV(5252) - B(13398) = RCT(8432)*V(3687) -! B(13399) = dA(8433)/dV(3687) - B(13399) = RCT(8433)*V(5256) -! B(13400) = dA(8433)/dV(5256) - B(13400) = RCT(8433)*V(3687) -! B(13401) = dA(8434)/dV(3687) - B(13401) = RCT(8434) -! B(13402) = dA(8435)/dV(4920) - B(13402) = RCT(8435)*V(5255) -! B(13403) = dA(8435)/dV(5255) - B(13403) = RCT(8435)*V(4920) -! B(13404) = dA(8436)/dV(4920) - B(13404) = RCT(8436)*V(5252) -! B(13405) = dA(8436)/dV(5252) - B(13405) = RCT(8436)*V(4920) -! B(13406) = dA(8437)/dV(4920) - B(13406) = RCT(8437)*V(5256) -! B(13407) = dA(8437)/dV(5256) - B(13407) = RCT(8437)*V(4920) -! B(13408) = dA(8438)/dV(4920) - B(13408) = RCT(8438) -! B(13409) = dA(8439)/dV(4920) - B(13409) = RCT(8439) -! B(13410) = dA(8440)/dV(4920) - B(13410) = RCT(8440) -! B(13411) = dA(8441)/dV(3788) - B(13411) = RCT(8441)*V(5255) -! B(13412) = dA(8441)/dV(5255) - B(13412) = RCT(8441)*V(3788) -! B(13413) = dA(8442)/dV(3788) - B(13413) = RCT(8442)*V(5252) -! B(13414) = dA(8442)/dV(5252) - B(13414) = RCT(8442)*V(3788) -! B(13415) = dA(8443)/dV(3788) - B(13415) = RCT(8443)*V(5256) -! B(13416) = dA(8443)/dV(5256) - B(13416) = RCT(8443)*V(3788) -! B(13417) = dA(8444)/dV(3788) - B(13417) = RCT(8444) -! B(13418) = dA(8445)/dV(3788) - B(13418) = RCT(8445) -! B(13419) = dA(8446)/dV(4401) - B(13419) = RCT(8446)*V(5250) -! B(13420) = dA(8446)/dV(5250) - B(13420) = RCT(8446)*V(4401) -! B(13421) = dA(8447)/dV(4401) - B(13421) = RCT(8447) -! B(13422) = dA(8448)/dV(4401) - B(13422) = RCT(8448) -! B(13423) = dA(8449)/dV(2900) - B(13423) = RCT(8449)*V(5250) -! B(13424) = dA(8449)/dV(5250) - B(13424) = RCT(8449)*V(2900) -! B(13425) = dA(8450)/dV(2900) - B(13425) = RCT(8450) -! B(13426) = dA(8451)/dV(2900) - B(13426) = RCT(8451) -! B(13427) = dA(8452)/dV(717) - B(13427) = RCT(8452) -! B(13428) = dA(8453)/dV(1716) - B(13428) = RCT(8453)*V(5250) -! B(13429) = dA(8453)/dV(5250) - B(13429) = RCT(8453)*V(1716) -! B(13430) = dA(8454)/dV(1716) - B(13430) = RCT(8454) -! B(13431) = dA(8455)/dV(2134) - B(13431) = RCT(8455)*V(5250) -! B(13432) = dA(8455)/dV(5250) - B(13432) = RCT(8455)*V(2134) -! B(13433) = dA(8456)/dV(2134) - B(13433) = RCT(8456) -! B(13434) = dA(8457)/dV(1076) - B(13434) = RCT(8457)*V(5250) -! B(13435) = dA(8457)/dV(5250) - B(13435) = RCT(8457)*V(1076) -! B(13436) = dA(8458)/dV(1076) - B(13436) = RCT(8458) -! B(13437) = dA(8459)/dV(4050) - B(13437) = RCT(8459)*V(5255) -! B(13438) = dA(8459)/dV(5255) - B(13438) = RCT(8459)*V(4050) -! B(13439) = dA(8460)/dV(4050) - B(13439) = RCT(8460)*V(5252) -! B(13440) = dA(8460)/dV(5252) - B(13440) = RCT(8460)*V(4050) -! B(13441) = dA(8461)/dV(4050) - B(13441) = RCT(8461)*V(5256) -! B(13442) = dA(8461)/dV(5256) - B(13442) = RCT(8461)*V(4050) -! B(13443) = dA(8462)/dV(4050) - B(13443) = RCT(8462) -! B(13444) = dA(8463)/dV(3303) - B(13444) = RCT(8463)*V(5250) -! B(13445) = dA(8463)/dV(5250) - B(13445) = RCT(8463)*V(3303) -! B(13446) = dA(8464)/dV(3303) - B(13446) = RCT(8464) -! B(13447) = dA(8465)/dV(4178) - B(13447) = RCT(8465)*V(5250) -! B(13448) = dA(8465)/dV(5250) - B(13448) = RCT(8465)*V(4178) -! B(13449) = dA(8466)/dV(4178) - B(13449) = RCT(8466)*V(5250) -! B(13450) = dA(8466)/dV(5250) - B(13450) = RCT(8466)*V(4178) -! B(13451) = dA(8467)/dV(4178) - B(13451) = RCT(8467) -! B(13452) = dA(8468)/dV(4178) - B(13452) = RCT(8468) -! B(13453) = dA(8469)/dV(2307) - B(13453) = RCT(8469)*V(5250) -! B(13454) = dA(8469)/dV(5250) - B(13454) = RCT(8469)*V(2307) -! B(13455) = dA(8470)/dV(2307) - B(13455) = RCT(8470) -! B(13456) = dA(8471)/dV(2681) - B(13456) = RCT(8471)*V(5250) -! B(13457) = dA(8471)/dV(5250) - B(13457) = RCT(8471)*V(2681) -! B(13458) = dA(8472)/dV(2681) - B(13458) = RCT(8472) -! B(13459) = dA(8473)/dV(1256) - B(13459) = RCT(8473)*V(5250) -! B(13460) = dA(8473)/dV(5250) - B(13460) = RCT(8473)*V(1256) -! B(13461) = dA(8474)/dV(1256) - B(13461) = RCT(8474) -! B(13462) = dA(8475)/dV(1176) - B(13462) = RCT(8475)*V(5250) -! B(13463) = dA(8475)/dV(5250) - B(13463) = RCT(8475)*V(1176) -! B(13464) = dA(8476)/dV(1176) - B(13464) = RCT(8476) -! B(13465) = dA(8477)/dV(2630) - B(13465) = RCT(8477)*V(5250) -! B(13466) = dA(8477)/dV(5250) - B(13466) = RCT(8477)*V(2630) -! B(13467) = dA(8478)/dV(2630) - B(13467) = RCT(8478) -! B(13468) = dA(8479)/dV(2971) - B(13468) = RCT(8479)*V(5250) -! B(13469) = dA(8479)/dV(5250) - B(13469) = RCT(8479)*V(2971) -! B(13470) = dA(8480)/dV(2971) - B(13470) = RCT(8480) -! B(13471) = dA(8481)/dV(2971) - B(13471) = RCT(8481) -! B(13472) = dA(8482)/dV(2238) - B(13472) = RCT(8482) -! B(13473) = dA(8483)/dV(572) - B(13473) = RCT(8483)*V(5250) -! B(13474) = dA(8483)/dV(5250) - B(13474) = RCT(8483)*V(572) -! B(13475) = dA(8484)/dV(572) - B(13475) = RCT(8484) -! B(13476) = dA(8485)/dV(2358) - B(13476) = RCT(8485)*V(5250) -! B(13477) = dA(8485)/dV(5250) - B(13477) = RCT(8485)*V(2358) -! B(13478) = dA(8486)/dV(2358) - B(13478) = RCT(8486) -! B(13479) = dA(8487)/dV(2358) - B(13479) = RCT(8487) -! B(13480) = dA(8488)/dV(750) - B(13480) = RCT(8488) -! B(13481) = dA(8489)/dV(4865) - B(13481) = RCT(8489)*V(5250) -! B(13482) = dA(8489)/dV(5250) - B(13482) = RCT(8489)*V(4865) -! B(13483) = dA(8490)/dV(4865) - B(13483) = RCT(8490) -! B(13484) = dA(8491)/dV(1917) - B(13484) = RCT(8491) -! B(13485) = dA(8492)/dV(1917) - B(13485) = RCT(8492) -! B(13486) = dA(8493)/dV(1917) - B(13486) = RCT(8493)*V(5250) -! B(13487) = dA(8493)/dV(5250) - B(13487) = RCT(8493)*V(1917) -! B(13488) = dA(8494)/dV(595) - B(13488) = RCT(8494) -! B(13489) = dA(8495)/dV(2711) - B(13489) = RCT(8495) -! B(13490) = dA(8496)/dV(2711) - B(13490) = RCT(8496)*V(5250) -! B(13491) = dA(8496)/dV(5250) - B(13491) = RCT(8496)*V(2711) -! B(13492) = dA(8497)/dV(1683) - B(13492) = RCT(8497) -! B(13493) = dA(8498)/dV(1683) - B(13493) = RCT(8498)*V(5250) -! B(13494) = dA(8498)/dV(5250) - B(13494) = RCT(8498)*V(1683) -! B(13495) = dA(8499)/dV(1969) - B(13495) = RCT(8499)*V(5250) -! B(13496) = dA(8499)/dV(5250) - B(13496) = RCT(8499)*V(1969) -! B(13497) = dA(8500)/dV(2824) - B(13497) = RCT(8500) -! B(13498) = dA(8501)/dV(2824) - B(13498) = RCT(8501)*V(5250) -! B(13499) = dA(8501)/dV(5250) - B(13499) = RCT(8501)*V(2824) -! B(13500) = dA(8502)/dV(2531) - B(13500) = RCT(8502) -! B(13501) = dA(8503)/dV(2531) - B(13501) = RCT(8503)*V(5250) -! B(13502) = dA(8503)/dV(5250) - B(13502) = RCT(8503)*V(2531) -! B(13503) = dA(8504)/dV(4668) - B(13503) = RCT(8504)*V(5251) -! B(13504) = dA(8504)/dV(5251) - B(13504) = RCT(8504)*V(4668) -! B(13505) = dA(8505)/dV(4668) - B(13505) = RCT(8505)*V(5252) -! B(13506) = dA(8505)/dV(5252) - B(13506) = RCT(8505)*V(4668) -! B(13507) = dA(8506)/dV(4668) - B(13507) = RCT(8506)*V(5253) -! B(13508) = dA(8506)/dV(5253) - B(13508) = RCT(8506)*V(4668) -! B(13509) = dA(8507)/dV(4668) - B(13509) = RCT(8507)*V(5254) -! B(13510) = dA(8507)/dV(5254) - B(13510) = RCT(8507)*V(4668) -! B(13511) = dA(8508)/dV(4668) - B(13511) = RCT(8508) -! B(13512) = dA(8509)/dV(4668) - B(13512) = RCT(8509) -! B(13513) = dA(8510)/dV(3459) - B(13513) = RCT(8510) -! B(13514) = dA(8511)/dV(3459) - B(13514) = RCT(8511) -! B(13515) = dA(8512)/dV(3459) - B(13515) = RCT(8512)*V(5250) -! B(13516) = dA(8512)/dV(5250) - B(13516) = RCT(8512)*V(3459) -! B(13517) = dA(8513)/dV(2112) - B(13517) = RCT(8513) -! B(13518) = dA(8514)/dV(1644) - B(13518) = RCT(8514) -! B(13519) = dA(8515)/dV(1644) - B(13519) = RCT(8515)*V(5250) -! B(13520) = dA(8515)/dV(5250) - B(13520) = RCT(8515)*V(1644) -! B(13521) = dA(8516)/dV(3483) - B(13521) = RCT(8516) -! B(13522) = dA(8517)/dV(3483) - B(13522) = RCT(8517)*V(5256) -! B(13523) = dA(8517)/dV(5256) - B(13523) = RCT(8517)*V(3483) -! B(13524) = dA(8518)/dV(3483) - B(13524) = RCT(8518)*V(5250) -! B(13525) = dA(8518)/dV(5250) - B(13525) = RCT(8518)*V(3483) -! B(13526) = dA(8519)/dV(1851) - B(13526) = RCT(8519)*V(5250) -! B(13527) = dA(8519)/dV(5250) - B(13527) = RCT(8519)*V(1851) -! B(13528) = dA(8520)/dV(2494) - B(13528) = RCT(8520) -! B(13529) = dA(8521)/dV(2494) - B(13529) = RCT(8521)*V(5250) -! B(13530) = dA(8521)/dV(5250) - B(13530) = RCT(8521)*V(2494) -! B(13531) = dA(8522)/dV(2796) - B(13531) = RCT(8522) -! B(13532) = dA(8523)/dV(2796) - B(13532) = RCT(8523)*V(5250) -! B(13533) = dA(8523)/dV(5250) - B(13533) = RCT(8523)*V(2796) -! B(13534) = dA(8524)/dV(4999) - B(13534) = RCT(8524)*V(5251) -! B(13535) = dA(8524)/dV(5251) - B(13535) = RCT(8524)*V(4999) -! B(13536) = dA(8525)/dV(4999) - B(13536) = RCT(8525)*V(5252) -! B(13537) = dA(8525)/dV(5252) - B(13537) = RCT(8525)*V(4999) -! B(13538) = dA(8526)/dV(4999) - B(13538) = RCT(8526)*V(5253) -! B(13539) = dA(8526)/dV(5253) - B(13539) = RCT(8526)*V(4999) -! B(13540) = dA(8527)/dV(4999) - B(13540) = RCT(8527)*V(5254) -! B(13541) = dA(8527)/dV(5254) - B(13541) = RCT(8527)*V(4999) -! B(13542) = dA(8528)/dV(4999) - B(13542) = RCT(8528) -! B(13543) = dA(8529)/dV(4999) - B(13543) = RCT(8529) -! B(13544) = dA(8530)/dV(1098) - B(13544) = RCT(8530) -! B(13545) = dA(8531)/dV(1098) - B(13545) = RCT(8531)*V(5250) -! B(13546) = dA(8531)/dV(5250) - B(13546) = RCT(8531)*V(1098) -! B(13547) = dA(8532)/dV(991) - B(13547) = RCT(8532)*V(5250) -! B(13548) = dA(8532)/dV(5250) - B(13548) = RCT(8532)*V(991) -! B(13549) = dA(8533)/dV(2816) - B(13549) = RCT(8533) -! B(13550) = dA(8534)/dV(1626) - B(13550) = RCT(8534) -! B(13551) = dA(8535)/dV(1626) - B(13551) = RCT(8535)*V(5250) -! B(13552) = dA(8535)/dV(5250) - B(13552) = RCT(8535)*V(1626) -! B(13553) = dA(8536)/dV(4851) - B(13553) = RCT(8536) -! B(13554) = dA(8537)/dV(4851) - B(13554) = RCT(8537)*V(5256) -! B(13555) = dA(8537)/dV(5256) - B(13555) = RCT(8537)*V(4851) -! B(13556) = dA(8538)/dV(4851) - B(13556) = RCT(8538)*V(5250) -! B(13557) = dA(8538)/dV(5250) - B(13557) = RCT(8538)*V(4851) -! B(13558) = dA(8539)/dV(4776) - B(13558) = RCT(8539)*V(5251) -! B(13559) = dA(8539)/dV(5251) - B(13559) = RCT(8539)*V(4776) -! B(13560) = dA(8540)/dV(4776) - B(13560) = RCT(8540)*V(5252) -! B(13561) = dA(8540)/dV(5252) - B(13561) = RCT(8540)*V(4776) -! B(13562) = dA(8541)/dV(4776) - B(13562) = RCT(8541)*V(5253) -! B(13563) = dA(8541)/dV(5253) - B(13563) = RCT(8541)*V(4776) -! B(13564) = dA(8542)/dV(4776) - B(13564) = RCT(8542)*V(5254) -! B(13565) = dA(8542)/dV(5254) - B(13565) = RCT(8542)*V(4776) -! B(13566) = dA(8543)/dV(4776) - B(13566) = RCT(8543) -! B(13567) = dA(8544)/dV(4776) - B(13567) = RCT(8544) -! B(13568) = dA(8545)/dV(1220) - B(13568) = RCT(8545)*V(5250) -! B(13569) = dA(8545)/dV(5250) - B(13569) = RCT(8545)*V(1220) -! B(13570) = dA(8546)/dV(1220) - B(13570) = RCT(8546) -! B(13571) = dA(8547)/dV(1529) - B(13571) = RCT(8547)*V(5250) -! B(13572) = dA(8547)/dV(5250) - B(13572) = RCT(8547)*V(1529) -! B(13573) = dA(8548)/dV(2596) - B(13573) = RCT(8548) -! B(13574) = dA(8549)/dV(3608) - B(13574) = RCT(8549)*V(5250) -! B(13575) = dA(8549)/dV(5250) - B(13575) = RCT(8549)*V(3608) -! B(13576) = dA(8550)/dV(3608) - B(13576) = RCT(8550) -! B(13577) = dA(8551)/dV(2695) - B(13577) = RCT(8551)*V(5250) -! B(13578) = dA(8551)/dV(5250) - B(13578) = RCT(8551)*V(2695) -! B(13579) = dA(8552)/dV(2695) - B(13579) = RCT(8552) -! B(13580) = dA(8553)/dV(2695) - B(13580) = RCT(8553) -! B(13581) = dA(8554)/dV(656) - B(13581) = RCT(8554) -! B(13582) = dA(8555)/dV(2043) - B(13582) = RCT(8555)*V(5250) -! B(13583) = dA(8555)/dV(5250) - B(13583) = RCT(8555)*V(2043) -! B(13584) = dA(8556)/dV(2043) - B(13584) = RCT(8556) -! B(13585) = dA(8557)/dV(2431) - B(13585) = RCT(8557) -! B(13586) = dA(8558)/dV(2431) - B(13586) = RCT(8558)*V(5250) -! B(13587) = dA(8558)/dV(5250) - B(13587) = RCT(8558)*V(2431) -! B(13588) = dA(8559)/dV(2801) - B(13588) = RCT(8559) -! B(13589) = dA(8560)/dV(2801) - B(13589) = RCT(8560)*V(5250) -! B(13590) = dA(8560)/dV(5250) - B(13590) = RCT(8560)*V(2801) -! B(13591) = dA(8561)/dV(4282) - B(13591) = RCT(8561)*V(5251) -! B(13592) = dA(8561)/dV(5251) - B(13592) = RCT(8561)*V(4282) -! B(13593) = dA(8562)/dV(4282) - B(13593) = RCT(8562)*V(5252) -! B(13594) = dA(8562)/dV(5252) - B(13594) = RCT(8562)*V(4282) -! B(13595) = dA(8563)/dV(4282) - B(13595) = RCT(8563)*V(5253) -! B(13596) = dA(8563)/dV(5253) - B(13596) = RCT(8563)*V(4282) -! B(13597) = dA(8564)/dV(4282) - B(13597) = RCT(8564)*V(5254) -! B(13598) = dA(8564)/dV(5254) - B(13598) = RCT(8564)*V(4282) -! B(13599) = dA(8565)/dV(4282) - B(13599) = RCT(8565) -! B(13600) = dA(8566)/dV(2147) - B(13600) = RCT(8566) -! B(13601) = dA(8567)/dV(2147) - B(13601) = RCT(8567)*V(5250) -! B(13602) = dA(8567)/dV(5250) - B(13602) = RCT(8567)*V(2147) -! B(13603) = dA(8568)/dV(2147) - B(13603) = RCT(8568)*V(5250) -! B(13604) = dA(8568)/dV(5250) - B(13604) = RCT(8568)*V(2147) -! B(13605) = dA(8569)/dV(3835) - B(13605) = RCT(8569)*V(5250) -! B(13606) = dA(8569)/dV(5250) - B(13606) = RCT(8569)*V(3835) -! B(13607) = dA(8570)/dV(3835) - B(13607) = RCT(8570)*V(5250) -! B(13608) = dA(8570)/dV(5250) - B(13608) = RCT(8570)*V(3835) -! B(13609) = dA(8571)/dV(3835) - B(13609) = RCT(8571)*V(5250) -! B(13610) = dA(8571)/dV(5250) - B(13610) = RCT(8571)*V(3835) -! B(13611) = dA(8572)/dV(2717) - B(13611) = RCT(8572) -! B(13612) = dA(8573)/dV(3628) - B(13612) = RCT(8573) -! B(13613) = dA(8574)/dV(3628) - B(13613) = RCT(8574)*V(5250) -! B(13614) = dA(8574)/dV(5250) - B(13614) = RCT(8574)*V(3628) -! B(13615) = dA(8575)/dV(463) - B(13615) = RCT(8575)*V(5250) -! B(13616) = dA(8575)/dV(5250) - B(13616) = RCT(8575)*V(463) -! B(13617) = dA(8576)/dV(2191) - B(13617) = RCT(8576)*V(5250) -! B(13618) = dA(8576)/dV(5250) - B(13618) = RCT(8576)*V(2191) -! B(13619) = dA(8577)/dV(3033) - B(13619) = RCT(8577) -! B(13620) = dA(8578)/dV(3033) - B(13620) = RCT(8578)*V(5250) -! B(13621) = dA(8578)/dV(5250) - B(13621) = RCT(8578)*V(3033) -! B(13622) = dA(8579)/dV(2670) - B(13622) = RCT(8579) -! B(13623) = dA(8580)/dV(2670) - B(13623) = RCT(8580)*V(5250) -! B(13624) = dA(8580)/dV(5250) - B(13624) = RCT(8580)*V(2670) -! B(13625) = dA(8581)/dV(4213) - B(13625) = RCT(8581)*V(5251) -! B(13626) = dA(8581)/dV(5251) - B(13626) = RCT(8581)*V(4213) -! B(13627) = dA(8582)/dV(4213) - B(13627) = RCT(8582)*V(5252) -! B(13628) = dA(8582)/dV(5252) - B(13628) = RCT(8582)*V(4213) -! B(13629) = dA(8583)/dV(4213) - B(13629) = RCT(8583)*V(5253) -! B(13630) = dA(8583)/dV(5253) - B(13630) = RCT(8583)*V(4213) -! B(13631) = dA(8584)/dV(4213) - B(13631) = RCT(8584)*V(5254) -! B(13632) = dA(8584)/dV(5254) - B(13632) = RCT(8584)*V(4213) -! B(13633) = dA(8585)/dV(4213) - B(13633) = RCT(8585) -! B(13634) = dA(8586)/dV(1438) - B(13634) = RCT(8586) -! B(13635) = dA(8587)/dV(1438) - B(13635) = RCT(8587)*V(5250) -! B(13636) = dA(8587)/dV(5250) - B(13636) = RCT(8587)*V(1438) -! B(13637) = dA(8588)/dV(2545) - B(13637) = RCT(8588) -! B(13638) = dA(8589)/dV(55) - B(13638) = RCT(8589)*V(5250) -! B(13639) = dA(8589)/dV(5250) - B(13639) = RCT(8589)*V(55) -! B(13640) = dA(8590)/dV(3933) - B(13640) = RCT(8590)*V(5250) -! B(13641) = dA(8590)/dV(5250) - B(13641) = RCT(8590)*V(3933) -! B(13642) = dA(8591)/dV(3933) - B(13642) = RCT(8591) -! B(13643) = dA(8592)/dV(391) - B(13643) = RCT(8592)*V(5250) -! B(13644) = dA(8592)/dV(5250) - B(13644) = RCT(8592)*V(391) -! B(13645) = dA(8593)/dV(4321) - B(13645) = RCT(8593)*V(5255) -! B(13646) = dA(8593)/dV(5255) - B(13646) = RCT(8593)*V(4321) -! B(13647) = dA(8594)/dV(4321) - B(13647) = RCT(8594)*V(5252) -! B(13648) = dA(8594)/dV(5252) - B(13648) = RCT(8594)*V(4321) -! B(13649) = dA(8595)/dV(4321) - B(13649) = RCT(8595)*V(5252) -! B(13650) = dA(8595)/dV(5252) - B(13650) = RCT(8595)*V(4321) -! B(13651) = dA(8596)/dV(4321) - B(13651) = RCT(8596)*V(5256) -! B(13652) = dA(8596)/dV(5256) - B(13652) = RCT(8596)*V(4321) -! B(13653) = dA(8597)/dV(4321) - B(13653) = RCT(8597) -! B(13654) = dA(8598)/dV(4321) - B(13654) = RCT(8598) -! B(13655) = dA(8599)/dV(4832) - B(13655) = RCT(8599)*V(5256) -! B(13656) = dA(8599)/dV(5256) - B(13656) = RCT(8599)*V(4832) -! B(13657) = dA(8600)/dV(4832) - B(13657) = RCT(8600)*V(5258) -! B(13658) = dA(8600)/dV(5258) - B(13658) = RCT(8600)*V(4832) -! B(13659) = dA(8601)/dV(4832) - B(13659) = RCT(8601)*V(5250) -! B(13660) = dA(8601)/dV(5250) - B(13660) = RCT(8601)*V(4832) -! B(13661) = dA(8602)/dV(819) - B(13661) = RCT(8602) -! B(13662) = dA(8603)/dV(819) - B(13662) = RCT(8603) -! B(13663) = dA(8604)/dV(1795) - B(13663) = RCT(8604) -! B(13664) = dA(8605)/dV(1795) - B(13664) = RCT(8605) -! B(13665) = dA(8606)/dV(3707) - B(13665) = RCT(8606)*V(5250) -! B(13666) = dA(8606)/dV(5250) - B(13666) = RCT(8606)*V(3707) -! B(13667) = dA(8607)/dV(3707) - B(13667) = RCT(8607) -! B(13668) = dA(8608)/dV(3707) - B(13668) = RCT(8608) -! B(13669) = dA(8609)/dV(3707) - B(13669) = RCT(8609) -! B(13670) = dA(8610)/dV(1346) - B(13670) = RCT(8610) -! B(13671) = dA(8611)/dV(3464) - B(13671) = RCT(8611)*V(5250) -! B(13672) = dA(8611)/dV(5250) - B(13672) = RCT(8611)*V(3464) -! B(13673) = dA(8612)/dV(3464) - B(13673) = RCT(8612)*V(5250) -! B(13674) = dA(8612)/dV(5250) - B(13674) = RCT(8612)*V(3464) -! B(13675) = dA(8613)/dV(3464) - B(13675) = RCT(8613) -! B(13676) = dA(8614)/dV(3464) - B(13676) = RCT(8614) -! B(13677) = dA(8615)/dV(4805) - B(13677) = RCT(8615)*V(5258) -! B(13678) = dA(8615)/dV(5258) - B(13678) = RCT(8615)*V(4805) -! B(13679) = dA(8616)/dV(4805) - B(13679) = RCT(8616)*V(5258) -! B(13680) = dA(8616)/dV(5258) - B(13680) = RCT(8616)*V(4805) -! B(13681) = dA(8617)/dV(4805) - B(13681) = RCT(8617)*V(5250) -! B(13682) = dA(8617)/dV(5250) - B(13682) = RCT(8617)*V(4805) -! B(13683) = dA(8618)/dV(4805) - B(13683) = RCT(8618) -! B(13684) = dA(8619)/dV(29) - B(13684) = RCT(8619) -! B(13685) = dA(8620)/dV(3693) - B(13685) = RCT(8620)*V(5250) -! B(13686) = dA(8620)/dV(5250) - B(13686) = RCT(8620)*V(3693) -! B(13687) = dA(8621)/dV(3693) - B(13687) = RCT(8621) -! B(13688) = dA(8622)/dV(3693) - B(13688) = RCT(8622) -! B(13689) = dA(8623)/dV(1558) - B(13689) = RCT(8623)*V(5250) -! B(13690) = dA(8623)/dV(5250) - B(13690) = RCT(8623)*V(1558) -! B(13691) = dA(8624)/dV(1558) - B(13691) = RCT(8624) -! B(13692) = dA(8625)/dV(5025) - B(13692) = RCT(8625)*V(5255) -! B(13693) = dA(8625)/dV(5255) - B(13693) = RCT(8625)*V(5025) -! B(13694) = dA(8626)/dV(5025) - B(13694) = RCT(8626)*V(5255) -! B(13695) = dA(8626)/dV(5255) - B(13695) = RCT(8626)*V(5025) -! B(13696) = dA(8627)/dV(5025) - B(13696) = RCT(8627)*V(5255) -! B(13697) = dA(8627)/dV(5255) - B(13697) = RCT(8627)*V(5025) -! B(13698) = dA(8628)/dV(5025) - B(13698) = RCT(8628)*V(5252) -! B(13699) = dA(8628)/dV(5252) - B(13699) = RCT(8628)*V(5025) -! B(13700) = dA(8629)/dV(5025) - B(13700) = RCT(8629)*V(5253) -! B(13701) = dA(8629)/dV(5253) - B(13701) = RCT(8629)*V(5025) -! B(13702) = dA(8630)/dV(5025) - B(13702) = RCT(8630)*V(5256) -! B(13703) = dA(8630)/dV(5256) - B(13703) = RCT(8630)*V(5025) -! B(13704) = dA(8631)/dV(5025) - B(13704) = RCT(8631) -! B(13705) = dA(8632)/dV(5025) - B(13705) = RCT(8632) -! B(13706) = dA(8633)/dV(5025) - B(13706) = RCT(8633) -! B(13707) = dA(8634)/dV(5035) - B(13707) = RCT(8634)*V(5255) -! B(13708) = dA(8634)/dV(5255) - B(13708) = RCT(8634)*V(5035) -! B(13709) = dA(8635)/dV(5035) - B(13709) = RCT(8635)*V(5252) -! B(13710) = dA(8635)/dV(5252) - B(13710) = RCT(8635)*V(5035) -! B(13711) = dA(8636)/dV(5035) - B(13711) = RCT(8636)*V(5252) -! B(13712) = dA(8636)/dV(5252) - B(13712) = RCT(8636)*V(5035) -! B(13713) = dA(8637)/dV(5035) - B(13713) = RCT(8637)*V(5256) -! B(13714) = dA(8637)/dV(5256) - B(13714) = RCT(8637)*V(5035) -! B(13715) = dA(8638)/dV(5035) - B(13715) = RCT(8638) -! B(13716) = dA(8639)/dV(5035) - B(13716) = RCT(8639) -! B(13717) = dA(8640)/dV(3428) - B(13717) = RCT(8640)*V(5250) -! B(13718) = dA(8640)/dV(5250) - B(13718) = RCT(8640)*V(3428) -! B(13719) = dA(8641)/dV(3428) - B(13719) = RCT(8641)*V(5250) -! B(13720) = dA(8641)/dV(5250) - B(13720) = RCT(8641)*V(3428) -! B(13721) = dA(8642)/dV(3428) - B(13721) = RCT(8642)*V(5250) -! B(13722) = dA(8642)/dV(5250) - B(13722) = RCT(8642)*V(3428) -! B(13723) = dA(8643)/dV(3428) - B(13723) = RCT(8643)*V(5250) -! B(13724) = dA(8643)/dV(5250) - B(13724) = RCT(8643)*V(3428) -! B(13725) = dA(8644)/dV(3428) - B(13725) = RCT(8644)*V(5250) -! B(13726) = dA(8644)/dV(5250) - B(13726) = RCT(8644)*V(3428) -! B(13727) = dA(8645)/dV(2489) - B(13727) = RCT(8645) -! B(13728) = dA(8646)/dV(2489) - B(13728) = RCT(8646) -! B(13729) = dA(8647)/dV(2489) - B(13729) = RCT(8647) -! B(13730) = dA(8648)/dV(2489) - B(13730) = RCT(8648) -! B(13731) = dA(8649)/dV(5074) - B(13731) = RCT(8649)*V(5255) -! B(13732) = dA(8649)/dV(5255) - B(13732) = RCT(8649)*V(5074) -! B(13733) = dA(8650)/dV(5074) - B(13733) = RCT(8650)*V(5252) -! B(13734) = dA(8650)/dV(5252) - B(13734) = RCT(8650)*V(5074) -! B(13735) = dA(8651)/dV(5074) - B(13735) = RCT(8651)*V(5252) -! B(13736) = dA(8651)/dV(5252) - B(13736) = RCT(8651)*V(5074) -! B(13737) = dA(8652)/dV(5074) - B(13737) = RCT(8652)*V(5256) -! B(13738) = dA(8652)/dV(5256) - B(13738) = RCT(8652)*V(5074) -! B(13739) = dA(8653)/dV(5074) - B(13739) = RCT(8653) -! B(13740) = dA(8654)/dV(5074) - B(13740) = RCT(8654) -! B(13741) = dA(8655)/dV(5074) - B(13741) = RCT(8655) -! B(13742) = dA(8656)/dV(5154) - B(13742) = RCT(8656)*V(5255) -! B(13743) = dA(8656)/dV(5255) - B(13743) = RCT(8656)*V(5154) -! B(13744) = dA(8657)/dV(5154) - B(13744) = RCT(8657)*V(5252) -! B(13745) = dA(8657)/dV(5252) - B(13745) = RCT(8657)*V(5154) -! B(13746) = dA(8658)/dV(5154) - B(13746) = RCT(8658)*V(5252) -! B(13747) = dA(8658)/dV(5252) - B(13747) = RCT(8658)*V(5154) -! B(13748) = dA(8659)/dV(5154) - B(13748) = RCT(8659) -! B(13749) = dA(8660)/dV(5154) - B(13749) = RCT(8660) -! B(13750) = dA(8661)/dV(5154) - B(13750) = RCT(8661) -! B(13751) = dA(8662)/dV(678) - B(13751) = RCT(8662)*V(5250) -! B(13752) = dA(8662)/dV(5250) - B(13752) = RCT(8662)*V(678) -! B(13753) = dA(8663)/dV(678) - B(13753) = RCT(8663)*V(5250) -! B(13754) = dA(8663)/dV(5250) - B(13754) = RCT(8663)*V(678) -! B(13755) = dA(8664)/dV(3801) - B(13755) = RCT(8664)*V(5255) -! B(13756) = dA(8664)/dV(5255) - B(13756) = RCT(8664)*V(3801) -! B(13757) = dA(8665)/dV(3801) - B(13757) = RCT(8665)*V(5252) -! B(13758) = dA(8665)/dV(5252) - B(13758) = RCT(8665)*V(3801) -! B(13759) = dA(8666)/dV(3801) - B(13759) = RCT(8666)*V(5252) -! B(13760) = dA(8666)/dV(5252) - B(13760) = RCT(8666)*V(3801) -! B(13761) = dA(8667)/dV(3801) - B(13761) = RCT(8667)*V(5256) -! B(13762) = dA(8667)/dV(5256) - B(13762) = RCT(8667)*V(3801) -! B(13763) = dA(8668)/dV(3801) - B(13763) = RCT(8668) -! B(13764) = dA(8669)/dV(3801) - B(13764) = RCT(8669) -! B(13765) = dA(8670)/dV(3524) - B(13765) = RCT(8670)*V(5250) -! B(13766) = dA(8670)/dV(5250) - B(13766) = RCT(8670)*V(3524) -! B(13767) = dA(8671)/dV(3524) - B(13767) = RCT(8671) -! B(13768) = dA(8672)/dV(3524) - B(13768) = RCT(8672) -! B(13769) = dA(8673)/dV(3524) - B(13769) = RCT(8673) -! B(13770) = dA(8674)/dV(1246) - B(13770) = RCT(8674) -! B(13771) = dA(8675)/dV(4749) - B(13771) = RCT(8675)*V(5250) -! B(13772) = dA(8675)/dV(5250) - B(13772) = RCT(8675)*V(4749) -! B(13773) = dA(8676)/dV(4749) - B(13773) = RCT(8676)*V(5250) -! B(13774) = dA(8676)/dV(5250) - B(13774) = RCT(8676)*V(4749) -! B(13775) = dA(8677)/dV(4749) - B(13775) = RCT(8677) -! B(13776) = dA(8678)/dV(4749) - B(13776) = RCT(8678) -! B(13777) = dA(8679)/dV(4749) - B(13777) = RCT(8679) -! B(13778) = dA(8680)/dV(4570) - B(13778) = RCT(8680)*V(5258) -! B(13779) = dA(8680)/dV(5258) - B(13779) = RCT(8680)*V(4570) -! B(13780) = dA(8681)/dV(4570) - B(13780) = RCT(8681)*V(5258) -! B(13781) = dA(8681)/dV(5258) - B(13781) = RCT(8681)*V(4570) -! B(13782) = dA(8682)/dV(4570) - B(13782) = RCT(8682)*V(5250) -! B(13783) = dA(8682)/dV(5250) - B(13783) = RCT(8682)*V(4570) -! B(13784) = dA(8683)/dV(4570) - B(13784) = RCT(8683) -! B(13785) = dA(8684)/dV(19) - B(13785) = RCT(8684) -! B(13786) = dA(8685)/dV(4339) - B(13786) = RCT(8685)*V(5255) -! B(13787) = dA(8685)/dV(5255) - B(13787) = RCT(8685)*V(4339) -! B(13788) = dA(8686)/dV(4339) - B(13788) = RCT(8686)*V(5252) -! B(13789) = dA(8686)/dV(5252) - B(13789) = RCT(8686)*V(4339) -! B(13790) = dA(8687)/dV(4339) - B(13790) = RCT(8687)*V(5256) -! B(13791) = dA(8687)/dV(5256) - B(13791) = RCT(8687)*V(4339) -! B(13792) = dA(8688)/dV(4339) - B(13792) = RCT(8688) -! B(13793) = dA(8689)/dV(1682) - B(13793) = RCT(8689)*V(5250) -! B(13794) = dA(8689)/dV(5250) - B(13794) = RCT(8689)*V(1682) -! B(13795) = dA(8690)/dV(1682) - B(13795) = RCT(8690) -! B(13796) = dA(8691)/dV(5033) - B(13796) = RCT(8691)*V(5255) -! B(13797) = dA(8691)/dV(5255) - B(13797) = RCT(8691)*V(5033) -! B(13798) = dA(8692)/dV(5033) - B(13798) = RCT(8692)*V(5255) -! B(13799) = dA(8692)/dV(5255) - B(13799) = RCT(8692)*V(5033) -! B(13800) = dA(8693)/dV(5033) - B(13800) = RCT(8693)*V(5255) -! B(13801) = dA(8693)/dV(5255) - B(13801) = RCT(8693)*V(5033) -! B(13802) = dA(8694)/dV(5033) - B(13802) = RCT(8694)*V(5252) -! B(13803) = dA(8694)/dV(5252) - B(13803) = RCT(8694)*V(5033) -! B(13804) = dA(8695)/dV(5033) - B(13804) = RCT(8695)*V(5253) -! B(13805) = dA(8695)/dV(5253) - B(13805) = RCT(8695)*V(5033) -! B(13806) = dA(8696)/dV(5033) - B(13806) = RCT(8696)*V(5256) -! B(13807) = dA(8696)/dV(5256) - B(13807) = RCT(8696)*V(5033) -! B(13808) = dA(8697)/dV(5033) - B(13808) = RCT(8697) -! B(13809) = dA(8698)/dV(5033) - B(13809) = RCT(8698) -! B(13810) = dA(8699)/dV(5033) - B(13810) = RCT(8699) -! B(13811) = dA(8700)/dV(4711) - B(13811) = RCT(8700)*V(5255) -! B(13812) = dA(8700)/dV(5255) - B(13812) = RCT(8700)*V(4711) -! B(13813) = dA(8701)/dV(4711) - B(13813) = RCT(8701)*V(5252) -! B(13814) = dA(8701)/dV(5252) - B(13814) = RCT(8701)*V(4711) -! B(13815) = dA(8702)/dV(4711) - B(13815) = RCT(8702)*V(5252) -! B(13816) = dA(8702)/dV(5252) - B(13816) = RCT(8702)*V(4711) -! B(13817) = dA(8703)/dV(4711) - B(13817) = RCT(8703)*V(5256) -! B(13818) = dA(8703)/dV(5256) - B(13818) = RCT(8703)*V(4711) -! B(13819) = dA(8704)/dV(4711) - B(13819) = RCT(8704) -! B(13820) = dA(8705)/dV(5174) - B(13820) = RCT(8705)*V(5255) -! B(13821) = dA(8705)/dV(5255) - B(13821) = RCT(8705)*V(5174) -! B(13822) = dA(8706)/dV(5174) - B(13822) = RCT(8706)*V(5252) -! B(13823) = dA(8706)/dV(5252) - B(13823) = RCT(8706)*V(5174) -! B(13824) = dA(8707)/dV(5174) - B(13824) = RCT(8707)*V(5252) -! B(13825) = dA(8707)/dV(5252) - B(13825) = RCT(8707)*V(5174) -! B(13826) = dA(8708)/dV(5174) - B(13826) = RCT(8708)*V(5256) -! B(13827) = dA(8708)/dV(5256) - B(13827) = RCT(8708)*V(5174) -! B(13828) = dA(8709)/dV(5174) - B(13828) = RCT(8709) -! B(13829) = dA(8710)/dV(5174) - B(13829) = RCT(8710) -! B(13830) = dA(8711)/dV(5174) - B(13830) = RCT(8711) -! B(13831) = dA(8712)/dV(790) - B(13831) = RCT(8712) -! B(13832) = dA(8713)/dV(790) - B(13832) = RCT(8713) -! B(13833) = dA(8714)/dV(5022) - B(13833) = RCT(8714)*V(5255) -! B(13834) = dA(8714)/dV(5255) - B(13834) = RCT(8714)*V(5022) -! B(13835) = dA(8715)/dV(5022) - B(13835) = RCT(8715)*V(5252) -! B(13836) = dA(8715)/dV(5252) - B(13836) = RCT(8715)*V(5022) -! B(13837) = dA(8716)/dV(5022) - B(13837) = RCT(8716)*V(5252) -! B(13838) = dA(8716)/dV(5252) - B(13838) = RCT(8716)*V(5022) -! B(13839) = dA(8717)/dV(5022) - B(13839) = RCT(8717)*V(5256) -! B(13840) = dA(8717)/dV(5256) - B(13840) = RCT(8717)*V(5022) -! B(13841) = dA(8718)/dV(5022) - B(13841) = RCT(8718) -! B(13842) = dA(8719)/dV(5022) - B(13842) = RCT(8719) -! B(13843) = dA(8720)/dV(5134) - B(13843) = RCT(8720)*V(5255) -! B(13844) = dA(8720)/dV(5255) - B(13844) = RCT(8720)*V(5134) -! B(13845) = dA(8721)/dV(5134) - B(13845) = RCT(8721)*V(5252) -! B(13846) = dA(8721)/dV(5252) - B(13846) = RCT(8721)*V(5134) -! B(13847) = dA(8722)/dV(5134) - B(13847) = RCT(8722)*V(5256) -! B(13848) = dA(8722)/dV(5256) - B(13848) = RCT(8722)*V(5134) -! B(13849) = dA(8723)/dV(5134) - B(13849) = RCT(8723) -! B(13850) = dA(8724)/dV(3552) - B(13850) = RCT(8724) -! B(13851) = dA(8725)/dV(3552) - B(13851) = RCT(8725)*V(5250) -! B(13852) = dA(8725)/dV(5250) - B(13852) = RCT(8725)*V(3552) -! B(13853) = dA(8726)/dV(3552) - B(13853) = RCT(8726)*V(5250) -! B(13854) = dA(8726)/dV(5250) - B(13854) = RCT(8726)*V(3552) -! B(13855) = dA(8727)/dV(4945) - B(13855) = RCT(8727)*V(5250) -! B(13856) = dA(8727)/dV(5250) - B(13856) = RCT(8727)*V(4945) -! B(13857) = dA(8728)/dV(4945) - B(13857) = RCT(8728)*V(5250) -! B(13858) = dA(8728)/dV(5250) - B(13858) = RCT(8728)*V(4945) -! B(13859) = dA(8729)/dV(4945) - B(13859) = RCT(8729)*V(5250) -! B(13860) = dA(8729)/dV(5250) - B(13860) = RCT(8729)*V(4945) -! B(13861) = dA(8730)/dV(4945) - B(13861) = RCT(8730)*V(5250) -! B(13862) = dA(8730)/dV(5250) - B(13862) = RCT(8730)*V(4945) -! B(13863) = dA(8731)/dV(4945) - B(13863) = RCT(8731)*V(5250) -! B(13864) = dA(8731)/dV(5250) - B(13864) = RCT(8731)*V(4945) -! B(13865) = dA(8732)/dV(2162) - B(13865) = RCT(8732) -! B(13866) = dA(8733)/dV(458) - B(13866) = RCT(8733)*V(5250) -! B(13867) = dA(8733)/dV(5250) - B(13867) = RCT(8733)*V(458) -! B(13868) = dA(8734)/dV(4556) - B(13868) = RCT(8734)*V(5251) -! B(13869) = dA(8734)/dV(5251) - B(13869) = RCT(8734)*V(4556) -! B(13870) = dA(8735)/dV(4556) - B(13870) = RCT(8735)*V(5252) -! B(13871) = dA(8735)/dV(5252) - B(13871) = RCT(8735)*V(4556) -! B(13872) = dA(8736)/dV(4556) - B(13872) = RCT(8736)*V(5253) -! B(13873) = dA(8736)/dV(5253) - B(13873) = RCT(8736)*V(4556) -! B(13874) = dA(8737)/dV(4556) - B(13874) = RCT(8737)*V(5254) -! B(13875) = dA(8737)/dV(5254) - B(13875) = RCT(8737)*V(4556) -! B(13876) = dA(8738)/dV(4556) - B(13876) = RCT(8738) -! B(13877) = dA(8739)/dV(2236) - B(13877) = RCT(8739) -! B(13878) = dA(8740)/dV(2236) - B(13878) = RCT(8740)*V(5250) -! B(13879) = dA(8740)/dV(5250) - B(13879) = RCT(8740)*V(2236) -! B(13880) = dA(8741)/dV(4256) - B(13880) = RCT(8741) -! B(13881) = dA(8742)/dV(4256) - B(13881) = RCT(8742)*V(5250) -! B(13882) = dA(8742)/dV(5250) - B(13882) = RCT(8742)*V(4256) -! B(13883) = dA(8743)/dV(3080) - B(13883) = RCT(8743) -! B(13884) = dA(8744)/dV(70) - B(13884) = RCT(8744)*V(5250) -! B(13885) = dA(8744)/dV(5250) - B(13885) = RCT(8744)*V(70) -! B(13886) = dA(8745)/dV(2402) - B(13886) = RCT(8745)*V(5250) -! B(13887) = dA(8745)/dV(5250) - B(13887) = RCT(8745)*V(2402) -! B(13888) = dA(8746)/dV(2402) - B(13888) = RCT(8746) -! B(13889) = dA(8747)/dV(2576) - B(13889) = RCT(8747)*V(5250) -! B(13890) = dA(8747)/dV(5250) - B(13890) = RCT(8747)*V(2576) -! B(13891) = dA(8748)/dV(2576) - B(13891) = RCT(8748) -! B(13892) = dA(8749)/dV(114) - B(13892) = RCT(8749)*V(5250) -! B(13893) = dA(8749)/dV(5250) - B(13893) = RCT(8749)*V(114) -! B(13894) = dA(8750)/dV(4939) - B(13894) = RCT(8750) -! B(13895) = dA(8751)/dV(4939) - B(13895) = RCT(8751)*V(5256) -! B(13896) = dA(8751)/dV(5256) - B(13896) = RCT(8751)*V(4939) -! B(13897) = dA(8752)/dV(4939) - B(13897) = RCT(8752)*V(5250) -! B(13898) = dA(8752)/dV(5250) - B(13898) = RCT(8752)*V(4939) -! B(13899) = dA(8753)/dV(5091) - B(13899) = RCT(8753)*V(5255) -! B(13900) = dA(8753)/dV(5255) - B(13900) = RCT(8753)*V(5091) -! B(13901) = dA(8754)/dV(5091) - B(13901) = RCT(8754)*V(5252) -! B(13902) = dA(8754)/dV(5252) - B(13902) = RCT(8754)*V(5091) -! B(13903) = dA(8755)/dV(5091) - B(13903) = RCT(8755)*V(5252) -! B(13904) = dA(8755)/dV(5252) - B(13904) = RCT(8755)*V(5091) -! B(13905) = dA(8756)/dV(5091) - B(13905) = RCT(8756)*V(5256) -! B(13906) = dA(8756)/dV(5256) - B(13906) = RCT(8756)*V(5091) -! B(13907) = dA(8757)/dV(5091) - B(13907) = RCT(8757) -! B(13908) = dA(8758)/dV(5091) - B(13908) = RCT(8758) -! B(13909) = dA(8759)/dV(5091) - B(13909) = RCT(8759) -! B(13910) = dA(8760)/dV(5091) - B(13910) = RCT(8760) -! B(13911) = dA(8761)/dV(2156) - B(13911) = RCT(8761)*V(5250) -! B(13912) = dA(8761)/dV(5250) - B(13912) = RCT(8761)*V(2156) -! B(13913) = dA(8762)/dV(2156) - B(13913) = RCT(8762)*V(5250) -! B(13914) = dA(8762)/dV(5250) - B(13914) = RCT(8762)*V(2156) -! B(13915) = dA(8763)/dV(2156) - B(13915) = RCT(8763) -! B(13916) = dA(8764)/dV(2461) - B(13916) = RCT(8764)*V(5250) -! B(13917) = dA(8764)/dV(5250) - B(13917) = RCT(8764)*V(2461) -! B(13918) = dA(8765)/dV(2461) - B(13918) = RCT(8765) -! B(13919) = dA(8766)/dV(3344) - B(13919) = RCT(8766) -! B(13920) = dA(8767)/dV(3344) - B(13920) = RCT(8767) -! B(13921) = dA(8768)/dV(319) - B(13921) = RCT(8768)*V(5250) -! B(13922) = dA(8768)/dV(5250) - B(13922) = RCT(8768)*V(319) -! B(13923) = dA(8769)/dV(3626) - B(13923) = RCT(8769)*V(5250) -! B(13924) = dA(8769)/dV(5250) - B(13924) = RCT(8769)*V(3626) -! B(13925) = dA(8770)/dV(2187) - B(13925) = RCT(8770)*V(5250) -! B(13926) = dA(8770)/dV(5250) - B(13926) = RCT(8770)*V(2187) -! B(13927) = dA(8771)/dV(2187) - B(13927) = RCT(8771)*V(5250) -! B(13928) = dA(8771)/dV(5250) - B(13928) = RCT(8771)*V(2187) -! B(13929) = dA(8772)/dV(2187) - B(13929) = RCT(8772) -! B(13930) = dA(8773)/dV(2375) - B(13930) = RCT(8773)*V(5250) -! B(13931) = dA(8773)/dV(5250) - B(13931) = RCT(8773)*V(2375) -! B(13932) = dA(8774)/dV(2375) - B(13932) = RCT(8774) -! B(13933) = dA(8775)/dV(1743) - B(13933) = RCT(8775) -! B(13934) = dA(8776)/dV(4231) - B(13934) = RCT(8776)*V(5256) -! B(13935) = dA(8776)/dV(5256) - B(13935) = RCT(8776)*V(4231) -! B(13936) = dA(8777)/dV(4231) - B(13936) = RCT(8777)*V(5250) -! B(13937) = dA(8777)/dV(5250) - B(13937) = RCT(8777)*V(4231) -! B(13938) = dA(8778)/dV(4231) - B(13938) = RCT(8778) -! B(13939) = dA(8779)/dV(2716) - B(13939) = RCT(8779)*V(5250) -! B(13940) = dA(8779)/dV(5250) - B(13940) = RCT(8779)*V(2716) -! B(13941) = dA(8780)/dV(2260) - B(13941) = RCT(8780)*V(5250) -! B(13942) = dA(8780)/dV(5250) - B(13942) = RCT(8780)*V(2260) -! B(13943) = dA(8781)/dV(2260) - B(13943) = RCT(8781)*V(5250) -! B(13944) = dA(8781)/dV(5250) - B(13944) = RCT(8781)*V(2260) -! B(13945) = dA(8782)/dV(2260) - B(13945) = RCT(8782) -! B(13946) = dA(8783)/dV(51) - B(13946) = RCT(8783) -! B(13947) = dA(8784)/dV(3510) - B(13947) = RCT(8784)*V(5256) -! B(13948) = dA(8784)/dV(5256) - B(13948) = RCT(8784)*V(3510) -! B(13949) = dA(8785)/dV(3510) - B(13949) = RCT(8785)*V(5250) -! B(13950) = dA(8785)/dV(5250) - B(13950) = RCT(8785)*V(3510) -! B(13951) = dA(8786)/dV(3510) - B(13951) = RCT(8786) -! B(13952) = dA(8787)/dV(1870) - B(13952) = RCT(8787)*V(5250) -! B(13953) = dA(8787)/dV(5250) - B(13953) = RCT(8787)*V(1870) -! B(13954) = dA(8788)/dV(2753) - B(13954) = RCT(8788)*V(5250) -! B(13955) = dA(8788)/dV(5250) - B(13955) = RCT(8788)*V(2753) -! B(13956) = dA(8789)/dV(2753) - B(13956) = RCT(8789)*V(5250) -! B(13957) = dA(8789)/dV(5250) - B(13957) = RCT(8789)*V(2753) -! B(13958) = dA(8790)/dV(2753) - B(13958) = RCT(8790) -! B(13959) = dA(8791)/dV(1728) - B(13959) = RCT(8791)*V(5250) -! B(13960) = dA(8791)/dV(5250) - B(13960) = RCT(8791)*V(1728) -! B(13961) = dA(8792)/dV(2672) - B(13961) = RCT(8792)*V(5250) -! B(13962) = dA(8792)/dV(5250) - B(13962) = RCT(8792)*V(2672) -! B(13963) = dA(8793)/dV(2672) - B(13963) = RCT(8793) -! B(13964) = dA(8794)/dV(1553) - B(13964) = RCT(8794) -! B(13965) = dA(8795)/dV(208) - B(13965) = RCT(8795)*V(5250) -! B(13966) = dA(8795)/dV(5250) - B(13966) = RCT(8795)*V(208) -! B(13967) = dA(8796)/dV(4612) - B(13967) = RCT(8796)*V(5255) -! B(13968) = dA(8796)/dV(5255) - B(13968) = RCT(8796)*V(4612) -! B(13969) = dA(8797)/dV(4612) - B(13969) = RCT(8797)*V(5255) -! B(13970) = dA(8797)/dV(5255) - B(13970) = RCT(8797)*V(4612) -! B(13971) = dA(8798)/dV(4612) - B(13971) = RCT(8798)*V(5252) -! B(13972) = dA(8798)/dV(5252) - B(13972) = RCT(8798)*V(4612) -! B(13973) = dA(8799)/dV(4612) - B(13973) = RCT(8799)*V(5252) -! B(13974) = dA(8799)/dV(5252) - B(13974) = RCT(8799)*V(4612) -! B(13975) = dA(8800)/dV(4612) - B(13975) = RCT(8800)*V(5256) -! B(13976) = dA(8800)/dV(5256) - B(13976) = RCT(8800)*V(4612) -! B(13977) = dA(8801)/dV(4612) - B(13977) = RCT(8801) -! B(13978) = dA(8802)/dV(4612) - B(13978) = RCT(8802) -! B(13979) = dA(8803)/dV(4612) - B(13979) = RCT(8803) -! B(13980) = dA(8804)/dV(1449) - B(13980) = RCT(8804)*V(5250) -! B(13981) = dA(8804)/dV(5250) - B(13981) = RCT(8804)*V(1449) -! B(13982) = dA(8805)/dV(1449) - B(13982) = RCT(8805) -! B(13983) = dA(8806)/dV(1864) - B(13983) = RCT(8806)*V(5250) -! B(13984) = dA(8806)/dV(5250) - B(13984) = RCT(8806)*V(1864) -! B(13985) = dA(8807)/dV(1864) - B(13985) = RCT(8807) -! B(13986) = dA(8808)/dV(1865) - B(13986) = RCT(8808) -! B(13987) = dA(8809)/dV(471) - B(13987) = RCT(8809)*V(5250) -! B(13988) = dA(8809)/dV(5250) - B(13988) = RCT(8809)*V(471) -! B(13989) = dA(8810)/dV(1869) - B(13989) = RCT(8810)*V(5250) -! B(13990) = dA(8810)/dV(5250) - B(13990) = RCT(8810)*V(1869) -! B(13991) = dA(8811)/dV(1869) - B(13991) = RCT(8811) -! B(13992) = dA(8812)/dV(2954) - B(13992) = RCT(8812) -! B(13993) = dA(8813)/dV(2405) - B(13993) = RCT(8813)*V(5250) -! B(13994) = dA(8813)/dV(5250) - B(13994) = RCT(8813)*V(2405) -! B(13995) = dA(8814)/dV(2405) - B(13995) = RCT(8814) -! B(13996) = dA(8815)/dV(321) - B(13996) = RCT(8815)*V(5250) -! B(13997) = dA(8815)/dV(5250) - B(13997) = RCT(8815)*V(321) -! B(13998) = dA(8816)/dV(1160) - B(13998) = RCT(8816)*V(5250) -! B(13999) = dA(8816)/dV(5250) - B(13999) = RCT(8816)*V(1160) -! B(14000) = dA(8817)/dV(1160) - B(14000) = RCT(8817) -! B(14001) = dA(8818)/dV(3405) - B(14001) = RCT(8818) -! B(14002) = dA(8819)/dV(1952) - B(14002) = RCT(8819)*V(5250) -! B(14003) = dA(8819)/dV(5250) - B(14003) = RCT(8819)*V(1952) -! B(14004) = dA(8820)/dV(1952) - B(14004) = RCT(8820) -! B(14005) = dA(8821)/dV(381) - B(14005) = RCT(8821)*V(5250) -! B(14006) = dA(8821)/dV(5250) - B(14006) = RCT(8821)*V(381) -! B(14007) = dA(8822)/dV(309) - B(14007) = RCT(8822)*V(5250) -! B(14008) = dA(8822)/dV(5250) - B(14008) = RCT(8822)*V(309) -! B(14009) = dA(8823)/dV(1064) - B(14009) = RCT(8823)*V(5250) -! B(14010) = dA(8823)/dV(5250) - B(14010) = RCT(8823)*V(1064) -! B(14011) = dA(8824)/dV(1064) - B(14011) = RCT(8824) -! B(14012) = dA(8825)/dV(2757) - B(14012) = RCT(8825)*V(5250) -! B(14013) = dA(8825)/dV(5250) - B(14013) = RCT(8825)*V(2757) -! B(14014) = dA(8826)/dV(2757) - B(14014) = RCT(8826) -! B(14015) = dA(8827)/dV(3049) - B(14015) = RCT(8827)*V(5250) -! B(14016) = dA(8827)/dV(5250) - B(14016) = RCT(8827)*V(3049) -! B(14017) = dA(8828)/dV(3049) - B(14017) = RCT(8828)*V(5250) -! B(14018) = dA(8828)/dV(5250) - B(14018) = RCT(8828)*V(3049) -! B(14019) = dA(8829)/dV(3049) - B(14019) = RCT(8829) -! B(14020) = dA(8830)/dV(665) - B(14020) = RCT(8830) -! B(14021) = dA(8831)/dV(3682) - B(14021) = RCT(8831)*V(5250) -! B(14022) = dA(8831)/dV(5250) - B(14022) = RCT(8831)*V(3682) -! B(14023) = dA(8832)/dV(3682) - B(14023) = RCT(8832) -! B(14024) = dA(8833)/dV(4239) - B(14024) = RCT(8833)*V(5256) -! B(14025) = dA(8833)/dV(5256) - B(14025) = RCT(8833)*V(4239) -! B(14026) = dA(8834)/dV(4239) - B(14026) = RCT(8834)*V(5250) -! B(14027) = dA(8834)/dV(5250) - B(14027) = RCT(8834)*V(4239) -! B(14028) = dA(8835)/dV(4239) - B(14028) = RCT(8835) -! B(14029) = dA(8836)/dV(3708) - B(14029) = RCT(8836) -! B(14030) = dA(8837)/dV(3708) - B(14030) = RCT(8837)*V(5250) -! B(14031) = dA(8837)/dV(5250) - B(14031) = RCT(8837)*V(3708) -! B(14032) = dA(8838)/dV(3708) - B(14032) = RCT(8838)*V(5250) -! B(14033) = dA(8838)/dV(5250) - B(14033) = RCT(8838)*V(3708) -! B(14034) = dA(8839)/dV(1825) - B(14034) = RCT(8839) -! B(14035) = dA(8840)/dV(1938) - B(14035) = RCT(8840)*V(5250) -! B(14036) = dA(8840)/dV(5250) - B(14036) = RCT(8840)*V(1938) -! B(14037) = dA(8841)/dV(1938) - B(14037) = RCT(8841)*V(5250) -! B(14038) = dA(8841)/dV(5250) - B(14038) = RCT(8841)*V(1938) -! B(14039) = dA(8842)/dV(1938) - B(14039) = RCT(8842) -! B(14040) = dA(8843)/dV(2000) - B(14040) = RCT(8843) -! B(14041) = dA(8844)/dV(1655) - B(14041) = RCT(8844)*V(5250) -! B(14042) = dA(8844)/dV(5250) - B(14042) = RCT(8844)*V(1655) -! B(14043) = dA(8845)/dV(1655) - B(14043) = RCT(8845) -! B(14044) = dA(8846)/dV(3683) - B(14044) = RCT(8846)*V(5250) -! B(14045) = dA(8846)/dV(5250) - B(14045) = RCT(8846)*V(3683) -! B(14046) = dA(8847)/dV(3683) - B(14046) = RCT(8847) -! B(14047) = dA(8848)/dV(1099) - B(14047) = RCT(8848)*V(5250) -! B(14048) = dA(8848)/dV(5250) - B(14048) = RCT(8848)*V(1099) -! B(14049) = dA(8849)/dV(1099) - B(14049) = RCT(8849) -! B(14050) = dA(8850)/dV(2679) - B(14050) = RCT(8850) -! B(14051) = dA(8851)/dV(2424) - B(14051) = RCT(8851)*V(5250) -! B(14052) = dA(8851)/dV(5250) - B(14052) = RCT(8851)*V(2424) -! B(14053) = dA(8852)/dV(2424) - B(14053) = RCT(8852) -! B(14054) = dA(8853)/dV(2424) - B(14054) = RCT(8853) -! B(14055) = dA(8854)/dV(600) - B(14055) = RCT(8854) -! B(14056) = dA(8855)/dV(1646) - B(14056) = RCT(8855)*V(5250) -! B(14057) = dA(8855)/dV(5250) - B(14057) = RCT(8855)*V(1646) -! B(14058) = dA(8856)/dV(1646) - B(14058) = RCT(8856) -! B(14059) = dA(8857)/dV(4392) - B(14059) = RCT(8857) -! B(14060) = dA(8858)/dV(4392) - B(14060) = RCT(8858)*V(5250) -! B(14061) = dA(8858)/dV(5250) - B(14061) = RCT(8858)*V(4392) -! B(14062) = dA(8859)/dV(3287) - B(14062) = RCT(8859) -! B(14063) = dA(8860)/dV(3287) - B(14063) = RCT(8860) -! B(14064) = dA(8861)/dV(3287) - B(14064) = RCT(8861)*V(5250) -! B(14065) = dA(8861)/dV(5250) - B(14065) = RCT(8861)*V(3287) -! B(14066) = dA(8862)/dV(3287) - B(14066) = RCT(8862)*V(5250) -! B(14067) = dA(8862)/dV(5250) - B(14067) = RCT(8862)*V(3287) -! B(14068) = dA(8863)/dV(689) - B(14068) = RCT(8863) -! B(14069) = dA(8864)/dV(1658) - B(14069) = RCT(8864) -! B(14070) = dA(8865)/dV(1658) - B(14070) = RCT(8865)*V(5250) -! B(14071) = dA(8865)/dV(5250) - B(14071) = RCT(8865)*V(1658) -! B(14072) = dA(8866)/dV(2395) - B(14072) = RCT(8866) -! B(14073) = dA(8867)/dV(2395) - B(14073) = RCT(8867)*V(5250) -! B(14074) = dA(8867)/dV(5250) - B(14074) = RCT(8867)*V(2395) -! B(14075) = dA(8868)/dV(2397) - B(14075) = RCT(8868) -! B(14076) = dA(8869)/dV(2397) - B(14076) = RCT(8869)*V(5250) -! B(14077) = dA(8869)/dV(5250) - B(14077) = RCT(8869)*V(2397) -! B(14078) = dA(8870)/dV(3031) - B(14078) = RCT(8870) -! B(14079) = dA(8871)/dV(3031) - B(14079) = RCT(8871) -! B(14080) = dA(8872)/dV(3031) - B(14080) = RCT(8872)*V(5250) -! B(14081) = dA(8872)/dV(5250) - B(14081) = RCT(8872)*V(3031) -! B(14082) = dA(8873)/dV(2883) - B(14082) = RCT(8873) -! B(14083) = dA(8874)/dV(2883) - B(14083) = RCT(8874)*V(5250) -! B(14084) = dA(8874)/dV(5250) - B(14084) = RCT(8874)*V(2883) -! B(14085) = dA(8875)/dV(1212) - B(14085) = RCT(8875)*V(5250) -! B(14086) = dA(8875)/dV(5250) - B(14086) = RCT(8875)*V(1212) -! B(14087) = dA(8876)/dV(1212) - B(14087) = RCT(8876) -! B(14088) = dA(8877)/dV(2190) - B(14088) = RCT(8877) -! B(14089) = dA(8878)/dV(2618) - B(14089) = RCT(8878)*V(5250) -! B(14090) = dA(8878)/dV(5250) - B(14090) = RCT(8878)*V(2618) -! B(14091) = dA(8879)/dV(2618) - B(14091) = RCT(8879)*V(5250) -! B(14092) = dA(8879)/dV(5250) - B(14092) = RCT(8879)*V(2618) -! B(14093) = dA(8880)/dV(2618) - B(14093) = RCT(8880) -! B(14094) = dA(8881)/dV(2618) - B(14094) = RCT(8881) -! B(14095) = dA(8882)/dV(610) - B(14095) = RCT(8882) -! B(14096) = dA(8883)/dV(2428) - B(14096) = RCT(8883) -! B(14097) = dA(8884)/dV(2428) - B(14097) = RCT(8884) -! B(14098) = dA(8885)/dV(2428) - B(14098) = RCT(8885)*V(5250) -! B(14099) = dA(8885)/dV(5250) - B(14099) = RCT(8885)*V(2428) -! B(14100) = dA(8886)/dV(682) - B(14100) = RCT(8886) -! B(14101) = dA(8887)/dV(5110) - B(14101) = RCT(8887) -! B(14102) = dA(8888)/dV(5110) - B(14102) = RCT(8888) -! B(14103) = dA(8889)/dV(5110) - B(14103) = RCT(8889)*V(5250) -! B(14104) = dA(8889)/dV(5250) - B(14104) = RCT(8889)*V(5110) -! B(14105) = dA(8890)/dV(1566) - B(14105) = RCT(8890) -! B(14106) = dA(8891)/dV(1566) - B(14106) = RCT(8891)*V(5250) -! B(14107) = dA(8891)/dV(5250) - B(14107) = RCT(8891)*V(1566) -! B(14108) = dA(8892)/dV(2247) - B(14108) = RCT(8892) -! B(14109) = dA(8893)/dV(2247) - B(14109) = RCT(8893)*V(5250) -! B(14110) = dA(8893)/dV(5250) - B(14110) = RCT(8893)*V(2247) -! B(14111) = dA(8894)/dV(2247) - B(14111) = RCT(8894)*V(5250) -! B(14112) = dA(8894)/dV(5250) - B(14112) = RCT(8894)*V(2247) -! B(14113) = dA(8895)/dV(1856) - B(14113) = RCT(8895) -! B(14114) = dA(8896)/dV(1856) - B(14114) = RCT(8896)*V(5250) -! B(14115) = dA(8896)/dV(5250) - B(14115) = RCT(8896)*V(1856) -! B(14116) = dA(8897)/dV(2939) - B(14116) = RCT(8897) -! B(14117) = dA(8898)/dV(2939) - B(14117) = RCT(8898) -! B(14118) = dA(8899)/dV(1337) - B(14118) = RCT(8899) -! B(14119) = dA(8900)/dV(1337) - B(14119) = RCT(8900)*V(5250) -! B(14120) = dA(8900)/dV(5250) - B(14120) = RCT(8900)*V(1337) -! B(14121) = dA(8901)/dV(2123) - B(14121) = RCT(8901) -! B(14122) = dA(8902)/dV(2123) - B(14122) = RCT(8902)*V(5250) -! B(14123) = dA(8902)/dV(5250) - B(14123) = RCT(8902)*V(2123) -! B(14124) = dA(8903)/dV(2528) - B(14124) = RCT(8903) -! B(14125) = dA(8904)/dV(3616) - B(14125) = RCT(8904) -! B(14126) = dA(8905)/dV(3616) - B(14126) = RCT(8905)*V(5250) -! B(14127) = dA(8905)/dV(5250) - B(14127) = RCT(8905)*V(3616) -! B(14128) = dA(8906)/dV(586) - B(14128) = RCT(8906) -! B(14129) = dA(8907)/dV(586) - B(14129) = RCT(8907)*V(5250) -! B(14130) = dA(8907)/dV(5250) - B(14130) = RCT(8907)*V(586) -! B(14131) = dA(8908)/dV(1406) - B(14131) = RCT(8908)*V(5250) -! B(14132) = dA(8908)/dV(5250) - B(14132) = RCT(8908)*V(1406) -! B(14133) = dA(8909)/dV(1406) - B(14133) = RCT(8909) -! B(14134) = dA(8910)/dV(3346) - B(14134) = RCT(8910) -! B(14135) = dA(8911)/dV(3346) - B(14135) = RCT(8911) -! B(14136) = dA(8912)/dV(2940) - B(14136) = RCT(8912)*V(5250) -! B(14137) = dA(8912)/dV(5250) - B(14137) = RCT(8912)*V(2940) -! B(14138) = dA(8913)/dV(2940) - B(14138) = RCT(8913)*V(5250) -! B(14139) = dA(8913)/dV(5250) - B(14139) = RCT(8913)*V(2940) -! B(14140) = dA(8914)/dV(2940) - B(14140) = RCT(8914) -! B(14141) = dA(8915)/dV(1650) - B(14141) = RCT(8915) -! B(14142) = dA(8916)/dV(3756) - B(14142) = RCT(8916)*V(5250) -! B(14143) = dA(8916)/dV(5250) - B(14143) = RCT(8916)*V(3756) -! B(14144) = dA(8917)/dV(3756) - B(14144) = RCT(8917) -! B(14145) = dA(8918)/dV(1705) - B(14145) = RCT(8918)*V(5250) -! B(14146) = dA(8918)/dV(5250) - B(14146) = RCT(8918)*V(1705) -! B(14147) = dA(8919)/dV(1705) - B(14147) = RCT(8919) -! B(14148) = dA(8920)/dV(1495) - B(14148) = RCT(8920)*V(5250) -! B(14149) = dA(8920)/dV(5250) - B(14149) = RCT(8920)*V(1495) -! B(14150) = dA(8921)/dV(1495) - B(14150) = RCT(8921) -! B(14151) = dA(8922)/dV(2692) - B(14151) = RCT(8922) -! B(14152) = dA(8923)/dV(3473) - B(14152) = RCT(8923)*V(5250) -! B(14153) = dA(8923)/dV(5250) - B(14153) = RCT(8923)*V(3473) -! B(14154) = dA(8924)/dV(3473) - B(14154) = RCT(8924)*V(5250) -! B(14155) = dA(8924)/dV(5250) - B(14155) = RCT(8924)*V(3473) -! B(14156) = dA(8925)/dV(3473) - B(14156) = RCT(8925) -! B(14157) = dA(8926)/dV(3473) - B(14157) = RCT(8926) -! B(14158) = dA(8927)/dV(749) - B(14158) = RCT(8927) -! B(14159) = dA(8928)/dV(2932) - B(14159) = RCT(8928)*V(5250) -! B(14160) = dA(8928)/dV(5250) - B(14160) = RCT(8928)*V(2932) -! B(14161) = dA(8929)/dV(2932) - B(14161) = RCT(8929) -! B(14162) = dA(8930)/dV(1601) - B(14162) = RCT(8930)*V(5250) -! B(14163) = dA(8930)/dV(5250) - B(14163) = RCT(8930)*V(1601) -! B(14164) = dA(8931)/dV(1601) - B(14164) = RCT(8931) -! B(14165) = dA(8932)/dV(1498) - B(14165) = RCT(8932)*V(5250) -! B(14166) = dA(8932)/dV(5250) - B(14166) = RCT(8932)*V(1498) -! B(14167) = dA(8933)/dV(1498) - B(14167) = RCT(8933) -! B(14168) = dA(8934)/dV(2560) - B(14168) = RCT(8934)*V(5250) -! B(14169) = dA(8934)/dV(5250) - B(14169) = RCT(8934)*V(2560) -! B(14170) = dA(8935)/dV(2560) - B(14170) = RCT(8935) -! B(14171) = dA(8936)/dV(1217) - B(14171) = RCT(8936)*V(5250) -! B(14172) = dA(8936)/dV(5250) - B(14172) = RCT(8936)*V(1217) -! B(14173) = dA(8937)/dV(1217) - B(14173) = RCT(8937) -! B(14174) = dA(8938)/dV(1292) - B(14174) = RCT(8938)*V(5250) -! B(14175) = dA(8938)/dV(5250) - B(14175) = RCT(8938)*V(1292) -! B(14176) = dA(8939)/dV(1292) - B(14176) = RCT(8939) -! B(14177) = dA(8940)/dV(2881) - B(14177) = RCT(8940) -! B(14178) = dA(8941)/dV(3291) - B(14178) = RCT(8941) -! B(14179) = dA(8942)/dV(3291) - B(14179) = RCT(8942)*V(5250) -! B(14180) = dA(8942)/dV(5250) - B(14180) = RCT(8942)*V(3291) -! B(14181) = dA(8943)/dV(3291) - B(14181) = RCT(8943)*V(5250) -! B(14182) = dA(8943)/dV(5250) - B(14182) = RCT(8943)*V(3291) -! B(14183) = dA(8944)/dV(1556) - B(14183) = RCT(8944) -! B(14184) = dA(8945)/dV(608) - B(14184) = RCT(8945) -! B(14185) = dA(8946)/dV(608) - B(14185) = RCT(8946)*V(5250) -! B(14186) = dA(8946)/dV(5250) - B(14186) = RCT(8946)*V(608) -! B(14187) = dA(8947)/dV(2255) - B(14187) = RCT(8947) -! B(14188) = dA(8948)/dV(2255) - B(14188) = RCT(8948)*V(5250) -! B(14189) = dA(8948)/dV(5250) - B(14189) = RCT(8948)*V(2255) -! B(14190) = dA(8949)/dV(363) - B(14190) = RCT(8949)*V(5250) -! B(14191) = dA(8949)/dV(5250) - B(14191) = RCT(8949)*V(363) -! B(14192) = dA(8950)/dV(1193) - B(14192) = RCT(8950) -! B(14193) = dA(8951)/dV(1193) - B(14193) = RCT(8951)*V(5250) -! B(14194) = dA(8951)/dV(5250) - B(14194) = RCT(8951)*V(1193) -! B(14195) = dA(8952)/dV(3239) - B(14195) = RCT(8952) -! B(14196) = dA(8953)/dV(3239) - B(14196) = RCT(8953)*V(5250) -! B(14197) = dA(8953)/dV(5250) - B(14197) = RCT(8953)*V(3239) -! B(14198) = dA(8954)/dV(1935) - B(14198) = RCT(8954)*V(5250) -! B(14199) = dA(8954)/dV(5250) - B(14199) = RCT(8954)*V(1935) -! B(14200) = dA(8955)/dV(1935) - B(14200) = RCT(8955) -! B(14201) = dA(8956)/dV(557) - B(14201) = RCT(8956) -! B(14202) = dA(8957)/dV(4996) - B(14202) = RCT(8957)*V(5256) -! B(14203) = dA(8957)/dV(5256) - B(14203) = RCT(8957)*V(4996) -! B(14204) = dA(8958)/dV(4996) - B(14204) = RCT(8958)*V(5250) -! B(14205) = dA(8958)/dV(5250) - B(14205) = RCT(8958)*V(4996) -! B(14206) = dA(8959)/dV(4996) - B(14206) = RCT(8959) -! B(14207) = dA(8960)/dV(4996) - B(14207) = RCT(8960) -! B(14208) = dA(8961)/dV(3580) - B(14208) = RCT(8961)*V(5250) -! B(14209) = dA(8961)/dV(5250) - B(14209) = RCT(8961)*V(3580) -! B(14210) = dA(8962)/dV(3580) - B(14210) = RCT(8962) -! B(14211) = dA(8963)/dV(3055) - B(14211) = RCT(8963)*V(5250) -! B(14212) = dA(8963)/dV(5250) - B(14212) = RCT(8963)*V(3055) -! B(14213) = dA(8964)/dV(3055) - B(14213) = RCT(8964)*V(5250) -! B(14214) = dA(8964)/dV(5250) - B(14214) = RCT(8964)*V(3055) -! B(14215) = dA(8965)/dV(3055) - B(14215) = RCT(8965) -! B(14216) = dA(8966)/dV(2186) - B(14216) = RCT(8966) -! B(14217) = dA(8967)/dV(2186) - B(14217) = RCT(8967) -! B(14218) = dA(8968)/dV(1777) - B(14218) = RCT(8968)*V(5250) -! B(14219) = dA(8968)/dV(5250) - B(14219) = RCT(8968)*V(1777) -! B(14220) = dA(8969)/dV(1777) - B(14220) = RCT(8969) -! B(14221) = dA(8970)/dV(3389) - B(14221) = RCT(8970)*V(5250) -! B(14222) = dA(8970)/dV(5250) - B(14222) = RCT(8970)*V(3389) -! B(14223) = dA(8971)/dV(3389) - B(14223) = RCT(8971) -! B(14224) = dA(8972)/dV(4124) - B(14224) = RCT(8972)*V(5255) -! B(14225) = dA(8972)/dV(5255) - B(14225) = RCT(8972)*V(4124) -! B(14226) = dA(8973)/dV(4124) - B(14226) = RCT(8973)*V(5252) -! B(14227) = dA(8973)/dV(5252) - B(14227) = RCT(8973)*V(4124) -! B(14228) = dA(8974)/dV(4124) - B(14228) = RCT(8974)*V(5252) -! B(14229) = dA(8974)/dV(5252) - B(14229) = RCT(8974)*V(4124) -! B(14230) = dA(8975)/dV(4124) - B(14230) = RCT(8975)*V(5256) -! B(14231) = dA(8975)/dV(5256) - B(14231) = RCT(8975)*V(4124) -! B(14232) = dA(8976)/dV(4124) - B(14232) = RCT(8976) -! B(14233) = dA(8977)/dV(4124) - B(14233) = RCT(8977) -! B(14234) = dA(8978)/dV(1043) - B(14234) = RCT(8978)*V(5250) -! B(14235) = dA(8978)/dV(5250) - B(14235) = RCT(8978)*V(1043) -! B(14236) = dA(8979)/dV(1043) - B(14236) = RCT(8979) -! B(14237) = dA(8980)/dV(42) - B(14237) = RCT(8980) -! B(14238) = dA(8981)/dV(1462) - B(14238) = RCT(8981)*V(5250) -! B(14239) = dA(8981)/dV(5250) - B(14239) = RCT(8981)*V(1462) -! B(14240) = dA(8982)/dV(1462) - B(14240) = RCT(8982) -! B(14241) = dA(8983)/dV(2951) - B(14241) = RCT(8983)*V(5250) -! B(14242) = dA(8983)/dV(5250) - B(14242) = RCT(8983)*V(2951) -! B(14243) = dA(8984)/dV(2951) - B(14243) = RCT(8984) -! B(14244) = dA(8985)/dV(3955) - B(14244) = RCT(8985)*V(5255) -! B(14245) = dA(8985)/dV(5255) - B(14245) = RCT(8985)*V(3955) -! B(14246) = dA(8986)/dV(3955) - B(14246) = RCT(8986)*V(5252) -! B(14247) = dA(8986)/dV(5252) - B(14247) = RCT(8986)*V(3955) -! B(14248) = dA(8987)/dV(3955) - B(14248) = RCT(8987)*V(5252) -! B(14249) = dA(8987)/dV(5252) - B(14249) = RCT(8987)*V(3955) -! B(14250) = dA(8988)/dV(3955) - B(14250) = RCT(8988)*V(5256) -! B(14251) = dA(8988)/dV(5256) - B(14251) = RCT(8988)*V(3955) -! B(14252) = dA(8989)/dV(3955) - B(14252) = RCT(8989) -! B(14253) = dA(8990)/dV(3955) - B(14253) = RCT(8990) -! B(14254) = dA(8991)/dV(4910) - B(14254) = RCT(8991)*V(5255) -! B(14255) = dA(8991)/dV(5255) - B(14255) = RCT(8991)*V(4910) -! B(14256) = dA(8992)/dV(4910) - B(14256) = RCT(8992)*V(5255) -! B(14257) = dA(8992)/dV(5255) - B(14257) = RCT(8992)*V(4910) -! B(14258) = dA(8993)/dV(4910) - B(14258) = RCT(8993)*V(5255) -! B(14259) = dA(8993)/dV(5255) - B(14259) = RCT(8993)*V(4910) -! B(14260) = dA(8994)/dV(4910) - B(14260) = RCT(8994)*V(5252) -! B(14261) = dA(8994)/dV(5252) - B(14261) = RCT(8994)*V(4910) -! B(14262) = dA(8995)/dV(4910) - B(14262) = RCT(8995)*V(5253) -! B(14263) = dA(8995)/dV(5253) - B(14263) = RCT(8995)*V(4910) -! B(14264) = dA(8996)/dV(4910) - B(14264) = RCT(8996)*V(5256) -! B(14265) = dA(8996)/dV(5256) - B(14265) = RCT(8996)*V(4910) -! B(14266) = dA(8997)/dV(4910) - B(14266) = RCT(8997) -! B(14267) = dA(8998)/dV(4910) - B(14267) = RCT(8998) -! B(14268) = dA(8999)/dV(4830) - B(14268) = RCT(8999)*V(5255) -! B(14269) = dA(8999)/dV(5255) - B(14269) = RCT(8999)*V(4830) -! B(14270) = dA(9000)/dV(4830) - B(14270) = RCT(9000)*V(5255) -! B(14271) = dA(9000)/dV(5255) - B(14271) = RCT(9000)*V(4830) -! B(14272) = dA(9001)/dV(4830) - B(14272) = RCT(9001)*V(5255) -! B(14273) = dA(9001)/dV(5255) - B(14273) = RCT(9001)*V(4830) -! B(14274) = dA(9002)/dV(4830) - B(14274) = RCT(9002)*V(5252) -! B(14275) = dA(9002)/dV(5252) - B(14275) = RCT(9002)*V(4830) -! B(14276) = dA(9003)/dV(4830) - B(14276) = RCT(9003)*V(5253) -! B(14277) = dA(9003)/dV(5253) - B(14277) = RCT(9003)*V(4830) -! B(14278) = dA(9004)/dV(4830) - B(14278) = RCT(9004)*V(5256) -! B(14279) = dA(9004)/dV(5256) - B(14279) = RCT(9004)*V(4830) -! B(14280) = dA(9005)/dV(4830) - B(14280) = RCT(9005) -! B(14281) = dA(9006)/dV(4830) - B(14281) = RCT(9006) -! B(14282) = dA(9007)/dV(4898) - B(14282) = RCT(9007)*V(5255) -! B(14283) = dA(9007)/dV(5255) - B(14283) = RCT(9007)*V(4898) -! B(14284) = dA(9008)/dV(4898) - B(14284) = RCT(9008)*V(5252) -! B(14285) = dA(9008)/dV(5252) - B(14285) = RCT(9008)*V(4898) -! B(14286) = dA(9009)/dV(4898) - B(14286) = RCT(9009)*V(5256) -! B(14287) = dA(9009)/dV(5256) - B(14287) = RCT(9009)*V(4898) -! B(14288) = dA(9010)/dV(4898) - B(14288) = RCT(9010) -! B(14289) = dA(9011)/dV(3741) - B(14289) = RCT(9011)*V(5255) -! B(14290) = dA(9011)/dV(5255) - B(14290) = RCT(9011)*V(3741) -! B(14291) = dA(9012)/dV(3741) - B(14291) = RCT(9012)*V(5252) -! B(14292) = dA(9012)/dV(5252) - B(14292) = RCT(9012)*V(3741) -! B(14293) = dA(9013)/dV(3741) - B(14293) = RCT(9013)*V(5256) -! B(14294) = dA(9013)/dV(5256) - B(14294) = RCT(9013)*V(3741) -! B(14295) = dA(9014)/dV(3741) - B(14295) = RCT(9014) -! B(14296) = dA(9015)/dV(3741) - B(14296) = RCT(9015) -! B(14297) = dA(9016)/dV(4288) - B(14297) = RCT(9016)*V(5255) -! B(14298) = dA(9016)/dV(5255) - B(14298) = RCT(9016)*V(4288) -! B(14299) = dA(9017)/dV(4288) - B(14299) = RCT(9017)*V(5255) -! B(14300) = dA(9017)/dV(5255) - B(14300) = RCT(9017)*V(4288) -! B(14301) = dA(9018)/dV(4288) - B(14301) = RCT(9018)*V(5252) -! B(14302) = dA(9018)/dV(5252) - B(14302) = RCT(9018)*V(4288) -! B(14303) = dA(9019)/dV(4288) - B(14303) = RCT(9019)*V(5253) -! B(14304) = dA(9019)/dV(5253) - B(14304) = RCT(9019)*V(4288) -! B(14305) = dA(9020)/dV(4288) - B(14305) = RCT(9020)*V(5256) -! B(14306) = dA(9020)/dV(5256) - B(14306) = RCT(9020)*V(4288) -! B(14307) = dA(9021)/dV(4288) - B(14307) = RCT(9021) -! B(14308) = dA(9022)/dV(4257) - B(14308) = RCT(9022)*V(5255) -! B(14309) = dA(9022)/dV(5255) - B(14309) = RCT(9022)*V(4257) -! B(14310) = dA(9023)/dV(4257) - B(14310) = RCT(9023)*V(5252) -! B(14311) = dA(9023)/dV(5252) - B(14311) = RCT(9023)*V(4257) -! B(14312) = dA(9024)/dV(4257) - B(14312) = RCT(9024)*V(5256) -! B(14313) = dA(9024)/dV(5256) - B(14313) = RCT(9024)*V(4257) -! B(14314) = dA(9025)/dV(4257) - B(14314) = RCT(9025) -! B(14315) = dA(9026)/dV(4092) - B(14315) = RCT(9026)*V(5255) -! B(14316) = dA(9026)/dV(5255) - B(14316) = RCT(9026)*V(4092) -! B(14317) = dA(9027)/dV(4092) - B(14317) = RCT(9027)*V(5252) -! B(14318) = dA(9027)/dV(5252) - B(14318) = RCT(9027)*V(4092) -! B(14319) = dA(9028)/dV(4092) - B(14319) = RCT(9028)*V(5252) -! B(14320) = dA(9028)/dV(5252) - B(14320) = RCT(9028)*V(4092) -! B(14321) = dA(9029)/dV(4092) - B(14321) = RCT(9029)*V(5256) -! B(14322) = dA(9029)/dV(5256) - B(14322) = RCT(9029)*V(4092) -! B(14323) = dA(9030)/dV(4092) - B(14323) = RCT(9030) -! B(14324) = dA(9031)/dV(4092) - B(14324) = RCT(9031) -! B(14325) = dA(9032)/dV(1059) - B(14325) = RCT(9032)*V(5250) -! B(14326) = dA(9032)/dV(5250) - B(14326) = RCT(9032)*V(1059) -! B(14327) = dA(9033)/dV(1059) - B(14327) = RCT(9033) -! B(14328) = dA(9034)/dV(2462) - B(14328) = RCT(9034)*V(5250) -! B(14329) = dA(9034)/dV(5250) - B(14329) = RCT(9034)*V(2462) -! B(14330) = dA(9035)/dV(2462) - B(14330) = RCT(9035) -! B(14331) = dA(9036)/dV(2324) - B(14331) = RCT(9036) -! B(14332) = dA(9037)/dV(516) - B(14332) = RCT(9037)*V(5250) -! B(14333) = dA(9037)/dV(5250) - B(14333) = RCT(9037)*V(516) -! B(14334) = dA(9038)/dV(1770) - B(14334) = RCT(9038)*V(5250) -! B(14335) = dA(9038)/dV(5250) - B(14335) = RCT(9038)*V(1770) -! B(14336) = dA(9039)/dV(1770) - B(14336) = RCT(9039) -! B(14337) = dA(9040)/dV(2898) - B(14337) = RCT(9040)*V(5250) -! B(14338) = dA(9040)/dV(5250) - B(14338) = RCT(9040)*V(2898) -! B(14339) = dA(9041)/dV(2898) - B(14339) = RCT(9041) -! B(14340) = dA(9042)/dV(4173) - B(14340) = RCT(9042)*V(5255) -! B(14341) = dA(9042)/dV(5255) - B(14341) = RCT(9042)*V(4173) -! B(14342) = dA(9043)/dV(4173) - B(14342) = RCT(9043)*V(5252) -! B(14343) = dA(9043)/dV(5252) - B(14343) = RCT(9043)*V(4173) -! B(14344) = dA(9044)/dV(4173) - B(14344) = RCT(9044)*V(5252) -! B(14345) = dA(9044)/dV(5252) - B(14345) = RCT(9044)*V(4173) -! B(14346) = dA(9045)/dV(4173) - B(14346) = RCT(9045)*V(5256) -! B(14347) = dA(9045)/dV(5256) - B(14347) = RCT(9045)*V(4173) -! B(14348) = dA(9046)/dV(4173) - B(14348) = RCT(9046) -! B(14349) = dA(9047)/dV(4173) - B(14349) = RCT(9047) -! B(14350) = dA(9048)/dV(3720) - B(14350) = RCT(9048)*V(5255) -! B(14351) = dA(9048)/dV(5255) - B(14351) = RCT(9048)*V(3720) -! B(14352) = dA(9049)/dV(3720) - B(14352) = RCT(9049)*V(5252) -! B(14353) = dA(9049)/dV(5252) - B(14353) = RCT(9049)*V(3720) -! B(14354) = dA(9050)/dV(3720) - B(14354) = RCT(9050)*V(5252) -! B(14355) = dA(9050)/dV(5252) - B(14355) = RCT(9050)*V(3720) -! B(14356) = dA(9051)/dV(3720) - B(14356) = RCT(9051)*V(5256) -! B(14357) = dA(9051)/dV(5256) - B(14357) = RCT(9051)*V(3720) -! B(14358) = dA(9052)/dV(3720) - B(14358) = RCT(9052) -! B(14359) = dA(9053)/dV(3720) - B(14359) = RCT(9053) -! B(14360) = dA(9054)/dV(3720) - B(14360) = RCT(9054) -! B(14361) = dA(9055)/dV(4789) - B(14361) = RCT(9055)*V(5255) -! B(14362) = dA(9055)/dV(5255) - B(14362) = RCT(9055)*V(4789) -! B(14363) = dA(9056)/dV(4789) - B(14363) = RCT(9056)*V(5252) -! B(14364) = dA(9056)/dV(5252) - B(14364) = RCT(9056)*V(4789) -! B(14365) = dA(9057)/dV(4789) - B(14365) = RCT(9057)*V(5252) -! B(14366) = dA(9057)/dV(5252) - B(14366) = RCT(9057)*V(4789) -! B(14367) = dA(9058)/dV(4789) - B(14367) = RCT(9058)*V(5256) -! B(14368) = dA(9058)/dV(5256) - B(14368) = RCT(9058)*V(4789) -! B(14369) = dA(9059)/dV(4789) - B(14369) = RCT(9059) -! B(14370) = dA(9060)/dV(4789) - B(14370) = RCT(9060) -! B(14371) = dA(9061)/dV(4789) - B(14371) = RCT(9061) -! B(14372) = dA(9062)/dV(1696) - B(14372) = RCT(9062)*V(5250) -! B(14373) = dA(9062)/dV(5250) - B(14373) = RCT(9062)*V(1696) -! B(14374) = dA(9063)/dV(3981) - B(14374) = RCT(9063)*V(5255) -! B(14375) = dA(9063)/dV(5255) - B(14375) = RCT(9063)*V(3981) -! B(14376) = dA(9064)/dV(3981) - B(14376) = RCT(9064)*V(5252) -! B(14377) = dA(9064)/dV(5252) - B(14377) = RCT(9064)*V(3981) -! B(14378) = dA(9065)/dV(3981) - B(14378) = RCT(9065)*V(5252) -! B(14379) = dA(9065)/dV(5252) - B(14379) = RCT(9065)*V(3981) -! B(14380) = dA(9066)/dV(3981) - B(14380) = RCT(9066)*V(5256) -! B(14381) = dA(9066)/dV(5256) - B(14381) = RCT(9066)*V(3981) -! B(14382) = dA(9067)/dV(3981) - B(14382) = RCT(9067) -! B(14383) = dA(9068)/dV(3981) - B(14383) = RCT(9068) -! B(14384) = dA(9069)/dV(736) - B(14384) = RCT(9069)*V(5250) -! B(14385) = dA(9069)/dV(5250) - B(14385) = RCT(9069)*V(736) -! B(14386) = dA(9070)/dV(736) - B(14386) = RCT(9070) -! B(14387) = dA(9071)/dV(1057) - B(14387) = RCT(9071)*V(5250) -! B(14388) = dA(9071)/dV(5250) - B(14388) = RCT(9071)*V(1057) -! B(14389) = dA(9072)/dV(1057) - B(14389) = RCT(9072) -! B(14390) = dA(9073)/dV(154) - B(14390) = RCT(9073) -! B(14391) = dA(9074)/dV(735) - B(14391) = RCT(9074)*V(5250) -! B(14392) = dA(9074)/dV(5250) - B(14392) = RCT(9074)*V(735) -! B(14393) = dA(9075)/dV(344) - B(14393) = RCT(9075)*V(5250) -! B(14394) = dA(9075)/dV(5250) - B(14394) = RCT(9075)*V(344) -! B(14395) = dA(9076)/dV(2146) - B(14395) = RCT(9076)*V(5250) -! B(14396) = dA(9076)/dV(5250) - B(14396) = RCT(9076)*V(2146) -! B(14397) = dA(9077)/dV(2146) - B(14397) = RCT(9077) -! B(14398) = dA(9078)/dV(3017) - B(14398) = RCT(9078)*V(5250) -! B(14399) = dA(9078)/dV(5250) - B(14399) = RCT(9078)*V(3017) -! B(14400) = dA(9079)/dV(3017) - B(14400) = RCT(9079) -! B(14401) = dA(9080)/dV(3876) - B(14401) = RCT(9080)*V(5255) -! B(14402) = dA(9080)/dV(5255) - B(14402) = RCT(9080)*V(3876) -! B(14403) = dA(9081)/dV(3876) - B(14403) = RCT(9081)*V(5252) -! B(14404) = dA(9081)/dV(5252) - B(14404) = RCT(9081)*V(3876) -! B(14405) = dA(9082)/dV(3876) - B(14405) = RCT(9082)*V(5256) -! B(14406) = dA(9082)/dV(5256) - B(14406) = RCT(9082)*V(3876) -! B(14407) = dA(9083)/dV(3876) - B(14407) = RCT(9083) -! B(14408) = dA(9084)/dV(3876) - B(14408) = RCT(9084) -! B(14409) = dA(9085)/dV(148) - B(14409) = RCT(9085) -! B(14410) = dA(9086)/dV(5176) - B(14410) = RCT(9086)*V(5256) -! B(14411) = dA(9086)/dV(5256) - B(14411) = RCT(9086)*V(5176) -! B(14412) = dA(9087)/dV(5176) - B(14412) = RCT(9087)*V(5250) -! B(14413) = dA(9087)/dV(5250) - B(14413) = RCT(9087)*V(5176) -! B(14414) = dA(9088)/dV(5176) - B(14414) = RCT(9088)*V(5250) -! B(14415) = dA(9088)/dV(5250) - B(14415) = RCT(9088)*V(5176) -! B(14416) = dA(9089)/dV(5176) - B(14416) = RCT(9089) -! B(14417) = dA(9090)/dV(3850) - B(14417) = RCT(9090)*V(5255) -! B(14418) = dA(9090)/dV(5255) - B(14418) = RCT(9090)*V(3850) -! B(14419) = dA(9091)/dV(3850) - B(14419) = RCT(9091)*V(5252) -! B(14420) = dA(9091)/dV(5252) - B(14420) = RCT(9091)*V(3850) -! B(14421) = dA(9092)/dV(3850) - B(14421) = RCT(9092)*V(5252) -! B(14422) = dA(9092)/dV(5252) - B(14422) = RCT(9092)*V(3850) -! B(14423) = dA(9093)/dV(3850) - B(14423) = RCT(9093)*V(5256) -! B(14424) = dA(9093)/dV(5256) - B(14424) = RCT(9093)*V(3850) -! B(14425) = dA(9094)/dV(3850) - B(14425) = RCT(9094) -! B(14426) = dA(9095)/dV(3850) - B(14426) = RCT(9095) -! B(14427) = dA(9096)/dV(5083) - B(14427) = RCT(9096)*V(5256) -! B(14428) = dA(9096)/dV(5256) - B(14428) = RCT(9096)*V(5083) -! B(14429) = dA(9097)/dV(5083) - B(14429) = RCT(9097)*V(5256) -! B(14430) = dA(9097)/dV(5256) - B(14430) = RCT(9097)*V(5083) -! B(14431) = dA(9098)/dV(5083) - B(14431) = RCT(9098)*V(5258) -! B(14432) = dA(9098)/dV(5258) - B(14432) = RCT(9098)*V(5083) -! B(14433) = dA(9099)/dV(5083) - B(14433) = RCT(9099)*V(5258) -! B(14434) = dA(9099)/dV(5258) - B(14434) = RCT(9099)*V(5083) -! B(14435) = dA(9100)/dV(5083) - B(14435) = RCT(9100)*V(5250) -! B(14436) = dA(9100)/dV(5250) - B(14436) = RCT(9100)*V(5083) -! B(14437) = dA(9101)/dV(5083) - B(14437) = RCT(9101)*V(5250) -! B(14438) = dA(9101)/dV(5250) - B(14438) = RCT(9101)*V(5083) -! B(14439) = dA(9102)/dV(5083) - B(14439) = RCT(9102) -! B(14440) = dA(9103)/dV(4855) - B(14440) = RCT(9103)*V(5255) -! B(14441) = dA(9103)/dV(5255) - B(14441) = RCT(9103)*V(4855) -! B(14442) = dA(9104)/dV(4855) - B(14442) = RCT(9104)*V(5255) -! B(14443) = dA(9104)/dV(5255) - B(14443) = RCT(9104)*V(4855) -! B(14444) = dA(9105)/dV(4855) - B(14444) = RCT(9105)*V(5255) -! B(14445) = dA(9105)/dV(5255) - B(14445) = RCT(9105)*V(4855) -! B(14446) = dA(9106)/dV(4855) - B(14446) = RCT(9106)*V(5252) -! B(14447) = dA(9106)/dV(5252) - B(14447) = RCT(9106)*V(4855) -! B(14448) = dA(9107)/dV(4855) - B(14448) = RCT(9107)*V(5253) -! B(14449) = dA(9107)/dV(5253) - B(14449) = RCT(9107)*V(4855) -! B(14450) = dA(9108)/dV(4855) - B(14450) = RCT(9108)*V(5256) -! B(14451) = dA(9108)/dV(5256) - B(14451) = RCT(9108)*V(4855) -! B(14452) = dA(9109)/dV(4855) - B(14452) = RCT(9109) -! B(14453) = dA(9110)/dV(4855) - B(14453) = RCT(9110) -! B(14454) = dA(9111)/dV(4953) - B(14454) = RCT(9111)*V(5255) -! B(14455) = dA(9111)/dV(5255) - B(14455) = RCT(9111)*V(4953) -! B(14456) = dA(9112)/dV(4953) - B(14456) = RCT(9112)*V(5255) -! B(14457) = dA(9112)/dV(5255) - B(14457) = RCT(9112)*V(4953) -! B(14458) = dA(9113)/dV(4953) - B(14458) = RCT(9113)*V(5255) -! B(14459) = dA(9113)/dV(5255) - B(14459) = RCT(9113)*V(4953) -! B(14460) = dA(9114)/dV(4953) - B(14460) = RCT(9114)*V(5252) -! B(14461) = dA(9114)/dV(5252) - B(14461) = RCT(9114)*V(4953) -! B(14462) = dA(9115)/dV(4953) - B(14462) = RCT(9115)*V(5253) -! B(14463) = dA(9115)/dV(5253) - B(14463) = RCT(9115)*V(4953) -! B(14464) = dA(9116)/dV(4953) - B(14464) = RCT(9116)*V(5256) -! B(14465) = dA(9116)/dV(5256) - B(14465) = RCT(9116)*V(4953) -! B(14466) = dA(9117)/dV(4953) - B(14466) = RCT(9117) -! B(14467) = dA(9118)/dV(4953) - B(14467) = RCT(9118) -! B(14468) = dA(9119)/dV(4567) - B(14468) = RCT(9119)*V(5255) -! B(14469) = dA(9119)/dV(5255) - B(14469) = RCT(9119)*V(4567) -! B(14470) = dA(9120)/dV(4567) - B(14470) = RCT(9120)*V(5252) -! B(14471) = dA(9120)/dV(5252) - B(14471) = RCT(9120)*V(4567) -! B(14472) = dA(9121)/dV(4567) - B(14472) = RCT(9121)*V(5256) -! B(14473) = dA(9121)/dV(5256) - B(14473) = RCT(9121)*V(4567) -! B(14474) = dA(9122)/dV(4567) - B(14474) = RCT(9122) -! B(14475) = dA(9123)/dV(4567) - B(14475) = RCT(9123) -! B(14476) = dA(9124)/dV(4567) - B(14476) = RCT(9124) -! B(14477) = dA(9125)/dV(4891) - B(14477) = RCT(9125)*V(5255) -! B(14478) = dA(9125)/dV(5255) - B(14478) = RCT(9125)*V(4891) -! B(14479) = dA(9126)/dV(4891) - B(14479) = RCT(9126)*V(5255) -! B(14480) = dA(9126)/dV(5255) - B(14480) = RCT(9126)*V(4891) -! B(14481) = dA(9127)/dV(4891) - B(14481) = RCT(9127)*V(5252) -! B(14482) = dA(9127)/dV(5252) - B(14482) = RCT(9127)*V(4891) -! B(14483) = dA(9128)/dV(4891) - B(14483) = RCT(9128)*V(5253) -! B(14484) = dA(9128)/dV(5253) - B(14484) = RCT(9128)*V(4891) -! B(14485) = dA(9129)/dV(4891) - B(14485) = RCT(9129)*V(5256) -! B(14486) = dA(9129)/dV(5256) - B(14486) = RCT(9129)*V(4891) -! B(14487) = dA(9130)/dV(4891) - B(14487) = RCT(9130) -! B(14488) = dA(9131)/dV(3907) - B(14488) = RCT(9131)*V(5255) -! B(14489) = dA(9131)/dV(5255) - B(14489) = RCT(9131)*V(3907) -! B(14490) = dA(9132)/dV(3907) - B(14490) = RCT(9132)*V(5252) -! B(14491) = dA(9132)/dV(5252) - B(14491) = RCT(9132)*V(3907) -! B(14492) = dA(9133)/dV(3907) - B(14492) = RCT(9133)*V(5256) -! B(14493) = dA(9133)/dV(5256) - B(14493) = RCT(9133)*V(3907) -! B(14494) = dA(9134)/dV(3907) - B(14494) = RCT(9134) -! B(14495) = dA(9135)/dV(4781) - B(14495) = RCT(9135)*V(5255) -! B(14496) = dA(9135)/dV(5255) - B(14496) = RCT(9135)*V(4781) -! B(14497) = dA(9136)/dV(4781) - B(14497) = RCT(9136)*V(5252) -! B(14498) = dA(9136)/dV(5252) - B(14498) = RCT(9136)*V(4781) -! B(14499) = dA(9137)/dV(4781) - B(14499) = RCT(9137)*V(5256) -! B(14500) = dA(9137)/dV(5256) - B(14500) = RCT(9137)*V(4781) -! B(14501) = dA(9138)/dV(4781) - B(14501) = RCT(9138) -! B(14502) = dA(9139)/dV(985) - B(14502) = RCT(9139)*V(5250) -! B(14503) = dA(9139)/dV(5250) - B(14503) = RCT(9139)*V(985) -! B(14504) = dA(9140)/dV(985) - B(14504) = RCT(9140) -! B(14505) = dA(9141)/dV(2593) - B(14505) = RCT(9141)*V(5250) -! B(14506) = dA(9141)/dV(5250) - B(14506) = RCT(9141)*V(2593) -! B(14507) = dA(9142)/dV(2593) - B(14507) = RCT(9142) -! B(14508) = dA(9143)/dV(3969) - B(14508) = RCT(9143)*V(5255) -! B(14509) = dA(9143)/dV(5255) - B(14509) = RCT(9143)*V(3969) -! B(14510) = dA(9144)/dV(3969) - B(14510) = RCT(9144)*V(5252) -! B(14511) = dA(9144)/dV(5252) - B(14511) = RCT(9144)*V(3969) -! B(14512) = dA(9145)/dV(3969) - B(14512) = RCT(9145)*V(5256) -! B(14513) = dA(9145)/dV(5256) - B(14513) = RCT(9145)*V(3969) -! B(14514) = dA(9146)/dV(3969) - B(14514) = RCT(9146) -! B(14515) = dA(9147)/dV(3969) - B(14515) = RCT(9147) -! B(14516) = dA(9148)/dV(224) - B(14516) = RCT(9148) -! B(14517) = dA(9149)/dV(224) - B(14517) = RCT(9149) -! B(14518) = dA(9150)/dV(612) - B(14518) = RCT(9150) -! B(14519) = dA(9151)/dV(612) - B(14519) = RCT(9151) -! B(14520) = dA(9152)/dV(3872) - B(14520) = RCT(9152)*V(5255) -! B(14521) = dA(9152)/dV(5255) - B(14521) = RCT(9152)*V(3872) -! B(14522) = dA(9153)/dV(3872) - B(14522) = RCT(9153)*V(5252) -! B(14523) = dA(9153)/dV(5252) - B(14523) = RCT(9153)*V(3872) -! B(14524) = dA(9154)/dV(3872) - B(14524) = RCT(9154)*V(5252) -! B(14525) = dA(9154)/dV(5252) - B(14525) = RCT(9154)*V(3872) -! B(14526) = dA(9155)/dV(3872) - B(14526) = RCT(9155)*V(5256) -! B(14527) = dA(9155)/dV(5256) - B(14527) = RCT(9155)*V(3872) -! B(14528) = dA(9156)/dV(3872) - B(14528) = RCT(9156) -! B(14529) = dA(9157)/dV(3872) - B(14529) = RCT(9157) -! B(14530) = dA(9158)/dV(3927) - B(14530) = RCT(9158)*V(5255) -! B(14531) = dA(9158)/dV(5255) - B(14531) = RCT(9158)*V(3927) -! B(14532) = dA(9159)/dV(3927) - B(14532) = RCT(9159)*V(5252) -! B(14533) = dA(9159)/dV(5252) - B(14533) = RCT(9159)*V(3927) -! B(14534) = dA(9160)/dV(3927) - B(14534) = RCT(9160)*V(5252) -! B(14535) = dA(9160)/dV(5252) - B(14535) = RCT(9160)*V(3927) -! B(14536) = dA(9161)/dV(3927) - B(14536) = RCT(9161)*V(5256) -! B(14537) = dA(9161)/dV(5256) - B(14537) = RCT(9161)*V(3927) -! B(14538) = dA(9162)/dV(3927) - B(14538) = RCT(9162) -! B(14539) = dA(9163)/dV(3927) - B(14539) = RCT(9163) -! B(14540) = dA(9164)/dV(3927) - B(14540) = RCT(9164) -! B(14541) = dA(9165)/dV(1251) - B(14541) = RCT(9165)*V(5250) -! B(14542) = dA(9165)/dV(5250) - B(14542) = RCT(9165)*V(1251) -! B(14543) = dA(9166)/dV(1251) - B(14543) = RCT(9166) -! B(14544) = dA(9167)/dV(2587) - B(14544) = RCT(9167)*V(5250) -! B(14545) = dA(9167)/dV(5250) - B(14545) = RCT(9167)*V(2587) -! B(14546) = dA(9168)/dV(2587) - B(14546) = RCT(9168) -! B(14547) = dA(9169)/dV(885) - B(14547) = RCT(9169)*V(5250) -! B(14548) = dA(9169)/dV(5250) - B(14548) = RCT(9169)*V(885) -! B(14549) = dA(9170)/dV(885) - B(14549) = RCT(9170) -! B(14550) = dA(9171)/dV(3074) - B(14550) = RCT(9171) -! B(14551) = dA(9172)/dV(621) - B(14551) = RCT(9172)*V(5250) -! B(14552) = dA(9172)/dV(5250) - B(14552) = RCT(9172)*V(621) -! B(14553) = dA(9173)/dV(4264) - B(14553) = RCT(9173)*V(5251) -! B(14554) = dA(9173)/dV(5251) - B(14554) = RCT(9173)*V(4264) -! B(14555) = dA(9174)/dV(4264) - B(14555) = RCT(9174)*V(5252) -! B(14556) = dA(9174)/dV(5252) - B(14556) = RCT(9174)*V(4264) -! B(14557) = dA(9175)/dV(4264) - B(14557) = RCT(9175)*V(5253) -! B(14558) = dA(9175)/dV(5253) - B(14558) = RCT(9175)*V(4264) -! B(14559) = dA(9176)/dV(4264) - B(14559) = RCT(9176)*V(5254) -! B(14560) = dA(9176)/dV(5254) - B(14560) = RCT(9176)*V(4264) -! B(14561) = dA(9177)/dV(4264) - B(14561) = RCT(9177) -! B(14562) = dA(9178)/dV(4762) - B(14562) = RCT(9178)*V(5255) -! B(14563) = dA(9178)/dV(5255) - B(14563) = RCT(9178)*V(4762) -! B(14564) = dA(9179)/dV(4762) - B(14564) = RCT(9179)*V(5252) -! B(14565) = dA(9179)/dV(5252) - B(14565) = RCT(9179)*V(4762) -! B(14566) = dA(9180)/dV(4762) - B(14566) = RCT(9180)*V(5256) -! B(14567) = dA(9180)/dV(5256) - B(14567) = RCT(9180)*V(4762) -! B(14568) = dA(9181)/dV(4762) - B(14568) = RCT(9181) -! B(14569) = dA(9182)/dV(4762) - B(14569) = RCT(9182) -! B(14570) = dA(9183)/dV(4762) - B(14570) = RCT(9183) -! B(14571) = dA(9184)/dV(4921) - B(14571) = RCT(9184)*V(5255) -! B(14572) = dA(9184)/dV(5255) - B(14572) = RCT(9184)*V(4921) -! B(14573) = dA(9185)/dV(4921) - B(14573) = RCT(9185)*V(5255) -! B(14574) = dA(9185)/dV(5255) - B(14574) = RCT(9185)*V(4921) -! B(14575) = dA(9186)/dV(4921) - B(14575) = RCT(9186)*V(5255) -! B(14576) = dA(9186)/dV(5255) - B(14576) = RCT(9186)*V(4921) -! B(14577) = dA(9187)/dV(4921) - B(14577) = RCT(9187)*V(5252) -! B(14578) = dA(9187)/dV(5252) - B(14578) = RCT(9187)*V(4921) -! B(14579) = dA(9188)/dV(4921) - B(14579) = RCT(9188)*V(5253) -! B(14580) = dA(9188)/dV(5253) - B(14580) = RCT(9188)*V(4921) -! B(14581) = dA(9189)/dV(4921) - B(14581) = RCT(9189)*V(5256) -! B(14582) = dA(9189)/dV(5256) - B(14582) = RCT(9189)*V(4921) -! B(14583) = dA(9190)/dV(4921) - B(14583) = RCT(9190) -! B(14584) = dA(9191)/dV(4921) - B(14584) = RCT(9191) -! B(14585) = dA(9192)/dV(5028) - B(14585) = RCT(9192)*V(5255) -! B(14586) = dA(9192)/dV(5255) - B(14586) = RCT(9192)*V(5028) -! B(14587) = dA(9193)/dV(5028) - B(14587) = RCT(9193)*V(5252) -! B(14588) = dA(9193)/dV(5252) - B(14588) = RCT(9193)*V(5028) -! B(14589) = dA(9194)/dV(5028) - B(14589) = RCT(9194)*V(5256) -! B(14590) = dA(9194)/dV(5256) - B(14590) = RCT(9194)*V(5028) -! B(14591) = dA(9195)/dV(5028) - B(14591) = RCT(9195) -! B(14592) = dA(9196)/dV(5028) - B(14592) = RCT(9196) -! B(14593) = dA(9197)/dV(5028) - B(14593) = RCT(9197) -! B(14594) = dA(9198)/dV(4761) - B(14594) = RCT(9198)*V(5255) -! B(14595) = dA(9198)/dV(5255) - B(14595) = RCT(9198)*V(4761) -! B(14596) = dA(9199)/dV(4761) - B(14596) = RCT(9199)*V(5252) -! B(14597) = dA(9199)/dV(5252) - B(14597) = RCT(9199)*V(4761) -! B(14598) = dA(9200)/dV(4761) - B(14598) = RCT(9200)*V(5256) -! B(14599) = dA(9200)/dV(5256) - B(14599) = RCT(9200)*V(4761) -! B(14600) = dA(9201)/dV(4761) - B(14600) = RCT(9201) -! B(14601) = dA(9202)/dV(4761) - B(14601) = RCT(9202) -! B(14602) = dA(9203)/dV(4761) - B(14602) = RCT(9203) -! B(14603) = dA(9204)/dV(4542) - B(14603) = RCT(9204)*V(5255) -! B(14604) = dA(9204)/dV(5255) - B(14604) = RCT(9204)*V(4542) -! B(14605) = dA(9205)/dV(4542) - B(14605) = RCT(9205)*V(5252) -! B(14606) = dA(9205)/dV(5252) - B(14606) = RCT(9205)*V(4542) -! B(14607) = dA(9206)/dV(4542) - B(14607) = RCT(9206)*V(5256) -! B(14608) = dA(9206)/dV(5256) - B(14608) = RCT(9206)*V(4542) -! B(14609) = dA(9207)/dV(4542) - B(14609) = RCT(9207) -! B(14610) = dA(9208)/dV(4542) - B(14610) = RCT(9208) -! B(14611) = dA(9209)/dV(4542) - B(14611) = RCT(9209) -! B(14612) = dA(9210)/dV(4940) - B(14612) = RCT(9210)*V(5255) -! B(14613) = dA(9210)/dV(5255) - B(14613) = RCT(9210)*V(4940) -! B(14614) = dA(9211)/dV(4940) - B(14614) = RCT(9211)*V(5252) -! B(14615) = dA(9211)/dV(5252) - B(14615) = RCT(9211)*V(4940) -! B(14616) = dA(9212)/dV(4940) - B(14616) = RCT(9212)*V(5252) -! B(14617) = dA(9212)/dV(5252) - B(14617) = RCT(9212)*V(4940) -! B(14618) = dA(9213)/dV(4940) - B(14618) = RCT(9213)*V(5256) -! B(14619) = dA(9213)/dV(5256) - B(14619) = RCT(9213)*V(4940) -! B(14620) = dA(9214)/dV(4940) - B(14620) = RCT(9214) -! B(14621) = dA(9215)/dV(4940) - B(14621) = RCT(9215) -! B(14622) = dA(9216)/dV(4940) - B(14622) = RCT(9216) -! B(14623) = dA(9217)/dV(1314) - B(14623) = RCT(9217)*V(5250) -! B(14624) = dA(9217)/dV(5250) - B(14624) = RCT(9217)*V(1314) -! B(14625) = dA(9218)/dV(1314) - B(14625) = RCT(9218) -! B(14626) = dA(9219)/dV(1918) - B(14626) = RCT(9219)*V(5250) -! B(14627) = dA(9219)/dV(5250) - B(14627) = RCT(9219)*V(1918) -! B(14628) = dA(9220)/dV(3039) - B(14628) = RCT(9220) -! B(14629) = dA(9221)/dV(667) - B(14629) = RCT(9221)*V(5250) -! B(14630) = dA(9221)/dV(5250) - B(14630) = RCT(9221)*V(667) -! B(14631) = dA(9222)/dV(1993) - B(14631) = RCT(9222)*V(5250) -! B(14632) = dA(9222)/dV(5250) - B(14632) = RCT(9222)*V(1993) -! B(14633) = dA(9223)/dV(1993) - B(14633) = RCT(9223) -! B(14634) = dA(9224)/dV(2254) - B(14634) = RCT(9224)*V(5250) -! B(14635) = dA(9224)/dV(5250) - B(14635) = RCT(9224)*V(2254) -! B(14636) = dA(9225)/dV(3037) - B(14636) = RCT(9225) -! B(14637) = dA(9226)/dV(580) - B(14637) = RCT(9226)*V(5250) -! B(14638) = dA(9226)/dV(5250) - B(14638) = RCT(9226)*V(580) -! B(14639) = dA(9227)/dV(5039) - B(14639) = RCT(9227)*V(5255) -! B(14640) = dA(9227)/dV(5255) - B(14640) = RCT(9227)*V(5039) -! B(14641) = dA(9228)/dV(5039) - B(14641) = RCT(9228)*V(5252) -! B(14642) = dA(9228)/dV(5252) - B(14642) = RCT(9228)*V(5039) -! B(14643) = dA(9229)/dV(5039) - B(14643) = RCT(9229)*V(5256) -! B(14644) = dA(9229)/dV(5256) - B(14644) = RCT(9229)*V(5039) -! B(14645) = dA(9230)/dV(5039) - B(14645) = RCT(9230) -! B(14646) = dA(9231)/dV(5039) - B(14646) = RCT(9231) -! B(14647) = dA(9232)/dV(5039) - B(14647) = RCT(9232) -! B(14648) = dA(9233)/dV(4526) - B(14648) = RCT(9233)*V(5251) -! B(14649) = dA(9233)/dV(5251) - B(14649) = RCT(9233)*V(4526) -! B(14650) = dA(9234)/dV(4526) - B(14650) = RCT(9234)*V(5252) -! B(14651) = dA(9234)/dV(5252) - B(14651) = RCT(9234)*V(4526) -! B(14652) = dA(9235)/dV(4526) - B(14652) = RCT(9235)*V(5253) -! B(14653) = dA(9235)/dV(5253) - B(14653) = RCT(9235)*V(4526) -! B(14654) = dA(9236)/dV(4526) - B(14654) = RCT(9236)*V(5254) -! B(14655) = dA(9236)/dV(5254) - B(14655) = RCT(9236)*V(4526) -! B(14656) = dA(9237)/dV(4526) - B(14656) = RCT(9237) -! B(14657) = dA(9238)/dV(1758) - B(14657) = RCT(9238)*V(5250) -! B(14658) = dA(9238)/dV(5250) - B(14658) = RCT(9238)*V(1758) -! B(14659) = dA(9239)/dV(1758) - B(14659) = RCT(9239) -! B(14660) = dA(9240)/dV(2347) - B(14660) = RCT(9240)*V(5250) -! B(14661) = dA(9240)/dV(5250) - B(14661) = RCT(9240)*V(2347) -! B(14662) = dA(9241)/dV(2744) - B(14662) = RCT(9241) -! B(14663) = dA(9242)/dV(536) - B(14663) = RCT(9242)*V(5250) -! B(14664) = dA(9242)/dV(5250) - B(14664) = RCT(9242)*V(536) -! B(14665) = dA(9243)/dV(5014) - B(14665) = RCT(9243)*V(5255) -! B(14666) = dA(9243)/dV(5255) - B(14666) = RCT(9243)*V(5014) -! B(14667) = dA(9244)/dV(5014) - B(14667) = RCT(9244)*V(5255) -! B(14668) = dA(9244)/dV(5255) - B(14668) = RCT(9244)*V(5014) -! B(14669) = dA(9245)/dV(5014) - B(14669) = RCT(9245)*V(5255) -! B(14670) = dA(9245)/dV(5255) - B(14670) = RCT(9245)*V(5014) -! B(14671) = dA(9246)/dV(5014) - B(14671) = RCT(9246)*V(5252) -! B(14672) = dA(9246)/dV(5252) - B(14672) = RCT(9246)*V(5014) -! B(14673) = dA(9247)/dV(5014) - B(14673) = RCT(9247)*V(5253) -! B(14674) = dA(9247)/dV(5253) - B(14674) = RCT(9247)*V(5014) -! B(14675) = dA(9248)/dV(5014) - B(14675) = RCT(9248)*V(5256) -! B(14676) = dA(9248)/dV(5256) - B(14676) = RCT(9248)*V(5014) -! B(14677) = dA(9249)/dV(5014) - B(14677) = RCT(9249) -! B(14678) = dA(9250)/dV(5014) - B(14678) = RCT(9250) -! B(14679) = dA(9251)/dV(4989) - B(14679) = RCT(9251)*V(5255) -! B(14680) = dA(9251)/dV(5255) - B(14680) = RCT(9251)*V(4989) -! B(14681) = dA(9252)/dV(4989) - B(14681) = RCT(9252)*V(5255) -! B(14682) = dA(9252)/dV(5255) - B(14682) = RCT(9252)*V(4989) -! B(14683) = dA(9253)/dV(4989) - B(14683) = RCT(9253)*V(5255) -! B(14684) = dA(9253)/dV(5255) - B(14684) = RCT(9253)*V(4989) -! B(14685) = dA(9254)/dV(4989) - B(14685) = RCT(9254)*V(5252) -! B(14686) = dA(9254)/dV(5252) - B(14686) = RCT(9254)*V(4989) -! B(14687) = dA(9255)/dV(4989) - B(14687) = RCT(9255)*V(5253) -! B(14688) = dA(9255)/dV(5253) - B(14688) = RCT(9255)*V(4989) -! B(14689) = dA(9256)/dV(4989) - B(14689) = RCT(9256)*V(5256) -! B(14690) = dA(9256)/dV(5256) - B(14690) = RCT(9256)*V(4989) -! B(14691) = dA(9257)/dV(4989) - B(14691) = RCT(9257) -! B(14692) = dA(9258)/dV(4989) - B(14692) = RCT(9258) -! B(14693) = dA(9259)/dV(4757) - B(14693) = RCT(9259)*V(5251) -! B(14694) = dA(9259)/dV(5251) - B(14694) = RCT(9259)*V(4757) -! B(14695) = dA(9260)/dV(4757) - B(14695) = RCT(9260)*V(5252) -! B(14696) = dA(9260)/dV(5252) - B(14696) = RCT(9260)*V(4757) -! B(14697) = dA(9261)/dV(4757) - B(14697) = RCT(9261)*V(5253) -! B(14698) = dA(9261)/dV(5253) - B(14698) = RCT(9261)*V(4757) -! B(14699) = dA(9262)/dV(4757) - B(14699) = RCT(9262)*V(5254) -! B(14700) = dA(9262)/dV(5254) - B(14700) = RCT(9262)*V(4757) -! B(14701) = dA(9263)/dV(4757) - B(14701) = RCT(9263) -! B(14702) = dA(9264)/dV(5122) - B(14702) = RCT(9264)*V(5255) -! B(14703) = dA(9264)/dV(5255) - B(14703) = RCT(9264)*V(5122) -! B(14704) = dA(9265)/dV(5122) - B(14704) = RCT(9265)*V(5252) -! B(14705) = dA(9265)/dV(5252) - B(14705) = RCT(9265)*V(5122) -! B(14706) = dA(9266)/dV(5122) - B(14706) = RCT(9266)*V(5256) -! B(14707) = dA(9266)/dV(5256) - B(14707) = RCT(9266)*V(5122) -! B(14708) = dA(9267)/dV(5122) - B(14708) = RCT(9267) -! B(14709) = dA(9268)/dV(5122) - B(14709) = RCT(9268) -! B(14710) = dA(9269)/dV(5122) - B(14710) = RCT(9269) -! B(14711) = dA(9270)/dV(2373) - B(14711) = RCT(9270)*V(5250) -! B(14712) = dA(9270)/dV(5250) - B(14712) = RCT(9270)*V(2373) -! B(14713) = dA(9271)/dV(2373) - B(14713) = RCT(9271) -! B(14714) = dA(9272)/dV(2280) - B(14714) = RCT(9272)*V(5250) -! B(14715) = dA(9272)/dV(5250) - B(14715) = RCT(9272)*V(2280) -! B(14716) = dA(9273)/dV(2008) - B(14716) = RCT(9273) -! B(14717) = dA(9274)/dV(694) - B(14717) = RCT(9274)*V(5250) -! B(14718) = dA(9274)/dV(5250) - B(14718) = RCT(9274)*V(694) -! B(14719) = dA(9275)/dV(3901) - B(14719) = RCT(9275)*V(5255) -! B(14720) = dA(9275)/dV(5255) - B(14720) = RCT(9275)*V(3901) -! B(14721) = dA(9276)/dV(3901) - B(14721) = RCT(9276)*V(5252) -! B(14722) = dA(9276)/dV(5252) - B(14722) = RCT(9276)*V(3901) -! B(14723) = dA(9277)/dV(3901) - B(14723) = RCT(9277)*V(5252) -! B(14724) = dA(9277)/dV(5252) - B(14724) = RCT(9277)*V(3901) -! B(14725) = dA(9278)/dV(3901) - B(14725) = RCT(9278)*V(5256) -! B(14726) = dA(9278)/dV(5256) - B(14726) = RCT(9278)*V(3901) -! B(14727) = dA(9279)/dV(3901) - B(14727) = RCT(9279) -! B(14728) = dA(9280)/dV(3901) - B(14728) = RCT(9280) -! B(14729) = dA(9281)/dV(3928) - B(14729) = RCT(9281)*V(5255) -! B(14730) = dA(9281)/dV(5255) - B(14730) = RCT(9281)*V(3928) -! B(14731) = dA(9282)/dV(3928) - B(14731) = RCT(9282)*V(5252) -! B(14732) = dA(9282)/dV(5252) - B(14732) = RCT(9282)*V(3928) -! B(14733) = dA(9283)/dV(3928) - B(14733) = RCT(9283)*V(5256) -! B(14734) = dA(9283)/dV(5256) - B(14734) = RCT(9283)*V(3928) -! B(14735) = dA(9284)/dV(3928) - B(14735) = RCT(9284) -! B(14736) = dA(9285)/dV(3928) - B(14736) = RCT(9285) -! B(14737) = dA(9286)/dV(5240) - B(14737) = RCT(9286)*V(5256) -! B(14738) = dA(9286)/dV(5256) - B(14738) = RCT(9286)*V(5240) -! B(14739) = dA(9287)/dV(5240) - B(14739) = RCT(9287)*V(5250) -! B(14740) = dA(9287)/dV(5250) - B(14740) = RCT(9287)*V(5240) -! B(14741) = dA(9288)/dV(5240) - B(14741) = RCT(9288) -! B(14742) = dA(9289)/dV(522) - B(14742) = RCT(9289) -! B(14743) = dA(9290)/dV(522) - B(14743) = RCT(9290) -! B(14744) = dA(9291)/dV(3886) - B(14744) = RCT(9291)*V(5255) -! B(14745) = dA(9291)/dV(5255) - B(14745) = RCT(9291)*V(3886) -! B(14746) = dA(9292)/dV(3886) - B(14746) = RCT(9292)*V(5252) -! B(14747) = dA(9292)/dV(5252) - B(14747) = RCT(9292)*V(3886) -! B(14748) = dA(9293)/dV(3886) - B(14748) = RCT(9293)*V(5252) -! B(14749) = dA(9293)/dV(5252) - B(14749) = RCT(9293)*V(3886) -! B(14750) = dA(9294)/dV(3886) - B(14750) = RCT(9294)*V(5256) -! B(14751) = dA(9294)/dV(5256) - B(14751) = RCT(9294)*V(3886) -! B(14752) = dA(9295)/dV(3886) - B(14752) = RCT(9295) -! B(14753) = dA(9296)/dV(3886) - B(14753) = RCT(9296) -! B(14754) = dA(9297)/dV(4088) - B(14754) = RCT(9297)*V(5255) -! B(14755) = dA(9297)/dV(5255) - B(14755) = RCT(9297)*V(4088) -! B(14756) = dA(9298)/dV(4088) - B(14756) = RCT(9298)*V(5252) -! B(14757) = dA(9298)/dV(5252) - B(14757) = RCT(9298)*V(4088) -! B(14758) = dA(9299)/dV(4088) - B(14758) = RCT(9299)*V(5252) -! B(14759) = dA(9299)/dV(5252) - B(14759) = RCT(9299)*V(4088) -! B(14760) = dA(9300)/dV(4088) - B(14760) = RCT(9300)*V(5256) -! B(14761) = dA(9300)/dV(5256) - B(14761) = RCT(9300)*V(4088) -! B(14762) = dA(9301)/dV(4088) - B(14762) = RCT(9301) -! B(14763) = dA(9302)/dV(4088) - B(14763) = RCT(9302) -! B(14764) = dA(9303)/dV(4088) - B(14764) = RCT(9303) -! B(14765) = dA(9304)/dV(4745) - B(14765) = RCT(9304)*V(5255) -! B(14766) = dA(9304)/dV(5255) - B(14766) = RCT(9304)*V(4745) -! B(14767) = dA(9305)/dV(4745) - B(14767) = RCT(9305)*V(5252) -! B(14768) = dA(9305)/dV(5252) - B(14768) = RCT(9305)*V(4745) -! B(14769) = dA(9306)/dV(4745) - B(14769) = RCT(9306)*V(5256) -! B(14770) = dA(9306)/dV(5256) - B(14770) = RCT(9306)*V(4745) -! B(14771) = dA(9307)/dV(4745) - B(14771) = RCT(9307) -! B(14772) = dA(9308)/dV(4394) - B(14772) = RCT(9308)*V(5255) -! B(14773) = dA(9308)/dV(5255) - B(14773) = RCT(9308)*V(4394) -! B(14774) = dA(9309)/dV(4394) - B(14774) = RCT(9309)*V(5252) -! B(14775) = dA(9309)/dV(5252) - B(14775) = RCT(9309)*V(4394) -! B(14776) = dA(9310)/dV(4394) - B(14776) = RCT(9310)*V(5252) -! B(14777) = dA(9310)/dV(5252) - B(14777) = RCT(9310)*V(4394) -! B(14778) = dA(9311)/dV(4394) - B(14778) = RCT(9311)*V(5256) -! B(14779) = dA(9311)/dV(5256) - B(14779) = RCT(9311)*V(4394) -! B(14780) = dA(9312)/dV(4394) - B(14780) = RCT(9312) -! B(14781) = dA(9313)/dV(4394) - B(14781) = RCT(9313) -! B(14782) = dA(9314)/dV(3564) - B(14782) = RCT(9314) -! B(14783) = dA(9315)/dV(3844) - B(14783) = RCT(9315)*V(5255) -! B(14784) = dA(9315)/dV(5255) - B(14784) = RCT(9315)*V(3844) -! B(14785) = dA(9316)/dV(3844) - B(14785) = RCT(9316)*V(5252) -! B(14786) = dA(9316)/dV(5252) - B(14786) = RCT(9316)*V(3844) -! B(14787) = dA(9317)/dV(3844) - B(14787) = RCT(9317)*V(5256) -! B(14788) = dA(9317)/dV(5256) - B(14788) = RCT(9317)*V(3844) -! B(14789) = dA(9318)/dV(3844) - B(14789) = RCT(9318) -! B(14790) = dA(9319)/dV(3844) - B(14790) = RCT(9319) -! B(14791) = dA(9320)/dV(4691) - B(14791) = RCT(9320)*V(5251) -! B(14792) = dA(9320)/dV(5251) - B(14792) = RCT(9320)*V(4691) -! B(14793) = dA(9321)/dV(4691) - B(14793) = RCT(9321)*V(5252) -! B(14794) = dA(9321)/dV(5252) - B(14794) = RCT(9321)*V(4691) -! B(14795) = dA(9322)/dV(4691) - B(14795) = RCT(9322)*V(5253) -! B(14796) = dA(9322)/dV(5253) - B(14796) = RCT(9322)*V(4691) -! B(14797) = dA(9323)/dV(4691) - B(14797) = RCT(9323)*V(5254) -! B(14798) = dA(9323)/dV(5254) - B(14798) = RCT(9323)*V(4691) -! B(14799) = dA(9324)/dV(4691) - B(14799) = RCT(9324) -! B(14800) = dA(9325)/dV(4691) - B(14800) = RCT(9325) -! B(14801) = dA(9326)/dV(4678) - B(14801) = RCT(9326)*V(5251) -! B(14802) = dA(9326)/dV(5251) - B(14802) = RCT(9326)*V(4678) -! B(14803) = dA(9327)/dV(4678) - B(14803) = RCT(9327)*V(5252) -! B(14804) = dA(9327)/dV(5252) - B(14804) = RCT(9327)*V(4678) -! B(14805) = dA(9328)/dV(4678) - B(14805) = RCT(9328)*V(5253) -! B(14806) = dA(9328)/dV(5253) - B(14806) = RCT(9328)*V(4678) -! B(14807) = dA(9329)/dV(4678) - B(14807) = RCT(9329)*V(5254) -! B(14808) = dA(9329)/dV(5254) - B(14808) = RCT(9329)*V(4678) -! B(14809) = dA(9330)/dV(4678) - B(14809) = RCT(9330) -! B(14810) = dA(9331)/dV(4678) - B(14810) = RCT(9331) -! B(14811) = dA(9332)/dV(2359) - B(14811) = RCT(9332) -! B(14812) = dA(9333)/dV(2359) - B(14812) = RCT(9333) -! B(14813) = dA(9334)/dV(2359) - B(14813) = RCT(9334) -! B(14814) = dA(9335)/dV(2359) - B(14814) = RCT(9335) -! B(14815) = dA(9336)/dV(1569) - B(14815) = RCT(9336) -! B(14816) = dA(9337)/dV(1569) - B(14816) = RCT(9337) -! B(14817) = dA(9338)/dV(1569) - B(14817) = RCT(9338) -! B(14818) = dA(9339)/dV(3920) - B(14818) = RCT(9339)*V(5255) -! B(14819) = dA(9339)/dV(5255) - B(14819) = RCT(9339)*V(3920) -! B(14820) = dA(9340)/dV(3920) - B(14820) = RCT(9340)*V(5252) -! B(14821) = dA(9340)/dV(5252) - B(14821) = RCT(9340)*V(3920) -! B(14822) = dA(9341)/dV(3920) - B(14822) = RCT(9341)*V(5252) -! B(14823) = dA(9341)/dV(5252) - B(14823) = RCT(9341)*V(3920) -! B(14824) = dA(9342)/dV(3920) - B(14824) = RCT(9342)*V(5256) -! B(14825) = dA(9342)/dV(5256) - B(14825) = RCT(9342)*V(3920) -! B(14826) = dA(9343)/dV(3920) - B(14826) = RCT(9343) -! B(14827) = dA(9344)/dV(3920) - B(14827) = RCT(9344) -! B(14828) = dA(9345)/dV(3966) - B(14828) = RCT(9345)*V(5255) -! B(14829) = dA(9345)/dV(5255) - B(14829) = RCT(9345)*V(3966) -! B(14830) = dA(9346)/dV(3966) - B(14830) = RCT(9346)*V(5252) -! B(14831) = dA(9346)/dV(5252) - B(14831) = RCT(9346)*V(3966) -! B(14832) = dA(9347)/dV(3966) - B(14832) = RCT(9347)*V(5252) -! B(14833) = dA(9347)/dV(5252) - B(14833) = RCT(9347)*V(3966) -! B(14834) = dA(9348)/dV(3966) - B(14834) = RCT(9348)*V(5256) -! B(14835) = dA(9348)/dV(5256) - B(14835) = RCT(9348)*V(3966) -! B(14836) = dA(9349)/dV(3966) - B(14836) = RCT(9349) -! B(14837) = dA(9350)/dV(3966) - B(14837) = RCT(9350) -! B(14838) = dA(9351)/dV(3966) - B(14838) = RCT(9351) -! B(14839) = dA(9352)/dV(4243) - B(14839) = RCT(9352)*V(5255) -! B(14840) = dA(9352)/dV(5255) - B(14840) = RCT(9352)*V(4243) -! B(14841) = dA(9353)/dV(4243) - B(14841) = RCT(9353)*V(5255) -! B(14842) = dA(9353)/dV(5255) - B(14842) = RCT(9353)*V(4243) -! B(14843) = dA(9354)/dV(4243) - B(14843) = RCT(9354)*V(5252) -! B(14844) = dA(9354)/dV(5252) - B(14844) = RCT(9354)*V(4243) -! B(14845) = dA(9355)/dV(4243) - B(14845) = RCT(9355)*V(5253) -! B(14846) = dA(9355)/dV(5253) - B(14846) = RCT(9355)*V(4243) -! B(14847) = dA(9356)/dV(4243) - B(14847) = RCT(9356)*V(5256) -! B(14848) = dA(9356)/dV(5256) - B(14848) = RCT(9356)*V(4243) -! B(14849) = dA(9357)/dV(4243) - B(14849) = RCT(9357) -! B(14850) = dA(9358)/dV(4260) - B(14850) = RCT(9358)*V(5255) -! B(14851) = dA(9358)/dV(5255) - B(14851) = RCT(9358)*V(4260) -! B(14852) = dA(9359)/dV(4260) - B(14852) = RCT(9359)*V(5255) -! B(14853) = dA(9359)/dV(5255) - B(14853) = RCT(9359)*V(4260) -! B(14854) = dA(9360)/dV(4260) - B(14854) = RCT(9360)*V(5252) -! B(14855) = dA(9360)/dV(5252) - B(14855) = RCT(9360)*V(4260) -! B(14856) = dA(9361)/dV(4260) - B(14856) = RCT(9361)*V(5253) -! B(14857) = dA(9361)/dV(5253) - B(14857) = RCT(9361)*V(4260) -! B(14858) = dA(9362)/dV(4260) - B(14858) = RCT(9362)*V(5256) -! B(14859) = dA(9362)/dV(5256) - B(14859) = RCT(9362)*V(4260) -! B(14860) = dA(9363)/dV(4260) - B(14860) = RCT(9363) -! B(14861) = dA(9364)/dV(929) - B(14861) = RCT(9364)*V(5250) -! B(14862) = dA(9364)/dV(5250) - B(14862) = RCT(9364)*V(929) -! B(14863) = dA(9365)/dV(929) - B(14863) = RCT(9365) -! B(14864) = dA(9366)/dV(2674) - B(14864) = RCT(9366)*V(5250) -! B(14865) = dA(9366)/dV(5250) - B(14865) = RCT(9366)*V(2674) -! B(14866) = dA(9367)/dV(2674) - B(14866) = RCT(9367) -! B(14867) = dA(9368)/dV(2009) - B(14867) = RCT(9368)*V(5250) -! B(14868) = dA(9368)/dV(5250) - B(14868) = RCT(9368)*V(2009) -! B(14869) = dA(9369)/dV(2009) - B(14869) = RCT(9369)*V(5250) -! B(14870) = dA(9369)/dV(5250) - B(14870) = RCT(9369)*V(2009) -! B(14871) = dA(9370)/dV(2009) - B(14871) = RCT(9370) -! B(14872) = dA(9371)/dV(3415) - B(14872) = RCT(9371) -! B(14873) = dA(9372)/dV(3415) - B(14873) = RCT(9372) -! B(14874) = dA(9373)/dV(4883) - B(14874) = RCT(9373)*V(5250) -! B(14875) = dA(9373)/dV(5250) - B(14875) = RCT(9373)*V(4883) -! B(14876) = dA(9374)/dV(4883) - B(14876) = RCT(9374)*V(5250) -! B(14877) = dA(9374)/dV(5250) - B(14877) = RCT(9374)*V(4883) -! B(14878) = dA(9375)/dV(4883) - B(14878) = RCT(9375) -! B(14879) = dA(9376)/dV(865) - B(14879) = RCT(9376)*V(5250) -! B(14880) = dA(9376)/dV(5250) - B(14880) = RCT(9376)*V(865) -! B(14881) = dA(9377)/dV(865) - B(14881) = RCT(9377) -! B(14882) = dA(9378)/dV(36) - B(14882) = RCT(9378) -! B(14883) = dA(9379)/dV(1202) - B(14883) = RCT(9379)*V(5250) -! B(14884) = dA(9379)/dV(5250) - B(14884) = RCT(9379)*V(1202) -! B(14885) = dA(9380)/dV(1202) - B(14885) = RCT(9380) -! B(14886) = dA(9381)/dV(45) - B(14886) = RCT(9381) -! B(14887) = dA(9382)/dV(4962) - B(14887) = RCT(9382)*V(5255) -! B(14888) = dA(9382)/dV(5255) - B(14888) = RCT(9382)*V(4962) -! B(14889) = dA(9383)/dV(4962) - B(14889) = RCT(9383)*V(5255) -! B(14890) = dA(9383)/dV(5255) - B(14890) = RCT(9383)*V(4962) -! B(14891) = dA(9384)/dV(4962) - B(14891) = RCT(9384)*V(5255) -! B(14892) = dA(9384)/dV(5255) - B(14892) = RCT(9384)*V(4962) -! B(14893) = dA(9385)/dV(4962) - B(14893) = RCT(9385)*V(5252) -! B(14894) = dA(9385)/dV(5252) - B(14894) = RCT(9385)*V(4962) -! B(14895) = dA(9386)/dV(4962) - B(14895) = RCT(9386)*V(5253) -! B(14896) = dA(9386)/dV(5253) - B(14896) = RCT(9386)*V(4962) -! B(14897) = dA(9387)/dV(4962) - B(14897) = RCT(9387)*V(5256) -! B(14898) = dA(9387)/dV(5256) - B(14898) = RCT(9387)*V(4962) -! B(14899) = dA(9388)/dV(4962) - B(14899) = RCT(9388) -! B(14900) = dA(9389)/dV(4962) - B(14900) = RCT(9389) -! B(14901) = dA(9390)/dV(4263) - B(14901) = RCT(9390)*V(5255) -! B(14902) = dA(9390)/dV(5255) - B(14902) = RCT(9390)*V(4263) -! B(14903) = dA(9391)/dV(4263) - B(14903) = RCT(9391)*V(5252) -! B(14904) = dA(9391)/dV(5252) - B(14904) = RCT(9391)*V(4263) -! B(14905) = dA(9392)/dV(4263) - B(14905) = RCT(9392)*V(5256) -! B(14906) = dA(9392)/dV(5256) - B(14906) = RCT(9392)*V(4263) -! B(14907) = dA(9393)/dV(4263) - B(14907) = RCT(9393) -! B(14908) = dA(9394)/dV(3672) - B(14908) = RCT(9394)*V(5250) -! B(14909) = dA(9394)/dV(5250) - B(14909) = RCT(9394)*V(3672) -! B(14910) = dA(9395)/dV(3672) - B(14910) = RCT(9395) -! B(14911) = dA(9396)/dV(3502) - B(14911) = RCT(9396)*V(5250) -! B(14912) = dA(9396)/dV(5250) - B(14912) = RCT(9396)*V(3502) -! B(14913) = dA(9397)/dV(3502) - B(14913) = RCT(9397) -! B(14914) = dA(9398)/dV(3529) - B(14914) = RCT(9398)*V(5250) -! B(14915) = dA(9398)/dV(5250) - B(14915) = RCT(9398)*V(3529) -! B(14916) = dA(9399)/dV(3529) - B(14916) = RCT(9399) -! B(14917) = dA(9400)/dV(3387) - B(14917) = RCT(9400)*V(5250) -! B(14918) = dA(9400)/dV(5250) - B(14918) = RCT(9400)*V(3387) -! B(14919) = dA(9401)/dV(3387) - B(14919) = RCT(9401) -! B(14920) = dA(9402)/dV(3515) - B(14920) = RCT(9402)*V(5250) -! B(14921) = dA(9402)/dV(5250) - B(14921) = RCT(9402)*V(3515) -! B(14922) = dA(9403)/dV(3515) - B(14922) = RCT(9403) -! B(14923) = dA(9404)/dV(3515) - B(14923) = RCT(9404) -! B(14924) = dA(9405)/dV(3401) - B(14924) = RCT(9405)*V(5250) -! B(14925) = dA(9405)/dV(5250) - B(14925) = RCT(9405)*V(3401) -! B(14926) = dA(9406)/dV(3401) - B(14926) = RCT(9406) -! B(14927) = dA(9407)/dV(5211) - B(14927) = RCT(9407) -! B(14928) = dA(9408)/dV(5211) - B(14928) = RCT(9408)*V(5256) -! B(14929) = dA(9408)/dV(5256) - B(14929) = RCT(9408)*V(5211) -! B(14930) = dA(9409)/dV(5211) - B(14930) = RCT(9409)*V(5250) -! B(14931) = dA(9409)/dV(5250) - B(14931) = RCT(9409)*V(5211) -! B(14932) = dA(9410)/dV(4848) - B(14932) = RCT(9410)*V(5255) -! B(14933) = dA(9410)/dV(5255) - B(14933) = RCT(9410)*V(4848) -! B(14934) = dA(9411)/dV(4848) - B(14934) = RCT(9411)*V(5255) -! B(14935) = dA(9411)/dV(5255) - B(14935) = RCT(9411)*V(4848) -! B(14936) = dA(9412)/dV(4848) - B(14936) = RCT(9412)*V(5255) -! B(14937) = dA(9412)/dV(5255) - B(14937) = RCT(9412)*V(4848) -! B(14938) = dA(9413)/dV(4848) - B(14938) = RCT(9413)*V(5252) -! B(14939) = dA(9413)/dV(5252) - B(14939) = RCT(9413)*V(4848) -! B(14940) = dA(9414)/dV(4848) - B(14940) = RCT(9414)*V(5253) -! B(14941) = dA(9414)/dV(5253) - B(14941) = RCT(9414)*V(4848) -! B(14942) = dA(9415)/dV(4848) - B(14942) = RCT(9415)*V(5256) -! B(14943) = dA(9415)/dV(5256) - B(14943) = RCT(9415)*V(4848) -! B(14944) = dA(9416)/dV(4848) - B(14944) = RCT(9416) -! B(14945) = dA(9417)/dV(4848) - B(14945) = RCT(9417) -! B(14946) = dA(9418)/dV(3915) - B(14946) = RCT(9418) -! B(14947) = dA(9419)/dV(3915) - B(14947) = RCT(9419)*V(5256) -! B(14948) = dA(9419)/dV(5256) - B(14948) = RCT(9419)*V(3915) -! B(14949) = dA(9420)/dV(3915) - B(14949) = RCT(9420)*V(5250) -! B(14950) = dA(9420)/dV(5250) - B(14950) = RCT(9420)*V(3915) -! B(14951) = dA(9421)/dV(4412) - B(14951) = RCT(9421)*V(5255) -! B(14952) = dA(9421)/dV(5255) - B(14952) = RCT(9421)*V(4412) -! B(14953) = dA(9422)/dV(4412) - B(14953) = RCT(9422)*V(5255) -! B(14954) = dA(9422)/dV(5255) - B(14954) = RCT(9422)*V(4412) -! B(14955) = dA(9423)/dV(4412) - B(14955) = RCT(9423)*V(5252) -! B(14956) = dA(9423)/dV(5252) - B(14956) = RCT(9423)*V(4412) -! B(14957) = dA(9424)/dV(4412) - B(14957) = RCT(9424)*V(5253) -! B(14958) = dA(9424)/dV(5253) - B(14958) = RCT(9424)*V(4412) -! B(14959) = dA(9425)/dV(4412) - B(14959) = RCT(9425)*V(5256) -! B(14960) = dA(9425)/dV(5256) - B(14960) = RCT(9425)*V(4412) -! B(14961) = dA(9426)/dV(4412) - B(14961) = RCT(9426) -! B(14962) = dA(9427)/dV(4735) - B(14962) = RCT(9427)*V(5255) -! B(14963) = dA(9427)/dV(5255) - B(14963) = RCT(9427)*V(4735) -! B(14964) = dA(9428)/dV(4735) - B(14964) = RCT(9428)*V(5252) -! B(14965) = dA(9428)/dV(5252) - B(14965) = RCT(9428)*V(4735) -! B(14966) = dA(9429)/dV(4735) - B(14966) = RCT(9429)*V(5252) -! B(14967) = dA(9429)/dV(5252) - B(14967) = RCT(9429)*V(4735) -! B(14968) = dA(9430)/dV(4735) - B(14968) = RCT(9430)*V(5256) -! B(14969) = dA(9430)/dV(5256) - B(14969) = RCT(9430)*V(4735) -! B(14970) = dA(9431)/dV(4735) - B(14970) = RCT(9431) -! B(14971) = dA(9432)/dV(4735) - B(14971) = RCT(9432) -! B(14972) = dA(9433)/dV(4735) - B(14972) = RCT(9433) -! B(14973) = dA(9434)/dV(3662) - B(14973) = RCT(9434) -! B(14974) = dA(9435)/dV(3662) - B(14974) = RCT(9435)*V(5256) -! B(14975) = dA(9435)/dV(5256) - B(14975) = RCT(9435)*V(3662) -! B(14976) = dA(9436)/dV(3662) - B(14976) = RCT(9436)*V(5250) -! B(14977) = dA(9436)/dV(5250) - B(14977) = RCT(9436)*V(3662) -! B(14978) = dA(9437)/dV(4623) - B(14978) = RCT(9437)*V(5255) -! B(14979) = dA(9437)/dV(5255) - B(14979) = RCT(9437)*V(4623) -! B(14980) = dA(9438)/dV(4623) - B(14980) = RCT(9438)*V(5255) -! B(14981) = dA(9438)/dV(5255) - B(14981) = RCT(9438)*V(4623) -! B(14982) = dA(9439)/dV(4623) - B(14982) = RCT(9439)*V(5255) -! B(14983) = dA(9439)/dV(5255) - B(14983) = RCT(9439)*V(4623) -! B(14984) = dA(9440)/dV(4623) - B(14984) = RCT(9440)*V(5252) -! B(14985) = dA(9440)/dV(5252) - B(14985) = RCT(9440)*V(4623) -! B(14986) = dA(9441)/dV(4623) - B(14986) = RCT(9441)*V(5253) -! B(14987) = dA(9441)/dV(5253) - B(14987) = RCT(9441)*V(4623) -! B(14988) = dA(9442)/dV(4623) - B(14988) = RCT(9442)*V(5256) -! B(14989) = dA(9442)/dV(5256) - B(14989) = RCT(9442)*V(4623) -! B(14990) = dA(9443)/dV(4623) - B(14990) = RCT(9443) -! B(14991) = dA(9444)/dV(4623) - B(14991) = RCT(9444) -! B(14992) = dA(9445)/dV(4561) - B(14992) = RCT(9445)*V(5255) -! B(14993) = dA(9445)/dV(5255) - B(14993) = RCT(9445)*V(4561) -! B(14994) = dA(9446)/dV(4561) - B(14994) = RCT(9446)*V(5252) -! B(14995) = dA(9446)/dV(5252) - B(14995) = RCT(9446)*V(4561) -! B(14996) = dA(9447)/dV(4561) - B(14996) = RCT(9447)*V(5252) -! B(14997) = dA(9447)/dV(5252) - B(14997) = RCT(9447)*V(4561) -! B(14998) = dA(9448)/dV(4561) - B(14998) = RCT(9448)*V(5256) -! B(14999) = dA(9448)/dV(5256) - B(14999) = RCT(9448)*V(4561) -! B(15000) = dA(9449)/dV(4561) - B(15000) = RCT(9449) -! B(15001) = dA(9450)/dV(4561) - B(15001) = RCT(9450) -! B(15002) = dA(9451)/dV(3792) - B(15002) = RCT(9451) -! B(15003) = dA(9452)/dV(3792) - B(15003) = RCT(9452)*V(5256) -! B(15004) = dA(9452)/dV(5256) - B(15004) = RCT(9452)*V(3792) -! B(15005) = dA(9453)/dV(3792) - B(15005) = RCT(9453)*V(5250) -! B(15006) = dA(9453)/dV(5250) - B(15006) = RCT(9453)*V(3792) -! B(15007) = dA(9454)/dV(3792) - B(15007) = RCT(9454)*V(5250) -! B(15008) = dA(9454)/dV(5250) - B(15008) = RCT(9454)*V(3792) -! B(15009) = dA(9455)/dV(5120) - B(15009) = RCT(9455)*V(5255) -! B(15010) = dA(9455)/dV(5255) - B(15010) = RCT(9455)*V(5120) -! B(15011) = dA(9456)/dV(5120) - B(15011) = RCT(9456)*V(5252) -! B(15012) = dA(9456)/dV(5252) - B(15012) = RCT(9456)*V(5120) -! B(15013) = dA(9457)/dV(5120) - B(15013) = RCT(9457)*V(5252) -! B(15014) = dA(9457)/dV(5252) - B(15014) = RCT(9457)*V(5120) -! B(15015) = dA(9458)/dV(5120) - B(15015) = RCT(9458)*V(5256) -! B(15016) = dA(9458)/dV(5256) - B(15016) = RCT(9458)*V(5120) -! B(15017) = dA(9459)/dV(5120) - B(15017) = RCT(9459) -! B(15018) = dA(9460)/dV(5120) - B(15018) = RCT(9460) -! B(15019) = dA(9461)/dV(5120) - B(15019) = RCT(9461) -! B(15020) = dA(9462)/dV(4934) - B(15020) = RCT(9462)*V(5255) -! B(15021) = dA(9462)/dV(5255) - B(15021) = RCT(9462)*V(4934) -! B(15022) = dA(9463)/dV(4934) - B(15022) = RCT(9463)*V(5255) -! B(15023) = dA(9463)/dV(5255) - B(15023) = RCT(9463)*V(4934) -! B(15024) = dA(9464)/dV(4934) - B(15024) = RCT(9464)*V(5255) -! B(15025) = dA(9464)/dV(5255) - B(15025) = RCT(9464)*V(4934) -! B(15026) = dA(9465)/dV(4934) - B(15026) = RCT(9465)*V(5252) -! B(15027) = dA(9465)/dV(5252) - B(15027) = RCT(9465)*V(4934) -! B(15028) = dA(9466)/dV(4934) - B(15028) = RCT(9466)*V(5253) -! B(15029) = dA(9466)/dV(5253) - B(15029) = RCT(9466)*V(4934) -! B(15030) = dA(9467)/dV(4934) - B(15030) = RCT(9467)*V(5256) -! B(15031) = dA(9467)/dV(5256) - B(15031) = RCT(9467)*V(4934) -! B(15032) = dA(9468)/dV(4934) - B(15032) = RCT(9468) -! B(15033) = dA(9469)/dV(4934) - B(15033) = RCT(9469) -! B(15034) = dA(9470)/dV(4911) - B(15034) = RCT(9470)*V(5255) -! B(15035) = dA(9470)/dV(5255) - B(15035) = RCT(9470)*V(4911) -! B(15036) = dA(9471)/dV(4911) - B(15036) = RCT(9471)*V(5252) -! B(15037) = dA(9471)/dV(5252) - B(15037) = RCT(9471)*V(4911) -! B(15038) = dA(9472)/dV(4911) - B(15038) = RCT(9472)*V(5256) -! B(15039) = dA(9472)/dV(5256) - B(15039) = RCT(9472)*V(4911) -! B(15040) = dA(9473)/dV(4911) - B(15040) = RCT(9473) -! B(15041) = dA(9474)/dV(4911) - B(15041) = RCT(9474) -! B(15042) = dA(9475)/dV(4911) - B(15042) = RCT(9475) -! B(15043) = dA(9476)/dV(4517) - B(15043) = RCT(9476)*V(5255) -! B(15044) = dA(9476)/dV(5255) - B(15044) = RCT(9476)*V(4517) -! B(15045) = dA(9477)/dV(4517) - B(15045) = RCT(9477)*V(5255) -! B(15046) = dA(9477)/dV(5255) - B(15046) = RCT(9477)*V(4517) -! B(15047) = dA(9478)/dV(4517) - B(15047) = RCT(9478)*V(5252) -! B(15048) = dA(9478)/dV(5252) - B(15048) = RCT(9478)*V(4517) -! B(15049) = dA(9479)/dV(4517) - B(15049) = RCT(9479)*V(5253) -! B(15050) = dA(9479)/dV(5253) - B(15050) = RCT(9479)*V(4517) -! B(15051) = dA(9480)/dV(4517) - B(15051) = RCT(9480)*V(5256) -! B(15052) = dA(9480)/dV(5256) - B(15052) = RCT(9480)*V(4517) -! B(15053) = dA(9481)/dV(4517) - B(15053) = RCT(9481) -! B(15054) = dA(9482)/dV(4629) - B(15054) = RCT(9482)*V(5255) -! B(15055) = dA(9482)/dV(5255) - B(15055) = RCT(9482)*V(4629) -! B(15056) = dA(9483)/dV(4629) - B(15056) = RCT(9483)*V(5255) -! B(15057) = dA(9483)/dV(5255) - B(15057) = RCT(9483)*V(4629) -! B(15058) = dA(9484)/dV(4629) - B(15058) = RCT(9484)*V(5255) -! B(15059) = dA(9484)/dV(5255) - B(15059) = RCT(9484)*V(4629) -! B(15060) = dA(9485)/dV(4629) - B(15060) = RCT(9485)*V(5252) -! B(15061) = dA(9485)/dV(5252) - B(15061) = RCT(9485)*V(4629) -! B(15062) = dA(9486)/dV(4629) - B(15062) = RCT(9486)*V(5253) -! B(15063) = dA(9486)/dV(5253) - B(15063) = RCT(9486)*V(4629) -! B(15064) = dA(9487)/dV(4629) - B(15064) = RCT(9487)*V(5256) -! B(15065) = dA(9487)/dV(5256) - B(15065) = RCT(9487)*V(4629) -! B(15066) = dA(9488)/dV(4629) - B(15066) = RCT(9488) -! B(15067) = dA(9489)/dV(4629) - B(15067) = RCT(9489) -! B(15068) = dA(9490)/dV(4128) - B(15068) = RCT(9490)*V(5255) -! B(15069) = dA(9490)/dV(5255) - B(15069) = RCT(9490)*V(4128) -! B(15070) = dA(9491)/dV(4128) - B(15070) = RCT(9491)*V(5252) -! B(15071) = dA(9491)/dV(5252) - B(15071) = RCT(9491)*V(4128) -! B(15072) = dA(9492)/dV(4128) - B(15072) = RCT(9492)*V(5252) -! B(15073) = dA(9492)/dV(5252) - B(15073) = RCT(9492)*V(4128) -! B(15074) = dA(9493)/dV(4128) - B(15074) = RCT(9493)*V(5256) -! B(15075) = dA(9493)/dV(5256) - B(15075) = RCT(9493)*V(4128) -! B(15076) = dA(9494)/dV(4128) - B(15076) = RCT(9494) -! B(15077) = dA(9495)/dV(4128) - B(15077) = RCT(9495) -! B(15078) = dA(9496)/dV(4128) - B(15078) = RCT(9496) -! B(15079) = dA(9497)/dV(4704) - B(15079) = RCT(9497)*V(5255) -! B(15080) = dA(9497)/dV(5255) - B(15080) = RCT(9497)*V(4704) -! B(15081) = dA(9498)/dV(4704) - B(15081) = RCT(9498)*V(5252) -! B(15082) = dA(9498)/dV(5252) - B(15082) = RCT(9498)*V(4704) -! B(15083) = dA(9499)/dV(4704) - B(15083) = RCT(9499)*V(5252) -! B(15084) = dA(9499)/dV(5252) - B(15084) = RCT(9499)*V(4704) -! B(15085) = dA(9500)/dV(4704) - B(15085) = RCT(9500)*V(5256) -! B(15086) = dA(9500)/dV(5256) - B(15086) = RCT(9500)*V(4704) -! B(15087) = dA(9501)/dV(4704) - B(15087) = RCT(9501) -! B(15088) = dA(9502)/dV(4704) - B(15088) = RCT(9502) -! B(15089) = dA(9503)/dV(4704) - B(15089) = RCT(9503) -! B(15090) = dA(9504)/dV(3471) - B(15090) = RCT(9504) -! B(15091) = dA(9505)/dV(3471) - B(15091) = RCT(9505)*V(5256) -! B(15092) = dA(9505)/dV(5256) - B(15092) = RCT(9505)*V(3471) -! B(15093) = dA(9506)/dV(3471) - B(15093) = RCT(9506)*V(5250) -! B(15094) = dA(9506)/dV(5250) - B(15094) = RCT(9506)*V(3471) -! B(15095) = dA(9507)/dV(4665) - B(15095) = RCT(9507)*V(5255) -! B(15096) = dA(9507)/dV(5255) - B(15096) = RCT(9507)*V(4665) -! B(15097) = dA(9508)/dV(4665) - B(15097) = RCT(9508)*V(5255) -! B(15098) = dA(9508)/dV(5255) - B(15098) = RCT(9508)*V(4665) -! B(15099) = dA(9509)/dV(4665) - B(15099) = RCT(9509)*V(5255) -! B(15100) = dA(9509)/dV(5255) - B(15100) = RCT(9509)*V(4665) -! B(15101) = dA(9510)/dV(4665) - B(15101) = RCT(9510)*V(5252) -! B(15102) = dA(9510)/dV(5252) - B(15102) = RCT(9510)*V(4665) -! B(15103) = dA(9511)/dV(4665) - B(15103) = RCT(9511)*V(5253) -! B(15104) = dA(9511)/dV(5253) - B(15104) = RCT(9511)*V(4665) -! B(15105) = dA(9512)/dV(4665) - B(15105) = RCT(9512)*V(5256) -! B(15106) = dA(9512)/dV(5256) - B(15106) = RCT(9512)*V(4665) -! B(15107) = dA(9513)/dV(4665) - B(15107) = RCT(9513) -! B(15108) = dA(9514)/dV(4665) - B(15108) = RCT(9514) -! B(15109) = dA(9515)/dV(4357) - B(15109) = RCT(9515)*V(5255) -! B(15110) = dA(9515)/dV(5255) - B(15110) = RCT(9515)*V(4357) -! B(15111) = dA(9516)/dV(4357) - B(15111) = RCT(9516)*V(5252) -! B(15112) = dA(9516)/dV(5252) - B(15112) = RCT(9516)*V(4357) -! B(15113) = dA(9517)/dV(4357) - B(15113) = RCT(9517)*V(5252) -! B(15114) = dA(9517)/dV(5252) - B(15114) = RCT(9517)*V(4357) -! B(15115) = dA(9518)/dV(4357) - B(15115) = RCT(9518)*V(5256) -! B(15116) = dA(9518)/dV(5256) - B(15116) = RCT(9518)*V(4357) -! B(15117) = dA(9519)/dV(4357) - B(15117) = RCT(9519) -! B(15118) = dA(9520)/dV(4357) - B(15118) = RCT(9520) -! B(15119) = dA(9521)/dV(4697) - B(15119) = RCT(9521)*V(5255) -! B(15120) = dA(9521)/dV(5255) - B(15120) = RCT(9521)*V(4697) -! B(15121) = dA(9522)/dV(4697) - B(15121) = RCT(9522)*V(5252) -! B(15122) = dA(9522)/dV(5252) - B(15122) = RCT(9522)*V(4697) -! B(15123) = dA(9523)/dV(4697) - B(15123) = RCT(9523)*V(5256) -! B(15124) = dA(9523)/dV(5256) - B(15124) = RCT(9523)*V(4697) -! B(15125) = dA(9524)/dV(4697) - B(15125) = RCT(9524) -! B(15126) = dA(9525)/dV(4697) - B(15126) = RCT(9525) -! B(15127) = dA(9526)/dV(4697) - B(15127) = RCT(9526) -! B(15128) = dA(9527)/dV(3948) - B(15128) = RCT(9527)*V(5255) -! B(15129) = dA(9527)/dV(5255) - B(15129) = RCT(9527)*V(3948) -! B(15130) = dA(9528)/dV(3948) - B(15130) = RCT(9528)*V(5252) -! B(15131) = dA(9528)/dV(5252) - B(15131) = RCT(9528)*V(3948) -! B(15132) = dA(9529)/dV(3948) - B(15132) = RCT(9529)*V(5256) -! B(15133) = dA(9529)/dV(5256) - B(15133) = RCT(9529)*V(3948) -! B(15134) = dA(9530)/dV(3948) - B(15134) = RCT(9530) -! B(15135) = dA(9531)/dV(3948) - B(15135) = RCT(9531) -! B(15136) = dA(9532)/dV(5090) - B(15136) = RCT(9532)*V(5255) -! B(15137) = dA(9532)/dV(5255) - B(15137) = RCT(9532)*V(5090) -! B(15138) = dA(9533)/dV(5090) - B(15138) = RCT(9533)*V(5255) -! B(15139) = dA(9533)/dV(5255) - B(15139) = RCT(9533)*V(5090) -! B(15140) = dA(9534)/dV(5090) - B(15140) = RCT(9534)*V(5255) -! B(15141) = dA(9534)/dV(5255) - B(15141) = RCT(9534)*V(5090) -! B(15142) = dA(9535)/dV(5090) - B(15142) = RCT(9535)*V(5252) -! B(15143) = dA(9535)/dV(5252) - B(15143) = RCT(9535)*V(5090) -! B(15144) = dA(9536)/dV(5090) - B(15144) = RCT(9536)*V(5253) -! B(15145) = dA(9536)/dV(5253) - B(15145) = RCT(9536)*V(5090) -! B(15146) = dA(9537)/dV(5090) - B(15146) = RCT(9537)*V(5256) -! B(15147) = dA(9537)/dV(5256) - B(15147) = RCT(9537)*V(5090) -! B(15148) = dA(9538)/dV(5090) - B(15148) = RCT(9538) -! B(15149) = dA(9539)/dV(5090) - B(15149) = RCT(9539) -! B(15150) = dA(9540)/dV(4058) - B(15150) = RCT(9540)*V(5255) -! B(15151) = dA(9540)/dV(5255) - B(15151) = RCT(9540)*V(4058) -! B(15152) = dA(9541)/dV(4058) - B(15152) = RCT(9541)*V(5252) -! B(15153) = dA(9541)/dV(5252) - B(15153) = RCT(9541)*V(4058) -! B(15154) = dA(9542)/dV(4058) - B(15154) = RCT(9542)*V(5252) -! B(15155) = dA(9542)/dV(5252) - B(15155) = RCT(9542)*V(4058) -! B(15156) = dA(9543)/dV(4058) - B(15156) = RCT(9543)*V(5256) -! B(15157) = dA(9543)/dV(5256) - B(15157) = RCT(9543)*V(4058) -! B(15158) = dA(9544)/dV(4058) - B(15158) = RCT(9544) -! B(15159) = dA(9545)/dV(4058) - B(15159) = RCT(9545) -! B(15160) = dA(9546)/dV(4058) - B(15160) = RCT(9546) -! B(15161) = dA(9547)/dV(4500) - B(15161) = RCT(9547)*V(5255) -! B(15162) = dA(9547)/dV(5255) - B(15162) = RCT(9547)*V(4500) -! B(15163) = dA(9548)/dV(4500) - B(15163) = RCT(9548)*V(5255) -! B(15164) = dA(9548)/dV(5255) - B(15164) = RCT(9548)*V(4500) -! B(15165) = dA(9549)/dV(4500) - B(15165) = RCT(9549)*V(5255) -! B(15166) = dA(9549)/dV(5255) - B(15166) = RCT(9549)*V(4500) -! B(15167) = dA(9550)/dV(4500) - B(15167) = RCT(9550)*V(5252) -! B(15168) = dA(9550)/dV(5252) - B(15168) = RCT(9550)*V(4500) -! B(15169) = dA(9551)/dV(4500) - B(15169) = RCT(9551)*V(5253) -! B(15170) = dA(9551)/dV(5253) - B(15170) = RCT(9551)*V(4500) -! B(15171) = dA(9552)/dV(4500) - B(15171) = RCT(9552)*V(5256) -! B(15172) = dA(9552)/dV(5256) - B(15172) = RCT(9552)*V(4500) -! B(15173) = dA(9553)/dV(4500) - B(15173) = RCT(9553) -! B(15174) = dA(9554)/dV(4500) - B(15174) = RCT(9554) -! B(15175) = dA(9555)/dV(4523) - B(15175) = RCT(9555)*V(5255) -! B(15176) = dA(9555)/dV(5255) - B(15176) = RCT(9555)*V(4523) -! B(15177) = dA(9556)/dV(4523) - B(15177) = RCT(9556)*V(5255) -! B(15178) = dA(9556)/dV(5255) - B(15178) = RCT(9556)*V(4523) -! B(15179) = dA(9557)/dV(4523) - B(15179) = RCT(9557)*V(5255) -! B(15180) = dA(9557)/dV(5255) - B(15180) = RCT(9557)*V(4523) -! B(15181) = dA(9558)/dV(4523) - B(15181) = RCT(9558)*V(5252) -! B(15182) = dA(9558)/dV(5252) - B(15182) = RCT(9558)*V(4523) -! B(15183) = dA(9559)/dV(4523) - B(15183) = RCT(9559)*V(5253) -! B(15184) = dA(9559)/dV(5253) - B(15184) = RCT(9559)*V(4523) -! B(15185) = dA(9560)/dV(4523) - B(15185) = RCT(9560)*V(5256) -! B(15186) = dA(9560)/dV(5256) - B(15186) = RCT(9560)*V(4523) -! B(15187) = dA(9561)/dV(4523) - B(15187) = RCT(9561) -! B(15188) = dA(9562)/dV(4523) - B(15188) = RCT(9562) -! B(15189) = dA(9563)/dV(3777) - B(15189) = RCT(9563) -! B(15190) = dA(9564)/dV(3777) - B(15190) = RCT(9564)*V(5250) -! B(15191) = dA(9564)/dV(5250) - B(15191) = RCT(9564)*V(3777) -! B(15192) = dA(9565)/dV(3777) - B(15192) = RCT(9565)*V(5250) -! B(15193) = dA(9565)/dV(5250) - B(15193) = RCT(9565)*V(3777) -! B(15194) = dA(9566)/dV(3906) - B(15194) = RCT(9566) -! B(15195) = dA(9567)/dV(3906) - B(15195) = RCT(9567) -! B(15196) = dA(9568)/dV(3906) - B(15196) = RCT(9568)*V(5250) -! B(15197) = dA(9568)/dV(5250) - B(15197) = RCT(9568)*V(3906) -! B(15198) = dA(9569)/dV(3906) - B(15198) = RCT(9569)*V(5250) -! B(15199) = dA(9569)/dV(5250) - B(15199) = RCT(9569)*V(3906) -! B(15200) = dA(9570)/dV(3912) - B(15200) = RCT(9570)*V(5255) -! B(15201) = dA(9570)/dV(5255) - B(15201) = RCT(9570)*V(3912) -! B(15202) = dA(9571)/dV(3912) - B(15202) = RCT(9571)*V(5252) -! B(15203) = dA(9571)/dV(5252) - B(15203) = RCT(9571)*V(3912) -! B(15204) = dA(9572)/dV(3912) - B(15204) = RCT(9572)*V(5256) -! B(15205) = dA(9572)/dV(5256) - B(15205) = RCT(9572)*V(3912) -! B(15206) = dA(9573)/dV(3912) - B(15206) = RCT(9573) -! B(15207) = dA(9574)/dV(3941) - B(15207) = RCT(9574)*V(5255) -! B(15208) = dA(9574)/dV(5255) - B(15208) = RCT(9574)*V(3941) -! B(15209) = dA(9575)/dV(3941) - B(15209) = RCT(9575)*V(5252) -! B(15210) = dA(9575)/dV(5252) - B(15210) = RCT(9575)*V(3941) -! B(15211) = dA(9576)/dV(3941) - B(15211) = RCT(9576)*V(5256) -! B(15212) = dA(9576)/dV(5256) - B(15212) = RCT(9576)*V(3941) -! B(15213) = dA(9577)/dV(3941) - B(15213) = RCT(9577) -! B(15214) = dA(9578)/dV(4903) - B(15214) = RCT(9578)*V(5255) -! B(15215) = dA(9578)/dV(5255) - B(15215) = RCT(9578)*V(4903) -! B(15216) = dA(9579)/dV(4903) - B(15216) = RCT(9579)*V(5252) -! B(15217) = dA(9579)/dV(5252) - B(15217) = RCT(9579)*V(4903) -! B(15218) = dA(9580)/dV(4903) - B(15218) = RCT(9580)*V(5252) -! B(15219) = dA(9580)/dV(5252) - B(15219) = RCT(9580)*V(4903) -! B(15220) = dA(9581)/dV(4903) - B(15220) = RCT(9581)*V(5256) -! B(15221) = dA(9581)/dV(5256) - B(15221) = RCT(9581)*V(4903) -! B(15222) = dA(9582)/dV(4903) - B(15222) = RCT(9582) -! B(15223) = dA(9583)/dV(4903) - B(15223) = RCT(9583) -! B(15224) = dA(9584)/dV(4903) - B(15224) = RCT(9584) -! B(15225) = dA(9585)/dV(4967) - B(15225) = RCT(9585)*V(5255) -! B(15226) = dA(9585)/dV(5255) - B(15226) = RCT(9585)*V(4967) -! B(15227) = dA(9586)/dV(4967) - B(15227) = RCT(9586)*V(5252) -! B(15228) = dA(9586)/dV(5252) - B(15228) = RCT(9586)*V(4967) -! B(15229) = dA(9587)/dV(4967) - B(15229) = RCT(9587)*V(5256) -! B(15230) = dA(9587)/dV(5256) - B(15230) = RCT(9587)*V(4967) -! B(15231) = dA(9588)/dV(4967) - B(15231) = RCT(9588) -! B(15232) = dA(9589)/dV(4967) - B(15232) = RCT(9589) -! B(15233) = dA(9590)/dV(4967) - B(15233) = RCT(9590) -! B(15234) = dA(9591)/dV(4800) - B(15234) = RCT(9591) -! B(15235) = dA(9592)/dV(4800) - B(15235) = RCT(9592)*V(5250) -! B(15236) = dA(9592)/dV(5250) - B(15236) = RCT(9592)*V(4800) -! B(15237) = dA(9593)/dV(4800) - B(15237) = RCT(9593)*V(5250) -! B(15238) = dA(9593)/dV(5250) - B(15238) = RCT(9593)*V(4800) -! B(15239) = dA(9594)/dV(3298) - B(15239) = RCT(9594) -! B(15240) = dA(9595)/dV(3298) - B(15240) = RCT(9595) -! B(15241) = dA(9596)/dV(3298) - B(15241) = RCT(9596)*V(5250) -! B(15242) = dA(9596)/dV(5250) - B(15242) = RCT(9596)*V(3298) -! B(15243) = dA(9597)/dV(3298) - B(15243) = RCT(9597)*V(5250) -! B(15244) = dA(9597)/dV(5250) - B(15244) = RCT(9597)*V(3298) -! B(15245) = dA(9598)/dV(3871) - B(15245) = RCT(9598)*V(5255) -! B(15246) = dA(9598)/dV(5255) - B(15246) = RCT(9598)*V(3871) -! B(15247) = dA(9599)/dV(3871) - B(15247) = RCT(9599)*V(5252) -! B(15248) = dA(9599)/dV(5252) - B(15248) = RCT(9599)*V(3871) -! B(15249) = dA(9600)/dV(3871) - B(15249) = RCT(9600)*V(5256) -! B(15250) = dA(9600)/dV(5256) - B(15250) = RCT(9600)*V(3871) -! B(15251) = dA(9601)/dV(3871) - B(15251) = RCT(9601) -! B(15252) = dA(9602)/dV(4251) - B(15252) = RCT(9602)*V(5255) -! B(15253) = dA(9602)/dV(5255) - B(15253) = RCT(9602)*V(4251) -! B(15254) = dA(9603)/dV(4251) - B(15254) = RCT(9603)*V(5252) -! B(15255) = dA(9603)/dV(5252) - B(15255) = RCT(9603)*V(4251) -! B(15256) = dA(9604)/dV(4251) - B(15256) = RCT(9604)*V(5252) -! B(15257) = dA(9604)/dV(5252) - B(15257) = RCT(9604)*V(4251) -! B(15258) = dA(9605)/dV(4251) - B(15258) = RCT(9605)*V(5256) -! B(15259) = dA(9605)/dV(5256) - B(15259) = RCT(9605)*V(4251) -! B(15260) = dA(9606)/dV(4251) - B(15260) = RCT(9606) -! B(15261) = dA(9607)/dV(4251) - B(15261) = RCT(9607) -! B(15262) = dA(9608)/dV(4251) - B(15262) = RCT(9608) -! B(15263) = dA(9609)/dV(5088) - B(15263) = RCT(9609)*V(5255) -! B(15264) = dA(9609)/dV(5255) - B(15264) = RCT(9609)*V(5088) -! B(15265) = dA(9610)/dV(5088) - B(15265) = RCT(9610)*V(5255) -! B(15266) = dA(9610)/dV(5255) - B(15266) = RCT(9610)*V(5088) -! B(15267) = dA(9611)/dV(5088) - B(15267) = RCT(9611)*V(5255) -! B(15268) = dA(9611)/dV(5255) - B(15268) = RCT(9611)*V(5088) -! B(15269) = dA(9612)/dV(5088) - B(15269) = RCT(9612)*V(5252) -! B(15270) = dA(9612)/dV(5252) - B(15270) = RCT(9612)*V(5088) -! B(15271) = dA(9613)/dV(5088) - B(15271) = RCT(9613)*V(5253) -! B(15272) = dA(9613)/dV(5253) - B(15272) = RCT(9613)*V(5088) -! B(15273) = dA(9614)/dV(5088) - B(15273) = RCT(9614)*V(5256) -! B(15274) = dA(9614)/dV(5256) - B(15274) = RCT(9614)*V(5088) -! B(15275) = dA(9615)/dV(5088) - B(15275) = RCT(9615) -! B(15276) = dA(9616)/dV(5088) - B(15276) = RCT(9616) -! B(15277) = dA(9617)/dV(4716) - B(15277) = RCT(9617)*V(5255) -! B(15278) = dA(9617)/dV(5255) - B(15278) = RCT(9617)*V(4716) -! B(15279) = dA(9618)/dV(4716) - B(15279) = RCT(9618)*V(5252) -! B(15280) = dA(9618)/dV(5252) - B(15280) = RCT(9618)*V(4716) -! B(15281) = dA(9619)/dV(4716) - B(15281) = RCT(9619)*V(5252) -! B(15282) = dA(9619)/dV(5252) - B(15282) = RCT(9619)*V(4716) -! B(15283) = dA(9620)/dV(4716) - B(15283) = RCT(9620)*V(5256) -! B(15284) = dA(9620)/dV(5256) - B(15284) = RCT(9620)*V(4716) -! B(15285) = dA(9621)/dV(4716) - B(15285) = RCT(9621) -! B(15286) = dA(9622)/dV(4716) - B(15286) = RCT(9622) -! B(15287) = dA(9623)/dV(4716) - B(15287) = RCT(9623) -! B(15288) = dA(9624)/dV(602) - B(15288) = RCT(9624) -! B(15289) = dA(9625)/dV(602) - B(15289) = RCT(9625)*V(5250) -! B(15290) = dA(9625)/dV(5250) - B(15290) = RCT(9625)*V(602) -! B(15291) = dA(9626)/dV(3977) - B(15291) = RCT(9626)*V(5255) -! B(15292) = dA(9626)/dV(5255) - B(15292) = RCT(9626)*V(3977) -! B(15293) = dA(9627)/dV(3977) - B(15293) = RCT(9627)*V(5252) -! B(15294) = dA(9627)/dV(5252) - B(15294) = RCT(9627)*V(3977) -! B(15295) = dA(9628)/dV(3977) - B(15295) = RCT(9628)*V(5256) -! B(15296) = dA(9628)/dV(5256) - B(15296) = RCT(9628)*V(3977) -! B(15297) = dA(9629)/dV(3977) - B(15297) = RCT(9629) -! B(15298) = dA(9630)/dV(4713) - B(15298) = RCT(9630)*V(5255) -! B(15299) = dA(9630)/dV(5255) - B(15299) = RCT(9630)*V(4713) -! B(15300) = dA(9631)/dV(4713) - B(15300) = RCT(9631)*V(5252) -! B(15301) = dA(9631)/dV(5252) - B(15301) = RCT(9631)*V(4713) -! B(15302) = dA(9632)/dV(4713) - B(15302) = RCT(9632)*V(5252) -! B(15303) = dA(9632)/dV(5252) - B(15303) = RCT(9632)*V(4713) -! B(15304) = dA(9633)/dV(4713) - B(15304) = RCT(9633)*V(5256) -! B(15305) = dA(9633)/dV(5256) - B(15305) = RCT(9633)*V(4713) -! B(15306) = dA(9634)/dV(4713) - B(15306) = RCT(9634) -! B(15307) = dA(9635)/dV(4713) - B(15307) = RCT(9635) -! B(15308) = dA(9636)/dV(4713) - B(15308) = RCT(9636) -! B(15309) = dA(9637)/dV(803) - B(15309) = RCT(9637) -! B(15310) = dA(9638)/dV(803) - B(15310) = RCT(9638)*V(5250) -! B(15311) = dA(9638)/dV(5250) - B(15311) = RCT(9638)*V(803) -! B(15312) = dA(9639)/dV(3881) - B(15312) = RCT(9639)*V(5255) -! B(15313) = dA(9639)/dV(5255) - B(15313) = RCT(9639)*V(3881) -! B(15314) = dA(9640)/dV(3881) - B(15314) = RCT(9640)*V(5252) -! B(15315) = dA(9640)/dV(5252) - B(15315) = RCT(9640)*V(3881) -! B(15316) = dA(9641)/dV(3881) - B(15316) = RCT(9641)*V(5256) -! B(15317) = dA(9641)/dV(5256) - B(15317) = RCT(9641)*V(3881) -! B(15318) = dA(9642)/dV(3881) - B(15318) = RCT(9642) -! B(15319) = dA(9643)/dV(4270) - B(15319) = RCT(9643)*V(5255) -! B(15320) = dA(9643)/dV(5255) - B(15320) = RCT(9643)*V(4270) -! B(15321) = dA(9644)/dV(4270) - B(15321) = RCT(9644)*V(5252) -! B(15322) = dA(9644)/dV(5252) - B(15322) = RCT(9644)*V(4270) -! B(15323) = dA(9645)/dV(4270) - B(15323) = RCT(9645)*V(5256) -! B(15324) = dA(9645)/dV(5256) - B(15324) = RCT(9645)*V(4270) -! B(15325) = dA(9646)/dV(4270) - B(15325) = RCT(9646) -! B(15326) = dA(9647)/dV(4712) - B(15326) = RCT(9647)*V(5255) -! B(15327) = dA(9647)/dV(5255) - B(15327) = RCT(9647)*V(4712) -! B(15328) = dA(9648)/dV(4712) - B(15328) = RCT(9648)*V(5252) -! B(15329) = dA(9648)/dV(5252) - B(15329) = RCT(9648)*V(4712) -! B(15330) = dA(9649)/dV(4712) - B(15330) = RCT(9649)*V(5252) -! B(15331) = dA(9649)/dV(5252) - B(15331) = RCT(9649)*V(4712) -! B(15332) = dA(9650)/dV(4712) - B(15332) = RCT(9650)*V(5256) -! B(15333) = dA(9650)/dV(5256) - B(15333) = RCT(9650)*V(4712) -! B(15334) = dA(9651)/dV(4712) - B(15334) = RCT(9651) -! B(15335) = dA(9652)/dV(4712) - B(15335) = RCT(9652) -! B(15336) = dA(9653)/dV(4712) - B(15336) = RCT(9653) -! B(15337) = dA(9654)/dV(769) - B(15337) = RCT(9654) -! B(15338) = dA(9655)/dV(769) - B(15338) = RCT(9655)*V(5250) -! B(15339) = dA(9655)/dV(5250) - B(15339) = RCT(9655)*V(769) -! B(15340) = dA(9656)/dV(3919) - B(15340) = RCT(9656)*V(5255) -! B(15341) = dA(9656)/dV(5255) - B(15341) = RCT(9656)*V(3919) -! B(15342) = dA(9657)/dV(3919) - B(15342) = RCT(9657)*V(5252) -! B(15343) = dA(9657)/dV(5252) - B(15343) = RCT(9657)*V(3919) -! B(15344) = dA(9658)/dV(3919) - B(15344) = RCT(9658)*V(5256) -! B(15345) = dA(9658)/dV(5256) - B(15345) = RCT(9658)*V(3919) -! B(15346) = dA(9659)/dV(3919) - B(15346) = RCT(9659) -! B(15347) = dA(9660)/dV(4254) - B(15347) = RCT(9660)*V(5255) -! B(15348) = dA(9660)/dV(5255) - B(15348) = RCT(9660)*V(4254) -! B(15349) = dA(9661)/dV(4254) - B(15349) = RCT(9661)*V(5252) -! B(15350) = dA(9661)/dV(5252) - B(15350) = RCT(9661)*V(4254) -! B(15351) = dA(9662)/dV(4254) - B(15351) = RCT(9662)*V(5256) -! B(15352) = dA(9662)/dV(5256) - B(15352) = RCT(9662)*V(4254) -! B(15353) = dA(9663)/dV(4254) - B(15353) = RCT(9663) -! B(15354) = dA(9664)/dV(4715) - B(15354) = RCT(9664)*V(5255) -! B(15355) = dA(9664)/dV(5255) - B(15355) = RCT(9664)*V(4715) -! B(15356) = dA(9665)/dV(4715) - B(15356) = RCT(9665)*V(5252) -! B(15357) = dA(9665)/dV(5252) - B(15357) = RCT(9665)*V(4715) -! B(15358) = dA(9666)/dV(4715) - B(15358) = RCT(9666)*V(5252) -! B(15359) = dA(9666)/dV(5252) - B(15359) = RCT(9666)*V(4715) -! B(15360) = dA(9667)/dV(4715) - B(15360) = RCT(9667)*V(5256) -! B(15361) = dA(9667)/dV(5256) - B(15361) = RCT(9667)*V(4715) -! B(15362) = dA(9668)/dV(4715) - B(15362) = RCT(9668) -! B(15363) = dA(9669)/dV(4715) - B(15363) = RCT(9669) -! B(15364) = dA(9670)/dV(4715) - B(15364) = RCT(9670) -! B(15365) = dA(9671)/dV(794) - B(15365) = RCT(9671) -! B(15366) = dA(9672)/dV(794) - B(15366) = RCT(9672)*V(5250) -! B(15367) = dA(9672)/dV(5250) - B(15367) = RCT(9672)*V(794) -! B(15368) = dA(9673)/dV(3916) - B(15368) = RCT(9673)*V(5255) -! B(15369) = dA(9673)/dV(5255) - B(15369) = RCT(9673)*V(3916) -! B(15370) = dA(9674)/dV(3916) - B(15370) = RCT(9674)*V(5252) -! B(15371) = dA(9674)/dV(5252) - B(15371) = RCT(9674)*V(3916) -! B(15372) = dA(9675)/dV(3916) - B(15372) = RCT(9675)*V(5256) -! B(15373) = dA(9675)/dV(5256) - B(15373) = RCT(9675)*V(3916) -! B(15374) = dA(9676)/dV(3916) - B(15374) = RCT(9676) -! B(15375) = dA(9677)/dV(4238) - B(15375) = RCT(9677)*V(5255) -! B(15376) = dA(9677)/dV(5255) - B(15376) = RCT(9677)*V(4238) -! B(15377) = dA(9678)/dV(4238) - B(15377) = RCT(9678)*V(5252) -! B(15378) = dA(9678)/dV(5252) - B(15378) = RCT(9678)*V(4238) -! B(15379) = dA(9679)/dV(4238) - B(15379) = RCT(9679)*V(5256) -! B(15380) = dA(9679)/dV(5256) - B(15380) = RCT(9679)*V(4238) -! B(15381) = dA(9680)/dV(4238) - B(15381) = RCT(9680) -! B(15382) = dA(9681)/dV(4709) - B(15382) = RCT(9681)*V(5255) -! B(15383) = dA(9681)/dV(5255) - B(15383) = RCT(9681)*V(4709) -! B(15384) = dA(9682)/dV(4709) - B(15384) = RCT(9682)*V(5252) -! B(15385) = dA(9682)/dV(5252) - B(15385) = RCT(9682)*V(4709) -! B(15386) = dA(9683)/dV(4709) - B(15386) = RCT(9683)*V(5252) -! B(15387) = dA(9683)/dV(5252) - B(15387) = RCT(9683)*V(4709) -! B(15388) = dA(9684)/dV(4709) - B(15388) = RCT(9684)*V(5256) -! B(15389) = dA(9684)/dV(5256) - B(15389) = RCT(9684)*V(4709) -! B(15390) = dA(9685)/dV(4709) - B(15390) = RCT(9685) -! B(15391) = dA(9686)/dV(4709) - B(15391) = RCT(9686) -! B(15392) = dA(9687)/dV(4709) - B(15392) = RCT(9687) -! B(15393) = dA(9688)/dV(609) - B(15393) = RCT(9688) -! B(15394) = dA(9689)/dV(609) - B(15394) = RCT(9689)*V(5250) -! B(15395) = dA(9689)/dV(5250) - B(15395) = RCT(9689)*V(609) -! B(15396) = dA(9690)/dV(3880) - B(15396) = RCT(9690)*V(5255) -! B(15397) = dA(9690)/dV(5255) - B(15397) = RCT(9690)*V(3880) -! B(15398) = dA(9691)/dV(3880) - B(15398) = RCT(9691)*V(5252) -! B(15399) = dA(9691)/dV(5252) - B(15399) = RCT(9691)*V(3880) -! B(15400) = dA(9692)/dV(3880) - B(15400) = RCT(9692)*V(5256) -! B(15401) = dA(9692)/dV(5256) - B(15401) = RCT(9692)*V(3880) -! B(15402) = dA(9693)/dV(3880) - B(15402) = RCT(9693) -! B(15403) = dA(9694)/dV(4360) - B(15403) = RCT(9694)*V(5255) -! B(15404) = dA(9694)/dV(5255) - B(15404) = RCT(9694)*V(4360) -! B(15405) = dA(9695)/dV(4360) - B(15405) = RCT(9695)*V(5252) -! B(15406) = dA(9695)/dV(5252) - B(15406) = RCT(9695)*V(4360) -! B(15407) = dA(9696)/dV(4360) - B(15407) = RCT(9696)*V(5252) -! B(15408) = dA(9696)/dV(5252) - B(15408) = RCT(9696)*V(4360) -! B(15409) = dA(9697)/dV(4360) - B(15409) = RCT(9697)*V(5256) -! B(15410) = dA(9697)/dV(5256) - B(15410) = RCT(9697)*V(4360) -! B(15411) = dA(9698)/dV(4360) - B(15411) = RCT(9698) -! B(15412) = dA(9699)/dV(4360) - B(15412) = RCT(9699) -! B(15413) = dA(9700)/dV(4360) - B(15413) = RCT(9700) -! B(15414) = dA(9701)/dV(6) - B(15414) = RCT(9701) -! B(15415) = dA(9702)/dV(8) - B(15415) = RCT(9702) -! B(15416) = dA(9703)/dV(4284) - B(15416) = RCT(9703)*V(5255) -! B(15417) = dA(9703)/dV(5255) - B(15417) = RCT(9703)*V(4284) -! B(15418) = dA(9704)/dV(4284) - B(15418) = RCT(9704)*V(5252) -! B(15419) = dA(9704)/dV(5252) - B(15419) = RCT(9704)*V(4284) -! B(15420) = dA(9705)/dV(4284) - B(15420) = RCT(9705)*V(5256) -! B(15421) = dA(9705)/dV(5256) - B(15421) = RCT(9705)*V(4284) -! B(15422) = dA(9706)/dV(4284) - B(15422) = RCT(9706) -! B(15423) = dA(9707)/dV(713) - B(15423) = RCT(9707)*V(5250) -! B(15424) = dA(9707)/dV(5250) - B(15424) = RCT(9707)*V(713) -! B(15425) = dA(9708)/dV(713) - B(15425) = RCT(9708) -! B(15426) = dA(9709)/dV(1807) - B(15426) = RCT(9709)*V(5250) -! B(15427) = dA(9709)/dV(5250) - B(15427) = RCT(9709)*V(1807) -! B(15428) = dA(9710)/dV(1807) - B(15428) = RCT(9710) -! B(15429) = dA(9711)/dV(4053) - B(15429) = RCT(9711)*V(5250) -! B(15430) = dA(9711)/dV(5250) - B(15430) = RCT(9711)*V(4053) -! B(15431) = dA(9712)/dV(4053) - B(15431) = RCT(9712) -! B(15432) = dA(9713)/dV(2803) - B(15432) = RCT(9713) -! B(15433) = dA(9714)/dV(2803) - B(15433) = RCT(9714) -! B(15434) = dA(9715)/dV(2803) - B(15434) = RCT(9715)*V(5250) -! B(15435) = dA(9715)/dV(5250) - B(15435) = RCT(9715)*V(2803) -! B(15436) = dA(9716)/dV(1127) - B(15436) = RCT(9716)*V(5250) -! B(15437) = dA(9716)/dV(5250) - B(15437) = RCT(9716)*V(1127) -! B(15438) = dA(9717)/dV(1127) - B(15438) = RCT(9717) -! B(15439) = dA(9718)/dV(3407) - B(15439) = RCT(9718) -! B(15440) = dA(9719)/dV(3407) - B(15440) = RCT(9719) -! B(15441) = dA(9720)/dV(4828) - B(15441) = RCT(9720)*V(5251) -! B(15442) = dA(9720)/dV(5251) - B(15442) = RCT(9720)*V(4828) -! B(15443) = dA(9721)/dV(4828) - B(15443) = RCT(9721)*V(5252) -! B(15444) = dA(9721)/dV(5252) - B(15444) = RCT(9721)*V(4828) -! B(15445) = dA(9722)/dV(4828) - B(15445) = RCT(9722)*V(5253) -! B(15446) = dA(9722)/dV(5253) - B(15446) = RCT(9722)*V(4828) -! B(15447) = dA(9723)/dV(4828) - B(15447) = RCT(9723)*V(5254) -! B(15448) = dA(9723)/dV(5254) - B(15448) = RCT(9723)*V(4828) -! B(15449) = dA(9724)/dV(4828) - B(15449) = RCT(9724) -! B(15450) = dA(9725)/dV(4828) - B(15450) = RCT(9725) -! B(15451) = dA(9726)/dV(2089) - B(15451) = RCT(9726)*V(5250) -! B(15452) = dA(9726)/dV(5250) - B(15452) = RCT(9726)*V(2089) -! B(15453) = dA(9727)/dV(2089) - B(15453) = RCT(9727) -! B(15454) = dA(9728)/dV(768) - B(15454) = RCT(9728) -! B(15455) = dA(9729)/dV(1040) - B(15455) = RCT(9729)*V(5250) -! B(15456) = dA(9729)/dV(5250) - B(15456) = RCT(9729)*V(1040) -! B(15457) = dA(9730)/dV(233) - B(15457) = RCT(9730)*V(5250) -! B(15458) = dA(9730)/dV(5250) - B(15458) = RCT(9730)*V(233) -! B(15459) = dA(9731)/dV(2471) - B(15459) = RCT(9731)*V(5250) -! B(15460) = dA(9731)/dV(5250) - B(15460) = RCT(9731)*V(2471) -! B(15461) = dA(9732)/dV(451) - B(15461) = RCT(9732)*V(5250) -! B(15462) = dA(9732)/dV(5250) - B(15462) = RCT(9732)*V(451) -! B(15463) = dA(9733)/dV(451) - B(15463) = RCT(9733) -! B(15464) = dA(9734)/dV(3146) - B(15464) = RCT(9734)*V(5256) -! B(15465) = dA(9734)/dV(5256) - B(15465) = RCT(9734)*V(3146) -! B(15466) = dA(9735)/dV(3146) - B(15466) = RCT(9735)*V(5250) -! B(15467) = dA(9735)/dV(5250) - B(15467) = RCT(9735)*V(3146) -! B(15468) = dA(9736)/dV(4067) - B(15468) = RCT(9736)*V(5255) -! B(15469) = dA(9736)/dV(5255) - B(15469) = RCT(9736)*V(4067) -! B(15470) = dA(9737)/dV(4067) - B(15470) = RCT(9737)*V(5252) -! B(15471) = dA(9737)/dV(5252) - B(15471) = RCT(9737)*V(4067) -! B(15472) = dA(9738)/dV(4067) - B(15472) = RCT(9738)*V(5256) -! B(15473) = dA(9738)/dV(5256) - B(15473) = RCT(9738)*V(4067) -! B(15474) = dA(9739)/dV(4067) - B(15474) = RCT(9739) -! B(15475) = dA(9740)/dV(4195) - B(15475) = RCT(9740)*V(5255) -! B(15476) = dA(9740)/dV(5255) - B(15476) = RCT(9740)*V(4195) -! B(15477) = dA(9741)/dV(4195) - B(15477) = RCT(9741)*V(5252) -! B(15478) = dA(9741)/dV(5252) - B(15478) = RCT(9741)*V(4195) -! B(15479) = dA(9742)/dV(4195) - B(15479) = RCT(9742)*V(5256) -! B(15480) = dA(9742)/dV(5256) - B(15480) = RCT(9742)*V(4195) -! B(15481) = dA(9743)/dV(4195) - B(15481) = RCT(9743) -! B(15482) = dA(9744)/dV(4273) - B(15482) = RCT(9744)*V(5255) -! B(15483) = dA(9744)/dV(5255) - B(15483) = RCT(9744)*V(4273) -! B(15484) = dA(9745)/dV(4273) - B(15484) = RCT(9745)*V(5252) -! B(15485) = dA(9745)/dV(5252) - B(15485) = RCT(9745)*V(4273) -! B(15486) = dA(9746)/dV(4273) - B(15486) = RCT(9746)*V(5256) -! B(15487) = dA(9746)/dV(5256) - B(15487) = RCT(9746)*V(4273) -! B(15488) = dA(9747)/dV(4273) - B(15488) = RCT(9747) -! B(15489) = dA(9748)/dV(1125) - B(15489) = RCT(9748)*V(5250) -! B(15490) = dA(9748)/dV(5250) - B(15490) = RCT(9748)*V(1125) -! B(15491) = dA(9749)/dV(1125) - B(15491) = RCT(9749) -! B(15492) = dA(9750)/dV(4163) - B(15492) = RCT(9750)*V(5255) -! B(15493) = dA(9750)/dV(5255) - B(15493) = RCT(9750)*V(4163) -! B(15494) = dA(9751)/dV(4163) - B(15494) = RCT(9751)*V(5252) -! B(15495) = dA(9751)/dV(5252) - B(15495) = RCT(9751)*V(4163) -! B(15496) = dA(9752)/dV(4163) - B(15496) = RCT(9752)*V(5256) -! B(15497) = dA(9752)/dV(5256) - B(15497) = RCT(9752)*V(4163) -! B(15498) = dA(9753)/dV(4163) - B(15498) = RCT(9753) -! B(15499) = dA(9754)/dV(3740) - B(15499) = RCT(9754)*V(5255) -! B(15500) = dA(9754)/dV(5255) - B(15500) = RCT(9754)*V(3740) -! B(15501) = dA(9755)/dV(3740) - B(15501) = RCT(9755)*V(5252) -! B(15502) = dA(9755)/dV(5252) - B(15502) = RCT(9755)*V(3740) -! B(15503) = dA(9756)/dV(3740) - B(15503) = RCT(9756)*V(5256) -! B(15504) = dA(9756)/dV(5256) - B(15504) = RCT(9756)*V(3740) -! B(15505) = dA(9757)/dV(3740) - B(15505) = RCT(9757) -! B(15506) = dA(9758)/dV(3740) - B(15506) = RCT(9758) -! B(15507) = dA(9759)/dV(3740) - B(15507) = RCT(9759) -! B(15508) = dA(9760)/dV(3685) - B(15508) = RCT(9760)*V(5255) -! B(15509) = dA(9760)/dV(5255) - B(15509) = RCT(9760)*V(3685) -! B(15510) = dA(9761)/dV(3685) - B(15510) = RCT(9761)*V(5252) -! B(15511) = dA(9761)/dV(5252) - B(15511) = RCT(9761)*V(3685) -! B(15512) = dA(9762)/dV(3685) - B(15512) = RCT(9762)*V(5256) -! B(15513) = dA(9762)/dV(5256) - B(15513) = RCT(9762)*V(3685) -! B(15514) = dA(9763)/dV(3685) - B(15514) = RCT(9763) -! B(15515) = dA(9764)/dV(3699) - B(15515) = RCT(9764)*V(5255) -! B(15516) = dA(9764)/dV(5255) - B(15516) = RCT(9764)*V(3699) -! B(15517) = dA(9765)/dV(3699) - B(15517) = RCT(9765)*V(5252) -! B(15518) = dA(9765)/dV(5252) - B(15518) = RCT(9765)*V(3699) -! B(15519) = dA(9766)/dV(3699) - B(15519) = RCT(9766)*V(5256) -! B(15520) = dA(9766)/dV(5256) - B(15520) = RCT(9766)*V(3699) -! B(15521) = dA(9767)/dV(3699) - B(15521) = RCT(9767) -! B(15522) = dA(9768)/dV(3699) - B(15522) = RCT(9768) -! B(15523) = dA(9769)/dV(3699) - B(15523) = RCT(9769) -! B(15524) = dA(9770)/dV(3088) - B(15524) = RCT(9770)*V(5256) -! B(15525) = dA(9770)/dV(5256) - B(15525) = RCT(9770)*V(3088) -! B(15526) = dA(9771)/dV(3088) - B(15526) = RCT(9771)*V(5250) -! B(15527) = dA(9771)/dV(5250) - B(15527) = RCT(9771)*V(3088) -! B(15528) = dA(9772)/dV(4022) - B(15528) = RCT(9772)*V(5255) -! B(15529) = dA(9772)/dV(5255) - B(15529) = RCT(9772)*V(4022) -! B(15530) = dA(9773)/dV(4022) - B(15530) = RCT(9773)*V(5252) -! B(15531) = dA(9773)/dV(5252) - B(15531) = RCT(9773)*V(4022) -! B(15532) = dA(9774)/dV(4022) - B(15532) = RCT(9774)*V(5256) -! B(15533) = dA(9774)/dV(5256) - B(15533) = RCT(9774)*V(4022) -! B(15534) = dA(9775)/dV(4022) - B(15534) = RCT(9775) -! B(15535) = dA(9776)/dV(4265) - B(15535) = RCT(9776)*V(5255) -! B(15536) = dA(9776)/dV(5255) - B(15536) = RCT(9776)*V(4265) -! B(15537) = dA(9777)/dV(4265) - B(15537) = RCT(9777)*V(5252) -! B(15538) = dA(9777)/dV(5252) - B(15538) = RCT(9777)*V(4265) -! B(15539) = dA(9778)/dV(4265) - B(15539) = RCT(9778)*V(5256) -! B(15540) = dA(9778)/dV(5256) - B(15540) = RCT(9778)*V(4265) -! B(15541) = dA(9779)/dV(4265) - B(15541) = RCT(9779) -! B(15542) = dA(9780)/dV(4217) - B(15542) = RCT(9780)*V(5255) -! B(15543) = dA(9780)/dV(5255) - B(15543) = RCT(9780)*V(4217) -! B(15544) = dA(9781)/dV(4217) - B(15544) = RCT(9781)*V(5252) -! B(15545) = dA(9781)/dV(5252) - B(15545) = RCT(9781)*V(4217) -! B(15546) = dA(9782)/dV(4217) - B(15546) = RCT(9782)*V(5256) -! B(15547) = dA(9782)/dV(5256) - B(15547) = RCT(9782)*V(4217) -! B(15548) = dA(9783)/dV(4217) - B(15548) = RCT(9783) -! B(15549) = dA(9784)/dV(1429) - B(15549) = RCT(9784)*V(5250) -! B(15550) = dA(9784)/dV(5250) - B(15550) = RCT(9784)*V(1429) -! B(15551) = dA(9785)/dV(1429) - B(15551) = RCT(9785) -! B(15552) = dA(9786)/dV(4024) - B(15552) = RCT(9786) -! B(15553) = dA(9787)/dV(4024) - B(15553) = RCT(9787) -! B(15554) = dA(9788)/dV(3280) - B(15554) = RCT(9788)*V(5250) -! B(15555) = dA(9788)/dV(5250) - B(15555) = RCT(9788)*V(3280) -! B(15556) = dA(9789)/dV(3280) - B(15556) = RCT(9789) -! B(15557) = dA(9790)/dV(3280) - B(15557) = RCT(9790) -! B(15558) = dA(9791)/dV(3290) - B(15558) = RCT(9791)*V(5250) -! B(15559) = dA(9791)/dV(5250) - B(15559) = RCT(9791)*V(3290) -! B(15560) = dA(9792)/dV(3290) - B(15560) = RCT(9792) -! B(15561) = dA(9793)/dV(2592) - B(15561) = RCT(9793) -! B(15562) = dA(9794)/dV(1602) - B(15562) = RCT(9794)*V(5250) -! B(15563) = dA(9794)/dV(5250) - B(15563) = RCT(9794)*V(1602) -! B(15564) = dA(9795)/dV(1602) - B(15564) = RCT(9795) -! B(15565) = dA(9796)/dV(1837) - B(15565) = RCT(9796)*V(5250) -! B(15566) = dA(9796)/dV(5250) - B(15566) = RCT(9796)*V(1837) -! B(15567) = dA(9797)/dV(1837) - B(15567) = RCT(9797)*V(5250) -! B(15568) = dA(9797)/dV(5250) - B(15568) = RCT(9797)*V(1837) -! B(15569) = dA(9798)/dV(1837) - B(15569) = RCT(9798) -! B(15570) = dA(9799)/dV(2752) - B(15570) = RCT(9799) -! B(15571) = dA(9800)/dV(4490) - B(15571) = RCT(9800)*V(5250) -! B(15572) = dA(9800)/dV(5250) - B(15572) = RCT(9800)*V(4490) -! B(15573) = dA(9801)/dV(4490) - B(15573) = RCT(9801) -! B(15574) = dA(9802)/dV(1734) - B(15574) = RCT(9802)*V(5250) -! B(15575) = dA(9802)/dV(5250) - B(15575) = RCT(9802)*V(1734) -! B(15576) = dA(9803)/dV(1734) - B(15576) = RCT(9803) -! B(15577) = dA(9804)/dV(2454) - B(15577) = RCT(9804)*V(5250) -! B(15578) = dA(9804)/dV(5250) - B(15578) = RCT(9804)*V(2454) -! B(15579) = dA(9805)/dV(2454) - B(15579) = RCT(9805) -! B(15580) = dA(9806)/dV(712) - B(15580) = RCT(9806) -! B(15581) = dA(9807)/dV(4929) - B(15581) = RCT(9807)*V(5255) -! B(15582) = dA(9807)/dV(5255) - B(15582) = RCT(9807)*V(4929) -! B(15583) = dA(9808)/dV(4929) - B(15583) = RCT(9808)*V(5252) -! B(15584) = dA(9808)/dV(5252) - B(15584) = RCT(9808)*V(4929) -! B(15585) = dA(9809)/dV(4929) - B(15585) = RCT(9809)*V(5256) -! B(15586) = dA(9809)/dV(5256) - B(15586) = RCT(9809)*V(4929) -! B(15587) = dA(9810)/dV(4929) - B(15587) = RCT(9810) -! B(15588) = dA(9811)/dV(4621) - B(15588) = RCT(9811)*V(5251) -! B(15589) = dA(9811)/dV(5251) - B(15589) = RCT(9811)*V(4621) -! B(15590) = dA(9812)/dV(4621) - B(15590) = RCT(9812)*V(5252) -! B(15591) = dA(9812)/dV(5252) - B(15591) = RCT(9812)*V(4621) -! B(15592) = dA(9813)/dV(4621) - B(15592) = RCT(9813)*V(5253) -! B(15593) = dA(9813)/dV(5253) - B(15593) = RCT(9813)*V(4621) -! B(15594) = dA(9814)/dV(4621) - B(15594) = RCT(9814)*V(5254) -! B(15595) = dA(9814)/dV(5254) - B(15595) = RCT(9814)*V(4621) -! B(15596) = dA(9815)/dV(4621) - B(15596) = RCT(9815) -! B(15597) = dA(9816)/dV(4621) - B(15597) = RCT(9816) -! B(15598) = dA(9817)/dV(944) - B(15598) = RCT(9817)*V(5250) -! B(15599) = dA(9817)/dV(5250) - B(15599) = RCT(9817)*V(944) -! B(15600) = dA(9818)/dV(944) - B(15600) = RCT(9818) -! B(15601) = dA(9819)/dV(1675) - B(15601) = RCT(9819) -! B(15602) = dA(9820)/dV(100) - B(15602) = RCT(9820)*V(5250) -! B(15603) = dA(9820)/dV(5250) - B(15603) = RCT(9820)*V(100) -! B(15604) = dA(9821)/dV(3209) - B(15604) = RCT(9821)*V(5250) -! B(15605) = dA(9821)/dV(5250) - B(15605) = RCT(9821)*V(3209) -! B(15606) = dA(9822)/dV(3209) - B(15606) = RCT(9822) -! B(15607) = dA(9823)/dV(3209) - B(15607) = RCT(9823) -! B(15608) = dA(9824)/dV(4328) - B(15608) = RCT(9824) -! B(15609) = dA(9825)/dV(4328) - B(15609) = RCT(9825) -! B(15610) = dA(9826)/dV(2504) - B(15610) = RCT(9826)*V(5250) -! B(15611) = dA(9826)/dV(5250) - B(15611) = RCT(9826)*V(2504) -! B(15612) = dA(9827)/dV(2504) - B(15612) = RCT(9827) -! B(15613) = dA(9828)/dV(4741) - B(15613) = RCT(9828)*V(5251) -! B(15614) = dA(9828)/dV(5251) - B(15614) = RCT(9828)*V(4741) -! B(15615) = dA(9829)/dV(4741) - B(15615) = RCT(9829)*V(5252) -! B(15616) = dA(9829)/dV(5252) - B(15616) = RCT(9829)*V(4741) -! B(15617) = dA(9830)/dV(4741) - B(15617) = RCT(9830)*V(5253) -! B(15618) = dA(9830)/dV(5253) - B(15618) = RCT(9830)*V(4741) -! B(15619) = dA(9831)/dV(4741) - B(15619) = RCT(9831)*V(5254) -! B(15620) = dA(9831)/dV(5254) - B(15620) = RCT(9831)*V(4741) -! B(15621) = dA(9832)/dV(4741) - B(15621) = RCT(9832) -! B(15622) = dA(9833)/dV(2602) - B(15622) = RCT(9833)*V(5250) -! B(15623) = dA(9833)/dV(5250) - B(15623) = RCT(9833)*V(2602) -! B(15624) = dA(9834)/dV(2602) - B(15624) = RCT(9834) -! B(15625) = dA(9835)/dV(2602) - B(15625) = RCT(9835) -! B(15626) = dA(9836)/dV(2659) - B(15626) = RCT(9836) -! B(15627) = dA(9837)/dV(1681) - B(15627) = RCT(9837)*V(5250) -! B(15628) = dA(9837)/dV(5250) - B(15628) = RCT(9837)*V(1681) -! B(15629) = dA(9838)/dV(1681) - B(15629) = RCT(9838) -! B(15630) = dA(9839)/dV(2152) - B(15630) = RCT(9839)*V(5250) -! B(15631) = dA(9839)/dV(5250) - B(15631) = RCT(9839)*V(2152) -! B(15632) = dA(9840)/dV(2152) - B(15632) = RCT(9840) -! B(15633) = dA(9841)/dV(800) - B(15633) = RCT(9841) -! B(15634) = dA(9842)/dV(3214) - B(15634) = RCT(9842)*V(5250) -! B(15635) = dA(9842)/dV(5250) - B(15635) = RCT(9842)*V(3214) -! B(15636) = dA(9843)/dV(3214) - B(15636) = RCT(9843)*V(5250) -! B(15637) = dA(9843)/dV(5250) - B(15637) = RCT(9843)*V(3214) -! B(15638) = dA(9844)/dV(3214) - B(15638) = RCT(9844) -! B(15639) = dA(9845)/dV(605) - B(15639) = RCT(9845) -! B(15640) = dA(9846)/dV(2467) - B(15640) = RCT(9846)*V(5250) -! B(15641) = dA(9846)/dV(5250) - B(15641) = RCT(9846)*V(2467) -! B(15642) = dA(9847)/dV(2467) - B(15642) = RCT(9847) -! B(15643) = dA(9848)/dV(392) - B(15643) = RCT(9848)*V(5250) -! B(15644) = dA(9848)/dV(5250) - B(15644) = RCT(9848)*V(392) -! B(15645) = dA(9849)/dV(838) - B(15645) = RCT(9849)*V(5250) -! B(15646) = dA(9849)/dV(5250) - B(15646) = RCT(9849)*V(838) -! B(15647) = dA(9850)/dV(838) - B(15647) = RCT(9850) -! B(15648) = dA(9851)/dV(1727) - B(15648) = RCT(9851) -! B(15649) = dA(9852)/dV(73) - B(15649) = RCT(9852)*V(5250) -! B(15650) = dA(9852)/dV(5250) - B(15650) = RCT(9852)*V(73) -! B(15651) = dA(9853)/dV(3163) - B(15651) = RCT(9853)*V(5256) -! B(15652) = dA(9853)/dV(5256) - B(15652) = RCT(9853)*V(3163) -! B(15653) = dA(9854)/dV(3163) - B(15653) = RCT(9854)*V(5250) -! B(15654) = dA(9854)/dV(5250) - B(15654) = RCT(9854)*V(3163) -! B(15655) = dA(9855)/dV(4006) - B(15655) = RCT(9855)*V(5255) -! B(15656) = dA(9855)/dV(5255) - B(15656) = RCT(9855)*V(4006) -! B(15657) = dA(9856)/dV(4006) - B(15657) = RCT(9856)*V(5252) -! B(15658) = dA(9856)/dV(5252) - B(15658) = RCT(9856)*V(4006) -! B(15659) = dA(9857)/dV(4006) - B(15659) = RCT(9857)*V(5256) -! B(15660) = dA(9857)/dV(5256) - B(15660) = RCT(9857)*V(4006) -! B(15661) = dA(9858)/dV(4006) - B(15661) = RCT(9858) -! B(15662) = dA(9859)/dV(4327) - B(15662) = RCT(9859)*V(5255) -! B(15663) = dA(9859)/dV(5255) - B(15663) = RCT(9859)*V(4327) -! B(15664) = dA(9860)/dV(4327) - B(15664) = RCT(9860)*V(5252) -! B(15665) = dA(9860)/dV(5252) - B(15665) = RCT(9860)*V(4327) -! B(15666) = dA(9861)/dV(4327) - B(15666) = RCT(9861)*V(5256) -! B(15667) = dA(9861)/dV(5256) - B(15667) = RCT(9861)*V(4327) -! B(15668) = dA(9862)/dV(4327) - B(15668) = RCT(9862) -! B(15669) = dA(9863)/dV(3697) - B(15669) = RCT(9863)*V(5255) -! B(15670) = dA(9863)/dV(5255) - B(15670) = RCT(9863)*V(3697) -! B(15671) = dA(9864)/dV(3697) - B(15671) = RCT(9864)*V(5252) -! B(15672) = dA(9864)/dV(5252) - B(15672) = RCT(9864)*V(3697) -! B(15673) = dA(9865)/dV(3697) - B(15673) = RCT(9865)*V(5256) -! B(15674) = dA(9865)/dV(5256) - B(15674) = RCT(9865)*V(3697) -! B(15675) = dA(9866)/dV(3697) - B(15675) = RCT(9866) -! B(15676) = dA(9867)/dV(3697) - B(15676) = RCT(9867) -! B(15677) = dA(9868)/dV(3697) - B(15677) = RCT(9868) -! B(15678) = dA(9869)/dV(4293) - B(15678) = RCT(9869)*V(5255) -! B(15679) = dA(9869)/dV(5255) - B(15679) = RCT(9869)*V(4293) -! B(15680) = dA(9870)/dV(4293) - B(15680) = RCT(9870)*V(5252) -! B(15681) = dA(9870)/dV(5252) - B(15681) = RCT(9870)*V(4293) -! B(15682) = dA(9871)/dV(4293) - B(15682) = RCT(9871)*V(5256) -! B(15683) = dA(9871)/dV(5256) - B(15683) = RCT(9871)*V(4293) -! B(15684) = dA(9872)/dV(4293) - B(15684) = RCT(9872) -! B(15685) = dA(9873)/dV(4291) - B(15685) = RCT(9873)*V(5255) -! B(15686) = dA(9873)/dV(5255) - B(15686) = RCT(9873)*V(4291) -! B(15687) = dA(9874)/dV(4291) - B(15687) = RCT(9874)*V(5252) -! B(15688) = dA(9874)/dV(5252) - B(15688) = RCT(9874)*V(4291) -! B(15689) = dA(9875)/dV(4291) - B(15689) = RCT(9875)*V(5256) -! B(15690) = dA(9875)/dV(5256) - B(15690) = RCT(9875)*V(4291) -! B(15691) = dA(9876)/dV(4291) - B(15691) = RCT(9876) -! B(15692) = dA(9877)/dV(1243) - B(15692) = RCT(9877)*V(5250) -! B(15693) = dA(9877)/dV(5250) - B(15693) = RCT(9877)*V(1243) -! B(15694) = dA(9878)/dV(1243) - B(15694) = RCT(9878) -! B(15695) = dA(9879)/dV(3196) - B(15695) = RCT(9879)*V(5250) -! B(15696) = dA(9879)/dV(5250) - B(15696) = RCT(9879)*V(3196) -! B(15697) = dA(9880)/dV(3196) - B(15697) = RCT(9880) -! B(15698) = dA(9881)/dV(3196) - B(15698) = RCT(9881) -! B(15699) = dA(9882)/dV(711) - B(15699) = RCT(9882) -! B(15700) = dA(9883)/dV(2482) - B(15700) = RCT(9883)*V(5250) -! B(15701) = dA(9883)/dV(5250) - B(15701) = RCT(9883)*V(2482) -! B(15702) = dA(9884)/dV(2482) - B(15702) = RCT(9884) -! B(15703) = dA(9885)/dV(2053) - B(15703) = RCT(9885)*V(5250) -! B(15704) = dA(9885)/dV(5250) - B(15704) = RCT(9885)*V(2053) -! B(15705) = dA(9886)/dV(2053) - B(15705) = RCT(9886) -! B(15706) = dA(9887)/dV(660) - B(15706) = RCT(9887) -! B(15707) = dA(9888)/dV(2920) - B(15707) = RCT(9888)*V(5250) -! B(15708) = dA(9888)/dV(5250) - B(15708) = RCT(9888)*V(2920) -! B(15709) = dA(9889)/dV(2920) - B(15709) = RCT(9889)*V(5250) -! B(15710) = dA(9889)/dV(5250) - B(15710) = RCT(9889)*V(2920) -! B(15711) = dA(9890)/dV(2920) - B(15711) = RCT(9890) -! B(15712) = dA(9891)/dV(710) - B(15712) = RCT(9891) -! B(15713) = dA(9892)/dV(1953) - B(15713) = RCT(9892)*V(5250) -! B(15714) = dA(9892)/dV(5250) - B(15714) = RCT(9892)*V(1953) -! B(15715) = dA(9893)/dV(1953) - B(15715) = RCT(9893) -! B(15716) = dA(9894)/dV(340) - B(15716) = RCT(9894)*V(5250) -! B(15717) = dA(9894)/dV(5250) - B(15717) = RCT(9894)*V(340) -! B(15718) = dA(9895)/dV(1020) - B(15718) = RCT(9895)*V(5250) -! B(15719) = dA(9895)/dV(5250) - B(15719) = RCT(9895)*V(1020) -! B(15720) = dA(9896)/dV(1020) - B(15720) = RCT(9896) -! B(15721) = dA(9897)/dV(1713) - B(15721) = RCT(9897) -! B(15722) = dA(9898)/dV(41) - B(15722) = RCT(9898)*V(5250) -! B(15723) = dA(9898)/dV(5250) - B(15723) = RCT(9898)*V(41) -! B(15724) = dA(9899)/dV(1850) - B(15724) = RCT(9899)*V(5250) -! B(15725) = dA(9899)/dV(5250) - B(15725) = RCT(9899)*V(1850) -! B(15726) = dA(9900)/dV(1850) - B(15726) = RCT(9900) -! B(15727) = dA(9901)/dV(747) - B(15727) = RCT(9901) -! B(15728) = dA(9902)/dV(1854) - B(15728) = RCT(9902)*V(5250) -! B(15729) = dA(9902)/dV(5250) - B(15729) = RCT(9902)*V(1854) -! B(15730) = dA(9903)/dV(1854) - B(15730) = RCT(9903) -! B(15731) = dA(9904)/dV(1854) - B(15731) = RCT(9904) -! B(15732) = dA(9905)/dV(592) - B(15732) = RCT(9905) -! B(15733) = dA(9906)/dV(1443) - B(15733) = RCT(9906)*V(5250) -! B(15734) = dA(9906)/dV(5250) - B(15734) = RCT(9906)*V(1443) -! B(15735) = dA(9907)/dV(1443) - B(15735) = RCT(9907) -! B(15736) = dA(9908)/dV(1606) - B(15736) = RCT(9908) -! B(15737) = dA(9909)/dV(58) - B(15737) = RCT(9909)*V(5250) -! B(15738) = dA(9909)/dV(5250) - B(15738) = RCT(9909)*V(58) -! B(15739) = dA(9910)/dV(2488) - B(15739) = RCT(9910)*V(5250) -! B(15740) = dA(9910)/dV(5250) - B(15740) = RCT(9910)*V(2488) -! B(15741) = dA(9911)/dV(3120) - B(15741) = RCT(9911)*V(5256) -! B(15742) = dA(9911)/dV(5256) - B(15742) = RCT(9911)*V(3120) -! B(15743) = dA(9912)/dV(3120) - B(15743) = RCT(9912)*V(5250) -! B(15744) = dA(9912)/dV(5250) - B(15744) = RCT(9912)*V(3120) -! B(15745) = dA(9913)/dV(4011) - B(15745) = RCT(9913)*V(5255) -! B(15746) = dA(9913)/dV(5255) - B(15746) = RCT(9913)*V(4011) -! B(15747) = dA(9914)/dV(4011) - B(15747) = RCT(9914)*V(5252) -! B(15748) = dA(9914)/dV(5252) - B(15748) = RCT(9914)*V(4011) -! B(15749) = dA(9915)/dV(4011) - B(15749) = RCT(9915)*V(5256) -! B(15750) = dA(9915)/dV(5256) - B(15750) = RCT(9915)*V(4011) -! B(15751) = dA(9916)/dV(4011) - B(15751) = RCT(9916) -! B(15752) = dA(9917)/dV(3679) - B(15752) = RCT(9917)*V(5255) -! B(15753) = dA(9917)/dV(5255) - B(15753) = RCT(9917)*V(3679) -! B(15754) = dA(9918)/dV(3679) - B(15754) = RCT(9918)*V(5252) -! B(15755) = dA(9918)/dV(5252) - B(15755) = RCT(9918)*V(3679) -! B(15756) = dA(9919)/dV(3679) - B(15756) = RCT(9919)*V(5256) -! B(15757) = dA(9919)/dV(5256) - B(15757) = RCT(9919)*V(3679) -! B(15758) = dA(9920)/dV(3679) - B(15758) = RCT(9920) -! B(15759) = dA(9921)/dV(3714) - B(15759) = RCT(9921)*V(5255) -! B(15760) = dA(9921)/dV(5255) - B(15760) = RCT(9921)*V(3714) -! B(15761) = dA(9922)/dV(3714) - B(15761) = RCT(9922)*V(5252) -! B(15762) = dA(9922)/dV(5252) - B(15762) = RCT(9922)*V(3714) -! B(15763) = dA(9923)/dV(3714) - B(15763) = RCT(9923)*V(5256) -! B(15764) = dA(9923)/dV(5256) - B(15764) = RCT(9923)*V(3714) -! B(15765) = dA(9924)/dV(3714) - B(15765) = RCT(9924) -! B(15766) = dA(9925)/dV(3714) - B(15766) = RCT(9925) -! B(15767) = dA(9926)/dV(4303) - B(15767) = RCT(9926)*V(5255) -! B(15768) = dA(9926)/dV(5255) - B(15768) = RCT(9926)*V(4303) -! B(15769) = dA(9927)/dV(4303) - B(15769) = RCT(9927)*V(5252) -! B(15770) = dA(9927)/dV(5252) - B(15770) = RCT(9927)*V(4303) -! B(15771) = dA(9928)/dV(4303) - B(15771) = RCT(9928)*V(5256) -! B(15772) = dA(9928)/dV(5256) - B(15772) = RCT(9928)*V(4303) -! B(15773) = dA(9929)/dV(4303) - B(15773) = RCT(9929) -! B(15774) = dA(9930)/dV(4200) - B(15774) = RCT(9930)*V(5255) -! B(15775) = dA(9930)/dV(5255) - B(15775) = RCT(9930)*V(4200) -! B(15776) = dA(9931)/dV(4200) - B(15776) = RCT(9931)*V(5252) -! B(15777) = dA(9931)/dV(5252) - B(15777) = RCT(9931)*V(4200) -! B(15778) = dA(9932)/dV(4200) - B(15778) = RCT(9932)*V(5256) -! B(15779) = dA(9932)/dV(5256) - B(15779) = RCT(9932)*V(4200) -! B(15780) = dA(9933)/dV(4200) - B(15780) = RCT(9933) -! B(15781) = dA(9934)/dV(1152) - B(15781) = RCT(9934)*V(5250) -! B(15782) = dA(9934)/dV(5250) - B(15782) = RCT(9934)*V(1152) -! B(15783) = dA(9935)/dV(1152) - B(15783) = RCT(9935) -! B(15784) = dA(9936)/dV(216) - B(15784) = RCT(9936)*V(5250) -! B(15785) = dA(9936)/dV(5250) - B(15785) = RCT(9936)*V(216) -! B(15786) = dA(9937)/dV(3455) - B(15786) = RCT(9937)*V(5250) -! B(15787) = dA(9937)/dV(5250) - B(15787) = RCT(9937)*V(3455) -! B(15788) = dA(9938)/dV(3455) - B(15788) = RCT(9938)*V(5250) -! B(15789) = dA(9938)/dV(5250) - B(15789) = RCT(9938)*V(3455) -! B(15790) = dA(9939)/dV(3455) - B(15790) = RCT(9939) -! B(15791) = dA(9940)/dV(3455) - B(15791) = RCT(9940) -! B(15792) = dA(9941)/dV(3094) - B(15792) = RCT(9941) -! B(15793) = dA(9942)/dV(3094) - B(15793) = RCT(9942) -! B(15794) = dA(9943)/dV(1726) - B(15794) = RCT(9943)*V(5250) -! B(15795) = dA(9943)/dV(5250) - B(15795) = RCT(9943)*V(1726) -! B(15796) = dA(9944)/dV(1726) - B(15796) = RCT(9944) -! B(15797) = dA(9945)/dV(4325) - B(15797) = RCT(9945)*V(5250) -! B(15798) = dA(9945)/dV(5250) - B(15798) = RCT(9945)*V(4325) -! B(15799) = dA(9946)/dV(4325) - B(15799) = RCT(9946) -! B(15800) = dA(9947)/dV(4325) - B(15800) = RCT(9947) -! B(15801) = dA(9948)/dV(3189) - B(15801) = RCT(9948)*V(5256) -! B(15802) = dA(9948)/dV(5256) - B(15802) = RCT(9948)*V(3189) -! B(15803) = dA(9949)/dV(3189) - B(15803) = RCT(9949)*V(5250) -! B(15804) = dA(9949)/dV(5250) - B(15804) = RCT(9949)*V(3189) -! B(15805) = dA(9950)/dV(4039) - B(15805) = RCT(9950)*V(5255) -! B(15806) = dA(9950)/dV(5255) - B(15806) = RCT(9950)*V(4039) -! B(15807) = dA(9951)/dV(4039) - B(15807) = RCT(9951)*V(5252) -! B(15808) = dA(9951)/dV(5252) - B(15808) = RCT(9951)*V(4039) -! B(15809) = dA(9952)/dV(4039) - B(15809) = RCT(9952)*V(5256) -! B(15810) = dA(9952)/dV(5256) - B(15810) = RCT(9952)*V(4039) -! B(15811) = dA(9953)/dV(4039) - B(15811) = RCT(9953) -! B(15812) = dA(9954)/dV(4025) - B(15812) = RCT(9954)*V(5255) -! B(15813) = dA(9954)/dV(5255) - B(15813) = RCT(9954)*V(4025) -! B(15814) = dA(9955)/dV(4025) - B(15814) = RCT(9955)*V(5252) -! B(15815) = dA(9955)/dV(5252) - B(15815) = RCT(9955)*V(4025) -! B(15816) = dA(9956)/dV(4025) - B(15816) = RCT(9956)*V(5256) -! B(15817) = dA(9956)/dV(5256) - B(15817) = RCT(9956)*V(4025) -! B(15818) = dA(9957)/dV(4025) - B(15818) = RCT(9957) -! B(15819) = dA(9958)/dV(3769) - B(15819) = RCT(9958)*V(5255) -! B(15820) = dA(9958)/dV(5255) - B(15820) = RCT(9958)*V(3769) -! B(15821) = dA(9959)/dV(3769) - B(15821) = RCT(9959)*V(5252) -! B(15822) = dA(9959)/dV(5252) - B(15822) = RCT(9959)*V(3769) -! B(15823) = dA(9960)/dV(3769) - B(15823) = RCT(9960)*V(5256) -! B(15824) = dA(9960)/dV(5256) - B(15824) = RCT(9960)*V(3769) -! B(15825) = dA(9961)/dV(3769) - B(15825) = RCT(9961) -! B(15826) = dA(9962)/dV(3769) - B(15826) = RCT(9962) -! B(15827) = dA(9963)/dV(4292) - B(15827) = RCT(9963)*V(5255) -! B(15828) = dA(9963)/dV(5255) - B(15828) = RCT(9963)*V(4292) -! B(15829) = dA(9964)/dV(4292) - B(15829) = RCT(9964)*V(5252) -! B(15830) = dA(9964)/dV(5252) - B(15830) = RCT(9964)*V(4292) -! B(15831) = dA(9965)/dV(4292) - B(15831) = RCT(9965)*V(5256) -! B(15832) = dA(9965)/dV(5256) - B(15832) = RCT(9965)*V(4292) -! B(15833) = dA(9966)/dV(4292) - B(15833) = RCT(9966) -! B(15834) = dA(9967)/dV(4225) - B(15834) = RCT(9967)*V(5255) -! B(15835) = dA(9967)/dV(5255) - B(15835) = RCT(9967)*V(4225) -! B(15836) = dA(9968)/dV(4225) - B(15836) = RCT(9968)*V(5252) -! B(15837) = dA(9968)/dV(5252) - B(15837) = RCT(9968)*V(4225) -! B(15838) = dA(9969)/dV(4225) - B(15838) = RCT(9969)*V(5256) -! B(15839) = dA(9969)/dV(5256) - B(15839) = RCT(9969)*V(4225) -! B(15840) = dA(9970)/dV(4225) - B(15840) = RCT(9970) -! B(15841) = dA(9971)/dV(1421) - B(15841) = RCT(9971)*V(5250) -! B(15842) = dA(9971)/dV(5250) - B(15842) = RCT(9971)*V(1421) -! B(15843) = dA(9972)/dV(1421) - B(15843) = RCT(9972) -! B(15844) = dA(9973)/dV(3181) - B(15844) = RCT(9973)*V(5256) -! B(15845) = dA(9973)/dV(5256) - B(15845) = RCT(9973)*V(3181) -! B(15846) = dA(9974)/dV(3181) - B(15846) = RCT(9974)*V(5250) -! B(15847) = dA(9974)/dV(5250) - B(15847) = RCT(9974)*V(3181) -! B(15848) = dA(9975)/dV(4036) - B(15848) = RCT(9975)*V(5255) -! B(15849) = dA(9975)/dV(5255) - B(15849) = RCT(9975)*V(4036) -! B(15850) = dA(9976)/dV(4036) - B(15850) = RCT(9976)*V(5252) -! B(15851) = dA(9976)/dV(5252) - B(15851) = RCT(9976)*V(4036) -! B(15852) = dA(9977)/dV(4036) - B(15852) = RCT(9977)*V(5256) -! B(15853) = dA(9977)/dV(5256) - B(15853) = RCT(9977)*V(4036) -! B(15854) = dA(9978)/dV(4036) - B(15854) = RCT(9978) -! B(15855) = dA(9979)/dV(4076) - B(15855) = RCT(9979)*V(5255) -! B(15856) = dA(9979)/dV(5255) - B(15856) = RCT(9979)*V(4076) -! B(15857) = dA(9980)/dV(4076) - B(15857) = RCT(9980)*V(5252) -! B(15858) = dA(9980)/dV(5252) - B(15858) = RCT(9980)*V(4076) -! B(15859) = dA(9981)/dV(4076) - B(15859) = RCT(9981)*V(5256) -! B(15860) = dA(9981)/dV(5256) - B(15860) = RCT(9981)*V(4076) -! B(15861) = dA(9982)/dV(4076) - B(15861) = RCT(9982) -! B(15862) = dA(9983)/dV(3675) - B(15862) = RCT(9983)*V(5255) -! B(15863) = dA(9983)/dV(5255) - B(15863) = RCT(9983)*V(3675) -! B(15864) = dA(9984)/dV(3675) - B(15864) = RCT(9984)*V(5252) -! B(15865) = dA(9984)/dV(5252) - B(15865) = RCT(9984)*V(3675) -! B(15866) = dA(9985)/dV(3675) - B(15866) = RCT(9985)*V(5256) -! B(15867) = dA(9985)/dV(5256) - B(15867) = RCT(9985)*V(3675) -! B(15868) = dA(9986)/dV(3675) - B(15868) = RCT(9986) -! B(15869) = dA(9987)/dV(3675) - B(15869) = RCT(9987) -! B(15870) = dA(9988)/dV(3675) - B(15870) = RCT(9988) -! B(15871) = dA(9989)/dV(4246) - B(15871) = RCT(9989)*V(5255) -! B(15872) = dA(9989)/dV(5255) - B(15872) = RCT(9989)*V(4246) -! B(15873) = dA(9990)/dV(4246) - B(15873) = RCT(9990)*V(5252) -! B(15874) = dA(9990)/dV(5252) - B(15874) = RCT(9990)*V(4246) -! B(15875) = dA(9991)/dV(4246) - B(15875) = RCT(9991)*V(5256) -! B(15876) = dA(9991)/dV(5256) - B(15876) = RCT(9991)*V(4246) -! B(15877) = dA(9992)/dV(4246) - B(15877) = RCT(9992) -! B(15878) = dA(9993)/dV(4304) - B(15878) = RCT(9993)*V(5255) -! B(15879) = dA(9993)/dV(5255) - B(15879) = RCT(9993)*V(4304) -! B(15880) = dA(9994)/dV(4304) - B(15880) = RCT(9994)*V(5252) -! B(15881) = dA(9994)/dV(5252) - B(15881) = RCT(9994)*V(4304) -! B(15882) = dA(9995)/dV(4304) - B(15882) = RCT(9995)*V(5256) -! B(15883) = dA(9995)/dV(5256) - B(15883) = RCT(9995)*V(4304) -! B(15884) = dA(9996)/dV(4304) - B(15884) = RCT(9996) -! B(15885) = dA(9997)/dV(1294) - B(15885) = RCT(9997)*V(5250) -! B(15886) = dA(9997)/dV(5250) - B(15886) = RCT(9997)*V(1294) -! B(15887) = dA(9998)/dV(1294) - B(15887) = RCT(9998) -! B(15888) = dA(9999)/dV(3453) - B(15888) = RCT(9999)*V(5250) -! B(15889) = dA(9999)/dV(5250) - B(15889) = RCT(9999)*V(3453) -! B(15890) = dA(10000)/dV(3453) - B(15890) = RCT(10000) -! B(15891) = dA(10001)/dV(3453) - B(15891) = RCT(10001) -! B(15892) = dA(10002)/dV(1960) - B(15892) = RCT(10002) -! B(15893) = dA(10003)/dV(4199) - B(15893) = RCT(10003)*V(5250) -! B(15894) = dA(10003)/dV(5250) - B(15894) = RCT(10003)*V(4199) -! B(15895) = dA(10004)/dV(4199) - B(15895) = RCT(10004) -! B(15896) = dA(10005)/dV(2485) - B(15896) = RCT(10005)*V(5250) -! B(15897) = dA(10005)/dV(5250) - B(15897) = RCT(10005)*V(2485) -! B(15898) = dA(10006)/dV(2485) - B(15898) = RCT(10006) -! B(15899) = dA(10007)/dV(2485) - B(15899) = RCT(10007) -! B(15900) = dA(10008)/dV(1053) - B(15900) = RCT(10008)*V(5250) -! B(15901) = dA(10008)/dV(5250) - B(15901) = RCT(10008)*V(1053) -! B(15902) = dA(10009)/dV(1053) - B(15902) = RCT(10009) -! B(15903) = dA(10010)/dV(3396) - B(15903) = RCT(10010) -! B(15904) = dA(10011)/dV(3396) - B(15904) = RCT(10011) -! B(15905) = dA(10012)/dV(1768) - B(15905) = RCT(10012)*V(5250) -! B(15906) = dA(10012)/dV(5250) - B(15906) = RCT(10012)*V(1768) -! B(15907) = dA(10013)/dV(1768) - B(15907) = RCT(10013)*V(5250) -! B(15908) = dA(10013)/dV(5250) - B(15908) = RCT(10013)*V(1768) -! B(15909) = dA(10014)/dV(1768) - B(15909) = RCT(10014) -! B(15910) = dA(10015)/dV(1898) - B(15910) = RCT(10015)*V(5250) -! B(15911) = dA(10015)/dV(5250) - B(15911) = RCT(10015)*V(1898) -! B(15912) = dA(10016)/dV(1898) - B(15912) = RCT(10016) -! B(15913) = dA(10017)/dV(792) - B(15913) = RCT(10017) -! B(15914) = dA(10018)/dV(1133) - B(15914) = RCT(10018)*V(5250) -! B(15915) = dA(10018)/dV(5250) - B(15915) = RCT(10018)*V(1133) -! B(15916) = dA(10019)/dV(312) - B(15916) = RCT(10019)*V(5250) -! B(15917) = dA(10019)/dV(5250) - B(15917) = RCT(10019)*V(312) -! B(15918) = dA(10020)/dV(4966) - B(15918) = RCT(10020)*V(5255) -! B(15919) = dA(10020)/dV(5255) - B(15919) = RCT(10020)*V(4966) -! B(15920) = dA(10021)/dV(4966) - B(15920) = RCT(10021)*V(5255) -! B(15921) = dA(10021)/dV(5255) - B(15921) = RCT(10021)*V(4966) -! B(15922) = dA(10022)/dV(4966) - B(15922) = RCT(10022)*V(5252) -! B(15923) = dA(10022)/dV(5252) - B(15923) = RCT(10022)*V(4966) -! B(15924) = dA(10023)/dV(4966) - B(15924) = RCT(10023)*V(5253) -! B(15925) = dA(10023)/dV(5253) - B(15925) = RCT(10023)*V(4966) -! B(15926) = dA(10024)/dV(4966) - B(15926) = RCT(10024)*V(5256) -! B(15927) = dA(10024)/dV(5256) - B(15927) = RCT(10024)*V(4966) -! B(15928) = dA(10025)/dV(4966) - B(15928) = RCT(10025) -! B(15929) = dA(10026)/dV(891) - B(15929) = RCT(10026)*V(5250) -! B(15930) = dA(10026)/dV(5250) - B(15930) = RCT(10026)*V(891) -! B(15931) = dA(10027)/dV(891) - B(15931) = RCT(10027) -! B(15932) = dA(10028)/dV(2897) - B(15932) = RCT(10028) -! B(15933) = dA(10029)/dV(4031) - B(15933) = RCT(10029)*V(5255) -! B(15934) = dA(10029)/dV(5255) - B(15934) = RCT(10029)*V(4031) -! B(15935) = dA(10030)/dV(4031) - B(15935) = RCT(10030)*V(5252) -! B(15936) = dA(10030)/dV(5252) - B(15936) = RCT(10030)*V(4031) -! B(15937) = dA(10031)/dV(4031) - B(15937) = RCT(10031)*V(5256) -! B(15938) = dA(10031)/dV(5256) - B(15938) = RCT(10031)*V(4031) -! B(15939) = dA(10032)/dV(4031) - B(15939) = RCT(10032) -! B(15940) = dA(10033)/dV(3187) - B(15940) = RCT(10033)*V(5256) -! B(15941) = dA(10033)/dV(5256) - B(15941) = RCT(10033)*V(3187) -! B(15942) = dA(10034)/dV(3187) - B(15942) = RCT(10034)*V(5250) -! B(15943) = dA(10034)/dV(5250) - B(15943) = RCT(10034)*V(3187) -! B(15944) = dA(10035)/dV(3999) - B(15944) = RCT(10035)*V(5255) -! B(15945) = dA(10035)/dV(5255) - B(15945) = RCT(10035)*V(3999) -! B(15946) = dA(10036)/dV(3999) - B(15946) = RCT(10036)*V(5252) -! B(15947) = dA(10036)/dV(5252) - B(15947) = RCT(10036)*V(3999) -! B(15948) = dA(10037)/dV(3999) - B(15948) = RCT(10037)*V(5256) -! B(15949) = dA(10037)/dV(5256) - B(15949) = RCT(10037)*V(3999) -! B(15950) = dA(10038)/dV(3999) - B(15950) = RCT(10038) -! B(15951) = dA(10039)/dV(4381) - B(15951) = RCT(10039)*V(5255) -! B(15952) = dA(10039)/dV(5255) - B(15952) = RCT(10039)*V(4381) -! B(15953) = dA(10040)/dV(4381) - B(15953) = RCT(10040)*V(5252) -! B(15954) = dA(10040)/dV(5252) - B(15954) = RCT(10040)*V(4381) -! B(15955) = dA(10041)/dV(4381) - B(15955) = RCT(10041)*V(5256) -! B(15956) = dA(10041)/dV(5256) - B(15956) = RCT(10041)*V(4381) -! B(15957) = dA(10042)/dV(4381) - B(15957) = RCT(10042) -! B(15958) = dA(10043)/dV(3711) - B(15958) = RCT(10043)*V(5255) -! B(15959) = dA(10043)/dV(5255) - B(15959) = RCT(10043)*V(3711) -! B(15960) = dA(10044)/dV(3711) - B(15960) = RCT(10044)*V(5252) -! B(15961) = dA(10044)/dV(5252) - B(15961) = RCT(10044)*V(3711) -! B(15962) = dA(10045)/dV(3711) - B(15962) = RCT(10045)*V(5256) -! B(15963) = dA(10045)/dV(5256) - B(15963) = RCT(10045)*V(3711) -! B(15964) = dA(10046)/dV(3711) - B(15964) = RCT(10046) -! B(15965) = dA(10047)/dV(3711) - B(15965) = RCT(10047) -! B(15966) = dA(10048)/dV(3711) - B(15966) = RCT(10048) -! B(15967) = dA(10049)/dV(4237) - B(15967) = RCT(10049)*V(5255) -! B(15968) = dA(10049)/dV(5255) - B(15968) = RCT(10049)*V(4237) -! B(15969) = dA(10050)/dV(4237) - B(15969) = RCT(10050)*V(5252) -! B(15970) = dA(10050)/dV(5252) - B(15970) = RCT(10050)*V(4237) -! B(15971) = dA(10051)/dV(4237) - B(15971) = RCT(10051)*V(5256) -! B(15972) = dA(10051)/dV(5256) - B(15972) = RCT(10051)*V(4237) -! B(15973) = dA(10052)/dV(4237) - B(15973) = RCT(10052) -! B(15974) = dA(10053)/dV(4280) - B(15974) = RCT(10053)*V(5255) -! B(15975) = dA(10053)/dV(5255) - B(15975) = RCT(10053)*V(4280) -! B(15976) = dA(10054)/dV(4280) - B(15976) = RCT(10054)*V(5252) -! B(15977) = dA(10054)/dV(5252) - B(15977) = RCT(10054)*V(4280) -! B(15978) = dA(10055)/dV(4280) - B(15978) = RCT(10055)*V(5256) -! B(15979) = dA(10055)/dV(5256) - B(15979) = RCT(10055)*V(4280) -! B(15980) = dA(10056)/dV(4280) - B(15980) = RCT(10056) -! B(15981) = dA(10057)/dV(1539) - B(15981) = RCT(10057)*V(5250) -! B(15982) = dA(10057)/dV(5250) - B(15982) = RCT(10057)*V(1539) -! B(15983) = dA(10058)/dV(1539) - B(15983) = RCT(10058) -! B(15984) = dA(10059)/dV(1224) - B(15984) = RCT(10059)*V(5250) -! B(15985) = dA(10059)/dV(5250) - B(15985) = RCT(10059)*V(1224) -! B(15986) = dA(10060)/dV(1224) - B(15986) = RCT(10060) -! B(15987) = dA(10061)/dV(2492) - B(15987) = RCT(10061) -! B(15988) = dA(10062)/dV(4775) - B(15988) = RCT(10062)*V(5256) -! B(15989) = dA(10062)/dV(5256) - B(15989) = RCT(10062)*V(4775) -! B(15990) = dA(10063)/dV(4775) - B(15990) = RCT(10063)*V(5250) -! B(15991) = dA(10063)/dV(5250) - B(15991) = RCT(10063)*V(4775) -! B(15992) = dA(10064)/dV(4775) - B(15992) = RCT(10064) -! B(15993) = dA(10065)/dV(4775) - B(15993) = RCT(10065) -! B(15994) = dA(10066)/dV(4775) - B(15994) = RCT(10066) -! B(15995) = dA(10067)/dV(622) - B(15995) = RCT(10067)*V(5250) -! B(15996) = dA(10067)/dV(5250) - B(15996) = RCT(10067)*V(622) -! B(15997) = dA(10068)/dV(622) - B(15997) = RCT(10068) -! B(15998) = dA(10069)/dV(1388) - B(15998) = RCT(10069)*V(5250) -! B(15999) = dA(10069)/dV(5250) - B(15999) = RCT(10069)*V(1388) -! B(16000) = dA(10070)/dV(1388) - B(16000) = RCT(10070) -! B(16001) = dA(10071)/dV(3423) - B(16001) = RCT(10071) -! B(16002) = dA(10072)/dV(3423) - B(16002) = RCT(10072) -! B(16003) = dA(10073)/dV(2025) - B(16003) = RCT(10073)*V(5250) -! B(16004) = dA(10073)/dV(5250) - B(16004) = RCT(10073)*V(2025) -! B(16005) = dA(10074)/dV(2025) - B(16005) = RCT(10074)*V(5250) -! B(16006) = dA(10074)/dV(5250) - B(16006) = RCT(10074)*V(2025) -! B(16007) = dA(10075)/dV(2025) - B(16007) = RCT(10075) -! B(16008) = dA(10076)/dV(1861) - B(16008) = RCT(10076)*V(5250) -! B(16009) = dA(10076)/dV(5250) - B(16009) = RCT(10076)*V(1861) -! B(16010) = dA(10077)/dV(1861) - B(16010) = RCT(10077) -! B(16011) = dA(10078)/dV(620) - B(16011) = RCT(10078) -! B(16012) = dA(10079)/dV(911) - B(16012) = RCT(10079)*V(5250) -! B(16013) = dA(10079)/dV(5250) - B(16013) = RCT(10079)*V(911) -! B(16014) = dA(10080)/dV(485) - B(16014) = RCT(10080)*V(5250) -! B(16015) = dA(10080)/dV(5250) - B(16015) = RCT(10080)*V(485) -! B(16016) = dA(10081)/dV(4792) - B(16016) = RCT(10081)*V(5255) -! B(16017) = dA(10081)/dV(5255) - B(16017) = RCT(10081)*V(4792) -! B(16018) = dA(10082)/dV(4792) - B(16018) = RCT(10082)*V(5255) -! B(16019) = dA(10082)/dV(5255) - B(16019) = RCT(10082)*V(4792) -! B(16020) = dA(10083)/dV(4792) - B(16020) = RCT(10083)*V(5252) -! B(16021) = dA(10083)/dV(5252) - B(16021) = RCT(10083)*V(4792) -! B(16022) = dA(10084)/dV(4792) - B(16022) = RCT(10084)*V(5253) -! B(16023) = dA(10084)/dV(5253) - B(16023) = RCT(10084)*V(4792) -! B(16024) = dA(10085)/dV(4792) - B(16024) = RCT(10085)*V(5256) -! B(16025) = dA(10085)/dV(5256) - B(16025) = RCT(10085)*V(4792) -! B(16026) = dA(10086)/dV(4792) - B(16026) = RCT(10086) -! B(16027) = dA(10087)/dV(1170) - B(16027) = RCT(10087)*V(5250) -! B(16028) = dA(10087)/dV(5250) - B(16028) = RCT(10087)*V(1170) -! B(16029) = dA(10088)/dV(1170) - B(16029) = RCT(10088) -! B(16030) = dA(10089)/dV(2581) - B(16030) = RCT(10089) -! B(16031) = dA(10090)/dV(1840) - B(16031) = RCT(10090)*V(5250) -! B(16032) = dA(10090)/dV(5250) - B(16032) = RCT(10090)*V(1840) -! B(16033) = dA(10091)/dV(1840) - B(16033) = RCT(10091) -! B(16034) = dA(10092)/dV(773) - B(16034) = RCT(10092) -! B(16035) = dA(10093)/dV(402) - B(16035) = RCT(10093)*V(5250) -! B(16036) = dA(10093)/dV(5250) - B(16036) = RCT(10093)*V(402) -! B(16037) = dA(10094)/dV(3543) - B(16037) = RCT(10094)*V(5256) -! B(16038) = dA(10094)/dV(5256) - B(16038) = RCT(10094)*V(3543) -! B(16039) = dA(10095)/dV(3543) - B(16039) = RCT(10095)*V(5250) -! B(16040) = dA(10095)/dV(5250) - B(16040) = RCT(10095)*V(3543) -! B(16041) = dA(10096)/dV(3543) - B(16041) = RCT(10096) -! B(16042) = dA(10097)/dV(3178) - B(16042) = RCT(10097)*V(5256) -! B(16043) = dA(10097)/dV(5256) - B(16043) = RCT(10097)*V(3178) -! B(16044) = dA(10098)/dV(3178) - B(16044) = RCT(10098)*V(5250) -! B(16045) = dA(10098)/dV(5250) - B(16045) = RCT(10098)*V(3178) -! B(16046) = dA(10099)/dV(4021) - B(16046) = RCT(10099)*V(5255) -! B(16047) = dA(10099)/dV(5255) - B(16047) = RCT(10099)*V(4021) -! B(16048) = dA(10100)/dV(4021) - B(16048) = RCT(10100)*V(5252) -! B(16049) = dA(10100)/dV(5252) - B(16049) = RCT(10100)*V(4021) -! B(16050) = dA(10101)/dV(4021) - B(16050) = RCT(10101)*V(5256) -! B(16051) = dA(10101)/dV(5256) - B(16051) = RCT(10101)*V(4021) -! B(16052) = dA(10102)/dV(4021) - B(16052) = RCT(10102) -! B(16053) = dA(10103)/dV(3738) - B(16053) = RCT(10103)*V(5255) -! B(16054) = dA(10103)/dV(5255) - B(16054) = RCT(10103)*V(3738) -! B(16055) = dA(10104)/dV(3738) - B(16055) = RCT(10104)*V(5252) -! B(16056) = dA(10104)/dV(5252) - B(16056) = RCT(10104)*V(3738) -! B(16057) = dA(10105)/dV(3738) - B(16057) = RCT(10105)*V(5256) -! B(16058) = dA(10105)/dV(5256) - B(16058) = RCT(10105)*V(3738) -! B(16059) = dA(10106)/dV(3738) - B(16059) = RCT(10106) -! B(16060) = dA(10107)/dV(3983) - B(16060) = RCT(10107)*V(5255) -! B(16061) = dA(10107)/dV(5255) - B(16061) = RCT(10107)*V(3983) -! B(16062) = dA(10108)/dV(3983) - B(16062) = RCT(10108)*V(5252) -! B(16063) = dA(10108)/dV(5252) - B(16063) = RCT(10108)*V(3983) -! B(16064) = dA(10109)/dV(3983) - B(16064) = RCT(10109)*V(5256) -! B(16065) = dA(10109)/dV(5256) - B(16065) = RCT(10109)*V(3983) -! B(16066) = dA(10110)/dV(3983) - B(16066) = RCT(10110) -! B(16067) = dA(10111)/dV(3983) - B(16067) = RCT(10111) -! B(16068) = dA(10112)/dV(3983) - B(16068) = RCT(10112) -! B(16069) = dA(10113)/dV(4307) - B(16069) = RCT(10113)*V(5255) -! B(16070) = dA(10113)/dV(5255) - B(16070) = RCT(10113)*V(4307) -! B(16071) = dA(10114)/dV(4307) - B(16071) = RCT(10114)*V(5252) -! B(16072) = dA(10114)/dV(5252) - B(16072) = RCT(10114)*V(4307) -! B(16073) = dA(10115)/dV(4307) - B(16073) = RCT(10115)*V(5256) -! B(16074) = dA(10115)/dV(5256) - B(16074) = RCT(10115)*V(4307) -! B(16075) = dA(10116)/dV(4307) - B(16075) = RCT(10116) -! B(16076) = dA(10117)/dV(4296) - B(16076) = RCT(10117)*V(5255) -! B(16077) = dA(10117)/dV(5255) - B(16077) = RCT(10117)*V(4296) -! B(16078) = dA(10118)/dV(4296) - B(16078) = RCT(10118)*V(5252) -! B(16079) = dA(10118)/dV(5252) - B(16079) = RCT(10118)*V(4296) -! B(16080) = dA(10119)/dV(4296) - B(16080) = RCT(10119)*V(5256) -! B(16081) = dA(10119)/dV(5256) - B(16081) = RCT(10119)*V(4296) -! B(16082) = dA(10120)/dV(4296) - B(16082) = RCT(10120) -! B(16083) = dA(10121)/dV(822) - B(16083) = RCT(10121)*V(5250) -! B(16084) = dA(10121)/dV(5250) - B(16084) = RCT(10121)*V(822) -! B(16085) = dA(10122)/dV(822) - B(16085) = RCT(10122) -! B(16086) = dA(10123)/dV(1088) - B(16086) = RCT(10123)*V(5250) -! B(16087) = dA(10123)/dV(5250) - B(16087) = RCT(10123)*V(1088) -! B(16088) = dA(10124)/dV(1088) - B(16088) = RCT(10124) -! B(16089) = dA(10125)/dV(2949) - B(16089) = RCT(10125) -! B(16090) = dA(10126)/dV(4815) - B(16090) = RCT(10126)*V(5256) -! B(16091) = dA(10126)/dV(5256) - B(16091) = RCT(10126)*V(4815) -! B(16092) = dA(10127)/dV(4815) - B(16092) = RCT(10127)*V(5250) -! B(16093) = dA(10127)/dV(5250) - B(16093) = RCT(10127)*V(4815) -! B(16094) = dA(10128)/dV(4815) - B(16094) = RCT(10128) -! B(16095) = dA(10129)/dV(4815) - B(16095) = RCT(10129) -! B(16096) = dA(10130)/dV(4815) - B(16096) = RCT(10130) -! B(16097) = dA(10131)/dV(659) - B(16097) = RCT(10131)*V(5250) -! B(16098) = dA(10131)/dV(5250) - B(16098) = RCT(10131)*V(659) -! B(16099) = dA(10132)/dV(659) - B(16099) = RCT(10132) -! B(16100) = dA(10133)/dV(1123) - B(16100) = RCT(10133)*V(5250) -! B(16101) = dA(10133)/dV(5250) - B(16101) = RCT(10133)*V(1123) -! B(16102) = dA(10134)/dV(1123) - B(16102) = RCT(10134) -! B(16103) = dA(10135)/dV(3380) - B(16103) = RCT(10135) -! B(16104) = dA(10136)/dV(3380) - B(16104) = RCT(10136) -! B(16105) = dA(10137)/dV(1949) - B(16105) = RCT(10137)*V(5250) -! B(16106) = dA(10137)/dV(5250) - B(16106) = RCT(10137)*V(1949) -! B(16107) = dA(10138)/dV(1949) - B(16107) = RCT(10138)*V(5250) -! B(16108) = dA(10138)/dV(5250) - B(16108) = RCT(10138)*V(1949) -! B(16109) = dA(10139)/dV(1949) - B(16109) = RCT(10139) -! B(16110) = dA(10140)/dV(2446) - B(16110) = RCT(10140)*V(5250) -! B(16111) = dA(10140)/dV(5250) - B(16111) = RCT(10140)*V(2446) -! B(16112) = dA(10141)/dV(2446) - B(16112) = RCT(10141) -! B(16113) = dA(10142)/dV(716) - B(16113) = RCT(10142) -! B(16114) = dA(10143)/dV(1231) - B(16114) = RCT(10143)*V(5250) -! B(16115) = dA(10143)/dV(5250) - B(16115) = RCT(10143)*V(1231) -! B(16116) = dA(10144)/dV(356) - B(16116) = RCT(10144)*V(5250) -! B(16117) = dA(10144)/dV(5250) - B(16117) = RCT(10144)*V(356) -! B(16118) = dA(10145)/dV(4864) - B(16118) = RCT(10145)*V(5255) -! B(16119) = dA(10145)/dV(5255) - B(16119) = RCT(10145)*V(4864) -! B(16120) = dA(10146)/dV(4864) - B(16120) = RCT(10146)*V(5255) -! B(16121) = dA(10146)/dV(5255) - B(16121) = RCT(10146)*V(4864) -! B(16122) = dA(10147)/dV(4864) - B(16122) = RCT(10147)*V(5252) -! B(16123) = dA(10147)/dV(5252) - B(16123) = RCT(10147)*V(4864) -! B(16124) = dA(10148)/dV(4864) - B(16124) = RCT(10148)*V(5253) -! B(16125) = dA(10148)/dV(5253) - B(16125) = RCT(10148)*V(4864) -! B(16126) = dA(10149)/dV(4864) - B(16126) = RCT(10149)*V(5256) -! B(16127) = dA(10149)/dV(5256) - B(16127) = RCT(10149)*V(4864) -! B(16128) = dA(10150)/dV(4864) - B(16128) = RCT(10150) -! B(16129) = dA(10151)/dV(974) - B(16129) = RCT(10151)*V(5250) -! B(16130) = dA(10151)/dV(5250) - B(16130) = RCT(10151)*V(974) -! B(16131) = dA(10152)/dV(974) - B(16131) = RCT(10152) -! B(16132) = dA(10153)/dV(3028) - B(16132) = RCT(10153) -! B(16133) = dA(10154)/dV(4379) - B(16133) = RCT(10154) -! B(16134) = dA(10155)/dV(4379) - B(16134) = RCT(10155) -! B(16135) = dA(10156)/dV(3191) - B(16135) = RCT(10156)*V(5256) -! B(16136) = dA(10156)/dV(5256) - B(16136) = RCT(10156)*V(3191) -! B(16137) = dA(10157)/dV(3191) - B(16137) = RCT(10157)*V(5250) -! B(16138) = dA(10157)/dV(5250) - B(16138) = RCT(10157)*V(3191) -! B(16139) = dA(10158)/dV(4034) - B(16139) = RCT(10158)*V(5255) -! B(16140) = dA(10158)/dV(5255) - B(16140) = RCT(10158)*V(4034) -! B(16141) = dA(10159)/dV(4034) - B(16141) = RCT(10159)*V(5252) -! B(16142) = dA(10159)/dV(5252) - B(16142) = RCT(10159)*V(4034) -! B(16143) = dA(10160)/dV(4034) - B(16143) = RCT(10160)*V(5256) -! B(16144) = dA(10160)/dV(5256) - B(16144) = RCT(10160)*V(4034) -! B(16145) = dA(10161)/dV(4034) - B(16145) = RCT(10161) -! B(16146) = dA(10162)/dV(4212) - B(16146) = RCT(10162)*V(5255) -! B(16147) = dA(10162)/dV(5255) - B(16147) = RCT(10162)*V(4212) -! B(16148) = dA(10163)/dV(4212) - B(16148) = RCT(10163)*V(5252) -! B(16149) = dA(10163)/dV(5252) - B(16149) = RCT(10163)*V(4212) -! B(16150) = dA(10164)/dV(4212) - B(16150) = RCT(10164)*V(5256) -! B(16151) = dA(10164)/dV(5256) - B(16151) = RCT(10164)*V(4212) -! B(16152) = dA(10165)/dV(4212) - B(16152) = RCT(10165) -! B(16153) = dA(10166)/dV(4193) - B(16153) = RCT(10166)*V(5255) -! B(16154) = dA(10166)/dV(5255) - B(16154) = RCT(10166)*V(4193) -! B(16155) = dA(10167)/dV(4193) - B(16155) = RCT(10167)*V(5252) -! B(16156) = dA(10167)/dV(5252) - B(16156) = RCT(10167)*V(4193) -! B(16157) = dA(10168)/dV(4193) - B(16157) = RCT(10168)*V(5256) -! B(16158) = dA(10168)/dV(5256) - B(16158) = RCT(10168)*V(4193) -! B(16159) = dA(10169)/dV(4193) - B(16159) = RCT(10169) -! B(16160) = dA(10170)/dV(1361) - B(16160) = RCT(10170)*V(5250) -! B(16161) = dA(10170)/dV(5250) - B(16161) = RCT(10170)*V(1361) -! B(16162) = dA(10171)/dV(1361) - B(16162) = RCT(10171) -! B(16163) = dA(10172)/dV(2766) - B(16163) = RCT(10172)*V(5250) -! B(16164) = dA(10172)/dV(5250) - B(16164) = RCT(10172)*V(2766) -! B(16165) = dA(10173)/dV(2766) - B(16165) = RCT(10173) -! B(16166) = dA(10174)/dV(2766) - B(16166) = RCT(10174) -! B(16167) = dA(10175)/dV(3221) - B(16167) = RCT(10175)*V(5250) -! B(16168) = dA(10175)/dV(5250) - B(16168) = RCT(10175)*V(3221) -! B(16169) = dA(10176)/dV(3221) - B(16169) = RCT(10176) -! B(16170) = dA(10177)/dV(1345) - B(16170) = RCT(10177)*V(5250) -! B(16171) = dA(10177)/dV(5250) - B(16171) = RCT(10177)*V(1345) -! B(16172) = dA(10178)/dV(1345) - B(16172) = RCT(10178) -! B(16173) = dA(10179)/dV(2967) - B(16173) = RCT(10179) -! B(16174) = dA(10180)/dV(263) - B(16174) = RCT(10180)*V(5250) -! B(16175) = dA(10180)/dV(5250) - B(16175) = RCT(10180)*V(263) -! B(16176) = dA(10181)/dV(263) - B(16176) = RCT(10181) -! B(16177) = dA(10182)/dV(2262) - B(16177) = RCT(10182)*V(5250) -! B(16178) = dA(10182)/dV(5250) - B(16178) = RCT(10182)*V(2262) -! B(16179) = dA(10183)/dV(2262) - B(16179) = RCT(10183) -! B(16180) = dA(10184)/dV(814) - B(16180) = RCT(10184) -! B(16181) = dA(10185)/dV(1252) - B(16181) = RCT(10185)*V(5250) -! B(16182) = dA(10185)/dV(5250) - B(16182) = RCT(10185)*V(1252) -! B(16183) = dA(10186)/dV(1252) - B(16183) = RCT(10186) -! B(16184) = dA(10187)/dV(1680) - B(16184) = RCT(10187) -! B(16185) = dA(10188)/dV(46) - B(16185) = RCT(10188)*V(5250) -! B(16186) = dA(10188)/dV(5250) - B(16186) = RCT(10188)*V(46) -! B(16187) = dA(10189)/dV(2417) - B(16187) = RCT(10189)*V(5250) -! B(16188) = dA(10189)/dV(5250) - B(16188) = RCT(10189)*V(2417) -! B(16189) = dA(10190)/dV(2417) - B(16189) = RCT(10190) -! B(16190) = dA(10191)/dV(584) - B(16190) = RCT(10191) -! B(16191) = dA(10192)/dV(928) - B(16191) = RCT(10192)*V(5250) -! B(16192) = dA(10192)/dV(5250) - B(16192) = RCT(10192)*V(928) -! B(16193) = dA(10193)/dV(928) - B(16193) = RCT(10193) -! B(16194) = dA(10194)/dV(1710) - B(16194) = RCT(10194) -! B(16195) = dA(10195)/dV(63) - B(16195) = RCT(10195)*V(5250) -! B(16196) = dA(10195)/dV(5250) - B(16196) = RCT(10195)*V(63) -! B(16197) = dA(10196)/dV(1129) - B(16197) = RCT(10196)*V(5250) -! B(16198) = dA(10196)/dV(5250) - B(16198) = RCT(10196)*V(1129) -! B(16199) = dA(10197)/dV(1129) - B(16199) = RCT(10197) -! B(16200) = dA(10198)/dV(1622) - B(16200) = RCT(10198) -! B(16201) = dA(10199)/dV(38) - B(16201) = RCT(10199)*V(5250) -! B(16202) = dA(10199)/dV(5250) - B(16202) = RCT(10199)*V(38) -! B(16203) = dA(10200)/dV(264) - B(16203) = RCT(10200)*V(5250) -! B(16204) = dA(10200)/dV(5250) - B(16204) = RCT(10200)*V(264) -! B(16205) = dA(10201)/dV(2686) - B(16205) = RCT(10201)*V(5250) -! B(16206) = dA(10201)/dV(5250) - B(16206) = RCT(10201)*V(2686) -! B(16207) = dA(10202)/dV(2686) - B(16207) = RCT(10202) -! B(16208) = dA(10203)/dV(2686) - B(16208) = RCT(10203) -! B(16209) = dA(10204)/dV(3578) - B(16209) = RCT(10204) -! B(16210) = dA(10205)/dV(3578) - B(16210) = RCT(10205) -! B(16211) = dA(10206)/dV(1578) - B(16211) = RCT(10206)*V(5250) -! B(16212) = dA(10206)/dV(5250) - B(16212) = RCT(10206)*V(1578) -! B(16213) = dA(10207)/dV(1578) - B(16213) = RCT(10207) -! B(16214) = dA(10208)/dV(3137) - B(16214) = RCT(10208)*V(5256) -! B(16215) = dA(10208)/dV(5256) - B(16215) = RCT(10208)*V(3137) -! B(16216) = dA(10209)/dV(3137) - B(16216) = RCT(10209)*V(5250) -! B(16217) = dA(10209)/dV(5250) - B(16217) = RCT(10209)*V(3137) -! B(16218) = dA(10210)/dV(4044) - B(16218) = RCT(10210)*V(5255) -! B(16219) = dA(10210)/dV(5255) - B(16219) = RCT(10210)*V(4044) -! B(16220) = dA(10211)/dV(4044) - B(16220) = RCT(10211)*V(5252) -! B(16221) = dA(10211)/dV(5252) - B(16221) = RCT(10211)*V(4044) -! B(16222) = dA(10212)/dV(4044) - B(16222) = RCT(10212)*V(5256) -! B(16223) = dA(10212)/dV(5256) - B(16223) = RCT(10212)*V(4044) -! B(16224) = dA(10213)/dV(4044) - B(16224) = RCT(10213) -! B(16225) = dA(10214)/dV(4323) - B(16225) = RCT(10214)*V(5255) -! B(16226) = dA(10214)/dV(5255) - B(16226) = RCT(10214)*V(4323) -! B(16227) = dA(10215)/dV(4323) - B(16227) = RCT(10215)*V(5252) -! B(16228) = dA(10215)/dV(5252) - B(16228) = RCT(10215)*V(4323) -! B(16229) = dA(10216)/dV(4323) - B(16229) = RCT(10216)*V(5256) -! B(16230) = dA(10216)/dV(5256) - B(16230) = RCT(10216)*V(4323) -! B(16231) = dA(10217)/dV(4323) - B(16231) = RCT(10217) -! B(16232) = dA(10218)/dV(3771) - B(16232) = RCT(10218)*V(5255) -! B(16233) = dA(10218)/dV(5255) - B(16233) = RCT(10218)*V(3771) -! B(16234) = dA(10219)/dV(3771) - B(16234) = RCT(10219)*V(5252) -! B(16235) = dA(10219)/dV(5252) - B(16235) = RCT(10219)*V(3771) -! B(16236) = dA(10220)/dV(3771) - B(16236) = RCT(10220)*V(5256) -! B(16237) = dA(10220)/dV(5256) - B(16237) = RCT(10220)*V(3771) -! B(16238) = dA(10221)/dV(3771) - B(16238) = RCT(10221) -! B(16239) = dA(10222)/dV(3771) - B(16239) = RCT(10222) -! B(16240) = dA(10223)/dV(4192) - B(16240) = RCT(10223)*V(5255) -! B(16241) = dA(10223)/dV(5255) - B(16241) = RCT(10223)*V(4192) -! B(16242) = dA(10224)/dV(4192) - B(16242) = RCT(10224)*V(5252) -! B(16243) = dA(10224)/dV(5252) - B(16243) = RCT(10224)*V(4192) -! B(16244) = dA(10225)/dV(4192) - B(16244) = RCT(10225)*V(5256) -! B(16245) = dA(10225)/dV(5256) - B(16245) = RCT(10225)*V(4192) -! B(16246) = dA(10226)/dV(4192) - B(16246) = RCT(10226) -! B(16247) = dA(10227)/dV(4317) - B(16247) = RCT(10227)*V(5255) -! B(16248) = dA(10227)/dV(5255) - B(16248) = RCT(10227)*V(4317) -! B(16249) = dA(10228)/dV(4317) - B(16249) = RCT(10228)*V(5252) -! B(16250) = dA(10228)/dV(5252) - B(16250) = RCT(10228)*V(4317) -! B(16251) = dA(10229)/dV(4317) - B(16251) = RCT(10229)*V(5256) -! B(16252) = dA(10229)/dV(5256) - B(16252) = RCT(10229)*V(4317) -! B(16253) = dA(10230)/dV(4317) - B(16253) = RCT(10230) -! B(16254) = dA(10231)/dV(1003) - B(16254) = RCT(10231)*V(5250) -! B(16255) = dA(10231)/dV(5250) - B(16255) = RCT(10231)*V(1003) -! B(16256) = dA(10232)/dV(1003) - B(16256) = RCT(10232) -! B(16257) = dA(10233)/dV(483) - B(16257) = RCT(10233)*V(5250) -! B(16258) = dA(10233)/dV(5250) - B(16258) = RCT(10233)*V(483) -! B(16259) = dA(10234)/dV(4149) - B(16259) = RCT(10234)*V(5255) -! B(16260) = dA(10234)/dV(5255) - B(16260) = RCT(10234)*V(4149) -! B(16261) = dA(10235)/dV(4149) - B(16261) = RCT(10235)*V(5252) -! B(16262) = dA(10235)/dV(5252) - B(16262) = RCT(10235)*V(4149) -! B(16263) = dA(10236)/dV(4149) - B(16263) = RCT(10236)*V(5256) -! B(16264) = dA(10236)/dV(5256) - B(16264) = RCT(10236)*V(4149) -! B(16265) = dA(10237)/dV(4149) - B(16265) = RCT(10237) -! B(16266) = dA(10238)/dV(3143) - B(16266) = RCT(10238)*V(5256) -! B(16267) = dA(10238)/dV(5256) - B(16267) = RCT(10238)*V(3143) -! B(16268) = dA(10239)/dV(3143) - B(16268) = RCT(10239)*V(5250) -! B(16269) = dA(10239)/dV(5250) - B(16269) = RCT(10239)*V(3143) -! B(16270) = dA(10240)/dV(4040) - B(16270) = RCT(10240)*V(5255) -! B(16271) = dA(10240)/dV(5255) - B(16271) = RCT(10240)*V(4040) -! B(16272) = dA(10241)/dV(4040) - B(16272) = RCT(10241)*V(5252) -! B(16273) = dA(10241)/dV(5252) - B(16273) = RCT(10241)*V(4040) -! B(16274) = dA(10242)/dV(4040) - B(16274) = RCT(10242)*V(5256) -! B(16275) = dA(10242)/dV(5256) - B(16275) = RCT(10242)*V(4040) -! B(16276) = dA(10243)/dV(4040) - B(16276) = RCT(10243) -! B(16277) = dA(10244)/dV(4153) - B(16277) = RCT(10244)*V(5255) -! B(16278) = dA(10244)/dV(5255) - B(16278) = RCT(10244)*V(4153) -! B(16279) = dA(10245)/dV(4153) - B(16279) = RCT(10245)*V(5252) -! B(16280) = dA(10245)/dV(5252) - B(16280) = RCT(10245)*V(4153) -! B(16281) = dA(10246)/dV(4153) - B(16281) = RCT(10246)*V(5256) -! B(16282) = dA(10246)/dV(5256) - B(16282) = RCT(10246)*V(4153) -! B(16283) = dA(10247)/dV(4153) - B(16283) = RCT(10247) -! B(16284) = dA(10248)/dV(3770) - B(16284) = RCT(10248)*V(5255) -! B(16285) = dA(10248)/dV(5255) - B(16285) = RCT(10248)*V(3770) -! B(16286) = dA(10249)/dV(3770) - B(16286) = RCT(10249)*V(5252) -! B(16287) = dA(10249)/dV(5252) - B(16287) = RCT(10249)*V(3770) -! B(16288) = dA(10250)/dV(3770) - B(16288) = RCT(10250)*V(5256) -! B(16289) = dA(10250)/dV(5256) - B(16289) = RCT(10250)*V(3770) -! B(16290) = dA(10251)/dV(3770) - B(16290) = RCT(10251) -! B(16291) = dA(10252)/dV(3770) - B(16291) = RCT(10252) -! B(16292) = dA(10253)/dV(3770) - B(16292) = RCT(10253) -! B(16293) = dA(10254)/dV(4210) - B(16293) = RCT(10254)*V(5255) -! B(16294) = dA(10254)/dV(5255) - B(16294) = RCT(10254)*V(4210) -! B(16295) = dA(10255)/dV(4210) - B(16295) = RCT(10255)*V(5252) -! B(16296) = dA(10255)/dV(5252) - B(16296) = RCT(10255)*V(4210) -! B(16297) = dA(10256)/dV(4210) - B(16297) = RCT(10256)*V(5256) -! B(16298) = dA(10256)/dV(5256) - B(16298) = RCT(10256)*V(4210) -! B(16299) = dA(10257)/dV(4210) - B(16299) = RCT(10257) -! B(16300) = dA(10258)/dV(4314) - B(16300) = RCT(10258)*V(5255) -! B(16301) = dA(10258)/dV(5255) - B(16301) = RCT(10258)*V(4314) -! B(16302) = dA(10259)/dV(4314) - B(16302) = RCT(10259)*V(5252) -! B(16303) = dA(10259)/dV(5252) - B(16303) = RCT(10259)*V(4314) -! B(16304) = dA(10260)/dV(4314) - B(16304) = RCT(10260)*V(5256) -! B(16305) = dA(10260)/dV(5256) - B(16305) = RCT(10260)*V(4314) -! B(16306) = dA(10261)/dV(4314) - B(16306) = RCT(10261) -! B(16307) = dA(10262)/dV(1017) - B(16307) = RCT(10262)*V(5250) -! B(16308) = dA(10262)/dV(5250) - B(16308) = RCT(10262)*V(1017) -! B(16309) = dA(10263)/dV(1017) - B(16309) = RCT(10263) -! B(16310) = dA(10264)/dV(3190) - B(16310) = RCT(10264)*V(5256) -! B(16311) = dA(10264)/dV(5256) - B(16311) = RCT(10264)*V(3190) -! B(16312) = dA(10265)/dV(3190) - B(16312) = RCT(10265)*V(5250) -! B(16313) = dA(10265)/dV(5250) - B(16313) = RCT(10265)*V(3190) -! B(16314) = dA(10266)/dV(4061) - B(16314) = RCT(10266)*V(5255) -! B(16315) = dA(10266)/dV(5255) - B(16315) = RCT(10266)*V(4061) -! B(16316) = dA(10267)/dV(4061) - B(16316) = RCT(10267)*V(5252) -! B(16317) = dA(10267)/dV(5252) - B(16317) = RCT(10267)*V(4061) -! B(16318) = dA(10268)/dV(4061) - B(16318) = RCT(10268)*V(5256) -! B(16319) = dA(10268)/dV(5256) - B(16319) = RCT(10268)*V(4061) -! B(16320) = dA(10269)/dV(4061) - B(16320) = RCT(10269) -! B(16321) = dA(10270)/dV(3680) - B(16321) = RCT(10270)*V(5255) -! B(16322) = dA(10270)/dV(5255) - B(16322) = RCT(10270)*V(3680) -! B(16323) = dA(10271)/dV(3680) - B(16323) = RCT(10271)*V(5252) -! B(16324) = dA(10271)/dV(5252) - B(16324) = RCT(10271)*V(3680) -! B(16325) = dA(10272)/dV(3680) - B(16325) = RCT(10272)*V(5256) -! B(16326) = dA(10272)/dV(5256) - B(16326) = RCT(10272)*V(3680) -! B(16327) = dA(10273)/dV(3680) - B(16327) = RCT(10273) -! B(16328) = dA(10274)/dV(3782) - B(16328) = RCT(10274)*V(5255) -! B(16329) = dA(10274)/dV(5255) - B(16329) = RCT(10274)*V(3782) -! B(16330) = dA(10275)/dV(3782) - B(16330) = RCT(10275)*V(5252) -! B(16331) = dA(10275)/dV(5252) - B(16331) = RCT(10275)*V(3782) -! B(16332) = dA(10276)/dV(3782) - B(16332) = RCT(10276)*V(5256) -! B(16333) = dA(10276)/dV(5256) - B(16333) = RCT(10276)*V(3782) -! B(16334) = dA(10277)/dV(3782) - B(16334) = RCT(10277) -! B(16335) = dA(10278)/dV(3782) - B(16335) = RCT(10278) -! B(16336) = dA(10279)/dV(4312) - B(16336) = RCT(10279)*V(5255) -! B(16337) = dA(10279)/dV(5255) - B(16337) = RCT(10279)*V(4312) -! B(16338) = dA(10280)/dV(4312) - B(16338) = RCT(10280)*V(5252) -! B(16339) = dA(10280)/dV(5252) - B(16339) = RCT(10280)*V(4312) -! B(16340) = dA(10281)/dV(4312) - B(16340) = RCT(10281)*V(5256) -! B(16341) = dA(10281)/dV(5256) - B(16341) = RCT(10281)*V(4312) -! B(16342) = dA(10282)/dV(4312) - B(16342) = RCT(10282) -! B(16343) = dA(10283)/dV(4252) - B(16343) = RCT(10283)*V(5255) -! B(16344) = dA(10283)/dV(5255) - B(16344) = RCT(10283)*V(4252) -! B(16345) = dA(10284)/dV(4252) - B(16345) = RCT(10284)*V(5252) -! B(16346) = dA(10284)/dV(5252) - B(16346) = RCT(10284)*V(4252) -! B(16347) = dA(10285)/dV(4252) - B(16347) = RCT(10285)*V(5256) -! B(16348) = dA(10285)/dV(5256) - B(16348) = RCT(10285)*V(4252) -! B(16349) = dA(10286)/dV(4252) - B(16349) = RCT(10286) -! B(16350) = dA(10287)/dV(844) - B(16350) = RCT(10287)*V(5250) -! B(16351) = dA(10287)/dV(5250) - B(16351) = RCT(10287)*V(844) -! B(16352) = dA(10288)/dV(844) - B(16352) = RCT(10288) -! B(16353) = dA(10289)/dV(1092) - B(16353) = RCT(10289)*V(5250) -! B(16354) = dA(10289)/dV(5250) - B(16354) = RCT(10289)*V(1092) -! B(16355) = dA(10290)/dV(1092) - B(16355) = RCT(10290) -! B(16356) = dA(10291)/dV(3565) - B(16356) = RCT(10291) -! B(16357) = dA(10292)/dV(3565) - B(16357) = RCT(10292) -! B(16358) = dA(10293)/dV(4534) - B(16358) = RCT(10293)*V(5250) -! B(16359) = dA(10293)/dV(5250) - B(16359) = RCT(10293)*V(4534) -! B(16360) = dA(10294)/dV(4534) - B(16360) = RCT(10294) -! B(16361) = dA(10295)/dV(4534) - B(16361) = RCT(10295) -! B(16362) = dA(10296)/dV(576) - B(16362) = RCT(10296)*V(5250) -! B(16363) = dA(10296)/dV(5250) - B(16363) = RCT(10296)*V(576) -! B(16364) = dA(10297)/dV(576) - B(16364) = RCT(10297) -! B(16365) = dA(10298)/dV(3152) - B(16365) = RCT(10298)*V(5256) -! B(16366) = dA(10298)/dV(5256) - B(16366) = RCT(10298)*V(3152) -! B(16367) = dA(10299)/dV(3152) - B(16367) = RCT(10299)*V(5250) -! B(16368) = dA(10299)/dV(5250) - B(16368) = RCT(10299)*V(3152) -! B(16369) = dA(10300)/dV(4072) - B(16369) = RCT(10300)*V(5255) -! B(16370) = dA(10300)/dV(5255) - B(16370) = RCT(10300)*V(4072) -! B(16371) = dA(10301)/dV(4072) - B(16371) = RCT(10301)*V(5252) -! B(16372) = dA(10301)/dV(5252) - B(16372) = RCT(10301)*V(4072) -! B(16373) = dA(10302)/dV(4072) - B(16373) = RCT(10302)*V(5256) -! B(16374) = dA(10302)/dV(5256) - B(16374) = RCT(10302)*V(4072) -! B(16375) = dA(10303)/dV(4072) - B(16375) = RCT(10303) -! B(16376) = dA(10304)/dV(4535) - B(16376) = RCT(10304)*V(5255) -! B(16377) = dA(10304)/dV(5255) - B(16377) = RCT(10304)*V(4535) -! B(16378) = dA(10305)/dV(4535) - B(16378) = RCT(10305)*V(5252) -! B(16379) = dA(10305)/dV(5252) - B(16379) = RCT(10305)*V(4535) -! B(16380) = dA(10306)/dV(4535) - B(16380) = RCT(10306)*V(5256) -! B(16381) = dA(10306)/dV(5256) - B(16381) = RCT(10306)*V(4535) -! B(16382) = dA(10307)/dV(4535) - B(16382) = RCT(10307) -! B(16383) = dA(10308)/dV(3753) - B(16383) = RCT(10308)*V(5255) -! B(16384) = dA(10308)/dV(5255) - B(16384) = RCT(10308)*V(3753) -! B(16385) = dA(10309)/dV(3753) - B(16385) = RCT(10309)*V(5252) -! B(16386) = dA(10309)/dV(5252) - B(16386) = RCT(10309)*V(3753) -! B(16387) = dA(10310)/dV(3753) - B(16387) = RCT(10310)*V(5256) -! B(16388) = dA(10310)/dV(5256) - B(16388) = RCT(10310)*V(3753) -! B(16389) = dA(10311)/dV(3753) - B(16389) = RCT(10311) -! B(16390) = dA(10312)/dV(3753) - B(16390) = RCT(10312) -! B(16391) = dA(10313)/dV(4297) - B(16391) = RCT(10313)*V(5255) -! B(16392) = dA(10313)/dV(5255) - B(16392) = RCT(10313)*V(4297) -! B(16393) = dA(10314)/dV(4297) - B(16393) = RCT(10314)*V(5252) -! B(16394) = dA(10314)/dV(5252) - B(16394) = RCT(10314)*V(4297) -! B(16395) = dA(10315)/dV(4297) - B(16395) = RCT(10315)*V(5256) -! B(16396) = dA(10315)/dV(5256) - B(16396) = RCT(10315)*V(4297) -! B(16397) = dA(10316)/dV(4297) - B(16397) = RCT(10316) -! B(16398) = dA(10317)/dV(4287) - B(16398) = RCT(10317)*V(5255) -! B(16399) = dA(10317)/dV(5255) - B(16399) = RCT(10317)*V(4287) -! B(16400) = dA(10318)/dV(4287) - B(16400) = RCT(10318)*V(5252) -! B(16401) = dA(10318)/dV(5252) - B(16401) = RCT(10318)*V(4287) -! B(16402) = dA(10319)/dV(4287) - B(16402) = RCT(10319)*V(5256) -! B(16403) = dA(10319)/dV(5256) - B(16403) = RCT(10319)*V(4287) -! B(16404) = dA(10320)/dV(4287) - B(16404) = RCT(10320) -! B(16405) = dA(10321)/dV(1450) - B(16405) = RCT(10321)*V(5250) -! B(16406) = dA(10321)/dV(5250) - B(16406) = RCT(10321)*V(1450) -! B(16407) = dA(10322)/dV(1450) - B(16407) = RCT(10322) -! B(16408) = dA(10323)/dV(3723) - B(16408) = RCT(10323) -! B(16409) = dA(10324)/dV(3723) - B(16409) = RCT(10324) -! B(16410) = dA(10325)/dV(3005) - B(16410) = RCT(10325)*V(5250) -! B(16411) = dA(10325)/dV(5250) - B(16411) = RCT(10325)*V(3005) -! B(16412) = dA(10326)/dV(3005) - B(16412) = RCT(10326) -! B(16413) = dA(10327)/dV(3005) - B(16413) = RCT(10327) -! B(16414) = dA(10328)/dV(3249) - B(16414) = RCT(10328)*V(5250) -! B(16415) = dA(10328)/dV(5250) - B(16415) = RCT(10328)*V(3249) -! B(16416) = dA(10329)/dV(3249) - B(16416) = RCT(10329) -! B(16417) = dA(10330)/dV(1021) - B(16417) = RCT(10330)*V(5250) -! B(16418) = dA(10330)/dV(5250) - B(16418) = RCT(10330)*V(1021) -! B(16419) = dA(10331)/dV(1021) - B(16419) = RCT(10331) -! B(16420) = dA(10332)/dV(2521) - B(16420) = RCT(10332) -! B(16421) = dA(10333)/dV(350) - B(16421) = RCT(10333)*V(5250) -! B(16422) = dA(10333)/dV(5250) - B(16422) = RCT(10333)*V(350) -! B(16423) = dA(10334)/dV(350) - B(16423) = RCT(10334) -! B(16424) = dA(10335)/dV(2267) - B(16424) = RCT(10335)*V(5250) -! B(16425) = dA(10335)/dV(5250) - B(16425) = RCT(10335)*V(2267) -! B(16426) = dA(10336)/dV(2267) - B(16426) = RCT(10336) -! B(16427) = dA(10337)/dV(550) - B(16427) = RCT(10337) -! B(16428) = dA(10338)/dV(2923) - B(16428) = RCT(10338)*V(5250) -! B(16429) = dA(10338)/dV(5250) - B(16429) = RCT(10338)*V(2923) -! B(16430) = dA(10339)/dV(2923) - B(16430) = RCT(10339)*V(5250) -! B(16431) = dA(10339)/dV(5250) - B(16431) = RCT(10339)*V(2923) -! B(16432) = dA(10340)/dV(2923) - B(16432) = RCT(10340) -! B(16433) = dA(10341)/dV(641) - B(16433) = RCT(10341) -! B(16434) = dA(10342)/dV(3434) - B(16434) = RCT(10342)*V(5250) -! B(16435) = dA(10342)/dV(5250) - B(16435) = RCT(10342)*V(3434) -! B(16436) = dA(10343)/dV(3434) - B(16436) = RCT(10343) -! B(16437) = dA(10344)/dV(513) - B(16437) = RCT(10344)*V(5250) -! B(16438) = dA(10344)/dV(5250) - B(16438) = RCT(10344)*V(513) -! B(16439) = dA(10345)/dV(1530) - B(16439) = RCT(10345)*V(5250) -! B(16440) = dA(10345)/dV(5250) - B(16440) = RCT(10345)*V(1530) -! B(16441) = dA(10346)/dV(1530) - B(16441) = RCT(10346) -! B(16442) = dA(10347)/dV(1745) - B(16442) = RCT(10347) -! B(16443) = dA(10348)/dV(39) - B(16443) = RCT(10348)*V(5250) -! B(16444) = dA(10348)/dV(5250) - B(16444) = RCT(10348)*V(39) -! B(16445) = dA(10349)/dV(2353) - B(16445) = RCT(10349)*V(5250) -! B(16446) = dA(10349)/dV(5250) - B(16446) = RCT(10349)*V(2353) -! B(16447) = dA(10350)/dV(2353) - B(16447) = RCT(10350) -! B(16448) = dA(10351)/dV(3461) - B(16448) = RCT(10351)*V(5253) -! B(16449) = dA(10351)/dV(5253) - B(16449) = RCT(10351)*V(3461) -! B(16450) = dA(10352)/dV(4134) - B(16450) = RCT(10352)*V(5255) -! B(16451) = dA(10352)/dV(5255) - B(16451) = RCT(10352)*V(4134) -! B(16452) = dA(10353)/dV(4134) - B(16452) = RCT(10353)*V(5252) -! B(16453) = dA(10353)/dV(5252) - B(16453) = RCT(10353)*V(4134) -! B(16454) = dA(10354)/dV(4134) - B(16454) = RCT(10354)*V(5256) -! B(16455) = dA(10354)/dV(5256) - B(16455) = RCT(10354)*V(4134) -! B(16456) = dA(10355)/dV(4134) - B(16456) = RCT(10355) -! B(16457) = dA(10356)/dV(3526) - B(16457) = RCT(10356) -! B(16458) = dA(10357)/dV(3526) - B(16458) = RCT(10357)*V(5256) -! B(16459) = dA(10357)/dV(5256) - B(16459) = RCT(10357)*V(3526) -! B(16460) = dA(10358)/dV(3526) - B(16460) = RCT(10358)*V(5250) -! B(16461) = dA(10358)/dV(5250) - B(16461) = RCT(10358)*V(3526) -! B(16462) = dA(10359)/dV(4209) - B(16462) = RCT(10359)*V(5255) -! B(16463) = dA(10359)/dV(5255) - B(16463) = RCT(10359)*V(4209) -! B(16464) = dA(10360)/dV(4209) - B(16464) = RCT(10360)*V(5255) -! B(16465) = dA(10360)/dV(5255) - B(16465) = RCT(10360)*V(4209) -! B(16466) = dA(10361)/dV(4209) - B(16466) = RCT(10361)*V(5252) -! B(16467) = dA(10361)/dV(5252) - B(16467) = RCT(10361)*V(4209) -! B(16468) = dA(10362)/dV(4209) - B(16468) = RCT(10362)*V(5253) -! B(16469) = dA(10362)/dV(5253) - B(16469) = RCT(10362)*V(4209) -! B(16470) = dA(10363)/dV(4209) - B(16470) = RCT(10363)*V(5256) -! B(16471) = dA(10363)/dV(5256) - B(16471) = RCT(10363)*V(4209) -! B(16472) = dA(10364)/dV(4209) - B(16472) = RCT(10364) -! B(16473) = dA(10365)/dV(494) - B(16473) = RCT(10365)*V(5250) -! B(16474) = dA(10365)/dV(5250) - B(16474) = RCT(10365)*V(494) -! B(16475) = dA(10366)/dV(494) - B(16475) = RCT(10366) -! B(16476) = dA(10367)/dV(3350) - B(16476) = RCT(10367)*V(5250) -! B(16477) = dA(10367)/dV(5250) - B(16477) = RCT(10367)*V(3350) -! B(16478) = dA(10368)/dV(3350) - B(16478) = RCT(10368) -! B(16479) = dA(10369)/dV(3154) - B(16479) = RCT(10369)*V(5250) -! B(16480) = dA(10369)/dV(5250) - B(16480) = RCT(10369)*V(3154) -! B(16481) = dA(10370)/dV(3154) - B(16481) = RCT(10370)*V(5250) -! B(16482) = dA(10370)/dV(5250) - B(16482) = RCT(10370)*V(3154) -! B(16483) = dA(10371)/dV(3154) - B(16483) = RCT(10371) -! B(16484) = dA(10372)/dV(1684) - B(16484) = RCT(10372) -! B(16485) = dA(10373)/dV(2335) - B(16485) = RCT(10373) -! B(16486) = dA(10374)/dV(2335) - B(16486) = RCT(10374)*V(5250) -! B(16487) = dA(10374)/dV(5250) - B(16487) = RCT(10374)*V(2335) -! B(16488) = dA(10375)/dV(4208) - B(16488) = RCT(10375)*V(5255) -! B(16489) = dA(10375)/dV(5255) - B(16489) = RCT(10375)*V(4208) -! B(16490) = dA(10376)/dV(4208) - B(16490) = RCT(10376)*V(5255) -! B(16491) = dA(10376)/dV(5255) - B(16491) = RCT(10376)*V(4208) -! B(16492) = dA(10377)/dV(4208) - B(16492) = RCT(10377)*V(5252) -! B(16493) = dA(10377)/dV(5252) - B(16493) = RCT(10377)*V(4208) -! B(16494) = dA(10378)/dV(4208) - B(16494) = RCT(10378)*V(5253) -! B(16495) = dA(10378)/dV(5253) - B(16495) = RCT(10378)*V(4208) -! B(16496) = dA(10379)/dV(4208) - B(16496) = RCT(10379)*V(5256) -! B(16497) = dA(10379)/dV(5256) - B(16497) = RCT(10379)*V(4208) -! B(16498) = dA(10380)/dV(4208) - B(16498) = RCT(10380) -! B(16499) = dA(10381)/dV(3470) - B(16499) = RCT(10381) -! B(16500) = dA(10382)/dV(3470) - B(16500) = RCT(10382)*V(5256) -! B(16501) = dA(10382)/dV(5256) - B(16501) = RCT(10382)*V(3470) -! B(16502) = dA(10383)/dV(3470) - B(16502) = RCT(10383)*V(5250) -! B(16503) = dA(10383)/dV(5250) - B(16503) = RCT(10383)*V(3470) -! B(16504) = dA(10384)/dV(3501) - B(16504) = RCT(10384)*V(5250) -! B(16505) = dA(10384)/dV(5250) - B(16505) = RCT(10384)*V(3501) -! B(16506) = dA(10385)/dV(3501) - B(16506) = RCT(10385)*V(5250) -! B(16507) = dA(10385)/dV(5250) - B(16507) = RCT(10385)*V(3501) -! B(16508) = dA(10386)/dV(3501) - B(16508) = RCT(10386) -! B(16509) = dA(10387)/dV(3501) - B(16509) = RCT(10387) -! B(16510) = dA(10388)/dV(3240) - B(16510) = RCT(10388)*V(5250) -! B(16511) = dA(10388)/dV(5250) - B(16511) = RCT(10388)*V(3240) -! B(16512) = dA(10389)/dV(3240) - B(16512) = RCT(10389) -! B(16513) = dA(10390)/dV(2249) - B(16513) = RCT(10390) -! B(16514) = dA(10391)/dV(386) - B(16514) = RCT(10391) -! B(16515) = dA(10392)/dV(386) - B(16515) = RCT(10392) -! B(16516) = dA(10393)/dV(4677) - B(16516) = RCT(10393)*V(5251) -! B(16517) = dA(10393)/dV(5251) - B(16517) = RCT(10393)*V(4677) -! B(16518) = dA(10394)/dV(4677) - B(16518) = RCT(10394)*V(5252) -! B(16519) = dA(10394)/dV(5252) - B(16519) = RCT(10394)*V(4677) -! B(16520) = dA(10395)/dV(4677) - B(16520) = RCT(10395)*V(5253) -! B(16521) = dA(10395)/dV(5253) - B(16521) = RCT(10395)*V(4677) -! B(16522) = dA(10396)/dV(4677) - B(16522) = RCT(10396)*V(5254) -! B(16523) = dA(10396)/dV(5254) - B(16523) = RCT(10396)*V(4677) -! B(16524) = dA(10397)/dV(4677) - B(16524) = RCT(10397) -! B(16525) = dA(10398)/dV(4677) - B(16525) = RCT(10398) -! B(16526) = dA(10399)/dV(4551) - B(16526) = RCT(10399)*V(5251) -! B(16527) = dA(10399)/dV(5251) - B(16527) = RCT(10399)*V(4551) -! B(16528) = dA(10400)/dV(4551) - B(16528) = RCT(10400)*V(5252) -! B(16529) = dA(10400)/dV(5252) - B(16529) = RCT(10400)*V(4551) -! B(16530) = dA(10401)/dV(4551) - B(16530) = RCT(10401)*V(5253) -! B(16531) = dA(10401)/dV(5253) - B(16531) = RCT(10401)*V(4551) -! B(16532) = dA(10402)/dV(4551) - B(16532) = RCT(10402)*V(5254) -! B(16533) = dA(10402)/dV(5254) - B(16533) = RCT(10402)*V(4551) -! B(16534) = dA(10403)/dV(4551) - B(16534) = RCT(10403) -! B(16535) = dA(10404)/dV(4294) - B(16535) = RCT(10404)*V(5250) -! B(16536) = dA(10404)/dV(5250) - B(16536) = RCT(10404)*V(4294) -! B(16537) = dA(10405)/dV(4294) - B(16537) = RCT(10405) -! B(16538) = dA(10406)/dV(131) - B(16538) = RCT(10406) -! B(16539) = dA(10407)/dV(4180) - B(16539) = RCT(10407)*V(5255) -! B(16540) = dA(10407)/dV(5255) - B(16540) = RCT(10407)*V(4180) -! B(16541) = dA(10408)/dV(4180) - B(16541) = RCT(10408)*V(5252) -! B(16542) = dA(10408)/dV(5252) - B(16542) = RCT(10408)*V(4180) -! B(16543) = dA(10409)/dV(4180) - B(16543) = RCT(10409)*V(5256) -! B(16544) = dA(10409)/dV(5256) - B(16544) = RCT(10409)*V(4180) -! B(16545) = dA(10410)/dV(4180) - B(16545) = RCT(10410) -! B(16546) = dA(10411)/dV(2138) - B(16546) = RCT(10411)*V(5250) -! B(16547) = dA(10411)/dV(5250) - B(16547) = RCT(10411)*V(2138) -! B(16548) = dA(10412)/dV(2616) - B(16548) = RCT(10412) -! B(16549) = dA(10413)/dV(2616) - B(16549) = RCT(10413)*V(5250) -! B(16550) = dA(10413)/dV(5250) - B(16550) = RCT(10413)*V(2616) -! B(16551) = dA(10414)/dV(3204) - B(16551) = RCT(10414) -! B(16552) = dA(10415)/dV(3204) - B(16552) = RCT(10415)*V(5250) -! B(16553) = dA(10415)/dV(5250) - B(16553) = RCT(10415)*V(3204) -! B(16554) = dA(10416)/dV(2392) - B(16554) = RCT(10416)*V(5250) -! B(16555) = dA(10416)/dV(5250) - B(16555) = RCT(10416)*V(2392) -! B(16556) = dA(10417)/dV(2392) - B(16556) = RCT(10417) -! B(16557) = dA(10418)/dV(3443) - B(16557) = RCT(10418)*V(5250) -! B(16558) = dA(10418)/dV(5250) - B(16558) = RCT(10418)*V(3443) -! B(16559) = dA(10419)/dV(3443) - B(16559) = RCT(10419) -! B(16560) = dA(10420)/dV(3064) - B(16560) = RCT(10420) -! B(16561) = dA(10421)/dV(48) - B(16561) = RCT(10421)*V(5250) -! B(16562) = dA(10421)/dV(5250) - B(16562) = RCT(10421)*V(48) -! B(16563) = dA(10422)/dV(21) - B(16563) = RCT(10422)*V(5250) -! B(16564) = dA(10422)/dV(5250) - B(16564) = RCT(10422)*V(21) -! B(16565) = dA(10423)/dV(5040) - B(16565) = RCT(10423)*V(5251) -! B(16566) = dA(10423)/dV(5251) - B(16566) = RCT(10423)*V(5040) -! B(16567) = dA(10424)/dV(5040) - B(16567) = RCT(10424)*V(5252) -! B(16568) = dA(10424)/dV(5252) - B(16568) = RCT(10424)*V(5040) -! B(16569) = dA(10425)/dV(5040) - B(16569) = RCT(10425)*V(5253) -! B(16570) = dA(10425)/dV(5253) - B(16570) = RCT(10425)*V(5040) -! B(16571) = dA(10426)/dV(5040) - B(16571) = RCT(10426)*V(5254) -! B(16572) = dA(10426)/dV(5254) - B(16572) = RCT(10426)*V(5040) -! B(16573) = dA(10427)/dV(5040) - B(16573) = RCT(10427) -! B(16574) = dA(10428)/dV(5040) - B(16574) = RCT(10428) -! B(16575) = dA(10429)/dV(3625) - B(16575) = RCT(10429)*V(5250) -! B(16576) = dA(10429)/dV(5250) - B(16576) = RCT(10429)*V(3625) -! B(16577) = dA(10430)/dV(3625) - B(16577) = RCT(10430)*V(5250) -! B(16578) = dA(10430)/dV(5250) - B(16578) = RCT(10430)*V(3625) -! B(16579) = dA(10431)/dV(3625) - B(16579) = RCT(10431)*V(5250) -! B(16580) = dA(10431)/dV(5250) - B(16580) = RCT(10431)*V(3625) -! B(16581) = dA(10432)/dV(3625) - B(16581) = RCT(10432) -! B(16582) = dA(10433)/dV(4066) - B(16582) = RCT(10433)*V(5250) -! B(16583) = dA(10433)/dV(5250) - B(16583) = RCT(10433)*V(4066) -! B(16584) = dA(10434)/dV(4066) - B(16584) = RCT(10434)*V(5250) -! B(16585) = dA(10434)/dV(5250) - B(16585) = RCT(10434)*V(4066) -! B(16586) = dA(10435)/dV(1748) - B(16586) = RCT(10435) -! B(16587) = dA(10436)/dV(3635) - B(16587) = RCT(10436)*V(5250) -! B(16588) = dA(10436)/dV(5250) - B(16588) = RCT(10436)*V(3635) -! B(16589) = dA(10437)/dV(3635) - B(16589) = RCT(10437) -! B(16590) = dA(10438)/dV(2101) - B(16590) = RCT(10438)*V(5250) -! B(16591) = dA(10438)/dV(5250) - B(16591) = RCT(10438)*V(2101) -! B(16592) = dA(10439)/dV(2101) - B(16592) = RCT(10439)*V(5250) -! B(16593) = dA(10439)/dV(5250) - B(16593) = RCT(10439)*V(2101) -! B(16594) = dA(10440)/dV(2590) - B(16594) = RCT(10440)*V(5250) -! B(16595) = dA(10440)/dV(5250) - B(16595) = RCT(10440)*V(2590) -! B(16596) = dA(10441)/dV(2590) - B(16596) = RCT(10441)*V(5250) -! B(16597) = dA(10441)/dV(5250) - B(16597) = RCT(10441)*V(2590) -! B(16598) = dA(10442)/dV(2590) - B(16598) = RCT(10442) -! B(16599) = dA(10443)/dV(261) - B(16599) = RCT(10443) -! B(16600) = dA(10444)/dV(3454) - B(16600) = RCT(10444) -! B(16601) = dA(10445)/dV(3454) - B(16601) = RCT(10445)*V(5256) -! B(16602) = dA(10445)/dV(5256) - B(16602) = RCT(10445)*V(3454) -! B(16603) = dA(10446)/dV(3454) - B(16603) = RCT(10446)*V(5250) -! B(16604) = dA(10446)/dV(5250) - B(16604) = RCT(10446)*V(3454) -! B(16605) = dA(10447)/dV(3286) - B(16605) = RCT(10447)*V(5250) -! B(16606) = dA(10447)/dV(5250) - B(16606) = RCT(10447)*V(3286) -! B(16607) = dA(10448)/dV(3286) - B(16607) = RCT(10448) -! B(16608) = dA(10449)/dV(3286) - B(16608) = RCT(10449) -! B(16609) = dA(10450)/dV(3273) - B(16609) = RCT(10450)*V(5250) -! B(16610) = dA(10450)/dV(5250) - B(16610) = RCT(10450)*V(3273) -! B(16611) = dA(10451)/dV(3273) - B(16611) = RCT(10451) -! B(16612) = dA(10452)/dV(1967) - B(16612) = RCT(10452) -! B(16613) = dA(10453)/dV(67) - B(16613) = RCT(10453) -! B(16614) = dA(10454)/dV(4982) - B(16614) = RCT(10454)*V(5255) -! B(16615) = dA(10454)/dV(5255) - B(16615) = RCT(10454)*V(4982) -! B(16616) = dA(10455)/dV(4982) - B(16616) = RCT(10455)*V(5252) -! B(16617) = dA(10455)/dV(5252) - B(16617) = RCT(10455)*V(4982) -! B(16618) = dA(10456)/dV(4982) - B(16618) = RCT(10456)*V(5256) -! B(16619) = dA(10456)/dV(5256) - B(16619) = RCT(10456)*V(4982) -! B(16620) = dA(10457)/dV(4982) - B(16620) = RCT(10457) -! B(16621) = dA(10458)/dV(3449) - B(16621) = RCT(10458)*V(5250) -! B(16622) = dA(10458)/dV(5250) - B(16622) = RCT(10458)*V(3449) -! B(16623) = dA(10459)/dV(3449) - B(16623) = RCT(10459) -! B(16624) = dA(10460)/dV(3449) - B(16624) = RCT(10460) -! B(16625) = dA(10461)/dV(1848) - B(16625) = RCT(10461) -! B(16626) = dA(10462)/dV(1242) - B(16626) = RCT(10462)*V(5250) -! B(16627) = dA(10462)/dV(5250) - B(16627) = RCT(10462)*V(1242) -! B(16628) = dA(10463)/dV(2554) - B(16628) = RCT(10463) -! B(16629) = dA(10464)/dV(2554) - B(16629) = RCT(10464)*V(5250) -! B(16630) = dA(10464)/dV(5250) - B(16630) = RCT(10464)*V(2554) -! B(16631) = dA(10465)/dV(3197) - B(16631) = RCT(10465) -! B(16632) = dA(10466)/dV(3197) - B(16632) = RCT(10466)*V(5250) -! B(16633) = dA(10466)/dV(5250) - B(16633) = RCT(10466)*V(3197) -! B(16634) = dA(10467)/dV(3201) - B(16634) = RCT(10467)*V(5250) -! B(16635) = dA(10467)/dV(5250) - B(16635) = RCT(10467)*V(3201) -! B(16636) = dA(10468)/dV(3201) - B(16636) = RCT(10468) -! B(16637) = dA(10469)/dV(1955) - B(16637) = RCT(10469) -! B(16638) = dA(10470)/dV(3549) - B(16638) = RCT(10470)*V(5250) -! B(16639) = dA(10470)/dV(5250) - B(16639) = RCT(10470)*V(3549) -! B(16640) = dA(10471)/dV(3549) - B(16640) = RCT(10471) -! B(16641) = dA(10472)/dV(2109) - B(16641) = RCT(10472) -! B(16642) = dA(10473)/dV(2109) - B(16642) = RCT(10473)*V(5250) -! B(16643) = dA(10473)/dV(5250) - B(16643) = RCT(10473)*V(2109) -! B(16644) = dA(10474)/dV(4378) - B(16644) = RCT(10474)*V(5250) -! B(16645) = dA(10474)/dV(5250) - B(16645) = RCT(10474)*V(4378) -! B(16646) = dA(10475)/dV(4378) - B(16646) = RCT(10475)*V(5250) -! B(16647) = dA(10475)/dV(5250) - B(16647) = RCT(10475)*V(4378) -! B(16648) = dA(10476)/dV(4378) - B(16648) = RCT(10476) -! B(16649) = dA(10477)/dV(2662) - B(16649) = RCT(10477) -! B(16650) = dA(10478)/dV(62) - B(16650) = RCT(10478)*V(5250) -! B(16651) = dA(10478)/dV(5250) - B(16651) = RCT(10478)*V(62) -! B(16652) = dA(10479)/dV(4247) - B(16652) = RCT(10479)*V(5251) -! B(16653) = dA(10479)/dV(5251) - B(16653) = RCT(10479)*V(4247) -! B(16654) = dA(10480)/dV(4247) - B(16654) = RCT(10480)*V(5252) -! B(16655) = dA(10480)/dV(5252) - B(16655) = RCT(10480)*V(4247) -! B(16656) = dA(10481)/dV(4247) - B(16656) = RCT(10481)*V(5253) -! B(16657) = dA(10481)/dV(5253) - B(16657) = RCT(10481)*V(4247) -! B(16658) = dA(10482)/dV(4247) - B(16658) = RCT(10482)*V(5254) -! B(16659) = dA(10482)/dV(5254) - B(16659) = RCT(10482)*V(4247) -! B(16660) = dA(10483)/dV(4247) - B(16660) = RCT(10483) -! B(16661) = dA(10484)/dV(3485) - B(16661) = RCT(10484)*V(5250) -! B(16662) = dA(10484)/dV(5250) - B(16662) = RCT(10484)*V(3485) -! B(16663) = dA(10485)/dV(3485) - B(16663) = RCT(10485)*V(5250) -! B(16664) = dA(10485)/dV(5250) - B(16664) = RCT(10485)*V(3485) -! B(16665) = dA(10486)/dV(3485) - B(16665) = RCT(10486) -! B(16666) = dA(10487)/dV(3700) - B(16666) = RCT(10487) -! B(16667) = dA(10488)/dV(3700) - B(16667) = RCT(10488) -! B(16668) = dA(10489)/dV(302) - B(16668) = RCT(10489)*V(5250) -! B(16669) = dA(10489)/dV(5250) - B(16669) = RCT(10489)*V(302) -! B(16670) = dA(10490)/dV(3550) - B(16670) = RCT(10490) -! B(16671) = dA(10491)/dV(3550) - B(16671) = RCT(10491) -! B(16672) = dA(10492)/dV(3550) - B(16672) = RCT(10492)*V(5250) -! B(16673) = dA(10492)/dV(5250) - B(16673) = RCT(10492)*V(3550) -! B(16674) = dA(10493)/dV(3550) - B(16674) = RCT(10493)*V(5250) -! B(16675) = dA(10493)/dV(5250) - B(16675) = RCT(10493)*V(3550) -! B(16676) = dA(10494)/dV(1575) - B(16676) = RCT(10494) -! B(16677) = dA(10495)/dV(1575) - B(16677) = RCT(10495)*V(5250) -! B(16678) = dA(10495)/dV(5250) - B(16678) = RCT(10495)*V(1575) -! B(16679) = dA(10496)/dV(1981) - B(16679) = RCT(10496) -! B(16680) = dA(10497)/dV(1981) - B(16680) = RCT(10497)*V(5250) -! B(16681) = dA(10497)/dV(5250) - B(16681) = RCT(10497)*V(1981) -! B(16682) = dA(10498)/dV(3160) - B(16682) = RCT(10498) -! B(16683) = dA(10499)/dV(3160) - B(16683) = RCT(10499)*V(5250) -! B(16684) = dA(10499)/dV(5250) - B(16684) = RCT(10499)*V(3160) -! B(16685) = dA(10500)/dV(3160) - B(16685) = RCT(10500)*V(5250) -! B(16686) = dA(10500)/dV(5250) - B(16686) = RCT(10500)*V(3160) -! B(16687) = dA(10501)/dV(1685) - B(16687) = RCT(10501) -! B(16688) = dA(10502)/dV(1685) - B(16688) = RCT(10502)*V(5250) -! B(16689) = dA(10502)/dV(5250) - B(16689) = RCT(10502)*V(1685) -! B(16690) = dA(10503)/dV(5167) - B(16690) = RCT(10503)*V(5255) -! B(16691) = dA(10503)/dV(5255) - B(16691) = RCT(10503)*V(5167) -! B(16692) = dA(10504)/dV(5167) - B(16692) = RCT(10504)*V(5255) -! B(16693) = dA(10504)/dV(5255) - B(16693) = RCT(10504)*V(5167) -! B(16694) = dA(10505)/dV(5167) - B(16694) = RCT(10505)*V(5255) -! B(16695) = dA(10505)/dV(5255) - B(16695) = RCT(10505)*V(5167) -! B(16696) = dA(10506)/dV(5167) - B(16696) = RCT(10506)*V(5252) -! B(16697) = dA(10506)/dV(5252) - B(16697) = RCT(10506)*V(5167) -! B(16698) = dA(10507)/dV(5167) - B(16698) = RCT(10507)*V(5253) -! B(16699) = dA(10507)/dV(5253) - B(16699) = RCT(10507)*V(5167) -! B(16700) = dA(10508)/dV(5167) - B(16700) = RCT(10508) -! B(16701) = dA(10509)/dV(5167) - B(16701) = RCT(10509) -! B(16702) = dA(10510)/dV(3621) - B(16702) = RCT(10510)*V(5250) -! B(16703) = dA(10510)/dV(5250) - B(16703) = RCT(10510)*V(3621) -! B(16704) = dA(10511)/dV(3621) - B(16704) = RCT(10511)*V(5250) -! B(16705) = dA(10511)/dV(5250) - B(16705) = RCT(10511)*V(3621) -! B(16706) = dA(10512)/dV(3621) - B(16706) = RCT(10512)*V(5250) -! B(16707) = dA(10512)/dV(5250) - B(16707) = RCT(10512)*V(3621) -! B(16708) = dA(10513)/dV(3621) - B(16708) = RCT(10513) -! B(16709) = dA(10514)/dV(2354) - B(16709) = RCT(10514)*V(5250) -! B(16710) = dA(10514)/dV(5250) - B(16710) = RCT(10514)*V(2354) -! B(16711) = dA(10515)/dV(2354) - B(16711) = RCT(10515) -! B(16712) = dA(10516)/dV(2770) - B(16712) = RCT(10516) -! B(16713) = dA(10517)/dV(2230) - B(16713) = RCT(10517)*V(5250) -! B(16714) = dA(10517)/dV(5250) - B(16714) = RCT(10517)*V(2230) -! B(16715) = dA(10518)/dV(2230) - B(16715) = RCT(10518) -! B(16716) = dA(10519)/dV(226) - B(16716) = RCT(10519)*V(5250) -! B(16717) = dA(10519)/dV(5250) - B(16717) = RCT(10519)*V(226) -! B(16718) = dA(10520)/dV(5024) - B(16718) = RCT(10520)*V(5256) -! B(16719) = dA(10520)/dV(5256) - B(16719) = RCT(10520)*V(5024) -! B(16720) = dA(10521)/dV(5024) - B(16720) = RCT(10521)*V(5258) -! B(16721) = dA(10521)/dV(5258) - B(16721) = RCT(10521)*V(5024) -! B(16722) = dA(10522)/dV(5024) - B(16722) = RCT(10522)*V(5258) -! B(16723) = dA(10522)/dV(5258) - B(16723) = RCT(10522)*V(5024) -! B(16724) = dA(10523)/dV(5024) - B(16724) = RCT(10523)*V(5250) -! B(16725) = dA(10523)/dV(5250) - B(16725) = RCT(10523)*V(5024) -! B(16726) = dA(10524)/dV(5024) - B(16726) = RCT(10524)*V(5250) -! B(16727) = dA(10524)/dV(5250) - B(16727) = RCT(10524)*V(5024) -! B(16728) = dA(10525)/dV(4613) - B(16728) = RCT(10525)*V(5255) -! B(16729) = dA(10525)/dV(5255) - B(16729) = RCT(10525)*V(4613) -! B(16730) = dA(10526)/dV(4613) - B(16730) = RCT(10526)*V(5255) -! B(16731) = dA(10526)/dV(5255) - B(16731) = RCT(10526)*V(4613) -! B(16732) = dA(10527)/dV(4613) - B(16732) = RCT(10527)*V(5252) -! B(16733) = dA(10527)/dV(5252) - B(16733) = RCT(10527)*V(4613) -! B(16734) = dA(10528)/dV(4613) - B(16734) = RCT(10528)*V(5253) -! B(16735) = dA(10528)/dV(5253) - B(16735) = RCT(10528)*V(4613) -! B(16736) = dA(10529)/dV(4613) - B(16736) = RCT(10529)*V(5256) -! B(16737) = dA(10529)/dV(5256) - B(16737) = RCT(10529)*V(4613) -! B(16738) = dA(10530)/dV(4613) - B(16738) = RCT(10530) -! B(16739) = dA(10531)/dV(4614) - B(16739) = RCT(10531)*V(5255) -! B(16740) = dA(10531)/dV(5255) - B(16740) = RCT(10531)*V(4614) -! B(16741) = dA(10532)/dV(4614) - B(16741) = RCT(10532)*V(5255) -! B(16742) = dA(10532)/dV(5255) - B(16742) = RCT(10532)*V(4614) -! B(16743) = dA(10533)/dV(4614) - B(16743) = RCT(10533)*V(5252) -! B(16744) = dA(10533)/dV(5252) - B(16744) = RCT(10533)*V(4614) -! B(16745) = dA(10534)/dV(4614) - B(16745) = RCT(10534)*V(5252) -! B(16746) = dA(10534)/dV(5252) - B(16746) = RCT(10534)*V(4614) -! B(16747) = dA(10535)/dV(4614) - B(16747) = RCT(10535)*V(5256) -! B(16748) = dA(10535)/dV(5256) - B(16748) = RCT(10535)*V(4614) -! B(16749) = dA(10536)/dV(4614) - B(16749) = RCT(10536) -! B(16750) = dA(10537)/dV(4614) - B(16750) = RCT(10537) -! B(16751) = dA(10538)/dV(4614) - B(16751) = RCT(10538) -! B(16752) = dA(10539)/dV(4211) - B(16752) = RCT(10539)*V(5255) -! B(16753) = dA(10539)/dV(5255) - B(16753) = RCT(10539)*V(4211) -! B(16754) = dA(10540)/dV(4211) - B(16754) = RCT(10540)*V(5252) -! B(16755) = dA(10540)/dV(5252) - B(16755) = RCT(10540)*V(4211) -! B(16756) = dA(10541)/dV(4211) - B(16756) = RCT(10541)*V(5256) -! B(16757) = dA(10541)/dV(5256) - B(16757) = RCT(10541)*V(4211) -! B(16758) = dA(10542)/dV(4211) - B(16758) = RCT(10542) -! B(16759) = dA(10543)/dV(2976) - B(16759) = RCT(10543)*V(5250) -! B(16760) = dA(10543)/dV(5250) - B(16760) = RCT(10543)*V(2976) -! B(16761) = dA(10544)/dV(2976) - B(16761) = RCT(10544)*V(5250) -! B(16762) = dA(10544)/dV(5250) - B(16762) = RCT(10544)*V(2976) -! B(16763) = dA(10545)/dV(2976) - B(16763) = RCT(10545) -! B(16764) = dA(10546)/dV(3128) - B(16764) = RCT(10546)*V(5250) -! B(16765) = dA(10546)/dV(5250) - B(16765) = RCT(10546)*V(3128) -! B(16766) = dA(10547)/dV(2764) - B(16766) = RCT(10547)*V(5250) -! B(16767) = dA(10547)/dV(5250) - B(16767) = RCT(10547)*V(2764) -! B(16768) = dA(10548)/dV(2764) - B(16768) = RCT(10548) -! B(16769) = dA(10549)/dV(1597) - B(16769) = RCT(10549) -! B(16770) = dA(10550)/dV(512) - B(16770) = RCT(10550)*V(5250) -! B(16771) = dA(10550)/dV(5250) - B(16771) = RCT(10550)*V(512) -! B(16772) = dA(10551)/dV(229) - B(16772) = RCT(10551)*V(5250) -! B(16773) = dA(10551)/dV(5250) - B(16773) = RCT(10551)*V(229) -! B(16774) = dA(10552)/dV(5105) - B(16774) = RCT(10552) -! B(16775) = dA(10553)/dV(5105) - B(16775) = RCT(10553) -! B(16776) = dA(10554)/dV(5105) - B(16776) = RCT(10554)*V(5256) -! B(16777) = dA(10554)/dV(5256) - B(16777) = RCT(10554)*V(5105) -! B(16778) = dA(10555)/dV(5105) - B(16778) = RCT(10555)*V(5250) -! B(16779) = dA(10555)/dV(5250) - B(16779) = RCT(10555)*V(5105) -! B(16780) = dA(10556)/dV(4106) - B(16780) = RCT(10556)*V(5255) -! B(16781) = dA(10556)/dV(5255) - B(16781) = RCT(10556)*V(4106) -! B(16782) = dA(10557)/dV(4106) - B(16782) = RCT(10557)*V(5252) -! B(16783) = dA(10557)/dV(5252) - B(16783) = RCT(10557)*V(4106) -! B(16784) = dA(10558)/dV(4106) - B(16784) = RCT(10558)*V(5256) -! B(16785) = dA(10558)/dV(5256) - B(16785) = RCT(10558)*V(4106) -! B(16786) = dA(10559)/dV(4106) - B(16786) = RCT(10559) -! B(16787) = dA(10560)/dV(4348) - B(16787) = RCT(10560)*V(5255) -! B(16788) = dA(10560)/dV(5255) - B(16788) = RCT(10560)*V(4348) -! B(16789) = dA(10561)/dV(4348) - B(16789) = RCT(10561)*V(5252) -! B(16790) = dA(10561)/dV(5252) - B(16790) = RCT(10561)*V(4348) -! B(16791) = dA(10562)/dV(4348) - B(16791) = RCT(10562)*V(5252) -! B(16792) = dA(10562)/dV(5252) - B(16792) = RCT(10562)*V(4348) -! B(16793) = dA(10563)/dV(4348) - B(16793) = RCT(10563)*V(5256) -! B(16794) = dA(10563)/dV(5256) - B(16794) = RCT(10563)*V(4348) -! B(16795) = dA(10564)/dV(4348) - B(16795) = RCT(10564) -! B(16796) = dA(10565)/dV(4348) - B(16796) = RCT(10565) -! B(16797) = dA(10566)/dV(4348) - B(16797) = RCT(10566) -! B(16798) = dA(10567)/dV(77) - B(16798) = RCT(10567)*V(5250) -! B(16799) = dA(10567)/dV(5250) - B(16799) = RCT(10567)*V(77) -! B(16800) = dA(10568)/dV(5079) - B(16800) = RCT(10568)*V(5255) -! B(16801) = dA(10568)/dV(5255) - B(16801) = RCT(10568)*V(5079) -! B(16802) = dA(10569)/dV(5079) - B(16802) = RCT(10569)*V(5255) -! B(16803) = dA(10569)/dV(5255) - B(16803) = RCT(10569)*V(5079) -! B(16804) = dA(10570)/dV(5079) - B(16804) = RCT(10570)*V(5255) -! B(16805) = dA(10570)/dV(5255) - B(16805) = RCT(10570)*V(5079) -! B(16806) = dA(10571)/dV(5079) - B(16806) = RCT(10571)*V(5252) -! B(16807) = dA(10571)/dV(5252) - B(16807) = RCT(10571)*V(5079) -! B(16808) = dA(10572)/dV(5079) - B(16808) = RCT(10572)*V(5253) -! B(16809) = dA(10572)/dV(5253) - B(16809) = RCT(10572)*V(5079) -! B(16810) = dA(10573)/dV(5079) - B(16810) = RCT(10573)*V(5256) -! B(16811) = dA(10573)/dV(5256) - B(16811) = RCT(10573)*V(5079) -! B(16812) = dA(10574)/dV(5079) - B(16812) = RCT(10574) -! B(16813) = dA(10575)/dV(5079) - B(16813) = RCT(10575) -! B(16814) = dA(10576)/dV(4926) - B(16814) = RCT(10576)*V(5255) -! B(16815) = dA(10576)/dV(5255) - B(16815) = RCT(10576)*V(4926) -! B(16816) = dA(10577)/dV(4926) - B(16816) = RCT(10577)*V(5255) -! B(16817) = dA(10577)/dV(5255) - B(16817) = RCT(10577)*V(4926) -! B(16818) = dA(10578)/dV(4926) - B(16818) = RCT(10578)*V(5255) -! B(16819) = dA(10578)/dV(5255) - B(16819) = RCT(10578)*V(4926) -! B(16820) = dA(10579)/dV(4926) - B(16820) = RCT(10579)*V(5252) -! B(16821) = dA(10579)/dV(5252) - B(16821) = RCT(10579)*V(4926) -! B(16822) = dA(10580)/dV(4926) - B(16822) = RCT(10580)*V(5253) -! B(16823) = dA(10580)/dV(5253) - B(16823) = RCT(10580)*V(4926) -! B(16824) = dA(10581)/dV(4926) - B(16824) = RCT(10581)*V(5256) -! B(16825) = dA(10581)/dV(5256) - B(16825) = RCT(10581)*V(4926) -! B(16826) = dA(10582)/dV(4926) - B(16826) = RCT(10582) -! B(16827) = dA(10583)/dV(4926) - B(16827) = RCT(10583) -! B(16828) = dA(10584)/dV(4552) - B(16828) = RCT(10584)*V(5255) -! B(16829) = dA(10584)/dV(5255) - B(16829) = RCT(10584)*V(4552) -! B(16830) = dA(10585)/dV(4552) - B(16830) = RCT(10585)*V(5252) -! B(16831) = dA(10585)/dV(5252) - B(16831) = RCT(10585)*V(4552) -! B(16832) = dA(10586)/dV(4552) - B(16832) = RCT(10586)*V(5256) -! B(16833) = dA(10586)/dV(5256) - B(16833) = RCT(10586)*V(4552) -! B(16834) = dA(10587)/dV(4552) - B(16834) = RCT(10587) -! B(16835) = dA(10588)/dV(4768) - B(16835) = RCT(10588)*V(5255) -! B(16836) = dA(10588)/dV(5255) - B(16836) = RCT(10588)*V(4768) -! B(16837) = dA(10589)/dV(4768) - B(16837) = RCT(10589)*V(5252) -! B(16838) = dA(10589)/dV(5252) - B(16838) = RCT(10589)*V(4768) -! B(16839) = dA(10590)/dV(4768) - B(16839) = RCT(10590)*V(5256) -! B(16840) = dA(10590)/dV(5256) - B(16840) = RCT(10590)*V(4768) -! B(16841) = dA(10591)/dV(4768) - B(16841) = RCT(10591) -! B(16842) = dA(10592)/dV(5214) - B(16842) = RCT(10592)*V(5255) -! B(16843) = dA(10592)/dV(5255) - B(16843) = RCT(10592)*V(5214) -! B(16844) = dA(10593)/dV(5214) - B(16844) = RCT(10593)*V(5255) -! B(16845) = dA(10593)/dV(5255) - B(16845) = RCT(10593)*V(5214) -! B(16846) = dA(10594)/dV(5214) - B(16846) = RCT(10594)*V(5255) -! B(16847) = dA(10594)/dV(5255) - B(16847) = RCT(10594)*V(5214) -! B(16848) = dA(10595)/dV(5214) - B(16848) = RCT(10595)*V(5252) -! B(16849) = dA(10595)/dV(5252) - B(16849) = RCT(10595)*V(5214) -! B(16850) = dA(10596)/dV(5214) - B(16850) = RCT(10596)*V(5253) -! B(16851) = dA(10596)/dV(5253) - B(16851) = RCT(10596)*V(5214) -! B(16852) = dA(10597)/dV(5214) - B(16852) = RCT(10597)*V(5256) -! B(16853) = dA(10597)/dV(5256) - B(16853) = RCT(10597)*V(5214) -! B(16854) = dA(10598)/dV(5214) - B(16854) = RCT(10598) -! B(16855) = dA(10599)/dV(5214) - B(16855) = RCT(10599) -! B(16856) = dA(10600)/dV(3954) - B(16856) = RCT(10600)*V(5255) -! B(16857) = dA(10600)/dV(5255) - B(16857) = RCT(10600)*V(3954) -! B(16858) = dA(10601)/dV(3954) - B(16858) = RCT(10601)*V(5252) -! B(16859) = dA(10601)/dV(5252) - B(16859) = RCT(10601)*V(3954) -! B(16860) = dA(10602)/dV(3954) - B(16860) = RCT(10602)*V(5256) -! B(16861) = dA(10602)/dV(5256) - B(16861) = RCT(10602)*V(3954) -! B(16862) = dA(10603)/dV(3954) - B(16862) = RCT(10603) -! B(16863) = dA(10604)/dV(3717) - B(16863) = RCT(10604)*V(5255) -! B(16864) = dA(10604)/dV(5255) - B(16864) = RCT(10604)*V(3717) -! B(16865) = dA(10605)/dV(3717) - B(16865) = RCT(10605)*V(5252) -! B(16866) = dA(10605)/dV(5252) - B(16866) = RCT(10605)*V(3717) -! B(16867) = dA(10606)/dV(3717) - B(16867) = RCT(10606)*V(5256) -! B(16868) = dA(10606)/dV(5256) - B(16868) = RCT(10606)*V(3717) -! B(16869) = dA(10607)/dV(3717) - B(16869) = RCT(10607) -! B(16870) = dA(10608)/dV(931) - B(16870) = RCT(10608)*V(5250) -! B(16871) = dA(10608)/dV(5250) - B(16871) = RCT(10608)*V(931) -! B(16872) = dA(10609)/dV(931) - B(16872) = RCT(10609) -! B(16873) = dA(10610)/dV(2892) - B(16873) = RCT(10610)*V(5250) -! B(16874) = dA(10610)/dV(5250) - B(16874) = RCT(10610)*V(2892) -! B(16875) = dA(10611)/dV(2892) - B(16875) = RCT(10611) -! B(16876) = dA(10612)/dV(450) - B(16876) = RCT(10612) -! B(16877) = dA(10613)/dV(366) - B(16877) = RCT(10613)*V(5250) -! B(16878) = dA(10613)/dV(5250) - B(16878) = RCT(10613)*V(366) -! B(16879) = dA(10614)/dV(366) - B(16879) = RCT(10614) -! B(16880) = dA(10615)/dV(3905) - B(16880) = RCT(10615)*V(5255) -! B(16881) = dA(10615)/dV(5255) - B(16881) = RCT(10615)*V(3905) -! B(16882) = dA(10616)/dV(3905) - B(16882) = RCT(10616)*V(5252) -! B(16883) = dA(10616)/dV(5252) - B(16883) = RCT(10616)*V(3905) -! B(16884) = dA(10617)/dV(3905) - B(16884) = RCT(10617)*V(5256) -! B(16885) = dA(10617)/dV(5256) - B(16885) = RCT(10617)*V(3905) -! B(16886) = dA(10618)/dV(3905) - B(16886) = RCT(10618) -! B(16887) = dA(10619)/dV(1353) - B(16887) = RCT(10619)*V(5250) -! B(16888) = dA(10619)/dV(5250) - B(16888) = RCT(10619)*V(1353) -! B(16889) = dA(10620)/dV(1353) - B(16889) = RCT(10620) -! B(16890) = dA(10621)/dV(2742) - B(16890) = RCT(10621)*V(5250) -! B(16891) = dA(10621)/dV(5250) - B(16891) = RCT(10621)*V(2742) -! B(16892) = dA(10622)/dV(2742) - B(16892) = RCT(10622) -! B(16893) = dA(10623)/dV(2452) - B(16893) = RCT(10623) -! B(16894) = dA(10624)/dV(354) - B(16894) = RCT(10624)*V(5250) -! B(16895) = dA(10624)/dV(5250) - B(16895) = RCT(10624)*V(354) -! B(16896) = dA(10625)/dV(354) - B(16896) = RCT(10625) -! B(16897) = dA(10626)/dV(1608) - B(16897) = RCT(10626) -! B(16898) = dA(10627)/dV(1608) - B(16898) = RCT(10627) -! B(16899) = dA(10628)/dV(1489) - B(16899) = RCT(10628)*V(5250) -! B(16900) = dA(10628)/dV(5250) - B(16900) = RCT(10628)*V(1489) -! B(16901) = dA(10629)/dV(1489) - B(16901) = RCT(10629) -! B(16902) = dA(10630)/dV(864) - B(16902) = RCT(10630)*V(5250) -! B(16903) = dA(10630)/dV(5250) - B(16903) = RCT(10630)*V(864) -! B(16904) = dA(10631)/dV(864) - B(16904) = RCT(10631) -! B(16905) = dA(10632)/dV(3223) - B(16905) = RCT(10632)*V(5250) -! B(16906) = dA(10632)/dV(5250) - B(16906) = RCT(10632)*V(3223) -! B(16907) = dA(10633)/dV(3223) - B(16907) = RCT(10633) -! B(16908) = dA(10634)/dV(1437) - B(16908) = RCT(10634)*V(5250) -! B(16909) = dA(10634)/dV(5250) - B(16909) = RCT(10634)*V(1437) -! B(16910) = dA(10635)/dV(1437) - B(16910) = RCT(10635) -! B(16911) = dA(10636)/dV(990) - B(16911) = RCT(10636)*V(5250) -! B(16912) = dA(10636)/dV(5250) - B(16912) = RCT(10636)*V(990) -! B(16913) = dA(10637)/dV(990) - B(16913) = RCT(10637) -! B(16914) = dA(10638)/dV(2850) - B(16914) = RCT(10638)*V(5250) -! B(16915) = dA(10638)/dV(5250) - B(16915) = RCT(10638)*V(2850) -! B(16916) = dA(10639)/dV(2850) - B(16916) = RCT(10639) -! B(16917) = dA(10640)/dV(1383) - B(16917) = RCT(10640)*V(5250) -! B(16918) = dA(10640)/dV(5250) - B(16918) = RCT(10640)*V(1383) -! B(16919) = dA(10641)/dV(1383) - B(16919) = RCT(10641) -! B(16920) = dA(10642)/dV(146) - B(16920) = RCT(10642) -! B(16921) = dA(10643)/dV(1324) - B(16921) = RCT(10643)*V(5250) -! B(16922) = dA(10643)/dV(5250) - B(16922) = RCT(10643)*V(1324) -! B(16923) = dA(10644)/dV(1324) - B(16923) = RCT(10644) -! B(16924) = dA(10645)/dV(300) - B(16924) = RCT(10645) -! B(16925) = dA(10646)/dV(454) - B(16925) = RCT(10646)*V(5250) -! B(16926) = dA(10646)/dV(5250) - B(16926) = RCT(10646)*V(454) -! B(16927) = dA(10647)/dV(454) - B(16927) = RCT(10647) -! B(16928) = dA(10648)/dV(919) - B(16928) = RCT(10648)*V(5250) -! B(16929) = dA(10648)/dV(5250) - B(16929) = RCT(10648)*V(919) -! B(16930) = dA(10649)/dV(919) - B(16930) = RCT(10649) -! B(16931) = dA(10650)/dV(3307) - B(16931) = RCT(10650)*V(5250) -! B(16932) = dA(10650)/dV(5250) - B(16932) = RCT(10650)*V(3307) -! B(16933) = dA(10651)/dV(3307) - B(16933) = RCT(10651) -! B(16934) = dA(10652)/dV(2143) - B(16934) = RCT(10652)*V(5250) -! B(16935) = dA(10652)/dV(5250) - B(16935) = RCT(10652)*V(2143) -! B(16936) = dA(10653)/dV(2143) - B(16936) = RCT(10653) -! B(16937) = dA(10654)/dV(138) - B(16937) = RCT(10654) -! B(16938) = dA(10655)/dV(1147) - B(16938) = RCT(10655)*V(5250) -! B(16939) = dA(10655)/dV(5250) - B(16939) = RCT(10655)*V(1147) -! B(16940) = dA(10656)/dV(1147) - B(16940) = RCT(10656) -! B(16941) = dA(10657)/dV(1311) - B(16941) = RCT(10657)*V(5250) -! B(16942) = dA(10657)/dV(5250) - B(16942) = RCT(10657)*V(1311) -! B(16943) = dA(10658)/dV(1572) - B(16943) = RCT(10658) -! B(16944) = dA(10659)/dV(24) - B(16944) = RCT(10659)*V(5250) -! B(16945) = dA(10659)/dV(5250) - B(16945) = RCT(10659)*V(24) -! B(16946) = dA(10660)/dV(1197) - B(16946) = RCT(10660)*V(5250) -! B(16947) = dA(10660)/dV(5250) - B(16947) = RCT(10660)*V(1197) -! B(16948) = dA(10661)/dV(1197) - B(16948) = RCT(10661) -! B(16949) = dA(10662)/dV(3081) - B(16949) = RCT(10662)*V(5250) -! B(16950) = dA(10662)/dV(5250) - B(16950) = RCT(10662)*V(3081) -! B(16951) = dA(10663)/dV(3081) - B(16951) = RCT(10663) -! B(16952) = dA(10664)/dV(407) - B(16952) = RCT(10664) -! B(16953) = dA(10665)/dV(365) - B(16953) = RCT(10665)*V(5250) -! B(16954) = dA(10665)/dV(5250) - B(16954) = RCT(10665)*V(365) -! B(16955) = dA(10666)/dV(365) - B(16955) = RCT(10666) -! B(16956) = dA(10667)/dV(562) - B(16956) = RCT(10667)*V(5250) -! B(16957) = dA(10667)/dV(5250) - B(16957) = RCT(10667)*V(562) -! B(16958) = dA(10668)/dV(562) - B(16958) = RCT(10668) -! B(16959) = dA(10669)/dV(1284) - B(16959) = RCT(10669)*V(5250) -! B(16960) = dA(10669)/dV(5250) - B(16960) = RCT(10669)*V(1284) -! B(16961) = dA(10670)/dV(1284) - B(16961) = RCT(10670) -! B(16962) = dA(10671)/dV(201) - B(16962) = RCT(10671) -! B(16963) = dA(10672)/dV(561) - B(16963) = RCT(10672)*V(5250) -! B(16964) = dA(10672)/dV(5250) - B(16964) = RCT(10672)*V(561) -! B(16965) = dA(10673)/dV(303) - B(16965) = RCT(10673)*V(5250) -! B(16966) = dA(10673)/dV(5250) - B(16966) = RCT(10673)*V(303) -! B(16967) = dA(10674)/dV(1492) - B(16967) = RCT(10674)*V(5250) -! B(16968) = dA(10674)/dV(5250) - B(16968) = RCT(10674)*V(1492) -! B(16969) = dA(10675)/dV(1492) - B(16969) = RCT(10675) -! B(16970) = dA(10676)/dV(1933) - B(16970) = RCT(10676)*V(5250) -! B(16971) = dA(10676)/dV(5250) - B(16971) = RCT(10676)*V(1933) -! B(16972) = dA(10677)/dV(1933) - B(16972) = RCT(10677) -! B(16973) = dA(10678)/dV(2722) - B(16973) = RCT(10678) -! B(16974) = dA(10679)/dV(2722) - B(16974) = RCT(10679) -! B(16975) = dA(10680)/dV(3947) - B(16975) = RCT(10680)*V(5256) -! B(16976) = dA(10680)/dV(5256) - B(16976) = RCT(10680)*V(3947) -! B(16977) = dA(10681)/dV(3947) - B(16977) = RCT(10681)*V(5250) -! B(16978) = dA(10681)/dV(5250) - B(16978) = RCT(10681)*V(3947) -! B(16979) = dA(10682)/dV(3947) - B(16979) = RCT(10682) -! B(16980) = dA(10683)/dV(427) - B(16980) = RCT(10683)*V(5250) -! B(16981) = dA(10683)/dV(5250) - B(16981) = RCT(10683)*V(427) -! B(16982) = dA(10684)/dV(4664) - B(16982) = RCT(10684)*V(5255) -! B(16983) = dA(10684)/dV(5255) - B(16983) = RCT(10684)*V(4664) -! B(16984) = dA(10685)/dV(4664) - B(16984) = RCT(10685)*V(5255) -! B(16985) = dA(10685)/dV(5255) - B(16985) = RCT(10685)*V(4664) -! B(16986) = dA(10686)/dV(4664) - B(16986) = RCT(10686)*V(5255) -! B(16987) = dA(10686)/dV(5255) - B(16987) = RCT(10686)*V(4664) -! B(16988) = dA(10687)/dV(4664) - B(16988) = RCT(10687)*V(5252) -! B(16989) = dA(10687)/dV(5252) - B(16989) = RCT(10687)*V(4664) -! B(16990) = dA(10688)/dV(4664) - B(16990) = RCT(10688)*V(5253) -! B(16991) = dA(10688)/dV(5253) - B(16991) = RCT(10688)*V(4664) -! B(16992) = dA(10689)/dV(4664) - B(16992) = RCT(10689)*V(5256) -! B(16993) = dA(10689)/dV(5256) - B(16993) = RCT(10689)*V(4664) -! B(16994) = dA(10690)/dV(4664) - B(16994) = RCT(10690) -! B(16995) = dA(10691)/dV(4664) - B(16995) = RCT(10691) -! B(16996) = dA(10692)/dV(1266) - B(16996) = RCT(10692)*V(5250) -! B(16997) = dA(10692)/dV(5250) - B(16997) = RCT(10692)*V(1266) -! B(16998) = dA(10693)/dV(1266) - B(16998) = RCT(10693) -! B(16999) = dA(10694)/dV(2943) - B(16999) = RCT(10694)*V(5250) -! B(17000) = dA(10694)/dV(5250) - B(17000) = RCT(10694)*V(2943) -! B(17001) = dA(10695)/dV(2943) - B(17001) = RCT(10695) -! B(17002) = dA(10696)/dV(2207) - B(17002) = RCT(10696) -! B(17003) = dA(10697)/dV(79) - B(17003) = RCT(10697)*V(5250) -! B(17004) = dA(10697)/dV(5250) - B(17004) = RCT(10697)*V(79) -! B(17005) = dA(10698)/dV(4545) - B(17005) = RCT(10698)*V(5255) -! B(17006) = dA(10698)/dV(5255) - B(17006) = RCT(10698)*V(4545) -! B(17007) = dA(10699)/dV(4545) - B(17007) = RCT(10699)*V(5252) -! B(17008) = dA(10699)/dV(5252) - B(17008) = RCT(10699)*V(4545) -! B(17009) = dA(10700)/dV(4545) - B(17009) = RCT(10700)*V(5252) -! B(17010) = dA(10700)/dV(5252) - B(17010) = RCT(10700)*V(4545) -! B(17011) = dA(10701)/dV(4545) - B(17011) = RCT(10701)*V(5256) -! B(17012) = dA(10701)/dV(5256) - B(17012) = RCT(10701)*V(4545) -! B(17013) = dA(10702)/dV(4545) - B(17013) = RCT(10702) -! B(17014) = dA(10703)/dV(4545) - B(17014) = RCT(10703) -! B(17015) = dA(10704)/dV(1517) - B(17015) = RCT(10704)*V(5250) -! B(17016) = dA(10704)/dV(5250) - B(17016) = RCT(10704)*V(1517) -! B(17017) = dA(10705)/dV(1517) - B(17017) = RCT(10705) -! B(17018) = dA(10706)/dV(2962) - B(17018) = RCT(10706) -! B(17019) = dA(10707)/dV(587) - B(17019) = RCT(10707)*V(5250) -! B(17020) = dA(10707)/dV(5250) - B(17020) = RCT(10707)*V(587) -! B(17021) = dA(10708)/dV(4987) - B(17021) = RCT(10708)*V(5255) -! B(17022) = dA(10708)/dV(5255) - B(17022) = RCT(10708)*V(4987) -! B(17023) = dA(10709)/dV(4987) - B(17023) = RCT(10709)*V(5252) -! B(17024) = dA(10709)/dV(5252) - B(17024) = RCT(10709)*V(4987) -! B(17025) = dA(10710)/dV(4987) - B(17025) = RCT(10710)*V(5256) -! B(17026) = dA(10710)/dV(5256) - B(17026) = RCT(10710)*V(4987) -! B(17027) = dA(10711)/dV(4987) - B(17027) = RCT(10711) -! B(17028) = dA(10712)/dV(4987) - B(17028) = RCT(10712) -! B(17029) = dA(10713)/dV(4849) - B(17029) = RCT(10713)*V(5255) -! B(17030) = dA(10713)/dV(5255) - B(17030) = RCT(10713)*V(4849) -! B(17031) = dA(10714)/dV(4849) - B(17031) = RCT(10714)*V(5255) -! B(17032) = dA(10714)/dV(5255) - B(17032) = RCT(10714)*V(4849) -! B(17033) = dA(10715)/dV(4849) - B(17033) = RCT(10715)*V(5255) -! B(17034) = dA(10715)/dV(5255) - B(17034) = RCT(10715)*V(4849) -! B(17035) = dA(10716)/dV(4849) - B(17035) = RCT(10716)*V(5252) -! B(17036) = dA(10716)/dV(5252) - B(17036) = RCT(10716)*V(4849) -! B(17037) = dA(10717)/dV(4849) - B(17037) = RCT(10717)*V(5253) -! B(17038) = dA(10717)/dV(5253) - B(17038) = RCT(10717)*V(4849) -! B(17039) = dA(10718)/dV(4849) - B(17039) = RCT(10718)*V(5256) -! B(17040) = dA(10718)/dV(5256) - B(17040) = RCT(10718)*V(4849) -! B(17041) = dA(10719)/dV(4849) - B(17041) = RCT(10719) -! B(17042) = dA(10720)/dV(4849) - B(17042) = RCT(10720) -! B(17043) = dA(10721)/dV(5196) - B(17043) = RCT(10721)*V(5255) -! B(17044) = dA(10721)/dV(5255) - B(17044) = RCT(10721)*V(5196) -! B(17045) = dA(10722)/dV(5196) - B(17045) = RCT(10722)*V(5252) -! B(17046) = dA(10722)/dV(5252) - B(17046) = RCT(10722)*V(5196) -! B(17047) = dA(10723)/dV(5196) - B(17047) = RCT(10723)*V(5252) -! B(17048) = dA(10723)/dV(5252) - B(17048) = RCT(10723)*V(5196) -! B(17049) = dA(10724)/dV(5196) - B(17049) = RCT(10724)*V(5256) -! B(17050) = dA(10724)/dV(5256) - B(17050) = RCT(10724)*V(5196) -! B(17051) = dA(10725)/dV(5196) - B(17051) = RCT(10725) -! B(17052) = dA(10726)/dV(5196) - B(17052) = RCT(10726) -! B(17053) = dA(10727)/dV(5196) - B(17053) = RCT(10727) -! B(17054) = dA(10728)/dV(1371) - B(17054) = RCT(10728)*V(5250) -! B(17055) = dA(10728)/dV(5250) - B(17055) = RCT(10728)*V(1371) -! B(17056) = dA(10729)/dV(1371) - B(17056) = RCT(10729) -! B(17057) = dA(10730)/dV(1835) - B(17057) = RCT(10730)*V(5250) -! B(17058) = dA(10730)/dV(5250) - B(17058) = RCT(10730)*V(1835) -! B(17059) = dA(10731)/dV(2997) - B(17059) = RCT(10731) -! B(17060) = dA(10732)/dV(556) - B(17060) = RCT(10732)*V(5250) -! B(17061) = dA(10732)/dV(5250) - B(17061) = RCT(10732)*V(556) -! B(17062) = dA(10733)/dV(3840) - B(17062) = RCT(10733)*V(5255) -! B(17063) = dA(10733)/dV(5255) - B(17063) = RCT(10733)*V(3840) -! B(17064) = dA(10734)/dV(3840) - B(17064) = RCT(10734)*V(5252) -! B(17065) = dA(10734)/dV(5252) - B(17065) = RCT(10734)*V(3840) -! B(17066) = dA(10735)/dV(3840) - B(17066) = RCT(10735)*V(5256) -! B(17067) = dA(10735)/dV(5256) - B(17067) = RCT(10735)*V(3840) -! B(17068) = dA(10736)/dV(3840) - B(17068) = RCT(10736) -! B(17069) = dA(10737)/dV(3840) - B(17069) = RCT(10737) -! B(17070) = dA(10738)/dV(4842) - B(17070) = RCT(10738)*V(5256) -! B(17071) = dA(10738)/dV(5256) - B(17071) = RCT(10738)*V(4842) -! B(17072) = dA(10739)/dV(4842) - B(17072) = RCT(10739)*V(5250) -! B(17073) = dA(10739)/dV(5250) - B(17073) = RCT(10739)*V(4842) -! B(17074) = dA(10740)/dV(4842) - B(17074) = RCT(10740) -! B(17075) = dA(10741)/dV(27) - B(17075) = RCT(10741) -! B(17076) = dA(10742)/dV(3985) - B(17076) = RCT(10742)*V(5255) -! B(17077) = dA(10742)/dV(5255) - B(17077) = RCT(10742)*V(3985) -! B(17078) = dA(10743)/dV(3985) - B(17078) = RCT(10743)*V(5252) -! B(17079) = dA(10743)/dV(5252) - B(17079) = RCT(10743)*V(3985) -! B(17080) = dA(10744)/dV(3985) - B(17080) = RCT(10744)*V(5252) -! B(17081) = dA(10744)/dV(5252) - B(17081) = RCT(10744)*V(3985) -! B(17082) = dA(10745)/dV(3985) - B(17082) = RCT(10745)*V(5256) -! B(17083) = dA(10745)/dV(5256) - B(17083) = RCT(10745)*V(3985) -! B(17084) = dA(10746)/dV(3985) - B(17084) = RCT(10746) -! B(17085) = dA(10747)/dV(3985) - B(17085) = RCT(10747) -! B(17086) = dA(10748)/dV(4197) - B(17086) = RCT(10748)*V(5255) -! B(17087) = dA(10748)/dV(5255) - B(17087) = RCT(10748)*V(4197) -! B(17088) = dA(10749)/dV(4197) - B(17088) = RCT(10749)*V(5252) -! B(17089) = dA(10749)/dV(5252) - B(17089) = RCT(10749)*V(4197) -! B(17090) = dA(10750)/dV(4197) - B(17090) = RCT(10750)*V(5252) -! B(17091) = dA(10750)/dV(5252) - B(17091) = RCT(10750)*V(4197) -! B(17092) = dA(10751)/dV(4197) - B(17092) = RCT(10751)*V(5256) -! B(17093) = dA(10751)/dV(5256) - B(17093) = RCT(10751)*V(4197) -! B(17094) = dA(10752)/dV(4197) - B(17094) = RCT(10752) -! B(17095) = dA(10753)/dV(4197) - B(17095) = RCT(10753) -! B(17096) = dA(10754)/dV(1087) - B(17096) = RCT(10754)*V(5250) -! B(17097) = dA(10754)/dV(5250) - B(17097) = RCT(10754)*V(1087) -! B(17098) = dA(10755)/dV(1087) - B(17098) = RCT(10755) -! B(17099) = dA(10756)/dV(1047) - B(17099) = RCT(10756)*V(5250) -! B(17100) = dA(10756)/dV(5250) - B(17100) = RCT(10756)*V(1047) -! B(17101) = dA(10757)/dV(1047) - B(17101) = RCT(10757) -! B(17102) = dA(10758)/dV(2879) - B(17102) = RCT(10758)*V(5250) -! B(17103) = dA(10758)/dV(5250) - B(17103) = RCT(10758)*V(2879) -! B(17104) = dA(10759)/dV(2879) - B(17104) = RCT(10759) -! B(17105) = dA(10760)/dV(1605) - B(17105) = RCT(10760) -! B(17106) = dA(10761)/dV(1605) - B(17106) = RCT(10761) -! B(17107) = dA(10762)/dV(457) - B(17107) = RCT(10762)*V(5250) -! B(17108) = dA(10762)/dV(5250) - B(17108) = RCT(10762)*V(457) -! B(17109) = dA(10763)/dV(1325) - B(17109) = RCT(10763)*V(5250) -! B(17110) = dA(10763)/dV(5250) - B(17110) = RCT(10763)*V(1325) -! B(17111) = dA(10764)/dV(1325) - B(17111) = RCT(10764) -! B(17112) = dA(10765)/dV(2958) - B(17112) = RCT(10765)*V(5250) -! B(17113) = dA(10765)/dV(5250) - B(17113) = RCT(10765)*V(2958) -! B(17114) = dA(10766)/dV(2958) - B(17114) = RCT(10766) -! B(17115) = dA(10767)/dV(2071) - B(17115) = RCT(10767)*V(5250) -! B(17116) = dA(10767)/dV(5250) - B(17116) = RCT(10767)*V(2071) -! B(17117) = dA(10768)/dV(2071) - B(17117) = RCT(10768) -! B(17118) = dA(10769)/dV(728) - B(17118) = RCT(10769) -! B(17119) = dA(10770)/dV(2273) - B(17119) = RCT(10770)*V(5250) -! B(17120) = dA(10770)/dV(5250) - B(17120) = RCT(10770)*V(2273) -! B(17121) = dA(10771)/dV(2273) - B(17121) = RCT(10771) -! B(17122) = dA(10772)/dV(219) - B(17122) = RCT(10772)*V(5250) -! B(17123) = dA(10772)/dV(5250) - B(17123) = RCT(10772)*V(219) -! B(17124) = dA(10773)/dV(1447) - B(17124) = RCT(10773)*V(5250) -! B(17125) = dA(10773)/dV(5250) - B(17125) = RCT(10773)*V(1447) -! B(17126) = dA(10774)/dV(1447) - B(17126) = RCT(10774) -! B(17127) = dA(10775)/dV(2947) - B(17127) = RCT(10775)*V(5250) -! B(17128) = dA(10775)/dV(5250) - B(17128) = RCT(10775)*V(2947) -! B(17129) = dA(10776)/dV(2947) - B(17129) = RCT(10776) -! B(17130) = dA(10777)/dV(1487) - B(17130) = RCT(10777)*V(5250) -! B(17131) = dA(10777)/dV(5250) - B(17131) = RCT(10777)*V(1487) -! B(17132) = dA(10778)/dV(1487) - B(17132) = RCT(10778) -! B(17133) = dA(10779)/dV(3335) - B(17133) = RCT(10779) -! B(17134) = dA(10780)/dV(1318) - B(17134) = RCT(10780)*V(5250) -! B(17135) = dA(10780)/dV(5250) - B(17135) = RCT(10780)*V(1318) -! B(17136) = dA(10781)/dV(1318) - B(17136) = RCT(10781) -! B(17137) = dA(10782)/dV(3390) - B(17137) = RCT(10782) -! B(17138) = dA(10783)/dV(3390) - B(17138) = RCT(10783) -! B(17139) = dA(10784)/dV(1990) - B(17139) = RCT(10784)*V(5250) -! B(17140) = dA(10784)/dV(5250) - B(17140) = RCT(10784)*V(1990) -! B(17141) = dA(10785)/dV(1990) - B(17141) = RCT(10785) -! B(17142) = dA(10786)/dV(649) - B(17142) = RCT(10786) -! B(17143) = dA(10787)/dV(1995) - B(17143) = RCT(10787)*V(5250) -! B(17144) = dA(10787)/dV(5250) - B(17144) = RCT(10787)*V(1995) -! B(17145) = dA(10788)/dV(4145) - B(17145) = RCT(10788)*V(5255) -! B(17146) = dA(10788)/dV(5255) - B(17146) = RCT(10788)*V(4145) -! B(17147) = dA(10789)/dV(4145) - B(17147) = RCT(10789)*V(5252) -! B(17148) = dA(10789)/dV(5252) - B(17148) = RCT(10789)*V(4145) -! B(17149) = dA(10790)/dV(4145) - B(17149) = RCT(10790)*V(5256) -! B(17150) = dA(10790)/dV(5256) - B(17150) = RCT(10790)*V(4145) -! B(17151) = dA(10791)/dV(4145) - B(17151) = RCT(10791) -! B(17152) = dA(10792)/dV(4145) - B(17152) = RCT(10792) -! B(17153) = dA(10793)/dV(4145) - B(17153) = RCT(10793) -! B(17154) = dA(10794)/dV(4135) - B(17154) = RCT(10794)*V(5255) -! B(17155) = dA(10794)/dV(5255) - B(17155) = RCT(10794)*V(4135) -! B(17156) = dA(10795)/dV(4135) - B(17156) = RCT(10795)*V(5252) -! B(17157) = dA(10795)/dV(5252) - B(17157) = RCT(10795)*V(4135) -! B(17158) = dA(10796)/dV(4135) - B(17158) = RCT(10796)*V(5256) -! B(17159) = dA(10796)/dV(5256) - B(17159) = RCT(10796)*V(4135) -! B(17160) = dA(10797)/dV(4135) - B(17160) = RCT(10797) -! B(17161) = dA(10798)/dV(4135) - B(17161) = RCT(10798) -! B(17162) = dA(10799)/dV(4135) - B(17162) = RCT(10799) -! B(17163) = dA(10800)/dV(4824) - B(17163) = RCT(10800)*V(5251) -! B(17164) = dA(10800)/dV(5251) - B(17164) = RCT(10800)*V(4824) -! B(17165) = dA(10801)/dV(4824) - B(17165) = RCT(10801)*V(5252) -! B(17166) = dA(10801)/dV(5252) - B(17166) = RCT(10801)*V(4824) -! B(17167) = dA(10802)/dV(4824) - B(17167) = RCT(10802)*V(5253) -! B(17168) = dA(10802)/dV(5253) - B(17168) = RCT(10802)*V(4824) -! B(17169) = dA(10803)/dV(4824) - B(17169) = RCT(10803)*V(5254) -! B(17170) = dA(10803)/dV(5254) - B(17170) = RCT(10803)*V(4824) -! B(17171) = dA(10804)/dV(4824) - B(17171) = RCT(10804) -! B(17172) = dA(10805)/dV(4824) - B(17172) = RCT(10805) -! B(17173) = dA(10806)/dV(2407) - B(17173) = RCT(10806)*V(5250) -! B(17174) = dA(10806)/dV(5250) - B(17174) = RCT(10806)*V(2407) -! B(17175) = dA(10807)/dV(2407) - B(17175) = RCT(10807) -! B(17176) = dA(10808)/dV(1151) - B(17176) = RCT(10808)*V(5250) -! B(17177) = dA(10808)/dV(5250) - B(17177) = RCT(10808)*V(1151) -! B(17178) = dA(10809)/dV(549) - B(17178) = RCT(10809) -! B(17179) = dA(10810)/dV(1384) - B(17179) = RCT(10810)*V(5250) -! B(17180) = dA(10810)/dV(5250) - B(17180) = RCT(10810)*V(1384) -! B(17181) = dA(10811)/dV(1973) - B(17181) = RCT(10811)*V(5250) -! B(17182) = dA(10811)/dV(5250) - B(17182) = RCT(10811)*V(1973) -! B(17183) = dA(10812)/dV(1973) - B(17183) = RCT(10812) -! B(17184) = dA(10813)/dV(721) - B(17184) = RCT(10813) -! B(17185) = dA(10814)/dV(1706) - B(17185) = RCT(10814)*V(5250) -! B(17186) = dA(10814)/dV(5250) - B(17186) = RCT(10814)*V(1706) -! B(17187) = dA(10815)/dV(2439) - B(17187) = RCT(10815)*V(5250) -! B(17188) = dA(10815)/dV(5250) - B(17188) = RCT(10815)*V(2439) -! B(17189) = dA(10816)/dV(2439) - B(17189) = RCT(10816) -! B(17190) = dA(10817)/dV(703) - B(17190) = RCT(10817) -! B(17191) = dA(10818)/dV(1843) - B(17191) = RCT(10818)*V(5250) -! B(17192) = dA(10818)/dV(5250) - B(17192) = RCT(10818)*V(1843) -! B(17193) = dA(10819)/dV(1843) - B(17193) = RCT(10819) -! B(17194) = dA(10820)/dV(281) - B(17194) = RCT(10820)*V(5250) -! B(17195) = dA(10820)/dV(5250) - B(17195) = RCT(10820)*V(281) -! B(17196) = dA(10821)/dV(1182) - B(17196) = RCT(10821)*V(5250) -! B(17197) = dA(10821)/dV(5250) - B(17197) = RCT(10821)*V(1182) -! B(17198) = dA(10822)/dV(1182) - B(17198) = RCT(10822) -! B(17199) = dA(10823)/dV(2860) - B(17199) = RCT(10823)*V(5250) -! B(17200) = dA(10823)/dV(5250) - B(17200) = RCT(10823)*V(2860) -! B(17201) = dA(10824)/dV(2860) - B(17201) = RCT(10824) -! B(17202) = dA(10825)/dV(1950) - B(17202) = RCT(10825)*V(5250) -! B(17203) = dA(10825)/dV(5250) - B(17203) = RCT(10825)*V(1950) -! B(17204) = dA(10826)/dV(1950) - B(17204) = RCT(10826) -! B(17205) = dA(10827)/dV(1950) - B(17205) = RCT(10827) -! B(17206) = dA(10828)/dV(658) - B(17206) = RCT(10828) -! B(17207) = dA(10829)/dV(2119) - B(17207) = RCT(10829)*V(5250) -! B(17208) = dA(10829)/dV(5250) - B(17208) = RCT(10829)*V(2119) -! B(17209) = dA(10830)/dV(2119) - B(17209) = RCT(10830) -! B(17210) = dA(10831)/dV(1668) - B(17210) = RCT(10831)*V(5250) -! B(17211) = dA(10831)/dV(5250) - B(17211) = RCT(10831)*V(1668) -! B(17212) = dA(10832)/dV(1668) - B(17212) = RCT(10832) -! B(17213) = dA(10833)/dV(1863) - B(17213) = RCT(10833)*V(5250) -! B(17214) = dA(10833)/dV(5250) - B(17214) = RCT(10833)*V(1863) -! B(17215) = dA(10834)/dV(1863) - B(17215) = RCT(10834) -! B(17216) = dA(10835)/dV(1863) - B(17216) = RCT(10835) -! B(17217) = dA(10836)/dV(585) - B(17217) = RCT(10836) -! B(17218) = dA(10837)/dV(2315) - B(17218) = RCT(10837)*V(5250) -! B(17219) = dA(10837)/dV(5250) - B(17219) = RCT(10837)*V(2315) -! B(17220) = dA(10838)/dV(2315) - B(17220) = RCT(10838) -! B(17221) = dA(10839)/dV(1687) - B(17221) = RCT(10839)*V(5250) -! B(17222) = dA(10839)/dV(5250) - B(17222) = RCT(10839)*V(1687) -! B(17223) = dA(10840)/dV(1687) - B(17223) = RCT(10840) -! B(17224) = dA(10841)/dV(2737) - B(17224) = RCT(10841)*V(5250) -! B(17225) = dA(10841)/dV(5250) - B(17225) = RCT(10841)*V(2737) -! B(17226) = dA(10842)/dV(2737) - B(17226) = RCT(10842) -! B(17227) = dA(10843)/dV(2737) - B(17227) = RCT(10843) -! B(17228) = dA(10844)/dV(1769) - B(17228) = RCT(10844) -! B(17229) = dA(10845)/dV(1828) - B(17229) = RCT(10845)*V(5250) -! B(17230) = dA(10845)/dV(5250) - B(17230) = RCT(10845)*V(1828) -! B(17231) = dA(10846)/dV(1828) - B(17231) = RCT(10846) -! B(17232) = dA(10847)/dV(1619) - B(17232) = RCT(10847)*V(5250) -! B(17233) = dA(10847)/dV(5250) - B(17233) = RCT(10847)*V(1619) -! B(17234) = dA(10848)/dV(1619) - B(17234) = RCT(10848) -! B(17235) = dA(10849)/dV(1523) - B(17235) = RCT(10849)*V(5250) -! B(17236) = dA(10849)/dV(5250) - B(17236) = RCT(10849)*V(1523) -! B(17237) = dA(10850)/dV(1523) - B(17237) = RCT(10850) -! B(17238) = dA(10851)/dV(2165) - B(17238) = RCT(10851)*V(5250) -! B(17239) = dA(10851)/dV(5250) - B(17239) = RCT(10851)*V(2165) -! B(17240) = dA(10852)/dV(2165) - B(17240) = RCT(10852) -! B(17241) = dA(10853)/dV(189) - B(17241) = RCT(10853) -! B(17242) = dA(10854)/dV(3242) - B(17242) = RCT(10854)*V(5250) -! B(17243) = dA(10854)/dV(5250) - B(17243) = RCT(10854)*V(3242) -! B(17244) = dA(10855)/dV(413) - B(17244) = RCT(10855)*V(5250) -! B(17245) = dA(10855)/dV(5250) - B(17245) = RCT(10855)*V(413) -! B(17246) = dA(10856)/dV(1373) - B(17246) = RCT(10856)*V(5250) -! B(17247) = dA(10856)/dV(5250) - B(17247) = RCT(10856)*V(1373) -! B(17248) = dA(10857)/dV(1373) - B(17248) = RCT(10857) -! B(17249) = dA(10858)/dV(726) - B(17249) = RCT(10858) -! B(17250) = dA(10859)/dV(1372) - B(17250) = RCT(10859)*V(5250) -! B(17251) = dA(10859)/dV(5250) - B(17251) = RCT(10859)*V(1372) -! B(17252) = dA(10860)/dV(440) - B(17252) = RCT(10860)*V(5250) -! B(17253) = dA(10860)/dV(5250) - B(17253) = RCT(10860)*V(440) -! B(17254) = dA(10861)/dV(251) - B(17254) = RCT(10861)*V(5250) -! B(17255) = dA(10861)/dV(5250) - B(17255) = RCT(10861)*V(251) -! B(17256) = dA(10862)/dV(900) - B(17256) = RCT(10862)*V(5250) -! B(17257) = dA(10862)/dV(5250) - B(17257) = RCT(10862)*V(900) -! B(17258) = dA(10863)/dV(900) - B(17258) = RCT(10863) -! B(17259) = dA(10864)/dV(2648) - B(17259) = RCT(10864)*V(5250) -! B(17260) = dA(10864)/dV(5250) - B(17260) = RCT(10864)*V(2648) -! B(17261) = dA(10865)/dV(2648) - B(17261) = RCT(10865) -! B(17262) = dA(10866)/dV(1624) - B(17262) = RCT(10866) -! B(17263) = dA(10867)/dV(1624) - B(17263) = RCT(10867) -! B(17264) = dA(10868)/dV(496) - B(17264) = RCT(10868)*V(5250) -! B(17265) = dA(10868)/dV(5250) - B(17265) = RCT(10868)*V(496) -! B(17266) = dA(10869)/dV(1407) - B(17266) = RCT(10869)*V(5250) -! B(17267) = dA(10869)/dV(5250) - B(17267) = RCT(10869)*V(1407) -! B(17268) = dA(10870)/dV(1407) - B(17268) = RCT(10870) -! B(17269) = dA(10871)/dV(2685) - B(17269) = RCT(10871)*V(5250) -! B(17270) = dA(10871)/dV(5250) - B(17270) = RCT(10871)*V(2685) -! B(17271) = dA(10872)/dV(2685) - B(17271) = RCT(10872) -! B(17272) = dA(10873)/dV(1900) - B(17272) = RCT(10873)*V(5250) -! B(17273) = dA(10873)/dV(5250) - B(17273) = RCT(10873)*V(1900) -! B(17274) = dA(10874)/dV(1900) - B(17274) = RCT(10874) -! B(17275) = dA(10875)/dV(724) - B(17275) = RCT(10875) -! B(17276) = dA(10876)/dV(1913) - B(17276) = RCT(10876)*V(5250) -! B(17277) = dA(10876)/dV(5250) - B(17277) = RCT(10876)*V(1913) -! B(17278) = dA(10877)/dV(1913) - B(17278) = RCT(10877) -! B(17279) = dA(10878)/dV(371) - B(17279) = RCT(10878)*V(5250) -! B(17280) = dA(10878)/dV(5250) - B(17280) = RCT(10878)*V(371) -! B(17281) = dA(10879)/dV(949) - B(17281) = RCT(10879)*V(5250) -! B(17282) = dA(10879)/dV(5250) - B(17282) = RCT(10879)*V(949) -! B(17283) = dA(10880)/dV(949) - B(17283) = RCT(10880) -! B(17284) = dA(10881)/dV(2079) - B(17284) = RCT(10881)*V(5250) -! B(17285) = dA(10881)/dV(5250) - B(17285) = RCT(10881)*V(2079) -! B(17286) = dA(10882)/dV(2079) - B(17286) = RCT(10882) -! B(17287) = dA(10883)/dV(159) - B(17287) = RCT(10883) -! B(17288) = dA(10884)/dV(462) - B(17288) = RCT(10884)*V(5250) -! B(17289) = dA(10884)/dV(5250) - B(17289) = RCT(10884)*V(462) -! B(17290) = dA(10885)/dV(1502) - B(17290) = RCT(10885)*V(5250) -! B(17291) = dA(10885)/dV(5250) - B(17291) = RCT(10885)*V(1502) -! B(17292) = dA(10886)/dV(1502) - B(17292) = RCT(10886) -! B(17293) = dA(10887)/dV(2832) - B(17293) = RCT(10887) -! B(17294) = dA(10888)/dV(692) - B(17294) = RCT(10888)*V(5250) -! B(17295) = dA(10888)/dV(5250) - B(17295) = RCT(10888)*V(692) -! B(17296) = dA(10889)/dV(4738) - B(17296) = RCT(10889)*V(5255) -! B(17297) = dA(10889)/dV(5255) - B(17297) = RCT(10889)*V(4738) -! B(17298) = dA(10890)/dV(4738) - B(17298) = RCT(10890)*V(5255) -! B(17299) = dA(10890)/dV(5255) - B(17299) = RCT(10890)*V(4738) -! B(17300) = dA(10891)/dV(4738) - B(17300) = RCT(10891)*V(5255) -! B(17301) = dA(10891)/dV(5255) - B(17301) = RCT(10891)*V(4738) -! B(17302) = dA(10892)/dV(4738) - B(17302) = RCT(10892)*V(5252) -! B(17303) = dA(10892)/dV(5252) - B(17303) = RCT(10892)*V(4738) -! B(17304) = dA(10893)/dV(4738) - B(17304) = RCT(10893)*V(5253) -! B(17305) = dA(10893)/dV(5253) - B(17305) = RCT(10893)*V(4738) -! B(17306) = dA(10894)/dV(4738) - B(17306) = RCT(10894)*V(5256) -! B(17307) = dA(10894)/dV(5256) - B(17307) = RCT(10894)*V(4738) -! B(17308) = dA(10895)/dV(4738) - B(17308) = RCT(10895) -! B(17309) = dA(10896)/dV(4738) - B(17309) = RCT(10896) -! B(17310) = dA(10897)/dV(4043) - B(17310) = RCT(10897)*V(5255) -! B(17311) = dA(10897)/dV(5255) - B(17311) = RCT(10897)*V(4043) -! B(17312) = dA(10898)/dV(4043) - B(17312) = RCT(10898)*V(5252) -! B(17313) = dA(10898)/dV(5252) - B(17313) = RCT(10898)*V(4043) -! B(17314) = dA(10899)/dV(4043) - B(17314) = RCT(10899)*V(5252) -! B(17315) = dA(10899)/dV(5252) - B(17315) = RCT(10899)*V(4043) -! B(17316) = dA(10900)/dV(4043) - B(17316) = RCT(10900)*V(5256) -! B(17317) = dA(10900)/dV(5256) - B(17317) = RCT(10900)*V(4043) -! B(17318) = dA(10901)/dV(4043) - B(17318) = RCT(10901) -! B(17319) = dA(10902)/dV(4043) - B(17319) = RCT(10902) -! B(17320) = dA(10903)/dV(4043) - B(17320) = RCT(10903) -! B(17321) = dA(10904)/dV(4258) - B(17321) = RCT(10904)*V(5251) -! B(17322) = dA(10904)/dV(5251) - B(17322) = RCT(10904)*V(4258) -! B(17323) = dA(10905)/dV(4258) - B(17323) = RCT(10905)*V(5252) -! B(17324) = dA(10905)/dV(5252) - B(17324) = RCT(10905)*V(4258) -! B(17325) = dA(10906)/dV(4258) - B(17325) = RCT(10906)*V(5253) -! B(17326) = dA(10906)/dV(5253) - B(17326) = RCT(10906)*V(4258) -! B(17327) = dA(10907)/dV(4258) - B(17327) = RCT(10907)*V(5254) -! B(17328) = dA(10907)/dV(5254) - B(17328) = RCT(10907)*V(4258) -! B(17329) = dA(10908)/dV(4258) - B(17329) = RCT(10908) -! B(17330) = dA(10909)/dV(4176) - B(17330) = RCT(10909)*V(5255) -! B(17331) = dA(10909)/dV(5255) - B(17331) = RCT(10909)*V(4176) -! B(17332) = dA(10910)/dV(4176) - B(17332) = RCT(10910)*V(5252) -! B(17333) = dA(10910)/dV(5252) - B(17333) = RCT(10910)*V(4176) -! B(17334) = dA(10911)/dV(4176) - B(17334) = RCT(10911)*V(5256) -! B(17335) = dA(10911)/dV(5256) - B(17335) = RCT(10911)*V(4176) -! B(17336) = dA(10912)/dV(4176) - B(17336) = RCT(10912) -! B(17337) = dA(10913)/dV(4176) - B(17337) = RCT(10913) -! B(17338) = dA(10914)/dV(4176) - B(17338) = RCT(10914) -! B(17339) = dA(10915)/dV(1183) - B(17339) = RCT(10915)*V(5250) -! B(17340) = dA(10915)/dV(5250) - B(17340) = RCT(10915)*V(1183) -! B(17341) = dA(10916)/dV(1183) - B(17341) = RCT(10916) -! B(17342) = dA(10917)/dV(2325) - B(17342) = RCT(10917)*V(5250) -! B(17343) = dA(10917)/dV(5250) - B(17343) = RCT(10917)*V(2325) -! B(17344) = dA(10918)/dV(2746) - B(17344) = RCT(10918) -! B(17345) = dA(10919)/dV(127) - B(17345) = RCT(10919)*V(5250) -! B(17346) = dA(10919)/dV(5250) - B(17346) = RCT(10919)*V(127) -! B(17347) = dA(10920)/dV(1286) - B(17347) = RCT(10920)*V(5250) -! B(17348) = dA(10920)/dV(5250) - B(17348) = RCT(10920)*V(1286) -! B(17349) = dA(10921)/dV(1286) - B(17349) = RCT(10921) -! B(17350) = dA(10922)/dV(1629) - B(17350) = RCT(10922)*V(5250) -! B(17351) = dA(10922)/dV(5250) - B(17351) = RCT(10922)*V(1629) -! B(17352) = dA(10923)/dV(1629) - B(17352) = RCT(10923) -! B(17353) = dA(10924)/dV(187) - B(17353) = RCT(10924) -! B(17354) = dA(10925)/dV(1628) - B(17354) = RCT(10925)*V(5250) -! B(17355) = dA(10925)/dV(5250) - B(17355) = RCT(10925)*V(1628) -! B(17356) = dA(10926)/dV(248) - B(17356) = RCT(10926)*V(5250) -! B(17357) = dA(10926)/dV(5250) - B(17357) = RCT(10926)*V(248) -! B(17358) = dA(10927)/dV(930) - B(17358) = RCT(10927)*V(5250) -! B(17359) = dA(10927)/dV(5250) - B(17359) = RCT(10927)*V(930) -! B(17360) = dA(10928)/dV(930) - B(17360) = RCT(10928) -! B(17361) = dA(10929)/dV(970) - B(17361) = RCT(10929)*V(5250) -! B(17362) = dA(10929)/dV(5250) - B(17362) = RCT(10929)*V(970) -! B(17363) = dA(10930)/dV(970) - B(17363) = RCT(10930) -! B(17364) = dA(10931)/dV(2239) - B(17364) = RCT(10931)*V(5250) -! B(17365) = dA(10931)/dV(5250) - B(17365) = RCT(10931)*V(2239) -! B(17366) = dA(10932)/dV(2239) - B(17366) = RCT(10932) -! B(17367) = dA(10933)/dV(326) - B(17367) = RCT(10933) -! B(17368) = dA(10934)/dV(87) - B(17368) = RCT(10934)*V(5250) -! B(17369) = dA(10934)/dV(5250) - B(17369) = RCT(10934)*V(87) -! B(17370) = dA(10935)/dV(1862) - B(17370) = RCT(10935)*V(5250) -! B(17371) = dA(10935)/dV(5250) - B(17371) = RCT(10935)*V(1862) -! B(17372) = dA(10936)/dV(1862) - B(17372) = RCT(10936) -! B(17373) = dA(10937)/dV(673) - B(17373) = RCT(10937) -! B(17374) = dA(10938)/dV(2288) - B(17374) = RCT(10938)*V(5250) -! B(17375) = dA(10938)/dV(5250) - B(17375) = RCT(10938)*V(2288) -! B(17376) = dA(10939)/dV(5114) - B(17376) = RCT(10939)*V(5255) -! B(17377) = dA(10939)/dV(5255) - B(17377) = RCT(10939)*V(5114) -! B(17378) = dA(10940)/dV(5114) - B(17378) = RCT(10940)*V(5252) -! B(17379) = dA(10940)/dV(5252) - B(17379) = RCT(10940)*V(5114) -! B(17380) = dA(10941)/dV(5114) - B(17380) = RCT(10941)*V(5252) -! B(17381) = dA(10941)/dV(5252) - B(17381) = RCT(10941)*V(5114) -! B(17382) = dA(10942)/dV(5114) - B(17382) = RCT(10942)*V(5256) -! B(17383) = dA(10942)/dV(5256) - B(17383) = RCT(10942)*V(5114) -! B(17384) = dA(10943)/dV(5114) - B(17384) = RCT(10943) -! B(17385) = dA(10944)/dV(5114) - B(17385) = RCT(10944) -! B(17386) = dA(10945)/dV(5114) - B(17386) = RCT(10945) -! B(17387) = dA(10946)/dV(2098) - B(17387) = RCT(10946)*V(5250) -! B(17388) = dA(10946)/dV(5250) - B(17388) = RCT(10946)*V(2098) -! B(17389) = dA(10947)/dV(2098) - B(17389) = RCT(10947) -! B(17390) = dA(10948)/dV(1334) - B(17390) = RCT(10948)*V(5250) -! B(17391) = dA(10948)/dV(5250) - B(17391) = RCT(10948)*V(1334) -! B(17392) = dA(10949)/dV(730) - B(17392) = RCT(10949) -! B(17393) = dA(10950)/dV(1056) - B(17393) = RCT(10950)*V(5250) -! B(17394) = dA(10950)/dV(5250) - B(17394) = RCT(10950)*V(1056) -! B(17395) = dA(10951)/dV(2266) - B(17395) = RCT(10951)*V(5250) -! B(17396) = dA(10951)/dV(5250) - B(17396) = RCT(10951)*V(2266) -! B(17397) = dA(10952)/dV(2266) - B(17397) = RCT(10952) -! B(17398) = dA(10953)/dV(663) - B(17398) = RCT(10953) -! B(17399) = dA(10954)/dV(1738) - B(17399) = RCT(10954)*V(5250) -! B(17400) = dA(10954)/dV(5250) - B(17400) = RCT(10954)*V(1738) -! B(17401) = dA(10955)/dV(2319) - B(17401) = RCT(10955) -! B(17402) = dA(10956)/dV(2319) - B(17402) = RCT(10956)*V(5250) -! B(17403) = dA(10956)/dV(5250) - B(17403) = RCT(10956)*V(2319) -! B(17404) = dA(10957)/dV(2678) - B(17404) = RCT(10957) -! B(17405) = dA(10958)/dV(2678) - B(17405) = RCT(10958)*V(5250) -! B(17406) = dA(10958)/dV(5250) - B(17406) = RCT(10958)*V(2678) -! B(17407) = dA(10959)/dV(2144) - B(17407) = RCT(10959) -! B(17408) = dA(10960)/dV(2144) - B(17408) = RCT(10960)*V(5250) -! B(17409) = dA(10960)/dV(5250) - B(17409) = RCT(10960)*V(2144) -! B(17410) = dA(10961)/dV(2677) - B(17410) = RCT(10961) -! B(17411) = dA(10962)/dV(2677) - B(17411) = RCT(10962)*V(5250) -! B(17412) = dA(10962)/dV(5250) - B(17412) = RCT(10962)*V(2677) -! B(17413) = dA(10963)/dV(5182) - B(17413) = RCT(10963) -! B(17414) = dA(10964)/dV(5182) - B(17414) = RCT(10964)*V(5256) -! B(17415) = dA(10964)/dV(5256) - B(17415) = RCT(10964)*V(5182) -! B(17416) = dA(10965)/dV(5182) - B(17416) = RCT(10965)*V(5250) -! B(17417) = dA(10965)/dV(5250) - B(17417) = RCT(10965)*V(5182) -! B(17418) = dA(10966)/dV(4957) - B(17418) = RCT(10966)*V(5255) -! B(17419) = dA(10966)/dV(5255) - B(17419) = RCT(10966)*V(4957) -! B(17420) = dA(10967)/dV(4957) - B(17420) = RCT(10967)*V(5255) -! B(17421) = dA(10967)/dV(5255) - B(17421) = RCT(10967)*V(4957) -! B(17422) = dA(10968)/dV(4957) - B(17422) = RCT(10968)*V(5255) -! B(17423) = dA(10968)/dV(5255) - B(17423) = RCT(10968)*V(4957) -! B(17424) = dA(10969)/dV(4957) - B(17424) = RCT(10969)*V(5252) -! B(17425) = dA(10969)/dV(5252) - B(17425) = RCT(10969)*V(4957) -! B(17426) = dA(10970)/dV(4957) - B(17426) = RCT(10970)*V(5253) -! B(17427) = dA(10970)/dV(5253) - B(17427) = RCT(10970)*V(4957) -! B(17428) = dA(10971)/dV(4957) - B(17428) = RCT(10971)*V(5256) -! B(17429) = dA(10971)/dV(5256) - B(17429) = RCT(10971)*V(4957) -! B(17430) = dA(10972)/dV(4957) - B(17430) = RCT(10972) -! B(17431) = dA(10973)/dV(4957) - B(17431) = RCT(10973) -! B(17432) = dA(10974)/dV(4015) - B(17432) = RCT(10974)*V(5255) -! B(17433) = dA(10974)/dV(5255) - B(17433) = RCT(10974)*V(4015) -! B(17434) = dA(10975)/dV(4015) - B(17434) = RCT(10975)*V(5252) -! B(17435) = dA(10975)/dV(5252) - B(17435) = RCT(10975)*V(4015) -! B(17436) = dA(10976)/dV(4015) - B(17436) = RCT(10976)*V(5256) -! B(17437) = dA(10976)/dV(5256) - B(17437) = RCT(10976)*V(4015) -! B(17438) = dA(10977)/dV(4015) - B(17438) = RCT(10977) -! B(17439) = dA(10978)/dV(3992) - B(17439) = RCT(10978)*V(5255) -! B(17440) = dA(10978)/dV(5255) - B(17440) = RCT(10978)*V(3992) -! B(17441) = dA(10979)/dV(3992) - B(17441) = RCT(10979)*V(5252) -! B(17442) = dA(10979)/dV(5252) - B(17442) = RCT(10979)*V(3992) -! B(17443) = dA(10980)/dV(3992) - B(17443) = RCT(10980)*V(5256) -! B(17444) = dA(10980)/dV(5256) - B(17444) = RCT(10980)*V(3992) -! B(17445) = dA(10981)/dV(3992) - B(17445) = RCT(10981) -! B(17446) = dA(10982)/dV(4042) - B(17446) = RCT(10982)*V(5255) -! B(17447) = dA(10982)/dV(5255) - B(17447) = RCT(10982)*V(4042) -! B(17448) = dA(10983)/dV(4042) - B(17448) = RCT(10983)*V(5252) -! B(17449) = dA(10983)/dV(5252) - B(17449) = RCT(10983)*V(4042) -! B(17450) = dA(10984)/dV(4042) - B(17450) = RCT(10984)*V(5256) -! B(17451) = dA(10984)/dV(5256) - B(17451) = RCT(10984)*V(4042) -! B(17452) = dA(10985)/dV(4042) - B(17452) = RCT(10985) -! B(17453) = dA(10986)/dV(258) - B(17453) = RCT(10986)*V(5250) -! B(17454) = dA(10986)/dV(5250) - B(17454) = RCT(10986)*V(258) -! B(17455) = dA(10987)/dV(1475) - B(17455) = RCT(10987) -! B(17456) = dA(10988)/dV(1475) - B(17456) = RCT(10988)*V(5250) -! B(17457) = dA(10988)/dV(5250) - B(17457) = RCT(10988)*V(1475) -! B(17458) = dA(10989)/dV(2786) - B(17458) = RCT(10989) -! B(17459) = dA(10990)/dV(2786) - B(17459) = RCT(10990)*V(5250) -! B(17460) = dA(10990)/dV(5250) - B(17460) = RCT(10990)*V(2786) -! B(17461) = dA(10991)/dV(909) - B(17461) = RCT(10991)*V(5250) -! B(17462) = dA(10991)/dV(5250) - B(17462) = RCT(10991)*V(909) -! B(17463) = dA(10992)/dV(909) - B(17463) = RCT(10992) -! B(17464) = dA(10993)/dV(2865) - B(17464) = RCT(10993) -! B(17465) = dA(10994)/dV(3358) - B(17465) = RCT(10994)*V(5250) -! B(17466) = dA(10994)/dV(5250) - B(17466) = RCT(10994)*V(3358) -! B(17467) = dA(10995)/dV(3358) - B(17467) = RCT(10995) -! B(17468) = dA(10996)/dV(4795) - B(17468) = RCT(10996)*V(5255) -! B(17469) = dA(10996)/dV(5255) - B(17469) = RCT(10996)*V(4795) -! B(17470) = dA(10997)/dV(4795) - B(17470) = RCT(10997)*V(5255) -! B(17471) = dA(10997)/dV(5255) - B(17471) = RCT(10997)*V(4795) -! B(17472) = dA(10998)/dV(4795) - B(17472) = RCT(10998)*V(5255) -! B(17473) = dA(10998)/dV(5255) - B(17473) = RCT(10998)*V(4795) -! B(17474) = dA(10999)/dV(4795) - B(17474) = RCT(10999)*V(5252) -! B(17475) = dA(10999)/dV(5252) - B(17475) = RCT(10999)*V(4795) -! B(17476) = dA(11000)/dV(4795) - B(17476) = RCT(11000)*V(5253) -! B(17477) = dA(11000)/dV(5253) - B(17477) = RCT(11000)*V(4795) -! B(17478) = dA(11001)/dV(4795) - B(17478) = RCT(11001)*V(5256) -! B(17479) = dA(11001)/dV(5256) - B(17479) = RCT(11001)*V(4795) -! B(17480) = dA(11002)/dV(4795) - B(17480) = RCT(11002) -! B(17481) = dA(11003)/dV(4795) - B(17481) = RCT(11003) -! B(17482) = dA(11004)/dV(5179) - B(17482) = RCT(11004)*V(5255) -! B(17483) = dA(11004)/dV(5255) - B(17483) = RCT(11004)*V(5179) -! B(17484) = dA(11005)/dV(5179) - B(17484) = RCT(11005)*V(5255) -! B(17485) = dA(11005)/dV(5255) - B(17485) = RCT(11005)*V(5179) -! B(17486) = dA(11006)/dV(5179) - B(17486) = RCT(11006)*V(5255) -! B(17487) = dA(11006)/dV(5255) - B(17487) = RCT(11006)*V(5179) -! B(17488) = dA(11007)/dV(5179) - B(17488) = RCT(11007)*V(5252) -! B(17489) = dA(11007)/dV(5252) - B(17489) = RCT(11007)*V(5179) -! B(17490) = dA(11008)/dV(5179) - B(17490) = RCT(11008)*V(5253) -! B(17491) = dA(11008)/dV(5253) - B(17491) = RCT(11008)*V(5179) -! B(17492) = dA(11009)/dV(5179) - B(17492) = RCT(11009)*V(5256) -! B(17493) = dA(11009)/dV(5256) - B(17493) = RCT(11009)*V(5179) -! B(17494) = dA(11010)/dV(5179) - B(17494) = RCT(11010) -! B(17495) = dA(11011)/dV(5179) - B(17495) = RCT(11011) -! B(17496) = dA(11012)/dV(207) - B(17496) = RCT(11012)*V(5250) -! B(17497) = dA(11012)/dV(5250) - B(17497) = RCT(11012)*V(207) -! B(17498) = dA(11013)/dV(1042) - B(17498) = RCT(11013) -! B(17499) = dA(11014)/dV(1042) - B(17499) = RCT(11014)*V(5250) -! B(17500) = dA(11014)/dV(5250) - B(17500) = RCT(11014)*V(1042) -! B(17501) = dA(11015)/dV(2884) - B(17501) = RCT(11015) -! B(17502) = dA(11016)/dV(2884) - B(17502) = RCT(11016)*V(5250) -! B(17503) = dA(11016)/dV(5250) - B(17503) = RCT(11016)*V(2884) -! B(17504) = dA(11017)/dV(4662) - B(17504) = RCT(11017)*V(5255) -! B(17505) = dA(11017)/dV(5255) - B(17505) = RCT(11017)*V(4662) -! B(17506) = dA(11018)/dV(4662) - B(17506) = RCT(11018)*V(5255) -! B(17507) = dA(11018)/dV(5255) - B(17507) = RCT(11018)*V(4662) -! B(17508) = dA(11019)/dV(4662) - B(17508) = RCT(11019)*V(5255) -! B(17509) = dA(11019)/dV(5255) - B(17509) = RCT(11019)*V(4662) -! B(17510) = dA(11020)/dV(4662) - B(17510) = RCT(11020)*V(5252) -! B(17511) = dA(11020)/dV(5252) - B(17511) = RCT(11020)*V(4662) -! B(17512) = dA(11021)/dV(4662) - B(17512) = RCT(11021)*V(5253) -! B(17513) = dA(11021)/dV(5253) - B(17513) = RCT(11021)*V(4662) -! B(17514) = dA(11022)/dV(4662) - B(17514) = RCT(11022)*V(5256) -! B(17515) = dA(11022)/dV(5256) - B(17515) = RCT(11022)*V(4662) -! B(17516) = dA(11023)/dV(4662) - B(17516) = RCT(11023) -! B(17517) = dA(11024)/dV(4662) - B(17517) = RCT(11024) -! B(17518) = dA(11025)/dV(1074) - B(17518) = RCT(11025) -! B(17519) = dA(11026)/dV(1074) - B(17519) = RCT(11026)*V(5250) -! B(17520) = dA(11026)/dV(5250) - B(17520) = RCT(11026)*V(1074) -! B(17521) = dA(11027)/dV(2885) - B(17521) = RCT(11027) -! B(17522) = dA(11028)/dV(2885) - B(17522) = RCT(11028)*V(5250) -! B(17523) = dA(11028)/dV(5250) - B(17523) = RCT(11028)*V(2885) -! B(17524) = dA(11029)/dV(1204) - B(17524) = RCT(11029) -! B(17525) = dA(11030)/dV(1204) - B(17525) = RCT(11030)*V(5250) -! B(17526) = dA(11030)/dV(5250) - B(17526) = RCT(11030)*V(1204) -! B(17527) = dA(11031)/dV(2270) - B(17527) = RCT(11031) -! B(17528) = dA(11032)/dV(2270) - B(17528) = RCT(11032)*V(5250) -! B(17529) = dA(11032)/dV(5250) - B(17529) = RCT(11032)*V(2270) -! B(17530) = dA(11033)/dV(2589) - B(17530) = RCT(11033) -! B(17531) = dA(11034)/dV(590) - B(17531) = RCT(11034) -! B(17532) = dA(11035)/dV(590) - B(17532) = RCT(11035)*V(5250) -! B(17533) = dA(11035)/dV(5250) - B(17533) = RCT(11035)*V(590) -! B(17534) = dA(11036)/dV(4866) - B(17534) = RCT(11036)*V(5255) -! B(17535) = dA(11036)/dV(5255) - B(17535) = RCT(11036)*V(4866) -! B(17536) = dA(11037)/dV(4866) - B(17536) = RCT(11037)*V(5255) -! B(17537) = dA(11037)/dV(5255) - B(17537) = RCT(11037)*V(4866) -! B(17538) = dA(11038)/dV(4866) - B(17538) = RCT(11038)*V(5255) -! B(17539) = dA(11038)/dV(5255) - B(17539) = RCT(11038)*V(4866) -! B(17540) = dA(11039)/dV(4866) - B(17540) = RCT(11039)*V(5252) -! B(17541) = dA(11039)/dV(5252) - B(17541) = RCT(11039)*V(4866) -! B(17542) = dA(11040)/dV(4866) - B(17542) = RCT(11040)*V(5253) -! B(17543) = dA(11040)/dV(5253) - B(17543) = RCT(11040)*V(4866) -! B(17544) = dA(11041)/dV(4866) - B(17544) = RCT(11041)*V(5256) -! B(17545) = dA(11041)/dV(5256) - B(17545) = RCT(11041)*V(4866) -! B(17546) = dA(11042)/dV(4866) - B(17546) = RCT(11042) -! B(17547) = dA(11043)/dV(4866) - B(17547) = RCT(11043) -! B(17548) = dA(11044)/dV(376) - B(17548) = RCT(11044)*V(5250) -! B(17549) = dA(11044)/dV(5250) - B(17549) = RCT(11044)*V(376) -! B(17550) = dA(11045)/dV(1448) - B(17550) = RCT(11045) -! B(17551) = dA(11046)/dV(1448) - B(17551) = RCT(11046)*V(5250) -! B(17552) = dA(11046)/dV(5250) - B(17552) = RCT(11046)*V(1448) -! B(17553) = dA(11047)/dV(2843) - B(17553) = RCT(11047) -! B(17554) = dA(11048)/dV(2843) - B(17554) = RCT(11048)*V(5250) -! B(17555) = dA(11048)/dV(5250) - B(17555) = RCT(11048)*V(2843) -! B(17556) = dA(11049)/dV(2553) - B(17556) = RCT(11049) -! B(17557) = dA(11050)/dV(2553) - B(17557) = RCT(11050)*V(5250) -! B(17558) = dA(11050)/dV(5250) - B(17558) = RCT(11050)*V(2553) -! B(17559) = dA(11051)/dV(2553) - B(17559) = RCT(11051)*V(5250) -! B(17560) = dA(11051)/dV(5250) - B(17560) = RCT(11051)*V(2553) -! B(17561) = dA(11052)/dV(2814) - B(17561) = RCT(11052) -! B(17562) = dA(11053)/dV(2814) - B(17562) = RCT(11053)*V(5250) -! B(17563) = dA(11053)/dV(5250) - B(17563) = RCT(11053)*V(2814) -! B(17564) = dA(11054)/dV(4979) - B(17564) = RCT(11054)*V(5255) -! B(17565) = dA(11054)/dV(5255) - B(17565) = RCT(11054)*V(4979) -! B(17566) = dA(11055)/dV(4979) - B(17566) = RCT(11055)*V(5255) -! B(17567) = dA(11055)/dV(5255) - B(17567) = RCT(11055)*V(4979) -! B(17568) = dA(11056)/dV(4979) - B(17568) = RCT(11056)*V(5255) -! B(17569) = dA(11056)/dV(5255) - B(17569) = RCT(11056)*V(4979) -! B(17570) = dA(11057)/dV(4979) - B(17570) = RCT(11057)*V(5252) -! B(17571) = dA(11057)/dV(5252) - B(17571) = RCT(11057)*V(4979) -! B(17572) = dA(11058)/dV(4979) - B(17572) = RCT(11058)*V(5253) -! B(17573) = dA(11058)/dV(5253) - B(17573) = RCT(11058)*V(4979) -! B(17574) = dA(11059)/dV(4979) - B(17574) = RCT(11059)*V(5256) -! B(17575) = dA(11059)/dV(5256) - B(17575) = RCT(11059)*V(4979) -! B(17576) = dA(11060)/dV(4979) - B(17576) = RCT(11060) -! B(17577) = dA(11061)/dV(4979) - B(17577) = RCT(11061) -! B(17578) = dA(11062)/dV(4546) - B(17578) = RCT(11062)*V(5255) -! B(17579) = dA(11062)/dV(5255) - B(17579) = RCT(11062)*V(4546) -! B(17580) = dA(11063)/dV(4546) - B(17580) = RCT(11063)*V(5252) -! B(17581) = dA(11063)/dV(5252) - B(17581) = RCT(11063)*V(4546) -! B(17582) = dA(11064)/dV(4546) - B(17582) = RCT(11064)*V(5256) -! B(17583) = dA(11064)/dV(5256) - B(17583) = RCT(11064)*V(4546) -! B(17584) = dA(11065)/dV(4546) - B(17584) = RCT(11065) -! B(17585) = dA(11066)/dV(4546) - B(17585) = RCT(11066) -! B(17586) = dA(11067)/dV(1490) - B(17586) = RCT(11067) -! B(17587) = dA(11068)/dV(1490) - B(17587) = RCT(11068)*V(5250) -! B(17588) = dA(11068)/dV(5250) - B(17588) = RCT(11068)*V(1490) -! B(17589) = dA(11069)/dV(1978) - B(17589) = RCT(11069) -! B(17590) = dA(11070)/dV(1978) - B(17590) = RCT(11070)*V(5250) -! B(17591) = dA(11070)/dV(5250) - B(17591) = RCT(11070)*V(1978) -! B(17592) = dA(11071)/dV(2646) - B(17592) = RCT(11071) -! B(17593) = dA(11072)/dV(2646) - B(17593) = RCT(11072) -! B(17594) = dA(11073)/dV(289) - B(17594) = RCT(11073)*V(5250) -! B(17595) = dA(11073)/dV(5250) - B(17595) = RCT(11073)*V(289) -! B(17596) = dA(11074)/dV(479) - B(17596) = RCT(11074)*V(5250) -! B(17597) = dA(11074)/dV(5250) - B(17597) = RCT(11074)*V(479) -! B(17598) = dA(11075)/dV(1090) - B(17598) = RCT(11075) -! B(17599) = dA(11076)/dV(1090) - B(17599) = RCT(11076)*V(5250) -! B(17600) = dA(11076)/dV(5250) - B(17600) = RCT(11076)*V(1090) -! B(17601) = dA(11077)/dV(2846) - B(17601) = RCT(11077) -! B(17602) = dA(11078)/dV(2846) - B(17602) = RCT(11078)*V(5250) -! B(17603) = dA(11078)/dV(5250) - B(17603) = RCT(11078)*V(2846) -! B(17604) = dA(11079)/dV(2730) - B(17604) = RCT(11079) -! B(17605) = dA(11080)/dV(2730) - B(17605) = RCT(11080) -! B(17606) = dA(11081)/dV(2730) - B(17606) = RCT(11081)*V(5250) -! B(17607) = dA(11081)/dV(5250) - B(17607) = RCT(11081)*V(2730) -! B(17608) = dA(11082)/dV(2730) - B(17608) = RCT(11082)*V(5250) -! B(17609) = dA(11082)/dV(5250) - B(17609) = RCT(11082)*V(2730) -! B(17610) = dA(11083)/dV(674) - B(17610) = RCT(11083) -! B(17611) = dA(11084)/dV(3057) - B(17611) = RCT(11084) -! B(17612) = dA(11085)/dV(3057) - B(17612) = RCT(11085)*V(5250) -! B(17613) = dA(11085)/dV(5250) - B(17613) = RCT(11085)*V(3057) -! B(17614) = dA(11086)/dV(1659) - B(17614) = RCT(11086) -! B(17615) = dA(11087)/dV(1659) - B(17615) = RCT(11087)*V(5250) -! B(17616) = dA(11087)/dV(5250) - B(17616) = RCT(11087)*V(1659) -! B(17617) = dA(11088)/dV(1327) - B(17617) = RCT(11088) -! B(17618) = dA(11089)/dV(1327) - B(17618) = RCT(11089)*V(5250) -! B(17619) = dA(11089)/dV(5250) - B(17619) = RCT(11089)*V(1327) -! B(17620) = dA(11090)/dV(2844) - B(17620) = RCT(11090) -! B(17621) = dA(11091)/dV(2844) - B(17621) = RCT(11091)*V(5250) -! B(17622) = dA(11091)/dV(5250) - B(17622) = RCT(11091)*V(2844) -! B(17623) = dA(11092)/dV(240) - B(17623) = RCT(11092)*V(5250) -! B(17624) = dA(11092)/dV(5250) - B(17624) = RCT(11092)*V(240) -! B(17625) = dA(11093)/dV(845) - B(17625) = RCT(11093) -! B(17626) = dA(11094)/dV(845) - B(17626) = RCT(11094)*V(5250) -! B(17627) = dA(11094)/dV(5250) - B(17627) = RCT(11094)*V(845) -! B(17628) = dA(11095)/dV(2848) - B(17628) = RCT(11095) -! B(17629) = dA(11096)/dV(2848) - B(17629) = RCT(11096)*V(5250) -! B(17630) = dA(11096)/dV(5250) - B(17630) = RCT(11096)*V(2848) -! B(17631) = dA(11097)/dV(1213) - B(17631) = RCT(11097) -! B(17632) = dA(11098)/dV(1213) - B(17632) = RCT(11098)*V(5250) -! B(17633) = dA(11098)/dV(5250) - B(17633) = RCT(11098)*V(1213) -! B(17634) = dA(11099)/dV(2256) - B(17634) = RCT(11099) -! B(17635) = dA(11100)/dV(2256) - B(17635) = RCT(11100)*V(5250) -! B(17636) = dA(11100)/dV(5250) - B(17636) = RCT(11100)*V(2256) -! B(17637) = dA(11101)/dV(3013) - B(17637) = RCT(11101) -! B(17638) = dA(11102)/dV(4279) - B(17638) = RCT(11102) -! B(17639) = dA(11103)/dV(4279) - B(17639) = RCT(11103)*V(5256) -! B(17640) = dA(11103)/dV(5256) - B(17640) = RCT(11103)*V(4279) -! B(17641) = dA(11104)/dV(4279) - B(17641) = RCT(11104)*V(5250) -! B(17642) = dA(11104)/dV(5250) - B(17642) = RCT(11104)*V(4279) -! B(17643) = dA(11105)/dV(554) - B(17643) = RCT(11105) -! B(17644) = dA(11106)/dV(554) - B(17644) = RCT(11106)*V(5250) -! B(17645) = dA(11106)/dV(5250) - B(17645) = RCT(11106)*V(554) -! B(17646) = dA(11107)/dV(1323) - B(17646) = RCT(11107) -! B(17647) = dA(11108)/dV(1323) - B(17647) = RCT(11108)*V(5250) -! B(17648) = dA(11108)/dV(5250) - B(17648) = RCT(11108)*V(1323) -! B(17649) = dA(11109)/dV(2253) - B(17649) = RCT(11109) -! B(17650) = dA(11110)/dV(2253) - B(17650) = RCT(11110)*V(5250) -! B(17651) = dA(11110)/dV(5250) - B(17651) = RCT(11110)*V(2253) -! B(17652) = dA(11111)/dV(2982) - B(17652) = RCT(11111) -! B(17653) = dA(11112)/dV(651) - B(17653) = RCT(11112) -! B(17654) = dA(11113)/dV(651) - B(17654) = RCT(11113)*V(5250) -! B(17655) = dA(11113)/dV(5250) - B(17655) = RCT(11113)*V(651) -! B(17656) = dA(11114)/dV(3780) - B(17656) = RCT(11114) -! B(17657) = dA(11115)/dV(3780) - B(17657) = RCT(11115)*V(5250) -! B(17658) = dA(11115)/dV(5250) - B(17658) = RCT(11115)*V(3780) -! B(17659) = dA(11116)/dV(4642) - B(17659) = RCT(11116)*V(5255) -! B(17660) = dA(11116)/dV(5255) - B(17660) = RCT(11116)*V(4642) -! B(17661) = dA(11117)/dV(4642) - B(17661) = RCT(11117)*V(5255) -! B(17662) = dA(11117)/dV(5255) - B(17662) = RCT(11117)*V(4642) -! B(17663) = dA(11118)/dV(4642) - B(17663) = RCT(11118)*V(5255) -! B(17664) = dA(11118)/dV(5255) - B(17664) = RCT(11118)*V(4642) -! B(17665) = dA(11119)/dV(4642) - B(17665) = RCT(11119)*V(5252) -! B(17666) = dA(11119)/dV(5252) - B(17666) = RCT(11119)*V(4642) -! B(17667) = dA(11120)/dV(4642) - B(17667) = RCT(11120)*V(5253) -! B(17668) = dA(11120)/dV(5253) - B(17668) = RCT(11120)*V(4642) -! B(17669) = dA(11121)/dV(4642) - B(17669) = RCT(11121)*V(5256) -! B(17670) = dA(11121)/dV(5256) - B(17670) = RCT(11121)*V(4642) -! B(17671) = dA(11122)/dV(4642) - B(17671) = RCT(11122) -! B(17672) = dA(11123)/dV(4642) - B(17672) = RCT(11123) -! B(17673) = dA(11124)/dV(449) - B(17673) = RCT(11124)*V(5250) -! B(17674) = dA(11124)/dV(5250) - B(17674) = RCT(11124)*V(449) -! B(17675) = dA(11125)/dV(1291) - B(17675) = RCT(11125) -! B(17676) = dA(11126)/dV(1291) - B(17676) = RCT(11126)*V(5250) -! B(17677) = dA(11126)/dV(5250) - B(17677) = RCT(11126)*V(1291) -! B(17678) = dA(11127)/dV(3025) - B(17678) = RCT(11127) -! B(17679) = dA(11128)/dV(3025) - B(17679) = RCT(11128)*V(5250) -! B(17680) = dA(11128)/dV(5250) - B(17680) = RCT(11128)*V(3025) -! B(17681) = dA(11129)/dV(1499) - B(17681) = RCT(11129) -! B(17682) = dA(11130)/dV(1499) - B(17682) = RCT(11130)*V(5250) -! B(17683) = dA(11130)/dV(5250) - B(17683) = RCT(11130)*V(1499) -! B(17684) = dA(11131)/dV(2514) - B(17684) = RCT(11131) -! B(17685) = dA(11132)/dV(2514) - B(17685) = RCT(11132)*V(5250) -! B(17686) = dA(11132)/dV(5250) - B(17686) = RCT(11132)*V(2514) -! B(17687) = dA(11133)/dV(2644) - B(17687) = RCT(11133) -! B(17688) = dA(11134)/dV(284) - B(17688) = RCT(11134) -! B(17689) = dA(11135)/dV(284) - B(17689) = RCT(11135)*V(5250) -! B(17690) = dA(11135)/dV(5250) - B(17690) = RCT(11135)*V(284) -! B(17691) = dA(11136)/dV(1191) - B(17691) = RCT(11136) -! B(17692) = dA(11137)/dV(1191) - B(17692) = RCT(11137)*V(5250) -! B(17693) = dA(11137)/dV(5250) - B(17693) = RCT(11137)*V(1191) -! B(17694) = dA(11138)/dV(1607) - B(17694) = RCT(11138) -! B(17695) = dA(11139)/dV(664) - B(17695) = RCT(11139) -! B(17696) = dA(11140)/dV(664) - B(17696) = RCT(11140)*V(5250) -! B(17697) = dA(11140)/dV(5250) - B(17697) = RCT(11140)*V(664) -! B(17698) = dA(11141)/dV(2197) - B(17698) = RCT(11141) -! B(17699) = dA(11142)/dV(2197) - B(17699) = RCT(11142)*V(5250) -! B(17700) = dA(11142)/dV(5250) - B(17700) = RCT(11142)*V(2197) -! B(17701) = dA(11143)/dV(2426) - B(17701) = RCT(11143) -! B(17702) = dA(11144)/dV(2426) - B(17702) = RCT(11144) -! B(17703) = dA(11145)/dV(2426) - B(17703) = RCT(11145)*V(5250) -! B(17704) = dA(11145)/dV(5250) - B(17704) = RCT(11145)*V(2426) -! B(17705) = dA(11146)/dV(1677) - B(17705) = RCT(11146) -! B(17706) = dA(11147)/dV(1637) - B(17706) = RCT(11147) -! B(17707) = dA(11148)/dV(1637) - B(17707) = RCT(11148)*V(5250) -! B(17708) = dA(11148)/dV(5250) - B(17708) = RCT(11148)*V(1637) -! B(17709) = dA(11149)/dV(456) - B(17709) = RCT(11149)*V(5250) -! B(17710) = dA(11149)/dV(5250) - B(17710) = RCT(11149)*V(456) -! B(17711) = dA(11150)/dV(1547) - B(17711) = RCT(11150) -! B(17712) = dA(11151)/dV(1547) - B(17712) = RCT(11151)*V(5250) -! B(17713) = dA(11151)/dV(5250) - B(17713) = RCT(11151)*V(1547) -! B(17714) = dA(11152)/dV(3311) - B(17714) = RCT(11152) -! B(17715) = dA(11153)/dV(3311) - B(17715) = RCT(11153)*V(5250) -! B(17716) = dA(11153)/dV(5250) - B(17716) = RCT(11153)*V(3311) -! B(17717) = dA(11154)/dV(1907) - B(17717) = RCT(11154) -! B(17718) = dA(11155)/dV(1907) - B(17718) = RCT(11155)*V(5250) -! B(17719) = dA(11155)/dV(5250) - B(17719) = RCT(11155)*V(1907) -! B(17720) = dA(11156)/dV(1907) - B(17720) = RCT(11156)*V(5250) -! B(17721) = dA(11156)/dV(5250) - B(17721) = RCT(11156)*V(1907) -! B(17722) = dA(11157)/dV(2419) - B(17722) = RCT(11157) -! B(17723) = dA(11158)/dV(2419) - B(17723) = RCT(11158)*V(5250) -! B(17724) = dA(11158)/dV(5250) - B(17724) = RCT(11158)*V(2419) -! B(17725) = dA(11159)/dV(1552) - B(17725) = RCT(11159) -! B(17726) = dA(11160)/dV(346) - B(17726) = RCT(11160)*V(5250) -! B(17727) = dA(11160)/dV(5250) - B(17727) = RCT(11160)*V(346) -! B(17728) = dA(11161)/dV(4501) - B(17728) = RCT(11161) -! B(17729) = dA(11162)/dV(4501) - B(17729) = RCT(11162)*V(5256) -! B(17730) = dA(11162)/dV(5256) - B(17730) = RCT(11162)*V(4501) -! B(17731) = dA(11163)/dV(4501) - B(17731) = RCT(11163)*V(5250) -! B(17732) = dA(11163)/dV(5250) - B(17732) = RCT(11163)*V(4501) -! B(17733) = dA(11164)/dV(329) - B(17733) = RCT(11164)*V(5250) -! B(17734) = dA(11164)/dV(5250) - B(17734) = RCT(11164)*V(329) -! B(17735) = dA(11165)/dV(975) - B(17735) = RCT(11165) -! B(17736) = dA(11166)/dV(975) - B(17736) = RCT(11166)*V(5250) -! B(17737) = dA(11166)/dV(5250) - B(17737) = RCT(11166)*V(975) -! B(17738) = dA(11167)/dV(2669) - B(17738) = RCT(11167) -! B(17739) = dA(11168)/dV(2669) - B(17739) = RCT(11168)*V(5250) -! B(17740) = dA(11168)/dV(5250) - B(17740) = RCT(11168)*V(2669) -! B(17741) = dA(11169)/dV(519) - B(17741) = RCT(11169)*V(5250) -! B(17742) = dA(11169)/dV(5250) - B(17742) = RCT(11169)*V(519) -! B(17743) = dA(11170)/dV(1477) - B(17743) = RCT(11170) -! B(17744) = dA(11171)/dV(1477) - B(17744) = RCT(11171)*V(5250) -! B(17745) = dA(11171)/dV(5250) - B(17745) = RCT(11171)*V(1477) -! B(17746) = dA(11172)/dV(2778) - B(17746) = RCT(11172) -! B(17747) = dA(11173)/dV(2778) - B(17747) = RCT(11173)*V(5250) -! B(17748) = dA(11173)/dV(5250) - B(17748) = RCT(11173)*V(2778) -! B(17749) = dA(11174)/dV(4573) - B(17749) = RCT(11174)*V(5255) -! B(17750) = dA(11174)/dV(5255) - B(17750) = RCT(11174)*V(4573) -! B(17751) = dA(11175)/dV(4573) - B(17751) = RCT(11175)*V(5252) -! B(17752) = dA(11175)/dV(5252) - B(17752) = RCT(11175)*V(4573) -! B(17753) = dA(11176)/dV(4573) - B(17753) = RCT(11176)*V(5252) -! B(17754) = dA(11176)/dV(5252) - B(17754) = RCT(11176)*V(4573) -! B(17755) = dA(11177)/dV(4573) - B(17755) = RCT(11177)*V(5256) -! B(17756) = dA(11177)/dV(5256) - B(17756) = RCT(11177)*V(4573) -! B(17757) = dA(11178)/dV(4573) - B(17757) = RCT(11178) -! B(17758) = dA(11179)/dV(4573) - B(17758) = RCT(11179) -! B(17759) = dA(11180)/dV(4573) - B(17759) = RCT(11180) -! B(17760) = dA(11181)/dV(4566) - B(17760) = RCT(11181)*V(5255) -! B(17761) = dA(11181)/dV(5255) - B(17761) = RCT(11181)*V(4566) -! B(17762) = dA(11182)/dV(4566) - B(17762) = RCT(11182)*V(5252) -! B(17763) = dA(11182)/dV(5252) - B(17763) = RCT(11182)*V(4566) -! B(17764) = dA(11183)/dV(4566) - B(17764) = RCT(11183)*V(5256) -! B(17765) = dA(11183)/dV(5256) - B(17765) = RCT(11183)*V(4566) -! B(17766) = dA(11184)/dV(4566) - B(17766) = RCT(11184) -! B(17767) = dA(11185)/dV(4566) - B(17767) = RCT(11185) -! B(17768) = dA(11186)/dV(4566) - B(17768) = RCT(11186) -! B(17769) = dA(11187)/dV(4584) - B(17769) = RCT(11187)*V(5255) -! B(17770) = dA(11187)/dV(5255) - B(17770) = RCT(11187)*V(4584) -! B(17771) = dA(11188)/dV(4584) - B(17771) = RCT(11188)*V(5252) -! B(17772) = dA(11188)/dV(5252) - B(17772) = RCT(11188)*V(4584) -! B(17773) = dA(11189)/dV(4584) - B(17773) = RCT(11189)*V(5256) -! B(17774) = dA(11189)/dV(5256) - B(17774) = RCT(11189)*V(4584) -! B(17775) = dA(11190)/dV(4584) - B(17775) = RCT(11190) -! B(17776) = dA(11191)/dV(4584) - B(17776) = RCT(11191) -! B(17777) = dA(11192)/dV(4584) - B(17777) = RCT(11192) -! B(17778) = dA(11193)/dV(1937) - B(17778) = RCT(11193) -! B(17779) = dA(11194)/dV(1937) - B(17779) = RCT(11194) -! B(17780) = dA(11195)/dV(1937) - B(17780) = RCT(11195)*V(5250) -! B(17781) = dA(11195)/dV(5250) - B(17781) = RCT(11195)*V(1937) -! B(17782) = dA(11196)/dV(596) - B(17782) = RCT(11196) -! B(17783) = dA(11197)/dV(2016) - B(17783) = RCT(11197) -! B(17784) = dA(11198)/dV(2016) - B(17784) = RCT(11198)*V(5250) -! B(17785) = dA(11198)/dV(5250) - B(17785) = RCT(11198)*V(2016) -! B(17786) = dA(11199)/dV(534) - B(17786) = RCT(11199) -! B(17787) = dA(11200)/dV(1145) - B(17787) = RCT(11200) -! B(17788) = dA(11201)/dV(1145) - B(17788) = RCT(11201)*V(5250) -! B(17789) = dA(11201)/dV(5250) - B(17789) = RCT(11201)*V(1145) -! B(17790) = dA(11202)/dV(2282) - B(17790) = RCT(11202) -! B(17791) = dA(11203)/dV(2282) - B(17791) = RCT(11203)*V(5250) -! B(17792) = dA(11203)/dV(5250) - B(17792) = RCT(11203)*V(2282) -! B(17793) = dA(11204)/dV(2697) - B(17793) = RCT(11204) -! B(17794) = dA(11205)/dV(3126) - B(17794) = RCT(11205) -! B(17795) = dA(11206)/dV(3126) - B(17795) = RCT(11206)*V(5250) -! B(17796) = dA(11206)/dV(5250) - B(17796) = RCT(11206)*V(3126) -! B(17797) = dA(11207)/dV(758) - B(17797) = RCT(11207) -! B(17798) = dA(11208)/dV(758) - B(17798) = RCT(11208)*V(5250) -! B(17799) = dA(11208)/dV(5250) - B(17799) = RCT(11208)*V(758) -! B(17800) = dA(11209)/dV(3528) - B(17800) = RCT(11209) -! B(17801) = dA(11210)/dV(3528) - B(17801) = RCT(11210) -! B(17802) = dA(11211)/dV(3528) - B(17802) = RCT(11211)*V(5250) -! B(17803) = dA(11211)/dV(5250) - B(17803) = RCT(11211)*V(3528) -! B(17804) = dA(11212)/dV(3528) - B(17804) = RCT(11212)*V(5250) -! B(17805) = dA(11212)/dV(5250) - B(17805) = RCT(11212)*V(3528) -! B(17806) = dA(11213)/dV(734) - B(17806) = RCT(11213) -! B(17807) = dA(11214)/dV(1826) - B(17807) = RCT(11214) -! B(17808) = dA(11215)/dV(1826) - B(17808) = RCT(11215)*V(5250) -! B(17809) = dA(11215)/dV(5250) - B(17809) = RCT(11215)*V(1826) -! B(17810) = dA(11216)/dV(1557) - B(17810) = RCT(11216) -! B(17811) = dA(11217)/dV(1557) - B(17811) = RCT(11217)*V(5250) -! B(17812) = dA(11217)/dV(5250) - B(17812) = RCT(11217)*V(1557) -! B(17813) = dA(11218)/dV(4802) - B(17813) = RCT(11218)*V(5255) -! B(17814) = dA(11218)/dV(5255) - B(17814) = RCT(11218)*V(4802) -! B(17815) = dA(11219)/dV(4802) - B(17815) = RCT(11219)*V(5252) -! B(17816) = dA(11219)/dV(5252) - B(17816) = RCT(11219)*V(4802) -! B(17817) = dA(11220)/dV(4802) - B(17817) = RCT(11220)*V(5252) -! B(17818) = dA(11220)/dV(5252) - B(17818) = RCT(11220)*V(4802) -! B(17819) = dA(11221)/dV(4802) - B(17819) = RCT(11221)*V(5256) -! B(17820) = dA(11221)/dV(5256) - B(17820) = RCT(11221)*V(4802) -! B(17821) = dA(11222)/dV(4802) - B(17821) = RCT(11222) -! B(17822) = dA(11223)/dV(4802) - B(17822) = RCT(11223) -! B(17823) = dA(11224)/dV(4309) - B(17823) = RCT(11224)*V(5255) -! B(17824) = dA(11224)/dV(5255) - B(17824) = RCT(11224)*V(4309) -! B(17825) = dA(11225)/dV(4309) - B(17825) = RCT(11225)*V(5252) -! B(17826) = dA(11225)/dV(5252) - B(17826) = RCT(11225)*V(4309) -! B(17827) = dA(11226)/dV(4309) - B(17827) = RCT(11226)*V(5256) -! B(17828) = dA(11226)/dV(5256) - B(17828) = RCT(11226)*V(4309) -! B(17829) = dA(11227)/dV(4309) - B(17829) = RCT(11227) -! B(17830) = dA(11228)/dV(4309) - B(17830) = RCT(11228) -! B(17831) = dA(11229)/dV(4811) - B(17831) = RCT(11229)*V(5255) -! B(17832) = dA(11229)/dV(5255) - B(17832) = RCT(11229)*V(4811) -! B(17833) = dA(11230)/dV(4811) - B(17833) = RCT(11230)*V(5252) -! B(17834) = dA(11230)/dV(5252) - B(17834) = RCT(11230)*V(4811) -! B(17835) = dA(11231)/dV(4811) - B(17835) = RCT(11231)*V(5256) -! B(17836) = dA(11231)/dV(5256) - B(17836) = RCT(11231)*V(4811) -! B(17837) = dA(11232)/dV(4811) - B(17837) = RCT(11232) -! B(17838) = dA(11233)/dV(4811) - B(17838) = RCT(11233) -! B(17839) = dA(11234)/dV(4811) - B(17839) = RCT(11234) -! B(17840) = dA(11235)/dV(2095) - B(17840) = RCT(11235) -! B(17841) = dA(11236)/dV(2095) - B(17841) = RCT(11236)*V(5250) -! B(17842) = dA(11236)/dV(5250) - B(17842) = RCT(11236)*V(2095) -! B(17843) = dA(11237)/dV(571) - B(17843) = RCT(11237) -! B(17844) = dA(11238)/dV(2331) - B(17844) = RCT(11238) -! B(17845) = dA(11239)/dV(2331) - B(17845) = RCT(11239)*V(5250) -! B(17846) = dA(11239)/dV(5250) - B(17846) = RCT(11239)*V(2331) -! B(17847) = dA(11240)/dV(2331) - B(17847) = RCT(11240)*V(5250) -! B(17848) = dA(11240)/dV(5250) - B(17848) = RCT(11240)*V(2331) -! B(17849) = dA(11241)/dV(1829) - B(17849) = RCT(11241) -! B(17850) = dA(11242)/dV(1829) - B(17850) = RCT(11242)*V(5250) -! B(17851) = dA(11242)/dV(5250) - B(17851) = RCT(11242)*V(1829) -! B(17852) = dA(11243)/dV(200) - B(17852) = RCT(11243) -! B(17853) = dA(11244)/dV(306) - B(17853) = RCT(11244)*V(5250) -! B(17854) = dA(11244)/dV(5250) - B(17854) = RCT(11244)*V(306) -! B(17855) = dA(11245)/dV(4537) - B(17855) = RCT(11245) -! B(17856) = dA(11246)/dV(4537) - B(17856) = RCT(11246)*V(5256) -! B(17857) = dA(11246)/dV(5256) - B(17857) = RCT(11246)*V(4537) -! B(17858) = dA(11247)/dV(4537) - B(17858) = RCT(11247)*V(5250) -! B(17859) = dA(11247)/dV(5250) - B(17859) = RCT(11247)*V(4537) -! B(17860) = dA(11248)/dV(280) - B(17860) = RCT(11248)*V(5250) -! B(17861) = dA(11248)/dV(5250) - B(17861) = RCT(11248)*V(280) -! B(17862) = dA(11249)/dV(1196) - B(17862) = RCT(11249) -! B(17863) = dA(11250)/dV(1196) - B(17863) = RCT(11250)*V(5250) -! B(17864) = dA(11250)/dV(5250) - B(17864) = RCT(11250)*V(1196) -! B(17865) = dA(11251)/dV(2496) - B(17865) = RCT(11251) -! B(17866) = dA(11252)/dV(2496) - B(17866) = RCT(11252)*V(5250) -! B(17867) = dA(11252)/dV(5250) - B(17867) = RCT(11252)*V(2496) -! B(17868) = dA(11253)/dV(1136) - B(17868) = RCT(11253) -! B(17869) = dA(11254)/dV(1136) - B(17869) = RCT(11254)*V(5250) -! B(17870) = dA(11254)/dV(5250) - B(17870) = RCT(11254)*V(1136) -! B(17871) = dA(11255)/dV(2185) - B(17871) = RCT(11255) -! B(17872) = dA(11256)/dV(2185) - B(17872) = RCT(11256)*V(5250) -! B(17873) = dA(11256)/dV(5250) - B(17873) = RCT(11256)*V(2185) -! B(17874) = dA(11257)/dV(3009) - B(17874) = RCT(11257) -! B(17875) = dA(11258)/dV(807) - B(17875) = RCT(11258) -! B(17876) = dA(11259)/dV(807) - B(17876) = RCT(11259)*V(5250) -! B(17877) = dA(11259)/dV(5250) - B(17877) = RCT(11259)*V(807) -! B(17878) = dA(11260)/dV(3504) - B(17878) = RCT(11260) -! B(17879) = dA(11261)/dV(3504) - B(17879) = RCT(11261)*V(5250) -! B(17880) = dA(11261)/dV(5250) - B(17880) = RCT(11261)*V(3504) -! B(17881) = dA(11262)/dV(4369) - B(17881) = RCT(11262)*V(5255) -! B(17882) = dA(11262)/dV(5255) - B(17882) = RCT(11262)*V(4369) -! B(17883) = dA(11263)/dV(4369) - B(17883) = RCT(11263)*V(5252) -! B(17884) = dA(11263)/dV(5252) - B(17884) = RCT(11263)*V(4369) -! B(17885) = dA(11264)/dV(4369) - B(17885) = RCT(11264)*V(5256) -! B(17886) = dA(11264)/dV(5256) - B(17886) = RCT(11264)*V(4369) -! B(17887) = dA(11265)/dV(4369) - B(17887) = RCT(11265) -! B(17888) = dA(11266)/dV(4369) - B(17888) = RCT(11266) -! B(17889) = dA(11267)/dV(4369) - B(17889) = RCT(11267) -! B(17890) = dA(11268)/dV(2316) - B(17890) = RCT(11268) -! B(17891) = dA(11269)/dV(2316) - B(17891) = RCT(11269)*V(5250) -! B(17892) = dA(11269)/dV(5250) - B(17892) = RCT(11269)*V(2316) -! B(17893) = dA(11270)/dV(539) - B(17893) = RCT(11270) -! B(17894) = dA(11271)/dV(1446) - B(17894) = RCT(11271) -! B(17895) = dA(11272)/dV(1446) - B(17895) = RCT(11272)*V(5250) -! B(17896) = dA(11272)/dV(5250) - B(17896) = RCT(11272)*V(1446) -! B(17897) = dA(11273)/dV(2124) - B(17897) = RCT(11273) -! B(17898) = dA(11274)/dV(2124) - B(17898) = RCT(11274)*V(5250) -! B(17899) = dA(11274)/dV(5250) - B(17899) = RCT(11274)*V(2124) -! B(17900) = dA(11275)/dV(2642) - B(17900) = RCT(11275) -! B(17901) = dA(11276)/dV(3522) - B(17901) = RCT(11276) -! B(17902) = dA(11277)/dV(3522) - B(17902) = RCT(11277)*V(5250) -! B(17903) = dA(11277)/dV(5250) - B(17903) = RCT(11277)*V(3522) -! B(17904) = dA(11278)/dV(616) - B(17904) = RCT(11278) -! B(17905) = dA(11279)/dV(616) - B(17905) = RCT(11279)*V(5250) -! B(17906) = dA(11279)/dV(5250) - B(17906) = RCT(11279)*V(616) -! B(17907) = dA(11280)/dV(4349) - B(17907) = RCT(11280)*V(5255) -! B(17908) = dA(11280)/dV(5255) - B(17908) = RCT(11280)*V(4349) -! B(17909) = dA(11281)/dV(4349) - B(17909) = RCT(11281)*V(5252) -! B(17910) = dA(11281)/dV(5252) - B(17910) = RCT(11281)*V(4349) -! B(17911) = dA(11282)/dV(4349) - B(17911) = RCT(11282)*V(5256) -! B(17912) = dA(11282)/dV(5256) - B(17912) = RCT(11282)*V(4349) -! B(17913) = dA(11283)/dV(4349) - B(17913) = RCT(11283) -! B(17914) = dA(11284)/dV(4349) - B(17914) = RCT(11284) -! B(17915) = dA(11285)/dV(4349) - B(17915) = RCT(11285) -! B(17916) = dA(11286)/dV(2027) - B(17916) = RCT(11286) -! B(17917) = dA(11287)/dV(2027) - B(17917) = RCT(11287)*V(5250) -! B(17918) = dA(11287)/dV(5250) - B(17918) = RCT(11287)*V(2027) -! B(17919) = dA(11288)/dV(791) - B(17919) = RCT(11288) -! B(17920) = dA(11289)/dV(1115) - B(17920) = RCT(11289) -! B(17921) = dA(11290)/dV(1115) - B(17921) = RCT(11290)*V(5250) -! B(17922) = dA(11290)/dV(5250) - B(17922) = RCT(11290)*V(1115) -! B(17923) = dA(11291)/dV(2760) - B(17923) = RCT(11291) -! B(17924) = dA(11292)/dV(967) - B(17924) = RCT(11292) -! B(17925) = dA(11293)/dV(967) - B(17925) = RCT(11293)*V(5250) -! B(17926) = dA(11293)/dV(5250) - B(17926) = RCT(11293)*V(967) -! B(17927) = dA(11294)/dV(2245) - B(17927) = RCT(11294) -! B(17928) = dA(11295)/dV(2245) - B(17928) = RCT(11295)*V(5250) -! B(17929) = dA(11295)/dV(5250) - B(17929) = RCT(11295)*V(2245) -! B(17930) = dA(11296)/dV(2594) - B(17930) = RCT(11296) -! B(17931) = dA(11297)/dV(3544) - B(17931) = RCT(11297) -! B(17932) = dA(11298)/dV(3544) - B(17932) = RCT(11298)*V(5250) -! B(17933) = dA(11298)/dV(5250) - B(17933) = RCT(11298)*V(3544) -! B(17934) = dA(11299)/dV(671) - B(17934) = RCT(11299) -! B(17935) = dA(11300)/dV(671) - B(17935) = RCT(11300)*V(5250) -! B(17936) = dA(11300)/dV(5250) - B(17936) = RCT(11300)*V(671) -! B(17937) = dA(11301)/dV(4389) - B(17937) = RCT(11301)*V(5255) -! B(17938) = dA(11301)/dV(5255) - B(17938) = RCT(11301)*V(4389) -! B(17939) = dA(11302)/dV(4389) - B(17939) = RCT(11302)*V(5252) -! B(17940) = dA(11302)/dV(5252) - B(17940) = RCT(11302)*V(4389) -! B(17941) = dA(11303)/dV(4389) - B(17941) = RCT(11303)*V(5256) -! B(17942) = dA(11303)/dV(5256) - B(17942) = RCT(11303)*V(4389) -! B(17943) = dA(11304)/dV(4389) - B(17943) = RCT(11304) -! B(17944) = dA(11305)/dV(4389) - B(17944) = RCT(11305) -! B(17945) = dA(11306)/dV(4389) - B(17945) = RCT(11306) -! B(17946) = dA(11307)/dV(2298) - B(17946) = RCT(11307) -! B(17947) = dA(11308)/dV(2298) - B(17947) = RCT(11308)*V(5250) -! B(17948) = dA(11308)/dV(5250) - B(17948) = RCT(11308)*V(2298) -! B(17949) = dA(11309)/dV(776) - B(17949) = RCT(11309) -! B(17950) = dA(11310)/dV(1122) - B(17950) = RCT(11310) -! B(17951) = dA(11311)/dV(1122) - B(17951) = RCT(11311)*V(5250) -! B(17952) = dA(11311)/dV(5250) - B(17952) = RCT(11311)*V(1122) -! B(17953) = dA(11312)/dV(2874) - B(17953) = RCT(11312) -! B(17954) = dA(11313)/dV(1526) - B(17954) = RCT(11313) -! B(17955) = dA(11314)/dV(1526) - B(17955) = RCT(11314)*V(5250) -! B(17956) = dA(11314)/dV(5250) - B(17956) = RCT(11314)*V(1526) -! B(17957) = dA(11315)/dV(2330) - B(17957) = RCT(11315) -! B(17958) = dA(11316)/dV(2330) - B(17958) = RCT(11316)*V(5250) -! B(17959) = dA(11316)/dV(5250) - B(17959) = RCT(11316)*V(2330) -! B(17960) = dA(11317)/dV(2638) - B(17960) = RCT(11317) -! B(17961) = dA(11318)/dV(3493) - B(17961) = RCT(11318) -! B(17962) = dA(11319)/dV(3493) - B(17962) = RCT(11319)*V(5250) -! B(17963) = dA(11319)/dV(5250) - B(17963) = RCT(11319)*V(3493) -! B(17964) = dA(11320)/dV(804) - B(17964) = RCT(11320) -! B(17965) = dA(11321)/dV(804) - B(17965) = RCT(11321)*V(5250) -! B(17966) = dA(11321)/dV(5250) - B(17966) = RCT(11321)*V(804) -! B(17967) = dA(11322)/dV(4361) - B(17967) = RCT(11322)*V(5255) -! B(17968) = dA(11322)/dV(5255) - B(17968) = RCT(11322)*V(4361) -! B(17969) = dA(11323)/dV(4361) - B(17969) = RCT(11323)*V(5252) -! B(17970) = dA(11323)/dV(5252) - B(17970) = RCT(11323)*V(4361) -! B(17971) = dA(11324)/dV(4361) - B(17971) = RCT(11324)*V(5256) -! B(17972) = dA(11324)/dV(5256) - B(17972) = RCT(11324)*V(4361) -! B(17973) = dA(11325)/dV(4361) - B(17973) = RCT(11325) -! B(17974) = dA(11326)/dV(4361) - B(17974) = RCT(11326) -! B(17975) = dA(11327)/dV(4361) - B(17975) = RCT(11327) -! B(17976) = dA(11328)/dV(2411) - B(17976) = RCT(11328) -! B(17977) = dA(11329)/dV(2411) - B(17977) = RCT(11329)*V(5250) -! B(17978) = dA(11329)/dV(5250) - B(17978) = RCT(11329)*V(2411) -! B(17979) = dA(11330)/dV(528) - B(17979) = RCT(11330) -! B(17980) = dA(11331)/dV(1398) - B(17980) = RCT(11331) -! B(17981) = dA(11332)/dV(1398) - B(17981) = RCT(11332)*V(5250) -! B(17982) = dA(11332)/dV(5250) - B(17982) = RCT(11332)*V(1398) -! B(17983) = dA(11333)/dV(2676) - B(17983) = RCT(11333) -! B(17984) = dA(11334)/dV(1543) - B(17984) = RCT(11334) -! B(17985) = dA(11335)/dV(1543) - B(17985) = RCT(11335)*V(5250) -! B(17986) = dA(11335)/dV(5250) - B(17986) = RCT(11335)*V(1543) -! B(17987) = dA(11336)/dV(2271) - B(17987) = RCT(11336) -! B(17988) = dA(11337)/dV(2271) - B(17988) = RCT(11337)*V(5250) -! B(17989) = dA(11337)/dV(5250) - B(17989) = RCT(11337)*V(2271) -! B(17990) = dA(11338)/dV(2562) - B(17990) = RCT(11338) -! B(17991) = dA(11339)/dV(3548) - B(17991) = RCT(11339) -! B(17992) = dA(11340)/dV(3548) - B(17992) = RCT(11340)*V(5250) -! B(17993) = dA(11340)/dV(5250) - B(17993) = RCT(11340)*V(3548) -! B(17994) = dA(11341)/dV(762) - B(17994) = RCT(11341) -! B(17995) = dA(11342)/dV(762) - B(17995) = RCT(11342)*V(5250) -! B(17996) = dA(11342)/dV(5250) - B(17996) = RCT(11342)*V(762) -! B(17997) = dA(11343)/dV(4850) - B(17997) = RCT(11343)*V(5255) -! B(17998) = dA(11343)/dV(5255) - B(17998) = RCT(11343)*V(4850) -! B(17999) = dA(11344)/dV(4850) - B(17999) = RCT(11344)*V(5255) -! B(18000) = dA(11344)/dV(5255) - B(18000) = RCT(11344)*V(4850) -! B(18001) = dA(11345)/dV(4850) - B(18001) = RCT(11345)*V(5255) -! B(18002) = dA(11345)/dV(5255) - B(18002) = RCT(11345)*V(4850) -! B(18003) = dA(11346)/dV(4850) - B(18003) = RCT(11346)*V(5252) -! B(18004) = dA(11346)/dV(5252) - B(18004) = RCT(11346)*V(4850) -! B(18005) = dA(11347)/dV(4850) - B(18005) = RCT(11347)*V(5253) -! B(18006) = dA(11347)/dV(5253) - B(18006) = RCT(11347)*V(4850) -! B(18007) = dA(11348)/dV(4850) - B(18007) = RCT(11348)*V(5256) -! B(18008) = dA(11348)/dV(5256) - B(18008) = RCT(11348)*V(4850) -! B(18009) = dA(11349)/dV(4850) - B(18009) = RCT(11349) -! B(18010) = dA(11350)/dV(4850) - B(18010) = RCT(11350) -! B(18011) = dA(11351)/dV(4355) - B(18011) = RCT(11351)*V(5255) -! B(18012) = dA(11351)/dV(5255) - B(18012) = RCT(11351)*V(4355) -! B(18013) = dA(11352)/dV(4355) - B(18013) = RCT(11352)*V(5252) -! B(18014) = dA(11352)/dV(5252) - B(18014) = RCT(11352)*V(4355) -! B(18015) = dA(11353)/dV(4355) - B(18015) = RCT(11353)*V(5256) -! B(18016) = dA(11353)/dV(5256) - B(18016) = RCT(11353)*V(4355) -! B(18017) = dA(11354)/dV(4355) - B(18017) = RCT(11354) -! B(18018) = dA(11355)/dV(4355) - B(18018) = RCT(11355) -! B(18019) = dA(11356)/dV(4355) - B(18019) = RCT(11356) -! B(18020) = dA(11357)/dV(2205) - B(18020) = RCT(11357) -! B(18021) = dA(11358)/dV(2205) - B(18021) = RCT(11358)*V(5250) -! B(18022) = dA(11358)/dV(5250) - B(18022) = RCT(11358)*V(2205) -! B(18023) = dA(11359)/dV(574) - B(18023) = RCT(11359) -! B(18024) = dA(11360)/dV(1478) - B(18024) = RCT(11360)*V(5250) -! B(18025) = dA(11360)/dV(5250) - B(18025) = RCT(11360)*V(1478) -! B(18026) = dA(11361)/dV(1478) - B(18026) = RCT(11361) -! B(18027) = dA(11362)/dV(3015) - B(18027) = RCT(11362)*V(5250) -! B(18028) = dA(11362)/dV(5250) - B(18028) = RCT(11362)*V(3015) -! B(18029) = dA(11363)/dV(3015) - B(18029) = RCT(11363) -! B(18030) = dA(11364)/dV(1998) - B(18030) = RCT(11364) -! B(18031) = dA(11365)/dV(408) - B(18031) = RCT(11365)*V(5250) -! B(18032) = dA(11365)/dV(5250) - B(18032) = RCT(11365)*V(408) -! B(18033) = dA(11366)/dV(1947) - B(18033) = RCT(11366)*V(5250) -! B(18034) = dA(11366)/dV(5250) - B(18034) = RCT(11366)*V(1947) -! B(18035) = dA(11367)/dV(1947) - B(18035) = RCT(11367) -! B(18036) = dA(11368)/dV(777) - B(18036) = RCT(11368) -! B(18037) = dA(11369)/dV(4651) - B(18037) = RCT(11369)*V(5256) -! B(18038) = dA(11369)/dV(5256) - B(18038) = RCT(11369)*V(4651) -! B(18039) = dA(11370)/dV(4651) - B(18039) = RCT(11370)*V(5250) -! B(18040) = dA(11370)/dV(5250) - B(18040) = RCT(11370)*V(4651) -! B(18041) = dA(11371)/dV(4651) - B(18041) = RCT(11371) -! B(18042) = dA(11372)/dV(331) - B(18042) = RCT(11372)*V(5250) -! B(18043) = dA(11372)/dV(5250) - B(18043) = RCT(11372)*V(331) -! B(18044) = dA(11373)/dV(110) - B(18044) = RCT(11373)*V(5250) -! B(18045) = dA(11373)/dV(5250) - B(18045) = RCT(11373)*V(110) -! B(18046) = dA(11374)/dV(5059) - B(18046) = RCT(11374)*V(5255) -! B(18047) = dA(11374)/dV(5255) - B(18047) = RCT(11374)*V(5059) -! B(18048) = dA(11375)/dV(5059) - B(18048) = RCT(11375)*V(5252) -! B(18049) = dA(11375)/dV(5252) - B(18049) = RCT(11375)*V(5059) -! B(18050) = dA(11376)/dV(5059) - B(18050) = RCT(11376)*V(5256) -! B(18051) = dA(11376)/dV(5256) - B(18051) = RCT(11376)*V(5059) -! B(18052) = dA(11377)/dV(5059) - B(18052) = RCT(11377) -! B(18053) = dA(11378)/dV(5059) - B(18053) = RCT(11378) -! B(18054) = dA(11379)/dV(5059) - B(18054) = RCT(11379) -! B(18055) = dA(11380)/dV(4467) - B(18055) = RCT(11380)*V(5255) -! B(18056) = dA(11380)/dV(5255) - B(18056) = RCT(11380)*V(4467) -! B(18057) = dA(11381)/dV(4467) - B(18057) = RCT(11381)*V(5252) -! B(18058) = dA(11381)/dV(5252) - B(18058) = RCT(11381)*V(4467) -! B(18059) = dA(11382)/dV(4467) - B(18059) = RCT(11382)*V(5256) -! B(18060) = dA(11382)/dV(5256) - B(18060) = RCT(11382)*V(4467) -! B(18061) = dA(11383)/dV(4467) - B(18061) = RCT(11383) -! B(18062) = dA(11384)/dV(4271) - B(18062) = RCT(11384)*V(5255) -! B(18063) = dA(11384)/dV(5255) - B(18063) = RCT(11384)*V(4271) -! B(18064) = dA(11385)/dV(4271) - B(18064) = RCT(11385)*V(5252) -! B(18065) = dA(11385)/dV(5252) - B(18065) = RCT(11385)*V(4271) -! B(18066) = dA(11386)/dV(4271) - B(18066) = RCT(11386)*V(5256) -! B(18067) = dA(11386)/dV(5256) - B(18067) = RCT(11386)*V(4271) -! B(18068) = dA(11387)/dV(4271) - B(18068) = RCT(11387) -! B(18069) = dA(11388)/dV(1427) - B(18069) = RCT(11388)*V(5250) -! B(18070) = dA(11388)/dV(5250) - B(18070) = RCT(11388)*V(1427) -! B(18071) = dA(11389)/dV(1427) - B(18071) = RCT(11389) -! B(18072) = dA(11390)/dV(979) - B(18072) = RCT(11390)*V(5250) -! B(18073) = dA(11390)/dV(5250) - B(18073) = RCT(11390)*V(979) -! B(18074) = dA(11391)/dV(979) - B(18074) = RCT(11391) -! B(18075) = dA(11392)/dV(2535) - B(18075) = RCT(11392) -! B(18076) = dA(11393)/dV(1105) - B(18076) = RCT(11393)*V(5250) -! B(18077) = dA(11393)/dV(5250) - B(18077) = RCT(11393)*V(1105) -! B(18078) = dA(11394)/dV(1105) - B(18078) = RCT(11394) -! B(18079) = dA(11395)/dV(2731) - B(18079) = RCT(11395) -! B(18080) = dA(11396)/dV(1943) - B(18080) = RCT(11396)*V(5250) -! B(18081) = dA(11396)/dV(5250) - B(18081) = RCT(11396)*V(1943) -! B(18082) = dA(11397)/dV(1943) - B(18082) = RCT(11397) -! B(18083) = dA(11398)/dV(535) - B(18083) = RCT(11398) -! B(18084) = dA(11399)/dV(491) - B(18084) = RCT(11399)*V(5250) -! B(18085) = dA(11399)/dV(5250) - B(18085) = RCT(11399)*V(491) -! B(18086) = dA(11400)/dV(491) - B(18086) = RCT(11400) -! B(18087) = dA(11401)/dV(130) - B(18087) = RCT(11401) -! B(18088) = dA(11402)/dV(490) - B(18088) = RCT(11402)*V(5250) -! B(18089) = dA(11402)/dV(5250) - B(18089) = RCT(11402)*V(490) -! B(18090) = dA(11403)/dV(212) - B(18090) = RCT(11403)*V(5250) -! B(18091) = dA(11403)/dV(5250) - B(18091) = RCT(11403)*V(212) -! B(18092) = dA(11404)/dV(2046) - B(18092) = RCT(11404)*V(5250) -! B(18093) = dA(11404)/dV(5250) - B(18093) = RCT(11404)*V(2046) -! B(18094) = dA(11405)/dV(2046) - B(18094) = RCT(11405) -! B(18095) = dA(11406)/dV(816) - B(18095) = RCT(11406) -! B(18096) = dA(11407)/dV(518) - B(18096) = RCT(11407)*V(5250) -! B(18097) = dA(11407)/dV(5250) - B(18097) = RCT(11407)*V(518) -! B(18098) = dA(11408)/dV(518) - B(18098) = RCT(11408) -! B(18099) = dA(11409)/dV(14) - B(18099) = RCT(11409) -! B(18100) = dA(11410)/dV(455) - B(18100) = RCT(11410)*V(5250) -! B(18101) = dA(11410)/dV(5250) - B(18101) = RCT(11410)*V(455) -! B(18102) = dA(11411)/dV(372) - B(18102) = RCT(11411)*V(5250) -! B(18103) = dA(11411)/dV(5250) - B(18103) = RCT(11411)*V(372) -! B(18104) = dA(11412)/dV(4458) - B(18104) = RCT(11412)*V(5255) -! B(18105) = dA(11412)/dV(5255) - B(18105) = RCT(11412)*V(4458) -! B(18106) = dA(11413)/dV(4458) - B(18106) = RCT(11413)*V(5252) -! B(18107) = dA(11413)/dV(5252) - B(18107) = RCT(11413)*V(4458) -! B(18108) = dA(11414)/dV(4458) - B(18108) = RCT(11414)*V(5256) -! B(18109) = dA(11414)/dV(5256) - B(18109) = RCT(11414)*V(4458) -! B(18110) = dA(11415)/dV(4458) - B(18110) = RCT(11415) -! B(18111) = dA(11416)/dV(4306) - B(18111) = RCT(11416)*V(5255) -! B(18112) = dA(11416)/dV(5255) - B(18112) = RCT(11416)*V(4306) -! B(18113) = dA(11417)/dV(4306) - B(18113) = RCT(11417)*V(5252) -! B(18114) = dA(11417)/dV(5252) - B(18114) = RCT(11417)*V(4306) -! B(18115) = dA(11418)/dV(4306) - B(18115) = RCT(11418)*V(5256) -! B(18116) = dA(11418)/dV(5256) - B(18116) = RCT(11418)*V(4306) -! B(18117) = dA(11419)/dV(4306) - B(18117) = RCT(11419) -! B(18118) = dA(11420)/dV(1230) - B(18118) = RCT(11420)*V(5250) -! B(18119) = dA(11420)/dV(5250) - B(18119) = RCT(11420)*V(1230) -! B(18120) = dA(11421)/dV(1230) - B(18120) = RCT(11421) -! B(18121) = dA(11422)/dV(1096) - B(18121) = RCT(11422)*V(5250) -! B(18122) = dA(11422)/dV(5250) - B(18122) = RCT(11422)*V(1096) -! B(18123) = dA(11423)/dV(1096) - B(18123) = RCT(11423) -! B(18124) = dA(11424)/dV(2536) - B(18124) = RCT(11424) -! B(18125) = dA(11425)/dV(1322) - B(18125) = RCT(11425)*V(5250) -! B(18126) = dA(11425)/dV(5250) - B(18126) = RCT(11425)*V(1322) -! B(18127) = dA(11426)/dV(1322) - B(18127) = RCT(11426) -! B(18128) = dA(11427)/dV(3001) - B(18128) = RCT(11427) -! B(18129) = dA(11428)/dV(3484) - B(18129) = RCT(11428)*V(5256) -! B(18130) = dA(11428)/dV(5256) - B(18130) = RCT(11428)*V(3484) -! B(18131) = dA(11429)/dV(3484) - B(18131) = RCT(11429)*V(5250) -! B(18132) = dA(11429)/dV(5250) - B(18132) = RCT(11429)*V(3484) -! B(18133) = dA(11430)/dV(3484) - B(18133) = RCT(11430) -! B(18134) = dA(11431)/dV(5018) - B(18134) = RCT(11431)*V(5256) -! B(18135) = dA(11431)/dV(5256) - B(18135) = RCT(11431)*V(5018) -! B(18136) = dA(11432)/dV(5018) - B(18136) = RCT(11432)*V(5250) -! B(18137) = dA(11432)/dV(5250) - B(18137) = RCT(11432)*V(5018) -! B(18138) = dA(11433)/dV(5018) - B(18138) = RCT(11433) -! B(18139) = dA(11434)/dV(2107) - B(18139) = RCT(11434)*V(5250) -! B(18140) = dA(11434)/dV(5250) - B(18140) = RCT(11434)*V(2107) -! B(18141) = dA(11435)/dV(2107) - B(18141) = RCT(11435) -! B(18142) = dA(11436)/dV(693) - B(18142) = RCT(11436) -! B(18143) = dA(11437)/dV(56) - B(18143) = RCT(11437)*V(5250) -! B(18144) = dA(11437)/dV(5250) - B(18144) = RCT(11437)*V(56) -! B(18145) = dA(11438)/dV(3535) - B(18145) = RCT(11438)*V(5250) -! B(18146) = dA(11438)/dV(5250) - B(18146) = RCT(11438)*V(3535) -! B(18147) = dA(11439)/dV(3535) - B(18147) = RCT(11439) -! B(18148) = dA(11440)/dV(4188) - B(18148) = RCT(11440)*V(5255) -! B(18149) = dA(11440)/dV(5255) - B(18149) = RCT(11440)*V(4188) -! B(18150) = dA(11441)/dV(4188) - B(18150) = RCT(11441)*V(5252) -! B(18151) = dA(11441)/dV(5252) - B(18151) = RCT(11441)*V(4188) -! B(18152) = dA(11442)/dV(4188) - B(18152) = RCT(11442)*V(5256) -! B(18153) = dA(11442)/dV(5256) - B(18153) = RCT(11442)*V(4188) -! B(18154) = dA(11443)/dV(4188) - B(18154) = RCT(11443) -! B(18155) = dA(11444)/dV(4415) - B(18155) = RCT(11444)*V(5255) -! B(18156) = dA(11444)/dV(5255) - B(18156) = RCT(11444)*V(4415) -! B(18157) = dA(11445)/dV(4415) - B(18157) = RCT(11445)*V(5252) -! B(18158) = dA(11445)/dV(5252) - B(18158) = RCT(11445)*V(4415) -! B(18159) = dA(11446)/dV(4415) - B(18159) = RCT(11446)*V(5256) -! B(18160) = dA(11446)/dV(5256) - B(18160) = RCT(11446)*V(4415) -! B(18161) = dA(11447)/dV(4415) - B(18161) = RCT(11447) -! B(18162) = dA(11448)/dV(4298) - B(18162) = RCT(11448)*V(5255) -! B(18163) = dA(11448)/dV(5255) - B(18163) = RCT(11448)*V(4298) -! B(18164) = dA(11449)/dV(4298) - B(18164) = RCT(11449)*V(5252) -! B(18165) = dA(11449)/dV(5252) - B(18165) = RCT(11449)*V(4298) -! B(18166) = dA(11450)/dV(4298) - B(18166) = RCT(11450)*V(5256) -! B(18167) = dA(11450)/dV(5256) - B(18167) = RCT(11450)*V(4298) -! B(18168) = dA(11451)/dV(4298) - B(18168) = RCT(11451) -! B(18169) = dA(11452)/dV(978) - B(18169) = RCT(11452)*V(5250) -! B(18170) = dA(11452)/dV(5250) - B(18170) = RCT(11452)*V(978) -! B(18171) = dA(11453)/dV(978) - B(18171) = RCT(11453) -! B(18172) = dA(11454)/dV(2093) - B(18172) = RCT(11454)*V(5250) -! B(18173) = dA(11454)/dV(5250) - B(18173) = RCT(11454)*V(2093) -! B(18174) = dA(11455)/dV(2093) - B(18174) = RCT(11455) -! B(18175) = dA(11456)/dV(809) - B(18175) = RCT(11456) -! B(18176) = dA(11457)/dV(398) - B(18176) = RCT(11457)*V(5250) -! B(18177) = dA(11457)/dV(5250) - B(18177) = RCT(11457)*V(398) -! B(18178) = dA(11458)/dV(398) - B(18178) = RCT(11458) -! B(18179) = dA(11459)/dV(120) - B(18179) = RCT(11459) -! B(18180) = dA(11460)/dV(397) - B(18180) = RCT(11460)*V(5250) -! B(18181) = dA(11460)/dV(5250) - B(18181) = RCT(11460)*V(397) -! B(18182) = dA(11461)/dV(299) - B(18182) = RCT(11461)*V(5250) -! B(18183) = dA(11461)/dV(5250) - B(18183) = RCT(11461)*V(299) -! B(18184) = dA(11462)/dV(1104) - B(18184) = RCT(11462)*V(5250) -! B(18185) = dA(11462)/dV(5250) - B(18185) = RCT(11462)*V(1104) -! B(18186) = dA(11463)/dV(1104) - B(18186) = RCT(11463) -! B(18187) = dA(11464)/dV(2918) - B(18187) = RCT(11464) -! B(18188) = dA(11465)/dV(917) - B(18188) = RCT(11465)*V(5250) -! B(18189) = dA(11465)/dV(5250) - B(18189) = RCT(11465)*V(917) -! B(18190) = dA(11466)/dV(917) - B(18190) = RCT(11466) -! B(18191) = dA(11467)/dV(2641) - B(18191) = RCT(11467) -! B(18192) = dA(11468)/dV(542) - B(18192) = RCT(11468)*V(5250) -! B(18193) = dA(11468)/dV(5250) - B(18193) = RCT(11468)*V(542) -! B(18194) = dA(11469)/dV(542) - B(18194) = RCT(11469) -! B(18195) = dA(11470)/dV(3914) - B(18195) = RCT(11470)*V(5256) -! B(18196) = dA(11470)/dV(5256) - B(18196) = RCT(11470)*V(3914) -! B(18197) = dA(11471)/dV(3914) - B(18197) = RCT(11471)*V(5250) -! B(18198) = dA(11471)/dV(5250) - B(18198) = RCT(11471)*V(3914) -! B(18199) = dA(11472)/dV(3914) - B(18199) = RCT(11472) -! B(18200) = dA(11473)/dV(4742) - B(18200) = RCT(11473)*V(5255) -! B(18201) = dA(11473)/dV(5255) - B(18201) = RCT(11473)*V(4742) -! B(18202) = dA(11474)/dV(4742) - B(18202) = RCT(11474)*V(5252) -! B(18203) = dA(11474)/dV(5252) - B(18203) = RCT(11474)*V(4742) -! B(18204) = dA(11475)/dV(4742) - B(18204) = RCT(11475)*V(5256) -! B(18205) = dA(11475)/dV(5256) - B(18205) = RCT(11475)*V(4742) -! B(18206) = dA(11476)/dV(4742) - B(18206) = RCT(11476) -! B(18207) = dA(11477)/dV(3911) - B(18207) = RCT(11477)*V(5256) -! B(18208) = dA(11477)/dV(5256) - B(18208) = RCT(11477)*V(3911) -! B(18209) = dA(11478)/dV(3911) - B(18209) = RCT(11478)*V(5250) -! B(18210) = dA(11478)/dV(5250) - B(18210) = RCT(11478)*V(3911) -! B(18211) = dA(11479)/dV(3911) - B(18211) = RCT(11479) -! B(18212) = dA(11480)/dV(4904) - B(18212) = RCT(11480)*V(5255) -! B(18213) = dA(11480)/dV(5255) - B(18213) = RCT(11480)*V(4904) -! B(18214) = dA(11481)/dV(4904) - B(18214) = RCT(11481)*V(5252) -! B(18215) = dA(11481)/dV(5252) - B(18215) = RCT(11481)*V(4904) -! B(18216) = dA(11482)/dV(4904) - B(18216) = RCT(11482)*V(5256) -! B(18217) = dA(11482)/dV(5256) - B(18217) = RCT(11482)*V(4904) -! B(18218) = dA(11483)/dV(4904) - B(18218) = RCT(11483) -! B(18219) = dA(11484)/dV(4904) - B(18219) = RCT(11484) -! B(18220) = dA(11485)/dV(4498) - B(18220) = RCT(11485)*V(5255) -! B(18221) = dA(11485)/dV(5255) - B(18221) = RCT(11485)*V(4498) -! B(18222) = dA(11486)/dV(4498) - B(18222) = RCT(11486)*V(5252) -! B(18223) = dA(11486)/dV(5252) - B(18223) = RCT(11486)*V(4498) -! B(18224) = dA(11487)/dV(4498) - B(18224) = RCT(11487)*V(5256) -! B(18225) = dA(11487)/dV(5256) - B(18225) = RCT(11487)*V(4498) -! B(18226) = dA(11488)/dV(4498) - B(18226) = RCT(11488) -! B(18227) = dA(11489)/dV(4305) - B(18227) = RCT(11489)*V(5255) -! B(18228) = dA(11489)/dV(5255) - B(18228) = RCT(11489)*V(4305) -! B(18229) = dA(11490)/dV(4305) - B(18229) = RCT(11490)*V(5252) -! B(18230) = dA(11490)/dV(5252) - B(18230) = RCT(11490)*V(4305) -! B(18231) = dA(11491)/dV(4305) - B(18231) = RCT(11491)*V(5256) -! B(18232) = dA(11491)/dV(5256) - B(18232) = RCT(11491)*V(4305) -! B(18233) = dA(11492)/dV(4305) - B(18233) = RCT(11492) -! B(18234) = dA(11493)/dV(892) - B(18234) = RCT(11493)*V(5250) -! B(18235) = dA(11493)/dV(5250) - B(18235) = RCT(11493)*V(892) -! B(18236) = dA(11494)/dV(892) - B(18236) = RCT(11494) -! B(18237) = dA(11495)/dV(1979) - B(18237) = RCT(11495)*V(5250) -! B(18238) = dA(11495)/dV(5250) - B(18238) = RCT(11495)*V(1979) -! B(18239) = dA(11496)/dV(1979) - B(18239) = RCT(11496) -! B(18240) = dA(11497)/dV(753) - B(18240) = RCT(11497) -! B(18241) = dA(11498)/dV(963) - B(18241) = RCT(11498)*V(5250) -! B(18242) = dA(11498)/dV(5250) - B(18242) = RCT(11498)*V(963) -! B(18243) = dA(11499)/dV(963) - B(18243) = RCT(11499) -! B(18244) = dA(11500)/dV(82) - B(18244) = RCT(11500) -! B(18245) = dA(11501)/dV(33) - B(18245) = RCT(11501)*V(5250) -! B(18246) = dA(11501)/dV(5250) - B(18246) = RCT(11501)*V(33) -! B(18247) = dA(11502)/dV(1255) - B(18247) = RCT(11502)*V(5250) -! B(18248) = dA(11502)/dV(5250) - B(18248) = RCT(11502)*V(1255) -! B(18249) = dA(11503)/dV(1255) - B(18249) = RCT(11503) -! B(18250) = dA(11504)/dV(2668) - B(18250) = RCT(11504) -! B(18251) = dA(11505)/dV(1379) - B(18251) = RCT(11505)*V(5250) -! B(18252) = dA(11505)/dV(5250) - B(18252) = RCT(11505)*V(1379) -! B(18253) = dA(11506)/dV(1379) - B(18253) = RCT(11506) -! B(18254) = dA(11507)/dV(2963) - B(18254) = RCT(11507) -! B(18255) = dA(11508)/dV(4101) - B(18255) = RCT(11508)*V(5255) -! B(18256) = dA(11508)/dV(5255) - B(18256) = RCT(11508)*V(4101) -! B(18257) = dA(11509)/dV(4101) - B(18257) = RCT(11509)*V(5252) -! B(18258) = dA(11509)/dV(5252) - B(18258) = RCT(11509)*V(4101) -! B(18259) = dA(11510)/dV(4101) - B(18259) = RCT(11510)*V(5256) -! B(18260) = dA(11510)/dV(5256) - B(18260) = RCT(11510)*V(4101) -! B(18261) = dA(11511)/dV(4101) - B(18261) = RCT(11511) -! B(18262) = dA(11512)/dV(3281) - B(18262) = RCT(11512) -! B(18263) = dA(11513)/dV(4506) - B(18263) = RCT(11513)*V(5255) -! B(18264) = dA(11513)/dV(5255) - B(18264) = RCT(11513)*V(4506) -! B(18265) = dA(11514)/dV(4506) - B(18265) = RCT(11514)*V(5252) -! B(18266) = dA(11514)/dV(5252) - B(18266) = RCT(11514)*V(4506) -! B(18267) = dA(11515)/dV(4506) - B(18267) = RCT(11515)*V(5256) -! B(18268) = dA(11515)/dV(5256) - B(18268) = RCT(11515)*V(4506) -! B(18269) = dA(11516)/dV(4506) - B(18269) = RCT(11516) -! B(18270) = dA(11517)/dV(4204) - B(18270) = RCT(11517)*V(5255) -! B(18271) = dA(11517)/dV(5255) - B(18271) = RCT(11517)*V(4204) -! B(18272) = dA(11518)/dV(4204) - B(18272) = RCT(11518)*V(5252) -! B(18273) = dA(11518)/dV(5252) - B(18273) = RCT(11518)*V(4204) -! B(18274) = dA(11519)/dV(4204) - B(18274) = RCT(11519)*V(5256) -! B(18275) = dA(11519)/dV(5256) - B(18275) = RCT(11519)*V(4204) -! B(18276) = dA(11520)/dV(4204) - B(18276) = RCT(11520) -! B(18277) = dA(11521)/dV(1366) - B(18277) = RCT(11521)*V(5250) -! B(18278) = dA(11521)/dV(5250) - B(18278) = RCT(11521)*V(1366) -! B(18279) = dA(11522)/dV(1366) - B(18279) = RCT(11522) -! B(18280) = dA(11523)/dV(2091) - B(18280) = RCT(11523)*V(5250) -! B(18281) = dA(11523)/dV(5250) - B(18281) = RCT(11523)*V(2091) -! B(18282) = dA(11524)/dV(2091) - B(18282) = RCT(11524) -! B(18283) = dA(11525)/dV(555) - B(18283) = RCT(11525) -! B(18284) = dA(11526)/dV(1497) - B(18284) = RCT(11526)*V(5250) -! B(18285) = dA(11526)/dV(5250) - B(18285) = RCT(11526)*V(1497) -! B(18286) = dA(11527)/dV(1497) - B(18286) = RCT(11527) -! B(18287) = dA(11528)/dV(65) - B(18287) = RCT(11528) -! B(18288) = dA(11529)/dV(103) - B(18288) = RCT(11529)*V(5250) -! B(18289) = dA(11529)/dV(5250) - B(18289) = RCT(11529)*V(103) -! B(18290) = dA(11530)/dV(1144) - B(18290) = RCT(11530)*V(5250) -! B(18291) = dA(11530)/dV(5250) - B(18291) = RCT(11530)*V(1144) -! B(18292) = dA(11531)/dV(1144) - B(18292) = RCT(11531) -! B(18293) = dA(11532)/dV(2682) - B(18293) = RCT(11532) -! B(18294) = dA(11533)/dV(1190) - B(18294) = RCT(11533)*V(5250) -! B(18295) = dA(11533)/dV(5250) - B(18295) = RCT(11533)*V(1190) -! B(18296) = dA(11534)/dV(1190) - B(18296) = RCT(11534) -! B(18297) = dA(11535)/dV(2741) - B(18297) = RCT(11535) -! B(18298) = dA(11536)/dV(4464) - B(18298) = RCT(11536)*V(5255) -! B(18299) = dA(11536)/dV(5255) - B(18299) = RCT(11536)*V(4464) -! B(18300) = dA(11537)/dV(4464) - B(18300) = RCT(11537)*V(5252) -! B(18301) = dA(11537)/dV(5252) - B(18301) = RCT(11537)*V(4464) -! B(18302) = dA(11538)/dV(4464) - B(18302) = RCT(11538)*V(5256) -! B(18303) = dA(11538)/dV(5256) - B(18303) = RCT(11538)*V(4464) -! B(18304) = dA(11539)/dV(4464) - B(18304) = RCT(11539) -! B(18305) = dA(11540)/dV(4262) - B(18305) = RCT(11540)*V(5255) -! B(18306) = dA(11540)/dV(5255) - B(18306) = RCT(11540)*V(4262) -! B(18307) = dA(11541)/dV(4262) - B(18307) = RCT(11541)*V(5252) -! B(18308) = dA(11541)/dV(5252) - B(18308) = RCT(11541)*V(4262) -! B(18309) = dA(11542)/dV(4262) - B(18309) = RCT(11542)*V(5256) -! B(18310) = dA(11542)/dV(5256) - B(18310) = RCT(11542)*V(4262) -! B(18311) = dA(11543)/dV(4262) - B(18311) = RCT(11543) -! B(18312) = dA(11544)/dV(1221) - B(18312) = RCT(11544)*V(5250) -! B(18313) = dA(11544)/dV(5250) - B(18313) = RCT(11544)*V(1221) -! B(18314) = dA(11545)/dV(1221) - B(18314) = RCT(11545) -! B(18315) = dA(11546)/dV(2351) - B(18315) = RCT(11546)*V(5250) -! B(18316) = dA(11546)/dV(5250) - B(18316) = RCT(11546)*V(2351) -! B(18317) = dA(11547)/dV(2351) - B(18317) = RCT(11547) -! B(18318) = dA(11548)/dV(746) - B(18318) = RCT(11548) -! B(18319) = dA(11549)/dV(521) - B(18319) = RCT(11549)*V(5250) -! B(18320) = dA(11549)/dV(5250) - B(18320) = RCT(11549)*V(521) -! B(18321) = dA(11550)/dV(521) - B(18321) = RCT(11550) -! B(18322) = dA(11551)/dV(116) - B(18322) = RCT(11551) -! B(18323) = dA(11552)/dV(318) - B(18323) = RCT(11552)*V(5250) -! B(18324) = dA(11552)/dV(5250) - B(18324) = RCT(11552)*V(318) -! B(18325) = dA(11553)/dV(273) - B(18325) = RCT(11553)*V(5250) -! B(18326) = dA(11553)/dV(5250) - B(18326) = RCT(11553)*V(273) -! B(18327) = dA(11554)/dV(1253) - B(18327) = RCT(11554)*V(5250) -! B(18328) = dA(11554)/dV(5250) - B(18328) = RCT(11554)*V(1253) -! B(18329) = dA(11555)/dV(1253) - B(18329) = RCT(11555) -! B(18330) = dA(11556)/dV(2588) - B(18330) = RCT(11556) -! B(18331) = dA(11557)/dV(1512) - B(18331) = RCT(11557)*V(5250) -! B(18332) = dA(11557)/dV(5250) - B(18332) = RCT(11557)*V(1512) -! B(18333) = dA(11558)/dV(1512) - B(18333) = RCT(11558) -! B(18334) = dA(11559)/dV(2604) - B(18334) = RCT(11559) -! B(18335) = dA(11560)/dV(1928) - B(18335) = RCT(11560)*V(5250) -! B(18336) = dA(11560)/dV(5250) - B(18336) = RCT(11560)*V(1928) -! B(18337) = dA(11561)/dV(1928) - B(18337) = RCT(11561) -! B(18338) = dA(11562)/dV(1928) - B(18338) = RCT(11562) -! B(18339) = dA(11563)/dV(3748) - B(18339) = RCT(11563)*V(5256) -! B(18340) = dA(11563)/dV(5256) - B(18340) = RCT(11563)*V(3748) -! B(18341) = dA(11564)/dV(3748) - B(18341) = RCT(11564)*V(5250) -! B(18342) = dA(11564)/dV(5250) - B(18342) = RCT(11564)*V(3748) -! B(18343) = dA(11565)/dV(3748) - B(18343) = RCT(11565) -! B(18344) = dA(11566)/dV(259) - B(18344) = RCT(11566)*V(5250) -! B(18345) = dA(11566)/dV(5250) - B(18345) = RCT(11566)*V(259) -! B(18346) = dA(11567)/dV(3237) - B(18346) = RCT(11567)*V(5250) -! B(18347) = dA(11567)/dV(5250) - B(18347) = RCT(11567)*V(3237) -! B(18348) = dA(11568)/dV(3237) - B(18348) = RCT(11568) -! B(18349) = dA(11569)/dV(3237) - B(18349) = RCT(11569) -! B(18350) = dA(11570)/dV(2696) - B(18350) = RCT(11570)*V(5250) -! B(18351) = dA(11570)/dV(5250) - B(18351) = RCT(11570)*V(2696) -! B(18352) = dA(11571)/dV(2696) - B(18352) = RCT(11571) -! B(18353) = dA(11572)/dV(1293) - B(18353) = RCT(11572)*V(5250) -! B(18354) = dA(11572)/dV(5250) - B(18354) = RCT(11572)*V(1293) -! B(18355) = dA(11573)/dV(1293) - B(18355) = RCT(11573) -! B(18356) = dA(11574)/dV(2758) - B(18356) = RCT(11574) -! B(18357) = dA(11575)/dV(4511) - B(18357) = RCT(11575)*V(5255) -! B(18358) = dA(11575)/dV(5255) - B(18358) = RCT(11575)*V(4511) -! B(18359) = dA(11576)/dV(4511) - B(18359) = RCT(11576)*V(5252) -! B(18360) = dA(11576)/dV(5252) - B(18360) = RCT(11576)*V(4511) -! B(18361) = dA(11577)/dV(4511) - B(18361) = RCT(11577)*V(5256) -! B(18362) = dA(11577)/dV(5256) - B(18362) = RCT(11577)*V(4511) -! B(18363) = dA(11578)/dV(4511) - B(18363) = RCT(11578) -! B(18364) = dA(11579)/dV(4205) - B(18364) = RCT(11579)*V(5255) -! B(18365) = dA(11579)/dV(5255) - B(18365) = RCT(11579)*V(4205) -! B(18366) = dA(11580)/dV(4205) - B(18366) = RCT(11580)*V(5252) -! B(18367) = dA(11580)/dV(5252) - B(18367) = RCT(11580)*V(4205) -! B(18368) = dA(11581)/dV(4205) - B(18368) = RCT(11581)*V(5256) -! B(18369) = dA(11581)/dV(5256) - B(18369) = RCT(11581)*V(4205) -! B(18370) = dA(11582)/dV(4205) - B(18370) = RCT(11582) -! B(18371) = dA(11583)/dV(1091) - B(18371) = RCT(11583)*V(5250) -! B(18372) = dA(11583)/dV(5250) - B(18372) = RCT(11583)*V(1091) -! B(18373) = dA(11584)/dV(1091) - B(18373) = RCT(11584) -! B(18374) = dA(11585)/dV(1830) - B(18374) = RCT(11585)*V(5250) -! B(18375) = dA(11585)/dV(5250) - B(18375) = RCT(11585)*V(1830) -! B(18376) = dA(11586)/dV(1830) - B(18376) = RCT(11586) -! B(18377) = dA(11587)/dV(744) - B(18377) = RCT(11587) -! B(18378) = dA(11588)/dV(324) - B(18378) = RCT(11588)*V(5250) -! B(18379) = dA(11588)/dV(5250) - B(18379) = RCT(11588)*V(324) -! B(18380) = dA(11589)/dV(324) - B(18380) = RCT(11589) -! B(18381) = dA(11590)/dV(97) - B(18381) = RCT(11590) -! B(18382) = dA(11591)/dV(323) - B(18382) = RCT(11591)*V(5250) -! B(18383) = dA(11591)/dV(5250) - B(18383) = RCT(11591)*V(323) -! B(18384) = dA(11592)/dV(322) - B(18384) = RCT(11592)*V(5250) -! B(18385) = dA(11592)/dV(5250) - B(18385) = RCT(11592)*V(322) -! B(18386) = dA(11593)/dV(1329) - B(18386) = RCT(11593)*V(5250) -! B(18387) = dA(11593)/dV(5250) - B(18387) = RCT(11593)*V(1329) -! B(18388) = dA(11594)/dV(1329) - B(18388) = RCT(11594) -! B(18389) = dA(11595)/dV(3421) - B(18389) = RCT(11595) -! B(18390) = dA(11596)/dV(860) - B(18390) = RCT(11596)*V(5250) -! B(18391) = dA(11596)/dV(5250) - B(18391) = RCT(11596)*V(860) -! B(18392) = dA(11597)/dV(860) - B(18392) = RCT(11597) -! B(18393) = dA(11598)/dV(3579) - B(18393) = RCT(11598) -! B(18394) = dA(11599)/dV(4502) - B(18394) = RCT(11599)*V(5255) -! B(18395) = dA(11599)/dV(5255) - B(18395) = RCT(11599)*V(4502) -! B(18396) = dA(11600)/dV(4502) - B(18396) = RCT(11600)*V(5255) -! B(18397) = dA(11600)/dV(5255) - B(18397) = RCT(11600)*V(4502) -! B(18398) = dA(11601)/dV(4502) - B(18398) = RCT(11601)*V(5252) -! B(18399) = dA(11601)/dV(5252) - B(18399) = RCT(11601)*V(4502) -! B(18400) = dA(11602)/dV(4502) - B(18400) = RCT(11602)*V(5253) -! B(18401) = dA(11602)/dV(5253) - B(18401) = RCT(11602)*V(4502) -! B(18402) = dA(11603)/dV(4502) - B(18402) = RCT(11603)*V(5256) -! B(18403) = dA(11603)/dV(5256) - B(18403) = RCT(11603)*V(4502) -! B(18404) = dA(11604)/dV(4502) - B(18404) = RCT(11604) -! B(18405) = dA(11605)/dV(4233) - B(18405) = RCT(11605)*V(5256) -! B(18406) = dA(11605)/dV(5256) - B(18406) = RCT(11605)*V(4233) -! B(18407) = dA(11606)/dV(4233) - B(18407) = RCT(11606)*V(5250) -! B(18408) = dA(11606)/dV(5250) - B(18408) = RCT(11606)*V(4233) -! B(18409) = dA(11607)/dV(4233) - B(18409) = RCT(11607) -! B(18410) = dA(11608)/dV(3773) - B(18410) = RCT(11608)*V(5256) -! B(18411) = dA(11608)/dV(5256) - B(18411) = RCT(11608)*V(3773) -! B(18412) = dA(11609)/dV(3773) - B(18412) = RCT(11609)*V(5250) -! B(18413) = dA(11609)/dV(5250) - B(18413) = RCT(11609)*V(3773) -! B(18414) = dA(11610)/dV(3773) - B(18414) = RCT(11610) -! B(18415) = dA(11611)/dV(448) - B(18415) = RCT(11611)*V(5250) -! B(18416) = dA(11611)/dV(5250) - B(18416) = RCT(11611)*V(448) -! B(18417) = dA(11612)/dV(3467) - B(18417) = RCT(11612)*V(5250) -! B(18418) = dA(11612)/dV(5250) - B(18418) = RCT(11612)*V(3467) -! B(18419) = dA(11613)/dV(3467) - B(18419) = RCT(11613) -! B(18420) = dA(11614)/dV(3467) - B(18420) = RCT(11614) -! B(18421) = dA(11615)/dV(3012) - B(18421) = RCT(11615)*V(5250) -! B(18422) = dA(11615)/dV(5250) - B(18422) = RCT(11615)*V(3012) -! B(18423) = dA(11616)/dV(3012) - B(18423) = RCT(11616) -! B(18424) = dA(11617)/dV(4425) - B(18424) = RCT(11617)*V(5255) -! B(18425) = dA(11617)/dV(5255) - B(18425) = RCT(11617)*V(4425) -! B(18426) = dA(11618)/dV(4425) - B(18426) = RCT(11618)*V(5252) -! B(18427) = dA(11618)/dV(5252) - B(18427) = RCT(11618)*V(4425) -! B(18428) = dA(11619)/dV(4425) - B(18428) = RCT(11619)*V(5256) -! B(18429) = dA(11619)/dV(5256) - B(18429) = RCT(11619)*V(4425) -! B(18430) = dA(11620)/dV(4425) - B(18430) = RCT(11620) -! B(18431) = dA(11621)/dV(4194) - B(18431) = RCT(11621)*V(5255) -! B(18432) = dA(11621)/dV(5255) - B(18432) = RCT(11621)*V(4194) -! B(18433) = dA(11622)/dV(4194) - B(18433) = RCT(11622)*V(5252) -! B(18434) = dA(11622)/dV(5252) - B(18434) = RCT(11622)*V(4194) -! B(18435) = dA(11623)/dV(4194) - B(18435) = RCT(11623)*V(5256) -! B(18436) = dA(11623)/dV(5256) - B(18436) = RCT(11623)*V(4194) -! B(18437) = dA(11624)/dV(4194) - B(18437) = RCT(11624) -! B(18438) = dA(11625)/dV(1308) - B(18438) = RCT(11625)*V(5250) -! B(18439) = dA(11625)/dV(5250) - B(18439) = RCT(11625)*V(1308) -! B(18440) = dA(11626)/dV(1308) - B(18440) = RCT(11626) -! B(18441) = dA(11627)/dV(2294) - B(18441) = RCT(11627)*V(5250) -! B(18442) = dA(11627)/dV(5250) - B(18442) = RCT(11627)*V(2294) -! B(18443) = dA(11628)/dV(2294) - B(18443) = RCT(11628) -! B(18444) = dA(11629)/dV(743) - B(18444) = RCT(11629) -! B(18445) = dA(11630)/dV(1359) - B(18445) = RCT(11630)*V(5250) -! B(18446) = dA(11630)/dV(5250) - B(18446) = RCT(11630)*V(1359) -! B(18447) = dA(11631)/dV(1359) - B(18447) = RCT(11631) -! B(18448) = dA(11632)/dV(92) - B(18448) = RCT(11632) -! B(18449) = dA(11633)/dV(510) - B(18449) = RCT(11633)*V(5250) -! B(18450) = dA(11633)/dV(5250) - B(18450) = RCT(11633)*V(510) -! B(18451) = dA(11634)/dV(509) - B(18451) = RCT(11634)*V(5250) -! B(18452) = dA(11634)/dV(5250) - B(18452) = RCT(11634)*V(509) -! B(18453) = dA(11635)/dV(923) - B(18453) = RCT(11635)*V(5250) -! B(18454) = dA(11635)/dV(5250) - B(18454) = RCT(11635)*V(923) -! B(18455) = dA(11636)/dV(923) - B(18455) = RCT(11636) -! B(18456) = dA(11637)/dV(3395) - B(18456) = RCT(11637) -! B(18457) = dA(11638)/dV(878) - B(18457) = RCT(11638)*V(5250) -! B(18458) = dA(11638)/dV(5250) - B(18458) = RCT(11638)*V(878) -! B(18459) = dA(11639)/dV(878) - B(18459) = RCT(11639) -! B(18460) = dA(11640)/dV(3597) - B(18460) = RCT(11640) -! B(18461) = dA(11641)/dV(4424) - B(18461) = RCT(11641)*V(5255) -! B(18462) = dA(11641)/dV(5255) - B(18462) = RCT(11641)*V(4424) -! B(18463) = dA(11642)/dV(4424) - B(18463) = RCT(11642)*V(5255) -! B(18464) = dA(11642)/dV(5255) - B(18464) = RCT(11642)*V(4424) -! B(18465) = dA(11643)/dV(4424) - B(18465) = RCT(11643)*V(5252) -! B(18466) = dA(11643)/dV(5252) - B(18466) = RCT(11643)*V(4424) -! B(18467) = dA(11644)/dV(4424) - B(18467) = RCT(11644)*V(5253) -! B(18468) = dA(11644)/dV(5253) - B(18468) = RCT(11644)*V(4424) -! B(18469) = dA(11645)/dV(4424) - B(18469) = RCT(11645)*V(5256) -! B(18470) = dA(11645)/dV(5256) - B(18470) = RCT(11645)*V(4424) -! B(18471) = dA(11646)/dV(4424) - B(18471) = RCT(11646) -! B(18472) = dA(11647)/dV(4227) - B(18472) = RCT(11647)*V(5256) -! B(18473) = dA(11647)/dV(5256) - B(18473) = RCT(11647)*V(4227) -! B(18474) = dA(11648)/dV(4227) - B(18474) = RCT(11648)*V(5250) -! B(18475) = dA(11648)/dV(5250) - B(18475) = RCT(11648)*V(4227) -! B(18476) = dA(11649)/dV(4227) - B(18476) = RCT(11649) -! B(18477) = dA(11650)/dV(3775) - B(18477) = RCT(11650)*V(5256) -! B(18478) = dA(11650)/dV(5256) - B(18478) = RCT(11650)*V(3775) -! B(18479) = dA(11651)/dV(3775) - B(18479) = RCT(11651)*V(5250) -! B(18480) = dA(11651)/dV(5250) - B(18480) = RCT(11651)*V(3775) -! B(18481) = dA(11652)/dV(3775) - B(18481) = RCT(11652) -! B(18482) = dA(11653)/dV(244) - B(18482) = RCT(11653)*V(5250) -! B(18483) = dA(11653)/dV(5250) - B(18483) = RCT(11653)*V(244) -! B(18484) = dA(11654)/dV(3463) - B(18484) = RCT(11654)*V(5250) -! B(18485) = dA(11654)/dV(5250) - B(18485) = RCT(11654)*V(3463) -! B(18486) = dA(11655)/dV(3463) - B(18486) = RCT(11655) -! B(18487) = dA(11656)/dV(3463) - B(18487) = RCT(11656) -! B(18488) = dA(11657)/dV(2969) - B(18488) = RCT(11657)*V(5250) -! B(18489) = dA(11657)/dV(5250) - B(18489) = RCT(11657)*V(2969) -! B(18490) = dA(11658)/dV(2969) - B(18490) = RCT(11658) -! B(18491) = dA(11659)/dV(1845) - B(18491) = RCT(11659)*V(5256) -! B(18492) = dA(11659)/dV(5256) - B(18492) = RCT(11659)*V(1845) -! B(18493) = dA(11660)/dV(1845) - B(18493) = RCT(11660)*V(5250) -! B(18494) = dA(11660)/dV(5250) - B(18494) = RCT(11660)*V(1845) -! B(18495) = dA(11661)/dV(4655) - B(18495) = RCT(11661)*V(5255) -! B(18496) = dA(11661)/dV(5255) - B(18496) = RCT(11661)*V(4655) -! B(18497) = dA(11662)/dV(4655) - B(18497) = RCT(11662)*V(5252) -! B(18498) = dA(11662)/dV(5252) - B(18498) = RCT(11662)*V(4655) -! B(18499) = dA(11663)/dV(4655) - B(18499) = RCT(11663)*V(5256) -! B(18500) = dA(11663)/dV(5256) - B(18500) = RCT(11663)*V(4655) -! B(18501) = dA(11664)/dV(4655) - B(18501) = RCT(11664) -! B(18502) = dA(11665)/dV(4285) - B(18502) = RCT(11665)*V(5255) -! B(18503) = dA(11665)/dV(5255) - B(18503) = RCT(11665)*V(4285) -! B(18504) = dA(11666)/dV(4285) - B(18504) = RCT(11666)*V(5252) -! B(18505) = dA(11666)/dV(5252) - B(18505) = RCT(11666)*V(4285) -! B(18506) = dA(11667)/dV(4285) - B(18506) = RCT(11667)*V(5256) -! B(18507) = dA(11667)/dV(5256) - B(18507) = RCT(11667)*V(4285) -! B(18508) = dA(11668)/dV(4285) - B(18508) = RCT(11668) -! B(18509) = dA(11669)/dV(1061) - B(18509) = RCT(11669)*V(5250) -! B(18510) = dA(11669)/dV(5250) - B(18510) = RCT(11669)*V(1061) -! B(18511) = dA(11670)/dV(1061) - B(18511) = RCT(11670) -! B(18512) = dA(11671)/dV(1051) - B(18512) = RCT(11671)*V(5250) -! B(18513) = dA(11671)/dV(5250) - B(18513) = RCT(11671)*V(1051) -! B(18514) = dA(11672)/dV(1051) - B(18514) = RCT(11672) -! B(18515) = dA(11673)/dV(3016) - B(18515) = RCT(11673) -! B(18516) = dA(11674)/dV(1532) - B(18516) = RCT(11674)*V(5250) -! B(18517) = dA(11674)/dV(5250) - B(18517) = RCT(11674)*V(1532) -! B(18518) = dA(11675)/dV(1532) - B(18518) = RCT(11675) -! B(18519) = dA(11676)/dV(2586) - B(18519) = RCT(11676) -! B(18520) = dA(11677)/dV(3556) - B(18520) = RCT(11677)*V(5250) -! B(18521) = dA(11677)/dV(5250) - B(18521) = RCT(11677)*V(3556) -! B(18522) = dA(11678)/dV(3556) - B(18522) = RCT(11678) -! B(18523) = dA(11679)/dV(4726) - B(18523) = RCT(11679)*V(5255) -! B(18524) = dA(11679)/dV(5255) - B(18524) = RCT(11679)*V(4726) -! B(18525) = dA(11680)/dV(4726) - B(18525) = RCT(11680)*V(5252) -! B(18526) = dA(11680)/dV(5252) - B(18526) = RCT(11680)*V(4726) -! B(18527) = dA(11681)/dV(4726) - B(18527) = RCT(11681)*V(5256) -! B(18528) = dA(11681)/dV(5256) - B(18528) = RCT(11681)*V(4726) -! B(18529) = dA(11682)/dV(4726) - B(18529) = RCT(11682) -! B(18530) = dA(11683)/dV(4643) - B(18530) = RCT(11683)*V(5255) -! B(18531) = dA(11683)/dV(5255) - B(18531) = RCT(11683)*V(4643) -! B(18532) = dA(11684)/dV(4643) - B(18532) = RCT(11684)*V(5252) -! B(18533) = dA(11684)/dV(5252) - B(18533) = RCT(11684)*V(4643) -! B(18534) = dA(11685)/dV(4643) - B(18534) = RCT(11685)*V(5256) -! B(18535) = dA(11685)/dV(5256) - B(18535) = RCT(11685)*V(4643) -! B(18536) = dA(11686)/dV(4643) - B(18536) = RCT(11686) -! B(18537) = dA(11687)/dV(4276) - B(18537) = RCT(11687)*V(5255) -! B(18538) = dA(11687)/dV(5255) - B(18538) = RCT(11687)*V(4276) -! B(18539) = dA(11688)/dV(4276) - B(18539) = RCT(11688)*V(5252) -! B(18540) = dA(11688)/dV(5252) - B(18540) = RCT(11688)*V(4276) -! B(18541) = dA(11689)/dV(4276) - B(18541) = RCT(11689)*V(5256) -! B(18542) = dA(11689)/dV(5256) - B(18542) = RCT(11689)*V(4276) -! B(18543) = dA(11690)/dV(4276) - B(18543) = RCT(11690) -! B(18544) = dA(11691)/dV(950) - B(18544) = RCT(11691)*V(5250) -! B(18545) = dA(11691)/dV(5250) - B(18545) = RCT(11691)*V(950) -! B(18546) = dA(11692)/dV(950) - B(18546) = RCT(11692) -! B(18547) = dA(11693)/dV(2342) - B(18547) = RCT(11693)*V(5250) -! B(18548) = dA(11693)/dV(5250) - B(18548) = RCT(11693)*V(2342) -! B(18549) = dA(11694)/dV(2342) - B(18549) = RCT(11694) -! B(18550) = dA(11695)/dV(629) - B(18550) = RCT(11695) -! B(18551) = dA(11696)/dV(1062) - B(18551) = RCT(11696)*V(5250) -! B(18552) = dA(11696)/dV(5250) - B(18552) = RCT(11696)*V(1062) -! B(18553) = dA(11697)/dV(1062) - B(18553) = RCT(11697) -! B(18554) = dA(11698)/dV(57) - B(18554) = RCT(11698) -! B(18555) = dA(11699)/dV(90) - B(18555) = RCT(11699)*V(5250) -! B(18556) = dA(11699)/dV(5250) - B(18556) = RCT(11699)*V(90) -! B(18557) = dA(11700)/dV(1459) - B(18557) = RCT(11700)*V(5250) -! B(18558) = dA(11700)/dV(5250) - B(18558) = RCT(11700)*V(1459) -! B(18559) = dA(11701)/dV(1459) - B(18559) = RCT(11701) -! B(18560) = dA(11702)/dV(2557) - B(18560) = RCT(11702) -! B(18561) = dA(11703)/dV(1187) - B(18561) = RCT(11703)*V(5250) -! B(18562) = dA(11703)/dV(5250) - B(18562) = RCT(11703)*V(1187) -! B(18563) = dA(11704)/dV(1187) - B(18563) = RCT(11704) -! B(18564) = dA(11705)/dV(2551) - B(18564) = RCT(11705) -! B(18565) = dA(11706)/dV(4182) - B(18565) = RCT(11706)*V(5255) -! B(18566) = dA(11706)/dV(5255) - B(18566) = RCT(11706)*V(4182) -! B(18567) = dA(11707)/dV(4182) - B(18567) = RCT(11707)*V(5252) -! B(18568) = dA(11707)/dV(5252) - B(18568) = RCT(11707)*V(4182) -! B(18569) = dA(11708)/dV(4182) - B(18569) = RCT(11708)*V(5256) -! B(18570) = dA(11708)/dV(5256) - B(18570) = RCT(11708)*V(4182) -! B(18571) = dA(11709)/dV(4182) - B(18571) = RCT(11709) -! B(18572) = dA(11710)/dV(877) - B(18572) = RCT(11710)*V(5250) -! B(18573) = dA(11710)/dV(5250) - B(18573) = RCT(11710)*V(877) -! B(18574) = dA(11711)/dV(877) - B(18574) = RCT(11711) -! B(18575) = dA(11712)/dV(2819) - B(18575) = RCT(11712) -! B(18576) = dA(11713)/dV(4463) - B(18576) = RCT(11713)*V(5255) -! B(18577) = dA(11713)/dV(5255) - B(18577) = RCT(11713)*V(4463) -! B(18578) = dA(11714)/dV(4463) - B(18578) = RCT(11714)*V(5252) -! B(18579) = dA(11714)/dV(5252) - B(18579) = RCT(11714)*V(4463) -! B(18580) = dA(11715)/dV(4463) - B(18580) = RCT(11715)*V(5256) -! B(18581) = dA(11715)/dV(5256) - B(18581) = RCT(11715)*V(4463) -! B(18582) = dA(11716)/dV(4463) - B(18582) = RCT(11716) -! B(18583) = dA(11717)/dV(4289) - B(18583) = RCT(11717)*V(5255) -! B(18584) = dA(11717)/dV(5255) - B(18584) = RCT(11717)*V(4289) -! B(18585) = dA(11718)/dV(4289) - B(18585) = RCT(11718)*V(5252) -! B(18586) = dA(11718)/dV(5252) - B(18586) = RCT(11718)*V(4289) -! B(18587) = dA(11719)/dV(4289) - B(18587) = RCT(11719)*V(5256) -! B(18588) = dA(11719)/dV(5256) - B(18588) = RCT(11719)*V(4289) -! B(18589) = dA(11720)/dV(4289) - B(18589) = RCT(11720) -! B(18590) = dA(11721)/dV(1452) - B(18590) = RCT(11721)*V(5250) -! B(18591) = dA(11721)/dV(5250) - B(18591) = RCT(11721)*V(1452) -! B(18592) = dA(11722)/dV(1452) - B(18592) = RCT(11722) -! B(18593) = dA(11723)/dV(2368) - B(18593) = RCT(11723)*V(5250) -! B(18594) = dA(11723)/dV(5250) - B(18594) = RCT(11723)*V(2368) -! B(18595) = dA(11724)/dV(2368) - B(18595) = RCT(11724) -! B(18596) = dA(11725)/dV(597) - B(18596) = RCT(11725) -! B(18597) = dA(11726)/dV(459) - B(18597) = RCT(11726)*V(5250) -! B(18598) = dA(11726)/dV(5250) - B(18598) = RCT(11726)*V(459) -! B(18599) = dA(11727)/dV(459) - B(18599) = RCT(11727) -! B(18600) = dA(11728)/dV(107) - B(18600) = RCT(11728) -! B(18601) = dA(11729)/dV(373) - B(18601) = RCT(11729)*V(5250) -! B(18602) = dA(11729)/dV(5250) - B(18602) = RCT(11729)*V(373) -! B(18603) = dA(11730)/dV(267) - B(18603) = RCT(11730)*V(5250) -! B(18604) = dA(11730)/dV(5250) - B(18604) = RCT(11730)*V(267) -! B(18605) = dA(11731)/dV(962) - B(18605) = RCT(11731)*V(5250) -! B(18606) = dA(11731)/dV(5250) - B(18606) = RCT(11731)*V(962) -! B(18607) = dA(11732)/dV(962) - B(18607) = RCT(11732) -! B(18608) = dA(11733)/dV(2566) - B(18608) = RCT(11733) -! B(18609) = dA(11734)/dV(1358) - B(18609) = RCT(11734)*V(5250) -! B(18610) = dA(11734)/dV(5250) - B(18610) = RCT(11734)*V(1358) -! B(18611) = dA(11735)/dV(1358) - B(18611) = RCT(11735) -! B(18612) = dA(11736)/dV(3004) - B(18612) = RCT(11736) -! B(18613) = dA(11737)/dV(4434) - B(18613) = RCT(11737)*V(5255) -! B(18614) = dA(11737)/dV(5255) - B(18614) = RCT(11737)*V(4434) -! B(18615) = dA(11738)/dV(4434) - B(18615) = RCT(11738)*V(5252) -! B(18616) = dA(11738)/dV(5252) - B(18616) = RCT(11738)*V(4434) -! B(18617) = dA(11739)/dV(4434) - B(18617) = RCT(11739)*V(5256) -! B(18618) = dA(11739)/dV(5256) - B(18618) = RCT(11739)*V(4434) -! B(18619) = dA(11740)/dV(4434) - B(18619) = RCT(11740) -! B(18620) = dA(11741)/dV(4245) - B(18620) = RCT(11741)*V(5255) -! B(18621) = dA(11741)/dV(5255) - B(18621) = RCT(11741)*V(4245) -! B(18622) = dA(11742)/dV(4245) - B(18622) = RCT(11742)*V(5252) -! B(18623) = dA(11742)/dV(5252) - B(18623) = RCT(11742)*V(4245) -! B(18624) = dA(11743)/dV(4245) - B(18624) = RCT(11743)*V(5256) -! B(18625) = dA(11743)/dV(5256) - B(18625) = RCT(11743)*V(4245) -! B(18626) = dA(11744)/dV(4245) - B(18626) = RCT(11744) -! B(18627) = dA(11745)/dV(857) - B(18627) = RCT(11745)*V(5250) -! B(18628) = dA(11745)/dV(5250) - B(18628) = RCT(11745)*V(857) -! B(18629) = dA(11746)/dV(857) - B(18629) = RCT(11746) -! B(18630) = dA(11747)/dV(2389) - B(18630) = RCT(11747)*V(5250) -! B(18631) = dA(11747)/dV(5250) - B(18631) = RCT(11747)*V(2389) -! B(18632) = dA(11748)/dV(2389) - B(18632) = RCT(11748) -! B(18633) = dA(11749)/dV(798) - B(18633) = RCT(11749) -! B(18634) = dA(11750)/dV(1435) - B(18634) = RCT(11750)*V(5250) -! B(18635) = dA(11750)/dV(5250) - B(18635) = RCT(11750)*V(1435) -! B(18636) = dA(11751)/dV(1435) - B(18636) = RCT(11751) -! B(18637) = dA(11752)/dV(78) - B(18637) = RCT(11752) -! B(18638) = dA(11753)/dV(93) - B(18638) = RCT(11753)*V(5250) -! B(18639) = dA(11753)/dV(5250) - B(18639) = RCT(11753)*V(93) -! B(18640) = dA(11754)/dV(1399) - B(18640) = RCT(11754)*V(5250) -! B(18641) = dA(11754)/dV(5250) - B(18641) = RCT(11754)*V(1399) -! B(18642) = dA(11755)/dV(1399) - B(18642) = RCT(11755) -! B(18643) = dA(11756)/dV(2818) - B(18643) = RCT(11756) -! B(18644) = dA(11757)/dV(1524) - B(18644) = RCT(11757)*V(5250) -! B(18645) = dA(11757)/dV(5250) - B(18645) = RCT(11757)*V(1524) -! B(18646) = dA(11758)/dV(1524) - B(18646) = RCT(11758) -! B(18647) = dA(11759)/dV(2599) - B(18647) = RCT(11759) -! B(18648) = dA(11760)/dV(4455) - B(18648) = RCT(11760)*V(5255) -! B(18649) = dA(11760)/dV(5255) - B(18649) = RCT(11760)*V(4455) -! B(18650) = dA(11761)/dV(4455) - B(18650) = RCT(11761)*V(5252) -! B(18651) = dA(11761)/dV(5252) - B(18651) = RCT(11761)*V(4455) -! B(18652) = dA(11762)/dV(4455) - B(18652) = RCT(11762)*V(5256) -! B(18653) = dA(11762)/dV(5256) - B(18653) = RCT(11762)*V(4455) -! B(18654) = dA(11763)/dV(4455) - B(18654) = RCT(11763) -! B(18655) = dA(11764)/dV(4232) - B(18655) = RCT(11764)*V(5255) -! B(18656) = dA(11764)/dV(5255) - B(18656) = RCT(11764)*V(4232) -! B(18657) = dA(11765)/dV(4232) - B(18657) = RCT(11765)*V(5252) -! B(18658) = dA(11765)/dV(5252) - B(18658) = RCT(11765)*V(4232) -! B(18659) = dA(11766)/dV(4232) - B(18659) = RCT(11766)*V(5256) -! B(18660) = dA(11766)/dV(5256) - B(18660) = RCT(11766)*V(4232) -! B(18661) = dA(11767)/dV(4232) - B(18661) = RCT(11767) -! B(18662) = dA(11768)/dV(1453) - B(18662) = RCT(11768)*V(5250) -! B(18663) = dA(11768)/dV(5250) - B(18663) = RCT(11768)*V(1453) -! B(18664) = dA(11769)/dV(1453) - B(18664) = RCT(11769) -! B(18665) = dA(11770)/dV(1783) - B(18665) = RCT(11770)*V(5250) -! B(18666) = dA(11770)/dV(5250) - B(18666) = RCT(11770)*V(1783) -! B(18667) = dA(11771)/dV(1783) - B(18667) = RCT(11771) -! B(18668) = dA(11772)/dV(780) - B(18668) = RCT(11772) -! B(18669) = dA(11773)/dV(1412) - B(18669) = RCT(11773)*V(5250) -! B(18670) = dA(11773)/dV(5250) - B(18670) = RCT(11773)*V(1412) -! B(18671) = dA(11774)/dV(1412) - B(18671) = RCT(11774) -! B(18672) = dA(11775)/dV(16) - B(18672) = RCT(11775) -! B(18673) = dA(11776)/dV(106) - B(18673) = RCT(11776)*V(5250) -! B(18674) = dA(11776)/dV(5250) - B(18674) = RCT(11776)*V(106) -! B(18675) = dA(11777)/dV(1101) - B(18675) = RCT(11777)*V(5250) -! B(18676) = dA(11777)/dV(5250) - B(18676) = RCT(11777)*V(1101) -! B(18677) = dA(11778)/dV(1101) - B(18677) = RCT(11778) -! B(18678) = dA(11779)/dV(3065) - B(18678) = RCT(11779) -! B(18679) = dA(11780)/dV(1148) - B(18679) = RCT(11780)*V(5250) -! B(18680) = dA(11780)/dV(5250) - B(18680) = RCT(11780)*V(1148) -! B(18681) = dA(11781)/dV(1148) - B(18681) = RCT(11781) -! B(18682) = dA(11782)/dV(2575) - B(18682) = RCT(11782) -! B(18683) = dA(11783)/dV(3896) - B(18683) = RCT(11783)*V(5256) -! B(18684) = dA(11783)/dV(5256) - B(18684) = RCT(11783)*V(3896) -! B(18685) = dA(11784)/dV(3896) - B(18685) = RCT(11784)*V(5250) -! B(18686) = dA(11784)/dV(5250) - B(18686) = RCT(11784)*V(3896) -! B(18687) = dA(11785)/dV(3896) - B(18687) = RCT(11785) -! B(18688) = dA(11786)/dV(4750) - B(18688) = RCT(11786)*V(5255) -! B(18689) = dA(11786)/dV(5255) - B(18689) = RCT(11786)*V(4750) -! B(18690) = dA(11787)/dV(4750) - B(18690) = RCT(11787)*V(5252) -! B(18691) = dA(11787)/dV(5252) - B(18691) = RCT(11787)*V(4750) -! B(18692) = dA(11788)/dV(4750) - B(18692) = RCT(11788)*V(5256) -! B(18693) = dA(11788)/dV(5256) - B(18693) = RCT(11788)*V(4750) -! B(18694) = dA(11789)/dV(4750) - B(18694) = RCT(11789) -! B(18695) = dA(11790)/dV(387) - B(18695) = RCT(11790)*V(5250) -! B(18696) = dA(11790)/dV(5250) - B(18696) = RCT(11790)*V(387) -! B(18697) = dA(11791)/dV(997) - B(18697) = RCT(11791)*V(5250) -! B(18698) = dA(11791)/dV(5250) - B(18698) = RCT(11791)*V(997) -! B(18699) = dA(11792)/dV(997) - B(18699) = RCT(11792) -! B(18700) = dA(11793)/dV(2905) - B(18700) = RCT(11793) -! B(18701) = dA(11794)/dV(2320) - B(18701) = RCT(11794) -! B(18702) = dA(11795)/dV(2320) - B(18702) = RCT(11795)*V(5250) -! B(18703) = dA(11795)/dV(5250) - B(18703) = RCT(11795)*V(2320) -! B(18704) = dA(11796)/dV(2498) - B(18704) = RCT(11796) -! B(18705) = dA(11797)/dV(2498) - B(18705) = RCT(11797)*V(5250) -! B(18706) = dA(11797)/dV(5250) - B(18706) = RCT(11797)*V(2498) -! B(18707) = dA(11798)/dV(4460) - B(18707) = RCT(11798)*V(5255) -! B(18708) = dA(11798)/dV(5255) - B(18708) = RCT(11798)*V(4460) -! B(18709) = dA(11799)/dV(4460) - B(18709) = RCT(11799)*V(5255) -! B(18710) = dA(11799)/dV(5255) - B(18710) = RCT(11799)*V(4460) -! B(18711) = dA(11800)/dV(4460) - B(18711) = RCT(11800)*V(5255) -! B(18712) = dA(11800)/dV(5255) - B(18712) = RCT(11800)*V(4460) -! B(18713) = dA(11801)/dV(4460) - B(18713) = RCT(11801)*V(5252) -! B(18714) = dA(11801)/dV(5252) - B(18714) = RCT(11801)*V(4460) -! B(18715) = dA(11802)/dV(4460) - B(18715) = RCT(11802)*V(5253) -! B(18716) = dA(11802)/dV(5253) - B(18716) = RCT(11802)*V(4460) -! B(18717) = dA(11803)/dV(4460) - B(18717) = RCT(11803)*V(5256) -! B(18718) = dA(11803)/dV(5256) - B(18718) = RCT(11803)*V(4460) -! B(18719) = dA(11804)/dV(4460) - B(18719) = RCT(11804) -! B(18720) = dA(11805)/dV(4460) - B(18720) = RCT(11805) -! B(18721) = dA(11806)/dV(2105) - B(18721) = RCT(11806)*V(5250) -! B(18722) = dA(11806)/dV(5250) - B(18722) = RCT(11806)*V(2105) -! B(18723) = dA(11807)/dV(2105) - B(18723) = RCT(11807) -! B(18724) = dA(11808)/dV(1184) - B(18724) = RCT(11808)*V(5250) -! B(18725) = dA(11808)/dV(5250) - B(18725) = RCT(11808)*V(1184) -! B(18726) = dA(11809)/dV(1184) - B(18726) = RCT(11809) -! B(18727) = dA(11810)/dV(4548) - B(18727) = RCT(11810)*V(5255) -! B(18728) = dA(11810)/dV(5255) - B(18728) = RCT(11810)*V(4548) -! B(18729) = dA(11811)/dV(4548) - B(18729) = RCT(11811)*V(5255) -! B(18730) = dA(11811)/dV(5255) - B(18730) = RCT(11811)*V(4548) -! B(18731) = dA(11812)/dV(4548) - B(18731) = RCT(11812)*V(5252) -! B(18732) = dA(11812)/dV(5252) - B(18732) = RCT(11812)*V(4548) -! B(18733) = dA(11813)/dV(4548) - B(18733) = RCT(11813)*V(5253) -! B(18734) = dA(11813)/dV(5253) - B(18734) = RCT(11813)*V(4548) -! B(18735) = dA(11814)/dV(4548) - B(18735) = RCT(11814)*V(5256) -! B(18736) = dA(11814)/dV(5256) - B(18736) = RCT(11814)*V(4548) -! B(18737) = dA(11815)/dV(4548) - B(18737) = RCT(11815) -! B(18738) = dA(11816)/dV(3250) - B(18738) = RCT(11816) -! B(18739) = dA(11817)/dV(3250) - B(18739) = RCT(11817) -! B(18740) = dA(11818)/dV(3250) - B(18740) = RCT(11818)*V(5250) -! B(18741) = dA(11818)/dV(5250) - B(18741) = RCT(11818)*V(3250) -! B(18742) = dA(11819)/dV(4129) - B(18742) = RCT(11819)*V(5255) -! B(18743) = dA(11819)/dV(5255) - B(18743) = RCT(11819)*V(4129) -! B(18744) = dA(11820)/dV(4129) - B(18744) = RCT(11820)*V(5252) -! B(18745) = dA(11820)/dV(5252) - B(18745) = RCT(11820)*V(4129) -! B(18746) = dA(11821)/dV(4129) - B(18746) = RCT(11821)*V(5256) -! B(18747) = dA(11821)/dV(5256) - B(18747) = RCT(11821)*V(4129) -! B(18748) = dA(11822)/dV(4129) - B(18748) = RCT(11822) -! B(18749) = dA(11823)/dV(5047) - B(18749) = RCT(11823)*V(5251) -! B(18750) = dA(11823)/dV(5251) - B(18750) = RCT(11823)*V(5047) -! B(18751) = dA(11824)/dV(5047) - B(18751) = RCT(11824)*V(5252) -! B(18752) = dA(11824)/dV(5252) - B(18752) = RCT(11824)*V(5047) -! B(18753) = dA(11825)/dV(5047) - B(18753) = RCT(11825)*V(5253) -! B(18754) = dA(11825)/dV(5253) - B(18754) = RCT(11825)*V(5047) -! B(18755) = dA(11826)/dV(5047) - B(18755) = RCT(11826)*V(5254) -! B(18756) = dA(11826)/dV(5254) - B(18756) = RCT(11826)*V(5047) -! B(18757) = dA(11827)/dV(5047) - B(18757) = RCT(11827) -! B(18758) = dA(11828)/dV(5172) - B(18758) = RCT(11828)*V(5255) -! B(18759) = dA(11828)/dV(5255) - B(18759) = RCT(11828)*V(5172) -! B(18760) = dA(11829)/dV(5172) - B(18760) = RCT(11829)*V(5255) -! B(18761) = dA(11829)/dV(5255) - B(18761) = RCT(11829)*V(5172) -! B(18762) = dA(11830)/dV(5172) - B(18762) = RCT(11830)*V(5252) -! B(18763) = dA(11830)/dV(5252) - B(18763) = RCT(11830)*V(5172) -! B(18764) = dA(11831)/dV(5172) - B(18764) = RCT(11831)*V(5253) -! B(18765) = dA(11831)/dV(5253) - B(18765) = RCT(11831)*V(5172) -! B(18766) = dA(11832)/dV(5172) - B(18766) = RCT(11832)*V(5256) -! B(18767) = dA(11832)/dV(5256) - B(18767) = RCT(11832)*V(5172) -! B(18768) = dA(11833)/dV(5172) - B(18768) = RCT(11833) -! B(18769) = dA(11834)/dV(3261) - B(18769) = RCT(11834)*V(5250) -! B(18770) = dA(11834)/dV(5250) - B(18770) = RCT(11834)*V(3261) -! B(18771) = dA(11835)/dV(3261) - B(18771) = RCT(11835) -! B(18772) = dA(11836)/dV(3261) - B(18772) = RCT(11836) -! B(18773) = dA(11837)/dV(2085) - B(18773) = RCT(11837) -! B(18774) = dA(11838)/dV(2382) - B(18774) = RCT(11838)*V(5250) -! B(18775) = dA(11838)/dV(5250) - B(18775) = RCT(11838)*V(2382) -! B(18776) = dA(11839)/dV(2382) - B(18776) = RCT(11839) -! B(18777) = dA(11840)/dV(1625) - B(18777) = RCT(11840) -! B(18778) = dA(11841)/dV(1625) - B(18778) = RCT(11841)*V(5250) -! B(18779) = dA(11841)/dV(5250) - B(18779) = RCT(11841)*V(1625) -! B(18780) = dA(11842)/dV(1603) - B(18780) = RCT(11842) -! B(18781) = dA(11843)/dV(1603) - B(18781) = RCT(11843)*V(5250) -! B(18782) = dA(11843)/dV(5250) - B(18782) = RCT(11843)*V(1603) -! B(18783) = dA(11844)/dV(1991) - B(18783) = RCT(11844) -! B(18784) = dA(11845)/dV(1991) - B(18784) = RCT(11845)*V(5250) -! B(18785) = dA(11845)/dV(5250) - B(18785) = RCT(11845)*V(1991) -! B(18786) = dA(11846)/dV(2243) - B(18786) = RCT(11846)*V(5250) -! B(18787) = dA(11846)/dV(5250) - B(18787) = RCT(11846)*V(2243) -! B(18788) = dA(11847)/dV(2243) - B(18788) = RCT(11847) -! B(18789) = dA(11848)/dV(4539) - B(18789) = RCT(11848)*V(5255) -! B(18790) = dA(11848)/dV(5255) - B(18790) = RCT(11848)*V(4539) -! B(18791) = dA(11849)/dV(4539) - B(18791) = RCT(11849)*V(5255) -! B(18792) = dA(11849)/dV(5255) - B(18792) = RCT(11849)*V(4539) -! B(18793) = dA(11850)/dV(4539) - B(18793) = RCT(11850)*V(5252) -! B(18794) = dA(11850)/dV(5252) - B(18794) = RCT(11850)*V(4539) -! B(18795) = dA(11851)/dV(4539) - B(18795) = RCT(11851)*V(5253) -! B(18796) = dA(11851)/dV(5253) - B(18796) = RCT(11851)*V(4539) -! B(18797) = dA(11852)/dV(4539) - B(18797) = RCT(11852)*V(5256) -! B(18798) = dA(11852)/dV(5256) - B(18798) = RCT(11852)*V(4539) -! B(18799) = dA(11853)/dV(4539) - B(18799) = RCT(11853) -! B(18800) = dA(11854)/dV(3618) - B(18800) = RCT(11854)*V(5250) -! B(18801) = dA(11854)/dV(5250) - B(18801) = RCT(11854)*V(3618) -! B(18802) = dA(11855)/dV(3618) - B(18802) = RCT(11855) -! B(18803) = dA(11856)/dV(3618) - B(18803) = RCT(11856) -! B(18804) = dA(11857)/dV(3618) - B(18804) = RCT(11857) -! B(18805) = dA(11858)/dV(1891) - B(18805) = RCT(11858) -! B(18806) = dA(11859)/dV(4229) - B(18806) = RCT(11859)*V(5255) -! B(18807) = dA(11859)/dV(5255) - B(18807) = RCT(11859)*V(4229) -! B(18808) = dA(11860)/dV(4229) - B(18808) = RCT(11860)*V(5255) -! B(18809) = dA(11860)/dV(5255) - B(18809) = RCT(11860)*V(4229) -! B(18810) = dA(11861)/dV(4229) - B(18810) = RCT(11861)*V(5252) -! B(18811) = dA(11861)/dV(5252) - B(18811) = RCT(11861)*V(4229) -! B(18812) = dA(11862)/dV(4229) - B(18812) = RCT(11862)*V(5253) -! B(18813) = dA(11862)/dV(5253) - B(18813) = RCT(11862)*V(4229) -! B(18814) = dA(11863)/dV(4229) - B(18814) = RCT(11863)*V(5256) -! B(18815) = dA(11863)/dV(5256) - B(18815) = RCT(11863)*V(4229) -! B(18816) = dA(11864)/dV(4229) - B(18816) = RCT(11864) -! B(18817) = dA(11865)/dV(4228) - B(18817) = RCT(11865)*V(5255) -! B(18818) = dA(11865)/dV(5255) - B(18818) = RCT(11865)*V(4228) -! B(18819) = dA(11866)/dV(4228) - B(18819) = RCT(11866)*V(5255) -! B(18820) = dA(11866)/dV(5255) - B(18820) = RCT(11866)*V(4228) -! B(18821) = dA(11867)/dV(4228) - B(18821) = RCT(11867)*V(5252) -! B(18822) = dA(11867)/dV(5252) - B(18822) = RCT(11867)*V(4228) -! B(18823) = dA(11868)/dV(4228) - B(18823) = RCT(11868)*V(5253) -! B(18824) = dA(11868)/dV(5253) - B(18824) = RCT(11868)*V(4228) -! B(18825) = dA(11869)/dV(4228) - B(18825) = RCT(11869)*V(5256) -! B(18826) = dA(11869)/dV(5256) - B(18826) = RCT(11869)*V(4228) -! B(18827) = dA(11870)/dV(4228) - B(18827) = RCT(11870) -! B(18828) = dA(11871)/dV(2491) - B(18828) = RCT(11871)*V(5250) -! B(18829) = dA(11871)/dV(5250) - B(18829) = RCT(11871)*V(2491) -! B(18830) = dA(11872)/dV(2491) - B(18830) = RCT(11872)*V(5250) -! B(18831) = dA(11872)/dV(5250) - B(18831) = RCT(11872)*V(2491) -! B(18832) = dA(11873)/dV(2491) - B(18832) = RCT(11873) -! B(18833) = dA(11874)/dV(5075) - B(18833) = RCT(11874)*V(5255) -! B(18834) = dA(11874)/dV(5255) - B(18834) = RCT(11874)*V(5075) -! B(18835) = dA(11875)/dV(5075) - B(18835) = RCT(11875)*V(5255) -! B(18836) = dA(11875)/dV(5255) - B(18836) = RCT(11875)*V(5075) -! B(18837) = dA(11876)/dV(5075) - B(18837) = RCT(11876)*V(5255) -! B(18838) = dA(11876)/dV(5255) - B(18838) = RCT(11876)*V(5075) -! B(18839) = dA(11877)/dV(5075) - B(18839) = RCT(11877)*V(5252) -! B(18840) = dA(11877)/dV(5252) - B(18840) = RCT(11877)*V(5075) -! B(18841) = dA(11878)/dV(5075) - B(18841) = RCT(11878)*V(5253) -! B(18842) = dA(11878)/dV(5253) - B(18842) = RCT(11878)*V(5075) -! B(18843) = dA(11879)/dV(5075) - B(18843) = RCT(11879)*V(5256) -! B(18844) = dA(11879)/dV(5256) - B(18844) = RCT(11879)*V(5075) -! B(18845) = dA(11880)/dV(5075) - B(18845) = RCT(11880)*V(5256) -! B(18846) = dA(11880)/dV(5256) - B(18846) = RCT(11880)*V(5075) -! B(18847) = dA(11881)/dV(5075) - B(18847) = RCT(11881) -! B(18848) = dA(11882)/dV(5075) - B(18848) = RCT(11882) -! B(18849) = dA(11883)/dV(1651) - B(18849) = RCT(11883)*V(5250) -! B(18850) = dA(11883)/dV(5250) - B(18850) = RCT(11883)*V(1651) -! B(18851) = dA(11884)/dV(1651) - B(18851) = RCT(11884) -! B(18852) = dA(11885)/dV(4658) - B(18852) = RCT(11885)*V(5255) -! B(18853) = dA(11885)/dV(5255) - B(18853) = RCT(11885)*V(4658) -! B(18854) = dA(11886)/dV(4658) - B(18854) = RCT(11886)*V(5255) -! B(18855) = dA(11886)/dV(5255) - B(18855) = RCT(11886)*V(4658) -! B(18856) = dA(11887)/dV(4658) - B(18856) = RCT(11887)*V(5255) -! B(18857) = dA(11887)/dV(5255) - B(18857) = RCT(11887)*V(4658) -! B(18858) = dA(11888)/dV(4658) - B(18858) = RCT(11888)*V(5252) -! B(18859) = dA(11888)/dV(5252) - B(18859) = RCT(11888)*V(4658) -! B(18860) = dA(11889)/dV(4658) - B(18860) = RCT(11889)*V(5253) -! B(18861) = dA(11889)/dV(5253) - B(18861) = RCT(11889)*V(4658) -! B(18862) = dA(11890)/dV(4658) - B(18862) = RCT(11890)*V(5256) -! B(18863) = dA(11890)/dV(5256) - B(18863) = RCT(11890)*V(4658) -! B(18864) = dA(11891)/dV(4658) - B(18864) = RCT(11891) -! B(18865) = dA(11892)/dV(4658) - B(18865) = RCT(11892) -! B(18866) = dA(11893)/dV(4518) - B(18866) = RCT(11893)*V(5255) -! B(18867) = dA(11893)/dV(5255) - B(18867) = RCT(11893)*V(4518) -! B(18868) = dA(11894)/dV(4518) - B(18868) = RCT(11894)*V(5255) -! B(18869) = dA(11894)/dV(5255) - B(18869) = RCT(11894)*V(4518) -! B(18870) = dA(11895)/dV(4518) - B(18870) = RCT(11895)*V(5255) -! B(18871) = dA(11895)/dV(5255) - B(18871) = RCT(11895)*V(4518) -! B(18872) = dA(11896)/dV(4518) - B(18872) = RCT(11896)*V(5252) -! B(18873) = dA(11896)/dV(5252) - B(18873) = RCT(11896)*V(4518) -! B(18874) = dA(11897)/dV(4518) - B(18874) = RCT(11897)*V(5253) -! B(18875) = dA(11897)/dV(5253) - B(18875) = RCT(11897)*V(4518) -! B(18876) = dA(11898)/dV(4518) - B(18876) = RCT(11898)*V(5256) -! B(18877) = dA(11898)/dV(5256) - B(18877) = RCT(11898)*V(4518) -! B(18878) = dA(11899)/dV(4518) - B(18878) = RCT(11899) -! B(18879) = dA(11900)/dV(4518) - B(18879) = RCT(11900) -! B(18880) = dA(11901)/dV(123) - B(18880) = RCT(11901)*V(5250) -! B(18881) = dA(11901)/dV(5250) - B(18881) = RCT(11901)*V(123) -! B(18882) = dA(11902)/dV(4657) - B(18882) = RCT(11902)*V(5255) -! B(18883) = dA(11902)/dV(5255) - B(18883) = RCT(11902)*V(4657) -! B(18884) = dA(11903)/dV(4657) - B(18884) = RCT(11903)*V(5255) -! B(18885) = dA(11903)/dV(5255) - B(18885) = RCT(11903)*V(4657) -! B(18886) = dA(11904)/dV(4657) - B(18886) = RCT(11904)*V(5255) -! B(18887) = dA(11904)/dV(5255) - B(18887) = RCT(11904)*V(4657) -! B(18888) = dA(11905)/dV(4657) - B(18888) = RCT(11905)*V(5252) -! B(18889) = dA(11905)/dV(5252) - B(18889) = RCT(11905)*V(4657) -! B(18890) = dA(11906)/dV(4657) - B(18890) = RCT(11906)*V(5253) -! B(18891) = dA(11906)/dV(5253) - B(18891) = RCT(11906)*V(4657) -! B(18892) = dA(11907)/dV(4657) - B(18892) = RCT(11907)*V(5256) -! B(18893) = dA(11907)/dV(5256) - B(18893) = RCT(11907)*V(4657) -! B(18894) = dA(11908)/dV(4657) - B(18894) = RCT(11908) -! B(18895) = dA(11909)/dV(4657) - B(18895) = RCT(11909) -! B(18896) = dA(11910)/dV(1425) - B(18896) = RCT(11910)*V(5250) -! B(18897) = dA(11910)/dV(5250) - B(18897) = RCT(11910)*V(1425) -! B(18898) = dA(11911)/dV(2570) - B(18898) = RCT(11911) -! B(18899) = dA(11912)/dV(2570) - B(18899) = RCT(11912)*V(5250) -! B(18900) = dA(11912)/dV(5250) - B(18900) = RCT(11912)*V(2570) -! B(18901) = dA(11913)/dV(2570) - B(18901) = RCT(11913)*V(5250) -! B(18902) = dA(11913)/dV(5250) - B(18902) = RCT(11913)*V(2570) -! B(18903) = dA(11914)/dV(2606) - B(18903) = RCT(11914) -! B(18904) = dA(11915)/dV(2606) - B(18904) = RCT(11915)*V(5250) -! B(18905) = dA(11915)/dV(5250) - B(18905) = RCT(11915)*V(2606) -! B(18906) = dA(11916)/dV(217) - B(18906) = RCT(11916)*V(5250) -! B(18907) = dA(11916)/dV(5250) - B(18907) = RCT(11916)*V(217) -! B(18908) = dA(11917)/dV(217) - B(18908) = RCT(11917)*V(5250) -! B(18909) = dA(11917)/dV(5250) - B(18909) = RCT(11917)*V(217) -! B(18910) = dA(11918)/dV(4599) - B(18910) = RCT(11918)*V(5255) -! B(18911) = dA(11918)/dV(5255) - B(18911) = RCT(11918)*V(4599) -! B(18912) = dA(11919)/dV(4599) - B(18912) = RCT(11919)*V(5252) -! B(18913) = dA(11919)/dV(5252) - B(18913) = RCT(11919)*V(4599) -! B(18914) = dA(11920)/dV(4599) - B(18914) = RCT(11920)*V(5252) -! B(18915) = dA(11920)/dV(5252) - B(18915) = RCT(11920)*V(4599) -! B(18916) = dA(11921)/dV(4599) - B(18916) = RCT(11921)*V(5256) -! B(18917) = dA(11921)/dV(5256) - B(18917) = RCT(11921)*V(4599) -! B(18918) = dA(11922)/dV(4599) - B(18918) = RCT(11922) -! B(18919) = dA(11923)/dV(4599) - B(18919) = RCT(11923) -! B(18920) = dA(11924)/dV(3864) - B(18920) = RCT(11924)*V(5255) -! B(18921) = dA(11924)/dV(5255) - B(18921) = RCT(11924)*V(3864) -! B(18922) = dA(11925)/dV(3864) - B(18922) = RCT(11925)*V(5252) -! B(18923) = dA(11925)/dV(5252) - B(18923) = RCT(11925)*V(3864) -! B(18924) = dA(11926)/dV(3864) - B(18924) = RCT(11926)*V(5256) -! B(18925) = dA(11926)/dV(5256) - B(18925) = RCT(11926)*V(3864) -! B(18926) = dA(11927)/dV(3864) - B(18926) = RCT(11927) -! B(18927) = dA(11928)/dV(4816) - B(18927) = RCT(11928)*V(5255) -! B(18928) = dA(11928)/dV(5255) - B(18928) = RCT(11928)*V(4816) -! B(18929) = dA(11929)/dV(4816) - B(18929) = RCT(11929)*V(5255) -! B(18930) = dA(11929)/dV(5255) - B(18930) = RCT(11929)*V(4816) -! B(18931) = dA(11930)/dV(4816) - B(18931) = RCT(11930)*V(5255) -! B(18932) = dA(11930)/dV(5255) - B(18932) = RCT(11930)*V(4816) -! B(18933) = dA(11931)/dV(4816) - B(18933) = RCT(11931)*V(5252) -! B(18934) = dA(11931)/dV(5252) - B(18934) = RCT(11931)*V(4816) -! B(18935) = dA(11932)/dV(4816) - B(18935) = RCT(11932)*V(5253) -! B(18936) = dA(11932)/dV(5253) - B(18936) = RCT(11932)*V(4816) -! B(18937) = dA(11933)/dV(4816) - B(18937) = RCT(11933)*V(5256) -! B(18938) = dA(11933)/dV(5256) - B(18938) = RCT(11933)*V(4816) -! B(18939) = dA(11934)/dV(4816) - B(18939) = RCT(11934) -! B(18940) = dA(11935)/dV(4816) - B(18940) = RCT(11935) -! B(18941) = dA(11936)/dV(701) - B(18941) = RCT(11936) -! B(18942) = dA(11937)/dV(701) - B(18942) = RCT(11937) -! B(18943) = dA(11938)/dV(3837) - B(18943) = RCT(11938)*V(5255) -! B(18944) = dA(11938)/dV(5255) - B(18944) = RCT(11938)*V(3837) -! B(18945) = dA(11939)/dV(3837) - B(18945) = RCT(11939)*V(5252) -! B(18946) = dA(11939)/dV(5252) - B(18946) = RCT(11939)*V(3837) -! B(18947) = dA(11940)/dV(3837) - B(18947) = RCT(11940)*V(5256) -! B(18948) = dA(11940)/dV(5256) - B(18948) = RCT(11940)*V(3837) -! B(18949) = dA(11941)/dV(3837) - B(18949) = RCT(11941) -! B(18950) = dA(11942)/dV(3837) - B(18950) = RCT(11942) -! B(18951) = dA(11943)/dV(3837) - B(18951) = RCT(11943) -! B(18952) = dA(11944)/dV(899) - B(18952) = RCT(11944)*V(5250) -! B(18953) = dA(11944)/dV(5250) - B(18953) = RCT(11944)*V(899) -! B(18954) = dA(11945)/dV(899) - B(18954) = RCT(11945) -! B(18955) = dA(11946)/dV(2663) - B(18955) = RCT(11946)*V(5250) -! B(18956) = dA(11946)/dV(5250) - B(18956) = RCT(11946)*V(2663) -! B(18957) = dA(11947)/dV(2663) - B(18957) = RCT(11947) -! B(18958) = dA(11948)/dV(2810) - B(18958) = RCT(11948)*V(5250) -! B(18959) = dA(11948)/dV(5250) - B(18959) = RCT(11948)*V(2810) -! B(18960) = dA(11949)/dV(2810) - B(18960) = RCT(11949)*V(5250) -! B(18961) = dA(11949)/dV(5250) - B(18961) = RCT(11949)*V(2810) -! B(18962) = dA(11950)/dV(2810) - B(18962) = RCT(11950) -! B(18963) = dA(11951)/dV(2664) - B(18963) = RCT(11951)*V(5250) -! B(18964) = dA(11951)/dV(5250) - B(18964) = RCT(11951)*V(2664) -! B(18965) = dA(11952)/dV(2664) - B(18965) = RCT(11952) -! B(18966) = dA(11953)/dV(1593) - B(18966) = RCT(11953) -! B(18967) = dA(11954)/dV(473) - B(18967) = RCT(11954)*V(5250) -! B(18968) = dA(11954)/dV(5250) - B(18968) = RCT(11954)*V(473) -! B(18969) = dA(11955)/dV(908) - B(18969) = RCT(11955)*V(5250) -! B(18970) = dA(11955)/dV(5250) - B(18970) = RCT(11955)*V(908) -! B(18971) = dA(11956)/dV(908) - B(18971) = RCT(11956) -! B(18972) = dA(11957)/dV(2827) - B(18972) = RCT(11957) -! B(18973) = dA(11958)/dV(3972) - B(18973) = RCT(11958)*V(5256) -! B(18974) = dA(11958)/dV(5256) - B(18974) = RCT(11958)*V(3972) -! B(18975) = dA(11959)/dV(3972) - B(18975) = RCT(11959)*V(5250) -! B(18976) = dA(11959)/dV(5250) - B(18976) = RCT(11959)*V(3972) -! B(18977) = dA(11960)/dV(3972) - B(18977) = RCT(11960) -! B(18978) = dA(11961)/dV(5171) - B(18978) = RCT(11961)*V(5255) -! B(18979) = dA(11961)/dV(5255) - B(18979) = RCT(11961)*V(5171) -! B(18980) = dA(11962)/dV(5171) - B(18980) = RCT(11962)*V(5255) -! B(18981) = dA(11962)/dV(5255) - B(18981) = RCT(11962)*V(5171) -! B(18982) = dA(11963)/dV(5171) - B(18982) = RCT(11963)*V(5252) -! B(18983) = dA(11963)/dV(5252) - B(18983) = RCT(11963)*V(5171) -! B(18984) = dA(11964)/dV(5171) - B(18984) = RCT(11964)*V(5253) -! B(18985) = dA(11964)/dV(5253) - B(18985) = RCT(11964)*V(5171) -! B(18986) = dA(11965)/dV(5171) - B(18986) = RCT(11965)*V(5256) -! B(18987) = dA(11965)/dV(5256) - B(18987) = RCT(11965)*V(5171) -! B(18988) = dA(11966)/dV(5171) - B(18988) = RCT(11966) -! B(18989) = dA(11967)/dV(3259) - B(18989) = RCT(11967) -! B(18990) = dA(11968)/dV(3259) - B(18990) = RCT(11968) -! B(18991) = dA(11969)/dV(3259) - B(18991) = RCT(11969)*V(5250) -! B(18992) = dA(11969)/dV(5250) - B(18992) = RCT(11969)*V(3259) -! B(18993) = dA(11970)/dV(1884) - B(18993) = RCT(11970) -! B(18994) = dA(11971)/dV(1884) - B(18994) = RCT(11971)*V(5250) -! B(18995) = dA(11971)/dV(5250) - B(18995) = RCT(11971)*V(1884) -! B(18996) = dA(11972)/dV(1884) - B(18996) = RCT(11972)*V(5250) -! B(18997) = dA(11972)/dV(5250) - B(18997) = RCT(11972)*V(1884) -! B(18998) = dA(11973)/dV(1321) - B(18998) = RCT(11973)*V(5250) -! B(18999) = dA(11973)/dV(5250) - B(18999) = RCT(11973)*V(1321) -! B(19000) = dA(11974)/dV(2972) - B(19000) = RCT(11974) -! B(19001) = dA(11975)/dV(3861) - B(19001) = RCT(11975) -! B(19002) = dA(11976)/dV(3861) - B(19002) = RCT(11976)*V(5256) -! B(19003) = dA(11976)/dV(5256) - B(19003) = RCT(11976)*V(3861) -! B(19004) = dA(11977)/dV(3861) - B(19004) = RCT(11977)*V(5250) -! B(19005) = dA(11977)/dV(5250) - B(19005) = RCT(11977)*V(3861) -! B(19006) = dA(11978)/dV(348) - B(19006) = RCT(11978)*V(5250) -! B(19007) = dA(11978)/dV(5250) - B(19007) = RCT(11978)*V(348) -! B(19008) = dA(11979)/dV(4631) - B(19008) = RCT(11979)*V(5255) -! B(19009) = dA(11979)/dV(5255) - B(19009) = RCT(11979)*V(4631) -! B(19010) = dA(11980)/dV(4631) - B(19010) = RCT(11980)*V(5255) -! B(19011) = dA(11980)/dV(5255) - B(19011) = RCT(11980)*V(4631) -! B(19012) = dA(11981)/dV(4631) - B(19012) = RCT(11981)*V(5252) -! B(19013) = dA(11981)/dV(5252) - B(19013) = RCT(11981)*V(4631) -! B(19014) = dA(11982)/dV(4631) - B(19014) = RCT(11982)*V(5253) -! B(19015) = dA(11982)/dV(5253) - B(19015) = RCT(11982)*V(4631) -! B(19016) = dA(11983)/dV(4631) - B(19016) = RCT(11983)*V(5256) -! B(19017) = dA(11983)/dV(5256) - B(19017) = RCT(11983)*V(4631) -! B(19018) = dA(11984)/dV(4631) - B(19018) = RCT(11984) -! B(19019) = dA(11985)/dV(434) - B(19019) = RCT(11985)*V(5250) -! B(19020) = dA(11985)/dV(5250) - B(19020) = RCT(11985)*V(434) -! B(19021) = dA(11986)/dV(1041) - B(19021) = RCT(11986) -! B(19022) = dA(11987)/dV(1041) - B(19022) = RCT(11987)*V(5250) -! B(19023) = dA(11987)/dV(5250) - B(19023) = RCT(11987)*V(1041) -! B(19024) = dA(11988)/dV(3275) - B(19024) = RCT(11988) -! B(19025) = dA(11989)/dV(3275) - B(19025) = RCT(11989)*V(5250) -! B(19026) = dA(11989)/dV(5250) - B(19026) = RCT(11989)*V(3275) -! B(19027) = dA(11990)/dV(2381) - B(19027) = RCT(11990)*V(5250) -! B(19028) = dA(11990)/dV(5250) - B(19028) = RCT(11990)*V(2381) -! B(19029) = dA(11991)/dV(2381) - B(19029) = RCT(11991) -! B(19030) = dA(11992)/dV(1893) - B(19030) = RCT(11992)*V(5250) -! B(19031) = dA(11992)/dV(5250) - B(19031) = RCT(11992)*V(1893) -! B(19032) = dA(11993)/dV(1893) - B(19032) = RCT(11993) -! B(19033) = dA(11994)/dV(3408) - B(19033) = RCT(11994)*V(5250) -! B(19034) = dA(11994)/dV(5250) - B(19034) = RCT(11994)*V(3408) -! B(19035) = dA(11995)/dV(3408) - B(19035) = RCT(11995) -! B(19036) = dA(11996)/dV(1762) - B(19036) = RCT(11996)*V(5250) -! B(19037) = dA(11996)/dV(5250) - B(19037) = RCT(11996)*V(1762) -! B(19038) = dA(11997)/dV(1762) - B(19038) = RCT(11997) -! B(19039) = dA(11998)/dV(729) - B(19039) = RCT(11998) -! B(19040) = dA(11999)/dV(1901) - B(19040) = RCT(11999)*V(5250) -! B(19041) = dA(11999)/dV(5250) - B(19041) = RCT(11999)*V(1901) -! B(19042) = dA(12000)/dV(1901) - B(19042) = RCT(12000) -! B(19043) = dA(12001)/dV(786) - B(19043) = RCT(12001) -! B(19044) = dA(12002)/dV(3247) - B(19044) = RCT(12002) -! B(19045) = dA(12003)/dV(3247) - B(19045) = RCT(12003)*V(5250) -! B(19046) = dA(12003)/dV(5250) - B(19046) = RCT(12003)*V(3247) -! B(19047) = dA(12004)/dV(1319) - B(19047) = RCT(12004) -! B(19048) = dA(12005)/dV(1319) - B(19048) = RCT(12005)*V(5250) -! B(19049) = dA(12005)/dV(5250) - B(19049) = RCT(12005)*V(1319) -! B(19050) = dA(12006)/dV(2804) - B(19050) = RCT(12006) -! B(19051) = dA(12007)/dV(2804) - B(19051) = RCT(12007)*V(5250) -! B(19052) = dA(12007)/dV(5250) - B(19052) = RCT(12007)*V(2804) -! B(19053) = dA(12008)/dV(2360) - B(19053) = RCT(12008)*V(5250) -! B(19054) = dA(12008)/dV(5250) - B(19054) = RCT(12008)*V(2360) -! B(19055) = dA(12009)/dV(2360) - B(19055) = RCT(12009) -! B(19056) = dA(12010)/dV(672) - B(19056) = RCT(12010) -! B(19057) = dA(12011)/dV(992) - B(19057) = RCT(12011)*V(5250) -! B(19058) = dA(12011)/dV(5250) - B(19058) = RCT(12011)*V(992) -! B(19059) = dA(12012)/dV(992) - B(19059) = RCT(12012) -! B(19060) = dA(12013)/dV(80) - B(19060) = RCT(12013) -! B(19061) = dA(12014)/dV(4493) - B(19061) = RCT(12014)*V(5256) -! B(19062) = dA(12014)/dV(5256) - B(19062) = RCT(12014)*V(4493) -! B(19063) = dA(12015)/dV(4493) - B(19063) = RCT(12015)*V(5250) -! B(19064) = dA(12015)/dV(5250) - B(19064) = RCT(12015)*V(4493) -! B(19065) = dA(12016)/dV(4493) - B(19065) = RCT(12016) -! B(19066) = dA(12017)/dV(4189) - B(19066) = RCT(12017)*V(5255) -! B(19067) = dA(12017)/dV(5255) - B(19067) = RCT(12017)*V(4189) -! B(19068) = dA(12018)/dV(4189) - B(19068) = RCT(12018)*V(5252) -! B(19069) = dA(12018)/dV(5252) - B(19069) = RCT(12018)*V(4189) -! B(19070) = dA(12019)/dV(4189) - B(19070) = RCT(12019)*V(5252) -! B(19071) = dA(12019)/dV(5252) - B(19071) = RCT(12019)*V(4189) -! B(19072) = dA(12020)/dV(4189) - B(19072) = RCT(12020)*V(5256) -! B(19073) = dA(12020)/dV(5256) - B(19073) = RCT(12020)*V(4189) -! B(19074) = dA(12021)/dV(4189) - B(19074) = RCT(12021) -! B(19075) = dA(12022)/dV(4189) - B(19075) = RCT(12022) -! B(19076) = dA(12023)/dV(2423) - B(19076) = RCT(12023)*V(5250) -! B(19077) = dA(12023)/dV(5250) - B(19077) = RCT(12023)*V(2423) -! B(19078) = dA(12024)/dV(2423) - B(19078) = RCT(12024) -! B(19079) = dA(12025)/dV(541) - B(19079) = RCT(12025) -! B(19080) = dA(12026)/dV(3668) - B(19080) = RCT(12026)*V(5255) -! B(19081) = dA(12026)/dV(5255) - B(19081) = RCT(12026)*V(3668) -! B(19082) = dA(12027)/dV(3668) - B(19082) = RCT(12027)*V(5252) -! B(19083) = dA(12027)/dV(5252) - B(19083) = RCT(12027)*V(3668) -! B(19084) = dA(12028)/dV(3668) - B(19084) = RCT(12028)*V(5252) -! B(19085) = dA(12028)/dV(5252) - B(19085) = RCT(12028)*V(3668) -! B(19086) = dA(12029)/dV(3668) - B(19086) = RCT(12029)*V(5256) -! B(19087) = dA(12029)/dV(5256) - B(19087) = RCT(12029)*V(3668) -! B(19088) = dA(12030)/dV(3668) - B(19088) = RCT(12030) -! B(19089) = dA(12031)/dV(3668) - B(19089) = RCT(12031) -! B(19090) = dA(12032)/dV(3668) - B(19090) = RCT(12032) -! B(19091) = dA(12033)/dV(5021) - B(19091) = RCT(12033)*V(5255) -! B(19092) = dA(12033)/dV(5255) - B(19092) = RCT(12033)*V(5021) -! B(19093) = dA(12034)/dV(5021) - B(19093) = RCT(12034)*V(5255) -! B(19094) = dA(12034)/dV(5255) - B(19094) = RCT(12034)*V(5021) -! B(19095) = dA(12035)/dV(5021) - B(19095) = RCT(12035)*V(5255) -! B(19096) = dA(12035)/dV(5255) - B(19096) = RCT(12035)*V(5021) -! B(19097) = dA(12036)/dV(5021) - B(19097) = RCT(12036)*V(5252) -! B(19098) = dA(12036)/dV(5252) - B(19098) = RCT(12036)*V(5021) -! B(19099) = dA(12037)/dV(5021) - B(19099) = RCT(12037)*V(5253) -! B(19100) = dA(12037)/dV(5253) - B(19100) = RCT(12037)*V(5021) -! B(19101) = dA(12038)/dV(5021) - B(19101) = RCT(12038)*V(5256) -! B(19102) = dA(12038)/dV(5256) - B(19102) = RCT(12038)*V(5021) -! B(19103) = dA(12039)/dV(5021) - B(19103) = RCT(12039) -! B(19104) = dA(12040)/dV(5021) - B(19104) = RCT(12040) -! B(19105) = dA(12041)/dV(5086) - B(19105) = RCT(12041)*V(5256) -! B(19106) = dA(12041)/dV(5256) - B(19106) = RCT(12041)*V(5086) -! B(19107) = dA(12042)/dV(5086) - B(19107) = RCT(12042)*V(5250) -! B(19108) = dA(12042)/dV(5250) - B(19108) = RCT(12042)*V(5086) -! B(19109) = dA(12043)/dV(5086) - B(19109) = RCT(12043) -! B(19110) = dA(12044)/dV(3761) - B(19110) = RCT(12044)*V(5255) -! B(19111) = dA(12044)/dV(5255) - B(19111) = RCT(12044)*V(3761) -! B(19112) = dA(12045)/dV(3761) - B(19112) = RCT(12045)*V(5252) -! B(19113) = dA(12045)/dV(5252) - B(19113) = RCT(12045)*V(3761) -! B(19114) = dA(12046)/dV(3761) - B(19114) = RCT(12046)*V(5256) -! B(19115) = dA(12046)/dV(5256) - B(19115) = RCT(12046)*V(3761) -! B(19116) = dA(12047)/dV(3761) - B(19116) = RCT(12047) -! B(19117) = dA(12048)/dV(4580) - B(19117) = RCT(12048)*V(5255) -! B(19118) = dA(12048)/dV(5255) - B(19118) = RCT(12048)*V(4580) -! B(19119) = dA(12049)/dV(4580) - B(19119) = RCT(12049)*V(5252) -! B(19120) = dA(12049)/dV(5252) - B(19120) = RCT(12049)*V(4580) -! B(19121) = dA(12050)/dV(4580) - B(19121) = RCT(12050)*V(5252) -! B(19122) = dA(12050)/dV(5252) - B(19122) = RCT(12050)*V(4580) -! B(19123) = dA(12051)/dV(4580) - B(19123) = RCT(12051)*V(5256) -! B(19124) = dA(12051)/dV(5256) - B(19124) = RCT(12051)*V(4580) -! B(19125) = dA(12052)/dV(4580) - B(19125) = RCT(12052) -! B(19126) = dA(12053)/dV(4580) - B(19126) = RCT(12053) -! B(19127) = dA(12054)/dV(4290) - B(19127) = RCT(12054)*V(5255) -! B(19128) = dA(12054)/dV(5255) - B(19128) = RCT(12054)*V(4290) -! B(19129) = dA(12055)/dV(4290) - B(19129) = RCT(12055)*V(5252) -! B(19130) = dA(12055)/dV(5252) - B(19130) = RCT(12055)*V(4290) -! B(19131) = dA(12056)/dV(4290) - B(19131) = RCT(12056)*V(5256) -! B(19132) = dA(12056)/dV(5256) - B(19132) = RCT(12056)*V(4290) -! B(19133) = dA(12057)/dV(4290) - B(19133) = RCT(12057) -! B(19134) = dA(12058)/dV(5159) - B(19134) = RCT(12058)*V(5256) -! B(19135) = dA(12058)/dV(5256) - B(19135) = RCT(12058)*V(5159) -! B(19136) = dA(12059)/dV(5159) - B(19136) = RCT(12059)*V(5250) -! B(19137) = dA(12059)/dV(5250) - B(19137) = RCT(12059)*V(5159) -! B(19138) = dA(12060)/dV(5159) - B(19138) = RCT(12060)*V(5250) -! B(19139) = dA(12060)/dV(5250) - B(19139) = RCT(12060)*V(5159) -! B(19140) = dA(12061)/dV(5159) - B(19140) = RCT(12061) -! B(19141) = dA(12062)/dV(4119) - B(19141) = RCT(12062)*V(5255) -! B(19142) = dA(12062)/dV(5255) - B(19142) = RCT(12062)*V(4119) -! B(19143) = dA(12063)/dV(4119) - B(19143) = RCT(12063)*V(5252) -! B(19144) = dA(12063)/dV(5252) - B(19144) = RCT(12063)*V(4119) -! B(19145) = dA(12064)/dV(4119) - B(19145) = RCT(12064)*V(5252) -! B(19146) = dA(12064)/dV(5252) - B(19146) = RCT(12064)*V(4119) -! B(19147) = dA(12065)/dV(4119) - B(19147) = RCT(12065)*V(5256) -! B(19148) = dA(12065)/dV(5256) - B(19148) = RCT(12065)*V(4119) -! B(19149) = dA(12066)/dV(4119) - B(19149) = RCT(12066) -! B(19150) = dA(12067)/dV(4119) - B(19150) = RCT(12067) -! B(19151) = dA(12068)/dV(3710) - B(19151) = RCT(12068)*V(5255) -! B(19152) = dA(12068)/dV(5255) - B(19152) = RCT(12068)*V(3710) -! B(19153) = dA(12069)/dV(3710) - B(19153) = RCT(12069)*V(5252) -! B(19154) = dA(12069)/dV(5252) - B(19154) = RCT(12069)*V(3710) -! B(19155) = dA(12070)/dV(3710) - B(19155) = RCT(12070)*V(5256) -! B(19156) = dA(12070)/dV(5256) - B(19156) = RCT(12070)*V(3710) -! B(19157) = dA(12071)/dV(3710) - B(19157) = RCT(12071) -! B(19158) = dA(12072)/dV(3710) - B(19158) = RCT(12072) -! B(19159) = dA(12073)/dV(3710) - B(19159) = RCT(12073) -! B(19160) = dA(12074)/dV(4166) - B(19160) = RCT(12074)*V(5255) -! B(19161) = dA(12074)/dV(5255) - B(19161) = RCT(12074)*V(4166) -! B(19162) = dA(12075)/dV(4166) - B(19162) = RCT(12075)*V(5252) -! B(19163) = dA(12075)/dV(5252) - B(19163) = RCT(12075)*V(4166) -! B(19164) = dA(12076)/dV(4166) - B(19164) = RCT(12076)*V(5252) -! B(19165) = dA(12076)/dV(5252) - B(19165) = RCT(12076)*V(4166) -! B(19166) = dA(12077)/dV(4166) - B(19166) = RCT(12077)*V(5256) -! B(19167) = dA(12077)/dV(5256) - B(19167) = RCT(12077)*V(4166) -! B(19168) = dA(12078)/dV(4166) - B(19168) = RCT(12078) -! B(19169) = dA(12079)/dV(4166) - B(19169) = RCT(12079) -! B(19170) = dA(12080)/dV(4484) - B(19170) = RCT(12080)*V(5255) -! B(19171) = dA(12080)/dV(5255) - B(19171) = RCT(12080)*V(4484) -! B(19172) = dA(12081)/dV(4484) - B(19172) = RCT(12081)*V(5255) -! B(19173) = dA(12081)/dV(5255) - B(19173) = RCT(12081)*V(4484) -! B(19174) = dA(12082)/dV(4484) - B(19174) = RCT(12082)*V(5255) -! B(19175) = dA(12082)/dV(5255) - B(19175) = RCT(12082)*V(4484) -! B(19176) = dA(12083)/dV(4484) - B(19176) = RCT(12083)*V(5252) -! B(19177) = dA(12083)/dV(5252) - B(19177) = RCT(12083)*V(4484) -! B(19178) = dA(12084)/dV(4484) - B(19178) = RCT(12084)*V(5253) -! B(19179) = dA(12084)/dV(5253) - B(19179) = RCT(12084)*V(4484) -! B(19180) = dA(12085)/dV(4484) - B(19180) = RCT(12085)*V(5256) -! B(19181) = dA(12085)/dV(5256) - B(19181) = RCT(12085)*V(4484) -! B(19182) = dA(12086)/dV(4484) - B(19182) = RCT(12086) -! B(19183) = dA(12087)/dV(4484) - B(19183) = RCT(12087) -! B(19184) = dA(12088)/dV(4077) - B(19184) = RCT(12088)*V(5255) -! B(19185) = dA(12088)/dV(5255) - B(19185) = RCT(12088)*V(4077) -! B(19186) = dA(12089)/dV(4077) - B(19186) = RCT(12089)*V(5252) -! B(19187) = dA(12089)/dV(5252) - B(19187) = RCT(12089)*V(4077) -! B(19188) = dA(12090)/dV(4077) - B(19188) = RCT(12090)*V(5256) -! B(19189) = dA(12090)/dV(5256) - B(19189) = RCT(12090)*V(4077) -! B(19190) = dA(12091)/dV(4077) - B(19190) = RCT(12091) -! B(19191) = dA(12092)/dV(4077) - B(19191) = RCT(12092) -! B(19192) = dA(12093)/dV(4077) - B(19192) = RCT(12093) -! B(19193) = dA(12094)/dV(1442) - B(19193) = RCT(12094)*V(5250) -! B(19194) = dA(12094)/dV(5250) - B(19194) = RCT(12094)*V(1442) -! B(19195) = dA(12095)/dV(1442) - B(19195) = RCT(12095) -! B(19196) = dA(12096)/dV(859) - B(19196) = RCT(12096)*V(5250) -! B(19197) = dA(12096)/dV(5250) - B(19197) = RCT(12096)*V(859) -! B(19198) = dA(12097)/dV(859) - B(19198) = RCT(12097) -! B(19199) = dA(12098)/dV(4900) - B(19199) = RCT(12098)*V(5255) -! B(19200) = dA(12098)/dV(5255) - B(19200) = RCT(12098)*V(4900) -! B(19201) = dA(12099)/dV(4900) - B(19201) = RCT(12099)*V(5252) -! B(19202) = dA(12099)/dV(5252) - B(19202) = RCT(12099)*V(4900) -! B(19203) = dA(12100)/dV(4900) - B(19203) = RCT(12100)*V(5252) -! B(19204) = dA(12100)/dV(5252) - B(19204) = RCT(12100)*V(4900) -! B(19205) = dA(12101)/dV(4900) - B(19205) = RCT(12101)*V(5256) -! B(19206) = dA(12101)/dV(5256) - B(19206) = RCT(12101)*V(4900) -! B(19207) = dA(12102)/dV(4900) - B(19207) = RCT(12102) -! B(19208) = dA(12103)/dV(4900) - B(19208) = RCT(12103) -! B(19209) = dA(12104)/dV(4900) - B(19209) = RCT(12104) -! B(19210) = dA(12105)/dV(2636) - B(19210) = RCT(12105)*V(5250) -! B(19211) = dA(12105)/dV(5250) - B(19211) = RCT(12105)*V(2636) -! B(19212) = dA(12106)/dV(2636) - B(19212) = RCT(12106) -! B(19213) = dA(12107)/dV(3706) - B(19213) = RCT(12107)*V(5255) -! B(19214) = dA(12107)/dV(5255) - B(19214) = RCT(12107)*V(3706) -! B(19215) = dA(12108)/dV(3706) - B(19215) = RCT(12108)*V(5252) -! B(19216) = dA(12108)/dV(5252) - B(19216) = RCT(12108)*V(3706) -! B(19217) = dA(12109)/dV(3706) - B(19217) = RCT(12109)*V(5256) -! B(19218) = dA(12109)/dV(5256) - B(19218) = RCT(12109)*V(3706) -! B(19219) = dA(12110)/dV(3706) - B(19219) = RCT(12110) -! B(19220) = dA(12111)/dV(3706) - B(19220) = RCT(12111) -! B(19221) = dA(12112)/dV(3706) - B(19221) = RCT(12112) -! B(19222) = dA(12113)/dV(1093) - B(19222) = RCT(12113)*V(5250) -! B(19223) = dA(12113)/dV(5250) - B(19223) = RCT(12113)*V(1093) -! B(19224) = dA(12114)/dV(1093) - B(19224) = RCT(12114) -! B(19225) = dA(12115)/dV(2661) - B(19225) = RCT(12115)*V(5250) -! B(19226) = dA(12115)/dV(5250) - B(19226) = RCT(12115)*V(2661) -! B(19227) = dA(12116)/dV(2661) - B(19227) = RCT(12116) -! B(19228) = dA(12117)/dV(443) - B(19228) = RCT(12117) -! B(19229) = dA(12118)/dV(442) - B(19229) = RCT(12118)*V(5250) -! B(19230) = dA(12118)/dV(5250) - B(19230) = RCT(12118)*V(442) -! B(19231) = dA(12119)/dV(442) - B(19231) = RCT(12119) -! B(19232) = dA(12120)/dV(1351) - B(19232) = RCT(12120)*V(5250) -! B(19233) = dA(12120)/dV(5250) - B(19233) = RCT(12120)*V(1351) -! B(19234) = dA(12121)/dV(1351) - B(19234) = RCT(12121) -! B(19235) = dA(12122)/dV(1689) - B(19235) = RCT(12122) -! B(19236) = dA(12123)/dV(1676) - B(19236) = RCT(12123)*V(5250) -! B(19237) = dA(12123)/dV(5250) - B(19237) = RCT(12123)*V(1676) -! B(19238) = dA(12124)/dV(1676) - B(19238) = RCT(12124) -! B(19239) = dA(12125)/dV(1424) - B(19239) = RCT(12125)*V(5250) -! B(19240) = dA(12125)/dV(5250) - B(19240) = RCT(12125)*V(1424) -! B(19241) = dA(12126)/dV(1424) - B(19241) = RCT(12126) -! B(19242) = dA(12127)/dV(2340) - B(19242) = RCT(12127)*V(5250) -! B(19243) = dA(12127)/dV(5250) - B(19243) = RCT(12127)*V(2340) -! B(19244) = dA(12128)/dV(2340) - B(19244) = RCT(12128) -! B(19245) = dA(12129)/dV(2533) - B(19245) = RCT(12129)*V(5250) -! B(19246) = dA(12129)/dV(5250) - B(19246) = RCT(12129)*V(2533) -! B(19247) = dA(12130)/dV(2533) - B(19247) = RCT(12130) -! B(19248) = dA(12131)/dV(1260) - B(19248) = RCT(12131)*V(5250) -! B(19249) = dA(12131)/dV(5250) - B(19249) = RCT(12131)*V(1260) -! B(19250) = dA(12132)/dV(1260) - B(19250) = RCT(12132) -! B(19251) = dA(12133)/dV(2458) - B(19251) = RCT(12133)*V(5250) -! B(19252) = dA(12133)/dV(5250) - B(19252) = RCT(12133)*V(2458) -! B(19253) = dA(12134)/dV(2458) - B(19253) = RCT(12134) -! B(19254) = dA(12135)/dV(182) - B(19254) = RCT(12135) -! B(19255) = dA(12136)/dV(2377) - B(19255) = RCT(12136)*V(5250) -! B(19256) = dA(12136)/dV(5250) - B(19256) = RCT(12136)*V(2377) -! B(19257) = dA(12137)/dV(821) - B(19257) = RCT(12137)*V(5250) -! B(19258) = dA(12137)/dV(5250) - B(19258) = RCT(12137)*V(821) -! B(19259) = dA(12138)/dV(821) - B(19259) = RCT(12138) -! B(19260) = dA(12139)/dV(1071) - B(19260) = RCT(12139)*V(5250) -! B(19261) = dA(12139)/dV(5250) - B(19261) = RCT(12139)*V(1071) -! B(19262) = dA(12140)/dV(1071) - B(19262) = RCT(12140) -! B(19263) = dA(12141)/dV(2495) - B(19263) = RCT(12141) -! B(19264) = dA(12142)/dV(311) - B(19264) = RCT(12142)*V(5250) -! B(19265) = dA(12142)/dV(5250) - B(19265) = RCT(12142)*V(311) -! B(19266) = dA(12143)/dV(311) - B(19266) = RCT(12143) -! B(19267) = dA(12144)/dV(5017) - B(19267) = RCT(12144)*V(5255) -! B(19268) = dA(12144)/dV(5255) - B(19268) = RCT(12144)*V(5017) -! B(19269) = dA(12145)/dV(5017) - B(19269) = RCT(12145)*V(5255) -! B(19270) = dA(12145)/dV(5255) - B(19270) = RCT(12145)*V(5017) -! B(19271) = dA(12146)/dV(5017) - B(19271) = RCT(12146)*V(5255) -! B(19272) = dA(12146)/dV(5255) - B(19272) = RCT(12146)*V(5017) -! B(19273) = dA(12147)/dV(5017) - B(19273) = RCT(12147)*V(5252) -! B(19274) = dA(12147)/dV(5252) - B(19274) = RCT(12147)*V(5017) -! B(19275) = dA(12148)/dV(5017) - B(19275) = RCT(12148)*V(5253) -! B(19276) = dA(12148)/dV(5253) - B(19276) = RCT(12148)*V(5017) -! B(19277) = dA(12149)/dV(5017) - B(19277) = RCT(12149)*V(5256) -! B(19278) = dA(12149)/dV(5256) - B(19278) = RCT(12149)*V(5017) -! B(19279) = dA(12150)/dV(5017) - B(19279) = RCT(12150) -! B(19280) = dA(12151)/dV(5017) - B(19280) = RCT(12151) -! B(19281) = dA(12152)/dV(5084) - B(19281) = RCT(12152)*V(5255) -! B(19282) = dA(12152)/dV(5255) - B(19282) = RCT(12152)*V(5084) -! B(19283) = dA(12153)/dV(5084) - B(19283) = RCT(12153)*V(5252) -! B(19284) = dA(12153)/dV(5252) - B(19284) = RCT(12153)*V(5084) -! B(19285) = dA(12154)/dV(5084) - B(19285) = RCT(12154)*V(5252) -! B(19286) = dA(12154)/dV(5252) - B(19286) = RCT(12154)*V(5084) -! B(19287) = dA(12155)/dV(5084) - B(19287) = RCT(12155)*V(5256) -! B(19288) = dA(12155)/dV(5256) - B(19288) = RCT(12155)*V(5084) -! B(19289) = dA(12156)/dV(5084) - B(19289) = RCT(12156) -! B(19290) = dA(12157)/dV(5084) - B(19290) = RCT(12157) -! B(19291) = dA(12158)/dV(5084) - B(19291) = RCT(12158) -! B(19292) = dA(12159)/dV(4236) - B(19292) = RCT(12159)*V(5255) -! B(19293) = dA(12159)/dV(5255) - B(19293) = RCT(12159)*V(4236) -! B(19294) = dA(12160)/dV(4236) - B(19294) = RCT(12160)*V(5252) -! B(19295) = dA(12160)/dV(5252) - B(19295) = RCT(12160)*V(4236) -! B(19296) = dA(12161)/dV(4236) - B(19296) = RCT(12161)*V(5256) -! B(19297) = dA(12161)/dV(5256) - B(19297) = RCT(12161)*V(4236) -! B(19298) = dA(12162)/dV(4236) - B(19298) = RCT(12162) -! B(19299) = dA(12163)/dV(4236) - B(19299) = RCT(12163) -! B(19300) = dA(12164)/dV(1012) - B(19300) = RCT(12164)*V(5250) -! B(19301) = dA(12164)/dV(5250) - B(19301) = RCT(12164)*V(1012) -! B(19302) = dA(12165)/dV(1012) - B(19302) = RCT(12165) -! B(19303) = dA(12166)/dV(2378) - B(19303) = RCT(12166)*V(5250) -! B(19304) = dA(12166)/dV(5250) - B(19304) = RCT(12166)*V(2378) -! B(19305) = dA(12167)/dV(2512) - B(19305) = RCT(12167) -! B(19306) = dA(12168)/dV(317) - B(19306) = RCT(12168)*V(5250) -! B(19307) = dA(12168)/dV(5250) - B(19307) = RCT(12168)*V(317) -! B(19308) = dA(12169)/dV(317) - B(19308) = RCT(12169) -! B(19309) = dA(12170)/dV(1237) - B(19309) = RCT(12170)*V(5250) -! B(19310) = dA(12170)/dV(5250) - B(19310) = RCT(12170)*V(1237) -! B(19311) = dA(12171)/dV(1237) - B(19311) = RCT(12171) -! B(19312) = dA(12172)/dV(2155) - B(19312) = RCT(12172)*V(5250) -! B(19313) = dA(12172)/dV(5250) - B(19313) = RCT(12172)*V(2155) -! B(19314) = dA(12173)/dV(2155) - B(19314) = RCT(12173) -! B(19315) = dA(12174)/dV(180) - B(19315) = RCT(12174) -! B(19316) = dA(12175)/dV(5095) - B(19316) = RCT(12175)*V(5256) -! B(19317) = dA(12175)/dV(5256) - B(19317) = RCT(12175)*V(5095) -! B(19318) = dA(12176)/dV(5095) - B(19318) = RCT(12176)*V(5256) -! B(19319) = dA(12176)/dV(5256) - B(19319) = RCT(12176)*V(5095) -! B(19320) = dA(12177)/dV(5095) - B(19320) = RCT(12177)*V(5258) -! B(19321) = dA(12177)/dV(5258) - B(19321) = RCT(12177)*V(5095) -! B(19322) = dA(12178)/dV(5095) - B(19322) = RCT(12178)*V(5258) -! B(19323) = dA(12178)/dV(5258) - B(19323) = RCT(12178)*V(5095) -! B(19324) = dA(12179)/dV(5095) - B(19324) = RCT(12179)*V(5250) -! B(19325) = dA(12179)/dV(5250) - B(19325) = RCT(12179)*V(5095) -! B(19326) = dA(12180)/dV(5095) - B(19326) = RCT(12180)*V(5250) -! B(19327) = dA(12180)/dV(5250) - B(19327) = RCT(12180)*V(5095) -! B(19328) = dA(12181)/dV(5095) - B(19328) = RCT(12181) -! B(19329) = dA(12182)/dV(3962) - B(19329) = RCT(12182)*V(5255) -! B(19330) = dA(12182)/dV(5255) - B(19330) = RCT(12182)*V(3962) -! B(19331) = dA(12183)/dV(3962) - B(19331) = RCT(12183)*V(5252) -! B(19332) = dA(12183)/dV(5252) - B(19332) = RCT(12183)*V(3962) -! B(19333) = dA(12184)/dV(3962) - B(19333) = RCT(12184)*V(5252) -! B(19334) = dA(12184)/dV(5252) - B(19334) = RCT(12184)*V(3962) -! B(19335) = dA(12185)/dV(3962) - B(19335) = RCT(12185)*V(5256) -! B(19336) = dA(12185)/dV(5256) - B(19336) = RCT(12185)*V(3962) -! B(19337) = dA(12186)/dV(3962) - B(19337) = RCT(12186) -! B(19338) = dA(12187)/dV(3962) - B(19338) = RCT(12187) -! B(19339) = dA(12188)/dV(3962) - B(19339) = RCT(12188) -! B(19340) = dA(12189)/dV(4638) - B(19340) = RCT(12189)*V(5255) -! B(19341) = dA(12189)/dV(5255) - B(19341) = RCT(12189)*V(4638) -! B(19342) = dA(12190)/dV(4638) - B(19342) = RCT(12190)*V(5255) -! B(19343) = dA(12190)/dV(5255) - B(19343) = RCT(12190)*V(4638) -! B(19344) = dA(12191)/dV(4638) - B(19344) = RCT(12191)*V(5255) -! B(19345) = dA(12191)/dV(5255) - B(19345) = RCT(12191)*V(4638) -! B(19346) = dA(12192)/dV(4638) - B(19346) = RCT(12192)*V(5252) -! B(19347) = dA(12192)/dV(5252) - B(19347) = RCT(12192)*V(4638) -! B(19348) = dA(12193)/dV(4638) - B(19348) = RCT(12193)*V(5253) -! B(19349) = dA(12193)/dV(5253) - B(19349) = RCT(12193)*V(4638) -! B(19350) = dA(12194)/dV(4638) - B(19350) = RCT(12194)*V(5256) -! B(19351) = dA(12194)/dV(5256) - B(19351) = RCT(12194)*V(4638) -! B(19352) = dA(12195)/dV(4638) - B(19352) = RCT(12195) -! B(19353) = dA(12196)/dV(4638) - B(19353) = RCT(12196) -! B(19354) = dA(12197)/dV(3839) - B(19354) = RCT(12197)*V(5255) -! B(19355) = dA(12197)/dV(5255) - B(19355) = RCT(12197)*V(3839) -! B(19356) = dA(12198)/dV(3839) - B(19356) = RCT(12198)*V(5252) -! B(19357) = dA(12198)/dV(5252) - B(19357) = RCT(12198)*V(3839) -! B(19358) = dA(12199)/dV(3839) - B(19358) = RCT(12199)*V(5256) -! B(19359) = dA(12199)/dV(5256) - B(19359) = RCT(12199)*V(3839) -! B(19360) = dA(12200)/dV(3839) - B(19360) = RCT(12200) -! B(19361) = dA(12201)/dV(5006) - B(19361) = RCT(12201)*V(5255) -! B(19362) = dA(12201)/dV(5255) - B(19362) = RCT(12201)*V(5006) -! B(19363) = dA(12202)/dV(5006) - B(19363) = RCT(12202)*V(5255) -! B(19364) = dA(12202)/dV(5255) - B(19364) = RCT(12202)*V(5006) -! B(19365) = dA(12203)/dV(5006) - B(19365) = RCT(12203)*V(5255) -! B(19366) = dA(12203)/dV(5255) - B(19366) = RCT(12203)*V(5006) -! B(19367) = dA(12204)/dV(5006) - B(19367) = RCT(12204)*V(5252) -! B(19368) = dA(12204)/dV(5252) - B(19368) = RCT(12204)*V(5006) -! B(19369) = dA(12205)/dV(5006) - B(19369) = RCT(12205)*V(5253) -! B(19370) = dA(12205)/dV(5253) - B(19370) = RCT(12205)*V(5006) -! B(19371) = dA(12206)/dV(5006) - B(19371) = RCT(12206)*V(5256) -! B(19372) = dA(12206)/dV(5256) - B(19372) = RCT(12206)*V(5006) -! B(19373) = dA(12207)/dV(5006) - B(19373) = RCT(12207) -! B(19374) = dA(12208)/dV(5006) - B(19374) = RCT(12208) -! B(19375) = dA(12209)/dV(3629) - B(19375) = RCT(12209)*V(5250) -! B(19376) = dA(12209)/dV(5250) - B(19376) = RCT(12209)*V(3629) -! B(19377) = dA(12210)/dV(3629) - B(19377) = RCT(12210) -! B(19378) = dA(12211)/dV(2305) - B(19378) = RCT(12211)*V(5250) -! B(19379) = dA(12211)/dV(5250) - B(19379) = RCT(12211)*V(2305) -! B(19380) = dA(12212)/dV(2305) - B(19380) = RCT(12212) -! B(19381) = dA(12213)/dV(2305) - B(19381) = RCT(12213) -! B(19382) = dA(12214)/dV(679) - B(19382) = RCT(12214) -! B(19383) = dA(12215)/dV(2265) - B(19383) = RCT(12215)*V(5250) -! B(19384) = dA(12215)/dV(5250) - B(19384) = RCT(12215)*V(2265) -! B(19385) = dA(12216)/dV(2265) - B(19385) = RCT(12216) -! B(19386) = dA(12217)/dV(1586) - B(19386) = RCT(12217)*V(5250) -! B(19387) = dA(12217)/dV(5250) - B(19387) = RCT(12217)*V(1586) -! B(19388) = dA(12218)/dV(1586) - B(19388) = RCT(12218) -! B(19389) = dA(12219)/dV(2022) - B(19389) = RCT(12219)*V(5250) -! B(19390) = dA(12219)/dV(5250) - B(19390) = RCT(12219)*V(2022) -! B(19391) = dA(12220)/dV(2022) - B(19391) = RCT(12220) -! B(19392) = dA(12221)/dV(2022) - B(19392) = RCT(12221) -! B(19393) = dA(12222)/dV(619) - B(19393) = RCT(12222) -! B(19394) = dA(12223)/dV(2141) - B(19394) = RCT(12223)*V(5250) -! B(19395) = dA(12223)/dV(5250) - B(19395) = RCT(12223)*V(2141) -! B(19396) = dA(12224)/dV(2141) - B(19396) = RCT(12224) -! B(19397) = dA(12225)/dV(1615) - B(19397) = RCT(12225)*V(5250) -! B(19398) = dA(12225)/dV(5250) - B(19398) = RCT(12225)*V(1615) -! B(19399) = dA(12226)/dV(1615) - B(19399) = RCT(12226) -! B(19400) = dA(12227)/dV(5131) - B(19400) = RCT(12227)*V(5255) -! B(19401) = dA(12227)/dV(5255) - B(19401) = RCT(12227)*V(5131) -! B(19402) = dA(12228)/dV(5131) - B(19402) = RCT(12228)*V(5255) -! B(19403) = dA(12228)/dV(5255) - B(19403) = RCT(12228)*V(5131) -! B(19404) = dA(12229)/dV(5131) - B(19404) = RCT(12229)*V(5255) -! B(19405) = dA(12229)/dV(5255) - B(19405) = RCT(12229)*V(5131) -! B(19406) = dA(12230)/dV(5131) - B(19406) = RCT(12230)*V(5252) -! B(19407) = dA(12230)/dV(5252) - B(19407) = RCT(12230)*V(5131) -! B(19408) = dA(12231)/dV(5131) - B(19408) = RCT(12231)*V(5253) -! B(19409) = dA(12231)/dV(5253) - B(19409) = RCT(12231)*V(5131) -! B(19410) = dA(12232)/dV(5131) - B(19410) = RCT(12232)*V(5256) -! B(19411) = dA(12232)/dV(5256) - B(19411) = RCT(12232)*V(5131) -! B(19412) = dA(12233)/dV(5131) - B(19412) = RCT(12233) -! B(19413) = dA(12234)/dV(5131) - B(19413) = RCT(12234) -! B(19414) = dA(12235)/dV(5052) - B(19414) = RCT(12235)*V(5255) -! B(19415) = dA(12235)/dV(5255) - B(19415) = RCT(12235)*V(5052) -! B(19416) = dA(12236)/dV(5052) - B(19416) = RCT(12236)*V(5255) -! B(19417) = dA(12236)/dV(5255) - B(19417) = RCT(12236)*V(5052) -! B(19418) = dA(12237)/dV(5052) - B(19418) = RCT(12237)*V(5255) -! B(19419) = dA(12237)/dV(5255) - B(19419) = RCT(12237)*V(5052) -! B(19420) = dA(12238)/dV(5052) - B(19420) = RCT(12238)*V(5252) -! B(19421) = dA(12238)/dV(5252) - B(19421) = RCT(12238)*V(5052) -! B(19422) = dA(12239)/dV(5052) - B(19422) = RCT(12239)*V(5253) -! B(19423) = dA(12239)/dV(5253) - B(19423) = RCT(12239)*V(5052) -! B(19424) = dA(12240)/dV(5052) - B(19424) = RCT(12240)*V(5256) -! B(19425) = dA(12240)/dV(5256) - B(19425) = RCT(12240)*V(5052) -! B(19426) = dA(12241)/dV(5052) - B(19426) = RCT(12241) -! B(19427) = dA(12242)/dV(5052) - B(19427) = RCT(12242) -! B(19428) = dA(12243)/dV(5247) - B(19428) = RCT(12243)*V(5255) -! B(19429) = dA(12243)/dV(5255) - B(19429) = RCT(12243)*V(5247) -! B(19430) = dA(12244)/dV(5247) - B(19430) = RCT(12244)*V(5252) -! B(19431) = dA(12244)/dV(5252) - B(19431) = RCT(12244)*V(5247) -! B(19432) = dA(12245)/dV(5247) - B(19432) = RCT(12245)*V(5256) -! B(19433) = dA(12245)/dV(5256) - B(19433) = RCT(12245)*V(5247) -! B(19434) = dA(12246)/dV(5247) - B(19434) = RCT(12246) -! B(19435) = dA(12247)/dV(5247) - B(19435) = RCT(12247) -! B(19436) = dA(12248)/dV(4679) - B(19436) = RCT(12248)*V(5255) -! B(19437) = dA(12248)/dV(5255) - B(19437) = RCT(12248)*V(4679) -! B(19438) = dA(12249)/dV(4679) - B(19438) = RCT(12249)*V(5255) -! B(19439) = dA(12249)/dV(5255) - B(19439) = RCT(12249)*V(4679) -! B(19440) = dA(12250)/dV(4679) - B(19440) = RCT(12250)*V(5255) -! B(19441) = dA(12250)/dV(5255) - B(19441) = RCT(12250)*V(4679) -! B(19442) = dA(12251)/dV(4679) - B(19442) = RCT(12251)*V(5252) -! B(19443) = dA(12251)/dV(5252) - B(19443) = RCT(12251)*V(4679) -! B(19444) = dA(12252)/dV(4679) - B(19444) = RCT(12252)*V(5253) -! B(19445) = dA(12252)/dV(5253) - B(19445) = RCT(12252)*V(4679) -! B(19446) = dA(12253)/dV(4679) - B(19446) = RCT(12253)*V(5256) -! B(19447) = dA(12253)/dV(5256) - B(19447) = RCT(12253)*V(4679) -! B(19448) = dA(12254)/dV(4679) - B(19448) = RCT(12254) -! B(19449) = dA(12255)/dV(4679) - B(19449) = RCT(12255) -! B(19450) = dA(12256)/dV(4431) - B(19450) = RCT(12256)*V(5255) -! B(19451) = dA(12256)/dV(5255) - B(19451) = RCT(12256)*V(4431) -! B(19452) = dA(12257)/dV(4431) - B(19452) = RCT(12257)*V(5255) -! B(19453) = dA(12257)/dV(5255) - B(19453) = RCT(12257)*V(4431) -! B(19454) = dA(12258)/dV(4431) - B(19454) = RCT(12258)*V(5255) -! B(19455) = dA(12258)/dV(5255) - B(19455) = RCT(12258)*V(4431) -! B(19456) = dA(12259)/dV(4431) - B(19456) = RCT(12259)*V(5252) -! B(19457) = dA(12259)/dV(5252) - B(19457) = RCT(12259)*V(4431) -! B(19458) = dA(12260)/dV(4431) - B(19458) = RCT(12260)*V(5253) -! B(19459) = dA(12260)/dV(5253) - B(19459) = RCT(12260)*V(4431) -! B(19460) = dA(12261)/dV(4431) - B(19460) = RCT(12261)*V(5256) -! B(19461) = dA(12261)/dV(5256) - B(19461) = RCT(12261)*V(4431) -! B(19462) = dA(12262)/dV(4431) - B(19462) = RCT(12262) -! B(19463) = dA(12263)/dV(4431) - B(19463) = RCT(12263) -! B(19464) = dA(12264)/dV(2909) - B(19464) = RCT(12264)*V(5250) -! B(19465) = dA(12264)/dV(5250) - B(19465) = RCT(12264)*V(2909) -! B(19466) = dA(12265)/dV(3890) - B(19466) = RCT(12265)*V(5255) -! B(19467) = dA(12265)/dV(5255) - B(19467) = RCT(12265)*V(3890) -! B(19468) = dA(12266)/dV(3890) - B(19468) = RCT(12266)*V(5252) -! B(19469) = dA(12266)/dV(5252) - B(19469) = RCT(12266)*V(3890) -! B(19470) = dA(12267)/dV(3890) - B(19470) = RCT(12267)*V(5252) -! B(19471) = dA(12267)/dV(5252) - B(19471) = RCT(12267)*V(3890) -! B(19472) = dA(12268)/dV(3890) - B(19472) = RCT(12268)*V(5256) -! B(19473) = dA(12268)/dV(5256) - B(19473) = RCT(12268)*V(3890) -! B(19474) = dA(12269)/dV(3890) - B(19474) = RCT(12269) -! B(19475) = dA(12270)/dV(3890) - B(19475) = RCT(12270) -! B(19476) = dA(12271)/dV(3890) - B(19476) = RCT(12271) -! B(19477) = dA(12272)/dV(507) - B(19477) = RCT(12272)*V(5250) -! B(19478) = dA(12272)/dV(5250) - B(19478) = RCT(12272)*V(507) -! B(19479) = dA(12273)/dV(1454) - B(19479) = RCT(12273)*V(5250) -! B(19480) = dA(12273)/dV(5250) - B(19480) = RCT(12273)*V(1454) -! B(19481) = dA(12274)/dV(1454) - B(19481) = RCT(12274) -! B(19482) = dA(12275)/dV(2781) - B(19482) = RCT(12275)*V(5250) -! B(19483) = dA(12275)/dV(5250) - B(19483) = RCT(12275)*V(2781) -! B(19484) = dA(12276)/dV(2781) - B(19484) = RCT(12276) -! B(19485) = dA(12277)/dV(830) - B(19485) = RCT(12277)*V(5250) -! B(19486) = dA(12277)/dV(5250) - B(19486) = RCT(12277)*V(830) -! B(19487) = dA(12278)/dV(830) - B(19487) = RCT(12278) -! B(19488) = dA(12279)/dV(1657) - B(19488) = RCT(12279)*V(5250) -! B(19489) = dA(12279)/dV(5250) - B(19489) = RCT(12279)*V(1657) -! B(19490) = dA(12280)/dV(1657) - B(19490) = RCT(12280) -! B(19491) = dA(12281)/dV(149) - B(19491) = RCT(12281) -! B(19492) = dA(12282)/dV(1656) - B(19492) = RCT(12282)*V(5250) -! B(19493) = dA(12282)/dV(5250) - B(19493) = RCT(12282)*V(1656) -! B(19494) = dA(12283)/dV(467) - B(19494) = RCT(12283)*V(5250) -! B(19495) = dA(12283)/dV(5250) - B(19495) = RCT(12283)*V(467) -! B(19496) = dA(12284)/dV(1868) - B(19496) = RCT(12284)*V(5250) -! B(19497) = dA(12284)/dV(5250) - B(19497) = RCT(12284)*V(1868) -! B(19498) = dA(12285)/dV(1868) - B(19498) = RCT(12285) -! B(19499) = dA(12286)/dV(618) - B(19499) = RCT(12286) -! B(19500) = dA(12287)/dV(2154) - B(19500) = RCT(12287)*V(5250) -! B(19501) = dA(12287)/dV(5250) - B(19501) = RCT(12287)*V(2154) -! B(19502) = dA(12288)/dV(2154) - B(19502) = RCT(12288) -! B(19503) = dA(12289)/dV(377) - B(19503) = RCT(12289)*V(5250) -! B(19504) = dA(12289)/dV(5250) - B(19504) = RCT(12289)*V(377) -! B(19505) = dA(12290)/dV(4764) - B(19505) = RCT(12290)*V(5255) -! B(19506) = dA(12290)/dV(5255) - B(19506) = RCT(12290)*V(4764) -! B(19507) = dA(12291)/dV(4764) - B(19507) = RCT(12291)*V(5252) -! B(19508) = dA(12291)/dV(5252) - B(19508) = RCT(12291)*V(4764) -! B(19509) = dA(12292)/dV(4764) - B(19509) = RCT(12292)*V(5252) -! B(19510) = dA(12292)/dV(5252) - B(19510) = RCT(12292)*V(4764) -! B(19511) = dA(12293)/dV(4764) - B(19511) = RCT(12293)*V(5256) -! B(19512) = dA(12293)/dV(5256) - B(19512) = RCT(12293)*V(4764) -! B(19513) = dA(12294)/dV(4764) - B(19513) = RCT(12294) -! B(19514) = dA(12295)/dV(4764) - B(19514) = RCT(12295) -! B(19515) = dA(12296)/dV(3497) - B(19515) = RCT(12296)*V(5250) -! B(19516) = dA(12296)/dV(5250) - B(19516) = RCT(12296)*V(3497) -! B(19517) = dA(12297)/dV(3497) - B(19517) = RCT(12297) -! B(19518) = dA(12298)/dV(4363) - B(19518) = RCT(12298)*V(5255) -! B(19519) = dA(12298)/dV(5255) - B(19519) = RCT(12298)*V(4363) -! B(19520) = dA(12299)/dV(4363) - B(19520) = RCT(12299)*V(5252) -! B(19521) = dA(12299)/dV(5252) - B(19521) = RCT(12299)*V(4363) -! B(19522) = dA(12300)/dV(4363) - B(19522) = RCT(12300)*V(5252) -! B(19523) = dA(12300)/dV(5252) - B(19523) = RCT(12300)*V(4363) -! B(19524) = dA(12301)/dV(4363) - B(19524) = RCT(12301)*V(5256) -! B(19525) = dA(12301)/dV(5256) - B(19525) = RCT(12301)*V(4363) -! B(19526) = dA(12302)/dV(4363) - B(19526) = RCT(12302) -! B(19527) = dA(12303)/dV(4363) - B(19527) = RCT(12303) -! B(19528) = dA(12304)/dV(4363) - B(19528) = RCT(12304) -! B(19529) = dA(12305)/dV(1195) - B(19529) = RCT(12305)*V(5250) -! B(19530) = dA(12305)/dV(5250) - B(19530) = RCT(12305)*V(1195) -! B(19531) = dA(12306)/dV(1195) - B(19531) = RCT(12306) -! B(19532) = dA(12307)/dV(2250) - B(19532) = RCT(12307)*V(5250) -! B(19533) = dA(12307)/dV(5250) - B(19533) = RCT(12307)*V(2250) -! B(19534) = dA(12308)/dV(2250) - B(19534) = RCT(12308) -! B(19535) = dA(12309)/dV(183) - B(19535) = RCT(12309) -! B(19536) = dA(12310)/dV(452) - B(19536) = RCT(12310)*V(5250) -! B(19537) = dA(12310)/dV(5250) - B(19537) = RCT(12310)*V(452) -! B(19538) = dA(12311)/dV(958) - B(19538) = RCT(12311)*V(5250) -! B(19539) = dA(12311)/dV(5250) - B(19539) = RCT(12311)*V(958) -! B(19540) = dA(12312)/dV(2868) - B(19540) = RCT(12312)*V(5250) -! B(19541) = dA(12312)/dV(5250) - B(19541) = RCT(12312)*V(2868) -! B(19542) = dA(12313)/dV(2868) - B(19542) = RCT(12313) -! B(19543) = dA(12314)/dV(2546) - B(19543) = RCT(12314)*V(5250) -! B(19544) = dA(12314)/dV(5250) - B(19544) = RCT(12314)*V(2546) -! B(19545) = dA(12315)/dV(2546) - B(19545) = RCT(12315) -! B(19546) = dA(12316)/dV(1279) - B(19546) = RCT(12316)*V(5250) -! B(19547) = dA(12316)/dV(5250) - B(19547) = RCT(12316)*V(1279) -! B(19548) = dA(12317)/dV(1279) - B(19548) = RCT(12317) -! B(19549) = dA(12318)/dV(44) - B(19549) = RCT(12318) -! B(19550) = dA(12319)/dV(2797) - B(19550) = RCT(12319)*V(5250) -! B(19551) = dA(12319)/dV(5250) - B(19551) = RCT(12319)*V(2797) -! B(19552) = dA(12320)/dV(2797) - B(19552) = RCT(12320) -! B(19553) = dA(12321)/dV(2797) - B(19553) = RCT(12321) -! B(19554) = dA(12322)/dV(2145) - B(19554) = RCT(12322) -! B(19555) = dA(12323)/dV(1397) - B(19555) = RCT(12323)*V(5250) -! B(19556) = dA(12323)/dV(5250) - B(19556) = RCT(12323)*V(1397) -! B(19557) = dA(12324)/dV(1397) - B(19557) = RCT(12324) -! B(19558) = dA(12325)/dV(96) - B(19558) = RCT(12325) -! B(19559) = dA(12326)/dV(301) - B(19559) = RCT(12326)*V(5250) -! B(19560) = dA(12326)/dV(5250) - B(19560) = RCT(12326)*V(301) -! B(19561) = dA(12327)/dV(1471) - B(19561) = RCT(12327) -! B(19562) = dA(12328)/dV(1471) - B(19562) = RCT(12328)*V(5250) -! B(19563) = dA(12328)/dV(5250) - B(19563) = RCT(12328)*V(1471) -! B(19564) = dA(12329)/dV(2886) - B(19564) = RCT(12329) -! B(19565) = dA(12330)/dV(2886) - B(19565) = RCT(12330)*V(5250) -! B(19566) = dA(12330)/dV(5250) - B(19566) = RCT(12330)*V(2886) -! B(19567) = dA(12331)/dV(420) - B(19567) = RCT(12331)*V(5250) -! B(19568) = dA(12331)/dV(5250) - B(19568) = RCT(12331)*V(420) -! B(19569) = dA(12332)/dV(1055) - B(19569) = RCT(12332) -! B(19570) = dA(12333)/dV(1055) - B(19570) = RCT(12333)*V(5250) -! B(19571) = dA(12333)/dV(5250) - B(19571) = RCT(12333)*V(1055) -! B(19572) = dA(12334)/dV(2978) - B(19572) = RCT(12334) -! B(19573) = dA(12335)/dV(2978) - B(19573) = RCT(12335)*V(5250) -! B(19574) = dA(12335)/dV(5250) - B(19574) = RCT(12335)*V(2978) -! B(19575) = dA(12336)/dV(1440) - B(19575) = RCT(12336) -! B(19576) = dA(12337)/dV(1440) - B(19576) = RCT(12337)*V(5250) -! B(19577) = dA(12337)/dV(5250) - B(19577) = RCT(12337)*V(1440) -! B(19578) = dA(12338)/dV(945) - B(19578) = RCT(12338) -! B(19579) = dA(12339)/dV(945) - B(19579) = RCT(12339)*V(5250) -! B(19580) = dA(12339)/dV(5250) - B(19580) = RCT(12339)*V(945) -! B(19581) = dA(12340)/dV(2842) - B(19581) = RCT(12340) -! B(19582) = dA(12341)/dV(2842) - B(19582) = RCT(12341)*V(5250) -! B(19583) = dA(12341)/dV(5250) - B(19583) = RCT(12341)*V(2842) -! B(19584) = dA(12342)/dV(3336) - B(19584) = RCT(12342) -! B(19585) = dA(12343)/dV(3336) - B(19585) = RCT(12343) -! B(19586) = dA(12344)/dV(3336) - B(19586) = RCT(12344)*V(5250) -! B(19587) = dA(12344)/dV(5250) - B(19587) = RCT(12344)*V(3336) -! B(19588) = dA(12345)/dV(282) - B(19588) = RCT(12345)*V(5250) -! B(19589) = dA(12345)/dV(5250) - B(19589) = RCT(12345)*V(282) -! B(19590) = dA(12346)/dV(983) - B(19590) = RCT(12346) -! B(19591) = dA(12347)/dV(983) - B(19591) = RCT(12347)*V(5250) -! B(19592) = dA(12347)/dV(5250) - B(19592) = RCT(12347)*V(983) -! B(19593) = dA(12348)/dV(2822) - B(19593) = RCT(12348) -! B(19594) = dA(12349)/dV(2822) - B(19594) = RCT(12349)*V(5250) -! B(19595) = dA(12349)/dV(5250) - B(19595) = RCT(12349)*V(2822) -! B(19596) = dA(12350)/dV(4778) - B(19596) = RCT(12350)*V(5255) -! B(19597) = dA(12350)/dV(5255) - B(19597) = RCT(12350)*V(4778) -! B(19598) = dA(12351)/dV(4778) - B(19598) = RCT(12351)*V(5252) -! B(19599) = dA(12351)/dV(5252) - B(19599) = RCT(12351)*V(4778) -! B(19600) = dA(12352)/dV(4778) - B(19600) = RCT(12352)*V(5252) -! B(19601) = dA(12352)/dV(5252) - B(19601) = RCT(12352)*V(4778) -! B(19602) = dA(12353)/dV(4778) - B(19602) = RCT(12353)*V(5256) -! B(19603) = dA(12353)/dV(5256) - B(19603) = RCT(12353)*V(4778) -! B(19604) = dA(12354)/dV(4778) - B(19604) = RCT(12354) -! B(19605) = dA(12355)/dV(4778) - B(19605) = RCT(12355) -! B(19606) = dA(12356)/dV(4778) - B(19606) = RCT(12356) -! B(19607) = dA(12357)/dV(3513) - B(19607) = RCT(12357) -! B(19608) = dA(12358)/dV(3513) - B(19608) = RCT(12358)*V(5256) -! B(19609) = dA(12358)/dV(5256) - B(19609) = RCT(12358)*V(3513) -! B(19610) = dA(12359)/dV(3513) - B(19610) = RCT(12359)*V(5250) -! B(19611) = dA(12359)/dV(5250) - B(19611) = RCT(12359)*V(3513) -! B(19612) = dA(12360)/dV(4549) - B(19612) = RCT(12360)*V(5255) -! B(19613) = dA(12360)/dV(5255) - B(19613) = RCT(12360)*V(4549) -! B(19614) = dA(12361)/dV(4549) - B(19614) = RCT(12361)*V(5252) -! B(19615) = dA(12361)/dV(5252) - B(19615) = RCT(12361)*V(4549) -! B(19616) = dA(12362)/dV(4549) - B(19616) = RCT(12362)*V(5256) -! B(19617) = dA(12362)/dV(5256) - B(19617) = RCT(12362)*V(4549) -! B(19618) = dA(12363)/dV(4549) - B(19618) = RCT(12363) -! B(19619) = dA(12364)/dV(4984) - B(19619) = RCT(12364)*V(5255) -! B(19620) = dA(12364)/dV(5255) - B(19620) = RCT(12364)*V(4984) -! B(19621) = dA(12365)/dV(4984) - B(19621) = RCT(12365)*V(5255) -! B(19622) = dA(12365)/dV(5255) - B(19622) = RCT(12365)*V(4984) -! B(19623) = dA(12366)/dV(4984) - B(19623) = RCT(12366)*V(5252) -! B(19624) = dA(12366)/dV(5252) - B(19624) = RCT(12366)*V(4984) -! B(19625) = dA(12367)/dV(4984) - B(19625) = RCT(12367)*V(5253) -! B(19626) = dA(12367)/dV(5253) - B(19626) = RCT(12367)*V(4984) -! B(19627) = dA(12368)/dV(4984) - B(19627) = RCT(12368)*V(5256) -! B(19628) = dA(12368)/dV(5256) - B(19628) = RCT(12368)*V(4984) -! B(19629) = dA(12369)/dV(4984) - B(19629) = RCT(12369) -! B(19630) = dA(12370)/dV(805) - B(19630) = RCT(12370) -! B(19631) = dA(12371)/dV(805) - B(19631) = RCT(12371)*V(5250) -! B(19632) = dA(12371)/dV(5250) - B(19632) = RCT(12371)*V(805) -! B(19633) = dA(12372)/dV(230) - B(19633) = RCT(12372)*V(5250) -! B(19634) = dA(12372)/dV(5250) - B(19634) = RCT(12372)*V(230) -! B(19635) = dA(12373)/dV(988) - B(19635) = RCT(12373) -! B(19636) = dA(12374)/dV(988) - B(19636) = RCT(12374)*V(5250) -! B(19637) = dA(12374)/dV(5250) - B(19637) = RCT(12374)*V(988) -! B(19638) = dA(12375)/dV(2787) - B(19638) = RCT(12375) -! B(19639) = dA(12376)/dV(2787) - B(19639) = RCT(12376)*V(5250) -! B(19640) = dA(12376)/dV(5250) - B(19640) = RCT(12376)*V(2787) -! B(19641) = dA(12377)/dV(1441) - B(19641) = RCT(12377) -! B(19642) = dA(12378)/dV(1441) - B(19642) = RCT(12378)*V(5250) -! B(19643) = dA(12378)/dV(5250) - B(19643) = RCT(12378)*V(1441) -! B(19644) = dA(12379)/dV(1963) - B(19644) = RCT(12379) -! B(19645) = dA(12380)/dV(1963) - B(19645) = RCT(12380)*V(5250) -! B(19646) = dA(12380)/dV(5250) - B(19646) = RCT(12380)*V(1963) -! B(19647) = dA(12381)/dV(2826) - B(19647) = RCT(12381) -! B(19648) = dA(12382)/dV(636) - B(19648) = RCT(12382) -! B(19649) = dA(12383)/dV(636) - B(19649) = RCT(12383)*V(5250) -! B(19650) = dA(12383)/dV(5250) - B(19650) = RCT(12383)*V(636) -! B(19651) = dA(12384)/dV(3537) - B(19651) = RCT(12384) -! B(19652) = dA(12385)/dV(3537) - B(19652) = RCT(12385)*V(5250) -! B(19653) = dA(12385)/dV(5250) - B(19653) = RCT(12385)*V(3537) -! B(19654) = dA(12386)/dV(1908) - B(19654) = RCT(12386) -! B(19655) = dA(12387)/dV(1908) - B(19655) = RCT(12387) -! B(19656) = dA(12388)/dV(1908) - B(19656) = RCT(12388)*V(5250) -! B(19657) = dA(12388)/dV(5250) - B(19657) = RCT(12388)*V(1908) -! B(19658) = dA(12389)/dV(778) - B(19658) = RCT(12389) -! B(19659) = dA(12390)/dV(3124) - B(19659) = RCT(12390) -! B(19660) = dA(12391)/dV(3124) - B(19660) = RCT(12391)*V(5250) -! B(19661) = dA(12391)/dV(5250) - B(19661) = RCT(12391)*V(3124) -! B(19662) = dA(12392)/dV(1548) - B(19662) = RCT(12392) -! B(19663) = dA(12393)/dV(1548) - B(19663) = RCT(12393)*V(5250) -! B(19664) = dA(12393)/dV(5250) - B(19664) = RCT(12393)*V(1548) -! B(19665) = dA(12394)/dV(3078) - B(19665) = RCT(12394) -! B(19666) = dA(12395)/dV(3078) - B(19666) = RCT(12395) -! B(19667) = dA(12396)/dV(3078) - B(19667) = RCT(12396)*V(5250) -! B(19668) = dA(12396)/dV(5250) - B(19668) = RCT(12396)*V(3078) -! B(19669) = dA(12397)/dV(564) - B(19669) = RCT(12397) -! B(19670) = dA(12398)/dV(1832) - B(19670) = RCT(12398) -! B(19671) = dA(12399)/dV(1832) - B(19671) = RCT(12399)*V(5250) -! B(19672) = dA(12399)/dV(5250) - B(19672) = RCT(12399)*V(1832) -! B(19673) = dA(12400)/dV(1690) - B(19673) = RCT(12400) -! B(19674) = dA(12401)/dV(1690) - B(19674) = RCT(12401)*V(5250) -! B(19675) = dA(12401)/dV(5250) - B(19675) = RCT(12401)*V(1690) -! B(19676) = dA(12402)/dV(4419) - B(19676) = RCT(12402)*V(5255) -! B(19677) = dA(12402)/dV(5255) - B(19677) = RCT(12402)*V(4419) -! B(19678) = dA(12403)/dV(4419) - B(19678) = RCT(12403)*V(5255) -! B(19679) = dA(12403)/dV(5255) - B(19679) = RCT(12403)*V(4419) -! B(19680) = dA(12404)/dV(4419) - B(19680) = RCT(12404)*V(5252) -! B(19681) = dA(12404)/dV(5252) - B(19681) = RCT(12404)*V(4419) -! B(19682) = dA(12405)/dV(4419) - B(19682) = RCT(12405)*V(5253) -! B(19683) = dA(12405)/dV(5253) - B(19683) = RCT(12405)*V(4419) -! B(19684) = dA(12406)/dV(4419) - B(19684) = RCT(12406)*V(5256) -! B(19685) = dA(12406)/dV(5256) - B(19685) = RCT(12406)*V(4419) -! B(19686) = dA(12407)/dV(4419) - B(19686) = RCT(12407) -! B(19687) = dA(12408)/dV(4235) - B(19687) = RCT(12408)*V(5255) -! B(19688) = dA(12408)/dV(5255) - B(19688) = RCT(12408)*V(4235) -! B(19689) = dA(12409)/dV(4235) - B(19689) = RCT(12409)*V(5252) -! B(19690) = dA(12409)/dV(5252) - B(19690) = RCT(12409)*V(4235) -! B(19691) = dA(12410)/dV(4235) - B(19691) = RCT(12410)*V(5256) -! B(19692) = dA(12410)/dV(5256) - B(19692) = RCT(12410)*V(4235) -! B(19693) = dA(12411)/dV(4235) - B(19693) = RCT(12411) -! B(19694) = dA(12412)/dV(2981) - B(19694) = RCT(12412) -! B(19695) = dA(12413)/dV(2981) - B(19695) = RCT(12413) -! B(19696) = dA(12414)/dV(2981) - B(19696) = RCT(12414)*V(5250) -! B(19697) = dA(12414)/dV(5250) - B(19697) = RCT(12414)*V(2981) -! B(19698) = dA(12415)/dV(2999) - B(19698) = RCT(12415) -! B(19699) = dA(12416)/dV(2999) - B(19699) = RCT(12416)*V(5250) -! B(19700) = dA(12416)/dV(5250) - B(19700) = RCT(12416)*V(2999) -! B(19701) = dA(12417)/dV(3000) - B(19701) = RCT(12417) -! B(19702) = dA(12418)/dV(1633) - B(19702) = RCT(12418) -! B(19703) = dA(12419)/dV(1633) - B(19703) = RCT(12419)*V(5250) -! B(19704) = dA(12419)/dV(5250) - B(19704) = RCT(12419)*V(1633) -! B(19705) = dA(12420)/dV(2084) - B(19705) = RCT(12420) -! B(19706) = dA(12421)/dV(2084) - B(19706) = RCT(12421) -! B(19707) = dA(12422)/dV(2084) - B(19707) = RCT(12422)*V(5250) -! B(19708) = dA(12422)/dV(5250) - B(19708) = RCT(12422)*V(2084) -! B(19709) = dA(12423)/dV(1723) - B(19709) = RCT(12423) -! B(19710) = dA(12424)/dV(1722) - B(19710) = RCT(12424) -! B(19711) = dA(12425)/dV(1722) - B(19711) = RCT(12425)*V(5250) -! B(19712) = dA(12425)/dV(5250) - B(19712) = RCT(12425)*V(1722) -! B(19713) = dA(12426)/dV(2625) - B(19713) = RCT(12426) -! B(19714) = dA(12427)/dV(2625) - B(19714) = RCT(12427) -! B(19715) = dA(12428)/dV(2625) - B(19715) = RCT(12428)*V(5250) -! B(19716) = dA(12428)/dV(5250) - B(19716) = RCT(12428)*V(2625) -! B(19717) = dA(12429)/dV(2625) - B(19717) = RCT(12429)*V(5250) -! B(19718) = dA(12429)/dV(5250) - B(19718) = RCT(12429)*V(2625) -! B(19719) = dA(12430)/dV(638) - B(19719) = RCT(12430) -! B(19720) = dA(12431)/dV(1632) - B(19720) = RCT(12431) -! B(19721) = dA(12432)/dV(1632) - B(19721) = RCT(12432)*V(5250) -! B(19722) = dA(12432)/dV(5250) - B(19722) = RCT(12432)*V(1632) -! B(19723) = dA(12433)/dV(2910) - B(19723) = RCT(12433) -! B(19724) = dA(12434)/dV(2910) - B(19724) = RCT(12434) -! B(19725) = dA(12435)/dV(2910) - B(19725) = RCT(12435)*V(5250) -! B(19726) = dA(12435)/dV(5250) - B(19726) = RCT(12435)*V(2910) -! B(19727) = dA(12436)/dV(4874) - B(19727) = RCT(12436)*V(5255) -! B(19728) = dA(12436)/dV(5255) - B(19728) = RCT(12436)*V(4874) -! B(19729) = dA(12437)/dV(4874) - B(19729) = RCT(12437)*V(5255) -! B(19730) = dA(12437)/dV(5255) - B(19730) = RCT(12437)*V(4874) -! B(19731) = dA(12438)/dV(4874) - B(19731) = RCT(12438)*V(5252) -! B(19732) = dA(12438)/dV(5252) - B(19732) = RCT(12438)*V(4874) -! B(19733) = dA(12439)/dV(4874) - B(19733) = RCT(12439)*V(5253) -! B(19734) = dA(12439)/dV(5253) - B(19734) = RCT(12439)*V(4874) -! B(19735) = dA(12440)/dV(4874) - B(19735) = RCT(12440)*V(5256) -! B(19736) = dA(12440)/dV(5256) - B(19736) = RCT(12440)*V(4874) -! B(19737) = dA(12441)/dV(4874) - B(19737) = RCT(12441) -! B(19738) = dA(12442)/dV(4890) - B(19738) = RCT(12442)*V(5255) -! B(19739) = dA(12442)/dV(5255) - B(19739) = RCT(12442)*V(4890) -! B(19740) = dA(12443)/dV(4890) - B(19740) = RCT(12443)*V(5252) -! B(19741) = dA(12443)/dV(5252) - B(19741) = RCT(12443)*V(4890) -! B(19742) = dA(12444)/dV(4890) - B(19742) = RCT(12444)*V(5252) -! B(19743) = dA(12444)/dV(5252) - B(19743) = RCT(12444)*V(4890) -! B(19744) = dA(12445)/dV(4890) - B(19744) = RCT(12445)*V(5256) -! B(19745) = dA(12445)/dV(5256) - B(19745) = RCT(12445)*V(4890) -! B(19746) = dA(12446)/dV(4890) - B(19746) = RCT(12446) -! B(19747) = dA(12447)/dV(4890) - B(19747) = RCT(12447) -! B(19748) = dA(12448)/dV(4890) - B(19748) = RCT(12448) -! B(19749) = dA(12449)/dV(3086) - B(19749) = RCT(12449) -! B(19750) = dA(12450)/dV(3086) - B(19750) = RCT(12450)*V(5250) -! B(19751) = dA(12450)/dV(5250) - B(19751) = RCT(12450)*V(3086) -! B(19752) = dA(12451)/dV(1839) - B(19752) = RCT(12451) -! B(19753) = dA(12452)/dV(1839) - B(19753) = RCT(12452) -! B(19754) = dA(12453)/dV(1839) - B(19754) = RCT(12453)*V(5250) -! B(19755) = dA(12453)/dV(5250) - B(19755) = RCT(12453)*V(1839) -! B(19756) = dA(12454)/dV(745) - B(19756) = RCT(12454) -! B(19757) = dA(12455)/dV(1571) - B(19757) = RCT(12455) -! B(19758) = dA(12456)/dV(1571) - B(19758) = RCT(12456)*V(5250) -! B(19759) = dA(12456)/dV(5250) - B(19759) = RCT(12456)*V(1571) -! B(19760) = dA(12457)/dV(4521) - B(19760) = RCT(12457)*V(5255) -! B(19761) = dA(12457)/dV(5255) - B(19761) = RCT(12457)*V(4521) -! B(19762) = dA(12458)/dV(4521) - B(19762) = RCT(12458)*V(5255) -! B(19763) = dA(12458)/dV(5255) - B(19763) = RCT(12458)*V(4521) -! B(19764) = dA(12459)/dV(4521) - B(19764) = RCT(12459)*V(5252) -! B(19765) = dA(12459)/dV(5252) - B(19765) = RCT(12459)*V(4521) -! B(19766) = dA(12460)/dV(4521) - B(19766) = RCT(12460)*V(5253) -! B(19767) = dA(12460)/dV(5253) - B(19767) = RCT(12460)*V(4521) -! B(19768) = dA(12461)/dV(4521) - B(19768) = RCT(12461)*V(5256) -! B(19769) = dA(12461)/dV(5256) - B(19769) = RCT(12461)*V(4521) -! B(19770) = dA(12462)/dV(4521) - B(19770) = RCT(12462) -! B(19771) = dA(12463)/dV(3151) - B(19771) = RCT(12463) -! B(19772) = dA(12464)/dV(3151) - B(19772) = RCT(12464)*V(5250) -! B(19773) = dA(12464)/dV(5250) - B(19773) = RCT(12464)*V(3151) -! B(19774) = dA(12465)/dV(2052) - B(19774) = RCT(12465) -! B(19775) = dA(12466)/dV(2052) - B(19775) = RCT(12466) -! B(19776) = dA(12467)/dV(2052) - B(19776) = RCT(12467)*V(5250) -! B(19777) = dA(12467)/dV(5250) - B(19777) = RCT(12467)*V(2052) -! B(19778) = dA(12468)/dV(722) - B(19778) = RCT(12468) -! B(19779) = dA(12469)/dV(1707) - B(19779) = RCT(12469) -! B(19780) = dA(12470)/dV(1707) - B(19780) = RCT(12470)*V(5250) -! B(19781) = dA(12470)/dV(5250) - B(19781) = RCT(12470)*V(1707) -! B(19782) = dA(12471)/dV(4430) - B(19782) = RCT(12471)*V(5255) -! B(19783) = dA(12471)/dV(5255) - B(19783) = RCT(12471)*V(4430) -! B(19784) = dA(12472)/dV(4430) - B(19784) = RCT(12472)*V(5255) -! B(19785) = dA(12472)/dV(5255) - B(19785) = RCT(12472)*V(4430) -! B(19786) = dA(12473)/dV(4430) - B(19786) = RCT(12473)*V(5252) -! B(19787) = dA(12473)/dV(5252) - B(19787) = RCT(12473)*V(4430) -! B(19788) = dA(12474)/dV(4430) - B(19788) = RCT(12474)*V(5253) -! B(19789) = dA(12474)/dV(5253) - B(19789) = RCT(12474)*V(4430) -! B(19790) = dA(12475)/dV(4430) - B(19790) = RCT(12475)*V(5256) -! B(19791) = dA(12475)/dV(5256) - B(19791) = RCT(12475)*V(4430) -! B(19792) = dA(12476)/dV(4430) - B(19792) = RCT(12476) -! B(19793) = dA(12477)/dV(3183) - B(19793) = RCT(12477) -! B(19794) = dA(12478)/dV(3183) - B(19794) = RCT(12478)*V(5250) -! B(19795) = dA(12478)/dV(5250) - B(19795) = RCT(12478)*V(3183) -! B(19796) = dA(12479)/dV(2059) - B(19796) = RCT(12479) -! B(19797) = dA(12480)/dV(2059) - B(19797) = RCT(12480) -! B(19798) = dA(12481)/dV(2059) - B(19798) = RCT(12481)*V(5250) -! B(19799) = dA(12481)/dV(5250) - B(19799) = RCT(12481)*V(2059) -! B(19800) = dA(12482)/dV(698) - B(19800) = RCT(12482) -! B(19801) = dA(12483)/dV(1744) - B(19801) = RCT(12483) -! B(19802) = dA(12484)/dV(1744) - B(19802) = RCT(12484)*V(5250) -! B(19803) = dA(12484)/dV(5250) - B(19803) = RCT(12484)*V(1744) -! B(19804) = dA(12485)/dV(4443) - B(19804) = RCT(12485)*V(5255) -! B(19805) = dA(12485)/dV(5255) - B(19805) = RCT(12485)*V(4443) -! B(19806) = dA(12486)/dV(4443) - B(19806) = RCT(12486)*V(5255) -! B(19807) = dA(12486)/dV(5255) - B(19807) = RCT(12486)*V(4443) -! B(19808) = dA(12487)/dV(4443) - B(19808) = RCT(12487)*V(5252) -! B(19809) = dA(12487)/dV(5252) - B(19809) = RCT(12487)*V(4443) -! B(19810) = dA(12488)/dV(4443) - B(19810) = RCT(12488)*V(5253) -! B(19811) = dA(12488)/dV(5253) - B(19811) = RCT(12488)*V(4443) -! B(19812) = dA(12489)/dV(4443) - B(19812) = RCT(12489)*V(5256) -! B(19813) = dA(12489)/dV(5256) - B(19813) = RCT(12489)*V(4443) -! B(19814) = dA(12490)/dV(4443) - B(19814) = RCT(12490) -! B(19815) = dA(12491)/dV(4710) - B(19815) = RCT(12491) -! B(19816) = dA(12492)/dV(4710) - B(19816) = RCT(12492)*V(5256) -! B(19817) = dA(12492)/dV(5256) - B(19817) = RCT(12492)*V(4710) -! B(19818) = dA(12493)/dV(4710) - B(19818) = RCT(12493)*V(5250) -! B(19819) = dA(12493)/dV(5250) - B(19819) = RCT(12493)*V(4710) -! B(19820) = dA(12494)/dV(3184) - B(19820) = RCT(12494) -! B(19821) = dA(12495)/dV(3184) - B(19821) = RCT(12495)*V(5250) -! B(19822) = dA(12495)/dV(5250) - B(19822) = RCT(12495)*V(3184) -! B(19823) = dA(12496)/dV(2121) - B(19823) = RCT(12496) -! B(19824) = dA(12497)/dV(2121) - B(19824) = RCT(12497) -! B(19825) = dA(12498)/dV(2121) - B(19825) = RCT(12498)*V(5250) -! B(19826) = dA(12498)/dV(5250) - B(19826) = RCT(12498)*V(2121) -! B(19827) = dA(12499)/dV(570) - B(19827) = RCT(12499) -! B(19828) = dA(12500)/dV(1740) - B(19828) = RCT(12500) -! B(19829) = dA(12501)/dV(1740) - B(19829) = RCT(12501)*V(5250) -! B(19830) = dA(12501)/dV(5250) - B(19830) = RCT(12501)*V(1740) -! B(19831) = dA(12502)/dV(4450) - B(19831) = RCT(12502)*V(5255) -! B(19832) = dA(12502)/dV(5255) - B(19832) = RCT(12502)*V(4450) -! B(19833) = dA(12503)/dV(4450) - B(19833) = RCT(12503)*V(5255) -! B(19834) = dA(12503)/dV(5255) - B(19834) = RCT(12503)*V(4450) -! B(19835) = dA(12504)/dV(4450) - B(19835) = RCT(12504)*V(5252) -! B(19836) = dA(12504)/dV(5252) - B(19836) = RCT(12504)*V(4450) -! B(19837) = dA(12505)/dV(4450) - B(19837) = RCT(12505)*V(5253) -! B(19838) = dA(12505)/dV(5253) - B(19838) = RCT(12505)*V(4450) -! B(19839) = dA(12506)/dV(4450) - B(19839) = RCT(12506)*V(5256) -! B(19840) = dA(12506)/dV(5256) - B(19840) = RCT(12506)*V(4450) -! B(19841) = dA(12507)/dV(4450) - B(19841) = RCT(12507) -! B(19842) = dA(12508)/dV(3185) - B(19842) = RCT(12508) -! B(19843) = dA(12509)/dV(3185) - B(19843) = RCT(12509)*V(5250) -! B(19844) = dA(12509)/dV(5250) - B(19844) = RCT(12509)*V(3185) -! B(19845) = dA(12510)/dV(474) - B(19845) = RCT(12510)*V(5250) -! B(19846) = dA(12510)/dV(5250) - B(19846) = RCT(12510)*V(474) -! B(19847) = dA(12511)/dV(1114) - B(19847) = RCT(12511) -! B(19848) = dA(12512)/dV(1114) - B(19848) = RCT(12512)*V(5250) -! B(19849) = dA(12512)/dV(5250) - B(19849) = RCT(12512)*V(1114) -! B(19850) = dA(12513)/dV(2726) - B(19850) = RCT(12513)*V(5250) -! B(19851) = dA(12513)/dV(5250) - B(19851) = RCT(12513)*V(2726) -! B(19852) = dA(12514)/dV(2726) - B(19852) = RCT(12514) -! B(19853) = dA(12515)/dV(2221) - B(19853) = RCT(12515) -! B(19854) = dA(12516)/dV(2221) - B(19854) = RCT(12516) -! B(19855) = dA(12517)/dV(2221) - B(19855) = RCT(12517)*V(5250) -! B(19856) = dA(12517)/dV(5250) - B(19856) = RCT(12517)*V(2221) -! B(19857) = dA(12518)/dV(575) - B(19857) = RCT(12518) -! B(19858) = dA(12519)/dV(1674) - B(19858) = RCT(12519) -! B(19859) = dA(12520)/dV(1674) - B(19859) = RCT(12520)*V(5250) -! B(19860) = dA(12520)/dV(5250) - B(19860) = RCT(12520)*V(1674) -! B(19861) = dA(12521)/dV(4417) - B(19861) = RCT(12521)*V(5255) -! B(19862) = dA(12521)/dV(5255) - B(19862) = RCT(12521)*V(4417) -! B(19863) = dA(12522)/dV(4417) - B(19863) = RCT(12522)*V(5255) -! B(19864) = dA(12522)/dV(5255) - B(19864) = RCT(12522)*V(4417) -! B(19865) = dA(12523)/dV(4417) - B(19865) = RCT(12523)*V(5252) -! B(19866) = dA(12523)/dV(5252) - B(19866) = RCT(12523)*V(4417) -! B(19867) = dA(12524)/dV(4417) - B(19867) = RCT(12524)*V(5253) -! B(19868) = dA(12524)/dV(5253) - B(19868) = RCT(12524)*V(4417) -! B(19869) = dA(12525)/dV(4417) - B(19869) = RCT(12525)*V(5256) -! B(19870) = dA(12525)/dV(5256) - B(19870) = RCT(12525)*V(4417) -! B(19871) = dA(12526)/dV(4417) - B(19871) = RCT(12526) -! B(19872) = dA(12527)/dV(1192) - B(19872) = RCT(12527)*V(5250) -! B(19873) = dA(12527)/dV(5250) - B(19873) = RCT(12527)*V(1192) -! B(19874) = dA(12528)/dV(1192) - B(19874) = RCT(12528) -! B(19875) = dA(12529)/dV(141) - B(19875) = RCT(12529) -! B(19876) = dA(12530)/dV(246) - B(19876) = RCT(12530)*V(5250) -! B(19877) = dA(12530)/dV(5250) - B(19877) = RCT(12530)*V(246) -! B(19878) = dA(12531)/dV(1483) - B(19878) = RCT(12531)*V(5250) -! B(19879) = dA(12531)/dV(5250) - B(19879) = RCT(12531)*V(1483) -! B(19880) = dA(12532)/dV(934) - B(19880) = RCT(12532)*V(5250) -! B(19881) = dA(12532)/dV(5250) - B(19881) = RCT(12532)*V(934) -! B(19882) = dA(12533)/dV(934) - B(19882) = RCT(12533) -! B(19883) = dA(12534)/dV(3370) - B(19883) = RCT(12534) -! B(19884) = dA(12535)/dV(1508) - B(19884) = RCT(12535)*V(5250) -! B(19885) = dA(12535)/dV(5250) - B(19885) = RCT(12535)*V(1508) -! B(19886) = dA(12536)/dV(1508) - B(19886) = RCT(12536) -! B(19887) = dA(12537)/dV(2577) - B(19887) = RCT(12537) -! B(19888) = dA(12538)/dV(3478) - B(19888) = RCT(12538)*V(5250) -! B(19889) = dA(12538)/dV(5250) - B(19889) = RCT(12538)*V(3478) -! B(19890) = dA(12539)/dV(3571) - B(19890) = RCT(12539)*V(5250) -! B(19891) = dA(12539)/dV(5250) - B(19891) = RCT(12539)*V(3571) -! B(19892) = dA(12540)/dV(3571) - B(19892) = RCT(12540) -! B(19893) = dA(12541)/dV(4308) - B(19893) = RCT(12541)*V(5255) -! B(19894) = dA(12541)/dV(5255) - B(19894) = RCT(12541)*V(4308) -! B(19895) = dA(12542)/dV(4308) - B(19895) = RCT(12542)*V(5255) -! B(19896) = dA(12542)/dV(5255) - B(19896) = RCT(12542)*V(4308) -! B(19897) = dA(12543)/dV(4308) - B(19897) = RCT(12543)*V(5252) -! B(19898) = dA(12543)/dV(5252) - B(19898) = RCT(12543)*V(4308) -! B(19899) = dA(12544)/dV(4308) - B(19899) = RCT(12544)*V(5253) -! B(19900) = dA(12544)/dV(5253) - B(19900) = RCT(12544)*V(4308) -! B(19901) = dA(12545)/dV(4308) - B(19901) = RCT(12545)*V(5256) -! B(19902) = dA(12545)/dV(5256) - B(19902) = RCT(12545)*V(4308) -! B(19903) = dA(12546)/dV(4308) - B(19903) = RCT(12546) -! B(19904) = dA(12547)/dV(3783) - B(19904) = RCT(12547)*V(5250) -! B(19905) = dA(12547)/dV(5250) - B(19905) = RCT(12547)*V(3783) -! B(19906) = dA(12548)/dV(3783) - B(19906) = RCT(12548) -! B(19907) = dA(12549)/dV(4221) - B(19907) = RCT(12549)*V(5255) -! B(19908) = dA(12549)/dV(5255) - B(19908) = RCT(12549)*V(4221) -! B(19909) = dA(12550)/dV(4221) - B(19909) = RCT(12550)*V(5255) -! B(19910) = dA(12550)/dV(5255) - B(19910) = RCT(12550)*V(4221) -! B(19911) = dA(12551)/dV(4221) - B(19911) = RCT(12551)*V(5252) -! B(19912) = dA(12551)/dV(5252) - B(19912) = RCT(12551)*V(4221) -! B(19913) = dA(12552)/dV(4221) - B(19913) = RCT(12552)*V(5253) -! B(19914) = dA(12552)/dV(5253) - B(19914) = RCT(12552)*V(4221) -! B(19915) = dA(12553)/dV(4221) - B(19915) = RCT(12553)*V(5256) -! B(19916) = dA(12553)/dV(5256) - B(19916) = RCT(12553)*V(4221) -! B(19917) = dA(12554)/dV(4221) - B(19917) = RCT(12554) -! B(19918) = dA(12555)/dV(1376) - B(19918) = RCT(12555)*V(5250) -! B(19919) = dA(12555)/dV(5250) - B(19919) = RCT(12555)*V(1376) -! B(19920) = dA(12556)/dV(1376) - B(19920) = RCT(12556) -! B(19921) = dA(12557)/dV(3375) - B(19921) = RCT(12557) -! B(19922) = dA(12558)/dV(835) - B(19922) = RCT(12558)*V(5250) -! B(19923) = dA(12558)/dV(5250) - B(19923) = RCT(12558)*V(835) -! B(19924) = dA(12559)/dV(835) - B(19924) = RCT(12559) -! B(19925) = dA(12560)/dV(3036) - B(19925) = RCT(12560) -! B(19926) = dA(12561)/dV(4507) - B(19926) = RCT(12561)*V(5250) -! B(19927) = dA(12561)/dV(5250) - B(19927) = RCT(12561)*V(4507) -! B(19928) = dA(12562)/dV(4472) - B(19928) = RCT(12562)*V(5255) -! B(19929) = dA(12562)/dV(5255) - B(19929) = RCT(12562)*V(4472) -! B(19930) = dA(12563)/dV(4472) - B(19930) = RCT(12563)*V(5255) -! B(19931) = dA(12563)/dV(5255) - B(19931) = RCT(12563)*V(4472) -! B(19932) = dA(12564)/dV(4472) - B(19932) = RCT(12564)*V(5252) -! B(19933) = dA(12564)/dV(5252) - B(19933) = RCT(12564)*V(4472) -! B(19934) = dA(12565)/dV(4472) - B(19934) = RCT(12565)*V(5253) -! B(19935) = dA(12565)/dV(5253) - B(19935) = RCT(12565)*V(4472) -! B(19936) = dA(12566)/dV(4472) - B(19936) = RCT(12566)*V(5256) -! B(19937) = dA(12566)/dV(5256) - B(19937) = RCT(12566)*V(4472) -! B(19938) = dA(12567)/dV(4472) - B(19938) = RCT(12567) -! B(19939) = dA(12568)/dV(1117) - B(19939) = RCT(12568)*V(5250) -! B(19940) = dA(12568)/dV(5250) - B(19940) = RCT(12568)*V(1117) -! B(19941) = dA(12569)/dV(1117) - B(19941) = RCT(12569) -! B(19942) = dA(12570)/dV(2739) - B(19942) = RCT(12570) -! B(19943) = dA(12571)/dV(977) - B(19943) = RCT(12571)*V(5250) -! B(19944) = dA(12571)/dV(5250) - B(19944) = RCT(12571)*V(977) -! B(19945) = dA(12572)/dV(977) - B(19945) = RCT(12572) -! B(19946) = dA(12573)/dV(3402) - B(19946) = RCT(12573) -! B(19947) = dA(12574)/dV(1420) - B(19947) = RCT(12574)*V(5250) -! B(19948) = dA(12574)/dV(5250) - B(19948) = RCT(12574)*V(1420) -! B(19949) = dA(12575)/dV(1420) - B(19949) = RCT(12575) -! B(19950) = dA(12576)/dV(2935) - B(19950) = RCT(12576) -! B(19951) = dA(12577)/dV(3729) - B(19951) = RCT(12577)*V(5250) -! B(19952) = dA(12577)/dV(5250) - B(19952) = RCT(12577)*V(3729) -! B(19953) = dA(12578)/dV(3729) - B(19953) = RCT(12578) -! B(19954) = dA(12579)/dV(4241) - B(19954) = RCT(12579)*V(5255) -! B(19955) = dA(12579)/dV(5255) - B(19955) = RCT(12579)*V(4241) -! B(19956) = dA(12580)/dV(4241) - B(19956) = RCT(12580)*V(5255) -! B(19957) = dA(12580)/dV(5255) - B(19957) = RCT(12580)*V(4241) -! B(19958) = dA(12581)/dV(4241) - B(19958) = RCT(12581)*V(5252) -! B(19959) = dA(12581)/dV(5252) - B(19959) = RCT(12581)*V(4241) -! B(19960) = dA(12582)/dV(4241) - B(19960) = RCT(12582)*V(5253) -! B(19961) = dA(12582)/dV(5253) - B(19961) = RCT(12582)*V(4241) -! B(19962) = dA(12583)/dV(4241) - B(19962) = RCT(12583)*V(5256) -! B(19963) = dA(12583)/dV(5256) - B(19963) = RCT(12583)*V(4241) -! B(19964) = dA(12584)/dV(4241) - B(19964) = RCT(12584) -! B(19965) = dA(12585)/dV(4202) - B(19965) = RCT(12585)*V(5255) -! B(19966) = dA(12585)/dV(5255) - B(19966) = RCT(12585)*V(4202) -! B(19967) = dA(12586)/dV(4202) - B(19967) = RCT(12586)*V(5255) -! B(19968) = dA(12586)/dV(5255) - B(19968) = RCT(12586)*V(4202) -! B(19969) = dA(12587)/dV(4202) - B(19969) = RCT(12587)*V(5252) -! B(19970) = dA(12587)/dV(5252) - B(19970) = RCT(12587)*V(4202) -! B(19971) = dA(12588)/dV(4202) - B(19971) = RCT(12588)*V(5253) -! B(19972) = dA(12588)/dV(5253) - B(19972) = RCT(12588)*V(4202) -! B(19973) = dA(12589)/dV(4202) - B(19973) = RCT(12589)*V(5256) -! B(19974) = dA(12589)/dV(5256) - B(19974) = RCT(12589)*V(4202) -! B(19975) = dA(12590)/dV(4202) - B(19975) = RCT(12590) -! B(19976) = dA(12591)/dV(4770) - B(19976) = RCT(12591)*V(5255) -! B(19977) = dA(12591)/dV(5255) - B(19977) = RCT(12591)*V(4770) -! B(19978) = dA(12592)/dV(4770) - B(19978) = RCT(12592)*V(5255) -! B(19979) = dA(12592)/dV(5255) - B(19979) = RCT(12592)*V(4770) -! B(19980) = dA(12593)/dV(4770) - B(19980) = RCT(12593)*V(5255) -! B(19981) = dA(12593)/dV(5255) - B(19981) = RCT(12593)*V(4770) -! B(19982) = dA(12594)/dV(4770) - B(19982) = RCT(12594)*V(5252) -! B(19983) = dA(12594)/dV(5252) - B(19983) = RCT(12594)*V(4770) -! B(19984) = dA(12595)/dV(4770) - B(19984) = RCT(12595)*V(5253) -! B(19985) = dA(12595)/dV(5253) - B(19985) = RCT(12595)*V(4770) -! B(19986) = dA(12596)/dV(4770) - B(19986) = RCT(12596)*V(5256) -! B(19987) = dA(12596)/dV(5256) - B(19987) = RCT(12596)*V(4770) -! B(19988) = dA(12597)/dV(4770) - B(19988) = RCT(12597) -! B(19989) = dA(12598)/dV(4770) - B(19989) = RCT(12598) -! B(19990) = dA(12599)/dV(2769) - B(19990) = RCT(12599)*V(5250) -! B(19991) = dA(12599)/dV(5250) - B(19991) = RCT(12599)*V(2769) -! B(19992) = dA(12600)/dV(2769) - B(19992) = RCT(12600) -! B(19993) = dA(12601)/dV(2769) - B(19993) = RCT(12601) -! B(19994) = dA(12602)/dV(2430) - B(19994) = RCT(12602) -! B(19995) = dA(12603)/dV(4808) - B(19995) = RCT(12603)*V(5255) -! B(19996) = dA(12603)/dV(5255) - B(19996) = RCT(12603)*V(4808) -! B(19997) = dA(12604)/dV(4808) - B(19997) = RCT(12604)*V(5255) -! B(19998) = dA(12604)/dV(5255) - B(19998) = RCT(12604)*V(4808) -! B(19999) = dA(12605)/dV(4808) - B(19999) = RCT(12605)*V(5255) -! B(20000) = dA(12605)/dV(5255) - B(20000) = RCT(12605)*V(4808) -! B(20001) = dA(12606)/dV(4808) - B(20001) = RCT(12606)*V(5252) -! B(20002) = dA(12606)/dV(5252) - B(20002) = RCT(12606)*V(4808) -! B(20003) = dA(12607)/dV(4808) - B(20003) = RCT(12607)*V(5253) -! B(20004) = dA(12607)/dV(5253) - B(20004) = RCT(12607)*V(4808) -! B(20005) = dA(12608)/dV(4808) - B(20005) = RCT(12608)*V(5256) -! B(20006) = dA(12608)/dV(5256) - B(20006) = RCT(12608)*V(4808) -! B(20007) = dA(12609)/dV(4808) - B(20007) = RCT(12609) -! B(20008) = dA(12610)/dV(4808) - B(20008) = RCT(12610) -! B(20009) = dA(12611)/dV(994) - B(20009) = RCT(12611)*V(5250) -! B(20010) = dA(12611)/dV(5250) - B(20010) = RCT(12611)*V(994) -! B(20011) = dA(12612)/dV(994) - B(20011) = RCT(12612) -! B(20012) = dA(12613)/dV(170) - B(20012) = RCT(12613) -! B(20013) = dA(12614)/dV(53) - B(20013) = RCT(12614)*V(5250) -! B(20014) = dA(12614)/dV(5250) - B(20014) = RCT(12614)*V(53) -! B(20015) = dA(12615)/dV(1342) - B(20015) = RCT(12615)*V(5250) -! B(20016) = dA(12615)/dV(5250) - B(20016) = RCT(12615)*V(1342) -! B(20017) = dA(12616)/dV(1342) - B(20017) = RCT(12616) -! B(20018) = dA(12617)/dV(3371) - B(20018) = RCT(12617) -! B(20019) = dA(12618)/dV(913) - B(20019) = RCT(12618)*V(5250) -! B(20020) = dA(12618)/dV(5250) - B(20020) = RCT(12618)*V(913) -! B(20021) = dA(12619)/dV(913) - B(20021) = RCT(12619) -! B(20022) = dA(12620)/dV(2986) - B(20022) = RCT(12620) -! B(20023) = dA(12621)/dV(3742) - B(20023) = RCT(12621)*V(5250) -! B(20024) = dA(12621)/dV(5250) - B(20024) = RCT(12621)*V(3742) -! B(20025) = dA(12622)/dV(3742) - B(20025) = RCT(12622) -! B(20026) = dA(12623)/dV(4253) - B(20026) = RCT(12623)*V(5255) -! B(20027) = dA(12623)/dV(5255) - B(20027) = RCT(12623)*V(4253) -! B(20028) = dA(12624)/dV(4253) - B(20028) = RCT(12624)*V(5255) -! B(20029) = dA(12624)/dV(5255) - B(20029) = RCT(12624)*V(4253) -! B(20030) = dA(12625)/dV(4253) - B(20030) = RCT(12625)*V(5252) -! B(20031) = dA(12625)/dV(5252) - B(20031) = RCT(12625)*V(4253) -! B(20032) = dA(12626)/dV(4253) - B(20032) = RCT(12626)*V(5253) -! B(20033) = dA(12626)/dV(5253) - B(20033) = RCT(12626)*V(4253) -! B(20034) = dA(12627)/dV(4253) - B(20034) = RCT(12627)*V(5256) -! B(20035) = dA(12627)/dV(5256) - B(20035) = RCT(12627)*V(4253) -! B(20036) = dA(12628)/dV(4253) - B(20036) = RCT(12628) -! B(20037) = dA(12629)/dV(1426) - B(20037) = RCT(12629)*V(5250) -! B(20038) = dA(12629)/dV(5250) - B(20038) = RCT(12629)*V(1426) -! B(20039) = dA(12630)/dV(1426) - B(20039) = RCT(12630) -! B(20040) = dA(12631)/dV(3400) - B(20040) = RCT(12631) -! B(20041) = dA(12632)/dV(1472) - B(20041) = RCT(12632)*V(5250) -! B(20042) = dA(12632)/dV(5250) - B(20042) = RCT(12632)*V(1472) -! B(20043) = dA(12633)/dV(1472) - B(20043) = RCT(12633) -! B(20044) = dA(12634)/dV(3347) - B(20044) = RCT(12634) -! B(20045) = dA(12635)/dV(1278) - B(20045) = RCT(12635)*V(5250) -! B(20046) = dA(12635)/dV(5250) - B(20046) = RCT(12635)*V(1278) -! B(20047) = dA(12636)/dV(1278) - B(20047) = RCT(12636) -! B(20048) = dA(12637)/dV(2733) - B(20048) = RCT(12637) -! B(20049) = dA(12638)/dV(3595) - B(20049) = RCT(12638)*V(5250) -! B(20050) = dA(12638)/dV(5250) - B(20050) = RCT(12638)*V(3595) -! B(20051) = dA(12639)/dV(3595) - B(20051) = RCT(12639) -! B(20052) = dA(12640)/dV(4013) - B(20052) = RCT(12640)*V(5255) -! B(20053) = dA(12640)/dV(5255) - B(20053) = RCT(12640)*V(4013) -! B(20054) = dA(12641)/dV(4013) - B(20054) = RCT(12641)*V(5255) -! B(20055) = dA(12641)/dV(5255) - B(20055) = RCT(12641)*V(4013) -! B(20056) = dA(12642)/dV(4013) - B(20056) = RCT(12642)*V(5252) -! B(20057) = dA(12642)/dV(5252) - B(20057) = RCT(12642)*V(4013) -! B(20058) = dA(12643)/dV(4013) - B(20058) = RCT(12643)*V(5253) -! B(20059) = dA(12643)/dV(5253) - B(20059) = RCT(12643)*V(4013) -! B(20060) = dA(12644)/dV(4013) - B(20060) = RCT(12644)*V(5256) -! B(20061) = dA(12644)/dV(5256) - B(20061) = RCT(12644)*V(4013) -! B(20062) = dA(12645)/dV(4013) - B(20062) = RCT(12645) -! B(20063) = dA(12646)/dV(1169) - B(20063) = RCT(12646)*V(5250) -! B(20064) = dA(12646)/dV(5250) - B(20064) = RCT(12646)*V(1169) -! B(20065) = dA(12647)/dV(1169) - B(20065) = RCT(12647) -! B(20066) = dA(12648)/dV(3329) - B(20066) = RCT(12648) -! B(20067) = dA(12649)/dV(825) - B(20067) = RCT(12649)*V(5250) -! B(20068) = dA(12649)/dV(5250) - B(20068) = RCT(12649)*V(825) -! B(20069) = dA(12650)/dV(825) - B(20069) = RCT(12650) -! B(20070) = dA(12651)/dV(2903) - B(20070) = RCT(12651) -! B(20071) = dA(12652)/dV(3732) - B(20071) = RCT(12652)*V(5250) -! B(20072) = dA(12652)/dV(5250) - B(20072) = RCT(12652)*V(3732) -! B(20073) = dA(12653)/dV(3732) - B(20073) = RCT(12653) -! B(20074) = dA(12654)/dV(4046) - B(20074) = RCT(12654)*V(5255) -! B(20075) = dA(12654)/dV(5255) - B(20075) = RCT(12654)*V(4046) -! B(20076) = dA(12655)/dV(4046) - B(20076) = RCT(12655)*V(5255) -! B(20077) = dA(12655)/dV(5255) - B(20077) = RCT(12655)*V(4046) -! B(20078) = dA(12656)/dV(4046) - B(20078) = RCT(12656)*V(5252) -! B(20079) = dA(12656)/dV(5252) - B(20079) = RCT(12656)*V(4046) -! B(20080) = dA(12657)/dV(4046) - B(20080) = RCT(12657)*V(5253) -! B(20081) = dA(12657)/dV(5253) - B(20081) = RCT(12657)*V(4046) -! B(20082) = dA(12658)/dV(4046) - B(20082) = RCT(12658)*V(5256) -! B(20083) = dA(12658)/dV(5256) - B(20083) = RCT(12658)*V(4046) -! B(20084) = dA(12659)/dV(4046) - B(20084) = RCT(12659) -! B(20085) = dA(12660)/dV(3541) - B(20085) = RCT(12660)*V(5250) -! B(20086) = dA(12660)/dV(5250) - B(20086) = RCT(12660)*V(3541) -! B(20087) = dA(12661)/dV(4404) - B(20087) = RCT(12661)*V(5255) -! B(20088) = dA(12661)/dV(5255) - B(20088) = RCT(12661)*V(4404) -! B(20089) = dA(12662)/dV(4404) - B(20089) = RCT(12662)*V(5255) -! B(20090) = dA(12662)/dV(5255) - B(20090) = RCT(12662)*V(4404) -! B(20091) = dA(12663)/dV(4404) - B(20091) = RCT(12663)*V(5252) -! B(20092) = dA(12663)/dV(5252) - B(20092) = RCT(12663)*V(4404) -! B(20093) = dA(12664)/dV(4404) - B(20093) = RCT(12664)*V(5253) -! B(20094) = dA(12664)/dV(5253) - B(20094) = RCT(12664)*V(4404) -! B(20095) = dA(12665)/dV(4404) - B(20095) = RCT(12665)*V(5256) -! B(20096) = dA(12665)/dV(5256) - B(20096) = RCT(12665)*V(4404) -! B(20097) = dA(12666)/dV(4404) - B(20097) = RCT(12666) -! B(20098) = dA(12667)/dV(1309) - B(20098) = RCT(12667)*V(5250) -! B(20099) = dA(12667)/dV(5250) - B(20099) = RCT(12667)*V(1309) -! B(20100) = dA(12668)/dV(1309) - B(20100) = RCT(12668) -! B(20101) = dA(12669)/dV(3574) - B(20101) = RCT(12669) -! B(20102) = dA(12670)/dV(1504) - B(20102) = RCT(12670)*V(5250) -! B(20103) = dA(12670)/dV(5250) - B(20103) = RCT(12670)*V(1504) -! B(20104) = dA(12671)/dV(1504) - B(20104) = RCT(12671) -! B(20105) = dA(12672)/dV(3361) - B(20105) = RCT(12672) -! B(20106) = dA(12673)/dV(3673) - B(20106) = RCT(12673)*V(5250) -! B(20107) = dA(12673)/dV(5250) - B(20107) = RCT(12673)*V(3673) -! B(20108) = dA(12674)/dV(3673) - B(20108) = RCT(12674) -! B(20109) = dA(12675)/dV(4536) - B(20109) = RCT(12675)*V(5255) -! B(20110) = dA(12675)/dV(5255) - B(20110) = RCT(12675)*V(4536) -! B(20111) = dA(12676)/dV(4536) - B(20111) = RCT(12676)*V(5255) -! B(20112) = dA(12676)/dV(5255) - B(20112) = RCT(12676)*V(4536) -! B(20113) = dA(12677)/dV(4536) - B(20113) = RCT(12677)*V(5252) -! B(20114) = dA(12677)/dV(5252) - B(20114) = RCT(12677)*V(4536) -! B(20115) = dA(12678)/dV(4536) - B(20115) = RCT(12678)*V(5253) -! B(20116) = dA(12678)/dV(5253) - B(20116) = RCT(12678)*V(4536) -! B(20117) = dA(12679)/dV(4536) - B(20117) = RCT(12679)*V(5256) -! B(20118) = dA(12679)/dV(5256) - B(20118) = RCT(12679)*V(4536) -! B(20119) = dA(12680)/dV(4536) - B(20119) = RCT(12680) -! B(20120) = dA(12681)/dV(2548) - B(20120) = RCT(12681)*V(5250) -! B(20121) = dA(12681)/dV(5250) - B(20121) = RCT(12681)*V(2548) -! B(20122) = dA(12682)/dV(2228) - B(20122) = RCT(12682)*V(5250) -! B(20123) = dA(12682)/dV(5250) - B(20123) = RCT(12682)*V(2228) -! B(20124) = dA(12683)/dV(2228) - B(20124) = RCT(12683) -! B(20125) = dA(12684)/dV(2538) - B(20125) = RCT(12684)*V(5250) -! B(20126) = dA(12684)/dV(5250) - B(20126) = RCT(12684)*V(2538) -! B(20127) = dA(12685)/dV(2538) - B(20127) = RCT(12685) -! B(20128) = dA(12686)/dV(1118) - B(20128) = RCT(12686)*V(5250) -! B(20129) = dA(12686)/dV(5250) - B(20129) = RCT(12686)*V(1118) -! B(20130) = dA(12687)/dV(1118) - B(20130) = RCT(12687) -! B(20131) = dA(12688)/dV(3596) - B(20131) = RCT(12688) -! B(20132) = dA(12689)/dV(1025) - B(20132) = RCT(12689)*V(5250) -! B(20133) = dA(12689)/dV(5250) - B(20133) = RCT(12689)*V(1025) -! B(20134) = dA(12690)/dV(1025) - B(20134) = RCT(12690) -! B(20135) = dA(12691)/dV(3414) - B(20135) = RCT(12691) -! B(20136) = dA(12692)/dV(3787) - B(20136) = RCT(12692)*V(5250) -! B(20137) = dA(12692)/dV(5250) - B(20137) = RCT(12692)*V(3787) -! B(20138) = dA(12693)/dV(3787) - B(20138) = RCT(12693) -! B(20139) = dA(12694)/dV(4218) - B(20139) = RCT(12694)*V(5255) -! B(20140) = dA(12694)/dV(5255) - B(20140) = RCT(12694)*V(4218) -! B(20141) = dA(12695)/dV(4218) - B(20141) = RCT(12695)*V(5255) -! B(20142) = dA(12695)/dV(5255) - B(20142) = RCT(12695)*V(4218) -! B(20143) = dA(12696)/dV(4218) - B(20143) = RCT(12696)*V(5252) -! B(20144) = dA(12696)/dV(5252) - B(20144) = RCT(12696)*V(4218) -! B(20145) = dA(12697)/dV(4218) - B(20145) = RCT(12697)*V(5253) -! B(20146) = dA(12697)/dV(5253) - B(20146) = RCT(12697)*V(4218) -! B(20147) = dA(12698)/dV(4218) - B(20147) = RCT(12698)*V(5256) -! B(20148) = dA(12698)/dV(5256) - B(20148) = RCT(12698)*V(4218) -! B(20149) = dA(12699)/dV(4218) - B(20149) = RCT(12699) -! B(20150) = dA(12700)/dV(2854) - B(20150) = RCT(12700)*V(5250) -! B(20151) = dA(12700)/dV(5250) - B(20151) = RCT(12700)*V(2854) -! B(20152) = dA(12701)/dV(2120) - B(20152) = RCT(12701)*V(5250) -! B(20153) = dA(12701)/dV(5250) - B(20153) = RCT(12701)*V(2120) -! B(20154) = dA(12702)/dV(2120) - B(20154) = RCT(12702) -! B(20155) = dA(12703)/dV(2929) - B(20155) = RCT(12703)*V(5250) -! B(20156) = dA(12703)/dV(5250) - B(20156) = RCT(12703)*V(2929) -! B(20157) = dA(12704)/dV(2929) - B(20157) = RCT(12704) -! B(20158) = dA(12705)/dV(3937) - B(20158) = RCT(12705)*V(5255) -! B(20159) = dA(12705)/dV(5255) - B(20159) = RCT(12705)*V(3937) -! B(20160) = dA(12706)/dV(3937) - B(20160) = RCT(12706)*V(5252) -! B(20161) = dA(12706)/dV(5252) - B(20161) = RCT(12706)*V(3937) -! B(20162) = dA(12707)/dV(3937) - B(20162) = RCT(12707)*V(5256) -! B(20163) = dA(12707)/dV(5256) - B(20163) = RCT(12707)*V(3937) -! B(20164) = dA(12708)/dV(3937) - B(20164) = RCT(12708) -! B(20165) = dA(12709)/dV(3746) - B(20165) = RCT(12709)*V(5255) -! B(20166) = dA(12709)/dV(5255) - B(20166) = RCT(12709)*V(3746) -! B(20167) = dA(12710)/dV(3746) - B(20167) = RCT(12710)*V(5252) -! B(20168) = dA(12710)/dV(5252) - B(20168) = RCT(12710)*V(3746) -! B(20169) = dA(12711)/dV(3746) - B(20169) = RCT(12711)*V(5256) -! B(20170) = dA(12711)/dV(5256) - B(20170) = RCT(12711)*V(3746) -! B(20171) = dA(12712)/dV(3746) - B(20171) = RCT(12712) -! B(20172) = dA(12713)/dV(3746) - B(20172) = RCT(12713) -! B(20173) = dA(12714)/dV(869) - B(20173) = RCT(12714)*V(5250) -! B(20174) = dA(12714)/dV(5250) - B(20174) = RCT(12714)*V(869) -! B(20175) = dA(12715)/dV(869) - B(20175) = RCT(12715) -! B(20176) = dA(12716)/dV(3363) - B(20176) = RCT(12716) -! B(20177) = dA(12717)/dV(1166) - B(20177) = RCT(12717)*V(5250) -! B(20178) = dA(12717)/dV(5250) - B(20178) = RCT(12717)*V(1166) -! B(20179) = dA(12718)/dV(1166) - B(20179) = RCT(12718) -! B(20180) = dA(12719)/dV(2736) - B(20180) = RCT(12719) -! B(20181) = dA(12720)/dV(4331) - B(20181) = RCT(12720)*V(5250) -! B(20182) = dA(12720)/dV(5250) - B(20182) = RCT(12720)*V(4331) -! B(20183) = dA(12721)/dV(1455) - B(20183) = RCT(12721)*V(5250) -! B(20184) = dA(12721)/dV(5250) - B(20184) = RCT(12721)*V(1455) -! B(20185) = dA(12722)/dV(1455) - B(20185) = RCT(12722) -! B(20186) = dA(12723)/dV(3406) - B(20186) = RCT(12723) -! B(20187) = dA(12724)/dV(888) - B(20187) = RCT(12724)*V(5250) -! B(20188) = dA(12724)/dV(5250) - B(20188) = RCT(12724)*V(888) -! B(20189) = dA(12725)/dV(888) - B(20189) = RCT(12725) -! B(20190) = dA(12726)/dV(3381) - B(20190) = RCT(12726) -! B(20191) = dA(12727)/dV(1273) - B(20191) = RCT(12727)*V(5250) -! B(20192) = dA(12727)/dV(5250) - B(20192) = RCT(12727)*V(1273) -! B(20193) = dA(12728)/dV(1273) - B(20193) = RCT(12728) -! B(20194) = dA(12729)/dV(2952) - B(20194) = RCT(12729) -! B(20195) = dA(12730)/dV(3593) - B(20195) = RCT(12730)*V(5250) -! B(20196) = dA(12730)/dV(5250) - B(20196) = RCT(12730)*V(3593) -! B(20197) = dA(12731)/dV(3593) - B(20197) = RCT(12731) -! B(20198) = dA(12732)/dV(4324) - B(20198) = RCT(12732)*V(5255) -! B(20199) = dA(12732)/dV(5255) - B(20199) = RCT(12732)*V(4324) -! B(20200) = dA(12733)/dV(4324) - B(20200) = RCT(12733)*V(5255) -! B(20201) = dA(12733)/dV(5255) - B(20201) = RCT(12733)*V(4324) -! B(20202) = dA(12734)/dV(4324) - B(20202) = RCT(12734)*V(5252) -! B(20203) = dA(12734)/dV(5252) - B(20203) = RCT(12734)*V(4324) -! B(20204) = dA(12735)/dV(4324) - B(20204) = RCT(12735)*V(5253) -! B(20205) = dA(12735)/dV(5253) - B(20205) = RCT(12735)*V(4324) -! B(20206) = dA(12736)/dV(4324) - B(20206) = RCT(12736)*V(5256) -! B(20207) = dA(12736)/dV(5256) - B(20207) = RCT(12736)*V(4324) -! B(20208) = dA(12737)/dV(4324) - B(20208) = RCT(12737) -! B(20209) = dA(12738)/dV(1393) - B(20209) = RCT(12738)*V(5250) -! B(20210) = dA(12738)/dV(5250) - B(20210) = RCT(12738)*V(1393) -! B(20211) = dA(12739)/dV(1393) - B(20211) = RCT(12739) -! B(20212) = dA(12740)/dV(2768) - B(20212) = RCT(12740) -! B(20213) = dA(12741)/dV(1045) - B(20213) = RCT(12741)*V(5250) -! B(20214) = dA(12741)/dV(5250) - B(20214) = RCT(12741)*V(1045) -! B(20215) = dA(12742)/dV(1045) - B(20215) = RCT(12742) -! B(20216) = dA(12743)/dV(3362) - B(20216) = RCT(12743) -! B(20217) = dA(12744)/dV(1029) - B(20217) = RCT(12744)*V(5250) -! B(20218) = dA(12744)/dV(5250) - B(20218) = RCT(12744)*V(1029) -! B(20219) = dA(12745)/dV(1029) - B(20219) = RCT(12745) -! B(20220) = dA(12746)/dV(2598) - B(20220) = RCT(12746) -! B(20221) = dA(12747)/dV(3709) - B(20221) = RCT(12747)*V(5250) -! B(20222) = dA(12747)/dV(5250) - B(20222) = RCT(12747)*V(3709) -! B(20223) = dA(12748)/dV(3709) - B(20223) = RCT(12748) -! B(20224) = dA(12749)/dV(4154) - B(20224) = RCT(12749)*V(5255) -! B(20225) = dA(12749)/dV(5255) - B(20225) = RCT(12749)*V(4154) -! B(20226) = dA(12750)/dV(4154) - B(20226) = RCT(12750)*V(5255) -! B(20227) = dA(12750)/dV(5255) - B(20227) = RCT(12750)*V(4154) -! B(20228) = dA(12751)/dV(4154) - B(20228) = RCT(12751)*V(5252) -! B(20229) = dA(12751)/dV(5252) - B(20229) = RCT(12751)*V(4154) -! B(20230) = dA(12752)/dV(4154) - B(20230) = RCT(12752)*V(5253) -! B(20231) = dA(12752)/dV(5253) - B(20231) = RCT(12752)*V(4154) -! B(20232) = dA(12753)/dV(4154) - B(20232) = RCT(12753)*V(5256) -! B(20233) = dA(12753)/dV(5256) - B(20233) = RCT(12753)*V(4154) -! B(20234) = dA(12754)/dV(4154) - B(20234) = RCT(12754) -! B(20235) = dA(12755)/dV(1223) - B(20235) = RCT(12755)*V(5250) -! B(20236) = dA(12755)/dV(5250) - B(20236) = RCT(12755)*V(1223) -! B(20237) = dA(12756)/dV(1223) - B(20237) = RCT(12756) -! B(20238) = dA(12757)/dV(3417) - B(20238) = RCT(12757) -! B(20239) = dA(12758)/dV(972) - B(20239) = RCT(12758)*V(5250) -! B(20240) = dA(12758)/dV(5250) - B(20240) = RCT(12758)*V(972) -! B(20241) = dA(12759)/dV(972) - B(20241) = RCT(12759) -! B(20242) = dA(12760)/dV(2995) - B(20242) = RCT(12760) -! B(20243) = dA(12761)/dV(3968) - B(20243) = RCT(12761)*V(5250) -! B(20244) = dA(12761)/dV(5250) - B(20244) = RCT(12761)*V(3968) -! B(20245) = dA(12762)/dV(3968) - B(20245) = RCT(12762) -! B(20246) = dA(12763)/dV(4441) - B(20246) = RCT(12763)*V(5255) -! B(20247) = dA(12763)/dV(5255) - B(20247) = RCT(12763)*V(4441) -! B(20248) = dA(12764)/dV(4441) - B(20248) = RCT(12764)*V(5255) -! B(20249) = dA(12764)/dV(5255) - B(20249) = RCT(12764)*V(4441) -! B(20250) = dA(12765)/dV(4441) - B(20250) = RCT(12765)*V(5252) -! B(20251) = dA(12765)/dV(5252) - B(20251) = RCT(12765)*V(4441) -! B(20252) = dA(12766)/dV(4441) - B(20252) = RCT(12766)*V(5253) -! B(20253) = dA(12766)/dV(5253) - B(20253) = RCT(12766)*V(4441) -! B(20254) = dA(12767)/dV(4441) - B(20254) = RCT(12767)*V(5256) -! B(20255) = dA(12767)/dV(5256) - B(20255) = RCT(12767)*V(4441) -! B(20256) = dA(12768)/dV(4441) - B(20256) = RCT(12768) -! B(20257) = dA(12769)/dV(1030) - B(20257) = RCT(12769)*V(5250) -! B(20258) = dA(12769)/dV(5250) - B(20258) = RCT(12769)*V(1030) -! B(20259) = dA(12770)/dV(1030) - B(20259) = RCT(12770) -! B(20260) = dA(12771)/dV(3388) - B(20260) = RCT(12771) -! B(20261) = dA(12772)/dV(1423) - B(20261) = RCT(12772)*V(5250) -! B(20262) = dA(12772)/dV(5250) - B(20262) = RCT(12772)*V(1423) -! B(20263) = dA(12773)/dV(1423) - B(20263) = RCT(12773) -! B(20264) = dA(12774)/dV(2937) - B(20264) = RCT(12774) -! B(20265) = dA(12775)/dV(3681) - B(20265) = RCT(12775)*V(5250) -! B(20266) = dA(12775)/dV(5250) - B(20266) = RCT(12775)*V(3681) -! B(20267) = dA(12776)/dV(3681) - B(20267) = RCT(12776) -! B(20268) = dA(12777)/dV(4299) - B(20268) = RCT(12777)*V(5255) -! B(20269) = dA(12777)/dV(5255) - B(20269) = RCT(12777)*V(4299) -! B(20270) = dA(12778)/dV(4299) - B(20270) = RCT(12778)*V(5255) -! B(20271) = dA(12778)/dV(5255) - B(20271) = RCT(12778)*V(4299) -! B(20272) = dA(12779)/dV(4299) - B(20272) = RCT(12779)*V(5252) -! B(20273) = dA(12779)/dV(5252) - B(20273) = RCT(12779)*V(4299) -! B(20274) = dA(12780)/dV(4299) - B(20274) = RCT(12780)*V(5253) -! B(20275) = dA(12780)/dV(5253) - B(20275) = RCT(12780)*V(4299) -! B(20276) = dA(12781)/dV(4299) - B(20276) = RCT(12781)*V(5256) -! B(20277) = dA(12781)/dV(5256) - B(20277) = RCT(12781)*V(4299) -! B(20278) = dA(12782)/dV(4299) - B(20278) = RCT(12782) -! B(20279) = dA(12783)/dV(4977) - B(20279) = RCT(12783)*V(5255) -! B(20280) = dA(12783)/dV(5255) - B(20280) = RCT(12783)*V(4977) -! B(20281) = dA(12784)/dV(4977) - B(20281) = RCT(12784)*V(5255) -! B(20282) = dA(12784)/dV(5255) - B(20282) = RCT(12784)*V(4977) -! B(20283) = dA(12785)/dV(4977) - B(20283) = RCT(12785)*V(5255) -! B(20284) = dA(12785)/dV(5255) - B(20284) = RCT(12785)*V(4977) -! B(20285) = dA(12786)/dV(4977) - B(20285) = RCT(12786)*V(5252) -! B(20286) = dA(12786)/dV(5252) - B(20286) = RCT(12786)*V(4977) -! B(20287) = dA(12787)/dV(4977) - B(20287) = RCT(12787)*V(5253) -! B(20288) = dA(12787)/dV(5253) - B(20288) = RCT(12787)*V(4977) -! B(20289) = dA(12788)/dV(4977) - B(20289) = RCT(12788)*V(5256) -! B(20290) = dA(12788)/dV(5256) - B(20290) = RCT(12788)*V(4977) -! B(20291) = dA(12789)/dV(4977) - B(20291) = RCT(12789) -! B(20292) = dA(12790)/dV(4977) - B(20292) = RCT(12790) -! B(20293) = dA(12791)/dV(1215) - B(20293) = RCT(12791)*V(5250) -! B(20294) = dA(12791)/dV(5250) - B(20294) = RCT(12791)*V(1215) -! B(20295) = dA(12792)/dV(1215) - B(20295) = RCT(12792) -! B(20296) = dA(12793)/dV(2820) - B(20296) = RCT(12793) -! B(20297) = dA(12794)/dV(4052) - B(20297) = RCT(12794)*V(5255) -! B(20298) = dA(12794)/dV(5255) - B(20298) = RCT(12794)*V(4052) -! B(20299) = dA(12795)/dV(4052) - B(20299) = RCT(12795)*V(5252) -! B(20300) = dA(12795)/dV(5252) - B(20300) = RCT(12795)*V(4052) -! B(20301) = dA(12796)/dV(4052) - B(20301) = RCT(12796)*V(5256) -! B(20302) = dA(12796)/dV(5256) - B(20302) = RCT(12796)*V(4052) -! B(20303) = dA(12797)/dV(4052) - B(20303) = RCT(12797) -! B(20304) = dA(12798)/dV(1457) - B(20304) = RCT(12798)*V(5250) -! B(20305) = dA(12798)/dV(5250) - B(20305) = RCT(12798)*V(1457) -! B(20306) = dA(12799)/dV(2429) - B(20306) = RCT(12799) -! B(20307) = dA(12800)/dV(2429) - B(20307) = RCT(12800)*V(5250) -! B(20308) = dA(12800)/dV(5250) - B(20308) = RCT(12800)*V(2429) -! B(20309) = dA(12801)/dV(2705) - B(20309) = RCT(12801) -! B(20310) = dA(12802)/dV(2705) - B(20310) = RCT(12802)*V(5250) -! B(20311) = dA(12802)/dV(5250) - B(20311) = RCT(12802)*V(2705) -! B(20312) = dA(12803)/dV(1249) - B(20312) = RCT(12803) -! B(20313) = dA(12804)/dV(1249) - B(20313) = RCT(12804)*V(5250) -! B(20314) = dA(12804)/dV(5250) - B(20314) = RCT(12804)*V(1249) -! B(20315) = dA(12805)/dV(2655) - B(20315) = RCT(12805) -! B(20316) = dA(12806)/dV(2655) - B(20316) = RCT(12806)*V(5250) -! B(20317) = dA(12806)/dV(5250) - B(20317) = RCT(12806)*V(2655) -! B(20318) = dA(12807)/dV(2617) - B(20318) = RCT(12807)*V(5250) -! B(20319) = dA(12807)/dV(5250) - B(20319) = RCT(12807)*V(2617) -! B(20320) = dA(12808)/dV(2617) - B(20320) = RCT(12808) -! B(20321) = dA(12809)/dV(781) - B(20321) = RCT(12809) -! B(20322) = dA(12810)/dV(3558) - B(20322) = RCT(12810)*V(5250) -! B(20323) = dA(12810)/dV(5250) - B(20323) = RCT(12810)*V(3558) -! B(20324) = dA(12811)/dV(3558) - B(20324) = RCT(12811) -! B(20325) = dA(12812)/dV(4826) - B(20325) = RCT(12812)*V(5255) -! B(20326) = dA(12812)/dV(5255) - B(20326) = RCT(12812)*V(4826) -! B(20327) = dA(12813)/dV(4826) - B(20327) = RCT(12813)*V(5255) -! B(20328) = dA(12813)/dV(5255) - B(20328) = RCT(12813)*V(4826) -! B(20329) = dA(12814)/dV(4826) - B(20329) = RCT(12814)*V(5252) -! B(20330) = dA(12814)/dV(5252) - B(20330) = RCT(12814)*V(4826) -! B(20331) = dA(12815)/dV(4826) - B(20331) = RCT(12815)*V(5253) -! B(20332) = dA(12815)/dV(5253) - B(20332) = RCT(12815)*V(4826) -! B(20333) = dA(12816)/dV(4826) - B(20333) = RCT(12816)*V(5256) -! B(20334) = dA(12816)/dV(5256) - B(20334) = RCT(12816)*V(4826) -! B(20335) = dA(12817)/dV(4826) - B(20335) = RCT(12817) -! B(20336) = dA(12818)/dV(4519) - B(20336) = RCT(12818)*V(5255) -! B(20337) = dA(12818)/dV(5255) - B(20337) = RCT(12818)*V(4519) -! B(20338) = dA(12819)/dV(4519) - B(20338) = RCT(12819)*V(5255) -! B(20339) = dA(12819)/dV(5255) - B(20339) = RCT(12819)*V(4519) -! B(20340) = dA(12820)/dV(4519) - B(20340) = RCT(12820)*V(5255) -! B(20341) = dA(12820)/dV(5255) - B(20341) = RCT(12820)*V(4519) -! B(20342) = dA(12821)/dV(4519) - B(20342) = RCT(12821)*V(5252) -! B(20343) = dA(12821)/dV(5252) - B(20343) = RCT(12821)*V(4519) -! B(20344) = dA(12822)/dV(4519) - B(20344) = RCT(12822)*V(5253) -! B(20345) = dA(12822)/dV(5253) - B(20345) = RCT(12822)*V(4519) -! B(20346) = dA(12823)/dV(4519) - B(20346) = RCT(12823)*V(5256) -! B(20347) = dA(12823)/dV(5256) - B(20347) = RCT(12823)*V(4519) -! B(20348) = dA(12824)/dV(4519) - B(20348) = RCT(12824) -! B(20349) = dA(12825)/dV(4519) - B(20349) = RCT(12825) -! B(20350) = dA(12826)/dV(4753) - B(20350) = RCT(12826)*V(5255) -! B(20351) = dA(12826)/dV(5255) - B(20351) = RCT(12826)*V(4753) -! B(20352) = dA(12827)/dV(4753) - B(20352) = RCT(12827)*V(5255) -! B(20353) = dA(12827)/dV(5255) - B(20353) = RCT(12827)*V(4753) -! B(20354) = dA(12828)/dV(4753) - B(20354) = RCT(12828)*V(5255) -! B(20355) = dA(12828)/dV(5255) - B(20355) = RCT(12828)*V(4753) -! B(20356) = dA(12829)/dV(4753) - B(20356) = RCT(12829)*V(5252) -! B(20357) = dA(12829)/dV(5252) - B(20357) = RCT(12829)*V(4753) -! B(20358) = dA(12830)/dV(4753) - B(20358) = RCT(12830)*V(5253) -! B(20359) = dA(12830)/dV(5253) - B(20359) = RCT(12830)*V(4753) -! B(20360) = dA(12831)/dV(4753) - B(20360) = RCT(12831)*V(5256) -! B(20361) = dA(12831)/dV(5256) - B(20361) = RCT(12831)*V(4753) -! B(20362) = dA(12832)/dV(4753) - B(20362) = RCT(12832) -! B(20363) = dA(12833)/dV(4753) - B(20363) = RCT(12833) -! B(20364) = dA(12834)/dV(4739) - B(20364) = RCT(12834)*V(5255) -! B(20365) = dA(12834)/dV(5255) - B(20365) = RCT(12834)*V(4739) -! B(20366) = dA(12835)/dV(4739) - B(20366) = RCT(12835)*V(5255) -! B(20367) = dA(12835)/dV(5255) - B(20367) = RCT(12835)*V(4739) -! B(20368) = dA(12836)/dV(4739) - B(20368) = RCT(12836)*V(5255) -! B(20369) = dA(12836)/dV(5255) - B(20369) = RCT(12836)*V(4739) -! B(20370) = dA(12837)/dV(4739) - B(20370) = RCT(12837)*V(5252) -! B(20371) = dA(12837)/dV(5252) - B(20371) = RCT(12837)*V(4739) -! B(20372) = dA(12838)/dV(4739) - B(20372) = RCT(12838)*V(5253) -! B(20373) = dA(12838)/dV(5253) - B(20373) = RCT(12838)*V(4739) -! B(20374) = dA(12839)/dV(4739) - B(20374) = RCT(12839)*V(5256) -! B(20375) = dA(12839)/dV(5256) - B(20375) = RCT(12839)*V(4739) -! B(20376) = dA(12840)/dV(4739) - B(20376) = RCT(12840) -! B(20377) = dA(12841)/dV(4739) - B(20377) = RCT(12841) -! B(20378) = dA(12842)/dV(1467) - B(20378) = RCT(12842) -! B(20379) = dA(12843)/dV(1467) - B(20379) = RCT(12843)*V(5250) -! B(20380) = dA(12843)/dV(5250) - B(20380) = RCT(12843)*V(1467) -! B(20381) = dA(12844)/dV(2823) - B(20381) = RCT(12844) -! B(20382) = dA(12845)/dV(2823) - B(20382) = RCT(12845)*V(5250) -! B(20383) = dA(12845)/dV(5250) - B(20383) = RCT(12845)*V(2823) -! B(20384) = dA(12846)/dV(1816) - B(20384) = RCT(12846)*V(5250) -! B(20385) = dA(12846)/dV(5250) - B(20385) = RCT(12846)*V(1816) -! B(20386) = dA(12847)/dV(1816) - B(20386) = RCT(12847) -! B(20387) = dA(12848)/dV(3042) - B(20387) = RCT(12848)*V(5250) -! B(20388) = dA(12848)/dV(5250) - B(20388) = RCT(12848)*V(3042) -! B(20389) = dA(12849)/dV(3042) - B(20389) = RCT(12849) -! B(20390) = dA(12850)/dV(2329) - B(20390) = RCT(12850)*V(5250) -! B(20391) = dA(12850)/dV(5250) - B(20391) = RCT(12850)*V(2329) -! B(20392) = dA(12851)/dV(2329) - B(20392) = RCT(12851) -! B(20393) = dA(12852)/dV(3045) - B(20393) = RCT(12852)*V(5250) -! B(20394) = dA(12852)/dV(5250) - B(20394) = RCT(12852)*V(3045) -! B(20395) = dA(12853)/dV(3045) - B(20395) = RCT(12853) -! B(20396) = dA(12854)/dV(5005) - B(20396) = RCT(12854)*V(5255) -! B(20397) = dA(12854)/dV(5255) - B(20397) = RCT(12854)*V(5005) -! B(20398) = dA(12855)/dV(5005) - B(20398) = RCT(12855)*V(5255) -! B(20399) = dA(12855)/dV(5255) - B(20399) = RCT(12855)*V(5005) -! B(20400) = dA(12856)/dV(5005) - B(20400) = RCT(12856)*V(5255) -! B(20401) = dA(12856)/dV(5255) - B(20401) = RCT(12856)*V(5005) -! B(20402) = dA(12857)/dV(5005) - B(20402) = RCT(12857)*V(5252) -! B(20403) = dA(12857)/dV(5252) - B(20403) = RCT(12857)*V(5005) -! B(20404) = dA(12858)/dV(5005) - B(20404) = RCT(12858)*V(5253) -! B(20405) = dA(12858)/dV(5253) - B(20405) = RCT(12858)*V(5005) -! B(20406) = dA(12859)/dV(5005) - B(20406) = RCT(12859)*V(5256) -! B(20407) = dA(12859)/dV(5256) - B(20407) = RCT(12859)*V(5005) -! B(20408) = dA(12860)/dV(5005) - B(20408) = RCT(12860) -! B(20409) = dA(12861)/dV(5005) - B(20409) = RCT(12861) -! B(20410) = dA(12862)/dV(5003) - B(20410) = RCT(12862)*V(5255) -! B(20411) = dA(12862)/dV(5255) - B(20411) = RCT(12862)*V(5003) -! B(20412) = dA(12863)/dV(5003) - B(20412) = RCT(12863)*V(5255) -! B(20413) = dA(12863)/dV(5255) - B(20413) = RCT(12863)*V(5003) -! B(20414) = dA(12864)/dV(5003) - B(20414) = RCT(12864)*V(5255) -! B(20415) = dA(12864)/dV(5255) - B(20415) = RCT(12864)*V(5003) -! B(20416) = dA(12865)/dV(5003) - B(20416) = RCT(12865)*V(5252) -! B(20417) = dA(12865)/dV(5252) - B(20417) = RCT(12865)*V(5003) -! B(20418) = dA(12866)/dV(5003) - B(20418) = RCT(12866)*V(5253) -! B(20419) = dA(12866)/dV(5253) - B(20419) = RCT(12866)*V(5003) -! B(20420) = dA(12867)/dV(5003) - B(20420) = RCT(12867)*V(5256) -! B(20421) = dA(12867)/dV(5256) - B(20421) = RCT(12867)*V(5003) -! B(20422) = dA(12868)/dV(5003) - B(20422) = RCT(12868) -! B(20423) = dA(12869)/dV(5003) - B(20423) = RCT(12869) -! B(20424) = dA(12870)/dV(1229) - B(20424) = RCT(12870)*V(5250) -! B(20425) = dA(12870)/dV(5250) - B(20425) = RCT(12870)*V(1229) -! B(20426) = dA(12871)/dV(3272) - B(20426) = RCT(12871)*V(5250) -! B(20427) = dA(12871)/dV(5250) - B(20427) = RCT(12871)*V(3272) -! B(20428) = dA(12872)/dV(3272) - B(20428) = RCT(12872)*V(5250) -! B(20429) = dA(12872)/dV(5250) - B(20429) = RCT(12872)*V(3272) -! B(20430) = dA(12873)/dV(3272) - B(20430) = RCT(12873) -! B(20431) = dA(12874)/dV(2735) - B(20431) = RCT(12874)*V(5250) -! B(20432) = dA(12874)/dV(5250) - B(20432) = RCT(12874)*V(2735) -! B(20433) = dA(12875)/dV(2735) - B(20433) = RCT(12875) -! B(20434) = dA(12876)/dV(3998) - B(20434) = RCT(12876)*V(5255) -! B(20435) = dA(12876)/dV(5255) - B(20435) = RCT(12876)*V(3998) -! B(20436) = dA(12877)/dV(3998) - B(20436) = RCT(12877)*V(5255) -! B(20437) = dA(12877)/dV(5255) - B(20437) = RCT(12877)*V(3998) -! B(20438) = dA(12878)/dV(3998) - B(20438) = RCT(12878)*V(5252) -! B(20439) = dA(12878)/dV(5252) - B(20439) = RCT(12878)*V(3998) -! B(20440) = dA(12879)/dV(3998) - B(20440) = RCT(12879)*V(5253) -! B(20441) = dA(12879)/dV(5253) - B(20441) = RCT(12879)*V(3998) -! B(20442) = dA(12880)/dV(3998) - B(20442) = RCT(12880)*V(5256) -! B(20443) = dA(12880)/dV(5256) - B(20443) = RCT(12880)*V(3998) -! B(20444) = dA(12881)/dV(3998) - B(20444) = RCT(12881) -! B(20445) = dA(12882)/dV(839) - B(20445) = RCT(12882) -! B(20446) = dA(12883)/dV(839) - B(20446) = RCT(12883)*V(5250) -! B(20447) = dA(12883)/dV(5250) - B(20447) = RCT(12883)*V(839) -! B(20448) = dA(12884)/dV(1518) - B(20448) = RCT(12884) -! B(20449) = dA(12885)/dV(1518) - B(20449) = RCT(12885)*V(5250) -! B(20450) = dA(12885)/dV(5250) - B(20450) = RCT(12885)*V(1518) -! B(20451) = dA(12886)/dV(1939) - B(20451) = RCT(12886) -! B(20452) = dA(12887)/dV(1939) - B(20452) = RCT(12887)*V(5250) -! B(20453) = dA(12887)/dV(5250) - B(20453) = RCT(12887)*V(1939) -! B(20454) = dA(12888)/dV(893) - B(20454) = RCT(12888)*V(5250) -! B(20455) = dA(12888)/dV(5250) - B(20455) = RCT(12888)*V(893) -! B(20456) = dA(12889)/dV(1804) - B(20456) = RCT(12889) -! B(20457) = dA(12890)/dV(1804) - B(20457) = RCT(12890)*V(5250) -! B(20458) = dA(12890)/dV(5250) - B(20458) = RCT(12890)*V(1804) -! B(20459) = dA(12891)/dV(2925) - B(20459) = RCT(12891) -! B(20460) = dA(12892)/dV(2925) - B(20460) = RCT(12892)*V(5250) -! B(20461) = dA(12892)/dV(5250) - B(20461) = RCT(12892)*V(2925) -! B(20462) = dA(12893)/dV(4772) - B(20462) = RCT(12893)*V(5255) -! B(20463) = dA(12893)/dV(5255) - B(20463) = RCT(12893)*V(4772) -! B(20464) = dA(12894)/dV(4772) - B(20464) = RCT(12894)*V(5255) -! B(20465) = dA(12894)/dV(5255) - B(20465) = RCT(12894)*V(4772) -! B(20466) = dA(12895)/dV(4772) - B(20466) = RCT(12895)*V(5255) -! B(20467) = dA(12895)/dV(5255) - B(20467) = RCT(12895)*V(4772) -! B(20468) = dA(12896)/dV(4772) - B(20468) = RCT(12896)*V(5252) -! B(20469) = dA(12896)/dV(5252) - B(20469) = RCT(12896)*V(4772) -! B(20470) = dA(12897)/dV(4772) - B(20470) = RCT(12897)*V(5253) -! B(20471) = dA(12897)/dV(5253) - B(20471) = RCT(12897)*V(4772) -! B(20472) = dA(12898)/dV(4772) - B(20472) = RCT(12898)*V(5256) -! B(20473) = dA(12898)/dV(5256) - B(20473) = RCT(12898)*V(4772) -! B(20474) = dA(12899)/dV(4772) - B(20474) = RCT(12899) -! B(20475) = dA(12900)/dV(4772) - B(20475) = RCT(12900) -! B(20476) = dA(12901)/dV(890) - B(20476) = RCT(12901)*V(5250) -! B(20477) = dA(12901)/dV(5250) - B(20477) = RCT(12901)*V(890) -! B(20478) = dA(12902)/dV(1874) - B(20478) = RCT(12902) -! B(20479) = dA(12903)/dV(1874) - B(20479) = RCT(12903)*V(5250) -! B(20480) = dA(12903)/dV(5250) - B(20480) = RCT(12903)*V(1874) -! B(20481) = dA(12904)/dV(3236) - B(20481) = RCT(12904) -! B(20482) = dA(12905)/dV(3236) - B(20482) = RCT(12905)*V(5250) -! B(20483) = dA(12905)/dV(5250) - B(20483) = RCT(12905)*V(3236) -! B(20484) = dA(12906)/dV(3500) - B(20484) = RCT(12906)*V(5250) -! B(20485) = dA(12906)/dV(5250) - B(20485) = RCT(12906)*V(3500) -! B(20486) = dA(12907)/dV(3500) - B(20486) = RCT(12907) -! B(20487) = dA(12908)/dV(3555) - B(20487) = RCT(12908)*V(5250) -! B(20488) = dA(12908)/dV(5250) - B(20488) = RCT(12908)*V(3555) -! B(20489) = dA(12909)/dV(3555) - B(20489) = RCT(12909) -! B(20490) = dA(12910)/dV(3532) - B(20490) = RCT(12910)*V(5250) -! B(20491) = dA(12910)/dV(5250) - B(20491) = RCT(12910)*V(3532) -! B(20492) = dA(12911)/dV(3532) - B(20492) = RCT(12911) -! B(20493) = dA(12912)/dV(4565) - B(20493) = RCT(12912)*V(5255) -! B(20494) = dA(12912)/dV(5255) - B(20494) = RCT(12912)*V(4565) -! B(20495) = dA(12913)/dV(4565) - B(20495) = RCT(12913)*V(5252) -! B(20496) = dA(12913)/dV(5252) - B(20496) = RCT(12913)*V(4565) -! B(20497) = dA(12914)/dV(4565) - B(20497) = RCT(12914)*V(5256) -! B(20498) = dA(12914)/dV(5256) - B(20498) = RCT(12914)*V(4565) -! B(20499) = dA(12915)/dV(4565) - B(20499) = RCT(12915) -! B(20500) = dA(12916)/dV(4123) - B(20500) = RCT(12916)*V(5255) -! B(20501) = dA(12916)/dV(5255) - B(20501) = RCT(12916)*V(4123) -! B(20502) = dA(12917)/dV(4123) - B(20502) = RCT(12917)*V(5252) -! B(20503) = dA(12917)/dV(5252) - B(20503) = RCT(12917)*V(4123) -! B(20504) = dA(12918)/dV(4123) - B(20504) = RCT(12918)*V(5256) -! B(20505) = dA(12918)/dV(5256) - B(20505) = RCT(12918)*V(4123) -! B(20506) = dA(12919)/dV(4123) - B(20506) = RCT(12919) -! B(20507) = dA(12920)/dV(3620) - B(20507) = RCT(12920)*V(5250) -! B(20508) = dA(12920)/dV(5250) - B(20508) = RCT(12920)*V(3620) -! B(20509) = dA(12921)/dV(3620) - B(20509) = RCT(12921)*V(5250) -! B(20510) = dA(12921)/dV(5250) - B(20510) = RCT(12921)*V(3620) -! B(20511) = dA(12922)/dV(3620) - B(20511) = RCT(12922) -! B(20512) = dA(12923)/dV(957) - B(20512) = RCT(12923)*V(5250) -! B(20513) = dA(12923)/dV(5250) - B(20513) = RCT(12923)*V(957) -! B(20514) = dA(12924)/dV(3490) - B(20514) = RCT(12924) -! B(20515) = dA(12925)/dV(3490) - B(20515) = RCT(12925) -! B(20516) = dA(12926)/dV(305) - B(20516) = RCT(12926)*V(5250) -! B(20517) = dA(12926)/dV(5250) - B(20517) = RCT(12926)*V(305) -! B(20518) = dA(12927)/dV(2289) - B(20518) = RCT(12927)*V(5250) -! B(20519) = dA(12927)/dV(5250) - B(20519) = RCT(12927)*V(2289) -! B(20520) = dA(12928)/dV(2289) - B(20520) = RCT(12928) -! B(20521) = dA(12929)/dV(645) - B(20521) = RCT(12929) -! B(20522) = dA(12930)/dV(1433) - B(20522) = RCT(12930)*V(5250) -! B(20523) = dA(12930)/dV(5250) - B(20523) = RCT(12930)*V(1433) -! B(20524) = dA(12931)/dV(3276) - B(20524) = RCT(12931)*V(5250) -! B(20525) = dA(12931)/dV(5250) - B(20525) = RCT(12931)*V(3276) -! B(20526) = dA(12932)/dV(3276) - B(20526) = RCT(12932)*V(5250) -! B(20527) = dA(12932)/dV(5250) - B(20527) = RCT(12932)*V(3276) -! B(20528) = dA(12933)/dV(3276) - B(20528) = RCT(12933) -! B(20529) = dA(12934)/dV(3324) - B(20529) = RCT(12934)*V(5250) -! B(20530) = dA(12934)/dV(5250) - B(20530) = RCT(12934)*V(3324) -! B(20531) = dA(12935)/dV(3324) - B(20531) = RCT(12935) -! B(20532) = dA(12936)/dV(4250) - B(20532) = RCT(12936)*V(5251) -! B(20533) = dA(12936)/dV(5251) - B(20533) = RCT(12936)*V(4250) -! B(20534) = dA(12937)/dV(4250) - B(20534) = RCT(12937)*V(5252) -! B(20535) = dA(12937)/dV(5252) - B(20535) = RCT(12937)*V(4250) -! B(20536) = dA(12938)/dV(4250) - B(20536) = RCT(12938)*V(5253) -! B(20537) = dA(12938)/dV(5253) - B(20537) = RCT(12938)*V(4250) -! B(20538) = dA(12939)/dV(4250) - B(20538) = RCT(12939)*V(5254) -! B(20539) = dA(12939)/dV(5254) - B(20539) = RCT(12939)*V(4250) -! B(20540) = dA(12940)/dV(4250) - B(20540) = RCT(12940) -! B(20541) = dA(12941)/dV(3216) - B(20541) = RCT(12941)*V(5250) -! B(20542) = dA(12941)/dV(5250) - B(20542) = RCT(12941)*V(3216) -! B(20543) = dA(12942)/dV(3216) - B(20543) = RCT(12942) -! B(20544) = dA(12943)/dV(3216) - B(20544) = RCT(12943) -! B(20545) = dA(12944)/dV(3215) - B(20545) = RCT(12944) -! B(20546) = dA(12945)/dV(4366) - B(20546) = RCT(12945)*V(5250) -! B(20547) = dA(12945)/dV(5250) - B(20547) = RCT(12945)*V(4366) -! B(20548) = dA(12946)/dV(4366) - B(20548) = RCT(12946) -! B(20549) = dA(12947)/dV(2568) - B(20549) = RCT(12947)*V(5250) -! B(20550) = dA(12947)/dV(5250) - B(20550) = RCT(12947)*V(2568) -! B(20551) = dA(12948)/dV(2568) - B(20551) = RCT(12948) -! B(20552) = dA(12949)/dV(4222) - B(20552) = RCT(12949)*V(5255) -! B(20553) = dA(12949)/dV(5255) - B(20553) = RCT(12949)*V(4222) -! B(20554) = dA(12950)/dV(4222) - B(20554) = RCT(12950)*V(5255) -! B(20555) = dA(12950)/dV(5255) - B(20555) = RCT(12950)*V(4222) -! B(20556) = dA(12951)/dV(4222) - B(20556) = RCT(12951)*V(5255) -! B(20557) = dA(12951)/dV(5255) - B(20557) = RCT(12951)*V(4222) -! B(20558) = dA(12952)/dV(4222) - B(20558) = RCT(12952)*V(5252) -! B(20559) = dA(12952)/dV(5252) - B(20559) = RCT(12952)*V(4222) -! B(20560) = dA(12953)/dV(4222) - B(20560) = RCT(12953)*V(5253) -! B(20561) = dA(12953)/dV(5253) - B(20561) = RCT(12953)*V(4222) -! B(20562) = dA(12954)/dV(4222) - B(20562) = RCT(12954)*V(5256) -! B(20563) = dA(12954)/dV(5256) - B(20563) = RCT(12954)*V(4222) -! B(20564) = dA(12955)/dV(4222) - B(20564) = RCT(12955) -! B(20565) = dA(12956)/dV(4222) - B(20565) = RCT(12956) -! B(20566) = dA(12957)/dV(1201) - B(20566) = RCT(12957) -! B(20567) = dA(12958)/dV(1201) - B(20567) = RCT(12958)*V(5250) -! B(20568) = dA(12958)/dV(5250) - B(20568) = RCT(12958)*V(1201) -! B(20569) = dA(12959)/dV(2622) - B(20569) = RCT(12959) -! B(20570) = dA(12960)/dV(2622) - B(20570) = RCT(12960)*V(5250) -! B(20571) = dA(12960)/dV(5250) - B(20571) = RCT(12960)*V(2622) -! B(20572) = dA(12961)/dV(4230) - B(20572) = RCT(12961)*V(5255) -! B(20573) = dA(12961)/dV(5255) - B(20573) = RCT(12961)*V(4230) -! B(20574) = dA(12962)/dV(4230) - B(20574) = RCT(12962)*V(5255) -! B(20575) = dA(12962)/dV(5255) - B(20575) = RCT(12962)*V(4230) -! B(20576) = dA(12963)/dV(4230) - B(20576) = RCT(12963)*V(5252) -! B(20577) = dA(12963)/dV(5252) - B(20577) = RCT(12963)*V(4230) -! B(20578) = dA(12964)/dV(4230) - B(20578) = RCT(12964)*V(5253) -! B(20579) = dA(12964)/dV(5253) - B(20579) = RCT(12964)*V(4230) -! B(20580) = dA(12965)/dV(4230) - B(20580) = RCT(12965)*V(5256) -! B(20581) = dA(12965)/dV(5256) - B(20581) = RCT(12965)*V(4230) -! B(20582) = dA(12966)/dV(4230) - B(20582) = RCT(12966) -! B(20583) = dA(12967)/dV(4191) - B(20583) = RCT(12967)*V(5255) -! B(20584) = dA(12967)/dV(5255) - B(20584) = RCT(12967)*V(4191) -! B(20585) = dA(12968)/dV(4191) - B(20585) = RCT(12968)*V(5252) -! B(20586) = dA(12968)/dV(5252) - B(20586) = RCT(12968)*V(4191) -! B(20587) = dA(12969)/dV(4191) - B(20587) = RCT(12969)*V(5256) -! B(20588) = dA(12969)/dV(5256) - B(20588) = RCT(12969)*V(4191) -! B(20589) = dA(12970)/dV(4191) - B(20589) = RCT(12970) -! B(20590) = dA(12971)/dV(954) - B(20590) = RCT(12971)*V(5250) -! B(20591) = dA(12971)/dV(5250) - B(20591) = RCT(12971)*V(954) -! B(20592) = dA(12972)/dV(954) - B(20592) = RCT(12972) -! B(20593) = dA(12973)/dV(3053) - B(20593) = RCT(12973)*V(5250) -! B(20594) = dA(12973)/dV(5250) - B(20594) = RCT(12973)*V(3053) -! B(20595) = dA(12974)/dV(3053) - B(20595) = RCT(12974) -! B(20596) = dA(12975)/dV(5004) - B(20596) = RCT(12975)*V(5255) -! B(20597) = dA(12975)/dV(5255) - B(20597) = RCT(12975)*V(5004) -! B(20598) = dA(12976)/dV(5004) - B(20598) = RCT(12976)*V(5255) -! B(20599) = dA(12976)/dV(5255) - B(20599) = RCT(12976)*V(5004) -! B(20600) = dA(12977)/dV(5004) - B(20600) = RCT(12977)*V(5255) -! B(20601) = dA(12977)/dV(5255) - B(20601) = RCT(12977)*V(5004) -! B(20602) = dA(12978)/dV(5004) - B(20602) = RCT(12978)*V(5252) -! B(20603) = dA(12978)/dV(5252) - B(20603) = RCT(12978)*V(5004) -! B(20604) = dA(12979)/dV(5004) - B(20604) = RCT(12979)*V(5253) -! B(20605) = dA(12979)/dV(5253) - B(20605) = RCT(12979)*V(5004) -! B(20606) = dA(12980)/dV(5004) - B(20606) = RCT(12980)*V(5256) -! B(20607) = dA(12980)/dV(5256) - B(20607) = RCT(12980)*V(5004) -! B(20608) = dA(12981)/dV(5004) - B(20608) = RCT(12981) -! B(20609) = dA(12982)/dV(5004) - B(20609) = RCT(12982) -! B(20610) = dA(12983)/dV(5111) - B(20610) = RCT(12983)*V(5255) -! B(20611) = dA(12983)/dV(5255) - B(20611) = RCT(12983)*V(5111) -! B(20612) = dA(12984)/dV(5111) - B(20612) = RCT(12984)*V(5255) -! B(20613) = dA(12984)/dV(5255) - B(20613) = RCT(12984)*V(5111) -! B(20614) = dA(12985)/dV(5111) - B(20614) = RCT(12985)*V(5252) -! B(20615) = dA(12985)/dV(5252) - B(20615) = RCT(12985)*V(5111) -! B(20616) = dA(12986)/dV(5111) - B(20616) = RCT(12986)*V(5253) -! B(20617) = dA(12986)/dV(5253) - B(20617) = RCT(12986)*V(5111) -! B(20618) = dA(12987)/dV(5111) - B(20618) = RCT(12987)*V(5256) -! B(20619) = dA(12987)/dV(5256) - B(20619) = RCT(12987)*V(5111) -! B(20620) = dA(12988)/dV(5111) - B(20620) = RCT(12988) -! B(20621) = dA(12989)/dV(4806) - B(20621) = RCT(12989)*V(5255) -! B(20622) = dA(12989)/dV(5255) - B(20622) = RCT(12989)*V(4806) -! B(20623) = dA(12990)/dV(4806) - B(20623) = RCT(12990)*V(5255) -! B(20624) = dA(12990)/dV(5255) - B(20624) = RCT(12990)*V(4806) -! B(20625) = dA(12991)/dV(4806) - B(20625) = RCT(12991)*V(5252) -! B(20626) = dA(12991)/dV(5252) - B(20626) = RCT(12991)*V(4806) -! B(20627) = dA(12992)/dV(4806) - B(20627) = RCT(12992)*V(5253) -! B(20628) = dA(12992)/dV(5253) - B(20628) = RCT(12992)*V(4806) -! B(20629) = dA(12993)/dV(4806) - B(20629) = RCT(12993)*V(5256) -! B(20630) = dA(12993)/dV(5256) - B(20630) = RCT(12993)*V(4806) -! B(20631) = dA(12994)/dV(4806) - B(20631) = RCT(12994) -! B(20632) = dA(12995)/dV(4969) - B(20632) = RCT(12995)*V(5255) -! B(20633) = dA(12995)/dV(5255) - B(20633) = RCT(12995)*V(4969) -! B(20634) = dA(12996)/dV(4969) - B(20634) = RCT(12996)*V(5255) -! B(20635) = dA(12996)/dV(5255) - B(20635) = RCT(12996)*V(4969) -! B(20636) = dA(12997)/dV(4969) - B(20636) = RCT(12997)*V(5252) -! B(20637) = dA(12997)/dV(5252) - B(20637) = RCT(12997)*V(4969) -! B(20638) = dA(12998)/dV(4969) - B(20638) = RCT(12998)*V(5253) -! B(20639) = dA(12998)/dV(5253) - B(20639) = RCT(12998)*V(4969) -! B(20640) = dA(12999)/dV(4969) - B(20640) = RCT(12999)*V(5256) -! B(20641) = dA(12999)/dV(5256) - B(20641) = RCT(12999)*V(4969) -! B(20642) = dA(13000)/dV(4969) - B(20642) = RCT(13000) -! B(20643) = dA(13001)/dV(1496) - B(20643) = RCT(13001)*V(5250) -! B(20644) = dA(13001)/dV(5250) - B(20644) = RCT(13001)*V(1496) -! B(20645) = dA(13002)/dV(1496) - B(20645) = RCT(13002) -! B(20646) = dA(13003)/dV(2812) - B(20646) = RCT(13003)*V(5250) -! B(20647) = dA(13003)/dV(5250) - B(20647) = RCT(13003)*V(2812) -! B(20648) = dA(13004)/dV(2812) - B(20648) = RCT(13004) -! B(20649) = dA(13005)/dV(1984) - B(20649) = RCT(13005) -! B(20650) = dA(13006)/dV(526) - B(20650) = RCT(13006)*V(5250) -! B(20651) = dA(13006)/dV(5250) - B(20651) = RCT(13006)*V(526) -! B(20652) = dA(13007)/dV(526) - B(20652) = RCT(13007) -! B(20653) = dA(13008)/dV(3760) - B(20653) = RCT(13008)*V(5255) -! B(20654) = dA(13008)/dV(5255) - B(20654) = RCT(13008)*V(3760) -! B(20655) = dA(13009)/dV(3760) - B(20655) = RCT(13009)*V(5252) -! B(20656) = dA(13009)/dV(5252) - B(20656) = RCT(13009)*V(3760) -! B(20657) = dA(13010)/dV(3760) - B(20657) = RCT(13010)*V(5256) -! B(20658) = dA(13010)/dV(5256) - B(20658) = RCT(13010)*V(3760) -! B(20659) = dA(13011)/dV(3760) - B(20659) = RCT(13011) -! B(20660) = dA(13012)/dV(1225) - B(20660) = RCT(13012)*V(5250) -! B(20661) = dA(13012)/dV(5250) - B(20661) = RCT(13012)*V(1225) -! B(20662) = dA(13013)/dV(1225) - B(20662) = RCT(13013) -! B(20663) = dA(13014)/dV(2034) - B(20663) = RCT(13014)*V(5250) -! B(20664) = dA(13014)/dV(5250) - B(20664) = RCT(13014)*V(2034) -! B(20665) = dA(13015)/dV(2034) - B(20665) = RCT(13015) -! B(20666) = dA(13016)/dV(2035) - B(20666) = RCT(13016) -! B(20667) = dA(13017)/dV(767) - B(20667) = RCT(13017)*V(5250) -! B(20668) = dA(13017)/dV(5250) - B(20668) = RCT(13017)*V(767) -! B(20669) = dA(13018)/dV(767) - B(20669) = RCT(13018) -! B(20670) = dA(13019)/dV(1277) - B(20670) = RCT(13019)*V(5250) -! B(20671) = dA(13019)/dV(5250) - B(20671) = RCT(13019)*V(1277) -! B(20672) = dA(13020)/dV(1277) - B(20672) = RCT(13020) -! B(20673) = dA(13021)/dV(3858) - B(20673) = RCT(13021)*V(5255) -! B(20674) = dA(13021)/dV(5255) - B(20674) = RCT(13021)*V(3858) -! B(20675) = dA(13022)/dV(3858) - B(20675) = RCT(13022)*V(5252) -! B(20676) = dA(13022)/dV(5252) - B(20676) = RCT(13022)*V(3858) -! B(20677) = dA(13023)/dV(3858) - B(20677) = RCT(13023)*V(5252) -! B(20678) = dA(13023)/dV(5252) - B(20678) = RCT(13023)*V(3858) -! B(20679) = dA(13024)/dV(3858) - B(20679) = RCT(13024)*V(5256) -! B(20680) = dA(13024)/dV(5256) - B(20680) = RCT(13024)*V(3858) -! B(20681) = dA(13025)/dV(3858) - B(20681) = RCT(13025) -! B(20682) = dA(13026)/dV(3858) - B(20682) = RCT(13026) -! B(20683) = dA(13027)/dV(3858) - B(20683) = RCT(13027) -! B(20684) = dA(13028)/dV(265) - B(20684) = RCT(13028)*V(5250) -! B(20685) = dA(13028)/dV(5250) - B(20685) = RCT(13028)*V(265) -! B(20686) = dA(13029)/dV(2658) - B(20686) = RCT(13029)*V(5250) -! B(20687) = dA(13029)/dV(5250) - B(20687) = RCT(13029)*V(2658) -! B(20688) = dA(13030)/dV(2658) - B(20688) = RCT(13030) -! B(20689) = dA(13031)/dV(4268) - B(20689) = RCT(13031)*V(5255) -! B(20690) = dA(13031)/dV(5255) - B(20690) = RCT(13031)*V(4268) -! B(20691) = dA(13032)/dV(4268) - B(20691) = RCT(13032)*V(5252) -! B(20692) = dA(13032)/dV(5252) - B(20692) = RCT(13032)*V(4268) -! B(20693) = dA(13033)/dV(4268) - B(20693) = RCT(13033)*V(5256) -! B(20694) = dA(13033)/dV(5256) - B(20694) = RCT(13033)*V(4268) -! B(20695) = dA(13034)/dV(4268) - B(20695) = RCT(13034) -! B(20696) = dA(13035)/dV(1203) - B(20696) = RCT(13035)*V(5250) -! B(20697) = dA(13035)/dV(5250) - B(20697) = RCT(13035)*V(1203) -! B(20698) = dA(13036)/dV(1203) - B(20698) = RCT(13036) -! B(20699) = dA(13037)/dV(49) - B(20699) = RCT(13037) -! B(20700) = dA(13038)/dV(1214) - B(20700) = RCT(13038)*V(5250) -! B(20701) = dA(13038)/dV(5250) - B(20701) = RCT(13038)*V(1214) -! B(20702) = dA(13039)/dV(1214) - B(20702) = RCT(13039) -! B(20703) = dA(13040)/dV(2701) - B(20703) = RCT(13040)*V(5250) -! B(20704) = dA(13040)/dV(5250) - B(20704) = RCT(13040)*V(2701) -! B(20705) = dA(13041)/dV(2701) - B(20705) = RCT(13041) -! B(20706) = dA(13042)/dV(1852) - B(20706) = RCT(13042) -! B(20707) = dA(13043)/dV(209) - B(20707) = RCT(13043)*V(5250) -! B(20708) = dA(13043)/dV(5250) - B(20708) = RCT(13043)*V(209) -! B(20709) = dA(13044)/dV(209) - B(20709) = RCT(13044) -! B(20710) = dA(13045)/dV(2151) - B(20710) = RCT(13045)*V(5250) -! B(20711) = dA(13045)/dV(5250) - B(20711) = RCT(13045)*V(2151) -! B(20712) = dA(13046)/dV(2151) - B(20712) = RCT(13046) -! B(20713) = dA(13047)/dV(632) - B(20713) = RCT(13047) -! B(20714) = dA(13048)/dV(4660) - B(20714) = RCT(13048)*V(5255) -! B(20715) = dA(13048)/dV(5255) - B(20715) = RCT(13048)*V(4660) -! B(20716) = dA(13049)/dV(4660) - B(20716) = RCT(13049)*V(5255) -! B(20717) = dA(13049)/dV(5255) - B(20717) = RCT(13049)*V(4660) -! B(20718) = dA(13050)/dV(4660) - B(20718) = RCT(13050)*V(5255) -! B(20719) = dA(13050)/dV(5255) - B(20719) = RCT(13050)*V(4660) -! B(20720) = dA(13051)/dV(4660) - B(20720) = RCT(13051)*V(5252) -! B(20721) = dA(13051)/dV(5252) - B(20721) = RCT(13051)*V(4660) -! B(20722) = dA(13052)/dV(4660) - B(20722) = RCT(13052)*V(5253) -! B(20723) = dA(13052)/dV(5253) - B(20723) = RCT(13052)*V(4660) -! B(20724) = dA(13053)/dV(4660) - B(20724) = RCT(13053)*V(5256) -! B(20725) = dA(13053)/dV(5256) - B(20725) = RCT(13053)*V(4660) -! B(20726) = dA(13054)/dV(4660) - B(20726) = RCT(13054) -! B(20727) = dA(13055)/dV(4660) - B(20727) = RCT(13055) -! B(20728) = dA(13056)/dV(5019) - B(20728) = RCT(13056)*V(5255) -! B(20729) = dA(13056)/dV(5255) - B(20729) = RCT(13056)*V(5019) -! B(20730) = dA(13057)/dV(5019) - B(20730) = RCT(13057)*V(5252) -! B(20731) = dA(13057)/dV(5252) - B(20731) = RCT(13057)*V(5019) -! B(20732) = dA(13058)/dV(5019) - B(20732) = RCT(13058)*V(5256) -! B(20733) = dA(13058)/dV(5256) - B(20733) = RCT(13058)*V(5019) -! B(20734) = dA(13059)/dV(5019) - B(20734) = RCT(13059) -! B(20735) = dA(13060)/dV(5019) - B(20735) = RCT(13060) -! B(20736) = dA(13061)/dV(5019) - B(20736) = RCT(13061) -! B(20737) = dA(13062)/dV(1367) - B(20737) = RCT(13062)*V(5250) -! B(20738) = dA(13062)/dV(5250) - B(20738) = RCT(13062)*V(1367) -! B(20739) = dA(13063)/dV(1367) - B(20739) = RCT(13063) -! B(20740) = dA(13064)/dV(2629) - B(20740) = RCT(13064)*V(5250) -! B(20741) = dA(13064)/dV(5250) - B(20741) = RCT(13064)*V(2629) -! B(20742) = dA(13065)/dV(2629) - B(20742) = RCT(13065) -! B(20743) = dA(13066)/dV(2457) - B(20743) = RCT(13066) -! B(20744) = dA(13067)/dV(493) - B(20744) = RCT(13067)*V(5250) -! B(20745) = dA(13067)/dV(5250) - B(20745) = RCT(13067)*V(493) -! B(20746) = dA(13068)/dV(493) - B(20746) = RCT(13068) -! B(20747) = dA(13069)/dV(508) - B(20747) = RCT(13069)*V(5250) -! B(20748) = dA(13069)/dV(5250) - B(20748) = RCT(13069)*V(508) -! B(20749) = dA(13070)/dV(508) - B(20749) = RCT(13070) -! B(20750) = dA(13071)/dV(69) - B(20750) = RCT(13071) -! B(20751) = dA(13072)/dV(472) - B(20751) = RCT(13072)*V(5250) -! B(20752) = dA(13072)/dV(5250) - B(20752) = RCT(13072)*V(472) -! B(20753) = dA(13073)/dV(472) - B(20753) = RCT(13073) -! B(20754) = dA(13074)/dV(359) - B(20754) = RCT(13074)*V(5250) -! B(20755) = dA(13074)/dV(5250) - B(20755) = RCT(13074)*V(359) -! B(20756) = dA(13075)/dV(1390) - B(20756) = RCT(13075)*V(5250) -! B(20757) = dA(13075)/dV(5250) - B(20757) = RCT(13075)*V(1390) -! B(20758) = dA(13076)/dV(1390) - B(20758) = RCT(13076) -! B(20759) = dA(13077)/dV(2759) - B(20759) = RCT(13077)*V(5250) -! B(20760) = dA(13077)/dV(5250) - B(20760) = RCT(13077)*V(2759) -! B(20761) = dA(13078)/dV(2759) - B(20761) = RCT(13078) -! B(20762) = dA(13079)/dV(1803) - B(20762) = RCT(13079) -! B(20763) = dA(13080)/dV(400) - B(20763) = RCT(13080)*V(5250) -! B(20764) = dA(13080)/dV(5250) - B(20764) = RCT(13080)*V(400) -! B(20765) = dA(13081)/dV(400) - B(20765) = RCT(13081) -! B(20766) = dA(13082)/dV(210) - B(20766) = RCT(13082)*V(5250) -! B(20767) = dA(13082)/dV(5250) - B(20767) = RCT(13082)*V(210) -! B(20768) = dA(13083)/dV(1540) - B(20768) = RCT(13083)*V(5250) -! B(20769) = dA(13083)/dV(5250) - B(20769) = RCT(13083)*V(1540) -! B(20770) = dA(13084)/dV(1540) - B(20770) = RCT(13084) -! B(20771) = dA(13085)/dV(2515) - B(20771) = RCT(13085)*V(5250) -! B(20772) = dA(13085)/dV(5250) - B(20772) = RCT(13085)*V(2515) -! B(20773) = dA(13086)/dV(2515) - B(20773) = RCT(13086) -! B(20774) = dA(13087)/dV(594) - B(20774) = RCT(13087)*V(5250) -! B(20775) = dA(13087)/dV(5250) - B(20775) = RCT(13087)*V(594) -! B(20776) = dA(13088)/dV(594) - B(20776) = RCT(13088) -! B(20777) = dA(13089)/dV(88) - B(20777) = RCT(13089) -! B(20778) = dA(13090)/dV(593) - B(20778) = RCT(13090)*V(5250) -! B(20779) = dA(13090)/dV(5250) - B(20779) = RCT(13090)*V(593) -! B(20780) = dA(13091)/dV(347) - B(20780) = RCT(13091)*V(5250) -! B(20781) = dA(13091)/dV(5250) - B(20781) = RCT(13091)*V(347) -! B(20782) = dA(13092)/dV(1428) - B(20782) = RCT(13092)*V(5250) -! B(20783) = dA(13092)/dV(5250) - B(20783) = RCT(13092)*V(1428) -! B(20784) = dA(13093)/dV(1428) - B(20784) = RCT(13093) -! B(20785) = dA(13094)/dV(1823) - B(20785) = RCT(13094)*V(5250) -! B(20786) = dA(13094)/dV(5250) - B(20786) = RCT(13094)*V(1823) -! B(20787) = dA(13095)/dV(1823) - B(20787) = RCT(13095) -! B(20788) = dA(13096)/dV(3591) - B(20788) = RCT(13096) -! B(20789) = dA(13097)/dV(3591) - B(20789) = RCT(13097) -! B(20790) = dA(13098)/dV(799) - B(20790) = RCT(13098)*V(5250) -! B(20791) = dA(13098)/dV(5250) - B(20791) = RCT(13098)*V(799) -! B(20792) = dA(13099)/dV(799) - B(20792) = RCT(13099) -! B(20793) = dA(13100)/dV(1089) - B(20793) = RCT(13100)*V(5250) -! B(20794) = dA(13100)/dV(5250) - B(20794) = RCT(13100)*V(1089) -! B(20795) = dA(13101)/dV(1089) - B(20795) = RCT(13101) -! B(20796) = dA(13102)/dV(125) - B(20796) = RCT(13102) -! B(20797) = dA(13103)/dV(502) - B(20797) = RCT(13103)*V(5250) -! B(20798) = dA(13103)/dV(5250) - B(20798) = RCT(13103)*V(502) -! B(20799) = dA(13104)/dV(3845) - B(20799) = RCT(13104)*V(5255) -! B(20800) = dA(13104)/dV(5255) - B(20800) = RCT(13104)*V(3845) -! B(20801) = dA(13105)/dV(3845) - B(20801) = RCT(13105)*V(5252) -! B(20802) = dA(13105)/dV(5252) - B(20802) = RCT(13105)*V(3845) -! B(20803) = dA(13106)/dV(3845) - B(20803) = RCT(13106)*V(5252) -! B(20804) = dA(13106)/dV(5252) - B(20804) = RCT(13106)*V(3845) -! B(20805) = dA(13107)/dV(3845) - B(20805) = RCT(13107)*V(5256) -! B(20806) = dA(13107)/dV(5256) - B(20806) = RCT(13107)*V(3845) -! B(20807) = dA(13108)/dV(3845) - B(20807) = RCT(13108) -! B(20808) = dA(13109)/dV(3845) - B(20808) = RCT(13109) -! B(20809) = dA(13110)/dV(3862) - B(20809) = RCT(13110)*V(5256) -! B(20810) = dA(13110)/dV(5256) - B(20810) = RCT(13110)*V(3862) -! B(20811) = dA(13111)/dV(3862) - B(20811) = RCT(13111)*V(5250) -! B(20812) = dA(13111)/dV(5250) - B(20812) = RCT(13111)*V(3862) -! B(20813) = dA(13112)/dV(3862) - B(20813) = RCT(13112) -! B(20814) = dA(13113)/dV(4150) - B(20814) = RCT(13113)*V(5255) -! B(20815) = dA(13113)/dV(5255) - B(20815) = RCT(13113)*V(4150) -! B(20816) = dA(13114)/dV(4150) - B(20816) = RCT(13114)*V(5252) -! B(20817) = dA(13114)/dV(5252) - B(20817) = RCT(13114)*V(4150) -! B(20818) = dA(13115)/dV(4150) - B(20818) = RCT(13115)*V(5256) -! B(20819) = dA(13115)/dV(5256) - B(20819) = RCT(13115)*V(4150) -! B(20820) = dA(13116)/dV(4150) - B(20820) = RCT(13116) -! B(20821) = dA(13117)/dV(4150) - B(20821) = RCT(13117) -! B(20822) = dA(13118)/dV(4150) - B(20822) = RCT(13118) -! B(20823) = dA(13119)/dV(5073) - B(20823) = RCT(13119)*V(5255) -! B(20824) = dA(13119)/dV(5255) - B(20824) = RCT(13119)*V(5073) -! B(20825) = dA(13120)/dV(5073) - B(20825) = RCT(13120)*V(5255) -! B(20826) = dA(13120)/dV(5255) - B(20826) = RCT(13120)*V(5073) -! B(20827) = dA(13121)/dV(5073) - B(20827) = RCT(13121)*V(5252) -! B(20828) = dA(13121)/dV(5252) - B(20828) = RCT(13121)*V(5073) -! B(20829) = dA(13122)/dV(5073) - B(20829) = RCT(13122)*V(5253) -! B(20830) = dA(13122)/dV(5253) - B(20830) = RCT(13122)*V(5073) -! B(20831) = dA(13123)/dV(5073) - B(20831) = RCT(13123)*V(5256) -! B(20832) = dA(13123)/dV(5256) - B(20832) = RCT(13123)*V(5073) -! B(20833) = dA(13124)/dV(5073) - B(20833) = RCT(13124) -! B(20834) = dA(13125)/dV(1394) - B(20834) = RCT(13125)*V(5250) -! B(20835) = dA(13125)/dV(5250) - B(20835) = RCT(13125)*V(1394) -! B(20836) = dA(13126)/dV(1394) - B(20836) = RCT(13126) -! B(20837) = dA(13127)/dV(993) - B(20837) = RCT(13127)*V(5250) -! B(20838) = dA(13127)/dV(5250) - B(20838) = RCT(13127)*V(993) -! B(20839) = dA(13128)/dV(993) - B(20839) = RCT(13128) -! B(20840) = dA(13129)/dV(2708) - B(20840) = RCT(13129)*V(5250) -! B(20841) = dA(13129)/dV(5250) - B(20841) = RCT(13129)*V(2708) -! B(20842) = dA(13130)/dV(2708) - B(20842) = RCT(13130) -! B(20843) = dA(13131)/dV(880) - B(20843) = RCT(13131)*V(5250) -! B(20844) = dA(13131)/dV(5250) - B(20844) = RCT(13131)*V(880) -! B(20845) = dA(13132)/dV(880) - B(20845) = RCT(13132) -! B(20846) = dA(13133)/dV(1996) - B(20846) = RCT(13133)*V(5250) -! B(20847) = dA(13133)/dV(5250) - B(20847) = RCT(13133)*V(1996) -! B(20848) = dA(13134)/dV(1996) - B(20848) = RCT(13134) -! B(20849) = dA(13135)/dV(158) - B(20849) = RCT(13135) -! B(20850) = dA(13136)/dV(121) - B(20850) = RCT(13136)*V(5250) -! B(20851) = dA(13136)/dV(5250) - B(20851) = RCT(13136)*V(121) -! B(20852) = dA(13137)/dV(5085) - B(20852) = RCT(13137)*V(5256) -! B(20853) = dA(13137)/dV(5256) - B(20853) = RCT(13137)*V(5085) -! B(20854) = dA(13138)/dV(5085) - B(20854) = RCT(13138)*V(5250) -! B(20855) = dA(13138)/dV(5250) - B(20855) = RCT(13138)*V(5085) -! B(20856) = dA(13139)/dV(5085) - B(20856) = RCT(13139) -! B(20857) = dA(13140)/dV(2386) - B(20857) = RCT(13140)*V(5250) -! B(20858) = dA(13140)/dV(5250) - B(20858) = RCT(13140)*V(2386) -! B(20859) = dA(13141)/dV(2386) - B(20859) = RCT(13141) -! B(20860) = dA(13142)/dV(2386) - B(20860) = RCT(13142) -! B(20861) = dA(13143)/dV(1631) - B(20861) = RCT(13143) -! B(20862) = dA(13144)/dV(1630) - B(20862) = RCT(13144)*V(5250) -! B(20863) = dA(13144)/dV(5250) - B(20863) = RCT(13144)*V(1630) -! B(20864) = dA(13145)/dV(1630) - B(20864) = RCT(13145) -! B(20865) = dA(13146)/dV(3949) - B(20865) = RCT(13146)*V(5255) -! B(20866) = dA(13146)/dV(5255) - B(20866) = RCT(13146)*V(3949) -! B(20867) = dA(13147)/dV(3949) - B(20867) = RCT(13147)*V(5252) -! B(20868) = dA(13147)/dV(5252) - B(20868) = RCT(13147)*V(3949) -! B(20869) = dA(13148)/dV(3949) - B(20869) = RCT(13148)*V(5256) -! B(20870) = dA(13148)/dV(5256) - B(20870) = RCT(13148)*V(3949) -! B(20871) = dA(13149)/dV(3949) - B(20871) = RCT(13149) -! B(20872) = dA(13150)/dV(3949) - B(20872) = RCT(13150) -! B(20873) = dA(13151)/dV(20) - B(20873) = RCT(13151) -! B(20874) = dA(13152)/dV(3950) - B(20874) = RCT(13152)*V(5255) -! B(20875) = dA(13152)/dV(5255) - B(20875) = RCT(13152)*V(3950) -! B(20876) = dA(13153)/dV(3950) - B(20876) = RCT(13153)*V(5252) -! B(20877) = dA(13153)/dV(5252) - B(20877) = RCT(13153)*V(3950) -! B(20878) = dA(13154)/dV(3950) - B(20878) = RCT(13154)*V(5252) -! B(20879) = dA(13154)/dV(5252) - B(20879) = RCT(13154)*V(3950) -! B(20880) = dA(13155)/dV(3950) - B(20880) = RCT(13155)*V(5256) -! B(20881) = dA(13155)/dV(5256) - B(20881) = RCT(13155)*V(3950) -! B(20882) = dA(13156)/dV(3950) - B(20882) = RCT(13156) -! B(20883) = dA(13157)/dV(3950) - B(20883) = RCT(13157) -! B(20884) = dA(13158)/dV(4059) - B(20884) = RCT(13158)*V(5255) -! B(20885) = dA(13158)/dV(5255) - B(20885) = RCT(13158)*V(4059) -! B(20886) = dA(13159)/dV(4059) - B(20886) = RCT(13159)*V(5252) -! B(20887) = dA(13159)/dV(5252) - B(20887) = RCT(13159)*V(4059) -! B(20888) = dA(13160)/dV(4059) - B(20888) = RCT(13160)*V(5252) -! B(20889) = dA(13160)/dV(5252) - B(20889) = RCT(13160)*V(4059) -! B(20890) = dA(13161)/dV(4059) - B(20890) = RCT(13161)*V(5256) -! B(20891) = dA(13161)/dV(5256) - B(20891) = RCT(13161)*V(4059) -! B(20892) = dA(13162)/dV(4059) - B(20892) = RCT(13162) -! B(20893) = dA(13163)/dV(4059) - B(20893) = RCT(13163) -! B(20894) = dA(13164)/dV(4059) - B(20894) = RCT(13164) -! B(20895) = dA(13165)/dV(1135) - B(20895) = RCT(13165)*V(5250) -! B(20896) = dA(13165)/dV(5250) - B(20896) = RCT(13165)*V(1135) -! B(20897) = dA(13166)/dV(1135) - B(20897) = RCT(13166) -! B(20898) = dA(13167)/dV(2352) - B(20898) = RCT(13167)*V(5250) -! B(20899) = dA(13167)/dV(5250) - B(20899) = RCT(13167)*V(2352) -! B(20900) = dA(13168)/dV(2352) - B(20900) = RCT(13168) -! B(20901) = dA(13169)/dV(162) - B(20901) = RCT(13169) -! B(20902) = dA(13170)/dV(310) - B(20902) = RCT(13170)*V(5250) -! B(20903) = dA(13170)/dV(5250) - B(20903) = RCT(13170)*V(310) -! B(20904) = dA(13171)/dV(1247) - B(20904) = RCT(13171)*V(5250) -! B(20905) = dA(13171)/dV(5250) - B(20905) = RCT(13171)*V(1247) -! B(20906) = dA(13172)/dV(1247) - B(20906) = RCT(13172) -! B(20907) = dA(13173)/dV(3703) - B(20907) = RCT(13173)*V(5255) -! B(20908) = dA(13173)/dV(5255) - B(20908) = RCT(13173)*V(3703) -! B(20909) = dA(13174)/dV(3703) - B(20909) = RCT(13174)*V(5252) -! B(20910) = dA(13174)/dV(5252) - B(20910) = RCT(13174)*V(3703) -! B(20911) = dA(13175)/dV(3703) - B(20911) = RCT(13175)*V(5252) -! B(20912) = dA(13175)/dV(5252) - B(20912) = RCT(13175)*V(3703) -! B(20913) = dA(13176)/dV(3703) - B(20913) = RCT(13176)*V(5256) -! B(20914) = dA(13176)/dV(5256) - B(20914) = RCT(13176)*V(3703) -! B(20915) = dA(13177)/dV(3703) - B(20915) = RCT(13177) -! B(20916) = dA(13178)/dV(3703) - B(20916) = RCT(13178) -! B(20917) = dA(13179)/dV(3703) - B(20917) = RCT(13179) -! B(20918) = dA(13180)/dV(241) - B(20918) = RCT(13180)*V(5250) -! B(20919) = dA(13180)/dV(5250) - B(20919) = RCT(13180)*V(241) -! B(20920) = dA(13181)/dV(2597) - B(20920) = RCT(13181)*V(5250) -! B(20921) = dA(13181)/dV(5250) - B(20921) = RCT(13181)*V(2597) -! B(20922) = dA(13182)/dV(2597) - B(20922) = RCT(13182) -! B(20923) = dA(13183)/dV(887) - B(20923) = RCT(13183)*V(5250) -! B(20924) = dA(13183)/dV(5250) - B(20924) = RCT(13183)*V(887) -! B(20925) = dA(13184)/dV(887) - B(20925) = RCT(13184) -! B(20926) = dA(13185)/dV(3338) - B(20926) = RCT(13185) -! B(20927) = dA(13186)/dV(492) - B(20927) = RCT(13186)*V(5250) -! B(20928) = dA(13186)/dV(5250) - B(20928) = RCT(13186)*V(492) -! B(20929) = dA(13187)/dV(1317) - B(20929) = RCT(13187)*V(5250) -! B(20930) = dA(13187)/dV(5250) - B(20930) = RCT(13187)*V(1317) -! B(20931) = dA(13188)/dV(1317) - B(20931) = RCT(13188) -! B(20932) = dA(13189)/dV(2651) - B(20932) = RCT(13189)*V(5250) -! B(20933) = dA(13189)/dV(5250) - B(20933) = RCT(13189)*V(2651) -! B(20934) = dA(13190)/dV(2651) - B(20934) = RCT(13190) -! B(20935) = dA(13191)/dV(4538) - B(20935) = RCT(13191)*V(5255) -! B(20936) = dA(13191)/dV(5255) - B(20936) = RCT(13191)*V(4538) -! B(20937) = dA(13192)/dV(4538) - B(20937) = RCT(13192)*V(5252) -! B(20938) = dA(13192)/dV(5252) - B(20938) = RCT(13192)*V(4538) -! B(20939) = dA(13193)/dV(4538) - B(20939) = RCT(13193)*V(5256) -! B(20940) = dA(13193)/dV(5256) - B(20940) = RCT(13193)*V(4538) -! B(20941) = dA(13194)/dV(4538) - B(20941) = RCT(13194) -! B(20942) = dA(13195)/dV(5044) - B(20942) = RCT(13195)*V(5255) -! B(20943) = dA(13195)/dV(5255) - B(20943) = RCT(13195)*V(5044) -! B(20944) = dA(13196)/dV(5044) - B(20944) = RCT(13196)*V(5255) -! B(20945) = dA(13196)/dV(5255) - B(20945) = RCT(13196)*V(5044) -! B(20946) = dA(13197)/dV(5044) - B(20946) = RCT(13197)*V(5255) -! B(20947) = dA(13197)/dV(5255) - B(20947) = RCT(13197)*V(5044) -! B(20948) = dA(13198)/dV(5044) - B(20948) = RCT(13198)*V(5252) -! B(20949) = dA(13198)/dV(5252) - B(20949) = RCT(13198)*V(5044) -! B(20950) = dA(13199)/dV(5044) - B(20950) = RCT(13199)*V(5253) -! B(20951) = dA(13199)/dV(5253) - B(20951) = RCT(13199)*V(5044) -! B(20952) = dA(13200)/dV(5044) - B(20952) = RCT(13200)*V(5256) -! B(20953) = dA(13200)/dV(5256) - B(20953) = RCT(13200)*V(5044) -! B(20954) = dA(13201)/dV(5044) - B(20954) = RCT(13201) -! B(20955) = dA(13202)/dV(5044) - B(20955) = RCT(13202) -! B(20956) = dA(13203)/dV(364) - B(20956) = RCT(13203)*V(5250) -! B(20957) = dA(13203)/dV(5250) - B(20957) = RCT(13203)*V(364) -! B(20958) = dA(13204)/dV(1479) - B(20958) = RCT(13204)*V(5250) -! B(20959) = dA(13204)/dV(5250) - B(20959) = RCT(13204)*V(1479) -! B(20960) = dA(13205)/dV(1479) - B(20960) = RCT(13205) -! B(20961) = dA(13206)/dV(3686) - B(20961) = RCT(13206)*V(5255) -! B(20962) = dA(13206)/dV(5255) - B(20962) = RCT(13206)*V(3686) -! B(20963) = dA(13207)/dV(3686) - B(20963) = RCT(13207)*V(5252) -! B(20964) = dA(13207)/dV(5252) - B(20964) = RCT(13207)*V(3686) -! B(20965) = dA(13208)/dV(3686) - B(20965) = RCT(13208)*V(5252) -! B(20966) = dA(13208)/dV(5252) - B(20966) = RCT(13208)*V(3686) -! B(20967) = dA(13209)/dV(3686) - B(20967) = RCT(13209)*V(5256) -! B(20968) = dA(13209)/dV(5256) - B(20968) = RCT(13209)*V(3686) -! B(20969) = dA(13210)/dV(3686) - B(20969) = RCT(13210) -! B(20970) = dA(13211)/dV(3686) - B(20970) = RCT(13211) -! B(20971) = dA(13212)/dV(3686) - B(20971) = RCT(13212) -! B(20972) = dA(13213)/dV(3011) - B(20972) = RCT(13213)*V(5250) -! B(20973) = dA(13213)/dV(5250) - B(20973) = RCT(13213)*V(3011) -! B(20974) = dA(13214)/dV(3011) - B(20974) = RCT(13214) -! B(20975) = dA(13215)/dV(1739) - B(20975) = RCT(13215) -! B(20976) = dA(13216)/dV(1739) - B(20976) = RCT(13216) -! B(20977) = dA(13217)/dV(489) - B(20977) = RCT(13217)*V(5250) -! B(20978) = dA(13217)/dV(5250) - B(20978) = RCT(13217)*V(489) -! B(20979) = dA(13218)/dV(1509) - B(20979) = RCT(13218)*V(5250) -! B(20980) = dA(13218)/dV(5250) - B(20980) = RCT(13218)*V(1509) -! B(20981) = dA(13219)/dV(1509) - B(20981) = RCT(13219) -! B(20982) = dA(13220)/dV(2704) - B(20982) = RCT(13220)*V(5250) -! B(20983) = dA(13220)/dV(5250) - B(20983) = RCT(13220)*V(2704) -! B(20984) = dA(13221)/dV(2704) - B(20984) = RCT(13221) -! B(20985) = dA(13222)/dV(871) - B(20985) = RCT(13222)*V(5250) -! B(20986) = dA(13222)/dV(5250) - B(20986) = RCT(13222)*V(871) -! B(20987) = dA(13223)/dV(871) - B(20987) = RCT(13223) -! B(20988) = dA(13224)/dV(206) - B(20988) = RCT(13224) -! B(20989) = dA(13225)/dV(30) - B(20989) = RCT(13225)*V(5250) -! B(20990) = dA(13225)/dV(5250) - B(20990) = RCT(13225)*V(30) -! B(20991) = dA(13226)/dV(275) - B(20991) = RCT(13226)*V(5250) -! B(20992) = dA(13226)/dV(5250) - B(20992) = RCT(13226)*V(275) -! B(20993) = dA(13227)/dV(951) - B(20993) = RCT(13227)*V(5250) -! B(20994) = dA(13227)/dV(5250) - B(20994) = RCT(13227)*V(951) -! B(20995) = dA(13228)/dV(951) - B(20995) = RCT(13228) -! B(20996) = dA(13229)/dV(3789) - B(20996) = RCT(13229)*V(5255) -! B(20997) = dA(13229)/dV(5255) - B(20997) = RCT(13229)*V(3789) -! B(20998) = dA(13230)/dV(3789) - B(20998) = RCT(13230)*V(5252) -! B(20999) = dA(13230)/dV(5252) - B(20999) = RCT(13230)*V(3789) -! B(21000) = dA(13231)/dV(3789) - B(21000) = RCT(13231)*V(5252) -! B(21001) = dA(13231)/dV(5252) - B(21001) = RCT(13231)*V(3789) -! B(21002) = dA(13232)/dV(3789) - B(21002) = RCT(13232)*V(5256) -! B(21003) = dA(13232)/dV(5256) - B(21003) = RCT(13232)*V(3789) -! B(21004) = dA(13233)/dV(3789) - B(21004) = RCT(13233) -! B(21005) = dA(13234)/dV(3789) - B(21005) = RCT(13234) -! B(21006) = dA(13235)/dV(3789) - B(21006) = RCT(13235) -! B(21007) = dA(13236)/dV(2666) - B(21007) = RCT(13236)*V(5250) -! B(21008) = dA(13236)/dV(5250) - B(21008) = RCT(13236)*V(2666) -! B(21009) = dA(13237)/dV(2666) - B(21009) = RCT(13237) -! B(21010) = dA(13238)/dV(215) - B(21010) = RCT(13238)*V(5250) -! B(21011) = dA(13238)/dV(5250) - B(21011) = RCT(13238)*V(215) -! B(21012) = dA(13239)/dV(1233) - B(21012) = RCT(13239)*V(5250) -! B(21013) = dA(13239)/dV(5250) - B(21013) = RCT(13239)*V(1233) -! B(21014) = dA(13240)/dV(1233) - B(21014) = RCT(13240) -! B(21015) = dA(13241)/dV(3764) - B(21015) = RCT(13241)*V(5255) -! B(21016) = dA(13241)/dV(5255) - B(21016) = RCT(13241)*V(3764) -! B(21017) = dA(13242)/dV(3764) - B(21017) = RCT(13242)*V(5252) -! B(21018) = dA(13242)/dV(5252) - B(21018) = RCT(13242)*V(3764) -! B(21019) = dA(13243)/dV(3764) - B(21019) = RCT(13243)*V(5252) -! B(21020) = dA(13243)/dV(5252) - B(21020) = RCT(13243)*V(3764) -! B(21021) = dA(13244)/dV(3764) - B(21021) = RCT(13244)*V(5256) -! B(21022) = dA(13244)/dV(5256) - B(21022) = RCT(13244)*V(3764) -! B(21023) = dA(13245)/dV(3764) - B(21023) = RCT(13245) -! B(21024) = dA(13246)/dV(3764) - B(21024) = RCT(13246) -! B(21025) = dA(13247)/dV(3764) - B(21025) = RCT(13247) -! B(21026) = dA(13248)/dV(2613) - B(21026) = RCT(13248)*V(5250) -! B(21027) = dA(13248)/dV(5250) - B(21027) = RCT(13248)*V(2613) -! B(21028) = dA(13249)/dV(2613) - B(21028) = RCT(13249) -! B(21029) = dA(13250)/dV(4385) - B(21029) = RCT(13250)*V(5255) -! B(21030) = dA(13250)/dV(5255) - B(21030) = RCT(13250)*V(4385) -! B(21031) = dA(13251)/dV(4385) - B(21031) = RCT(13251)*V(5252) -! B(21032) = dA(13251)/dV(5252) - B(21032) = RCT(13251)*V(4385) -! B(21033) = dA(13252)/dV(4385) - B(21033) = RCT(13252)*V(5252) -! B(21034) = dA(13252)/dV(5252) - B(21034) = RCT(13252)*V(4385) -! B(21035) = dA(13253)/dV(4385) - B(21035) = RCT(13253)*V(5256) -! B(21036) = dA(13253)/dV(5256) - B(21036) = RCT(13253)*V(4385) -! B(21037) = dA(13254)/dV(4385) - B(21037) = RCT(13254) -! B(21038) = dA(13255)/dV(4385) - B(21038) = RCT(13255) -! B(21039) = dA(13256)/dV(927) - B(21039) = RCT(13256)*V(5250) -! B(21040) = dA(13256)/dV(5250) - B(21040) = RCT(13256)*V(927) -! B(21041) = dA(13257)/dV(927) - B(21041) = RCT(13257) -! B(21042) = dA(13258)/dV(2908) - B(21042) = RCT(13258)*V(5250) -! B(21043) = dA(13258)/dV(5250) - B(21043) = RCT(13258)*V(2908) -! B(21044) = dA(13259)/dV(2908) - B(21044) = RCT(13259) -! B(21045) = dA(13260)/dV(1961) - B(21045) = RCT(13260) -! B(21046) = dA(13261)/dV(511) - B(21046) = RCT(13261)*V(5250) -! B(21047) = dA(13261)/dV(5250) - B(21047) = RCT(13261)*V(511) -! B(21048) = dA(13262)/dV(4748) - B(21048) = RCT(13262)*V(5255) -! B(21049) = dA(13262)/dV(5255) - B(21049) = RCT(13262)*V(4748) -! B(21050) = dA(13263)/dV(4748) - B(21050) = RCT(13263)*V(5252) -! B(21051) = dA(13263)/dV(5252) - B(21051) = RCT(13263)*V(4748) -! B(21052) = dA(13264)/dV(4748) - B(21052) = RCT(13264)*V(5252) -! B(21053) = dA(13264)/dV(5252) - B(21053) = RCT(13264)*V(4748) -! B(21054) = dA(13265)/dV(4748) - B(21054) = RCT(13265)*V(5256) -! B(21055) = dA(13265)/dV(5256) - B(21055) = RCT(13265)*V(4748) -! B(21056) = dA(13266)/dV(4748) - B(21056) = RCT(13266) -! B(21057) = dA(13267)/dV(4748) - B(21057) = RCT(13267) -! B(21058) = dA(13268)/dV(4863) - B(21058) = RCT(13268)*V(5255) -! B(21059) = dA(13268)/dV(5255) - B(21059) = RCT(13268)*V(4863) -! B(21060) = dA(13269)/dV(4863) - B(21060) = RCT(13269)*V(5255) -! B(21061) = dA(13269)/dV(5255) - B(21061) = RCT(13269)*V(4863) -! B(21062) = dA(13270)/dV(4863) - B(21062) = RCT(13270)*V(5255) -! B(21063) = dA(13270)/dV(5255) - B(21063) = RCT(13270)*V(4863) -! B(21064) = dA(13271)/dV(4863) - B(21064) = RCT(13271)*V(5252) -! B(21065) = dA(13271)/dV(5252) - B(21065) = RCT(13271)*V(4863) -! B(21066) = dA(13272)/dV(4863) - B(21066) = RCT(13272)*V(5253) -! B(21067) = dA(13272)/dV(5253) - B(21067) = RCT(13272)*V(4863) -! B(21068) = dA(13273)/dV(4863) - B(21068) = RCT(13273)*V(5256) -! B(21069) = dA(13273)/dV(5256) - B(21069) = RCT(13273)*V(4863) -! B(21070) = dA(13274)/dV(4863) - B(21070) = RCT(13274) -! B(21071) = dA(13275)/dV(4863) - B(21071) = RCT(13275) -! B(21072) = dA(13276)/dV(1245) - B(21072) = RCT(13276)*V(5250) -! B(21073) = dA(13276)/dV(5250) - B(21073) = RCT(13276)*V(1245) -! B(21074) = dA(13277)/dV(1245) - B(21074) = RCT(13277) -! B(21075) = dA(13278)/dV(2408) - B(21075) = RCT(13278)*V(5250) -! B(21076) = dA(13278)/dV(5250) - B(21076) = RCT(13278)*V(2408) -! B(21077) = dA(13279)/dV(2408) - B(21077) = RCT(13279) -! B(21078) = dA(13280)/dV(315) - B(21078) = RCT(13280) -! B(21079) = dA(13281)/dV(59) - B(21079) = RCT(13281)*V(5250) -! B(21080) = dA(13281)/dV(5250) - B(21080) = RCT(13281)*V(59) -! B(21081) = dA(13282)/dV(4734) - B(21081) = RCT(13282)*V(5255) -! B(21082) = dA(13282)/dV(5255) - B(21082) = RCT(13282)*V(4734) -! B(21083) = dA(13283)/dV(4734) - B(21083) = RCT(13283)*V(5252) -! B(21084) = dA(13283)/dV(5252) - B(21084) = RCT(13283)*V(4734) -! B(21085) = dA(13284)/dV(4734) - B(21085) = RCT(13284)*V(5256) -! B(21086) = dA(13284)/dV(5256) - B(21086) = RCT(13284)*V(4734) -! B(21087) = dA(13285)/dV(4734) - B(21087) = RCT(13285) -! B(21088) = dA(13286)/dV(4734) - B(21088) = RCT(13286) -! B(21089) = dA(13287)/dV(5104) - B(21089) = RCT(13287)*V(5255) -! B(21090) = dA(13287)/dV(5255) - B(21090) = RCT(13287)*V(5104) -! B(21091) = dA(13288)/dV(5104) - B(21091) = RCT(13288)*V(5252) -! B(21092) = dA(13288)/dV(5252) - B(21092) = RCT(13288)*V(5104) -! B(21093) = dA(13289)/dV(5104) - B(21093) = RCT(13289)*V(5252) -! B(21094) = dA(13289)/dV(5252) - B(21094) = RCT(13289)*V(5104) -! B(21095) = dA(13290)/dV(5104) - B(21095) = RCT(13290)*V(5256) -! B(21096) = dA(13290)/dV(5256) - B(21096) = RCT(13290)*V(5104) -! B(21097) = dA(13291)/dV(5104) - B(21097) = RCT(13291) -! B(21098) = dA(13292)/dV(5104) - B(21098) = RCT(13292) -! B(21099) = dA(13293)/dV(1444) - B(21099) = RCT(13293)*V(5250) -! B(21100) = dA(13293)/dV(5250) - B(21100) = RCT(13293)*V(1444) -! B(21101) = dA(13294)/dV(1444) - B(21101) = RCT(13294) -! B(21102) = dA(13295)/dV(1752) - B(21102) = RCT(13295)*V(5250) -! B(21103) = dA(13295)/dV(5250) - B(21103) = RCT(13295)*V(1752) -! B(21104) = dA(13296)/dV(1752) - B(21104) = RCT(13296) -! B(21105) = dA(13297)/dV(3425) - B(21105) = RCT(13297) -! B(21106) = dA(13298)/dV(3425) - B(21106) = RCT(13298) -! B(21107) = dA(13299)/dV(256) - B(21107) = RCT(13299)*V(5250) -! B(21108) = dA(13299)/dV(5250) - B(21108) = RCT(13299)*V(256) -! B(21109) = dA(13300)/dV(3951) - B(21109) = RCT(13300)*V(5255) -! B(21110) = dA(13300)/dV(5255) - B(21110) = RCT(13300)*V(3951) -! B(21111) = dA(13301)/dV(3951) - B(21111) = RCT(13301)*V(5252) -! B(21112) = dA(13301)/dV(5252) - B(21112) = RCT(13301)*V(3951) -! B(21113) = dA(13302)/dV(3951) - B(21113) = RCT(13302)*V(5256) -! B(21114) = dA(13302)/dV(5256) - B(21114) = RCT(13302)*V(3951) -! B(21115) = dA(13303)/dV(3951) - B(21115) = RCT(13303) -! B(21116) = dA(13304)/dV(3951) - B(21116) = RCT(13304) -! B(21117) = dA(13305)/dV(4648) - B(21117) = RCT(13305)*V(5255) -! B(21118) = dA(13305)/dV(5255) - B(21118) = RCT(13305)*V(4648) -! B(21119) = dA(13306)/dV(4648) - B(21119) = RCT(13306)*V(5252) -! B(21120) = dA(13306)/dV(5252) - B(21120) = RCT(13306)*V(4648) -! B(21121) = dA(13307)/dV(4648) - B(21121) = RCT(13307)*V(5256) -! B(21122) = dA(13307)/dV(5256) - B(21122) = RCT(13307)*V(4648) -! B(21123) = dA(13308)/dV(4648) - B(21123) = RCT(13308) -! B(21124) = dA(13309)/dV(4510) - B(21124) = RCT(13309)*V(5255) -! B(21125) = dA(13309)/dV(5255) - B(21125) = RCT(13309)*V(4510) -! B(21126) = dA(13310)/dV(4510) - B(21126) = RCT(13310)*V(5252) -! B(21127) = dA(13310)/dV(5252) - B(21127) = RCT(13310)*V(4510) -! B(21128) = dA(13311)/dV(4510) - B(21128) = RCT(13311)*V(5256) -! B(21129) = dA(13311)/dV(5256) - B(21129) = RCT(13311)*V(4510) -! B(21130) = dA(13312)/dV(4510) - B(21130) = RCT(13312) -! B(21131) = dA(13313)/dV(1779) - B(21131) = RCT(13313) -! B(21132) = dA(13314)/dV(1779) - B(21132) = RCT(13314)*V(5250) -! B(21133) = dA(13314)/dV(5250) - B(21133) = RCT(13314)*V(1779) -! B(21134) = dA(13315)/dV(1779) - B(21134) = RCT(13315)*V(5250) -! B(21135) = dA(13315)/dV(5250) - B(21135) = RCT(13315)*V(1779) -! B(21136) = dA(13316)/dV(1482) - B(21136) = RCT(13316)*V(5250) -! B(21137) = dA(13316)/dV(5250) - B(21137) = RCT(13316)*V(1482) -! B(21138) = dA(13317)/dV(3079) - B(21138) = RCT(13317) -! B(21139) = dA(13318)/dV(285) - B(21139) = RCT(13318)*V(5250) -! B(21140) = dA(13318)/dV(5250) - B(21140) = RCT(13318)*V(285) -! B(21141) = dA(13319)/dV(3938) - B(21141) = RCT(13319) -! B(21142) = dA(13320)/dV(3938) - B(21142) = RCT(13320)*V(5256) -! B(21143) = dA(13320)/dV(5256) - B(21143) = RCT(13320)*V(3938) -! B(21144) = dA(13321)/dV(3938) - B(21144) = RCT(13321)*V(5250) -! B(21145) = dA(13321)/dV(5250) - B(21145) = RCT(13321)*V(3938) -! B(21146) = dA(13322)/dV(4468) - B(21146) = RCT(13322)*V(5255) -! B(21147) = dA(13322)/dV(5255) - B(21147) = RCT(13322)*V(4468) -! B(21148) = dA(13323)/dV(4468) - B(21148) = RCT(13323)*V(5255) -! B(21149) = dA(13323)/dV(5255) - B(21149) = RCT(13323)*V(4468) -! B(21150) = dA(13324)/dV(4468) - B(21150) = RCT(13324)*V(5252) -! B(21151) = dA(13324)/dV(5252) - B(21151) = RCT(13324)*V(4468) -! B(21152) = dA(13325)/dV(4468) - B(21152) = RCT(13325)*V(5253) -! B(21153) = dA(13325)/dV(5253) - B(21153) = RCT(13325)*V(4468) -! B(21154) = dA(13326)/dV(4468) - B(21154) = RCT(13326)*V(5256) -! B(21155) = dA(13326)/dV(5256) - B(21155) = RCT(13326)*V(4468) -! B(21156) = dA(13327)/dV(4468) - B(21156) = RCT(13327) -! B(21157) = dA(13328)/dV(2115) - B(21157) = RCT(13328) -! B(21158) = dA(13329)/dV(2115) - B(21158) = RCT(13329)*V(5250) -! B(21159) = dA(13329)/dV(5250) - B(21159) = RCT(13329)*V(2115) -! B(21160) = dA(13330)/dV(820) - B(21160) = RCT(13330) -! B(21161) = dA(13331)/dV(1173) - B(21161) = RCT(13331) -! B(21162) = dA(13332)/dV(1173) - B(21162) = RCT(13332)*V(5250) -! B(21163) = dA(13332)/dV(5250) - B(21163) = RCT(13332)*V(1173) -! B(21164) = dA(13333)/dV(2987) - B(21164) = RCT(13333) -! B(21165) = dA(13334)/dV(2987) - B(21165) = RCT(13334)*V(5250) -! B(21166) = dA(13334)/dV(5250) - B(21166) = RCT(13334)*V(2987) -! B(21167) = dA(13335)/dV(4274) - B(21167) = RCT(13335)*V(5255) -! B(21168) = dA(13335)/dV(5255) - B(21168) = RCT(13335)*V(4274) -! B(21169) = dA(13336)/dV(4274) - B(21169) = RCT(13336)*V(5252) -! B(21170) = dA(13336)/dV(5252) - B(21170) = RCT(13336)*V(4274) -! B(21171) = dA(13337)/dV(4274) - B(21171) = RCT(13337)*V(5256) -! B(21172) = dA(13337)/dV(5256) - B(21172) = RCT(13337)*V(4274) -! B(21173) = dA(13338)/dV(4274) - B(21173) = RCT(13338) -! B(21174) = dA(13339)/dV(4138) - B(21174) = RCT(13339)*V(5255) -! B(21175) = dA(13339)/dV(5255) - B(21175) = RCT(13339)*V(4138) -! B(21176) = dA(13340)/dV(4138) - B(21176) = RCT(13340)*V(5252) -! B(21177) = dA(13340)/dV(5252) - B(21177) = RCT(13340)*V(4138) -! B(21178) = dA(13341)/dV(4138) - B(21178) = RCT(13341)*V(5256) -! B(21179) = dA(13341)/dV(5256) - B(21179) = RCT(13341)*V(4138) -! B(21180) = dA(13342)/dV(4138) - B(21180) = RCT(13342) -! B(21181) = dA(13343)/dV(946) - B(21181) = RCT(13343) -! B(21182) = dA(13344)/dV(946) - B(21182) = RCT(13344)*V(5250) -! B(21183) = dA(13344)/dV(5250) - B(21183) = RCT(13344)*V(946) -! B(21184) = dA(13345)/dV(2718) - B(21184) = RCT(13345) -! B(21185) = dA(13346)/dV(2718) - B(21185) = RCT(13346)*V(5250) -! B(21186) = dA(13346)/dV(5250) - B(21186) = RCT(13346)*V(2718) -! B(21187) = dA(13347)/dV(2723) - B(21187) = RCT(13347) -! B(21188) = dA(13348)/dV(2723) - B(21188) = RCT(13348) -! B(21189) = dA(13349)/dV(2723) - B(21189) = RCT(13349)*V(5250) -! B(21190) = dA(13349)/dV(5250) - B(21190) = RCT(13349)*V(2723) -! B(21191) = dA(13350)/dV(2203) - B(21191) = RCT(13350) -! B(21192) = dA(13351)/dV(4384) - B(21192) = RCT(13351)*V(5255) -! B(21193) = dA(13351)/dV(5255) - B(21193) = RCT(13351)*V(4384) -! B(21194) = dA(13352)/dV(4384) - B(21194) = RCT(13352)*V(5252) -! B(21195) = dA(13352)/dV(5252) - B(21195) = RCT(13352)*V(4384) -! B(21196) = dA(13353)/dV(4384) - B(21196) = RCT(13353)*V(5256) -! B(21197) = dA(13353)/dV(5256) - B(21197) = RCT(13353)*V(4384) -! B(21198) = dA(13354)/dV(4384) - B(21198) = RCT(13354) -! B(21199) = dA(13355)/dV(1234) - B(21199) = RCT(13355) -! B(21200) = dA(13356)/dV(1234) - B(21200) = RCT(13356)*V(5250) -! B(21201) = dA(13356)/dV(5250) - B(21201) = RCT(13356)*V(1234) -! B(21202) = dA(13357)/dV(2877) - B(21202) = RCT(13357) -! B(21203) = dA(13358)/dV(2877) - B(21203) = RCT(13358)*V(5250) -! B(21204) = dA(13358)/dV(5250) - B(21204) = RCT(13358)*V(2877) -! B(21205) = dA(13359)/dV(995) - B(21205) = RCT(13359) -! B(21206) = dA(13360)/dV(995) - B(21206) = RCT(13360)*V(5250) -! B(21207) = dA(13360)/dV(5250) - B(21207) = RCT(13360)*V(995) -! B(21208) = dA(13361)/dV(1026) - B(21208) = RCT(13361)*V(5250) -! B(21209) = dA(13361)/dV(5250) - B(21209) = RCT(13361)*V(1026) -! B(21210) = dA(13362)/dV(2946) - B(21210) = RCT(13362) -! B(21211) = dA(13363)/dV(385) - B(21211) = RCT(13363)*V(5250) -! B(21212) = dA(13363)/dV(5250) - B(21212) = RCT(13363)*V(385) -! B(21213) = dA(13364)/dV(3391) - B(21213) = RCT(13364) -! B(21214) = dA(13365)/dV(3391) - B(21214) = RCT(13365)*V(5250) -! B(21215) = dA(13365)/dV(5250) - B(21215) = RCT(13365)*V(3391) -! B(21216) = dA(13366)/dV(4435) - B(21216) = RCT(13366)*V(5255) -! B(21217) = dA(13366)/dV(5255) - B(21217) = RCT(13366)*V(4435) -! B(21218) = dA(13367)/dV(4435) - B(21218) = RCT(13367)*V(5252) -! B(21219) = dA(13367)/dV(5252) - B(21219) = RCT(13367)*V(4435) -! B(21220) = dA(13368)/dV(4435) - B(21220) = RCT(13368)*V(5256) -! B(21221) = dA(13368)/dV(5256) - B(21221) = RCT(13368)*V(4435) -! B(21222) = dA(13369)/dV(4435) - B(21222) = RCT(13369) -! B(21223) = dA(13370)/dV(850) - B(21223) = RCT(13370) -! B(21224) = dA(13371)/dV(850) - B(21224) = RCT(13371)*V(5250) -! B(21225) = dA(13371)/dV(5250) - B(21225) = RCT(13371)*V(850) -! B(21226) = dA(13372)/dV(3007) - B(21226) = RCT(13372) -! B(21227) = dA(13373)/dV(3007) - B(21227) = RCT(13373)*V(5250) -! B(21228) = dA(13373)/dV(5250) - B(21228) = RCT(13373)*V(3007) -! B(21229) = dA(13374)/dV(4461) - B(21229) = RCT(13374)*V(5255) -! B(21230) = dA(13374)/dV(5255) - B(21230) = RCT(13374)*V(4461) -! B(21231) = dA(13375)/dV(4461) - B(21231) = RCT(13375)*V(5252) -! B(21232) = dA(13375)/dV(5252) - B(21232) = RCT(13375)*V(4461) -! B(21233) = dA(13376)/dV(4461) - B(21233) = RCT(13376)*V(5256) -! B(21234) = dA(13376)/dV(5256) - B(21234) = RCT(13376)*V(4461) -! B(21235) = dA(13377)/dV(4461) - B(21235) = RCT(13377) -! B(21236) = dA(13378)/dV(1244) - B(21236) = RCT(13378) -! B(21237) = dA(13379)/dV(1244) - B(21237) = RCT(13379)*V(5250) -! B(21238) = dA(13379)/dV(5250) - B(21238) = RCT(13379)*V(1244) -! B(21239) = dA(13380)/dV(3070) - B(21239) = RCT(13380) -! B(21240) = dA(13381)/dV(3070) - B(21240) = RCT(13381)*V(5250) -! B(21241) = dA(13381)/dV(5250) - B(21241) = RCT(13381)*V(3070) -! B(21242) = dA(13382)/dV(4421) - B(21242) = RCT(13382)*V(5255) -! B(21243) = dA(13382)/dV(5255) - B(21243) = RCT(13382)*V(4421) -! B(21244) = dA(13383)/dV(4421) - B(21244) = RCT(13383)*V(5252) -! B(21245) = dA(13383)/dV(5252) - B(21245) = RCT(13383)*V(4421) -! B(21246) = dA(13384)/dV(4421) - B(21246) = RCT(13384)*V(5256) -! B(21247) = dA(13384)/dV(5256) - B(21247) = RCT(13384)*V(4421) -! B(21248) = dA(13385)/dV(4421) - B(21248) = RCT(13385) -! B(21249) = dA(13386)/dV(1418) - B(21249) = RCT(13386) -! B(21250) = dA(13387)/dV(1418) - B(21250) = RCT(13387)*V(5250) -! B(21251) = dA(13387)/dV(5250) - B(21251) = RCT(13387)*V(1418) -! B(21252) = dA(13388)/dV(3218) - B(21252) = RCT(13388) -! B(21253) = dA(13389)/dV(3218) - B(21253) = RCT(13389)*V(5250) -! B(21254) = dA(13389)/dV(5250) - B(21254) = RCT(13389)*V(3218) -! B(21255) = dA(13390)/dV(4532) - B(21255) = RCT(13390)*V(5255) -! B(21256) = dA(13390)/dV(5255) - B(21256) = RCT(13390)*V(4532) -! B(21257) = dA(13391)/dV(4532) - B(21257) = RCT(13391)*V(5252) -! B(21258) = dA(13391)/dV(5252) - B(21258) = RCT(13391)*V(4532) -! B(21259) = dA(13392)/dV(4532) - B(21259) = RCT(13392)*V(5256) -! B(21260) = dA(13392)/dV(5256) - B(21260) = RCT(13392)*V(4532) -! B(21261) = dA(13393)/dV(4532) - B(21261) = RCT(13393) -! B(21262) = dA(13394)/dV(1226) - B(21262) = RCT(13394) -! B(21263) = dA(13395)/dV(1226) - B(21263) = RCT(13395)*V(5250) -! B(21264) = dA(13395)/dV(5250) - B(21264) = RCT(13395)*V(1226) -! B(21265) = dA(13396)/dV(3306) - B(21265) = RCT(13396) -! B(21266) = dA(13397)/dV(3306) - B(21266) = RCT(13397)*V(5250) -! B(21267) = dA(13397)/dV(5250) - B(21267) = RCT(13397)*V(3306) -! B(21268) = dA(13398)/dV(4429) - B(21268) = RCT(13398)*V(5255) -! B(21269) = dA(13398)/dV(5255) - B(21269) = RCT(13398)*V(4429) -! B(21270) = dA(13399)/dV(4429) - B(21270) = RCT(13399)*V(5252) -! B(21271) = dA(13399)/dV(5252) - B(21271) = RCT(13399)*V(4429) -! B(21272) = dA(13400)/dV(4429) - B(21272) = RCT(13400)*V(5256) -! B(21273) = dA(13400)/dV(5256) - B(21273) = RCT(13400)*V(4429) -! B(21274) = dA(13401)/dV(4429) - B(21274) = RCT(13401) -! B(21275) = dA(13402)/dV(1198) - B(21275) = RCT(13402) -! B(21276) = dA(13403)/dV(1198) - B(21276) = RCT(13403)*V(5250) -! B(21277) = dA(13403)/dV(5250) - B(21277) = RCT(13403)*V(1198) -! B(21278) = dA(13404)/dV(3282) - B(21278) = RCT(13404) -! B(21279) = dA(13405)/dV(3282) - B(21279) = RCT(13405)*V(5250) -! B(21280) = dA(13405)/dV(5250) - B(21280) = RCT(13405)*V(3282) -! B(21281) = dA(13406)/dV(142) - B(21281) = RCT(13406) -! B(21282) = dA(13407)/dV(4267) - B(21282) = RCT(13407)*V(5255) -! B(21283) = dA(13407)/dV(5255) - B(21283) = RCT(13407)*V(4267) -! B(21284) = dA(13408)/dV(4267) - B(21284) = RCT(13408)*V(5255) -! B(21285) = dA(13408)/dV(5255) - B(21285) = RCT(13408)*V(4267) -! B(21286) = dA(13409)/dV(4267) - B(21286) = RCT(13409)*V(5252) -! B(21287) = dA(13409)/dV(5252) - B(21287) = RCT(13409)*V(4267) -! B(21288) = dA(13410)/dV(4267) - B(21288) = RCT(13410)*V(5253) -! B(21289) = dA(13410)/dV(5253) - B(21289) = RCT(13410)*V(4267) -! B(21290) = dA(13411)/dV(4267) - B(21290) = RCT(13411)*V(5256) -! B(21291) = dA(13411)/dV(5256) - B(21291) = RCT(13411)*V(4267) -! B(21292) = dA(13412)/dV(4267) - B(21292) = RCT(13412) -! B(21293) = dA(13413)/dV(2911) - B(21293) = RCT(13413)*V(5250) -! B(21294) = dA(13413)/dV(5250) - B(21294) = RCT(13413)*V(2911) -! B(21295) = dA(13414)/dV(2911) - B(21295) = RCT(13414) -! B(21296) = dA(13415)/dV(2725) - B(21296) = RCT(13415)*V(5250) -! B(21297) = dA(13415)/dV(5250) - B(21297) = RCT(13415)*V(2725) -! B(21298) = dA(13416)/dV(2725) - B(21298) = RCT(13416) -! B(21299) = dA(13417)/dV(4489) - B(21299) = RCT(13417)*V(5255) -! B(21300) = dA(13417)/dV(5255) - B(21300) = RCT(13417)*V(4489) -! B(21301) = dA(13418)/dV(4489) - B(21301) = RCT(13418)*V(5255) -! B(21302) = dA(13418)/dV(5255) - B(21302) = RCT(13418)*V(4489) -! B(21303) = dA(13419)/dV(4489) - B(21303) = RCT(13419)*V(5252) -! B(21304) = dA(13419)/dV(5252) - B(21304) = RCT(13419)*V(4489) -! B(21305) = dA(13420)/dV(4489) - B(21305) = RCT(13420)*V(5253) -! B(21306) = dA(13420)/dV(5253) - B(21306) = RCT(13420)*V(4489) -! B(21307) = dA(13421)/dV(4489) - B(21307) = RCT(13421)*V(5256) -! B(21308) = dA(13421)/dV(5256) - B(21308) = RCT(13421)*V(4489) -! B(21309) = dA(13422)/dV(4489) - B(21309) = RCT(13422) -! B(21310) = dA(13423)/dV(2991) - B(21310) = RCT(13423)*V(5250) -! B(21311) = dA(13423)/dV(5250) - B(21311) = RCT(13423)*V(2991) -! B(21312) = dA(13424)/dV(2991) - B(21312) = RCT(13424) -! B(21313) = dA(13425)/dV(3040) - B(21313) = RCT(13425)*V(5250) -! B(21314) = dA(13425)/dV(5250) - B(21314) = RCT(13425)*V(3040) -! B(21315) = dA(13426)/dV(3040) - B(21315) = RCT(13426) -! B(21316) = dA(13427)/dV(85) - B(21316) = RCT(13427) -! B(21317) = dA(13428)/dV(1248) - B(21317) = RCT(13428)*V(5250) -! B(21318) = dA(13428)/dV(5250) - B(21318) = RCT(13428)*V(1248) -! B(21319) = dA(13429)/dV(1248) - B(21319) = RCT(13429) -! B(21320) = dA(13430)/dV(3075) - B(21320) = RCT(13430)*V(5250) -! B(21321) = dA(13430)/dV(5250) - B(21321) = RCT(13430)*V(3075) -! B(21322) = dA(13431)/dV(3075) - B(21322) = RCT(13431) -! B(21323) = dA(13432)/dV(4329) - B(21323) = RCT(13432)*V(5255) -! B(21324) = dA(13432)/dV(5255) - B(21324) = RCT(13432)*V(4329) -! B(21325) = dA(13433)/dV(4329) - B(21325) = RCT(13433)*V(5255) -! B(21326) = dA(13433)/dV(5255) - B(21326) = RCT(13433)*V(4329) -! B(21327) = dA(13434)/dV(4329) - B(21327) = RCT(13434)*V(5252) -! B(21328) = dA(13434)/dV(5252) - B(21328) = RCT(13434)*V(4329) -! B(21329) = dA(13435)/dV(4329) - B(21329) = RCT(13435)*V(5253) -! B(21330) = dA(13435)/dV(5253) - B(21330) = RCT(13435)*V(4329) -! B(21331) = dA(13436)/dV(4329) - B(21331) = RCT(13436)*V(5256) -! B(21332) = dA(13436)/dV(5256) - B(21332) = RCT(13436)*V(4329) -! B(21333) = dA(13437)/dV(4329) - B(21333) = RCT(13437) -! B(21334) = dA(13438)/dV(2055) - B(21334) = RCT(13438)*V(5250) -! B(21335) = dA(13438)/dV(5250) - B(21335) = RCT(13438)*V(2055) -! B(21336) = dA(13439)/dV(2055) - B(21336) = RCT(13439) -! B(21337) = dA(13440)/dV(2683) - B(21337) = RCT(13440)*V(5250) -! B(21338) = dA(13440)/dV(5250) - B(21338) = RCT(13440)*V(2683) -! B(21339) = dA(13441)/dV(2683) - B(21339) = RCT(13441) -! B(21340) = dA(13442)/dV(2248) - B(21340) = RCT(13442)*V(5250) -! B(21341) = dA(13442)/dV(5250) - B(21341) = RCT(13442)*V(2248) -! B(21342) = dA(13443)/dV(2248) - B(21342) = RCT(13443) -! B(21343) = dA(13444)/dV(2643) - B(21343) = RCT(13444)*V(5250) -! B(21344) = dA(13444)/dV(5250) - B(21344) = RCT(13444)*V(2643) -! B(21345) = dA(13445)/dV(2643) - B(21345) = RCT(13445) -! B(21346) = dA(13446)/dV(499) - B(21346) = RCT(13446)*V(5250) -! B(21347) = dA(13446)/dV(5250) - B(21347) = RCT(13446)*V(499) -! B(21348) = dA(13447)/dV(1460) - B(21348) = RCT(13447)*V(5250) -! B(21349) = dA(13447)/dV(5250) - B(21349) = RCT(13447)*V(1460) -! B(21350) = dA(13448)/dV(1460) - B(21350) = RCT(13448) -! B(21351) = dA(13449)/dV(3315) - B(21351) = RCT(13449)*V(5250) -! B(21352) = dA(13449)/dV(5250) - B(21352) = RCT(13449)*V(3315) -! B(21353) = dA(13450)/dV(3315) - B(21353) = RCT(13450) -! B(21354) = dA(13451)/dV(287) - B(21354) = RCT(13451)*V(5250) -! B(21355) = dA(13451)/dV(5250) - B(21355) = RCT(13451)*V(287) -! B(21356) = dA(13452)/dV(894) - B(21356) = RCT(13452)*V(5250) -! B(21357) = dA(13452)/dV(5250) - B(21357) = RCT(13452)*V(894) -! B(21358) = dA(13453)/dV(894) - B(21358) = RCT(13453) -! B(21359) = dA(13454)/dV(2552) - B(21359) = RCT(13454)*V(5250) -! B(21360) = dA(13454)/dV(5250) - B(21360) = RCT(13454)*V(2552) -! B(21361) = dA(13455)/dV(2552) - B(21361) = RCT(13455) -! B(21362) = dA(13456)/dV(4449) - B(21362) = RCT(13456)*V(5250) -! B(21363) = dA(13456)/dV(5250) - B(21363) = RCT(13456)*V(4449) -! B(21364) = dA(13457)/dV(4449) - B(21364) = RCT(13457) -! B(21365) = dA(13458)/dV(2443) - B(21365) = RCT(13458)*V(5250) -! B(21366) = dA(13458)/dV(5250) - B(21366) = RCT(13458)*V(2443) -! B(21367) = dA(13459)/dV(2443) - B(21367) = RCT(13459) -! B(21368) = dA(13460)/dV(2863) - B(21368) = RCT(13460)*V(5250) -! B(21369) = dA(13460)/dV(5250) - B(21369) = RCT(13460)*V(2863) -! B(21370) = dA(13461)/dV(2863) - B(21370) = RCT(13461) -! B(21371) = dA(13462)/dV(4026) - B(21371) = RCT(13462)*V(5255) -! B(21372) = dA(13462)/dV(5255) - B(21372) = RCT(13462)*V(4026) -! B(21373) = dA(13463)/dV(4026) - B(21373) = RCT(13463)*V(5255) -! B(21374) = dA(13463)/dV(5255) - B(21374) = RCT(13463)*V(4026) -! B(21375) = dA(13464)/dV(4026) - B(21375) = RCT(13464)*V(5252) -! B(21376) = dA(13464)/dV(5252) - B(21376) = RCT(13464)*V(4026) -! B(21377) = dA(13465)/dV(4026) - B(21377) = RCT(13465)*V(5253) -! B(21378) = dA(13465)/dV(5253) - B(21378) = RCT(13465)*V(4026) -! B(21379) = dA(13466)/dV(4026) - B(21379) = RCT(13466)*V(5256) -! B(21380) = dA(13466)/dV(5256) - B(21380) = RCT(13466)*V(4026) -! B(21381) = dA(13467)/dV(4026) - B(21381) = RCT(13467) -! B(21382) = dA(13468)/dV(2838) - B(21382) = RCT(13468)*V(5250) -! B(21383) = dA(13468)/dV(5250) - B(21383) = RCT(13468)*V(2838) -! B(21384) = dA(13469)/dV(2838) - B(21384) = RCT(13469) -! B(21385) = dA(13470)/dV(2631) - B(21385) = RCT(13470)*V(5250) -! B(21386) = dA(13470)/dV(5250) - B(21386) = RCT(13470)*V(2631) -! B(21387) = dA(13471)/dV(2631) - B(21387) = RCT(13471) -! B(21388) = dA(13472)/dV(4102) - B(21388) = RCT(13472)*V(5255) -! B(21389) = dA(13472)/dV(5255) - B(21389) = RCT(13472)*V(4102) -! B(21390) = dA(13473)/dV(4102) - B(21390) = RCT(13473)*V(5255) -! B(21391) = dA(13473)/dV(5255) - B(21391) = RCT(13473)*V(4102) -! B(21392) = dA(13474)/dV(4102) - B(21392) = RCT(13474)*V(5252) -! B(21393) = dA(13474)/dV(5252) - B(21393) = RCT(13474)*V(4102) -! B(21394) = dA(13475)/dV(4102) - B(21394) = RCT(13475)*V(5253) -! B(21395) = dA(13475)/dV(5253) - B(21395) = RCT(13475)*V(4102) -! B(21396) = dA(13476)/dV(4102) - B(21396) = RCT(13476)*V(5256) -! B(21397) = dA(13476)/dV(5256) - B(21397) = RCT(13476)*V(4102) -! B(21398) = dA(13477)/dV(4102) - B(21398) = RCT(13477) -! B(21399) = dA(13478)/dV(2541) - B(21399) = RCT(13478)*V(5250) -! B(21400) = dA(13478)/dV(5250) - B(21400) = RCT(13478)*V(2541) -! B(21401) = dA(13479)/dV(2541) - B(21401) = RCT(13479) -! B(21402) = dA(13480)/dV(2765) - B(21402) = RCT(13480)*V(5250) -! B(21403) = dA(13480)/dV(5250) - B(21403) = RCT(13480)*V(2765) -! B(21404) = dA(13481)/dV(2765) - B(21404) = RCT(13481) -! B(21405) = dA(13482)/dV(422) - B(21405) = RCT(13482) -! B(21406) = dA(13483)/dV(2171) - B(21406) = RCT(13483)*V(5250) -! B(21407) = dA(13483)/dV(5250) - B(21407) = RCT(13483)*V(2171) -! B(21408) = dA(13484)/dV(2171) - B(21408) = RCT(13484) -! B(21409) = dA(13485)/dV(3063) - B(21409) = RCT(13485)*V(5250) -! B(21410) = dA(13485)/dV(5250) - B(21410) = RCT(13485)*V(3063) -! B(21411) = dA(13486)/dV(3063) - B(21411) = RCT(13486) -! B(21412) = dA(13487)/dV(4620) - B(21412) = RCT(13487)*V(5255) -! B(21413) = dA(13487)/dV(5255) - B(21413) = RCT(13487)*V(4620) -! B(21414) = dA(13488)/dV(4620) - B(21414) = RCT(13488)*V(5255) -! B(21415) = dA(13488)/dV(5255) - B(21415) = RCT(13488)*V(4620) -! B(21416) = dA(13489)/dV(4620) - B(21416) = RCT(13489)*V(5252) -! B(21417) = dA(13489)/dV(5252) - B(21417) = RCT(13489)*V(4620) -! B(21418) = dA(13490)/dV(4620) - B(21418) = RCT(13490)*V(5253) -! B(21419) = dA(13490)/dV(5253) - B(21419) = RCT(13490)*V(4620) -! B(21420) = dA(13491)/dV(4620) - B(21420) = RCT(13491)*V(5256) -! B(21421) = dA(13491)/dV(5256) - B(21421) = RCT(13491)*V(4620) -! B(21422) = dA(13492)/dV(4620) - B(21422) = RCT(13492) -! B(21423) = dA(13493)/dV(2654) - B(21423) = RCT(13493)*V(5250) -! B(21424) = dA(13493)/dV(5250) - B(21424) = RCT(13493)*V(2654) -! B(21425) = dA(13494)/dV(2654) - B(21425) = RCT(13494) -! B(21426) = dA(13495)/dV(2794) - B(21426) = RCT(13495)*V(5250) -! B(21427) = dA(13495)/dV(5250) - B(21427) = RCT(13495)*V(2794) -! B(21428) = dA(13496)/dV(2794) - B(21428) = RCT(13496) -! B(21429) = dA(13497)/dV(245) - B(21429) = RCT(13497) -! B(21430) = dA(13498)/dV(4744) - B(21430) = RCT(13498)*V(5255) -! B(21431) = dA(13498)/dV(5255) - B(21431) = RCT(13498)*V(4744) -! B(21432) = dA(13499)/dV(4744) - B(21432) = RCT(13499)*V(5255) -! B(21433) = dA(13499)/dV(5255) - B(21433) = RCT(13499)*V(4744) -! B(21434) = dA(13500)/dV(4744) - B(21434) = RCT(13500)*V(5252) -! B(21435) = dA(13500)/dV(5252) - B(21435) = RCT(13500)*V(4744) -! B(21436) = dA(13501)/dV(4744) - B(21436) = RCT(13501)*V(5253) -! B(21437) = dA(13501)/dV(5253) - B(21437) = RCT(13501)*V(4744) -! B(21438) = dA(13502)/dV(4744) - B(21438) = RCT(13502)*V(5256) -! B(21439) = dA(13502)/dV(5256) - B(21439) = RCT(13502)*V(4744) -! B(21440) = dA(13503)/dV(4744) - B(21440) = RCT(13503) -! B(21441) = dA(13504)/dV(2862) - B(21441) = RCT(13504)*V(5250) -! B(21442) = dA(13504)/dV(5250) - B(21442) = RCT(13504)*V(2862) -! B(21443) = dA(13505)/dV(2862) - B(21443) = RCT(13505) -! B(21444) = dA(13506)/dV(2505) - B(21444) = RCT(13506)*V(5250) -! B(21445) = dA(13506)/dV(5250) - B(21445) = RCT(13506)*V(2505) -! B(21446) = dA(13507)/dV(2505) - B(21446) = RCT(13507) -! B(21447) = dA(13508)/dV(23) - B(21447) = RCT(13508) -! B(21448) = dA(13509)/dV(1301) - B(21448) = RCT(13509)*V(5250) -! B(21449) = dA(13509)/dV(5250) - B(21449) = RCT(13509)*V(1301) -! B(21450) = dA(13510)/dV(1301) - B(21450) = RCT(13510) -! B(21451) = dA(13511)/dV(2919) - B(21451) = RCT(13511) -! B(21452) = dA(13512)/dV(1335) - B(21452) = RCT(13512)*V(5250) -! B(21453) = dA(13512)/dV(5250) - B(21453) = RCT(13512)*V(1335) -! B(21454) = dA(13513)/dV(1335) - B(21454) = RCT(13513) -! B(21455) = dA(13514)/dV(204) - B(21455) = RCT(13514) -! B(21456) = dA(13515)/dV(72) - B(21456) = RCT(13515)*V(5250) -! B(21457) = dA(13515)/dV(5250) - B(21457) = RCT(13515)*V(72) -! B(21458) = dA(13516)/dV(2349) - B(21458) = RCT(13516)*V(5250) -! B(21459) = dA(13516)/dV(5250) - B(21459) = RCT(13516)*V(2349) -! B(21460) = dA(13517)/dV(2349) - B(21460) = RCT(13517) -! B(21461) = dA(13518)/dV(2615) - B(21461) = RCT(13518)*V(5250) -! B(21462) = dA(13518)/dV(5250) - B(21462) = RCT(13518)*V(2615) -! B(21463) = dA(13519)/dV(2615) - B(21463) = RCT(13519) -! B(21464) = dA(13520)/dV(4175) - B(21464) = RCT(13520)*V(5250) -! B(21465) = dA(13520)/dV(5250) - B(21465) = RCT(13520)*V(4175) -! B(21466) = dA(13521)/dV(4175) - B(21466) = RCT(13521) -! B(21467) = dA(13522)/dV(4175) - B(21467) = RCT(13522) -! B(21468) = dA(13523)/dV(4731) - B(21468) = RCT(13523)*V(5255) -! B(21469) = dA(13523)/dV(5255) - B(21469) = RCT(13523)*V(4731) -! B(21470) = dA(13524)/dV(4731) - B(21470) = RCT(13524)*V(5255) -! B(21471) = dA(13524)/dV(5255) - B(21471) = RCT(13524)*V(4731) -! B(21472) = dA(13525)/dV(4731) - B(21472) = RCT(13525)*V(5252) -! B(21473) = dA(13525)/dV(5252) - B(21473) = RCT(13525)*V(4731) -! B(21474) = dA(13526)/dV(4731) - B(21474) = RCT(13526)*V(5253) -! B(21475) = dA(13526)/dV(5253) - B(21475) = RCT(13526)*V(4731) -! B(21476) = dA(13527)/dV(4731) - B(21476) = RCT(13527)*V(5256) -! B(21477) = dA(13527)/dV(5256) - B(21477) = RCT(13527)*V(4731) -! B(21478) = dA(13528)/dV(4731) - B(21478) = RCT(13528) -! B(21479) = dA(13529)/dV(2064) - B(21479) = RCT(13529)*V(5250) -! B(21480) = dA(13529)/dV(5250) - B(21480) = RCT(13529)*V(2064) -! B(21481) = dA(13530)/dV(2064) - B(21481) = RCT(13530) -! B(21482) = dA(13531)/dV(3019) - B(21482) = RCT(13531)*V(5250) -! B(21483) = dA(13531)/dV(5250) - B(21483) = RCT(13531)*V(3019) -! B(21484) = dA(13532)/dV(3019) - B(21484) = RCT(13532) -! B(21485) = dA(13533)/dV(4203) - B(21485) = RCT(13533)*V(5255) -! B(21486) = dA(13533)/dV(5255) - B(21486) = RCT(13533)*V(4203) -! B(21487) = dA(13534)/dV(4203) - B(21487) = RCT(13534)*V(5255) -! B(21488) = dA(13534)/dV(5255) - B(21488) = RCT(13534)*V(4203) -! B(21489) = dA(13535)/dV(4203) - B(21489) = RCT(13535)*V(5252) -! B(21490) = dA(13535)/dV(5252) - B(21490) = RCT(13535)*V(4203) -! B(21491) = dA(13536)/dV(4203) - B(21491) = RCT(13536)*V(5253) -! B(21492) = dA(13536)/dV(5253) - B(21492) = RCT(13536)*V(4203) -! B(21493) = dA(13537)/dV(4203) - B(21493) = RCT(13537)*V(5256) -! B(21494) = dA(13537)/dV(5256) - B(21494) = RCT(13537)*V(4203) -! B(21495) = dA(13538)/dV(4203) - B(21495) = RCT(13538) -! B(21496) = dA(13539)/dV(2263) - B(21496) = RCT(13539)*V(5250) -! B(21497) = dA(13539)/dV(5250) - B(21497) = RCT(13539)*V(2263) -! B(21498) = dA(13540)/dV(2263) - B(21498) = RCT(13540) -! B(21499) = dA(13541)/dV(2866) - B(21499) = RCT(13541)*V(5250) -! B(21500) = dA(13541)/dV(5250) - B(21500) = RCT(13541)*V(2866) -! B(21501) = dA(13542)/dV(2866) - B(21501) = RCT(13542) -! B(21502) = dA(13543)/dV(4445) - B(21502) = RCT(13543)*V(5255) -! B(21503) = dA(13543)/dV(5255) - B(21503) = RCT(13543)*V(4445) -! B(21504) = dA(13544)/dV(4445) - B(21504) = RCT(13544)*V(5255) -! B(21505) = dA(13544)/dV(5255) - B(21505) = RCT(13544)*V(4445) -! B(21506) = dA(13545)/dV(4445) - B(21506) = RCT(13545)*V(5252) -! B(21507) = dA(13545)/dV(5252) - B(21507) = RCT(13545)*V(4445) -! B(21508) = dA(13546)/dV(4445) - B(21508) = RCT(13546)*V(5253) -! B(21509) = dA(13546)/dV(5253) - B(21509) = RCT(13546)*V(4445) -! B(21510) = dA(13547)/dV(4445) - B(21510) = RCT(13547)*V(5256) -! B(21511) = dA(13547)/dV(5256) - B(21511) = RCT(13547)*V(4445) -! B(21512) = dA(13548)/dV(4445) - B(21512) = RCT(13548) -! B(21513) = dA(13549)/dV(2754) - B(21513) = RCT(13549)*V(5250) -! B(21514) = dA(13549)/dV(5250) - B(21514) = RCT(13549)*V(2754) -! B(21515) = dA(13550)/dV(2754) - B(21515) = RCT(13550) -! B(21516) = dA(13551)/dV(3052) - B(21516) = RCT(13551)*V(5250) -! B(21517) = dA(13551)/dV(5250) - B(21517) = RCT(13551)*V(3052) -! B(21518) = dA(13552)/dV(3052) - B(21518) = RCT(13552) -! B(21519) = dA(13553)/dV(255) - B(21519) = RCT(13553)*V(5250) -! B(21520) = dA(13553)/dV(5250) - B(21520) = RCT(13553)*V(255) -! B(21521) = dA(13554)/dV(901) - B(21521) = RCT(13554)*V(5250) -! B(21522) = dA(13554)/dV(5250) - B(21522) = RCT(13554)*V(901) -! B(21523) = dA(13555)/dV(901) - B(21523) = RCT(13555) -! B(21524) = dA(13556)/dV(2852) - B(21524) = RCT(13556)*V(5250) -! B(21525) = dA(13556)/dV(5250) - B(21525) = RCT(13556)*V(2852) -! B(21526) = dA(13557)/dV(2852) - B(21526) = RCT(13557) -! B(21527) = dA(13558)/dV(952) - B(21527) = RCT(13558)*V(5250) -! B(21528) = dA(13558)/dV(5250) - B(21528) = RCT(13558)*V(952) -! B(21529) = dA(13559)/dV(952) - B(21529) = RCT(13559) -! B(21530) = dA(13560)/dV(4184) - B(21530) = RCT(13560) -! B(21531) = dA(13561)/dV(626) - B(21531) = RCT(13561)*V(5250) -! B(21532) = dA(13561)/dV(5250) - B(21532) = RCT(13561)*V(626) -! B(21533) = dA(13562)/dV(626) - B(21533) = RCT(13562) -! B(21534) = dA(13563)/dV(4831) - B(21534) = RCT(13563)*V(5255) -! B(21535) = dA(13563)/dV(5255) - B(21535) = RCT(13563)*V(4831) -! B(21536) = dA(13564)/dV(4831) - B(21536) = RCT(13564)*V(5255) -! B(21537) = dA(13564)/dV(5255) - B(21537) = RCT(13564)*V(4831) -! B(21538) = dA(13565)/dV(4831) - B(21538) = RCT(13565)*V(5252) -! B(21539) = dA(13565)/dV(5252) - B(21539) = RCT(13565)*V(4831) -! B(21540) = dA(13566)/dV(4831) - B(21540) = RCT(13566)*V(5253) -! B(21541) = dA(13566)/dV(5253) - B(21541) = RCT(13566)*V(4831) -! B(21542) = dA(13567)/dV(4831) - B(21542) = RCT(13567)*V(5256) -! B(21543) = dA(13567)/dV(5256) - B(21543) = RCT(13567)*V(4831) -! B(21544) = dA(13568)/dV(4831) - B(21544) = RCT(13568) -! B(21545) = dA(13569)/dV(4751) - B(21545) = RCT(13569)*V(5255) -! B(21546) = dA(13569)/dV(5255) - B(21546) = RCT(13569)*V(4751) -! B(21547) = dA(13570)/dV(4751) - B(21547) = RCT(13570)*V(5252) -! B(21548) = dA(13570)/dV(5252) - B(21548) = RCT(13570)*V(4751) -! B(21549) = dA(13571)/dV(4751) - B(21549) = RCT(13571)*V(5256) -! B(21550) = dA(13571)/dV(5256) - B(21550) = RCT(13571)*V(4751) -! B(21551) = dA(13572)/dV(4751) - B(21551) = RCT(13572) -! B(21552) = dA(13573)/dV(3211) - B(21552) = RCT(13573)*V(5250) -! B(21553) = dA(13573)/dV(5250) - B(21553) = RCT(13573)*V(3211) -! B(21554) = dA(13574)/dV(3211) - B(21554) = RCT(13574) -! B(21555) = dA(13575)/dV(3224) - B(21555) = RCT(13575)*V(5250) -! B(21556) = dA(13575)/dV(5250) - B(21556) = RCT(13575)*V(3224) -! B(21557) = dA(13576)/dV(3224) - B(21557) = RCT(13576) -! B(21558) = dA(13577)/dV(10) - B(21558) = RCT(13577)*V(5250) -! B(21559) = dA(13577)/dV(5250) - B(21559) = RCT(13577)*V(10) -! B(21560) = dA(13578)/dV(1006) - B(21560) = RCT(13578)*V(5250) -! B(21561) = dA(13578)/dV(5250) - B(21561) = RCT(13578)*V(1006) -! B(21562) = dA(13579)/dV(1006) - B(21562) = RCT(13579) -! B(21563) = dA(13580)/dV(2003) - B(21563) = RCT(13580)*V(5250) -! B(21564) = dA(13580)/dV(5250) - B(21564) = RCT(13580)*V(2003) -! B(21565) = dA(13581)/dV(2003) - B(21565) = RCT(13581) -! B(21566) = dA(13582)/dV(1222) - B(21566) = RCT(13582)*V(5250) -! B(21567) = dA(13582)/dV(5250) - B(21567) = RCT(13582)*V(1222) -! B(21568) = dA(13583)/dV(2183) - B(21568) = RCT(13583)*V(5250) -! B(21569) = dA(13583)/dV(5250) - B(21569) = RCT(13583)*V(2183) -! B(21570) = dA(13584)/dV(2183) - B(21570) = RCT(13584) -! B(21571) = dA(13585)/dV(2928) - B(21571) = RCT(13585)*V(5250) -! B(21572) = dA(13585)/dV(5250) - B(21572) = RCT(13585)*V(2928) -! B(21573) = dA(13586)/dV(2928) - B(21573) = RCT(13586) -! B(21574) = dA(13587)/dV(1494) - B(21574) = RCT(13587)*V(5250) -! B(21575) = dA(13587)/dV(5250) - B(21575) = RCT(13587)*V(1494) -! B(21576) = dA(13588)/dV(1970) - B(21576) = RCT(13588)*V(5250) -! B(21577) = dA(13588)/dV(5250) - B(21577) = RCT(13588)*V(1970) -! B(21578) = dA(13589)/dV(1970) - B(21578) = RCT(13589) -! B(21579) = dA(13590)/dV(2907) - B(21579) = RCT(13590)*V(5250) -! B(21580) = dA(13590)/dV(5250) - B(21580) = RCT(13590)*V(2907) -! B(21581) = dA(13591)/dV(2907) - B(21581) = RCT(13591) -! B(21582) = dA(13592)/dV(3477) - B(21582) = RCT(13592)*V(5250) -! B(21583) = dA(13592)/dV(5250) - B(21583) = RCT(13592)*V(3477) -! B(21584) = dA(13593)/dV(3477) - B(21584) = RCT(13593) -! B(21585) = dA(13594)/dV(3563) - B(21585) = RCT(13594)*V(5250) -! B(21586) = dA(13594)/dV(5250) - B(21586) = RCT(13594)*V(3563) -! B(21587) = dA(13595)/dV(3563) - B(21587) = RCT(13595) -! B(21588) = dA(13596)/dV(3392) - B(21588) = RCT(13596)*V(5250) -! B(21589) = dA(13596)/dV(5250) - B(21589) = RCT(13596)*V(3392) -! B(21590) = dA(13597)/dV(3392) - B(21590) = RCT(13597) -! B(21591) = dA(13598)/dV(907) - B(21591) = RCT(13598)*V(5250) -! B(21592) = dA(13598)/dV(5250) - B(21592) = RCT(13598)*V(907) -! B(21593) = dA(13599)/dV(907) - B(21593) = RCT(13599) -! B(21594) = dA(13600)/dV(2957) - B(21594) = RCT(13600)*V(5250) -! B(21595) = dA(13600)/dV(5250) - B(21595) = RCT(13600)*V(2957) -! B(21596) = dA(13601)/dV(2957) - B(21596) = RCT(13601) -! B(21597) = dA(13602)/dV(2580) - B(21597) = RCT(13602) -! B(21598) = dA(13603)/dV(2580) - B(21598) = RCT(13603)*V(5250) -! B(21599) = dA(13603)/dV(5250) - B(21599) = RCT(13603)*V(2580) -! B(21600) = dA(13604)/dV(2870) - B(21600) = RCT(13604) -! B(21601) = dA(13605)/dV(2870) - B(21601) = RCT(13605)*V(5250) -! B(21602) = dA(13605)/dV(5250) - B(21602) = RCT(13605)*V(2870) -! B(21603) = dA(13606)/dV(2635) - B(21603) = RCT(13606) -! B(21604) = dA(13607)/dV(2635) - B(21604) = RCT(13607)*V(5250) -! B(21605) = dA(13607)/dV(5250) - B(21605) = RCT(13607)*V(2635) -! B(21606) = dA(13608)/dV(3267) - B(21606) = RCT(13608)*V(5250) -! B(21607) = dA(13608)/dV(5250) - B(21607) = RCT(13608)*V(3267) -! B(21608) = dA(13609)/dV(3267) - B(21608) = RCT(13609) -! B(21609) = dA(13610)/dV(3267) - B(21609) = RCT(13610) -! B(21610) = dA(13611)/dV(1787) - B(21610) = RCT(13611) -! B(21611) = dA(13612)/dV(3217) - B(21611) = RCT(13612)*V(5250) -! B(21612) = dA(13612)/dV(5250) - B(21612) = RCT(13612)*V(3217) -! B(21613) = dA(13613)/dV(3217) - B(21613) = RCT(13613) -! B(21614) = dA(13614)/dV(3217) - B(21614) = RCT(13614) -! B(21615) = dA(13615)/dV(1892) - B(21615) = RCT(13615) -! B(21616) = dA(13616)/dV(2345) - B(21616) = RCT(13616)*V(5250) -! B(21617) = dA(13616)/dV(5250) - B(21617) = RCT(13616)*V(2345) -! B(21618) = dA(13617)/dV(2345) - B(21618) = RCT(13617) -! B(21619) = dA(13618)/dV(2966) - B(21619) = RCT(13618)*V(5250) -! B(21620) = dA(13618)/dV(5250) - B(21620) = RCT(13618)*V(2966) -! B(21621) = dA(13619)/dV(2966) - B(21621) = RCT(13619) -! B(21622) = dA(13620)/dV(3601) - B(21622) = RCT(13620)*V(5250) -! B(21623) = dA(13620)/dV(5250) - B(21623) = RCT(13620)*V(3601) -! B(21624) = dA(13621)/dV(3601) - B(21624) = RCT(13621) -! B(21625) = dA(13622)/dV(2486) - B(21625) = RCT(13622)*V(5250) -! B(21626) = dA(13622)/dV(5250) - B(21626) = RCT(13622)*V(2486) -! B(21627) = dA(13623)/dV(2486) - B(21627) = RCT(13623) -! B(21628) = dA(13624)/dV(272) - B(21628) = RCT(13624)*V(5250) -! B(21629) = dA(13624)/dV(5250) - B(21629) = RCT(13624)*V(272) -! B(21630) = dA(13625)/dV(1208) - B(21630) = RCT(13625)*V(5250) -! B(21631) = dA(13625)/dV(5250) - B(21631) = RCT(13625)*V(1208) -! B(21632) = dA(13626)/dV(1208) - B(21632) = RCT(13626) -! B(21633) = dA(13627)/dV(2517) - B(21633) = RCT(13627)*V(5250) -! B(21634) = dA(13627)/dV(5250) - B(21634) = RCT(13627)*V(2517) -! B(21635) = dA(13628)/dV(2517) - B(21635) = RCT(13628) -! B(21636) = dA(13629)/dV(2116) - B(21636) = RCT(13629) -! B(21637) = dA(13630)/dV(2116) - B(21637) = RCT(13630)*V(5250) -! B(21638) = dA(13630)/dV(5250) - B(21638) = RCT(13630)*V(2116) -! B(21639) = dA(13631)/dV(2784) - B(21639) = RCT(13631) -! B(21640) = dA(13632)/dV(2784) - B(21640) = RCT(13632)*V(5250) -! B(21641) = dA(13632)/dV(5250) - B(21641) = RCT(13632)*V(2784) -! B(21642) = dA(13633)/dV(1360) - B(21642) = RCT(13633)*V(5250) -! B(21643) = dA(13633)/dV(5250) - B(21643) = RCT(13633)*V(1360) -! B(21644) = dA(13634)/dV(1360) - B(21644) = RCT(13634) -! B(21645) = dA(13635)/dV(2989) - B(21645) = RCT(13635) -! B(21646) = dA(13636)/dV(3233) - B(21646) = RCT(13636)*V(5250) -! B(21647) = dA(13636)/dV(5250) - B(21647) = RCT(13636)*V(3233) -! B(21648) = dA(13637)/dV(1320) - B(21648) = RCT(13637)*V(5250) -! B(21649) = dA(13637)/dV(5250) - B(21649) = RCT(13637)*V(1320) -! B(21650) = dA(13638)/dV(1320) - B(21650) = RCT(13638) -! B(21651) = dA(13639)/dV(3008) - B(21651) = RCT(13639)*V(5250) -! B(21652) = dA(13639)/dV(5250) - B(21652) = RCT(13639)*V(3008) -! B(21653) = dA(13640)/dV(3008) - B(21653) = RCT(13640) -! B(21654) = dA(13641)/dV(886) - B(21654) = RCT(13641)*V(5250) -! B(21655) = dA(13641)/dV(5250) - B(21655) = RCT(13641)*V(886) -! B(21656) = dA(13642)/dV(886) - B(21656) = RCT(13642) -! B(21657) = dA(13643)/dV(2600) - B(21657) = RCT(13643)*V(5250) -! B(21658) = dA(13643)/dV(5250) - B(21658) = RCT(13643)*V(2600) -! B(21659) = dA(13644)/dV(2600) - B(21659) = RCT(13644) -! B(21660) = dA(13645)/dV(3976) - B(21660) = RCT(13645)*V(5255) -! B(21661) = dA(13645)/dV(5255) - B(21661) = RCT(13645)*V(3976) -! B(21662) = dA(13646)/dV(3976) - B(21662) = RCT(13646)*V(5252) -! B(21663) = dA(13646)/dV(5252) - B(21663) = RCT(13646)*V(3976) -! B(21664) = dA(13647)/dV(3976) - B(21664) = RCT(13647)*V(5256) -! B(21665) = dA(13647)/dV(5256) - B(21665) = RCT(13647)*V(3976) -! B(21666) = dA(13648)/dV(3976) - B(21666) = RCT(13648) -! B(21667) = dA(13649)/dV(1275) - B(21667) = RCT(13649)*V(5250) -! B(21668) = dA(13649)/dV(5250) - B(21668) = RCT(13649)*V(1275) -! B(21669) = dA(13650)/dV(1275) - B(21669) = RCT(13650) -! B(21670) = dA(13651)/dV(2867) - B(21670) = RCT(13651)*V(5250) -! B(21671) = dA(13651)/dV(5250) - B(21671) = RCT(13651)*V(2867) -! B(21672) = dA(13652)/dV(2867) - B(21672) = RCT(13652) -! B(21673) = dA(13653)/dV(986) - B(21673) = RCT(13653)*V(5250) -! B(21674) = dA(13653)/dV(5250) - B(21674) = RCT(13653)*V(986) -! B(21675) = dA(13654)/dV(986) - B(21675) = RCT(13654) -! B(21676) = dA(13655)/dV(3984) - B(21676) = RCT(13655)*V(5255) -! B(21677) = dA(13655)/dV(5255) - B(21677) = RCT(13655)*V(3984) -! B(21678) = dA(13656)/dV(3984) - B(21678) = RCT(13656)*V(5252) -! B(21679) = dA(13656)/dV(5252) - B(21679) = RCT(13656)*V(3984) -! B(21680) = dA(13657)/dV(3984) - B(21680) = RCT(13657)*V(5256) -! B(21681) = dA(13657)/dV(5256) - B(21681) = RCT(13657)*V(3984) -! B(21682) = dA(13658)/dV(3984) - B(21682) = RCT(13658) -! B(21683) = dA(13659)/dV(2977) - B(21683) = RCT(13659)*V(5250) -! B(21684) = dA(13659)/dV(5250) - B(21684) = RCT(13659)*V(2977) -! B(21685) = dA(13660)/dV(2977) - B(21685) = RCT(13660) -! B(21686) = dA(13661)/dV(4340) - B(21686) = RCT(13661)*V(5255) -! B(21687) = dA(13661)/dV(5255) - B(21687) = RCT(13661)*V(4340) -! B(21688) = dA(13662)/dV(4340) - B(21688) = RCT(13662)*V(5252) -! B(21689) = dA(13662)/dV(5252) - B(21689) = RCT(13662)*V(4340) -! B(21690) = dA(13663)/dV(4340) - B(21690) = RCT(13663)*V(5256) -! B(21691) = dA(13663)/dV(5256) - B(21691) = RCT(13663)*V(4340) -! B(21692) = dA(13664)/dV(4340) - B(21692) = RCT(13664) -! B(21693) = dA(13665)/dV(4340) - B(21693) = RCT(13665) -! B(21694) = dA(13666)/dV(4340) - B(21694) = RCT(13666) -! B(21695) = dA(13667)/dV(1164) - B(21695) = RCT(13667)*V(5250) -! B(21696) = dA(13667)/dV(5250) - B(21696) = RCT(13667)*V(1164) -! B(21697) = dA(13668)/dV(1164) - B(21697) = RCT(13668) -! B(21698) = dA(13669)/dV(4190) - B(21698) = RCT(13669) -! B(21699) = dA(13670)/dV(4190) - B(21699) = RCT(13670) -! B(21700) = dA(13671)/dV(879) - B(21700) = RCT(13671)*V(5250) -! B(21701) = dA(13671)/dV(5250) - B(21701) = RCT(13671)*V(879) -! B(21702) = dA(13672)/dV(879) - B(21702) = RCT(13672) -! B(21703) = dA(13673)/dV(2328) - B(21703) = RCT(13673)*V(5250) -! B(21704) = dA(13673)/dV(5250) - B(21704) = RCT(13673)*V(2328) -! B(21705) = dA(13674)/dV(2328) - B(21705) = RCT(13674) -! B(21706) = dA(13675)/dV(193) - B(21706) = RCT(13675) -! B(21707) = dA(13676)/dV(4224) - B(21707) = RCT(13676)*V(5256) -! B(21708) = dA(13676)/dV(5256) - B(21708) = RCT(13676)*V(4224) -! B(21709) = dA(13677)/dV(4224) - B(21709) = RCT(13677)*V(5250) -! B(21710) = dA(13677)/dV(5250) - B(21710) = RCT(13677)*V(4224) -! B(21711) = dA(13678)/dV(4224) - B(21711) = RCT(13678) -! B(21712) = dA(13679)/dV(399) - B(21712) = RCT(13679)*V(5250) -! B(21713) = dA(13679)/dV(5250) - B(21713) = RCT(13679)*V(399) -! B(21714) = dA(13680)/dV(1888) - B(21714) = RCT(13680)*V(5250) -! B(21715) = dA(13680)/dV(5250) - B(21715) = RCT(13680)*V(1888) -! B(21716) = dA(13681)/dV(1888) - B(21716) = RCT(13681) -! B(21717) = dA(13682)/dV(582) - B(21717) = RCT(13682) -! B(21718) = dA(13683)/dV(3838) - B(21718) = RCT(13683)*V(5255) -! B(21719) = dA(13683)/dV(5255) - B(21719) = RCT(13683)*V(3838) -! B(21720) = dA(13684)/dV(3838) - B(21720) = RCT(13684)*V(5252) -! B(21721) = dA(13684)/dV(5252) - B(21721) = RCT(13684)*V(3838) -! B(21722) = dA(13685)/dV(3838) - B(21722) = RCT(13685)*V(5256) -! B(21723) = dA(13685)/dV(5256) - B(21723) = RCT(13685)*V(3838) -! B(21724) = dA(13686)/dV(3838) - B(21724) = RCT(13686) -! B(21725) = dA(13687)/dV(4104) - B(21725) = RCT(13687)*V(5250) -! B(21726) = dA(13687)/dV(5250) - B(21726) = RCT(13687)*V(4104) -! B(21727) = dA(13688)/dV(4104) - B(21727) = RCT(13688) -! B(21728) = dA(13689)/dV(4597) - B(21728) = RCT(13689)*V(5255) -! B(21729) = dA(13689)/dV(5255) - B(21729) = RCT(13689)*V(4597) -! B(21730) = dA(13690)/dV(4597) - B(21730) = RCT(13690)*V(5252) -! B(21731) = dA(13690)/dV(5252) - B(21731) = RCT(13690)*V(4597) -! B(21732) = dA(13691)/dV(4597) - B(21732) = RCT(13691)*V(5252) -! B(21733) = dA(13691)/dV(5252) - B(21733) = RCT(13691)*V(4597) -! B(21734) = dA(13692)/dV(4597) - B(21734) = RCT(13692)*V(5256) -! B(21735) = dA(13692)/dV(5256) - B(21735) = RCT(13692)*V(4597) -! B(21736) = dA(13693)/dV(4597) - B(21736) = RCT(13693) -! B(21737) = dA(13694)/dV(4597) - B(21737) = RCT(13694) -! B(21738) = dA(13695)/dV(4597) - B(21738) = RCT(13695) -! B(21739) = dA(13696)/dV(4560) - B(21739) = RCT(13696)*V(5255) -! B(21740) = dA(13696)/dV(5255) - B(21740) = RCT(13696)*V(4560) -! B(21741) = dA(13697)/dV(4560) - B(21741) = RCT(13697)*V(5252) -! B(21742) = dA(13697)/dV(5252) - B(21742) = RCT(13697)*V(4560) -! B(21743) = dA(13698)/dV(4560) - B(21743) = RCT(13698)*V(5256) -! B(21744) = dA(13698)/dV(5256) - B(21744) = RCT(13698)*V(4560) -! B(21745) = dA(13699)/dV(4560) - B(21745) = RCT(13699) -! B(21746) = dA(13700)/dV(933) - B(21746) = RCT(13700)*V(5250) -! B(21747) = dA(13700)/dV(5250) - B(21747) = RCT(13700)*V(933) -! B(21748) = dA(13701)/dV(933) - B(21748) = RCT(13701) -! B(21749) = dA(13702)/dV(1018) - B(21749) = RCT(13702)*V(5250) -! B(21750) = dA(13702)/dV(5250) - B(21750) = RCT(13702)*V(1018) -! B(21751) = dA(13703)/dV(1018) - B(21751) = RCT(13703) -! B(21752) = dA(13704)/dV(2527) - B(21752) = RCT(13704)*V(5250) -! B(21753) = dA(13704)/dV(5250) - B(21753) = RCT(13704)*V(2527) -! B(21754) = dA(13705)/dV(2527) - B(21754) = RCT(13705) -! B(21755) = dA(13706)/dV(2380) - B(21755) = RCT(13706)*V(5250) -! B(21756) = dA(13706)/dV(5250) - B(21756) = RCT(13706)*V(2380) -! B(21757) = dA(13707)/dV(2380) - B(21757) = RCT(13707) -! B(21758) = dA(13708)/dV(697) - B(21758) = RCT(13708) -! B(21759) = dA(13709)/dV(3348) - B(21759) = RCT(13709)*V(5250) -! B(21760) = dA(13709)/dV(5250) - B(21760) = RCT(13709)*V(3348) -! B(21761) = dA(13710)/dV(3348) - B(21761) = RCT(13710) -! B(21762) = dA(13711)/dV(1934) - B(21762) = RCT(13711)*V(5250) -! B(21763) = dA(13711)/dV(5250) - B(21763) = RCT(13711)*V(1934) -! B(21764) = dA(13712)/dV(1934) - B(21764) = RCT(13712)*V(5250) -! B(21765) = dA(13712)/dV(5250) - B(21765) = RCT(13712)*V(1934) -! B(21766) = dA(13713)/dV(1934) - B(21766) = RCT(13713) -! B(21767) = dA(13714)/dV(4410) - B(21767) = RCT(13714)*V(5255) -! B(21768) = dA(13714)/dV(5255) - B(21768) = RCT(13714)*V(4410) -! B(21769) = dA(13715)/dV(4410) - B(21769) = RCT(13715)*V(5252) -! B(21770) = dA(13715)/dV(5252) - B(21770) = RCT(13715)*V(4410) -! B(21771) = dA(13716)/dV(4410) - B(21771) = RCT(13716)*V(5256) -! B(21772) = dA(13716)/dV(5256) - B(21772) = RCT(13716)*V(4410) -! B(21773) = dA(13717)/dV(4410) - B(21773) = RCT(13717) -! B(21774) = dA(13718)/dV(4410) - B(21774) = RCT(13718) -! B(21775) = dA(13719)/dV(4410) - B(21775) = RCT(13719) -! B(21776) = dA(13720)/dV(4624) - B(21776) = RCT(13720)*V(5255) -! B(21777) = dA(13720)/dV(5255) - B(21777) = RCT(13720)*V(4624) -! B(21778) = dA(13721)/dV(4624) - B(21778) = RCT(13721)*V(5255) -! B(21779) = dA(13721)/dV(5255) - B(21779) = RCT(13721)*V(4624) -! B(21780) = dA(13722)/dV(4624) - B(21780) = RCT(13722)*V(5255) -! B(21781) = dA(13722)/dV(5255) - B(21781) = RCT(13722)*V(4624) -! B(21782) = dA(13723)/dV(4624) - B(21782) = RCT(13723)*V(5252) -! B(21783) = dA(13723)/dV(5252) - B(21783) = RCT(13723)*V(4624) -! B(21784) = dA(13724)/dV(4624) - B(21784) = RCT(13724)*V(5253) -! B(21785) = dA(13724)/dV(5253) - B(21785) = RCT(13724)*V(4624) -! B(21786) = dA(13725)/dV(4624) - B(21786) = RCT(13725)*V(5256) -! B(21787) = dA(13725)/dV(5256) - B(21787) = RCT(13725)*V(4624) -! B(21788) = dA(13726)/dV(4624) - B(21788) = RCT(13726) -! B(21789) = dA(13727)/dV(4624) - B(21789) = RCT(13727) -! B(21790) = dA(13728)/dV(4278) - B(21790) = RCT(13728)*V(5256) -! B(21791) = dA(13728)/dV(5256) - B(21791) = RCT(13728)*V(4278) -! B(21792) = dA(13729)/dV(4278) - B(21792) = RCT(13729)*V(5250) -! B(21793) = dA(13729)/dV(5250) - B(21793) = RCT(13729)*V(4278) -! B(21794) = dA(13730)/dV(4278) - B(21794) = RCT(13730) -! B(21795) = dA(13731)/dV(4350) - B(21795) = RCT(13731)*V(5255) -! B(21796) = dA(13731)/dV(5255) - B(21796) = RCT(13731)*V(4350) -! B(21797) = dA(13732)/dV(4350) - B(21797) = RCT(13732)*V(5252) -! B(21798) = dA(13732)/dV(5252) - B(21798) = RCT(13732)*V(4350) -! B(21799) = dA(13733)/dV(4350) - B(21799) = RCT(13733)*V(5256) -! B(21800) = dA(13733)/dV(5256) - B(21800) = RCT(13733)*V(4350) -! B(21801) = dA(13734)/dV(4350) - B(21801) = RCT(13734) -! B(21802) = dA(13735)/dV(4350) - B(21802) = RCT(13735) -! B(21803) = dA(13736)/dV(4350) - B(21803) = RCT(13736) -! B(21804) = dA(13737)/dV(4485) - B(21804) = RCT(13737)*V(5255) -! B(21805) = dA(13737)/dV(5255) - B(21805) = RCT(13737)*V(4485) -! B(21806) = dA(13738)/dV(4485) - B(21806) = RCT(13738)*V(5255) -! B(21807) = dA(13738)/dV(5255) - B(21807) = RCT(13738)*V(4485) -! B(21808) = dA(13739)/dV(4485) - B(21808) = RCT(13739)*V(5255) -! B(21809) = dA(13739)/dV(5255) - B(21809) = RCT(13739)*V(4485) -! B(21810) = dA(13740)/dV(4485) - B(21810) = RCT(13740)*V(5252) -! B(21811) = dA(13740)/dV(5252) - B(21811) = RCT(13740)*V(4485) -! B(21812) = dA(13741)/dV(4485) - B(21812) = RCT(13741)*V(5253) -! B(21813) = dA(13741)/dV(5253) - B(21813) = RCT(13741)*V(4485) -! B(21814) = dA(13742)/dV(4485) - B(21814) = RCT(13742)*V(5256) -! B(21815) = dA(13742)/dV(5256) - B(21815) = RCT(13742)*V(4485) -! B(21816) = dA(13743)/dV(4485) - B(21816) = RCT(13743) -! B(21817) = dA(13744)/dV(4485) - B(21817) = RCT(13744) -! B(21818) = dA(13745)/dV(4142) - B(21818) = RCT(13745)*V(5255) -! B(21819) = dA(13745)/dV(5255) - B(21819) = RCT(13745)*V(4142) -! B(21820) = dA(13746)/dV(4142) - B(21820) = RCT(13746)*V(5252) -! B(21821) = dA(13746)/dV(5252) - B(21821) = RCT(13746)*V(4142) -! B(21822) = dA(13747)/dV(4142) - B(21822) = RCT(13747)*V(5256) -! B(21823) = dA(13747)/dV(5256) - B(21823) = RCT(13747)*V(4142) -! B(21824) = dA(13748)/dV(4142) - B(21824) = RCT(13748) -! B(21825) = dA(13749)/dV(4142) - B(21825) = RCT(13749) -! B(21826) = dA(13750)/dV(4142) - B(21826) = RCT(13750) -! B(21827) = dA(13751)/dV(1929) - B(21827) = RCT(13751)*V(5250) -! B(21828) = dA(13751)/dV(5250) - B(21828) = RCT(13751)*V(1929) -! B(21829) = dA(13752)/dV(1929) - B(21829) = RCT(13752) -! B(21830) = dA(13753)/dV(942) - B(21830) = RCT(13753)*V(5250) -! B(21831) = dA(13753)/dV(5250) - B(21831) = RCT(13753)*V(942) -! B(21832) = dA(13754)/dV(942) - B(21832) = RCT(13754) -! B(21833) = dA(13755)/dV(2532) - B(21833) = RCT(13755)*V(5250) -! B(21834) = dA(13755)/dV(5250) - B(21834) = RCT(13755)*V(2532) -! B(21835) = dA(13756)/dV(2532) - B(21835) = RCT(13756) -! B(21836) = dA(13757)/dV(2056) - B(21836) = RCT(13757) -! B(21837) = dA(13758)/dV(418) - B(21837) = RCT(13758)*V(5250) -! B(21838) = dA(13758)/dV(5250) - B(21838) = RCT(13758)*V(418) -! B(21839) = dA(13759)/dV(418) - B(21839) = RCT(13759) -! B(21840) = dA(13760)/dV(4659) - B(21840) = RCT(13760)*V(5255) -! B(21841) = dA(13760)/dV(5255) - B(21841) = RCT(13760)*V(4659) -! B(21842) = dA(13761)/dV(4659) - B(21842) = RCT(13761)*V(5255) -! B(21843) = dA(13761)/dV(5255) - B(21843) = RCT(13761)*V(4659) -! B(21844) = dA(13762)/dV(4659) - B(21844) = RCT(13762)*V(5255) -! B(21845) = dA(13762)/dV(5255) - B(21845) = RCT(13762)*V(4659) -! B(21846) = dA(13763)/dV(4659) - B(21846) = RCT(13763)*V(5252) -! B(21847) = dA(13763)/dV(5252) - B(21847) = RCT(13763)*V(4659) -! B(21848) = dA(13764)/dV(4659) - B(21848) = RCT(13764)*V(5253) -! B(21849) = dA(13764)/dV(5253) - B(21849) = RCT(13764)*V(4659) -! B(21850) = dA(13765)/dV(4659) - B(21850) = RCT(13765)*V(5256) -! B(21851) = dA(13765)/dV(5256) - B(21851) = RCT(13765)*V(4659) -! B(21852) = dA(13766)/dV(4659) - B(21852) = RCT(13766) -! B(21853) = dA(13767)/dV(4418) - B(21853) = RCT(13767)*V(5255) -! B(21854) = dA(13767)/dV(5255) - B(21854) = RCT(13767)*V(4418) -! B(21855) = dA(13768)/dV(4418) - B(21855) = RCT(13768)*V(5252) -! B(21856) = dA(13768)/dV(5252) - B(21856) = RCT(13768)*V(4418) -! B(21857) = dA(13769)/dV(4418) - B(21857) = RCT(13769)*V(5256) -! B(21858) = dA(13769)/dV(5256) - B(21858) = RCT(13769)*V(4418) -! B(21859) = dA(13770)/dV(4418) - B(21859) = RCT(13770) -! B(21860) = dA(13771)/dV(4418) - B(21860) = RCT(13771) -! B(21861) = dA(13772)/dV(4418) - B(21861) = RCT(13772) -! B(21862) = dA(13773)/dV(2017) - B(21862) = RCT(13773)*V(5250) -! B(21863) = dA(13773)/dV(5250) - B(21863) = RCT(13773)*V(2017) -! B(21864) = dA(13774)/dV(2017) - B(21864) = RCT(13774) -! B(21865) = dA(13775)/dV(2017) - B(21865) = RCT(13775) -! B(21866) = dA(13776)/dV(553) - B(21866) = RCT(13776) -! B(21867) = dA(13777)/dV(1643) - B(21867) = RCT(13777)*V(5250) -! B(21868) = dA(13777)/dV(5250) - B(21868) = RCT(13777)*V(1643) -! B(21869) = dA(13778)/dV(1731) - B(21869) = RCT(13778)*V(5250) -! B(21870) = dA(13778)/dV(5250) - B(21870) = RCT(13778)*V(1731) -! B(21871) = dA(13779)/dV(1731) - B(21871) = RCT(13779) -! B(21872) = dA(13780)/dV(1350) - B(21872) = RCT(13780)*V(5250) -! B(21873) = dA(13780)/dV(5250) - B(21873) = RCT(13780)*V(1350) -! B(21874) = dA(13781)/dV(1350) - B(21874) = RCT(13781) -! B(21875) = dA(13782)/dV(4371) - B(21875) = RCT(13782)*V(5255) -! B(21876) = dA(13782)/dV(5255) - B(21876) = RCT(13782)*V(4371) -! B(21877) = dA(13783)/dV(4371) - B(21877) = RCT(13783)*V(5252) -! B(21878) = dA(13783)/dV(5252) - B(21878) = RCT(13783)*V(4371) -! B(21879) = dA(13784)/dV(4371) - B(21879) = RCT(13784)*V(5256) -! B(21880) = dA(13784)/dV(5256) - B(21880) = RCT(13784)*V(4371) -! B(21881) = dA(13785)/dV(4371) - B(21881) = RCT(13785) -! B(21882) = dA(13786)/dV(3436) - B(21882) = RCT(13786)*V(5250) -! B(21883) = dA(13786)/dV(5250) - B(21883) = RCT(13786)*V(3436) -! B(21884) = dA(13787)/dV(3436) - B(21884) = RCT(13787) -! B(21885) = dA(13788)/dV(4439) - B(21885) = RCT(13788)*V(5255) -! B(21886) = dA(13788)/dV(5255) - B(21886) = RCT(13788)*V(4439) -! B(21887) = dA(13789)/dV(4439) - B(21887) = RCT(13789)*V(5255) -! B(21888) = dA(13789)/dV(5255) - B(21888) = RCT(13789)*V(4439) -! B(21889) = dA(13790)/dV(4439) - B(21889) = RCT(13790)*V(5252) -! B(21890) = dA(13790)/dV(5252) - B(21890) = RCT(13790)*V(4439) -! B(21891) = dA(13791)/dV(4439) - B(21891) = RCT(13791)*V(5253) -! B(21892) = dA(13791)/dV(5253) - B(21892) = RCT(13791)*V(4439) -! B(21893) = dA(13792)/dV(4439) - B(21893) = RCT(13792)*V(5256) -! B(21894) = dA(13792)/dV(5256) - B(21894) = RCT(13792)*V(4439) -! B(21895) = dA(13793)/dV(4439) - B(21895) = RCT(13793) -! B(21896) = dA(13794)/dV(4752) - B(21896) = RCT(13794)*V(5255) -! B(21897) = dA(13794)/dV(5255) - B(21897) = RCT(13794)*V(4752) -! B(21898) = dA(13795)/dV(4752) - B(21898) = RCT(13795)*V(5255) -! B(21899) = dA(13795)/dV(5255) - B(21899) = RCT(13795)*V(4752) -! B(21900) = dA(13796)/dV(4752) - B(21900) = RCT(13796)*V(5255) -! B(21901) = dA(13796)/dV(5255) - B(21901) = RCT(13796)*V(4752) -! B(21902) = dA(13797)/dV(4752) - B(21902) = RCT(13797)*V(5252) -! B(21903) = dA(13797)/dV(5252) - B(21903) = RCT(13797)*V(4752) -! B(21904) = dA(13798)/dV(4752) - B(21904) = RCT(13798)*V(5253) -! B(21905) = dA(13798)/dV(5253) - B(21905) = RCT(13798)*V(4752) -! B(21906) = dA(13799)/dV(4752) - B(21906) = RCT(13799)*V(5256) -! B(21907) = dA(13799)/dV(5256) - B(21907) = RCT(13799)*V(4752) -! B(21908) = dA(13800)/dV(4752) - B(21908) = RCT(13800) -! B(21909) = dA(13801)/dV(4752) - B(21909) = RCT(13801) -! B(21910) = dA(13802)/dV(4019) - B(21910) = RCT(13802)*V(5255) -! B(21911) = dA(13802)/dV(5255) - B(21911) = RCT(13802)*V(4019) -! B(21912) = dA(13803)/dV(4019) - B(21912) = RCT(13803)*V(5252) -! B(21913) = dA(13803)/dV(5252) - B(21913) = RCT(13803)*V(4019) -! B(21914) = dA(13804)/dV(4019) - B(21914) = RCT(13804)*V(5252) -! B(21915) = dA(13804)/dV(5252) - B(21915) = RCT(13804)*V(4019) -! B(21916) = dA(13805)/dV(4019) - B(21916) = RCT(13805)*V(5256) -! B(21917) = dA(13805)/dV(5256) - B(21917) = RCT(13805)*V(4019) -! B(21918) = dA(13806)/dV(4019) - B(21918) = RCT(13806) -! B(21919) = dA(13807)/dV(4019) - B(21919) = RCT(13807) -! B(21920) = dA(13808)/dV(4019) - B(21920) = RCT(13808) -! B(21921) = dA(13809)/dV(984) - B(21921) = RCT(13809)*V(5250) -! B(21922) = dA(13809)/dV(5250) - B(21922) = RCT(13809)*V(984) -! B(21923) = dA(13810)/dV(984) - B(21923) = RCT(13810) -! B(21924) = dA(13811)/dV(2750) - B(21924) = RCT(13811) -! B(21925) = dA(13812)/dV(662) - B(21925) = RCT(13812)*V(5250) -! B(21926) = dA(13812)/dV(5250) - B(21926) = RCT(13812)*V(662) -! B(21927) = dA(13813)/dV(4242) - B(21927) = RCT(13813)*V(5255) -! B(21928) = dA(13813)/dV(5255) - B(21928) = RCT(13813)*V(4242) -! B(21929) = dA(13814)/dV(4242) - B(21929) = RCT(13814)*V(5252) -! B(21930) = dA(13814)/dV(5252) - B(21930) = RCT(13814)*V(4242) -! B(21931) = dA(13815)/dV(4242) - B(21931) = RCT(13815)*V(5256) -! B(21932) = dA(13815)/dV(5256) - B(21932) = RCT(13815)*V(4242) -! B(21933) = dA(13816)/dV(4242) - B(21933) = RCT(13816) -! B(21934) = dA(13817)/dV(4242) - B(21934) = RCT(13817) -! B(21935) = dA(13818)/dV(1272) - B(21935) = RCT(13818)*V(5250) -! B(21936) = dA(13818)/dV(5250) - B(21936) = RCT(13818)*V(1272) -! B(21937) = dA(13819)/dV(1272) - B(21937) = RCT(13819) -! B(21938) = dA(13820)/dV(2007) - B(21938) = RCT(13820)*V(5250) -! B(21939) = dA(13820)/dV(5250) - B(21939) = RCT(13820)*V(2007) -! B(21940) = dA(13821)/dV(2561) - B(21940) = RCT(13821) -! B(21941) = dA(13822)/dV(793) - B(21941) = RCT(13822)*V(5250) -! B(21942) = dA(13822)/dV(5250) - B(21942) = RCT(13822)*V(793) -! B(21943) = dA(13823)/dV(1126) - B(21943) = RCT(13823)*V(5250) -! B(21944) = dA(13823)/dV(5250) - B(21944) = RCT(13823)*V(1126) -! B(21945) = dA(13824)/dV(1126) - B(21945) = RCT(13824) -! B(21946) = dA(13825)/dV(2072) - B(21946) = RCT(13825)*V(5250) -! B(21947) = dA(13825)/dV(5250) - B(21947) = RCT(13825)*V(2072) -! B(21948) = dA(13826)/dV(2072) - B(21948) = RCT(13826) -! B(21949) = dA(13827)/dV(2073) - B(21949) = RCT(13827) -! B(21950) = dA(13828)/dV(5189) - B(21950) = RCT(13828)*V(5256) -! B(21951) = dA(13828)/dV(5256) - B(21951) = RCT(13828)*V(5189) -! B(21952) = dA(13829)/dV(5189) - B(21952) = RCT(13829)*V(5256) -! B(21953) = dA(13829)/dV(5256) - B(21953) = RCT(13829)*V(5189) -! B(21954) = dA(13830)/dV(5189) - B(21954) = RCT(13830)*V(5258) -! B(21955) = dA(13830)/dV(5258) - B(21955) = RCT(13830)*V(5189) -! B(21956) = dA(13831)/dV(5189) - B(21956) = RCT(13831)*V(5258) -! B(21957) = dA(13831)/dV(5258) - B(21957) = RCT(13831)*V(5189) -! B(21958) = dA(13832)/dV(5189) - B(21958) = RCT(13832)*V(5250) -! B(21959) = dA(13832)/dV(5250) - B(21959) = RCT(13832)*V(5189) -! B(21960) = dA(13833)/dV(5189) - B(21960) = RCT(13833)*V(5250) -! B(21961) = dA(13833)/dV(5250) - B(21961) = RCT(13833)*V(5189) -! B(21962) = dA(13834)/dV(5189) - B(21962) = RCT(13834) -! B(21963) = dA(13835)/dV(465) - B(21963) = RCT(13835)*V(5250) -! B(21964) = dA(13835)/dV(5250) - B(21964) = RCT(13835)*V(465) -! B(21965) = dA(13836)/dV(4098) - B(21965) = RCT(13836)*V(5255) -! B(21966) = dA(13836)/dV(5255) - B(21966) = RCT(13836)*V(4098) -! B(21967) = dA(13837)/dV(4098) - B(21967) = RCT(13837)*V(5252) -! B(21968) = dA(13837)/dV(5252) - B(21968) = RCT(13837)*V(4098) -! B(21969) = dA(13838)/dV(4098) - B(21969) = RCT(13838)*V(5256) -! B(21970) = dA(13838)/dV(5256) - B(21970) = RCT(13838)*V(4098) -! B(21971) = dA(13839)/dV(4098) - B(21971) = RCT(13839) -! B(21972) = dA(13840)/dV(4098) - B(21972) = RCT(13840) -! B(21973) = dA(13841)/dV(4098) - B(21973) = RCT(13841) -! B(21974) = dA(13842)/dV(1070) - B(21974) = RCT(13842)*V(5250) -! B(21975) = dA(13842)/dV(5250) - B(21975) = RCT(13842)*V(1070) -! B(21976) = dA(13843)/dV(1070) - B(21976) = RCT(13843) -! B(21977) = dA(13844)/dV(2063) - B(21977) = RCT(13844)*V(5250) -! B(21978) = dA(13844)/dV(5250) - B(21978) = RCT(13844)*V(2063) -! B(21979) = dA(13845)/dV(2063) - B(21979) = RCT(13845) -! B(21980) = dA(13846)/dV(168) - B(21980) = RCT(13846) -! B(21981) = dA(13847)/dV(3270) - B(21981) = RCT(13847)*V(5250) -! B(21982) = dA(13847)/dV(5250) - B(21982) = RCT(13847)*V(3270) -! B(21983) = dA(13848)/dV(3270) - B(21983) = RCT(13848) -! B(21984) = dA(13849)/dV(478) - B(21984) = RCT(13849)*V(5250) -! B(21985) = dA(13849)/dV(5250) - B(21985) = RCT(13849)*V(478) -! B(21986) = dA(13850)/dV(2062) - B(21986) = RCT(13850)*V(5250) -! B(21987) = dA(13850)/dV(5250) - B(21987) = RCT(13850)*V(2062) -! B(21988) = dA(13851)/dV(2062) - B(21988) = RCT(13851) -! B(21989) = dA(13852)/dV(704) - B(21989) = RCT(13852) -! B(21990) = dA(13853)/dV(1617) - B(21990) = RCT(13853) -! B(21991) = dA(13854)/dV(1617) - B(21991) = RCT(13854) -! B(21992) = dA(13855)/dV(515) - B(21992) = RCT(13855)*V(5250) -! B(21993) = dA(13855)/dV(5250) - B(21993) = RCT(13855)*V(515) -! B(21994) = dA(13856)/dV(1511) - B(21994) = RCT(13856)*V(5250) -! B(21995) = dA(13856)/dV(5250) - B(21995) = RCT(13856)*V(1511) -! B(21996) = dA(13857)/dV(1511) - B(21996) = RCT(13857) -! B(21997) = dA(13858)/dV(2688) - B(21997) = RCT(13858)*V(5250) -! B(21998) = dA(13858)/dV(5250) - B(21998) = RCT(13858)*V(2688) -! B(21999) = dA(13859)/dV(2688) - B(21999) = RCT(13859) -! B(22000) = dA(13860)/dV(1119) - B(22000) = RCT(13860)*V(5250) -! B(22001) = dA(13860)/dV(5250) - B(22001) = RCT(13860)*V(1119) -! B(22002) = dA(13861)/dV(1119) - B(22002) = RCT(13861) -! B(22003) = dA(13862)/dV(1551) - B(22003) = RCT(13862)*V(5250) -! B(22004) = dA(13862)/dV(5250) - B(22004) = RCT(13862)*V(1551) -! B(22005) = dA(13863)/dV(1551) - B(22005) = RCT(13863) -! B(22006) = dA(13864)/dV(174) - B(22006) = RCT(13864) -! B(22007) = dA(13865)/dV(1550) - B(22007) = RCT(13865)*V(5250) -! B(22008) = dA(13865)/dV(5250) - B(22008) = RCT(13865)*V(1550) -! B(22009) = dA(13866)/dV(257) - B(22009) = RCT(13866)*V(5250) -! B(22010) = dA(13866)/dV(5250) - B(22010) = RCT(13866)*V(257) -! B(22011) = dA(13867)/dV(4652) - B(22011) = RCT(13867)*V(5255) -! B(22012) = dA(13867)/dV(5255) - B(22012) = RCT(13867)*V(4652) -! B(22013) = dA(13868)/dV(4652) - B(22013) = RCT(13868)*V(5255) -! B(22014) = dA(13868)/dV(5255) - B(22014) = RCT(13868)*V(4652) -! B(22015) = dA(13869)/dV(4652) - B(22015) = RCT(13869)*V(5255) -! B(22016) = dA(13869)/dV(5255) - B(22016) = RCT(13869)*V(4652) -! B(22017) = dA(13870)/dV(4652) - B(22017) = RCT(13870)*V(5252) -! B(22018) = dA(13870)/dV(5252) - B(22018) = RCT(13870)*V(4652) -! B(22019) = dA(13871)/dV(4652) - B(22019) = RCT(13871)*V(5253) -! B(22020) = dA(13871)/dV(5253) - B(22020) = RCT(13871)*V(4652) -! B(22021) = dA(13872)/dV(4652) - B(22021) = RCT(13872)*V(5256) -! B(22022) = dA(13872)/dV(5256) - B(22022) = RCT(13872)*V(4652) -! B(22023) = dA(13873)/dV(4652) - B(22023) = RCT(13873) -! B(22024) = dA(13874)/dV(4652) - B(22024) = RCT(13874) -! B(22025) = dA(13875)/dV(4825) - B(22025) = RCT(13875)*V(5255) -! B(22026) = dA(13875)/dV(5255) - B(22026) = RCT(13875)*V(4825) -! B(22027) = dA(13876)/dV(4825) - B(22027) = RCT(13876)*V(5252) -! B(22028) = dA(13876)/dV(5252) - B(22028) = RCT(13876)*V(4825) -! B(22029) = dA(13877)/dV(4825) - B(22029) = RCT(13877)*V(5252) -! B(22030) = dA(13877)/dV(5252) - B(22030) = RCT(13877)*V(4825) -! B(22031) = dA(13878)/dV(4825) - B(22031) = RCT(13878)*V(5256) -! B(22032) = dA(13878)/dV(5256) - B(22032) = RCT(13878)*V(4825) -! B(22033) = dA(13879)/dV(4825) - B(22033) = RCT(13879) -! B(22034) = dA(13880)/dV(4825) - B(22034) = RCT(13880) -! B(22035) = dA(13881)/dV(4825) - B(22035) = RCT(13881) -! B(22036) = dA(13882)/dV(1004) - B(22036) = RCT(13882)*V(5250) -! B(22037) = dA(13882)/dV(5250) - B(22037) = RCT(13882)*V(1004) -! B(22038) = dA(13883)/dV(1004) - B(22038) = RCT(13883) -! B(22039) = dA(13884)/dV(2157) - B(22039) = RCT(13884)*V(5250) -! B(22040) = dA(13884)/dV(5250) - B(22040) = RCT(13884)*V(2157) -! B(22041) = dA(13885)/dV(2157) - B(22041) = RCT(13885) -! B(22042) = dA(13886)/dV(151) - B(22042) = RCT(13886) -! B(22043) = dA(13887)/dV(3213) - B(22043) = RCT(13887)*V(5250) -! B(22044) = dA(13887)/dV(5250) - B(22044) = RCT(13887)*V(3213) -! B(22045) = dA(13888)/dV(3213) - B(22045) = RCT(13888) -! B(22046) = dA(13889)/dV(409) - B(22046) = RCT(13889)*V(5250) -! B(22047) = dA(13889)/dV(5250) - B(22047) = RCT(13889)*V(409) -! B(22048) = dA(13890)/dV(1149) - B(22048) = RCT(13890)*V(5250) -! B(22049) = dA(13890)/dV(5250) - B(22049) = RCT(13890)*V(1149) -! B(22050) = dA(13891)/dV(1149) - B(22050) = RCT(13891) -! B(22051) = dA(13892)/dV(1591) - B(22051) = RCT(13892)*V(5250) -! B(22052) = dA(13892)/dV(5250) - B(22052) = RCT(13892)*V(1591) -! B(22053) = dA(13893)/dV(1591) - B(22053) = RCT(13893) -! B(22054) = dA(13894)/dV(190) - B(22054) = RCT(13894) -! B(22055) = dA(13895)/dV(1590) - B(22055) = RCT(13895)*V(5250) -! B(22056) = dA(13895)/dV(5250) - B(22056) = RCT(13895)*V(1590) -! B(22057) = dA(13896)/dV(266) - B(22057) = RCT(13896)*V(5250) -! B(22058) = dA(13896)/dV(5250) - B(22058) = RCT(13896)*V(266) -! B(22059) = dA(13897)/dV(1801) - B(22059) = RCT(13897)*V(5250) -! B(22060) = dA(13897)/dV(5250) - B(22060) = RCT(13897)*V(1801) -! B(22061) = dA(13898)/dV(1801) - B(22061) = RCT(13898) -! B(22062) = dA(13899)/dV(2524) - B(22062) = RCT(13899)*V(5250) -! B(22063) = dA(13899)/dV(5250) - B(22063) = RCT(13899)*V(2524) -! B(22064) = dA(13900)/dV(2524) - B(22064) = RCT(13900) -! B(22065) = dA(13901)/dV(1614) - B(22065) = RCT(13901) -! B(22066) = dA(13902)/dV(813) - B(22066) = RCT(13902)*V(5250) -! B(22067) = dA(13902)/dV(5250) - B(22067) = RCT(13902)*V(813) -! B(22068) = dA(13903)/dV(1331) - B(22068) = RCT(13903)*V(5250) -! B(22069) = dA(13903)/dV(5250) - B(22069) = RCT(13903)*V(1331) -! B(22070) = dA(13904)/dV(1331) - B(22070) = RCT(13904) -! B(22071) = dA(13905)/dV(2195) - B(22071) = RCT(13905)*V(5250) -! B(22072) = dA(13905)/dV(5250) - B(22072) = RCT(13905)*V(2195) -! B(22073) = dA(13906)/dV(2195) - B(22073) = RCT(13906) -! B(22074) = dA(13907)/dV(211) - B(22074) = RCT(13907) -! B(22075) = dA(13908)/dV(108) - B(22075) = RCT(13908)*V(5250) -! B(22076) = dA(13908)/dV(5250) - B(22076) = RCT(13908)*V(108) -! B(22077) = dA(13909)/dV(378) - B(22077) = RCT(13909)*V(5250) -! B(22078) = dA(13909)/dV(5250) - B(22078) = RCT(13909)*V(378) -! B(22079) = dA(13910)/dV(1480) - B(22079) = RCT(13910)*V(5250) -! B(22080) = dA(13910)/dV(5250) - B(22080) = RCT(13910)*V(1480) -! B(22081) = dA(13911)/dV(1480) - B(22081) = RCT(13911) -! B(22082) = dA(13912)/dV(3722) - B(22082) = RCT(13912)*V(5255) -! B(22083) = dA(13912)/dV(5255) - B(22083) = RCT(13912)*V(3722) -! B(22084) = dA(13913)/dV(3722) - B(22084) = RCT(13913)*V(5252) -! B(22085) = dA(13913)/dV(5252) - B(22085) = RCT(13913)*V(3722) -! B(22086) = dA(13914)/dV(3722) - B(22086) = RCT(13914)*V(5252) -! B(22087) = dA(13914)/dV(5252) - B(22087) = RCT(13914)*V(3722) -! B(22088) = dA(13915)/dV(3722) - B(22088) = RCT(13915)*V(5256) -! B(22089) = dA(13915)/dV(5256) - B(22089) = RCT(13915)*V(3722) -! B(22090) = dA(13916)/dV(3722) - B(22090) = RCT(13916) -! B(22091) = dA(13917)/dV(3722) - B(22091) = RCT(13917) -! B(22092) = dA(13918)/dV(3722) - B(22092) = RCT(13918) -! B(22093) = dA(13919)/dV(2829) - B(22093) = RCT(13919)*V(5250) -! B(22094) = dA(13919)/dV(5250) - B(22094) = RCT(13919)*V(2829) -! B(22095) = dA(13920)/dV(2829) - B(22095) = RCT(13920) -! B(22096) = dA(13921)/dV(3420) - B(22096) = RCT(13921)*V(5250) -! B(22097) = dA(13921)/dV(5250) - B(22097) = RCT(13921)*V(3420) -! B(22098) = dA(13922)/dV(3420) - B(22098) = RCT(13922) -! B(22099) = dA(13923)/dV(4172) - B(22099) = RCT(13923)*V(5255) -! B(22100) = dA(13923)/dV(5255) - B(22100) = RCT(13923)*V(4172) -! B(22101) = dA(13924)/dV(4172) - B(22101) = RCT(13924)*V(5252) -! B(22102) = dA(13924)/dV(5252) - B(22102) = RCT(13924)*V(4172) -! B(22103) = dA(13925)/dV(4172) - B(22103) = RCT(13925)*V(5252) -! B(22104) = dA(13925)/dV(5252) - B(22104) = RCT(13925)*V(4172) -! B(22105) = dA(13926)/dV(4172) - B(22105) = RCT(13926)*V(5256) -! B(22106) = dA(13926)/dV(5256) - B(22106) = RCT(13926)*V(4172) -! B(22107) = dA(13927)/dV(4172) - B(22107) = RCT(13927) -! B(22108) = dA(13928)/dV(4172) - B(22108) = RCT(13928) -! B(22109) = dA(13929)/dV(4172) - B(22109) = RCT(13929) -! B(22110) = dA(13930)/dV(965) - B(22110) = RCT(13930)*V(5250) -! B(22111) = dA(13930)/dV(5250) - B(22111) = RCT(13930)*V(965) -! B(22112) = dA(13931)/dV(965) - B(22112) = RCT(13931) -! B(22113) = dA(13932)/dV(1620) - B(22113) = RCT(13932) -! B(22114) = dA(13933)/dV(118) - B(22114) = RCT(13933)*V(5250) -! B(22115) = dA(13933)/dV(5250) - B(22115) = RCT(13933)*V(118) -! B(22116) = dA(13934)/dV(883) - B(22116) = RCT(13934)*V(5250) -! B(22117) = dA(13934)/dV(5250) - B(22117) = RCT(13934)*V(883) -! B(22118) = dA(13935)/dV(883) - B(22118) = RCT(13935) -! B(22119) = dA(13936)/dV(2621) - B(22119) = RCT(13936)*V(5250) -! B(22120) = dA(13936)/dV(5250) - B(22120) = RCT(13936)*V(2621) -! B(22121) = dA(13937)/dV(2621) - B(22121) = RCT(13937) -! B(22122) = dA(13938)/dV(2293) - B(22122) = RCT(13938) -! B(22123) = dA(13939)/dV(99) - B(22123) = RCT(13939)*V(5250) -! B(22124) = dA(13939)/dV(5250) - B(22124) = RCT(13939)*V(99) -! B(22125) = dA(13940)/dV(1333) - B(22125) = RCT(13940)*V(5250) -! B(22126) = dA(13940)/dV(5250) - B(22126) = RCT(13940)*V(1333) -! B(22127) = dA(13941)/dV(1333) - B(22127) = RCT(13941) -! B(22128) = dA(13942)/dV(113) - B(22128) = RCT(13942) -! B(22129) = dA(13943)/dV(213) - B(22129) = RCT(13943)*V(5250) -! B(22130) = dA(13943)/dV(5250) - B(22130) = RCT(13943)*V(213) -! B(22131) = dA(13944)/dV(2975) - B(22131) = RCT(13944)*V(5250) -! B(22132) = dA(13944)/dV(5250) - B(22132) = RCT(13944)*V(2975) -! B(22133) = dA(13945)/dV(2975) - B(22133) = RCT(13945) -! B(22134) = dA(13946)/dV(2975) - B(22134) = RCT(13946) -! B(22135) = dA(13947)/dV(2210) - B(22135) = RCT(13947) -! B(22136) = dA(13948)/dV(902) - B(22136) = RCT(13948)*V(5250) -! B(22137) = dA(13948)/dV(5250) - B(22137) = RCT(13948)*V(902) -! B(22138) = dA(13949)/dV(902) - B(22138) = RCT(13949) -! B(22139) = dA(13950)/dV(2724) - B(22139) = RCT(13950) -! B(22140) = dA(13951)/dV(4207) - B(22140) = RCT(13951)*V(5255) -! B(22141) = dA(13951)/dV(5255) - B(22141) = RCT(13951)*V(4207) -! B(22142) = dA(13952)/dV(4207) - B(22142) = RCT(13952)*V(5255) -! B(22143) = dA(13952)/dV(5255) - B(22143) = RCT(13952)*V(4207) -! B(22144) = dA(13953)/dV(4207) - B(22144) = RCT(13953)*V(5252) -! B(22145) = dA(13953)/dV(5252) - B(22145) = RCT(13953)*V(4207) -! B(22146) = dA(13954)/dV(4207) - B(22146) = RCT(13954)*V(5253) -! B(22147) = dA(13954)/dV(5253) - B(22147) = RCT(13954)*V(4207) -! B(22148) = dA(13955)/dV(4207) - B(22148) = RCT(13955)*V(5256) -! B(22149) = dA(13955)/dV(5256) - B(22149) = RCT(13955)*V(4207) -! B(22150) = dA(13956)/dV(4207) - B(22150) = RCT(13956) -! B(22151) = dA(13957)/dV(1236) - B(22151) = RCT(13957) -! B(22152) = dA(13958)/dV(1236) - B(22152) = RCT(13958)*V(5250) -! B(22153) = dA(13958)/dV(5250) - B(22153) = RCT(13958)*V(1236) -! B(22154) = dA(13959)/dV(2845) - B(22154) = RCT(13959) -! B(22155) = dA(13960)/dV(2845) - B(22155) = RCT(13960)*V(5250) -! B(22156) = dA(13960)/dV(5250) - B(22156) = RCT(13960)*V(2845) -! B(22157) = dA(13961)/dV(1759) - B(22157) = RCT(13961) -! B(22158) = dA(13962)/dV(1759) - B(22158) = RCT(13962) -! B(22159) = dA(13963)/dV(1759) - B(22159) = RCT(13963)*V(5250) -! B(22160) = dA(13963)/dV(5250) - B(22160) = RCT(13963)*V(1759) -! B(22161) = dA(13964)/dV(545) - B(22161) = RCT(13964) -! B(22162) = dA(13965)/dV(2930) - B(22162) = RCT(13965) -! B(22163) = dA(13966)/dV(2930) - B(22163) = RCT(13966) -! B(22164) = dA(13967)/dV(2930) - B(22164) = RCT(13967)*V(5250) -! B(22165) = dA(13967)/dV(5250) - B(22165) = RCT(13967)*V(2930) -! B(22166) = dA(13968)/dV(2201) - B(22166) = RCT(13968) -! B(22167) = dA(13969)/dV(3274) - B(22167) = RCT(13969) -! B(22168) = dA(13970)/dV(3274) - B(22168) = RCT(13970) -! B(22169) = dA(13971)/dV(3274) - B(22169) = RCT(13971)*V(5250) -! B(22170) = dA(13971)/dV(5250) - B(22170) = RCT(13971)*V(3274) -! B(22171) = dA(13972)/dV(2024) - B(22171) = RCT(13972) -! B(22172) = dA(13973)/dV(3899) - B(22172) = RCT(13973)*V(5255) -! B(22173) = dA(13973)/dV(5255) - B(22173) = RCT(13973)*V(3899) -! B(22174) = dA(13974)/dV(3899) - B(22174) = RCT(13974)*V(5252) -! B(22175) = dA(13974)/dV(5252) - B(22175) = RCT(13974)*V(3899) -! B(22176) = dA(13975)/dV(3899) - B(22176) = RCT(13975)*V(5256) -! B(22177) = dA(13975)/dV(5256) - B(22177) = RCT(13975)*V(3899) -! B(22178) = dA(13976)/dV(3899) - B(22178) = RCT(13976) -! B(22179) = dA(13977)/dV(1268) - B(22179) = RCT(13977) -! B(22180) = dA(13978)/dV(1268) - B(22180) = RCT(13978)*V(5250) -! B(22181) = dA(13978)/dV(5250) - B(22181) = RCT(13978)*V(1268) -! B(22182) = dA(13979)/dV(2960) - B(22182) = RCT(13979) -! B(22183) = dA(13980)/dV(1137) - B(22183) = RCT(13980) -! B(22184) = dA(13981)/dV(1137) - B(22184) = RCT(13981)*V(5250) -! B(22185) = dA(13981)/dV(5250) - B(22185) = RCT(13981)*V(1137) -! B(22186) = dA(13982)/dV(3073) - B(22186) = RCT(13982) -! B(22187) = dA(13983)/dV(960) - B(22187) = RCT(13983) -! B(22188) = dA(13984)/dV(960) - B(22188) = RCT(13984)*V(5250) -! B(22189) = dA(13984)/dV(5250) - B(22189) = RCT(13984)*V(960) -! B(22190) = dA(13985)/dV(2751) - B(22190) = RCT(13985) -! B(22191) = dA(13986)/dV(1271) - B(22191) = RCT(13986) -! B(22192) = dA(13987)/dV(1271) - B(22192) = RCT(13987)*V(5250) -! B(22193) = dA(13987)/dV(5250) - B(22193) = RCT(13987)*V(1271) -! B(22194) = dA(13988)/dV(2853) - B(22194) = RCT(13988) -! B(22195) = dA(13989)/dV(1338) - B(22195) = RCT(13989) -! B(22196) = dA(13990)/dV(1338) - B(22196) = RCT(13990)*V(5250) -! B(22197) = dA(13990)/dV(5250) - B(22197) = RCT(13990)*V(1338) -! B(22198) = dA(13991)/dV(3058) - B(22198) = RCT(13991) -! B(22199) = dA(13992)/dV(2763) - B(22199) = RCT(13992)*V(5250) -! B(22200) = dA(13992)/dV(5250) - B(22200) = RCT(13992)*V(2763) -! B(22201) = dA(13993)/dV(2763) - B(22201) = RCT(13993) -! B(22202) = dA(13994)/dV(2529) - B(22202) = RCT(13994)*V(5250) -! B(22203) = dA(13994)/dV(5250) - B(22203) = RCT(13994)*V(2529) -! B(22204) = dA(13995)/dV(2529) - B(22204) = RCT(13995) -! B(22205) = dA(13996)/dV(2414) - B(22205) = RCT(13996)*V(5250) -! B(22206) = dA(13996)/dV(5250) - B(22206) = RCT(13996)*V(2414) -! B(22207) = dA(13997)/dV(2414) - B(22207) = RCT(13997) -! B(22208) = dA(13998)/dV(2859) - B(22208) = RCT(13998)*V(5250) -! B(22209) = dA(13998)/dV(5250) - B(22209) = RCT(13998)*V(2859) -! B(22210) = dA(13999)/dV(2859) - B(22210) = RCT(13999) -! B(22211) = dA(14000)/dV(2039) - B(22211) = RCT(14000)*V(5250) -! B(22212) = dA(14000)/dV(5250) - B(22212) = RCT(14000)*V(2039) -! B(22213) = dA(14001)/dV(2039) - B(22213) = RCT(14001) -! B(22214) = dA(14002)/dV(2970) - B(22214) = RCT(14002)*V(5250) -! B(22215) = dA(14002)/dV(5250) - B(22215) = RCT(14002)*V(2970) -! B(22216) = dA(14003)/dV(2970) - B(22216) = RCT(14003) -! B(22217) = dA(14004)/dV(3546) - B(22217) = RCT(14004)*V(5256) -! B(22218) = dA(14004)/dV(5256) - B(22218) = RCT(14004)*V(3546) -! B(22219) = dA(14005)/dV(3546) - B(22219) = RCT(14005)*V(5250) -! B(22220) = dA(14005)/dV(5250) - B(22220) = RCT(14005)*V(3546) -! B(22221) = dA(14006)/dV(3546) - B(22221) = RCT(14006) -! B(22222) = dA(14007)/dV(2652) - B(22222) = RCT(14007)*V(5250) -! B(22223) = dA(14007)/dV(5250) - B(22223) = RCT(14007)*V(2652) -! B(22224) = dA(14008)/dV(2652) - B(22224) = RCT(14008) -! B(22225) = dA(14009)/dV(2998) - B(22225) = RCT(14009)*V(5250) -! B(22226) = dA(14009)/dV(5250) - B(22226) = RCT(14009)*V(2998) -! B(22227) = dA(14010)/dV(2998) - B(22227) = RCT(14010) -! B(22228) = dA(14011)/dV(1982) - B(22228) = RCT(14011)*V(5250) -! B(22229) = dA(14011)/dV(5250) - B(22229) = RCT(14011)*V(1982) -! B(22230) = dA(14012)/dV(1982) - B(22230) = RCT(14012) -! B(22231) = dA(14013)/dV(2901) - B(22231) = RCT(14013)*V(5250) -! B(22232) = dA(14013)/dV(5250) - B(22232) = RCT(14013)*V(2901) -! B(22233) = dA(14014)/dV(2901) - B(22233) = RCT(14014) -! B(22234) = dA(14015)/dV(75) - B(22234) = RCT(14015)*V(5250) -! B(22235) = dA(14015)/dV(5250) - B(22235) = RCT(14015)*V(75) -! B(22236) = dA(14016)/dV(1879) - B(22236) = RCT(14016)*V(5250) -! B(22237) = dA(14016)/dV(5250) - B(22237) = RCT(14016)*V(1879) -! B(22238) = dA(14017)/dV(1879) - B(22238) = RCT(14017) -! B(22239) = dA(14018)/dV(2721) - B(22239) = RCT(14018)*V(5250) -! B(22240) = dA(14018)/dV(5250) - B(22240) = RCT(14018)*V(2721) -! B(22241) = dA(14019)/dV(2721) - B(22241) = RCT(14019) -! B(22242) = dA(14020)/dV(15) - B(22242) = RCT(14020)*V(5250) -! B(22243) = dA(14020)/dV(5250) - B(22243) = RCT(14020)*V(15) -! B(22244) = dA(14021)/dV(2026) - B(22244) = RCT(14021)*V(5250) -! B(22245) = dA(14021)/dV(5250) - B(22245) = RCT(14021)*V(2026) -! B(22246) = dA(14022)/dV(2026) - B(22246) = RCT(14022) -! B(22247) = dA(14023)/dV(3061) - B(22247) = RCT(14023)*V(5250) -! B(22248) = dA(14023)/dV(5250) - B(22248) = RCT(14023)*V(3061) -! B(22249) = dA(14024)/dV(3061) - B(22249) = RCT(14024) -! B(22250) = dA(14025)/dV(122) - B(22250) = RCT(14025)*V(5250) -! B(22251) = dA(14025)/dV(5250) - B(22251) = RCT(14025)*V(122) -! B(22252) = dA(14026)/dV(4214) - B(22252) = RCT(14026)*V(5255) -! B(22253) = dA(14026)/dV(5255) - B(22253) = RCT(14026)*V(4214) -! B(22254) = dA(14027)/dV(4214) - B(22254) = RCT(14027)*V(5255) -! B(22255) = dA(14027)/dV(5255) - B(22255) = RCT(14027)*V(4214) -! B(22256) = dA(14028)/dV(4214) - B(22256) = RCT(14028)*V(5252) -! B(22257) = dA(14028)/dV(5252) - B(22257) = RCT(14028)*V(4214) -! B(22258) = dA(14029)/dV(4214) - B(22258) = RCT(14029)*V(5253) -! B(22259) = dA(14029)/dV(5253) - B(22259) = RCT(14029)*V(4214) -! B(22260) = dA(14030)/dV(4214) - B(22260) = RCT(14030)*V(5256) -! B(22261) = dA(14030)/dV(5256) - B(22261) = RCT(14030)*V(4214) -! B(22262) = dA(14031)/dV(4214) - B(22262) = RCT(14031) -! B(22263) = dA(14032)/dV(2082) - B(22263) = RCT(14032)*V(5250) -! B(22264) = dA(14032)/dV(5250) - B(22264) = RCT(14032)*V(2082) -! B(22265) = dA(14033)/dV(2082) - B(22265) = RCT(14033) -! B(22266) = dA(14034)/dV(2700) - B(22266) = RCT(14034)*V(5250) -! B(22267) = dA(14034)/dV(5250) - B(22267) = RCT(14034)*V(2700) -! B(22268) = dA(14035)/dV(2700) - B(22268) = RCT(14035) -! B(22269) = dA(14036)/dV(2899) - B(22269) = RCT(14036)*V(5250) -! B(22270) = dA(14036)/dV(5250) - B(22270) = RCT(14036)*V(2899) -! B(22271) = dA(14037)/dV(2899) - B(22271) = RCT(14037) -! B(22272) = dA(14038)/dV(3014) - B(22272) = RCT(14038)*V(5250) -! B(22273) = dA(14038)/dV(5250) - B(22273) = RCT(14038)*V(3014) -! B(22274) = dA(14039)/dV(3014) - B(22274) = RCT(14039) -! B(22275) = dA(14040)/dV(2388) - B(22275) = RCT(14040)*V(5250) -! B(22276) = dA(14040)/dV(5250) - B(22276) = RCT(14040)*V(2388) -! B(22277) = dA(14041)/dV(2388) - B(22277) = RCT(14041) -! B(22278) = dA(14042)/dV(2833) - B(22278) = RCT(14042)*V(5250) -! B(22279) = dA(14042)/dV(5250) - B(22279) = RCT(14042)*V(2833) -! B(22280) = dA(14043)/dV(2833) - B(22280) = RCT(14043) -! B(22281) = dA(14044)/dV(2336) - B(22281) = RCT(14044)*V(5250) -! B(22282) = dA(14044)/dV(5250) - B(22282) = RCT(14044)*V(2336) -! B(22283) = dA(14045)/dV(2336) - B(22283) = RCT(14045) -! B(22284) = dA(14046)/dV(2507) - B(22284) = RCT(14046)*V(5250) -! B(22285) = dA(14046)/dV(5250) - B(22285) = RCT(14046)*V(2507) -! B(22286) = dA(14047)/dV(2507) - B(22286) = RCT(14047) -! B(22287) = dA(14048)/dV(3257) - B(22287) = RCT(14048)*V(5250) -! B(22288) = dA(14048)/dV(5250) - B(22288) = RCT(14048)*V(3257) -! B(22289) = dA(14049)/dV(3257) - B(22289) = RCT(14049) -! B(22290) = dA(14050)/dV(1392) - B(22290) = RCT(14050)*V(5250) -! B(22291) = dA(14050)/dV(5250) - B(22291) = RCT(14050)*V(1392) -! B(22292) = dA(14051)/dV(1392) - B(22292) = RCT(14051) -! B(22293) = dA(14052)/dV(3071) - B(22293) = RCT(14052) -! B(22294) = dA(14053)/dV(1639) - B(22294) = RCT(14053)*V(5250) -! B(22295) = dA(14053)/dV(5250) - B(22295) = RCT(14053)*V(1639) -! B(22296) = dA(14054)/dV(1639) - B(22296) = RCT(14054) -! B(22297) = dA(14055)/dV(4462) - B(22297) = RCT(14055)*V(5256) -! B(22298) = dA(14055)/dV(5256) - B(22298) = RCT(14055)*V(4462) -! B(22299) = dA(14056)/dV(4462) - B(22299) = RCT(14056)*V(5250) -! B(22300) = dA(14056)/dV(5250) - B(22300) = RCT(14056)*V(4462) -! B(22301) = dA(14057)/dV(4462) - B(22301) = RCT(14057) -! B(22302) = dA(14058)/dV(4462) - B(22302) = RCT(14058) -! B(22303) = dA(14059)/dV(2348) - B(22303) = RCT(14059)*V(5250) -! B(22304) = dA(14059)/dV(5250) - B(22304) = RCT(14059)*V(2348) -! B(22305) = dA(14060)/dV(2348) - B(22305) = RCT(14060) -! B(22306) = dA(14061)/dV(795) - B(22306) = RCT(14061) -! B(22307) = dA(14062)/dV(2217) - B(22307) = RCT(14062)*V(5250) -! B(22308) = dA(14062)/dV(5250) - B(22308) = RCT(14062)*V(2217) -! B(22309) = dA(14063)/dV(2217) - B(22309) = RCT(14063) -! B(22310) = dA(14064)/dV(617) - B(22310) = RCT(14064) -! B(22311) = dA(14065)/dV(4902) - B(22311) = RCT(14065)*V(5256) -! B(22312) = dA(14065)/dV(5256) - B(22312) = RCT(14065)*V(4902) -! B(22313) = dA(14066)/dV(4902) - B(22313) = RCT(14066)*V(5250) -! B(22314) = dA(14066)/dV(5250) - B(22314) = RCT(14066)*V(4902) -! B(22315) = dA(14067)/dV(4902) - B(22315) = RCT(14067) -! B(22316) = dA(14068)/dV(1932) - B(22316) = RCT(14068)*V(5250) -! B(22317) = dA(14068)/dV(5250) - B(22317) = RCT(14068)*V(1932) -! B(22318) = dA(14069)/dV(1932) - B(22318) = RCT(14069) -! B(22319) = dA(14070)/dV(714) - B(22319) = RCT(14070) -! B(22320) = dA(14071)/dV(583) - B(22320) = RCT(14071)*V(5250) -! B(22321) = dA(14071)/dV(5250) - B(22321) = RCT(14071)*V(583) -! B(22322) = dA(14072)/dV(583) - B(22322) = RCT(14072) -! B(22323) = dA(14073)/dV(3694) - B(22323) = RCT(14073)*V(5255) -! B(22324) = dA(14073)/dV(5255) - B(22324) = RCT(14073)*V(3694) -! B(22325) = dA(14074)/dV(3694) - B(22325) = RCT(14074)*V(5252) -! B(22326) = dA(14074)/dV(5252) - B(22326) = RCT(14074)*V(3694) -! B(22327) = dA(14075)/dV(3694) - B(22327) = RCT(14075)*V(5256) -! B(22328) = dA(14075)/dV(5256) - B(22328) = RCT(14075)*V(3694) -! B(22329) = dA(14076)/dV(3694) - B(22329) = RCT(14076) -! B(22330) = dA(14077)/dV(3694) - B(22330) = RCT(14077) -! B(22331) = dA(14078)/dV(4496) - B(22331) = RCT(14078)*V(5255) -! B(22332) = dA(14078)/dV(5255) - B(22332) = RCT(14078)*V(4496) -! B(22333) = dA(14079)/dV(4496) - B(22333) = RCT(14079)*V(5255) -! B(22334) = dA(14079)/dV(5255) - B(22334) = RCT(14079)*V(4496) -! B(22335) = dA(14080)/dV(4496) - B(22335) = RCT(14080)*V(5255) -! B(22336) = dA(14080)/dV(5255) - B(22336) = RCT(14080)*V(4496) -! B(22337) = dA(14081)/dV(4496) - B(22337) = RCT(14081)*V(5252) -! B(22338) = dA(14081)/dV(5252) - B(22338) = RCT(14081)*V(4496) -! B(22339) = dA(14082)/dV(4496) - B(22339) = RCT(14082)*V(5253) -! B(22340) = dA(14082)/dV(5253) - B(22340) = RCT(14082)*V(4496) -! B(22341) = dA(14083)/dV(4496) - B(22341) = RCT(14083)*V(5256) -! B(22342) = dA(14083)/dV(5256) - B(22342) = RCT(14083)*V(4496) -! B(22343) = dA(14084)/dV(4496) - B(22343) = RCT(14084) -! B(22344) = dA(14085)/dV(4496) - B(22344) = RCT(14085) -! B(22345) = dA(14086)/dV(4295) - B(22345) = RCT(14086)*V(5255) -! B(22346) = dA(14086)/dV(5255) - B(22346) = RCT(14086)*V(4295) -! B(22347) = dA(14087)/dV(4295) - B(22347) = RCT(14087)*V(5252) -! B(22348) = dA(14087)/dV(5252) - B(22348) = RCT(14087)*V(4295) -! B(22349) = dA(14088)/dV(4295) - B(22349) = RCT(14088)*V(5256) -! B(22350) = dA(14088)/dV(5256) - B(22350) = RCT(14088)*V(4295) -! B(22351) = dA(14089)/dV(4295) - B(22351) = RCT(14089) -! B(22352) = dA(14090)/dV(1985) - B(22352) = RCT(14090)*V(5250) -! B(22353) = dA(14090)/dV(5250) - B(22353) = RCT(14090)*V(1985) -! B(22354) = dA(14091)/dV(1985) - B(22354) = RCT(14091) -! B(22355) = dA(14092)/dV(775) - B(22355) = RCT(14092) -! B(22356) = dA(14093)/dV(1414) - B(22356) = RCT(14093)*V(5250) -! B(22357) = dA(14093)/dV(5250) - B(22357) = RCT(14093)*V(1414) -! B(22358) = dA(14094)/dV(1414) - B(22358) = RCT(14094) -! B(22359) = dA(14095)/dV(2332) - B(22359) = RCT(14095)*V(5250) -! B(22360) = dA(14095)/dV(5250) - B(22360) = RCT(14095)*V(2332) -! B(22361) = dA(14096)/dV(2332) - B(22361) = RCT(14096) -! B(22362) = dA(14097)/dV(2953) - B(22362) = RCT(14097) -! B(22363) = dA(14098)/dV(633) - B(22363) = RCT(14098)*V(5250) -! B(22364) = dA(14098)/dV(5250) - B(22364) = RCT(14098)*V(633) -! B(22365) = dA(14099)/dV(633) - B(22365) = RCT(14099) -! B(22366) = dA(14100)/dV(2404) - B(22366) = RCT(14100)*V(5250) -! B(22367) = dA(14100)/dV(5250) - B(22367) = RCT(14100)*V(2404) -! B(22368) = dA(14101)/dV(2404) - B(22368) = RCT(14101) -! B(22369) = dA(14102)/dV(581) - B(22369) = RCT(14102) -! B(22370) = dA(14103)/dV(4867) - B(22370) = RCT(14103)*V(5255) -! B(22371) = dA(14103)/dV(5255) - B(22371) = RCT(14103)*V(4867) -! B(22372) = dA(14104)/dV(4867) - B(22372) = RCT(14104)*V(5255) -! B(22373) = dA(14104)/dV(5255) - B(22373) = RCT(14104)*V(4867) -! B(22374) = dA(14105)/dV(4867) - B(22374) = RCT(14105)*V(5255) -! B(22375) = dA(14105)/dV(5255) - B(22375) = RCT(14105)*V(4867) -! B(22376) = dA(14106)/dV(4867) - B(22376) = RCT(14106)*V(5252) -! B(22377) = dA(14106)/dV(5252) - B(22377) = RCT(14106)*V(4867) -! B(22378) = dA(14107)/dV(4867) - B(22378) = RCT(14107)*V(5253) -! B(22379) = dA(14107)/dV(5253) - B(22379) = RCT(14107)*V(4867) -! B(22380) = dA(14108)/dV(4867) - B(22380) = RCT(14108)*V(5256) -! B(22381) = dA(14108)/dV(5256) - B(22381) = RCT(14108)*V(4867) -! B(22382) = dA(14109)/dV(4867) - B(22382) = RCT(14109) -! B(22383) = dA(14110)/dV(4867) - B(22383) = RCT(14110) -! B(22384) = dA(14111)/dV(1094) - B(22384) = RCT(14111)*V(5250) -! B(22385) = dA(14111)/dV(5250) - B(22385) = RCT(14111)*V(1094) -! B(22386) = dA(14112)/dV(1094) - B(22386) = RCT(14112) -! B(22387) = dA(14113)/dV(1732) - B(22387) = RCT(14113) -! B(22388) = dA(14114)/dV(3309) - B(22388) = RCT(14114)*V(5250) -! B(22389) = dA(14114)/dV(5250) - B(22389) = RCT(14114)*V(3309) -! B(22390) = dA(14115)/dV(3309) - B(22390) = RCT(14115) -! B(22391) = dA(14116)/dV(3309) - B(22391) = RCT(14116) -! B(22392) = dA(14117)/dV(789) - B(22392) = RCT(14117)*V(5250) -! B(22393) = dA(14117)/dV(5250) - B(22393) = RCT(14117)*V(789) -! B(22394) = dA(14118)/dV(789) - B(22394) = RCT(14118) -! B(22395) = dA(14119)/dV(1189) - B(22395) = RCT(14119)*V(5250) -! B(22396) = dA(14119)/dV(5250) - B(22396) = RCT(14119)*V(1189) -! B(22397) = dA(14120)/dV(1189) - B(22397) = RCT(14120) -! B(22398) = dA(14121)/dV(849) - B(22398) = RCT(14121)*V(5250) -! B(22399) = dA(14121)/dV(5250) - B(22399) = RCT(14121)*V(849) -! B(22400) = dA(14122)/dV(849) - B(22400) = RCT(14122) -! B(22401) = dA(14123)/dV(4131) - B(22401) = RCT(14123)*V(5255) -! B(22402) = dA(14123)/dV(5255) - B(22402) = RCT(14123)*V(4131) -! B(22403) = dA(14124)/dV(4131) - B(22403) = RCT(14124)*V(5252) -! B(22404) = dA(14124)/dV(5252) - B(22404) = RCT(14124)*V(4131) -! B(22405) = dA(14125)/dV(4131) - B(22405) = RCT(14125)*V(5256) -! B(22406) = dA(14125)/dV(5256) - B(22406) = RCT(14125)*V(4131) -! B(22407) = dA(14126)/dV(4131) - B(22407) = RCT(14126) -! B(22408) = dA(14127)/dV(4131) - B(22408) = RCT(14127) -! B(22409) = dA(14128)/dV(4131) - B(22409) = RCT(14128) -! B(22410) = dA(14129)/dV(2564) - B(22410) = RCT(14129)*V(5250) -! B(22411) = dA(14129)/dV(5250) - B(22411) = RCT(14129)*V(2564) -! B(22412) = dA(14130)/dV(2564) - B(22412) = RCT(14130) -! B(22413) = dA(14131)/dV(1312) - B(22413) = RCT(14131)*V(5250) -! B(22414) = dA(14131)/dV(5250) - B(22414) = RCT(14131)*V(1312) -! B(22415) = dA(14132)/dV(1312) - B(22415) = RCT(14132) -! B(22416) = dA(14133)/dV(3913) - B(22416) = RCT(14133) -! B(22417) = dA(14134)/dV(3913) - B(22417) = RCT(14134) -! B(22418) = dA(14135)/dV(696) - B(22418) = RCT(14135)*V(5250) -! B(22419) = dA(14135)/dV(5250) - B(22419) = RCT(14135)*V(696) -! B(22420) = dA(14136)/dV(696) - B(22420) = RCT(14136) -! B(22421) = dA(14137)/dV(1163) - B(22421) = RCT(14137)*V(5250) -! B(22422) = dA(14137)/dV(5250) - B(22422) = RCT(14137)*V(1163) -! B(22423) = dA(14138)/dV(1163) - B(22423) = RCT(14138) -! B(22424) = dA(14139)/dV(1402) - B(22424) = RCT(14139)*V(5250) -! B(22425) = dA(14139)/dV(5250) - B(22425) = RCT(14139)*V(1402) -! B(22426) = dA(14140)/dV(1402) - B(22426) = RCT(14140) -! B(22427) = dA(14141)/dV(3715) - B(22427) = RCT(14141)*V(5255) -! B(22428) = dA(14141)/dV(5255) - B(22428) = RCT(14141)*V(3715) -! B(22429) = dA(14142)/dV(3715) - B(22429) = RCT(14142)*V(5252) -! B(22430) = dA(14142)/dV(5252) - B(22430) = RCT(14142)*V(3715) -! B(22431) = dA(14143)/dV(3715) - B(22431) = RCT(14143)*V(5252) -! B(22432) = dA(14143)/dV(5252) - B(22432) = RCT(14143)*V(3715) -! B(22433) = dA(14144)/dV(3715) - B(22433) = RCT(14144)*V(5256) -! B(22434) = dA(14144)/dV(5256) - B(22434) = RCT(14144)*V(3715) -! B(22435) = dA(14145)/dV(3715) - B(22435) = RCT(14145) -! B(22436) = dA(14146)/dV(3715) - B(22436) = RCT(14146) -! B(22437) = dA(14147)/dV(3715) - B(22437) = RCT(14147) -! B(22438) = dA(14148)/dV(2984) - B(22438) = RCT(14148)*V(5250) -! B(22439) = dA(14148)/dV(5250) - B(22439) = RCT(14148)*V(2984) -! B(22440) = dA(14149)/dV(2984) - B(22440) = RCT(14149) -! B(22441) = dA(14150)/dV(1139) - B(22441) = RCT(14150)*V(5250) -! B(22442) = dA(14150)/dV(5250) - B(22442) = RCT(14150)*V(1139) -! B(22443) = dA(14151)/dV(1139) - B(22443) = RCT(14151) -! B(22444) = dA(14152)/dV(1579) - B(22444) = RCT(14152) -! B(22445) = dA(14153)/dV(3557) - B(22445) = RCT(14153)*V(5250) -! B(22446) = dA(14153)/dV(5250) - B(22446) = RCT(14153)*V(3557) -! B(22447) = dA(14154)/dV(3557) - B(22447) = RCT(14154) -! B(22448) = dA(14155)/dV(657) - B(22448) = RCT(14155)*V(5250) -! B(22449) = dA(14155)/dV(5250) - B(22449) = RCT(14155)*V(657) -! B(22450) = dA(14156)/dV(657) - B(22450) = RCT(14156) -! B(22451) = dA(14157)/dV(3750) - B(22451) = RCT(14157)*V(5255) -! B(22452) = dA(14157)/dV(5255) - B(22452) = RCT(14157)*V(3750) -! B(22453) = dA(14158)/dV(3750) - B(22453) = RCT(14158)*V(5252) -! B(22454) = dA(14158)/dV(5252) - B(22454) = RCT(14158)*V(3750) -! B(22455) = dA(14159)/dV(3750) - B(22455) = RCT(14159)*V(5252) -! B(22456) = dA(14159)/dV(5252) - B(22456) = RCT(14159)*V(3750) -! B(22457) = dA(14160)/dV(3750) - B(22457) = RCT(14160)*V(5256) -! B(22458) = dA(14160)/dV(5256) - B(22458) = RCT(14160)*V(3750) -! B(22459) = dA(14161)/dV(3750) - B(22459) = RCT(14161) -! B(22460) = dA(14162)/dV(3750) - B(22460) = RCT(14162) -! B(22461) = dA(14163)/dV(3750) - B(22461) = RCT(14163) -! B(22462) = dA(14164)/dV(823) - B(22462) = RCT(14164)*V(5250) -! B(22463) = dA(14164)/dV(5250) - B(22463) = RCT(14164)*V(823) -! B(22464) = dA(14165)/dV(823) - B(22464) = RCT(14165) -! B(22465) = dA(14166)/dV(1348) - B(22465) = RCT(14166)*V(5250) -! B(22466) = dA(14166)/dV(5250) - B(22466) = RCT(14166)*V(1348) -! B(22467) = dA(14167)/dV(1348) - B(22467) = RCT(14167) -! B(22468) = dA(14168)/dV(2523) - B(22468) = RCT(14168)*V(5250) -! B(22469) = dA(14168)/dV(5250) - B(22469) = RCT(14168)*V(2523) -! B(22470) = dA(14169)/dV(2523) - B(22470) = RCT(14169) -! B(22471) = dA(14170)/dV(2018) - B(22471) = RCT(14170)*V(5250) -! B(22472) = dA(14170)/dV(5250) - B(22472) = RCT(14170)*V(2018) -! B(22473) = dA(14171)/dV(2018) - B(22473) = RCT(14171) -! B(22474) = dA(14172)/dV(2018) - B(22474) = RCT(14172) -! B(22475) = dA(14173)/dV(739) - B(22475) = RCT(14173) -! B(22476) = dA(14174)/dV(1618) - B(22476) = RCT(14174)*V(5250) -! B(22477) = dA(14174)/dV(5250) - B(22477) = RCT(14174)*V(1618) -! B(22478) = dA(14175)/dV(1618) - B(22478) = RCT(14175) -! B(22479) = dA(14176)/dV(3337) - B(22479) = RCT(14176)*V(5250) -! B(22480) = dA(14176)/dV(5250) - B(22480) = RCT(14176)*V(3337) -! B(22481) = dA(14177)/dV(3337) - B(22481) = RCT(14177) -! B(22482) = dA(14178)/dV(4644) - B(22482) = RCT(14178)*V(5255) -! B(22483) = dA(14178)/dV(5255) - B(22483) = RCT(14178)*V(4644) -! B(22484) = dA(14179)/dV(4644) - B(22484) = RCT(14179)*V(5252) -! B(22485) = dA(14179)/dV(5252) - B(22485) = RCT(14179)*V(4644) -! B(22486) = dA(14180)/dV(4644) - B(22486) = RCT(14180)*V(5256) -! B(22487) = dA(14180)/dV(5256) - B(22487) = RCT(14180)*V(4644) -! B(22488) = dA(14181)/dV(4644) - B(22488) = RCT(14181) -! B(22489) = dA(14182)/dV(3006) - B(22489) = RCT(14182)*V(5250) -! B(22490) = dA(14182)/dV(5250) - B(22490) = RCT(14182)*V(3006) -! B(22491) = dA(14183)/dV(3006) - B(22491) = RCT(14183) -! B(22492) = dA(14184)/dV(687) - B(22492) = RCT(14184) -! B(22493) = dA(14185)/dV(1925) - B(22493) = RCT(14185)*V(5250) -! B(22494) = dA(14185)/dV(5250) - B(22494) = RCT(14185)*V(1925) -! B(22495) = dA(14186)/dV(1925) - B(22495) = RCT(14186) -! B(22496) = dA(14187)/dV(842) - B(22496) = RCT(14187)*V(5250) -! B(22497) = dA(14187)/dV(5250) - B(22497) = RCT(14187)*V(842) -! B(22498) = dA(14188)/dV(842) - B(22498) = RCT(14188) -! B(22499) = dA(14189)/dV(2584) - B(22499) = RCT(14189)*V(5250) -! B(22500) = dA(14189)/dV(5250) - B(22500) = RCT(14189)*V(2584) -! B(22501) = dA(14190)/dV(2584) - B(22501) = RCT(14190) -! B(22502) = dA(14191)/dV(375) - B(22502) = RCT(14191)*V(5250) -! B(22503) = dA(14191)/dV(5250) - B(22503) = RCT(14191)*V(375) -! B(22504) = dA(14192)/dV(1008) - B(22504) = RCT(14192)*V(5250) -! B(22505) = dA(14192)/dV(5250) - B(22505) = RCT(14192)*V(1008) -! B(22506) = dA(14193)/dV(1008) - B(22506) = RCT(14193) -! B(22507) = dA(14194)/dV(2772) - B(22507) = RCT(14194)*V(5250) -! B(22508) = dA(14194)/dV(5250) - B(22508) = RCT(14194)*V(2772) -! B(22509) = dA(14195)/dV(2772) - B(22509) = RCT(14195) -! B(22510) = dA(14196)/dV(948) - B(22510) = RCT(14196)*V(5250) -! B(22511) = dA(14196)/dV(5250) - B(22511) = RCT(14196)*V(948) -! B(22512) = dA(14197)/dV(948) - B(22512) = RCT(14197) -! B(22513) = dA(14198)/dV(1941) - B(22513) = RCT(14198)*V(5250) -! B(22514) = dA(14198)/dV(5250) - B(22514) = RCT(14198)*V(1941) -! B(22515) = dA(14199)/dV(1941) - B(22515) = RCT(14199) -! B(22516) = dA(14200)/dV(1942) - B(22516) = RCT(14200) -! B(22517) = dA(14201)/dV(268) - B(22517) = RCT(14201)*V(5250) -! B(22518) = dA(14201)/dV(5250) - B(22518) = RCT(14201)*V(268) -! B(22519) = dA(14202)/dV(5177) - B(22519) = RCT(14202)*V(5256) -! B(22520) = dA(14202)/dV(5256) - B(22520) = RCT(14202)*V(5177) -! B(22521) = dA(14203)/dV(5177) - B(22521) = RCT(14203)*V(5250) -! B(22522) = dA(14203)/dV(5250) - B(22522) = RCT(14203)*V(5177) -! B(22523) = dA(14204)/dV(5177) - B(22523) = RCT(14204) -! B(22524) = dA(14205)/dV(1887) - B(22524) = RCT(14205)*V(5250) -! B(22525) = dA(14205)/dV(5250) - B(22525) = RCT(14205)*V(1887) -! B(22526) = dA(14206)/dV(1887) - B(22526) = RCT(14206) -! B(22527) = dA(14207)/dV(1887) - B(22527) = RCT(14207) -! B(22528) = dA(14208)/dV(1691) - B(22528) = RCT(14208) -! B(22529) = dA(14209)/dV(1561) - B(22529) = RCT(14209)*V(5250) -! B(22530) = dA(14209)/dV(5250) - B(22530) = RCT(14209)*V(1561) -! B(22531) = dA(14210)/dV(1561) - B(22531) = RCT(14210) -! B(22532) = dA(14211)/dV(4955) - B(22532) = RCT(14211)*V(5255) -! B(22533) = dA(14211)/dV(5255) - B(22533) = RCT(14211)*V(4955) -! B(22534) = dA(14212)/dV(4955) - B(22534) = RCT(14212)*V(5255) -! B(22535) = dA(14212)/dV(5255) - B(22535) = RCT(14212)*V(4955) -! B(22536) = dA(14213)/dV(4955) - B(22536) = RCT(14213)*V(5255) -! B(22537) = dA(14213)/dV(5255) - B(22537) = RCT(14213)*V(4955) -! B(22538) = dA(14214)/dV(4955) - B(22538) = RCT(14214)*V(5252) -! B(22539) = dA(14214)/dV(5252) - B(22539) = RCT(14214)*V(4955) -! B(22540) = dA(14215)/dV(4955) - B(22540) = RCT(14215)*V(5253) -! B(22541) = dA(14215)/dV(5253) - B(22541) = RCT(14215)*V(4955) -! B(22542) = dA(14216)/dV(4955) - B(22542) = RCT(14216)*V(5256) -! B(22543) = dA(14216)/dV(5256) - B(22543) = RCT(14216)*V(4955) -! B(22544) = dA(14217)/dV(4955) - B(22544) = RCT(14217) -! B(22545) = dA(14218)/dV(4955) - B(22545) = RCT(14218) -! B(22546) = dA(14219)/dV(3895) - B(22546) = RCT(14219)*V(5255) -! B(22547) = dA(14219)/dV(5255) - B(22547) = RCT(14219)*V(3895) -! B(22548) = dA(14220)/dV(3895) - B(22548) = RCT(14220)*V(5252) -! B(22549) = dA(14220)/dV(5252) - B(22549) = RCT(14220)*V(3895) -! B(22550) = dA(14221)/dV(3895) - B(22550) = RCT(14221)*V(5256) -! B(22551) = dA(14221)/dV(5256) - B(22551) = RCT(14221)*V(3895) -! B(22552) = dA(14222)/dV(3895) - B(22552) = RCT(14222) -! B(22553) = dA(14223)/dV(3895) - B(22553) = RCT(14223) -! B(22554) = dA(14224)/dV(112) - B(22554) = RCT(14224) -! B(22555) = dA(14225)/dV(3974) - B(22555) = RCT(14225)*V(5255) -! B(22556) = dA(14225)/dV(5255) - B(22556) = RCT(14225)*V(3974) -! B(22557) = dA(14226)/dV(3974) - B(22557) = RCT(14226)*V(5252) -! B(22558) = dA(14226)/dV(5252) - B(22558) = RCT(14226)*V(3974) -! B(22559) = dA(14227)/dV(3974) - B(22559) = RCT(14227)*V(5252) -! B(22560) = dA(14227)/dV(5252) - B(22560) = RCT(14227)*V(3974) -! B(22561) = dA(14228)/dV(3974) - B(22561) = RCT(14228)*V(5256) -! B(22562) = dA(14228)/dV(5256) - B(22562) = RCT(14228)*V(3974) -! B(22563) = dA(14229)/dV(3974) - B(22563) = RCT(14229) -! B(22564) = dA(14230)/dV(3974) - B(22564) = RCT(14230) -! B(22565) = dA(14231)/dV(1181) - B(22565) = RCT(14231)*V(5250) -! B(22566) = dA(14231)/dV(5250) - B(22566) = RCT(14231)*V(1181) -! B(22567) = dA(14232)/dV(1181) - B(22567) = RCT(14232) -! B(22568) = dA(14233)/dV(2890) - B(22568) = RCT(14233) -! B(22569) = dA(14234)/dV(1756) - B(22569) = RCT(14234)*V(5250) -! B(22570) = dA(14234)/dV(5250) - B(22570) = RCT(14234)*V(1756) -! B(22571) = dA(14235)/dV(1756) - B(22571) = RCT(14235) -! B(22572) = dA(14236)/dV(430) - B(22572) = RCT(14236)*V(5250) -! B(22573) = dA(14236)/dV(5250) - B(22573) = RCT(14236)*V(430) -! B(22574) = dA(14237)/dV(4315) - B(22574) = RCT(14237)*V(5255) -! B(22575) = dA(14237)/dV(5255) - B(22575) = RCT(14237)*V(4315) -! B(22576) = dA(14238)/dV(4315) - B(22576) = RCT(14238)*V(5252) -! B(22577) = dA(14238)/dV(5252) - B(22577) = RCT(14238)*V(4315) -! B(22578) = dA(14239)/dV(4315) - B(22578) = RCT(14239)*V(5256) -! B(22579) = dA(14239)/dV(5256) - B(22579) = RCT(14239)*V(4315) -! B(22580) = dA(14240)/dV(4315) - B(22580) = RCT(14240) -! B(22581) = dA(14241)/dV(4315) - B(22581) = RCT(14241) -! B(22582) = dA(14242)/dV(4315) - B(22582) = RCT(14242) -! B(22583) = dA(14243)/dV(3908) - B(22583) = RCT(14243)*V(5255) -! B(22584) = dA(14243)/dV(5255) - B(22584) = RCT(14243)*V(3908) -! B(22585) = dA(14244)/dV(3908) - B(22585) = RCT(14244)*V(5252) -! B(22586) = dA(14244)/dV(5252) - B(22586) = RCT(14244)*V(3908) -! B(22587) = dA(14245)/dV(3908) - B(22587) = RCT(14245)*V(5252) -! B(22588) = dA(14245)/dV(5252) - B(22588) = RCT(14245)*V(3908) -! B(22589) = dA(14246)/dV(3908) - B(22589) = RCT(14246)*V(5256) -! B(22590) = dA(14246)/dV(5256) - B(22590) = RCT(14246)*V(3908) -! B(22591) = dA(14247)/dV(3908) - B(22591) = RCT(14247) -! B(22592) = dA(14248)/dV(3908) - B(22592) = RCT(14248) -! B(22593) = dA(14249)/dV(3908) - B(22593) = RCT(14249) -! B(22594) = dA(14250)/dV(4681) - B(22594) = RCT(14250)*V(5255) -! B(22595) = dA(14250)/dV(5255) - B(22595) = RCT(14250)*V(4681) -! B(22596) = dA(14251)/dV(4681) - B(22596) = RCT(14251)*V(5255) -! B(22597) = dA(14251)/dV(5255) - B(22597) = RCT(14251)*V(4681) -! B(22598) = dA(14252)/dV(4681) - B(22598) = RCT(14252)*V(5255) -! B(22599) = dA(14252)/dV(5255) - B(22599) = RCT(14252)*V(4681) -! B(22600) = dA(14253)/dV(4681) - B(22600) = RCT(14253)*V(5252) -! B(22601) = dA(14253)/dV(5252) - B(22601) = RCT(14253)*V(4681) -! B(22602) = dA(14254)/dV(4681) - B(22602) = RCT(14254)*V(5253) -! B(22603) = dA(14254)/dV(5253) - B(22603) = RCT(14254)*V(4681) -! B(22604) = dA(14255)/dV(4681) - B(22604) = RCT(14255)*V(5256) -! B(22605) = dA(14255)/dV(5256) - B(22605) = RCT(14255)*V(4681) -! B(22606) = dA(14256)/dV(4681) - B(22606) = RCT(14256) -! B(22607) = dA(14257)/dV(4681) - B(22607) = RCT(14257) -! B(22608) = dA(14258)/dV(4442) - B(22608) = RCT(14258)*V(5255) -! B(22609) = dA(14258)/dV(5255) - B(22609) = RCT(14258)*V(4442) -! B(22610) = dA(14259)/dV(4442) - B(22610) = RCT(14259)*V(5252) -! B(22611) = dA(14259)/dV(5252) - B(22611) = RCT(14259)*V(4442) -! B(22612) = dA(14260)/dV(4442) - B(22612) = RCT(14260)*V(5252) -! B(22613) = dA(14260)/dV(5252) - B(22613) = RCT(14260)*V(4442) -! B(22614) = dA(14261)/dV(4442) - B(22614) = RCT(14261)*V(5256) -! B(22615) = dA(14261)/dV(5256) - B(22615) = RCT(14261)*V(4442) -! B(22616) = dA(14262)/dV(4442) - B(22616) = RCT(14262) -! B(22617) = dA(14263)/dV(4442) - B(22617) = RCT(14263) -! B(22618) = dA(14264)/dV(4442) - B(22618) = RCT(14264) -! B(22619) = dA(14265)/dV(388) - B(22619) = RCT(14265)*V(5250) -! B(22620) = dA(14265)/dV(5250) - B(22620) = RCT(14265)*V(388) -! B(22621) = dA(14266)/dV(1336) - B(22621) = RCT(14266)*V(5250) -! B(22622) = dA(14266)/dV(5250) - B(22622) = RCT(14266)*V(1336) -! B(22623) = dA(14267)/dV(1336) - B(22623) = RCT(14267) -! B(22624) = dA(14268)/dV(3698) - B(22624) = RCT(14268)*V(5255) -! B(22625) = dA(14268)/dV(5255) - B(22625) = RCT(14268)*V(3698) -! B(22626) = dA(14269)/dV(3698) - B(22626) = RCT(14269)*V(5252) -! B(22627) = dA(14269)/dV(5252) - B(22627) = RCT(14269)*V(3698) -! B(22628) = dA(14270)/dV(3698) - B(22628) = RCT(14270)*V(5252) -! B(22629) = dA(14270)/dV(5252) - B(22629) = RCT(14270)*V(3698) -! B(22630) = dA(14271)/dV(3698) - B(22630) = RCT(14271)*V(5256) -! B(22631) = dA(14271)/dV(5256) - B(22631) = RCT(14271)*V(3698) -! B(22632) = dA(14272)/dV(3698) - B(22632) = RCT(14272) -! B(22633) = dA(14273)/dV(3698) - B(22633) = RCT(14273) -! B(22634) = dA(14274)/dV(3698) - B(22634) = RCT(14274) -! B(22635) = dA(14275)/dV(3313) - B(22635) = RCT(14275)*V(5250) -! B(22636) = dA(14275)/dV(5250) - B(22636) = RCT(14275)*V(3313) -! B(22637) = dA(14276)/dV(3313) - B(22637) = RCT(14276) -! B(22638) = dA(14277)/dV(882) - B(22638) = RCT(14277)*V(5250) -! B(22639) = dA(14277)/dV(5250) - B(22639) = RCT(14277)*V(882) -! B(22640) = dA(14278)/dV(882) - B(22640) = RCT(14278) -! B(22641) = dA(14279)/dV(2311) - B(22641) = RCT(14279)*V(5250) -! B(22642) = dA(14279)/dV(5250) - B(22642) = RCT(14279)*V(2311) -! B(22643) = dA(14280)/dV(2311) - B(22643) = RCT(14280) -! B(22644) = dA(14281)/dV(3957) - B(22644) = RCT(14281) -! B(22645) = dA(14282)/dV(3957) - B(22645) = RCT(14282) -! B(22646) = dA(14283)/dV(3374) - B(22646) = RCT(14283)*V(5250) -! B(22647) = dA(14283)/dV(5250) - B(22647) = RCT(14283)*V(3374) -! B(22648) = dA(14284)/dV(3374) - B(22648) = RCT(14284) -! B(22649) = dA(14285)/dV(699) - B(22649) = RCT(14285)*V(5250) -! B(22650) = dA(14285)/dV(5250) - B(22650) = RCT(14285)*V(699) -! B(22651) = dA(14286)/dV(699) - B(22651) = RCT(14286) -! B(22652) = dA(14287)/dV(4319) - B(22652) = RCT(14287)*V(5255) -! B(22653) = dA(14287)/dV(5255) - B(22653) = RCT(14287)*V(4319) -! B(22654) = dA(14288)/dV(4319) - B(22654) = RCT(14288)*V(5252) -! B(22655) = dA(14288)/dV(5252) - B(22655) = RCT(14288)*V(4319) -! B(22656) = dA(14289)/dV(4319) - B(22656) = RCT(14289)*V(5252) -! B(22657) = dA(14289)/dV(5252) - B(22657) = RCT(14289)*V(4319) -! B(22658) = dA(14290)/dV(4319) - B(22658) = RCT(14290)*V(5256) -! B(22659) = dA(14290)/dV(5256) - B(22659) = RCT(14290)*V(4319) -! B(22660) = dA(14291)/dV(4319) - B(22660) = RCT(14291) -! B(22661) = dA(14292)/dV(4319) - B(22661) = RCT(14292) -! B(22662) = dA(14293)/dV(4672) - B(22662) = RCT(14293)*V(5255) -! B(22663) = dA(14293)/dV(5255) - B(22663) = RCT(14293)*V(4672) -! B(22664) = dA(14294)/dV(4672) - B(22664) = RCT(14294)*V(5252) -! B(22665) = dA(14294)/dV(5252) - B(22665) = RCT(14294)*V(4672) -! B(22666) = dA(14295)/dV(4672) - B(22666) = RCT(14295)*V(5252) -! B(22667) = dA(14295)/dV(5252) - B(22667) = RCT(14295)*V(4672) -! B(22668) = dA(14296)/dV(4672) - B(22668) = RCT(14296)*V(5256) -! B(22669) = dA(14296)/dV(5256) - B(22669) = RCT(14296)*V(4672) -! B(22670) = dA(14297)/dV(4672) - B(22670) = RCT(14297) -! B(22671) = dA(14298)/dV(4672) - B(22671) = RCT(14298) -! B(22672) = dA(14299)/dV(4672) - B(22672) = RCT(14299) -! B(22673) = dA(14300)/dV(3397) - B(22673) = RCT(14300)*V(5250) -! B(22674) = dA(14300)/dV(5250) - B(22674) = RCT(14300)*V(3397) -! B(22675) = dA(14301)/dV(3397) - B(22675) = RCT(14301) -! B(22676) = dA(14302)/dV(4130) - B(22676) = RCT(14302)*V(5255) -! B(22677) = dA(14302)/dV(5255) - B(22677) = RCT(14302)*V(4130) -! B(22678) = dA(14303)/dV(4130) - B(22678) = RCT(14303)*V(5252) -! B(22679) = dA(14303)/dV(5252) - B(22679) = RCT(14303)*V(4130) -! B(22680) = dA(14304)/dV(4130) - B(22680) = RCT(14304)*V(5256) -! B(22681) = dA(14304)/dV(5256) - B(22681) = RCT(14304)*V(4130) -! B(22682) = dA(14305)/dV(4130) - B(22682) = RCT(14305) -! B(22683) = dA(14306)/dV(4130) - B(22683) = RCT(14306) -! B(22684) = dA(14307)/dV(4130) - B(22684) = RCT(14307) -! B(22685) = dA(14308)/dV(3373) - B(22685) = RCT(14308)*V(5250) -! B(22686) = dA(14308)/dV(5250) - B(22686) = RCT(14308)*V(3373) -! B(22687) = dA(14309)/dV(3373) - B(22687) = RCT(14309) -! B(22688) = dA(14310)/dV(4162) - B(22688) = RCT(14310)*V(5255) -! B(22689) = dA(14310)/dV(5255) - B(22689) = RCT(14310)*V(4162) -! B(22690) = dA(14311)/dV(4162) - B(22690) = RCT(14311)*V(5252) -! B(22691) = dA(14311)/dV(5252) - B(22691) = RCT(14311)*V(4162) -! B(22692) = dA(14312)/dV(4162) - B(22692) = RCT(14312)*V(5252) -! B(22693) = dA(14312)/dV(5252) - B(22693) = RCT(14312)*V(4162) -! B(22694) = dA(14313)/dV(4162) - B(22694) = RCT(14313)*V(5256) -! B(22695) = dA(14313)/dV(5256) - B(22695) = RCT(14313)*V(4162) -! B(22696) = dA(14314)/dV(4162) - B(22696) = RCT(14314) -! B(22697) = dA(14315)/dV(4162) - B(22697) = RCT(14315) -! B(22698) = dA(14316)/dV(4162) - B(22698) = RCT(14316) -! B(22699) = dA(14317)/dV(1413) - B(22699) = RCT(14317)*V(5250) -! B(22700) = dA(14317)/dV(5250) - B(22700) = RCT(14317)*V(1413) -! B(22701) = dA(14318)/dV(1413) - B(22701) = RCT(14318) -! B(22702) = dA(14319)/dV(1649) - B(22702) = RCT(14319)*V(5250) -! B(22703) = dA(14319)/dV(5250) - B(22703) = RCT(14319)*V(1649) -! B(22704) = dA(14320)/dV(1649) - B(22704) = RCT(14320) -! B(22705) = dA(14321)/dV(191) - B(22705) = RCT(14321) -! B(22706) = dA(14322)/dV(1648) - B(22706) = RCT(14322)*V(5250) -! B(22707) = dA(14322)/dV(5250) - B(22707) = RCT(14322)*V(1648) -! B(22708) = dA(14323)/dV(410) - B(22708) = RCT(14323)*V(5250) -! B(22709) = dA(14323)/dV(5250) - B(22709) = RCT(14323)*V(410) -! B(22710) = dA(14324)/dV(955) - B(22710) = RCT(14324)*V(5250) -! B(22711) = dA(14324)/dV(5250) - B(22711) = RCT(14324)*V(955) -! B(22712) = dA(14325)/dV(955) - B(22712) = RCT(14325) -! B(22713) = dA(14326)/dV(2673) - B(22713) = RCT(14326)*V(5250) -! B(22714) = dA(14326)/dV(5250) - B(22714) = RCT(14326)*V(2673) -! B(22715) = dA(14327)/dV(2673) - B(22715) = RCT(14327) -! B(22716) = dA(14328)/dV(1986) - B(22716) = RCT(14328) -! B(22717) = dA(14329)/dV(441) - B(22717) = RCT(14329)*V(5250) -! B(22718) = dA(14329)/dV(5250) - B(22718) = RCT(14329)*V(441) -! B(22719) = dA(14330)/dV(5245) - B(22719) = RCT(14330)*V(5255) -! B(22720) = dA(14330)/dV(5255) - B(22720) = RCT(14330)*V(5245) -! B(22721) = dA(14331)/dV(5245) - B(22721) = RCT(14331)*V(5255) -! B(22722) = dA(14331)/dV(5255) - B(22722) = RCT(14331)*V(5245) -! B(22723) = dA(14332)/dV(5245) - B(22723) = RCT(14332)*V(5255) -! B(22724) = dA(14332)/dV(5255) - B(22724) = RCT(14332)*V(5245) -! B(22725) = dA(14333)/dV(5245) - B(22725) = RCT(14333)*V(5252) -! B(22726) = dA(14333)/dV(5252) - B(22726) = RCT(14333)*V(5245) -! B(22727) = dA(14334)/dV(5245) - B(22727) = RCT(14334)*V(5253) -! B(22728) = dA(14334)/dV(5253) - B(22728) = RCT(14334)*V(5245) -! B(22729) = dA(14335)/dV(5245) - B(22729) = RCT(14335)*V(5256) -! B(22730) = dA(14335)/dV(5256) - B(22730) = RCT(14335)*V(5245) -! B(22731) = dA(14336)/dV(5245) - B(22731) = RCT(14336) -! B(22732) = dA(14337)/dV(5245) - B(22732) = RCT(14337) -! B(22733) = dA(14338)/dV(3431) - B(22733) = RCT(14338)*V(5250) -! B(22734) = dA(14338)/dV(5250) - B(22734) = RCT(14338)*V(3431) -! B(22735) = dA(14339)/dV(3431) - B(22735) = RCT(14339) -! B(22736) = dA(14340)/dV(4147) - B(22736) = RCT(14340)*V(5255) -! B(22737) = dA(14340)/dV(5255) - B(22737) = RCT(14340)*V(4147) -! B(22738) = dA(14341)/dV(4147) - B(22738) = RCT(14341)*V(5252) -! B(22739) = dA(14341)/dV(5252) - B(22739) = RCT(14341)*V(4147) -! B(22740) = dA(14342)/dV(4147) - B(22740) = RCT(14342)*V(5256) -! B(22741) = dA(14342)/dV(5256) - B(22741) = RCT(14342)*V(4147) -! B(22742) = dA(14343)/dV(4147) - B(22742) = RCT(14343) -! B(22743) = dA(14344)/dV(4147) - B(22743) = RCT(14344) -! B(22744) = dA(14345)/dV(4147) - B(22744) = RCT(14345) -! B(22745) = dA(14346)/dV(2965) - B(22745) = RCT(14346)*V(5250) -! B(22746) = dA(14346)/dV(5250) - B(22746) = RCT(14346)*V(2965) -! B(22747) = dA(14347)/dV(3902) - B(22747) = RCT(14347)*V(5255) -! B(22748) = dA(14347)/dV(5255) - B(22748) = RCT(14347)*V(3902) -! B(22749) = dA(14348)/dV(3902) - B(22749) = RCT(14348)*V(5252) -! B(22750) = dA(14348)/dV(5252) - B(22750) = RCT(14348)*V(3902) -! B(22751) = dA(14349)/dV(3902) - B(22751) = RCT(14349)*V(5252) -! B(22752) = dA(14349)/dV(5252) - B(22752) = RCT(14349)*V(3902) -! B(22753) = dA(14350)/dV(3902) - B(22753) = RCT(14350)*V(5256) -! B(22754) = dA(14350)/dV(5256) - B(22754) = RCT(14350)*V(3902) -! B(22755) = dA(14351)/dV(3902) - B(22755) = RCT(14351) -! B(22756) = dA(14352)/dV(3902) - B(22756) = RCT(14352) -! B(22757) = dA(14353)/dV(3902) - B(22757) = RCT(14353) -! B(22758) = dA(14354)/dV(3612) - B(22758) = RCT(14354)*V(5250) -! B(22759) = dA(14354)/dV(5250) - B(22759) = RCT(14354)*V(3612) -! B(22760) = dA(14355)/dV(3612) - B(22760) = RCT(14355) -! B(22761) = dA(14356)/dV(2251) - B(22761) = RCT(14356) -! B(22762) = dA(14357)/dV(2251) - B(22762) = RCT(14357)*V(5250) -! B(22763) = dA(14357)/dV(5250) - B(22763) = RCT(14357)*V(2251) -! B(22764) = dA(14358)/dV(2800) - B(22764) = RCT(14358) -! B(22765) = dA(14359)/dV(2800) - B(22765) = RCT(14359)*V(5250) -! B(22766) = dA(14359)/dV(5250) - B(22766) = RCT(14359)*V(2800) -! B(22767) = dA(14360)/dV(2556) - B(22767) = RCT(14360) -! B(22768) = dA(14361)/dV(2556) - B(22768) = RCT(14361) -! B(22769) = dA(14362)/dV(2556) - B(22769) = RCT(14362)*V(5250) -! B(22770) = dA(14362)/dV(5250) - B(22770) = RCT(14362)*V(2556) -! B(22771) = dA(14363)/dV(2279) - B(22771) = RCT(14363) -! B(22772) = dA(14364)/dV(4423) - B(22772) = RCT(14364)*V(5255) -! B(22773) = dA(14364)/dV(5255) - B(22773) = RCT(14364)*V(4423) -! B(22774) = dA(14365)/dV(4423) - B(22774) = RCT(14365)*V(5252) -! B(22775) = dA(14365)/dV(5252) - B(22775) = RCT(14365)*V(4423) -! B(22776) = dA(14366)/dV(4423) - B(22776) = RCT(14366)*V(5256) -! B(22777) = dA(14366)/dV(5256) - B(22777) = RCT(14366)*V(4423) -! B(22778) = dA(14367)/dV(4423) - B(22778) = RCT(14367) -! B(22779) = dA(14368)/dV(4423) - B(22779) = RCT(14368) -! B(22780) = dA(14369)/dV(4482) - B(22780) = RCT(14369)*V(5255) -! B(22781) = dA(14369)/dV(5255) - B(22781) = RCT(14369)*V(4482) -! B(22782) = dA(14370)/dV(4482) - B(22782) = RCT(14370)*V(5252) -! B(22783) = dA(14370)/dV(5252) - B(22783) = RCT(14370)*V(4482) -! B(22784) = dA(14371)/dV(4482) - B(22784) = RCT(14371)*V(5256) -! B(22785) = dA(14371)/dV(5256) - B(22785) = RCT(14371)*V(4482) -! B(22786) = dA(14372)/dV(4482) - B(22786) = RCT(14372) -! B(22787) = dA(14373)/dV(4482) - B(22787) = RCT(14373) -! B(22788) = dA(14374)/dV(4426) - B(22788) = RCT(14374)*V(5255) -! B(22789) = dA(14374)/dV(5255) - B(22789) = RCT(14374)*V(4426) -! B(22790) = dA(14375)/dV(4426) - B(22790) = RCT(14375)*V(5252) -! B(22791) = dA(14375)/dV(5252) - B(22791) = RCT(14375)*V(4426) -! B(22792) = dA(14376)/dV(4426) - B(22792) = RCT(14376)*V(5256) -! B(22793) = dA(14376)/dV(5256) - B(22793) = RCT(14376)*V(4426) -! B(22794) = dA(14377)/dV(4426) - B(22794) = RCT(14377) -! B(22795) = dA(14378)/dV(4426) - B(22795) = RCT(14378) -! B(22796) = dA(14379)/dV(2159) - B(22796) = RCT(14379)*V(5250) -! B(22797) = dA(14379)/dV(5250) - B(22797) = RCT(14379)*V(2159) -! B(22798) = dA(14380)/dV(2159) - B(22798) = RCT(14380) -! B(22799) = dA(14381)/dV(2608) - B(22799) = RCT(14381)*V(5250) -! B(22800) = dA(14381)/dV(5250) - B(22800) = RCT(14381)*V(2608) -! B(22801) = dA(14382)/dV(2608) - B(22801) = RCT(14382) -! B(22802) = dA(14383)/dV(4759) - B(22802) = RCT(14383)*V(5255) -! B(22803) = dA(14383)/dV(5255) - B(22803) = RCT(14383)*V(4759) -! B(22804) = dA(14384)/dV(4759) - B(22804) = RCT(14384)*V(5255) -! B(22805) = dA(14384)/dV(5255) - B(22805) = RCT(14384)*V(4759) -! B(22806) = dA(14385)/dV(4759) - B(22806) = RCT(14385)*V(5252) -! B(22807) = dA(14385)/dV(5252) - B(22807) = RCT(14385)*V(4759) -! B(22808) = dA(14386)/dV(4759) - B(22808) = RCT(14386)*V(5253) -! B(22809) = dA(14386)/dV(5253) - B(22809) = RCT(14386)*V(4759) -! B(22810) = dA(14387)/dV(4759) - B(22810) = RCT(14387)*V(5256) -! B(22811) = dA(14387)/dV(5256) - B(22811) = RCT(14387)*V(4759) -! B(22812) = dA(14388)/dV(4759) - B(22812) = RCT(14388) -! B(22813) = dA(14389)/dV(4875) - B(22813) = RCT(14389)*V(5255) -! B(22814) = dA(14389)/dV(5255) - B(22814) = RCT(14389)*V(4875) -! B(22815) = dA(14390)/dV(4875) - B(22815) = RCT(14390)*V(5252) -! B(22816) = dA(14390)/dV(5252) - B(22816) = RCT(14390)*V(4875) -! B(22817) = dA(14391)/dV(4875) - B(22817) = RCT(14391)*V(5256) -! B(22818) = dA(14391)/dV(5256) - B(22818) = RCT(14391)*V(4875) -! B(22819) = dA(14392)/dV(4875) - B(22819) = RCT(14392) -! B(22820) = dA(14393)/dV(3719) - B(22820) = RCT(14393)*V(5255) -! B(22821) = dA(14393)/dV(5255) - B(22821) = RCT(14393)*V(3719) -! B(22822) = dA(14394)/dV(3719) - B(22822) = RCT(14394)*V(5252) -! B(22823) = dA(14394)/dV(5252) - B(22823) = RCT(14394)*V(3719) -! B(22824) = dA(14395)/dV(3719) - B(22824) = RCT(14395)*V(5256) -! B(22825) = dA(14395)/dV(5256) - B(22825) = RCT(14395)*V(3719) -! B(22826) = dA(14396)/dV(3719) - B(22826) = RCT(14396) -! B(22827) = dA(14397)/dV(935) - B(22827) = RCT(14397)*V(5250) -! B(22828) = dA(14397)/dV(5250) - B(22828) = RCT(14397)*V(935) -! B(22829) = dA(14398)/dV(935) - B(22829) = RCT(14398) -! B(22830) = dA(14399)/dV(169) - B(22830) = RCT(14399) -! B(22831) = dA(14400)/dV(40) - B(22831) = RCT(14400)*V(5250) -! B(22832) = dA(14400)/dV(5250) - B(22832) = RCT(14400)*V(40) -! B(22833) = dA(14401)/dV(1209) - B(22833) = RCT(14401)*V(5250) -! B(22834) = dA(14401)/dV(5250) - B(22834) = RCT(14401)*V(1209) -! B(22835) = dA(14402)/dV(1209) - B(22835) = RCT(14402) -! B(22836) = dA(14403)/dV(351) - B(22836) = RCT(14403)*V(5250) -! B(22837) = dA(14403)/dV(5250) - B(22837) = RCT(14403)*V(351) -! B(22838) = dA(14404)/dV(3327) - B(22838) = RCT(14404)*V(5250) -! B(22839) = dA(14404)/dV(5250) - B(22839) = RCT(14404)*V(3327) -! B(22840) = dA(14405)/dV(3327) - B(22840) = RCT(14405) -! B(22841) = dA(14406)/dV(1761) - B(22841) = RCT(14406)*V(5250) -! B(22842) = dA(14406)/dV(5250) - B(22842) = RCT(14406)*V(1761) -! B(22843) = dA(14407)/dV(1761) - B(22843) = RCT(14407) -! B(22844) = dA(14408)/dV(25) - B(22844) = RCT(14408) -! B(22845) = dA(14409)/dV(3846) - B(22845) = RCT(14409)*V(5255) -! B(22846) = dA(14409)/dV(5255) - B(22846) = RCT(14409)*V(3846) -! B(22847) = dA(14410)/dV(3846) - B(22847) = RCT(14410)*V(5252) -! B(22848) = dA(14410)/dV(5252) - B(22848) = RCT(14410)*V(3846) -! B(22849) = dA(14411)/dV(3846) - B(22849) = RCT(14411)*V(5256) -! B(22850) = dA(14411)/dV(5256) - B(22850) = RCT(14411)*V(3846) -! B(22851) = dA(14412)/dV(3846) - B(22851) = RCT(14412) -! B(22852) = dA(14413)/dV(906) - B(22852) = RCT(14413)*V(5250) -! B(22853) = dA(14413)/dV(5250) - B(22853) = RCT(14413)*V(906) -! B(22854) = dA(14414)/dV(906) - B(22854) = RCT(14414) -! B(22855) = dA(14415)/dV(1541) - B(22855) = RCT(14415)*V(5250) -! B(22856) = dA(14415)/dV(5250) - B(22856) = RCT(14415)*V(1541) -! B(22857) = dA(14416)/dV(1541) - B(22857) = RCT(14416) -! B(22858) = dA(14417)/dV(2660) - B(22858) = RCT(14417)*V(5250) -! B(22859) = dA(14417)/dV(5250) - B(22859) = RCT(14417)*V(2660) -! B(22860) = dA(14418)/dV(2660) - B(22860) = RCT(14418) -! B(22861) = dA(14419)/dV(4409) - B(22861) = RCT(14419)*V(5255) -! B(22862) = dA(14419)/dV(5255) - B(22862) = RCT(14419)*V(4409) -! B(22863) = dA(14420)/dV(4409) - B(22863) = RCT(14420)*V(5255) -! B(22864) = dA(14420)/dV(5255) - B(22864) = RCT(14420)*V(4409) -! B(22865) = dA(14421)/dV(4409) - B(22865) = RCT(14421)*V(5252) -! B(22866) = dA(14421)/dV(5252) - B(22866) = RCT(14421)*V(4409) -! B(22867) = dA(14422)/dV(4409) - B(22867) = RCT(14422)*V(5253) -! B(22868) = dA(14422)/dV(5253) - B(22868) = RCT(14422)*V(4409) -! B(22869) = dA(14423)/dV(4409) - B(22869) = RCT(14423)*V(5256) -! B(22870) = dA(14423)/dV(5256) - B(22870) = RCT(14423)*V(4409) -! B(22871) = dA(14424)/dV(4409) - B(22871) = RCT(14424) -! B(22872) = dA(14425)/dV(4447) - B(22872) = RCT(14425)*V(5255) -! B(22873) = dA(14425)/dV(5255) - B(22873) = RCT(14425)*V(4447) -! B(22874) = dA(14426)/dV(4447) - B(22874) = RCT(14426)*V(5252) -! B(22875) = dA(14426)/dV(5252) - B(22875) = RCT(14426)*V(4447) -! B(22876) = dA(14427)/dV(4447) - B(22876) = RCT(14427)*V(5256) -! B(22877) = dA(14427)/dV(5256) - B(22877) = RCT(14427)*V(4447) -! B(22878) = dA(14428)/dV(4447) - B(22878) = RCT(14428) -! B(22879) = dA(14429)/dV(1958) - B(22879) = RCT(14429)*V(5250) -! B(22880) = dA(14429)/dV(5250) - B(22880) = RCT(14429)*V(1958) -! B(22881) = dA(14430)/dV(1958) - B(22881) = RCT(14430) -! B(22882) = dA(14431)/dV(774) - B(22882) = RCT(14431) -! B(22883) = dA(14432)/dV(3365) - B(22883) = RCT(14432)*V(5250) -! B(22884) = dA(14432)/dV(5250) - B(22884) = RCT(14432)*V(3365) -! B(22885) = dA(14433)/dV(3365) - B(22885) = RCT(14433) -! B(22886) = dA(14434)/dV(279) - B(22886) = RCT(14434)*V(5250) -! B(22887) = dA(14434)/dV(5250) - B(22887) = RCT(14434)*V(279) -! B(22888) = dA(14435)/dV(3248) - B(22888) = RCT(14435)*V(5256) -! B(22889) = dA(14435)/dV(5256) - B(22889) = RCT(14435)*V(3248) -! B(22890) = dA(14436)/dV(3248) - B(22890) = RCT(14436)*V(5250) -! B(22891) = dA(14436)/dV(5250) - B(22891) = RCT(14436)*V(3248) -! B(22892) = dA(14437)/dV(3248) - B(22892) = RCT(14437) -! B(22893) = dA(14438)/dV(1264) - B(22893) = RCT(14438)*V(5250) -! B(22894) = dA(14438)/dV(5250) - B(22894) = RCT(14438)*V(1264) -! B(22895) = dA(14439)/dV(1264) - B(22895) = RCT(14439) -! B(22896) = dA(14440)/dV(2032) - B(22896) = RCT(14440)*V(5250) -! B(22897) = dA(14440)/dV(5250) - B(22897) = RCT(14440)*V(2032) -! B(22898) = dA(14441)/dV(2032) - B(22898) = RCT(14441) -! B(22899) = dA(14442)/dV(2033) - B(22899) = RCT(14442) -! B(22900) = dA(14443)/dV(5072) - B(22900) = RCT(14443)*V(5256) -! B(22901) = dA(14443)/dV(5256) - B(22901) = RCT(14443)*V(5072) -! B(22902) = dA(14444)/dV(5072) - B(22902) = RCT(14444)*V(5256) -! B(22903) = dA(14444)/dV(5256) - B(22903) = RCT(14444)*V(5072) -! B(22904) = dA(14445)/dV(5072) - B(22904) = RCT(14445)*V(5250) -! B(22905) = dA(14445)/dV(5250) - B(22905) = RCT(14445)*V(5072) -! B(22906) = dA(14446)/dV(5072) - B(22906) = RCT(14446)*V(5250) -! B(22907) = dA(14446)/dV(5250) - B(22907) = RCT(14446)*V(5072) -! B(22908) = dA(14447)/dV(5072) - B(22908) = RCT(14447) -! B(22909) = dA(14448)/dV(5072) - B(22909) = RCT(14448) -! B(22910) = dA(14449)/dV(772) - B(22910) = RCT(14449)*V(5250) -! B(22911) = dA(14449)/dV(5250) - B(22911) = RCT(14449)*V(772) -! B(22912) = dA(14450)/dV(772) - B(22912) = RCT(14450) -! B(22913) = dA(14451)/dV(1528) - B(22913) = RCT(14451)*V(5250) -! B(22914) = dA(14451)/dV(5250) - B(22914) = RCT(14451)*V(1528) -! B(22915) = dA(14452)/dV(1528) - B(22915) = RCT(14452) -! B(22916) = dA(14453)/dV(1811) - B(22916) = RCT(14453)*V(5250) -! B(22917) = dA(14453)/dV(5250) - B(22917) = RCT(14453)*V(1811) -! B(22918) = dA(14454)/dV(1811) - B(22918) = RCT(14454) -! B(22919) = dA(14455)/dV(1812) - B(22919) = RCT(14455) -! B(22920) = dA(14456)/dV(527) - B(22920) = RCT(14456)*V(5250) -! B(22921) = dA(14456)/dV(5250) - B(22921) = RCT(14456)*V(527) -! B(22922) = dA(14457)/dV(527) - B(22922) = RCT(14457) -! B(22923) = dA(14458)/dV(2445) - B(22923) = RCT(14458)*V(5250) -! B(22924) = dA(14458)/dV(5250) - B(22924) = RCT(14458)*V(2445) -! B(22925) = dA(14459)/dV(2445) - B(22925) = RCT(14459) -! B(22926) = dA(14460)/dV(731) - B(22926) = RCT(14460) -! B(22927) = dA(14461)/dV(4486) - B(22927) = RCT(14461)*V(5255) -! B(22928) = dA(14461)/dV(5255) - B(22928) = RCT(14461)*V(4486) -! B(22929) = dA(14462)/dV(4486) - B(22929) = RCT(14462)*V(5252) -! B(22930) = dA(14462)/dV(5252) - B(22930) = RCT(14462)*V(4486) -! B(22931) = dA(14463)/dV(4486) - B(22931) = RCT(14463)*V(5256) -! B(22932) = dA(14463)/dV(5256) - B(22932) = RCT(14463)*V(4486) -! B(22933) = dA(14464)/dV(4486) - B(22933) = RCT(14464) -! B(22934) = dA(14465)/dV(4636) - B(22934) = RCT(14465)*V(5255) -! B(22935) = dA(14465)/dV(5255) - B(22935) = RCT(14465)*V(4636) -! B(22936) = dA(14466)/dV(4636) - B(22936) = RCT(14466)*V(5255) -! B(22937) = dA(14466)/dV(5255) - B(22937) = RCT(14466)*V(4636) -! B(22938) = dA(14467)/dV(4636) - B(22938) = RCT(14467)*V(5255) -! B(22939) = dA(14467)/dV(5255) - B(22939) = RCT(14467)*V(4636) -! B(22940) = dA(14468)/dV(4636) - B(22940) = RCT(14468)*V(5252) -! B(22941) = dA(14468)/dV(5252) - B(22941) = RCT(14468)*V(4636) -! B(22942) = dA(14469)/dV(4636) - B(22942) = RCT(14469)*V(5253) -! B(22943) = dA(14469)/dV(5253) - B(22943) = RCT(14469)*V(4636) -! B(22944) = dA(14470)/dV(4636) - B(22944) = RCT(14470)*V(5256) -! B(22945) = dA(14470)/dV(5256) - B(22945) = RCT(14470)*V(4636) -! B(22946) = dA(14471)/dV(4636) - B(22946) = RCT(14471) -! B(22947) = dA(14472)/dV(4636) - B(22947) = RCT(14472) -! B(22948) = dA(14473)/dV(5113) - B(22948) = RCT(14473)*V(5250) -! B(22949) = dA(14473)/dV(5250) - B(22949) = RCT(14473)*V(5113) -! B(22950) = dA(14474)/dV(5113) - B(22950) = RCT(14474) -! B(22951) = dA(14475)/dV(5113) - B(22951) = RCT(14475) -! B(22952) = dA(14476)/dV(294) - B(22952) = RCT(14476)*V(5250) -! B(22953) = dA(14476)/dV(5250) - B(22953) = RCT(14476)*V(294) -! B(22954) = dA(14477)/dV(916) - B(22954) = RCT(14477)*V(5250) -! B(22955) = dA(14477)/dV(5250) - B(22955) = RCT(14477)*V(916) -! B(22956) = dA(14478)/dV(916) - B(22956) = RCT(14478) -! B(22957) = dA(14479)/dV(3010) - B(22957) = RCT(14479)*V(5250) -! B(22958) = dA(14479)/dV(5250) - B(22958) = RCT(14479)*V(3010) -! B(22959) = dA(14480)/dV(3010) - B(22959) = RCT(14480) -! B(22960) = dA(14481)/dV(971) - B(22960) = RCT(14481)*V(5250) -! B(22961) = dA(14481)/dV(5250) - B(22961) = RCT(14481)*V(971) -! B(22962) = dA(14482)/dV(971) - B(22962) = RCT(14482) -! B(22963) = dA(14483)/dV(2916) - B(22963) = RCT(14483) -! B(22964) = dA(14484)/dV(543) - B(22964) = RCT(14484)*V(5250) -! B(22965) = dA(14484)/dV(5250) - B(22965) = RCT(14484)*V(543) -! B(22966) = dA(14485)/dV(4625) - B(22966) = RCT(14485)*V(5255) -! B(22967) = dA(14485)/dV(5255) - B(22967) = RCT(14485)*V(4625) -! B(22968) = dA(14486)/dV(4625) - B(22968) = RCT(14486)*V(5252) -! B(22969) = dA(14486)/dV(5252) - B(22969) = RCT(14486)*V(4625) -! B(22970) = dA(14487)/dV(4625) - B(22970) = RCT(14487)*V(5256) -! B(22971) = dA(14487)/dV(5256) - B(22971) = RCT(14487)*V(4625) -! B(22972) = dA(14488)/dV(4625) - B(22972) = RCT(14488) -! B(22973) = dA(14489)/dV(4625) - B(22973) = RCT(14489) -! B(22974) = dA(14490)/dV(1381) - B(22974) = RCT(14490)*V(5250) -! B(22975) = dA(14490)/dV(5250) - B(22975) = RCT(14490)*V(1381) -! B(22976) = dA(14491)/dV(1381) - B(22976) = RCT(14491) -! B(22977) = dA(14492)/dV(1766) - B(22977) = RCT(14492)*V(5250) -! B(22978) = dA(14492)/dV(5250) - B(22978) = RCT(14492)*V(1766) -! B(22979) = dA(14493)/dV(2591) - B(22979) = RCT(14493) -! B(22980) = dA(14494)/dV(650) - B(22980) = RCT(14494)*V(5250) -! B(22981) = dA(14494)/dV(5250) - B(22981) = RCT(14494)*V(650) -! B(22982) = dA(14495)/dV(5187) - B(22982) = RCT(14495)*V(5256) -! B(22983) = dA(14495)/dV(5256) - B(22983) = RCT(14495)*V(5187) -! B(22984) = dA(14496)/dV(5187) - B(22984) = RCT(14496)*V(5256) -! B(22985) = dA(14496)/dV(5256) - B(22985) = RCT(14496)*V(5187) -! B(22986) = dA(14497)/dV(5187) - B(22986) = RCT(14497)*V(5258) -! B(22987) = dA(14497)/dV(5258) - B(22987) = RCT(14497)*V(5187) -! B(22988) = dA(14498)/dV(5187) - B(22988) = RCT(14498)*V(5258) -! B(22989) = dA(14498)/dV(5258) - B(22989) = RCT(14498)*V(5187) -! B(22990) = dA(14499)/dV(5187) - B(22990) = RCT(14499)*V(5250) -! B(22991) = dA(14499)/dV(5250) - B(22991) = RCT(14499)*V(5187) -! B(22992) = dA(14500)/dV(5187) - B(22992) = RCT(14500)*V(5250) -! B(22993) = dA(14500)/dV(5250) - B(22993) = RCT(14500)*V(5187) -! B(22994) = dA(14501)/dV(5027) - B(22994) = RCT(14501)*V(5255) -! B(22995) = dA(14501)/dV(5255) - B(22995) = RCT(14501)*V(5027) -! B(22996) = dA(14502)/dV(5027) - B(22996) = RCT(14502)*V(5255) -! B(22997) = dA(14502)/dV(5255) - B(22997) = RCT(14502)*V(5027) -! B(22998) = dA(14503)/dV(5027) - B(22998) = RCT(14503)*V(5255) -! B(22999) = dA(14503)/dV(5255) - B(22999) = RCT(14503)*V(5027) -! B(23000) = dA(14504)/dV(5027) - B(23000) = RCT(14504)*V(5252) -! B(23001) = dA(14504)/dV(5252) - B(23001) = RCT(14504)*V(5027) -! B(23002) = dA(14505)/dV(5027) - B(23002) = RCT(14505)*V(5253) -! B(23003) = dA(14505)/dV(5253) - B(23003) = RCT(14505)*V(5027) -! B(23004) = dA(14506)/dV(5027) - B(23004) = RCT(14506)*V(5256) -! B(23005) = dA(14506)/dV(5256) - B(23005) = RCT(14506)*V(5027) -! B(23006) = dA(14507)/dV(5027) - B(23006) = RCT(14507) -! B(23007) = dA(14508)/dV(5027) - B(23007) = RCT(14508) -! B(23008) = dA(14509)/dV(2312) - B(23008) = RCT(14509)*V(5250) -! B(23009) = dA(14509)/dV(5250) - B(23009) = RCT(14509)*V(2312) -! B(23010) = dA(14510)/dV(2312) - B(23010) = RCT(14510) -! B(23011) = dA(14511)/dV(625) - B(23011) = RCT(14511) -! B(23012) = dA(14512)/dV(1493) - B(23012) = RCT(14512)*V(5250) -! B(23013) = dA(14512)/dV(5250) - B(23013) = RCT(14512)*V(1493) -! B(23014) = dA(14513)/dV(1493) - B(23014) = RCT(14513) -! B(23015) = dA(14514)/dV(247) - B(23015) = RCT(14514)*V(5250) -! B(23016) = dA(14514)/dV(5250) - B(23016) = RCT(14514)*V(247) -! B(23017) = dA(14515)/dV(1463) - B(23017) = RCT(14515)*V(5250) -! B(23018) = dA(14515)/dV(5250) - B(23018) = RCT(14515)*V(1463) -! B(23019) = dA(14516)/dV(1463) - B(23019) = RCT(14516) -! B(23020) = dA(14517)/dV(2224) - B(23020) = RCT(14517)*V(5250) -! B(23021) = dA(14517)/dV(5250) - B(23021) = RCT(14517)*V(2224) -! B(23022) = dA(14518)/dV(2224) - B(23022) = RCT(14518) -! B(23023) = dA(14519)/dV(203) - B(23023) = RCT(14519) -! B(23024) = dA(14520)/dV(481) - B(23024) = RCT(14520)*V(5250) -! B(23025) = dA(14520)/dV(5250) - B(23025) = RCT(14520)*V(481) -! B(23026) = dA(14521)/dV(1250) - B(23026) = RCT(14521)*V(5250) -! B(23027) = dA(14521)/dV(5250) - B(23027) = RCT(14521)*V(1250) -! B(23028) = dA(14522)/dV(1250) - B(23028) = RCT(14522) -! B(23029) = dA(14523)/dV(3743) - B(23029) = RCT(14523)*V(5255) -! B(23030) = dA(14523)/dV(5255) - B(23030) = RCT(14523)*V(3743) -! B(23031) = dA(14524)/dV(3743) - B(23031) = RCT(14524)*V(5252) -! B(23032) = dA(14524)/dV(5252) - B(23032) = RCT(14524)*V(3743) -! B(23033) = dA(14525)/dV(3743) - B(23033) = RCT(14525)*V(5252) -! B(23034) = dA(14525)/dV(5252) - B(23034) = RCT(14525)*V(3743) -! B(23035) = dA(14526)/dV(3743) - B(23035) = RCT(14526)*V(5256) -! B(23036) = dA(14526)/dV(5256) - B(23036) = RCT(14526)*V(3743) -! B(23037) = dA(14527)/dV(3743) - B(23037) = RCT(14527) -! B(23038) = dA(14528)/dV(3743) - B(23038) = RCT(14528) -! B(23039) = dA(14529)/dV(3743) - B(23039) = RCT(14529) -! B(23040) = dA(14530)/dV(360) - B(23040) = RCT(14530)*V(5250) -! B(23041) = dA(14530)/dV(5250) - B(23041) = RCT(14530)*V(360) -! B(23042) = dA(14531)/dV(3323) - B(23042) = RCT(14531)*V(5250) -! B(23043) = dA(14531)/dV(5250) - B(23043) = RCT(14531)*V(3323) -! B(23044) = dA(14532)/dV(3323) - B(23044) = RCT(14532) -! B(23045) = dA(14533)/dV(1546) - B(23045) = RCT(14533)*V(5250) -! B(23046) = dA(14533)/dV(5250) - B(23046) = RCT(14533)*V(1546) -! B(23047) = dA(14534)/dV(1546) - B(23047) = RCT(14534) -! B(23048) = dA(14535)/dV(2136) - B(23048) = RCT(14535)*V(5250) -! B(23049) = dA(14535)/dV(5250) - B(23049) = RCT(14535)*V(2136) -! B(23050) = dA(14536)/dV(2136) - B(23050) = RCT(14536) -! B(23051) = dA(14537)/dV(3613) - B(23051) = RCT(14537) -! B(23052) = dA(14538)/dV(3613) - B(23052) = RCT(14538) -! B(23053) = dA(14539)/dV(1660) - B(23053) = RCT(14539)*V(5250) -! B(23054) = dA(14539)/dV(5250) - B(23054) = RCT(14539)*V(1660) -! B(23055) = dA(14540)/dV(382) - B(23055) = RCT(14540)*V(5250) -! B(23056) = dA(14540)/dV(5250) - B(23056) = RCT(14540)*V(382) -! B(23057) = dA(14541)/dV(872) - B(23057) = RCT(14541)*V(5250) -! B(23058) = dA(14541)/dV(5250) - B(23058) = RCT(14541)*V(872) -! B(23059) = dA(14542)/dV(872) - B(23059) = RCT(14542) -! B(23060) = dA(14543)/dV(1972) - B(23060) = RCT(14543)*V(5250) -! B(23061) = dA(14543)/dV(5250) - B(23061) = RCT(14543)*V(1972) -! B(23062) = dA(14544)/dV(1972) - B(23062) = RCT(14544) -! B(23063) = dA(14545)/dV(178) - B(23063) = RCT(14545) -! B(23064) = dA(14546)/dV(2773) - B(23064) = RCT(14546)*V(5250) -! B(23065) = dA(14546)/dV(5250) - B(23065) = RCT(14546)*V(2773) -! B(23066) = dA(14547)/dV(2773) - B(23066) = RCT(14547) -! B(23067) = dA(14548)/dV(313) - B(23067) = RCT(14548)*V(5250) -! B(23068) = dA(14548)/dV(5250) - B(23068) = RCT(14548)*V(313) -! B(23069) = dA(14549)/dV(5130) - B(23069) = RCT(14549)*V(5255) -! B(23070) = dA(14549)/dV(5255) - B(23070) = RCT(14549)*V(5130) -! B(23071) = dA(14550)/dV(5130) - B(23071) = RCT(14550)*V(5252) -! B(23072) = dA(14550)/dV(5252) - B(23072) = RCT(14550)*V(5130) -! B(23073) = dA(14551)/dV(5130) - B(23073) = RCT(14551)*V(5252) -! B(23074) = dA(14551)/dV(5252) - B(23074) = RCT(14551)*V(5130) -! B(23075) = dA(14552)/dV(5130) - B(23075) = RCT(14552)*V(5256) -! B(23076) = dA(14552)/dV(5256) - B(23076) = RCT(14552)*V(5130) -! B(23077) = dA(14553)/dV(5130) - B(23077) = RCT(14553) -! B(23078) = dA(14554)/dV(5130) - B(23078) = RCT(14554) -! B(23079) = dA(14555)/dV(4572) - B(23079) = RCT(14555)*V(5255) -! B(23080) = dA(14555)/dV(5255) - B(23080) = RCT(14555)*V(4572) -! B(23081) = dA(14556)/dV(4572) - B(23081) = RCT(14556)*V(5252) -! B(23082) = dA(14556)/dV(5252) - B(23082) = RCT(14556)*V(4572) -! B(23083) = dA(14557)/dV(4572) - B(23083) = RCT(14557)*V(5256) -! B(23084) = dA(14557)/dV(5256) - B(23084) = RCT(14557)*V(4572) -! B(23085) = dA(14558)/dV(4572) - B(23085) = RCT(14558) -! B(23086) = dA(14559)/dV(4572) - B(23086) = RCT(14559) -! B(23087) = dA(14560)/dV(4572) - B(23087) = RCT(14560) -! B(23088) = dA(14561)/dV(4839) - B(23088) = RCT(14561)*V(5255) -! B(23089) = dA(14561)/dV(5255) - B(23089) = RCT(14561)*V(4839) -! B(23090) = dA(14562)/dV(4839) - B(23090) = RCT(14562)*V(5255) -! B(23091) = dA(14562)/dV(5255) - B(23091) = RCT(14562)*V(4839) -! B(23092) = dA(14563)/dV(4839) - B(23092) = RCT(14563)*V(5255) -! B(23093) = dA(14563)/dV(5255) - B(23093) = RCT(14563)*V(4839) -! B(23094) = dA(14564)/dV(4839) - B(23094) = RCT(14564)*V(5252) -! B(23095) = dA(14564)/dV(5252) - B(23095) = RCT(14564)*V(4839) -! B(23096) = dA(14565)/dV(4839) - B(23096) = RCT(14565)*V(5253) -! B(23097) = dA(14565)/dV(5253) - B(23097) = RCT(14565)*V(4839) -! B(23098) = dA(14566)/dV(4839) - B(23098) = RCT(14566)*V(5256) -! B(23099) = dA(14566)/dV(5256) - B(23099) = RCT(14566)*V(4839) -! B(23100) = dA(14567)/dV(4839) - B(23100) = RCT(14567) -! B(23101) = dA(14568)/dV(4839) - B(23101) = RCT(14568) -! B(23102) = dA(14569)/dV(1155) - B(23102) = RCT(14569)*V(5250) -! B(23103) = dA(14569)/dV(5250) - B(23103) = RCT(14569)*V(1155) -! B(23104) = dA(14570)/dV(1155) - B(23104) = RCT(14570) -! B(23105) = dA(14571)/dV(2327) - B(23105) = RCT(14571)*V(5250) -! B(23106) = dA(14571)/dV(5250) - B(23106) = RCT(14571)*V(2327) -! B(23107) = dA(14572)/dV(2327) - B(23107) = RCT(14572) -! B(23108) = dA(14573)/dV(297) - B(23108) = RCT(14573) -! B(23109) = dA(14574)/dV(134) - B(23109) = RCT(14574)*V(5250) -! B(23110) = dA(14574)/dV(5250) - B(23110) = RCT(14574)*V(134) -! B(23111) = dA(14575)/dV(1162) - B(23111) = RCT(14575)*V(5250) -! B(23112) = dA(14575)/dV(5250) - B(23112) = RCT(14575)*V(1162) -! B(23113) = dA(14576)/dV(1162) - B(23113) = RCT(14576) -! B(23114) = dA(14577)/dV(2164) - B(23114) = RCT(14577)*V(5250) -! B(23115) = dA(14577)/dV(5250) - B(23115) = RCT(14577)*V(2164) -! B(23116) = dA(14578)/dV(2164) - B(23116) = RCT(14578) -! B(23117) = dA(14579)/dV(3737) - B(23117) = RCT(14579) -! B(23118) = dA(14580)/dV(3737) - B(23118) = RCT(14580) -! B(23119) = dA(14581)/dV(3736) - B(23119) = RCT(14581)*V(5250) -! B(23120) = dA(14581)/dV(5250) - B(23120) = RCT(14581)*V(3736) -! B(23121) = dA(14582)/dV(415) - B(23121) = RCT(14582)*V(5250) -! B(23122) = dA(14582)/dV(5250) - B(23122) = RCT(14582)*V(415) -! B(23123) = dA(14583)/dV(4812) - B(23123) = RCT(14583)*V(5255) -! B(23124) = dA(14583)/dV(5255) - B(23124) = RCT(14583)*V(4812) -! B(23125) = dA(14584)/dV(4812) - B(23125) = RCT(14584)*V(5255) -! B(23126) = dA(14584)/dV(5255) - B(23126) = RCT(14584)*V(4812) -! B(23127) = dA(14585)/dV(4812) - B(23127) = RCT(14585)*V(5255) -! B(23128) = dA(14585)/dV(5255) - B(23128) = RCT(14585)*V(4812) -! B(23129) = dA(14586)/dV(4812) - B(23129) = RCT(14586)*V(5252) -! B(23130) = dA(14586)/dV(5252) - B(23130) = RCT(14586)*V(4812) -! B(23131) = dA(14587)/dV(4812) - B(23131) = RCT(14587)*V(5253) -! B(23132) = dA(14587)/dV(5253) - B(23132) = RCT(14587)*V(4812) -! B(23133) = dA(14588)/dV(4812) - B(23133) = RCT(14588)*V(5256) -! B(23134) = dA(14588)/dV(5256) - B(23134) = RCT(14588)*V(4812) -! B(23135) = dA(14589)/dV(4812) - B(23135) = RCT(14589) -! B(23136) = dA(14590)/dV(4812) - B(23136) = RCT(14590) -! B(23137) = dA(14591)/dV(2440) - B(23137) = RCT(14591)*V(5250) -! B(23138) = dA(14591)/dV(5250) - B(23138) = RCT(14591)*V(2440) -! B(23139) = dA(14592)/dV(2440) - B(23139) = RCT(14592) -! B(23140) = dA(14593)/dV(817) - B(23140) = RCT(14593) -! B(23141) = dA(14594)/dV(406) - B(23141) = RCT(14594)*V(5250) -! B(23142) = dA(14594)/dV(5250) - B(23142) = RCT(14594)*V(406) -! B(23143) = dA(14595)/dV(1060) - B(23143) = RCT(14595)*V(5250) -! B(23144) = dA(14595)/dV(5250) - B(23144) = RCT(14595)*V(1060) -! B(23145) = dA(14596)/dV(1060) - B(23145) = RCT(14596) -! B(23146) = dA(14597)/dV(1813) - B(23146) = RCT(14597)*V(5250) -! B(23147) = dA(14597)/dV(5250) - B(23147) = RCT(14597)*V(1813) -! B(23148) = dA(14598)/dV(1813) - B(23148) = RCT(14598) -! B(23149) = dA(14599)/dV(1814) - B(23149) = RCT(14599) -! B(23150) = dA(14600)/dV(394) - B(23150) = RCT(14600)*V(5250) -! B(23151) = dA(14600)/dV(5250) - B(23151) = RCT(14600)*V(394) -! B(23152) = dA(14601)/dV(4196) - B(23152) = RCT(14601)*V(5255) -! B(23153) = dA(14601)/dV(5255) - B(23153) = RCT(14601)*V(4196) -! B(23154) = dA(14602)/dV(4196) - B(23154) = RCT(14602)*V(5252) -! B(23155) = dA(14602)/dV(5252) - B(23155) = RCT(14602)*V(4196) -! B(23156) = dA(14603)/dV(4196) - B(23156) = RCT(14603)*V(5252) -! B(23157) = dA(14603)/dV(5252) - B(23157) = RCT(14603)*V(4196) -! B(23158) = dA(14604)/dV(4196) - B(23158) = RCT(14604)*V(5256) -! B(23159) = dA(14604)/dV(5256) - B(23159) = RCT(14604)*V(4196) -! B(23160) = dA(14605)/dV(4196) - B(23160) = RCT(14605) -! B(23161) = dA(14606)/dV(4196) - B(23161) = RCT(14606) -! B(23162) = dA(14607)/dV(4196) - B(23162) = RCT(14607) -! B(23163) = dA(14608)/dV(367) - B(23163) = RCT(14608)*V(5250) -! B(23164) = dA(14608)/dV(5250) - B(23164) = RCT(14608)*V(367) -! B(23165) = dA(14609)/dV(1199) - B(23165) = RCT(14609)*V(5250) -! B(23166) = dA(14609)/dV(5250) - B(23166) = RCT(14609)*V(1199) -! B(23167) = dA(14610)/dV(1199) - B(23167) = RCT(14610) -! B(23168) = dA(14611)/dV(3841) - B(23168) = RCT(14611)*V(5255) -! B(23169) = dA(14611)/dV(5255) - B(23169) = RCT(14611)*V(3841) -! B(23170) = dA(14612)/dV(3841) - B(23170) = RCT(14612)*V(5252) -! B(23171) = dA(14612)/dV(5252) - B(23171) = RCT(14612)*V(3841) -! B(23172) = dA(14613)/dV(3841) - B(23172) = RCT(14613)*V(5252) -! B(23173) = dA(14613)/dV(5252) - B(23173) = RCT(14613)*V(3841) -! B(23174) = dA(14614)/dV(3841) - B(23174) = RCT(14614)*V(5256) -! B(23175) = dA(14614)/dV(5256) - B(23175) = RCT(14614)*V(3841) -! B(23176) = dA(14615)/dV(3841) - B(23176) = RCT(14615) -! B(23177) = dA(14616)/dV(3841) - B(23177) = RCT(14616) -! B(23178) = dA(14617)/dV(3841) - B(23178) = RCT(14617) -! B(23179) = dA(14618)/dV(2813) - B(23179) = RCT(14618)*V(5250) -! B(23180) = dA(14618)/dV(5250) - B(23180) = RCT(14618)*V(2813) -! B(23181) = dA(14619)/dV(2813) - B(23181) = RCT(14619) -! B(23182) = dA(14620)/dV(4673) - B(23182) = RCT(14620)*V(5255) -! B(23183) = dA(14620)/dV(5255) - B(23183) = RCT(14620)*V(4673) -! B(23184) = dA(14621)/dV(4673) - B(23184) = RCT(14621)*V(5255) -! B(23185) = dA(14621)/dV(5255) - B(23185) = RCT(14621)*V(4673) -! B(23186) = dA(14622)/dV(4673) - B(23186) = RCT(14622)*V(5255) -! B(23187) = dA(14622)/dV(5255) - B(23187) = RCT(14622)*V(4673) -! B(23188) = dA(14623)/dV(4673) - B(23188) = RCT(14623)*V(5252) -! B(23189) = dA(14623)/dV(5252) - B(23189) = RCT(14623)*V(4673) -! B(23190) = dA(14624)/dV(4673) - B(23190) = RCT(14624)*V(5253) -! B(23191) = dA(14624)/dV(5253) - B(23191) = RCT(14624)*V(4673) -! B(23192) = dA(14625)/dV(4673) - B(23192) = RCT(14625)*V(5256) -! B(23193) = dA(14625)/dV(5256) - B(23193) = RCT(14625)*V(4673) -! B(23194) = dA(14626)/dV(4673) - B(23194) = RCT(14626) -! B(23195) = dA(14627)/dV(4673) - B(23195) = RCT(14627) -! B(23196) = dA(14628)/dV(1871) - B(23196) = RCT(14628)*V(5250) -! B(23197) = dA(14628)/dV(5250) - B(23197) = RCT(14628)*V(1871) -! B(23198) = dA(14629)/dV(1871) - B(23198) = RCT(14629) -! B(23199) = dA(14630)/dV(810) - B(23199) = RCT(14630) -! B(23200) = dA(14631)/dV(411) - B(23200) = RCT(14631)*V(5250) -! B(23201) = dA(14631)/dV(5250) - B(23201) = RCT(14631)*V(411) -! B(23202) = dA(14632)/dV(4137) - B(23202) = RCT(14632)*V(5255) -! B(23203) = dA(14632)/dV(5255) - B(23203) = RCT(14632)*V(4137) -! B(23204) = dA(14633)/dV(4137) - B(23204) = RCT(14633)*V(5252) -! B(23205) = dA(14633)/dV(5252) - B(23205) = RCT(14633)*V(4137) -! B(23206) = dA(14634)/dV(4137) - B(23206) = RCT(14634)*V(5252) -! B(23207) = dA(14634)/dV(5252) - B(23207) = RCT(14634)*V(4137) -! B(23208) = dA(14635)/dV(4137) - B(23208) = RCT(14635)*V(5256) -! B(23209) = dA(14635)/dV(5256) - B(23209) = RCT(14635)*V(4137) -! B(23210) = dA(14636)/dV(4137) - B(23210) = RCT(14636) -! B(23211) = dA(14637)/dV(4137) - B(23211) = RCT(14637) -! B(23212) = dA(14638)/dV(1295) - B(23212) = RCT(14638)*V(5250) -! B(23213) = dA(14638)/dV(5250) - B(23213) = RCT(14638)*V(1295) -! B(23214) = dA(14639)/dV(1295) - B(23214) = RCT(14639) -! B(23215) = dA(14640)/dV(1930) - B(23215) = RCT(14640)*V(5250) -! B(23216) = dA(14640)/dV(5250) - B(23216) = RCT(14640)*V(1930) -! B(23217) = dA(14641)/dV(1930) - B(23217) = RCT(14641) -! B(23218) = dA(14642)/dV(1931) - B(23218) = RCT(14642) -! B(23219) = dA(14643)/dV(218) - B(23219) = RCT(14643)*V(5250) -! B(23220) = dA(14643)/dV(5250) - B(23220) = RCT(14643)*V(218) -! B(23221) = dA(14644)/dV(973) - B(23221) = RCT(14644)*V(5250) -! B(23222) = dA(14644)/dV(5250) - B(23222) = RCT(14644)*V(973) -! B(23223) = dA(14645)/dV(973) - B(23223) = RCT(14645) -! B(23224) = dA(14646)/dV(163) - B(23224) = RCT(14646) -! B(23225) = dA(14647)/dV(101) - B(23225) = RCT(14647)*V(5250) -! B(23226) = dA(14647)/dV(5250) - B(23226) = RCT(14647)*V(101) -! B(23227) = dA(14648)/dV(1357) - B(23227) = RCT(14648)*V(5250) -! B(23228) = dA(14648)/dV(5250) - B(23228) = RCT(14648)*V(1357) -! B(23229) = dA(14649)/dV(1357) - B(23229) = RCT(14649) -! B(23230) = dA(14650)/dV(164) - B(23230) = RCT(14650) -! B(23231) = dA(14651)/dV(98) - B(23231) = RCT(14651)*V(5250) -! B(23232) = dA(14651)/dV(5250) - B(23232) = RCT(14651)*V(98) -! B(23233) = dA(14652)/dV(1464) - B(23233) = RCT(14652)*V(5250) -! B(23234) = dA(14652)/dV(5250) - B(23234) = RCT(14652)*V(1464) -! B(23235) = dA(14653)/dV(1464) - B(23235) = RCT(14653) -! B(23236) = dA(14654)/dV(152) - B(23236) = RCT(14654) -! B(23237) = dA(14655)/dV(26) - B(23237) = RCT(14655)*V(5250) -! B(23238) = dA(14655)/dV(5250) - B(23238) = RCT(14655)*V(26) -! B(23239) = dA(14656)/dV(1085) - B(23239) = RCT(14656)*V(5250) -! B(23240) = dA(14656)/dV(5250) - B(23240) = RCT(14656)*V(1085) -! B(23241) = dA(14657)/dV(1085) - B(23241) = RCT(14657) -! B(23242) = dA(14658)/dV(2510) - B(23242) = RCT(14658)*V(5250) -! B(23243) = dA(14658)/dV(5250) - B(23243) = RCT(14658)*V(2510) -! B(23244) = dA(14659)/dV(2510) - B(23244) = RCT(14659) -! B(23245) = dA(14660)/dV(1784) - B(23245) = RCT(14660)*V(5250) -! B(23246) = dA(14660)/dV(5250) - B(23246) = RCT(14660)*V(1784) -! B(23247) = dA(14661)/dV(1784) - B(23247) = RCT(14661) -! B(23248) = dA(14662)/dV(655) - B(23248) = RCT(14662) -! B(23249) = dA(14663)/dV(989) - B(23249) = RCT(14663)*V(5250) -! B(23250) = dA(14663)/dV(5250) - B(23250) = RCT(14663)*V(989) -! B(23251) = dA(14664)/dV(989) - B(23251) = RCT(14664) -! B(23252) = dA(14665)/dV(76) - B(23252) = RCT(14665) -! B(23253) = dA(14666)/dV(4157) - B(23253) = RCT(14666)*V(5255) -! B(23254) = dA(14666)/dV(5255) - B(23254) = RCT(14666)*V(4157) -! B(23255) = dA(14667)/dV(4157) - B(23255) = RCT(14667)*V(5252) -! B(23256) = dA(14667)/dV(5252) - B(23256) = RCT(14667)*V(4157) -! B(23257) = dA(14668)/dV(4157) - B(23257) = RCT(14668)*V(5252) -! B(23258) = dA(14668)/dV(5252) - B(23258) = RCT(14668)*V(4157) -! B(23259) = dA(14669)/dV(4157) - B(23259) = RCT(14669)*V(5256) -! B(23260) = dA(14669)/dV(5256) - B(23260) = RCT(14669)*V(4157) -! B(23261) = dA(14670)/dV(4157) - B(23261) = RCT(14670) -! B(23262) = dA(14671)/dV(4157) - B(23262) = RCT(14671) -! B(23263) = dA(14672)/dV(4497) - B(23263) = RCT(14672)*V(5255) -! B(23264) = dA(14672)/dV(5255) - B(23264) = RCT(14672)*V(4497) -! B(23265) = dA(14673)/dV(4497) - B(23265) = RCT(14673)*V(5252) -! B(23266) = dA(14673)/dV(5252) - B(23266) = RCT(14673)*V(4497) -! B(23267) = dA(14674)/dV(4497) - B(23267) = RCT(14674)*V(5256) -! B(23268) = dA(14674)/dV(5256) - B(23268) = RCT(14674)*V(4497) -! B(23269) = dA(14675)/dV(4497) - B(23269) = RCT(14675) -! B(23270) = dA(14676)/dV(863) - B(23270) = RCT(14676)*V(5250) -! B(23271) = dA(14676)/dV(5250) - B(23271) = RCT(14676)*V(863) -! B(23272) = dA(14677)/dV(863) - B(23272) = RCT(14677) -! B(23273) = dA(14678)/dV(2694) - B(23273) = RCT(14678) -! B(23274) = dA(14679)/dV(1146) - B(23274) = RCT(14679)*V(5250) -! B(23275) = dA(14679)/dV(5250) - B(23275) = RCT(14679)*V(1146) -! B(23276) = dA(14680)/dV(1146) - B(23276) = RCT(14680) -! B(23277) = dA(14681)/dV(2573) - B(23277) = RCT(14681)*V(5250) -! B(23278) = dA(14681)/dV(5250) - B(23278) = RCT(14681)*V(2573) -! B(23279) = dA(14682)/dV(2573) - B(23279) = RCT(14682) -! B(23280) = dA(14683)/dV(1522) - B(23280) = RCT(14683)*V(5250) -! B(23281) = dA(14683)/dV(5250) - B(23281) = RCT(14683)*V(1522) -! B(23282) = dA(14684)/dV(1522) - B(23282) = RCT(14684) -! B(23283) = dA(14685)/dV(2667) - B(23283) = RCT(14685) -! B(23284) = dA(14686)/dV(4854) - B(23284) = RCT(14686)*V(5255) -! B(23285) = dA(14686)/dV(5255) - B(23285) = RCT(14686)*V(4854) -! B(23286) = dA(14687)/dV(4854) - B(23286) = RCT(14687)*V(5255) -! B(23287) = dA(14687)/dV(5255) - B(23287) = RCT(14687)*V(4854) -! B(23288) = dA(14688)/dV(4854) - B(23288) = RCT(14688)*V(5255) -! B(23289) = dA(14688)/dV(5255) - B(23289) = RCT(14688)*V(4854) -! B(23290) = dA(14689)/dV(4854) - B(23290) = RCT(14689)*V(5252) -! B(23291) = dA(14689)/dV(5252) - B(23291) = RCT(14689)*V(4854) -! B(23292) = dA(14690)/dV(4854) - B(23292) = RCT(14690)*V(5253) -! B(23293) = dA(14690)/dV(5253) - B(23293) = RCT(14690)*V(4854) -! B(23294) = dA(14691)/dV(4854) - B(23294) = RCT(14691)*V(5256) -! B(23295) = dA(14691)/dV(5256) - B(23295) = RCT(14691)*V(4854) -! B(23296) = dA(14692)/dV(4854) - B(23296) = RCT(14692) -! B(23297) = dA(14693)/dV(4854) - B(23297) = RCT(14693) -! B(23298) = dA(14694)/dV(4653) - B(23298) = RCT(14694)*V(5255) -! B(23299) = dA(14694)/dV(5255) - B(23299) = RCT(14694)*V(4653) -! B(23300) = dA(14695)/dV(4653) - B(23300) = RCT(14695)*V(5255) -! B(23301) = dA(14695)/dV(5255) - B(23301) = RCT(14695)*V(4653) -! B(23302) = dA(14696)/dV(4653) - B(23302) = RCT(14696)*V(5255) -! B(23303) = dA(14696)/dV(5255) - B(23303) = RCT(14696)*V(4653) -! B(23304) = dA(14697)/dV(4653) - B(23304) = RCT(14697)*V(5252) -! B(23305) = dA(14697)/dV(5252) - B(23305) = RCT(14697)*V(4653) -! B(23306) = dA(14698)/dV(4653) - B(23306) = RCT(14698)*V(5253) -! B(23307) = dA(14698)/dV(5253) - B(23307) = RCT(14698)*V(4653) -! B(23308) = dA(14699)/dV(4653) - B(23308) = RCT(14699)*V(5256) -! B(23309) = dA(14699)/dV(5256) - B(23309) = RCT(14699)*V(4653) -! B(23310) = dA(14700)/dV(4653) - B(23310) = RCT(14700) -! B(23311) = dA(14701)/dV(4653) - B(23311) = RCT(14701) -! B(23312) = dA(14702)/dV(4818) - B(23312) = RCT(14702)*V(5255) -! B(23313) = dA(14702)/dV(5255) - B(23313) = RCT(14702)*V(4818) -! B(23314) = dA(14703)/dV(4818) - B(23314) = RCT(14703)*V(5255) -! B(23315) = dA(14703)/dV(5255) - B(23315) = RCT(14703)*V(4818) -! B(23316) = dA(14704)/dV(4818) - B(23316) = RCT(14704)*V(5255) -! B(23317) = dA(14704)/dV(5255) - B(23317) = RCT(14704)*V(4818) -! B(23318) = dA(14705)/dV(4818) - B(23318) = RCT(14705)*V(5252) -! B(23319) = dA(14705)/dV(5252) - B(23319) = RCT(14705)*V(4818) -! B(23320) = dA(14706)/dV(4818) - B(23320) = RCT(14706)*V(5253) -! B(23321) = dA(14706)/dV(5253) - B(23321) = RCT(14706)*V(4818) -! B(23322) = dA(14707)/dV(4818) - B(23322) = RCT(14707)*V(5256) -! B(23323) = dA(14707)/dV(5256) - B(23323) = RCT(14707)*V(4818) -! B(23324) = dA(14708)/dV(4818) - B(23324) = RCT(14708) -! B(23325) = dA(14709)/dV(4818) - B(23325) = RCT(14709) -! B(23326) = dA(14710)/dV(4459) - B(23326) = RCT(14710)*V(5255) -! B(23327) = dA(14710)/dV(5255) - B(23327) = RCT(14710)*V(4459) -! B(23328) = dA(14711)/dV(4459) - B(23328) = RCT(14711)*V(5252) -! B(23329) = dA(14711)/dV(5252) - B(23329) = RCT(14711)*V(4459) -! B(23330) = dA(14712)/dV(4459) - B(23330) = RCT(14712)*V(5256) -! B(23331) = dA(14712)/dV(5256) - B(23331) = RCT(14712)*V(4459) -! B(23332) = dA(14713)/dV(4459) - B(23332) = RCT(14713) -! B(23333) = dA(14714)/dV(4459) - B(23333) = RCT(14714) -! B(23334) = dA(14715)/dV(4459) - B(23334) = RCT(14715) -! B(23335) = dA(14716)/dV(4960) - B(23335) = RCT(14716)*V(5255) -! B(23336) = dA(14716)/dV(5255) - B(23336) = RCT(14716)*V(4960) -! B(23337) = dA(14717)/dV(4960) - B(23337) = RCT(14717)*V(5252) -! B(23338) = dA(14717)/dV(5252) - B(23338) = RCT(14717)*V(4960) -! B(23339) = dA(14718)/dV(4960) - B(23339) = RCT(14718)*V(5256) -! B(23340) = dA(14718)/dV(5256) - B(23340) = RCT(14718)*V(4960) -! B(23341) = dA(14719)/dV(4960) - B(23341) = RCT(14719) -! B(23342) = dA(14720)/dV(4960) - B(23342) = RCT(14720) -! B(23343) = dA(14721)/dV(1044) - B(23343) = RCT(14721)*V(5250) -! B(23344) = dA(14721)/dV(5250) - B(23344) = RCT(14721)*V(1044) -! B(23345) = dA(14722)/dV(1044) - B(23345) = RCT(14722) -! B(23346) = dA(14723)/dV(3067) - B(23346) = RCT(14723) -! B(23347) = dA(14724)/dV(506) - B(23347) = RCT(14724)*V(5250) -! B(23348) = dA(14724)/dV(5250) - B(23348) = RCT(14724)*V(506) -! B(23349) = dA(14725)/dV(936) - B(23349) = RCT(14725)*V(5250) -! B(23350) = dA(14725)/dV(5250) - B(23350) = RCT(14725)*V(936) -! B(23351) = dA(14726)/dV(936) - B(23351) = RCT(14726) -! B(23352) = dA(14727)/dV(2777) - B(23352) = RCT(14727)*V(5250) -! B(23353) = dA(14727)/dV(5250) - B(23353) = RCT(14727)*V(2777) -! B(23354) = dA(14728)/dV(2777) - B(23354) = RCT(14728) -! B(23355) = dA(14729)/dV(3495) - B(23355) = RCT(14729)*V(5250) -! B(23356) = dA(14729)/dV(5250) - B(23356) = RCT(14729)*V(3495) -! B(23357) = dA(14730)/dV(3495) - B(23357) = RCT(14730) -! B(23358) = dA(14731)/dV(3495) - B(23358) = RCT(14731) -! B(23359) = dA(14732)/dV(3495) - B(23359) = RCT(14732) -! B(23360) = dA(14733)/dV(3611) - B(23360) = RCT(14733) -! B(23361) = dA(14734)/dV(3611) - B(23361) = RCT(14734) -! B(23362) = dA(14735)/dV(2475) - B(23362) = RCT(14735)*V(5250) -! B(23363) = dA(14735)/dV(5250) - B(23363) = RCT(14735)*V(2475) -! B(23364) = dA(14736)/dV(2475) - B(23364) = RCT(14736) -! B(23365) = dA(14737)/dV(2475) - B(23365) = RCT(14737) -! B(23366) = dA(14738)/dV(4117) - B(23366) = RCT(14738)*V(5255) -! B(23367) = dA(14738)/dV(5255) - B(23367) = RCT(14738)*V(4117) -! B(23368) = dA(14739)/dV(4117) - B(23368) = RCT(14739)*V(5252) -! B(23369) = dA(14739)/dV(5252) - B(23369) = RCT(14739)*V(4117) -! B(23370) = dA(14740)/dV(4117) - B(23370) = RCT(14740)*V(5256) -! B(23371) = dA(14740)/dV(5256) - B(23371) = RCT(14740)*V(4117) -! B(23372) = dA(14741)/dV(4117) - B(23372) = RCT(14741) -! B(23373) = dA(14742)/dV(4117) - B(23373) = RCT(14742) -! B(23374) = dA(14743)/dV(3849) - B(23374) = RCT(14743)*V(5256) -! B(23375) = dA(14743)/dV(5256) - B(23375) = RCT(14743)*V(3849) -! B(23376) = dA(14744)/dV(3849) - B(23376) = RCT(14744)*V(5250) -! B(23377) = dA(14744)/dV(5250) - B(23377) = RCT(14744)*V(3849) -! B(23378) = dA(14745)/dV(61) - B(23378) = RCT(14745) -! B(23379) = dA(14746)/dV(3848) - B(23379) = RCT(14746)*V(5255) -! B(23380) = dA(14746)/dV(5255) - B(23380) = RCT(14746)*V(3848) -! B(23381) = dA(14747)/dV(3848) - B(23381) = RCT(14747)*V(5252) -! B(23382) = dA(14747)/dV(5252) - B(23382) = RCT(14747)*V(3848) -! B(23383) = dA(14748)/dV(3848) - B(23383) = RCT(14748)*V(5252) -! B(23384) = dA(14748)/dV(5252) - B(23384) = RCT(14748)*V(3848) -! B(23385) = dA(14749)/dV(3848) - B(23385) = RCT(14749)*V(5256) -! B(23386) = dA(14749)/dV(5256) - B(23386) = RCT(14749)*V(3848) -! B(23387) = dA(14750)/dV(3848) - B(23387) = RCT(14750) -! B(23388) = dA(14751)/dV(3848) - B(23388) = RCT(14751) -! B(23389) = dA(14752)/dV(252) - B(23389) = RCT(14752)*V(5250) -! B(23390) = dA(14752)/dV(5250) - B(23390) = RCT(14752)*V(252) -! B(23391) = dA(14753)/dV(1107) - B(23391) = RCT(14753)*V(5250) -! B(23392) = dA(14753)/dV(5250) - B(23392) = RCT(14753)*V(1107) -! B(23393) = dA(14754)/dV(1107) - B(23393) = RCT(14754) -! B(23394) = dA(14755)/dV(4342) - B(23394) = RCT(14755)*V(5255) -! B(23395) = dA(14755)/dV(5255) - B(23395) = RCT(14755)*V(4342) -! B(23396) = dA(14756)/dV(4342) - B(23396) = RCT(14756)*V(5252) -! B(23397) = dA(14756)/dV(5252) - B(23397) = RCT(14756)*V(4342) -! B(23398) = dA(14757)/dV(4342) - B(23398) = RCT(14757)*V(5252) -! B(23399) = dA(14757)/dV(5252) - B(23399) = RCT(14757)*V(4342) -! B(23400) = dA(14758)/dV(4342) - B(23400) = RCT(14758)*V(5256) -! B(23401) = dA(14758)/dV(5256) - B(23401) = RCT(14758)*V(4342) -! B(23402) = dA(14759)/dV(4342) - B(23402) = RCT(14759) -! B(23403) = dA(14760)/dV(4342) - B(23403) = RCT(14760) -! B(23404) = dA(14761)/dV(4342) - B(23404) = RCT(14761) -! B(23405) = dA(14762)/dV(2637) - B(23405) = RCT(14762)*V(5250) -! B(23406) = dA(14762)/dV(5250) - B(23406) = RCT(14762)*V(2637) -! B(23407) = dA(14763)/dV(2637) - B(23407) = RCT(14763) -! B(23408) = dA(14764)/dV(4120) - B(23408) = RCT(14764)*V(5255) -! B(23409) = dA(14764)/dV(5255) - B(23409) = RCT(14764)*V(4120) -! B(23410) = dA(14765)/dV(4120) - B(23410) = RCT(14765)*V(5252) -! B(23411) = dA(14765)/dV(5252) - B(23411) = RCT(14765)*V(4120) -! B(23412) = dA(14766)/dV(4120) - B(23412) = RCT(14766)*V(5256) -! B(23413) = dA(14766)/dV(5256) - B(23413) = RCT(14766)*V(4120) -! B(23414) = dA(14767)/dV(4120) - B(23414) = RCT(14767) -! B(23415) = dA(14768)/dV(4120) - B(23415) = RCT(14768) -! B(23416) = dA(14769)/dV(4120) - B(23416) = RCT(14769) -! B(23417) = dA(14770)/dV(1339) - B(23417) = RCT(14770)*V(5250) -! B(23418) = dA(14770)/dV(5250) - B(23418) = RCT(14770)*V(1339) -! B(23419) = dA(14771)/dV(1339) - B(23419) = RCT(14771) -! B(23420) = dA(14772)/dV(1883) - B(23420) = RCT(14772)*V(5250) -! B(23421) = dA(14772)/dV(5250) - B(23421) = RCT(14772)*V(1883) -! B(23422) = dA(14773)/dV(1883) - B(23422) = RCT(14773) -! B(23423) = dA(14774)/dV(157) - B(23423) = RCT(14774) -! B(23424) = dA(14775)/dV(2979) - B(23424) = RCT(14775)*V(5250) -! B(23425) = dA(14775)/dV(5250) - B(23425) = RCT(14775)*V(2979) -! B(23426) = dA(14776)/dV(2979) - B(23426) = RCT(14776) -! B(23427) = dA(14777)/dV(476) - B(23427) = RCT(14777)*V(5250) -! B(23428) = dA(14777)/dV(5250) - B(23428) = RCT(14777)*V(476) -! B(23429) = dA(14778)/dV(4216) - B(23429) = RCT(14778)*V(5255) -! B(23430) = dA(14778)/dV(5255) - B(23430) = RCT(14778)*V(4216) -! B(23431) = dA(14779)/dV(4216) - B(23431) = RCT(14779)*V(5252) -! B(23432) = dA(14779)/dV(5252) - B(23432) = RCT(14779)*V(4216) -! B(23433) = dA(14780)/dV(4216) - B(23433) = RCT(14780)*V(5252) -! B(23434) = dA(14780)/dV(5252) - B(23434) = RCT(14780)*V(4216) -! B(23435) = dA(14781)/dV(4216) - B(23435) = RCT(14781)*V(5256) -! B(23436) = dA(14781)/dV(5256) - B(23436) = RCT(14781)*V(4216) -! B(23437) = dA(14782)/dV(4216) - B(23437) = RCT(14782) -! B(23438) = dA(14783)/dV(4216) - B(23438) = RCT(14783) -! B(23439) = dA(14784)/dV(1411) - B(23439) = RCT(14784)*V(5250) -! B(23440) = dA(14784)/dV(5250) - B(23440) = RCT(14784)*V(1411) -! B(23441) = dA(14785)/dV(1411) - B(23441) = RCT(14785) -! B(23442) = dA(14786)/dV(2802) - B(23442) = RCT(14786)*V(5250) -! B(23443) = dA(14786)/dV(5250) - B(23443) = RCT(14786)*V(2802) -! B(23444) = dA(14787)/dV(2802) - B(23444) = RCT(14787) -! B(23445) = dA(14788)/dV(1818) - B(23445) = RCT(14788) -! B(23446) = dA(14789)/dV(547) - B(23446) = RCT(14789)*V(5250) -! B(23447) = dA(14789)/dV(5250) - B(23447) = RCT(14789)*V(547) -! B(23448) = dA(14790)/dV(547) - B(23448) = RCT(14790) -! B(23449) = dA(14791)/dV(1485) - B(23449) = RCT(14791)*V(5250) -! B(23450) = dA(14791)/dV(5250) - B(23450) = RCT(14791)*V(1485) -! B(23451) = dA(14792)/dV(1485) - B(23451) = RCT(14792) -! B(23452) = dA(14793)/dV(2749) - B(23452) = RCT(14793) -! B(23453) = dA(14794)/dV(2809) - B(23453) = RCT(14794)*V(5250) -! B(23454) = dA(14794)/dV(5250) - B(23454) = RCT(14794)*V(2809) -! B(23455) = dA(14795)/dV(2809) - B(23455) = RCT(14795) -! B(23456) = dA(14796)/dV(1875) - B(23456) = RCT(14796)*V(5250) -! B(23457) = dA(14796)/dV(5250) - B(23457) = RCT(14796)*V(1875) -! B(23458) = dA(14797)/dV(1875) - B(23458) = RCT(14797) -! B(23459) = dA(14798)/dV(470) - B(23459) = RCT(14798)*V(5250) -! B(23460) = dA(14798)/dV(5250) - B(23460) = RCT(14798)*V(470) -! B(23461) = dA(14799)/dV(1507) - B(23461) = RCT(14799)*V(5250) -! B(23462) = dA(14799)/dV(5250) - B(23462) = RCT(14799)*V(1507) -! B(23463) = dA(14800)/dV(1507) - B(23463) = RCT(14800) -! B(23464) = dA(14801)/dV(4234) - B(23464) = RCT(14801)*V(5255) -! B(23465) = dA(14801)/dV(5255) - B(23465) = RCT(14801)*V(4234) -! B(23466) = dA(14802)/dV(4234) - B(23466) = RCT(14802)*V(5252) -! B(23467) = dA(14802)/dV(5252) - B(23467) = RCT(14802)*V(4234) -! B(23468) = dA(14803)/dV(4234) - B(23468) = RCT(14803)*V(5256) -! B(23469) = dA(14803)/dV(5256) - B(23469) = RCT(14803)*V(4234) -! B(23470) = dA(14804)/dV(4234) - B(23470) = RCT(14804) -! B(23471) = dA(14805)/dV(4234) - B(23471) = RCT(14805) -! B(23472) = dA(14806)/dV(3029) - B(23472) = RCT(14806)*V(5250) -! B(23473) = dA(14806)/dV(5250) - B(23473) = RCT(14806)*V(3029) -! B(23474) = dA(14807)/dV(3029) - B(23474) = RCT(14807) -! B(23475) = dA(14808)/dV(2719) - B(23475) = RCT(14808)*V(5250) -! B(23476) = dA(14808)/dV(5250) - B(23476) = RCT(14808)*V(2719) -! B(23477) = dA(14809)/dV(3855) - B(23477) = RCT(14809)*V(5255) -! B(23478) = dA(14809)/dV(5255) - B(23478) = RCT(14809)*V(3855) -! B(23479) = dA(14810)/dV(3855) - B(23479) = RCT(14810)*V(5252) -! B(23480) = dA(14810)/dV(5252) - B(23480) = RCT(14810)*V(3855) -! B(23481) = dA(14811)/dV(3855) - B(23481) = RCT(14811)*V(5252) -! B(23482) = dA(14811)/dV(5252) - B(23482) = RCT(14811)*V(3855) -! B(23483) = dA(14812)/dV(3855) - B(23483) = RCT(14812)*V(5256) -! B(23484) = dA(14812)/dV(5256) - B(23484) = RCT(14812)*V(3855) -! B(23485) = dA(14813)/dV(3855) - B(23485) = RCT(14813) -! B(23486) = dA(14814)/dV(3855) - B(23486) = RCT(14814) -! B(23487) = dA(14815)/dV(3855) - B(23487) = RCT(14815) -! B(23488) = dA(14816)/dV(2895) - B(23488) = RCT(14816)*V(5250) -! B(23489) = dA(14816)/dV(5250) - B(23489) = RCT(14816)*V(2895) -! B(23490) = dA(14817)/dV(2895) - B(23490) = RCT(14817) -! B(23491) = dA(14818)/dV(1238) - B(23491) = RCT(14818)*V(5250) -! B(23492) = dA(14818)/dV(5250) - B(23492) = RCT(14818)*V(1238) -! B(23493) = dA(14819)/dV(2139) - B(23493) = RCT(14819)*V(5250) -! B(23494) = dA(14819)/dV(5250) - B(23494) = RCT(14819)*V(2139) -! B(23495) = dA(14820)/dV(2139) - B(23495) = RCT(14820) -! B(23496) = dA(14821)/dV(2941) - B(23496) = RCT(14821)*V(5250) -! B(23497) = dA(14821)/dV(5250) - B(23497) = RCT(14821)*V(2941) -! B(23498) = dA(14822)/dV(2941) - B(23498) = RCT(14822) -! B(23499) = dA(14823)/dV(1519) - B(23499) = RCT(14823)*V(5250) -! B(23500) = dA(14823)/dV(5250) - B(23500) = RCT(14823)*V(1519) -! B(23501) = dA(14824)/dV(1519) - B(23501) = RCT(14824) -! B(23502) = dA(14825)/dV(2275) - B(23502) = RCT(14825)*V(5250) -! B(23503) = dA(14825)/dV(5250) - B(23503) = RCT(14825)*V(2275) -! B(23504) = dA(14826)/dV(2275) - B(23504) = RCT(14826) -! B(23505) = dA(14827)/dV(3424) - B(23505) = RCT(14827) -! B(23506) = dA(14828)/dV(3424) - B(23506) = RCT(14828) -! B(23507) = dA(14829)/dV(2938) - B(23507) = RCT(14829)*V(5250) -! B(23508) = dA(14829)/dV(5250) - B(23508) = RCT(14829)*V(2938) -! B(23509) = dA(14830)/dV(320) - B(23509) = RCT(14830)*V(5250) -! B(23510) = dA(14830)/dV(5250) - B(23510) = RCT(14830)*V(320) -! B(23511) = dA(14831)/dV(1328) - B(23511) = RCT(14831)*V(5250) -! B(23512) = dA(14831)/dV(5250) - B(23512) = RCT(14831)*V(1328) -! B(23513) = dA(14832)/dV(1328) - B(23513) = RCT(14832) -! B(23514) = dA(14833)/dV(2444) - B(23514) = RCT(14833)*V(5250) -! B(23515) = dA(14833)/dV(5250) - B(23515) = RCT(14833)*V(2444) -! B(23516) = dA(14834)/dV(2444) - B(23516) = RCT(14834) -! B(23517) = dA(14835)/dV(173) - B(23517) = RCT(14835) -! B(23518) = dA(14836)/dV(4978) - B(23518) = RCT(14836)*V(5256) -! B(23519) = dA(14836)/dV(5256) - B(23519) = RCT(14836)*V(4978) -! B(23520) = dA(14837)/dV(4978) - B(23520) = RCT(14837)*V(5250) -! B(23521) = dA(14837)/dV(5250) - B(23521) = RCT(14837)*V(4978) -! B(23522) = dA(14838)/dV(4978) - B(23522) = RCT(14838) -! B(23523) = dA(14839)/dV(334) - B(23523) = RCT(14839)*V(5250) -! B(23524) = dA(14839)/dV(5250) - B(23524) = RCT(14839)*V(334) -! B(23525) = dA(14840)/dV(856) - B(23525) = RCT(14840)*V(5250) -! B(23526) = dA(14840)/dV(5250) - B(23526) = RCT(14840)*V(856) -! B(23527) = dA(14841)/dV(1920) - B(23527) = RCT(14841)*V(5250) -! B(23528) = dA(14841)/dV(5250) - B(23528) = RCT(14841)*V(1920) -! B(23529) = dA(14842)/dV(1920) - B(23529) = RCT(14842) -! B(23530) = dA(14843)/dV(2571) - B(23530) = RCT(14843)*V(5250) -! B(23531) = dA(14843)/dV(5250) - B(23531) = RCT(14843)*V(2571) -! B(23532) = dA(14844)/dV(2571) - B(23532) = RCT(14844) -! B(23533) = dA(14845)/dV(2214) - B(23533) = RCT(14845)*V(5250) -! B(23534) = dA(14845)/dV(5250) - B(23534) = RCT(14845)*V(2214) -! B(23535) = dA(14846)/dV(2214) - B(23535) = RCT(14846) -! B(23536) = dA(14847)/dV(2942) - B(23536) = RCT(14847)*V(5250) -! B(23537) = dA(14847)/dV(5250) - B(23537) = RCT(14847)*V(2942) -! B(23538) = dA(14848)/dV(2942) - B(23538) = RCT(14848) -! B(23539) = dA(14849)/dV(1724) - B(23539) = RCT(14849) -! B(23540) = dA(14850)/dV(754) - B(23540) = RCT(14850)*V(5250) -! B(23541) = dA(14850)/dV(5250) - B(23541) = RCT(14850)*V(754) -! B(23542) = dA(14851)/dV(4220) - B(23542) = RCT(14851)*V(5255) -! B(23543) = dA(14851)/dV(5255) - B(23543) = RCT(14851)*V(4220) -! B(23544) = dA(14852)/dV(4220) - B(23544) = RCT(14852)*V(5255) -! B(23545) = dA(14852)/dV(5255) - B(23545) = RCT(14852)*V(4220) -! B(23546) = dA(14853)/dV(4220) - B(23546) = RCT(14853)*V(5252) -! B(23547) = dA(14853)/dV(5252) - B(23547) = RCT(14853)*V(4220) -! B(23548) = dA(14854)/dV(4220) - B(23548) = RCT(14854)*V(5253) -! B(23549) = dA(14854)/dV(5253) - B(23549) = RCT(14854)*V(4220) -! B(23550) = dA(14855)/dV(4220) - B(23550) = RCT(14855)*V(5256) -! B(23551) = dA(14855)/dV(5256) - B(23551) = RCT(14855)*V(4220) -! B(23552) = dA(14856)/dV(4220) - B(23552) = RCT(14856) -! B(23553) = dA(14857)/dV(1263) - B(23553) = RCT(14857)*V(5250) -! B(23554) = dA(14857)/dV(5250) - B(23554) = RCT(14857)*V(1263) -! B(23555) = dA(14858)/dV(1263) - B(23555) = RCT(14858) -! B(23556) = dA(14859)/dV(3447) - B(23556) = RCT(14859)*V(5250) -! B(23557) = dA(14859)/dV(5250) - B(23557) = RCT(14859)*V(3447) -! B(23558) = dA(14860)/dV(3447) - B(23558) = RCT(14860) -! B(23559) = dA(14861)/dV(1989) - B(23559) = RCT(14861) -! B(23560) = dA(14862)/dV(520) - B(23560) = RCT(14862)*V(5250) -! B(23561) = dA(14862)/dV(5250) - B(23561) = RCT(14862)*V(520) -! B(23562) = dA(14863)/dV(520) - B(23562) = RCT(14863) -! B(23563) = dA(14864)/dV(2111) - B(23563) = RCT(14864)*V(5250) -! B(23564) = dA(14864)/dV(5250) - B(23564) = RCT(14864)*V(2111) -! B(23565) = dA(14865)/dV(2111) - B(23565) = RCT(14865) -! B(23566) = dA(14866)/dV(644) - B(23566) = RCT(14866) -! B(23567) = dA(14867)/dV(4362) - B(23567) = RCT(14867)*V(5256) -! B(23568) = dA(14867)/dV(5256) - B(23568) = RCT(14867)*V(4362) -! B(23569) = dA(14868)/dV(4362) - B(23569) = RCT(14868)*V(5250) -! B(23570) = dA(14868)/dV(5250) - B(23570) = RCT(14868)*V(4362) -! B(23571) = dA(14869)/dV(4362) - B(23571) = RCT(14869) -! B(23572) = dA(14870)/dV(4362) - B(23572) = RCT(14870) -! B(23573) = dA(14871)/dV(3355) - B(23573) = RCT(14871)*V(5250) -! B(23574) = dA(14871)/dV(5250) - B(23574) = RCT(14871)*V(3355) -! B(23575) = dA(14872)/dV(3355) - B(23575) = RCT(14872) -! B(23576) = dA(14873)/dV(1344) - B(23576) = RCT(14873)*V(5250) -! B(23577) = dA(14873)/dV(5250) - B(23577) = RCT(14873)*V(1344) -! B(23578) = dA(14874)/dV(1344) - B(23578) = RCT(14874) -! B(23579) = dA(14875)/dV(998) - B(23579) = RCT(14875)*V(5250) -! B(23580) = dA(14875)/dV(5250) - B(23580) = RCT(14875)*V(998) -! B(23581) = dA(14876)/dV(998) - B(23581) = RCT(14876) -! B(23582) = dA(14877)/dV(4346) - B(23582) = RCT(14877)*V(5255) -! B(23583) = dA(14877)/dV(5255) - B(23583) = RCT(14877)*V(4346) -! B(23584) = dA(14878)/dV(4346) - B(23584) = RCT(14878)*V(5252) -! B(23585) = dA(14878)/dV(5252) - B(23585) = RCT(14878)*V(4346) -! B(23586) = dA(14879)/dV(4346) - B(23586) = RCT(14879)*V(5256) -! B(23587) = dA(14879)/dV(5256) - B(23587) = RCT(14879)*V(4346) -! B(23588) = dA(14880)/dV(4346) - B(23588) = RCT(14880) -! B(23589) = dA(14881)/dV(4346) - B(23589) = RCT(14881) -! B(23590) = dA(14882)/dV(4346) - B(23590) = RCT(14882) -! B(23591) = dA(14883)/dV(2756) - B(23591) = RCT(14883)*V(5250) -! B(23592) = dA(14883)/dV(5250) - B(23592) = RCT(14883)*V(2756) -! B(23593) = dA(14884)/dV(2756) - B(23593) = RCT(14884) -! B(23594) = dA(14885)/dV(827) - B(23594) = RCT(14885)*V(5250) -! B(23595) = dA(14885)/dV(5250) - B(23595) = RCT(14885)*V(827) -! B(23596) = dA(14886)/dV(827) - B(23596) = RCT(14886) -! B(23597) = dA(14887)/dV(1408) - B(23597) = RCT(14887)*V(5250) -! B(23598) = dA(14887)/dV(5250) - B(23598) = RCT(14887)*V(1408) -! B(23599) = dA(14888)/dV(1408) - B(23599) = RCT(14888) -! B(23600) = dA(14889)/dV(2980) - B(23600) = RCT(14889)*V(5250) -! B(23601) = dA(14889)/dV(5250) - B(23601) = RCT(14889)*V(2980) -! B(23602) = dA(14890)/dV(2980) - B(23602) = RCT(14890) -! B(23603) = dA(14891)/dV(953) - B(23603) = RCT(14891)*V(5250) -! B(23604) = dA(14891)/dV(5250) - B(23604) = RCT(14891)*V(953) -! B(23605) = dA(14892)/dV(953) - B(23605) = RCT(14892) -! B(23606) = dA(14893)/dV(1022) - B(23606) = RCT(14893)*V(5250) -! B(23607) = dA(14893)/dV(5250) - B(23607) = RCT(14893)*V(1022) -! B(23608) = dA(14894)/dV(1022) - B(23608) = RCT(14894) -! B(23609) = dA(14895)/dV(3293) - B(23609) = RCT(14895)*V(5250) -! B(23610) = dA(14895)/dV(5250) - B(23610) = RCT(14895)*V(3293) -! B(23611) = dA(14896)/dV(3293) - B(23611) = RCT(14896) -! B(23612) = dA(14897)/dV(1130) - B(23612) = RCT(14897)*V(5250) -! B(23613) = dA(14897)/dV(5250) - B(23613) = RCT(14897)*V(1130) -! B(23614) = dA(14898)/dV(1130) - B(23614) = RCT(14898) -! B(23615) = dA(14899)/dV(1652) - B(23615) = RCT(14899) -! B(23616) = dA(14900)/dV(3639) - B(23616) = RCT(14900)*V(5250) -! B(23617) = dA(14900)/dV(5250) - B(23617) = RCT(14900)*V(3639) -! B(23618) = dA(14901)/dV(3639) - B(23618) = RCT(14901) -! B(23619) = dA(14902)/dV(725) - B(23619) = RCT(14902)*V(5250) -! B(23620) = dA(14902)/dV(5250) - B(23620) = RCT(14902)*V(725) -! B(23621) = dA(14903)/dV(725) - B(23621) = RCT(14903) -! B(23622) = dA(14904)/dV(1757) - B(23622) = RCT(14904)*V(5250) -! B(23623) = dA(14904)/dV(5250) - B(23623) = RCT(14904)*V(1757) -! B(23624) = dA(14905)/dV(1757) - B(23624) = RCT(14905) -! B(23625) = dA(14906)/dV(741) - B(23625) = RCT(14906) -! B(23626) = dA(14907)/dV(1527) - B(23626) = RCT(14907)*V(5250) -! B(23627) = dA(14907)/dV(5250) - B(23627) = RCT(14907)*V(1527) -! B(23628) = dA(14908)/dV(1527) - B(23628) = RCT(14908) -! B(23629) = dA(14909)/dV(2578) - B(23629) = RCT(14909) -! B(23630) = dA(14910)/dV(530) - B(23630) = RCT(14910)*V(5250) -! B(23631) = dA(14910)/dV(5250) - B(23631) = RCT(14910)*V(530) -! B(23632) = dA(14911)/dV(5054) - B(23632) = RCT(14911)*V(5255) -! B(23633) = dA(14911)/dV(5255) - B(23633) = RCT(14911)*V(5054) -! B(23634) = dA(14912)/dV(5054) - B(23634) = RCT(14912)*V(5255) -! B(23635) = dA(14912)/dV(5255) - B(23635) = RCT(14912)*V(5054) -! B(23636) = dA(14913)/dV(5054) - B(23636) = RCT(14913)*V(5255) -! B(23637) = dA(14913)/dV(5255) - B(23637) = RCT(14913)*V(5054) -! B(23638) = dA(14914)/dV(5054) - B(23638) = RCT(14914)*V(5252) -! B(23639) = dA(14914)/dV(5252) - B(23639) = RCT(14914)*V(5054) -! B(23640) = dA(14915)/dV(5054) - B(23640) = RCT(14915)*V(5253) -! B(23641) = dA(14915)/dV(5253) - B(23641) = RCT(14915)*V(5054) -! B(23642) = dA(14916)/dV(5054) - B(23642) = RCT(14916)*V(5256) -! B(23643) = dA(14916)/dV(5256) - B(23643) = RCT(14916)*V(5054) -! B(23644) = dA(14917)/dV(5054) - B(23644) = RCT(14917) -! B(23645) = dA(14918)/dV(5054) - B(23645) = RCT(14918) -! B(23646) = dA(14919)/dV(4779) - B(23646) = RCT(14919)*V(5255) -! B(23647) = dA(14919)/dV(5255) - B(23647) = RCT(14919)*V(4779) -! B(23648) = dA(14920)/dV(4779) - B(23648) = RCT(14920)*V(5252) -! B(23649) = dA(14920)/dV(5252) - B(23649) = RCT(14920)*V(4779) -! B(23650) = dA(14921)/dV(4779) - B(23650) = RCT(14921)*V(5256) -! B(23651) = dA(14921)/dV(5256) - B(23651) = RCT(14921)*V(4779) -! B(23652) = dA(14922)/dV(4779) - B(23652) = RCT(14922) -! B(23653) = dA(14923)/dV(4779) - B(23653) = RCT(14923) -! B(23654) = dA(14924)/dV(1046) - B(23654) = RCT(14924)*V(5250) -! B(23655) = dA(14924)/dV(5250) - B(23655) = RCT(14924)*V(1046) -! B(23656) = dA(14925)/dV(1046) - B(23656) = RCT(14925) -! B(23657) = dA(14926)/dV(1912) - B(23657) = RCT(14926)*V(5250) -! B(23658) = dA(14926)/dV(5250) - B(23658) = RCT(14926)*V(1912) -! B(23659) = dA(14927)/dV(2931) - B(23659) = RCT(14927) -! B(23660) = dA(14928)/dV(690) - B(23660) = RCT(14928)*V(5250) -! B(23661) = dA(14928)/dV(5250) - B(23661) = RCT(14928)*V(690) -! B(23662) = dA(14929)/dV(1439) - B(23662) = RCT(14929)*V(5250) -! B(23663) = dA(14929)/dV(5250) - B(23663) = RCT(14929)*V(1439) -! B(23664) = dA(14930)/dV(1439) - B(23664) = RCT(14930) -! B(23665) = dA(14931)/dV(1786) - B(23665) = RCT(14931)*V(5250) -! B(23666) = dA(14931)/dV(5250) - B(23666) = RCT(14931)*V(1786) -! B(23667) = dA(14932)/dV(1786) - B(23667) = RCT(14932) -! B(23668) = dA(14933)/dV(3430) - B(23668) = RCT(14933) -! B(23669) = dA(14934)/dV(3430) - B(23669) = RCT(14934) -! B(23670) = dA(14935)/dV(3642) - B(23670) = RCT(14935)*V(5250) -! B(23671) = dA(14935)/dV(5250) - B(23671) = RCT(14935)*V(3642) -! B(23672) = dA(14936)/dV(3642) - B(23672) = RCT(14936) -! B(23673) = dA(14937)/dV(390) - B(23673) = RCT(14937)*V(5250) -! B(23674) = dA(14937)/dV(5250) - B(23674) = RCT(14937)*V(390) -! B(23675) = dA(14938)/dV(1019) - B(23675) = RCT(14938)*V(5250) -! B(23676) = dA(14938)/dV(5250) - B(23676) = RCT(14938)*V(1019) -! B(23677) = dA(14939)/dV(1019) - B(23677) = RCT(14939) -! B(23678) = dA(14940)/dV(2894) - B(23678) = RCT(14940) -! B(23679) = dA(14941)/dV(2209) - B(23679) = RCT(14941)*V(5250) -! B(23680) = dA(14941)/dV(5250) - B(23680) = RCT(14941)*V(2209) -! B(23681) = dA(14942)/dV(2209) - B(23681) = RCT(14942) -! B(23682) = dA(14943)/dV(482) - B(23682) = RCT(14943)*V(5250) -! B(23683) = dA(14943)/dV(5250) - B(23683) = RCT(14943)*V(482) -! B(23684) = dA(14944)/dV(4226) - B(23684) = RCT(14944)*V(5255) -! B(23685) = dA(14944)/dV(5255) - B(23685) = RCT(14944)*V(4226) -! B(23686) = dA(14945)/dV(4226) - B(23686) = RCT(14945)*V(5252) -! B(23687) = dA(14945)/dV(5252) - B(23687) = RCT(14945)*V(4226) -! B(23688) = dA(14946)/dV(4226) - B(23688) = RCT(14946)*V(5256) -! B(23689) = dA(14946)/dV(5256) - B(23689) = RCT(14946)*V(4226) -! B(23690) = dA(14947)/dV(4226) - B(23690) = RCT(14947) -! B(23691) = dA(14948)/dV(4226) - B(23691) = RCT(14948) -! B(23692) = dA(14949)/dV(4226) - B(23692) = RCT(14949) -! B(23693) = dA(14950)/dV(826) - B(23693) = RCT(14950)*V(5250) -! B(23694) = dA(14950)/dV(5250) - B(23694) = RCT(14950)*V(826) -! B(23695) = dA(14951)/dV(826) - B(23695) = RCT(14951) -! B(23696) = dA(14952)/dV(2257) - B(23696) = RCT(14952)*V(5250) -! B(23697) = dA(14952)/dV(5250) - B(23697) = RCT(14952)*V(2257) -! B(23698) = dA(14953)/dV(2257) - B(23698) = RCT(14953) -! B(23699) = dA(14954)/dV(290) - B(23699) = RCT(14954) -! B(23700) = dA(14955)/dV(83) - B(23700) = RCT(14955)*V(5250) -! B(23701) = dA(14955)/dV(5250) - B(23701) = RCT(14955)*V(83) -! B(23702) = dA(14956)/dV(4136) - B(23702) = RCT(14956)*V(5255) -! B(23703) = dA(14956)/dV(5255) - B(23703) = RCT(14956)*V(4136) -! B(23704) = dA(14957)/dV(4136) - B(23704) = RCT(14957)*V(5252) -! B(23705) = dA(14957)/dV(5252) - B(23705) = RCT(14957)*V(4136) -! B(23706) = dA(14958)/dV(4136) - B(23706) = RCT(14958)*V(5256) -! B(23707) = dA(14958)/dV(5256) - B(23707) = RCT(14958)*V(4136) -! B(23708) = dA(14959)/dV(4136) - B(23708) = RCT(14959) -! B(23709) = dA(14960)/dV(4136) - B(23709) = RCT(14960) -! B(23710) = dA(14961)/dV(4136) - B(23710) = RCT(14961) -! B(23711) = dA(14962)/dV(4115) - B(23711) = RCT(14962)*V(5255) -! B(23712) = dA(14962)/dV(5255) - B(23712) = RCT(14962)*V(4115) -! B(23713) = dA(14963)/dV(4115) - B(23713) = RCT(14963)*V(5252) -! B(23714) = dA(14963)/dV(5252) - B(23714) = RCT(14963)*V(4115) -! B(23715) = dA(14964)/dV(4115) - B(23715) = RCT(14964)*V(5256) -! B(23716) = dA(14964)/dV(5256) - B(23716) = RCT(14964)*V(4115) -! B(23717) = dA(14965)/dV(4115) - B(23717) = RCT(14965) -! B(23718) = dA(14966)/dV(414) - B(23718) = RCT(14966)*V(5250) -! B(23719) = dA(14966)/dV(5250) - B(23719) = RCT(14966)*V(414) -! B(23720) = dA(14967)/dV(414) - B(23720) = RCT(14967) -! B(23721) = dA(14968)/dV(760) - B(23721) = RCT(14968) -! B(23722) = dA(14969)/dV(60) - B(23722) = RCT(14969)*V(5250) -! B(23723) = dA(14969)/dV(5250) - B(23723) = RCT(14969)*V(60) -! B(23724) = dA(14970)/dV(1077) - B(23724) = RCT(14970)*V(5250) -! B(23725) = dA(14970)/dV(5250) - B(23725) = RCT(14970)*V(1077) -! B(23726) = dA(14971)/dV(1077) - B(23726) = RCT(14971) -! B(23727) = dA(14972)/dV(2303) - B(23727) = RCT(14972)*V(5250) -! B(23728) = dA(14972)/dV(5250) - B(23728) = RCT(14972)*V(2303) -! B(23729) = dA(14973)/dV(2303) - B(23729) = RCT(14973) -! B(23730) = dA(14974)/dV(2304) - B(23730) = RCT(14974) -! B(23731) = dA(14975)/dV(357) - B(23731) = RCT(14975)*V(5250) -! B(23732) = dA(14975)/dV(5250) - B(23732) = RCT(14975)*V(357) -! B(23733) = dA(14976)/dV(4525) - B(23733) = RCT(14976)*V(5255) -! B(23734) = dA(14976)/dV(5255) - B(23734) = RCT(14976)*V(4525) -! B(23735) = dA(14977)/dV(4525) - B(23735) = RCT(14977)*V(5255) -! B(23736) = dA(14977)/dV(5255) - B(23736) = RCT(14977)*V(4525) -! B(23737) = dA(14978)/dV(4525) - B(23737) = RCT(14978)*V(5252) -! B(23738) = dA(14978)/dV(5252) - B(23738) = RCT(14978)*V(4525) -! B(23739) = dA(14979)/dV(4525) - B(23739) = RCT(14979)*V(5253) -! B(23740) = dA(14979)/dV(5253) - B(23740) = RCT(14979)*V(4525) -! B(23741) = dA(14980)/dV(4525) - B(23741) = RCT(14980)*V(5256) -! B(23742) = dA(14980)/dV(5256) - B(23742) = RCT(14980)*V(4525) -! B(23743) = dA(14981)/dV(4525) - B(23743) = RCT(14981) -! B(23744) = dA(14982)/dV(4477) - B(23744) = RCT(14982)*V(5255) -! B(23745) = dA(14982)/dV(5255) - B(23745) = RCT(14982)*V(4477) -! B(23746) = dA(14983)/dV(4477) - B(23746) = RCT(14983)*V(5252) -! B(23747) = dA(14983)/dV(5252) - B(23747) = RCT(14983)*V(4477) -! B(23748) = dA(14984)/dV(4477) - B(23748) = RCT(14984)*V(5256) -! B(23749) = dA(14984)/dV(5256) - B(23749) = RCT(14984)*V(4477) -! B(23750) = dA(14985)/dV(4477) - B(23750) = RCT(14985) -! B(23751) = dA(14986)/dV(4820) - B(23751) = RCT(14986)*V(5255) -! B(23752) = dA(14986)/dV(5255) - B(23752) = RCT(14986)*V(4820) -! B(23753) = dA(14987)/dV(4820) - B(23753) = RCT(14987)*V(5252) -! B(23754) = dA(14987)/dV(5252) - B(23754) = RCT(14987)*V(4820) -! B(23755) = dA(14988)/dV(4820) - B(23755) = RCT(14988)*V(5256) -! B(23756) = dA(14988)/dV(5256) - B(23756) = RCT(14988)*V(4820) -! B(23757) = dA(14989)/dV(4820) - B(23757) = RCT(14989) -! B(23758) = dA(14990)/dV(4820) - B(23758) = RCT(14990) -! B(23759) = dA(14991)/dV(4820) - B(23759) = RCT(14991) -! B(23760) = dA(14992)/dV(2142) - B(23760) = RCT(14992)*V(5250) -! B(23761) = dA(14992)/dV(5250) - B(23761) = RCT(14992)*V(2142) -! B(23762) = dA(14993)/dV(2142) - B(23762) = RCT(14993) -! B(23763) = dA(14994)/dV(2530) - B(23763) = RCT(14994)*V(5250) -! B(23764) = dA(14994)/dV(5250) - B(23764) = RCT(14994)*V(2530) -! B(23765) = dA(14995)/dV(2530) - B(23765) = RCT(14995) -! B(23766) = dA(14996)/dV(3874) - B(23766) = RCT(14996)*V(5255) -! B(23767) = dA(14996)/dV(5255) - B(23767) = RCT(14996)*V(3874) -! B(23768) = dA(14997)/dV(3874) - B(23768) = RCT(14997)*V(5252) -! B(23769) = dA(14997)/dV(5252) - B(23769) = RCT(14997)*V(3874) -! B(23770) = dA(14998)/dV(3874) - B(23770) = RCT(14998)*V(5256) -! B(23771) = dA(14998)/dV(5256) - B(23771) = RCT(14998)*V(3874) -! B(23772) = dA(14999)/dV(3874) - B(23772) = RCT(14999) -! B(23773) = dA(15000)/dV(3724) - B(23773) = RCT(15000)*V(5255) -! B(23774) = dA(15000)/dV(5255) - B(23774) = RCT(15000)*V(3724) -! B(23775) = dA(15001)/dV(3724) - B(23775) = RCT(15001)*V(5252) -! B(23776) = dA(15001)/dV(5252) - B(23776) = RCT(15001)*V(3724) -! B(23777) = dA(15002)/dV(3724) - B(23777) = RCT(15002)*V(5256) -! B(23778) = dA(15002)/dV(5256) - B(23778) = RCT(15002)*V(3724) -! B(23779) = dA(15003)/dV(3724) - B(23779) = RCT(15003) -! B(23780) = dA(15004)/dV(4520) - B(23780) = RCT(15004)*V(5255) -! B(23781) = dA(15004)/dV(5255) - B(23781) = RCT(15004)*V(4520) -! B(23782) = dA(15005)/dV(4520) - B(23782) = RCT(15005)*V(5255) -! B(23783) = dA(15005)/dV(5255) - B(23783) = RCT(15005)*V(4520) -! B(23784) = dA(15006)/dV(4520) - B(23784) = RCT(15006)*V(5252) -! B(23785) = dA(15006)/dV(5252) - B(23785) = RCT(15006)*V(4520) -! B(23786) = dA(15007)/dV(4520) - B(23786) = RCT(15007)*V(5253) -! B(23787) = dA(15007)/dV(5253) - B(23787) = RCT(15007)*V(4520) -! B(23788) = dA(15008)/dV(4520) - B(23788) = RCT(15008)*V(5256) -! B(23789) = dA(15008)/dV(5256) - B(23789) = RCT(15008)*V(4520) -! B(23790) = dA(15009)/dV(4520) - B(23790) = RCT(15009) -! B(23791) = dA(15010)/dV(4465) - B(23791) = RCT(15010)*V(5255) -! B(23792) = dA(15010)/dV(5255) - B(23792) = RCT(15010)*V(4465) -! B(23793) = dA(15011)/dV(4465) - B(23793) = RCT(15011)*V(5252) -! B(23794) = dA(15011)/dV(5252) - B(23794) = RCT(15011)*V(4465) -! B(23795) = dA(15012)/dV(4465) - B(23795) = RCT(15012)*V(5256) -! B(23796) = dA(15012)/dV(5256) - B(23796) = RCT(15012)*V(4465) -! B(23797) = dA(15013)/dV(4465) - B(23797) = RCT(15013) -! B(23798) = dA(15014)/dV(1538) - B(23798) = RCT(15014)*V(5250) -! B(23799) = dA(15014)/dV(5250) - B(23799) = RCT(15014)*V(1538) -! B(23800) = dA(15015)/dV(1538) - B(23800) = RCT(15015) -! B(23801) = dA(15016)/dV(3041) - B(23801) = RCT(15016) -! B(23802) = dA(15017)/dV(559) - B(23802) = RCT(15017)*V(5250) -! B(23803) = dA(15017)/dV(5250) - B(23803) = RCT(15017)*V(559) -! B(23804) = dA(15018)/dV(559) - B(23804) = RCT(15018) -! B(23805) = dA(15019)/dV(4853) - B(23805) = RCT(15019)*V(5255) -! B(23806) = dA(15019)/dV(5255) - B(23806) = RCT(15019)*V(4853) -! B(23807) = dA(15020)/dV(4853) - B(23807) = RCT(15020)*V(5255) -! B(23808) = dA(15020)/dV(5255) - B(23808) = RCT(15020)*V(4853) -! B(23809) = dA(15021)/dV(4853) - B(23809) = RCT(15021)*V(5255) -! B(23810) = dA(15021)/dV(5255) - B(23810) = RCT(15021)*V(4853) -! B(23811) = dA(15022)/dV(4853) - B(23811) = RCT(15022)*V(5252) -! B(23812) = dA(15022)/dV(5252) - B(23812) = RCT(15022)*V(4853) -! B(23813) = dA(15023)/dV(4853) - B(23813) = RCT(15023)*V(5253) -! B(23814) = dA(15023)/dV(5253) - B(23814) = RCT(15023)*V(4853) -! B(23815) = dA(15024)/dV(4853) - B(23815) = RCT(15024)*V(5256) -! B(23816) = dA(15024)/dV(5256) - B(23816) = RCT(15024)*V(4853) -! B(23817) = dA(15025)/dV(4853) - B(23817) = RCT(15025) -! B(23818) = dA(15026)/dV(4853) - B(23818) = RCT(15026) -! B(23819) = dA(15027)/dV(433) - B(23819) = RCT(15027)*V(5250) -! B(23820) = dA(15027)/dV(5250) - B(23820) = RCT(15027)*V(433) -! B(23821) = dA(15028)/dV(1347) - B(23821) = RCT(15028)*V(5250) -! B(23822) = dA(15028)/dV(5250) - B(23822) = RCT(15028)*V(1347) -! B(23823) = dA(15029)/dV(1347) - B(23823) = RCT(15029) -! B(23824) = dA(15030)/dV(4116) - B(23824) = RCT(15030)*V(5255) -! B(23825) = dA(15030)/dV(5255) - B(23825) = RCT(15030)*V(4116) -! B(23826) = dA(15031)/dV(4116) - B(23826) = RCT(15031)*V(5252) -! B(23827) = dA(15031)/dV(5252) - B(23827) = RCT(15031)*V(4116) -! B(23828) = dA(15032)/dV(4116) - B(23828) = RCT(15032)*V(5256) -! B(23829) = dA(15032)/dV(5256) - B(23829) = RCT(15032)*V(4116) -! B(23830) = dA(15033)/dV(4116) - B(23830) = RCT(15033) -! B(23831) = dA(15034)/dV(4116) - B(23831) = RCT(15034) -! B(23832) = dA(15035)/dV(4116) - B(23832) = RCT(15035) -! B(23833) = dA(15036)/dV(2703) - B(23833) = RCT(15036)*V(5250) -! B(23834) = dA(15036)/dV(5250) - B(23834) = RCT(15036)*V(2703) -! B(23835) = dA(15037)/dV(2703) - B(23835) = RCT(15037) -! B(23836) = dA(15038)/dV(3480) - B(23836) = RCT(15038)*V(5250) -! B(23837) = dA(15038)/dV(5250) - B(23837) = RCT(15038)*V(3480) -! B(23838) = dA(15039)/dV(3480) - B(23838) = RCT(15039) -! B(23839) = dA(15040)/dV(3480) - B(23839) = RCT(15040) -! B(23840) = dA(15041)/dV(3480) - B(23840) = RCT(15041) -! B(23841) = dA(15042)/dV(3615) - B(23841) = RCT(15042) -! B(23842) = dA(15043)/dV(3615) - B(23842) = RCT(15043) -! B(23843) = dA(15044)/dV(2483) - B(23843) = RCT(15044)*V(5250) -! B(23844) = dA(15044)/dV(5250) - B(23844) = RCT(15044)*V(2483) -! B(23845) = dA(15045)/dV(2483) - B(23845) = RCT(15045) -! B(23846) = dA(15046)/dV(2483) - B(23846) = RCT(15046) -! B(23847) = dA(15047)/dV(4343) - B(23847) = RCT(15047)*V(5255) -! B(23848) = dA(15047)/dV(5255) - B(23848) = RCT(15047)*V(4343) -! B(23849) = dA(15048)/dV(4343) - B(23849) = RCT(15048)*V(5252) -! B(23850) = dA(15048)/dV(5252) - B(23850) = RCT(15048)*V(4343) -! B(23851) = dA(15049)/dV(4343) - B(23851) = RCT(15049)*V(5256) -! B(23852) = dA(15049)/dV(5256) - B(23852) = RCT(15049)*V(4343) -! B(23853) = dA(15050)/dV(4343) - B(23853) = RCT(15050) -! B(23854) = dA(15051)/dV(4343) - B(23854) = RCT(15051) -! B(23855) = dA(15052)/dV(1890) - B(23855) = RCT(15052)*V(5250) -! B(23856) = dA(15052)/dV(5250) - B(23856) = RCT(15052)*V(1890) -! B(23857) = dA(15053)/dV(1890) - B(23857) = RCT(15053) -! B(23858) = dA(15054)/dV(537) - B(23858) = RCT(15054) -! B(23859) = dA(15055)/dV(1257) - B(23859) = RCT(15055)*V(5250) -! B(23860) = dA(15055)/dV(5250) - B(23860) = RCT(15055)*V(1257) -! B(23861) = dA(15056)/dV(1257) - B(23861) = RCT(15056) -! B(23862) = dA(15057)/dV(368) - B(23862) = RCT(15057)*V(5250) -! B(23863) = dA(15057)/dV(5250) - B(23863) = RCT(15057)*V(368) -! B(23864) = dA(15058)/dV(2856) - B(23864) = RCT(15058)*V(5250) -! B(23865) = dA(15058)/dV(5250) - B(23865) = RCT(15058)*V(2856) -! B(23866) = dA(15059)/dV(3882) - B(23866) = RCT(15059)*V(5255) -! B(23867) = dA(15059)/dV(5255) - B(23867) = RCT(15059)*V(3882) -! B(23868) = dA(15060)/dV(3882) - B(23868) = RCT(15060)*V(5252) -! B(23869) = dA(15060)/dV(5252) - B(23869) = RCT(15060)*V(3882) -! B(23870) = dA(15061)/dV(3882) - B(23870) = RCT(15061)*V(5252) -! B(23871) = dA(15061)/dV(5252) - B(23871) = RCT(15061)*V(3882) -! B(23872) = dA(15062)/dV(3882) - B(23872) = RCT(15062)*V(5256) -! B(23873) = dA(15062)/dV(5256) - B(23873) = RCT(15062)*V(3882) -! B(23874) = dA(15063)/dV(3882) - B(23874) = RCT(15063) -! B(23875) = dA(15064)/dV(3882) - B(23875) = RCT(15064) -! B(23876) = dA(15065)/dV(3882) - B(23876) = RCT(15065) -! B(23877) = dA(15066)/dV(1793) - B(23877) = RCT(15066)*V(5250) -! B(23878) = dA(15066)/dV(5250) - B(23878) = RCT(15066)*V(1793) -! B(23879) = dA(15067)/dV(1793) - B(23879) = RCT(15067) -! B(23880) = dA(15068)/dV(802) - B(23880) = RCT(15068) -! B(23881) = dA(15069)/dV(1678) - B(23881) = RCT(15069)*V(5250) -! B(23882) = dA(15069)/dV(5250) - B(23882) = RCT(15069)*V(1678) -! B(23883) = dA(15070)/dV(1678) - B(23883) = RCT(15070) -! B(23884) = dA(15071)/dV(858) - B(23884) = RCT(15071)*V(5250) -! B(23885) = dA(15071)/dV(5250) - B(23885) = RCT(15071)*V(858) -! B(23886) = dA(15072)/dV(858) - B(23886) = RCT(15072) -! B(23887) = dA(15073)/dV(3062) - B(23887) = RCT(15073) -! B(23888) = dA(15074)/dV(1154) - B(23888) = RCT(15074)*V(5250) -! B(23889) = dA(15074)/dV(5250) - B(23889) = RCT(15074)*V(1154) -! B(23890) = dA(15075)/dV(1154) - B(23890) = RCT(15075) -! B(23891) = dA(15076)/dV(2567) - B(23891) = RCT(15076)*V(5250) -! B(23892) = dA(15076)/dV(5250) - B(23892) = RCT(15076)*V(2567) -! B(23893) = dA(15077)/dV(2567) - B(23893) = RCT(15077) -! B(23894) = dA(15078)/dV(2153) - B(23894) = RCT(15078)*V(5250) -! B(23895) = dA(15078)/dV(5250) - B(23895) = RCT(15078)*V(2153) -! B(23896) = dA(15079)/dV(2153) - B(23896) = RCT(15079)*V(5250) -! B(23897) = dA(15079)/dV(5250) - B(23897) = RCT(15079)*V(2153) -! B(23898) = dA(15080)/dV(2153) - B(23898) = RCT(15080) -! B(23899) = dA(15081)/dV(643) - B(23899) = RCT(15081) -! B(23900) = dA(15082)/dV(2300) - B(23900) = RCT(15082)*V(5250) -! B(23901) = dA(15082)/dV(5250) - B(23901) = RCT(15082)*V(2300) -! B(23902) = dA(15083)/dV(2300) - B(23902) = RCT(15083) -! B(23903) = dA(15084)/dV(695) - B(23903) = RCT(15084) -! B(23904) = dA(15085)/dV(2680) - B(23904) = RCT(15085)*V(5250) -! B(23905) = dA(15085)/dV(5250) - B(23905) = RCT(15085)*V(2680) -! B(23906) = dA(15086)/dV(2680) - B(23906) = RCT(15086) -! B(23907) = dA(15087)/dV(500) - B(23907) = RCT(15087)*V(5250) -! B(23908) = dA(15087)/dV(5250) - B(23908) = RCT(15087)*V(500) -! B(23909) = dA(15088)/dV(1544) - B(23909) = RCT(15088) -! B(23910) = dA(15089)/dV(1544) - B(23910) = RCT(15089)*V(5250) -! B(23911) = dA(15089)/dV(5250) - B(23911) = RCT(15089)*V(1544) -! B(23912) = dA(15090)/dV(3410) - B(23912) = RCT(15090) -! B(23913) = dA(15091)/dV(2450) - B(23913) = RCT(15091)*V(5250) -! B(23914) = dA(15091)/dV(5250) - B(23914) = RCT(15091)*V(2450) -! B(23915) = dA(15092)/dV(2450) - B(23915) = RCT(15092) -! B(23916) = dA(15093)/dV(733) - B(23916) = RCT(15093) -! B(23917) = dA(15094)/dV(1219) - B(23917) = RCT(15094)*V(5250) -! B(23918) = dA(15094)/dV(5250) - B(23918) = RCT(15094)*V(1219) -! B(23919) = dA(15095)/dV(1219) - B(23919) = RCT(15095) -! B(23920) = dA(15096)/dV(2729) - B(23920) = RCT(15096)*V(5250) -! B(23921) = dA(15096)/dV(5250) - B(23921) = RCT(15096)*V(2729) -! B(23922) = dA(15097)/dV(2729) - B(23922) = RCT(15097) -! B(23923) = dA(15098)/dV(1116) - B(23923) = RCT(15098)*V(5250) -! B(23924) = dA(15098)/dV(5250) - B(23924) = RCT(15098)*V(1116) -! B(23925) = dA(15099)/dV(1116) - B(23925) = RCT(15099) -! B(23926) = dA(15100)/dV(2607) - B(23926) = RCT(15100) -! B(23927) = dA(15101)/dV(3960) - B(23927) = RCT(15101)*V(5256) -! B(23928) = dA(15101)/dV(5256) - B(23928) = RCT(15101)*V(3960) -! B(23929) = dA(15102)/dV(3960) - B(23929) = RCT(15102)*V(5250) -! B(23930) = dA(15102)/dV(5250) - B(23930) = RCT(15102)*V(3960) -! B(23931) = dA(15103)/dV(3960) - B(23931) = RCT(15103) -! B(23932) = dA(15104)/dV(903) - B(23932) = RCT(15104)*V(5250) -! B(23933) = dA(15104)/dV(5250) - B(23933) = RCT(15104)*V(903) -! B(23934) = dA(15105)/dV(903) - B(23934) = RCT(15105) -! B(23935) = dA(15106)/dV(824) - B(23935) = RCT(15106)*V(5250) -! B(23936) = dA(15106)/dV(5250) - B(23936) = RCT(15106)*V(824) -! B(23937) = dA(15107)/dV(824) - B(23937) = RCT(15107) -! B(23938) = dA(15108)/dV(2864) - B(23938) = RCT(15108)*V(5250) -! B(23939) = dA(15108)/dV(5250) - B(23939) = RCT(15108)*V(2864) -! B(23940) = dA(15109)/dV(2864) - B(23940) = RCT(15109) -! B(23941) = dA(15110)/dV(2437) - B(23941) = RCT(15110)*V(5250) -! B(23942) = dA(15110)/dV(5250) - B(23942) = RCT(15110)*V(2437) -! B(23943) = dA(15111)/dV(2437) - B(23943) = RCT(15111) -! B(23944) = dA(15112)/dV(2437) - B(23944) = RCT(15112) -! B(23945) = dA(15113)/dV(544) - B(23945) = RCT(15113) -! B(23946) = dA(15114)/dV(1926) - B(23946) = RCT(15114)*V(5250) -! B(23947) = dA(15114)/dV(5250) - B(23947) = RCT(15114)*V(1926) -! B(23948) = dA(15115)/dV(1926) - B(23948) = RCT(15115) -! B(23949) = dA(15116)/dV(1926) - B(23949) = RCT(15116) -! B(23950) = dA(15117)/dV(648) - B(23950) = RCT(15117) -! B(23951) = dA(15118)/dV(567) - B(23951) = RCT(15118)*V(5250) -! B(23952) = dA(15118)/dV(5250) - B(23952) = RCT(15118)*V(567) -! B(23953) = dA(15119)/dV(567) - B(23953) = RCT(15119) -! B(23954) = dA(15120)/dV(1505) - B(23954) = RCT(15120)*V(5250) -! B(23955) = dA(15120)/dV(5250) - B(23955) = RCT(15120)*V(1505) -! B(23956) = dA(15121)/dV(1505) - B(23956) = RCT(15121) -! B(23957) = dA(15122)/dV(2855) - B(23957) = RCT(15122)*V(5250) -! B(23958) = dA(15122)/dV(5250) - B(23958) = RCT(15122)*V(2855) -! B(23959) = dA(15123)/dV(2855) - B(23959) = RCT(15123) -! B(23960) = dA(15124)/dV(2226) - B(23960) = RCT(15124) -! B(23961) = dA(15125)/dV(296) - B(23961) = RCT(15125)*V(5250) -! B(23962) = dA(15125)/dV(5250) - B(23962) = RCT(15125)*V(296) -! B(23963) = dA(15126)/dV(3958) - B(23963) = RCT(15126)*V(5250) -! B(23964) = dA(15126)/dV(5250) - B(23964) = RCT(15126)*V(3958) -! B(23965) = dA(15127)/dV(3958) - B(23965) = RCT(15127) -! B(23966) = dA(15128)/dV(3633) - B(23966) = RCT(15128)*V(5256) -! B(23967) = dA(15128)/dV(5256) - B(23967) = RCT(15128)*V(3633) -! B(23968) = dA(15129)/dV(3633) - B(23968) = RCT(15129)*V(5250) -! B(23969) = dA(15129)/dV(5250) - B(23969) = RCT(15129)*V(3633) -! B(23970) = dA(15130)/dV(3633) - B(23970) = RCT(15130) -! B(23971) = dA(15131)/dV(4686) - B(23971) = RCT(15131)*V(5255) -! B(23972) = dA(15131)/dV(5255) - B(23972) = RCT(15131)*V(4686) -! B(23973) = dA(15132)/dV(4686) - B(23973) = RCT(15132)*V(5255) -! B(23974) = dA(15132)/dV(5255) - B(23974) = RCT(15132)*V(4686) -! B(23975) = dA(15133)/dV(4686) - B(23975) = RCT(15133)*V(5252) -! B(23976) = dA(15133)/dV(5252) - B(23976) = RCT(15133)*V(4686) -! B(23977) = dA(15134)/dV(4686) - B(23977) = RCT(15134)*V(5253) -! B(23978) = dA(15134)/dV(5253) - B(23978) = RCT(15134)*V(4686) -! B(23979) = dA(15135)/dV(4686) - B(23979) = RCT(15135)*V(5256) -! B(23980) = dA(15135)/dV(5256) - B(23980) = RCT(15135)*V(4686) -! B(23981) = dA(15136)/dV(4686) - B(23981) = RCT(15136) -! B(23982) = dA(15137)/dV(4687) - B(23982) = RCT(15137)*V(5255) -! B(23983) = dA(15137)/dV(5255) - B(23983) = RCT(15137)*V(4687) -! B(23984) = dA(15138)/dV(4687) - B(23984) = RCT(15138)*V(5252) -! B(23985) = dA(15138)/dV(5252) - B(23985) = RCT(15138)*V(4687) -! B(23986) = dA(15139)/dV(4687) - B(23986) = RCT(15139)*V(5256) -! B(23987) = dA(15139)/dV(5256) - B(23987) = RCT(15139)*V(4687) -! B(23988) = dA(15140)/dV(4687) - B(23988) = RCT(15140) -! B(23989) = dA(15141)/dV(4687) - B(23989) = RCT(15141) -! B(23990) = dA(15142)/dV(4687) - B(23990) = RCT(15142) -! B(23991) = dA(15143)/dV(4456) - B(23991) = RCT(15143)*V(5255) -! B(23992) = dA(15143)/dV(5255) - B(23992) = RCT(15143)*V(4456) -! B(23993) = dA(15144)/dV(4456) - B(23993) = RCT(15144)*V(5255) -! B(23994) = dA(15144)/dV(5255) - B(23994) = RCT(15144)*V(4456) -! B(23995) = dA(15145)/dV(4456) - B(23995) = RCT(15145)*V(5252) -! B(23996) = dA(15145)/dV(5252) - B(23996) = RCT(15145)*V(4456) -! B(23997) = dA(15146)/dV(4456) - B(23997) = RCT(15146)*V(5253) -! B(23998) = dA(15146)/dV(5253) - B(23998) = RCT(15146)*V(4456) -! B(23999) = dA(15147)/dV(4456) - B(23999) = RCT(15147)*V(5256) -! B(24000) = dA(15147)/dV(5256) - B(24000) = RCT(15147)*V(4456) -! B(24001) = dA(15148)/dV(4456) - B(24001) = RCT(15148) -! B(24002) = dA(15149)/dV(4503) - B(24002) = RCT(15149)*V(5255) -! B(24003) = dA(15149)/dV(5255) - B(24003) = RCT(15149)*V(4503) -! B(24004) = dA(15150)/dV(4503) - B(24004) = RCT(15150)*V(5252) -! B(24005) = dA(15150)/dV(5252) - B(24005) = RCT(15150)*V(4503) -! B(24006) = dA(15151)/dV(4503) - B(24006) = RCT(15151)*V(5256) -! B(24007) = dA(15151)/dV(5256) - B(24007) = RCT(15151)*V(4503) -! B(24008) = dA(15152)/dV(4503) - B(24008) = RCT(15152) -! B(24009) = dA(15153)/dV(1474) - B(24009) = RCT(15153)*V(5250) -! B(24010) = dA(15153)/dV(5250) - B(24010) = RCT(15153)*V(1474) -! B(24011) = dA(15154)/dV(1474) - B(24011) = RCT(15154) -! B(24012) = dA(15155)/dV(2779) - B(24012) = RCT(15155)*V(5250) -! B(24013) = dA(15155)/dV(5250) - B(24013) = RCT(15155)*V(2779) -! B(24014) = dA(15156)/dV(2779) - B(24014) = RCT(15156) -! B(24015) = dA(15157)/dV(1956) - B(24015) = RCT(15157)*V(5250) -! B(24016) = dA(15157)/dV(5250) - B(24016) = RCT(15157)*V(1956) -! B(24017) = dA(15158)/dV(1956) - B(24017) = RCT(15158)*V(5250) -! B(24018) = dA(15158)/dV(5250) - B(24018) = RCT(15158)*V(1956) -! B(24019) = dA(15159)/dV(1956) - B(24019) = RCT(15159) -! B(24020) = dA(15160)/dV(115) - B(24020) = RCT(15160) -! B(24021) = dA(15161)/dV(352) - B(24021) = RCT(15161)*V(5250) -! B(24022) = dA(15161)/dV(5250) - B(24022) = RCT(15161)*V(352) -! B(24023) = dA(15162)/dV(3604) - B(24023) = RCT(15162)*V(5250) -! B(24024) = dA(15162)/dV(5250) - B(24024) = RCT(15162)*V(3604) -! B(24025) = dA(15163)/dV(3604) - B(24025) = RCT(15163) -! B(24026) = dA(15164)/dV(1461) - B(24026) = RCT(15164)*V(5250) -! B(24027) = dA(15164)/dV(5250) - B(24027) = RCT(15164)*V(1461) -! B(24028) = dA(15165)/dV(1461) - B(24028) = RCT(15165) -! B(24029) = dA(15166)/dV(2619) - B(24029) = RCT(15166)*V(5250) -! B(24030) = dA(15166)/dV(5250) - B(24030) = RCT(15166)*V(2619) -! B(24031) = dA(15167)/dV(2619) - B(24031) = RCT(15167) -! B(24032) = dA(15168)/dV(940) - B(24032) = RCT(15168)*V(5250) -! B(24033) = dA(15168)/dV(5250) - B(24033) = RCT(15168)*V(940) -! B(24034) = dA(15169)/dV(940) - B(24034) = RCT(15169) -! B(24035) = dA(15170)/dV(2968) - B(24035) = RCT(15170) -! B(24036) = dA(15171)/dV(4543) - B(24036) = RCT(15171)*V(5255) -! B(24037) = dA(15171)/dV(5255) - B(24037) = RCT(15171)*V(4543) -! B(24038) = dA(15172)/dV(4543) - B(24038) = RCT(15172)*V(5252) -! B(24039) = dA(15172)/dV(5252) - B(24039) = RCT(15172)*V(4543) -! B(24040) = dA(15173)/dV(4543) - B(24040) = RCT(15173)*V(5256) -! B(24041) = dA(15173)/dV(5256) - B(24041) = RCT(15173)*V(4543) -! B(24042) = dA(15174)/dV(4543) - B(24042) = RCT(15174) -! B(24043) = dA(15175)/dV(866) - B(24043) = RCT(15175)*V(5250) -! B(24044) = dA(15175)/dV(5250) - B(24044) = RCT(15175)*V(866) -! B(24045) = dA(15176)/dV(866) - B(24045) = RCT(15176) -! B(24046) = dA(15177)/dV(2788) - B(24046) = RCT(15177) - -! Construct the Jacobian terms from B's -! JVS(1) = Jac_FULL(1,1) - JVS(1) = 0 -! JVS(2) = Jac_FULL(1,137) - JVS(2) = 2*B(62) -! JVS(3) = Jac_FULL(1,5201) - JVS(3) = B(61) -! JVS(4) = Jac_FULL(2,2) - JVS(4) = 0 -! JVS(5) = Jac_FULL(2,3) - JVS(5) = B(63) -! JVS(6) = Jac_FULL(3,3) - JVS(6) = -B(63) -! JVS(7) = Jac_FULL(3,5) - JVS(7) = B(60) -! JVS(8) = Jac_FULL(3,3568) - JVS(8) = B(56) -! JVS(9) = Jac_FULL(3,4213) - JVS(9) = B(13631) -! JVS(10) = Jac_FULL(3,4247) - JVS(10) = B(16658) -! JVS(11) = Jac_FULL(3,4250) - JVS(11) = B(20538) -! JVS(12) = Jac_FULL(3,4258) - JVS(12) = B(17327) -! JVS(13) = Jac_FULL(3,4264) - JVS(13) = B(14559) -! JVS(14) = Jac_FULL(3,4282) - JVS(14) = B(13597) -! JVS(15) = Jac_FULL(3,4286) - JVS(15) = B(6761) -! JVS(16) = Jac_FULL(3,4302) - JVS(16) = B(7380) -! JVS(17) = Jac_FULL(3,4320) - JVS(17) = B(5026) -! JVS(18) = Jac_FULL(3,4526) - JVS(18) = B(14654) -! JVS(19) = Jac_FULL(3,4544) - JVS(19) = B(4911) -! JVS(20) = Jac_FULL(3,4551) - JVS(20) = B(16532) -! JVS(21) = Jac_FULL(3,4556) - JVS(21) = B(13874) -! JVS(22) = Jac_FULL(3,4621) - JVS(22) = B(15594) -! JVS(23) = Jac_FULL(3,4668) - JVS(23) = B(13509) -! JVS(24) = Jac_FULL(3,4677) - JVS(24) = B(16522) -! JVS(25) = Jac_FULL(3,4678) - JVS(25) = B(14807) -! JVS(26) = Jac_FULL(3,4691) - JVS(26) = B(14797) -! JVS(27) = Jac_FULL(3,4741) - JVS(27) = B(15619) -! JVS(28) = Jac_FULL(3,4757) - JVS(28) = B(14699) -! JVS(29) = Jac_FULL(3,4776) - JVS(29) = B(13564) -! JVS(30) = Jac_FULL(3,4819) - JVS(30) = B(6645) -! JVS(31) = Jac_FULL(3,4824) - JVS(31) = B(17169) -! JVS(32) = Jac_FULL(3,4828) - JVS(32) = B(15447) -! JVS(33) = Jac_FULL(3,4838) - JVS(33) = B(5120) -! JVS(34) = Jac_FULL(3,4843) - JVS(34) = B(7448) -! JVS(35) = Jac_FULL(3,4868) - JVS(35) = B(5060) -! JVS(36) = Jac_FULL(3,4869) - JVS(36) = B(11316) -! JVS(37) = Jac_FULL(3,4906) - JVS(37) = B(6751) -! JVS(38) = Jac_FULL(3,4908) - JVS(38) = B(4033) -! JVS(39) = Jac_FULL(3,4912) - JVS(39) = B(7278) -! JVS(40) = Jac_FULL(3,4919) - JVS(40) = B(6590) -! JVS(41) = Jac_FULL(3,4941) - JVS(41) = B(4867) -! JVS(42) = Jac_FULL(3,4943) - JVS(42) = B(4355) -! JVS(43) = Jac_FULL(3,4956) - JVS(43) = B(4946) -! JVS(44) = Jac_FULL(3,4963) - JVS(44) = B(10672) -! JVS(45) = Jac_FULL(3,4997) - JVS(45) = B(9463) -! JVS(46) = Jac_FULL(3,4998) - JVS(46) = B(9574) -! JVS(47) = Jac_FULL(3,4999) - JVS(47) = B(13540) -! JVS(48) = Jac_FULL(3,5040) - JVS(48) = B(16571) -! JVS(49) = Jac_FULL(3,5047) - JVS(49) = B(18755) -! JVS(50) = Jac_FULL(3,5048) - JVS(50) = B(3578) -! JVS(51) = Jac_FULL(3,5070) - JVS(51) = B(9342) -! JVS(52) = Jac_FULL(3,5092) - JVS(52) = B(3588) -! JVS(53) = Jac_FULL(3,5102) - JVS(53) = B(8869) -! JVS(54) = Jac_FULL(3,5156) - JVS(54) = B(4290) -! JVS(55) = Jac_FULL(3,5170) - JVS(55) = B(4262) -! JVS(56) = Jac_FULL(3,5223) - JVS(56) = B(4057) -! JVS(57) = Jac_FULL(3,5254) - JVS(57) = B(57)+B(3579)+B(3589)+B(4034)+B(4058)+B(4263)+B(4291)+B(4356)+B(4868)+B(4912)+B(4947)+B(5027)+B(5061)& - &+B(5121)+B(6591)+B(6646)+B(6752)+B(6762)+B(7279)+B(7381)+B(7449)+B(8870)+B(9343)+B(9464)+B(9575)+B(10673)& - &+B(11317)+B(13510)+B(13541)+B(13565)+B(13598)+B(13632)+B(13875)+B(14560)+B(14655)+B(14700)+B(14798)+B(14808)& - &+B(15448)+B(15595)+B(15620)+B(16523)+B(16533)+B(16572)+B(16659)+B(17170)+B(17328)+B(18756)+B(20539) -! JVS(58) = Jac_FULL(4,4) - JVS(58) = -B(12)-B(24) -! JVS(59) = Jac_FULL(4,5258) - JVS(59) = B(64) -! JVS(60) = Jac_FULL(5,5) - JVS(60) = -B(60) -! JVS(61) = Jac_FULL(5,5250) - JVS(61) = B(58) -! JVS(62) = Jac_FULL(5,5254) - JVS(62) = B(59) -! JVS(63) = Jac_FULL(6,6) - JVS(63) = -B(15414) -! JVS(64) = Jac_FULL(6,1916) - JVS(64) = B(12193) -! JVS(65) = Jac_FULL(7,7) - JVS(65) = -B(8569) -! JVS(66) = Jac_FULL(7,3432) - JVS(66) = B(5038) -! JVS(67) = Jac_FULL(8,8) - JVS(67) = -B(15415) -! JVS(68) = Jac_FULL(8,2478) - JVS(68) = B(12214) -! JVS(69) = Jac_FULL(9,9) - JVS(69) = -B(10707) -! JVS(70) = Jac_FULL(9,285) - JVS(70) = B(21139) -! JVS(71) = Jac_FULL(9,5127) - JVS(71) = B(6903) -! JVS(72) = Jac_FULL(9,5250) - JVS(72) = -B(10708)+B(21140) -! JVS(73) = Jac_FULL(10,10) - JVS(73) = -B(21558) -! JVS(74) = Jac_FULL(10,4519) - JVS(74) = B(20336)+B(20348) -! JVS(75) = Jac_FULL(10,5250) - JVS(75) = -B(21559) -! JVS(76) = Jac_FULL(10,5255) - JVS(76) = B(20337) -! JVS(77) = Jac_FULL(11,11) - JVS(77) = -B(8560) -! JVS(78) = Jac_FULL(11,4114) - JVS(78) = B(5014) -! JVS(79) = Jac_FULL(12,12) - JVS(79) = -B(7917) -! JVS(80) = Jac_FULL(12,4330) - JVS(80) = B(4282) -! JVS(81) = Jac_FULL(12,5250) - JVS(81) = B(4283)-B(7918) -! JVS(82) = Jac_FULL(13,13) - JVS(82) = -B(9842) -! JVS(83) = Jac_FULL(13,3648) - JVS(83) = B(6140) -! JVS(84) = Jac_FULL(13,5250) - JVS(84) = -B(9843) -! JVS(85) = Jac_FULL(14,14) - JVS(85) = -B(18099) -! JVS(86) = Jac_FULL(14,518) - JVS(86) = B(18098) -! JVS(87) = Jac_FULL(14,3699) - JVS(87) = B(15517)+B(15519)+B(15522) -! JVS(88) = Jac_FULL(14,5252) - JVS(88) = B(15518) -! JVS(89) = Jac_FULL(14,5256) - JVS(89) = B(15520) -! JVS(90) = Jac_FULL(15,15) - JVS(90) = -B(22242) -! JVS(91) = Jac_FULL(15,245) - JVS(91) = B(21429) -! JVS(92) = Jac_FULL(15,5250) - JVS(92) = -B(22243) -! JVS(93) = Jac_FULL(16,16) - JVS(93) = -B(18672) -! JVS(94) = Jac_FULL(16,1412) - JVS(94) = B(18671) -! JVS(95) = Jac_FULL(16,3753) - JVS(95) = B(16385)+B(16387)+B(16389) -! JVS(96) = Jac_FULL(16,5252) - JVS(96) = B(16386) -! JVS(97) = Jac_FULL(16,5256) - JVS(97) = B(16388) -! JVS(98) = Jac_FULL(17,17) - JVS(98) = -B(9756) -! JVS(99) = Jac_FULL(17,3518) - JVS(99) = B(6055) -! JVS(100) = Jac_FULL(17,5250) - JVS(100) = -B(9757) -! JVS(101) = Jac_FULL(18,18) - JVS(101) = -B(10201) -! JVS(102) = Jac_FULL(18,3632) - JVS(102) = B(6498) -! JVS(103) = Jac_FULL(18,5250) - JVS(103) = -B(10202) -! JVS(104) = Jac_FULL(19,19) - JVS(104) = -B(13785) -! JVS(105) = Jac_FULL(19,5002) - JVS(105) = B(10584) -! JVS(106) = Jac_FULL(19,5258) - JVS(106) = B(10585) -! JVS(107) = Jac_FULL(20,20) - JVS(107) = -B(20873) -! JVS(108) = Jac_FULL(20,5095) - JVS(108) = B(19322) -! JVS(109) = Jac_FULL(20,5258) - JVS(109) = B(19323) -! JVS(110) = Jac_FULL(21,21) - JVS(110) = -B(16563) -! JVS(111) = Jac_FULL(21,3428) - JVS(111) = B(13725) -! JVS(112) = Jac_FULL(21,5250) - JVS(112) = B(13726)-B(16564) -! JVS(113) = Jac_FULL(22,22) - JVS(113) = -B(6283) -! JVS(114) = Jac_FULL(22,3798) - JVS(114) = B(2853) -! JVS(115) = Jac_FULL(22,5250) - JVS(115) = -B(6284) -! JVS(116) = Jac_FULL(23,23) - JVS(116) = -B(21447) -! JVS(117) = Jac_FULL(23,2854) - JVS(117) = B(20150) -! JVS(118) = Jac_FULL(23,5250) - JVS(118) = B(20151) -! JVS(119) = Jac_FULL(24,24) - JVS(119) = -B(16944) -! JVS(120) = Jac_FULL(24,4092) - JVS(120) = B(14324) -! JVS(121) = Jac_FULL(24,5250) - JVS(121) = -B(16945) -! JVS(122) = Jac_FULL(25,25) - JVS(122) = -B(22844) -! JVS(123) = Jac_FULL(25,1761) - JVS(123) = B(22843) -! JVS(124) = Jac_FULL(25,4295) - JVS(124) = B(22347)+B(22349)+B(22351) -! JVS(125) = Jac_FULL(25,5252) - JVS(125) = B(22348) -! JVS(126) = Jac_FULL(25,5256) - JVS(126) = B(22350) -! JVS(127) = Jac_FULL(26,26) - JVS(127) = -B(23237) -! JVS(128) = Jac_FULL(26,4426) - JVS(128) = B(22795) -! JVS(129) = Jac_FULL(26,5250) - JVS(129) = -B(23238) -! JVS(130) = Jac_FULL(27,27) - JVS(130) = -B(17075) -! JVS(131) = Jac_FULL(27,5083) - JVS(131) = B(14433) -! JVS(132) = Jac_FULL(27,5258) - JVS(132) = B(14434) -! JVS(133) = Jac_FULL(28,28) - JVS(133) = -B(11154) -! JVS(134) = Jac_FULL(28,3982) - JVS(134) = B(7362) -! JVS(135) = Jac_FULL(28,5250) - JVS(135) = -B(11155) -! JVS(136) = Jac_FULL(29,29) - JVS(136) = -B(13684) -! JVS(137) = Jac_FULL(29,4976) - JVS(137) = B(10515) -! JVS(138) = Jac_FULL(29,5258) - JVS(138) = B(10516) -! JVS(139) = Jac_FULL(30,30) - JVS(139) = -B(20989) -! JVS(140) = Jac_FULL(30,5247) - JVS(140) = B(19435) -! JVS(141) = Jac_FULL(30,5250) - JVS(141) = -B(20990) -! JVS(142) = Jac_FULL(31,31) - JVS(142) = -B(9145) -! JVS(143) = Jac_FULL(31,3531) - JVS(143) = B(5560) -! JVS(144) = Jac_FULL(31,5250) - JVS(144) = -B(9146) -! JVS(145) = Jac_FULL(32,32) - JVS(145) = -B(5200) -! JVS(146) = Jac_FULL(32,3721) - JVS(146) = B(2338) -! JVS(147) = Jac_FULL(32,5250) - JVS(147) = -B(5201) -! JVS(148) = Jac_FULL(33,33) - JVS(148) = -B(18245) -! JVS(149) = Jac_FULL(33,3714) - JVS(149) = B(15766) -! JVS(150) = Jac_FULL(33,5250) - JVS(150) = -B(18246) -! JVS(151) = Jac_FULL(34,34) - JVS(151) = -B(4717) -! JVS(152) = Jac_FULL(34,4099) - JVS(152) = B(1898) -! JVS(153) = Jac_FULL(34,5250) - JVS(153) = -B(4718) -! JVS(154) = Jac_FULL(35,35) - JVS(154) = -B(12140) -! JVS(155) = Jac_FULL(35,1028) - JVS(155) = B(12137) -! JVS(156) = Jac_FULL(35,3678) - JVS(156) = B(8391)+B(8393)+B(8395) -! JVS(157) = Jac_FULL(35,5252) - JVS(157) = B(8392) -! JVS(158) = Jac_FULL(35,5256) - JVS(158) = B(8394) -! JVS(159) = Jac_FULL(36,36) - JVS(159) = -B(14882) -! JVS(160) = Jac_FULL(36,865) - JVS(160) = B(14881) -! JVS(161) = Jac_FULL(36,4244) - JVS(161) = B(11544)+B(11546)+B(11548) -! JVS(162) = Jac_FULL(36,5252) - JVS(162) = B(11545) -! JVS(163) = Jac_FULL(36,5256) - JVS(163) = B(11547) -! JVS(164) = Jac_FULL(37,37) - JVS(164) = -B(2329) -! JVS(165) = Jac_FULL(37,3442) - JVS(165) = B(587) -! JVS(166) = Jac_FULL(37,5258) - JVS(166) = B(588) -! JVS(167) = Jac_FULL(38,38) - JVS(167) = -B(16201) -! JVS(168) = Jac_FULL(38,4480) - JVS(168) = B(13143) -! JVS(169) = Jac_FULL(38,5250) - JVS(169) = -B(16202) -! JVS(170) = Jac_FULL(39,39) - JVS(170) = -B(16443) -! JVS(171) = Jac_FULL(39,3788) - JVS(171) = B(13418) -! JVS(172) = Jac_FULL(39,5250) - JVS(172) = -B(16444) -! JVS(173) = Jac_FULL(40,40) - JVS(173) = -B(22831) -! JVS(174) = Jac_FULL(40,3694) - JVS(174) = B(22330) -! JVS(175) = Jac_FULL(40,5250) - JVS(175) = -B(22832) -! JVS(176) = Jac_FULL(41,41) - JVS(176) = -B(15722) -! JVS(177) = Jac_FULL(41,3705) - JVS(177) = B(12652) -! JVS(178) = Jac_FULL(41,5250) - JVS(178) = -B(15723) -! JVS(179) = Jac_FULL(42,42) - JVS(179) = -B(14237) -! JVS(180) = Jac_FULL(42,1043) - JVS(180) = B(14236) -! JVS(181) = Jac_FULL(42,3745) - JVS(181) = B(11041)+B(11043)+B(11045) -! JVS(182) = Jac_FULL(42,5252) - JVS(182) = B(11042) -! JVS(183) = Jac_FULL(42,5256) - JVS(183) = B(11044) -! JVS(184) = Jac_FULL(43,43) - JVS(184) = -B(12158) -! JVS(185) = Jac_FULL(43,1534) - JVS(185) = B(12155) -! JVS(186) = Jac_FULL(43,3704) - JVS(186) = B(8409)+B(8411)+B(8413) -! JVS(187) = Jac_FULL(43,5252) - JVS(187) = B(8410) -! JVS(188) = Jac_FULL(43,5256) - JVS(188) = B(8412) -! JVS(189) = Jac_FULL(44,44) - JVS(189) = -B(19549) -! JVS(190) = Jac_FULL(44,1279) - JVS(190) = B(19548) -! JVS(191) = Jac_FULL(44,4015) - JVS(191) = B(17434)+B(17436)+B(17438) -! JVS(192) = Jac_FULL(44,5252) - JVS(192) = B(17435) -! JVS(193) = Jac_FULL(44,5256) - JVS(193) = B(17437) -! JVS(194) = Jac_FULL(45,45) - JVS(194) = -B(14886) -! JVS(195) = Jac_FULL(45,1202) - JVS(195) = B(14885) -! JVS(196) = Jac_FULL(45,3784) - JVS(196) = B(11551)+B(11553)+B(11555) -! JVS(197) = Jac_FULL(45,5252) - JVS(197) = B(11552) -! JVS(198) = Jac_FULL(45,5256) - JVS(198) = B(11554) -! JVS(199) = Jac_FULL(46,46) - JVS(199) = -B(16185) -! JVS(200) = Jac_FULL(46,3725) - JVS(200) = B(13120) -! JVS(201) = Jac_FULL(46,5250) - JVS(201) = -B(16186) -! JVS(202) = Jac_FULL(47,47) - JVS(202) = -B(9280) -! JVS(203) = Jac_FULL(47,3562) - JVS(203) = B(5685) -! JVS(204) = Jac_FULL(47,5250) - JVS(204) = -B(9281) -! JVS(205) = Jac_FULL(48,48) - JVS(205) = -B(16561) -! JVS(206) = Jac_FULL(48,3428) - JVS(206) = B(13723) -! JVS(207) = Jac_FULL(48,5250) - JVS(207) = B(13724)-B(16562) -! JVS(208) = Jac_FULL(49,49) - JVS(208) = -B(20699) -! JVS(209) = Jac_FULL(49,1203) - JVS(209) = B(20698) -! JVS(210) = Jac_FULL(49,3761) - JVS(210) = B(19112)+B(19114)+B(19116) -! JVS(211) = Jac_FULL(49,5252) - JVS(211) = B(19113) -! JVS(212) = Jac_FULL(49,5256) - JVS(212) = B(19115) -! JVS(213) = Jac_FULL(50,50) - JVS(213) = -B(12086) -! JVS(214) = Jac_FULL(50,1416) - JVS(214) = B(12083) -! JVS(215) = Jac_FULL(50,3781) - JVS(215) = B(8337)+B(8339)+B(8341) -! JVS(216) = Jac_FULL(50,5252) - JVS(216) = B(8338) -! JVS(217) = Jac_FULL(50,5256) - JVS(217) = B(8340) -! JVS(218) = Jac_FULL(51,51) - JVS(218) = -B(13946) -! JVS(219) = Jac_FULL(51,2260) - JVS(219) = B(13945) -! JVS(220) = Jac_FULL(51,4595) - JVS(220) = B(10744)+B(10746)+B(10748) -! JVS(221) = Jac_FULL(51,5252) - JVS(221) = B(10745) -! JVS(222) = Jac_FULL(51,5256) - JVS(222) = B(10747) -! JVS(223) = Jac_FULL(52,52) - JVS(223) = -B(6034) -! JVS(224) = Jac_FULL(52,4133) - JVS(224) = B(2737) -! JVS(225) = Jac_FULL(52,5250) - JVS(225) = -B(6035) -! JVS(226) = Jac_FULL(53,53) - JVS(226) = -B(20013) -! JVS(227) = Jac_FULL(53,4904) - JVS(227) = B(18219) -! JVS(228) = Jac_FULL(53,5250) - JVS(228) = -B(20014) -! JVS(229) = Jac_FULL(54,54) - JVS(229) = -B(6206) -! JVS(230) = Jac_FULL(54,4074) - JVS(230) = B(2821) -! JVS(231) = Jac_FULL(54,5250) - JVS(231) = -B(6207) -! JVS(232) = Jac_FULL(55,55) - JVS(232) = -B(13638) -! JVS(233) = Jac_FULL(55,3939) - JVS(233) = B(10451) -! JVS(234) = Jac_FULL(55,5250) - JVS(234) = -B(13639) -! JVS(235) = Jac_FULL(56,56) - JVS(235) = -B(18143) -! JVS(236) = Jac_FULL(56,4621) - JVS(236) = B(15597) -! JVS(237) = Jac_FULL(56,5250) - JVS(237) = -B(18144) -! JVS(238) = Jac_FULL(57,57) - JVS(238) = -B(18554) -! JVS(239) = Jac_FULL(57,1062) - JVS(239) = B(18553) -! JVS(240) = Jac_FULL(57,3771) - JVS(240) = B(16234)+B(16236)+B(16238) -! JVS(241) = Jac_FULL(57,5252) - JVS(241) = B(16235) -! JVS(242) = Jac_FULL(57,5256) - JVS(242) = B(16237) -! JVS(243) = Jac_FULL(58,58) - JVS(243) = -B(15737) -! JVS(244) = Jac_FULL(58,3695) - JVS(244) = B(12674) -! JVS(245) = Jac_FULL(58,5250) - JVS(245) = -B(15738) -! JVS(246) = Jac_FULL(59,59) - JVS(246) = -B(21079) -! JVS(247) = Jac_FULL(59,4764) - JVS(247) = B(19514) -! JVS(248) = Jac_FULL(59,5250) - JVS(248) = -B(21080) -! JVS(249) = Jac_FULL(60,60) - JVS(249) = -B(23722) -! JVS(250) = Jac_FULL(60,4234) - JVS(250) = B(23471) -! JVS(251) = Jac_FULL(60,5250) - JVS(251) = -B(23723) -! JVS(252) = Jac_FULL(61,61) - JVS(252) = -B(23378) -! JVS(253) = Jac_FULL(61,5187) - JVS(253) = B(22988) -! JVS(254) = Jac_FULL(61,5258) - JVS(254) = B(22989) -! JVS(255) = Jac_FULL(62,62) - JVS(255) = -B(16650) -! JVS(256) = Jac_FULL(62,5174) - JVS(256) = B(13829) -! JVS(257) = Jac_FULL(62,5250) - JVS(257) = -B(16651) -! JVS(258) = Jac_FULL(63,63) - JVS(258) = -B(16195) -! JVS(259) = Jac_FULL(63,4481) - JVS(259) = B(13135) -! JVS(260) = Jac_FULL(63,5250) - JVS(260) = -B(16196) -! JVS(261) = Jac_FULL(64,64) - JVS(261) = -B(4667) -! JVS(262) = Jac_FULL(64,3894) - JVS(262) = B(1855) -! JVS(263) = Jac_FULL(64,5250) - JVS(263) = -B(4668) -! JVS(264) = Jac_FULL(65,65) - JVS(264) = -B(18287) -! JVS(265) = Jac_FULL(65,1497) - JVS(265) = B(18286) -! JVS(266) = Jac_FULL(65,3769) - JVS(266) = B(15821)+B(15823)+B(15825) -! JVS(267) = Jac_FULL(65,5252) - JVS(267) = B(15822) -! JVS(268) = Jac_FULL(65,5256) - JVS(268) = B(15824) -! JVS(269) = Jac_FULL(66,66) - JVS(269) = -B(12122) -! JVS(270) = Jac_FULL(66,1410) - JVS(270) = B(12119) -! JVS(271) = Jac_FULL(66,3766) - JVS(271) = B(8373)+B(8375)+B(8377) -! JVS(272) = Jac_FULL(66,5252) - JVS(272) = B(8374) -! JVS(273) = Jac_FULL(66,5256) - JVS(273) = B(8376) -! JVS(274) = Jac_FULL(67,67) - JVS(274) = -B(16613) -! JVS(275) = Jac_FULL(67,4570) - JVS(275) = B(13780) -! JVS(276) = Jac_FULL(67,5258) - JVS(276) = B(13781) -! JVS(277) = Jac_FULL(68,68) - JVS(277) = -B(9640) -! JVS(278) = Jac_FULL(68,3627) - JVS(278) = B(5966) -! JVS(279) = Jac_FULL(68,5250) - JVS(279) = -B(9641) -! JVS(280) = Jac_FULL(69,69) - JVS(280) = -B(20750) -! JVS(281) = Jac_FULL(69,508) - JVS(281) = B(20749) -! JVS(282) = Jac_FULL(69,3710) - JVS(282) = B(19153)+B(19155)+B(19158) -! JVS(283) = Jac_FULL(69,5252) - JVS(283) = B(19154) -! JVS(284) = Jac_FULL(69,5256) - JVS(284) = B(19156) -! JVS(285) = Jac_FULL(70,70) - JVS(285) = -B(13884) -! JVS(286) = Jac_FULL(70,4894) - JVS(286) = B(10649) -! JVS(287) = Jac_FULL(70,5250) - JVS(287) = -B(13885) -! JVS(288) = Jac_FULL(71,71) - JVS(288) = -B(9511) -! JVS(289) = Jac_FULL(71,3539) - JVS(289) = B(5864) -! JVS(290) = Jac_FULL(71,5250) - JVS(290) = -B(9512) -! JVS(291) = Jac_FULL(72,72) - JVS(291) = -B(21456) -! JVS(292) = Jac_FULL(72,3746) - JVS(292) = B(20172) -! JVS(293) = Jac_FULL(72,5250) - JVS(293) = -B(21457) -! JVS(294) = Jac_FULL(73,73) - JVS(294) = -B(15649) -! JVS(295) = Jac_FULL(73,4422) - JVS(295) = B(12562) -! JVS(296) = Jac_FULL(73,5250) - JVS(296) = -B(15650) -! JVS(297) = Jac_FULL(74,74) - JVS(297) = -B(10235) -! JVS(298) = Jac_FULL(74,3650) - JVS(298) = B(6528) -! JVS(299) = Jac_FULL(74,5250) - JVS(299) = -B(10236) -! JVS(300) = Jac_FULL(75,75) - JVS(300) = -B(22234) -! JVS(301) = Jac_FULL(75,422) - JVS(301) = B(21405) -! JVS(302) = Jac_FULL(75,5250) - JVS(302) = -B(22235) -! JVS(303) = Jac_FULL(76,76) - JVS(303) = -B(23252) -! JVS(304) = Jac_FULL(76,989) - JVS(304) = B(23251) -! JVS(305) = Jac_FULL(76,3719) - JVS(305) = B(22822)+B(22824)+B(22826) -! JVS(306) = Jac_FULL(76,5252) - JVS(306) = B(22823) -! JVS(307) = Jac_FULL(76,5256) - JVS(307) = B(22825) -! JVS(308) = Jac_FULL(77,77) - JVS(308) = -B(16798) -! JVS(309) = Jac_FULL(77,2932) - JVS(309) = B(14159) -! JVS(310) = Jac_FULL(77,5250) - JVS(310) = B(14160)-B(16799) -! JVS(311) = Jac_FULL(78,78) - JVS(311) = -B(18637) -! JVS(312) = Jac_FULL(78,1435) - JVS(312) = B(18636) -! JVS(313) = Jac_FULL(78,3782) - JVS(313) = B(16330)+B(16332)+B(16334) -! JVS(314) = Jac_FULL(78,5252) - JVS(314) = B(16331) -! JVS(315) = Jac_FULL(78,5256) - JVS(315) = B(16333) -! JVS(316) = Jac_FULL(79,79) - JVS(316) = -B(17003) -! JVS(317) = Jac_FULL(79,3981) - JVS(317) = B(14383) -! JVS(318) = Jac_FULL(79,5250) - JVS(318) = -B(17004) -! JVS(319) = Jac_FULL(80,80) - JVS(319) = -B(19060) -! JVS(320) = Jac_FULL(80,992) - JVS(320) = B(19059) -! JVS(321) = Jac_FULL(80,3717) - JVS(321) = B(16865)+B(16867)+B(16869) -! JVS(322) = Jac_FULL(80,5252) - JVS(322) = B(16866) -! JVS(323) = Jac_FULL(80,5256) - JVS(323) = B(16868) -! JVS(324) = Jac_FULL(81,81) - JVS(324) = -B(6441) -! JVS(325) = Jac_FULL(81,3817) - JVS(325) = B(2929) -! JVS(326) = Jac_FULL(81,5250) - JVS(326) = -B(6442) -! JVS(327) = Jac_FULL(82,82) - JVS(327) = -B(18244) -! JVS(328) = Jac_FULL(82,963) - JVS(328) = B(18243) -! JVS(329) = Jac_FULL(82,3714) - JVS(329) = B(15761)+B(15763)+B(15765) -! JVS(330) = Jac_FULL(82,5252) - JVS(330) = B(15762) -! JVS(331) = Jac_FULL(82,5256) - JVS(331) = B(15764) -! JVS(332) = Jac_FULL(83,83) - JVS(332) = -B(23700) -! JVS(333) = Jac_FULL(83,4216) - JVS(333) = B(23438) -! JVS(334) = Jac_FULL(83,5250) - JVS(334) = -B(23701) -! JVS(335) = Jac_FULL(84,84) - JVS(335) = -B(9243) -! JVS(336) = Jac_FULL(84,3534) - JVS(336) = B(5653) -! JVS(337) = Jac_FULL(84,5250) - JVS(337) = -B(9244) -! JVS(338) = Jac_FULL(85,85) - JVS(338) = -B(21316) -! JVS(339) = Jac_FULL(85,4507) - JVS(339) = B(19926) -! JVS(340) = Jac_FULL(85,5250) - JVS(340) = B(19927) -! JVS(341) = Jac_FULL(86,86) - JVS(341) = -B(4090) -! JVS(342) = Jac_FULL(86,5228) - JVS(342) = B(1288) -! JVS(343) = Jac_FULL(86,5253) - JVS(343) = B(1289) -! JVS(344) = Jac_FULL(87,87) - JVS(344) = -B(17368) -! JVS(345) = Jac_FULL(87,4394) - JVS(345) = B(14781) -! JVS(346) = Jac_FULL(87,5250) - JVS(346) = -B(17369) -! JVS(347) = Jac_FULL(88,88) - JVS(347) = -B(20777) -! JVS(348) = Jac_FULL(88,594) - JVS(348) = B(20776) -! JVS(349) = Jac_FULL(88,4077) - JVS(349) = B(19186)+B(19188)+B(19191) -! JVS(350) = Jac_FULL(88,5252) - JVS(350) = B(19187) -! JVS(351) = Jac_FULL(88,5256) - JVS(351) = B(19189) -! JVS(352) = Jac_FULL(89,89) - JVS(352) = -B(5851) -! JVS(353) = Jac_FULL(89,4068) - JVS(353) = B(2644) -! JVS(354) = Jac_FULL(89,5250) - JVS(354) = -B(5852) -! JVS(355) = Jac_FULL(90,90) - JVS(355) = -B(18555) -! JVS(356) = Jac_FULL(90,3771) - JVS(356) = B(16239) -! JVS(357) = Jac_FULL(90,5250) - JVS(357) = -B(18556) -! JVS(358) = Jac_FULL(91,91) - JVS(358) = -B(12022) -! JVS(359) = Jac_FULL(91,1282) - JVS(359) = B(12019) -! JVS(360) = Jac_FULL(91,3674) - JVS(360) = B(8279)+B(8281)+B(8283) -! JVS(361) = Jac_FULL(91,5252) - JVS(361) = B(8280) -! JVS(362) = Jac_FULL(91,5256) - JVS(362) = B(8282) -! JVS(363) = Jac_FULL(92,92) - JVS(363) = -B(18448) -! JVS(364) = Jac_FULL(92,1359) - JVS(364) = B(18447) -! JVS(365) = Jac_FULL(92,3983) - JVS(365) = B(16062)+B(16064)+B(16067) -! JVS(366) = Jac_FULL(92,5252) - JVS(366) = B(16063) -! JVS(367) = Jac_FULL(92,5256) - JVS(367) = B(16065) -! JVS(368) = Jac_FULL(93,93) - JVS(368) = -B(18638) -! JVS(369) = Jac_FULL(93,3782) - JVS(369) = B(16335) -! JVS(370) = Jac_FULL(93,5250) - JVS(370) = -B(18639) -! JVS(371) = Jac_FULL(94,94) - JVS(371) = -B(8772) -! JVS(372) = Jac_FULL(94,3786) - JVS(372) = B(5293) -! JVS(373) = Jac_FULL(94,5250) - JVS(373) = -B(8773) -! JVS(374) = Jac_FULL(95,95) - JVS(374) = -B(7312) -! JVS(375) = Jac_FULL(95,4091) - JVS(375) = B(3458) -! JVS(376) = Jac_FULL(95,5250) - JVS(376) = -B(7313) -! JVS(377) = Jac_FULL(96,96) - JVS(377) = -B(19558) -! JVS(378) = Jac_FULL(96,1397) - JVS(378) = B(19557) -! JVS(379) = Jac_FULL(96,4042) - JVS(379) = B(17448)+B(17450)+B(17452) -! JVS(380) = Jac_FULL(96,5252) - JVS(380) = B(17449) -! JVS(381) = Jac_FULL(96,5256) - JVS(381) = B(17451) -! JVS(382) = Jac_FULL(97,97) - JVS(382) = -B(18381) -! JVS(383) = Jac_FULL(97,324) - JVS(383) = B(18380) -! JVS(384) = Jac_FULL(97,3711) - JVS(384) = B(15960)+B(15962)+B(15965) -! JVS(385) = Jac_FULL(97,5252) - JVS(385) = B(15961) -! JVS(386) = Jac_FULL(97,5256) - JVS(386) = B(15963) -! JVS(387) = Jac_FULL(98,98) - JVS(387) = -B(23231) -! JVS(388) = Jac_FULL(98,4482) - JVS(388) = B(22787) -! JVS(389) = Jac_FULL(98,5250) - JVS(389) = -B(23232) -! JVS(390) = Jac_FULL(99,99) - JVS(390) = -B(22123) -! JVS(391) = Jac_FULL(99,5104) - JVS(391) = B(21098) -! JVS(392) = Jac_FULL(99,5250) - JVS(392) = -B(22124) -! JVS(393) = Jac_FULL(100,100) - JVS(393) = -B(15602) -! JVS(394) = Jac_FULL(100,3752) - JVS(394) = B(12493) -! JVS(395) = Jac_FULL(100,5250) - JVS(395) = -B(15603) -! JVS(396) = Jac_FULL(101,101) - JVS(396) = -B(23225) -! JVS(397) = Jac_FULL(101,4423) - JVS(397) = B(22779) -! JVS(398) = Jac_FULL(101,5250) - JVS(398) = -B(23226) -! JVS(399) = Jac_FULL(102,102) - JVS(399) = -B(5599) -! JVS(400) = Jac_FULL(102,4529) - JVS(400) = B(2524) -! JVS(401) = Jac_FULL(102,5250) - JVS(401) = -B(5600) -! JVS(402) = Jac_FULL(103,103) - JVS(402) = -B(18288) -! JVS(403) = Jac_FULL(103,3769) - JVS(403) = B(15826) -! JVS(404) = Jac_FULL(103,5250) - JVS(404) = -B(18289) -! JVS(405) = Jac_FULL(104,104) - JVS(405) = -B(7405) -! JVS(406) = Jac_FULL(104,4090) - JVS(406) = B(3520) -! JVS(407) = Jac_FULL(104,5250) - JVS(407) = -B(7406) -! JVS(408) = Jac_FULL(105,105) - JVS(408) = -B(10560) -! JVS(409) = Jac_FULL(105,5219) - JVS(409) = B(6797) -! JVS(410) = Jac_FULL(105,5250) - JVS(410) = -B(10561) -! JVS(411) = Jac_FULL(106,106) - JVS(411) = -B(18673) -! JVS(412) = Jac_FULL(106,3753) - JVS(412) = B(16390) -! JVS(413) = Jac_FULL(106,5250) - JVS(413) = -B(18674) -! JVS(414) = Jac_FULL(107,107) - JVS(414) = -B(18600) -! JVS(415) = Jac_FULL(107,459) - JVS(415) = B(18599) -! JVS(416) = Jac_FULL(107,3770) - JVS(416) = B(16286)+B(16288)+B(16291) -! JVS(417) = Jac_FULL(107,5252) - JVS(417) = B(16287) -! JVS(418) = Jac_FULL(107,5256) - JVS(418) = B(16289) -! JVS(419) = Jac_FULL(108,108) - JVS(419) = -B(22075) -! JVS(420) = Jac_FULL(108,4748) - JVS(420) = B(21057) -! JVS(421) = Jac_FULL(108,5250) - JVS(421) = -B(22076) -! JVS(422) = Jac_FULL(109,109) - JVS(422) = -B(9011) -! JVS(423) = Jac_FULL(109,3491) - JVS(423) = B(5469) -! JVS(424) = Jac_FULL(109,5250) - JVS(424) = -B(9012) -! JVS(425) = Jac_FULL(110,110) - JVS(425) = -B(18044) -! JVS(426) = Jac_FULL(110,4828) - JVS(426) = B(15450) -! JVS(427) = Jac_FULL(110,5250) - JVS(427) = -B(18045) -! JVS(428) = Jac_FULL(111,111) - JVS(428) = -B(10123) -! JVS(429) = Jac_FULL(111,3489) - JVS(429) = B(6412) -! JVS(430) = Jac_FULL(111,5250) - JVS(430) = -B(10124) -! JVS(431) = Jac_FULL(112,112) - JVS(431) = -B(22554) -! JVS(432) = Jac_FULL(112,5189) - JVS(432) = B(21954) -! JVS(433) = Jac_FULL(112,5258) - JVS(433) = B(21955) -! JVS(434) = Jac_FULL(113,113) - JVS(434) = -B(22128) -! JVS(435) = Jac_FULL(113,1333) - JVS(435) = B(22127) -! JVS(436) = Jac_FULL(113,3951) - JVS(436) = B(21111)+B(21113)+B(21115) -! JVS(437) = Jac_FULL(113,5252) - JVS(437) = B(21112) -! JVS(438) = Jac_FULL(113,5256) - JVS(438) = B(21114) -! JVS(439) = Jac_FULL(114,114) - JVS(439) = -B(13892) -! JVS(440) = Jac_FULL(114,4963) - JVS(440) = B(10675) -! JVS(441) = Jac_FULL(114,5250) - JVS(441) = -B(13893) -! JVS(442) = Jac_FULL(115,115) - JVS(442) = -B(24020) -! JVS(443) = Jac_FULL(115,1956) - JVS(443) = B(24019) -! JVS(444) = Jac_FULL(115,4687) - JVS(444) = B(23984)+B(23986)+B(23988) -! JVS(445) = Jac_FULL(115,5252) - JVS(445) = B(23985) -! JVS(446) = Jac_FULL(115,5256) - JVS(446) = B(23987) -! JVS(447) = Jac_FULL(116,116) - JVS(447) = -B(18322) -! JVS(448) = Jac_FULL(116,521) - JVS(448) = B(18321) -! JVS(449) = Jac_FULL(116,3675) - JVS(449) = B(15864)+B(15866)+B(15869) -! JVS(450) = Jac_FULL(116,5252) - JVS(450) = B(15865) -! JVS(451) = Jac_FULL(116,5256) - JVS(451) = B(15867) -! JVS(452) = Jac_FULL(117,117) - JVS(452) = -B(12009) -! JVS(453) = Jac_FULL(117,1075) - JVS(453) = B(12006) -! JVS(454) = Jac_FULL(117,3785) - JVS(454) = B(8262)+B(8264)+B(8266) -! JVS(455) = Jac_FULL(117,5252) - JVS(455) = B(8263) -! JVS(456) = Jac_FULL(117,5256) - JVS(456) = B(8265) -! JVS(457) = Jac_FULL(118,118) - JVS(457) = -B(22114) -! JVS(458) = Jac_FULL(118,4734) - JVS(458) = B(21088) -! JVS(459) = Jac_FULL(118,5250) - JVS(459) = -B(22115) -! JVS(460) = Jac_FULL(119,119) - JVS(460) = -B(9984) -! JVS(461) = Jac_FULL(119,3503) - JVS(461) = B(6265) -! JVS(462) = Jac_FULL(119,5250) - JVS(462) = -B(9985) -! JVS(463) = Jac_FULL(120,120) - JVS(463) = -B(18179) -! JVS(464) = Jac_FULL(120,398) - JVS(464) = B(18178) -! JVS(465) = Jac_FULL(120,3697) - JVS(465) = B(15671)+B(15673)+B(15676) -! JVS(466) = Jac_FULL(120,5252) - JVS(466) = B(15672) -! JVS(467) = Jac_FULL(120,5256) - JVS(467) = B(15674) -! JVS(468) = Jac_FULL(121,121) - JVS(468) = -B(20850) -! JVS(469) = Jac_FULL(121,5084) - JVS(469) = B(19289) -! JVS(470) = Jac_FULL(121,5250) - JVS(470) = -B(20851) -! JVS(471) = Jac_FULL(122,23) - JVS(471) = B(21447) -! JVS(472) = Jac_FULL(122,122) - JVS(472) = -B(22250) -! JVS(473) = Jac_FULL(122,2854) - JVS(473) = 0 -! JVS(474) = Jac_FULL(122,5250) - JVS(474) = -B(22251) -! JVS(475) = Jac_FULL(123,123) - JVS(475) = -B(18880) -! JVS(476) = Jac_FULL(123,3160) - JVS(476) = B(16683) -! JVS(477) = Jac_FULL(123,5250) - JVS(477) = B(16684)-B(18881) -! JVS(478) = Jac_FULL(124,124) - JVS(478) = -B(10043) -! JVS(479) = Jac_FULL(124,3511) - JVS(479) = B(6333) -! JVS(480) = Jac_FULL(124,5250) - JVS(480) = -B(10044) -! JVS(481) = Jac_FULL(125,125) - JVS(481) = -B(20796) -! JVS(482) = Jac_FULL(125,1089) - JVS(482) = B(20795) -! JVS(483) = Jac_FULL(125,3706) - JVS(483) = B(19215)+B(19217)+B(19220) -! JVS(484) = Jac_FULL(125,5252) - JVS(484) = B(19216) -! JVS(485) = Jac_FULL(125,5256) - JVS(485) = B(19218) -! JVS(486) = Jac_FULL(126,126) - JVS(486) = -B(3734) -! JVS(487) = Jac_FULL(126,4411) - JVS(487) = B(1018) -! JVS(488) = Jac_FULL(126,5250) - JVS(488) = -B(3735) -! JVS(489) = Jac_FULL(127,127) - JVS(489) = -B(17345) -! JVS(490) = Jac_FULL(127,3886) - JVS(490) = B(14753) -! JVS(491) = Jac_FULL(127,5250) - JVS(491) = -B(17346) -! JVS(492) = Jac_FULL(128,128) - JVS(492) = -B(6537) -! JVS(493) = Jac_FULL(128,4167) - JVS(493) = B(2977) -! JVS(494) = Jac_FULL(128,5250) - JVS(494) = -B(6538) -! JVS(495) = Jac_FULL(129,129) - JVS(495) = -B(6358) -! JVS(496) = Jac_FULL(129,3527) - JVS(496) = B(2886) -! JVS(497) = Jac_FULL(129,5250) - JVS(497) = -B(6359) -! JVS(498) = Jac_FULL(130,130) - JVS(498) = -B(18087) -! JVS(499) = Jac_FULL(130,491) - JVS(499) = B(18086) -! JVS(500) = Jac_FULL(130,3740) - JVS(500) = B(15501)+B(15503)+B(15506) -! JVS(501) = Jac_FULL(130,5252) - JVS(501) = B(15502) -! JVS(502) = Jac_FULL(130,5256) - JVS(502) = B(15504) -! JVS(503) = Jac_FULL(131,131) - JVS(503) = -B(16538) -! JVS(504) = Jac_FULL(131,4805) - JVS(504) = B(13679) -! JVS(505) = Jac_FULL(131,5258) - JVS(505) = B(13680) -! JVS(506) = Jac_FULL(132,132) - JVS(506) = -B(12053) -! JVS(507) = Jac_FULL(132,1032) - JVS(507) = B(12050) -! JVS(508) = Jac_FULL(132,3730) - JVS(508) = B(8308)+B(8310)+B(8312) -! JVS(509) = Jac_FULL(132,5252) - JVS(509) = B(8309) -! JVS(510) = Jac_FULL(132,5256) - JVS(510) = B(8311) -! JVS(511) = Jac_FULL(133,133) - JVS(511) = -B(4613) -! JVS(512) = Jac_FULL(133,4121) - JVS(512) = B(1812) -! JVS(513) = Jac_FULL(133,5250) - JVS(513) = -B(4614) -! JVS(514) = Jac_FULL(134,134) - JVS(514) = -B(23109) -! JVS(515) = Jac_FULL(134,4319) - JVS(515) = B(22661) -! JVS(516) = Jac_FULL(134,5250) - JVS(516) = -B(23110) -! JVS(517) = Jac_FULL(135,135) - JVS(517) = -B(5410) -! JVS(518) = Jac_FULL(135,4028) - JVS(518) = B(2437) -! JVS(519) = Jac_FULL(135,5250) - JVS(519) = -B(5411) -! JVS(520) = Jac_FULL(136,136) - JVS(520) = -B(8779) -! JVS(521) = Jac_FULL(136,3538) - JVS(521) = B(5310) -! JVS(522) = Jac_FULL(136,5250) - JVS(522) = -B(8780) -! JVS(523) = Jac_FULL(137,137) - JVS(523) = -B(62)-B(72) -! JVS(524) = Jac_FULL(137,5253) - JVS(524) = B(22) -! JVS(525) = Jac_FULL(137,5256) - JVS(525) = B(23) -! JVS(526) = Jac_FULL(138,138) - JVS(526) = -B(16937) -! JVS(527) = Jac_FULL(138,2143) - JVS(527) = B(16936) -! JVS(528) = Jac_FULL(138,4257) - JVS(528) = B(14310)+B(14312)+B(14314) -! JVS(529) = Jac_FULL(138,5252) - JVS(529) = B(14311) -! JVS(530) = Jac_FULL(138,5256) - JVS(530) = B(14313) -! JVS(531) = Jac_FULL(139,139) - JVS(531) = -B(4738) -! JVS(532) = Jac_FULL(139,4878) - JVS(532) = B(1919) -! JVS(533) = Jac_FULL(139,5250) - JVS(533) = -B(4739) -! JVS(534) = Jac_FULL(140,140) - JVS(534) = -B(12104) -! JVS(535) = Jac_FULL(140,1374) - JVS(535) = B(12101) -! JVS(536) = Jac_FULL(140,3768) - JVS(536) = B(8355)+B(8357)+B(8359) -! JVS(537) = Jac_FULL(140,5252) - JVS(537) = B(8356) -! JVS(538) = Jac_FULL(140,5256) - JVS(538) = B(8358) -! JVS(539) = Jac_FULL(141,141) - JVS(539) = -B(19875) -! JVS(540) = Jac_FULL(141,1192) - JVS(540) = B(19874) -! JVS(541) = Jac_FULL(141,5059) - JVS(541) = B(18048)+B(18050)+B(18053) -! JVS(542) = Jac_FULL(141,5252) - JVS(542) = B(18049) -! JVS(543) = Jac_FULL(141,5256) - JVS(543) = B(18051) -! JVS(544) = Jac_FULL(142,142) - JVS(544) = -B(21281) -! JVS(545) = Jac_FULL(142,3478) - JVS(545) = B(19888) -! JVS(546) = Jac_FULL(142,5250) - JVS(546) = B(19889) -! JVS(547) = Jac_FULL(143,143) - JVS(547) = -B(9404) -! JVS(548) = Jac_FULL(143,3554) - JVS(548) = B(5784) -! JVS(549) = Jac_FULL(143,5250) - JVS(549) = -B(9405) -! JVS(550) = Jac_FULL(144,144) - JVS(550) = -B(4571) -! JVS(551) = Jac_FULL(144,5056) - JVS(551) = B(1780) -! JVS(552) = Jac_FULL(144,5250) - JVS(552) = -B(4572) -! JVS(553) = Jac_FULL(145,145) - JVS(553) = -B(11159) -! JVS(554) = Jac_FULL(145,405) - JVS(554) = B(11158) -! JVS(555) = Jac_FULL(145,4240) - JVS(555) = B(7365)+B(7367)+B(7370) -! JVS(556) = Jac_FULL(145,5252) - JVS(556) = B(7366) -! JVS(557) = Jac_FULL(145,5256) - JVS(557) = B(7368) -! JVS(558) = Jac_FULL(146,146) - JVS(558) = -B(16920) -! JVS(559) = Jac_FULL(146,1383) - JVS(559) = B(16919) -! JVS(560) = Jac_FULL(146,4898) - JVS(560) = B(14284)+B(14286)+B(14288) -! JVS(561) = Jac_FULL(146,5252) - JVS(561) = B(14285) -! JVS(562) = Jac_FULL(146,5256) - JVS(562) = B(14287) -! JVS(563) = Jac_FULL(147,147) - JVS(563) = -B(7372) -! JVS(564) = Jac_FULL(147,640) - JVS(564) = B(3487) -! JVS(565) = Jac_FULL(147,5250) - JVS(565) = -B(7373) -! JVS(566) = Jac_FULL(148,148) - JVS(566) = -B(14409) -! JVS(567) = Jac_FULL(148,5169) - JVS(567) = B(11190) -! JVS(568) = Jac_FULL(148,5258) - JVS(568) = B(11191) -! JVS(569) = Jac_FULL(149,149) - JVS(569) = -B(19491) -! JVS(570) = Jac_FULL(149,830) - JVS(570) = B(19487) -! JVS(571) = Jac_FULL(149,1657) - JVS(571) = B(19490) -! JVS(572) = Jac_FULL(149,4043) - JVS(572) = B(17314)+B(17316)+B(17319) -! JVS(573) = Jac_FULL(149,5252) - JVS(573) = B(17315) -! JVS(574) = Jac_FULL(149,5256) - JVS(574) = B(17317) -! JVS(575) = Jac_FULL(150,150) - JVS(575) = -B(7144) -! JVS(576) = Jac_FULL(150,1954) - JVS(576) = B(7143) -! JVS(577) = Jac_FULL(150,3288) - JVS(577) = B(7139) -! JVS(578) = Jac_FULL(150,4583) - JVS(578) = B(3330)+B(3332)+B(3335) -! JVS(579) = Jac_FULL(150,5252) - JVS(579) = B(3331) -! JVS(580) = Jac_FULL(150,5256) - JVS(580) = B(3333) -! JVS(581) = Jac_FULL(151,151) - JVS(581) = -B(22042) -! JVS(582) = Jac_FULL(151,1004) - JVS(582) = B(22038) -! JVS(583) = Jac_FULL(151,2157) - JVS(583) = B(22041) -! JVS(584) = Jac_FULL(151,3789) - JVS(584) = B(21000)+B(21002)+B(21005) -! JVS(585) = Jac_FULL(151,5252) - JVS(585) = B(21001) -! JVS(586) = Jac_FULL(151,5256) - JVS(586) = B(21003) -! JVS(587) = Jac_FULL(152,26) - JVS(587) = B(23237) -! JVS(588) = Jac_FULL(152,152) - JVS(588) = -B(23236) -! JVS(589) = Jac_FULL(152,1464) - JVS(589) = B(23235) -! JVS(590) = Jac_FULL(152,4426) - JVS(590) = B(22790)+B(22792)+B(22794) -! JVS(591) = Jac_FULL(152,5250) - JVS(591) = B(23238) -! JVS(592) = Jac_FULL(152,5252) - JVS(592) = B(22791) -! JVS(593) = Jac_FULL(152,5256) - JVS(593) = B(22793) -! JVS(594) = Jac_FULL(153,153) - JVS(594) = -B(3752) -! JVS(595) = Jac_FULL(153,1800) - JVS(595) = B(3749) -! JVS(596) = Jac_FULL(153,2391) - JVS(596) = B(3744) -! JVS(597) = Jac_FULL(153,5185) - JVS(597) = B(1035)+B(1037)+B(1041) -! JVS(598) = Jac_FULL(153,5252) - JVS(598) = B(1036) -! JVS(599) = Jac_FULL(153,5256) - JVS(599) = B(1038) -! JVS(600) = Jac_FULL(154,154) - JVS(600) = -B(14390) -! JVS(601) = Jac_FULL(154,736) - JVS(601) = B(14386) -! JVS(602) = Jac_FULL(154,1057) - JVS(602) = B(14389) -! JVS(603) = Jac_FULL(154,4078) - JVS(603) = B(11168)+B(11170)+B(11173) -! JVS(604) = Jac_FULL(154,5252) - JVS(604) = B(11169) -! JVS(605) = Jac_FULL(154,5256) - JVS(605) = B(11171) -! JVS(606) = Jac_FULL(155,155) - JVS(606) = -B(4486) -! JVS(607) = Jac_FULL(155,1987) - JVS(607) = B(4483) -! JVS(608) = Jac_FULL(155,2416) - JVS(608) = B(4478) -! JVS(609) = Jac_FULL(155,4942) - JVS(609) = B(1709)+B(1711)+B(1714) -! JVS(610) = Jac_FULL(155,5252) - JVS(610) = B(1710) -! JVS(611) = Jac_FULL(155,5256) - JVS(611) = B(1712) -! JVS(612) = Jac_FULL(156,156) - JVS(612) = -B(11385) -! JVS(613) = Jac_FULL(156,1178) - JVS(613) = B(11381) -! JVS(614) = Jac_FULL(156,1771) - JVS(614) = B(11384) -! JVS(615) = Jac_FULL(156,5041) - JVS(615) = B(7539)+B(7541)+B(7544) -! JVS(616) = Jac_FULL(156,5252) - JVS(616) = B(7540) -! JVS(617) = Jac_FULL(156,5256) - JVS(617) = B(7542) -! JVS(618) = Jac_FULL(157,157) - JVS(618) = -B(23423) -! JVS(619) = Jac_FULL(157,1339) - JVS(619) = B(23419) -! JVS(620) = Jac_FULL(157,1883) - JVS(620) = B(23422) -! JVS(621) = Jac_FULL(157,3743) - JVS(621) = B(23033)+B(23035)+B(23038) -! JVS(622) = Jac_FULL(157,5252) - JVS(622) = B(23034) -! JVS(623) = Jac_FULL(157,5256) - JVS(623) = B(23036) -! JVS(624) = Jac_FULL(158,158) - JVS(624) = -B(20849) -! JVS(625) = Jac_FULL(158,880) - JVS(625) = B(20845) -! JVS(626) = Jac_FULL(158,1996) - JVS(626) = B(20848) -! JVS(627) = Jac_FULL(158,5084) - JVS(627) = B(19285)+B(19287)+B(19291) -! JVS(628) = Jac_FULL(158,5252) - JVS(628) = B(19286) -! JVS(629) = Jac_FULL(158,5256) - JVS(629) = B(19288) -! JVS(630) = Jac_FULL(159,159) - JVS(630) = -B(17287) -! JVS(631) = Jac_FULL(159,949) - JVS(631) = B(17283) -! JVS(632) = Jac_FULL(159,2079) - JVS(632) = B(17286) -! JVS(633) = Jac_FULL(159,3901) - JVS(633) = B(14723)+B(14725)+B(14727) -! JVS(634) = Jac_FULL(159,5252) - JVS(634) = B(14724) -! JVS(635) = Jac_FULL(159,5256) - JVS(635) = B(14726) -! JVS(636) = Jac_FULL(160,160) - JVS(636) = -B(4412) -! JVS(637) = Jac_FULL(160,2227) - JVS(637) = B(4408) -! JVS(638) = Jac_FULL(160,2285) - JVS(638) = B(4411) -! JVS(639) = Jac_FULL(160,5163) - JVS(639) = B(1633)+B(1635)+B(1638) -! JVS(640) = Jac_FULL(160,5252) - JVS(640) = B(1634) -! JVS(641) = Jac_FULL(160,5256) - JVS(641) = B(1636) -! JVS(642) = Jac_FULL(161,161) - JVS(642) = -B(4692) -! JVS(643) = Jac_FULL(161,1267) - JVS(643) = B(4686) -! JVS(644) = Jac_FULL(161,1919) - JVS(644) = B(4689) -! JVS(645) = Jac_FULL(161,4766) - JVS(645) = B(1871)+B(1873)+B(1876) -! JVS(646) = Jac_FULL(161,5252) - JVS(646) = B(1872) -! JVS(647) = Jac_FULL(161,5256) - JVS(647) = B(1874) -! JVS(648) = Jac_FULL(162,162) - JVS(648) = -B(20901) -! JVS(649) = Jac_FULL(162,1135) - JVS(649) = B(20897) -! JVS(650) = Jac_FULL(162,2352) - JVS(650) = B(20900) -! JVS(651) = Jac_FULL(162,3962) - JVS(651) = B(19333)+B(19335)+B(19338) -! JVS(652) = Jac_FULL(162,5252) - JVS(652) = B(19334) -! JVS(653) = Jac_FULL(162,5256) - JVS(653) = B(19336) -! JVS(654) = Jac_FULL(163,101) - JVS(654) = B(23225) -! JVS(655) = Jac_FULL(163,163) - JVS(655) = -B(23224) -! JVS(656) = Jac_FULL(163,973) - JVS(656) = B(23223) -! JVS(657) = Jac_FULL(163,4423) - JVS(657) = B(22774)+B(22776)+B(22778) -! JVS(658) = Jac_FULL(163,5250) - JVS(658) = B(23226) -! JVS(659) = Jac_FULL(163,5252) - JVS(659) = B(22775) -! JVS(660) = Jac_FULL(163,5256) - JVS(660) = B(22777) -! JVS(661) = Jac_FULL(164,98) - JVS(661) = B(23231) -! JVS(662) = Jac_FULL(164,164) - JVS(662) = -B(23230) -! JVS(663) = Jac_FULL(164,1357) - JVS(663) = B(23229) -! JVS(664) = Jac_FULL(164,4482) - JVS(664) = B(22782)+B(22784)+B(22786) -! JVS(665) = Jac_FULL(164,5250) - JVS(665) = B(23232) -! JVS(666) = Jac_FULL(164,5252) - JVS(666) = B(22783) -! JVS(667) = Jac_FULL(164,5256) - JVS(667) = B(22785) -! JVS(668) = Jac_FULL(165,165) - JVS(668) = -B(4581) -! JVS(669) = Jac_FULL(165,1751) - JVS(669) = B(4573) -! JVS(670) = Jac_FULL(165,2277) - JVS(670) = B(4578) -! JVS(671) = Jac_FULL(165,4696) - JVS(671) = B(1785)+B(1787)+B(1790) -! JVS(672) = Jac_FULL(165,5252) - JVS(672) = B(1786) -! JVS(673) = Jac_FULL(165,5256) - JVS(673) = B(1788) -! JVS(674) = Jac_FULL(166,166) - JVS(674) = -B(4725) -! JVS(675) = Jac_FULL(166,1501) - JVS(675) = B(4719) -! JVS(676) = Jac_FULL(166,1831) - JVS(676) = B(4722) -! JVS(677) = Jac_FULL(166,4586) - JVS(677) = B(1903)+B(1905)+B(1908) -! JVS(678) = Jac_FULL(166,5252) - JVS(678) = B(1904) -! JVS(679) = Jac_FULL(166,5256) - JVS(679) = B(1906) -! JVS(680) = Jac_FULL(167,167) - JVS(680) = -B(7176) -! JVS(681) = Jac_FULL(167,2213) - JVS(681) = B(7175) -! JVS(682) = Jac_FULL(167,2401) - JVS(682) = B(7172) -! JVS(683) = Jac_FULL(167,4356) - JVS(683) = B(3359)+B(3361)+B(3364) -! JVS(684) = Jac_FULL(167,5252) - JVS(684) = B(3360) -! JVS(685) = Jac_FULL(167,5256) - JVS(685) = B(3362) -! JVS(686) = Jac_FULL(168,168) - JVS(686) = -B(21980) -! JVS(687) = Jac_FULL(168,1070) - JVS(687) = B(21976) -! JVS(688) = Jac_FULL(168,2063) - JVS(688) = B(21979) -! JVS(689) = Jac_FULL(168,3703) - JVS(689) = B(20911)+B(20913)+B(20916) -! JVS(690) = Jac_FULL(168,5252) - JVS(690) = B(20912) -! JVS(691) = Jac_FULL(168,5256) - JVS(691) = B(20914) -! JVS(692) = Jac_FULL(169,40) - JVS(692) = B(22831) -! JVS(693) = Jac_FULL(169,169) - JVS(693) = -B(22830) -! JVS(694) = Jac_FULL(169,935) - JVS(694) = B(22829) -! JVS(695) = Jac_FULL(169,3694) - JVS(695) = B(22325)+B(22327)+B(22329) -! JVS(696) = Jac_FULL(169,5250) - JVS(696) = B(22832) -! JVS(697) = Jac_FULL(169,5252) - JVS(697) = B(22326) -! JVS(698) = Jac_FULL(169,5256) - JVS(698) = B(22328) -! JVS(699) = Jac_FULL(170,53) - JVS(699) = B(20013) -! JVS(700) = Jac_FULL(170,170) - JVS(700) = -B(20012) -! JVS(701) = Jac_FULL(170,994) - JVS(701) = B(20011) -! JVS(702) = Jac_FULL(170,4904) - JVS(702) = B(18214)+B(18216)+B(18218) -! JVS(703) = Jac_FULL(170,5250) - JVS(703) = B(20014) -! JVS(704) = Jac_FULL(170,5252) - JVS(704) = B(18215) -! JVS(705) = Jac_FULL(170,5256) - JVS(705) = B(18217) -! JVS(706) = Jac_FULL(171,171) - JVS(706) = -B(4503) -! JVS(707) = Jac_FULL(171,2086) - JVS(707) = B(4500) -! JVS(708) = Jac_FULL(171,2422) - JVS(708) = B(4495) -! JVS(709) = Jac_FULL(171,5109) - JVS(709) = B(1720)+B(1722)+B(1725) -! JVS(710) = Jac_FULL(171,5252) - JVS(710) = B(1721) -! JVS(711) = Jac_FULL(171,5256) - JVS(711) = B(1723) -! JVS(712) = Jac_FULL(172,172) - JVS(712) = -B(11418) -! JVS(713) = Jac_FULL(172,1128) - JVS(713) = B(11414) -! JVS(714) = Jac_FULL(172,2108) - JVS(714) = B(11417) -! JVS(715) = Jac_FULL(172,5206) - JVS(715) = B(7559)+B(7561)+B(7564) -! JVS(716) = Jac_FULL(172,5252) - JVS(716) = B(7560) -! JVS(717) = Jac_FULL(172,5256) - JVS(717) = B(7562) -! JVS(718) = Jac_FULL(173,173) - JVS(718) = -B(23517) -! JVS(719) = Jac_FULL(173,1328) - JVS(719) = B(23513) -! JVS(720) = Jac_FULL(173,2444) - JVS(720) = B(23516) -! JVS(721) = Jac_FULL(173,3841) - JVS(721) = B(23172)+B(23174)+B(23177) -! JVS(722) = Jac_FULL(173,5252) - JVS(722) = B(23173) -! JVS(723) = Jac_FULL(173,5256) - JVS(723) = B(23175) -! JVS(724) = Jac_FULL(174,174) - JVS(724) = -B(22006) -! JVS(725) = Jac_FULL(174,1119) - JVS(725) = B(22002) -! JVS(726) = Jac_FULL(174,1551) - JVS(726) = B(22005) -! JVS(727) = Jac_FULL(174,3686) - JVS(727) = B(20965)+B(20967)+B(20970) -! JVS(728) = Jac_FULL(174,5252) - JVS(728) = B(20966) -! JVS(729) = Jac_FULL(174,5256) - JVS(729) = B(20968) -! JVS(730) = Jac_FULL(175,175) - JVS(730) = -B(7070) -! JVS(731) = Jac_FULL(175,2083) - JVS(731) = B(7069) -! JVS(732) = Jac_FULL(175,2400) - JVS(732) = B(7066) -! JVS(733) = Jac_FULL(175,5161) - JVS(733) = B(3269)+B(3271)+B(3274) -! JVS(734) = Jac_FULL(175,5252) - JVS(734) = B(3270) -! JVS(735) = Jac_FULL(175,5256) - JVS(735) = B(3272) -! JVS(736) = Jac_FULL(176,176) - JVS(736) = -B(11142) -! JVS(737) = Jac_FULL(176,653) - JVS(737) = B(11138) -! JVS(738) = Jac_FULL(176,840) - JVS(738) = B(11141) -! JVS(739) = Jac_FULL(176,3733) - JVS(739) = B(7346)+B(7348)+B(7351) -! JVS(740) = Jac_FULL(176,5252) - JVS(740) = B(7347) -! JVS(741) = Jac_FULL(176,5256) - JVS(741) = B(7349) -! JVS(742) = Jac_FULL(177,177) - JVS(742) = -B(4746) -! JVS(743) = Jac_FULL(177,1491) - JVS(743) = B(4740) -! JVS(744) = Jac_FULL(177,2161) - JVS(744) = B(4743) -! JVS(745) = Jac_FULL(177,5144) - JVS(745) = B(1924)+B(1926)+B(1929) -! JVS(746) = Jac_FULL(177,5252) - JVS(746) = B(1925) -! JVS(747) = Jac_FULL(177,5256) - JVS(747) = B(1927) -! JVS(748) = Jac_FULL(178,178) - JVS(748) = -B(23063) -! JVS(749) = Jac_FULL(178,872) - JVS(749) = B(23059) -! JVS(750) = Jac_FULL(178,1972) - JVS(750) = B(23062) -! JVS(751) = Jac_FULL(178,3698) - JVS(751) = B(22628)+B(22630)+B(22633) -! JVS(752) = Jac_FULL(178,5252) - JVS(752) = B(22629) -! JVS(753) = Jac_FULL(178,5256) - JVS(753) = B(22631) -! JVS(754) = Jac_FULL(179,179) - JVS(754) = -B(7035) -! JVS(755) = Jac_FULL(179,2365) - JVS(755) = B(7038) -! JVS(756) = Jac_FULL(179,3222) - JVS(756) = B(7033) -! JVS(757) = Jac_FULL(179,5151) - JVS(757) = B(3238)+B(3242)+B(3245) -! JVS(758) = Jac_FULL(179,5252) - JVS(758) = B(3239) -! JVS(759) = Jac_FULL(179,5256) - JVS(759) = B(3243) -! JVS(760) = Jac_FULL(180,180) - JVS(760) = -B(19315) -! JVS(761) = Jac_FULL(180,1237) - JVS(761) = B(19311) -! JVS(762) = Jac_FULL(180,2155) - JVS(762) = B(19314) -! JVS(763) = Jac_FULL(180,4197) - JVS(763) = B(17090)+B(17092)+B(17095) -! JVS(764) = Jac_FULL(180,5252) - JVS(764) = B(17091) -! JVS(765) = Jac_FULL(180,5256) - JVS(765) = B(17093) -! JVS(766) = Jac_FULL(181,181) - JVS(766) = -B(124)-B(126)-B(128) -! JVS(767) = Jac_FULL(181,5250) - JVS(767) = -B(125)-B(127)-B(129) -! JVS(768) = Jac_FULL(182,182) - JVS(768) = -B(19254) -! JVS(769) = Jac_FULL(182,1260) - JVS(769) = B(19250) -! JVS(770) = Jac_FULL(182,2458) - JVS(770) = B(19253) -! JVS(771) = Jac_FULL(182,5196) - JVS(771) = B(17047)+B(17049)+B(17052) -! JVS(772) = Jac_FULL(182,5252) - JVS(772) = B(17048) -! JVS(773) = Jac_FULL(182,5256) - JVS(773) = B(17050) -! JVS(774) = Jac_FULL(183,183) - JVS(774) = -B(19535) -! JVS(775) = Jac_FULL(183,1195) - JVS(775) = B(19531) -! JVS(776) = Jac_FULL(183,2250) - JVS(776) = B(19534) -! JVS(777) = Jac_FULL(183,5114) - JVS(777) = B(17380)+B(17382)+B(17385) -! JVS(778) = Jac_FULL(183,5252) - JVS(778) = B(17381) -! JVS(779) = Jac_FULL(183,5256) - JVS(779) = B(17383) -! JVS(780) = Jac_FULL(184,184) - JVS(780) = -B(4704) -! JVS(781) = Jac_FULL(184,870) - JVS(781) = B(4698) -! JVS(782) = Jac_FULL(184,2094) - JVS(782) = B(4701) -! JVS(783) = Jac_FULL(184,5146) - JVS(783) = B(1882)+B(1884)+B(1887) -! JVS(784) = Jac_FULL(184,5252) - JVS(784) = B(1883) -! JVS(785) = Jac_FULL(184,5256) - JVS(785) = B(1885) -! JVS(786) = Jac_FULL(185,185) - JVS(786) = -B(7099) -! JVS(787) = Jac_FULL(185,1841) - JVS(787) = B(7098) -! JVS(788) = Jac_FULL(185,2269) - JVS(788) = B(7095) -! JVS(789) = Jac_FULL(185,4581) - JVS(789) = B(3299)+B(3301)+B(3305) -! JVS(790) = Jac_FULL(185,5252) - JVS(790) = B(3300) -! JVS(791) = Jac_FULL(185,5256) - JVS(791) = B(3302) -! JVS(792) = Jac_FULL(186,186) - JVS(792) = -B(4782) -! JVS(793) = Jac_FULL(186,1052) - JVS(793) = B(4778) -! JVS(794) = Jac_FULL(186,2432) - JVS(794) = B(4781) -! JVS(795) = Jac_FULL(186,5138) - JVS(795) = B(1957)+B(1959)+B(1962) -! JVS(796) = Jac_FULL(186,5252) - JVS(796) = B(1958) -! JVS(797) = Jac_FULL(186,5256) - JVS(797) = B(1960) -! JVS(798) = Jac_FULL(187,187) - JVS(798) = -B(17353) -! JVS(799) = Jac_FULL(187,1286) - JVS(799) = B(17349) -! JVS(800) = Jac_FULL(187,1629) - JVS(800) = B(17352) -! JVS(801) = Jac_FULL(187,4088) - JVS(801) = B(14758)+B(14760)+B(14763) -! JVS(802) = Jac_FULL(187,5252) - JVS(802) = B(14759) -! JVS(803) = Jac_FULL(187,5256) - JVS(803) = B(14761) -! JVS(804) = Jac_FULL(188,188) - JVS(804) = -B(12165) -! JVS(805) = Jac_FULL(188,1536) - JVS(805) = B(12161) -! JVS(806) = Jac_FULL(188,1889) - JVS(806) = B(12164) -! JVS(807) = Jac_FULL(188,3952) - JVS(807) = B(8418)+B(8420)+B(8423) -! JVS(808) = Jac_FULL(188,5252) - JVS(808) = B(8419) -! JVS(809) = Jac_FULL(188,5256) - JVS(809) = B(8421) -! JVS(810) = Jac_FULL(189,189) - JVS(810) = -B(17241) -! JVS(811) = Jac_FULL(189,1523) - JVS(811) = B(17237) -! JVS(812) = Jac_FULL(189,2165) - JVS(812) = B(17240) -! JVS(813) = Jac_FULL(189,4940) - JVS(813) = B(14616)+B(14618)+B(14621) -! JVS(814) = Jac_FULL(189,5252) - JVS(814) = B(14617) -! JVS(815) = Jac_FULL(189,5256) - JVS(815) = B(14619) -! JVS(816) = Jac_FULL(190,190) - JVS(816) = -B(22054) -! JVS(817) = Jac_FULL(190,1149) - JVS(817) = B(22050) -! JVS(818) = Jac_FULL(190,1591) - JVS(818) = B(22053) -! JVS(819) = Jac_FULL(190,3764) - JVS(819) = B(21019)+B(21021)+B(21024) -! JVS(820) = Jac_FULL(190,5252) - JVS(820) = B(21020) -! JVS(821) = Jac_FULL(190,5256) - JVS(821) = B(21022) -! JVS(822) = Jac_FULL(191,191) - JVS(822) = -B(22705) -! JVS(823) = Jac_FULL(191,1413) - JVS(823) = B(22701) -! JVS(824) = Jac_FULL(191,1649) - JVS(824) = B(22704) -! JVS(825) = Jac_FULL(191,3722) - JVS(825) = B(22086)+B(22088)+B(22091) -! JVS(826) = Jac_FULL(191,5252) - JVS(826) = B(22087) -! JVS(827) = Jac_FULL(191,5256) - JVS(827) = B(22089) -! JVS(828) = Jac_FULL(192,192) - JVS(828) = -B(4770) -! JVS(829) = Jac_FULL(192,1079) - JVS(829) = B(4764) -! JVS(830) = Jac_FULL(192,1824) - JVS(830) = B(4767) -! JVS(831) = Jac_FULL(192,5107) - JVS(831) = B(1946)+B(1948)+B(1951) -! JVS(832) = Jac_FULL(192,5252) - JVS(832) = B(1947) -! JVS(833) = Jac_FULL(192,5256) - JVS(833) = B(1949) -! JVS(834) = Jac_FULL(193,193) - JVS(834) = -B(21706) -! JVS(835) = Jac_FULL(193,879) - JVS(835) = B(21702) -! JVS(836) = Jac_FULL(193,2328) - JVS(836) = B(21705) -! JVS(837) = Jac_FULL(193,3858) - JVS(837) = B(20677)+B(20679)+B(20682) -! JVS(838) = Jac_FULL(193,5252) - JVS(838) = B(20678) -! JVS(839) = Jac_FULL(193,5256) - JVS(839) = B(20680) -! JVS(840) = Jac_FULL(194,194) - JVS(840) = -B(10719) -! JVS(841) = Jac_FULL(194,4107) - JVS(841) = B(10486) -! JVS(842) = Jac_FULL(194,5013) - JVS(842) = B(10496) -! JVS(843) = Jac_FULL(194,5218) - JVS(843) = B(6920)+B(6922)+B(6925) -! JVS(844) = Jac_FULL(194,5252) - JVS(844) = B(6921) -! JVS(845) = Jac_FULL(194,5256) - JVS(845) = B(6923) -! JVS(846) = Jac_FULL(195,195) - JVS(846) = -B(11841) -! JVS(847) = Jac_FULL(195,1262) - JVS(847) = B(11835) -! JVS(848) = Jac_FULL(195,1980) - JVS(848) = B(11838) -! JVS(849) = Jac_FULL(195,4880) - JVS(849) = B(8107)+B(8109)+B(8112) -! JVS(850) = Jac_FULL(195,5252) - JVS(850) = B(8108) -! JVS(851) = Jac_FULL(195,5256) - JVS(851) = B(8110) -! JVS(852) = Jac_FULL(196,196) - JVS(852) = -B(4794) -! JVS(853) = Jac_FULL(196,848) - JVS(853) = B(4788) -! JVS(854) = Jac_FULL(196,2113) - JVS(854) = B(4791) -! JVS(855) = Jac_FULL(196,5065) - JVS(855) = B(1968)+B(1970)+B(1973) -! JVS(856) = Jac_FULL(196,5252) - JVS(856) = B(1969) -! JVS(857) = Jac_FULL(196,5256) - JVS(857) = B(1971) -! JVS(858) = Jac_FULL(197,197) - JVS(858) = -B(4758) -! JVS(859) = Jac_FULL(197,1259) - JVS(859) = B(4752) -! JVS(860) = Jac_FULL(197,2216) - JVS(860) = B(4755) -! JVS(861) = Jac_FULL(197,5112) - JVS(861) = B(1935)+B(1937)+B(1940) -! JVS(862) = Jac_FULL(197,5252) - JVS(862) = B(1936) -! JVS(863) = Jac_FULL(197,5256) - JVS(863) = B(1938) -! JVS(864) = Jac_FULL(198,198) - JVS(864) = -B(591)-B(593) -! JVS(865) = Jac_FULL(198,5250) - JVS(865) = -B(592)-B(594) -! JVS(866) = Jac_FULL(199,199) - JVS(866) = -B(11227) -! JVS(867) = Jac_FULL(199,1205) - JVS(867) = B(11223) -! JVS(868) = Jac_FULL(199,2061) - JVS(868) = B(11226) -! JVS(869) = Jac_FULL(199,5236) - JVS(869) = B(7435)+B(7437)+B(7439) -! JVS(870) = Jac_FULL(199,5252) - JVS(870) = B(7436) -! JVS(871) = Jac_FULL(199,5256) - JVS(871) = B(7438) -! JVS(872) = Jac_FULL(200,200) - JVS(872) = -B(17852) -! JVS(873) = Jac_FULL(200,1829) - JVS(873) = B(17849) -! JVS(874) = Jac_FULL(200,2331) - JVS(874) = B(17844) -! JVS(875) = Jac_FULL(200,4251) - JVS(875) = B(15256)+B(15258)+B(15262) -! JVS(876) = Jac_FULL(200,5252) - JVS(876) = B(15257) -! JVS(877) = Jac_FULL(200,5256) - JVS(877) = B(15259) -! JVS(878) = Jac_FULL(201,201) - JVS(878) = -B(16962) -! JVS(879) = Jac_FULL(201,562) - JVS(879) = B(16958) -! JVS(880) = Jac_FULL(201,1284) - JVS(880) = B(16961) -! JVS(881) = Jac_FULL(201,3720) - JVS(881) = B(14354)+B(14356)+B(14359) -! JVS(882) = Jac_FULL(201,5252) - JVS(882) = B(14355) -! JVS(883) = Jac_FULL(201,5256) - JVS(883) = B(14357) -! JVS(884) = Jac_FULL(202,202) - JVS(884) = -B(4524) -! JVS(885) = Jac_FULL(202,1966) - JVS(885) = B(4516) -! JVS(886) = Jac_FULL(202,2168) - JVS(886) = B(4521) -! JVS(887) = Jac_FULL(202,4733) - JVS(887) = B(1742)+B(1744)+B(1747) -! JVS(888) = Jac_FULL(202,5252) - JVS(888) = B(1743) -! JVS(889) = Jac_FULL(202,5256) - JVS(889) = B(1745) -! JVS(890) = Jac_FULL(203,203) - JVS(890) = -B(23023) -! JVS(891) = Jac_FULL(203,1463) - JVS(891) = B(23019) -! JVS(892) = Jac_FULL(203,2224) - JVS(892) = B(23022) -! JVS(893) = Jac_FULL(203,3908) - JVS(893) = B(22587)+B(22589)+B(22592) -! JVS(894) = Jac_FULL(203,5252) - JVS(894) = B(22588) -! JVS(895) = Jac_FULL(203,5256) - JVS(895) = B(22590) -! JVS(896) = Jac_FULL(204,72) - JVS(896) = B(21456) -! JVS(897) = Jac_FULL(204,204) - JVS(897) = -B(21455) -! JVS(898) = Jac_FULL(204,1335) - JVS(898) = B(21454) -! JVS(899) = Jac_FULL(204,3746) - JVS(899) = B(20167)+B(20169)+B(20171) -! JVS(900) = Jac_FULL(204,5250) - JVS(900) = B(21457) -! JVS(901) = Jac_FULL(204,5252) - JVS(901) = B(20168) -! JVS(902) = Jac_FULL(204,5256) - JVS(902) = B(20170) -! JVS(903) = Jac_FULL(205,205) - JVS(903) = -B(4635) -! JVS(904) = Jac_FULL(205,2169) - JVS(904) = B(4632) -! JVS(905) = Jac_FULL(205,2264) - JVS(905) = B(4627) -! JVS(906) = Jac_FULL(205,5082) - JVS(906) = B(1828)+B(1830)+B(1833) -! JVS(907) = Jac_FULL(205,5252) - JVS(907) = B(1829) -! JVS(908) = Jac_FULL(205,5256) - JVS(908) = B(1831) -! JVS(909) = Jac_FULL(206,30) - JVS(909) = B(20989) -! JVS(910) = Jac_FULL(206,206) - JVS(910) = -B(20988) -! JVS(911) = Jac_FULL(206,871) - JVS(911) = B(20987) -! JVS(912) = Jac_FULL(206,5247) - JVS(912) = B(19430)+B(19432)+B(19434) -! JVS(913) = Jac_FULL(206,5250) - JVS(913) = B(20990) -! JVS(914) = Jac_FULL(206,5252) - JVS(914) = B(19431) -! JVS(915) = Jac_FULL(206,5256) - JVS(915) = B(19433) -! JVS(916) = Jac_FULL(207,207) - JVS(916) = -B(17496) -! JVS(917) = Jac_FULL(207,4848) - JVS(917) = B(14932)+B(14944) -! JVS(918) = Jac_FULL(207,5250) - JVS(918) = -B(17497) -! JVS(919) = Jac_FULL(207,5255) - JVS(919) = B(14933) -! JVS(920) = Jac_FULL(208,208) - JVS(920) = -B(13965) -! JVS(921) = Jac_FULL(208,4127) - JVS(921) = B(10762) -! JVS(922) = Jac_FULL(208,5250) - JVS(922) = -B(13966) -! JVS(923) = Jac_FULL(209,209) - JVS(923) = -B(20707)-B(20709) -! JVS(924) = Jac_FULL(209,4580) - JVS(924) = B(19126) -! JVS(925) = Jac_FULL(209,5250) - JVS(925) = -B(20708) -! JVS(926) = Jac_FULL(210,210) - JVS(926) = -B(20766) -! JVS(927) = Jac_FULL(210,4484) - JVS(927) = B(19170)+B(19182) -! JVS(928) = Jac_FULL(210,5250) - JVS(928) = -B(20767) -! JVS(929) = Jac_FULL(210,5255) - JVS(929) = B(19171) -! JVS(930) = Jac_FULL(211,108) - JVS(930) = B(22075) -! JVS(931) = Jac_FULL(211,211) - JVS(931) = -B(22074) -! JVS(932) = Jac_FULL(211,1331) - JVS(932) = B(22070) -! JVS(933) = Jac_FULL(211,2195) - JVS(933) = B(22073) -! JVS(934) = Jac_FULL(211,4748) - JVS(934) = B(21052)+B(21054)+B(21056) -! JVS(935) = Jac_FULL(211,5250) - JVS(935) = B(22076) -! JVS(936) = Jac_FULL(211,5252) - JVS(936) = B(21053) -! JVS(937) = Jac_FULL(211,5256) - JVS(937) = B(21055) -! JVS(938) = Jac_FULL(212,212) - JVS(938) = -B(18090) -! JVS(939) = Jac_FULL(212,3740) - JVS(939) = B(15507) -! JVS(940) = Jac_FULL(212,5250) - JVS(940) = -B(18091) -! JVS(941) = Jac_FULL(213,213) - JVS(941) = -B(22129) -! JVS(942) = Jac_FULL(213,3951) - JVS(942) = B(21116) -! JVS(943) = Jac_FULL(213,5250) - JVS(943) = -B(22130) -! JVS(944) = Jac_FULL(214,214) - JVS(944) = -B(13171)-B(13172) -! JVS(945) = Jac_FULL(214,3832) - JVS(945) = B(9726) -! JVS(946) = Jac_FULL(214,5258) - JVS(946) = B(9727) -! JVS(947) = Jac_FULL(215,215) - JVS(947) = -B(21010) -! JVS(948) = Jac_FULL(215,4431) - JVS(948) = B(19450)+B(19462) -! JVS(949) = Jac_FULL(215,5250) - JVS(949) = -B(21011) -! JVS(950) = Jac_FULL(215,5255) - JVS(950) = B(19451) -! JVS(951) = Jac_FULL(216,216) - JVS(951) = -B(15784) -! JVS(952) = Jac_FULL(216,3456) - JVS(952) = B(12734) -! JVS(953) = Jac_FULL(216,5250) - JVS(953) = -B(15785) -! JVS(954) = Jac_FULL(216,5253) - JVS(954) = B(12735) -! JVS(955) = Jac_FULL(217,217) - JVS(955) = -B(18906)-B(18908) -! JVS(956) = Jac_FULL(217,3621) - JVS(956) = B(16706) -! JVS(957) = Jac_FULL(217,5250) - JVS(957) = B(16707)-B(18907)-B(18909) -! JVS(958) = Jac_FULL(218,218) - JVS(958) = -B(23219) -! JVS(959) = Jac_FULL(218,3902) - JVS(959) = B(22757) -! JVS(960) = Jac_FULL(218,5250) - JVS(960) = -B(23220) -! JVS(961) = Jac_FULL(219,219) - JVS(961) = -B(17122) -! JVS(962) = Jac_FULL(219,4567) - JVS(962) = B(14476) -! JVS(963) = Jac_FULL(219,5250) - JVS(963) = -B(17123) -! JVS(964) = Jac_FULL(220,220) - JVS(964) = -B(11915) -! JVS(965) = Jac_FULL(220,4334) - JVS(965) = B(8168) -! JVS(966) = Jac_FULL(220,5250) - JVS(966) = -B(11916) -! JVS(967) = Jac_FULL(221,221) - JVS(967) = -B(399)-B(401) -! JVS(968) = Jac_FULL(221,5238) - JVS(968) = -B(400) -! JVS(969) = Jac_FULL(221,5250) - JVS(969) = -B(402) -! JVS(970) = Jac_FULL(222,222) - JVS(970) = -B(11625) -! JVS(971) = Jac_FULL(222,4862) - JVS(971) = B(7869)+B(7880) -! JVS(972) = Jac_FULL(222,5250) - JVS(972) = -B(11626) -! JVS(973) = Jac_FULL(222,5255) - JVS(973) = B(7870) -! JVS(974) = Jac_FULL(223,223) - JVS(974) = -B(12062) -! JVS(975) = Jac_FULL(223,3688) - JVS(975) = B(8321) -! JVS(976) = Jac_FULL(223,5250) - JVS(976) = -B(12063) -! JVS(977) = Jac_FULL(224,224) - JVS(977) = -B(14516)-B(14517) -! JVS(978) = Jac_FULL(224,5175) - JVS(978) = B(11253) -! JVS(979) = Jac_FULL(224,5258) - JVS(979) = B(11254) -! JVS(980) = Jac_FULL(225,225) - JVS(980) = -B(5396) -! JVS(981) = Jac_FULL(225,3523) - JVS(981) = B(2427) -! JVS(982) = Jac_FULL(225,5250) - JVS(982) = -B(5397) -! JVS(983) = Jac_FULL(226,226) - JVS(983) = -B(16716) -! JVS(984) = Jac_FULL(226,5091) - JVS(984) = B(13909) -! JVS(985) = Jac_FULL(226,5250) - JVS(985) = -B(16717) -! JVS(986) = Jac_FULL(227,227) - JVS(986) = -B(13052) -! JVS(987) = Jac_FULL(227,4375) - JVS(987) = B(9605)+B(9616) -! JVS(988) = Jac_FULL(227,5250) - JVS(988) = -B(13053) -! JVS(989) = Jac_FULL(227,5255) - JVS(989) = B(9606) -! JVS(990) = Jac_FULL(228,228) - JVS(990) = -B(4504) -! JVS(991) = Jac_FULL(228,5109) - JVS(991) = B(1726) -! JVS(992) = Jac_FULL(228,5250) - JVS(992) = -B(4505) -! JVS(993) = Jac_FULL(229,229) - JVS(993) = -B(16772) -! JVS(994) = Jac_FULL(229,3405) - JVS(994) = B(14001) -! JVS(995) = Jac_FULL(229,5250) - JVS(995) = -B(16773) -! JVS(996) = Jac_FULL(230,230) - JVS(996) = -B(19633) -! JVS(997) = Jac_FULL(230,4642) - JVS(997) = B(17659)+B(17671) -! JVS(998) = Jac_FULL(230,5250) - JVS(998) = -B(19634) -! JVS(999) = Jac_FULL(230,5255) - JVS(999) = B(17660) -! JVS(1000) = Jac_FULL(231,231) - JVS(1000) = -B(11622) -! JVS(1001) = Jac_FULL(231,3758) - JVS(1001) = B(7866) -! JVS(1002) = Jac_FULL(231,5250) - JVS(1002) = -B(11623) -! JVS(1003) = Jac_FULL(232,232) - JVS(1003) = -B(4025) -! JVS(1004) = Jac_FULL(232,2010) - JVS(1004) = B(4017) -! JVS(1005) = Jac_FULL(232,4364) - JVS(1005) = B(1246) -! JVS(1006) = Jac_FULL(232,5250) - JVS(1006) = B(4018)-B(4026) -! JVS(1007) = Jac_FULL(233,233) - JVS(1007) = -B(15457) -! JVS(1008) = Jac_FULL(233,3669) - JVS(1008) = B(12354) -! JVS(1009) = Jac_FULL(233,5250) - JVS(1009) = -B(15458) -! JVS(1010) = Jac_FULL(234,234) - JVS(1010) = -B(4729) -! JVS(1011) = Jac_FULL(234,4586) - JVS(1011) = B(1909) -! JVS(1012) = Jac_FULL(234,5250) - JVS(1012) = -B(4730) -! JVS(1013) = Jac_FULL(235,235) - JVS(1013) = -B(419)-B(421) -! JVS(1014) = Jac_FULL(235,5238) - JVS(1014) = -B(420) -! JVS(1015) = Jac_FULL(235,5250) - JVS(1015) = -B(422) -! JVS(1016) = Jac_FULL(236,236) - JVS(1016) = -B(11283)-B(11284) -! JVS(1017) = Jac_FULL(236,5257) - JVS(1017) = B(7484) -! JVS(1018) = Jac_FULL(236,5258) - JVS(1018) = B(7485) -! JVS(1019) = Jac_FULL(237,237) - JVS(1019) = -B(11438) -! JVS(1020) = Jac_FULL(237,5237) - JVS(1020) = B(7588)+B(7600) -! JVS(1021) = Jac_FULL(237,5250) - JVS(1021) = -B(11439) -! JVS(1022) = Jac_FULL(237,5255) - JVS(1022) = B(7589) -! JVS(1023) = Jac_FULL(238,238) - JVS(1023) = -B(6653) -! JVS(1024) = Jac_FULL(238,3670) - JVS(1024) = B(3064) -! JVS(1025) = Jac_FULL(238,5250) - JVS(1025) = -B(6654) -! JVS(1026) = Jac_FULL(239,239) - JVS(1026) = -B(2229)-B(2230) -! JVS(1027) = Jac_FULL(239,4474) - JVS(1027) = B(541) -! JVS(1028) = Jac_FULL(239,5258) - JVS(1028) = B(542) -! JVS(1029) = Jac_FULL(240,240) - JVS(1029) = -B(17623) -! JVS(1030) = Jac_FULL(240,4629) - JVS(1030) = B(15054)+B(15066) -! JVS(1031) = Jac_FULL(240,5250) - JVS(1031) = -B(17624) -! JVS(1032) = Jac_FULL(240,5255) - JVS(1032) = B(15055) -! JVS(1033) = Jac_FULL(241,241) - JVS(1033) = -B(20918) -! JVS(1034) = Jac_FULL(241,4638) - JVS(1034) = B(19344)+B(19353) -! JVS(1035) = Jac_FULL(241,5250) - JVS(1035) = -B(20919) -! JVS(1036) = Jac_FULL(241,5255) - JVS(1036) = B(19345) -! JVS(1037) = Jac_FULL(242,242) - JVS(1037) = -B(4530) -! JVS(1038) = Jac_FULL(242,4733) - JVS(1038) = B(1748) -! JVS(1039) = Jac_FULL(242,5250) - JVS(1039) = -B(4531) -! JVS(1040) = Jac_FULL(243,243) - JVS(1040) = -B(11365)-B(11366) -! JVS(1041) = Jac_FULL(243,3517) - JVS(1041) = B(7529) -! JVS(1042) = Jac_FULL(243,5258) - JVS(1042) = B(7530) -! JVS(1043) = Jac_FULL(244,244) - JVS(1043) = -B(18482) -! JVS(1044) = Jac_FULL(244,3380) - JVS(1044) = B(16104) -! JVS(1045) = Jac_FULL(244,5250) - JVS(1045) = -B(18483) -! JVS(1046) = Jac_FULL(245,245) - JVS(1046) = -B(21429) -! JVS(1047) = Jac_FULL(245,2548) - JVS(1047) = B(20120) -! JVS(1048) = Jac_FULL(245,5250) - JVS(1048) = B(20121) -! JVS(1049) = Jac_FULL(246,246) - JVS(1049) = -B(19876) -! JVS(1050) = Jac_FULL(246,5059) - JVS(1050) = B(18052) -! JVS(1051) = Jac_FULL(246,5250) - JVS(1051) = -B(19877) -! JVS(1052) = Jac_FULL(247,247) - JVS(1052) = -B(23015) -! JVS(1053) = Jac_FULL(247,4315) - JVS(1053) = B(22582) -! JVS(1054) = Jac_FULL(247,5250) - JVS(1054) = -B(23016) -! JVS(1055) = Jac_FULL(248,248) - JVS(1055) = -B(17356) -! JVS(1056) = Jac_FULL(248,4088) - JVS(1056) = B(14764) -! JVS(1057) = Jac_FULL(248,5250) - JVS(1057) = -B(17357) -! JVS(1058) = Jac_FULL(249,249) - JVS(1058) = -B(153) -! JVS(1059) = Jac_FULL(249,5195) - JVS(1059) = B(929) -! JVS(1060) = Jac_FULL(249,5250) - JVS(1060) = -B(154) -! JVS(1061) = Jac_FULL(250,250) - JVS(1061) = -B(601)-B(603)-B(605)-B(607) -! JVS(1062) = Jac_FULL(250,5250) - JVS(1062) = -B(602)-B(604)-B(606)-B(608) -! JVS(1063) = Jac_FULL(251,251) - JVS(1063) = -B(17254) -! JVS(1064) = Jac_FULL(251,5014) - JVS(1064) = B(14665)+B(14677) -! JVS(1065) = Jac_FULL(251,5250) - JVS(1065) = -B(17255) -! JVS(1066) = Jac_FULL(251,5255) - JVS(1066) = B(14666) -! JVS(1067) = Jac_FULL(252,252) - JVS(1067) = -B(23389) -! JVS(1068) = Jac_FULL(252,5027) - JVS(1068) = B(22994)+B(23006) -! JVS(1069) = Jac_FULL(252,5250) - JVS(1069) = -B(23390) -! JVS(1070) = Jac_FULL(252,5255) - JVS(1070) = B(22995) -! JVS(1071) = Jac_FULL(253,253) - JVS(1071) = -B(415)-B(417) -! JVS(1072) = Jac_FULL(253,5238) - JVS(1072) = -B(416) -! JVS(1073) = Jac_FULL(253,5250) - JVS(1073) = -B(418) -! JVS(1074) = Jac_FULL(254,28) - JVS(1074) = B(11154) -! JVS(1075) = Jac_FULL(254,254) - JVS(1075) = -B(11153) -! JVS(1076) = Jac_FULL(254,1470) - JVS(1076) = B(11149) -! JVS(1077) = Jac_FULL(254,3034) - JVS(1077) = B(11152) -! JVS(1078) = Jac_FULL(254,3982) - JVS(1078) = B(7357)+B(7359)+B(7361) -! JVS(1079) = Jac_FULL(254,5250) - JVS(1079) = B(11155) -! JVS(1080) = Jac_FULL(254,5252) - JVS(1080) = B(7358) -! JVS(1081) = Jac_FULL(254,5256) - JVS(1081) = B(7360) -! JVS(1082) = Jac_FULL(255,255) - JVS(1082) = -B(21519) -! JVS(1083) = Jac_FULL(255,4977) - JVS(1083) = B(20279)+B(20291) -! JVS(1084) = Jac_FULL(255,5250) - JVS(1084) = -B(21520) -! JVS(1085) = Jac_FULL(255,5255) - JVS(1085) = B(20280) -! JVS(1086) = Jac_FULL(256,256) - JVS(1086) = -B(21107) -! JVS(1087) = Jac_FULL(256,4363) - JVS(1087) = B(19528) -! JVS(1088) = Jac_FULL(256,5250) - JVS(1088) = -B(21108) -! JVS(1089) = Jac_FULL(257,257) - JVS(1089) = -B(22009) -! JVS(1090) = Jac_FULL(257,3686) - JVS(1090) = B(20971) -! JVS(1091) = Jac_FULL(257,5250) - JVS(1091) = -B(22010) -! JVS(1092) = Jac_FULL(258,258) - JVS(1092) = -B(17453) -! JVS(1093) = Jac_FULL(258,4962) - JVS(1093) = B(14889)+B(14900) -! JVS(1094) = Jac_FULL(258,5250) - JVS(1094) = -B(17454) -! JVS(1095) = Jac_FULL(258,5255) - JVS(1095) = B(14890) -! JVS(1096) = Jac_FULL(259,259) - JVS(1096) = -B(18344) -! JVS(1097) = Jac_FULL(259,3396) - JVS(1097) = B(15904) -! JVS(1098) = Jac_FULL(259,5250) - JVS(1098) = -B(18345) -! JVS(1099) = Jac_FULL(260,260) - JVS(1099) = -B(27) -! JVS(1100) = Jac_FULL(260,5231) - JVS(1100) = B(172) -! JVS(1101) = Jac_FULL(260,5233) - JVS(1101) = B(1482) -! JVS(1102) = Jac_FULL(260,5250) - JVS(1102) = -B(28) -! JVS(1103) = Jac_FULL(261,261) - JVS(1103) = -B(16599) -! JVS(1104) = Jac_FULL(261,2590) - JVS(1104) = B(16598) -! JVS(1105) = Jac_FULL(261,5154) - JVS(1105) = B(13746)+B(13750) -! JVS(1106) = Jac_FULL(261,5252) - JVS(1106) = B(13747) -! JVS(1107) = Jac_FULL(262,262) - JVS(1107) = -B(5588) -! JVS(1108) = Jac_FULL(262,3507) - JVS(1108) = B(2514) -! JVS(1109) = Jac_FULL(262,5250) - JVS(1109) = -B(5589) -! JVS(1110) = Jac_FULL(263,263) - JVS(1110) = -B(16174)-B(16176) -! JVS(1111) = Jac_FULL(263,3975) - JVS(1111) = B(13102) -! JVS(1112) = Jac_FULL(263,5250) - JVS(1112) = -B(16175) -! JVS(1113) = Jac_FULL(264,264) - JVS(1113) = -B(16203) -! JVS(1114) = Jac_FULL(264,3305) - JVS(1114) = B(13169) -! JVS(1115) = Jac_FULL(264,5250) - JVS(1115) = -B(16204) -! JVS(1116) = Jac_FULL(264,5253) - JVS(1116) = B(13170) -! JVS(1117) = Jac_FULL(265,265) - JVS(1117) = -B(20684) -! JVS(1118) = Jac_FULL(265,5021) - JVS(1118) = B(19095)+B(19104) -! JVS(1119) = Jac_FULL(265,5250) - JVS(1119) = -B(20685) -! JVS(1120) = Jac_FULL(265,5255) - JVS(1120) = B(19096) -! JVS(1121) = Jac_FULL(266,266) - JVS(1121) = -B(22057) -! JVS(1122) = Jac_FULL(266,3764) - JVS(1122) = B(21025) -! JVS(1123) = Jac_FULL(266,5250) - JVS(1123) = -B(22058) -! JVS(1124) = Jac_FULL(267,267) - JVS(1124) = -B(18603) -! JVS(1125) = Jac_FULL(267,3770) - JVS(1125) = B(16292) -! JVS(1126) = Jac_FULL(267,5250) - JVS(1126) = -B(18604) -! JVS(1127) = Jac_FULL(268,268) - JVS(1127) = -B(22517) -! JVS(1128) = Jac_FULL(268,4019) - JVS(1128) = B(21919) -! JVS(1129) = Jac_FULL(268,5250) - JVS(1129) = -B(22518) -! JVS(1130) = Jac_FULL(269,269) - JVS(1130) = -B(4750) -! JVS(1131) = Jac_FULL(269,5144) - JVS(1131) = B(1930) -! JVS(1132) = Jac_FULL(269,5250) - JVS(1132) = -B(4751) -! JVS(1133) = Jac_FULL(270,270) - JVS(1133) = -B(403)-B(405) -! JVS(1134) = Jac_FULL(270,5238) - JVS(1134) = -B(404) -! JVS(1135) = Jac_FULL(270,5250) - JVS(1135) = -B(406) -! JVS(1136) = Jac_FULL(271,271) - JVS(1136) = -B(11091) -! JVS(1137) = Jac_FULL(271,599) - JVS(1137) = B(11094) -! JVS(1138) = Jac_FULL(271,2002) - JVS(1138) = B(11087) -! JVS(1139) = Jac_FULL(271,2313) - JVS(1139) = B(11090) -! JVS(1140) = Jac_FULL(271,5198) - JVS(1140) = B(7286)+B(7288)+B(7290) -! JVS(1141) = Jac_FULL(271,5252) - JVS(1141) = B(7287) -! JVS(1142) = Jac_FULL(271,5256) - JVS(1142) = B(7289) -! JVS(1143) = Jac_FULL(272,272) - JVS(1143) = -B(21628) -! JVS(1144) = Jac_FULL(272,4222) - JVS(1144) = B(20554)+B(20565) -! JVS(1145) = Jac_FULL(272,5250) - JVS(1145) = -B(21629) -! JVS(1146) = Jac_FULL(272,5255) - JVS(1146) = B(20555) -! JVS(1147) = Jac_FULL(273,273) - JVS(1147) = -B(18325) -! JVS(1148) = Jac_FULL(273,3675) - JVS(1148) = B(15870) -! JVS(1149) = Jac_FULL(273,5250) - JVS(1149) = -B(18326) -! JVS(1150) = Jac_FULL(274,274) - JVS(1150) = -B(5985) -! JVS(1151) = Jac_FULL(274,3803) - JVS(1151) = B(2709) -! JVS(1152) = Jac_FULL(274,5250) - JVS(1152) = -B(5986) -! JVS(1153) = Jac_FULL(275,275) - JVS(1153) = -B(20991) -! JVS(1154) = Jac_FULL(275,4679) - JVS(1154) = B(19436)+B(19448) -! JVS(1155) = Jac_FULL(275,5250) - JVS(1155) = -B(20992) -! JVS(1156) = Jac_FULL(275,5255) - JVS(1156) = B(19437) -! JVS(1157) = Jac_FULL(276,276) - JVS(1157) = -B(12767) -! JVS(1158) = Jac_FULL(276,4187) - JVS(1158) = B(9250)+B(9262) -! JVS(1159) = Jac_FULL(276,5250) - JVS(1159) = -B(12768) -! JVS(1160) = Jac_FULL(276,5255) - JVS(1160) = B(9251) -! JVS(1161) = Jac_FULL(277,277) - JVS(1161) = -B(5667) -! JVS(1162) = Jac_FULL(277,3481) - JVS(1162) = B(2556) -! JVS(1163) = Jac_FULL(277,5250) - JVS(1163) = -B(5668) -! JVS(1164) = Jac_FULL(278,278) - JVS(1164) = -B(3929) -! JVS(1165) = Jac_FULL(278,4814) - JVS(1165) = B(1170) -! JVS(1166) = Jac_FULL(278,5250) - JVS(1166) = -B(3930) -! JVS(1167) = Jac_FULL(279,279) - JVS(1167) = -B(22886) -! JVS(1168) = Jac_FULL(279,4131) - JVS(1168) = B(22409) -! JVS(1169) = Jac_FULL(279,5250) - JVS(1169) = -B(22887) -! JVS(1170) = Jac_FULL(280,280) - JVS(1170) = -B(17860) -! JVS(1171) = Jac_FULL(280,5088) - JVS(1171) = B(15263)+B(15275) -! JVS(1172) = Jac_FULL(280,5250) - JVS(1172) = -B(17861) -! JVS(1173) = Jac_FULL(280,5255) - JVS(1173) = B(15264) -! JVS(1174) = Jac_FULL(281,281) - JVS(1174) = -B(17194) -! JVS(1175) = Jac_FULL(281,4762) - JVS(1175) = B(14570) -! JVS(1176) = Jac_FULL(281,5250) - JVS(1176) = -B(17195) -! JVS(1177) = Jac_FULL(282,282) - JVS(1177) = -B(19588) -! JVS(1178) = Jac_FULL(282,4979) - JVS(1178) = B(17564)+B(17576) -! JVS(1179) = Jac_FULL(282,5250) - JVS(1179) = -B(19589) -! JVS(1180) = Jac_FULL(282,5255) - JVS(1180) = B(17565) -! JVS(1181) = Jac_FULL(283,283) - JVS(1181) = -B(5889) -! JVS(1182) = Jac_FULL(283,3794) - JVS(1182) = B(2666) -! JVS(1183) = Jac_FULL(283,5250) - JVS(1183) = -B(5890) -! JVS(1184) = Jac_FULL(284,284) - JVS(1184) = -B(17688)-B(17689) -! JVS(1185) = Jac_FULL(284,4357) - JVS(1185) = B(15118) -! JVS(1186) = Jac_FULL(284,5250) - JVS(1186) = -B(17690) -! JVS(1187) = Jac_FULL(285,285) - JVS(1187) = -B(21139) -! JVS(1188) = Jac_FULL(285,4778) - JVS(1188) = B(19604) -! JVS(1189) = Jac_FULL(285,5250) - JVS(1189) = -B(21140) -! JVS(1190) = Jac_FULL(286,286) - JVS(1190) = -B(3753) -! JVS(1191) = Jac_FULL(286,5185) - JVS(1191) = B(1039) -! JVS(1192) = Jac_FULL(286,5250) - JVS(1192) = -B(3754) -! JVS(1193) = Jac_FULL(287,287) - JVS(1193) = -B(21354) -! JVS(1194) = Jac_FULL(287,4808) - JVS(1194) = B(19995)+B(20007) -! JVS(1195) = Jac_FULL(287,5250) - JVS(1195) = -B(21355) -! JVS(1196) = Jac_FULL(287,5255) - JVS(1196) = B(19996) -! JVS(1197) = Jac_FULL(288,288) - JVS(1197) = -B(315)-B(317) -! JVS(1198) = Jac_FULL(288,5238) - JVS(1198) = -B(316) -! JVS(1199) = Jac_FULL(288,5250) - JVS(1199) = -B(318) -! JVS(1200) = Jac_FULL(289,289) - JVS(1200) = -B(17594) -! JVS(1201) = Jac_FULL(289,5120) - JVS(1201) = B(15017) -! JVS(1202) = Jac_FULL(289,5250) - JVS(1202) = -B(17595) -! JVS(1203) = Jac_FULL(290,83) - JVS(1203) = B(23700) -! JVS(1204) = Jac_FULL(290,290) - JVS(1204) = -B(23699) -! JVS(1205) = Jac_FULL(290,826) - JVS(1205) = B(23695) -! JVS(1206) = Jac_FULL(290,2257) - JVS(1206) = B(23698) -! JVS(1207) = Jac_FULL(290,4216) - JVS(1207) = B(23433)+B(23435)+B(23437) -! JVS(1208) = Jac_FULL(290,5250) - JVS(1208) = B(23701) -! JVS(1209) = Jac_FULL(290,5252) - JVS(1209) = B(23434) -! JVS(1210) = Jac_FULL(290,5256) - JVS(1210) = B(23436) -! JVS(1211) = Jac_FULL(291,291) - JVS(1211) = -B(11962) -! JVS(1212) = Jac_FULL(291,4771) - JVS(1212) = B(8212)+B(8223) -! JVS(1213) = Jac_FULL(291,5250) - JVS(1213) = -B(11963) -! JVS(1214) = Jac_FULL(291,5255) - JVS(1214) = B(8213) -! JVS(1215) = Jac_FULL(292,292) - JVS(1215) = -B(5502) -! JVS(1216) = Jac_FULL(292,4003) - JVS(1216) = B(2480) -! JVS(1217) = Jac_FULL(292,5250) - JVS(1217) = -B(5503) -! JVS(1218) = Jac_FULL(293,293) - JVS(1218) = -B(3424)-B(3425) -! JVS(1219) = Jac_FULL(293,4492) - JVS(1219) = B(868) -! JVS(1220) = Jac_FULL(293,5258) - JVS(1220) = B(869) -! JVS(1221) = Jac_FULL(294,294) - JVS(1221) = -B(22952) -! JVS(1222) = Jac_FULL(294,4955) - JVS(1222) = B(22532)+B(22544) -! JVS(1223) = Jac_FULL(294,5250) - JVS(1223) = -B(22953) -! JVS(1224) = Jac_FULL(294,5255) - JVS(1224) = B(22533) -! JVS(1225) = Jac_FULL(295,295) - JVS(1225) = -B(12130) -! JVS(1226) = Jac_FULL(295,3690) - JVS(1226) = B(8386) -! JVS(1227) = Jac_FULL(295,5250) - JVS(1227) = -B(12131) -! JVS(1228) = Jac_FULL(296,296) - JVS(1228) = -B(23961) -! JVS(1229) = Jac_FULL(296,3882) - JVS(1229) = B(23876) -! JVS(1230) = Jac_FULL(296,5250) - JVS(1230) = -B(23962) -! JVS(1231) = Jac_FULL(297,134) - JVS(1231) = B(23109) -! JVS(1232) = Jac_FULL(297,297) - JVS(1232) = -B(23108) -! JVS(1233) = Jac_FULL(297,1155) - JVS(1233) = B(23104) -! JVS(1234) = Jac_FULL(297,2327) - JVS(1234) = B(23107) -! JVS(1235) = Jac_FULL(297,4319) - JVS(1235) = B(22656)+B(22658)+B(22660) -! JVS(1236) = Jac_FULL(297,5250) - JVS(1236) = B(23110) -! JVS(1237) = Jac_FULL(297,5252) - JVS(1237) = B(22657) -! JVS(1238) = Jac_FULL(297,5256) - JVS(1238) = B(22659) -! JVS(1239) = Jac_FULL(298,298) - JVS(1239) = -B(108)-B(110) -! JVS(1240) = Jac_FULL(298,4981) - JVS(1240) = B(1627) -! JVS(1241) = Jac_FULL(298,5250) - JVS(1241) = -B(109)-B(111) -! JVS(1242) = Jac_FULL(299,299) - JVS(1242) = -B(18182) -! JVS(1243) = Jac_FULL(299,3697) - JVS(1243) = B(15677) -! JVS(1244) = Jac_FULL(299,5250) - JVS(1244) = -B(18183) -! JVS(1245) = Jac_FULL(300,300) - JVS(1245) = -B(16924) -! JVS(1246) = Jac_FULL(300,454) - JVS(1246) = B(16925)+B(16927) -! JVS(1247) = Jac_FULL(300,1324) - JVS(1247) = B(16923) -! JVS(1248) = Jac_FULL(300,3741) - JVS(1248) = B(14291)+B(14293)+B(14295) -! JVS(1249) = Jac_FULL(300,5250) - JVS(1249) = B(16926) -! JVS(1250) = Jac_FULL(300,5252) - JVS(1250) = B(14292) -! JVS(1251) = Jac_FULL(300,5256) - JVS(1251) = B(14294) -! JVS(1252) = Jac_FULL(301,301) - JVS(1252) = -B(19559) -! JVS(1253) = Jac_FULL(301,5179) - JVS(1253) = B(17482)+B(17494) -! JVS(1254) = Jac_FULL(301,5250) - JVS(1254) = -B(19560) -! JVS(1255) = Jac_FULL(301,5255) - JVS(1255) = B(17483) -! JVS(1256) = Jac_FULL(302,302) - JVS(1256) = -B(16668) -! JVS(1257) = Jac_FULL(302,5022) - JVS(1257) = B(13842) -! JVS(1258) = Jac_FULL(302,5250) - JVS(1258) = -B(16669) -! JVS(1259) = Jac_FULL(303,303) - JVS(1259) = -B(16965) -! JVS(1260) = Jac_FULL(303,3720) - JVS(1260) = B(14360) -! JVS(1261) = Jac_FULL(303,5250) - JVS(1261) = -B(16966) -! JVS(1262) = Jac_FULL(304,304) - JVS(1262) = -B(4471) -! JVS(1263) = Jac_FULL(304,4980) - JVS(1263) = B(1703) -! JVS(1264) = Jac_FULL(304,5250) - JVS(1264) = -B(4472) -! JVS(1265) = Jac_FULL(305,305) - JVS(1265) = -B(20516) -! JVS(1266) = Jac_FULL(305,4599) - JVS(1266) = B(18919) -! JVS(1267) = Jac_FULL(305,5250) - JVS(1267) = -B(20517) -! JVS(1268) = Jac_FULL(306,306) - JVS(1268) = -B(17853) -! JVS(1269) = Jac_FULL(306,4251) - JVS(1269) = B(15260) -! JVS(1270) = Jac_FULL(306,5250) - JVS(1270) = -B(17854) -! JVS(1271) = Jac_FULL(307,307) - JVS(1271) = -B(6951) -! JVS(1272) = Jac_FULL(307,3637) - JVS(1272) = B(3170) -! JVS(1273) = Jac_FULL(307,5250) - JVS(1273) = -B(6952) -! JVS(1274) = Jac_FULL(308,308) - JVS(1274) = -B(4658) -! JVS(1275) = Jac_FULL(308,5077) - JVS(1275) = B(1845) -! JVS(1276) = Jac_FULL(308,5250) - JVS(1276) = -B(4659) -! JVS(1277) = Jac_FULL(309,309) - JVS(1277) = -B(14007) -! JVS(1278) = Jac_FULL(309,4611) - JVS(1278) = B(10807)+B(10819) -! JVS(1279) = Jac_FULL(309,5250) - JVS(1279) = -B(14008) -! JVS(1280) = Jac_FULL(309,5255) - JVS(1280) = B(10808) -! JVS(1281) = Jac_FULL(310,310) - JVS(1281) = -B(20902) -! JVS(1282) = Jac_FULL(310,3962) - JVS(1282) = B(19339) -! JVS(1283) = Jac_FULL(310,5250) - JVS(1283) = -B(20903) -! JVS(1284) = Jac_FULL(311,311) - JVS(1284) = -B(19264)-B(19266) -! JVS(1285) = Jac_FULL(311,3840) - JVS(1285) = B(17069) -! JVS(1286) = Jac_FULL(311,5250) - JVS(1286) = -B(19265) -! JVS(1287) = Jac_FULL(312,312) - JVS(1287) = -B(15916) -! JVS(1288) = Jac_FULL(312,3727) - JVS(1288) = B(12836) -! JVS(1289) = Jac_FULL(312,5250) - JVS(1289) = -B(15917) -! JVS(1290) = Jac_FULL(313,313) - JVS(1290) = -B(23067) -! JVS(1291) = Jac_FULL(313,3698) - JVS(1291) = B(22634) -! JVS(1292) = Jac_FULL(313,5250) - JVS(1292) = -B(23068) -! JVS(1293) = Jac_FULL(314,314) - JVS(1293) = -B(12001) -! JVS(1294) = Jac_FULL(314,5108) - JVS(1294) = B(8257) -! JVS(1295) = Jac_FULL(314,5250) - JVS(1295) = -B(12002) -! JVS(1296) = Jac_FULL(315,59) - JVS(1296) = B(21079) -! JVS(1297) = Jac_FULL(315,315) - JVS(1297) = -B(21078) -! JVS(1298) = Jac_FULL(315,1245) - JVS(1298) = B(21074) -! JVS(1299) = Jac_FULL(315,2408) - JVS(1299) = B(21077) -! JVS(1300) = Jac_FULL(315,4764) - JVS(1300) = B(19509)+B(19511)+B(19513) -! JVS(1301) = Jac_FULL(315,5250) - JVS(1301) = B(21080) -! JVS(1302) = Jac_FULL(315,5252) - JVS(1302) = B(19510) -! JVS(1303) = Jac_FULL(315,5256) - JVS(1303) = B(19512) -! JVS(1304) = Jac_FULL(316,316) - JVS(1304) = -B(4561) -! JVS(1305) = Jac_FULL(316,4571) - JVS(1305) = B(1770) -! JVS(1306) = Jac_FULL(316,5250) - JVS(1306) = -B(4562) -! JVS(1307) = Jac_FULL(317,317) - JVS(1307) = -B(19306)-B(19308) -! JVS(1308) = Jac_FULL(317,3985) - JVS(1308) = B(17085) -! JVS(1309) = Jac_FULL(317,5250) - JVS(1309) = -B(19307) -! JVS(1310) = Jac_FULL(318,273) - JVS(1310) = B(18325) -! JVS(1311) = Jac_FULL(318,318) - JVS(1311) = -B(18323) -! JVS(1312) = Jac_FULL(318,521) - JVS(1312) = B(18319) -! JVS(1313) = Jac_FULL(318,3675) - JVS(1313) = B(15868) -! JVS(1314) = Jac_FULL(318,5250) - JVS(1314) = B(18320)-B(18324)+B(18326) -! JVS(1315) = Jac_FULL(319,319) - JVS(1315) = -B(13921) -! JVS(1316) = Jac_FULL(319,4060) - JVS(1316) = B(10729) -! JVS(1317) = Jac_FULL(319,5250) - JVS(1317) = -B(13922) -! JVS(1318) = Jac_FULL(320,320) - JVS(1318) = -B(23509) -! JVS(1319) = Jac_FULL(320,4196) - JVS(1319) = B(23162) -! JVS(1320) = Jac_FULL(320,5250) - JVS(1320) = -B(23510) -! JVS(1321) = Jac_FULL(321,321) - JVS(1321) = -B(13996) -! JVS(1322) = Jac_FULL(321,4368) - JVS(1322) = B(10793) -! JVS(1323) = Jac_FULL(321,5250) - JVS(1323) = -B(13997) -! JVS(1324) = Jac_FULL(322,322) - JVS(1324) = -B(18384) -! JVS(1325) = Jac_FULL(322,3711) - JVS(1325) = B(15966) -! JVS(1326) = Jac_FULL(322,5250) - JVS(1326) = -B(18385) -! JVS(1327) = Jac_FULL(323,322) - JVS(1327) = B(18384) -! JVS(1328) = Jac_FULL(323,323) - JVS(1328) = -B(18382) -! JVS(1329) = Jac_FULL(323,324) - JVS(1329) = B(18378) -! JVS(1330) = Jac_FULL(323,3711) - JVS(1330) = B(15964) -! JVS(1331) = Jac_FULL(323,5250) - JVS(1331) = B(18379)-B(18383)+B(18385) -! JVS(1332) = Jac_FULL(324,324) - JVS(1332) = -B(18378)-B(18380) -! JVS(1333) = Jac_FULL(324,3711) - JVS(1333) = B(15958) -! JVS(1334) = Jac_FULL(324,5250) - JVS(1334) = -B(18379) -! JVS(1335) = Jac_FULL(324,5255) - JVS(1335) = B(15959) -! JVS(1336) = Jac_FULL(325,325) - JVS(1336) = -B(11399) -! JVS(1337) = Jac_FULL(325,5041) - JVS(1337) = B(7545) -! JVS(1338) = Jac_FULL(325,5250) - JVS(1338) = -B(11400) -! JVS(1339) = Jac_FULL(326,87) - JVS(1339) = B(17368) -! JVS(1340) = Jac_FULL(326,326) - JVS(1340) = -B(17367) -! JVS(1341) = Jac_FULL(326,970) - JVS(1341) = B(17363) -! JVS(1342) = Jac_FULL(326,2239) - JVS(1342) = B(17366) -! JVS(1343) = Jac_FULL(326,4394) - JVS(1343) = B(14776)+B(14778)+B(14780) -! JVS(1344) = Jac_FULL(326,5250) - JVS(1344) = B(17369) -! JVS(1345) = Jac_FULL(326,5252) - JVS(1345) = B(14777) -! JVS(1346) = Jac_FULL(326,5256) - JVS(1346) = B(14779) -! JVS(1347) = Jac_FULL(327,327) - JVS(1347) = -B(2081)-B(2082) -! JVS(1348) = Jac_FULL(327,4512) - JVS(1348) = B(471) -! JVS(1349) = Jac_FULL(327,5258) - JVS(1349) = B(472) -! JVS(1350) = Jac_FULL(328,328) - JVS(1350) = -B(6581) -! JVS(1351) = Jac_FULL(328,3866) - JVS(1351) = B(2989) -! JVS(1352) = Jac_FULL(328,5250) - JVS(1352) = -B(6582) -! JVS(1353) = Jac_FULL(328,5255) - JVS(1353) = B(2990) -! JVS(1354) = Jac_FULL(329,329) - JVS(1354) = -B(17733) -! JVS(1355) = Jac_FULL(329,4500) - JVS(1355) = B(15161)+B(15173) -! JVS(1356) = Jac_FULL(329,5250) - JVS(1356) = -B(17734) -! JVS(1357) = Jac_FULL(329,5255) - JVS(1357) = B(15162) -! JVS(1358) = Jac_FULL(330,330) - JVS(1358) = -B(11578) -! JVS(1359) = Jac_FULL(330,5164) - JVS(1359) = B(7805) -! JVS(1360) = Jac_FULL(330,5250) - JVS(1360) = -B(11579) -! JVS(1361) = Jac_FULL(330,5255) - JVS(1361) = B(7806) -! JVS(1362) = Jac_FULL(331,331) - JVS(1362) = -B(18042) -! JVS(1363) = Jac_FULL(331,3407) - JVS(1363) = B(15440) -! JVS(1364) = Jac_FULL(331,5250) - JVS(1364) = -B(18043) -! JVS(1365) = Jac_FULL(332,332) - JVS(1365) = -B(5489) -! JVS(1366) = Jac_FULL(332,3509) - JVS(1366) = B(2470) -! JVS(1367) = Jac_FULL(332,5250) - JVS(1367) = -B(5490) -! JVS(1368) = Jac_FULL(333,333) - JVS(1368) = -B(11979) -! JVS(1369) = Jac_FULL(333,3667) - JVS(1369) = B(8233) -! JVS(1370) = Jac_FULL(333,5250) - JVS(1370) = -B(11980) -! JVS(1371) = Jac_FULL(334,334) - JVS(1371) = -B(23523) -! JVS(1372) = Jac_FULL(334,3841) - JVS(1372) = B(23178) -! JVS(1373) = Jac_FULL(334,5250) - JVS(1373) = -B(23524) -! JVS(1374) = Jac_FULL(335,335) - JVS(1374) = -B(3710) -! JVS(1375) = Jac_FULL(335,5007) - JVS(1375) = B(997) -! JVS(1376) = Jac_FULL(335,5250) - JVS(1376) = -B(3711) -! JVS(1377) = Jac_FULL(336,336) - JVS(1377) = -B(11134) -! JVS(1378) = Jac_FULL(336,3852) - JVS(1378) = B(7341) -! JVS(1379) = Jac_FULL(336,5250) - JVS(1379) = -B(11135) -! JVS(1380) = Jac_FULL(337,337) - JVS(1380) = -B(52)-B(70) -! JVS(1381) = Jac_FULL(337,5250) - JVS(1381) = B(38)-B(53) -! JVS(1382) = Jac_FULL(337,5252) - JVS(1382) = B(39) -! JVS(1383) = Jac_FULL(338,338) - JVS(1383) = -B(4641) -! JVS(1384) = Jac_FULL(338,5082) - JVS(1384) = B(1834) -! JVS(1385) = Jac_FULL(338,5250) - JVS(1385) = -B(4642) -! JVS(1386) = Jac_FULL(339,339) - JVS(1386) = -B(4679) -! JVS(1387) = Jac_FULL(339,4886) - JVS(1387) = B(1865) -! JVS(1388) = Jac_FULL(339,5250) - JVS(1388) = -B(4680) -! JVS(1389) = Jac_FULL(340,340) - JVS(1389) = -B(15716) -! JVS(1390) = Jac_FULL(340,4857) - JVS(1390) = B(12644) -! JVS(1391) = Jac_FULL(340,5250) - JVS(1391) = -B(15717) -! JVS(1392) = Jac_FULL(341,341) - JVS(1392) = -B(12723) -! JVS(1393) = Jac_FULL(341,4100) - JVS(1393) = B(9162)+B(9173) -! JVS(1394) = Jac_FULL(341,5250) - JVS(1394) = -B(12724) -! JVS(1395) = Jac_FULL(341,5255) - JVS(1395) = B(9163) -! JVS(1396) = Jac_FULL(342,342) - JVS(1396) = -B(407)-B(409) -! JVS(1397) = Jac_FULL(342,5238) - JVS(1397) = -B(408) -! JVS(1398) = Jac_FULL(342,5250) - JVS(1398) = -B(410) -! JVS(1399) = Jac_FULL(343,343) - JVS(1399) = -B(11446) -! JVS(1400) = Jac_FULL(343,4949) - JVS(1400) = B(7602)+B(7614) -! JVS(1401) = Jac_FULL(343,5250) - JVS(1401) = -B(11447) -! JVS(1402) = Jac_FULL(343,5255) - JVS(1402) = B(7603) -! JVS(1403) = Jac_FULL(344,344) - JVS(1403) = -B(14393) -! JVS(1404) = Jac_FULL(344,4078) - JVS(1404) = B(11174) -! JVS(1405) = Jac_FULL(344,5250) - JVS(1405) = -B(14394) -! JVS(1406) = Jac_FULL(345,345) - JVS(1406) = -B(4413) -! JVS(1407) = Jac_FULL(345,5163) - JVS(1407) = B(1639) -! JVS(1408) = Jac_FULL(345,5250) - JVS(1408) = -B(4414) -! JVS(1409) = Jac_FULL(346,346) - JVS(1409) = -B(17726) -! JVS(1410) = Jac_FULL(346,4058) - JVS(1410) = B(15159) -! JVS(1411) = Jac_FULL(346,5250) - JVS(1411) = -B(17727) -! JVS(1412) = Jac_FULL(347,347) - JVS(1412) = -B(20780) -! JVS(1413) = Jac_FULL(347,4077) - JVS(1413) = B(19192) -! JVS(1414) = Jac_FULL(347,5250) - JVS(1414) = -B(20781) -! JVS(1415) = Jac_FULL(348,348) - JVS(1415) = -B(19006) -! JVS(1416) = Jac_FULL(348,4348) - JVS(1416) = B(16797) -! JVS(1417) = Jac_FULL(348,5250) - JVS(1417) = -B(19007) -! JVS(1418) = Jac_FULL(349,349) - JVS(1418) = -B(4587) -! JVS(1419) = Jac_FULL(349,4696) - JVS(1419) = B(1791) -! JVS(1420) = Jac_FULL(349,5250) - JVS(1420) = -B(4588) -! JVS(1421) = Jac_FULL(350,350) - JVS(1421) = -B(16421)-B(16423) -! JVS(1422) = Jac_FULL(350,3853) - JVS(1422) = B(13394) -! JVS(1423) = Jac_FULL(350,5250) - JVS(1423) = -B(16422) -! JVS(1424) = Jac_FULL(351,351) - JVS(1424) = -B(22836) -! JVS(1425) = Jac_FULL(351,4496) - JVS(1425) = B(22335)+B(22344) -! JVS(1426) = Jac_FULL(351,5250) - JVS(1426) = -B(22837) -! JVS(1427) = Jac_FULL(351,5255) - JVS(1427) = B(22336) -! JVS(1428) = Jac_FULL(352,352) - JVS(1428) = -B(24021) -! JVS(1429) = Jac_FULL(352,4687) - JVS(1429) = B(23989) -! JVS(1430) = Jac_FULL(352,5250) - JVS(1430) = -B(24022) -! JVS(1431) = Jac_FULL(353,353) - JVS(1431) = -B(4696) -! JVS(1432) = Jac_FULL(353,4766) - JVS(1432) = B(1877) -! JVS(1433) = Jac_FULL(353,5250) - JVS(1433) = -B(4697) -! JVS(1434) = Jac_FULL(354,354) - JVS(1434) = -B(16894)-B(16896) -! JVS(1435) = Jac_FULL(354,3955) - JVS(1435) = B(14253) -! JVS(1436) = Jac_FULL(354,5250) - JVS(1436) = -B(16895) -! JVS(1437) = Jac_FULL(355,355) - JVS(1437) = -B(11512) -! JVS(1438) = Jac_FULL(355,4359) - JVS(1438) = B(7710) -! JVS(1439) = Jac_FULL(355,5250) - JVS(1439) = -B(11513) -! JVS(1440) = Jac_FULL(356,356) - JVS(1440) = -B(16116) -! JVS(1441) = Jac_FULL(356,3762) - JVS(1441) = B(13028) -! JVS(1442) = Jac_FULL(356,5250) - JVS(1442) = -B(16117) -! JVS(1443) = Jac_FULL(357,357) - JVS(1443) = -B(23731) -! JVS(1444) = Jac_FULL(357,3855) - JVS(1444) = B(23487) -! JVS(1445) = Jac_FULL(357,5250) - JVS(1445) = -B(23732) -! JVS(1446) = Jac_FULL(358,358) - JVS(1446) = -B(12867) -! JVS(1447) = Jac_FULL(358,4030) - JVS(1447) = B(9379) -! JVS(1448) = Jac_FULL(358,5250) - JVS(1448) = -B(12868) -! JVS(1449) = Jac_FULL(359,359) - JVS(1449) = -B(20754) -! JVS(1450) = Jac_FULL(359,3710) - JVS(1450) = B(19159) -! JVS(1451) = Jac_FULL(359,5250) - JVS(1451) = -B(20755) -! JVS(1452) = Jac_FULL(360,360) - JVS(1452) = -B(23040) -! JVS(1453) = Jac_FULL(360,4681) - JVS(1453) = B(22598)+B(22607) -! JVS(1454) = Jac_FULL(360,5250) - JVS(1454) = -B(23041) -! JVS(1455) = Jac_FULL(360,5255) - JVS(1455) = B(22599) -! JVS(1456) = Jac_FULL(361,361) - JVS(1456) = -B(5340) -! JVS(1457) = Jac_FULL(361,3823) - JVS(1457) = B(2404) -! JVS(1458) = Jac_FULL(361,5250) - JVS(1458) = -B(5341) -! JVS(1459) = Jac_FULL(362,362) - JVS(1459) = -B(11331)-B(11332) -! JVS(1460) = Jac_FULL(362,4970) - JVS(1460) = B(7507) -! JVS(1461) = Jac_FULL(362,5258) - JVS(1461) = B(7508) -! JVS(1462) = Jac_FULL(363,363) - JVS(1462) = -B(14190) -! JVS(1463) = Jac_FULL(363,4836) - JVS(1463) = B(10998)+B(11010) -! JVS(1464) = Jac_FULL(363,5250) - JVS(1464) = -B(14191) -! JVS(1465) = Jac_FULL(363,5255) - JVS(1465) = B(10999) -! JVS(1466) = Jac_FULL(364,364) - JVS(1466) = -B(20956) -! JVS(1467) = Jac_FULL(364,5131) - JVS(1467) = B(19400)+B(19412) -! JVS(1468) = Jac_FULL(364,5250) - JVS(1468) = -B(20957) -! JVS(1469) = Jac_FULL(364,5255) - JVS(1469) = B(19401) -! JVS(1470) = Jac_FULL(365,365) - JVS(1470) = -B(16953)-B(16955) -! JVS(1471) = Jac_FULL(365,4173) - JVS(1471) = B(14349) -! JVS(1472) = Jac_FULL(365,5250) - JVS(1472) = -B(16954) -! JVS(1473) = Jac_FULL(366,366) - JVS(1473) = -B(16877)-B(16879) -! JVS(1474) = Jac_FULL(366,4124) - JVS(1474) = B(14233) -! JVS(1475) = Jac_FULL(366,5250) - JVS(1475) = -B(16878) -! JVS(1476) = Jac_FULL(367,367) - JVS(1476) = -B(23163) -! JVS(1477) = Jac_FULL(367,5245) - JVS(1477) = B(22719)+B(22731) -! JVS(1478) = Jac_FULL(367,5250) - JVS(1478) = -B(23164) -! JVS(1479) = Jac_FULL(367,5255) - JVS(1479) = B(22720) -! JVS(1480) = Jac_FULL(368,368) - JVS(1480) = -B(23862) -! JVS(1481) = Jac_FULL(368,4226) - JVS(1481) = B(23692) -! JVS(1482) = Jac_FULL(368,5250) - JVS(1482) = -B(23863) -! JVS(1483) = Jac_FULL(369,369) - JVS(1483) = -B(11064)-B(11066) -! JVS(1484) = Jac_FULL(369,4201) - JVS(1484) = B(7262) -! JVS(1485) = Jac_FULL(369,5250) - JVS(1485) = -B(11065) -! JVS(1486) = Jac_FULL(370,369) - JVS(1486) = B(11064)+B(11066) -! JVS(1487) = Jac_FULL(370,370) - JVS(1487) = -B(11063) -! JVS(1488) = Jac_FULL(370,1007) - JVS(1488) = B(11062) -! JVS(1489) = Jac_FULL(370,4201) - JVS(1489) = B(7257)+B(7259)+B(7261) -! JVS(1490) = Jac_FULL(370,5250) - JVS(1490) = B(11065) -! JVS(1491) = Jac_FULL(370,5252) - JVS(1491) = B(7258) -! JVS(1492) = Jac_FULL(370,5256) - JVS(1492) = B(7260) -! JVS(1493) = Jac_FULL(371,371) - JVS(1493) = -B(17279) -! JVS(1494) = Jac_FULL(371,5122) - JVS(1494) = B(14710) -! JVS(1495) = Jac_FULL(371,5250) - JVS(1495) = -B(17280) -! JVS(1496) = Jac_FULL(372,372) - JVS(1496) = -B(18102) -! JVS(1497) = Jac_FULL(372,3699) - JVS(1497) = B(15523) -! JVS(1498) = Jac_FULL(372,5250) - JVS(1498) = -B(18103) -! JVS(1499) = Jac_FULL(373,267) - JVS(1499) = B(18603) -! JVS(1500) = Jac_FULL(373,373) - JVS(1500) = -B(18601) -! JVS(1501) = Jac_FULL(373,459) - JVS(1501) = B(18597) -! JVS(1502) = Jac_FULL(373,3770) - JVS(1502) = B(16290) -! JVS(1503) = Jac_FULL(373,5250) - JVS(1503) = B(18598)-B(18602)+B(18604) -! JVS(1504) = Jac_FULL(374,374) - JVS(1504) = -B(10296)-B(10298) -! JVS(1505) = Jac_FULL(374,4335) - JVS(1505) = B(6571) -! JVS(1506) = Jac_FULL(374,5250) - JVS(1506) = -B(10297) -! JVS(1507) = Jac_FULL(375,375) - JVS(1507) = -B(22502) -! JVS(1508) = Jac_FULL(375,4752) - JVS(1508) = B(21896)+B(21908) -! JVS(1509) = Jac_FULL(375,5250) - JVS(1509) = -B(22503) -! JVS(1510) = Jac_FULL(375,5255) - JVS(1510) = B(21897) -! JVS(1511) = Jac_FULL(376,376) - JVS(1511) = -B(17548) -! JVS(1512) = Jac_FULL(376,4623) - JVS(1512) = B(14978)+B(14990) -! JVS(1513) = Jac_FULL(376,5250) - JVS(1513) = -B(17549) -! JVS(1514) = Jac_FULL(376,5255) - JVS(1514) = B(14979) -! JVS(1515) = Jac_FULL(377,377) - JVS(1515) = -B(19503) -! JVS(1516) = Jac_FULL(377,4176) - JVS(1516) = B(17338) -! JVS(1517) = Jac_FULL(377,5250) - JVS(1517) = -B(19504) -! JVS(1518) = Jac_FULL(378,378) - JVS(1518) = -B(22077) -! JVS(1519) = Jac_FULL(378,4863) - JVS(1519) = B(21058)+B(21070) -! JVS(1520) = Jac_FULL(378,5250) - JVS(1520) = -B(22078) -! JVS(1521) = Jac_FULL(378,5255) - JVS(1521) = B(21059) -! JVS(1522) = Jac_FULL(379,379) - JVS(1522) = -B(11986) -! JVS(1523) = Jac_FULL(379,4994) - JVS(1523) = B(8237)+B(8248) -! JVS(1524) = Jac_FULL(379,5250) - JVS(1524) = -B(11987) -! JVS(1525) = Jac_FULL(379,5255) - JVS(1525) = B(8238) -! JVS(1526) = Jac_FULL(380,380) - JVS(1526) = -B(4514) -! JVS(1527) = Jac_FULL(380,5186) - JVS(1527) = B(1737) -! JVS(1528) = Jac_FULL(380,5250) - JVS(1528) = -B(4515) -! JVS(1529) = Jac_FULL(381,381) - JVS(1529) = -B(14005) -! JVS(1530) = Jac_FULL(381,4610) - JVS(1530) = B(10805) -! JVS(1531) = Jac_FULL(381,5250) - JVS(1531) = -B(14006) -! JVS(1532) = Jac_FULL(382,382) - JVS(1532) = -B(23055) -! JVS(1533) = Jac_FULL(382,4442) - JVS(1533) = B(22618) -! JVS(1534) = Jac_FULL(382,5250) - JVS(1534) = -B(23056) -! JVS(1535) = Jac_FULL(383,383) - JVS(1535) = -B(4493) -! JVS(1536) = Jac_FULL(383,4942) - JVS(1536) = B(1715) -! JVS(1537) = Jac_FULL(383,5250) - JVS(1537) = -B(4494) -! JVS(1538) = Jac_FULL(384,384) - JVS(1538) = -B(7646) -! JVS(1539) = Jac_FULL(384,4380) - JVS(1539) = B(3809)+B(3821) -! JVS(1540) = Jac_FULL(384,5250) - JVS(1540) = -B(7647) -! JVS(1541) = Jac_FULL(384,5255) - JVS(1541) = B(3810) -! JVS(1542) = Jac_FULL(385,385) - JVS(1542) = -B(21211) -! JVS(1543) = Jac_FULL(385,4890) - JVS(1543) = B(19746) -! JVS(1544) = Jac_FULL(385,5250) - JVS(1544) = -B(21212) -! JVS(1545) = Jac_FULL(386,386) - JVS(1545) = -B(16514)-B(16515) -! JVS(1546) = Jac_FULL(386,4832) - JVS(1546) = B(13657) -! JVS(1547) = Jac_FULL(386,5258) - JVS(1547) = B(13658) -! JVS(1548) = Jac_FULL(387,387) - JVS(1548) = -B(18695) -! JVS(1549) = Jac_FULL(387,3461) - JVS(1549) = B(16448) -! JVS(1550) = Jac_FULL(387,5250) - JVS(1550) = -B(18696) -! JVS(1551) = Jac_FULL(387,5253) - JVS(1551) = B(16449) -! JVS(1552) = Jac_FULL(388,388) - JVS(1552) = -B(22619) -! JVS(1553) = Jac_FULL(388,4652) - JVS(1553) = B(22011)+B(22023) -! JVS(1554) = Jac_FULL(388,5250) - JVS(1554) = -B(22620) -! JVS(1555) = Jac_FULL(388,5255) - JVS(1555) = B(22012) -! JVS(1556) = Jac_FULL(389,389) - JVS(1556) = -B(12608) -! JVS(1557) = Jac_FULL(389,4338) - JVS(1557) = B(9020)+B(9031) -! JVS(1558) = Jac_FULL(389,5250) - JVS(1558) = -B(12609) -! JVS(1559) = Jac_FULL(389,5255) - JVS(1559) = B(9021) -! JVS(1560) = Jac_FULL(390,390) - JVS(1560) = -B(23673) -! JVS(1561) = Jac_FULL(390,4342) - JVS(1561) = B(23404) -! JVS(1562) = Jac_FULL(390,5250) - JVS(1562) = -B(23674) -! JVS(1563) = Jac_FULL(391,391) - JVS(1563) = -B(13643) -! JVS(1564) = Jac_FULL(391,4107) - JVS(1564) = B(10489) -! JVS(1565) = Jac_FULL(391,5250) - JVS(1565) = B(10490)-B(13644) -! JVS(1566) = Jac_FULL(392,392) - JVS(1566) = -B(15643) -! JVS(1567) = Jac_FULL(392,4669) - JVS(1567) = B(12554) -! JVS(1568) = Jac_FULL(392,5250) - JVS(1568) = -B(15644) -! JVS(1569) = Jac_FULL(393,393) - JVS(1569) = -B(11514) -! JVS(1570) = Jac_FULL(393,5008) - JVS(1570) = B(7713)+B(7724) -! JVS(1571) = Jac_FULL(393,5250) - JVS(1571) = -B(11515) -! JVS(1572) = Jac_FULL(393,5255) - JVS(1572) = B(7714) -! JVS(1573) = Jac_FULL(394,394) - JVS(1573) = -B(23150) -! JVS(1574) = Jac_FULL(394,4162) - JVS(1574) = B(22698) -! JVS(1575) = Jac_FULL(394,5250) - JVS(1575) = -B(23151) -! JVS(1576) = Jac_FULL(395,395) - JVS(1576) = -B(11145) -! JVS(1577) = Jac_FULL(395,3733) - JVS(1577) = B(7352) -! JVS(1578) = Jac_FULL(395,5250) - JVS(1578) = -B(11146) -! JVS(1579) = Jac_FULL(396,396) - JVS(1579) = -B(5945) -! JVS(1580) = Jac_FULL(396,3521) - JVS(1580) = B(2688) -! JVS(1581) = Jac_FULL(396,5250) - JVS(1581) = -B(5946) -! JVS(1582) = Jac_FULL(397,299) - JVS(1582) = B(18182) -! JVS(1583) = Jac_FULL(397,397) - JVS(1583) = -B(18180) -! JVS(1584) = Jac_FULL(397,398) - JVS(1584) = B(18176) -! JVS(1585) = Jac_FULL(397,3697) - JVS(1585) = B(15675) -! JVS(1586) = Jac_FULL(397,5250) - JVS(1586) = B(18177)-B(18181)+B(18183) -! JVS(1587) = Jac_FULL(398,398) - JVS(1587) = -B(18176)-B(18178) -! JVS(1588) = Jac_FULL(398,3697) - JVS(1588) = B(15669) -! JVS(1589) = Jac_FULL(398,5250) - JVS(1589) = -B(18177) -! JVS(1590) = Jac_FULL(398,5255) - JVS(1590) = B(15670) -! JVS(1591) = Jac_FULL(399,399) - JVS(1591) = -B(21712) -! JVS(1592) = Jac_FULL(399,3858) - JVS(1592) = B(20683) -! JVS(1593) = Jac_FULL(399,5250) - JVS(1593) = -B(21713) -! JVS(1594) = Jac_FULL(400,400) - JVS(1594) = -B(20763)-B(20765) -! JVS(1595) = Jac_FULL(400,4166) - JVS(1595) = B(19169) -! JVS(1596) = Jac_FULL(400,5250) - JVS(1596) = -B(20764) -! JVS(1597) = Jac_FULL(401,401) - JVS(1597) = -B(11228) -! JVS(1598) = Jac_FULL(401,5236) - JVS(1598) = B(7440) -! JVS(1599) = Jac_FULL(401,5250) - JVS(1599) = -B(11229) -! JVS(1600) = Jac_FULL(402,402) - JVS(1600) = -B(16035) -! JVS(1601) = Jac_FULL(402,4069) - JVS(1601) = B(12965) -! JVS(1602) = Jac_FULL(402,5250) - JVS(1602) = -B(16036) -! JVS(1603) = Jac_FULL(403,403) - JVS(1603) = -B(11162) -! JVS(1604) = Jac_FULL(403,4240) - JVS(1604) = B(7371) -! JVS(1605) = Jac_FULL(403,5250) - JVS(1605) = -B(11163) -! JVS(1606) = Jac_FULL(404,403) - JVS(1606) = B(11162) -! JVS(1607) = Jac_FULL(404,404) - JVS(1607) = -B(11160) -! JVS(1608) = Jac_FULL(404,405) - JVS(1608) = B(11156) -! JVS(1609) = Jac_FULL(404,4240) - JVS(1609) = B(7369) -! JVS(1610) = Jac_FULL(404,5250) - JVS(1610) = B(11157)-B(11161)+B(11163) -! JVS(1611) = Jac_FULL(405,405) - JVS(1611) = -B(11156)-B(11158) -! JVS(1612) = Jac_FULL(405,4240) - JVS(1612) = B(7363) -! JVS(1613) = Jac_FULL(405,5250) - JVS(1613) = -B(11157) -! JVS(1614) = Jac_FULL(405,5255) - JVS(1614) = B(7364) -! JVS(1615) = Jac_FULL(406,406) - JVS(1615) = -B(23141) -! JVS(1616) = Jac_FULL(406,4130) - JVS(1616) = B(22684) -! JVS(1617) = Jac_FULL(406,5250) - JVS(1617) = -B(23142) -! JVS(1618) = Jac_FULL(407,365) - JVS(1618) = B(16953)+B(16955) -! JVS(1619) = Jac_FULL(407,407) - JVS(1619) = -B(16952) -! JVS(1620) = Jac_FULL(407,1197) - JVS(1620) = B(16948) -! JVS(1621) = Jac_FULL(407,3081) - JVS(1621) = B(16951) -! JVS(1622) = Jac_FULL(407,4173) - JVS(1622) = B(14344)+B(14346)+B(14348) -! JVS(1623) = Jac_FULL(407,5250) - JVS(1623) = B(16954) -! JVS(1624) = Jac_FULL(407,5252) - JVS(1624) = B(14345) -! JVS(1625) = Jac_FULL(407,5256) - JVS(1625) = B(14347) -! JVS(1626) = Jac_FULL(408,408) - JVS(1626) = -B(18031) -! JVS(1627) = Jac_FULL(408,4360) - JVS(1627) = B(15413) -! JVS(1628) = Jac_FULL(408,5250) - JVS(1628) = -B(18032) -! JVS(1629) = Jac_FULL(409,409) - JVS(1629) = -B(22046) -! JVS(1630) = Jac_FULL(409,3789) - JVS(1630) = B(21006) -! JVS(1631) = Jac_FULL(409,5250) - JVS(1631) = -B(22047) -! JVS(1632) = Jac_FULL(410,410) - JVS(1632) = -B(22708) -! JVS(1633) = Jac_FULL(410,3722) - JVS(1633) = B(22092) -! JVS(1634) = Jac_FULL(410,5250) - JVS(1634) = -B(22709) -! JVS(1635) = Jac_FULL(411,411) - JVS(1635) = -B(23200) -! JVS(1636) = Jac_FULL(411,4147) - JVS(1636) = B(22744) -! JVS(1637) = Jac_FULL(411,5250) - JVS(1637) = -B(23201) -! JVS(1638) = Jac_FULL(412,412) - JVS(1638) = -B(4708) -! JVS(1639) = Jac_FULL(412,5146) - JVS(1639) = B(1888) -! JVS(1640) = Jac_FULL(412,5250) - JVS(1640) = -B(4709) -! JVS(1641) = Jac_FULL(413,413) - JVS(1641) = -B(17244) -! JVS(1642) = Jac_FULL(413,4940) - JVS(1642) = B(14622) -! JVS(1643) = Jac_FULL(413,5250) - JVS(1643) = -B(17245) -! JVS(1644) = Jac_FULL(414,414) - JVS(1644) = -B(23718)-B(23720) -! JVS(1645) = Jac_FULL(414,4234) - JVS(1645) = B(23464) -! JVS(1646) = Jac_FULL(414,5250) - JVS(1646) = -B(23719) -! JVS(1647) = Jac_FULL(414,5255) - JVS(1647) = B(23465) -! JVS(1648) = Jac_FULL(415,415) - JVS(1648) = -B(23121) -! JVS(1649) = Jac_FULL(415,4672) - JVS(1649) = B(22672) -! JVS(1650) = Jac_FULL(415,5250) - JVS(1650) = -B(23122) -! JVS(1651) = Jac_FULL(416,416) - JVS(1651) = -B(3653) -! JVS(1652) = Jac_FULL(416,4995) - JVS(1652) = B(942) -! JVS(1653) = Jac_FULL(416,5250) - JVS(1653) = -B(3654) -! JVS(1654) = Jac_FULL(417,417) - JVS(1654) = -B(6966) -! JVS(1655) = Jac_FULL(417,4616) - JVS(1655) = B(3183) -! JVS(1656) = Jac_FULL(417,5250) - JVS(1656) = -B(6967) -! JVS(1657) = Jac_FULL(418,418) - JVS(1657) = -B(21837)-B(21839) -! JVS(1658) = Jac_FULL(418,3845) - JVS(1658) = B(20808) -! JVS(1659) = Jac_FULL(418,5250) - JVS(1659) = -B(21838) -! JVS(1660) = Jac_FULL(419,419) - JVS(1660) = -B(3529)-B(3530) -! JVS(1661) = Jac_FULL(419,4605) - JVS(1661) = B(894) -! JVS(1662) = Jac_FULL(419,5258) - JVS(1662) = B(895) -! JVS(1663) = Jac_FULL(420,420) - JVS(1663) = -B(19567) -! JVS(1664) = Jac_FULL(420,4662) - JVS(1664) = B(17504)+B(17516) -! JVS(1665) = Jac_FULL(420,5250) - JVS(1665) = -B(19568) -! JVS(1666) = Jac_FULL(420,5255) - JVS(1666) = B(17505) -! JVS(1667) = Jac_FULL(421,139) - JVS(1667) = B(4738) -! JVS(1668) = Jac_FULL(421,421) - JVS(1668) = -B(4737) -! JVS(1669) = Jac_FULL(421,1082) - JVS(1669) = B(4731) -! JVS(1670) = Jac_FULL(421,2964) - JVS(1670) = B(4734) -! JVS(1671) = Jac_FULL(421,4878) - JVS(1671) = B(1914)+B(1916)+B(1918) -! JVS(1672) = Jac_FULL(421,5250) - JVS(1672) = B(4739) -! JVS(1673) = Jac_FULL(421,5252) - JVS(1673) = B(1915) -! JVS(1674) = Jac_FULL(421,5256) - JVS(1674) = B(1917) -! JVS(1675) = Jac_FULL(422,422) - JVS(1675) = -B(21405) -! JVS(1676) = Jac_FULL(422,3541) - JVS(1676) = B(20085) -! JVS(1677) = Jac_FULL(422,5250) - JVS(1677) = B(20086) -! JVS(1678) = Jac_FULL(423,423) - JVS(1678) = -B(13209) -! JVS(1679) = Jac_FULL(423,4181) - JVS(1679) = B(9799)+B(9810) -! JVS(1680) = Jac_FULL(423,5250) - JVS(1680) = -B(13210) -! JVS(1681) = Jac_FULL(423,5255) - JVS(1681) = B(9800) -! JVS(1682) = Jac_FULL(424,424) - JVS(1682) = -B(4542) -! JVS(1683) = Jac_FULL(424,4974) - JVS(1683) = B(1758) -! JVS(1684) = Jac_FULL(424,5250) - JVS(1684) = -B(4543) -! JVS(1685) = Jac_FULL(425,425) - JVS(1685) = -B(11866) -! JVS(1686) = Jac_FULL(425,3778) - JVS(1686) = B(8124) -! JVS(1687) = Jac_FULL(425,5250) - JVS(1687) = -B(11867) -! JVS(1688) = Jac_FULL(426,426) - JVS(1688) = -B(411)-B(413) -! JVS(1689) = Jac_FULL(426,5238) - JVS(1689) = -B(412) -! JVS(1690) = Jac_FULL(426,5250) - JVS(1690) = -B(414) -! JVS(1691) = Jac_FULL(427,427) - JVS(1691) = -B(16980) -! JVS(1692) = Jac_FULL(427,4789) - JVS(1692) = B(14371) -! JVS(1693) = Jac_FULL(427,5250) - JVS(1693) = -B(16981) -! JVS(1694) = Jac_FULL(428,428) - JVS(1694) = -B(5710) -! JVS(1695) = Jac_FULL(428,3811) - JVS(1695) = B(2579) -! JVS(1696) = Jac_FULL(428,5250) - JVS(1696) = -B(5711) -! JVS(1697) = Jac_FULL(429,429) - JVS(1697) = -B(4798) -! JVS(1698) = Jac_FULL(429,5065) - JVS(1698) = B(1974) -! JVS(1699) = Jac_FULL(429,5250) - JVS(1699) = -B(4799) -! JVS(1700) = Jac_FULL(430,430) - JVS(1700) = -B(22572) -! JVS(1701) = Jac_FULL(430,4098) - JVS(1701) = B(21973) -! JVS(1702) = Jac_FULL(430,5250) - JVS(1702) = -B(22573) -! JVS(1703) = Jac_FULL(431,431) - JVS(1703) = -B(6108) -! JVS(1704) = Jac_FULL(431,3492) - JVS(1704) = B(2771) -! JVS(1705) = Jac_FULL(431,5250) - JVS(1705) = -B(6109) -! JVS(1706) = Jac_FULL(432,432) - JVS(1706) = -B(6506) -! JVS(1707) = Jac_FULL(432,3790) - JVS(1707) = B(2958) -! JVS(1708) = Jac_FULL(432,5250) - JVS(1708) = -B(6507) -! JVS(1709) = Jac_FULL(433,433) - JVS(1709) = -B(23819) -! JVS(1710) = Jac_FULL(433,5054) - JVS(1710) = B(23632)+B(23644) -! JVS(1711) = Jac_FULL(433,5250) - JVS(1711) = -B(23820) -! JVS(1712) = Jac_FULL(433,5255) - JVS(1712) = B(23633) -! JVS(1713) = Jac_FULL(434,434) - JVS(1713) = -B(19019) -! JVS(1714) = Jac_FULL(434,5079) - JVS(1714) = B(16800)+B(16812) -! JVS(1715) = Jac_FULL(434,5250) - JVS(1715) = -B(19020) -! JVS(1716) = Jac_FULL(434,5255) - JVS(1716) = B(16801) -! JVS(1717) = Jac_FULL(435,435) - JVS(1717) = -B(11803) -! JVS(1718) = Jac_FULL(435,3869) - JVS(1718) = B(8092) -! JVS(1719) = Jac_FULL(435,3967) - JVS(1719) = B(8071) -! JVS(1720) = Jac_FULL(435,5250) - JVS(1720) = -B(11804) -! JVS(1721) = Jac_FULL(436,436) - JVS(1721) = -B(5801) -! JVS(1722) = Jac_FULL(436,3804) - JVS(1722) = B(2623) -! JVS(1723) = Jac_FULL(436,5250) - JVS(1723) = -B(5802) -! JVS(1724) = Jac_FULL(437,437) - JVS(1724) = -B(11773) -! JVS(1725) = Jac_FULL(437,3718) - JVS(1725) = B(8048) -! JVS(1726) = Jac_FULL(437,5250) - JVS(1726) = -B(11774) -! JVS(1727) = Jac_FULL(438,438) - JVS(1727) = -B(7638) -! JVS(1728) = Jac_FULL(438,4634) - JVS(1728) = B(3775)+B(3787) -! JVS(1729) = Jac_FULL(438,5250) - JVS(1729) = -B(7639) -! JVS(1730) = Jac_FULL(438,5255) - JVS(1730) = B(3776) -! JVS(1731) = Jac_FULL(439,439) - JVS(1731) = -B(11422) -! JVS(1732) = Jac_FULL(439,5206) - JVS(1732) = B(7565) -! JVS(1733) = Jac_FULL(439,5250) - JVS(1733) = -B(11423) -! JVS(1734) = Jac_FULL(440,440) - JVS(1734) = -B(17252) -! JVS(1735) = Jac_FULL(440,5039) - JVS(1735) = B(14647) -! JVS(1736) = Jac_FULL(440,5250) - JVS(1736) = -B(17253) -! JVS(1737) = Jac_FULL(441,441) - JVS(1737) = -B(22717) -! JVS(1738) = Jac_FULL(441,4172) - JVS(1738) = B(22109) -! JVS(1739) = Jac_FULL(441,5250) - JVS(1739) = -B(22718) -! JVS(1740) = Jac_FULL(442,442) - JVS(1740) = -B(19229)-B(19231) -! JVS(1741) = Jac_FULL(442,4545) - JVS(1741) = B(17014) -! JVS(1742) = Jac_FULL(442,5250) - JVS(1742) = -B(19230) -! JVS(1743) = Jac_FULL(443,442) - JVS(1743) = B(19229)+B(19231) -! JVS(1744) = Jac_FULL(443,443) - JVS(1744) = -B(19228) -! JVS(1745) = Jac_FULL(443,1093) - JVS(1745) = B(19224) -! JVS(1746) = Jac_FULL(443,2661) - JVS(1746) = B(19227) -! JVS(1747) = Jac_FULL(443,4545) - JVS(1747) = B(17009)+B(17011)+B(17013) -! JVS(1748) = Jac_FULL(443,5250) - JVS(1748) = B(19230) -! JVS(1749) = Jac_FULL(443,5252) - JVS(1749) = B(17010) -! JVS(1750) = Jac_FULL(443,5256) - JVS(1750) = B(17012) -! JVS(1751) = Jac_FULL(444,444) - JVS(1751) = -B(5301) -! JVS(1752) = Jac_FULL(444,3776) - JVS(1752) = B(2383) -! JVS(1753) = Jac_FULL(444,5250) - JVS(1753) = -B(5302) -! JVS(1754) = Jac_FULL(445,34) - JVS(1754) = B(4717) -! JVS(1755) = Jac_FULL(445,445) - JVS(1755) = -B(4716) -! JVS(1756) = Jac_FULL(445,1207) - JVS(1756) = B(4710) -! JVS(1757) = Jac_FULL(445,2534) - JVS(1757) = B(4713) -! JVS(1758) = Jac_FULL(445,4099) - JVS(1758) = B(1893)+B(1895)+B(1897) -! JVS(1759) = Jac_FULL(445,5250) - JVS(1759) = B(4718) -! JVS(1760) = Jac_FULL(445,5252) - JVS(1760) = B(1894) -! JVS(1761) = Jac_FULL(445,5256) - JVS(1761) = B(1896) -! JVS(1762) = Jac_FULL(446,446) - JVS(1762) = -B(6189) -! JVS(1763) = Jac_FULL(446,3797) - JVS(1763) = B(2810) -! JVS(1764) = Jac_FULL(446,5250) - JVS(1764) = -B(6190) -! JVS(1765) = Jac_FULL(447,447) - JVS(1765) = -B(379)-B(381) -! JVS(1766) = Jac_FULL(447,5238) - JVS(1766) = -B(380) -! JVS(1767) = Jac_FULL(447,5250) - JVS(1767) = -B(382) -! JVS(1768) = Jac_FULL(448,448) - JVS(1768) = -B(18415) -! JVS(1769) = Jac_FULL(448,3423) - JVS(1769) = B(16002) -! JVS(1770) = Jac_FULL(448,5250) - JVS(1770) = -B(18416) -! JVS(1771) = Jac_FULL(449,449) - JVS(1771) = -B(17673) -! JVS(1772) = Jac_FULL(449,4665) - JVS(1772) = B(15095)+B(15107) -! JVS(1773) = Jac_FULL(449,5250) - JVS(1773) = -B(17674) -! JVS(1774) = Jac_FULL(449,5255) - JVS(1774) = B(15096) -! JVS(1775) = Jac_FULL(450,366) - JVS(1775) = B(16877)+B(16879) -! JVS(1776) = Jac_FULL(450,450) - JVS(1776) = -B(16876) -! JVS(1777) = Jac_FULL(450,931) - JVS(1777) = B(16872) -! JVS(1778) = Jac_FULL(450,2892) - JVS(1778) = B(16875) -! JVS(1779) = Jac_FULL(450,4124) - JVS(1779) = B(14228)+B(14230)+B(14232) -! JVS(1780) = Jac_FULL(450,5250) - JVS(1780) = B(16878) -! JVS(1781) = Jac_FULL(450,5252) - JVS(1781) = B(14229) -! JVS(1782) = Jac_FULL(450,5256) - JVS(1782) = B(14231) -! JVS(1783) = Jac_FULL(451,451) - JVS(1783) = -B(15461)-B(15463) -! JVS(1784) = Jac_FULL(451,3644) - JVS(1784) = B(12391) -! JVS(1785) = Jac_FULL(451,5250) - JVS(1785) = B(12392)-B(15462) -! JVS(1786) = Jac_FULL(452,452) - JVS(1786) = -B(19536) -! JVS(1787) = Jac_FULL(452,5114) - JVS(1787) = B(17386) -! JVS(1788) = Jac_FULL(452,5250) - JVS(1788) = -B(19537) -! JVS(1789) = Jac_FULL(453,453) - JVS(1789) = -B(4762) -! JVS(1790) = Jac_FULL(453,5112) - JVS(1790) = B(1941) -! JVS(1791) = Jac_FULL(453,5250) - JVS(1791) = -B(4763) -! JVS(1792) = Jac_FULL(454,454) - JVS(1792) = -B(16925)-B(16927) -! JVS(1793) = Jac_FULL(454,3741) - JVS(1793) = B(14296) -! JVS(1794) = Jac_FULL(454,5250) - JVS(1794) = -B(16926) -! JVS(1795) = Jac_FULL(455,372) - JVS(1795) = B(18102) -! JVS(1796) = Jac_FULL(455,455) - JVS(1796) = -B(18100) -! JVS(1797) = Jac_FULL(455,518) - JVS(1797) = B(18096) -! JVS(1798) = Jac_FULL(455,3699) - JVS(1798) = B(15521) -! JVS(1799) = Jac_FULL(455,5250) - JVS(1799) = B(18097)-B(18101)+B(18103) -! JVS(1800) = Jac_FULL(456,456) - JVS(1800) = -B(17709) -! JVS(1801) = Jac_FULL(456,5090) - JVS(1801) = B(15136)+B(15148) -! JVS(1802) = Jac_FULL(456,5250) - JVS(1802) = -B(17710) -! JVS(1803) = Jac_FULL(456,5255) - JVS(1803) = B(15137) -! JVS(1804) = Jac_FULL(457,457) - JVS(1804) = -B(17107) -! JVS(1805) = Jac_FULL(457,4953) - JVS(1805) = B(14456)+B(14467) -! JVS(1806) = Jac_FULL(457,5250) - JVS(1806) = -B(17108) -! JVS(1807) = Jac_FULL(457,5255) - JVS(1807) = B(14457) -! JVS(1808) = Jac_FULL(458,458) - JVS(1808) = -B(13866) -! JVS(1809) = Jac_FULL(458,5173) - JVS(1809) = B(10637) -! JVS(1810) = Jac_FULL(458,5250) - JVS(1810) = -B(13867) -! JVS(1811) = Jac_FULL(459,459) - JVS(1811) = -B(18597)-B(18599) -! JVS(1812) = Jac_FULL(459,3770) - JVS(1812) = B(16284) -! JVS(1813) = Jac_FULL(459,5250) - JVS(1813) = -B(18598) -! JVS(1814) = Jac_FULL(459,5255) - JVS(1814) = B(16285) -! JVS(1815) = Jac_FULL(460,460) - JVS(1815) = -B(4786) -! JVS(1816) = Jac_FULL(460,5138) - JVS(1816) = B(1963) -! JVS(1817) = Jac_FULL(460,5250) - JVS(1817) = -B(4787) -! JVS(1818) = Jac_FULL(461,461) - JVS(1818) = -B(12505) -! JVS(1819) = Jac_FULL(461,4591) - JVS(1819) = B(8900)+B(8911) -! JVS(1820) = Jac_FULL(461,5250) - JVS(1820) = -B(12506) -! JVS(1821) = Jac_FULL(461,5255) - JVS(1821) = B(8901) -! JVS(1822) = Jac_FULL(462,462) - JVS(1822) = -B(17288) -! JVS(1823) = Jac_FULL(462,3901) - JVS(1823) = B(14728) -! JVS(1824) = Jac_FULL(462,5250) - JVS(1824) = -B(17289) -! JVS(1825) = Jac_FULL(463,463) - JVS(1825) = -B(13615) -! JVS(1826) = Jac_FULL(463,5015) - JVS(1826) = B(10425) -! JVS(1827) = Jac_FULL(463,5250) - JVS(1827) = -B(13616) -! JVS(1828) = Jac_FULL(464,464) - JVS(1828) = -B(5760) -! JVS(1829) = Jac_FULL(464,3807) - JVS(1829) = B(2600) -! JVS(1830) = Jac_FULL(464,5250) - JVS(1830) = -B(5761) -! JVS(1831) = Jac_FULL(465,465) - JVS(1831) = -B(21963) -! JVS(1832) = Jac_FULL(465,4059) - JVS(1832) = B(20894) -! JVS(1833) = Jac_FULL(465,5250) - JVS(1833) = -B(21964) -! JVS(1834) = Jac_FULL(466,466) - JVS(1834) = -B(4625) -! JVS(1835) = Jac_FULL(466,5045) - JVS(1835) = B(1822) -! JVS(1836) = Jac_FULL(466,5250) - JVS(1836) = -B(4626) -! JVS(1837) = Jac_FULL(467,467) - JVS(1837) = -B(19494) -! JVS(1838) = Jac_FULL(467,4043) - JVS(1838) = B(17320) -! JVS(1839) = Jac_FULL(467,5250) - JVS(1839) = -B(19495) -! JVS(1840) = Jac_FULL(468,468) - JVS(1840) = -B(12094) -! JVS(1841) = Jac_FULL(468,3751) - JVS(1841) = B(8350) -! JVS(1842) = Jac_FULL(468,5250) - JVS(1842) = -B(12095) -! JVS(1843) = Jac_FULL(469,469) - JVS(1843) = -B(12076) -! JVS(1844) = Jac_FULL(469,3749) - JVS(1844) = B(8332) -! JVS(1845) = Jac_FULL(469,5250) - JVS(1845) = -B(12077) -! JVS(1846) = Jac_FULL(470,470) - JVS(1846) = -B(23459) -! JVS(1847) = Jac_FULL(470,4839) - JVS(1847) = B(23088)+B(23100) -! JVS(1848) = Jac_FULL(470,5250) - JVS(1848) = -B(23460) -! JVS(1849) = Jac_FULL(470,5255) - JVS(1849) = B(23089) -! JVS(1850) = Jac_FULL(471,471) - JVS(1850) = -B(13987) -! JVS(1851) = Jac_FULL(471,4219) - JVS(1851) = B(10780) -! JVS(1852) = Jac_FULL(471,5250) - JVS(1852) = -B(13988) -! JVS(1853) = Jac_FULL(472,359) - JVS(1853) = B(20754) -! JVS(1854) = Jac_FULL(472,472) - JVS(1854) = -B(20751)-B(20753) -! JVS(1855) = Jac_FULL(472,508) - JVS(1855) = B(20747) -! JVS(1856) = Jac_FULL(472,3710) - JVS(1856) = B(19157) -! JVS(1857) = Jac_FULL(472,5250) - JVS(1857) = B(20748)-B(20752)+B(20755) -! JVS(1858) = Jac_FULL(473,473) - JVS(1858) = -B(18967) -! JVS(1859) = Jac_FULL(473,4614) - JVS(1859) = B(16750) -! JVS(1860) = Jac_FULL(473,5250) - JVS(1860) = -B(18968) -! JVS(1861) = Jac_FULL(474,474) - JVS(1861) = -B(19845) -! JVS(1862) = Jac_FULL(474,4850) - JVS(1862) = B(17997)+B(18009) -! JVS(1863) = Jac_FULL(474,5250) - JVS(1863) = -B(19846) -! JVS(1864) = Jac_FULL(474,5255) - JVS(1864) = B(17998) -! JVS(1865) = Jac_FULL(475,475) - JVS(1865) = -B(10174)-B(10176) -! JVS(1866) = Jac_FULL(475,4400) - JVS(1866) = B(6471) -! JVS(1867) = Jac_FULL(475,5250) - JVS(1867) = -B(10175) -! JVS(1868) = Jac_FULL(476,476) - JVS(1868) = -B(23427) -! JVS(1869) = Jac_FULL(476,3743) - JVS(1869) = B(23039) -! JVS(1870) = Jac_FULL(476,5250) - JVS(1870) = -B(23428) -! JVS(1871) = Jac_FULL(477,477) - JVS(1871) = -B(2177)-B(2178) -! JVS(1872) = Jac_FULL(477,4601) - JVS(1872) = B(517) -! JVS(1873) = Jac_FULL(477,5258) - JVS(1873) = B(518) -! JVS(1874) = Jac_FULL(478,478) - JVS(1874) = -B(21984) -! JVS(1875) = Jac_FULL(478,3703) - JVS(1875) = B(20917) -! JVS(1876) = Jac_FULL(478,5250) - JVS(1876) = -B(21985) -! JVS(1877) = Jac_FULL(479,479) - JVS(1877) = -B(17596) -! JVS(1878) = Jac_FULL(479,4934) - JVS(1878) = B(15020)+B(15032) -! JVS(1879) = Jac_FULL(479,5250) - JVS(1879) = -B(17597) -! JVS(1880) = Jac_FULL(479,5255) - JVS(1880) = B(15021) -! JVS(1881) = Jac_FULL(480,480) - JVS(1881) = -B(6020) -! JVS(1882) = Jac_FULL(480,3525) - JVS(1882) = B(2728) -! JVS(1883) = Jac_FULL(480,5250) - JVS(1883) = -B(6021) -! JVS(1884) = Jac_FULL(481,481) - JVS(1884) = -B(23024) -! JVS(1885) = Jac_FULL(481,3908) - JVS(1885) = B(22593) -! JVS(1886) = Jac_FULL(481,5250) - JVS(1886) = -B(23025) -! JVS(1887) = Jac_FULL(482,482) - JVS(1887) = -B(23682) -! JVS(1888) = Jac_FULL(482,4120) - JVS(1888) = B(23416) -! JVS(1889) = Jac_FULL(482,5250) - JVS(1889) = -B(23683) -! JVS(1890) = Jac_FULL(483,483) - JVS(1890) = -B(16257) -! JVS(1891) = Jac_FULL(483,3474) - JVS(1891) = B(13220) -! JVS(1892) = Jac_FULL(483,5250) - JVS(1892) = -B(16258) -! JVS(1893) = Jac_FULL(483,5253) - JVS(1893) = B(13221) -! JVS(1894) = Jac_FULL(484,484) - JVS(1894) = -B(4241) -! JVS(1895) = Jac_FULL(484,4382) - JVS(1895) = B(1468) -! JVS(1896) = Jac_FULL(484,4932) - JVS(1896) = B(1481) -! JVS(1897) = Jac_FULL(484,5250) - JVS(1897) = -B(4242) -! JVS(1898) = Jac_FULL(485,485) - JVS(1898) = -B(16014) -! JVS(1899) = Jac_FULL(485,3696) - JVS(1899) = B(12934) -! JVS(1900) = Jac_FULL(485,5250) - JVS(1900) = -B(16015) -! JVS(1901) = Jac_FULL(486,486) - JVS(1901) = -B(4774) -! JVS(1902) = Jac_FULL(486,5107) - JVS(1902) = B(1952) -! JVS(1903) = Jac_FULL(486,5250) - JVS(1903) = -B(4775) -! JVS(1904) = Jac_FULL(487,487) - JVS(1904) = -B(9882)-B(9884) -! JVS(1905) = Jac_FULL(487,4568) - JVS(1905) = B(6172) -! JVS(1906) = Jac_FULL(487,5250) - JVS(1906) = -B(9883) -! JVS(1907) = Jac_FULL(488,488) - JVS(1907) = -B(11880) -! JVS(1908) = Jac_FULL(488,3873) - JVS(1908) = B(8157) -! JVS(1909) = Jac_FULL(488,3989) - JVS(1909) = B(8135) -! JVS(1910) = Jac_FULL(488,5250) - JVS(1910) = -B(11881) -! JVS(1911) = Jac_FULL(489,489) - JVS(1911) = -B(20977) -! JVS(1912) = Jac_FULL(489,5052) - JVS(1912) = B(19416)+B(19427) -! JVS(1913) = Jac_FULL(489,5250) - JVS(1913) = -B(20978) -! JVS(1914) = Jac_FULL(489,5255) - JVS(1914) = B(19417) -! JVS(1915) = Jac_FULL(490,212) - JVS(1915) = B(18090) -! JVS(1916) = Jac_FULL(490,490) - JVS(1916) = -B(18088) -! JVS(1917) = Jac_FULL(490,491) - JVS(1917) = B(18084) -! JVS(1918) = Jac_FULL(490,3740) - JVS(1918) = B(15505) -! JVS(1919) = Jac_FULL(490,5250) - JVS(1919) = B(18085)-B(18089)+B(18091) -! JVS(1920) = Jac_FULL(491,491) - JVS(1920) = -B(18084)-B(18086) -! JVS(1921) = Jac_FULL(491,3740) - JVS(1921) = B(15499) -! JVS(1922) = Jac_FULL(491,5250) - JVS(1922) = -B(18085) -! JVS(1923) = Jac_FULL(491,5255) - JVS(1923) = B(15500) -! JVS(1924) = Jac_FULL(492,492) - JVS(1924) = -B(20927) -! JVS(1925) = Jac_FULL(492,5006) - JVS(1925) = B(19361)+B(19373) -! JVS(1926) = Jac_FULL(492,5250) - JVS(1926) = -B(20928) -! JVS(1927) = Jac_FULL(492,5255) - JVS(1927) = B(19362) -! JVS(1928) = Jac_FULL(493,493) - JVS(1928) = -B(20744)-B(20746) -! JVS(1929) = Jac_FULL(493,4119) - JVS(1929) = B(19150) -! JVS(1930) = Jac_FULL(493,5250) - JVS(1930) = -B(20745) -! JVS(1931) = Jac_FULL(494,494) - JVS(1931) = -B(16473)-B(16475) -! JVS(1932) = Jac_FULL(494,4776) - JVS(1932) = B(13567) -! JVS(1933) = Jac_FULL(494,5250) - JVS(1933) = -B(16474) -! JVS(1934) = Jac_FULL(495,495) - JVS(1934) = -B(4425) -! JVS(1935) = Jac_FULL(495,5192) - JVS(1935) = B(1650) -! JVS(1936) = Jac_FULL(495,5250) - JVS(1936) = -B(4426) -! JVS(1937) = Jac_FULL(496,496) - JVS(1937) = -B(17264) -! JVS(1938) = Jac_FULL(496,4989) - JVS(1938) = B(14681)+B(14692) -! JVS(1939) = Jac_FULL(496,5250) - JVS(1939) = -B(17265) -! JVS(1940) = Jac_FULL(496,5255) - JVS(1940) = B(14682) -! JVS(1941) = Jac_FULL(497,497) - JVS(1941) = -B(11480) -! JVS(1942) = Jac_FULL(497,4785) - JVS(1942) = B(7676) -! JVS(1943) = Jac_FULL(497,5250) - JVS(1943) = -B(11481) -! JVS(1944) = Jac_FULL(498,498) - JVS(1944) = -B(11461) -! JVS(1945) = Jac_FULL(498,4374) - JVS(1945) = B(7624) -! JVS(1946) = Jac_FULL(498,5250) - JVS(1946) = -B(11462) -! JVS(1947) = Jac_FULL(499,499) - JVS(1947) = -B(21346) -! JVS(1948) = Jac_FULL(499,4770) - JVS(1948) = B(19976)+B(19988) -! JVS(1949) = Jac_FULL(499,5250) - JVS(1949) = -B(21347) -! JVS(1950) = Jac_FULL(499,5255) - JVS(1950) = B(19977) -! JVS(1951) = Jac_FULL(500,500) - JVS(1951) = -B(23907) -! JVS(1952) = Jac_FULL(500,4820) - JVS(1952) = B(23759) -! JVS(1953) = Jac_FULL(500,5250) - JVS(1953) = -B(23908) -! JVS(1954) = Jac_FULL(501,501) - JVS(1954) = -B(12166) -! JVS(1955) = Jac_FULL(501,3952) - JVS(1955) = B(8424) -! JVS(1956) = Jac_FULL(501,5250) - JVS(1956) = -B(12167) -! JVS(1957) = Jac_FULL(502,502) - JVS(1957) = -B(20797) -! JVS(1958) = Jac_FULL(502,3706) - JVS(1958) = B(19221) -! JVS(1959) = Jac_FULL(502,5250) - JVS(1959) = -B(20798) -! JVS(1960) = Jac_FULL(503,503) - JVS(1960) = -B(13158) -! JVS(1961) = Jac_FULL(503,4139) - JVS(1961) = B(9705)+B(9716) -! JVS(1962) = Jac_FULL(503,5250) - JVS(1962) = -B(13159) -! JVS(1963) = Jac_FULL(503,5255) - JVS(1963) = B(9706) -! JVS(1964) = Jac_FULL(504,504) - JVS(1964) = -B(4604) -! JVS(1965) = Jac_FULL(504,5061) - JVS(1965) = B(1802) -! JVS(1966) = Jac_FULL(504,5250) - JVS(1966) = -B(4605) -! JVS(1967) = Jac_FULL(505,505) - JVS(1967) = -B(6426) -! JVS(1968) = Jac_FULL(505,3819) - JVS(1968) = B(2918) -! JVS(1969) = Jac_FULL(505,5250) - JVS(1969) = -B(6427) -! JVS(1970) = Jac_FULL(506,506) - JVS(1970) = -B(23347) -! JVS(1971) = Jac_FULL(506,4636) - JVS(1971) = B(22934)+B(22946) -! JVS(1972) = Jac_FULL(506,5250) - JVS(1972) = -B(23348) -! JVS(1973) = Jac_FULL(506,5255) - JVS(1973) = B(22935) -! JVS(1974) = Jac_FULL(507,507) - JVS(1974) = -B(19477) -! JVS(1975) = Jac_FULL(507,4738) - JVS(1975) = B(17296)+B(17308) -! JVS(1976) = Jac_FULL(507,5250) - JVS(1976) = -B(19478) -! JVS(1977) = Jac_FULL(507,5255) - JVS(1977) = B(17297) -! JVS(1978) = Jac_FULL(508,508) - JVS(1978) = -B(20747)-B(20749) -! JVS(1979) = Jac_FULL(508,3710) - JVS(1979) = B(19151) -! JVS(1980) = Jac_FULL(508,5250) - JVS(1980) = -B(20748) -! JVS(1981) = Jac_FULL(508,5255) - JVS(1981) = B(19152) -! JVS(1982) = Jac_FULL(509,509) - JVS(1982) = -B(18451) -! JVS(1983) = Jac_FULL(509,3983) - JVS(1983) = B(16068) -! JVS(1984) = Jac_FULL(509,5250) - JVS(1984) = -B(18452) -! JVS(1985) = Jac_FULL(510,509) - JVS(1985) = B(18451) -! JVS(1986) = Jac_FULL(510,510) - JVS(1986) = -B(18449) -! JVS(1987) = Jac_FULL(510,1359) - JVS(1987) = B(18445) -! JVS(1988) = Jac_FULL(510,3983) - JVS(1988) = B(16066) -! JVS(1989) = Jac_FULL(510,5250) - JVS(1989) = B(18446)-B(18450)+B(18452) -! JVS(1990) = Jac_FULL(511,511) - JVS(1990) = -B(21046) -! JVS(1991) = Jac_FULL(511,3890) - JVS(1991) = B(19476) -! JVS(1992) = Jac_FULL(511,5250) - JVS(1992) = -B(21047) -! JVS(1993) = Jac_FULL(512,512) - JVS(1993) = -B(16770) -! JVS(1994) = Jac_FULL(512,4612) - JVS(1994) = B(13978) -! JVS(1995) = Jac_FULL(512,5250) - JVS(1995) = -B(16771) -! JVS(1996) = Jac_FULL(513,513) - JVS(1996) = -B(16437) -! JVS(1997) = Jac_FULL(513,4920) - JVS(1997) = B(13410) -! JVS(1998) = Jac_FULL(513,5250) - JVS(1998) = -B(16438) -! JVS(1999) = Jac_FULL(514,514) - JVS(1999) = -B(6852)-B(6853) -! JVS(2000) = Jac_FULL(514,4794) - JVS(2000) = B(3139) -! JVS(2001) = Jac_FULL(514,5258) - JVS(2001) = B(3140) -! JVS(2002) = Jac_FULL(515,515) - JVS(2002) = -B(21992) -! JVS(2003) = Jac_FULL(515,5044) - JVS(2003) = B(20944)+B(20955) -! JVS(2004) = Jac_FULL(515,5250) - JVS(2004) = -B(21993) -! JVS(2005) = Jac_FULL(515,5255) - JVS(2005) = B(20945) -! JVS(2006) = Jac_FULL(516,516) - JVS(2006) = -B(14332) -! JVS(2007) = Jac_FULL(516,4089) - JVS(2007) = B(11111) -! JVS(2008) = Jac_FULL(516,5250) - JVS(2008) = -B(14333) -! JVS(2009) = Jac_FULL(517,517) - JVS(2009) = -B(5210) -! JVS(2010) = Jac_FULL(517,4399) - JVS(2010) = B(2350) -! JVS(2011) = Jac_FULL(517,5250) - JVS(2011) = -B(5211) -! JVS(2012) = Jac_FULL(518,518) - JVS(2012) = -B(18096)-B(18098) -! JVS(2013) = Jac_FULL(518,3699) - JVS(2013) = B(15515) -! JVS(2014) = Jac_FULL(518,5250) - JVS(2014) = -B(18097) -! JVS(2015) = Jac_FULL(518,5255) - JVS(2015) = B(15516) -! JVS(2016) = Jac_FULL(519,519) - JVS(2016) = -B(17741) -! JVS(2017) = Jac_FULL(519,4523) - JVS(2017) = B(15175)+B(15187) -! JVS(2018) = Jac_FULL(519,5250) - JVS(2018) = -B(17742) -! JVS(2019) = Jac_FULL(519,5255) - JVS(2019) = B(15176) -! JVS(2020) = Jac_FULL(520,520) - JVS(2020) = -B(23560)-B(23562) -! JVS(2021) = Jac_FULL(520,4157) - JVS(2021) = B(23262) -! JVS(2022) = Jac_FULL(520,5250) - JVS(2022) = -B(23561) -! JVS(2023) = Jac_FULL(521,521) - JVS(2023) = -B(18319)-B(18321) -! JVS(2024) = Jac_FULL(521,3675) - JVS(2024) = B(15862) -! JVS(2025) = Jac_FULL(521,5250) - JVS(2025) = -B(18320) -! JVS(2026) = Jac_FULL(521,5255) - JVS(2026) = B(15863) -! JVS(2027) = Jac_FULL(522,522) - JVS(2027) = -B(14742)-B(14743) -! JVS(2028) = Jac_FULL(522,5207) - JVS(2028) = B(11392) -! JVS(2029) = Jac_FULL(522,5258) - JVS(2029) = B(11393) -! JVS(2030) = Jac_FULL(523,523) - JVS(2030) = -B(6118) -! JVS(2031) = Jac_FULL(523,4055) - JVS(2031) = B(2780) -! JVS(2032) = Jac_FULL(523,5250) - JVS(2032) = -B(6119) -! JVS(2033) = Jac_FULL(524,524) - JVS(2033) = -B(12148) -! JVS(2034) = Jac_FULL(524,3691) - JVS(2034) = B(8404) -! JVS(2035) = Jac_FULL(524,5250) - JVS(2035) = -B(12149) -! JVS(2036) = Jac_FULL(525,525) - JVS(2036) = -B(12112) -! JVS(2037) = Jac_FULL(525,3731) - JVS(2037) = B(8368) -! JVS(2038) = Jac_FULL(525,5250) - JVS(2038) = -B(12113) -! JVS(2039) = Jac_FULL(526,526) - JVS(2039) = -B(20650)-B(20652) -! JVS(2040) = Jac_FULL(526,4189) - JVS(2040) = B(19075) -! JVS(2041) = Jac_FULL(526,5250) - JVS(2041) = -B(20651) -! JVS(2042) = Jac_FULL(527,527) - JVS(2042) = -B(22920)-B(22922) -! JVS(2043) = Jac_FULL(527,3750) - JVS(2043) = B(22460) -! JVS(2044) = Jac_FULL(527,5250) - JVS(2044) = -B(22921) -! JVS(2045) = Jac_FULL(528,528) - JVS(2045) = -B(17979) -! JVS(2046) = Jac_FULL(528,2411) - JVS(2046) = B(17976) -! JVS(2047) = Jac_FULL(528,3916) - JVS(2047) = B(15370)+B(15372)+B(15374) -! JVS(2048) = Jac_FULL(528,5252) - JVS(2048) = B(15371) -! JVS(2049) = Jac_FULL(528,5256) - JVS(2049) = B(15373) -! JVS(2050) = Jac_FULL(529,529) - JVS(2050) = -B(10442)-B(10443) -! JVS(2051) = Jac_FULL(529,5069) - JVS(2051) = B(6713) -! JVS(2052) = Jac_FULL(529,5258) - JVS(2052) = B(6714) -! JVS(2053) = Jac_FULL(530,530) - JVS(2053) = -B(23630) -! JVS(2054) = Jac_FULL(530,4117) - JVS(2054) = B(23373) -! JVS(2055) = Jac_FULL(530,5250) - JVS(2055) = -B(23631) -! JVS(2056) = Jac_FULL(531,531) - JVS(2056) = -B(9589)-B(9591) -! JVS(2057) = Jac_FULL(531,4928) - JVS(2057) = B(5922) -! JVS(2058) = Jac_FULL(531,5250) - JVS(2058) = -B(9590) -! JVS(2059) = Jac_FULL(532,532) - JVS(2059) = -B(11479) -! JVS(2060) = Jac_FULL(532,2693) - JVS(2060) = B(11472) -! JVS(2061) = Jac_FULL(532,4785) - JVS(2061) = B(7671)+B(7673)+B(7675) -! JVS(2062) = Jac_FULL(532,5252) - JVS(2062) = B(7672) -! JVS(2063) = Jac_FULL(532,5256) - JVS(2063) = B(7674) -! JVS(2064) = Jac_FULL(533,533) - JVS(2064) = -B(10470) -! JVS(2065) = Jac_FULL(533,3514) - JVS(2065) = B(10467) -! JVS(2066) = Jac_FULL(533,5016) - JVS(2066) = B(6738)+B(6740)+B(6743) -! JVS(2067) = Jac_FULL(533,5252) - JVS(2067) = B(6739) -! JVS(2068) = Jac_FULL(533,5256) - JVS(2068) = B(6741) -! JVS(2069) = Jac_FULL(534,534) - JVS(2069) = -B(17786) -! JVS(2070) = Jac_FULL(534,2016) - JVS(2070) = B(17783) -! JVS(2071) = Jac_FULL(534,3941) - JVS(2071) = B(15209)+B(15211)+B(15213) -! JVS(2072) = Jac_FULL(534,5252) - JVS(2072) = B(15210) -! JVS(2073) = Jac_FULL(534,5256) - JVS(2073) = B(15212) -! JVS(2074) = Jac_FULL(535,535) - JVS(2074) = -B(18083) -! JVS(2075) = Jac_FULL(535,1943) - JVS(2075) = B(18082) -! JVS(2076) = Jac_FULL(535,4163) - JVS(2076) = B(15494)+B(15496)+B(15498) -! JVS(2077) = Jac_FULL(535,5252) - JVS(2077) = B(15495) -! JVS(2078) = Jac_FULL(535,5256) - JVS(2078) = B(15497) -! JVS(2079) = Jac_FULL(536,536) - JVS(2079) = -B(14663) -! JVS(2080) = Jac_FULL(536,3990) - JVS(2080) = B(11342) -! JVS(2081) = Jac_FULL(536,5250) - JVS(2081) = -B(14664) -! JVS(2082) = Jac_FULL(537,537) - JVS(2082) = -B(23858) -! JVS(2083) = Jac_FULL(537,1890) - JVS(2083) = B(23857) -! JVS(2084) = Jac_FULL(537,4226) - JVS(2084) = B(23686)+B(23688)+B(23691) -! JVS(2085) = Jac_FULL(537,5252) - JVS(2085) = B(23687) -! JVS(2086) = Jac_FULL(537,5256) - JVS(2086) = B(23689) -! JVS(2087) = Jac_FULL(538,538) - JVS(2087) = -B(9410) -! JVS(2088) = Jac_FULL(538,3701) - JVS(2088) = B(5787) -! JVS(2089) = Jac_FULL(538,5258) - JVS(2089) = B(5788) -! JVS(2090) = Jac_FULL(539,539) - JVS(2090) = -B(17893) -! JVS(2091) = Jac_FULL(539,2316) - JVS(2091) = B(17890) -! JVS(2092) = Jac_FULL(539,3977) - JVS(2092) = B(15293)+B(15295)+B(15297) -! JVS(2093) = Jac_FULL(539,5252) - JVS(2093) = B(15294) -! JVS(2094) = Jac_FULL(539,5256) - JVS(2094) = B(15296) -! JVS(2095) = Jac_FULL(540,540) - JVS(2095) = -B(7472) -! JVS(2096) = Jac_FULL(540,3994) - JVS(2096) = B(3563) -! JVS(2097) = Jac_FULL(540,5250) - JVS(2097) = -B(7473) -! JVS(2098) = Jac_FULL(541,541) - JVS(2098) = -B(19079) -! JVS(2099) = Jac_FULL(541,2423) - JVS(2099) = B(19078) -! JVS(2100) = Jac_FULL(541,3905) - JVS(2100) = B(16882)+B(16884)+B(16886) -! JVS(2101) = Jac_FULL(541,5252) - JVS(2101) = B(16883) -! JVS(2102) = Jac_FULL(541,5256) - JVS(2102) = B(16885) -! JVS(2103) = Jac_FULL(542,542) - JVS(2103) = -B(18192)-B(18194) -! JVS(2104) = Jac_FULL(542,2482) - JVS(2104) = B(15700) -! JVS(2105) = Jac_FULL(542,5250) - JVS(2105) = B(15701)-B(18193) -! JVS(2106) = Jac_FULL(543,543) - JVS(2106) = -B(22964) -! JVS(2107) = Jac_FULL(543,3895) - JVS(2107) = B(22553) -! JVS(2108) = Jac_FULL(543,5250) - JVS(2108) = -B(22965) -! JVS(2109) = Jac_FULL(544,544) - JVS(2109) = -B(23945) -! JVS(2110) = Jac_FULL(544,2437) - JVS(2110) = B(23943) -! JVS(2111) = Jac_FULL(544,4116) - JVS(2111) = B(23826)+B(23828)+B(23830) -! JVS(2112) = Jac_FULL(544,5252) - JVS(2112) = B(23827) -! JVS(2113) = Jac_FULL(544,5256) - JVS(2113) = B(23829) -! JVS(2114) = Jac_FULL(545,545) - JVS(2114) = -B(22161) -! JVS(2115) = Jac_FULL(545,1759) - JVS(2115) = B(22157) -! JVS(2116) = Jac_FULL(545,4274) - JVS(2116) = B(21169)+B(21171)+B(21173) -! JVS(2117) = Jac_FULL(545,5252) - JVS(2117) = B(21170) -! JVS(2118) = Jac_FULL(545,5256) - JVS(2118) = B(21172) -! JVS(2119) = Jac_FULL(546,546) - JVS(2119) = -B(11730)-B(11732) -! JVS(2120) = Jac_FULL(546,3885) - JVS(2120) = B(8005) -! JVS(2121) = Jac_FULL(546,5250) - JVS(2121) = -B(11731)-B(11733) -! JVS(2122) = Jac_FULL(547,547) - JVS(2122) = -B(23446)-B(23448) -! JVS(2123) = Jac_FULL(547,5130) - JVS(2123) = B(23078) -! JVS(2124) = Jac_FULL(547,5250) - JVS(2124) = -B(23447) -! JVS(2125) = Jac_FULL(548,548) - JVS(2125) = -B(391)-B(393)-B(395)-B(397) -! JVS(2126) = Jac_FULL(548,5238) - JVS(2126) = -B(392)-B(394) -! JVS(2127) = Jac_FULL(548,5250) - JVS(2127) = -B(396)-B(398) -! JVS(2128) = Jac_FULL(549,549) - JVS(2128) = -B(17178) -! JVS(2129) = Jac_FULL(549,2407) - JVS(2129) = B(17175) -! JVS(2130) = Jac_FULL(549,3872) - JVS(2130) = B(14524)+B(14526)+B(14528) -! JVS(2131) = Jac_FULL(549,5252) - JVS(2131) = B(14525) -! JVS(2132) = Jac_FULL(549,5256) - JVS(2132) = B(14527) -! JVS(2133) = Jac_FULL(550,550) - JVS(2133) = -B(16427) -! JVS(2134) = Jac_FULL(550,2267) - JVS(2134) = B(16426) -! JVS(2135) = Jac_FULL(550,3687) - JVS(2135) = B(13397)+B(13399)+B(13401) -! JVS(2136) = Jac_FULL(550,5252) - JVS(2136) = B(13398) -! JVS(2137) = Jac_FULL(550,5256) - JVS(2137) = B(13400) -! JVS(2138) = Jac_FULL(551,551) - JVS(2138) = -B(12301) -! JVS(2139) = Jac_FULL(551,2466) - JVS(2139) = B(12300) -! JVS(2140) = Jac_FULL(551,4889) - JVS(2140) = B(8628)+B(8630)+B(8632) -! JVS(2141) = Jac_FULL(551,5252) - JVS(2141) = B(8629) -! JVS(2142) = Jac_FULL(551,5256) - JVS(2142) = B(8631) -! JVS(2143) = Jac_FULL(552,552) - JVS(2143) = -B(6612) -! JVS(2144) = Jac_FULL(552,969) - JVS(2144) = B(6609) -! JVS(2145) = Jac_FULL(552,3636) - JVS(2145) = B(3030)+B(3032)+B(3034) -! JVS(2146) = Jac_FULL(552,5252) - JVS(2146) = B(3031) -! JVS(2147) = Jac_FULL(552,5256) - JVS(2147) = B(3033) -! JVS(2148) = Jac_FULL(553,553) - JVS(2148) = -B(21866) -! JVS(2149) = Jac_FULL(553,2017) - JVS(2149) = B(21865) -! JVS(2150) = Jac_FULL(553,4150) - JVS(2150) = B(20816)+B(20818)+B(20821) -! JVS(2151) = Jac_FULL(553,5252) - JVS(2151) = B(20817) -! JVS(2152) = Jac_FULL(553,5256) - JVS(2152) = B(20819) -! JVS(2153) = Jac_FULL(554,554) - JVS(2153) = -B(17643)-B(17644) -! JVS(2154) = Jac_FULL(554,4128) - JVS(2154) = B(15078) -! JVS(2155) = Jac_FULL(554,5250) - JVS(2155) = -B(17645) -! JVS(2156) = Jac_FULL(555,555) - JVS(2156) = -B(18283) -! JVS(2157) = Jac_FULL(555,2091) - JVS(2157) = B(18282) -! JVS(2158) = Jac_FULL(555,4025) - JVS(2158) = B(15814)+B(15816)+B(15818) -! JVS(2159) = Jac_FULL(555,5252) - JVS(2159) = B(15815) -! JVS(2160) = Jac_FULL(555,5256) - JVS(2160) = B(15817) -! JVS(2161) = Jac_FULL(556,556) - JVS(2161) = -B(17060) -! JVS(2162) = Jac_FULL(556,3850) - JVS(2162) = B(14426) -! JVS(2163) = Jac_FULL(556,5250) - JVS(2163) = -B(17061) -! JVS(2164) = Jac_FULL(557,557) - JVS(2164) = -B(14201) -! JVS(2165) = Jac_FULL(557,1935) - JVS(2165) = B(14200) -! JVS(2166) = Jac_FULL(557,4158) - JVS(2166) = B(11014)+B(11016)+B(11018) -! JVS(2167) = Jac_FULL(557,5252) - JVS(2167) = B(11015) -! JVS(2168) = Jac_FULL(557,5256) - JVS(2168) = B(11017) -! JVS(2169) = Jac_FULL(558,558) - JVS(2169) = -B(10638)-B(10639) -! JVS(2170) = Jac_FULL(558,4096) - JVS(2170) = B(6835) -! JVS(2171) = Jac_FULL(558,5258) - JVS(2171) = B(6836) -! JVS(2172) = Jac_FULL(559,559) - JVS(2172) = -B(23802)-B(23804) -! JVS(2173) = Jac_FULL(559,4346) - JVS(2173) = B(23590) -! JVS(2174) = Jac_FULL(559,5250) - JVS(2174) = -B(23803) -! JVS(2175) = Jac_FULL(560,560) - JVS(2175) = -B(10129) -! JVS(2176) = Jac_FULL(560,3551) - JVS(2176) = B(6415) -! JVS(2177) = Jac_FULL(560,5258) - JVS(2177) = B(6416) -! JVS(2178) = Jac_FULL(561,303) - JVS(2178) = B(16965) -! JVS(2179) = Jac_FULL(561,561) - JVS(2179) = -B(16963) -! JVS(2180) = Jac_FULL(561,562) - JVS(2180) = B(16956) -! JVS(2181) = Jac_FULL(561,1284) - JVS(2181) = B(16959) -! JVS(2182) = Jac_FULL(561,3720) - JVS(2182) = B(14358) -! JVS(2183) = Jac_FULL(561,5250) - JVS(2183) = B(16957)+B(16960)-B(16964)+B(16966) -! JVS(2184) = Jac_FULL(562,562) - JVS(2184) = -B(16956)-B(16958) -! JVS(2185) = Jac_FULL(562,3720) - JVS(2185) = B(14350) -! JVS(2186) = Jac_FULL(562,5250) - JVS(2186) = -B(16957) -! JVS(2187) = Jac_FULL(562,5255) - JVS(2187) = B(14351) -! JVS(2188) = Jac_FULL(563,563) - JVS(2188) = -B(10413)-B(10414) -! JVS(2189) = Jac_FULL(563,5168) - JVS(2189) = B(6704) -! JVS(2190) = Jac_FULL(563,5258) - JVS(2190) = B(6705) -! JVS(2191) = Jac_FULL(564,564) - JVS(2191) = -B(19669) -! JVS(2192) = Jac_FULL(564,3078) - JVS(2192) = B(19666) -! JVS(2193) = Jac_FULL(564,4584) - JVS(2193) = B(17771)+B(17773)+B(17776) -! JVS(2194) = Jac_FULL(564,5252) - JVS(2194) = B(17772) -! JVS(2195) = Jac_FULL(564,5256) - JVS(2195) = B(17774) -! JVS(2196) = Jac_FULL(565,565) - JVS(2196) = -B(8884)-B(8886) -! JVS(2197) = Jac_FULL(565,4821) - JVS(2197) = B(5373) -! JVS(2198) = Jac_FULL(565,5250) - JVS(2198) = -B(8885) -! JVS(2199) = Jac_FULL(566,566) - JVS(2199) = -B(371)-B(373)-B(375)-B(377) -! JVS(2200) = Jac_FULL(566,5238) - JVS(2200) = -B(372)-B(374) -! JVS(2201) = Jac_FULL(566,5250) - JVS(2201) = -B(376)-B(378) -! JVS(2202) = Jac_FULL(567,567) - JVS(2202) = -B(23951)-B(23953) -! JVS(2203) = Jac_FULL(567,4343) - JVS(2203) = B(23854) -! JVS(2204) = Jac_FULL(567,5250) - JVS(2204) = -B(23952) -! JVS(2205) = Jac_FULL(568,568) - JVS(2205) = -B(9294) -! JVS(2206) = Jac_FULL(568,3831) - JVS(2206) = B(5696) -! JVS(2207) = Jac_FULL(568,5258) - JVS(2207) = B(5697) -! JVS(2208) = Jac_FULL(569,569) - JVS(2208) = -B(9249) -! JVS(2209) = Jac_FULL(569,3512) - JVS(2209) = B(5656) -! JVS(2210) = Jac_FULL(569,5258) - JVS(2210) = B(5657) -! JVS(2211) = Jac_FULL(570,570) - JVS(2211) = -B(19827) -! JVS(2212) = Jac_FULL(570,2121) - JVS(2212) = B(19823) -! JVS(2213) = Jac_FULL(570,4361) - JVS(2213) = B(17969)+B(17971)+B(17973) -! JVS(2214) = Jac_FULL(570,5252) - JVS(2214) = B(17970) -! JVS(2215) = Jac_FULL(570,5256) - JVS(2215) = B(17972) -! JVS(2216) = Jac_FULL(571,571) - JVS(2216) = -B(17843) -! JVS(2217) = Jac_FULL(571,2095) - JVS(2217) = B(17840) -! JVS(2218) = Jac_FULL(571,3871) - JVS(2218) = B(15247)+B(15249)+B(15251) -! JVS(2219) = Jac_FULL(571,5252) - JVS(2219) = B(15248) -! JVS(2220) = Jac_FULL(571,5256) - JVS(2220) = B(15250) -! JVS(2221) = Jac_FULL(572,572) - JVS(2221) = -B(13473)-B(13475) -! JVS(2222) = Jac_FULL(572,4277) - JVS(2222) = B(10278) -! JVS(2223) = Jac_FULL(572,5250) - JVS(2223) = -B(13474) -! JVS(2224) = Jac_FULL(573,573) - JVS(2224) = -B(5193) -! JVS(2225) = Jac_FULL(573,2068) - JVS(2225) = B(5192) -! JVS(2226) = Jac_FULL(573,3671) - JVS(2226) = B(2323)+B(2325)+B(2327) -! JVS(2227) = Jac_FULL(573,5252) - JVS(2227) = B(2324) -! JVS(2228) = Jac_FULL(573,5256) - JVS(2228) = B(2326) -! JVS(2229) = Jac_FULL(574,574) - JVS(2229) = -B(18023) -! JVS(2230) = Jac_FULL(574,2205) - JVS(2230) = B(18020) -! JVS(2231) = Jac_FULL(574,3880) - JVS(2231) = B(15398)+B(15400)+B(15402) -! JVS(2232) = Jac_FULL(574,5252) - JVS(2232) = B(15399) -! JVS(2233) = Jac_FULL(574,5256) - JVS(2233) = B(15401) -! JVS(2234) = Jac_FULL(575,575) - JVS(2234) = -B(19857) -! JVS(2235) = Jac_FULL(575,2221) - JVS(2235) = B(19853) -! JVS(2236) = Jac_FULL(575,4355) - JVS(2236) = B(18013)+B(18015)+B(18017) -! JVS(2237) = Jac_FULL(575,5252) - JVS(2237) = B(18014) -! JVS(2238) = Jac_FULL(575,5256) - JVS(2238) = B(18016) -! JVS(2239) = Jac_FULL(576,576) - JVS(2239) = -B(16362)-B(16364) -! JVS(2240) = Jac_FULL(576,4703) - JVS(2240) = B(13339) -! JVS(2241) = Jac_FULL(576,5250) - JVS(2241) = -B(16363) -! JVS(2242) = Jac_FULL(577,577) - JVS(2242) = -B(7220)-B(7221) -! JVS(2243) = Jac_FULL(577,3836) - JVS(2243) = B(3395) -! JVS(2244) = Jac_FULL(577,5250) - JVS(2244) = -B(7222) -! JVS(2245) = Jac_FULL(578,578) - JVS(2245) = -B(4013) -! JVS(2246) = Jac_FULL(578,3198) - JVS(2246) = B(4007) -! JVS(2247) = Jac_FULL(578,3888) - JVS(2247) = B(8568) -! JVS(2248) = Jac_FULL(578,4585) - JVS(2248) = B(1236) -! JVS(2249) = Jac_FULL(578,5250) - JVS(2249) = B(4008)-B(4014) -! JVS(2250) = Jac_FULL(579,579) - JVS(2250) = -B(7780)-B(7782) -! JVS(2251) = Jac_FULL(579,3755) - JVS(2251) = B(4067) -! JVS(2252) = Jac_FULL(579,5250) - JVS(2252) = B(4068)-B(7781) -! JVS(2253) = Jac_FULL(580,580) - JVS(2253) = -B(14637) -! JVS(2254) = Jac_FULL(580,4541) - JVS(2254) = B(11328) -! JVS(2255) = Jac_FULL(580,5250) - JVS(2255) = -B(14638) -! JVS(2256) = Jac_FULL(581,581) - JVS(2256) = -B(22369) -! JVS(2257) = Jac_FULL(581,2404) - JVS(2257) = B(22368) -! JVS(2258) = Jac_FULL(581,4560) - JVS(2258) = B(21741)+B(21743)+B(21745) -! JVS(2259) = Jac_FULL(581,5252) - JVS(2259) = B(21742) -! JVS(2260) = Jac_FULL(581,5256) - JVS(2260) = B(21744) -! JVS(2261) = Jac_FULL(582,582) - JVS(2261) = -B(21717) -! JVS(2262) = Jac_FULL(582,1888) - JVS(2262) = B(21716) -! JVS(2263) = Jac_FULL(582,4268) - JVS(2263) = B(20691)+B(20693)+B(20695) -! JVS(2264) = Jac_FULL(582,5252) - JVS(2264) = B(20692) -! JVS(2265) = Jac_FULL(582,5256) - JVS(2265) = B(20694) -! JVS(2266) = Jac_FULL(583,583) - JVS(2266) = -B(22320)-B(22322) -! JVS(2267) = Jac_FULL(583,4190) - JVS(2267) = B(21699) -! JVS(2268) = Jac_FULL(583,5250) - JVS(2268) = -B(22321) -! JVS(2269) = Jac_FULL(584,584) - JVS(2269) = -B(16190) -! JVS(2270) = Jac_FULL(584,2417) - JVS(2270) = B(16189) -! JVS(2271) = Jac_FULL(584,4416) - JVS(2271) = B(13123)+B(13125)+B(13127) -! JVS(2272) = Jac_FULL(584,5252) - JVS(2272) = B(13124) -! JVS(2273) = Jac_FULL(584,5256) - JVS(2273) = B(13126) -! JVS(2274) = Jac_FULL(585,585) - JVS(2274) = -B(17217) -! JVS(2275) = Jac_FULL(585,1863) - JVS(2275) = B(17215) -! JVS(2276) = Jac_FULL(585,4761) - JVS(2276) = B(14596)+B(14598)+B(14601) -! JVS(2277) = Jac_FULL(585,5252) - JVS(2277) = B(14597) -! JVS(2278) = Jac_FULL(585,5256) - JVS(2278) = B(14599) -! JVS(2279) = Jac_FULL(586,586) - JVS(2279) = -B(14128)-B(14129) -! JVS(2280) = Jac_FULL(586,4646) - JVS(2280) = B(10931) -! JVS(2281) = Jac_FULL(586,5250) - JVS(2281) = -B(14130) -! JVS(2282) = Jac_FULL(587,587) - JVS(2282) = -B(17019) -! JVS(2283) = Jac_FULL(587,3876) - JVS(2283) = B(14408) -! JVS(2284) = Jac_FULL(587,5250) - JVS(2284) = -B(17020) -! JVS(2285) = Jac_FULL(588,588) - JVS(2285) = -B(383)-B(385)-B(387)-B(389) -! JVS(2286) = Jac_FULL(588,5238) - JVS(2286) = -B(384)-B(386) -! JVS(2287) = Jac_FULL(588,5250) - JVS(2287) = -B(388)-B(390) -! JVS(2288) = Jac_FULL(589,589) - JVS(2288) = -B(10303) -! JVS(2289) = Jac_FULL(589,2137) - JVS(2289) = B(10302) -! JVS(2290) = Jac_FULL(589,4813) - JVS(2290) = B(6574)+B(6576)+B(6578) -! JVS(2291) = Jac_FULL(589,5252) - JVS(2291) = B(6575) -! JVS(2292) = Jac_FULL(589,5256) - JVS(2292) = B(6577) -! JVS(2293) = Jac_FULL(590,590) - JVS(2293) = -B(17531)-B(17532) -! JVS(2294) = Jac_FULL(590,4735) - JVS(2294) = B(14971) -! JVS(2295) = Jac_FULL(590,5250) - JVS(2295) = -B(17533) -! JVS(2296) = Jac_FULL(591,591) - JVS(2296) = -B(7732)-B(7734) -! JVS(2297) = Jac_FULL(591,3653) - JVS(2297) = B(3931) -! JVS(2298) = Jac_FULL(591,5250) - JVS(2298) = B(3932)-B(7733) -! JVS(2299) = Jac_FULL(592,592) - JVS(2299) = -B(15732) -! JVS(2300) = Jac_FULL(592,1854) - JVS(2300) = B(15731) -! JVS(2301) = Jac_FULL(592,4550) - JVS(2301) = B(12662)+B(12664)+B(12666) -! JVS(2302) = Jac_FULL(592,5252) - JVS(2302) = B(12663) -! JVS(2303) = Jac_FULL(592,5256) - JVS(2303) = B(12665) -! JVS(2304) = Jac_FULL(593,347) - JVS(2304) = B(20780) -! JVS(2305) = Jac_FULL(593,593) - JVS(2305) = -B(20778) -! JVS(2306) = Jac_FULL(593,594) - JVS(2306) = B(20774) -! JVS(2307) = Jac_FULL(593,2515) - JVS(2307) = B(20771) -! JVS(2308) = Jac_FULL(593,4077) - JVS(2308) = B(19190) -! JVS(2309) = Jac_FULL(593,5250) - JVS(2309) = B(20772)+B(20775)-B(20779)+B(20781) -! JVS(2310) = Jac_FULL(594,594) - JVS(2310) = -B(20774)-B(20776) -! JVS(2311) = Jac_FULL(594,4077) - JVS(2311) = B(19184) -! JVS(2312) = Jac_FULL(594,5250) - JVS(2312) = -B(20775) -! JVS(2313) = Jac_FULL(594,5255) - JVS(2313) = B(19185) -! JVS(2314) = Jac_FULL(595,595) - JVS(2314) = -B(13488) -! JVS(2315) = Jac_FULL(595,1917) - JVS(2315) = B(13484) -! JVS(2316) = Jac_FULL(595,4589) - JVS(2316) = B(10312)+B(10314)+B(10317) -! JVS(2317) = Jac_FULL(595,5252) - JVS(2317) = B(10313) -! JVS(2318) = Jac_FULL(595,5256) - JVS(2318) = B(10315) -! JVS(2319) = Jac_FULL(596,596) - JVS(2319) = -B(17782) -! JVS(2320) = Jac_FULL(596,1937) - JVS(2320) = B(17778) -! JVS(2321) = Jac_FULL(596,3912) - JVS(2321) = B(15202)+B(15204)+B(15206) -! JVS(2322) = Jac_FULL(596,5252) - JVS(2322) = B(15203) -! JVS(2323) = Jac_FULL(596,5256) - JVS(2323) = B(15205) -! JVS(2324) = Jac_FULL(597,597) - JVS(2324) = -B(18596) -! JVS(2325) = Jac_FULL(597,2368) - JVS(2325) = B(18595) -! JVS(2326) = Jac_FULL(597,4153) - JVS(2326) = B(16279)+B(16281)+B(16283) -! JVS(2327) = Jac_FULL(597,5252) - JVS(2327) = B(16280) -! JVS(2328) = Jac_FULL(597,5256) - JVS(2328) = B(16282) -! JVS(2329) = Jac_FULL(598,598) - JVS(2329) = -B(142)-B(144) -! JVS(2330) = Jac_FULL(598,5181) - JVS(2330) = B(1984) -! JVS(2331) = Jac_FULL(598,5250) - JVS(2331) = -B(143)-B(145) -! JVS(2332) = Jac_FULL(599,599) - JVS(2332) = -B(11092)-B(11094) -! JVS(2333) = Jac_FULL(599,5198) - JVS(2333) = B(7291) -! JVS(2334) = Jac_FULL(599,5250) - JVS(2334) = -B(11093) -! JVS(2335) = Jac_FULL(600,600) - JVS(2335) = -B(14055) -! JVS(2336) = Jac_FULL(600,2424) - JVS(2336) = B(14054) -! JVS(2337) = Jac_FULL(600,4169) - JVS(2337) = B(10857)+B(10859)+B(10863) -! JVS(2338) = Jac_FULL(600,5252) - JVS(2338) = B(10858) -! JVS(2339) = Jac_FULL(600,5256) - JVS(2339) = B(10860) -! JVS(2340) = Jac_FULL(601,601) - JVS(2340) = -B(283)-B(285)-B(287)-B(289) -! JVS(2341) = Jac_FULL(601,5238) - JVS(2341) = -B(284)-B(286) -! JVS(2342) = Jac_FULL(601,5250) - JVS(2342) = -B(288)-B(290) -! JVS(2343) = Jac_FULL(602,602) - JVS(2343) = -B(15288)-B(15289) -! JVS(2344) = Jac_FULL(602,3917) - JVS(2344) = B(12081) -! JVS(2345) = Jac_FULL(602,5250) - JVS(2345) = B(12082)-B(15290) -! JVS(2346) = Jac_FULL(603,603) - JVS(2346) = -B(11624) -! JVS(2347) = Jac_FULL(603,4862) - JVS(2347) = B(7867)+B(7873)+B(7877)+B(7879) -! JVS(2348) = Jac_FULL(603,5252) - JVS(2348) = B(7874) -! JVS(2349) = Jac_FULL(603,5255) - JVS(2349) = B(7868) -! JVS(2350) = Jac_FULL(603,5256) - JVS(2350) = B(7878) -! JVS(2351) = Jac_FULL(604,604) - JVS(2351) = -B(3426)-B(3427) -! JVS(2352) = Jac_FULL(604,4492) - JVS(2352) = B(870) -! JVS(2353) = Jac_FULL(604,5258) - JVS(2353) = B(871) -! JVS(2354) = Jac_FULL(605,605) - JVS(2354) = -B(15639) -! JVS(2355) = Jac_FULL(605,3214) - JVS(2355) = B(15638) -! JVS(2356) = Jac_FULL(605,4669) - JVS(2356) = B(12548)+B(12550)+B(12553) -! JVS(2357) = Jac_FULL(605,5252) - JVS(2357) = B(12549) -! JVS(2358) = Jac_FULL(605,5256) - JVS(2358) = B(12551) -! JVS(2359) = Jac_FULL(606,606) - JVS(2359) = -B(3155)-B(3156) -! JVS(2360) = Jac_FULL(606,5166) - JVS(2360) = B(797) -! JVS(2361) = Jac_FULL(606,5218) - JVS(2361) = B(6927) -! JVS(2362) = Jac_FULL(606,5219) - JVS(2362) = B(6799) -! JVS(2363) = Jac_FULL(606,5250) - JVS(2363) = B(798) -! JVS(2364) = Jac_FULL(607,607) - JVS(2364) = -B(3157)-B(3158) -! JVS(2365) = Jac_FULL(607,5118) - JVS(2365) = B(6939) -! JVS(2366) = Jac_FULL(607,5166) - JVS(2366) = B(799) -! JVS(2367) = Jac_FULL(607,5224) - JVS(2367) = B(6827) -! JVS(2368) = Jac_FULL(607,5250) - JVS(2368) = B(800) -! JVS(2369) = Jac_FULL(608,608) - JVS(2369) = -B(14184)-B(14185) -! JVS(2370) = Jac_FULL(608,4105) - JVS(2370) = B(10996) -! JVS(2371) = Jac_FULL(608,5250) - JVS(2371) = -B(14186) -! JVS(2372) = Jac_FULL(609,609) - JVS(2372) = -B(15393)-B(15394) -! JVS(2373) = Jac_FULL(609,4164) - JVS(2373) = B(12153) -! JVS(2374) = Jac_FULL(609,5250) - JVS(2374) = B(12154)-B(15395) -! JVS(2375) = Jac_FULL(610,610) - JVS(2375) = -B(14095) -! JVS(2376) = Jac_FULL(610,2618) - JVS(2376) = B(14094) -! JVS(2377) = Jac_FULL(610,4095) - JVS(2377) = B(10896)+B(10898)+B(10900) -! JVS(2378) = Jac_FULL(610,5252) - JVS(2378) = B(10897) -! JVS(2379) = Jac_FULL(610,5256) - JVS(2379) = B(10899) -! JVS(2380) = Jac_FULL(611,611) - JVS(2380) = -B(4190) -! JVS(2381) = Jac_FULL(611,4838) - JVS(2381) = B(5123) -! JVS(2382) = Jac_FULL(611,4944) - JVS(2382) = B(1411)+B(1422) -! JVS(2383) = Jac_FULL(611,5250) - JVS(2383) = -B(4191) -! JVS(2384) = Jac_FULL(611,5255) - JVS(2384) = B(1412) -! JVS(2385) = Jac_FULL(612,612) - JVS(2385) = -B(14518)-B(14519) -! JVS(2386) = Jac_FULL(612,5175) - JVS(2386) = B(11255) -! JVS(2387) = Jac_FULL(612,5258) - JVS(2387) = B(11256) -! JVS(2388) = Jac_FULL(613,613) - JVS(2388) = -B(6601) -! JVS(2389) = Jac_FULL(613,4622) - JVS(2389) = B(3011)+B(3020) -! JVS(2390) = Jac_FULL(613,4919) - JVS(2390) = B(6593) -! JVS(2391) = Jac_FULL(613,5250) - JVS(2391) = -B(6602) -! JVS(2392) = Jac_FULL(613,5255) - JVS(2392) = B(3012) -! JVS(2393) = Jac_FULL(614,614) - JVS(2393) = -B(8766) -! JVS(2394) = Jac_FULL(614,3830) - JVS(2394) = B(5282) -! JVS(2395) = Jac_FULL(614,5258) - JVS(2395) = B(5283) -! JVS(2396) = Jac_FULL(615,615) - JVS(2396) = -B(3704) -! JVS(2397) = Jac_FULL(615,2503) - JVS(2397) = B(3703) -! JVS(2398) = Jac_FULL(615,5007) - JVS(2398) = B(989)+B(993)+B(995) -! JVS(2399) = Jac_FULL(615,5252) - JVS(2399) = B(990) -! JVS(2400) = Jac_FULL(615,5256) - JVS(2400) = B(994) -! JVS(2401) = Jac_FULL(616,616) - JVS(2401) = -B(17904)-B(17905) -! JVS(2402) = Jac_FULL(616,4713) - JVS(2402) = B(15308) -! JVS(2403) = Jac_FULL(616,5250) - JVS(2403) = -B(17906) -! JVS(2404) = Jac_FULL(617,617) - JVS(2404) = -B(22310) -! JVS(2405) = Jac_FULL(617,2217) - JVS(2405) = B(22309) -! JVS(2406) = Jac_FULL(617,3984) - JVS(2406) = B(21678)+B(21680)+B(21682) -! JVS(2407) = Jac_FULL(617,5252) - JVS(2407) = B(21679) -! JVS(2408) = Jac_FULL(617,5256) - JVS(2408) = B(21681) -! JVS(2409) = Jac_FULL(618,618) - JVS(2409) = -B(19499) -! JVS(2410) = Jac_FULL(618,1868) - JVS(2410) = B(19498) -! JVS(2411) = Jac_FULL(618,4176) - JVS(2411) = B(17332)+B(17334)+B(17337) -! JVS(2412) = Jac_FULL(618,5252) - JVS(2412) = B(17333) -! JVS(2413) = Jac_FULL(618,5256) - JVS(2413) = B(17335) -! JVS(2414) = Jac_FULL(619,619) - JVS(2414) = -B(19393) -! JVS(2415) = Jac_FULL(619,2022) - JVS(2415) = B(19392) -! JVS(2416) = Jac_FULL(619,4135) - JVS(2416) = B(17156)+B(17158)+B(17161) -! JVS(2417) = Jac_FULL(619,5252) - JVS(2417) = B(17157) -! JVS(2418) = Jac_FULL(619,5256) - JVS(2418) = B(17159) -! JVS(2419) = Jac_FULL(620,620) - JVS(2419) = -B(16011) -! JVS(2420) = Jac_FULL(620,1861) - JVS(2420) = B(16010) -! JVS(2421) = Jac_FULL(620,3696) - JVS(2421) = B(12928)+B(12930)+B(12933) -! JVS(2422) = Jac_FULL(620,5252) - JVS(2422) = B(12929) -! JVS(2423) = Jac_FULL(620,5256) - JVS(2423) = B(12931) -! JVS(2424) = Jac_FULL(621,621) - JVS(2424) = -B(14551) -! JVS(2425) = Jac_FULL(621,3988) - JVS(2425) = B(11282) -! JVS(2426) = Jac_FULL(621,5250) - JVS(2426) = -B(14552) -! JVS(2427) = Jac_FULL(622,622) - JVS(2427) = -B(15995)-B(15997) -! JVS(2428) = Jac_FULL(622,4165) - JVS(2428) = B(12909) -! JVS(2429) = Jac_FULL(622,5250) - JVS(2429) = -B(15996) -! JVS(2430) = Jac_FULL(623,623) - JVS(2430) = -B(10182) -! JVS(2431) = Jac_FULL(623,3702) - JVS(2431) = B(10180) -! JVS(2432) = Jac_FULL(623,4992) - JVS(2432) = B(6474)+B(6476)+B(6478) -! JVS(2433) = Jac_FULL(623,5252) - JVS(2433) = B(6475) -! JVS(2434) = Jac_FULL(623,5256) - JVS(2434) = B(6477) -! JVS(2435) = Jac_FULL(624,624) - JVS(2435) = -B(7577) -! JVS(2436) = Jac_FULL(624,2160) - JVS(2436) = B(7576) -! JVS(2437) = Jac_FULL(624,3963) - JVS(2437) = B(3613)+B(3615)+B(3619) -! JVS(2438) = Jac_FULL(624,5252) - JVS(2438) = B(3614) -! JVS(2439) = Jac_FULL(624,5256) - JVS(2439) = B(3616) -! JVS(2440) = Jac_FULL(625,625) - JVS(2440) = -B(23011) -! JVS(2441) = Jac_FULL(625,2312) - JVS(2441) = B(23010) -! JVS(2442) = Jac_FULL(625,4315) - JVS(2442) = B(22576)+B(22578)+B(22581) -! JVS(2443) = Jac_FULL(625,5252) - JVS(2443) = B(22577) -! JVS(2444) = Jac_FULL(625,5256) - JVS(2444) = B(22579) -! JVS(2445) = Jac_FULL(626,626) - JVS(2445) = -B(21531)-B(21533) -! JVS(2446) = Jac_FULL(626,2617) - JVS(2446) = B(20318) -! JVS(2447) = Jac_FULL(626,5250) - JVS(2447) = B(20319)-B(21532) -! JVS(2448) = Jac_FULL(627,627) - JVS(2448) = -B(6511) -! JVS(2449) = Jac_FULL(627,3219) - JVS(2449) = B(2960)+B(2966) -! JVS(2450) = Jac_FULL(627,5250) - JVS(2450) = B(2967) -! JVS(2451) = Jac_FULL(627,5255) - JVS(2451) = -B(6512) -! JVS(2452) = Jac_FULL(627,5256) - JVS(2452) = B(2961) -! JVS(2453) = Jac_FULL(628,628) - JVS(2453) = -B(8804) -! JVS(2454) = Jac_FULL(628,3545) - JVS(2454) = B(5325) -! JVS(2455) = Jac_FULL(628,5258) - JVS(2455) = B(5326) -! JVS(2456) = Jac_FULL(629,629) - JVS(2456) = -B(18550) -! JVS(2457) = Jac_FULL(629,2342) - JVS(2457) = B(18549) -! JVS(2458) = Jac_FULL(629,4323) - JVS(2458) = B(16227)+B(16229)+B(16231) -! JVS(2459) = Jac_FULL(629,5252) - JVS(2459) = B(16228) -! JVS(2460) = Jac_FULL(629,5256) - JVS(2460) = B(16230) -! JVS(2461) = Jac_FULL(630,630) - JVS(2461) = -B(3965) -! JVS(2462) = Jac_FULL(630,3207) - JVS(2462) = B(3963) -! JVS(2463) = Jac_FULL(630,4698) - JVS(2463) = B(1194)+B(1196)+B(1200) -! JVS(2464) = Jac_FULL(630,5252) - JVS(2464) = B(1195) -! JVS(2465) = Jac_FULL(630,5256) - JVS(2465) = B(1197) -! JVS(2466) = Jac_FULL(631,631) - JVS(2466) = -B(4154) -! JVS(2467) = Jac_FULL(631,4868) - JVS(2467) = B(5062) -! JVS(2468) = Jac_FULL(631,5106) - JVS(2468) = B(1365)+B(1377) -! JVS(2469) = Jac_FULL(631,5250) - JVS(2469) = -B(4155) -! JVS(2470) = Jac_FULL(631,5255) - JVS(2470) = B(1366) -! JVS(2471) = Jac_FULL(632,632) - JVS(2471) = -B(20713) -! JVS(2472) = Jac_FULL(632,2151) - JVS(2472) = B(20712) -! JVS(2473) = Jac_FULL(632,4290) - JVS(2473) = B(19129)+B(19131)+B(19133) -! JVS(2474) = Jac_FULL(632,5252) - JVS(2474) = B(19130) -! JVS(2475) = Jac_FULL(632,5256) - JVS(2475) = B(19132) -! JVS(2476) = Jac_FULL(633,633) - JVS(2476) = -B(22363)-B(22365) -! JVS(2477) = Jac_FULL(633,4597) - JVS(2477) = B(21738) -! JVS(2478) = Jac_FULL(633,5250) - JVS(2478) = -B(22364) -! JVS(2479) = Jac_FULL(634,634) - JVS(2479) = -B(6443)-B(6445) -! JVS(2480) = Jac_FULL(634,3817) - JVS(2480) = B(2930) -! JVS(2481) = Jac_FULL(634,5250) - JVS(2481) = -B(6444) -! JVS(2482) = Jac_FULL(635,635) - JVS(2482) = -B(7410) -! JVS(2483) = Jac_FULL(635,2065) - JVS(2483) = B(7409) -! JVS(2484) = Jac_FULL(635,3940) - JVS(2484) = B(3523)+B(3525)+B(3528) -! JVS(2485) = Jac_FULL(635,5252) - JVS(2485) = B(3524) -! JVS(2486) = Jac_FULL(635,5256) - JVS(2486) = B(3526) -! JVS(2487) = Jac_FULL(636,636) - JVS(2487) = -B(19648)-B(19649) -! JVS(2488) = Jac_FULL(636,4573) - JVS(2488) = B(17758) -! JVS(2489) = Jac_FULL(636,5250) - JVS(2489) = -B(19650) -! JVS(2490) = Jac_FULL(637,637) - JVS(2490) = -B(12187) -! JVS(2491) = Jac_FULL(637,2080) - JVS(2491) = B(12186) -! JVS(2492) = Jac_FULL(637,4724) - JVS(2492) = B(8456)+B(8458)+B(8461) -! JVS(2493) = Jac_FULL(637,5252) - JVS(2493) = B(8457) -! JVS(2494) = Jac_FULL(637,5256) - JVS(2494) = B(8459) -! JVS(2495) = Jac_FULL(638,638) - JVS(2495) = -B(19719) -! JVS(2496) = Jac_FULL(638,2625) - JVS(2496) = B(19713) -! JVS(2497) = Jac_FULL(638,4811) - JVS(2497) = B(17833)+B(17835)+B(17837) -! JVS(2498) = Jac_FULL(638,5252) - JVS(2498) = B(17834) -! JVS(2499) = Jac_FULL(638,5256) - JVS(2499) = B(17836) -! JVS(2500) = Jac_FULL(639,639) - JVS(2500) = -B(7463) -! JVS(2501) = Jac_FULL(639,1911) - JVS(2501) = B(7462) -! JVS(2502) = Jac_FULL(639,3867) - JVS(2502) = B(3547)+B(3549)+B(3553) -! JVS(2503) = Jac_FULL(639,5252) - JVS(2503) = B(3548) -! JVS(2504) = Jac_FULL(639,5256) - JVS(2504) = B(3550) -! JVS(2505) = Jac_FULL(640,640) - JVS(2505) = -B(3487)-B(3488)-B(3489) -! JVS(2506) = Jac_FULL(640,4600) - JVS(2506) = B(884) -! JVS(2507) = Jac_FULL(640,5258) - JVS(2507) = B(885) -! JVS(2508) = Jac_FULL(641,641) - JVS(2508) = -B(16433) -! JVS(2509) = Jac_FULL(641,2923) - JVS(2509) = B(16432) -! JVS(2510) = Jac_FULL(641,4920) - JVS(2510) = B(13404)+B(13406)+B(13409) -! JVS(2511) = Jac_FULL(641,5252) - JVS(2511) = B(13405) -! JVS(2512) = Jac_FULL(641,5256) - JVS(2512) = B(13407) -! JVS(2513) = Jac_FULL(642,642) - JVS(2513) = -B(4266) -! JVS(2514) = Jac_FULL(642,4906) - JVS(2514) = B(6753) -! JVS(2515) = Jac_FULL(642,5128) - JVS(2515) = B(1497)+B(1508) -! JVS(2516) = Jac_FULL(642,5250) - JVS(2516) = -B(4267) -! JVS(2517) = Jac_FULL(642,5255) - JVS(2517) = B(1498) -! JVS(2518) = Jac_FULL(643,643) - JVS(2518) = -B(23899) -! JVS(2519) = Jac_FULL(643,2153) - JVS(2519) = B(23898) -! JVS(2520) = Jac_FULL(643,4477) - JVS(2520) = B(23746)+B(23748)+B(23750) -! JVS(2521) = Jac_FULL(643,5252) - JVS(2521) = B(23747) -! JVS(2522) = Jac_FULL(643,5256) - JVS(2522) = B(23749) -! JVS(2523) = Jac_FULL(644,644) - JVS(2523) = -B(23566) -! JVS(2524) = Jac_FULL(644,2111) - JVS(2524) = B(23565) -! JVS(2525) = Jac_FULL(644,4497) - JVS(2525) = B(23265)+B(23267)+B(23269) -! JVS(2526) = Jac_FULL(644,5252) - JVS(2526) = B(23266) -! JVS(2527) = Jac_FULL(644,5256) - JVS(2527) = B(23268) -! JVS(2528) = Jac_FULL(645,645) - JVS(2528) = -B(20521) -! JVS(2529) = Jac_FULL(645,2289) - JVS(2529) = B(20520) -! JVS(2530) = Jac_FULL(645,3864) - JVS(2530) = B(18922)+B(18924)+B(18926) -! JVS(2531) = Jac_FULL(645,5252) - JVS(2531) = B(18923) -! JVS(2532) = Jac_FULL(645,5256) - JVS(2532) = B(18925) -! JVS(2533) = Jac_FULL(646,646) - JVS(2533) = -B(7571) -! JVS(2534) = Jac_FULL(646,2178) - JVS(2534) = B(7568) -! JVS(2535) = Jac_FULL(646,3971) - JVS(2535) = B(3603)+B(3605)+B(3607) -! JVS(2536) = Jac_FULL(646,5252) - JVS(2536) = B(3604) -! JVS(2537) = Jac_FULL(646,5256) - JVS(2537) = B(3606) -! JVS(2538) = Jac_FULL(647,647) - JVS(2538) = -B(9948)-B(9950) -! JVS(2539) = Jac_FULL(647,4575) - JVS(2539) = B(6237) -! JVS(2540) = Jac_FULL(647,5250) - JVS(2540) = -B(9949) -! JVS(2541) = Jac_FULL(648,648) - JVS(2541) = -B(23950) -! JVS(2542) = Jac_FULL(648,1926) - JVS(2542) = B(23948) -! JVS(2543) = Jac_FULL(648,4343) - JVS(2543) = B(23849)+B(23851)+B(23853) -! JVS(2544) = Jac_FULL(648,5252) - JVS(2544) = B(23850) -! JVS(2545) = Jac_FULL(648,5256) - JVS(2545) = B(23852) -! JVS(2546) = Jac_FULL(649,649) - JVS(2546) = -B(17142) -! JVS(2547) = Jac_FULL(649,1990) - JVS(2547) = B(17141) -! JVS(2548) = Jac_FULL(649,3969) - JVS(2548) = B(14510)+B(14512)+B(14515) -! JVS(2549) = Jac_FULL(649,5252) - JVS(2549) = B(14511) -! JVS(2550) = Jac_FULL(649,5256) - JVS(2550) = B(14513) -! JVS(2551) = Jac_FULL(650,650) - JVS(2551) = -B(22980) -! JVS(2552) = Jac_FULL(650,3974) - JVS(2552) = B(22564) -! JVS(2553) = Jac_FULL(650,5250) - JVS(2553) = -B(22981) -! JVS(2554) = Jac_FULL(651,651) - JVS(2554) = -B(17653)-B(17654) -! JVS(2555) = Jac_FULL(651,4704) - JVS(2555) = B(15088) -! JVS(2556) = Jac_FULL(651,5250) - JVS(2556) = -B(17655) -! JVS(2557) = Jac_FULL(652,395) - JVS(2557) = B(11145) -! JVS(2558) = Jac_FULL(652,652) - JVS(2558) = -B(11143) -! JVS(2559) = Jac_FULL(652,653) - JVS(2559) = B(11136) -! JVS(2560) = Jac_FULL(652,840) - JVS(2560) = B(11139) -! JVS(2561) = Jac_FULL(652,3733) - JVS(2561) = B(7350) -! JVS(2562) = Jac_FULL(652,5250) - JVS(2562) = B(11137)+B(11140)-B(11144)+B(11146) -! JVS(2563) = Jac_FULL(653,653) - JVS(2563) = -B(11136)-B(11138) -! JVS(2564) = Jac_FULL(653,3733) - JVS(2564) = B(7342) -! JVS(2565) = Jac_FULL(653,5250) - JVS(2565) = -B(11137) -! JVS(2566) = Jac_FULL(653,5255) - JVS(2566) = B(7343) -! JVS(2567) = Jac_FULL(654,654) - JVS(2567) = -B(10480) -! JVS(2568) = Jac_FULL(654,2497) - JVS(2568) = B(10475) -! JVS(2569) = Jac_FULL(654,4774) - JVS(2569) = B(6766)+B(6768)+B(6770) -! JVS(2570) = Jac_FULL(654,5252) - JVS(2570) = B(6767) -! JVS(2571) = Jac_FULL(654,5256) - JVS(2571) = B(6769) -! JVS(2572) = Jac_FULL(655,655) - JVS(2572) = -B(23248) -! JVS(2573) = Jac_FULL(655,1784) - JVS(2573) = B(23247) -! JVS(2574) = Jac_FULL(655,4875) - JVS(2574) = B(22815)+B(22817)+B(22819) -! JVS(2575) = Jac_FULL(655,5252) - JVS(2575) = B(22816) -! JVS(2576) = Jac_FULL(655,5256) - JVS(2576) = B(22818) -! JVS(2577) = Jac_FULL(656,656) - JVS(2577) = -B(13581) -! JVS(2578) = Jac_FULL(656,2695) - JVS(2578) = B(13580) -! JVS(2579) = Jac_FULL(656,4341) - JVS(2579) = B(10392)+B(10394)+B(10398) -! JVS(2580) = Jac_FULL(656,5252) - JVS(2580) = B(10393) -! JVS(2581) = Jac_FULL(656,5256) - JVS(2581) = B(10395) -! JVS(2582) = Jac_FULL(657,657) - JVS(2582) = -B(22448)-B(22450) -! JVS(2583) = Jac_FULL(657,4142) - JVS(2583) = B(21826) -! JVS(2584) = Jac_FULL(657,5250) - JVS(2584) = -B(22449) -! JVS(2585) = Jac_FULL(658,658) - JVS(2585) = -B(17206) -! JVS(2586) = Jac_FULL(658,1950) - JVS(2586) = B(17204) -! JVS(2587) = Jac_FULL(658,5028) - JVS(2587) = B(14587)+B(14589)+B(14592) -! JVS(2588) = Jac_FULL(658,5252) - JVS(2588) = B(14588) -! JVS(2589) = Jac_FULL(658,5256) - JVS(2589) = B(14590) -! JVS(2590) = Jac_FULL(659,659) - JVS(2590) = -B(16097)-B(16099) -! JVS(2591) = Jac_FULL(659,4141) - JVS(2591) = B(13003) -! JVS(2592) = Jac_FULL(659,5250) - JVS(2592) = -B(16098) -! JVS(2593) = Jac_FULL(660,660) - JVS(2593) = -B(15706) -! JVS(2594) = Jac_FULL(660,2053) - JVS(2594) = B(15705) -! JVS(2595) = Jac_FULL(660,3739) - JVS(2595) = B(12631)+B(12633)+B(12635) -! JVS(2596) = Jac_FULL(660,5252) - JVS(2596) = B(12632) -! JVS(2597) = Jac_FULL(660,5256) - JVS(2597) = B(12634) -! JVS(2598) = Jac_FULL(661,661) - JVS(2598) = -B(7586) -! JVS(2599) = Jac_FULL(661,3898) - JVS(2599) = B(3629) -! JVS(2600) = Jac_FULL(661,5250) - JVS(2600) = -B(7587) -! JVS(2601) = Jac_FULL(662,662) - JVS(2601) = -B(21925) -! JVS(2602) = Jac_FULL(662,3949) - JVS(2602) = B(20872) -! JVS(2603) = Jac_FULL(662,5250) - JVS(2603) = -B(21926) -! JVS(2604) = Jac_FULL(663,663) - JVS(2604) = -B(17398) -! JVS(2605) = Jac_FULL(663,2266) - JVS(2605) = B(17397) -! JVS(2606) = Jac_FULL(663,3966) - JVS(2606) = B(14832)+B(14834)+B(14838) -! JVS(2607) = Jac_FULL(663,5252) - JVS(2607) = B(14833) -! JVS(2608) = Jac_FULL(663,5256) - JVS(2608) = B(14835) -! JVS(2609) = Jac_FULL(664,664) - JVS(2609) = -B(17695)-B(17696) -! JVS(2610) = Jac_FULL(664,4697) - JVS(2610) = B(15126) -! JVS(2611) = Jac_FULL(664,5250) - JVS(2611) = -B(17697) -! JVS(2612) = Jac_FULL(665,665) - JVS(2612) = -B(14020) -! JVS(2613) = Jac_FULL(665,3049) - JVS(2613) = B(14019) -! JVS(2614) = Jac_FULL(665,4730) - JVS(2614) = B(10823)+B(10825)+B(10828) -! JVS(2615) = Jac_FULL(665,5252) - JVS(2615) = B(10824) -! JVS(2616) = Jac_FULL(665,5256) - JVS(2616) = B(10826) -! JVS(2617) = Jac_FULL(666,666) - JVS(2617) = -B(7200) -! JVS(2618) = Jac_FULL(666,3314) - JVS(2618) = B(7199) -! JVS(2619) = Jac_FULL(666,4594) - JVS(2619) = B(3378)+B(3380)+B(3383) -! JVS(2620) = Jac_FULL(666,5252) - JVS(2620) = B(3379) -! JVS(2621) = Jac_FULL(666,5256) - JVS(2621) = B(3381) -! JVS(2622) = Jac_FULL(667,667) - JVS(2622) = -B(14629) -! JVS(2623) = Jac_FULL(667,3883) - JVS(2623) = B(11307) -! JVS(2624) = Jac_FULL(667,5250) - JVS(2624) = -B(14630) -! JVS(2625) = Jac_FULL(668,668) - JVS(2625) = -B(801)-B(803) -! JVS(2626) = Jac_FULL(668,5250) - JVS(2626) = -B(804) -! JVS(2627) = Jac_FULL(668,5256) - JVS(2627) = -B(802) -! JVS(2628) = Jac_FULL(669,669) - JVS(2628) = -B(12290) -! JVS(2629) = Jac_FULL(669,1999) - JVS(2629) = B(12289) -! JVS(2630) = Jac_FULL(669,4804) - JVS(2630) = B(8619)+B(8621)+B(8625) -! JVS(2631) = Jac_FULL(669,5252) - JVS(2631) = B(8620) -! JVS(2632) = Jac_FULL(669,5256) - JVS(2632) = B(8622) -! JVS(2633) = Jac_FULL(670,670) - JVS(2633) = -B(7240) -! JVS(2634) = Jac_FULL(670,1844) - JVS(2634) = B(7239) -! JVS(2635) = Jac_FULL(670,3943) - JVS(2635) = B(3409)+B(3411)+B(3414) -! JVS(2636) = Jac_FULL(670,5252) - JVS(2636) = B(3410) -! JVS(2637) = Jac_FULL(670,5256) - JVS(2637) = B(3412) -! JVS(2638) = Jac_FULL(671,671) - JVS(2638) = -B(17934)-B(17935) -! JVS(2639) = Jac_FULL(671,4712) - JVS(2639) = B(15336) -! JVS(2640) = Jac_FULL(671,5250) - JVS(2640) = -B(17936) -! JVS(2641) = Jac_FULL(672,672) - JVS(2641) = -B(19056) -! JVS(2642) = Jac_FULL(672,2360) - JVS(2642) = B(19055) -! JVS(2643) = Jac_FULL(672,3954) - JVS(2643) = B(16858)+B(16860)+B(16862) -! JVS(2644) = Jac_FULL(672,5252) - JVS(2644) = B(16859) -! JVS(2645) = Jac_FULL(672,5256) - JVS(2645) = B(16861) -! JVS(2646) = Jac_FULL(673,673) - JVS(2646) = -B(17373) -! JVS(2647) = Jac_FULL(673,1862) - JVS(2647) = B(17372) -! JVS(2648) = Jac_FULL(673,3844) - JVS(2648) = B(14785)+B(14787)+B(14790) -! JVS(2649) = Jac_FULL(673,5252) - JVS(2649) = B(14786) -! JVS(2650) = Jac_FULL(673,5256) - JVS(2650) = B(14788) -! JVS(2651) = Jac_FULL(674,674) - JVS(2651) = -B(17610) -! JVS(2652) = Jac_FULL(674,2730) - JVS(2652) = B(17604) -! JVS(2653) = Jac_FULL(674,4911) - JVS(2653) = B(15036)+B(15038)+B(15041) -! JVS(2654) = Jac_FULL(674,5252) - JVS(2654) = B(15037) -! JVS(2655) = Jac_FULL(674,5256) - JVS(2655) = B(15039) -! JVS(2656) = Jac_FULL(675,675) - JVS(2656) = -B(12043)-B(12045) -! JVS(2657) = Jac_FULL(675,5119) - JVS(2657) = B(8303) -! JVS(2658) = Jac_FULL(675,5250) - JVS(2658) = -B(12044)-B(12046) -! JVS(2659) = Jac_FULL(676,676) - JVS(2659) = -B(10057) -! JVS(2660) = Jac_FULL(676,3499) - JVS(2660) = B(6344) -! JVS(2661) = Jac_FULL(676,5258) - JVS(2661) = B(6345) -! JVS(2662) = Jac_FULL(677,677) - JVS(2662) = -B(6481) -! JVS(2663) = Jac_FULL(677,3244) - JVS(2663) = B(2941)+B(2945) -! JVS(2664) = Jac_FULL(677,5250) - JVS(2664) = B(2946) -! JVS(2665) = Jac_FULL(677,5255) - JVS(2665) = -B(6482) -! JVS(2666) = Jac_FULL(677,5256) - JVS(2666) = B(2942) -! JVS(2667) = Jac_FULL(678,678) - JVS(2667) = -B(13751)-B(13753) -! JVS(2668) = Jac_FULL(678,4113) - JVS(2668) = B(10565) -! JVS(2669) = Jac_FULL(678,5250) - JVS(2669) = B(10566)-B(13752)-B(13754) -! JVS(2670) = Jac_FULL(679,679) - JVS(2670) = -B(19382) -! JVS(2671) = Jac_FULL(679,2305) - JVS(2671) = B(19381) -! JVS(2672) = Jac_FULL(679,4145) - JVS(2672) = B(17147)+B(17149) -! JVS(2673) = Jac_FULL(679,5252) - JVS(2673) = B(17148) -! JVS(2674) = Jac_FULL(679,5256) - JVS(2674) = B(17150) -! JVS(2675) = Jac_FULL(680,198) - JVS(2675) = B(593) -! JVS(2676) = Jac_FULL(680,680) - JVS(2676) = -B(2340) -! JVS(2677) = Jac_FULL(680,1269) - JVS(2677) = B(7915) -! JVS(2678) = Jac_FULL(680,3344) - JVS(2678) = B(13920) -! JVS(2679) = Jac_FULL(680,5223) - JVS(2679) = B(4060) -! JVS(2680) = Jac_FULL(680,5250) - JVS(2680) = B(594)-B(2341)+B(7916) -! JVS(2681) = Jac_FULL(681,681) - JVS(2681) = -B(9206)-B(9208) -! JVS(2682) = Jac_FULL(681,4699) - JVS(2682) = B(5625) -! JVS(2683) = Jac_FULL(681,5250) - JVS(2683) = -B(9207) -! JVS(2684) = Jac_FULL(682,682) - JVS(2684) = -B(14100) -! JVS(2685) = Jac_FULL(682,2428) - JVS(2685) = B(14097) -! JVS(2686) = Jac_FULL(682,4446) - JVS(2686) = B(10903)+B(10905)+B(10908) -! JVS(2687) = Jac_FULL(682,5252) - JVS(2687) = B(10904) -! JVS(2688) = Jac_FULL(682,5256) - JVS(2688) = B(10906) -! JVS(2689) = Jac_FULL(683,683) - JVS(2689) = -B(9357)-B(9359) -! JVS(2690) = Jac_FULL(683,4701) - JVS(2690) = B(5743) -! JVS(2691) = Jac_FULL(683,5250) - JVS(2691) = -B(9358) -! JVS(2692) = Jac_FULL(684,684) - JVS(2692) = -B(1516)-B(1517)-B(1518) -! JVS(2693) = Jac_FULL(684,5226) - JVS(2693) = B(234) -! JVS(2694) = Jac_FULL(684,5258) - JVS(2694) = B(235) -! JVS(2695) = Jac_FULL(685,685) - JVS(2695) = -B(3099)-B(3100)-B(3101) -! JVS(2696) = Jac_FULL(685,5166) - JVS(2696) = B(779)+B(781) -! JVS(2697) = Jac_FULL(685,5258) - JVS(2697) = B(780)+B(782) -! JVS(2698) = Jac_FULL(686,686) - JVS(2698) = -B(3048)-B(3049)-B(3050) -! JVS(2699) = Jac_FULL(686,5153) - JVS(2699) = B(767) -! JVS(2700) = Jac_FULL(686,5258) - JVS(2700) = B(768) -! JVS(2701) = Jac_FULL(687,687) - JVS(2701) = -B(22492) -! JVS(2702) = Jac_FULL(687,3006) - JVS(2702) = B(22491) -! JVS(2703) = Jac_FULL(687,4371) - JVS(2703) = B(21877)+B(21879)+B(21881) -! JVS(2704) = Jac_FULL(687,5252) - JVS(2704) = B(21878) -! JVS(2705) = Jac_FULL(687,5256) - JVS(2705) = B(21880) -! JVS(2706) = Jac_FULL(688,688) - JVS(2706) = -B(11358) -! JVS(2707) = Jac_FULL(688,2836) - JVS(2707) = B(11356) -! JVS(2708) = Jac_FULL(688,4756) - JVS(2708) = B(7522)+B(7524)+B(7527) -! JVS(2709) = Jac_FULL(688,5252) - JVS(2709) = B(7523) -! JVS(2710) = Jac_FULL(688,5256) - JVS(2710) = B(7525) -! JVS(2711) = Jac_FULL(689,689) - JVS(2711) = -B(14068) -! JVS(2712) = Jac_FULL(689,3287) - JVS(2712) = B(14062) -! JVS(2713) = Jac_FULL(689,4126) - JVS(2713) = B(10866)+B(10868)+B(10870) -! JVS(2714) = Jac_FULL(689,5252) - JVS(2714) = B(10867) -! JVS(2715) = Jac_FULL(689,5256) - JVS(2715) = B(10869) -! JVS(2716) = Jac_FULL(690,690) - JVS(2716) = -B(23660) -! JVS(2717) = Jac_FULL(690,3848) - JVS(2717) = B(23388) -! JVS(2718) = Jac_FULL(690,5250) - JVS(2718) = -B(23661) -! JVS(2719) = Jac_FULL(691,691) - JVS(2719) = -B(4114) -! JVS(2720) = Jac_FULL(691,4956) - JVS(2720) = B(4948) -! JVS(2721) = Jac_FULL(691,5125) - JVS(2721) = B(1329)+B(1341) -! JVS(2722) = Jac_FULL(691,5250) - JVS(2722) = -B(4115) -! JVS(2723) = Jac_FULL(691,5255) - JVS(2723) = B(1330) -! JVS(2724) = Jac_FULL(692,692) - JVS(2724) = -B(17294) -! JVS(2725) = Jac_FULL(692,3928) - JVS(2725) = B(14736) -! JVS(2726) = Jac_FULL(692,5250) - JVS(2726) = -B(17295) -! JVS(2727) = Jac_FULL(693,693) - JVS(2727) = -B(18142) -! JVS(2728) = Jac_FULL(693,2107) - JVS(2728) = B(18141) -! JVS(2729) = Jac_FULL(693,4929) - JVS(2729) = B(15583)+B(15585)+B(15587) -! JVS(2730) = Jac_FULL(693,5252) - JVS(2730) = B(15584) -! JVS(2731) = Jac_FULL(693,5256) - JVS(2731) = B(15586) -! JVS(2732) = Jac_FULL(694,694) - JVS(2732) = -B(14717) -! JVS(2733) = Jac_FULL(694,4249) - JVS(2733) = B(11378) -! JVS(2734) = Jac_FULL(694,5250) - JVS(2734) = -B(14718) -! JVS(2735) = Jac_FULL(695,695) - JVS(2735) = -B(23903) -! JVS(2736) = Jac_FULL(695,2300) - JVS(2736) = B(23902) -! JVS(2737) = Jac_FULL(695,4820) - JVS(2737) = B(23753)+B(23755)+B(23758) -! JVS(2738) = Jac_FULL(695,5252) - JVS(2738) = B(23754) -! JVS(2739) = Jac_FULL(695,5256) - JVS(2739) = B(23756) -! JVS(2740) = Jac_FULL(696,696) - JVS(2740) = -B(22418)-B(22420) -! JVS(2741) = Jac_FULL(696,4350) - JVS(2741) = B(21802) -! JVS(2742) = Jac_FULL(696,5250) - JVS(2742) = -B(22419) -! JVS(2743) = Jac_FULL(697,697) - JVS(2743) = -B(21758) -! JVS(2744) = Jac_FULL(697,2380) - JVS(2744) = B(21757) -! JVS(2745) = Jac_FULL(697,5019) - JVS(2745) = B(20730)+B(20732)+B(20735) -! JVS(2746) = Jac_FULL(697,5252) - JVS(2746) = B(20731) -! JVS(2747) = Jac_FULL(697,5256) - JVS(2747) = B(20733) -! JVS(2748) = Jac_FULL(698,698) - JVS(2748) = -B(19800) -! JVS(2749) = Jac_FULL(698,2059) - JVS(2749) = B(19796) -! JVS(2750) = Jac_FULL(698,4389) - JVS(2750) = B(17939)+B(17941)+B(17943) -! JVS(2751) = Jac_FULL(698,5252) - JVS(2751) = B(17940) -! JVS(2752) = Jac_FULL(698,5256) - JVS(2752) = B(17942) -! JVS(2753) = Jac_FULL(699,699) - JVS(2753) = -B(22649)-B(22651) -! JVS(2754) = Jac_FULL(699,4825) - JVS(2754) = B(22035) -! JVS(2755) = Jac_FULL(699,5250) - JVS(2755) = -B(22650) -! JVS(2756) = Jac_FULL(700,700) - JVS(2756) = -B(9525) -! JVS(2757) = Jac_FULL(700,3684) - JVS(2757) = B(5875) -! JVS(2758) = Jac_FULL(700,5258) - JVS(2758) = B(5876) -! JVS(2759) = Jac_FULL(701,701) - JVS(2759) = -B(18941)-B(18942) -! JVS(2760) = Jac_FULL(701,5024) - JVS(2760) = B(16722) -! JVS(2761) = Jac_FULL(701,5258) - JVS(2761) = B(16723) -! JVS(2762) = Jac_FULL(702,702) - JVS(2762) = -B(3120)-B(3121) -! JVS(2763) = Jac_FULL(702,5166) - JVS(2763) = B(787) -! JVS(2764) = Jac_FULL(702,5217) - JVS(2764) = B(6783) -! JVS(2765) = Jac_FULL(702,5219) - JVS(2765) = B(6795) -! JVS(2766) = Jac_FULL(702,5250) - JVS(2766) = B(788) -! JVS(2767) = Jac_FULL(703,703) - JVS(2767) = -B(17190) -! JVS(2768) = Jac_FULL(703,2439) - JVS(2768) = B(17189) -! JVS(2769) = Jac_FULL(703,4762) - JVS(2769) = B(14564)+B(14566)+B(14569) -! JVS(2770) = Jac_FULL(703,5252) - JVS(2770) = B(14565) -! JVS(2771) = Jac_FULL(703,5256) - JVS(2771) = B(14567) -! JVS(2772) = Jac_FULL(704,704) - JVS(2772) = -B(21989) -! JVS(2773) = Jac_FULL(704,2062) - JVS(2773) = B(21988) -! JVS(2774) = Jac_FULL(704,4538) - JVS(2774) = B(20937)+B(20939)+B(20941) -! JVS(2775) = Jac_FULL(704,5252) - JVS(2775) = B(20938) -! JVS(2776) = Jac_FULL(704,5256) - JVS(2776) = B(20940) -! JVS(2777) = Jac_FULL(705,705) - JVS(2777) = -B(9762) -! JVS(2778) = Jac_FULL(705,3494) - JVS(2778) = B(6058) -! JVS(2779) = Jac_FULL(705,5258) - JVS(2779) = B(6059) -! JVS(2780) = Jac_FULL(706,706) - JVS(2780) = -B(12231) -! JVS(2781) = Jac_FULL(706,3231) - JVS(2781) = B(12229) -! JVS(2782) = Jac_FULL(706,4856) - JVS(2782) = B(8516)+B(8518)+B(8520) -! JVS(2783) = Jac_FULL(706,5252) - JVS(2783) = B(8517) -! JVS(2784) = Jac_FULL(706,5256) - JVS(2784) = B(8519) -! JVS(2785) = Jac_FULL(707,707) - JVS(2785) = -B(6131) -! JVS(2786) = Jac_FULL(707,3263) - JVS(2786) = B(2785)+B(2787) -! JVS(2787) = Jac_FULL(707,5250) - JVS(2787) = B(2788) -! JVS(2788) = Jac_FULL(707,5255) - JVS(2788) = -B(6132) -! JVS(2789) = Jac_FULL(707,5256) - JVS(2789) = B(2786) -! JVS(2790) = Jac_FULL(708,708) - JVS(2790) = -B(11214) -! JVS(2791) = Jac_FULL(708,2727) - JVS(2791) = B(11213) -! JVS(2792) = Jac_FULL(708,4144) - JVS(2792) = B(7424)+B(7426)+B(7429) -! JVS(2793) = Jac_FULL(708,5252) - JVS(2793) = B(7425) -! JVS(2794) = Jac_FULL(708,5256) - JVS(2794) = B(7427) -! JVS(2795) = Jac_FULL(709,709) - JVS(2795) = -B(11235) -! JVS(2796) = Jac_FULL(709,4843) - JVS(2796) = B(7451) -! JVS(2797) = Jac_FULL(709,4847) - JVS(2797) = B(11241)+B(11250) -! JVS(2798) = Jac_FULL(709,5250) - JVS(2798) = -B(11236) -! JVS(2799) = Jac_FULL(709,5255) - JVS(2799) = B(11242) -! JVS(2800) = Jac_FULL(710,710) - JVS(2800) = -B(15712) -! JVS(2801) = Jac_FULL(710,2920) - JVS(2801) = B(15711) -! JVS(2802) = Jac_FULL(710,4857) - JVS(2802) = B(12638)+B(12640)+B(12643) -! JVS(2803) = Jac_FULL(710,5252) - JVS(2803) = B(12639) -! JVS(2804) = Jac_FULL(710,5256) - JVS(2804) = B(12641) -! JVS(2805) = Jac_FULL(711,711) - JVS(2805) = -B(15699) -! JVS(2806) = Jac_FULL(711,3196) - JVS(2806) = B(15698) -! JVS(2807) = Jac_FULL(711,4558) - JVS(2807) = B(12623)+B(12625)+B(12627) -! JVS(2808) = Jac_FULL(711,5252) - JVS(2808) = B(12624) -! JVS(2809) = Jac_FULL(711,5256) - JVS(2809) = B(12626) -! JVS(2810) = Jac_FULL(712,712) - JVS(2810) = -B(15580) -! JVS(2811) = Jac_FULL(712,2454) - JVS(2811) = B(15579) -! JVS(2812) = Jac_FULL(712,3692) - JVS(2812) = B(12479)+B(12481)+B(12483) -! JVS(2813) = Jac_FULL(712,5252) - JVS(2813) = B(12480) -! JVS(2814) = Jac_FULL(712,5256) - JVS(2814) = B(12482) -! JVS(2815) = Jac_FULL(713,713) - JVS(2815) = -B(15423)-B(15425) -! JVS(2816) = Jac_FULL(713,3897) - JVS(2816) = B(12245) -! JVS(2817) = Jac_FULL(713,5250) - JVS(2817) = -B(15424) -! JVS(2818) = Jac_FULL(714,714) - JVS(2818) = -B(22319) -! JVS(2819) = Jac_FULL(714,1932) - JVS(2819) = B(22318) -! JVS(2820) = Jac_FULL(714,4340) - JVS(2820) = B(21688)+B(21690)+B(21692) -! JVS(2821) = Jac_FULL(714,5252) - JVS(2821) = B(21689) -! JVS(2822) = Jac_FULL(714,5256) - JVS(2822) = B(21691) -! JVS(2823) = Jac_FULL(715,715) - JVS(2823) = -B(3122)-B(3123) -! JVS(2824) = Jac_FULL(715,5166) - JVS(2824) = B(789) -! JVS(2825) = Jac_FULL(715,5204) - JVS(2825) = B(6810) -! JVS(2826) = Jac_FULL(715,5224) - JVS(2826) = B(6822) -! JVS(2827) = Jac_FULL(715,5250) - JVS(2827) = B(790) -! JVS(2828) = Jac_FULL(716,716) - JVS(2828) = -B(16113) -! JVS(2829) = Jac_FULL(716,2446) - JVS(2829) = B(16112) -! JVS(2830) = Jac_FULL(716,3762) - JVS(2830) = B(13022)+B(13024)+B(13027) -! JVS(2831) = Jac_FULL(716,5252) - JVS(2831) = B(13023) -! JVS(2832) = Jac_FULL(716,5256) - JVS(2832) = B(13025) -! JVS(2833) = Jac_FULL(717,717) - JVS(2833) = -B(13427) -! JVS(2834) = Jac_FULL(717,2900) - JVS(2834) = B(13426) -! JVS(2835) = Jac_FULL(717,3810) - JVS(2835) = B(10205)+B(10207)+B(10209) -! JVS(2836) = Jac_FULL(717,5252) - JVS(2836) = B(10206) -! JVS(2837) = Jac_FULL(717,5256) - JVS(2837) = B(10208) -! JVS(2838) = Jac_FULL(718,718) - JVS(2838) = -B(9990) -! JVS(2839) = Jac_FULL(718,3506) - JVS(2839) = B(6268) -! JVS(2840) = Jac_FULL(718,5258) - JVS(2840) = B(6269) -! JVS(2841) = Jac_FULL(719,719) - JVS(2841) = -B(3531)-B(3532) -! JVS(2842) = Jac_FULL(719,4605) - JVS(2842) = B(896) -! JVS(2843) = Jac_FULL(719,5258) - JVS(2843) = B(897) -! JVS(2844) = Jac_FULL(720,720) - JVS(2844) = -B(9122) -! JVS(2845) = Jac_FULL(720,1836) - JVS(2845) = B(9121) -! JVS(2846) = Jac_FULL(720,4483) - JVS(2846) = B(5542)+B(5544)+B(5548) -! JVS(2847) = Jac_FULL(720,5252) - JVS(2847) = B(5543) -! JVS(2848) = Jac_FULL(720,5256) - JVS(2848) = B(5545) -! JVS(2849) = Jac_FULL(721,721) - JVS(2849) = -B(17184) -! JVS(2850) = Jac_FULL(721,1973) - JVS(2850) = B(17183) -! JVS(2851) = Jac_FULL(721,3927) - JVS(2851) = B(14534)+B(14536)+B(14540) -! JVS(2852) = Jac_FULL(721,5252) - JVS(2852) = B(14535) -! JVS(2853) = Jac_FULL(721,5256) - JVS(2853) = B(14537) -! JVS(2854) = Jac_FULL(722,722) - JVS(2854) = -B(19778) -! JVS(2855) = Jac_FULL(722,2052) - JVS(2855) = B(19775) -! JVS(2856) = Jac_FULL(722,4349) - JVS(2856) = B(17909)+B(17911)+B(17913) -! JVS(2857) = Jac_FULL(722,5252) - JVS(2857) = B(17910) -! JVS(2858) = Jac_FULL(722,5256) - JVS(2858) = B(17912) -! JVS(2859) = Jac_FULL(723,723) - JVS(2859) = -B(9017) -! JVS(2860) = Jac_FULL(723,3508) - JVS(2860) = B(5472) -! JVS(2861) = Jac_FULL(723,5258) - JVS(2861) = B(5473) -! JVS(2862) = Jac_FULL(724,724) - JVS(2862) = -B(17275) -! JVS(2863) = Jac_FULL(724,1900) - JVS(2863) = B(17274) -! JVS(2864) = Jac_FULL(724,5122) - JVS(2864) = B(14704)+B(14706)+B(14709) -! JVS(2865) = Jac_FULL(724,5252) - JVS(2865) = B(14705) -! JVS(2866) = Jac_FULL(724,5256) - JVS(2866) = B(14707) -! JVS(2867) = Jac_FULL(725,725) - JVS(2867) = -B(23619)-B(23621) -! JVS(2868) = Jac_FULL(725,4459) - JVS(2868) = B(23334) -! JVS(2869) = Jac_FULL(725,5250) - JVS(2869) = -B(23620) -! JVS(2870) = Jac_FULL(726,726) - JVS(2870) = -B(17249) -! JVS(2871) = Jac_FULL(726,1373) - JVS(2871) = B(17248) -! JVS(2872) = Jac_FULL(726,5039) - JVS(2872) = B(14641)+B(14643)+B(14646) -! JVS(2873) = Jac_FULL(726,5252) - JVS(2873) = B(14642) -! JVS(2874) = Jac_FULL(726,5256) - JVS(2874) = B(14644) -! JVS(2875) = Jac_FULL(727,727) - JVS(2875) = -B(12061) -! JVS(2876) = Jac_FULL(727,2202) - JVS(2876) = B(12058) -! JVS(2877) = Jac_FULL(727,3688) - JVS(2877) = B(8317)+B(8319)+B(8323) -! JVS(2878) = Jac_FULL(727,5252) - JVS(2878) = B(8318) -! JVS(2879) = Jac_FULL(727,5256) - JVS(2879) = B(8320) -! JVS(2880) = Jac_FULL(728,728) - JVS(2880) = -B(17118) -! JVS(2881) = Jac_FULL(728,2071) - JVS(2881) = B(17117) -! JVS(2882) = Jac_FULL(728,4567) - JVS(2882) = B(14470)+B(14472)+B(14475) -! JVS(2883) = Jac_FULL(728,5252) - JVS(2883) = B(14471) -! JVS(2884) = Jac_FULL(728,5256) - JVS(2884) = B(14473) -! JVS(2885) = Jac_FULL(729,729) - JVS(2885) = -B(19039) -! JVS(2886) = Jac_FULL(729,1762) - JVS(2886) = B(19038) -! JVS(2887) = Jac_FULL(729,4552) - JVS(2887) = B(16830)+B(16832)+B(16834) -! JVS(2888) = Jac_FULL(729,5252) - JVS(2888) = B(16831) -! JVS(2889) = Jac_FULL(729,5256) - JVS(2889) = B(16833) -! JVS(2890) = Jac_FULL(730,730) - JVS(2890) = -B(17392) -! JVS(2891) = Jac_FULL(730,2098) - JVS(2891) = B(17389) -! JVS(2892) = Jac_FULL(730,3920) - JVS(2892) = B(14822)+B(14824)+B(14826) -! JVS(2893) = Jac_FULL(730,5252) - JVS(2893) = B(14823) -! JVS(2894) = Jac_FULL(730,5256) - JVS(2894) = B(14825) -! JVS(2895) = Jac_FULL(731,731) - JVS(2895) = -B(22926) -! JVS(2896) = Jac_FULL(731,2445) - JVS(2896) = B(22925) -! JVS(2897) = Jac_FULL(731,4644) - JVS(2897) = B(22484)+B(22486)+B(22488) -! JVS(2898) = Jac_FULL(731,5252) - JVS(2898) = B(22485) -! JVS(2899) = Jac_FULL(731,5256) - JVS(2899) = B(22487) -! JVS(2900) = Jac_FULL(732,732) - JVS(2900) = -B(9478)-B(9480) -! JVS(2901) = Jac_FULL(732,4377) - JVS(2901) = B(5834) -! JVS(2902) = Jac_FULL(732,5250) - JVS(2902) = -B(9479) -! JVS(2903) = Jac_FULL(733,733) - JVS(2903) = -B(23916) -! JVS(2904) = Jac_FULL(733,2450) - JVS(2904) = B(23915) -! JVS(2905) = Jac_FULL(733,3724) - JVS(2905) = B(23775)+B(23777)+B(23779) -! JVS(2906) = Jac_FULL(733,5252) - JVS(2906) = B(23776) -! JVS(2907) = Jac_FULL(733,5256) - JVS(2907) = B(23778) -! JVS(2908) = Jac_FULL(734,734) - JVS(2908) = -B(17806) -! JVS(2909) = Jac_FULL(734,3528) - JVS(2909) = B(17800) -! JVS(2910) = Jac_FULL(734,4967) - JVS(2910) = B(15227)+B(15229)+B(15232) -! JVS(2911) = Jac_FULL(734,5252) - JVS(2911) = B(15228) -! JVS(2912) = Jac_FULL(734,5256) - JVS(2912) = B(15230) -! JVS(2913) = Jac_FULL(735,344) - JVS(2913) = B(14393) -! JVS(2914) = Jac_FULL(735,735) - JVS(2914) = -B(14391) -! JVS(2915) = Jac_FULL(735,736) - JVS(2915) = B(14384) -! JVS(2916) = Jac_FULL(735,1057) - JVS(2916) = B(14387) -! JVS(2917) = Jac_FULL(735,4078) - JVS(2917) = B(11172) -! JVS(2918) = Jac_FULL(735,5250) - JVS(2918) = B(14385)+B(14388)-B(14392)+B(14394) -! JVS(2919) = Jac_FULL(736,736) - JVS(2919) = -B(14384)-B(14386) -! JVS(2920) = Jac_FULL(736,4078) - JVS(2920) = B(11164) -! JVS(2921) = Jac_FULL(736,5250) - JVS(2921) = -B(14385) -! JVS(2922) = Jac_FULL(736,5255) - JVS(2922) = B(11165) -! JVS(2923) = Jac_FULL(737,737) - JVS(2923) = -B(12211) -! JVS(2924) = Jac_FULL(737,1802) - JVS(2924) = B(12210) -! JVS(2925) = Jac_FULL(737,4817) - JVS(2925) = B(8491)+B(8493)+B(8497) -! JVS(2926) = Jac_FULL(737,5252) - JVS(2926) = B(8492) -! JVS(2927) = Jac_FULL(737,5256) - JVS(2927) = B(8494) -! JVS(2928) = Jac_FULL(738,738) - JVS(2928) = -B(9159) -! JVS(2929) = Jac_FULL(738,3560) - JVS(2929) = B(5571) -! JVS(2930) = Jac_FULL(738,5258) - JVS(2930) = B(5572) -! JVS(2931) = Jac_FULL(739,739) - JVS(2931) = -B(22475) -! JVS(2932) = Jac_FULL(739,2018) - JVS(2932) = B(22473) -! JVS(2933) = Jac_FULL(739,4418) - JVS(2933) = B(21855)+B(21857)+B(21859) -! JVS(2934) = Jac_FULL(739,5252) - JVS(2934) = B(21856) -! JVS(2935) = Jac_FULL(739,5256) - JVS(2935) = B(21858) -! JVS(2936) = Jac_FULL(740,740) - JVS(2936) = -B(11203) -! JVS(2937) = Jac_FULL(740,2362) - JVS(2937) = B(11202) -! JVS(2938) = Jac_FULL(740,4148) - JVS(2938) = B(7415)+B(7417)+B(7420) -! JVS(2939) = Jac_FULL(740,5252) - JVS(2939) = B(7416) -! JVS(2940) = Jac_FULL(740,5256) - JVS(2940) = B(7418) -! JVS(2941) = Jac_FULL(741,741) - JVS(2941) = -B(23625) -! JVS(2942) = Jac_FULL(741,1757) - JVS(2942) = B(23624) -! JVS(2943) = Jac_FULL(741,4960) - JVS(2943) = B(23337)+B(23339)+B(23341) -! JVS(2944) = Jac_FULL(741,5252) - JVS(2944) = B(23338) -! JVS(2945) = Jac_FULL(741,5256) - JVS(2945) = B(23340) -! JVS(2946) = Jac_FULL(742,742) - JVS(2946) = -B(10011)-B(10013) -! JVS(2947) = Jac_FULL(742,4725) - JVS(2947) = B(6312) -! JVS(2948) = Jac_FULL(742,5250) - JVS(2948) = -B(10012) -! JVS(2949) = Jac_FULL(743,743) - JVS(2949) = -B(18444) -! JVS(2950) = Jac_FULL(743,2294) - JVS(2950) = B(18443) -! JVS(2951) = Jac_FULL(743,3738) - JVS(2951) = B(16055)+B(16057)+B(16059) -! JVS(2952) = Jac_FULL(743,5252) - JVS(2952) = B(16056) -! JVS(2953) = Jac_FULL(743,5256) - JVS(2953) = B(16058) -! JVS(2954) = Jac_FULL(744,744) - JVS(2954) = -B(18377) -! JVS(2955) = Jac_FULL(744,1830) - JVS(2955) = B(18376) -! JVS(2956) = Jac_FULL(744,4381) - JVS(2956) = B(15953)+B(15955)+B(15957) -! JVS(2957) = Jac_FULL(744,5252) - JVS(2957) = B(15954) -! JVS(2958) = Jac_FULL(744,5256) - JVS(2958) = B(15956) -! JVS(2959) = Jac_FULL(745,745) - JVS(2959) = -B(19756) -! JVS(2960) = Jac_FULL(745,1839) - JVS(2960) = B(19753) -! JVS(2961) = Jac_FULL(745,4369) - JVS(2961) = B(17883)+B(17885)+B(17887) -! JVS(2962) = Jac_FULL(745,5252) - JVS(2962) = B(17884) -! JVS(2963) = Jac_FULL(745,5256) - JVS(2963) = B(17886) -! JVS(2964) = Jac_FULL(746,746) - JVS(2964) = -B(18318) -! JVS(2965) = Jac_FULL(746,2351) - JVS(2965) = B(18317) -! JVS(2966) = Jac_FULL(746,4076) - JVS(2966) = B(15857)+B(15859)+B(15861) -! JVS(2967) = Jac_FULL(746,5252) - JVS(2967) = B(15858) -! JVS(2968) = Jac_FULL(746,5256) - JVS(2968) = B(15860) -! JVS(2969) = Jac_FULL(747,747) - JVS(2969) = -B(15727) -! JVS(2970) = Jac_FULL(747,1850) - JVS(2970) = B(15726) -! JVS(2971) = Jac_FULL(747,3677) - JVS(2971) = B(12655)+B(12657)+B(12659) -! JVS(2972) = Jac_FULL(747,5252) - JVS(2972) = B(12656) -! JVS(2973) = Jac_FULL(747,5256) - JVS(2973) = B(12658) -! JVS(2974) = Jac_FULL(748,748) - JVS(2974) = -B(7457) -! JVS(2975) = Jac_FULL(748,2451) - JVS(2975) = B(7454) -! JVS(2976) = Jac_FULL(748,3863) - JVS(2976) = B(3537)+B(3539)+B(3541) -! JVS(2977) = Jac_FULL(748,5252) - JVS(2977) = B(3538) -! JVS(2978) = Jac_FULL(748,5256) - JVS(2978) = B(3540) -! JVS(2979) = Jac_FULL(749,749) - JVS(2979) = -B(14158) -! JVS(2980) = Jac_FULL(749,3473) - JVS(2980) = B(14157) -! JVS(2981) = Jac_FULL(749,4365) - JVS(2981) = B(10957)+B(10959)+B(10963) -! JVS(2982) = Jac_FULL(749,5252) - JVS(2982) = B(10958) -! JVS(2983) = Jac_FULL(749,5256) - JVS(2983) = B(10960) -! JVS(2984) = Jac_FULL(750,750) - JVS(2984) = -B(13480) -! JVS(2985) = Jac_FULL(750,2358) - JVS(2985) = B(13478) -! JVS(2986) = Jac_FULL(750,4787) - JVS(2986) = B(10281)+B(10283)+B(10287) -! JVS(2987) = Jac_FULL(750,5252) - JVS(2987) = B(10282) -! JVS(2988) = Jac_FULL(750,5256) - JVS(2988) = B(10284) -! JVS(2989) = Jac_FULL(751,751) - JVS(2989) = -B(4101) -! JVS(2990) = Jac_FULL(751,4941) - JVS(2990) = B(4870) -! JVS(2991) = Jac_FULL(751,5183) - JVS(2991) = B(1308)+B(1317) -! JVS(2992) = Jac_FULL(751,5250) - JVS(2992) = -B(4102) -! JVS(2993) = Jac_FULL(751,5255) - JVS(2993) = B(1309) -! JVS(2994) = Jac_FULL(752,752) - JVS(2994) = -B(9646) -! JVS(2995) = Jac_FULL(752,3482) - JVS(2995) = B(5969) -! JVS(2996) = Jac_FULL(752,5258) - JVS(2996) = B(5970) -! JVS(2997) = Jac_FULL(753,753) - JVS(2997) = -B(18240) -! JVS(2998) = Jac_FULL(753,1979) - JVS(2998) = B(18239) -! JVS(2999) = Jac_FULL(753,3679) - JVS(2999) = B(15754)+B(15756)+B(15758) -! JVS(3000) = Jac_FULL(753,5252) - JVS(3000) = B(15755) -! JVS(3001) = Jac_FULL(753,5256) - JVS(3001) = B(15757) -! JVS(3002) = Jac_FULL(754,754) - JVS(3002) = -B(23540) -! JVS(3003) = Jac_FULL(754,4137) - JVS(3003) = B(23211) -! JVS(3004) = Jac_FULL(754,5250) - JVS(3004) = -B(23541) -! JVS(3005) = Jac_FULL(755,755) - JVS(3005) = -B(8982) -! JVS(3006) = Jac_FULL(755,3469) - JVS(3006) = B(8981) -! JVS(3007) = Jac_FULL(755,4887) - JVS(3007) = B(5444)+B(5446)+B(5448) -! JVS(3008) = Jac_FULL(755,5252) - JVS(3008) = B(5445) -! JVS(3009) = Jac_FULL(755,5256) - JVS(3009) = B(5447) -! JVS(3010) = Jac_FULL(756,756) - JVS(3010) = -B(9890) -! JVS(3011) = Jac_FULL(756,3624) - JVS(3011) = B(9888) -! JVS(3012) = Jac_FULL(756,4935) - JVS(3012) = B(6175)+B(6177)+B(6179) -! JVS(3013) = Jac_FULL(756,5252) - JVS(3013) = B(6176) -! JVS(3014) = Jac_FULL(756,5256) - JVS(3014) = B(6178) -! JVS(3015) = Jac_FULL(757,757) - JVS(3015) = -B(98)-B(100) -! JVS(3016) = Jac_FULL(757,5062) - JVS(3016) = B(1605) -! JVS(3017) = Jac_FULL(757,5250) - JVS(3017) = -B(99)-B(101) -! JVS(3018) = Jac_FULL(758,758) - JVS(3018) = -B(17797)-B(17798) -! JVS(3019) = Jac_FULL(758,4903) - JVS(3019) = B(15224) -! JVS(3020) = Jac_FULL(758,5250) - JVS(3020) = -B(17799) -! JVS(3021) = Jac_FULL(759,759) - JVS(3021) = -B(12344)-B(12345) -! JVS(3022) = Jac_FULL(759,4951) - JVS(3022) = B(8666) -! JVS(3023) = Jac_FULL(759,5258) - JVS(3023) = B(8667) -! JVS(3024) = Jac_FULL(760,60) - JVS(3024) = B(23722) -! JVS(3025) = Jac_FULL(760,760) - JVS(3025) = -B(23721) -! JVS(3026) = Jac_FULL(760,4234) - JVS(3026) = B(23466)+B(23468)+B(23470) -! JVS(3027) = Jac_FULL(760,5250) - JVS(3027) = B(23723) -! JVS(3028) = Jac_FULL(760,5252) - JVS(3028) = B(23467) -! JVS(3029) = Jac_FULL(760,5256) - JVS(3029) = B(23469) -! JVS(3030) = Jac_FULL(761,761) - JVS(3030) = -B(7154) -! JVS(3031) = Jac_FULL(761,2572) - JVS(3031) = B(7153) -! JVS(3032) = Jac_FULL(761,4367) - JVS(3032) = B(3339)+B(3341)+B(3345) -! JVS(3033) = Jac_FULL(761,5252) - JVS(3033) = B(3340) -! JVS(3034) = Jac_FULL(761,5256) - JVS(3034) = B(3342) -! JVS(3035) = Jac_FULL(762,762) - JVS(3035) = -B(17994)-B(17995) -! JVS(3036) = Jac_FULL(762,4709) - JVS(3036) = B(15392) -! JVS(3037) = Jac_FULL(762,5250) - JVS(3037) = -B(17996) -! JVS(3038) = Jac_FULL(763,763) - JVS(3038) = -B(1509)-B(1510) -! JVS(3039) = Jac_FULL(763,5226) - JVS(3039) = B(232) -! JVS(3040) = Jac_FULL(763,5258) - JVS(3040) = B(233) -! JVS(3041) = Jac_FULL(764,764) - JVS(3041) = -B(8974)-B(8976) -! JVS(3042) = Jac_FULL(764,4707) - JVS(3042) = B(5441) -! JVS(3043) = Jac_FULL(764,5250) - JVS(3043) = -B(8975) -! JVS(3044) = Jac_FULL(765,765) - JVS(3044) = -B(3926) -! JVS(3045) = Jac_FULL(765,3018) - JVS(3045) = B(3925) -! JVS(3046) = Jac_FULL(765,4814) - JVS(3046) = B(1163)+B(1167)+B(1169) -! JVS(3047) = Jac_FULL(765,5252) - JVS(3047) = B(1164) -! JVS(3048) = Jac_FULL(765,5256) - JVS(3048) = B(1168) -! JVS(3049) = Jac_FULL(766,766) - JVS(3049) = -B(2231)-B(2232) -! JVS(3050) = Jac_FULL(766,4474) - JVS(3050) = B(543) -! JVS(3051) = Jac_FULL(766,5258) - JVS(3051) = B(544) -! JVS(3052) = Jac_FULL(767,767) - JVS(3052) = -B(20667)-B(20669) -! JVS(3053) = Jac_FULL(767,3668) - JVS(3053) = B(19089) -! JVS(3054) = Jac_FULL(767,5250) - JVS(3054) = -B(20668) -! JVS(3055) = Jac_FULL(768,768) - JVS(3055) = -B(15454) -! JVS(3056) = Jac_FULL(768,2089) - JVS(3056) = B(15453) -! JVS(3057) = Jac_FULL(768,3669) - JVS(3057) = B(12348)+B(12350)+B(12353) -! JVS(3058) = Jac_FULL(768,5252) - JVS(3058) = B(12349) -! JVS(3059) = Jac_FULL(768,5256) - JVS(3059) = B(12351) -! JVS(3060) = Jac_FULL(769,769) - JVS(3060) = -B(15337)-B(15338) -! JVS(3061) = Jac_FULL(769,4122) - JVS(3061) = B(12117) -! JVS(3062) = Jac_FULL(769,5250) - JVS(3062) = B(12118)-B(15339) -! JVS(3063) = Jac_FULL(770,770) - JVS(3063) = -B(11347) -! JVS(3064) = Jac_FULL(770,2469) - JVS(3064) = B(11345) -! JVS(3065) = Jac_FULL(770,4754) - JVS(3065) = B(7513)+B(7515)+B(7518) -! JVS(3066) = Jac_FULL(770,5252) - JVS(3066) = B(7514) -! JVS(3067) = Jac_FULL(770,5256) - JVS(3067) = B(7516) -! JVS(3068) = Jac_FULL(771,771) - JVS(3068) = -B(12484)-B(12485) -! JVS(3069) = Jac_FULL(771,4952) - JVS(3069) = B(8836) -! JVS(3070) = Jac_FULL(771,5258) - JVS(3070) = B(8837) -! JVS(3071) = Jac_FULL(772,772) - JVS(3071) = -B(22910)-B(22912) -! JVS(3072) = Jac_FULL(772,3715) - JVS(3072) = B(22437) -! JVS(3073) = Jac_FULL(772,5250) - JVS(3073) = -B(22911) -! JVS(3074) = Jac_FULL(773,773) - JVS(3074) = -B(16034) -! JVS(3075) = Jac_FULL(773,1840) - JVS(3075) = B(16033) -! JVS(3076) = Jac_FULL(773,4069) - JVS(3076) = B(12960)+B(12962)+B(12964) -! JVS(3077) = Jac_FULL(773,5252) - JVS(3077) = B(12961) -! JVS(3078) = Jac_FULL(773,5256) - JVS(3078) = B(12963) -! JVS(3079) = Jac_FULL(774,774) - JVS(3079) = -B(22882) -! JVS(3080) = Jac_FULL(774,1958) - JVS(3080) = B(22881) -! JVS(3081) = Jac_FULL(774,4131) - JVS(3081) = B(22403)+B(22405)+B(22408) -! JVS(3082) = Jac_FULL(774,5252) - JVS(3082) = B(22404) -! JVS(3083) = Jac_FULL(774,5256) - JVS(3083) = B(22406) -! JVS(3084) = Jac_FULL(775,775) - JVS(3084) = -B(22355) -! JVS(3085) = Jac_FULL(775,1985) - JVS(3085) = B(22354) -! JVS(3086) = Jac_FULL(775,3838) - JVS(3086) = B(21720)+B(21722)+B(21724) -! JVS(3087) = Jac_FULL(775,5252) - JVS(3087) = B(21721) -! JVS(3088) = Jac_FULL(775,5256) - JVS(3088) = B(21723) -! JVS(3089) = Jac_FULL(776,776) - JVS(3089) = -B(17949) -! JVS(3090) = Jac_FULL(776,2298) - JVS(3090) = B(17946) -! JVS(3091) = Jac_FULL(776,3919) - JVS(3091) = B(15342)+B(15344)+B(15346) -! JVS(3092) = Jac_FULL(776,5252) - JVS(3092) = B(15343) -! JVS(3093) = Jac_FULL(776,5256) - JVS(3093) = B(15345) -! JVS(3094) = Jac_FULL(777,777) - JVS(3094) = -B(18036) -! JVS(3095) = Jac_FULL(777,1947) - JVS(3095) = B(18035) -! JVS(3096) = Jac_FULL(777,4284) - JVS(3096) = B(15418)+B(15420)+B(15422) -! JVS(3097) = Jac_FULL(777,5252) - JVS(3097) = B(15419) -! JVS(3098) = Jac_FULL(777,5256) - JVS(3098) = B(15421) -! JVS(3099) = Jac_FULL(778,778) - JVS(3099) = -B(19658) -! JVS(3100) = Jac_FULL(778,1908) - JVS(3100) = B(19655) -! JVS(3101) = Jac_FULL(778,4566) - JVS(3101) = B(17762)+B(17764)+B(17767) -! JVS(3102) = Jac_FULL(778,5252) - JVS(3102) = B(17763) -! JVS(3103) = Jac_FULL(778,5256) - JVS(3103) = B(17765) -! JVS(3104) = Jac_FULL(779,779) - JVS(3104) = -B(9116)-B(9118) -! JVS(3105) = Jac_FULL(779,4718) - JVS(3105) = B(5539) -! JVS(3106) = Jac_FULL(779,5250) - JVS(3106) = -B(9117) -! JVS(3107) = Jac_FULL(780,780) - JVS(3107) = -B(18668) -! JVS(3108) = Jac_FULL(780,1783) - JVS(3108) = B(18667) -! JVS(3109) = Jac_FULL(780,4535) - JVS(3109) = B(16378)+B(16380)+B(16382) -! JVS(3110) = Jac_FULL(780,5252) - JVS(3110) = B(16379) -! JVS(3111) = Jac_FULL(780,5256) - JVS(3111) = B(16381) -! JVS(3112) = Jac_FULL(781,781) - JVS(3112) = -B(20321) -! JVS(3113) = Jac_FULL(781,2617) - JVS(3113) = B(20320) -! JVS(3114) = Jac_FULL(781,4129) - JVS(3114) = B(18744)+B(18746)+B(18748) -! JVS(3115) = Jac_FULL(781,5252) - JVS(3115) = B(18745) -! JVS(3116) = Jac_FULL(781,5256) - JVS(3116) = B(18747) -! JVS(3117) = Jac_FULL(782,782) - JVS(3117) = -B(13255) -! JVS(3118) = Jac_FULL(782,2047) - JVS(3118) = B(13253) -! JVS(3119) = Jac_FULL(782,3814) - JVS(3119) = B(9900)+B(9902)+B(9904) -! JVS(3120) = Jac_FULL(782,5252) - JVS(3120) = B(9901) -! JVS(3121) = Jac_FULL(782,5256) - JVS(3121) = B(9903) -! JVS(3122) = Jac_FULL(783,783) - JVS(3122) = -B(7296) -! JVS(3123) = Jac_FULL(783,2103) - JVS(3123) = B(7295) -! JVS(3124) = Jac_FULL(783,3921) - JVS(3124) = B(3432)+B(3434)+B(3436) -! JVS(3125) = Jac_FULL(783,5252) - JVS(3125) = B(3433) -! JVS(3126) = Jac_FULL(783,5256) - JVS(3126) = B(3435) -! JVS(3127) = Jac_FULL(784,784) - JVS(3127) = -B(7302) -! JVS(3128) = Jac_FULL(784,2058) - JVS(3128) = B(7301) -! JVS(3129) = Jac_FULL(784,3936) - JVS(3129) = B(3442)+B(3444)+B(3447) -! JVS(3130) = Jac_FULL(784,5252) - JVS(3130) = B(3443) -! JVS(3131) = Jac_FULL(784,5256) - JVS(3131) = B(3445) -! JVS(3132) = Jac_FULL(785,785) - JVS(3132) = -B(9784)-B(9786) -! JVS(3133) = Jac_FULL(785,4803) - JVS(3133) = B(6086) -! JVS(3134) = Jac_FULL(785,5250) - JVS(3134) = -B(9785) -! JVS(3135) = Jac_FULL(786,786) - JVS(3135) = -B(19043) -! JVS(3136) = Jac_FULL(786,1901) - JVS(3136) = B(19042) -! JVS(3137) = Jac_FULL(786,4768) - JVS(3137) = B(16837)+B(16839)+B(16841) -! JVS(3138) = Jac_FULL(786,5252) - JVS(3138) = B(16838) -! JVS(3139) = Jac_FULL(786,5256) - JVS(3139) = B(16840) -! JVS(3140) = Jac_FULL(787,787) - JVS(3140) = -B(12863) -! JVS(3141) = Jac_FULL(787,2204) - JVS(3141) = B(12862) -! JVS(3142) = Jac_FULL(787,4030) - JVS(3142) = B(9373)+B(9375)+B(9378) -! JVS(3143) = Jac_FULL(787,5252) - JVS(3143) = B(9374) -! JVS(3144) = Jac_FULL(787,5256) - JVS(3144) = B(9376) -! JVS(3145) = Jac_FULL(788,788) - JVS(3145) = -B(8727)-B(8729) -! JVS(3146) = Jac_FULL(788,4720) - JVS(3146) = B(5248) -! JVS(3147) = Jac_FULL(788,5250) - JVS(3147) = -B(8728) -! JVS(3148) = Jac_FULL(789,789) - JVS(3148) = -B(22392)-B(22394) -! JVS(3149) = Jac_FULL(789,4410) - JVS(3149) = B(21775) -! JVS(3150) = Jac_FULL(789,5250) - JVS(3150) = -B(22393) -! JVS(3151) = Jac_FULL(790,790) - JVS(3151) = -B(13831)-B(13832) -! JVS(3152) = Jac_FULL(790,4786) - JVS(3152) = B(10620) -! JVS(3153) = Jac_FULL(790,5258) - JVS(3153) = B(10621) -! JVS(3154) = Jac_FULL(791,791) - JVS(3154) = -B(17919) -! JVS(3155) = Jac_FULL(791,2027) - JVS(3155) = B(17916) -! JVS(3156) = Jac_FULL(791,3881) - JVS(3156) = B(15314)+B(15316)+B(15318) -! JVS(3157) = Jac_FULL(791,5252) - JVS(3157) = B(15315) -! JVS(3158) = Jac_FULL(791,5256) - JVS(3158) = B(15317) -! JVS(3159) = Jac_FULL(792,792) - JVS(3159) = -B(15913) -! JVS(3160) = Jac_FULL(792,1898) - JVS(3160) = B(15912) -! JVS(3161) = Jac_FULL(792,3727) - JVS(3161) = B(12830)+B(12832)+B(12835) -! JVS(3162) = Jac_FULL(792,5252) - JVS(3162) = B(12831) -! JVS(3163) = Jac_FULL(792,5256) - JVS(3163) = B(12833) -! JVS(3164) = Jac_FULL(793,793) - JVS(3164) = -B(21941) -! JVS(3165) = Jac_FULL(793,3950) - JVS(3165) = B(20883) -! JVS(3166) = Jac_FULL(793,5250) - JVS(3166) = -B(21942) -! JVS(3167) = Jac_FULL(794,794) - JVS(3167) = -B(15365)-B(15366) -! JVS(3168) = Jac_FULL(794,4179) - JVS(3168) = B(12135) -! JVS(3169) = Jac_FULL(794,5250) - JVS(3169) = B(12136)-B(15367) -! JVS(3170) = Jac_FULL(795,795) - JVS(3170) = -B(22306) -! JVS(3171) = Jac_FULL(795,2348) - JVS(3171) = B(22305) -! JVS(3172) = Jac_FULL(795,3976) - JVS(3172) = B(21662)+B(21664)+B(21666) -! JVS(3173) = Jac_FULL(795,5252) - JVS(3173) = B(21663) -! JVS(3174) = Jac_FULL(795,5256) - JVS(3174) = B(21665) -! JVS(3175) = Jac_FULL(796,796) - JVS(3175) = -B(6539)-B(6541) -! JVS(3176) = Jac_FULL(796,4167) - JVS(3176) = B(2978) -! JVS(3177) = Jac_FULL(796,5250) - JVS(3177) = -B(6540) -! JVS(3178) = Jac_FULL(797,797) - JVS(3178) = -B(7477) -! JVS(3179) = Jac_FULL(797,2180) - JVS(3179) = B(7476) -! JVS(3180) = Jac_FULL(797,3891) - JVS(3180) = B(3566)+B(3568)+B(3571) -! JVS(3181) = Jac_FULL(797,5252) - JVS(3181) = B(3567) -! JVS(3182) = Jac_FULL(797,5256) - JVS(3182) = B(3569) -! JVS(3183) = Jac_FULL(798,798) - JVS(3183) = -B(18633) -! JVS(3184) = Jac_FULL(798,2389) - JVS(3184) = B(18632) -! JVS(3185) = Jac_FULL(798,3680) - JVS(3185) = B(16323)+B(16325)+B(16327) -! JVS(3186) = Jac_FULL(798,5252) - JVS(3186) = B(16324) -! JVS(3187) = Jac_FULL(798,5256) - JVS(3187) = B(16326) -! JVS(3188) = Jac_FULL(799,799) - JVS(3188) = -B(20790)-B(20792) -! JVS(3189) = Jac_FULL(799,4900) - JVS(3189) = B(19208) -! JVS(3190) = Jac_FULL(799,5250) - JVS(3190) = -B(20791) -! JVS(3191) = Jac_FULL(800,800) - JVS(3191) = -B(15633) -! JVS(3192) = Jac_FULL(800,2152) - JVS(3192) = B(15632) -! JVS(3193) = Jac_FULL(800,4440) - JVS(3193) = B(12541)+B(12543)+B(12545) -! JVS(3194) = Jac_FULL(800,5252) - JVS(3194) = B(12542) -! JVS(3195) = Jac_FULL(800,5256) - JVS(3195) = B(12544) -! JVS(3196) = Jac_FULL(801,801) - JVS(3196) = -B(13366) -! JVS(3197) = Jac_FULL(801,2690) - JVS(3197) = B(13364) -! JVS(3198) = Jac_FULL(801,4070) - JVS(3198) = B(10132)+B(10134)+B(10136) -! JVS(3199) = Jac_FULL(801,5252) - JVS(3199) = B(10133) -! JVS(3200) = Jac_FULL(801,5256) - JVS(3200) = B(10135) -! JVS(3201) = Jac_FULL(802,802) - JVS(3201) = -B(23880) -! JVS(3202) = Jac_FULL(802,1793) - JVS(3202) = B(23879) -! JVS(3203) = Jac_FULL(802,4136) - JVS(3203) = B(23704)+B(23706)+B(23709) -! JVS(3204) = Jac_FULL(802,5252) - JVS(3204) = B(23705) -! JVS(3205) = Jac_FULL(802,5256) - JVS(3205) = B(23707) -! JVS(3206) = Jac_FULL(803,803) - JVS(3206) = -B(15309)-B(15310) -! JVS(3207) = Jac_FULL(803,4103) - JVS(3207) = B(12099) -! JVS(3208) = Jac_FULL(803,5250) - JVS(3208) = B(12100)-B(15311) -! JVS(3209) = Jac_FULL(804,804) - JVS(3209) = -B(17964)-B(17965) -! JVS(3210) = Jac_FULL(804,4715) - JVS(3210) = B(15364) -! JVS(3211) = Jac_FULL(804,5250) - JVS(3211) = -B(17966) -! JVS(3212) = Jac_FULL(805,805) - JVS(3212) = -B(19630)-B(19631) -! JVS(3213) = Jac_FULL(805,3780) - JVS(3213) = B(17657) -! JVS(3214) = Jac_FULL(805,5250) - JVS(3214) = B(17658)-B(19632) -! JVS(3215) = Jac_FULL(806,806) - JVS(3215) = -B(130)-B(132)-B(134) -! JVS(3216) = Jac_FULL(806,5078) - JVS(3216) = B(1693) -! JVS(3217) = Jac_FULL(806,5250) - JVS(3217) = -B(131)-B(133)-B(135) -! JVS(3218) = Jac_FULL(807,807) - JVS(3218) = -B(17875)-B(17876) -! JVS(3219) = Jac_FULL(807,4716) - JVS(3219) = B(15286) -! JVS(3220) = Jac_FULL(807,5250) - JVS(3220) = -B(17877) -! JVS(3221) = Jac_FULL(808,808) - JVS(3221) = -B(12390) -! JVS(3222) = Jac_FULL(808,3446) - JVS(3222) = B(12389) -! JVS(3223) = Jac_FULL(808,4358) - JVS(3223) = B(8743)+B(8745)+B(8749) -! JVS(3224) = Jac_FULL(808,5252) - JVS(3224) = B(8744) -! JVS(3225) = Jac_FULL(808,5256) - JVS(3225) = B(8746) -! JVS(3226) = Jac_FULL(809,809) - JVS(3226) = -B(18175) -! JVS(3227) = Jac_FULL(809,2093) - JVS(3227) = B(18174) -! JVS(3228) = Jac_FULL(809,4327) - JVS(3228) = B(15664)+B(15666)+B(15668) -! JVS(3229) = Jac_FULL(809,5252) - JVS(3229) = B(15665) -! JVS(3230) = Jac_FULL(809,5256) - JVS(3230) = B(15667) -! JVS(3231) = Jac_FULL(810,810) - JVS(3231) = -B(23199) -! JVS(3232) = Jac_FULL(810,1871) - JVS(3232) = B(23198) -! JVS(3233) = Jac_FULL(810,4147) - JVS(3233) = B(22738)+B(22740)+B(22743) -! JVS(3234) = Jac_FULL(810,5252) - JVS(3234) = B(22739) -! JVS(3235) = Jac_FULL(810,5256) - JVS(3235) = B(22741) -! JVS(3236) = Jac_FULL(811,811) - JVS(3236) = -B(10086)-B(10088) -! JVS(3237) = Jac_FULL(811,4727) - JVS(3237) = B(6384) -! JVS(3238) = Jac_FULL(811,5250) - JVS(3238) = -B(10087) -! JVS(3239) = Jac_FULL(812,812) - JVS(3239) = -B(9700)-B(9702) -! JVS(3240) = Jac_FULL(812,4971) - JVS(3240) = B(6006) -! JVS(3241) = Jac_FULL(812,5250) - JVS(3241) = -B(9701) -! JVS(3242) = Jac_FULL(813,813) - JVS(3242) = -B(22066) -! JVS(3243) = Jac_FULL(813,4385) - JVS(3243) = B(21038) -! JVS(3244) = Jac_FULL(813,5250) - JVS(3244) = -B(22067) -! JVS(3245) = Jac_FULL(814,814) - JVS(3245) = -B(16180) -! JVS(3246) = Jac_FULL(814,2262) - JVS(3246) = B(16179) -! JVS(3247) = Jac_FULL(814,3945) - JVS(3247) = B(13105)+B(13107)+B(13109) -! JVS(3248) = Jac_FULL(814,5252) - JVS(3248) = B(13106) -! JVS(3249) = Jac_FULL(814,5256) - JVS(3249) = B(13108) -! JVS(3250) = Jac_FULL(815,815) - JVS(3250) = -B(12317) -! JVS(3251) = Jac_FULL(815,2166) - JVS(3251) = B(12316) -! JVS(3252) = Jac_FULL(815,4590) - JVS(3252) = B(8648)+B(8650)+B(8653) -! JVS(3253) = Jac_FULL(815,5252) - JVS(3253) = B(8649) -! JVS(3254) = Jac_FULL(815,5256) - JVS(3254) = B(8651) -! JVS(3255) = Jac_FULL(816,816) - JVS(3255) = -B(18095) -! JVS(3256) = Jac_FULL(816,2046) - JVS(3256) = B(18094) -! JVS(3257) = Jac_FULL(816,3685) - JVS(3257) = B(15510)+B(15512)+B(15514) -! JVS(3258) = Jac_FULL(816,5252) - JVS(3258) = B(15511) -! JVS(3259) = Jac_FULL(816,5256) - JVS(3259) = B(15513) -! JVS(3260) = Jac_FULL(817,817) - JVS(3260) = -B(23140) -! JVS(3261) = Jac_FULL(817,2440) - JVS(3261) = B(23139) -! JVS(3262) = Jac_FULL(817,4130) - JVS(3262) = B(22678)+B(22680)+B(22683) -! JVS(3263) = Jac_FULL(817,5252) - JVS(3263) = B(22679) -! JVS(3264) = Jac_FULL(817,5256) - JVS(3264) = B(22681) -! JVS(3265) = Jac_FULL(818,818) - JVS(3265) = -B(3974) -! JVS(3266) = Jac_FULL(818,4943) - JVS(3266) = B(4358) -! JVS(3267) = Jac_FULL(818,5244) - JVS(3267) = B(1201)+B(1213) -! JVS(3268) = Jac_FULL(818,5250) - JVS(3268) = -B(3975) -! JVS(3269) = Jac_FULL(818,5255) - JVS(3269) = B(1202) -! JVS(3270) = Jac_FULL(819,819) - JVS(3270) = -B(13661)-B(13662) -! JVS(3271) = Jac_FULL(819,5013) - JVS(3271) = B(10497) -! JVS(3272) = Jac_FULL(819,5258) - JVS(3272) = B(10498) -! JVS(3273) = Jac_FULL(820,820) - JVS(3273) = -B(21160) -! JVS(3274) = Jac_FULL(820,2115) - JVS(3274) = B(21157) -! JVS(3275) = Jac_FULL(820,4549) - JVS(3275) = B(19614)+B(19616)+B(19618) -! JVS(3276) = Jac_FULL(820,5252) - JVS(3276) = B(19615) -! JVS(3277) = Jac_FULL(820,5256) - JVS(3277) = B(19617) -! JVS(3278) = Jac_FULL(821,821) - JVS(3278) = -B(19257)-B(19259) -! JVS(3279) = Jac_FULL(821,5196) - JVS(3279) = B(17053) -! JVS(3280) = Jac_FULL(821,5250) - JVS(3280) = -B(19258) -! JVS(3281) = Jac_FULL(822,822) - JVS(3281) = -B(16083)-B(16085) -! JVS(3282) = Jac_FULL(822,3997) - JVS(3282) = B(12985) -! JVS(3283) = Jac_FULL(822,5250) - JVS(3283) = -B(16084) -! JVS(3284) = Jac_FULL(822,5255) - JVS(3284) = B(12986) -! JVS(3285) = Jac_FULL(823,823) - JVS(3285) = -B(22462)-B(22464) -! JVS(3286) = Jac_FULL(823,4659) - JVS(3286) = B(21842) -! JVS(3287) = Jac_FULL(823,5250) - JVS(3287) = -B(22463) -! JVS(3288) = Jac_FULL(823,5255) - JVS(3288) = B(21843) -! JVS(3289) = Jac_FULL(824,824) - JVS(3289) = -B(23935)-B(23937) -! JVS(3290) = Jac_FULL(824,4853) - JVS(3290) = B(23807) -! JVS(3291) = Jac_FULL(824,5250) - JVS(3291) = -B(23936) -! JVS(3292) = Jac_FULL(824,5255) - JVS(3292) = B(23808) -! JVS(3293) = Jac_FULL(825,825) - JVS(3293) = -B(20067)-B(20069) -! JVS(3294) = Jac_FULL(825,4262) - JVS(3294) = B(18305) -! JVS(3295) = Jac_FULL(825,5250) - JVS(3295) = -B(20068) -! JVS(3296) = Jac_FULL(825,5255) - JVS(3296) = B(18306) -! JVS(3297) = Jac_FULL(826,826) - JVS(3297) = -B(23693)-B(23695) -! JVS(3298) = Jac_FULL(826,4216) - JVS(3298) = B(23429) -! JVS(3299) = Jac_FULL(826,5250) - JVS(3299) = -B(23694) -! JVS(3300) = Jac_FULL(826,5255) - JVS(3300) = B(23430) -! JVS(3301) = Jac_FULL(827,827) - JVS(3301) = -B(23594)-B(23596) -! JVS(3302) = Jac_FULL(827,4653) - JVS(3302) = B(23298)+B(23310) -! JVS(3303) = Jac_FULL(827,5250) - JVS(3303) = -B(23595) -! JVS(3304) = Jac_FULL(827,5255) - JVS(3304) = B(23299) -! JVS(3305) = Jac_FULL(828,828) - JVS(3305) = -B(11964)-B(11965) -! JVS(3306) = Jac_FULL(828,4771) - JVS(3306) = B(8214) -! JVS(3307) = Jac_FULL(828,5250) - JVS(3307) = -B(11966) -! JVS(3308) = Jac_FULL(828,5255) - JVS(3308) = B(8215) -! JVS(3309) = Jac_FULL(829,829) - JVS(3309) = -B(12242)-B(12244) -! JVS(3310) = Jac_FULL(829,4344) - JVS(3310) = B(8539) -! JVS(3311) = Jac_FULL(829,5250) - JVS(3311) = -B(12243) -! JVS(3312) = Jac_FULL(829,5255) - JVS(3312) = B(8540) -! JVS(3313) = Jac_FULL(830,830) - JVS(3313) = -B(19485)-B(19487) -! JVS(3314) = Jac_FULL(830,4043) - JVS(3314) = B(17310) -! JVS(3315) = Jac_FULL(830,5250) - JVS(3315) = -B(19486) -! JVS(3316) = Jac_FULL(830,5255) - JVS(3316) = B(17311) -! JVS(3317) = Jac_FULL(831,831) - JVS(3317) = -B(11693)-B(11694) -! JVS(3318) = Jac_FULL(831,3932) - JVS(3318) = B(7974) -! JVS(3319) = Jac_FULL(831,5250) - JVS(3319) = -B(11695) -! JVS(3320) = Jac_FULL(831,5255) - JVS(3320) = B(7975) -! JVS(3321) = Jac_FULL(832,832) - JVS(3321) = -B(11988)-B(11989) -! JVS(3322) = Jac_FULL(832,4994) - JVS(3322) = B(8239) -! JVS(3323) = Jac_FULL(832,5250) - JVS(3323) = -B(11990) -! JVS(3324) = Jac_FULL(832,5255) - JVS(3324) = B(8240) -! JVS(3325) = Jac_FULL(833,833) - JVS(3325) = -B(11572)-B(11574) -! JVS(3326) = Jac_FULL(833,5158) - JVS(3326) = B(7796) -! JVS(3327) = Jac_FULL(833,5250) - JVS(3327) = -B(11573) -! JVS(3328) = Jac_FULL(833,5255) - JVS(3328) = B(7797) -! JVS(3329) = Jac_FULL(834,834) - JVS(3329) = -B(12279) -! JVS(3330) = Jac_FULL(834,4427) - JVS(3330) = B(8605)+B(8616) -! JVS(3331) = Jac_FULL(834,5250) - JVS(3331) = -B(12280) -! JVS(3332) = Jac_FULL(834,5255) - JVS(3332) = B(8606) -! JVS(3333) = Jac_FULL(835,835) - JVS(3333) = -B(19922)-B(19924) -! JVS(3334) = Jac_FULL(835,4306) - JVS(3334) = B(18111) -! JVS(3335) = Jac_FULL(835,5250) - JVS(3335) = -B(19923) -! JVS(3336) = Jac_FULL(835,5255) - JVS(3336) = B(18112) -! JVS(3337) = Jac_FULL(836,836) - JVS(3337) = -B(11766)-B(11767) -! JVS(3338) = Jac_FULL(836,3718) - JVS(3338) = B(8040) -! JVS(3339) = Jac_FULL(836,5250) - JVS(3339) = -B(11768) -! JVS(3340) = Jac_FULL(836,5255) - JVS(3340) = B(8041) -! JVS(3341) = Jac_FULL(837,837) - JVS(3341) = -B(8857)-B(8859) -! JVS(3342) = Jac_FULL(837,4626) - JVS(3342) = B(5349) -! JVS(3343) = Jac_FULL(837,5250) - JVS(3343) = -B(8858) -! JVS(3344) = Jac_FULL(837,5255) - JVS(3344) = B(5350) -! JVS(3345) = Jac_FULL(838,838) - JVS(3345) = -B(15645)-B(15647) -! JVS(3346) = Jac_FULL(838,4422) - JVS(3346) = B(12555) -! JVS(3347) = Jac_FULL(838,5250) - JVS(3347) = -B(15646) -! JVS(3348) = Jac_FULL(838,5255) - JVS(3348) = B(12556) -! JVS(3349) = Jac_FULL(839,839) - JVS(3349) = -B(20445)-B(20446) -! JVS(3350) = Jac_FULL(839,4658) - JVS(3350) = B(18854)+B(18865) -! JVS(3351) = Jac_FULL(839,5250) - JVS(3351) = -B(20447) -! JVS(3352) = Jac_FULL(839,5255) - JVS(3352) = B(18855) -! JVS(3353) = Jac_FULL(840,840) - JVS(3353) = -B(11139)-B(11141) -! JVS(3354) = Jac_FULL(840,3733) - JVS(3354) = B(7344) -! JVS(3355) = Jac_FULL(840,5250) - JVS(3355) = -B(11140) -! JVS(3356) = Jac_FULL(840,5252) - JVS(3356) = B(7345) -! JVS(3357) = Jac_FULL(841,841) - JVS(3357) = -B(6667)-B(6668) -! JVS(3358) = Jac_FULL(841,4111) - JVS(3358) = B(3066) -! JVS(3359) = Jac_FULL(841,5250) - JVS(3359) = -B(6669) -! JVS(3360) = Jac_FULL(841,5255) - JVS(3360) = B(3067) -! JVS(3361) = Jac_FULL(842,842) - JVS(3361) = -B(22496)-B(22498) -! JVS(3362) = Jac_FULL(842,4439) - JVS(3362) = B(21885) -! JVS(3363) = Jac_FULL(842,5250) - JVS(3363) = -B(22497) -! JVS(3364) = Jac_FULL(842,5255) - JVS(3364) = B(21886) -! JVS(3365) = Jac_FULL(843,843) - JVS(3365) = -B(13313)-B(13315) -! JVS(3366) = Jac_FULL(843,4008) - JVS(3366) = B(10031) -! JVS(3367) = Jac_FULL(843,5250) - JVS(3367) = -B(13314) -! JVS(3368) = Jac_FULL(843,5255) - JVS(3368) = B(10032) -! JVS(3369) = Jac_FULL(844,844) - JVS(3369) = -B(16350)-B(16352) -! JVS(3370) = Jac_FULL(844,4035) - JVS(3370) = B(13324) -! JVS(3371) = Jac_FULL(844,5250) - JVS(3371) = -B(16351) -! JVS(3372) = Jac_FULL(844,5255) - JVS(3372) = B(13325) -! JVS(3373) = Jac_FULL(845,845) - JVS(3373) = -B(17625)-B(17626) -! JVS(3374) = Jac_FULL(845,4629) - JVS(3374) = B(15056) -! JVS(3375) = Jac_FULL(845,5250) - JVS(3375) = -B(17627) -! JVS(3376) = Jac_FULL(845,5255) - JVS(3376) = B(15057) -! JVS(3377) = Jac_FULL(846,846) - JVS(3377) = -B(8873)-B(8875) -! JVS(3378) = Jac_FULL(846,4821) - JVS(3378) = B(5363) -! JVS(3379) = Jac_FULL(846,5250) - JVS(3379) = -B(8874) -! JVS(3380) = Jac_FULL(846,5255) - JVS(3380) = B(5364) -! JVS(3381) = Jac_FULL(847,847) - JVS(3381) = -B(3682) -! JVS(3382) = Jac_FULL(847,4645) - JVS(3382) = B(975) -! JVS(3383) = Jac_FULL(847,5149) - JVS(3383) = B(2052) -! JVS(3384) = Jac_FULL(847,5250) - JVS(3384) = -B(3683) -! JVS(3385) = Jac_FULL(848,848) - JVS(3385) = -B(4788)-B(4789) -! JVS(3386) = Jac_FULL(848,5065) - JVS(3386) = B(1964) -! JVS(3387) = Jac_FULL(848,5250) - JVS(3387) = -B(4790) -! JVS(3388) = Jac_FULL(848,5255) - JVS(3388) = B(1965) -! JVS(3389) = Jac_FULL(849,849) - JVS(3389) = -B(22398)-B(22400) -! JVS(3390) = Jac_FULL(849,4624) - JVS(3390) = B(21778) -! JVS(3391) = Jac_FULL(849,5250) - JVS(3391) = -B(22399) -! JVS(3392) = Jac_FULL(849,5255) - JVS(3392) = B(21779) -! JVS(3393) = Jac_FULL(850,850) - JVS(3393) = -B(21223)-B(21224) -! JVS(3394) = Jac_FULL(850,4521) - JVS(3394) = B(19760) -! JVS(3395) = Jac_FULL(850,5250) - JVS(3395) = -B(21225) -! JVS(3396) = Jac_FULL(850,5255) - JVS(3396) = B(19761) -! JVS(3397) = Jac_FULL(851,851) - JVS(3397) = -B(9467)-B(9469) -! JVS(3398) = Jac_FULL(851,4377) - JVS(3398) = B(5824) -! JVS(3399) = Jac_FULL(851,5250) - JVS(3399) = -B(9468) -! JVS(3400) = Jac_FULL(851,5255) - JVS(3400) = B(5825) -! JVS(3401) = Jac_FULL(852,852) - JVS(3401) = -B(13344)-B(13346) -! JVS(3402) = Jac_FULL(852,4085) - JVS(3402) = B(10111) -! JVS(3403) = Jac_FULL(852,5250) - JVS(3403) = -B(13345) -! JVS(3404) = Jac_FULL(852,5255) - JVS(3404) = B(10112) -! JVS(3405) = Jac_FULL(853,853) - JVS(3405) = -B(11942)-B(11943) -! JVS(3406) = Jac_FULL(853,4469) - JVS(3406) = B(8188) -! JVS(3407) = Jac_FULL(853,5250) - JVS(3407) = -B(11944) -! JVS(3408) = Jac_FULL(853,5255) - JVS(3408) = B(8189) -! JVS(3409) = Jac_FULL(854,854) - JVS(3409) = -B(12749)-B(12751) -! JVS(3410) = Jac_FULL(854,4001) - JVS(3410) = B(9231) -! JVS(3411) = Jac_FULL(854,5250) - JVS(3411) = -B(12750) -! JVS(3412) = Jac_FULL(854,5255) - JVS(3412) = B(9232) -! JVS(3413) = Jac_FULL(855,855) - JVS(3413) = -B(4398)-B(4400) -! JVS(3414) = Jac_FULL(855,4981) - JVS(3414) = B(1619) -! JVS(3415) = Jac_FULL(855,5250) - JVS(3415) = -B(4399) -! JVS(3416) = Jac_FULL(855,5255) - JVS(3416) = B(1620) -! JVS(3417) = Jac_FULL(856,856) - JVS(3417) = -B(23525) -! JVS(3418) = Jac_FULL(856,4673) - JVS(3418) = B(23182)+B(23194) -! JVS(3419) = Jac_FULL(856,5250) - JVS(3419) = -B(23526) -! JVS(3420) = Jac_FULL(856,5255) - JVS(3420) = B(23183) -! JVS(3421) = Jac_FULL(857,857) - JVS(3421) = -B(18627)-B(18629) -! JVS(3422) = Jac_FULL(857,4061) - JVS(3422) = B(16314) -! JVS(3423) = Jac_FULL(857,5250) - JVS(3423) = -B(18628) -! JVS(3424) = Jac_FULL(857,5255) - JVS(3424) = B(16315) -! JVS(3425) = Jac_FULL(858,858) - JVS(3425) = -B(23884)-B(23886) -! JVS(3426) = Jac_FULL(858,4115) - JVS(3426) = B(23711) -! JVS(3427) = Jac_FULL(858,5250) - JVS(3427) = -B(23885) -! JVS(3428) = Jac_FULL(858,5255) - JVS(3428) = B(23712) -! JVS(3429) = Jac_FULL(859,859) - JVS(3429) = -B(19196)-B(19198) -! JVS(3430) = Jac_FULL(859,4664) - JVS(3430) = B(16984) -! JVS(3431) = Jac_FULL(859,5250) - JVS(3431) = -B(19197) -! JVS(3432) = Jac_FULL(859,5255) - JVS(3432) = B(16985) -! JVS(3433) = Jac_FULL(860,860) - JVS(3433) = -B(18390)-B(18392) -! JVS(3434) = Jac_FULL(860,4280) - JVS(3434) = B(15974) -! JVS(3435) = Jac_FULL(860,5250) - JVS(3435) = -B(18391) -! JVS(3436) = Jac_FULL(860,5255) - JVS(3436) = B(15975) -! JVS(3437) = Jac_FULL(861,861) - JVS(3437) = -B(6272)-B(6274) -! JVS(3438) = Jac_FULL(861,3798) - JVS(3438) = B(2844) -! JVS(3439) = Jac_FULL(861,5250) - JVS(3439) = -B(6273) -! JVS(3440) = Jac_FULL(861,5255) - JVS(3440) = B(2845) -! JVS(3441) = Jac_FULL(862,862) - JVS(3441) = -B(12944)-B(12946) -! JVS(3442) = Jac_FULL(862,2936) - JVS(3442) = B(12896) -! JVS(3443) = Jac_FULL(862,4997) - JVS(3443) = B(9466) -! JVS(3444) = Jac_FULL(862,5250) - JVS(3444) = -B(12945) -! JVS(3445) = Jac_FULL(863,863) - JVS(3445) = -B(23270)-B(23272) -! JVS(3446) = Jac_FULL(863,3846) - JVS(3446) = B(22845) -! JVS(3447) = Jac_FULL(863,5250) - JVS(3447) = -B(23271) -! JVS(3448) = Jac_FULL(863,5255) - JVS(3448) = B(22846) -! JVS(3449) = Jac_FULL(864,864) - JVS(3449) = -B(16902)-B(16904) -! JVS(3450) = Jac_FULL(864,4910) - JVS(3450) = B(14258) -! JVS(3451) = Jac_FULL(864,5250) - JVS(3451) = -B(16903) -! JVS(3452) = Jac_FULL(864,5255) - JVS(3452) = B(14259) -! JVS(3453) = Jac_FULL(865,865) - JVS(3453) = -B(14879)-B(14881) -! JVS(3454) = Jac_FULL(865,4244) - JVS(3454) = B(11542) -! JVS(3455) = Jac_FULL(865,5250) - JVS(3455) = -B(14880) -! JVS(3456) = Jac_FULL(865,5255) - JVS(3456) = B(11543) -! JVS(3457) = Jac_FULL(866,866) - JVS(3457) = -B(24043)-B(24045) -! JVS(3458) = Jac_FULL(866,4543) - JVS(3458) = B(24036) -! JVS(3459) = Jac_FULL(866,5250) - JVS(3459) = -B(24044) -! JVS(3460) = Jac_FULL(866,5255) - JVS(3460) = B(24037) -! JVS(3461) = Jac_FULL(867,867) - JVS(3461) = -B(12769)-B(12771) -! JVS(3462) = Jac_FULL(867,4187) - JVS(3462) = B(9252) -! JVS(3463) = Jac_FULL(867,5250) - JVS(3463) = -B(12770) -! JVS(3464) = Jac_FULL(867,5255) - JVS(3464) = B(9253) -! JVS(3465) = Jac_FULL(868,868) - JVS(3465) = -B(11440)-B(11441) -! JVS(3466) = Jac_FULL(868,5237) - JVS(3466) = B(7590) -! JVS(3467) = Jac_FULL(868,5250) - JVS(3467) = -B(11442) -! JVS(3468) = Jac_FULL(868,5255) - JVS(3468) = B(7591) -! JVS(3469) = Jac_FULL(869,869) - JVS(3469) = -B(20173)-B(20175) -! JVS(3470) = Jac_FULL(869,4655) - JVS(3470) = B(18495) -! JVS(3471) = Jac_FULL(869,5250) - JVS(3471) = -B(20174) -! JVS(3472) = Jac_FULL(869,5255) - JVS(3472) = B(18496) -! JVS(3473) = Jac_FULL(870,870) - JVS(3473) = -B(4698)-B(4699) -! JVS(3474) = Jac_FULL(870,5146) - JVS(3474) = B(1878) -! JVS(3475) = Jac_FULL(870,5250) - JVS(3475) = -B(4700) -! JVS(3476) = Jac_FULL(870,5255) - JVS(3476) = B(1879) -! JVS(3477) = Jac_FULL(871,871) - JVS(3477) = -B(20985)-B(20987) -! JVS(3478) = Jac_FULL(871,5247) - JVS(3478) = B(19428) -! JVS(3479) = Jac_FULL(871,5250) - JVS(3479) = -B(20986) -! JVS(3480) = Jac_FULL(871,5255) - JVS(3480) = B(19429) -! JVS(3481) = Jac_FULL(872,872) - JVS(3481) = -B(23057)-B(23059) -! JVS(3482) = Jac_FULL(872,3698) - JVS(3482) = B(22624) -! JVS(3483) = Jac_FULL(872,5250) - JVS(3483) = -B(23058) -! JVS(3484) = Jac_FULL(872,5255) - JVS(3484) = B(22625) -! JVS(3485) = Jac_FULL(873,873) - JVS(3485) = -B(10676)-B(10678) -! JVS(3486) = Jac_FULL(873,3980) - JVS(3486) = B(6854) -! JVS(3487) = Jac_FULL(873,5250) - JVS(3487) = -B(10677) -! JVS(3488) = Jac_FULL(873,5255) - JVS(3488) = B(6855) -! JVS(3489) = Jac_FULL(874,874) - JVS(3489) = -B(3807) -! JVS(3490) = Jac_FULL(874,4837) - JVS(3490) = B(1079) -! JVS(3491) = Jac_FULL(874,4959) - JVS(3491) = B(1137) -! JVS(3492) = Jac_FULL(874,5250) - JVS(3492) = -B(3808) -! JVS(3493) = Jac_FULL(875,875) - JVS(3493) = -B(4232)-B(4234) -! JVS(3494) = Jac_FULL(875,4382) - JVS(3494) = B(1459) -! JVS(3495) = Jac_FULL(875,5250) - JVS(3495) = -B(4233) -! JVS(3496) = Jac_FULL(875,5255) - JVS(3496) = B(1460) -! JVS(3497) = Jac_FULL(876,876) - JVS(3497) = -B(11805)-B(11806) -! JVS(3498) = Jac_FULL(876,4990) - JVS(3498) = B(8073) -! JVS(3499) = Jac_FULL(876,5250) - JVS(3499) = -B(11807) -! JVS(3500) = Jac_FULL(876,5255) - JVS(3500) = B(8074) -! JVS(3501) = Jac_FULL(877,877) - JVS(3501) = -B(18572)-B(18574) -! JVS(3502) = Jac_FULL(877,4149) - JVS(3502) = B(16259) -! JVS(3503) = Jac_FULL(877,5250) - JVS(3503) = -B(18573) -! JVS(3504) = Jac_FULL(877,5255) - JVS(3504) = B(16260) -! JVS(3505) = Jac_FULL(878,878) - JVS(3505) = -B(18457)-B(18459) -! JVS(3506) = Jac_FULL(878,4296) - JVS(3506) = B(16076) -! JVS(3507) = Jac_FULL(878,5250) - JVS(3507) = -B(18458) -! JVS(3508) = Jac_FULL(878,5255) - JVS(3508) = B(16077) -! JVS(3509) = Jac_FULL(879,879) - JVS(3509) = -B(21700)-B(21702) -! JVS(3510) = Jac_FULL(879,3858) - JVS(3510) = B(20673) -! JVS(3511) = Jac_FULL(879,5250) - JVS(3511) = -B(21701) -! JVS(3512) = Jac_FULL(879,5255) - JVS(3512) = B(20674) -! JVS(3513) = Jac_FULL(880,880) - JVS(3513) = -B(20843)-B(20845) -! JVS(3514) = Jac_FULL(880,5084) - JVS(3514) = B(19281) -! JVS(3515) = Jac_FULL(880,5250) - JVS(3515) = -B(20844) -! JVS(3516) = Jac_FULL(880,5255) - JVS(3516) = B(19282) -! JVS(3517) = Jac_FULL(881,881) - JVS(3517) = -B(7580)-B(7582) -! JVS(3518) = Jac_FULL(881,3898) - JVS(3518) = B(3620) -! JVS(3519) = Jac_FULL(881,5250) - JVS(3519) = -B(7581) -! JVS(3520) = Jac_FULL(881,5255) - JVS(3520) = B(3621) -! JVS(3521) = Jac_FULL(882,882) - JVS(3521) = -B(22638)-B(22640) -! JVS(3522) = Jac_FULL(882,4825) - JVS(3522) = B(22025) -! JVS(3523) = Jac_FULL(882,5250) - JVS(3523) = -B(22639) -! JVS(3524) = Jac_FULL(882,5255) - JVS(3524) = B(22026) -! JVS(3525) = Jac_FULL(883,883) - JVS(3525) = -B(22116)-B(22118) -! JVS(3526) = Jac_FULL(883,5104) - JVS(3526) = B(21089) -! JVS(3527) = Jac_FULL(883,5250) - JVS(3527) = -B(22117) -! JVS(3528) = Jac_FULL(883,5255) - JVS(3528) = B(21090) -! JVS(3529) = Jac_FULL(884,884) - JVS(3529) = -B(9636)-B(9638) -! JVS(3530) = Jac_FULL(884,3627) - JVS(3530) = B(5959) -! JVS(3531) = Jac_FULL(884,5250) - JVS(3531) = -B(9637) -! JVS(3532) = Jac_FULL(884,5255) - JVS(3532) = B(5960) -! JVS(3533) = Jac_FULL(885,885) - JVS(3533) = -B(14547)-B(14549) -! JVS(3534) = Jac_FULL(885,3988) - JVS(3534) = B(11275) -! JVS(3535) = Jac_FULL(885,5250) - JVS(3535) = -B(14548) -! JVS(3536) = Jac_FULL(885,5255) - JVS(3536) = B(11276) -! JVS(3537) = Jac_FULL(886,886) - JVS(3537) = -B(21654)-B(21656) -! JVS(3538) = Jac_FULL(886,5111) - JVS(3538) = B(20612) -! JVS(3539) = Jac_FULL(886,5250) - JVS(3539) = -B(21655) -! JVS(3540) = Jac_FULL(886,5255) - JVS(3540) = B(20613) -! JVS(3541) = Jac_FULL(887,887) - JVS(3541) = -B(20923)-B(20925) -! JVS(3542) = Jac_FULL(887,3839) - JVS(3542) = B(19354) -! JVS(3543) = Jac_FULL(887,5250) - JVS(3543) = -B(20924) -! JVS(3544) = Jac_FULL(887,5255) - JVS(3544) = B(19355) -! JVS(3545) = Jac_FULL(888,888) - JVS(3545) = -B(20187)-B(20189) -! JVS(3546) = Jac_FULL(888,4643) - JVS(3546) = B(18530) -! JVS(3547) = Jac_FULL(888,5250) - JVS(3547) = -B(20188) -! JVS(3548) = Jac_FULL(888,5255) - JVS(3548) = B(18531) -! JVS(3549) = Jac_FULL(889,889) - JVS(3549) = -B(11739)-B(11741) -! JVS(3550) = Jac_FULL(889,4860) - JVS(3550) = B(8007) -! JVS(3551) = Jac_FULL(889,5250) - JVS(3551) = -B(11740) -! JVS(3552) = Jac_FULL(889,5255) - JVS(3552) = B(8008) -! JVS(3553) = Jac_FULL(890,890) - JVS(3553) = -B(20476) -! JVS(3554) = Jac_FULL(890,4657) - JVS(3554) = B(18884)+B(18895) -! JVS(3555) = Jac_FULL(890,5250) - JVS(3555) = -B(20477) -! JVS(3556) = Jac_FULL(890,5255) - JVS(3556) = B(18885) -! JVS(3557) = Jac_FULL(891,891) - JVS(3557) = -B(15929)-B(15931) -! JVS(3558) = Jac_FULL(891,3860) - JVS(3558) = B(12853) -! JVS(3559) = Jac_FULL(891,5250) - JVS(3559) = -B(15930) -! JVS(3560) = Jac_FULL(891,5255) - JVS(3560) = B(12854) -! JVS(3561) = Jac_FULL(892,892) - JVS(3561) = -B(18234)-B(18236) -! JVS(3562) = Jac_FULL(892,4011) - JVS(3562) = B(15745) -! JVS(3563) = Jac_FULL(892,5250) - JVS(3563) = -B(18235) -! JVS(3564) = Jac_FULL(892,5255) - JVS(3564) = B(15746) -! JVS(3565) = Jac_FULL(893,893) - JVS(3565) = -B(20454) -! JVS(3566) = Jac_FULL(893,4518) - JVS(3566) = B(18868)+B(18879) -! JVS(3567) = Jac_FULL(893,5250) - JVS(3567) = -B(20455) -! JVS(3568) = Jac_FULL(893,5255) - JVS(3568) = B(18869) -! JVS(3569) = Jac_FULL(894,894) - JVS(3569) = -B(21356)-B(21358) -! JVS(3570) = Jac_FULL(894,4808) - JVS(3570) = B(19997) -! JVS(3571) = Jac_FULL(894,5250) - JVS(3571) = -B(21357) -! JVS(3572) = Jac_FULL(894,5255) - JVS(3572) = B(19998) -! JVS(3573) = Jac_FULL(895,895) - JVS(3573) = -B(12017) -! JVS(3574) = Jac_FULL(895,4577) - JVS(3574) = B(8292) -! JVS(3575) = Jac_FULL(895,4722) - JVS(3575) = B(8275) -! JVS(3576) = Jac_FULL(895,5250) - JVS(3576) = -B(12018) -! JVS(3577) = Jac_FULL(896,896) - JVS(3577) = -B(3840) -! JVS(3578) = Jac_FULL(896,4844) - JVS(3578) = B(1095) -! JVS(3579) = Jac_FULL(896,5148) - JVS(3579) = B(1117) -! JVS(3580) = Jac_FULL(896,5250) - JVS(3580) = -B(3841) -! JVS(3581) = Jac_FULL(897,897) - JVS(3581) = -B(7314)-B(7316) -! JVS(3582) = Jac_FULL(897,4097) - JVS(3582) = B(3459) -! JVS(3583) = Jac_FULL(897,5250) - JVS(3583) = -B(7315) -! JVS(3584) = Jac_FULL(897,5255) - JVS(3584) = B(3460) -! JVS(3585) = Jac_FULL(898,898) - JVS(3585) = -B(10248)-B(10250) -! JVS(3586) = Jac_FULL(898,4656) - JVS(3586) = B(6544)+B(6555) -! JVS(3587) = Jac_FULL(898,5250) - JVS(3587) = -B(10249) -! JVS(3588) = Jac_FULL(898,5255) - JVS(3588) = B(6545) -! JVS(3589) = Jac_FULL(899,899) - JVS(3589) = -B(18952)-B(18954) -! JVS(3590) = Jac_FULL(899,4613) - JVS(3590) = B(16728) -! JVS(3591) = Jac_FULL(899,5250) - JVS(3591) = -B(18953) -! JVS(3592) = Jac_FULL(899,5255) - JVS(3592) = B(16729) -! JVS(3593) = Jac_FULL(900,900) - JVS(3593) = -B(17256)-B(17258) -! JVS(3594) = Jac_FULL(900,5014) - JVS(3594) = B(14667) -! JVS(3595) = Jac_FULL(900,5250) - JVS(3595) = -B(17257) -! JVS(3596) = Jac_FULL(900,5255) - JVS(3596) = B(14668) -! JVS(3597) = Jac_FULL(901,901) - JVS(3597) = -B(21521)-B(21523) -! JVS(3598) = Jac_FULL(901,4977) - JVS(3598) = B(20281) -! JVS(3599) = Jac_FULL(901,5250) - JVS(3599) = -B(21522) -! JVS(3600) = Jac_FULL(901,5255) - JVS(3600) = B(20282) -! JVS(3601) = Jac_FULL(902,902) - JVS(3601) = -B(22136)-B(22138) -! JVS(3602) = Jac_FULL(902,4510) - JVS(3602) = B(21124) -! JVS(3603) = Jac_FULL(902,5250) - JVS(3603) = -B(22137) -! JVS(3604) = Jac_FULL(902,5255) - JVS(3604) = B(21125) -! JVS(3605) = Jac_FULL(903,903) - JVS(3605) = -B(23932)-B(23934) -! JVS(3606) = Jac_FULL(903,4853) - JVS(3606) = B(23805)+B(23817) -! JVS(3607) = Jac_FULL(903,5250) - JVS(3607) = -B(23933) -! JVS(3608) = Jac_FULL(903,5255) - JVS(3608) = B(23806) -! JVS(3609) = Jac_FULL(904,904) - JVS(3609) = -B(11124)-B(11126) -! JVS(3610) = Jac_FULL(904,3852) - JVS(3610) = B(7331) -! JVS(3611) = Jac_FULL(904,5250) - JVS(3611) = -B(11125) -! JVS(3612) = Jac_FULL(904,5255) - JVS(3612) = B(7332) -! JVS(3613) = Jac_FULL(905,905) - JVS(3613) = -B(7569) -! JVS(3614) = Jac_FULL(905,3971) - JVS(3614) = B(3601) -! JVS(3615) = Jac_FULL(905,5250) - JVS(3615) = -B(7570) -! JVS(3616) = Jac_FULL(905,5252) - JVS(3616) = B(3602) -! JVS(3617) = Jac_FULL(906,906) - JVS(3617) = -B(22852)-B(22854) -! JVS(3618) = Jac_FULL(906,4867) - JVS(3618) = B(22370)+B(22382) -! JVS(3619) = Jac_FULL(906,5250) - JVS(3619) = -B(22853) -! JVS(3620) = Jac_FULL(906,5255) - JVS(3620) = B(22371) -! JVS(3621) = Jac_FULL(907,907) - JVS(3621) = -B(21591)-B(21593) -! JVS(3622) = Jac_FULL(907,3998) - JVS(3622) = B(20434) -! JVS(3623) = Jac_FULL(907,5250) - JVS(3623) = -B(21592) -! JVS(3624) = Jac_FULL(907,5255) - JVS(3624) = B(20435) -! JVS(3625) = Jac_FULL(908,908) - JVS(3625) = -B(18969)-B(18971) -! JVS(3626) = Jac_FULL(908,4211) - JVS(3626) = B(16752) -! JVS(3627) = Jac_FULL(908,5250) - JVS(3627) = -B(18970) -! JVS(3628) = Jac_FULL(908,5255) - JVS(3628) = B(16753) -! JVS(3629) = Jac_FULL(909,909) - JVS(3629) = -B(17461)-B(17463) -! JVS(3630) = Jac_FULL(909,4263) - JVS(3630) = B(14901) -! JVS(3631) = Jac_FULL(909,5250) - JVS(3631) = -B(17462) -! JVS(3632) = Jac_FULL(909,5255) - JVS(3632) = B(14902) -! JVS(3633) = Jac_FULL(910,910) - JVS(3633) = -B(9562)-B(9564) -! JVS(3634) = Jac_FULL(910,4635) - JVS(3634) = B(5898) -! JVS(3635) = Jac_FULL(910,5250) - JVS(3635) = -B(9563) -! JVS(3636) = Jac_FULL(910,5255) - JVS(3636) = B(5899) -! JVS(3637) = Jac_FULL(911,448) - JVS(3637) = B(18415) -! JVS(3638) = Jac_FULL(911,485) - JVS(3638) = B(16014) -! JVS(3639) = Jac_FULL(911,911) - JVS(3639) = -B(16012) -! JVS(3640) = Jac_FULL(911,3423) - JVS(3640) = 0 -! JVS(3641) = Jac_FULL(911,3696) - JVS(3641) = B(12932) -! JVS(3642) = Jac_FULL(911,5250) - JVS(3642) = -B(16013)+B(16015)+B(18416) -! JVS(3643) = Jac_FULL(912,912) - JVS(3643) = -B(7398)-B(7400) -! JVS(3644) = Jac_FULL(912,4090) - JVS(3644) = B(3511) -! JVS(3645) = Jac_FULL(912,5250) - JVS(3645) = -B(7399) -! JVS(3646) = Jac_FULL(912,5255) - JVS(3646) = B(3512) -! JVS(3647) = Jac_FULL(913,913) - JVS(3647) = -B(20019)-B(20021) -! JVS(3648) = Jac_FULL(913,4305) - JVS(3648) = B(18227) -! JVS(3649) = Jac_FULL(913,5250) - JVS(3649) = -B(20020) -! JVS(3650) = Jac_FULL(913,5255) - JVS(3650) = B(18228) -! JVS(3651) = Jac_FULL(914,914) - JVS(3651) = -B(10288)-B(10290) -! JVS(3652) = Jac_FULL(914,4335) - JVS(3652) = B(6562) -! JVS(3653) = Jac_FULL(914,5250) - JVS(3653) = -B(10289) -! JVS(3654) = Jac_FULL(914,5255) - JVS(3654) = B(6563) -! JVS(3655) = Jac_FULL(915,915) - JVS(3655) = -B(12687)-B(12689) -! JVS(3656) = Jac_FULL(915,4684) - JVS(3656) = B(9087) -! JVS(3657) = Jac_FULL(915,5250) - JVS(3657) = -B(12688) -! JVS(3658) = Jac_FULL(915,5255) - JVS(3658) = B(9088) -! JVS(3659) = Jac_FULL(916,916) - JVS(3659) = -B(22954)-B(22956) -! JVS(3660) = Jac_FULL(916,4955) - JVS(3660) = B(22534) -! JVS(3661) = Jac_FULL(916,5250) - JVS(3661) = -B(22955) -! JVS(3662) = Jac_FULL(916,5255) - JVS(3662) = B(22535) -! JVS(3663) = Jac_FULL(917,917) - JVS(3663) = -B(18188)-B(18190) -! JVS(3664) = Jac_FULL(917,4291) - JVS(3664) = B(15685) -! JVS(3665) = Jac_FULL(917,5250) - JVS(3665) = -B(18189) -! JVS(3666) = Jac_FULL(917,5255) - JVS(3666) = B(15686) -! JVS(3667) = Jac_FULL(918,918) - JVS(3667) = -B(7654)-B(7656) -! JVS(3668) = Jac_FULL(918,5239) - JVS(3668) = B(3823) -! JVS(3669) = Jac_FULL(918,5250) - JVS(3669) = -B(7655) -! JVS(3670) = Jac_FULL(918,5255) - JVS(3670) = B(3824) -! JVS(3671) = Jac_FULL(919,919) - JVS(3671) = -B(16928)-B(16930) -! JVS(3672) = Jac_FULL(919,4288) - JVS(3672) = B(14297) -! JVS(3673) = Jac_FULL(919,5250) - JVS(3673) = -B(16929) -! JVS(3674) = Jac_FULL(919,5255) - JVS(3674) = B(14298) -! JVS(3675) = Jac_FULL(920,920) - JVS(3675) = -B(7389)-B(7391) -! JVS(3676) = Jac_FULL(920,4146) - JVS(3676) = B(3500) -! JVS(3677) = Jac_FULL(920,5250) - JVS(3677) = -B(7390) -! JVS(3678) = Jac_FULL(920,5255) - JVS(3678) = B(3501) -! JVS(3679) = Jac_FULL(921,921) - JVS(3679) = -B(9330)-B(9332) -! JVS(3680) = Jac_FULL(921,4641) - JVS(3680) = B(5719) -! JVS(3681) = Jac_FULL(921,5250) - JVS(3681) = -B(9331) -! JVS(3682) = Jac_FULL(921,5255) - JVS(3682) = B(5720) -! JVS(3683) = Jac_FULL(922,922) - JVS(3683) = -B(5575)-B(5577) -! JVS(3684) = Jac_FULL(922,3507) - JVS(3684) = B(2504) -! JVS(3685) = Jac_FULL(922,5250) - JVS(3685) = -B(5576) -! JVS(3686) = Jac_FULL(922,5255) - JVS(3686) = B(2505) -! JVS(3687) = Jac_FULL(923,923) - JVS(3687) = -B(18453)-B(18455) -! JVS(3688) = Jac_FULL(923,4307) - JVS(3688) = B(16069) -! JVS(3689) = Jac_FULL(923,5250) - JVS(3689) = -B(18454) -! JVS(3690) = Jac_FULL(923,5255) - JVS(3690) = B(16070) -! JVS(3691) = Jac_FULL(924,924) - JVS(3691) = -B(12247) -! JVS(3692) = Jac_FULL(924,4522) - JVS(3692) = B(8546)+B(8558) -! JVS(3693) = Jac_FULL(924,5250) - JVS(3693) = -B(12248) -! JVS(3694) = Jac_FULL(924,5255) - JVS(3694) = B(8547) -! JVS(3695) = Jac_FULL(925,925) - JVS(3695) = -B(48)-B(73) -! JVS(3696) = Jac_FULL(925,5250) - JVS(3696) = -B(49) -! JVS(3697) = Jac_FULL(925,5253) - JVS(3697) = B(46) -! JVS(3698) = Jac_FULL(925,5255) - JVS(3698) = B(47) -! JVS(3699) = Jac_FULL(926,926) - JVS(3699) = -B(4959) -! JVS(3700) = Jac_FULL(926,4598) - JVS(3700) = B(2114) -! JVS(3701) = Jac_FULL(926,5096) - JVS(3701) = B(2125) -! JVS(3702) = Jac_FULL(926,5250) - JVS(3702) = -B(4960) -! JVS(3703) = Jac_FULL(927,927) - JVS(3703) = -B(21039)-B(21041) -! JVS(3704) = Jac_FULL(927,3890) - JVS(3704) = B(19466) -! JVS(3705) = Jac_FULL(927,5250) - JVS(3705) = -B(21040) -! JVS(3706) = Jac_FULL(927,5255) - JVS(3706) = B(19467) -! JVS(3707) = Jac_FULL(928,928) - JVS(3707) = -B(16191)-B(16193) -! JVS(3708) = Jac_FULL(928,4481) - JVS(3708) = B(13128) -! JVS(3709) = Jac_FULL(928,5250) - JVS(3709) = -B(16192) -! JVS(3710) = Jac_FULL(928,5255) - JVS(3710) = B(13129) -! JVS(3711) = Jac_FULL(929,929) - JVS(3711) = -B(14861)-B(14863) -! JVS(3712) = Jac_FULL(929,4451) - JVS(3712) = B(11522) -! JVS(3713) = Jac_FULL(929,5250) - JVS(3713) = -B(14862) -! JVS(3714) = Jac_FULL(929,5255) - JVS(3714) = B(11523) -! JVS(3715) = Jac_FULL(930,930) - JVS(3715) = -B(17358)-B(17360) -! JVS(3716) = Jac_FULL(930,4745) - JVS(3716) = B(14765) -! JVS(3717) = Jac_FULL(930,5250) - JVS(3717) = -B(17359) -! JVS(3718) = Jac_FULL(930,5255) - JVS(3718) = B(14766) -! JVS(3719) = Jac_FULL(931,931) - JVS(3719) = -B(16870)-B(16872) -! JVS(3720) = Jac_FULL(931,4124) - JVS(3720) = B(14224) -! JVS(3721) = Jac_FULL(931,5250) - JVS(3721) = -B(16871) -! JVS(3722) = Jac_FULL(931,5255) - JVS(3722) = B(14225) -! JVS(3723) = Jac_FULL(932,932) - JVS(3723) = -B(10118)-B(10120) -! JVS(3724) = Jac_FULL(932,3489) - JVS(3724) = B(6405) -! JVS(3725) = Jac_FULL(932,5250) - JVS(3725) = -B(10119) -! JVS(3726) = Jac_FULL(932,5255) - JVS(3726) = B(6406) -! JVS(3727) = Jac_FULL(933,933) - JVS(3727) = -B(21746)-B(21748) -! JVS(3728) = Jac_FULL(933,4660) - JVS(3728) = B(20716)+B(20727) -! JVS(3729) = Jac_FULL(933,5250) - JVS(3729) = -B(21747) -! JVS(3730) = Jac_FULL(933,5255) - JVS(3730) = B(20717) -! JVS(3731) = Jac_FULL(934,934) - JVS(3731) = -B(19880)-B(19882) -! JVS(3732) = Jac_FULL(934,4467) - JVS(3732) = B(18055) -! JVS(3733) = Jac_FULL(934,5250) - JVS(3733) = -B(19881) -! JVS(3734) = Jac_FULL(934,5255) - JVS(3734) = B(18056) -! JVS(3735) = Jac_FULL(935,935) - JVS(3735) = -B(22827)-B(22829) -! JVS(3736) = Jac_FULL(935,3694) - JVS(3736) = B(22323) -! JVS(3737) = Jac_FULL(935,5250) - JVS(3737) = -B(22828) -! JVS(3738) = Jac_FULL(935,5255) - JVS(3738) = B(22324) -! JVS(3739) = Jac_FULL(936,936) - JVS(3739) = -B(23349)-B(23351) -! JVS(3740) = Jac_FULL(936,4636) - JVS(3740) = B(22936) -! JVS(3741) = Jac_FULL(936,5250) - JVS(3741) = -B(23350) -! JVS(3742) = Jac_FULL(936,5255) - JVS(3742) = B(22937) -! JVS(3743) = Jac_FULL(937,937) - JVS(3743) = -B(8936)-B(8938) -! JVS(3744) = Jac_FULL(937,4833) - JVS(3744) = B(5416) -! JVS(3745) = Jac_FULL(937,5250) - JVS(3745) = -B(8937) -! JVS(3746) = Jac_FULL(937,5255) - JVS(3746) = B(5417) -! JVS(3747) = Jac_FULL(938,938) - JVS(3747) = -B(9275)-B(9277) -! JVS(3748) = Jac_FULL(938,3562) - JVS(3748) = B(5678) -! JVS(3749) = Jac_FULL(938,5250) - JVS(3749) = -B(9276) -! JVS(3750) = Jac_FULL(938,5255) - JVS(3750) = B(5679) -! JVS(3751) = Jac_FULL(939,939) - JVS(3751) = -B(8774)-B(8776) -! JVS(3752) = Jac_FULL(939,3538) - JVS(3752) = B(5303) -! JVS(3753) = Jac_FULL(939,5250) - JVS(3753) = -B(8775) -! JVS(3754) = Jac_FULL(939,5255) - JVS(3754) = B(5304) -! JVS(3755) = Jac_FULL(940,940) - JVS(3755) = -B(24032)-B(24034) -! JVS(3756) = Jac_FULL(940,4503) - JVS(3756) = B(24002) -! JVS(3757) = Jac_FULL(940,5250) - JVS(3757) = -B(24033) -! JVS(3758) = Jac_FULL(940,5255) - JVS(3758) = B(24003) -! JVS(3759) = Jac_FULL(941,941) - JVS(3759) = -B(9189)-B(9191) -! JVS(3760) = Jac_FULL(941,4692) - JVS(3760) = B(5605) -! JVS(3761) = Jac_FULL(941,5250) - JVS(3761) = -B(9190) -! JVS(3762) = Jac_FULL(941,5255) - JVS(3762) = B(5606) -! JVS(3763) = Jac_FULL(942,942) - JVS(3763) = -B(21830)-B(21832) -! JVS(3764) = Jac_FULL(942,3845) - JVS(3764) = B(20799) -! JVS(3765) = Jac_FULL(942,5250) - JVS(3765) = -B(21831) -! JVS(3766) = Jac_FULL(942,5255) - JVS(3766) = B(20800) -! JVS(3767) = Jac_FULL(943,943) - JVS(3767) = -B(13188)-B(13190) -! JVS(3768) = Jac_FULL(943,4009) - JVS(3768) = B(9744) -! JVS(3769) = Jac_FULL(943,5250) - JVS(3769) = -B(13189) -! JVS(3770) = Jac_FULL(943,5255) - JVS(3770) = B(9745) -! JVS(3771) = Jac_FULL(944,944) - JVS(3771) = -B(15598)-B(15600) -! JVS(3772) = Jac_FULL(944,3752) - JVS(3772) = B(12486) -! JVS(3773) = Jac_FULL(944,5250) - JVS(3773) = -B(15599) -! JVS(3774) = Jac_FULL(944,5255) - JVS(3774) = B(12487) -! JVS(3775) = Jac_FULL(945,945) - JVS(3775) = -B(19578)-B(19579) -! JVS(3776) = Jac_FULL(945,4866) - JVS(3776) = B(17536) -! JVS(3777) = Jac_FULL(945,5250) - JVS(3777) = -B(19580) -! JVS(3778) = Jac_FULL(945,5255) - JVS(3778) = B(17537) -! JVS(3779) = Jac_FULL(946,946) - JVS(3779) = -B(21181)-B(21182) -! JVS(3780) = Jac_FULL(946,4419) - JVS(3780) = B(19676) -! JVS(3781) = Jac_FULL(946,5250) - JVS(3781) = -B(21183) -! JVS(3782) = Jac_FULL(946,5255) - JVS(3782) = B(19677) -! JVS(3783) = Jac_FULL(947,947) - JVS(3783) = -B(10166)-B(10168) -! JVS(3784) = Jac_FULL(947,4400) - JVS(3784) = B(6462) -! JVS(3785) = Jac_FULL(947,5250) - JVS(3785) = -B(10167) -! JVS(3786) = Jac_FULL(947,5255) - JVS(3786) = B(6463) -! JVS(3787) = Jac_FULL(948,948) - JVS(3787) = -B(22510)-B(22512) -! JVS(3788) = Jac_FULL(948,4019) - JVS(3788) = B(21910) -! JVS(3789) = Jac_FULL(948,5250) - JVS(3789) = -B(22511) -! JVS(3790) = Jac_FULL(948,5255) - JVS(3790) = B(21911) -! JVS(3791) = Jac_FULL(949,949) - JVS(3791) = -B(17281)-B(17283) -! JVS(3792) = Jac_FULL(949,3901) - JVS(3792) = B(14719) -! JVS(3793) = Jac_FULL(949,5250) - JVS(3793) = -B(17282) -! JVS(3794) = Jac_FULL(949,5255) - JVS(3794) = B(14720) -! JVS(3795) = Jac_FULL(950,950) - JVS(3795) = -B(18544)-B(18546) -! JVS(3796) = Jac_FULL(950,4044) - JVS(3796) = B(16218) -! JVS(3797) = Jac_FULL(950,5250) - JVS(3797) = -B(18545) -! JVS(3798) = Jac_FULL(950,5255) - JVS(3798) = B(16219) -! JVS(3799) = Jac_FULL(951,951) - JVS(3799) = -B(20993)-B(20995) -! JVS(3800) = Jac_FULL(951,4679) - JVS(3800) = B(19438) -! JVS(3801) = Jac_FULL(951,5250) - JVS(3801) = -B(20994) -! JVS(3802) = Jac_FULL(951,5255) - JVS(3802) = B(19439) -! JVS(3803) = Jac_FULL(952,952) - JVS(3803) = -B(21527)-B(21529) -! JVS(3804) = Jac_FULL(952,4052) - JVS(3804) = B(20297) -! JVS(3805) = Jac_FULL(952,5250) - JVS(3805) = -B(21528) -! JVS(3806) = Jac_FULL(952,5255) - JVS(3806) = B(20298) -! JVS(3807) = Jac_FULL(953,953) - JVS(3807) = -B(23603)-B(23605) -! JVS(3808) = Jac_FULL(953,4818) - JVS(3808) = B(23312)+B(23324) -! JVS(3809) = Jac_FULL(953,5250) - JVS(3809) = -B(23604) -! JVS(3810) = Jac_FULL(953,5255) - JVS(3810) = B(23313) -! JVS(3811) = Jac_FULL(954,954) - JVS(3811) = -B(20590)-B(20592) -! JVS(3812) = Jac_FULL(954,4631) - JVS(3812) = B(19010) -! JVS(3813) = Jac_FULL(954,5250) - JVS(3813) = -B(20591) -! JVS(3814) = Jac_FULL(954,5255) - JVS(3814) = B(19011) -! JVS(3815) = Jac_FULL(955,955) - JVS(3815) = -B(22710)-B(22712) -! JVS(3816) = Jac_FULL(955,4172) - JVS(3816) = B(22099) -! JVS(3817) = Jac_FULL(955,5250) - JVS(3817) = -B(22711) -! JVS(3818) = Jac_FULL(955,5255) - JVS(3818) = B(22100) -! JVS(3819) = Jac_FULL(956,956) - JVS(3819) = -B(5973)-B(5975) -! JVS(3820) = Jac_FULL(956,3803) - JVS(3820) = B(2701) -! JVS(3821) = Jac_FULL(956,5250) - JVS(3821) = -B(5974) -! JVS(3822) = Jac_FULL(956,5255) - JVS(3822) = B(2702) -! JVS(3823) = Jac_FULL(957,957) - JVS(3823) = -B(20512) -! JVS(3824) = Jac_FULL(957,4599) - JVS(3824) = B(18912) -! JVS(3825) = Jac_FULL(957,5250) - JVS(3825) = -B(20513) -! JVS(3826) = Jac_FULL(957,5252) - JVS(3826) = B(18913) -! JVS(3827) = Jac_FULL(958,958) - JVS(3827) = -B(19538) -! JVS(3828) = Jac_FULL(958,4957) - JVS(3828) = B(17418)+B(17430) -! JVS(3829) = Jac_FULL(958,5250) - JVS(3829) = -B(19539) -! JVS(3830) = Jac_FULL(958,5255) - JVS(3830) = B(17419) -! JVS(3831) = Jac_FULL(959,959) - JVS(3831) = -B(9751)-B(9753) -! JVS(3832) = Jac_FULL(959,3518) - JVS(3832) = B(6048) -! JVS(3833) = Jac_FULL(959,5250) - JVS(3833) = -B(9752) -! JVS(3834) = Jac_FULL(959,5255) - JVS(3834) = B(6049) -! JVS(3835) = Jac_FULL(960,960) - JVS(3835) = -B(22187)-B(22188) -! JVS(3836) = Jac_FULL(960,4421) - JVS(3836) = B(21242) -! JVS(3837) = Jac_FULL(960,5250) - JVS(3837) = -B(22189) -! JVS(3838) = Jac_FULL(960,5255) - JVS(3838) = B(21243) -! JVS(3839) = Jac_FULL(961,961) - JVS(3839) = -B(9327)-B(9329) -! JVS(3840) = Jac_FULL(961,4641) - JVS(3840) = B(5717)+B(5728) -! JVS(3841) = Jac_FULL(961,5250) - JVS(3841) = -B(9328) -! JVS(3842) = Jac_FULL(961,5255) - JVS(3842) = B(5718) -! JVS(3843) = Jac_FULL(962,962) - JVS(3843) = -B(18605)-B(18607) -! JVS(3844) = Jac_FULL(962,4210) - JVS(3844) = B(16293) -! JVS(3845) = Jac_FULL(962,5250) - JVS(3845) = -B(18606) -! JVS(3846) = Jac_FULL(962,5255) - JVS(3846) = B(16294) -! JVS(3847) = Jac_FULL(963,963) - JVS(3847) = -B(18241)-B(18243) -! JVS(3848) = Jac_FULL(963,3714) - JVS(3848) = B(15759) -! JVS(3849) = Jac_FULL(963,5250) - JVS(3849) = -B(18242) -! JVS(3850) = Jac_FULL(963,5255) - JVS(3850) = B(15760) -! JVS(3851) = Jac_FULL(964,964) - JVS(3851) = -B(12036)-B(12037) -! JVS(3852) = Jac_FULL(964,5119) - JVS(3852) = B(8295) -! JVS(3853) = Jac_FULL(964,5250) - JVS(3853) = -B(12038) -! JVS(3854) = Jac_FULL(964,5255) - JVS(3854) = B(8296) -! JVS(3855) = Jac_FULL(965,965) - JVS(3855) = -B(22110)-B(22112) -! JVS(3856) = Jac_FULL(965,4734) - JVS(3856) = B(21081) -! JVS(3857) = Jac_FULL(965,5250) - JVS(3857) = -B(22111) -! JVS(3858) = Jac_FULL(965,5255) - JVS(3858) = B(21082) -! JVS(3859) = Jac_FULL(966,966) - JVS(3859) = -B(5660)-B(5662) -! JVS(3860) = Jac_FULL(966,3481) - JVS(3860) = B(2547) -! JVS(3861) = Jac_FULL(966,5250) - JVS(3861) = -B(5661) -! JVS(3862) = Jac_FULL(966,5255) - JVS(3862) = B(2548) -! JVS(3863) = Jac_FULL(967,967) - JVS(3863) = -B(17924)-B(17925) -! JVS(3864) = Jac_FULL(967,4712) - JVS(3864) = B(15326) -! JVS(3865) = Jac_FULL(967,5250) - JVS(3865) = -B(17926) -! JVS(3866) = Jac_FULL(967,5255) - JVS(3866) = B(15327) -! JVS(3867) = Jac_FULL(968,968) - JVS(3867) = -B(6828)-B(6830) -! JVS(3868) = Jac_FULL(968,5132) - JVS(3868) = B(3124) -! JVS(3869) = Jac_FULL(968,5250) - JVS(3869) = -B(6829) -! JVS(3870) = Jac_FULL(968,5255) - JVS(3870) = B(3125) -! JVS(3871) = Jac_FULL(969,969) - JVS(3871) = -B(6609)-B(6610) -! JVS(3872) = Jac_FULL(969,3636) - JVS(3872) = B(3028) -! JVS(3873) = Jac_FULL(969,5250) - JVS(3873) = -B(6611) -! JVS(3874) = Jac_FULL(969,5255) - JVS(3874) = B(3029) -! JVS(3875) = Jac_FULL(970,970) - JVS(3875) = -B(17361)-B(17363) -! JVS(3876) = Jac_FULL(970,4394) - JVS(3876) = B(14772) -! JVS(3877) = Jac_FULL(970,5250) - JVS(3877) = -B(17362) -! JVS(3878) = Jac_FULL(970,5255) - JVS(3878) = B(14773) -! JVS(3879) = Jac_FULL(971,971) - JVS(3879) = -B(22960)-B(22962) -! JVS(3880) = Jac_FULL(971,3895) - JVS(3880) = B(22546) -! JVS(3881) = Jac_FULL(971,5250) - JVS(3881) = -B(22961) -! JVS(3882) = Jac_FULL(971,5255) - JVS(3882) = B(22547) -! JVS(3883) = Jac_FULL(972,972) - JVS(3883) = -B(20239)-B(20241) -! JVS(3884) = Jac_FULL(972,4245) - JVS(3884) = B(18620) -! JVS(3885) = Jac_FULL(972,5250) - JVS(3885) = -B(20240) -! JVS(3886) = Jac_FULL(972,5255) - JVS(3886) = B(18621) -! JVS(3887) = Jac_FULL(973,973) - JVS(3887) = -B(23221)-B(23223) -! JVS(3888) = Jac_FULL(973,4423) - JVS(3888) = B(22772) -! JVS(3889) = Jac_FULL(973,5250) - JVS(3889) = -B(23222) -! JVS(3890) = Jac_FULL(973,5255) - JVS(3890) = B(22773) -! JVS(3891) = Jac_FULL(974,974) - JVS(3891) = -B(16129)-B(16131) -! JVS(3892) = Jac_FULL(974,3953) - JVS(3892) = B(13045) -! JVS(3893) = Jac_FULL(974,5250) - JVS(3893) = -B(16130) -! JVS(3894) = Jac_FULL(974,5255) - JVS(3894) = B(13046) -! JVS(3895) = Jac_FULL(975,975) - JVS(3895) = -B(17735)-B(17736) -! JVS(3896) = Jac_FULL(975,4500) - JVS(3896) = B(15163) -! JVS(3897) = Jac_FULL(975,5250) - JVS(3897) = -B(17737) -! JVS(3898) = Jac_FULL(975,5255) - JVS(3898) = B(15164) -! JVS(3899) = Jac_FULL(976,976) - JVS(3899) = -B(5089)-B(5091) -! JVS(3900) = Jac_FULL(976,4879) - JVS(3900) = B(2233) -! JVS(3901) = Jac_FULL(976,5250) - JVS(3901) = -B(5090)-B(5092) -! JVS(3902) = Jac_FULL(976,5255) - JVS(3902) = B(2234) -! JVS(3903) = Jac_FULL(977,977) - JVS(3903) = -B(19943)-B(19945) -! JVS(3904) = Jac_FULL(977,4415) - JVS(3904) = B(18155) -! JVS(3905) = Jac_FULL(977,5250) - JVS(3905) = -B(19944) -! JVS(3906) = Jac_FULL(977,5255) - JVS(3906) = B(18156) -! JVS(3907) = Jac_FULL(978,978) - JVS(3907) = -B(18169)-B(18171) -! JVS(3908) = Jac_FULL(978,4006) - JVS(3908) = B(15655) -! JVS(3909) = Jac_FULL(978,5250) - JVS(3909) = -B(18170) -! JVS(3910) = Jac_FULL(978,5255) - JVS(3910) = B(15656) -! JVS(3911) = Jac_FULL(979,979) - JVS(3911) = -B(18072)-B(18074) -! JVS(3912) = Jac_FULL(979,4195) - JVS(3912) = B(15475) -! JVS(3913) = Jac_FULL(979,5250) - JVS(3913) = -B(18073) -! JVS(3914) = Jac_FULL(979,5255) - JVS(3914) = B(15476) -! JVS(3915) = Jac_FULL(980,980) - JVS(3915) = -B(4606)-B(4607) -! JVS(3916) = Jac_FULL(980,4121) - JVS(3916) = B(1803) -! JVS(3917) = Jac_FULL(980,5250) - JVS(3917) = -B(4608) -! JVS(3918) = Jac_FULL(980,5255) - JVS(3918) = B(1804) -! JVS(3919) = Jac_FULL(981,981) - JVS(3919) = -B(10700)-B(10701) -! JVS(3920) = Jac_FULL(981,5127) - JVS(3920) = B(6894) -! JVS(3921) = Jac_FULL(981,5250) - JVS(3921) = -B(10702) -! JVS(3922) = Jac_FULL(981,5255) - JVS(3922) = B(6895) -! JVS(3923) = Jac_FULL(982,982) - JVS(3923) = -B(10197)-B(10199) -! JVS(3924) = Jac_FULL(982,3632) - JVS(3924) = B(6491) -! JVS(3925) = Jac_FULL(982,5250) - JVS(3925) = -B(10198) -! JVS(3926) = Jac_FULL(982,5255) - JVS(3926) = B(6492) -! JVS(3927) = Jac_FULL(983,983) - JVS(3927) = -B(19590)-B(19591) -! JVS(3928) = Jac_FULL(983,4979) - JVS(3928) = B(17566) -! JVS(3929) = Jac_FULL(983,5250) - JVS(3929) = -B(19592) -! JVS(3930) = Jac_FULL(983,5255) - JVS(3930) = B(17567) -! JVS(3931) = Jac_FULL(984,984) - JVS(3931) = -B(21921)-B(21923) -! JVS(3932) = Jac_FULL(984,3949) - JVS(3932) = B(20865) -! JVS(3933) = Jac_FULL(984,5250) - JVS(3933) = -B(21922) -! JVS(3934) = Jac_FULL(984,5255) - JVS(3934) = B(20866) -! JVS(3935) = Jac_FULL(985,985) - JVS(3935) = -B(14502)-B(14504) -! JVS(3936) = Jac_FULL(985,4847) - JVS(3936) = B(11237) -! JVS(3937) = Jac_FULL(985,5250) - JVS(3937) = -B(14503) -! JVS(3938) = Jac_FULL(985,5255) - JVS(3938) = B(11238) -! JVS(3939) = Jac_FULL(986,986) - JVS(3939) = -B(21673)-B(21675) -! JVS(3940) = Jac_FULL(986,4969) - JVS(3940) = B(20632) -! JVS(3941) = Jac_FULL(986,5250) - JVS(3941) = -B(21674) -! JVS(3942) = Jac_FULL(986,5255) - JVS(3942) = B(20633) -! JVS(3943) = Jac_FULL(987,987) - JVS(3943) = -B(4098)-B(4100) -! JVS(3944) = Jac_FULL(987,5183) - JVS(3944) = B(1306) -! JVS(3945) = Jac_FULL(987,5250) - JVS(3945) = -B(4099) -! JVS(3946) = Jac_FULL(987,5255) - JVS(3946) = B(1307) -! JVS(3947) = Jac_FULL(988,988) - JVS(3947) = -B(19635)-B(19636) -! JVS(3948) = Jac_FULL(988,4642) - JVS(3948) = B(17661) -! JVS(3949) = Jac_FULL(988,5250) - JVS(3949) = -B(19637) -! JVS(3950) = Jac_FULL(988,5255) - JVS(3950) = B(17662) -! JVS(3951) = Jac_FULL(989,989) - JVS(3951) = -B(23249)-B(23251) -! JVS(3952) = Jac_FULL(989,3719) - JVS(3952) = B(22820) -! JVS(3953) = Jac_FULL(989,5250) - JVS(3953) = -B(23250) -! JVS(3954) = Jac_FULL(989,5255) - JVS(3954) = B(22821) -! JVS(3955) = Jac_FULL(990,990) - JVS(3955) = -B(16911)-B(16913) -! JVS(3956) = Jac_FULL(990,4830) - JVS(3956) = B(14272)+B(14281) -! JVS(3957) = Jac_FULL(990,5250) - JVS(3957) = -B(16912) -! JVS(3958) = Jac_FULL(990,5255) - JVS(3958) = B(14273) -! JVS(3959) = Jac_FULL(991,991) - JVS(3959) = -B(13547) -! JVS(3960) = Jac_FULL(991,4159) - JVS(3960) = B(10366) -! JVS(3961) = Jac_FULL(991,5250) - JVS(3961) = -B(13548) -! JVS(3962) = Jac_FULL(991,5252) - JVS(3962) = B(10367) -! JVS(3963) = Jac_FULL(992,992) - JVS(3963) = -B(19057)-B(19059) -! JVS(3964) = Jac_FULL(992,3717) - JVS(3964) = B(16863) -! JVS(3965) = Jac_FULL(992,5250) - JVS(3965) = -B(19058) -! JVS(3966) = Jac_FULL(992,5255) - JVS(3966) = B(16864) -! JVS(3967) = Jac_FULL(993,993) - JVS(3967) = -B(20837)-B(20839) -! JVS(3968) = Jac_FULL(993,5017) - JVS(3968) = B(19269) -! JVS(3969) = Jac_FULL(993,5250) - JVS(3969) = -B(20838) -! JVS(3970) = Jac_FULL(993,5255) - JVS(3970) = B(19270) -! JVS(3971) = Jac_FULL(994,994) - JVS(3971) = -B(20009)-B(20011) -! JVS(3972) = Jac_FULL(994,4904) - JVS(3972) = B(18212) -! JVS(3973) = Jac_FULL(994,5250) - JVS(3973) = -B(20010) -! JVS(3974) = Jac_FULL(994,5255) - JVS(3974) = B(18213) -! JVS(3975) = Jac_FULL(995,995) - JVS(3975) = -B(21205)-B(21206) -! JVS(3976) = Jac_FULL(995,4890) - JVS(3976) = B(19738) -! JVS(3977) = Jac_FULL(995,5250) - JVS(3977) = -B(21207) -! JVS(3978) = Jac_FULL(995,5255) - JVS(3978) = B(19739) -! JVS(3979) = Jac_FULL(996,996) - JVS(3979) = -B(9238)-B(9240) -! JVS(3980) = Jac_FULL(996,3534) - JVS(3980) = B(5646) -! JVS(3981) = Jac_FULL(996,5250) - JVS(3981) = -B(9239) -! JVS(3982) = Jac_FULL(996,5255) - JVS(3982) = B(5647) -! JVS(3983) = Jac_FULL(997,997) - JVS(3983) = -B(18697)-B(18699) -! JVS(3984) = Jac_FULL(997,4134) - JVS(3984) = B(16450) -! JVS(3985) = Jac_FULL(997,5250) - JVS(3985) = -B(18698) -! JVS(3986) = Jac_FULL(997,5255) - JVS(3986) = B(16451) -! JVS(3987) = Jac_FULL(998,998) - JVS(3987) = -B(23579)-B(23581) -! JVS(3988) = Jac_FULL(998,4854) - JVS(3988) = B(23286) -! JVS(3989) = Jac_FULL(998,5250) - JVS(3989) = -B(23580) -! JVS(3990) = Jac_FULL(998,5255) - JVS(3990) = B(23287) -! JVS(3991) = Jac_FULL(999,999) - JVS(3991) = -B(4427)-B(4429) -! JVS(3992) = Jac_FULL(999,4876) - JVS(3992) = B(1651) -! JVS(3993) = Jac_FULL(999,5250) - JVS(3993) = -B(4428) -! JVS(3994) = Jac_FULL(999,5255) - JVS(3994) = B(1652) -! JVS(3995) = Jac_FULL(1000,1000) - JVS(3995) = -B(6351)-B(6353) -! JVS(3996) = Jac_FULL(1000,3527) - JVS(3996) = B(2879) -! JVS(3997) = Jac_FULL(1000,5250) - JVS(3997) = -B(6352) -! JVS(3998) = Jac_FULL(1000,5252) - JVS(3998) = B(2880) -! JVS(3999) = Jac_FULL(1001,1001) - JVS(3999) = -B(7572) -! JVS(4000) = Jac_FULL(1001,3963) - JVS(4000) = B(3617) -! JVS(4001) = Jac_FULL(1001,3971) - JVS(4001) = B(3608) -! JVS(4002) = Jac_FULL(1001,5250) - JVS(4002) = -B(7573) -! JVS(4003) = Jac_FULL(1002,1002) - JVS(4003) = -B(12725)-B(12727) -! JVS(4004) = Jac_FULL(1002,4100) - JVS(4004) = B(9164) -! JVS(4005) = Jac_FULL(1002,5250) - JVS(4005) = -B(12726) -! JVS(4006) = Jac_FULL(1002,5255) - JVS(4006) = B(9165) -! JVS(4007) = Jac_FULL(1003,1003) - JVS(4007) = -B(16254)-B(16256) -! JVS(4008) = Jac_FULL(1003,4007) - JVS(4008) = B(13199) -! JVS(4009) = Jac_FULL(1003,5250) - JVS(4009) = -B(16255) -! JVS(4010) = Jac_FULL(1003,5255) - JVS(4010) = B(13200) -! JVS(4011) = Jac_FULL(1004,1004) - JVS(4011) = -B(22036)-B(22038) -! JVS(4012) = Jac_FULL(1004,3789) - JVS(4012) = B(20996) -! JVS(4013) = Jac_FULL(1004,5250) - JVS(4013) = -B(22037) -! JVS(4014) = Jac_FULL(1004,5255) - JVS(4014) = B(20997) -! JVS(4015) = Jac_FULL(1005,1005) - JVS(4015) = -B(11504) -! JVS(4016) = Jac_FULL(1005,4359) - JVS(4016) = B(7702) -! JVS(4017) = Jac_FULL(1005,5250) - JVS(4017) = -B(11505) -! JVS(4018) = Jac_FULL(1005,5252) - JVS(4018) = B(7703) -! JVS(4019) = Jac_FULL(1006,1006) - JVS(4019) = -B(21560)-B(21562) -! JVS(4020) = Jac_FULL(1006,4519) - JVS(4020) = B(20338) -! JVS(4021) = Jac_FULL(1006,5250) - JVS(4021) = -B(21561) -! JVS(4022) = Jac_FULL(1006,5255) - JVS(4022) = B(20339) -! JVS(4023) = Jac_FULL(1007,1007) - JVS(4023) = -B(11060)-B(11062) -! JVS(4024) = Jac_FULL(1007,4201) - JVS(4024) = B(7255) -! JVS(4025) = Jac_FULL(1007,5250) - JVS(4025) = -B(11061) -! JVS(4026) = Jac_FULL(1007,5255) - JVS(4026) = B(7256) -! JVS(4027) = Jac_FULL(1008,1008) - JVS(4027) = -B(22504)-B(22506) -! JVS(4028) = Jac_FULL(1008,4752) - JVS(4028) = B(21898) -! JVS(4029) = Jac_FULL(1008,5250) - JVS(4029) = -B(22505) -! JVS(4030) = Jac_FULL(1008,5255) - JVS(4030) = B(21899) -! JVS(4031) = Jac_FULL(1009,1009) - JVS(4031) = -B(9140)-B(9142) -! JVS(4032) = Jac_FULL(1009,3531) - JVS(4032) = B(5553) -! JVS(4033) = Jac_FULL(1009,5250) - JVS(4033) = -B(9141) -! JVS(4034) = Jac_FULL(1009,5255) - JVS(4034) = B(5554) -! JVS(4035) = Jac_FULL(1010,1010) - JVS(4035) = -B(12023)-B(12024) -! JVS(4036) = Jac_FULL(1010,4577) - JVS(4036) = B(8284) -! JVS(4037) = Jac_FULL(1010,5250) - JVS(4037) = -B(12025) -! JVS(4038) = Jac_FULL(1010,5255) - JVS(4038) = B(8285) -! JVS(4039) = Jac_FULL(1011,1011) - JVS(4039) = -B(4345) -! JVS(4040) = Jac_FULL(1011,4922) - JVS(4040) = B(1566)+B(1568)+B(1571) -! JVS(4041) = Jac_FULL(1011,5252) - JVS(4041) = B(1567) -! JVS(4042) = Jac_FULL(1011,5256) - JVS(4042) = B(1569) -! JVS(4043) = Jac_FULL(1012,1012) - JVS(4043) = -B(19300)-B(19302) -! JVS(4044) = Jac_FULL(1012,3985) - JVS(4044) = B(17076) -! JVS(4045) = Jac_FULL(1012,5250) - JVS(4045) = -B(19301) -! JVS(4046) = Jac_FULL(1012,5255) - JVS(4046) = B(17077) -! JVS(4047) = Jac_FULL(1013,1013) - JVS(4047) = -B(4252) -! JVS(4048) = Jac_FULL(1013,2627) - JVS(4048) = B(4248) -! JVS(4049) = Jac_FULL(1013,4932) - JVS(4049) = B(1475)+B(1480) -! JVS(4050) = Jac_FULL(1013,5252) - JVS(4050) = B(1476) -! JVS(4051) = Jac_FULL(1014,1014) - JVS(4051) = -B(9773)-B(9775) -! JVS(4052) = Jac_FULL(1014,4803) - JVS(4052) = B(6076) -! JVS(4053) = Jac_FULL(1014,5250) - JVS(4053) = -B(9774) -! JVS(4054) = Jac_FULL(1014,5255) - JVS(4054) = B(6077) -! JVS(4055) = Jac_FULL(1015,1015) - JVS(4055) = -B(11580)-B(11581) -! JVS(4056) = Jac_FULL(1015,5164) - JVS(4056) = B(7807)+B(7817) -! JVS(4057) = Jac_FULL(1015,5250) - JVS(4057) = -B(11582) -! JVS(4058) = Jac_FULL(1015,5255) - JVS(4058) = B(7808) -! JVS(4059) = Jac_FULL(1016,1016) - JVS(4059) = -B(8716)-B(8718) -! JVS(4060) = Jac_FULL(1016,4720) - JVS(4060) = B(5238) -! JVS(4061) = Jac_FULL(1016,5250) - JVS(4061) = -B(8717) -! JVS(4062) = Jac_FULL(1016,5255) - JVS(4062) = B(5239) -! JVS(4063) = Jac_FULL(1017,1017) - JVS(4063) = -B(16307)-B(16309) -! JVS(4064) = Jac_FULL(1017,4054) - JVS(4064) = B(13296) -! JVS(4065) = Jac_FULL(1017,5250) - JVS(4065) = -B(16308) -! JVS(4066) = Jac_FULL(1017,5255) - JVS(4066) = B(13297) -! JVS(4067) = Jac_FULL(1018,1018) - JVS(4067) = -B(21749)-B(21751) -! JVS(4068) = Jac_FULL(1018,4660) - JVS(4068) = B(20718) -! JVS(4069) = Jac_FULL(1018,5250) - JVS(4069) = -B(21750) -! JVS(4070) = Jac_FULL(1018,5255) - JVS(4070) = B(20719) -! JVS(4071) = Jac_FULL(1019,1019) - JVS(4071) = -B(23675)-B(23677) -! JVS(4072) = Jac_FULL(1019,4120) - JVS(4072) = B(23408) -! JVS(4073) = Jac_FULL(1019,5250) - JVS(4073) = -B(23676) -! JVS(4074) = Jac_FULL(1019,5255) - JVS(4074) = B(23409) -! JVS(4075) = Jac_FULL(1020,1020) - JVS(4075) = -B(15718)-B(15720) -! JVS(4076) = Jac_FULL(1020,3705) - JVS(4076) = B(12645) -! JVS(4077) = Jac_FULL(1020,5250) - JVS(4077) = -B(15719) -! JVS(4078) = Jac_FULL(1020,5255) - JVS(4078) = B(12646) -! JVS(4079) = Jac_FULL(1021,1021) - JVS(4079) = -B(16417)-B(16419) -! JVS(4080) = Jac_FULL(1021,3853) - JVS(4080) = B(13387) -! JVS(4081) = Jac_FULL(1021,5250) - JVS(4081) = -B(16418) -! JVS(4082) = Jac_FULL(1021,5255) - JVS(4082) = B(13388) -! JVS(4083) = Jac_FULL(1022,1022) - JVS(4083) = -B(23606)-B(23608) -! JVS(4084) = Jac_FULL(1022,4818) - JVS(4084) = B(23314) -! JVS(4085) = Jac_FULL(1022,5250) - JVS(4085) = -B(23607) -! JVS(4086) = Jac_FULL(1022,5255) - JVS(4086) = B(23315) -! JVS(4087) = Jac_FULL(1023,1023) - JVS(4087) = -B(9399)-B(9401) -! JVS(4088) = Jac_FULL(1023,3554) - JVS(4088) = B(5777) -! JVS(4089) = Jac_FULL(1023,5250) - JVS(4089) = -B(9400) -! JVS(4090) = Jac_FULL(1023,5255) - JVS(4090) = B(5778) -! JVS(4091) = Jac_FULL(1024,1024) - JVS(4091) = -B(8767)-B(8769) -! JVS(4092) = Jac_FULL(1024,3786) - JVS(4092) = B(5286) -! JVS(4093) = Jac_FULL(1024,5250) - JVS(4093) = -B(8768) -! JVS(4094) = Jac_FULL(1024,5255) - JVS(4094) = B(5287) -! JVS(4095) = Jac_FULL(1025,1025) - JVS(4095) = -B(20132)-B(20134) -! JVS(4096) = Jac_FULL(1025,4194) - JVS(4096) = B(18431) -! JVS(4097) = Jac_FULL(1025,5250) - JVS(4097) = -B(20133) -! JVS(4098) = Jac_FULL(1025,5255) - JVS(4098) = B(18432) -! JVS(4099) = Jac_FULL(1026,1026) - JVS(4099) = -B(21208) -! JVS(4100) = Jac_FULL(1026,4890) - JVS(4100) = B(19740) -! JVS(4101) = Jac_FULL(1026,5250) - JVS(4101) = -B(21209) -! JVS(4102) = Jac_FULL(1026,5252) - JVS(4102) = B(19741) -! JVS(4103) = Jac_FULL(1027,1027) - JVS(4103) = -B(5791)-B(5793) -! JVS(4104) = Jac_FULL(1027,3804) - JVS(4104) = B(2614) -! JVS(4105) = Jac_FULL(1027,5250) - JVS(4105) = -B(5792) -! JVS(4106) = Jac_FULL(1027,5255) - JVS(4106) = B(2615) -! JVS(4107) = Jac_FULL(1028,1028) - JVS(4107) = -B(12137)-B(12138) -! JVS(4108) = Jac_FULL(1028,3678) - JVS(4108) = B(8389) -! JVS(4109) = Jac_FULL(1028,5250) - JVS(4109) = -B(12139) -! JVS(4110) = Jac_FULL(1028,5255) - JVS(4110) = B(8390) -! JVS(4111) = Jac_FULL(1029,1029) - JVS(4111) = -B(20217)-B(20219) -! JVS(4112) = Jac_FULL(1029,4289) - JVS(4112) = B(18583) -! JVS(4113) = Jac_FULL(1029,5250) - JVS(4113) = -B(20218) -! JVS(4114) = Jac_FULL(1029,5255) - JVS(4114) = B(18584) -! JVS(4115) = Jac_FULL(1030,1030) - JVS(4115) = -B(20257)-B(20259) -! JVS(4116) = Jac_FULL(1030,4455) - JVS(4116) = B(18648) -! JVS(4117) = Jac_FULL(1030,5250) - JVS(4117) = -B(20258) -! JVS(4118) = Jac_FULL(1030,5255) - JVS(4118) = B(18649) -! JVS(4119) = Jac_FULL(1031,1031) - JVS(4119) = -B(9451)-B(9453) -! JVS(4120) = Jac_FULL(1031,4829) - JVS(4120) = B(5810) -! JVS(4121) = Jac_FULL(1031,5250) - JVS(4121) = -B(9452) -! JVS(4122) = Jac_FULL(1031,5255) - JVS(4122) = B(5811) -! JVS(4123) = Jac_FULL(1032,1032) - JVS(4123) = -B(12050)-B(12051) -! JVS(4124) = Jac_FULL(1032,3730) - JVS(4124) = B(8306) -! JVS(4125) = Jac_FULL(1032,5250) - JVS(4125) = -B(12052) -! JVS(4126) = Jac_FULL(1032,5255) - JVS(4126) = B(8307) -! JVS(4127) = Jac_FULL(1033,1033) - JVS(4127) = -B(9979)-B(9981) -! JVS(4128) = Jac_FULL(1033,3503) - JVS(4128) = B(6258) -! JVS(4129) = Jac_FULL(1033,5250) - JVS(4129) = -B(9980) -! JVS(4130) = Jac_FULL(1033,5255) - JVS(4130) = B(6259) -! JVS(4131) = Jac_FULL(1034,1034) - JVS(4131) = -B(9874)-B(9876) -! JVS(4132) = Jac_FULL(1034,4568) - JVS(4132) = B(6163) -! JVS(4133) = Jac_FULL(1034,5250) - JVS(4133) = -B(9875) -! JVS(4134) = Jac_FULL(1034,5255) - JVS(4134) = B(6164) -! JVS(4135) = Jac_FULL(1035,1035) - JVS(4135) = -B(3770) -! JVS(4136) = Jac_FULL(1035,4476) - JVS(4136) = B(2157) -! JVS(4137) = Jac_FULL(1035,4767) - JVS(4137) = B(1050) -! JVS(4138) = Jac_FULL(1035,5250) - JVS(4138) = -B(3771) -! JVS(4139) = Jac_FULL(1036,1036) - JVS(4139) = -B(7297) -! JVS(4140) = Jac_FULL(1036,3921) - JVS(4140) = B(3437) -! JVS(4141) = Jac_FULL(1036,3936) - JVS(4141) = B(3448) -! JVS(4142) = Jac_FULL(1036,5250) - JVS(4142) = -B(7298) -! JVS(4143) = Jac_FULL(1037,1037) - JVS(4143) = -B(11599)-B(11600) -! JVS(4144) = Jac_FULL(1037,5137) - JVS(4144) = B(7842)+B(7854) -! JVS(4145) = Jac_FULL(1037,5250) - JVS(4145) = -B(11601) -! JVS(4146) = Jac_FULL(1037,5255) - JVS(4146) = B(7843) -! JVS(4147) = Jac_FULL(1038,1038) - JVS(4147) = -B(10000)-B(10002) -! JVS(4148) = Jac_FULL(1038,4725) - JVS(4148) = B(6302) -! JVS(4149) = Jac_FULL(1038,5250) - JVS(4149) = -B(10001) -! JVS(4150) = Jac_FULL(1038,5255) - JVS(4150) = B(6303) -! JVS(4151) = Jac_FULL(1039,1039) - JVS(4151) = -B(5879)-B(5881) -! JVS(4152) = Jac_FULL(1039,3794) - JVS(4152) = B(2657) -! JVS(4153) = Jac_FULL(1039,5250) - JVS(4153) = -B(5880) -! JVS(4154) = Jac_FULL(1039,5255) - JVS(4154) = B(2658) -! JVS(4155) = Jac_FULL(1040,233) - JVS(4155) = B(15457) -! JVS(4156) = Jac_FULL(1040,331) - JVS(4156) = B(18042) -! JVS(4157) = Jac_FULL(1040,1040) - JVS(4157) = -B(15455) -! JVS(4158) = Jac_FULL(1040,3407) - JVS(4158) = 0 -! JVS(4159) = Jac_FULL(1040,3669) - JVS(4159) = B(12352) -! JVS(4160) = Jac_FULL(1040,5250) - JVS(4160) = -B(15456)+B(15458)+B(18043) -! JVS(4161) = Jac_FULL(1041,1041) - JVS(4161) = -B(19021)-B(19022) -! JVS(4162) = Jac_FULL(1041,5079) - JVS(4162) = B(16802) -! JVS(4163) = Jac_FULL(1041,5250) - JVS(4163) = -B(19023) -! JVS(4164) = Jac_FULL(1041,5255) - JVS(4164) = B(16803) -! JVS(4165) = Jac_FULL(1042,1042) - JVS(4165) = -B(17498)-B(17499) -! JVS(4166) = Jac_FULL(1042,4848) - JVS(4166) = B(14934) -! JVS(4167) = Jac_FULL(1042,5250) - JVS(4167) = -B(17500) -! JVS(4168) = Jac_FULL(1042,5255) - JVS(4168) = B(14935) -! JVS(4169) = Jac_FULL(1043,1043) - JVS(4169) = -B(14234)-B(14236) -! JVS(4170) = Jac_FULL(1043,3745) - JVS(4170) = B(11039) -! JVS(4171) = Jac_FULL(1043,5250) - JVS(4171) = -B(14235) -! JVS(4172) = Jac_FULL(1043,5255) - JVS(4172) = B(11040) -! JVS(4173) = Jac_FULL(1044,1044) - JVS(4173) = -B(23343)-B(23345) -! JVS(4174) = Jac_FULL(1044,4486) - JVS(4174) = B(22927) -! JVS(4175) = Jac_FULL(1044,5250) - JVS(4175) = -B(23344) -! JVS(4176) = Jac_FULL(1044,5255) - JVS(4176) = B(22928) -! JVS(4177) = Jac_FULL(1045,1045) - JVS(4177) = -B(20213)-B(20215) -! JVS(4178) = Jac_FULL(1045,4463) - JVS(4178) = B(18576) -! JVS(4179) = Jac_FULL(1045,5250) - JVS(4179) = -B(20214) -! JVS(4180) = Jac_FULL(1045,5255) - JVS(4180) = B(18577) -! JVS(4181) = Jac_FULL(1046,1046) - JVS(4181) = -B(23654)-B(23656) -! JVS(4182) = Jac_FULL(1046,3848) - JVS(4182) = B(23379) -! JVS(4183) = Jac_FULL(1046,5250) - JVS(4183) = -B(23655) -! JVS(4184) = Jac_FULL(1046,5255) - JVS(4184) = B(23380) -! JVS(4185) = Jac_FULL(1047,1047) - JVS(4185) = -B(17099)-B(17101) -! JVS(4186) = Jac_FULL(1047,4855) - JVS(4186) = B(14442) -! JVS(4187) = Jac_FULL(1047,5250) - JVS(4187) = -B(17100) -! JVS(4188) = Jac_FULL(1047,5255) - JVS(4188) = B(14443) -! JVS(4189) = Jac_FULL(1048,1048) - JVS(4189) = -B(11589)-B(11591) -! JVS(4190) = Jac_FULL(1048,4915) - JVS(4190) = B(7823) -! JVS(4191) = Jac_FULL(1048,5250) - JVS(4191) = -B(11590) -! JVS(4192) = Jac_FULL(1048,5255) - JVS(4192) = B(7824) -! JVS(4193) = Jac_FULL(1049,1049) - JVS(4193) = -B(8963)-B(8965) -! JVS(4194) = Jac_FULL(1049,4707) - JVS(4194) = B(5431) -! JVS(4195) = Jac_FULL(1049,5250) - JVS(4195) = -B(8964) -! JVS(4196) = Jac_FULL(1049,5255) - JVS(4196) = B(5432) -! JVS(4197) = Jac_FULL(1050,1050) - JVS(4197) = -B(3796) -! JVS(4198) = Jac_FULL(1050,4310) - JVS(4198) = B(1068) -! JVS(4199) = Jac_FULL(1050,5116) - JVS(4199) = B(1149) -! JVS(4200) = Jac_FULL(1050,5250) - JVS(4200) = -B(3797) -! JVS(4201) = Jac_FULL(1051,1051) - JVS(4201) = -B(18512)-B(18514) -! JVS(4202) = Jac_FULL(1051,4212) - JVS(4202) = B(16146) -! JVS(4203) = Jac_FULL(1051,5250) - JVS(4203) = -B(18513) -! JVS(4204) = Jac_FULL(1051,5255) - JVS(4204) = B(16147) -! JVS(4205) = Jac_FULL(1052,1052) - JVS(4205) = -B(4776)-B(4778) -! JVS(4206) = Jac_FULL(1052,5138) - JVS(4206) = B(1953) -! JVS(4207) = Jac_FULL(1052,5250) - JVS(4207) = -B(4777) -! JVS(4208) = Jac_FULL(1052,5255) - JVS(4208) = B(1954) -! JVS(4209) = Jac_FULL(1053,1053) - JVS(4209) = -B(15900)-B(15902) -! JVS(4210) = Jac_FULL(1053,3713) - JVS(4210) = B(12812) -! JVS(4211) = Jac_FULL(1053,5250) - JVS(4211) = -B(15901) -! JVS(4212) = Jac_FULL(1053,5255) - JVS(4212) = B(12813) -! JVS(4213) = Jac_FULL(1054,1054) - JVS(4213) = -B(6673) -! JVS(4214) = Jac_FULL(1054,4111) - JVS(4214) = B(3075) -! JVS(4215) = Jac_FULL(1054,4372) - JVS(4215) = B(3085) -! JVS(4216) = Jac_FULL(1054,5250) - JVS(4216) = -B(6674) -! JVS(4217) = Jac_FULL(1055,1055) - JVS(4217) = -B(19569)-B(19570) -! JVS(4218) = Jac_FULL(1055,4662) - JVS(4218) = B(17506) -! JVS(4219) = Jac_FULL(1055,5250) - JVS(4219) = -B(19571) -! JVS(4220) = Jac_FULL(1055,5255) - JVS(4220) = B(17507) -! JVS(4221) = Jac_FULL(1056,1056) - JVS(4221) = -B(17393) -! JVS(4222) = Jac_FULL(1056,3920) - JVS(4222) = B(14827) -! JVS(4223) = Jac_FULL(1056,3966) - JVS(4223) = B(14836) -! JVS(4224) = Jac_FULL(1056,5250) - JVS(4224) = -B(17394) -! JVS(4225) = Jac_FULL(1057,1057) - JVS(4225) = -B(14387)-B(14389) -! JVS(4226) = Jac_FULL(1057,4078) - JVS(4226) = B(11166) -! JVS(4227) = Jac_FULL(1057,5250) - JVS(4227) = -B(14388) -! JVS(4228) = Jac_FULL(1057,5252) - JVS(4228) = B(11167) -! JVS(4229) = Jac_FULL(1058,1058) - JVS(4229) = -B(7455) -! JVS(4230) = Jac_FULL(1058,3863) - JVS(4230) = B(3535) -! JVS(4231) = Jac_FULL(1058,5250) - JVS(4231) = -B(7456) -! JVS(4232) = Jac_FULL(1058,5252) - JVS(4232) = B(3536) -! JVS(4233) = Jac_FULL(1059,1059) - JVS(4233) = -B(14325)-B(14327) -! JVS(4234) = Jac_FULL(1059,4089) - JVS(4234) = B(11102) -! JVS(4235) = Jac_FULL(1059,5250) - JVS(4235) = -B(14326) -! JVS(4236) = Jac_FULL(1059,5255) - JVS(4236) = B(11103) -! JVS(4237) = Jac_FULL(1060,1060) - JVS(4237) = -B(23143)-B(23145) -! JVS(4238) = Jac_FULL(1060,4162) - JVS(4238) = B(22688) -! JVS(4239) = Jac_FULL(1060,5250) - JVS(4239) = -B(23144) -! JVS(4240) = Jac_FULL(1060,5255) - JVS(4240) = B(22689) -! JVS(4241) = Jac_FULL(1061,1061) - JVS(4241) = -B(18509)-B(18511) -! JVS(4242) = Jac_FULL(1061,4034) - JVS(4242) = B(16139) -! JVS(4243) = Jac_FULL(1061,5250) - JVS(4243) = -B(18510) -! JVS(4244) = Jac_FULL(1061,5255) - JVS(4244) = B(16140) -! JVS(4245) = Jac_FULL(1062,1062) - JVS(4245) = -B(18551)-B(18553) -! JVS(4246) = Jac_FULL(1062,3771) - JVS(4246) = B(16232) -! JVS(4247) = Jac_FULL(1062,5250) - JVS(4247) = -B(18552) -! JVS(4248) = Jac_FULL(1062,5255) - JVS(4248) = B(16233) -! JVS(4249) = Jac_FULL(1063,1063) - JVS(4249) = -B(4852)-B(4854) -! JVS(4250) = Jac_FULL(1063,4574) - JVS(4250) = B(2029) -! JVS(4251) = Jac_FULL(1063,5250) - JVS(4251) = -B(4853) -! JVS(4252) = Jac_FULL(1063,5255) - JVS(4252) = B(2030) -! JVS(4253) = Jac_FULL(1064,1064) - JVS(4253) = -B(14009)-B(14011) -! JVS(4254) = Jac_FULL(1064,4611) - JVS(4254) = B(10809) -! JVS(4255) = Jac_FULL(1064,5250) - JVS(4255) = -B(14010) -! JVS(4256) = Jac_FULL(1064,5255) - JVS(4256) = B(10810) -! JVS(4257) = Jac_FULL(1065,1065) - JVS(4257) = -B(9578)-B(9580) -! JVS(4258) = Jac_FULL(1065,4928) - JVS(4258) = B(5912) -! JVS(4259) = Jac_FULL(1065,5250) - JVS(4259) = -B(9579) -! JVS(4260) = Jac_FULL(1065,5255) - JVS(4260) = B(5913) -! JVS(4261) = Jac_FULL(1066,1066) - JVS(4261) = -B(3976)-B(3978) -! JVS(4262) = Jac_FULL(1066,5244) - JVS(4262) = B(1203) -! JVS(4263) = Jac_FULL(1066,5250) - JVS(4263) = -B(3977) -! JVS(4264) = Jac_FULL(1066,5255) - JVS(4264) = B(1204) -! JVS(4265) = Jac_FULL(1067,1067) - JVS(4265) = -B(12370)-B(12372) -! JVS(4266) = Jac_FULL(1067,4822) - JVS(4266) = B(8697) -! JVS(4267) = Jac_FULL(1067,5250) - JVS(4267) = -B(12371) -! JVS(4268) = Jac_FULL(1067,5255) - JVS(4268) = B(8698) -! JVS(4269) = Jac_FULL(1068,1068) - JVS(4269) = -B(74) -! JVS(4270) = Jac_FULL(1068,1642) - JVS(4270) = B(10360) -! JVS(4271) = Jac_FULL(1068,5228) - JVS(4271) = B(1293) -! JVS(4272) = Jac_FULL(1068,5250) - JVS(4272) = -B(75) -! JVS(4273) = Jac_FULL(1069,1069) - JVS(4273) = -B(4455)-B(4456) -! JVS(4274) = Jac_FULL(1069,5078) - JVS(4274) = B(1684) -! JVS(4275) = Jac_FULL(1069,5250) - JVS(4275) = -B(4457) -! JVS(4276) = Jac_FULL(1069,5255) - JVS(4276) = B(1685) -! JVS(4277) = Jac_FULL(1070,1070) - JVS(4277) = -B(21974)-B(21976) -! JVS(4278) = Jac_FULL(1070,3703) - JVS(4278) = B(20907) -! JVS(4279) = Jac_FULL(1070,5250) - JVS(4279) = -B(21975) -! JVS(4280) = Jac_FULL(1070,5255) - JVS(4280) = B(20908) -! JVS(4281) = Jac_FULL(1071,1071) - JVS(4281) = -B(19260)-B(19262) -! JVS(4282) = Jac_FULL(1071,3840) - JVS(4282) = B(17062) -! JVS(4283) = Jac_FULL(1071,5250) - JVS(4283) = -B(19261) -! JVS(4284) = Jac_FULL(1071,5255) - JVS(4284) = B(17063) -! JVS(4285) = Jac_FULL(1072,1072) - JVS(4285) = -B(5085)-B(5087) -! JVS(4286) = Jac_FULL(1072,4140) - JVS(4286) = B(2221) -! JVS(4287) = Jac_FULL(1072,5250) - JVS(4287) = -B(5086) -! JVS(4288) = Jac_FULL(1072,5255) - JVS(4288) = B(2222) -! JVS(4289) = Jac_FULL(1073,1073) - JVS(4289) = -B(9448)-B(9450) -! JVS(4290) = Jac_FULL(1073,4829) - JVS(4290) = B(5808)+B(5819) -! JVS(4291) = Jac_FULL(1073,5250) - JVS(4291) = -B(9449) -! JVS(4292) = Jac_FULL(1073,5255) - JVS(4292) = B(5809) -! JVS(4293) = Jac_FULL(1074,1074) - JVS(4293) = -B(17518)-B(17519) -! JVS(4294) = Jac_FULL(1074,4412) - JVS(4294) = B(14951) -! JVS(4295) = Jac_FULL(1074,5250) - JVS(4295) = -B(17520) -! JVS(4296) = Jac_FULL(1074,5255) - JVS(4296) = B(14952) -! JVS(4297) = Jac_FULL(1075,1075) - JVS(4297) = -B(12006)-B(12007) -! JVS(4298) = Jac_FULL(1075,3785) - JVS(4298) = B(8260) -! JVS(4299) = Jac_FULL(1075,5250) - JVS(4299) = -B(12008) -! JVS(4300) = Jac_FULL(1075,5255) - JVS(4300) = B(8261) -! JVS(4301) = Jac_FULL(1076,1076) - JVS(4301) = -B(13434)-B(13436) -! JVS(4302) = Jac_FULL(1076,4051) - JVS(4302) = B(10212) -! JVS(4303) = Jac_FULL(1076,5250) - JVS(4303) = -B(13435) -! JVS(4304) = Jac_FULL(1076,5255) - JVS(4304) = B(10213) -! JVS(4305) = Jac_FULL(1077,1077) - JVS(4305) = -B(23724)-B(23726) -! JVS(4306) = Jac_FULL(1077,3855) - JVS(4306) = B(23477) -! JVS(4307) = Jac_FULL(1077,5250) - JVS(4307) = -B(23725) -! JVS(4308) = Jac_FULL(1077,5255) - JVS(4308) = B(23478) -! JVS(4309) = Jac_FULL(1078,1078) - JVS(4309) = -B(12200) -! JVS(4310) = Jac_FULL(1078,4452) - JVS(4310) = B(8477)+B(8488) -! JVS(4311) = Jac_FULL(1078,5250) - JVS(4311) = -B(12201) -! JVS(4312) = Jac_FULL(1078,5255) - JVS(4312) = B(8478) -! JVS(4313) = Jac_FULL(1079,1079) - JVS(4313) = -B(4764)-B(4765) -! JVS(4314) = Jac_FULL(1079,5107) - JVS(4314) = B(1942) -! JVS(4315) = Jac_FULL(1079,5250) - JVS(4315) = -B(4766) -! JVS(4316) = Jac_FULL(1079,5255) - JVS(4316) = B(1943) -! JVS(4317) = Jac_FULL(1080,1080) - JVS(4317) = -B(12255)-B(12257) -! JVS(4318) = Jac_FULL(1080,3888) - JVS(4318) = B(8561) -! JVS(4319) = Jac_FULL(1080,5250) - JVS(4319) = -B(12256) -! JVS(4320) = Jac_FULL(1080,5255) - JVS(4320) = B(8562) -! JVS(4321) = Jac_FULL(1081,1081) - JVS(4321) = -B(3953) -! JVS(4322) = Jac_FULL(1081,4161) - JVS(4322) = B(1185) -! JVS(4323) = Jac_FULL(1081,5250) - JVS(4323) = -B(3954) -! JVS(4324) = Jac_FULL(1081,5252) - JVS(4324) = B(1186) -! JVS(4325) = Jac_FULL(1082,1082) - JVS(4325) = -B(4731)-B(4732) -! JVS(4326) = Jac_FULL(1082,4878) - JVS(4326) = B(1910) -! JVS(4327) = Jac_FULL(1082,5250) - JVS(4327) = -B(4733) -! JVS(4328) = Jac_FULL(1082,5255) - JVS(4328) = B(1911) -! JVS(4329) = Jac_FULL(1083,1083) - JVS(4329) = -B(6532)-B(6534) -! JVS(4330) = Jac_FULL(1083,4167) - JVS(4330) = B(2970) -! JVS(4331) = Jac_FULL(1083,5250) - JVS(4331) = -B(6533) -! JVS(4332) = Jac_FULL(1083,5252) - JVS(4332) = B(2971) -! JVS(4333) = Jac_FULL(1084,1084) - JVS(4333) = -B(12684)-B(12686) -! JVS(4334) = Jac_FULL(1084,4684) - JVS(4334) = B(9085)+B(9096) -! JVS(4335) = Jac_FULL(1084,5250) - JVS(4335) = -B(12685) -! JVS(4336) = Jac_FULL(1084,5255) - JVS(4336) = B(9086) -! JVS(4337) = Jac_FULL(1085,1085) - JVS(4337) = -B(23239)-B(23241) -! JVS(4338) = Jac_FULL(1085,4759) - JVS(4338) = B(22802) -! JVS(4339) = Jac_FULL(1085,5250) - JVS(4339) = -B(23240) -! JVS(4340) = Jac_FULL(1085,5255) - JVS(4340) = B(22803) -! JVS(4341) = Jac_FULL(1086,1086) - JVS(4341) = -B(12569)-B(12571) -! JVS(4342) = Jac_FULL(1086,4740) - JVS(4342) = B(8950) -! JVS(4343) = Jac_FULL(1086,5250) - JVS(4343) = -B(12570) -! JVS(4344) = Jac_FULL(1086,5253) - JVS(4344) = B(8951) -! JVS(4345) = Jac_FULL(1087,1087) - JVS(4345) = -B(17096)-B(17098) -! JVS(4346) = Jac_FULL(1087,4855) - JVS(4346) = B(14440)+B(14452) -! JVS(4347) = Jac_FULL(1087,5250) - JVS(4347) = -B(17097) -! JVS(4348) = Jac_FULL(1087,5255) - JVS(4348) = B(14441) -! JVS(4349) = Jac_FULL(1088,1088) - JVS(4349) = -B(16086)-B(16088) -! JVS(4350) = Jac_FULL(1088,4141) - JVS(4350) = B(12995) -! JVS(4351) = Jac_FULL(1088,5250) - JVS(4351) = -B(16087) -! JVS(4352) = Jac_FULL(1088,5255) - JVS(4352) = B(12996) -! JVS(4353) = Jac_FULL(1089,1089) - JVS(4353) = -B(20793)-B(20795) -! JVS(4354) = Jac_FULL(1089,3706) - JVS(4354) = B(19213) -! JVS(4355) = Jac_FULL(1089,5250) - JVS(4355) = -B(20794) -! JVS(4356) = Jac_FULL(1089,5255) - JVS(4356) = B(19214) -! JVS(4357) = Jac_FULL(1090,1090) - JVS(4357) = -B(17598)-B(17599) -! JVS(4358) = Jac_FULL(1090,4934) - JVS(4358) = B(15022) -! JVS(4359) = Jac_FULL(1090,5250) - JVS(4359) = -B(17600) -! JVS(4360) = Jac_FULL(1090,5255) - JVS(4360) = B(15023) -! JVS(4361) = Jac_FULL(1091,1091) - JVS(4361) = -B(18371)-B(18373) -! JVS(4362) = Jac_FULL(1091,3999) - JVS(4362) = B(15944) -! JVS(4363) = Jac_FULL(1091,5250) - JVS(4363) = -B(18372) -! JVS(4364) = Jac_FULL(1091,5255) - JVS(4364) = B(15945) -! JVS(4365) = Jac_FULL(1092,1092) - JVS(4365) = -B(16353)-B(16355) -! JVS(4366) = Jac_FULL(1092,4703) - JVS(4366) = B(13331) -! JVS(4367) = Jac_FULL(1092,5250) - JVS(4367) = -B(16354) -! JVS(4368) = Jac_FULL(1092,5255) - JVS(4368) = B(13332) -! JVS(4369) = Jac_FULL(1093,1093) - JVS(4369) = -B(19222)-B(19224) -! JVS(4370) = Jac_FULL(1093,4545) - JVS(4370) = B(17005) -! JVS(4371) = Jac_FULL(1093,5250) - JVS(4371) = -B(19223) -! JVS(4372) = Jac_FULL(1093,5255) - JVS(4372) = B(17006) -! JVS(4373) = Jac_FULL(1094,1094) - JVS(4373) = -B(22384)-B(22386) -! JVS(4374) = Jac_FULL(1094,4410) - JVS(4374) = B(21767) -! JVS(4375) = Jac_FULL(1094,5250) - JVS(4375) = -B(22385) -! JVS(4376) = Jac_FULL(1094,5255) - JVS(4376) = B(21768) -! JVS(4377) = Jac_FULL(1095,1095) - JVS(4377) = -B(6598)-B(6600) -! JVS(4378) = Jac_FULL(1095,4622) - JVS(4378) = B(3007) -! JVS(4379) = Jac_FULL(1095,5250) - JVS(4379) = -B(6599) -! JVS(4380) = Jac_FULL(1095,5255) - JVS(4380) = B(3008) -! JVS(4381) = Jac_FULL(1096,1096) - JVS(4381) = -B(18121)-B(18123) -! JVS(4382) = Jac_FULL(1096,4265) - JVS(4382) = B(15535) -! JVS(4383) = Jac_FULL(1096,5250) - JVS(4383) = -B(18122) -! JVS(4384) = Jac_FULL(1096,5255) - JVS(4384) = B(15536) -! JVS(4385) = Jac_FULL(1097,1097) - JVS(4385) = -B(11586)-B(11588) -! JVS(4386) = Jac_FULL(1097,4915) - JVS(4386) = B(7821)+B(7832) -! JVS(4387) = Jac_FULL(1097,5250) - JVS(4387) = -B(11587) -! JVS(4388) = Jac_FULL(1097,5255) - JVS(4388) = B(7822) -! JVS(4389) = Jac_FULL(1098,1098) - JVS(4389) = -B(13544)-B(13545) -! JVS(4390) = Jac_FULL(1098,4159) - JVS(4390) = B(10364) -! JVS(4391) = Jac_FULL(1098,5250) - JVS(4391) = -B(13546) -! JVS(4392) = Jac_FULL(1098,5255) - JVS(4392) = B(10365) -! JVS(4393) = Jac_FULL(1099,1099) - JVS(4393) = -B(14047)-B(14049) -! JVS(4394) = Jac_FULL(1099,4991) - JVS(4394) = B(10848) -! JVS(4395) = Jac_FULL(1099,5250) - JVS(4395) = -B(14048) -! JVS(4396) = Jac_FULL(1099,5255) - JVS(4396) = B(10849) -! JVS(4397) = Jac_FULL(1100,1100) - JVS(4397) = -B(11602)-B(11603) -! JVS(4398) = Jac_FULL(1100,5137) - JVS(4398) = B(7844) -! JVS(4399) = Jac_FULL(1100,5250) - JVS(4399) = -B(11604) -! JVS(4400) = Jac_FULL(1100,5255) - JVS(4400) = B(7845) -! JVS(4401) = Jac_FULL(1101,1101) - JVS(4401) = -B(18675)-B(18677) -! JVS(4402) = Jac_FULL(1101,4297) - JVS(4402) = B(16391) -! JVS(4403) = Jac_FULL(1101,5250) - JVS(4403) = -B(18676) -! JVS(4404) = Jac_FULL(1101,5255) - JVS(4404) = B(16392) -! JVS(4405) = Jac_FULL(1102,1102) - JVS(4405) = -B(10712)-B(10714) -! JVS(4406) = Jac_FULL(1102,3496) - JVS(4406) = B(6905) -! JVS(4407) = Jac_FULL(1102,5250) - JVS(4407) = -B(10713) -! JVS(4408) = Jac_FULL(1102,5255) - JVS(4408) = B(6906) -! JVS(4409) = Jac_FULL(1103,1103) - JVS(4409) = -B(9937)-B(9939) -! JVS(4410) = Jac_FULL(1103,4575) - JVS(4410) = B(6227) -! JVS(4411) = Jac_FULL(1103,5250) - JVS(4411) = -B(9938) -! JVS(4412) = Jac_FULL(1103,5255) - JVS(4412) = B(6228) -! JVS(4413) = Jac_FULL(1104,1104) - JVS(4413) = -B(18184)-B(18186) -! JVS(4414) = Jac_FULL(1104,4293) - JVS(4414) = B(15678) -! JVS(4415) = Jac_FULL(1104,5250) - JVS(4415) = -B(18185) -! JVS(4416) = Jac_FULL(1104,5255) - JVS(4416) = B(15679) -! JVS(4417) = Jac_FULL(1105,1105) - JVS(4417) = -B(18076)-B(18078) -! JVS(4418) = Jac_FULL(1105,4273) - JVS(4418) = B(15482) -! JVS(4419) = Jac_FULL(1105,5250) - JVS(4419) = -B(18077) -! JVS(4420) = Jac_FULL(1105,5255) - JVS(4420) = B(15483) -! JVS(4421) = Jac_FULL(1106,1106) - JVS(4421) = -B(7648)-B(7650) -! JVS(4422) = Jac_FULL(1106,4380) - JVS(4422) = B(3811) -! JVS(4423) = Jac_FULL(1106,5250) - JVS(4423) = -B(7649) -! JVS(4424) = Jac_FULL(1106,5255) - JVS(4424) = B(3812) -! JVS(4425) = Jac_FULL(1107,1107) - JVS(4425) = -B(23391)-B(23393) -! JVS(4426) = Jac_FULL(1107,5027) - JVS(4426) = B(22996) -! JVS(4427) = Jac_FULL(1107,5250) - JVS(4427) = -B(23392) -! JVS(4428) = Jac_FULL(1107,5255) - JVS(4428) = B(22997) -! JVS(4429) = Jac_FULL(1108,1108) - JVS(4429) = -B(3789)-B(3790) -! JVS(4430) = Jac_FULL(1108,4310) - JVS(4430) = B(1059) -! JVS(4431) = Jac_FULL(1108,5250) - JVS(4431) = -B(3791) -! JVS(4432) = Jac_FULL(1108,5255) - JVS(4432) = B(1060) -! JVS(4433) = Jac_FULL(1109,1109) - JVS(4433) = -B(12496)-B(12498) -! JVS(4434) = Jac_FULL(1109,4986) - JVS(4434) = B(8844) -! JVS(4435) = Jac_FULL(1109,5250) - JVS(4435) = -B(12497) -! JVS(4436) = Jac_FULL(1109,5255) - JVS(4436) = B(8845) -! JVS(4437) = Jac_FULL(1110,1110) - JVS(4437) = -B(12176) -! JVS(4438) = Jac_FULL(1110,4405) - JVS(4438) = B(8441)+B(8452) -! JVS(4439) = Jac_FULL(1110,5250) - JVS(4439) = -B(12177) -! JVS(4440) = Jac_FULL(1110,5255) - JVS(4440) = B(8442) -! JVS(4441) = Jac_FULL(1111,1111) - JVS(4441) = -B(13038)-B(13040) -! JVS(4442) = Jac_FULL(1111,2927) - JVS(4442) = B(12994) -! JVS(4443) = Jac_FULL(1111,4998) - JVS(4443) = B(9576) -! JVS(4444) = Jac_FULL(1111,5250) - JVS(4444) = -B(13039) -! JVS(4445) = Jac_FULL(1112,1112) - JVS(4445) = -B(9688)-B(9690) -! JVS(4446) = Jac_FULL(1112,4971) - JVS(4446) = B(5996) -! JVS(4447) = Jac_FULL(1112,5250) - JVS(4447) = -B(9689) -! JVS(4448) = Jac_FULL(1112,5255) - JVS(4448) = B(5997) -! JVS(4449) = Jac_FULL(1113,1113) - JVS(4449) = -B(11030) -! JVS(4450) = Jac_FULL(1113,1673) - JVS(4450) = B(7236) -! JVS(4451) = Jac_FULL(1113,1777) - JVS(4451) = B(14220) -! JVS(4452) = Jac_FULL(1113,5250) - JVS(4452) = -B(11031) -! JVS(4453) = Jac_FULL(1114,1114) - JVS(4453) = -B(19847)-B(19848) -! JVS(4454) = Jac_FULL(1114,4850) - JVS(4454) = B(17999) -! JVS(4455) = Jac_FULL(1114,5250) - JVS(4455) = -B(19849) -! JVS(4456) = Jac_FULL(1114,5255) - JVS(4456) = B(18000) -! JVS(4457) = Jac_FULL(1115,1115) - JVS(4457) = -B(17920)-B(17921) -! JVS(4458) = Jac_FULL(1115,4270) - JVS(4458) = B(15319) -! JVS(4459) = Jac_FULL(1115,5250) - JVS(4459) = -B(17922) -! JVS(4460) = Jac_FULL(1115,5255) - JVS(4460) = B(15320) -! JVS(4461) = Jac_FULL(1116,1116) - JVS(4461) = -B(23923)-B(23925) -! JVS(4462) = Jac_FULL(1116,4465) - JVS(4462) = B(23791) -! JVS(4463) = Jac_FULL(1116,5250) - JVS(4463) = -B(23924) -! JVS(4464) = Jac_FULL(1116,5255) - JVS(4464) = B(23792) -! JVS(4465) = Jac_FULL(1117,1117) - JVS(4465) = -B(19939)-B(19941) -! JVS(4466) = Jac_FULL(1117,4188) - JVS(4466) = B(18148) -! JVS(4467) = Jac_FULL(1117,5250) - JVS(4467) = -B(19940) -! JVS(4468) = Jac_FULL(1117,5255) - JVS(4468) = B(18149) -! JVS(4469) = Jac_FULL(1118,1118) - JVS(4469) = -B(20128)-B(20130) -! JVS(4470) = Jac_FULL(1118,4425) - JVS(4470) = B(18424) -! JVS(4471) = Jac_FULL(1118,5250) - JVS(4471) = -B(20129) -! JVS(4472) = Jac_FULL(1118,5255) - JVS(4472) = B(18425) -! JVS(4473) = Jac_FULL(1119,1119) - JVS(4473) = -B(22000)-B(22002) -! JVS(4474) = Jac_FULL(1119,3686) - JVS(4474) = B(20961) -! JVS(4475) = Jac_FULL(1119,5250) - JVS(4475) = -B(22001) -! JVS(4476) = Jac_FULL(1119,5255) - JVS(4476) = B(20962) -! JVS(4477) = Jac_FULL(1120,1120) - JVS(4477) = -B(4070) -! JVS(4478) = Jac_FULL(1120,4554) - JVS(4478) = B(1277) -! JVS(4479) = Jac_FULL(1120,4596) - JVS(4479) = B(1268) -! JVS(4480) = Jac_FULL(1120,5250) - JVS(4480) = -B(4071) -! JVS(4481) = Jac_FULL(1121,1121) - JVS(4481) = -B(5176) -! JVS(4482) = Jac_FULL(1121,4607) - JVS(4482) = B(2307) -! JVS(4483) = Jac_FULL(1121,4608) - JVS(4483) = B(2318) -! JVS(4484) = Jac_FULL(1121,5250) - JVS(4484) = -B(5177) -! JVS(4485) = Jac_FULL(1122,1122) - JVS(4485) = -B(17950)-B(17951) -! JVS(4486) = Jac_FULL(1122,4254) - JVS(4486) = B(15347) -! JVS(4487) = Jac_FULL(1122,5250) - JVS(4487) = -B(17952) -! JVS(4488) = Jac_FULL(1122,5255) - JVS(4488) = B(15348) -! JVS(4489) = Jac_FULL(1123,1123) - JVS(4489) = -B(16100)-B(16102) -! JVS(4490) = Jac_FULL(1123,3774) - JVS(4490) = B(13004) -! JVS(4491) = Jac_FULL(1123,5250) - JVS(4491) = -B(16101) -! JVS(4492) = Jac_FULL(1123,5255) - JVS(4492) = B(13005) -! JVS(4493) = Jac_FULL(1124,1124) - JVS(4493) = -B(3879) -! JVS(4494) = Jac_FULL(1124,4473) - JVS(4494) = B(1126) -! JVS(4495) = Jac_FULL(1124,4647) - JVS(4495) = B(1159) -! JVS(4496) = Jac_FULL(1124,5250) - JVS(4496) = -B(3880) -! JVS(4497) = Jac_FULL(1125,1125) - JVS(4497) = -B(15489)-B(15491) -! JVS(4498) = Jac_FULL(1125,4079) - JVS(4498) = B(12405) -! JVS(4499) = Jac_FULL(1125,5250) - JVS(4499) = -B(15490) -! JVS(4500) = Jac_FULL(1125,5255) - JVS(4500) = B(12406) -! JVS(4501) = Jac_FULL(1126,1126) - JVS(4501) = -B(21943)-B(21945) -! JVS(4502) = Jac_FULL(1126,4059) - JVS(4502) = B(20884) -! JVS(4503) = Jac_FULL(1126,5250) - JVS(4503) = -B(21944) -! JVS(4504) = Jac_FULL(1126,5255) - JVS(4504) = B(20885) -! JVS(4505) = Jac_FULL(1127,1127) - JVS(4505) = -B(15436)-B(15438) -! JVS(4506) = Jac_FULL(1127,3728) - JVS(4506) = B(12337) -! JVS(4507) = Jac_FULL(1127,5250) - JVS(4507) = -B(15437) -! JVS(4508) = Jac_FULL(1127,5255) - JVS(4508) = B(12338) -! JVS(4509) = Jac_FULL(1128,1128) - JVS(4509) = -B(11412)-B(11414) -! JVS(4510) = Jac_FULL(1128,5206) - JVS(4510) = B(7555) -! JVS(4511) = Jac_FULL(1128,5250) - JVS(4511) = -B(11413) -! JVS(4512) = Jac_FULL(1128,5255) - JVS(4512) = B(7556) -! JVS(4513) = Jac_FULL(1129,1129) - JVS(4513) = -B(16197)-B(16199) -! JVS(4514) = Jac_FULL(1129,4480) - JVS(4514) = B(13136) -! JVS(4515) = Jac_FULL(1129,5250) - JVS(4515) = -B(16198) -! JVS(4516) = Jac_FULL(1129,5255) - JVS(4516) = B(13137) -! JVS(4517) = Jac_FULL(1130,1130) - JVS(4517) = -B(23612)-B(23614) -! JVS(4518) = Jac_FULL(1130,4459) - JVS(4518) = B(23326) -! JVS(4519) = Jac_FULL(1130,5250) - JVS(4519) = -B(23613) -! JVS(4520) = Jac_FULL(1130,5255) - JVS(4520) = B(23327) -! JVS(4521) = Jac_FULL(1131,1131) - JVS(4521) = -B(6499)-B(6501) -! JVS(4522) = Jac_FULL(1131,3790) - JVS(4522) = B(2949) -! JVS(4523) = Jac_FULL(1131,5250) - JVS(4523) = -B(6500) -! JVS(4524) = Jac_FULL(1131,5255) - JVS(4524) = B(2950) -! JVS(4525) = Jac_FULL(1132,1132) - JVS(4525) = -B(7078)-B(7079) -! JVS(4526) = Jac_FULL(1132,5097) - JVS(4526) = B(3284) -! JVS(4527) = Jac_FULL(1132,5250) - JVS(4527) = -B(7080) -! JVS(4528) = Jac_FULL(1132,5255) - JVS(4528) = B(3285) -! JVS(4529) = Jac_FULL(1133,259) - JVS(4529) = B(18344) -! JVS(4530) = Jac_FULL(1133,312) - JVS(4530) = B(15916) -! JVS(4531) = Jac_FULL(1133,1133) - JVS(4531) = -B(15914) -! JVS(4532) = Jac_FULL(1133,3396) - JVS(4532) = 0 -! JVS(4533) = Jac_FULL(1133,3727) - JVS(4533) = B(12834) -! JVS(4534) = Jac_FULL(1133,5250) - JVS(4534) = -B(15915)+B(15917)+B(18345) -! JVS(4535) = Jac_FULL(1134,1134) - JVS(4535) = -B(11516)-B(11517) -! JVS(4536) = Jac_FULL(1134,5008) - JVS(4536) = B(7715) -! JVS(4537) = Jac_FULL(1134,5250) - JVS(4537) = -B(11518) -! JVS(4538) = Jac_FULL(1134,5255) - JVS(4538) = B(7716) -! JVS(4539) = Jac_FULL(1135,1135) - JVS(4539) = -B(20895)-B(20897) -! JVS(4540) = Jac_FULL(1135,3962) - JVS(4540) = B(19329) -! JVS(4541) = Jac_FULL(1135,5250) - JVS(4541) = -B(20896) -! JVS(4542) = Jac_FULL(1135,5255) - JVS(4542) = B(19330) -! JVS(4543) = Jac_FULL(1136,1136) - JVS(4543) = -B(17868)-B(17869) -! JVS(4544) = Jac_FULL(1136,4716) - JVS(4544) = B(15277) -! JVS(4545) = Jac_FULL(1136,5250) - JVS(4545) = -B(17870) -! JVS(4546) = Jac_FULL(1136,5255) - JVS(4546) = B(15278) -! JVS(4547) = Jac_FULL(1137,1137) - JVS(4547) = -B(22183)-B(22184) -! JVS(4548) = Jac_FULL(1137,4461) - JVS(4548) = B(21229) -! JVS(4549) = Jac_FULL(1137,5250) - JVS(4549) = -B(22185) -! JVS(4550) = Jac_FULL(1137,5255) - JVS(4550) = B(21230) -! JVS(4551) = Jac_FULL(1138,1138) - JVS(4551) = -B(3712)-B(3714) -! JVS(4552) = Jac_FULL(1138,5060) - JVS(4552) = B(998) -! JVS(4553) = Jac_FULL(1138,5250) - JVS(4553) = -B(3713) -! JVS(4554) = Jac_FULL(1138,5255) - JVS(4554) = B(999) -! JVS(4555) = Jac_FULL(1139,1139) - JVS(4555) = -B(22441)-B(22443) -! JVS(4556) = Jac_FULL(1139,4142) - JVS(4556) = B(21818) -! JVS(4557) = Jac_FULL(1139,5250) - JVS(4557) = -B(22442) -! JVS(4558) = Jac_FULL(1139,5255) - JVS(4558) = B(21819) -! JVS(4559) = Jac_FULL(1140,1140) - JVS(4559) = -B(3694) -! JVS(4560) = Jac_FULL(1140,4870) - JVS(4560) = B(984) -! JVS(4561) = Jac_FULL(1140,5150) - JVS(4561) = B(10920) -! JVS(4562) = Jac_FULL(1140,5250) - JVS(4562) = -B(3695) -! JVS(4563) = Jac_FULL(1141,1141) - JVS(4563) = -B(4882)-B(4884) -! JVS(4564) = Jac_FULL(1141,4387) - JVS(4564) = B(2053) -! JVS(4565) = Jac_FULL(1141,5250) - JVS(4565) = -B(4883) -! JVS(4566) = Jac_FULL(1141,5255) - JVS(4566) = B(2054) -! JVS(4567) = Jac_FULL(1142,1142) - JVS(4567) = -B(11454)-B(11455) -! JVS(4568) = Jac_FULL(1142,4374) - JVS(4568) = B(7616) -! JVS(4569) = Jac_FULL(1142,5250) - JVS(4569) = -B(11456) -! JVS(4570) = Jac_FULL(1142,5255) - JVS(4570) = B(7617) -! JVS(4571) = Jac_FULL(1143,1143) - JVS(4571) = -B(6953)-B(6955) -! JVS(4572) = Jac_FULL(1143,4616) - JVS(4572) = B(3172) -! JVS(4573) = Jac_FULL(1143,5250) - JVS(4573) = -B(6954) -! JVS(4574) = Jac_FULL(1143,5255) - JVS(4574) = B(3173) -! JVS(4575) = Jac_FULL(1144,1144) - JVS(4575) = -B(18290)-B(18292) -! JVS(4576) = Jac_FULL(1144,4292) - JVS(4576) = B(15827) -! JVS(4577) = Jac_FULL(1144,5250) - JVS(4577) = -B(18291) -! JVS(4578) = Jac_FULL(1144,5255) - JVS(4578) = B(15828) -! JVS(4579) = Jac_FULL(1145,1145) - JVS(4579) = -B(17787)-B(17788) -! JVS(4580) = Jac_FULL(1145,4903) - JVS(4580) = B(15214) -! JVS(4581) = Jac_FULL(1145,5250) - JVS(4581) = -B(17789) -! JVS(4582) = Jac_FULL(1145,5255) - JVS(4582) = B(15215) -! JVS(4583) = Jac_FULL(1146,1146) - JVS(4583) = -B(23274)-B(23276) -! JVS(4584) = Jac_FULL(1146,4409) - JVS(4584) = B(22861) -! JVS(4585) = Jac_FULL(1146,5250) - JVS(4585) = -B(23275) -! JVS(4586) = Jac_FULL(1146,5255) - JVS(4586) = B(22862) -! JVS(4587) = Jac_FULL(1147,1147) - JVS(4587) = -B(16938)-B(16940) -! JVS(4588) = Jac_FULL(1147,4092) - JVS(4588) = B(14315) -! JVS(4589) = Jac_FULL(1147,5250) - JVS(4589) = -B(16939) -! JVS(4590) = Jac_FULL(1147,5255) - JVS(4590) = B(14316) -! JVS(4591) = Jac_FULL(1148,1148) - JVS(4591) = -B(18679)-B(18681) -! JVS(4592) = Jac_FULL(1148,4287) - JVS(4592) = B(16398) -! JVS(4593) = Jac_FULL(1148,5250) - JVS(4593) = -B(18680) -! JVS(4594) = Jac_FULL(1148,5255) - JVS(4594) = B(16399) -! JVS(4595) = Jac_FULL(1149,1149) - JVS(4595) = -B(22048)-B(22050) -! JVS(4596) = Jac_FULL(1149,3764) - JVS(4596) = B(21015) -! JVS(4597) = Jac_FULL(1149,5250) - JVS(4597) = -B(22049) -! JVS(4598) = Jac_FULL(1149,5255) - JVS(4598) = B(21016) -! JVS(4599) = Jac_FULL(1150,1150) - JVS(4599) = -B(6182)-B(6184) -! JVS(4600) = Jac_FULL(1150,3797) - JVS(4600) = B(2801) -! JVS(4601) = Jac_FULL(1150,5250) - JVS(4601) = -B(6183) -! JVS(4602) = Jac_FULL(1150,5255) - JVS(4602) = B(2802) -! JVS(4603) = Jac_FULL(1151,1151) - JVS(4603) = -B(17176) -! JVS(4604) = Jac_FULL(1151,3872) - JVS(4604) = B(14522) -! JVS(4605) = Jac_FULL(1151,5250) - JVS(4605) = -B(17177) -! JVS(4606) = Jac_FULL(1151,5252) - JVS(4606) = B(14523) -! JVS(4607) = Jac_FULL(1152,1152) - JVS(4607) = -B(15781)-B(15783) -! JVS(4608) = Jac_FULL(1152,4073) - JVS(4608) = B(12713) -! JVS(4609) = Jac_FULL(1152,5250) - JVS(4609) = -B(15782) -! JVS(4610) = Jac_FULL(1152,5255) - JVS(4610) = B(12714) -! JVS(4611) = Jac_FULL(1153,1153) - JVS(4611) = -B(7186)-B(7188) -! JVS(4612) = Jac_FULL(1153,5032) - JVS(4612) = B(3366) -! JVS(4613) = Jac_FULL(1153,5250) - JVS(4613) = -B(7187) -! JVS(4614) = Jac_FULL(1153,5255) - JVS(4614) = B(3367) -! JVS(4615) = Jac_FULL(1154,1154) - JVS(4615) = -B(23888)-B(23890) -! JVS(4616) = Jac_FULL(1154,4525) - JVS(4616) = B(23733) -! JVS(4617) = Jac_FULL(1154,5250) - JVS(4617) = -B(23889) -! JVS(4618) = Jac_FULL(1154,5255) - JVS(4618) = B(23734) -! JVS(4619) = Jac_FULL(1155,1155) - JVS(4619) = -B(23102)-B(23104) -! JVS(4620) = Jac_FULL(1155,4319) - JVS(4620) = B(22652) -! JVS(4621) = Jac_FULL(1155,5250) - JVS(4621) = -B(23103) -! JVS(4622) = Jac_FULL(1155,5255) - JVS(4622) = B(22653) -! JVS(4623) = Jac_FULL(1156,1156) - JVS(4623) = -B(13285)-B(13287) -! JVS(4624) = Jac_FULL(1156,4082) - JVS(4624) = B(9972) -! JVS(4625) = Jac_FULL(1156,5250) - JVS(4625) = -B(13286) -! JVS(4626) = Jac_FULL(1156,5255) - JVS(4626) = B(9973) -! JVS(4627) = Jac_FULL(1157,1157) - JVS(4627) = -B(9006)-B(9008) -! JVS(4628) = Jac_FULL(1157,3491) - JVS(4628) = B(5462) -! JVS(4629) = Jac_FULL(1157,5250) - JVS(4629) = -B(9007) -! JVS(4630) = Jac_FULL(1157,5255) - JVS(4630) = B(5463) -! JVS(4631) = Jac_FULL(1158,1158) - JVS(4631) = -B(11448)-B(11449) -! JVS(4632) = Jac_FULL(1158,4949) - JVS(4632) = B(7604) -! JVS(4633) = Jac_FULL(1158,5250) - JVS(4633) = -B(11450) -! JVS(4634) = Jac_FULL(1158,5255) - JVS(4634) = B(7605) -! JVS(4635) = Jac_FULL(1159,1159) - JVS(4635) = -B(6529)-B(6531) -! JVS(4636) = Jac_FULL(1159,4167) - JVS(4636) = B(2968) -! JVS(4637) = Jac_FULL(1159,5250) - JVS(4637) = -B(6530) -! JVS(4638) = Jac_FULL(1159,5255) - JVS(4638) = B(2969) -! JVS(4639) = Jac_FULL(1160,1160) - JVS(4639) = -B(13998)-B(14000) -! JVS(4640) = Jac_FULL(1160,4610) - JVS(4640) = B(10794) -! JVS(4641) = Jac_FULL(1160,5250) - JVS(4641) = -B(13999) -! JVS(4642) = Jac_FULL(1160,5255) - JVS(4642) = B(10795) -! JVS(4643) = Jac_FULL(1161,1161) - JVS(4643) = -B(10075)-B(10077) -! JVS(4644) = Jac_FULL(1161,4727) - JVS(4644) = B(6374) -! JVS(4645) = Jac_FULL(1161,5250) - JVS(4645) = -B(10076) -! JVS(4646) = Jac_FULL(1161,5255) - JVS(4646) = B(6375) -! JVS(4647) = Jac_FULL(1162,1162) - JVS(4647) = -B(23111)-B(23113) -! JVS(4648) = Jac_FULL(1162,4672) - JVS(4648) = B(22662) -! JVS(4649) = Jac_FULL(1162,5250) - JVS(4649) = -B(23112) -! JVS(4650) = Jac_FULL(1162,5255) - JVS(4650) = B(22663) -! JVS(4651) = Jac_FULL(1163,1163) - JVS(4651) = -B(22421)-B(22423) -! JVS(4652) = Jac_FULL(1163,4485) - JVS(4652) = B(21804)+B(21816) -! JVS(4653) = Jac_FULL(1163,5250) - JVS(4653) = -B(22422) -! JVS(4654) = Jac_FULL(1163,5255) - JVS(4654) = B(21805) -! JVS(4655) = Jac_FULL(1164,1164) - JVS(4655) = -B(21695)-B(21697) -! JVS(4656) = Jac_FULL(1164,3760) - JVS(4656) = B(20653) -! JVS(4657) = Jac_FULL(1164,5250) - JVS(4657) = -B(21696) -! JVS(4658) = Jac_FULL(1164,5255) - JVS(4658) = B(20654) -! JVS(4659) = Jac_FULL(1165,1165) - JVS(4659) = -B(11745)-B(11746) -! JVS(4660) = Jac_FULL(1165,3870) - JVS(4660) = B(8018) -! JVS(4661) = Jac_FULL(1165,5250) - JVS(4661) = -B(11747) -! JVS(4662) = Jac_FULL(1165,5255) - JVS(4662) = B(8019) -! JVS(4663) = Jac_FULL(1166,1166) - JVS(4663) = -B(20177)-B(20179) -! JVS(4664) = Jac_FULL(1166,4285) - JVS(4664) = B(18502) -! JVS(4665) = Jac_FULL(1166,5250) - JVS(4665) = -B(20178) -! JVS(4666) = Jac_FULL(1166,5255) - JVS(4666) = B(18503) -! JVS(4667) = Jac_FULL(1167,1167) - JVS(4667) = -B(9195)-B(9197) -! JVS(4668) = Jac_FULL(1167,4699) - JVS(4668) = B(5615) -! JVS(4669) = Jac_FULL(1167,5250) - JVS(4669) = -B(9196) -! JVS(4670) = Jac_FULL(1167,5255) - JVS(4670) = B(5616) -! JVS(4671) = Jac_FULL(1168,1168) - JVS(4671) = -B(12069)-B(12070) -! JVS(4672) = Jac_FULL(1168,3749) - JVS(4672) = B(8324) -! JVS(4673) = Jac_FULL(1168,5250) - JVS(4673) = -B(12071) -! JVS(4674) = Jac_FULL(1168,5255) - JVS(4674) = B(8325) -! JVS(4675) = Jac_FULL(1169,1169) - JVS(4675) = -B(20063)-B(20065) -! JVS(4676) = Jac_FULL(1169,4464) - JVS(4676) = B(18298) -! JVS(4677) = Jac_FULL(1169,5250) - JVS(4677) = -B(20064) -! JVS(4678) = Jac_FULL(1169,5255) - JVS(4678) = B(18299) -! JVS(4679) = Jac_FULL(1170,1170) - JVS(4679) = -B(16027)-B(16029) -! JVS(4680) = Jac_FULL(1170,3973) - JVS(4680) = B(12951) -! JVS(4681) = Jac_FULL(1170,5250) - JVS(4681) = -B(16028) -! JVS(4682) = Jac_FULL(1170,5255) - JVS(4682) = B(12952) -! JVS(4683) = Jac_FULL(1171,1171) - JVS(4683) = -B(5196)-B(5198) -! JVS(4684) = Jac_FULL(1171,3721) - JVS(4684) = B(2330) -! JVS(4685) = Jac_FULL(1171,5250) - JVS(4685) = -B(5197) -! JVS(4686) = Jac_FULL(1171,5255) - JVS(4686) = B(2331) -! JVS(4687) = Jac_FULL(1172,1172) - JVS(4687) = -B(6670) -! JVS(4688) = Jac_FULL(1172,4111) - JVS(4688) = B(3068) -! JVS(4689) = Jac_FULL(1172,5250) - JVS(4689) = -B(6671) -! JVS(4690) = Jac_FULL(1172,5252) - JVS(4690) = B(3069) -! JVS(4691) = Jac_FULL(1173,1173) - JVS(4691) = -B(21161)-B(21162) -! JVS(4692) = Jac_FULL(1173,4984) - JVS(4692) = B(19621) -! JVS(4693) = Jac_FULL(1173,5250) - JVS(4693) = -B(21163) -! JVS(4694) = Jac_FULL(1173,5255) - JVS(4694) = B(19622) -! JVS(4695) = Jac_FULL(1174,1174) - JVS(4695) = -B(9559)-B(9561) -! JVS(4696) = Jac_FULL(1174,4635) - JVS(4696) = B(5896)+B(5907) -! JVS(4697) = Jac_FULL(1174,5250) - JVS(4697) = -B(9560) -! JVS(4698) = Jac_FULL(1174,5255) - JVS(4698) = B(5897) -! JVS(4699) = Jac_FULL(1175,1175) - JVS(4699) = -B(13144)-B(13146) -! JVS(4700) = Jac_FULL(1175,4846) - JVS(4700) = B(9669)+B(9680) -! JVS(4701) = Jac_FULL(1175,5250) - JVS(4701) = -B(13145) -! JVS(4702) = Jac_FULL(1175,5255) - JVS(4702) = B(9670) -! JVS(4703) = Jac_FULL(1176,1176) - JVS(4703) = -B(13462)-B(13464) -! JVS(4704) = Jac_FULL(1176,4628) - JVS(4704) = B(10261) -! JVS(4705) = Jac_FULL(1176,5250) - JVS(4705) = -B(13463) -! JVS(4706) = Jac_FULL(1176,5255) - JVS(4706) = B(10262) -! JVS(4707) = Jac_FULL(1177,1177) - JVS(4707) = -B(7207)-B(7208) -! JVS(4708) = Jac_FULL(1177,3836) - JVS(4708) = B(3385) -! JVS(4709) = Jac_FULL(1177,5250) - JVS(4709) = -B(7209) -! JVS(4710) = Jac_FULL(1177,5255) - JVS(4710) = B(3386) -! JVS(4711) = Jac_FULL(1178,1178) - JVS(4711) = -B(11379)-B(11381) -! JVS(4712) = Jac_FULL(1178,5041) - JVS(4712) = B(7535) -! JVS(4713) = Jac_FULL(1178,5250) - JVS(4713) = -B(11380) -! JVS(4714) = Jac_FULL(1178,5255) - JVS(4714) = B(7536) -! JVS(4715) = Jac_FULL(1179,1179) - JVS(4715) = -B(11705) -! JVS(4716) = Jac_FULL(1179,3893) - JVS(4716) = B(7995) -! JVS(4717) = Jac_FULL(1179,3932) - JVS(4717) = B(7984) -! JVS(4718) = Jac_FULL(1179,5250) - JVS(4718) = -B(11706) -! JVS(4719) = Jac_FULL(1180,1180) - JVS(4719) = -B(11882)-B(11883) -! JVS(4720) = Jac_FULL(1180,4515) - JVS(4720) = B(8138) -! JVS(4721) = Jac_FULL(1180,5250) - JVS(4721) = -B(11884) -! JVS(4722) = Jac_FULL(1180,5255) - JVS(4722) = B(8139) -! JVS(4723) = Jac_FULL(1181,1181) - JVS(4723) = -B(22565)-B(22567) -! JVS(4724) = Jac_FULL(1181,4098) - JVS(4724) = B(21965) -! JVS(4725) = Jac_FULL(1181,5250) - JVS(4725) = -B(22566) -! JVS(4726) = Jac_FULL(1181,5255) - JVS(4726) = B(21966) -! JVS(4727) = Jac_FULL(1182,1182) - JVS(4727) = -B(17196)-B(17198) -! JVS(4728) = Jac_FULL(1182,4921) - JVS(4728) = B(14573) -! JVS(4729) = Jac_FULL(1182,5250) - JVS(4729) = -B(17197) -! JVS(4730) = Jac_FULL(1182,5255) - JVS(4730) = B(14574) -! JVS(4731) = Jac_FULL(1183,1183) - JVS(4731) = -B(17339)-B(17341) -! JVS(4732) = Jac_FULL(1183,3886) - JVS(4732) = B(14744) -! JVS(4733) = Jac_FULL(1183,5250) - JVS(4733) = -B(17340) -! JVS(4734) = Jac_FULL(1183,5255) - JVS(4734) = B(14745) -! JVS(4735) = Jac_FULL(1184,1184) - JVS(4735) = -B(18724)-B(18726) -! JVS(4736) = Jac_FULL(1184,4208) - JVS(4736) = B(16494) -! JVS(4737) = Jac_FULL(1184,5250) - JVS(4737) = -B(18725) -! JVS(4738) = Jac_FULL(1184,5253) - JVS(4738) = B(16495) -! JVS(4739) = Jac_FULL(1185,1185) - JVS(4739) = -B(4359)-B(4361) -! JVS(4740) = Jac_FULL(1185,4695) - JVS(4740) = B(1577) -! JVS(4741) = Jac_FULL(1185,5250) - JVS(4741) = -B(4360) -! JVS(4742) = Jac_FULL(1185,5255) - JVS(4742) = B(1578) -! JVS(4743) = Jac_FULL(1186,1186) - JVS(4743) = -B(7383)-B(7385) -! JVS(4744) = Jac_FULL(1186,4185) - JVS(4744) = B(3490) -! JVS(4745) = Jac_FULL(1186,5250) - JVS(4745) = -B(7384) -! JVS(4746) = Jac_FULL(1186,5255) - JVS(4746) = B(3491) -! JVS(4747) = Jac_FULL(1187,1187) - JVS(4747) = -B(18561)-B(18563) -! JVS(4748) = Jac_FULL(1187,4317) - JVS(4748) = B(16247) -! JVS(4749) = Jac_FULL(1187,5250) - JVS(4749) = -B(18562) -! JVS(4750) = Jac_FULL(1187,5255) - JVS(4750) = B(16248) -! JVS(4751) = Jac_FULL(1188,1188) - JVS(4751) = -B(12876)-B(12878) -! JVS(4752) = Jac_FULL(1188,4016) - JVS(4752) = B(9392) -! JVS(4753) = Jac_FULL(1188,5250) - JVS(4753) = -B(12877) -! JVS(4754) = Jac_FULL(1188,5255) - JVS(4754) = B(9393) -! JVS(4755) = Jac_FULL(1189,1189) - JVS(4755) = -B(22395)-B(22397) -! JVS(4756) = Jac_FULL(1189,4624) - JVS(4756) = B(21776)+B(21788) -! JVS(4757) = Jac_FULL(1189,5250) - JVS(4757) = -B(22396) -! JVS(4758) = Jac_FULL(1189,5255) - JVS(4758) = B(21777) -! JVS(4759) = Jac_FULL(1190,1190) - JVS(4759) = -B(18294)-B(18296) -! JVS(4760) = Jac_FULL(1190,4225) - JVS(4760) = B(15834) -! JVS(4761) = Jac_FULL(1190,5250) - JVS(4761) = -B(18295) -! JVS(4762) = Jac_FULL(1190,5255) - JVS(4762) = B(15835) -! JVS(4763) = Jac_FULL(1191,1191) - JVS(4763) = -B(17691)-B(17692) -! JVS(4764) = Jac_FULL(1191,4697) - JVS(4764) = B(15119) -! JVS(4765) = Jac_FULL(1191,5250) - JVS(4765) = -B(17693) -! JVS(4766) = Jac_FULL(1191,5255) - JVS(4766) = B(15120) -! JVS(4767) = Jac_FULL(1192,1192) - JVS(4767) = -B(19872)-B(19874) -! JVS(4768) = Jac_FULL(1192,5059) - JVS(4768) = B(18046) -! JVS(4769) = Jac_FULL(1192,5250) - JVS(4769) = -B(19873) -! JVS(4770) = Jac_FULL(1192,5255) - JVS(4770) = B(18047) -! JVS(4771) = Jac_FULL(1193,1193) - JVS(4771) = -B(14192)-B(14193) -! JVS(4772) = Jac_FULL(1193,4836) - JVS(4772) = B(11000) -! JVS(4773) = Jac_FULL(1193,5250) - JVS(4773) = -B(14194) -! JVS(4774) = Jac_FULL(1193,5255) - JVS(4774) = B(11001) -! JVS(4775) = Jac_FULL(1194,1194) - JVS(4775) = -B(3850) -! JVS(4776) = Jac_FULL(1194,4562) - JVS(4776) = B(1104) -! JVS(4777) = Jac_FULL(1194,5043) - JVS(4777) = B(2210) -! JVS(4778) = Jac_FULL(1194,5250) - JVS(4778) = -B(3851) -! JVS(4779) = Jac_FULL(1195,1195) - JVS(4779) = -B(19529)-B(19531) -! JVS(4780) = Jac_FULL(1195,5114) - JVS(4780) = B(17376) -! JVS(4781) = Jac_FULL(1195,5250) - JVS(4781) = -B(19530) -! JVS(4782) = Jac_FULL(1195,5255) - JVS(4782) = B(17377) -! JVS(4783) = Jac_FULL(1196,1196) - JVS(4783) = -B(17862)-B(17863) -! JVS(4784) = Jac_FULL(1196,5088) - JVS(4784) = B(15265) -! JVS(4785) = Jac_FULL(1196,5250) - JVS(4785) = -B(17864) -! JVS(4786) = Jac_FULL(1196,5255) - JVS(4786) = B(15266) -! JVS(4787) = Jac_FULL(1197,1197) - JVS(4787) = -B(16946)-B(16948) -! JVS(4788) = Jac_FULL(1197,4173) - JVS(4788) = B(14340) -! JVS(4789) = Jac_FULL(1197,5250) - JVS(4789) = -B(16947) -! JVS(4790) = Jac_FULL(1197,5255) - JVS(4790) = B(14341) -! JVS(4791) = Jac_FULL(1198,1198) - JVS(4791) = -B(21275)-B(21276) -! JVS(4792) = Jac_FULL(1198,4417) - JVS(4792) = B(19861) -! JVS(4793) = Jac_FULL(1198,5250) - JVS(4793) = -B(21277) -! JVS(4794) = Jac_FULL(1198,5255) - JVS(4794) = B(19862) -! JVS(4795) = Jac_FULL(1199,1199) - JVS(4795) = -B(23165)-B(23167) -! JVS(4796) = Jac_FULL(1199,5245) - JVS(4796) = B(22721) -! JVS(4797) = Jac_FULL(1199,5250) - JVS(4797) = -B(23166) -! JVS(4798) = Jac_FULL(1199,5255) - JVS(4798) = B(22722) -! JVS(4799) = Jac_FULL(1200,1200) - JVS(4799) = -B(6431)-B(6433) -! JVS(4800) = Jac_FULL(1200,3817) - JVS(4800) = B(2920) -! JVS(4801) = Jac_FULL(1200,5250) - JVS(4801) = -B(6432) -! JVS(4802) = Jac_FULL(1200,5255) - JVS(4802) = B(2921) -! JVS(4803) = Jac_FULL(1201,1201) - JVS(4803) = -B(20566)-B(20567) -! JVS(4804) = Jac_FULL(1201,5171) - JVS(4804) = B(18980) -! JVS(4805) = Jac_FULL(1201,5250) - JVS(4805) = -B(20568) -! JVS(4806) = Jac_FULL(1201,5255) - JVS(4806) = B(18981) -! JVS(4807) = Jac_FULL(1202,1202) - JVS(4807) = -B(14883)-B(14885) -! JVS(4808) = Jac_FULL(1202,3784) - JVS(4808) = B(11549) -! JVS(4809) = Jac_FULL(1202,5250) - JVS(4809) = -B(14884) -! JVS(4810) = Jac_FULL(1202,5255) - JVS(4810) = B(11550) -! JVS(4811) = Jac_FULL(1203,1203) - JVS(4811) = -B(20696)-B(20698) -! JVS(4812) = Jac_FULL(1203,3761) - JVS(4812) = B(19110) -! JVS(4813) = Jac_FULL(1203,5250) - JVS(4813) = -B(20697) -! JVS(4814) = Jac_FULL(1203,5255) - JVS(4814) = B(19111) -! JVS(4815) = Jac_FULL(1204,1204) - JVS(4815) = -B(17524)-B(17525) -! JVS(4816) = Jac_FULL(1204,4735) - JVS(4816) = B(14962) -! JVS(4817) = Jac_FULL(1204,5250) - JVS(4817) = -B(17526) -! JVS(4818) = Jac_FULL(1204,5255) - JVS(4818) = B(14963) -! JVS(4819) = Jac_FULL(1205,1205) - JVS(4819) = -B(11221)-B(11223) -! JVS(4820) = Jac_FULL(1205,5236) - JVS(4820) = B(7431) -! JVS(4821) = Jac_FULL(1205,5250) - JVS(4821) = -B(11222) -! JVS(4822) = Jac_FULL(1205,5255) - JVS(4822) = B(7432) -! JVS(4823) = Jac_FULL(1206,1206) - JVS(4823) = -B(13265)-B(13267) -! JVS(4824) = Jac_FULL(1206,4198) - JVS(4824) = B(9920) -! JVS(4825) = Jac_FULL(1206,5250) - JVS(4825) = -B(13266) -! JVS(4826) = Jac_FULL(1206,5255) - JVS(4826) = B(9921) -! JVS(4827) = Jac_FULL(1207,1207) - JVS(4827) = -B(4710)-B(4711) -! JVS(4828) = Jac_FULL(1207,4099) - JVS(4828) = B(1889) -! JVS(4829) = Jac_FULL(1207,5250) - JVS(4829) = -B(4712) -! JVS(4830) = Jac_FULL(1207,5255) - JVS(4830) = B(1890) -! JVS(4831) = Jac_FULL(1208,1208) - JVS(4831) = -B(21630)-B(21632) -! JVS(4832) = Jac_FULL(1208,4222) - JVS(4832) = B(20556) -! JVS(4833) = Jac_FULL(1208,5250) - JVS(4833) = -B(21631) -! JVS(4834) = Jac_FULL(1208,5255) - JVS(4834) = B(20557) -! JVS(4835) = Jac_FULL(1209,1209) - JVS(4835) = -B(22833)-B(22835) -! JVS(4836) = Jac_FULL(1209,4496) - JVS(4836) = B(22331) -! JVS(4837) = Jac_FULL(1209,5250) - JVS(4837) = -B(22834) -! JVS(4838) = Jac_FULL(1209,5255) - JVS(4838) = B(22332) -! JVS(4839) = Jac_FULL(1210,1210) - JVS(4839) = -B(8684)-B(8686) -! JVS(4840) = Jac_FULL(1210,4649) - JVS(4840) = B(5215)+B(5227) -! JVS(4841) = Jac_FULL(1210,5250) - JVS(4841) = -B(8685) -! JVS(4842) = Jac_FULL(1210,5255) - JVS(4842) = B(5216) -! JVS(4843) = Jac_FULL(1211,1211) - JVS(4843) = -B(5700)-B(5702) -! JVS(4844) = Jac_FULL(1211,3811) - JVS(4844) = B(2570) -! JVS(4845) = Jac_FULL(1211,5250) - JVS(4845) = -B(5701) -! JVS(4846) = Jac_FULL(1211,5255) - JVS(4846) = B(2571) -! JVS(4847) = Jac_FULL(1212,1212) - JVS(4847) = -B(14085)-B(14087) -! JVS(4848) = Jac_FULL(1212,3926) - JVS(4848) = B(10887) -! JVS(4849) = Jac_FULL(1212,5250) - JVS(4849) = -B(14086) -! JVS(4850) = Jac_FULL(1212,5255) - JVS(4850) = B(10888) -! JVS(4851) = Jac_FULL(1213,1213) - JVS(4851) = -B(17631)-B(17632) -! JVS(4852) = Jac_FULL(1213,4128) - JVS(4852) = B(15068) -! JVS(4853) = Jac_FULL(1213,5250) - JVS(4853) = -B(17633) -! JVS(4854) = Jac_FULL(1213,5255) - JVS(4854) = B(15069) -! JVS(4855) = Jac_FULL(1214,1214) - JVS(4855) = -B(20700)-B(20702) -! JVS(4856) = Jac_FULL(1214,4580) - JVS(4856) = B(19117) -! JVS(4857) = Jac_FULL(1214,5250) - JVS(4857) = -B(20701) -! JVS(4858) = Jac_FULL(1214,5255) - JVS(4858) = B(19118) -! JVS(4859) = Jac_FULL(1215,1215) - JVS(4859) = -B(20293)-B(20295) -! JVS(4860) = Jac_FULL(1215,4750) - JVS(4860) = B(18688) -! JVS(4861) = Jac_FULL(1215,5250) - JVS(4861) = -B(20294) -! JVS(4862) = Jac_FULL(1215,5255) - JVS(4862) = B(18689) -! JVS(4863) = Jac_FULL(1216,1216) - JVS(4863) = -B(6434)-B(6436) -! JVS(4864) = Jac_FULL(1216,3817) - JVS(4864) = B(2922) -! JVS(4865) = Jac_FULL(1216,5250) - JVS(4865) = -B(6435) -! JVS(4866) = Jac_FULL(1216,5252) - JVS(4866) = B(2923) -! JVS(4867) = Jac_FULL(1217,1217) - JVS(4867) = -B(14171)-B(14173) -! JVS(4868) = Jac_FULL(1217,4318) - JVS(4868) = B(10975) -! JVS(4869) = Jac_FULL(1217,5250) - JVS(4869) = -B(14172) -! JVS(4870) = Jac_FULL(1217,5255) - JVS(4870) = B(10976) -! JVS(4871) = Jac_FULL(1218,1218) - JVS(4871) = -B(9838)-B(9840) -! JVS(4872) = Jac_FULL(1218,3648) - JVS(4872) = B(6133) -! JVS(4873) = Jac_FULL(1218,5250) - JVS(4873) = -B(9839) -! JVS(4874) = Jac_FULL(1218,5255) - JVS(4874) = B(6134) -! JVS(4875) = Jac_FULL(1219,1219) - JVS(4875) = -B(23917)-B(23919) -! JVS(4876) = Jac_FULL(1219,4520) - JVS(4876) = B(23782) -! JVS(4877) = Jac_FULL(1219,5250) - JVS(4877) = -B(23918) -! JVS(4878) = Jac_FULL(1219,5255) - JVS(4878) = B(23783) -! JVS(4879) = Jac_FULL(1220,1220) - JVS(4879) = -B(13568)-B(13570) -! JVS(4880) = Jac_FULL(1220,4578) - JVS(4880) = B(10379) -! JVS(4881) = Jac_FULL(1220,5250) - JVS(4881) = -B(13569) -! JVS(4882) = Jac_FULL(1220,5255) - JVS(4882) = B(10380) -! JVS(4883) = Jac_FULL(1221,1221) - JVS(4883) = -B(18312)-B(18314) -! JVS(4884) = Jac_FULL(1221,4036) - JVS(4884) = B(15848) -! JVS(4885) = Jac_FULL(1221,5250) - JVS(4885) = -B(18313) -! JVS(4886) = Jac_FULL(1221,5255) - JVS(4886) = B(15849) -! JVS(4887) = Jac_FULL(1222,1222) - JVS(4887) = -B(21566) -! JVS(4888) = Jac_FULL(1222,4753) - JVS(4888) = B(20350)+B(20362) -! JVS(4889) = Jac_FULL(1222,5250) - JVS(4889) = -B(21567) -! JVS(4890) = Jac_FULL(1222,5255) - JVS(4890) = B(20351) -! JVS(4891) = Jac_FULL(1223,1223) - JVS(4891) = -B(20235)-B(20237) -! JVS(4892) = Jac_FULL(1223,4434) - JVS(4892) = B(18613) -! JVS(4893) = Jac_FULL(1223,5250) - JVS(4893) = -B(20236) -! JVS(4894) = Jac_FULL(1223,5255) - JVS(4894) = B(18614) -! JVS(4895) = Jac_FULL(1224,1224) - JVS(4895) = -B(15984)-B(15986) -! JVS(4896) = Jac_FULL(1224,4165) - JVS(4896) = B(12901) -! JVS(4897) = Jac_FULL(1224,5250) - JVS(4897) = -B(15985) -! JVS(4898) = Jac_FULL(1224,5255) - JVS(4898) = B(12902) -! JVS(4899) = Jac_FULL(1225,1225) - JVS(4899) = -B(20660)-B(20662) -! JVS(4900) = Jac_FULL(1225,3668) - JVS(4900) = B(19080) -! JVS(4901) = Jac_FULL(1225,5250) - JVS(4901) = -B(20661) -! JVS(4902) = Jac_FULL(1225,5255) - JVS(4902) = B(19081) -! JVS(4903) = Jac_FULL(1226,1226) - JVS(4903) = -B(21262)-B(21263) -! JVS(4904) = Jac_FULL(1226,4450) - JVS(4904) = B(19831) -! JVS(4905) = Jac_FULL(1226,5250) - JVS(4905) = -B(21264) -! JVS(4906) = Jac_FULL(1226,5255) - JVS(4906) = B(19832) -! JVS(4907) = Jac_FULL(1227,1227) - JVS(4907) = -B(13067)-B(13069) -! JVS(4908) = Jac_FULL(1227,4037) - JVS(4908) = B(9629) -! JVS(4909) = Jac_FULL(1227,5250) - JVS(4909) = -B(13068) -! JVS(4910) = Jac_FULL(1227,5255) - JVS(4910) = B(9630) -! JVS(4911) = Jac_FULL(1228,1228) - JVS(4911) = -B(13211)-B(13213) -! JVS(4912) = Jac_FULL(1228,4181) - JVS(4912) = B(9801) -! JVS(4913) = Jac_FULL(1228,5250) - JVS(4913) = -B(13212) -! JVS(4914) = Jac_FULL(1228,5255) - JVS(4914) = B(9802) -! JVS(4915) = Jac_FULL(1229,1229) - JVS(4915) = -B(20424) -! JVS(4916) = Jac_FULL(1229,5075) - JVS(4916) = B(18833)+B(18847) -! JVS(4917) = Jac_FULL(1229,5250) - JVS(4917) = -B(20425) -! JVS(4918) = Jac_FULL(1229,5255) - JVS(4918) = B(18834) -! JVS(4919) = Jac_FULL(1230,1230) - JVS(4919) = -B(18118)-B(18120) -! JVS(4920) = Jac_FULL(1230,4022) - JVS(4920) = B(15528) -! JVS(4921) = Jac_FULL(1230,5250) - JVS(4921) = -B(18119) -! JVS(4922) = Jac_FULL(1230,5255) - JVS(4922) = B(15529) -! JVS(4923) = Jac_FULL(1231,244) - JVS(4923) = B(18482) -! JVS(4924) = Jac_FULL(1231,356) - JVS(4924) = B(16116) -! JVS(4925) = Jac_FULL(1231,1231) - JVS(4925) = -B(16114) -! JVS(4926) = Jac_FULL(1231,3380) - JVS(4926) = 0 -! JVS(4927) = Jac_FULL(1231,3762) - JVS(4927) = B(13026) -! JVS(4928) = Jac_FULL(1231,5250) - JVS(4928) = -B(16115)+B(16117)+B(18483) -! JVS(4929) = Jac_FULL(1232,1232) - JVS(4929) = -B(9506)-B(9508) -! JVS(4930) = Jac_FULL(1232,3539) - JVS(4930) = B(5857) -! JVS(4931) = Jac_FULL(1232,5250) - JVS(4931) = -B(9507) -! JVS(4932) = Jac_FULL(1232,5255) - JVS(4932) = B(5858) -! JVS(4933) = Jac_FULL(1233,1233) - JVS(4933) = -B(21012)-B(21014) -! JVS(4934) = Jac_FULL(1233,4431) - JVS(4934) = B(19452) -! JVS(4935) = Jac_FULL(1233,5250) - JVS(4935) = -B(21013) -! JVS(4936) = Jac_FULL(1233,5255) - JVS(4936) = B(19453) -! JVS(4937) = Jac_FULL(1234,1234) - JVS(4937) = -B(21199)-B(21200) -! JVS(4938) = Jac_FULL(1234,4874) - JVS(4938) = B(19727) -! JVS(4939) = Jac_FULL(1234,5250) - JVS(4939) = -B(21201) -! JVS(4940) = Jac_FULL(1234,5255) - JVS(4940) = B(19728) -! JVS(4941) = Jac_FULL(1235,1235) - JVS(4941) = -B(4800)-B(4801) -! JVS(4942) = Jac_FULL(1235,5181) - JVS(4942) = B(1975) -! JVS(4943) = Jac_FULL(1235,5250) - JVS(4943) = -B(4802) -! JVS(4944) = Jac_FULL(1235,5255) - JVS(4944) = B(1976) -! JVS(4945) = Jac_FULL(1236,1236) - JVS(4945) = -B(22151)-B(22152) -! JVS(4946) = Jac_FULL(1236,4468) - JVS(4946) = B(21146) -! JVS(4947) = Jac_FULL(1236,5250) - JVS(4947) = -B(22153) -! JVS(4948) = Jac_FULL(1236,5255) - JVS(4948) = B(21147) -! JVS(4949) = Jac_FULL(1237,1237) - JVS(4949) = -B(19309)-B(19311) -! JVS(4950) = Jac_FULL(1237,4197) - JVS(4950) = B(17086) -! JVS(4951) = Jac_FULL(1237,5250) - JVS(4951) = -B(19310) -! JVS(4952) = Jac_FULL(1237,5255) - JVS(4952) = B(17087) -! JVS(4953) = Jac_FULL(1238,1238) - JVS(4953) = -B(23491) -! JVS(4954) = Jac_FULL(1238,4812) - JVS(4954) = B(23123)+B(23135) -! JVS(4955) = Jac_FULL(1238,5250) - JVS(4955) = -B(23492) -! JVS(4956) = Jac_FULL(1238,5255) - JVS(4956) = B(23124) -! JVS(4957) = Jac_FULL(1239,1239) - JVS(4957) = -B(6940)-B(6942) -! JVS(4958) = Jac_FULL(1239,3637) - JVS(4958) = B(3159) -! JVS(4959) = Jac_FULL(1239,5250) - JVS(4959) = -B(6941) -! JVS(4960) = Jac_FULL(1239,5255) - JVS(4960) = B(3160) -! JVS(4961) = Jac_FULL(1240,1240) - JVS(4961) = -B(6583) -! JVS(4962) = Jac_FULL(1240,3866) - JVS(4962) = B(2991)+B(2993)+B(2995) -! JVS(4963) = Jac_FULL(1240,5252) - JVS(4963) = B(2992) -! JVS(4964) = Jac_FULL(1240,5256) - JVS(4964) = B(2994) -! JVS(4965) = Jac_FULL(1241,1241) - JVS(4965) = -B(7305)-B(7307) -! JVS(4966) = Jac_FULL(1241,4091) - JVS(4966) = B(3449) -! JVS(4967) = Jac_FULL(1241,5250) - JVS(4967) = -B(7306) -! JVS(4968) = Jac_FULL(1241,5255) - JVS(4968) = B(3450) -! JVS(4969) = Jac_FULL(1242,1242) - JVS(4969) = -B(16626) -! JVS(4970) = Jac_FULL(1242,5033) - JVS(4970) = B(13798)+B(13810) -! JVS(4971) = Jac_FULL(1242,5250) - JVS(4971) = -B(16627) -! JVS(4972) = Jac_FULL(1242,5255) - JVS(4972) = B(13799) -! JVS(4973) = Jac_FULL(1243,1243) - JVS(4973) = -B(15692)-B(15694) -! JVS(4974) = Jac_FULL(1243,4033) - JVS(4974) = B(12601) -! JVS(4975) = Jac_FULL(1243,5250) - JVS(4975) = -B(15693) -! JVS(4976) = Jac_FULL(1243,5255) - JVS(4976) = B(12602) -! JVS(4977) = Jac_FULL(1244,1244) - JVS(4977) = -B(21236)-B(21237) -! JVS(4978) = Jac_FULL(1244,4430) - JVS(4978) = B(19782) -! JVS(4979) = Jac_FULL(1244,5250) - JVS(4979) = -B(21238) -! JVS(4980) = Jac_FULL(1244,5255) - JVS(4980) = B(19783) -! JVS(4981) = Jac_FULL(1245,1245) - JVS(4981) = -B(21072)-B(21074) -! JVS(4982) = Jac_FULL(1245,4764) - JVS(4982) = B(19505) -! JVS(4983) = Jac_FULL(1245,5250) - JVS(4983) = -B(21073) -! JVS(4984) = Jac_FULL(1245,5255) - JVS(4984) = B(19506) -! JVS(4985) = Jac_FULL(1246,1246) - JVS(4985) = -B(13770) -! JVS(4986) = Jac_FULL(1246,4617) - JVS(4986) = B(10574)+B(10576)+B(10578) -! JVS(4987) = Jac_FULL(1246,5252) - JVS(4987) = B(10575) -! JVS(4988) = Jac_FULL(1246,5256) - JVS(4988) = B(10577) -! JVS(4989) = Jac_FULL(1247,1247) - JVS(4989) = -B(20904)-B(20906) -! JVS(4990) = Jac_FULL(1247,4638) - JVS(4990) = B(19340) -! JVS(4991) = Jac_FULL(1247,5250) - JVS(4991) = -B(20905) -! JVS(4992) = Jac_FULL(1247,5255) - JVS(4992) = B(19341) -! JVS(4993) = Jac_FULL(1248,1248) - JVS(4993) = -B(21317)-B(21319) -! JVS(4994) = Jac_FULL(1248,4472) - JVS(4994) = B(19928) -! JVS(4995) = Jac_FULL(1248,5250) - JVS(4995) = -B(21318) -! JVS(4996) = Jac_FULL(1248,5255) - JVS(4996) = B(19929) -! JVS(4997) = Jac_FULL(1249,1249) - JVS(4997) = -B(20312)-B(20313) -! JVS(4998) = Jac_FULL(1249,4548) - JVS(4998) = B(18729) -! JVS(4999) = Jac_FULL(1249,5250) - JVS(4999) = -B(20314) -! JVS(5000) = Jac_FULL(1249,5255) - JVS(5000) = B(18730) -! JVS(5001) = Jac_FULL(1250,1250) - JVS(5001) = -B(23026)-B(23028) -! JVS(5002) = Jac_FULL(1250,4681) - JVS(5002) = B(22594) -! JVS(5003) = Jac_FULL(1250,5250) - JVS(5003) = -B(23027) -! JVS(5004) = Jac_FULL(1250,5255) - JVS(5004) = B(22595) -! JVS(5005) = Jac_FULL(1251,1251) - JVS(5005) = -B(14541)-B(14543) -! JVS(5006) = Jac_FULL(1251,5099) - JVS(5006) = B(11263) -! JVS(5007) = Jac_FULL(1251,5250) - JVS(5007) = -B(14542) -! JVS(5008) = Jac_FULL(1251,5255) - JVS(5008) = B(11264) -! JVS(5009) = Jac_FULL(1252,1252) - JVS(5009) = -B(16181)-B(16183) -! JVS(5010) = Jac_FULL(1252,3725) - JVS(5010) = B(13113) -! JVS(5011) = Jac_FULL(1252,5250) - JVS(5011) = -B(16182) -! JVS(5012) = Jac_FULL(1252,5255) - JVS(5012) = B(13114) -! JVS(5013) = Jac_FULL(1253,1253) - JVS(5013) = -B(18327)-B(18329) -! JVS(5014) = Jac_FULL(1253,4246) - JVS(5014) = B(15871) -! JVS(5015) = Jac_FULL(1253,5250) - JVS(5015) = -B(18328) -! JVS(5016) = Jac_FULL(1253,5255) - JVS(5016) = B(15872) -! JVS(5017) = Jac_FULL(1254,1254) - JVS(5017) = -B(10069)-B(10071) -! JVS(5018) = Jac_FULL(1254,4633) - JVS(5018) = B(6364) -! JVS(5019) = Jac_FULL(1254,5250) - JVS(5019) = -B(10070) -! JVS(5020) = Jac_FULL(1254,5255) - JVS(5020) = B(6365) -! JVS(5021) = Jac_FULL(1255,1255) - JVS(5021) = -B(18247)-B(18249) -! JVS(5022) = Jac_FULL(1255,4303) - JVS(5022) = B(15767) -! JVS(5023) = Jac_FULL(1255,5250) - JVS(5023) = -B(18248) -! JVS(5024) = Jac_FULL(1255,5255) - JVS(5024) = B(15768) -! JVS(5025) = Jac_FULL(1256,1256) - JVS(5025) = -B(13459)-B(13461) -! JVS(5026) = Jac_FULL(1256,4628) - JVS(5026) = B(10259)+B(10270) -! JVS(5027) = Jac_FULL(1256,5250) - JVS(5027) = -B(13460) -! JVS(5028) = Jac_FULL(1256,5255) - JVS(5028) = B(10260) -! JVS(5029) = Jac_FULL(1257,368) - JVS(5029) = B(23862) -! JVS(5030) = Jac_FULL(1257,1257) - JVS(5030) = -B(23859)-B(23861) -! JVS(5031) = Jac_FULL(1257,1890) - JVS(5031) = B(23855) -! JVS(5032) = Jac_FULL(1257,4226) - JVS(5032) = B(23690) -! JVS(5033) = Jac_FULL(1257,5250) - JVS(5033) = B(23856)-B(23860)+B(23863) -! JVS(5034) = Jac_FULL(1258,1258) - JVS(5034) = -B(6694)-B(6695) -! JVS(5035) = Jac_FULL(1258,3634) - JVS(5035) = B(3088) -! JVS(5036) = Jac_FULL(1258,5250) - JVS(5036) = -B(6696) -! JVS(5037) = Jac_FULL(1258,5255) - JVS(5037) = B(3089) -! JVS(5038) = Jac_FULL(1259,1259) - JVS(5038) = -B(4752)-B(4753) -! JVS(5039) = Jac_FULL(1259,5112) - JVS(5039) = B(1931) -! JVS(5040) = Jac_FULL(1259,5250) - JVS(5040) = -B(4754) -! JVS(5041) = Jac_FULL(1259,5255) - JVS(5041) = B(1932) -! JVS(5042) = Jac_FULL(1260,1260) - JVS(5042) = -B(19248)-B(19250) -! JVS(5043) = Jac_FULL(1260,5196) - JVS(5043) = B(17043) -! JVS(5044) = Jac_FULL(1260,5250) - JVS(5044) = -B(19249) -! JVS(5045) = Jac_FULL(1260,5255) - JVS(5045) = B(17044) -! JVS(5046) = Jac_FULL(1261,1261) - JVS(5046) = -B(12258) -! JVS(5047) = Jac_FULL(1261,4433) - JVS(5047) = B(8570)+B(8582) -! JVS(5048) = Jac_FULL(1261,5250) - JVS(5048) = -B(12259) -! JVS(5049) = Jac_FULL(1261,5255) - JVS(5049) = B(8571) -! JVS(5050) = Jac_FULL(1262,1262) - JVS(5050) = -B(11835)-B(11836) -! JVS(5051) = Jac_FULL(1262,4880) - JVS(5051) = B(8103) -! JVS(5052) = Jac_FULL(1262,5250) - JVS(5052) = -B(11837) -! JVS(5053) = Jac_FULL(1262,5255) - JVS(5053) = B(8104) -! JVS(5054) = Jac_FULL(1263,1263) - JVS(5054) = -B(23553)-B(23555) -! JVS(5055) = Jac_FULL(1263,4157) - JVS(5055) = B(23253) -! JVS(5056) = Jac_FULL(1263,5250) - JVS(5056) = -B(23554) -! JVS(5057) = Jac_FULL(1263,5255) - JVS(5057) = B(23254) -! JVS(5058) = Jac_FULL(1264,1264) - JVS(5058) = -B(22893)-B(22895) -! JVS(5059) = Jac_FULL(1264,3715) - JVS(5059) = B(22427) -! JVS(5060) = Jac_FULL(1264,5250) - JVS(5060) = -B(22894) -! JVS(5061) = Jac_FULL(1264,5255) - JVS(5061) = B(22428) -! JVS(5062) = Jac_FULL(1265,1265) - JVS(5062) = -B(3833)-B(3834) -! JVS(5063) = Jac_FULL(1265,4844) - JVS(5063) = B(1086) -! JVS(5064) = Jac_FULL(1265,5250) - JVS(5064) = -B(3835) -! JVS(5065) = Jac_FULL(1265,5255) - JVS(5065) = B(1087) -! JVS(5066) = Jac_FULL(1266,1266) - JVS(5066) = -B(16996)-B(16998) -! JVS(5067) = Jac_FULL(1266,3981) - JVS(5067) = B(14374) -! JVS(5068) = Jac_FULL(1266,5250) - JVS(5068) = -B(16997) -! JVS(5069) = Jac_FULL(1266,5255) - JVS(5069) = B(14375) -! JVS(5070) = Jac_FULL(1267,1267) - JVS(5070) = -B(4686)-B(4687) -! JVS(5071) = Jac_FULL(1267,4766) - JVS(5071) = B(1867) -! JVS(5072) = Jac_FULL(1267,5250) - JVS(5072) = -B(4688) -! JVS(5073) = Jac_FULL(1267,5255) - JVS(5073) = B(1868) -! JVS(5074) = Jac_FULL(1268,1268) - JVS(5074) = -B(22179)-B(22180) -! JVS(5075) = Jac_FULL(1268,4435) - JVS(5075) = B(21216) -! JVS(5076) = Jac_FULL(1268,5250) - JVS(5076) = -B(22181) -! JVS(5077) = Jac_FULL(1268,5255) - JVS(5077) = B(21217) -! JVS(5078) = Jac_FULL(1269,1269) - JVS(5078) = -B(7915) -! JVS(5079) = Jac_FULL(1269,3448) - JVS(5079) = B(4271) -! JVS(5080) = Jac_FULL(1269,4330) - JVS(5080) = B(4280) -! JVS(5081) = Jac_FULL(1269,5250) - JVS(5081) = B(4272)+B(4281)-B(7916) -! JVS(5082) = Jac_FULL(1270,1270) - JVS(5082) = -B(6419)-B(6421) -! JVS(5083) = Jac_FULL(1270,3819) - JVS(5083) = B(2909) -! JVS(5084) = Jac_FULL(1270,5250) - JVS(5084) = -B(6420) -! JVS(5085) = Jac_FULL(1270,5255) - JVS(5085) = B(2910) -! JVS(5086) = Jac_FULL(1271,1271) - JVS(5086) = -B(22191)-B(22192) -! JVS(5087) = Jac_FULL(1271,4532) - JVS(5087) = B(21255) -! JVS(5088) = Jac_FULL(1271,5250) - JVS(5088) = -B(22193) -! JVS(5089) = Jac_FULL(1271,5255) - JVS(5089) = B(21256) -! JVS(5090) = Jac_FULL(1272,1272) - JVS(5090) = -B(21935)-B(21937) -! JVS(5091) = Jac_FULL(1272,3950) - JVS(5091) = B(20874) -! JVS(5092) = Jac_FULL(1272,5250) - JVS(5092) = -B(21936) -! JVS(5093) = Jac_FULL(1272,5255) - JVS(5093) = B(20875) -! JVS(5094) = Jac_FULL(1273,1273) - JVS(5094) = -B(20191)-B(20193) -! JVS(5095) = Jac_FULL(1273,4276) - JVS(5095) = B(18537) -! JVS(5096) = Jac_FULL(1273,5250) - JVS(5096) = -B(20192) -! JVS(5097) = Jac_FULL(1273,5255) - JVS(5097) = B(18538) -! JVS(5098) = Jac_FULL(1274,1274) - JVS(5098) = -B(10251)-B(10253) -! JVS(5099) = Jac_FULL(1274,4656) - JVS(5099) = B(6546) -! JVS(5100) = Jac_FULL(1274,5250) - JVS(5100) = -B(10252) -! JVS(5101) = Jac_FULL(1274,5255) - JVS(5101) = B(6547) -! JVS(5102) = Jac_FULL(1275,1275) - JVS(5102) = -B(21667)-B(21669) -! JVS(5103) = Jac_FULL(1275,4806) - JVS(5103) = B(20623) -! JVS(5104) = Jac_FULL(1275,5250) - JVS(5104) = -B(21668) -! JVS(5105) = Jac_FULL(1275,5255) - JVS(5105) = B(20624) -! JVS(5106) = Jac_FULL(1276,1276) - JVS(5106) = -B(5491)-B(5493) -! JVS(5107) = Jac_FULL(1276,4003) - JVS(5107) = B(2471) -! JVS(5108) = Jac_FULL(1276,5250) - JVS(5108) = -B(5492) -! JVS(5109) = Jac_FULL(1276,5255) - JVS(5109) = B(2472) -! JVS(5110) = Jac_FULL(1277,1277) - JVS(5110) = -B(20670)-B(20672) -! JVS(5111) = Jac_FULL(1277,5021) - JVS(5111) = B(19091) -! JVS(5112) = Jac_FULL(1277,5250) - JVS(5112) = -B(20671) -! JVS(5113) = Jac_FULL(1277,5255) - JVS(5113) = B(19092) -! JVS(5114) = Jac_FULL(1278,1278) - JVS(5114) = -B(20045)-B(20047) -! JVS(5115) = Jac_FULL(1278,4204) - JVS(5115) = B(18270) -! JVS(5116) = Jac_FULL(1278,5250) - JVS(5116) = -B(20046) -! JVS(5117) = Jac_FULL(1278,5255) - JVS(5117) = B(18271) -! JVS(5118) = Jac_FULL(1279,1279) - JVS(5118) = -B(19546)-B(19548) -! JVS(5119) = Jac_FULL(1279,4015) - JVS(5119) = B(17432) -! JVS(5120) = Jac_FULL(1279,5250) - JVS(5120) = -B(19547) -! JVS(5121) = Jac_FULL(1279,5255) - JVS(5121) = B(17433) -! JVS(5122) = Jac_FULL(1280,1280) - JVS(5122) = -B(6843) -! JVS(5123) = Jac_FULL(1280,5132) - JVS(5123) = B(3134) -! JVS(5124) = Jac_FULL(1280,5224) - JVS(5124) = B(6825) -! JVS(5125) = Jac_FULL(1280,5250) - JVS(5125) = -B(6844) -! JVS(5126) = Jac_FULL(1281,1281) - JVS(5126) = -B(11904)-B(11905) -! JVS(5127) = Jac_FULL(1281,4334) - JVS(5127) = B(8158) -! JVS(5128) = Jac_FULL(1281,5250) - JVS(5128) = -B(11906) -! JVS(5129) = Jac_FULL(1281,5255) - JVS(5129) = B(8159) -! JVS(5130) = Jac_FULL(1282,1282) - JVS(5130) = -B(12019)-B(12020) -! JVS(5131) = Jac_FULL(1282,3674) - JVS(5131) = B(8277) -! JVS(5132) = Jac_FULL(1282,5250) - JVS(5132) = -B(12021) -! JVS(5133) = Jac_FULL(1282,5255) - JVS(5133) = B(8278) -! JVS(5134) = Jac_FULL(1283,1283) - JVS(5134) = -B(12610)-B(12612) -! JVS(5135) = Jac_FULL(1283,4338) - JVS(5135) = B(9022) -! JVS(5136) = Jac_FULL(1283,5250) - JVS(5136) = -B(12611) -! JVS(5137) = Jac_FULL(1283,5255) - JVS(5137) = B(9023) -! JVS(5138) = Jac_FULL(1284,1284) - JVS(5138) = -B(16959)-B(16961) -! JVS(5139) = Jac_FULL(1284,3720) - JVS(5139) = B(14352) -! JVS(5140) = Jac_FULL(1284,5250) - JVS(5140) = -B(16960) -! JVS(5141) = Jac_FULL(1284,5252) - JVS(5141) = B(14353) -! JVS(5142) = Jac_FULL(1285,1285) - JVS(5142) = -B(10683)-B(10685) -! JVS(5143) = Jac_FULL(1285,4255) - JVS(5143) = B(6865) -! JVS(5144) = Jac_FULL(1285,5250) - JVS(5144) = -B(10684) -! JVS(5145) = Jac_FULL(1285,5255) - JVS(5145) = B(6866) -! JVS(5146) = Jac_FULL(1286,1286) - JVS(5146) = -B(17347)-B(17349) -! JVS(5147) = Jac_FULL(1286,4088) - JVS(5147) = B(14754) -! JVS(5148) = Jac_FULL(1286,5250) - JVS(5148) = -B(17348) -! JVS(5149) = Jac_FULL(1286,5255) - JVS(5149) = B(14755) -! JVS(5150) = Jac_FULL(1287,1287) - JVS(5150) = -B(5383)-B(5385) -! JVS(5151) = Jac_FULL(1287,3523) - JVS(5151) = B(2417) -! JVS(5152) = Jac_FULL(1287,5250) - JVS(5152) = -B(5384) -! JVS(5153) = Jac_FULL(1287,5255) - JVS(5153) = B(2418) -! JVS(5154) = Jac_FULL(1288,1288) - JVS(5154) = -B(4890)-B(4892) -! JVS(5155) = Jac_FULL(1288,4112) - JVS(5155) = B(2062) -! JVS(5156) = Jac_FULL(1288,5250) - JVS(5156) = -B(4891) -! JVS(5157) = Jac_FULL(1288,5255) - JVS(5157) = B(2063) -! JVS(5158) = Jac_FULL(1289,1289) - JVS(5158) = -B(10452)-B(10453) -! JVS(5159) = Jac_FULL(1289,5020) - JVS(5159) = B(6723) -! JVS(5160) = Jac_FULL(1289,5250) - JVS(5160) = -B(10454) -! JVS(5161) = Jac_FULL(1289,5255) - JVS(5161) = B(6724) -! JVS(5162) = Jac_FULL(1290,1290) - JVS(5162) = -B(11760)-B(11761) -! JVS(5163) = Jac_FULL(1290,4760) - JVS(5163) = B(8029) -! JVS(5164) = Jac_FULL(1290,5250) - JVS(5164) = -B(11762) -! JVS(5165) = Jac_FULL(1290,5255) - JVS(5165) = B(8030) -! JVS(5166) = Jac_FULL(1291,1291) - JVS(5166) = -B(17675)-B(17676) -! JVS(5167) = Jac_FULL(1291,4665) - JVS(5167) = B(15097) -! JVS(5168) = Jac_FULL(1291,5250) - JVS(5168) = -B(17677) -! JVS(5169) = Jac_FULL(1291,5255) - JVS(5169) = B(15098) -! JVS(5170) = Jac_FULL(1292,1292) - JVS(5170) = -B(14174)-B(14176) -! JVS(5171) = Jac_FULL(1292,4170) - JVS(5171) = B(10982) -! JVS(5172) = Jac_FULL(1292,5250) - JVS(5172) = -B(14175) -! JVS(5173) = Jac_FULL(1292,5255) - JVS(5173) = B(10983) -! JVS(5174) = Jac_FULL(1293,1293) - JVS(5174) = -B(18353)-B(18355) -! JVS(5175) = Jac_FULL(1293,4031) - JVS(5175) = B(15933) -! JVS(5176) = Jac_FULL(1293,5250) - JVS(5176) = -B(18354) -! JVS(5177) = Jac_FULL(1293,5255) - JVS(5177) = B(15934) -! JVS(5178) = Jac_FULL(1294,1294) - JVS(5178) = -B(15885)-B(15887) -! JVS(5179) = Jac_FULL(1294,4057) - JVS(5179) = B(12793) -! JVS(5180) = Jac_FULL(1294,5250) - JVS(5180) = -B(15886) -! JVS(5181) = Jac_FULL(1294,5255) - JVS(5181) = B(12794) -! JVS(5182) = Jac_FULL(1295,1295) - JVS(5182) = -B(23212)-B(23214) -! JVS(5183) = Jac_FULL(1295,3902) - JVS(5183) = B(22747) -! JVS(5184) = Jac_FULL(1295,5250) - JVS(5184) = -B(23213) -! JVS(5185) = Jac_FULL(1295,5255) - JVS(5185) = B(22748) -! JVS(5186) = Jac_FULL(1296,1296) - JVS(5186) = -B(9077)-B(9079) -! JVS(5187) = Jac_FULL(1296,4892) - JVS(5187) = B(5514) -! JVS(5188) = Jac_FULL(1296,5250) - JVS(5188) = -B(9078) -! JVS(5189) = Jac_FULL(1296,5255) - JVS(5189) = B(5515) -! JVS(5190) = Jac_FULL(1297,1297) - JVS(5190) = -B(7387) -! JVS(5191) = Jac_FULL(1297,4146) - JVS(5191) = B(3508) -! JVS(5192) = Jac_FULL(1297,4185) - JVS(5192) = B(3499) -! JVS(5193) = Jac_FULL(1297,5250) - JVS(5193) = -B(7388) -! JVS(5194) = Jac_FULL(1298,1298) - JVS(5194) = -B(4506)-B(4507) -! JVS(5195) = Jac_FULL(1298,5186) - JVS(5195) = B(1727) -! JVS(5196) = Jac_FULL(1298,5250) - JVS(5196) = -B(4508) -! JVS(5197) = Jac_FULL(1298,5255) - JVS(5197) = B(1728) -! JVS(5198) = Jac_FULL(1299,1299) - JVS(5198) = -B(10160)-B(10162) -! JVS(5199) = Jac_FULL(1299,4685) - JVS(5199) = B(6450) -! JVS(5200) = Jac_FULL(1299,5250) - JVS(5200) = -B(10161) -! JVS(5201) = Jac_FULL(1299,5255) - JVS(5201) = B(6451) -! JVS(5202) = Jac_FULL(1300,1300) - JVS(5202) = -B(4894)-B(4896) -! JVS(5203) = Jac_FULL(1300,4809) - JVS(5203) = B(2070) -! JVS(5204) = Jac_FULL(1300,5250) - JVS(5204) = -B(4895) -! JVS(5205) = Jac_FULL(1300,5255) - JVS(5205) = B(2071) -! JVS(5206) = Jac_FULL(1301,1301) - JVS(5206) = -B(21448)-B(21450) -! JVS(5207) = Jac_FULL(1301,3937) - JVS(5207) = B(20158) -! JVS(5208) = Jac_FULL(1301,5250) - JVS(5208) = -B(21449) -! JVS(5209) = Jac_FULL(1301,5255) - JVS(5209) = B(20159) -! JVS(5210) = Jac_FULL(1302,1302) - JVS(5210) = -B(4842)-B(4844) -! JVS(5211) = Jac_FULL(1302,4579) - JVS(5211) = B(2020) -! JVS(5212) = Jac_FULL(1302,5250) - JVS(5212) = -B(4843) -! JVS(5213) = Jac_FULL(1302,5255) - JVS(5213) = B(2021) -! JVS(5214) = Jac_FULL(1303,1303) - JVS(5214) = -B(12971)-B(12973) -! JVS(5215) = Jac_FULL(1303,4063) - JVS(5215) = B(9499) -! JVS(5216) = Jac_FULL(1303,5250) - JVS(5216) = -B(12972) -! JVS(5217) = Jac_FULL(1303,5255) - JVS(5217) = B(9500) -! JVS(5218) = Jac_FULL(1304,1304) - JVS(5218) = -B(12105)-B(12106) -! JVS(5219) = Jac_FULL(1304,3731) - JVS(5219) = B(8360) -! JVS(5220) = Jac_FULL(1304,5250) - JVS(5220) = -B(12107) -! JVS(5221) = Jac_FULL(1304,5255) - JVS(5221) = B(8361) -! JVS(5222) = Jac_FULL(1305,1305) - JVS(5222) = -B(6968)-B(6970) -! JVS(5223) = Jac_FULL(1305,4609) - JVS(5223) = B(3185) -! JVS(5224) = Jac_FULL(1305,5250) - JVS(5224) = -B(6969) -! JVS(5225) = Jac_FULL(1305,5255) - JVS(5225) = B(3186) -! JVS(5226) = Jac_FULL(1306,1306) - JVS(5226) = -B(10696)-B(10698) -! JVS(5227) = Jac_FULL(1306,3865) - JVS(5227) = B(6883) -! JVS(5228) = Jac_FULL(1306,5250) - JVS(5228) = -B(10697) -! JVS(5229) = Jac_FULL(1306,5255) - JVS(5229) = B(6884) -! JVS(5230) = Jac_FULL(1307,1307) - JVS(5230) = -B(5329)-B(5331) -! JVS(5231) = Jac_FULL(1307,3823) - JVS(5231) = B(2396) -! JVS(5232) = Jac_FULL(1307,5250) - JVS(5232) = -B(5330) -! JVS(5233) = Jac_FULL(1307,5255) - JVS(5233) = B(2397) -! JVS(5234) = Jac_FULL(1308,1308) - JVS(5234) = -B(18438)-B(18440) -! JVS(5235) = Jac_FULL(1308,4021) - JVS(5235) = B(16046) -! JVS(5236) = Jac_FULL(1308,5250) - JVS(5236) = -B(18439) -! JVS(5237) = Jac_FULL(1308,5255) - JVS(5237) = B(16047) -! JVS(5238) = Jac_FULL(1309,1309) - JVS(5238) = -B(20098)-B(20100) -! JVS(5239) = Jac_FULL(1309,4511) - JVS(5239) = B(18357) -! JVS(5240) = Jac_FULL(1309,5250) - JVS(5240) = -B(20099) -! JVS(5241) = Jac_FULL(1309,5255) - JVS(5241) = B(18358) -! JVS(5242) = Jac_FULL(1310,1310) - JVS(5242) = -B(6110)-B(6112) -! JVS(5243) = Jac_FULL(1310,4055) - JVS(5243) = B(2772) -! JVS(5244) = Jac_FULL(1310,5250) - JVS(5244) = -B(6111) -! JVS(5245) = Jac_FULL(1310,5255) - JVS(5245) = B(2773) -! JVS(5246) = Jac_FULL(1311,1311) - JVS(5246) = -B(16941) -! JVS(5247) = Jac_FULL(1311,4092) - JVS(5247) = B(14317) -! JVS(5248) = Jac_FULL(1311,5250) - JVS(5248) = -B(16942) -! JVS(5249) = Jac_FULL(1311,5252) - JVS(5249) = B(14318) -! JVS(5250) = Jac_FULL(1312,1312) - JVS(5250) = -B(22413)-B(22415) -! JVS(5251) = Jac_FULL(1312,4350) - JVS(5251) = B(21795) -! JVS(5252) = Jac_FULL(1312,5250) - JVS(5252) = -B(22414) -! JVS(5253) = Jac_FULL(1312,5255) - JVS(5253) = B(21796) -! JVS(5254) = Jac_FULL(1313,1313) - JVS(5254) = -B(7223)-B(7225) -! JVS(5255) = Jac_FULL(1313,5081) - JVS(5255) = B(3396) -! JVS(5256) = Jac_FULL(1313,5250) - JVS(5256) = -B(7224) -! JVS(5257) = Jac_FULL(1313,5255) - JVS(5257) = B(3397) -! JVS(5258) = Jac_FULL(1314,1314) - JVS(5258) = -B(14623)-B(14625) -! JVS(5259) = Jac_FULL(1314,3883) - JVS(5259) = B(11298) -! JVS(5260) = Jac_FULL(1314,5250) - JVS(5260) = -B(14624) -! JVS(5261) = Jac_FULL(1314,5255) - JVS(5261) = B(11299) -! JVS(5262) = Jac_FULL(1315,1315) - JVS(5262) = -B(5753)-B(5755) -! JVS(5263) = Jac_FULL(1315,3807) - JVS(5263) = B(2591) -! JVS(5264) = Jac_FULL(1315,5250) - JVS(5264) = -B(5754) -! JVS(5265) = Jac_FULL(1315,5255) - JVS(5265) = B(2592) -! JVS(5266) = Jac_FULL(1316,1316) - JVS(5266) = -B(8854)-B(8856) -! JVS(5267) = Jac_FULL(1316,4626) - JVS(5267) = B(5347)+B(5358) -! JVS(5268) = Jac_FULL(1316,5250) - JVS(5268) = -B(8855) -! JVS(5269) = Jac_FULL(1316,5255) - JVS(5269) = B(5348) -! JVS(5270) = Jac_FULL(1317,1317) - JVS(5270) = -B(20929)-B(20931) -! JVS(5271) = Jac_FULL(1317,5006) - JVS(5271) = B(19363) -! JVS(5272) = Jac_FULL(1317,5250) - JVS(5272) = -B(20930) -! JVS(5273) = Jac_FULL(1317,5255) - JVS(5273) = B(19364) -! JVS(5274) = Jac_FULL(1318,1318) - JVS(5274) = -B(17134)-B(17136) -! JVS(5275) = Jac_FULL(1318,4781) - JVS(5275) = B(14495) -! JVS(5276) = Jac_FULL(1318,5250) - JVS(5276) = -B(17135) -! JVS(5277) = Jac_FULL(1318,5255) - JVS(5277) = B(14496) -! JVS(5278) = Jac_FULL(1319,1319) - JVS(5278) = -B(19047)-B(19048) -! JVS(5279) = Jac_FULL(1319,5214) - JVS(5279) = B(16844) -! JVS(5280) = Jac_FULL(1319,5250) - JVS(5280) = -B(19049) -! JVS(5281) = Jac_FULL(1319,5255) - JVS(5281) = B(16845) -! JVS(5282) = Jac_FULL(1320,1320) - JVS(5282) = -B(21648)-B(21650) -! JVS(5283) = Jac_FULL(1320,5004) - JVS(5283) = B(20598) -! JVS(5284) = Jac_FULL(1320,5250) - JVS(5284) = -B(21649) -! JVS(5285) = Jac_FULL(1320,5255) - JVS(5285) = B(20599) -! JVS(5286) = Jac_FULL(1321,1321) - JVS(5286) = -B(18998) -! JVS(5287) = Jac_FULL(1321,4348) - JVS(5287) = B(16789) -! JVS(5288) = Jac_FULL(1321,5250) - JVS(5288) = -B(18999) -! JVS(5289) = Jac_FULL(1321,5252) - JVS(5289) = B(16790) -! JVS(5290) = Jac_FULL(1322,1322) - JVS(5290) = -B(18125)-B(18127) -! JVS(5291) = Jac_FULL(1322,4217) - JVS(5291) = B(15542) -! JVS(5292) = Jac_FULL(1322,5250) - JVS(5292) = -B(18126) -! JVS(5293) = Jac_FULL(1322,5255) - JVS(5293) = B(15543) -! JVS(5294) = Jac_FULL(1323,1323) - JVS(5294) = -B(17646)-B(17647) -! JVS(5295) = Jac_FULL(1323,4704) - JVS(5295) = B(15079) -! JVS(5296) = Jac_FULL(1323,5250) - JVS(5296) = -B(17648) -! JVS(5297) = Jac_FULL(1323,5255) - JVS(5297) = B(15080) -! JVS(5298) = Jac_FULL(1324,1324) - JVS(5298) = -B(16921)-B(16923) -! JVS(5299) = Jac_FULL(1324,3741) - JVS(5299) = B(14289) -! JVS(5300) = Jac_FULL(1324,5250) - JVS(5300) = -B(16922) -! JVS(5301) = Jac_FULL(1324,5255) - JVS(5301) = B(14290) -! JVS(5302) = Jac_FULL(1325,1325) - JVS(5302) = -B(17109)-B(17111) -! JVS(5303) = Jac_FULL(1325,4953) - JVS(5303) = B(14458) -! JVS(5304) = Jac_FULL(1325,5250) - JVS(5304) = -B(17110) -! JVS(5305) = Jac_FULL(1325,5255) - JVS(5305) = B(14459) -! JVS(5306) = Jac_FULL(1326,1326) - JVS(5306) = -B(12010)-B(12011) -! JVS(5307) = Jac_FULL(1326,4722) - JVS(5307) = B(8267) -! JVS(5308) = Jac_FULL(1326,5250) - JVS(5308) = -B(12012) -! JVS(5309) = Jac_FULL(1326,5255) - JVS(5309) = B(8268) -! JVS(5310) = Jac_FULL(1327,1327) - JVS(5310) = -B(17617)-B(17618) -! JVS(5311) = Jac_FULL(1327,4517) - JVS(5311) = B(15043) -! JVS(5312) = Jac_FULL(1327,5250) - JVS(5312) = -B(17619) -! JVS(5313) = Jac_FULL(1327,5255) - JVS(5313) = B(15044) -! JVS(5314) = Jac_FULL(1328,1328) - JVS(5314) = -B(23511)-B(23513) -! JVS(5315) = Jac_FULL(1328,3841) - JVS(5315) = B(23168) -! JVS(5316) = Jac_FULL(1328,5250) - JVS(5316) = -B(23512) -! JVS(5317) = Jac_FULL(1328,5255) - JVS(5317) = B(23169) -! JVS(5318) = Jac_FULL(1329,1329) - JVS(5318) = -B(18386)-B(18388) -! JVS(5319) = Jac_FULL(1329,4237) - JVS(5319) = B(15967) -! JVS(5320) = Jac_FULL(1329,5250) - JVS(5320) = -B(18387) -! JVS(5321) = Jac_FULL(1329,5255) - JVS(5321) = B(15968) -! JVS(5322) = Jac_FULL(1330,1330) - JVS(5322) = -B(10157)-B(10159) -! JVS(5323) = Jac_FULL(1330,4685) - JVS(5323) = B(6448)+B(6459) -! JVS(5324) = Jac_FULL(1330,5250) - JVS(5324) = -B(10158) -! JVS(5325) = Jac_FULL(1330,5255) - JVS(5325) = B(6449) -! JVS(5326) = Jac_FULL(1331,1331) - JVS(5326) = -B(22068)-B(22070) -! JVS(5327) = Jac_FULL(1331,4748) - JVS(5327) = B(21048) -! JVS(5328) = Jac_FULL(1331,5250) - JVS(5328) = -B(22069) -! JVS(5329) = Jac_FULL(1331,5255) - JVS(5329) = B(21049) -! JVS(5330) = Jac_FULL(1332,1332) - JVS(5330) = -B(4192)-B(4194) -! JVS(5331) = Jac_FULL(1332,4944) - JVS(5331) = B(1413) -! JVS(5332) = Jac_FULL(1332,5250) - JVS(5332) = -B(4193) -! JVS(5333) = Jac_FULL(1332,5255) - JVS(5333) = B(1414) -! JVS(5334) = Jac_FULL(1333,1333) - JVS(5334) = -B(22125)-B(22127) -! JVS(5335) = Jac_FULL(1333,3951) - JVS(5335) = B(21109) -! JVS(5336) = Jac_FULL(1333,5250) - JVS(5336) = -B(22126) -! JVS(5337) = Jac_FULL(1333,5255) - JVS(5337) = B(21110) -! JVS(5338) = Jac_FULL(1334,1334) - JVS(5338) = -B(17390) -! JVS(5339) = Jac_FULL(1334,3920) - JVS(5339) = B(14820) -! JVS(5340) = Jac_FULL(1334,5250) - JVS(5340) = -B(17391) -! JVS(5341) = Jac_FULL(1334,5252) - JVS(5341) = B(14821) -! JVS(5342) = Jac_FULL(1335,1335) - JVS(5342) = -B(21452)-B(21454) -! JVS(5343) = Jac_FULL(1335,3746) - JVS(5343) = B(20165) -! JVS(5344) = Jac_FULL(1335,5250) - JVS(5344) = -B(21453) -! JVS(5345) = Jac_FULL(1335,5255) - JVS(5345) = B(20166) -! JVS(5346) = Jac_FULL(1336,1336) - JVS(5346) = -B(22621)-B(22623) -! JVS(5347) = Jac_FULL(1336,4652) - JVS(5347) = B(22013) -! JVS(5348) = Jac_FULL(1336,5250) - JVS(5348) = -B(22622) -! JVS(5349) = Jac_FULL(1336,5255) - JVS(5349) = B(22014) -! JVS(5350) = Jac_FULL(1337,1337) - JVS(5350) = -B(14118)-B(14119) -! JVS(5351) = Jac_FULL(1337,4646) - JVS(5351) = B(10921) -! JVS(5352) = Jac_FULL(1337,5250) - JVS(5352) = -B(14120) -! JVS(5353) = Jac_FULL(1337,5255) - JVS(5353) = B(10922) -! JVS(5354) = Jac_FULL(1338,1338) - JVS(5354) = -B(22195)-B(22196) -! JVS(5355) = Jac_FULL(1338,4429) - JVS(5355) = B(21268) -! JVS(5356) = Jac_FULL(1338,5250) - JVS(5356) = -B(22197) -! JVS(5357) = Jac_FULL(1338,5255) - JVS(5357) = B(21269) -! JVS(5358) = Jac_FULL(1339,1339) - JVS(5358) = -B(23417)-B(23419) -! JVS(5359) = Jac_FULL(1339,3743) - JVS(5359) = B(23029) -! JVS(5360) = Jac_FULL(1339,5250) - JVS(5360) = -B(23418) -! JVS(5361) = Jac_FULL(1339,5255) - JVS(5361) = B(23030) -! JVS(5362) = Jac_FULL(1340,1340) - JVS(5362) = -B(11868)-B(11869) -! JVS(5363) = Jac_FULL(1340,3989) - JVS(5363) = B(8125) -! JVS(5364) = Jac_FULL(1340,5250) - JVS(5364) = -B(11870) -! JVS(5365) = Jac_FULL(1340,5255) - JVS(5365) = B(8126) -! JVS(5366) = Jac_FULL(1341,1341) - JVS(5366) = -B(5294)-B(5296) -! JVS(5367) = Jac_FULL(1341,3776) - JVS(5367) = B(2373) -! JVS(5368) = Jac_FULL(1341,5250) - JVS(5368) = -B(5295) -! JVS(5369) = Jac_FULL(1341,5255) - JVS(5369) = B(2374) -! JVS(5370) = Jac_FULL(1342,1342) - JVS(5370) = -B(20015)-B(20017) -! JVS(5371) = Jac_FULL(1342,4498) - JVS(5371) = B(18220) -! JVS(5372) = Jac_FULL(1342,5250) - JVS(5372) = -B(20016) -! JVS(5373) = Jac_FULL(1342,5255) - JVS(5373) = B(18221) -! JVS(5374) = Jac_FULL(1343,1343) - JVS(5374) = -B(8933)-B(8935) -! JVS(5375) = Jac_FULL(1343,4833) - JVS(5375) = B(5414)+B(5425) -! JVS(5376) = Jac_FULL(1343,5250) - JVS(5376) = -B(8934) -! JVS(5377) = Jac_FULL(1343,5255) - JVS(5377) = B(5415) -! JVS(5378) = Jac_FULL(1344,1344) - JVS(5378) = -B(23576)-B(23578) -! JVS(5379) = Jac_FULL(1344,4854) - JVS(5379) = B(23284)+B(23296) -! JVS(5380) = Jac_FULL(1344,5250) - JVS(5380) = -B(23577) -! JVS(5381) = Jac_FULL(1344,5255) - JVS(5381) = B(23285) -! JVS(5382) = Jac_FULL(1345,1345) - JVS(5382) = -B(16170)-B(16172) -! JVS(5383) = Jac_FULL(1345,3975) - JVS(5383) = B(13095) -! JVS(5384) = Jac_FULL(1345,5250) - JVS(5384) = -B(16171) -! JVS(5385) = Jac_FULL(1345,5255) - JVS(5385) = B(13096) -! JVS(5386) = Jac_FULL(1346,1346) - JVS(5386) = -B(13670) -! JVS(5387) = Jac_FULL(1346,4758) - JVS(5387) = B(10505)+B(10507)+B(10509) -! JVS(5388) = Jac_FULL(1346,5252) - JVS(5388) = B(10506) -! JVS(5389) = Jac_FULL(1346,5256) - JVS(5389) = B(10508) -! JVS(5390) = Jac_FULL(1347,1347) - JVS(5390) = -B(23821)-B(23823) -! JVS(5391) = Jac_FULL(1347,5054) - JVS(5391) = B(23634) -! JVS(5392) = Jac_FULL(1347,5250) - JVS(5392) = -B(23822) -! JVS(5393) = Jac_FULL(1347,5255) - JVS(5393) = B(23635) -! JVS(5394) = Jac_FULL(1348,1348) - JVS(5394) = -B(22465)-B(22467) -! JVS(5395) = Jac_FULL(1348,4659) - JVS(5395) = B(21844) -! JVS(5396) = Jac_FULL(1348,5250) - JVS(5396) = -B(22466) -! JVS(5397) = Jac_FULL(1348,5255) - JVS(5397) = B(21845) -! JVS(5398) = Jac_FULL(1349,1349) - JVS(5398) = -B(12123)-B(12124) -! JVS(5399) = Jac_FULL(1349,3690) - JVS(5399) = B(8378) -! JVS(5400) = Jac_FULL(1349,5250) - JVS(5400) = -B(12125) -! JVS(5401) = Jac_FULL(1349,5255) - JVS(5401) = B(8379) -! JVS(5402) = Jac_FULL(1350,1350) - JVS(5402) = -B(21872)-B(21874) -! JVS(5403) = Jac_FULL(1350,5073) - JVS(5403) = B(20823) -! JVS(5404) = Jac_FULL(1350,5250) - JVS(5404) = -B(21873) -! JVS(5405) = Jac_FULL(1350,5255) - JVS(5405) = B(20824) -! JVS(5406) = Jac_FULL(1351,1351) - JVS(5406) = -B(19232)-B(19234) -! JVS(5407) = Jac_FULL(1351,4987) - JVS(5407) = B(17021) -! JVS(5408) = Jac_FULL(1351,5250) - JVS(5408) = -B(19233) -! JVS(5409) = Jac_FULL(1351,5255) - JVS(5409) = B(17022) -! JVS(5410) = Jac_FULL(1352,1352) - JVS(5410) = -B(6649)-B(6650) -! JVS(5411) = Jac_FULL(1352,3670) - JVS(5411) = B(3055) -! JVS(5412) = Jac_FULL(1352,5250) - JVS(5412) = -B(6651) -! JVS(5413) = Jac_FULL(1352,5255) - JVS(5413) = B(3056) -! JVS(5414) = Jac_FULL(1353,1353) - JVS(5414) = -B(16887)-B(16889) -! JVS(5415) = Jac_FULL(1353,3955) - JVS(5415) = B(14244) -! JVS(5416) = Jac_FULL(1353,5250) - JVS(5416) = -B(16888) -! JVS(5417) = Jac_FULL(1353,5255) - JVS(5417) = B(14245) -! JVS(5418) = Jac_FULL(1354,1354) - JVS(5418) = -B(9074)-B(9076) -! JVS(5419) = Jac_FULL(1354,4892) - JVS(5419) = B(5512)+B(5523) -! JVS(5420) = Jac_FULL(1354,5250) - JVS(5420) = -B(9075) -! JVS(5421) = Jac_FULL(1354,5255) - JVS(5421) = B(5513) -! JVS(5422) = Jac_FULL(1355,1355) - JVS(5422) = -B(13054)-B(13056) -! JVS(5423) = Jac_FULL(1355,4375) - JVS(5423) = B(9607) -! JVS(5424) = Jac_FULL(1355,5250) - JVS(5424) = -B(13055) -! JVS(5425) = Jac_FULL(1355,5255) - JVS(5425) = B(9608) -! JVS(5426) = Jac_FULL(1356,1356) - JVS(5426) = -B(12367)-B(12369) -! JVS(5427) = Jac_FULL(1356,4822) - JVS(5427) = B(8695)+B(8706) -! JVS(5428) = Jac_FULL(1356,5250) - JVS(5428) = -B(12368) -! JVS(5429) = Jac_FULL(1356,5255) - JVS(5429) = B(8696) -! JVS(5430) = Jac_FULL(1357,1357) - JVS(5430) = -B(23227)-B(23229) -! JVS(5431) = Jac_FULL(1357,4482) - JVS(5431) = B(22780) -! JVS(5432) = Jac_FULL(1357,5250) - JVS(5432) = -B(23228) -! JVS(5433) = Jac_FULL(1357,5255) - JVS(5433) = B(22781) -! JVS(5434) = Jac_FULL(1358,1358) - JVS(5434) = -B(18609)-B(18611) -! JVS(5435) = Jac_FULL(1358,4314) - JVS(5435) = B(16300) -! JVS(5436) = Jac_FULL(1358,5250) - JVS(5436) = -B(18610) -! JVS(5437) = Jac_FULL(1358,5255) - JVS(5437) = B(16301) -! JVS(5438) = Jac_FULL(1359,1359) - JVS(5438) = -B(18445)-B(18447) -! JVS(5439) = Jac_FULL(1359,3983) - JVS(5439) = B(16060) -! JVS(5440) = Jac_FULL(1359,5250) - JVS(5440) = -B(18446) -! JVS(5441) = Jac_FULL(1359,5255) - JVS(5441) = B(16061) -! JVS(5442) = Jac_FULL(1360,1360) - JVS(5442) = -B(21642)-B(21644) -! JVS(5443) = Jac_FULL(1360,4191) - JVS(5443) = B(20583) -! JVS(5444) = Jac_FULL(1360,5250) - JVS(5444) = -B(21643) -! JVS(5445) = Jac_FULL(1360,5255) - JVS(5445) = B(20584) -! JVS(5446) = Jac_FULL(1361,1361) - JVS(5446) = -B(16160)-B(16162) -! JVS(5447) = Jac_FULL(1361,4023) - JVS(5447) = B(13074) -! JVS(5448) = Jac_FULL(1361,5250) - JVS(5448) = -B(16161) -! JVS(5449) = Jac_FULL(1361,5255) - JVS(5449) = B(13075) -! JVS(5450) = Jac_FULL(1362,1362) - JVS(5450) = -B(7320)-B(7322) -! JVS(5451) = Jac_FULL(1362,3806) - JVS(5451) = B(3467) -! JVS(5452) = Jac_FULL(1362,5250) - JVS(5452) = -B(7321) -! JVS(5453) = Jac_FULL(1362,5255) - JVS(5453) = B(3468) -! JVS(5454) = Jac_FULL(1363,1363) - JVS(5454) = -B(12219) -! JVS(5455) = Jac_FULL(1363,4470) - JVS(5455) = B(8501)+B(8512) -! JVS(5456) = Jac_FULL(1363,5250) - JVS(5456) = -B(12220) -! JVS(5457) = Jac_FULL(1363,5255) - JVS(5457) = B(8502) -! JVS(5458) = Jac_FULL(1364,1364) - JVS(5458) = -B(10661)-B(10663) -! JVS(5459) = Jac_FULL(1364,4337) - JVS(5459) = B(6845) -! JVS(5460) = Jac_FULL(1364,5250) - JVS(5460) = -B(10662) -! JVS(5461) = Jac_FULL(1364,5255) - JVS(5461) = B(6846) -! JVS(5462) = Jac_FULL(1365,1365) - JVS(5462) = -B(6618)-B(6619) -! JVS(5463) = Jac_FULL(1365,3658) - JVS(5463) = B(3037) -! JVS(5464) = Jac_FULL(1365,5250) - JVS(5464) = -B(6620) -! JVS(5465) = Jac_FULL(1365,5255) - JVS(5465) = B(3038) -! JVS(5466) = Jac_FULL(1366,1366) - JVS(5466) = -B(18277)-B(18279) -! JVS(5467) = Jac_FULL(1366,4039) - JVS(5467) = B(15805) -! JVS(5468) = Jac_FULL(1366,5250) - JVS(5468) = -B(18278) -! JVS(5469) = Jac_FULL(1366,5255) - JVS(5469) = B(15806) -! JVS(5470) = Jac_FULL(1367,1367) - JVS(5470) = -B(20737)-B(20739) -! JVS(5471) = Jac_FULL(1367,4119) - JVS(5471) = B(19141) -! JVS(5472) = Jac_FULL(1367,5250) - JVS(5472) = -B(20738) -! JVS(5473) = Jac_FULL(1367,5255) - JVS(5473) = B(19142) -! JVS(5474) = Jac_FULL(1368,1368) - JVS(5474) = -B(13268)-B(13270) -! JVS(5475) = Jac_FULL(1368,4198) - JVS(5475) = B(9924) -! JVS(5476) = Jac_FULL(1368,5250) - JVS(5476) = -B(13269) -! JVS(5477) = Jac_FULL(1368,5253) - JVS(5477) = B(9925) -! JVS(5478) = Jac_FULL(1369,1369) - JVS(5478) = -B(3718) -! JVS(5479) = Jac_FULL(1369,5060) - JVS(5479) = B(1007) -! JVS(5480) = Jac_FULL(1369,5129) - JVS(5480) = B(1028) -! JVS(5481) = Jac_FULL(1369,5250) - JVS(5481) = -B(3719) -! JVS(5482) = Jac_FULL(1370,1370) - JVS(5482) = -B(9910)-B(9912) -! JVS(5483) = Jac_FULL(1370,4654) - JVS(5483) = B(6212) -! JVS(5484) = Jac_FULL(1370,5250) - JVS(5484) = -B(9911) -! JVS(5485) = Jac_FULL(1370,5255) - JVS(5485) = B(6213) -! JVS(5486) = Jac_FULL(1371,1371) - JVS(5486) = -B(17054)-B(17056) -! JVS(5487) = Jac_FULL(1371,3850) - JVS(5487) = B(14417) -! JVS(5488) = Jac_FULL(1371,5250) - JVS(5488) = -B(17055) -! JVS(5489) = Jac_FULL(1371,5255) - JVS(5489) = B(14418) -! JVS(5490) = Jac_FULL(1372,440) - JVS(5490) = B(17252) -! JVS(5491) = Jac_FULL(1372,1372) - JVS(5491) = -B(17250) -! JVS(5492) = Jac_FULL(1372,1373) - JVS(5492) = B(17246) -! JVS(5493) = Jac_FULL(1372,5039) - JVS(5493) = B(14645) -! JVS(5494) = Jac_FULL(1372,5250) - JVS(5494) = B(17247)-B(17251)+B(17253) -! JVS(5495) = Jac_FULL(1373,1373) - JVS(5495) = -B(17246)-B(17248) -! JVS(5496) = Jac_FULL(1373,5039) - JVS(5496) = B(14639) -! JVS(5497) = Jac_FULL(1373,5250) - JVS(5497) = -B(17247) -! JVS(5498) = Jac_FULL(1373,5255) - JVS(5498) = B(14640) -! JVS(5499) = Jac_FULL(1374,1374) - JVS(5499) = -B(12101)-B(12102) -! JVS(5500) = Jac_FULL(1374,3768) - JVS(5500) = B(8353) -! JVS(5501) = Jac_FULL(1374,5250) - JVS(5501) = -B(12103) -! JVS(5502) = Jac_FULL(1374,5255) - JVS(5502) = B(8354) -! JVS(5503) = Jac_FULL(1375,1375) - JVS(5503) = -B(11994)-B(11995) -! JVS(5504) = Jac_FULL(1375,5108) - JVS(5504) = B(8249) -! JVS(5505) = Jac_FULL(1375,5250) - JVS(5505) = -B(11996) -! JVS(5506) = Jac_FULL(1375,5255) - JVS(5506) = B(8250) -! JVS(5507) = Jac_FULL(1376,1376) - JVS(5507) = -B(19918)-B(19920) -! JVS(5508) = Jac_FULL(1376,4458) - JVS(5508) = B(18104) -! JVS(5509) = Jac_FULL(1376,5250) - JVS(5509) = -B(19919) -! JVS(5510) = Jac_FULL(1376,5255) - JVS(5510) = B(18105) -! JVS(5511) = Jac_FULL(1377,1377) - JVS(5511) = -B(6594)-B(6596) -! JVS(5512) = Jac_FULL(1377,3987) - JVS(5512) = B(3000) -! JVS(5513) = Jac_FULL(1377,5250) - JVS(5513) = -B(6595) -! JVS(5514) = Jac_FULL(1377,5255) - JVS(5514) = B(3001) -! JVS(5515) = Jac_FULL(1378,1378) - JVS(5515) = -B(13234)-B(13236) -! JVS(5516) = Jac_FULL(1378,4680) - JVS(5516) = B(9857) -! JVS(5517) = Jac_FULL(1378,5250) - JVS(5517) = -B(13235) -! JVS(5518) = Jac_FULL(1378,5255) - JVS(5518) = B(9858) -! JVS(5519) = Jac_FULL(1379,1379) - JVS(5519) = -B(18251)-B(18253) -! JVS(5520) = Jac_FULL(1379,4200) - JVS(5520) = B(15774) -! JVS(5521) = Jac_FULL(1379,5250) - JVS(5521) = -B(18252) -! JVS(5522) = Jac_FULL(1379,5255) - JVS(5522) = B(15775) -! JVS(5523) = Jac_FULL(1380,1380) - JVS(5523) = -B(11487)-B(11488) -! JVS(5524) = Jac_FULL(1380,5101) - JVS(5524) = B(7678) -! JVS(5525) = Jac_FULL(1380,5250) - JVS(5525) = -B(11489) -! JVS(5526) = Jac_FULL(1380,5255) - JVS(5526) = B(7679) -! JVS(5527) = Jac_FULL(1381,1381) - JVS(5527) = -B(22974)-B(22976) -! JVS(5528) = Jac_FULL(1381,3974) - JVS(5528) = B(22555) -! JVS(5529) = Jac_FULL(1381,5250) - JVS(5529) = -B(22975) -! JVS(5530) = Jac_FULL(1381,5255) - JVS(5530) = B(22556) -! JVS(5531) = Jac_FULL(1382,1382) - JVS(5531) = -B(12054)-B(12056) -! JVS(5532) = Jac_FULL(1382,3688) - JVS(5532) = B(8313) -! JVS(5533) = Jac_FULL(1382,5250) - JVS(5533) = -B(12055)-B(12057) -! JVS(5534) = Jac_FULL(1382,5255) - JVS(5534) = B(8314) -! JVS(5535) = Jac_FULL(1383,1383) - JVS(5535) = -B(16917)-B(16919) -! JVS(5536) = Jac_FULL(1383,4898) - JVS(5536) = B(14282) -! JVS(5537) = Jac_FULL(1383,5250) - JVS(5537) = -B(16918) -! JVS(5538) = Jac_FULL(1383,5255) - JVS(5538) = B(14283) -! JVS(5539) = Jac_FULL(1384,1384) - JVS(5539) = -B(17179) -! JVS(5540) = Jac_FULL(1384,3872) - JVS(5540) = B(14529) -! JVS(5541) = Jac_FULL(1384,3927) - JVS(5541) = B(14538) -! JVS(5542) = Jac_FULL(1384,5250) - JVS(5542) = -B(17180) -! JVS(5543) = Jac_FULL(1385,1385) - JVS(5543) = -B(6095)-B(6097) -! JVS(5544) = Jac_FULL(1385,3492) - JVS(5544) = B(2761) -! JVS(5545) = Jac_FULL(1385,5250) - JVS(5545) = -B(6096) -! JVS(5546) = Jac_FULL(1385,5255) - JVS(5546) = B(2762) -! JVS(5547) = Jac_FULL(1386,1386) - JVS(5547) = -B(5133) -! JVS(5548) = Jac_FULL(1386,4582) - JVS(5548) = B(2264) -! JVS(5549) = Jac_FULL(1386,5135) - JVS(5549) = B(2274) -! JVS(5550) = Jac_FULL(1386,5250) - JVS(5550) = -B(5134) -! JVS(5551) = Jac_FULL(1387,1387) - JVS(5551) = -B(12141)-B(12142) -! JVS(5552) = Jac_FULL(1387,3691) - JVS(5552) = B(8396) -! JVS(5553) = Jac_FULL(1387,5250) - JVS(5553) = -B(12143) -! JVS(5554) = Jac_FULL(1387,5255) - JVS(5554) = B(8397) -! JVS(5555) = Jac_FULL(1388,1388) - JVS(5555) = -B(15998)-B(16000) -! JVS(5556) = Jac_FULL(1388,3772) - JVS(5556) = B(12910) -! JVS(5557) = Jac_FULL(1388,5250) - JVS(5557) = -B(15999) -! JVS(5558) = Jac_FULL(1388,5255) - JVS(5558) = B(12911) -! JVS(5559) = Jac_FULL(1389,1389) - JVS(5559) = -B(13262)-B(13264) -! JVS(5560) = Jac_FULL(1389,4198) - JVS(5560) = B(9918)+B(9929) -! JVS(5561) = Jac_FULL(1389,5250) - JVS(5561) = -B(13263) -! JVS(5562) = Jac_FULL(1389,5255) - JVS(5562) = B(9919) -! JVS(5563) = Jac_FULL(1390,1390) - JVS(5563) = -B(20756)-B(20758) -! JVS(5564) = Jac_FULL(1390,4166) - JVS(5564) = B(19160) -! JVS(5565) = Jac_FULL(1390,5250) - JVS(5565) = -B(20757) -! JVS(5566) = Jac_FULL(1390,5255) - JVS(5566) = B(19161) -! JVS(5567) = Jac_FULL(1391,1391) - JVS(5567) = -B(5016)-B(5018) -! JVS(5568) = Jac_FULL(1391,4143) - JVS(5568) = B(2169) -! JVS(5569) = Jac_FULL(1391,5250) - JVS(5569) = -B(5017) -! JVS(5570) = Jac_FULL(1391,5255) - JVS(5570) = B(2170) -! JVS(5571) = Jac_FULL(1392,1392) - JVS(5571) = -B(22290)-B(22292) -! JVS(5572) = Jac_FULL(1392,4751) - JVS(5572) = B(21545) -! JVS(5573) = Jac_FULL(1392,5250) - JVS(5573) = -B(22291) -! JVS(5574) = Jac_FULL(1392,5255) - JVS(5574) = B(21546) -! JVS(5575) = Jac_FULL(1393,1393) - JVS(5575) = -B(20209)-B(20211) -! JVS(5576) = Jac_FULL(1393,4182) - JVS(5576) = B(18565) -! JVS(5577) = Jac_FULL(1393,5250) - JVS(5577) = -B(20210) -! JVS(5578) = Jac_FULL(1393,5255) - JVS(5578) = B(18566) -! JVS(5579) = Jac_FULL(1394,1394) - JVS(5579) = -B(20834)-B(20836) -! JVS(5580) = Jac_FULL(1394,5017) - JVS(5580) = B(19267)+B(19279) -! JVS(5581) = Jac_FULL(1394,5250) - JVS(5581) = -B(20835) -! JVS(5582) = Jac_FULL(1394,5255) - JVS(5582) = B(19268) -! JVS(5583) = Jac_FULL(1395,1395) - JVS(5583) = -B(6685)-B(6686) -! JVS(5584) = Jac_FULL(1395,4372) - JVS(5584) = B(3077) -! JVS(5585) = Jac_FULL(1395,5250) - JVS(5585) = -B(6687) -! JVS(5586) = Jac_FULL(1395,5255) - JVS(5586) = B(3078) -! JVS(5587) = Jac_FULL(1396,1396) - JVS(5587) = -B(10231)-B(10233) -! JVS(5588) = Jac_FULL(1396,3650) - JVS(5588) = B(6521) -! JVS(5589) = Jac_FULL(1396,5250) - JVS(5589) = -B(10232) -! JVS(5590) = Jac_FULL(1396,5255) - JVS(5590) = B(6522) -! JVS(5591) = Jac_FULL(1397,1397) - JVS(5591) = -B(19555)-B(19557) -! JVS(5592) = Jac_FULL(1397,4042) - JVS(5592) = B(17446) -! JVS(5593) = Jac_FULL(1397,5250) - JVS(5593) = -B(19556) -! JVS(5594) = Jac_FULL(1397,5255) - JVS(5594) = B(17447) -! JVS(5595) = Jac_FULL(1398,1398) - JVS(5595) = -B(17980)-B(17981) -! JVS(5596) = Jac_FULL(1398,4238) - JVS(5596) = B(15375) -! JVS(5597) = Jac_FULL(1398,5250) - JVS(5597) = -B(17982) -! JVS(5598) = Jac_FULL(1398,5255) - JVS(5598) = B(15376) -! JVS(5599) = Jac_FULL(1399,1399) - JVS(5599) = -B(18640)-B(18642) -! JVS(5600) = Jac_FULL(1399,4312) - JVS(5600) = B(16336) -! JVS(5601) = Jac_FULL(1399,5250) - JVS(5601) = -B(18641) -! JVS(5602) = Jac_FULL(1399,5255) - JVS(5602) = B(16337) -! JVS(5603) = Jac_FULL(1400,1400) - JVS(5603) = -B(3927) -! JVS(5604) = Jac_FULL(1400,4814) - JVS(5604) = B(1165) -! JVS(5605) = Jac_FULL(1400,5250) - JVS(5605) = -B(3928) -! JVS(5606) = Jac_FULL(1400,5252) - JVS(5606) = B(1166) -! JVS(5607) = Jac_FULL(1401,1401) - JVS(5607) = -B(12087)-B(12088) -! JVS(5608) = Jac_FULL(1401,3751) - JVS(5608) = B(8342) -! JVS(5609) = Jac_FULL(1401,5250) - JVS(5609) = -B(12089) -! JVS(5610) = Jac_FULL(1401,5255) - JVS(5610) = B(8343) -! JVS(5611) = Jac_FULL(1402,1402) - JVS(5611) = -B(22424)-B(22426) -! JVS(5612) = Jac_FULL(1402,4485) - JVS(5612) = B(21806) -! JVS(5613) = Jac_FULL(1402,5250) - JVS(5613) = -B(22425) -! JVS(5614) = Jac_FULL(1402,5255) - JVS(5614) = B(21807) -! JVS(5615) = Jac_FULL(1403,1403) - JVS(5615) = -B(9186)-B(9188) -! JVS(5616) = Jac_FULL(1403,4692) - JVS(5616) = B(5603)+B(5614) -! JVS(5617) = Jac_FULL(1403,5250) - JVS(5617) = -B(9187) -! JVS(5618) = Jac_FULL(1403,5255) - JVS(5618) = B(5604) -! JVS(5619) = Jac_FULL(1404,1404) - JVS(5619) = -B(13147)-B(13149) -! JVS(5620) = Jac_FULL(1404,4846) - JVS(5620) = B(9671) -! JVS(5621) = Jac_FULL(1404,5250) - JVS(5621) = -B(13148) -! JVS(5622) = Jac_FULL(1404,5255) - JVS(5622) = B(9672) -! JVS(5623) = Jac_FULL(1405,1405) - JVS(5623) = -B(9991)-B(9993) -! JVS(5624) = Jac_FULL(1405,4132) - JVS(5624) = B(6290)+B(6301) -! JVS(5625) = Jac_FULL(1405,5250) - JVS(5625) = -B(9992) -! JVS(5626) = Jac_FULL(1405,5255) - JVS(5626) = B(6291) -! JVS(5627) = Jac_FULL(1406,1406) - JVS(5627) = -B(14131)-B(14133) -! JVS(5628) = Jac_FULL(1406,4871) - JVS(5628) = B(10932) -! JVS(5629) = Jac_FULL(1406,5250) - JVS(5629) = -B(14132) -! JVS(5630) = Jac_FULL(1406,5255) - JVS(5630) = B(10933) -! JVS(5631) = Jac_FULL(1407,1407) - JVS(5631) = -B(17266)-B(17268) -! JVS(5632) = Jac_FULL(1407,4989) - JVS(5632) = B(14683) -! JVS(5633) = Jac_FULL(1407,5250) - JVS(5633) = -B(17267) -! JVS(5634) = Jac_FULL(1407,5255) - JVS(5634) = B(14684) -! JVS(5635) = Jac_FULL(1408,1408) - JVS(5635) = -B(23597)-B(23599) -! JVS(5636) = Jac_FULL(1408,4653) - JVS(5636) = B(23300) -! JVS(5637) = Jac_FULL(1408,5250) - JVS(5637) = -B(23598) -! JVS(5638) = Jac_FULL(1408,5255) - JVS(5638) = B(23301) -! JVS(5639) = Jac_FULL(1409,1409) - JVS(5639) = -B(9907)-B(9909) -! JVS(5640) = Jac_FULL(1409,4654) - JVS(5640) = B(6210)+B(6221) -! JVS(5641) = Jac_FULL(1409,5250) - JVS(5641) = -B(9908) -! JVS(5642) = Jac_FULL(1409,5255) - JVS(5642) = B(6211) -! JVS(5643) = Jac_FULL(1410,1410) - JVS(5643) = -B(12119)-B(12120) -! JVS(5644) = Jac_FULL(1410,3766) - JVS(5644) = B(8371) -! JVS(5645) = Jac_FULL(1410,5250) - JVS(5645) = -B(12121) -! JVS(5646) = Jac_FULL(1410,5255) - JVS(5646) = B(8372) -! JVS(5647) = Jac_FULL(1411,1411) - JVS(5647) = -B(23439)-B(23441) -! JVS(5648) = Jac_FULL(1411,5130) - JVS(5648) = B(23069) -! JVS(5649) = Jac_FULL(1411,5250) - JVS(5649) = -B(23440) -! JVS(5650) = Jac_FULL(1411,5255) - JVS(5650) = B(23070) -! JVS(5651) = Jac_FULL(1412,1412) - JVS(5651) = -B(18669)-B(18671) -! JVS(5652) = Jac_FULL(1412,3753) - JVS(5652) = B(16383) -! JVS(5653) = Jac_FULL(1412,5250) - JVS(5653) = -B(18670) -! JVS(5654) = Jac_FULL(1412,5255) - JVS(5654) = B(16384) -! JVS(5655) = Jac_FULL(1413,1413) - JVS(5655) = -B(22699)-B(22701) -! JVS(5656) = Jac_FULL(1413,3722) - JVS(5656) = B(22082) -! JVS(5657) = Jac_FULL(1413,5250) - JVS(5657) = -B(22700) -! JVS(5658) = Jac_FULL(1413,5255) - JVS(5658) = B(22083) -! JVS(5659) = Jac_FULL(1414,1414) - JVS(5659) = -B(22356)-B(22358) -! JVS(5660) = Jac_FULL(1414,4597) - JVS(5660) = B(21728) -! JVS(5661) = Jac_FULL(1414,5250) - JVS(5661) = -B(22357) -! JVS(5662) = Jac_FULL(1414,5255) - JVS(5662) = B(21729) -! JVS(5663) = Jac_FULL(1415,1415) - JVS(5663) = -B(9105)-B(9107) -! JVS(5664) = Jac_FULL(1415,4718) - JVS(5664) = B(5529) -! JVS(5665) = Jac_FULL(1415,5250) - JVS(5665) = -B(9106) -! JVS(5666) = Jac_FULL(1415,5255) - JVS(5666) = B(5530) -! JVS(5667) = Jac_FULL(1416,1416) - JVS(5667) = -B(12083)-B(12084) -! JVS(5668) = Jac_FULL(1416,3781) - JVS(5668) = B(8335) -! JVS(5669) = Jac_FULL(1416,5250) - JVS(5669) = -B(12085) -! JVS(5670) = Jac_FULL(1416,5255) - JVS(5670) = B(8336) -! JVS(5671) = Jac_FULL(1417,1417) - JVS(5671) = -B(8687)-B(8689) -! JVS(5672) = Jac_FULL(1417,4649) - JVS(5672) = B(5217) -! JVS(5673) = Jac_FULL(1417,5250) - JVS(5673) = -B(8688) -! JVS(5674) = Jac_FULL(1417,5255) - JVS(5674) = B(5218) -! JVS(5675) = Jac_FULL(1418,1418) - JVS(5675) = -B(21249)-B(21250) -! JVS(5676) = Jac_FULL(1418,4443) - JVS(5676) = B(19804) -! JVS(5677) = Jac_FULL(1418,5250) - JVS(5677) = -B(21251) -! JVS(5678) = Jac_FULL(1418,5255) - JVS(5678) = B(19805) -! JVS(5679) = Jac_FULL(1419,1419) - JVS(5679) = -B(12702)-B(12704) -! JVS(5680) = Jac_FULL(1419,4075) - JVS(5680) = B(9133) -! JVS(5681) = Jac_FULL(1419,5250) - JVS(5681) = -B(12703) -! JVS(5682) = Jac_FULL(1419,5255) - JVS(5682) = B(9134) -! JVS(5683) = Jac_FULL(1420,1420) - JVS(5683) = -B(19947)-B(19949) -! JVS(5684) = Jac_FULL(1420,4298) - JVS(5684) = B(18162) -! JVS(5685) = Jac_FULL(1420,5250) - JVS(5685) = -B(19948) -! JVS(5686) = Jac_FULL(1420,5255) - JVS(5686) = B(18163) -! JVS(5687) = Jac_FULL(1421,1421) - JVS(5687) = -B(15841)-B(15843) -! JVS(5688) = Jac_FULL(1421,4002) - JVS(5688) = B(12760) -! JVS(5689) = Jac_FULL(1421,5250) - JVS(5689) = -B(15842) -! JVS(5690) = Jac_FULL(1421,5255) - JVS(5690) = B(12761) -! JVS(5691) = Jac_FULL(1422,1422) - JVS(5691) = -B(3801)-B(3803) -! JVS(5692) = Jac_FULL(1422,4837) - JVS(5692) = B(1070) -! JVS(5693) = Jac_FULL(1422,5250) - JVS(5693) = -B(3802) -! JVS(5694) = Jac_FULL(1422,5255) - JVS(5694) = B(1071) -! JVS(5695) = Jac_FULL(1423,1423) - JVS(5695) = -B(20261)-B(20263) -! JVS(5696) = Jac_FULL(1423,4232) - JVS(5696) = B(18655) -! JVS(5697) = Jac_FULL(1423,5250) - JVS(5697) = -B(20262) -! JVS(5698) = Jac_FULL(1423,5255) - JVS(5698) = B(18656) -! JVS(5699) = Jac_FULL(1424,1424) - JVS(5699) = -B(19239)-B(19241) -! JVS(5700) = Jac_FULL(1424,4849) - JVS(5700) = B(17029) -! JVS(5701) = Jac_FULL(1424,5250) - JVS(5701) = -B(19240) -! JVS(5702) = Jac_FULL(1424,5255) - JVS(5702) = B(17030) -! JVS(5703) = Jac_FULL(1425,1425) - JVS(5703) = -B(18896) -! JVS(5704) = Jac_FULL(1425,5167) - JVS(5704) = B(16690)+B(16700) -! JVS(5705) = Jac_FULL(1425,5250) - JVS(5705) = -B(18897) -! JVS(5706) = Jac_FULL(1425,5255) - JVS(5706) = B(16691) -! JVS(5707) = Jac_FULL(1426,1426) - JVS(5707) = -B(20037)-B(20039) -! JVS(5708) = Jac_FULL(1426,4101) - JVS(5708) = B(18255) -! JVS(5709) = Jac_FULL(1426,5250) - JVS(5709) = -B(20038) -! JVS(5710) = Jac_FULL(1426,5255) - JVS(5710) = B(18256) -! JVS(5711) = Jac_FULL(1427,1427) - JVS(5711) = -B(18069)-B(18071) -! JVS(5712) = Jac_FULL(1427,4067) - JVS(5712) = B(15468) -! JVS(5713) = Jac_FULL(1427,5250) - JVS(5713) = -B(18070) -! JVS(5714) = Jac_FULL(1427,5255) - JVS(5714) = B(15469) -! JVS(5715) = Jac_FULL(1428,1428) - JVS(5715) = -B(20782)-B(20784) -! JVS(5716) = Jac_FULL(1428,4900) - JVS(5716) = B(19199) -! JVS(5717) = Jac_FULL(1428,5250) - JVS(5717) = -B(20783) -! JVS(5718) = Jac_FULL(1428,5255) - JVS(5718) = B(19200) -! JVS(5719) = Jac_FULL(1429,1429) - JVS(5719) = -B(15549)-B(15551) -! JVS(5720) = Jac_FULL(1429,4049) - JVS(5720) = B(12434) -! JVS(5721) = Jac_FULL(1429,5250) - JVS(5721) = -B(15550) -! JVS(5722) = Jac_FULL(1429,5255) - JVS(5722) = B(12435) -! JVS(5723) = Jac_FULL(1430,1430) - JVS(5723) = -B(11556)-B(11558) -! JVS(5724) = Jac_FULL(1430,3979) - JVS(5724) = B(7737) -! JVS(5725) = Jac_FULL(1430,5250) - JVS(5725) = -B(11557) -! JVS(5726) = Jac_FULL(1430,5255) - JVS(5726) = B(7738) -! JVS(5727) = Jac_FULL(1431,1431) - JVS(5727) = -B(5844)-B(5846) -! JVS(5728) = Jac_FULL(1431,4068) - JVS(5728) = B(2635) -! JVS(5729) = Jac_FULL(1431,5250) - JVS(5729) = -B(5845) -! JVS(5730) = Jac_FULL(1431,5255) - JVS(5730) = B(2636) -! JVS(5731) = Jac_FULL(1432,1432) - JVS(5731) = -B(13231)-B(13233) -! JVS(5732) = Jac_FULL(1432,4680) - JVS(5732) = B(9855)+B(9866) -! JVS(5733) = Jac_FULL(1432,5250) - JVS(5733) = -B(13232) -! JVS(5734) = Jac_FULL(1432,5255) - JVS(5734) = B(9856) -! JVS(5735) = Jac_FULL(1433,1433) - JVS(5735) = -B(20522) -! JVS(5736) = Jac_FULL(1433,4816) - JVS(5736) = B(18927)+B(18939) -! JVS(5737) = Jac_FULL(1433,5250) - JVS(5737) = -B(20523) -! JVS(5738) = Jac_FULL(1433,5255) - JVS(5738) = B(18928) -! JVS(5739) = Jac_FULL(1434,1434) - JVS(5739) = -B(5202)-B(5204) -! JVS(5740) = Jac_FULL(1434,4399) - JVS(5740) = B(2342) -! JVS(5741) = Jac_FULL(1434,5250) - JVS(5741) = -B(5203) -! JVS(5742) = Jac_FULL(1434,5255) - JVS(5742) = B(2343) -! JVS(5743) = Jac_FULL(1435,1435) - JVS(5743) = -B(18634)-B(18636) -! JVS(5744) = Jac_FULL(1435,3782) - JVS(5744) = B(16328) -! JVS(5745) = Jac_FULL(1435,5250) - JVS(5745) = -B(18635) -! JVS(5746) = Jac_FULL(1435,5255) - JVS(5746) = B(16329) -! JVS(5747) = Jac_FULL(1436,1436) - JVS(5747) = -B(11627)-B(11629) -! JVS(5748) = Jac_FULL(1436,4862) - JVS(5748) = B(7871) -! JVS(5749) = Jac_FULL(1436,5250) - JVS(5749) = -B(11628) -! JVS(5750) = Jac_FULL(1436,5255) - JVS(5750) = B(7872) -! JVS(5751) = Jac_FULL(1437,1437) - JVS(5751) = -B(16908)-B(16910) -! JVS(5752) = Jac_FULL(1437,4830) - JVS(5752) = B(14268) -! JVS(5753) = Jac_FULL(1437,5250) - JVS(5753) = -B(16909) -! JVS(5754) = Jac_FULL(1437,5255) - JVS(5754) = B(14269) -! JVS(5755) = Jac_FULL(1438,1438) - JVS(5755) = -B(13634)-B(13635) -! JVS(5756) = Jac_FULL(1438,3939) - JVS(5756) = B(10444) -! JVS(5757) = Jac_FULL(1438,5250) - JVS(5757) = -B(13636) -! JVS(5758) = Jac_FULL(1438,5255) - JVS(5758) = B(10445) -! JVS(5759) = Jac_FULL(1439,1439) - JVS(5759) = -B(23662)-B(23664) -! JVS(5760) = Jac_FULL(1439,4342) - JVS(5760) = B(23394) -! JVS(5761) = Jac_FULL(1439,5250) - JVS(5761) = -B(23663) -! JVS(5762) = Jac_FULL(1439,5255) - JVS(5762) = B(23395) -! JVS(5763) = Jac_FULL(1440,1440) - JVS(5763) = -B(19575)-B(19576) -! JVS(5764) = Jac_FULL(1440,4866) - JVS(5764) = B(17534)+B(17546) -! JVS(5765) = Jac_FULL(1440,5250) - JVS(5765) = -B(19577) -! JVS(5766) = Jac_FULL(1440,5255) - JVS(5766) = B(17535) -! JVS(5767) = Jac_FULL(1441,1441) - JVS(5767) = -B(19641)-B(19642) -! JVS(5768) = Jac_FULL(1441,4573) - JVS(5768) = B(17749) -! JVS(5769) = Jac_FULL(1441,5250) - JVS(5769) = -B(19643) -! JVS(5770) = Jac_FULL(1441,5255) - JVS(5770) = B(17750) -! JVS(5771) = Jac_FULL(1442,1442) - JVS(5771) = -B(19193)-B(19195) -! JVS(5772) = Jac_FULL(1442,4664) - JVS(5772) = B(16982)+B(16994) -! JVS(5773) = Jac_FULL(1442,5250) - JVS(5773) = -B(19194) -! JVS(5774) = Jac_FULL(1442,5255) - JVS(5774) = B(16983) -! JVS(5775) = Jac_FULL(1443,1443) - JVS(5775) = -B(15733)-B(15735) -! JVS(5776) = Jac_FULL(1443,3695) - JVS(5776) = B(12667) -! JVS(5777) = Jac_FULL(1443,5250) - JVS(5777) = -B(15734) -! JVS(5778) = Jac_FULL(1443,5255) - JVS(5778) = B(12668) -! JVS(5779) = Jac_FULL(1444,1444) - JVS(5779) = -B(21099)-B(21101) -! JVS(5780) = Jac_FULL(1444,4363) - JVS(5780) = B(19518) -! JVS(5781) = Jac_FULL(1444,5250) - JVS(5781) = -B(21100) -! JVS(5782) = Jac_FULL(1444,5255) - JVS(5782) = B(19519) -! JVS(5783) = Jac_FULL(1445,1445) - JVS(5783) = -B(10689)-B(10691) -! JVS(5784) = Jac_FULL(1445,4087) - JVS(5784) = B(6874) -! JVS(5785) = Jac_FULL(1445,5250) - JVS(5785) = -B(10690) -! JVS(5786) = Jac_FULL(1445,5255) - JVS(5786) = B(6875) -! JVS(5787) = Jac_FULL(1446,1446) - JVS(5787) = -B(17894)-B(17895) -! JVS(5788) = Jac_FULL(1446,4713) - JVS(5788) = B(15298) -! JVS(5789) = Jac_FULL(1446,5250) - JVS(5789) = -B(17896) -! JVS(5790) = Jac_FULL(1446,5255) - JVS(5790) = B(15299) -! JVS(5791) = Jac_FULL(1447,1447) - JVS(5791) = -B(17124)-B(17126) -! JVS(5792) = Jac_FULL(1447,4891) - JVS(5792) = B(14477) -! JVS(5793) = Jac_FULL(1447,5250) - JVS(5793) = -B(17125) -! JVS(5794) = Jac_FULL(1447,5255) - JVS(5794) = B(14478) -! JVS(5795) = Jac_FULL(1448,1448) - JVS(5795) = -B(17550)-B(17551) -! JVS(5796) = Jac_FULL(1448,4623) - JVS(5796) = B(14980) -! JVS(5797) = Jac_FULL(1448,5250) - JVS(5797) = -B(17552) -! JVS(5798) = Jac_FULL(1448,5255) - JVS(5798) = B(14981) -! JVS(5799) = Jac_FULL(1449,1449) - JVS(5799) = -B(13980)-B(13982) -! JVS(5800) = Jac_FULL(1449,4219) - JVS(5800) = B(10770) -! JVS(5801) = Jac_FULL(1449,5250) - JVS(5801) = -B(13981) -! JVS(5802) = Jac_FULL(1449,5255) - JVS(5802) = B(10771) -! JVS(5803) = Jac_FULL(1450,1450) - JVS(5803) = -B(16405)-B(16407) -! JVS(5804) = Jac_FULL(1450,4064) - JVS(5804) = B(13355) -! JVS(5805) = Jac_FULL(1450,5250) - JVS(5805) = -B(16406) -! JVS(5806) = Jac_FULL(1450,5255) - JVS(5806) = B(13356) -! JVS(5807) = Jac_FULL(1451,1451) - JVS(5807) = -B(5398)-B(5400) -! JVS(5808) = Jac_FULL(1451,4028) - JVS(5808) = B(2428) -! JVS(5809) = Jac_FULL(1451,5250) - JVS(5809) = -B(5399) -! JVS(5810) = Jac_FULL(1451,5255) - JVS(5810) = B(2429) -! JVS(5811) = Jac_FULL(1452,1452) - JVS(5811) = -B(18590)-B(18592) -! JVS(5812) = Jac_FULL(1452,4040) - JVS(5812) = B(16270) -! JVS(5813) = Jac_FULL(1452,5250) - JVS(5813) = -B(18591) -! JVS(5814) = Jac_FULL(1452,5255) - JVS(5814) = B(16271) -! JVS(5815) = Jac_FULL(1453,1453) - JVS(5815) = -B(18662)-B(18664) -! JVS(5816) = Jac_FULL(1453,4072) - JVS(5816) = B(16369) -! JVS(5817) = Jac_FULL(1453,5250) - JVS(5817) = -B(18663) -! JVS(5818) = Jac_FULL(1453,5255) - JVS(5818) = B(16370) -! JVS(5819) = Jac_FULL(1454,1454) - JVS(5819) = -B(19479)-B(19481) -! JVS(5820) = Jac_FULL(1454,4738) - JVS(5820) = B(17298) -! JVS(5821) = Jac_FULL(1454,5250) - JVS(5821) = -B(19480) -! JVS(5822) = Jac_FULL(1454,5255) - JVS(5822) = B(17299) -! JVS(5823) = Jac_FULL(1455,1455) - JVS(5823) = -B(20183)-B(20185) -! JVS(5824) = Jac_FULL(1455,4726) - JVS(5824) = B(18523) -! JVS(5825) = Jac_FULL(1455,5250) - JVS(5825) = -B(20184) -! JVS(5826) = Jac_FULL(1455,5255) - JVS(5826) = B(18524) -! JVS(5827) = Jac_FULL(1456,1456) - JVS(5827) = -B(12507)-B(12509) -! JVS(5828) = Jac_FULL(1456,4591) - JVS(5828) = B(8902) -! JVS(5829) = Jac_FULL(1456,5250) - JVS(5829) = -B(12508) -! JVS(5830) = Jac_FULL(1456,5255) - JVS(5830) = B(8903) -! JVS(5831) = Jac_FULL(1457,1457) - JVS(5831) = -B(20304) -! JVS(5832) = Jac_FULL(1457,4460) - JVS(5832) = B(18707)+B(18719) -! JVS(5833) = Jac_FULL(1457,5250) - JVS(5833) = -B(20305) -! JVS(5834) = Jac_FULL(1457,5255) - JVS(5834) = B(18708) -! JVS(5835) = Jac_FULL(1458,1458) - JVS(5835) = -B(6007)-B(6009) -! JVS(5836) = Jac_FULL(1458,3525) - JVS(5836) = B(2718) -! JVS(5837) = Jac_FULL(1458,5250) - JVS(5837) = -B(6008) -! JVS(5838) = Jac_FULL(1458,5255) - JVS(5838) = B(2719) -! JVS(5839) = Jac_FULL(1459,1459) - JVS(5839) = -B(18557)-B(18559) -! JVS(5840) = Jac_FULL(1459,4192) - JVS(5840) = B(16240) -! JVS(5841) = Jac_FULL(1459,5250) - JVS(5841) = -B(18558) -! JVS(5842) = Jac_FULL(1459,5255) - JVS(5842) = B(16241) -! JVS(5843) = Jac_FULL(1460,1460) - JVS(5843) = -B(21348)-B(21350) -! JVS(5844) = Jac_FULL(1460,4770) - JVS(5844) = B(19978) -! JVS(5845) = Jac_FULL(1460,5250) - JVS(5845) = -B(21349) -! JVS(5846) = Jac_FULL(1460,5255) - JVS(5846) = B(19979) -! JVS(5847) = Jac_FULL(1461,1461) - JVS(5847) = -B(24026)-B(24028) -! JVS(5848) = Jac_FULL(1461,4456) - JVS(5848) = B(23991) -! JVS(5849) = Jac_FULL(1461,5250) - JVS(5849) = -B(24027) -! JVS(5850) = Jac_FULL(1461,5255) - JVS(5850) = B(23992) -! JVS(5851) = Jac_FULL(1462,1462) - JVS(5851) = -B(14238)-B(14240) -! JVS(5852) = Jac_FULL(1462,5029) - JVS(5852) = B(11048) -! JVS(5853) = Jac_FULL(1462,5250) - JVS(5853) = -B(14239) -! JVS(5854) = Jac_FULL(1462,5255) - JVS(5854) = B(11049) -! JVS(5855) = Jac_FULL(1463,1463) - JVS(5855) = -B(23017)-B(23019) -! JVS(5856) = Jac_FULL(1463,3908) - JVS(5856) = B(22583) -! JVS(5857) = Jac_FULL(1463,5250) - JVS(5857) = -B(23018) -! JVS(5858) = Jac_FULL(1463,5255) - JVS(5858) = B(22584) -! JVS(5859) = Jac_FULL(1464,1464) - JVS(5859) = -B(23233)-B(23235) -! JVS(5860) = Jac_FULL(1464,4426) - JVS(5860) = B(22788) -! JVS(5861) = Jac_FULL(1464,5250) - JVS(5861) = -B(23234) -! JVS(5862) = Jac_FULL(1464,5255) - JVS(5862) = B(22789) -! JVS(5863) = Jac_FULL(1465,1465) - JVS(5863) = -B(9847)-B(9849) -! JVS(5864) = Jac_FULL(1465,4807) - JVS(5864) = B(6145) -! JVS(5865) = Jac_FULL(1465,5250) - JVS(5865) = -B(9848) -! JVS(5866) = Jac_FULL(1465,5255) - JVS(5866) = B(6146) -! JVS(5867) = Jac_FULL(1466,1466) - JVS(5867) = -B(4156)-B(4158) -! JVS(5868) = Jac_FULL(1466,5106) - JVS(5868) = B(1369) -! JVS(5869) = Jac_FULL(1466,5250) - JVS(5869) = -B(4157) -! JVS(5870) = Jac_FULL(1466,5255) - JVS(5870) = B(1370) -! JVS(5871) = Jac_FULL(1467,1467) - JVS(5871) = -B(20378)-B(20379) -! JVS(5872) = Jac_FULL(1467,4539) - JVS(5872) = B(18789) -! JVS(5873) = Jac_FULL(1467,5250) - JVS(5873) = -B(20380) -! JVS(5874) = Jac_FULL(1467,5255) - JVS(5874) = B(18790) -! JVS(5875) = Jac_FULL(1468,1468) - JVS(5875) = -B(7466)-B(7468) -! JVS(5876) = Jac_FULL(1468,3994) - JVS(5876) = B(3554) -! JVS(5877) = Jac_FULL(1468,5250) - JVS(5877) = -B(7467) -! JVS(5878) = Jac_FULL(1468,5255) - JVS(5878) = B(3555) -! JVS(5879) = Jac_FULL(1469,1469) - JVS(5879) = -B(4660)-B(4661) -! JVS(5880) = Jac_FULL(1469,3894) - JVS(5880) = B(1846) -! JVS(5881) = Jac_FULL(1469,5250) - JVS(5881) = -B(4662) -! JVS(5882) = Jac_FULL(1469,5255) - JVS(5882) = B(1847) -! JVS(5883) = Jac_FULL(1470,1470) - JVS(5883) = -B(11147)-B(11149) -! JVS(5884) = Jac_FULL(1470,3982) - JVS(5884) = B(7353) -! JVS(5885) = Jac_FULL(1470,5250) - JVS(5885) = -B(11148) -! JVS(5886) = Jac_FULL(1470,5255) - JVS(5886) = B(7354) -! JVS(5887) = Jac_FULL(1471,1471) - JVS(5887) = -B(19561)-B(19562) -! JVS(5888) = Jac_FULL(1471,5179) - JVS(5888) = B(17484) -! JVS(5889) = Jac_FULL(1471,5250) - JVS(5889) = -B(19563) -! JVS(5890) = Jac_FULL(1471,5255) - JVS(5890) = B(17485) -! JVS(5891) = Jac_FULL(1472,1472) - JVS(5891) = -B(20041)-B(20043) -! JVS(5892) = Jac_FULL(1472,4506) - JVS(5892) = B(18263) -! JVS(5893) = Jac_FULL(1472,5250) - JVS(5893) = -B(20042) -! JVS(5894) = Jac_FULL(1472,5255) - JVS(5894) = B(18264) -! JVS(5895) = Jac_FULL(1473,1473) - JVS(5895) = -B(9994)-B(9996) -! JVS(5896) = Jac_FULL(1473,4132) - JVS(5896) = B(6292) -! JVS(5897) = Jac_FULL(1473,5250) - JVS(5897) = -B(9995) -! JVS(5898) = Jac_FULL(1473,5255) - JVS(5898) = B(6293) -! JVS(5899) = Jac_FULL(1474,1474) - JVS(5899) = -B(24009)-B(24011) -! JVS(5900) = Jac_FULL(1474,4686) - JVS(5900) = B(23971) -! JVS(5901) = Jac_FULL(1474,5250) - JVS(5901) = -B(24010) -! JVS(5902) = Jac_FULL(1474,5255) - JVS(5902) = B(23972) -! JVS(5903) = Jac_FULL(1475,1475) - JVS(5903) = -B(17455)-B(17456) -! JVS(5904) = Jac_FULL(1475,4962) - JVS(5904) = B(14891) -! JVS(5905) = Jac_FULL(1475,5250) - JVS(5905) = -B(17457) -! JVS(5906) = Jac_FULL(1475,5255) - JVS(5906) = B(14892) -! JVS(5907) = Jac_FULL(1476,1476) - JVS(5907) = -B(12779)-B(12781) -! JVS(5908) = Jac_FULL(1476,4020) - JVS(5908) = B(9268) -! JVS(5909) = Jac_FULL(1476,5250) - JVS(5909) = -B(12780) -! JVS(5910) = Jac_FULL(1476,5255) - JVS(5910) = B(9269) -! JVS(5911) = Jac_FULL(1477,1477) - JVS(5911) = -B(17743)-B(17744) -! JVS(5912) = Jac_FULL(1477,4523) - JVS(5912) = B(15177) -! JVS(5913) = Jac_FULL(1477,5250) - JVS(5913) = -B(17745) -! JVS(5914) = Jac_FULL(1477,5255) - JVS(5914) = B(15178) -! JVS(5915) = Jac_FULL(1478,1478) - JVS(5915) = -B(18024)-B(18026) -! JVS(5916) = Jac_FULL(1478,4360) - JVS(5916) = B(15403) -! JVS(5917) = Jac_FULL(1478,5250) - JVS(5917) = -B(18025) -! JVS(5918) = Jac_FULL(1478,5255) - JVS(5918) = B(15404) -! JVS(5919) = Jac_FULL(1479,1479) - JVS(5919) = -B(20958)-B(20960) -! JVS(5920) = Jac_FULL(1479,5131) - JVS(5920) = B(19402) -! JVS(5921) = Jac_FULL(1479,5250) - JVS(5921) = -B(20959) -! JVS(5922) = Jac_FULL(1479,5255) - JVS(5922) = B(19403) -! JVS(5923) = Jac_FULL(1480,1480) - JVS(5923) = -B(22079)-B(22081) -! JVS(5924) = Jac_FULL(1480,4863) - JVS(5924) = B(21060) -! JVS(5925) = Jac_FULL(1480,5250) - JVS(5925) = -B(22080) -! JVS(5926) = Jac_FULL(1480,5255) - JVS(5926) = B(21061) -! JVS(5927) = Jac_FULL(1481,1481) - JVS(5927) = -B(10066)-B(10068) -! JVS(5928) = Jac_FULL(1481,4633) - JVS(5928) = B(6362)+B(6373) -! JVS(5929) = Jac_FULL(1481,5250) - JVS(5929) = -B(10067) -! JVS(5930) = Jac_FULL(1481,5255) - JVS(5930) = B(6363) -! JVS(5931) = Jac_FULL(1482,1482) - JVS(5931) = -B(21136) -! JVS(5932) = Jac_FULL(1482,4778) - JVS(5932) = B(19598) -! JVS(5933) = Jac_FULL(1482,5250) - JVS(5933) = -B(21137) -! JVS(5934) = Jac_FULL(1482,5252) - JVS(5934) = B(19599) -! JVS(5935) = Jac_FULL(1483,246) - JVS(5935) = B(19876) -! JVS(5936) = Jac_FULL(1483,1192) - JVS(5936) = B(19872) -! JVS(5937) = Jac_FULL(1483,1483) - JVS(5937) = -B(19878) -! JVS(5938) = Jac_FULL(1483,5059) - JVS(5938) = B(18054) -! JVS(5939) = Jac_FULL(1483,5250) - JVS(5939) = B(19873)+B(19877)-B(19879) -! JVS(5940) = Jac_FULL(1483,5255) - JVS(5940) = 0 -! JVS(5941) = Jac_FULL(1484,1484) - JVS(5941) = -B(5476)-B(5478) -! JVS(5942) = Jac_FULL(1484,3509) - JVS(5942) = B(2460) -! JVS(5943) = Jac_FULL(1484,5250) - JVS(5943) = -B(5477) -! JVS(5944) = Jac_FULL(1484,5255) - JVS(5944) = B(2461) -! JVS(5945) = Jac_FULL(1485,1485) - JVS(5945) = -B(23449)-B(23451) -! JVS(5946) = Jac_FULL(1485,4572) - JVS(5946) = B(23079) -! JVS(5947) = Jac_FULL(1485,5250) - JVS(5947) = -B(23450) -! JVS(5948) = Jac_FULL(1485,5255) - JVS(5948) = B(23080) -! JVS(5949) = Jac_FULL(1486,1486) - JVS(5949) = -B(6022)-B(6024) -! JVS(5950) = Jac_FULL(1486,4133) - JVS(5950) = B(2729) -! JVS(5951) = Jac_FULL(1486,5250) - JVS(5951) = -B(6023) -! JVS(5952) = Jac_FULL(1486,5255) - JVS(5952) = B(2730) -! JVS(5953) = Jac_FULL(1487,1487) - JVS(5953) = -B(17130)-B(17132) -! JVS(5954) = Jac_FULL(1487,3907) - JVS(5954) = B(14488) -! JVS(5955) = Jac_FULL(1487,5250) - JVS(5955) = -B(17131) -! JVS(5956) = Jac_FULL(1487,5255) - JVS(5956) = B(14489) -! JVS(5957) = Jac_FULL(1488,1488) - JVS(5957) = -B(4563)-B(4564) -! JVS(5958) = Jac_FULL(1488,5056) - JVS(5958) = B(1771) -! JVS(5959) = Jac_FULL(1488,5250) - JVS(5959) = -B(4565) -! JVS(5960) = Jac_FULL(1488,5255) - JVS(5960) = B(1772) -! JVS(5961) = Jac_FULL(1489,1489) - JVS(5961) = -B(16899)-B(16901) -! JVS(5962) = Jac_FULL(1489,4910) - JVS(5962) = B(14256)+B(14267) -! JVS(5963) = Jac_FULL(1489,5250) - JVS(5963) = -B(16900) -! JVS(5964) = Jac_FULL(1489,5255) - JVS(5964) = B(14257) -! JVS(5965) = Jac_FULL(1490,1490) - JVS(5965) = -B(17586)-B(17587) -! JVS(5966) = Jac_FULL(1490,5120) - JVS(5966) = B(15009) -! JVS(5967) = Jac_FULL(1490,5250) - JVS(5967) = -B(17588) -! JVS(5968) = Jac_FULL(1490,5255) - JVS(5968) = B(15010) -! JVS(5969) = Jac_FULL(1491,1491) - JVS(5969) = -B(4740)-B(4741) -! JVS(5970) = Jac_FULL(1491,5144) - JVS(5970) = B(1920) -! JVS(5971) = Jac_FULL(1491,5250) - JVS(5971) = -B(4742) -! JVS(5972) = Jac_FULL(1491,5255) - JVS(5972) = B(1921) -! JVS(5973) = Jac_FULL(1492,1492) - JVS(5973) = -B(16967)-B(16969) -! JVS(5974) = Jac_FULL(1492,4789) - JVS(5974) = B(14361) -! JVS(5975) = Jac_FULL(1492,5250) - JVS(5975) = -B(16968) -! JVS(5976) = Jac_FULL(1492,5255) - JVS(5976) = B(14362) -! JVS(5977) = Jac_FULL(1493,247) - JVS(5977) = B(23015) -! JVS(5978) = Jac_FULL(1493,1493) - JVS(5978) = -B(23012)-B(23014) -! JVS(5979) = Jac_FULL(1493,2312) - JVS(5979) = B(23008) -! JVS(5980) = Jac_FULL(1493,4315) - JVS(5980) = B(22580) -! JVS(5981) = Jac_FULL(1493,5250) - JVS(5981) = B(23009)-B(23013)+B(23016) -! JVS(5982) = Jac_FULL(1494,1494) - JVS(5982) = -B(21574) -! JVS(5983) = Jac_FULL(1494,4739) - JVS(5983) = B(20364)+B(20376) -! JVS(5984) = Jac_FULL(1494,5250) - JVS(5984) = -B(21575) -! JVS(5985) = Jac_FULL(1494,5255) - JVS(5985) = B(20365) -! JVS(5986) = Jac_FULL(1495,1495) - JVS(5986) = -B(14148)-B(14150) -! JVS(5987) = Jac_FULL(1495,4118) - JVS(5987) = B(10948) -! JVS(5988) = Jac_FULL(1495,5250) - JVS(5988) = -B(14149) -! JVS(5989) = Jac_FULL(1495,5255) - JVS(5989) = B(10949) -! JVS(5990) = Jac_FULL(1496,1496) - JVS(5990) = -B(20643)-B(20645) -! JVS(5991) = Jac_FULL(1496,4189) - JVS(5991) = B(19066) -! JVS(5992) = Jac_FULL(1496,5250) - JVS(5992) = -B(20644) -! JVS(5993) = Jac_FULL(1496,5255) - JVS(5993) = B(19067) -! JVS(5994) = Jac_FULL(1497,1497) - JVS(5994) = -B(18284)-B(18286) -! JVS(5995) = Jac_FULL(1497,3769) - JVS(5995) = B(15819) -! JVS(5996) = Jac_FULL(1497,5250) - JVS(5996) = -B(18285) -! JVS(5997) = Jac_FULL(1497,5255) - JVS(5997) = B(15820) -! JVS(5998) = Jac_FULL(1498,1498) - JVS(5998) = -B(14165)-B(14167) -! JVS(5999) = Jac_FULL(1498,4627) - JVS(5999) = B(10964) -! JVS(6000) = Jac_FULL(1498,5250) - JVS(6000) = -B(14166) -! JVS(6001) = Jac_FULL(1498,5255) - JVS(6001) = B(10965) -! JVS(6002) = Jac_FULL(1499,1499) - JVS(6002) = -B(17681)-B(17682) -! JVS(6003) = Jac_FULL(1499,4357) - JVS(6003) = B(15109) -! JVS(6004) = Jac_FULL(1499,5250) - JVS(6004) = -B(17683) -! JVS(6005) = Jac_FULL(1499,5255) - JVS(6005) = B(15110) -! JVS(6006) = Jac_FULL(1500,1500) - JVS(6006) = -B(4116)-B(4118) -! JVS(6007) = Jac_FULL(1500,5125) - JVS(6007) = B(1333) -! JVS(6008) = Jac_FULL(1500,5250) - JVS(6008) = -B(4117) -! JVS(6009) = Jac_FULL(1500,5255) - JVS(6009) = B(1334) -! JVS(6010) = Jac_FULL(1501,1501) - JVS(6010) = -B(4719)-B(4720) -! JVS(6011) = Jac_FULL(1501,4586) - JVS(6011) = B(1899) -! JVS(6012) = Jac_FULL(1501,5250) - JVS(6012) = -B(4721) -! JVS(6013) = Jac_FULL(1501,5255) - JVS(6013) = B(1900) -! JVS(6014) = Jac_FULL(1502,1502) - JVS(6014) = -B(17290)-B(17292) -! JVS(6015) = Jac_FULL(1502,3928) - JVS(6015) = B(14729) -! JVS(6016) = Jac_FULL(1502,5250) - JVS(6016) = -B(17291) -! JVS(6017) = Jac_FULL(1502,5255) - JVS(6017) = B(14730) -! JVS(6018) = Jac_FULL(1503,1503) - JVS(6018) = -B(10038)-B(10040) -! JVS(6019) = Jac_FULL(1503,3511) - JVS(6019) = B(6326) -! JVS(6020) = Jac_FULL(1503,5250) - JVS(6020) = -B(10039) -! JVS(6021) = Jac_FULL(1503,5255) - JVS(6021) = B(6327) -! JVS(6022) = Jac_FULL(1504,1504) - JVS(6022) = -B(20102)-B(20104) -! JVS(6023) = Jac_FULL(1504,4205) - JVS(6023) = B(18364) -! JVS(6024) = Jac_FULL(1504,5250) - JVS(6024) = -B(20103) -! JVS(6025) = Jac_FULL(1504,5255) - JVS(6025) = B(18365) -! JVS(6026) = Jac_FULL(1505,1505) - JVS(6026) = -B(23954)-B(23956) -! JVS(6027) = Jac_FULL(1505,3882) - JVS(6027) = B(23866) -! JVS(6028) = Jac_FULL(1505,5250) - JVS(6028) = -B(23955) -! JVS(6029) = Jac_FULL(1505,5255) - JVS(6029) = B(23867) -! JVS(6030) = Jac_FULL(1506,1506) - JVS(6030) = -B(11791)-B(11792) -! JVS(6031) = Jac_FULL(1506,3967) - JVS(6031) = B(8062) -! JVS(6032) = Jac_FULL(1506,5250) - JVS(6032) = -B(11793) -! JVS(6033) = Jac_FULL(1506,5255) - JVS(6033) = B(8063) -! JVS(6034) = Jac_FULL(1507,1507) - JVS(6034) = -B(23461)-B(23463) -! JVS(6035) = Jac_FULL(1507,4839) - JVS(6035) = B(23090) -! JVS(6036) = Jac_FULL(1507,5250) - JVS(6036) = -B(23462) -! JVS(6037) = Jac_FULL(1507,5255) - JVS(6037) = B(23091) -! JVS(6038) = Jac_FULL(1508,1508) - JVS(6038) = -B(19884)-B(19886) -! JVS(6039) = Jac_FULL(1508,4271) - JVS(6039) = B(18062) -! JVS(6040) = Jac_FULL(1508,5250) - JVS(6040) = -B(19885) -! JVS(6041) = Jac_FULL(1508,5255) - JVS(6041) = B(18063) -! JVS(6042) = Jac_FULL(1509,1509) - JVS(6042) = -B(20979)-B(20981) -! JVS(6043) = Jac_FULL(1509,5052) - JVS(6043) = B(19418) -! JVS(6044) = Jac_FULL(1509,5250) - JVS(6044) = -B(20980) -! JVS(6045) = Jac_FULL(1509,5255) - JVS(6045) = B(19419) -! JVS(6046) = Jac_FULL(1510,1510) - JVS(6046) = -B(9346)-B(9348) -! JVS(6047) = Jac_FULL(1510,4701) - JVS(6047) = B(5733) -! JVS(6048) = Jac_FULL(1510,5250) - JVS(6048) = -B(9347) -! JVS(6049) = Jac_FULL(1510,5255) - JVS(6049) = B(5734) -! JVS(6050) = Jac_FULL(1511,1511) - JVS(6050) = -B(21994)-B(21996) -! JVS(6051) = Jac_FULL(1511,5044) - JVS(6051) = B(20946) -! JVS(6052) = Jac_FULL(1511,5250) - JVS(6052) = -B(21995) -! JVS(6053) = Jac_FULL(1511,5255) - JVS(6053) = B(20947) -! JVS(6054) = Jac_FULL(1512,1512) - JVS(6054) = -B(18331)-B(18333) -! JVS(6055) = Jac_FULL(1512,4304) - JVS(6055) = B(15878) -! JVS(6056) = Jac_FULL(1512,5250) - JVS(6056) = -B(18332) -! JVS(6057) = Jac_FULL(1512,5255) - JVS(6057) = B(15879) -! JVS(6058) = Jac_FULL(1513,1513) - JVS(6058) = -B(9844)-B(9846) -! JVS(6059) = Jac_FULL(1513,4807) - JVS(6059) = B(6143)+B(6154) -! JVS(6060) = Jac_FULL(1513,5250) - JVS(6060) = -B(9845) -! JVS(6061) = Jac_FULL(1513,5255) - JVS(6061) = B(6144) -! JVS(6062) = Jac_FULL(1514,1514) - JVS(6062) = -B(11917)-B(11918) -! JVS(6063) = Jac_FULL(1514,3889) - JVS(6063) = B(8169) -! JVS(6064) = Jac_FULL(1514,5250) - JVS(6064) = -B(11919) -! JVS(6065) = Jac_FULL(1514,5255) - JVS(6065) = B(8170) -! JVS(6066) = Jac_FULL(1515,1515) - JVS(6066) = -B(12238)-B(12240) -! JVS(6067) = Jac_FULL(1515,3964) - JVS(6067) = B(8532) -! JVS(6068) = Jac_FULL(1515,5250) - JVS(6068) = -B(12239) -! JVS(6069) = Jac_FULL(1515,5255) - JVS(6069) = B(8533) -! JVS(6070) = Jac_FULL(1516,1516) - JVS(6070) = -B(7640)-B(7641) -! JVS(6071) = Jac_FULL(1516,4634) - JVS(6071) = B(3777) -! JVS(6072) = Jac_FULL(1516,5250) - JVS(6072) = -B(7642) -! JVS(6073) = Jac_FULL(1516,5255) - JVS(6073) = B(3778) -! JVS(6074) = Jac_FULL(1517,1517) - JVS(6074) = -B(17015)-B(17017) -! JVS(6075) = Jac_FULL(1517,3876) - JVS(6075) = B(14401) -! JVS(6076) = Jac_FULL(1517,5250) - JVS(6076) = -B(17016) -! JVS(6077) = Jac_FULL(1517,5255) - JVS(6077) = B(14402) -! JVS(6078) = Jac_FULL(1518,1518) - JVS(6078) = -B(20448)-B(20449) -! JVS(6079) = Jac_FULL(1518,4658) - JVS(6079) = B(18856) -! JVS(6080) = Jac_FULL(1518,5250) - JVS(6080) = -B(20450) -! JVS(6081) = Jac_FULL(1518,5255) - JVS(6081) = B(18857) -! JVS(6082) = Jac_FULL(1519,1519) - JVS(6082) = -B(23499)-B(23501) -! JVS(6083) = Jac_FULL(1519,4196) - JVS(6083) = B(23152) -! JVS(6084) = Jac_FULL(1519,5250) - JVS(6084) = -B(23500) -! JVS(6085) = Jac_FULL(1519,5255) - JVS(6085) = B(23153) -! JVS(6086) = Jac_FULL(1520,1520) - JVS(6086) = -B(7458) -! JVS(6087) = Jac_FULL(1520,3863) - JVS(6087) = B(3542) -! JVS(6088) = Jac_FULL(1520,3867) - JVS(6088) = B(3551) -! JVS(6089) = Jac_FULL(1520,5250) - JVS(6089) = -B(7459) -! JVS(6090) = Jac_FULL(1521,1521) - JVS(6090) = -B(11752) -! JVS(6091) = Jac_FULL(1521,3870) - JVS(6091) = B(8026) -! JVS(6092) = Jac_FULL(1521,3961) - JVS(6092) = B(8059) -! JVS(6093) = Jac_FULL(1521,5250) - JVS(6093) = -B(11753) -! JVS(6094) = Jac_FULL(1522,1522) - JVS(6094) = -B(23280)-B(23282) -! JVS(6095) = Jac_FULL(1522,4447) - JVS(6095) = B(22872) -! JVS(6096) = Jac_FULL(1522,5250) - JVS(6096) = -B(23281) -! JVS(6097) = Jac_FULL(1522,5255) - JVS(6097) = B(22873) -! JVS(6098) = Jac_FULL(1523,1523) - JVS(6098) = -B(17235)-B(17237) -! JVS(6099) = Jac_FULL(1523,4940) - JVS(6099) = B(14612) -! JVS(6100) = Jac_FULL(1523,5250) - JVS(6100) = -B(17236) -! JVS(6101) = Jac_FULL(1523,5255) - JVS(6101) = B(14613) -! JVS(6102) = Jac_FULL(1524,1524) - JVS(6102) = -B(18644)-B(18646) -! JVS(6103) = Jac_FULL(1524,4252) - JVS(6103) = B(16343) -! JVS(6104) = Jac_FULL(1524,5250) - JVS(6104) = -B(18645) -! JVS(6105) = Jac_FULL(1524,5255) - JVS(6105) = B(16344) -! JVS(6106) = Jac_FULL(1525,1525) - JVS(6106) = -B(6348)-B(6350) -! JVS(6107) = Jac_FULL(1525,3527) - JVS(6107) = B(2877) -! JVS(6108) = Jac_FULL(1525,5250) - JVS(6108) = -B(6349) -! JVS(6109) = Jac_FULL(1525,5255) - JVS(6109) = B(2878) -! JVS(6110) = Jac_FULL(1526,1526) - JVS(6110) = -B(17954)-B(17955) -! JVS(6111) = Jac_FULL(1526,4715) - JVS(6111) = B(15354) -! JVS(6112) = Jac_FULL(1526,5250) - JVS(6112) = -B(17956) -! JVS(6113) = Jac_FULL(1526,5255) - JVS(6113) = B(15355) -! JVS(6114) = Jac_FULL(1527,1527) - JVS(6114) = -B(23626)-B(23628) -! JVS(6115) = Jac_FULL(1527,4117) - JVS(6115) = B(23366) -! JVS(6116) = Jac_FULL(1527,5250) - JVS(6116) = -B(23627) -! JVS(6117) = Jac_FULL(1527,5255) - JVS(6117) = B(23367) -! JVS(6118) = Jac_FULL(1528,1528) - JVS(6118) = -B(22913)-B(22915) -! JVS(6119) = Jac_FULL(1528,3750) - JVS(6119) = B(22451) -! JVS(6120) = Jac_FULL(1528,5250) - JVS(6120) = -B(22914) -! JVS(6121) = Jac_FULL(1528,5255) - JVS(6121) = B(22452) -! JVS(6122) = Jac_FULL(1529,1529) - JVS(6122) = -B(13571) -! JVS(6123) = Jac_FULL(1529,4578) - JVS(6123) = B(10381) -! JVS(6124) = Jac_FULL(1529,5250) - JVS(6124) = -B(13572) -! JVS(6125) = Jac_FULL(1529,5252) - JVS(6125) = B(10382) -! JVS(6126) = Jac_FULL(1530,1530) - JVS(6126) = -B(16439)-B(16441) -! JVS(6127) = Jac_FULL(1530,3788) - JVS(6127) = B(13411) -! JVS(6128) = Jac_FULL(1530,5250) - JVS(6128) = -B(16440) -! JVS(6129) = Jac_FULL(1530,5255) - JVS(6129) = B(13412) -! JVS(6130) = Jac_FULL(1531,1531) - JVS(6130) = -B(11477) -! JVS(6131) = Jac_FULL(1531,4785) - JVS(6131) = B(7669) -! JVS(6132) = Jac_FULL(1531,5250) - JVS(6132) = -B(11478) -! JVS(6133) = Jac_FULL(1531,5252) - JVS(6133) = B(7670) -! JVS(6134) = Jac_FULL(1532,1532) - JVS(6134) = -B(18516)-B(18518) -! JVS(6135) = Jac_FULL(1532,4193) - JVS(6135) = B(16153) -! JVS(6136) = Jac_FULL(1532,5250) - JVS(6136) = -B(18517) -! JVS(6137) = Jac_FULL(1532,5255) - JVS(6137) = B(16154) -! JVS(6138) = Jac_FULL(1533,1533) - JVS(6138) = -B(5590)-B(5592) -! JVS(6139) = Jac_FULL(1533,4529) - JVS(6139) = B(2515) -! JVS(6140) = Jac_FULL(1533,5250) - JVS(6140) = -B(5591) -! JVS(6141) = Jac_FULL(1533,5255) - JVS(6141) = B(2516) -! JVS(6142) = Jac_FULL(1534,1534) - JVS(6142) = -B(12155)-B(12156) -! JVS(6143) = Jac_FULL(1534,3704) - JVS(6143) = B(8407) -! JVS(6144) = Jac_FULL(1534,5250) - JVS(6144) = -B(12157) -! JVS(6145) = Jac_FULL(1534,5255) - JVS(6145) = B(8408) -! JVS(6146) = Jac_FULL(1535,1535) - JVS(6146) = -B(6194)-B(6196) -! JVS(6147) = Jac_FULL(1535,4074) - JVS(6147) = B(2812) -! JVS(6148) = Jac_FULL(1535,5250) - JVS(6148) = -B(6195) -! JVS(6149) = Jac_FULL(1535,5255) - JVS(6149) = B(2813) -! JVS(6150) = Jac_FULL(1536,1536) - JVS(6150) = -B(12159)-B(12161) -! JVS(6151) = Jac_FULL(1536,3952) - JVS(6151) = B(8414) -! JVS(6152) = Jac_FULL(1536,5250) - JVS(6152) = -B(12160) -! JVS(6153) = Jac_FULL(1536,5255) - JVS(6153) = B(8415) -! JVS(6154) = Jac_FULL(1537,1537) - JVS(6154) = -B(13160)-B(13162) -! JVS(6155) = Jac_FULL(1537,4139) - JVS(6155) = B(9707) -! JVS(6156) = Jac_FULL(1537,5250) - JVS(6156) = -B(13161) -! JVS(6157) = Jac_FULL(1537,5255) - JVS(6157) = B(9708) -! JVS(6158) = Jac_FULL(1538,1538) - JVS(6158) = -B(23798)-B(23800) -! JVS(6159) = Jac_FULL(1538,4346) - JVS(6159) = B(23582) -! JVS(6160) = Jac_FULL(1538,5250) - JVS(6160) = -B(23799) -! JVS(6161) = Jac_FULL(1538,5255) - JVS(6161) = B(23583) -! JVS(6162) = Jac_FULL(1539,1539) - JVS(6162) = -B(15981)-B(15983) -! JVS(6163) = Jac_FULL(1539,4065) - JVS(6163) = B(12887) -! JVS(6164) = Jac_FULL(1539,5250) - JVS(6164) = -B(15982) -! JVS(6165) = Jac_FULL(1539,5255) - JVS(6165) = B(12888) -! JVS(6166) = Jac_FULL(1540,1540) - JVS(6166) = -B(20768)-B(20770) -! JVS(6167) = Jac_FULL(1540,4484) - JVS(6167) = B(19172) -! JVS(6168) = Jac_FULL(1540,5250) - JVS(6168) = -B(20769) -! JVS(6169) = Jac_FULL(1540,5255) - JVS(6169) = B(19173) -! JVS(6170) = Jac_FULL(1541,1541) - JVS(6170) = -B(22855)-B(22857) -! JVS(6171) = Jac_FULL(1541,4867) - JVS(6171) = B(22372) -! JVS(6172) = Jac_FULL(1541,5250) - JVS(6172) = -B(22856) -! JVS(6173) = Jac_FULL(1541,5255) - JVS(6173) = B(22373) -! JVS(6174) = Jac_FULL(1542,1542) - JVS(6174) = -B(5932)-B(5934) -! JVS(6175) = Jac_FULL(1542,3521) - JVS(6175) = B(2678) -! JVS(6176) = Jac_FULL(1542,5250) - JVS(6176) = -B(5933) -! JVS(6177) = Jac_FULL(1542,5255) - JVS(6177) = B(2679) -! JVS(6178) = Jac_FULL(1543,1543) - JVS(6178) = -B(17984)-B(17985) -! JVS(6179) = Jac_FULL(1543,4709) - JVS(6179) = B(15382) -! JVS(6180) = Jac_FULL(1543,5250) - JVS(6180) = -B(17986) -! JVS(6181) = Jac_FULL(1543,5255) - JVS(6181) = B(15383) -! JVS(6182) = Jac_FULL(1544,1544) - JVS(6182) = -B(23909)-B(23910) -! JVS(6183) = Jac_FULL(1544,3874) - JVS(6183) = B(23766) -! JVS(6184) = Jac_FULL(1544,5250) - JVS(6184) = -B(23911) -! JVS(6185) = Jac_FULL(1544,5255) - JVS(6185) = B(23767) -! JVS(6186) = Jac_FULL(1545,1545) - JVS(6186) = -B(11466)-B(11467) -! JVS(6187) = Jac_FULL(1545,5136) - JVS(6187) = B(7627) -! JVS(6188) = Jac_FULL(1545,5250) - JVS(6188) = -B(11468) -! JVS(6189) = Jac_FULL(1545,5255) - JVS(6189) = B(7628) -! JVS(6190) = Jac_FULL(1546,1546) - JVS(6190) = -B(23045)-B(23047) -! JVS(6191) = Jac_FULL(1546,4442) - JVS(6191) = B(22608) -! JVS(6192) = Jac_FULL(1546,5250) - JVS(6192) = -B(23046) -! JVS(6193) = Jac_FULL(1546,5255) - JVS(6193) = B(22609) -! JVS(6194) = Jac_FULL(1547,1547) - JVS(6194) = -B(17711)-B(17712) -! JVS(6195) = Jac_FULL(1547,5090) - JVS(6195) = B(15138) -! JVS(6196) = Jac_FULL(1547,5250) - JVS(6196) = -B(17713) -! JVS(6197) = Jac_FULL(1547,5255) - JVS(6197) = B(15139) -! JVS(6198) = Jac_FULL(1548,1548) - JVS(6198) = -B(19662)-B(19663) -! JVS(6199) = Jac_FULL(1548,4566) - JVS(6199) = B(17768) -! JVS(6200) = Jac_FULL(1548,5250) - JVS(6200) = -B(19664) -! JVS(6201) = Jac_FULL(1549,1549) - JVS(6201) = -B(8992)-B(8994) -! JVS(6202) = Jac_FULL(1549,3820) - JVS(6202) = B(5457) -! JVS(6203) = Jac_FULL(1549,5250) - JVS(6203) = -B(8993) -! JVS(6204) = Jac_FULL(1550,257) - JVS(6204) = B(22009) -! JVS(6205) = Jac_FULL(1550,1119) - JVS(6205) = B(22000) -! JVS(6206) = Jac_FULL(1550,1550) - JVS(6206) = -B(22007) -! JVS(6207) = Jac_FULL(1550,1551) - JVS(6207) = B(22003) -! JVS(6208) = Jac_FULL(1550,3011) - JVS(6208) = B(20972) -! JVS(6209) = Jac_FULL(1550,3686) - JVS(6209) = B(20969) -! JVS(6210) = Jac_FULL(1550,5250) - JVS(6210) = B(20973)+B(22001)+B(22004)-B(22008)+B(22010) -! JVS(6211) = Jac_FULL(1550,5255) - JVS(6211) = 0 -! JVS(6212) = Jac_FULL(1551,1551) - JVS(6212) = -B(22003)-B(22005) -! JVS(6213) = Jac_FULL(1551,3686) - JVS(6213) = B(20963) -! JVS(6214) = Jac_FULL(1551,5250) - JVS(6214) = -B(22004) -! JVS(6215) = Jac_FULL(1551,5252) - JVS(6215) = B(20964) -! JVS(6216) = Jac_FULL(1552,1552) - JVS(6216) = -B(17725) -! JVS(6217) = Jac_FULL(1552,1907) - JVS(6217) = B(17717) -! JVS(6218) = Jac_FULL(1552,2419) - JVS(6218) = B(17722) -! JVS(6219) = Jac_FULL(1552,4058) - JVS(6219) = B(15154)+B(15156)+B(15158) -! JVS(6220) = Jac_FULL(1552,5252) - JVS(6220) = B(15155) -! JVS(6221) = Jac_FULL(1552,5256) - JVS(6221) = B(15157) -! JVS(6222) = Jac_FULL(1553,1553) - JVS(6222) = -B(13964) -! JVS(6223) = Jac_FULL(1553,2672) - JVS(6223) = B(13963) -! JVS(6224) = Jac_FULL(1553,2753) - JVS(6224) = B(13958) -! JVS(6225) = Jac_FULL(1553,4127) - JVS(6225) = B(10757)+B(10759)+B(10761) -! JVS(6226) = Jac_FULL(1553,5252) - JVS(6226) = B(10758) -! JVS(6227) = Jac_FULL(1553,5256) - JVS(6227) = B(10760) -! JVS(6228) = Jac_FULL(1554,1554) - JVS(6228) = -B(10104)-B(10106) -! JVS(6229) = Jac_FULL(1554,3825) - JVS(6229) = B(6400) -! JVS(6230) = Jac_FULL(1554,5250) - JVS(6230) = -B(10105) -! JVS(6231) = Jac_FULL(1555,1555) - JVS(6231) = -B(10050)-B(10052) -! JVS(6232) = Jac_FULL(1555,3791) - JVS(6232) = B(6341) -! JVS(6233) = Jac_FULL(1555,5250) - JVS(6233) = -B(10051) -! JVS(6234) = Jac_FULL(1556,608) - JVS(6234) = B(14184) -! JVS(6235) = Jac_FULL(1556,1556) - JVS(6235) = -B(14183) -! JVS(6236) = Jac_FULL(1556,3291) - JVS(6236) = B(14178) -! JVS(6237) = Jac_FULL(1556,4105) - JVS(6237) = B(10991)+B(10993)+B(10995) -! JVS(6238) = Jac_FULL(1556,5250) - JVS(6238) = 0 -! JVS(6239) = Jac_FULL(1556,5252) - JVS(6239) = B(10992) -! JVS(6240) = Jac_FULL(1556,5256) - JVS(6240) = B(10994) -! JVS(6241) = Jac_FULL(1557,1557) - JVS(6241) = -B(17810)-B(17811) -! JVS(6242) = Jac_FULL(1557,4967) - JVS(6242) = B(15233) -! JVS(6243) = Jac_FULL(1557,5250) - JVS(6243) = -B(17812) -! JVS(6244) = Jac_FULL(1558,1558) - JVS(6244) = -B(13689)-B(13691) -! JVS(6245) = Jac_FULL(1558,4976) - JVS(6245) = B(10524) -! JVS(6246) = Jac_FULL(1558,5250) - JVS(6246) = -B(13690) -! JVS(6247) = Jac_FULL(1559,1559) - JVS(6247) = -B(11978) -! JVS(6248) = Jac_FULL(1559,1992) - JVS(6248) = B(11970) -! JVS(6249) = Jac_FULL(1559,2218) - JVS(6249) = B(11975) -! JVS(6250) = Jac_FULL(1559,3667) - JVS(6250) = B(8228)+B(8230)+B(8232) -! JVS(6251) = Jac_FULL(1559,5252) - JVS(6251) = B(8229) -! JVS(6252) = Jac_FULL(1559,5256) - JVS(6252) = B(8231) -! JVS(6253) = Jac_FULL(1560,1560) - JVS(6253) = -B(10023)-B(10025)-B(10026) -! JVS(6254) = Jac_FULL(1560,4897) - JVS(6254) = B(6321) -! JVS(6255) = Jac_FULL(1560,5250) - JVS(6255) = -B(10024) -! JVS(6256) = Jac_FULL(1561,1561) - JVS(6256) = -B(22529)-B(22531) -! JVS(6257) = Jac_FULL(1561,4242) - JVS(6257) = B(21934) -! JVS(6258) = Jac_FULL(1561,5250) - JVS(6258) = -B(22530) -! JVS(6259) = Jac_FULL(1562,1562) - JVS(6259) = -B(12216)-B(12218) -! JVS(6260) = Jac_FULL(1562,4817) - JVS(6260) = B(8496) -! JVS(6261) = Jac_FULL(1562,5250) - JVS(6261) = -B(12217) -! JVS(6262) = Jac_FULL(1563,1563) - JVS(6262) = -B(11783) -! JVS(6263) = Jac_FULL(1563,2835) - JVS(6263) = B(11780) -! JVS(6264) = Jac_FULL(1563,3046) - JVS(6264) = B(11775) -! JVS(6265) = Jac_FULL(1563,3961) - JVS(6265) = B(8055)+B(8057)+B(8061) -! JVS(6266) = Jac_FULL(1563,5252) - JVS(6266) = B(8056) -! JVS(6267) = Jac_FULL(1563,5256) - JVS(6267) = B(8058) -! JVS(6268) = Jac_FULL(1564,1564) - JVS(6268) = -B(11819) -! JVS(6269) = Jac_FULL(1564,2543) - JVS(6269) = B(11811) -! JVS(6270) = Jac_FULL(1564,2653) - JVS(6270) = B(11816) -! JVS(6271) = Jac_FULL(1564,3869) - JVS(6271) = B(8088)+B(8090)+B(8094) -! JVS(6272) = Jac_FULL(1564,5252) - JVS(6272) = B(8089) -! JVS(6273) = Jac_FULL(1564,5256) - JVS(6273) = B(8091) -! JVS(6274) = Jac_FULL(1565,1036) - JVS(6274) = B(7297) -! JVS(6275) = Jac_FULL(1565,1565) - JVS(6275) = -B(7303) -! JVS(6276) = Jac_FULL(1565,2023) - JVS(6276) = B(7241) -! JVS(6277) = Jac_FULL(1565,2058) - JVS(6277) = B(7299) -! JVS(6278) = Jac_FULL(1565,3921) - JVS(6278) = 0 -! JVS(6279) = Jac_FULL(1565,3936) - JVS(6279) = B(3446) -! JVS(6280) = Jac_FULL(1565,5250) - JVS(6280) = B(7242)+B(7298)+B(7300)-B(7304) -! JVS(6281) = Jac_FULL(1566,1566) - JVS(6281) = -B(14105)-B(14106) -! JVS(6282) = Jac_FULL(1566,4446) - JVS(6282) = B(10909) -! JVS(6283) = Jac_FULL(1566,5250) - JVS(6283) = -B(14107) -! JVS(6284) = Jac_FULL(1567,1567) - JVS(6284) = -B(9965)-B(9967) -! JVS(6285) = Jac_FULL(1567,3665) - JVS(6285) = B(6253) -! JVS(6286) = Jac_FULL(1567,5250) - JVS(6286) = -B(9966) -! JVS(6287) = Jac_FULL(1568,1568) - JVS(6287) = -B(3728) -! JVS(6288) = Jac_FULL(1568,2235) - JVS(6288) = B(3724) -! JVS(6289) = Jac_FULL(1568,2261) - JVS(6289) = B(3727) -! JVS(6290) = Jac_FULL(1568,4411) - JVS(6290) = B(1012)+B(1014)+B(1017) -! JVS(6291) = Jac_FULL(1568,5252) - JVS(6291) = B(1013) -! JVS(6292) = Jac_FULL(1568,5256) - JVS(6292) = B(1015) -! JVS(6293) = Jac_FULL(1569,1569) - JVS(6293) = -B(14815)-B(14816)-B(14817) -! JVS(6294) = Jac_FULL(1569,5249) - JVS(6294) = B(11432) -! JVS(6295) = Jac_FULL(1569,5258) - JVS(6295) = B(11433) -! JVS(6296) = Jac_FULL(1570,1570) - JVS(6296) = -B(12394)-B(12396) -! JVS(6297) = Jac_FULL(1570,4358) - JVS(6297) = B(8748) -! JVS(6298) = Jac_FULL(1570,5250) - JVS(6298) = -B(12395) -! JVS(6299) = Jac_FULL(1571,1571) - JVS(6299) = -B(19757)-B(19758) -! JVS(6300) = Jac_FULL(1571,4369) - JVS(6300) = B(17888) -! JVS(6301) = Jac_FULL(1571,5250) - JVS(6301) = -B(19759) -! JVS(6302) = Jac_FULL(1572,24) - JVS(6302) = B(16944) -! JVS(6303) = Jac_FULL(1572,1147) - JVS(6303) = B(16940) -! JVS(6304) = Jac_FULL(1572,1572) - JVS(6304) = -B(16943) -! JVS(6305) = Jac_FULL(1572,4092) - JVS(6305) = B(14319)+B(14321)+B(14323) -! JVS(6306) = Jac_FULL(1572,5250) - JVS(6306) = B(16945) -! JVS(6307) = Jac_FULL(1572,5252) - JVS(6307) = B(14320) -! JVS(6308) = Jac_FULL(1572,5255) - JVS(6308) = 0 -! JVS(6309) = Jac_FULL(1572,5256) - JVS(6309) = B(14322) -! JVS(6310) = Jac_FULL(1573,181) - JVS(6310) = B(124) -! JVS(6311) = Jac_FULL(1573,1573) - JVS(6311) = -B(1080)-B(1082)-B(1084) -! JVS(6312) = Jac_FULL(1573,5250) - JVS(6312) = B(125)-B(1083)-B(1085) -! JVS(6313) = Jac_FULL(1573,5256) - JVS(6313) = -B(1081) -! JVS(6314) = Jac_FULL(1574,1574) - JVS(6314) = -B(7023) -! JVS(6315) = Jac_FULL(1574,2774) - JVS(6315) = B(7022) -! JVS(6316) = Jac_FULL(1574,3077) - JVS(6316) = B(4849) -! JVS(6317) = Jac_FULL(1574,5053) - JVS(6317) = B(3229)+B(3231)+B(3234) -! JVS(6318) = Jac_FULL(1574,5252) - JVS(6318) = B(3230) -! JVS(6319) = Jac_FULL(1574,5256) - JVS(6319) = B(3232) -! JVS(6320) = Jac_FULL(1575,1575) - JVS(6320) = -B(16676)-B(16677) -! JVS(6321) = Jac_FULL(1575,3552) - JVS(6321) = B(13851) -! JVS(6322) = Jac_FULL(1575,5250) - JVS(6322) = B(13852)-B(16678) -! JVS(6323) = Jac_FULL(1576,1576) - JVS(6323) = -B(10304)-B(10306) -! JVS(6324) = Jac_FULL(1576,4813) - JVS(6324) = B(6579) -! JVS(6325) = Jac_FULL(1576,5250) - JVS(6325) = -B(10305) -! JVS(6326) = Jac_FULL(1577,1577) - JVS(6326) = -B(136)-B(138)-B(140) -! JVS(6327) = Jac_FULL(1577,4901) - JVS(6327) = B(1682) -! JVS(6328) = Jac_FULL(1577,5250) - JVS(6328) = -B(137)-B(139)-B(141) -! JVS(6329) = Jac_FULL(1578,1578) - JVS(6329) = -B(16211)-B(16213) -! JVS(6330) = Jac_FULL(1578,4674) - JVS(6330) = B(13180) -! JVS(6331) = Jac_FULL(1578,5250) - JVS(6331) = -B(16212) -! JVS(6332) = Jac_FULL(1579,657) - JVS(6332) = B(22450) -! JVS(6333) = Jac_FULL(1579,1139) - JVS(6333) = B(22443) -! JVS(6334) = Jac_FULL(1579,1579) - JVS(6334) = -B(22444) -! JVS(6335) = Jac_FULL(1579,4142) - JVS(6335) = B(21820)+B(21822)+B(21825) -! JVS(6336) = Jac_FULL(1579,5250) - JVS(6336) = 0 -! JVS(6337) = Jac_FULL(1579,5252) - JVS(6337) = B(21821) -! JVS(6338) = Jac_FULL(1579,5255) - JVS(6338) = 0 -! JVS(6339) = Jac_FULL(1579,5256) - JVS(6339) = B(21823) -! JVS(6340) = Jac_FULL(1580,1580) - JVS(6340) = -B(805)-B(807)-B(809) -! JVS(6341) = Jac_FULL(1580,5250) - JVS(6341) = -B(808)-B(810) -! JVS(6342) = Jac_FULL(1580,5256) - JVS(6342) = -B(806) -! JVS(6343) = Jac_FULL(1581,1520) - JVS(6343) = B(7458) -! JVS(6344) = Jac_FULL(1581,1581) - JVS(6344) = -B(7464) -! JVS(6345) = Jac_FULL(1581,1911) - JVS(6345) = B(7460) -! JVS(6346) = Jac_FULL(1581,1915) - JVS(6346) = B(7411) -! JVS(6347) = Jac_FULL(1581,3863) - JVS(6347) = 0 -! JVS(6348) = Jac_FULL(1581,3867) - JVS(6348) = B(3552) -! JVS(6349) = Jac_FULL(1581,5250) - JVS(6349) = B(7412)+B(7459)+B(7461)-B(7465) -! JVS(6350) = Jac_FULL(1582,1582) - JVS(6350) = -B(3966)-B(3968) -! JVS(6351) = Jac_FULL(1582,4698) - JVS(6351) = B(1198) -! JVS(6352) = Jac_FULL(1582,5250) - JVS(6352) = -B(3967) -! JVS(6353) = Jac_FULL(1583,1583) - JVS(6353) = -B(9955) -! JVS(6354) = Jac_FULL(1583,1584) - JVS(6354) = B(9959) -! JVS(6355) = Jac_FULL(1583,1968) - JVS(6355) = B(9954) -! JVS(6356) = Jac_FULL(1583,4311) - JVS(6356) = B(6240)+B(6242)+B(6244) -! JVS(6357) = Jac_FULL(1583,5252) - JVS(6357) = B(6241) -! JVS(6358) = Jac_FULL(1583,5256) - JVS(6358) = B(6243) -! JVS(6359) = Jac_FULL(1584,1584) - JVS(6359) = -B(9956)-B(9958)-B(9959) -! JVS(6360) = Jac_FULL(1584,4311) - JVS(6360) = B(6245) -! JVS(6361) = Jac_FULL(1584,5250) - JVS(6361) = -B(9957) -! JVS(6362) = Jac_FULL(1585,1585) - JVS(6362) = -B(11207)-B(11209) -! JVS(6363) = Jac_FULL(1585,4148) - JVS(6363) = B(7421) -! JVS(6364) = Jac_FULL(1585,5250) - JVS(6364) = -B(11208) -! JVS(6365) = Jac_FULL(1586,1586) - JVS(6365) = -B(19386)-B(19388) -! JVS(6366) = Jac_FULL(1586,4145) - JVS(6366) = B(17153) -! JVS(6367) = Jac_FULL(1586,5250) - JVS(6367) = -B(19387) -! JVS(6368) = Jac_FULL(1587,1587) - JVS(6368) = -B(7204)-B(7206) -! JVS(6369) = Jac_FULL(1587,4594) - JVS(6369) = B(3384) -! JVS(6370) = Jac_FULL(1587,5250) - JVS(6370) = -B(7205) -! JVS(6371) = Jac_FULL(1588,1588) - JVS(6371) = -B(8895)-B(8897) -! JVS(6372) = Jac_FULL(1588,4432) - JVS(6372) = B(5382) -! JVS(6373) = Jac_FULL(1588,5250) - JVS(6373) = -B(8896) -! JVS(6374) = Jac_FULL(1589,1589) - JVS(6374) = -B(9835)-B(9837) -! JVS(6375) = Jac_FULL(1589,3641) - JVS(6375) = B(6130) -! JVS(6376) = Jac_FULL(1589,5250) - JVS(6376) = -B(9836) -! JVS(6377) = Jac_FULL(1590,266) - JVS(6377) = B(22057) -! JVS(6378) = Jac_FULL(1590,1149) - JVS(6378) = B(22048) -! JVS(6379) = Jac_FULL(1590,1590) - JVS(6379) = -B(22055) -! JVS(6380) = Jac_FULL(1590,1591) - JVS(6380) = B(22051) -! JVS(6381) = Jac_FULL(1590,2613) - JVS(6381) = B(21026) -! JVS(6382) = Jac_FULL(1590,3764) - JVS(6382) = B(21023) -! JVS(6383) = Jac_FULL(1590,5250) - JVS(6383) = B(21027)+B(22049)+B(22052)-B(22056)+B(22058) -! JVS(6384) = Jac_FULL(1590,5255) - JVS(6384) = 0 -! JVS(6385) = Jac_FULL(1591,1591) - JVS(6385) = -B(22051)-B(22053) -! JVS(6386) = Jac_FULL(1591,3764) - JVS(6386) = B(21017) -! JVS(6387) = Jac_FULL(1591,5250) - JVS(6387) = -B(22052) -! JVS(6388) = Jac_FULL(1591,5252) - JVS(6388) = B(21018) -! JVS(6389) = Jac_FULL(1592,1592) - JVS(6389) = -B(7013) -! JVS(6390) = Jac_FULL(1592,2715) - JVS(6390) = B(7012) -! JVS(6391) = Jac_FULL(1592,3328) - JVS(6391) = B(4889) -! JVS(6392) = Jac_FULL(1592,5098) - JVS(6392) = B(3220)+B(3222)+B(3226) -! JVS(6393) = Jac_FULL(1592,5252) - JVS(6393) = B(3221) -! JVS(6394) = Jac_FULL(1592,5256) - JVS(6394) = B(3223) -! JVS(6395) = Jac_FULL(1593,1593) - JVS(6395) = -B(18966) -! JVS(6396) = Jac_FULL(1593,2664) - JVS(6396) = B(18965) -! JVS(6397) = Jac_FULL(1593,2810) - JVS(6397) = B(18962) -! JVS(6398) = Jac_FULL(1593,4614) - JVS(6398) = B(16745)+B(16747)+B(16751) -! JVS(6399) = Jac_FULL(1593,5252) - JVS(6399) = B(16746) -! JVS(6400) = Jac_FULL(1593,5256) - JVS(6400) = B(16748) -! JVS(6401) = Jac_FULL(1594,1594) - JVS(6401) = -B(10194)-B(10196) -! JVS(6402) = Jac_FULL(1594,3631) - JVS(6402) = B(6490) -! JVS(6403) = Jac_FULL(1594,5250) - JVS(6403) = -B(10195) -! JVS(6404) = Jac_FULL(1595,1595) - JVS(6404) = -B(7051) -! JVS(6405) = Jac_FULL(1595,3035) - JVS(6405) = B(7050) -! JVS(6406) = Jac_FULL(1595,3409) - JVS(6406) = B(4991) -! JVS(6407) = Jac_FULL(1595,4858) - JVS(6407) = B(3249)+B(3251)+B(3254) -! JVS(6408) = Jac_FULL(1595,5252) - JVS(6408) = B(3250) -! JVS(6409) = Jac_FULL(1595,5256) - JVS(6409) = B(3252) -! JVS(6410) = Jac_FULL(1596,1596) - JVS(6410) = -B(112)-B(114)-B(116) -! JVS(6411) = Jac_FULL(1596,4876) - JVS(6411) = B(1661) -! JVS(6412) = Jac_FULL(1596,5250) - JVS(6412) = -B(113)-B(115)-B(117) -! JVS(6413) = Jac_FULL(1597,1597) - JVS(6413) = -B(16769) -! JVS(6414) = Jac_FULL(1597,2764) - JVS(6414) = B(16768) -! JVS(6415) = Jac_FULL(1597,2976) - JVS(6415) = B(16763) -! JVS(6416) = Jac_FULL(1597,4612) - JVS(6416) = B(13973)+B(13975)+B(13977) -! JVS(6417) = Jac_FULL(1597,5252) - JVS(6417) = B(13974) -! JVS(6418) = Jac_FULL(1597,5256) - JVS(6418) = B(13976) -! JVS(6419) = Jac_FULL(1598,1598) - JVS(6419) = -B(9365)-B(9367) -! JVS(6420) = Jac_FULL(1598,4667) - JVS(6420) = B(5751) -! JVS(6421) = Jac_FULL(1598,5250) - JVS(6421) = -B(9366) -! JVS(6422) = Jac_FULL(1599,1599) - JVS(6422) = -B(7183)-B(7185) -! JVS(6423) = Jac_FULL(1599,4356) - JVS(6423) = B(3365) -! JVS(6424) = Jac_FULL(1599,5250) - JVS(6424) = -B(7184) -! JVS(6425) = Jac_FULL(1600,1600) - JVS(6425) = -B(9891)-B(9893) -! JVS(6426) = Jac_FULL(1600,4935) - JVS(6426) = B(6180) -! JVS(6427) = Jac_FULL(1600,5250) - JVS(6427) = -B(9892) -! JVS(6428) = Jac_FULL(1601,1601) - JVS(6428) = -B(14162)-B(14164) -! JVS(6429) = Jac_FULL(1601,4365) - JVS(6429) = B(10962) -! JVS(6430) = Jac_FULL(1601,5250) - JVS(6430) = -B(14163) -! JVS(6431) = Jac_FULL(1602,1602) - JVS(6431) = -B(15562)-B(15564) -! JVS(6432) = Jac_FULL(1602,4861) - JVS(6432) = B(12466) -! JVS(6433) = Jac_FULL(1602,5250) - JVS(6433) = -B(15563) -! JVS(6434) = Jac_FULL(1603,1603) - JVS(6434) = -B(18780)-B(18781) -! JVS(6435) = Jac_FULL(1603,4066) - JVS(6435) = B(16582) -! JVS(6436) = Jac_FULL(1603,5250) - JVS(6436) = B(16583)-B(18782) -! JVS(6437) = Jac_FULL(1604,336) - JVS(6437) = B(11134) -! JVS(6438) = Jac_FULL(1604,904) - JVS(6438) = B(11124) -! JVS(6439) = Jac_FULL(1604,1604) - JVS(6439) = -B(11132) -! JVS(6440) = Jac_FULL(1604,2296) - JVS(6440) = B(11127) -! JVS(6441) = Jac_FULL(1604,3398) - JVS(6441) = B(11131) -! JVS(6442) = Jac_FULL(1604,3852) - JVS(6442) = B(7339) -! JVS(6443) = Jac_FULL(1604,5250) - JVS(6443) = B(11125)+B(11128)-B(11133)+B(11135) -! JVS(6444) = Jac_FULL(1604,5255) - JVS(6444) = 0 -! JVS(6445) = Jac_FULL(1605,457) - JVS(6445) = B(17107) -! JVS(6446) = Jac_FULL(1605,1325) - JVS(6446) = B(17111) -! JVS(6447) = Jac_FULL(1605,1605) - JVS(6447) = -B(17105)-B(17106) -! JVS(6448) = Jac_FULL(1605,4953) - JVS(6448) = B(14454)+B(14460)+B(14464)+B(14466) -! JVS(6449) = Jac_FULL(1605,5250) - JVS(6449) = B(17108) -! JVS(6450) = Jac_FULL(1605,5252) - JVS(6450) = B(14461) -! JVS(6451) = Jac_FULL(1605,5255) - JVS(6451) = B(14455) -! JVS(6452) = Jac_FULL(1605,5256) - JVS(6452) = B(14465) -! JVS(6453) = Jac_FULL(1606,58) - JVS(6453) = B(15737) -! JVS(6454) = Jac_FULL(1606,1443) - JVS(6454) = B(15735) -! JVS(6455) = Jac_FULL(1606,1606) - JVS(6455) = -B(15736) -! JVS(6456) = Jac_FULL(1606,3695) - JVS(6456) = B(12669)+B(12671)+B(12673) -! JVS(6457) = Jac_FULL(1606,5250) - JVS(6457) = B(15738) -! JVS(6458) = Jac_FULL(1606,5252) - JVS(6458) = B(12670) -! JVS(6459) = Jac_FULL(1606,5255) - JVS(6459) = 0 -! JVS(6460) = Jac_FULL(1606,5256) - JVS(6460) = B(12672) -! JVS(6461) = Jac_FULL(1607,664) - JVS(6461) = B(17695) -! JVS(6462) = Jac_FULL(1607,1191) - JVS(6462) = B(17691) -! JVS(6463) = Jac_FULL(1607,1607) - JVS(6463) = -B(17694) -! JVS(6464) = Jac_FULL(1607,4697) - JVS(6464) = B(15121)+B(15123)+B(15125) -! JVS(6465) = Jac_FULL(1607,5250) - JVS(6465) = 0 -! JVS(6466) = Jac_FULL(1607,5252) - JVS(6466) = B(15122) -! JVS(6467) = Jac_FULL(1607,5255) - JVS(6467) = 0 -! JVS(6468) = Jac_FULL(1607,5256) - JVS(6468) = B(15124) -! JVS(6469) = Jac_FULL(1608,864) - JVS(6469) = B(16904) -! JVS(6470) = Jac_FULL(1608,1489) - JVS(6470) = B(16899)+B(16901) -! JVS(6471) = Jac_FULL(1608,1608) - JVS(6471) = -B(16897)-B(16898) -! JVS(6472) = Jac_FULL(1608,4910) - JVS(6472) = B(14254)+B(14260)+B(14264)+B(14266) -! JVS(6473) = Jac_FULL(1608,5250) - JVS(6473) = B(16900) -! JVS(6474) = Jac_FULL(1608,5252) - JVS(6474) = B(14261) -! JVS(6475) = Jac_FULL(1608,5255) - JVS(6475) = B(14255) -! JVS(6476) = Jac_FULL(1608,5256) - JVS(6476) = B(14265) -! JVS(6477) = Jac_FULL(1609,1609) - JVS(6477) = -B(9126)-B(9128) -! JVS(6478) = Jac_FULL(1609,4483) - JVS(6478) = B(5547) -! JVS(6479) = Jac_FULL(1609,5250) - JVS(6479) = -B(9127) -! JVS(6480) = Jac_FULL(1610,1609) - JVS(6480) = B(9126) -! JVS(6481) = Jac_FULL(1610,1610) - JVS(6481) = -B(9123)-B(9125) -! JVS(6482) = Jac_FULL(1610,1836) - JVS(6482) = B(9119) -! JVS(6483) = Jac_FULL(1610,4483) - JVS(6483) = B(5546) -! JVS(6484) = Jac_FULL(1610,5250) - JVS(6484) = B(9120)-B(9124)+B(9127) -! JVS(6485) = Jac_FULL(1611,1611) - JVS(6485) = -B(11351)-B(11353) -! JVS(6486) = Jac_FULL(1611,4754) - JVS(6486) = B(7519) -! JVS(6487) = Jac_FULL(1611,5250) - JVS(6487) = -B(11352) -! JVS(6488) = Jac_FULL(1612,1612) - JVS(6488) = -B(11409)-B(11411) -! JVS(6489) = Jac_FULL(1612,4746) - JVS(6489) = B(7554) -! JVS(6490) = Jac_FULL(1612,5250) - JVS(6490) = -B(11410) -! JVS(6491) = Jac_FULL(1613,1613) - JVS(6491) = -B(9287)-B(9289) -! JVS(6492) = Jac_FULL(1613,3813) - JVS(6492) = B(5693) -! JVS(6493) = Jac_FULL(1613,5250) - JVS(6493) = -B(9288) -! JVS(6494) = Jac_FULL(1614,1614) - JVS(6494) = -B(22065) -! JVS(6495) = Jac_FULL(1614,1801) - JVS(6495) = B(22061) -! JVS(6496) = Jac_FULL(1614,2524) - JVS(6496) = B(22064) -! JVS(6497) = Jac_FULL(1614,4385) - JVS(6497) = B(21033)+B(21035)+B(21037) -! JVS(6498) = Jac_FULL(1614,5252) - JVS(6498) = B(21034) -! JVS(6499) = Jac_FULL(1614,5256) - JVS(6499) = B(21036) -! JVS(6500) = Jac_FULL(1615,1615) - JVS(6500) = -B(19397)-B(19399) -! JVS(6501) = Jac_FULL(1615,4135) - JVS(6501) = B(17162) -! JVS(6502) = Jac_FULL(1615,5250) - JVS(6502) = -B(19398) -! JVS(6503) = Jac_FULL(1616,1616) - JVS(6503) = -B(11729) -! JVS(6504) = Jac_FULL(1616,2761) - JVS(6504) = B(11726) -! JVS(6505) = Jac_FULL(1616,2871) - JVS(6505) = B(11721) -! JVS(6506) = Jac_FULL(1616,3885) - JVS(6506) = B(8000)+B(8002)+B(8004) -! JVS(6507) = Jac_FULL(1616,5252) - JVS(6507) = B(8001) -! JVS(6508) = Jac_FULL(1616,5256) - JVS(6508) = B(8003) -! JVS(6509) = Jac_FULL(1617,515) - JVS(6509) = B(21992) -! JVS(6510) = Jac_FULL(1617,1511) - JVS(6510) = B(21996) -! JVS(6511) = Jac_FULL(1617,1617) - JVS(6511) = -B(21990)-B(21991) -! JVS(6512) = Jac_FULL(1617,5044) - JVS(6512) = B(20942)+B(20948)+B(20952)+B(20954) -! JVS(6513) = Jac_FULL(1617,5250) - JVS(6513) = B(21993) -! JVS(6514) = Jac_FULL(1617,5252) - JVS(6514) = B(20949) -! JVS(6515) = Jac_FULL(1617,5255) - JVS(6515) = B(20943) -! JVS(6516) = Jac_FULL(1617,5256) - JVS(6516) = B(20953) -! JVS(6517) = Jac_FULL(1618,1618) - JVS(6517) = -B(22476)-B(22478) -! JVS(6518) = Jac_FULL(1618,4418) - JVS(6518) = B(21860) -! JVS(6519) = Jac_FULL(1618,5250) - JVS(6519) = -B(22477) -! JVS(6520) = Jac_FULL(1619,1619) - JVS(6520) = -B(17232)-B(17234) -! JVS(6521) = Jac_FULL(1619,4542) - JVS(6521) = B(14611) -! JVS(6522) = Jac_FULL(1619,5250) - JVS(6522) = -B(17233) -! JVS(6523) = Jac_FULL(1620,118) - JVS(6523) = B(22114) -! JVS(6524) = Jac_FULL(1620,965) - JVS(6524) = B(22112) -! JVS(6525) = Jac_FULL(1620,1620) - JVS(6525) = -B(22113) -! JVS(6526) = Jac_FULL(1620,4734) - JVS(6526) = B(21083)+B(21085)+B(21087) -! JVS(6527) = Jac_FULL(1620,5250) - JVS(6527) = B(22115) -! JVS(6528) = Jac_FULL(1620,5252) - JVS(6528) = B(21084) -! JVS(6529) = Jac_FULL(1620,5255) - JVS(6529) = 0 -! JVS(6530) = Jac_FULL(1620,5256) - JVS(6530) = B(21086) -! JVS(6531) = Jac_FULL(1621,1621) - JVS(6531) = -B(12295)-B(12297) -! JVS(6532) = Jac_FULL(1621,4804) - JVS(6532) = B(8624) -! JVS(6533) = Jac_FULL(1621,5250) - JVS(6533) = -B(12296) -! JVS(6534) = Jac_FULL(1622,38) - JVS(6534) = B(16201) -! JVS(6535) = Jac_FULL(1622,1129) - JVS(6535) = B(16199) -! JVS(6536) = Jac_FULL(1622,1622) - JVS(6536) = -B(16200) -! JVS(6537) = Jac_FULL(1622,4480) - JVS(6537) = B(13138)+B(13140)+B(13142) -! JVS(6538) = Jac_FULL(1622,5250) - JVS(6538) = B(16202) -! JVS(6539) = Jac_FULL(1622,5252) - JVS(6539) = B(13139) -! JVS(6540) = Jac_FULL(1622,5255) - JVS(6540) = 0 -! JVS(6541) = Jac_FULL(1622,5256) - JVS(6541) = B(13141) -! JVS(6542) = Jac_FULL(1623,1623) - JVS(6542) = -B(9486)-B(9488) -! JVS(6543) = Jac_FULL(1623,4683) - JVS(6543) = B(5842) -! JVS(6544) = Jac_FULL(1623,5250) - JVS(6544) = -B(9487) -! JVS(6545) = Jac_FULL(1624,496) - JVS(6545) = B(17264) -! JVS(6546) = Jac_FULL(1624,1407) - JVS(6546) = B(17268) -! JVS(6547) = Jac_FULL(1624,1624) - JVS(6547) = -B(17262)-B(17263) -! JVS(6548) = Jac_FULL(1624,4989) - JVS(6548) = B(14679)+B(14685)+B(14689)+B(14691) -! JVS(6549) = Jac_FULL(1624,5250) - JVS(6549) = B(17265) -! JVS(6550) = Jac_FULL(1624,5252) - JVS(6550) = B(14686) -! JVS(6551) = Jac_FULL(1624,5255) - JVS(6551) = B(14680) -! JVS(6552) = Jac_FULL(1624,5256) - JVS(6552) = B(14690) -! JVS(6553) = Jac_FULL(1625,1625) - JVS(6553) = -B(18777)-B(18778) -! JVS(6554) = Jac_FULL(1625,3625) - JVS(6554) = B(16577) -! JVS(6555) = Jac_FULL(1625,5250) - JVS(6555) = B(16578)-B(18779) -! JVS(6556) = Jac_FULL(1626,1626) - JVS(6556) = -B(13550)-B(13551) -! JVS(6557) = Jac_FULL(1626,4159) - JVS(6557) = B(10373) -! JVS(6558) = Jac_FULL(1626,5250) - JVS(6558) = -B(13552) -! JVS(6559) = Jac_FULL(1627,1627) - JVS(6559) = -B(11956) -! JVS(6560) = Jac_FULL(1627,2633) - JVS(6560) = B(11948) -! JVS(6561) = Jac_FULL(1627,2713) - JVS(6561) = B(11953) -! JVS(6562) = Jac_FULL(1627,3859) - JVS(6562) = B(8203)+B(8205)+B(8208) -! JVS(6563) = Jac_FULL(1627,5252) - JVS(6563) = B(8204) -! JVS(6564) = Jac_FULL(1627,5256) - JVS(6564) = B(8206) -! JVS(6565) = Jac_FULL(1628,248) - JVS(6565) = B(17356) -! JVS(6566) = Jac_FULL(1628,1286) - JVS(6566) = B(17347) -! JVS(6567) = Jac_FULL(1628,1628) - JVS(6567) = -B(17354) -! JVS(6568) = Jac_FULL(1628,1629) - JVS(6568) = B(17350) -! JVS(6569) = Jac_FULL(1628,2648) - JVS(6569) = B(17259) -! JVS(6570) = Jac_FULL(1628,4088) - JVS(6570) = B(14762) -! JVS(6571) = Jac_FULL(1628,5250) - JVS(6571) = B(17260)+B(17348)+B(17351)-B(17355)+B(17357) -! JVS(6572) = Jac_FULL(1628,5255) - JVS(6572) = 0 -! JVS(6573) = Jac_FULL(1629,1629) - JVS(6573) = -B(17350)-B(17352) -! JVS(6574) = Jac_FULL(1629,4088) - JVS(6574) = B(14756) -! JVS(6575) = Jac_FULL(1629,5250) - JVS(6575) = -B(17351) -! JVS(6576) = Jac_FULL(1629,5252) - JVS(6576) = B(14757) -! JVS(6577) = Jac_FULL(1630,1630) - JVS(6577) = -B(20862)-B(20864) -! JVS(6578) = Jac_FULL(1630,4236) - JVS(6578) = B(19299) -! JVS(6579) = Jac_FULL(1630,5250) - JVS(6579) = -B(20863) -! JVS(6580) = Jac_FULL(1631,1630) - JVS(6580) = B(20862) -! JVS(6581) = Jac_FULL(1631,1631) - JVS(6581) = -B(20861) -! JVS(6582) = Jac_FULL(1631,2386) - JVS(6582) = B(20859) -! JVS(6583) = Jac_FULL(1631,4236) - JVS(6583) = B(19294)+B(19296)+B(19298) -! JVS(6584) = Jac_FULL(1631,5250) - JVS(6584) = B(20863) -! JVS(6585) = Jac_FULL(1631,5252) - JVS(6585) = B(19295) -! JVS(6586) = Jac_FULL(1631,5256) - JVS(6586) = B(19297) -! JVS(6587) = Jac_FULL(1632,1632) - JVS(6587) = -B(19720)-B(19721) -! JVS(6588) = Jac_FULL(1632,4811) - JVS(6588) = B(17838) -! JVS(6589) = Jac_FULL(1632,5250) - JVS(6589) = -B(19722) -! JVS(6590) = Jac_FULL(1633,1633) - JVS(6590) = -B(19702)-B(19703) -! JVS(6591) = Jac_FULL(1633,4802) - JVS(6591) = B(17822) -! JVS(6592) = Jac_FULL(1633,5250) - JVS(6592) = -B(19704) -! JVS(6593) = Jac_FULL(1634,1634) - JVS(6593) = -B(4089) -! JVS(6594) = Jac_FULL(1634,2044) - JVS(6594) = B(4081) -! JVS(6595) = Jac_FULL(1634,3394) - JVS(6595) = B(4086) -! JVS(6596) = Jac_FULL(1634,5228) - JVS(6596) = B(1286)+B(1290)+B(1292) -! JVS(6597) = Jac_FULL(1634,5252) - JVS(6597) = B(1287) -! JVS(6598) = Jac_FULL(1634,5256) - JVS(6598) = B(1291) -! JVS(6599) = Jac_FULL(1635,1635) - JVS(6599) = -B(303)-B(305)-B(307)-B(309)-B(311)-B(313) -! JVS(6600) = Jac_FULL(1635,5238) - JVS(6600) = -B(304)-B(306)-B(308) -! JVS(6601) = Jac_FULL(1635,5250) - JVS(6601) = -B(310)-B(312)-B(314) -! JVS(6602) = Jac_FULL(1636,1636) - JVS(6602) = -B(9597)-B(9599) -! JVS(6603) = Jac_FULL(1636,4675) - JVS(6603) = B(5930) -! JVS(6604) = Jac_FULL(1636,5250) - JVS(6604) = -B(9598) -! JVS(6605) = Jac_FULL(1637,1637) - JVS(6605) = -B(17706)-B(17707) -! JVS(6606) = Jac_FULL(1637,3948) - JVS(6606) = B(15135) -! JVS(6607) = Jac_FULL(1637,5250) - JVS(6607) = -B(17708) -! JVS(6608) = Jac_FULL(1638,1638) - JVS(6608) = -B(7061) -! JVS(6609) = Jac_FULL(1638,2893) - JVS(6609) = B(7060) -! JVS(6610) = Jac_FULL(1638,3418) - JVS(6610) = B(4981) -! JVS(6611) = Jac_FULL(1638,4852) - JVS(6611) = B(3258)+B(3260)+B(3263) -! JVS(6612) = Jac_FULL(1638,5252) - JVS(6612) = B(3259) -! JVS(6613) = Jac_FULL(1638,5256) - JVS(6613) = B(3261) -! JVS(6614) = Jac_FULL(1639,1639) - JVS(6614) = -B(22294)-B(22296) -! JVS(6615) = Jac_FULL(1639,3601) - JVS(6615) = B(21622) -! JVS(6616) = Jac_FULL(1639,5250) - JVS(6616) = B(21623)-B(22295) -! JVS(6617) = Jac_FULL(1640,1560) - JVS(6617) = B(10026) -! JVS(6618) = Jac_FULL(1640,1640) - JVS(6618) = -B(10018) -! JVS(6619) = Jac_FULL(1640,1873) - JVS(6619) = B(10017) -! JVS(6620) = Jac_FULL(1640,4897) - JVS(6620) = B(6315)+B(6317)+B(6320) -! JVS(6621) = Jac_FULL(1640,5250) - JVS(6621) = 0 -! JVS(6622) = Jac_FULL(1640,5252) - JVS(6622) = B(6316) -! JVS(6623) = Jac_FULL(1640,5256) - JVS(6623) = B(6318) -! JVS(6624) = Jac_FULL(1641,1641) - JVS(6624) = -B(347)-B(349)-B(351)-B(353)-B(355)-B(357) -! JVS(6625) = Jac_FULL(1641,5238) - JVS(6625) = -B(348)-B(350)-B(352) -! JVS(6626) = Jac_FULL(1641,5250) - JVS(6626) = -B(354)-B(356)-B(358) -! JVS(6627) = Jac_FULL(1642,1642) - JVS(6627) = -B(10360)-B(10361)-B(10362)-B(10363) -! JVS(6628) = Jac_FULL(1642,5049) - JVS(6628) = B(6659) -! JVS(6629) = Jac_FULL(1642,5258) - JVS(6629) = B(6660) -! JVS(6630) = Jac_FULL(1643,1643) - JVS(6630) = -B(21867) -! JVS(6631) = Jac_FULL(1643,1731) - JVS(6631) = B(21869) -! JVS(6632) = Jac_FULL(1643,2017) - JVS(6632) = B(21862) -! JVS(6633) = Jac_FULL(1643,3338) - JVS(6633) = B(20926) -! JVS(6634) = Jac_FULL(1643,4150) - JVS(6634) = B(20820) -! JVS(6635) = Jac_FULL(1643,5250) - JVS(6635) = B(21863)-B(21868)+B(21870) -! JVS(6636) = Jac_FULL(1644,1644) - JVS(6636) = -B(13518)-B(13519) -! JVS(6637) = Jac_FULL(1644,4732) - JVS(6637) = B(10344) -! JVS(6638) = Jac_FULL(1644,5250) - JVS(6638) = -B(13520) -! JVS(6639) = Jac_FULL(1645,1645) - JVS(6639) = -B(12619) -! JVS(6640) = Jac_FULL(1645,3385) - JVS(6640) = B(12618) -! JVS(6641) = Jac_FULL(1645,4038) - JVS(6641) = B(9034)+B(9036)+B(9038) -! JVS(6642) = Jac_FULL(1645,5252) - JVS(6642) = B(9035) -! JVS(6643) = Jac_FULL(1645,5253) - JVS(6643) = -B(12620) -! JVS(6644) = Jac_FULL(1645,5256) - JVS(6644) = B(9037) -! JVS(6645) = Jac_FULL(1646,1646) - JVS(6645) = -B(14056)-B(14058) -! JVS(6646) = Jac_FULL(1646,4169) - JVS(6646) = B(10861) -! JVS(6647) = Jac_FULL(1646,5250) - JVS(6647) = -B(14057) -! JVS(6648) = Jac_FULL(1647,1647) - JVS(6648) = -B(9622)-B(9624) -! JVS(6649) = Jac_FULL(1647,3663) - JVS(6649) = B(5954) -! JVS(6650) = Jac_FULL(1647,5250) - JVS(6650) = -B(9623) -! JVS(6651) = Jac_FULL(1648,410) - JVS(6651) = B(22708) -! JVS(6652) = Jac_FULL(1648,1413) - JVS(6652) = B(22699) -! JVS(6653) = Jac_FULL(1648,1648) - JVS(6653) = -B(22706) -! JVS(6654) = Jac_FULL(1648,1649) - JVS(6654) = B(22702) -! JVS(6655) = Jac_FULL(1648,2829) - JVS(6655) = B(22093) -! JVS(6656) = Jac_FULL(1648,3722) - JVS(6656) = B(22090) -! JVS(6657) = Jac_FULL(1648,5250) - JVS(6657) = B(22094)+B(22700)+B(22703)-B(22707)+B(22709) -! JVS(6658) = Jac_FULL(1648,5255) - JVS(6658) = 0 -! JVS(6659) = Jac_FULL(1649,1649) - JVS(6659) = -B(22702)-B(22704) -! JVS(6660) = Jac_FULL(1649,3722) - JVS(6660) = B(22084) -! JVS(6661) = Jac_FULL(1649,5250) - JVS(6661) = -B(22703) -! JVS(6662) = Jac_FULL(1649,5252) - JVS(6662) = B(22085) -! JVS(6663) = Jac_FULL(1650,1650) - JVS(6663) = -B(14141) -! JVS(6664) = Jac_FULL(1650,2129) - JVS(6664) = B(12323) -! JVS(6665) = Jac_FULL(1650,2940) - JVS(6665) = B(14140) -! JVS(6666) = Jac_FULL(1650,4827) - JVS(6666) = B(10941)+B(10943)+B(10947) -! JVS(6667) = Jac_FULL(1650,5252) - JVS(6667) = B(10942) -! JVS(6668) = Jac_FULL(1650,5256) - JVS(6668) = B(10944) -! JVS(6669) = Jac_FULL(1651,1651) - JVS(6669) = -B(18849)-B(18851) -! JVS(6670) = Jac_FULL(1651,3485) - JVS(6670) = B(16661) -! JVS(6671) = Jac_FULL(1651,5250) - JVS(6671) = B(16662)-B(18850) -! JVS(6672) = Jac_FULL(1652,725) - JVS(6672) = B(23621) -! JVS(6673) = Jac_FULL(1652,1130) - JVS(6673) = B(23614) -! JVS(6674) = Jac_FULL(1652,1652) - JVS(6674) = -B(23615) -! JVS(6675) = Jac_FULL(1652,4459) - JVS(6675) = B(23328)+B(23330)+B(23333) -! JVS(6676) = Jac_FULL(1652,5250) - JVS(6676) = 0 -! JVS(6677) = Jac_FULL(1652,5252) - JVS(6677) = B(23329) -! JVS(6678) = Jac_FULL(1652,5255) - JVS(6678) = 0 -! JVS(6679) = Jac_FULL(1652,5256) - JVS(6679) = B(23331) -! JVS(6680) = Jac_FULL(1653,1653) - JVS(6680) = -B(11832)-B(11833) -! JVS(6681) = Jac_FULL(1653,3944) - JVS(6681) = B(8102) -! JVS(6682) = Jac_FULL(1653,5250) - JVS(6682) = -B(11834) -! JVS(6683) = Jac_FULL(1654,1653) - JVS(6683) = B(11833) -! JVS(6684) = Jac_FULL(1654,1654) - JVS(6684) = -B(11831) -! JVS(6685) = Jac_FULL(1654,2244) - JVS(6685) = B(11828) -! JVS(6686) = Jac_FULL(1654,3944) - JVS(6686) = B(8097)+B(8099)+B(8101) -! JVS(6687) = Jac_FULL(1654,5250) - JVS(6687) = B(11834) -! JVS(6688) = Jac_FULL(1654,5252) - JVS(6688) = B(8098) -! JVS(6689) = Jac_FULL(1654,5256) - JVS(6689) = B(8100) -! JVS(6690) = Jac_FULL(1655,1655) - JVS(6690) = -B(14041)-B(14043) -! JVS(6691) = Jac_FULL(1655,4885) - JVS(6691) = B(10845) -! JVS(6692) = Jac_FULL(1655,5250) - JVS(6692) = -B(14042) -! JVS(6693) = Jac_FULL(1656,467) - JVS(6693) = B(19494) -! JVS(6694) = Jac_FULL(1656,830) - JVS(6694) = B(19485) -! JVS(6695) = Jac_FULL(1656,1656) - JVS(6695) = -B(19492) -! JVS(6696) = Jac_FULL(1656,1657) - JVS(6696) = B(19488) -! JVS(6697) = Jac_FULL(1656,2781) - JVS(6697) = B(19482) -! JVS(6698) = Jac_FULL(1656,4043) - JVS(6698) = B(17318) -! JVS(6699) = Jac_FULL(1656,5250) - JVS(6699) = B(19483)+B(19486)+B(19489)-B(19493)+B(19495) -! JVS(6700) = Jac_FULL(1656,5255) - JVS(6700) = 0 -! JVS(6701) = Jac_FULL(1657,1657) - JVS(6701) = -B(19488)-B(19490) -! JVS(6702) = Jac_FULL(1657,4043) - JVS(6702) = B(17312) -! JVS(6703) = Jac_FULL(1657,5250) - JVS(6703) = -B(19489) -! JVS(6704) = Jac_FULL(1657,5252) - JVS(6704) = B(17313) -! JVS(6705) = Jac_FULL(1658,1658) - JVS(6705) = -B(14069)-B(14070) -! JVS(6706) = Jac_FULL(1658,4126) - JVS(6706) = B(10871) -! JVS(6707) = Jac_FULL(1658,5250) - JVS(6707) = -B(14071) -! JVS(6708) = Jac_FULL(1659,1659) - JVS(6708) = -B(17614)-B(17615) -! JVS(6709) = Jac_FULL(1659,4911) - JVS(6709) = B(15042) -! JVS(6710) = Jac_FULL(1659,5250) - JVS(6710) = -B(17616) -! JVS(6711) = Jac_FULL(1660,382) - JVS(6711) = B(23055) -! JVS(6712) = Jac_FULL(1660,1546) - JVS(6712) = B(23045) -! JVS(6713) = Jac_FULL(1660,1660) - JVS(6713) = -B(23053) -! JVS(6714) = Jac_FULL(1660,2136) - JVS(6714) = B(23048) -! JVS(6715) = Jac_FULL(1660,3613) - JVS(6715) = B(23051) -! JVS(6716) = Jac_FULL(1660,4442) - JVS(6716) = B(22616) -! JVS(6717) = Jac_FULL(1660,5250) - JVS(6717) = B(23046)+B(23049)-B(23054)+B(23056) -! JVS(6718) = Jac_FULL(1660,5255) - JVS(6718) = 0 -! JVS(6719) = Jac_FULL(1661,1661) - JVS(6719) = -B(10410) -! JVS(6720) = Jac_FULL(1661,4113) - JVS(6720) = B(10562) -! JVS(6721) = Jac_FULL(1661,5118) - JVS(6721) = B(6932)+B(6934)+B(6938) -! JVS(6722) = Jac_FULL(1661,5168) - JVS(6722) = B(6701) -! JVS(6723) = Jac_FULL(1661,5252) - JVS(6723) = B(6933) -! JVS(6724) = Jac_FULL(1661,5256) - JVS(6724) = B(6935) -! JVS(6725) = Jac_FULL(1662,1662) - JVS(6725) = -B(4189) -! JVS(6726) = Jac_FULL(1662,2126) - JVS(6726) = B(4181) -! JVS(6727) = Jac_FULL(1662,2427) - JVS(6727) = B(4186) -! JVS(6728) = Jac_FULL(1662,5145) - JVS(6728) = B(1402)+B(1404)+B(1407) -! JVS(6729) = Jac_FULL(1662,5252) - JVS(6729) = B(1403) -! JVS(6730) = Jac_FULL(1662,5256) - JVS(6730) = B(1405) -! JVS(6731) = Jac_FULL(1663,1663) - JVS(6731) = -B(11932) -! JVS(6732) = Jac_FULL(1663,2513) - JVS(6732) = B(11929) -! JVS(6733) = Jac_FULL(1663,3038) - JVS(6733) = B(11924) -! JVS(6734) = Jac_FULL(1663,3854) - JVS(6734) = B(8181)+B(8183)+B(8186) -! JVS(6735) = Jac_FULL(1663,5252) - JVS(6735) = B(8182) -! JVS(6736) = Jac_FULL(1663,5256) - JVS(6736) = B(8184) -! JVS(6737) = Jac_FULL(1664,1664) - JVS(6737) = -B(9152)-B(9154) -! JVS(6738) = Jac_FULL(1664,3796) - JVS(6738) = B(5568) -! JVS(6739) = Jac_FULL(1664,5250) - JVS(6739) = -B(9153) -! JVS(6740) = Jac_FULL(1665,1665) - JVS(6740) = -B(10183)-B(10185) -! JVS(6741) = Jac_FULL(1665,4992) - JVS(6741) = B(6479) -! JVS(6742) = Jac_FULL(1665,5250) - JVS(6742) = -B(10184) -! JVS(6743) = Jac_FULL(1666,1666) - JVS(6743) = -B(13256)-B(13258) -! JVS(6744) = Jac_FULL(1666,3814) - JVS(6744) = B(9905) -! JVS(6745) = Jac_FULL(1666,5250) - JVS(6745) = -B(13257) -! JVS(6746) = Jac_FULL(1667,1667) - JVS(6746) = -B(11715) -! JVS(6747) = Jac_FULL(1667,2519) - JVS(6747) = B(11712) -! JVS(6748) = Jac_FULL(1667,2785) - JVS(6748) = B(11707) -! JVS(6749) = Jac_FULL(1667,3893) - JVS(6749) = B(7989)+B(7991)+B(7994) -! JVS(6750) = Jac_FULL(1667,5252) - JVS(6750) = B(7990) -! JVS(6751) = Jac_FULL(1667,5256) - JVS(6751) = B(7992) -! JVS(6752) = Jac_FULL(1668,1668) - JVS(6752) = -B(17210)-B(17212) -! JVS(6753) = Jac_FULL(1668,5028) - JVS(6753) = B(14593) -! JVS(6754) = Jac_FULL(1668,5250) - JVS(6754) = -B(17211) -! JVS(6755) = Jac_FULL(1669,1669) - JVS(6755) = -B(9737)-B(9739) -! JVS(6756) = Jac_FULL(1669,3828) - JVS(6756) = B(6043) -! JVS(6757) = Jac_FULL(1669,5250) - JVS(6757) = -B(9738) -! JVS(6758) = Jac_FULL(1670,1670) - JVS(6758) = -B(12302)-B(12304) -! JVS(6759) = Jac_FULL(1670,4889) - JVS(6759) = B(8633) -! JVS(6760) = Jac_FULL(1670,5250) - JVS(6760) = -B(12303) -! JVS(6761) = Jac_FULL(1671,1671) - JVS(6761) = -B(3944)-B(3946) -! JVS(6762) = Jac_FULL(1671,4780) - JVS(6762) = B(1180) -! JVS(6763) = Jac_FULL(1671,5250) - JVS(6763) = -B(3945) -! JVS(6764) = Jac_FULL(1672,1672) - JVS(6764) = -B(9385)-B(9387) -! JVS(6765) = Jac_FULL(1672,3799) - JVS(6765) = B(5772) -! JVS(6766) = Jac_FULL(1672,5250) - JVS(6766) = -B(9386) -! JVS(6767) = Jac_FULL(1673,1673) - JVS(6767) = -B(7234)-B(7236) -! JVS(6768) = Jac_FULL(1673,5081) - JVS(6768) = B(3406) -! JVS(6769) = Jac_FULL(1673,5250) - JVS(6769) = -B(7235) -! JVS(6770) = Jac_FULL(1674,1674) - JVS(6770) = -B(19858)-B(19859) -! JVS(6771) = Jac_FULL(1674,4355) - JVS(6771) = B(18018) -! JVS(6772) = Jac_FULL(1674,5250) - JVS(6772) = -B(19860) -! JVS(6773) = Jac_FULL(1675,100) - JVS(6773) = B(15602) -! JVS(6774) = Jac_FULL(1675,944) - JVS(6774) = B(15600) -! JVS(6775) = Jac_FULL(1675,1675) - JVS(6775) = -B(15601) -! JVS(6776) = Jac_FULL(1675,3752) - JVS(6776) = B(12488)+B(12490)+B(12492) -! JVS(6777) = Jac_FULL(1675,5250) - JVS(6777) = B(15603) -! JVS(6778) = Jac_FULL(1675,5252) - JVS(6778) = B(12489) -! JVS(6779) = Jac_FULL(1675,5255) - JVS(6779) = 0 -! JVS(6780) = Jac_FULL(1675,5256) - JVS(6780) = B(12491) -! JVS(6781) = Jac_FULL(1676,1676) - JVS(6781) = -B(19236)-B(19238) -! JVS(6782) = Jac_FULL(1676,4987) - JVS(6782) = B(17028) -! JVS(6783) = Jac_FULL(1676,5250) - JVS(6783) = -B(19237) -! JVS(6784) = Jac_FULL(1677,1637) - JVS(6784) = B(17707) -! JVS(6785) = Jac_FULL(1677,1677) - JVS(6785) = -B(17705) -! JVS(6786) = Jac_FULL(1677,2426) - JVS(6786) = B(17701) -! JVS(6787) = Jac_FULL(1677,3948) - JVS(6787) = B(15130)+B(15132)+B(15134) -! JVS(6788) = Jac_FULL(1677,5250) - JVS(6788) = B(17708) -! JVS(6789) = Jac_FULL(1677,5252) - JVS(6789) = B(15131) -! JVS(6790) = Jac_FULL(1677,5256) - JVS(6790) = B(15133) -! JVS(6791) = Jac_FULL(1678,1678) - JVS(6791) = -B(23881)-B(23883) -! JVS(6792) = Jac_FULL(1678,4136) - JVS(6792) = B(23710) -! JVS(6793) = Jac_FULL(1678,5250) - JVS(6793) = -B(23882) -! JVS(6794) = Jac_FULL(1679,1679) - JVS(6794) = -B(3647) -! JVS(6795) = Jac_FULL(1679,2306) - JVS(6795) = B(3644) -! JVS(6796) = Jac_FULL(1679,2456) - JVS(6796) = B(3639) -! JVS(6797) = Jac_FULL(1679,4995) - JVS(6797) = B(936)+B(938)+B(940) -! JVS(6798) = Jac_FULL(1679,5252) - JVS(6798) = B(937) -! JVS(6799) = Jac_FULL(1679,5256) - JVS(6799) = B(939) -! JVS(6800) = Jac_FULL(1680,46) - JVS(6800) = B(16185) -! JVS(6801) = Jac_FULL(1680,1252) - JVS(6801) = B(16183) -! JVS(6802) = Jac_FULL(1680,1680) - JVS(6802) = -B(16184) -! JVS(6803) = Jac_FULL(1680,3725) - JVS(6803) = B(13115)+B(13117)+B(13119) -! JVS(6804) = Jac_FULL(1680,5250) - JVS(6804) = B(16186) -! JVS(6805) = Jac_FULL(1680,5252) - JVS(6805) = B(13116) -! JVS(6806) = Jac_FULL(1680,5255) - JVS(6806) = 0 -! JVS(6807) = Jac_FULL(1680,5256) - JVS(6807) = B(13118) -! JVS(6808) = Jac_FULL(1681,1681) - JVS(6808) = -B(15627)-B(15629) -! JVS(6809) = Jac_FULL(1681,4347) - JVS(6809) = B(12537) -! JVS(6810) = Jac_FULL(1681,5250) - JVS(6810) = -B(15628) -! JVS(6811) = Jac_FULL(1682,1682) - JVS(6811) = -B(13793)-B(13795) -! JVS(6812) = Jac_FULL(1682,5002) - JVS(6812) = B(10593) -! JVS(6813) = Jac_FULL(1682,5250) - JVS(6813) = -B(13794) -! JVS(6814) = Jac_FULL(1683,1683) - JVS(6814) = -B(13492)-B(13493) -! JVS(6815) = Jac_FULL(1683,4589) - JVS(6815) = B(10318) -! JVS(6816) = Jac_FULL(1683,5250) - JVS(6816) = -B(13494) -! JVS(6817) = Jac_FULL(1684,1684) - JVS(6817) = -B(16484) -! JVS(6818) = Jac_FULL(1684,3550) - JVS(6818) = B(16670) -! JVS(6819) = Jac_FULL(1684,3628) - JVS(6819) = B(13612) -! JVS(6820) = Jac_FULL(1684,5134) - JVS(6820) = B(13845)+B(13847)+B(13849) -! JVS(6821) = Jac_FULL(1684,5252) - JVS(6821) = B(13846) -! JVS(6822) = Jac_FULL(1684,5256) - JVS(6822) = B(13848) -! JVS(6823) = Jac_FULL(1685,458) - JVS(6823) = B(13866) -! JVS(6824) = Jac_FULL(1685,1685) - JVS(6824) = -B(16687)-B(16688) -! JVS(6825) = Jac_FULL(1685,5173) - JVS(6825) = 0 -! JVS(6826) = Jac_FULL(1685,5250) - JVS(6826) = B(13867)-B(16689) -! JVS(6827) = Jac_FULL(1686,1686) - JVS(6827) = -B(82)-B(84)-B(86) -! JVS(6828) = Jac_FULL(1686,5229) - JVS(6828) = B(1364) -! JVS(6829) = Jac_FULL(1686,5250) - JVS(6829) = -B(83)-B(85)-B(87) -! JVS(6830) = Jac_FULL(1687,1687) - JVS(6830) = -B(17221)-B(17223) -! JVS(6831) = Jac_FULL(1687,4761) - JVS(6831) = B(14602) -! JVS(6832) = Jac_FULL(1687,5250) - JVS(6832) = -B(17222) -! JVS(6833) = Jac_FULL(1688,1688) - JVS(6833) = -B(359)-B(361)-B(363)-B(365)-B(367)-B(369) -! JVS(6834) = Jac_FULL(1688,5238) - JVS(6834) = -B(360)-B(362)-B(364) -! JVS(6835) = Jac_FULL(1688,5250) - JVS(6835) = -B(366)-B(368)-B(370) -! JVS(6836) = Jac_FULL(1689,1351) - JVS(6836) = B(19234) -! JVS(6837) = Jac_FULL(1689,1676) - JVS(6837) = B(19238) -! JVS(6838) = Jac_FULL(1689,1689) - JVS(6838) = -B(19235) -! JVS(6839) = Jac_FULL(1689,4987) - JVS(6839) = B(17023)+B(17025)+B(17027) -! JVS(6840) = Jac_FULL(1689,5250) - JVS(6840) = 0 -! JVS(6841) = Jac_FULL(1689,5252) - JVS(6841) = B(17024) -! JVS(6842) = Jac_FULL(1689,5255) - JVS(6842) = 0 -! JVS(6843) = Jac_FULL(1689,5256) - JVS(6843) = B(17026) -! JVS(6844) = Jac_FULL(1690,1690) - JVS(6844) = -B(19673)-B(19674) -! JVS(6845) = Jac_FULL(1690,4584) - JVS(6845) = B(17777) -! JVS(6846) = Jac_FULL(1690,5250) - JVS(6846) = -B(19675) -! JVS(6847) = Jac_FULL(1691,1561) - JVS(6847) = B(22529) -! JVS(6848) = Jac_FULL(1691,1691) - JVS(6848) = -B(22528) -! JVS(6849) = Jac_FULL(1691,1887) - JVS(6849) = B(22526) -! JVS(6850) = Jac_FULL(1691,4242) - JVS(6850) = B(21929)+B(21931)+B(21933) -! JVS(6851) = Jac_FULL(1691,5250) - JVS(6851) = B(22530) -! JVS(6852) = Jac_FULL(1691,5252) - JVS(6852) = B(21930) -! JVS(6853) = Jac_FULL(1691,5256) - JVS(6853) = B(21932) -! JVS(6854) = Jac_FULL(1692,1692) - JVS(6854) = -B(11858) -! JVS(6855) = Jac_FULL(1692,2182) - JVS(6855) = B(11855) -! JVS(6856) = Jac_FULL(1692,2233) - JVS(6856) = B(11850) -! JVS(6857) = Jac_FULL(1692,3778) - JVS(6857) = B(8118)+B(8120)+B(8123) -! JVS(6858) = Jac_FULL(1692,5252) - JVS(6858) = B(8119) -! JVS(6859) = Jac_FULL(1692,5256) - JVS(6859) = B(8121) -! JVS(6860) = Jac_FULL(1693,1693) - JVS(6860) = -B(11847)-B(11848) -! JVS(6861) = Jac_FULL(1693,4880) - JVS(6861) = B(8113) -! JVS(6862) = Jac_FULL(1693,5250) - JVS(6862) = -B(11849) -! JVS(6863) = Jac_FULL(1694,1694) - JVS(6863) = -B(11921)-B(11922) -! JVS(6864) = Jac_FULL(1694,3889) - JVS(6864) = B(8176) -! JVS(6865) = Jac_FULL(1694,5250) - JVS(6865) = -B(11923) -! JVS(6866) = Jac_FULL(1695,1695) - JVS(6866) = -B(4153) -! JVS(6867) = Jac_FULL(1695,1974) - JVS(6867) = B(4150) -! JVS(6868) = Jac_FULL(1695,2292) - JVS(6868) = B(4145) -! JVS(6869) = Jac_FULL(1695,5229) - JVS(6869) = B(1358)+B(1360)+B(1363) -! JVS(6870) = Jac_FULL(1695,5252) - JVS(6870) = B(1359) -! JVS(6871) = Jac_FULL(1695,5256) - JVS(6871) = B(1361) -! JVS(6872) = Jac_FULL(1696,502) - JVS(6872) = B(20797) -! JVS(6873) = Jac_FULL(1696,1089) - JVS(6873) = B(20793) -! JVS(6874) = Jac_FULL(1696,1696) - JVS(6874) = -B(14372) -! JVS(6875) = Jac_FULL(1696,2943) - JVS(6875) = B(16999) -! JVS(6876) = Jac_FULL(1696,3034) - JVS(6876) = B(11150) -! JVS(6877) = Jac_FULL(1696,3706) - JVS(6877) = B(19219) -! JVS(6878) = Jac_FULL(1696,5250) - JVS(6878) = B(11151)-B(14373)+B(17000)+B(20794)+B(20798) -! JVS(6879) = Jac_FULL(1696,5255) - JVS(6879) = 0 -! JVS(6880) = Jac_FULL(1697,1697) - JVS(6880) = -B(92)-B(94)-B(96) -! JVS(6881) = Jac_FULL(1697,5208) - JVS(6881) = B(1443) -! JVS(6882) = Jac_FULL(1697,5250) - JVS(6882) = -B(93)-B(95)-B(97) -! JVS(6883) = Jac_FULL(1698,1698) - JVS(6883) = -B(8738)-B(8740) -! JVS(6884) = Jac_FULL(1698,4513) - JVS(6884) = B(5257) -! JVS(6885) = Jac_FULL(1698,5250) - JVS(6885) = -B(8739) -! JVS(6886) = Jac_FULL(1699,1699) - JVS(6886) = -B(7131) -! JVS(6887) = Jac_FULL(1699,2878) - JVS(6887) = B(7130) -! JVS(6888) = Jac_FULL(1699,3376) - JVS(6888) = B(5167) -! JVS(6889) = Jac_FULL(1699,4390) - JVS(6889) = B(3319)+B(3321)+B(3325) -! JVS(6890) = Jac_FULL(1699,5252) - JVS(6890) = B(3320) -! JVS(6891) = Jac_FULL(1699,5256) - JVS(6891) = B(3322) -! JVS(6892) = Jac_FULL(1700,1700) - JVS(6892) = -B(9224)-B(9226) -! JVS(6893) = Jac_FULL(1700,3808) - JVS(6893) = B(5641) -! JVS(6894) = Jac_FULL(1700,5250) - JVS(6894) = -B(9225) -! JVS(6895) = Jac_FULL(1701,1701) - JVS(6895) = -B(102)-B(104)-B(106) -! JVS(6896) = Jac_FULL(1701,4755) - JVS(6896) = B(1616) -! JVS(6897) = Jac_FULL(1701,5250) - JVS(6897) = -B(103)-B(105)-B(107) -! JVS(6898) = Jac_FULL(1702,1702) - JVS(6898) = -B(4170) -! JVS(6899) = Jac_FULL(1702,2338) - JVS(6899) = B(4169) -! JVS(6900) = Jac_FULL(1702,2463) - JVS(6900) = B(4166) -! JVS(6901) = Jac_FULL(1702,3847) - JVS(6901) = B(1383)+B(1385)+B(1388) -! JVS(6902) = Jac_FULL(1702,5252) - JVS(6902) = B(1384) -! JVS(6903) = Jac_FULL(1702,5256) - JVS(6903) = B(1386) -! JVS(6904) = Jac_FULL(1703,1703) - JVS(6904) = -B(595)-B(597)-B(599) -! JVS(6905) = Jac_FULL(1703,3147) - JVS(6905) = B(2996) -! JVS(6906) = Jac_FULL(1703,5250) - JVS(6906) = -B(596)-B(598)-B(600) -! JVS(6907) = Jac_FULL(1704,1704) - JVS(6907) = -B(7145)-B(7147) -! JVS(6908) = Jac_FULL(1704,4583) - JVS(6908) = B(3336) -! JVS(6909) = Jac_FULL(1704,5250) - JVS(6909) = -B(7146) -! JVS(6910) = Jac_FULL(1705,1705) - JVS(6910) = -B(14145)-B(14147) -! JVS(6911) = Jac_FULL(1705,4827) - JVS(6911) = B(10946) -! JVS(6912) = Jac_FULL(1705,5250) - JVS(6912) = -B(14146) -! JVS(6913) = Jac_FULL(1706,1384) - JVS(6913) = B(17179) -! JVS(6914) = Jac_FULL(1706,1706) - JVS(6914) = -B(17185) -! JVS(6915) = Jac_FULL(1706,1973) - JVS(6915) = B(17181) -! JVS(6916) = Jac_FULL(1706,1995) - JVS(6916) = B(17143) -! JVS(6917) = Jac_FULL(1706,3872) - JVS(6917) = 0 -! JVS(6918) = Jac_FULL(1706,3927) - JVS(6918) = B(14539) -! JVS(6919) = Jac_FULL(1706,5250) - JVS(6919) = B(17144)+B(17180)+B(17182)-B(17186) -! JVS(6920) = Jac_FULL(1707,1707) - JVS(6920) = -B(19779)-B(19780) -! JVS(6921) = Jac_FULL(1707,4349) - JVS(6921) = B(17914) -! JVS(6922) = Jac_FULL(1707,5250) - JVS(6922) = -B(19781) -! JVS(6923) = Jac_FULL(1708,1708) - JVS(6923) = -B(291)-B(293)-B(295)-B(297)-B(299)-B(301) -! JVS(6924) = Jac_FULL(1708,5238) - JVS(6924) = -B(292)-B(294)-B(296) -! JVS(6925) = Jac_FULL(1708,5250) - JVS(6925) = -B(298)-B(300)-B(302) -! JVS(6926) = Jac_FULL(1709,1709) - JVS(6926) = -B(319)-B(321)-B(323)-B(325)-B(327)-B(329) -! JVS(6927) = Jac_FULL(1709,5238) - JVS(6927) = -B(320)-B(322)-B(324) -! JVS(6928) = Jac_FULL(1709,5250) - JVS(6928) = -B(326)-B(328)-B(330) -! JVS(6929) = Jac_FULL(1710,63) - JVS(6929) = B(16195) -! JVS(6930) = Jac_FULL(1710,928) - JVS(6930) = B(16193) -! JVS(6931) = Jac_FULL(1710,1710) - JVS(6931) = -B(16194) -! JVS(6932) = Jac_FULL(1710,4481) - JVS(6932) = B(13130)+B(13132)+B(13134) -! JVS(6933) = Jac_FULL(1710,5250) - JVS(6933) = B(16196) -! JVS(6934) = Jac_FULL(1710,5252) - JVS(6934) = B(13131) -! JVS(6935) = Jac_FULL(1710,5255) - JVS(6935) = 0 -! JVS(6936) = Jac_FULL(1710,5256) - JVS(6936) = B(13133) -! JVS(6937) = Jac_FULL(1711,1711) - JVS(6937) = -B(7158)-B(7160) -! JVS(6938) = Jac_FULL(1711,4367) - JVS(6938) = B(3344) -! JVS(6939) = Jac_FULL(1711,5250) - JVS(6939) = -B(7159) -! JVS(6940) = Jac_FULL(1712,1711) - JVS(6940) = B(7158) -! JVS(6941) = Jac_FULL(1712,1712) - JVS(6941) = -B(7155)-B(7157) -! JVS(6942) = Jac_FULL(1712,2572) - JVS(6942) = B(7148) -! JVS(6943) = Jac_FULL(1712,4367) - JVS(6943) = B(3343) -! JVS(6944) = Jac_FULL(1712,5250) - JVS(6944) = B(7149)-B(7156)+B(7159) -! JVS(6945) = Jac_FULL(1713,41) - JVS(6945) = B(15722) -! JVS(6946) = Jac_FULL(1713,1020) - JVS(6946) = B(15720) -! JVS(6947) = Jac_FULL(1713,1713) - JVS(6947) = -B(15721) -! JVS(6948) = Jac_FULL(1713,3705) - JVS(6948) = B(12647)+B(12649)+B(12651) -! JVS(6949) = Jac_FULL(1713,5250) - JVS(6949) = B(15723) -! JVS(6950) = Jac_FULL(1713,5252) - JVS(6950) = B(12648) -! JVS(6951) = Jac_FULL(1713,5255) - JVS(6951) = 0 -! JVS(6952) = Jac_FULL(1713,5256) - JVS(6952) = B(12650) -! JVS(6953) = Jac_FULL(1714,1514) - JVS(6953) = B(11917) -! JVS(6954) = Jac_FULL(1714,1694) - JVS(6954) = B(11922) -! JVS(6955) = Jac_FULL(1714,1714) - JVS(6955) = -B(11920) -! JVS(6956) = Jac_FULL(1714,3889) - JVS(6956) = B(8171)+B(8173)+B(8175) -! JVS(6957) = Jac_FULL(1714,5250) - JVS(6957) = B(11923) -! JVS(6958) = Jac_FULL(1714,5252) - JVS(6958) = B(8172) -! JVS(6959) = Jac_FULL(1714,5255) - JVS(6959) = 0 -! JVS(6960) = Jac_FULL(1714,5256) - JVS(6960) = B(8174) -! JVS(6961) = Jac_FULL(1715,1715) - JVS(6961) = -B(4397) -! JVS(6962) = Jac_FULL(1715,2237) - JVS(6962) = B(4394) -! JVS(6963) = Jac_FULL(1715,2339) - JVS(6963) = B(4389) -! JVS(6964) = Jac_FULL(1715,4755) - JVS(6964) = B(1612)+B(1614)+B(1617) -! JVS(6965) = Jac_FULL(1715,5252) - JVS(6965) = B(1613) -! JVS(6966) = Jac_FULL(1715,5256) - JVS(6966) = B(1615) -! JVS(6967) = Jac_FULL(1716,1716) - JVS(6967) = -B(13428)-B(13430) -! JVS(6968) = Jac_FULL(1716,3810) - JVS(6968) = B(10210) -! JVS(6969) = Jac_FULL(1716,5250) - JVS(6969) = -B(13429) -! JVS(6970) = Jac_FULL(1717,1717) - JVS(6970) = -B(9518)-B(9520) -! JVS(6971) = Jac_FULL(1717,3815) - JVS(6971) = B(5872) -! JVS(6972) = Jac_FULL(1717,5250) - JVS(6972) = -B(9519) -! JVS(6973) = Jac_FULL(1718,1718) - JVS(6973) = -B(11218)-B(11220) -! JVS(6974) = Jac_FULL(1718,4144) - JVS(6974) = B(7430) -! JVS(6975) = Jac_FULL(1718,5250) - JVS(6975) = -B(11219) -! JVS(6976) = Jac_FULL(1719,1719) - JVS(6976) = -B(7104)-B(7106) -! JVS(6977) = Jac_FULL(1719,4581) - JVS(6977) = B(3304) -! JVS(6978) = Jac_FULL(1719,5250) - JVS(6978) = -B(7105) -! JVS(6979) = Jac_FULL(1720,1720) - JVS(6979) = -B(11616) -! JVS(6980) = Jac_FULL(1720,1902) - JVS(6980) = B(11613) -! JVS(6981) = Jac_FULL(1720,2127) - JVS(6981) = B(11608) -! JVS(6982) = Jac_FULL(1720,3758) - JVS(6982) = B(7860)+B(7862)+B(7864) -! JVS(6983) = Jac_FULL(1720,5252) - JVS(6983) = B(7861) -! JVS(6984) = Jac_FULL(1720,5256) - JVS(6984) = B(7863) -! JVS(6985) = Jac_FULL(1721,1721) - JVS(6985) = -B(11896) -! JVS(6986) = Jac_FULL(1721,2775) - JVS(6986) = B(11888) -! JVS(6987) = Jac_FULL(1721,2934) - JVS(6987) = B(11893) -! JVS(6988) = Jac_FULL(1721,3873) - JVS(6988) = B(8151)+B(8153)+B(8156) -! JVS(6989) = Jac_FULL(1721,5252) - JVS(6989) = B(8152) -! JVS(6990) = Jac_FULL(1721,5256) - JVS(6990) = B(8154) -! JVS(6991) = Jac_FULL(1722,1722) - JVS(6991) = -B(19710)-B(19711) -! JVS(6992) = Jac_FULL(1722,4309) - JVS(6992) = B(17830) -! JVS(6993) = Jac_FULL(1722,5250) - JVS(6993) = -B(19712) -! JVS(6994) = Jac_FULL(1723,1722) - JVS(6994) = B(19711) -! JVS(6995) = Jac_FULL(1723,1723) - JVS(6995) = -B(19709) -! JVS(6996) = Jac_FULL(1723,2084) - JVS(6996) = B(19705) -! JVS(6997) = Jac_FULL(1723,4309) - JVS(6997) = B(17825)+B(17827)+B(17829) -! JVS(6998) = Jac_FULL(1723,5250) - JVS(6998) = B(19712) -! JVS(6999) = Jac_FULL(1723,5252) - JVS(6999) = B(17826) -! JVS(7000) = Jac_FULL(1723,5256) - JVS(7000) = B(17828) -! JVS(7001) = Jac_FULL(1724,1724) - JVS(7001) = -B(23539) -! JVS(7002) = Jac_FULL(1724,2214) - JVS(7002) = B(23535) -! JVS(7003) = Jac_FULL(1724,2942) - JVS(7003) = B(23538) -! JVS(7004) = Jac_FULL(1724,4137) - JVS(7004) = B(23206)+B(23208)+B(23210) -! JVS(7005) = Jac_FULL(1724,5252) - JVS(7005) = B(23207) -! JVS(7006) = Jac_FULL(1724,5256) - JVS(7006) = B(23209) -! JVS(7007) = Jac_FULL(1725,1725) - JVS(7007) = -B(4206) -! JVS(7008) = Jac_FULL(1725,1880) - JVS(7008) = B(4202) -! JVS(7009) = Jac_FULL(1725,2106) - JVS(7009) = B(4205) -! JVS(7010) = Jac_FULL(1725,3884) - JVS(7010) = B(1427)+B(1429)+B(1431) -! JVS(7011) = Jac_FULL(1725,5252) - JVS(7011) = B(1428) -! JVS(7012) = Jac_FULL(1725,5256) - JVS(7012) = B(1430) -! JVS(7013) = Jac_FULL(1726,1726) - JVS(7013) = -B(15794)-B(15796) -! JVS(7014) = Jac_FULL(1726,4706) - JVS(7014) = B(12742) -! JVS(7015) = Jac_FULL(1726,5250) - JVS(7015) = -B(15795) -! JVS(7016) = Jac_FULL(1727,73) - JVS(7016) = B(15649) -! JVS(7017) = Jac_FULL(1727,838) - JVS(7017) = B(15647) -! JVS(7018) = Jac_FULL(1727,1727) - JVS(7018) = -B(15648) -! JVS(7019) = Jac_FULL(1727,4422) - JVS(7019) = B(12557)+B(12559)+B(12561) -! JVS(7020) = Jac_FULL(1727,5250) - JVS(7020) = B(15650) -! JVS(7021) = Jac_FULL(1727,5252) - JVS(7021) = B(12558) -! JVS(7022) = Jac_FULL(1727,5255) - JVS(7022) = 0 -! JVS(7023) = Jac_FULL(1727,5256) - JVS(7023) = B(12560) -! JVS(7024) = Jac_FULL(1728,208) - JVS(7024) = B(13965) -! JVS(7025) = Jac_FULL(1728,1728) - JVS(7025) = -B(13959) -! JVS(7026) = Jac_FULL(1728,2672) - JVS(7026) = B(13961) -! JVS(7027) = Jac_FULL(1728,2753) - JVS(7027) = B(13956) -! JVS(7028) = Jac_FULL(1728,4127) - JVS(7028) = B(10753)+B(10763) -! JVS(7029) = Jac_FULL(1728,5250) - JVS(7029) = B(13957)-B(13960)+B(13962)+B(13966) -! JVS(7030) = Jac_FULL(1728,5255) - JVS(7030) = B(10754) -! JVS(7031) = Jac_FULL(1729,1729) - JVS(7031) = -B(10228)-B(10230) -! JVS(7032) = Jac_FULL(1729,3659) - JVS(7032) = B(6520) -! JVS(7033) = Jac_FULL(1729,5250) - JVS(7033) = -B(10229) -! JVS(7034) = Jac_FULL(1730,1730) - JVS(7034) = -B(118)-B(120)-B(122) -! JVS(7035) = Jac_FULL(1730,5147) - JVS(7035) = B(1672) -! JVS(7036) = Jac_FULL(1730,5250) - JVS(7036) = -B(119)-B(121)-B(123) -! JVS(7037) = Jac_FULL(1731,1731) - JVS(7037) = -B(21869)-B(21871) -! JVS(7038) = Jac_FULL(1731,4150) - JVS(7038) = B(20822) -! JVS(7039) = Jac_FULL(1731,5250) - JVS(7039) = -B(21870) -! JVS(7040) = Jac_FULL(1732,789) - JVS(7040) = B(22394) -! JVS(7041) = Jac_FULL(1732,1094) - JVS(7041) = B(22386) -! JVS(7042) = Jac_FULL(1732,1732) - JVS(7042) = -B(22387) -! JVS(7043) = Jac_FULL(1732,4410) - JVS(7043) = B(21769)+B(21771)+B(21774) -! JVS(7044) = Jac_FULL(1732,5250) - JVS(7044) = 0 -! JVS(7045) = Jac_FULL(1732,5252) - JVS(7045) = B(21770) -! JVS(7046) = Jac_FULL(1732,5255) - JVS(7046) = 0 -! JVS(7047) = Jac_FULL(1732,5256) - JVS(7047) = B(21772) -! JVS(7048) = Jac_FULL(1733,1733) - JVS(7048) = -B(76)-B(78)-B(80) -! JVS(7049) = Jac_FULL(1733,5142) - JVS(7049) = B(1327) -! JVS(7050) = Jac_FULL(1733,5250) - JVS(7050) = -B(77)-B(79)-B(81) -! JVS(7051) = Jac_FULL(1734,1734) - JVS(7051) = -B(15574)-B(15576) -! JVS(7052) = Jac_FULL(1734,4835) - JVS(7052) = B(12475) -! JVS(7053) = Jac_FULL(1734,5250) - JVS(7053) = -B(15575) -! JVS(7054) = Jac_FULL(1735,1735) - JVS(7054) = -B(13367)-B(13369) -! JVS(7055) = Jac_FULL(1735,4070) - JVS(7055) = B(10137) -! JVS(7056) = Jac_FULL(1735,5250) - JVS(7056) = -B(13368) -! JVS(7057) = Jac_FULL(1736,1001) - JVS(7057) = B(7572) -! JVS(7058) = Jac_FULL(1736,1736) - JVS(7058) = -B(7578) -! JVS(7059) = Jac_FULL(1736,2160) - JVS(7059) = B(7574) -! JVS(7060) = Jac_FULL(1736,2184) - JVS(7060) = B(7478) -! JVS(7061) = Jac_FULL(1736,3963) - JVS(7061) = B(3618) -! JVS(7062) = Jac_FULL(1736,3971) - JVS(7062) = 0 -! JVS(7063) = Jac_FULL(1736,5250) - JVS(7063) = B(7479)+B(7573)+B(7575)-B(7579) -! JVS(7064) = Jac_FULL(1737,1737) - JVS(7064) = -B(7167) -! JVS(7065) = Jac_FULL(1737,2558) - JVS(7065) = B(7166) -! JVS(7066) = Jac_FULL(1737,3341) - JVS(7066) = B(5155) -! JVS(7067) = Jac_FULL(1737,4336) - JVS(7067) = B(3348)+B(3350)+B(3353) -! JVS(7068) = Jac_FULL(1737,5252) - JVS(7068) = B(3349) -! JVS(7069) = Jac_FULL(1737,5256) - JVS(7069) = B(3351) -! JVS(7070) = Jac_FULL(1738,1056) - JVS(7070) = B(17393) -! JVS(7071) = Jac_FULL(1738,1738) - JVS(7071) = -B(17399) -! JVS(7072) = Jac_FULL(1738,2266) - JVS(7072) = B(17395) -! JVS(7073) = Jac_FULL(1738,2288) - JVS(7073) = B(17374) -! JVS(7074) = Jac_FULL(1738,3920) - JVS(7074) = 0 -! JVS(7075) = Jac_FULL(1738,3966) - JVS(7075) = B(14837) -! JVS(7076) = Jac_FULL(1738,5250) - JVS(7076) = B(17375)+B(17394)+B(17396)-B(17400) -! JVS(7077) = Jac_FULL(1739,489) - JVS(7077) = B(20977) -! JVS(7078) = Jac_FULL(1739,1509) - JVS(7078) = B(20981) -! JVS(7079) = Jac_FULL(1739,1739) - JVS(7079) = -B(20975)-B(20976) -! JVS(7080) = Jac_FULL(1739,5052) - JVS(7080) = B(19414)+B(19420)+B(19424)+B(19426) -! JVS(7081) = Jac_FULL(1739,5250) - JVS(7081) = B(20978) -! JVS(7082) = Jac_FULL(1739,5252) - JVS(7082) = B(19421) -! JVS(7083) = Jac_FULL(1739,5255) - JVS(7083) = B(19415) -! JVS(7084) = Jac_FULL(1739,5256) - JVS(7084) = B(19425) -! JVS(7085) = Jac_FULL(1740,1740) - JVS(7085) = -B(19828)-B(19829) -! JVS(7086) = Jac_FULL(1740,4361) - JVS(7086) = B(17974) -! JVS(7087) = Jac_FULL(1740,5250) - JVS(7087) = -B(19830) -! JVS(7088) = Jac_FULL(1741,1741) - JVS(7088) = -B(4470) -! JVS(7089) = Jac_FULL(1741,2628) - JVS(7089) = B(4462) -! JVS(7090) = Jac_FULL(1741,2913) - JVS(7090) = B(4467) -! JVS(7091) = Jac_FULL(1741,4980) - JVS(7091) = B(1698)+B(1700) -! JVS(7092) = Jac_FULL(1741,5252) - JVS(7092) = B(1699) -! JVS(7093) = Jac_FULL(1741,5256) - JVS(7093) = B(1701) -! JVS(7094) = Jac_FULL(1742,1742) - JVS(7094) = -B(11362)-B(11364) -! JVS(7095) = Jac_FULL(1742,4756) - JVS(7095) = B(7528) -! JVS(7096) = Jac_FULL(1742,5250) - JVS(7096) = -B(11363) -! JVS(7097) = Jac_FULL(1743,1743) - JVS(7097) = -B(13933) -! JVS(7098) = Jac_FULL(1743,2187) - JVS(7098) = B(13929) -! JVS(7099) = Jac_FULL(1743,2375) - JVS(7099) = B(13932) -! JVS(7100) = Jac_FULL(1743,3676) - JVS(7100) = B(10735)+B(10737)+B(10739) -! JVS(7101) = Jac_FULL(1743,5252) - JVS(7101) = B(10736) -! JVS(7102) = Jac_FULL(1743,5256) - JVS(7102) = B(10738) -! JVS(7103) = Jac_FULL(1744,1744) - JVS(7103) = -B(19801)-B(19802) -! JVS(7104) = Jac_FULL(1744,4389) - JVS(7104) = B(17944) -! JVS(7105) = Jac_FULL(1744,5250) - JVS(7105) = -B(19803) -! JVS(7106) = Jac_FULL(1745,39) - JVS(7106) = B(16443) -! JVS(7107) = Jac_FULL(1745,1530) - JVS(7107) = B(16441) -! JVS(7108) = Jac_FULL(1745,1745) - JVS(7108) = -B(16442) -! JVS(7109) = Jac_FULL(1745,3788) - JVS(7109) = B(13413)+B(13415)+B(13417) -! JVS(7110) = Jac_FULL(1745,5250) - JVS(7110) = B(16444) -! JVS(7111) = Jac_FULL(1745,5252) - JVS(7111) = B(13414) -! JVS(7112) = Jac_FULL(1745,5255) - JVS(7112) = 0 -! JVS(7113) = Jac_FULL(1745,5256) - JVS(7113) = B(13416) -! JVS(7114) = Jac_FULL(1746,1746) - JVS(7114) = -B(3596)-B(3597)-B(3598) -! JVS(7115) = Jac_FULL(1746,4988) - JVS(7115) = B(912) -! JVS(7116) = Jac_FULL(1746,5258) - JVS(7116) = B(913) -! JVS(7117) = Jac_FULL(1747,1747) - JVS(7117) = -B(8786)-B(8788) -! JVS(7118) = Jac_FULL(1747,3827) - JVS(7118) = B(5318) -! JVS(7119) = Jac_FULL(1747,5250) - JVS(7119) = -B(8787) -! JVS(7120) = Jac_FULL(1748,1748) - JVS(7120) = -B(16586) -! JVS(7121) = Jac_FULL(1748,3625) - JVS(7121) = B(16581) -! JVS(7122) = Jac_FULL(1748,5074) - JVS(7122) = B(13735)+B(13737)+B(13740) -! JVS(7123) = Jac_FULL(1748,5252) - JVS(7123) = B(13736) -! JVS(7124) = Jac_FULL(1748,5256) - JVS(7124) = B(13738) -! JVS(7125) = Jac_FULL(1749,1749) - JVS(7125) = -B(4111)-B(4112) -! JVS(7126) = Jac_FULL(1749,5142) - JVS(7126) = B(1320) -! JVS(7127) = Jac_FULL(1749,5250) - JVS(7127) = -B(4113) -! JVS(7128) = Jac_FULL(1749,5252) - JVS(7128) = B(1321) -! JVS(7129) = Jac_FULL(1750,1733) - JVS(7129) = B(76) -! JVS(7130) = Jac_FULL(1750,1749) - JVS(7130) = B(4111) -! JVS(7131) = Jac_FULL(1750,1750) - JVS(7131) = -B(920) -! JVS(7132) = Jac_FULL(1750,2188) - JVS(7132) = B(4106) -! JVS(7133) = Jac_FULL(1750,5142) - JVS(7133) = B(1322)+B(1324)+B(1326) -! JVS(7134) = Jac_FULL(1750,5250) - JVS(7134) = B(77) -! JVS(7135) = Jac_FULL(1750,5252) - JVS(7135) = B(1323) -! JVS(7136) = Jac_FULL(1750,5256) - JVS(7136) = B(1325) -! JVS(7137) = Jac_FULL(1751,1751) - JVS(7137) = -B(4573)-B(4574)-B(4576) -! JVS(7138) = Jac_FULL(1751,4696) - JVS(7138) = B(1781) -! JVS(7139) = Jac_FULL(1751,5250) - JVS(7139) = -B(4575)-B(4577) -! JVS(7140) = Jac_FULL(1751,5255) - JVS(7140) = B(1782) -! JVS(7141) = Jac_FULL(1752,1752) - JVS(7141) = -B(21102)-B(21104) -! JVS(7142) = Jac_FULL(1752,4363) - JVS(7142) = B(19520) -! JVS(7143) = Jac_FULL(1752,5250) - JVS(7143) = -B(21103) -! JVS(7144) = Jac_FULL(1752,5252) - JVS(7144) = B(19521) -! JVS(7145) = Jac_FULL(1753,1753) - JVS(7145) = -B(4589)-B(4590)-B(4592) -! JVS(7146) = Jac_FULL(1753,5061) - JVS(7146) = B(1792) -! JVS(7147) = Jac_FULL(1753,5250) - JVS(7147) = -B(4591)-B(4593) -! JVS(7148) = Jac_FULL(1753,5255) - JVS(7148) = B(1793) -! JVS(7149) = Jac_FULL(1754,32) - JVS(7149) = B(5200) -! JVS(7150) = Jac_FULL(1754,1171) - JVS(7150) = B(5198) -! JVS(7151) = Jac_FULL(1754,1754) - JVS(7151) = -B(5199) -! JVS(7152) = Jac_FULL(1754,3188) - JVS(7152) = B(5194) -! JVS(7153) = Jac_FULL(1754,3721) - JVS(7153) = B(2334)+B(2336)+B(2339) -! JVS(7154) = Jac_FULL(1754,5250) - JVS(7154) = B(5195)+B(5201) -! JVS(7155) = Jac_FULL(1754,5252) - JVS(7155) = B(2335) -! JVS(7156) = Jac_FULL(1754,5255) - JVS(7156) = 0 -! JVS(7157) = Jac_FULL(1754,5256) - JVS(7157) = B(2337) -! JVS(7158) = Jac_FULL(1755,1165) - JVS(7158) = B(11745) -! JVS(7159) = Jac_FULL(1755,1755) - JVS(7159) = -B(11751) -! JVS(7160) = Jac_FULL(1755,2509) - JVS(7160) = B(11748) -! JVS(7161) = Jac_FULL(1755,3870) - JVS(7161) = B(8022)+B(8024)+B(8027) -! JVS(7162) = Jac_FULL(1755,5250) - JVS(7162) = 0 -! JVS(7163) = Jac_FULL(1755,5252) - JVS(7163) = B(8023) -! JVS(7164) = Jac_FULL(1755,5255) - JVS(7164) = 0 -! JVS(7165) = Jac_FULL(1755,5256) - JVS(7165) = B(8025) -! JVS(7166) = Jac_FULL(1756,430) - JVS(7166) = B(22572) -! JVS(7167) = Jac_FULL(1756,1181) - JVS(7167) = B(22565) -! JVS(7168) = Jac_FULL(1756,1756) - JVS(7168) = -B(22569)-B(22571) -! JVS(7169) = Jac_FULL(1756,4098) - JVS(7169) = B(21971) -! JVS(7170) = Jac_FULL(1756,5250) - JVS(7170) = B(22566)-B(22570)+B(22573) -! JVS(7171) = Jac_FULL(1756,5255) - JVS(7171) = 0 -! JVS(7172) = Jac_FULL(1757,1757) - JVS(7172) = -B(23622)-B(23624) -! JVS(7173) = Jac_FULL(1757,4960) - JVS(7173) = B(23335) -! JVS(7174) = Jac_FULL(1757,5250) - JVS(7174) = -B(23623) -! JVS(7175) = Jac_FULL(1757,5255) - JVS(7175) = B(23336) -! JVS(7176) = Jac_FULL(1758,1758) - JVS(7176) = -B(14657)-B(14659) -! JVS(7177) = Jac_FULL(1758,3990) - JVS(7177) = B(11333) -! JVS(7178) = Jac_FULL(1758,5250) - JVS(7178) = -B(14658) -! JVS(7179) = Jac_FULL(1758,5255) - JVS(7179) = B(11334) -! JVS(7180) = Jac_FULL(1759,1759) - JVS(7180) = -B(22157)-B(22158)-B(22159) -! JVS(7181) = Jac_FULL(1759,4274) - JVS(7181) = B(21167) -! JVS(7182) = Jac_FULL(1759,5250) - JVS(7182) = -B(22160) -! JVS(7183) = Jac_FULL(1759,5255) - JVS(7183) = B(21168) -! JVS(7184) = Jac_FULL(1760,1760) - JVS(7184) = -B(9364) -! JVS(7185) = Jac_FULL(1760,3238) - JVS(7185) = B(9363) -! JVS(7186) = Jac_FULL(1760,4667) - JVS(7186) = B(5746)+B(5748)+B(5750) -! JVS(7187) = Jac_FULL(1760,5252) - JVS(7187) = B(5747) -! JVS(7188) = Jac_FULL(1760,5256) - JVS(7188) = B(5749) -! JVS(7189) = Jac_FULL(1761,1761) - JVS(7189) = -B(22841)-B(22843) -! JVS(7190) = Jac_FULL(1761,3327) - JVS(7190) = B(22838) -! JVS(7191) = Jac_FULL(1761,4295) - JVS(7191) = B(22345) -! JVS(7192) = Jac_FULL(1761,5250) - JVS(7192) = B(22839)-B(22842) -! JVS(7193) = Jac_FULL(1761,5255) - JVS(7193) = B(22346) -! JVS(7194) = Jac_FULL(1762,1762) - JVS(7194) = -B(19036)-B(19038) -! JVS(7195) = Jac_FULL(1762,4552) - JVS(7195) = B(16828) -! JVS(7196) = Jac_FULL(1762,5250) - JVS(7196) = -B(19037) -! JVS(7197) = Jac_FULL(1762,5255) - JVS(7197) = B(16829) -! JVS(7198) = Jac_FULL(1763,1763) - JVS(7198) = -B(6606)-B(6608) -! JVS(7199) = Jac_FULL(1763,3317) - JVS(7199) = B(6603) -! JVS(7200) = Jac_FULL(1763,4666) - JVS(7200) = B(3021) -! JVS(7201) = Jac_FULL(1763,5250) - JVS(7201) = B(6604)-B(6607) -! JVS(7202) = Jac_FULL(1763,5255) - JVS(7202) = B(3022) -! JVS(7203) = Jac_FULL(1764,1764) - JVS(7203) = -B(7746) -! JVS(7204) = Jac_FULL(1764,4999) - JVS(7204) = B(13543) -! JVS(7205) = Jac_FULL(1764,5232) - JVS(7205) = B(3984)+B(3995) -! JVS(7206) = Jac_FULL(1764,5250) - JVS(7206) = -B(7747) -! JVS(7207) = Jac_FULL(1764,5255) - JVS(7207) = B(3985) -! JVS(7208) = Jac_FULL(1765,1765) - JVS(7208) = -B(12563)-B(12565) -! JVS(7209) = Jac_FULL(1765,3227) - JVS(7209) = B(9765) -! JVS(7210) = Jac_FULL(1765,4740) - JVS(7210) = B(8944)+B(8955) -! JVS(7211) = Jac_FULL(1765,5250) - JVS(7211) = -B(12564) -! JVS(7212) = Jac_FULL(1765,5255) - JVS(7212) = B(8945) -! JVS(7213) = Jac_FULL(1766,1766) - JVS(7213) = -B(22977) -! JVS(7214) = Jac_FULL(1766,3974) - JVS(7214) = B(22557) -! JVS(7215) = Jac_FULL(1766,5250) - JVS(7215) = -B(22978) -! JVS(7216) = Jac_FULL(1766,5252) - JVS(7216) = B(22558) -! JVS(7217) = Jac_FULL(1767,1767) - JVS(7217) = -B(5170)-B(5172)-B(5174) -! JVS(7218) = Jac_FULL(1767,4607) - JVS(7218) = B(2299) -! JVS(7219) = Jac_FULL(1767,5250) - JVS(7219) = -B(5171)-B(5173) -! JVS(7220) = Jac_FULL(1767,5255) - JVS(7220) = B(2300) -! JVS(7221) = Jac_FULL(1768,1768) - JVS(7221) = -B(15905)-B(15907)-B(15909) -! JVS(7222) = Jac_FULL(1768,4661) - JVS(7222) = B(12819) -! JVS(7223) = Jac_FULL(1768,5250) - JVS(7223) = -B(15906)-B(15908) -! JVS(7224) = Jac_FULL(1768,5255) - JVS(7224) = B(12820) -! JVS(7225) = Jac_FULL(1769,1769) - JVS(7225) = -B(17228) -! JVS(7226) = Jac_FULL(1769,2737) - JVS(7226) = B(17226) -! JVS(7227) = Jac_FULL(1769,4542) - JVS(7227) = B(14605)+B(14607)+B(14610) -! JVS(7228) = Jac_FULL(1769,5252) - JVS(7228) = B(14606) -! JVS(7229) = Jac_FULL(1769,5256) - JVS(7229) = B(14608) -! JVS(7230) = Jac_FULL(1770,1770) - JVS(7230) = -B(14334)-B(14336) -! JVS(7231) = Jac_FULL(1770,4266) - JVS(7231) = B(11113) -! JVS(7232) = Jac_FULL(1770,5250) - JVS(7232) = -B(14335) -! JVS(7233) = Jac_FULL(1770,5255) - JVS(7233) = B(11114) -! JVS(7234) = Jac_FULL(1771,1771) - JVS(7234) = -B(11382)-B(11384) -! JVS(7235) = Jac_FULL(1771,5041) - JVS(7235) = B(7537) -! JVS(7236) = Jac_FULL(1771,5250) - JVS(7236) = -B(11383) -! JVS(7237) = Jac_FULL(1771,5252) - JVS(7237) = B(7538) -! JVS(7238) = Jac_FULL(1772,1772) - JVS(7238) = -B(6010)-B(6012) -! JVS(7239) = Jac_FULL(1772,3525) - JVS(7239) = B(2720) -! JVS(7240) = Jac_FULL(1772,5250) - JVS(7240) = -B(6011) -! JVS(7241) = Jac_FULL(1772,5252) - JVS(7241) = B(2721) -! JVS(7242) = Jac_FULL(1773,1458) - JVS(7242) = B(6009) -! JVS(7243) = Jac_FULL(1773,1772) - JVS(7243) = B(6012) -! JVS(7244) = Jac_FULL(1773,1773) - JVS(7244) = -B(6013) -! JVS(7245) = Jac_FULL(1773,3525) - JVS(7245) = B(2722)+B(2724)+B(2727) -! JVS(7246) = Jac_FULL(1773,5250) - JVS(7246) = 0 -! JVS(7247) = Jac_FULL(1773,5252) - JVS(7247) = B(2723) -! JVS(7248) = Jac_FULL(1773,5255) - JVS(7248) = 0 -! JVS(7249) = Jac_FULL(1773,5256) - JVS(7249) = B(2725) -! JVS(7250) = Jac_FULL(1774,1774) - JVS(7250) = -B(5135)-B(5136)-B(5138) -! JVS(7251) = Jac_FULL(1774,5135) - JVS(7251) = B(2266) -! JVS(7252) = Jac_FULL(1774,5250) - JVS(7252) = -B(5137)-B(5139) -! JVS(7253) = Jac_FULL(1774,5255) - JVS(7253) = B(2267) -! JVS(7254) = Jac_FULL(1775,1775) - JVS(7254) = -B(12412)-B(12414) -! JVS(7255) = Jac_FULL(1775,4603) - JVS(7255) = B(8771) -! JVS(7256) = Jac_FULL(1775,5250) - JVS(7256) = -B(12415) -! JVS(7257) = Jac_FULL(1775,5256) - JVS(7257) = -B(12413) -! JVS(7258) = Jac_FULL(1776,1776) - JVS(7258) = -B(1248)-B(1249)-B(1250)-B(1251) -! JVS(7259) = Jac_FULL(1776,4555) - JVS(7259) = B(163) -! JVS(7260) = Jac_FULL(1776,5258) - JVS(7260) = B(164) -! JVS(7261) = Jac_FULL(1777,1777) - JVS(7261) = -B(14218)-B(14220) -! JVS(7262) = Jac_FULL(1777,4765) - JVS(7262) = B(11028) -! JVS(7263) = Jac_FULL(1777,5250) - JVS(7263) = -B(14219) -! JVS(7264) = Jac_FULL(1778,1778) - JVS(7264) = -B(4961)-B(4963)-B(4965) -! JVS(7265) = Jac_FULL(1778,5096) - JVS(7265) = B(2116) -! JVS(7266) = Jac_FULL(1778,5250) - JVS(7266) = -B(4962)-B(4964) -! JVS(7267) = Jac_FULL(1778,5255) - JVS(7267) = B(2117) -! JVS(7268) = Jac_FULL(1779,1779) - JVS(7268) = -B(21131)-B(21132)-B(21134) -! JVS(7269) = Jac_FULL(1779,4778) - JVS(7269) = B(19596) -! JVS(7270) = Jac_FULL(1779,5250) - JVS(7270) = -B(21133)-B(21135) -! JVS(7271) = Jac_FULL(1779,5255) - JVS(7271) = B(19597) -! JVS(7272) = Jac_FULL(1780,1780) - JVS(7272) = -B(12090)-B(12091) -! JVS(7273) = Jac_FULL(1780,3751) - JVS(7273) = B(8344) -! JVS(7274) = Jac_FULL(1780,5250) - JVS(7274) = -B(12092) -! JVS(7275) = Jac_FULL(1780,5252) - JVS(7275) = B(8345) -! JVS(7276) = Jac_FULL(1781,1401) - JVS(7276) = B(12087) -! JVS(7277) = Jac_FULL(1781,1780) - JVS(7277) = B(12090) -! JVS(7278) = Jac_FULL(1781,1781) - JVS(7278) = -B(12093) -! JVS(7279) = Jac_FULL(1781,3751) - JVS(7279) = B(8346)+B(8348)+B(8351) -! JVS(7280) = Jac_FULL(1781,5250) - JVS(7280) = 0 -! JVS(7281) = Jac_FULL(1781,5252) - JVS(7281) = B(8347) -! JVS(7282) = Jac_FULL(1781,5255) - JVS(7282) = 0 -! JVS(7283) = Jac_FULL(1781,5256) - JVS(7283) = B(8349) -! JVS(7284) = Jac_FULL(1782,1782) - JVS(7284) = -B(3705) -! JVS(7285) = Jac_FULL(1782,4387) - JVS(7285) = B(2059) -! JVS(7286) = Jac_FULL(1782,5007) - JVS(7286) = B(991) -! JVS(7287) = Jac_FULL(1782,5250) - JVS(7287) = -B(3706) -! JVS(7288) = Jac_FULL(1782,5252) - JVS(7288) = B(992) -! JVS(7289) = Jac_FULL(1783,1783) - JVS(7289) = -B(18665)-B(18667) -! JVS(7290) = Jac_FULL(1783,4535) - JVS(7290) = B(16376) -! JVS(7291) = Jac_FULL(1783,5250) - JVS(7291) = -B(18666) -! JVS(7292) = Jac_FULL(1783,5255) - JVS(7292) = B(16377) -! JVS(7293) = Jac_FULL(1784,1784) - JVS(7293) = -B(23245)-B(23247) -! JVS(7294) = Jac_FULL(1784,4875) - JVS(7294) = B(22813) -! JVS(7295) = Jac_FULL(1784,5250) - JVS(7295) = -B(23246) -! JVS(7296) = Jac_FULL(1784,5255) - JVS(7296) = B(22814) -! JVS(7297) = Jac_FULL(1785,1785) - JVS(7297) = -B(4850) -! JVS(7298) = Jac_FULL(1785,4579) - JVS(7298) = B(2028) -! JVS(7299) = Jac_FULL(1785,5149) - JVS(7299) = B(2044) -! JVS(7300) = Jac_FULL(1785,5250) - JVS(7300) = -B(4851) -! JVS(7301) = Jac_FULL(1785,5252) - JVS(7301) = B(2045) -! JVS(7302) = Jac_FULL(1786,1786) - JVS(7302) = -B(23665)-B(23667) -! JVS(7303) = Jac_FULL(1786,4342) - JVS(7303) = B(23396) -! JVS(7304) = Jac_FULL(1786,5250) - JVS(7304) = -B(23666) -! JVS(7305) = Jac_FULL(1786,5252) - JVS(7305) = B(23397) -! JVS(7306) = Jac_FULL(1787,1787) - JVS(7306) = -B(21610) -! JVS(7307) = Jac_FULL(1787,3267) - JVS(7307) = B(21608) -! JVS(7308) = Jac_FULL(1787,4565) - JVS(7308) = B(20495)+B(20497)+B(20499) -! JVS(7309) = Jac_FULL(1787,5252) - JVS(7309) = B(20496) -! JVS(7310) = Jac_FULL(1787,5256) - JVS(7310) = B(20498) -! JVS(7311) = Jac_FULL(1788,1788) - JVS(7311) = -B(4663)-B(4664) -! JVS(7312) = Jac_FULL(1788,3894) - JVS(7312) = B(1848) -! JVS(7313) = Jac_FULL(1788,5250) - JVS(7313) = -B(4665) -! JVS(7314) = Jac_FULL(1788,5252) - JVS(7314) = B(1849) -! JVS(7315) = Jac_FULL(1789,64) - JVS(7315) = B(4667) -! JVS(7316) = Jac_FULL(1789,1469) - JVS(7316) = B(4660) -! JVS(7317) = Jac_FULL(1789,1788) - JVS(7317) = B(4663) -! JVS(7318) = Jac_FULL(1789,1789) - JVS(7318) = -B(4666) -! JVS(7319) = Jac_FULL(1789,3894) - JVS(7319) = B(1850)+B(1852)+B(1854) -! JVS(7320) = Jac_FULL(1789,5250) - JVS(7320) = B(4668) -! JVS(7321) = Jac_FULL(1789,5252) - JVS(7321) = B(1851) -! JVS(7322) = Jac_FULL(1789,5255) - JVS(7322) = 0 -! JVS(7323) = Jac_FULL(1789,5256) - JVS(7323) = B(1853) -! JVS(7324) = Jac_FULL(1790,1587) - JVS(7324) = B(7204) -! JVS(7325) = Jac_FULL(1790,1790) - JVS(7325) = -B(7201)-B(7203) -! JVS(7326) = Jac_FULL(1790,3314) - JVS(7326) = B(7194) -! JVS(7327) = Jac_FULL(1790,4594) - JVS(7327) = B(3382) -! JVS(7328) = Jac_FULL(1790,5250) - JVS(7328) = B(7195)-B(7202)+B(7205) -! JVS(7329) = Jac_FULL(1791,1742) - JVS(7329) = B(11362) -! JVS(7330) = Jac_FULL(1791,1791) - JVS(7330) = -B(11359)-B(11361) -! JVS(7331) = Jac_FULL(1791,2836) - JVS(7331) = B(11354) -! JVS(7332) = Jac_FULL(1791,4756) - JVS(7332) = B(7526) -! JVS(7333) = Jac_FULL(1791,5250) - JVS(7333) = B(11355)-B(11360)+B(11363) -! JVS(7334) = Jac_FULL(1792,1341) - JVS(7334) = B(5296) -! JVS(7335) = Jac_FULL(1792,1792) - JVS(7335) = -B(5300) -! JVS(7336) = Jac_FULL(1792,1794) - JVS(7336) = B(5299) -! JVS(7337) = Jac_FULL(1792,3776) - JVS(7337) = B(2377)+B(2379)+B(2382) -! JVS(7338) = Jac_FULL(1792,5250) - JVS(7338) = 0 -! JVS(7339) = Jac_FULL(1792,5252) - JVS(7339) = B(2378) -! JVS(7340) = Jac_FULL(1792,5255) - JVS(7340) = 0 -! JVS(7341) = Jac_FULL(1792,5256) - JVS(7341) = B(2380) -! JVS(7342) = Jac_FULL(1793,1793) - JVS(7342) = -B(23877)-B(23879) -! JVS(7343) = Jac_FULL(1793,4136) - JVS(7343) = B(23702) -! JVS(7344) = Jac_FULL(1793,5250) - JVS(7344) = -B(23878) -! JVS(7345) = Jac_FULL(1793,5255) - JVS(7345) = B(23703) -! JVS(7346) = Jac_FULL(1794,1794) - JVS(7346) = -B(5297)-B(5299) -! JVS(7347) = Jac_FULL(1794,3776) - JVS(7347) = B(2375) -! JVS(7348) = Jac_FULL(1794,5250) - JVS(7348) = -B(5298) -! JVS(7349) = Jac_FULL(1794,5252) - JVS(7349) = B(2376) -! JVS(7350) = Jac_FULL(1795,1795) - JVS(7350) = -B(13663)-B(13664) -! JVS(7351) = Jac_FULL(1795,5013) - JVS(7351) = B(10499) -! JVS(7352) = Jac_FULL(1795,5205) - JVS(7352) = B(10531) -! JVS(7353) = Jac_FULL(1795,5258) - JVS(7353) = B(10500)+B(10532) -! JVS(7354) = Jac_FULL(1796,966) - JVS(7354) = B(5662) -! JVS(7355) = Jac_FULL(1796,1796) - JVS(7355) = -B(5663) -! JVS(7356) = Jac_FULL(1796,2302) - JVS(7356) = B(5666) -! JVS(7357) = Jac_FULL(1796,3481) - JVS(7357) = B(2549)+B(2553)+B(2555) -! JVS(7358) = Jac_FULL(1796,5250) - JVS(7358) = 0 -! JVS(7359) = Jac_FULL(1796,5252) - JVS(7359) = B(2550) -! JVS(7360) = Jac_FULL(1796,5255) - JVS(7360) = 0 -! JVS(7361) = Jac_FULL(1796,5256) - JVS(7361) = B(2554) -! JVS(7362) = Jac_FULL(1797,1797) - JVS(7362) = -B(13370)-B(13372) -! JVS(7363) = Jac_FULL(1797,2690) - JVS(7363) = B(13362) -! JVS(7364) = Jac_FULL(1797,4070) - JVS(7364) = B(10138) -! JVS(7365) = Jac_FULL(1797,5250) - JVS(7365) = B(13363)-B(13371) -! JVS(7366) = Jac_FULL(1798,1798) - JVS(7366) = -B(11794)-B(11795) -! JVS(7367) = Jac_FULL(1798,3967) - JVS(7367) = B(8064) -! JVS(7368) = Jac_FULL(1798,5250) - JVS(7368) = -B(11796) -! JVS(7369) = Jac_FULL(1798,5252) - JVS(7369) = B(8065) -! JVS(7370) = Jac_FULL(1799,1506) - JVS(7370) = B(11791) -! JVS(7371) = Jac_FULL(1799,1798) - JVS(7371) = B(11794) -! JVS(7372) = Jac_FULL(1799,1799) - JVS(7372) = -B(11797) -! JVS(7373) = Jac_FULL(1799,3967) - JVS(7373) = B(8066)+B(8068)+B(8072) -! JVS(7374) = Jac_FULL(1799,5250) - JVS(7374) = 0 -! JVS(7375) = Jac_FULL(1799,5252) - JVS(7375) = B(8067) -! JVS(7376) = Jac_FULL(1799,5255) - JVS(7376) = 0 -! JVS(7377) = Jac_FULL(1799,5256) - JVS(7377) = B(8069) -! JVS(7378) = Jac_FULL(1800,1800) - JVS(7378) = -B(3749)-B(3750) -! JVS(7379) = Jac_FULL(1800,5185) - JVS(7379) = B(1033) -! JVS(7380) = Jac_FULL(1800,5250) - JVS(7380) = -B(3751) -! JVS(7381) = Jac_FULL(1800,5252) - JVS(7381) = B(1034) -! JVS(7382) = Jac_FULL(1801,1801) - JVS(7382) = -B(22059)-B(22061) -! JVS(7383) = Jac_FULL(1801,4385) - JVS(7383) = B(21029) -! JVS(7384) = Jac_FULL(1801,5250) - JVS(7384) = -B(22060) -! JVS(7385) = Jac_FULL(1801,5255) - JVS(7385) = B(21030) -! JVS(7386) = Jac_FULL(1802,1802) - JVS(7386) = -B(12208)-B(12210) -! JVS(7387) = Jac_FULL(1802,4817) - JVS(7387) = B(8489) -! JVS(7388) = Jac_FULL(1802,5250) - JVS(7388) = -B(12209) -! JVS(7389) = Jac_FULL(1802,5255) - JVS(7389) = B(8490) -! JVS(7390) = Jac_FULL(1803,400) - JVS(7390) = B(20763)+B(20765) -! JVS(7391) = Jac_FULL(1803,1390) - JVS(7391) = B(20758) -! JVS(7392) = Jac_FULL(1803,1803) - JVS(7392) = -B(20762) -! JVS(7393) = Jac_FULL(1803,2759) - JVS(7393) = B(20761) -! JVS(7394) = Jac_FULL(1803,4166) - JVS(7394) = B(19164)+B(19166)+B(19168) -! JVS(7395) = Jac_FULL(1803,5250) - JVS(7395) = B(20764) -! JVS(7396) = Jac_FULL(1803,5252) - JVS(7396) = B(19165) -! JVS(7397) = Jac_FULL(1803,5255) - JVS(7397) = 0 -! JVS(7398) = Jac_FULL(1803,5256) - JVS(7398) = B(19167) -! JVS(7399) = Jac_FULL(1804,1804) - JVS(7399) = -B(20456)-B(20457) -! JVS(7400) = Jac_FULL(1804,4518) - JVS(7400) = B(18870) -! JVS(7401) = Jac_FULL(1804,5250) - JVS(7401) = -B(20458) -! JVS(7402) = Jac_FULL(1804,5255) - JVS(7402) = B(18871) -! JVS(7403) = Jac_FULL(1805,1805) - JVS(7403) = -B(12785)-B(12787) -! JVS(7404) = Jac_FULL(1805,4045) - JVS(7404) = B(9279) -! JVS(7405) = Jac_FULL(1805,5250) - JVS(7405) = -B(12788) -! JVS(7406) = Jac_FULL(1805,5256) - JVS(7406) = -B(12786) -! JVS(7407) = Jac_FULL(1806,1588) - JVS(7407) = B(8895) -! JVS(7408) = Jac_FULL(1806,1806) - JVS(7408) = -B(8892)-B(8894) -! JVS(7409) = Jac_FULL(1806,2501) - JVS(7409) = B(8887) -! JVS(7410) = Jac_FULL(1806,4432) - JVS(7410) = B(5380) -! JVS(7411) = Jac_FULL(1806,5250) - JVS(7411) = B(8888)-B(8893)+B(8896) -! JVS(7412) = Jac_FULL(1807,1807) - JVS(7412) = -B(15426)-B(15428) -! JVS(7413) = Jac_FULL(1807,3278) - JVS(7413) = B(12272) -! JVS(7414) = Jac_FULL(1807,3909) - JVS(7414) = B(12278) -! JVS(7415) = Jac_FULL(1807,5250) - JVS(7415) = B(12273)-B(15427) -! JVS(7416) = Jac_FULL(1808,1808) - JVS(7416) = -B(4012) -! JVS(7417) = Jac_FULL(1808,3198) - JVS(7417) = B(4011) -! JVS(7418) = Jac_FULL(1808,4585) - JVS(7418) = B(1232)+B(1234)+B(1238) -! JVS(7419) = Jac_FULL(1808,5252) - JVS(7419) = B(1233) -! JVS(7420) = Jac_FULL(1808,5256) - JVS(7420) = B(1235) -! JVS(7421) = Jac_FULL(1809,1809) - JVS(7421) = -B(3630)-B(3632)-B(3634) -! JVS(7422) = Jac_FULL(1809,5195) - JVS(7422) = B(921) -! JVS(7423) = Jac_FULL(1809,5250) - JVS(7423) = -B(3631)-B(3633) -! JVS(7424) = Jac_FULL(1809,5255) - JVS(7424) = B(922) -! JVS(7425) = Jac_FULL(1810,1810) - JVS(7425) = -B(12697) -! JVS(7426) = Jac_FULL(1810,4125) - JVS(7426) = B(12695) -! JVS(7427) = Jac_FULL(1810,5001) - JVS(7427) = B(9099)+B(9101)+B(9103) -! JVS(7428) = Jac_FULL(1810,5252) - JVS(7428) = B(9100) -! JVS(7429) = Jac_FULL(1810,5256) - JVS(7429) = B(9102) -! JVS(7430) = Jac_FULL(1811,1811) - JVS(7430) = -B(22916)-B(22918) -! JVS(7431) = Jac_FULL(1811,3750) - JVS(7431) = B(22453) -! JVS(7432) = Jac_FULL(1811,5250) - JVS(7432) = -B(22917) -! JVS(7433) = Jac_FULL(1811,5252) - JVS(7433) = B(22454) -! JVS(7434) = Jac_FULL(1812,527) - JVS(7434) = B(22922) -! JVS(7435) = Jac_FULL(1812,1528) - JVS(7435) = B(22915) -! JVS(7436) = Jac_FULL(1812,1811) - JVS(7436) = B(22918) -! JVS(7437) = Jac_FULL(1812,1812) - JVS(7437) = -B(22919) -! JVS(7438) = Jac_FULL(1812,3750) - JVS(7438) = B(22455)+B(22457)+B(22459) -! JVS(7439) = Jac_FULL(1812,5250) - JVS(7439) = 0 -! JVS(7440) = Jac_FULL(1812,5252) - JVS(7440) = B(22456) -! JVS(7441) = Jac_FULL(1812,5255) - JVS(7441) = 0 -! JVS(7442) = Jac_FULL(1812,5256) - JVS(7442) = B(22458) -! JVS(7443) = Jac_FULL(1813,1813) - JVS(7443) = -B(23146)-B(23148) -! JVS(7444) = Jac_FULL(1813,4162) - JVS(7444) = B(22690) -! JVS(7445) = Jac_FULL(1813,5250) - JVS(7445) = -B(23147) -! JVS(7446) = Jac_FULL(1813,5252) - JVS(7446) = B(22691) -! JVS(7447) = Jac_FULL(1814,1060) - JVS(7447) = B(23145) -! JVS(7448) = Jac_FULL(1814,1813) - JVS(7448) = B(23148) -! JVS(7449) = Jac_FULL(1814,1814) - JVS(7449) = -B(23149) -! JVS(7450) = Jac_FULL(1814,4162) - JVS(7450) = B(22692)+B(22694)+B(22697) -! JVS(7451) = Jac_FULL(1814,5250) - JVS(7451) = 0 -! JVS(7452) = Jac_FULL(1814,5252) - JVS(7452) = B(22693) -! JVS(7453) = Jac_FULL(1814,5255) - JVS(7453) = 0 -! JVS(7454) = Jac_FULL(1814,5256) - JVS(7454) = B(22695) -! JVS(7455) = Jac_FULL(1815,1815) - JVS(7455) = -B(4066) -! JVS(7456) = Jac_FULL(1815,3243) - JVS(7456) = B(4065) -! JVS(7457) = Jac_FULL(1815,4596) - JVS(7457) = B(1262)+B(1264)+B(1267) -! JVS(7458) = Jac_FULL(1815,5252) - JVS(7458) = B(1263) -! JVS(7459) = Jac_FULL(1815,5256) - JVS(7459) = B(1265) -! JVS(7460) = Jac_FULL(1816,1816) - JVS(7460) = -B(20384)-B(20386) -! JVS(7461) = Jac_FULL(1816,4229) - JVS(7461) = B(18808) -! JVS(7462) = Jac_FULL(1816,5250) - JVS(7462) = -B(20385) -! JVS(7463) = Jac_FULL(1816,5255) - JVS(7463) = B(18809) -! JVS(7464) = Jac_FULL(1817,1817) - JVS(7464) = -B(275)-B(277)-B(279)-B(281) -! JVS(7465) = Jac_FULL(1817,2487) - JVS(7465) = B(2251) -! JVS(7466) = Jac_FULL(1817,5238) - JVS(7466) = -B(276)-B(278) -! JVS(7467) = Jac_FULL(1817,5250) - JVS(7467) = -B(280)-B(282) -! JVS(7468) = Jac_FULL(1818,547) - JVS(7468) = B(23446) -! JVS(7469) = Jac_FULL(1818,1411) - JVS(7469) = B(23441) -! JVS(7470) = Jac_FULL(1818,1818) - JVS(7470) = -B(23445) -! JVS(7471) = Jac_FULL(1818,2802) - JVS(7471) = B(23444) -! JVS(7472) = Jac_FULL(1818,5130) - JVS(7472) = B(23073)+B(23075)+B(23077) -! JVS(7473) = Jac_FULL(1818,5250) - JVS(7473) = B(23447) -! JVS(7474) = Jac_FULL(1818,5252) - JVS(7474) = B(23074) -! JVS(7475) = Jac_FULL(1818,5255) - JVS(7475) = 0 -! JVS(7476) = Jac_FULL(1818,5256) - JVS(7476) = B(23076) -! JVS(7477) = Jac_FULL(1819,1819) - JVS(7477) = -B(5479)-B(5481) -! JVS(7478) = Jac_FULL(1819,3509) - JVS(7478) = B(2462) -! JVS(7479) = Jac_FULL(1819,5250) - JVS(7479) = -B(5480) -! JVS(7480) = Jac_FULL(1819,5252) - JVS(7480) = B(2463) -! JVS(7481) = Jac_FULL(1820,1484) - JVS(7481) = B(5478) -! JVS(7482) = Jac_FULL(1820,1819) - JVS(7482) = B(5481) -! JVS(7483) = Jac_FULL(1820,1820) - JVS(7483) = -B(5482) -! JVS(7484) = Jac_FULL(1820,3509) - JVS(7484) = B(2464)+B(2466)+B(2469) -! JVS(7485) = Jac_FULL(1820,5250) - JVS(7485) = 0 -! JVS(7486) = Jac_FULL(1820,5252) - JVS(7486) = B(2465) -! JVS(7487) = Jac_FULL(1820,5255) - JVS(7487) = 0 -! JVS(7488) = Jac_FULL(1820,5256) - JVS(7488) = B(2467) -! JVS(7489) = Jac_FULL(1821,922) - JVS(7489) = B(5577) -! JVS(7490) = Jac_FULL(1821,1821) - JVS(7490) = -B(5581) -! JVS(7491) = Jac_FULL(1821,2309) - JVS(7491) = B(5580) -! JVS(7492) = Jac_FULL(1821,3507) - JVS(7492) = B(2508)+B(2510)+B(2513) -! JVS(7493) = Jac_FULL(1821,5250) - JVS(7493) = 0 -! JVS(7494) = Jac_FULL(1821,5252) - JVS(7494) = B(2509) -! JVS(7495) = Jac_FULL(1821,5255) - JVS(7495) = 0 -! JVS(7496) = Jac_FULL(1821,5256) - JVS(7496) = B(2511) -! JVS(7497) = Jac_FULL(1822,1131) - JVS(7497) = B(6501) -! JVS(7498) = Jac_FULL(1822,1822) - JVS(7498) = -B(6505) -! JVS(7499) = Jac_FULL(1822,2078) - JVS(7499) = B(6504) -! JVS(7500) = Jac_FULL(1822,3790) - JVS(7500) = B(2953)+B(2955)+B(2957) -! JVS(7501) = Jac_FULL(1822,5250) - JVS(7501) = 0 -! JVS(7502) = Jac_FULL(1822,5252) - JVS(7502) = B(2954) -! JVS(7503) = Jac_FULL(1822,5255) - JVS(7503) = 0 -! JVS(7504) = Jac_FULL(1822,5256) - JVS(7504) = B(2956) -! JVS(7505) = Jac_FULL(1823,1823) - JVS(7505) = -B(20785)-B(20787) -! JVS(7506) = Jac_FULL(1823,4900) - JVS(7506) = B(19201) -! JVS(7507) = Jac_FULL(1823,5250) - JVS(7507) = -B(20786) -! JVS(7508) = Jac_FULL(1823,5252) - JVS(7508) = B(19202) -! JVS(7509) = Jac_FULL(1824,1824) - JVS(7509) = -B(4767)-B(4768) -! JVS(7510) = Jac_FULL(1824,5107) - JVS(7510) = B(1944) -! JVS(7511) = Jac_FULL(1824,5250) - JVS(7511) = -B(4769) -! JVS(7512) = Jac_FULL(1824,5252) - JVS(7512) = B(1945) -! JVS(7513) = Jac_FULL(1825,1825) - JVS(7513) = -B(14034) -! JVS(7514) = Jac_FULL(1825,3708) - JVS(7514) = B(14029) -! JVS(7515) = Jac_FULL(1825,5197) - JVS(7515) = B(10832)+B(10834)+B(10836) -! JVS(7516) = Jac_FULL(1825,5252) - JVS(7516) = B(10833) -! JVS(7517) = Jac_FULL(1825,5256) - JVS(7517) = B(10835) -! JVS(7518) = Jac_FULL(1826,1557) - JVS(7518) = B(17811) -! JVS(7519) = Jac_FULL(1826,1826) - JVS(7519) = -B(17807)-B(17808) -! JVS(7520) = Jac_FULL(1826,3528) - JVS(7520) = B(17802) -! JVS(7521) = Jac_FULL(1826,4967) - JVS(7521) = B(15231) -! JVS(7522) = Jac_FULL(1826,5250) - JVS(7522) = B(17803)-B(17809)+B(17812) -! JVS(7523) = Jac_FULL(1827,1827) - JVS(7523) = -B(5100) -! JVS(7524) = Jac_FULL(1827,4582) - JVS(7524) = B(2257) -! JVS(7525) = Jac_FULL(1827,4879) - JVS(7525) = B(2241) -! JVS(7526) = Jac_FULL(1827,5250) - JVS(7526) = -B(5101) -! JVS(7527) = Jac_FULL(1827,5252) - JVS(7527) = B(2258) -! JVS(7528) = Jac_FULL(1828,1619) - JVS(7528) = B(17232) -! JVS(7529) = Jac_FULL(1828,1828) - JVS(7529) = -B(17229)-B(17231) -! JVS(7530) = Jac_FULL(1828,2737) - JVS(7530) = B(17224) -! JVS(7531) = Jac_FULL(1828,4542) - JVS(7531) = B(14609) -! JVS(7532) = Jac_FULL(1828,5250) - JVS(7532) = B(17225)-B(17230)+B(17233) -! JVS(7533) = Jac_FULL(1829,1829) - JVS(7533) = -B(17849)-B(17850) -! JVS(7534) = Jac_FULL(1829,4251) - JVS(7534) = B(15254) -! JVS(7535) = Jac_FULL(1829,5250) - JVS(7535) = -B(17851) -! JVS(7536) = Jac_FULL(1829,5252) - JVS(7536) = B(15255) -! JVS(7537) = Jac_FULL(1830,1830) - JVS(7537) = -B(18374)-B(18376) -! JVS(7538) = Jac_FULL(1830,4381) - JVS(7538) = B(15951) -! JVS(7539) = Jac_FULL(1830,5250) - JVS(7539) = -B(18375) -! JVS(7540) = Jac_FULL(1830,5255) - JVS(7540) = B(15952) -! JVS(7541) = Jac_FULL(1831,1831) - JVS(7541) = -B(4722)-B(4723) -! JVS(7542) = Jac_FULL(1831,4586) - JVS(7542) = B(1901) -! JVS(7543) = Jac_FULL(1831,5250) - JVS(7543) = -B(4724) -! JVS(7544) = Jac_FULL(1831,5252) - JVS(7544) = B(1902) -! JVS(7545) = Jac_FULL(1832,1690) - JVS(7545) = B(19674) -! JVS(7546) = Jac_FULL(1832,1832) - JVS(7546) = -B(19670)-B(19671) -! JVS(7547) = Jac_FULL(1832,3078) - JVS(7547) = B(19667) -! JVS(7548) = Jac_FULL(1832,4584) - JVS(7548) = B(17775) -! JVS(7549) = Jac_FULL(1832,5250) - JVS(7549) = B(19668)-B(19672)+B(19675) -! JVS(7550) = Jac_FULL(1833,713) - JVS(7550) = B(15425) -! JVS(7551) = Jac_FULL(1833,1833) - JVS(7551) = -B(13244) -! JVS(7552) = Jac_FULL(1833,3366) - JVS(7552) = B(13242) -! JVS(7553) = Jac_FULL(1833,3897) - JVS(7553) = 0 -! JVS(7554) = Jac_FULL(1833,5011) - JVS(7554) = B(9869)+B(9871)+B(9873) -! JVS(7555) = Jac_FULL(1833,5250) - JVS(7555) = 0 -! JVS(7556) = Jac_FULL(1833,5252) - JVS(7556) = B(9870) -! JVS(7557) = Jac_FULL(1833,5256) - JVS(7557) = B(9872) -! JVS(7558) = Jac_FULL(1834,1611) - JVS(7558) = B(11351) -! JVS(7559) = Jac_FULL(1834,1834) - JVS(7559) = -B(11348)-B(11350) -! JVS(7560) = Jac_FULL(1834,2469) - JVS(7560) = B(11343) -! JVS(7561) = Jac_FULL(1834,4754) - JVS(7561) = B(7517) -! JVS(7562) = Jac_FULL(1834,5250) - JVS(7562) = B(11344)-B(11349)+B(11352) -! JVS(7563) = Jac_FULL(1835,1835) - JVS(7563) = -B(17057) -! JVS(7564) = Jac_FULL(1835,3850) - JVS(7564) = B(14419) -! JVS(7565) = Jac_FULL(1835,5250) - JVS(7565) = -B(17058) -! JVS(7566) = Jac_FULL(1835,5252) - JVS(7566) = B(14420) -! JVS(7567) = Jac_FULL(1836,1836) - JVS(7567) = -B(9119)-B(9121) -! JVS(7568) = Jac_FULL(1836,4483) - JVS(7568) = B(5540) -! JVS(7569) = Jac_FULL(1836,5250) - JVS(7569) = -B(9120) -! JVS(7570) = Jac_FULL(1836,5255) - JVS(7570) = B(5541) -! JVS(7571) = Jac_FULL(1837,1837) - JVS(7571) = -B(15565)-B(15567)-B(15569) -! JVS(7572) = Jac_FULL(1837,4835) - JVS(7572) = B(12468) -! JVS(7573) = Jac_FULL(1837,5250) - JVS(7573) = -B(15566)-B(15568) -! JVS(7574) = Jac_FULL(1837,5255) - JVS(7574) = B(12469) -! JVS(7575) = Jac_FULL(1838,1340) - JVS(7575) = B(11868) -! JVS(7576) = Jac_FULL(1838,1838) - JVS(7576) = -B(11874) -! JVS(7577) = Jac_FULL(1838,2555) - JVS(7577) = B(11871) -! JVS(7578) = Jac_FULL(1838,3989) - JVS(7578) = B(8129)+B(8131)+B(8134) -! JVS(7579) = Jac_FULL(1838,5250) - JVS(7579) = 0 -! JVS(7580) = Jac_FULL(1838,5252) - JVS(7580) = B(8130) -! JVS(7581) = Jac_FULL(1838,5255) - JVS(7581) = 0 -! JVS(7582) = Jac_FULL(1838,5256) - JVS(7582) = B(8132) -! JVS(7583) = Jac_FULL(1839,1839) - JVS(7583) = -B(19752)-B(19753)-B(19754) -! JVS(7584) = Jac_FULL(1839,4369) - JVS(7584) = B(17881) -! JVS(7585) = Jac_FULL(1839,5250) - JVS(7585) = -B(19755) -! JVS(7586) = Jac_FULL(1839,5255) - JVS(7586) = B(17882) -! JVS(7587) = Jac_FULL(1840,1840) - JVS(7587) = -B(16031)-B(16033) -! JVS(7588) = Jac_FULL(1840,4069) - JVS(7588) = B(12958) -! JVS(7589) = Jac_FULL(1840,5250) - JVS(7589) = -B(16032) -! JVS(7590) = Jac_FULL(1840,5255) - JVS(7590) = B(12959) -! JVS(7591) = Jac_FULL(1841,1841) - JVS(7591) = -B(7096)-B(7098) -! JVS(7592) = Jac_FULL(1841,4581) - JVS(7592) = B(3297) -! JVS(7593) = Jac_FULL(1841,5250) - JVS(7593) = -B(7097) -! JVS(7594) = Jac_FULL(1841,5252) - JVS(7594) = B(3298) -! JVS(7595) = Jac_FULL(1842,1842) - JVS(7595) = -B(3896)-B(3897)-B(3899) -! JVS(7596) = Jac_FULL(1842,5116) - JVS(7596) = B(1140) -! JVS(7597) = Jac_FULL(1842,5250) - JVS(7597) = -B(3898)-B(3900) -! JVS(7598) = Jac_FULL(1842,5255) - JVS(7598) = B(1141) -! JVS(7599) = Jac_FULL(1843,281) - JVS(7599) = B(17194) -! JVS(7600) = Jac_FULL(1843,1843) - JVS(7600) = -B(17191)-B(17193) -! JVS(7601) = Jac_FULL(1843,2439) - JVS(7601) = B(17187) -! JVS(7602) = Jac_FULL(1843,4762) - JVS(7602) = B(14568) -! JVS(7603) = Jac_FULL(1843,5250) - JVS(7603) = B(17188)-B(17192)+B(17195) -! JVS(7604) = Jac_FULL(1844,1844) - JVS(7604) = -B(7237)-B(7239) -! JVS(7605) = Jac_FULL(1844,3943) - JVS(7605) = B(3407) -! JVS(7606) = Jac_FULL(1844,5250) - JVS(7606) = -B(7238) -! JVS(7607) = Jac_FULL(1844,5255) - JVS(7607) = B(3408) -! JVS(7608) = Jac_FULL(1845,1845) - JVS(7608) = -B(18491)-B(18493) -! JVS(7609) = Jac_FULL(1845,4379) - JVS(7609) = B(16134) -! JVS(7610) = Jac_FULL(1845,5250) - JVS(7610) = -B(18494) -! JVS(7611) = Jac_FULL(1845,5256) - JVS(7611) = -B(18492) -! JVS(7612) = Jac_FULL(1846,1846) - JVS(7612) = -B(10692)-B(10694) -! JVS(7613) = Jac_FULL(1846,4087) - JVS(7613) = B(6876) -! JVS(7614) = Jac_FULL(1846,5250) - JVS(7614) = -B(10693) -! JVS(7615) = Jac_FULL(1846,5252) - JVS(7615) = B(6877) -! JVS(7616) = Jac_FULL(1847,1445) - JVS(7616) = B(10691) -! JVS(7617) = Jac_FULL(1847,1846) - JVS(7617) = B(10694) -! JVS(7618) = Jac_FULL(1847,1847) - JVS(7618) = -B(10695) -! JVS(7619) = Jac_FULL(1847,4087) - JVS(7619) = B(6878)+B(6880)+B(6882) -! JVS(7620) = Jac_FULL(1847,5250) - JVS(7620) = 0 -! JVS(7621) = Jac_FULL(1847,5252) - JVS(7621) = B(6879) -! JVS(7622) = Jac_FULL(1847,5255) - JVS(7622) = 0 -! JVS(7623) = Jac_FULL(1847,5256) - JVS(7623) = B(6881) -! JVS(7624) = Jac_FULL(1848,1848) - JVS(7624) = -B(16625) -! JVS(7625) = Jac_FULL(1848,3449) - JVS(7625) = B(16624) -! JVS(7626) = Jac_FULL(1848,4339) - JVS(7626) = B(13788)+B(13790)+B(13792) -! JVS(7627) = Jac_FULL(1848,5252) - JVS(7627) = B(13789) -! JVS(7628) = Jac_FULL(1848,5256) - JVS(7628) = B(13791) -! JVS(7629) = Jac_FULL(1849,1849) - JVS(7629) = -B(4808)-B(4810)-B(4812) -! JVS(7630) = Jac_FULL(1849,4171) - JVS(7630) = B(1986) -! JVS(7631) = Jac_FULL(1849,5250) - JVS(7631) = -B(4809)-B(4811) -! JVS(7632) = Jac_FULL(1849,5255) - JVS(7632) = B(1987) -! JVS(7633) = Jac_FULL(1850,1850) - JVS(7633) = -B(15724)-B(15726) -! JVS(7634) = Jac_FULL(1850,3677) - JVS(7634) = B(12653) -! JVS(7635) = Jac_FULL(1850,5250) - JVS(7635) = -B(15725) -! JVS(7636) = Jac_FULL(1850,5255) - JVS(7636) = B(12654) -! JVS(7637) = Jac_FULL(1851,1851) - JVS(7637) = -B(13526) -! JVS(7638) = Jac_FULL(1851,4414) - JVS(7638) = B(10346)+B(10358) -! JVS(7639) = Jac_FULL(1851,5250) - JVS(7639) = -B(13527) -! JVS(7640) = Jac_FULL(1851,5255) - JVS(7640) = B(10347) -! JVS(7641) = Jac_FULL(1852,209) - JVS(7641) = B(20707)+B(20709) -! JVS(7642) = Jac_FULL(1852,1214) - JVS(7642) = B(20702) -! JVS(7643) = Jac_FULL(1852,1852) - JVS(7643) = -B(20706) -! JVS(7644) = Jac_FULL(1852,2701) - JVS(7644) = B(20705) -! JVS(7645) = Jac_FULL(1852,4580) - JVS(7645) = B(19121)+B(19123)+B(19125) -! JVS(7646) = Jac_FULL(1852,5250) - JVS(7646) = B(20708) -! JVS(7647) = Jac_FULL(1852,5252) - JVS(7647) = B(19122) -! JVS(7648) = Jac_FULL(1852,5255) - JVS(7648) = 0 -! JVS(7649) = Jac_FULL(1852,5256) - JVS(7649) = B(19124) -! JVS(7650) = Jac_FULL(1853,1853) - JVS(7650) = -B(4337)-B(4339) -! JVS(7651) = Jac_FULL(1853,4923) - JVS(7651) = B(1563) -! JVS(7652) = Jac_FULL(1853,5250) - JVS(7652) = -B(4338) -! JVS(7653) = Jac_FULL(1854,1854) - JVS(7653) = -B(15728)-B(15730)-B(15731) -! JVS(7654) = Jac_FULL(1854,4550) - JVS(7654) = B(12660) -! JVS(7655) = Jac_FULL(1854,5250) - JVS(7655) = -B(15729) -! JVS(7656) = Jac_FULL(1854,5255) - JVS(7656) = B(12661) -! JVS(7657) = Jac_FULL(1855,1855) - JVS(7657) = -B(4532)-B(4533)-B(4535) -! JVS(7658) = Jac_FULL(1855,4974) - JVS(7658) = B(1749) -! JVS(7659) = Jac_FULL(1855,5250) - JVS(7659) = -B(4534)-B(4536) -! JVS(7660) = Jac_FULL(1855,5255) - JVS(7660) = B(1750) -! JVS(7661) = Jac_FULL(1856,1856) - JVS(7661) = -B(14113)-B(14114) -! JVS(7662) = Jac_FULL(1856,5150) - JVS(7662) = B(10912) -! JVS(7663) = Jac_FULL(1856,5250) - JVS(7663) = -B(14115) -! JVS(7664) = Jac_FULL(1856,5252) - JVS(7664) = B(10913) -! JVS(7665) = Jac_FULL(1857,1857) - JVS(7665) = -B(10095)-B(10097)-B(10098) -! JVS(7666) = Jac_FULL(1857,4905) - JVS(7666) = B(6392) -! JVS(7667) = Jac_FULL(1857,5250) - JVS(7667) = -B(10096) -! JVS(7668) = Jac_FULL(1858,1718) - JVS(7668) = B(11218) -! JVS(7669) = Jac_FULL(1858,1858) - JVS(7669) = -B(11215)-B(11217) -! JVS(7670) = Jac_FULL(1858,2727) - JVS(7670) = B(11210) -! JVS(7671) = Jac_FULL(1858,4144) - JVS(7671) = B(7428) -! JVS(7672) = Jac_FULL(1858,5250) - JVS(7672) = B(11211)-B(11216)+B(11219) -! JVS(7673) = Jac_FULL(1859,1859) - JVS(7673) = -B(4820)-B(4822)-B(4824) -! JVS(7674) = Jac_FULL(1859,4351) - JVS(7674) = B(1998) -! JVS(7675) = Jac_FULL(1859,5250) - JVS(7675) = -B(4821)-B(4823) -! JVS(7676) = Jac_FULL(1859,5255) - JVS(7676) = B(1999) -! JVS(7677) = Jac_FULL(1860,1542) - JVS(7677) = B(5934) -! JVS(7678) = Jac_FULL(1860,1860) - JVS(7678) = -B(5938) -! JVS(7679) = Jac_FULL(1860,1881) - JVS(7679) = B(5937) -! JVS(7680) = Jac_FULL(1860,3521) - JVS(7680) = B(2682)+B(2684)+B(2687) -! JVS(7681) = Jac_FULL(1860,5250) - JVS(7681) = 0 -! JVS(7682) = Jac_FULL(1860,5252) - JVS(7682) = B(2683) -! JVS(7683) = Jac_FULL(1860,5255) - JVS(7683) = 0 -! JVS(7684) = Jac_FULL(1860,5256) - JVS(7684) = B(2685) -! JVS(7685) = Jac_FULL(1861,1861) - JVS(7685) = -B(16008)-B(16010) -! JVS(7686) = Jac_FULL(1861,3696) - JVS(7686) = B(12926) -! JVS(7687) = Jac_FULL(1861,5250) - JVS(7687) = -B(16009) -! JVS(7688) = Jac_FULL(1861,5255) - JVS(7688) = B(12927) -! JVS(7689) = Jac_FULL(1862,1862) - JVS(7689) = -B(17370)-B(17372) -! JVS(7690) = Jac_FULL(1862,3844) - JVS(7690) = B(14783) -! JVS(7691) = Jac_FULL(1862,5250) - JVS(7691) = -B(17371) -! JVS(7692) = Jac_FULL(1862,5255) - JVS(7692) = B(14784) -! JVS(7693) = Jac_FULL(1863,1863) - JVS(7693) = -B(17213)-B(17215)-B(17216) -! JVS(7694) = Jac_FULL(1863,4761) - JVS(7694) = B(14594) -! JVS(7695) = Jac_FULL(1863,5250) - JVS(7695) = -B(17214) -! JVS(7696) = Jac_FULL(1863,5255) - JVS(7696) = B(14595) -! JVS(7697) = Jac_FULL(1864,1864) - JVS(7697) = -B(13983)-B(13985) -! JVS(7698) = Jac_FULL(1864,4219) - JVS(7698) = B(10772) -! JVS(7699) = Jac_FULL(1864,5250) - JVS(7699) = -B(13984) -! JVS(7700) = Jac_FULL(1864,5252) - JVS(7700) = B(10773) -! JVS(7701) = Jac_FULL(1865,1449) - JVS(7701) = B(13982) -! JVS(7702) = Jac_FULL(1865,1864) - JVS(7702) = B(13985) -! JVS(7703) = Jac_FULL(1865,1865) - JVS(7703) = -B(13986) -! JVS(7704) = Jac_FULL(1865,4219) - JVS(7704) = B(10774)+B(10776)+B(10779) -! JVS(7705) = Jac_FULL(1865,5250) - JVS(7705) = 0 -! JVS(7706) = Jac_FULL(1865,5252) - JVS(7706) = B(10775) -! JVS(7707) = Jac_FULL(1865,5255) - JVS(7707) = 0 -! JVS(7708) = Jac_FULL(1865,5256) - JVS(7708) = B(10777) -! JVS(7709) = Jac_FULL(1866,1866) - JVS(7709) = -B(4313) -! JVS(7710) = Jac_FULL(1866,3462) - JVS(7710) = B(4309) -! JVS(7711) = Jac_FULL(1866,4783) - JVS(7711) = B(1534)+B(1536)+B(1540) -! JVS(7712) = Jac_FULL(1866,5252) - JVS(7712) = B(1535) -! JVS(7713) = Jac_FULL(1866,5256) - JVS(7713) = B(1537) -! JVS(7714) = Jac_FULL(1867,1305) - JVS(7714) = B(6970) -! JVS(7715) = Jac_FULL(1867,1867) - JVS(7715) = -B(6974) -! JVS(7716) = Jac_FULL(1867,2817) - JVS(7716) = B(6973) -! JVS(7717) = Jac_FULL(1867,4609) - JVS(7717) = B(3189)+B(3191)+B(3195) -! JVS(7718) = Jac_FULL(1867,5250) - JVS(7718) = 0 -! JVS(7719) = Jac_FULL(1867,5252) - JVS(7719) = B(3190) -! JVS(7720) = Jac_FULL(1867,5255) - JVS(7720) = 0 -! JVS(7721) = Jac_FULL(1867,5256) - JVS(7721) = B(3192) -! JVS(7722) = Jac_FULL(1868,1868) - JVS(7722) = -B(19496)-B(19498) -! JVS(7723) = Jac_FULL(1868,4176) - JVS(7723) = B(17330) -! JVS(7724) = Jac_FULL(1868,5250) - JVS(7724) = -B(19497) -! JVS(7725) = Jac_FULL(1868,5255) - JVS(7725) = B(17331) -! JVS(7726) = Jac_FULL(1869,1869) - JVS(7726) = -B(13989)-B(13991) -! JVS(7727) = Jac_FULL(1869,4368) - JVS(7727) = B(10783) -! JVS(7728) = Jac_FULL(1869,5250) - JVS(7728) = -B(13990) -! JVS(7729) = Jac_FULL(1869,5255) - JVS(7729) = B(10784) -! JVS(7730) = Jac_FULL(1870,321) - JVS(7730) = B(13996) -! JVS(7731) = Jac_FULL(1870,1869) - JVS(7731) = B(13989) -! JVS(7732) = Jac_FULL(1870,1870) - JVS(7732) = -B(13952) -! JVS(7733) = Jac_FULL(1870,2405) - JVS(7733) = B(13993) -! JVS(7734) = Jac_FULL(1870,4368) - JVS(7734) = B(10781)+B(10791) -! JVS(7735) = Jac_FULL(1870,4595) - JVS(7735) = B(10750) -! JVS(7736) = Jac_FULL(1870,5250) - JVS(7736) = -B(13953)+B(13990)+B(13994)+B(13997) -! JVS(7737) = Jac_FULL(1870,5255) - JVS(7737) = B(10782) -! JVS(7738) = Jac_FULL(1871,1871) - JVS(7738) = -B(23196)-B(23198) -! JVS(7739) = Jac_FULL(1871,4147) - JVS(7739) = B(22736) -! JVS(7740) = Jac_FULL(1871,5250) - JVS(7740) = -B(23197) -! JVS(7741) = Jac_FULL(1871,5255) - JVS(7741) = B(22737) -! JVS(7742) = Jac_FULL(1872,1872) - JVS(7742) = -B(4375) -! JVS(7743) = Jac_FULL(1872,2805) - JVS(7743) = B(4374) -! JVS(7744) = Jac_FULL(1872,4353) - JVS(7744) = B(1590)+B(1592)+B(1596) -! JVS(7745) = Jac_FULL(1872,5252) - JVS(7745) = B(1591) -! JVS(7746) = Jac_FULL(1872,5256) - JVS(7746) = B(1593) -! JVS(7747) = Jac_FULL(1873,1873) - JVS(7747) = -B(10014)-B(10016)-B(10017) -! JVS(7748) = Jac_FULL(1873,4897) - JVS(7748) = B(6313) -! JVS(7749) = Jac_FULL(1873,5250) - JVS(7749) = -B(10015) -! JVS(7750) = Jac_FULL(1873,5255) - JVS(7750) = B(6314) -! JVS(7751) = Jac_FULL(1874,1874) - JVS(7751) = -B(20478)-B(20479) -! JVS(7752) = Jac_FULL(1874,4657) - JVS(7752) = B(18886) -! JVS(7753) = Jac_FULL(1874,5250) - JVS(7753) = -B(20480) -! JVS(7754) = Jac_FULL(1874,5255) - JVS(7754) = B(18887) -! JVS(7755) = Jac_FULL(1875,1875) - JVS(7755) = -B(23456)-B(23458) -! JVS(7756) = Jac_FULL(1875,4572) - JVS(7756) = B(23087) -! JVS(7757) = Jac_FULL(1875,5250) - JVS(7757) = -B(23457) -! JVS(7758) = Jac_FULL(1876,1876) - JVS(7758) = -B(7107)-B(7109)-B(7111) -! JVS(7759) = Jac_FULL(1876,4784) - JVS(7759) = B(3306) -! JVS(7760) = Jac_FULL(1876,5250) - JVS(7760) = -B(7108)-B(7110) -! JVS(7761) = Jac_FULL(1876,5255) - JVS(7761) = B(3307) -! JVS(7762) = Jac_FULL(1877,1877) - JVS(7762) = -B(4955) -! JVS(7763) = Jac_FULL(1877,3289) - JVS(7763) = B(4954) -! JVS(7764) = Jac_FULL(1877,4598) - JVS(7764) = B(2109)+B(2111)+B(2115) -! JVS(7765) = Jac_FULL(1877,5252) - JVS(7765) = B(2110) -! JVS(7766) = Jac_FULL(1877,5256) - JVS(7766) = B(2112) -! JVS(7767) = Jac_FULL(1878,1878) - JVS(7767) = -B(9492)-B(9494) -! JVS(7768) = Jac_FULL(1878,3439) - JVS(7768) = B(5847) -! JVS(7769) = Jac_FULL(1878,3440) - JVS(7769) = B(5850) -! JVS(7770) = Jac_FULL(1878,5250) - JVS(7770) = B(5848)-B(9493) -! JVS(7771) = Jac_FULL(1879,1879) - JVS(7771) = -B(22236)-B(22238) -! JVS(7772) = Jac_FULL(1879,4620) - JVS(7772) = B(21414) -! JVS(7773) = Jac_FULL(1879,5250) - JVS(7773) = -B(22237) -! JVS(7774) = Jac_FULL(1879,5255) - JVS(7774) = B(21415) -! JVS(7775) = Jac_FULL(1880,1880) - JVS(7775) = -B(4198)-B(4200)-B(4202) -! JVS(7776) = Jac_FULL(1880,3884) - JVS(7776) = B(1423) -! JVS(7777) = Jac_FULL(1880,5250) - JVS(7777) = -B(4199)-B(4201) -! JVS(7778) = Jac_FULL(1880,5255) - JVS(7778) = B(1424) -! JVS(7779) = Jac_FULL(1881,1881) - JVS(7779) = -B(5935)-B(5937) -! JVS(7780) = Jac_FULL(1881,3521) - JVS(7780) = B(2680) -! JVS(7781) = Jac_FULL(1881,5250) - JVS(7781) = -B(5936) -! JVS(7782) = Jac_FULL(1881,5252) - JVS(7782) = B(2681) -! JVS(7783) = Jac_FULL(1882,1882) - JVS(7783) = -B(4077) -! JVS(7784) = Jac_FULL(1882,3256) - JVS(7784) = B(4076) -! JVS(7785) = Jac_FULL(1882,4554) - JVS(7785) = B(1273)+B(1275)+B(1279) -! JVS(7786) = Jac_FULL(1882,5252) - JVS(7786) = B(1274) -! JVS(7787) = Jac_FULL(1882,5256) - JVS(7787) = B(1276) -! JVS(7788) = Jac_FULL(1883,1883) - JVS(7788) = -B(23420)-B(23422) -! JVS(7789) = Jac_FULL(1883,3743) - JVS(7789) = B(23031) -! JVS(7790) = Jac_FULL(1883,5250) - JVS(7790) = -B(23421) -! JVS(7791) = Jac_FULL(1883,5252) - JVS(7791) = B(23032) -! JVS(7792) = Jac_FULL(1884,1884) - JVS(7792) = -B(18993)-B(18994)-B(18996) -! JVS(7793) = Jac_FULL(1884,4348) - JVS(7793) = B(16787) -! JVS(7794) = Jac_FULL(1884,5250) - JVS(7794) = -B(18995)-B(18997) -! JVS(7795) = Jac_FULL(1884,5255) - JVS(7795) = B(16788) -! JVS(7796) = Jac_FULL(1885,1885) - JVS(7796) = -B(4435)-B(4436)-B(4438) -! JVS(7797) = Jac_FULL(1885,5147) - JVS(7797) = B(1662) -! JVS(7798) = Jac_FULL(1885,5250) - JVS(7798) = -B(4437)-B(4439) -! JVS(7799) = Jac_FULL(1885,5255) - JVS(7799) = B(1663) -! JVS(7800) = Jac_FULL(1886,1886) - JVS(7800) = -B(3671)-B(3673)-B(3675) -! JVS(7801) = Jac_FULL(1886,4645) - JVS(7801) = B(965) -! JVS(7802) = Jac_FULL(1886,5250) - JVS(7802) = -B(3672)-B(3674) -! JVS(7803) = Jac_FULL(1886,5255) - JVS(7803) = B(966) -! JVS(7804) = Jac_FULL(1887,1887) - JVS(7804) = -B(22524)-B(22526)-B(22527) -! JVS(7805) = Jac_FULL(1887,4242) - JVS(7805) = B(21927) -! JVS(7806) = Jac_FULL(1887,5250) - JVS(7806) = -B(22525) -! JVS(7807) = Jac_FULL(1887,5255) - JVS(7807) = B(21928) -! JVS(7808) = Jac_FULL(1888,1888) - JVS(7808) = -B(21714)-B(21716) -! JVS(7809) = Jac_FULL(1888,4268) - JVS(7809) = B(20689) -! JVS(7810) = Jac_FULL(1888,5250) - JVS(7810) = -B(21715) -! JVS(7811) = Jac_FULL(1888,5255) - JVS(7811) = B(20690) -! JVS(7812) = Jac_FULL(1889,1889) - JVS(7812) = -B(12162)-B(12164) -! JVS(7813) = Jac_FULL(1889,3952) - JVS(7813) = B(8416) -! JVS(7814) = Jac_FULL(1889,5250) - JVS(7814) = -B(12163) -! JVS(7815) = Jac_FULL(1889,5252) - JVS(7815) = B(8417) -! JVS(7816) = Jac_FULL(1890,1890) - JVS(7816) = -B(23855)-B(23857) -! JVS(7817) = Jac_FULL(1890,4226) - JVS(7817) = B(23684) -! JVS(7818) = Jac_FULL(1890,5250) - JVS(7818) = -B(23856) -! JVS(7819) = Jac_FULL(1890,5255) - JVS(7819) = B(23685) -! JVS(7820) = Jac_FULL(1891,1891) - JVS(7820) = -B(18805) -! JVS(7821) = Jac_FULL(1891,3618) - JVS(7821) = B(18803) -! JVS(7822) = Jac_FULL(1891,4982) - JVS(7822) = B(16616)+B(16618)+B(16620) -! JVS(7823) = Jac_FULL(1891,5252) - JVS(7823) = B(16617) -! JVS(7824) = Jac_FULL(1891,5256) - JVS(7824) = B(16619) -! JVS(7825) = Jac_FULL(1892,1892) - JVS(7825) = -B(21615) -! JVS(7826) = Jac_FULL(1892,3217) - JVS(7826) = B(21613) -! JVS(7827) = Jac_FULL(1892,4123) - JVS(7827) = B(20502)+B(20504)+B(20506) -! JVS(7828) = Jac_FULL(1892,5252) - JVS(7828) = B(20503) -! JVS(7829) = Jac_FULL(1892,5256) - JVS(7829) = B(20505) -! JVS(7830) = Jac_FULL(1893,1893) - JVS(7830) = -B(19030)-B(19032) -! JVS(7831) = Jac_FULL(1893,2868) - JVS(7831) = B(19540) -! JVS(7832) = Jac_FULL(1893,4926) - JVS(7832) = B(16818) -! JVS(7833) = Jac_FULL(1893,5250) - JVS(7833) = -B(19031)+B(19541) -! JVS(7834) = Jac_FULL(1893,5255) - JVS(7834) = B(16819) -! JVS(7835) = Jac_FULL(1894,1894) - JVS(7835) = -B(4023) -! JVS(7836) = Jac_FULL(1894,4364) - JVS(7836) = B(1245) -! JVS(7837) = Jac_FULL(1894,4596) - JVS(7837) = B(1260) -! JVS(7838) = Jac_FULL(1894,5250) - JVS(7838) = -B(4024) -! JVS(7839) = Jac_FULL(1894,5252) - JVS(7839) = B(1261) -! JVS(7840) = Jac_FULL(1895,1895) - JVS(7840) = -B(7002)-B(7004) -! JVS(7841) = Jac_FULL(1895,5246) - JVS(7841) = B(3209) -! JVS(7842) = Jac_FULL(1895,5250) - JVS(7842) = -B(7003) -! JVS(7843) = Jac_FULL(1895,5252) - JVS(7843) = B(3210) -! JVS(7844) = Jac_FULL(1896,1896) - JVS(7844) = -B(6275)-B(6277) -! JVS(7845) = Jac_FULL(1896,3798) - JVS(7845) = B(2846) -! JVS(7846) = Jac_FULL(1896,5250) - JVS(7846) = -B(6276) -! JVS(7847) = Jac_FULL(1896,5252) - JVS(7847) = B(2847) -! JVS(7848) = Jac_FULL(1897,1897) - JVS(7848) = -B(3947)-B(3949)-B(3951) -! JVS(7849) = Jac_FULL(1897,4161) - JVS(7849) = B(1181) -! JVS(7850) = Jac_FULL(1897,5250) - JVS(7850) = -B(3948)-B(3950) -! JVS(7851) = Jac_FULL(1897,5255) - JVS(7851) = B(1182) -! JVS(7852) = Jac_FULL(1898,1898) - JVS(7852) = -B(15910)-B(15912) -! JVS(7853) = Jac_FULL(1898,3727) - JVS(7853) = B(12828) -! JVS(7854) = Jac_FULL(1898,5250) - JVS(7854) = -B(15911) -! JVS(7855) = Jac_FULL(1898,5255) - JVS(7855) = B(12829) -! JVS(7856) = Jac_FULL(1899,1899) - JVS(7856) = -B(3655)-B(3657)-B(3659) -! JVS(7857) = Jac_FULL(1899,5121) - JVS(7857) = B(943) -! JVS(7858) = Jac_FULL(1899,5250) - JVS(7858) = -B(3656)-B(3658) -! JVS(7859) = Jac_FULL(1899,5255) - JVS(7859) = B(944) -! JVS(7860) = Jac_FULL(1900,1900) - JVS(7860) = -B(17272)-B(17274) -! JVS(7861) = Jac_FULL(1900,5122) - JVS(7861) = B(14702) -! JVS(7862) = Jac_FULL(1900,5250) - JVS(7862) = -B(17273) -! JVS(7863) = Jac_FULL(1900,5255) - JVS(7863) = B(14703) -! JVS(7864) = Jac_FULL(1901,1901) - JVS(7864) = -B(19040)-B(19042) -! JVS(7865) = Jac_FULL(1901,4768) - JVS(7865) = B(16835) -! JVS(7866) = Jac_FULL(1901,5250) - JVS(7866) = -B(19041) -! JVS(7867) = Jac_FULL(1901,5255) - JVS(7867) = B(16836) -! JVS(7868) = Jac_FULL(1902,1902) - JVS(7868) = -B(11613)-B(11614) -! JVS(7869) = Jac_FULL(1902,3758) - JVS(7869) = B(7858) -! JVS(7870) = Jac_FULL(1902,5250) - JVS(7870) = -B(11615) -! JVS(7871) = Jac_FULL(1902,5252) - JVS(7871) = B(7859) -! JVS(7872) = Jac_FULL(1903,1385) - JVS(7872) = B(6097) -! JVS(7873) = Jac_FULL(1903,1903) - JVS(7873) = -B(6101) -! JVS(7874) = Jac_FULL(1903,2232) - JVS(7874) = B(6100) -! JVS(7875) = Jac_FULL(1903,3492) - JVS(7875) = B(2765)+B(2767)+B(2770) -! JVS(7876) = Jac_FULL(1903,5250) - JVS(7876) = 0 -! JVS(7877) = Jac_FULL(1903,5252) - JVS(7877) = B(2766) -! JVS(7878) = Jac_FULL(1903,5255) - JVS(7878) = 0 -! JVS(7879) = Jac_FULL(1903,5256) - JVS(7879) = B(2768) -! JVS(7880) = Jac_FULL(1904,1904) - JVS(7880) = -B(7112)-B(7114) -! JVS(7881) = Jac_FULL(1904,4784) - JVS(7881) = B(3308) -! JVS(7882) = Jac_FULL(1904,5250) - JVS(7882) = -B(7113) -! JVS(7883) = Jac_FULL(1904,5252) - JVS(7883) = B(3309) -! JVS(7884) = Jac_FULL(1905,1905) - JVS(7884) = -B(7469) -! JVS(7885) = Jac_FULL(1905,3994) - JVS(7885) = B(3556) -! JVS(7886) = Jac_FULL(1905,5250) - JVS(7886) = -B(7470) -! JVS(7887) = Jac_FULL(1905,5252) - JVS(7887) = B(3557) -! JVS(7888) = Jac_FULL(1906,1108) - JVS(7888) = B(3789) -! JVS(7889) = Jac_FULL(1906,1906) - JVS(7889) = -B(3795) -! JVS(7890) = Jac_FULL(1906,2198) - JVS(7890) = B(3792) -! JVS(7891) = Jac_FULL(1906,4310) - JVS(7891) = B(1063)+B(1065)+B(1067) -! JVS(7892) = Jac_FULL(1906,5250) - JVS(7892) = 0 -! JVS(7893) = Jac_FULL(1906,5252) - JVS(7893) = B(1064) -! JVS(7894) = Jac_FULL(1906,5255) - JVS(7894) = 0 -! JVS(7895) = Jac_FULL(1906,5256) - JVS(7895) = B(1066) -! JVS(7896) = Jac_FULL(1907,1907) - JVS(7896) = -B(17717)-B(17718)-B(17720) -! JVS(7897) = Jac_FULL(1907,4058) - JVS(7897) = B(15150) -! JVS(7898) = Jac_FULL(1907,5250) - JVS(7898) = -B(17719)-B(17721) -! JVS(7899) = Jac_FULL(1907,5255) - JVS(7899) = B(15151) -! JVS(7900) = Jac_FULL(1908,1908) - JVS(7900) = -B(19654)-B(19655)-B(19656) -! JVS(7901) = Jac_FULL(1908,4566) - JVS(7901) = B(17760) -! JVS(7902) = Jac_FULL(1908,5250) - JVS(7902) = -B(19657) -! JVS(7903) = Jac_FULL(1908,5255) - JVS(7903) = B(17761) -! JVS(7904) = Jac_FULL(1909,1909) - JVS(7904) = -B(10715)-B(10717) -! JVS(7905) = Jac_FULL(1909,3496) - JVS(7905) = B(6907) -! JVS(7906) = Jac_FULL(1909,5250) - JVS(7906) = -B(10716) -! JVS(7907) = Jac_FULL(1909,5252) - JVS(7907) = B(6908) -! JVS(7908) = Jac_FULL(1910,1102) - JVS(7908) = B(10714) -! JVS(7909) = Jac_FULL(1910,1909) - JVS(7909) = B(10717) -! JVS(7910) = Jac_FULL(1910,1910) - JVS(7910) = -B(10718) -! JVS(7911) = Jac_FULL(1910,3496) - JVS(7911) = B(6909)+B(6911)+B(6915) -! JVS(7912) = Jac_FULL(1910,5250) - JVS(7912) = 0 -! JVS(7913) = Jac_FULL(1910,5252) - JVS(7913) = B(6910) -! JVS(7914) = Jac_FULL(1910,5255) - JVS(7914) = 0 -! JVS(7915) = Jac_FULL(1910,5256) - JVS(7915) = B(6912) -! JVS(7916) = Jac_FULL(1911,1911) - JVS(7916) = -B(7460)-B(7462) -! JVS(7917) = Jac_FULL(1911,3867) - JVS(7917) = B(3543) -! JVS(7918) = Jac_FULL(1911,5250) - JVS(7918) = -B(7461) -! JVS(7919) = Jac_FULL(1911,5255) - JVS(7919) = B(3544) -! JVS(7920) = Jac_FULL(1912,1912) - JVS(7920) = -B(23657) -! JVS(7921) = Jac_FULL(1912,3848) - JVS(7921) = B(23381) -! JVS(7922) = Jac_FULL(1912,5250) - JVS(7922) = -B(23658) -! JVS(7923) = Jac_FULL(1912,5252) - JVS(7923) = B(23382) -! JVS(7924) = Jac_FULL(1913,371) - JVS(7924) = B(17279) -! JVS(7925) = Jac_FULL(1913,1900) - JVS(7925) = B(17272) -! JVS(7926) = Jac_FULL(1913,1913) - JVS(7926) = -B(17276)-B(17278) -! JVS(7927) = Jac_FULL(1913,5122) - JVS(7927) = B(14708) -! JVS(7928) = Jac_FULL(1913,5250) - JVS(7928) = B(17273)-B(17277)+B(17280) -! JVS(7929) = Jac_FULL(1913,5255) - JVS(7929) = 0 -! JVS(7930) = Jac_FULL(1914,1914) - JVS(7930) = -B(3684)-B(3686)-B(3688) -! JVS(7931) = Jac_FULL(1914,4870) - JVS(7931) = B(976) -! JVS(7932) = Jac_FULL(1914,5250) - JVS(7932) = -B(3685)-B(3687) -! JVS(7933) = Jac_FULL(1914,5255) - JVS(7933) = B(977) -! JVS(7934) = Jac_FULL(1915,1915) - JVS(7934) = -B(7411) -! JVS(7935) = Jac_FULL(1915,3867) - JVS(7935) = B(3545) -! JVS(7936) = Jac_FULL(1915,3940) - JVS(7936) = B(3527) -! JVS(7937) = Jac_FULL(1915,5250) - JVS(7937) = -B(7412) -! JVS(7938) = Jac_FULL(1915,5252) - JVS(7938) = B(3546) -! JVS(7939) = Jac_FULL(1916,1916) - JVS(7939) = -B(12191)-B(12193) -! JVS(7940) = Jac_FULL(1916,4724) - JVS(7940) = B(8462) -! JVS(7941) = Jac_FULL(1916,5250) - JVS(7941) = -B(12192) -! JVS(7942) = Jac_FULL(1917,1917) - JVS(7942) = -B(13484)-B(13485)-B(13486) -! JVS(7943) = Jac_FULL(1917,4589) - JVS(7943) = B(10310) -! JVS(7944) = Jac_FULL(1917,5250) - JVS(7944) = -B(13487) -! JVS(7945) = Jac_FULL(1917,5255) - JVS(7945) = B(10311) -! JVS(7946) = Jac_FULL(1918,1918) - JVS(7946) = -B(14626) -! JVS(7947) = Jac_FULL(1918,3883) - JVS(7947) = B(11300) -! JVS(7948) = Jac_FULL(1918,5250) - JVS(7948) = -B(14627) -! JVS(7949) = Jac_FULL(1918,5252) - JVS(7949) = B(11301) -! JVS(7950) = Jac_FULL(1919,1919) - JVS(7950) = -B(4689)-B(4690) -! JVS(7951) = Jac_FULL(1919,4766) - JVS(7951) = B(1869) -! JVS(7952) = Jac_FULL(1919,5250) - JVS(7952) = -B(4691) -! JVS(7953) = Jac_FULL(1919,5252) - JVS(7953) = B(1870) -! JVS(7954) = Jac_FULL(1920,1920) - JVS(7954) = -B(23527)-B(23529) -! JVS(7955) = Jac_FULL(1920,4673) - JVS(7955) = B(23184) -! JVS(7956) = Jac_FULL(1920,5250) - JVS(7956) = -B(23528) -! JVS(7957) = Jac_FULL(1920,5255) - JVS(7957) = B(23185) -! JVS(7958) = Jac_FULL(1921,1921) - JVS(7958) = -B(4217)-B(4218) -! JVS(7959) = Jac_FULL(1921,5208) - JVS(7959) = B(1436) -! JVS(7960) = Jac_FULL(1921,5250) - JVS(7960) = -B(4219) -! JVS(7961) = Jac_FULL(1921,5252) - JVS(7961) = B(1437) -! JVS(7962) = Jac_FULL(1922,1922) - JVS(7962) = -B(6947)-B(6949) -! JVS(7963) = Jac_FULL(1922,3637) - JVS(7963) = B(3163) -! JVS(7964) = Jac_FULL(1922,5250) - JVS(7964) = -B(6948) -! JVS(7965) = Jac_FULL(1922,5252) - JVS(7965) = B(3164) -! JVS(7966) = Jac_FULL(1923,1239) - JVS(7966) = B(6942) -! JVS(7967) = Jac_FULL(1923,1922) - JVS(7967) = B(6949) -! JVS(7968) = Jac_FULL(1923,1923) - JVS(7968) = -B(6950) -! JVS(7969) = Jac_FULL(1923,3637) - JVS(7969) = B(3165)+B(3167)+B(3169) -! JVS(7970) = Jac_FULL(1923,5250) - JVS(7970) = 0 -! JVS(7971) = Jac_FULL(1923,5252) - JVS(7971) = B(3166) -! JVS(7972) = Jac_FULL(1923,5255) - JVS(7972) = 0 -! JVS(7973) = Jac_FULL(1923,5256) - JVS(7973) = B(3168) -! JVS(7974) = Jac_FULL(1924,1924) - JVS(7974) = -B(3920) -! JVS(7975) = Jac_FULL(1924,3444) - JVS(7975) = B(3917) -! JVS(7976) = Jac_FULL(1924,4647) - JVS(7976) = B(1155)+B(1157)+B(1160) -! JVS(7977) = Jac_FULL(1924,5252) - JVS(7977) = B(1156) -! JVS(7978) = Jac_FULL(1924,5256) - JVS(7978) = B(1158) -! JVS(7979) = Jac_FULL(1925,1925) - JVS(7979) = -B(22493)-B(22495) -! JVS(7980) = Jac_FULL(1925,3006) - JVS(7980) = B(22489) -! JVS(7981) = Jac_FULL(1925,3436) - JVS(7981) = B(21882) -! JVS(7982) = Jac_FULL(1925,5250) - JVS(7982) = B(21883)+B(22490)-B(22494) -! JVS(7983) = Jac_FULL(1926,1926) - JVS(7983) = -B(23946)-B(23948)-B(23949) -! JVS(7984) = Jac_FULL(1926,4343) - JVS(7984) = B(23847) -! JVS(7985) = Jac_FULL(1926,5250) - JVS(7985) = -B(23947) -! JVS(7986) = Jac_FULL(1926,5255) - JVS(7986) = B(23848) -! JVS(7987) = Jac_FULL(1927,1927) - JVS(7987) = -B(5129) -! JVS(7988) = Jac_FULL(1927,3308) - JVS(7988) = B(5128) -! JVS(7989) = Jac_FULL(1927,4582) - JVS(7989) = B(2259)+B(2261)+B(2265) -! JVS(7990) = Jac_FULL(1927,5252) - JVS(7990) = B(2260) -! JVS(7991) = Jac_FULL(1927,5256) - JVS(7991) = B(2262) -! JVS(7992) = Jac_FULL(1928,1928) - JVS(7992) = -B(18335)-B(18337)-B(18338) -! JVS(7993) = Jac_FULL(1928,4199) - JVS(7993) = B(15893) -! JVS(7994) = Jac_FULL(1928,5250) - JVS(7994) = B(15894)-B(18336) -! JVS(7995) = Jac_FULL(1929,1929) - JVS(7995) = -B(21827)-B(21829) -! JVS(7996) = Jac_FULL(1929,3410) - JVS(7996) = B(23912) -! JVS(7997) = Jac_FULL(1929,3447) - JVS(7997) = B(23556) -! JVS(7998) = Jac_FULL(1929,3591) - JVS(7998) = B(20789) -! JVS(7999) = Jac_FULL(1929,5250) - JVS(7999) = -B(21828)+B(23557) -! JVS(8000) = Jac_FULL(1930,1930) - JVS(8000) = -B(23215)-B(23217) -! JVS(8001) = Jac_FULL(1930,3902) - JVS(8001) = B(22749) -! JVS(8002) = Jac_FULL(1930,5250) - JVS(8002) = -B(23216) -! JVS(8003) = Jac_FULL(1930,5252) - JVS(8003) = B(22750) -! JVS(8004) = Jac_FULL(1931,1295) - JVS(8004) = B(23214) -! JVS(8005) = Jac_FULL(1931,1930) - JVS(8005) = B(23217) -! JVS(8006) = Jac_FULL(1931,1931) - JVS(8006) = -B(23218) -! JVS(8007) = Jac_FULL(1931,3902) - JVS(8007) = B(22751)+B(22753)+B(22756) -! JVS(8008) = Jac_FULL(1931,5250) - JVS(8008) = 0 -! JVS(8009) = Jac_FULL(1931,5252) - JVS(8009) = B(22752) -! JVS(8010) = Jac_FULL(1931,5255) - JVS(8010) = 0 -! JVS(8011) = Jac_FULL(1931,5256) - JVS(8011) = B(22754) -! JVS(8012) = Jac_FULL(1932,1932) - JVS(8012) = -B(22316)-B(22318) -! JVS(8013) = Jac_FULL(1932,4340) - JVS(8013) = B(21686) -! JVS(8014) = Jac_FULL(1932,5250) - JVS(8014) = -B(22317) -! JVS(8015) = Jac_FULL(1932,5255) - JVS(8015) = B(21687) -! JVS(8016) = Jac_FULL(1933,1933) - JVS(8016) = -B(16970)-B(16972) -! JVS(8017) = Jac_FULL(1933,4789) - JVS(8017) = B(14363) -! JVS(8018) = Jac_FULL(1933,5250) - JVS(8018) = -B(16971) -! JVS(8019) = Jac_FULL(1933,5252) - JVS(8019) = B(14364) -! JVS(8020) = Jac_FULL(1934,1934) - JVS(8020) = -B(21762)-B(21764)-B(21766) -! JVS(8021) = Jac_FULL(1934,5019) - JVS(8021) = B(20736) -! JVS(8022) = Jac_FULL(1934,5250) - JVS(8022) = -B(21763)-B(21765) -! JVS(8023) = Jac_FULL(1935,1935) - JVS(8023) = -B(14198)-B(14200) -! JVS(8024) = Jac_FULL(1935,4158) - JVS(8024) = B(11012) -! JVS(8025) = Jac_FULL(1935,5250) - JVS(8025) = -B(14199) -! JVS(8026) = Jac_FULL(1935,5255) - JVS(8026) = B(11013) -! JVS(8027) = Jac_FULL(1936,1936) - JVS(8027) = -B(12593)-B(12595) -! JVS(8028) = Jac_FULL(1936,4326) - JVS(8028) = B(9010) -! JVS(8029) = Jac_FULL(1936,5250) - JVS(8029) = -B(12596) -! JVS(8030) = Jac_FULL(1936,5256) - JVS(8030) = -B(12594) -! JVS(8031) = Jac_FULL(1937,1937) - JVS(8031) = -B(17778)-B(17779)-B(17780) -! JVS(8032) = Jac_FULL(1937,3912) - JVS(8032) = B(15200) -! JVS(8033) = Jac_FULL(1937,5250) - JVS(8033) = -B(17781) -! JVS(8034) = Jac_FULL(1937,5255) - JVS(8034) = B(15201) -! JVS(8035) = Jac_FULL(1938,1938) - JVS(8035) = -B(14035)-B(14037)-B(14039) -! JVS(8036) = Jac_FULL(1938,4885) - JVS(8036) = B(10839) -! JVS(8037) = Jac_FULL(1938,5250) - JVS(8037) = -B(14036)-B(14038) -! JVS(8038) = Jac_FULL(1938,5255) - JVS(8038) = B(10840) -! JVS(8039) = Jac_FULL(1939,1939) - JVS(8039) = -B(20451)-B(20452) -! JVS(8040) = Jac_FULL(1939,4658) - JVS(8040) = B(18860) -! JVS(8041) = Jac_FULL(1939,5250) - JVS(8041) = -B(20453) -! JVS(8042) = Jac_FULL(1939,5253) - JVS(8042) = B(18861) -! JVS(8043) = Jac_FULL(1940,1940) - JVS(8043) = -B(5158)-B(5160)-B(5162) -! JVS(8044) = Jac_FULL(1940,4702) - JVS(8044) = B(2286) -! JVS(8045) = Jac_FULL(1940,5250) - JVS(8045) = -B(5159)-B(5161) -! JVS(8046) = Jac_FULL(1940,5255) - JVS(8046) = B(2287) -! JVS(8047) = Jac_FULL(1941,1941) - JVS(8047) = -B(22513)-B(22515) -! JVS(8048) = Jac_FULL(1941,4019) - JVS(8048) = B(21912) -! JVS(8049) = Jac_FULL(1941,5250) - JVS(8049) = -B(22514) -! JVS(8050) = Jac_FULL(1941,5252) - JVS(8050) = B(21913) -! JVS(8051) = Jac_FULL(1942,948) - JVS(8051) = B(22512) -! JVS(8052) = Jac_FULL(1942,1941) - JVS(8052) = B(22515) -! JVS(8053) = Jac_FULL(1942,1942) - JVS(8053) = -B(22516) -! JVS(8054) = Jac_FULL(1942,4019) - JVS(8054) = B(21914)+B(21916)+B(21918) -! JVS(8055) = Jac_FULL(1942,5250) - JVS(8055) = 0 -! JVS(8056) = Jac_FULL(1942,5252) - JVS(8056) = B(21915) -! JVS(8057) = Jac_FULL(1942,5255) - JVS(8057) = 0 -! JVS(8058) = Jac_FULL(1942,5256) - JVS(8058) = B(21917) -! JVS(8059) = Jac_FULL(1943,1943) - JVS(8059) = -B(18080)-B(18082) -! JVS(8060) = Jac_FULL(1943,4163) - JVS(8060) = B(15492) -! JVS(8061) = Jac_FULL(1943,5250) - JVS(8061) = -B(18081) -! JVS(8062) = Jac_FULL(1943,5255) - JVS(8062) = B(15493) -! JVS(8063) = Jac_FULL(1944,1944) - JVS(8063) = -B(3743) -! JVS(8064) = Jac_FULL(1944,3299) - JVS(8064) = B(3740) -! JVS(8065) = Jac_FULL(1944,5129) - JVS(8065) = B(1023)+B(1025)+B(1029) -! JVS(8066) = Jac_FULL(1944,5252) - JVS(8066) = B(1024) -! JVS(8067) = Jac_FULL(1944,5256) - JVS(8067) = B(1026) -! JVS(8068) = Jac_FULL(1945,1375) - JVS(8068) = B(11994) -! JVS(8069) = Jac_FULL(1945,1945) - JVS(8069) = -B(12000) -! JVS(8070) = Jac_FULL(1945,2917) - JVS(8070) = B(11997) -! JVS(8071) = Jac_FULL(1945,5108) - JVS(8071) = B(8253)+B(8255)+B(8258) -! JVS(8072) = Jac_FULL(1945,5250) - JVS(8072) = 0 -! JVS(8073) = Jac_FULL(1945,5252) - JVS(8073) = B(8254) -! JVS(8074) = Jac_FULL(1945,5255) - JVS(8074) = 0 -! JVS(8075) = Jac_FULL(1945,5256) - JVS(8075) = B(8256) -! JVS(8076) = Jac_FULL(1946,1946) - JVS(8076) = -B(4384)-B(4386) -! JVS(8077) = Jac_FULL(1946,5062) - JVS(8077) = B(1599) -! JVS(8078) = Jac_FULL(1946,5250) - JVS(8078) = -B(4385) -! JVS(8079) = Jac_FULL(1946,5252) - JVS(8079) = B(1600) -! JVS(8080) = Jac_FULL(1947,1947) - JVS(8080) = -B(18033)-B(18035) -! JVS(8081) = Jac_FULL(1947,4284) - JVS(8081) = B(15416) -! JVS(8082) = Jac_FULL(1947,5250) - JVS(8082) = -B(18034) -! JVS(8083) = Jac_FULL(1947,5255) - JVS(8083) = B(15417) -! JVS(8084) = Jac_FULL(1948,1948) - JVS(8084) = -B(3870)-B(3872)-B(3874) -! JVS(8085) = Jac_FULL(1948,4473) - JVS(8085) = B(1118) -! JVS(8086) = Jac_FULL(1948,5250) - JVS(8086) = -B(3871)-B(3873) -! JVS(8087) = Jac_FULL(1948,5255) - JVS(8087) = B(1119) -! JVS(8088) = Jac_FULL(1949,1949) - JVS(8088) = -B(16105)-B(16107)-B(16109) -! JVS(8089) = Jac_FULL(1949,4688) - JVS(8089) = B(13011) -! JVS(8090) = Jac_FULL(1949,5250) - JVS(8090) = -B(16106)-B(16108) -! JVS(8091) = Jac_FULL(1949,5255) - JVS(8091) = B(13012) -! JVS(8092) = Jac_FULL(1950,1950) - JVS(8092) = -B(17202)-B(17204)-B(17205) -! JVS(8093) = Jac_FULL(1950,5028) - JVS(8093) = B(14585) -! JVS(8094) = Jac_FULL(1950,5250) - JVS(8094) = -B(17203) -! JVS(8095) = Jac_FULL(1950,5255) - JVS(8095) = B(14586) -! JVS(8096) = Jac_FULL(1951,1951) - JVS(8096) = -B(9596) -! JVS(8097) = Jac_FULL(1951,2601) - JVS(8097) = B(9594) -! JVS(8098) = Jac_FULL(1951,4675) - JVS(8098) = B(5925)+B(5927)+B(5929) -! JVS(8099) = Jac_FULL(1951,5252) - JVS(8099) = B(5926) -! JVS(8100) = Jac_FULL(1951,5256) - JVS(8100) = B(5928) -! JVS(8101) = Jac_FULL(1952,1952) - JVS(8101) = -B(14002)-B(14004) -! JVS(8102) = Jac_FULL(1952,4610) - JVS(8102) = B(10800) -! JVS(8103) = Jac_FULL(1952,5250) - JVS(8103) = -B(14003) -! JVS(8104) = Jac_FULL(1952,5252) - JVS(8104) = B(10801) -! JVS(8105) = Jac_FULL(1953,340) - JVS(8105) = B(15716) -! JVS(8106) = Jac_FULL(1953,1953) - JVS(8106) = -B(15713)-B(15715) -! JVS(8107) = Jac_FULL(1953,2920) - JVS(8107) = B(15707) -! JVS(8108) = Jac_FULL(1953,3315) - JVS(8108) = B(21351) -! JVS(8109) = Jac_FULL(1953,4857) - JVS(8109) = B(12642) -! JVS(8110) = Jac_FULL(1953,5250) - JVS(8110) = B(15708)-B(15714)+B(15717)+B(21352) -! JVS(8111) = Jac_FULL(1954,1954) - JVS(8111) = -B(7141)-B(7143) -! JVS(8112) = Jac_FULL(1954,4583) - JVS(8112) = B(3328) -! JVS(8113) = Jac_FULL(1954,5250) - JVS(8113) = -B(7142) -! JVS(8114) = Jac_FULL(1954,5252) - JVS(8114) = B(3329) -! JVS(8115) = Jac_FULL(1955,1955) - JVS(8115) = -B(16637) -! JVS(8116) = Jac_FULL(1955,3201) - JVS(8116) = B(16636) -! JVS(8117) = Jac_FULL(1955,4711) - JVS(8117) = B(13813)+B(13817)+B(13819) -! JVS(8118) = Jac_FULL(1955,5252) - JVS(8118) = B(13814) -! JVS(8119) = Jac_FULL(1955,5256) - JVS(8119) = B(13818) -! JVS(8120) = Jac_FULL(1956,1956) - JVS(8120) = -B(24015)-B(24017)-B(24019) -! JVS(8121) = Jac_FULL(1956,4687) - JVS(8121) = B(23982) -! JVS(8122) = Jac_FULL(1956,5250) - JVS(8122) = -B(24016)-B(24018) -! JVS(8123) = Jac_FULL(1956,5255) - JVS(8123) = B(23983) -! JVS(8124) = Jac_FULL(1957,1957) - JVS(8124) = -B(3888) -! JVS(8125) = Jac_FULL(1957,4143) - JVS(8125) = B(2176) -! JVS(8126) = Jac_FULL(1957,4959) - JVS(8126) = B(1131) -! JVS(8127) = Jac_FULL(1957,5250) - JVS(8127) = -B(3889) -! JVS(8128) = Jac_FULL(1957,5252) - JVS(8128) = B(1132) -! JVS(8129) = Jac_FULL(1958,1958) - JVS(8129) = -B(22879)-B(22881) -! JVS(8130) = Jac_FULL(1958,4131) - JVS(8130) = B(22401) -! JVS(8131) = Jac_FULL(1958,5250) - JVS(8131) = -B(22880) -! JVS(8132) = Jac_FULL(1958,5255) - JVS(8132) = B(22402) -! JVS(8133) = Jac_FULL(1959,1959) - JVS(8133) = -B(3051)-B(3052)-B(3053)-B(3054) -! JVS(8134) = Jac_FULL(1959,5153) - JVS(8134) = B(769) -! JVS(8135) = Jac_FULL(1959,5258) - JVS(8135) = B(770) -! JVS(8136) = Jac_FULL(1960,1960) - JVS(8136) = -B(15892) -! JVS(8137) = Jac_FULL(1960,3453) - JVS(8137) = B(15891) -! JVS(8138) = Jac_FULL(1960,4877) - JVS(8138) = B(12805)+B(12807)+B(12811) -! JVS(8139) = Jac_FULL(1960,5252) - JVS(8139) = B(12806) -! JVS(8140) = Jac_FULL(1960,5256) - JVS(8140) = B(12808) -! JVS(8141) = Jac_FULL(1961,927) - JVS(8141) = B(21041) -! JVS(8142) = Jac_FULL(1961,1961) - JVS(8142) = -B(21045) -! JVS(8143) = Jac_FULL(1961,2908) - JVS(8143) = B(21044) -! JVS(8144) = Jac_FULL(1961,3890) - JVS(8144) = B(19470)+B(19472)+B(19475) -! JVS(8145) = Jac_FULL(1961,5250) - JVS(8145) = 0 -! JVS(8146) = Jac_FULL(1961,5252) - JVS(8146) = B(19471) -! JVS(8147) = Jac_FULL(1961,5255) - JVS(8147) = 0 -! JVS(8148) = Jac_FULL(1961,5256) - JVS(8148) = B(19473) -! JVS(8149) = Jac_FULL(1962,133) - JVS(8149) = B(4613) -! JVS(8150) = Jac_FULL(1962,980) - JVS(8150) = B(4606) -! JVS(8151) = Jac_FULL(1962,1962) - JVS(8151) = -B(4612) -! JVS(8152) = Jac_FULL(1962,2839) - JVS(8152) = B(4609) -! JVS(8153) = Jac_FULL(1962,4121) - JVS(8153) = B(1807)+B(1809)+B(1811) -! JVS(8154) = Jac_FULL(1962,5250) - JVS(8154) = B(4614) -! JVS(8155) = Jac_FULL(1962,5252) - JVS(8155) = B(1808) -! JVS(8156) = Jac_FULL(1962,5255) - JVS(8156) = 0 -! JVS(8157) = Jac_FULL(1962,5256) - JVS(8157) = B(1810) -! JVS(8158) = Jac_FULL(1963,1963) - JVS(8158) = -B(19644)-B(19645) -! JVS(8159) = Jac_FULL(1963,4573) - JVS(8159) = B(17751) -! JVS(8160) = Jac_FULL(1963,5250) - JVS(8160) = -B(19646) -! JVS(8161) = Jac_FULL(1963,5252) - JVS(8161) = B(17752) -! JVS(8162) = Jac_FULL(1964,1964) - JVS(8162) = -B(5707)-B(5709) -! JVS(8163) = Jac_FULL(1964,3811) - JVS(8163) = B(2574) -! JVS(8164) = Jac_FULL(1964,5250) - JVS(8164) = -B(5708) -! JVS(8165) = Jac_FULL(1964,5252) - JVS(8165) = B(2575) -! JVS(8166) = Jac_FULL(1965,1965) - JVS(8166) = -B(4420)-B(4422) -! JVS(8167) = Jac_FULL(1965,5192) - JVS(8167) = B(1642) -! JVS(8168) = Jac_FULL(1965,5250) - JVS(8168) = -B(4421) -! JVS(8169) = Jac_FULL(1965,5252) - JVS(8169) = B(1643) -! JVS(8170) = Jac_FULL(1966,1966) - JVS(8170) = -B(4516)-B(4517)-B(4519) -! JVS(8171) = Jac_FULL(1966,4733) - JVS(8171) = B(1738) -! JVS(8172) = Jac_FULL(1966,5250) - JVS(8172) = -B(4518)-B(4520) -! JVS(8173) = Jac_FULL(1966,5255) - JVS(8173) = B(1739) -! JVS(8174) = Jac_FULL(1967,1967) - JVS(8174) = -B(16612) -! JVS(8175) = Jac_FULL(1967,3273) - JVS(8175) = B(16611) -! JVS(8176) = Jac_FULL(1967,3801) - JVS(8176) = B(13759)+B(13761)+B(13763) -! JVS(8177) = Jac_FULL(1967,5252) - JVS(8177) = B(13760) -! JVS(8178) = Jac_FULL(1967,5256) - JVS(8178) = B(13762) -! JVS(8179) = Jac_FULL(1968,1968) - JVS(8179) = -B(9951)-B(9953)-B(9954) -! JVS(8180) = Jac_FULL(1968,4311) - JVS(8180) = B(6238) -! JVS(8181) = Jac_FULL(1968,5250) - JVS(8181) = -B(9952) -! JVS(8182) = Jac_FULL(1968,5255) - JVS(8182) = B(6239) -! JVS(8183) = Jac_FULL(1969,1969) - JVS(8183) = -B(13495) -! JVS(8184) = Jac_FULL(1969,4516) - JVS(8184) = B(10319)+B(10331) -! JVS(8185) = Jac_FULL(1969,5250) - JVS(8185) = -B(13496) -! JVS(8186) = Jac_FULL(1969,5255) - JVS(8186) = B(10320) -! JVS(8187) = Jac_FULL(1970,1970) - JVS(8187) = -B(21576)-B(21578) -! JVS(8188) = Jac_FULL(1970,4739) - JVS(8188) = B(20366) -! JVS(8189) = Jac_FULL(1970,5250) - JVS(8189) = -B(21577) -! JVS(8190) = Jac_FULL(1970,5255) - JVS(8190) = B(20367) -! JVS(8191) = Jac_FULL(1971,1352) - JVS(8191) = B(6649) -! JVS(8192) = Jac_FULL(1971,1971) - JVS(8192) = -B(6652) -! JVS(8193) = Jac_FULL(1971,3102) - JVS(8193) = B(6625) -! JVS(8194) = Jac_FULL(1971,3670) - JVS(8194) = B(3059)+B(3061)+B(3063) -! JVS(8195) = Jac_FULL(1971,5250) - JVS(8195) = 0 -! JVS(8196) = Jac_FULL(1971,5252) - JVS(8196) = B(3060) -! JVS(8197) = Jac_FULL(1971,5255) - JVS(8197) = 0 -! JVS(8198) = Jac_FULL(1971,5256) - JVS(8198) = B(3062) -! JVS(8199) = Jac_FULL(1972,1972) - JVS(8199) = -B(23060)-B(23062) -! JVS(8200) = Jac_FULL(1972,3698) - JVS(8200) = B(22626) -! JVS(8201) = Jac_FULL(1972,5250) - JVS(8201) = -B(23061) -! JVS(8202) = Jac_FULL(1972,5252) - JVS(8202) = B(22627) -! JVS(8203) = Jac_FULL(1973,1973) - JVS(8203) = -B(17181)-B(17183) -! JVS(8204) = Jac_FULL(1973,3927) - JVS(8204) = B(14530) -! JVS(8205) = Jac_FULL(1973,5250) - JVS(8205) = -B(17182) -! JVS(8206) = Jac_FULL(1973,5255) - JVS(8206) = B(14531) -! JVS(8207) = Jac_FULL(1974,1974) - JVS(8207) = -B(4150)-B(4151) -! JVS(8208) = Jac_FULL(1974,5229) - JVS(8208) = B(1356) -! JVS(8209) = Jac_FULL(1974,5250) - JVS(8209) = -B(4152) -! JVS(8210) = Jac_FULL(1974,5252) - JVS(8210) = B(1357) -! JVS(8211) = Jac_FULL(1975,104) - JVS(8211) = B(7405) -! JVS(8212) = Jac_FULL(1975,912) - JVS(8212) = B(7400) -! JVS(8213) = Jac_FULL(1975,1975) - JVS(8213) = -B(7404) -! JVS(8214) = Jac_FULL(1975,2888) - JVS(8214) = B(7403) -! JVS(8215) = Jac_FULL(1975,4090) - JVS(8215) = B(3515)+B(3517)+B(3519) -! JVS(8216) = Jac_FULL(1975,5250) - JVS(8216) = B(7406) -! JVS(8217) = Jac_FULL(1975,5252) - JVS(8217) = B(3516) -! JVS(8218) = Jac_FULL(1975,5255) - JVS(8218) = 0 -! JVS(8219) = Jac_FULL(1975,5256) - JVS(8219) = B(3518) -! JVS(8220) = Jac_FULL(1976,1976) - JVS(8220) = -B(3875) -! JVS(8221) = Jac_FULL(1976,4140) - JVS(8221) = B(2228) -! JVS(8222) = Jac_FULL(1976,4473) - JVS(8222) = B(1120) -! JVS(8223) = Jac_FULL(1976,5250) - JVS(8223) = -B(3876) -! JVS(8224) = Jac_FULL(1976,5252) - JVS(8224) = B(1121) -! JVS(8225) = Jac_FULL(1977,1977) - JVS(8225) = -B(3847) -! JVS(8226) = Jac_FULL(1977,4562) - JVS(8226) = B(1098) -! JVS(8227) = Jac_FULL(1977,4881) - JVS(8227) = B(2196) -! JVS(8228) = Jac_FULL(1977,5250) - JVS(8228) = -B(3848) -! JVS(8229) = Jac_FULL(1977,5252) - JVS(8229) = B(1099) -! JVS(8230) = Jac_FULL(1978,1978) - JVS(8230) = -B(17589)-B(17590) -! JVS(8231) = Jac_FULL(1978,5120) - JVS(8231) = B(15011) -! JVS(8232) = Jac_FULL(1978,5250) - JVS(8232) = -B(17591) -! JVS(8233) = Jac_FULL(1978,5252) - JVS(8233) = B(15012) -! JVS(8234) = Jac_FULL(1979,1979) - JVS(8234) = -B(18237)-B(18239) -! JVS(8235) = Jac_FULL(1979,3679) - JVS(8235) = B(15752) -! JVS(8236) = Jac_FULL(1979,5250) - JVS(8236) = -B(18238) -! JVS(8237) = Jac_FULL(1979,5255) - JVS(8237) = B(15753) -! JVS(8238) = Jac_FULL(1980,1980) - JVS(8238) = -B(11838)-B(11839) -! JVS(8239) = Jac_FULL(1980,4880) - JVS(8239) = B(8105) -! JVS(8240) = Jac_FULL(1980,5250) - JVS(8240) = -B(11840) -! JVS(8241) = Jac_FULL(1980,5252) - JVS(8241) = B(8106) -! JVS(8242) = Jac_FULL(1981,1981) - JVS(8242) = -B(16679)-B(16680) -! JVS(8243) = Jac_FULL(1981,4945) - JVS(8243) = B(13861) -! JVS(8244) = Jac_FULL(1981,5250) - JVS(8244) = B(13862)-B(16681) -! JVS(8245) = Jac_FULL(1982,1982) - JVS(8245) = -B(22228)-B(22230) -! JVS(8246) = Jac_FULL(1982,4102) - JVS(8246) = B(21390) -! JVS(8247) = Jac_FULL(1982,5250) - JVS(8247) = -B(22229) -! JVS(8248) = Jac_FULL(1982,5255) - JVS(8248) = B(21391) -! JVS(8249) = Jac_FULL(1983,1983) - JVS(8249) = -B(7074)-B(7075) -! JVS(8250) = Jac_FULL(1983,3444) - JVS(8250) = B(3915) -! JVS(8251) = Jac_FULL(1983,4841) - JVS(8251) = B(3276) -! JVS(8252) = Jac_FULL(1983,5250) - JVS(8252) = B(3916)-B(7076) -! JVS(8253) = Jac_FULL(1983,5255) - JVS(8253) = B(3277) -! JVS(8254) = Jac_FULL(1984,526) - JVS(8254) = B(20650)+B(20652) -! JVS(8255) = Jac_FULL(1984,1496) - JVS(8255) = B(20645) -! JVS(8256) = Jac_FULL(1984,1984) - JVS(8256) = -B(20649) -! JVS(8257) = Jac_FULL(1984,2812) - JVS(8257) = B(20648) -! JVS(8258) = Jac_FULL(1984,4189) - JVS(8258) = B(19070)+B(19072)+B(19074) -! JVS(8259) = Jac_FULL(1984,5250) - JVS(8259) = B(20651) -! JVS(8260) = Jac_FULL(1984,5252) - JVS(8260) = B(19071) -! JVS(8261) = Jac_FULL(1984,5255) - JVS(8261) = 0 -! JVS(8262) = Jac_FULL(1984,5256) - JVS(8262) = B(19073) -! JVS(8263) = Jac_FULL(1985,1985) - JVS(8263) = -B(22352)-B(22354) -! JVS(8264) = Jac_FULL(1985,3838) - JVS(8264) = B(21718) -! JVS(8265) = Jac_FULL(1985,5250) - JVS(8265) = -B(22353) -! JVS(8266) = Jac_FULL(1985,5255) - JVS(8266) = B(21719) -! JVS(8267) = Jac_FULL(1986,955) - JVS(8267) = B(22712) -! JVS(8268) = Jac_FULL(1986,1986) - JVS(8268) = -B(22716) -! JVS(8269) = Jac_FULL(1986,2673) - JVS(8269) = B(22715) -! JVS(8270) = Jac_FULL(1986,4172) - JVS(8270) = B(22103)+B(22105)+B(22108) -! JVS(8271) = Jac_FULL(1986,5250) - JVS(8271) = 0 -! JVS(8272) = Jac_FULL(1986,5252) - JVS(8272) = B(22104) -! JVS(8273) = Jac_FULL(1986,5255) - JVS(8273) = 0 -! JVS(8274) = Jac_FULL(1986,5256) - JVS(8274) = B(22106) -! JVS(8275) = Jac_FULL(1987,1987) - JVS(8275) = -B(4483)-B(4484) -! JVS(8276) = Jac_FULL(1987,4942) - JVS(8276) = B(1707) -! JVS(8277) = Jac_FULL(1987,5250) - JVS(8277) = -B(4485) -! JVS(8278) = Jac_FULL(1987,5252) - JVS(8278) = B(1708) -! JVS(8279) = Jac_FULL(1988,1988) - JVS(8279) = -B(8983)-B(8985)-B(8986) -! JVS(8280) = Jac_FULL(1988,4887) - JVS(8280) = B(5449) -! JVS(8281) = Jac_FULL(1988,5250) - JVS(8281) = -B(8984) -! JVS(8282) = Jac_FULL(1989,520) - JVS(8282) = B(23560)+B(23562) -! JVS(8283) = Jac_FULL(1989,1263) - JVS(8283) = B(23555) -! JVS(8284) = Jac_FULL(1989,1989) - JVS(8284) = -B(23559) -! JVS(8285) = Jac_FULL(1989,3447) - JVS(8285) = B(23558) -! JVS(8286) = Jac_FULL(1989,4157) - JVS(8286) = B(23257)+B(23259)+B(23261) -! JVS(8287) = Jac_FULL(1989,5250) - JVS(8287) = B(23561) -! JVS(8288) = Jac_FULL(1989,5252) - JVS(8288) = B(23258) -! JVS(8289) = Jac_FULL(1989,5255) - JVS(8289) = 0 -! JVS(8290) = Jac_FULL(1989,5256) - JVS(8290) = B(23260) -! JVS(8291) = Jac_FULL(1990,1990) - JVS(8291) = -B(17139)-B(17141) -! JVS(8292) = Jac_FULL(1990,3969) - JVS(8292) = B(14508) -! JVS(8293) = Jac_FULL(1990,5250) - JVS(8293) = -B(17140) -! JVS(8294) = Jac_FULL(1990,5255) - JVS(8294) = B(14509) -! JVS(8295) = Jac_FULL(1991,1991) - JVS(8295) = -B(18783)-B(18784) -! JVS(8296) = Jac_FULL(1991,4066) - JVS(8296) = B(16584) -! JVS(8297) = Jac_FULL(1991,5250) - JVS(8297) = B(16585)-B(18785) -! JVS(8298) = Jac_FULL(1992,1992) - JVS(8298) = -B(11970)-B(11971)-B(11973) -! JVS(8299) = Jac_FULL(1992,3667) - JVS(8299) = B(8224) -! JVS(8300) = Jac_FULL(1992,5250) - JVS(8300) = -B(11972)-B(11974) -! JVS(8301) = Jac_FULL(1992,5255) - JVS(8301) = B(8225) -! JVS(8302) = Jac_FULL(1993,1993) - JVS(8302) = -B(14631)-B(14633) -! JVS(8303) = Jac_FULL(1993,4541) - JVS(8303) = B(11319) -! JVS(8304) = Jac_FULL(1993,5250) - JVS(8304) = -B(14632) -! JVS(8305) = Jac_FULL(1993,5255) - JVS(8305) = B(11320) -! JVS(8306) = Jac_FULL(1994,1994) - JVS(8306) = -B(3855)-B(3856)-B(3858) -! JVS(8307) = Jac_FULL(1994,5148) - JVS(8307) = B(1107) -! JVS(8308) = Jac_FULL(1994,5250) - JVS(8308) = -B(3857)-B(3859) -! JVS(8309) = Jac_FULL(1994,5255) - JVS(8309) = B(1108) -! JVS(8310) = Jac_FULL(1995,1995) - JVS(8310) = -B(17143) -! JVS(8311) = Jac_FULL(1995,3927) - JVS(8311) = B(14532) -! JVS(8312) = Jac_FULL(1995,3969) - JVS(8312) = B(14514) -! JVS(8313) = Jac_FULL(1995,5250) - JVS(8313) = -B(17144) -! JVS(8314) = Jac_FULL(1995,5252) - JVS(8314) = B(14533) -! JVS(8315) = Jac_FULL(1996,1996) - JVS(8315) = -B(20846)-B(20848) -! JVS(8316) = Jac_FULL(1996,5084) - JVS(8316) = B(19283) -! JVS(8317) = Jac_FULL(1996,5250) - JVS(8317) = -B(20847) -! JVS(8318) = Jac_FULL(1996,5252) - JVS(8318) = B(19284) -! JVS(8319) = Jac_FULL(1997,1997) - JVS(8319) = -B(12178)-B(12180) -! JVS(8320) = Jac_FULL(1997,4405) - JVS(8320) = B(8443) -! JVS(8321) = Jac_FULL(1997,5250) - JVS(8321) = -B(12179) -! JVS(8322) = Jac_FULL(1997,5255) - JVS(8322) = B(8444) -! JVS(8323) = Jac_FULL(1998,1478) - JVS(8323) = B(18026) -! JVS(8324) = Jac_FULL(1998,1998) - JVS(8324) = -B(18030) -! JVS(8325) = Jac_FULL(1998,3015) - JVS(8325) = B(18029) -! JVS(8326) = Jac_FULL(1998,4360) - JVS(8326) = B(15407)+B(15409)+B(15412) -! JVS(8327) = Jac_FULL(1998,5250) - JVS(8327) = 0 -! JVS(8328) = Jac_FULL(1998,5252) - JVS(8328) = B(15408) -! JVS(8329) = Jac_FULL(1998,5255) - JVS(8329) = 0 -! JVS(8330) = Jac_FULL(1998,5256) - JVS(8330) = B(15410) -! JVS(8331) = Jac_FULL(1999,1999) - JVS(8331) = -B(12287)-B(12289) -! JVS(8332) = Jac_FULL(1999,4804) - JVS(8332) = B(8617) -! JVS(8333) = Jac_FULL(1999,5250) - JVS(8333) = -B(12288) -! JVS(8334) = Jac_FULL(1999,5255) - JVS(8334) = B(8618) -! JVS(8335) = Jac_FULL(2000,1562) - JVS(8335) = B(12218) -! JVS(8336) = Jac_FULL(2000,1938) - JVS(8336) = B(14039) -! JVS(8337) = Jac_FULL(2000,2000) - JVS(8337) = -B(14040) -! JVS(8338) = Jac_FULL(2000,4817) - JVS(8338) = 0 -! JVS(8339) = Jac_FULL(2000,4885) - JVS(8339) = B(10841)+B(10843)+B(10846) -! JVS(8340) = Jac_FULL(2000,5250) - JVS(8340) = 0 -! JVS(8341) = Jac_FULL(2000,5252) - JVS(8341) = B(10842) -! JVS(8342) = Jac_FULL(2000,5255) - JVS(8342) = 0 -! JVS(8343) = Jac_FULL(2000,5256) - JVS(8343) = B(10844) -! JVS(8344) = Jac_FULL(2001,2001) - JVS(8344) = -B(3955)-B(3956) -! JVS(8345) = Jac_FULL(2001,4161) - JVS(8345) = B(1189) -! JVS(8346) = Jac_FULL(2001,4561) - JVS(8346) = B(15001) -! JVS(8347) = Jac_FULL(2001,5250) - JVS(8347) = -B(3957) -! JVS(8348) = Jac_FULL(2002,2002) - JVS(8348) = -B(11083)-B(11085)-B(11087) -! JVS(8349) = Jac_FULL(2002,5198) - JVS(8349) = B(7282) -! JVS(8350) = Jac_FULL(2002,5250) - JVS(8350) = -B(11084)-B(11086) -! JVS(8351) = Jac_FULL(2002,5255) - JVS(8351) = B(7283) -! JVS(8352) = Jac_FULL(2003,2003) - JVS(8352) = -B(21563)-B(21565) -! JVS(8353) = Jac_FULL(2003,4519) - JVS(8353) = B(20344) -! JVS(8354) = Jac_FULL(2003,5250) - JVS(8354) = -B(21564) -! JVS(8355) = Jac_FULL(2003,5253) - JVS(8355) = B(20345) -! JVS(8356) = Jac_FULL(2004,2004) - JVS(8356) = -B(4302) -! JVS(8357) = Jac_FULL(2004,3330) - JVS(8357) = B(4294) -! JVS(8358) = Jac_FULL(2004,4936) - JVS(8358) = B(1523)+B(1525)+B(1528) -! JVS(8359) = Jac_FULL(2004,5252) - JVS(8359) = B(1524) -! JVS(8360) = Jac_FULL(2004,5256) - JVS(8360) = B(1526) -! JVS(8361) = Jac_FULL(2005,2005) - JVS(8361) = -B(11506) -! JVS(8362) = Jac_FULL(2005,3205) - JVS(8362) = B(11499) -! JVS(8363) = Jac_FULL(2005,4359) - JVS(8363) = B(7704)+B(7706)+B(7709) -! JVS(8364) = Jac_FULL(2005,5252) - JVS(8364) = B(7705) -! JVS(8365) = Jac_FULL(2005,5256) - JVS(8365) = B(7707) -! JVS(8366) = Jac_FULL(2006,2006) - JVS(8366) = -B(3842)-B(3844)-B(3846) -! JVS(8367) = Jac_FULL(2006,4562) - JVS(8367) = B(1096) -! JVS(8368) = Jac_FULL(2006,5250) - JVS(8368) = -B(3843)-B(3845) -! JVS(8369) = Jac_FULL(2006,5255) - JVS(8369) = B(1097) -! JVS(8370) = Jac_FULL(2007,2007) - JVS(8370) = -B(21938) -! JVS(8371) = Jac_FULL(2007,3950) - JVS(8371) = B(20876) -! JVS(8372) = Jac_FULL(2007,5250) - JVS(8372) = -B(21939) -! JVS(8373) = Jac_FULL(2007,5252) - JVS(8373) = B(20877) -! JVS(8374) = Jac_FULL(2008,2008) - JVS(8374) = -B(14716) -! JVS(8375) = Jac_FULL(2008,2373) - JVS(8375) = B(14713) -! JVS(8376) = Jac_FULL(2008,4249) - JVS(8376) = B(11373)+B(11375)+B(11377) -! JVS(8377) = Jac_FULL(2008,5252) - JVS(8377) = B(11374) -! JVS(8378) = Jac_FULL(2008,5256) - JVS(8378) = B(11376) -! JVS(8379) = Jac_FULL(2009,2009) - JVS(8379) = -B(14867)-B(14869)-B(14871) -! JVS(8380) = Jac_FULL(2009,4354) - JVS(8380) = B(11533) -! JVS(8381) = Jac_FULL(2009,5250) - JVS(8381) = -B(14868)-B(14870) -! JVS(8382) = Jac_FULL(2009,5255) - JVS(8382) = B(11534) -! JVS(8383) = Jac_FULL(2010,2010) - JVS(8383) = -B(4017)-B(4019)-B(4021) -! JVS(8384) = Jac_FULL(2010,4364) - JVS(8384) = B(1239) -! JVS(8385) = Jac_FULL(2010,5250) - JVS(8385) = -B(4018)-B(4020) -! JVS(8386) = Jac_FULL(2010,5255) - JVS(8386) = B(1240) -! JVS(8387) = Jac_FULL(2011,2011) - JVS(8387) = -B(5112) -! JVS(8388) = Jac_FULL(2011,4587) - JVS(8388) = B(2250) -! JVS(8389) = Jac_FULL(2011,5135) - JVS(8389) = B(2268) -! JVS(8390) = Jac_FULL(2011,5250) - JVS(8390) = -B(5113) -! JVS(8391) = Jac_FULL(2011,5252) - JVS(8391) = B(2269) -! JVS(8392) = Jac_FULL(2012,2012) - JVS(8392) = -B(4876) -! JVS(8393) = Jac_FULL(2012,3208) - JVS(8393) = B(4875) -! JVS(8394) = Jac_FULL(2012,5149) - JVS(8394) = B(2046)+B(2048)+B(2051) -! JVS(8395) = Jac_FULL(2012,5252) - JVS(8395) = B(2047) -! JVS(8396) = Jac_FULL(2012,5256) - JVS(8396) = B(2049) -! JVS(8397) = Jac_FULL(2013,2013) - JVS(8397) = -B(2038)-B(2039)-B(2040)-B(2041) -! JVS(8398) = Jac_FULL(2013,5051) - JVS(8398) = B(445) -! JVS(8399) = Jac_FULL(2013,5258) - JVS(8399) = B(446) -! JVS(8400) = Jac_FULL(2014,2014) - JVS(8400) = -B(5386)-B(5388) -! JVS(8401) = Jac_FULL(2014,3523) - JVS(8401) = B(2419) -! JVS(8402) = Jac_FULL(2014,5250) - JVS(8402) = -B(5387) -! JVS(8403) = Jac_FULL(2014,5252) - JVS(8403) = B(2420) -! JVS(8404) = Jac_FULL(2015,1287) - JVS(8404) = B(5385) -! JVS(8405) = Jac_FULL(2015,2014) - JVS(8405) = B(5388) -! JVS(8406) = Jac_FULL(2015,2015) - JVS(8406) = -B(5389) -! JVS(8407) = Jac_FULL(2015,3523) - JVS(8407) = B(2421)+B(2423)+B(2426) -! JVS(8408) = Jac_FULL(2015,5250) - JVS(8408) = 0 -! JVS(8409) = Jac_FULL(2015,5252) - JVS(8409) = B(2422) -! JVS(8410) = Jac_FULL(2015,5255) - JVS(8410) = 0 -! JVS(8411) = Jac_FULL(2015,5256) - JVS(8411) = B(2424) -! JVS(8412) = Jac_FULL(2016,2016) - JVS(8412) = -B(17783)-B(17784) -! JVS(8413) = Jac_FULL(2016,3941) - JVS(8413) = B(15207) -! JVS(8414) = Jac_FULL(2016,5250) - JVS(8414) = -B(17785) -! JVS(8415) = Jac_FULL(2016,5255) - JVS(8415) = B(15208) -! JVS(8416) = Jac_FULL(2017,2017) - JVS(8416) = -B(21862)-B(21864)-B(21865) -! JVS(8417) = Jac_FULL(2017,4150) - JVS(8417) = B(20814) -! JVS(8418) = Jac_FULL(2017,5250) - JVS(8418) = -B(21863) -! JVS(8419) = Jac_FULL(2017,5255) - JVS(8419) = B(20815) -! JVS(8420) = Jac_FULL(2018,2018) - JVS(8420) = -B(22471)-B(22473)-B(22474) -! JVS(8421) = Jac_FULL(2018,4418) - JVS(8421) = B(21853) -! JVS(8422) = Jac_FULL(2018,5250) - JVS(8422) = -B(22472) -! JVS(8423) = Jac_FULL(2018,5255) - JVS(8423) = B(21854) -! JVS(8424) = Jac_FULL(2019,2019) - JVS(8424) = -B(4669)-B(4670)-B(4672) -! JVS(8425) = Jac_FULL(2019,4886) - JVS(8425) = B(1856) -! JVS(8426) = Jac_FULL(2019,5250) - JVS(8426) = -B(4671)-B(4673) -! JVS(8427) = Jac_FULL(2019,5255) - JVS(8427) = B(1857) -! JVS(8428) = Jac_FULL(2020,2020) - JVS(8428) = -B(4803)-B(4804) -! JVS(8429) = Jac_FULL(2020,5181) - JVS(8429) = B(1977) -! JVS(8430) = Jac_FULL(2020,5250) - JVS(8430) = -B(4805) -! JVS(8431) = Jac_FULL(2020,5252) - JVS(8431) = B(1978) -! JVS(8432) = Jac_FULL(2021,1896) - JVS(8432) = B(6275) -! JVS(8433) = Jac_FULL(2021,2021) - JVS(8433) = -B(6285)-B(6287) -! JVS(8434) = Jac_FULL(2021,3798) - JVS(8434) = B(2854) -! JVS(8435) = Jac_FULL(2021,5250) - JVS(8435) = B(6276)-B(6286) -! JVS(8436) = Jac_FULL(2021,5252) - JVS(8436) = 0 -! JVS(8437) = Jac_FULL(2022,2022) - JVS(8437) = -B(19389)-B(19391)-B(19392) -! JVS(8438) = Jac_FULL(2022,4135) - JVS(8438) = B(17154) -! JVS(8439) = Jac_FULL(2022,5250) - JVS(8439) = -B(19390) -! JVS(8440) = Jac_FULL(2022,5255) - JVS(8440) = B(17155) -! JVS(8441) = Jac_FULL(2023,2023) - JVS(8441) = -B(7241) -! JVS(8442) = Jac_FULL(2023,3936) - JVS(8442) = B(3440) -! JVS(8443) = Jac_FULL(2023,3943) - JVS(8443) = B(3413) -! JVS(8444) = Jac_FULL(2023,5250) - JVS(8444) = -B(7242) -! JVS(8445) = Jac_FULL(2023,5252) - JVS(8445) = B(3441) -! JVS(8446) = Jac_FULL(2024,2024) - JVS(8446) = -B(22171) -! JVS(8447) = Jac_FULL(2024,3274) - JVS(8447) = B(22167) -! JVS(8448) = Jac_FULL(2024,4384) - JVS(8448) = B(21194)+B(21196)+B(21198) -! JVS(8449) = Jac_FULL(2024,5252) - JVS(8449) = B(21195) -! JVS(8450) = Jac_FULL(2024,5256) - JVS(8450) = B(21197) -! JVS(8451) = Jac_FULL(2025,2025) - JVS(8451) = -B(16003)-B(16005)-B(16007) -! JVS(8452) = Jac_FULL(2025,4689) - JVS(8452) = B(12917) -! JVS(8453) = Jac_FULL(2025,5250) - JVS(8453) = -B(16004)-B(16006) -! JVS(8454) = Jac_FULL(2025,5255) - JVS(8454) = B(12918) -! JVS(8455) = Jac_FULL(2026,2026) - JVS(8455) = -B(22244)-B(22246) -! JVS(8456) = Jac_FULL(2026,4744) - JVS(8456) = B(21430) -! JVS(8457) = Jac_FULL(2026,5250) - JVS(8457) = -B(22245) -! JVS(8458) = Jac_FULL(2026,5255) - JVS(8458) = B(21431) -! JVS(8459) = Jac_FULL(2027,2027) - JVS(8459) = -B(17916)-B(17917) -! JVS(8460) = Jac_FULL(2027,3881) - JVS(8460) = B(15312) -! JVS(8461) = Jac_FULL(2027,5250) - JVS(8461) = -B(17918) -! JVS(8462) = Jac_FULL(2027,5255) - JVS(8462) = B(15313) -! JVS(8463) = Jac_FULL(2028,1621) - JVS(8463) = B(12295) -! JVS(8464) = Jac_FULL(2028,2028) - JVS(8464) = -B(12291)-B(12293)-B(12294) -! JVS(8465) = Jac_FULL(2028,4804) - JVS(8465) = B(8623) -! JVS(8466) = Jac_FULL(2028,5250) - JVS(8466) = -B(12292)+B(12296) -! JVS(8467) = Jac_FULL(2029,2029) - JVS(8467) = -B(3940) -! JVS(8468) = Jac_FULL(2029,3623) - JVS(8468) = B(3939) -! JVS(8469) = Jac_FULL(2029,4780) - JVS(8469) = B(1174)+B(1176)+B(1179) -! JVS(8470) = Jac_FULL(2029,5252) - JVS(8470) = B(1175) -! JVS(8471) = Jac_FULL(2029,5256) - JVS(8471) = B(1177) -! JVS(8472) = Jac_FULL(2030,836) - JVS(8472) = B(11766) -! JVS(8473) = Jac_FULL(2030,2030) - JVS(8473) = -B(11772) -! JVS(8474) = Jac_FULL(2030,2189) - JVS(8474) = B(11769) -! JVS(8475) = Jac_FULL(2030,3718) - JVS(8475) = B(8044)+B(8046)+B(8049) -! JVS(8476) = Jac_FULL(2030,5250) - JVS(8476) = 0 -! JVS(8477) = Jac_FULL(2030,5252) - JVS(8477) = B(8045) -! JVS(8478) = Jac_FULL(2030,5255) - JVS(8478) = 0 -! JVS(8479) = Jac_FULL(2030,5256) - JVS(8479) = B(8047) -! JVS(8480) = Jac_FULL(2031,1387) - JVS(8480) = B(12141) -! JVS(8481) = Jac_FULL(2031,2031) - JVS(8481) = -B(12147) -! JVS(8482) = Jac_FULL(2031,2387) - JVS(8482) = B(12144) -! JVS(8483) = Jac_FULL(2031,3691) - JVS(8483) = B(8400)+B(8402)+B(8405) -! JVS(8484) = Jac_FULL(2031,5250) - JVS(8484) = 0 -! JVS(8485) = Jac_FULL(2031,5252) - JVS(8485) = B(8401) -! JVS(8486) = Jac_FULL(2031,5255) - JVS(8486) = 0 -! JVS(8487) = Jac_FULL(2031,5256) - JVS(8487) = B(8403) -! JVS(8488) = Jac_FULL(2032,2032) - JVS(8488) = -B(22896)-B(22898) -! JVS(8489) = Jac_FULL(2032,3715) - JVS(8489) = B(22429) -! JVS(8490) = Jac_FULL(2032,5250) - JVS(8490) = -B(22897) -! JVS(8491) = Jac_FULL(2032,5252) - JVS(8491) = B(22430) -! JVS(8492) = Jac_FULL(2033,772) - JVS(8492) = B(22912) -! JVS(8493) = Jac_FULL(2033,1264) - JVS(8493) = B(22895) -! JVS(8494) = Jac_FULL(2033,2032) - JVS(8494) = B(22898) -! JVS(8495) = Jac_FULL(2033,2033) - JVS(8495) = -B(22899) -! JVS(8496) = Jac_FULL(2033,3715) - JVS(8496) = B(22431)+B(22433)+B(22436) -! JVS(8497) = Jac_FULL(2033,5250) - JVS(8497) = 0 -! JVS(8498) = Jac_FULL(2033,5252) - JVS(8498) = B(22432) -! JVS(8499) = Jac_FULL(2033,5255) - JVS(8499) = 0 -! JVS(8500) = Jac_FULL(2033,5256) - JVS(8500) = B(22434) -! JVS(8501) = Jac_FULL(2034,2034) - JVS(8501) = -B(20663)-B(20665) -! JVS(8502) = Jac_FULL(2034,3668) - JVS(8502) = B(19082) -! JVS(8503) = Jac_FULL(2034,5250) - JVS(8503) = -B(20664) -! JVS(8504) = Jac_FULL(2034,5252) - JVS(8504) = B(19083) -! JVS(8505) = Jac_FULL(2035,767) - JVS(8505) = B(20669) -! JVS(8506) = Jac_FULL(2035,1225) - JVS(8506) = B(20662) -! JVS(8507) = Jac_FULL(2035,2034) - JVS(8507) = B(20665) -! JVS(8508) = Jac_FULL(2035,2035) - JVS(8508) = -B(20666) -! JVS(8509) = Jac_FULL(2035,3668) - JVS(8509) = B(19084)+B(19086)+B(19088) -! JVS(8510) = Jac_FULL(2035,5250) - JVS(8510) = 0 -! JVS(8511) = Jac_FULL(2035,5252) - JVS(8511) = B(19085) -! JVS(8512) = Jac_FULL(2035,5255) - JVS(8512) = 0 -! JVS(8513) = Jac_FULL(2035,5256) - JVS(8513) = B(19087) -! JVS(8514) = Jac_FULL(2036,2036) - JVS(8514) = -B(12260)-B(12262) -! JVS(8515) = Jac_FULL(2036,4433) - JVS(8515) = B(8572) -! JVS(8516) = Jac_FULL(2036,5250) - JVS(8516) = -B(12261) -! JVS(8517) = Jac_FULL(2036,5255) - JVS(8517) = B(8573) -! JVS(8518) = Jac_FULL(2037,2037) - JVS(8518) = -B(3741) -! JVS(8519) = Jac_FULL(2037,4112) - JVS(8519) = B(2069) -! JVS(8520) = Jac_FULL(2037,5129) - JVS(8520) = B(1021) -! JVS(8521) = Jac_FULL(2037,5250) - JVS(8521) = -B(3742) -! JVS(8522) = Jac_FULL(2037,5252) - JVS(8522) = B(1022) -! JVS(8523) = Jac_FULL(2038,2038) - JVS(8523) = -B(1995)-B(1996)-B(1997) -! JVS(8524) = Jac_FULL(2038,5024) - JVS(8524) = B(16720) -! JVS(8525) = Jac_FULL(2038,5124) - JVS(8525) = B(425) -! JVS(8526) = Jac_FULL(2038,5258) - JVS(8526) = B(426)+B(16721) -! JVS(8527) = Jac_FULL(2039,2039) - JVS(8527) = -B(22211)-B(22213) -! JVS(8528) = Jac_FULL(2039,4329) - JVS(8528) = B(21323) -! JVS(8529) = Jac_FULL(2039,5250) - JVS(8529) = -B(22212) -! JVS(8530) = Jac_FULL(2039,5255) - JVS(8530) = B(21324) -! JVS(8531) = Jac_FULL(2040,2040) - JVS(8531) = -B(6697)-B(6698) -! JVS(8532) = Jac_FULL(2040,3634) - JVS(8532) = B(3090) -! JVS(8533) = Jac_FULL(2040,5250) - JVS(8533) = -B(6699) -! JVS(8534) = Jac_FULL(2040,5252) - JVS(8534) = B(3091) -! JVS(8535) = Jac_FULL(2041,1258) - JVS(8535) = B(6694) -! JVS(8536) = Jac_FULL(2041,2040) - JVS(8536) = B(6697) -! JVS(8537) = Jac_FULL(2041,2041) - JVS(8537) = -B(6700) -! JVS(8538) = Jac_FULL(2041,3634) - JVS(8538) = B(3092)+B(3094)+B(3098) -! JVS(8539) = Jac_FULL(2041,5250) - JVS(8539) = 0 -! JVS(8540) = Jac_FULL(2041,5252) - JVS(8540) = B(3093) -! JVS(8541) = Jac_FULL(2041,5255) - JVS(8541) = 0 -! JVS(8542) = Jac_FULL(2041,5256) - JVS(8542) = B(3095) -! JVS(8543) = Jac_FULL(2042,2042) - JVS(8543) = -B(2101)-B(2102)-B(2103)-B(2104) -! JVS(8544) = Jac_FULL(2042,5190) - JVS(8544) = B(481) -! JVS(8545) = Jac_FULL(2042,5258) - JVS(8545) = B(482) -! JVS(8546) = Jac_FULL(2043,2043) - JVS(8546) = -B(13582)-B(13584) -! JVS(8547) = Jac_FULL(2043,2695) - JVS(8547) = B(13577) -! JVS(8548) = Jac_FULL(2043,4341) - JVS(8548) = B(10396) -! JVS(8549) = Jac_FULL(2043,5250) - JVS(8549) = B(13578)-B(13583) -! JVS(8550) = Jac_FULL(2044,2044) - JVS(8550) = -B(4081)-B(4082)-B(4084) -! JVS(8551) = Jac_FULL(2044,5228) - JVS(8551) = B(1280) -! JVS(8552) = Jac_FULL(2044,5250) - JVS(8552) = -B(4083)-B(4085) -! JVS(8553) = Jac_FULL(2044,5255) - JVS(8553) = B(1281) -! JVS(8554) = Jac_FULL(2045,2045) - JVS(8554) = -B(11907)-B(11908) -! JVS(8555) = Jac_FULL(2045,4334) - JVS(8555) = B(8160) -! JVS(8556) = Jac_FULL(2045,5250) - JVS(8556) = -B(11909) -! JVS(8557) = Jac_FULL(2045,5252) - JVS(8557) = B(8161) -! JVS(8558) = Jac_FULL(2046,2046) - JVS(8558) = -B(18092)-B(18094) -! JVS(8559) = Jac_FULL(2046,3685) - JVS(8559) = B(15508) -! JVS(8560) = Jac_FULL(2046,5250) - JVS(8560) = -B(18093) -! JVS(8561) = Jac_FULL(2046,5255) - JVS(8561) = B(15509) -! JVS(8562) = Jac_FULL(2047,2047) - JVS(8562) = -B(13251)-B(13253)-B(13254) -! JVS(8563) = Jac_FULL(2047,3814) - JVS(8563) = B(9898) -! JVS(8564) = Jac_FULL(2047,5250) - JVS(8564) = -B(13252) -! JVS(8565) = Jac_FULL(2047,5255) - JVS(8565) = B(9899) -! JVS(8566) = Jac_FULL(2048,2048) - JVS(8566) = -B(13191)-B(13193) -! JVS(8567) = Jac_FULL(2048,4322) - JVS(8567) = B(9755) -! JVS(8568) = Jac_FULL(2048,5250) - JVS(8568) = -B(13194) -! JVS(8569) = Jac_FULL(2048,5256) - JVS(8569) = -B(13192) -! JVS(8570) = Jac_FULL(2049,2049) - JVS(8570) = -B(12039)-B(12040) -! JVS(8571) = Jac_FULL(2049,5119) - JVS(8571) = B(8297) -! JVS(8572) = Jac_FULL(2049,5250) - JVS(8572) = -B(12041) -! JVS(8573) = Jac_FULL(2049,5252) - JVS(8573) = B(8298) -! JVS(8574) = Jac_FULL(2050,964) - JVS(8574) = B(12036) -! JVS(8575) = Jac_FULL(2050,2049) - JVS(8575) = B(12039) -! JVS(8576) = Jac_FULL(2050,2050) - JVS(8576) = -B(12042) -! JVS(8577) = Jac_FULL(2050,5119) - JVS(8577) = B(8299)+B(8301)+B(8304) -! JVS(8578) = Jac_FULL(2050,5250) - JVS(8578) = 0 -! JVS(8579) = Jac_FULL(2050,5252) - JVS(8579) = B(8300) -! JVS(8580) = Jac_FULL(2050,5255) - JVS(8580) = 0 -! JVS(8581) = Jac_FULL(2050,5256) - JVS(8581) = B(8302) -! JVS(8582) = Jac_FULL(2051,2051) - JVS(8582) = -B(12566)-B(12568) -! JVS(8583) = Jac_FULL(2051,3487) - JVS(8583) = B(9769) -! JVS(8584) = Jac_FULL(2051,4740) - JVS(8584) = B(8946) -! JVS(8585) = Jac_FULL(2051,5250) - JVS(8585) = -B(12567) -! JVS(8586) = Jac_FULL(2051,5255) - JVS(8586) = B(8947) -! JVS(8587) = Jac_FULL(2052,2052) - JVS(8587) = -B(19774)-B(19775)-B(19776) -! JVS(8588) = Jac_FULL(2052,4349) - JVS(8588) = B(17907) -! JVS(8589) = Jac_FULL(2052,5250) - JVS(8589) = -B(19777) -! JVS(8590) = Jac_FULL(2052,5255) - JVS(8590) = B(17908) -! JVS(8591) = Jac_FULL(2053,2053) - JVS(8591) = -B(15703)-B(15705) -! JVS(8592) = Jac_FULL(2053,3739) - JVS(8592) = B(12629) -! JVS(8593) = Jac_FULL(2053,5250) - JVS(8593) = -B(15704) -! JVS(8594) = Jac_FULL(2053,5255) - JVS(8594) = B(12630) -! JVS(8595) = Jac_FULL(2054,2054) - JVS(8595) = -B(12419)-B(12421) -! JVS(8596) = Jac_FULL(2054,4488) - JVS(8596) = B(8778) -! JVS(8597) = Jac_FULL(2054,5250) - JVS(8597) = -B(12422) -! JVS(8598) = Jac_FULL(2054,5256) - JVS(8598) = -B(12420) -! JVS(8599) = Jac_FULL(2055,2055) - JVS(8599) = -B(21334)-B(21336) -! JVS(8600) = Jac_FULL(2055,4241) - JVS(8600) = B(19956) -! JVS(8601) = Jac_FULL(2055,5250) - JVS(8601) = -B(21335) -! JVS(8602) = Jac_FULL(2055,5255) - JVS(8602) = B(19957) -! JVS(8603) = Jac_FULL(2056,418) - JVS(8603) = B(21837)+B(21839) -! JVS(8604) = Jac_FULL(2056,942) - JVS(8604) = B(21832) -! JVS(8605) = Jac_FULL(2056,2056) - JVS(8605) = -B(21836) -! JVS(8606) = Jac_FULL(2056,2532) - JVS(8606) = B(21835) -! JVS(8607) = Jac_FULL(2056,3845) - JVS(8607) = B(20803)+B(20805)+B(20807) -! JVS(8608) = Jac_FULL(2056,5250) - JVS(8608) = B(21838) -! JVS(8609) = Jac_FULL(2056,5252) - JVS(8609) = B(20804) -! JVS(8610) = Jac_FULL(2056,5255) - JVS(8610) = 0 -! JVS(8611) = Jac_FULL(2056,5256) - JVS(8611) = B(20806) -! JVS(8612) = Jac_FULL(2057,2057) - JVS(8612) = -B(4415)-B(4417)-B(4419) -! JVS(8613) = Jac_FULL(2057,5192) - JVS(8613) = B(1640) -! JVS(8614) = Jac_FULL(2057,5250) - JVS(8614) = -B(4416)-B(4418) -! JVS(8615) = Jac_FULL(2057,5255) - JVS(8615) = B(1641) -! JVS(8616) = Jac_FULL(2058,2058) - JVS(8616) = -B(7299)-B(7301) -! JVS(8617) = Jac_FULL(2058,3936) - JVS(8617) = B(3438) -! JVS(8618) = Jac_FULL(2058,5250) - JVS(8618) = -B(7300) -! JVS(8619) = Jac_FULL(2058,5255) - JVS(8619) = B(3439) -! JVS(8620) = Jac_FULL(2059,2059) - JVS(8620) = -B(19796)-B(19797)-B(19798) -! JVS(8621) = Jac_FULL(2059,4389) - JVS(8621) = B(17937) -! JVS(8622) = Jac_FULL(2059,5250) - JVS(8622) = -B(19799) -! JVS(8623) = Jac_FULL(2059,5255) - JVS(8623) = B(17938) -! JVS(8624) = Jac_FULL(2060,1349) - JVS(8624) = B(12123) -! JVS(8625) = Jac_FULL(2060,2060) - JVS(8625) = -B(12129) -! JVS(8626) = Jac_FULL(2060,2206) - JVS(8626) = B(12126) -! JVS(8627) = Jac_FULL(2060,3690) - JVS(8627) = B(8382)+B(8384)+B(8387) -! JVS(8628) = Jac_FULL(2060,5250) - JVS(8628) = 0 -! JVS(8629) = Jac_FULL(2060,5252) - JVS(8629) = B(8383) -! JVS(8630) = Jac_FULL(2060,5255) - JVS(8630) = 0 -! JVS(8631) = Jac_FULL(2060,5256) - JVS(8631) = B(8385) -! JVS(8632) = Jac_FULL(2061,2061) - JVS(8632) = -B(11224)-B(11226) -! JVS(8633) = Jac_FULL(2061,5236) - JVS(8633) = B(7433) -! JVS(8634) = Jac_FULL(2061,5250) - JVS(8634) = -B(11225) -! JVS(8635) = Jac_FULL(2061,5252) - JVS(8635) = B(7434) -! JVS(8636) = Jac_FULL(2062,2062) - JVS(8636) = -B(21986)-B(21988) -! JVS(8637) = Jac_FULL(2062,4538) - JVS(8637) = B(20935) -! JVS(8638) = Jac_FULL(2062,5250) - JVS(8638) = -B(21987) -! JVS(8639) = Jac_FULL(2062,5255) - JVS(8639) = B(20936) -! JVS(8640) = Jac_FULL(2063,2063) - JVS(8640) = -B(21977)-B(21979) -! JVS(8641) = Jac_FULL(2063,3703) - JVS(8641) = B(20909) -! JVS(8642) = Jac_FULL(2063,5250) - JVS(8642) = -B(21978) -! JVS(8643) = Jac_FULL(2063,5252) - JVS(8643) = B(20910) -! JVS(8644) = Jac_FULL(2064,2064) - JVS(8644) = -B(21479)-B(21481) -! JVS(8645) = Jac_FULL(2064,4154) - JVS(8645) = B(20224) -! JVS(8646) = Jac_FULL(2064,5250) - JVS(8646) = -B(21480) -! JVS(8647) = Jac_FULL(2064,5255) - JVS(8647) = B(20225) -! JVS(8648) = Jac_FULL(2065,2065) - JVS(8648) = -B(7407)-B(7409) -! JVS(8649) = Jac_FULL(2065,3940) - JVS(8649) = B(3521) -! JVS(8650) = Jac_FULL(2065,5250) - JVS(8650) = -B(7408) -! JVS(8651) = Jac_FULL(2065,5255) - JVS(8651) = B(3522) -! JVS(8652) = Jac_FULL(2066,2066) - JVS(8652) = -B(3769) -! JVS(8653) = Jac_FULL(2066,3265) - JVS(8653) = B(3766) -! JVS(8654) = Jac_FULL(2066,4767) - JVS(8654) = B(1046)+B(1048)+B(1052) -! JVS(8655) = Jac_FULL(2066,5252) - JVS(8655) = B(1047) -! JVS(8656) = Jac_FULL(2066,5256) - JVS(8656) = B(1049) -! JVS(8657) = Jac_FULL(2067,2067) - JVS(8657) = -B(5168) -! JVS(8658) = Jac_FULL(2067,4608) - JVS(8658) = B(2312) -! JVS(8659) = Jac_FULL(2067,4702) - JVS(8659) = B(2294) -! JVS(8660) = Jac_FULL(2067,5250) - JVS(8660) = -B(5169) -! JVS(8661) = Jac_FULL(2067,5252) - JVS(8661) = B(2313) -! JVS(8662) = Jac_FULL(2068,2068) - JVS(8662) = -B(5190)-B(5192) -! JVS(8663) = Jac_FULL(2068,3671) - JVS(8663) = B(2321) -! JVS(8664) = Jac_FULL(2068,5250) - JVS(8664) = -B(5191) -! JVS(8665) = Jac_FULL(2068,5255) - JVS(8665) = B(2322) -! JVS(8666) = Jac_FULL(2069,2069) - JVS(8666) = -B(5029)-B(5031)-B(5033) -! JVS(8667) = Jac_FULL(2069,4700) - JVS(8667) = B(2179) -! JVS(8668) = Jac_FULL(2069,5250) - JVS(8668) = -B(5030)-B(5032) -! JVS(8669) = Jac_FULL(2069,5255) - JVS(8669) = B(2180) -! JVS(8670) = Jac_FULL(2070,2070) - JVS(8670) = -B(6997)-B(6999)-B(7001) -! JVS(8671) = Jac_FULL(2070,5246) - JVS(8671) = B(3207) -! JVS(8672) = Jac_FULL(2070,5250) - JVS(8672) = -B(6998)-B(7000) -! JVS(8673) = Jac_FULL(2070,5255) - JVS(8673) = B(3208) -! JVS(8674) = Jac_FULL(2071,2071) - JVS(8674) = -B(17115)-B(17117) -! JVS(8675) = Jac_FULL(2071,4567) - JVS(8675) = B(14468) -! JVS(8676) = Jac_FULL(2071,5250) - JVS(8676) = -B(17116) -! JVS(8677) = Jac_FULL(2071,5255) - JVS(8677) = B(14469) -! JVS(8678) = Jac_FULL(2072,2072) - JVS(8678) = -B(21946)-B(21948) -! JVS(8679) = Jac_FULL(2072,4059) - JVS(8679) = B(20886) -! JVS(8680) = Jac_FULL(2072,5250) - JVS(8680) = -B(21947) -! JVS(8681) = Jac_FULL(2072,5252) - JVS(8681) = B(20887) -! JVS(8682) = Jac_FULL(2073,1126) - JVS(8682) = B(21945) -! JVS(8683) = Jac_FULL(2073,2072) - JVS(8683) = B(21948) -! JVS(8684) = Jac_FULL(2073,2073) - JVS(8684) = -B(21949) -! JVS(8685) = Jac_FULL(2073,4059) - JVS(8685) = B(20888)+B(20890)+B(20893) -! JVS(8686) = Jac_FULL(2073,5250) - JVS(8686) = 0 -! JVS(8687) = Jac_FULL(2073,5252) - JVS(8687) = B(20889) -! JVS(8688) = Jac_FULL(2073,5255) - JVS(8688) = 0 -! JVS(8689) = Jac_FULL(2073,5256) - JVS(8689) = B(20891) -! JVS(8690) = Jac_FULL(2074,2074) - JVS(8690) = -B(11457)-B(11458) -! JVS(8691) = Jac_FULL(2074,4374) - JVS(8691) = B(7618) -! JVS(8692) = Jac_FULL(2074,5250) - JVS(8692) = -B(11459) -! JVS(8693) = Jac_FULL(2074,5252) - JVS(8693) = B(7619) -! JVS(8694) = Jac_FULL(2075,2075) - JVS(8694) = -B(6962)-B(6964) -! JVS(8695) = Jac_FULL(2075,4616) - JVS(8695) = B(3176) -! JVS(8696) = Jac_FULL(2075,5250) - JVS(8696) = -B(6963) -! JVS(8697) = Jac_FULL(2075,5252) - JVS(8697) = B(3177) -! JVS(8698) = Jac_FULL(2076,1143) - JVS(8698) = B(6955) -! JVS(8699) = Jac_FULL(2076,2075) - JVS(8699) = B(6964) -! JVS(8700) = Jac_FULL(2076,2076) - JVS(8700) = -B(6965) -! JVS(8701) = Jac_FULL(2076,4616) - JVS(8701) = B(3178)+B(3180)+B(3182) -! JVS(8702) = Jac_FULL(2076,5250) - JVS(8702) = 0 -! JVS(8703) = Jac_FULL(2076,5252) - JVS(8703) = B(3179) -! JVS(8704) = Jac_FULL(2076,5255) - JVS(8704) = 0 -! JVS(8705) = Jac_FULL(2076,5256) - JVS(8705) = B(3181) -! JVS(8706) = Jac_FULL(2077,2077) - JVS(8706) = -B(4128)-B(4130) -! JVS(8707) = Jac_FULL(2077,4705) - JVS(8707) = B(1345) -! JVS(8708) = Jac_FULL(2077,5250) - JVS(8708) = -B(4129) -! JVS(8709) = Jac_FULL(2077,5252) - JVS(8709) = B(1346) -! JVS(8710) = Jac_FULL(2078,2078) - JVS(8710) = -B(6502)-B(6504) -! JVS(8711) = Jac_FULL(2078,3790) - JVS(8711) = B(2951) -! JVS(8712) = Jac_FULL(2078,5250) - JVS(8712) = -B(6503) -! JVS(8713) = Jac_FULL(2078,5252) - JVS(8713) = B(2952) -! JVS(8714) = Jac_FULL(2079,2079) - JVS(8714) = -B(17284)-B(17286) -! JVS(8715) = Jac_FULL(2079,3901) - JVS(8715) = B(14721) -! JVS(8716) = Jac_FULL(2079,5250) - JVS(8716) = -B(17285) -! JVS(8717) = Jac_FULL(2079,5252) - JVS(8717) = B(14722) -! JVS(8718) = Jac_FULL(2080,2080) - JVS(8718) = -B(12184)-B(12186) -! JVS(8719) = Jac_FULL(2080,4724) - JVS(8719) = B(8454) -! JVS(8720) = Jac_FULL(2080,5250) - JVS(8720) = -B(12185) -! JVS(8721) = Jac_FULL(2080,5255) - JVS(8721) = B(8455) -! JVS(8722) = Jac_FULL(2081,2081) - JVS(8722) = -B(10411)-B(10412) -! JVS(8723) = Jac_FULL(2081,5168) - JVS(8723) = B(6702) -! JVS(8724) = Jac_FULL(2081,5220) - JVS(8724) = B(10600) -! JVS(8725) = Jac_FULL(2081,5258) - JVS(8725) = B(6703)+B(10601) -! JVS(8726) = Jac_FULL(2082,2082) - JVS(8726) = -B(22263)-B(22265) -! JVS(8727) = Jac_FULL(2082,4731) - JVS(8727) = B(21468) -! JVS(8728) = Jac_FULL(2082,5250) - JVS(8728) = -B(22264) -! JVS(8729) = Jac_FULL(2082,5255) - JVS(8729) = B(21469) -! JVS(8730) = Jac_FULL(2083,2083) - JVS(8730) = -B(7067)-B(7069) -! JVS(8731) = Jac_FULL(2083,5161) - JVS(8731) = B(3267) -! JVS(8732) = Jac_FULL(2083,5250) - JVS(8732) = -B(7068) -! JVS(8733) = Jac_FULL(2083,5252) - JVS(8733) = B(3268) -! JVS(8734) = Jac_FULL(2084,2084) - JVS(8734) = -B(19705)-B(19706)-B(19707) -! JVS(8735) = Jac_FULL(2084,4309) - JVS(8735) = B(17823) -! JVS(8736) = Jac_FULL(2084,5250) - JVS(8736) = -B(19708) -! JVS(8737) = Jac_FULL(2084,5255) - JVS(8737) = B(17824) -! JVS(8738) = Jac_FULL(2085,2085) - JVS(8738) = -B(18773) -! JVS(8739) = Jac_FULL(2085,3261) - JVS(8739) = B(18771) -! JVS(8740) = Jac_FULL(2085,4180) - JVS(8740) = B(16541)+B(16543)+B(16545) -! JVS(8741) = Jac_FULL(2085,5252) - JVS(8741) = B(16542) -! JVS(8742) = Jac_FULL(2085,5256) - JVS(8742) = B(16544) -! JVS(8743) = Jac_FULL(2086,2086) - JVS(8743) = -B(4500)-B(4501) -! JVS(8744) = Jac_FULL(2086,5109) - JVS(8744) = B(1718) -! JVS(8745) = Jac_FULL(2086,5250) - JVS(8745) = -B(4502) -! JVS(8746) = Jac_FULL(2086,5252) - JVS(8746) = B(1719) -! JVS(8747) = Jac_FULL(2087,2087) - JVS(8747) = -B(6185)-B(6187) -! JVS(8748) = Jac_FULL(2087,3797) - JVS(8748) = B(2803) -! JVS(8749) = Jac_FULL(2087,5250) - JVS(8749) = -B(6186) -! JVS(8750) = Jac_FULL(2087,5252) - JVS(8750) = B(2804) -! JVS(8751) = Jac_FULL(2088,1150) - JVS(8751) = B(6184) -! JVS(8752) = Jac_FULL(2088,2087) - JVS(8752) = B(6187) -! JVS(8753) = Jac_FULL(2088,2088) - JVS(8753) = -B(6188) -! JVS(8754) = Jac_FULL(2088,3797) - JVS(8754) = B(2805)+B(2807)+B(2809) -! JVS(8755) = Jac_FULL(2088,5250) - JVS(8755) = 0 -! JVS(8756) = Jac_FULL(2088,5252) - JVS(8756) = B(2806) -! JVS(8757) = Jac_FULL(2088,5255) - JVS(8757) = 0 -! JVS(8758) = Jac_FULL(2088,5256) - JVS(8758) = B(2808) -! JVS(8759) = Jac_FULL(2089,2089) - JVS(8759) = -B(15451)-B(15453) -! JVS(8760) = Jac_FULL(2089,3669) - JVS(8760) = B(12346) -! JVS(8761) = Jac_FULL(2089,5250) - JVS(8761) = -B(15452) -! JVS(8762) = Jac_FULL(2089,5255) - JVS(8762) = B(12347) -! JVS(8763) = Jac_FULL(2090,2090) - JVS(8763) = -B(3890) -! JVS(8764) = Jac_FULL(2090,3310) - JVS(8764) = B(3887) -! JVS(8765) = Jac_FULL(2090,4959) - JVS(8765) = B(1133)+B(1135)+B(1138) -! JVS(8766) = Jac_FULL(2090,5252) - JVS(8766) = B(1134) -! JVS(8767) = Jac_FULL(2090,5256) - JVS(8767) = B(1136) -! JVS(8768) = Jac_FULL(2091,2091) - JVS(8768) = -B(18280)-B(18282) -! JVS(8769) = Jac_FULL(2091,4025) - JVS(8769) = B(15812) -! JVS(8770) = Jac_FULL(2091,5250) - JVS(8770) = -B(18281) -! JVS(8771) = Jac_FULL(2091,5255) - JVS(8771) = B(15813) -! JVS(8772) = Jac_FULL(2092,2092) - JVS(8772) = -B(7081)-B(7082) -! JVS(8773) = Jac_FULL(2092,5097) - JVS(8773) = B(3286) -! JVS(8774) = Jac_FULL(2092,5250) - JVS(8774) = -B(7083) -! JVS(8775) = Jac_FULL(2092,5252) - JVS(8775) = B(3287) -! JVS(8776) = Jac_FULL(2093,2093) - JVS(8776) = -B(18172)-B(18174) -! JVS(8777) = Jac_FULL(2093,4327) - JVS(8777) = B(15662) -! JVS(8778) = Jac_FULL(2093,5250) - JVS(8778) = -B(18173) -! JVS(8779) = Jac_FULL(2093,5255) - JVS(8779) = B(15663) -! JVS(8780) = Jac_FULL(2094,2094) - JVS(8780) = -B(4701)-B(4702) -! JVS(8781) = Jac_FULL(2094,5146) - JVS(8781) = B(1880) -! JVS(8782) = Jac_FULL(2094,5250) - JVS(8782) = -B(4703) -! JVS(8783) = Jac_FULL(2094,5252) - JVS(8783) = B(1881) -! JVS(8784) = Jac_FULL(2095,2095) - JVS(8784) = -B(17840)-B(17841) -! JVS(8785) = Jac_FULL(2095,3871) - JVS(8785) = B(15245) -! JVS(8786) = Jac_FULL(2095,5250) - JVS(8786) = -B(17842) -! JVS(8787) = Jac_FULL(2095,5255) - JVS(8787) = B(15246) -! JVS(8788) = Jac_FULL(2096,2096) - JVS(8788) = -B(3635) -! JVS(8789) = Jac_FULL(2096,4171) - JVS(8789) = B(1993) -! JVS(8790) = Jac_FULL(2096,5195) - JVS(8790) = B(923) -! JVS(8791) = Jac_FULL(2096,5250) - JVS(8791) = -B(3636) -! JVS(8792) = Jac_FULL(2096,5252) - JVS(8792) = B(924) -! JVS(8793) = Jac_FULL(2097,2097) - JVS(8793) = -B(4648)-B(4649) -! JVS(8794) = Jac_FULL(2097,5077) - JVS(8794) = B(1837) -! JVS(8795) = Jac_FULL(2097,5250) - JVS(8795) = -B(4650) -! JVS(8796) = Jac_FULL(2097,5252) - JVS(8796) = B(1838) -! JVS(8797) = Jac_FULL(2098,2098) - JVS(8797) = -B(17387)-B(17389) -! JVS(8798) = Jac_FULL(2098,3920) - JVS(8798) = B(14818) -! JVS(8799) = Jac_FULL(2098,5250) - JVS(8799) = -B(17388) -! JVS(8800) = Jac_FULL(2098,5255) - JVS(8800) = B(14819) -! JVS(8801) = Jac_FULL(2099,2099) - JVS(8801) = -B(6621)-B(6622) -! JVS(8802) = Jac_FULL(2099,3658) - JVS(8802) = B(3039) -! JVS(8803) = Jac_FULL(2099,5250) - JVS(8803) = -B(6623) -! JVS(8804) = Jac_FULL(2099,5252) - JVS(8804) = B(3040) -! JVS(8805) = Jac_FULL(2100,1365) - JVS(8805) = B(6618) -! JVS(8806) = Jac_FULL(2100,2099) - JVS(8806) = B(6621) -! JVS(8807) = Jac_FULL(2100,2100) - JVS(8807) = -B(6624) -! JVS(8808) = Jac_FULL(2100,3658) - JVS(8808) = B(3041)+B(3043)+B(3046) -! JVS(8809) = Jac_FULL(2100,5250) - JVS(8809) = 0 -! JVS(8810) = Jac_FULL(2100,5252) - JVS(8810) = B(3042) -! JVS(8811) = Jac_FULL(2100,5255) - JVS(8811) = 0 -! JVS(8812) = Jac_FULL(2100,5256) - JVS(8812) = B(3044) -! JVS(8813) = Jac_FULL(2101,2101) - JVS(8813) = -B(16590)-B(16592) -! JVS(8814) = Jac_FULL(2101,5074) - JVS(8814) = B(13741) -! JVS(8815) = Jac_FULL(2101,5154) - JVS(8815) = B(13749) -! JVS(8816) = Jac_FULL(2101,5250) - JVS(8816) = -B(16591)-B(16593) -! JVS(8817) = Jac_FULL(2102,2102) - JVS(8817) = -B(12731)-B(12733) -! JVS(8818) = Jac_FULL(2102,3229) - JVS(8818) = B(12728) -! JVS(8819) = Jac_FULL(2102,4005) - JVS(8819) = B(9174) -! JVS(8820) = Jac_FULL(2102,5250) - JVS(8820) = B(12729)-B(12732) -! JVS(8821) = Jac_FULL(2102,5255) - JVS(8821) = B(9175) -! JVS(8822) = Jac_FULL(2103,2103) - JVS(8822) = -B(7293)-B(7295) -! JVS(8823) = Jac_FULL(2103,3921) - JVS(8823) = B(3428) -! JVS(8824) = Jac_FULL(2103,5250) - JVS(8824) = -B(7294) -! JVS(8825) = Jac_FULL(2103,5255) - JVS(8825) = B(3429) -! JVS(8826) = Jac_FULL(2104,2104) - JVS(8826) = -B(12897)-B(12898)-B(12899)-B(12900) -! JVS(8827) = Jac_FULL(2104,5066) - JVS(8827) = B(9418) -! JVS(8828) = Jac_FULL(2104,5258) - JVS(8828) = B(9419) -! JVS(8829) = Jac_FULL(2105,2105) - JVS(8829) = -B(18721)-B(18723) -! JVS(8830) = Jac_FULL(2105,4208) - JVS(8830) = B(16488) -! JVS(8831) = Jac_FULL(2105,5250) - JVS(8831) = -B(18722) -! JVS(8832) = Jac_FULL(2105,5255) - JVS(8832) = B(16489) -! JVS(8833) = Jac_FULL(2106,2106) - JVS(8833) = -B(4203)-B(4205) -! JVS(8834) = Jac_FULL(2106,3884) - JVS(8834) = B(1425) -! JVS(8835) = Jac_FULL(2106,5250) - JVS(8835) = -B(4204) -! JVS(8836) = Jac_FULL(2106,5252) - JVS(8836) = B(1426) -! JVS(8837) = Jac_FULL(2107,2107) - JVS(8837) = -B(18139)-B(18141) -! JVS(8838) = Jac_FULL(2107,4929) - JVS(8838) = B(15581) -! JVS(8839) = Jac_FULL(2107,5250) - JVS(8839) = -B(18140) -! JVS(8840) = Jac_FULL(2107,5255) - JVS(8840) = B(15582) -! JVS(8841) = Jac_FULL(2108,2108) - JVS(8841) = -B(11415)-B(11417) -! JVS(8842) = Jac_FULL(2108,5206) - JVS(8842) = B(7557) -! JVS(8843) = Jac_FULL(2108,5250) - JVS(8843) = -B(11416) -! JVS(8844) = Jac_FULL(2108,5252) - JVS(8844) = B(7558) -! JVS(8845) = Jac_FULL(2109,2109) - JVS(8845) = -B(16641)-B(16642) -! JVS(8846) = Jac_FULL(2109,5174) - JVS(8846) = B(13820) -! JVS(8847) = Jac_FULL(2109,5250) - JVS(8847) = -B(16643) -! JVS(8848) = Jac_FULL(2109,5255) - JVS(8848) = B(13821) -! JVS(8849) = Jac_FULL(2110,2110) - JVS(8849) = -B(11566)-B(11568) -! JVS(8850) = Jac_FULL(2110,4553) - JVS(8850) = B(7783) -! JVS(8851) = Jac_FULL(2110,5250) - JVS(8851) = -B(11567) -! JVS(8852) = Jac_FULL(2110,5255) - JVS(8852) = B(7784) -! JVS(8853) = Jac_FULL(2111,2111) - JVS(8853) = -B(23563)-B(23565) -! JVS(8854) = Jac_FULL(2111,4497) - JVS(8854) = B(23263) -! JVS(8855) = Jac_FULL(2111,5250) - JVS(8855) = -B(23564) -! JVS(8856) = Jac_FULL(2111,5255) - JVS(8856) = B(23264) -! JVS(8857) = Jac_FULL(2112,2112) - JVS(8857) = -B(13517) -! JVS(8858) = Jac_FULL(2112,3459) - JVS(8858) = B(13513) -! JVS(8859) = Jac_FULL(2112,4732) - JVS(8859) = B(10339)+B(10341)+B(10343) -! JVS(8860) = Jac_FULL(2112,5252) - JVS(8860) = B(10340) -! JVS(8861) = Jac_FULL(2112,5256) - JVS(8861) = B(10342) -! JVS(8862) = Jac_FULL(2113,2113) - JVS(8862) = -B(4791)-B(4792) -! JVS(8863) = Jac_FULL(2113,5065) - JVS(8863) = B(1966) -! JVS(8864) = Jac_FULL(2113,5250) - JVS(8864) = -B(4793) -! JVS(8865) = Jac_FULL(2113,5252) - JVS(8865) = B(1967) -! JVS(8866) = Jac_FULL(2114,2114) - JVS(8866) = -B(12324)-B(12326)-B(12328) -! JVS(8867) = Jac_FULL(2114,4719) - JVS(8867) = B(8655) -! JVS(8868) = Jac_FULL(2114,5250) - JVS(8868) = -B(12325)-B(12327) -! JVS(8869) = Jac_FULL(2114,5255) - JVS(8869) = B(8656) -! JVS(8870) = Jac_FULL(2115,2115) - JVS(8870) = -B(21157)-B(21158) -! JVS(8871) = Jac_FULL(2115,4549) - JVS(8871) = B(19612) -! JVS(8872) = Jac_FULL(2115,5250) - JVS(8872) = -B(21159) -! JVS(8873) = Jac_FULL(2115,5255) - JVS(8873) = B(19613) -! JVS(8874) = Jac_FULL(2116,2116) - JVS(8874) = -B(21636)-B(21637) -! JVS(8875) = Jac_FULL(2116,4230) - JVS(8875) = B(20572) -! JVS(8876) = Jac_FULL(2116,5250) - JVS(8876) = -B(21638) -! JVS(8877) = Jac_FULL(2116,5255) - JVS(8877) = B(20573) -! JVS(8878) = Jac_FULL(2117,2117) - JVS(8878) = -B(9485) -! JVS(8879) = Jac_FULL(2117,2559) - JVS(8879) = B(9484) -! JVS(8880) = Jac_FULL(2117,4683) - JVS(8880) = B(5837)+B(5839)+B(5841) -! JVS(8881) = Jac_FULL(2117,5252) - JVS(8881) = B(5838) -! JVS(8882) = Jac_FULL(2117,5256) - JVS(8882) = B(5840) -! JVS(8883) = Jac_FULL(2118,2118) - JVS(8883) = -B(146)-B(148)-B(150)-B(152) -! JVS(8884) = Jac_FULL(2118,5032) - JVS(8884) = B(3375) -! JVS(8885) = Jac_FULL(2118,5250) - JVS(8885) = -B(147)-B(149)-B(151) -! JVS(8886) = Jac_FULL(2119,1668) - JVS(8886) = B(17210) -! JVS(8887) = Jac_FULL(2119,1950) - JVS(8887) = B(17202) -! JVS(8888) = Jac_FULL(2119,2119) - JVS(8888) = -B(17207)-B(17209) -! JVS(8889) = Jac_FULL(2119,5028) - JVS(8889) = B(14591) -! JVS(8890) = Jac_FULL(2119,5250) - JVS(8890) = B(17203)-B(17208)+B(17211) -! JVS(8891) = Jac_FULL(2119,5255) - JVS(8891) = 0 -! JVS(8892) = Jac_FULL(2120,2120) - JVS(8892) = -B(20152)-B(20154) -! JVS(8893) = Jac_FULL(2120,4424) - JVS(8893) = B(18463) -! JVS(8894) = Jac_FULL(2120,5250) - JVS(8894) = -B(20153) -! JVS(8895) = Jac_FULL(2120,5255) - JVS(8895) = B(18464) -! JVS(8896) = Jac_FULL(2121,2121) - JVS(8896) = -B(19823)-B(19824)-B(19825) -! JVS(8897) = Jac_FULL(2121,4361) - JVS(8897) = B(17967) -! JVS(8898) = Jac_FULL(2121,5250) - JVS(8898) = -B(19826) -! JVS(8899) = Jac_FULL(2121,5255) - JVS(8899) = B(17968) -! JVS(8900) = Jac_FULL(2122,1304) - JVS(8900) = B(12105) -! JVS(8901) = Jac_FULL(2122,2122) - JVS(8901) = -B(12111) -! JVS(8902) = Jac_FULL(2122,2268) - JVS(8902) = B(12108) -! JVS(8903) = Jac_FULL(2122,3731) - JVS(8903) = B(8364)+B(8366)+B(8369) -! JVS(8904) = Jac_FULL(2122,5250) - JVS(8904) = 0 -! JVS(8905) = Jac_FULL(2122,5252) - JVS(8905) = B(8365) -! JVS(8906) = Jac_FULL(2122,5255) - JVS(8906) = 0 -! JVS(8907) = Jac_FULL(2122,5256) - JVS(8907) = B(8367) -! JVS(8908) = Jac_FULL(2123,2123) - JVS(8908) = -B(14121)-B(14122) -! JVS(8909) = Jac_FULL(2123,4646) - JVS(8909) = B(10923) -! JVS(8910) = Jac_FULL(2123,5250) - JVS(8910) = -B(14123) -! JVS(8911) = Jac_FULL(2123,5252) - JVS(8911) = B(10924) -! JVS(8912) = Jac_FULL(2124,2124) - JVS(8912) = -B(17897)-B(17898) -! JVS(8913) = Jac_FULL(2124,4713) - JVS(8913) = B(15300) -! JVS(8914) = Jac_FULL(2124,5250) - JVS(8914) = -B(17899) -! JVS(8915) = Jac_FULL(2124,5252) - JVS(8915) = B(15301) -! JVS(8916) = Jac_FULL(2125,2125) - JVS(8916) = -B(5102)-B(5104)-B(5106) -! JVS(8917) = Jac_FULL(2125,4587) - JVS(8917) = B(2242) -! JVS(8918) = Jac_FULL(2125,5250) - JVS(8918) = -B(5103)-B(5105) -! JVS(8919) = Jac_FULL(2125,5255) - JVS(8919) = B(2243) -! JVS(8920) = Jac_FULL(2126,2126) - JVS(8920) = -B(4181)-B(4182)-B(4184) -! JVS(8921) = Jac_FULL(2126,5145) - JVS(8921) = B(1398) -! JVS(8922) = Jac_FULL(2126,5250) - JVS(8922) = -B(4183)-B(4185) -! JVS(8923) = Jac_FULL(2126,5255) - JVS(8923) = B(1399) -! JVS(8924) = Jac_FULL(2127,2127) - JVS(8924) = -B(11608)-B(11609)-B(11611) -! JVS(8925) = Jac_FULL(2127,3758) - JVS(8925) = B(7856) -! JVS(8926) = Jac_FULL(2127,5250) - JVS(8926) = -B(11610)-B(11612) -! JVS(8927) = Jac_FULL(2127,5255) - JVS(8927) = B(7857) -! JVS(8928) = Jac_FULL(2128,2128) - JVS(8928) = -B(3689)-B(3691) -! JVS(8929) = Jac_FULL(2128,4870) - JVS(8929) = B(978) -! JVS(8930) = Jac_FULL(2128,5250) - JVS(8930) = -B(3690) -! JVS(8931) = Jac_FULL(2128,5252) - JVS(8931) = B(979) -! JVS(8932) = Jac_FULL(2129,2129) - JVS(8932) = -B(12321)-B(12323) -! JVS(8933) = Jac_FULL(2129,4590) - JVS(8933) = B(8654) -! JVS(8934) = Jac_FULL(2129,5250) - JVS(8934) = -B(12322) -! JVS(8935) = Jac_FULL(2130,2130) - JVS(8935) = -B(10569)-B(10570)-B(10571) -! JVS(8936) = Jac_FULL(2130,5204) - JVS(8936) = B(6802)+B(6806)+B(6811) -! JVS(8937) = Jac_FULL(2130,5252) - JVS(8937) = B(6803) -! JVS(8938) = Jac_FULL(2130,5256) - JVS(8938) = B(6807) -! JVS(8939) = Jac_FULL(2131,2131) - JVS(8939) = -B(11680)-B(11682) -! JVS(8940) = Jac_FULL(2131,4557) - JVS(8940) = B(7950) -! JVS(8941) = Jac_FULL(2131,5250) - JVS(8941) = -B(11681) -! JVS(8942) = Jac_FULL(2131,5255) - JVS(8942) = B(7951) -! JVS(8943) = Jac_FULL(2132,1612) - JVS(8943) = B(11409) -! JVS(8944) = Jac_FULL(2132,2132) - JVS(8944) = -B(11406)-B(11408) -! JVS(8945) = Jac_FULL(2132,3043) - JVS(8945) = B(11401) -! JVS(8946) = Jac_FULL(2132,4746) - JVS(8946) = B(7552) -! JVS(8947) = Jac_FULL(2132,5250) - JVS(8947) = B(11402)-B(11407)+B(11410) -! JVS(8948) = Jac_FULL(2133,2133) - JVS(8948) = -B(5181)-B(5183)-B(5185) -! JVS(8949) = Jac_FULL(2133,4608) - JVS(8949) = B(2310) -! JVS(8950) = Jac_FULL(2133,5250) - JVS(8950) = -B(5182)-B(5184) -! JVS(8951) = Jac_FULL(2133,5255) - JVS(8951) = B(2311) -! JVS(8952) = Jac_FULL(2134,1716) - JVS(8952) = B(13428) -! JVS(8953) = Jac_FULL(2134,2134) - JVS(8953) = -B(13431)-B(13433) -! JVS(8954) = Jac_FULL(2134,2900) - JVS(8954) = B(13423) -! JVS(8955) = Jac_FULL(2134,3810) - JVS(8955) = B(10211) -! JVS(8956) = Jac_FULL(2134,5250) - JVS(8956) = B(13424)+B(13429)-B(13432) -! JVS(8957) = Jac_FULL(2135,2135) - JVS(8957) = -B(5064)-B(5066)-B(5068) -! JVS(8958) = Jac_FULL(2135,5043) - JVS(8958) = B(2201) -! JVS(8959) = Jac_FULL(2135,5250) - JVS(8959) = -B(5065)-B(5067) -! JVS(8960) = Jac_FULL(2135,5255) - JVS(8960) = B(2202) -! JVS(8961) = Jac_FULL(2136,2136) - JVS(8961) = -B(23048)-B(23050) -! JVS(8962) = Jac_FULL(2136,4442) - JVS(8962) = B(22610) -! JVS(8963) = Jac_FULL(2136,5250) - JVS(8963) = -B(23049) -! JVS(8964) = Jac_FULL(2136,5252) - JVS(8964) = B(22611) -! JVS(8965) = Jac_FULL(2137,2137) - JVS(8965) = -B(10299)-B(10301)-B(10302) -! JVS(8966) = Jac_FULL(2137,4813) - JVS(8966) = B(6572) -! JVS(8967) = Jac_FULL(2137,5250) - JVS(8967) = -B(10300) -! JVS(8968) = Jac_FULL(2137,5255) - JVS(8968) = B(6573) -! JVS(8969) = Jac_FULL(2138,2138) - JVS(8969) = -B(16546) -! JVS(8970) = Jac_FULL(2138,5025) - JVS(8970) = B(13694)+B(13706) -! JVS(8971) = Jac_FULL(2138,5250) - JVS(8971) = -B(16547) -! JVS(8972) = Jac_FULL(2138,5255) - JVS(8972) = B(13695) -! JVS(8973) = Jac_FULL(2139,2139) - JVS(8973) = -B(23493)-B(23495) -! JVS(8974) = Jac_FULL(2139,4812) - JVS(8974) = B(23125) -! JVS(8975) = Jac_FULL(2139,5250) - JVS(8975) = -B(23494) -! JVS(8976) = Jac_FULL(2139,5255) - JVS(8976) = B(23126) -! JVS(8977) = Jac_FULL(2140,2140) - JVS(8977) = -B(11080)-B(11082) -! JVS(8978) = Jac_FULL(2140,4912) - JVS(8978) = B(7281) -! JVS(8979) = Jac_FULL(2140,5029) - JVS(8979) = B(11050)+B(11059) -! JVS(8980) = Jac_FULL(2140,5250) - JVS(8980) = -B(11081) -! JVS(8981) = Jac_FULL(2140,5255) - JVS(8981) = B(11051) -! JVS(8982) = Jac_FULL(2141,1615) - JVS(8982) = B(19397) -! JVS(8983) = Jac_FULL(2141,2022) - JVS(8983) = B(19389) -! JVS(8984) = Jac_FULL(2141,2141) - JVS(8984) = -B(19394)-B(19396) -! JVS(8985) = Jac_FULL(2141,4135) - JVS(8985) = B(17160) -! JVS(8986) = Jac_FULL(2141,5250) - JVS(8986) = B(19390)-B(19395)+B(19398) -! JVS(8987) = Jac_FULL(2141,5255) - JVS(8987) = 0 -! JVS(8988) = Jac_FULL(2142,2142) - JVS(8988) = -B(23760)-B(23762) -! JVS(8989) = Jac_FULL(2142,4220) - JVS(8989) = B(23544) -! JVS(8990) = Jac_FULL(2142,5250) - JVS(8990) = -B(23761) -! JVS(8991) = Jac_FULL(2142,5255) - JVS(8991) = B(23545) -! JVS(8992) = Jac_FULL(2143,2143) - JVS(8992) = -B(16934)-B(16936) -! JVS(8993) = Jac_FULL(2143,3307) - JVS(8993) = B(16931) -! JVS(8994) = Jac_FULL(2143,4257) - JVS(8994) = B(14308) -! JVS(8995) = Jac_FULL(2143,5250) - JVS(8995) = B(16932)-B(16935) -! JVS(8996) = Jac_FULL(2143,5255) - JVS(8996) = B(14309) -! JVS(8997) = Jac_FULL(2144,2144) - JVS(8997) = -B(17407)-B(17408) -! JVS(8998) = Jac_FULL(2144,4260) - JVS(8998) = B(14850) -! JVS(8999) = Jac_FULL(2144,5250) - JVS(8999) = -B(17409) -! JVS(9000) = Jac_FULL(2144,5255) - JVS(9000) = B(14851) -! JVS(9001) = Jac_FULL(2145,2145) - JVS(9001) = -B(19554) -! JVS(9002) = Jac_FULL(2145,2797) - JVS(9002) = B(19553) -! JVS(9003) = Jac_FULL(2145,3992) - JVS(9003) = B(17441)+B(17443)+B(17445) -! JVS(9004) = Jac_FULL(2145,5252) - JVS(9004) = B(17442) -! JVS(9005) = Jac_FULL(2145,5256) - JVS(9005) = B(17444) -! JVS(9006) = Jac_FULL(2146,2146) - JVS(9006) = -B(14395)-B(14397) -! JVS(9007) = Jac_FULL(2146,4301) - JVS(9007) = B(11175) -! JVS(9008) = Jac_FULL(2146,5250) - JVS(9008) = -B(14396) -! JVS(9009) = Jac_FULL(2146,5255) - JVS(9009) = B(11176) -! JVS(9010) = Jac_FULL(2147,2147) - JVS(9010) = -B(13600)-B(13601)-B(13603) -! JVS(9011) = Jac_FULL(2147,5015) - JVS(9011) = B(10415) -! JVS(9012) = Jac_FULL(2147,5250) - JVS(9012) = -B(13602)-B(13604) -! JVS(9013) = Jac_FULL(2147,5255) - JVS(9013) = B(10416) -! JVS(9014) = Jac_FULL(2148,2148) - JVS(9014) = -B(5820)-B(5821)-B(5822)-B(5823) -! JVS(9015) = Jac_FULL(2148,4094) - JVS(9015) = B(2627) -! JVS(9016) = Jac_FULL(2148,5258) - JVS(9016) = B(2628) -! JVS(9017) = Jac_FULL(2149,2149) - JVS(9017) = -B(4509)-B(4510) -! JVS(9018) = Jac_FULL(2149,5186) - JVS(9018) = B(1729) -! JVS(9019) = Jac_FULL(2149,5250) - JVS(9019) = -B(4511) -! JVS(9020) = Jac_FULL(2149,5252) - JVS(9020) = B(1730) -! JVS(9021) = Jac_FULL(2150,2150) - JVS(9021) = -B(12170)-B(12172) -! JVS(9022) = Jac_FULL(2150,5152) - JVS(9022) = B(8429) -! JVS(9023) = Jac_FULL(2150,5250) - JVS(9023) = -B(12171) -! JVS(9024) = Jac_FULL(2150,5255) - JVS(9024) = B(8430) -! JVS(9025) = Jac_FULL(2151,2151) - JVS(9025) = -B(20710)-B(20712) -! JVS(9026) = Jac_FULL(2151,4290) - JVS(9026) = B(19127) -! JVS(9027) = Jac_FULL(2151,5250) - JVS(9027) = -B(20711) -! JVS(9028) = Jac_FULL(2151,5255) - JVS(9028) = B(19128) -! JVS(9029) = Jac_FULL(2152,2152) - JVS(9029) = -B(15630)-B(15632) -! JVS(9030) = Jac_FULL(2152,4440) - JVS(9030) = B(12539) -! JVS(9031) = Jac_FULL(2152,5250) - JVS(9031) = -B(15631) -! JVS(9032) = Jac_FULL(2152,5255) - JVS(9032) = B(12540) -! JVS(9033) = Jac_FULL(2153,2153) - JVS(9033) = -B(23894)-B(23896)-B(23898) -! JVS(9034) = Jac_FULL(2153,4477) - JVS(9034) = B(23744) -! JVS(9035) = Jac_FULL(2153,5250) - JVS(9035) = -B(23895)-B(23897) -! JVS(9036) = Jac_FULL(2153,5255) - JVS(9036) = B(23745) -! JVS(9037) = Jac_FULL(2154,377) - JVS(9037) = B(19503) -! JVS(9038) = Jac_FULL(2154,1868) - JVS(9038) = B(19496) -! JVS(9039) = Jac_FULL(2154,2154) - JVS(9039) = -B(19500)-B(19502) -! JVS(9040) = Jac_FULL(2154,4176) - JVS(9040) = B(17336) -! JVS(9041) = Jac_FULL(2154,5250) - JVS(9041) = B(19497)-B(19501)+B(19504) -! JVS(9042) = Jac_FULL(2154,5255) - JVS(9042) = 0 -! JVS(9043) = Jac_FULL(2155,2155) - JVS(9043) = -B(19312)-B(19314) -! JVS(9044) = Jac_FULL(2155,4197) - JVS(9044) = B(17088) -! JVS(9045) = Jac_FULL(2155,5250) - JVS(9045) = -B(19313) -! JVS(9046) = Jac_FULL(2155,5252) - JVS(9046) = B(17089) -! JVS(9047) = Jac_FULL(2156,2156) - JVS(9047) = -B(13911)-B(13913)-B(13915) -! JVS(9048) = Jac_FULL(2156,4060) - JVS(9048) = B(10720) -! JVS(9049) = Jac_FULL(2156,5250) - JVS(9049) = -B(13912)-B(13914) -! JVS(9050) = Jac_FULL(2156,5255) - JVS(9050) = B(10721) -! JVS(9051) = Jac_FULL(2157,2157) - JVS(9051) = -B(22039)-B(22041) -! JVS(9052) = Jac_FULL(2157,3789) - JVS(9052) = B(20998) -! JVS(9053) = Jac_FULL(2157,5250) - JVS(9053) = -B(22040) -! JVS(9054) = Jac_FULL(2157,5252) - JVS(9054) = B(20999) -! JVS(9055) = Jac_FULL(2158,2158) - JVS(9055) = -B(4999) -! JVS(9056) = Jac_FULL(2158,3266) - JVS(9056) = B(4998) -! JVS(9057) = Jac_FULL(2158,4476) - JVS(9057) = B(2153)+B(2155)+B(2159) -! JVS(9058) = Jac_FULL(2158,5252) - JVS(9058) = B(2154) -! JVS(9059) = Jac_FULL(2158,5256) - JVS(9059) = B(2156) -! JVS(9060) = Jac_FULL(2159,2159) - JVS(9060) = -B(22796)-B(22798) -! JVS(9061) = Jac_FULL(2159,4214) - JVS(9061) = B(22254) -! JVS(9062) = Jac_FULL(2159,5250) - JVS(9062) = -B(22797) -! JVS(9063) = Jac_FULL(2159,5255) - JVS(9063) = B(22255) -! JVS(9064) = Jac_FULL(2160,2160) - JVS(9064) = -B(7574)-B(7576) -! JVS(9065) = Jac_FULL(2160,3963) - JVS(9065) = B(3609) -! JVS(9066) = Jac_FULL(2160,5250) - JVS(9066) = -B(7575) -! JVS(9067) = Jac_FULL(2160,5255) - JVS(9067) = B(3610) -! JVS(9068) = Jac_FULL(2161,2161) - JVS(9068) = -B(4743)-B(4744) -! JVS(9069) = Jac_FULL(2161,5144) - JVS(9069) = B(1922) -! JVS(9070) = Jac_FULL(2161,5250) - JVS(9070) = -B(4745) -! JVS(9071) = Jac_FULL(2161,5252) - JVS(9071) = B(1923) -! JVS(9072) = Jac_FULL(2162,2162) - JVS(9072) = -B(13865) -! JVS(9073) = Jac_FULL(2162,3552) - JVS(9073) = B(13850) -! JVS(9074) = Jac_FULL(2162,5173) - JVS(9074) = B(10632)+B(10634)+B(10636) -! JVS(9075) = Jac_FULL(2162,5252) - JVS(9075) = B(10633) -! JVS(9076) = Jac_FULL(2162,5256) - JVS(9076) = B(10635) -! JVS(9077) = Jac_FULL(2163,1217) - JVS(9077) = B(14173) -! JVS(9078) = Jac_FULL(2163,2163) - JVS(9078) = -B(8498) -! JVS(9079) = Jac_FULL(2163,3399) - JVS(9079) = B(4923) -! JVS(9080) = Jac_FULL(2163,4318) - JVS(9080) = B(10977)+B(10979)+B(10981) -! JVS(9081) = Jac_FULL(2163,5250) - JVS(9081) = 0 -! JVS(9082) = Jac_FULL(2163,5252) - JVS(9082) = B(10978) -! JVS(9083) = Jac_FULL(2163,5255) - JVS(9083) = 0 -! JVS(9084) = Jac_FULL(2163,5256) - JVS(9084) = B(10980) -! JVS(9085) = Jac_FULL(2164,2164) - JVS(9085) = -B(23114)-B(23116) -! JVS(9086) = Jac_FULL(2164,4672) - JVS(9086) = B(22664) -! JVS(9087) = Jac_FULL(2164,5250) - JVS(9087) = -B(23115) -! JVS(9088) = Jac_FULL(2164,5252) - JVS(9088) = B(22665) -! JVS(9089) = Jac_FULL(2165,2165) - JVS(9089) = -B(17238)-B(17240) -! JVS(9090) = Jac_FULL(2165,4940) - JVS(9090) = B(14614) -! JVS(9091) = Jac_FULL(2165,5250) - JVS(9091) = -B(17239) -! JVS(9092) = Jac_FULL(2165,5252) - JVS(9092) = B(14615) -! JVS(9093) = Jac_FULL(2166,2166) - JVS(9093) = -B(12314)-B(12316) -! JVS(9094) = Jac_FULL(2166,4590) - JVS(9094) = B(8646) -! JVS(9095) = Jac_FULL(2166,5250) - JVS(9095) = -B(12315) -! JVS(9096) = Jac_FULL(2166,5255) - JVS(9096) = B(8647) -! JVS(9097) = Jac_FULL(2167,2167) - JVS(9097) = -B(12752)-B(12754) -! JVS(9098) = Jac_FULL(2167,4012) - JVS(9098) = B(9242) -! JVS(9099) = Jac_FULL(2167,5250) - JVS(9099) = -B(12755) -! JVS(9100) = Jac_FULL(2167,5256) - JVS(9100) = -B(12753) -! JVS(9101) = Jac_FULL(2168,2168) - JVS(9101) = -B(4521)-B(4522) -! JVS(9102) = Jac_FULL(2168,4733) - JVS(9102) = B(1740) -! JVS(9103) = Jac_FULL(2168,5250) - JVS(9103) = -B(4523) -! JVS(9104) = Jac_FULL(2168,5252) - JVS(9104) = B(1741) -! JVS(9105) = Jac_FULL(2169,2169) - JVS(9105) = -B(4632)-B(4633) -! JVS(9106) = Jac_FULL(2169,5082) - JVS(9106) = B(1826) -! JVS(9107) = Jac_FULL(2169,5250) - JVS(9107) = -B(4634) -! JVS(9108) = Jac_FULL(2169,5252) - JVS(9108) = B(1827) -! JVS(9109) = Jac_FULL(2170,2170) - JVS(9109) = -B(11405) -! JVS(9110) = Jac_FULL(2170,3043) - JVS(9110) = B(11403) -! JVS(9111) = Jac_FULL(2170,4746) - JVS(9111) = B(7548)+B(7550)+B(7553) -! JVS(9112) = Jac_FULL(2170,5252) - JVS(9112) = B(7549) -! JVS(9113) = Jac_FULL(2170,5256) - JVS(9113) = B(7551) -! JVS(9114) = Jac_FULL(2171,2171) - JVS(9114) = -B(21406)-B(21408) -! JVS(9115) = Jac_FULL(2171,4404) - JVS(9115) = B(20089) -! JVS(9116) = Jac_FULL(2171,5250) - JVS(9116) = -B(21407) -! JVS(9117) = Jac_FULL(2171,5255) - JVS(9117) = B(20090) -! JVS(9118) = Jac_FULL(2172,2172) - JVS(9118) = -B(11696)-B(11697) -! JVS(9119) = Jac_FULL(2172,3932) - JVS(9119) = B(7976) -! JVS(9120) = Jac_FULL(2172,5250) - JVS(9120) = -B(11698) -! JVS(9121) = Jac_FULL(2172,5252) - JVS(9121) = B(7977) -! JVS(9122) = Jac_FULL(2173,831) - JVS(9122) = B(11693) -! JVS(9123) = Jac_FULL(2173,2172) - JVS(9123) = B(11696) -! JVS(9124) = Jac_FULL(2173,2173) - JVS(9124) = -B(11699) -! JVS(9125) = Jac_FULL(2173,3932) - JVS(9125) = B(7978)+B(7980)+B(7983) -! JVS(9126) = Jac_FULL(2173,5250) - JVS(9126) = 0 -! JVS(9127) = Jac_FULL(2173,5252) - JVS(9127) = B(7979) -! JVS(9128) = Jac_FULL(2173,5255) - JVS(9128) = 0 -! JVS(9129) = Jac_FULL(2173,5256) - JVS(9129) = B(7981) -! JVS(9130) = Jac_FULL(2174,2174) - JVS(9130) = -B(7243)-B(7245)-B(7247) -! JVS(9131) = Jac_FULL(2174,4925) - JVS(9131) = B(3415) -! JVS(9132) = Jac_FULL(2174,5250) - JVS(9132) = -B(7244)-B(7246) -! JVS(9133) = Jac_FULL(2174,5255) - JVS(9133) = B(3416) -! JVS(9134) = Jac_FULL(2175,2175) - JVS(9134) = -B(8912)-B(8914) -! JVS(9135) = Jac_FULL(2175,3435) - JVS(9135) = B(5401) -! JVS(9136) = Jac_FULL(2175,3445) - JVS(9136) = B(6197) -! JVS(9137) = Jac_FULL(2175,5250) - JVS(9137) = B(5402)+B(6198)-B(8913) -! JVS(9138) = Jac_FULL(2176,2176) - JVS(9138) = -B(12221)-B(12223) -! JVS(9139) = Jac_FULL(2176,4470) - JVS(9139) = B(8503) -! JVS(9140) = Jac_FULL(2176,5250) - JVS(9140) = -B(12222) -! JVS(9141) = Jac_FULL(2176,5255) - JVS(9141) = B(8504) -! JVS(9142) = Jac_FULL(2177,2177) - JVS(9142) = -B(12590)-B(12592) -! JVS(9143) = Jac_FULL(2177,3199) - JVS(9143) = B(13057) -! JVS(9144) = Jac_FULL(2177,4376) - JVS(9144) = B(8999) -! JVS(9145) = Jac_FULL(2177,5250) - JVS(9145) = -B(12591)+B(13058) -! JVS(9146) = Jac_FULL(2177,5255) - JVS(9146) = B(9000) -! JVS(9147) = Jac_FULL(2178,2178) - JVS(9147) = -B(7566)-B(7568) -! JVS(9148) = Jac_FULL(2178,3971) - JVS(9148) = B(3599) -! JVS(9149) = Jac_FULL(2178,5250) - JVS(9149) = -B(7567) -! JVS(9150) = Jac_FULL(2178,5255) - JVS(9150) = B(3600) -! JVS(9151) = Jac_FULL(2179,2179) - JVS(9151) = -B(4926)-B(4928)-B(4930) -! JVS(9152) = Jac_FULL(2179,4972) - JVS(9152) = B(2092) -! JVS(9153) = Jac_FULL(2179,5250) - JVS(9153) = -B(4927)-B(4929) -! JVS(9154) = Jac_FULL(2179,5255) - JVS(9154) = B(2093) -! JVS(9155) = Jac_FULL(2180,2180) - JVS(9155) = -B(7474)-B(7476) -! JVS(9156) = Jac_FULL(2180,3891) - JVS(9156) = B(3564) -! JVS(9157) = Jac_FULL(2180,5250) - JVS(9157) = -B(7475) -! JVS(9158) = Jac_FULL(2180,5255) - JVS(9158) = B(3565) -! JVS(9159) = Jac_FULL(2181,2181) - JVS(9159) = -B(7250) -! JVS(9160) = Jac_FULL(2181,3921) - JVS(9160) = B(3430) -! JVS(9161) = Jac_FULL(2181,4925) - JVS(9161) = B(3421) -! JVS(9162) = Jac_FULL(2181,5250) - JVS(9162) = -B(7251) -! JVS(9163) = Jac_FULL(2181,5252) - JVS(9163) = B(3431) -! JVS(9164) = Jac_FULL(2182,2182) - JVS(9164) = -B(11855)-B(11856) -! JVS(9165) = Jac_FULL(2182,3778) - JVS(9165) = B(8116) -! JVS(9166) = Jac_FULL(2182,5250) - JVS(9166) = -B(11857) -! JVS(9167) = Jac_FULL(2182,5252) - JVS(9167) = B(8117) -! JVS(9168) = Jac_FULL(2183,2183) - JVS(9168) = -B(21568)-B(21570) -! JVS(9169) = Jac_FULL(2183,4753) - JVS(9169) = B(20352) -! JVS(9170) = Jac_FULL(2183,5250) - JVS(9170) = -B(21569) -! JVS(9171) = Jac_FULL(2183,5255) - JVS(9171) = B(20353) -! JVS(9172) = Jac_FULL(2184,2184) - JVS(9172) = -B(7478) -! JVS(9173) = Jac_FULL(2184,3891) - JVS(9173) = B(3570) -! JVS(9174) = Jac_FULL(2184,3963) - JVS(9174) = B(3611) -! JVS(9175) = Jac_FULL(2184,5250) - JVS(9175) = -B(7479) -! JVS(9176) = Jac_FULL(2184,5252) - JVS(9176) = B(3612) -! JVS(9177) = Jac_FULL(2185,2185) - JVS(9177) = -B(17871)-B(17872) -! JVS(9178) = Jac_FULL(2185,4716) - JVS(9178) = B(15279) -! JVS(9179) = Jac_FULL(2185,5250) - JVS(9179) = -B(17873) -! JVS(9180) = Jac_FULL(2185,5252) - JVS(9180) = B(15280) -! JVS(9181) = Jac_FULL(2186,2186) - JVS(9181) = -B(14216)-B(14217) -! JVS(9182) = Jac_FULL(2186,3055) - JVS(9182) = B(14215) -! JVS(9183) = Jac_FULL(2186,4765) - JVS(9183) = B(11023)+B(11025)+B(11027) -! JVS(9184) = Jac_FULL(2186,5252) - JVS(9184) = B(11024) -! JVS(9185) = Jac_FULL(2186,5256) - JVS(9185) = B(11026) -! JVS(9186) = Jac_FULL(2187,2187) - JVS(9186) = -B(13925)-B(13927)-B(13929) -! JVS(9187) = Jac_FULL(2187,3676) - JVS(9187) = B(10731) -! JVS(9188) = Jac_FULL(2187,5250) - JVS(9188) = -B(13926)-B(13928) -! JVS(9189) = Jac_FULL(2187,5255) - JVS(9189) = B(10732) -! JVS(9190) = Jac_FULL(2188,2188) - JVS(9190) = -B(4106)-B(4107)-B(4109) -! JVS(9191) = Jac_FULL(2188,5142) - JVS(9191) = B(1318) -! JVS(9192) = Jac_FULL(2188,5250) - JVS(9192) = -B(4108)-B(4110) -! JVS(9193) = Jac_FULL(2188,5255) - JVS(9193) = B(1319) -! JVS(9194) = Jac_FULL(2189,2189) - JVS(9194) = -B(11769)-B(11770) -! JVS(9195) = Jac_FULL(2189,3718) - JVS(9195) = B(8042) -! JVS(9196) = Jac_FULL(2189,5250) - JVS(9196) = -B(11771) -! JVS(9197) = Jac_FULL(2189,5252) - JVS(9197) = B(8043) -! JVS(9198) = Jac_FULL(2190,1212) - JVS(9198) = B(14087) -! JVS(9199) = Jac_FULL(2190,1621) - JVS(9199) = B(12297) -! JVS(9200) = Jac_FULL(2190,2190) - JVS(9200) = -B(14088) -! JVS(9201) = Jac_FULL(2190,3926) - JVS(9201) = B(10889)+B(10891)+B(10893) -! JVS(9202) = Jac_FULL(2190,4804) - JVS(9202) = 0 -! JVS(9203) = Jac_FULL(2190,5250) - JVS(9203) = 0 -! JVS(9204) = Jac_FULL(2190,5252) - JVS(9204) = B(10890) -! JVS(9205) = Jac_FULL(2190,5255) - JVS(9205) = 0 -! JVS(9206) = Jac_FULL(2190,5256) - JVS(9206) = B(10892) -! JVS(9207) = Jac_FULL(2191,2191) - JVS(9207) = -B(13617) -! JVS(9208) = Jac_FULL(2191,4436) - JVS(9208) = B(10426)+B(10438) -! JVS(9209) = Jac_FULL(2191,5250) - JVS(9209) = -B(13618) -! JVS(9210) = Jac_FULL(2191,5255) - JVS(9210) = B(10427) -! JVS(9211) = Jac_FULL(2192,2192) - JVS(9211) = -B(4643)-B(4644)-B(4646) -! JVS(9212) = Jac_FULL(2192,5077) - JVS(9212) = B(1835) -! JVS(9213) = Jac_FULL(2192,5250) - JVS(9213) = -B(4645)-B(4647) -! JVS(9214) = Jac_FULL(2192,5255) - JVS(9214) = B(1836) -! JVS(9215) = Jac_FULL(2193,2193) - JVS(9215) = -B(4450)-B(4451) -! JVS(9216) = Jac_FULL(2193,4901) - JVS(9216) = B(1675) -! JVS(9217) = Jac_FULL(2193,5250) - JVS(9217) = -B(4452) -! JVS(9218) = Jac_FULL(2193,5252) - JVS(9218) = B(1676) -! JVS(9219) = Jac_FULL(2194,2194) - JVS(9219) = -B(4549)-B(4550) -! JVS(9220) = Jac_FULL(2194,4571) - JVS(9220) = B(1762) -! JVS(9221) = Jac_FULL(2194,5250) - JVS(9221) = -B(4551) -! JVS(9222) = Jac_FULL(2194,5252) - JVS(9222) = B(1763) -! JVS(9223) = Jac_FULL(2195,2195) - JVS(9223) = -B(22071)-B(22073) -! JVS(9224) = Jac_FULL(2195,4748) - JVS(9224) = B(21050) -! JVS(9225) = Jac_FULL(2195,5250) - JVS(9225) = -B(22072) -! JVS(9226) = Jac_FULL(2195,5252) - JVS(9226) = B(21051) -! JVS(9227) = Jac_FULL(2196,2196) - JVS(9227) = -B(4430)-B(4432) -! JVS(9228) = Jac_FULL(2196,4876) - JVS(9228) = B(1653) -! JVS(9229) = Jac_FULL(2196,5250) - JVS(9229) = -B(4431) -! JVS(9230) = Jac_FULL(2196,5252) - JVS(9230) = B(1654) -! JVS(9231) = Jac_FULL(2197,1191) - JVS(9231) = B(17692) -! JVS(9232) = Jac_FULL(2197,2197) - JVS(9232) = -B(17698)-B(17699) -! JVS(9233) = Jac_FULL(2197,4697) - JVS(9233) = B(15127) -! JVS(9234) = Jac_FULL(2197,5250) - JVS(9234) = B(17693)-B(17700) -! JVS(9235) = Jac_FULL(2197,5255) - JVS(9235) = 0 -! JVS(9236) = Jac_FULL(2198,2198) - JVS(9236) = -B(3792)-B(3793) -! JVS(9237) = Jac_FULL(2198,4310) - JVS(9237) = B(1061) -! JVS(9238) = Jac_FULL(2198,5250) - JVS(9238) = -B(3794) -! JVS(9239) = Jac_FULL(2198,5252) - JVS(9239) = B(1062) -! JVS(9240) = Jac_FULL(2199,2199) - JVS(9240) = -B(4620)-B(4621) -! JVS(9241) = Jac_FULL(2199,5045) - JVS(9241) = B(1815) -! JVS(9242) = Jac_FULL(2199,5250) - JVS(9242) = -B(4622) -! JVS(9243) = Jac_FULL(2199,5252) - JVS(9243) = B(1816) -! JVS(9244) = Jac_FULL(2200,2200) - JVS(9244) = -B(8734) -! JVS(9245) = Jac_FULL(2200,3022) - JVS(9245) = B(8732) -! JVS(9246) = Jac_FULL(2200,4513) - JVS(9246) = B(5251)+B(5253)+B(5256) -! JVS(9247) = Jac_FULL(2200,5252) - JVS(9247) = B(5252) -! JVS(9248) = Jac_FULL(2200,5256) - JVS(9248) = B(5254) -! JVS(9249) = Jac_FULL(2201,2201) - JVS(9249) = -B(22166) -! JVS(9250) = Jac_FULL(2201,2930) - JVS(9250) = B(22162) -! JVS(9251) = Jac_FULL(2201,4138) - JVS(9251) = B(21176)+B(21178)+B(21180) -! JVS(9252) = Jac_FULL(2201,5252) - JVS(9252) = B(21177) -! JVS(9253) = Jac_FULL(2201,5256) - JVS(9253) = B(21179) -! JVS(9254) = Jac_FULL(2202,2202) - JVS(9254) = -B(12058)-B(12059) -! JVS(9255) = Jac_FULL(2202,3688) - JVS(9255) = B(8315) -! JVS(9256) = Jac_FULL(2202,5250) - JVS(9256) = -B(12060) -! JVS(9257) = Jac_FULL(2202,5252) - JVS(9257) = B(8316) -! JVS(9258) = Jac_FULL(2203,2203) - JVS(9258) = -B(21191) -! JVS(9259) = Jac_FULL(2203,2723) - JVS(9259) = B(21187) -! JVS(9260) = Jac_FULL(2203,4235) - JVS(9260) = B(19689)+B(19691)+B(19693) -! JVS(9261) = Jac_FULL(2203,5252) - JVS(9261) = B(19690) -! JVS(9262) = Jac_FULL(2203,5256) - JVS(9262) = B(19692) -! JVS(9263) = Jac_FULL(2204,2204) - JVS(9263) = -B(12860)-B(12862) -! JVS(9264) = Jac_FULL(2204,4030) - JVS(9264) = B(9371) -! JVS(9265) = Jac_FULL(2204,5250) - JVS(9265) = -B(12861) -! JVS(9266) = Jac_FULL(2204,5255) - JVS(9266) = B(9372) -! JVS(9267) = Jac_FULL(2205,2205) - JVS(9267) = -B(18020)-B(18021) -! JVS(9268) = Jac_FULL(2205,3880) - JVS(9268) = B(15396) -! JVS(9269) = Jac_FULL(2205,5250) - JVS(9269) = -B(18022) -! JVS(9270) = Jac_FULL(2205,5255) - JVS(9270) = B(15397) -! JVS(9271) = Jac_FULL(2206,2206) - JVS(9271) = -B(12126)-B(12127) -! JVS(9272) = Jac_FULL(2206,3690) - JVS(9272) = B(8380) -! JVS(9273) = Jac_FULL(2206,5250) - JVS(9273) = -B(12128) -! JVS(9274) = Jac_FULL(2206,5252) - JVS(9274) = B(8381) -! JVS(9275) = Jac_FULL(2207,79) - JVS(9275) = B(17003) -! JVS(9276) = Jac_FULL(2207,1266) - JVS(9276) = B(16998) -! JVS(9277) = Jac_FULL(2207,2207) - JVS(9277) = -B(17002) -! JVS(9278) = Jac_FULL(2207,2943) - JVS(9278) = B(17001) -! JVS(9279) = Jac_FULL(2207,3981) - JVS(9279) = B(14378)+B(14380)+B(14382) -! JVS(9280) = Jac_FULL(2207,5250) - JVS(9280) = B(17004) -! JVS(9281) = Jac_FULL(2207,5252) - JVS(9281) = B(14379) -! JVS(9282) = Jac_FULL(2207,5255) - JVS(9282) = 0 -! JVS(9283) = Jac_FULL(2207,5256) - JVS(9283) = B(14381) -! JVS(9284) = Jac_FULL(2208,2208) - JVS(9284) = -B(11493)-B(11495) -! JVS(9285) = Jac_FULL(2208,4206) - JVS(9285) = B(7691) -! JVS(9286) = Jac_FULL(2208,5250) - JVS(9286) = -B(11494) -! JVS(9287) = Jac_FULL(2208,5255) - JVS(9287) = B(7692) -! JVS(9288) = Jac_FULL(2209,482) - JVS(9288) = B(23682) -! JVS(9289) = Jac_FULL(2209,1019) - JVS(9289) = B(23675) -! JVS(9290) = Jac_FULL(2209,2209) - JVS(9290) = -B(23679)-B(23681) -! JVS(9291) = Jac_FULL(2209,4120) - JVS(9291) = B(23414) -! JVS(9292) = Jac_FULL(2209,5250) - JVS(9292) = B(23676)-B(23680)+B(23683) -! JVS(9293) = Jac_FULL(2209,5255) - JVS(9293) = 0 -! JVS(9294) = Jac_FULL(2210,2210) - JVS(9294) = -B(22135) -! JVS(9295) = Jac_FULL(2210,2975) - JVS(9295) = B(22134) -! JVS(9296) = Jac_FULL(2210,4648) - JVS(9296) = B(21119)+B(21121)+B(21123) -! JVS(9297) = Jac_FULL(2210,5252) - JVS(9297) = B(21120) -! JVS(9298) = Jac_FULL(2210,5256) - JVS(9298) = B(21122) -! JVS(9299) = Jac_FULL(2211,2211) - JVS(9299) = -B(7774)-B(7775) -! JVS(9300) = Jac_FULL(2211,5243) - JVS(9300) = B(4041) -! JVS(9301) = Jac_FULL(2211,5250) - JVS(9301) = -B(7776) -! JVS(9302) = Jac_FULL(2211,5255) - JVS(9302) = B(4042) -! JVS(9303) = Jac_FULL(2212,2212) - JVS(9303) = -B(2197)-B(2198)-B(2199)-B(2200) -! JVS(9304) = Jac_FULL(2212,4508) - JVS(9304) = B(531) -! JVS(9305) = Jac_FULL(2212,5258) - JVS(9305) = B(532) -! JVS(9306) = Jac_FULL(2213,2213) - JVS(9306) = -B(7173)-B(7175) -! JVS(9307) = Jac_FULL(2213,4356) - JVS(9307) = B(3357) -! JVS(9308) = Jac_FULL(2213,5250) - JVS(9308) = -B(7174) -! JVS(9309) = Jac_FULL(2213,5252) - JVS(9309) = B(3358) -! JVS(9310) = Jac_FULL(2214,2214) - JVS(9310) = -B(23533)-B(23535) -! JVS(9311) = Jac_FULL(2214,4137) - JVS(9311) = B(23202) -! JVS(9312) = Jac_FULL(2214,5250) - JVS(9312) = -B(23534) -! JVS(9313) = Jac_FULL(2214,5255) - JVS(9313) = B(23203) -! JVS(9314) = Jac_FULL(2215,2215) - JVS(9314) = -B(7226)-B(7228) -! JVS(9315) = Jac_FULL(2215,5081) - JVS(9315) = B(3398) -! JVS(9316) = Jac_FULL(2215,5250) - JVS(9316) = -B(7227) -! JVS(9317) = Jac_FULL(2215,5252) - JVS(9317) = B(3399) -! JVS(9318) = Jac_FULL(2216,2216) - JVS(9318) = -B(4755)-B(4756) -! JVS(9319) = Jac_FULL(2216,5112) - JVS(9319) = B(1933) -! JVS(9320) = Jac_FULL(2216,5250) - JVS(9320) = -B(4757) -! JVS(9321) = Jac_FULL(2216,5252) - JVS(9321) = B(1934) -! JVS(9322) = Jac_FULL(2217,2217) - JVS(9322) = -B(22307)-B(22309) -! JVS(9323) = Jac_FULL(2217,3984) - JVS(9323) = B(21676) -! JVS(9324) = Jac_FULL(2217,5250) - JVS(9324) = -B(22308) -! JVS(9325) = Jac_FULL(2217,5255) - JVS(9325) = B(21677) -! JVS(9326) = Jac_FULL(2218,2218) - JVS(9326) = -B(11975)-B(11976) -! JVS(9327) = Jac_FULL(2218,3667) - JVS(9327) = B(8226) -! JVS(9328) = Jac_FULL(2218,5250) - JVS(9328) = -B(11977) -! JVS(9329) = Jac_FULL(2218,5252) - JVS(9329) = B(8227) -! JVS(9330) = Jac_FULL(2219,2219) - JVS(9330) = -B(7754)-B(7756) -! JVS(9331) = Jac_FULL(2219,4924) - JVS(9331) = B(3998) -! JVS(9332) = Jac_FULL(2219,5250) - JVS(9332) = -B(7755) -! JVS(9333) = Jac_FULL(2219,5255) - JVS(9333) = B(3999) -! JVS(9334) = Jac_FULL(2220,2220) - JVS(9334) = -B(3901)-B(3902) -! JVS(9335) = Jac_FULL(2220,5116) - JVS(9335) = B(1142) -! JVS(9336) = Jac_FULL(2220,5250) - JVS(9336) = -B(3903) -! JVS(9337) = Jac_FULL(2220,5252) - JVS(9337) = B(1143) -! JVS(9338) = Jac_FULL(2221,2221) - JVS(9338) = -B(19853)-B(19854)-B(19855) -! JVS(9339) = Jac_FULL(2221,4355) - JVS(9339) = B(18011) -! JVS(9340) = Jac_FULL(2221,5250) - JVS(9340) = -B(19856) -! JVS(9341) = Jac_FULL(2221,5255) - JVS(9341) = B(18012) -! JVS(9342) = Jac_FULL(2222,2222) - JVS(9342) = -B(6613) -! JVS(9343) = Jac_FULL(2222,3636) - JVS(9343) = B(3035) -! JVS(9344) = Jac_FULL(2222,4372) - JVS(9344) = B(3081) -! JVS(9345) = Jac_FULL(2222,5250) - JVS(9345) = -B(6614) -! JVS(9346) = Jac_FULL(2222,5252) - JVS(9346) = B(3082) -! JVS(9347) = Jac_FULL(2223,2223) - JVS(9347) = -B(4445)-B(4446)-B(4448) -! JVS(9348) = Jac_FULL(2223,4901) - JVS(9348) = B(1673) -! JVS(9349) = Jac_FULL(2223,5250) - JVS(9349) = -B(4447)-B(4449) -! JVS(9350) = Jac_FULL(2223,5255) - JVS(9350) = B(1674) -! JVS(9351) = Jac_FULL(2224,2224) - JVS(9351) = -B(23020)-B(23022) -! JVS(9352) = Jac_FULL(2224,3908) - JVS(9352) = B(22585) -! JVS(9353) = Jac_FULL(2224,5250) - JVS(9353) = -B(23021) -! JVS(9354) = Jac_FULL(2224,5252) - JVS(9354) = B(22586) -! JVS(9355) = Jac_FULL(2225,2225) - JVS(9355) = -B(13166)-B(13168) -! JVS(9356) = Jac_FULL(2225,3318) - JVS(9356) = B(13163) -! JVS(9357) = Jac_FULL(2225,4000) - JVS(9357) = B(9717) -! JVS(9358) = Jac_FULL(2225,5250) - JVS(9358) = B(13164)-B(13167) -! JVS(9359) = Jac_FULL(2225,5255) - JVS(9359) = B(9718) -! JVS(9360) = Jac_FULL(2226,1505) - JVS(9360) = B(23956) -! JVS(9361) = Jac_FULL(2226,2226) - JVS(9361) = -B(23960) -! JVS(9362) = Jac_FULL(2226,2855) - JVS(9362) = B(23959) -! JVS(9363) = Jac_FULL(2226,3882) - JVS(9363) = B(23870)+B(23872)+B(23875) -! JVS(9364) = Jac_FULL(2226,5250) - JVS(9364) = 0 -! JVS(9365) = Jac_FULL(2226,5252) - JVS(9365) = B(23871) -! JVS(9366) = Jac_FULL(2226,5255) - JVS(9366) = 0 -! JVS(9367) = Jac_FULL(2226,5256) - JVS(9367) = B(23873) -! JVS(9368) = Jac_FULL(2227,2227) - JVS(9368) = -B(4404)-B(4406)-B(4408) -! JVS(9369) = Jac_FULL(2227,5163) - JVS(9369) = B(1629) -! JVS(9370) = Jac_FULL(2227,5250) - JVS(9370) = -B(4405)-B(4407) -! JVS(9371) = Jac_FULL(2227,5255) - JVS(9371) = B(1630) -! JVS(9372) = Jac_FULL(2228,2228) - JVS(9372) = -B(20122)-B(20124) -! JVS(9373) = Jac_FULL(2228,4502) - JVS(9373) = B(18394) -! JVS(9374) = Jac_FULL(2228,5250) - JVS(9374) = -B(20123) -! JVS(9375) = Jac_FULL(2228,5255) - JVS(9375) = B(18395) -! JVS(9376) = Jac_FULL(2229,2229) - JVS(9376) = -B(3668) -! JVS(9377) = Jac_FULL(2229,3277) - JVS(9377) = B(3667) -! JVS(9378) = Jac_FULL(2229,5202) - JVS(9378) = B(956)+B(960)+B(963) -! JVS(9379) = Jac_FULL(2229,5252) - JVS(9379) = B(957) -! JVS(9380) = Jac_FULL(2229,5256) - JVS(9380) = B(961) -! JVS(9381) = Jac_FULL(2230,226) - JVS(9381) = B(16716) -! JVS(9382) = Jac_FULL(2230,2230) - JVS(9382) = -B(16713)-B(16715) -! JVS(9383) = Jac_FULL(2230,3621) - JVS(9383) = B(16702) -! JVS(9384) = Jac_FULL(2230,5091) - JVS(9384) = B(13907) -! JVS(9385) = Jac_FULL(2230,5250) - JVS(9385) = B(16703)-B(16714)+B(16717) -! JVS(9386) = Jac_FULL(2231,1585) - JVS(9386) = B(11207) -! JVS(9387) = Jac_FULL(2231,2231) - JVS(9387) = -B(11204)-B(11206) -! JVS(9388) = Jac_FULL(2231,2362) - JVS(9388) = B(11199) -! JVS(9389) = Jac_FULL(2231,4148) - JVS(9389) = B(7419) -! JVS(9390) = Jac_FULL(2231,5250) - JVS(9390) = B(11200)-B(11205)+B(11208) -! JVS(9391) = Jac_FULL(2232,2232) - JVS(9391) = -B(6098)-B(6100) -! JVS(9392) = Jac_FULL(2232,3492) - JVS(9392) = B(2763) -! JVS(9393) = Jac_FULL(2232,5250) - JVS(9393) = -B(6099) -! JVS(9394) = Jac_FULL(2232,5252) - JVS(9394) = B(2764) -! JVS(9395) = Jac_FULL(2233,2233) - JVS(9395) = -B(11850)-B(11851)-B(11853) -! JVS(9396) = Jac_FULL(2233,3778) - JVS(9396) = B(8114) -! JVS(9397) = Jac_FULL(2233,5250) - JVS(9397) = -B(11852)-B(11854) -! JVS(9398) = Jac_FULL(2233,5255) - JVS(9398) = B(8115) -! JVS(9399) = Jac_FULL(2234,2234) - JVS(9399) = -B(8891) -! JVS(9400) = Jac_FULL(2234,2501) - JVS(9400) = B(8890) -! JVS(9401) = Jac_FULL(2234,4432) - JVS(9401) = B(5376)+B(5378)+B(5381) -! JVS(9402) = Jac_FULL(2234,5252) - JVS(9402) = B(5377) -! JVS(9403) = Jac_FULL(2234,5256) - JVS(9403) = B(5379) -! JVS(9404) = Jac_FULL(2235,2235) - JVS(9404) = -B(3720)-B(3722)-B(3724) -! JVS(9405) = Jac_FULL(2235,4411) - JVS(9405) = B(1008) -! JVS(9406) = Jac_FULL(2235,5250) - JVS(9406) = -B(3721)-B(3723) -! JVS(9407) = Jac_FULL(2235,5255) - JVS(9407) = B(1009) -! JVS(9408) = Jac_FULL(2236,2236) - JVS(9408) = -B(13877)-B(13878) -! JVS(9409) = Jac_FULL(2236,4894) - JVS(9409) = B(10640) -! JVS(9410) = Jac_FULL(2236,5250) - JVS(9410) = -B(13879) -! JVS(9411) = Jac_FULL(2236,5255) - JVS(9411) = B(10641) -! JVS(9412) = Jac_FULL(2237,2237) - JVS(9412) = -B(4394)-B(4395) -! JVS(9413) = Jac_FULL(2237,4755) - JVS(9413) = B(1610) -! JVS(9414) = Jac_FULL(2237,5250) - JVS(9414) = -B(4396) -! JVS(9415) = Jac_FULL(2237,5252) - JVS(9415) = B(1611) -! JVS(9416) = Jac_FULL(2238,2238) - JVS(9416) = -B(13472) -! JVS(9417) = Jac_FULL(2238,2971) - JVS(9417) = B(13470) -! JVS(9418) = Jac_FULL(2238,4277) - JVS(9418) = B(10273)+B(10275)+B(10277) -! JVS(9419) = Jac_FULL(2238,5252) - JVS(9419) = B(10274) -! JVS(9420) = Jac_FULL(2238,5256) - JVS(9420) = B(10276) -! JVS(9421) = Jac_FULL(2239,2239) - JVS(9421) = -B(17364)-B(17366) -! JVS(9422) = Jac_FULL(2239,4394) - JVS(9422) = B(14774) -! JVS(9423) = Jac_FULL(2239,5250) - JVS(9423) = -B(17365) -! JVS(9424) = Jac_FULL(2239,5252) - JVS(9424) = B(14775) -! JVS(9425) = Jac_FULL(2240,2240) - JVS(9425) = -B(11677)-B(11679) -! JVS(9426) = Jac_FULL(2240,5036) - JVS(9426) = B(7944) -! JVS(9427) = Jac_FULL(2240,5250) - JVS(9427) = -B(11678) -! JVS(9428) = Jac_FULL(2240,5253) - JVS(9428) = B(7945) -! JVS(9429) = Jac_FULL(2241,2241) - JVS(9429) = -B(5976)-B(5978) -! JVS(9430) = Jac_FULL(2241,3803) - JVS(9430) = B(2703) -! JVS(9431) = Jac_FULL(2241,5250) - JVS(9431) = -B(5977) -! JVS(9432) = Jac_FULL(2241,5252) - JVS(9432) = B(2704) -! JVS(9433) = Jac_FULL(2242,2242) - JVS(9433) = -B(7583) -! JVS(9434) = Jac_FULL(2242,3898) - JVS(9434) = B(3622) -! JVS(9435) = Jac_FULL(2242,5250) - JVS(9435) = -B(7584) -! JVS(9436) = Jac_FULL(2242,5252) - JVS(9436) = B(3623) -! JVS(9437) = Jac_FULL(2243,2243) - JVS(9437) = -B(18786)-B(18788) -! JVS(9438) = Jac_FULL(2243,3160) - JVS(9438) = B(16685) -! JVS(9439) = Jac_FULL(2243,3635) - JVS(9439) = B(16587) -! JVS(9440) = Jac_FULL(2243,5250) - JVS(9440) = B(16588)+B(16686)-B(18787) -! JVS(9441) = Jac_FULL(2244,2244) - JVS(9441) = -B(11827)-B(11828)-B(11829) -! JVS(9442) = Jac_FULL(2244,3944) - JVS(9442) = B(8095) -! JVS(9443) = Jac_FULL(2244,5250) - JVS(9443) = -B(11830) -! JVS(9444) = Jac_FULL(2244,5255) - JVS(9444) = B(8096) -! JVS(9445) = Jac_FULL(2245,2245) - JVS(9445) = -B(17927)-B(17928) -! JVS(9446) = Jac_FULL(2245,4712) - JVS(9446) = B(15328) -! JVS(9447) = Jac_FULL(2245,5250) - JVS(9447) = -B(17929) -! JVS(9448) = Jac_FULL(2245,5252) - JVS(9448) = B(15329) -! JVS(9449) = Jac_FULL(2246,2246) - JVS(9449) = -B(4594)-B(4595) -! JVS(9450) = Jac_FULL(2246,5061) - JVS(9450) = B(1794) -! JVS(9451) = Jac_FULL(2246,5250) - JVS(9451) = -B(4596) -! JVS(9452) = Jac_FULL(2246,5252) - JVS(9452) = B(1795) -! JVS(9453) = Jac_FULL(2247,2247) - JVS(9453) = -B(14108)-B(14109)-B(14111) -! JVS(9454) = Jac_FULL(2247,5150) - JVS(9454) = B(10910) -! JVS(9455) = Jac_FULL(2247,5250) - JVS(9455) = -B(14110)-B(14112) -! JVS(9456) = Jac_FULL(2247,5255) - JVS(9456) = B(10911) -! JVS(9457) = Jac_FULL(2248,2248) - JVS(9457) = -B(21340)-B(21342) -! JVS(9458) = Jac_FULL(2248,4202) - JVS(9458) = B(19967) -! JVS(9459) = Jac_FULL(2248,5250) - JVS(9459) = -B(21341) -! JVS(9460) = Jac_FULL(2248,5255) - JVS(9460) = B(19968) -! JVS(9461) = Jac_FULL(2249,2249) - JVS(9461) = -B(16513) -! JVS(9462) = Jac_FULL(2249,3240) - JVS(9462) = B(16512) -! JVS(9463) = Jac_FULL(2249,4321) - JVS(9463) = B(13649)+B(13651)+B(13653) -! JVS(9464) = Jac_FULL(2249,5252) - JVS(9464) = B(13650) -! JVS(9465) = Jac_FULL(2249,5256) - JVS(9465) = B(13652) -! JVS(9466) = Jac_FULL(2250,2250) - JVS(9466) = -B(19532)-B(19534) -! JVS(9467) = Jac_FULL(2250,5114) - JVS(9467) = B(17378) -! JVS(9468) = Jac_FULL(2250,5250) - JVS(9468) = -B(19533) -! JVS(9469) = Jac_FULL(2250,5252) - JVS(9469) = B(17379) -! JVS(9470) = Jac_FULL(2251,2251) - JVS(9470) = -B(22761)-B(22762) -! JVS(9471) = Jac_FULL(2251,4207) - JVS(9471) = B(22140) -! JVS(9472) = Jac_FULL(2251,5250) - JVS(9472) = -B(22763) -! JVS(9473) = Jac_FULL(2251,5255) - JVS(9473) = B(22141) -! JVS(9474) = Jac_FULL(2252,2252) - JVS(9474) = -B(10545)-B(10546)-B(10548) -! JVS(9475) = Jac_FULL(2252,5219) - JVS(9475) = B(6787) -! JVS(9476) = Jac_FULL(2252,5250) - JVS(9476) = -B(10547)-B(10549) -! JVS(9477) = Jac_FULL(2252,5255) - JVS(9477) = B(6788) -! JVS(9478) = Jac_FULL(2253,2253) - JVS(9478) = -B(17649)-B(17650) -! JVS(9479) = Jac_FULL(2253,4704) - JVS(9479) = B(15081) -! JVS(9480) = Jac_FULL(2253,5250) - JVS(9480) = -B(17651) -! JVS(9481) = Jac_FULL(2253,5252) - JVS(9481) = B(15082) -! JVS(9482) = Jac_FULL(2254,2254) - JVS(9482) = -B(14634) -! JVS(9483) = Jac_FULL(2254,4541) - JVS(9483) = B(11321) -! JVS(9484) = Jac_FULL(2254,5250) - JVS(9484) = -B(14635) -! JVS(9485) = Jac_FULL(2254,5252) - JVS(9485) = B(11322) -! JVS(9486) = Jac_FULL(2255,608) - JVS(9486) = B(14185) -! JVS(9487) = Jac_FULL(2255,2255) - JVS(9487) = -B(14187)-B(14188) -! JVS(9488) = Jac_FULL(2255,3291) - JVS(9488) = B(14181) -! JVS(9489) = Jac_FULL(2255,4105) - JVS(9489) = B(10997) -! JVS(9490) = Jac_FULL(2255,5250) - JVS(9490) = B(14182)+B(14186)-B(14189) -! JVS(9491) = Jac_FULL(2256,2256) - JVS(9491) = -B(17634)-B(17635) -! JVS(9492) = Jac_FULL(2256,4128) - JVS(9492) = B(15070) -! JVS(9493) = Jac_FULL(2256,5250) - JVS(9493) = -B(17636) -! JVS(9494) = Jac_FULL(2256,5252) - JVS(9494) = B(15071) -! JVS(9495) = Jac_FULL(2257,2257) - JVS(9495) = -B(23696)-B(23698) -! JVS(9496) = Jac_FULL(2257,4216) - JVS(9496) = B(23431) -! JVS(9497) = Jac_FULL(2257,5250) - JVS(9497) = -B(23697) -! JVS(9498) = Jac_FULL(2257,5252) - JVS(9498) = B(23432) -! JVS(9499) = Jac_FULL(2258,2258) - JVS(9499) = -B(10375)-B(10376)-B(10377)-B(10378) -! JVS(9500) = Jac_FULL(2258,5093) - JVS(9500) = B(6675) -! JVS(9501) = Jac_FULL(2258,5258) - JVS(9501) = B(6676) -! JVS(9502) = Jac_FULL(2259,2259) - JVS(9502) = -B(11938)-B(11940) -! JVS(9503) = Jac_FULL(2259,3854) - JVS(9503) = B(8187) -! JVS(9504) = Jac_FULL(2259,3859) - JVS(9504) = B(8209) -! JVS(9505) = Jac_FULL(2259,5250) - JVS(9505) = -B(11939)-B(11941) -! JVS(9506) = Jac_FULL(2260,2260) - JVS(9506) = -B(13941)-B(13943)-B(13945) -! JVS(9507) = Jac_FULL(2260,4595) - JVS(9507) = B(10742) -! JVS(9508) = Jac_FULL(2260,5250) - JVS(9508) = -B(13942)-B(13944) -! JVS(9509) = Jac_FULL(2260,5255) - JVS(9509) = B(10743) -! JVS(9510) = Jac_FULL(2261,2261) - JVS(9510) = -B(3725)-B(3727) -! JVS(9511) = Jac_FULL(2261,4411) - JVS(9511) = B(1010) -! JVS(9512) = Jac_FULL(2261,5250) - JVS(9512) = -B(3726) -! JVS(9513) = Jac_FULL(2261,5252) - JVS(9513) = B(1011) -! JVS(9514) = Jac_FULL(2262,2262) - JVS(9514) = -B(16177)-B(16179) -! JVS(9515) = Jac_FULL(2262,3945) - JVS(9515) = B(13103) -! JVS(9516) = Jac_FULL(2262,5250) - JVS(9516) = -B(16178) -! JVS(9517) = Jac_FULL(2262,5255) - JVS(9517) = B(13104) -! JVS(9518) = Jac_FULL(2263,2263) - JVS(9518) = -B(21496)-B(21498) -! JVS(9519) = Jac_FULL(2263,4441) - JVS(9519) = B(20248) -! JVS(9520) = Jac_FULL(2263,5250) - JVS(9520) = -B(21497) -! JVS(9521) = Jac_FULL(2263,5255) - JVS(9521) = B(20249) -! JVS(9522) = Jac_FULL(2264,2264) - JVS(9522) = -B(4627)-B(4628)-B(4630) -! JVS(9523) = Jac_FULL(2264,5082) - JVS(9523) = B(1824) -! JVS(9524) = Jac_FULL(2264,5250) - JVS(9524) = -B(4629)-B(4631) -! JVS(9525) = Jac_FULL(2264,5255) - JVS(9525) = B(1825) -! JVS(9526) = Jac_FULL(2265,1586) - JVS(9526) = B(19386) -! JVS(9527) = Jac_FULL(2265,2265) - JVS(9527) = -B(19383)-B(19385) -! JVS(9528) = Jac_FULL(2265,2305) - JVS(9528) = B(19378) -! JVS(9529) = Jac_FULL(2265,4145) - JVS(9529) = B(17151) -! JVS(9530) = Jac_FULL(2265,5250) - JVS(9530) = B(19379)-B(19384)+B(19387) -! JVS(9531) = Jac_FULL(2266,2266) - JVS(9531) = -B(17395)-B(17397) -! JVS(9532) = Jac_FULL(2266,3966) - JVS(9532) = B(14828) -! JVS(9533) = Jac_FULL(2266,5250) - JVS(9533) = -B(17396) -! JVS(9534) = Jac_FULL(2266,5255) - JVS(9534) = B(14829) -! JVS(9535) = Jac_FULL(2267,2267) - JVS(9535) = -B(16424)-B(16426) -! JVS(9536) = Jac_FULL(2267,3687) - JVS(9536) = B(13395) -! JVS(9537) = Jac_FULL(2267,5250) - JVS(9537) = -B(16425) -! JVS(9538) = Jac_FULL(2267,5255) - JVS(9538) = B(13396) -! JVS(9539) = Jac_FULL(2268,2268) - JVS(9539) = -B(12108)-B(12109) -! JVS(9540) = Jac_FULL(2268,3731) - JVS(9540) = B(8362) -! JVS(9541) = Jac_FULL(2268,5250) - JVS(9541) = -B(12110) -! JVS(9542) = Jac_FULL(2268,5252) - JVS(9542) = B(8363) -! JVS(9543) = Jac_FULL(2269,2269) - JVS(9543) = -B(7091)-B(7093)-B(7095) -! JVS(9544) = Jac_FULL(2269,4581) - JVS(9544) = B(3295) -! JVS(9545) = Jac_FULL(2269,5250) - JVS(9545) = -B(7092)-B(7094) -! JVS(9546) = Jac_FULL(2269,5255) - JVS(9546) = B(3296) -! JVS(9547) = Jac_FULL(2270,2270) - JVS(9547) = -B(17527)-B(17528) -! JVS(9548) = Jac_FULL(2270,4735) - JVS(9548) = B(14964) -! JVS(9549) = Jac_FULL(2270,5250) - JVS(9549) = -B(17529) -! JVS(9550) = Jac_FULL(2270,5252) - JVS(9550) = B(14965) -! JVS(9551) = Jac_FULL(2271,2271) - JVS(9551) = -B(17987)-B(17988) -! JVS(9552) = Jac_FULL(2271,4709) - JVS(9552) = B(15384) -! JVS(9553) = Jac_FULL(2271,5250) - JVS(9553) = -B(17989) -! JVS(9554) = Jac_FULL(2271,5252) - JVS(9554) = B(15385) -! JVS(9555) = Jac_FULL(2272,2272) - JVS(9555) = -B(7735) -! JVS(9556) = Jac_FULL(2272,3496) - JVS(9556) = B(6914) -! JVS(9557) = Jac_FULL(2272,3653) - JVS(9557) = B(3933) -! JVS(9558) = Jac_FULL(2272,5093) - JVS(9558) = B(6683) -! JVS(9559) = Jac_FULL(2272,5250) - JVS(9559) = -B(7736) -! JVS(9560) = Jac_FULL(2273,219) - JVS(9560) = B(17122) -! JVS(9561) = Jac_FULL(2273,2071) - JVS(9561) = B(17115) -! JVS(9562) = Jac_FULL(2273,2273) - JVS(9562) = -B(17119)-B(17121) -! JVS(9563) = Jac_FULL(2273,4567) - JVS(9563) = B(14474) -! JVS(9564) = Jac_FULL(2273,5250) - JVS(9564) = B(17116)-B(17120)+B(17123) -! JVS(9565) = Jac_FULL(2273,5255) - JVS(9565) = 0 -! JVS(9566) = Jac_FULL(2274,2274) - JVS(9566) = -B(12879)-B(12881) -! JVS(9567) = Jac_FULL(2274,4619) - JVS(9567) = B(9403) -! JVS(9568) = Jac_FULL(2274,5250) - JVS(9568) = -B(12882) -! JVS(9569) = Jac_FULL(2274,5256) - JVS(9569) = -B(12880) -! JVS(9570) = Jac_FULL(2275,2275) - JVS(9570) = -B(23502)-B(23504) -! JVS(9571) = Jac_FULL(2275,4196) - JVS(9571) = B(23154) -! JVS(9572) = Jac_FULL(2275,5250) - JVS(9572) = -B(23503) -! JVS(9573) = Jac_FULL(2275,5252) - JVS(9573) = B(23155) -! JVS(9574) = Jac_FULL(2276,2276) - JVS(9574) = -B(4015) -! JVS(9575) = Jac_FULL(2276,4554) - JVS(9575) = B(1271) -! JVS(9576) = Jac_FULL(2276,4585) - JVS(9576) = B(1237) -! JVS(9577) = Jac_FULL(2276,5250) - JVS(9577) = -B(4016) -! JVS(9578) = Jac_FULL(2276,5252) - JVS(9578) = B(1272) -! JVS(9579) = Jac_FULL(2277,2277) - JVS(9579) = -B(4578)-B(4579) -! JVS(9580) = Jac_FULL(2277,4696) - JVS(9580) = B(1783) -! JVS(9581) = Jac_FULL(2277,5250) - JVS(9581) = -B(4580) -! JVS(9582) = Jac_FULL(2277,5252) - JVS(9582) = B(1784) -! JVS(9583) = Jac_FULL(2278,2278) - JVS(9583) = -B(4924) -! JVS(9584) = Jac_FULL(2278,4593) - JVS(9584) = B(2091) -! JVS(9585) = Jac_FULL(2278,5096) - JVS(9585) = B(2118) -! JVS(9586) = Jac_FULL(2278,5250) - JVS(9586) = -B(4925) -! JVS(9587) = Jac_FULL(2278,5252) - JVS(9587) = B(2119) -! JVS(9588) = Jac_FULL(2279,2279) - JVS(9588) = -B(22771) -! JVS(9589) = Jac_FULL(2279,2556) - JVS(9589) = B(22768) -! JVS(9590) = Jac_FULL(2279,3899) - JVS(9590) = B(22174)+B(22176)+B(22178) -! JVS(9591) = Jac_FULL(2279,5252) - JVS(9591) = B(22175) -! JVS(9592) = Jac_FULL(2279,5256) - JVS(9592) = B(22177) -! JVS(9593) = Jac_FULL(2280,2280) - JVS(9593) = -B(14714) -! JVS(9594) = Jac_FULL(2280,4249) - JVS(9594) = B(11371) -! JVS(9595) = Jac_FULL(2280,5250) - JVS(9595) = -B(14715) -! JVS(9596) = Jac_FULL(2280,5252) - JVS(9596) = B(11372) -! JVS(9597) = Jac_FULL(2281,2281) - JVS(9597) = -B(13316)-B(13318) -! JVS(9598) = Jac_FULL(2281,4799) - JVS(9598) = B(10042) -! JVS(9599) = Jac_FULL(2281,5250) - JVS(9599) = -B(13319) -! JVS(9600) = Jac_FULL(2281,5256) - JVS(9600) = -B(13317) -! JVS(9601) = Jac_FULL(2282,2282) - JVS(9601) = -B(17790)-B(17791) -! JVS(9602) = Jac_FULL(2282,4903) - JVS(9602) = B(15216) -! JVS(9603) = Jac_FULL(2282,5250) - JVS(9603) = -B(17792) -! JVS(9604) = Jac_FULL(2282,5252) - JVS(9604) = B(15217) -! JVS(9605) = Jac_FULL(2283,2283) - JVS(9605) = -B(12427)-B(12429) -! JVS(9606) = Jac_FULL(2283,3220) - JVS(9606) = B(12510) -! JVS(9607) = Jac_FULL(2283,4592) - JVS(9607) = B(8793) -! JVS(9608) = Jac_FULL(2283,5250) - JVS(9608) = -B(12428)+B(12511) -! JVS(9609) = Jac_FULL(2283,5255) - JVS(9609) = B(8794) -! JVS(9610) = Jac_FULL(2284,1168) - JVS(9610) = B(12069) -! JVS(9611) = Jac_FULL(2284,2284) - JVS(9611) = -B(12075) -! JVS(9612) = Jac_FULL(2284,2299) - JVS(9612) = B(12072) -! JVS(9613) = Jac_FULL(2284,3749) - JVS(9613) = B(8328)+B(8330)+B(8333) -! JVS(9614) = Jac_FULL(2284,5250) - JVS(9614) = 0 -! JVS(9615) = Jac_FULL(2284,5252) - JVS(9615) = B(8329) -! JVS(9616) = Jac_FULL(2284,5255) - JVS(9616) = 0 -! JVS(9617) = Jac_FULL(2284,5256) - JVS(9617) = B(8331) -! JVS(9618) = Jac_FULL(2285,2285) - JVS(9618) = -B(4409)-B(4411) -! JVS(9619) = Jac_FULL(2285,5163) - JVS(9619) = B(1631) -! JVS(9620) = Jac_FULL(2285,5250) - JVS(9620) = -B(4410) -! JVS(9621) = Jac_FULL(2285,5252) - JVS(9621) = B(1632) -! JVS(9622) = Jac_FULL(2286,2286) - JVS(9622) = -B(2016)-B(2017)-B(2018)-B(2019) -! JVS(9623) = Jac_FULL(2286,5200) - JVS(9623) = B(435) -! JVS(9624) = Jac_FULL(2286,5258) - JVS(9624) = B(436) -! JVS(9625) = Jac_FULL(2287,2287) - JVS(9625) = -B(10094) -! JVS(9626) = Jac_FULL(2287,3451) - JVS(9626) = B(10093) -! JVS(9627) = Jac_FULL(2287,4905) - JVS(9627) = B(6387)+B(6389)+B(6391) -! JVS(9628) = Jac_FULL(2287,5252) - JVS(9628) = B(6388) -! JVS(9629) = Jac_FULL(2287,5256) - JVS(9629) = B(6390) -! JVS(9630) = Jac_FULL(2288,2288) - JVS(9630) = -B(17374) -! JVS(9631) = Jac_FULL(2288,3844) - JVS(9631) = B(14789) -! JVS(9632) = Jac_FULL(2288,3966) - JVS(9632) = B(14830) -! JVS(9633) = Jac_FULL(2288,5250) - JVS(9633) = -B(17375) -! JVS(9634) = Jac_FULL(2288,5252) - JVS(9634) = B(14831) -! JVS(9635) = Jac_FULL(2289,2289) - JVS(9635) = -B(20518)-B(20520) -! JVS(9636) = Jac_FULL(2289,3864) - JVS(9636) = B(18920) -! JVS(9637) = Jac_FULL(2289,5250) - JVS(9637) = -B(20519) -! JVS(9638) = Jac_FULL(2289,5255) - JVS(9638) = B(18921) -! JVS(9639) = Jac_FULL(2290,2290) - JVS(9639) = -B(12281)-B(12283) -! JVS(9640) = Jac_FULL(2290,4427) - JVS(9640) = B(8607) -! JVS(9641) = Jac_FULL(2290,5250) - JVS(9641) = -B(12282) -! JVS(9642) = Jac_FULL(2290,5255) - JVS(9642) = B(8608) -! JVS(9643) = Jac_FULL(2291,2291) - JVS(9643) = -B(12026)-B(12027) -! JVS(9644) = Jac_FULL(2291,4577) - JVS(9644) = B(8286) -! JVS(9645) = Jac_FULL(2291,5250) - JVS(9645) = -B(12028) -! JVS(9646) = Jac_FULL(2291,5252) - JVS(9646) = B(8287) -! JVS(9647) = Jac_FULL(2292,2292) - JVS(9647) = -B(4145)-B(4146)-B(4148) -! JVS(9648) = Jac_FULL(2292,5229) - JVS(9648) = B(1354) -! JVS(9649) = Jac_FULL(2292,5250) - JVS(9649) = -B(4147)-B(4149) -! JVS(9650) = Jac_FULL(2292,5255) - JVS(9650) = B(1355) -! JVS(9651) = Jac_FULL(2293,99) - JVS(9651) = B(22123) -! JVS(9652) = Jac_FULL(2293,883) - JVS(9652) = B(22118) -! JVS(9653) = Jac_FULL(2293,2293) - JVS(9653) = -B(22122) -! JVS(9654) = Jac_FULL(2293,2621) - JVS(9654) = B(22121) -! JVS(9655) = Jac_FULL(2293,5104) - JVS(9655) = B(21093)+B(21095)+B(21097) -! JVS(9656) = Jac_FULL(2293,5250) - JVS(9656) = B(22124) -! JVS(9657) = Jac_FULL(2293,5252) - JVS(9657) = B(21094) -! JVS(9658) = Jac_FULL(2293,5255) - JVS(9658) = 0 -! JVS(9659) = Jac_FULL(2293,5256) - JVS(9659) = B(21096) -! JVS(9660) = Jac_FULL(2294,2294) - JVS(9660) = -B(18441)-B(18443) -! JVS(9661) = Jac_FULL(2294,3738) - JVS(9661) = B(16053) -! JVS(9662) = Jac_FULL(2294,5250) - JVS(9662) = -B(18442) -! JVS(9663) = Jac_FULL(2294,5255) - JVS(9663) = B(16054) -! JVS(9664) = Jac_FULL(2295,358) - JVS(9664) = B(12867) -! JVS(9665) = Jac_FULL(2295,2204) - JVS(9665) = B(12860) -! JVS(9666) = Jac_FULL(2295,2295) - JVS(9666) = -B(12864)-B(12866) -! JVS(9667) = Jac_FULL(2295,4030) - JVS(9667) = B(9377) -! JVS(9668) = Jac_FULL(2295,5250) - JVS(9668) = B(12861)-B(12865)+B(12868) -! JVS(9669) = Jac_FULL(2295,5255) - JVS(9669) = 0 -! JVS(9670) = Jac_FULL(2296,2296) - JVS(9670) = -B(11127)-B(11129) -! JVS(9671) = Jac_FULL(2296,3852) - JVS(9671) = B(7333) -! JVS(9672) = Jac_FULL(2296,5250) - JVS(9672) = -B(11128) -! JVS(9673) = Jac_FULL(2296,5252) - JVS(9673) = B(7334) -! JVS(9674) = Jac_FULL(2297,2297) - JVS(9674) = -B(3767) -! JVS(9675) = Jac_FULL(2297,4714) - JVS(9675) = B(2135) -! JVS(9676) = Jac_FULL(2297,4767) - JVS(9676) = B(1044) -! JVS(9677) = Jac_FULL(2297,5250) - JVS(9677) = -B(3768) -! JVS(9678) = Jac_FULL(2297,5252) - JVS(9678) = B(1045) -! JVS(9679) = Jac_FULL(2298,2298) - JVS(9679) = -B(17946)-B(17947) -! JVS(9680) = Jac_FULL(2298,3919) - JVS(9680) = B(15340) -! JVS(9681) = Jac_FULL(2298,5250) - JVS(9681) = -B(17948) -! JVS(9682) = Jac_FULL(2298,5255) - JVS(9682) = B(15341) -! JVS(9683) = Jac_FULL(2299,2299) - JVS(9683) = -B(12072)-B(12073) -! JVS(9684) = Jac_FULL(2299,3749) - JVS(9684) = B(8326) -! JVS(9685) = Jac_FULL(2299,5250) - JVS(9685) = -B(12074) -! JVS(9686) = Jac_FULL(2299,5252) - JVS(9686) = B(8327) -! JVS(9687) = Jac_FULL(2300,2300) - JVS(9687) = -B(23900)-B(23902) -! JVS(9688) = Jac_FULL(2300,4820) - JVS(9688) = B(23751) -! JVS(9689) = Jac_FULL(2300,5250) - JVS(9689) = -B(23901) -! JVS(9690) = Jac_FULL(2300,5255) - JVS(9690) = B(23752) -! JVS(9691) = Jac_FULL(2301,2301) - JVS(9691) = -B(12266)-B(12268) -! JVS(9692) = Jac_FULL(2301,4215) - JVS(9692) = B(8585) -! JVS(9693) = Jac_FULL(2301,5250) - JVS(9693) = -B(12267) -! JVS(9694) = Jac_FULL(2301,5255) - JVS(9694) = B(8586) -! JVS(9695) = Jac_FULL(2302,2302) - JVS(9695) = -B(5664)-B(5666) -! JVS(9696) = Jac_FULL(2302,3481) - JVS(9696) = B(2551) -! JVS(9697) = Jac_FULL(2302,5250) - JVS(9697) = -B(5665) -! JVS(9698) = Jac_FULL(2302,5252) - JVS(9698) = B(2552) -! JVS(9699) = Jac_FULL(2303,2303) - JVS(9699) = -B(23727)-B(23729) -! JVS(9700) = Jac_FULL(2303,3855) - JVS(9700) = B(23479) -! JVS(9701) = Jac_FULL(2303,5250) - JVS(9701) = -B(23728) -! JVS(9702) = Jac_FULL(2303,5252) - JVS(9702) = B(23480) -! JVS(9703) = Jac_FULL(2304,1077) - JVS(9703) = B(23726) -! JVS(9704) = Jac_FULL(2304,2303) - JVS(9704) = B(23729) -! JVS(9705) = Jac_FULL(2304,2304) - JVS(9705) = -B(23730) -! JVS(9706) = Jac_FULL(2304,3855) - JVS(9706) = B(23481)+B(23483)+B(23486) -! JVS(9707) = Jac_FULL(2304,5250) - JVS(9707) = 0 -! JVS(9708) = Jac_FULL(2304,5252) - JVS(9708) = B(23482) -! JVS(9709) = Jac_FULL(2304,5255) - JVS(9709) = 0 -! JVS(9710) = Jac_FULL(2304,5256) - JVS(9710) = B(23484) -! JVS(9711) = Jac_FULL(2305,2305) - JVS(9711) = -B(19378)-B(19380)-B(19381) -! JVS(9712) = Jac_FULL(2305,4145) - JVS(9712) = B(17145) -! JVS(9713) = Jac_FULL(2305,5250) - JVS(9713) = -B(19379) -! JVS(9714) = Jac_FULL(2305,5255) - JVS(9714) = B(17146) -! JVS(9715) = Jac_FULL(2306,2306) - JVS(9715) = -B(3644)-B(3645) -! JVS(9716) = Jac_FULL(2306,4995) - JVS(9716) = B(934) -! JVS(9717) = Jac_FULL(2306,5250) - JVS(9717) = -B(3646) -! JVS(9718) = Jac_FULL(2306,5252) - JVS(9718) = B(935) -! JVS(9719) = Jac_FULL(2307,2307) - JVS(9719) = -B(13453)-B(13455) -! JVS(9720) = Jac_FULL(2307,4168) - JVS(9720) = B(10237) -! JVS(9721) = Jac_FULL(2307,5250) - JVS(9721) = -B(13454) -! JVS(9722) = Jac_FULL(2307,5255) - JVS(9722) = B(10238) -! JVS(9723) = Jac_FULL(2308,2308) - JVS(9723) = -B(10493)-B(10494)-B(10495) -! JVS(9724) = Jac_FULL(2308,5217) - JVS(9724) = B(6775)+B(6779)+B(6784) -! JVS(9725) = Jac_FULL(2308,5252) - JVS(9725) = B(6776) -! JVS(9726) = Jac_FULL(2308,5256) - JVS(9726) = B(6780) -! JVS(9727) = Jac_FULL(2309,2309) - JVS(9727) = -B(5578)-B(5580) -! JVS(9728) = Jac_FULL(2309,3507) - JVS(9728) = B(2506) -! JVS(9729) = Jac_FULL(2309,5250) - JVS(9729) = -B(5579) -! JVS(9730) = Jac_FULL(2309,5252) - JVS(9730) = B(2507) -! JVS(9731) = Jac_FULL(2310,2310) - JVS(9731) = -B(13278)-B(13280) -! JVS(9732) = Jac_FULL(2310,3666) - JVS(9732) = B(9964) -! JVS(9733) = Jac_FULL(2310,4152) - JVS(9733) = B(9982) -! JVS(9734) = Jac_FULL(2310,5250) - JVS(9734) = -B(13279) -! JVS(9735) = Jac_FULL(2311,2311) - JVS(9735) = -B(22641)-B(22643) -! JVS(9736) = Jac_FULL(2311,4825) - JVS(9736) = B(22027) -! JVS(9737) = Jac_FULL(2311,5250) - JVS(9737) = -B(22642) -! JVS(9738) = Jac_FULL(2311,5252) - JVS(9738) = B(22028) -! JVS(9739) = Jac_FULL(2312,2312) - JVS(9739) = -B(23008)-B(23010) -! JVS(9740) = Jac_FULL(2312,4315) - JVS(9740) = B(22574) -! JVS(9741) = Jac_FULL(2312,5250) - JVS(9741) = -B(23009) -! JVS(9742) = Jac_FULL(2312,5255) - JVS(9742) = B(22575) -! JVS(9743) = Jac_FULL(2313,2313) - JVS(9743) = -B(11088)-B(11090) -! JVS(9744) = Jac_FULL(2313,5198) - JVS(9744) = B(7284) -! JVS(9745) = Jac_FULL(2313,5250) - JVS(9745) = -B(11089) -! JVS(9746) = Jac_FULL(2313,5252) - JVS(9746) = B(7285) -! JVS(9747) = Jac_FULL(2314,2314) - JVS(9747) = -B(12249)-B(12251) -! JVS(9748) = Jac_FULL(2314,4522) - JVS(9748) = B(8548) -! JVS(9749) = Jac_FULL(2314,5250) - JVS(9749) = -B(12250) -! JVS(9750) = Jac_FULL(2314,5255) - JVS(9750) = B(8549) -! JVS(9751) = Jac_FULL(2315,1687) - JVS(9751) = B(17221) -! JVS(9752) = Jac_FULL(2315,1863) - JVS(9752) = B(17213) -! JVS(9753) = Jac_FULL(2315,2315) - JVS(9753) = -B(17218)-B(17220) -! JVS(9754) = Jac_FULL(2315,4761) - JVS(9754) = B(14600) -! JVS(9755) = Jac_FULL(2315,5250) - JVS(9755) = B(17214)-B(17219)+B(17222) -! JVS(9756) = Jac_FULL(2315,5255) - JVS(9756) = 0 -! JVS(9757) = Jac_FULL(2316,2316) - JVS(9757) = -B(17890)-B(17891) -! JVS(9758) = Jac_FULL(2316,3977) - JVS(9758) = B(15291) -! JVS(9759) = Jac_FULL(2316,5250) - JVS(9759) = -B(17892) -! JVS(9760) = Jac_FULL(2316,5255) - JVS(9760) = B(15292) -! JVS(9761) = Jac_FULL(2317,2317) - JVS(9761) = -B(5494)-B(5496) -! JVS(9762) = Jac_FULL(2317,4003) - JVS(9762) = B(2473) -! JVS(9763) = Jac_FULL(2317,5250) - JVS(9763) = -B(5495) -! JVS(9764) = Jac_FULL(2317,5252) - JVS(9764) = B(2474) -! JVS(9765) = Jac_FULL(2318,2318) - JVS(9765) = -B(4212)-B(4213)-B(4215) -! JVS(9766) = Jac_FULL(2318,5208) - JVS(9766) = B(1434) -! JVS(9767) = Jac_FULL(2318,5250) - JVS(9767) = -B(4214)-B(4216) -! JVS(9768) = Jac_FULL(2318,5255) - JVS(9768) = B(1435) -! JVS(9769) = Jac_FULL(2319,2319) - JVS(9769) = -B(17401)-B(17402) -! JVS(9770) = Jac_FULL(2319,4243) - JVS(9770) = B(14839) -! JVS(9771) = Jac_FULL(2319,5250) - JVS(9771) = -B(17403) -! JVS(9772) = Jac_FULL(2319,5255) - JVS(9772) = B(14840) -! JVS(9773) = Jac_FULL(2320,2320) - JVS(9773) = -B(18701)-B(18702) -! JVS(9774) = Jac_FULL(2320,4209) - JVS(9774) = B(16462) -! JVS(9775) = Jac_FULL(2320,5250) - JVS(9775) = -B(18703) -! JVS(9776) = Jac_FULL(2320,5255) - JVS(9776) = B(16463) -! JVS(9777) = Jac_FULL(2321,2321) - JVS(9777) = -B(5756)-B(5758) -! JVS(9778) = Jac_FULL(2321,3807) - JVS(9778) = B(2593) -! JVS(9779) = Jac_FULL(2321,5250) - JVS(9779) = -B(5757) -! JVS(9780) = Jac_FULL(2321,5252) - JVS(9780) = B(2594) -! JVS(9781) = Jac_FULL(2322,1315) - JVS(9781) = B(5755) -! JVS(9782) = Jac_FULL(2322,2321) - JVS(9782) = B(5758) -! JVS(9783) = Jac_FULL(2322,2322) - JVS(9783) = -B(5759) -! JVS(9784) = Jac_FULL(2322,3807) - JVS(9784) = B(2595)+B(2597)+B(2599) -! JVS(9785) = Jac_FULL(2322,5250) - JVS(9785) = 0 -! JVS(9786) = Jac_FULL(2322,5252) - JVS(9786) = B(2596) -! JVS(9787) = Jac_FULL(2322,5255) - JVS(9787) = 0 -! JVS(9788) = Jac_FULL(2322,5256) - JVS(9788) = B(2598) -! JVS(9789) = Jac_FULL(2323,2323) - JVS(9789) = -B(11071)-B(11072) -! JVS(9790) = Jac_FULL(2323,2540) - JVS(9790) = B(11069) -! JVS(9791) = Jac_FULL(2323,4563) - JVS(9791) = B(7265)+B(7267)+B(7270) -! JVS(9792) = Jac_FULL(2323,5252) - JVS(9792) = B(7266) -! JVS(9793) = Jac_FULL(2323,5256) - JVS(9793) = B(7268) -! JVS(9794) = Jac_FULL(2324,1059) - JVS(9794) = B(14327) -! JVS(9795) = Jac_FULL(2324,2324) - JVS(9795) = -B(14331) -! JVS(9796) = Jac_FULL(2324,2462) - JVS(9796) = B(14330) -! JVS(9797) = Jac_FULL(2324,4089) - JVS(9797) = B(11106)+B(11108)+B(11110) -! JVS(9798) = Jac_FULL(2324,5250) - JVS(9798) = 0 -! JVS(9799) = Jac_FULL(2324,5252) - JVS(9799) = B(11107) -! JVS(9800) = Jac_FULL(2324,5255) - JVS(9800) = 0 -! JVS(9801) = Jac_FULL(2324,5256) - JVS(9801) = B(11109) -! JVS(9802) = Jac_FULL(2325,2325) - JVS(9802) = -B(17342) -! JVS(9803) = Jac_FULL(2325,3886) - JVS(9803) = B(14746) -! JVS(9804) = Jac_FULL(2325,5250) - JVS(9804) = -B(17343) -! JVS(9805) = Jac_FULL(2325,5252) - JVS(9805) = B(14747) -! JVS(9806) = Jac_FULL(2326,2326) - JVS(9806) = -B(6990) -! JVS(9807) = Jac_FULL(2326,4383) - JVS(9807) = B(6996) -! JVS(9808) = Jac_FULL(2326,4909) - JVS(9808) = B(4841) -! JVS(9809) = Jac_FULL(2326,5241) - JVS(9809) = B(3196)+B(3200)+B(3202)+B(3205) -! JVS(9810) = Jac_FULL(2326,5252) - JVS(9810) = B(3201) -! JVS(9811) = Jac_FULL(2326,5255) - JVS(9811) = B(3197) -! JVS(9812) = Jac_FULL(2326,5256) - JVS(9812) = B(3203) -! JVS(9813) = Jac_FULL(2327,2327) - JVS(9813) = -B(23105)-B(23107) -! JVS(9814) = Jac_FULL(2327,4319) - JVS(9814) = B(22654) -! JVS(9815) = Jac_FULL(2327,5250) - JVS(9815) = -B(23106) -! JVS(9816) = Jac_FULL(2327,5252) - JVS(9816) = B(22655) -! JVS(9817) = Jac_FULL(2328,2328) - JVS(9817) = -B(21703)-B(21705) -! JVS(9818) = Jac_FULL(2328,3858) - JVS(9818) = B(20675) -! JVS(9819) = Jac_FULL(2328,5250) - JVS(9819) = -B(21704) -! JVS(9820) = Jac_FULL(2328,5252) - JVS(9820) = B(20676) -! JVS(9821) = Jac_FULL(2329,2329) - JVS(9821) = -B(20390)-B(20392) -! JVS(9822) = Jac_FULL(2329,4228) - JVS(9822) = B(18817) -! JVS(9823) = Jac_FULL(2329,5250) - JVS(9823) = -B(20391) -! JVS(9824) = Jac_FULL(2329,5255) - JVS(9824) = B(18818) -! JVS(9825) = Jac_FULL(2330,2330) - JVS(9825) = -B(17957)-B(17958) -! JVS(9826) = Jac_FULL(2330,4715) - JVS(9826) = B(15356) -! JVS(9827) = Jac_FULL(2330,5250) - JVS(9827) = -B(17959) -! JVS(9828) = Jac_FULL(2330,5252) - JVS(9828) = B(15357) -! JVS(9829) = Jac_FULL(2331,2331) - JVS(9829) = -B(17844)-B(17845)-B(17847) -! JVS(9830) = Jac_FULL(2331,4251) - JVS(9830) = B(15252) -! JVS(9831) = Jac_FULL(2331,5250) - JVS(9831) = -B(17846)-B(17848) -! JVS(9832) = Jac_FULL(2331,5255) - JVS(9832) = B(15253) -! JVS(9833) = Jac_FULL(2332,2332) - JVS(9833) = -B(22359)-B(22361) -! JVS(9834) = Jac_FULL(2332,4597) - JVS(9834) = B(21730) -! JVS(9835) = Jac_FULL(2332,5250) - JVS(9835) = -B(22360) -! JVS(9836) = Jac_FULL(2332,5252) - JVS(9836) = B(21731) -! JVS(9837) = Jac_FULL(2333,2333) - JVS(9837) = -B(6422)-B(6424) -! JVS(9838) = Jac_FULL(2333,3819) - JVS(9838) = B(2911) -! JVS(9839) = Jac_FULL(2333,5250) - JVS(9839) = -B(6423) -! JVS(9840) = Jac_FULL(2333,5252) - JVS(9840) = B(2912) -! JVS(9841) = Jac_FULL(2334,1270) - JVS(9841) = B(6421) -! JVS(9842) = Jac_FULL(2334,2333) - JVS(9842) = B(6424) -! JVS(9843) = Jac_FULL(2334,2334) - JVS(9843) = -B(6425) -! JVS(9844) = Jac_FULL(2334,3819) - JVS(9844) = B(2913)+B(2915)+B(2917) -! JVS(9845) = Jac_FULL(2334,5250) - JVS(9845) = 0 -! JVS(9846) = Jac_FULL(2334,5252) - JVS(9846) = B(2914) -! JVS(9847) = Jac_FULL(2334,5255) - JVS(9847) = 0 -! JVS(9848) = Jac_FULL(2334,5256) - JVS(9848) = B(2916) -! JVS(9849) = Jac_FULL(2335,2335) - JVS(9849) = -B(16485)-B(16486) -! JVS(9850) = Jac_FULL(2335,3154) - JVS(9850) = B(16479) -! JVS(9851) = Jac_FULL(2335,3628) - JVS(9851) = B(13613) -! JVS(9852) = Jac_FULL(2335,5250) - JVS(9852) = B(13614)+B(16480)-B(16487) -! JVS(9853) = Jac_FULL(2336,2336) - JVS(9853) = -B(22281)-B(22283) -! JVS(9854) = Jac_FULL(2336,4184) - JVS(9854) = B(21530) -! JVS(9855) = Jac_FULL(2336,5250) - JVS(9855) = -B(22282) -! JVS(9856) = Jac_FULL(2337,2337) - JVS(9856) = -B(4440)-B(4441) -! JVS(9857) = Jac_FULL(2337,5147) - JVS(9857) = B(1664) -! JVS(9858) = Jac_FULL(2337,5250) - JVS(9858) = -B(4442) -! JVS(9859) = Jac_FULL(2337,5252) - JVS(9859) = B(1665) -! JVS(9860) = Jac_FULL(2338,2338) - JVS(9860) = -B(4167)-B(4169) -! JVS(9861) = Jac_FULL(2338,3847) - JVS(9861) = B(1381) -! JVS(9862) = Jac_FULL(2338,5250) - JVS(9862) = -B(4168) -! JVS(9863) = Jac_FULL(2338,5252) - JVS(9863) = B(1382) -! JVS(9864) = Jac_FULL(2339,2339) - JVS(9864) = -B(4389)-B(4390)-B(4392) -! JVS(9865) = Jac_FULL(2339,4755) - JVS(9865) = B(1608) -! JVS(9866) = Jac_FULL(2339,5250) - JVS(9866) = -B(4391)-B(4393) -! JVS(9867) = Jac_FULL(2339,5255) - JVS(9867) = B(1609) -! JVS(9868) = Jac_FULL(2340,2340) - JVS(9868) = -B(19242)-B(19244) -! JVS(9869) = Jac_FULL(2340,4824) - JVS(9869) = B(17171) -! JVS(9870) = Jac_FULL(2340,4849) - JVS(9870) = B(17033)+B(17042) -! JVS(9871) = Jac_FULL(2340,5250) - JVS(9871) = -B(19243) -! JVS(9872) = Jac_FULL(2340,5255) - JVS(9872) = B(17034) -! JVS(9873) = Jac_FULL(2341,2341) - JVS(9873) = -B(5205)-B(5207) -! JVS(9874) = Jac_FULL(2341,4399) - JVS(9874) = B(2344) -! JVS(9875) = Jac_FULL(2341,5250) - JVS(9875) = -B(5206) -! JVS(9876) = Jac_FULL(2341,5252) - JVS(9876) = B(2345) -! JVS(9877) = Jac_FULL(2342,2342) - JVS(9877) = -B(18547)-B(18549) -! JVS(9878) = Jac_FULL(2342,4323) - JVS(9878) = B(16225) -! JVS(9879) = Jac_FULL(2342,5250) - JVS(9879) = -B(18548) -! JVS(9880) = Jac_FULL(2342,5255) - JVS(9880) = B(16226) -! JVS(9881) = Jac_FULL(2343,2343) - JVS(9881) = -B(7318) -! JVS(9882) = Jac_FULL(2343,4097) - JVS(9882) = B(3465) -! JVS(9883) = Jac_FULL(2343,4146) - JVS(9883) = B(3502) -! JVS(9884) = Jac_FULL(2343,5250) - JVS(9884) = -B(7319) -! JVS(9885) = Jac_FULL(2343,5252) - JVS(9885) = B(3503) -! JVS(9886) = Jac_FULL(2344,2344) - JVS(9886) = -B(12334)-B(12336) -! JVS(9887) = Jac_FULL(2344,4719) - JVS(9887) = B(8663) -! JVS(9888) = Jac_FULL(2344,5250) - JVS(9888) = -B(12335) -! JVS(9889) = Jac_FULL(2345,2345) - JVS(9889) = -B(21616)-B(21618) -! JVS(9890) = Jac_FULL(2345,3620) - JVS(9890) = B(20507) -! JVS(9891) = Jac_FULL(2345,5250) - JVS(9891) = B(20508)-B(21617) -! JVS(9892) = Jac_FULL(2346,2346) - JVS(9892) = -B(4320) -! JVS(9893) = Jac_FULL(2346,4428) - JVS(9893) = B(1543)+B(1553) -! JVS(9894) = Jac_FULL(2346,5250) - JVS(9894) = -B(4321) -! JVS(9895) = Jac_FULL(2346,5255) - JVS(9895) = B(1544) -! JVS(9896) = Jac_FULL(2347,2347) - JVS(9896) = -B(14660) -! JVS(9897) = Jac_FULL(2347,3990) - JVS(9897) = B(11335) -! JVS(9898) = Jac_FULL(2347,5250) - JVS(9898) = -B(14661) -! JVS(9899) = Jac_FULL(2347,5252) - JVS(9899) = B(11336) -! JVS(9900) = Jac_FULL(2348,2348) - JVS(9900) = -B(22303)-B(22305) -! JVS(9901) = Jac_FULL(2348,3976) - JVS(9901) = B(21660) -! JVS(9902) = Jac_FULL(2348,5250) - JVS(9902) = -B(22304) -! JVS(9903) = Jac_FULL(2348,5255) - JVS(9903) = B(21661) -! JVS(9904) = Jac_FULL(2349,2349) - JVS(9904) = -B(21458)-B(21460) -! JVS(9905) = Jac_FULL(2349,4324) - JVS(9905) = B(20198) -! JVS(9906) = Jac_FULL(2349,5250) - JVS(9906) = -B(21459) -! JVS(9907) = Jac_FULL(2349,5255) - JVS(9907) = B(20199) -! JVS(9908) = Jac_FULL(2350,2350) - JVS(9908) = -B(4537)-B(4538) -! JVS(9909) = Jac_FULL(2350,4974) - JVS(9909) = B(1751) -! JVS(9910) = Jac_FULL(2350,5250) - JVS(9910) = -B(4539) -! JVS(9911) = Jac_FULL(2350,5252) - JVS(9911) = B(1752) -! JVS(9912) = Jac_FULL(2351,2351) - JVS(9912) = -B(18315)-B(18317) -! JVS(9913) = Jac_FULL(2351,4076) - JVS(9913) = B(15855) -! JVS(9914) = Jac_FULL(2351,5250) - JVS(9914) = -B(18316) -! JVS(9915) = Jac_FULL(2351,5255) - JVS(9915) = B(15856) -! JVS(9916) = Jac_FULL(2352,2352) - JVS(9916) = -B(20898)-B(20900) -! JVS(9917) = Jac_FULL(2352,3962) - JVS(9917) = B(19331) -! JVS(9918) = Jac_FULL(2352,5250) - JVS(9918) = -B(20899) -! JVS(9919) = Jac_FULL(2352,5252) - JVS(9919) = B(19332) -! JVS(9920) = Jac_FULL(2353,2353) - JVS(9920) = -B(16445)-B(16447) -! JVS(9921) = Jac_FULL(2353,3303) - JVS(9921) = B(13444) -! JVS(9922) = Jac_FULL(2353,4050) - JVS(9922) = B(13437) -! JVS(9923) = Jac_FULL(2353,5250) - JVS(9923) = B(13445)-B(16446) -! JVS(9924) = Jac_FULL(2353,5255) - JVS(9924) = B(13438) -! JVS(9925) = Jac_FULL(2354,2354) - JVS(9925) = -B(16709)-B(16711) -! JVS(9926) = Jac_FULL(2354,5091) - JVS(9926) = B(13901) -! JVS(9927) = Jac_FULL(2354,5250) - JVS(9927) = -B(16710) -! JVS(9928) = Jac_FULL(2354,5252) - JVS(9928) = B(13902) -! JVS(9929) = Jac_FULL(2355,2355) - JVS(9929) = -B(4544)-B(4545)-B(4547) -! JVS(9930) = Jac_FULL(2355,4571) - JVS(9930) = B(1760) -! JVS(9931) = Jac_FULL(2355,5250) - JVS(9931) = -B(4546)-B(4548) -! JVS(9932) = Jac_FULL(2355,5255) - JVS(9932) = B(1761) -! JVS(9933) = Jac_FULL(2356,2356) - JVS(9933) = -B(9792) -! JVS(9934) = Jac_FULL(2356,2357) - JVS(9934) = B(9793) -! JVS(9935) = Jac_FULL(2356,3452) - JVS(9935) = B(9790) -! JVS(9936) = Jac_FULL(2356,4899) - JVS(9936) = B(6089)+B(6091)+B(6093) -! JVS(9937) = Jac_FULL(2356,5250) - JVS(9937) = B(9794) -! JVS(9938) = Jac_FULL(2356,5252) - JVS(9938) = B(6090) -! JVS(9939) = Jac_FULL(2356,5256) - JVS(9939) = B(6092) -! JVS(9940) = Jac_FULL(2357,2357) - JVS(9940) = -B(9793)-B(9795)-B(9796) -! JVS(9941) = Jac_FULL(2357,4899) - JVS(9941) = B(6094) -! JVS(9942) = Jac_FULL(2357,5250) - JVS(9942) = -B(9794) -! JVS(9943) = Jac_FULL(2358,2358) - JVS(9943) = -B(13476)-B(13478)-B(13479) -! JVS(9944) = Jac_FULL(2358,4787) - JVS(9944) = B(10279) -! JVS(9945) = Jac_FULL(2358,5250) - JVS(9945) = -B(13477) -! JVS(9946) = Jac_FULL(2358,5255) - JVS(9946) = B(10280) -! JVS(9947) = Jac_FULL(2359,2359) - JVS(9947) = -B(14811)-B(14812)-B(14813)-B(14814) -! JVS(9948) = Jac_FULL(2359,5249) - JVS(9948) = B(11430) -! JVS(9949) = Jac_FULL(2359,5258) - JVS(9949) = B(11431) -! JVS(9950) = Jac_FULL(2360,2360) - JVS(9950) = -B(19053)-B(19055) -! JVS(9951) = Jac_FULL(2360,3954) - JVS(9951) = B(16856) -! JVS(9952) = Jac_FULL(2360,5250) - JVS(9952) = -B(19054) -! JVS(9953) = Jac_FULL(2360,5255) - JVS(9953) = B(16857) -! JVS(9954) = Jac_FULL(2361,1326) - JVS(9954) = B(12010) -! JVS(9955) = Jac_FULL(2361,2361) - JVS(9955) = -B(12016) -! JVS(9956) = Jac_FULL(2361,3212) - JVS(9956) = B(12013) -! JVS(9957) = Jac_FULL(2361,4722) - JVS(9957) = B(8271)+B(8273)+B(8276) -! JVS(9958) = Jac_FULL(2361,5250) - JVS(9958) = 0 -! JVS(9959) = Jac_FULL(2361,5252) - JVS(9959) = B(8272) -! JVS(9960) = Jac_FULL(2361,5255) - JVS(9960) = 0 -! JVS(9961) = Jac_FULL(2361,5256) - JVS(9961) = B(8274) -! JVS(9962) = Jac_FULL(2362,2362) - JVS(9962) = -B(11199)-B(11201)-B(11202) -! JVS(9963) = Jac_FULL(2362,4148) - JVS(9963) = B(7413) -! JVS(9964) = Jac_FULL(2362,5250) - JVS(9964) = -B(11200) -! JVS(9965) = Jac_FULL(2362,5255) - JVS(9965) = B(7414) -! JVS(9966) = Jac_FULL(2363,2363) - JVS(9966) = -B(5042)-B(5044)-B(5046) -! JVS(9967) = Jac_FULL(2363,4881) - JVS(9967) = B(2188) -! JVS(9968) = Jac_FULL(2363,5250) - JVS(9968) = -B(5043)-B(5045) -! JVS(9969) = Jac_FULL(2363,5255) - JVS(9969) = B(2189) -! JVS(9970) = Jac_FULL(2364,2364) - JVS(9970) = -B(7772) -! JVS(9971) = Jac_FULL(2364,4908) - JVS(9971) = B(4036) -! JVS(9972) = Jac_FULL(2364,5243) - JVS(9972) = B(4039)+B(4050) -! JVS(9973) = Jac_FULL(2364,5250) - JVS(9973) = -B(7773) -! JVS(9974) = Jac_FULL(2364,5255) - JVS(9974) = B(4040) -! JVS(9975) = Jac_FULL(2365,2365) - JVS(9975) = -B(7036)-B(7038) -! JVS(9976) = Jac_FULL(2365,5151) - JVS(9976) = B(3240) -! JVS(9977) = Jac_FULL(2365,5250) - JVS(9977) = -B(7037) -! JVS(9978) = Jac_FULL(2365,5252) - JVS(9978) = B(3241) -! JVS(9979) = Jac_FULL(2366,2366) - JVS(9979) = -B(5075)-B(5077)-B(5079) -! JVS(9980) = Jac_FULL(2366,4723) - JVS(9980) = B(2212) -! JVS(9981) = Jac_FULL(2366,5250) - JVS(9981) = -B(5076)-B(5078) -! JVS(9982) = Jac_FULL(2366,5255) - JVS(9982) = B(2213) -! JVS(9983) = Jac_FULL(2367,2367) - JVS(9983) = -B(3676) -! JVS(9984) = Jac_FULL(2367,4574) - JVS(9984) = B(2037) -! JVS(9985) = Jac_FULL(2367,4645) - JVS(9985) = B(967) -! JVS(9986) = Jac_FULL(2367,5250) - JVS(9986) = -B(3677) -! JVS(9987) = Jac_FULL(2367,5252) - JVS(9987) = B(968) -! JVS(9988) = Jac_FULL(2368,2368) - JVS(9988) = -B(18593)-B(18595) -! JVS(9989) = Jac_FULL(2368,4153) - JVS(9989) = B(16277) -! JVS(9990) = Jac_FULL(2368,5250) - JVS(9990) = -B(18594) -! JVS(9991) = Jac_FULL(2368,5255) - JVS(9991) = B(16278) -! JVS(9992) = Jac_FULL(2369,2369) - JVS(9992) = -B(5003)-B(5005)-B(5007) -! JVS(9993) = Jac_FULL(2369,4777) - JVS(9993) = B(2160) -! JVS(9994) = Jac_FULL(2369,5250) - JVS(9994) = -B(5004)-B(5006) -! JVS(9995) = Jac_FULL(2369,5255) - JVS(9995) = B(2161) -! JVS(9996) = Jac_FULL(2370,2370) - JVS(9996) = -B(5156) -! JVS(9997) = Jac_FULL(2370,4607) - JVS(9997) = B(2301) -! JVS(9998) = Jac_FULL(2370,4884) - JVS(9998) = B(2285) -! JVS(9999) = Jac_FULL(2370,5250) - JVS(9999) = -B(5157) -! JVS(10000) = Jac_FULL(2370,5252) - JVS(10000) = B(2302) -! JVS(10001) = Jac_FULL(2371,2371) - JVS(10001) = -B(12308)-B(12309) -! JVS(10002) = Jac_FULL(2371,4283) - JVS(10002) = B(8637) -! JVS(10003) = Jac_FULL(2371,5250) - JVS(10003) = -B(12310) -! JVS(10004) = Jac_FULL(2371,5255) - JVS(10004) = B(8638) -! JVS(10005) = Jac_FULL(2372,2372) - JVS(10005) = -B(6113)-B(6115) -! JVS(10006) = Jac_FULL(2372,4055) - JVS(10006) = B(2774) -! JVS(10007) = Jac_FULL(2372,5250) - JVS(10007) = -B(6114) -! JVS(10008) = Jac_FULL(2372,5252) - JVS(10008) = B(2775) -! JVS(10009) = Jac_FULL(2373,2373) - JVS(10009) = -B(14711)-B(14713) -! JVS(10010) = Jac_FULL(2373,4249) - JVS(10010) = B(11369) -! JVS(10011) = Jac_FULL(2373,5250) - JVS(10011) = -B(14712) -! JVS(10012) = Jac_FULL(2373,5255) - JVS(10012) = B(11370) -! JVS(10013) = Jac_FULL(2374,1265) - JVS(10013) = B(3833) -! JVS(10014) = Jac_FULL(2374,2374) - JVS(10014) = -B(3839) -! JVS(10015) = Jac_FULL(2374,2542) - JVS(10015) = B(3836) -! JVS(10016) = Jac_FULL(2374,4844) - JVS(10016) = B(1090)+B(1092)+B(1094) -! JVS(10017) = Jac_FULL(2374,5250) - JVS(10017) = 0 -! JVS(10018) = Jac_FULL(2374,5252) - JVS(10018) = B(1091) -! JVS(10019) = Jac_FULL(2374,5255) - JVS(10019) = 0 -! JVS(10020) = Jac_FULL(2374,5256) - JVS(10020) = B(1093) -! JVS(10021) = Jac_FULL(2375,2375) - JVS(10021) = -B(13930)-B(13932) -! JVS(10022) = Jac_FULL(2375,3676) - JVS(10022) = B(10733) -! JVS(10023) = Jac_FULL(2375,5250) - JVS(10023) = -B(13931) -! JVS(10024) = Jac_FULL(2375,5252) - JVS(10024) = B(10734) -! JVS(10025) = Jac_FULL(2376,2376) - JVS(10025) = -B(12380) -! JVS(10026) = Jac_FULL(2376,2609) - JVS(10026) = B(12378) -! JVS(10027) = Jac_FULL(2376,4823) - JVS(10027) = B(8709)+B(8711)+B(8715) -! JVS(10028) = Jac_FULL(2376,5252) - JVS(10028) = B(8710) -! JVS(10029) = Jac_FULL(2376,5256) - JVS(10029) = B(8712) -! JVS(10030) = Jac_FULL(2377,821) - JVS(10030) = B(19257) -! JVS(10031) = Jac_FULL(2377,1260) - JVS(10031) = B(19248) -! JVS(10032) = Jac_FULL(2377,2377) - JVS(10032) = -B(19255) -! JVS(10033) = Jac_FULL(2377,2458) - JVS(10033) = B(19251) -! JVS(10034) = Jac_FULL(2377,2533) - JVS(10034) = B(19245) -! JVS(10035) = Jac_FULL(2377,3335) - JVS(10035) = B(17133) -! JVS(10036) = Jac_FULL(2377,5196) - JVS(10036) = B(17051) -! JVS(10037) = Jac_FULL(2377,5250) - JVS(10037) = B(19246)+B(19249)+B(19252)-B(19256)+B(19258) -! JVS(10038) = Jac_FULL(2377,5255) - JVS(10038) = 0 -! JVS(10039) = Jac_FULL(2378,2378) - JVS(10039) = -B(19303) -! JVS(10040) = Jac_FULL(2378,3985) - JVS(10040) = B(17078) -! JVS(10041) = Jac_FULL(2378,5250) - JVS(10041) = -B(19304) -! JVS(10042) = Jac_FULL(2378,5252) - JVS(10042) = B(17079) -! JVS(10043) = Jac_FULL(2379,2379) - JVS(10043) = -B(13217)-B(13219) -! JVS(10044) = Jac_FULL(2379,3232) - JVS(10044) = B(13214) -! JVS(10045) = Jac_FULL(2379,4041) - JVS(10045) = B(9811) -! JVS(10046) = Jac_FULL(2379,5250) - JVS(10046) = B(13215)-B(13218) -! JVS(10047) = Jac_FULL(2379,5255) - JVS(10047) = B(9812) -! JVS(10048) = Jac_FULL(2380,2380) - JVS(10048) = -B(21755)-B(21757) -! JVS(10049) = Jac_FULL(2380,5019) - JVS(10049) = B(20728) -! JVS(10050) = Jac_FULL(2380,5250) - JVS(10050) = -B(21756) -! JVS(10051) = Jac_FULL(2380,5255) - JVS(10051) = B(20729) -! JVS(10052) = Jac_FULL(2381,958) - JVS(10052) = B(19538) -! JVS(10053) = Jac_FULL(2381,2381) - JVS(10053) = -B(19027)-B(19029) -! JVS(10054) = Jac_FULL(2381,4926) - JVS(10054) = B(16816)+B(16827) -! JVS(10055) = Jac_FULL(2381,4957) - JVS(10055) = 0 -! JVS(10056) = Jac_FULL(2381,5250) - JVS(10056) = -B(19028)+B(19539) -! JVS(10057) = Jac_FULL(2381,5255) - JVS(10057) = B(16817) -! JVS(10058) = Jac_FULL(2382,2382) - JVS(10058) = -B(18774)-B(18776) -! JVS(10059) = Jac_FULL(2382,3443) - JVS(10059) = B(16557) -! JVS(10060) = Jac_FULL(2382,5250) - JVS(10060) = B(16558)-B(18775) -! JVS(10061) = Jac_FULL(2383,2383) - JVS(10061) = -B(5337)-B(5339) -! JVS(10062) = Jac_FULL(2383,3823) - JVS(10062) = B(2400) -! JVS(10063) = Jac_FULL(2383,5250) - JVS(10063) = -B(5338) -! JVS(10064) = Jac_FULL(2383,5252) - JVS(10064) = B(2401) -! JVS(10065) = Jac_FULL(2384,2384) - JVS(10065) = -B(12194)-B(12196) -! JVS(10066) = Jac_FULL(2384,4275) - JVS(10066) = B(8466) -! JVS(10067) = Jac_FULL(2384,5250) - JVS(10067) = -B(12195) -! JVS(10068) = Jac_FULL(2384,5255) - JVS(10068) = B(8467) -! JVS(10069) = Jac_FULL(2385,2385) - JVS(10069) = -B(331)-B(333)-B(335)-B(337)-B(339)-B(341)-B(343)-B(345) -! JVS(10070) = Jac_FULL(2385,5238) - JVS(10070) = -B(332)-B(334)-B(336)-B(338) -! JVS(10071) = Jac_FULL(2385,5250) - JVS(10071) = -B(340)-B(342)-B(344)-B(346) -! JVS(10072) = Jac_FULL(2386,2386) - JVS(10072) = -B(20857)-B(20859)-B(20860) -! JVS(10073) = Jac_FULL(2386,4236) - JVS(10073) = B(19292) -! JVS(10074) = Jac_FULL(2386,5250) - JVS(10074) = -B(20858) -! JVS(10075) = Jac_FULL(2386,5255) - JVS(10075) = B(19293) -! JVS(10076) = Jac_FULL(2387,2387) - JVS(10076) = -B(12144)-B(12145) -! JVS(10077) = Jac_FULL(2387,3691) - JVS(10077) = B(8398) -! JVS(10078) = Jac_FULL(2387,5250) - JVS(10078) = -B(12146) -! JVS(10079) = Jac_FULL(2387,5252) - JVS(10079) = B(8399) -! JVS(10080) = Jac_FULL(2388,2388) - JVS(10080) = -B(22275)-B(22277) -! JVS(10081) = Jac_FULL(2388,4445) - JVS(10081) = B(21502) -! JVS(10082) = Jac_FULL(2388,5250) - JVS(10082) = -B(22276) -! JVS(10083) = Jac_FULL(2388,5255) - JVS(10083) = B(21503) -! JVS(10084) = Jac_FULL(2389,2389) - JVS(10084) = -B(18630)-B(18632) -! JVS(10085) = Jac_FULL(2389,3680) - JVS(10085) = B(16321) -! JVS(10086) = Jac_FULL(2389,5250) - JVS(10086) = -B(18631) -! JVS(10087) = Jac_FULL(2389,5255) - JVS(10087) = B(16322) -! JVS(10088) = Jac_FULL(2390,2390) - JVS(10088) = -B(13347)-B(13349) -! JVS(10089) = Jac_FULL(2390,4533) - JVS(10089) = B(10122) -! JVS(10090) = Jac_FULL(2390,5250) - JVS(10090) = -B(13350) -! JVS(10091) = Jac_FULL(2390,5256) - JVS(10091) = -B(13348) -! JVS(10092) = Jac_FULL(2391,2391) - JVS(10092) = -B(3744)-B(3745)-B(3747) -! JVS(10093) = Jac_FULL(2391,5185) - JVS(10093) = B(1031) -! JVS(10094) = Jac_FULL(2391,5250) - JVS(10094) = -B(3746)-B(3748) -! JVS(10095) = Jac_FULL(2391,5255) - JVS(10095) = B(1032) -! JVS(10096) = Jac_FULL(2392,2392) - JVS(10096) = -B(16554)-B(16556) -! JVS(10097) = Jac_FULL(2392,5035) - JVS(10097) = B(13707) -! JVS(10098) = Jac_FULL(2392,5250) - JVS(10098) = -B(16555) -! JVS(10099) = Jac_FULL(2392,5255) - JVS(10099) = B(13708) -! JVS(10100) = Jac_FULL(2393,2393) - JVS(10100) = -B(12527)-B(12528)-B(12529)-B(12530) -! JVS(10101) = Jac_FULL(2393,5076) - JVS(10101) = B(8919) -! JVS(10102) = Jac_FULL(2393,5258) - JVS(10102) = B(8920) -! JVS(10103) = Jac_FULL(2394,2394) - JVS(10103) = -B(4914)-B(4916)-B(4918) -! JVS(10104) = Jac_FULL(2394,4593) - JVS(10104) = B(2083) -! JVS(10105) = Jac_FULL(2394,5250) - JVS(10105) = -B(4915)-B(4917) -! JVS(10106) = Jac_FULL(2394,5255) - JVS(10106) = B(2084) -! JVS(10107) = Jac_FULL(2395,1658) - JVS(10107) = B(14070) -! JVS(10108) = Jac_FULL(2395,2395) - JVS(10108) = -B(14072)-B(14073) -! JVS(10109) = Jac_FULL(2395,3287) - JVS(10109) = B(14066) -! JVS(10110) = Jac_FULL(2395,4126) - JVS(10110) = B(10872) -! JVS(10111) = Jac_FULL(2395,5250) - JVS(10111) = B(14067)+B(14071)-B(14074) -! JVS(10112) = Jac_FULL(2396,2396) - JVS(10112) = -B(12232)-B(12234) -! JVS(10113) = Jac_FULL(2396,4281) - JVS(10113) = B(8523) -! JVS(10114) = Jac_FULL(2396,5250) - JVS(10114) = -B(12233) -! JVS(10115) = Jac_FULL(2396,5255) - JVS(10115) = B(8524) -! JVS(10116) = Jac_FULL(2397,2397) - JVS(10116) = -B(14075)-B(14076) -! JVS(10117) = Jac_FULL(2397,5117) - JVS(10117) = B(10873)+B(10885) -! JVS(10118) = Jac_FULL(2397,5250) - JVS(10118) = -B(14077) -! JVS(10119) = Jac_FULL(2397,5255) - JVS(10119) = B(10874) -! JVS(10120) = Jac_FULL(2398,2398) - JVS(10120) = -B(12977)-B(12979) -! JVS(10121) = Jac_FULL(2398,4743) - JVS(10121) = B(9510) -! JVS(10122) = Jac_FULL(2398,5250) - JVS(10122) = -B(12980) -! JVS(10123) = Jac_FULL(2398,5256) - JVS(10123) = -B(12978) -! JVS(10124) = Jac_FULL(2399,918) - JVS(10124) = B(7656) -! JVS(10125) = Jac_FULL(2399,2399) - JVS(10125) = -B(7661) -! JVS(10126) = Jac_FULL(2399,3533) - JVS(10126) = B(7659) -! JVS(10127) = Jac_FULL(2399,5239) - JVS(10127) = B(3827)+B(3829)+B(3831) -! JVS(10128) = Jac_FULL(2399,5250) - JVS(10128) = 0 -! JVS(10129) = Jac_FULL(2399,5252) - JVS(10129) = B(3828) -! JVS(10130) = Jac_FULL(2399,5255) - JVS(10130) = 0 -! JVS(10131) = Jac_FULL(2399,5256) - JVS(10131) = B(3830) -! JVS(10132) = Jac_FULL(2400,2400) - JVS(10132) = -B(7062)-B(7064)-B(7066) -! JVS(10133) = Jac_FULL(2400,5161) - JVS(10133) = B(3265) -! JVS(10134) = Jac_FULL(2400,5250) - JVS(10134) = -B(7063)-B(7065) -! JVS(10135) = Jac_FULL(2400,5255) - JVS(10135) = B(3266) -! JVS(10136) = Jac_FULL(2401,2401) - JVS(10136) = -B(7168)-B(7170)-B(7172) -! JVS(10137) = Jac_FULL(2401,4356) - JVS(10137) = B(3355) -! JVS(10138) = Jac_FULL(2401,5250) - JVS(10138) = -B(7169)-B(7171) -! JVS(10139) = Jac_FULL(2401,5255) - JVS(10139) = B(3356) -! JVS(10140) = Jac_FULL(2402,2402) - JVS(10140) = -B(13886)-B(13888) -! JVS(10141) = Jac_FULL(2402,4269) - JVS(10141) = B(10650) -! JVS(10142) = Jac_FULL(2402,5250) - JVS(10142) = -B(13887) -! JVS(10143) = Jac_FULL(2402,5255) - JVS(10143) = B(10651) -! JVS(10144) = Jac_FULL(2403,2403) - JVS(10144) = -B(4674)-B(4675) -! JVS(10145) = Jac_FULL(2403,4886) - JVS(10145) = B(1858) -! JVS(10146) = Jac_FULL(2403,5250) - JVS(10146) = -B(4676) -! JVS(10147) = Jac_FULL(2403,5252) - JVS(10147) = B(1859) -! JVS(10148) = Jac_FULL(2404,2404) - JVS(10148) = -B(22366)-B(22368) -! JVS(10149) = Jac_FULL(2404,4560) - JVS(10149) = B(21739) -! JVS(10150) = Jac_FULL(2404,5250) - JVS(10150) = -B(22367) -! JVS(10151) = Jac_FULL(2404,5255) - JVS(10151) = B(21740) -! JVS(10152) = Jac_FULL(2405,2405) - JVS(10152) = -B(13993)-B(13995) -! JVS(10153) = Jac_FULL(2405,4368) - JVS(10153) = B(10787) -! JVS(10154) = Jac_FULL(2405,5250) - JVS(10154) = -B(13994) -! JVS(10155) = Jac_FULL(2405,5252) - JVS(10155) = B(10788) -! JVS(10156) = Jac_FULL(2406,2406) - JVS(10156) = -B(5798)-B(5800) -! JVS(10157) = Jac_FULL(2406,3804) - JVS(10157) = B(2618) -! JVS(10158) = Jac_FULL(2406,5250) - JVS(10158) = -B(5799) -! JVS(10159) = Jac_FULL(2406,5252) - JVS(10159) = B(2619) -! JVS(10160) = Jac_FULL(2407,2407) - JVS(10160) = -B(17173)-B(17175) -! JVS(10161) = Jac_FULL(2407,3872) - JVS(10161) = B(14520) -! JVS(10162) = Jac_FULL(2407,5250) - JVS(10162) = -B(17174) -! JVS(10163) = Jac_FULL(2407,5255) - JVS(10163) = B(14521) -! JVS(10164) = Jac_FULL(2408,2408) - JVS(10164) = -B(21075)-B(21077) -! JVS(10165) = Jac_FULL(2408,4764) - JVS(10165) = B(19507) -! JVS(10166) = Jac_FULL(2408,5250) - JVS(10166) = -B(21076) -! JVS(10167) = Jac_FULL(2408,5252) - JVS(10167) = B(19508) -! JVS(10168) = Jac_FULL(2409,2409) - JVS(10168) = -B(4615)-B(4616)-B(4618) -! JVS(10169) = Jac_FULL(2409,5045) - JVS(10169) = B(1813) -! JVS(10170) = Jac_FULL(2409,5250) - JVS(10170) = -B(4617)-B(4619) -! JVS(10171) = Jac_FULL(2409,5255) - JVS(10171) = B(1814) -! JVS(10172) = Jac_FULL(2410,2410) - JVS(10172) = -B(11633)-B(11635) -! JVS(10173) = Jac_FULL(2410,5038) - JVS(10173) = B(7883) -! JVS(10174) = Jac_FULL(2410,5250) - JVS(10174) = -B(11634) -! JVS(10175) = Jac_FULL(2410,5255) - JVS(10175) = B(7884) -! JVS(10176) = Jac_FULL(2411,2411) - JVS(10176) = -B(17976)-B(17977) -! JVS(10177) = Jac_FULL(2411,3916) - JVS(10177) = B(15368) -! JVS(10178) = Jac_FULL(2411,5250) - JVS(10178) = -B(17978) -! JVS(10179) = Jac_FULL(2411,5255) - JVS(10179) = B(15369) -! JVS(10180) = Jac_FULL(2412,2412) - JVS(10180) = -B(7748)-B(7750) -! JVS(10181) = Jac_FULL(2412,5232) - JVS(10181) = B(3986) -! JVS(10182) = Jac_FULL(2412,5250) - JVS(10182) = -B(7749) -! JVS(10183) = Jac_FULL(2412,5255) - JVS(10183) = B(3987) -! JVS(10184) = Jac_FULL(2413,2413) - JVS(10184) = -B(4972)-B(4974)-B(4976) -! JVS(10185) = Jac_FULL(2413,4714) - JVS(10185) = B(2127) -! JVS(10186) = Jac_FULL(2413,5250) - JVS(10186) = -B(4973)-B(4975) -! JVS(10187) = Jac_FULL(2413,5255) - JVS(10187) = B(2128) -! JVS(10188) = Jac_FULL(2414,2414) - JVS(10188) = -B(22205)-B(22207) -! JVS(10189) = Jac_FULL(2414,4489) - JVS(10189) = B(21299) -! JVS(10190) = Jac_FULL(2414,5250) - JVS(10190) = -B(22206) -! JVS(10191) = Jac_FULL(2414,5255) - JVS(10191) = B(21300) -! JVS(10192) = Jac_FULL(2415,95) - JVS(10192) = B(7312) -! JVS(10193) = Jac_FULL(2415,1241) - JVS(10193) = B(7307) -! JVS(10194) = Jac_FULL(2415,2415) - JVS(10194) = -B(7311) -! JVS(10195) = Jac_FULL(2415,2626) - JVS(10195) = B(7310) -! JVS(10196) = Jac_FULL(2415,4091) - JVS(10196) = B(3453)+B(3455)+B(3457) -! JVS(10197) = Jac_FULL(2415,5250) - JVS(10197) = B(7313) -! JVS(10198) = Jac_FULL(2415,5252) - JVS(10198) = B(3454) -! JVS(10199) = Jac_FULL(2415,5255) - JVS(10199) = 0 -! JVS(10200) = Jac_FULL(2415,5256) - JVS(10200) = B(3456) -! JVS(10201) = Jac_FULL(2416,2416) - JVS(10201) = -B(4478)-B(4479)-B(4481) -! JVS(10202) = Jac_FULL(2416,4942) - JVS(10202) = B(1705) -! JVS(10203) = Jac_FULL(2416,5250) - JVS(10203) = -B(4480)-B(4482) -! JVS(10204) = Jac_FULL(2416,5255) - JVS(10204) = B(1706) -! JVS(10205) = Jac_FULL(2417,2417) - JVS(10205) = -B(16187)-B(16189) -! JVS(10206) = Jac_FULL(2417,4416) - JVS(10206) = B(13121) -! JVS(10207) = Jac_FULL(2417,5250) - JVS(10207) = -B(16188) -! JVS(10208) = Jac_FULL(2417,5255) - JVS(10208) = B(13122) -! JVS(10209) = Jac_FULL(2418,2418) - JVS(10209) = -B(5886)-B(5888) -! JVS(10210) = Jac_FULL(2418,3794) - JVS(10210) = B(2661) -! JVS(10211) = Jac_FULL(2418,5250) - JVS(10211) = -B(5887) -! JVS(10212) = Jac_FULL(2418,5252) - JVS(10212) = B(2662) -! JVS(10213) = Jac_FULL(2419,2419) - JVS(10213) = -B(17722)-B(17723) -! JVS(10214) = Jac_FULL(2419,4058) - JVS(10214) = B(15152) -! JVS(10215) = Jac_FULL(2419,5250) - JVS(10215) = -B(17724) -! JVS(10216) = Jac_FULL(2419,5252) - JVS(10216) = B(15153) -! JVS(10217) = Jac_FULL(2420,2420) - JVS(10217) = -B(13288)-B(13290) -! JVS(10218) = Jac_FULL(2420,4152) - JVS(10218) = B(9983) -! JVS(10219) = Jac_FULL(2420,5250) - JVS(10219) = -B(13291) -! JVS(10220) = Jac_FULL(2420,5256) - JVS(10220) = -B(13289) -! JVS(10221) = Jac_FULL(2421,2421) - JVS(10221) = -B(155)-B(157) -! JVS(10222) = Jac_FULL(2421,5121) - JVS(10222) = B(949) -! JVS(10223) = Jac_FULL(2421,5202) - JVS(10223) = B(964) -! JVS(10224) = Jac_FULL(2421,5250) - JVS(10224) = -B(156)-B(158) -! JVS(10225) = Jac_FULL(2422,2422) - JVS(10225) = -B(4495)-B(4496)-B(4498) -! JVS(10226) = Jac_FULL(2422,5109) - JVS(10226) = B(1716) -! JVS(10227) = Jac_FULL(2422,5250) - JVS(10227) = -B(4497)-B(4499) -! JVS(10228) = Jac_FULL(2422,5255) - JVS(10228) = B(1717) -! JVS(10229) = Jac_FULL(2423,2423) - JVS(10229) = -B(19076)-B(19078) -! JVS(10230) = Jac_FULL(2423,3905) - JVS(10230) = B(16880) -! JVS(10231) = Jac_FULL(2423,5250) - JVS(10231) = -B(19077) -! JVS(10232) = Jac_FULL(2423,5255) - JVS(10232) = B(16881) -! JVS(10233) = Jac_FULL(2424,2424) - JVS(10233) = -B(14051)-B(14053)-B(14054) -! JVS(10234) = Jac_FULL(2424,4169) - JVS(10234) = B(10855) -! JVS(10235) = Jac_FULL(2424,5250) - JVS(10235) = -B(14052) -! JVS(10236) = Jac_FULL(2424,5255) - JVS(10236) = B(10856) -! JVS(10237) = Jac_FULL(2425,2425) - JVS(10237) = -B(6890)-B(6891)-B(6892)-B(6893) -! JVS(10238) = Jac_FULL(2425,4907) - JVS(10238) = B(3150) -! JVS(10239) = Jac_FULL(2425,5258) - JVS(10239) = B(3151) -! JVS(10240) = Jac_FULL(2426,2426) - JVS(10240) = -B(17701)-B(17702)-B(17703) -! JVS(10241) = Jac_FULL(2426,3948) - JVS(10241) = B(15128) -! JVS(10242) = Jac_FULL(2426,5250) - JVS(10242) = -B(17704) -! JVS(10243) = Jac_FULL(2426,5255) - JVS(10243) = B(15129) -! JVS(10244) = Jac_FULL(2427,2427) - JVS(10244) = -B(4186)-B(4187) -! JVS(10245) = Jac_FULL(2427,5145) - JVS(10245) = B(1400) -! JVS(10246) = Jac_FULL(2427,5250) - JVS(10246) = -B(4188) -! JVS(10247) = Jac_FULL(2427,5252) - JVS(10247) = B(1401) -! JVS(10248) = Jac_FULL(2428,2428) - JVS(10248) = -B(14096)-B(14097)-B(14098) -! JVS(10249) = Jac_FULL(2428,4446) - JVS(10249) = B(10901) -! JVS(10250) = Jac_FULL(2428,5250) - JVS(10250) = -B(14099) -! JVS(10251) = Jac_FULL(2428,5255) - JVS(10251) = B(10902) -! JVS(10252) = Jac_FULL(2429,2429) - JVS(10252) = -B(20306)-B(20307) -! JVS(10253) = Jac_FULL(2429,4460) - JVS(10253) = B(18709) -! JVS(10254) = Jac_FULL(2429,5250) - JVS(10254) = -B(20308) -! JVS(10255) = Jac_FULL(2429,5255) - JVS(10255) = B(18710) -! JVS(10256) = Jac_FULL(2430,2430) - JVS(10256) = -B(19994) -! JVS(10257) = Jac_FULL(2430,2769) - JVS(10257) = B(19992) -! JVS(10258) = Jac_FULL(2430,4742) - JVS(10258) = B(18202)+B(18204)+B(18206) -! JVS(10259) = Jac_FULL(2430,5252) - JVS(10259) = B(18203) -! JVS(10260) = Jac_FULL(2430,5256) - JVS(10260) = B(18205) -! JVS(10261) = Jac_FULL(2431,2431) - JVS(10261) = -B(13585)-B(13586) -! JVS(10262) = Jac_FULL(2431,4259) - JVS(10262) = B(10401) -! JVS(10263) = Jac_FULL(2431,5250) - JVS(10263) = -B(13587) -! JVS(10264) = Jac_FULL(2431,5255) - JVS(10264) = B(10402) -! JVS(10265) = Jac_FULL(2432,2432) - JVS(10265) = -B(4779)-B(4781) -! JVS(10266) = Jac_FULL(2432,5138) - JVS(10266) = B(1955) -! JVS(10267) = Jac_FULL(2432,5250) - JVS(10267) = -B(4780) -! JVS(10268) = Jac_FULL(2432,5252) - JVS(10268) = B(1956) -! JVS(10269) = Jac_FULL(2433,2433) - JVS(10269) = -B(3669) -! JVS(10270) = Jac_FULL(2433,4370) - JVS(10270) = B(2014) -! JVS(10271) = Jac_FULL(2433,5202) - JVS(10271) = B(958) -! JVS(10272) = Jac_FULL(2433,5250) - JVS(10272) = -B(3670) -! JVS(10273) = Jac_FULL(2433,5252) - JVS(10273) = B(959) -! JVS(10274) = Jac_FULL(2434,2434) - JVS(10274) = -B(11560)-B(11562) -! JVS(10275) = Jac_FULL(2434,4316) - JVS(10275) = B(7763) -! JVS(10276) = Jac_FULL(2434,5250) - JVS(10276) = -B(11561) -! JVS(10277) = Jac_FULL(2434,5255) - JVS(10277) = B(7764) -! JVS(10278) = Jac_FULL(2435,2435) - JVS(10278) = -B(4379)-B(4381)-B(4383) -! JVS(10279) = Jac_FULL(2435,5062) - JVS(10279) = B(1597) -! JVS(10280) = Jac_FULL(2435,5250) - JVS(10280) = -B(4380)-B(4382) -! JVS(10281) = Jac_FULL(2435,5255) - JVS(10281) = B(1598) -! JVS(10282) = Jac_FULL(2436,2436) - JVS(10282) = -B(10703)-B(10704) -! JVS(10283) = Jac_FULL(2436,5127) - JVS(10283) = B(6896) -! JVS(10284) = Jac_FULL(2436,5250) - JVS(10284) = -B(10705) -! JVS(10285) = Jac_FULL(2436,5252) - JVS(10285) = B(6897) -! JVS(10286) = Jac_FULL(2437,2437) - JVS(10286) = -B(23941)-B(23943)-B(23944) -! JVS(10287) = Jac_FULL(2437,4116) - JVS(10287) = B(23824) -! JVS(10288) = Jac_FULL(2437,5250) - JVS(10288) = -B(23942) -! JVS(10289) = Jac_FULL(2437,5255) - JVS(10289) = B(23825) -! JVS(10290) = Jac_FULL(2438,1671) - JVS(10290) = B(3944) -! JVS(10291) = Jac_FULL(2438,2438) - JVS(10291) = -B(3941)-B(3943) -! JVS(10292) = Jac_FULL(2438,3623) - JVS(10292) = B(3934) -! JVS(10293) = Jac_FULL(2438,4780) - JVS(10293) = B(1178) -! JVS(10294) = Jac_FULL(2438,5250) - JVS(10294) = B(3935)-B(3942)+B(3945) -! JVS(10295) = Jac_FULL(2439,2439) - JVS(10295) = -B(17187)-B(17189) -! JVS(10296) = Jac_FULL(2439,4762) - JVS(10296) = B(14562) -! JVS(10297) = Jac_FULL(2439,5250) - JVS(10297) = -B(17188) -! JVS(10298) = Jac_FULL(2439,5255) - JVS(10298) = B(14563) -! JVS(10299) = Jac_FULL(2440,2440) - JVS(10299) = -B(23137)-B(23139) -! JVS(10300) = Jac_FULL(2440,4130) - JVS(10300) = B(22676) -! JVS(10301) = Jac_FULL(2440,5250) - JVS(10301) = -B(23138) -! JVS(10302) = Jac_FULL(2440,5255) - JVS(10302) = B(22677) -! JVS(10303) = Jac_FULL(2441,2441) - JVS(10303) = -B(4938) -! JVS(10304) = Jac_FULL(2441,4598) - JVS(10304) = B(2107) -! JVS(10305) = Jac_FULL(2441,4972) - JVS(10305) = B(2100) -! JVS(10306) = Jac_FULL(2441,5250) - JVS(10306) = -B(4939) -! JVS(10307) = Jac_FULL(2441,5252) - JVS(10307) = B(2108) -! JVS(10308) = Jac_FULL(2442,2442) - JVS(10308) = -B(4832)-B(4834)-B(4836) -! JVS(10309) = Jac_FULL(2442,4370) - JVS(10309) = B(2007) -! JVS(10310) = Jac_FULL(2442,5250) - JVS(10310) = -B(4833)-B(4835) -! JVS(10311) = Jac_FULL(2442,5255) - JVS(10311) = B(2008) -! JVS(10312) = Jac_FULL(2443,2443) - JVS(10312) = -B(21365)-B(21367) -! JVS(10313) = Jac_FULL(2443,4253) - JVS(10313) = B(20028) -! JVS(10314) = Jac_FULL(2443,5250) - JVS(10314) = -B(21366) -! JVS(10315) = Jac_FULL(2443,5255) - JVS(10315) = B(20029) -! JVS(10316) = Jac_FULL(2444,2444) - JVS(10316) = -B(23514)-B(23516) -! JVS(10317) = Jac_FULL(2444,3841) - JVS(10317) = B(23170) -! JVS(10318) = Jac_FULL(2444,5250) - JVS(10318) = -B(23515) -! JVS(10319) = Jac_FULL(2444,5252) - JVS(10319) = B(23171) -! JVS(10320) = Jac_FULL(2445,2445) - JVS(10320) = -B(22923)-B(22925) -! JVS(10321) = Jac_FULL(2445,4644) - JVS(10321) = B(22482) -! JVS(10322) = Jac_FULL(2445,5250) - JVS(10322) = -B(22924) -! JVS(10323) = Jac_FULL(2445,5255) - JVS(10323) = B(22483) -! JVS(10324) = Jac_FULL(2446,2446) - JVS(10324) = -B(16110)-B(16112) -! JVS(10325) = Jac_FULL(2446,3762) - JVS(10325) = B(13020) -! JVS(10326) = Jac_FULL(2446,5250) - JVS(10326) = -B(16111) -! JVS(10327) = Jac_FULL(2446,5255) - JVS(10327) = B(13021) -! JVS(10328) = Jac_FULL(2447,2447) - JVS(10328) = -B(4992) -! JVS(10329) = Jac_FULL(2447,4476) - JVS(10329) = B(2151) -! JVS(10330) = Jac_FULL(2447,4782) - JVS(10330) = B(2144) -! JVS(10331) = Jac_FULL(2447,5250) - JVS(10331) = -B(4993) -! JVS(10332) = Jac_FULL(2447,5252) - JVS(10332) = B(2152) -! JVS(10333) = Jac_FULL(2448,1698) - JVS(10333) = B(8738) -! JVS(10334) = Jac_FULL(2448,2448) - JVS(10334) = -B(8735)-B(8737) -! JVS(10335) = Jac_FULL(2448,3022) - JVS(10335) = B(8730) -! JVS(10336) = Jac_FULL(2448,4513) - JVS(10336) = B(5255) -! JVS(10337) = Jac_FULL(2448,5250) - JVS(10337) = B(8731)-B(8736)+B(8739) -! JVS(10338) = Jac_FULL(2449,2449) - JVS(10338) = -B(4982)-B(4984)-B(4986) -! JVS(10339) = Jac_FULL(2449,4782) - JVS(10339) = B(2136) -! JVS(10340) = Jac_FULL(2449,5250) - JVS(10340) = -B(4983)-B(4985) -! JVS(10341) = Jac_FULL(2449,5255) - JVS(10341) = B(2137) -! JVS(10342) = Jac_FULL(2450,2450) - JVS(10342) = -B(23913)-B(23915) -! JVS(10343) = Jac_FULL(2450,3724) - JVS(10343) = B(23773) -! JVS(10344) = Jac_FULL(2450,5250) - JVS(10344) = -B(23914) -! JVS(10345) = Jac_FULL(2450,5255) - JVS(10345) = B(23774) -! JVS(10346) = Jac_FULL(2451,2451) - JVS(10346) = -B(7452)-B(7454) -! JVS(10347) = Jac_FULL(2451,3863) - JVS(10347) = B(3533) -! JVS(10348) = Jac_FULL(2451,5250) - JVS(10348) = -B(7453) -! JVS(10349) = Jac_FULL(2451,5255) - JVS(10349) = B(3534) -! JVS(10350) = Jac_FULL(2452,354) - JVS(10350) = B(16894)+B(16896) -! JVS(10351) = Jac_FULL(2452,1353) - JVS(10351) = B(16889) -! JVS(10352) = Jac_FULL(2452,2452) - JVS(10352) = -B(16893) -! JVS(10353) = Jac_FULL(2452,2742) - JVS(10353) = B(16892) -! JVS(10354) = Jac_FULL(2452,3955) - JVS(10354) = B(14248)+B(14250)+B(14252) -! JVS(10355) = Jac_FULL(2452,5250) - JVS(10355) = B(16895) -! JVS(10356) = Jac_FULL(2452,5252) - JVS(10356) = B(14249) -! JVS(10357) = Jac_FULL(2452,5255) - JVS(10357) = 0 -! JVS(10358) = Jac_FULL(2452,5256) - JVS(10358) = B(14251) -! JVS(10359) = Jac_FULL(2453,2453) - JVS(10359) = -B(7210)-B(7211) -! JVS(10360) = Jac_FULL(2453,3836) - JVS(10360) = B(3387) -! JVS(10361) = Jac_FULL(2453,5250) - JVS(10361) = -B(7212) -! JVS(10362) = Jac_FULL(2453,5252) - JVS(10362) = B(3388) -! JVS(10363) = Jac_FULL(2454,2454) - JVS(10363) = -B(15577)-B(15579) -! JVS(10364) = Jac_FULL(2454,3692) - JVS(10364) = B(12477) -! JVS(10365) = Jac_FULL(2454,5250) - JVS(10365) = -B(15578) -! JVS(10366) = Jac_FULL(2454,5255) - JVS(10366) = B(12478) -! JVS(10367) = Jac_FULL(2455,2455) - JVS(10367) = -B(5146)-B(5148)-B(5150) -! JVS(10368) = Jac_FULL(2455,4884) - JVS(10368) = B(2277) -! JVS(10369) = Jac_FULL(2455,5250) - JVS(10369) = -B(5147)-B(5149) -! JVS(10370) = Jac_FULL(2455,5255) - JVS(10370) = B(2278) -! JVS(10371) = Jac_FULL(2456,2456) - JVS(10371) = -B(3639)-B(3640)-B(3642) -! JVS(10372) = Jac_FULL(2456,4995) - JVS(10372) = B(932) -! JVS(10373) = Jac_FULL(2456,5250) - JVS(10373) = -B(3641)-B(3643) -! JVS(10374) = Jac_FULL(2456,5255) - JVS(10374) = B(933) -! JVS(10375) = Jac_FULL(2457,493) - JVS(10375) = B(20744)+B(20746) -! JVS(10376) = Jac_FULL(2457,1367) - JVS(10376) = B(20739) -! JVS(10377) = Jac_FULL(2457,2457) - JVS(10377) = -B(20743) -! JVS(10378) = Jac_FULL(2457,2629) - JVS(10378) = B(20742) -! JVS(10379) = Jac_FULL(2457,4119) - JVS(10379) = B(19145)+B(19147)+B(19149) -! JVS(10380) = Jac_FULL(2457,5250) - JVS(10380) = B(20745) -! JVS(10381) = Jac_FULL(2457,5252) - JVS(10381) = B(19146) -! JVS(10382) = Jac_FULL(2457,5255) - JVS(10382) = 0 -! JVS(10383) = Jac_FULL(2457,5256) - JVS(10383) = B(19148) -! JVS(10384) = Jac_FULL(2458,2458) - JVS(10384) = -B(19251)-B(19253) -! JVS(10385) = Jac_FULL(2458,5196) - JVS(10385) = B(17045) -! JVS(10386) = Jac_FULL(2458,5250) - JVS(10386) = -B(19252) -! JVS(10387) = Jac_FULL(2458,5252) - JVS(10387) = B(17046) -! JVS(10388) = Jac_FULL(2459,2459) - JVS(10388) = -B(3860)-B(3861) -! JVS(10389) = Jac_FULL(2459,5148) - JVS(10389) = B(1109) -! JVS(10390) = Jac_FULL(2459,5250) - JVS(10390) = -B(3862) -! JVS(10391) = Jac_FULL(2459,5252) - JVS(10391) = B(1110) -! JVS(10392) = Jac_FULL(2460,2460) - JVS(10392) = -B(12202)-B(12204) -! JVS(10393) = Jac_FULL(2460,4452) - JVS(10393) = B(8479) -! JVS(10394) = Jac_FULL(2460,5250) - JVS(10394) = -B(12203) -! JVS(10395) = Jac_FULL(2460,5255) - JVS(10395) = B(8480) -! JVS(10396) = Jac_FULL(2461,2461) - JVS(10396) = -B(13916)-B(13918) -! JVS(10397) = Jac_FULL(2461,4060) - JVS(10397) = B(10722) -! JVS(10398) = Jac_FULL(2461,5250) - JVS(10398) = -B(13917) -! JVS(10399) = Jac_FULL(2461,5252) - JVS(10399) = B(10723) -! JVS(10400) = Jac_FULL(2462,2462) - JVS(10400) = -B(14328)-B(14330) -! JVS(10401) = Jac_FULL(2462,4089) - JVS(10401) = B(11104) -! JVS(10402) = Jac_FULL(2462,5250) - JVS(10402) = -B(14329) -! JVS(10403) = Jac_FULL(2462,5252) - JVS(10403) = B(11105) -! JVS(10404) = Jac_FULL(2463,2463) - JVS(10404) = -B(4162)-B(4164)-B(4166) -! JVS(10405) = Jac_FULL(2463,3847) - JVS(10405) = B(1379) -! JVS(10406) = Jac_FULL(2463,5250) - JVS(10406) = -B(4163)-B(4165) -! JVS(10407) = Jac_FULL(2463,5255) - JVS(10407) = B(1380) -! JVS(10408) = Jac_FULL(2464,2464) - JVS(10408) = -B(12705)-B(12707) -! JVS(10409) = Jac_FULL(2464,4448) - JVS(10409) = B(9144) -! JVS(10410) = Jac_FULL(2464,5250) - JVS(10410) = -B(12708) -! JVS(10411) = Jac_FULL(2464,5256) - JVS(10411) = -B(12706) -! JVS(10412) = Jac_FULL(2465,298) - JVS(10412) = B(110) -! JVS(10413) = Jac_FULL(2465,855) - JVS(10413) = B(4400) -! JVS(10414) = Jac_FULL(2465,2465) - JVS(10414) = -B(1030) -! JVS(10415) = Jac_FULL(2465,2687) - JVS(10415) = B(4403) -! JVS(10416) = Jac_FULL(2465,4981) - JVS(10416) = B(1623)+B(1625)+B(1628) -! JVS(10417) = Jac_FULL(2465,5250) - JVS(10417) = B(111) -! JVS(10418) = Jac_FULL(2465,5252) - JVS(10418) = B(1624) -! JVS(10419) = Jac_FULL(2465,5255) - JVS(10419) = 0 -! JVS(10420) = Jac_FULL(2465,5256) - JVS(10420) = B(1626) -! JVS(10421) = Jac_FULL(2466,2466) - JVS(10421) = -B(12298)-B(12300) -! JVS(10422) = Jac_FULL(2466,4889) - JVS(10422) = B(8626) -! JVS(10423) = Jac_FULL(2466,5250) - JVS(10423) = -B(12299) -! JVS(10424) = Jac_FULL(2466,5255) - JVS(10424) = B(8627) -! JVS(10425) = Jac_FULL(2467,392) - JVS(10425) = B(15643) -! JVS(10426) = Jac_FULL(2467,2467) - JVS(10426) = -B(15640)-B(15642) -! JVS(10427) = Jac_FULL(2467,3214) - JVS(10427) = B(15634) -! JVS(10428) = Jac_FULL(2467,4669) - JVS(10428) = B(12552) -! JVS(10429) = Jac_FULL(2467,5250) - JVS(10429) = B(15635)-B(15641)+B(15644) -! JVS(10430) = Jac_FULL(2468,2468) - JVS(10430) = -B(8759)-B(8761) -! JVS(10431) = Jac_FULL(2468,3903) - JVS(10431) = B(5279) -! JVS(10432) = Jac_FULL(2468,5250) - JVS(10432) = -B(8760) -! JVS(10433) = Jac_FULL(2469,2469) - JVS(10433) = -B(11343)-B(11345)-B(11346) -! JVS(10434) = Jac_FULL(2469,4754) - JVS(10434) = B(7511) -! JVS(10435) = Jac_FULL(2469,5250) - JVS(10435) = -B(11344) -! JVS(10436) = Jac_FULL(2469,5255) - JVS(10436) = B(7512) -! JVS(10437) = Jac_FULL(2470,2470) - JVS(10437) = -B(3592)-B(3593)-B(3594)-B(3595) -! JVS(10438) = Jac_FULL(2470,4988) - JVS(10438) = B(910) -! JVS(10439) = Jac_FULL(2470,5258) - JVS(10439) = B(911) -! JVS(10440) = Jac_FULL(2471,142) - JVS(10440) = B(21281) -! JVS(10441) = Jac_FULL(2471,2471) - JVS(10441) = -B(15459) -! JVS(10442) = Jac_FULL(2471,3478) - JVS(10442) = 0 -! JVS(10443) = Jac_FULL(2471,3712) - JVS(10443) = B(12363) -! JVS(10444) = Jac_FULL(2471,4029) - JVS(10444) = B(12935) -! JVS(10445) = Jac_FULL(2471,4062) - JVS(10445) = B(12838) -! JVS(10446) = Jac_FULL(2471,4071) - JVS(10446) = B(12494) -! JVS(10447) = Jac_FULL(2471,4086) - JVS(10447) = B(13030) -! JVS(10448) = Jac_FULL(2471,5250) - JVS(10448) = -B(15460) -! JVS(10449) = Jac_FULL(2472,2472) - JVS(10449) = -B(13041)-B(13043)-B(13044) -! JVS(10450) = Jac_FULL(2472,4393) - JVS(10450) = B(9584) -! JVS(10451) = Jac_FULL(2472,5250) - JVS(10451) = -B(13042) -! JVS(10452) = Jac_FULL(2473,578) - JVS(10452) = B(4013) -! JVS(10453) = Jac_FULL(2473,1080) - JVS(10453) = B(12257) -! JVS(10454) = Jac_FULL(2473,2473) - JVS(10454) = -B(7760) -! JVS(10455) = Jac_FULL(2473,3198) - JVS(10455) = 0 -! JVS(10456) = Jac_FULL(2473,3888) - JVS(10456) = B(8563)+B(8565)+B(8567) -! JVS(10457) = Jac_FULL(2473,4585) - JVS(10457) = 0 -! JVS(10458) = Jac_FULL(2473,5250) - JVS(10458) = B(4014) -! JVS(10459) = Jac_FULL(2473,5252) - JVS(10459) = B(8564) -! JVS(10460) = Jac_FULL(2473,5255) - JVS(10460) = 0 -! JVS(10461) = Jac_FULL(2473,5256) - JVS(10461) = B(8566) -! JVS(10462) = Jac_FULL(2474,2474) - JVS(10462) = -B(12947)-B(12949)-B(12950) -! JVS(10463) = Jac_FULL(2474,4388) - JVS(10463) = B(9473) -! JVS(10464) = Jac_FULL(2474,5250) - JVS(10464) = -B(12948) -! JVS(10465) = Jac_FULL(2475,2475) - JVS(10465) = -B(23362)-B(23364)-B(23365) -! JVS(10466) = Jac_FULL(2475,4625) - JVS(10466) = B(22973) -! JVS(10467) = Jac_FULL(2475,5250) - JVS(10467) = -B(23363) -! JVS(10468) = Jac_FULL(2476,2476) - JVS(10468) = -B(3112)-B(3113)-B(3114)-B(3115) -! JVS(10469) = Jac_FULL(2476,5166) - JVS(10469) = B(783) -! JVS(10470) = Jac_FULL(2476,5258) - JVS(10470) = B(784) -! JVS(10471) = Jac_FULL(2477,2477) - JVS(10471) = -B(9215)-B(9217)-B(9218) -! JVS(10472) = Jac_FULL(2477,4893) - JVS(10472) = B(5633) -! JVS(10473) = Jac_FULL(2477,5250) - JVS(10473) = -B(9216) -! JVS(10474) = Jac_FULL(2478,1562) - JVS(10474) = B(12216) -! JVS(10475) = Jac_FULL(2478,2478) - JVS(10475) = -B(12212)-B(12214)-B(12215) -! JVS(10476) = Jac_FULL(2478,4817) - JVS(10476) = B(8495) -! JVS(10477) = Jac_FULL(2478,5250) - JVS(10477) = -B(12213)+B(12217) -! JVS(10478) = Jac_FULL(2479,2479) - JVS(10478) = -B(6719)-B(6720)-B(6721)-B(6722) -! JVS(10479) = Jac_FULL(2479,5227) - JVS(10479) = B(3104) -! JVS(10480) = Jac_FULL(2479,5258) - JVS(10480) = B(3105) -! JVS(10481) = Jac_FULL(2480,516) - JVS(10481) = B(14332) -! JVS(10482) = Jac_FULL(2480,1059) - JVS(10482) = B(14325) -! JVS(10483) = Jac_FULL(2480,2324) - JVS(10483) = B(14331) -! JVS(10484) = Jac_FULL(2480,2462) - JVS(10484) = B(14328) -! JVS(10485) = Jac_FULL(2480,2480) - JVS(10485) = -B(11100) -! JVS(10486) = Jac_FULL(2480,2626) - JVS(10486) = B(7308) -! JVS(10487) = Jac_FULL(2480,2888) - JVS(10487) = B(7401) -! JVS(10488) = Jac_FULL(2480,4089) - JVS(10488) = B(11112) -! JVS(10489) = Jac_FULL(2480,5250) - JVS(10489) = B(7309)+B(7402)-B(11101)+B(14326)+B(14329)+B(14333) -! JVS(10490) = Jac_FULL(2480,5252) - JVS(10490) = 0 -! JVS(10491) = Jac_FULL(2480,5255) - JVS(10491) = 0 -! JVS(10492) = Jac_FULL(2480,5256) - JVS(10492) = 0 -! JVS(10493) = Jac_FULL(2481,2481) - JVS(10493) = -B(10333)-B(10334)-B(10335)-B(10336) -! JVS(10494) = Jac_FULL(2481,5050) - JVS(10494) = B(6631) -! JVS(10495) = Jac_FULL(2481,5258) - JVS(10495) = B(6632) -! JVS(10496) = Jac_FULL(2482,2482) - JVS(10496) = -B(15700)-B(15702) -! JVS(10497) = Jac_FULL(2482,4558) - JVS(10497) = B(12628) -! JVS(10498) = Jac_FULL(2482,5250) - JVS(10498) = -B(15701) -! JVS(10499) = Jac_FULL(2483,2483) - JVS(10499) = -B(23843)-B(23845)-B(23846) -! JVS(10500) = Jac_FULL(2483,4779) - JVS(10500) = B(23653) -! JVS(10501) = Jac_FULL(2483,5250) - JVS(10501) = -B(23844) -! JVS(10502) = Jac_FULL(2484,2484) - JVS(10502) = -B(10019)-B(10021)-B(10022) -! JVS(10503) = Jac_FULL(2484,4897) - JVS(10503) = B(6319) -! JVS(10504) = Jac_FULL(2484,5250) - JVS(10504) = -B(10020) -! JVS(10505) = Jac_FULL(2485,2485) - JVS(10505) = -B(15896)-B(15898)-B(15899) -! JVS(10506) = Jac_FULL(2485,4877) - JVS(10506) = B(12810) -! JVS(10507) = Jac_FULL(2485,5250) - JVS(10507) = -B(15897) -! JVS(10508) = Jac_FULL(2486,305) - JVS(10508) = B(20516) -! JVS(10509) = Jac_FULL(2486,2486) - JVS(10509) = -B(21625)-B(21627) -! JVS(10510) = Jac_FULL(2486,4599) - JVS(10510) = 0 -! JVS(10511) = Jac_FULL(2486,5250) - JVS(10511) = B(20517)-B(21626) -! JVS(10512) = Jac_FULL(2487,2487) - JVS(10512) = -B(2251)-B(2252)-B(2253)-B(2254) -! JVS(10513) = Jac_FULL(2487,4527) - JVS(10513) = B(555) -! JVS(10514) = Jac_FULL(2487,5258) - JVS(10514) = B(556) -! JVS(10515) = Jac_FULL(2488,85) - JVS(10515) = B(21316) -! JVS(10516) = Jac_FULL(2488,2488) - JVS(10516) = -B(15739) -! JVS(10517) = Jac_FULL(2488,3582) - JVS(10517) = B(12676) -! JVS(10518) = Jac_FULL(2488,3723) - JVS(10518) = B(16409) -! JVS(10519) = Jac_FULL(2488,3765) - JVS(10519) = B(13223) -! JVS(10520) = Jac_FULL(2488,4024) - JVS(10520) = B(15553) -! JVS(10521) = Jac_FULL(2488,4328) - JVS(10521) = B(15609) -! JVS(10522) = Jac_FULL(2488,4507) - JVS(10522) = 0 -! JVS(10523) = Jac_FULL(2488,5250) - JVS(10523) = -B(15740) -! JVS(10524) = Jac_FULL(2489,2489) - JVS(10524) = -B(13727)-B(13728)-B(13729)-B(13730) -! JVS(10525) = Jac_FULL(2489,4615) - JVS(10525) = B(10551) -! JVS(10526) = Jac_FULL(2489,5258) - JVS(10526) = B(10552) -! JVS(10527) = Jac_FULL(2490,1069) - JVS(10527) = B(4455) -! JVS(10528) = Jac_FULL(2490,2490) - JVS(10528) = -B(4461) -! JVS(10529) = Jac_FULL(2490,3076) - JVS(10529) = B(4458) -! JVS(10530) = Jac_FULL(2490,4980) - JVS(10530) = B(1702) -! JVS(10531) = Jac_FULL(2490,5078) - JVS(10531) = B(1688)+B(1690)+B(1692) -! JVS(10532) = Jac_FULL(2490,5250) - JVS(10532) = 0 -! JVS(10533) = Jac_FULL(2490,5252) - JVS(10533) = B(1689) -! JVS(10534) = Jac_FULL(2490,5255) - JVS(10534) = 0 -! JVS(10535) = Jac_FULL(2490,5256) - JVS(10535) = B(1691) -! JVS(10536) = Jac_FULL(2491,2491) - JVS(10536) = -B(18828)-B(18830)-B(18832) -! JVS(10537) = Jac_FULL(2491,4378) - JVS(10537) = B(16644) -! JVS(10538) = Jac_FULL(2491,5250) - JVS(10538) = B(16645)-B(18829)-B(18831) -! JVS(10539) = Jac_FULL(2492,622) - JVS(10539) = B(15997) -! JVS(10540) = Jac_FULL(2492,1224) - JVS(10540) = B(15986) -! JVS(10541) = Jac_FULL(2492,2492) - JVS(10541) = -B(15987) -! JVS(10542) = Jac_FULL(2492,4165) - JVS(10542) = B(12903)+B(12905)+B(12908) -! JVS(10543) = Jac_FULL(2492,5250) - JVS(10543) = 0 -! JVS(10544) = Jac_FULL(2492,5252) - JVS(10544) = B(12904) -! JVS(10545) = Jac_FULL(2492,5255) - JVS(10545) = 0 -! JVS(10546) = Jac_FULL(2492,5256) - JVS(10546) = B(12906) -! JVS(10547) = Jac_FULL(2493,1672) - JVS(10547) = B(9385) -! JVS(10548) = Jac_FULL(2493,2493) - JVS(10548) = -B(9384) -! JVS(10549) = Jac_FULL(2493,3319) - JVS(10549) = B(9382) -! JVS(10550) = Jac_FULL(2493,3799) - JVS(10550) = B(5767)+B(5769)+B(5771) -! JVS(10551) = Jac_FULL(2493,5250) - JVS(10551) = B(9386) -! JVS(10552) = Jac_FULL(2493,5252) - JVS(10552) = B(5768) -! JVS(10553) = Jac_FULL(2493,5256) - JVS(10553) = B(5770) -! JVS(10554) = Jac_FULL(2494,2494) - JVS(10554) = -B(13528)-B(13529) -! JVS(10555) = Jac_FULL(2494,4414) - JVS(10555) = B(10348) -! JVS(10556) = Jac_FULL(2494,5250) - JVS(10556) = -B(13530) -! JVS(10557) = Jac_FULL(2494,5255) - JVS(10557) = B(10349) -! JVS(10558) = Jac_FULL(2495,311) - JVS(10558) = B(19264)+B(19266) -! JVS(10559) = Jac_FULL(2495,1071) - JVS(10559) = B(19262) -! JVS(10560) = Jac_FULL(2495,2495) - JVS(10560) = -B(19263) -! JVS(10561) = Jac_FULL(2495,3840) - JVS(10561) = B(17064)+B(17066)+B(17068) -! JVS(10562) = Jac_FULL(2495,5250) - JVS(10562) = B(19265) -! JVS(10563) = Jac_FULL(2495,5252) - JVS(10563) = B(17065) -! JVS(10564) = Jac_FULL(2495,5255) - JVS(10564) = 0 -! JVS(10565) = Jac_FULL(2495,5256) - JVS(10565) = B(17067) -! JVS(10566) = Jac_FULL(2496,2496) - JVS(10566) = -B(17865)-B(17866) -! JVS(10567) = Jac_FULL(2496,5088) - JVS(10567) = B(15271) -! JVS(10568) = Jac_FULL(2496,5250) - JVS(10568) = -B(17867) -! JVS(10569) = Jac_FULL(2496,5253) - JVS(10569) = B(15272) -! JVS(10570) = Jac_FULL(2497,2497) - JVS(10570) = -B(10474)-B(10475)-B(10476)-B(10478) -! JVS(10571) = Jac_FULL(2497,4774) - JVS(10571) = B(6764) -! JVS(10572) = Jac_FULL(2497,5250) - JVS(10572) = -B(10477)-B(10479) -! JVS(10573) = Jac_FULL(2497,5255) - JVS(10573) = B(6765) -! JVS(10574) = Jac_FULL(2498,2498) - JVS(10574) = -B(18704)-B(18705) -! JVS(10575) = Jac_FULL(2498,4209) - JVS(10575) = B(16468) -! JVS(10576) = Jac_FULL(2498,5250) - JVS(10576) = -B(18706) -! JVS(10577) = Jac_FULL(2498,5253) - JVS(10577) = B(16469) -! JVS(10578) = Jac_FULL(2499,2499) - JVS(10578) = -B(10045)-B(10047)-B(10048) -! JVS(10579) = Jac_FULL(2499,3791) - JVS(10579) = B(6334) -! JVS(10580) = Jac_FULL(2499,5250) - JVS(10580) = -B(10046) -! JVS(10581) = Jac_FULL(2499,5255) - JVS(10581) = B(6335) -! JVS(10582) = Jac_FULL(2500,2500) - JVS(10582) = -B(12173)-B(12175) -! JVS(10583) = Jac_FULL(2500,5152) - JVS(10583) = B(8433) -! JVS(10584) = Jac_FULL(2500,5250) - JVS(10584) = -B(12174) -! JVS(10585) = Jac_FULL(2500,5253) - JVS(10585) = B(8434) -! JVS(10586) = Jac_FULL(2501,2501) - JVS(10586) = -B(8887)-B(8889)-B(8890) -! JVS(10587) = Jac_FULL(2501,4432) - JVS(10587) = B(5374) -! JVS(10588) = Jac_FULL(2501,5250) - JVS(10588) = -B(8888) -! JVS(10589) = Jac_FULL(2501,5255) - JVS(10589) = B(5375) -! JVS(10590) = Jac_FULL(2502,1288) - JVS(10590) = B(4892) -! JVS(10591) = Jac_FULL(2502,2502) - JVS(10591) = -B(4893) -! JVS(10592) = Jac_FULL(2502,4112) - JVS(10592) = B(2064)+B(2066)+B(2068) -! JVS(10593) = Jac_FULL(2502,5250) - JVS(10593) = 0 -! JVS(10594) = Jac_FULL(2502,5252) - JVS(10594) = B(2065) -! JVS(10595) = Jac_FULL(2502,5255) - JVS(10595) = 0 -! JVS(10596) = Jac_FULL(2502,5256) - JVS(10596) = B(2067) -! JVS(10597) = Jac_FULL(2503,2503) - JVS(10597) = -B(3699)-B(3701)-B(3703) -! JVS(10598) = Jac_FULL(2503,5007) - JVS(10598) = B(987) -! JVS(10599) = Jac_FULL(2503,5250) - JVS(10599) = -B(3700)-B(3702) -! JVS(10600) = Jac_FULL(2503,5255) - JVS(10600) = B(988) -! JVS(10601) = Jac_FULL(2504,2504) - JVS(10601) = -B(15610)-B(15612) -! JVS(10602) = Jac_FULL(2504,4968) - JVS(10602) = B(12521) -! JVS(10603) = Jac_FULL(2504,5250) - JVS(10603) = -B(15611) -! JVS(10604) = Jac_FULL(2504,5253) - JVS(10604) = B(12522) -! JVS(10605) = Jac_FULL(2505,2505) - JVS(10605) = -B(21444)-B(21446) -! JVS(10606) = Jac_FULL(2505,4218) - JVS(10606) = B(20145) -! JVS(10607) = Jac_FULL(2505,5250) - JVS(10607) = -B(21445) -! JVS(10608) = Jac_FULL(2505,5253) - JVS(10608) = B(20146) -! JVS(10609) = Jac_FULL(2506,1747) - JVS(10609) = B(8786) -! JVS(10610) = Jac_FULL(2506,2506) - JVS(10610) = -B(8785) -! JVS(10611) = Jac_FULL(2506,3253) - JVS(10611) = B(8784) -! JVS(10612) = Jac_FULL(2506,3827) - JVS(10612) = B(5313)+B(5315)+B(5317) -! JVS(10613) = Jac_FULL(2506,5250) - JVS(10613) = B(8787) -! JVS(10614) = Jac_FULL(2506,5252) - JVS(10614) = B(5314) -! JVS(10615) = Jac_FULL(2506,5256) - JVS(10615) = B(5316) -! JVS(10616) = Jac_FULL(2507,2507) - JVS(10616) = -B(22284)-B(22286) -! JVS(10617) = Jac_FULL(2507,4831) - JVS(10617) = B(21534) -! JVS(10618) = Jac_FULL(2507,5250) - JVS(10618) = -B(22285) -! JVS(10619) = Jac_FULL(2507,5255) - JVS(10619) = B(21535) -! JVS(10620) = Jac_FULL(2508,1468) - JVS(10620) = B(7468) -! JVS(10621) = Jac_FULL(2508,2508) - JVS(10621) = -B(7471) -! JVS(10622) = Jac_FULL(2508,3994) - JVS(10622) = B(3558)+B(3560)+B(3562) -! JVS(10623) = Jac_FULL(2508,5250) - JVS(10623) = 0 -! JVS(10624) = Jac_FULL(2508,5252) - JVS(10624) = B(3559) -! JVS(10625) = Jac_FULL(2508,5255) - JVS(10625) = 0 -! JVS(10626) = Jac_FULL(2508,5256) - JVS(10626) = B(3561) -! JVS(10627) = Jac_FULL(2509,2509) - JVS(10627) = -B(11748)-B(11749) -! JVS(10628) = Jac_FULL(2509,3870) - JVS(10628) = B(8020) -! JVS(10629) = Jac_FULL(2509,5250) - JVS(10629) = -B(11750) -! JVS(10630) = Jac_FULL(2509,5252) - JVS(10630) = B(8021) -! JVS(10631) = Jac_FULL(2510,2510) - JVS(10631) = -B(23242)-B(23244) -! JVS(10632) = Jac_FULL(2510,4759) - JVS(10632) = B(22808) -! JVS(10633) = Jac_FULL(2510,5250) - JVS(10633) = -B(23243) -! JVS(10634) = Jac_FULL(2510,5253) - JVS(10634) = B(22809) -! JVS(10635) = Jac_FULL(2511,2511) - JVS(10635) = -B(11636)-B(11638) -! JVS(10636) = Jac_FULL(2511,5038) - JVS(10636) = B(7887) -! JVS(10637) = Jac_FULL(2511,5250) - JVS(10637) = -B(11637) -! JVS(10638) = Jac_FULL(2511,5253) - JVS(10638) = B(7888) -! JVS(10639) = Jac_FULL(2512,317) - JVS(10639) = B(19306)+B(19308) -! JVS(10640) = Jac_FULL(2512,1012) - JVS(10640) = B(19302) -! JVS(10641) = Jac_FULL(2512,2512) - JVS(10641) = -B(19305) -! JVS(10642) = Jac_FULL(2512,3985) - JVS(10642) = B(17080)+B(17082)+B(17084) -! JVS(10643) = Jac_FULL(2512,5250) - JVS(10643) = B(19307) -! JVS(10644) = Jac_FULL(2512,5252) - JVS(10644) = B(17081) -! JVS(10645) = Jac_FULL(2512,5255) - JVS(10645) = 0 -! JVS(10646) = Jac_FULL(2512,5256) - JVS(10646) = B(17083) -! JVS(10647) = Jac_FULL(2513,2513) - JVS(10647) = -B(11929)-B(11930) -! JVS(10648) = Jac_FULL(2513,3854) - JVS(10648) = B(8179) -! JVS(10649) = Jac_FULL(2513,5250) - JVS(10649) = -B(11931) -! JVS(10650) = Jac_FULL(2513,5252) - JVS(10650) = B(8180) -! JVS(10651) = Jac_FULL(2514,2514) - JVS(10651) = -B(17684)-B(17685) -! JVS(10652) = Jac_FULL(2514,4357) - JVS(10652) = B(15111) -! JVS(10653) = Jac_FULL(2514,5250) - JVS(10653) = -B(17686) -! JVS(10654) = Jac_FULL(2514,5252) - JVS(10654) = B(15112) -! JVS(10655) = Jac_FULL(2515,2515) - JVS(10655) = -B(20771)-B(20773) -! JVS(10656) = Jac_FULL(2515,4484) - JVS(10656) = B(19178) -! JVS(10657) = Jac_FULL(2515,5250) - JVS(10657) = -B(20772) -! JVS(10658) = Jac_FULL(2515,5253) - JVS(10658) = B(19179) -! JVS(10659) = Jac_FULL(2516,920) - JVS(10659) = B(7391) -! JVS(10660) = Jac_FULL(2516,2516) - JVS(10660) = -B(7392) -! JVS(10661) = Jac_FULL(2516,4146) - JVS(10661) = B(3504)+B(3506)+B(3509) -! JVS(10662) = Jac_FULL(2516,5250) - JVS(10662) = 0 -! JVS(10663) = Jac_FULL(2516,5252) - JVS(10663) = B(3505) -! JVS(10664) = Jac_FULL(2516,5255) - JVS(10664) = 0 -! JVS(10665) = Jac_FULL(2516,5256) - JVS(10665) = B(3507) -! JVS(10666) = Jac_FULL(2517,2517) - JVS(10666) = -B(21633)-B(21635) -! JVS(10667) = Jac_FULL(2517,4222) - JVS(10667) = B(20560) -! JVS(10668) = Jac_FULL(2517,5250) - JVS(10668) = -B(21634) -! JVS(10669) = Jac_FULL(2517,5253) - JVS(10669) = B(20561) -! JVS(10670) = Jac_FULL(2518,2518) - JVS(10670) = -B(13150)-B(13152) -! JVS(10671) = Jac_FULL(2518,4846) - JVS(10671) = B(9675) -! JVS(10672) = Jac_FULL(2518,5250) - JVS(10672) = -B(13151) -! JVS(10673) = Jac_FULL(2518,5253) - JVS(10673) = B(9676) -! JVS(10674) = Jac_FULL(2519,2519) - JVS(10674) = -B(11712)-B(11713) -! JVS(10675) = Jac_FULL(2519,3893) - JVS(10675) = B(7987) -! JVS(10676) = Jac_FULL(2519,5250) - JVS(10676) = -B(11714) -! JVS(10677) = Jac_FULL(2519,5252) - JVS(10677) = B(7988) -! JVS(10678) = Jac_FULL(2520,2520) - JVS(10678) = -B(9282)-B(9284)-B(9285) -! JVS(10679) = Jac_FULL(2520,3813) - JVS(10679) = B(5686) -! JVS(10680) = Jac_FULL(2520,5250) - JVS(10680) = -B(9283) -! JVS(10681) = Jac_FULL(2520,5255) - JVS(10681) = B(5687) -! JVS(10682) = Jac_FULL(2521,350) - JVS(10682) = B(16421)+B(16423) -! JVS(10683) = Jac_FULL(2521,1021) - JVS(10683) = B(16419) -! JVS(10684) = Jac_FULL(2521,2521) - JVS(10684) = -B(16420) -! JVS(10685) = Jac_FULL(2521,3853) - JVS(10685) = B(13389)+B(13391)+B(13393) -! JVS(10686) = Jac_FULL(2521,5250) - JVS(10686) = B(16422) -! JVS(10687) = Jac_FULL(2521,5252) - JVS(10687) = B(13390) -! JVS(10688) = Jac_FULL(2521,5255) - JVS(10688) = 0 -! JVS(10689) = Jac_FULL(2521,5256) - JVS(10689) = B(13392) -! JVS(10690) = Jac_FULL(2522,2522) - JVS(10690) = -B(12205)-B(12207) -! JVS(10691) = Jac_FULL(2522,4452) - JVS(10691) = B(8483) -! JVS(10692) = Jac_FULL(2522,5250) - JVS(10692) = -B(12206) -! JVS(10693) = Jac_FULL(2522,5253) - JVS(10693) = B(8484) -! JVS(10694) = Jac_FULL(2523,2523) - JVS(10694) = -B(22468)-B(22470) -! JVS(10695) = Jac_FULL(2523,4659) - JVS(10695) = B(21848) -! JVS(10696) = Jac_FULL(2523,5250) - JVS(10696) = -B(22469) -! JVS(10697) = Jac_FULL(2523,5253) - JVS(10697) = B(21849) -! JVS(10698) = Jac_FULL(2524,2524) - JVS(10698) = -B(22062)-B(22064) -! JVS(10699) = Jac_FULL(2524,4385) - JVS(10699) = B(21031) -! JVS(10700) = Jac_FULL(2524,5250) - JVS(10700) = -B(22063) -! JVS(10701) = Jac_FULL(2524,5252) - JVS(10701) = B(21032) -! JVS(10702) = Jac_FULL(2525,2525) - JVS(10702) = -B(11583)-B(11584) -! JVS(10703) = Jac_FULL(2525,5164) - JVS(10703) = B(7813) -! JVS(10704) = Jac_FULL(2525,5250) - JVS(10704) = -B(11585) -! JVS(10705) = Jac_FULL(2525,5253) - JVS(10705) = B(7814) -! JVS(10706) = Jac_FULL(2526,875) - JVS(10706) = B(4234) -! JVS(10707) = Jac_FULL(2526,2526) - JVS(10707) = -B(4235) -! JVS(10708) = Jac_FULL(2526,4382) - JVS(10708) = B(1461)+B(1463)+B(1465) -! JVS(10709) = Jac_FULL(2526,5250) - JVS(10709) = 0 -! JVS(10710) = Jac_FULL(2526,5252) - JVS(10710) = B(1462) -! JVS(10711) = Jac_FULL(2526,5255) - JVS(10711) = 0 -! JVS(10712) = Jac_FULL(2526,5256) - JVS(10712) = B(1464) -! JVS(10713) = Jac_FULL(2527,2527) - JVS(10713) = -B(21752)-B(21754) -! JVS(10714) = Jac_FULL(2527,4660) - JVS(10714) = B(20722) -! JVS(10715) = Jac_FULL(2527,5250) - JVS(10715) = -B(21753) -! JVS(10716) = Jac_FULL(2527,5253) - JVS(10716) = B(20723) -! JVS(10717) = Jac_FULL(2528,586) - JVS(10717) = B(14128) -! JVS(10718) = Jac_FULL(2528,1337) - JVS(10718) = B(14118) -! JVS(10719) = Jac_FULL(2528,2123) - JVS(10719) = B(14121) -! JVS(10720) = Jac_FULL(2528,2528) - JVS(10720) = -B(14124) -! JVS(10721) = Jac_FULL(2528,4646) - JVS(10721) = B(10925)+B(10927)+B(10930) -! JVS(10722) = Jac_FULL(2528,5250) - JVS(10722) = 0 -! JVS(10723) = Jac_FULL(2528,5252) - JVS(10723) = B(10926) -! JVS(10724) = Jac_FULL(2528,5255) - JVS(10724) = 0 -! JVS(10725) = Jac_FULL(2528,5256) - JVS(10725) = B(10928) -! JVS(10726) = Jac_FULL(2529,2529) - JVS(10726) = -B(22202)-B(22204) -! JVS(10727) = Jac_FULL(2529,4267) - JVS(10727) = B(21288) -! JVS(10728) = Jac_FULL(2529,5250) - JVS(10728) = -B(22203) -! JVS(10729) = Jac_FULL(2529,5253) - JVS(10729) = B(21289) -! JVS(10730) = Jac_FULL(2530,2530) - JVS(10730) = -B(23763)-B(23765) -! JVS(10731) = Jac_FULL(2530,4220) - JVS(10731) = B(23548) -! JVS(10732) = Jac_FULL(2530,5250) - JVS(10732) = -B(23764) -! JVS(10733) = Jac_FULL(2530,5253) - JVS(10733) = B(23549) -! JVS(10734) = Jac_FULL(2531,2531) - JVS(10734) = -B(13500)-B(13501) -! JVS(10735) = Jac_FULL(2531,4516) - JVS(10735) = B(10327) -! JVS(10736) = Jac_FULL(2531,5250) - JVS(10736) = -B(13502) -! JVS(10737) = Jac_FULL(2531,5253) - JVS(10737) = B(10328) -! JVS(10738) = Jac_FULL(2532,2532) - JVS(10738) = -B(21833)-B(21835) -! JVS(10739) = Jac_FULL(2532,3845) - JVS(10739) = B(20801) -! JVS(10740) = Jac_FULL(2532,5250) - JVS(10740) = -B(21834) -! JVS(10741) = Jac_FULL(2532,5252) - JVS(10741) = B(20802) -! JVS(10742) = Jac_FULL(2533,2533) - JVS(10742) = -B(19245)-B(19247) -! JVS(10743) = Jac_FULL(2533,4849) - JVS(10743) = B(17037) -! JVS(10744) = Jac_FULL(2533,5250) - JVS(10744) = -B(19246) -! JVS(10745) = Jac_FULL(2533,5253) - JVS(10745) = B(17038) -! JVS(10746) = Jac_FULL(2534,2534) - JVS(10746) = -B(4713)-B(4714) -! JVS(10747) = Jac_FULL(2534,4099) - JVS(10747) = B(1891) -! JVS(10748) = Jac_FULL(2534,5250) - JVS(10748) = -B(4715) -! JVS(10749) = Jac_FULL(2534,5252) - JVS(10749) = B(1892) -! JVS(10750) = Jac_FULL(2535,979) - JVS(10750) = B(18074) -! JVS(10751) = Jac_FULL(2535,2535) - JVS(10751) = -B(18075) -! JVS(10752) = Jac_FULL(2535,4195) - JVS(10752) = B(15477)+B(15479)+B(15481) -! JVS(10753) = Jac_FULL(2535,5250) - JVS(10753) = 0 -! JVS(10754) = Jac_FULL(2535,5252) - JVS(10754) = B(15478) -! JVS(10755) = Jac_FULL(2535,5255) - JVS(10755) = 0 -! JVS(10756) = Jac_FULL(2535,5256) - JVS(10756) = B(15480) -! JVS(10757) = Jac_FULL(2536,1096) - JVS(10757) = B(18123) -! JVS(10758) = Jac_FULL(2536,2536) - JVS(10758) = -B(18124) -! JVS(10759) = Jac_FULL(2536,4265) - JVS(10759) = B(15537)+B(15539)+B(15541) -! JVS(10760) = Jac_FULL(2536,5250) - JVS(10760) = 0 -! JVS(10761) = Jac_FULL(2536,5252) - JVS(10761) = B(15538) -! JVS(10762) = Jac_FULL(2536,5255) - JVS(10762) = 0 -! JVS(10763) = Jac_FULL(2536,5256) - JVS(10763) = B(15540) -! JVS(10764) = Jac_FULL(2537,2537) - JVS(10764) = -B(4119)-B(4121) -! JVS(10765) = Jac_FULL(2537,5125) - JVS(10765) = B(1337) -! JVS(10766) = Jac_FULL(2537,5250) - JVS(10766) = -B(4120) -! JVS(10767) = Jac_FULL(2537,5253) - JVS(10767) = B(1338) -! JVS(10768) = Jac_FULL(2538,2538) - JVS(10768) = -B(20125)-B(20127) -! JVS(10769) = Jac_FULL(2538,4502) - JVS(10769) = B(18400) -! JVS(10770) = Jac_FULL(2538,5250) - JVS(10770) = -B(20126) -! JVS(10771) = Jac_FULL(2538,5253) - JVS(10771) = B(18401) -! JVS(10772) = Jac_FULL(2539,1895) - JVS(10772) = B(7004) -! JVS(10773) = Jac_FULL(2539,2070) - JVS(10773) = B(7001) -! JVS(10774) = Jac_FULL(2539,2539) - JVS(10774) = -B(7005)-B(7006) -! JVS(10775) = Jac_FULL(2539,5246) - JVS(10775) = B(3211)+B(3213)+B(3216) -! JVS(10776) = Jac_FULL(2539,5250) - JVS(10776) = 0 -! JVS(10777) = Jac_FULL(2539,5252) - JVS(10777) = B(3212) -! JVS(10778) = Jac_FULL(2539,5255) - JVS(10778) = 0 -! JVS(10779) = Jac_FULL(2539,5256) - JVS(10779) = B(3214) -! JVS(10780) = Jac_FULL(2540,2540) - JVS(10780) = -B(11067)-B(11069)-B(11070) -! JVS(10781) = Jac_FULL(2540,4563) - JVS(10781) = B(7263) -! JVS(10782) = Jac_FULL(2540,5250) - JVS(10782) = -B(11068) -! JVS(10783) = Jac_FULL(2540,5255) - JVS(10783) = B(7264) -! JVS(10784) = Jac_FULL(2541,2541) - JVS(10784) = -B(21399)-B(21401) -! JVS(10785) = Jac_FULL(2541,4046) - JVS(10785) = B(20076) -! JVS(10786) = Jac_FULL(2541,5250) - JVS(10786) = -B(21400) -! JVS(10787) = Jac_FULL(2541,5255) - JVS(10787) = B(20077) -! JVS(10788) = Jac_FULL(2542,2542) - JVS(10788) = -B(3836)-B(3837) -! JVS(10789) = Jac_FULL(2542,4844) - JVS(10789) = B(1088) -! JVS(10790) = Jac_FULL(2542,5250) - JVS(10790) = -B(3838) -! JVS(10791) = Jac_FULL(2542,5252) - JVS(10791) = B(1089) -! JVS(10792) = Jac_FULL(2543,2543) - JVS(10792) = -B(11811)-B(11812)-B(11814) -! JVS(10793) = Jac_FULL(2543,3869) - JVS(10793) = B(8084) -! JVS(10794) = Jac_FULL(2543,5250) - JVS(10794) = -B(11813)-B(11815) -! JVS(10795) = Jac_FULL(2543,5255) - JVS(10795) = B(8085) -! JVS(10796) = Jac_FULL(2544,2544) - JVS(10796) = -B(10610)-B(10611)-B(10613)-B(10615) -! JVS(10797) = Jac_FULL(2544,5224) - JVS(10797) = B(6814) -! JVS(10798) = Jac_FULL(2544,5250) - JVS(10798) = -B(10612)-B(10614)-B(10616) -! JVS(10799) = Jac_FULL(2544,5255) - JVS(10799) = B(6815) -! JVS(10800) = Jac_FULL(2545,55) - JVS(10800) = B(13638) -! JVS(10801) = Jac_FULL(2545,1438) - JVS(10801) = B(13634) -! JVS(10802) = Jac_FULL(2545,2545) - JVS(10802) = -B(13637) -! JVS(10803) = Jac_FULL(2545,3939) - JVS(10803) = B(10446)+B(10448)+B(10450) -! JVS(10804) = Jac_FULL(2545,5250) - JVS(10804) = B(13639) -! JVS(10805) = Jac_FULL(2545,5252) - JVS(10805) = B(10447) -! JVS(10806) = Jac_FULL(2545,5255) - JVS(10806) = 0 -! JVS(10807) = Jac_FULL(2545,5256) - JVS(10807) = B(10449) -! JVS(10808) = Jac_FULL(2546,2546) - JVS(10808) = -B(19543)-B(19545) -! JVS(10809) = Jac_FULL(2546,4957) - JVS(10809) = B(17426) -! JVS(10810) = Jac_FULL(2546,5250) - JVS(10810) = -B(19544) -! JVS(10811) = Jac_FULL(2546,5253) - JVS(10811) = B(17427) -! JVS(10812) = Jac_FULL(2547,2129) - JVS(10812) = B(12321) -! JVS(10813) = Jac_FULL(2547,2166) - JVS(10813) = B(12314) -! JVS(10814) = Jac_FULL(2547,2547) - JVS(10814) = -B(12318)-B(12320) -! JVS(10815) = Jac_FULL(2547,4590) - JVS(10815) = B(8652) -! JVS(10816) = Jac_FULL(2547,5250) - JVS(10816) = B(12315)-B(12319)+B(12322) -! JVS(10817) = Jac_FULL(2547,5255) - JVS(10817) = 0 -! JVS(10818) = Jac_FULL(2548,2548) - JVS(10818) = -B(20120) -! JVS(10819) = Jac_FULL(2548,3361) - JVS(10819) = B(20105) -! JVS(10820) = Jac_FULL(2548,3421) - JVS(10820) = B(18389) -! JVS(10821) = Jac_FULL(2548,3574) - JVS(10821) = B(20101) -! JVS(10822) = Jac_FULL(2548,3579) - JVS(10822) = B(18393) -! JVS(10823) = Jac_FULL(2548,5250) - JVS(10823) = -B(20121) -! JVS(10824) = Jac_FULL(2549,1778) - JVS(10824) = B(4965) -! JVS(10825) = Jac_FULL(2549,2549) - JVS(10825) = -B(4966) -! JVS(10826) = Jac_FULL(2549,5096) - JVS(10826) = B(2120)+B(2122)+B(2126) -! JVS(10827) = Jac_FULL(2549,5250) - JVS(10827) = 0 -! JVS(10828) = Jac_FULL(2549,5252) - JVS(10828) = B(2121) -! JVS(10829) = Jac_FULL(2549,5255) - JVS(10829) = 0 -! JVS(10830) = Jac_FULL(2549,5256) - JVS(10830) = B(2123) -! JVS(10831) = Jac_FULL(2550,1897) - JVS(10831) = B(3951) -! JVS(10832) = Jac_FULL(2550,2550) - JVS(10832) = -B(3952) -! JVS(10833) = Jac_FULL(2550,4161) - JVS(10833) = B(1183)+B(1187)+B(1191) -! JVS(10834) = Jac_FULL(2550,5250) - JVS(10834) = 0 -! JVS(10835) = Jac_FULL(2550,5252) - JVS(10835) = B(1184) -! JVS(10836) = Jac_FULL(2550,5255) - JVS(10836) = 0 -! JVS(10837) = Jac_FULL(2550,5256) - JVS(10837) = B(1188) -! JVS(10838) = Jac_FULL(2551,1187) - JVS(10838) = B(18563) -! JVS(10839) = Jac_FULL(2551,2551) - JVS(10839) = -B(18564) -! JVS(10840) = Jac_FULL(2551,4317) - JVS(10840) = B(16249)+B(16251)+B(16253) -! JVS(10841) = Jac_FULL(2551,5250) - JVS(10841) = 0 -! JVS(10842) = Jac_FULL(2551,5252) - JVS(10842) = B(16250) -! JVS(10843) = Jac_FULL(2551,5255) - JVS(10843) = 0 -! JVS(10844) = Jac_FULL(2551,5256) - JVS(10844) = B(16252) -! JVS(10845) = Jac_FULL(2552,2552) - JVS(10845) = -B(21359)-B(21361) -! JVS(10846) = Jac_FULL(2552,4808) - JVS(10846) = B(20003) -! JVS(10847) = Jac_FULL(2552,5250) - JVS(10847) = -B(21360) -! JVS(10848) = Jac_FULL(2552,5253) - JVS(10848) = B(20004) -! JVS(10849) = Jac_FULL(2553,2553) - JVS(10849) = -B(17556)-B(17557)-B(17559) -! JVS(10850) = Jac_FULL(2553,4561) - JVS(10850) = B(14992) -! JVS(10851) = Jac_FULL(2553,5250) - JVS(10851) = -B(17558)-B(17560) -! JVS(10852) = Jac_FULL(2553,5255) - JVS(10852) = B(14993) -! JVS(10853) = Jac_FULL(2554,2554) - JVS(10853) = -B(16628)-B(16629) -! JVS(10854) = Jac_FULL(2554,5033) - JVS(10854) = B(13800) -! JVS(10855) = Jac_FULL(2554,5250) - JVS(10855) = -B(16630) -! JVS(10856) = Jac_FULL(2554,5255) - JVS(10856) = B(13801) -! JVS(10857) = Jac_FULL(2555,2555) - JVS(10857) = -B(11871)-B(11872) -! JVS(10858) = Jac_FULL(2555,3989) - JVS(10858) = B(8127) -! JVS(10859) = Jac_FULL(2555,5250) - JVS(10859) = -B(11873) -! JVS(10860) = Jac_FULL(2555,5252) - JVS(10860) = B(8128) -! JVS(10861) = Jac_FULL(2556,2556) - JVS(10861) = -B(22767)-B(22768)-B(22769) -! JVS(10862) = Jac_FULL(2556,3899) - JVS(10862) = B(22172) -! JVS(10863) = Jac_FULL(2556,5250) - JVS(10863) = -B(22770) -! JVS(10864) = Jac_FULL(2556,5255) - JVS(10864) = B(22173) -! JVS(10865) = Jac_FULL(2557,1459) - JVS(10865) = B(18559) -! JVS(10866) = Jac_FULL(2557,2557) - JVS(10866) = -B(18560) -! JVS(10867) = Jac_FULL(2557,4192) - JVS(10867) = B(16242)+B(16244)+B(16246) -! JVS(10868) = Jac_FULL(2557,5250) - JVS(10868) = 0 -! JVS(10869) = Jac_FULL(2557,5252) - JVS(10869) = B(16243) -! JVS(10870) = Jac_FULL(2557,5255) - JVS(10870) = 0 -! JVS(10871) = Jac_FULL(2557,5256) - JVS(10871) = B(16245) -! JVS(10872) = Jac_FULL(2558,2558) - JVS(10872) = -B(7161)-B(7163)-B(7165)-B(7166) -! JVS(10873) = Jac_FULL(2558,4336) - JVS(10873) = B(3346) -! JVS(10874) = Jac_FULL(2558,5250) - JVS(10874) = -B(7162)-B(7164) -! JVS(10875) = Jac_FULL(2558,5255) - JVS(10875) = B(3347) -! JVS(10876) = Jac_FULL(2559,2559) - JVS(10876) = -B(9481)-B(9483)-B(9484) -! JVS(10877) = Jac_FULL(2559,4683) - JVS(10877) = B(5835) -! JVS(10878) = Jac_FULL(2559,5250) - JVS(10878) = -B(9482) -! JVS(10879) = Jac_FULL(2559,5255) - JVS(10879) = B(5836) -! JVS(10880) = Jac_FULL(2560,2560) - JVS(10880) = -B(14168)-B(14170) -! JVS(10881) = Jac_FULL(2560,4627) - JVS(10881) = B(10970) -! JVS(10882) = Jac_FULL(2560,5250) - JVS(10882) = -B(14169) -! JVS(10883) = Jac_FULL(2560,5253) - JVS(10883) = B(10971) -! JVS(10884) = Jac_FULL(2561,1272) - JVS(10884) = B(21937) -! JVS(10885) = Jac_FULL(2561,2561) - JVS(10885) = -B(21940) -! JVS(10886) = Jac_FULL(2561,3950) - JVS(10886) = B(20878)+B(20880)+B(20882) -! JVS(10887) = Jac_FULL(2561,5250) - JVS(10887) = 0 -! JVS(10888) = Jac_FULL(2561,5252) - JVS(10888) = B(20879) -! JVS(10889) = Jac_FULL(2561,5255) - JVS(10889) = 0 -! JVS(10890) = Jac_FULL(2561,5256) - JVS(10890) = B(20881) -! JVS(10891) = Jac_FULL(2562,762) - JVS(10891) = B(17994) -! JVS(10892) = Jac_FULL(2562,1543) - JVS(10892) = B(17984) -! JVS(10893) = Jac_FULL(2562,2271) - JVS(10893) = B(17987) -! JVS(10894) = Jac_FULL(2562,2562) - JVS(10894) = -B(17990) -! JVS(10895) = Jac_FULL(2562,4709) - JVS(10895) = B(15386)+B(15388)+B(15391) -! JVS(10896) = Jac_FULL(2562,5250) - JVS(10896) = 0 -! JVS(10897) = Jac_FULL(2562,5252) - JVS(10897) = B(15387) -! JVS(10898) = Jac_FULL(2562,5255) - JVS(10898) = 0 -! JVS(10899) = Jac_FULL(2562,5256) - JVS(10899) = B(15389) -! JVS(10900) = Jac_FULL(2563,1554) - JVS(10900) = B(10104) -! JVS(10901) = Jac_FULL(2563,2563) - JVS(10901) = -B(10103) -! JVS(10902) = Jac_FULL(2563,3279) - JVS(10902) = B(10101) -! JVS(10903) = Jac_FULL(2563,3825) - JVS(10903) = B(6395)+B(6397)+B(6399) -! JVS(10904) = Jac_FULL(2563,5250) - JVS(10904) = B(10105) -! JVS(10905) = Jac_FULL(2563,5252) - JVS(10905) = B(6396) -! JVS(10906) = Jac_FULL(2563,5256) - JVS(10906) = B(6398) -! JVS(10907) = Jac_FULL(2564,2564) - JVS(10907) = -B(22410)-B(22412) -! JVS(10908) = Jac_FULL(2564,4624) - JVS(10908) = B(21784) -! JVS(10909) = Jac_FULL(2564,5250) - JVS(10909) = -B(22411) -! JVS(10910) = Jac_FULL(2564,5253) - JVS(10910) = B(21785) -! JVS(10911) = Jac_FULL(2565,2565) - JVS(10911) = -B(9219)-B(9221)-B(9222) -! JVS(10912) = Jac_FULL(2565,3808) - JVS(10912) = B(5634) -! JVS(10913) = Jac_FULL(2565,5250) - JVS(10913) = -B(9220) -! JVS(10914) = Jac_FULL(2565,5255) - JVS(10914) = B(5635) -! JVS(10915) = Jac_FULL(2566,962) - JVS(10915) = B(18607) -! JVS(10916) = Jac_FULL(2566,2566) - JVS(10916) = -B(18608) -! JVS(10917) = Jac_FULL(2566,4210) - JVS(10917) = B(16295)+B(16297)+B(16299) -! JVS(10918) = Jac_FULL(2566,5250) - JVS(10918) = 0 -! JVS(10919) = Jac_FULL(2566,5252) - JVS(10919) = B(16296) -! JVS(10920) = Jac_FULL(2566,5255) - JVS(10920) = 0 -! JVS(10921) = Jac_FULL(2566,5256) - JVS(10921) = B(16298) -! JVS(10922) = Jac_FULL(2567,2567) - JVS(10922) = -B(23891)-B(23893) -! JVS(10923) = Jac_FULL(2567,4525) - JVS(10923) = B(23739) -! JVS(10924) = Jac_FULL(2567,5250) - JVS(10924) = -B(23892) -! JVS(10925) = Jac_FULL(2567,5253) - JVS(10925) = B(23740) -! JVS(10926) = Jac_FULL(2568,2568) - JVS(10926) = -B(20549)-B(20551) -! JVS(10927) = Jac_FULL(2568,3217) - JVS(10927) = B(21611)+B(21614) -! JVS(10928) = Jac_FULL(2568,3837) - JVS(10928) = B(18951) -! JVS(10929) = Jac_FULL(2568,5250) - JVS(10929) = -B(20550)+B(21612) -! JVS(10930) = Jac_FULL(2569,2569) - JVS(10930) = -B(9192)-B(9194) -! JVS(10931) = Jac_FULL(2569,4692) - JVS(10931) = B(5609) -! JVS(10932) = Jac_FULL(2569,5250) - JVS(10932) = -B(9193) -! JVS(10933) = Jac_FULL(2569,5253) - JVS(10933) = B(5610) -! JVS(10934) = Jac_FULL(2570,2570) - JVS(10934) = -B(18898)-B(18899)-B(18901) -! JVS(10935) = Jac_FULL(2570,5167) - JVS(10935) = B(16692) -! JVS(10936) = Jac_FULL(2570,5250) - JVS(10936) = -B(18900)-B(18902) -! JVS(10937) = Jac_FULL(2570,5255) - JVS(10937) = B(16693) -! JVS(10938) = Jac_FULL(2571,2571) - JVS(10938) = -B(23530)-B(23532) -! JVS(10939) = Jac_FULL(2571,4673) - JVS(10939) = B(23190) -! JVS(10940) = Jac_FULL(2571,5250) - JVS(10940) = -B(23531) -! JVS(10941) = Jac_FULL(2571,5253) - JVS(10941) = B(23191) -! JVS(10942) = Jac_FULL(2572,2572) - JVS(10942) = -B(7148)-B(7150)-B(7152)-B(7153) -! JVS(10943) = Jac_FULL(2572,4367) - JVS(10943) = B(3337) -! JVS(10944) = Jac_FULL(2572,5250) - JVS(10944) = -B(7149)-B(7151) -! JVS(10945) = Jac_FULL(2572,5255) - JVS(10945) = B(3338) -! JVS(10946) = Jac_FULL(2573,2573) - JVS(10946) = -B(23277)-B(23279) -! JVS(10947) = Jac_FULL(2573,4409) - JVS(10947) = B(22867) -! JVS(10948) = Jac_FULL(2573,5250) - JVS(10948) = -B(23278) -! JVS(10949) = Jac_FULL(2573,5253) - JVS(10949) = B(22868) -! JVS(10950) = Jac_FULL(2574,307) - JVS(10950) = B(6951) -! JVS(10951) = Jac_FULL(2574,1239) - JVS(10951) = B(6940) -! JVS(10952) = Jac_FULL(2574,1922) - JVS(10952) = B(6947) -! JVS(10953) = Jac_FULL(2574,1923) - JVS(10953) = B(6950) -! JVS(10954) = Jac_FULL(2574,2574) - JVS(10954) = -B(6943)-B(6945) -! JVS(10955) = Jac_FULL(2574,3637) - JVS(10955) = B(3161)+B(3171) -! JVS(10956) = Jac_FULL(2574,5250) - JVS(10956) = B(6941)-B(6944)-B(6946)+B(6948)+B(6952) -! JVS(10957) = Jac_FULL(2574,5252) - JVS(10957) = 0 -! JVS(10958) = Jac_FULL(2574,5255) - JVS(10958) = B(3162) -! JVS(10959) = Jac_FULL(2574,5256) - JVS(10959) = 0 -! JVS(10960) = Jac_FULL(2575,1148) - JVS(10960) = B(18681) -! JVS(10961) = Jac_FULL(2575,2575) - JVS(10961) = -B(18682) -! JVS(10962) = Jac_FULL(2575,4287) - JVS(10962) = B(16400)+B(16402)+B(16404) -! JVS(10963) = Jac_FULL(2575,5250) - JVS(10963) = 0 -! JVS(10964) = Jac_FULL(2575,5252) - JVS(10964) = B(16401) -! JVS(10965) = Jac_FULL(2575,5255) - JVS(10965) = 0 -! JVS(10966) = Jac_FULL(2575,5256) - JVS(10966) = B(16403) -! JVS(10967) = Jac_FULL(2576,2576) - JVS(10967) = -B(13889)-B(13891) -! JVS(10968) = Jac_FULL(2576,4269) - JVS(10968) = B(10656) -! JVS(10969) = Jac_FULL(2576,5250) - JVS(10969) = -B(13890) -! JVS(10970) = Jac_FULL(2576,5253) - JVS(10970) = B(10657) -! JVS(10971) = Jac_FULL(2577,1508) - JVS(10971) = B(19886) -! JVS(10972) = Jac_FULL(2577,2577) - JVS(10972) = -B(19887) -! JVS(10973) = Jac_FULL(2577,4271) - JVS(10973) = B(18064)+B(18066)+B(18068) -! JVS(10974) = Jac_FULL(2577,5250) - JVS(10974) = 0 -! JVS(10975) = Jac_FULL(2577,5252) - JVS(10975) = B(18065) -! JVS(10976) = Jac_FULL(2577,5255) - JVS(10976) = 0 -! JVS(10977) = Jac_FULL(2577,5256) - JVS(10977) = B(18067) -! JVS(10978) = Jac_FULL(2578,1527) - JVS(10978) = B(23628) -! JVS(10979) = Jac_FULL(2578,2578) - JVS(10979) = -B(23629) -! JVS(10980) = Jac_FULL(2578,4117) - JVS(10980) = B(23368)+B(23370)+B(23372) -! JVS(10981) = Jac_FULL(2578,5250) - JVS(10981) = 0 -! JVS(10982) = Jac_FULL(2578,5252) - JVS(10982) = B(23369) -! JVS(10983) = Jac_FULL(2578,5255) - JVS(10983) = 0 -! JVS(10984) = Jac_FULL(2578,5256) - JVS(10984) = B(23371) -! JVS(10985) = Jac_FULL(2579,2579) - JVS(10985) = -B(12181)-B(12183) -! JVS(10986) = Jac_FULL(2579,4405) - JVS(10986) = B(8447) -! JVS(10987) = Jac_FULL(2579,5250) - JVS(10987) = -B(12182) -! JVS(10988) = Jac_FULL(2579,5253) - JVS(10988) = B(8448) -! JVS(10989) = Jac_FULL(2580,2580) - JVS(10989) = -B(21597)-B(21598) -! JVS(10990) = Jac_FULL(2580,4772) - JVS(10990) = B(20462)+B(20474) -! JVS(10991) = Jac_FULL(2580,5250) - JVS(10991) = -B(21599) -! JVS(10992) = Jac_FULL(2580,5255) - JVS(10992) = B(20463) -! JVS(10993) = Jac_FULL(2581,1170) - JVS(10993) = B(16029) -! JVS(10994) = Jac_FULL(2581,2581) - JVS(10994) = -B(16030) -! JVS(10995) = Jac_FULL(2581,3973) - JVS(10995) = B(12953)+B(12955)+B(12957) -! JVS(10996) = Jac_FULL(2581,5250) - JVS(10996) = 0 -! JVS(10997) = Jac_FULL(2581,5252) - JVS(10997) = B(12954) -! JVS(10998) = Jac_FULL(2581,5255) - JVS(10998) = 0 -! JVS(10999) = Jac_FULL(2581,5256) - JVS(10999) = B(12956) -! JVS(11000) = Jac_FULL(2582,2582) - JVS(11000) = -B(12843)-B(12845) -! JVS(11001) = Jac_FULL(2582,5034) - JVS(11001) = B(9321) -! JVS(11002) = Jac_FULL(2582,5250) - JVS(11002) = -B(12844) -! JVS(11003) = Jac_FULL(2582,5253) - JVS(11003) = B(9322) -! JVS(11004) = Jac_FULL(2583,2583) - JVS(11004) = -B(12224)-B(12226) -! JVS(11005) = Jac_FULL(2583,4470) - JVS(11005) = B(8507) -! JVS(11006) = Jac_FULL(2583,5250) - JVS(11006) = -B(12225) -! JVS(11007) = Jac_FULL(2583,5253) - JVS(11007) = B(8508) -! JVS(11008) = Jac_FULL(2584,2584) - JVS(11008) = -B(22499)-B(22501) -! JVS(11009) = Jac_FULL(2584,4439) - JVS(11009) = B(21891) -! JVS(11010) = Jac_FULL(2584,5250) - JVS(11010) = -B(22500) -! JVS(11011) = Jac_FULL(2584,5253) - JVS(11011) = B(21892) -! JVS(11012) = Jac_FULL(2585,2585) - JVS(11012) = -B(9830)-B(9832)-B(9833) -! JVS(11013) = Jac_FULL(2585,3641) - JVS(11013) = B(6123) -! JVS(11014) = Jac_FULL(2585,5250) - JVS(11014) = -B(9831) -! JVS(11015) = Jac_FULL(2585,5255) - JVS(11015) = B(6124) -! JVS(11016) = Jac_FULL(2586,1532) - JVS(11016) = B(18518) -! JVS(11017) = Jac_FULL(2586,2586) - JVS(11017) = -B(18519) -! JVS(11018) = Jac_FULL(2586,4193) - JVS(11018) = B(16155)+B(16157)+B(16159) -! JVS(11019) = Jac_FULL(2586,5250) - JVS(11019) = 0 -! JVS(11020) = Jac_FULL(2586,5252) - JVS(11020) = B(16156) -! JVS(11021) = Jac_FULL(2586,5255) - JVS(11021) = 0 -! JVS(11022) = Jac_FULL(2586,5256) - JVS(11022) = B(16158) -! JVS(11023) = Jac_FULL(2587,2587) - JVS(11023) = -B(14544)-B(14546) -! JVS(11024) = Jac_FULL(2587,5099) - JVS(11024) = B(11269) -! JVS(11025) = Jac_FULL(2587,5250) - JVS(11025) = -B(14545) -! JVS(11026) = Jac_FULL(2587,5253) - JVS(11026) = B(11270) -! JVS(11027) = Jac_FULL(2588,1253) - JVS(11027) = B(18329) -! JVS(11028) = Jac_FULL(2588,2588) - JVS(11028) = -B(18330) -! JVS(11029) = Jac_FULL(2588,4246) - JVS(11029) = B(15873)+B(15875)+B(15877) -! JVS(11030) = Jac_FULL(2588,5250) - JVS(11030) = 0 -! JVS(11031) = Jac_FULL(2588,5252) - JVS(11031) = B(15874) -! JVS(11032) = Jac_FULL(2588,5255) - JVS(11032) = 0 -! JVS(11033) = Jac_FULL(2588,5256) - JVS(11033) = B(15876) -! JVS(11034) = Jac_FULL(2589,590) - JVS(11034) = B(17531) -! JVS(11035) = Jac_FULL(2589,1204) - JVS(11035) = B(17524) -! JVS(11036) = Jac_FULL(2589,2270) - JVS(11036) = B(17527) -! JVS(11037) = Jac_FULL(2589,2589) - JVS(11037) = -B(17530) -! JVS(11038) = Jac_FULL(2589,4735) - JVS(11038) = B(14966)+B(14968)+B(14970) -! JVS(11039) = Jac_FULL(2589,5250) - JVS(11039) = 0 -! JVS(11040) = Jac_FULL(2589,5252) - JVS(11040) = B(14967) -! JVS(11041) = Jac_FULL(2589,5255) - JVS(11041) = 0 -! JVS(11042) = Jac_FULL(2589,5256) - JVS(11042) = B(14969) -! JVS(11043) = Jac_FULL(2590,2590) - JVS(11043) = -B(16594)-B(16596)-B(16598) -! JVS(11044) = Jac_FULL(2590,5154) - JVS(11044) = B(13742) -! JVS(11045) = Jac_FULL(2590,5250) - JVS(11045) = -B(16595)-B(16597) -! JVS(11046) = Jac_FULL(2590,5255) - JVS(11046) = B(13743) -! JVS(11047) = Jac_FULL(2591,1381) - JVS(11047) = B(22976) -! JVS(11048) = Jac_FULL(2591,2591) - JVS(11048) = -B(22979) -! JVS(11049) = Jac_FULL(2591,3974) - JVS(11049) = B(22559)+B(22561)+B(22563) -! JVS(11050) = Jac_FULL(2591,5250) - JVS(11050) = 0 -! JVS(11051) = Jac_FULL(2591,5252) - JVS(11051) = B(22560) -! JVS(11052) = Jac_FULL(2591,5255) - JVS(11052) = 0 -! JVS(11053) = Jac_FULL(2591,5256) - JVS(11053) = B(22562) -! JVS(11054) = Jac_FULL(2592,1602) - JVS(11054) = B(15562) -! JVS(11055) = Jac_FULL(2592,2592) - JVS(11055) = -B(15561) -! JVS(11056) = Jac_FULL(2592,3693) - JVS(11056) = B(13687) -! JVS(11057) = Jac_FULL(2592,4861) - JVS(11057) = B(12462)+B(12464)+B(12467) -! JVS(11058) = Jac_FULL(2592,5250) - JVS(11058) = B(15563) -! JVS(11059) = Jac_FULL(2592,5252) - JVS(11059) = B(12463) -! JVS(11060) = Jac_FULL(2592,5256) - JVS(11060) = B(12465) -! JVS(11061) = Jac_FULL(2593,2593) - JVS(11061) = -B(14505)-B(14507) -! JVS(11062) = Jac_FULL(2593,4847) - JVS(11062) = B(11245) -! JVS(11063) = Jac_FULL(2593,5250) - JVS(11063) = -B(14506) -! JVS(11064) = Jac_FULL(2593,5253) - JVS(11064) = B(11246) -! JVS(11065) = Jac_FULL(2594,671) - JVS(11065) = B(17934) -! JVS(11066) = Jac_FULL(2594,967) - JVS(11066) = B(17924) -! JVS(11067) = Jac_FULL(2594,2245) - JVS(11067) = B(17927) -! JVS(11068) = Jac_FULL(2594,2594) - JVS(11068) = -B(17930) -! JVS(11069) = Jac_FULL(2594,4712) - JVS(11069) = B(15330)+B(15332)+B(15335) -! JVS(11070) = Jac_FULL(2594,5250) - JVS(11070) = 0 -! JVS(11071) = Jac_FULL(2594,5252) - JVS(11071) = B(15331) -! JVS(11072) = Jac_FULL(2594,5255) - JVS(11072) = 0 -! JVS(11073) = Jac_FULL(2594,5256) - JVS(11073) = B(15333) -! JVS(11074) = Jac_FULL(2595,1700) - JVS(11074) = B(9224) -! JVS(11075) = Jac_FULL(2595,2565) - JVS(11075) = B(9221) -! JVS(11076) = Jac_FULL(2595,2595) - JVS(11076) = -B(9223) -! JVS(11077) = Jac_FULL(2595,3808) - JVS(11077) = B(5636)+B(5638)+B(5640) -! JVS(11078) = Jac_FULL(2595,5250) - JVS(11078) = B(9225) -! JVS(11079) = Jac_FULL(2595,5252) - JVS(11079) = B(5637) -! JVS(11080) = Jac_FULL(2595,5255) - JVS(11080) = 0 -! JVS(11081) = Jac_FULL(2595,5256) - JVS(11081) = B(5639) -! JVS(11082) = Jac_FULL(2596,1220) - JVS(11082) = B(13570) -! JVS(11083) = Jac_FULL(2596,2596) - JVS(11083) = -B(13573) -! JVS(11084) = Jac_FULL(2596,4578) - JVS(11084) = B(10383)+B(10385)+B(10388) -! JVS(11085) = Jac_FULL(2596,5250) - JVS(11085) = 0 -! JVS(11086) = Jac_FULL(2596,5252) - JVS(11086) = B(10384) -! JVS(11087) = Jac_FULL(2596,5255) - JVS(11087) = 0 -! JVS(11088) = Jac_FULL(2596,5256) - JVS(11088) = B(10386) -! JVS(11089) = Jac_FULL(2597,2597) - JVS(11089) = -B(20920)-B(20922) -! JVS(11090) = Jac_FULL(2597,4638) - JVS(11090) = B(19348) -! JVS(11091) = Jac_FULL(2597,5250) - JVS(11091) = -B(20921) -! JVS(11092) = Jac_FULL(2597,5253) - JVS(11092) = B(19349) -! JVS(11093) = Jac_FULL(2598,1029) - JVS(11093) = B(20219) -! JVS(11094) = Jac_FULL(2598,2598) - JVS(11094) = -B(20220) -! JVS(11095) = Jac_FULL(2598,4289) - JVS(11095) = B(18585)+B(18587)+B(18589) -! JVS(11096) = Jac_FULL(2598,5250) - JVS(11096) = 0 -! JVS(11097) = Jac_FULL(2598,5252) - JVS(11097) = B(18586) -! JVS(11098) = Jac_FULL(2598,5255) - JVS(11098) = 0 -! JVS(11099) = Jac_FULL(2598,5256) - JVS(11099) = B(18588) -! JVS(11100) = Jac_FULL(2599,1524) - JVS(11100) = B(18646) -! JVS(11101) = Jac_FULL(2599,2599) - JVS(11101) = -B(18647) -! JVS(11102) = Jac_FULL(2599,4252) - JVS(11102) = B(16345)+B(16347)+B(16349) -! JVS(11103) = Jac_FULL(2599,5250) - JVS(11103) = 0 -! JVS(11104) = Jac_FULL(2599,5252) - JVS(11104) = B(16346) -! JVS(11105) = Jac_FULL(2599,5255) - JVS(11105) = 0 -! JVS(11106) = Jac_FULL(2599,5256) - JVS(11106) = B(16348) -! JVS(11107) = Jac_FULL(2600,2600) - JVS(11107) = -B(21657)-B(21659) -! JVS(11108) = Jac_FULL(2600,5111) - JVS(11108) = B(20616) -! JVS(11109) = Jac_FULL(2600,5250) - JVS(11109) = -B(21658) -! JVS(11110) = Jac_FULL(2600,5253) - JVS(11110) = B(20617) -! JVS(11111) = Jac_FULL(2601,2601) - JVS(11111) = -B(9592)-B(9594)-B(9595) -! JVS(11112) = Jac_FULL(2601,4675) - JVS(11112) = B(5923) -! JVS(11113) = Jac_FULL(2601,5250) - JVS(11113) = -B(9593) -! JVS(11114) = Jac_FULL(2601,5255) - JVS(11114) = B(5924) -! JVS(11115) = Jac_FULL(2602,2602) - JVS(11115) = -B(15622)-B(15624)-B(15625) -! JVS(11116) = Jac_FULL(2602,4347) - JVS(11116) = B(12531) -! JVS(11117) = Jac_FULL(2602,5250) - JVS(11117) = -B(15623) -! JVS(11118) = Jac_FULL(2602,5255) - JVS(11118) = B(12532) -! JVS(11119) = Jac_FULL(2603,2603) - JVS(11119) = -B(13224)-B(13226)-B(13227) -! JVS(11120) = Jac_FULL(2603,4985) - JVS(11120) = B(9820) -! JVS(11121) = Jac_FULL(2603,5250) - JVS(11121) = -B(13225) -! JVS(11122) = Jac_FULL(2603,5255) - JVS(11122) = B(9821) -! JVS(11123) = Jac_FULL(2604,1512) - JVS(11123) = B(18333) -! JVS(11124) = Jac_FULL(2604,2604) - JVS(11124) = -B(18334) -! JVS(11125) = Jac_FULL(2604,4304) - JVS(11125) = B(15880)+B(15882)+B(15884) -! JVS(11126) = Jac_FULL(2604,5250) - JVS(11126) = 0 -! JVS(11127) = Jac_FULL(2604,5252) - JVS(11127) = B(15881) -! JVS(11128) = Jac_FULL(2604,5255) - JVS(11128) = 0 -! JVS(11129) = Jac_FULL(2604,5256) - JVS(11129) = B(15883) -! JVS(11130) = Jac_FULL(2605,2605) - JVS(11130) = -B(6025)-B(6027) -! JVS(11131) = Jac_FULL(2605,4133) - JVS(11131) = B(2731) -! JVS(11132) = Jac_FULL(2605,5250) - JVS(11132) = -B(6026) -! JVS(11133) = Jac_FULL(2605,5252) - JVS(11133) = B(2732) -! JVS(11134) = Jac_FULL(2606,2606) - JVS(11134) = -B(18903)-B(18904) -! JVS(11135) = Jac_FULL(2606,5167) - JVS(11135) = B(16698) -! JVS(11136) = Jac_FULL(2606,5250) - JVS(11136) = -B(18905) -! JVS(11137) = Jac_FULL(2606,5253) - JVS(11137) = B(16699) -! JVS(11138) = Jac_FULL(2607,1116) - JVS(11138) = B(23925) -! JVS(11139) = Jac_FULL(2607,2607) - JVS(11139) = -B(23926) -! JVS(11140) = Jac_FULL(2607,4465) - JVS(11140) = B(23793)+B(23795)+B(23797) -! JVS(11141) = Jac_FULL(2607,5250) - JVS(11141) = 0 -! JVS(11142) = Jac_FULL(2607,5252) - JVS(11142) = B(23794) -! JVS(11143) = Jac_FULL(2607,5255) - JVS(11143) = 0 -! JVS(11144) = Jac_FULL(2607,5256) - JVS(11144) = B(23796) -! JVS(11145) = Jac_FULL(2608,2608) - JVS(11145) = -B(22799)-B(22801) -! JVS(11146) = Jac_FULL(2608,4214) - JVS(11146) = B(22258) -! JVS(11147) = Jac_FULL(2608,5250) - JVS(11147) = -B(22800) -! JVS(11148) = Jac_FULL(2608,5253) - JVS(11148) = B(22259) -! JVS(11149) = Jac_FULL(2609,2609) - JVS(11149) = -B(12376)-B(12378)-B(12379) -! JVS(11150) = Jac_FULL(2609,4823) - JVS(11150) = B(8707) -! JVS(11151) = Jac_FULL(2609,5250) - JVS(11151) = -B(12377) -! JVS(11152) = Jac_FULL(2609,5255) - JVS(11152) = B(8708) -! JVS(11153) = Jac_FULL(2610,2610) - JVS(11153) = -B(4566)-B(4567) -! JVS(11154) = Jac_FULL(2610,5056) - JVS(11154) = B(1773) -! JVS(11155) = Jac_FULL(2610,5250) - JVS(11155) = -B(4568) -! JVS(11156) = Jac_FULL(2610,5252) - JVS(11156) = B(1774) -! JVS(11157) = Jac_FULL(2611,2611) - JVS(11157) = -B(4195)-B(4197) -! JVS(11158) = Jac_FULL(2611,4944) - JVS(11158) = B(1417) -! JVS(11159) = Jac_FULL(2611,5250) - JVS(11159) = -B(4196) -! JVS(11160) = Jac_FULL(2611,5253) - JVS(11160) = B(1418) -! JVS(11161) = Jac_FULL(2612,2612) - JVS(11161) = -B(4159)-B(4161) -! JVS(11162) = Jac_FULL(2612,5106) - JVS(11162) = B(1373) -! JVS(11163) = Jac_FULL(2612,5250) - JVS(11163) = -B(4160) -! JVS(11164) = Jac_FULL(2612,5253) - JVS(11164) = B(1374) -! JVS(11165) = Jac_FULL(2613,2613) - JVS(11165) = -B(21026)-B(21028) -! JVS(11166) = Jac_FULL(2613,4431) - JVS(11166) = B(19458) -! JVS(11167) = Jac_FULL(2613,5250) - JVS(11167) = -B(21027) -! JVS(11168) = Jac_FULL(2613,5253) - JVS(11168) = B(19459) -! JVS(11169) = Jac_FULL(2614,1132) - JVS(11169) = B(7078) -! JVS(11170) = Jac_FULL(2614,2092) - JVS(11170) = B(7081) -! JVS(11171) = Jac_FULL(2614,2614) - JVS(11171) = -B(7084)-B(7085) -! JVS(11172) = Jac_FULL(2614,5097) - JVS(11172) = B(3288)+B(3290)+B(3293) -! JVS(11173) = Jac_FULL(2614,5250) - JVS(11173) = 0 -! JVS(11174) = Jac_FULL(2614,5252) - JVS(11174) = B(3289) -! JVS(11175) = Jac_FULL(2614,5255) - JVS(11175) = 0 -! JVS(11176) = Jac_FULL(2614,5256) - JVS(11176) = B(3291) -! JVS(11177) = Jac_FULL(2615,2615) - JVS(11177) = -B(21461)-B(21463) -! JVS(11178) = Jac_FULL(2615,4324) - JVS(11178) = B(20204) -! JVS(11179) = Jac_FULL(2615,5250) - JVS(11179) = -B(21462) -! JVS(11180) = Jac_FULL(2615,5253) - JVS(11180) = B(20205) -! JVS(11181) = Jac_FULL(2616,2616) - JVS(11181) = -B(16548)-B(16549) -! JVS(11182) = Jac_FULL(2616,5025) - JVS(11182) = B(13696) -! JVS(11183) = Jac_FULL(2616,5250) - JVS(11183) = -B(16550) -! JVS(11184) = Jac_FULL(2616,5255) - JVS(11184) = B(13697) -! JVS(11185) = Jac_FULL(2617,2617) - JVS(11185) = -B(20318)-B(20320) -! JVS(11186) = Jac_FULL(2617,4129) - JVS(11186) = B(18742) -! JVS(11187) = Jac_FULL(2617,5250) - JVS(11187) = -B(20319) -! JVS(11188) = Jac_FULL(2617,5255) - JVS(11188) = B(18743) -! JVS(11189) = Jac_FULL(2618,2618) - JVS(11189) = -B(14089)-B(14091)-B(14093)-B(14094) -! JVS(11190) = Jac_FULL(2618,4095) - JVS(11190) = B(10894) -! JVS(11191) = Jac_FULL(2618,5250) - JVS(11191) = -B(14090)-B(14092) -! JVS(11192) = Jac_FULL(2618,5255) - JVS(11192) = B(10895) -! JVS(11193) = Jac_FULL(2619,2619) - JVS(11193) = -B(24029)-B(24031) -! JVS(11194) = Jac_FULL(2619,4456) - JVS(11194) = B(23997) -! JVS(11195) = Jac_FULL(2619,5250) - JVS(11195) = -B(24030) -! JVS(11196) = Jac_FULL(2619,5253) - JVS(11196) = B(23998) -! JVS(11197) = Jac_FULL(2620,2620) - JVS(11197) = -B(11496)-B(11498) -! JVS(11198) = Jac_FULL(2620,4206) - JVS(11198) = B(7695) -! JVS(11199) = Jac_FULL(2620,5250) - JVS(11199) = -B(11497) -! JVS(11200) = Jac_FULL(2620,5253) - JVS(11200) = B(7696) -! JVS(11201) = Jac_FULL(2621,2621) - JVS(11201) = -B(22119)-B(22121) -! JVS(11202) = Jac_FULL(2621,5104) - JVS(11202) = B(21091) -! JVS(11203) = Jac_FULL(2621,5250) - JVS(11203) = -B(22120) -! JVS(11204) = Jac_FULL(2621,5252) - JVS(11204) = B(21092) -! JVS(11205) = Jac_FULL(2622,2622) - JVS(11205) = -B(20569)-B(20570) -! JVS(11206) = Jac_FULL(2622,5171) - JVS(11206) = B(18984) -! JVS(11207) = Jac_FULL(2622,5250) - JVS(11207) = -B(20571) -! JVS(11208) = Jac_FULL(2622,5253) - JVS(11208) = B(18985) -! JVS(11209) = Jac_FULL(2623,968) - JVS(11209) = B(6830) -! JVS(11210) = Jac_FULL(2623,2623) - JVS(11210) = -B(6837) -! JVS(11211) = Jac_FULL(2623,5132) - JVS(11211) = B(3128)+B(3130)+B(3133) -! JVS(11212) = Jac_FULL(2623,5250) - JVS(11212) = 0 -! JVS(11213) = Jac_FULL(2623,5252) - JVS(11213) = B(3129) -! JVS(11214) = Jac_FULL(2623,5255) - JVS(11214) = 0 -! JVS(11215) = Jac_FULL(2623,5256) - JVS(11215) = B(3131) -! JVS(11216) = Jac_FULL(2624,2624) - JVS(11216) = -B(9960)-B(9962)-B(9963) -! JVS(11217) = Jac_FULL(2624,3665) - JVS(11217) = B(6246) -! JVS(11218) = Jac_FULL(2624,5250) - JVS(11218) = -B(9961) -! JVS(11219) = Jac_FULL(2624,5255) - JVS(11219) = B(6247) -! JVS(11220) = Jac_FULL(2625,2625) - JVS(11220) = -B(19713)-B(19714)-B(19715)-B(19717) -! JVS(11221) = Jac_FULL(2625,4811) - JVS(11221) = B(17831) -! JVS(11222) = Jac_FULL(2625,5250) - JVS(11222) = -B(19716)-B(19718) -! JVS(11223) = Jac_FULL(2625,5255) - JVS(11223) = B(17832) -! JVS(11224) = Jac_FULL(2626,2626) - JVS(11224) = -B(7308)-B(7310) -! JVS(11225) = Jac_FULL(2626,4091) - JVS(11225) = B(3451) -! JVS(11226) = Jac_FULL(2626,5250) - JVS(11226) = -B(7309) -! JVS(11227) = Jac_FULL(2626,5252) - JVS(11227) = B(3452) -! JVS(11228) = Jac_FULL(2627,2627) - JVS(11228) = -B(4246)-B(4248) -! JVS(11229) = Jac_FULL(2627,4932) - JVS(11229) = B(1471) -! JVS(11230) = Jac_FULL(2627,5250) - JVS(11230) = -B(4247) -! JVS(11231) = Jac_FULL(2627,5255) - JVS(11231) = B(1472) -! JVS(11232) = Jac_FULL(2628,2628) - JVS(11232) = -B(4462)-B(4463)-B(4465) -! JVS(11233) = Jac_FULL(2628,4980) - JVS(11233) = B(1694) -! JVS(11234) = Jac_FULL(2628,5250) - JVS(11234) = -B(4464)-B(4466) -! JVS(11235) = Jac_FULL(2628,5255) - JVS(11235) = B(1695) -! JVS(11236) = Jac_FULL(2629,2629) - JVS(11236) = -B(20740)-B(20742) -! JVS(11237) = Jac_FULL(2629,4119) - JVS(11237) = B(19143) -! JVS(11238) = Jac_FULL(2629,5250) - JVS(11238) = -B(20741) -! JVS(11239) = Jac_FULL(2629,5252) - JVS(11239) = B(19144) -! JVS(11240) = Jac_FULL(2630,2630) - JVS(11240) = -B(13465)-B(13467) -! JVS(11241) = Jac_FULL(2630,4628) - JVS(11241) = B(10265) -! JVS(11242) = Jac_FULL(2630,5250) - JVS(11242) = -B(13466) -! JVS(11243) = Jac_FULL(2630,5253) - JVS(11243) = B(10266) -! JVS(11244) = Jac_FULL(2631,2631) - JVS(11244) = -B(21385)-B(21387) -! JVS(11245) = Jac_FULL(2631,4013) - JVS(11245) = B(20058) -! JVS(11246) = Jac_FULL(2631,5250) - JVS(11246) = -B(21386) -! JVS(11247) = Jac_FULL(2631,5253) - JVS(11247) = B(20059) -! JVS(11248) = Jac_FULL(2632,2632) - JVS(11248) = -B(10072)-B(10074) -! JVS(11249) = Jac_FULL(2632,4633) - JVS(11249) = B(6368) -! JVS(11250) = Jac_FULL(2632,5250) - JVS(11250) = -B(10073) -! JVS(11251) = Jac_FULL(2632,5253) - JVS(11251) = B(6369) -! JVS(11252) = Jac_FULL(2633,2633) - JVS(11252) = -B(11948)-B(11949)-B(11951) -! JVS(11253) = Jac_FULL(2633,3859) - JVS(11253) = B(8199) -! JVS(11254) = Jac_FULL(2633,5250) - JVS(11254) = -B(11950)-B(11952) -! JVS(11255) = Jac_FULL(2633,5255) - JVS(11255) = B(8200) -! JVS(11256) = Jac_FULL(2634,577) - JVS(11256) = B(7220) -! JVS(11257) = Jac_FULL(2634,1177) - JVS(11257) = B(7207) -! JVS(11258) = Jac_FULL(2634,2453) - JVS(11258) = B(7210) -! JVS(11259) = Jac_FULL(2634,2634) - JVS(11259) = -B(7213)-B(7214) -! JVS(11260) = Jac_FULL(2634,3836) - JVS(11260) = B(3389)+B(3391)+B(3394) -! JVS(11261) = Jac_FULL(2634,5250) - JVS(11261) = 0 -! JVS(11262) = Jac_FULL(2634,5252) - JVS(11262) = B(3390) -! JVS(11263) = Jac_FULL(2634,5255) - JVS(11263) = 0 -! JVS(11264) = Jac_FULL(2634,5256) - JVS(11264) = B(3392) -! JVS(11265) = Jac_FULL(2635,2635) - JVS(11265) = -B(21603)-B(21604) -! JVS(11266) = Jac_FULL(2635,4772) - JVS(11266) = B(20470) -! JVS(11267) = Jac_FULL(2635,5250) - JVS(11267) = -B(21605) -! JVS(11268) = Jac_FULL(2635,5253) - JVS(11268) = B(20471) -! JVS(11269) = Jac_FULL(2636,2636) - JVS(11269) = -B(19210)-B(19212) -! JVS(11270) = Jac_FULL(2636,4664) - JVS(11270) = B(16990) -! JVS(11271) = Jac_FULL(2636,5250) - JVS(11271) = -B(19211) -! JVS(11272) = Jac_FULL(2636,5253) - JVS(11272) = B(16991) -! JVS(11273) = Jac_FULL(2637,2637) - JVS(11273) = -B(23405)-B(23407) -! JVS(11274) = Jac_FULL(2637,5027) - JVS(11274) = B(23002) -! JVS(11275) = Jac_FULL(2637,5250) - JVS(11275) = -B(23406) -! JVS(11276) = Jac_FULL(2637,5253) - JVS(11276) = B(23003) -! JVS(11277) = Jac_FULL(2638,804) - JVS(11277) = B(17964) -! JVS(11278) = Jac_FULL(2638,1526) - JVS(11278) = B(17954) -! JVS(11279) = Jac_FULL(2638,2330) - JVS(11279) = B(17957) -! JVS(11280) = Jac_FULL(2638,2638) - JVS(11280) = -B(17960) -! JVS(11281) = Jac_FULL(2638,4715) - JVS(11281) = B(15358)+B(15360)+B(15363) -! JVS(11282) = Jac_FULL(2638,5250) - JVS(11282) = 0 -! JVS(11283) = Jac_FULL(2638,5252) - JVS(11283) = B(15359) -! JVS(11284) = Jac_FULL(2638,5255) - JVS(11284) = 0 -! JVS(11285) = Jac_FULL(2638,5256) - JVS(11285) = B(15361) -! JVS(11286) = Jac_FULL(2639,1899) - JVS(11286) = B(3659) -! JVS(11287) = Jac_FULL(2639,2639) - JVS(11287) = -B(3660) -! JVS(11288) = Jac_FULL(2639,5121) - JVS(11288) = B(945)+B(948)+B(950) -! JVS(11289) = Jac_FULL(2639,5250) - JVS(11289) = 0 -! JVS(11290) = Jac_FULL(2639,5252) - JVS(11290) = B(951) -! JVS(11291) = Jac_FULL(2639,5255) - JVS(11291) = 0 -! JVS(11292) = Jac_FULL(2639,5256) - JVS(11292) = B(946) -! JVS(11293) = Jac_FULL(2640,2640) - JVS(11293) = -B(9333)-B(9335) -! JVS(11294) = Jac_FULL(2640,4641) - JVS(11294) = B(5723) -! JVS(11295) = Jac_FULL(2640,5250) - JVS(11295) = -B(9334) -! JVS(11296) = Jac_FULL(2640,5253) - JVS(11296) = B(5724) -! JVS(11297) = Jac_FULL(2641,917) - JVS(11297) = B(18190) -! JVS(11298) = Jac_FULL(2641,2641) - JVS(11298) = -B(18191) -! JVS(11299) = Jac_FULL(2641,4291) - JVS(11299) = B(15687)+B(15689)+B(15691) -! JVS(11300) = Jac_FULL(2641,5250) - JVS(11300) = 0 -! JVS(11301) = Jac_FULL(2641,5252) - JVS(11301) = B(15688) -! JVS(11302) = Jac_FULL(2641,5255) - JVS(11302) = 0 -! JVS(11303) = Jac_FULL(2641,5256) - JVS(11303) = B(15690) -! JVS(11304) = Jac_FULL(2642,616) - JVS(11304) = B(17904) -! JVS(11305) = Jac_FULL(2642,1446) - JVS(11305) = B(17894) -! JVS(11306) = Jac_FULL(2642,2124) - JVS(11306) = B(17897) -! JVS(11307) = Jac_FULL(2642,2642) - JVS(11307) = -B(17900) -! JVS(11308) = Jac_FULL(2642,4713) - JVS(11308) = B(15302)+B(15304)+B(15307) -! JVS(11309) = Jac_FULL(2642,5250) - JVS(11309) = 0 -! JVS(11310) = Jac_FULL(2642,5252) - JVS(11310) = B(15303) -! JVS(11311) = Jac_FULL(2642,5255) - JVS(11311) = 0 -! JVS(11312) = Jac_FULL(2642,5256) - JVS(11312) = B(15305) -! JVS(11313) = Jac_FULL(2643,2643) - JVS(11313) = -B(21343)-B(21345) -! JVS(11314) = Jac_FULL(2643,4202) - JVS(11314) = B(19971) -! JVS(11315) = Jac_FULL(2643,5250) - JVS(11315) = -B(21344) -! JVS(11316) = Jac_FULL(2643,5253) - JVS(11316) = B(19972) -! JVS(11317) = Jac_FULL(2644,284) - JVS(11317) = B(17688)+B(17689) -! JVS(11318) = Jac_FULL(2644,1499) - JVS(11318) = B(17681) -! JVS(11319) = Jac_FULL(2644,2514) - JVS(11319) = B(17684) -! JVS(11320) = Jac_FULL(2644,2644) - JVS(11320) = -B(17687) -! JVS(11321) = Jac_FULL(2644,4357) - JVS(11321) = B(15113)+B(15115)+B(15117) -! JVS(11322) = Jac_FULL(2644,5250) - JVS(11322) = B(17690) -! JVS(11323) = Jac_FULL(2644,5252) - JVS(11323) = B(15114) -! JVS(11324) = Jac_FULL(2644,5255) - JVS(11324) = 0 -! JVS(11325) = Jac_FULL(2644,5256) - JVS(11325) = B(15116) -! JVS(11326) = Jac_FULL(2645,1623) - JVS(11326) = B(9486) -! JVS(11327) = Jac_FULL(2645,2559) - JVS(11327) = B(9481) -! JVS(11328) = Jac_FULL(2645,2645) - JVS(11328) = -B(9489)-B(9491) -! JVS(11329) = Jac_FULL(2645,4683) - JVS(11329) = B(5843) -! JVS(11330) = Jac_FULL(2645,5250) - JVS(11330) = B(9482)+B(9487)-B(9490) -! JVS(11331) = Jac_FULL(2645,5255) - JVS(11331) = 0 -! JVS(11332) = Jac_FULL(2646,1490) - JVS(11332) = B(17586) -! JVS(11333) = Jac_FULL(2646,1978) - JVS(11333) = B(17589) -! JVS(11334) = Jac_FULL(2646,2646) - JVS(11334) = -B(17592)-B(17593) -! JVS(11335) = Jac_FULL(2646,5120) - JVS(11335) = B(15013)+B(15015)+B(15018) -! JVS(11336) = Jac_FULL(2646,5250) - JVS(11336) = 0 -! JVS(11337) = Jac_FULL(2646,5252) - JVS(11337) = B(15014) -! JVS(11338) = Jac_FULL(2646,5255) - JVS(11338) = 0 -! JVS(11339) = Jac_FULL(2646,5256) - JVS(11339) = B(15016) -! JVS(11340) = Jac_FULL(2647,1842) - JVS(11340) = B(3896) -! JVS(11341) = Jac_FULL(2647,2220) - JVS(11341) = B(3901) -! JVS(11342) = Jac_FULL(2647,2647) - JVS(11342) = -B(3904)-B(3905) -! JVS(11343) = Jac_FULL(2647,5116) - JVS(11343) = B(1144)+B(1146)+B(1148) -! JVS(11344) = Jac_FULL(2647,5250) - JVS(11344) = 0 -! JVS(11345) = Jac_FULL(2647,5252) - JVS(11345) = B(1145) -! JVS(11346) = Jac_FULL(2647,5255) - JVS(11346) = 0 -! JVS(11347) = Jac_FULL(2647,5256) - JVS(11347) = B(1147) -! JVS(11348) = Jac_FULL(2648,2648) - JVS(11348) = -B(17259)-B(17261) -! JVS(11349) = Jac_FULL(2648,5014) - JVS(11349) = B(14673) -! JVS(11350) = Jac_FULL(2648,5250) - JVS(11350) = -B(17260) -! JVS(11351) = Jac_FULL(2648,5253) - JVS(11351) = B(14674) -! JVS(11352) = Jac_FULL(2649,2649) - JVS(11352) = -B(9732)-B(9734)-B(9735) -! JVS(11353) = Jac_FULL(2649,3828) - JVS(11353) = B(6036) -! JVS(11354) = Jac_FULL(2649,5250) - JVS(11354) = -B(9733) -! JVS(11355) = Jac_FULL(2649,5255) - JVS(11355) = B(6037) -! JVS(11356) = Jac_FULL(2650,2650) - JVS(11356) = -B(10254)-B(10256) -! JVS(11357) = Jac_FULL(2650,4656) - JVS(11357) = B(6550) -! JVS(11358) = Jac_FULL(2650,5250) - JVS(11358) = -B(10255) -! JVS(11359) = Jac_FULL(2650,5253) - JVS(11359) = B(6551) -! JVS(11360) = Jac_FULL(2651,2651) - JVS(11360) = -B(20932)-B(20934) -! JVS(11361) = Jac_FULL(2651,5006) - JVS(11361) = B(19369) -! JVS(11362) = Jac_FULL(2651,5250) - JVS(11362) = -B(20933) -! JVS(11363) = Jac_FULL(2651,5253) - JVS(11363) = B(19370) -! JVS(11364) = Jac_FULL(2652,2652) - JVS(11364) = -B(22222)-B(22224) -! JVS(11365) = Jac_FULL(2652,4026) - JVS(11365) = B(21371) -! JVS(11366) = Jac_FULL(2652,5250) - JVS(11366) = -B(22223) -! JVS(11367) = Jac_FULL(2652,5255) - JVS(11367) = B(21372) -! JVS(11368) = Jac_FULL(2653,2653) - JVS(11368) = -B(11816)-B(11817) -! JVS(11369) = Jac_FULL(2653,3869) - JVS(11369) = B(8086) -! JVS(11370) = Jac_FULL(2653,5250) - JVS(11370) = -B(11818) -! JVS(11371) = Jac_FULL(2653,5252) - JVS(11371) = B(8087) -! JVS(11372) = Jac_FULL(2654,2654) - JVS(11372) = -B(21423)-B(21425) -! JVS(11373) = Jac_FULL(2654,4536) - JVS(11373) = B(20111) -! JVS(11374) = Jac_FULL(2654,5250) - JVS(11374) = -B(21424) -! JVS(11375) = Jac_FULL(2654,5255) - JVS(11375) = B(20112) -! JVS(11376) = Jac_FULL(2655,2655) - JVS(11376) = -B(20315)-B(20316) -! JVS(11377) = Jac_FULL(2655,4548) - JVS(11377) = B(18733) -! JVS(11378) = Jac_FULL(2655,5250) - JVS(11378) = -B(20317) -! JVS(11379) = Jac_FULL(2655,5253) - JVS(11379) = B(18734) -! JVS(11380) = Jac_FULL(2656,2656) - JVS(11380) = -B(9454)-B(9456) -! JVS(11381) = Jac_FULL(2656,4829) - JVS(11381) = B(5814) -! JVS(11382) = Jac_FULL(2656,5250) - JVS(11382) = -B(9455) -! JVS(11383) = Jac_FULL(2656,5253) - JVS(11383) = B(5815) -! JVS(11384) = Jac_FULL(2657,2657) - JVS(11384) = -B(3979)-B(3981) -! JVS(11385) = Jac_FULL(2657,5244) - JVS(11385) = B(1209) -! JVS(11386) = Jac_FULL(2657,5250) - JVS(11386) = -B(3980) -! JVS(11387) = Jac_FULL(2657,5253) - JVS(11387) = B(1210) -! JVS(11388) = Jac_FULL(2658,2658) - JVS(11388) = -B(20686)-B(20688) -! JVS(11389) = Jac_FULL(2658,5021) - JVS(11389) = B(19099) -! JVS(11390) = Jac_FULL(2658,5250) - JVS(11390) = -B(20687) -! JVS(11391) = Jac_FULL(2658,5253) - JVS(11391) = B(19100) -! JVS(11392) = Jac_FULL(2659,1681) - JVS(11392) = B(15627) -! JVS(11393) = Jac_FULL(2659,2602) - JVS(11393) = B(15625) -! JVS(11394) = Jac_FULL(2659,2659) - JVS(11394) = -B(15626) -! JVS(11395) = Jac_FULL(2659,4347) - JVS(11395) = B(12533)+B(12535)+B(12538) -! JVS(11396) = Jac_FULL(2659,5250) - JVS(11396) = B(15628) -! JVS(11397) = Jac_FULL(2659,5252) - JVS(11397) = B(12534) -! JVS(11398) = Jac_FULL(2659,5255) - JVS(11398) = 0 -! JVS(11399) = Jac_FULL(2659,5256) - JVS(11399) = B(12536) -! JVS(11400) = Jac_FULL(2660,2660) - JVS(11400) = -B(22858)-B(22860) -! JVS(11401) = Jac_FULL(2660,4867) - JVS(11401) = B(22378) -! JVS(11402) = Jac_FULL(2660,5250) - JVS(11402) = -B(22859) -! JVS(11403) = Jac_FULL(2660,5253) - JVS(11403) = B(22379) -! JVS(11404) = Jac_FULL(2661,2661) - JVS(11404) = -B(19225)-B(19227) -! JVS(11405) = Jac_FULL(2661,4545) - JVS(11405) = B(17007) -! JVS(11406) = Jac_FULL(2661,5250) - JVS(11406) = -B(19226) -! JVS(11407) = Jac_FULL(2661,5252) - JVS(11407) = B(17008) -! JVS(11408) = Jac_FULL(2662,62) - JVS(11408) = B(16650) -! JVS(11409) = Jac_FULL(2662,2109) - JVS(11409) = B(16641) -! JVS(11410) = Jac_FULL(2662,2662) - JVS(11410) = -B(16649) -! JVS(11411) = Jac_FULL(2662,5174) - JVS(11411) = B(13824)+B(13826)+B(13828) -! JVS(11412) = Jac_FULL(2662,5250) - JVS(11412) = B(16651) -! JVS(11413) = Jac_FULL(2662,5252) - JVS(11413) = B(13825) -! JVS(11414) = Jac_FULL(2662,5255) - JVS(11414) = 0 -! JVS(11415) = Jac_FULL(2662,5256) - JVS(11415) = B(13827) -! JVS(11416) = Jac_FULL(2663,2663) - JVS(11416) = -B(18955)-B(18957) -! JVS(11417) = Jac_FULL(2663,4613) - JVS(11417) = B(16734) -! JVS(11418) = Jac_FULL(2663,5250) - JVS(11418) = -B(18956) -! JVS(11419) = Jac_FULL(2663,5253) - JVS(11419) = B(16735) -! JVS(11420) = Jac_FULL(2664,2664) - JVS(11420) = -B(18963)-B(18965) -! JVS(11421) = Jac_FULL(2664,4614) - JVS(11421) = B(16743) -! JVS(11422) = Jac_FULL(2664,5250) - JVS(11422) = -B(18964) -! JVS(11423) = Jac_FULL(2664,5252) - JVS(11423) = B(16744) -! JVS(11424) = Jac_FULL(2665,286) - JVS(11424) = B(3753) -! JVS(11425) = Jac_FULL(2665,2665) - JVS(11425) = -B(7071)-B(7073) -! JVS(11426) = Jac_FULL(2665,5161) - JVS(11426) = B(3275) -! JVS(11427) = Jac_FULL(2665,5185) - JVS(11427) = 0 -! JVS(11428) = Jac_FULL(2665,5250) - JVS(11428) = B(3754)-B(7072) -! JVS(11429) = Jac_FULL(2666,2666) - JVS(11429) = -B(21007)-B(21009) -! JVS(11430) = Jac_FULL(2666,4679) - JVS(11430) = B(19444) -! JVS(11431) = Jac_FULL(2666,5250) - JVS(11431) = -B(21008) -! JVS(11432) = Jac_FULL(2666,5253) - JVS(11432) = B(19445) -! JVS(11433) = Jac_FULL(2667,1522) - JVS(11433) = B(23282) -! JVS(11434) = Jac_FULL(2667,2667) - JVS(11434) = -B(23283) -! JVS(11435) = Jac_FULL(2667,4447) - JVS(11435) = B(22874)+B(22876)+B(22878) -! JVS(11436) = Jac_FULL(2667,5250) - JVS(11436) = 0 -! JVS(11437) = Jac_FULL(2667,5252) - JVS(11437) = B(22875) -! JVS(11438) = Jac_FULL(2667,5255) - JVS(11438) = 0 -! JVS(11439) = Jac_FULL(2667,5256) - JVS(11439) = B(22877) -! JVS(11440) = Jac_FULL(2668,1255) - JVS(11440) = B(18249) -! JVS(11441) = Jac_FULL(2668,2668) - JVS(11441) = -B(18250) -! JVS(11442) = Jac_FULL(2668,4303) - JVS(11442) = B(15769)+B(15771)+B(15773) -! JVS(11443) = Jac_FULL(2668,5250) - JVS(11443) = 0 -! JVS(11444) = Jac_FULL(2668,5252) - JVS(11444) = B(15770) -! JVS(11445) = Jac_FULL(2668,5255) - JVS(11445) = 0 -! JVS(11446) = Jac_FULL(2668,5256) - JVS(11446) = B(15772) -! JVS(11447) = Jac_FULL(2669,2669) - JVS(11447) = -B(17738)-B(17739) -! JVS(11448) = Jac_FULL(2669,4500) - JVS(11448) = B(15169) -! JVS(11449) = Jac_FULL(2669,5250) - JVS(11449) = -B(17740) -! JVS(11450) = Jac_FULL(2669,5253) - JVS(11450) = B(15170) -! JVS(11451) = Jac_FULL(2670,2670) - JVS(11451) = -B(13622)-B(13623) -! JVS(11452) = Jac_FULL(2670,4436) - JVS(11452) = B(10434) -! JVS(11453) = Jac_FULL(2670,5250) - JVS(11453) = -B(13624) -! JVS(11454) = Jac_FULL(2670,5253) - JVS(11454) = B(10435) -! JVS(11455) = Jac_FULL(2671,2671) - JVS(11455) = -B(13237)-B(13239) -! JVS(11456) = Jac_FULL(2671,4680) - JVS(11456) = B(9861) -! JVS(11457) = Jac_FULL(2671,5250) - JVS(11457) = -B(13238) -! JVS(11458) = Jac_FULL(2671,5253) - JVS(11458) = B(9862) -! JVS(11459) = Jac_FULL(2672,2672) - JVS(11459) = -B(13961)-B(13963) -! JVS(11460) = Jac_FULL(2672,4127) - JVS(11460) = B(10755) -! JVS(11461) = Jac_FULL(2672,5250) - JVS(11461) = -B(13962) -! JVS(11462) = Jac_FULL(2672,5252) - JVS(11462) = B(10756) -! JVS(11463) = Jac_FULL(2673,2673) - JVS(11463) = -B(22713)-B(22715) -! JVS(11464) = Jac_FULL(2673,4172) - JVS(11464) = B(22101) -! JVS(11465) = Jac_FULL(2673,5250) - JVS(11465) = -B(22714) -! JVS(11466) = Jac_FULL(2673,5252) - JVS(11466) = B(22102) -! JVS(11467) = Jac_FULL(2674,2674) - JVS(11467) = -B(14864)-B(14866) -! JVS(11468) = Jac_FULL(2674,4451) - JVS(11468) = B(11528) -! JVS(11469) = Jac_FULL(2674,5250) - JVS(11469) = -B(14865) -! JVS(11470) = Jac_FULL(2674,5253) - JVS(11470) = B(11529) -! JVS(11471) = Jac_FULL(2675,2675) - JVS(11471) = -B(11490)-B(11491) -! JVS(11472) = Jac_FULL(2675,5101) - JVS(11472) = B(7684) -! JVS(11473) = Jac_FULL(2675,5250) - JVS(11473) = -B(11492) -! JVS(11474) = Jac_FULL(2675,5253) - JVS(11474) = B(7685) -! JVS(11475) = Jac_FULL(2676,1398) - JVS(11475) = B(17980) -! JVS(11476) = Jac_FULL(2676,2676) - JVS(11476) = -B(17983) -! JVS(11477) = Jac_FULL(2676,4238) - JVS(11477) = B(15377)+B(15379)+B(15381) -! JVS(11478) = Jac_FULL(2676,5250) - JVS(11478) = 0 -! JVS(11479) = Jac_FULL(2676,5252) - JVS(11479) = B(15378) -! JVS(11480) = Jac_FULL(2676,5255) - JVS(11480) = 0 -! JVS(11481) = Jac_FULL(2676,5256) - JVS(11481) = B(15380) -! JVS(11482) = Jac_FULL(2677,2677) - JVS(11482) = -B(17410)-B(17411) -! JVS(11483) = Jac_FULL(2677,4260) - JVS(11483) = B(14856) -! JVS(11484) = Jac_FULL(2677,5250) - JVS(11484) = -B(17412) -! JVS(11485) = Jac_FULL(2677,5253) - JVS(11485) = B(14857) -! JVS(11486) = Jac_FULL(2678,2678) - JVS(11486) = -B(17404)-B(17405) -! JVS(11487) = Jac_FULL(2678,4243) - JVS(11487) = B(14845) -! JVS(11488) = Jac_FULL(2678,5250) - JVS(11488) = -B(17406) -! JVS(11489) = Jac_FULL(2678,5253) - JVS(11489) = B(14846) -! JVS(11490) = Jac_FULL(2679,1099) - JVS(11490) = B(14049) -! JVS(11491) = Jac_FULL(2679,2679) - JVS(11491) = -B(14050) -! JVS(11492) = Jac_FULL(2679,4991) - JVS(11492) = B(10850)+B(10852)+B(10854) -! JVS(11493) = Jac_FULL(2679,5250) - JVS(11493) = 0 -! JVS(11494) = Jac_FULL(2679,5252) - JVS(11494) = B(10851) -! JVS(11495) = Jac_FULL(2679,5255) - JVS(11495) = 0 -! JVS(11496) = Jac_FULL(2679,5256) - JVS(11496) = B(10853) -! JVS(11497) = Jac_FULL(2680,500) - JVS(11497) = B(23907) -! JVS(11498) = Jac_FULL(2680,2300) - JVS(11498) = B(23900) -! JVS(11499) = Jac_FULL(2680,2680) - JVS(11499) = -B(23904)-B(23906) -! JVS(11500) = Jac_FULL(2680,4820) - JVS(11500) = B(23757) -! JVS(11501) = Jac_FULL(2680,5250) - JVS(11501) = B(23901)-B(23905)+B(23908) -! JVS(11502) = Jac_FULL(2680,5255) - JVS(11502) = 0 -! JVS(11503) = Jac_FULL(2681,2681) - JVS(11503) = -B(13456)-B(13458) -! JVS(11504) = Jac_FULL(2681,4168) - JVS(11504) = B(10243) -! JVS(11505) = Jac_FULL(2681,5250) - JVS(11505) = -B(13457) -! JVS(11506) = Jac_FULL(2681,5253) - JVS(11506) = B(10244) -! JVS(11507) = Jac_FULL(2682,1144) - JVS(11507) = B(18292) -! JVS(11508) = Jac_FULL(2682,2682) - JVS(11508) = -B(18293) -! JVS(11509) = Jac_FULL(2682,4292) - JVS(11509) = B(15829)+B(15831)+B(15833) -! JVS(11510) = Jac_FULL(2682,5250) - JVS(11510) = 0 -! JVS(11511) = Jac_FULL(2682,5252) - JVS(11511) = B(15830) -! JVS(11512) = Jac_FULL(2682,5255) - JVS(11512) = 0 -! JVS(11513) = Jac_FULL(2682,5256) - JVS(11513) = B(15832) -! JVS(11514) = Jac_FULL(2683,2683) - JVS(11514) = -B(21337)-B(21339) -! JVS(11515) = Jac_FULL(2683,4241) - JVS(11515) = B(19960) -! JVS(11516) = Jac_FULL(2683,5250) - JVS(11516) = -B(21338) -! JVS(11517) = Jac_FULL(2683,5253) - JVS(11517) = B(19961) -! JVS(11518) = Jac_FULL(2684,2684) - JVS(11518) = -B(11519)-B(11520) -! JVS(11519) = Jac_FULL(2684,5008) - JVS(11519) = B(7719) -! JVS(11520) = Jac_FULL(2684,5250) - JVS(11520) = -B(11521) -! JVS(11521) = Jac_FULL(2684,5253) - JVS(11521) = B(7720) -! JVS(11522) = Jac_FULL(2685,2685) - JVS(11522) = -B(17269)-B(17271) -! JVS(11523) = Jac_FULL(2685,4989) - JVS(11523) = B(14687) -! JVS(11524) = Jac_FULL(2685,5250) - JVS(11524) = -B(17270) -! JVS(11525) = Jac_FULL(2685,5253) - JVS(11525) = B(14688) -! JVS(11526) = Jac_FULL(2686,2686) - JVS(11526) = -B(16205)-B(16207)-B(16208) -! JVS(11527) = Jac_FULL(2686,4674) - JVS(11527) = B(13173) -! JVS(11528) = Jac_FULL(2686,5250) - JVS(11528) = -B(16206) -! JVS(11529) = Jac_FULL(2686,5255) - JVS(11529) = B(13174) -! JVS(11530) = Jac_FULL(2687,2687) - JVS(11530) = -B(4401)-B(4403) -! JVS(11531) = Jac_FULL(2687,4981) - JVS(11531) = B(1621) -! JVS(11532) = Jac_FULL(2687,5250) - JVS(11532) = -B(4402) -! JVS(11533) = Jac_FULL(2687,5252) - JVS(11533) = B(1622) -! JVS(11534) = Jac_FULL(2688,2688) - JVS(11534) = -B(21997)-B(21999) -! JVS(11535) = Jac_FULL(2688,5044) - JVS(11535) = B(20950) -! JVS(11536) = Jac_FULL(2688,5250) - JVS(11536) = -B(21998) -! JVS(11537) = Jac_FULL(2688,5253) - JVS(11537) = B(20951) -! JVS(11538) = Jac_FULL(2689,2689) - JVS(11538) = -B(12941)-B(12943) -! JVS(11539) = Jac_FULL(2689,4917) - JVS(11539) = B(9442) -! JVS(11540) = Jac_FULL(2689,5250) - JVS(11540) = -B(12942) -! JVS(11541) = Jac_FULL(2689,5253) - JVS(11541) = B(9443) -! JVS(11542) = Jac_FULL(2690,2690) - JVS(11542) = -B(13362)-B(13364)-B(13365) -! JVS(11543) = Jac_FULL(2690,4070) - JVS(11543) = B(10130) -! JVS(11544) = Jac_FULL(2690,5250) - JVS(11544) = -B(13363) -! JVS(11545) = Jac_FULL(2690,5255) - JVS(11545) = B(10131) -! JVS(11546) = Jac_FULL(2691,2691) - JVS(11546) = -B(11605)-B(11606) -! JVS(11547) = Jac_FULL(2691,5137) - JVS(11547) = B(7850) -! JVS(11548) = Jac_FULL(2691,5250) - JVS(11548) = -B(11607) -! JVS(11549) = Jac_FULL(2691,5253) - JVS(11549) = B(7851) -! JVS(11550) = Jac_FULL(2692,1495) - JVS(11550) = B(14150) -! JVS(11551) = Jac_FULL(2692,2692) - JVS(11551) = -B(14151) -! JVS(11552) = Jac_FULL(2692,4118) - JVS(11552) = B(10950)+B(10952)+B(10954) -! JVS(11553) = Jac_FULL(2692,5250) - JVS(11553) = 0 -! JVS(11554) = Jac_FULL(2692,5252) - JVS(11554) = B(10951) -! JVS(11555) = Jac_FULL(2692,5255) - JVS(11555) = 0 -! JVS(11556) = Jac_FULL(2692,5256) - JVS(11556) = B(10953) -! JVS(11557) = Jac_FULL(2693,2693) - JVS(11557) = -B(11472)-B(11473)-B(11475) -! JVS(11558) = Jac_FULL(2693,4785) - JVS(11558) = B(7667) -! JVS(11559) = Jac_FULL(2693,5250) - JVS(11559) = -B(11474)-B(11476) -! JVS(11560) = Jac_FULL(2693,5255) - JVS(11560) = B(7668) -! JVS(11561) = Jac_FULL(2694,863) - JVS(11561) = B(23272) -! JVS(11562) = Jac_FULL(2694,2694) - JVS(11562) = -B(23273) -! JVS(11563) = Jac_FULL(2694,3846) - JVS(11563) = B(22847)+B(22849)+B(22851) -! JVS(11564) = Jac_FULL(2694,5250) - JVS(11564) = 0 -! JVS(11565) = Jac_FULL(2694,5252) - JVS(11565) = B(22848) -! JVS(11566) = Jac_FULL(2694,5255) - JVS(11566) = 0 -! JVS(11567) = Jac_FULL(2694,5256) - JVS(11567) = B(22850) -! JVS(11568) = Jac_FULL(2695,2695) - JVS(11568) = -B(13577)-B(13579)-B(13580) -! JVS(11569) = Jac_FULL(2695,4341) - JVS(11569) = B(10390) -! JVS(11570) = Jac_FULL(2695,5250) - JVS(11570) = -B(13578) -! JVS(11571) = Jac_FULL(2695,5255) - JVS(11571) = B(10391) -! JVS(11572) = Jac_FULL(2696,2696) - JVS(11572) = -B(18350)-B(18352) -! JVS(11573) = Jac_FULL(2696,4966) - JVS(11573) = B(15924) -! JVS(11574) = Jac_FULL(2696,5250) - JVS(11574) = -B(18351) -! JVS(11575) = Jac_FULL(2696,5253) - JVS(11575) = B(15925) -! JVS(11576) = Jac_FULL(2697,758) - JVS(11576) = B(17797) -! JVS(11577) = Jac_FULL(2697,1145) - JVS(11577) = B(17787) -! JVS(11578) = Jac_FULL(2697,2282) - JVS(11578) = B(17790) -! JVS(11579) = Jac_FULL(2697,2697) - JVS(11579) = -B(17793) -! JVS(11580) = Jac_FULL(2697,4903) - JVS(11580) = B(15218)+B(15220)+B(15223) -! JVS(11581) = Jac_FULL(2697,5250) - JVS(11581) = 0 -! JVS(11582) = Jac_FULL(2697,5252) - JVS(11582) = B(15219) -! JVS(11583) = Jac_FULL(2697,5255) - JVS(11583) = 0 -! JVS(11584) = Jac_FULL(2697,5256) - JVS(11584) = B(15221) -! JVS(11585) = Jac_FULL(2698,2698) - JVS(11585) = -B(12197)-B(12199) -! JVS(11586) = Jac_FULL(2698,4275) - JVS(11586) = B(8470) -! JVS(11587) = Jac_FULL(2698,5250) - JVS(11587) = -B(12198) -! JVS(11588) = Jac_FULL(2698,5253) - JVS(11588) = B(8471) -! JVS(11589) = Jac_FULL(2699,1965) - JVS(11589) = B(4422) -! JVS(11590) = Jac_FULL(2699,2057) - JVS(11590) = B(4419) -! JVS(11591) = Jac_FULL(2699,2699) - JVS(11591) = -B(4423)-B(4424) -! JVS(11592) = Jac_FULL(2699,5192) - JVS(11592) = B(1644)+B(1646)+B(1649) -! JVS(11593) = Jac_FULL(2699,5250) - JVS(11593) = 0 -! JVS(11594) = Jac_FULL(2699,5252) - JVS(11594) = B(1645) -! JVS(11595) = Jac_FULL(2699,5255) - JVS(11595) = 0 -! JVS(11596) = Jac_FULL(2699,5256) - JVS(11596) = B(1647) -! JVS(11597) = Jac_FULL(2700,2700) - JVS(11597) = -B(22266)-B(22268) -! JVS(11598) = Jac_FULL(2700,4731) - JVS(11598) = B(21474) -! JVS(11599) = Jac_FULL(2700,5250) - JVS(11599) = -B(22267) -! JVS(11600) = Jac_FULL(2700,5253) - JVS(11600) = B(21475) -! JVS(11601) = Jac_FULL(2701,2701) - JVS(11601) = -B(20703)-B(20705) -! JVS(11602) = Jac_FULL(2701,4580) - JVS(11602) = B(19119) -! JVS(11603) = Jac_FULL(2701,5250) - JVS(11603) = -B(20704) -! JVS(11604) = Jac_FULL(2701,5252) - JVS(11604) = B(19120) -! JVS(11605) = Jac_FULL(2702,2702) - JVS(11605) = -B(12252)-B(12254) -! JVS(11606) = Jac_FULL(2702,4522) - JVS(11606) = B(8554) -! JVS(11607) = Jac_FULL(2702,5250) - JVS(11607) = -B(12253) -! JVS(11608) = Jac_FULL(2702,5253) - JVS(11608) = B(8555) -! JVS(11609) = Jac_FULL(2703,2703) - JVS(11609) = -B(23833)-B(23835) -! JVS(11610) = Jac_FULL(2703,5054) - JVS(11610) = B(23640) -! JVS(11611) = Jac_FULL(2703,5250) - JVS(11611) = -B(23834) -! JVS(11612) = Jac_FULL(2703,5253) - JVS(11612) = B(23641) -! JVS(11613) = Jac_FULL(2704,2704) - JVS(11613) = -B(20982)-B(20984) -! JVS(11614) = Jac_FULL(2704,5052) - JVS(11614) = B(19422) -! JVS(11615) = Jac_FULL(2704,5250) - JVS(11615) = -B(20983) -! JVS(11616) = Jac_FULL(2704,5253) - JVS(11616) = B(19423) -! JVS(11617) = Jac_FULL(2705,2705) - JVS(11617) = -B(20309)-B(20310) -! JVS(11618) = Jac_FULL(2705,4460) - JVS(11618) = B(18715) -! JVS(11619) = Jac_FULL(2705,5250) - JVS(11619) = -B(20311) -! JVS(11620) = Jac_FULL(2705,5253) - JVS(11620) = B(18716) -! JVS(11621) = Jac_FULL(2706,1395) - JVS(11621) = B(6685) -! JVS(11622) = Jac_FULL(2706,2706) - JVS(11622) = -B(6688) -! JVS(11623) = Jac_FULL(2706,4372) - JVS(11623) = B(3079)+B(3083)+B(3086) -! JVS(11624) = Jac_FULL(2706,5250) - JVS(11624) = 0 -! JVS(11625) = Jac_FULL(2706,5252) - JVS(11625) = B(3080) -! JVS(11626) = Jac_FULL(2706,5255) - JVS(11626) = 0 -! JVS(11627) = Jac_FULL(2706,5256) - JVS(11627) = B(3084) -! JVS(11628) = Jac_FULL(2707,1809) - JVS(11628) = B(3634) -! JVS(11629) = Jac_FULL(2707,2707) - JVS(11629) = -B(3637)-B(3638) -! JVS(11630) = Jac_FULL(2707,5195) - JVS(11630) = B(925)+B(927)+B(930) -! JVS(11631) = Jac_FULL(2707,5250) - JVS(11631) = 0 -! JVS(11632) = Jac_FULL(2707,5252) - JVS(11632) = B(926) -! JVS(11633) = Jac_FULL(2707,5255) - JVS(11633) = 0 -! JVS(11634) = Jac_FULL(2707,5256) - JVS(11634) = B(928) -! JVS(11635) = Jac_FULL(2708,2708) - JVS(11635) = -B(20840)-B(20842) -! JVS(11636) = Jac_FULL(2708,5017) - JVS(11636) = B(19275) -! JVS(11637) = Jac_FULL(2708,5250) - JVS(11637) = -B(20841) -! JVS(11638) = Jac_FULL(2708,5253) - JVS(11638) = B(19276) -! JVS(11639) = Jac_FULL(2709,2709) - JVS(11639) = -B(9513)-B(9515)-B(9516) -! JVS(11640) = Jac_FULL(2709,3815) - JVS(11640) = B(5865) -! JVS(11641) = Jac_FULL(2709,5250) - JVS(11641) = -B(9514) -! JVS(11642) = Jac_FULL(2709,5255) - JVS(11642) = B(5866) -! JVS(11643) = Jac_FULL(2710,1298) - JVS(11643) = B(4506) -! JVS(11644) = Jac_FULL(2710,2149) - JVS(11644) = B(4509) -! JVS(11645) = Jac_FULL(2710,2710) - JVS(11645) = -B(4512)-B(4513) -! JVS(11646) = Jac_FULL(2710,5186) - JVS(11646) = B(1731)+B(1733)+B(1736) -! JVS(11647) = Jac_FULL(2710,5250) - JVS(11647) = 0 -! JVS(11648) = Jac_FULL(2710,5252) - JVS(11648) = B(1732) -! JVS(11649) = Jac_FULL(2710,5255) - JVS(11649) = 0 -! JVS(11650) = Jac_FULL(2710,5256) - JVS(11650) = B(1734) -! JVS(11651) = Jac_FULL(2711,1683) - JVS(11651) = B(13493) -! JVS(11652) = Jac_FULL(2711,1917) - JVS(11652) = B(13486) -! JVS(11653) = Jac_FULL(2711,2711) - JVS(11653) = -B(13489)-B(13490) -! JVS(11654) = Jac_FULL(2711,4589) - JVS(11654) = B(10316) -! JVS(11655) = Jac_FULL(2711,5250) - JVS(11655) = B(13487)-B(13491)+B(13494) -! JVS(11656) = Jac_FULL(2711,5255) - JVS(11656) = 0 -! JVS(11657) = Jac_FULL(2712,2712) - JVS(11657) = -B(12373)-B(12375) -! JVS(11658) = Jac_FULL(2712,4822) - JVS(11658) = B(8701) -! JVS(11659) = Jac_FULL(2712,5250) - JVS(11659) = -B(12374) -! JVS(11660) = Jac_FULL(2712,5253) - JVS(11660) = B(8702) -! JVS(11661) = Jac_FULL(2713,2713) - JVS(11661) = -B(11953)-B(11954) -! JVS(11662) = Jac_FULL(2713,3859) - JVS(11662) = B(8201) -! JVS(11663) = Jac_FULL(2713,5250) - JVS(11663) = -B(11955) -! JVS(11664) = Jac_FULL(2713,5252) - JVS(11664) = B(8202) -! JVS(11665) = Jac_FULL(2714,1598) - JVS(11665) = B(9365) -! JVS(11666) = Jac_FULL(2714,2714) - JVS(11666) = -B(9368)-B(9370) -! JVS(11667) = Jac_FULL(2714,3238) - JVS(11667) = B(9360) -! JVS(11668) = Jac_FULL(2714,4667) - JVS(11668) = B(5752) -! JVS(11669) = Jac_FULL(2714,5250) - JVS(11669) = B(9361)+B(9366)-B(9369) -! JVS(11670) = Jac_FULL(2715,2715) - JVS(11670) = -B(7007)-B(7009)-B(7011)-B(7012) -! JVS(11671) = Jac_FULL(2715,5098) - JVS(11671) = B(3218) -! JVS(11672) = Jac_FULL(2715,5250) - JVS(11672) = -B(7008)-B(7010) -! JVS(11673) = Jac_FULL(2715,5255) - JVS(11673) = B(3219) -! JVS(11674) = Jac_FULL(2716,381) - JVS(11674) = B(14005) -! JVS(11675) = Jac_FULL(2716,1160) - JVS(11675) = B(13998) -! JVS(11676) = Jac_FULL(2716,1952) - JVS(11676) = B(14002) -! JVS(11677) = Jac_FULL(2716,2716) - JVS(11677) = -B(13939) -! JVS(11678) = Jac_FULL(2716,3676) - JVS(11678) = B(10741) -! JVS(11679) = Jac_FULL(2716,4610) - JVS(11679) = B(10796)+B(10806) -! JVS(11680) = Jac_FULL(2716,5250) - JVS(11680) = -B(13940)+B(13999)+B(14003)+B(14006) -! JVS(11681) = Jac_FULL(2716,5252) - JVS(11681) = 0 -! JVS(11682) = Jac_FULL(2716,5255) - JVS(11682) = B(10797) -! JVS(11683) = Jac_FULL(2717,2147) - JVS(11683) = B(13600) -! JVS(11684) = Jac_FULL(2717,2717) - JVS(11684) = -B(13611) -! JVS(11685) = Jac_FULL(2717,5015) - JVS(11685) = B(10419)+B(10421)+B(10424) -! JVS(11686) = Jac_FULL(2717,5250) - JVS(11686) = 0 -! JVS(11687) = Jac_FULL(2717,5252) - JVS(11687) = B(10420) -! JVS(11688) = Jac_FULL(2717,5255) - JVS(11688) = 0 -! JVS(11689) = Jac_FULL(2717,5256) - JVS(11689) = B(10422) -! JVS(11690) = Jac_FULL(2718,2718) - JVS(11690) = -B(21184)-B(21185) -! JVS(11691) = Jac_FULL(2718,4419) - JVS(11691) = B(19682) -! JVS(11692) = Jac_FULL(2718,5250) - JVS(11692) = -B(21186) -! JVS(11693) = Jac_FULL(2718,5253) - JVS(11693) = B(19683) -! JVS(11694) = Jac_FULL(2719,357) - JVS(11694) = B(23731) -! JVS(11695) = Jac_FULL(2719,1077) - JVS(11695) = B(23724) -! JVS(11696) = Jac_FULL(2719,2303) - JVS(11696) = B(23727) -! JVS(11697) = Jac_FULL(2719,2327) - JVS(11697) = B(23105) -! JVS(11698) = Jac_FULL(2719,2719) - JVS(11698) = -B(23475) -! JVS(11699) = Jac_FULL(2719,3855) - JVS(11699) = B(23485) -! JVS(11700) = Jac_FULL(2719,4319) - JVS(11700) = 0 -! JVS(11701) = Jac_FULL(2719,5250) - JVS(11701) = B(23106)-B(23476)+B(23725)+B(23728)+B(23732) -! JVS(11702) = Jac_FULL(2719,5252) - JVS(11702) = 0 -! JVS(11703) = Jac_FULL(2719,5255) - JVS(11703) = 0 -! JVS(11704) = Jac_FULL(2720,1886) - JVS(11704) = B(3675) -! JVS(11705) = Jac_FULL(2720,2720) - JVS(11705) = -B(3678) -! JVS(11706) = Jac_FULL(2720,4645) - JVS(11706) = B(969)+B(971)+B(974) -! JVS(11707) = Jac_FULL(2720,5250) - JVS(11707) = 0 -! JVS(11708) = Jac_FULL(2720,5252) - JVS(11708) = B(970) -! JVS(11709) = Jac_FULL(2720,5255) - JVS(11709) = 0 -! JVS(11710) = Jac_FULL(2720,5256) - JVS(11710) = B(972) -! JVS(11711) = Jac_FULL(2721,2721) - JVS(11711) = -B(22239)-B(22241) -! JVS(11712) = Jac_FULL(2721,4620) - JVS(11712) = B(21418) -! JVS(11713) = Jac_FULL(2721,5250) - JVS(11713) = -B(22240) -! JVS(11714) = Jac_FULL(2721,5253) - JVS(11714) = B(21419) -! JVS(11715) = Jac_FULL(2722,1492) - JVS(11715) = B(16969) -! JVS(11716) = Jac_FULL(2722,1933) - JVS(11716) = B(16972) -! JVS(11717) = Jac_FULL(2722,2722) - JVS(11717) = -B(16973)-B(16974) -! JVS(11718) = Jac_FULL(2722,4789) - JVS(11718) = B(14365)+B(14367)+B(14370) -! JVS(11719) = Jac_FULL(2722,5250) - JVS(11719) = 0 -! JVS(11720) = Jac_FULL(2722,5252) - JVS(11720) = B(14366) -! JVS(11721) = Jac_FULL(2722,5255) - JVS(11721) = 0 -! JVS(11722) = Jac_FULL(2722,5256) - JVS(11722) = B(14368) -! JVS(11723) = Jac_FULL(2723,2723) - JVS(11723) = -B(21187)-B(21188)-B(21189) -! JVS(11724) = Jac_FULL(2723,4235) - JVS(11724) = B(19687) -! JVS(11725) = Jac_FULL(2723,5250) - JVS(11725) = -B(21190) -! JVS(11726) = Jac_FULL(2723,5255) - JVS(11726) = B(19688) -! JVS(11727) = Jac_FULL(2724,902) - JVS(11727) = B(22138) -! JVS(11728) = Jac_FULL(2724,2724) - JVS(11728) = -B(22139) -! JVS(11729) = Jac_FULL(2724,4510) - JVS(11729) = B(21126)+B(21128)+B(21130) -! JVS(11730) = Jac_FULL(2724,5250) - JVS(11730) = 0 -! JVS(11731) = Jac_FULL(2724,5252) - JVS(11731) = B(21127) -! JVS(11732) = Jac_FULL(2724,5255) - JVS(11732) = 0 -! JVS(11733) = Jac_FULL(2724,5256) - JVS(11733) = B(21129) -! JVS(11734) = Jac_FULL(2725,2725) - JVS(11734) = -B(21296)-B(21298) -! JVS(11735) = Jac_FULL(2725,4308) - JVS(11735) = B(19899) -! JVS(11736) = Jac_FULL(2725,5250) - JVS(11736) = -B(21297) -! JVS(11737) = Jac_FULL(2725,5253) - JVS(11737) = B(19900) -! JVS(11738) = Jac_FULL(2726,2726) - JVS(11738) = -B(19850)-B(19852) -! JVS(11739) = Jac_FULL(2726,4850) - JVS(11739) = B(18005) -! JVS(11740) = Jac_FULL(2726,5250) - JVS(11740) = -B(19851) -! JVS(11741) = Jac_FULL(2726,5253) - JVS(11741) = B(18006) -! JVS(11742) = Jac_FULL(2727,2727) - JVS(11742) = -B(11210)-B(11212)-B(11213) -! JVS(11743) = Jac_FULL(2727,4144) - JVS(11743) = B(7422) -! JVS(11744) = Jac_FULL(2727,5250) - JVS(11744) = -B(11211) -! JVS(11745) = Jac_FULL(2727,5255) - JVS(11745) = B(7423) -! JVS(11746) = Jac_FULL(2728,1594) - JVS(11746) = B(10194) -! JVS(11747) = Jac_FULL(2728,2728) - JVS(11747) = -B(10193) -! JVS(11748) = Jac_FULL(2728,3295) - JVS(11748) = B(10192) -! JVS(11749) = Jac_FULL(2728,3631) - JVS(11749) = B(6485)+B(6487)+B(6489) -! JVS(11750) = Jac_FULL(2728,5250) - JVS(11750) = B(10195) -! JVS(11751) = Jac_FULL(2728,5252) - JVS(11751) = B(6486) -! JVS(11752) = Jac_FULL(2728,5256) - JVS(11752) = B(6488) -! JVS(11753) = Jac_FULL(2729,2729) - JVS(11753) = -B(23920)-B(23922) -! JVS(11754) = Jac_FULL(2729,4520) - JVS(11754) = B(23786) -! JVS(11755) = Jac_FULL(2729,5250) - JVS(11755) = -B(23921) -! JVS(11756) = Jac_FULL(2729,5253) - JVS(11756) = B(23787) -! JVS(11757) = Jac_FULL(2730,2730) - JVS(11757) = -B(17604)-B(17605)-B(17606)-B(17608) -! JVS(11758) = Jac_FULL(2730,4911) - JVS(11758) = B(15034) -! JVS(11759) = Jac_FULL(2730,5250) - JVS(11759) = -B(17607)-B(17609) -! JVS(11760) = Jac_FULL(2730,5255) - JVS(11760) = B(15035) -! JVS(11761) = Jac_FULL(2731,1105) - JVS(11761) = B(18078) -! JVS(11762) = Jac_FULL(2731,2731) - JVS(11762) = -B(18079) -! JVS(11763) = Jac_FULL(2731,4273) - JVS(11763) = B(15484)+B(15486)+B(15488) -! JVS(11764) = Jac_FULL(2731,5250) - JVS(11764) = 0 -! JVS(11765) = Jac_FULL(2731,5252) - JVS(11765) = B(15485) -! JVS(11766) = Jac_FULL(2731,5255) - JVS(11766) = 0 -! JVS(11767) = Jac_FULL(2731,5256) - JVS(11767) = B(15487) -! JVS(11768) = Jac_FULL(2732,1729) - JVS(11768) = B(10228) -! JVS(11769) = Jac_FULL(2732,2732) - JVS(11769) = -B(10227) -! JVS(11770) = Jac_FULL(2732,3235) - JVS(11770) = B(10226) -! JVS(11771) = Jac_FULL(2732,3659) - JVS(11771) = B(6515)+B(6517)+B(6519) -! JVS(11772) = Jac_FULL(2732,5250) - JVS(11772) = B(10229) -! JVS(11773) = Jac_FULL(2732,5252) - JVS(11773) = B(6516) -! JVS(11774) = Jac_FULL(2732,5256) - JVS(11774) = B(6518) -! JVS(11775) = Jac_FULL(2733,1278) - JVS(11775) = B(20047) -! JVS(11776) = Jac_FULL(2733,2733) - JVS(11776) = -B(20048) -! JVS(11777) = Jac_FULL(2733,4204) - JVS(11777) = B(18272)+B(18274)+B(18276) -! JVS(11778) = Jac_FULL(2733,5250) - JVS(11778) = 0 -! JVS(11779) = Jac_FULL(2733,5252) - JVS(11779) = B(18273) -! JVS(11780) = Jac_FULL(2733,5255) - JVS(11780) = 0 -! JVS(11781) = Jac_FULL(2733,5256) - JVS(11781) = B(18275) -! JVS(11782) = Jac_FULL(2734,2734) - JVS(11782) = -B(4330) -! JVS(11783) = Jac_FULL(2734,3654) - JVS(11783) = B(4344) -! JVS(11784) = Jac_FULL(2734,3660) - JVS(11784) = B(4329) -! JVS(11785) = Jac_FULL(2734,4923) - JVS(11785) = B(1557)+B(1559)+B(1562) -! JVS(11786) = Jac_FULL(2734,5252) - JVS(11786) = B(1558) -! JVS(11787) = Jac_FULL(2734,5256) - JVS(11787) = B(1560) -! JVS(11788) = Jac_FULL(2735,2735) - JVS(11788) = -B(20431)-B(20433) -! JVS(11789) = Jac_FULL(2735,5075) - JVS(11789) = B(18841) -! JVS(11790) = Jac_FULL(2735,5250) - JVS(11790) = -B(20432) -! JVS(11791) = Jac_FULL(2735,5253) - JVS(11791) = B(18842) -! JVS(11792) = Jac_FULL(2736,1166) - JVS(11792) = B(20179) -! JVS(11793) = Jac_FULL(2736,2736) - JVS(11793) = -B(20180) -! JVS(11794) = Jac_FULL(2736,4285) - JVS(11794) = B(18504)+B(18506)+B(18508) -! JVS(11795) = Jac_FULL(2736,5250) - JVS(11795) = 0 -! JVS(11796) = Jac_FULL(2736,5252) - JVS(11796) = B(18505) -! JVS(11797) = Jac_FULL(2736,5255) - JVS(11797) = 0 -! JVS(11798) = Jac_FULL(2736,5256) - JVS(11798) = B(18507) -! JVS(11799) = Jac_FULL(2737,2737) - JVS(11799) = -B(17224)-B(17226)-B(17227) -! JVS(11800) = Jac_FULL(2737,4542) - JVS(11800) = B(14603) -! JVS(11801) = Jac_FULL(2737,5250) - JVS(11801) = -B(17225) -! JVS(11802) = Jac_FULL(2737,5255) - JVS(11802) = B(14604) -! JVS(11803) = Jac_FULL(2738,2738) - JVS(11803) = -B(12235)-B(12237) -! JVS(11804) = Jac_FULL(2738,4281) - JVS(11804) = B(8527) -! JVS(11805) = Jac_FULL(2738,5250) - JVS(11805) = -B(12236) -! JVS(11806) = Jac_FULL(2738,5253) - JVS(11806) = B(8528) -! JVS(11807) = Jac_FULL(2739,1117) - JVS(11807) = B(19941) -! JVS(11808) = Jac_FULL(2739,2739) - JVS(11808) = -B(19942) -! JVS(11809) = Jac_FULL(2739,4188) - JVS(11809) = B(18150)+B(18152)+B(18154) -! JVS(11810) = Jac_FULL(2739,5250) - JVS(11810) = 0 -! JVS(11811) = Jac_FULL(2739,5252) - JVS(11811) = B(18151) -! JVS(11812) = Jac_FULL(2739,5255) - JVS(11812) = 0 -! JVS(11813) = Jac_FULL(2739,5256) - JVS(11813) = B(18153) -! JVS(11814) = Jac_FULL(2740,2740) - JVS(11814) = -B(9617)-B(9619)-B(9620) -! JVS(11815) = Jac_FULL(2740,3663) - JVS(11815) = B(5947) -! JVS(11816) = Jac_FULL(2740,5250) - JVS(11816) = -B(9618) -! JVS(11817) = Jac_FULL(2740,5255) - JVS(11817) = B(5948) -! JVS(11818) = Jac_FULL(2741,1190) - JVS(11818) = B(18296) -! JVS(11819) = Jac_FULL(2741,2741) - JVS(11819) = -B(18297) -! JVS(11820) = Jac_FULL(2741,4225) - JVS(11820) = B(15836)+B(15838)+B(15840) -! JVS(11821) = Jac_FULL(2741,5250) - JVS(11821) = 0 -! JVS(11822) = Jac_FULL(2741,5252) - JVS(11822) = B(15837) -! JVS(11823) = Jac_FULL(2741,5255) - JVS(11823) = 0 -! JVS(11824) = Jac_FULL(2741,5256) - JVS(11824) = B(15839) -! JVS(11825) = Jac_FULL(2742,2742) - JVS(11825) = -B(16890)-B(16892) -! JVS(11826) = Jac_FULL(2742,3955) - JVS(11826) = B(14246) -! JVS(11827) = Jac_FULL(2742,5250) - JVS(11827) = -B(16891) -! JVS(11828) = Jac_FULL(2742,5252) - JVS(11828) = B(14247) -! JVS(11829) = Jac_FULL(2743,2743) - JVS(11829) = -B(7651)-B(7653) -! JVS(11830) = Jac_FULL(2743,4380) - JVS(11830) = B(3817) -! JVS(11831) = Jac_FULL(2743,5250) - JVS(11831) = -B(7652) -! JVS(11832) = Jac_FULL(2743,5253) - JVS(11832) = B(3818) -! JVS(11833) = Jac_FULL(2744,1758) - JVS(11833) = B(14659) -! JVS(11834) = Jac_FULL(2744,2744) - JVS(11834) = -B(14662) -! JVS(11835) = Jac_FULL(2744,3990) - JVS(11835) = B(11337)+B(11339)+B(11341) -! JVS(11836) = Jac_FULL(2744,5250) - JVS(11836) = 0 -! JVS(11837) = Jac_FULL(2744,5252) - JVS(11837) = B(11338) -! JVS(11838) = Jac_FULL(2744,5255) - JVS(11838) = 0 -! JVS(11839) = Jac_FULL(2744,5256) - JVS(11839) = B(11340) -! JVS(11840) = Jac_FULL(2745,1142) - JVS(11840) = B(11454) -! JVS(11841) = Jac_FULL(2745,2074) - JVS(11841) = B(11457) -! JVS(11842) = Jac_FULL(2745,2745) - JVS(11842) = -B(11460) -! JVS(11843) = Jac_FULL(2745,4374) - JVS(11843) = B(7620)+B(7622)+B(7625) -! JVS(11844) = Jac_FULL(2745,5250) - JVS(11844) = 0 -! JVS(11845) = Jac_FULL(2745,5252) - JVS(11845) = B(7621) -! JVS(11846) = Jac_FULL(2745,5255) - JVS(11846) = 0 -! JVS(11847) = Jac_FULL(2745,5256) - JVS(11847) = B(7623) -! JVS(11848) = Jac_FULL(2746,127) - JVS(11848) = B(17345) -! JVS(11849) = Jac_FULL(2746,1183) - JVS(11849) = B(17341) -! JVS(11850) = Jac_FULL(2746,2746) - JVS(11850) = -B(17344) -! JVS(11851) = Jac_FULL(2746,3886) - JVS(11851) = B(14748)+B(14750)+B(14752) -! JVS(11852) = Jac_FULL(2746,5250) - JVS(11852) = B(17346) -! JVS(11853) = Jac_FULL(2746,5252) - JVS(11853) = B(14749) -! JVS(11854) = Jac_FULL(2746,5255) - JVS(11854) = 0 -! JVS(11855) = Jac_FULL(2746,5256) - JVS(11855) = B(14751) -! JVS(11856) = Jac_FULL(2747,2006) - JVS(11856) = B(3846) -! JVS(11857) = Jac_FULL(2747,2747) - JVS(11857) = -B(3849) -! JVS(11858) = Jac_FULL(2747,4562) - JVS(11858) = B(1100)+B(1102)+B(1105) -! JVS(11859) = Jac_FULL(2747,5250) - JVS(11859) = 0 -! JVS(11860) = Jac_FULL(2747,5252) - JVS(11860) = B(1101) -! JVS(11861) = Jac_FULL(2747,5255) - JVS(11861) = 0 -! JVS(11862) = Jac_FULL(2747,5256) - JVS(11862) = B(1103) -! JVS(11863) = Jac_FULL(2748,2748) - JVS(11863) = -B(1489)-B(1490)-B(1491)-B(1492) -! JVS(11864) = Jac_FULL(2748,4840) - JVS(11864) = B(248) -! JVS(11865) = Jac_FULL(2748,5194) - JVS(11865) = B(226) -! JVS(11866) = Jac_FULL(2748,5258) - JVS(11866) = B(227)+B(249) -! JVS(11867) = Jac_FULL(2749,1485) - JVS(11867) = B(23451) -! JVS(11868) = Jac_FULL(2749,2749) - JVS(11868) = -B(23452) -! JVS(11869) = Jac_FULL(2749,4572) - JVS(11869) = B(23081)+B(23083)+B(23086) -! JVS(11870) = Jac_FULL(2749,5250) - JVS(11870) = 0 -! JVS(11871) = Jac_FULL(2749,5252) - JVS(11871) = B(23082) -! JVS(11872) = Jac_FULL(2749,5255) - JVS(11872) = 0 -! JVS(11873) = Jac_FULL(2749,5256) - JVS(11873) = B(23084) -! JVS(11874) = Jac_FULL(2750,984) - JVS(11874) = B(21923) -! JVS(11875) = Jac_FULL(2750,2750) - JVS(11875) = -B(21924) -! JVS(11876) = Jac_FULL(2750,3949) - JVS(11876) = B(20867)+B(20869)+B(20871) -! JVS(11877) = Jac_FULL(2750,5250) - JVS(11877) = 0 -! JVS(11878) = Jac_FULL(2750,5252) - JVS(11878) = B(20868) -! JVS(11879) = Jac_FULL(2750,5255) - JVS(11879) = 0 -! JVS(11880) = Jac_FULL(2750,5256) - JVS(11880) = B(20870) -! JVS(11881) = Jac_FULL(2751,960) - JVS(11881) = B(22187) -! JVS(11882) = Jac_FULL(2751,2751) - JVS(11882) = -B(22190) -! JVS(11883) = Jac_FULL(2751,4421) - JVS(11883) = B(21244)+B(21246)+B(21248) -! JVS(11884) = Jac_FULL(2751,5250) - JVS(11884) = 0 -! JVS(11885) = Jac_FULL(2751,5252) - JVS(11885) = B(21245) -! JVS(11886) = Jac_FULL(2751,5255) - JVS(11886) = 0 -! JVS(11887) = Jac_FULL(2751,5256) - JVS(11887) = B(21247) -! JVS(11888) = Jac_FULL(2752,1837) - JVS(11888) = B(15569) -! JVS(11889) = Jac_FULL(2752,2752) - JVS(11889) = -B(15570) -! JVS(11890) = Jac_FULL(2752,4835) - JVS(11890) = B(12470)+B(12472)+B(12476) -! JVS(11891) = Jac_FULL(2752,5250) - JVS(11891) = 0 -! JVS(11892) = Jac_FULL(2752,5252) - JVS(11892) = B(12471) -! JVS(11893) = Jac_FULL(2752,5255) - JVS(11893) = 0 -! JVS(11894) = Jac_FULL(2752,5256) - JVS(11894) = B(12473) -! JVS(11895) = Jac_FULL(2753,2753) - JVS(11895) = -B(13954)-B(13956)-B(13958) -! JVS(11896) = Jac_FULL(2753,4127) - JVS(11896) = B(10751) -! JVS(11897) = Jac_FULL(2753,5250) - JVS(11897) = -B(13955)-B(13957) -! JVS(11898) = Jac_FULL(2753,5255) - JVS(11898) = B(10752) -! JVS(11899) = Jac_FULL(2754,2754) - JVS(11899) = -B(21513)-B(21515) -! JVS(11900) = Jac_FULL(2754,4299) - JVS(11900) = B(20270) -! JVS(11901) = Jac_FULL(2754,5250) - JVS(11901) = -B(21514) -! JVS(11902) = Jac_FULL(2754,5255) - JVS(11902) = B(20271) -! JVS(11903) = Jac_FULL(2755,2755) - JVS(11903) = -B(11808)-B(11809) -! JVS(11904) = Jac_FULL(2755,4990) - JVS(11904) = B(8079) -! JVS(11905) = Jac_FULL(2755,5250) - JVS(11905) = -B(11810) -! JVS(11906) = Jac_FULL(2755,5253) - JVS(11906) = B(8080) -! JVS(11907) = Jac_FULL(2756,2756) - JVS(11907) = -B(23591)-B(23593) -! JVS(11908) = Jac_FULL(2756,4854) - JVS(11908) = B(23292) -! JVS(11909) = Jac_FULL(2756,5250) - JVS(11909) = -B(23592) -! JVS(11910) = Jac_FULL(2756,5253) - JVS(11910) = B(23293) -! JVS(11911) = Jac_FULL(2757,2757) - JVS(11911) = -B(14012)-B(14014) -! JVS(11912) = Jac_FULL(2757,4611) - JVS(11912) = B(10815) -! JVS(11913) = Jac_FULL(2757,5250) - JVS(11913) = -B(14013) -! JVS(11914) = Jac_FULL(2757,5253) - JVS(11914) = B(10816) -! JVS(11915) = Jac_FULL(2758,1293) - JVS(11915) = B(18355) -! JVS(11916) = Jac_FULL(2758,2758) - JVS(11916) = -B(18356) -! JVS(11917) = Jac_FULL(2758,4031) - JVS(11917) = B(15935)+B(15937)+B(15939) -! JVS(11918) = Jac_FULL(2758,5250) - JVS(11918) = 0 -! JVS(11919) = Jac_FULL(2758,5252) - JVS(11919) = B(15936) -! JVS(11920) = Jac_FULL(2758,5255) - JVS(11920) = 0 -! JVS(11921) = Jac_FULL(2758,5256) - JVS(11921) = B(15938) -! JVS(11922) = Jac_FULL(2759,2759) - JVS(11922) = -B(20759)-B(20761) -! JVS(11923) = Jac_FULL(2759,4166) - JVS(11923) = B(19162) -! JVS(11924) = Jac_FULL(2759,5250) - JVS(11924) = -B(20760) -! JVS(11925) = Jac_FULL(2759,5252) - JVS(11925) = B(19163) -! JVS(11926) = Jac_FULL(2760,1115) - JVS(11926) = B(17920) -! JVS(11927) = Jac_FULL(2760,2760) - JVS(11927) = -B(17923) -! JVS(11928) = Jac_FULL(2760,4270) - JVS(11928) = B(15321)+B(15323)+B(15325) -! JVS(11929) = Jac_FULL(2760,5250) - JVS(11929) = 0 -! JVS(11930) = Jac_FULL(2760,5252) - JVS(11930) = B(15322) -! JVS(11931) = Jac_FULL(2760,5255) - JVS(11931) = 0 -! JVS(11932) = Jac_FULL(2760,5256) - JVS(11932) = B(15324) -! JVS(11933) = Jac_FULL(2761,2761) - JVS(11933) = -B(11726)-B(11727) -! JVS(11934) = Jac_FULL(2761,3885) - JVS(11934) = B(7998) -! JVS(11935) = Jac_FULL(2761,5250) - JVS(11935) = -B(11728) -! JVS(11936) = Jac_FULL(2761,5252) - JVS(11936) = B(7999) -! JVS(11937) = Jac_FULL(2762,1664) - JVS(11937) = B(9152) -! JVS(11938) = Jac_FULL(2762,2762) - JVS(11938) = -B(9151) -! JVS(11939) = Jac_FULL(2762,3320) - JVS(11939) = B(9150) -! JVS(11940) = Jac_FULL(2762,3796) - JVS(11940) = B(5563)+B(5565)+B(5567) -! JVS(11941) = Jac_FULL(2762,5250) - JVS(11941) = B(9153) -! JVS(11942) = Jac_FULL(2762,5252) - JVS(11942) = B(5564) -! JVS(11943) = Jac_FULL(2762,5256) - JVS(11943) = B(5566) -! JVS(11944) = Jac_FULL(2763,2763) - JVS(11944) = -B(22199)-B(22201) -! JVS(11945) = Jac_FULL(2763,4267) - JVS(11945) = B(21282) -! JVS(11946) = Jac_FULL(2763,5250) - JVS(11946) = -B(22200) -! JVS(11947) = Jac_FULL(2763,5255) - JVS(11947) = B(21283) -! JVS(11948) = Jac_FULL(2764,2764) - JVS(11948) = -B(16766)-B(16768) -! JVS(11949) = Jac_FULL(2764,4612) - JVS(11949) = B(13971) -! JVS(11950) = Jac_FULL(2764,5250) - JVS(11950) = -B(16767) -! JVS(11951) = Jac_FULL(2764,5252) - JVS(11951) = B(13972) -! JVS(11952) = Jac_FULL(2765,2765) - JVS(11952) = -B(21402)-B(21404) -! JVS(11953) = Jac_FULL(2765,4046) - JVS(11953) = B(20080) -! JVS(11954) = Jac_FULL(2765,5250) - JVS(11954) = -B(21403) -! JVS(11955) = Jac_FULL(2765,5253) - JVS(11955) = B(20081) -! JVS(11956) = Jac_FULL(2766,2766) - JVS(11956) = -B(16163)-B(16165)-B(16166) -! JVS(11957) = Jac_FULL(2766,4888) - JVS(11957) = B(13085) -! JVS(11958) = Jac_FULL(2766,5250) - JVS(11958) = -B(16164) -! JVS(11959) = Jac_FULL(2766,5255) - JVS(11959) = B(13086) -! JVS(11960) = Jac_FULL(2767,2019) - JVS(11960) = B(4669) -! JVS(11961) = Jac_FULL(2767,2403) - JVS(11961) = B(4674) -! JVS(11962) = Jac_FULL(2767,2767) - JVS(11962) = -B(4677)-B(4678) -! JVS(11963) = Jac_FULL(2767,4886) - JVS(11963) = B(1860)+B(1862)+B(1864) -! JVS(11964) = Jac_FULL(2767,5250) - JVS(11964) = 0 -! JVS(11965) = Jac_FULL(2767,5252) - JVS(11965) = B(1861) -! JVS(11966) = Jac_FULL(2767,5255) - JVS(11966) = 0 -! JVS(11967) = Jac_FULL(2767,5256) - JVS(11967) = B(1863) -! JVS(11968) = Jac_FULL(2768,1393) - JVS(11968) = B(20211) -! JVS(11969) = Jac_FULL(2768,2768) - JVS(11969) = -B(20212) -! JVS(11970) = Jac_FULL(2768,4182) - JVS(11970) = B(18567)+B(18569)+B(18571) -! JVS(11971) = Jac_FULL(2768,5250) - JVS(11971) = 0 -! JVS(11972) = Jac_FULL(2768,5252) - JVS(11972) = B(18568) -! JVS(11973) = Jac_FULL(2768,5255) - JVS(11973) = 0 -! JVS(11974) = Jac_FULL(2768,5256) - JVS(11974) = B(18570) -! JVS(11975) = Jac_FULL(2769,2769) - JVS(11975) = -B(19990)-B(19992)-B(19993) -! JVS(11976) = Jac_FULL(2769,4742) - JVS(11976) = B(18200) -! JVS(11977) = Jac_FULL(2769,5250) - JVS(11977) = -B(19991) -! JVS(11978) = Jac_FULL(2769,5255) - JVS(11978) = B(18201) -! JVS(11979) = Jac_FULL(2770,2354) - JVS(11979) = B(16711) -! JVS(11980) = Jac_FULL(2770,2770) - JVS(11980) = -B(16712) -! JVS(11981) = Jac_FULL(2770,3621) - JVS(11981) = B(16708) -! JVS(11982) = Jac_FULL(2770,5091) - JVS(11982) = B(13903)+B(13905)+B(13908) -! JVS(11983) = Jac_FULL(2770,5250) - JVS(11983) = 0 -! JVS(11984) = Jac_FULL(2770,5252) - JVS(11984) = B(13904) -! JVS(11985) = Jac_FULL(2770,5256) - JVS(11985) = B(13906) -! JVS(11986) = Jac_FULL(2771,841) - JVS(11986) = B(6667) -! JVS(11987) = Jac_FULL(2771,2771) - JVS(11987) = -B(6672) -! JVS(11988) = Jac_FULL(2771,4111) - JVS(11988) = B(3070)+B(3072)+B(3074) -! JVS(11989) = Jac_FULL(2771,5250) - JVS(11989) = 0 -! JVS(11990) = Jac_FULL(2771,5252) - JVS(11990) = B(3071) -! JVS(11991) = Jac_FULL(2771,5255) - JVS(11991) = 0 -! JVS(11992) = Jac_FULL(2771,5256) - JVS(11992) = B(3073) -! JVS(11993) = Jac_FULL(2772,2772) - JVS(11993) = -B(22507)-B(22509) -! JVS(11994) = Jac_FULL(2772,4752) - JVS(11994) = B(21904) -! JVS(11995) = Jac_FULL(2772,5250) - JVS(11995) = -B(22508) -! JVS(11996) = Jac_FULL(2772,5253) - JVS(11996) = B(21905) -! JVS(11997) = Jac_FULL(2773,313) - JVS(11997) = B(23067) -! JVS(11998) = Jac_FULL(2773,872) - JVS(11998) = B(23057) -! JVS(11999) = Jac_FULL(2773,1972) - JVS(11999) = B(23060) -! JVS(12000) = Jac_FULL(2773,2773) - JVS(12000) = -B(23064)-B(23066) -! JVS(12001) = Jac_FULL(2773,3313) - JVS(12001) = B(22635) -! JVS(12002) = Jac_FULL(2773,3698) - JVS(12002) = B(22632) -! JVS(12003) = Jac_FULL(2773,5250) - JVS(12003) = B(22636)+B(23058)+B(23061)-B(23065)+B(23068) -! JVS(12004) = Jac_FULL(2773,5252) - JVS(12004) = 0 -! JVS(12005) = Jac_FULL(2773,5255) - JVS(12005) = 0 -! JVS(12006) = Jac_FULL(2774,2774) - JVS(12006) = -B(7017)-B(7019)-B(7021)-B(7022) -! JVS(12007) = Jac_FULL(2774,5053) - JVS(12007) = B(3227) -! JVS(12008) = Jac_FULL(2774,5250) - JVS(12008) = -B(7018)-B(7020) -! JVS(12009) = Jac_FULL(2774,5255) - JVS(12009) = B(3228) -! JVS(12010) = Jac_FULL(2775,2775) - JVS(12010) = -B(11888)-B(11889)-B(11891) -! JVS(12011) = Jac_FULL(2775,3873) - JVS(12011) = B(8147) -! JVS(12012) = Jac_FULL(2775,5250) - JVS(12012) = -B(11890)-B(11892) -! JVS(12013) = Jac_FULL(2775,5255) - JVS(12013) = B(8148) -! JVS(12014) = Jac_FULL(2776,1669) - JVS(12014) = B(9737) -! JVS(12015) = Jac_FULL(2776,2649) - JVS(12015) = B(9734) -! JVS(12016) = Jac_FULL(2776,2776) - JVS(12016) = -B(9736) -! JVS(12017) = Jac_FULL(2776,3828) - JVS(12017) = B(6038)+B(6040)+B(6042) -! JVS(12018) = Jac_FULL(2776,5250) - JVS(12018) = B(9738) -! JVS(12019) = Jac_FULL(2776,5252) - JVS(12019) = B(6039) -! JVS(12020) = Jac_FULL(2776,5255) - JVS(12020) = 0 -! JVS(12021) = Jac_FULL(2776,5256) - JVS(12021) = B(6041) -! JVS(12022) = Jac_FULL(2777,2777) - JVS(12022) = -B(23352)-B(23354) -! JVS(12023) = Jac_FULL(2777,4636) - JVS(12023) = B(22942) -! JVS(12024) = Jac_FULL(2777,5250) - JVS(12024) = -B(23353) -! JVS(12025) = Jac_FULL(2777,5253) - JVS(12025) = B(22943) -! JVS(12026) = Jac_FULL(2778,2778) - JVS(12026) = -B(17746)-B(17747) -! JVS(12027) = Jac_FULL(2778,4523) - JVS(12027) = B(15183) -! JVS(12028) = Jac_FULL(2778,5250) - JVS(12028) = -B(17748) -! JVS(12029) = Jac_FULL(2778,5253) - JVS(12029) = B(15184) -! JVS(12030) = Jac_FULL(2779,2779) - JVS(12030) = -B(24012)-B(24014) -! JVS(12031) = Jac_FULL(2779,4686) - JVS(12031) = B(23977) -! JVS(12032) = Jac_FULL(2779,5250) - JVS(12032) = -B(24013) -! JVS(12033) = Jac_FULL(2779,5253) - JVS(12033) = B(23978) -! JVS(12034) = Jac_FULL(2780,2780) - JVS(12034) = -B(12772)-B(12774) -! JVS(12035) = Jac_FULL(2780,4187) - JVS(12035) = B(9258) -! JVS(12036) = Jac_FULL(2780,5250) - JVS(12036) = -B(12773) -! JVS(12037) = Jac_FULL(2780,5253) - JVS(12037) = B(9259) -! JVS(12038) = Jac_FULL(2781,2781) - JVS(12038) = -B(19482)-B(19484) -! JVS(12039) = Jac_FULL(2781,4738) - JVS(12039) = B(17304) -! JVS(12040) = Jac_FULL(2781,5250) - JVS(12040) = -B(19483) -! JVS(12041) = Jac_FULL(2781,5253) - JVS(12041) = B(17305) -! JVS(12042) = Jac_FULL(2782,2782) - JVS(12042) = -B(5593)-B(5595) -! JVS(12043) = Jac_FULL(2782,4529) - JVS(12043) = B(2517) -! JVS(12044) = Jac_FULL(2782,5250) - JVS(12044) = -B(5594) -! JVS(12045) = Jac_FULL(2782,5252) - JVS(12045) = B(2518) -! JVS(12046) = Jac_FULL(2783,2783) - JVS(12046) = -B(12168) -! JVS(12047) = Jac_FULL(2783,4668) - JVS(12047) = B(13512) -! JVS(12048) = Jac_FULL(2783,4677) - JVS(12048) = B(16525) -! JVS(12049) = Jac_FULL(2783,5152) - JVS(12049) = B(8427)+B(8438) -! JVS(12050) = Jac_FULL(2783,5250) - JVS(12050) = -B(12169) -! JVS(12051) = Jac_FULL(2783,5255) - JVS(12051) = B(8428) -! JVS(12052) = Jac_FULL(2784,2784) - JVS(12052) = -B(21639)-B(21640) -! JVS(12053) = Jac_FULL(2784,4230) - JVS(12053) = B(20578) -! JVS(12054) = Jac_FULL(2784,5250) - JVS(12054) = -B(21641) -! JVS(12055) = Jac_FULL(2784,5253) - JVS(12055) = B(20579) -! JVS(12056) = Jac_FULL(2785,2785) - JVS(12056) = -B(11707)-B(11708)-B(11710) -! JVS(12057) = Jac_FULL(2785,3893) - JVS(12057) = B(7985) -! JVS(12058) = Jac_FULL(2785,5250) - JVS(12058) = -B(11709)-B(11711) -! JVS(12059) = Jac_FULL(2785,5255) - JVS(12059) = B(7986) -! JVS(12060) = Jac_FULL(2786,2786) - JVS(12060) = -B(17458)-B(17459) -! JVS(12061) = Jac_FULL(2786,4962) - JVS(12061) = B(14895) -! JVS(12062) = Jac_FULL(2786,5250) - JVS(12062) = -B(17460) -! JVS(12063) = Jac_FULL(2786,5253) - JVS(12063) = B(14896) -! JVS(12064) = Jac_FULL(2787,2787) - JVS(12064) = -B(19638)-B(19639) -! JVS(12065) = Jac_FULL(2787,4642) - JVS(12065) = B(17667) -! JVS(12066) = Jac_FULL(2787,5250) - JVS(12066) = -B(19640) -! JVS(12067) = Jac_FULL(2787,5253) - JVS(12067) = B(17668) -! JVS(12068) = Jac_FULL(2788,866) - JVS(12068) = B(24045) -! JVS(12069) = Jac_FULL(2788,2788) - JVS(12069) = -B(24046) -! JVS(12070) = Jac_FULL(2788,4543) - JVS(12070) = B(24038)+B(24040)+B(24042) -! JVS(12071) = Jac_FULL(2788,5250) - JVS(12071) = 0 -! JVS(12072) = Jac_FULL(2788,5252) - JVS(12072) = B(24039) -! JVS(12073) = Jac_FULL(2788,5255) - JVS(12073) = 0 -! JVS(12074) = Jac_FULL(2788,5256) - JVS(12074) = B(24041) -! JVS(12075) = Jac_FULL(2789,1555) - JVS(12075) = B(10050) -! JVS(12076) = Jac_FULL(2789,2499) - JVS(12076) = B(10048) -! JVS(12077) = Jac_FULL(2789,2789) - JVS(12077) = -B(10049) -! JVS(12078) = Jac_FULL(2789,3791) - JVS(12078) = B(6336)+B(6338)+B(6340) -! JVS(12079) = Jac_FULL(2789,5250) - JVS(12079) = B(10051) -! JVS(12080) = Jac_FULL(2789,5252) - JVS(12080) = B(6337) -! JVS(12081) = Jac_FULL(2789,5255) - JVS(12081) = 0 -! JVS(12082) = Jac_FULL(2789,5256) - JVS(12082) = B(6339) -! JVS(12083) = Jac_FULL(2790,2790) - JVS(12083) = -B(11451)-B(11452) -! JVS(12084) = Jac_FULL(2790,4949) - JVS(12084) = B(7610) -! JVS(12085) = Jac_FULL(2790,5250) - JVS(12085) = -B(11453) -! JVS(12086) = Jac_FULL(2790,5253) - JVS(12086) = B(7611) -! JVS(12087) = Jac_FULL(2791,2791) - JVS(12087) = -B(10686)-B(10688) -! JVS(12088) = Jac_FULL(2791,4255) - JVS(12088) = B(6869) -! JVS(12089) = Jac_FULL(2791,5250) - JVS(12089) = -B(10687) -! JVS(12090) = Jac_FULL(2791,5253) - JVS(12090) = B(6870) -! JVS(12091) = Jac_FULL(2792,2792) - JVS(12091) = -B(7777)-B(7778) -! JVS(12092) = Jac_FULL(2792,5243) - JVS(12092) = B(4045) -! JVS(12093) = Jac_FULL(2792,5250) - JVS(12093) = -B(7779) -! JVS(12094) = Jac_FULL(2792,5253) - JVS(12094) = B(4046) -! JVS(12095) = Jac_FULL(2793,2793) - JVS(12095) = -B(11690)-B(11691) -! JVS(12096) = Jac_FULL(2793,5100) - JVS(12096) = B(7969) -! JVS(12097) = Jac_FULL(2793,5250) - JVS(12097) = -B(11692) -! JVS(12098) = Jac_FULL(2793,5253) - JVS(12098) = B(7970) -! JVS(12099) = Jac_FULL(2794,2794) - JVS(12099) = -B(21426)-B(21428) -! JVS(12100) = Jac_FULL(2794,4536) - JVS(12100) = B(20115) -! JVS(12101) = Jac_FULL(2794,5250) - JVS(12101) = -B(21427) -! JVS(12102) = Jac_FULL(2794,5253) - JVS(12102) = B(20116) -! JVS(12103) = Jac_FULL(2795,1185) - JVS(12103) = B(4361) -! JVS(12104) = Jac_FULL(2795,2795) - JVS(12104) = -B(4362) -! JVS(12105) = Jac_FULL(2795,4695) - JVS(12105) = B(1579)+B(1583)+B(1585) -! JVS(12106) = Jac_FULL(2795,5250) - JVS(12106) = 0 -! JVS(12107) = Jac_FULL(2795,5252) - JVS(12107) = B(1580) -! JVS(12108) = Jac_FULL(2795,5255) - JVS(12108) = 0 -! JVS(12109) = Jac_FULL(2795,5256) - JVS(12109) = B(1584) -! JVS(12110) = Jac_FULL(2796,2796) - JVS(12110) = -B(13531)-B(13532) -! JVS(12111) = Jac_FULL(2796,4414) - JVS(12111) = B(10354) -! JVS(12112) = Jac_FULL(2796,5250) - JVS(12112) = -B(13533) -! JVS(12113) = Jac_FULL(2796,5253) - JVS(12113) = B(10355) -! JVS(12114) = Jac_FULL(2797,2797) - JVS(12114) = -B(19550)-B(19552)-B(19553) -! JVS(12115) = Jac_FULL(2797,3992) - JVS(12115) = B(17439) -! JVS(12116) = Jac_FULL(2797,5250) - JVS(12116) = -B(19551) -! JVS(12117) = Jac_FULL(2797,5255) - JVS(12117) = B(17440) -! JVS(12118) = Jac_FULL(2798,2468) - JVS(12118) = B(8759) -! JVS(12119) = Jac_FULL(2798,2798) - JVS(12119) = -B(8758) -! JVS(12120) = Jac_FULL(2798,2799) - JVS(12120) = B(8757) -! JVS(12121) = Jac_FULL(2798,3903) - JVS(12121) = B(5274)+B(5276)+B(5278) -! JVS(12122) = Jac_FULL(2798,5250) - JVS(12122) = B(8760) -! JVS(12123) = Jac_FULL(2798,5252) - JVS(12123) = B(5275) -! JVS(12124) = Jac_FULL(2798,5256) - JVS(12124) = B(5277) -! JVS(12125) = Jac_FULL(2799,2799) - JVS(12125) = -B(8754)-B(8756)-B(8757) -! JVS(12126) = Jac_FULL(2799,3903) - JVS(12126) = B(5272) -! JVS(12127) = Jac_FULL(2799,5250) - JVS(12127) = -B(8755) -! JVS(12128) = Jac_FULL(2799,5255) - JVS(12128) = B(5273) -! JVS(12129) = Jac_FULL(2800,2800) - JVS(12129) = -B(22764)-B(22765) -! JVS(12130) = Jac_FULL(2800,4207) - JVS(12130) = B(22146) -! JVS(12131) = Jac_FULL(2800,5250) - JVS(12131) = -B(22766) -! JVS(12132) = Jac_FULL(2800,5253) - JVS(12132) = B(22147) -! JVS(12133) = Jac_FULL(2801,2801) - JVS(12133) = -B(13588)-B(13589) -! JVS(12134) = Jac_FULL(2801,4259) - JVS(12134) = B(10405) -! JVS(12135) = Jac_FULL(2801,5250) - JVS(12135) = -B(13590) -! JVS(12136) = Jac_FULL(2801,5253) - JVS(12136) = B(10406) -! JVS(12137) = Jac_FULL(2802,2802) - JVS(12137) = -B(23442)-B(23444) -! JVS(12138) = Jac_FULL(2802,5130) - JVS(12138) = B(23071) -! JVS(12139) = Jac_FULL(2802,5250) - JVS(12139) = -B(23443) -! JVS(12140) = Jac_FULL(2802,5252) - JVS(12140) = B(23072) -! JVS(12141) = Jac_FULL(2803,2803) - JVS(12141) = -B(15432)-B(15433)-B(15434) -! JVS(12142) = Jac_FULL(2803,3759) - JVS(12142) = B(12306) -! JVS(12143) = Jac_FULL(2803,4053) - JVS(12143) = B(15429) -! JVS(12144) = Jac_FULL(2803,5250) - JVS(12144) = B(12307)+B(15430)-B(15435) -! JVS(12145) = Jac_FULL(2804,2804) - JVS(12145) = -B(19050)-B(19051) -! JVS(12146) = Jac_FULL(2804,5214) - JVS(12146) = B(16850) -! JVS(12147) = Jac_FULL(2804,5250) - JVS(12147) = -B(19052) -! JVS(12148) = Jac_FULL(2804,5253) - JVS(12148) = B(16851) -! JVS(12149) = Jac_FULL(2805,2805) - JVS(12149) = -B(4371)-B(4373)-B(4374) -! JVS(12150) = Jac_FULL(2805,4353) - JVS(12150) = B(1588) -! JVS(12151) = Jac_FULL(2805,5250) - JVS(12151) = -B(4372) -! JVS(12152) = Jac_FULL(2805,5255) - JVS(12152) = B(1589) -! JVS(12153) = Jac_FULL(2806,1549) - JVS(12153) = B(8992) -! JVS(12154) = Jac_FULL(2806,2806) - JVS(12154) = -B(8991) -! JVS(12155) = Jac_FULL(2806,3321) - JVS(12155) = B(8989) -! JVS(12156) = Jac_FULL(2806,3820) - JVS(12156) = B(5452)+B(5454)+B(5456) -! JVS(12157) = Jac_FULL(2806,5250) - JVS(12157) = B(8993) -! JVS(12158) = Jac_FULL(2806,5252) - JVS(12158) = B(5453) -! JVS(12159) = Jac_FULL(2806,5256) - JVS(12159) = B(5455) -! JVS(12160) = Jac_FULL(2807,2807) - JVS(12160) = -B(8453) -! JVS(12161) = Jac_FULL(2807,2828) - JVS(12161) = B(11598) -! JVS(12162) = Jac_FULL(2807,4640) - JVS(12162) = B(7835)+B(7837)+B(7841) -! JVS(12163) = Jac_FULL(2807,4845) - JVS(12163) = B(4831) -! JVS(12164) = Jac_FULL(2807,5252) - JVS(12164) = B(7836) -! JVS(12165) = Jac_FULL(2807,5256) - JVS(12165) = B(7838) -! JVS(12166) = Jac_FULL(2808,2808) - JVS(12166) = -B(13035)-B(13037) -! JVS(12167) = Jac_FULL(2808,4930) - JVS(12167) = B(9553) -! JVS(12168) = Jac_FULL(2808,5250) - JVS(12168) = -B(13036) -! JVS(12169) = Jac_FULL(2808,5253) - JVS(12169) = B(9554) -! JVS(12170) = Jac_FULL(2809,1485) - JVS(12170) = B(23449) -! JVS(12171) = Jac_FULL(2809,1875) - JVS(12171) = B(23456) -! JVS(12172) = Jac_FULL(2809,2809) - JVS(12172) = -B(23453)-B(23455) -! JVS(12173) = Jac_FULL(2809,4572) - JVS(12173) = B(23085) -! JVS(12174) = Jac_FULL(2809,5250) - JVS(12174) = B(23450)-B(23454)+B(23457) -! JVS(12175) = Jac_FULL(2809,5255) - JVS(12175) = 0 -! JVS(12176) = Jac_FULL(2810,2810) - JVS(12176) = -B(18958)-B(18960)-B(18962) -! JVS(12177) = Jac_FULL(2810,4614) - JVS(12177) = B(16741) -! JVS(12178) = Jac_FULL(2810,5250) - JVS(12178) = -B(18959)-B(18961) -! JVS(12179) = Jac_FULL(2810,5255) - JVS(12179) = B(16742) -! JVS(12180) = Jac_FULL(2811,2811) - JVS(12180) = -B(4322)-B(4324) -! JVS(12181) = Jac_FULL(2811,4428) - JVS(12181) = B(1549) -! JVS(12182) = Jac_FULL(2811,5250) - JVS(12182) = -B(4323) -! JVS(12183) = Jac_FULL(2811,5253) - JVS(12183) = B(1550) -! JVS(12184) = Jac_FULL(2812,2812) - JVS(12184) = -B(20646)-B(20648) -! JVS(12185) = Jac_FULL(2812,4189) - JVS(12185) = B(19068) -! JVS(12186) = Jac_FULL(2812,5250) - JVS(12186) = -B(20647) -! JVS(12187) = Jac_FULL(2812,5252) - JVS(12187) = B(19069) -! JVS(12188) = Jac_FULL(2813,2813) - JVS(12188) = -B(23179)-B(23181) -! JVS(12189) = Jac_FULL(2813,5245) - JVS(12189) = B(22727) -! JVS(12190) = Jac_FULL(2813,5250) - JVS(12190) = -B(23180) -! JVS(12191) = Jac_FULL(2813,5253) - JVS(12191) = B(22728) -! JVS(12192) = Jac_FULL(2814,2814) - JVS(12192) = -B(17561)-B(17562) -! JVS(12193) = Jac_FULL(2814,4561) - JVS(12193) = B(14994) -! JVS(12194) = Jac_FULL(2814,5250) - JVS(12194) = -B(17563) -! JVS(12195) = Jac_FULL(2814,5252) - JVS(12195) = B(14995) -! JVS(12196) = Jac_FULL(2815,2815) - JVS(12196) = -B(11563)-B(11565) -! JVS(12197) = Jac_FULL(2815,4316) - JVS(12197) = B(7767) -! JVS(12198) = Jac_FULL(2815,5250) - JVS(12198) = -B(11564) -! JVS(12199) = Jac_FULL(2815,5253) - JVS(12199) = B(7768) -! JVS(12200) = Jac_FULL(2816,1098) - JVS(12200) = B(13544) -! JVS(12201) = Jac_FULL(2816,2816) - JVS(12201) = -B(13549) -! JVS(12202) = Jac_FULL(2816,4159) - JVS(12202) = B(10368)+B(10370)+B(10372) -! JVS(12203) = Jac_FULL(2816,5250) - JVS(12203) = 0 -! JVS(12204) = Jac_FULL(2816,5252) - JVS(12204) = B(10369) -! JVS(12205) = Jac_FULL(2816,5255) - JVS(12205) = 0 -! JVS(12206) = Jac_FULL(2816,5256) - JVS(12206) = B(10371) -! JVS(12207) = Jac_FULL(2817,2817) - JVS(12207) = -B(6971)-B(6973) -! JVS(12208) = Jac_FULL(2817,4609) - JVS(12208) = B(3187) -! JVS(12209) = Jac_FULL(2817,5250) - JVS(12209) = -B(6972) -! JVS(12210) = Jac_FULL(2817,5252) - JVS(12210) = B(3188) -! JVS(12211) = Jac_FULL(2818,1399) - JVS(12211) = B(18642) -! JVS(12212) = Jac_FULL(2818,2818) - JVS(12212) = -B(18643) -! JVS(12213) = Jac_FULL(2818,4312) - JVS(12213) = B(16338)+B(16340)+B(16342) -! JVS(12214) = Jac_FULL(2818,5250) - JVS(12214) = 0 -! JVS(12215) = Jac_FULL(2818,5252) - JVS(12215) = B(16339) -! JVS(12216) = Jac_FULL(2818,5255) - JVS(12216) = 0 -! JVS(12217) = Jac_FULL(2818,5256) - JVS(12217) = B(16341) -! JVS(12218) = Jac_FULL(2819,877) - JVS(12218) = B(18574) -! JVS(12219) = Jac_FULL(2819,2819) - JVS(12219) = -B(18575) -! JVS(12220) = Jac_FULL(2819,4149) - JVS(12220) = B(16261)+B(16263)+B(16265) -! JVS(12221) = Jac_FULL(2819,5250) - JVS(12221) = 0 -! JVS(12222) = Jac_FULL(2819,5252) - JVS(12222) = B(16262) -! JVS(12223) = Jac_FULL(2819,5255) - JVS(12223) = 0 -! JVS(12224) = Jac_FULL(2819,5256) - JVS(12224) = B(16264) -! JVS(12225) = Jac_FULL(2820,1215) - JVS(12225) = B(20295) -! JVS(12226) = Jac_FULL(2820,2820) - JVS(12226) = -B(20296) -! JVS(12227) = Jac_FULL(2820,4750) - JVS(12227) = B(18690)+B(18692)+B(18694) -! JVS(12228) = Jac_FULL(2820,5250) - JVS(12228) = 0 -! JVS(12229) = Jac_FULL(2820,5252) - JVS(12229) = B(18691) -! JVS(12230) = Jac_FULL(2820,5255) - JVS(12230) = 0 -! JVS(12231) = Jac_FULL(2820,5256) - JVS(12231) = B(18693) -! JVS(12232) = Jac_FULL(2821,1306) - JVS(12232) = B(10698) -! JVS(12233) = Jac_FULL(2821,2821) - JVS(12233) = -B(10699) -! JVS(12234) = Jac_FULL(2821,3865) - JVS(12234) = B(6885)+B(6887)+B(6889) -! JVS(12235) = Jac_FULL(2821,5250) - JVS(12235) = 0 -! JVS(12236) = Jac_FULL(2821,5252) - JVS(12236) = B(6886) -! JVS(12237) = Jac_FULL(2821,5255) - JVS(12237) = 0 -! JVS(12238) = Jac_FULL(2821,5256) - JVS(12238) = B(6888) -! JVS(12239) = Jac_FULL(2822,2822) - JVS(12239) = -B(19593)-B(19594) -! JVS(12240) = Jac_FULL(2822,4979) - JVS(12240) = B(17572) -! JVS(12241) = Jac_FULL(2822,5250) - JVS(12241) = -B(19595) -! JVS(12242) = Jac_FULL(2822,5253) - JVS(12242) = B(17573) -! JVS(12243) = Jac_FULL(2823,2823) - JVS(12243) = -B(20381)-B(20382) -! JVS(12244) = Jac_FULL(2823,4539) - JVS(12244) = B(18795) -! JVS(12245) = Jac_FULL(2823,5250) - JVS(12245) = -B(20383) -! JVS(12246) = Jac_FULL(2823,5253) - JVS(12246) = B(18796) -! JVS(12247) = Jac_FULL(2824,2824) - JVS(12247) = -B(13497)-B(13498) -! JVS(12248) = Jac_FULL(2824,4516) - JVS(12248) = B(10321) -! JVS(12249) = Jac_FULL(2824,5250) - JVS(12249) = -B(13499) -! JVS(12250) = Jac_FULL(2824,5255) - JVS(12250) = B(10322) -! JVS(12251) = Jac_FULL(2825,2825) - JVS(12251) = -B(11443)-B(11444) -! JVS(12252) = Jac_FULL(2825,5237) - JVS(12252) = B(7596) -! JVS(12253) = Jac_FULL(2825,5250) - JVS(12253) = -B(11445) -! JVS(12254) = Jac_FULL(2825,5253) - JVS(12254) = B(7597) -! JVS(12255) = Jac_FULL(2826,636) - JVS(12255) = B(19648) -! JVS(12256) = Jac_FULL(2826,1441) - JVS(12256) = B(19641) -! JVS(12257) = Jac_FULL(2826,1963) - JVS(12257) = B(19644) -! JVS(12258) = Jac_FULL(2826,2826) - JVS(12258) = -B(19647) -! JVS(12259) = Jac_FULL(2826,4573) - JVS(12259) = B(17753)+B(17755)+B(17757) -! JVS(12260) = Jac_FULL(2826,5250) - JVS(12260) = 0 -! JVS(12261) = Jac_FULL(2826,5252) - JVS(12261) = B(17754) -! JVS(12262) = Jac_FULL(2826,5255) - JVS(12262) = 0 -! JVS(12263) = Jac_FULL(2826,5256) - JVS(12263) = B(17756) -! JVS(12264) = Jac_FULL(2827,908) - JVS(12264) = B(18971) -! JVS(12265) = Jac_FULL(2827,2827) - JVS(12265) = -B(18972) -! JVS(12266) = Jac_FULL(2827,4211) - JVS(12266) = B(16754)+B(16756)+B(16758) -! JVS(12267) = Jac_FULL(2827,5250) - JVS(12267) = 0 -! JVS(12268) = Jac_FULL(2827,5252) - JVS(12268) = B(16755) -! JVS(12269) = Jac_FULL(2827,5255) - JVS(12269) = 0 -! JVS(12270) = Jac_FULL(2827,5256) - JVS(12270) = B(16757) -! JVS(12271) = Jac_FULL(2828,2828) - JVS(12271) = -B(11595)-B(11597)-B(11598) -! JVS(12272) = Jac_FULL(2828,4640) - JVS(12272) = B(7833) -! JVS(12273) = Jac_FULL(2828,5250) - JVS(12273) = -B(11596) -! JVS(12274) = Jac_FULL(2828,5255) - JVS(12274) = B(7834) -! JVS(12275) = Jac_FULL(2829,2829) - JVS(12275) = -B(22093)-B(22095) -! JVS(12276) = Jac_FULL(2829,4863) - JVS(12276) = B(21066) -! JVS(12277) = Jac_FULL(2829,5250) - JVS(12277) = -B(22094) -! JVS(12278) = Jac_FULL(2829,5253) - JVS(12278) = B(21067) -! JVS(12279) = Jac_FULL(2830,2830) - JVS(12279) = -B(12681)-B(12683) -! JVS(12280) = Jac_FULL(2830,4773) - JVS(12280) = B(9069) -! JVS(12281) = Jac_FULL(2830,5250) - JVS(12281) = -B(12682) -! JVS(12282) = Jac_FULL(2830,5253) - JVS(12282) = B(9070) -! JVS(12283) = Jac_FULL(2831,1072) - JVS(12283) = B(5087) -! JVS(12284) = Jac_FULL(2831,2831) - JVS(12284) = -B(5088) -! JVS(12285) = Jac_FULL(2831,4140) - JVS(12285) = B(2223)+B(2225)+B(2227) -! JVS(12286) = Jac_FULL(2831,5250) - JVS(12286) = 0 -! JVS(12287) = Jac_FULL(2831,5252) - JVS(12287) = B(2224) -! JVS(12288) = Jac_FULL(2831,5255) - JVS(12288) = 0 -! JVS(12289) = Jac_FULL(2831,5256) - JVS(12289) = B(2226) -! JVS(12290) = Jac_FULL(2832,1502) - JVS(12290) = B(17292) -! JVS(12291) = Jac_FULL(2832,2832) - JVS(12291) = -B(17293) -! JVS(12292) = Jac_FULL(2832,3928) - JVS(12292) = B(14731)+B(14733)+B(14735) -! JVS(12293) = Jac_FULL(2832,5250) - JVS(12293) = 0 -! JVS(12294) = Jac_FULL(2832,5252) - JVS(12294) = B(14732) -! JVS(12295) = Jac_FULL(2832,5255) - JVS(12295) = 0 -! JVS(12296) = Jac_FULL(2832,5256) - JVS(12296) = B(14734) -! JVS(12297) = Jac_FULL(2833,2833) - JVS(12297) = -B(22278)-B(22280) -! JVS(12298) = Jac_FULL(2833,4445) - JVS(12298) = B(21508) -! JVS(12299) = Jac_FULL(2833,5250) - JVS(12299) = -B(22279) -! JVS(12300) = Jac_FULL(2833,5253) - JVS(12300) = B(21509) -! JVS(12301) = Jac_FULL(2834,2834) - JVS(12301) = -B(10679)-B(10681) -! JVS(12302) = Jac_FULL(2834,3980) - JVS(12302) = B(6856) -! JVS(12303) = Jac_FULL(2834,5250) - JVS(12303) = -B(10680) -! JVS(12304) = Jac_FULL(2834,5252) - JVS(12304) = B(6857) -! JVS(12305) = Jac_FULL(2835,2835) - JVS(12305) = -B(11780)-B(11781) -! JVS(12306) = Jac_FULL(2835,3961) - JVS(12306) = B(8053) -! JVS(12307) = Jac_FULL(2835,5250) - JVS(12307) = -B(11782) -! JVS(12308) = Jac_FULL(2835,5252) - JVS(12308) = B(8054) -! JVS(12309) = Jac_FULL(2836,2836) - JVS(12309) = -B(11354)-B(11356)-B(11357) -! JVS(12310) = Jac_FULL(2836,4756) - JVS(12310) = B(7520) -! JVS(12311) = Jac_FULL(2836,5250) - JVS(12311) = -B(11355) -! JVS(12312) = Jac_FULL(2836,5255) - JVS(12312) = B(7521) -! JVS(12313) = Jac_FULL(2837,2477) - JVS(12313) = B(9215) -! JVS(12314) = Jac_FULL(2837,2837) - JVS(12314) = -B(9214) -! JVS(12315) = Jac_FULL(2837,3468) - JVS(12315) = B(9212) -! JVS(12316) = Jac_FULL(2837,4893) - JVS(12316) = B(5628)+B(5630)+B(5632) -! JVS(12317) = Jac_FULL(2837,5250) - JVS(12317) = B(9216) -! JVS(12318) = Jac_FULL(2837,5252) - JVS(12318) = B(5629) -! JVS(12319) = Jac_FULL(2837,5256) - JVS(12319) = B(5631) -! JVS(12320) = Jac_FULL(2838,2838) - JVS(12320) = -B(21382)-B(21384) -! JVS(12321) = Jac_FULL(2838,4013) - JVS(12321) = B(20052) -! JVS(12322) = Jac_FULL(2838,5250) - JVS(12322) = -B(21383) -! JVS(12323) = Jac_FULL(2838,5255) - JVS(12323) = B(20053) -! JVS(12324) = Jac_FULL(2839,2839) - JVS(12324) = -B(4609)-B(4610) -! JVS(12325) = Jac_FULL(2839,4121) - JVS(12325) = B(1805) -! JVS(12326) = Jac_FULL(2839,5250) - JVS(12326) = -B(4611) -! JVS(12327) = Jac_FULL(2839,5252) - JVS(12327) = B(1806) -! JVS(12328) = Jac_FULL(2840,1138) - JVS(12328) = B(3714) -! JVS(12329) = Jac_FULL(2840,2840) - JVS(12329) = -B(3717) -! JVS(12330) = Jac_FULL(2840,5060) - JVS(12330) = B(1002)+B(1004)+B(1006) -! JVS(12331) = Jac_FULL(2840,5250) - JVS(12331) = 0 -! JVS(12332) = Jac_FULL(2840,5252) - JVS(12332) = B(1003) -! JVS(12333) = Jac_FULL(2840,5255) - JVS(12333) = 0 -! JVS(12334) = Jac_FULL(2840,5256) - JVS(12334) = B(1005) -! JVS(12335) = Jac_FULL(2841,2841) - JVS(12335) = -B(11763)-B(11765) -! JVS(12336) = Jac_FULL(2841,4760) - JVS(12336) = B(8035) -! JVS(12337) = Jac_FULL(2841,5250) - JVS(12337) = -B(11764) -! JVS(12338) = Jac_FULL(2841,5253) - JVS(12338) = B(8036) -! JVS(12339) = Jac_FULL(2842,2842) - JVS(12339) = -B(19581)-B(19582) -! JVS(12340) = Jac_FULL(2842,4866) - JVS(12340) = B(17542) -! JVS(12341) = Jac_FULL(2842,5250) - JVS(12341) = -B(19583) -! JVS(12342) = Jac_FULL(2842,5253) - JVS(12342) = B(17543) -! JVS(12343) = Jac_FULL(2843,2843) - JVS(12343) = -B(17553)-B(17554) -! JVS(12344) = Jac_FULL(2843,4623) - JVS(12344) = B(14986) -! JVS(12345) = Jac_FULL(2843,5250) - JVS(12345) = -B(17555) -! JVS(12346) = Jac_FULL(2843,5253) - JVS(12346) = B(14987) -! JVS(12347) = Jac_FULL(2844,2844) - JVS(12347) = -B(17620)-B(17621) -! JVS(12348) = Jac_FULL(2844,4517) - JVS(12348) = B(15049) -! JVS(12349) = Jac_FULL(2844,5250) - JVS(12349) = -B(17622) -! JVS(12350) = Jac_FULL(2844,5253) - JVS(12350) = B(15050) -! JVS(12351) = Jac_FULL(2845,2845) - JVS(12351) = -B(22154)-B(22155) -! JVS(12352) = Jac_FULL(2845,4468) - JVS(12352) = B(21152) -! JVS(12353) = Jac_FULL(2845,5250) - JVS(12353) = -B(22156) -! JVS(12354) = Jac_FULL(2845,5253) - JVS(12354) = B(21153) -! JVS(12355) = Jac_FULL(2846,2846) - JVS(12355) = -B(17601)-B(17602) -! JVS(12356) = Jac_FULL(2846,4934) - JVS(12356) = B(15028) -! JVS(12357) = Jac_FULL(2846,5250) - JVS(12357) = -B(17603) -! JVS(12358) = Jac_FULL(2846,5253) - JVS(12358) = B(15029) -! JVS(12359) = Jac_FULL(2847,1589) - JVS(12359) = B(9835) -! JVS(12360) = Jac_FULL(2847,2585) - JVS(12360) = B(9832) -! JVS(12361) = Jac_FULL(2847,2847) - JVS(12361) = -B(9834) -! JVS(12362) = Jac_FULL(2847,3641) - JVS(12362) = B(6125)+B(6127)+B(6129) -! JVS(12363) = Jac_FULL(2847,5250) - JVS(12363) = B(9836) -! JVS(12364) = Jac_FULL(2847,5252) - JVS(12364) = B(6126) -! JVS(12365) = Jac_FULL(2847,5255) - JVS(12365) = 0 -! JVS(12366) = Jac_FULL(2847,5256) - JVS(12366) = B(6128) -! JVS(12367) = Jac_FULL(2848,2848) - JVS(12367) = -B(17628)-B(17629) -! JVS(12368) = Jac_FULL(2848,4629) - JVS(12368) = B(15062) -! JVS(12369) = Jac_FULL(2848,5250) - JVS(12369) = -B(17630) -! JVS(12370) = Jac_FULL(2848,5253) - JVS(12370) = B(15063) -! JVS(12371) = Jac_FULL(2849,2133) - JVS(12371) = B(5185) -! JVS(12372) = Jac_FULL(2849,2849) - JVS(12372) = -B(5186) -! JVS(12373) = Jac_FULL(2849,4608) - JVS(12373) = B(2314)+B(2316)+B(2319) -! JVS(12374) = Jac_FULL(2849,5250) - JVS(12374) = 0 -! JVS(12375) = Jac_FULL(2849,5252) - JVS(12375) = B(2315) -! JVS(12376) = Jac_FULL(2849,5255) - JVS(12376) = 0 -! JVS(12377) = Jac_FULL(2849,5256) - JVS(12377) = B(2317) -! JVS(12378) = Jac_FULL(2850,2850) - JVS(12378) = -B(16914)-B(16916) -! JVS(12379) = Jac_FULL(2850,4830) - JVS(12379) = B(14276) -! JVS(12380) = Jac_FULL(2850,5250) - JVS(12380) = -B(16915) -! JVS(12381) = Jac_FULL(2850,5253) - JVS(12381) = B(14277) -! JVS(12382) = Jac_FULL(2851,1391) - JVS(12382) = B(5018) -! JVS(12383) = Jac_FULL(2851,2851) - JVS(12383) = -B(5019) -! JVS(12384) = Jac_FULL(2851,4143) - JVS(12384) = B(2171)+B(2173)+B(2175) -! JVS(12385) = Jac_FULL(2851,5250) - JVS(12385) = 0 -! JVS(12386) = Jac_FULL(2851,5252) - JVS(12386) = B(2172) -! JVS(12387) = Jac_FULL(2851,5255) - JVS(12387) = 0 -! JVS(12388) = Jac_FULL(2851,5256) - JVS(12388) = B(2174) -! JVS(12389) = Jac_FULL(2852,2852) - JVS(12389) = -B(21524)-B(21526) -! JVS(12390) = Jac_FULL(2852,4977) - JVS(12390) = B(20287) -! JVS(12391) = Jac_FULL(2852,5250) - JVS(12391) = -B(21525) -! JVS(12392) = Jac_FULL(2852,5253) - JVS(12392) = B(20288) -! JVS(12393) = Jac_FULL(2853,1271) - JVS(12393) = B(22191) -! JVS(12394) = Jac_FULL(2853,2853) - JVS(12394) = -B(22194) -! JVS(12395) = Jac_FULL(2853,4532) - JVS(12395) = B(21257)+B(21259)+B(21261) -! JVS(12396) = Jac_FULL(2853,5250) - JVS(12396) = 0 -! JVS(12397) = Jac_FULL(2853,5252) - JVS(12397) = B(21258) -! JVS(12398) = Jac_FULL(2853,5255) - JVS(12398) = 0 -! JVS(12399) = Jac_FULL(2853,5256) - JVS(12399) = B(21260) -! JVS(12400) = Jac_FULL(2854,2854) - JVS(12400) = -B(20150) -! JVS(12401) = Jac_FULL(2854,3395) - JVS(12401) = B(18456) -! JVS(12402) = Jac_FULL(2854,3414) - JVS(12402) = B(20135) -! JVS(12403) = Jac_FULL(2854,3596) - JVS(12403) = B(20131) -! JVS(12404) = Jac_FULL(2854,3597) - JVS(12404) = B(18460) -! JVS(12405) = Jac_FULL(2854,5250) - JVS(12405) = -B(20151) -! JVS(12406) = Jac_FULL(2855,2855) - JVS(12406) = -B(23957)-B(23959) -! JVS(12407) = Jac_FULL(2855,3882) - JVS(12407) = B(23868) -! JVS(12408) = Jac_FULL(2855,5250) - JVS(12408) = -B(23958) -! JVS(12409) = Jac_FULL(2855,5252) - JVS(12409) = B(23869) -! JVS(12410) = Jac_FULL(2856,296) - JVS(12410) = B(23961) -! JVS(12411) = Jac_FULL(2856,1505) - JVS(12411) = B(23954) -! JVS(12412) = Jac_FULL(2856,2257) - JVS(12412) = B(23696) -! JVS(12413) = Jac_FULL(2856,2855) - JVS(12413) = B(23957) -! JVS(12414) = Jac_FULL(2856,2856) - JVS(12414) = -B(23864) -! JVS(12415) = Jac_FULL(2856,3882) - JVS(12415) = B(23874) -! JVS(12416) = Jac_FULL(2856,4216) - JVS(12416) = 0 -! JVS(12417) = Jac_FULL(2856,5250) - JVS(12417) = B(23697)-B(23865)+B(23955)+B(23958)+B(23962) -! JVS(12418) = Jac_FULL(2856,5252) - JVS(12418) = 0 -! JVS(12419) = Jac_FULL(2856,5255) - JVS(12419) = 0 -! JVS(12420) = Jac_FULL(2857,2857) - JVS(12420) = -B(9913)-B(9915) -! JVS(12421) = Jac_FULL(2857,4654) - JVS(12421) = B(6216) -! JVS(12422) = Jac_FULL(2857,5250) - JVS(12422) = -B(9914) -! JVS(12423) = Jac_FULL(2857,5253) - JVS(12423) = B(6217) -! JVS(12424) = Jac_FULL(2858,1515) - JVS(12424) = B(12240) -! JVS(12425) = Jac_FULL(2858,2858) - JVS(12425) = -B(12241) -! JVS(12426) = Jac_FULL(2858,3964) - JVS(12426) = B(8534)+B(8536)+B(8538) -! JVS(12427) = Jac_FULL(2858,5250) - JVS(12427) = 0 -! JVS(12428) = Jac_FULL(2858,5252) - JVS(12428) = B(8535) -! JVS(12429) = Jac_FULL(2858,5255) - JVS(12429) = 0 -! JVS(12430) = Jac_FULL(2858,5256) - JVS(12430) = B(8537) -! JVS(12431) = Jac_FULL(2859,2859) - JVS(12431) = -B(22208)-B(22210) -! JVS(12432) = Jac_FULL(2859,4489) - JVS(12432) = B(21305) -! JVS(12433) = Jac_FULL(2859,5250) - JVS(12433) = -B(22209) -! JVS(12434) = Jac_FULL(2859,5253) - JVS(12434) = B(21306) -! JVS(12435) = Jac_FULL(2860,2860) - JVS(12435) = -B(17199)-B(17201) -! JVS(12436) = Jac_FULL(2860,4921) - JVS(12436) = B(14579) -! JVS(12437) = Jac_FULL(2860,5250) - JVS(12437) = -B(17200) -! JVS(12438) = Jac_FULL(2860,5253) - JVS(12438) = B(14580) -! JVS(12439) = Jac_FULL(2861,2861) - JVS(12439) = -B(4097) -! JVS(12440) = Jac_FULL(2861,4420) - JVS(12440) = B(4095) -! JVS(12441) = Jac_FULL(2861,5180) - JVS(12441) = B(4819) -! JVS(12442) = Jac_FULL(2861,5235) - JVS(12442) = B(1297)+B(1299)+B(1302) -! JVS(12443) = Jac_FULL(2861,5252) - JVS(12443) = B(1298) -! JVS(12444) = Jac_FULL(2861,5256) - JVS(12444) = B(1300) -! JVS(12445) = Jac_FULL(2862,2862) - JVS(12445) = -B(21441)-B(21443) -! JVS(12446) = Jac_FULL(2862,4218) - JVS(12446) = B(20141) -! JVS(12447) = Jac_FULL(2862,5250) - JVS(12447) = -B(21442) -! JVS(12448) = Jac_FULL(2862,5255) - JVS(12448) = B(20142) -! JVS(12449) = Jac_FULL(2863,2863) - JVS(12449) = -B(21368)-B(21370) -! JVS(12450) = Jac_FULL(2863,4253) - JVS(12450) = B(20032) -! JVS(12451) = Jac_FULL(2863,5250) - JVS(12451) = -B(21369) -! JVS(12452) = Jac_FULL(2863,5253) - JVS(12452) = B(20033) -! JVS(12453) = Jac_FULL(2864,2864) - JVS(12453) = -B(23938)-B(23940) -! JVS(12454) = Jac_FULL(2864,4853) - JVS(12454) = B(23813) -! JVS(12455) = Jac_FULL(2864,5250) - JVS(12455) = -B(23939) -! JVS(12456) = Jac_FULL(2864,5253) - JVS(12456) = B(23814) -! JVS(12457) = Jac_FULL(2865,909) - JVS(12457) = B(17463) -! JVS(12458) = Jac_FULL(2865,2865) - JVS(12458) = -B(17464) -! JVS(12459) = Jac_FULL(2865,4263) - JVS(12459) = B(14903)+B(14905)+B(14907) -! JVS(12460) = Jac_FULL(2865,5250) - JVS(12460) = 0 -! JVS(12461) = Jac_FULL(2865,5252) - JVS(12461) = B(14904) -! JVS(12462) = Jac_FULL(2865,5255) - JVS(12462) = 0 -! JVS(12463) = Jac_FULL(2865,5256) - JVS(12463) = B(14906) -! JVS(12464) = Jac_FULL(2866,2866) - JVS(12464) = -B(21499)-B(21501) -! JVS(12465) = Jac_FULL(2866,4441) - JVS(12465) = B(20252) -! JVS(12466) = Jac_FULL(2866,5250) - JVS(12466) = -B(21500) -! JVS(12467) = Jac_FULL(2866,5253) - JVS(12467) = B(20253) -! JVS(12468) = Jac_FULL(2867,2867) - JVS(12468) = -B(21670)-B(21672) -! JVS(12469) = Jac_FULL(2867,4806) - JVS(12469) = B(20627) -! JVS(12470) = Jac_FULL(2867,5250) - JVS(12470) = -B(21671) -! JVS(12471) = Jac_FULL(2867,5253) - JVS(12471) = B(20628) -! JVS(12472) = Jac_FULL(2868,2868) - JVS(12472) = -B(19540)-B(19542) -! JVS(12473) = Jac_FULL(2868,4957) - JVS(12473) = B(17420) -! JVS(12474) = Jac_FULL(2868,5250) - JVS(12474) = -B(19541) -! JVS(12475) = Jac_FULL(2868,5255) - JVS(12475) = B(17421) -! JVS(12476) = Jac_FULL(2869,2010) - JVS(12476) = B(4021) -! JVS(12477) = Jac_FULL(2869,2869) - JVS(12477) = -B(4022) -! JVS(12478) = Jac_FULL(2869,4364) - JVS(12478) = B(1241)+B(1243)+B(1247) -! JVS(12479) = Jac_FULL(2869,5250) - JVS(12479) = 0 -! JVS(12480) = Jac_FULL(2869,5252) - JVS(12480) = B(1242) -! JVS(12481) = Jac_FULL(2869,5255) - JVS(12481) = 0 -! JVS(12482) = Jac_FULL(2869,5256) - JVS(12482) = B(1244) -! JVS(12483) = Jac_FULL(2870,2870) - JVS(12483) = -B(21600)-B(21601) -! JVS(12484) = Jac_FULL(2870,4772) - JVS(12484) = B(20464) -! JVS(12485) = Jac_FULL(2870,5250) - JVS(12485) = -B(21602) -! JVS(12486) = Jac_FULL(2870,5255) - JVS(12486) = B(20465) -! JVS(12487) = Jac_FULL(2871,2871) - JVS(12487) = -B(11721)-B(11722)-B(11724) -! JVS(12488) = Jac_FULL(2871,3885) - JVS(12488) = B(7996) -! JVS(12489) = Jac_FULL(2871,5250) - JVS(12489) = -B(11723)-B(11725) -! JVS(12490) = Jac_FULL(2871,5255) - JVS(12490) = B(7997) -! JVS(12491) = Jac_FULL(2872,2872) - JVS(12491) = -B(12263)-B(12265) -! JVS(12492) = Jac_FULL(2872,4433) - JVS(12492) = B(8578) -! JVS(12493) = Jac_FULL(2872,5250) - JVS(12493) = -B(12264) -! JVS(12494) = Jac_FULL(2872,5253) - JVS(12494) = B(8579) -! JVS(12495) = Jac_FULL(2873,2873) - JVS(12495) = -B(4317)-B(4319) -! JVS(12496) = Jac_FULL(2873,4428) - JVS(12496) = B(1541) -! JVS(12497) = Jac_FULL(2873,5250) - JVS(12497) = -B(4318) -! JVS(12498) = Jac_FULL(2873,5255) - JVS(12498) = B(1542) -! JVS(12499) = Jac_FULL(2874,1122) - JVS(12499) = B(17950) -! JVS(12500) = Jac_FULL(2874,2874) - JVS(12500) = -B(17953) -! JVS(12501) = Jac_FULL(2874,4254) - JVS(12501) = B(15349)+B(15351)+B(15353) -! JVS(12502) = Jac_FULL(2874,5250) - JVS(12502) = 0 -! JVS(12503) = Jac_FULL(2874,5252) - JVS(12503) = B(15350) -! JVS(12504) = Jac_FULL(2874,5255) - JVS(12504) = 0 -! JVS(12505) = Jac_FULL(2874,5256) - JVS(12505) = B(15352) -! JVS(12506) = Jac_FULL(2875,1636) - JVS(12506) = B(9597) -! JVS(12507) = Jac_FULL(2875,2601) - JVS(12507) = B(9592) -! JVS(12508) = Jac_FULL(2875,2875) - JVS(12508) = -B(9600)-B(9602) -! JVS(12509) = Jac_FULL(2875,4675) - JVS(12509) = B(5931) -! JVS(12510) = Jac_FULL(2875,5250) - JVS(12510) = B(9593)+B(9598)-B(9601) -! JVS(12511) = Jac_FULL(2875,5255) - JVS(12511) = 0 -! JVS(12512) = Jac_FULL(2876,2876) - JVS(12512) = -B(12499)-B(12501) -! JVS(12513) = Jac_FULL(2876,4986) - JVS(12513) = B(8848) -! JVS(12514) = Jac_FULL(2876,5250) - JVS(12514) = -B(12500) -! JVS(12515) = Jac_FULL(2876,5253) - JVS(12515) = B(8849) -! JVS(12516) = Jac_FULL(2877,2877) - JVS(12516) = -B(21202)-B(21203) -! JVS(12517) = Jac_FULL(2877,4874) - JVS(12517) = B(19733) -! JVS(12518) = Jac_FULL(2877,5250) - JVS(12518) = -B(21204) -! JVS(12519) = Jac_FULL(2877,5253) - JVS(12519) = B(19734) -! JVS(12520) = Jac_FULL(2878,2878) - JVS(12520) = -B(7125)-B(7127)-B(7129)-B(7130) -! JVS(12521) = Jac_FULL(2878,4390) - JVS(12521) = B(3317) -! JVS(12522) = Jac_FULL(2878,5250) - JVS(12522) = -B(7126)-B(7128) -! JVS(12523) = Jac_FULL(2878,5255) - JVS(12523) = B(3318) -! JVS(12524) = Jac_FULL(2879,2879) - JVS(12524) = -B(17102)-B(17104) -! JVS(12525) = Jac_FULL(2879,4855) - JVS(12525) = B(14448) -! JVS(12526) = Jac_FULL(2879,5250) - JVS(12526) = -B(17103) -! JVS(12527) = Jac_FULL(2879,5253) - JVS(12527) = B(14449) -! JVS(12528) = Jac_FULL(2880,2880) - JVS(12528) = -B(11469)-B(11470) -! JVS(12529) = Jac_FULL(2880,5136) - JVS(12529) = B(7633) -! JVS(12530) = Jac_FULL(2880,5250) - JVS(12530) = -B(11471) -! JVS(12531) = Jac_FULL(2880,5253) - JVS(12531) = B(7634) -! JVS(12532) = Jac_FULL(2881,1292) - JVS(12532) = B(14176) -! JVS(12533) = Jac_FULL(2881,2881) - JVS(12533) = -B(14177) -! JVS(12534) = Jac_FULL(2881,4170) - JVS(12534) = B(10984)+B(10986)+B(10988) -! JVS(12535) = Jac_FULL(2881,5250) - JVS(12535) = 0 -! JVS(12536) = Jac_FULL(2881,5252) - JVS(12536) = B(10985) -! JVS(12537) = Jac_FULL(2881,5255) - JVS(12537) = 0 -! JVS(12538) = Jac_FULL(2881,5256) - JVS(12538) = B(10987) -! JVS(12539) = Jac_FULL(2882,2882) - JVS(12539) = -B(7643)-B(7644) -! JVS(12540) = Jac_FULL(2882,4634) - JVS(12540) = B(3783) -! JVS(12541) = Jac_FULL(2882,5250) - JVS(12541) = -B(7645) -! JVS(12542) = Jac_FULL(2882,5253) - JVS(12542) = B(3784) -! JVS(12543) = Jac_FULL(2883,2883) - JVS(12543) = -B(14082)-B(14083) -! JVS(12544) = Jac_FULL(2883,5117) - JVS(12544) = B(10881) -! JVS(12545) = Jac_FULL(2883,5250) - JVS(12545) = -B(14084) -! JVS(12546) = Jac_FULL(2883,5253) - JVS(12546) = B(10882) -! JVS(12547) = Jac_FULL(2884,2884) - JVS(12547) = -B(17501)-B(17502) -! JVS(12548) = Jac_FULL(2884,4848) - JVS(12548) = B(14940) -! JVS(12549) = Jac_FULL(2884,5250) - JVS(12549) = -B(17503) -! JVS(12550) = Jac_FULL(2884,5253) - JVS(12550) = B(14941) -! JVS(12551) = Jac_FULL(2885,2885) - JVS(12551) = -B(17521)-B(17522) -! JVS(12552) = Jac_FULL(2885,4412) - JVS(12552) = B(14957) -! JVS(12553) = Jac_FULL(2885,5250) - JVS(12553) = -B(17523) -! JVS(12554) = Jac_FULL(2885,5253) - JVS(12554) = B(14958) -! JVS(12555) = Jac_FULL(2886,2886) - JVS(12555) = -B(19564)-B(19565) -! JVS(12556) = Jac_FULL(2886,5179) - JVS(12556) = B(17490) -! JVS(12557) = Jac_FULL(2886,5250) - JVS(12557) = -B(19566) -! JVS(12558) = Jac_FULL(2886,5253) - JVS(12558) = B(17491) -! JVS(12559) = Jac_FULL(2887,2887) - JVS(12559) = -B(11683)-B(11685) -! JVS(12560) = Jac_FULL(2887,4557) - JVS(12560) = B(7956) -! JVS(12561) = Jac_FULL(2887,5250) - JVS(12561) = -B(11684) -! JVS(12562) = Jac_FULL(2887,5253) - JVS(12562) = B(7957) -! JVS(12563) = Jac_FULL(2888,2888) - JVS(12563) = -B(7401)-B(7403) -! JVS(12564) = Jac_FULL(2888,4090) - JVS(12564) = B(3513) -! JVS(12565) = Jac_FULL(2888,5250) - JVS(12565) = -B(7402) -! JVS(12566) = Jac_FULL(2888,5252) - JVS(12566) = B(3514) -! JVS(12567) = Jac_FULL(2889,1281) - JVS(12567) = B(11904) -! JVS(12568) = Jac_FULL(2889,2045) - JVS(12568) = B(11907) -! JVS(12569) = Jac_FULL(2889,2889) - JVS(12569) = -B(11910)-B(11911) -! JVS(12570) = Jac_FULL(2889,4334) - JVS(12570) = B(8162)+B(8164)+B(8167) -! JVS(12571) = Jac_FULL(2889,5250) - JVS(12571) = 0 -! JVS(12572) = Jac_FULL(2889,5252) - JVS(12572) = B(8163) -! JVS(12573) = Jac_FULL(2889,5255) - JVS(12573) = 0 -! JVS(12574) = Jac_FULL(2889,5256) - JVS(12574) = B(8165) -! JVS(12575) = Jac_FULL(2890,1181) - JVS(12575) = B(22567) -! JVS(12576) = Jac_FULL(2890,2890) - JVS(12576) = -B(22568) -! JVS(12577) = Jac_FULL(2890,4098) - JVS(12577) = B(21967)+B(21969)+B(21972) -! JVS(12578) = Jac_FULL(2890,5250) - JVS(12578) = 0 -! JVS(12579) = Jac_FULL(2890,5252) - JVS(12579) = B(21968) -! JVS(12580) = Jac_FULL(2890,5255) - JVS(12580) = 0 -! JVS(12581) = Jac_FULL(2890,5256) - JVS(12581) = B(21970) -! JVS(12582) = Jac_FULL(2891,1994) - JVS(12582) = B(3855) -! JVS(12583) = Jac_FULL(2891,2459) - JVS(12583) = B(3860) -! JVS(12584) = Jac_FULL(2891,2891) - JVS(12584) = -B(3863)-B(3864) -! JVS(12585) = Jac_FULL(2891,5148) - JVS(12585) = B(1111)+B(1113)+B(1116) -! JVS(12586) = Jac_FULL(2891,5250) - JVS(12586) = 0 -! JVS(12587) = Jac_FULL(2891,5252) - JVS(12587) = B(1112) -! JVS(12588) = Jac_FULL(2891,5255) - JVS(12588) = 0 -! JVS(12589) = Jac_FULL(2891,5256) - JVS(12589) = B(1114) -! JVS(12590) = Jac_FULL(2892,2892) - JVS(12590) = -B(16873)-B(16875) -! JVS(12591) = Jac_FULL(2892,4124) - JVS(12591) = B(14226) -! JVS(12592) = Jac_FULL(2892,5250) - JVS(12592) = -B(16874) -! JVS(12593) = Jac_FULL(2892,5252) - JVS(12593) = B(14227) -! JVS(12594) = Jac_FULL(2893,2893) - JVS(12594) = -B(7055)-B(7057)-B(7059)-B(7060) -! JVS(12595) = Jac_FULL(2893,4852) - JVS(12595) = B(3256) -! JVS(12596) = Jac_FULL(2893,5250) - JVS(12596) = -B(7056)-B(7058) -! JVS(12597) = Jac_FULL(2893,5255) - JVS(12597) = B(3257) -! JVS(12598) = Jac_FULL(2894,1019) - JVS(12598) = B(23677) -! JVS(12599) = Jac_FULL(2894,2894) - JVS(12599) = -B(23678) -! JVS(12600) = Jac_FULL(2894,4120) - JVS(12600) = B(23410)+B(23412)+B(23415) -! JVS(12601) = Jac_FULL(2894,5250) - JVS(12601) = 0 -! JVS(12602) = Jac_FULL(2894,5252) - JVS(12602) = B(23411) -! JVS(12603) = Jac_FULL(2894,5255) - JVS(12603) = 0 -! JVS(12604) = Jac_FULL(2894,5256) - JVS(12604) = B(23413) -! JVS(12605) = Jac_FULL(2895,2895) - JVS(12605) = -B(23488)-B(23490) -! JVS(12606) = Jac_FULL(2895,3736) - JVS(12606) = B(23119) -! JVS(12607) = Jac_FULL(2895,3737) - JVS(12607) = B(23118) -! JVS(12608) = Jac_FULL(2895,5250) - JVS(12608) = B(23120)-B(23489) -! JVS(12609) = Jac_FULL(2896,2896) - JVS(12609) = -B(12311)-B(12312) -! JVS(12610) = Jac_FULL(2896,4283) - JVS(12610) = B(8641) -! JVS(12611) = Jac_FULL(2896,5250) - JVS(12611) = -B(12313) -! JVS(12612) = Jac_FULL(2896,5253) - JVS(12612) = B(8642) -! JVS(12613) = Jac_FULL(2897,891) - JVS(12613) = B(15931) -! JVS(12614) = Jac_FULL(2897,2897) - JVS(12614) = -B(15932) -! JVS(12615) = Jac_FULL(2897,3860) - JVS(12615) = B(12855)+B(12857)+B(12859) -! JVS(12616) = Jac_FULL(2897,5250) - JVS(12616) = 0 -! JVS(12617) = Jac_FULL(2897,5252) - JVS(12617) = B(12856) -! JVS(12618) = Jac_FULL(2897,5255) - JVS(12618) = 0 -! JVS(12619) = Jac_FULL(2897,5256) - JVS(12619) = B(12858) -! JVS(12620) = Jac_FULL(2898,2898) - JVS(12620) = -B(14337)-B(14339) -! JVS(12621) = Jac_FULL(2898,4266) - JVS(12621) = B(11119) -! JVS(12622) = Jac_FULL(2898,5250) - JVS(12622) = -B(14338) -! JVS(12623) = Jac_FULL(2898,5253) - JVS(12623) = B(11120) -! JVS(12624) = Jac_FULL(2899,2899) - JVS(12624) = -B(22269)-B(22271) -! JVS(12625) = Jac_FULL(2899,4203) - JVS(12625) = B(21485) -! JVS(12626) = Jac_FULL(2899,5250) - JVS(12626) = -B(22270) -! JVS(12627) = Jac_FULL(2899,5255) - JVS(12627) = B(21486) -! JVS(12628) = Jac_FULL(2900,2900) - JVS(12628) = -B(13423)-B(13425)-B(13426) -! JVS(12629) = Jac_FULL(2900,3810) - JVS(12629) = B(10203) -! JVS(12630) = Jac_FULL(2900,5250) - JVS(12630) = -B(13424) -! JVS(12631) = Jac_FULL(2900,5255) - JVS(12631) = B(10204) -! JVS(12632) = Jac_FULL(2901,2901) - JVS(12632) = -B(22231)-B(22233) -! JVS(12633) = Jac_FULL(2901,4102) - JVS(12633) = B(21394) -! JVS(12634) = Jac_FULL(2901,5250) - JVS(12634) = -B(22232) -! JVS(12635) = Jac_FULL(2901,5253) - JVS(12635) = B(21395) -! JVS(12636) = Jac_FULL(2902,1186) - JVS(12636) = B(7385) -! JVS(12637) = Jac_FULL(2902,2902) - JVS(12637) = -B(7386) -! JVS(12638) = Jac_FULL(2902,4185) - JVS(12638) = B(3494)+B(3496)+B(3498) -! JVS(12639) = Jac_FULL(2902,5250) - JVS(12639) = 0 -! JVS(12640) = Jac_FULL(2902,5252) - JVS(12640) = B(3495) -! JVS(12641) = Jac_FULL(2902,5255) - JVS(12641) = 0 -! JVS(12642) = Jac_FULL(2902,5256) - JVS(12642) = B(3497) -! JVS(12643) = Jac_FULL(2903,825) - JVS(12643) = B(20069) -! JVS(12644) = Jac_FULL(2903,2903) - JVS(12644) = -B(20070) -! JVS(12645) = Jac_FULL(2903,4262) - JVS(12645) = B(18307)+B(18309)+B(18311) -! JVS(12646) = Jac_FULL(2903,5250) - JVS(12646) = 0 -! JVS(12647) = Jac_FULL(2903,5252) - JVS(12647) = B(18308) -! JVS(12648) = Jac_FULL(2903,5255) - JVS(12648) = 0 -! JVS(12649) = Jac_FULL(2903,5256) - JVS(12649) = B(18310) -! JVS(12650) = Jac_FULL(2904,2904) - JVS(12650) = -B(12690)-B(12692) -! JVS(12651) = Jac_FULL(2904,4684) - JVS(12651) = B(9091) -! JVS(12652) = Jac_FULL(2904,5250) - JVS(12652) = -B(12691) -! JVS(12653) = Jac_FULL(2904,5253) - JVS(12653) = B(9092) -! JVS(12654) = Jac_FULL(2905,997) - JVS(12654) = B(18699) -! JVS(12655) = Jac_FULL(2905,2905) - JVS(12655) = -B(18700) -! JVS(12656) = Jac_FULL(2905,4134) - JVS(12656) = B(16452)+B(16454)+B(16456) -! JVS(12657) = Jac_FULL(2905,5250) - JVS(12657) = 0 -! JVS(12658) = Jac_FULL(2905,5252) - JVS(12658) = B(16453) -! JVS(12659) = Jac_FULL(2905,5255) - JVS(12659) = 0 -! JVS(12660) = Jac_FULL(2905,5256) - JVS(12660) = B(16455) -! JVS(12661) = Jac_FULL(2906,2097) - JVS(12661) = B(4648) -! JVS(12662) = Jac_FULL(2906,2192) - JVS(12662) = B(4643) -! JVS(12663) = Jac_FULL(2906,2906) - JVS(12663) = -B(4651)-B(4652) -! JVS(12664) = Jac_FULL(2906,5077) - JVS(12664) = B(1839)+B(1841)+B(1844) -! JVS(12665) = Jac_FULL(2906,5250) - JVS(12665) = 0 -! JVS(12666) = Jac_FULL(2906,5252) - JVS(12666) = B(1840) -! JVS(12667) = Jac_FULL(2906,5255) - JVS(12667) = 0 -! JVS(12668) = Jac_FULL(2906,5256) - JVS(12668) = B(1842) -! JVS(12669) = Jac_FULL(2907,2907) - JVS(12669) = -B(21579)-B(21581) -! JVS(12670) = Jac_FULL(2907,4739) - JVS(12670) = B(20372) -! JVS(12671) = Jac_FULL(2907,5250) - JVS(12671) = -B(21580) -! JVS(12672) = Jac_FULL(2907,5253) - JVS(12672) = B(20373) -! JVS(12673) = Jac_FULL(2908,2908) - JVS(12673) = -B(21042)-B(21044) -! JVS(12674) = Jac_FULL(2908,3890) - JVS(12674) = B(19468) -! JVS(12675) = Jac_FULL(2908,5250) - JVS(12675) = -B(21043) -! JVS(12676) = Jac_FULL(2908,5252) - JVS(12676) = B(19469) -! JVS(12677) = Jac_FULL(2909,462) - JVS(12677) = B(17288) -! JVS(12678) = Jac_FULL(2909,511) - JVS(12678) = B(21046) -! JVS(12679) = Jac_FULL(2909,927) - JVS(12679) = B(21039) -! JVS(12680) = Jac_FULL(2909,949) - JVS(12680) = B(17281) -! JVS(12681) = Jac_FULL(2909,2079) - JVS(12681) = B(17284) -! JVS(12682) = Jac_FULL(2909,2908) - JVS(12682) = B(21042) -! JVS(12683) = Jac_FULL(2909,2909) - JVS(12683) = -B(19464) -! JVS(12684) = Jac_FULL(2909,3890) - JVS(12684) = B(19474) -! JVS(12685) = Jac_FULL(2909,3901) - JVS(12685) = 0 -! JVS(12686) = Jac_FULL(2909,5250) - JVS(12686) = B(17282)+B(17285)+B(17289)-B(19465)+B(21040)+B(21043)+B(21047) -! JVS(12687) = Jac_FULL(2909,5252) - JVS(12687) = 0 -! JVS(12688) = Jac_FULL(2909,5255) - JVS(12688) = 0 -! JVS(12689) = Jac_FULL(2910,1632) - JVS(12689) = B(19721) -! JVS(12690) = Jac_FULL(2910,2625) - JVS(12690) = B(19717) -! JVS(12691) = Jac_FULL(2910,2910) - JVS(12691) = -B(19723)-B(19724)-B(19725) -! JVS(12692) = Jac_FULL(2910,4811) - JVS(12692) = B(17839) -! JVS(12693) = Jac_FULL(2910,5250) - JVS(12693) = B(19718)+B(19722)-B(19726) -! JVS(12694) = Jac_FULL(2910,5255) - JVS(12694) = 0 -! JVS(12695) = Jac_FULL(2911,2911) - JVS(12695) = -B(21293)-B(21295) -! JVS(12696) = Jac_FULL(2911,4308) - JVS(12696) = B(19893) -! JVS(12697) = Jac_FULL(2911,5250) - JVS(12697) = -B(21294) -! JVS(12698) = Jac_FULL(2911,5255) - JVS(12698) = B(19894) -! JVS(12699) = Jac_FULL(2912,1767) - JVS(12699) = B(5174) -! JVS(12700) = Jac_FULL(2912,2912) - JVS(12700) = -B(5175) -! JVS(12701) = Jac_FULL(2912,4607) - JVS(12701) = B(2303)+B(2305)+B(2308) -! JVS(12702) = Jac_FULL(2912,5250) - JVS(12702) = 0 -! JVS(12703) = Jac_FULL(2912,5252) - JVS(12703) = B(2304) -! JVS(12704) = Jac_FULL(2912,5255) - JVS(12704) = 0 -! JVS(12705) = Jac_FULL(2912,5256) - JVS(12705) = B(2306) -! JVS(12706) = Jac_FULL(2913,2913) - JVS(12706) = -B(4467)-B(4468) -! JVS(12707) = Jac_FULL(2913,4980) - JVS(12707) = B(1696) -! JVS(12708) = Jac_FULL(2913,5250) - JVS(12708) = -B(4469) -! JVS(12709) = Jac_FULL(2913,5252) - JVS(12709) = B(1697) -! JVS(12710) = Jac_FULL(2914,2286) - JVS(12710) = B(2019) -! JVS(12711) = Jac_FULL(2914,2914) - JVS(12711) = -B(259)-B(261) -! JVS(12712) = Jac_FULL(2914,4333) - JVS(12712) = B(1576) -! JVS(12713) = Jac_FULL(2914,5200) - JVS(12713) = 0 -! JVS(12714) = Jac_FULL(2914,5238) - JVS(12714) = -B(260) -! JVS(12715) = Jac_FULL(2914,5250) - JVS(12715) = -B(262) -! JVS(12716) = Jac_FULL(2914,5258) - JVS(12716) = 0 -! JVS(12717) = Jac_FULL(2915,2915) - JVS(12717) = -B(9565)-B(9567) -! JVS(12718) = Jac_FULL(2915,4635) - JVS(12718) = B(5902) -! JVS(12719) = Jac_FULL(2915,5250) - JVS(12719) = -B(9566) -! JVS(12720) = Jac_FULL(2915,5253) - JVS(12720) = B(5903) -! JVS(12721) = Jac_FULL(2916,971) - JVS(12721) = B(22962) -! JVS(12722) = Jac_FULL(2916,2916) - JVS(12722) = -B(22963) -! JVS(12723) = Jac_FULL(2916,3895) - JVS(12723) = B(22548)+B(22550)+B(22552) -! JVS(12724) = Jac_FULL(2916,5250) - JVS(12724) = 0 -! JVS(12725) = Jac_FULL(2916,5252) - JVS(12725) = B(22549) -! JVS(12726) = Jac_FULL(2916,5255) - JVS(12726) = 0 -! JVS(12727) = Jac_FULL(2916,5256) - JVS(12727) = B(22551) -! JVS(12728) = Jac_FULL(2917,2917) - JVS(12728) = -B(11997)-B(11998) -! JVS(12729) = Jac_FULL(2917,5108) - JVS(12729) = B(8251) -! JVS(12730) = Jac_FULL(2917,5250) - JVS(12730) = -B(11999) -! JVS(12731) = Jac_FULL(2917,5252) - JVS(12731) = B(8252) -! JVS(12732) = Jac_FULL(2918,1104) - JVS(12732) = B(18186) -! JVS(12733) = Jac_FULL(2918,2918) - JVS(12733) = -B(18187) -! JVS(12734) = Jac_FULL(2918,4293) - JVS(12734) = B(15680)+B(15682)+B(15684) -! JVS(12735) = Jac_FULL(2918,5250) - JVS(12735) = 0 -! JVS(12736) = Jac_FULL(2918,5252) - JVS(12736) = B(15681) -! JVS(12737) = Jac_FULL(2918,5255) - JVS(12737) = 0 -! JVS(12738) = Jac_FULL(2918,5256) - JVS(12738) = B(15683) -! JVS(12739) = Jac_FULL(2919,1301) - JVS(12739) = B(21450) -! JVS(12740) = Jac_FULL(2919,2919) - JVS(12740) = -B(21451) -! JVS(12741) = Jac_FULL(2919,3937) - JVS(12741) = B(20160)+B(20162)+B(20164) -! JVS(12742) = Jac_FULL(2919,5250) - JVS(12742) = 0 -! JVS(12743) = Jac_FULL(2919,5252) - JVS(12743) = B(20161) -! JVS(12744) = Jac_FULL(2919,5255) - JVS(12744) = 0 -! JVS(12745) = Jac_FULL(2919,5256) - JVS(12745) = B(20163) -! JVS(12746) = Jac_FULL(2920,2920) - JVS(12746) = -B(15707)-B(15709)-B(15711) -! JVS(12747) = Jac_FULL(2920,4857) - JVS(12747) = B(12636) -! JVS(12748) = Jac_FULL(2920,5250) - JVS(12748) = -B(15708)-B(15710) -! JVS(12749) = Jac_FULL(2920,5255) - JVS(12749) = B(12637) -! JVS(12750) = Jac_FULL(2921,2921) - JVS(12750) = -B(11630)-B(11632) -! JVS(12751) = Jac_FULL(2921,4862) - JVS(12751) = B(7875) -! JVS(12752) = Jac_FULL(2921,5250) - JVS(12752) = -B(11631) -! JVS(12753) = Jac_FULL(2921,5253) - JVS(12753) = B(7876) -! JVS(12754) = Jac_FULL(2922,1235) - JVS(12754) = B(4800) -! JVS(12755) = Jac_FULL(2922,2020) - JVS(12755) = B(4803) -! JVS(12756) = Jac_FULL(2922,2922) - JVS(12756) = -B(4806)-B(4807) -! JVS(12757) = Jac_FULL(2922,5181) - JVS(12757) = B(1979)+B(1981)+B(1983) -! JVS(12758) = Jac_FULL(2922,5250) - JVS(12758) = 0 -! JVS(12759) = Jac_FULL(2922,5252) - JVS(12759) = B(1980) -! JVS(12760) = Jac_FULL(2922,5255) - JVS(12760) = 0 -! JVS(12761) = Jac_FULL(2922,5256) - JVS(12761) = B(1982) -! JVS(12762) = Jac_FULL(2923,2923) - JVS(12762) = -B(16428)-B(16430)-B(16432) -! JVS(12763) = Jac_FULL(2923,4920) - JVS(12763) = B(13402) -! JVS(12764) = Jac_FULL(2923,5250) - JVS(12764) = -B(16429)-B(16431) -! JVS(12765) = Jac_FULL(2923,5255) - JVS(12765) = B(13403) -! JVS(12766) = Jac_FULL(2924,2924) - JVS(12766) = -B(12364)-B(12366) -! JVS(12767) = Jac_FULL(2924,4916) - JVS(12767) = B(8678) -! JVS(12768) = Jac_FULL(2924,5250) - JVS(12768) = -B(12365) -! JVS(12769) = Jac_FULL(2924,5253) - JVS(12769) = B(8679) -! JVS(12770) = Jac_FULL(2925,2925) - JVS(12770) = -B(20459)-B(20460) -! JVS(12771) = Jac_FULL(2925,4518) - JVS(12771) = B(18874) -! JVS(12772) = Jac_FULL(2925,5250) - JVS(12772) = -B(20461) -! JVS(12773) = Jac_FULL(2925,5253) - JVS(12773) = B(18875) -! JVS(12774) = Jac_FULL(2926,1921) - JVS(12774) = B(4217) -! JVS(12775) = Jac_FULL(2926,2318) - JVS(12775) = B(4212) -! JVS(12776) = Jac_FULL(2926,2926) - JVS(12776) = -B(4220)-B(4221) -! JVS(12777) = Jac_FULL(2926,5208) - JVS(12777) = B(1438)+B(1440)+B(1444) -! JVS(12778) = Jac_FULL(2926,5250) - JVS(12778) = 0 -! JVS(12779) = Jac_FULL(2926,5252) - JVS(12779) = B(1439) -! JVS(12780) = Jac_FULL(2926,5255) - JVS(12780) = 0 -! JVS(12781) = Jac_FULL(2926,5256) - JVS(12781) = B(1441) -! JVS(12782) = Jac_FULL(2927,700) - JVS(12782) = B(9525) -! JVS(12783) = Jac_FULL(2927,2927) - JVS(12783) = -B(12992)-B(12994) -! JVS(12784) = Jac_FULL(2927,3684) - JVS(12784) = 0 -! JVS(12785) = Jac_FULL(2927,5250) - JVS(12785) = -B(12993) -! JVS(12786) = Jac_FULL(2927,5258) - JVS(12786) = 0 -! JVS(12787) = Jac_FULL(2928,2928) - JVS(12787) = -B(21571)-B(21573) -! JVS(12788) = Jac_FULL(2928,4753) - JVS(12788) = B(20358) -! JVS(12789) = Jac_FULL(2928,5250) - JVS(12789) = -B(21572) -! JVS(12790) = Jac_FULL(2928,5253) - JVS(12790) = B(20359) -! JVS(12791) = Jac_FULL(2929,2929) - JVS(12791) = -B(20155)-B(20157) -! JVS(12792) = Jac_FULL(2929,4424) - JVS(12792) = B(18467) -! JVS(12793) = Jac_FULL(2929,5250) - JVS(12793) = -B(20156) -! JVS(12794) = Jac_FULL(2929,5253) - JVS(12794) = B(18468) -! JVS(12795) = Jac_FULL(2930,2930) - JVS(12795) = -B(22162)-B(22163)-B(22164) -! JVS(12796) = Jac_FULL(2930,4138) - JVS(12796) = B(21174) -! JVS(12797) = Jac_FULL(2930,5250) - JVS(12797) = -B(22165) -! JVS(12798) = Jac_FULL(2930,5255) - JVS(12798) = B(21175) -! JVS(12799) = Jac_FULL(2931,1046) - JVS(12799) = B(23656) -! JVS(12800) = Jac_FULL(2931,2931) - JVS(12800) = -B(23659) -! JVS(12801) = Jac_FULL(2931,3848) - JVS(12801) = B(23383)+B(23385)+B(23387) -! JVS(12802) = Jac_FULL(2931,5250) - JVS(12802) = 0 -! JVS(12803) = Jac_FULL(2931,5252) - JVS(12803) = B(23384) -! JVS(12804) = Jac_FULL(2931,5255) - JVS(12804) = 0 -! JVS(12805) = Jac_FULL(2931,5256) - JVS(12805) = B(23386) -! JVS(12806) = Jac_FULL(2932,1601) - JVS(12806) = B(14162) -! JVS(12807) = Jac_FULL(2932,2932) - JVS(12807) = -B(14159)-B(14161) -! JVS(12808) = Jac_FULL(2932,3473) - JVS(12808) = B(14152) -! JVS(12809) = Jac_FULL(2932,4365) - JVS(12809) = B(10961) -! JVS(12810) = Jac_FULL(2932,5250) - JVS(12810) = B(14153)-B(14160)+B(14163) -! JVS(12811) = Jac_FULL(2933,144) - JVS(12811) = B(4571) -! JVS(12812) = Jac_FULL(2933,1488) - JVS(12812) = B(4563) -! JVS(12813) = Jac_FULL(2933,2610) - JVS(12813) = B(4566) -! JVS(12814) = Jac_FULL(2933,2933) - JVS(12814) = -B(4569)-B(4570) -! JVS(12815) = Jac_FULL(2933,5056) - JVS(12815) = B(1775)+B(1777)+B(1779) -! JVS(12816) = Jac_FULL(2933,5250) - JVS(12816) = B(4572) -! JVS(12817) = Jac_FULL(2933,5252) - JVS(12817) = B(1776) -! JVS(12818) = Jac_FULL(2933,5255) - JVS(12818) = 0 -! JVS(12819) = Jac_FULL(2933,5256) - JVS(12819) = B(1778) -! JVS(12820) = Jac_FULL(2934,2934) - JVS(12820) = -B(11893)-B(11894) -! JVS(12821) = Jac_FULL(2934,3873) - JVS(12821) = B(8149) -! JVS(12822) = Jac_FULL(2934,5250) - JVS(12822) = -B(11895) -! JVS(12823) = Jac_FULL(2934,5252) - JVS(12823) = B(8150) -! JVS(12824) = Jac_FULL(2935,1420) - JVS(12824) = B(19949) -! JVS(12825) = Jac_FULL(2935,2935) - JVS(12825) = -B(19950) -! JVS(12826) = Jac_FULL(2935,4298) - JVS(12826) = B(18164)+B(18166)+B(18168) -! JVS(12827) = Jac_FULL(2935,5250) - JVS(12827) = 0 -! JVS(12828) = Jac_FULL(2935,5252) - JVS(12828) = B(18165) -! JVS(12829) = Jac_FULL(2935,5255) - JVS(12829) = 0 -! JVS(12830) = Jac_FULL(2935,5256) - JVS(12830) = B(18167) -! JVS(12831) = Jac_FULL(2936,538) - JVS(12831) = B(9410) -! JVS(12832) = Jac_FULL(2936,2936) - JVS(12832) = -B(12894)-B(12896) -! JVS(12833) = Jac_FULL(2936,3701) - JVS(12833) = 0 -! JVS(12834) = Jac_FULL(2936,5250) - JVS(12834) = -B(12895) -! JVS(12835) = Jac_FULL(2936,5258) - JVS(12835) = 0 -! JVS(12836) = Jac_FULL(2937,1423) - JVS(12836) = B(20263) -! JVS(12837) = Jac_FULL(2937,2937) - JVS(12837) = -B(20264) -! JVS(12838) = Jac_FULL(2937,4232) - JVS(12838) = B(18657)+B(18659)+B(18661) -! JVS(12839) = Jac_FULL(2937,5250) - JVS(12839) = 0 -! JVS(12840) = Jac_FULL(2937,5252) - JVS(12840) = B(18658) -! JVS(12841) = Jac_FULL(2937,5255) - JVS(12841) = 0 -! JVS(12842) = Jac_FULL(2937,5256) - JVS(12842) = B(18660) -! JVS(12843) = Jac_FULL(2938,320) - JVS(12843) = B(23509) -! JVS(12844) = Jac_FULL(2938,1519) - JVS(12844) = B(23499) -! JVS(12845) = Jac_FULL(2938,2275) - JVS(12845) = B(23502) -! JVS(12846) = Jac_FULL(2938,2938) - JVS(12846) = -B(23507) -! JVS(12847) = Jac_FULL(2938,3424) - JVS(12847) = B(23505) -! JVS(12848) = Jac_FULL(2938,4196) - JVS(12848) = B(23160) -! JVS(12849) = Jac_FULL(2938,5250) - JVS(12849) = B(23500)+B(23503)-B(23508)+B(23510) -! JVS(12850) = Jac_FULL(2938,5252) - JVS(12850) = 0 -! JVS(12851) = Jac_FULL(2938,5255) - JVS(12851) = 0 -! JVS(12852) = Jac_FULL(2939,1856) - JVS(12852) = B(14113) -! JVS(12853) = Jac_FULL(2939,2247) - JVS(12853) = B(14108) -! JVS(12854) = Jac_FULL(2939,2939) - JVS(12854) = -B(14116)-B(14117) -! JVS(12855) = Jac_FULL(2939,5150) - JVS(12855) = B(10914)+B(10916)+B(10919) -! JVS(12856) = Jac_FULL(2939,5250) - JVS(12856) = 0 -! JVS(12857) = Jac_FULL(2939,5252) - JVS(12857) = B(10915) -! JVS(12858) = Jac_FULL(2939,5255) - JVS(12858) = 0 -! JVS(12859) = Jac_FULL(2939,5256) - JVS(12859) = B(10917) -! JVS(12860) = Jac_FULL(2940,2940) - JVS(12860) = -B(14136)-B(14138)-B(14140) -! JVS(12861) = Jac_FULL(2940,4827) - JVS(12861) = B(10939) -! JVS(12862) = Jac_FULL(2940,5250) - JVS(12862) = -B(14137)-B(14139) -! JVS(12863) = Jac_FULL(2940,5255) - JVS(12863) = B(10940) -! JVS(12864) = Jac_FULL(2941,2941) - JVS(12864) = -B(23496)-B(23498) -! JVS(12865) = Jac_FULL(2941,4812) - JVS(12865) = B(23131) -! JVS(12866) = Jac_FULL(2941,5250) - JVS(12866) = -B(23497) -! JVS(12867) = Jac_FULL(2941,5253) - JVS(12867) = B(23132) -! JVS(12868) = Jac_FULL(2942,2942) - JVS(12868) = -B(23536)-B(23538) -! JVS(12869) = Jac_FULL(2942,4137) - JVS(12869) = B(23204) -! JVS(12870) = Jac_FULL(2942,5250) - JVS(12870) = -B(23537) -! JVS(12871) = Jac_FULL(2942,5252) - JVS(12871) = B(23205) -! JVS(12872) = Jac_FULL(2943,2943) - JVS(12872) = -B(16999)-B(17001) -! JVS(12873) = Jac_FULL(2943,3981) - JVS(12873) = B(14376) -! JVS(12874) = Jac_FULL(2943,5250) - JVS(12874) = -B(17000) -! JVS(12875) = Jac_FULL(2943,5252) - JVS(12875) = B(14377) -! JVS(12876) = Jac_FULL(2944,1774) - JVS(12876) = B(5135) -! JVS(12877) = Jac_FULL(2944,2944) - JVS(12877) = -B(5140) -! JVS(12878) = Jac_FULL(2944,5135) - JVS(12878) = B(2270)+B(2272)+B(2276) -! JVS(12879) = Jac_FULL(2944,5250) - JVS(12879) = 0 -! JVS(12880) = Jac_FULL(2944,5252) - JVS(12880) = B(2271) -! JVS(12881) = Jac_FULL(2944,5255) - JVS(12881) = 0 -! JVS(12882) = Jac_FULL(2944,5256) - JVS(12882) = B(2273) -! JVS(12883) = Jac_FULL(2945,2945) - JVS(12883) = -B(7757)-B(7759) -! JVS(12884) = Jac_FULL(2945,4924) - JVS(12884) = B(4002) -! JVS(12885) = Jac_FULL(2945,5250) - JVS(12885) = -B(7758) -! JVS(12886) = Jac_FULL(2945,5253) - JVS(12886) = B(4003) -! JVS(12887) = Jac_FULL(2946,995) - JVS(12887) = B(21205) -! JVS(12888) = Jac_FULL(2946,2946) - JVS(12888) = -B(21210) -! JVS(12889) = Jac_FULL(2946,4890) - JVS(12889) = B(19742)+B(19744)+B(19747) -! JVS(12890) = Jac_FULL(2946,5250) - JVS(12890) = 0 -! JVS(12891) = Jac_FULL(2946,5252) - JVS(12891) = B(19743) -! JVS(12892) = Jac_FULL(2946,5255) - JVS(12892) = 0 -! JVS(12893) = Jac_FULL(2946,5256) - JVS(12893) = B(19745) -! JVS(12894) = Jac_FULL(2947,2947) - JVS(12894) = -B(17127)-B(17129) -! JVS(12895) = Jac_FULL(2947,4891) - JVS(12895) = B(14483) -! JVS(12896) = Jac_FULL(2947,5250) - JVS(12896) = -B(17128) -! JVS(12897) = Jac_FULL(2947,5253) - JVS(12897) = B(14484) -! JVS(12898) = Jac_FULL(2948,2948) - JVS(12898) = -B(10163)-B(10165) -! JVS(12899) = Jac_FULL(2948,4685) - JVS(12899) = B(6454) -! JVS(12900) = Jac_FULL(2948,5250) - JVS(12900) = -B(10164) -! JVS(12901) = Jac_FULL(2948,5253) - JVS(12901) = B(6455) -! JVS(12902) = Jac_FULL(2949,659) - JVS(12902) = B(16099) -! JVS(12903) = Jac_FULL(2949,1088) - JVS(12903) = B(16088) -! JVS(12904) = Jac_FULL(2949,2949) - JVS(12904) = -B(16089) -! JVS(12905) = Jac_FULL(2949,4141) - JVS(12905) = B(12997)+B(12999)+B(13002) -! JVS(12906) = Jac_FULL(2949,5250) - JVS(12906) = 0 -! JVS(12907) = Jac_FULL(2949,5252) - JVS(12907) = B(12998) -! JVS(12908) = Jac_FULL(2949,5255) - JVS(12908) = 0 -! JVS(12909) = Jac_FULL(2949,5256) - JVS(12909) = B(13000) -! JVS(12910) = Jac_FULL(2950,2950) - JVS(12910) = -B(9997)-B(9999) -! JVS(12911) = Jac_FULL(2950,4132) - JVS(12911) = B(6296) -! JVS(12912) = Jac_FULL(2950,5250) - JVS(12912) = -B(9998) -! JVS(12913) = Jac_FULL(2950,5253) - JVS(12913) = B(6297) -! JVS(12914) = Jac_FULL(2951,2951) - JVS(12914) = -B(14241)-B(14243) -! JVS(12915) = Jac_FULL(2951,5029) - JVS(12915) = B(11054) -! JVS(12916) = Jac_FULL(2951,5250) - JVS(12916) = -B(14242) -! JVS(12917) = Jac_FULL(2951,5253) - JVS(12917) = B(11055) -! JVS(12918) = Jac_FULL(2952,1273) - JVS(12918) = B(20193) -! JVS(12919) = Jac_FULL(2952,2952) - JVS(12919) = -B(20194) -! JVS(12920) = Jac_FULL(2952,4276) - JVS(12920) = B(18539)+B(18541)+B(18543) -! JVS(12921) = Jac_FULL(2952,5250) - JVS(12921) = 0 -! JVS(12922) = Jac_FULL(2952,5252) - JVS(12922) = B(18540) -! JVS(12923) = Jac_FULL(2952,5255) - JVS(12923) = 0 -! JVS(12924) = Jac_FULL(2952,5256) - JVS(12924) = B(18542) -! JVS(12925) = Jac_FULL(2953,633) - JVS(12925) = B(22365) -! JVS(12926) = Jac_FULL(2953,1414) - JVS(12926) = B(22358) -! JVS(12927) = Jac_FULL(2953,2332) - JVS(12927) = B(22361) -! JVS(12928) = Jac_FULL(2953,2953) - JVS(12928) = -B(22362) -! JVS(12929) = Jac_FULL(2953,4597) - JVS(12929) = B(21732)+B(21734)+B(21737) -! JVS(12930) = Jac_FULL(2953,5250) - JVS(12930) = 0 -! JVS(12931) = Jac_FULL(2953,5252) - JVS(12931) = B(21733) -! JVS(12932) = Jac_FULL(2953,5255) - JVS(12932) = 0 -! JVS(12933) = Jac_FULL(2953,5256) - JVS(12933) = B(21735) -! JVS(12934) = Jac_FULL(2954,1869) - JVS(12934) = B(13991) -! JVS(12935) = Jac_FULL(2954,2405) - JVS(12935) = B(13995) -! JVS(12936) = Jac_FULL(2954,2954) - JVS(12936) = -B(13992) -! JVS(12937) = Jac_FULL(2954,4368) - JVS(12937) = B(10785)+B(10789)+B(10792) -! JVS(12938) = Jac_FULL(2954,5250) - JVS(12938) = 0 -! JVS(12939) = Jac_FULL(2954,5252) - JVS(12939) = B(10786) -! JVS(12940) = Jac_FULL(2954,5255) - JVS(12940) = 0 -! JVS(12941) = Jac_FULL(2954,5256) - JVS(12941) = B(10790) -! JVS(12942) = Jac_FULL(2955,2955) - JVS(12942) = -B(8690)-B(8692) -! JVS(12943) = Jac_FULL(2955,4649) - JVS(12943) = B(5223) -! JVS(12944) = Jac_FULL(2955,5250) - JVS(12944) = -B(8691) -! JVS(12945) = Jac_FULL(2955,5253) - JVS(12945) = B(5224) -! JVS(12946) = Jac_FULL(2956,2956) - JVS(12946) = -B(12613)-B(12615) -! JVS(12947) = Jac_FULL(2956,4338) - JVS(12947) = B(9026) -! JVS(12948) = Jac_FULL(2956,5250) - JVS(12948) = -B(12614) -! JVS(12949) = Jac_FULL(2956,5253) - JVS(12949) = B(9027) -! JVS(12950) = Jac_FULL(2957,2957) - JVS(12950) = -B(21594)-B(21596) -! JVS(12951) = Jac_FULL(2957,3998) - JVS(12951) = B(20440) -! JVS(12952) = Jac_FULL(2957,5250) - JVS(12952) = -B(21595) -! JVS(12953) = Jac_FULL(2957,5253) - JVS(12953) = B(20441) -! JVS(12954) = Jac_FULL(2958,2958) - JVS(12954) = -B(17112)-B(17114) -! JVS(12955) = Jac_FULL(2958,4953) - JVS(12955) = B(14462) -! JVS(12956) = Jac_FULL(2958,5250) - JVS(12956) = -B(17113) -! JVS(12957) = Jac_FULL(2958,5253) - JVS(12957) = B(14463) -! JVS(12958) = Jac_FULL(2959,1362) - JVS(12958) = B(7322) -! JVS(12959) = Jac_FULL(2959,2959) - JVS(12959) = -B(7323) -! JVS(12960) = Jac_FULL(2959,3806) - JVS(12960) = B(3469)+B(3471)+B(3474) -! JVS(12961) = Jac_FULL(2959,5250) - JVS(12961) = 0 -! JVS(12962) = Jac_FULL(2959,5252) - JVS(12962) = B(3470) -! JVS(12963) = Jac_FULL(2959,5255) - JVS(12963) = 0 -! JVS(12964) = Jac_FULL(2959,5256) - JVS(12964) = B(3472) -! JVS(12965) = Jac_FULL(2960,1268) - JVS(12965) = B(22179) -! JVS(12966) = Jac_FULL(2960,2960) - JVS(12966) = -B(22182) -! JVS(12967) = Jac_FULL(2960,4435) - JVS(12967) = B(21218)+B(21220)+B(21222) -! JVS(12968) = Jac_FULL(2960,5250) - JVS(12968) = 0 -! JVS(12969) = Jac_FULL(2960,5252) - JVS(12969) = B(21219) -! JVS(12970) = Jac_FULL(2960,5255) - JVS(12970) = 0 -! JVS(12971) = Jac_FULL(2960,5256) - JVS(12971) = B(21221) -! JVS(12972) = Jac_FULL(2961,881) - JVS(12972) = B(7582) -! JVS(12973) = Jac_FULL(2961,2961) - JVS(12973) = -B(7585) -! JVS(12974) = Jac_FULL(2961,3898) - JVS(12974) = B(3624)+B(3626)+B(3628) -! JVS(12975) = Jac_FULL(2961,5250) - JVS(12975) = 0 -! JVS(12976) = Jac_FULL(2961,5252) - JVS(12976) = B(3625) -! JVS(12977) = Jac_FULL(2961,5255) - JVS(12977) = 0 -! JVS(12978) = Jac_FULL(2961,5256) - JVS(12978) = B(3627) -! JVS(12979) = Jac_FULL(2962,1517) - JVS(12979) = B(17017) -! JVS(12980) = Jac_FULL(2962,2962) - JVS(12980) = -B(17018) -! JVS(12981) = Jac_FULL(2962,3876) - JVS(12981) = B(14403)+B(14405)+B(14407) -! JVS(12982) = Jac_FULL(2962,5250) - JVS(12982) = 0 -! JVS(12983) = Jac_FULL(2962,5252) - JVS(12983) = B(14404) -! JVS(12984) = Jac_FULL(2962,5255) - JVS(12984) = 0 -! JVS(12985) = Jac_FULL(2962,5256) - JVS(12985) = B(14406) -! JVS(12986) = Jac_FULL(2963,1379) - JVS(12986) = B(18253) -! JVS(12987) = Jac_FULL(2963,2963) - JVS(12987) = -B(18254) -! JVS(12988) = Jac_FULL(2963,4200) - JVS(12988) = B(15776)+B(15778)+B(15780) -! JVS(12989) = Jac_FULL(2963,5250) - JVS(12989) = 0 -! JVS(12990) = Jac_FULL(2963,5252) - JVS(12990) = B(15777) -! JVS(12991) = Jac_FULL(2963,5255) - JVS(12991) = 0 -! JVS(12992) = Jac_FULL(2963,5256) - JVS(12992) = B(15779) -! JVS(12993) = Jac_FULL(2964,2964) - JVS(12993) = -B(4734)-B(4735) -! JVS(12994) = Jac_FULL(2964,4878) - JVS(12994) = B(1912) -! JVS(12995) = Jac_FULL(2964,5250) - JVS(12995) = -B(4736) -! JVS(12996) = Jac_FULL(2964,5252) - JVS(12996) = B(1913) -! JVS(12997) = Jac_FULL(2965,213) - JVS(12997) = B(22129) -! JVS(12998) = Jac_FULL(2965,218) - JVS(12998) = B(23219) -! JVS(12999) = Jac_FULL(2965,1295) - JVS(12999) = B(23212) -! JVS(13000) = Jac_FULL(2965,1333) - JVS(13000) = B(22125) -! JVS(13001) = Jac_FULL(2965,1930) - JVS(13001) = B(23215) -! JVS(13002) = Jac_FULL(2965,2965) - JVS(13002) = -B(22745) -! JVS(13003) = Jac_FULL(2965,3902) - JVS(13003) = B(22755) -! JVS(13004) = Jac_FULL(2965,3951) - JVS(13004) = 0 -! JVS(13005) = Jac_FULL(2965,5250) - JVS(13005) = B(22126)+B(22130)-B(22746)+B(23213)+B(23216)+B(23220) -! JVS(13006) = Jac_FULL(2965,5252) - JVS(13006) = 0 -! JVS(13007) = Jac_FULL(2965,5255) - JVS(13007) = 0 -! JVS(13008) = Jac_FULL(2966,957) - JVS(13008) = B(20512) -! JVS(13009) = Jac_FULL(2966,2966) - JVS(13009) = -B(21619)-B(21621) -! JVS(13010) = Jac_FULL(2966,4599) - JVS(13010) = 0 -! JVS(13011) = Jac_FULL(2966,5250) - JVS(13011) = B(20513)-B(21620) -! JVS(13012) = Jac_FULL(2966,5252) - JVS(13012) = 0 -! JVS(13013) = Jac_FULL(2967,263) - JVS(13013) = B(16174)+B(16176) -! JVS(13014) = Jac_FULL(2967,1345) - JVS(13014) = B(16172) -! JVS(13015) = Jac_FULL(2967,2967) - JVS(13015) = -B(16173) -! JVS(13016) = Jac_FULL(2967,3975) - JVS(13016) = B(13097)+B(13099)+B(13101) -! JVS(13017) = Jac_FULL(2967,5250) - JVS(13017) = B(16175) -! JVS(13018) = Jac_FULL(2967,5252) - JVS(13018) = B(13098) -! JVS(13019) = Jac_FULL(2967,5255) - JVS(13019) = 0 -! JVS(13020) = Jac_FULL(2967,5256) - JVS(13020) = B(13100) -! JVS(13021) = Jac_FULL(2968,940) - JVS(13021) = B(24034) -! JVS(13022) = Jac_FULL(2968,2968) - JVS(13022) = -B(24035) -! JVS(13023) = Jac_FULL(2968,4503) - JVS(13023) = B(24004)+B(24006)+B(24008) -! JVS(13024) = Jac_FULL(2968,5250) - JVS(13024) = 0 -! JVS(13025) = Jac_FULL(2968,5252) - JVS(13025) = B(24005) -! JVS(13026) = Jac_FULL(2968,5255) - JVS(13026) = 0 -! JVS(13027) = Jac_FULL(2968,5256) - JVS(13027) = B(24007) -! JVS(13028) = Jac_FULL(2969,2969) - JVS(13028) = -B(18488)-B(18490) -! JVS(13029) = Jac_FULL(2969,4864) - JVS(13029) = B(16124) -! JVS(13030) = Jac_FULL(2969,5250) - JVS(13030) = -B(18489) -! JVS(13031) = Jac_FULL(2969,5253) - JVS(13031) = B(16125) -! JVS(13032) = Jac_FULL(2970,2970) - JVS(13032) = -B(22214)-B(22216) -! JVS(13033) = Jac_FULL(2970,4329) - JVS(13033) = B(21329) -! JVS(13034) = Jac_FULL(2970,5250) - JVS(13034) = -B(22215) -! JVS(13035) = Jac_FULL(2970,5253) - JVS(13035) = B(21330) -! JVS(13036) = Jac_FULL(2971,2971) - JVS(13036) = -B(13468)-B(13470)-B(13471) -! JVS(13037) = Jac_FULL(2971,4277) - JVS(13037) = B(10271) -! JVS(13038) = Jac_FULL(2971,5250) - JVS(13038) = -B(13469) -! JVS(13039) = Jac_FULL(2971,5255) - JVS(13039) = B(10272) -! JVS(13040) = Jac_FULL(2972,1884) - JVS(13040) = B(18993) -! JVS(13041) = Jac_FULL(2972,2972) - JVS(13041) = -B(19000) -! JVS(13042) = Jac_FULL(2972,4348) - JVS(13042) = B(16791)+B(16793)+B(16796) -! JVS(13043) = Jac_FULL(2972,5250) - JVS(13043) = 0 -! JVS(13044) = Jac_FULL(2972,5252) - JVS(13044) = B(16792) -! JVS(13045) = Jac_FULL(2972,5255) - JVS(13045) = 0 -! JVS(13046) = Jac_FULL(2972,5256) - JVS(13046) = B(16794) -! JVS(13047) = Jac_FULL(2973,2013) - JVS(13047) = B(2041) -! JVS(13048) = Jac_FULL(2973,2973) - JVS(13048) = -B(263)-B(265) -! JVS(13049) = Jac_FULL(2973,3297) - JVS(13049) = B(2148) -! JVS(13050) = Jac_FULL(2973,5051) - JVS(13050) = 0 -! JVS(13051) = Jac_FULL(2973,5238) - JVS(13051) = -B(264) -! JVS(13052) = Jac_FULL(2973,5250) - JVS(13052) = -B(266) -! JVS(13053) = Jac_FULL(2973,5258) - JVS(13053) = 0 -! JVS(13054) = Jac_FULL(2974,1855) - JVS(13054) = B(4532) -! JVS(13055) = Jac_FULL(2974,2350) - JVS(13055) = B(4537) -! JVS(13056) = Jac_FULL(2974,2974) - JVS(13056) = -B(4540)-B(4541) -! JVS(13057) = Jac_FULL(2974,4974) - JVS(13057) = B(1753)+B(1755)+B(1757) -! JVS(13058) = Jac_FULL(2974,5250) - JVS(13058) = 0 -! JVS(13059) = Jac_FULL(2974,5252) - JVS(13059) = B(1754) -! JVS(13060) = Jac_FULL(2974,5255) - JVS(13060) = 0 -! JVS(13061) = Jac_FULL(2974,5256) - JVS(13061) = B(1756) -! JVS(13062) = Jac_FULL(2975,2975) - JVS(13062) = -B(22131)-B(22133)-B(22134) -! JVS(13063) = Jac_FULL(2975,4648) - JVS(13063) = B(21117) -! JVS(13064) = Jac_FULL(2975,5250) - JVS(13064) = -B(22132) -! JVS(13065) = Jac_FULL(2975,5255) - JVS(13065) = B(21118) -! JVS(13066) = Jac_FULL(2976,2976) - JVS(13066) = -B(16759)-B(16761)-B(16763) -! JVS(13067) = Jac_FULL(2976,4612) - JVS(13067) = B(13967) -! JVS(13068) = Jac_FULL(2976,5250) - JVS(13068) = -B(16760)-B(16762) -! JVS(13069) = Jac_FULL(2976,5255) - JVS(13069) = B(13968) -! JVS(13070) = Jac_FULL(2977,2977) - JVS(13070) = -B(21683)-B(21685) -! JVS(13071) = Jac_FULL(2977,4969) - JVS(13071) = B(20638) -! JVS(13072) = Jac_FULL(2977,5250) - JVS(13072) = -B(21684) -! JVS(13073) = Jac_FULL(2977,5253) - JVS(13073) = B(20639) -! JVS(13074) = Jac_FULL(2978,2978) - JVS(13074) = -B(19572)-B(19573) -! JVS(13075) = Jac_FULL(2978,4662) - JVS(13075) = B(17512) -! JVS(13076) = Jac_FULL(2978,5250) - JVS(13076) = -B(19574) -! JVS(13077) = Jac_FULL(2978,5253) - JVS(13077) = B(17513) -! JVS(13078) = Jac_FULL(2979,476) - JVS(13078) = B(23427) -! JVS(13079) = Jac_FULL(2979,1339) - JVS(13079) = B(23417) -! JVS(13080) = Jac_FULL(2979,1883) - JVS(13080) = B(23420) -! JVS(13081) = Jac_FULL(2979,2979) - JVS(13081) = -B(23424)-B(23426) -! JVS(13082) = Jac_FULL(2979,3323) - JVS(13082) = B(23042) -! JVS(13083) = Jac_FULL(2979,3743) - JVS(13083) = B(23037) -! JVS(13084) = Jac_FULL(2979,5250) - JVS(13084) = B(23043)+B(23418)+B(23421)-B(23425)+B(23428) -! JVS(13085) = Jac_FULL(2979,5252) - JVS(13085) = 0 -! JVS(13086) = Jac_FULL(2979,5255) - JVS(13086) = 0 -! JVS(13087) = Jac_FULL(2980,2980) - JVS(13087) = -B(23600)-B(23602) -! JVS(13088) = Jac_FULL(2980,4653) - JVS(13088) = B(23306) -! JVS(13089) = Jac_FULL(2980,5250) - JVS(13089) = -B(23601) -! JVS(13090) = Jac_FULL(2980,5253) - JVS(13090) = B(23307) -! JVS(13091) = Jac_FULL(2981,2981) - JVS(13091) = -B(19694)-B(19695)-B(19696) -! JVS(13092) = Jac_FULL(2981,4802) - JVS(13092) = B(17813) -! JVS(13093) = Jac_FULL(2981,5250) - JVS(13093) = -B(19697) -! JVS(13094) = Jac_FULL(2981,5255) - JVS(13094) = B(17814) -! JVS(13095) = Jac_FULL(2982,651) - JVS(13095) = B(17653) -! JVS(13096) = Jac_FULL(2982,1323) - JVS(13096) = B(17646) -! JVS(13097) = Jac_FULL(2982,2253) - JVS(13097) = B(17649) -! JVS(13098) = Jac_FULL(2982,2982) - JVS(13098) = -B(17652) -! JVS(13099) = Jac_FULL(2982,4704) - JVS(13099) = B(15083)+B(15085)+B(15087) -! JVS(13100) = Jac_FULL(2982,5250) - JVS(13100) = 0 -! JVS(13101) = Jac_FULL(2982,5252) - JVS(13101) = B(15084) -! JVS(13102) = Jac_FULL(2982,5255) - JVS(13102) = 0 -! JVS(13103) = Jac_FULL(2982,5256) - JVS(13103) = B(15086) -! JVS(13104) = Jac_FULL(2983,1422) - JVS(13104) = B(3803) -! JVS(13105) = Jac_FULL(2983,2983) - JVS(13105) = -B(3806) -! JVS(13106) = Jac_FULL(2983,4837) - JVS(13106) = B(1074)+B(1076)+B(1078) -! JVS(13107) = Jac_FULL(2983,5250) - JVS(13107) = 0 -! JVS(13108) = Jac_FULL(2983,5252) - JVS(13108) = B(1075) -! JVS(13109) = Jac_FULL(2983,5255) - JVS(13109) = 0 -! JVS(13110) = Jac_FULL(2983,5256) - JVS(13110) = B(1077) -! JVS(13111) = Jac_FULL(2984,2984) - JVS(13111) = -B(22438)-B(22440) -! JVS(13112) = Jac_FULL(2984,4485) - JVS(13112) = B(21812) -! JVS(13113) = Jac_FULL(2984,5250) - JVS(13113) = -B(22439) -! JVS(13114) = Jac_FULL(2984,5253) - JVS(13114) = B(21813) -! JVS(13115) = Jac_FULL(2985,2985) - JVS(13115) = -B(11668)-B(11670) -! JVS(13116) = Jac_FULL(2985,5036) - JVS(13116) = B(7936)+B(7948) -! JVS(13117) = Jac_FULL(2985,5250) - JVS(13117) = -B(11669)-B(11671) -! JVS(13118) = Jac_FULL(2985,5255) - JVS(13118) = B(7937) -! JVS(13119) = Jac_FULL(2986,913) - JVS(13119) = B(20021) -! JVS(13120) = Jac_FULL(2986,2986) - JVS(13120) = -B(20022) -! JVS(13121) = Jac_FULL(2986,4305) - JVS(13121) = B(18229)+B(18231)+B(18233) -! JVS(13122) = Jac_FULL(2986,5250) - JVS(13122) = 0 -! JVS(13123) = Jac_FULL(2986,5252) - JVS(13123) = B(18230) -! JVS(13124) = Jac_FULL(2986,5255) - JVS(13124) = 0 -! JVS(13125) = Jac_FULL(2986,5256) - JVS(13125) = B(18232) -! JVS(13126) = Jac_FULL(2987,2987) - JVS(13126) = -B(21164)-B(21165) -! JVS(13127) = Jac_FULL(2987,4984) - JVS(13127) = B(19625) -! JVS(13128) = Jac_FULL(2987,5250) - JVS(13128) = -B(21166) -! JVS(13129) = Jac_FULL(2987,5253) - JVS(13129) = B(19626) -! JVS(13130) = Jac_FULL(2988,2988) - JVS(13130) = -B(12284)-B(12286) -! JVS(13131) = Jac_FULL(2988,4427) - JVS(13131) = B(8611) -! JVS(13132) = Jac_FULL(2988,5250) - JVS(13132) = -B(12285) -! JVS(13133) = Jac_FULL(2988,5253) - JVS(13133) = B(8612) -! JVS(13134) = Jac_FULL(2989,1360) - JVS(13134) = B(21644) -! JVS(13135) = Jac_FULL(2989,2989) - JVS(13135) = -B(21645) -! JVS(13136) = Jac_FULL(2989,4191) - JVS(13136) = B(20585)+B(20587)+B(20589) -! JVS(13137) = Jac_FULL(2989,5250) - JVS(13137) = 0 -! JVS(13138) = Jac_FULL(2989,5252) - JVS(13138) = B(20586) -! JVS(13139) = Jac_FULL(2989,5255) - JVS(13139) = 0 -! JVS(13140) = Jac_FULL(2989,5256) - JVS(13140) = B(20588) -! JVS(13141) = Jac_FULL(2990,1753) - JVS(13141) = B(4589) -! JVS(13142) = Jac_FULL(2990,2246) - JVS(13142) = B(4594) -! JVS(13143) = Jac_FULL(2990,2990) - JVS(13143) = -B(4597)-B(4598) -! JVS(13144) = Jac_FULL(2990,5061) - JVS(13144) = B(1796)+B(1798)+B(1801) -! JVS(13145) = Jac_FULL(2990,5250) - JVS(13145) = 0 -! JVS(13146) = Jac_FULL(2990,5252) - JVS(13146) = B(1797) -! JVS(13147) = Jac_FULL(2990,5255) - JVS(13147) = 0 -! JVS(13148) = Jac_FULL(2990,5256) - JVS(13148) = B(1799) -! JVS(13149) = Jac_FULL(2991,2991) - JVS(13149) = -B(21310)-B(21312) -! JVS(13150) = Jac_FULL(2991,4221) - JVS(13150) = B(19909) -! JVS(13151) = Jac_FULL(2991,5250) - JVS(13151) = -B(21311) -! JVS(13152) = Jac_FULL(2991,5255) - JVS(13152) = B(19910) -! JVS(13153) = Jac_FULL(2992,2992) - JVS(13153) = -B(4180) -! JVS(13154) = Jac_FULL(2992,2993) - JVS(13154) = B(4179) -! JVS(13155) = Jac_FULL(2992,4108) - JVS(13155) = B(4904) -! JVS(13156) = Jac_FULL(2992,4763) - JVS(13156) = B(1392)+B(1394)+B(1397) -! JVS(13157) = Jac_FULL(2992,5252) - JVS(13157) = B(1393) -! JVS(13158) = Jac_FULL(2992,5256) - JVS(13158) = B(1395) -! JVS(13159) = Jac_FULL(2993,2993) - JVS(13159) = -B(4176)-B(4178)-B(4179) -! JVS(13160) = Jac_FULL(2993,4763) - JVS(13160) = B(1390) -! JVS(13161) = Jac_FULL(2993,5250) - JVS(13161) = -B(4177) -! JVS(13162) = Jac_FULL(2993,5255) - JVS(13162) = B(1391) -! JVS(13163) = Jac_FULL(2994,1647) - JVS(13163) = B(9622) -! JVS(13164) = Jac_FULL(2994,2740) - JVS(13164) = B(9619) -! JVS(13165) = Jac_FULL(2994,2994) - JVS(13165) = -B(9621) -! JVS(13166) = Jac_FULL(2994,3663) - JVS(13166) = B(5949)+B(5951)+B(5953) -! JVS(13167) = Jac_FULL(2994,5250) - JVS(13167) = B(9623) -! JVS(13168) = Jac_FULL(2994,5252) - JVS(13168) = B(5950) -! JVS(13169) = Jac_FULL(2994,5255) - JVS(13169) = 0 -! JVS(13170) = Jac_FULL(2994,5256) - JVS(13170) = B(5952) -! JVS(13171) = Jac_FULL(2995,972) - JVS(13171) = B(20241) -! JVS(13172) = Jac_FULL(2995,2995) - JVS(13172) = -B(20242) -! JVS(13173) = Jac_FULL(2995,4245) - JVS(13173) = B(18622)+B(18624)+B(18626) -! JVS(13174) = Jac_FULL(2995,5250) - JVS(13174) = 0 -! JVS(13175) = Jac_FULL(2995,5252) - JVS(13175) = B(18623) -! JVS(13176) = Jac_FULL(2995,5255) - JVS(13176) = 0 -! JVS(13177) = Jac_FULL(2995,5256) - JVS(13177) = B(18625) -! JVS(13178) = Jac_FULL(2996,981) - JVS(13178) = B(10700) -! JVS(13179) = Jac_FULL(2996,2436) - JVS(13179) = B(10703) -! JVS(13180) = Jac_FULL(2996,2996) - JVS(13180) = -B(10706) -! JVS(13181) = Jac_FULL(2996,5127) - JVS(13181) = B(6898)+B(6900)+B(6902) -! JVS(13182) = Jac_FULL(2996,5250) - JVS(13182) = 0 -! JVS(13183) = Jac_FULL(2996,5252) - JVS(13183) = B(6899) -! JVS(13184) = Jac_FULL(2996,5255) - JVS(13184) = 0 -! JVS(13185) = Jac_FULL(2996,5256) - JVS(13185) = B(6901) -! JVS(13186) = Jac_FULL(2997,1371) - JVS(13186) = B(17056) -! JVS(13187) = Jac_FULL(2997,2997) - JVS(13187) = -B(17059) -! JVS(13188) = Jac_FULL(2997,3850) - JVS(13188) = B(14421)+B(14423)+B(14425) -! JVS(13189) = Jac_FULL(2997,5250) - JVS(13189) = 0 -! JVS(13190) = Jac_FULL(2997,5252) - JVS(13190) = B(14422) -! JVS(13191) = Jac_FULL(2997,5255) - JVS(13191) = 0 -! JVS(13192) = Jac_FULL(2997,5256) - JVS(13192) = B(14424) -! JVS(13193) = Jac_FULL(2998,2998) - JVS(13193) = -B(22225)-B(22227) -! JVS(13194) = Jac_FULL(2998,4026) - JVS(13194) = B(21377) -! JVS(13195) = Jac_FULL(2998,5250) - JVS(13195) = -B(22226) -! JVS(13196) = Jac_FULL(2998,5253) - JVS(13196) = B(21378) -! JVS(13197) = Jac_FULL(2999,2999) - JVS(13197) = -B(19698)-B(19699) -! JVS(13198) = Jac_FULL(2999,4802) - JVS(13198) = B(17815) -! JVS(13199) = Jac_FULL(2999,5250) - JVS(13199) = -B(19700) -! JVS(13200) = Jac_FULL(2999,5252) - JVS(13200) = B(17816) -! JVS(13201) = Jac_FULL(3000,1633) - JVS(13201) = B(19703) -! JVS(13202) = Jac_FULL(3000,2981) - JVS(13202) = B(19694) -! JVS(13203) = Jac_FULL(3000,2999) - JVS(13203) = B(19698) -! JVS(13204) = Jac_FULL(3000,3000) - JVS(13204) = -B(19701) -! JVS(13205) = Jac_FULL(3000,4802) - JVS(13205) = B(17817)+B(17819)+B(17821) -! JVS(13206) = Jac_FULL(3000,5250) - JVS(13206) = B(19704) -! JVS(13207) = Jac_FULL(3000,5252) - JVS(13207) = B(17818) -! JVS(13208) = Jac_FULL(3000,5255) - JVS(13208) = 0 -! JVS(13209) = Jac_FULL(3000,5256) - JVS(13209) = B(17820) -! JVS(13210) = Jac_FULL(3001,1322) - JVS(13210) = B(18127) -! JVS(13211) = Jac_FULL(3001,3001) - JVS(13211) = -B(18128) -! JVS(13212) = Jac_FULL(3001,4217) - JVS(13212) = B(15544)+B(15546)+B(15548) -! JVS(13213) = Jac_FULL(3001,5250) - JVS(13213) = 0 -! JVS(13214) = Jac_FULL(3001,5252) - JVS(13214) = B(15545) -! JVS(13215) = Jac_FULL(3001,5255) - JVS(13215) = 0 -! JVS(13216) = Jac_FULL(3001,5256) - JVS(13216) = B(15547) -! JVS(13217) = Jac_FULL(3002,3002) - JVS(13217) = -B(5093)-B(5094) -! JVS(13218) = Jac_FULL(3002,4879) - JVS(13218) = B(2235)+B(2237)+B(2240) -! JVS(13219) = Jac_FULL(3002,5252) - JVS(13219) = B(2236) -! JVS(13220) = Jac_FULL(3002,5256) - JVS(13220) = B(2238) -! JVS(13221) = Jac_FULL(3003,3003) - JVS(13221) = -B(4103)-B(4105) -! JVS(13222) = Jac_FULL(3003,5183) - JVS(13222) = B(1312) -! JVS(13223) = Jac_FULL(3003,5250) - JVS(13223) = -B(4104) -! JVS(13224) = Jac_FULL(3003,5253) - JVS(13224) = B(1313) -! JVS(13225) = Jac_FULL(3004,1358) - JVS(13225) = B(18611) -! JVS(13226) = Jac_FULL(3004,3004) - JVS(13226) = -B(18612) -! JVS(13227) = Jac_FULL(3004,4314) - JVS(13227) = B(16302)+B(16304)+B(16306) -! JVS(13228) = Jac_FULL(3004,5250) - JVS(13228) = 0 -! JVS(13229) = Jac_FULL(3004,5252) - JVS(13229) = B(16303) -! JVS(13230) = Jac_FULL(3004,5255) - JVS(13230) = 0 -! JVS(13231) = Jac_FULL(3004,5256) - JVS(13231) = B(16305) -! JVS(13232) = Jac_FULL(3005,3005) - JVS(13232) = -B(16410)-B(16412)-B(16413) -! JVS(13233) = Jac_FULL(3005,4946) - JVS(13233) = B(13377) -! JVS(13234) = Jac_FULL(3005,5250) - JVS(13234) = -B(16411) -! JVS(13235) = Jac_FULL(3005,5255) - JVS(13235) = B(13378) -! JVS(13236) = Jac_FULL(3006,3006) - JVS(13236) = -B(22489)-B(22491) -! JVS(13237) = Jac_FULL(3006,4371) - JVS(13237) = B(21875) -! JVS(13238) = Jac_FULL(3006,5250) - JVS(13238) = -B(22490) -! JVS(13239) = Jac_FULL(3006,5255) - JVS(13239) = B(21876) -! JVS(13240) = Jac_FULL(3007,3007) - JVS(13240) = -B(21226)-B(21227) -! JVS(13241) = Jac_FULL(3007,4521) - JVS(13241) = B(19766) -! JVS(13242) = Jac_FULL(3007,5250) - JVS(13242) = -B(21228) -! JVS(13243) = Jac_FULL(3007,5253) - JVS(13243) = B(19767) -! JVS(13244) = Jac_FULL(3008,3008) - JVS(13244) = -B(21651)-B(21653) -! JVS(13245) = Jac_FULL(3008,5004) - JVS(13245) = B(20604) -! JVS(13246) = Jac_FULL(3008,5250) - JVS(13246) = -B(21652) -! JVS(13247) = Jac_FULL(3008,5253) - JVS(13247) = B(20605) -! JVS(13248) = Jac_FULL(3009,807) - JVS(13248) = B(17875) -! JVS(13249) = Jac_FULL(3009,1136) - JVS(13249) = B(17868) -! JVS(13250) = Jac_FULL(3009,2185) - JVS(13250) = B(17871) -! JVS(13251) = Jac_FULL(3009,3009) - JVS(13251) = -B(17874) -! JVS(13252) = Jac_FULL(3009,4716) - JVS(13252) = B(15281)+B(15283)+B(15285) -! JVS(13253) = Jac_FULL(3009,5250) - JVS(13253) = 0 -! JVS(13254) = Jac_FULL(3009,5252) - JVS(13254) = B(15282) -! JVS(13255) = Jac_FULL(3009,5255) - JVS(13255) = 0 -! JVS(13256) = Jac_FULL(3009,5256) - JVS(13256) = B(15284) -! JVS(13257) = Jac_FULL(3010,3010) - JVS(13257) = -B(22957)-B(22959) -! JVS(13258) = Jac_FULL(3010,4955) - JVS(13258) = B(22540) -! JVS(13259) = Jac_FULL(3010,5250) - JVS(13259) = -B(22958) -! JVS(13260) = Jac_FULL(3010,5253) - JVS(13260) = B(22541) -! JVS(13261) = Jac_FULL(3011,3011) - JVS(13261) = -B(20972)-B(20974) -! JVS(13262) = Jac_FULL(3011,5131) - JVS(13262) = B(19408) -! JVS(13263) = Jac_FULL(3011,5250) - JVS(13263) = -B(20973) -! JVS(13264) = Jac_FULL(3011,5253) - JVS(13264) = B(19409) -! JVS(13265) = Jac_FULL(3012,3012) - JVS(13265) = -B(18421)-B(18423) -! JVS(13266) = Jac_FULL(3012,4792) - JVS(13266) = B(16022) -! JVS(13267) = Jac_FULL(3012,5250) - JVS(13267) = -B(18422) -! JVS(13268) = Jac_FULL(3012,5253) - JVS(13268) = B(16023) -! JVS(13269) = Jac_FULL(3013,554) - JVS(13269) = B(17643) -! JVS(13270) = Jac_FULL(3013,1213) - JVS(13270) = B(17631) -! JVS(13271) = Jac_FULL(3013,2256) - JVS(13271) = B(17634) -! JVS(13272) = Jac_FULL(3013,3013) - JVS(13272) = -B(17637) -! JVS(13273) = Jac_FULL(3013,4128) - JVS(13273) = B(15072)+B(15074)+B(15077) -! JVS(13274) = Jac_FULL(3013,5250) - JVS(13274) = 0 -! JVS(13275) = Jac_FULL(3013,5252) - JVS(13275) = B(15073) -! JVS(13276) = Jac_FULL(3013,5255) - JVS(13276) = 0 -! JVS(13277) = Jac_FULL(3013,5256) - JVS(13277) = B(15075) -! JVS(13278) = Jac_FULL(3014,3014) - JVS(13278) = -B(22272)-B(22274) -! JVS(13279) = Jac_FULL(3014,4203) - JVS(13279) = B(21491) -! JVS(13280) = Jac_FULL(3014,5250) - JVS(13280) = -B(22273) -! JVS(13281) = Jac_FULL(3014,5253) - JVS(13281) = B(21492) -! JVS(13282) = Jac_FULL(3015,3015) - JVS(13282) = -B(18027)-B(18029) -! JVS(13283) = Jac_FULL(3015,4360) - JVS(13283) = B(15405) -! JVS(13284) = Jac_FULL(3015,5250) - JVS(13284) = -B(18028) -! JVS(13285) = Jac_FULL(3015,5252) - JVS(13285) = B(15406) -! JVS(13286) = Jac_FULL(3016,1051) - JVS(13286) = B(18514) -! JVS(13287) = Jac_FULL(3016,3016) - JVS(13287) = -B(18515) -! JVS(13288) = Jac_FULL(3016,4212) - JVS(13288) = B(16148)+B(16150)+B(16152) -! JVS(13289) = Jac_FULL(3016,5250) - JVS(13289) = 0 -! JVS(13290) = Jac_FULL(3016,5252) - JVS(13290) = B(16149) -! JVS(13291) = Jac_FULL(3016,5255) - JVS(13291) = 0 -! JVS(13292) = Jac_FULL(3016,5256) - JVS(13292) = B(16151) -! JVS(13293) = Jac_FULL(3017,3017) - JVS(13293) = -B(14398)-B(14400) -! JVS(13294) = Jac_FULL(3017,4301) - JVS(13294) = B(11181) -! JVS(13295) = Jac_FULL(3017,5250) - JVS(13295) = -B(14399) -! JVS(13296) = Jac_FULL(3017,5253) - JVS(13296) = B(11182) -! JVS(13297) = Jac_FULL(3018,3018) - JVS(13297) = -B(3921)-B(3923)-B(3925) -! JVS(13298) = Jac_FULL(3018,4814) - JVS(13298) = B(1161) -! JVS(13299) = Jac_FULL(3018,5250) - JVS(13299) = -B(3922)-B(3924) -! JVS(13300) = Jac_FULL(3018,5255) - JVS(13300) = B(1162) -! JVS(13301) = Jac_FULL(3019,3019) - JVS(13301) = -B(21482)-B(21484) -! JVS(13302) = Jac_FULL(3019,4154) - JVS(13302) = B(20230) -! JVS(13303) = Jac_FULL(3019,5250) - JVS(13303) = -B(21483) -! JVS(13304) = Jac_FULL(3019,5253) - JVS(13304) = B(20231) -! JVS(13305) = Jac_FULL(3020,3020) - JVS(13305) = -B(11569)-B(11571) -! JVS(13306) = Jac_FULL(3020,4553) - JVS(13306) = B(7789) -! JVS(13307) = Jac_FULL(3020,5250) - JVS(13307) = -B(11570) -! JVS(13308) = Jac_FULL(3020,5253) - JVS(13308) = B(7790) -! JVS(13309) = Jac_FULL(3021,3021) - JVS(13309) = -B(11575)-B(11577) -! JVS(13310) = Jac_FULL(3021,5158) - JVS(13310) = B(7800) -! JVS(13311) = Jac_FULL(3021,5250) - JVS(13311) = -B(11576) -! JVS(13312) = Jac_FULL(3021,5253) - JVS(13312) = B(7801) -! JVS(13313) = Jac_FULL(3022,3022) - JVS(13313) = -B(8730)-B(8732)-B(8733) -! JVS(13314) = Jac_FULL(3022,4513) - JVS(13314) = B(5249) -! JVS(13315) = Jac_FULL(3022,5250) - JVS(13315) = -B(8731) -! JVS(13316) = Jac_FULL(3022,5255) - JVS(13316) = B(5250) -! JVS(13317) = Jac_FULL(3023,3023) - JVS(13317) = -B(11991)-B(11992) -! JVS(13318) = Jac_FULL(3023,4994) - JVS(13318) = B(8243) -! JVS(13319) = Jac_FULL(3023,5250) - JVS(13319) = -B(11993) -! JVS(13320) = Jac_FULL(3023,5253) - JVS(13320) = B(8244) -! JVS(13321) = Jac_FULL(3024,3024) - JVS(13321) = -B(11885)-B(11886) -! JVS(13322) = Jac_FULL(3024,4515) - JVS(13322) = B(8142) -! JVS(13323) = Jac_FULL(3024,5250) - JVS(13323) = -B(11887) -! JVS(13324) = Jac_FULL(3024,5253) - JVS(13324) = B(8143) -! JVS(13325) = Jac_FULL(3025,3025) - JVS(13325) = -B(17678)-B(17679) -! JVS(13326) = Jac_FULL(3025,4665) - JVS(13326) = B(15103) -! JVS(13327) = Jac_FULL(3025,5250) - JVS(13327) = -B(17680) -! JVS(13328) = Jac_FULL(3025,5253) - JVS(13328) = B(15104) -! JVS(13329) = Jac_FULL(3026,3026) - JVS(13329) = -B(11945)-B(11946) -! JVS(13330) = Jac_FULL(3026,4469) - JVS(13330) = B(8194) -! JVS(13331) = Jac_FULL(3026,5250) - JVS(13331) = -B(11947) -! JVS(13332) = Jac_FULL(3026,5253) - JVS(13332) = B(8195) -! JVS(13333) = Jac_FULL(3027,1717) - JVS(13333) = B(9518) -! JVS(13334) = Jac_FULL(3027,2709) - JVS(13334) = B(9516) -! JVS(13335) = Jac_FULL(3027,3027) - JVS(13335) = -B(9517) -! JVS(13336) = Jac_FULL(3027,3815) - JVS(13336) = B(5867)+B(5869)+B(5871) -! JVS(13337) = Jac_FULL(3027,5250) - JVS(13337) = B(9519) -! JVS(13338) = Jac_FULL(3027,5252) - JVS(13338) = B(5868) -! JVS(13339) = Jac_FULL(3027,5255) - JVS(13339) = 0 -! JVS(13340) = Jac_FULL(3027,5256) - JVS(13340) = B(5870) -! JVS(13341) = Jac_FULL(3028,974) - JVS(13341) = B(16131) -! JVS(13342) = Jac_FULL(3028,3028) - JVS(13342) = -B(16132) -! JVS(13343) = Jac_FULL(3028,3953) - JVS(13343) = B(13047)+B(13049)+B(13051) -! JVS(13344) = Jac_FULL(3028,5250) - JVS(13344) = 0 -! JVS(13345) = Jac_FULL(3028,5252) - JVS(13345) = B(13048) -! JVS(13346) = Jac_FULL(3028,5255) - JVS(13346) = 0 -! JVS(13347) = Jac_FULL(3028,5256) - JVS(13347) = B(13050) -! JVS(13348) = Jac_FULL(3029,3029) - JVS(13348) = -B(23472)-B(23474) -! JVS(13349) = Jac_FULL(3029,4839) - JVS(13349) = B(23096) -! JVS(13350) = Jac_FULL(3029,5250) - JVS(13350) = -B(23473) -! JVS(13351) = Jac_FULL(3029,5253) - JVS(13351) = B(23097) -! JVS(13352) = Jac_FULL(3030,897) - JVS(13352) = B(7316) -! JVS(13353) = Jac_FULL(3030,3030) - JVS(13353) = -B(7317) -! JVS(13354) = Jac_FULL(3030,4097) - JVS(13354) = B(3461)+B(3463)+B(3466) -! JVS(13355) = Jac_FULL(3030,5250) - JVS(13355) = 0 -! JVS(13356) = Jac_FULL(3030,5252) - JVS(13356) = B(3462) -! JVS(13357) = Jac_FULL(3030,5255) - JVS(13357) = 0 -! JVS(13358) = Jac_FULL(3030,5256) - JVS(13358) = B(3464) -! JVS(13359) = Jac_FULL(3031,3031) - JVS(13359) = -B(14078)-B(14079)-B(14080) -! JVS(13360) = Jac_FULL(3031,5117) - JVS(13360) = B(10875) -! JVS(13361) = Jac_FULL(3031,5250) - JVS(13361) = -B(14081) -! JVS(13362) = Jac_FULL(3031,5255) - JVS(13362) = B(10876) -! JVS(13363) = Jac_FULL(3032,1885) - JVS(13363) = B(4435) -! JVS(13364) = Jac_FULL(3032,2337) - JVS(13364) = B(4440) -! JVS(13365) = Jac_FULL(3032,3032) - JVS(13365) = -B(4443)-B(4444) -! JVS(13366) = Jac_FULL(3032,5147) - JVS(13366) = B(1666)+B(1668)+B(1671) -! JVS(13367) = Jac_FULL(3032,5250) - JVS(13367) = 0 -! JVS(13368) = Jac_FULL(3032,5252) - JVS(13368) = B(1667) -! JVS(13369) = Jac_FULL(3032,5255) - JVS(13369) = 0 -! JVS(13370) = Jac_FULL(3032,5256) - JVS(13370) = B(1669) -! JVS(13371) = Jac_FULL(3033,3033) - JVS(13371) = -B(13619)-B(13620) -! JVS(13372) = Jac_FULL(3033,4436) - JVS(13372) = B(10428) -! JVS(13373) = Jac_FULL(3033,5250) - JVS(13373) = -B(13621) -! JVS(13374) = Jac_FULL(3033,5255) - JVS(13374) = B(10429) -! JVS(13375) = Jac_FULL(3034,3034) - JVS(13375) = -B(11150)-B(11152) -! JVS(13376) = Jac_FULL(3034,3982) - JVS(13376) = B(7355) -! JVS(13377) = Jac_FULL(3034,5250) - JVS(13377) = -B(11151) -! JVS(13378) = Jac_FULL(3034,5252) - JVS(13378) = B(7356) -! JVS(13379) = Jac_FULL(3035,3035) - JVS(13379) = -B(7045)-B(7047)-B(7049)-B(7050) -! JVS(13380) = Jac_FULL(3035,4858) - JVS(13380) = B(3247) -! JVS(13381) = Jac_FULL(3035,5250) - JVS(13381) = -B(7046)-B(7048) -! JVS(13382) = Jac_FULL(3035,5255) - JVS(13382) = B(3248) -! JVS(13383) = Jac_FULL(3036,835) - JVS(13383) = B(19924) -! JVS(13384) = Jac_FULL(3036,3036) - JVS(13384) = -B(19925) -! JVS(13385) = Jac_FULL(3036,4306) - JVS(13385) = B(18113)+B(18115)+B(18117) -! JVS(13386) = Jac_FULL(3036,5250) - JVS(13386) = 0 -! JVS(13387) = Jac_FULL(3036,5252) - JVS(13387) = B(18114) -! JVS(13388) = Jac_FULL(3036,5255) - JVS(13388) = 0 -! JVS(13389) = Jac_FULL(3036,5256) - JVS(13389) = B(18116) -! JVS(13390) = Jac_FULL(3037,1993) - JVS(13390) = B(14633) -! JVS(13391) = Jac_FULL(3037,3037) - JVS(13391) = -B(14636) -! JVS(13392) = Jac_FULL(3037,4541) - JVS(13392) = B(11323)+B(11325)+B(11327) -! JVS(13393) = Jac_FULL(3037,5250) - JVS(13393) = 0 -! JVS(13394) = Jac_FULL(3037,5252) - JVS(13394) = B(11324) -! JVS(13395) = Jac_FULL(3037,5255) - JVS(13395) = 0 -! JVS(13396) = Jac_FULL(3037,5256) - JVS(13396) = B(11326) -! JVS(13397) = Jac_FULL(3038,3038) - JVS(13397) = -B(11924)-B(11925)-B(11927) -! JVS(13398) = Jac_FULL(3038,3854) - JVS(13398) = B(8177) -! JVS(13399) = Jac_FULL(3038,5250) - JVS(13399) = -B(11926)-B(11928) -! JVS(13400) = Jac_FULL(3038,5255) - JVS(13400) = B(8178) -! JVS(13401) = Jac_FULL(3039,1314) - JVS(13401) = B(14625) -! JVS(13402) = Jac_FULL(3039,3039) - JVS(13402) = -B(14628) -! JVS(13403) = Jac_FULL(3039,3883) - JVS(13403) = B(11302)+B(11304)+B(11306) -! JVS(13404) = Jac_FULL(3039,5250) - JVS(13404) = 0 -! JVS(13405) = Jac_FULL(3039,5252) - JVS(13405) = B(11303) -! JVS(13406) = Jac_FULL(3039,5255) - JVS(13406) = 0 -! JVS(13407) = Jac_FULL(3039,5256) - JVS(13407) = B(11305) -! JVS(13408) = Jac_FULL(3040,3040) - JVS(13408) = -B(21313)-B(21315) -! JVS(13409) = Jac_FULL(3040,4221) - JVS(13409) = B(19913) -! JVS(13410) = Jac_FULL(3040,5250) - JVS(13410) = -B(21314) -! JVS(13411) = Jac_FULL(3040,5253) - JVS(13411) = B(19914) -! JVS(13412) = Jac_FULL(3041,559) - JVS(13412) = B(23804) -! JVS(13413) = Jac_FULL(3041,1538) - JVS(13413) = B(23800) -! JVS(13414) = Jac_FULL(3041,3041) - JVS(13414) = -B(23801) -! JVS(13415) = Jac_FULL(3041,4346) - JVS(13415) = B(23584)+B(23586)+B(23589) -! JVS(13416) = Jac_FULL(3041,5250) - JVS(13416) = 0 -! JVS(13417) = Jac_FULL(3041,5252) - JVS(13417) = B(23585) -! JVS(13418) = Jac_FULL(3041,5255) - JVS(13418) = 0 -! JVS(13419) = Jac_FULL(3041,5256) - JVS(13419) = B(23587) -! JVS(13420) = Jac_FULL(3042,3042) - JVS(13420) = -B(20387)-B(20389) -! JVS(13421) = Jac_FULL(3042,4229) - JVS(13421) = B(18812) -! JVS(13422) = Jac_FULL(3042,5250) - JVS(13422) = -B(20388) -! JVS(13423) = Jac_FULL(3042,5253) - JVS(13423) = B(18813) -! JVS(13424) = Jac_FULL(3043,3043) - JVS(13424) = -B(11401)-B(11403)-B(11404) -! JVS(13425) = Jac_FULL(3043,4746) - JVS(13425) = B(7546) -! JVS(13426) = Jac_FULL(3043,5250) - JVS(13426) = -B(11402) -! JVS(13427) = Jac_FULL(3043,5255) - JVS(13427) = B(7547) -! JVS(13428) = Jac_FULL(3044,3044) - JVS(13428) = -B(4363)-B(4365) -! JVS(13429) = Jac_FULL(3044,4353) - JVS(13429) = B(1594) -! JVS(13430) = Jac_FULL(3044,4695) - JVS(13430) = B(1586) -! JVS(13431) = Jac_FULL(3044,5250) - JVS(13431) = -B(4364) -! JVS(13432) = Jac_FULL(3045,3045) - JVS(13432) = -B(20393)-B(20395) -! JVS(13433) = Jac_FULL(3045,4228) - JVS(13433) = B(18823) -! JVS(13434) = Jac_FULL(3045,5250) - JVS(13434) = -B(20394) -! JVS(13435) = Jac_FULL(3045,5253) - JVS(13435) = B(18824) -! JVS(13436) = Jac_FULL(3046,3046) - JVS(13436) = -B(11775)-B(11776)-B(11778) -! JVS(13437) = Jac_FULL(3046,3961) - JVS(13437) = B(8051) -! JVS(13438) = Jac_FULL(3046,5250) - JVS(13438) = -B(11777)-B(11779) -! JVS(13439) = Jac_FULL(3046,5255) - JVS(13439) = B(8052) -! JVS(13440) = Jac_FULL(3047,3047) - JVS(13440) = -B(7751)-B(7753) -! JVS(13441) = Jac_FULL(3047,5232) - JVS(13441) = B(3990) -! JVS(13442) = Jac_FULL(3047,5250) - JVS(13442) = -B(7752) -! JVS(13443) = Jac_FULL(3047,5253) - JVS(13443) = B(3991) -! JVS(13444) = Jac_FULL(3048,873) - JVS(13444) = B(10678) -! JVS(13445) = Jac_FULL(3048,2834) - JVS(13445) = B(10681) -! JVS(13446) = Jac_FULL(3048,3048) - JVS(13446) = -B(10682) -! JVS(13447) = Jac_FULL(3048,3980) - JVS(13447) = B(6858)+B(6860)+B(6862) -! JVS(13448) = Jac_FULL(3048,5250) - JVS(13448) = 0 -! JVS(13449) = Jac_FULL(3048,5252) - JVS(13449) = B(6859) -! JVS(13450) = Jac_FULL(3048,5255) - JVS(13450) = 0 -! JVS(13451) = Jac_FULL(3048,5256) - JVS(13451) = B(6861) -! JVS(13452) = Jac_FULL(3049,3049) - JVS(13452) = -B(14015)-B(14017)-B(14019) -! JVS(13453) = Jac_FULL(3049,4730) - JVS(13453) = B(10821) -! JVS(13454) = Jac_FULL(3049,5250) - JVS(13454) = -B(14016)-B(14018) -! JVS(13455) = Jac_FULL(3049,5255) - JVS(13455) = B(10822) -! JVS(13456) = Jac_FULL(3050,1613) - JVS(13456) = B(9287) -! JVS(13457) = Jac_FULL(3050,2520) - JVS(13457) = B(9285) -! JVS(13458) = Jac_FULL(3050,3050) - JVS(13458) = -B(9286) -! JVS(13459) = Jac_FULL(3050,3813) - JVS(13459) = B(5688)+B(5690)+B(5692) -! JVS(13460) = Jac_FULL(3050,5250) - JVS(13460) = B(9288) -! JVS(13461) = Jac_FULL(3050,5252) - JVS(13461) = B(5689) -! JVS(13462) = Jac_FULL(3050,5255) - JVS(13462) = 0 -! JVS(13463) = Jac_FULL(3050,5256) - JVS(13463) = B(5691) -! JVS(13464) = Jac_FULL(3051,3051) - JVS(13464) = -B(12269)-B(12271) -! JVS(13465) = Jac_FULL(3051,4215) - JVS(13465) = B(8591) -! JVS(13466) = Jac_FULL(3051,5250) - JVS(13466) = -B(12270) -! JVS(13467) = Jac_FULL(3051,5253) - JVS(13467) = B(8592) -! JVS(13468) = Jac_FULL(3052,3052) - JVS(13468) = -B(21516)-B(21518) -! JVS(13469) = Jac_FULL(3052,4299) - JVS(13469) = B(20274) -! JVS(13470) = Jac_FULL(3052,5250) - JVS(13470) = -B(21517) -! JVS(13471) = Jac_FULL(3052,5253) - JVS(13471) = B(20275) -! JVS(13472) = Jac_FULL(3053,3053) - JVS(13472) = -B(20593)-B(20595) -! JVS(13473) = Jac_FULL(3053,4631) - JVS(13473) = B(19014) -! JVS(13474) = Jac_FULL(3053,5250) - JVS(13474) = -B(20594) -! JVS(13475) = Jac_FULL(3053,5253) - JVS(13475) = B(19015) -! JVS(13476) = Jac_FULL(3054,1430) - JVS(13476) = B(11558) -! JVS(13477) = Jac_FULL(3054,3054) - JVS(13477) = -B(11559) -! JVS(13478) = Jac_FULL(3054,3979) - JVS(13478) = B(7739)+B(7741)+B(7743) -! JVS(13479) = Jac_FULL(3054,5250) - JVS(13479) = 0 -! JVS(13480) = Jac_FULL(3054,5252) - JVS(13480) = B(7740) -! JVS(13481) = Jac_FULL(3054,5255) - JVS(13481) = 0 -! JVS(13482) = Jac_FULL(3054,5256) - JVS(13482) = B(7742) -! JVS(13483) = Jac_FULL(3055,3055) - JVS(13483) = -B(14211)-B(14213)-B(14215) -! JVS(13484) = Jac_FULL(3055,4765) - JVS(13484) = B(11021) -! JVS(13485) = Jac_FULL(3055,5250) - JVS(13485) = -B(14212)-B(14214) -! JVS(13486) = Jac_FULL(3055,5255) - JVS(13486) = B(11022) -! JVS(13487) = Jac_FULL(3056,3056) - JVS(13487) = -B(11592)-B(11594) -! JVS(13488) = Jac_FULL(3056,4915) - JVS(13488) = B(7827) -! JVS(13489) = Jac_FULL(3056,5250) - JVS(13489) = -B(11593) -! JVS(13490) = Jac_FULL(3056,5253) - JVS(13490) = B(7828) -! JVS(13491) = Jac_FULL(3057,1659) - JVS(13491) = B(17615) -! JVS(13492) = Jac_FULL(3057,2730) - JVS(13492) = B(17606) -! JVS(13493) = Jac_FULL(3057,3057) - JVS(13493) = -B(17611)-B(17612) -! JVS(13494) = Jac_FULL(3057,4911) - JVS(13494) = B(15040) -! JVS(13495) = Jac_FULL(3057,5250) - JVS(13495) = B(17607)-B(17613)+B(17616) -! JVS(13496) = Jac_FULL(3057,5255) - JVS(13496) = 0 -! JVS(13497) = Jac_FULL(3058,1338) - JVS(13497) = B(22195) -! JVS(13498) = Jac_FULL(3058,3058) - JVS(13498) = -B(22198) -! JVS(13499) = Jac_FULL(3058,4429) - JVS(13499) = B(21270)+B(21272)+B(21274) -! JVS(13500) = Jac_FULL(3058,5250) - JVS(13500) = 0 -! JVS(13501) = Jac_FULL(3058,5252) - JVS(13501) = B(21271) -! JVS(13502) = Jac_FULL(3058,5255) - JVS(13502) = 0 -! JVS(13503) = Jac_FULL(3058,5256) - JVS(13503) = B(21273) -! JVS(13504) = Jac_FULL(3059,3059) - JVS(13504) = -B(11665)-B(11667) -! JVS(13505) = Jac_FULL(3059,5155) - JVS(13505) = B(7930) -! JVS(13506) = Jac_FULL(3059,5250) - JVS(13506) = -B(11666) -! JVS(13507) = Jac_FULL(3059,5253) - JVS(13507) = B(7931) -! JVS(13508) = Jac_FULL(3060,3060) - JVS(13508) = -B(8860)-B(8862) -! JVS(13509) = Jac_FULL(3060,4626) - JVS(13509) = B(5353) -! JVS(13510) = Jac_FULL(3060,5250) - JVS(13510) = -B(8861) -! JVS(13511) = Jac_FULL(3060,5253) - JVS(13511) = B(5354) -! JVS(13512) = Jac_FULL(3061,3061) - JVS(13512) = -B(22247)-B(22249) -! JVS(13513) = Jac_FULL(3061,4744) - JVS(13513) = B(21436) -! JVS(13514) = Jac_FULL(3061,5250) - JVS(13514) = -B(22248) -! JVS(13515) = Jac_FULL(3061,5253) - JVS(13515) = B(21437) -! JVS(13516) = Jac_FULL(3062,858) - JVS(13516) = B(23886) -! JVS(13517) = Jac_FULL(3062,3062) - JVS(13517) = -B(23887) -! JVS(13518) = Jac_FULL(3062,4115) - JVS(13518) = B(23713)+B(23715)+B(23717) -! JVS(13519) = Jac_FULL(3062,5250) - JVS(13519) = 0 -! JVS(13520) = Jac_FULL(3062,5252) - JVS(13520) = B(23714) -! JVS(13521) = Jac_FULL(3062,5255) - JVS(13521) = 0 -! JVS(13522) = Jac_FULL(3062,5256) - JVS(13522) = B(23716) -! JVS(13523) = Jac_FULL(3063,3063) - JVS(13523) = -B(21409)-B(21411) -! JVS(13524) = Jac_FULL(3063,4404) - JVS(13524) = B(20093) -! JVS(13525) = Jac_FULL(3063,5250) - JVS(13525) = -B(21410) -! JVS(13526) = Jac_FULL(3063,5253) - JVS(13526) = B(20094) -! JVS(13527) = Jac_FULL(3064,2392) - JVS(13527) = B(16556) -! JVS(13528) = Jac_FULL(3064,3064) - JVS(13528) = -B(16560) -! JVS(13529) = Jac_FULL(3064,5035) - JVS(13529) = B(13711)+B(13713)+B(13715) -! JVS(13530) = Jac_FULL(3064,5250) - JVS(13530) = 0 -! JVS(13531) = Jac_FULL(3064,5252) - JVS(13531) = B(13712) -! JVS(13532) = Jac_FULL(3064,5255) - JVS(13532) = 0 -! JVS(13533) = Jac_FULL(3064,5256) - JVS(13533) = B(13714) -! JVS(13534) = Jac_FULL(3065,1101) - JVS(13534) = B(18677) -! JVS(13535) = Jac_FULL(3065,3065) - JVS(13535) = -B(18678) -! JVS(13536) = Jac_FULL(3065,4297) - JVS(13536) = B(16393)+B(16395)+B(16397) -! JVS(13537) = Jac_FULL(3065,5250) - JVS(13537) = 0 -! JVS(13538) = Jac_FULL(3065,5252) - JVS(13538) = B(16394) -! JVS(13539) = Jac_FULL(3065,5255) - JVS(13539) = 0 -! JVS(13540) = Jac_FULL(3065,5256) - JVS(13540) = B(16396) -! JVS(13541) = Jac_FULL(3066,1313) - JVS(13541) = B(7225) -! JVS(13542) = Jac_FULL(3066,2215) - JVS(13542) = B(7228) -! JVS(13543) = Jac_FULL(3066,3066) - JVS(13543) = -B(7229)-B(7230) -! JVS(13544) = Jac_FULL(3066,5081) - JVS(13544) = B(3400)+B(3402)+B(3405) -! JVS(13545) = Jac_FULL(3066,5250) - JVS(13545) = 0 -! JVS(13546) = Jac_FULL(3066,5252) - JVS(13546) = B(3401) -! JVS(13547) = Jac_FULL(3066,5255) - JVS(13547) = 0 -! JVS(13548) = Jac_FULL(3066,5256) - JVS(13548) = B(3403) -! JVS(13549) = Jac_FULL(3067,1044) - JVS(13549) = B(23345) -! JVS(13550) = Jac_FULL(3067,3067) - JVS(13550) = -B(23346) -! JVS(13551) = Jac_FULL(3067,4486) - JVS(13551) = B(22929)+B(22931)+B(22933) -! JVS(13552) = Jac_FULL(3067,5250) - JVS(13552) = 0 -! JVS(13553) = Jac_FULL(3067,5252) - JVS(13553) = B(22930) -! JVS(13554) = Jac_FULL(3067,5255) - JVS(13554) = 0 -! JVS(13555) = Jac_FULL(3067,5256) - JVS(13555) = B(22932) -! JVS(13556) = Jac_FULL(3068,3068) - JVS(13556) = -B(7189)-B(7191) -! JVS(13557) = Jac_FULL(3068,5032) - JVS(13557) = B(3368) -! JVS(13558) = Jac_FULL(3068,5250) - JVS(13558) = -B(7190) -! JVS(13559) = Jac_FULL(3068,5252) - JVS(13559) = B(3369) -! JVS(13560) = Jac_FULL(3069,1153) - JVS(13560) = B(7188) -! JVS(13561) = Jac_FULL(3069,3068) - JVS(13561) = B(7191) -! JVS(13562) = Jac_FULL(3069,3069) - JVS(13562) = -B(7192)-B(7193) -! JVS(13563) = Jac_FULL(3069,5032) - JVS(13563) = B(3370)+B(3372)+B(3374) -! JVS(13564) = Jac_FULL(3069,5250) - JVS(13564) = 0 -! JVS(13565) = Jac_FULL(3069,5252) - JVS(13565) = B(3371) -! JVS(13566) = Jac_FULL(3069,5255) - JVS(13566) = 0 -! JVS(13567) = Jac_FULL(3069,5256) - JVS(13567) = B(3373) -! JVS(13568) = Jac_FULL(3070,3070) - JVS(13568) = -B(21239)-B(21240) -! JVS(13569) = Jac_FULL(3070,4430) - JVS(13569) = B(19788) -! JVS(13570) = Jac_FULL(3070,5250) - JVS(13570) = -B(21241) -! JVS(13571) = Jac_FULL(3070,5253) - JVS(13571) = B(19789) -! JVS(13572) = Jac_FULL(3071,1392) - JVS(13572) = B(22292) -! JVS(13573) = Jac_FULL(3071,3071) - JVS(13573) = -B(22293) -! JVS(13574) = Jac_FULL(3071,4751) - JVS(13574) = B(21547)+B(21549)+B(21551) -! JVS(13575) = Jac_FULL(3071,5250) - JVS(13575) = 0 -! JVS(13576) = Jac_FULL(3071,5252) - JVS(13576) = B(21548) -! JVS(13577) = Jac_FULL(3071,5255) - JVS(13577) = 0 -! JVS(13578) = Jac_FULL(3071,5256) - JVS(13578) = B(21550) -! JVS(13579) = Jac_FULL(3072,1377) - JVS(13579) = B(6596) -! JVS(13580) = Jac_FULL(3072,3072) - JVS(13580) = -B(6597) -! JVS(13581) = Jac_FULL(3072,3987) - JVS(13581) = B(3002)+B(3004)+B(3006) -! JVS(13582) = Jac_FULL(3072,5250) - JVS(13582) = 0 -! JVS(13583) = Jac_FULL(3072,5252) - JVS(13583) = B(3003) -! JVS(13584) = Jac_FULL(3072,5255) - JVS(13584) = 0 -! JVS(13585) = Jac_FULL(3072,5256) - JVS(13585) = B(3005) -! JVS(13586) = Jac_FULL(3073,1137) - JVS(13586) = B(22183) -! JVS(13587) = Jac_FULL(3073,3073) - JVS(13587) = -B(22186) -! JVS(13588) = Jac_FULL(3073,4461) - JVS(13588) = B(21231)+B(21233)+B(21235) -! JVS(13589) = Jac_FULL(3073,5250) - JVS(13589) = 0 -! JVS(13590) = Jac_FULL(3073,5252) - JVS(13590) = B(21232) -! JVS(13591) = Jac_FULL(3073,5255) - JVS(13591) = 0 -! JVS(13592) = Jac_FULL(3073,5256) - JVS(13592) = B(21234) -! JVS(13593) = Jac_FULL(3074,885) - JVS(13593) = B(14549) -! JVS(13594) = Jac_FULL(3074,3074) - JVS(13594) = -B(14550) -! JVS(13595) = Jac_FULL(3074,3988) - JVS(13595) = B(11277)+B(11279)+B(11281) -! JVS(13596) = Jac_FULL(3074,5250) - JVS(13596) = 0 -! JVS(13597) = Jac_FULL(3074,5252) - JVS(13597) = B(11278) -! JVS(13598) = Jac_FULL(3074,5255) - JVS(13598) = 0 -! JVS(13599) = Jac_FULL(3074,5256) - JVS(13599) = B(11280) -! JVS(13600) = Jac_FULL(3075,3075) - JVS(13600) = -B(21320)-B(21322) -! JVS(13601) = Jac_FULL(3075,4472) - JVS(13601) = B(19934) -! JVS(13602) = Jac_FULL(3075,5250) - JVS(13602) = -B(21321) -! JVS(13603) = Jac_FULL(3075,5253) - JVS(13603) = B(19935) -! JVS(13604) = Jac_FULL(3076,3076) - JVS(13604) = -B(4458)-B(4459) -! JVS(13605) = Jac_FULL(3076,5078) - JVS(13605) = B(1686) -! JVS(13606) = Jac_FULL(3076,5250) - JVS(13606) = -B(4460) -! JVS(13607) = Jac_FULL(3076,5252) - JVS(13607) = B(1687) -! JVS(13608) = Jac_FULL(3077,3077) - JVS(13608) = -B(4847)-B(4849) -! JVS(13609) = Jac_FULL(3077,3942) - JVS(13609) = B(4846) -! JVS(13610) = Jac_FULL(3077,4579) - JVS(13610) = B(2027) -! JVS(13611) = Jac_FULL(3077,5250) - JVS(13611) = -B(4848) -! JVS(13612) = Jac_FULL(3078,3078) - JVS(13612) = -B(19665)-B(19666)-B(19667) -! JVS(13613) = Jac_FULL(3078,4584) - JVS(13613) = B(17769) -! JVS(13614) = Jac_FULL(3078,5250) - JVS(13614) = -B(19668) -! JVS(13615) = Jac_FULL(3078,5255) - JVS(13615) = B(17770) -! JVS(13616) = Jac_FULL(3079,1779) - JVS(13616) = B(21131) -! JVS(13617) = Jac_FULL(3079,3079) - JVS(13617) = -B(21138) -! JVS(13618) = Jac_FULL(3079,4778) - JVS(13618) = B(19600)+B(19602)+B(19606) -! JVS(13619) = Jac_FULL(3079,5250) - JVS(13619) = 0 -! JVS(13620) = Jac_FULL(3079,5252) - JVS(13620) = B(19601) -! JVS(13621) = Jac_FULL(3079,5255) - JVS(13621) = 0 -! JVS(13622) = Jac_FULL(3079,5256) - JVS(13622) = B(19603) -! JVS(13623) = Jac_FULL(3080,70) - JVS(13623) = B(13884) -! JVS(13624) = Jac_FULL(3080,2236) - JVS(13624) = B(13877) -! JVS(13625) = Jac_FULL(3080,3080) - JVS(13625) = -B(13883) -! JVS(13626) = Jac_FULL(3080,4894) - JVS(13626) = B(10644)+B(10646)+B(10648) -! JVS(13627) = Jac_FULL(3080,5250) - JVS(13627) = B(13885) -! JVS(13628) = Jac_FULL(3080,5252) - JVS(13628) = B(10645) -! JVS(13629) = Jac_FULL(3080,5255) - JVS(13629) = 0 -! JVS(13630) = Jac_FULL(3080,5256) - JVS(13630) = B(10647) -! JVS(13631) = Jac_FULL(3081,3081) - JVS(13631) = -B(16949)-B(16951) -! JVS(13632) = Jac_FULL(3081,4173) - JVS(13632) = B(14342) -! JVS(13633) = Jac_FULL(3081,5250) - JVS(13633) = -B(16950) -! JVS(13634) = Jac_FULL(3081,5252) - JVS(13634) = B(14343) -! JVS(13635) = Jac_FULL(3082,523) - JVS(13635) = B(6118) -! JVS(13636) = Jac_FULL(3082,1310) - JVS(13636) = B(6110) -! JVS(13637) = Jac_FULL(3082,2372) - JVS(13637) = B(6113) -! JVS(13638) = Jac_FULL(3082,3082) - JVS(13638) = -B(6120)-B(6122) -! JVS(13639) = Jac_FULL(3082,4055) - JVS(13639) = B(2782) -! JVS(13640) = Jac_FULL(3082,5250) - JVS(13640) = B(6111)+B(6114)+B(6119)-B(6121) -! JVS(13641) = Jac_FULL(3082,5252) - JVS(13641) = 0 -! JVS(13642) = Jac_FULL(3082,5255) - JVS(13642) = 0 -! JVS(13643) = Jac_FULL(3083,1776) - JVS(13643) = B(1250) -! JVS(13644) = Jac_FULL(3083,3083) - JVS(13644) = -B(88)-B(90) -! JVS(13645) = Jac_FULL(3083,4555) - JVS(13645) = 0 -! JVS(13646) = Jac_FULL(3083,5145) - JVS(13646) = B(1408) -! JVS(13647) = Jac_FULL(3083,5250) - JVS(13647) = -B(89)-B(91) -! JVS(13648) = Jac_FULL(3083,5258) - JVS(13648) = 0 -! JVS(13649) = Jac_FULL(3084,3084) - JVS(13649) = -B(659)-B(661)-B(663)-B(665)-B(667) -! JVS(13650) = Jac_FULL(3084,5250) - JVS(13650) = -B(662)-B(664)-B(666)-B(668) -! JVS(13651) = Jac_FULL(3084,5256) - JVS(13651) = -B(660) -! JVS(13652) = Jac_FULL(3085,3085) - JVS(13652) = -B(9740)-B(9742) -! JVS(13653) = Jac_FULL(3085,4407) - JVS(13653) = B(6044) -! JVS(13654) = Jac_FULL(3085,5250) - JVS(13654) = -B(9743) -! JVS(13655) = Jac_FULL(3085,5253) - JVS(13655) = B(6045) -! JVS(13656) = Jac_FULL(3085,5256) - JVS(13656) = -B(9741) -! JVS(13657) = Jac_FULL(3086,1571) - JVS(13657) = B(19758) -! JVS(13658) = Jac_FULL(3086,1839) - JVS(13658) = B(19754) -! JVS(13659) = Jac_FULL(3086,3086) - JVS(13659) = -B(19749)-B(19750) -! JVS(13660) = Jac_FULL(3086,3504) - JVS(13660) = B(17879) -! JVS(13661) = Jac_FULL(3086,4369) - JVS(13661) = B(17889) -! JVS(13662) = Jac_FULL(3086,5250) - JVS(13662) = B(17880)-B(19751)+B(19755)+B(19759) -! JVS(13663) = Jac_FULL(3086,5255) - JVS(13663) = 0 -! JVS(13664) = Jac_FULL(3087,3087) - JVS(13664) = -B(13351)-B(13353) -! JVS(13665) = Jac_FULL(3087,4499) - JVS(13665) = B(10125) -! JVS(13666) = Jac_FULL(3087,5250) - JVS(13666) = -B(13354) -! JVS(13667) = Jac_FULL(3087,5253) - JVS(13667) = B(10126) -! JVS(13668) = Jac_FULL(3087,5256) - JVS(13668) = -B(13352) -! JVS(13669) = Jac_FULL(3088,3088) - JVS(13669) = -B(15524)-B(15526) -! JVS(13670) = Jac_FULL(3088,4798) - JVS(13670) = B(12423) -! JVS(13671) = Jac_FULL(3088,5250) - JVS(13671) = -B(15527) -! JVS(13672) = Jac_FULL(3088,5253) - JVS(13672) = B(12424) -! JVS(13673) = Jac_FULL(3088,5256) - JVS(13673) = -B(15525) -! JVS(13674) = Jac_FULL(3089,428) - JVS(13674) = B(5710) -! JVS(13675) = Jac_FULL(3089,1211) - JVS(13675) = B(5700) -! JVS(13676) = Jac_FULL(3089,1964) - JVS(13676) = B(5707) -! JVS(13677) = Jac_FULL(3089,3089) - JVS(13677) = -B(5712)-B(5714) -! JVS(13678) = Jac_FULL(3089,3811) - JVS(13678) = B(2580) -! JVS(13679) = Jac_FULL(3089,5250) - JVS(13679) = B(5701)+B(5708)+B(5711)-B(5713) -! JVS(13680) = Jac_FULL(3089,5252) - JVS(13680) = 0 -! JVS(13681) = Jac_FULL(3089,5255) - JVS(13681) = 0 -! JVS(13682) = Jac_FULL(3090,2174) - JVS(13682) = B(7245) -! JVS(13683) = Jac_FULL(3090,3090) - JVS(13683) = -B(7252)-B(7254) -! JVS(13684) = Jac_FULL(3090,3744) - JVS(13684) = B(7248) -! JVS(13685) = Jac_FULL(3090,4925) - JVS(13685) = B(3423) -! JVS(13686) = Jac_FULL(3090,5250) - JVS(13686) = B(7246)-B(7253) -! JVS(13687) = Jac_FULL(3090,5255) - JVS(13687) = 0 -! JVS(13688) = Jac_FULL(3091,460) - JVS(13688) = B(4786) -! JVS(13689) = Jac_FULL(3091,1052) - JVS(13689) = B(4776) -! JVS(13690) = Jac_FULL(3091,2432) - JVS(13690) = B(4779) -! JVS(13691) = Jac_FULL(3091,3091) - JVS(13691) = -B(4783)-B(4785) -! JVS(13692) = Jac_FULL(3091,5138) - JVS(13692) = B(1961) -! JVS(13693) = Jac_FULL(3091,5250) - JVS(13693) = B(4777)+B(4780)-B(4784)+B(4787) -! JVS(13694) = Jac_FULL(3091,5252) - JVS(13694) = 0 -! JVS(13695) = Jac_FULL(3091,5255) - JVS(13695) = 0 -! JVS(13696) = Jac_FULL(3092,3092) - JVS(13696) = -B(12401)-B(12403) -! JVS(13697) = Jac_FULL(3092,4531) - JVS(13697) = B(8762) -! JVS(13698) = Jac_FULL(3092,5250) - JVS(13698) = -B(12404) -! JVS(13699) = Jac_FULL(3092,5253) - JVS(13699) = B(8763) -! JVS(13700) = Jac_FULL(3092,5256) - JVS(13700) = -B(12402) -! JVS(13701) = Jac_FULL(3093,3093) - JVS(13701) = -B(9264)-B(9266) -! JVS(13702) = Jac_FULL(3093,4453) - JVS(13702) = B(5674) -! JVS(13703) = Jac_FULL(3093,5250) - JVS(13703) = -B(9267) -! JVS(13704) = Jac_FULL(3093,5253) - JVS(13704) = B(5675) -! JVS(13705) = Jac_FULL(3093,5256) - JVS(13705) = -B(9265) -! JVS(13706) = Jac_FULL(3094,3094) - JVS(13706) = -B(15792)-B(15793) -! JVS(13707) = Jac_FULL(3094,3455) - JVS(13707) = B(15791) -! JVS(13708) = Jac_FULL(3094,4706) - JVS(13708) = B(12738)+B(12740)+B(12744) -! JVS(13709) = Jac_FULL(3094,5252) - JVS(13709) = B(12739) -! JVS(13710) = Jac_FULL(3094,5256) - JVS(13710) = B(12741) -! JVS(13711) = Jac_FULL(3095,3095) - JVS(13711) = -B(12597)-B(12599) -! JVS(13712) = Jac_FULL(3095,4471) - JVS(13712) = B(9013) -! JVS(13713) = Jac_FULL(3095,5250) - JVS(13713) = -B(12600) -! JVS(13714) = Jac_FULL(3095,5253) - JVS(13714) = B(9014) -! JVS(13715) = Jac_FULL(3095,5256) - JVS(13715) = -B(12598) -! JVS(13716) = Jac_FULL(3096,3096) - JVS(13716) = -B(619)-B(621)-B(623)-B(625)-B(627) -! JVS(13717) = Jac_FULL(3096,5250) - JVS(13717) = -B(622)-B(624)-B(626)-B(628) -! JVS(13718) = Jac_FULL(3096,5256) - JVS(13718) = -B(620) -! JVS(13719) = Jac_FULL(3097,3097) - JVS(13719) = -B(689)-B(691)-B(693)-B(695)-B(697) -! JVS(13720) = Jac_FULL(3097,5250) - JVS(13720) = -B(692)-B(694)-B(696)-B(698) -! JVS(13721) = Jac_FULL(3097,5256) - JVS(13721) = -B(690) -! JVS(13722) = Jac_FULL(3098,3098) - JVS(13722) = -B(10107)-B(10109) -! JVS(13723) = Jac_FULL(3098,4504) - JVS(13723) = B(6401) -! JVS(13724) = Jac_FULL(3098,5250) - JVS(13724) = -B(10110) -! JVS(13725) = Jac_FULL(3098,5253) - JVS(13725) = B(6402) -! JVS(13726) = Jac_FULL(3098,5256) - JVS(13726) = -B(10108) -! JVS(13727) = Jac_FULL(3099,3099) - JVS(13727) = -B(4222) -! JVS(13728) = Jac_FULL(3099,4819) - JVS(13728) = B(6647) -! JVS(13729) = Jac_FULL(3099,4954) - JVS(13729) = B(1445)+B(1457) -! JVS(13730) = Jac_FULL(3099,5250) - JVS(13730) = -B(4223) -! JVS(13731) = Jac_FULL(3099,5255) - JVS(13731) = B(1446) -! JVS(13732) = Jac_FULL(3100,3100) - JVS(13732) = -B(12981)-B(12983) -! JVS(13733) = Jac_FULL(3100,4444) - JVS(13733) = B(9521) -! JVS(13734) = Jac_FULL(3100,5250) - JVS(13734) = -B(12984) -! JVS(13735) = Jac_FULL(3100,5253) - JVS(13735) = B(9522) -! JVS(13736) = Jac_FULL(3100,5256) - JVS(13736) = -B(12982) -! JVS(13737) = Jac_FULL(3101,3101) - JVS(13737) = -B(10027)-B(10029) -! JVS(13738) = Jac_FULL(3101,4437) - JVS(13738) = B(6322) -! JVS(13739) = Jac_FULL(3101,5250) - JVS(13739) = -B(10030) -! JVS(13740) = Jac_FULL(3101,5253) - JVS(13740) = B(6323) -! JVS(13741) = Jac_FULL(3101,5256) - JVS(13741) = -B(10028) -! JVS(13742) = Jac_FULL(3102,3102) - JVS(13742) = -B(6625)-B(6626) -! JVS(13743) = Jac_FULL(3102,3658) - JVS(13743) = B(3045) -! JVS(13744) = Jac_FULL(3102,3670) - JVS(13744) = B(3057) -! JVS(13745) = Jac_FULL(3102,5250) - JVS(13745) = -B(6627) -! JVS(13746) = Jac_FULL(3102,5252) - JVS(13746) = B(3058) -! JVS(13747) = Jac_FULL(3103,274) - JVS(13747) = B(5985) -! JVS(13748) = Jac_FULL(3103,956) - JVS(13748) = B(5973) -! JVS(13749) = Jac_FULL(3103,2241) - JVS(13749) = B(5976) -! JVS(13750) = Jac_FULL(3103,3103) - JVS(13750) = -B(5987)-B(5989) -! JVS(13751) = Jac_FULL(3103,3803) - JVS(13751) = B(2711) -! JVS(13752) = Jac_FULL(3103,5250) - JVS(13752) = B(5974)+B(5977)+B(5986)-B(5988) -! JVS(13753) = Jac_FULL(3103,5252) - JVS(13753) = 0 -! JVS(13754) = Jac_FULL(3103,5255) - JVS(13754) = 0 -! JVS(13755) = Jac_FULL(3104,1983) - JVS(13755) = B(7074) -! JVS(13756) = Jac_FULL(3104,3104) - JVS(13756) = -B(7077) -! JVS(13757) = Jac_FULL(3104,3364) - JVS(13757) = B(5084) -! JVS(13758) = Jac_FULL(3104,3444) - JVS(13758) = 0 -! JVS(13759) = Jac_FULL(3104,3536) - JVS(13759) = B(3881) -! JVS(13760) = Jac_FULL(3104,4841) - JVS(13760) = B(3278)+B(3280)+B(3282) -! JVS(13761) = Jac_FULL(3104,5250) - JVS(13761) = B(3882) -! JVS(13762) = Jac_FULL(3104,5252) - JVS(13762) = B(3279) -! JVS(13763) = Jac_FULL(3104,5255) - JVS(13763) = 0 -! JVS(13764) = Jac_FULL(3104,5256) - JVS(13764) = B(3281) -! JVS(13765) = Jac_FULL(3105,3105) - JVS(13765) = -B(639)-B(641)-B(643)-B(645)-B(647) -! JVS(13766) = Jac_FULL(3105,5250) - JVS(13766) = -B(642)-B(644)-B(646)-B(648) -! JVS(13767) = Jac_FULL(3105,5256) - JVS(13767) = -B(640) -! JVS(13768) = Jac_FULL(3106,3106) - JVS(13768) = -B(3804) -! JVS(13769) = Jac_FULL(3106,4777) - JVS(13769) = B(2168) -! JVS(13770) = Jac_FULL(3106,4837) - JVS(13770) = B(1072) -! JVS(13771) = Jac_FULL(3106,5250) - JVS(13771) = -B(3805) -! JVS(13772) = Jac_FULL(3106,5252) - JVS(13772) = B(1073) -! JVS(13773) = Jac_FULL(3107,647) - JVS(13773) = B(9948) -! JVS(13774) = Jac_FULL(3107,1103) - JVS(13774) = B(9937) -! JVS(13775) = Jac_FULL(3107,3107) - JVS(13775) = -B(9945)-B(9947) -! JVS(13776) = Jac_FULL(3107,3108) - JVS(13776) = B(9940) -! JVS(13777) = Jac_FULL(3107,4575) - JVS(13777) = B(6235) -! JVS(13778) = Jac_FULL(3107,5250) - JVS(13778) = B(9938)+B(9941)-B(9946)+B(9949) -! JVS(13779) = Jac_FULL(3107,5255) - JVS(13779) = 0 -! JVS(13780) = Jac_FULL(3108,3108) - JVS(13780) = -B(9940)-B(9942) -! JVS(13781) = Jac_FULL(3108,4575) - JVS(13781) = B(6229) -! JVS(13782) = Jac_FULL(3108,5250) - JVS(13782) = -B(9941) -! JVS(13783) = Jac_FULL(3108,5252) - JVS(13783) = B(6230) -! JVS(13784) = Jac_FULL(3109,234) - JVS(13784) = B(4729) -! JVS(13785) = Jac_FULL(3109,1501) - JVS(13785) = B(4720) -! JVS(13786) = Jac_FULL(3109,1831) - JVS(13786) = B(4723) -! JVS(13787) = Jac_FULL(3109,3109) - JVS(13787) = -B(4726)-B(4727) -! JVS(13788) = Jac_FULL(3109,4586) - JVS(13788) = B(1907) -! JVS(13789) = Jac_FULL(3109,5250) - JVS(13789) = B(4721)+B(4724)-B(4728)+B(4730) -! JVS(13790) = Jac_FULL(3109,5252) - JVS(13790) = 0 -! JVS(13791) = Jac_FULL(3109,5255) - JVS(13791) = 0 -! JVS(13792) = Jac_FULL(3110,429) - JVS(13792) = B(4798) -! JVS(13793) = Jac_FULL(3110,848) - JVS(13793) = B(4789) -! JVS(13794) = Jac_FULL(3110,2113) - JVS(13794) = B(4792) -! JVS(13795) = Jac_FULL(3110,3110) - JVS(13795) = -B(4795)-B(4796) -! JVS(13796) = Jac_FULL(3110,5065) - JVS(13796) = B(1972) -! JVS(13797) = Jac_FULL(3110,5250) - JVS(13797) = B(4790)+B(4793)-B(4797)+B(4799) -! JVS(13798) = Jac_FULL(3110,5252) - JVS(13798) = 0 -! JVS(13799) = Jac_FULL(3110,5255) - JVS(13799) = 0 -! JVS(13800) = Jac_FULL(3111,3111) - JVS(13800) = -B(9625)-B(9627) -! JVS(13801) = Jac_FULL(3111,4494) - JVS(13801) = B(5955) -! JVS(13802) = Jac_FULL(3111,5250) - JVS(13802) = -B(9628) -! JVS(13803) = Jac_FULL(3111,5253) - JVS(13803) = B(5956) -! JVS(13804) = Jac_FULL(3111,5256) - JVS(13804) = -B(9626) -! JVS(13805) = Jac_FULL(3112,3112) - JVS(13805) = -B(12756)-B(12758) -! JVS(13806) = Jac_FULL(3112,4509) - JVS(13806) = B(9245) -! JVS(13807) = Jac_FULL(3112,5250) - JVS(13807) = -B(12759) -! JVS(13808) = Jac_FULL(3112,5253) - JVS(13808) = B(9246) -! JVS(13809) = Jac_FULL(3112,5256) - JVS(13809) = -B(12757) -! JVS(13810) = Jac_FULL(3113,3113) - JVS(13810) = -B(709)-B(711)-B(713)-B(715)-B(717) -! JVS(13811) = Jac_FULL(3113,5250) - JVS(13811) = -B(712)-B(714)-B(716)-B(718) -! JVS(13812) = Jac_FULL(3113,5256) - JVS(13812) = -B(710) -! JVS(13813) = Jac_FULL(3114,3114) - JVS(13813) = -B(13070)-B(13072) -! JVS(13814) = Jac_FULL(3114,4639) - JVS(13814) = B(9642) -! JVS(13815) = Jac_FULL(3114,5250) - JVS(13815) = -B(13073) -! JVS(13816) = Jac_FULL(3114,5253) - JVS(13816) = B(9643) -! JVS(13817) = Jac_FULL(3114,5256) - JVS(13817) = -B(13071) -! JVS(13818) = Jac_FULL(3115,2540) - JVS(13818) = B(11067) -! JVS(13819) = Jac_FULL(3115,3115) - JVS(13819) = -B(11073)-B(11075) -! JVS(13820) = Jac_FULL(3115,3559) - JVS(13820) = B(11076) -! JVS(13821) = Jac_FULL(3115,4563) - JVS(13821) = B(7269) -! JVS(13822) = Jac_FULL(3115,5250) - JVS(13822) = B(11068)-B(11074)+B(11077) -! JVS(13823) = Jac_FULL(3115,5255) - JVS(13823) = 0 -! JVS(13824) = Jac_FULL(3116,3116) - JVS(13824) = -B(13320)-B(13322) -! JVS(13825) = Jac_FULL(3116,4402) - JVS(13825) = B(10053) -! JVS(13826) = Jac_FULL(3116,5250) - JVS(13826) = -B(13323) -! JVS(13827) = Jac_FULL(3116,5253) - JVS(13827) = B(10054) -! JVS(13828) = Jac_FULL(3116,5256) - JVS(13828) = -B(13321) -! JVS(13829) = Jac_FULL(3117,453) - JVS(13829) = B(4762) -! JVS(13830) = Jac_FULL(3117,1259) - JVS(13830) = B(4753) -! JVS(13831) = Jac_FULL(3117,2216) - JVS(13831) = B(4756) -! JVS(13832) = Jac_FULL(3117,3117) - JVS(13832) = -B(4759)-B(4760) -! JVS(13833) = Jac_FULL(3117,5112) - JVS(13833) = B(1939) -! JVS(13834) = Jac_FULL(3117,5250) - JVS(13834) = B(4754)+B(4757)-B(4761)+B(4763) -! JVS(13835) = Jac_FULL(3117,5252) - JVS(13835) = 0 -! JVS(13836) = Jac_FULL(3117,5255) - JVS(13836) = 0 -! JVS(13837) = Jac_FULL(3118,353) - JVS(13837) = B(4696) -! JVS(13838) = Jac_FULL(3118,1267) - JVS(13838) = B(4687) -! JVS(13839) = Jac_FULL(3118,1919) - JVS(13839) = B(4690) -! JVS(13840) = Jac_FULL(3118,3118) - JVS(13840) = -B(4693)-B(4694) -! JVS(13841) = Jac_FULL(3118,4766) - JVS(13841) = B(1875) -! JVS(13842) = Jac_FULL(3118,5250) - JVS(13842) = B(4688)+B(4691)-B(4695)+B(4697) -! JVS(13843) = Jac_FULL(3118,5252) - JVS(13843) = 0 -! JVS(13844) = Jac_FULL(3118,5255) - JVS(13844) = 0 -! JVS(13845) = Jac_FULL(3119,3119) - JVS(13845) = -B(12709)-B(12711) -! JVS(13846) = Jac_FULL(3119,4487) - JVS(13846) = B(9155) -! JVS(13847) = Jac_FULL(3119,5250) - JVS(13847) = -B(12712) -! JVS(13848) = Jac_FULL(3119,5253) - JVS(13848) = B(9156) -! JVS(13849) = Jac_FULL(3119,5256) - JVS(13849) = -B(12710) -! JVS(13850) = Jac_FULL(3120,3120) - JVS(13850) = -B(15741)-B(15743) -! JVS(13851) = Jac_FULL(3120,4671) - JVS(13851) = B(12698) -! JVS(13852) = Jac_FULL(3120,5250) - JVS(13852) = -B(15744) -! JVS(13853) = Jac_FULL(3120,5253) - JVS(13853) = B(12699) -! JVS(13854) = Jac_FULL(3120,5256) - JVS(13854) = -B(15742) -! JVS(13855) = Jac_FULL(3121,517) - JVS(13855) = B(5210) -! JVS(13856) = Jac_FULL(3121,1434) - JVS(13856) = B(5202) -! JVS(13857) = Jac_FULL(3121,2341) - JVS(13857) = B(5205) -! JVS(13858) = Jac_FULL(3121,3121) - JVS(13858) = -B(5212)-B(5214) -! JVS(13859) = Jac_FULL(3121,4399) - JVS(13859) = B(2352) -! JVS(13860) = Jac_FULL(3121,5250) - JVS(13860) = B(5203)+B(5206)+B(5211)-B(5213) -! JVS(13861) = Jac_FULL(3121,5252) - JVS(13861) = 0 -! JVS(13862) = Jac_FULL(3121,5255) - JVS(13862) = 0 -! JVS(13863) = Jac_FULL(3122,283) - JVS(13863) = B(5889) -! JVS(13864) = Jac_FULL(3122,1039) - JVS(13864) = B(5879) -! JVS(13865) = Jac_FULL(3122,2418) - JVS(13865) = B(5886) -! JVS(13866) = Jac_FULL(3122,3122) - JVS(13866) = -B(5891)-B(5893) -! JVS(13867) = Jac_FULL(3122,3794) - JVS(13867) = B(2667) -! JVS(13868) = Jac_FULL(3122,5250) - JVS(13868) = B(5880)+B(5887)+B(5890)-B(5892) -! JVS(13869) = Jac_FULL(3122,5252) - JVS(13869) = 0 -! JVS(13870) = Jac_FULL(3122,5255) - JVS(13870) = 0 -! JVS(13871) = Jac_FULL(3123,3123) - JVS(13871) = -B(12883)-B(12885) -! JVS(13872) = Jac_FULL(3123,4466) - JVS(13872) = B(9406) -! JVS(13873) = Jac_FULL(3123,5250) - JVS(13873) = -B(12886) -! JVS(13874) = Jac_FULL(3123,5253) - JVS(13874) = B(9407) -! JVS(13875) = Jac_FULL(3123,5256) - JVS(13875) = -B(12884) -! JVS(13876) = Jac_FULL(3124,1548) - JVS(13876) = B(19663) -! JVS(13877) = Jac_FULL(3124,1908) - JVS(13877) = B(19656) -! JVS(13878) = Jac_FULL(3124,3124) - JVS(13878) = -B(19659)-B(19660) -! JVS(13879) = Jac_FULL(3124,3537) - JVS(13879) = B(19652) -! JVS(13880) = Jac_FULL(3124,4566) - JVS(13880) = B(17766) -! JVS(13881) = Jac_FULL(3124,5250) - JVS(13881) = B(19653)+B(19657)-B(19661)+B(19664) -! JVS(13882) = Jac_FULL(3124,5255) - JVS(13882) = 0 -! JVS(13883) = Jac_FULL(3125,3125) - JVS(13883) = -B(9129)-B(9131) -! JVS(13884) = Jac_FULL(3125,4408) - JVS(13884) = B(5549) -! JVS(13885) = Jac_FULL(3125,5250) - JVS(13885) = -B(9132) -! JVS(13886) = Jac_FULL(3125,5253) - JVS(13886) = B(5550) -! JVS(13887) = Jac_FULL(3125,5256) - JVS(13887) = -B(9130) -! JVS(13888) = Jac_FULL(3126,758) - JVS(13888) = B(17798) -! JVS(13889) = Jac_FULL(3126,1145) - JVS(13889) = B(17788) -! JVS(13890) = Jac_FULL(3126,2282) - JVS(13890) = B(17791) -! JVS(13891) = Jac_FULL(3126,3126) - JVS(13891) = -B(17794)-B(17795) -! JVS(13892) = Jac_FULL(3126,4903) - JVS(13892) = B(15222) -! JVS(13893) = Jac_FULL(3126,5250) - JVS(13893) = B(17789)+B(17792)-B(17796)+B(17799) -! JVS(13894) = Jac_FULL(3126,5252) - JVS(13894) = 0 -! JVS(13895) = Jac_FULL(3126,5255) - JVS(13895) = 0 -! JVS(13896) = Jac_FULL(3127,3127) - JVS(13896) = -B(13292)-B(13294) -! JVS(13897) = Jac_FULL(3127,4413) - JVS(13897) = B(9986) -! JVS(13898) = Jac_FULL(3127,5250) - JVS(13898) = -B(13295) -! JVS(13899) = Jac_FULL(3127,5253) - JVS(13899) = B(9987) -! JVS(13900) = Jac_FULL(3127,5256) - JVS(13900) = -B(13293) -! JVS(13901) = Jac_FULL(3128,473) - JVS(13901) = B(18967) -! JVS(13902) = Jac_FULL(3128,512) - JVS(13902) = B(16770) -! JVS(13903) = Jac_FULL(3128,2663) - JVS(13903) = B(18955) -! JVS(13904) = Jac_FULL(3128,2664) - JVS(13904) = B(18963) -! JVS(13905) = Jac_FULL(3128,2764) - JVS(13905) = B(16766) -! JVS(13906) = Jac_FULL(3128,2810) - JVS(13906) = B(18958) -! JVS(13907) = Jac_FULL(3128,2976) - JVS(13907) = B(16761) -! JVS(13908) = Jac_FULL(3128,3075) - JVS(13908) = B(21320) -! JVS(13909) = Jac_FULL(3128,3128) - JVS(13909) = -B(16764) -! JVS(13910) = Jac_FULL(3128,4472) - JVS(13910) = 0 -! JVS(13911) = Jac_FULL(3128,4612) - JVS(13911) = B(13969)+B(13979) -! JVS(13912) = Jac_FULL(3128,4613) - JVS(13912) = 0 -! JVS(13913) = Jac_FULL(3128,4614) - JVS(13913) = B(16739)+B(16749) -! JVS(13914) = Jac_FULL(3128,5250) - JVS(13914) = B(16762)-B(16765)+B(16767)+B(16771)+B(18956)+B(18959)+B(18964)+B(18968)+B(21321) -! JVS(13915) = Jac_FULL(3128,5252) - JVS(13915) = 0 -! JVS(13916) = Jac_FULL(3128,5253) - JVS(13916) = 0 -! JVS(13917) = Jac_FULL(3128,5255) - JVS(13917) = B(13970)+B(16740) -! JVS(13918) = Jac_FULL(3129,3129) - JVS(13918) = -B(719)-B(721)-B(723)-B(725)-B(727) -! JVS(13919) = Jac_FULL(3129,5250) - JVS(13919) = -B(722)-B(724)-B(726)-B(728) -! JVS(13920) = Jac_FULL(3129,5256) - JVS(13920) = -B(720) -! JVS(13921) = Jac_FULL(3130,3129) - JVS(13921) = B(727) -! JVS(13922) = Jac_FULL(3130,3130) - JVS(13922) = -B(2897)-B(2899)-B(2901)-B(2903)-B(2905)-B(2907) -! JVS(13923) = Jac_FULL(3130,5250) - JVS(13923) = B(728)-B(2904)-B(2906)-B(2908) -! JVS(13924) = Jac_FULL(3130,5256) - JVS(13924) = -B(2898)-B(2900)-B(2902) -! JVS(13925) = Jac_FULL(3131,3096) - JVS(13925) = B(627) -! JVS(13926) = Jac_FULL(3131,3131) - JVS(13926) = -B(2492)-B(2494)-B(2496)-B(2498)-B(2500)-B(2502) -! JVS(13927) = Jac_FULL(3131,5250) - JVS(13927) = B(628)-B(2499)-B(2501)-B(2503) -! JVS(13928) = Jac_FULL(3131,5256) - JVS(13928) = -B(2493)-B(2495)-B(2497) -! JVS(13929) = Jac_FULL(3132,1666) - JVS(13929) = B(13256) -! JVS(13930) = Jac_FULL(3132,1735) - JVS(13930) = B(13367) -! JVS(13931) = Jac_FULL(3132,2047) - JVS(13931) = B(13251) -! JVS(13932) = Jac_FULL(3132,3132) - JVS(13932) = -B(13259)-B(13261) -! JVS(13933) = Jac_FULL(3132,3814) - JVS(13933) = B(9906) -! JVS(13934) = Jac_FULL(3132,4070) - JVS(13934) = 0 -! JVS(13935) = Jac_FULL(3132,5250) - JVS(13935) = B(13252)+B(13257)-B(13260)+B(13368) -! JVS(13936) = Jac_FULL(3132,5255) - JVS(13936) = 0 -! JVS(13937) = Jac_FULL(3133,3133) - JVS(13937) = -B(6161)-B(6162) -! JVS(13938) = Jac_FULL(3133,3832) - JVS(13938) = B(9724) -! JVS(13939) = Jac_FULL(3133,3996) - JVS(13939) = B(2793) -! JVS(13940) = Jac_FULL(3133,5089) - JVS(13940) = B(9041) -! JVS(13941) = Jac_FULL(3133,5258) - JVS(13941) = B(2794)+B(9042)+B(9725) -! JVS(13942) = Jac_FULL(3134,3134) - JVS(13942) = -B(629)-B(631)-B(633)-B(635)-B(637) -! JVS(13943) = Jac_FULL(3134,5250) - JVS(13943) = -B(632)-B(634)-B(636)-B(638) -! JVS(13944) = Jac_FULL(3134,5256) - JVS(13944) = -B(630) -! JVS(13945) = Jac_FULL(3135,3134) - JVS(13945) = B(637) -! JVS(13946) = Jac_FULL(3135,3135) - JVS(13946) = -B(2535)-B(2537)-B(2539)-B(2541)-B(2543)-B(2545) -! JVS(13947) = Jac_FULL(3135,5250) - JVS(13947) = B(638)-B(2542)-B(2544)-B(2546) -! JVS(13948) = Jac_FULL(3135,5256) - JVS(13948) = -B(2536)-B(2538)-B(2540) -! JVS(13949) = Jac_FULL(3136,3105) - JVS(13949) = B(643) -! JVS(13950) = Jac_FULL(3136,3136) - JVS(13950) = -B(2558)-B(2560)-B(2562)-B(2564)-B(2566)-B(2568) -! JVS(13951) = Jac_FULL(3136,5250) - JVS(13951) = B(644)-B(2565)-B(2567)-B(2569) -! JVS(13952) = Jac_FULL(3136,5256) - JVS(13952) = -B(2559)-B(2561)-B(2563) -! JVS(13953) = Jac_FULL(3137,3137) - JVS(13953) = -B(16214)-B(16216) -! JVS(13954) = Jac_FULL(3137,4788) - JVS(13954) = B(13184) -! JVS(13955) = Jac_FULL(3137,5250) - JVS(13955) = -B(16217) -! JVS(13956) = Jac_FULL(3137,5253) - JVS(13956) = B(13185) -! JVS(13957) = Jac_FULL(3137,5256) - JVS(13957) = -B(16215) -! JVS(13958) = Jac_FULL(3138,3138) - JVS(13958) = -B(679)-B(681)-B(683)-B(685)-B(687) -! JVS(13959) = Jac_FULL(3138,5250) - JVS(13959) = -B(682)-B(684)-B(686)-B(688) -! JVS(13960) = Jac_FULL(3138,5256) - JVS(13960) = -B(680) -! JVS(13961) = Jac_FULL(3139,3138) - JVS(13961) = B(685) -! JVS(13962) = Jac_FULL(3139,3139) - JVS(13962) = -B(2739)-B(2741)-B(2743)-B(2745)-B(2747)-B(2749) -! JVS(13963) = Jac_FULL(3139,5250) - JVS(13963) = B(686)-B(2746)-B(2748)-B(2750) -! JVS(13964) = Jac_FULL(3139,5256) - JVS(13964) = -B(2740)-B(2742)-B(2744) -! JVS(13965) = Jac_FULL(3140,3140) - JVS(13965) = -B(9388)-B(9390) -! JVS(13966) = Jac_FULL(3140,4479) - JVS(13966) = B(5773) -! JVS(13967) = Jac_FULL(3140,5250) - JVS(13967) = -B(9391) -! JVS(13968) = Jac_FULL(3140,5253) - JVS(13968) = B(5774) -! JVS(13969) = Jac_FULL(3140,5256) - JVS(13969) = -B(9389) -! JVS(13970) = Jac_FULL(3141,3141) - JVS(13970) = -B(7324) -! JVS(13971) = Jac_FULL(3141,3806) - JVS(13971) = B(3473) -! JVS(13972) = Jac_FULL(3141,4185) - JVS(13972) = B(3492) -! JVS(13973) = Jac_FULL(3141,5250) - JVS(13973) = -B(7325) -! JVS(13974) = Jac_FULL(3141,5252) - JVS(13974) = B(3493) -! JVS(13975) = Jac_FULL(3142,3142) - JVS(13975) = -B(13195)-B(13197) -! JVS(13976) = Jac_FULL(3142,4670) - JVS(13976) = B(9758) -! JVS(13977) = Jac_FULL(3142,5250) - JVS(13977) = -B(13198) -! JVS(13978) = Jac_FULL(3142,5253) - JVS(13978) = B(9759) -! JVS(13979) = Jac_FULL(3142,5256) - JVS(13979) = -B(13196) -! JVS(13980) = Jac_FULL(3143,3143) - JVS(13980) = -B(16266)-B(16268) -! JVS(13981) = Jac_FULL(3143,4682) - JVS(13981) = B(13281) -! JVS(13982) = Jac_FULL(3143,5250) - JVS(13982) = -B(16269) -! JVS(13983) = Jac_FULL(3143,5253) - JVS(13983) = B(13282) -! JVS(13984) = Jac_FULL(3143,5256) - JVS(13984) = -B(16267) -! JVS(13985) = Jac_FULL(3144,3144) - JVS(13985) = -B(649)-B(651)-B(653)-B(655)-B(657) -! JVS(13986) = Jac_FULL(3144,5250) - JVS(13986) = -B(652)-B(654)-B(656)-B(658) -! JVS(13987) = Jac_FULL(3144,5256) - JVS(13987) = -B(650) -! JVS(13988) = Jac_FULL(3145,3145) - JVS(13988) = -B(609)-B(611)-B(613)-B(615)-B(617) -! JVS(13989) = Jac_FULL(3145,5250) - JVS(13989) = -B(612)-B(614)-B(616)-B(618) -! JVS(13990) = Jac_FULL(3145,5256) - JVS(13990) = -B(610) -! JVS(13991) = Jac_FULL(3146,3146) - JVS(13991) = -B(15464)-B(15466) -! JVS(13992) = Jac_FULL(3146,4859) - JVS(13992) = B(12397) -! JVS(13993) = Jac_FULL(3146,5250) - JVS(13993) = -B(15467) -! JVS(13994) = Jac_FULL(3146,5253) - JVS(13994) = B(12398) -! JVS(13995) = Jac_FULL(3146,5256) - JVS(13995) = -B(15465) -! JVS(13996) = Jac_FULL(3147,3147) - JVS(13996) = -B(2996)-B(2997)-B(2998)-B(2999) -! JVS(13997) = Jac_FULL(3147,4395) - JVS(13997) = B(753) -! JVS(13998) = Jac_FULL(3147,5258) - JVS(13998) = B(754) -! JVS(13999) = Jac_FULL(3148,269) - JVS(13999) = B(4750) -! JVS(14000) = Jac_FULL(3148,1491) - JVS(14000) = B(4741) -! JVS(14001) = Jac_FULL(3148,2161) - JVS(14001) = B(4744) -! JVS(14002) = Jac_FULL(3148,3148) - JVS(14002) = -B(4747)-B(4748) -! JVS(14003) = Jac_FULL(3148,5144) - JVS(14003) = B(1928) -! JVS(14004) = Jac_FULL(3148,5250) - JVS(14004) = B(4742)+B(4745)-B(4749)+B(4751) -! JVS(14005) = Jac_FULL(3148,5252) - JVS(14005) = 0 -! JVS(14006) = Jac_FULL(3148,5255) - JVS(14006) = 0 -! JVS(14007) = Jac_FULL(3149,3144) - JVS(14007) = B(651) -! JVS(14008) = Jac_FULL(3149,3149) - JVS(14008) = -B(2602)-B(2604)-B(2606)-B(2608)-B(2610)-B(2612) -! JVS(14009) = Jac_FULL(3149,5250) - JVS(14009) = B(652)-B(2609)-B(2611)-B(2613) -! JVS(14010) = Jac_FULL(3149,5256) - JVS(14010) = -B(2603)-B(2605)-B(2607) -! JVS(14011) = Jac_FULL(3150,3150) - JVS(14011) = -B(9227)-B(9229) -! JVS(14012) = Jac_FULL(3150,4495) - JVS(14012) = B(5642) -! JVS(14013) = Jac_FULL(3150,5250) - JVS(14013) = -B(9230) -! JVS(14014) = Jac_FULL(3150,5253) - JVS(14014) = B(5643) -! JVS(14015) = Jac_FULL(3150,5256) - JVS(14015) = -B(9228) -! JVS(14016) = Jac_FULL(3151,1707) - JVS(14016) = B(19780) -! JVS(14017) = Jac_FULL(3151,2052) - JVS(14017) = B(19776) -! JVS(14018) = Jac_FULL(3151,3151) - JVS(14018) = -B(19771)-B(19772) -! JVS(14019) = Jac_FULL(3151,3522) - JVS(14019) = B(17902) -! JVS(14020) = Jac_FULL(3151,4349) - JVS(14020) = B(17915) -! JVS(14021) = Jac_FULL(3151,5250) - JVS(14021) = B(17903)-B(19773)+B(19777)+B(19781) -! JVS(14022) = Jac_FULL(3151,5255) - JVS(14022) = 0 -! JVS(14023) = Jac_FULL(3152,3152) - JVS(14023) = -B(16365)-B(16367) -! JVS(14024) = Jac_FULL(3152,4663) - JVS(14024) = B(13340) -! JVS(14025) = Jac_FULL(3152,5250) - JVS(14025) = -B(16368) -! JVS(14026) = Jac_FULL(3152,5253) - JVS(14026) = B(13341) -! JVS(14027) = Jac_FULL(3152,5256) - JVS(14027) = -B(16366) -! JVS(14028) = Jac_FULL(3153,3153) - JVS(14028) = -B(9968)-B(9970) -! JVS(14029) = Jac_FULL(3153,4438) - JVS(14029) = B(6254) -! JVS(14030) = Jac_FULL(3153,5250) - JVS(14030) = -B(9971) -! JVS(14031) = Jac_FULL(3153,5253) - JVS(14031) = B(6255) -! JVS(14032) = Jac_FULL(3153,5256) - JVS(14032) = -B(9969) -! JVS(14033) = Jac_FULL(3154,3154) - JVS(14033) = -B(16479)-B(16481)-B(16483) -! JVS(14034) = Jac_FULL(3154,3835) - JVS(14034) = B(13607) -! JVS(14035) = Jac_FULL(3154,5250) - JVS(14035) = B(13608)-B(16480)-B(16482) -! JVS(14036) = Jac_FULL(3155,3155) - JVS(14036) = -B(3116)-B(3117)-B(3118)-B(3119) -! JVS(14037) = Jac_FULL(3155,5166) - JVS(14037) = B(785) -! JVS(14038) = Jac_FULL(3155,5258) - JVS(14038) = B(786) -! JVS(14039) = Jac_FULL(3156,417) - JVS(14039) = B(6966) -! JVS(14040) = Jac_FULL(3156,1143) - JVS(14040) = B(6953) -! JVS(14041) = Jac_FULL(3156,2075) - JVS(14041) = B(6962) -! JVS(14042) = Jac_FULL(3156,3156) - JVS(14042) = -B(6956)-B(6958)-B(6960) -! JVS(14043) = Jac_FULL(3156,4616) - JVS(14043) = B(3174)+B(3184) -! JVS(14044) = Jac_FULL(3156,5250) - JVS(14044) = B(6954)-B(6957)-B(6959)-B(6961)+B(6963)+B(6967) -! JVS(14045) = Jac_FULL(3156,5252) - JVS(14045) = 0 -! JVS(14046) = Jac_FULL(3156,5255) - JVS(14046) = B(3175) -! JVS(14047) = Jac_FULL(3157,250) - JVS(14047) = B(603) -! JVS(14048) = Jac_FULL(3157,3157) - JVS(14048) = -B(2384)-B(2386)-B(2388)-B(2390)-B(2392)-B(2394) -! JVS(14049) = Jac_FULL(3157,5250) - JVS(14049) = B(604)-B(2391)-B(2393)-B(2395) -! JVS(14050) = Jac_FULL(3157,5256) - JVS(14050) = -B(2385)-B(2387)-B(2389) -! JVS(14051) = Jac_FULL(3158,3145) - JVS(14051) = B(617) -! JVS(14052) = Jac_FULL(3158,3158) - JVS(14052) = -B(2448)-B(2450)-B(2452)-B(2454)-B(2456)-B(2458) -! JVS(14053) = Jac_FULL(3158,5250) - JVS(14053) = B(618)-B(2455)-B(2457)-B(2459) -! JVS(14054) = Jac_FULL(3158,5256) - JVS(14054) = -B(2449)-B(2451)-B(2453) -! JVS(14055) = Jac_FULL(3159,3159) - JVS(14055) = -B(3918) -! JVS(14056) = Jac_FULL(3159,4647) - JVS(14056) = B(1153) -! JVS(14057) = Jac_FULL(3159,4723) - JVS(14057) = B(2220) -! JVS(14058) = Jac_FULL(3159,5250) - JVS(14058) = -B(3919) -! JVS(14059) = Jac_FULL(3159,5252) - JVS(14059) = B(1154) -! JVS(14060) = Jac_FULL(3160,3160) - JVS(14060) = -B(16682)-B(16683)-B(16685) -! JVS(14061) = Jac_FULL(3160,4945) - JVS(14061) = B(13863) -! JVS(14062) = Jac_FULL(3160,5250) - JVS(14062) = B(13864)-B(16684)-B(16686) -! JVS(14063) = Jac_FULL(3161,3161) - JVS(14063) = -B(8750)-B(8752) -! JVS(14064) = Jac_FULL(3161,4965) - JVS(14064) = B(5268) -! JVS(14065) = Jac_FULL(3161,5250) - JVS(14065) = -B(8753) -! JVS(14066) = Jac_FULL(3161,5253) - JVS(14066) = B(5269) -! JVS(14067) = Jac_FULL(3161,5256) - JVS(14067) = -B(8751) -! JVS(14068) = Jac_FULL(3162,3162) - JVS(14068) = -B(12789)-B(12791) -! JVS(14069) = Jac_FULL(3162,4454) - JVS(14069) = B(9290) -! JVS(14070) = Jac_FULL(3162,5250) - JVS(14070) = -B(12792) -! JVS(14071) = Jac_FULL(3162,5253) - JVS(14071) = B(9291) -! JVS(14072) = Jac_FULL(3162,5256) - JVS(14072) = -B(12790) -! JVS(14073) = Jac_FULL(3163,3163) - JVS(14073) = -B(15651)-B(15653) -! JVS(14074) = Jac_FULL(3163,4690) - JVS(14074) = B(12586) -! JVS(14075) = Jac_FULL(3163,5250) - JVS(14075) = -B(15654) -! JVS(14076) = Jac_FULL(3163,5253) - JVS(14076) = B(12587) -! JVS(14077) = Jac_FULL(3163,5256) - JVS(14077) = -B(15652) -! JVS(14078) = Jac_FULL(3164,3113) - JVS(14078) = B(717) -! JVS(14079) = Jac_FULL(3164,3164) - JVS(14079) = -B(2865)-B(2867)-B(2869)-B(2871)-B(2873)-B(2875) -! JVS(14080) = Jac_FULL(3164,5250) - JVS(14080) = B(718)-B(2872)-B(2874)-B(2876) -! JVS(14081) = Jac_FULL(3164,5256) - JVS(14081) = -B(2866)-B(2868)-B(2870) -! JVS(14082) = Jac_FULL(3165,3165) - JVS(14082) = -B(9495)-B(9497) -! JVS(14083) = Jac_FULL(3165,4457) - JVS(14083) = B(5853) -! JVS(14084) = Jac_FULL(3165,5250) - JVS(14084) = -B(9498) -! JVS(14085) = Jac_FULL(3165,5253) - JVS(14085) = B(5854) -! JVS(14086) = Jac_FULL(3165,5256) - JVS(14086) = -B(9496) -! JVS(14087) = Jac_FULL(3166,486) - JVS(14087) = B(4774) -! JVS(14088) = Jac_FULL(3166,1079) - JVS(14088) = B(4765) -! JVS(14089) = Jac_FULL(3166,1824) - JVS(14089) = B(4768) -! JVS(14090) = Jac_FULL(3166,3166) - JVS(14090) = -B(4771)-B(4772) -! JVS(14091) = Jac_FULL(3166,5107) - JVS(14091) = B(1950) -! JVS(14092) = Jac_FULL(3166,5250) - JVS(14092) = B(4766)+B(4769)-B(4773)+B(4775) -! JVS(14093) = Jac_FULL(3166,5252) - JVS(14093) = 0 -! JVS(14094) = Jac_FULL(3166,5255) - JVS(14094) = 0 -! JVS(14095) = Jac_FULL(3167,3167) - JVS(14095) = -B(12430)-B(12432) -! JVS(14096) = Jac_FULL(3167,4514) - JVS(14096) = B(8800) -! JVS(14097) = Jac_FULL(3167,5250) - JVS(14097) = -B(12433) -! JVS(14098) = Jac_FULL(3167,5253) - JVS(14098) = B(8801) -! JVS(14099) = Jac_FULL(3167,5256) - JVS(14099) = -B(12431) -! JVS(14100) = Jac_FULL(3168,412) - JVS(14100) = B(4708) -! JVS(14101) = Jac_FULL(3168,870) - JVS(14101) = B(4699) -! JVS(14102) = Jac_FULL(3168,2094) - JVS(14102) = B(4702) -! JVS(14103) = Jac_FULL(3168,3168) - JVS(14103) = -B(4705)-B(4706) -! JVS(14104) = Jac_FULL(3168,5146) - JVS(14104) = B(1886) -! JVS(14105) = Jac_FULL(3168,5250) - JVS(14105) = B(4700)+B(4703)-B(4707)+B(4709) -! JVS(14106) = Jac_FULL(3168,5252) - JVS(14106) = 0 -! JVS(14107) = Jac_FULL(3168,5255) - JVS(14107) = 0 -! JVS(14108) = Jac_FULL(3169,3169) - JVS(14108) = -B(739)-B(741)-B(743)-B(745)-B(747) -! JVS(14109) = Jac_FULL(3169,5250) - JVS(14109) = -B(742)-B(744)-B(746)-B(748) -! JVS(14110) = Jac_FULL(3169,5256) - JVS(14110) = -B(740) -! JVS(14111) = Jac_FULL(3170,3170) - JVS(14111) = -B(8995)-B(8997) -! JVS(14112) = Jac_FULL(3170,4478) - JVS(14112) = B(5458) -! JVS(14113) = Jac_FULL(3170,5250) - JVS(14113) = -B(8998) -! JVS(14114) = Jac_FULL(3170,5253) - JVS(14114) = B(5459) -! JVS(14115) = Jac_FULL(3170,5256) - JVS(14115) = -B(8996) -! JVS(14116) = Jac_FULL(3171,1853) - JVS(14116) = B(4337) -! JVS(14117) = Jac_FULL(3171,2805) - JVS(14117) = B(4371) -! JVS(14118) = Jac_FULL(3171,3171) - JVS(14118) = -B(4376)-B(4378) -! JVS(14119) = Jac_FULL(3171,4353) - JVS(14119) = B(1595) -! JVS(14120) = Jac_FULL(3171,4923) - JVS(14120) = 0 -! JVS(14121) = Jac_FULL(3171,5250) - JVS(14121) = B(4338)+B(4372)-B(4377) -! JVS(14122) = Jac_FULL(3171,5255) - JVS(14122) = 0 -! JVS(14123) = Jac_FULL(3172,3084) - JVS(14123) = B(661) -! JVS(14124) = Jac_FULL(3172,3172) - JVS(14124) = -B(2645)-B(2647)-B(2649)-B(2651)-B(2653)-B(2655) -! JVS(14125) = Jac_FULL(3172,5250) - JVS(14125) = B(662)-B(2652)-B(2654)-B(2656) -! JVS(14126) = Jac_FULL(3172,5256) - JVS(14126) = -B(2646)-B(2648)-B(2650) -! JVS(14127) = Jac_FULL(3173,3173) - JVS(14127) = -B(3715) -! JVS(14128) = Jac_FULL(3173,4809) - JVS(14128) = B(2076) -! JVS(14129) = Jac_FULL(3173,5060) - JVS(14129) = B(1000) -! JVS(14130) = Jac_FULL(3173,5250) - JVS(14130) = -B(3716) -! JVS(14131) = Jac_FULL(3173,5252) - JVS(14131) = B(1001) -! JVS(14132) = Jac_FULL(3174,436) - JVS(14132) = B(5801) -! JVS(14133) = Jac_FULL(3174,1027) - JVS(14133) = B(5791) -! JVS(14134) = Jac_FULL(3174,2406) - JVS(14134) = B(5798) -! JVS(14135) = Jac_FULL(3174,3174) - JVS(14135) = -B(5803)-B(5805) -! JVS(14136) = Jac_FULL(3174,3804) - JVS(14136) = B(2624) -! JVS(14137) = Jac_FULL(3174,5250) - JVS(14137) = B(5792)+B(5799)+B(5802)-B(5804) -! JVS(14138) = Jac_FULL(3174,5252) - JVS(14138) = 0 -! JVS(14139) = Jac_FULL(3174,5255) - JVS(14139) = 0 -! JVS(14140) = Jac_FULL(3175,3175) - JVS(14140) = -B(5039)-B(5041) -! JVS(14141) = Jac_FULL(3175,4700) - JVS(14141) = B(2187) -! JVS(14142) = Jac_FULL(3175,5043) - JVS(14142) = B(2203) -! JVS(14143) = Jac_FULL(3175,5250) - JVS(14143) = -B(5040) -! JVS(14144) = Jac_FULL(3175,5252) - JVS(14144) = B(2204) -! JVS(14145) = Jac_FULL(3176,764) - JVS(14145) = B(8974) -! JVS(14146) = Jac_FULL(3176,1049) - JVS(14146) = B(8963) -! JVS(14147) = Jac_FULL(3176,3176) - JVS(14147) = -B(8971)-B(8973) -! JVS(14148) = Jac_FULL(3176,3177) - JVS(14148) = B(8966) -! JVS(14149) = Jac_FULL(3176,4707) - JVS(14149) = B(5439) -! JVS(14150) = Jac_FULL(3176,5250) - JVS(14150) = B(8964)+B(8967)-B(8972)+B(8975) -! JVS(14151) = Jac_FULL(3176,5255) - JVS(14151) = 0 -! JVS(14152) = Jac_FULL(3177,3177) - JVS(14152) = -B(8966)-B(8968) -! JVS(14153) = Jac_FULL(3177,4707) - JVS(14153) = B(5433) -! JVS(14154) = Jac_FULL(3177,5250) - JVS(14154) = -B(8967) -! JVS(14155) = Jac_FULL(3177,5252) - JVS(14155) = B(5434) -! JVS(14156) = Jac_FULL(3178,3178) - JVS(14156) = -B(16042)-B(16044) -! JVS(14157) = Jac_FULL(3178,4790) - JVS(14157) = B(12967) -! JVS(14158) = Jac_FULL(3178,5250) - JVS(14158) = -B(16045) -! JVS(14159) = Jac_FULL(3178,5253) - JVS(14159) = B(12968) -! JVS(14160) = Jac_FULL(3178,5256) - JVS(14160) = -B(16043) -! JVS(14161) = Jac_FULL(3179,3179) - JVS(14161) = -B(669)-B(671)-B(673)-B(675)-B(677) -! JVS(14162) = Jac_FULL(3179,5250) - JVS(14162) = -B(672)-B(674)-B(676)-B(678) -! JVS(14163) = Jac_FULL(3179,5256) - JVS(14163) = -B(670) -! JVS(14164) = Jac_FULL(3180,3179) - JVS(14164) = B(673) -! JVS(14165) = Jac_FULL(3180,3180) - JVS(14165) = -B(2689)-B(2691)-B(2693)-B(2695)-B(2697)-B(2699) -! JVS(14166) = Jac_FULL(3180,5250) - JVS(14166) = B(674)-B(2696)-B(2698)-B(2700) -! JVS(14167) = Jac_FULL(3180,5256) - JVS(14167) = -B(2690)-B(2692)-B(2694) -! JVS(14168) = Jac_FULL(3181,3181) - JVS(14168) = -B(15844)-B(15846) -! JVS(14169) = Jac_FULL(3181,4797) - JVS(14169) = B(12775) -! JVS(14170) = Jac_FULL(3181,5250) - JVS(14170) = -B(15847) -! JVS(14171) = Jac_FULL(3181,5253) - JVS(14171) = B(12776) -! JVS(14172) = Jac_FULL(3181,5256) - JVS(14172) = -B(15845) -! JVS(14173) = Jac_FULL(3182,3182) - JVS(14173) = -B(729)-B(731)-B(733)-B(735)-B(737) -! JVS(14174) = Jac_FULL(3182,5250) - JVS(14174) = -B(732)-B(734)-B(736)-B(738) -! JVS(14175) = Jac_FULL(3182,5256) - JVS(14175) = -B(730) -! JVS(14176) = Jac_FULL(3183,1744) - JVS(14176) = B(19802) -! JVS(14177) = Jac_FULL(3183,2059) - JVS(14177) = B(19798) -! JVS(14178) = Jac_FULL(3183,3183) - JVS(14178) = -B(19793)-B(19794) -! JVS(14179) = Jac_FULL(3183,3544) - JVS(14179) = B(17932) -! JVS(14180) = Jac_FULL(3183,4389) - JVS(14180) = B(17945) -! JVS(14181) = Jac_FULL(3183,5250) - JVS(14181) = B(17933)-B(19795)+B(19799)+B(19803) -! JVS(14182) = Jac_FULL(3183,5255) - JVS(14182) = 0 -! JVS(14183) = Jac_FULL(3184,1740) - JVS(14183) = B(19829) -! JVS(14184) = Jac_FULL(3184,2121) - JVS(14184) = B(19825) -! JVS(14185) = Jac_FULL(3184,3184) - JVS(14185) = -B(19820)-B(19821) -! JVS(14186) = Jac_FULL(3184,3493) - JVS(14186) = B(17962) -! JVS(14187) = Jac_FULL(3184,4361) - JVS(14187) = B(17975) -! JVS(14188) = Jac_FULL(3184,5250) - JVS(14188) = B(17963)-B(19822)+B(19826)+B(19830) -! JVS(14189) = Jac_FULL(3184,5255) - JVS(14189) = 0 -! JVS(14190) = Jac_FULL(3185,1674) - JVS(14190) = B(19859) -! JVS(14191) = Jac_FULL(3185,2221) - JVS(14191) = B(19855) -! JVS(14192) = Jac_FULL(3185,3185) - JVS(14192) = -B(19842)-B(19843) -! JVS(14193) = Jac_FULL(3185,3548) - JVS(14193) = B(17992) -! JVS(14194) = Jac_FULL(3185,4355) - JVS(14194) = B(18019) -! JVS(14195) = Jac_FULL(3185,5250) - JVS(14195) = B(17993)-B(19844)+B(19856)+B(19860) -! JVS(14196) = Jac_FULL(3185,5255) - JVS(14196) = 0 -! JVS(14197) = Jac_FULL(3186,3186) - JVS(14197) = -B(6460)-B(6461) -! JVS(14198) = Jac_FULL(3186,4017) - JVS(14198) = B(2981) -! JVS(14199) = Jac_FULL(3186,4018) - JVS(14199) = B(2933) -! JVS(14200) = Jac_FULL(3186,5141) - JVS(14200) = B(10141) -! JVS(14201) = Jac_FULL(3186,5258) - JVS(14201) = B(2934)+B(2982)+B(10142) -! JVS(14202) = Jac_FULL(3187,3187) - JVS(14202) = -B(15940)-B(15942) -! JVS(14203) = Jac_FULL(3187,4791) - JVS(14203) = B(12872) -! JVS(14204) = Jac_FULL(3187,5250) - JVS(14204) = -B(15943) -! JVS(14205) = Jac_FULL(3187,5253) - JVS(14205) = B(12873) -! JVS(14206) = Jac_FULL(3187,5256) - JVS(14206) = -B(15941) -! JVS(14207) = Jac_FULL(3188,3188) - JVS(14207) = -B(5194) -! JVS(14208) = Jac_FULL(3188,3671) - JVS(14208) = B(2328) -! JVS(14209) = Jac_FULL(3188,3721) - JVS(14209) = B(2332) -! JVS(14210) = Jac_FULL(3188,5250) - JVS(14210) = -B(5195) -! JVS(14211) = Jac_FULL(3188,5252) - JVS(14211) = B(2333) -! JVS(14212) = Jac_FULL(3189,3189) - JVS(14212) = -B(15801)-B(15803) -! JVS(14213) = Jac_FULL(3189,4676) - JVS(14213) = B(12745) -! JVS(14214) = Jac_FULL(3189,5250) - JVS(14214) = -B(15804) -! JVS(14215) = Jac_FULL(3189,5253) - JVS(14215) = B(12746) -! JVS(14216) = Jac_FULL(3189,5256) - JVS(14216) = -B(15802) -! JVS(14217) = Jac_FULL(3190,3190) - JVS(14217) = -B(16310)-B(16312) -! JVS(14218) = Jac_FULL(3190,4632) - JVS(14218) = B(13309) -! JVS(14219) = Jac_FULL(3190,5250) - JVS(14219) = -B(16313) -! JVS(14220) = Jac_FULL(3190,5253) - JVS(14220) = B(13310) -! JVS(14221) = Jac_FULL(3190,5256) - JVS(14221) = -B(16311) -! JVS(14222) = Jac_FULL(3191,3191) - JVS(14222) = -B(16135)-B(16137) -! JVS(14223) = Jac_FULL(3191,4810) - JVS(14223) = B(13063) -! JVS(14224) = Jac_FULL(3191,5250) - JVS(14224) = -B(16138) -! JVS(14225) = Jac_FULL(3191,5253) - JVS(14225) = B(13064) -! JVS(14226) = Jac_FULL(3191,5256) - JVS(14226) = -B(16136) -! JVS(14227) = Jac_FULL(3192,3192) - JVS(14227) = -B(699)-B(701)-B(703)-B(705)-B(707) -! JVS(14228) = Jac_FULL(3192,5250) - JVS(14228) = -B(702)-B(704)-B(706)-B(708) -! JVS(14229) = Jac_FULL(3192,5256) - JVS(14229) = -B(700) -! JVS(14230) = Jac_FULL(3193,3192) - JVS(14230) = B(707) -! JVS(14231) = Jac_FULL(3193,3193) - JVS(14231) = -B(2832)-B(2834)-B(2836)-B(2838)-B(2840)-B(2842) -! JVS(14232) = Jac_FULL(3193,5250) - JVS(14232) = B(708)-B(2839)-B(2841)-B(2843) -! JVS(14233) = Jac_FULL(3193,5256) - JVS(14233) = -B(2833)-B(2835)-B(2837) -! JVS(14234) = Jac_FULL(3194,2544) - JVS(14234) = B(10610) -! JVS(14235) = Jac_FULL(3194,3194) - JVS(14235) = -B(10624) -! JVS(14236) = Jac_FULL(3194,4786) - JVS(14236) = B(10617) -! JVS(14237) = Jac_FULL(3194,5224) - JVS(14237) = B(6818)+B(6820)+B(6824) -! JVS(14238) = Jac_FULL(3194,5250) - JVS(14238) = 0 -! JVS(14239) = Jac_FULL(3194,5252) - JVS(14239) = B(6819) -! JVS(14240) = Jac_FULL(3194,5255) - JVS(14240) = 0 -! JVS(14241) = Jac_FULL(3194,5256) - JVS(14241) = B(6821) -! JVS(14242) = Jac_FULL(3195,68) - JVS(14242) = B(9640) -! JVS(14243) = Jac_FULL(3195,884) - JVS(14243) = B(9638) -! JVS(14244) = Jac_FULL(3195,1647) - JVS(14244) = B(9624) -! JVS(14245) = Jac_FULL(3195,2740) - JVS(14245) = B(9620) -! JVS(14246) = Jac_FULL(3195,3195) - JVS(14246) = -B(9639) -! JVS(14247) = Jac_FULL(3195,3627) - JVS(14247) = B(5961)+B(5963)+B(5965) -! JVS(14248) = Jac_FULL(3195,3663) - JVS(14248) = 0 -! JVS(14249) = Jac_FULL(3195,5250) - JVS(14249) = B(9641) -! JVS(14250) = Jac_FULL(3195,5252) - JVS(14250) = B(5962) -! JVS(14251) = Jac_FULL(3195,5255) - JVS(14251) = 0 -! JVS(14252) = Jac_FULL(3195,5256) - JVS(14252) = B(5964) -! JVS(14253) = Jac_FULL(3196,3196) - JVS(14253) = -B(15695)-B(15697)-B(15698) -! JVS(14254) = Jac_FULL(3196,4558) - JVS(14254) = B(12621) -! JVS(14255) = Jac_FULL(3196,5250) - JVS(14255) = -B(15696) -! JVS(14256) = Jac_FULL(3196,5255) - JVS(14256) = B(12622) -! JVS(14257) = Jac_FULL(3197,3197) - JVS(14257) = -B(16631)-B(16632) -! JVS(14258) = Jac_FULL(3197,5033) - JVS(14258) = B(13804) -! JVS(14259) = Jac_FULL(3197,5250) - JVS(14259) = -B(16633) -! JVS(14260) = Jac_FULL(3197,5253) - JVS(14260) = B(13805) -! JVS(14261) = Jac_FULL(3198,3198) - JVS(14261) = -B(4007)-B(4009)-B(4011) -! JVS(14262) = Jac_FULL(3198,4585) - JVS(14262) = B(1230) -! JVS(14263) = Jac_FULL(3198,5250) - JVS(14263) = -B(4008)-B(4010) -! JVS(14264) = Jac_FULL(3198,5255) - JVS(14264) = B(1231) -! JVS(14265) = Jac_FULL(3199,3199) - JVS(14265) = -B(13057)-B(13059) -! JVS(14266) = Jac_FULL(3199,4375) - JVS(14266) = B(9611) -! JVS(14267) = Jac_FULL(3199,5250) - JVS(14267) = -B(13058) -! JVS(14268) = Jac_FULL(3199,5253) - JVS(14268) = B(9612) -! JVS(14269) = Jac_FULL(3200,1576) - JVS(14269) = B(10304) -! JVS(14270) = Jac_FULL(3200,2137) - JVS(14270) = B(10299) -! JVS(14271) = Jac_FULL(3200,3200) - JVS(14271) = -B(10307)-B(10309) -! JVS(14272) = Jac_FULL(3200,4813) - JVS(14272) = B(6580) -! JVS(14273) = Jac_FULL(3200,5250) - JVS(14273) = B(10300)+B(10305)-B(10308) -! JVS(14274) = Jac_FULL(3200,5255) - JVS(14274) = 0 -! JVS(14275) = Jac_FULL(3201,3201) - JVS(14275) = -B(16634)-B(16636) -! JVS(14276) = Jac_FULL(3201,4711) - JVS(14276) = B(13811) -! JVS(14277) = Jac_FULL(3201,5250) - JVS(14277) = -B(16635) -! JVS(14278) = Jac_FULL(3201,5255) - JVS(14278) = B(13812) -! JVS(14279) = Jac_FULL(3202,3202) - JVS(14279) = -B(2295)-B(2296)-B(2297)-B(2298) -! JVS(14280) = Jac_FULL(3202,4604) - JVS(14280) = B(567) -! JVS(14281) = Jac_FULL(3202,4606) - JVS(14281) = B(579) -! JVS(14282) = Jac_FULL(3202,5258) - JVS(14282) = B(568)+B(580) -! JVS(14283) = Jac_FULL(3203,3203) - JVS(14283) = -B(11672)-B(11674)-B(11676) -! JVS(14284) = Jac_FULL(3203,5036) - JVS(14284) = B(7938) -! JVS(14285) = Jac_FULL(3203,5250) - JVS(14285) = -B(11673)-B(11675) -! JVS(14286) = Jac_FULL(3203,5255) - JVS(14286) = B(7939) -! JVS(14287) = Jac_FULL(3204,3204) - JVS(14287) = -B(16551)-B(16552) -! JVS(14288) = Jac_FULL(3204,5025) - JVS(14288) = B(13700) -! JVS(14289) = Jac_FULL(3204,5250) - JVS(14289) = -B(16553) -! JVS(14290) = Jac_FULL(3204,5253) - JVS(14290) = B(13701) -! JVS(14291) = Jac_FULL(3205,3205) - JVS(14291) = -B(11499)-B(11500)-B(11502) -! JVS(14292) = Jac_FULL(3205,4359) - JVS(14292) = B(7700) -! JVS(14293) = Jac_FULL(3205,5250) - JVS(14293) = -B(11501)-B(11503) -! JVS(14294) = Jac_FULL(3205,5255) - JVS(14294) = B(7701) -! JVS(14295) = Jac_FULL(3206,3206) - JVS(14295) = -B(9080)-B(9082) -! JVS(14296) = Jac_FULL(3206,4892) - JVS(14296) = B(5518) -! JVS(14297) = Jac_FULL(3206,5250) - JVS(14297) = -B(9081) -! JVS(14298) = Jac_FULL(3206,5253) - JVS(14298) = B(5519) -! JVS(14299) = Jac_FULL(3207,3207) - JVS(14299) = -B(3961)-B(3963)-B(3964) -! JVS(14300) = Jac_FULL(3207,4698) - JVS(14300) = B(1192) -! JVS(14301) = Jac_FULL(3207,5250) - JVS(14301) = -B(3962) -! JVS(14302) = Jac_FULL(3207,5255) - JVS(14302) = B(1193) -! JVS(14303) = Jac_FULL(3208,3208) - JVS(14303) = -B(4871)-B(4873)-B(4875) -! JVS(14304) = Jac_FULL(3208,5149) - JVS(14304) = B(2042) -! JVS(14305) = Jac_FULL(3208,5250) - JVS(14305) = -B(4872)-B(4874) -! JVS(14306) = Jac_FULL(3208,5255) - JVS(14306) = B(2043) -! JVS(14307) = Jac_FULL(3209,3209) - JVS(14307) = -B(15604)-B(15606)-B(15607) -! JVS(14308) = Jac_FULL(3209,4968) - JVS(14308) = B(12515) -! JVS(14309) = Jac_FULL(3209,5250) - JVS(14309) = -B(15605) -! JVS(14310) = Jac_FULL(3209,5255) - JVS(14310) = B(12516) -! JVS(14311) = Jac_FULL(3210,3210) - JVS(14311) = -B(5908)-B(5909)-B(5910)-B(5911) -! JVS(14312) = Jac_FULL(3210,4093) - JVS(14312) = B(2670) -! JVS(14313) = Jac_FULL(3210,5068) - JVS(14313) = B(9528) -! JVS(14314) = Jac_FULL(3210,5258) - JVS(14314) = B(2671)+B(9529) -! JVS(14315) = Jac_FULL(3211,3211) - JVS(14315) = -B(21552)-B(21554) -! JVS(14316) = Jac_FULL(3211,4826) - JVS(14316) = B(20325) -! JVS(14317) = Jac_FULL(3211,5250) - JVS(14317) = -B(21553) -! JVS(14318) = Jac_FULL(3211,5255) - JVS(14318) = B(20326) -! JVS(14319) = Jac_FULL(3212,3212) - JVS(14319) = -B(12013)-B(12014) -! JVS(14320) = Jac_FULL(3212,4722) - JVS(14320) = B(8269) -! JVS(14321) = Jac_FULL(3212,5250) - JVS(14321) = -B(12015) -! JVS(14322) = Jac_FULL(3212,5252) - JVS(14322) = B(8270) -! JVS(14323) = Jac_FULL(3213,409) - JVS(14323) = B(22046) -! JVS(14324) = Jac_FULL(3213,1004) - JVS(14324) = B(22036) -! JVS(14325) = Jac_FULL(3213,2157) - JVS(14325) = B(22039) -! JVS(14326) = Jac_FULL(3213,2666) - JVS(14326) = B(21007) -! JVS(14327) = Jac_FULL(3213,3213) - JVS(14327) = -B(22043)-B(22045) -! JVS(14328) = Jac_FULL(3213,3789) - JVS(14328) = B(21004) -! JVS(14329) = Jac_FULL(3213,4679) - JVS(14329) = 0 -! JVS(14330) = Jac_FULL(3213,5250) - JVS(14330) = B(21008)+B(22037)+B(22040)-B(22044)+B(22047) -! JVS(14331) = Jac_FULL(3213,5252) - JVS(14331) = 0 -! JVS(14332) = Jac_FULL(3213,5253) - JVS(14332) = 0 -! JVS(14333) = Jac_FULL(3213,5255) - JVS(14333) = 0 -! JVS(14334) = Jac_FULL(3214,3214) - JVS(14334) = -B(15634)-B(15636)-B(15638) -! JVS(14335) = Jac_FULL(3214,4669) - JVS(14335) = B(12546) -! JVS(14336) = Jac_FULL(3214,5250) - JVS(14336) = -B(15635)-B(15637) -! JVS(14337) = Jac_FULL(3214,5255) - JVS(14337) = B(12547) -! JVS(14338) = Jac_FULL(3215,2568) - JVS(14338) = B(20549) -! JVS(14339) = Jac_FULL(3215,3215) - JVS(14339) = -B(20545) -! JVS(14340) = Jac_FULL(3215,3216) - JVS(14340) = B(20544) -! JVS(14341) = Jac_FULL(3215,3217) - JVS(14341) = 0 -! JVS(14342) = Jac_FULL(3215,3837) - JVS(14342) = B(18945)+B(18947)+B(18950) -! JVS(14343) = Jac_FULL(3215,5250) - JVS(14343) = B(20550) -! JVS(14344) = Jac_FULL(3215,5252) - JVS(14344) = B(18946) -! JVS(14345) = Jac_FULL(3215,5256) - JVS(14345) = B(18948) -! JVS(14346) = Jac_FULL(3216,3216) - JVS(14346) = -B(20541)-B(20543)-B(20544) -! JVS(14347) = Jac_FULL(3216,3837) - JVS(14347) = B(18943) -! JVS(14348) = Jac_FULL(3216,5250) - JVS(14348) = -B(20542) -! JVS(14349) = Jac_FULL(3216,5255) - JVS(14349) = B(18944) -! JVS(14350) = Jac_FULL(3217,3217) - JVS(14350) = -B(21611)-B(21613)-B(21614) -! JVS(14351) = Jac_FULL(3217,4123) - JVS(14351) = B(20500) -! JVS(14352) = Jac_FULL(3217,5250) - JVS(14352) = -B(21612) -! JVS(14353) = Jac_FULL(3217,5255) - JVS(14353) = B(20501) -! JVS(14354) = Jac_FULL(3218,3218) - JVS(14354) = -B(21252)-B(21253) -! JVS(14355) = Jac_FULL(3218,4443) - JVS(14355) = B(19810) -! JVS(14356) = Jac_FULL(3218,5250) - JVS(14356) = -B(21254) -! JVS(14357) = Jac_FULL(3218,5253) - JVS(14357) = B(19811) -! JVS(14358) = Jac_FULL(3219,627) - JVS(14358) = B(6511) -! JVS(14359) = Jac_FULL(3219,3169) - JVS(14359) = B(743) -! JVS(14360) = Jac_FULL(3219,3219) - JVS(14360) = -B(2960)-B(2962)-B(2964)-B(2966) -! JVS(14361) = Jac_FULL(3219,5250) - JVS(14361) = B(744)-B(2965)-B(2967) -! JVS(14362) = Jac_FULL(3219,5255) - JVS(14362) = B(6512) -! JVS(14363) = Jac_FULL(3219,5256) - JVS(14363) = -B(2961)-B(2963) -! JVS(14364) = Jac_FULL(3220,3220) - JVS(14364) = -B(12510)-B(12512) -! JVS(14365) = Jac_FULL(3220,4591) - JVS(14365) = B(8906) -! JVS(14366) = Jac_FULL(3220,5250) - JVS(14366) = -B(12511) -! JVS(14367) = Jac_FULL(3220,5253) - JVS(14367) = B(8907) -! JVS(14368) = Jac_FULL(3221,3221) - JVS(14368) = -B(16167)-B(16169) -! JVS(14369) = Jac_FULL(3221,4888) - JVS(14369) = B(13089) -! JVS(14370) = Jac_FULL(3221,5250) - JVS(14370) = -B(16168) -! JVS(14371) = Jac_FULL(3221,5253) - JVS(14371) = B(13090) -! JVS(14372) = Jac_FULL(3222,3222) - JVS(14372) = -B(7029)-B(7031)-B(7033)-B(7034) -! JVS(14373) = Jac_FULL(3222,5151) - JVS(14373) = B(3236) -! JVS(14374) = Jac_FULL(3222,5250) - JVS(14374) = -B(7030)-B(7032) -! JVS(14375) = Jac_FULL(3222,5255) - JVS(14375) = B(3237) -! JVS(14376) = Jac_FULL(3223,3223) - JVS(14376) = -B(16905)-B(16907) -! JVS(14377) = Jac_FULL(3223,4910) - JVS(14377) = B(14262) -! JVS(14378) = Jac_FULL(3223,5250) - JVS(14378) = -B(16906) -! JVS(14379) = Jac_FULL(3223,5253) - JVS(14379) = B(14263) -! JVS(14380) = Jac_FULL(3224,3224) - JVS(14380) = -B(21555)-B(21557) -! JVS(14381) = Jac_FULL(3224,4826) - JVS(14381) = B(20331) -! JVS(14382) = Jac_FULL(3224,5250) - JVS(14382) = -B(21556) -! JVS(14383) = Jac_FULL(3224,5253) - JVS(14383) = B(20332) -! JVS(14384) = Jac_FULL(3225,3225) - JVS(14384) = -B(12937)-B(12939)-B(12940) -! JVS(14385) = Jac_FULL(3225,4917) - JVS(14385) = B(9438) -! JVS(14386) = Jac_FULL(3225,5250) - JVS(14386) = -B(12938) -! JVS(14387) = Jac_FULL(3225,5255) - JVS(14387) = B(9439) -! JVS(14388) = Jac_FULL(3226,3226) - JVS(14388) = -B(13031)-B(13033)-B(13034) -! JVS(14389) = Jac_FULL(3226,4930) - JVS(14389) = B(9549) -! JVS(14390) = Jac_FULL(3226,5250) - JVS(14390) = -B(13032) -! JVS(14391) = Jac_FULL(3226,5255) - JVS(14391) = B(9550) -! JVS(14392) = Jac_FULL(3227,3227) - JVS(14392) = -B(9763)-B(9765) -! JVS(14393) = Jac_FULL(3227,4948) - JVS(14393) = B(6064)+B(6075) -! JVS(14394) = Jac_FULL(3227,5250) - JVS(14394) = -B(9764) -! JVS(14395) = Jac_FULL(3227,5255) - JVS(14395) = B(6065) -! JVS(14396) = Jac_FULL(3228,968) - JVS(14396) = B(6828) -! JVS(14397) = Jac_FULL(3228,3228) - JVS(14397) = -B(6838)-B(6840)-B(6842) -! JVS(14398) = Jac_FULL(3228,5132) - JVS(14398) = B(3132) -! JVS(14399) = Jac_FULL(3228,5250) - JVS(14399) = B(6829)-B(6839)-B(6841) -! JVS(14400) = Jac_FULL(3228,5255) - JVS(14400) = 0 -! JVS(14401) = Jac_FULL(3229,3229) - JVS(14401) = -B(12728)-B(12730) -! JVS(14402) = Jac_FULL(3229,4100) - JVS(14402) = B(9168) -! JVS(14403) = Jac_FULL(3229,5250) - JVS(14403) = -B(12729) -! JVS(14404) = Jac_FULL(3229,5253) - JVS(14404) = B(9169) -! JVS(14405) = Jac_FULL(3230,568) - JVS(14405) = B(9294) -! JVS(14406) = Jac_FULL(3230,3230) - JVS(14406) = -B(12800)-B(12802) -! JVS(14407) = Jac_FULL(3230,3831) - JVS(14407) = 0 -! JVS(14408) = Jac_FULL(3230,5250) - JVS(14408) = -B(12801) -! JVS(14409) = Jac_FULL(3230,5258) - JVS(14409) = 0 -! JVS(14410) = Jac_FULL(3231,3231) - JVS(14410) = -B(12227)-B(12229)-B(12230) -! JVS(14411) = Jac_FULL(3231,4856) - JVS(14411) = B(8514) -! JVS(14412) = Jac_FULL(3231,5250) - JVS(14412) = -B(12228) -! JVS(14413) = Jac_FULL(3231,5255) - JVS(14413) = B(8515) -! JVS(14414) = Jac_FULL(3232,3232) - JVS(14414) = -B(13214)-B(13216) -! JVS(14415) = Jac_FULL(3232,4181) - JVS(14415) = B(9805) -! JVS(14416) = Jac_FULL(3232,5250) - JVS(14416) = -B(13215) -! JVS(14417) = Jac_FULL(3232,5253) - JVS(14417) = B(9806) -! JVS(14418) = Jac_FULL(3233,2226) - JVS(14418) = B(23960) -! JVS(14419) = Jac_FULL(3233,2304) - JVS(14419) = B(23730) -! JVS(14420) = Jac_FULL(3233,2719) - JVS(14420) = B(23475) -! JVS(14421) = Jac_FULL(3233,2855) - JVS(14421) = 0 -! JVS(14422) = Jac_FULL(3233,2856) - JVS(14422) = B(23864) -! JVS(14423) = Jac_FULL(3233,3233) - JVS(14423) = -B(21646) -! JVS(14424) = Jac_FULL(3233,3855) - JVS(14424) = 0 -! JVS(14425) = Jac_FULL(3233,3882) - JVS(14425) = 0 -! JVS(14426) = Jac_FULL(3233,4216) - JVS(14426) = 0 -! JVS(14427) = Jac_FULL(3233,4319) - JVS(14427) = 0 -! JVS(14428) = Jac_FULL(3233,5004) - JVS(14428) = B(20596)+B(20608) -! JVS(14429) = Jac_FULL(3233,5250) - JVS(14429) = -B(21647)+B(23476)+B(23865) -! JVS(14430) = Jac_FULL(3233,5252) - JVS(14430) = 0 -! JVS(14431) = Jac_FULL(3233,5255) - JVS(14431) = B(20597) -! JVS(14432) = Jac_FULL(3233,5256) - JVS(14432) = 0 -! JVS(14433) = Jac_FULL(3234,1289) - JVS(14433) = B(10452) -! JVS(14434) = Jac_FULL(3234,3234) - JVS(14434) = -B(10458) -! JVS(14435) = Jac_FULL(3234,4958) - JVS(14435) = B(10455) -! JVS(14436) = Jac_FULL(3234,5020) - JVS(14436) = B(6727)+B(6729)+B(6732) -! JVS(14437) = Jac_FULL(3234,5250) - JVS(14437) = 0 -! JVS(14438) = Jac_FULL(3234,5252) - JVS(14438) = B(6728) -! JVS(14439) = Jac_FULL(3234,5255) - JVS(14439) = 0 -! JVS(14440) = Jac_FULL(3234,5256) - JVS(14440) = B(6730) -! JVS(14441) = Jac_FULL(3235,3235) - JVS(14441) = -B(10223)-B(10225)-B(10226) -! JVS(14442) = Jac_FULL(3235,3659) - JVS(14442) = B(6513) -! JVS(14443) = Jac_FULL(3235,5250) - JVS(14443) = -B(10224) -! JVS(14444) = Jac_FULL(3235,5255) - JVS(14444) = B(6514) -! JVS(14445) = Jac_FULL(3236,3236) - JVS(14445) = -B(20481)-B(20482) -! JVS(14446) = Jac_FULL(3236,4657) - JVS(14446) = B(18890) -! JVS(14447) = Jac_FULL(3236,5250) - JVS(14447) = -B(20483) -! JVS(14448) = Jac_FULL(3236,5253) - JVS(14448) = B(18891) -! JVS(14449) = Jac_FULL(3237,3237) - JVS(14449) = -B(18346)-B(18348)-B(18349) -! JVS(14450) = Jac_FULL(3237,4966) - JVS(14450) = B(15918) -! JVS(14451) = Jac_FULL(3237,5250) - JVS(14451) = -B(18347) -! JVS(14452) = Jac_FULL(3237,5255) - JVS(14452) = B(15919) -! JVS(14453) = Jac_FULL(3238,3238) - JVS(14453) = -B(9360)-B(9362)-B(9363) -! JVS(14454) = Jac_FULL(3238,4667) - JVS(14454) = B(5744) -! JVS(14455) = Jac_FULL(3238,5250) - JVS(14455) = -B(9361) -! JVS(14456) = Jac_FULL(3238,5255) - JVS(14456) = B(5745) -! JVS(14457) = Jac_FULL(3239,3239) - JVS(14457) = -B(14195)-B(14196) -! JVS(14458) = Jac_FULL(3239,4836) - JVS(14458) = B(11006) -! JVS(14459) = Jac_FULL(3239,5250) - JVS(14459) = -B(14197) -! JVS(14460) = Jac_FULL(3239,5253) - JVS(14460) = B(11007) -! JVS(14461) = Jac_FULL(3240,3240) - JVS(14461) = -B(16510)-B(16512) -! JVS(14462) = Jac_FULL(3240,4321) - JVS(14462) = B(13647) -! JVS(14463) = Jac_FULL(3240,5250) - JVS(14463) = -B(16511) -! JVS(14464) = Jac_FULL(3240,5252) - JVS(14464) = B(13648) -! JVS(14465) = Jac_FULL(3241,105) - JVS(14465) = B(10560) -! JVS(14466) = Jac_FULL(3241,2252) - JVS(14466) = B(10545) -! JVS(14467) = Jac_FULL(3241,3241) - JVS(14467) = -B(10559) -! JVS(14468) = Jac_FULL(3241,4615) - JVS(14468) = B(10550) -! JVS(14469) = Jac_FULL(3241,5219) - JVS(14469) = B(6791)+B(6793)+B(6796) -! JVS(14470) = Jac_FULL(3241,5250) - JVS(14470) = B(10561) -! JVS(14471) = Jac_FULL(3241,5252) - JVS(14471) = B(6792) -! JVS(14472) = Jac_FULL(3241,5255) - JVS(14472) = 0 -! JVS(14473) = Jac_FULL(3241,5256) - JVS(14473) = B(6794) -! JVS(14474) = Jac_FULL(3242,413) - JVS(14474) = B(17244) -! JVS(14475) = Jac_FULL(3242,1523) - JVS(14475) = B(17235) -! JVS(14476) = Jac_FULL(3242,1619) - JVS(14476) = B(17234) -! JVS(14477) = Jac_FULL(3242,1769) - JVS(14477) = B(17228) -! JVS(14478) = Jac_FULL(3242,2165) - JVS(14478) = B(17238) -! JVS(14479) = Jac_FULL(3242,2737) - JVS(14479) = B(17227) -! JVS(14480) = Jac_FULL(3242,2860) - JVS(14480) = B(17199) -! JVS(14481) = Jac_FULL(3242,3242) - JVS(14481) = -B(17242) -! JVS(14482) = Jac_FULL(3242,3564) - JVS(14482) = B(14782) -! JVS(14483) = Jac_FULL(3242,4542) - JVS(14483) = 0 -! JVS(14484) = Jac_FULL(3242,4921) - JVS(14484) = 0 -! JVS(14485) = Jac_FULL(3242,4940) - JVS(14485) = B(14620) -! JVS(14486) = Jac_FULL(3242,5250) - JVS(14486) = B(17200)+B(17236)+B(17239)-B(17243)+B(17245) -! JVS(14487) = Jac_FULL(3242,5252) - JVS(14487) = 0 -! JVS(14488) = Jac_FULL(3242,5253) - JVS(14488) = 0 -! JVS(14489) = Jac_FULL(3242,5255) - JVS(14489) = 0 -! JVS(14490) = Jac_FULL(3242,5256) - JVS(14490) = 0 -! JVS(14491) = Jac_FULL(3243,3243) - JVS(14491) = -B(4061)-B(4063)-B(4065) -! JVS(14492) = Jac_FULL(3243,4596) - JVS(14492) = B(1258) -! JVS(14493) = Jac_FULL(3243,5250) - JVS(14493) = -B(4062)-B(4064) -! JVS(14494) = Jac_FULL(3243,5255) - JVS(14494) = B(1259) -! JVS(14495) = Jac_FULL(3244,677) - JVS(14495) = B(6481) -! JVS(14496) = Jac_FULL(3244,3182) - JVS(14496) = B(737) -! JVS(14497) = Jac_FULL(3244,3244) - JVS(14497) = -B(2941)-B(2943)-B(2945)-B(2947) -! JVS(14498) = Jac_FULL(3244,5250) - JVS(14498) = B(738)-B(2946)-B(2948) -! JVS(14499) = Jac_FULL(3244,5255) - JVS(14499) = B(6482) -! JVS(14500) = Jac_FULL(3244,5256) - JVS(14500) = -B(2942)-B(2944) -! JVS(14501) = Jac_FULL(3245,2489) - JVS(14501) = B(13730) -! JVS(14502) = Jac_FULL(3245,3245) - JVS(14502) = -B(3661) -! JVS(14503) = Jac_FULL(3245,4351) - JVS(14503) = B(2006) -! JVS(14504) = Jac_FULL(3245,4615) - JVS(14504) = 0 -! JVS(14505) = Jac_FULL(3245,5121) - JVS(14505) = B(952) -! JVS(14506) = Jac_FULL(3245,5250) - JVS(14506) = -B(3662) -! JVS(14507) = Jac_FULL(3245,5252) - JVS(14507) = B(953) -! JVS(14508) = Jac_FULL(3245,5258) - JVS(14508) = 0 -! JVS(14509) = Jac_FULL(3246,13) - JVS(14509) = B(9842) -! JVS(14510) = Jac_FULL(3246,1218) - JVS(14510) = B(9840) -! JVS(14511) = Jac_FULL(3246,1589) - JVS(14511) = B(9837) -! JVS(14512) = Jac_FULL(3246,2585) - JVS(14512) = B(9833) -! JVS(14513) = Jac_FULL(3246,3246) - JVS(14513) = -B(9841) -! JVS(14514) = Jac_FULL(3246,3641) - JVS(14514) = 0 -! JVS(14515) = Jac_FULL(3246,3648) - JVS(14515) = B(6135)+B(6137)+B(6139) -! JVS(14516) = Jac_FULL(3246,5250) - JVS(14516) = B(9843) -! JVS(14517) = Jac_FULL(3246,5252) - JVS(14517) = B(6136) -! JVS(14518) = Jac_FULL(3246,5255) - JVS(14518) = 0 -! JVS(14519) = Jac_FULL(3246,5256) - JVS(14519) = B(6138) -! JVS(14520) = Jac_FULL(3247,726) - JVS(14520) = B(17249) -! JVS(14521) = Jac_FULL(3247,1372) - JVS(14521) = B(17250) -! JVS(14522) = Jac_FULL(3247,1373) - JVS(14522) = 0 -! JVS(14523) = Jac_FULL(3247,3247) - JVS(14523) = -B(19044)-B(19045) -! JVS(14524) = Jac_FULL(3247,5039) - JVS(14524) = 0 -! JVS(14525) = Jac_FULL(3247,5214) - JVS(14525) = B(16842)+B(16854) -! JVS(14526) = Jac_FULL(3247,5250) - JVS(14526) = B(17251)-B(19046) -! JVS(14527) = Jac_FULL(3247,5252) - JVS(14527) = 0 -! JVS(14528) = Jac_FULL(3247,5255) - JVS(14528) = B(16843) -! JVS(14529) = Jac_FULL(3247,5256) - JVS(14529) = 0 -! JVS(14530) = Jac_FULL(3248,3248) - JVS(14530) = -B(22888)-B(22890)-B(22892) -! JVS(14531) = Jac_FULL(3248,3913) - JVS(14531) = B(22417) -! JVS(14532) = Jac_FULL(3248,5250) - JVS(14532) = -B(22891) -! JVS(14533) = Jac_FULL(3248,5256) - JVS(14533) = -B(22889) -! JVS(14534) = Jac_FULL(3249,3249) - JVS(14534) = -B(16414)-B(16416) -! JVS(14535) = Jac_FULL(3249,4946) - JVS(14535) = B(13381) -! JVS(14536) = Jac_FULL(3249,5250) - JVS(14536) = -B(16415) -! JVS(14537) = Jac_FULL(3249,5253) - JVS(14537) = B(13382) -! JVS(14538) = Jac_FULL(3250,3250) - JVS(14538) = -B(18738)-B(18739)-B(18740) -! JVS(14539) = Jac_FULL(3250,3501) - JVS(14539) = B(16506) -! JVS(14540) = Jac_FULL(3250,3550) - JVS(14540) = B(16674) -! JVS(14541) = Jac_FULL(3250,5250) - JVS(14541) = B(16507)+B(16675)-B(18741) -! JVS(14542) = Jac_FULL(3251,1600) - JVS(14542) = B(9891) -! JVS(14543) = Jac_FULL(3251,3251) - JVS(14543) = -B(9894)-B(9896)-B(9897) -! JVS(14544) = Jac_FULL(3251,3624) - JVS(14544) = B(9885) -! JVS(14545) = Jac_FULL(3251,4935) - JVS(14545) = B(6181) -! JVS(14546) = Jac_FULL(3251,5250) - JVS(14546) = B(9886)+B(9892)-B(9895) -! JVS(14547) = Jac_FULL(3252,1949) - JVS(14547) = B(16109) -! JVS(14548) = Jac_FULL(3252,3252) - JVS(14548) = -B(8584) -! JVS(14549) = Jac_FULL(3252,4160) - JVS(14549) = B(5053) -! JVS(14550) = Jac_FULL(3252,4688) - JVS(14550) = B(13013)+B(13015)+B(13019) -! JVS(14551) = Jac_FULL(3252,5250) - JVS(14551) = 0 -! JVS(14552) = Jac_FULL(3252,5252) - JVS(14552) = B(13014) -! JVS(14553) = Jac_FULL(3252,5255) - JVS(14553) = 0 -! JVS(14554) = Jac_FULL(3252,5256) - JVS(14554) = B(13016) -! JVS(14555) = Jac_FULL(3253,3253) - JVS(14555) = -B(8781)-B(8783)-B(8784) -! JVS(14556) = Jac_FULL(3253,3827) - JVS(14556) = B(5311) -! JVS(14557) = Jac_FULL(3253,5250) - JVS(14557) = -B(8782) -! JVS(14558) = Jac_FULL(3253,5255) - JVS(14558) = B(5312) -! JVS(14559) = Jac_FULL(3254,3254) - JVS(14559) = -B(4229)-B(4230) -! JVS(14560) = Jac_FULL(3254,4954) - JVS(14560) = B(1453) -! JVS(14561) = Jac_FULL(3254,5250) - JVS(14561) = -B(4231) -! JVS(14562) = Jac_FULL(3254,5253) - JVS(14562) = B(1454) -! JVS(14563) = Jac_FULL(3255,3255) - JVS(14563) = -B(7745) -! JVS(14564) = Jac_FULL(3255,3336) - JVS(14564) = B(19584) -! JVS(14565) = Jac_FULL(3255,3547) - JVS(14565) = B(3959) -! JVS(14566) = Jac_FULL(3255,4546) - JVS(14566) = B(17580)+B(17582)+B(17584) -! JVS(14567) = Jac_FULL(3255,5250) - JVS(14567) = B(3960) -! JVS(14568) = Jac_FULL(3255,5252) - JVS(14568) = B(17581) -! JVS(14569) = Jac_FULL(3255,5256) - JVS(14569) = B(17583) -! JVS(14570) = Jac_FULL(3256,3256) - JVS(14570) = -B(4072)-B(4074)-B(4076) -! JVS(14571) = Jac_FULL(3256,4554) - JVS(14571) = B(1269) -! JVS(14572) = Jac_FULL(3256,5250) - JVS(14572) = -B(4073)-B(4075) -! JVS(14573) = Jac_FULL(3256,5255) - JVS(14573) = B(1270) -! JVS(14574) = Jac_FULL(3257,3257) - JVS(14574) = -B(22287)-B(22289) -! JVS(14575) = Jac_FULL(3257,4831) - JVS(14575) = B(21540) -! JVS(14576) = Jac_FULL(3257,5250) - JVS(14576) = -B(22288) -! JVS(14577) = Jac_FULL(3257,5253) - JVS(14577) = B(21541) -! JVS(14578) = Jac_FULL(3258,3258) - JVS(14578) = -B(9850)-B(9852) -! JVS(14579) = Jac_FULL(3258,4807) - JVS(14579) = B(6149) -! JVS(14580) = Jac_FULL(3258,5250) - JVS(14580) = -B(9851) -! JVS(14581) = Jac_FULL(3258,5253) - JVS(14581) = B(6150) -! JVS(14582) = Jac_FULL(3259,3259) - JVS(14582) = -B(18989)-B(18990)-B(18991) -! JVS(14583) = Jac_FULL(3259,4106) - JVS(14583) = B(16780) -! JVS(14584) = Jac_FULL(3259,5250) - JVS(14584) = -B(18992) -! JVS(14585) = Jac_FULL(3259,5255) - JVS(14585) = B(16781) -! JVS(14586) = Jac_FULL(3260,3260) - JVS(14586) = -B(11742)-B(11743) -! JVS(14587) = Jac_FULL(3260,4860) - JVS(14587) = B(8013) -! JVS(14588) = Jac_FULL(3260,5250) - JVS(14588) = -B(11744) -! JVS(14589) = Jac_FULL(3260,5253) - JVS(14589) = B(8014) -! JVS(14590) = Jac_FULL(3261,3261) - JVS(14590) = -B(18769)-B(18771)-B(18772) -! JVS(14591) = Jac_FULL(3261,4180) - JVS(14591) = B(16539) -! JVS(14592) = Jac_FULL(3261,5250) - JVS(14592) = -B(18770) -! JVS(14593) = Jac_FULL(3261,5255) - JVS(14593) = B(16540) -! JVS(14594) = Jac_FULL(3262,1665) - JVS(14594) = B(10183) -! JVS(14595) = Jac_FULL(3262,3262) - JVS(14595) = -B(10186)-B(10188) -! JVS(14596) = Jac_FULL(3262,3702) - JVS(14596) = B(10177) -! JVS(14597) = Jac_FULL(3262,4992) - JVS(14597) = B(6480) -! JVS(14598) = Jac_FULL(3262,5250) - JVS(14598) = B(10178)+B(10184)-B(10187) -! JVS(14599) = Jac_FULL(3263,707) - JVS(14599) = B(6131) -! JVS(14600) = Jac_FULL(3263,3097) - JVS(14600) = B(693) -! JVS(14601) = Jac_FULL(3263,3263) - JVS(14601) = -B(2783)-B(2785)-B(2787)-B(2789) -! JVS(14602) = Jac_FULL(3263,5250) - JVS(14602) = B(694)-B(2788)-B(2790) -! JVS(14603) = Jac_FULL(3263,5255) - JVS(14603) = B(6132) -! JVS(14604) = Jac_FULL(3263,5256) - JVS(14604) = -B(2784)-B(2786) -! JVS(14605) = Jac_FULL(3264,3264) - JVS(14605) = -B(9778)-B(9780) -! JVS(14606) = Jac_FULL(3264,4803) - JVS(14606) = B(6080) -! JVS(14607) = Jac_FULL(3264,5250) - JVS(14607) = -B(9779) -! JVS(14608) = Jac_FULL(3264,5252) - JVS(14608) = B(6081) -! JVS(14609) = Jac_FULL(3265,3265) - JVS(14609) = -B(3762)-B(3764)-B(3766) -! JVS(14610) = Jac_FULL(3265,4767) - JVS(14610) = B(1042) -! JVS(14611) = Jac_FULL(3265,5250) - JVS(14611) = -B(3763)-B(3765) -! JVS(14612) = Jac_FULL(3265,5255) - JVS(14612) = B(1043) -! JVS(14613) = Jac_FULL(3266,3266) - JVS(14613) = -B(4994)-B(4996)-B(4998) -! JVS(14614) = Jac_FULL(3266,4476) - JVS(14614) = B(2149) -! JVS(14615) = Jac_FULL(3266,5250) - JVS(14615) = -B(4995)-B(4997) -! JVS(14616) = Jac_FULL(3266,5255) - JVS(14616) = B(2150) -! JVS(14617) = Jac_FULL(3267,3267) - JVS(14617) = -B(21606)-B(21608)-B(21609) -! JVS(14618) = Jac_FULL(3267,4565) - JVS(14618) = B(20493) -! JVS(14619) = Jac_FULL(3267,5250) - JVS(14619) = -B(21607) -! JVS(14620) = Jac_FULL(3267,5255) - JVS(14620) = B(20494) -! JVS(14621) = Jac_FULL(3268,2135) - JVS(14621) = B(5068) -! JVS(14622) = Jac_FULL(3268,3175) - JVS(14622) = B(5041) -! JVS(14623) = Jac_FULL(3268,3268) - JVS(14623) = -B(5069) -! JVS(14624) = Jac_FULL(3268,4700) - JVS(14624) = 0 -! JVS(14625) = Jac_FULL(3268,5043) - JVS(14625) = B(2205)+B(2207)+B(2211) -! JVS(14626) = Jac_FULL(3268,5250) - JVS(14626) = 0 -! JVS(14627) = Jac_FULL(3268,5252) - JVS(14627) = B(2206) -! JVS(14628) = Jac_FULL(3268,5255) - JVS(14628) = 0 -! JVS(14629) = Jac_FULL(3268,5256) - JVS(14629) = B(2208) -! JVS(14630) = Jac_FULL(3269,2025) - JVS(14630) = B(16007) -! JVS(14631) = Jac_FULL(3269,3269) - JVS(14631) = -B(8513) -! JVS(14632) = Jac_FULL(3269,4174) - JVS(14632) = B(4937) -! JVS(14633) = Jac_FULL(3269,4689) - JVS(14633) = B(12919)+B(12921)+B(12923) -! JVS(14634) = Jac_FULL(3269,5250) - JVS(14634) = 0 -! JVS(14635) = Jac_FULL(3269,5252) - JVS(14635) = B(12920) -! JVS(14636) = Jac_FULL(3269,5255) - JVS(14636) = 0 -! JVS(14637) = Jac_FULL(3269,5256) - JVS(14637) = B(12922) -! JVS(14638) = Jac_FULL(3270,478) - JVS(14638) = B(21984) -! JVS(14639) = Jac_FULL(3270,1070) - JVS(14639) = B(21974) -! JVS(14640) = Jac_FULL(3270,2063) - JVS(14640) = B(21977) -! JVS(14641) = Jac_FULL(3270,2597) - JVS(14641) = B(20920) -! JVS(14642) = Jac_FULL(3270,3270) - JVS(14642) = -B(21981)-B(21983) -! JVS(14643) = Jac_FULL(3270,3703) - JVS(14643) = B(20915) -! JVS(14644) = Jac_FULL(3270,4638) - JVS(14644) = 0 -! JVS(14645) = Jac_FULL(3270,5250) - JVS(14645) = B(20921)+B(21975)+B(21978)-B(21982)+B(21985) -! JVS(14646) = Jac_FULL(3270,5252) - JVS(14646) = 0 -! JVS(14647) = Jac_FULL(3270,5253) - JVS(14647) = 0 -! JVS(14648) = Jac_FULL(3270,5255) - JVS(14648) = 0 -! JVS(14649) = Jac_FULL(3271,3271) - JVS(14649) = -B(10078)-B(10080) -! JVS(14650) = Jac_FULL(3271,4727) - JVS(14650) = B(6376) -! JVS(14651) = Jac_FULL(3271,5250) - JVS(14651) = -B(10079) -! JVS(14652) = Jac_FULL(3271,5252) - JVS(14652) = B(6377) -! JVS(14653) = Jac_FULL(3272,3272) - JVS(14653) = -B(20426)-B(20428)-B(20430) -! JVS(14654) = Jac_FULL(3272,5075) - JVS(14654) = B(18835) -! JVS(14655) = Jac_FULL(3272,5250) - JVS(14655) = -B(20427)-B(20429) -! JVS(14656) = Jac_FULL(3272,5255) - JVS(14656) = B(18836) -! JVS(14657) = Jac_FULL(3273,3273) - JVS(14657) = -B(16609)-B(16611) -! JVS(14658) = Jac_FULL(3273,3801) - JVS(14658) = B(13757) -! JVS(14659) = Jac_FULL(3273,5250) - JVS(14659) = -B(16610) -! JVS(14660) = Jac_FULL(3273,5252) - JVS(14660) = B(13758) -! JVS(14661) = Jac_FULL(3274,3274) - JVS(14661) = -B(22167)-B(22168)-B(22169) -! JVS(14662) = Jac_FULL(3274,4384) - JVS(14662) = B(21192) -! JVS(14663) = Jac_FULL(3274,5250) - JVS(14663) = -B(22170) -! JVS(14664) = Jac_FULL(3274,5255) - JVS(14664) = B(21193) -! JVS(14665) = Jac_FULL(3275,3275) - JVS(14665) = -B(19024)-B(19025) -! JVS(14666) = Jac_FULL(3275,5079) - JVS(14666) = B(16808) -! JVS(14667) = Jac_FULL(3275,5250) - JVS(14667) = -B(19026) -! JVS(14668) = Jac_FULL(3275,5253) - JVS(14668) = B(16809) -! JVS(14669) = Jac_FULL(3276,3276) - JVS(14669) = -B(20524)-B(20526)-B(20528) -! JVS(14670) = Jac_FULL(3276,4816) - JVS(14670) = B(18929) -! JVS(14671) = Jac_FULL(3276,5250) - JVS(14671) = -B(20525)-B(20527) -! JVS(14672) = Jac_FULL(3276,5255) - JVS(14672) = B(18930) -! JVS(14673) = Jac_FULL(3277,3277) - JVS(14673) = -B(3663)-B(3665)-B(3667) -! JVS(14674) = Jac_FULL(3277,5202) - JVS(14674) = B(954) -! JVS(14675) = Jac_FULL(3277,5250) - JVS(14675) = -B(3664)-B(3666) -! JVS(14676) = Jac_FULL(3277,5255) - JVS(14676) = B(955) -! JVS(14677) = Jac_FULL(3278,3278) - JVS(14677) = -B(12272)-B(12274)-B(12276) -! JVS(14678) = Jac_FULL(3278,4345) - JVS(14678) = B(8596) -! JVS(14679) = Jac_FULL(3278,5250) - JVS(14679) = -B(12273)-B(12275) -! JVS(14680) = Jac_FULL(3278,5255) - JVS(14680) = B(8597) -! JVS(14681) = Jac_FULL(3279,3279) - JVS(14681) = -B(10099)-B(10101)-B(10102) -! JVS(14682) = Jac_FULL(3279,3825) - JVS(14682) = B(6393) -! JVS(14683) = Jac_FULL(3279,5250) - JVS(14683) = -B(10100) -! JVS(14684) = Jac_FULL(3279,5255) - JVS(14684) = B(6394) -! JVS(14685) = Jac_FULL(3280,3280) - JVS(14685) = -B(15554)-B(15556)-B(15557) -! JVS(14686) = Jac_FULL(3280,4993) - JVS(14686) = B(12448) -! JVS(14687) = Jac_FULL(3280,5250) - JVS(14687) = -B(15555) -! JVS(14688) = Jac_FULL(3280,5255) - JVS(14688) = B(12449) -! JVS(14689) = Jac_FULL(3281,3259) - JVS(14689) = B(18989) -! JVS(14690) = Jac_FULL(3281,3281) - JVS(14690) = -B(18262) -! JVS(14691) = Jac_FULL(3281,4106) - JVS(14691) = B(16782)+B(16784)+B(16786) -! JVS(14692) = Jac_FULL(3281,4325) - JVS(14692) = B(15797) -! JVS(14693) = Jac_FULL(3281,5250) - JVS(14693) = B(15798) -! JVS(14694) = Jac_FULL(3281,5252) - JVS(14694) = B(16783) -! JVS(14695) = Jac_FULL(3281,5255) - JVS(14695) = 0 -! JVS(14696) = Jac_FULL(3281,5256) - JVS(14696) = B(16785) -! JVS(14697) = Jac_FULL(3282,3282) - JVS(14697) = -B(21278)-B(21279) -! JVS(14698) = Jac_FULL(3282,4417) - JVS(14698) = B(19867) -! JVS(14699) = Jac_FULL(3282,5250) - JVS(14699) = -B(21280) -! JVS(14700) = Jac_FULL(3282,5253) - JVS(14700) = B(19868) -! JVS(14701) = Jac_FULL(3283,74) - JVS(14701) = B(10235) -! JVS(14702) = Jac_FULL(3283,1396) - JVS(14702) = B(10233) -! JVS(14703) = Jac_FULL(3283,1729) - JVS(14703) = B(10230) -! JVS(14704) = Jac_FULL(3283,3235) - JVS(14704) = B(10225) -! JVS(14705) = Jac_FULL(3283,3283) - JVS(14705) = -B(10234) -! JVS(14706) = Jac_FULL(3283,3650) - JVS(14706) = B(6523)+B(6525)+B(6527) -! JVS(14707) = Jac_FULL(3283,3659) - JVS(14707) = 0 -! JVS(14708) = Jac_FULL(3283,5250) - JVS(14708) = B(10236) -! JVS(14709) = Jac_FULL(3283,5252) - JVS(14709) = B(6524) -! JVS(14710) = Jac_FULL(3283,5255) - JVS(14710) = 0 -! JVS(14711) = Jac_FULL(3283,5256) - JVS(14711) = B(6526) -! JVS(14712) = Jac_FULL(3284,2001) - JVS(14712) = B(3955) -! JVS(14713) = Jac_FULL(3284,2553) - JVS(14713) = B(17556) -! JVS(14714) = Jac_FULL(3284,2814) - JVS(14714) = B(17561) -! JVS(14715) = Jac_FULL(3284,3284) - JVS(14715) = -B(7744) -! JVS(14716) = Jac_FULL(3284,4161) - JVS(14716) = 0 -! JVS(14717) = Jac_FULL(3284,4561) - JVS(14717) = B(14996)+B(14998)+B(15000) -! JVS(14718) = Jac_FULL(3284,5250) - JVS(14718) = 0 -! JVS(14719) = Jac_FULL(3284,5252) - JVS(14719) = B(14997) -! JVS(14720) = Jac_FULL(3284,5255) - JVS(14720) = 0 -! JVS(14721) = Jac_FULL(3284,5256) - JVS(14721) = B(14999) -! JVS(14722) = Jac_FULL(3285,3285) - JVS(14722) = -B(8719)-B(8721) -! JVS(14723) = Jac_FULL(3285,4720) - JVS(14723) = B(5240) -! JVS(14724) = Jac_FULL(3285,5250) - JVS(14724) = -B(8720) -! JVS(14725) = Jac_FULL(3285,5252) - JVS(14725) = B(5241) -! JVS(14726) = Jac_FULL(3286,3286) - JVS(14726) = -B(16605)-B(16607)-B(16608) -! JVS(14727) = Jac_FULL(3286,3801) - JVS(14727) = B(13755) -! JVS(14728) = Jac_FULL(3286,5250) - JVS(14728) = -B(16606) -! JVS(14729) = Jac_FULL(3286,5255) - JVS(14729) = B(13756) -! JVS(14730) = Jac_FULL(3287,3287) - JVS(14730) = -B(14062)-B(14063)-B(14064)-B(14066) -! JVS(14731) = Jac_FULL(3287,4126) - JVS(14731) = B(10864) -! JVS(14732) = Jac_FULL(3287,5250) - JVS(14732) = -B(14065)-B(14067) -! JVS(14733) = Jac_FULL(3287,5255) - JVS(14733) = B(10865) -! JVS(14734) = Jac_FULL(3288,3288) - JVS(14734) = -B(7135)-B(7137)-B(7139)-B(7140) -! JVS(14735) = Jac_FULL(3288,4583) - JVS(14735) = B(3326) -! JVS(14736) = Jac_FULL(3288,5250) - JVS(14736) = -B(7136)-B(7138) -! JVS(14737) = Jac_FULL(3288,5255) - JVS(14737) = B(3327) -! JVS(14738) = Jac_FULL(3289,3289) - JVS(14738) = -B(4950)-B(4952)-B(4954) -! JVS(14739) = Jac_FULL(3289,4598) - JVS(14739) = B(2105) -! JVS(14740) = Jac_FULL(3289,5250) - JVS(14740) = -B(4951)-B(4953) -! JVS(14741) = Jac_FULL(3289,5255) - JVS(14741) = B(2106) -! JVS(14742) = Jac_FULL(3290,3290) - JVS(14742) = -B(15558)-B(15560) -! JVS(14743) = Jac_FULL(3290,4993) - JVS(14743) = B(12452) -! JVS(14744) = Jac_FULL(3290,5250) - JVS(14744) = -B(15559) -! JVS(14745) = Jac_FULL(3290,5253) - JVS(14745) = B(12453) -! JVS(14746) = Jac_FULL(3291,3291) - JVS(14746) = -B(14178)-B(14179)-B(14181) -! JVS(14747) = Jac_FULL(3291,4105) - JVS(14747) = B(10989) -! JVS(14748) = Jac_FULL(3291,5250) - JVS(14748) = -B(14180)-B(14182) -! JVS(14749) = Jac_FULL(3291,5255) - JVS(14749) = B(10990) -! JVS(14750) = Jac_FULL(3292,3292) - JVS(14750) = -B(8939)-B(8941) -! JVS(14751) = Jac_FULL(3292,4833) - JVS(14751) = B(5420) -! JVS(14752) = Jac_FULL(3292,5250) - JVS(14752) = -B(8940) -! JVS(14753) = Jac_FULL(3292,5253) - JVS(14753) = B(5421) -! JVS(14754) = Jac_FULL(3293,3293) - JVS(14754) = -B(23609)-B(23611) -! JVS(14755) = Jac_FULL(3293,4818) - JVS(14755) = B(23320) -! JVS(14756) = Jac_FULL(3293,5250) - JVS(14756) = -B(23610) -! JVS(14757) = Jac_FULL(3293,5253) - JVS(14757) = B(23321) -! JVS(14758) = Jac_FULL(3294,3294) - JVS(14758) = -B(4224)-B(4225)-B(4227) -! JVS(14759) = Jac_FULL(3294,4954) - JVS(14759) = B(1447) -! JVS(14760) = Jac_FULL(3294,5250) - JVS(14760) = -B(4226)-B(4228) -! JVS(14761) = Jac_FULL(3294,5255) - JVS(14761) = B(1448) -! JVS(14762) = Jac_FULL(3295,3295) - JVS(14762) = -B(10189)-B(10191)-B(10192) -! JVS(14763) = Jac_FULL(3295,3631) - JVS(14763) = B(6483) -! JVS(14764) = Jac_FULL(3295,5250) - JVS(14764) = -B(10190) -! JVS(14765) = Jac_FULL(3295,5255) - JVS(14765) = B(6484) -! JVS(14766) = Jac_FULL(3296,18) - JVS(14766) = B(10201) -! JVS(14767) = Jac_FULL(3296,982) - JVS(14767) = B(10199) -! JVS(14768) = Jac_FULL(3296,1594) - JVS(14768) = B(10196) -! JVS(14769) = Jac_FULL(3296,3295) - JVS(14769) = B(10191) -! JVS(14770) = Jac_FULL(3296,3296) - JVS(14770) = -B(10200) -! JVS(14771) = Jac_FULL(3296,3631) - JVS(14771) = 0 -! JVS(14772) = Jac_FULL(3296,3632) - JVS(14772) = B(6493)+B(6495)+B(6497) -! JVS(14773) = Jac_FULL(3296,5250) - JVS(14773) = B(10202) -! JVS(14774) = Jac_FULL(3296,5252) - JVS(14774) = B(6494) -! JVS(14775) = Jac_FULL(3296,5255) - JVS(14775) = 0 -! JVS(14776) = Jac_FULL(3296,5256) - JVS(14776) = B(6496) -! JVS(14777) = Jac_FULL(3297,3297) - JVS(14777) = -B(2145)-B(2146)-B(2147)-B(2148) -! JVS(14778) = Jac_FULL(3297,4332) - JVS(14778) = B(493) -! JVS(14779) = Jac_FULL(3297,4475) - JVS(14779) = B(505) -! JVS(14780) = Jac_FULL(3297,5258) - JVS(14780) = B(494)+B(506) -! JVS(14781) = Jac_FULL(3298,3298) - JVS(14781) = -B(15239)-B(15240)-B(15241)-B(15243) -! JVS(14782) = Jac_FULL(3298,3822) - JVS(14782) = B(12047) -! JVS(14783) = Jac_FULL(3298,4800) - JVS(14783) = B(15237) -! JVS(14784) = Jac_FULL(3298,5250) - JVS(14784) = B(12048)+B(15238)-B(15242)-B(15244) -! JVS(14785) = Jac_FULL(3299,3299) - JVS(14785) = -B(3736)-B(3738)-B(3740) -! JVS(14786) = Jac_FULL(3299,5129) - JVS(14786) = B(1019) -! JVS(14787) = Jac_FULL(3299,5250) - JVS(14787) = -B(3737)-B(3739) -! JVS(14788) = Jac_FULL(3299,5255) - JVS(14788) = B(1020) -! JVS(14789) = Jac_FULL(3300,3300) - JVS(14789) = -B(13228)-B(13230) -! JVS(14790) = Jac_FULL(3300,4985) - JVS(14790) = B(9824) -! JVS(14791) = Jac_FULL(3300,5250) - JVS(14791) = -B(13229) -! JVS(14792) = Jac_FULL(3300,5253) - JVS(14792) = B(9825) -! JVS(14793) = Jac_FULL(3301,1768) - JVS(14793) = B(15909) -! JVS(14794) = Jac_FULL(3301,3301) - JVS(14794) = -B(8463) -! JVS(14795) = Jac_FULL(3301,3302) - JVS(14795) = B(4859) -! JVS(14796) = Jac_FULL(3301,4661) - JVS(14796) = B(12821)+B(12823)+B(12825) -! JVS(14797) = Jac_FULL(3301,5250) - JVS(14797) = 0 -! JVS(14798) = Jac_FULL(3301,5252) - JVS(14798) = B(12822) -! JVS(14799) = Jac_FULL(3301,5255) - JVS(14799) = 0 -! JVS(14800) = Jac_FULL(3301,5256) - JVS(14800) = B(12824) -! JVS(14801) = Jac_FULL(3302,3302) - JVS(14801) = -B(4857)-B(4859)-B(4860) -! JVS(14802) = Jac_FULL(3302,3934) - JVS(14802) = B(4855) -! JVS(14803) = Jac_FULL(3302,4574) - JVS(14803) = B(2035) -! JVS(14804) = Jac_FULL(3302,5250) - JVS(14804) = -B(4858) -! JVS(14805) = Jac_FULL(3303,3303) - JVS(14805) = -B(13444)-B(13446) -! JVS(14806) = Jac_FULL(3303,4051) - JVS(14806) = B(10218) -! JVS(14807) = Jac_FULL(3303,5250) - JVS(14807) = -B(13445) -! JVS(14808) = Jac_FULL(3303,5253) - JVS(14808) = B(10219) -! JVS(14809) = Jac_FULL(3304,3304) - JVS(14809) = -B(9693)-B(9695) -! JVS(14810) = Jac_FULL(3304,4971) - JVS(14810) = B(6000) -! JVS(14811) = Jac_FULL(3304,5250) - JVS(14811) = -B(9694) -! JVS(14812) = Jac_FULL(3304,5252) - JVS(14812) = B(6001) -! JVS(14813) = Jac_FULL(3305,2225) - JVS(14813) = B(13168) -! JVS(14814) = Jac_FULL(3305,3305) - JVS(14814) = -B(13169) -! JVS(14815) = Jac_FULL(3305,3318) - JVS(14815) = 0 -! JVS(14816) = Jac_FULL(3305,4000) - JVS(14816) = B(9719)+B(9723) -! JVS(14817) = Jac_FULL(3305,5250) - JVS(14817) = 0 -! JVS(14818) = Jac_FULL(3305,5252) - JVS(14818) = B(9720) -! JVS(14819) = Jac_FULL(3305,5253) - JVS(14819) = -B(13170) -! JVS(14820) = Jac_FULL(3305,5255) - JVS(14820) = 0 -! JVS(14821) = Jac_FULL(3306,3306) - JVS(14821) = -B(21265)-B(21266) -! JVS(14822) = Jac_FULL(3306,4450) - JVS(14822) = B(19837) -! JVS(14823) = Jac_FULL(3306,5250) - JVS(14823) = -B(21267) -! JVS(14824) = Jac_FULL(3306,5253) - JVS(14824) = B(19838) -! JVS(14825) = Jac_FULL(3307,3307) - JVS(14825) = -B(16931)-B(16933) -! JVS(14826) = Jac_FULL(3307,4288) - JVS(14826) = B(14303) -! JVS(14827) = Jac_FULL(3307,5250) - JVS(14827) = -B(16932) -! JVS(14828) = Jac_FULL(3307,5253) - JVS(14828) = B(14304) -! JVS(14829) = Jac_FULL(3308,3308) - JVS(14829) = -B(5124)-B(5126)-B(5128) -! JVS(14830) = Jac_FULL(3308,4582) - JVS(14830) = B(2255) -! JVS(14831) = Jac_FULL(3308,5250) - JVS(14831) = -B(5125)-B(5127) -! JVS(14832) = Jac_FULL(3308,5255) - JVS(14832) = B(2256) -! JVS(14833) = Jac_FULL(3309,789) - JVS(14833) = B(22392) -! JVS(14834) = Jac_FULL(3309,1094) - JVS(14834) = B(22384) -! JVS(14835) = Jac_FULL(3309,3309) - JVS(14835) = -B(22388)-B(22390)-B(22391) -! JVS(14836) = Jac_FULL(3309,4410) - JVS(14836) = B(21773) -! JVS(14837) = Jac_FULL(3309,5250) - JVS(14837) = B(22385)-B(22389)+B(22393) -! JVS(14838) = Jac_FULL(3309,5255) - JVS(14838) = 0 -! JVS(14839) = Jac_FULL(3310,3310) - JVS(14839) = -B(3883)-B(3885)-B(3887) -! JVS(14840) = Jac_FULL(3310,4959) - JVS(14840) = B(1129) -! JVS(14841) = Jac_FULL(3310,5250) - JVS(14841) = -B(3884)-B(3886) -! JVS(14842) = Jac_FULL(3310,5255) - JVS(14842) = B(1130) -! JVS(14843) = Jac_FULL(3311,3311) - JVS(14843) = -B(17714)-B(17715) -! JVS(14844) = Jac_FULL(3311,5090) - JVS(14844) = B(15144) -! JVS(14845) = Jac_FULL(3311,5250) - JVS(14845) = -B(17716) -! JVS(14846) = Jac_FULL(3311,5253) - JVS(14846) = B(15145) -! JVS(14847) = Jac_FULL(3312,3312) - JVS(14847) = -B(11967)-B(11968) -! JVS(14848) = Jac_FULL(3312,4771) - JVS(14848) = B(8218) -! JVS(14849) = Jac_FULL(3312,5250) - JVS(14849) = -B(11969) -! JVS(14850) = Jac_FULL(3312,5253) - JVS(14850) = B(8219) -! JVS(14851) = Jac_FULL(3313,3313) - JVS(14851) = -B(22635)-B(22637) -! JVS(14852) = Jac_FULL(3313,4652) - JVS(14852) = B(22019) -! JVS(14853) = Jac_FULL(3313,5250) - JVS(14853) = -B(22636) -! JVS(14854) = Jac_FULL(3313,5253) - JVS(14854) = B(22020) -! JVS(14855) = Jac_FULL(3314,3314) - JVS(14855) = -B(7194)-B(7196)-B(7198)-B(7199) -! JVS(14856) = Jac_FULL(3314,4594) - JVS(14856) = B(3376) -! JVS(14857) = Jac_FULL(3314,5250) - JVS(14857) = -B(7195)-B(7197) -! JVS(14858) = Jac_FULL(3314,5255) - JVS(14858) = B(3377) -! JVS(14859) = Jac_FULL(3315,3315) - JVS(14859) = -B(21351)-B(21353) -! JVS(14860) = Jac_FULL(3315,4770) - JVS(14860) = B(19984) -! JVS(14861) = Jac_FULL(3315,5250) - JVS(14861) = -B(21352) -! JVS(14862) = Jac_FULL(3315,5253) - JVS(14862) = B(19985) -! JVS(14863) = Jac_FULL(3316,3316) - JVS(14863) = -B(9770)-B(9772) -! JVS(14864) = Jac_FULL(3316,4948) - JVS(14864) = B(6070) -! JVS(14865) = Jac_FULL(3316,5250) - JVS(14865) = -B(9771) -! JVS(14866) = Jac_FULL(3316,5253) - JVS(14866) = B(6071) -! JVS(14867) = Jac_FULL(3317,3317) - JVS(14867) = -B(6603)-B(6605) -! JVS(14868) = Jac_FULL(3317,4622) - JVS(14868) = B(3015) -! JVS(14869) = Jac_FULL(3317,5250) - JVS(14869) = -B(6604) -! JVS(14870) = Jac_FULL(3317,5253) - JVS(14870) = B(3016) -! JVS(14871) = Jac_FULL(3318,3318) - JVS(14871) = -B(13163)-B(13165) -! JVS(14872) = Jac_FULL(3318,4139) - JVS(14872) = B(9711) -! JVS(14873) = Jac_FULL(3318,5250) - JVS(14873) = -B(13164) -! JVS(14874) = Jac_FULL(3318,5253) - JVS(14874) = B(9712) -! JVS(14875) = Jac_FULL(3319,3319) - JVS(14875) = -B(9380)-B(9382)-B(9383) -! JVS(14876) = Jac_FULL(3319,3799) - JVS(14876) = B(5765) -! JVS(14877) = Jac_FULL(3319,5250) - JVS(14877) = -B(9381) -! JVS(14878) = Jac_FULL(3319,5255) - JVS(14878) = B(5766) -! JVS(14879) = Jac_FULL(3320,3320) - JVS(14879) = -B(9147)-B(9149)-B(9150) -! JVS(14880) = Jac_FULL(3320,3796) - JVS(14880) = B(5561) -! JVS(14881) = Jac_FULL(3320,5250) - JVS(14881) = -B(9148) -! JVS(14882) = Jac_FULL(3320,5255) - JVS(14882) = B(5562) -! JVS(14883) = Jac_FULL(3321,3321) - JVS(14883) = -B(8987)-B(8989)-B(8990) -! JVS(14884) = Jac_FULL(3321,3820) - JVS(14884) = B(5450) -! JVS(14885) = Jac_FULL(3321,5250) - JVS(14885) = -B(8988) -! JVS(14886) = Jac_FULL(3321,5255) - JVS(14886) = B(5451) -! JVS(14887) = Jac_FULL(3322,3322) - JVS(14887) = -B(10003)-B(10005) -! JVS(14888) = Jac_FULL(3322,4725) - JVS(14888) = B(6304) -! JVS(14889) = Jac_FULL(3322,5250) - JVS(14889) = -B(10004) -! JVS(14890) = Jac_FULL(3322,5252) - JVS(14890) = B(6305) -! JVS(14891) = Jac_FULL(3323,3323) - JVS(14891) = -B(23042)-B(23044) -! JVS(14892) = Jac_FULL(3323,4681) - JVS(14892) = B(22602) -! JVS(14893) = Jac_FULL(3323,5250) - JVS(14893) = -B(23043) -! JVS(14894) = Jac_FULL(3323,5253) - JVS(14894) = B(22603) -! JVS(14895) = Jac_FULL(3324,3324) - JVS(14895) = -B(20529)-B(20531) -! JVS(14896) = Jac_FULL(3324,4816) - JVS(14896) = B(18935) -! JVS(14897) = Jac_FULL(3324,5250) - JVS(14897) = -B(20530) -! JVS(14898) = Jac_FULL(3324,5253) - JVS(14898) = B(18936) -! JVS(14899) = Jac_FULL(3325,3325) - JVS(14899) = -B(12358)-B(12360)-B(12361) -! JVS(14900) = Jac_FULL(3325,4916) - JVS(14900) = B(8672) -! JVS(14901) = Jac_FULL(3325,5250) - JVS(14901) = -B(12359) -! JVS(14902) = Jac_FULL(3325,5255) - JVS(14902) = B(8673) -! JVS(14903) = Jac_FULL(3326,3326) - JVS(14903) = -B(11660)-B(11662)-B(11664) -! JVS(14904) = Jac_FULL(3326,5155) - JVS(14904) = B(7926) -! JVS(14905) = Jac_FULL(3326,5250) - JVS(14905) = -B(11661)-B(11663) -! JVS(14906) = Jac_FULL(3326,5255) - JVS(14906) = B(7927) -! JVS(14907) = Jac_FULL(3327,3327) - JVS(14907) = -B(22838)-B(22840) -! JVS(14908) = Jac_FULL(3327,4496) - JVS(14908) = B(22339) -! JVS(14909) = Jac_FULL(3327,5250) - JVS(14909) = -B(22839) -! JVS(14910) = Jac_FULL(3327,5253) - JVS(14910) = B(22340) -! JVS(14911) = Jac_FULL(3328,1141) - JVS(14911) = B(4882) -! JVS(14912) = Jac_FULL(3328,3328) - JVS(14912) = -B(4887)-B(4889) -! JVS(14913) = Jac_FULL(3328,3767) - JVS(14913) = B(4885) -! JVS(14914) = Jac_FULL(3328,4387) - JVS(14914) = B(2060) -! JVS(14915) = Jac_FULL(3328,5250) - JVS(14915) = B(4883)-B(4888) -! JVS(14916) = Jac_FULL(3328,5255) - JVS(14916) = 0 -! JVS(14917) = Jac_FULL(3329,1169) - JVS(14917) = B(20065) -! JVS(14918) = Jac_FULL(3329,3329) - JVS(14918) = -B(20066) -! JVS(14919) = Jac_FULL(3329,4464) - JVS(14919) = B(18300)+B(18302)+B(18304) -! JVS(14920) = Jac_FULL(3329,5250) - JVS(14920) = 0 -! JVS(14921) = Jac_FULL(3329,5252) - JVS(14921) = B(18301) -! JVS(14922) = Jac_FULL(3329,5255) - JVS(14922) = 0 -! JVS(14923) = Jac_FULL(3329,5256) - JVS(14923) = B(18303) -! JVS(14924) = Jac_FULL(3330,3273) - JVS(14924) = B(16609) -! JVS(14925) = Jac_FULL(3330,3286) - JVS(14925) = B(16605)+B(16608) -! JVS(14926) = Jac_FULL(3330,3330) - JVS(14926) = -B(4293)-B(4294)-B(4295) -! JVS(14927) = Jac_FULL(3330,3801) - JVS(14927) = B(13764) -! JVS(14928) = Jac_FULL(3330,4936) - JVS(14928) = B(1519) -! JVS(14929) = Jac_FULL(3330,5250) - JVS(14929) = -B(4296)+B(16606)+B(16610) -! JVS(14930) = Jac_FULL(3330,5252) - JVS(14930) = 0 -! JVS(14931) = Jac_FULL(3330,5255) - JVS(14931) = B(1520) -! JVS(14932) = Jac_FULL(3331,446) - JVS(14932) = B(6189) -! JVS(14933) = Jac_FULL(3331,1150) - JVS(14933) = B(6182) -! JVS(14934) = Jac_FULL(3331,2087) - JVS(14934) = B(6185) -! JVS(14935) = Jac_FULL(3331,2088) - JVS(14935) = B(6188) -! JVS(14936) = Jac_FULL(3331,3331) - JVS(14936) = -B(6191)-B(6193) -! JVS(14937) = Jac_FULL(3331,3797) - JVS(14937) = B(2811) -! JVS(14938) = Jac_FULL(3331,5250) - JVS(14938) = B(6183)+B(6186)+B(6190)-B(6192) -! JVS(14939) = Jac_FULL(3331,5252) - JVS(14939) = 0 -! JVS(14940) = Jac_FULL(3331,5255) - JVS(14940) = 0 -! JVS(14941) = Jac_FULL(3331,5256) - JVS(14941) = 0 -! JVS(14942) = Jac_FULL(3332,1310) - JVS(14942) = B(6112) -! JVS(14943) = Jac_FULL(3332,2372) - JVS(14943) = B(6115) -! JVS(14944) = Jac_FULL(3332,3332) - JVS(14944) = -B(6116)-B(6117) -! JVS(14945) = Jac_FULL(3332,4055) - JVS(14945) = B(2776)+B(2778)+B(2781) -! JVS(14946) = Jac_FULL(3332,5250) - JVS(14946) = 0 -! JVS(14947) = Jac_FULL(3332,5252) - JVS(14947) = B(2777) -! JVS(14948) = Jac_FULL(3332,5255) - JVS(14948) = 0 -! JVS(14949) = Jac_FULL(3332,5256) - JVS(14949) = B(2779) -! JVS(14950) = Jac_FULL(3333,2199) - JVS(14950) = B(4620) -! JVS(14951) = Jac_FULL(3333,2409) - JVS(14951) = B(4615) -! JVS(14952) = Jac_FULL(3333,3333) - JVS(14952) = -B(4623)-B(4624) -! JVS(14953) = Jac_FULL(3333,5045) - JVS(14953) = B(1817)+B(1819)+B(1821) -! JVS(14954) = Jac_FULL(3333,5250) - JVS(14954) = 0 -! JVS(14955) = Jac_FULL(3333,5252) - JVS(14955) = B(1818) -! JVS(14956) = Jac_FULL(3333,5255) - JVS(14956) = 0 -! JVS(14957) = Jac_FULL(3333,5256) - JVS(14957) = B(1820) -! JVS(14958) = Jac_FULL(3334,3334) - JVS(14958) = -B(11656)-B(11658) -! JVS(14959) = Jac_FULL(3334,5040) - JVS(14959) = B(16573) -! JVS(14960) = Jac_FULL(3334,5155) - JVS(14960) = B(7924)+B(7935) -! JVS(14961) = Jac_FULL(3334,5250) - JVS(14961) = -B(11657)-B(11659) -! JVS(14962) = Jac_FULL(3334,5255) - JVS(14962) = B(7925) -! JVS(14963) = Jac_FULL(3335,1487) - JVS(14963) = B(17132) -! JVS(14964) = Jac_FULL(3335,3335) - JVS(14964) = -B(17133) -! JVS(14965) = Jac_FULL(3335,3907) - JVS(14965) = B(14490)+B(14492)+B(14494) -! JVS(14966) = Jac_FULL(3335,5250) - JVS(14966) = 0 -! JVS(14967) = Jac_FULL(3335,5252) - JVS(14967) = B(14491) -! JVS(14968) = Jac_FULL(3335,5255) - JVS(14968) = 0 -! JVS(14969) = Jac_FULL(3335,5256) - JVS(14969) = B(14493) -! JVS(14970) = Jac_FULL(3336,2553) - JVS(14970) = B(17559) -! JVS(14971) = Jac_FULL(3336,3336) - JVS(14971) = -B(19584)-B(19585)-B(19586) -! JVS(14972) = Jac_FULL(3336,4546) - JVS(14972) = B(17578) -! JVS(14973) = Jac_FULL(3336,4561) - JVS(14973) = 0 -! JVS(14974) = Jac_FULL(3336,5250) - JVS(14974) = B(17560)-B(19587) -! JVS(14975) = Jac_FULL(3336,5255) - JVS(14975) = B(17579) -! JVS(14976) = Jac_FULL(3337,1618) - JVS(14976) = B(22476) -! JVS(14977) = Jac_FULL(3337,2018) - JVS(14977) = B(22471) -! JVS(14978) = Jac_FULL(3337,2523) - JVS(14978) = B(22468) -! JVS(14979) = Jac_FULL(3337,3337) - JVS(14979) = -B(22479)-B(22481) -! JVS(14980) = Jac_FULL(3337,4418) - JVS(14980) = B(21861) -! JVS(14981) = Jac_FULL(3337,4659) - JVS(14981) = 0 -! JVS(14982) = Jac_FULL(3337,5250) - JVS(14982) = B(22469)+B(22472)+B(22477)-B(22480) -! JVS(14983) = Jac_FULL(3337,5253) - JVS(14983) = 0 -! JVS(14984) = Jac_FULL(3337,5255) - JVS(14984) = 0 -! JVS(14985) = Jac_FULL(3338,887) - JVS(14985) = B(20925) -! JVS(14986) = Jac_FULL(3338,3338) - JVS(14986) = -B(20926) -! JVS(14987) = Jac_FULL(3338,3839) - JVS(14987) = B(19356)+B(19358)+B(19360) -! JVS(14988) = Jac_FULL(3338,5250) - JVS(14988) = 0 -! JVS(14989) = Jac_FULL(3338,5252) - JVS(14989) = B(19357) -! JVS(14990) = Jac_FULL(3338,5255) - JVS(14990) = 0 -! JVS(14991) = Jac_FULL(3338,5256) - JVS(14991) = B(19359) -! JVS(14992) = Jac_FULL(3339,681) - JVS(14992) = B(9206) -! JVS(14993) = Jac_FULL(3339,1167) - JVS(14993) = B(9195) -! JVS(14994) = Jac_FULL(3339,3339) - JVS(14994) = -B(9203)-B(9205) -! JVS(14995) = Jac_FULL(3339,3340) - JVS(14995) = B(9198) -! JVS(14996) = Jac_FULL(3339,4699) - JVS(14996) = B(5623) -! JVS(14997) = Jac_FULL(3339,5250) - JVS(14997) = B(9196)+B(9199)-B(9204)+B(9207) -! JVS(14998) = Jac_FULL(3339,5255) - JVS(14998) = 0 -! JVS(14999) = Jac_FULL(3340,3340) - JVS(14999) = -B(9198)-B(9200) -! JVS(15000) = Jac_FULL(3340,4699) - JVS(15000) = B(5617) -! JVS(15001) = Jac_FULL(3340,5250) - JVS(15001) = -B(9199) -! JVS(15002) = Jac_FULL(3340,5252) - JVS(15002) = B(5618) -! JVS(15003) = Jac_FULL(3341,2455) - JVS(15003) = B(5146) -! JVS(15004) = Jac_FULL(3341,3341) - JVS(15004) = -B(5153)-B(5155) -! JVS(15005) = Jac_FULL(3341,3910) - JVS(15005) = B(5152) -! JVS(15006) = Jac_FULL(3341,4884) - JVS(15006) = B(2283) -! JVS(15007) = Jac_FULL(3341,5250) - JVS(15007) = B(5147)-B(5154) -! JVS(15008) = Jac_FULL(3341,5255) - JVS(15008) = 0 -! JVS(15009) = Jac_FULL(3342,1434) - JVS(15009) = B(5204) -! JVS(15010) = Jac_FULL(3342,2341) - JVS(15010) = B(5207) -! JVS(15011) = Jac_FULL(3342,3342) - JVS(15011) = -B(5208)-B(5209) -! JVS(15012) = Jac_FULL(3342,4399) - JVS(15012) = B(2346)+B(2348)+B(2351) -! JVS(15013) = Jac_FULL(3342,5250) - JVS(15013) = 0 -! JVS(15014) = Jac_FULL(3342,5252) - JVS(15014) = B(2347) -! JVS(15015) = Jac_FULL(3342,5255) - JVS(15015) = 0 -! JVS(15016) = Jac_FULL(3342,5256) - JVS(15016) = B(2349) -! JVS(15017) = Jac_FULL(3343,432) - JVS(15017) = B(6506) -! JVS(15018) = Jac_FULL(3343,1131) - JVS(15018) = B(6499) -! JVS(15019) = Jac_FULL(3343,1822) - JVS(15019) = B(6505) -! JVS(15020) = Jac_FULL(3343,2078) - JVS(15020) = B(6502) -! JVS(15021) = Jac_FULL(3343,3343) - JVS(15021) = -B(6508)-B(6510) -! JVS(15022) = Jac_FULL(3343,3790) - JVS(15022) = B(2959) -! JVS(15023) = Jac_FULL(3343,5250) - JVS(15023) = B(6500)+B(6503)+B(6507)-B(6509) -! JVS(15024) = Jac_FULL(3343,5252) - JVS(15024) = 0 -! JVS(15025) = Jac_FULL(3343,5255) - JVS(15025) = 0 -! JVS(15026) = Jac_FULL(3343,5256) - JVS(15026) = 0 -! JVS(15027) = Jac_FULL(3344,2156) - JVS(15027) = B(13915) -! JVS(15028) = Jac_FULL(3344,2461) - JVS(15028) = B(13918) -! JVS(15029) = Jac_FULL(3344,3344) - JVS(15029) = -B(13919)-B(13920) -! JVS(15030) = Jac_FULL(3344,4060) - JVS(15030) = B(10724)+B(10726)+B(10728) -! JVS(15031) = Jac_FULL(3344,5250) - JVS(15031) = 0 -! JVS(15032) = Jac_FULL(3344,5252) - JVS(15032) = B(10725) -! JVS(15033) = Jac_FULL(3344,5255) - JVS(15033) = 0 -! JVS(15034) = Jac_FULL(3344,5256) - JVS(15034) = B(10727) -! JVS(15035) = Jac_FULL(3345,811) - JVS(15035) = B(10086) -! JVS(15036) = Jac_FULL(3345,1161) - JVS(15036) = B(10075) -! JVS(15037) = Jac_FULL(3345,3271) - JVS(15037) = B(10078) -! JVS(15038) = Jac_FULL(3345,3345) - JVS(15038) = -B(10083)-B(10085) -! JVS(15039) = Jac_FULL(3345,4727) - JVS(15039) = B(6382) -! JVS(15040) = Jac_FULL(3345,5250) - JVS(15040) = B(10076)+B(10079)-B(10084)+B(10087) -! JVS(15041) = Jac_FULL(3345,5252) - JVS(15041) = 0 -! JVS(15042) = Jac_FULL(3345,5255) - JVS(15042) = 0 -! JVS(15043) = Jac_FULL(3346,1406) - JVS(15043) = B(14133) -! JVS(15044) = Jac_FULL(3346,3346) - JVS(15044) = -B(14134)-B(14135) -! JVS(15045) = Jac_FULL(3346,4871) - JVS(15045) = B(10934)+B(10936)+B(10938) -! JVS(15046) = Jac_FULL(3346,5250) - JVS(15046) = 0 -! JVS(15047) = Jac_FULL(3346,5252) - JVS(15047) = B(10935) -! JVS(15048) = Jac_FULL(3346,5255) - JVS(15048) = 0 -! JVS(15049) = Jac_FULL(3346,5256) - JVS(15049) = B(10937) -! JVS(15050) = Jac_FULL(3347,1472) - JVS(15050) = B(20043) -! JVS(15051) = Jac_FULL(3347,3347) - JVS(15051) = -B(20044) -! JVS(15052) = Jac_FULL(3347,4506) - JVS(15052) = B(18265)+B(18267)+B(18269) -! JVS(15053) = Jac_FULL(3347,5250) - JVS(15053) = 0 -! JVS(15054) = Jac_FULL(3347,5252) - JVS(15054) = B(18266) -! JVS(15055) = Jac_FULL(3347,5255) - JVS(15055) = 0 -! JVS(15056) = Jac_FULL(3347,5256) - JVS(15056) = B(18268) -! JVS(15057) = Jac_FULL(3348,1934) - JVS(15057) = B(21764) -! JVS(15058) = Jac_FULL(3348,2380) - JVS(15058) = B(21755) -! JVS(15059) = Jac_FULL(3348,2527) - JVS(15059) = B(21752) -! JVS(15060) = Jac_FULL(3348,3348) - JVS(15060) = -B(21759)-B(21761) -! JVS(15061) = Jac_FULL(3348,4660) - JVS(15061) = 0 -! JVS(15062) = Jac_FULL(3348,5019) - JVS(15062) = B(20734) -! JVS(15063) = Jac_FULL(3348,5250) - JVS(15063) = B(21753)+B(21756)-B(21760)+B(21765) -! JVS(15064) = Jac_FULL(3348,5253) - JVS(15064) = 0 -! JVS(15065) = Jac_FULL(3348,5255) - JVS(15065) = 0 -! JVS(15066) = Jac_FULL(3349,2125) - JVS(15066) = B(5102) -! JVS(15067) = Jac_FULL(3349,3349) - JVS(15067) = -B(5109)-B(5111) -! JVS(15068) = Jac_FULL(3349,3925) - JVS(15068) = B(5108) -! JVS(15069) = Jac_FULL(3349,4587) - JVS(15069) = B(2248) -! JVS(15070) = Jac_FULL(3349,5250) - JVS(15070) = B(5103)-B(5110) -! JVS(15071) = Jac_FULL(3349,5255) - JVS(15071) = 0 -! JVS(15072) = Jac_FULL(3350,2043) - JVS(15072) = B(13582) -! JVS(15073) = Jac_FULL(3350,2695) - JVS(15073) = 0 -! JVS(15074) = Jac_FULL(3350,2729) - JVS(15074) = B(23920) -! JVS(15075) = Jac_FULL(3350,3350) - JVS(15075) = -B(16476)-B(16478) -! JVS(15076) = Jac_FULL(3350,4341) - JVS(15076) = 0 -! JVS(15077) = Jac_FULL(3350,4520) - JVS(15077) = 0 -! JVS(15078) = Jac_FULL(3350,5250) - JVS(15078) = B(13583)-B(16477)+B(23921) -! JVS(15079) = Jac_FULL(3350,5253) - JVS(15079) = 0 -! JVS(15080) = Jac_FULL(3350,5255) - JVS(15080) = 0 -! JVS(15081) = Jac_FULL(3351,1849) - JVS(15081) = B(4812) -! JVS(15082) = Jac_FULL(3351,3351) - JVS(15082) = -B(4813)-B(4814) -! JVS(15083) = Jac_FULL(3351,4171) - JVS(15083) = B(1988)+B(1990)+B(1992) -! JVS(15084) = Jac_FULL(3351,5250) - JVS(15084) = 0 -! JVS(15085) = Jac_FULL(3351,5252) - JVS(15085) = B(1989) -! JVS(15086) = Jac_FULL(3351,5255) - JVS(15086) = 0 -! JVS(15087) = Jac_FULL(3351,5256) - JVS(15087) = B(1991) -! JVS(15088) = Jac_FULL(3352,531) - JVS(15088) = B(9589) -! JVS(15089) = Jac_FULL(3352,1065) - JVS(15089) = B(9578) -! JVS(15090) = Jac_FULL(3352,3352) - JVS(15090) = -B(9586)-B(9588) -! JVS(15091) = Jac_FULL(3352,3353) - JVS(15091) = B(9581) -! JVS(15092) = Jac_FULL(3352,4928) - JVS(15092) = B(5920) -! JVS(15093) = Jac_FULL(3352,5250) - JVS(15093) = B(9579)+B(9582)-B(9587)+B(9590) -! JVS(15094) = Jac_FULL(3352,5255) - JVS(15094) = 0 -! JVS(15095) = Jac_FULL(3353,3353) - JVS(15095) = -B(9581)-B(9583) -! JVS(15096) = Jac_FULL(3353,4928) - JVS(15096) = B(5914) -! JVS(15097) = Jac_FULL(3353,5250) - JVS(15097) = -B(9582) -! JVS(15098) = Jac_FULL(3353,5252) - JVS(15098) = B(5915) -! JVS(15099) = Jac_FULL(3354,2114) - JVS(15099) = B(12324) -! JVS(15100) = Jac_FULL(3354,2344) - JVS(15100) = B(12334) -! JVS(15101) = Jac_FULL(3354,3354) - JVS(15101) = -B(12331)-B(12333) -! JVS(15102) = Jac_FULL(3354,3904) - JVS(15102) = B(12330) -! JVS(15103) = Jac_FULL(3354,4719) - JVS(15103) = B(8661) -! JVS(15104) = Jac_FULL(3354,5250) - JVS(15104) = B(12325)-B(12332)+B(12335) -! JVS(15105) = Jac_FULL(3354,5255) - JVS(15105) = 0 -! JVS(15106) = Jac_FULL(3355,1522) - JVS(15106) = B(23280) -! JVS(15107) = Jac_FULL(3355,2573) - JVS(15107) = B(23277) -! JVS(15108) = Jac_FULL(3355,3355) - JVS(15108) = -B(23573)-B(23575) -! JVS(15109) = Jac_FULL(3355,4409) - JVS(15109) = 0 -! JVS(15110) = Jac_FULL(3355,4447) - JVS(15110) = 0 -! JVS(15111) = Jac_FULL(3355,5250) - JVS(15111) = B(23278)+B(23281)-B(23574) -! JVS(15112) = Jac_FULL(3355,5253) - JVS(15112) = 0 -! JVS(15113) = Jac_FULL(3355,5255) - JVS(15113) = 0 -! JVS(15114) = Jac_FULL(3356,683) - JVS(15114) = B(9357) -! JVS(15115) = Jac_FULL(3356,1510) - JVS(15115) = B(9346) -! JVS(15116) = Jac_FULL(3356,3356) - JVS(15116) = -B(9354)-B(9356) -! JVS(15117) = Jac_FULL(3356,3357) - JVS(15117) = B(9349) -! JVS(15118) = Jac_FULL(3356,4701) - JVS(15118) = B(5741) -! JVS(15119) = Jac_FULL(3356,5250) - JVS(15119) = B(9347)+B(9350)-B(9355)+B(9358) -! JVS(15120) = Jac_FULL(3356,5255) - JVS(15120) = 0 -! JVS(15121) = Jac_FULL(3357,3357) - JVS(15121) = -B(9349)-B(9351) -! JVS(15122) = Jac_FULL(3357,4701) - JVS(15122) = B(5735) -! JVS(15123) = Jac_FULL(3357,5250) - JVS(15123) = -B(9350) -! JVS(15124) = Jac_FULL(3357,5252) - JVS(15124) = B(5736) -! JVS(15125) = Jac_FULL(3358,3358) - JVS(15125) = -B(17465)-B(17467) -! JVS(15126) = Jac_FULL(3358,3529) - JVS(15126) = B(14914) -! JVS(15127) = Jac_FULL(3358,5172) - JVS(15127) = B(18764) -! JVS(15128) = Jac_FULL(3358,5250) - JVS(15128) = B(14915)-B(17466) -! JVS(15129) = Jac_FULL(3358,5253) - JVS(15129) = B(18765) -! JVS(15130) = Jac_FULL(3359,779) - JVS(15130) = B(9116) -! JVS(15131) = Jac_FULL(3359,1415) - JVS(15131) = B(9105) -! JVS(15132) = Jac_FULL(3359,3359) - JVS(15132) = -B(9113)-B(9115) -! JVS(15133) = Jac_FULL(3359,3360) - JVS(15133) = B(9108) -! JVS(15134) = Jac_FULL(3359,4718) - JVS(15134) = B(5537) -! JVS(15135) = Jac_FULL(3359,5250) - JVS(15135) = B(9106)+B(9109)-B(9114)+B(9117) -! JVS(15136) = Jac_FULL(3359,5255) - JVS(15136) = 0 -! JVS(15137) = Jac_FULL(3360,3360) - JVS(15137) = -B(9108)-B(9110) -! JVS(15138) = Jac_FULL(3360,4718) - JVS(15138) = B(5531) -! JVS(15139) = Jac_FULL(3360,5250) - JVS(15139) = -B(9109) -! JVS(15140) = Jac_FULL(3360,5252) - JVS(15140) = B(5532) -! JVS(15141) = Jac_FULL(3361,1504) - JVS(15141) = B(20104) -! JVS(15142) = Jac_FULL(3361,3361) - JVS(15142) = -B(20105) -! JVS(15143) = Jac_FULL(3361,4205) - JVS(15143) = B(18366)+B(18368)+B(18370) -! JVS(15144) = Jac_FULL(3361,5250) - JVS(15144) = 0 -! JVS(15145) = Jac_FULL(3361,5252) - JVS(15145) = B(18367) -! JVS(15146) = Jac_FULL(3361,5255) - JVS(15146) = 0 -! JVS(15147) = Jac_FULL(3361,5256) - JVS(15147) = B(18369) -! JVS(15148) = Jac_FULL(3362,1045) - JVS(15148) = B(20215) -! JVS(15149) = Jac_FULL(3362,3362) - JVS(15149) = -B(20216) -! JVS(15150) = Jac_FULL(3362,4463) - JVS(15150) = B(18578)+B(18580)+B(18582) -! JVS(15151) = Jac_FULL(3362,5250) - JVS(15151) = 0 -! JVS(15152) = Jac_FULL(3362,5252) - JVS(15152) = B(18579) -! JVS(15153) = Jac_FULL(3362,5255) - JVS(15153) = 0 -! JVS(15154) = Jac_FULL(3362,5256) - JVS(15154) = B(18581) -! JVS(15155) = Jac_FULL(3363,869) - JVS(15155) = B(20175) -! JVS(15156) = Jac_FULL(3363,3363) - JVS(15156) = -B(20176) -! JVS(15157) = Jac_FULL(3363,4655) - JVS(15157) = B(18497)+B(18499)+B(18501) -! JVS(15158) = Jac_FULL(3363,5250) - JVS(15158) = 0 -! JVS(15159) = Jac_FULL(3363,5252) - JVS(15159) = B(18498) -! JVS(15160) = Jac_FULL(3363,5255) - JVS(15160) = 0 -! JVS(15161) = Jac_FULL(3363,5256) - JVS(15161) = B(18500) -! JVS(15162) = Jac_FULL(3364,2366) - JVS(15162) = B(5077) -! JVS(15163) = Jac_FULL(3364,3364) - JVS(15163) = -B(5082)-B(5084) -! JVS(15164) = Jac_FULL(3364,3970) - JVS(15164) = B(5080) -! JVS(15165) = Jac_FULL(3364,4723) - JVS(15165) = B(2219) -! JVS(15166) = Jac_FULL(3364,5250) - JVS(15166) = B(5078)-B(5083) -! JVS(15167) = Jac_FULL(3364,5255) - JVS(15167) = 0 -! JVS(15168) = Jac_FULL(3365,279) - JVS(15168) = B(22886) -! JVS(15169) = Jac_FULL(3365,1958) - JVS(15169) = B(22879) -! JVS(15170) = Jac_FULL(3365,2564) - JVS(15170) = B(22410) -! JVS(15171) = Jac_FULL(3365,3365) - JVS(15171) = -B(22883)-B(22885) -! JVS(15172) = Jac_FULL(3365,4131) - JVS(15172) = B(22407) -! JVS(15173) = Jac_FULL(3365,4624) - JVS(15173) = 0 -! JVS(15174) = Jac_FULL(3365,5250) - JVS(15174) = B(22411)+B(22880)-B(22884)+B(22887) -! JVS(15175) = Jac_FULL(3365,5253) - JVS(15175) = 0 -! JVS(15176) = Jac_FULL(3365,5255) - JVS(15176) = 0 -! JVS(15177) = Jac_FULL(3366,3366) - JVS(15177) = -B(13240)-B(13242)-B(13243) -! JVS(15178) = Jac_FULL(3366,3624) - JVS(15178) = B(9889) -! JVS(15179) = Jac_FULL(3366,3702) - JVS(15179) = B(10181) -! JVS(15180) = Jac_FULL(3366,5011) - JVS(15180) = B(9867) -! JVS(15181) = Jac_FULL(3366,5250) - JVS(15181) = -B(13241) -! JVS(15182) = Jac_FULL(3366,5255) - JVS(15182) = B(9868) -! JVS(15183) = Jac_FULL(3367,1876) - JVS(15183) = B(7111) -! JVS(15184) = Jac_FULL(3367,1904) - JVS(15184) = B(7114) -! JVS(15185) = Jac_FULL(3367,3367) - JVS(15185) = -B(7115)-B(7116) -! JVS(15186) = Jac_FULL(3367,4784) - JVS(15186) = B(3310)+B(3312)+B(3315) -! JVS(15187) = Jac_FULL(3367,5250) - JVS(15187) = 0 -! JVS(15188) = Jac_FULL(3367,5252) - JVS(15188) = B(3311) -! JVS(15189) = Jac_FULL(3367,5255) - JVS(15189) = 0 -! JVS(15190) = Jac_FULL(3367,5256) - JVS(15190) = B(3313) -! JVS(15191) = Jac_FULL(3368,464) - JVS(15191) = B(5760) -! JVS(15192) = Jac_FULL(3368,1315) - JVS(15192) = B(5753) -! JVS(15193) = Jac_FULL(3368,2321) - JVS(15193) = B(5756) -! JVS(15194) = Jac_FULL(3368,2322) - JVS(15194) = B(5759) -! JVS(15195) = Jac_FULL(3368,3368) - JVS(15195) = -B(5762)-B(5764) -! JVS(15196) = Jac_FULL(3368,3807) - JVS(15196) = B(2601) -! JVS(15197) = Jac_FULL(3368,5250) - JVS(15197) = B(5754)+B(5757)+B(5761)-B(5763) -! JVS(15198) = Jac_FULL(3368,5252) - JVS(15198) = 0 -! JVS(15199) = Jac_FULL(3368,5255) - JVS(15199) = 0 -! JVS(15200) = Jac_FULL(3368,5256) - JVS(15200) = 0 -! JVS(15201) = Jac_FULL(3369,466) - JVS(15201) = B(4625) -! JVS(15202) = Jac_FULL(3369,2199) - JVS(15202) = B(4621) -! JVS(15203) = Jac_FULL(3369,2409) - JVS(15203) = B(4618) -! JVS(15204) = Jac_FULL(3369,3333) - JVS(15204) = B(4623) -! JVS(15205) = Jac_FULL(3369,3369) - JVS(15205) = -B(857)-B(858) -! JVS(15206) = Jac_FULL(3369,5045) - JVS(15206) = B(1823) -! JVS(15207) = Jac_FULL(3369,5250) - JVS(15207) = -B(859)+B(4619)+B(4622)+B(4626) -! JVS(15208) = Jac_FULL(3369,5252) - JVS(15208) = 0 -! JVS(15209) = Jac_FULL(3369,5255) - JVS(15209) = 0 -! JVS(15210) = Jac_FULL(3369,5256) - JVS(15210) = 0 -! JVS(15211) = Jac_FULL(3370,934) - JVS(15211) = B(19882) -! JVS(15212) = Jac_FULL(3370,3370) - JVS(15212) = -B(19883) -! JVS(15213) = Jac_FULL(3370,4467) - JVS(15213) = B(18057)+B(18059)+B(18061) -! JVS(15214) = Jac_FULL(3370,5250) - JVS(15214) = 0 -! JVS(15215) = Jac_FULL(3370,5252) - JVS(15215) = B(18058) -! JVS(15216) = Jac_FULL(3370,5255) - JVS(15216) = 0 -! JVS(15217) = Jac_FULL(3370,5256) - JVS(15217) = B(18060) -! JVS(15218) = Jac_FULL(3371,1342) - JVS(15218) = B(20017) -! JVS(15219) = Jac_FULL(3371,3371) - JVS(15219) = -B(20018) -! JVS(15220) = Jac_FULL(3371,4498) - JVS(15220) = B(18222)+B(18224)+B(18226) -! JVS(15221) = Jac_FULL(3371,5250) - JVS(15221) = 0 -! JVS(15222) = Jac_FULL(3371,5252) - JVS(15222) = B(18223) -! JVS(15223) = Jac_FULL(3371,5255) - JVS(15223) = 0 -! JVS(15224) = Jac_FULL(3371,5256) - JVS(15224) = B(18225) -! JVS(15225) = Jac_FULL(3372,361) - JVS(15225) = B(5340) -! JVS(15226) = Jac_FULL(3372,1307) - JVS(15226) = B(5329) -! JVS(15227) = Jac_FULL(3372,2383) - JVS(15227) = B(5337) -! JVS(15228) = Jac_FULL(3372,2782) - JVS(15228) = B(5593) -! JVS(15229) = Jac_FULL(3372,3372) - JVS(15229) = -B(5342)-B(5344) -! JVS(15230) = Jac_FULL(3372,3823) - JVS(15230) = B(2406) -! JVS(15231) = Jac_FULL(3372,4529) - JVS(15231) = 0 -! JVS(15232) = Jac_FULL(3372,5250) - JVS(15232) = B(5330)+B(5338)+B(5341)-B(5343)+B(5594) -! JVS(15233) = Jac_FULL(3372,5252) - JVS(15233) = 0 -! JVS(15234) = Jac_FULL(3372,5255) - JVS(15234) = 0 -! JVS(15235) = Jac_FULL(3373,394) - JVS(15235) = B(23150) -! JVS(15236) = Jac_FULL(3373,1060) - JVS(15236) = B(23143) -! JVS(15237) = Jac_FULL(3373,1813) - JVS(15237) = B(23146) -! JVS(15238) = Jac_FULL(3373,2195) - JVS(15238) = B(22071) -! JVS(15239) = Jac_FULL(3373,3373) - JVS(15239) = -B(22685)-B(22687) -! JVS(15240) = Jac_FULL(3373,4162) - JVS(15240) = B(22696) -! JVS(15241) = Jac_FULL(3373,4748) - JVS(15241) = 0 -! JVS(15242) = Jac_FULL(3373,5250) - JVS(15242) = B(22072)-B(22686)+B(23144)+B(23147)+B(23151) -! JVS(15243) = Jac_FULL(3373,5252) - JVS(15243) = 0 -! JVS(15244) = Jac_FULL(3373,5255) - JVS(15244) = 0 -! JVS(15245) = Jac_FULL(3374,699) - JVS(15245) = B(22649) -! JVS(15246) = Jac_FULL(3374,882) - JVS(15246) = B(22638) -! JVS(15247) = Jac_FULL(3374,2311) - JVS(15247) = B(22641) -! JVS(15248) = Jac_FULL(3374,3374) - JVS(15248) = -B(22646)-B(22648) -! JVS(15249) = Jac_FULL(3374,3957) - JVS(15249) = B(22644) -! JVS(15250) = Jac_FULL(3374,4825) - JVS(15250) = B(22033) -! JVS(15251) = Jac_FULL(3374,5250) - JVS(15251) = B(22639)+B(22642)-B(22647)+B(22650) -! JVS(15252) = Jac_FULL(3374,5252) - JVS(15252) = 0 -! JVS(15253) = Jac_FULL(3374,5255) - JVS(15253) = 0 -! JVS(15254) = Jac_FULL(3375,1376) - JVS(15254) = B(19920) -! JVS(15255) = Jac_FULL(3375,3375) - JVS(15255) = -B(19921) -! JVS(15256) = Jac_FULL(3375,4458) - JVS(15256) = B(18106)+B(18108)+B(18110) -! JVS(15257) = Jac_FULL(3375,5250) - JVS(15257) = 0 -! JVS(15258) = Jac_FULL(3375,5252) - JVS(15258) = B(18107) -! JVS(15259) = Jac_FULL(3375,5255) - JVS(15259) = 0 -! JVS(15260) = Jac_FULL(3375,5256) - JVS(15260) = B(18109) -! JVS(15261) = Jac_FULL(3376,1940) - JVS(15261) = B(5158) -! JVS(15262) = Jac_FULL(3376,3376) - JVS(15262) = -B(5165)-B(5167) -! JVS(15263) = Jac_FULL(3376,3842) - JVS(15263) = B(5164) -! JVS(15264) = Jac_FULL(3376,4702) - JVS(15264) = B(2292) -! JVS(15265) = Jac_FULL(3376,5250) - JVS(15265) = B(5159)-B(5166) -! JVS(15266) = Jac_FULL(3376,5255) - JVS(15266) = 0 -! JVS(15267) = Jac_FULL(3377,999) - JVS(15267) = B(4429) -! JVS(15268) = Jac_FULL(3377,2196) - JVS(15268) = B(4432) -! JVS(15269) = Jac_FULL(3377,3377) - JVS(15269) = -B(4433)-B(4434) -! JVS(15270) = Jac_FULL(3377,4876) - JVS(15270) = B(1655)+B(1657)+B(1660) -! JVS(15271) = Jac_FULL(3377,5250) - JVS(15271) = 0 -! JVS(15272) = Jac_FULL(3377,5252) - JVS(15272) = B(1656) -! JVS(15273) = Jac_FULL(3377,5255) - JVS(15273) = 0 -! JVS(15274) = Jac_FULL(3377,5256) - JVS(15274) = B(1658) -! JVS(15275) = Jac_FULL(3378,565) - JVS(15275) = B(8884) -! JVS(15276) = Jac_FULL(3378,846) - JVS(15276) = B(8873) -! JVS(15277) = Jac_FULL(3378,3378) - JVS(15277) = -B(8881)-B(8883) -! JVS(15278) = Jac_FULL(3378,3379) - JVS(15278) = B(8876) -! JVS(15279) = Jac_FULL(3378,4821) - JVS(15279) = B(5371) -! JVS(15280) = Jac_FULL(3378,5250) - JVS(15280) = B(8874)+B(8877)-B(8882)+B(8885) -! JVS(15281) = Jac_FULL(3378,5255) - JVS(15281) = 0 -! JVS(15282) = Jac_FULL(3379,3379) - JVS(15282) = -B(8876)-B(8878) -! JVS(15283) = Jac_FULL(3379,4821) - JVS(15283) = B(5365) -! JVS(15284) = Jac_FULL(3379,5250) - JVS(15284) = -B(8877) -! JVS(15285) = Jac_FULL(3379,5252) - JVS(15285) = B(5366) -! JVS(15286) = Jac_FULL(3380,1123) - JVS(15286) = B(16102) -! JVS(15287) = Jac_FULL(3380,3380) - JVS(15287) = -B(16103)-B(16104) -! JVS(15288) = Jac_FULL(3380,3774) - JVS(15288) = B(13006)+B(13008)+B(13010) -! JVS(15289) = Jac_FULL(3380,5250) - JVS(15289) = 0 -! JVS(15290) = Jac_FULL(3380,5252) - JVS(15290) = B(13007) -! JVS(15291) = Jac_FULL(3380,5255) - JVS(15291) = 0 -! JVS(15292) = Jac_FULL(3380,5256) - JVS(15292) = B(13009) -! JVS(15293) = Jac_FULL(3381,888) - JVS(15293) = B(20189) -! JVS(15294) = Jac_FULL(3381,3381) - JVS(15294) = -B(20190) -! JVS(15295) = Jac_FULL(3381,4643) - JVS(15295) = B(18532)+B(18534)+B(18536) -! JVS(15296) = Jac_FULL(3381,5250) - JVS(15296) = 0 -! JVS(15297) = Jac_FULL(3381,5252) - JVS(15297) = B(18533) -! JVS(15298) = Jac_FULL(3381,5255) - JVS(15298) = 0 -! JVS(15299) = Jac_FULL(3381,5256) - JVS(15299) = B(18535) -! JVS(15300) = Jac_FULL(3382,1375) - JVS(15300) = B(11995) -! JVS(15301) = Jac_FULL(3382,2917) - JVS(15301) = B(11998) -! JVS(15302) = Jac_FULL(3382,3382) - JVS(15302) = -B(12003)-B(12004) -! JVS(15303) = Jac_FULL(3382,5108) - JVS(15303) = B(8259) -! JVS(15304) = Jac_FULL(3382,5250) - JVS(15304) = B(11996)+B(11999)-B(12005) -! JVS(15305) = Jac_FULL(3382,5252) - JVS(15305) = 0 -! JVS(15306) = Jac_FULL(3382,5255) - JVS(15306) = 0 -! JVS(15307) = Jac_FULL(3383,2077) - JVS(15307) = B(4130) -! JVS(15308) = Jac_FULL(3383,3383) - JVS(15308) = -B(4131)-B(4132) -! JVS(15309) = Jac_FULL(3383,3540) - JVS(15309) = B(4126) -! JVS(15310) = Jac_FULL(3383,4705) - JVS(15310) = B(1347)+B(1349)+B(1351) -! JVS(15311) = Jac_FULL(3383,5250) - JVS(15311) = 0 -! JVS(15312) = Jac_FULL(3383,5252) - JVS(15312) = B(1348) -! JVS(15313) = Jac_FULL(3383,5256) - JVS(15313) = B(1350) -! JVS(15314) = Jac_FULL(3384,220) - JVS(15314) = B(11915) -! JVS(15315) = Jac_FULL(3384,1281) - JVS(15315) = B(11905) -! JVS(15316) = Jac_FULL(3384,2045) - JVS(15316) = B(11908) -! JVS(15317) = Jac_FULL(3384,2889) - JVS(15317) = B(11911) -! JVS(15318) = Jac_FULL(3384,3384) - JVS(15318) = -B(11912)-B(11913) -! JVS(15319) = Jac_FULL(3384,4334) - JVS(15319) = B(8166) -! JVS(15320) = Jac_FULL(3384,5250) - JVS(15320) = B(11906)+B(11909)-B(11914)+B(11916) -! JVS(15321) = Jac_FULL(3384,5252) - JVS(15321) = 0 -! JVS(15322) = Jac_FULL(3384,5255) - JVS(15322) = 0 -! JVS(15323) = Jac_FULL(3384,5256) - JVS(15323) = 0 -! JVS(15324) = Jac_FULL(3385,2956) - JVS(15324) = B(12613) -! JVS(15325) = Jac_FULL(3385,3385) - JVS(15325) = -B(12616)-B(12618) -! JVS(15326) = Jac_FULL(3385,4038) - JVS(15326) = B(9032) -! JVS(15327) = Jac_FULL(3385,4338) - JVS(15327) = 0 -! JVS(15328) = Jac_FULL(3385,5250) - JVS(15328) = B(12614)-B(12617) -! JVS(15329) = Jac_FULL(3385,5253) - JVS(15329) = 0 -! JVS(15330) = Jac_FULL(3385,5255) - JVS(15330) = B(9033) -! JVS(15331) = Jac_FULL(3386,1914) - JVS(15331) = B(3688) -! JVS(15332) = Jac_FULL(3386,2128) - JVS(15332) = B(3691) -! JVS(15333) = Jac_FULL(3386,3386) - JVS(15333) = -B(3692)-B(3693) -! JVS(15334) = Jac_FULL(3386,4870) - JVS(15334) = B(980)+B(982)+B(986) -! JVS(15335) = Jac_FULL(3386,5250) - JVS(15335) = 0 -! JVS(15336) = Jac_FULL(3386,5252) - JVS(15336) = B(981) -! JVS(15337) = Jac_FULL(3386,5255) - JVS(15337) = 0 -! JVS(15338) = Jac_FULL(3386,5256) - JVS(15338) = B(983) -! JVS(15339) = Jac_FULL(3387,2985) - JVS(15339) = B(11668) -! JVS(15340) = Jac_FULL(3387,3387) - JVS(15340) = -B(14917)-B(14919) -! JVS(15341) = Jac_FULL(3387,4795) - JVS(15341) = B(17468)+B(17480) -! JVS(15342) = Jac_FULL(3387,5036) - JVS(15342) = 0 -! JVS(15343) = Jac_FULL(3387,5250) - JVS(15343) = B(11669)-B(14918) -! JVS(15344) = Jac_FULL(3387,5255) - JVS(15344) = B(17469) -! JVS(15345) = Jac_FULL(3388,1030) - JVS(15345) = B(20259) -! JVS(15346) = Jac_FULL(3388,3388) - JVS(15346) = -B(20260) -! JVS(15347) = Jac_FULL(3388,4455) - JVS(15347) = B(18650)+B(18652)+B(18654) -! JVS(15348) = Jac_FULL(3388,5250) - JVS(15348) = 0 -! JVS(15349) = Jac_FULL(3388,5252) - JVS(15349) = B(18651) -! JVS(15350) = Jac_FULL(3388,5255) - JVS(15350) = 0 -! JVS(15351) = Jac_FULL(3388,5256) - JVS(15351) = B(18653) -! JVS(15352) = Jac_FULL(3389,1777) - JVS(15352) = B(14218) -! JVS(15353) = Jac_FULL(3389,2186) - JVS(15353) = B(14216) -! JVS(15354) = Jac_FULL(3389,3055) - JVS(15354) = B(14213) -! JVS(15355) = Jac_FULL(3389,3389) - JVS(15355) = -B(14221)-B(14223) -! JVS(15356) = Jac_FULL(3389,4765) - JVS(15356) = B(11029) -! JVS(15357) = Jac_FULL(3389,5250) - JVS(15357) = B(14214)+B(14219)-B(14222) -! JVS(15358) = Jac_FULL(3389,5252) - JVS(15358) = 0 -! JVS(15359) = Jac_FULL(3389,5255) - JVS(15359) = 0 -! JVS(15360) = Jac_FULL(3389,5256) - JVS(15360) = 0 -! JVS(15361) = Jac_FULL(3390,1318) - JVS(15361) = B(17136) -! JVS(15362) = Jac_FULL(3390,3390) - JVS(15362) = -B(17137)-B(17138) -! JVS(15363) = Jac_FULL(3390,4781) - JVS(15363) = B(14497)+B(14499)+B(14501) -! JVS(15364) = Jac_FULL(3390,5250) - JVS(15364) = 0 -! JVS(15365) = Jac_FULL(3390,5252) - JVS(15365) = B(14498) -! JVS(15366) = Jac_FULL(3390,5255) - JVS(15366) = 0 -! JVS(15367) = Jac_FULL(3390,5256) - JVS(15367) = B(14500) -! JVS(15368) = Jac_FULL(3391,385) - JVS(15368) = B(21211) -! JVS(15369) = Jac_FULL(3391,995) - JVS(15369) = B(21206) -! JVS(15370) = Jac_FULL(3391,1026) - JVS(15370) = B(21208) -! JVS(15371) = Jac_FULL(3391,3391) - JVS(15371) = -B(21213)-B(21214) -! JVS(15372) = Jac_FULL(3391,4890) - JVS(15372) = B(19748) -! JVS(15373) = Jac_FULL(3391,5250) - JVS(15373) = B(21207)+B(21209)+B(21212)-B(21215) -! JVS(15374) = Jac_FULL(3391,5252) - JVS(15374) = 0 -! JVS(15375) = Jac_FULL(3391,5255) - JVS(15375) = 0 -! JVS(15376) = Jac_FULL(3392,2735) - JVS(15376) = B(20431) -! JVS(15377) = Jac_FULL(3392,3392) - JVS(15377) = -B(21588)-B(21590) -! JVS(15378) = Jac_FULL(3392,5003) - JVS(15378) = B(20418) -! JVS(15379) = Jac_FULL(3392,5075) - JVS(15379) = 0 -! JVS(15380) = Jac_FULL(3392,5250) - JVS(15380) = B(20432)-B(21589) -! JVS(15381) = Jac_FULL(3392,5253) - JVS(15381) = B(20419) -! JVS(15382) = Jac_FULL(3393,1010) - JVS(15382) = B(12023) -! JVS(15383) = Jac_FULL(3393,2291) - JVS(15383) = B(12026) -! JVS(15384) = Jac_FULL(3393,3393) - JVS(15384) = -B(12029)-B(12030) -! JVS(15385) = Jac_FULL(3393,4577) - JVS(15385) = B(8288)+B(8290)+B(8293) -! JVS(15386) = Jac_FULL(3393,5250) - JVS(15386) = 0 -! JVS(15387) = Jac_FULL(3393,5252) - JVS(15387) = B(8289) -! JVS(15388) = Jac_FULL(3393,5255) - JVS(15388) = 0 -! JVS(15389) = Jac_FULL(3393,5256) - JVS(15389) = B(8291) -! JVS(15390) = Jac_FULL(3394,2481) - JVS(15390) = B(10333) -! JVS(15391) = Jac_FULL(3394,3394) - JVS(15391) = -B(4086)-B(4087) -! JVS(15392) = Jac_FULL(3394,5050) - JVS(15392) = 0 -! JVS(15393) = Jac_FULL(3394,5228) - JVS(15393) = B(1284) -! JVS(15394) = Jac_FULL(3394,5250) - JVS(15394) = -B(4088) -! JVS(15395) = Jac_FULL(3394,5252) - JVS(15395) = B(1285) -! JVS(15396) = Jac_FULL(3394,5258) - JVS(15396) = 0 -! JVS(15397) = Jac_FULL(3395,923) - JVS(15397) = B(18455) -! JVS(15398) = Jac_FULL(3395,3395) - JVS(15398) = -B(18456) -! JVS(15399) = Jac_FULL(3395,4307) - JVS(15399) = B(16071)+B(16073)+B(16075) -! JVS(15400) = Jac_FULL(3395,5250) - JVS(15400) = 0 -! JVS(15401) = Jac_FULL(3395,5252) - JVS(15401) = B(16072) -! JVS(15402) = Jac_FULL(3395,5255) - JVS(15402) = 0 -! JVS(15403) = Jac_FULL(3395,5256) - JVS(15403) = B(16074) -! JVS(15404) = Jac_FULL(3396,1053) - JVS(15404) = B(15902) -! JVS(15405) = Jac_FULL(3396,3396) - JVS(15405) = -B(15903)-B(15904) -! JVS(15406) = Jac_FULL(3396,3713) - JVS(15406) = B(12814)+B(12816)+B(12818) -! JVS(15407) = Jac_FULL(3396,5250) - JVS(15407) = 0 -! JVS(15408) = Jac_FULL(3396,5252) - JVS(15408) = B(12815) -! JVS(15409) = Jac_FULL(3396,5255) - JVS(15409) = 0 -! JVS(15410) = Jac_FULL(3396,5256) - JVS(15410) = B(12817) -! JVS(15411) = Jac_FULL(3397,406) - JVS(15411) = B(23141) -! JVS(15412) = Jac_FULL(3397,813) - JVS(15412) = B(22066) -! JVS(15413) = Jac_FULL(3397,1801) - JVS(15413) = B(22059) -! JVS(15414) = Jac_FULL(3397,2440) - JVS(15414) = B(23137) -! JVS(15415) = Jac_FULL(3397,2524) - JVS(15415) = B(22062) -! JVS(15416) = Jac_FULL(3397,3397) - JVS(15416) = -B(22673)-B(22675) -! JVS(15417) = Jac_FULL(3397,4130) - JVS(15417) = B(22682) -! JVS(15418) = Jac_FULL(3397,4385) - JVS(15418) = 0 -! JVS(15419) = Jac_FULL(3397,5250) - JVS(15419) = B(22060)+B(22063)+B(22067)-B(22674)+B(23138)+B(23142) -! JVS(15420) = Jac_FULL(3397,5252) - JVS(15420) = 0 -! JVS(15421) = Jac_FULL(3397,5255) - JVS(15421) = 0 -! JVS(15422) = Jac_FULL(3398,904) - JVS(15422) = B(11126) -! JVS(15423) = Jac_FULL(3398,2296) - JVS(15423) = B(11129) -! JVS(15424) = Jac_FULL(3398,3398) - JVS(15424) = -B(11130)-B(11131) -! JVS(15425) = Jac_FULL(3398,3852) - JVS(15425) = B(7335)+B(7337)+B(7340) -! JVS(15426) = Jac_FULL(3398,5250) - JVS(15426) = 0 -! JVS(15427) = Jac_FULL(3398,5252) - JVS(15427) = B(7336) -! JVS(15428) = Jac_FULL(3398,5255) - JVS(15428) = 0 -! JVS(15429) = Jac_FULL(3398,5256) - JVS(15429) = B(7338) -! JVS(15430) = Jac_FULL(3399,2394) - JVS(15430) = B(4914) -! JVS(15431) = Jac_FULL(3399,3399) - JVS(15431) = -B(4921)-B(4923) -! JVS(15432) = Jac_FULL(3399,3878) - JVS(15432) = B(4920) -! JVS(15433) = Jac_FULL(3399,4593) - JVS(15433) = B(2089) -! JVS(15434) = Jac_FULL(3399,5250) - JVS(15434) = B(4915)-B(4922) -! JVS(15435) = Jac_FULL(3399,5255) - JVS(15435) = 0 -! JVS(15436) = Jac_FULL(3400,1426) - JVS(15436) = B(20039) -! JVS(15437) = Jac_FULL(3400,3400) - JVS(15437) = -B(20040) -! JVS(15438) = Jac_FULL(3400,4101) - JVS(15438) = B(18257)+B(18259)+B(18261) -! JVS(15439) = Jac_FULL(3400,5250) - JVS(15439) = 0 -! JVS(15440) = Jac_FULL(3400,5252) - JVS(15440) = B(18258) -! JVS(15441) = Jac_FULL(3400,5255) - JVS(15441) = 0 -! JVS(15442) = Jac_FULL(3400,5256) - JVS(15442) = B(18260) -! JVS(15443) = Jac_FULL(3401,2240) - JVS(15443) = B(11677) -! JVS(15444) = Jac_FULL(3401,3401) - JVS(15444) = -B(14924)-B(14926) -! JVS(15445) = Jac_FULL(3401,4795) - JVS(15445) = B(17476) -! JVS(15446) = Jac_FULL(3401,5036) - JVS(15446) = 0 -! JVS(15447) = Jac_FULL(3401,5250) - JVS(15447) = B(11678)-B(14925) -! JVS(15448) = Jac_FULL(3401,5253) - JVS(15448) = B(17477) -! JVS(15449) = Jac_FULL(3402,977) - JVS(15449) = B(19945) -! JVS(15450) = Jac_FULL(3402,3402) - JVS(15450) = -B(19946) -! JVS(15451) = Jac_FULL(3402,4415) - JVS(15451) = B(18157)+B(18159)+B(18161) -! JVS(15452) = Jac_FULL(3402,5250) - JVS(15452) = 0 -! JVS(15453) = Jac_FULL(3402,5252) - JVS(15453) = B(18158) -! JVS(15454) = Jac_FULL(3402,5255) - JVS(15454) = 0 -! JVS(15455) = Jac_FULL(3402,5256) - JVS(15455) = B(18160) -! JVS(15456) = Jac_FULL(3403,128) - JVS(15456) = B(6537) -! JVS(15457) = Jac_FULL(3403,1083) - JVS(15457) = B(6532)+B(6534) -! JVS(15458) = Jac_FULL(3403,1159) - JVS(15458) = B(6531) -! JVS(15459) = Jac_FULL(3403,3403) - JVS(15459) = -B(6535)-B(6536) -! JVS(15460) = Jac_FULL(3403,4167) - JVS(15460) = B(2972)+B(2974)+B(2976) -! JVS(15461) = Jac_FULL(3403,5250) - JVS(15461) = B(6533)+B(6538) -! JVS(15462) = Jac_FULL(3403,5252) - JVS(15462) = B(2973) -! JVS(15463) = Jac_FULL(3403,5255) - JVS(15463) = 0 -! JVS(15464) = Jac_FULL(3403,5256) - JVS(15464) = B(2975) -! JVS(15465) = Jac_FULL(3404,2193) - JVS(15465) = B(4450) -! JVS(15466) = Jac_FULL(3404,2223) - JVS(15466) = B(4445) -! JVS(15467) = Jac_FULL(3404,3404) - JVS(15467) = -B(4453)-B(4454) -! JVS(15468) = Jac_FULL(3404,4901) - JVS(15468) = B(1677)+B(1679)+B(1681) -! JVS(15469) = Jac_FULL(3404,5250) - JVS(15469) = 0 -! JVS(15470) = Jac_FULL(3404,5252) - JVS(15470) = B(1678) -! JVS(15471) = Jac_FULL(3404,5255) - JVS(15471) = 0 -! JVS(15472) = Jac_FULL(3404,5256) - JVS(15472) = B(1680) -! JVS(15473) = Jac_FULL(3405,1160) - JVS(15473) = B(14000) -! JVS(15474) = Jac_FULL(3405,1952) - JVS(15474) = B(14004) -! JVS(15475) = Jac_FULL(3405,3405) - JVS(15475) = -B(14001) -! JVS(15476) = Jac_FULL(3405,4610) - JVS(15476) = B(10798)+B(10802)+B(10804) -! JVS(15477) = Jac_FULL(3405,5250) - JVS(15477) = 0 -! JVS(15478) = Jac_FULL(3405,5252) - JVS(15478) = B(10799) -! JVS(15479) = Jac_FULL(3405,5255) - JVS(15479) = 0 -! JVS(15480) = Jac_FULL(3405,5256) - JVS(15480) = B(10803) -! JVS(15481) = Jac_FULL(3406,1455) - JVS(15481) = B(20185) -! JVS(15482) = Jac_FULL(3406,3406) - JVS(15482) = -B(20186) -! JVS(15483) = Jac_FULL(3406,4726) - JVS(15483) = B(18525)+B(18527)+B(18529) -! JVS(15484) = Jac_FULL(3406,5250) - JVS(15484) = 0 -! JVS(15485) = Jac_FULL(3406,5252) - JVS(15485) = B(18526) -! JVS(15486) = Jac_FULL(3406,5255) - JVS(15486) = 0 -! JVS(15487) = Jac_FULL(3406,5256) - JVS(15487) = B(18528) -! JVS(15488) = Jac_FULL(3407,1127) - JVS(15488) = B(15438) -! JVS(15489) = Jac_FULL(3407,3407) - JVS(15489) = -B(15439)-B(15440) -! JVS(15490) = Jac_FULL(3407,3728) - JVS(15490) = B(12339)+B(12341)+B(12343) -! JVS(15491) = Jac_FULL(3407,5250) - JVS(15491) = 0 -! JVS(15492) = Jac_FULL(3407,5252) - JVS(15492) = B(12340) -! JVS(15493) = Jac_FULL(3407,5255) - JVS(15493) = 0 -! JVS(15494) = Jac_FULL(3407,5256) - JVS(15494) = B(12342) -! JVS(15495) = Jac_FULL(3408,2546) - JVS(15495) = B(19543) -! JVS(15496) = Jac_FULL(3408,3408) - JVS(15496) = -B(19033)-B(19035) -! JVS(15497) = Jac_FULL(3408,4926) - JVS(15497) = B(16822) -! JVS(15498) = Jac_FULL(3408,4957) - JVS(15498) = 0 -! JVS(15499) = Jac_FULL(3408,5250) - JVS(15499) = -B(19034)+B(19544) -! JVS(15500) = Jac_FULL(3408,5253) - JVS(15500) = B(16823) -! JVS(15501) = Jac_FULL(3409,2449) - JVS(15501) = B(4982) -! JVS(15502) = Jac_FULL(3409,3409) - JVS(15502) = -B(4989)-B(4991) -! JVS(15503) = Jac_FULL(3409,3922) - JVS(15503) = B(4987) -! JVS(15504) = Jac_FULL(3409,4782) - JVS(15504) = B(2142) -! JVS(15505) = Jac_FULL(3409,5250) - JVS(15505) = B(4983)-B(4990) -! JVS(15506) = Jac_FULL(3409,5255) - JVS(15506) = 0 -! JVS(15507) = Jac_FULL(3410,1544) - JVS(15507) = B(23909) -! JVS(15508) = Jac_FULL(3410,3410) - JVS(15508) = -B(23912) -! JVS(15509) = Jac_FULL(3410,3874) - JVS(15509) = B(23768)+B(23770)+B(23772) -! JVS(15510) = Jac_FULL(3410,5250) - JVS(15510) = 0 -! JVS(15511) = Jac_FULL(3410,5252) - JVS(15511) = B(23769) -! JVS(15512) = Jac_FULL(3410,5255) - JVS(15512) = 0 -! JVS(15513) = Jac_FULL(3410,5256) - JVS(15513) = B(23771) -! JVS(15514) = Jac_FULL(3411,742) - JVS(15514) = B(10011) -! JVS(15515) = Jac_FULL(3411,1038) - JVS(15515) = B(10000) -! JVS(15516) = Jac_FULL(3411,3322) - JVS(15516) = B(10003) -! JVS(15517) = Jac_FULL(3411,3411) - JVS(15517) = -B(10008)-B(10010) -! JVS(15518) = Jac_FULL(3411,4725) - JVS(15518) = B(6310) -! JVS(15519) = Jac_FULL(3411,5250) - JVS(15519) = B(10001)+B(10004)-B(10009)+B(10012) -! JVS(15520) = Jac_FULL(3411,5252) - JVS(15520) = 0 -! JVS(15521) = Jac_FULL(3411,5255) - JVS(15521) = 0 -! JVS(15522) = Jac_FULL(3412,505) - JVS(15522) = B(6426) -! JVS(15523) = Jac_FULL(3412,1270) - JVS(15523) = B(6419) -! JVS(15524) = Jac_FULL(3412,2333) - JVS(15524) = B(6422) -! JVS(15525) = Jac_FULL(3412,2334) - JVS(15525) = B(6425) -! JVS(15526) = Jac_FULL(3412,3412) - JVS(15526) = -B(6428)-B(6430) -! JVS(15527) = Jac_FULL(3412,3819) - JVS(15527) = B(2919) -! JVS(15528) = Jac_FULL(3412,5250) - JVS(15528) = B(6420)+B(6423)+B(6427)-B(6429) -! JVS(15529) = Jac_FULL(3412,5252) - JVS(15529) = 0 -! JVS(15530) = Jac_FULL(3412,5255) - JVS(15530) = 0 -! JVS(15531) = Jac_FULL(3412,5256) - JVS(15531) = 0 -! JVS(15532) = Jac_FULL(3413,3413) - JVS(15532) = -B(10541)-B(10543) -! JVS(15533) = Jac_FULL(3413,5118) - JVS(15533) = B(6937) -! JVS(15534) = Jac_FULL(3413,5204) - JVS(15534) = B(6813) -! JVS(15535) = Jac_FULL(3413,5217) - JVS(15535) = B(6786) -! JVS(15536) = Jac_FULL(3413,5218) - JVS(15536) = B(6926) -! JVS(15537) = Jac_FULL(3413,5250) - JVS(15537) = -B(10542)-B(10544) -! JVS(15538) = Jac_FULL(3414,1025) - JVS(15538) = B(20134) -! JVS(15539) = Jac_FULL(3414,3414) - JVS(15539) = -B(20135) -! JVS(15540) = Jac_FULL(3414,4194) - JVS(15540) = B(18433)+B(18435)+B(18437) -! JVS(15541) = Jac_FULL(3414,5250) - JVS(15541) = 0 -! JVS(15542) = Jac_FULL(3414,5252) - JVS(15542) = B(18434) -! JVS(15543) = Jac_FULL(3414,5255) - JVS(15543) = 0 -! JVS(15544) = Jac_FULL(3414,5256) - JVS(15544) = B(18436) -! JVS(15545) = Jac_FULL(3415,2009) - JVS(15545) = B(14871) -! JVS(15546) = Jac_FULL(3415,3415) - JVS(15546) = -B(14872)-B(14873) -! JVS(15547) = Jac_FULL(3415,4354) - JVS(15547) = B(11535)+B(11537)+B(11540) -! JVS(15548) = Jac_FULL(3415,5250) - JVS(15548) = 0 -! JVS(15549) = Jac_FULL(3415,5252) - JVS(15549) = B(11536) -! JVS(15550) = Jac_FULL(3415,5255) - JVS(15550) = 0 -! JVS(15551) = Jac_FULL(3415,5256) - JVS(15551) = B(11538) -! JVS(15552) = Jac_FULL(3416,788) - JVS(15552) = B(8727) -! JVS(15553) = Jac_FULL(3416,1016) - JVS(15553) = B(8716) -! JVS(15554) = Jac_FULL(3416,3285) - JVS(15554) = B(8719) -! JVS(15555) = Jac_FULL(3416,3416) - JVS(15555) = -B(8724)-B(8726) -! JVS(15556) = Jac_FULL(3416,4720) - JVS(15556) = B(5246) -! JVS(15557) = Jac_FULL(3416,5250) - JVS(15557) = B(8717)+B(8720)-B(8725)+B(8728) -! JVS(15558) = Jac_FULL(3416,5252) - JVS(15558) = 0 -! JVS(15559) = Jac_FULL(3416,5255) - JVS(15559) = 0 -! JVS(15560) = Jac_FULL(3417,1223) - JVS(15560) = B(20237) -! JVS(15561) = Jac_FULL(3417,3417) - JVS(15561) = -B(20238) -! JVS(15562) = Jac_FULL(3417,4434) - JVS(15562) = B(18615)+B(18617)+B(18619) -! JVS(15563) = Jac_FULL(3417,5250) - JVS(15563) = 0 -! JVS(15564) = Jac_FULL(3417,5252) - JVS(15564) = B(18616) -! JVS(15565) = Jac_FULL(3417,5255) - JVS(15565) = 0 -! JVS(15566) = Jac_FULL(3417,5256) - JVS(15566) = B(18618) -! JVS(15567) = Jac_FULL(3418,2413) - JVS(15567) = B(4972) -! JVS(15568) = Jac_FULL(3418,3418) - JVS(15568) = -B(4979)-B(4981) -! JVS(15569) = Jac_FULL(3418,3956) - JVS(15569) = B(4978) -! JVS(15570) = Jac_FULL(3418,4714) - JVS(15570) = B(2133) -! JVS(15571) = Jac_FULL(3418,5250) - JVS(15571) = B(4973)-B(4980) -! JVS(15572) = Jac_FULL(3418,5255) - JVS(15572) = 0 -! JVS(15573) = Jac_FULL(3419,3419) - JVS(15573) = -B(13276)-B(13277) -! JVS(15574) = Jac_FULL(3419,3441) - JVS(15574) = B(13273) -! JVS(15575) = Jac_FULL(3419,4769) - JVS(15575) = B(9932)+B(9934)+B(9936) -! JVS(15576) = Jac_FULL(3419,5252) - JVS(15576) = B(9933) -! JVS(15577) = Jac_FULL(3419,5256) - JVS(15577) = B(9935) -! JVS(15578) = Jac_FULL(3420,441) - JVS(15578) = B(22717) -! JVS(15579) = Jac_FULL(3420,955) - JVS(15579) = B(22710) -! JVS(15580) = Jac_FULL(3420,2408) - JVS(15580) = B(21075) -! JVS(15581) = Jac_FULL(3420,2673) - JVS(15581) = B(22713) -! JVS(15582) = Jac_FULL(3420,3420) - JVS(15582) = -B(22096)-B(22098) -! JVS(15583) = Jac_FULL(3420,4172) - JVS(15583) = B(22107) -! JVS(15584) = Jac_FULL(3420,4764) - JVS(15584) = 0 -! JVS(15585) = Jac_FULL(3420,5250) - JVS(15585) = B(21076)-B(22097)+B(22711)+B(22714)+B(22718) -! JVS(15586) = Jac_FULL(3420,5252) - JVS(15586) = 0 -! JVS(15587) = Jac_FULL(3420,5255) - JVS(15587) = 0 -! JVS(15588) = Jac_FULL(3421,1329) - JVS(15588) = B(18388) -! JVS(15589) = Jac_FULL(3421,3421) - JVS(15589) = -B(18389) -! JVS(15590) = Jac_FULL(3421,4237) - JVS(15590) = B(15969)+B(15971)+B(15973) -! JVS(15591) = Jac_FULL(3421,5250) - JVS(15591) = 0 -! JVS(15592) = Jac_FULL(3421,5252) - JVS(15592) = B(15970) -! JVS(15593) = Jac_FULL(3421,5255) - JVS(15593) = 0 -! JVS(15594) = Jac_FULL(3421,5256) - JVS(15594) = B(15972) -! JVS(15595) = Jac_FULL(3422,1948) - JVS(15595) = B(3874) -! JVS(15596) = Jac_FULL(3422,3422) - JVS(15596) = -B(3877)-B(3878) -! JVS(15597) = Jac_FULL(3422,4473) - JVS(15597) = B(1122)+B(1124)+B(1127) -! JVS(15598) = Jac_FULL(3422,5250) - JVS(15598) = 0 -! JVS(15599) = Jac_FULL(3422,5252) - JVS(15599) = B(1123) -! JVS(15600) = Jac_FULL(3422,5255) - JVS(15600) = 0 -! JVS(15601) = Jac_FULL(3422,5256) - JVS(15601) = B(1125) -! JVS(15602) = Jac_FULL(3423,1388) - JVS(15602) = B(16000) -! JVS(15603) = Jac_FULL(3423,3423) - JVS(15603) = -B(16001)-B(16002) -! JVS(15604) = Jac_FULL(3423,3772) - JVS(15604) = B(12912)+B(12914)+B(12916) -! JVS(15605) = Jac_FULL(3423,5250) - JVS(15605) = 0 -! JVS(15606) = Jac_FULL(3423,5252) - JVS(15606) = B(12913) -! JVS(15607) = Jac_FULL(3423,5255) - JVS(15607) = 0 -! JVS(15608) = Jac_FULL(3423,5256) - JVS(15608) = B(12915) -! JVS(15609) = Jac_FULL(3424,1519) - JVS(15609) = B(23501) -! JVS(15610) = Jac_FULL(3424,2275) - JVS(15610) = B(23504) -! JVS(15611) = Jac_FULL(3424,3424) - JVS(15611) = -B(23505)-B(23506) -! JVS(15612) = Jac_FULL(3424,4196) - JVS(15612) = B(23156)+B(23158)+B(23161) -! JVS(15613) = Jac_FULL(3424,5250) - JVS(15613) = 0 -! JVS(15614) = Jac_FULL(3424,5252) - JVS(15614) = B(23157) -! JVS(15615) = Jac_FULL(3424,5255) - JVS(15615) = 0 -! JVS(15616) = Jac_FULL(3424,5256) - JVS(15616) = B(23159) -! JVS(15617) = Jac_FULL(3425,1444) - JVS(15617) = B(21101) -! JVS(15618) = Jac_FULL(3425,1752) - JVS(15618) = B(21104) -! JVS(15619) = Jac_FULL(3425,3425) - JVS(15619) = -B(21105)-B(21106) -! JVS(15620) = Jac_FULL(3425,4363) - JVS(15620) = B(19522)+B(19524)+B(19527) -! JVS(15621) = Jac_FULL(3425,5250) - JVS(15621) = 0 -! JVS(15622) = Jac_FULL(3425,5252) - JVS(15622) = B(19523) -! JVS(15623) = Jac_FULL(3425,5255) - JVS(15623) = 0 -! JVS(15624) = Jac_FULL(3425,5256) - JVS(15624) = B(19525) -! JVS(15625) = Jac_FULL(3426,732) - JVS(15625) = B(9478) -! JVS(15626) = Jac_FULL(3426,851) - JVS(15626) = B(9467) -! JVS(15627) = Jac_FULL(3426,3426) - JVS(15627) = -B(9475)-B(9477) -! JVS(15628) = Jac_FULL(3426,3427) - JVS(15628) = B(9470) -! JVS(15629) = Jac_FULL(3426,4377) - JVS(15629) = B(5832) -! JVS(15630) = Jac_FULL(3426,5250) - JVS(15630) = B(9468)+B(9471)-B(9476)+B(9479) -! JVS(15631) = Jac_FULL(3426,5255) - JVS(15631) = 0 -! JVS(15632) = Jac_FULL(3427,3427) - JVS(15632) = -B(9470)-B(9472) -! JVS(15633) = Jac_FULL(3427,4377) - JVS(15633) = B(5826) -! JVS(15634) = Jac_FULL(3427,5250) - JVS(15634) = -B(9471) -! JVS(15635) = Jac_FULL(3427,5252) - JVS(15635) = B(5827) -! JVS(15636) = Jac_FULL(3428,2252) - JVS(15636) = B(10546) -! JVS(15637) = Jac_FULL(3428,2544) - JVS(15637) = B(10613) -! JVS(15638) = Jac_FULL(3428,3428) - JVS(15638) = -B(13717)-B(13719)-B(13721)-B(13723)-B(13725) -! JVS(15639) = Jac_FULL(3428,5219) - JVS(15639) = 0 -! JVS(15640) = Jac_FULL(3428,5224) - JVS(15640) = 0 -! JVS(15641) = Jac_FULL(3428,5250) - JVS(15641) = B(10547)+B(10614)-B(13718)-B(13720)-B(13722)-B(13724)-B(13726) -! JVS(15642) = Jac_FULL(3428,5255) - JVS(15642) = 0 -! JVS(15643) = Jac_FULL(3429,1946) - JVS(15643) = B(4386) -! JVS(15644) = Jac_FULL(3429,2435) - JVS(15644) = B(4383) -! JVS(15645) = Jac_FULL(3429,3429) - JVS(15645) = -B(4387)-B(4388) -! JVS(15646) = Jac_FULL(3429,5062) - JVS(15646) = B(1601)+B(1603)+B(1607) -! JVS(15647) = Jac_FULL(3429,5250) - JVS(15647) = 0 -! JVS(15648) = Jac_FULL(3429,5252) - JVS(15648) = B(1602) -! JVS(15649) = Jac_FULL(3429,5255) - JVS(15649) = 0 -! JVS(15650) = Jac_FULL(3429,5256) - JVS(15650) = B(1604) -! JVS(15651) = Jac_FULL(3430,1439) - JVS(15651) = B(23664) -! JVS(15652) = Jac_FULL(3430,1786) - JVS(15652) = B(23667) -! JVS(15653) = Jac_FULL(3430,3430) - JVS(15653) = -B(23668)-B(23669) -! JVS(15654) = Jac_FULL(3430,4342) - JVS(15654) = B(23398)+B(23400)+B(23403) -! JVS(15655) = Jac_FULL(3430,5250) - JVS(15655) = 0 -! JVS(15656) = Jac_FULL(3430,5252) - JVS(15656) = B(23399) -! JVS(15657) = Jac_FULL(3430,5255) - JVS(15657) = 0 -! JVS(15658) = Jac_FULL(3430,5256) - JVS(15658) = B(23401) -! JVS(15659) = Jac_FULL(3431,411) - JVS(15659) = B(23200) -! JVS(15660) = Jac_FULL(3431,1871) - JVS(15660) = B(23196) -! JVS(15661) = Jac_FULL(3431,2621) - JVS(15661) = B(22119) -! JVS(15662) = Jac_FULL(3431,3431) - JVS(15662) = -B(22733)-B(22735) -! JVS(15663) = Jac_FULL(3431,4147) - JVS(15663) = B(22742) -! JVS(15664) = Jac_FULL(3431,5104) - JVS(15664) = 0 -! JVS(15665) = Jac_FULL(3431,5250) - JVS(15665) = B(22120)-B(22734)+B(23197)+B(23201) -! JVS(15666) = Jac_FULL(3431,5252) - JVS(15666) = 0 -! JVS(15667) = Jac_FULL(3431,5255) - JVS(15667) = 0 -! JVS(15668) = Jac_FULL(3432,2069) - JVS(15668) = B(5031) -! JVS(15669) = Jac_FULL(3432,3432) - JVS(15669) = -B(5036)-B(5038) -! JVS(15670) = Jac_FULL(3432,3887) - JVS(15670) = B(5034) -! JVS(15671) = Jac_FULL(3432,4700) - JVS(15671) = B(2186) -! JVS(15672) = Jac_FULL(3432,5250) - JVS(15672) = B(5032)-B(5037) -! JVS(15673) = Jac_FULL(3432,5255) - JVS(15673) = 0 -! JVS(15674) = Jac_FULL(3433,785) - JVS(15674) = B(9784) -! JVS(15675) = Jac_FULL(3433,1014) - JVS(15675) = B(9773) -! JVS(15676) = Jac_FULL(3433,3264) - JVS(15676) = B(9778) -! JVS(15677) = Jac_FULL(3433,3433) - JVS(15677) = -B(9781)-B(9783) -! JVS(15678) = Jac_FULL(3433,4803) - JVS(15678) = B(6084) -! JVS(15679) = Jac_FULL(3433,5250) - JVS(15679) = B(9774)+B(9779)-B(9782)+B(9785) -! JVS(15680) = Jac_FULL(3433,5252) - JVS(15680) = 0 -! JVS(15681) = Jac_FULL(3433,5255) - JVS(15681) = 0 -! JVS(15682) = Jac_FULL(3434,513) - JVS(15682) = B(16437) -! JVS(15683) = Jac_FULL(3434,2852) - JVS(15683) = B(21524) -! JVS(15684) = Jac_FULL(3434,2923) - JVS(15684) = B(16428) -! JVS(15685) = Jac_FULL(3434,3434) - JVS(15685) = -B(16434)-B(16436) -! JVS(15686) = Jac_FULL(3434,4920) - JVS(15686) = B(13408) -! JVS(15687) = Jac_FULL(3434,4977) - JVS(15687) = 0 -! JVS(15688) = Jac_FULL(3434,5250) - JVS(15688) = B(16429)-B(16435)+B(16438)+B(21525) -! JVS(15689) = Jac_FULL(3434,5253) - JVS(15689) = 0 -! JVS(15690) = Jac_FULL(3434,5255) - JVS(15690) = 0 -! JVS(15691) = Jac_FULL(3435,3435) - JVS(15691) = -B(5401)-B(5403) -! JVS(15692) = Jac_FULL(3435,4028) - JVS(15692) = B(2430) -! JVS(15693) = Jac_FULL(3435,5250) - JVS(15693) = -B(5402) -! JVS(15694) = Jac_FULL(3435,5252) - JVS(15694) = B(2431) -! JVS(15695) = Jac_FULL(3436,3436) - JVS(15695) = -B(21882)-B(21884) -! JVS(15696) = Jac_FULL(3436,5073) - JVS(15696) = B(20829) -! JVS(15697) = Jac_FULL(3436,5250) - JVS(15697) = -B(21883) -! JVS(15698) = Jac_FULL(3436,5253) - JVS(15698) = B(20830) -! JVS(15699) = Jac_FULL(3437,3437) - JVS(15699) = -B(9647)-B(9649)-B(9651)-B(9653)-B(9654) -! JVS(15700) = Jac_FULL(3437,4937) - JVS(15700) = B(5980) -! JVS(15701) = Jac_FULL(3437,5250) - JVS(15701) = -B(9650)-B(9652) -! JVS(15702) = Jac_FULL(3437,5256) - JVS(15702) = -B(9648) -! JVS(15703) = Jac_FULL(3438,3438) - JVS(15703) = -B(9879)-B(9881) -! JVS(15704) = Jac_FULL(3438,4568) - JVS(15704) = B(6167) -! JVS(15705) = Jac_FULL(3438,5250) - JVS(15705) = -B(9880) -! JVS(15706) = Jac_FULL(3438,5252) - JVS(15706) = B(6168) -! JVS(15707) = Jac_FULL(3439,3439) - JVS(15707) = -B(5847)-B(5849) -! JVS(15708) = Jac_FULL(3439,4068) - JVS(15708) = B(2637) -! JVS(15709) = Jac_FULL(3439,5250) - JVS(15709) = -B(5848) -! JVS(15710) = Jac_FULL(3439,5252) - JVS(15710) = B(2638) -! JVS(15711) = Jac_FULL(3440,89) - JVS(15711) = B(5851) -! JVS(15712) = Jac_FULL(3440,1431) - JVS(15712) = B(5846) -! JVS(15713) = Jac_FULL(3440,3439) - JVS(15713) = B(5849) -! JVS(15714) = Jac_FULL(3440,3440) - JVS(15714) = -B(5850) -! JVS(15715) = Jac_FULL(3440,4068) - JVS(15715) = B(2639)+B(2641)+B(2643) -! JVS(15716) = Jac_FULL(3440,5250) - JVS(15716) = B(5852) -! JVS(15717) = Jac_FULL(3440,5252) - JVS(15717) = B(2640) -! JVS(15718) = Jac_FULL(3440,5255) - JVS(15718) = 0 -! JVS(15719) = Jac_FULL(3440,5256) - JVS(15719) = B(2642) -! JVS(15720) = Jac_FULL(3441,3441) - JVS(15720) = -B(13271)-B(13273)-B(13274)-B(13275) -! JVS(15721) = Jac_FULL(3441,4769) - JVS(15721) = B(9930) -! JVS(15722) = Jac_FULL(3441,5250) - JVS(15722) = -B(13272) -! JVS(15723) = Jac_FULL(3441,5255) - JVS(15723) = B(9931) -! JVS(15724) = Jac_FULL(3442,3442) - JVS(15724) = -B(585)-B(587)-B(589) -! JVS(15725) = Jac_FULL(3442,5250) - JVS(15725) = -B(590) -! JVS(15726) = Jac_FULL(3442,5256) - JVS(15726) = -B(586) -! JVS(15727) = Jac_FULL(3442,5258) - JVS(15727) = -B(588) -! JVS(15728) = Jac_FULL(3443,3443) - JVS(15728) = -B(16557)-B(16559) -! JVS(15729) = Jac_FULL(3443,5035) - JVS(15729) = B(13709) -! JVS(15730) = Jac_FULL(3443,5250) - JVS(15730) = -B(16558) -! JVS(15731) = Jac_FULL(3443,5252) - JVS(15731) = B(13710) -! JVS(15732) = Jac_FULL(3444,3444) - JVS(15732) = -B(3913)-B(3915)-B(3917) -! JVS(15733) = Jac_FULL(3444,4647) - JVS(15733) = B(1151) -! JVS(15734) = Jac_FULL(3444,5250) - JVS(15734) = -B(3914)-B(3916) -! JVS(15735) = Jac_FULL(3444,5255) - JVS(15735) = B(1152) -! JVS(15736) = Jac_FULL(3445,3445) - JVS(15736) = -B(6197)-B(6199) -! JVS(15737) = Jac_FULL(3445,4074) - JVS(15737) = B(2814) -! JVS(15738) = Jac_FULL(3445,5250) - JVS(15738) = -B(6198) -! JVS(15739) = Jac_FULL(3445,5252) - JVS(15739) = B(2815) -! JVS(15740) = Jac_FULL(3446,3446) - JVS(15740) = -B(12384)-B(12386)-B(12388)-B(12389) -! JVS(15741) = Jac_FULL(3446,4358) - JVS(15741) = B(8741) -! JVS(15742) = Jac_FULL(3446,5250) - JVS(15742) = -B(12385)-B(12387) -! JVS(15743) = Jac_FULL(3446,5255) - JVS(15743) = B(8742) -! JVS(15744) = Jac_FULL(3447,3447) - JVS(15744) = -B(23556)-B(23558) -! JVS(15745) = Jac_FULL(3447,4157) - JVS(15745) = B(23255) -! JVS(15746) = Jac_FULL(3447,5250) - JVS(15746) = -B(23557) -! JVS(15747) = Jac_FULL(3447,5252) - JVS(15747) = B(23256) -! JVS(15748) = Jac_FULL(3448,3448) - JVS(15748) = -B(4268)-B(4269)-B(4271)-B(4273) -! JVS(15749) = Jac_FULL(3448,5128) - JVS(15749) = B(1499) -! JVS(15750) = Jac_FULL(3448,5250) - JVS(15750) = -B(4270)-B(4272)-B(4274) -! JVS(15751) = Jac_FULL(3448,5255) - JVS(15751) = B(1500) -! JVS(15752) = Jac_FULL(3449,3449) - JVS(15752) = -B(16621)-B(16623)-B(16624) -! JVS(15753) = Jac_FULL(3449,4339) - JVS(15753) = B(13786) -! JVS(15754) = Jac_FULL(3449,5250) - JVS(15754) = -B(16622) -! JVS(15755) = Jac_FULL(3449,5255) - JVS(15755) = B(13787) -! JVS(15756) = Jac_FULL(3450,1988) - JVS(15756) = B(8985) -! JVS(15757) = Jac_FULL(3450,2357) - JVS(15757) = B(9795) -! JVS(15758) = Jac_FULL(3450,3450) - JVS(15758) = -B(12579)-B(12581)-B(12582) -! JVS(15759) = Jac_FULL(3450,4887) - JVS(15759) = 0 -! JVS(15760) = Jac_FULL(3450,4899) - JVS(15760) = 0 -! JVS(15761) = Jac_FULL(3450,5250) - JVS(15761) = -B(12580) -! JVS(15762) = Jac_FULL(3451,3451) - JVS(15762) = -B(10089)-B(10091)-B(10092)-B(10093) -! JVS(15763) = Jac_FULL(3451,4905) - JVS(15763) = B(6385) -! JVS(15764) = Jac_FULL(3451,5250) - JVS(15764) = -B(10090) -! JVS(15765) = Jac_FULL(3451,5255) - JVS(15765) = B(6386) -! JVS(15766) = Jac_FULL(3452,3452) - JVS(15766) = -B(9787)-B(9789)-B(9790)-B(9791) -! JVS(15767) = Jac_FULL(3452,4899) - JVS(15767) = B(6087) -! JVS(15768) = Jac_FULL(3452,5250) - JVS(15768) = -B(9788) -! JVS(15769) = Jac_FULL(3452,5255) - JVS(15769) = B(6088) -! JVS(15770) = Jac_FULL(3453,3453) - JVS(15770) = -B(15888)-B(15890)-B(15891) -! JVS(15771) = Jac_FULL(3453,4877) - JVS(15771) = B(12803) -! JVS(15772) = Jac_FULL(3453,5250) - JVS(15772) = -B(15889) -! JVS(15773) = Jac_FULL(3453,5255) - JVS(15773) = B(12804) -! JVS(15774) = Jac_FULL(3454,678) - JVS(15774) = B(13753) -! JVS(15775) = Jac_FULL(3454,3454) - JVS(15775) = -B(16600)-B(16601)-B(16603) -! JVS(15776) = Jac_FULL(3454,4113) - JVS(15776) = 0 -! JVS(15777) = Jac_FULL(3454,5250) - JVS(15777) = B(13754)-B(16604) -! JVS(15778) = Jac_FULL(3454,5256) - JVS(15778) = -B(16602) -! JVS(15779) = Jac_FULL(3455,3455) - JVS(15779) = -B(15786)-B(15788)-B(15790)-B(15791) -! JVS(15780) = Jac_FULL(3455,4706) - JVS(15780) = B(12736) -! JVS(15781) = Jac_FULL(3455,5250) - JVS(15781) = -B(15787)-B(15789) -! JVS(15782) = Jac_FULL(3455,5255) - JVS(15782) = B(12737) -! JVS(15783) = Jac_FULL(3456,2102) - JVS(15783) = B(12733) -! JVS(15784) = Jac_FULL(3456,3229) - JVS(15784) = 0 -! JVS(15785) = Jac_FULL(3456,3456) - JVS(15785) = -B(12734) -! JVS(15786) = Jac_FULL(3456,4005) - JVS(15786) = B(9176)+B(9178)+B(9180) -! JVS(15787) = Jac_FULL(3456,4100) - JVS(15787) = 0 -! JVS(15788) = Jac_FULL(3456,5250) - JVS(15788) = 0 -! JVS(15789) = Jac_FULL(3456,5252) - JVS(15789) = B(9177) -! JVS(15790) = Jac_FULL(3456,5253) - JVS(15790) = -B(12735) -! JVS(15791) = Jac_FULL(3456,5255) - JVS(15791) = 0 -! JVS(15792) = Jac_FULL(3456,5256) - JVS(15792) = B(9179) -! JVS(15793) = Jac_FULL(3457,3457) - JVS(15793) = -B(10171)-B(10173) -! JVS(15794) = Jac_FULL(3457,4400) - JVS(15794) = B(6466) -! JVS(15795) = Jac_FULL(3457,5250) - JVS(15795) = -B(10172) -! JVS(15796) = Jac_FULL(3457,5252) - JVS(15796) = B(6467) -! JVS(15797) = Jac_FULL(3458,3458) - JVS(15797) = -B(12839)-B(12841)-B(12842) -! JVS(15798) = Jac_FULL(3458,5034) - JVS(15798) = B(9317) -! JVS(15799) = Jac_FULL(3458,5250) - JVS(15799) = -B(12840) -! JVS(15800) = Jac_FULL(3458,5255) - JVS(15800) = B(9318) -! JVS(15801) = Jac_FULL(3459,3459) - JVS(15801) = -B(13513)-B(13514)-B(13515) -! JVS(15802) = Jac_FULL(3459,4732) - JVS(15802) = B(10337) -! JVS(15803) = Jac_FULL(3459,5250) - JVS(15803) = -B(13516) -! JVS(15804) = Jac_FULL(3459,5255) - JVS(15804) = B(10338) -! JVS(15805) = Jac_FULL(3460,3460) - JVS(15805) = -B(10293)-B(10295) -! JVS(15806) = Jac_FULL(3460,4335) - JVS(15806) = B(6566) -! JVS(15807) = Jac_FULL(3460,5250) - JVS(15807) = -B(10294) -! JVS(15808) = Jac_FULL(3460,5252) - JVS(15808) = B(6567) -! JVS(15809) = Jac_FULL(3461,2353) - JVS(15809) = B(16447) -! JVS(15810) = Jac_FULL(3461,3303) - JVS(15810) = 0 -! JVS(15811) = Jac_FULL(3461,3461) - JVS(15811) = -B(16448) -! JVS(15812) = Jac_FULL(3461,4050) - JVS(15812) = B(13439)+B(13441)+B(13443) -! JVS(15813) = Jac_FULL(3461,4051) - JVS(15813) = 0 -! JVS(15814) = Jac_FULL(3461,5250) - JVS(15814) = 0 -! JVS(15815) = Jac_FULL(3461,5252) - JVS(15815) = B(13440) -! JVS(15816) = Jac_FULL(3461,5253) - JVS(15816) = -B(16449) -! JVS(15817) = Jac_FULL(3461,5255) - JVS(15817) = 0 -! JVS(15818) = Jac_FULL(3461,5256) - JVS(15818) = B(13442) -! JVS(15819) = Jac_FULL(3462,3462) - JVS(15819) = -B(4306)-B(4308)-B(4309) -! JVS(15820) = Jac_FULL(3462,4783) - JVS(15820) = B(1530) -! JVS(15821) = Jac_FULL(3462,5250) - JVS(15821) = -B(4307) -! JVS(15822) = Jac_FULL(3462,5255) - JVS(15822) = B(1531) -! JVS(15823) = Jac_FULL(3463,3463) - JVS(15823) = -B(18484)-B(18486)-B(18487) -! JVS(15824) = Jac_FULL(3463,4864) - JVS(15824) = B(16118) -! JVS(15825) = Jac_FULL(3463,5250) - JVS(15825) = -B(18485) -! JVS(15826) = Jac_FULL(3463,5255) - JVS(15826) = B(16119) -! JVS(15827) = Jac_FULL(3464,3464) - JVS(15827) = -B(13671)-B(13673)-B(13675)-B(13676) -! JVS(15828) = Jac_FULL(3464,3707) - JVS(15828) = B(13665)+B(13668) -! JVS(15829) = Jac_FULL(3464,4758) - JVS(15829) = B(10510) -! JVS(15830) = Jac_FULL(3464,5250) - JVS(15830) = B(13666)-B(13672)-B(13674) -! JVS(15831) = Jac_FULL(3465,3465) - JVS(15831) = -B(453)-B(455)-B(457) -! JVS(15832) = Jac_FULL(3465,5250) - JVS(15832) = -B(458) -! JVS(15833) = Jac_FULL(3465,5256) - JVS(15833) = -B(454) -! JVS(15834) = Jac_FULL(3465,5258) - JVS(15834) = -B(456) -! JVS(15835) = Jac_FULL(3466,3466) - JVS(15835) = -B(459)-B(461)-B(463) -! JVS(15836) = Jac_FULL(3466,5250) - JVS(15836) = -B(464) -! JVS(15837) = Jac_FULL(3466,5256) - JVS(15837) = -B(460) -! JVS(15838) = Jac_FULL(3466,5258) - JVS(15838) = -B(462) -! JVS(15839) = Jac_FULL(3467,3467) - JVS(15839) = -B(18417)-B(18419)-B(18420) -! JVS(15840) = Jac_FULL(3467,4792) - JVS(15840) = B(16016) -! JVS(15841) = Jac_FULL(3467,5250) - JVS(15841) = -B(18418) -! JVS(15842) = Jac_FULL(3467,5255) - JVS(15842) = B(16017) -! JVS(15843) = Jac_FULL(3468,3468) - JVS(15843) = -B(9209)-B(9211)-B(9212)-B(9213) -! JVS(15844) = Jac_FULL(3468,4893) - JVS(15844) = B(5626) -! JVS(15845) = Jac_FULL(3468,5250) - JVS(15845) = -B(9210) -! JVS(15846) = Jac_FULL(3468,5255) - JVS(15846) = B(5627) -! JVS(15847) = Jac_FULL(3469,3469) - JVS(15847) = -B(8977)-B(8979)-B(8980)-B(8981) -! JVS(15848) = Jac_FULL(3469,4887) - JVS(15848) = B(5442) -! JVS(15849) = Jac_FULL(3469,5250) - JVS(15849) = -B(8978) -! JVS(15850) = Jac_FULL(3469,5255) - JVS(15850) = B(5443) -! JVS(15851) = Jac_FULL(3470,391) - JVS(15851) = B(13643) -! JVS(15852) = Jac_FULL(3470,3470) - JVS(15852) = -B(16499)-B(16500)-B(16502) -! JVS(15853) = Jac_FULL(3470,4107) - JVS(15853) = 0 -! JVS(15854) = Jac_FULL(3470,5250) - JVS(15854) = B(13644)-B(16503) -! JVS(15855) = Jac_FULL(3470,5256) - JVS(15855) = -B(16501) -! JVS(15856) = Jac_FULL(3471,3471) - JVS(15856) = -B(15090)-B(15091)-B(15093) -! JVS(15857) = Jac_FULL(3471,5064) - JVS(15857) = B(11878) -! JVS(15858) = Jac_FULL(3471,5250) - JVS(15858) = B(11879)-B(15094) -! JVS(15859) = Jac_FULL(3471,5256) - JVS(15859) = -B(15092) -! JVS(15860) = Jac_FULL(3472,3472) - JVS(15860) = -B(6975)-B(6977)-B(6979)-B(6981)-B(6983) -! JVS(15861) = Jac_FULL(3472,4609) - JVS(15861) = B(3193) -! JVS(15862) = Jac_FULL(3472,5250) - JVS(15862) = -B(6980)-B(6982)-B(6984) -! JVS(15863) = Jac_FULL(3472,5256) - JVS(15863) = -B(6976)-B(6978) -! JVS(15864) = Jac_FULL(3473,3473) - JVS(15864) = -B(14152)-B(14154)-B(14156)-B(14157) -! JVS(15865) = Jac_FULL(3473,4365) - JVS(15865) = B(10955) -! JVS(15866) = Jac_FULL(3473,5250) - JVS(15866) = -B(14153)-B(14155) -! JVS(15867) = Jac_FULL(3473,5255) - JVS(15867) = B(10956) -! JVS(15868) = Jac_FULL(3474,2379) - JVS(15868) = B(13219) -! JVS(15869) = Jac_FULL(3474,3232) - JVS(15869) = 0 -! JVS(15870) = Jac_FULL(3474,3474) - JVS(15870) = -B(13220) -! JVS(15871) = Jac_FULL(3474,4041) - JVS(15871) = B(9813)+B(9815)+B(9817) -! JVS(15872) = Jac_FULL(3474,4181) - JVS(15872) = 0 -! JVS(15873) = Jac_FULL(3474,5250) - JVS(15873) = 0 -! JVS(15874) = Jac_FULL(3474,5252) - JVS(15874) = B(9814) -! JVS(15875) = Jac_FULL(3474,5253) - JVS(15875) = -B(13221) -! JVS(15876) = Jac_FULL(3474,5255) - JVS(15876) = 0 -! JVS(15877) = Jac_FULL(3474,5256) - JVS(15877) = B(9816) -! JVS(15878) = Jac_FULL(3475,3475) - JVS(15878) = -B(12677)-B(12679)-B(12680) -! JVS(15879) = Jac_FULL(3475,4773) - JVS(15879) = B(9065) -! JVS(15880) = Jac_FULL(3475,5250) - JVS(15880) = -B(12678) -! JVS(15881) = Jac_FULL(3475,5255) - JVS(15881) = B(9066) -! JVS(15882) = Jac_FULL(3476,3476) - JVS(15882) = -B(11686)-B(11687)-B(11688) -! JVS(15883) = Jac_FULL(3476,3618) - JVS(15883) = B(18804) -! JVS(15884) = Jac_FULL(3476,5100) - JVS(15884) = B(7963) -! JVS(15885) = Jac_FULL(3476,5250) - JVS(15885) = -B(11689) -! JVS(15886) = Jac_FULL(3476,5255) - JVS(15886) = B(7964) -! JVS(15887) = Jac_FULL(3477,1229) - JVS(15887) = B(20424) -! JVS(15888) = Jac_FULL(3477,3477) - JVS(15888) = -B(21582)-B(21584) -! JVS(15889) = Jac_FULL(3477,5003) - JVS(15889) = B(20412)+B(20423) -! JVS(15890) = Jac_FULL(3477,5075) - JVS(15890) = 0 -! JVS(15891) = Jac_FULL(3477,5250) - JVS(15891) = B(20425)-B(21583) -! JVS(15892) = Jac_FULL(3477,5255) - JVS(15892) = B(20413) -! JVS(15893) = Jac_FULL(3478,2535) - JVS(15893) = B(18075) -! JVS(15894) = Jac_FULL(3478,2577) - JVS(15894) = B(19887) -! JVS(15895) = Jac_FULL(3478,2731) - JVS(15895) = B(18079) -! JVS(15896) = Jac_FULL(3478,3370) - JVS(15896) = B(19883) -! JVS(15897) = Jac_FULL(3478,3478) - JVS(15897) = -B(19888) -! JVS(15898) = Jac_FULL(3478,4195) - JVS(15898) = 0 -! JVS(15899) = Jac_FULL(3478,4271) - JVS(15899) = 0 -! JVS(15900) = Jac_FULL(3478,4273) - JVS(15900) = 0 -! JVS(15901) = Jac_FULL(3478,4467) - JVS(15901) = 0 -! JVS(15902) = Jac_FULL(3478,5250) - JVS(15902) = -B(19889) -! JVS(15903) = Jac_FULL(3478,5252) - JVS(15903) = 0 -! JVS(15904) = Jac_FULL(3478,5255) - JVS(15904) = 0 -! JVS(15905) = Jac_FULL(3478,5256) - JVS(15905) = 0 -! JVS(15906) = Jac_FULL(3479,3479) - JVS(15906) = -B(2079)-B(2080) -! JVS(15907) = Jac_FULL(3479,4096) - JVS(15907) = B(6833) -! JVS(15908) = Jac_FULL(3479,4512) - JVS(15908) = B(469) -! JVS(15909) = Jac_FULL(3479,4601) - JVS(15909) = B(519) -! JVS(15910) = Jac_FULL(3479,4786) - JVS(15910) = B(10618) -! JVS(15911) = Jac_FULL(3479,4794) - JVS(15911) = B(3137) -! JVS(15912) = Jac_FULL(3479,5258) - JVS(15912) = B(470)+B(520)+B(3138)+B(6834)+B(10619) -! JVS(15913) = Jac_FULL(3480,3480) - JVS(15913) = -B(23836)-B(23838)-B(23839)-B(23840) -! JVS(15914) = Jac_FULL(3480,4779) - JVS(15914) = B(23646) -! JVS(15915) = Jac_FULL(3480,5250) - JVS(15915) = -B(23837) -! JVS(15916) = Jac_FULL(3480,5255) - JVS(15916) = B(23647) -! JVS(15917) = Jac_FULL(3481,3105) - JVS(15917) = B(639)+B(641) -! JVS(15918) = Jac_FULL(3481,3481) - JVS(15918) = -B(2547)-B(2549)-B(2551)-B(2553)-B(2555)-B(2556)-B(2557) -! JVS(15919) = Jac_FULL(3481,5250) - JVS(15919) = B(642) -! JVS(15920) = Jac_FULL(3481,5252) - JVS(15920) = -B(2550)-B(2552) -! JVS(15921) = Jac_FULL(3481,5255) - JVS(15921) = -B(2548) -! JVS(15922) = Jac_FULL(3481,5256) - JVS(15922) = B(640)-B(2554) -! JVS(15923) = Jac_FULL(3482,3180) - JVS(15923) = B(2695) -! JVS(15924) = Jac_FULL(3482,3482) - JVS(15924) = -B(5967)-B(5969)-B(5971) -! JVS(15925) = Jac_FULL(3482,5250) - JVS(15925) = B(2696)-B(5972) -! JVS(15926) = Jac_FULL(3482,5256) - JVS(15926) = -B(5968) -! JVS(15927) = Jac_FULL(3482,5258) - JVS(15927) = -B(5970) -! JVS(15928) = Jac_FULL(3483,1644) - JVS(15928) = B(13519) -! JVS(15929) = Jac_FULL(3483,3459) - JVS(15929) = B(13515) -! JVS(15930) = Jac_FULL(3483,3483) - JVS(15930) = -B(13521)-B(13522)-B(13524) -! JVS(15931) = Jac_FULL(3483,4732) - JVS(15931) = B(10345) -! JVS(15932) = Jac_FULL(3483,5250) - JVS(15932) = B(13516)+B(13520)-B(13525) -! JVS(15933) = Jac_FULL(3483,5255) - JVS(15933) = 0 -! JVS(15934) = Jac_FULL(3483,5256) - JVS(15934) = -B(13523) -! JVS(15935) = Jac_FULL(3484,3484) - JVS(15935) = -B(18129)-B(18131)-B(18133) -! JVS(15936) = Jac_FULL(3484,4449) - JVS(15936) = B(21362) -! JVS(15937) = Jac_FULL(3484,4490) - JVS(15937) = B(15571) -! JVS(15938) = Jac_FULL(3484,5250) - JVS(15938) = B(15572)-B(18132)+B(21363) -! JVS(15939) = Jac_FULL(3484,5256) - JVS(15939) = -B(18130) -! JVS(15940) = Jac_FULL(3485,3485) - JVS(15940) = -B(16661)-B(16663)-B(16665) -! JVS(15941) = Jac_FULL(3485,5022) - JVS(15941) = B(13833) -! JVS(15942) = Jac_FULL(3485,5250) - JVS(15942) = -B(16662)-B(16664) -! JVS(15943) = Jac_FULL(3485,5255) - JVS(15943) = B(13834) -! JVS(15944) = Jac_FULL(3486,812) - JVS(15944) = B(9700) -! JVS(15945) = Jac_FULL(3486,1112) - JVS(15945) = B(9688) -! JVS(15946) = Jac_FULL(3486,3304) - JVS(15946) = B(9693) -! JVS(15947) = Jac_FULL(3486,3486) - JVS(15947) = -B(9696)-B(9698)-B(9699) -! JVS(15948) = Jac_FULL(3486,4971) - JVS(15948) = B(6004) -! JVS(15949) = Jac_FULL(3486,5250) - JVS(15949) = B(9689)+B(9694)-B(9697)+B(9701) -! JVS(15950) = Jac_FULL(3486,5252) - JVS(15950) = 0 -! JVS(15951) = Jac_FULL(3486,5255) - JVS(15951) = 0 -! JVS(15952) = Jac_FULL(3487,3487) - JVS(15952) = -B(9766)-B(9768)-B(9769) -! JVS(15953) = Jac_FULL(3487,4948) - JVS(15953) = B(6066) -! JVS(15954) = Jac_FULL(3487,5250) - JVS(15954) = -B(9767) -! JVS(15955) = Jac_FULL(3487,5255) - JVS(15955) = B(6067) -! JVS(15956) = Jac_FULL(3488,2497) - JVS(15956) = B(10478) -! JVS(15957) = Jac_FULL(3488,3488) - JVS(15957) = -B(10481)-B(10483)-B(10485) -! JVS(15958) = Jac_FULL(3488,4774) - JVS(15958) = B(6772) -! JVS(15959) = Jac_FULL(3488,5250) - JVS(15959) = B(10479)-B(10484) -! JVS(15960) = Jac_FULL(3488,5255) - JVS(15960) = 0 -! JVS(15961) = Jac_FULL(3488,5256) - JVS(15961) = -B(10482) -! JVS(15962) = Jac_FULL(3489,932) - JVS(15962) = B(10118) -! JVS(15963) = Jac_FULL(3489,3130) - JVS(15963) = B(2901)+B(2907) -! JVS(15964) = Jac_FULL(3489,3489) - JVS(15964) = -B(6405)-B(6407)-B(6409)-B(6411)-B(6412) -! JVS(15965) = Jac_FULL(3489,5250) - JVS(15965) = B(2908)+B(10119) -! JVS(15966) = Jac_FULL(3489,5252) - JVS(15966) = -B(6408) -! JVS(15967) = Jac_FULL(3489,5255) - JVS(15967) = -B(6406) -! JVS(15968) = Jac_FULL(3489,5256) - JVS(15968) = B(2902)-B(6410) -! JVS(15969) = Jac_FULL(3490,3490) - JVS(15969) = -B(20514)-B(20515) -! JVS(15970) = Jac_FULL(3490,3620) - JVS(15970) = B(20511) -! JVS(15971) = Jac_FULL(3490,4599) - JVS(15971) = B(18914)+B(18916)+B(18918) -! JVS(15972) = Jac_FULL(3490,5252) - JVS(15972) = B(18915) -! JVS(15973) = Jac_FULL(3490,5256) - JVS(15973) = B(18917) -! JVS(15974) = Jac_FULL(3491,1157) - JVS(15974) = B(9006) -! JVS(15975) = Jac_FULL(3491,3158) - JVS(15975) = B(2452)+B(2458) -! JVS(15976) = Jac_FULL(3491,3491) - JVS(15976) = -B(5462)-B(5464)-B(5466)-B(5468)-B(5469) -! JVS(15977) = Jac_FULL(3491,5250) - JVS(15977) = B(2459)+B(9007) -! JVS(15978) = Jac_FULL(3491,5252) - JVS(15978) = -B(5465) -! JVS(15979) = Jac_FULL(3491,5255) - JVS(15979) = -B(5463) -! JVS(15980) = Jac_FULL(3491,5256) - JVS(15980) = B(2453)-B(5467) -! JVS(15981) = Jac_FULL(3492,3097) - JVS(15981) = B(689)+B(697) -! JVS(15982) = Jac_FULL(3492,3492) - JVS(15982) = -B(2761)-B(2763)-B(2765)-B(2767)-B(2769)-B(2770)-B(2771) -! JVS(15983) = Jac_FULL(3492,5250) - JVS(15983) = B(698) -! JVS(15984) = Jac_FULL(3492,5252) - JVS(15984) = -B(2764)-B(2766) -! JVS(15985) = Jac_FULL(3492,5255) - JVS(15985) = -B(2762) -! JVS(15986) = Jac_FULL(3492,5256) - JVS(15986) = B(690)-B(2768) -! JVS(15987) = Jac_FULL(3493,804) - JVS(15987) = B(17965) -! JVS(15988) = Jac_FULL(3493,1526) - JVS(15988) = B(17955) -! JVS(15989) = Jac_FULL(3493,2330) - JVS(15989) = B(17958) -! JVS(15990) = Jac_FULL(3493,3493) - JVS(15990) = -B(17961)-B(17962) -! JVS(15991) = Jac_FULL(3493,4715) - JVS(15991) = B(15362) -! JVS(15992) = Jac_FULL(3493,5250) - JVS(15992) = B(17956)+B(17959)-B(17963)+B(17966) -! JVS(15993) = Jac_FULL(3493,5252) - JVS(15993) = 0 -! JVS(15994) = Jac_FULL(3493,5255) - JVS(15994) = 0 -! JVS(15995) = Jac_FULL(3494,3139) - JVS(15995) = B(2745) -! JVS(15996) = Jac_FULL(3494,3494) - JVS(15996) = -B(6056)-B(6058)-B(6060) -! JVS(15997) = Jac_FULL(3494,5250) - JVS(15997) = B(2746)-B(6061) -! JVS(15998) = Jac_FULL(3494,5256) - JVS(15998) = -B(6057) -! JVS(15999) = Jac_FULL(3494,5258) - JVS(15999) = -B(6059) -! JVS(16000) = Jac_FULL(3495,3495) - JVS(16000) = -B(23355)-B(23357)-B(23358)-B(23359) -! JVS(16001) = Jac_FULL(3495,4625) - JVS(16001) = B(22966) -! JVS(16002) = Jac_FULL(3495,5250) - JVS(16002) = -B(23356) -! JVS(16003) = Jac_FULL(3495,5255) - JVS(16003) = B(22967) -! JVS(16004) = Jac_FULL(3496,3496) - JVS(16004) = -B(6905)-B(6907)-B(6909)-B(6911)-B(6913)-B(6914)-B(6915) -! JVS(16005) = Jac_FULL(3496,4907) - JVS(16005) = B(3154) -! JVS(16006) = Jac_FULL(3496,5252) - JVS(16006) = -B(6908)-B(6910) -! JVS(16007) = Jac_FULL(3496,5255) - JVS(16007) = -B(6906) -! JVS(16008) = Jac_FULL(3496,5256) - JVS(16008) = -B(6912) -! JVS(16009) = Jac_FULL(3497,256) - JVS(16009) = B(21107) -! JVS(16010) = Jac_FULL(3497,1444) - JVS(16010) = B(21099) -! JVS(16011) = Jac_FULL(3497,1752) - JVS(16011) = B(21102) -! JVS(16012) = Jac_FULL(3497,2239) - JVS(16012) = B(17364) -! JVS(16013) = Jac_FULL(3497,3425) - JVS(16013) = B(21105) -! JVS(16014) = Jac_FULL(3497,3497) - JVS(16014) = -B(19515)-B(19517) -! JVS(16015) = Jac_FULL(3497,4363) - JVS(16015) = B(19526) -! JVS(16016) = Jac_FULL(3497,4394) - JVS(16016) = 0 -! JVS(16017) = Jac_FULL(3497,5250) - JVS(16017) = B(17365)-B(19516)+B(21100)+B(21103)+B(21108) -! JVS(16018) = Jac_FULL(3497,5252) - JVS(16018) = 0 -! JVS(16019) = Jac_FULL(3497,5255) - JVS(16019) = 0 -! JVS(16020) = Jac_FULL(3497,5256) - JVS(16020) = 0 -! JVS(16021) = Jac_FULL(3498,2558) - JVS(16021) = B(7161) -! JVS(16022) = Jac_FULL(3498,2878) - JVS(16022) = B(7125) -! JVS(16023) = Jac_FULL(3498,3498) - JVS(16023) = -B(7132)-B(7134) -! JVS(16024) = Jac_FULL(3498,3757) - JVS(16024) = B(5178) -! JVS(16025) = Jac_FULL(3498,4223) - JVS(16025) = B(5187) -! JVS(16026) = Jac_FULL(3498,4336) - JVS(16026) = B(3352) -! JVS(16027) = Jac_FULL(3498,4390) - JVS(16027) = B(3323) -! JVS(16028) = Jac_FULL(3498,5250) - JVS(16028) = B(5179)+B(5188)+B(7126)-B(7133)+B(7162) -! JVS(16029) = Jac_FULL(3498,5255) - JVS(16029) = 0 -! JVS(16030) = Jac_FULL(3499,3164) - JVS(16030) = B(2873) -! JVS(16031) = Jac_FULL(3499,3499) - JVS(16031) = -B(6342)-B(6344)-B(6346) -! JVS(16032) = Jac_FULL(3499,5250) - JVS(16032) = B(2874)-B(6347) -! JVS(16033) = Jac_FULL(3499,5256) - JVS(16033) = -B(6343) -! JVS(16034) = Jac_FULL(3499,5258) - JVS(16034) = -B(6345) -! JVS(16035) = Jac_FULL(3500,1425) - JVS(16035) = B(18896) -! JVS(16036) = Jac_FULL(3500,3500) - JVS(16036) = -B(20484)-B(20486) -! JVS(16037) = Jac_FULL(3500,5005) - JVS(16037) = B(20398)+B(20409) -! JVS(16038) = Jac_FULL(3500,5167) - JVS(16038) = 0 -! JVS(16039) = Jac_FULL(3500,5250) - JVS(16039) = B(18897)-B(20485) -! JVS(16040) = Jac_FULL(3500,5255) - JVS(16040) = B(20399) -! JVS(16041) = Jac_FULL(3501,3501) - JVS(16041) = -B(16504)-B(16506)-B(16508)-B(16509) -! JVS(16042) = Jac_FULL(3501,4321) - JVS(16042) = B(13645) -! JVS(16043) = Jac_FULL(3501,5250) - JVS(16043) = -B(16505)-B(16507) -! JVS(16044) = Jac_FULL(3501,5255) - JVS(16044) = B(13646) -! JVS(16045) = Jac_FULL(3502,3326) - JVS(16045) = B(11660) -! JVS(16046) = Jac_FULL(3502,3502) - JVS(16046) = -B(14911)-B(14913) -! JVS(16047) = Jac_FULL(3502,5133) - JVS(16047) = B(11644) -! JVS(16048) = Jac_FULL(3502,5155) - JVS(16048) = 0 -! JVS(16049) = Jac_FULL(3502,5250) - JVS(16049) = B(11661)-B(14912) -! JVS(16050) = Jac_FULL(3502,5255) - JVS(16050) = B(11645) -! JVS(16051) = Jac_FULL(3503,1033) - JVS(16051) = B(9979) -! JVS(16052) = Jac_FULL(3503,3193) - JVS(16052) = B(2836)+B(2842) -! JVS(16053) = Jac_FULL(3503,3503) - JVS(16053) = -B(6258)-B(6260)-B(6262)-B(6264)-B(6265) -! JVS(16054) = Jac_FULL(3503,5250) - JVS(16054) = B(2843)+B(9980) -! JVS(16055) = Jac_FULL(3503,5252) - JVS(16055) = -B(6261) -! JVS(16056) = Jac_FULL(3503,5255) - JVS(16056) = -B(6259) -! JVS(16057) = Jac_FULL(3503,5256) - JVS(16057) = B(2837)-B(6263) -! JVS(16058) = Jac_FULL(3504,807) - JVS(16058) = B(17876) -! JVS(16059) = Jac_FULL(3504,1136) - JVS(16059) = B(17869) -! JVS(16060) = Jac_FULL(3504,2185) - JVS(16060) = B(17872) -! JVS(16061) = Jac_FULL(3504,3504) - JVS(16061) = -B(17878)-B(17879) -! JVS(16062) = Jac_FULL(3504,4716) - JVS(16062) = B(15287) -! JVS(16063) = Jac_FULL(3504,5250) - JVS(16063) = B(17870)+B(17873)+B(17877)-B(17880) -! JVS(16064) = Jac_FULL(3504,5252) - JVS(16064) = 0 -! JVS(16065) = Jac_FULL(3504,5255) - JVS(16065) = 0 -! JVS(16066) = Jac_FULL(3505,228) - JVS(16066) = B(4504) -! JVS(16067) = Jac_FULL(3505,2086) - JVS(16067) = B(4501) -! JVS(16068) = Jac_FULL(3505,2422) - JVS(16068) = B(4496) -! JVS(16069) = Jac_FULL(3505,3505) - JVS(16069) = -B(836)-B(838)-B(840)-B(842) -! JVS(16070) = Jac_FULL(3505,5109) - JVS(16070) = B(1724) -! JVS(16071) = Jac_FULL(3505,5250) - JVS(16071) = -B(837)-B(839)-B(841)+B(4497)+B(4502)+B(4505) -! JVS(16072) = Jac_FULL(3505,5252) - JVS(16072) = 0 -! JVS(16073) = Jac_FULL(3505,5255) - JVS(16073) = 0 -! JVS(16074) = Jac_FULL(3506,3193) - JVS(16074) = B(2840) -! JVS(16075) = Jac_FULL(3506,3506) - JVS(16075) = -B(6266)-B(6268)-B(6270) -! JVS(16076) = Jac_FULL(3506,5250) - JVS(16076) = B(2841)-B(6271) -! JVS(16077) = Jac_FULL(3506,5256) - JVS(16077) = -B(6267) -! JVS(16078) = Jac_FULL(3506,5258) - JVS(16078) = -B(6269) -! JVS(16079) = Jac_FULL(3507,3134) - JVS(16079) = B(629)+B(635) -! JVS(16080) = Jac_FULL(3507,3507) - JVS(16080) = -B(2504)-B(2506)-B(2508)-B(2510)-B(2512)-B(2513)-B(2514) -! JVS(16081) = Jac_FULL(3507,5250) - JVS(16081) = B(636) -! JVS(16082) = Jac_FULL(3507,5252) - JVS(16082) = -B(2507)-B(2509) -! JVS(16083) = Jac_FULL(3507,5255) - JVS(16083) = -B(2505) -! JVS(16084) = Jac_FULL(3507,5256) - JVS(16084) = B(630)-B(2511) -! JVS(16085) = Jac_FULL(3508,3158) - JVS(16085) = B(2456) -! JVS(16086) = Jac_FULL(3508,3508) - JVS(16086) = -B(5470)-B(5472)-B(5474) -! JVS(16087) = Jac_FULL(3508,5250) - JVS(16087) = B(2457)-B(5475) -! JVS(16088) = Jac_FULL(3508,5256) - JVS(16088) = -B(5471) -! JVS(16089) = Jac_FULL(3508,5258) - JVS(16089) = -B(5473) -! JVS(16090) = Jac_FULL(3509,3096) - JVS(16090) = B(619)+B(625) -! JVS(16091) = Jac_FULL(3509,3509) - JVS(16091) = -B(2460)-B(2462)-B(2464)-B(2466)-B(2468)-B(2469)-B(2470) -! JVS(16092) = Jac_FULL(3509,5250) - JVS(16092) = B(626) -! JVS(16093) = Jac_FULL(3509,5252) - JVS(16093) = -B(2463)-B(2465) -! JVS(16094) = Jac_FULL(3509,5255) - JVS(16094) = -B(2461) -! JVS(16095) = Jac_FULL(3509,5256) - JVS(16095) = B(620)-B(2467) -! JVS(16096) = Jac_FULL(3510,2260) - JVS(16096) = B(13943) -! JVS(16097) = Jac_FULL(3510,3510) - JVS(16097) = -B(13947)-B(13949)-B(13951) -! JVS(16098) = Jac_FULL(3510,4595) - JVS(16098) = B(10749) -! JVS(16099) = Jac_FULL(3510,5250) - JVS(16099) = B(13944)-B(13950) -! JVS(16100) = Jac_FULL(3510,5255) - JVS(16100) = 0 -! JVS(16101) = Jac_FULL(3510,5256) - JVS(16101) = -B(13948) -! JVS(16102) = Jac_FULL(3511,1503) - JVS(16102) = B(10038) -! JVS(16103) = Jac_FULL(3511,3164) - JVS(16103) = B(2867)+B(2875) -! JVS(16104) = Jac_FULL(3511,3511) - JVS(16104) = -B(6326)-B(6328)-B(6330)-B(6332)-B(6333) -! JVS(16105) = Jac_FULL(3511,5250) - JVS(16105) = B(2876)+B(10039) -! JVS(16106) = Jac_FULL(3511,5252) - JVS(16106) = -B(6329) -! JVS(16107) = Jac_FULL(3511,5255) - JVS(16107) = -B(6327) -! JVS(16108) = Jac_FULL(3511,5256) - JVS(16108) = B(2868)-B(6331) -! JVS(16109) = Jac_FULL(3512,3135) - JVS(16109) = B(2543) -! JVS(16110) = Jac_FULL(3512,3512) - JVS(16110) = -B(5654)-B(5656)-B(5658) -! JVS(16111) = Jac_FULL(3512,5250) - JVS(16111) = B(2544)-B(5659) -! JVS(16112) = Jac_FULL(3512,5256) - JVS(16112) = -B(5655) -! JVS(16113) = Jac_FULL(3512,5258) - JVS(16113) = -B(5657) -! JVS(16114) = Jac_FULL(3513,3057) - JVS(16114) = B(17612) -! JVS(16115) = Jac_FULL(3513,3513) - JVS(16115) = -B(19607)-B(19608)-B(19610) -! JVS(16116) = Jac_FULL(3513,4911) - JVS(16116) = 0 -! JVS(16117) = Jac_FULL(3513,5250) - JVS(16117) = B(17613)-B(19611) -! JVS(16118) = Jac_FULL(3513,5255) - JVS(16118) = 0 -! JVS(16119) = Jac_FULL(3513,5256) - JVS(16119) = -B(19609) -! JVS(16120) = Jac_FULL(3514,3201) - JVS(16120) = B(16634) -! JVS(16121) = Jac_FULL(3514,3240) - JVS(16121) = B(16510) -! JVS(16122) = Jac_FULL(3514,3501) - JVS(16122) = B(16504)+B(16508) -! JVS(16123) = Jac_FULL(3514,3514) - JVS(16123) = -B(10467)-B(10468) -! JVS(16124) = Jac_FULL(3514,4321) - JVS(16124) = B(13654) -! JVS(16125) = Jac_FULL(3514,4711) - JVS(16125) = 0 -! JVS(16126) = Jac_FULL(3514,5016) - JVS(16126) = B(6736) -! JVS(16127) = Jac_FULL(3514,5250) - JVS(16127) = -B(10469)+B(16505)+B(16511)+B(16635) -! JVS(16128) = Jac_FULL(3514,5252) - JVS(16128) = 0 -! JVS(16129) = Jac_FULL(3514,5255) - JVS(16129) = B(6737) -! JVS(16130) = Jac_FULL(3515,3203) - JVS(16130) = B(11672) -! JVS(16131) = Jac_FULL(3515,3515) - JVS(16131) = -B(14920)-B(14922)-B(14923) -! JVS(16132) = Jac_FULL(3515,4795) - JVS(16132) = B(17470) -! JVS(16133) = Jac_FULL(3515,5036) - JVS(16133) = 0 -! JVS(16134) = Jac_FULL(3515,5250) - JVS(16134) = B(11673)-B(14921) -! JVS(16135) = Jac_FULL(3515,5255) - JVS(16135) = B(17471) -! JVS(16136) = Jac_FULL(3516,694) - JVS(16136) = B(14717) -! JVS(16137) = Jac_FULL(3516,2008) - JVS(16137) = B(14716) -! JVS(16138) = Jac_FULL(3516,2280) - JVS(16138) = B(14714) -! JVS(16139) = Jac_FULL(3516,2359) - JVS(16139) = B(14813) -! JVS(16140) = Jac_FULL(3516,2373) - JVS(16140) = B(14711) -! JVS(16141) = Jac_FULL(3516,3516) - JVS(16141) = -B(11367) -! JVS(16142) = Jac_FULL(3516,3517) - JVS(16142) = B(7531) -! JVS(16143) = Jac_FULL(3516,4249) - JVS(16143) = 0 -! JVS(16144) = Jac_FULL(3516,4757) - JVS(16144) = B(14693)+B(14695)+B(14697)+B(14699)+B(14701) -! JVS(16145) = Jac_FULL(3516,5249) - JVS(16145) = 0 -! JVS(16146) = Jac_FULL(3516,5250) - JVS(16146) = -B(11368)+B(14712)+B(14715)+B(14718) -! JVS(16147) = Jac_FULL(3516,5251) - JVS(16147) = B(14694) -! JVS(16148) = Jac_FULL(3516,5252) - JVS(16148) = B(14696) -! JVS(16149) = Jac_FULL(3516,5253) - JVS(16149) = B(14698) -! JVS(16150) = Jac_FULL(3516,5254) - JVS(16150) = B(14700) -! JVS(16151) = Jac_FULL(3516,5255) - JVS(16151) = 0 -! JVS(16152) = Jac_FULL(3516,5256) - JVS(16152) = 0 -! JVS(16153) = Jac_FULL(3516,5258) - JVS(16153) = B(7532) -! JVS(16154) = Jac_FULL(3517,2470) - JVS(16154) = B(3594) -! JVS(16155) = Jac_FULL(3517,3517) - JVS(16155) = -B(7529)-B(7531)-B(7533) -! JVS(16156) = Jac_FULL(3517,4988) - JVS(16156) = 0 -! JVS(16157) = Jac_FULL(3517,5250) - JVS(16157) = -B(7534) -! JVS(16158) = Jac_FULL(3517,5258) - JVS(16158) = -B(7530)-B(7532) -! JVS(16159) = Jac_FULL(3518,959) - JVS(16159) = B(9751) -! JVS(16160) = Jac_FULL(3518,3139) - JVS(16160) = B(2743)+B(2749) -! JVS(16161) = Jac_FULL(3518,3518) - JVS(16161) = -B(6048)-B(6050)-B(6052)-B(6054)-B(6055) -! JVS(16162) = Jac_FULL(3518,5250) - JVS(16162) = B(2750)+B(9752) -! JVS(16163) = Jac_FULL(3518,5252) - JVS(16163) = -B(6051) -! JVS(16164) = Jac_FULL(3518,5255) - JVS(16164) = -B(6049) -! JVS(16165) = Jac_FULL(3518,5256) - JVS(16165) = B(2744)-B(6053) -! JVS(16166) = Jac_FULL(3519,3519) - JVS(16166) = -B(8927)-B(8929)-B(8931) -! JVS(16167) = Jac_FULL(3519,4950) - JVS(16167) = B(5408) -! JVS(16168) = Jac_FULL(3519,5250) - JVS(16168) = -B(8932) -! JVS(16169) = Jac_FULL(3519,5256) - JVS(16169) = -B(8928) -! JVS(16170) = Jac_FULL(3519,5258) - JVS(16170) = -B(8930) -! JVS(16171) = Jac_FULL(3520,3520) - JVS(16171) = -B(4346)-B(4348) -! JVS(16172) = Jac_FULL(3520,4695) - JVS(16172) = B(1581) -! JVS(16173) = Jac_FULL(3520,4922) - JVS(16173) = B(1572) -! JVS(16174) = Jac_FULL(3520,5250) - JVS(16174) = -B(4347) -! JVS(16175) = Jac_FULL(3520,5252) - JVS(16175) = B(1582) -! JVS(16176) = Jac_FULL(3521,3179) - JVS(16176) = B(669)+B(671) -! JVS(16177) = Jac_FULL(3521,3521) - JVS(16177) = -B(2678)-B(2680)-B(2682)-B(2684)-B(2686)-B(2687)-B(2688) -! JVS(16178) = Jac_FULL(3521,5250) - JVS(16178) = B(672) -! JVS(16179) = Jac_FULL(3521,5252) - JVS(16179) = -B(2681)-B(2683) -! JVS(16180) = Jac_FULL(3521,5255) - JVS(16180) = -B(2679) -! JVS(16181) = Jac_FULL(3521,5256) - JVS(16181) = B(670)-B(2685) -! JVS(16182) = Jac_FULL(3522,616) - JVS(16182) = B(17905) -! JVS(16183) = Jac_FULL(3522,1446) - JVS(16183) = B(17895) -! JVS(16184) = Jac_FULL(3522,2124) - JVS(16184) = B(17898) -! JVS(16185) = Jac_FULL(3522,3522) - JVS(16185) = -B(17901)-B(17902) -! JVS(16186) = Jac_FULL(3522,4713) - JVS(16186) = B(15306) -! JVS(16187) = Jac_FULL(3522,5250) - JVS(16187) = B(17896)+B(17899)-B(17903)+B(17906) -! JVS(16188) = Jac_FULL(3522,5252) - JVS(16188) = 0 -! JVS(16189) = Jac_FULL(3522,5255) - JVS(16189) = 0 -! JVS(16190) = Jac_FULL(3523,3145) - JVS(16190) = B(609)+B(615) -! JVS(16191) = Jac_FULL(3523,3523) - JVS(16191) = -B(2417)-B(2419)-B(2421)-B(2423)-B(2425)-B(2426)-B(2427) -! JVS(16192) = Jac_FULL(3523,5250) - JVS(16192) = B(616) -! JVS(16193) = Jac_FULL(3523,5252) - JVS(16193) = -B(2420)-B(2422) -! JVS(16194) = Jac_FULL(3523,5255) - JVS(16194) = -B(2418) -! JVS(16195) = Jac_FULL(3523,5256) - JVS(16195) = B(610)-B(2424) -! JVS(16196) = Jac_FULL(3524,3524) - JVS(16196) = -B(13765)-B(13767)-B(13768)-B(13769) -! JVS(16197) = Jac_FULL(3524,4617) - JVS(16197) = B(10572) -! JVS(16198) = Jac_FULL(3524,5250) - JVS(16198) = -B(13766) -! JVS(16199) = Jac_FULL(3524,5255) - JVS(16199) = B(10573) -! JVS(16200) = Jac_FULL(3525,3138) - JVS(16200) = B(679)+B(681) -! JVS(16201) = Jac_FULL(3525,3525) - JVS(16201) = -B(2718)-B(2720)-B(2722)-B(2724)-B(2726)-B(2727)-B(2728) -! JVS(16202) = Jac_FULL(3525,5250) - JVS(16202) = B(682) -! JVS(16203) = Jac_FULL(3525,5252) - JVS(16203) = -B(2721)-B(2723) -! JVS(16204) = Jac_FULL(3525,5255) - JVS(16204) = -B(2719) -! JVS(16205) = Jac_FULL(3525,5256) - JVS(16205) = B(680)-B(2725) -! JVS(16206) = Jac_FULL(3526,2711) - JVS(16206) = B(13490) -! JVS(16207) = Jac_FULL(3526,3526) - JVS(16207) = -B(16457)-B(16458)-B(16460) -! JVS(16208) = Jac_FULL(3526,4589) - JVS(16208) = 0 -! JVS(16209) = Jac_FULL(3526,5250) - JVS(16209) = B(13491)-B(16461) -! JVS(16210) = Jac_FULL(3526,5255) - JVS(16210) = 0 -! JVS(16211) = Jac_FULL(3526,5256) - JVS(16211) = -B(16459) -! JVS(16212) = Jac_FULL(3527,1525) - JVS(16212) = B(6348) -! JVS(16213) = Jac_FULL(3527,3129) - JVS(16213) = B(723) -! JVS(16214) = Jac_FULL(3527,3527) - JVS(16214) = -B(2877)-B(2879)-B(2881)-B(2883)-B(2885)-B(2886) -! JVS(16215) = Jac_FULL(3527,5250) - JVS(16215) = B(724)+B(6349) -! JVS(16216) = Jac_FULL(3527,5252) - JVS(16216) = -B(2880)-B(2882) -! JVS(16217) = Jac_FULL(3527,5255) - JVS(16217) = -B(2878) -! JVS(16218) = Jac_FULL(3527,5256) - JVS(16218) = -B(2884) -! JVS(16219) = Jac_FULL(3528,3528) - JVS(16219) = -B(17800)-B(17801)-B(17802)-B(17804) -! JVS(16220) = Jac_FULL(3528,4967) - JVS(16220) = B(15225) -! JVS(16221) = Jac_FULL(3528,5250) - JVS(16221) = -B(17803)-B(17805) -! JVS(16222) = Jac_FULL(3528,5255) - JVS(16222) = B(15226) -! JVS(16223) = Jac_FULL(3529,3059) - JVS(16223) = B(11665) -! JVS(16224) = Jac_FULL(3529,3529) - JVS(16224) = -B(14914)-B(14916) -! JVS(16225) = Jac_FULL(3529,5133) - JVS(16225) = B(11650) -! JVS(16226) = Jac_FULL(3529,5155) - JVS(16226) = 0 -! JVS(16227) = Jac_FULL(3529,5250) - JVS(16227) = B(11666)-B(14915) -! JVS(16228) = Jac_FULL(3529,5253) - JVS(16228) = B(11651) -! JVS(16229) = Jac_FULL(3530,1876) - JVS(16229) = B(7107) -! JVS(16230) = Jac_FULL(3530,1904) - JVS(16230) = B(7112) -! JVS(16231) = Jac_FULL(3530,3367) - JVS(16231) = B(7116) -! JVS(16232) = Jac_FULL(3530,3530) - JVS(16232) = -B(7117)-B(7118) -! JVS(16233) = Jac_FULL(3530,4300) - JVS(16233) = B(7123) -! JVS(16234) = Jac_FULL(3530,4784) - JVS(16234) = B(3314) -! JVS(16235) = Jac_FULL(3530,5250) - JVS(16235) = B(7108)+B(7113)-B(7119)+B(7124) -! JVS(16236) = Jac_FULL(3530,5252) - JVS(16236) = 0 -! JVS(16237) = Jac_FULL(3530,5255) - JVS(16237) = 0 -! JVS(16238) = Jac_FULL(3530,5256) - JVS(16238) = 0 -! JVS(16239) = Jac_FULL(3531,1009) - JVS(16239) = B(9140) -! JVS(16240) = Jac_FULL(3531,3131) - JVS(16240) = B(2494)+B(2502) -! JVS(16241) = Jac_FULL(3531,3531) - JVS(16241) = -B(5553)-B(5555)-B(5557)-B(5559)-B(5560) -! JVS(16242) = Jac_FULL(3531,5250) - JVS(16242) = B(2503)+B(9141) -! JVS(16243) = Jac_FULL(3531,5252) - JVS(16243) = -B(5556) -! JVS(16244) = Jac_FULL(3531,5255) - JVS(16244) = -B(5554) -! JVS(16245) = Jac_FULL(3531,5256) - JVS(16245) = B(2495)-B(5558) -! JVS(16246) = Jac_FULL(3532,2606) - JVS(16246) = B(18904) -! JVS(16247) = Jac_FULL(3532,3532) - JVS(16247) = -B(20490)-B(20492) -! JVS(16248) = Jac_FULL(3532,5005) - JVS(16248) = B(20404) -! JVS(16249) = Jac_FULL(3532,5167) - JVS(16249) = 0 -! JVS(16250) = Jac_FULL(3532,5250) - JVS(16250) = B(18905)-B(20491) -! JVS(16251) = Jac_FULL(3532,5253) - JVS(16251) = B(20405) -! JVS(16252) = Jac_FULL(3533,3533) - JVS(16252) = -B(7657)-B(7659)-B(7660) -! JVS(16253) = Jac_FULL(3533,5239) - JVS(16253) = B(3825) -! JVS(16254) = Jac_FULL(3533,5250) - JVS(16254) = -B(7658) -! JVS(16255) = Jac_FULL(3533,5252) - JVS(16255) = B(3826) -! JVS(16256) = Jac_FULL(3534,996) - JVS(16256) = B(9238) -! JVS(16257) = Jac_FULL(3534,3135) - JVS(16257) = B(2539)+B(2545) -! JVS(16258) = Jac_FULL(3534,3534) - JVS(16258) = -B(5646)-B(5648)-B(5650)-B(5652)-B(5653) -! JVS(16259) = Jac_FULL(3534,5250) - JVS(16259) = B(2546)+B(9239) -! JVS(16260) = Jac_FULL(3534,5252) - JVS(16260) = -B(5649) -! JVS(16261) = Jac_FULL(3534,5255) - JVS(16261) = -B(5647) -! JVS(16262) = Jac_FULL(3534,5256) - JVS(16262) = B(2540)-B(5651) -! JVS(16263) = Jac_FULL(3535,800) - JVS(16263) = B(15633) -! JVS(16264) = Jac_FULL(3535,1727) - JVS(16264) = B(15648) -! JVS(16265) = Jac_FULL(3535,2152) - JVS(16265) = 0 -! JVS(16266) = Jac_FULL(3535,3535) - JVS(16266) = -B(18145)-B(18147) -! JVS(16267) = Jac_FULL(3535,4422) - JVS(16267) = 0 -! JVS(16268) = Jac_FULL(3535,4440) - JVS(16268) = 0 -! JVS(16269) = Jac_FULL(3535,5250) - JVS(16269) = -B(18146) -! JVS(16270) = Jac_FULL(3535,5252) - JVS(16270) = 0 -! JVS(16271) = Jac_FULL(3535,5255) - JVS(16271) = 0 -! JVS(16272) = Jac_FULL(3535,5256) - JVS(16272) = 0 -! JVS(16273) = Jac_FULL(3536,1124) - JVS(16273) = B(3879) -! JVS(16274) = Jac_FULL(3536,1948) - JVS(16274) = B(3872) -! JVS(16275) = Jac_FULL(3536,1976) - JVS(16275) = B(3875) -! JVS(16276) = Jac_FULL(3536,3422) - JVS(16276) = B(3878) -! JVS(16277) = Jac_FULL(3536,3536) - JVS(16277) = -B(3881) -! JVS(16278) = Jac_FULL(3536,4140) - JVS(16278) = 0 -! JVS(16279) = Jac_FULL(3536,4473) - JVS(16279) = B(1128) -! JVS(16280) = Jac_FULL(3536,4647) - JVS(16280) = 0 -! JVS(16281) = Jac_FULL(3536,4841) - JVS(16281) = B(3283) -! JVS(16282) = Jac_FULL(3536,5250) - JVS(16282) = B(3873)+B(3876)+B(3880)-B(3882) -! JVS(16283) = Jac_FULL(3536,5252) - JVS(16283) = 0 -! JVS(16284) = Jac_FULL(3536,5255) - JVS(16284) = 0 -! JVS(16285) = Jac_FULL(3536,5256) - JVS(16285) = 0 -! JVS(16286) = Jac_FULL(3537,636) - JVS(16286) = B(19649) -! JVS(16287) = Jac_FULL(3537,1441) - JVS(16287) = B(19642) -! JVS(16288) = Jac_FULL(3537,1963) - JVS(16288) = B(19645) -! JVS(16289) = Jac_FULL(3537,3537) - JVS(16289) = -B(19651)-B(19652) -! JVS(16290) = Jac_FULL(3537,4573) - JVS(16290) = B(17759) -! JVS(16291) = Jac_FULL(3537,5250) - JVS(16291) = B(19643)+B(19646)+B(19650)-B(19653) -! JVS(16292) = Jac_FULL(3537,5252) - JVS(16292) = 0 -! JVS(16293) = Jac_FULL(3537,5255) - JVS(16293) = 0 -! JVS(16294) = Jac_FULL(3538,939) - JVS(16294) = B(8774) -! JVS(16295) = Jac_FULL(3538,3157) - JVS(16295) = B(2384)+B(2390) -! JVS(16296) = Jac_FULL(3538,3538) - JVS(16296) = -B(5303)-B(5305)-B(5307)-B(5309)-B(5310) -! JVS(16297) = Jac_FULL(3538,5250) - JVS(16297) = B(2391)+B(8775) -! JVS(16298) = Jac_FULL(3538,5252) - JVS(16298) = -B(5306) -! JVS(16299) = Jac_FULL(3538,5255) - JVS(16299) = -B(5304) -! JVS(16300) = Jac_FULL(3538,5256) - JVS(16300) = B(2385)-B(5308) -! JVS(16301) = Jac_FULL(3539,1232) - JVS(16301) = B(9506) -! JVS(16302) = Jac_FULL(3539,3172) - JVS(16302) = B(2647)+B(2653) -! JVS(16303) = Jac_FULL(3539,3539) - JVS(16303) = -B(5857)-B(5859)-B(5861)-B(5863)-B(5864) -! JVS(16304) = Jac_FULL(3539,5250) - JVS(16304) = B(2654)+B(9507) -! JVS(16305) = Jac_FULL(3539,5252) - JVS(16305) = -B(5860) -! JVS(16306) = Jac_FULL(3539,5255) - JVS(16306) = -B(5858) -! JVS(16307) = Jac_FULL(3539,5256) - JVS(16307) = B(2648)-B(5862) -! JVS(16308) = Jac_FULL(3540,3540) - JVS(16308) = -B(4122)-B(4124)-B(4126)-B(4127) -! JVS(16309) = Jac_FULL(3540,4705) - JVS(16309) = B(1343) -! JVS(16310) = Jac_FULL(3540,5250) - JVS(16310) = -B(4123)-B(4125) -! JVS(16311) = Jac_FULL(3540,5255) - JVS(16311) = B(1344) -! JVS(16312) = Jac_FULL(3541,2588) - JVS(16312) = B(18330) -! JVS(16313) = Jac_FULL(3541,2604) - JVS(16313) = B(18334) -! JVS(16314) = Jac_FULL(3541,2903) - JVS(16314) = B(20070) -! JVS(16315) = Jac_FULL(3541,3329) - JVS(16315) = B(20066) -! JVS(16316) = Jac_FULL(3541,3541) - JVS(16316) = -B(20085) -! JVS(16317) = Jac_FULL(3541,4246) - JVS(16317) = 0 -! JVS(16318) = Jac_FULL(3541,4262) - JVS(16318) = 0 -! JVS(16319) = Jac_FULL(3541,4304) - JVS(16319) = 0 -! JVS(16320) = Jac_FULL(3541,4464) - JVS(16320) = 0 -! JVS(16321) = Jac_FULL(3541,5250) - JVS(16321) = -B(20086) -! JVS(16322) = Jac_FULL(3541,5252) - JVS(16322) = 0 -! JVS(16323) = Jac_FULL(3541,5255) - JVS(16323) = 0 -! JVS(16324) = Jac_FULL(3541,5256) - JVS(16324) = 0 -! JVS(16325) = Jac_FULL(3542,1386) - JVS(16325) = B(5133) -! JVS(16326) = Jac_FULL(3542,1827) - JVS(16326) = B(5100) -! JVS(16327) = Jac_FULL(3542,3308) - JVS(16327) = B(5124) -! JVS(16328) = Jac_FULL(3542,3542) - JVS(16328) = -B(5130)-B(5132) -! JVS(16329) = Jac_FULL(3542,4582) - JVS(16329) = B(2263) -! JVS(16330) = Jac_FULL(3542,4879) - JVS(16330) = 0 -! JVS(16331) = Jac_FULL(3542,5135) - JVS(16331) = 0 -! JVS(16332) = Jac_FULL(3542,5250) - JVS(16332) = B(5101)+B(5125)-B(5131)+B(5134) -! JVS(16333) = Jac_FULL(3542,5252) - JVS(16333) = 0 -! JVS(16334) = Jac_FULL(3542,5255) - JVS(16334) = 0 -! JVS(16335) = Jac_FULL(3543,402) - JVS(16335) = B(16035) -! JVS(16336) = Jac_FULL(3543,1840) - JVS(16336) = B(16031) -! JVS(16337) = Jac_FULL(3543,3543) - JVS(16337) = -B(16037)-B(16039)-B(16041) -! JVS(16338) = Jac_FULL(3543,4069) - JVS(16338) = B(12966) -! JVS(16339) = Jac_FULL(3543,5250) - JVS(16339) = B(16032)+B(16036)-B(16040) -! JVS(16340) = Jac_FULL(3543,5255) - JVS(16340) = 0 -! JVS(16341) = Jac_FULL(3543,5256) - JVS(16341) = -B(16038) -! JVS(16342) = Jac_FULL(3544,671) - JVS(16342) = B(17935) -! JVS(16343) = Jac_FULL(3544,967) - JVS(16343) = B(17925) -! JVS(16344) = Jac_FULL(3544,2245) - JVS(16344) = B(17928) -! JVS(16345) = Jac_FULL(3544,3544) - JVS(16345) = -B(17931)-B(17932) -! JVS(16346) = Jac_FULL(3544,4712) - JVS(16346) = B(15334) -! JVS(16347) = Jac_FULL(3544,5250) - JVS(16347) = B(17926)+B(17929)-B(17933)+B(17936) -! JVS(16348) = Jac_FULL(3544,5252) - JVS(16348) = 0 -! JVS(16349) = Jac_FULL(3544,5255) - JVS(16349) = 0 -! JVS(16350) = Jac_FULL(3545,3157) - JVS(16350) = B(2392) -! JVS(16351) = Jac_FULL(3545,3545) - JVS(16351) = -B(5323)-B(5325)-B(5327) -! JVS(16352) = Jac_FULL(3545,5250) - JVS(16352) = B(2393)-B(5328) -! JVS(16353) = Jac_FULL(3545,5256) - JVS(16353) = -B(5324) -! JVS(16354) = Jac_FULL(3545,5258) - JVS(16354) = -B(5326) -! JVS(16355) = Jac_FULL(3546,2552) - JVS(16355) = B(21359) -! JVS(16356) = Jac_FULL(3546,3546) - JVS(16356) = -B(22217)-B(22219)-B(22221) -! JVS(16357) = Jac_FULL(3546,4808) - JVS(16357) = 0 -! JVS(16358) = Jac_FULL(3546,5250) - JVS(16358) = B(21360)-B(22220) -! JVS(16359) = Jac_FULL(3546,5253) - JVS(16359) = 0 -! JVS(16360) = Jac_FULL(3546,5256) - JVS(16360) = -B(22218) -! JVS(16361) = Jac_FULL(3547,1081) - JVS(16361) = B(3953) -! JVS(16362) = Jac_FULL(3547,1897) - JVS(16362) = B(3947) -! JVS(16363) = Jac_FULL(3547,2001) - JVS(16363) = B(3956) -! JVS(16364) = Jac_FULL(3547,3547) - JVS(16364) = -B(3958)-B(3959) -! JVS(16365) = Jac_FULL(3547,4161) - JVS(16365) = B(1190) -! JVS(16366) = Jac_FULL(3547,4546) - JVS(16366) = B(17585) -! JVS(16367) = Jac_FULL(3547,4561) - JVS(16367) = 0 -! JVS(16368) = Jac_FULL(3547,5250) - JVS(16368) = B(3948)+B(3954)+B(3957)-B(3960) -! JVS(16369) = Jac_FULL(3547,5252) - JVS(16369) = 0 -! JVS(16370) = Jac_FULL(3547,5255) - JVS(16370) = 0 -! JVS(16371) = Jac_FULL(3548,762) - JVS(16371) = B(17995) -! JVS(16372) = Jac_FULL(3548,1543) - JVS(16372) = B(17985) -! JVS(16373) = Jac_FULL(3548,2271) - JVS(16373) = B(17988) -! JVS(16374) = Jac_FULL(3548,3548) - JVS(16374) = -B(17991)-B(17992) -! JVS(16375) = Jac_FULL(3548,4709) - JVS(16375) = B(15390) -! JVS(16376) = Jac_FULL(3548,5250) - JVS(16376) = B(17986)+B(17989)-B(17993)+B(17996) -! JVS(16377) = Jac_FULL(3548,5252) - JVS(16377) = 0 -! JVS(16378) = Jac_FULL(3548,5255) - JVS(16378) = 0 -! JVS(16379) = Jac_FULL(3549,302) - JVS(16379) = B(16668) -! JVS(16380) = Jac_FULL(3549,3549) - JVS(16380) = -B(16638)-B(16640) -! JVS(16381) = Jac_FULL(3549,4711) - JVS(16381) = B(13815) -! JVS(16382) = Jac_FULL(3549,5022) - JVS(16382) = 0 -! JVS(16383) = Jac_FULL(3549,5250) - JVS(16383) = -B(16639)+B(16669) -! JVS(16384) = Jac_FULL(3549,5252) - JVS(16384) = B(13816) -! JVS(16385) = Jac_FULL(3550,3550) - JVS(16385) = -B(16670)-B(16671)-B(16672)-B(16674) -! JVS(16386) = Jac_FULL(3550,5134) - JVS(16386) = B(13843) -! JVS(16387) = Jac_FULL(3550,5250) - JVS(16387) = -B(16673)-B(16675) -! JVS(16388) = Jac_FULL(3550,5255) - JVS(16388) = B(13844) -! JVS(16389) = Jac_FULL(3551,3130) - JVS(16389) = B(2905) -! JVS(16390) = Jac_FULL(3551,3551) - JVS(16390) = -B(6413)-B(6415)-B(6417) -! JVS(16391) = Jac_FULL(3551,5250) - JVS(16391) = B(2906)-B(6418) -! JVS(16392) = Jac_FULL(3551,5256) - JVS(16392) = -B(6414) -! JVS(16393) = Jac_FULL(3551,5258) - JVS(16393) = -B(6416) -! JVS(16394) = Jac_FULL(3552,3552) - JVS(16394) = -B(13850)-B(13851)-B(13853) -! JVS(16395) = Jac_FULL(3552,5173) - JVS(16395) = B(10628) -! JVS(16396) = Jac_FULL(3552,5250) - JVS(16396) = -B(13852)-B(13854) -! JVS(16397) = Jac_FULL(3552,5255) - JVS(16397) = B(10629) -! JVS(16398) = Jac_FULL(3553,3437) - JVS(16398) = B(9654) -! JVS(16399) = Jac_FULL(3553,3553) - JVS(16399) = -B(9661)-B(9663)-B(9665) -! JVS(16400) = Jac_FULL(3553,4937) - JVS(16400) = B(5984) -! JVS(16401) = Jac_FULL(3553,5250) - JVS(16401) = -B(9666) -! JVS(16402) = Jac_FULL(3553,5256) - JVS(16402) = -B(9662) -! JVS(16403) = Jac_FULL(3553,5258) - JVS(16403) = -B(9664) -! JVS(16404) = Jac_FULL(3554,1023) - JVS(16404) = B(9399) -! JVS(16405) = Jac_FULL(3554,3149) - JVS(16405) = B(2606)+B(2610) -! JVS(16406) = Jac_FULL(3554,3554) - JVS(16406) = -B(5777)-B(5779)-B(5781)-B(5783)-B(5784) -! JVS(16407) = Jac_FULL(3554,5250) - JVS(16407) = B(2611)+B(9400) -! JVS(16408) = Jac_FULL(3554,5252) - JVS(16408) = -B(5780) -! JVS(16409) = Jac_FULL(3554,5255) - JVS(16409) = -B(5778) -! JVS(16410) = Jac_FULL(3554,5256) - JVS(16410) = B(2607)-B(5782) -! JVS(16411) = Jac_FULL(3555,2570) - JVS(16411) = B(18901) -! JVS(16412) = Jac_FULL(3555,3555) - JVS(16412) = -B(20487)-B(20489) -! JVS(16413) = Jac_FULL(3555,5005) - JVS(16413) = B(20400) -! JVS(16414) = Jac_FULL(3555,5167) - JVS(16414) = 0 -! JVS(16415) = Jac_FULL(3555,5250) - JVS(16415) = B(18902)-B(20488) -! JVS(16416) = Jac_FULL(3555,5255) - JVS(16416) = B(20401) -! JVS(16417) = Jac_FULL(3556,584) - JVS(16417) = B(16190) -! JVS(16418) = Jac_FULL(3556,1622) - JVS(16418) = B(16200) -! JVS(16419) = Jac_FULL(3556,2417) - JVS(16419) = 0 -! JVS(16420) = Jac_FULL(3556,3556) - JVS(16420) = -B(18520)-B(18522) -! JVS(16421) = Jac_FULL(3556,4416) - JVS(16421) = 0 -! JVS(16422) = Jac_FULL(3556,4480) - JVS(16422) = 0 -! JVS(16423) = Jac_FULL(3556,5250) - JVS(16423) = -B(18521) -! JVS(16424) = Jac_FULL(3556,5252) - JVS(16424) = 0 -! JVS(16425) = Jac_FULL(3556,5255) - JVS(16425) = 0 -! JVS(16426) = Jac_FULL(3556,5256) - JVS(16426) = 0 -! JVS(16427) = Jac_FULL(3557,657) - JVS(16427) = B(22448) -! JVS(16428) = Jac_FULL(3557,1139) - JVS(16428) = B(22441) -! JVS(16429) = Jac_FULL(3557,1678) - JVS(16429) = B(23881) -! JVS(16430) = Jac_FULL(3557,1793) - JVS(16430) = B(23877) -! JVS(16431) = Jac_FULL(3557,2802) - JVS(16431) = B(23442) -! JVS(16432) = Jac_FULL(3557,3557) - JVS(16432) = -B(22445)-B(22447) -! JVS(16433) = Jac_FULL(3557,4136) - JVS(16433) = B(23708) -! JVS(16434) = Jac_FULL(3557,4142) - JVS(16434) = B(21824) -! JVS(16435) = Jac_FULL(3557,5130) - JVS(16435) = 0 -! JVS(16436) = Jac_FULL(3557,5250) - JVS(16436) = B(22442)-B(22446)+B(22449)+B(23443)+B(23878)+B(23882) -! JVS(16437) = Jac_FULL(3557,5252) - JVS(16437) = 0 -! JVS(16438) = Jac_FULL(3557,5255) - JVS(16438) = 0 -! JVS(16439) = Jac_FULL(3558,3558) - JVS(16439) = -B(20322)-B(20324) -! JVS(16440) = Jac_FULL(3558,5047) - JVS(16440) = B(18749)+B(18751)+B(18753)+B(18755)+B(18757) -! JVS(16441) = Jac_FULL(3558,5250) - JVS(16441) = -B(20323) -! JVS(16442) = Jac_FULL(3558,5251) - JVS(16442) = B(18750) -! JVS(16443) = Jac_FULL(3558,5252) - JVS(16443) = B(18752) -! JVS(16444) = Jac_FULL(3558,5253) - JVS(16444) = B(18754) -! JVS(16445) = Jac_FULL(3558,5254) - JVS(16445) = B(18756) -! JVS(16446) = Jac_FULL(3559,2850) - JVS(16446) = B(16914) -! JVS(16447) = Jac_FULL(3559,3559) - JVS(16447) = -B(11076)-B(11078)-B(11079) -! JVS(16448) = Jac_FULL(3559,4563) - JVS(16448) = B(7271) -! JVS(16449) = Jac_FULL(3559,4830) - JVS(16449) = 0 -! JVS(16450) = Jac_FULL(3559,5250) - JVS(16450) = -B(11077)+B(16915) -! JVS(16451) = Jac_FULL(3559,5253) - JVS(16451) = 0 -! JVS(16452) = Jac_FULL(3560,3131) - JVS(16452) = B(2500) -! JVS(16453) = Jac_FULL(3560,3560) - JVS(16453) = -B(5569)-B(5571)-B(5573) -! JVS(16454) = Jac_FULL(3560,5250) - JVS(16454) = B(2501)-B(5574) -! JVS(16455) = Jac_FULL(3560,5256) - JVS(16455) = -B(5570) -! JVS(16456) = Jac_FULL(3560,5258) - JVS(16456) = -B(5572) -! JVS(16457) = Jac_FULL(3561,926) - JVS(16457) = B(4959) -! JVS(16458) = Jac_FULL(3561,2441) - JVS(16458) = B(4938) -! JVS(16459) = Jac_FULL(3561,3289) - JVS(16459) = B(4950) -! JVS(16460) = Jac_FULL(3561,3561) - JVS(16460) = -B(4956)-B(4958) -! JVS(16461) = Jac_FULL(3561,4598) - JVS(16461) = B(2113) -! JVS(16462) = Jac_FULL(3561,4972) - JVS(16462) = 0 -! JVS(16463) = Jac_FULL(3561,5096) - JVS(16463) = 0 -! JVS(16464) = Jac_FULL(3561,5250) - JVS(16464) = B(4939)+B(4951)-B(4957)+B(4960) -! JVS(16465) = Jac_FULL(3561,5252) - JVS(16465) = 0 -! JVS(16466) = Jac_FULL(3561,5255) - JVS(16466) = 0 -! JVS(16467) = Jac_FULL(3562,938) - JVS(16467) = B(9275) -! JVS(16468) = Jac_FULL(3562,3136) - JVS(16468) = B(2560)+B(2566) -! JVS(16469) = Jac_FULL(3562,3562) - JVS(16469) = -B(5678)-B(5680)-B(5682)-B(5684)-B(5685) -! JVS(16470) = Jac_FULL(3562,5250) - JVS(16470) = B(2567)+B(9276) -! JVS(16471) = Jac_FULL(3562,5252) - JVS(16471) = -B(5681) -! JVS(16472) = Jac_FULL(3562,5255) - JVS(16472) = -B(5679) -! JVS(16473) = Jac_FULL(3562,5256) - JVS(16473) = B(2561)-B(5683) -! JVS(16474) = Jac_FULL(3563,3272) - JVS(16474) = B(20428) -! JVS(16475) = Jac_FULL(3563,3563) - JVS(16475) = -B(21585)-B(21587) -! JVS(16476) = Jac_FULL(3563,5003) - JVS(16476) = B(20414) -! JVS(16477) = Jac_FULL(3563,5075) - JVS(16477) = 0 -! JVS(16478) = Jac_FULL(3563,5250) - JVS(16478) = B(20429)-B(21586) -! JVS(16479) = Jac_FULL(3563,5255) - JVS(16479) = B(20415) -! JVS(16480) = Jac_FULL(3564,930) - JVS(16480) = B(17360) -! JVS(16481) = Jac_FULL(3564,3564) - JVS(16481) = -B(14782) -! JVS(16482) = Jac_FULL(3564,4183) - JVS(16482) = B(11421) -! JVS(16483) = Jac_FULL(3564,4745) - JVS(16483) = B(14767)+B(14769)+B(14771) -! JVS(16484) = Jac_FULL(3564,5250) - JVS(16484) = 0 -! JVS(16485) = Jac_FULL(3564,5252) - JVS(16485) = B(14768) -! JVS(16486) = Jac_FULL(3564,5255) - JVS(16486) = 0 -! JVS(16487) = Jac_FULL(3564,5256) - JVS(16487) = B(14770) -! JVS(16488) = Jac_FULL(3565,576) - JVS(16488) = B(16364) -! JVS(16489) = Jac_FULL(3565,1092) - JVS(16489) = B(16355) -! JVS(16490) = Jac_FULL(3565,3565) - JVS(16490) = -B(16356)-B(16357) -! JVS(16491) = Jac_FULL(3565,4703) - JVS(16491) = B(13333)+B(13335)+B(13338) -! JVS(16492) = Jac_FULL(3565,5250) - JVS(16492) = 0 -! JVS(16493) = Jac_FULL(3565,5252) - JVS(16493) = B(13334) -! JVS(16494) = Jac_FULL(3565,5255) - JVS(16494) = 0 -! JVS(16495) = Jac_FULL(3565,5256) - JVS(16495) = B(13336) -! JVS(16496) = Jac_FULL(3566,3566) - JVS(16496) = -B(7961)-B(7962) -! JVS(16497) = Jac_FULL(3566,3965) - JVS(16497) = B(13155) -! JVS(16498) = Jac_FULL(3566,4156) - JVS(16498) = B(4336) -! JVS(16499) = Jac_FULL(3566,4913) - JVS(16499) = B(9683)+B(9685)+B(9687) -! JVS(16500) = Jac_FULL(3566,5252) - JVS(16500) = B(9684) -! JVS(16501) = Jac_FULL(3566,5256) - JVS(16501) = B(9686) -! JVS(16502) = Jac_FULL(3567,812) - JVS(16502) = B(9702) -! JVS(16503) = Jac_FULL(3567,1112) - JVS(16503) = B(9690) -! JVS(16504) = Jac_FULL(3567,3567) - JVS(16504) = -B(9691)-B(9692) -! JVS(16505) = Jac_FULL(3567,4971) - JVS(16505) = B(5998)+B(6002)+B(6005) -! JVS(16506) = Jac_FULL(3567,5250) - JVS(16506) = 0 -! JVS(16507) = Jac_FULL(3567,5252) - JVS(16507) = B(5999) -! JVS(16508) = Jac_FULL(3567,5255) - JVS(16508) = 0 -! JVS(16509) = Jac_FULL(3567,5256) - JVS(16509) = B(6003) -! JVS(16510) = Jac_FULL(3568,4) - JVS(16510) = B(12) -! JVS(16511) = Jac_FULL(3568,3568) - JVS(16511) = -B(3)-B(4)-B(6)-B(8)-B(10)-B(56) -! JVS(16512) = Jac_FULL(3568,5252) - JVS(16512) = -B(7) -! JVS(16513) = Jac_FULL(3568,5253) - JVS(16513) = -B(9)-B(11)+B(67) -! JVS(16514) = Jac_FULL(3568,5254) - JVS(16514) = -B(57) -! JVS(16515) = Jac_FULL(3568,5256) - JVS(16515) = B(69) -! JVS(16516) = Jac_FULL(3568,5258) - JVS(16516) = -B(5)+B(65) -! JVS(16517) = Jac_FULL(3569,487) - JVS(16517) = B(9882)+B(9884) -! JVS(16518) = Jac_FULL(3569,1034) - JVS(16518) = B(9876) -! JVS(16519) = Jac_FULL(3569,3569) - JVS(16519) = -B(9877)-B(9878) -! JVS(16520) = Jac_FULL(3569,4568) - JVS(16520) = B(6165)+B(6169)+B(6171) -! JVS(16521) = Jac_FULL(3569,5250) - JVS(16521) = B(9883) -! JVS(16522) = Jac_FULL(3569,5252) - JVS(16522) = B(6166) -! JVS(16523) = Jac_FULL(3569,5255) - JVS(16523) = 0 -! JVS(16524) = Jac_FULL(3569,5256) - JVS(16524) = B(6170) -! JVS(16525) = Jac_FULL(3570,811) - JVS(16525) = B(10088) -! JVS(16526) = Jac_FULL(3570,1161) - JVS(16526) = B(10077) -! JVS(16527) = Jac_FULL(3570,3570) - JVS(16527) = -B(10081)-B(10082) -! JVS(16528) = Jac_FULL(3570,4727) - JVS(16528) = B(6378)+B(6380)+B(6383) -! JVS(16529) = Jac_FULL(3570,5250) - JVS(16529) = 0 -! JVS(16530) = Jac_FULL(3570,5252) - JVS(16530) = B(6379) -! JVS(16531) = Jac_FULL(3570,5255) - JVS(16531) = 0 -! JVS(16532) = Jac_FULL(3570,5256) - JVS(16532) = B(6381) -! JVS(16533) = Jac_FULL(3571,535) - JVS(16533) = B(18083) -! JVS(16534) = Jac_FULL(3571,1943) - JVS(16534) = 0 -! JVS(16535) = Jac_FULL(3571,3571) - JVS(16535) = -B(19890)-B(19892) -! JVS(16536) = Jac_FULL(3571,4163) - JVS(16536) = 0 -! JVS(16537) = Jac_FULL(3571,5250) - JVS(16537) = -B(19891) -! JVS(16538) = Jac_FULL(3571,5252) - JVS(16538) = 0 -! JVS(16539) = Jac_FULL(3571,5255) - JVS(16539) = 0 -! JVS(16540) = Jac_FULL(3571,5256) - JVS(16540) = 0 -! JVS(16541) = Jac_FULL(3572,2179) - JVS(16541) = B(4930) -! JVS(16542) = Jac_FULL(3572,3572) - JVS(16542) = -B(4931)-B(4932) -! JVS(16543) = Jac_FULL(3572,4972) - JVS(16543) = B(2094)+B(2096)+B(2099) -! JVS(16544) = Jac_FULL(3572,5250) - JVS(16544) = 0 -! JVS(16545) = Jac_FULL(3572,5252) - JVS(16545) = B(2095) -! JVS(16546) = Jac_FULL(3572,5255) - JVS(16546) = 0 -! JVS(16547) = Jac_FULL(3572,5256) - JVS(16547) = B(2097) -! JVS(16548) = Jac_FULL(3573,764) - JVS(16548) = B(8976) -! JVS(16549) = Jac_FULL(3573,1049) - JVS(16549) = B(8965) -! JVS(16550) = Jac_FULL(3573,3573) - JVS(16550) = -B(8969)-B(8970) -! JVS(16551) = Jac_FULL(3573,4707) - JVS(16551) = B(5435)+B(5437)+B(5440) -! JVS(16552) = Jac_FULL(3573,5250) - JVS(16552) = 0 -! JVS(16553) = Jac_FULL(3573,5252) - JVS(16553) = B(5436) -! JVS(16554) = Jac_FULL(3573,5255) - JVS(16554) = 0 -! JVS(16555) = Jac_FULL(3573,5256) - JVS(16555) = B(5438) -! JVS(16556) = Jac_FULL(3574,1309) - JVS(16556) = B(20100) -! JVS(16557) = Jac_FULL(3574,3574) - JVS(16557) = -B(20101) -! JVS(16558) = Jac_FULL(3574,4511) - JVS(16558) = B(18359)+B(18361)+B(18363) -! JVS(16559) = Jac_FULL(3574,5250) - JVS(16559) = 0 -! JVS(16560) = Jac_FULL(3574,5252) - JVS(16560) = B(18360) -! JVS(16561) = Jac_FULL(3574,5255) - JVS(16561) = 0 -! JVS(16562) = Jac_FULL(3574,5256) - JVS(16562) = B(18362) -! JVS(16563) = Jac_FULL(3575,2363) - JVS(16563) = B(5046) -! JVS(16564) = Jac_FULL(3575,3575) - JVS(16564) = -B(5047)-B(5048) -! JVS(16565) = Jac_FULL(3575,4881) - JVS(16565) = B(2190)+B(2192)+B(2195) -! JVS(16566) = Jac_FULL(3575,5250) - JVS(16566) = 0 -! JVS(16567) = Jac_FULL(3575,5252) - JVS(16567) = B(2191) -! JVS(16568) = Jac_FULL(3575,5255) - JVS(16568) = 0 -! JVS(16569) = Jac_FULL(3575,5256) - JVS(16569) = B(2193) -! JVS(16570) = Jac_FULL(3576,788) - JVS(16570) = B(8729) -! JVS(16571) = Jac_FULL(3576,1016) - JVS(16571) = B(8718) -! JVS(16572) = Jac_FULL(3576,3576) - JVS(16572) = -B(8722)-B(8723) -! JVS(16573) = Jac_FULL(3576,4720) - JVS(16573) = B(5242)+B(5244)+B(5247) -! JVS(16574) = Jac_FULL(3576,5250) - JVS(16574) = 0 -! JVS(16575) = Jac_FULL(3576,5252) - JVS(16575) = B(5243) -! JVS(16576) = Jac_FULL(3576,5255) - JVS(16576) = 0 -! JVS(16577) = Jac_FULL(3576,5256) - JVS(16577) = B(5245) -! JVS(16578) = Jac_FULL(3577,2442) - JVS(16578) = B(4836) -! JVS(16579) = Jac_FULL(3577,3577) - JVS(16579) = -B(4837)-B(4838) -! JVS(16580) = Jac_FULL(3577,4370) - JVS(16580) = B(2009)+B(2011)+B(2015) -! JVS(16581) = Jac_FULL(3577,5250) - JVS(16581) = 0 -! JVS(16582) = Jac_FULL(3577,5252) - JVS(16582) = B(2010) -! JVS(16583) = Jac_FULL(3577,5255) - JVS(16583) = 0 -! JVS(16584) = Jac_FULL(3577,5256) - JVS(16584) = B(2012) -! JVS(16585) = Jac_FULL(3578,1578) - JVS(16585) = B(16211) -! JVS(16586) = Jac_FULL(3578,2686) - JVS(16586) = B(16208) -! JVS(16587) = Jac_FULL(3578,3578) - JVS(16587) = -B(16209)-B(16210) -! JVS(16588) = Jac_FULL(3578,4674) - JVS(16588) = B(13175)+B(13177)+B(13179) -! JVS(16589) = Jac_FULL(3578,5250) - JVS(16589) = B(16212) -! JVS(16590) = Jac_FULL(3578,5252) - JVS(16590) = B(13176) -! JVS(16591) = Jac_FULL(3578,5255) - JVS(16591) = 0 -! JVS(16592) = Jac_FULL(3578,5256) - JVS(16592) = B(13178) -! JVS(16593) = Jac_FULL(3579,860) - JVS(16593) = B(18392) -! JVS(16594) = Jac_FULL(3579,3579) - JVS(16594) = -B(18393) -! JVS(16595) = Jac_FULL(3579,4280) - JVS(16595) = B(15976)+B(15978)+B(15980) -! JVS(16596) = Jac_FULL(3579,5250) - JVS(16596) = 0 -! JVS(16597) = Jac_FULL(3579,5252) - JVS(16597) = B(15977) -! JVS(16598) = Jac_FULL(3579,5255) - JVS(16598) = 0 -! JVS(16599) = Jac_FULL(3579,5256) - JVS(16599) = B(15979) -! JVS(16600) = Jac_FULL(3580,408) - JVS(16600) = B(18031) -! JVS(16601) = Jac_FULL(3580,1478) - JVS(16601) = B(18024) -! JVS(16602) = Jac_FULL(3580,3015) - JVS(16602) = B(18027) -! JVS(16603) = Jac_FULL(3580,3580) - JVS(16603) = -B(14208)-B(14210) -! JVS(16604) = Jac_FULL(3580,4158) - JVS(16604) = B(11020) -! JVS(16605) = Jac_FULL(3580,4360) - JVS(16605) = B(15411) -! JVS(16606) = Jac_FULL(3580,5250) - JVS(16606) = -B(14209)+B(18025)+B(18028)+B(18032) -! JVS(16607) = Jac_FULL(3580,5252) - JVS(16607) = 0 -! JVS(16608) = Jac_FULL(3580,5255) - JVS(16608) = 0 -! JVS(16609) = Jac_FULL(3581,475) - JVS(16609) = B(10174)+B(10176) -! JVS(16610) = Jac_FULL(3581,947) - JVS(16610) = B(10168) -! JVS(16611) = Jac_FULL(3581,3581) - JVS(16611) = -B(10169)-B(10170) -! JVS(16612) = Jac_FULL(3581,4400) - JVS(16612) = B(6464)+B(6468)+B(6470) -! JVS(16613) = Jac_FULL(3581,5250) - JVS(16613) = B(10175) -! JVS(16614) = Jac_FULL(3581,5252) - JVS(16614) = B(6465) -! JVS(16615) = Jac_FULL(3581,5255) - JVS(16615) = 0 -! JVS(16616) = Jac_FULL(3581,5256) - JVS(16616) = B(6469) -! JVS(16617) = Jac_FULL(3582,3475) - JVS(16617) = B(12679) -! JVS(16618) = Jac_FULL(3582,3582) - JVS(16618) = -B(12675)-B(12676) -! JVS(16619) = Jac_FULL(3582,4773) - JVS(16619) = B(9063)+B(9067)+B(9071)+B(9073) -! JVS(16620) = Jac_FULL(3582,5250) - JVS(16620) = 0 -! JVS(16621) = Jac_FULL(3582,5252) - JVS(16621) = B(9068) -! JVS(16622) = Jac_FULL(3582,5255) - JVS(16622) = B(9064) -! JVS(16623) = Jac_FULL(3582,5256) - JVS(16623) = B(9072) -! JVS(16624) = Jac_FULL(3583,424) - JVS(16624) = B(4542) -! JVS(16625) = Jac_FULL(3583,1855) - JVS(16625) = B(4535) -! JVS(16626) = Jac_FULL(3583,2350) - JVS(16626) = B(4538) -! JVS(16627) = Jac_FULL(3583,2974) - JVS(16627) = B(4541) -! JVS(16628) = Jac_FULL(3583,3583) - JVS(16628) = -B(852)-B(854)-B(856) -! JVS(16629) = Jac_FULL(3583,4974) - JVS(16629) = B(1759) -! JVS(16630) = Jac_FULL(3583,5250) - JVS(16630) = -B(853)-B(855)+B(4536)+B(4539)+B(4543) -! JVS(16631) = Jac_FULL(3583,5252) - JVS(16631) = 0 -! JVS(16632) = Jac_FULL(3583,5255) - JVS(16632) = 0 -! JVS(16633) = Jac_FULL(3583,5256) - JVS(16633) = 0 -! JVS(16634) = Jac_FULL(3584,785) - JVS(16634) = B(9786) -! JVS(16635) = Jac_FULL(3584,1014) - JVS(16635) = B(9775) -! JVS(16636) = Jac_FULL(3584,3584) - JVS(16636) = -B(9776)-B(9777) -! JVS(16637) = Jac_FULL(3584,4803) - JVS(16637) = B(6078)+B(6082)+B(6085) -! JVS(16638) = Jac_FULL(3584,5250) - JVS(16638) = 0 -! JVS(16639) = Jac_FULL(3584,5252) - JVS(16639) = B(6079) -! JVS(16640) = Jac_FULL(3584,5255) - JVS(16640) = 0 -! JVS(16641) = Jac_FULL(3584,5256) - JVS(16641) = B(6083) -! JVS(16642) = Jac_FULL(3585,1859) - JVS(16642) = B(4824) -! JVS(16643) = Jac_FULL(3585,3585) - JVS(16643) = -B(4825)-B(4826) -! JVS(16644) = Jac_FULL(3585,4351) - JVS(16644) = B(2000)+B(2002)+B(2005) -! JVS(16645) = Jac_FULL(3585,5250) - JVS(16645) = 0 -! JVS(16646) = Jac_FULL(3585,5252) - JVS(16646) = B(2001) -! JVS(16647) = Jac_FULL(3585,5255) - JVS(16647) = 0 -! JVS(16648) = Jac_FULL(3585,5256) - JVS(16648) = B(2003) -! JVS(16649) = Jac_FULL(3586,1364) - JVS(16649) = B(10663) -! JVS(16650) = Jac_FULL(3586,3586) - JVS(16650) = -B(10664)-B(10665) -! JVS(16651) = Jac_FULL(3586,4337) - JVS(16651) = B(6847)+B(6849)+B(6851) -! JVS(16652) = Jac_FULL(3586,5250) - JVS(16652) = 0 -! JVS(16653) = Jac_FULL(3586,5252) - JVS(16653) = B(6848) -! JVS(16654) = Jac_FULL(3586,5255) - JVS(16654) = 0 -! JVS(16655) = Jac_FULL(3586,5256) - JVS(16655) = B(6850) -! JVS(16656) = Jac_FULL(3587,1644) - JVS(16656) = B(13518) -! JVS(16657) = Jac_FULL(3587,3587) - JVS(16657) = -B(4249)-B(4250) -! JVS(16658) = Jac_FULL(3587,4732) - JVS(16658) = 0 -! JVS(16659) = Jac_FULL(3587,4932) - JVS(16659) = B(1473)+B(1477) -! JVS(16660) = Jac_FULL(3587,5250) - JVS(16660) = -B(4251) -! JVS(16661) = Jac_FULL(3587,5252) - JVS(16661) = B(1474) -! JVS(16662) = Jac_FULL(3587,5256) - JVS(16662) = B(1478) -! JVS(16663) = Jac_FULL(3588,683) - JVS(16663) = B(9359) -! JVS(16664) = Jac_FULL(3588,1510) - JVS(16664) = B(9348) -! JVS(16665) = Jac_FULL(3588,3588) - JVS(16665) = -B(9352)-B(9353) -! JVS(16666) = Jac_FULL(3588,4701) - JVS(16666) = B(5737)+B(5739)+B(5742) -! JVS(16667) = Jac_FULL(3588,5250) - JVS(16667) = 0 -! JVS(16668) = Jac_FULL(3588,5252) - JVS(16668) = B(5738) -! JVS(16669) = Jac_FULL(3588,5255) - JVS(16669) = 0 -! JVS(16670) = Jac_FULL(3588,5256) - JVS(16670) = B(5740) -! JVS(16671) = Jac_FULL(3589,565) - JVS(16671) = B(8886) -! JVS(16672) = Jac_FULL(3589,846) - JVS(16672) = B(8875) -! JVS(16673) = Jac_FULL(3589,3589) - JVS(16673) = -B(8879)-B(8880) -! JVS(16674) = Jac_FULL(3589,4821) - JVS(16674) = B(5367)+B(5369)+B(5372) -! JVS(16675) = Jac_FULL(3589,5250) - JVS(16675) = 0 -! JVS(16676) = Jac_FULL(3589,5252) - JVS(16676) = B(5368) -! JVS(16677) = Jac_FULL(3589,5255) - JVS(16677) = 0 -! JVS(16678) = Jac_FULL(3589,5256) - JVS(16678) = B(5370) -! JVS(16679) = Jac_FULL(3590,560) - JVS(16679) = B(10129) -! JVS(16680) = Jac_FULL(3590,569) - JVS(16680) = B(9249) -! JVS(16681) = Jac_FULL(3590,628) - JVS(16681) = B(8804) -! JVS(16682) = Jac_FULL(3590,3512) - JVS(16682) = 0 -! JVS(16683) = Jac_FULL(3590,3545) - JVS(16683) = 0 -! JVS(16684) = Jac_FULL(3590,3551) - JVS(16684) = 0 -! JVS(16685) = Jac_FULL(3590,3590) - JVS(16685) = -B(12441)-B(12443) -! JVS(16686) = Jac_FULL(3590,4993) - JVS(16686) = B(12446)+B(12457) -! JVS(16687) = Jac_FULL(3590,5250) - JVS(16687) = -B(12442) -! JVS(16688) = Jac_FULL(3590,5255) - JVS(16688) = B(12447) -! JVS(16689) = Jac_FULL(3590,5256) - JVS(16689) = 0 -! JVS(16690) = Jac_FULL(3590,5258) - JVS(16690) = 0 -! JVS(16691) = Jac_FULL(3591,799) - JVS(16691) = B(20792) -! JVS(16692) = Jac_FULL(3591,1428) - JVS(16692) = B(20784) -! JVS(16693) = Jac_FULL(3591,1823) - JVS(16693) = B(20787) -! JVS(16694) = Jac_FULL(3591,3591) - JVS(16694) = -B(20788)-B(20789) -! JVS(16695) = Jac_FULL(3591,4900) - JVS(16695) = B(19203)+B(19205)+B(19207) -! JVS(16696) = Jac_FULL(3591,5250) - JVS(16696) = 0 -! JVS(16697) = Jac_FULL(3591,5252) - JVS(16697) = B(19204) -! JVS(16698) = Jac_FULL(3591,5255) - JVS(16698) = 0 -! JVS(16699) = Jac_FULL(3591,5256) - JVS(16699) = B(19206) -! JVS(16700) = Jac_FULL(3592,2369) - JVS(16700) = B(5007) -! JVS(16701) = Jac_FULL(3592,3592) - JVS(16701) = -B(5008)-B(5009) -! JVS(16702) = Jac_FULL(3592,4777) - JVS(16702) = B(2162)+B(2164)+B(2166) -! JVS(16703) = Jac_FULL(3592,5250) - JVS(16703) = 0 -! JVS(16704) = Jac_FULL(3592,5252) - JVS(16704) = B(2163) -! JVS(16705) = Jac_FULL(3592,5255) - JVS(16705) = 0 -! JVS(16706) = Jac_FULL(3592,5256) - JVS(16706) = B(2165) -! JVS(16707) = Jac_FULL(3593,629) - JVS(16707) = B(18550) -! JVS(16708) = Jac_FULL(3593,2342) - JVS(16708) = 0 -! JVS(16709) = Jac_FULL(3593,3593) - JVS(16709) = -B(20195)-B(20197) -! JVS(16710) = Jac_FULL(3593,4323) - JVS(16710) = 0 -! JVS(16711) = Jac_FULL(3593,5250) - JVS(16711) = -B(20196) -! JVS(16712) = Jac_FULL(3593,5252) - JVS(16712) = 0 -! JVS(16713) = Jac_FULL(3593,5255) - JVS(16713) = 0 -! JVS(16714) = Jac_FULL(3593,5256) - JVS(16714) = 0 -! JVS(16715) = Jac_FULL(3594,504) - JVS(16715) = B(4604) -! JVS(16716) = Jac_FULL(3594,1753) - JVS(16716) = B(4590) -! JVS(16717) = Jac_FULL(3594,2246) - JVS(16717) = B(4595) -! JVS(16718) = Jac_FULL(3594,2990) - JVS(16718) = B(4598) -! JVS(16719) = Jac_FULL(3594,3594) - JVS(16719) = -B(4599)-B(4600)-B(4602) -! JVS(16720) = Jac_FULL(3594,5061) - JVS(16720) = B(1800) -! JVS(16721) = Jac_FULL(3594,5250) - JVS(16721) = B(4591)+B(4596)-B(4601)-B(4603)+B(4605) -! JVS(16722) = Jac_FULL(3594,5252) - JVS(16722) = 0 -! JVS(16723) = Jac_FULL(3594,5255) - JVS(16723) = 0 -! JVS(16724) = Jac_FULL(3594,5256) - JVS(16724) = 0 -! JVS(16725) = Jac_FULL(3595,555) - JVS(16725) = B(18283) -! JVS(16726) = Jac_FULL(3595,2091) - JVS(16726) = 0 -! JVS(16727) = Jac_FULL(3595,3595) - JVS(16727) = -B(20049)-B(20051) -! JVS(16728) = Jac_FULL(3595,4025) - JVS(16728) = 0 -! JVS(16729) = Jac_FULL(3595,5250) - JVS(16729) = -B(20050) -! JVS(16730) = Jac_FULL(3595,5252) - JVS(16730) = 0 -! JVS(16731) = Jac_FULL(3595,5255) - JVS(16731) = 0 -! JVS(16732) = Jac_FULL(3595,5256) - JVS(16732) = 0 -! JVS(16733) = Jac_FULL(3596,1118) - JVS(16733) = B(20130) -! JVS(16734) = Jac_FULL(3596,3596) - JVS(16734) = -B(20131) -! JVS(16735) = Jac_FULL(3596,4425) - JVS(16735) = B(18426)+B(18428)+B(18430) -! JVS(16736) = Jac_FULL(3596,5250) - JVS(16736) = 0 -! JVS(16737) = Jac_FULL(3596,5252) - JVS(16737) = B(18427) -! JVS(16738) = Jac_FULL(3596,5255) - JVS(16738) = 0 -! JVS(16739) = Jac_FULL(3596,5256) - JVS(16739) = B(18429) -! JVS(16740) = Jac_FULL(3597,878) - JVS(16740) = B(18459) -! JVS(16741) = Jac_FULL(3597,3597) - JVS(16741) = -B(18460) -! JVS(16742) = Jac_FULL(3597,4296) - JVS(16742) = B(16078)+B(16080)+B(16082) -! JVS(16743) = Jac_FULL(3597,5250) - JVS(16743) = 0 -! JVS(16744) = Jac_FULL(3597,5252) - JVS(16744) = B(16079) -! JVS(16745) = Jac_FULL(3597,5255) - JVS(16745) = 0 -! JVS(16746) = Jac_FULL(3597,5256) - JVS(16746) = B(16081) -! JVS(16747) = Jac_FULL(3598,1300) - JVS(16747) = B(4896) -! JVS(16748) = Jac_FULL(3598,3598) - JVS(16748) = -B(4897)-B(4898) -! JVS(16749) = Jac_FULL(3598,4809) - JVS(16749) = B(2072)+B(2074)+B(2078) -! JVS(16750) = Jac_FULL(3598,5250) - JVS(16750) = 0 -! JVS(16751) = Jac_FULL(3598,5252) - JVS(16751) = B(2073) -! JVS(16752) = Jac_FULL(3598,5255) - JVS(16752) = 0 -! JVS(16753) = Jac_FULL(3598,5256) - JVS(16753) = B(2075) -! JVS(16754) = Jac_FULL(3599,292) - JVS(16754) = B(5502) -! JVS(16755) = Jac_FULL(3599,1276) - JVS(16755) = B(5491) -! JVS(16756) = Jac_FULL(3599,2317) - JVS(16756) = B(5494) -! JVS(16757) = Jac_FULL(3599,2605) - JVS(16757) = B(6025) -! JVS(16758) = Jac_FULL(3599,3599) - JVS(16758) = -B(5504)-B(5506)-B(5508)-B(5509) -! JVS(16759) = Jac_FULL(3599,4003) - JVS(16759) = B(2481) -! JVS(16760) = Jac_FULL(3599,4133) - JVS(16760) = 0 -! JVS(16761) = Jac_FULL(3599,5250) - JVS(16761) = B(5492)+B(5495)+B(5503)-B(5505)-B(5507)+B(6026) -! JVS(16762) = Jac_FULL(3599,5252) - JVS(16762) = 0 -! JVS(16763) = Jac_FULL(3599,5255) - JVS(16763) = 0 -! JVS(16764) = Jac_FULL(3600,374) - JVS(16764) = B(10296)+B(10298) -! JVS(16765) = Jac_FULL(3600,914) - JVS(16765) = B(10290) -! JVS(16766) = Jac_FULL(3600,3600) - JVS(16766) = -B(10291)-B(10292) -! JVS(16767) = Jac_FULL(3600,4335) - JVS(16767) = B(6564)+B(6568)+B(6570) -! JVS(16768) = Jac_FULL(3600,5250) - JVS(16768) = B(10297) -! JVS(16769) = Jac_FULL(3600,5252) - JVS(16769) = B(6565) -! JVS(16770) = Jac_FULL(3600,5255) - JVS(16770) = 0 -! JVS(16771) = Jac_FULL(3600,5256) - JVS(16771) = B(6569) -! JVS(16772) = Jac_FULL(3601,2345) - JVS(16772) = B(21616) -! JVS(16773) = Jac_FULL(3601,2486) - JVS(16773) = B(21625) -! JVS(16774) = Jac_FULL(3601,2966) - JVS(16774) = B(21619)+B(21621) -! JVS(16775) = Jac_FULL(3601,3490) - JVS(16775) = B(20514) -! JVS(16776) = Jac_FULL(3601,3601) - JVS(16776) = -B(21622)-B(21624) -! JVS(16777) = Jac_FULL(3601,3620) - JVS(16777) = 0 -! JVS(16778) = Jac_FULL(3601,4599) - JVS(16778) = 0 -! JVS(16779) = Jac_FULL(3601,5250) - JVS(16779) = B(21617)+B(21620)-B(21623)+B(21626) -! JVS(16780) = Jac_FULL(3601,5252) - JVS(16780) = 0 -! JVS(16781) = Jac_FULL(3601,5256) - JVS(16781) = 0 -! JVS(16782) = Jac_FULL(3602,498) - JVS(16782) = B(11461) -! JVS(16783) = Jac_FULL(3602,1142) - JVS(16783) = B(11455) -! JVS(16784) = Jac_FULL(3602,2074) - JVS(16784) = B(11458) -! JVS(16785) = Jac_FULL(3602,3602) - JVS(16785) = -B(11463)-B(11464) -! JVS(16786) = Jac_FULL(3602,4116) - JVS(16786) = B(23831) -! JVS(16787) = Jac_FULL(3602,4374) - JVS(16787) = B(7626) -! JVS(16788) = Jac_FULL(3602,5250) - JVS(16788) = B(11456)+B(11459)+B(11462)-B(11465) -! JVS(16789) = Jac_FULL(3602,5252) - JVS(16789) = 0 -! JVS(16790) = Jac_FULL(3602,5255) - JVS(16790) = 0 -! JVS(16791) = Jac_FULL(3603,2276) - JVS(16791) = B(4015) -! JVS(16792) = Jac_FULL(3603,3256) - JVS(16792) = B(4072) -! JVS(16793) = Jac_FULL(3603,3603) - JVS(16793) = -B(4078)-B(4080) -! JVS(16794) = Jac_FULL(3603,4554) - JVS(16794) = B(1278) -! JVS(16795) = Jac_FULL(3603,4585) - JVS(16795) = 0 -! JVS(16796) = Jac_FULL(3603,5250) - JVS(16796) = B(4016)+B(4073)-B(4079) -! JVS(16797) = Jac_FULL(3603,5252) - JVS(16797) = 0 -! JVS(16798) = Jac_FULL(3603,5255) - JVS(16798) = 0 -! JVS(16799) = Jac_FULL(3604,352) - JVS(16799) = B(24021) -! JVS(16800) = Jac_FULL(3604,1956) - JVS(16800) = B(24017) -! JVS(16801) = Jac_FULL(3604,2779) - JVS(16801) = B(24012) -! JVS(16802) = Jac_FULL(3604,3604) - JVS(16802) = -B(24023)-B(24025) -! JVS(16803) = Jac_FULL(3604,4686) - JVS(16803) = 0 -! JVS(16804) = Jac_FULL(3604,4687) - JVS(16804) = B(23990) -! JVS(16805) = Jac_FULL(3604,5250) - JVS(16805) = B(24013)+B(24018)+B(24022)-B(24024) -! JVS(16806) = Jac_FULL(3604,5253) - JVS(16806) = 0 -! JVS(16807) = Jac_FULL(3604,5255) - JVS(16807) = 0 -! JVS(16808) = Jac_FULL(3605,681) - JVS(16808) = B(9208) -! JVS(16809) = Jac_FULL(3605,1167) - JVS(16809) = B(9197) -! JVS(16810) = Jac_FULL(3605,3605) - JVS(16810) = -B(9201)-B(9202) -! JVS(16811) = Jac_FULL(3605,4699) - JVS(16811) = B(5619)+B(5621)+B(5624) -! JVS(16812) = Jac_FULL(3605,5250) - JVS(16812) = 0 -! JVS(16813) = Jac_FULL(3605,5252) - JVS(16813) = B(5620) -! JVS(16814) = Jac_FULL(3605,5255) - JVS(16814) = 0 -! JVS(16815) = Jac_FULL(3605,5256) - JVS(16815) = B(5622) -! JVS(16816) = Jac_FULL(3606,647) - JVS(16816) = B(9950) -! JVS(16817) = Jac_FULL(3606,1103) - JVS(16817) = B(9939) -! JVS(16818) = Jac_FULL(3606,3606) - JVS(16818) = -B(9943)-B(9944) -! JVS(16819) = Jac_FULL(3606,4575) - JVS(16819) = B(6231)+B(6233)+B(6236) -! JVS(16820) = Jac_FULL(3606,5250) - JVS(16820) = 0 -! JVS(16821) = Jac_FULL(3606,5252) - JVS(16821) = B(6232) -! JVS(16822) = Jac_FULL(3606,5255) - JVS(16822) = 0 -! JVS(16823) = Jac_FULL(3606,5256) - JVS(16823) = B(6234) -! JVS(16824) = Jac_FULL(3607,1313) - JVS(16824) = B(7223) -! JVS(16825) = Jac_FULL(3607,1673) - JVS(16825) = B(7234) -! JVS(16826) = Jac_FULL(3607,2215) - JVS(16826) = B(7226) -! JVS(16827) = Jac_FULL(3607,3066) - JVS(16827) = B(7230) -! JVS(16828) = Jac_FULL(3607,3607) - JVS(16828) = -B(7231)-B(7233) -! JVS(16829) = Jac_FULL(3607,5081) - JVS(16829) = B(3404) -! JVS(16830) = Jac_FULL(3607,5250) - JVS(16830) = B(7224)+B(7227)-B(7232)+B(7235) -! JVS(16831) = Jac_FULL(3607,5252) - JVS(16831) = 0 -! JVS(16832) = Jac_FULL(3607,5255) - JVS(16832) = 0 -! JVS(16833) = Jac_FULL(3607,5256) - JVS(16833) = 0 -! JVS(16834) = Jac_FULL(3608,3267) - JVS(16834) = B(21606)+B(21609) -! JVS(16835) = Jac_FULL(3608,3608) - JVS(16835) = -B(13574)-B(13576) -! JVS(16836) = Jac_FULL(3608,4341) - JVS(16836) = B(10397) -! JVS(16837) = Jac_FULL(3608,4565) - JVS(16837) = 0 -! JVS(16838) = Jac_FULL(3608,4578) - JVS(16838) = B(10389) -! JVS(16839) = Jac_FULL(3608,5250) - JVS(16839) = -B(13575)+B(21607) -! JVS(16840) = Jac_FULL(3608,5255) - JVS(16840) = 0 -! JVS(16841) = Jac_FULL(3609,999) - JVS(16841) = B(4427) -! JVS(16842) = Jac_FULL(3609,1596) - JVS(16842) = B(112) -! JVS(16843) = Jac_FULL(3609,2196) - JVS(16843) = B(4430) -! JVS(16844) = Jac_FULL(3609,3377) - JVS(16844) = B(4434) -! JVS(16845) = Jac_FULL(3609,3609) - JVS(16845) = -B(826)-B(828)-B(830) -! JVS(16846) = Jac_FULL(3609,4876) - JVS(16846) = B(1659) -! JVS(16847) = Jac_FULL(3609,5250) - JVS(16847) = B(113)-B(827)-B(829)+B(4428)+B(4431) -! JVS(16848) = Jac_FULL(3609,5252) - JVS(16848) = 0 -! JVS(16849) = Jac_FULL(3609,5255) - JVS(16849) = 0 -! JVS(16850) = Jac_FULL(3609,5256) - JVS(16850) = 0 -! JVS(16851) = Jac_FULL(3610,742) - JVS(16851) = B(10013) -! JVS(16852) = Jac_FULL(3610,1038) - JVS(16852) = B(10002) -! JVS(16853) = Jac_FULL(3610,3610) - JVS(16853) = -B(10006)-B(10007) -! JVS(16854) = Jac_FULL(3610,4725) - JVS(16854) = B(6306)+B(6308)+B(6311) -! JVS(16855) = Jac_FULL(3610,5250) - JVS(16855) = 0 -! JVS(16856) = Jac_FULL(3610,5252) - JVS(16856) = B(6307) -! JVS(16857) = Jac_FULL(3610,5255) - JVS(16857) = 0 -! JVS(16858) = Jac_FULL(3610,5256) - JVS(16858) = B(6309) -! JVS(16859) = Jac_FULL(3611,2475) - JVS(16859) = B(23362) -! JVS(16860) = Jac_FULL(3611,3495) - JVS(16860) = B(23358) -! JVS(16861) = Jac_FULL(3611,3611) - JVS(16861) = -B(23360)-B(23361) -! JVS(16862) = Jac_FULL(3611,4625) - JVS(16862) = B(22968)+B(22970)+B(22972) -! JVS(16863) = Jac_FULL(3611,5250) - JVS(16863) = B(23363) -! JVS(16864) = Jac_FULL(3611,5252) - JVS(16864) = B(22969) -! JVS(16865) = Jac_FULL(3611,5255) - JVS(16865) = 0 -! JVS(16866) = Jac_FULL(3611,5256) - JVS(16866) = B(22971) -! JVS(16867) = Jac_FULL(3612,2210) - JVS(16867) = B(22135) -! JVS(16868) = Jac_FULL(3612,2975) - JVS(16868) = B(22133) -! JVS(16869) = Jac_FULL(3612,3612) - JVS(16869) = -B(22758)-B(22760) -! JVS(16870) = Jac_FULL(3612,4648) - JVS(16870) = 0 -! JVS(16871) = Jac_FULL(3612,5250) - JVS(16871) = -B(22759) -! JVS(16872) = Jac_FULL(3612,5252) - JVS(16872) = 0 -! JVS(16873) = Jac_FULL(3612,5255) - JVS(16873) = 0 -! JVS(16874) = Jac_FULL(3612,5256) - JVS(16874) = 0 -! JVS(16875) = Jac_FULL(3613,1546) - JVS(16875) = B(23047) -! JVS(16876) = Jac_FULL(3613,2136) - JVS(16876) = B(23050) -! JVS(16877) = Jac_FULL(3613,3613) - JVS(16877) = -B(23051)-B(23052) -! JVS(16878) = Jac_FULL(3613,4442) - JVS(16878) = B(22612)+B(22614)+B(22617) -! JVS(16879) = Jac_FULL(3613,5250) - JVS(16879) = 0 -! JVS(16880) = Jac_FULL(3613,5252) - JVS(16880) = B(22613) -! JVS(16881) = Jac_FULL(3613,5255) - JVS(16881) = 0 -! JVS(16882) = Jac_FULL(3613,5256) - JVS(16882) = B(22615) -! JVS(16883) = Jac_FULL(3614,779) - JVS(16883) = B(9118) -! JVS(16884) = Jac_FULL(3614,1415) - JVS(16884) = B(9107) -! JVS(16885) = Jac_FULL(3614,3614) - JVS(16885) = -B(9111)-B(9112) -! JVS(16886) = Jac_FULL(3614,4718) - JVS(16886) = B(5533)+B(5535)+B(5538) -! JVS(16887) = Jac_FULL(3614,5250) - JVS(16887) = 0 -! JVS(16888) = Jac_FULL(3614,5252) - JVS(16888) = B(5534) -! JVS(16889) = Jac_FULL(3614,5255) - JVS(16889) = 0 -! JVS(16890) = Jac_FULL(3614,5256) - JVS(16890) = B(5536) -! JVS(16891) = Jac_FULL(3615,2483) - JVS(16891) = B(23843) -! JVS(16892) = Jac_FULL(3615,3480) - JVS(16892) = B(23838) -! JVS(16893) = Jac_FULL(3615,3615) - JVS(16893) = -B(23841)-B(23842) -! JVS(16894) = Jac_FULL(3615,4779) - JVS(16894) = B(23648)+B(23650)+B(23652) -! JVS(16895) = Jac_FULL(3615,5250) - JVS(16895) = B(23844) -! JVS(16896) = Jac_FULL(3615,5252) - JVS(16896) = B(23649) -! JVS(16897) = Jac_FULL(3615,5255) - JVS(16897) = 0 -! JVS(16898) = Jac_FULL(3615,5256) - JVS(16898) = B(23651) -! JVS(16899) = Jac_FULL(3616,586) - JVS(16899) = B(14129) -! JVS(16900) = Jac_FULL(3616,1337) - JVS(16900) = B(14119) -! JVS(16901) = Jac_FULL(3616,1705) - JVS(16901) = B(14145) -! JVS(16902) = Jac_FULL(3616,2123) - JVS(16902) = B(14122) -! JVS(16903) = Jac_FULL(3616,3616) - JVS(16903) = -B(14125)-B(14126) -! JVS(16904) = Jac_FULL(3616,4646) - JVS(16904) = B(10929) -! JVS(16905) = Jac_FULL(3616,4827) - JVS(16905) = 0 -! JVS(16906) = Jac_FULL(3616,5250) - JVS(16906) = B(14120)+B(14123)-B(14127)+B(14130)+B(14146) -! JVS(16907) = Jac_FULL(3616,5252) - JVS(16907) = 0 -! JVS(16908) = Jac_FULL(3616,5255) - JVS(16908) = 0 -! JVS(16909) = Jac_FULL(3617,580) - JVS(16909) = B(14637) -! JVS(16910) = Jac_FULL(3617,1993) - JVS(16910) = B(14631) -! JVS(16911) = Jac_FULL(3617,2254) - JVS(16911) = B(14634) -! JVS(16912) = Jac_FULL(3617,3037) - JVS(16912) = B(14636) -! JVS(16913) = Jac_FULL(3617,3617) - JVS(16913) = -B(11308) -! JVS(16914) = Jac_FULL(3617,3646) - JVS(16914) = B(7499) -! JVS(16915) = Jac_FULL(3617,4541) - JVS(16915) = 0 -! JVS(16916) = Jac_FULL(3617,4678) - JVS(16916) = B(14809) -! JVS(16917) = Jac_FULL(3617,4691) - JVS(16917) = B(14799) -! JVS(16918) = Jac_FULL(3617,4869) - JVS(16918) = B(11310)+B(11312)+B(11314)+B(11316)+B(11318) -! JVS(16919) = Jac_FULL(3617,5250) - JVS(16919) = -B(11309)+B(14632)+B(14635)+B(14638) -! JVS(16920) = Jac_FULL(3617,5251) - JVS(16920) = B(11311) -! JVS(16921) = Jac_FULL(3617,5252) - JVS(16921) = B(11313) -! JVS(16922) = Jac_FULL(3617,5253) - JVS(16922) = B(11315) -! JVS(16923) = Jac_FULL(3617,5254) - JVS(16923) = B(11317) -! JVS(16924) = Jac_FULL(3617,5255) - JVS(16924) = 0 -! JVS(16925) = Jac_FULL(3617,5256) - JVS(16925) = 0 -! JVS(16926) = Jac_FULL(3617,5258) - JVS(16926) = B(7500) -! JVS(16927) = Jac_FULL(3618,3618) - JVS(16927) = -B(18800)-B(18802)-B(18803)-B(18804) -! JVS(16928) = Jac_FULL(3618,4982) - JVS(16928) = B(16614) -! JVS(16929) = Jac_FULL(3618,5250) - JVS(16929) = -B(18801) -! JVS(16930) = Jac_FULL(3618,5255) - JVS(16930) = B(16615) -! JVS(16931) = Jac_FULL(3619,471) - JVS(16931) = B(13987) -! JVS(16932) = Jac_FULL(3619,1449) - JVS(16932) = B(13980) -! JVS(16933) = Jac_FULL(3619,1864) - JVS(16933) = B(13983) -! JVS(16934) = Jac_FULL(3619,1865) - JVS(16934) = B(13986) -! JVS(16935) = Jac_FULL(3619,2076) - JVS(16935) = B(6965) -! JVS(16936) = Jac_FULL(3619,2757) - JVS(16936) = B(14012) -! JVS(16937) = Jac_FULL(3619,2954) - JVS(16937) = B(13992) -! JVS(16938) = Jac_FULL(3619,3619) - JVS(16938) = -B(10764)-B(10766) -! JVS(16939) = Jac_FULL(3619,4219) - JVS(16939) = B(10768)+B(10778) -! JVS(16940) = Jac_FULL(3619,4368) - JVS(16940) = 0 -! JVS(16941) = Jac_FULL(3619,4611) - JVS(16941) = 0 -! JVS(16942) = Jac_FULL(3619,4616) - JVS(16942) = 0 -! JVS(16943) = Jac_FULL(3619,5250) - JVS(16943) = -B(10765)-B(10767)+B(13981)+B(13984)+B(13988)+B(14013) -! JVS(16944) = Jac_FULL(3619,5252) - JVS(16944) = 0 -! JVS(16945) = Jac_FULL(3619,5253) - JVS(16945) = 0 -! JVS(16946) = Jac_FULL(3619,5255) - JVS(16946) = B(10769) -! JVS(16947) = Jac_FULL(3619,5256) - JVS(16947) = 0 -! JVS(16948) = Jac_FULL(3620,3620) - JVS(16948) = -B(20507)-B(20509)-B(20511) -! JVS(16949) = Jac_FULL(3620,4599) - JVS(16949) = B(18910) -! JVS(16950) = Jac_FULL(3620,5250) - JVS(16950) = -B(20508)-B(20510) -! JVS(16951) = Jac_FULL(3620,5255) - JVS(16951) = B(18911) -! JVS(16952) = Jac_FULL(3621,3621) - JVS(16952) = -B(16702)-B(16704)-B(16706)-B(16708) -! JVS(16953) = Jac_FULL(3621,5091) - JVS(16953) = B(13899) -! JVS(16954) = Jac_FULL(3621,5250) - JVS(16954) = -B(16703)-B(16705)-B(16707) -! JVS(16955) = Jac_FULL(3621,5255) - JVS(16955) = B(13900) -! JVS(16956) = Jac_FULL(3622,3179) - JVS(16956) = B(677) -! JVS(16957) = Jac_FULL(3622,3622) - JVS(16957) = -B(2712)-B(2714)-B(2716)-B(2717) -! JVS(16958) = Jac_FULL(3622,5250) - JVS(16958) = B(678)-B(2715) -! JVS(16959) = Jac_FULL(3622,5256) - JVS(16959) = 0 -! JVS(16960) = Jac_FULL(3622,5258) - JVS(16960) = -B(2713) -! JVS(16961) = Jac_FULL(3623,3623) - JVS(16961) = -B(3934)-B(3936)-B(3938)-B(3939) -! JVS(16962) = Jac_FULL(3623,4780) - JVS(16962) = B(1172) -! JVS(16963) = Jac_FULL(3623,5250) - JVS(16963) = -B(3935)-B(3937) -! JVS(16964) = Jac_FULL(3623,5255) - JVS(16964) = B(1173) -! JVS(16965) = Jac_FULL(3624,3624) - JVS(16965) = -B(9885)-B(9887)-B(9888)-B(9889) -! JVS(16966) = Jac_FULL(3624,4935) - JVS(16966) = B(6173) -! JVS(16967) = Jac_FULL(3624,5250) - JVS(16967) = -B(9886) -! JVS(16968) = Jac_FULL(3624,5255) - JVS(16968) = B(6174) -! JVS(16969) = Jac_FULL(3625,3625) - JVS(16969) = -B(16575)-B(16577)-B(16579)-B(16581) -! JVS(16970) = Jac_FULL(3625,5074) - JVS(16970) = B(13731) -! JVS(16971) = Jac_FULL(3625,5250) - JVS(16971) = -B(16576)-B(16578)-B(16580) -! JVS(16972) = Jac_FULL(3625,5255) - JVS(16972) = B(13732) -! JVS(16973) = Jac_FULL(3626,319) - JVS(16973) = B(13921) -! JVS(16974) = Jac_FULL(3626,2156) - JVS(16974) = B(13913) -! JVS(16975) = Jac_FULL(3626,2461) - JVS(16975) = B(13916) -! JVS(16976) = Jac_FULL(3626,2507) - JVS(16976) = B(22286) -! JVS(16977) = Jac_FULL(3626,2517) - JVS(16977) = B(21633) -! JVS(16978) = Jac_FULL(3626,3071) - JVS(16978) = B(22293) -! JVS(16979) = Jac_FULL(3626,3257) - JVS(16979) = B(22287) -! JVS(16980) = Jac_FULL(3626,3344) - JVS(16980) = B(13919) -! JVS(16981) = Jac_FULL(3626,3626) - JVS(16981) = -B(13923) -! JVS(16982) = Jac_FULL(3626,4060) - JVS(16982) = B(10730) -! JVS(16983) = Jac_FULL(3626,4222) - JVS(16983) = 0 -! JVS(16984) = Jac_FULL(3626,4751) - JVS(16984) = 0 -! JVS(16985) = Jac_FULL(3626,4831) - JVS(16985) = B(21536)+B(21538)+B(21542)+B(21544) -! JVS(16986) = Jac_FULL(3626,5250) - JVS(16986) = B(13914)+B(13917)+B(13922)-B(13924)+B(21634)+B(22288) -! JVS(16987) = Jac_FULL(3626,5252) - JVS(16987) = B(21539) -! JVS(16988) = Jac_FULL(3626,5253) - JVS(16988) = 0 -! JVS(16989) = Jac_FULL(3626,5255) - JVS(16989) = B(21537) -! JVS(16990) = Jac_FULL(3626,5256) - JVS(16990) = B(21543) -! JVS(16991) = Jac_FULL(3627,884) - JVS(16991) = B(9636) -! JVS(16992) = Jac_FULL(3627,3180) - JVS(16992) = B(2693)+B(2699) -! JVS(16993) = Jac_FULL(3627,3627) - JVS(16993) = -B(5959)-B(5961)-B(5963)-B(5965)-B(5966) -! JVS(16994) = Jac_FULL(3627,5250) - JVS(16994) = B(2700)+B(9637) -! JVS(16995) = Jac_FULL(3627,5252) - JVS(16995) = -B(5962) -! JVS(16996) = Jac_FULL(3627,5255) - JVS(16996) = -B(5960) -! JVS(16997) = Jac_FULL(3627,5256) - JVS(16997) = B(2694)-B(5964) -! JVS(16998) = Jac_FULL(3628,463) - JVS(16998) = B(13615) -! JVS(16999) = Jac_FULL(3628,2147) - JVS(16999) = B(13601) -! JVS(17000) = Jac_FULL(3628,3628) - JVS(17000) = -B(13612)-B(13613) -! JVS(17001) = Jac_FULL(3628,3835) - JVS(17001) = B(13605) -! JVS(17002) = Jac_FULL(3628,5015) - JVS(17002) = B(10423) -! JVS(17003) = Jac_FULL(3628,5250) - JVS(17003) = B(13602)+B(13606)-B(13614)+B(13616) -! JVS(17004) = Jac_FULL(3628,5255) - JVS(17004) = 0 -! JVS(17005) = Jac_FULL(3629,1318) - JVS(17005) = B(17134) -! JVS(17006) = Jac_FULL(3629,2947) - JVS(17006) = B(17127) -! JVS(17007) = Jac_FULL(3629,3390) - JVS(17007) = B(17137) -! JVS(17008) = Jac_FULL(3629,3629) - JVS(17008) = -B(19375)-B(19377) -! JVS(17009) = Jac_FULL(3629,4781) - JVS(17009) = 0 -! JVS(17010) = Jac_FULL(3629,4891) - JVS(17010) = 0 -! JVS(17011) = Jac_FULL(3629,5250) - JVS(17011) = B(17128)+B(17135)-B(19376) -! JVS(17012) = Jac_FULL(3629,5252) - JVS(17012) = 0 -! JVS(17013) = Jac_FULL(3629,5253) - JVS(17013) = 0 -! JVS(17014) = Jac_FULL(3629,5255) - JVS(17014) = 0 -! JVS(17015) = Jac_FULL(3629,5256) - JVS(17015) = 0 -! JVS(17016) = Jac_FULL(3630,3630) - JVS(17016) = -B(10440)-B(10441) -! JVS(17017) = Jac_FULL(3630,4805) - JVS(17017) = B(13677) -! JVS(17018) = Jac_FULL(3630,5002) - JVS(17018) = B(10582) -! JVS(17019) = Jac_FULL(3630,5069) - JVS(17019) = B(6711) -! JVS(17020) = Jac_FULL(3630,5076) - JVS(17020) = B(8917) -! JVS(17021) = Jac_FULL(3630,5205) - JVS(17021) = B(10529) -! JVS(17022) = Jac_FULL(3630,5209) - JVS(17022) = B(8811) -! JVS(17023) = Jac_FULL(3630,5258) - JVS(17023) = B(6712)+B(8812)+B(8918)+B(10530)+B(10583)+B(13678) -! JVS(17024) = Jac_FULL(3631,3244) - JVS(17024) = B(2943) -! JVS(17025) = Jac_FULL(3631,3295) - JVS(17025) = B(10189) -! JVS(17026) = Jac_FULL(3631,3631) - JVS(17026) = -B(6483)-B(6485)-B(6487)-B(6489)-B(6490) -! JVS(17027) = Jac_FULL(3631,5250) - JVS(17027) = B(10190) -! JVS(17028) = Jac_FULL(3631,5252) - JVS(17028) = -B(6486) -! JVS(17029) = Jac_FULL(3631,5255) - JVS(17029) = -B(6484) -! JVS(17030) = Jac_FULL(3631,5256) - JVS(17030) = B(2944)-B(6488) -! JVS(17031) = Jac_FULL(3632,982) - JVS(17031) = B(10197) -! JVS(17032) = Jac_FULL(3632,3244) - JVS(17032) = B(2947) -! JVS(17033) = Jac_FULL(3632,3632) - JVS(17033) = -B(6491)-B(6493)-B(6495)-B(6497)-B(6498) -! JVS(17034) = Jac_FULL(3632,5250) - JVS(17034) = B(2948)+B(10198) -! JVS(17035) = Jac_FULL(3632,5252) - JVS(17035) = -B(6494) -! JVS(17036) = Jac_FULL(3632,5255) - JVS(17036) = -B(6492) -! JVS(17037) = Jac_FULL(3632,5256) - JVS(17037) = -B(6496) -! JVS(17038) = Jac_FULL(3633,2680) - JVS(17038) = B(23904) -! JVS(17039) = Jac_FULL(3633,3633) - JVS(17039) = -B(23966)-B(23968)-B(23970) -! JVS(17040) = Jac_FULL(3633,4820) - JVS(17040) = 0 -! JVS(17041) = Jac_FULL(3633,5250) - JVS(17041) = B(23905)-B(23969) -! JVS(17042) = Jac_FULL(3633,5255) - JVS(17042) = 0 -! JVS(17043) = Jac_FULL(3633,5256) - JVS(17043) = -B(23967) -! JVS(17044) = Jac_FULL(3634,3634) - JVS(17044) = -B(3088)-B(3090)-B(3092)-B(3094)-B(3096)-B(3097)-B(3098) -! JVS(17045) = Jac_FULL(3634,5166) - JVS(17045) = B(777) -! JVS(17046) = Jac_FULL(3634,5252) - JVS(17046) = -B(3091)-B(3093) -! JVS(17047) = Jac_FULL(3634,5255) - JVS(17047) = -B(3089) -! JVS(17048) = Jac_FULL(3634,5256) - JVS(17048) = B(778)-B(3095) -! JVS(17049) = Jac_FULL(3635,2101) - JVS(17049) = B(16592) -! JVS(17050) = Jac_FULL(3635,3625) - JVS(17050) = B(16575) -! JVS(17051) = Jac_FULL(3635,3635) - JVS(17051) = -B(16587)-B(16589) -! JVS(17052) = Jac_FULL(3635,5074) - JVS(17052) = B(13739) -! JVS(17053) = Jac_FULL(3635,5154) - JVS(17053) = 0 -! JVS(17054) = Jac_FULL(3635,5250) - JVS(17054) = B(16576)-B(16588)+B(16593) -! JVS(17055) = Jac_FULL(3635,5255) - JVS(17055) = 0 -! JVS(17056) = Jac_FULL(3636,3636) - JVS(17056) = -B(3028)-B(3030)-B(3032)-B(3034)-B(3035)-B(3036) -! JVS(17057) = Jac_FULL(3636,5153) - JVS(17057) = B(763) -! JVS(17058) = Jac_FULL(3636,5252) - JVS(17058) = -B(3031) -! JVS(17059) = Jac_FULL(3636,5255) - JVS(17059) = -B(3029) -! JVS(17060) = Jac_FULL(3636,5256) - JVS(17060) = B(764)-B(3033) -! JVS(17061) = Jac_FULL(3637,668) - JVS(17061) = B(801)+B(803) -! JVS(17062) = Jac_FULL(3637,3637) - JVS(17062) = -B(3159)-B(3161)-B(3163)-B(3165)-B(3167)-B(3169)-B(3170)-B(3171) -! JVS(17063) = Jac_FULL(3637,5250) - JVS(17063) = B(804) -! JVS(17064) = Jac_FULL(3637,5252) - JVS(17064) = -B(3164)-B(3166) -! JVS(17065) = Jac_FULL(3637,5255) - JVS(17065) = -B(3160)-B(3162) -! JVS(17066) = Jac_FULL(3637,5256) - JVS(17066) = B(802)-B(3168) -! JVS(17067) = Jac_FULL(3638,536) - JVS(17067) = B(14663) -! JVS(17068) = Jac_FULL(3638,1569) - JVS(17068) = B(14816) -! JVS(17069) = Jac_FULL(3638,1758) - JVS(17069) = B(14657) -! JVS(17070) = Jac_FULL(3638,2347) - JVS(17070) = B(14660) -! JVS(17071) = Jac_FULL(3638,2744) - JVS(17071) = B(14662) -! JVS(17072) = Jac_FULL(3638,3638) - JVS(17072) = -B(11329) -! JVS(17073) = Jac_FULL(3638,3990) - JVS(17073) = 0 -! JVS(17074) = Jac_FULL(3638,4526) - JVS(17074) = B(14648)+B(14650)+B(14652)+B(14654)+B(14656) -! JVS(17075) = Jac_FULL(3638,4678) - JVS(17075) = B(14810) -! JVS(17076) = Jac_FULL(3638,4921) - JVS(17076) = B(14571)+B(14583) -! JVS(17077) = Jac_FULL(3638,4970) - JVS(17077) = B(7505) -! JVS(17078) = Jac_FULL(3638,5249) - JVS(17078) = 0 -! JVS(17079) = Jac_FULL(3638,5250) - JVS(17079) = -B(11330)+B(14658)+B(14661)+B(14664) -! JVS(17080) = Jac_FULL(3638,5251) - JVS(17080) = B(14649) -! JVS(17081) = Jac_FULL(3638,5252) - JVS(17081) = B(14651) -! JVS(17082) = Jac_FULL(3638,5253) - JVS(17082) = B(14653) -! JVS(17083) = Jac_FULL(3638,5254) - JVS(17083) = B(14655) -! JVS(17084) = Jac_FULL(3638,5255) - JVS(17084) = B(14572) -! JVS(17085) = Jac_FULL(3638,5256) - JVS(17085) = 0 -! JVS(17086) = Jac_FULL(3638,5258) - JVS(17086) = B(7506) -! JVS(17087) = Jac_FULL(3639,559) - JVS(17087) = B(23802) -! JVS(17088) = Jac_FULL(3639,725) - JVS(17088) = B(23619) -! JVS(17089) = Jac_FULL(3639,1130) - JVS(17089) = B(23612) -! JVS(17090) = Jac_FULL(3639,1538) - JVS(17090) = B(23798) -! JVS(17091) = Jac_FULL(3639,2756) - JVS(17091) = B(23591) -! JVS(17092) = Jac_FULL(3639,2980) - JVS(17092) = B(23600) -! JVS(17093) = Jac_FULL(3639,3639) - JVS(17093) = -B(23616)-B(23618) -! JVS(17094) = Jac_FULL(3639,4346) - JVS(17094) = B(23588) -! JVS(17095) = Jac_FULL(3639,4459) - JVS(17095) = B(23332) -! JVS(17096) = Jac_FULL(3639,4653) - JVS(17096) = 0 -! JVS(17097) = Jac_FULL(3639,4854) - JVS(17097) = 0 -! JVS(17098) = Jac_FULL(3639,5250) - JVS(17098) = B(23592)+B(23601)+B(23613)-B(23617)+B(23620)+B(23799)+B(23803) -! JVS(17099) = Jac_FULL(3639,5253) - JVS(17099) = 0 -! JVS(17100) = Jac_FULL(3639,5255) - JVS(17100) = 0 -! JVS(17101) = Jac_FULL(3640,332) - JVS(17101) = B(5489) -! JVS(17102) = Jac_FULL(3640,1484) - JVS(17102) = B(5476) -! JVS(17103) = Jac_FULL(3640,1819) - JVS(17103) = B(5479) -! JVS(17104) = Jac_FULL(3640,1820) - JVS(17104) = B(5482) -! JVS(17105) = Jac_FULL(3640,3509) - JVS(17105) = B(2468) -! JVS(17106) = Jac_FULL(3640,3640) - JVS(17106) = -B(5483)-B(5485)-B(5487)-B(5488) -! JVS(17107) = Jac_FULL(3640,5250) - JVS(17107) = B(5477)+B(5480)-B(5486)+B(5490) -! JVS(17108) = Jac_FULL(3640,5252) - JVS(17108) = 0 -! JVS(17109) = Jac_FULL(3640,5255) - JVS(17109) = 0 -! JVS(17110) = Jac_FULL(3640,5256) - JVS(17110) = -B(5484) -! JVS(17111) = Jac_FULL(3641,2585) - JVS(17111) = B(9830) -! JVS(17112) = Jac_FULL(3641,3263) - JVS(17112) = B(2783) -! JVS(17113) = Jac_FULL(3641,3641) - JVS(17113) = -B(6123)-B(6125)-B(6127)-B(6129)-B(6130) -! JVS(17114) = Jac_FULL(3641,5250) - JVS(17114) = B(9831) -! JVS(17115) = Jac_FULL(3641,5252) - JVS(17115) = -B(6126) -! JVS(17116) = Jac_FULL(3641,5255) - JVS(17116) = -B(6124) -! JVS(17117) = Jac_FULL(3641,5256) - JVS(17117) = B(2784)-B(6128) -! JVS(17118) = Jac_FULL(3642,390) - JVS(17118) = B(23673) -! JVS(17119) = Jac_FULL(3642,1439) - JVS(17119) = B(23662) -! JVS(17120) = Jac_FULL(3642,1786) - JVS(17120) = B(23665) -! JVS(17121) = Jac_FULL(3642,2637) - JVS(17121) = B(23405) -! JVS(17122) = Jac_FULL(3642,3430) - JVS(17122) = B(23668) -! JVS(17123) = Jac_FULL(3642,3642) - JVS(17123) = -B(23670)-B(23672) -! JVS(17124) = Jac_FULL(3642,4342) - JVS(17124) = B(23402) -! JVS(17125) = Jac_FULL(3642,5027) - JVS(17125) = 0 -! JVS(17126) = Jac_FULL(3642,5250) - JVS(17126) = B(23406)+B(23663)+B(23666)-B(23671)+B(23674) -! JVS(17127) = Jac_FULL(3642,5252) - JVS(17127) = 0 -! JVS(17128) = Jac_FULL(3642,5253) - JVS(17128) = 0 -! JVS(17129) = Jac_FULL(3642,5255) - JVS(17129) = 0 -! JVS(17130) = Jac_FULL(3642,5256) - JVS(17130) = 0 -! JVS(17131) = Jac_FULL(3643,225) - JVS(17131) = B(5396) -! JVS(17132) = Jac_FULL(3643,1287) - JVS(17132) = B(5383) -! JVS(17133) = Jac_FULL(3643,2014) - JVS(17133) = B(5386) -! JVS(17134) = Jac_FULL(3643,2015) - JVS(17134) = B(5389) -! JVS(17135) = Jac_FULL(3643,3523) - JVS(17135) = B(2425) -! JVS(17136) = Jac_FULL(3643,3643) - JVS(17136) = -B(5390)-B(5392)-B(5394)-B(5395) -! JVS(17137) = Jac_FULL(3643,5250) - JVS(17137) = B(5384)+B(5387)-B(5393)+B(5397) -! JVS(17138) = Jac_FULL(3643,5252) - JVS(17138) = 0 -! JVS(17139) = Jac_FULL(3643,5255) - JVS(17139) = 0 -! JVS(17140) = Jac_FULL(3643,5256) - JVS(17140) = -B(5391) -! JVS(17141) = Jac_FULL(3644,1570) - JVS(17141) = B(12394) -! JVS(17142) = Jac_FULL(3644,2725) - JVS(17142) = B(21296) -! JVS(17143) = Jac_FULL(3644,2911) - JVS(17143) = B(21295) -! JVS(17144) = Jac_FULL(3644,3446) - JVS(17144) = B(12384) -! JVS(17145) = Jac_FULL(3644,3644) - JVS(17145) = -B(12391)-B(12393) -! JVS(17146) = Jac_FULL(3644,4308) - JVS(17146) = B(19895)+B(19897)+B(19901)+B(19903) -! JVS(17147) = Jac_FULL(3644,4358) - JVS(17147) = B(8747) -! JVS(17148) = Jac_FULL(3644,5250) - JVS(17148) = B(12385)-B(12392)+B(12395)+B(21297) -! JVS(17149) = Jac_FULL(3644,5252) - JVS(17149) = B(19898) -! JVS(17150) = Jac_FULL(3644,5253) - JVS(17150) = 0 -! JVS(17151) = Jac_FULL(3644,5255) - JVS(17151) = B(19896) -! JVS(17152) = Jac_FULL(3644,5256) - JVS(17152) = B(19902) -! JVS(17153) = Jac_FULL(3645,431) - JVS(17153) = B(6108) -! JVS(17154) = Jac_FULL(3645,1385) - JVS(17154) = B(6095) -! JVS(17155) = Jac_FULL(3645,1903) - JVS(17155) = B(6101) -! JVS(17156) = Jac_FULL(3645,2232) - JVS(17156) = B(6098) -! JVS(17157) = Jac_FULL(3645,3492) - JVS(17157) = B(2769) -! JVS(17158) = Jac_FULL(3645,3645) - JVS(17158) = -B(6102)-B(6104)-B(6106)-B(6107) -! JVS(17159) = Jac_FULL(3645,5250) - JVS(17159) = B(6096)+B(6099)-B(6105)+B(6109) -! JVS(17160) = Jac_FULL(3645,5252) - JVS(17160) = 0 -! JVS(17161) = Jac_FULL(3645,5255) - JVS(17161) = 0 -! JVS(17162) = Jac_FULL(3645,5256) - JVS(17162) = -B(6103) -! JVS(17163) = Jac_FULL(3646,3646) - JVS(17163) = -B(7499)-B(7501)-B(7503) -! JVS(17164) = Jac_FULL(3646,5048) - JVS(17164) = B(3581) -! JVS(17165) = Jac_FULL(3646,5092) - JVS(17165) = B(3590) -! JVS(17166) = Jac_FULL(3646,5250) - JVS(17166) = -B(7504) -! JVS(17167) = Jac_FULL(3646,5258) - JVS(17167) = -B(7500)-B(7502) -! JVS(17168) = Jac_FULL(3647,3647) - JVS(17168) = -B(12458)-B(12459) -! JVS(17169) = Jac_FULL(3647,4570) - JVS(17169) = B(13778) -! JVS(17170) = Jac_FULL(3647,4976) - JVS(17170) = B(10513) -! JVS(17171) = Jac_FULL(3647,5089) - JVS(17171) = B(9043) -! JVS(17172) = Jac_FULL(3647,5141) - JVS(17172) = B(10143) -! JVS(17173) = Jac_FULL(3647,5209) - JVS(17173) = B(8809) -! JVS(17174) = Jac_FULL(3647,5220) - JVS(17174) = B(10598) -! JVS(17175) = Jac_FULL(3647,5258) - JVS(17175) = B(8810)+B(9044)+B(10144)+B(10514)+B(10599)+B(13779) -! JVS(17176) = Jac_FULL(3648,1218) - JVS(17176) = B(9838) -! JVS(17177) = Jac_FULL(3648,3263) - JVS(17177) = B(2789) -! JVS(17178) = Jac_FULL(3648,3648) - JVS(17178) = -B(6133)-B(6135)-B(6137)-B(6139)-B(6140) -! JVS(17179) = Jac_FULL(3648,5250) - JVS(17179) = B(2790)+B(9839) -! JVS(17180) = Jac_FULL(3648,5252) - JVS(17180) = -B(6136) -! JVS(17181) = Jac_FULL(3648,5255) - JVS(17181) = -B(6134) -! JVS(17182) = Jac_FULL(3648,5256) - JVS(17182) = -B(6138) -! JVS(17183) = Jac_FULL(3649,277) - JVS(17183) = B(5667) -! JVS(17184) = Jac_FULL(3649,966) - JVS(17184) = B(5660) -! JVS(17185) = Jac_FULL(3649,1796) - JVS(17185) = B(5663) -! JVS(17186) = Jac_FULL(3649,2302) - JVS(17186) = B(5664) -! JVS(17187) = Jac_FULL(3649,3481) - JVS(17187) = B(2557) -! JVS(17188) = Jac_FULL(3649,3649) - JVS(17188) = -B(5669)-B(5671)-B(5673) -! JVS(17189) = Jac_FULL(3649,5250) - JVS(17189) = B(5661)+B(5665)+B(5668)-B(5672) -! JVS(17190) = Jac_FULL(3649,5252) - JVS(17190) = 0 -! JVS(17191) = Jac_FULL(3649,5255) - JVS(17191) = 0 -! JVS(17192) = Jac_FULL(3649,5256) - JVS(17192) = -B(5670) -! JVS(17193) = Jac_FULL(3650,1396) - JVS(17193) = B(10231) -! JVS(17194) = Jac_FULL(3650,3219) - JVS(17194) = B(2964) -! JVS(17195) = Jac_FULL(3650,3650) - JVS(17195) = -B(6521)-B(6523)-B(6525)-B(6527)-B(6528) -! JVS(17196) = Jac_FULL(3650,5250) - JVS(17196) = B(2965)+B(10232) -! JVS(17197) = Jac_FULL(3650,5252) - JVS(17197) = -B(6524) -! JVS(17198) = Jac_FULL(3650,5255) - JVS(17198) = -B(6522) -! JVS(17199) = Jac_FULL(3650,5256) - JVS(17199) = -B(6526) -! JVS(17200) = Jac_FULL(3651,2042) - JVS(17200) = B(2102) -! JVS(17201) = Jac_FULL(3651,2212) - JVS(17201) = B(2197) -! JVS(17202) = Jac_FULL(3651,3202) - JVS(17202) = B(2296) -! JVS(17203) = Jac_FULL(3651,3651) - JVS(17203) = -B(267)-B(269)-B(271)-B(273) -! JVS(17204) = Jac_FULL(3651,4508) - JVS(17204) = 0 -! JVS(17205) = Jac_FULL(3651,4604) - JVS(17205) = 0 -! JVS(17206) = Jac_FULL(3651,4606) - JVS(17206) = 0 -! JVS(17207) = Jac_FULL(3651,5190) - JVS(17207) = 0 -! JVS(17208) = Jac_FULL(3651,5238) - JVS(17208) = -B(268)-B(270) -! JVS(17209) = Jac_FULL(3651,5250) - JVS(17209) = -B(272)-B(274) -! JVS(17210) = Jac_FULL(3651,5258) - JVS(17210) = 0 -! JVS(17211) = Jac_FULL(3652,642) - JVS(17211) = B(4266) -! JVS(17212) = Jac_FULL(3652,3448) - JVS(17212) = B(4268) -! JVS(17213) = Jac_FULL(3652,3652) - JVS(17213) = -B(1493)-B(1494) -! JVS(17214) = Jac_FULL(3652,4906) - JVS(17214) = 0 -! JVS(17215) = Jac_FULL(3652,5128) - JVS(17215) = B(1495)+B(1501)+B(1505)+B(1507) -! JVS(17216) = Jac_FULL(3652,5226) - JVS(17216) = B(228) -! JVS(17217) = Jac_FULL(3652,5250) - JVS(17217) = B(4267) -! JVS(17218) = Jac_FULL(3652,5252) - JVS(17218) = B(1502) -! JVS(17219) = Jac_FULL(3652,5255) - JVS(17219) = B(1496) -! JVS(17220) = Jac_FULL(3652,5256) - JVS(17220) = B(1506) -! JVS(17221) = Jac_FULL(3653,278) - JVS(17221) = B(3929) -! JVS(17222) = Jac_FULL(3653,1400) - JVS(17222) = B(3927) -! JVS(17223) = Jac_FULL(3653,3018) - JVS(17223) = B(3923) -! JVS(17224) = Jac_FULL(3653,3653) - JVS(17224) = -B(3931)-B(3933) -! JVS(17225) = Jac_FULL(3653,4814) - JVS(17225) = B(1171) -! JVS(17226) = Jac_FULL(3653,5250) - JVS(17226) = B(3924)+B(3928)+B(3930)-B(3932) -! JVS(17227) = Jac_FULL(3653,5252) - JVS(17227) = 0 -! JVS(17228) = Jac_FULL(3653,5255) - JVS(17228) = 0 -! JVS(17229) = Jac_FULL(3654,3654) - JVS(17229) = -B(4340)-B(4342)-B(4344) -! JVS(17230) = Jac_FULL(3654,4922) - JVS(17230) = B(1564) -! JVS(17231) = Jac_FULL(3654,5250) - JVS(17231) = -B(4343) -! JVS(17232) = Jac_FULL(3654,5255) - JVS(17232) = B(1565) -! JVS(17233) = Jac_FULL(3654,5256) - JVS(17233) = -B(4341) -! JVS(17234) = Jac_FULL(3655,480) - JVS(17234) = B(6020) -! JVS(17235) = Jac_FULL(3655,1458) - JVS(17235) = B(6007) -! JVS(17236) = Jac_FULL(3655,1772) - JVS(17236) = B(6010) -! JVS(17237) = Jac_FULL(3655,1773) - JVS(17237) = B(6013) -! JVS(17238) = Jac_FULL(3655,3525) - JVS(17238) = B(2726) -! JVS(17239) = Jac_FULL(3655,3655) - JVS(17239) = -B(6014)-B(6016)-B(6018)-B(6019) -! JVS(17240) = Jac_FULL(3655,5250) - JVS(17240) = B(6008)+B(6011)-B(6017)+B(6021) -! JVS(17241) = Jac_FULL(3655,5252) - JVS(17241) = 0 -! JVS(17242) = Jac_FULL(3655,5255) - JVS(17242) = 0 -! JVS(17243) = Jac_FULL(3655,5256) - JVS(17243) = -B(6015) -! JVS(17244) = Jac_FULL(3656,1035) - JVS(17244) = B(3770) -! JVS(17245) = Jac_FULL(3656,2447) - JVS(17245) = B(4992) -! JVS(17246) = Jac_FULL(3656,3266) - JVS(17246) = B(4994) -! JVS(17247) = Jac_FULL(3656,3656) - JVS(17247) = -B(5000)-B(5002) -! JVS(17248) = Jac_FULL(3656,4476) - JVS(17248) = B(2158) -! JVS(17249) = Jac_FULL(3656,4767) - JVS(17249) = 0 -! JVS(17250) = Jac_FULL(3656,4782) - JVS(17250) = 0 -! JVS(17251) = Jac_FULL(3656,4852) - JVS(17251) = B(3264) -! JVS(17252) = Jac_FULL(3656,5250) - JVS(17252) = B(3771)+B(4993)+B(4995)-B(5001) -! JVS(17253) = Jac_FULL(3656,5252) - JVS(17253) = 0 -! JVS(17254) = Jac_FULL(3656,5255) - JVS(17254) = 0 -! JVS(17255) = Jac_FULL(3657,262) - JVS(17255) = B(5588) -! JVS(17256) = Jac_FULL(3657,922) - JVS(17256) = B(5575) -! JVS(17257) = Jac_FULL(3657,1821) - JVS(17257) = B(5581) -! JVS(17258) = Jac_FULL(3657,2309) - JVS(17258) = B(5578) -! JVS(17259) = Jac_FULL(3657,3507) - JVS(17259) = B(2512) -! JVS(17260) = Jac_FULL(3657,3657) - JVS(17260) = -B(5582)-B(5584)-B(5586)-B(5587) -! JVS(17261) = Jac_FULL(3657,5250) - JVS(17261) = B(5576)+B(5579)-B(5585)+B(5589) -! JVS(17262) = Jac_FULL(3657,5252) - JVS(17262) = 0 -! JVS(17263) = Jac_FULL(3657,5255) - JVS(17263) = 0 -! JVS(17264) = Jac_FULL(3657,5256) - JVS(17264) = -B(5583) -! JVS(17265) = Jac_FULL(3658,3658) - JVS(17265) = -B(3037)-B(3039)-B(3041)-B(3043)-B(3045)-B(3046)-B(3047) -! JVS(17266) = Jac_FULL(3658,5153) - JVS(17266) = B(765) -! JVS(17267) = Jac_FULL(3658,5252) - JVS(17267) = -B(3040)-B(3042) -! JVS(17268) = Jac_FULL(3658,5255) - JVS(17268) = -B(3038) -! JVS(17269) = Jac_FULL(3658,5256) - JVS(17269) = B(766)-B(3044) -! JVS(17270) = Jac_FULL(3659,3219) - JVS(17270) = B(2962) -! JVS(17271) = Jac_FULL(3659,3235) - JVS(17271) = B(10223) -! JVS(17272) = Jac_FULL(3659,3659) - JVS(17272) = -B(6513)-B(6515)-B(6517)-B(6519)-B(6520) -! JVS(17273) = Jac_FULL(3659,5250) - JVS(17273) = B(10224) -! JVS(17274) = Jac_FULL(3659,5252) - JVS(17274) = -B(6516) -! JVS(17275) = Jac_FULL(3659,5255) - JVS(17275) = -B(6514) -! JVS(17276) = Jac_FULL(3659,5256) - JVS(17276) = B(2963)-B(6518) -! JVS(17277) = Jac_FULL(3660,3660) - JVS(17277) = -B(4325)-B(4327)-B(4329) -! JVS(17278) = Jac_FULL(3660,4923) - JVS(17278) = B(1555) -! JVS(17279) = Jac_FULL(3660,5250) - JVS(17279) = -B(4328) -! JVS(17280) = Jac_FULL(3660,5255) - JVS(17280) = B(1556) -! JVS(17281) = Jac_FULL(3660,5256) - JVS(17281) = -B(4326) -! JVS(17282) = Jac_FULL(3661,396) - JVS(17282) = B(5945) -! JVS(17283) = Jac_FULL(3661,1542) - JVS(17283) = B(5932) -! JVS(17284) = Jac_FULL(3661,1860) - JVS(17284) = B(5938) -! JVS(17285) = Jac_FULL(3661,1881) - JVS(17285) = B(5935) -! JVS(17286) = Jac_FULL(3661,3521) - JVS(17286) = B(2686) -! JVS(17287) = Jac_FULL(3661,3661) - JVS(17287) = -B(5939)-B(5941)-B(5943)-B(5944) -! JVS(17288) = Jac_FULL(3661,5250) - JVS(17288) = B(5933)+B(5936)-B(5942)+B(5946) -! JVS(17289) = Jac_FULL(3661,5252) - JVS(17289) = 0 -! JVS(17290) = Jac_FULL(3661,5255) - JVS(17290) = 0 -! JVS(17291) = Jac_FULL(3661,5256) - JVS(17291) = -B(5940) -! JVS(17292) = Jac_FULL(3662,3662) - JVS(17292) = -B(14973)-B(14974)-B(14976) -! JVS(17293) = Jac_FULL(3662,5115) - JVS(17293) = B(11787) -! JVS(17294) = Jac_FULL(3662,5140) - JVS(17294) = B(11758) -! JVS(17295) = Jac_FULL(3662,5250) - JVS(17295) = B(11759)+B(11788)-B(14977) -! JVS(17296) = Jac_FULL(3662,5256) - JVS(17296) = -B(14975) -! JVS(17297) = Jac_FULL(3663,2740) - JVS(17297) = B(9617) -! JVS(17298) = Jac_FULL(3663,3180) - JVS(17298) = B(2689) -! JVS(17299) = Jac_FULL(3663,3663) - JVS(17299) = -B(5947)-B(5949)-B(5951)-B(5953)-B(5954) -! JVS(17300) = Jac_FULL(3663,5250) - JVS(17300) = B(9618) -! JVS(17301) = Jac_FULL(3663,5252) - JVS(17301) = -B(5950) -! JVS(17302) = Jac_FULL(3663,5255) - JVS(17302) = -B(5948) -! JVS(17303) = Jac_FULL(3663,5256) - JVS(17303) = B(2690)-B(5952) -! JVS(17304) = Jac_FULL(3664,2994) - JVS(17304) = B(9621) -! JVS(17305) = Jac_FULL(3664,3195) - JVS(17305) = B(9639) -! JVS(17306) = Jac_FULL(3664,3627) - JVS(17306) = 0 -! JVS(17307) = Jac_FULL(3664,3663) - JVS(17307) = 0 -! JVS(17308) = Jac_FULL(3664,3664) - JVS(17308) = -B(13060)-B(13062) -! JVS(17309) = Jac_FULL(3664,4888) - JVS(17309) = B(13083)+B(13094) -! JVS(17310) = Jac_FULL(3664,5250) - JVS(17310) = -B(13061) -! JVS(17311) = Jac_FULL(3664,5252) - JVS(17311) = 0 -! JVS(17312) = Jac_FULL(3664,5255) - JVS(17312) = B(13084) -! JVS(17313) = Jac_FULL(3664,5256) - JVS(17313) = 0 -! JVS(17314) = Jac_FULL(3665,2624) - JVS(17314) = B(9960) -! JVS(17315) = Jac_FULL(3665,3193) - JVS(17315) = B(2832) -! JVS(17316) = Jac_FULL(3665,3665) - JVS(17316) = -B(6246)-B(6248)-B(6250)-B(6252)-B(6253) -! JVS(17317) = Jac_FULL(3665,5250) - JVS(17317) = B(9961) -! JVS(17318) = Jac_FULL(3665,5252) - JVS(17318) = -B(6249) -! JVS(17319) = Jac_FULL(3665,5255) - JVS(17319) = -B(6247) -! JVS(17320) = Jac_FULL(3665,5256) - JVS(17320) = B(2833)-B(6251) -! JVS(17321) = Jac_FULL(3666,1567) - JVS(17321) = B(9965) -! JVS(17322) = Jac_FULL(3666,2624) - JVS(17322) = B(9962) -! JVS(17323) = Jac_FULL(3666,3665) - JVS(17323) = B(6248)+B(6250)+B(6252) -! JVS(17324) = Jac_FULL(3666,3666) - JVS(17324) = -B(9964) -! JVS(17325) = Jac_FULL(3666,5250) - JVS(17325) = B(9966) -! JVS(17326) = Jac_FULL(3666,5252) - JVS(17326) = B(6249) -! JVS(17327) = Jac_FULL(3666,5255) - JVS(17327) = 0 -! JVS(17328) = Jac_FULL(3666,5256) - JVS(17328) = B(6251) -! JVS(17329) = Jac_FULL(3667,1992) - JVS(17329) = B(11971) -! JVS(17330) = Jac_FULL(3667,2767) - JVS(17330) = B(4677) -! JVS(17331) = Jac_FULL(3667,3667) - JVS(17331) = -B(8224)-B(8226)-B(8228)-B(8230)-B(8232)-B(8233)-B(8234) -! JVS(17332) = Jac_FULL(3667,4886) - JVS(17332) = 0 -! JVS(17333) = Jac_FULL(3667,5250) - JVS(17333) = B(11972) -! JVS(17334) = Jac_FULL(3667,5252) - JVS(17334) = -B(8227)-B(8229) -! JVS(17335) = Jac_FULL(3667,5255) - JVS(17335) = -B(8225) -! JVS(17336) = Jac_FULL(3667,5256) - JVS(17336) = -B(8231) -! JVS(17337) = Jac_FULL(3668,2452) - JVS(17337) = B(16893) -! JVS(17338) = Jac_FULL(3668,2742) - JVS(17338) = 0 -! JVS(17339) = Jac_FULL(3668,3668) - JVS(17339) = -B(19080)-B(19082)-B(19084)-B(19086)-B(19088)-B(19089)-B(19090) -! JVS(17340) = Jac_FULL(3668,3955) - JVS(17340) = 0 -! JVS(17341) = Jac_FULL(3668,5250) - JVS(17341) = 0 -! JVS(17342) = Jac_FULL(3668,5252) - JVS(17342) = -B(19083)-B(19085) -! JVS(17343) = Jac_FULL(3668,5255) - JVS(17343) = -B(19081) -! JVS(17344) = Jac_FULL(3668,5256) - JVS(17344) = -B(19087) -! JVS(17345) = Jac_FULL(3669,2089) - JVS(17345) = B(15451) -! JVS(17346) = Jac_FULL(3669,3669) - JVS(17346) = -B(12346)-B(12348)-B(12350)-B(12352)-B(12353)-B(12354) -! JVS(17347) = Jac_FULL(3669,4951) - JVS(17347) = B(8668) -! JVS(17348) = Jac_FULL(3669,5250) - JVS(17348) = B(8669)+B(15452) -! JVS(17349) = Jac_FULL(3669,5252) - JVS(17349) = -B(12349) -! JVS(17350) = Jac_FULL(3669,5255) - JVS(17350) = -B(12347) -! JVS(17351) = Jac_FULL(3669,5256) - JVS(17351) = -B(12351) -! JVS(17352) = Jac_FULL(3670,3670) - JVS(17352) = -B(3055)-B(3057)-B(3059)-B(3061)-B(3063)-B(3064)-B(3065) -! JVS(17353) = Jac_FULL(3670,5153) - JVS(17353) = B(771) -! JVS(17354) = Jac_FULL(3670,5250) - JVS(17354) = B(772) -! JVS(17355) = Jac_FULL(3670,5252) - JVS(17355) = -B(3058)-B(3060) -! JVS(17356) = Jac_FULL(3670,5255) - JVS(17356) = -B(3056) -! JVS(17357) = Jac_FULL(3670,5256) - JVS(17357) = -B(3062) -! JVS(17358) = Jac_FULL(3671,2068) - JVS(17358) = B(5190) -! JVS(17359) = Jac_FULL(3671,3442) - JVS(17359) = B(585) -! JVS(17360) = Jac_FULL(3671,3671) - JVS(17360) = -B(2321)-B(2323)-B(2325)-B(2327)-B(2328) -! JVS(17361) = Jac_FULL(3671,5250) - JVS(17361) = B(5191) -! JVS(17362) = Jac_FULL(3671,5252) - JVS(17362) = -B(2324) -! JVS(17363) = Jac_FULL(3671,5255) - JVS(17363) = -B(2322) -! JVS(17364) = Jac_FULL(3671,5256) - JVS(17364) = B(586)-B(2326) -! JVS(17365) = Jac_FULL(3671,5258) - JVS(17365) = 0 -! JVS(17366) = Jac_FULL(3672,3334) - JVS(17366) = B(11658) -! JVS(17367) = Jac_FULL(3672,3672) - JVS(17367) = -B(14908)-B(14910) -! JVS(17368) = Jac_FULL(3672,5040) - JVS(17368) = 0 -! JVS(17369) = Jac_FULL(3672,5133) - JVS(17369) = B(11642)+B(11654) -! JVS(17370) = Jac_FULL(3672,5155) - JVS(17370) = 0 -! JVS(17371) = Jac_FULL(3672,5250) - JVS(17371) = B(11659)-B(14909) -! JVS(17372) = Jac_FULL(3672,5255) - JVS(17372) = B(11643) -! JVS(17373) = Jac_FULL(3673,744) - JVS(17373) = B(18377) -! JVS(17374) = Jac_FULL(3673,1830) - JVS(17374) = 0 -! JVS(17375) = Jac_FULL(3673,3673) - JVS(17375) = -B(20106)-B(20108) -! JVS(17376) = Jac_FULL(3673,4381) - JVS(17376) = 0 -! JVS(17377) = Jac_FULL(3673,5250) - JVS(17377) = -B(20107) -! JVS(17378) = Jac_FULL(3673,5252) - JVS(17378) = 0 -! JVS(17379) = Jac_FULL(3673,5255) - JVS(17379) = 0 -! JVS(17380) = Jac_FULL(3673,5256) - JVS(17380) = 0 -! JVS(17381) = Jac_FULL(3674,1282) - JVS(17381) = B(12020) -! JVS(17382) = Jac_FULL(3674,3168) - JVS(17382) = B(4706) -! JVS(17383) = Jac_FULL(3674,3674) - JVS(17383) = -B(8277)-B(8279)-B(8281)-B(8283) -! JVS(17384) = Jac_FULL(3674,5146) - JVS(17384) = 0 -! JVS(17385) = Jac_FULL(3674,5250) - JVS(17385) = B(4707)+B(12021) -! JVS(17386) = Jac_FULL(3674,5252) - JVS(17386) = -B(8280) -! JVS(17387) = Jac_FULL(3674,5255) - JVS(17387) = -B(8278) -! JVS(17388) = Jac_FULL(3674,5256) - JVS(17388) = -B(8282) -! JVS(17389) = Jac_FULL(3675,1805) - JVS(17389) = B(12787) -! JVS(17390) = Jac_FULL(3675,3675) - JVS(17390) = -B(15862)-B(15864)-B(15866)-B(15868)-B(15869)-B(15870) -! JVS(17391) = Jac_FULL(3675,4045) - JVS(17391) = 0 -! JVS(17392) = Jac_FULL(3675,5250) - JVS(17392) = B(12788) -! JVS(17393) = Jac_FULL(3675,5252) - JVS(17393) = -B(15865) -! JVS(17394) = Jac_FULL(3675,5255) - JVS(17394) = -B(15863) -! JVS(17395) = Jac_FULL(3675,5256) - JVS(17395) = -B(15867) -! JVS(17396) = Jac_FULL(3676,2187) - JVS(17396) = B(13925) -! JVS(17397) = Jac_FULL(3676,3156) - JVS(17397) = B(6956) -! JVS(17398) = Jac_FULL(3676,3676) - JVS(17398) = -B(10731)-B(10733)-B(10735)-B(10737)-B(10739)-B(10740)-B(10741) -! JVS(17399) = Jac_FULL(3676,4616) - JVS(17399) = 0 -! JVS(17400) = Jac_FULL(3676,5250) - JVS(17400) = B(6957)+B(13926) -! JVS(17401) = Jac_FULL(3676,5252) - JVS(17401) = -B(10734)-B(10736) -! JVS(17402) = Jac_FULL(3676,5255) - JVS(17402) = -B(10732) -! JVS(17403) = Jac_FULL(3676,5256) - JVS(17403) = -B(10738) -! JVS(17404) = Jac_FULL(3677,1850) - JVS(17404) = B(15724) -! JVS(17405) = Jac_FULL(3677,3677) - JVS(17405) = -B(12653)-B(12655)-B(12657)-B(12659) -! JVS(17406) = Jac_FULL(3677,4927) - JVS(17406) = B(9057) -! JVS(17407) = Jac_FULL(3677,5250) - JVS(17407) = B(15725) -! JVS(17408) = Jac_FULL(3677,5252) - JVS(17408) = -B(12656) -! JVS(17409) = Jac_FULL(3677,5255) - JVS(17409) = -B(12654) -! JVS(17410) = Jac_FULL(3677,5256) - JVS(17410) = B(9058)-B(12658) -! JVS(17411) = Jac_FULL(3678,1028) - JVS(17411) = B(12138) -! JVS(17412) = Jac_FULL(3678,3091) - JVS(17412) = B(4783) -! JVS(17413) = Jac_FULL(3678,3678) - JVS(17413) = -B(8389)-B(8391)-B(8393)-B(8395) -! JVS(17414) = Jac_FULL(3678,5138) - JVS(17414) = 0 -! JVS(17415) = Jac_FULL(3678,5250) - JVS(17415) = B(4784)+B(12139) -! JVS(17416) = Jac_FULL(3678,5252) - JVS(17416) = -B(8392) -! JVS(17417) = Jac_FULL(3678,5255) - JVS(17417) = -B(8390) -! JVS(17418) = Jac_FULL(3678,5256) - JVS(17418) = -B(8394) -! JVS(17419) = Jac_FULL(3679,1979) - JVS(17419) = B(18237) -! JVS(17420) = Jac_FULL(3679,2464) - JVS(17420) = B(12705) -! JVS(17421) = Jac_FULL(3679,3679) - JVS(17421) = -B(15752)-B(15754)-B(15756)-B(15758) -! JVS(17422) = Jac_FULL(3679,4448) - JVS(17422) = 0 -! JVS(17423) = Jac_FULL(3679,5250) - JVS(17423) = B(18238) -! JVS(17424) = Jac_FULL(3679,5252) - JVS(17424) = -B(15755) -! JVS(17425) = Jac_FULL(3679,5255) - JVS(17425) = -B(15753) -! JVS(17426) = Jac_FULL(3679,5256) - JVS(17426) = B(12706)-B(15757) -! JVS(17427) = Jac_FULL(3680,2281) - JVS(17427) = B(13316) -! JVS(17428) = Jac_FULL(3680,2389) - JVS(17428) = B(18630) -! JVS(17429) = Jac_FULL(3680,3680) - JVS(17429) = -B(16321)-B(16323)-B(16325)-B(16327) -! JVS(17430) = Jac_FULL(3680,4799) - JVS(17430) = 0 -! JVS(17431) = Jac_FULL(3680,5250) - JVS(17431) = B(18631) -! JVS(17432) = Jac_FULL(3680,5252) - JVS(17432) = -B(16324) -! JVS(17433) = Jac_FULL(3680,5255) - JVS(17433) = -B(16322) -! JVS(17434) = Jac_FULL(3680,5256) - JVS(17434) = B(13317)-B(16326) -! JVS(17435) = Jac_FULL(3681,780) - JVS(17435) = B(18668) -! JVS(17436) = Jac_FULL(3681,1783) - JVS(17436) = 0 -! JVS(17437) = Jac_FULL(3681,3681) - JVS(17437) = -B(20265)-B(20267) -! JVS(17438) = Jac_FULL(3681,4535) - JVS(17438) = 0 -! JVS(17439) = Jac_FULL(3681,5250) - JVS(17439) = -B(20266) -! JVS(17440) = Jac_FULL(3681,5252) - JVS(17440) = 0 -! JVS(17441) = Jac_FULL(3681,5255) - JVS(17441) = 0 -! JVS(17442) = Jac_FULL(3681,5256) - JVS(17442) = 0 -! JVS(17443) = Jac_FULL(3682,1620) - JVS(17443) = B(22113) -! JVS(17444) = Jac_FULL(3682,3682) - JVS(17444) = -B(14021)-B(14023) -! JVS(17445) = Jac_FULL(3682,4730) - JVS(17445) = B(10827) -! JVS(17446) = Jac_FULL(3682,4734) - JVS(17446) = 0 -! JVS(17447) = Jac_FULL(3682,5250) - JVS(17447) = -B(14022) -! JVS(17448) = Jac_FULL(3682,5252) - JVS(17448) = 0 -! JVS(17449) = Jac_FULL(3682,5255) - JVS(17449) = 0 -! JVS(17450) = Jac_FULL(3682,5256) - JVS(17450) = 0 -! JVS(17451) = Jac_FULL(3683,737) - JVS(17451) = B(12211) -! JVS(17452) = Jac_FULL(3683,1802) - JVS(17452) = 0 -! JVS(17453) = Jac_FULL(3683,1938) - JVS(17453) = B(14037) -! JVS(17454) = Jac_FULL(3683,3683) - JVS(17454) = -B(14044)-B(14046) -! JVS(17455) = Jac_FULL(3683,4817) - JVS(17455) = 0 -! JVS(17456) = Jac_FULL(3683,4885) - JVS(17456) = B(10847) -! JVS(17457) = Jac_FULL(3683,5250) - JVS(17457) = B(14038)-B(14045) -! JVS(17458) = Jac_FULL(3683,5252) - JVS(17458) = 0 -! JVS(17459) = Jac_FULL(3683,5255) - JVS(17459) = 0 -! JVS(17460) = Jac_FULL(3683,5256) - JVS(17460) = 0 -! JVS(17461) = Jac_FULL(3684,3172) - JVS(17461) = B(2655) -! JVS(17462) = Jac_FULL(3684,3684) - JVS(17462) = -B(5873)-B(5875)-B(5877) -! JVS(17463) = Jac_FULL(3684,5250) - JVS(17463) = B(2656)-B(5878) -! JVS(17464) = Jac_FULL(3684,5256) - JVS(17464) = -B(5874) -! JVS(17465) = Jac_FULL(3684,5258) - JVS(17465) = -B(5876) -! JVS(17466) = Jac_FULL(3685,2046) - JVS(17466) = B(18092) -! JVS(17467) = Jac_FULL(3685,2054) - JVS(17467) = B(12419) -! JVS(17468) = Jac_FULL(3685,3685) - JVS(17468) = -B(15508)-B(15510)-B(15512)-B(15514) -! JVS(17469) = Jac_FULL(3685,4488) - JVS(17469) = 0 -! JVS(17470) = Jac_FULL(3685,5250) - JVS(17470) = B(18093) -! JVS(17471) = Jac_FULL(3685,5252) - JVS(17471) = -B(15511) -! JVS(17472) = Jac_FULL(3685,5255) - JVS(17472) = -B(15509) -! JVS(17473) = Jac_FULL(3685,5256) - JVS(17473) = B(12420)-B(15513) -! JVS(17474) = Jac_FULL(3686,364) - JVS(17474) = B(20956) -! JVS(17475) = Jac_FULL(3686,1479) - JVS(17475) = B(20960) -! JVS(17476) = Jac_FULL(3686,3686) - JVS(17476) = -B(20961)-B(20963)-B(20965)-B(20967)-B(20969)-B(20970)-B(20971) -! JVS(17477) = Jac_FULL(3686,5131) - JVS(17477) = B(19404)+B(19406)+B(19410)+B(19413) -! JVS(17478) = Jac_FULL(3686,5250) - JVS(17478) = B(20957) -! JVS(17479) = Jac_FULL(3686,5252) - JVS(17479) = B(19407)-B(20964)-B(20966) -! JVS(17480) = Jac_FULL(3686,5255) - JVS(17480) = B(19405)-B(20962) -! JVS(17481) = Jac_FULL(3686,5256) - JVS(17481) = B(19411)-B(20968) -! JVS(17482) = Jac_FULL(3687,2267) - JVS(17482) = B(16424) -! JVS(17483) = Jac_FULL(3687,3687) - JVS(17483) = -B(13395)-B(13397)-B(13399)-B(13401) -! JVS(17484) = Jac_FULL(3687,4793) - JVS(17484) = B(10151) -! JVS(17485) = Jac_FULL(3687,5250) - JVS(17485) = B(16425) -! JVS(17486) = Jac_FULL(3687,5252) - JVS(17486) = -B(13398) -! JVS(17487) = Jac_FULL(3687,5255) - JVS(17487) = -B(13396) -! JVS(17488) = Jac_FULL(3687,5256) - JVS(17488) = B(10152)-B(13400) -! JVS(17489) = Jac_FULL(3688,421) - JVS(17489) = B(4737) -! JVS(17490) = Jac_FULL(3688,1082) - JVS(17490) = 0 -! JVS(17491) = Jac_FULL(3688,1382) - JVS(17491) = B(12056) -! JVS(17492) = Jac_FULL(3688,2964) - JVS(17492) = 0 -! JVS(17493) = Jac_FULL(3688,3688) - JVS(17493) = -B(8313)-B(8315)-B(8317)-B(8319)-B(8321)-B(8322)-B(8323) -! JVS(17494) = Jac_FULL(3688,4878) - JVS(17494) = 0 -! JVS(17495) = Jac_FULL(3688,5250) - JVS(17495) = B(12057) -! JVS(17496) = Jac_FULL(3688,5252) - JVS(17496) = -B(8316)-B(8318) -! JVS(17497) = Jac_FULL(3688,5255) - JVS(17497) = -B(8314) -! JVS(17498) = Jac_FULL(3688,5256) - JVS(17498) = -B(8320) -! JVS(17499) = Jac_FULL(3689,598) - JVS(17499) = B(144) -! JVS(17500) = Jac_FULL(3689,1235) - JVS(17500) = B(4801) -! JVS(17501) = Jac_FULL(3689,2020) - JVS(17501) = B(4804) -! JVS(17502) = Jac_FULL(3689,2922) - JVS(17502) = B(4807) -! JVS(17503) = Jac_FULL(3689,3689) - JVS(17503) = -B(860)-B(862)-B(863) -! JVS(17504) = Jac_FULL(3689,5181) - JVS(17504) = B(1985) -! JVS(17505) = Jac_FULL(3689,5250) - JVS(17505) = B(145)-B(861)+B(4802)+B(4805) -! JVS(17506) = Jac_FULL(3689,5252) - JVS(17506) = 0 -! JVS(17507) = Jac_FULL(3689,5255) - JVS(17507) = 0 -! JVS(17508) = Jac_FULL(3689,5256) - JVS(17508) = 0 -! JVS(17509) = Jac_FULL(3690,186) - JVS(17509) = B(4782) -! JVS(17510) = Jac_FULL(3690,1052) - JVS(17510) = 0 -! JVS(17511) = Jac_FULL(3690,2432) - JVS(17511) = 0 -! JVS(17512) = Jac_FULL(3690,3690) - JVS(17512) = -B(8378)-B(8380)-B(8382)-B(8384)-B(8386)-B(8387)-B(8388) -! JVS(17513) = Jac_FULL(3690,5138) - JVS(17513) = 0 -! JVS(17514) = Jac_FULL(3690,5250) - JVS(17514) = 0 -! JVS(17515) = Jac_FULL(3690,5252) - JVS(17515) = -B(8381)-B(8383) -! JVS(17516) = Jac_FULL(3690,5255) - JVS(17516) = -B(8379) -! JVS(17517) = Jac_FULL(3690,5256) - JVS(17517) = -B(8385) -! JVS(17518) = Jac_FULL(3691,196) - JVS(17518) = B(4794) -! JVS(17519) = Jac_FULL(3691,848) - JVS(17519) = 0 -! JVS(17520) = Jac_FULL(3691,2113) - JVS(17520) = 0 -! JVS(17521) = Jac_FULL(3691,3691) - JVS(17521) = -B(8396)-B(8398)-B(8400)-B(8402)-B(8404)-B(8405)-B(8406) -! JVS(17522) = Jac_FULL(3691,5065) - JVS(17522) = 0 -! JVS(17523) = Jac_FULL(3691,5250) - JVS(17523) = 0 -! JVS(17524) = Jac_FULL(3691,5252) - JVS(17524) = -B(8399)-B(8401) -! JVS(17525) = Jac_FULL(3691,5255) - JVS(17525) = -B(8397) -! JVS(17526) = Jac_FULL(3691,5256) - JVS(17526) = -B(8403) -! JVS(17527) = Jac_FULL(3692,2454) - JVS(17527) = B(15577) -! JVS(17528) = Jac_FULL(3692,3692) - JVS(17528) = -B(12477)-B(12479)-B(12481)-B(12483) -! JVS(17529) = Jac_FULL(3692,4952) - JVS(17529) = B(8834) -! JVS(17530) = Jac_FULL(3692,5250) - JVS(17530) = B(15578) -! JVS(17531) = Jac_FULL(3692,5252) - JVS(17531) = -B(12480) -! JVS(17532) = Jac_FULL(3692,5255) - JVS(17532) = -B(12478) -! JVS(17533) = Jac_FULL(3692,5256) - JVS(17533) = B(8835)-B(12482) -! JVS(17534) = Jac_FULL(3693,2236) - JVS(17534) = B(13878) -! JVS(17535) = Jac_FULL(3693,3693) - JVS(17535) = -B(13685)-B(13687)-B(13688) -! JVS(17536) = Jac_FULL(3693,4861) - JVS(17536) = B(12460) -! JVS(17537) = Jac_FULL(3693,4894) - JVS(17537) = 0 -! JVS(17538) = Jac_FULL(3693,4976) - JVS(17538) = B(10517) -! JVS(17539) = Jac_FULL(3693,5250) - JVS(17539) = B(10518)-B(13686)+B(13879) -! JVS(17540) = Jac_FULL(3693,5255) - JVS(17540) = B(12461) -! JVS(17541) = Jac_FULL(3694,193) - JVS(17541) = B(21706) -! JVS(17542) = Jac_FULL(3694,879) - JVS(17542) = 0 -! JVS(17543) = Jac_FULL(3694,935) - JVS(17543) = B(22827) -! JVS(17544) = Jac_FULL(3694,2328) - JVS(17544) = 0 -! JVS(17545) = Jac_FULL(3694,3694) - JVS(17545) = -B(22323)-B(22325)-B(22327)-B(22329)-B(22330) -! JVS(17546) = Jac_FULL(3694,3858) - JVS(17546) = 0 -! JVS(17547) = Jac_FULL(3694,5250) - JVS(17547) = B(22828) -! JVS(17548) = Jac_FULL(3694,5252) - JVS(17548) = -B(22326) -! JVS(17549) = Jac_FULL(3694,5255) - JVS(17549) = -B(22324) -! JVS(17550) = Jac_FULL(3694,5256) - JVS(17550) = -B(22328) -! JVS(17551) = Jac_FULL(3695,1443) - JVS(17551) = B(15733) -! JVS(17552) = Jac_FULL(3695,3695) - JVS(17552) = -B(12667)-B(12669)-B(12671)-B(12673)-B(12674) -! JVS(17553) = Jac_FULL(3695,4927) - JVS(17553) = B(9061) -! JVS(17554) = Jac_FULL(3695,5250) - JVS(17554) = B(9062)+B(15734) -! JVS(17555) = Jac_FULL(3695,5252) - JVS(17555) = -B(12670) -! JVS(17556) = Jac_FULL(3695,5255) - JVS(17556) = -B(12668) -! JVS(17557) = Jac_FULL(3695,5256) - JVS(17557) = -B(12672) -! JVS(17558) = Jac_FULL(3696,1861) - JVS(17558) = B(16008) -! JVS(17559) = Jac_FULL(3696,3696) - JVS(17559) = -B(12926)-B(12928)-B(12930)-B(12932)-B(12933)-B(12934) -! JVS(17560) = Jac_FULL(3696,4637) - JVS(17560) = B(9432) -! JVS(17561) = Jac_FULL(3696,5250) - JVS(17561) = B(9433)+B(16009) -! JVS(17562) = Jac_FULL(3696,5252) - JVS(17562) = -B(12929) -! JVS(17563) = Jac_FULL(3696,5255) - JVS(17563) = -B(12927) -! JVS(17564) = Jac_FULL(3696,5256) - JVS(17564) = -B(12931) -! JVS(17565) = Jac_FULL(3697,1936) - JVS(17565) = B(12595) -! JVS(17566) = Jac_FULL(3697,3697) - JVS(17566) = -B(15669)-B(15671)-B(15673)-B(15675)-B(15676)-B(15677) -! JVS(17567) = Jac_FULL(3697,4326) - JVS(17567) = 0 -! JVS(17568) = Jac_FULL(3697,5250) - JVS(17568) = B(12596) -! JVS(17569) = Jac_FULL(3697,5252) - JVS(17569) = -B(15672) -! JVS(17570) = Jac_FULL(3697,5255) - JVS(17570) = -B(15670) -! JVS(17571) = Jac_FULL(3697,5256) - JVS(17571) = -B(15674) -! JVS(17572) = Jac_FULL(3698,388) - JVS(17572) = B(22619) -! JVS(17573) = Jac_FULL(3698,1336) - JVS(17573) = B(22623) -! JVS(17574) = Jac_FULL(3698,3698) - JVS(17574) = -B(22624)-B(22626)-B(22628)-B(22630)-B(22632)-B(22633)-B(22634) -! JVS(17575) = Jac_FULL(3698,4652) - JVS(17575) = B(22015)+B(22017)+B(22021)+B(22024) -! JVS(17576) = Jac_FULL(3698,5250) - JVS(17576) = B(22620) -! JVS(17577) = Jac_FULL(3698,5252) - JVS(17577) = B(22018)-B(22627)-B(22629) -! JVS(17578) = Jac_FULL(3698,5255) - JVS(17578) = B(22016)-B(22625) -! JVS(17579) = Jac_FULL(3698,5256) - JVS(17579) = B(22022)-B(22631) -! JVS(17580) = Jac_FULL(3699,2054) - JVS(17580) = B(12421) -! JVS(17581) = Jac_FULL(3699,3699) - JVS(17581) = -B(15515)-B(15517)-B(15519)-B(15521)-B(15522)-B(15523) -! JVS(17582) = Jac_FULL(3699,4488) - JVS(17582) = 0 -! JVS(17583) = Jac_FULL(3699,5250) - JVS(17583) = B(12422) -! JVS(17584) = Jac_FULL(3699,5252) - JVS(17584) = -B(15518) -! JVS(17585) = Jac_FULL(3699,5255) - JVS(17585) = -B(15516) -! JVS(17586) = Jac_FULL(3699,5256) - JVS(17586) = -B(15520) -! JVS(17587) = Jac_FULL(3700,3485) - JVS(17587) = B(16665) -! JVS(17588) = Jac_FULL(3700,3700) - JVS(17588) = -B(16666)-B(16667) -! JVS(17589) = Jac_FULL(3700,5022) - JVS(17589) = B(13837)+B(13839)+B(13841) -! JVS(17590) = Jac_FULL(3700,5250) - JVS(17590) = 0 -! JVS(17591) = Jac_FULL(3700,5252) - JVS(17591) = B(13838) -! JVS(17592) = Jac_FULL(3700,5255) - JVS(17592) = 0 -! JVS(17593) = Jac_FULL(3700,5256) - JVS(17593) = B(13840) -! JVS(17594) = Jac_FULL(3701,3149) - JVS(17594) = B(2612) -! JVS(17595) = Jac_FULL(3701,3701) - JVS(17595) = -B(5785)-B(5787)-B(5789) -! JVS(17596) = Jac_FULL(3701,5250) - JVS(17596) = B(2613)-B(5790) -! JVS(17597) = Jac_FULL(3701,5256) - JVS(17597) = -B(5786) -! JVS(17598) = Jac_FULL(3701,5258) - JVS(17598) = -B(5788) -! JVS(17599) = Jac_FULL(3702,3702) - JVS(17599) = -B(10177)-B(10179)-B(10180)-B(10181) -! JVS(17600) = Jac_FULL(3702,4992) - JVS(17600) = B(6472) -! JVS(17601) = Jac_FULL(3702,5250) - JVS(17601) = -B(10178) -! JVS(17602) = Jac_FULL(3702,5255) - JVS(17602) = B(6473) -! JVS(17603) = Jac_FULL(3703,241) - JVS(17603) = B(20918) -! JVS(17604) = Jac_FULL(3703,1247) - JVS(17604) = B(20906) -! JVS(17605) = Jac_FULL(3703,3703) - JVS(17605) = -B(20907)-B(20909)-B(20911)-B(20913)-B(20915)-B(20916)-B(20917) -! JVS(17606) = Jac_FULL(3703,4638) - JVS(17606) = B(19342)+B(19346)+B(19350)+B(19352) -! JVS(17607) = Jac_FULL(3703,5250) - JVS(17607) = B(20919) -! JVS(17608) = Jac_FULL(3703,5252) - JVS(17608) = B(19347)-B(20910)-B(20912) -! JVS(17609) = Jac_FULL(3703,5255) - JVS(17609) = B(19343)-B(20908) -! JVS(17610) = Jac_FULL(3703,5256) - JVS(17610) = B(19351)-B(20914) -! JVS(17611) = Jac_FULL(3704,1534) - JVS(17611) = B(12156) -! JVS(17612) = Jac_FULL(3704,3110) - JVS(17612) = B(4796) -! JVS(17613) = Jac_FULL(3704,3704) - JVS(17613) = -B(8407)-B(8409)-B(8411)-B(8413) -! JVS(17614) = Jac_FULL(3704,5065) - JVS(17614) = 0 -! JVS(17615) = Jac_FULL(3704,5250) - JVS(17615) = B(4797)+B(12157) -! JVS(17616) = Jac_FULL(3704,5252) - JVS(17616) = -B(8410) -! JVS(17617) = Jac_FULL(3704,5255) - JVS(17617) = -B(8408) -! JVS(17618) = Jac_FULL(3704,5256) - JVS(17618) = -B(8412) -! JVS(17619) = Jac_FULL(3705,1020) - JVS(17619) = B(15718) -! JVS(17620) = Jac_FULL(3705,3705) - JVS(17620) = -B(12645)-B(12647)-B(12649)-B(12651)-B(12652) -! JVS(17621) = Jac_FULL(3705,4895) - JVS(17621) = B(9055) -! JVS(17622) = Jac_FULL(3705,5250) - JVS(17622) = B(9056)+B(15719) -! JVS(17623) = Jac_FULL(3705,5252) - JVS(17623) = -B(12648) -! JVS(17624) = Jac_FULL(3705,5255) - JVS(17624) = -B(12646) -! JVS(17625) = Jac_FULL(3705,5256) - JVS(17625) = -B(12650) -! JVS(17626) = Jac_FULL(3706,2207) - JVS(17626) = B(17002) -! JVS(17627) = Jac_FULL(3706,2943) - JVS(17627) = 0 -! JVS(17628) = Jac_FULL(3706,3706) - JVS(17628) = -B(19213)-B(19215)-B(19217)-B(19219)-B(19220)-B(19221) -! JVS(17629) = Jac_FULL(3706,3981) - JVS(17629) = 0 -! JVS(17630) = Jac_FULL(3706,5250) - JVS(17630) = 0 -! JVS(17631) = Jac_FULL(3706,5252) - JVS(17631) = -B(19216) -! JVS(17632) = Jac_FULL(3706,5255) - JVS(17632) = -B(19214) -! JVS(17633) = Jac_FULL(3706,5256) - JVS(17633) = -B(19218) -! JVS(17634) = Jac_FULL(3707,3707) - JVS(17634) = -B(13665)-B(13667)-B(13668)-B(13669) -! JVS(17635) = Jac_FULL(3707,4758) - JVS(17635) = B(10503) -! JVS(17636) = Jac_FULL(3707,5250) - JVS(17636) = -B(13666) -! JVS(17637) = Jac_FULL(3707,5255) - JVS(17637) = B(10504) -! JVS(17638) = Jac_FULL(3708,3464) - JVS(17638) = B(13671) -! JVS(17639) = Jac_FULL(3708,3707) - JVS(17639) = 0 -! JVS(17640) = Jac_FULL(3708,3708) - JVS(17640) = -B(14029)-B(14030)-B(14032) -! JVS(17641) = Jac_FULL(3708,4758) - JVS(17641) = 0 -! JVS(17642) = Jac_FULL(3708,5197) - JVS(17642) = B(10830) -! JVS(17643) = Jac_FULL(3708,5250) - JVS(17643) = B(13672)-B(14031)-B(14033) -! JVS(17644) = Jac_FULL(3708,5255) - JVS(17644) = B(10831) -! JVS(17645) = Jac_FULL(3709,597) - JVS(17645) = B(18596) -! JVS(17646) = Jac_FULL(3709,2368) - JVS(17646) = 0 -! JVS(17647) = Jac_FULL(3709,3709) - JVS(17647) = -B(20221)-B(20223) -! JVS(17648) = Jac_FULL(3709,4153) - JVS(17648) = 0 -! JVS(17649) = Jac_FULL(3709,5250) - JVS(17649) = -B(20222) -! JVS(17650) = Jac_FULL(3709,5252) - JVS(17650) = 0 -! JVS(17651) = Jac_FULL(3709,5255) - JVS(17651) = 0 -! JVS(17652) = Jac_FULL(3709,5256) - JVS(17652) = 0 -! JVS(17653) = Jac_FULL(3710,201) - JVS(17653) = B(16962) -! JVS(17654) = Jac_FULL(3710,561) - JVS(17654) = B(16963) -! JVS(17655) = Jac_FULL(3710,562) - JVS(17655) = 0 -! JVS(17656) = Jac_FULL(3710,1284) - JVS(17656) = 0 -! JVS(17657) = Jac_FULL(3710,3710) - JVS(17657) = -B(19151)-B(19153)-B(19155)-B(19157)-B(19158)-B(19159) -! JVS(17658) = Jac_FULL(3710,3720) - JVS(17658) = 0 -! JVS(17659) = Jac_FULL(3710,5250) - JVS(17659) = B(16964) -! JVS(17660) = Jac_FULL(3710,5252) - JVS(17660) = -B(19154) -! JVS(17661) = Jac_FULL(3710,5255) - JVS(17661) = -B(19152) -! JVS(17662) = Jac_FULL(3710,5256) - JVS(17662) = -B(19156) -! JVS(17663) = Jac_FULL(3711,2274) - JVS(17663) = B(12881) -! JVS(17664) = Jac_FULL(3711,3711) - JVS(17664) = -B(15958)-B(15960)-B(15962)-B(15964)-B(15965)-B(15966) -! JVS(17665) = Jac_FULL(3711,4619) - JVS(17665) = 0 -! JVS(17666) = Jac_FULL(3711,5250) - JVS(17666) = B(12882) -! JVS(17667) = Jac_FULL(3711,5252) - JVS(17667) = -B(15961) -! JVS(17668) = Jac_FULL(3711,5255) - JVS(17668) = -B(15959) -! JVS(17669) = Jac_FULL(3711,5256) - JVS(17669) = -B(15963) -! JVS(17670) = Jac_FULL(3712,3325) - JVS(17670) = B(12361) -! JVS(17671) = Jac_FULL(3712,3712) - JVS(17671) = -B(12362)-B(12363) -! JVS(17672) = Jac_FULL(3712,4398) - JVS(17672) = B(12355) -! JVS(17673) = Jac_FULL(3712,4916) - JVS(17673) = B(8674)+B(8676)+B(8680)+B(8683) -! JVS(17674) = Jac_FULL(3712,5250) - JVS(17674) = B(12356) -! JVS(17675) = Jac_FULL(3712,5252) - JVS(17675) = B(8677) -! JVS(17676) = Jac_FULL(3712,5255) - JVS(17676) = B(8675) -! JVS(17677) = Jac_FULL(3712,5256) - JVS(17677) = B(8681) -! JVS(17678) = Jac_FULL(3713,1053) - JVS(17678) = B(15900) -! JVS(17679) = Jac_FULL(3713,3713) - JVS(17679) = -B(12812)-B(12814)-B(12816)-B(12818) -! JVS(17680) = Jac_FULL(3713,4896) - JVS(17680) = B(9307) -! JVS(17681) = Jac_FULL(3713,5250) - JVS(17681) = B(15901) -! JVS(17682) = Jac_FULL(3713,5252) - JVS(17682) = -B(12815) -! JVS(17683) = Jac_FULL(3713,5255) - JVS(17683) = -B(12813) -! JVS(17684) = Jac_FULL(3713,5256) - JVS(17684) = B(9308)-B(12817) -! JVS(17685) = Jac_FULL(3714,963) - JVS(17685) = B(18241) -! JVS(17686) = Jac_FULL(3714,2464) - JVS(17686) = B(12707) -! JVS(17687) = Jac_FULL(3714,3714) - JVS(17687) = -B(15759)-B(15761)-B(15763)-B(15765)-B(15766) -! JVS(17688) = Jac_FULL(3714,4448) - JVS(17688) = 0 -! JVS(17689) = Jac_FULL(3714,5250) - JVS(17689) = B(12708)+B(18242) -! JVS(17690) = Jac_FULL(3714,5252) - JVS(17690) = -B(15762) -! JVS(17691) = Jac_FULL(3714,5255) - JVS(17691) = -B(15760) -! JVS(17692) = Jac_FULL(3714,5256) - JVS(17692) = -B(15764) -! JVS(17693) = Jac_FULL(3715,1163) - JVS(17693) = B(22421)+B(22423) -! JVS(17694) = Jac_FULL(3715,1402) - JVS(17694) = B(22426) -! JVS(17695) = Jac_FULL(3715,3715) - JVS(17695) = -B(22427)-B(22429)-B(22431)-B(22433)-B(22435)-B(22436)-B(22437) -! JVS(17696) = Jac_FULL(3715,4485) - JVS(17696) = B(21808)+B(21810)+B(21814)+B(21817) -! JVS(17697) = Jac_FULL(3715,5250) - JVS(17697) = B(22422) -! JVS(17698) = Jac_FULL(3715,5252) - JVS(17698) = B(21811)-B(22430)-B(22432) -! JVS(17699) = Jac_FULL(3715,5255) - JVS(17699) = B(21809)-B(22428) -! JVS(17700) = Jac_FULL(3715,5256) - JVS(17700) = B(21815)-B(22434) -! JVS(17701) = Jac_FULL(3716,1194) - JVS(17701) = B(3850) -! JVS(17702) = Jac_FULL(3716,1977) - JVS(17702) = B(3847) -! JVS(17703) = Jac_FULL(3716,2006) - JVS(17703) = B(3844) -! JVS(17704) = Jac_FULL(3716,3716) - JVS(17704) = -B(3852)-B(3854) -! JVS(17705) = Jac_FULL(3716,4562) - JVS(17705) = B(1106) -! JVS(17706) = Jac_FULL(3716,4881) - JVS(17706) = 0 -! JVS(17707) = Jac_FULL(3716,5043) - JVS(17707) = 0 -! JVS(17708) = Jac_FULL(3716,5250) - JVS(17708) = B(3845)+B(3848)+B(3851)-B(3853) -! JVS(17709) = Jac_FULL(3716,5252) - JVS(17709) = 0 -! JVS(17710) = Jac_FULL(3716,5255) - JVS(17710) = 0 -! JVS(17711) = Jac_FULL(3717,992) - JVS(17711) = B(19057) -! JVS(17712) = Jac_FULL(3717,3389) - JVS(17712) = B(14221) -! JVS(17713) = Jac_FULL(3717,3717) - JVS(17713) = -B(16863)-B(16865)-B(16867)-B(16869) -! JVS(17714) = Jac_FULL(3717,4765) - JVS(17714) = 0 -! JVS(17715) = Jac_FULL(3717,5250) - JVS(17715) = B(14222)+B(19058) -! JVS(17716) = Jac_FULL(3717,5252) - JVS(17716) = -B(16866) -! JVS(17717) = Jac_FULL(3717,5255) - JVS(17717) = -B(16864) -! JVS(17718) = Jac_FULL(3717,5256) - JVS(17718) = -B(16868) -! JVS(17719) = Jac_FULL(3718,171) - JVS(17719) = B(4503) -! JVS(17720) = Jac_FULL(3718,2086) - JVS(17720) = 0 -! JVS(17721) = Jac_FULL(3718,2422) - JVS(17721) = 0 -! JVS(17722) = Jac_FULL(3718,3718) - JVS(17722) = -B(8040)-B(8042)-B(8044)-B(8046)-B(8048)-B(8049)-B(8050) -! JVS(17723) = Jac_FULL(3718,5109) - JVS(17723) = 0 -! JVS(17724) = Jac_FULL(3718,5250) - JVS(17724) = 0 -! JVS(17725) = Jac_FULL(3718,5252) - JVS(17725) = -B(8043)-B(8045) -! JVS(17726) = Jac_FULL(3718,5255) - JVS(17726) = -B(8041) -! JVS(17727) = Jac_FULL(3718,5256) - JVS(17727) = -B(8047) -! JVS(17728) = Jac_FULL(3719,583) - JVS(17728) = B(22320) -! JVS(17729) = Jac_FULL(3719,989) - JVS(17729) = B(23249) -! JVS(17730) = Jac_FULL(3719,3719) - JVS(17730) = -B(22820)-B(22822)-B(22824)-B(22826) -! JVS(17731) = Jac_FULL(3719,4190) - JVS(17731) = 0 -! JVS(17732) = Jac_FULL(3719,5250) - JVS(17732) = B(22321)+B(23250) -! JVS(17733) = Jac_FULL(3719,5252) - JVS(17733) = -B(22823) -! JVS(17734) = Jac_FULL(3719,5255) - JVS(17734) = -B(22821) -! JVS(17735) = Jac_FULL(3719,5256) - JVS(17735) = -B(22825) -! JVS(17736) = Jac_FULL(3720,1604) - JVS(17736) = B(11132) -! JVS(17737) = Jac_FULL(3720,2296) - JVS(17737) = 0 -! JVS(17738) = Jac_FULL(3720,3398) - JVS(17738) = 0 -! JVS(17739) = Jac_FULL(3720,3720) - JVS(17739) = -B(14350)-B(14352)-B(14354)-B(14356)-B(14358)-B(14359)-B(14360) -! JVS(17740) = Jac_FULL(3720,3852) - JVS(17740) = 0 -! JVS(17741) = Jac_FULL(3720,5250) - JVS(17741) = B(11133) -! JVS(17742) = Jac_FULL(3720,5252) - JVS(17742) = -B(14353)-B(14355) -! JVS(17743) = Jac_FULL(3720,5255) - JVS(17743) = -B(14351) -! JVS(17744) = Jac_FULL(3720,5256) - JVS(17744) = -B(14357) -! JVS(17745) = Jac_FULL(3721,1171) - JVS(17745) = B(5196) -! JVS(17746) = Jac_FULL(3721,3442) - JVS(17746) = B(589) -! JVS(17747) = Jac_FULL(3721,3721) - JVS(17747) = -B(2330)-B(2332)-B(2334)-B(2336)-B(2338)-B(2339) -! JVS(17748) = Jac_FULL(3721,5250) - JVS(17748) = B(590)+B(5197) -! JVS(17749) = Jac_FULL(3721,5252) - JVS(17749) = -B(2333)-B(2335) -! JVS(17750) = Jac_FULL(3721,5255) - JVS(17750) = -B(2331) -! JVS(17751) = Jac_FULL(3721,5256) - JVS(17751) = -B(2337) -! JVS(17752) = Jac_FULL(3721,5258) - JVS(17752) = 0 -! JVS(17753) = Jac_FULL(3722,378) - JVS(17753) = B(22077) -! JVS(17754) = Jac_FULL(3722,1480) - JVS(17754) = B(22081) -! JVS(17755) = Jac_FULL(3722,3722) - JVS(17755) = -B(22082)-B(22084)-B(22086)-B(22088)-B(22090)-B(22091)-B(22092) -! JVS(17756) = Jac_FULL(3722,4863) - JVS(17756) = B(21062)+B(21064)+B(21068)+B(21071) -! JVS(17757) = Jac_FULL(3722,5250) - JVS(17757) = B(22078) -! JVS(17758) = Jac_FULL(3722,5252) - JVS(17758) = B(21065)-B(22085)-B(22087) -! JVS(17759) = Jac_FULL(3722,5255) - JVS(17759) = B(21063)-B(22083) -! JVS(17760) = Jac_FULL(3722,5256) - JVS(17760) = B(21069)-B(22089) -! JVS(17761) = Jac_FULL(3723,3005) - JVS(17761) = B(16412) -! JVS(17762) = Jac_FULL(3723,3723) - JVS(17762) = -B(16408)-B(16409) -! JVS(17763) = Jac_FULL(3723,4178) - JVS(17763) = B(13447) -! JVS(17764) = Jac_FULL(3723,4946) - JVS(17764) = B(13373)+B(13379)+B(13383)+B(13385) -! JVS(17765) = Jac_FULL(3723,5250) - JVS(17765) = B(13448) -! JVS(17766) = Jac_FULL(3723,5252) - JVS(17766) = B(13380) -! JVS(17767) = Jac_FULL(3723,5255) - JVS(17767) = B(13374) -! JVS(17768) = Jac_FULL(3723,5256) - JVS(17768) = B(13384) -! JVS(17769) = Jac_FULL(3724,644) - JVS(17769) = B(23566) -! JVS(17770) = Jac_FULL(3724,2111) - JVS(17770) = 0 -! JVS(17771) = Jac_FULL(3724,2450) - JVS(17771) = B(23913) -! JVS(17772) = Jac_FULL(3724,3724) - JVS(17772) = -B(23773)-B(23775)-B(23777)-B(23779) -! JVS(17773) = Jac_FULL(3724,4497) - JVS(17773) = 0 -! JVS(17774) = Jac_FULL(3724,5250) - JVS(17774) = B(23914) -! JVS(17775) = Jac_FULL(3724,5252) - JVS(17775) = -B(23776) -! JVS(17776) = Jac_FULL(3724,5255) - JVS(17776) = -B(23774) -! JVS(17777) = Jac_FULL(3724,5256) - JVS(17777) = -B(23778) -! JVS(17778) = Jac_FULL(3725,1252) - JVS(17778) = B(16181) -! JVS(17779) = Jac_FULL(3725,3725) - JVS(17779) = -B(13113)-B(13115)-B(13117)-B(13119)-B(13120) -! JVS(17780) = Jac_FULL(3725,4505) - JVS(17780) = B(9659) -! JVS(17781) = Jac_FULL(3725,5250) - JVS(17781) = B(9660)+B(16182) -! JVS(17782) = Jac_FULL(3725,5252) - JVS(17782) = -B(13116) -! JVS(17783) = Jac_FULL(3725,5255) - JVS(17783) = -B(13114) -! JVS(17784) = Jac_FULL(3725,5256) - JVS(17784) = -B(13118) -! JVS(17785) = Jac_FULL(3726,814) - JVS(17785) = B(16180) -! JVS(17786) = Jac_FULL(3726,1680) - JVS(17786) = B(16184) -! JVS(17787) = Jac_FULL(3726,2262) - JVS(17787) = 0 -! JVS(17788) = Jac_FULL(3726,3725) - JVS(17788) = 0 -! JVS(17789) = Jac_FULL(3726,3726) - JVS(17789) = -B(13110)-B(13112) -! JVS(17790) = Jac_FULL(3726,3945) - JVS(17790) = 0 -! JVS(17791) = Jac_FULL(3726,4505) - JVS(17791) = B(9657) -! JVS(17792) = Jac_FULL(3726,5250) - JVS(17792) = -B(13111) -! JVS(17793) = Jac_FULL(3726,5252) - JVS(17793) = 0 -! JVS(17794) = Jac_FULL(3726,5255) - JVS(17794) = 0 -! JVS(17795) = Jac_FULL(3726,5256) - JVS(17795) = 0 -! JVS(17796) = Jac_FULL(3726,5258) - JVS(17796) = B(9658) -! JVS(17797) = Jac_FULL(3727,1898) - JVS(17797) = B(15910) -! JVS(17798) = Jac_FULL(3727,3727) - JVS(17798) = -B(12828)-B(12830)-B(12832)-B(12834)-B(12835)-B(12836) -! JVS(17799) = Jac_FULL(3727,4896) - JVS(17799) = B(9311) -! JVS(17800) = Jac_FULL(3727,5250) - JVS(17800) = B(9312)+B(15911) -! JVS(17801) = Jac_FULL(3727,5252) - JVS(17801) = -B(12831) -! JVS(17802) = Jac_FULL(3727,5255) - JVS(17802) = -B(12829) -! JVS(17803) = Jac_FULL(3727,5256) - JVS(17803) = -B(12833) -! JVS(17804) = Jac_FULL(3728,1127) - JVS(17804) = B(15436) -! JVS(17805) = Jac_FULL(3728,3728) - JVS(17805) = -B(12337)-B(12339)-B(12341)-B(12343) -! JVS(17806) = Jac_FULL(3728,4951) - JVS(17806) = B(8664) -! JVS(17807) = Jac_FULL(3728,5250) - JVS(17807) = B(15437) -! JVS(17808) = Jac_FULL(3728,5252) - JVS(17808) = -B(12340) -! JVS(17809) = Jac_FULL(3728,5255) - JVS(17809) = -B(12338) -! JVS(17810) = Jac_FULL(3728,5256) - JVS(17810) = B(8665)-B(12342) -! JVS(17811) = Jac_FULL(3729,809) - JVS(17811) = B(18175) -! JVS(17812) = Jac_FULL(3729,2093) - JVS(17812) = 0 -! JVS(17813) = Jac_FULL(3729,3729) - JVS(17813) = -B(19951)-B(19953) -! JVS(17814) = Jac_FULL(3729,4327) - JVS(17814) = 0 -! JVS(17815) = Jac_FULL(3729,5250) - JVS(17815) = -B(19952) -! JVS(17816) = Jac_FULL(3729,5252) - JVS(17816) = 0 -! JVS(17817) = Jac_FULL(3729,5255) - JVS(17817) = 0 -! JVS(17818) = Jac_FULL(3729,5256) - JVS(17818) = 0 -! JVS(17819) = Jac_FULL(3730,1032) - JVS(17819) = B(12051) -! JVS(17820) = Jac_FULL(3730,3109) - JVS(17820) = B(4727) -! JVS(17821) = Jac_FULL(3730,3730) - JVS(17821) = -B(8306)-B(8308)-B(8310)-B(8312) -! JVS(17822) = Jac_FULL(3730,4586) - JVS(17822) = 0 -! JVS(17823) = Jac_FULL(3730,5250) - JVS(17823) = B(4728)+B(12052) -! JVS(17824) = Jac_FULL(3730,5252) - JVS(17824) = -B(8309) -! JVS(17825) = Jac_FULL(3730,5255) - JVS(17825) = -B(8307) -! JVS(17826) = Jac_FULL(3730,5256) - JVS(17826) = -B(8311) -! JVS(17827) = Jac_FULL(3731,192) - JVS(17827) = B(4770) -! JVS(17828) = Jac_FULL(3731,1079) - JVS(17828) = 0 -! JVS(17829) = Jac_FULL(3731,1824) - JVS(17829) = 0 -! JVS(17830) = Jac_FULL(3731,3731) - JVS(17830) = -B(8360)-B(8362)-B(8364)-B(8366)-B(8368)-B(8369)-B(8370) -! JVS(17831) = Jac_FULL(3731,5107) - JVS(17831) = 0 -! JVS(17832) = Jac_FULL(3731,5250) - JVS(17832) = 0 -! JVS(17833) = Jac_FULL(3731,5252) - JVS(17833) = -B(8363)-B(8365) -! JVS(17834) = Jac_FULL(3731,5255) - JVS(17834) = -B(8361) -! JVS(17835) = Jac_FULL(3731,5256) - JVS(17835) = -B(8367) -! JVS(17836) = Jac_FULL(3732,746) - JVS(17836) = B(18318) -! JVS(17837) = Jac_FULL(3732,2351) - JVS(17837) = 0 -! JVS(17838) = Jac_FULL(3732,3732) - JVS(17838) = -B(20071)-B(20073) -! JVS(17839) = Jac_FULL(3732,4076) - JVS(17839) = 0 -! JVS(17840) = Jac_FULL(3732,5250) - JVS(17840) = -B(20072) -! JVS(17841) = Jac_FULL(3732,5252) - JVS(17841) = 0 -! JVS(17842) = Jac_FULL(3732,5255) - JVS(17842) = 0 -! JVS(17843) = Jac_FULL(3732,5256) - JVS(17843) = 0 -! JVS(17844) = Jac_FULL(3733,3733) - JVS(17844) = -B(7342)-B(7344)-B(7346)-B(7348)-B(7350)-B(7351)-B(7352) -! JVS(17845) = Jac_FULL(3733,5215) - JVS(17845) = B(3478) -! JVS(17846) = Jac_FULL(3733,5250) - JVS(17846) = B(3479) -! JVS(17847) = Jac_FULL(3733,5252) - JVS(17847) = -B(7345)-B(7347) -! JVS(17848) = Jac_FULL(3733,5255) - JVS(17848) = -B(7343) -! JVS(17849) = Jac_FULL(3733,5256) - JVS(17849) = -B(7349) -! JVS(17850) = Jac_FULL(3734,1280) - JVS(17850) = B(6843) -! JVS(17851) = Jac_FULL(3734,2544) - JVS(17851) = B(10611) -! JVS(17852) = Jac_FULL(3734,3010) - JVS(17852) = B(22957) -! JVS(17853) = Jac_FULL(3734,3734) - JVS(17853) = -B(10625)-B(10626) -! JVS(17854) = Jac_FULL(3734,4955) - JVS(17854) = 0 -! JVS(17855) = Jac_FULL(3734,5132) - JVS(17855) = 0 -! JVS(17856) = Jac_FULL(3734,5224) - JVS(17856) = B(6823) -! JVS(17857) = Jac_FULL(3734,5250) - JVS(17857) = B(6844)+B(10612)-B(10627)+B(22958) -! JVS(17858) = Jac_FULL(3734,5253) - JVS(17858) = 0 -! JVS(17859) = Jac_FULL(3734,5255) - JVS(17859) = 0 -! JVS(17860) = Jac_FULL(3735,2297) - JVS(17860) = B(3767) -! JVS(17861) = Jac_FULL(3735,3265) - JVS(17861) = B(3762) -! JVS(17862) = Jac_FULL(3735,3735) - JVS(17862) = -B(3772)-B(3774) -! JVS(17863) = Jac_FULL(3735,4714) - JVS(17863) = 0 -! JVS(17864) = Jac_FULL(3735,4767) - JVS(17864) = B(1051) -! JVS(17865) = Jac_FULL(3735,4858) - JVS(17865) = B(3255) -! JVS(17866) = Jac_FULL(3735,5250) - JVS(17866) = B(3763)+B(3768)-B(3773) -! JVS(17867) = Jac_FULL(3735,5252) - JVS(17867) = 0 -! JVS(17868) = Jac_FULL(3735,5255) - JVS(17868) = 0 -! JVS(17869) = Jac_FULL(3736,415) - JVS(17869) = B(23121) -! JVS(17870) = Jac_FULL(3736,1162) - JVS(17870) = B(23111) -! JVS(17871) = Jac_FULL(3736,2164) - JVS(17871) = B(23114) -! JVS(17872) = Jac_FULL(3736,3736) - JVS(17872) = -B(23119) -! JVS(17873) = Jac_FULL(3736,3737) - JVS(17873) = B(23117) -! JVS(17874) = Jac_FULL(3736,4672) - JVS(17874) = B(22670) -! JVS(17875) = Jac_FULL(3736,5250) - JVS(17875) = B(23112)+B(23115)-B(23120)+B(23122) -! JVS(17876) = Jac_FULL(3736,5252) - JVS(17876) = 0 -! JVS(17877) = Jac_FULL(3736,5255) - JVS(17877) = 0 -! JVS(17878) = Jac_FULL(3737,1162) - JVS(17878) = B(23113) -! JVS(17879) = Jac_FULL(3737,2164) - JVS(17879) = B(23116) -! JVS(17880) = Jac_FULL(3737,3737) - JVS(17880) = -B(23117)-B(23118) -! JVS(17881) = Jac_FULL(3737,4672) - JVS(17881) = B(22666)+B(22668)+B(22671) -! JVS(17882) = Jac_FULL(3737,5250) - JVS(17882) = 0 -! JVS(17883) = Jac_FULL(3737,5252) - JVS(17883) = B(22667) -! JVS(17884) = Jac_FULL(3737,5255) - JVS(17884) = 0 -! JVS(17885) = Jac_FULL(3737,5256) - JVS(17885) = B(22669) -! JVS(17886) = Jac_FULL(3738,2294) - JVS(17886) = B(18441) -! JVS(17887) = Jac_FULL(3738,2398) - JVS(17887) = B(12977) -! JVS(17888) = Jac_FULL(3738,3738) - JVS(17888) = -B(16053)-B(16055)-B(16057)-B(16059) -! JVS(17889) = Jac_FULL(3738,4743) - JVS(17889) = 0 -! JVS(17890) = Jac_FULL(3738,5250) - JVS(17890) = B(18442) -! JVS(17891) = Jac_FULL(3738,5252) - JVS(17891) = -B(16056) -! JVS(17892) = Jac_FULL(3738,5255) - JVS(17892) = -B(16054) -! JVS(17893) = Jac_FULL(3738,5256) - JVS(17893) = B(12978)-B(16058) -! JVS(17894) = Jac_FULL(3739,2053) - JVS(17894) = B(15703) -! JVS(17895) = Jac_FULL(3739,3739) - JVS(17895) = -B(12629)-B(12631)-B(12633)-B(12635) -! JVS(17896) = Jac_FULL(3739,4895) - JVS(17896) = B(9051) -! JVS(17897) = Jac_FULL(3739,5250) - JVS(17897) = B(15704) -! JVS(17898) = Jac_FULL(3739,5252) - JVS(17898) = -B(12632) -! JVS(17899) = Jac_FULL(3739,5255) - JVS(17899) = -B(12630) -! JVS(17900) = Jac_FULL(3739,5256) - JVS(17900) = B(9052)-B(12634) -! JVS(17901) = Jac_FULL(3740,1775) - JVS(17901) = B(12414) -! JVS(17902) = Jac_FULL(3740,3740) - JVS(17902) = -B(15499)-B(15501)-B(15503)-B(15505)-B(15506)-B(15507) -! JVS(17903) = Jac_FULL(3740,4603) - JVS(17903) = 0 -! JVS(17904) = Jac_FULL(3740,5250) - JVS(17904) = B(12415) -! JVS(17905) = Jac_FULL(3740,5252) - JVS(17905) = -B(15502) -! JVS(17906) = Jac_FULL(3740,5255) - JVS(17906) = -B(15500) -! JVS(17907) = Jac_FULL(3740,5256) - JVS(17907) = -B(15504) -! JVS(17908) = Jac_FULL(3741,271) - JVS(17908) = B(11091) -! JVS(17909) = Jac_FULL(3741,599) - JVS(17909) = 0 -! JVS(17910) = Jac_FULL(3741,1324) - JVS(17910) = B(16921) -! JVS(17911) = Jac_FULL(3741,2002) - JVS(17911) = 0 -! JVS(17912) = Jac_FULL(3741,2313) - JVS(17912) = 0 -! JVS(17913) = Jac_FULL(3741,3741) - JVS(17913) = -B(14289)-B(14291)-B(14293)-B(14295)-B(14296) -! JVS(17914) = Jac_FULL(3741,5198) - JVS(17914) = 0 -! JVS(17915) = Jac_FULL(3741,5250) - JVS(17915) = B(16922) -! JVS(17916) = Jac_FULL(3741,5252) - JVS(17916) = -B(14292) -! JVS(17917) = Jac_FULL(3741,5255) - JVS(17917) = -B(14290) -! JVS(17918) = Jac_FULL(3741,5256) - JVS(17918) = -B(14294) -! JVS(17919) = Jac_FULL(3742,753) - JVS(17919) = B(18240) -! JVS(17920) = Jac_FULL(3742,1979) - JVS(17920) = 0 -! JVS(17921) = Jac_FULL(3742,3679) - JVS(17921) = 0 -! JVS(17922) = Jac_FULL(3742,3742) - JVS(17922) = -B(20023)-B(20025) -! JVS(17923) = Jac_FULL(3742,4448) - JVS(17923) = 0 -! JVS(17924) = Jac_FULL(3742,5250) - JVS(17924) = -B(20024) -! JVS(17925) = Jac_FULL(3742,5252) - JVS(17925) = 0 -! JVS(17926) = Jac_FULL(3742,5255) - JVS(17926) = 0 -! JVS(17927) = Jac_FULL(3742,5256) - JVS(17927) = 0 -! JVS(17928) = Jac_FULL(3743,360) - JVS(17928) = B(23040) -! JVS(17929) = Jac_FULL(3743,1250) - JVS(17929) = B(23028) -! JVS(17930) = Jac_FULL(3743,3743) - JVS(17930) = -B(23029)-B(23031)-B(23033)-B(23035)-B(23037)-B(23038)-B(23039) -! JVS(17931) = Jac_FULL(3743,4681) - JVS(17931) = B(22596)+B(22600)+B(22604)+B(22606) -! JVS(17932) = Jac_FULL(3743,5250) - JVS(17932) = B(23041) -! JVS(17933) = Jac_FULL(3743,5252) - JVS(17933) = B(22601)-B(23032)-B(23034) -! JVS(17934) = Jac_FULL(3743,5255) - JVS(17934) = B(22597)-B(23030) -! JVS(17935) = Jac_FULL(3743,5256) - JVS(17935) = B(22605)-B(23036) -! JVS(17936) = Jac_FULL(3744,2174) - JVS(17936) = B(7247) -! JVS(17937) = Jac_FULL(3744,3744) - JVS(17937) = -B(7248)-B(7249) -! JVS(17938) = Jac_FULL(3744,4925) - JVS(17938) = B(3417)+B(3419)+B(3422) -! JVS(17939) = Jac_FULL(3744,5250) - JVS(17939) = 0 -! JVS(17940) = Jac_FULL(3744,5252) - JVS(17940) = B(3418) -! JVS(17941) = Jac_FULL(3744,5255) - JVS(17941) = 0 -! JVS(17942) = Jac_FULL(3744,5256) - JVS(17942) = B(3420) -! JVS(17943) = Jac_FULL(3745,1043) - JVS(17943) = B(14234) -! JVS(17944) = Jac_FULL(3745,3090) - JVS(17944) = B(7252) -! JVS(17945) = Jac_FULL(3745,3744) - JVS(17945) = 0 -! JVS(17946) = Jac_FULL(3745,3745) - JVS(17946) = -B(11039)-B(11041)-B(11043)-B(11045) -! JVS(17947) = Jac_FULL(3745,4925) - JVS(17947) = 0 -! JVS(17948) = Jac_FULL(3745,5250) - JVS(17948) = B(7253)+B(14235) -! JVS(17949) = Jac_FULL(3745,5252) - JVS(17949) = -B(11042) -! JVS(17950) = Jac_FULL(3745,5255) - JVS(17950) = -B(11040) -! JVS(17951) = Jac_FULL(3745,5256) - JVS(17951) = -B(11044) -! JVS(17952) = Jac_FULL(3746,1335) - JVS(17952) = B(21452) -! JVS(17953) = Jac_FULL(3746,1845) - JVS(17953) = B(18493) -! JVS(17954) = Jac_FULL(3746,3746) - JVS(17954) = -B(20165)-B(20167)-B(20169)-B(20171)-B(20172) -! JVS(17955) = Jac_FULL(3746,4379) - JVS(17955) = 0 -! JVS(17956) = Jac_FULL(3746,5250) - JVS(17956) = B(18494)+B(21453) -! JVS(17957) = Jac_FULL(3746,5252) - JVS(17957) = -B(20168) -! JVS(17958) = Jac_FULL(3746,5255) - JVS(17958) = -B(20166) -! JVS(17959) = Jac_FULL(3746,5256) - JVS(17959) = -B(20170) -! JVS(17960) = Jac_FULL(3747,895) - JVS(17960) = B(12017) -! JVS(17961) = Jac_FULL(3747,1010) - JVS(17961) = B(12024) -! JVS(17962) = Jac_FULL(3747,2291) - JVS(17962) = B(12027) -! JVS(17963) = Jac_FULL(3747,2361) - JVS(17963) = B(12016) -! JVS(17964) = Jac_FULL(3747,3212) - JVS(17964) = 0 -! JVS(17965) = Jac_FULL(3747,3393) - JVS(17965) = B(12029) -! JVS(17966) = Jac_FULL(3747,3747) - JVS(17966) = -B(12031)-B(12032)-B(12034) -! JVS(17967) = Jac_FULL(3747,4577) - JVS(17967) = B(8294) -! JVS(17968) = Jac_FULL(3747,4722) - JVS(17968) = 0 -! JVS(17969) = Jac_FULL(3747,5250) - JVS(17969) = B(12018)+B(12025)+B(12028)-B(12033)-B(12035) -! JVS(17970) = Jac_FULL(3747,5252) - JVS(17970) = 0 -! JVS(17971) = Jac_FULL(3747,5255) - JVS(17971) = 0 -! JVS(17972) = Jac_FULL(3747,5256) - JVS(17972) = 0 -! JVS(17973) = Jac_FULL(3748,792) - JVS(17973) = B(15913) -! JVS(17974) = Jac_FULL(3748,1133) - JVS(17974) = B(15914) -! JVS(17975) = Jac_FULL(3748,1898) - JVS(17975) = 0 -! JVS(17976) = Jac_FULL(3748,3396) - JVS(17976) = B(15903) -! JVS(17977) = Jac_FULL(3748,3713) - JVS(17977) = 0 -! JVS(17978) = Jac_FULL(3748,3727) - JVS(17978) = 0 -! JVS(17979) = Jac_FULL(3748,3748) - JVS(17979) = -B(18339)-B(18341)-B(18343) -! JVS(17980) = Jac_FULL(3748,4896) - JVS(17980) = 0 -! JVS(17981) = Jac_FULL(3748,5250) - JVS(17981) = B(15915)-B(18342) -! JVS(17982) = Jac_FULL(3748,5252) - JVS(17982) = 0 -! JVS(17983) = Jac_FULL(3748,5255) - JVS(17983) = 0 -! JVS(17984) = Jac_FULL(3748,5256) - JVS(17984) = -B(18340) -! JVS(17985) = Jac_FULL(3749,177) - JVS(17985) = B(4746) -! JVS(17986) = Jac_FULL(3749,1491) - JVS(17986) = 0 -! JVS(17987) = Jac_FULL(3749,2161) - JVS(17987) = 0 -! JVS(17988) = Jac_FULL(3749,3749) - JVS(17988) = -B(8324)-B(8326)-B(8328)-B(8330)-B(8332)-B(8333)-B(8334) -! JVS(17989) = Jac_FULL(3749,5144) - JVS(17989) = 0 -! JVS(17990) = Jac_FULL(3749,5250) - JVS(17990) = 0 -! JVS(17991) = Jac_FULL(3749,5252) - JVS(17991) = -B(8327)-B(8329) -! JVS(17992) = Jac_FULL(3749,5255) - JVS(17992) = -B(8325) -! JVS(17993) = Jac_FULL(3749,5256) - JVS(17993) = -B(8331) -! JVS(17994) = Jac_FULL(3750,2056) - JVS(17994) = B(21836) -! JVS(17995) = Jac_FULL(3750,2532) - JVS(17995) = 0 -! JVS(17996) = Jac_FULL(3750,3750) - JVS(17996) = -B(22451)-B(22453)-B(22455)-B(22457)-B(22459)-B(22460)-B(22461) -! JVS(17997) = Jac_FULL(3750,3845) - JVS(17997) = 0 -! JVS(17998) = Jac_FULL(3750,5250) - JVS(17998) = 0 -! JVS(17999) = Jac_FULL(3750,5252) - JVS(17999) = -B(22454)-B(22456) -! JVS(18000) = Jac_FULL(3750,5255) - JVS(18000) = -B(22452) -! JVS(18001) = Jac_FULL(3750,5256) - JVS(18001) = -B(22458) -! JVS(18002) = Jac_FULL(3751,197) - JVS(18002) = B(4758) -! JVS(18003) = Jac_FULL(3751,1259) - JVS(18003) = 0 -! JVS(18004) = Jac_FULL(3751,2216) - JVS(18004) = 0 -! JVS(18005) = Jac_FULL(3751,3751) - JVS(18005) = -B(8342)-B(8344)-B(8346)-B(8348)-B(8350)-B(8351)-B(8352) -! JVS(18006) = Jac_FULL(3751,5112) - JVS(18006) = 0 -! JVS(18007) = Jac_FULL(3751,5250) - JVS(18007) = 0 -! JVS(18008) = Jac_FULL(3751,5252) - JVS(18008) = -B(8345)-B(8347) -! JVS(18009) = Jac_FULL(3751,5255) - JVS(18009) = -B(8343) -! JVS(18010) = Jac_FULL(3751,5256) - JVS(18010) = -B(8349) -! JVS(18011) = Jac_FULL(3752,944) - JVS(18011) = B(15598) -! JVS(18012) = Jac_FULL(3752,3752) - JVS(18012) = -B(12486)-B(12488)-B(12490)-B(12492)-B(12493) -! JVS(18013) = Jac_FULL(3752,4952) - JVS(18013) = B(8838) -! JVS(18014) = Jac_FULL(3752,5250) - JVS(18014) = B(8839)+B(15599) -! JVS(18015) = Jac_FULL(3752,5252) - JVS(18015) = -B(12489) -! JVS(18016) = Jac_FULL(3752,5255) - JVS(18016) = -B(12487) -! JVS(18017) = Jac_FULL(3752,5256) - JVS(18017) = -B(12491) -! JVS(18018) = Jac_FULL(3753,1412) - JVS(18018) = B(18669) -! JVS(18019) = Jac_FULL(3753,2390) - JVS(18019) = B(13349) -! JVS(18020) = Jac_FULL(3753,3753) - JVS(18020) = -B(16383)-B(16385)-B(16387)-B(16389)-B(16390) -! JVS(18021) = Jac_FULL(3753,4533) - JVS(18021) = 0 -! JVS(18022) = Jac_FULL(3753,5250) - JVS(18022) = B(13350)+B(18670) -! JVS(18023) = Jac_FULL(3753,5252) - JVS(18023) = -B(16386) -! JVS(18024) = Jac_FULL(3753,5255) - JVS(18024) = -B(16384) -! JVS(18025) = Jac_FULL(3753,5256) - JVS(18025) = -B(16388) -! JVS(18026) = Jac_FULL(3754,102) - JVS(18026) = B(5599) -! JVS(18027) = Jac_FULL(3754,1533) - JVS(18027) = B(5592) -! JVS(18028) = Jac_FULL(3754,2782) - JVS(18028) = B(5595) -! JVS(18029) = Jac_FULL(3754,3754) - JVS(18029) = -B(5596)-B(5597)-B(5598) -! JVS(18030) = Jac_FULL(3754,4529) - JVS(18030) = B(2519)+B(2521)+B(2523) -! JVS(18031) = Jac_FULL(3754,5250) - JVS(18031) = B(5600) -! JVS(18032) = Jac_FULL(3754,5252) - JVS(18032) = B(2520) -! JVS(18033) = Jac_FULL(3754,5255) - JVS(18033) = 0 -! JVS(18034) = Jac_FULL(3754,5256) - JVS(18034) = B(2522) -! JVS(18035) = Jac_FULL(3755,1120) - JVS(18035) = B(4070) -! JVS(18036) = Jac_FULL(3755,1894) - JVS(18036) = B(4023) -! JVS(18037) = Jac_FULL(3755,3243) - JVS(18037) = B(4061) -! JVS(18038) = Jac_FULL(3755,3755) - JVS(18038) = -B(4067)-B(4069) -! JVS(18039) = Jac_FULL(3755,4364) - JVS(18039) = 0 -! JVS(18040) = Jac_FULL(3755,4554) - JVS(18040) = 0 -! JVS(18041) = Jac_FULL(3755,4596) - JVS(18041) = B(1266) -! JVS(18042) = Jac_FULL(3755,5250) - JVS(18042) = B(4024)+B(4062)-B(4068)+B(4071) -! JVS(18043) = Jac_FULL(3755,5252) - JVS(18043) = 0 -! JVS(18044) = Jac_FULL(3755,5255) - JVS(18044) = 0 -! JVS(18045) = Jac_FULL(3756,815) - JVS(18045) = B(12317) -! JVS(18046) = Jac_FULL(3756,2166) - JVS(18046) = 0 -! JVS(18047) = Jac_FULL(3756,2940) - JVS(18047) = B(14136) -! JVS(18048) = Jac_FULL(3756,3756) - JVS(18048) = -B(14142)-B(14144) -! JVS(18049) = Jac_FULL(3756,4590) - JVS(18049) = 0 -! JVS(18050) = Jac_FULL(3756,4827) - JVS(18050) = B(10945) -! JVS(18051) = Jac_FULL(3756,5250) - JVS(18051) = B(14137)-B(14143) -! JVS(18052) = Jac_FULL(3756,5252) - JVS(18052) = 0 -! JVS(18053) = Jac_FULL(3756,5255) - JVS(18053) = 0 -! JVS(18054) = Jac_FULL(3756,5256) - JVS(18054) = 0 -! JVS(18055) = Jac_FULL(3757,1767) - JVS(18055) = B(5172) -! JVS(18056) = Jac_FULL(3757,2370) - JVS(18056) = B(5156) -! JVS(18057) = Jac_FULL(3757,3757) - JVS(18057) = -B(5178)-B(5180) -! JVS(18058) = Jac_FULL(3757,4390) - JVS(18058) = B(3324) -! JVS(18059) = Jac_FULL(3757,4607) - JVS(18059) = B(2309) -! JVS(18060) = Jac_FULL(3757,4884) - JVS(18060) = 0 -! JVS(18061) = Jac_FULL(3757,5250) - JVS(18061) = B(5157)+B(5173)-B(5179) -! JVS(18062) = Jac_FULL(3757,5252) - JVS(18062) = 0 -! JVS(18063) = Jac_FULL(3757,5255) - JVS(18063) = 0 -! JVS(18064) = Jac_FULL(3758,2127) - JVS(18064) = B(11609) -! JVS(18065) = Jac_FULL(3758,2926) - JVS(18065) = B(4221) -! JVS(18066) = Jac_FULL(3758,3758) - JVS(18066) = -B(7856)-B(7858)-B(7860)-B(7862)-B(7864)-B(7865)-B(7866) -! JVS(18067) = Jac_FULL(3758,5208) - JVS(18067) = 0 -! JVS(18068) = Jac_FULL(3758,5250) - JVS(18068) = B(11610) -! JVS(18069) = Jac_FULL(3758,5252) - JVS(18069) = -B(7859)-B(7861) -! JVS(18070) = Jac_FULL(3758,5255) - JVS(18070) = -B(7857) -! JVS(18071) = Jac_FULL(3758,5256) - JVS(18071) = -B(7863) -! JVS(18072) = Jac_FULL(3759,590) - JVS(18072) = B(17532) -! JVS(18073) = Jac_FULL(3759,1204) - JVS(18073) = B(17525) -! JVS(18074) = Jac_FULL(3759,1670) - JVS(18074) = B(12302) -! JVS(18075) = Jac_FULL(3759,2270) - JVS(18075) = B(17528) -! JVS(18076) = Jac_FULL(3759,2466) - JVS(18076) = B(12298) -! JVS(18077) = Jac_FULL(3759,3759) - JVS(18077) = -B(12305)-B(12306) -! JVS(18078) = Jac_FULL(3759,4735) - JVS(18078) = B(14972) -! JVS(18079) = Jac_FULL(3759,4889) - JVS(18079) = B(8634) -! JVS(18080) = Jac_FULL(3759,5250) - JVS(18080) = B(12299)+B(12303)-B(12307)+B(17526)+B(17529)+B(17533) -! JVS(18081) = Jac_FULL(3759,5252) - JVS(18081) = 0 -! JVS(18082) = Jac_FULL(3759,5255) - JVS(18082) = 0 -! JVS(18083) = Jac_FULL(3760,541) - JVS(18083) = B(19079) -! JVS(18084) = Jac_FULL(3760,1164) - JVS(18084) = B(21695) -! JVS(18085) = Jac_FULL(3760,2423) - JVS(18085) = 0 -! JVS(18086) = Jac_FULL(3760,3760) - JVS(18086) = -B(20653)-B(20655)-B(20657)-B(20659) -! JVS(18087) = Jac_FULL(3760,3905) - JVS(18087) = 0 -! JVS(18088) = Jac_FULL(3760,5250) - JVS(18088) = B(21696) -! JVS(18089) = Jac_FULL(3760,5252) - JVS(18089) = -B(20656) -! JVS(18090) = Jac_FULL(3760,5255) - JVS(18090) = -B(20654) -! JVS(18091) = Jac_FULL(3760,5256) - JVS(18091) = -B(20658) -! JVS(18092) = Jac_FULL(3761,146) - JVS(18092) = B(16920) -! JVS(18093) = Jac_FULL(3761,1203) - JVS(18093) = B(20696) -! JVS(18094) = Jac_FULL(3761,1383) - JVS(18094) = 0 -! JVS(18095) = Jac_FULL(3761,3761) - JVS(18095) = -B(19110)-B(19112)-B(19114)-B(19116) -! JVS(18096) = Jac_FULL(3761,4898) - JVS(18096) = 0 -! JVS(18097) = Jac_FULL(3761,5250) - JVS(18097) = B(20697) -! JVS(18098) = Jac_FULL(3761,5252) - JVS(18098) = -B(19113) -! JVS(18099) = Jac_FULL(3761,5255) - JVS(18099) = -B(19111) -! JVS(18100) = Jac_FULL(3761,5256) - JVS(18100) = -B(19115) -! JVS(18101) = Jac_FULL(3762,2446) - JVS(18101) = B(16110) -! JVS(18102) = Jac_FULL(3762,3762) - JVS(18102) = -B(13020)-B(13022)-B(13024)-B(13026)-B(13027)-B(13028) -! JVS(18103) = Jac_FULL(3762,4650) - JVS(18103) = B(9543) -! JVS(18104) = Jac_FULL(3762,5250) - JVS(18104) = B(9544)+B(16111) -! JVS(18105) = Jac_FULL(3762,5252) - JVS(18105) = -B(13023) -! JVS(18106) = Jac_FULL(3762,5255) - JVS(18106) = -B(13021) -! JVS(18107) = Jac_FULL(3762,5256) - JVS(18107) = -B(13025) -! JVS(18108) = Jac_FULL(3763,552) - JVS(18108) = B(6612) -! JVS(18109) = Jac_FULL(3763,969) - JVS(18109) = B(6610) -! JVS(18110) = Jac_FULL(3763,3636) - JVS(18110) = B(3036) -! JVS(18111) = Jac_FULL(3763,3763) - JVS(18111) = -B(6615)-B(6616) -! JVS(18112) = Jac_FULL(3763,5153) - JVS(18112) = 0 -! JVS(18113) = Jac_FULL(3763,5250) - JVS(18113) = B(6611)-B(6617) -! JVS(18114) = Jac_FULL(3763,5252) - JVS(18114) = 0 -! JVS(18115) = Jac_FULL(3763,5255) - JVS(18115) = 0 -! JVS(18116) = Jac_FULL(3763,5256) - JVS(18116) = 0 -! JVS(18117) = Jac_FULL(3764,215) - JVS(18117) = B(21010) -! JVS(18118) = Jac_FULL(3764,1233) - JVS(18118) = B(21014) -! JVS(18119) = Jac_FULL(3764,3764) - JVS(18119) = -B(21015)-B(21017)-B(21019)-B(21021)-B(21023)-B(21024)-B(21025) -! JVS(18120) = Jac_FULL(3764,4431) - JVS(18120) = B(19454)+B(19456)+B(19460)+B(19463) -! JVS(18121) = Jac_FULL(3764,5250) - JVS(18121) = B(21011) -! JVS(18122) = Jac_FULL(3764,5252) - JVS(18122) = B(19457)-B(21018)-B(21020) -! JVS(18123) = Jac_FULL(3764,5255) - JVS(18123) = B(19455)-B(21016) -! JVS(18124) = Jac_FULL(3764,5256) - JVS(18124) = B(19461)-B(21022) -! JVS(18125) = Jac_FULL(3765,2603) - JVS(18125) = B(13226) -! JVS(18126) = Jac_FULL(3765,3765) - JVS(18126) = -B(13222)-B(13223) -! JVS(18127) = Jac_FULL(3765,4694) - JVS(18127) = B(13206) -! JVS(18128) = Jac_FULL(3765,4985) - JVS(18128) = B(9818)+B(9822)+B(9826)+B(9828) -! JVS(18129) = Jac_FULL(3765,5250) - JVS(18129) = B(13207) -! JVS(18130) = Jac_FULL(3765,5252) - JVS(18130) = B(9823) -! JVS(18131) = Jac_FULL(3765,5255) - JVS(18131) = B(9819) -! JVS(18132) = Jac_FULL(3765,5256) - JVS(18132) = B(9827) -! JVS(18133) = Jac_FULL(3766,1410) - JVS(18133) = B(12120) -! JVS(18134) = Jac_FULL(3766,3166) - JVS(18134) = B(4772) -! JVS(18135) = Jac_FULL(3766,3766) - JVS(18135) = -B(8371)-B(8373)-B(8375)-B(8377) -! JVS(18136) = Jac_FULL(3766,5107) - JVS(18136) = 0 -! JVS(18137) = Jac_FULL(3766,5250) - JVS(18137) = B(4773)+B(12121) -! JVS(18138) = Jac_FULL(3766,5252) - JVS(18138) = -B(8374) -! JVS(18139) = Jac_FULL(3766,5255) - JVS(18139) = -B(8372) -! JVS(18140) = Jac_FULL(3766,5256) - JVS(18140) = -B(8376) -! JVS(18141) = Jac_FULL(3767,1141) - JVS(18141) = B(4884) -! JVS(18142) = Jac_FULL(3767,3767) - JVS(18142) = -B(4885)-B(4886) -! JVS(18143) = Jac_FULL(3767,4387) - JVS(18143) = B(2055)+B(2057)+B(2061) -! JVS(18144) = Jac_FULL(3767,5250) - JVS(18144) = 0 -! JVS(18145) = Jac_FULL(3767,5252) - JVS(18145) = B(2056) -! JVS(18146) = Jac_FULL(3767,5255) - JVS(18146) = 0 -! JVS(18147) = Jac_FULL(3767,5256) - JVS(18147) = B(2058) -! JVS(18148) = Jac_FULL(3768,1374) - JVS(18148) = B(12102) -! JVS(18149) = Jac_FULL(3768,3117) - JVS(18149) = B(4760) -! JVS(18150) = Jac_FULL(3768,3768) - JVS(18150) = -B(8353)-B(8355)-B(8357)-B(8359) -! JVS(18151) = Jac_FULL(3768,5112) - JVS(18151) = 0 -! JVS(18152) = Jac_FULL(3768,5250) - JVS(18152) = B(4761)+B(12103) -! JVS(18153) = Jac_FULL(3768,5252) - JVS(18153) = -B(8356) -! JVS(18154) = Jac_FULL(3768,5255) - JVS(18154) = -B(8354) -! JVS(18155) = Jac_FULL(3768,5256) - JVS(18155) = -B(8358) -! JVS(18156) = Jac_FULL(3769,1497) - JVS(18156) = B(18284) -! JVS(18157) = Jac_FULL(3769,2167) - JVS(18157) = B(12754) -! JVS(18158) = Jac_FULL(3769,3769) - JVS(18158) = -B(15819)-B(15821)-B(15823)-B(15825)-B(15826) -! JVS(18159) = Jac_FULL(3769,4012) - JVS(18159) = 0 -! JVS(18160) = Jac_FULL(3769,5250) - JVS(18160) = B(12755)+B(18285) -! JVS(18161) = Jac_FULL(3769,5252) - JVS(18161) = -B(15822) -! JVS(18162) = Jac_FULL(3769,5255) - JVS(18162) = -B(15820) -! JVS(18163) = Jac_FULL(3769,5256) - JVS(18163) = -B(15824) -! JVS(18164) = Jac_FULL(3770,2420) - JVS(18164) = B(13290) -! JVS(18165) = Jac_FULL(3770,3770) - JVS(18165) = -B(16284)-B(16286)-B(16288)-B(16290)-B(16291)-B(16292) -! JVS(18166) = Jac_FULL(3770,4152) - JVS(18166) = 0 -! JVS(18167) = Jac_FULL(3770,5250) - JVS(18167) = B(13291) -! JVS(18168) = Jac_FULL(3770,5252) - JVS(18168) = -B(16287) -! JVS(18169) = Jac_FULL(3770,5255) - JVS(18169) = -B(16285) -! JVS(18170) = Jac_FULL(3770,5256) - JVS(18170) = -B(16289) -! JVS(18171) = Jac_FULL(3771,1062) - JVS(18171) = B(18551) -! JVS(18172) = Jac_FULL(3771,2048) - JVS(18172) = B(13193) -! JVS(18173) = Jac_FULL(3771,3771) - JVS(18173) = -B(16232)-B(16234)-B(16236)-B(16238)-B(16239) -! JVS(18174) = Jac_FULL(3771,4322) - JVS(18174) = 0 -! JVS(18175) = Jac_FULL(3771,5250) - JVS(18175) = B(13194)+B(18552) -! JVS(18176) = Jac_FULL(3771,5252) - JVS(18176) = -B(16235) -! JVS(18177) = Jac_FULL(3771,5255) - JVS(18177) = -B(16233) -! JVS(18178) = Jac_FULL(3771,5256) - JVS(18178) = -B(16237) -! JVS(18179) = Jac_FULL(3772,1388) - JVS(18179) = B(15998) -! JVS(18180) = Jac_FULL(3772,3772) - JVS(18180) = -B(12910)-B(12912)-B(12914)-B(12916) -! JVS(18181) = Jac_FULL(3772,4637) - JVS(18181) = B(9428) -! JVS(18182) = Jac_FULL(3772,5250) - JVS(18182) = B(15999) -! JVS(18183) = Jac_FULL(3772,5252) - JVS(18183) = -B(12913) -! JVS(18184) = Jac_FULL(3772,5255) - JVS(18184) = -B(12911) -! JVS(18185) = Jac_FULL(3772,5256) - JVS(18185) = B(9429)-B(12915) -! JVS(18186) = Jac_FULL(3773,620) - JVS(18186) = B(16011) -! JVS(18187) = Jac_FULL(3773,911) - JVS(18187) = B(16012) -! JVS(18188) = Jac_FULL(3773,1861) - JVS(18188) = 0 -! JVS(18189) = Jac_FULL(3773,3423) - JVS(18189) = B(16001) -! JVS(18190) = Jac_FULL(3773,3696) - JVS(18190) = 0 -! JVS(18191) = Jac_FULL(3773,3772) - JVS(18191) = 0 -! JVS(18192) = Jac_FULL(3773,3773) - JVS(18192) = -B(18410)-B(18412)-B(18414) -! JVS(18193) = Jac_FULL(3773,4637) - JVS(18193) = 0 -! JVS(18194) = Jac_FULL(3773,5250) - JVS(18194) = B(16013)-B(18413) -! JVS(18195) = Jac_FULL(3773,5252) - JVS(18195) = 0 -! JVS(18196) = Jac_FULL(3773,5255) - JVS(18196) = 0 -! JVS(18197) = Jac_FULL(3773,5256) - JVS(18197) = -B(18411) -! JVS(18198) = Jac_FULL(3774,1123) - JVS(18198) = B(16100) -! JVS(18199) = Jac_FULL(3774,3774) - JVS(18199) = -B(13004)-B(13006)-B(13008)-B(13010) -! JVS(18200) = Jac_FULL(3774,4650) - JVS(18200) = B(9539) -! JVS(18201) = Jac_FULL(3774,5250) - JVS(18201) = B(16101) -! JVS(18202) = Jac_FULL(3774,5252) - JVS(18202) = -B(13007) -! JVS(18203) = Jac_FULL(3774,5255) - JVS(18203) = -B(13005) -! JVS(18204) = Jac_FULL(3774,5256) - JVS(18204) = B(9540)-B(13009) -! JVS(18205) = Jac_FULL(3775,716) - JVS(18205) = B(16113) -! JVS(18206) = Jac_FULL(3775,1231) - JVS(18206) = B(16114) -! JVS(18207) = Jac_FULL(3775,2446) - JVS(18207) = 0 -! JVS(18208) = Jac_FULL(3775,3380) - JVS(18208) = B(16103) -! JVS(18209) = Jac_FULL(3775,3762) - JVS(18209) = 0 -! JVS(18210) = Jac_FULL(3775,3774) - JVS(18210) = 0 -! JVS(18211) = Jac_FULL(3775,3775) - JVS(18211) = -B(18477)-B(18479)-B(18481) -! JVS(18212) = Jac_FULL(3775,4650) - JVS(18212) = 0 -! JVS(18213) = Jac_FULL(3775,5250) - JVS(18213) = B(16115)-B(18480) -! JVS(18214) = Jac_FULL(3775,5252) - JVS(18214) = 0 -! JVS(18215) = Jac_FULL(3775,5255) - JVS(18215) = 0 -! JVS(18216) = Jac_FULL(3775,5256) - JVS(18216) = -B(18478) -! JVS(18217) = Jac_FULL(3776,250) - JVS(18217) = B(601) -! JVS(18218) = Jac_FULL(3776,276) - JVS(18218) = B(12767) -! JVS(18219) = Jac_FULL(3776,867) - JVS(18219) = B(12771) -! JVS(18220) = Jac_FULL(3776,3649) - JVS(18220) = B(5673) -! JVS(18221) = Jac_FULL(3776,3776) - JVS(18221) = -B(2373)-B(2375)-B(2377)-B(2379)-B(2381)-B(2382)-B(2383) -! JVS(18222) = Jac_FULL(3776,4187) - JVS(18222) = B(9254)+B(9256)+B(9260)+B(9263) -! JVS(18223) = Jac_FULL(3776,5250) - JVS(18223) = B(602)+B(12768) -! JVS(18224) = Jac_FULL(3776,5252) - JVS(18224) = -B(2376)-B(2378)+B(9257) -! JVS(18225) = Jac_FULL(3776,5255) - JVS(18225) = -B(2374)+B(9255) -! JVS(18226) = Jac_FULL(3776,5256) - JVS(18226) = -B(2380)+B(9261) -! JVS(18227) = Jac_FULL(3777,314) - JVS(18227) = B(12001) -! JVS(18228) = Jac_FULL(3777,1945) - JVS(18228) = B(12000) -! JVS(18229) = Jac_FULL(3777,2917) - JVS(18229) = 0 -! JVS(18230) = Jac_FULL(3777,3777) - JVS(18230) = -B(15189)-B(15190)-B(15192) -! JVS(18231) = Jac_FULL(3777,5108) - JVS(18231) = 0 -! JVS(18232) = Jac_FULL(3777,5250) - JVS(18232) = B(12002)-B(15191)-B(15193) -! JVS(18233) = Jac_FULL(3777,5252) - JVS(18233) = 0 -! JVS(18234) = Jac_FULL(3777,5255) - JVS(18234) = 0 -! JVS(18235) = Jac_FULL(3777,5256) - JVS(18235) = 0 -! JVS(18236) = Jac_FULL(3778,2233) - JVS(18236) = B(11853) -! JVS(18237) = Jac_FULL(3778,2933) - JVS(18237) = B(4570) -! JVS(18238) = Jac_FULL(3778,3778) - JVS(18238) = -B(8114)-B(8116)-B(8118)-B(8120)-B(8122)-B(8123)-B(8124) -! JVS(18239) = Jac_FULL(3778,5056) - JVS(18239) = 0 -! JVS(18240) = Jac_FULL(3778,5250) - JVS(18240) = B(11854) -! JVS(18241) = Jac_FULL(3778,5252) - JVS(18241) = -B(8117)-B(8119) -! JVS(18242) = Jac_FULL(3778,5255) - JVS(18242) = -B(8115) -! JVS(18243) = Jac_FULL(3778,5256) - JVS(18243) = -B(8121) -! JVS(18244) = Jac_FULL(3779,2194) - JVS(18244) = B(4549) -! JVS(18245) = Jac_FULL(3779,2355) - JVS(18245) = B(4544) -! JVS(18246) = Jac_FULL(3779,3779) - JVS(18246) = -B(4552)-B(4553)-B(4554) -! JVS(18247) = Jac_FULL(3779,4571) - JVS(18247) = B(1764)+B(1766)+B(1769) -! JVS(18248) = Jac_FULL(3779,5250) - JVS(18248) = 0 -! JVS(18249) = Jac_FULL(3779,5252) - JVS(18249) = B(1765) -! JVS(18250) = Jac_FULL(3779,5255) - JVS(18250) = 0 -! JVS(18251) = Jac_FULL(3779,5256) - JVS(18251) = B(1767) -! JVS(18252) = Jac_FULL(3780,651) - JVS(18252) = B(17654) -! JVS(18253) = Jac_FULL(3780,664) - JVS(18253) = B(17696) -! JVS(18254) = Jac_FULL(3780,1323) - JVS(18254) = B(17647) -! JVS(18255) = Jac_FULL(3780,2253) - JVS(18255) = B(17650) -! JVS(18256) = Jac_FULL(3780,3780) - JVS(18256) = -B(17656)-B(17657) -! JVS(18257) = Jac_FULL(3780,4697) - JVS(18257) = 0 -! JVS(18258) = Jac_FULL(3780,4704) - JVS(18258) = B(15089) -! JVS(18259) = Jac_FULL(3780,5250) - JVS(18259) = B(17648)+B(17651)+B(17655)-B(17658)+B(17697) -! JVS(18260) = Jac_FULL(3780,5252) - JVS(18260) = 0 -! JVS(18261) = Jac_FULL(3780,5255) - JVS(18261) = 0 -! JVS(18262) = Jac_FULL(3781,1416) - JVS(18262) = B(12084) -! JVS(18263) = Jac_FULL(3781,3148) - JVS(18263) = B(4748) -! JVS(18264) = Jac_FULL(3781,3781) - JVS(18264) = -B(8335)-B(8337)-B(8339)-B(8341) -! JVS(18265) = Jac_FULL(3781,5144) - JVS(18265) = 0 -! JVS(18266) = Jac_FULL(3781,5250) - JVS(18266) = B(4749)+B(12085) -! JVS(18267) = Jac_FULL(3781,5252) - JVS(18267) = -B(8338) -! JVS(18268) = Jac_FULL(3781,5255) - JVS(18268) = -B(8336) -! JVS(18269) = Jac_FULL(3781,5256) - JVS(18269) = -B(8340) -! JVS(18270) = Jac_FULL(3782,1435) - JVS(18270) = B(18634) -! JVS(18271) = Jac_FULL(3782,2281) - JVS(18271) = B(13318) -! JVS(18272) = Jac_FULL(3782,3782) - JVS(18272) = -B(16328)-B(16330)-B(16332)-B(16334)-B(16335) -! JVS(18273) = Jac_FULL(3782,4799) - JVS(18273) = 0 -! JVS(18274) = Jac_FULL(3782,5250) - JVS(18274) = B(13319)+B(18635) -! JVS(18275) = Jac_FULL(3782,5252) - JVS(18275) = -B(16331) -! JVS(18276) = Jac_FULL(3782,5255) - JVS(18276) = -B(16329) -! JVS(18277) = Jac_FULL(3782,5256) - JVS(18277) = -B(16333) -! JVS(18278) = Jac_FULL(3783,816) - JVS(18278) = B(18095) -! JVS(18279) = Jac_FULL(3783,2046) - JVS(18279) = 0 -! JVS(18280) = Jac_FULL(3783,3685) - JVS(18280) = 0 -! JVS(18281) = Jac_FULL(3783,3783) - JVS(18281) = -B(19904)-B(19906) -! JVS(18282) = Jac_FULL(3783,4488) - JVS(18282) = 0 -! JVS(18283) = Jac_FULL(3783,5250) - JVS(18283) = -B(19905) -! JVS(18284) = Jac_FULL(3783,5252) - JVS(18284) = 0 -! JVS(18285) = Jac_FULL(3783,5255) - JVS(18285) = 0 -! JVS(18286) = Jac_FULL(3783,5256) - JVS(18286) = 0 -! JVS(18287) = Jac_FULL(3784,591) - JVS(18287) = B(7732) -! JVS(18288) = Jac_FULL(3784,1202) - JVS(18288) = B(14883) -! JVS(18289) = Jac_FULL(3784,3653) - JVS(18289) = 0 -! JVS(18290) = Jac_FULL(3784,3784) - JVS(18290) = -B(11549)-B(11551)-B(11553)-B(11555) -! JVS(18291) = Jac_FULL(3784,4814) - JVS(18291) = 0 -! JVS(18292) = Jac_FULL(3784,5250) - JVS(18292) = B(7733)+B(14884) -! JVS(18293) = Jac_FULL(3784,5252) - JVS(18293) = -B(11552) -! JVS(18294) = Jac_FULL(3784,5255) - JVS(18294) = -B(11550) -! JVS(18295) = Jac_FULL(3784,5256) - JVS(18295) = -B(11554) -! JVS(18296) = Jac_FULL(3785,1075) - JVS(18296) = B(12007) -! JVS(18297) = Jac_FULL(3785,3118) - JVS(18297) = B(4694) -! JVS(18298) = Jac_FULL(3785,3785) - JVS(18298) = -B(8260)-B(8262)-B(8264)-B(8266) -! JVS(18299) = Jac_FULL(3785,4766) - JVS(18299) = 0 -! JVS(18300) = Jac_FULL(3785,5250) - JVS(18300) = B(4695)+B(12008) -! JVS(18301) = Jac_FULL(3785,5252) - JVS(18301) = -B(8263) -! JVS(18302) = Jac_FULL(3785,5255) - JVS(18302) = -B(8261) -! JVS(18303) = Jac_FULL(3785,5256) - JVS(18303) = -B(8265) -! JVS(18304) = Jac_FULL(3786,1024) - JVS(18304) = B(8767) -! JVS(18305) = Jac_FULL(3786,3786) - JVS(18305) = -B(5286)-B(5288)-B(5290)-B(5292)-B(5293) -! JVS(18306) = Jac_FULL(3786,4397) - JVS(18306) = B(2371) -! JVS(18307) = Jac_FULL(3786,5250) - JVS(18307) = B(2372)+B(8768) -! JVS(18308) = Jac_FULL(3786,5252) - JVS(18308) = -B(5289) -! JVS(18309) = Jac_FULL(3786,5255) - JVS(18309) = -B(5287) -! JVS(18310) = Jac_FULL(3786,5256) - JVS(18310) = -B(5291) -! JVS(18311) = Jac_FULL(3787,743) - JVS(18311) = B(18444) -! JVS(18312) = Jac_FULL(3787,2294) - JVS(18312) = 0 -! JVS(18313) = Jac_FULL(3787,3738) - JVS(18313) = 0 -! JVS(18314) = Jac_FULL(3787,3787) - JVS(18314) = -B(20136)-B(20138) -! JVS(18315) = Jac_FULL(3787,4743) - JVS(18315) = 0 -! JVS(18316) = Jac_FULL(3787,5250) - JVS(18316) = -B(20137) -! JVS(18317) = Jac_FULL(3787,5252) - JVS(18317) = 0 -! JVS(18318) = Jac_FULL(3787,5255) - JVS(18318) = 0 -! JVS(18319) = Jac_FULL(3787,5256) - JVS(18319) = 0 -! JVS(18320) = Jac_FULL(3788,1530) - JVS(18320) = B(16439) -! JVS(18321) = Jac_FULL(3788,3788) - JVS(18321) = -B(13411)-B(13413)-B(13415)-B(13417)-B(13418) -! JVS(18322) = Jac_FULL(3788,4793) - JVS(18322) = B(10155) -! JVS(18323) = Jac_FULL(3788,5250) - JVS(18323) = B(10156)+B(16440) -! JVS(18324) = Jac_FULL(3788,5252) - JVS(18324) = -B(13414) -! JVS(18325) = Jac_FULL(3788,5255) - JVS(18325) = -B(13412) -! JVS(18326) = Jac_FULL(3788,5256) - JVS(18326) = -B(13416) -! JVS(18327) = Jac_FULL(3789,275) - JVS(18327) = B(20991) -! JVS(18328) = Jac_FULL(3789,951) - JVS(18328) = B(20995) -! JVS(18329) = Jac_FULL(3789,3789) - JVS(18329) = -B(20996)-B(20998)-B(21000)-B(21002)-B(21004)-B(21005)-B(21006) -! JVS(18330) = Jac_FULL(3789,4679) - JVS(18330) = B(19440)+B(19442)+B(19446)+B(19449) -! JVS(18331) = Jac_FULL(3789,5250) - JVS(18331) = B(20992) -! JVS(18332) = Jac_FULL(3789,5252) - JVS(18332) = B(19443)-B(20999)-B(21001) -! JVS(18333) = Jac_FULL(3789,5255) - JVS(18333) = B(19441)-B(20997) -! JVS(18334) = Jac_FULL(3789,5256) - JVS(18334) = B(19447)-B(21003) -! JVS(18335) = Jac_FULL(3790,3169) - JVS(18335) = B(739)+B(741) -! JVS(18336) = Jac_FULL(3790,3790) - JVS(18336) = -B(2949)-B(2951)-B(2953)-B(2955)-B(2957)-B(2958)-B(2959) -! JVS(18337) = Jac_FULL(3790,5250) - JVS(18337) = B(742) -! JVS(18338) = Jac_FULL(3790,5252) - JVS(18338) = -B(2952)-B(2954) -! JVS(18339) = Jac_FULL(3790,5255) - JVS(18339) = -B(2950) -! JVS(18340) = Jac_FULL(3790,5256) - JVS(18340) = B(740)-B(2956) -! JVS(18341) = Jac_FULL(3791,2499) - JVS(18341) = B(10045) -! JVS(18342) = Jac_FULL(3791,3164) - JVS(18342) = B(2869) -! JVS(18343) = Jac_FULL(3791,3791) - JVS(18343) = -B(6334)-B(6336)-B(6338)-B(6340)-B(6341) -! JVS(18344) = Jac_FULL(3791,5250) - JVS(18344) = B(10046) -! JVS(18345) = Jac_FULL(3791,5252) - JVS(18345) = -B(6337) -! JVS(18346) = Jac_FULL(3791,5255) - JVS(18346) = -B(6335) -! JVS(18347) = Jac_FULL(3791,5256) - JVS(18347) = B(2870)-B(6339) -! JVS(18348) = Jac_FULL(3792,3792) - JVS(18348) = -B(15002)-B(15003)-B(15005)-B(15007) -! JVS(18349) = Jac_FULL(3792,4975) - JVS(18349) = B(11823) -! JVS(18350) = Jac_FULL(3792,5010) - JVS(18350) = B(11801) -! JVS(18351) = Jac_FULL(3792,5250) - JVS(18351) = B(11802)+B(11824)-B(15006)-B(15008) -! JVS(18352) = Jac_FULL(3792,5256) - JVS(18352) = -B(15004) -! JVS(18353) = Jac_FULL(3793,2283) - JVS(18353) = B(12429) -! JVS(18354) = Jac_FULL(3793,3157) - JVS(18354) = B(2388)+B(2394) -! JVS(18355) = Jac_FULL(3793,3220) - JVS(18355) = 0 -! JVS(18356) = Jac_FULL(3793,3793) - JVS(18356) = -B(5319)-B(5321) -! JVS(18357) = Jac_FULL(3793,4591) - JVS(18357) = 0 -! JVS(18358) = Jac_FULL(3793,4592) - JVS(18358) = B(8795)+B(8797)+B(8799) -! JVS(18359) = Jac_FULL(3793,5250) - JVS(18359) = B(2395) -! JVS(18360) = Jac_FULL(3793,5252) - JVS(18360) = B(8796) -! JVS(18361) = Jac_FULL(3793,5253) - JVS(18361) = -B(5320) -! JVS(18362) = Jac_FULL(3793,5255) - JVS(18362) = 0 -! JVS(18363) = Jac_FULL(3793,5256) - JVS(18363) = B(2389)+B(8798) -! JVS(18364) = Jac_FULL(3793,5258) - JVS(18364) = -B(5322) -! JVS(18365) = Jac_FULL(3794,3084) - JVS(18365) = B(663) -! JVS(18366) = Jac_FULL(3794,3794) - JVS(18366) = -B(2657)-B(2659)-B(2661)-B(2663)-B(2665)-B(2666)-B(2667) -! JVS(18367) = Jac_FULL(3794,5250) - JVS(18367) = B(664) -! JVS(18368) = Jac_FULL(3794,5252) - JVS(18368) = -B(2660)-B(2662) -! JVS(18369) = Jac_FULL(3794,5255) - JVS(18369) = -B(2658) -! JVS(18370) = Jac_FULL(3794,5256) - JVS(18370) = -B(2664) -! JVS(18371) = Jac_FULL(3795,1039) - JVS(18371) = B(5881) -! JVS(18372) = Jac_FULL(3795,2418) - JVS(18372) = B(5888) -! JVS(18373) = Jac_FULL(3795,3794) - JVS(18373) = B(2659)+B(2663)+B(2665) -! JVS(18374) = Jac_FULL(3795,3795) - JVS(18374) = -B(5882)-B(5883)-B(5884)-B(5885) -! JVS(18375) = Jac_FULL(3795,5250) - JVS(18375) = 0 -! JVS(18376) = Jac_FULL(3795,5252) - JVS(18376) = B(2660) -! JVS(18377) = Jac_FULL(3795,5255) - JVS(18377) = 0 -! JVS(18378) = Jac_FULL(3795,5256) - JVS(18378) = B(2664) -! JVS(18379) = Jac_FULL(3796,3131) - JVS(18379) = B(2496) -! JVS(18380) = Jac_FULL(3796,3320) - JVS(18380) = B(9147) -! JVS(18381) = Jac_FULL(3796,3796) - JVS(18381) = -B(5561)-B(5563)-B(5565)-B(5567)-B(5568) -! JVS(18382) = Jac_FULL(3796,5250) - JVS(18382) = B(9148) -! JVS(18383) = Jac_FULL(3796,5252) - JVS(18383) = -B(5564) -! JVS(18384) = Jac_FULL(3796,5255) - JVS(18384) = -B(5562) -! JVS(18385) = Jac_FULL(3796,5256) - JVS(18385) = B(2497)-B(5566) -! JVS(18386) = Jac_FULL(3797,3113) - JVS(18386) = B(709)+B(711) -! JVS(18387) = Jac_FULL(3797,3129) - JVS(18387) = B(719)+B(721) -! JVS(18388) = Jac_FULL(3797,3192) - JVS(18388) = B(699)+B(701) -! JVS(18389) = Jac_FULL(3797,3797) - JVS(18389) = -B(2801)-B(2803)-B(2805)-B(2807)-B(2809)-B(2810)-B(2811) -! JVS(18390) = Jac_FULL(3797,5250) - JVS(18390) = B(702)+B(712)+B(722) -! JVS(18391) = Jac_FULL(3797,5252) - JVS(18391) = -B(2804)-B(2806) -! JVS(18392) = Jac_FULL(3797,5255) - JVS(18392) = -B(2802) -! JVS(18393) = Jac_FULL(3797,5256) - JVS(18393) = B(700)+B(710)+B(720)-B(2808) -! JVS(18394) = Jac_FULL(3798,861) - JVS(18394) = B(6272) -! JVS(18395) = Jac_FULL(3798,3113) - JVS(18395) = B(713) -! JVS(18396) = Jac_FULL(3798,3798) - JVS(18396) = -B(2844)-B(2846)-B(2848)-B(2850)-B(2852)-B(2853)-B(2854) -! JVS(18397) = Jac_FULL(3798,5250) - JVS(18397) = B(714)+B(6273) -! JVS(18398) = Jac_FULL(3798,5252) - JVS(18398) = -B(2847)-B(2849) -! JVS(18399) = Jac_FULL(3798,5255) - JVS(18399) = -B(2845) -! JVS(18400) = Jac_FULL(3798,5256) - JVS(18400) = -B(2851) -! JVS(18401) = Jac_FULL(3799,3149) - JVS(18401) = B(2602) -! JVS(18402) = Jac_FULL(3799,3319) - JVS(18402) = B(9380) -! JVS(18403) = Jac_FULL(3799,3799) - JVS(18403) = -B(5765)-B(5767)-B(5769)-B(5771)-B(5772) -! JVS(18404) = Jac_FULL(3799,5250) - JVS(18404) = B(9381) -! JVS(18405) = Jac_FULL(3799,5252) - JVS(18405) = -B(5768) -! JVS(18406) = Jac_FULL(3799,5255) - JVS(18406) = -B(5766) -! JVS(18407) = Jac_FULL(3799,5256) - JVS(18407) = B(2603)-B(5770) -! JVS(18408) = Jac_FULL(3800,2493) - JVS(18408) = B(9384) -! JVS(18409) = Jac_FULL(3800,3319) - JVS(18409) = 0 -! JVS(18410) = Jac_FULL(3800,3799) - JVS(18410) = 0 -! JVS(18411) = Jac_FULL(3800,3800) - JVS(18411) = -B(12869)-B(12871) -! JVS(18412) = Jac_FULL(3800,4619) - JVS(18412) = B(9402) -! JVS(18413) = Jac_FULL(3800,4917) - JVS(18413) = B(9436)+B(9447) -! JVS(18414) = Jac_FULL(3800,5250) - JVS(18414) = -B(12870) -! JVS(18415) = Jac_FULL(3800,5252) - JVS(18415) = 0 -! JVS(18416) = Jac_FULL(3800,5255) - JVS(18416) = B(9437) -! JVS(18417) = Jac_FULL(3800,5256) - JVS(18417) = 0 -! JVS(18418) = Jac_FULL(3801,2130) - JVS(18418) = B(10569) -! JVS(18419) = Jac_FULL(3801,3801) - JVS(18419) = -B(13755)-B(13757)-B(13759)-B(13761)-B(13763)-B(13764) -! JVS(18420) = Jac_FULL(3801,5204) - JVS(18420) = 0 -! JVS(18421) = Jac_FULL(3801,5252) - JVS(18421) = -B(13758)-B(13760) -! JVS(18422) = Jac_FULL(3801,5255) - JVS(18422) = -B(13756) -! JVS(18423) = Jac_FULL(3801,5256) - JVS(18423) = -B(13762) -! JVS(18424) = Jac_FULL(3802,129) - JVS(18424) = B(6358) -! JVS(18425) = Jac_FULL(3802,1000) - JVS(18425) = B(6351)+B(6353) -! JVS(18426) = Jac_FULL(3802,1525) - JVS(18426) = B(6350) -! JVS(18427) = Jac_FULL(3802,3527) - JVS(18427) = B(2881)+B(2883)+B(2885) -! JVS(18428) = Jac_FULL(3802,3802) - JVS(18428) = -B(6354)-B(6355)-B(6356)-B(6357) -! JVS(18429) = Jac_FULL(3802,5250) - JVS(18429) = B(6352)+B(6359) -! JVS(18430) = Jac_FULL(3802,5252) - JVS(18430) = B(2882) -! JVS(18431) = Jac_FULL(3802,5255) - JVS(18431) = 0 -! JVS(18432) = Jac_FULL(3802,5256) - JVS(18432) = B(2884) -! JVS(18433) = Jac_FULL(3803,3179) - JVS(18433) = B(675) -! JVS(18434) = Jac_FULL(3803,3803) - JVS(18434) = -B(2701)-B(2703)-B(2705)-B(2707)-B(2709)-B(2710)-B(2711) -! JVS(18435) = Jac_FULL(3803,5250) - JVS(18435) = B(676) -! JVS(18436) = Jac_FULL(3803,5252) - JVS(18436) = -B(2704)-B(2706) -! JVS(18437) = Jac_FULL(3803,5255) - JVS(18437) = -B(2702) -! JVS(18438) = Jac_FULL(3803,5256) - JVS(18438) = -B(2708) -! JVS(18439) = Jac_FULL(3804,3144) - JVS(18439) = B(653) -! JVS(18440) = Jac_FULL(3804,3804) - JVS(18440) = -B(2614)-B(2616)-B(2618)-B(2620)-B(2622)-B(2623)-B(2624) -! JVS(18441) = Jac_FULL(3804,5250) - JVS(18441) = B(654) -! JVS(18442) = Jac_FULL(3804,5252) - JVS(18442) = -B(2617)-B(2619) -! JVS(18443) = Jac_FULL(3804,5255) - JVS(18443) = -B(2615) -! JVS(18444) = Jac_FULL(3804,5256) - JVS(18444) = -B(2621) -! JVS(18445) = Jac_FULL(3805,1027) - JVS(18445) = B(5793) -! JVS(18446) = Jac_FULL(3805,2406) - JVS(18446) = B(5800) -! JVS(18447) = Jac_FULL(3805,3804) - JVS(18447) = B(2616)+B(2620)+B(2622) -! JVS(18448) = Jac_FULL(3805,3805) - JVS(18448) = -B(5794)-B(5795)-B(5796)-B(5797) -! JVS(18449) = Jac_FULL(3805,5250) - JVS(18449) = 0 -! JVS(18450) = Jac_FULL(3805,5252) - JVS(18450) = B(2617) -! JVS(18451) = Jac_FULL(3805,5255) - JVS(18451) = 0 -! JVS(18452) = Jac_FULL(3805,5256) - JVS(18452) = B(2621) -! JVS(18453) = Jac_FULL(3806,3806) - JVS(18453) = -B(3467)-B(3469)-B(3471)-B(3473)-B(3474)-B(3475) -! JVS(18454) = Jac_FULL(3806,4600) - JVS(18454) = B(880) -! JVS(18455) = Jac_FULL(3806,5252) - JVS(18455) = -B(3470) -! JVS(18456) = Jac_FULL(3806,5255) - JVS(18456) = -B(3468) -! JVS(18457) = Jac_FULL(3806,5256) - JVS(18457) = B(881)-B(3472) -! JVS(18458) = Jac_FULL(3807,3144) - JVS(18458) = B(649)+B(657) -! JVS(18459) = Jac_FULL(3807,3807) - JVS(18459) = -B(2591)-B(2593)-B(2595)-B(2597)-B(2599)-B(2600)-B(2601) -! JVS(18460) = Jac_FULL(3807,5250) - JVS(18460) = B(658) -! JVS(18461) = Jac_FULL(3807,5252) - JVS(18461) = -B(2594)-B(2596) -! JVS(18462) = Jac_FULL(3807,5255) - JVS(18462) = -B(2592) -! JVS(18463) = Jac_FULL(3807,5256) - JVS(18463) = B(650)-B(2598) -! JVS(18464) = Jac_FULL(3808,2565) - JVS(18464) = B(9219) -! JVS(18465) = Jac_FULL(3808,3135) - JVS(18465) = B(2535) -! JVS(18466) = Jac_FULL(3808,3808) - JVS(18466) = -B(5634)-B(5636)-B(5638)-B(5640)-B(5641) -! JVS(18467) = Jac_FULL(3808,5250) - JVS(18467) = B(9220) -! JVS(18468) = Jac_FULL(3808,5252) - JVS(18468) = -B(5637) -! JVS(18469) = Jac_FULL(3808,5255) - JVS(18469) = -B(5635) -! JVS(18470) = Jac_FULL(3808,5256) - JVS(18470) = B(2536)-B(5639) -! JVS(18471) = Jac_FULL(3809,655) - JVS(18471) = B(23248) -! JVS(18472) = Jac_FULL(3809,1784) - JVS(18472) = 0 -! JVS(18473) = Jac_FULL(3809,1928) - JVS(18473) = B(18338) -! JVS(18474) = Jac_FULL(3809,3809) - JVS(18474) = -B(4253)-B(4254)-B(4255) -! JVS(18475) = Jac_FULL(3809,4199) - JVS(18475) = 0 -! JVS(18476) = Jac_FULL(3809,4875) - JVS(18476) = 0 -! JVS(18477) = Jac_FULL(3809,5199) - JVS(18477) = B(13304) -! JVS(18478) = Jac_FULL(3809,5233) - JVS(18478) = B(1485)+B(1487) -! JVS(18479) = Jac_FULL(3809,5250) - JVS(18479) = B(1488) -! JVS(18480) = Jac_FULL(3809,5252) - JVS(18480) = 0 -! JVS(18481) = Jac_FULL(3809,5255) - JVS(18481) = 0 -! JVS(18482) = Jac_FULL(3809,5256) - JVS(18482) = B(1486) -! JVS(18483) = Jac_FULL(3810,3343) - JVS(18483) = B(6508) -! JVS(18484) = Jac_FULL(3810,3790) - JVS(18484) = 0 -! JVS(18485) = Jac_FULL(3810,3810) - JVS(18485) = -B(10203)-B(10205)-B(10207)-B(10209)-B(10210)-B(10211) -! JVS(18486) = Jac_FULL(3810,5250) - JVS(18486) = B(6509) -! JVS(18487) = Jac_FULL(3810,5252) - JVS(18487) = -B(10206) -! JVS(18488) = Jac_FULL(3810,5255) - JVS(18488) = -B(10204) -! JVS(18489) = Jac_FULL(3810,5256) - JVS(18489) = -B(10208) -! JVS(18490) = Jac_FULL(3811,3105) - JVS(18490) = B(645) -! JVS(18491) = Jac_FULL(3811,3811) - JVS(18491) = -B(2570)-B(2572)-B(2574)-B(2576)-B(2578)-B(2579)-B(2580) -! JVS(18492) = Jac_FULL(3811,5250) - JVS(18492) = B(646) -! JVS(18493) = Jac_FULL(3811,5252) - JVS(18493) = -B(2573)-B(2575) -! JVS(18494) = Jac_FULL(3811,5255) - JVS(18494) = -B(2571) -! JVS(18495) = Jac_FULL(3811,5256) - JVS(18495) = -B(2577) -! JVS(18496) = Jac_FULL(3812,1211) - JVS(18496) = B(5702) -! JVS(18497) = Jac_FULL(3812,1964) - JVS(18497) = B(5709) -! JVS(18498) = Jac_FULL(3812,3811) - JVS(18498) = B(2572)+B(2576)+B(2578) -! JVS(18499) = Jac_FULL(3812,3812) - JVS(18499) = -B(5703)-B(5704)-B(5705)-B(5706) -! JVS(18500) = Jac_FULL(3812,5250) - JVS(18500) = 0 -! JVS(18501) = Jac_FULL(3812,5252) - JVS(18501) = B(2573) -! JVS(18502) = Jac_FULL(3812,5255) - JVS(18502) = 0 -! JVS(18503) = Jac_FULL(3812,5256) - JVS(18503) = B(2577) -! JVS(18504) = Jac_FULL(3813,2520) - JVS(18504) = B(9282) -! JVS(18505) = Jac_FULL(3813,3136) - JVS(18505) = B(2562) -! JVS(18506) = Jac_FULL(3813,3813) - JVS(18506) = -B(5686)-B(5688)-B(5690)-B(5692)-B(5693) -! JVS(18507) = Jac_FULL(3813,5250) - JVS(18507) = B(9283) -! JVS(18508) = Jac_FULL(3813,5252) - JVS(18508) = -B(5689) -! JVS(18509) = Jac_FULL(3813,5255) - JVS(18509) = -B(5687) -! JVS(18510) = Jac_FULL(3813,5256) - JVS(18510) = B(2563)-B(5691) -! JVS(18511) = Jac_FULL(3814,3331) - JVS(18511) = B(6191) -! JVS(18512) = Jac_FULL(3814,3797) - JVS(18512) = 0 -! JVS(18513) = Jac_FULL(3814,3814) - JVS(18513) = -B(9898)-B(9900)-B(9902)-B(9904)-B(9905)-B(9906) -! JVS(18514) = Jac_FULL(3814,5250) - JVS(18514) = B(6192) -! JVS(18515) = Jac_FULL(3814,5252) - JVS(18515) = -B(9901) -! JVS(18516) = Jac_FULL(3814,5255) - JVS(18516) = -B(9899) -! JVS(18517) = Jac_FULL(3814,5256) - JVS(18517) = -B(9903) -! JVS(18518) = Jac_FULL(3815,2709) - JVS(18518) = B(9513) -! JVS(18519) = Jac_FULL(3815,3172) - JVS(18519) = B(2649) -! JVS(18520) = Jac_FULL(3815,3815) - JVS(18520) = -B(5865)-B(5867)-B(5869)-B(5871)-B(5872) -! JVS(18521) = Jac_FULL(3815,5250) - JVS(18521) = B(9514) -! JVS(18522) = Jac_FULL(3815,5252) - JVS(18522) = -B(5868) -! JVS(18523) = Jac_FULL(3815,5255) - JVS(18523) = -B(5866) -! JVS(18524) = Jac_FULL(3815,5256) - JVS(18524) = B(2650)-B(5870) -! JVS(18525) = Jac_FULL(3816,3027) - JVS(18525) = B(9517) -! JVS(18526) = Jac_FULL(3816,3815) - JVS(18526) = 0 -! JVS(18527) = Jac_FULL(3816,3816) - JVS(18527) = -B(12974)-B(12976) -! JVS(18528) = Jac_FULL(3816,4743) - JVS(18528) = B(9509) -! JVS(18529) = Jac_FULL(3816,4930) - JVS(18529) = B(9547)+B(9558) -! JVS(18530) = Jac_FULL(3816,5250) - JVS(18530) = -B(12975) -! JVS(18531) = Jac_FULL(3816,5252) - JVS(18531) = 0 -! JVS(18532) = Jac_FULL(3816,5255) - JVS(18532) = B(9548) -! JVS(18533) = Jac_FULL(3816,5256) - JVS(18533) = 0 -! JVS(18534) = Jac_FULL(3817,1200) - JVS(18534) = B(6431) -! JVS(18535) = Jac_FULL(3817,3182) - JVS(18535) = B(733) -! JVS(18536) = Jac_FULL(3817,3817) - JVS(18536) = -B(2920)-B(2922)-B(2924)-B(2926)-B(2928)-B(2929)-B(2930) -! JVS(18537) = Jac_FULL(3817,5250) - JVS(18537) = B(734)+B(6432) -! JVS(18538) = Jac_FULL(3817,5252) - JVS(18538) = -B(2923)-B(2925) -! JVS(18539) = Jac_FULL(3817,5255) - JVS(18539) = -B(2921) -! JVS(18540) = Jac_FULL(3817,5256) - JVS(18540) = -B(2927) -! JVS(18541) = Jac_FULL(3818,81) - JVS(18541) = B(6441) -! JVS(18542) = Jac_FULL(3818,1200) - JVS(18542) = B(6433) -! JVS(18543) = Jac_FULL(3818,1216) - JVS(18543) = B(6434)+B(6436) -! JVS(18544) = Jac_FULL(3818,3817) - JVS(18544) = B(2924)+B(2926)+B(2928) -! JVS(18545) = Jac_FULL(3818,3818) - JVS(18545) = -B(6437)-B(6438)-B(6439)-B(6440) -! JVS(18546) = Jac_FULL(3818,5250) - JVS(18546) = B(6435)+B(6442) -! JVS(18547) = Jac_FULL(3818,5252) - JVS(18547) = B(2925) -! JVS(18548) = Jac_FULL(3818,5255) - JVS(18548) = 0 -! JVS(18549) = Jac_FULL(3818,5256) - JVS(18549) = B(2927) -! JVS(18550) = Jac_FULL(3819,3182) - JVS(18550) = B(729)+B(731) -! JVS(18551) = Jac_FULL(3819,3819) - JVS(18551) = -B(2909)-B(2911)-B(2913)-B(2915)-B(2917)-B(2918)-B(2919) -! JVS(18552) = Jac_FULL(3819,5250) - JVS(18552) = B(732) -! JVS(18553) = Jac_FULL(3819,5252) - JVS(18553) = -B(2912)-B(2914) -! JVS(18554) = Jac_FULL(3819,5255) - JVS(18554) = -B(2910) -! JVS(18555) = Jac_FULL(3819,5256) - JVS(18555) = B(730)-B(2916) -! JVS(18556) = Jac_FULL(3820,3158) - JVS(18556) = B(2448) -! JVS(18557) = Jac_FULL(3820,3321) - JVS(18557) = B(8987) -! JVS(18558) = Jac_FULL(3820,3820) - JVS(18558) = -B(5450)-B(5452)-B(5454)-B(5456)-B(5457) -! JVS(18559) = Jac_FULL(3820,5250) - JVS(18559) = B(8988) -! JVS(18560) = Jac_FULL(3820,5252) - JVS(18560) = -B(5453) -! JVS(18561) = Jac_FULL(3820,5255) - JVS(18561) = -B(5451) -! JVS(18562) = Jac_FULL(3820,5256) - JVS(18562) = B(2449)-B(5455) -! JVS(18563) = Jac_FULL(3821,752) - JVS(18563) = B(9646) -! JVS(18564) = Jac_FULL(3821,2806) - JVS(18564) = B(8991) -! JVS(18565) = Jac_FULL(3821,3321) - JVS(18565) = 0 -! JVS(18566) = Jac_FULL(3821,3406) - JVS(18566) = B(20186) -! JVS(18567) = Jac_FULL(3821,3482) - JVS(18567) = 0 -! JVS(18568) = Jac_FULL(3821,3820) - JVS(18568) = 0 -! JVS(18569) = Jac_FULL(3821,3821) - JVS(18569) = -B(12583)-B(12585) -! JVS(18570) = Jac_FULL(3821,4326) - JVS(18570) = B(9009) -! JVS(18571) = Jac_FULL(3821,4726) - JVS(18571) = 0 -! JVS(18572) = Jac_FULL(3821,4968) - JVS(18572) = B(12513)+B(12525) -! JVS(18573) = Jac_FULL(3821,5250) - JVS(18573) = -B(12584) -! JVS(18574) = Jac_FULL(3821,5252) - JVS(18574) = 0 -! JVS(18575) = Jac_FULL(3821,5255) - JVS(18575) = B(12514) -! JVS(18576) = Jac_FULL(3821,5256) - JVS(18576) = 0 -! JVS(18577) = Jac_FULL(3821,5258) - JVS(18577) = 0 -! JVS(18578) = Jac_FULL(3822,675) - JVS(18578) = B(12045) -! JVS(18579) = Jac_FULL(3822,964) - JVS(18579) = B(12037) -! JVS(18580) = Jac_FULL(3822,2049) - JVS(18580) = B(12040) -! JVS(18581) = Jac_FULL(3822,3822) - JVS(18581) = -B(12047)-B(12049) -! JVS(18582) = Jac_FULL(3822,5119) - JVS(18582) = B(8305) -! JVS(18583) = Jac_FULL(3822,5250) - JVS(18583) = B(12038)+B(12041)+B(12046)-B(12048) -! JVS(18584) = Jac_FULL(3822,5252) - JVS(18584) = 0 -! JVS(18585) = Jac_FULL(3822,5255) - JVS(18585) = 0 -! JVS(18586) = Jac_FULL(3823,250) - JVS(18586) = B(605) -! JVS(18587) = Jac_FULL(3823,3823) - JVS(18587) = -B(2396)-B(2398)-B(2400)-B(2402)-B(2404)-B(2405)-B(2406) -! JVS(18588) = Jac_FULL(3823,5250) - JVS(18588) = B(606) -! JVS(18589) = Jac_FULL(3823,5252) - JVS(18589) = -B(2399)-B(2401) -! JVS(18590) = Jac_FULL(3823,5255) - JVS(18590) = -B(2397) -! JVS(18591) = Jac_FULL(3823,5256) - JVS(18591) = -B(2403) -! JVS(18592) = Jac_FULL(3824,1307) - JVS(18592) = B(5331) -! JVS(18593) = Jac_FULL(3824,2383) - JVS(18593) = B(5339) -! JVS(18594) = Jac_FULL(3824,3823) - JVS(18594) = B(2398)+B(2402)+B(2405) -! JVS(18595) = Jac_FULL(3824,3824) - JVS(18595) = -B(5332)-B(5333)-B(5334)-B(5335)-B(5336) -! JVS(18596) = Jac_FULL(3824,5250) - JVS(18596) = 0 -! JVS(18597) = Jac_FULL(3824,5252) - JVS(18597) = B(2399) -! JVS(18598) = Jac_FULL(3824,5255) - JVS(18598) = 0 -! JVS(18599) = Jac_FULL(3824,5256) - JVS(18599) = B(2403) -! JVS(18600) = Jac_FULL(3825,3130) - JVS(18600) = B(2897) -! JVS(18601) = Jac_FULL(3825,3279) - JVS(18601) = B(10099) -! JVS(18602) = Jac_FULL(3825,3825) - JVS(18602) = -B(6393)-B(6395)-B(6397)-B(6399)-B(6400) -! JVS(18603) = Jac_FULL(3825,5250) - JVS(18603) = B(10100) -! JVS(18604) = Jac_FULL(3825,5252) - JVS(18604) = -B(6396) -! JVS(18605) = Jac_FULL(3825,5255) - JVS(18605) = -B(6394) -! JVS(18606) = Jac_FULL(3825,5256) - JVS(18606) = B(2898)-B(6398) -! JVS(18607) = Jac_FULL(3826,22) - JVS(18607) = B(6283) -! JVS(18608) = Jac_FULL(3826,861) - JVS(18608) = B(6274) -! JVS(18609) = Jac_FULL(3826,1896) - JVS(18609) = B(6277) -! JVS(18610) = Jac_FULL(3826,3798) - JVS(18610) = B(2848)+B(2850)+B(2852) -! JVS(18611) = Jac_FULL(3826,3826) - JVS(18611) = -B(6278)-B(6279)-B(6280)-B(6281)-B(6282) -! JVS(18612) = Jac_FULL(3826,5250) - JVS(18612) = B(6284) -! JVS(18613) = Jac_FULL(3826,5252) - JVS(18613) = B(2849) -! JVS(18614) = Jac_FULL(3826,5255) - JVS(18614) = 0 -! JVS(18615) = Jac_FULL(3826,5256) - JVS(18615) = B(2851) -! JVS(18616) = Jac_FULL(3827,3157) - JVS(18616) = B(2386) -! JVS(18617) = Jac_FULL(3827,3253) - JVS(18617) = B(8781) -! JVS(18618) = Jac_FULL(3827,3827) - JVS(18618) = -B(5311)-B(5313)-B(5315)-B(5317)-B(5318) -! JVS(18619) = Jac_FULL(3827,5250) - JVS(18619) = B(8782) -! JVS(18620) = Jac_FULL(3827,5252) - JVS(18620) = -B(5314) -! JVS(18621) = Jac_FULL(3827,5255) - JVS(18621) = -B(5312) -! JVS(18622) = Jac_FULL(3827,5256) - JVS(18622) = B(2387)-B(5316) -! JVS(18623) = Jac_FULL(3828,2649) - JVS(18623) = B(9732) -! JVS(18624) = Jac_FULL(3828,3139) - JVS(18624) = B(2739) -! JVS(18625) = Jac_FULL(3828,3828) - JVS(18625) = -B(6036)-B(6038)-B(6040)-B(6042)-B(6043) -! JVS(18626) = Jac_FULL(3828,5250) - JVS(18626) = B(9733) -! JVS(18627) = Jac_FULL(3828,5252) - JVS(18627) = -B(6039) -! JVS(18628) = Jac_FULL(3828,5255) - JVS(18628) = -B(6037) -! JVS(18629) = Jac_FULL(3828,5256) - JVS(18629) = B(2740)-B(6041) -! JVS(18630) = Jac_FULL(3829,2776) - JVS(18630) = B(9736) -! JVS(18631) = Jac_FULL(3829,3828) - JVS(18631) = 0 -! JVS(18632) = Jac_FULL(3829,3829) - JVS(18632) = -B(13181)-B(13183) -! JVS(18633) = Jac_FULL(3829,4322) - JVS(18633) = B(9754) -! JVS(18634) = Jac_FULL(3829,5250) - JVS(18634) = -B(13182) -! JVS(18635) = Jac_FULL(3829,5252) - JVS(18635) = 0 -! JVS(18636) = Jac_FULL(3829,5255) - JVS(18636) = 0 -! JVS(18637) = Jac_FULL(3829,5256) - JVS(18637) = 0 -! JVS(18638) = Jac_FULL(3830,3830) - JVS(18638) = -B(5280)-B(5282)-B(5284) -! JVS(18639) = Jac_FULL(3830,4397) - JVS(18639) = B(2369) -! JVS(18640) = Jac_FULL(3830,5250) - JVS(18640) = B(2370)-B(5285) -! JVS(18641) = Jac_FULL(3830,5256) - JVS(18641) = -B(5281) -! JVS(18642) = Jac_FULL(3830,5258) - JVS(18642) = -B(5283) -! JVS(18643) = Jac_FULL(3831,3136) - JVS(18643) = B(2568) -! JVS(18644) = Jac_FULL(3831,3831) - JVS(18644) = -B(5694)-B(5696)-B(5698) -! JVS(18645) = Jac_FULL(3831,5250) - JVS(18645) = B(2569)-B(5699) -! JVS(18646) = Jac_FULL(3831,5256) - JVS(18646) = -B(5695) -! JVS(18647) = Jac_FULL(3831,5258) - JVS(18647) = -B(5697) -! JVS(18648) = Jac_FULL(3832,3832) - JVS(18648) = -B(9724)-B(9726)-B(9728)-B(9730)-B(9731) -! JVS(18649) = Jac_FULL(3832,5030) - JVS(18649) = B(6030) -! JVS(18650) = Jac_FULL(3832,5250) - JVS(18650) = -B(9729) -! JVS(18651) = Jac_FULL(3832,5258) - JVS(18651) = -B(9725)-B(9727) -! JVS(18652) = Jac_FULL(3833,3192) - JVS(18652) = B(705) -! JVS(18653) = Jac_FULL(3833,3833) - JVS(18653) = -B(2822)-B(2824)-B(2826)-B(2828)-B(2830)-B(2831) -! JVS(18654) = Jac_FULL(3833,5250) - JVS(18654) = B(706)-B(2827)-B(2829) -! JVS(18655) = Jac_FULL(3833,5256) - JVS(18655) = -B(2823) -! JVS(18656) = Jac_FULL(3833,5258) - JVS(18656) = -B(2825) -! JVS(18657) = Jac_FULL(3834,3145) - JVS(18657) = B(613) -! JVS(18658) = Jac_FULL(3834,3834) - JVS(18658) = -B(2438)-B(2440)-B(2442)-B(2444)-B(2446)-B(2447) -! JVS(18659) = Jac_FULL(3834,5250) - JVS(18659) = B(614)-B(2443)-B(2445) -! JVS(18660) = Jac_FULL(3834,5256) - JVS(18660) = -B(2439) -! JVS(18661) = Jac_FULL(3834,5258) - JVS(18661) = -B(2441) -! JVS(18662) = Jac_FULL(3835,3835) - JVS(18662) = -B(13605)-B(13607)-B(13609) -! JVS(18663) = Jac_FULL(3835,5015) - JVS(18663) = B(10417) -! JVS(18664) = Jac_FULL(3835,5250) - JVS(18664) = -B(13606)-B(13608)-B(13610) -! JVS(18665) = Jac_FULL(3835,5252) - JVS(18665) = B(10418) -! JVS(18666) = Jac_FULL(3836,3369) - JVS(18666) = B(858) -! JVS(18667) = Jac_FULL(3836,3836) - JVS(18667) = -B(3385)-B(3387)-B(3389)-B(3391)-B(3393)-B(3394)-B(3395) -! JVS(18668) = Jac_FULL(3836,5045) - JVS(18668) = 0 -! JVS(18669) = Jac_FULL(3836,5250) - JVS(18669) = B(859) -! JVS(18670) = Jac_FULL(3836,5252) - JVS(18670) = -B(3388)-B(3390) -! JVS(18671) = Jac_FULL(3836,5255) - JVS(18671) = -B(3386) -! JVS(18672) = Jac_FULL(3836,5256) - JVS(18672) = -B(3392) -! JVS(18673) = Jac_FULL(3837,3216) - JVS(18673) = B(20541) -! JVS(18674) = Jac_FULL(3837,3837) - JVS(18674) = -B(18943)-B(18945)-B(18947)-B(18949)-B(18950)-B(18951) -! JVS(18675) = Jac_FULL(3837,5024) - JVS(18675) = B(16726) -! JVS(18676) = Jac_FULL(3837,5250) - JVS(18676) = B(16727)+B(20542) -! JVS(18677) = Jac_FULL(3837,5252) - JVS(18677) = -B(18946) -! JVS(18678) = Jac_FULL(3837,5255) - JVS(18678) = -B(18944) -! JVS(18679) = Jac_FULL(3837,5256) - JVS(18679) = -B(18948) -! JVS(18680) = Jac_FULL(3838,49) - JVS(18680) = B(20699) -! JVS(18681) = Jac_FULL(3838,1203) - JVS(18681) = 0 -! JVS(18682) = Jac_FULL(3838,1985) - JVS(18682) = B(22352) -! JVS(18683) = Jac_FULL(3838,3761) - JVS(18683) = 0 -! JVS(18684) = Jac_FULL(3838,3838) - JVS(18684) = -B(21718)-B(21720)-B(21722)-B(21724) -! JVS(18685) = Jac_FULL(3838,4898) - JVS(18685) = 0 -! JVS(18686) = Jac_FULL(3838,5250) - JVS(18686) = B(22353) -! JVS(18687) = Jac_FULL(3838,5252) - JVS(18687) = -B(21721) -! JVS(18688) = Jac_FULL(3838,5255) - JVS(18688) = -B(21719) -! JVS(18689) = Jac_FULL(3838,5256) - JVS(18689) = -B(21723) -! JVS(18690) = Jac_FULL(3839,887) - JVS(18690) = B(20923) -! JVS(18691) = Jac_FULL(3839,2273) - JVS(18691) = B(17119) -! JVS(18692) = Jac_FULL(3839,3839) - JVS(18692) = -B(19354)-B(19356)-B(19358)-B(19360) -! JVS(18693) = Jac_FULL(3839,4567) - JVS(18693) = 0 -! JVS(18694) = Jac_FULL(3839,5250) - JVS(18694) = B(17120)+B(20924) -! JVS(18695) = Jac_FULL(3839,5252) - JVS(18695) = -B(19357) -! JVS(18696) = Jac_FULL(3839,5255) - JVS(18696) = -B(19355) -! JVS(18697) = Jac_FULL(3839,5256) - JVS(18697) = -B(19359) -! JVS(18698) = Jac_FULL(3840,1071) - JVS(18698) = B(19260) -! JVS(18699) = Jac_FULL(3840,3840) - JVS(18699) = -B(17062)-B(17064)-B(17066)-B(17068)-B(17069) -! JVS(18700) = Jac_FULL(3840,5083) - JVS(18700) = B(14429) -! JVS(18701) = Jac_FULL(3840,5250) - JVS(18701) = B(19261) -! JVS(18702) = Jac_FULL(3840,5252) - JVS(18702) = -B(17065) -! JVS(18703) = Jac_FULL(3840,5255) - JVS(18703) = -B(17063) -! JVS(18704) = Jac_FULL(3840,5256) - JVS(18704) = B(14430)-B(17067) -! JVS(18705) = Jac_FULL(3841,367) - JVS(18705) = B(23163) -! JVS(18706) = Jac_FULL(3841,1199) - JVS(18706) = B(23167) -! JVS(18707) = Jac_FULL(3841,3841) - JVS(18707) = -B(23168)-B(23170)-B(23172)-B(23174)-B(23176)-B(23177)-B(23178) -! JVS(18708) = Jac_FULL(3841,5245) - JVS(18708) = B(22723)+B(22725)+B(22729)+B(22732) -! JVS(18709) = Jac_FULL(3841,5250) - JVS(18709) = B(23164) -! JVS(18710) = Jac_FULL(3841,5252) - JVS(18710) = B(22726)-B(23171)-B(23173) -! JVS(18711) = Jac_FULL(3841,5255) - JVS(18711) = B(22724)-B(23169) -! JVS(18712) = Jac_FULL(3841,5256) - JVS(18712) = B(22730)-B(23175) -! JVS(18713) = Jac_FULL(3842,1940) - JVS(18713) = B(5162) -! JVS(18714) = Jac_FULL(3842,3842) - JVS(18714) = -B(5163)-B(5164) -! JVS(18715) = Jac_FULL(3842,4702) - JVS(18715) = B(2288)+B(2290)+B(2293) -! JVS(18716) = Jac_FULL(3842,5250) - JVS(18716) = 0 -! JVS(18717) = Jac_FULL(3842,5252) - JVS(18717) = B(2289) -! JVS(18718) = Jac_FULL(3842,5255) - JVS(18718) = 0 -! JVS(18719) = Jac_FULL(3842,5256) - JVS(18719) = B(2291) -! JVS(18720) = Jac_FULL(3843,380) - JVS(18720) = B(4514) -! JVS(18721) = Jac_FULL(3843,1298) - JVS(18721) = B(4507) -! JVS(18722) = Jac_FULL(3843,2149) - JVS(18722) = B(4510) -! JVS(18723) = Jac_FULL(3843,2710) - JVS(18723) = B(4512) -! JVS(18724) = Jac_FULL(3843,3843) - JVS(18724) = -B(843)-B(845)-B(847)-B(849)-B(851) -! JVS(18725) = Jac_FULL(3843,5186) - JVS(18725) = B(1735) -! JVS(18726) = Jac_FULL(3843,5250) - JVS(18726) = -B(844)-B(846)-B(848)-B(850)+B(4508)+B(4511)+B(4515) -! JVS(18727) = Jac_FULL(3843,5252) - JVS(18727) = 0 -! JVS(18728) = Jac_FULL(3843,5255) - JVS(18728) = 0 -! JVS(18729) = Jac_FULL(3843,5256) - JVS(18729) = 0 -! JVS(18730) = Jac_FULL(3844,1862) - JVS(18730) = B(17370) -! JVS(18731) = Jac_FULL(3844,3844) - JVS(18731) = -B(14783)-B(14785)-B(14787)-B(14789)-B(14790) -! JVS(18732) = Jac_FULL(3844,5249) - JVS(18732) = B(11424) -! JVS(18733) = Jac_FULL(3844,5250) - JVS(18733) = B(17371) -! JVS(18734) = Jac_FULL(3844,5252) - JVS(18734) = -B(14786) -! JVS(18735) = Jac_FULL(3844,5255) - JVS(18735) = -B(14784) -! JVS(18736) = Jac_FULL(3844,5256) - JVS(18736) = B(11425)-B(14788) -! JVS(18737) = Jac_FULL(3845,443) - JVS(18737) = B(19228) -! JVS(18738) = Jac_FULL(3845,942) - JVS(18738) = B(21830) -! JVS(18739) = Jac_FULL(3845,1093) - JVS(18739) = 0 -! JVS(18740) = Jac_FULL(3845,2661) - JVS(18740) = 0 -! JVS(18741) = Jac_FULL(3845,3845) - JVS(18741) = -B(20799)-B(20801)-B(20803)-B(20805)-B(20807)-B(20808) -! JVS(18742) = Jac_FULL(3845,4545) - JVS(18742) = 0 -! JVS(18743) = Jac_FULL(3845,5250) - JVS(18743) = B(21831) -! JVS(18744) = Jac_FULL(3845,5252) - JVS(18744) = -B(20802)-B(20804) -! JVS(18745) = Jac_FULL(3845,5255) - JVS(18745) = -B(20800) -! JVS(18746) = Jac_FULL(3845,5256) - JVS(18746) = -B(20806) -! JVS(18747) = Jac_FULL(3846,775) - JVS(18747) = B(22355) -! JVS(18748) = Jac_FULL(3846,863) - JVS(18748) = B(23270) -! JVS(18749) = Jac_FULL(3846,1985) - JVS(18749) = 0 -! JVS(18750) = Jac_FULL(3846,3838) - JVS(18750) = 0 -! JVS(18751) = Jac_FULL(3846,3846) - JVS(18751) = -B(22845)-B(22847)-B(22849)-B(22851) -! JVS(18752) = Jac_FULL(3846,4898) - JVS(18752) = 0 -! JVS(18753) = Jac_FULL(3846,5250) - JVS(18753) = B(23271) -! JVS(18754) = Jac_FULL(3846,5252) - JVS(18754) = -B(22848) -! JVS(18755) = Jac_FULL(3846,5255) - JVS(18755) = -B(22846) -! JVS(18756) = Jac_FULL(3846,5256) - JVS(18756) = -B(22850) -! JVS(18757) = Jac_FULL(3847,2463) - JVS(18757) = B(4162) -! JVS(18758) = Jac_FULL(3847,3847) - JVS(18758) = -B(1379)-B(1381)-B(1383)-B(1385)-B(1387)-B(1388)-B(1389) -! JVS(18759) = Jac_FULL(3847,5203) - JVS(18759) = B(199) -! JVS(18760) = Jac_FULL(3847,5250) - JVS(18760) = B(200)+B(4163) -! JVS(18761) = Jac_FULL(3847,5252) - JVS(18761) = -B(1382)-B(1384) -! JVS(18762) = Jac_FULL(3847,5255) - JVS(18762) = -B(1380) -! JVS(18763) = Jac_FULL(3847,5256) - JVS(18763) = -B(1386) -! JVS(18764) = Jac_FULL(3848,1046) - JVS(18764) = B(23654) -! JVS(18765) = Jac_FULL(3848,3848) - JVS(18765) = -B(23379)-B(23381)-B(23383)-B(23385)-B(23387)-B(23388) -! JVS(18766) = Jac_FULL(3848,5187) - JVS(18766) = B(22992) -! JVS(18767) = Jac_FULL(3848,5250) - JVS(18767) = B(22993)+B(23655) -! JVS(18768) = Jac_FULL(3848,5252) - JVS(18768) = -B(23382)-B(23384) -! JVS(18769) = Jac_FULL(3848,5255) - JVS(18769) = -B(23380) -! JVS(18770) = Jac_FULL(3848,5256) - JVS(18770) = -B(23386) -! JVS(18771) = Jac_FULL(3849,530) - JVS(18771) = B(23630) -! JVS(18772) = Jac_FULL(3849,690) - JVS(18772) = B(23660) -! JVS(18773) = Jac_FULL(3849,1912) - JVS(18773) = B(23657) -! JVS(18774) = Jac_FULL(3849,2578) - JVS(18774) = B(23629) -! JVS(18775) = Jac_FULL(3849,2894) - JVS(18775) = B(23678) -! JVS(18776) = Jac_FULL(3849,2931) - JVS(18776) = B(23659) -! JVS(18777) = Jac_FULL(3849,3848) - JVS(18777) = 0 -! JVS(18778) = Jac_FULL(3849,3849) - JVS(18778) = -B(23374)-B(23376) -! JVS(18779) = Jac_FULL(3849,4117) - JVS(18779) = 0 -! JVS(18780) = Jac_FULL(3849,4120) - JVS(18780) = 0 -! JVS(18781) = Jac_FULL(3849,5187) - JVS(18781) = B(22986) -! JVS(18782) = Jac_FULL(3849,5250) - JVS(18782) = -B(23377)+B(23631)+B(23658)+B(23661) -! JVS(18783) = Jac_FULL(3849,5252) - JVS(18783) = 0 -! JVS(18784) = Jac_FULL(3849,5255) - JVS(18784) = 0 -! JVS(18785) = Jac_FULL(3849,5256) - JVS(18785) = -B(23375) -! JVS(18786) = Jac_FULL(3849,5258) - JVS(18786) = B(22987) -! JVS(18787) = Jac_FULL(3850,1371) - JVS(18787) = B(17054) -! JVS(18788) = Jac_FULL(3850,3850) - JVS(18788) = -B(14417)-B(14419)-B(14421)-B(14423)-B(14425)-B(14426) -! JVS(18789) = Jac_FULL(3850,5169) - JVS(18789) = B(11196) -! JVS(18790) = Jac_FULL(3850,5250) - JVS(18790) = B(11197)+B(17055) -! JVS(18791) = Jac_FULL(3850,5252) - JVS(18791) = -B(14420)-B(14422) -! JVS(18792) = Jac_FULL(3850,5255) - JVS(18792) = -B(14418) -! JVS(18793) = Jac_FULL(3850,5256) - JVS(18793) = -B(14424) -! JVS(18794) = Jac_FULL(3851,349) - JVS(18794) = B(4587) -! JVS(18795) = Jac_FULL(3851,1751) - JVS(18795) = B(4574) -! JVS(18796) = Jac_FULL(3851,2277) - JVS(18796) = B(4579) -! JVS(18797) = Jac_FULL(3851,3851) - JVS(18797) = -B(4582)-B(4583)-B(4585) -! JVS(18798) = Jac_FULL(3851,4696) - JVS(18798) = B(1789) -! JVS(18799) = Jac_FULL(3851,5250) - JVS(18799) = B(4575)+B(4580)-B(4586)+B(4588) -! JVS(18800) = Jac_FULL(3851,5252) - JVS(18800) = 0 -! JVS(18801) = Jac_FULL(3851,5255) - JVS(18801) = 0 -! JVS(18802) = Jac_FULL(3851,5256) - JVS(18802) = -B(4584) -! JVS(18803) = Jac_FULL(3852,3852) - JVS(18803) = -B(7331)-B(7333)-B(7335)-B(7337)-B(7339)-B(7340)-B(7341) -! JVS(18804) = Jac_FULL(3852,5215) - JVS(18804) = B(3476) -! JVS(18805) = Jac_FULL(3852,5250) - JVS(18805) = B(3477) -! JVS(18806) = Jac_FULL(3852,5252) - JVS(18806) = -B(7334)-B(7336) -! JVS(18807) = Jac_FULL(3852,5255) - JVS(18807) = -B(7332) -! JVS(18808) = Jac_FULL(3852,5256) - JVS(18808) = -B(7338) -! JVS(18809) = Jac_FULL(3853,1021) - JVS(18809) = B(16417) -! JVS(18810) = Jac_FULL(3853,3853) - JVS(18810) = -B(13387)-B(13389)-B(13391)-B(13393)-B(13394) -! JVS(18811) = Jac_FULL(3853,5141) - JVS(18811) = B(10147) -! JVS(18812) = Jac_FULL(3853,5250) - JVS(18812) = B(10148)+B(16418) -! JVS(18813) = Jac_FULL(3853,5252) - JVS(18813) = -B(13390) -! JVS(18814) = Jac_FULL(3853,5255) - JVS(18814) = -B(13388) -! JVS(18815) = Jac_FULL(3853,5256) - JVS(18815) = -B(13392) -! JVS(18816) = Jac_FULL(3854,205) - JVS(18816) = B(4635) -! JVS(18817) = Jac_FULL(3854,2169) - JVS(18817) = 0 -! JVS(18818) = Jac_FULL(3854,2264) - JVS(18818) = 0 -! JVS(18819) = Jac_FULL(3854,3038) - JVS(18819) = B(11927) -! JVS(18820) = Jac_FULL(3854,3854) - JVS(18820) = -B(8177)-B(8179)-B(8181)-B(8183)-B(8185)-B(8186)-B(8187) -! JVS(18821) = Jac_FULL(3854,5082) - JVS(18821) = 0 -! JVS(18822) = Jac_FULL(3854,5250) - JVS(18822) = B(11928) -! JVS(18823) = Jac_FULL(3854,5252) - JVS(18823) = -B(8180)-B(8182) -! JVS(18824) = Jac_FULL(3854,5255) - JVS(18824) = -B(8178) -! JVS(18825) = Jac_FULL(3854,5256) - JVS(18825) = -B(8184) -! JVS(18826) = Jac_FULL(3855,297) - JVS(18826) = B(23108) -! JVS(18827) = Jac_FULL(3855,1155) - JVS(18827) = 0 -! JVS(18828) = Jac_FULL(3855,2327) - JVS(18828) = 0 -! JVS(18829) = Jac_FULL(3855,3855) - JVS(18829) = -B(23477)-B(23479)-B(23481)-B(23483)-B(23485)-B(23486)-B(23487) -! JVS(18830) = Jac_FULL(3855,4319) - JVS(18830) = 0 -! JVS(18831) = Jac_FULL(3855,5250) - JVS(18831) = 0 -! JVS(18832) = Jac_FULL(3855,5252) - JVS(18832) = -B(23480)-B(23482) -! JVS(18833) = Jac_FULL(3855,5255) - JVS(18833) = -B(23478) -! JVS(18834) = Jac_FULL(3855,5256) - JVS(18834) = -B(23484) -! JVS(18835) = Jac_FULL(3856,338) - JVS(18835) = B(4641) -! JVS(18836) = Jac_FULL(3856,2169) - JVS(18836) = B(4633) -! JVS(18837) = Jac_FULL(3856,2264) - JVS(18837) = B(4628) -! JVS(18838) = Jac_FULL(3856,3856) - JVS(18838) = -B(4636)-B(4637)-B(4639) -! JVS(18839) = Jac_FULL(3856,5082) - JVS(18839) = B(1832) -! JVS(18840) = Jac_FULL(3856,5250) - JVS(18840) = B(4629)+B(4634)-B(4640)+B(4642) -! JVS(18841) = Jac_FULL(3856,5252) - JVS(18841) = 0 -! JVS(18842) = Jac_FULL(3856,5255) - JVS(18842) = 0 -! JVS(18843) = Jac_FULL(3856,5256) - JVS(18843) = -B(4638) -! JVS(18844) = Jac_FULL(3857,1262) - JVS(18844) = B(11836) -! JVS(18845) = Jac_FULL(3857,1693) - JVS(18845) = B(11848) -! JVS(18846) = Jac_FULL(3857,1980) - JVS(18846) = B(11839) -! JVS(18847) = Jac_FULL(3857,3857) - JVS(18847) = -B(11842)-B(11843)-B(11845) -! JVS(18848) = Jac_FULL(3857,4880) - JVS(18848) = B(8111) -! JVS(18849) = Jac_FULL(3857,5250) - JVS(18849) = B(11837)+B(11840)-B(11846)+B(11849) -! JVS(18850) = Jac_FULL(3857,5252) - JVS(18850) = 0 -! JVS(18851) = Jac_FULL(3857,5255) - JVS(18851) = 0 -! JVS(18852) = Jac_FULL(3857,5256) - JVS(18852) = -B(11844) -! JVS(18853) = Jac_FULL(3858,265) - JVS(18853) = B(20684) -! JVS(18854) = Jac_FULL(3858,1277) - JVS(18854) = B(20672) -! JVS(18855) = Jac_FULL(3858,3858) - JVS(18855) = -B(20673)-B(20675)-B(20677)-B(20679)-B(20681)-B(20682)-B(20683) -! JVS(18856) = Jac_FULL(3858,5021) - JVS(18856) = B(19093)+B(19097)+B(19101)+B(19103) -! JVS(18857) = Jac_FULL(3858,5250) - JVS(18857) = B(20685) -! JVS(18858) = Jac_FULL(3858,5252) - JVS(18858) = B(19098)-B(20676)-B(20678) -! JVS(18859) = Jac_FULL(3858,5255) - JVS(18859) = B(19094)-B(20674) -! JVS(18860) = Jac_FULL(3858,5256) - JVS(18860) = B(19102)-B(20680) -! JVS(18861) = Jac_FULL(3859,2633) - JVS(18861) = B(11951) -! JVS(18862) = Jac_FULL(3859,2906) - JVS(18862) = B(4651) -! JVS(18863) = Jac_FULL(3859,3859) - JVS(18863) = -B(8199)-B(8201)-B(8203)-B(8205)-B(8207)-B(8208)-B(8209) -! JVS(18864) = Jac_FULL(3859,5077) - JVS(18864) = 0 -! JVS(18865) = Jac_FULL(3859,5250) - JVS(18865) = B(11952) -! JVS(18866) = Jac_FULL(3859,5252) - JVS(18866) = -B(8202)-B(8204) -! JVS(18867) = Jac_FULL(3859,5255) - JVS(18867) = -B(8200) -! JVS(18868) = Jac_FULL(3859,5256) - JVS(18868) = -B(8206) -! JVS(18869) = Jac_FULL(3860,891) - JVS(18869) = B(15929) -! JVS(18870) = Jac_FULL(3860,2714) - JVS(18870) = B(9368) -! JVS(18871) = Jac_FULL(3860,3238) - JVS(18871) = 0 -! JVS(18872) = Jac_FULL(3860,3860) - JVS(18872) = -B(12853)-B(12855)-B(12857)-B(12859) -! JVS(18873) = Jac_FULL(3860,4667) - JVS(18873) = 0 -! JVS(18874) = Jac_FULL(3860,5250) - JVS(18874) = B(9369)+B(15930) -! JVS(18875) = Jac_FULL(3860,5252) - JVS(18875) = -B(12856) -! JVS(18876) = Jac_FULL(3860,5255) - JVS(18876) = -B(12854) -! JVS(18877) = Jac_FULL(3860,5256) - JVS(18877) = -B(12858) -! JVS(18878) = Jac_FULL(3861,348) - JVS(18878) = B(19006) -! JVS(18879) = Jac_FULL(3861,1321) - JVS(18879) = B(18998) -! JVS(18880) = Jac_FULL(3861,1884) - JVS(18880) = B(18994) -! JVS(18881) = Jac_FULL(3861,3861) - JVS(18881) = -B(19001)-B(19002)-B(19004) -! JVS(18882) = Jac_FULL(3861,4348) - JVS(18882) = B(16795) -! JVS(18883) = Jac_FULL(3861,5250) - JVS(18883) = B(18995)+B(18999)-B(19005)+B(19007) -! JVS(18884) = Jac_FULL(3861,5252) - JVS(18884) = 0 -! JVS(18885) = Jac_FULL(3861,5255) - JVS(18885) = 0 -! JVS(18886) = Jac_FULL(3861,5256) - JVS(18886) = -B(19003) -! JVS(18887) = Jac_FULL(3862,1676) - JVS(18887) = B(19236) -! JVS(18888) = Jac_FULL(3862,1689) - JVS(18888) = B(19235) -! JVS(18889) = Jac_FULL(3862,3862) - JVS(18889) = -B(20809)-B(20811)-B(20813) -! JVS(18890) = Jac_FULL(3862,4987) - JVS(18890) = 0 -! JVS(18891) = Jac_FULL(3862,5250) - JVS(18891) = B(19237)-B(20812) -! JVS(18892) = Jac_FULL(3862,5252) - JVS(18892) = 0 -! JVS(18893) = Jac_FULL(3862,5255) - JVS(18893) = 0 -! JVS(18894) = Jac_FULL(3862,5256) - JVS(18894) = -B(20810) -! JVS(18895) = Jac_FULL(3863,2451) - JVS(18895) = B(7452) -! JVS(18896) = Jac_FULL(3863,3863) - JVS(18896) = -B(3533)-B(3535)-B(3537)-B(3539)-B(3541)-B(3542) -! JVS(18897) = Jac_FULL(3863,4605) - JVS(18897) = B(898) -! JVS(18898) = Jac_FULL(3863,5250) - JVS(18898) = B(899)+B(7453) -! JVS(18899) = Jac_FULL(3863,5252) - JVS(18899) = -B(3536)-B(3538) -! JVS(18900) = Jac_FULL(3863,5255) - JVS(18900) = -B(3534) -! JVS(18901) = Jac_FULL(3863,5256) - JVS(18901) = -B(3540) -! JVS(18902) = Jac_FULL(3864,2230) - JVS(18902) = B(16713) -! JVS(18903) = Jac_FULL(3864,2289) - JVS(18903) = B(20518) -! JVS(18904) = Jac_FULL(3864,3621) - JVS(18904) = 0 -! JVS(18905) = Jac_FULL(3864,3864) - JVS(18905) = -B(18920)-B(18922)-B(18924)-B(18926) -! JVS(18906) = Jac_FULL(3864,5091) - JVS(18906) = 0 -! JVS(18907) = Jac_FULL(3864,5250) - JVS(18907) = B(16714)+B(20519) -! JVS(18908) = Jac_FULL(3864,5252) - JVS(18908) = -B(18923) -! JVS(18909) = Jac_FULL(3864,5255) - JVS(18909) = -B(18921) -! JVS(18910) = Jac_FULL(3864,5256) - JVS(18910) = -B(18925) -! JVS(18911) = Jac_FULL(3865,1306) - JVS(18911) = B(10696) -! JVS(18912) = Jac_FULL(3865,3865) - JVS(18912) = -B(6883)-B(6885)-B(6887)-B(6889) -! JVS(18913) = Jac_FULL(3865,4907) - JVS(18913) = B(3146) -! JVS(18914) = Jac_FULL(3865,5250) - JVS(18914) = B(10697) -! JVS(18915) = Jac_FULL(3865,5252) - JVS(18915) = -B(6886) -! JVS(18916) = Jac_FULL(3865,5255) - JVS(18916) = -B(6884) -! JVS(18917) = Jac_FULL(3865,5256) - JVS(18917) = B(3147)-B(6888) -! JVS(18918) = Jac_FULL(3866,328) - JVS(18918) = B(6581) -! JVS(18919) = Jac_FULL(3866,3866) - JVS(18919) = -B(2989)-B(2991)-B(2993)-B(2995) -! JVS(18920) = Jac_FULL(3866,4395) - JVS(18920) = B(749) -! JVS(18921) = Jac_FULL(3866,5250) - JVS(18921) = B(6582) -! JVS(18922) = Jac_FULL(3866,5252) - JVS(18922) = -B(2992) -! JVS(18923) = Jac_FULL(3866,5255) - JVS(18923) = -B(2990) -! JVS(18924) = Jac_FULL(3866,5256) - JVS(18924) = B(750)-B(2994) -! JVS(18925) = Jac_FULL(3867,3867) - JVS(18925) = -B(3543)-B(3545)-B(3547)-B(3549)-B(3551)-B(3552)-B(3553) -! JVS(18926) = Jac_FULL(3867,4605) - JVS(18926) = B(900) -! JVS(18927) = Jac_FULL(3867,5250) - JVS(18927) = B(901) -! JVS(18928) = Jac_FULL(3867,5252) - JVS(18928) = -B(3546)-B(3548) -! JVS(18929) = Jac_FULL(3867,5255) - JVS(18929) = -B(3544) -! JVS(18930) = Jac_FULL(3867,5256) - JVS(18930) = -B(3550) -! JVS(18931) = Jac_FULL(3868,1577) - JVS(18931) = B(140) -! JVS(18932) = Jac_FULL(3868,2193) - JVS(18932) = B(4451) -! JVS(18933) = Jac_FULL(3868,2223) - JVS(18933) = B(4448) -! JVS(18934) = Jac_FULL(3868,3023) - JVS(18934) = B(11992) -! JVS(18935) = Jac_FULL(3868,3404) - JVS(18935) = B(4454) -! JVS(18936) = Jac_FULL(3868,3868) - JVS(18936) = -B(831)-B(832)-B(834) -! JVS(18937) = Jac_FULL(3868,4901) - JVS(18937) = B(1683) -! JVS(18938) = Jac_FULL(3868,4994) - JVS(18938) = 0 -! JVS(18939) = Jac_FULL(3868,5250) - JVS(18939) = B(141)-B(833)-B(835)+B(4449)+B(4452)+B(11993) -! JVS(18940) = Jac_FULL(3868,5252) - JVS(18940) = 0 -! JVS(18941) = Jac_FULL(3868,5253) - JVS(18941) = 0 -! JVS(18942) = Jac_FULL(3868,5255) - JVS(18942) = 0 -! JVS(18943) = Jac_FULL(3868,5256) - JVS(18943) = 0 -! JVS(18944) = Jac_FULL(3869,2543) - JVS(18944) = B(11814) -! JVS(18945) = Jac_FULL(3869,2974) - JVS(18945) = B(4540) -! JVS(18946) = Jac_FULL(3869,3869) - JVS(18946) = -B(8084)-B(8086)-B(8088)-B(8090)-B(8092)-B(8093)-B(8094) -! JVS(18947) = Jac_FULL(3869,4974) - JVS(18947) = 0 -! JVS(18948) = Jac_FULL(3869,5250) - JVS(18948) = B(11815) -! JVS(18949) = Jac_FULL(3869,5252) - JVS(18949) = -B(8087)-B(8089) -! JVS(18950) = Jac_FULL(3869,5255) - JVS(18950) = -B(8085) -! JVS(18951) = Jac_FULL(3869,5256) - JVS(18951) = -B(8091) -! JVS(18952) = Jac_FULL(3870,155) - JVS(18952) = B(4486) -! JVS(18953) = Jac_FULL(3870,1987) - JVS(18953) = 0 -! JVS(18954) = Jac_FULL(3870,2416) - JVS(18954) = 0 -! JVS(18955) = Jac_FULL(3870,3870) - JVS(18955) = -B(8018)-B(8020)-B(8022)-B(8024)-B(8026)-B(8027)-B(8028) -! JVS(18956) = Jac_FULL(3870,4942) - JVS(18956) = 0 -! JVS(18957) = Jac_FULL(3870,5250) - JVS(18957) = 0 -! JVS(18958) = Jac_FULL(3870,5252) - JVS(18958) = -B(8021)-B(8023) -! JVS(18959) = Jac_FULL(3870,5255) - JVS(18959) = -B(8019) -! JVS(18960) = Jac_FULL(3870,5256) - JVS(18960) = -B(8025) -! JVS(18961) = Jac_FULL(3871,132) - JVS(18961) = B(12053) -! JVS(18962) = Jac_FULL(3871,1032) - JVS(18962) = 0 -! JVS(18963) = Jac_FULL(3871,2095) - JVS(18963) = B(17841) -! JVS(18964) = Jac_FULL(3871,3730) - JVS(18964) = 0 -! JVS(18965) = Jac_FULL(3871,3871) - JVS(18965) = -B(15245)-B(15247)-B(15249)-B(15251) -! JVS(18966) = Jac_FULL(3871,4586) - JVS(18966) = 0 -! JVS(18967) = Jac_FULL(3871,5250) - JVS(18967) = B(17842) -! JVS(18968) = Jac_FULL(3871,5252) - JVS(18968) = -B(15248) -! JVS(18969) = Jac_FULL(3871,5255) - JVS(18969) = -B(15246) -! JVS(18970) = Jac_FULL(3871,5256) - JVS(18970) = -B(15250) -! JVS(18971) = Jac_FULL(3872,2407) - JVS(18971) = B(17173) -! JVS(18972) = Jac_FULL(3872,3872) - JVS(18972) = -B(14520)-B(14522)-B(14524)-B(14526)-B(14528)-B(14529) -! JVS(18973) = Jac_FULL(3872,5175) - JVS(18973) = B(11257) -! JVS(18974) = Jac_FULL(3872,5250) - JVS(18974) = B(11258)+B(17174) -! JVS(18975) = Jac_FULL(3872,5252) - JVS(18975) = -B(14523)-B(14525) -! JVS(18976) = Jac_FULL(3872,5255) - JVS(18976) = -B(14521) -! JVS(18977) = Jac_FULL(3872,5256) - JVS(18977) = -B(14527) -! JVS(18978) = Jac_FULL(3873,2775) - JVS(18978) = B(11891) -! JVS(18979) = Jac_FULL(3873,2990) - JVS(18979) = B(4597) -! JVS(18980) = Jac_FULL(3873,3873) - JVS(18980) = -B(8147)-B(8149)-B(8151)-B(8153)-B(8155)-B(8156)-B(8157) -! JVS(18981) = Jac_FULL(3873,5061) - JVS(18981) = 0 -! JVS(18982) = Jac_FULL(3873,5250) - JVS(18982) = B(11892) -! JVS(18983) = Jac_FULL(3873,5252) - JVS(18983) = -B(8150)-B(8152) -! JVS(18984) = Jac_FULL(3873,5255) - JVS(18984) = -B(8148) -! JVS(18985) = Jac_FULL(3873,5256) - JVS(18985) = -B(8154) -! JVS(18986) = Jac_FULL(3874,1544) - JVS(18986) = B(23910) -! JVS(18987) = Jac_FULL(3874,1989) - JVS(18987) = B(23559) -! JVS(18988) = Jac_FULL(3874,3447) - JVS(18988) = 0 -! JVS(18989) = Jac_FULL(3874,3874) - JVS(18989) = -B(23766)-B(23768)-B(23770)-B(23772) -! JVS(18990) = Jac_FULL(3874,4157) - JVS(18990) = 0 -! JVS(18991) = Jac_FULL(3874,5250) - JVS(18991) = B(23911) -! JVS(18992) = Jac_FULL(3874,5252) - JVS(18992) = -B(23769) -! JVS(18993) = Jac_FULL(3874,5255) - JVS(18993) = -B(23767) -! JVS(18994) = Jac_FULL(3874,5256) - JVS(18994) = -B(23771) -! JVS(18995) = Jac_FULL(3875,242) - JVS(18995) = B(4530) -! JVS(18996) = Jac_FULL(3875,1966) - JVS(18996) = B(4517) -! JVS(18997) = Jac_FULL(3875,2168) - JVS(18997) = B(4522) -! JVS(18998) = Jac_FULL(3875,3875) - JVS(18998) = -B(4525)-B(4526)-B(4528) -! JVS(18999) = Jac_FULL(3875,4733) - JVS(18999) = B(1746) -! JVS(19000) = Jac_FULL(3875,5250) - JVS(19000) = B(4518)+B(4523)-B(4529)+B(4531) -! JVS(19001) = Jac_FULL(3875,5252) - JVS(19001) = 0 -! JVS(19002) = Jac_FULL(3875,5255) - JVS(19002) = 0 -! JVS(19003) = Jac_FULL(3875,5256) - JVS(19003) = -B(4527) -! JVS(19004) = Jac_FULL(3876,1517) - JVS(19004) = B(17015) -! JVS(19005) = Jac_FULL(3876,3876) - JVS(19005) = -B(14401)-B(14403)-B(14405)-B(14407)-B(14408) -! JVS(19006) = Jac_FULL(3876,5169) - JVS(19006) = B(11188) -! JVS(19007) = Jac_FULL(3876,5250) - JVS(19007) = B(17016) -! JVS(19008) = Jac_FULL(3876,5252) - JVS(19008) = -B(14404) -! JVS(19009) = Jac_FULL(3876,5255) - JVS(19009) = -B(14402) -! JVS(19010) = Jac_FULL(3876,5256) - JVS(19010) = B(11189)-B(14406) -! JVS(19011) = Jac_FULL(3877,339) - JVS(19011) = B(4679) -! JVS(19012) = Jac_FULL(3877,2019) - JVS(19012) = B(4672) -! JVS(19013) = Jac_FULL(3877,2403) - JVS(19013) = B(4675) -! JVS(19014) = Jac_FULL(3877,2767) - JVS(19014) = B(4678) -! JVS(19015) = Jac_FULL(3877,3877) - JVS(19015) = -B(4681)-B(4682)-B(4684) -! JVS(19016) = Jac_FULL(3877,4886) - JVS(19016) = B(1866) -! JVS(19017) = Jac_FULL(3877,5250) - JVS(19017) = B(4673)+B(4676)+B(4680)-B(4685) -! JVS(19018) = Jac_FULL(3877,5252) - JVS(19018) = 0 -! JVS(19019) = Jac_FULL(3877,5255) - JVS(19019) = 0 -! JVS(19020) = Jac_FULL(3877,5256) - JVS(19020) = -B(4683) -! JVS(19021) = Jac_FULL(3878,2394) - JVS(19021) = B(4918) -! JVS(19022) = Jac_FULL(3878,3878) - JVS(19022) = -B(4919)-B(4920) -! JVS(19023) = Jac_FULL(3878,4593) - JVS(19023) = B(2085)+B(2087)+B(2090) -! JVS(19024) = Jac_FULL(3878,5250) - JVS(19024) = 0 -! JVS(19025) = Jac_FULL(3878,5252) - JVS(19025) = B(2086) -! JVS(19026) = Jac_FULL(3878,5255) - JVS(19026) = 0 -! JVS(19027) = Jac_FULL(3878,5256) - JVS(19027) = B(2088) -! JVS(19028) = Jac_FULL(3879,577) - JVS(19028) = B(7221) -! JVS(19029) = Jac_FULL(3879,1177) - JVS(19029) = B(7208) -! JVS(19030) = Jac_FULL(3879,2453) - JVS(19030) = B(7211) -! JVS(19031) = Jac_FULL(3879,2634) - JVS(19031) = B(7214) -! JVS(19032) = Jac_FULL(3879,3836) - JVS(19032) = B(3393) -! JVS(19033) = Jac_FULL(3879,3879) - JVS(19033) = -B(7215)-B(7216)-B(7218) -! JVS(19034) = Jac_FULL(3879,5045) - JVS(19034) = 0 -! JVS(19035) = Jac_FULL(3879,5250) - JVS(19035) = B(7209)+B(7212)-B(7219)+B(7222) -! JVS(19036) = Jac_FULL(3879,5252) - JVS(19036) = 0 -! JVS(19037) = Jac_FULL(3879,5255) - JVS(19037) = 0 -! JVS(19038) = Jac_FULL(3879,5256) - JVS(19038) = -B(7217) -! JVS(19039) = Jac_FULL(3880,43) - JVS(19039) = B(12158) -! JVS(19040) = Jac_FULL(3880,1534) - JVS(19040) = 0 -! JVS(19041) = Jac_FULL(3880,2205) - JVS(19041) = B(18021) -! JVS(19042) = Jac_FULL(3880,3704) - JVS(19042) = 0 -! JVS(19043) = Jac_FULL(3880,3880) - JVS(19043) = -B(15396)-B(15398)-B(15400)-B(15402) -! JVS(19044) = Jac_FULL(3880,5065) - JVS(19044) = 0 -! JVS(19045) = Jac_FULL(3880,5250) - JVS(19045) = B(18022) -! JVS(19046) = Jac_FULL(3880,5252) - JVS(19046) = -B(15399) -! JVS(19047) = Jac_FULL(3880,5255) - JVS(19047) = -B(15397) -! JVS(19048) = Jac_FULL(3880,5256) - JVS(19048) = -B(15401) -! JVS(19049) = Jac_FULL(3881,140) - JVS(19049) = B(12104) -! JVS(19050) = Jac_FULL(3881,1374) - JVS(19050) = 0 -! JVS(19051) = Jac_FULL(3881,2027) - JVS(19051) = B(17917) -! JVS(19052) = Jac_FULL(3881,3768) - JVS(19052) = 0 -! JVS(19053) = Jac_FULL(3881,3881) - JVS(19053) = -B(15312)-B(15314)-B(15316)-B(15318) -! JVS(19054) = Jac_FULL(3881,5112) - JVS(19054) = 0 -! JVS(19055) = Jac_FULL(3881,5250) - JVS(19055) = B(17918) -! JVS(19056) = Jac_FULL(3881,5252) - JVS(19056) = -B(15315) -! JVS(19057) = Jac_FULL(3881,5255) - JVS(19057) = -B(15313) -! JVS(19058) = Jac_FULL(3881,5256) - JVS(19058) = -B(15317) -! JVS(19059) = Jac_FULL(3882,290) - JVS(19059) = B(23699) -! JVS(19060) = Jac_FULL(3882,826) - JVS(19060) = 0 -! JVS(19061) = Jac_FULL(3882,2257) - JVS(19061) = 0 -! JVS(19062) = Jac_FULL(3882,3882) - JVS(19062) = -B(23866)-B(23868)-B(23870)-B(23872)-B(23874)-B(23875)-B(23876) -! JVS(19063) = Jac_FULL(3882,4216) - JVS(19063) = 0 -! JVS(19064) = Jac_FULL(3882,5250) - JVS(19064) = 0 -! JVS(19065) = Jac_FULL(3882,5252) - JVS(19065) = -B(23869)-B(23871) -! JVS(19066) = Jac_FULL(3882,5255) - JVS(19066) = -B(23867) -! JVS(19067) = Jac_FULL(3882,5256) - JVS(19067) = -B(23873) -! JVS(19068) = Jac_FULL(3883,1314) - JVS(19068) = B(14623) -! JVS(19069) = Jac_FULL(3883,3883) - JVS(19069) = -B(11298)-B(11300)-B(11302)-B(11304)-B(11306)-B(11307) -! JVS(19070) = Jac_FULL(3883,5250) - JVS(19070) = B(7494)+B(14624) -! JVS(19071) = Jac_FULL(3883,5252) - JVS(19071) = -B(11301)-B(11303) -! JVS(19072) = Jac_FULL(3883,5255) - JVS(19072) = -B(11299) -! JVS(19073) = Jac_FULL(3883,5256) - JVS(19073) = -B(11305) -! JVS(19074) = Jac_FULL(3883,5257) - JVS(19074) = B(7495) -! JVS(19075) = Jac_FULL(3884,1880) - JVS(19075) = B(4198) -! JVS(19076) = Jac_FULL(3884,3884) - JVS(19076) = -B(1423)-B(1425)-B(1427)-B(1429)-B(1431)-B(1432)-B(1433) -! JVS(19077) = Jac_FULL(3884,5165) - JVS(19077) = B(208) -! JVS(19078) = Jac_FULL(3884,5250) - JVS(19078) = B(209)+B(4199) -! JVS(19079) = Jac_FULL(3884,5252) - JVS(19079) = -B(1426)-B(1428) -! JVS(19080) = Jac_FULL(3884,5255) - JVS(19080) = -B(1424) -! JVS(19081) = Jac_FULL(3884,5256) - JVS(19081) = -B(1430) -! JVS(19082) = Jac_FULL(3885,2871) - JVS(19082) = B(11722) -! JVS(19083) = Jac_FULL(3885,3032) - JVS(19083) = B(4444) -! JVS(19084) = Jac_FULL(3885,3885) - JVS(19084) = -B(7996)-B(7998)-B(8000)-B(8002)-B(8004)-B(8005)-B(8006) -! JVS(19085) = Jac_FULL(3885,5147) - JVS(19085) = 0 -! JVS(19086) = Jac_FULL(3885,5250) - JVS(19086) = B(11723) -! JVS(19087) = Jac_FULL(3885,5252) - JVS(19087) = -B(7999)-B(8001) -! JVS(19088) = Jac_FULL(3885,5255) - JVS(19088) = -B(7997) -! JVS(19089) = Jac_FULL(3885,5256) - JVS(19089) = -B(8003) -! JVS(19090) = Jac_FULL(3886,1183) - JVS(19090) = B(17339) -! JVS(19091) = Jac_FULL(3886,3886) - JVS(19091) = -B(14744)-B(14746)-B(14748)-B(14750)-B(14752)-B(14753) -! JVS(19092) = Jac_FULL(3886,5207) - JVS(19092) = B(11396) -! JVS(19093) = Jac_FULL(3886,5250) - JVS(19093) = B(11397)+B(17340) -! JVS(19094) = Jac_FULL(3886,5252) - JVS(19094) = -B(14747)-B(14749) -! JVS(19095) = Jac_FULL(3886,5255) - JVS(19095) = -B(14745) -! JVS(19096) = Jac_FULL(3886,5256) - JVS(19096) = -B(14751) -! JVS(19097) = Jac_FULL(3887,2069) - JVS(19097) = B(5033) -! JVS(19098) = Jac_FULL(3887,3887) - JVS(19098) = -B(5034)-B(5035) -! JVS(19099) = Jac_FULL(3887,4700) - JVS(19099) = B(2181)+B(2183)+B(2185) -! JVS(19100) = Jac_FULL(3887,5250) - JVS(19100) = 0 -! JVS(19101) = Jac_FULL(3887,5252) - JVS(19101) = B(2182) -! JVS(19102) = Jac_FULL(3887,5255) - JVS(19102) = 0 -! JVS(19103) = Jac_FULL(3887,5256) - JVS(19103) = B(2184) -! JVS(19104) = Jac_FULL(3888,1080) - JVS(19104) = B(12255) -! JVS(19105) = Jac_FULL(3888,3432) - JVS(19105) = B(5036) -! JVS(19106) = Jac_FULL(3888,3887) - JVS(19106) = 0 -! JVS(19107) = Jac_FULL(3888,3888) - JVS(19107) = -B(8561)-B(8563)-B(8565)-B(8567)-B(8568) -! JVS(19108) = Jac_FULL(3888,4700) - JVS(19108) = 0 -! JVS(19109) = Jac_FULL(3888,5250) - JVS(19109) = B(5037)+B(12256) -! JVS(19110) = Jac_FULL(3888,5252) - JVS(19110) = -B(8564) -! JVS(19111) = Jac_FULL(3888,5255) - JVS(19111) = -B(8562) -! JVS(19112) = Jac_FULL(3888,5256) - JVS(19112) = -B(8566) -! JVS(19113) = Jac_FULL(3889,1514) - JVS(19113) = B(11918) -! JVS(19114) = Jac_FULL(3889,3594) - JVS(19114) = B(4602) -! JVS(19115) = Jac_FULL(3889,3889) - JVS(19115) = -B(8169)-B(8171)-B(8173)-B(8175)-B(8176) -! JVS(19116) = Jac_FULL(3889,5061) - JVS(19116) = 0 -! JVS(19117) = Jac_FULL(3889,5250) - JVS(19117) = B(4603)+B(11919) -! JVS(19118) = Jac_FULL(3889,5252) - JVS(19118) = -B(8172) -! JVS(19119) = Jac_FULL(3889,5255) - JVS(19119) = -B(8170) -! JVS(19120) = Jac_FULL(3889,5256) - JVS(19120) = -B(8174) -! JVS(19121) = Jac_FULL(3890,159) - JVS(19121) = B(17287) -! JVS(19122) = Jac_FULL(3890,949) - JVS(19122) = 0 -! JVS(19123) = Jac_FULL(3890,2079) - JVS(19123) = 0 -! JVS(19124) = Jac_FULL(3890,3890) - JVS(19124) = -B(19466)-B(19468)-B(19470)-B(19472)-B(19474)-B(19475)-B(19476) -! JVS(19125) = Jac_FULL(3890,3901) - JVS(19125) = 0 -! JVS(19126) = Jac_FULL(3890,5250) - JVS(19126) = 0 -! JVS(19127) = Jac_FULL(3890,5252) - JVS(19127) = -B(19469)-B(19471) -! JVS(19128) = Jac_FULL(3890,5255) - JVS(19128) = -B(19467) -! JVS(19129) = Jac_FULL(3890,5256) - JVS(19129) = -B(19473) -! JVS(19130) = Jac_FULL(3891,2180) - JVS(19130) = B(7474) -! JVS(19131) = Jac_FULL(3891,3891) - JVS(19131) = -B(3564)-B(3566)-B(3568)-B(3570)-B(3571) -! JVS(19132) = Jac_FULL(3891,4988) - JVS(19132) = B(904) -! JVS(19133) = Jac_FULL(3891,5250) - JVS(19133) = B(7475) -! JVS(19134) = Jac_FULL(3891,5252) - JVS(19134) = -B(3567) -! JVS(19135) = Jac_FULL(3891,5255) - JVS(19135) = -B(3565) -! JVS(19136) = Jac_FULL(3891,5256) - JVS(19136) = B(905)-B(3569) -! JVS(19137) = Jac_FULL(3892,1582) - JVS(19137) = B(3966) -! JVS(19138) = Jac_FULL(3892,2987) - JVS(19138) = B(21165) -! JVS(19139) = Jac_FULL(3892,3892) - JVS(19139) = -B(3969)-B(3971)-B(3973) -! JVS(19140) = Jac_FULL(3892,4698) - JVS(19140) = B(1199) -! JVS(19141) = Jac_FULL(3892,4984) - JVS(19141) = 0 -! JVS(19142) = Jac_FULL(3892,5250) - JVS(19142) = B(3967)-B(3972)+B(21166) -! JVS(19143) = Jac_FULL(3892,5253) - JVS(19143) = 0 -! JVS(19144) = Jac_FULL(3892,5256) - JVS(19144) = -B(3970) -! JVS(19145) = Jac_FULL(3893,2699) - JVS(19145) = B(4423) -! JVS(19146) = Jac_FULL(3893,2785) - JVS(19146) = B(11710) -! JVS(19147) = Jac_FULL(3893,3893) - JVS(19147) = -B(7985)-B(7987)-B(7989)-B(7991)-B(7993)-B(7994)-B(7995) -! JVS(19148) = Jac_FULL(3893,5192) - JVS(19148) = 0 -! JVS(19149) = Jac_FULL(3893,5250) - JVS(19149) = B(11711) -! JVS(19150) = Jac_FULL(3893,5252) - JVS(19150) = -B(7988)-B(7990) -! JVS(19151) = Jac_FULL(3893,5255) - JVS(19151) = -B(7986) -! JVS(19152) = Jac_FULL(3893,5256) - JVS(19152) = -B(7992) -! JVS(19153) = Jac_FULL(3894,566) - JVS(19153) = B(371)+B(375) -! JVS(19154) = Jac_FULL(3894,1469) - JVS(19154) = B(4661) -! JVS(19155) = Jac_FULL(3894,3894) - JVS(19155) = -B(1846)-B(1848)-B(1850)-B(1852)-B(1854)-B(1855) -! JVS(19156) = Jac_FULL(3894,5238) - JVS(19156) = B(372) -! JVS(19157) = Jac_FULL(3894,5250) - JVS(19157) = B(376)+B(4662) -! JVS(19158) = Jac_FULL(3894,5252) - JVS(19158) = -B(1849)-B(1851) -! JVS(19159) = Jac_FULL(3894,5255) - JVS(19159) = -B(1847) -! JVS(19160) = Jac_FULL(3894,5256) - JVS(19160) = -B(1853) -! JVS(19161) = Jac_FULL(3895,971) - JVS(19161) = B(22960) -! JVS(19162) = Jac_FULL(3895,3895) - JVS(19162) = -B(22546)-B(22548)-B(22550)-B(22552)-B(22553) -! JVS(19163) = Jac_FULL(3895,5189) - JVS(19163) = B(21952) -! JVS(19164) = Jac_FULL(3895,5250) - JVS(19164) = B(22961) -! JVS(19165) = Jac_FULL(3895,5252) - JVS(19165) = -B(22549) -! JVS(19166) = Jac_FULL(3895,5255) - JVS(19166) = -B(22547) -! JVS(19167) = Jac_FULL(3895,5256) - JVS(19167) = B(21953)-B(22551) -! JVS(19168) = Jac_FULL(3896,550) - JVS(19168) = B(16427) -! JVS(19169) = Jac_FULL(3896,1745) - JVS(19169) = B(16442) -! JVS(19170) = Jac_FULL(3896,2267) - JVS(19170) = 0 -! JVS(19171) = Jac_FULL(3896,3687) - JVS(19171) = 0 -! JVS(19172) = Jac_FULL(3896,3788) - JVS(19172) = 0 -! JVS(19173) = Jac_FULL(3896,3896) - JVS(19173) = -B(18683)-B(18685)-B(18687) -! JVS(19174) = Jac_FULL(3896,4793) - JVS(19174) = 0 -! JVS(19175) = Jac_FULL(3896,5250) - JVS(19175) = -B(18686) -! JVS(19176) = Jac_FULL(3896,5252) - JVS(19176) = 0 -! JVS(19177) = Jac_FULL(3896,5255) - JVS(19177) = 0 -! JVS(19178) = Jac_FULL(3896,5256) - JVS(19178) = -B(18684) -! JVS(19179) = Jac_FULL(3897,829) - JVS(19179) = B(12244) -! JVS(19180) = Jac_FULL(3897,3897) - JVS(19180) = -B(12245)-B(12246) -! JVS(19181) = Jac_FULL(3897,4344) - JVS(19181) = B(8541)+B(8543)+B(8545) -! JVS(19182) = Jac_FULL(3897,5250) - JVS(19182) = 0 -! JVS(19183) = Jac_FULL(3897,5252) - JVS(19183) = B(8542) -! JVS(19184) = Jac_FULL(3897,5255) - JVS(19184) = 0 -! JVS(19185) = Jac_FULL(3897,5256) - JVS(19185) = B(8544) -! JVS(19186) = Jac_FULL(3898,881) - JVS(19186) = B(7580) -! JVS(19187) = Jac_FULL(3898,3898) - JVS(19187) = -B(3620)-B(3622)-B(3624)-B(3626)-B(3628)-B(3629) -! JVS(19188) = Jac_FULL(3898,4988) - JVS(19188) = B(918) -! JVS(19189) = Jac_FULL(3898,5250) - JVS(19189) = B(919)+B(7581) -! JVS(19190) = Jac_FULL(3898,5252) - JVS(19190) = -B(3623)-B(3625) -! JVS(19191) = Jac_FULL(3898,5255) - JVS(19191) = -B(3621) -! JVS(19192) = Jac_FULL(3898,5256) - JVS(19192) = -B(3627) -! JVS(19193) = Jac_FULL(3899,2556) - JVS(19193) = B(22769) -! JVS(19194) = Jac_FULL(3899,3391) - JVS(19194) = B(21214) -! JVS(19195) = Jac_FULL(3899,3899) - JVS(19195) = -B(22172)-B(22174)-B(22176)-B(22178) -! JVS(19196) = Jac_FULL(3899,4890) - JVS(19196) = 0 -! JVS(19197) = Jac_FULL(3899,5250) - JVS(19197) = B(21215)+B(22770) -! JVS(19198) = Jac_FULL(3899,5252) - JVS(19198) = -B(22175) -! JVS(19199) = Jac_FULL(3899,5255) - JVS(19199) = -B(22173) -! JVS(19200) = Jac_FULL(3899,5256) - JVS(19200) = -B(22177) -! JVS(19201) = Jac_FULL(3900,1305) - JVS(19201) = B(6968) -! JVS(19202) = Jac_FULL(3900,2817) - JVS(19202) = B(6971) -! JVS(19203) = Jac_FULL(3900,3472) - JVS(19203) = B(6983) -! JVS(19204) = Jac_FULL(3900,3900) - JVS(19204) = -B(6985)-B(6987)-B(6989) -! JVS(19205) = Jac_FULL(3900,4609) - JVS(19205) = B(3194) -! JVS(19206) = Jac_FULL(3900,5250) - JVS(19206) = B(6969)+B(6972)+B(6984)-B(6988) -! JVS(19207) = Jac_FULL(3900,5252) - JVS(19207) = 0 -! JVS(19208) = Jac_FULL(3900,5255) - JVS(19208) = 0 -! JVS(19209) = Jac_FULL(3900,5256) - JVS(19209) = -B(6986) -! JVS(19210) = Jac_FULL(3901,156) - JVS(19210) = B(11385) -! JVS(19211) = Jac_FULL(3901,1178) - JVS(19211) = 0 -! JVS(19212) = Jac_FULL(3901,1771) - JVS(19212) = 0 -! JVS(19213) = Jac_FULL(3901,3901) - JVS(19213) = -B(14719)-B(14721)-B(14723)-B(14725)-B(14727)-B(14728) -! JVS(19214) = Jac_FULL(3901,5041) - JVS(19214) = 0 -! JVS(19215) = Jac_FULL(3901,5250) - JVS(19215) = 0 -! JVS(19216) = Jac_FULL(3901,5252) - JVS(19216) = -B(14722)-B(14724) -! JVS(19217) = Jac_FULL(3901,5255) - JVS(19217) = -B(14720) -! JVS(19218) = Jac_FULL(3901,5256) - JVS(19218) = -B(14726) -! JVS(19219) = Jac_FULL(3902,113) - JVS(19219) = B(22128) -! JVS(19220) = Jac_FULL(3902,1333) - JVS(19220) = 0 -! JVS(19221) = Jac_FULL(3902,3902) - JVS(19221) = -B(22747)-B(22749)-B(22751)-B(22753)-B(22755)-B(22756)-B(22757) -! JVS(19222) = Jac_FULL(3902,3951) - JVS(19222) = 0 -! JVS(19223) = Jac_FULL(3902,5250) - JVS(19223) = 0 -! JVS(19224) = Jac_FULL(3902,5252) - JVS(19224) = -B(22750)-B(22752) -! JVS(19225) = Jac_FULL(3902,5255) - JVS(19225) = -B(22748) -! JVS(19226) = Jac_FULL(3902,5256) - JVS(19226) = -B(22754) -! JVS(19227) = Jac_FULL(3903,2799) - JVS(19227) = B(8754) -! JVS(19228) = Jac_FULL(3903,3903) - JVS(19228) = -B(5272)-B(5274)-B(5276)-B(5278)-B(5279) -! JVS(19229) = Jac_FULL(3903,4397) - JVS(19229) = B(2365) -! JVS(19230) = Jac_FULL(3903,5250) - JVS(19230) = B(8755) -! JVS(19231) = Jac_FULL(3903,5252) - JVS(19231) = -B(5275) -! JVS(19232) = Jac_FULL(3903,5255) - JVS(19232) = -B(5273) -! JVS(19233) = Jac_FULL(3903,5256) - JVS(19233) = B(2366)-B(5277) -! JVS(19234) = Jac_FULL(3904,2114) - JVS(19234) = B(12328) -! JVS(19235) = Jac_FULL(3904,3904) - JVS(19235) = -B(12329)-B(12330) -! JVS(19236) = Jac_FULL(3904,4719) - JVS(19236) = B(8657)+B(8659)+B(8662) -! JVS(19237) = Jac_FULL(3904,5250) - JVS(19237) = 0 -! JVS(19238) = Jac_FULL(3904,5252) - JVS(19238) = B(8658) -! JVS(19239) = Jac_FULL(3904,5255) - JVS(19239) = 0 -! JVS(19240) = Jac_FULL(3904,5256) - JVS(19240) = B(8660) -! JVS(19241) = Jac_FULL(3905,42) - JVS(19241) = B(14237) -! JVS(19242) = Jac_FULL(3905,1043) - JVS(19242) = 0 -! JVS(19243) = Jac_FULL(3905,2423) - JVS(19243) = B(19076) -! JVS(19244) = Jac_FULL(3905,3745) - JVS(19244) = 0 -! JVS(19245) = Jac_FULL(3905,3905) - JVS(19245) = -B(16880)-B(16882)-B(16884)-B(16886) -! JVS(19246) = Jac_FULL(3905,4925) - JVS(19246) = 0 -! JVS(19247) = Jac_FULL(3905,5250) - JVS(19247) = B(19077) -! JVS(19248) = Jac_FULL(3905,5252) - JVS(19248) = -B(16883) -! JVS(19249) = Jac_FULL(3905,5255) - JVS(19249) = -B(16881) -! JVS(19250) = Jac_FULL(3905,5256) - JVS(19250) = -B(16885) -! JVS(19251) = Jac_FULL(3906,3382) - JVS(19251) = B(12004) -! JVS(19252) = Jac_FULL(3906,3777) - JVS(19252) = B(15192) -! JVS(19253) = Jac_FULL(3906,3906) - JVS(19253) = -B(15194)-B(15195)-B(15196)-B(15198) -! JVS(19254) = Jac_FULL(3906,5108) - JVS(19254) = 0 -! JVS(19255) = Jac_FULL(3906,5250) - JVS(19255) = B(12005)+B(15193)-B(15197)-B(15199) -! JVS(19256) = Jac_FULL(3906,5252) - JVS(19256) = 0 -! JVS(19257) = Jac_FULL(3906,5255) - JVS(19257) = 0 -! JVS(19258) = Jac_FULL(3906,5256) - JVS(19258) = 0 -! JVS(19259) = Jac_FULL(3907,1487) - JVS(19259) = B(17130) -! JVS(19260) = Jac_FULL(3907,3907) - JVS(19260) = -B(14488)-B(14490)-B(14492)-B(14494) -! JVS(19261) = Jac_FULL(3907,5212) - JVS(19261) = B(11232) -! JVS(19262) = Jac_FULL(3907,5250) - JVS(19262) = B(11233)+B(17131) -! JVS(19263) = Jac_FULL(3907,5252) - JVS(19263) = -B(14491) -! JVS(19264) = Jac_FULL(3907,5255) - JVS(19264) = -B(14489) -! JVS(19265) = Jac_FULL(3907,5256) - JVS(19265) = -B(14493) -! JVS(19266) = Jac_FULL(3908,1617) - JVS(19266) = B(21990) -! JVS(19267) = Jac_FULL(3908,3908) - JVS(19267) = -B(22583)-B(22585)-B(22587)-B(22589)-B(22591)-B(22592)-B(22593) -! JVS(19268) = Jac_FULL(3908,5044) - JVS(19268) = 0 -! JVS(19269) = Jac_FULL(3908,5250) - JVS(19269) = 0 -! JVS(19270) = Jac_FULL(3908,5252) - JVS(19270) = -B(22586)-B(22588) -! JVS(19271) = Jac_FULL(3908,5255) - JVS(19271) = -B(22584) -! JVS(19272) = Jac_FULL(3908,5256) - JVS(19272) = -B(22590) -! JVS(19273) = Jac_FULL(3909,3278) - JVS(19273) = B(12276) -! JVS(19274) = Jac_FULL(3909,3909) - JVS(19274) = -B(12277)-B(12278) -! JVS(19275) = Jac_FULL(3909,4345) - JVS(19275) = B(8598)+B(8600)+B(8602) -! JVS(19276) = Jac_FULL(3909,5250) - JVS(19276) = 0 -! JVS(19277) = Jac_FULL(3909,5252) - JVS(19277) = B(8599) -! JVS(19278) = Jac_FULL(3909,5255) - JVS(19278) = 0 -! JVS(19279) = Jac_FULL(3909,5256) - JVS(19279) = B(8601) -! JVS(19280) = Jac_FULL(3910,2455) - JVS(19280) = B(5150) -! JVS(19281) = Jac_FULL(3910,3910) - JVS(19281) = -B(5151)-B(5152) -! JVS(19282) = Jac_FULL(3910,4884) - JVS(19282) = B(2279)+B(2281)+B(2284) -! JVS(19283) = Jac_FULL(3910,5250) - JVS(19283) = 0 -! JVS(19284) = Jac_FULL(3910,5252) - JVS(19284) = B(2280) -! JVS(19285) = Jac_FULL(3910,5255) - JVS(19285) = 0 -! JVS(19286) = Jac_FULL(3910,5256) - JVS(19286) = B(2282) -! JVS(19287) = Jac_FULL(3911,747) - JVS(19287) = B(15727) -! JVS(19288) = Jac_FULL(3911,1606) - JVS(19288) = B(15736) -! JVS(19289) = Jac_FULL(3911,1850) - JVS(19289) = 0 -! JVS(19290) = Jac_FULL(3911,3677) - JVS(19290) = 0 -! JVS(19291) = Jac_FULL(3911,3695) - JVS(19291) = 0 -! JVS(19292) = Jac_FULL(3911,3911) - JVS(19292) = -B(18207)-B(18209)-B(18211) -! JVS(19293) = Jac_FULL(3911,4927) - JVS(19293) = 0 -! JVS(19294) = Jac_FULL(3911,5250) - JVS(19294) = -B(18210) -! JVS(19295) = Jac_FULL(3911,5252) - JVS(19295) = 0 -! JVS(19296) = Jac_FULL(3911,5255) - JVS(19296) = 0 -! JVS(19297) = Jac_FULL(3911,5256) - JVS(19297) = -B(18208) -! JVS(19298) = Jac_FULL(3912,117) - JVS(19298) = B(12009) -! JVS(19299) = Jac_FULL(3912,1075) - JVS(19299) = 0 -! JVS(19300) = Jac_FULL(3912,1937) - JVS(19300) = B(17780) -! JVS(19301) = Jac_FULL(3912,3785) - JVS(19301) = 0 -! JVS(19302) = Jac_FULL(3912,3912) - JVS(19302) = -B(15200)-B(15202)-B(15204)-B(15206) -! JVS(19303) = Jac_FULL(3912,4766) - JVS(19303) = 0 -! JVS(19304) = Jac_FULL(3912,5250) - JVS(19304) = B(17781) -! JVS(19305) = Jac_FULL(3912,5252) - JVS(19305) = -B(15203) -! JVS(19306) = Jac_FULL(3912,5255) - JVS(19306) = -B(15201) -! JVS(19307) = Jac_FULL(3912,5256) - JVS(19307) = -B(15205) -! JVS(19308) = Jac_FULL(3913,696) - JVS(19308) = B(22420) -! JVS(19309) = Jac_FULL(3913,1312) - JVS(19309) = B(22415) -! JVS(19310) = Jac_FULL(3913,3913) - JVS(19310) = -B(22416)-B(22417) -! JVS(19311) = Jac_FULL(3913,4350) - JVS(19311) = B(21797)+B(21799)+B(21801) -! JVS(19312) = Jac_FULL(3913,5250) - JVS(19312) = 0 -! JVS(19313) = Jac_FULL(3913,5252) - JVS(19313) = B(21798) -! JVS(19314) = Jac_FULL(3913,5255) - JVS(19314) = 0 -! JVS(19315) = Jac_FULL(3913,5256) - JVS(19315) = B(21800) -! JVS(19316) = Jac_FULL(3914,660) - JVS(19316) = B(15706) -! JVS(19317) = Jac_FULL(3914,1713) - JVS(19317) = B(15721) -! JVS(19318) = Jac_FULL(3914,2053) - JVS(19318) = 0 -! JVS(19319) = Jac_FULL(3914,3705) - JVS(19319) = 0 -! JVS(19320) = Jac_FULL(3914,3739) - JVS(19320) = 0 -! JVS(19321) = Jac_FULL(3914,3914) - JVS(19321) = -B(18195)-B(18197)-B(18199) -! JVS(19322) = Jac_FULL(3914,4895) - JVS(19322) = 0 -! JVS(19323) = Jac_FULL(3914,5250) - JVS(19323) = -B(18198) -! JVS(19324) = Jac_FULL(3914,5252) - JVS(19324) = 0 -! JVS(19325) = Jac_FULL(3914,5255) - JVS(19325) = 0 -! JVS(19326) = Jac_FULL(3914,5256) - JVS(19326) = -B(18196) -! JVS(19327) = Jac_FULL(3915,546) - JVS(19327) = B(11730) -! JVS(19328) = Jac_FULL(3915,1616) - JVS(19328) = B(11729) -! JVS(19329) = Jac_FULL(3915,2761) - JVS(19329) = 0 -! JVS(19330) = Jac_FULL(3915,2871) - JVS(19330) = 0 -! JVS(19331) = Jac_FULL(3915,3885) - JVS(19331) = 0 -! JVS(19332) = Jac_FULL(3915,3915) - JVS(19332) = -B(14946)-B(14947)-B(14949) -! JVS(19333) = Jac_FULL(3915,5147) - JVS(19333) = 0 -! JVS(19334) = Jac_FULL(3915,5250) - JVS(19334) = B(11731)-B(14950) -! JVS(19335) = Jac_FULL(3915,5252) - JVS(19335) = 0 -! JVS(19336) = Jac_FULL(3915,5255) - JVS(19336) = 0 -! JVS(19337) = Jac_FULL(3915,5256) - JVS(19337) = -B(14948) -! JVS(19338) = Jac_FULL(3916,35) - JVS(19338) = B(12140) -! JVS(19339) = Jac_FULL(3916,1028) - JVS(19339) = 0 -! JVS(19340) = Jac_FULL(3916,2411) - JVS(19340) = B(17977) -! JVS(19341) = Jac_FULL(3916,3678) - JVS(19341) = 0 -! JVS(19342) = Jac_FULL(3916,3916) - JVS(19342) = -B(15368)-B(15370)-B(15372)-B(15374) -! JVS(19343) = Jac_FULL(3916,5138) - JVS(19343) = 0 -! JVS(19344) = Jac_FULL(3916,5250) - JVS(19344) = B(17978) -! JVS(19345) = Jac_FULL(3916,5252) - JVS(19345) = -B(15371) -! JVS(19346) = Jac_FULL(3916,5255) - JVS(19346) = -B(15369) -! JVS(19347) = Jac_FULL(3916,5256) - JVS(19347) = -B(15373) -! JVS(19348) = Jac_FULL(3917,469) - JVS(19348) = B(12076) -! JVS(19349) = Jac_FULL(3917,1168) - JVS(19349) = B(12070) -! JVS(19350) = Jac_FULL(3917,2284) - JVS(19350) = B(12075) -! JVS(19351) = Jac_FULL(3917,2299) - JVS(19351) = B(12073) -! JVS(19352) = Jac_FULL(3917,3749) - JVS(19352) = B(8334) -! JVS(19353) = Jac_FULL(3917,3917) - JVS(19353) = -B(12078)-B(12079)-B(12081) -! JVS(19354) = Jac_FULL(3917,5144) - JVS(19354) = 0 -! JVS(19355) = Jac_FULL(3917,5250) - JVS(19355) = B(12071)+B(12074)+B(12077)-B(12080)-B(12082) -! JVS(19356) = Jac_FULL(3917,5252) - JVS(19356) = 0 -! JVS(19357) = Jac_FULL(3917,5255) - JVS(19357) = 0 -! JVS(19358) = Jac_FULL(3917,5256) - JVS(19358) = 0 -! JVS(19359) = Jac_FULL(3918,1578) - JVS(19359) = B(16213) -! JVS(19360) = Jac_FULL(3918,2482) - JVS(19360) = B(15702) -! JVS(19361) = Jac_FULL(3918,2686) - JVS(19361) = B(16207) -! JVS(19362) = Jac_FULL(3918,3196) - JVS(19362) = B(15697) -! JVS(19363) = Jac_FULL(3918,3438) - JVS(19363) = B(9879) -! JVS(19364) = Jac_FULL(3918,3569) - JVS(19364) = B(9877) -! JVS(19365) = Jac_FULL(3918,3578) - JVS(19365) = B(16209) -! JVS(19366) = Jac_FULL(3918,3918) - JVS(19366) = -B(13245)-B(13247) -! JVS(19367) = Jac_FULL(3918,4558) - JVS(19367) = 0 -! JVS(19368) = Jac_FULL(3918,4568) - JVS(19368) = 0 -! JVS(19369) = Jac_FULL(3918,4674) - JVS(19369) = 0 -! JVS(19370) = Jac_FULL(3918,5250) - JVS(19370) = B(9880)-B(13246) -! JVS(19371) = Jac_FULL(3918,5252) - JVS(19371) = 0 -! JVS(19372) = Jac_FULL(3918,5255) - JVS(19372) = 0 -! JVS(19373) = Jac_FULL(3918,5256) - JVS(19373) = 0 -! JVS(19374) = Jac_FULL(3919,66) - JVS(19374) = B(12122) -! JVS(19375) = Jac_FULL(3919,1410) - JVS(19375) = 0 -! JVS(19376) = Jac_FULL(3919,2298) - JVS(19376) = B(17947) -! JVS(19377) = Jac_FULL(3919,3766) - JVS(19377) = 0 -! JVS(19378) = Jac_FULL(3919,3919) - JVS(19378) = -B(15340)-B(15342)-B(15344)-B(15346) -! JVS(19379) = Jac_FULL(3919,5107) - JVS(19379) = 0 -! JVS(19380) = Jac_FULL(3919,5250) - JVS(19380) = B(17948) -! JVS(19381) = Jac_FULL(3919,5252) - JVS(19381) = -B(15343) -! JVS(19382) = Jac_FULL(3919,5255) - JVS(19382) = -B(15341) -! JVS(19383) = Jac_FULL(3919,5256) - JVS(19383) = -B(15345) -! JVS(19384) = Jac_FULL(3920,2098) - JVS(19384) = B(17387) -! JVS(19385) = Jac_FULL(3920,3920) - JVS(19385) = -B(14818)-B(14820)-B(14822)-B(14824)-B(14826)-B(14827) -! JVS(19386) = Jac_FULL(3920,5249) - JVS(19386) = B(11434) -! JVS(19387) = Jac_FULL(3920,5250) - JVS(19387) = B(11435)+B(17388) -! JVS(19388) = Jac_FULL(3920,5252) - JVS(19388) = -B(14821)-B(14823) -! JVS(19389) = Jac_FULL(3920,5255) - JVS(19389) = -B(14819) -! JVS(19390) = Jac_FULL(3920,5256) - JVS(19390) = -B(14825) -! JVS(19391) = Jac_FULL(3921,2103) - JVS(19391) = B(7293) -! JVS(19392) = Jac_FULL(3921,3921) - JVS(19392) = -B(3428)-B(3430)-B(3432)-B(3434)-B(3436)-B(3437) -! JVS(19393) = Jac_FULL(3921,4492) - JVS(19393) = B(872) -! JVS(19394) = Jac_FULL(3921,5250) - JVS(19394) = B(873)+B(7294) -! JVS(19395) = Jac_FULL(3921,5252) - JVS(19395) = -B(3431)-B(3433) -! JVS(19396) = Jac_FULL(3921,5255) - JVS(19396) = -B(3429) -! JVS(19397) = Jac_FULL(3921,5256) - JVS(19397) = -B(3435) -! JVS(19398) = Jac_FULL(3922,2449) - JVS(19398) = B(4986) -! JVS(19399) = Jac_FULL(3922,3922) - JVS(19399) = -B(4987)-B(4988) -! JVS(19400) = Jac_FULL(3922,4782) - JVS(19400) = B(2138)+B(2140)+B(2143) -! JVS(19401) = Jac_FULL(3922,5250) - JVS(19401) = 0 -! JVS(19402) = Jac_FULL(3922,5252) - JVS(19402) = B(2139) -! JVS(19403) = Jac_FULL(3922,5255) - JVS(19403) = 0 -! JVS(19404) = Jac_FULL(3922,5256) - JVS(19404) = B(2141) -! JVS(19405) = Jac_FULL(3923,546) - JVS(19405) = B(11732) -! JVS(19406) = Jac_FULL(3923,2761) - JVS(19406) = B(11727) -! JVS(19407) = Jac_FULL(3923,2871) - JVS(19407) = B(11724) -! JVS(19408) = Jac_FULL(3923,3885) - JVS(19408) = B(8006) -! JVS(19409) = Jac_FULL(3923,3923) - JVS(19409) = -B(11734)-B(11735)-B(11737) -! JVS(19410) = Jac_FULL(3923,5147) - JVS(19410) = 0 -! JVS(19411) = Jac_FULL(3923,5250) - JVS(19411) = B(11725)+B(11728)+B(11733)-B(11738) -! JVS(19412) = Jac_FULL(3923,5252) - JVS(19412) = 0 -! JVS(19413) = Jac_FULL(3923,5255) - JVS(19413) = 0 -! JVS(19414) = Jac_FULL(3923,5256) - JVS(19414) = -B(11736) -! JVS(19415) = Jac_FULL(3924,308) - JVS(19415) = B(4658) -! JVS(19416) = Jac_FULL(3924,2097) - JVS(19416) = B(4649) -! JVS(19417) = Jac_FULL(3924,2192) - JVS(19417) = B(4644) -! JVS(19418) = Jac_FULL(3924,2906) - JVS(19418) = B(4652) -! JVS(19419) = Jac_FULL(3924,3924) - JVS(19419) = -B(4653)-B(4654)-B(4656) -! JVS(19420) = Jac_FULL(3924,5077) - JVS(19420) = B(1843) -! JVS(19421) = Jac_FULL(3924,5250) - JVS(19421) = B(4645)+B(4650)-B(4657)+B(4659) -! JVS(19422) = Jac_FULL(3924,5252) - JVS(19422) = 0 -! JVS(19423) = Jac_FULL(3924,5255) - JVS(19423) = 0 -! JVS(19424) = Jac_FULL(3924,5256) - JVS(19424) = -B(4655) -! JVS(19425) = Jac_FULL(3925,2125) - JVS(19425) = B(5106) -! JVS(19426) = Jac_FULL(3925,3925) - JVS(19426) = -B(5107)-B(5108) -! JVS(19427) = Jac_FULL(3925,4587) - JVS(19427) = B(2244)+B(2246)+B(2249) -! JVS(19428) = Jac_FULL(3925,5250) - JVS(19428) = 0 -! JVS(19429) = Jac_FULL(3925,5252) - JVS(19429) = B(2245) -! JVS(19430) = Jac_FULL(3925,5255) - JVS(19430) = 0 -! JVS(19431) = Jac_FULL(3925,5256) - JVS(19431) = B(2247) -! JVS(19432) = Jac_FULL(3926,185) - JVS(19432) = B(7099) -! JVS(19433) = Jac_FULL(3926,1212) - JVS(19433) = B(14085) -! JVS(19434) = Jac_FULL(3926,1841) - JVS(19434) = 0 -! JVS(19435) = Jac_FULL(3926,2269) - JVS(19435) = 0 -! JVS(19436) = Jac_FULL(3926,3926) - JVS(19436) = -B(10887)-B(10889)-B(10891)-B(10893) -! JVS(19437) = Jac_FULL(3926,4581) - JVS(19437) = 0 -! JVS(19438) = Jac_FULL(3926,5250) - JVS(19438) = B(14086) -! JVS(19439) = Jac_FULL(3926,5252) - JVS(19439) = -B(10890) -! JVS(19440) = Jac_FULL(3926,5255) - JVS(19440) = -B(10888) -! JVS(19441) = Jac_FULL(3926,5256) - JVS(19441) = -B(10892) -! JVS(19442) = Jac_FULL(3927,3927) - JVS(19442) = -B(14530)-B(14532)-B(14534)-B(14536)-B(14538)-B(14539)-B(14540) -! JVS(19443) = Jac_FULL(3927,5175) - JVS(19443) = B(11259) -! JVS(19444) = Jac_FULL(3927,5250) - JVS(19444) = B(11260) -! JVS(19445) = Jac_FULL(3927,5252) - JVS(19445) = -B(14533)-B(14535) -! JVS(19446) = Jac_FULL(3927,5255) - JVS(19446) = -B(14531) -! JVS(19447) = Jac_FULL(3927,5256) - JVS(19447) = -B(14537) -! JVS(19448) = Jac_FULL(3928,1502) - JVS(19448) = B(17290) -! JVS(19449) = Jac_FULL(3928,3928) - JVS(19449) = -B(14729)-B(14731)-B(14733)-B(14735)-B(14736) -! JVS(19450) = Jac_FULL(3928,5207) - JVS(19450) = B(11388) -! JVS(19451) = Jac_FULL(3928,5250) - JVS(19451) = B(17291) -! JVS(19452) = Jac_FULL(3928,5252) - JVS(19452) = -B(14732) -! JVS(19453) = Jac_FULL(3928,5255) - JVS(19453) = -B(14730) -! JVS(19454) = Jac_FULL(3928,5256) - JVS(19454) = B(11389)-B(14734) -! JVS(19455) = Jac_FULL(3929,1457) - JVS(19455) = B(20304) -! JVS(19456) = Jac_FULL(3929,2429) - JVS(19456) = B(20306) -! JVS(19457) = Jac_FULL(3929,2705) - JVS(19457) = B(20310) -! JVS(19458) = Jac_FULL(3929,3929) - JVS(19458) = -B(4310)-B(4311) -! JVS(19459) = Jac_FULL(3929,4460) - JVS(19459) = B(18711)+B(18713)+B(18717)+B(18720) -! JVS(19460) = Jac_FULL(3929,4783) - JVS(19460) = B(1532) -! JVS(19461) = Jac_FULL(3929,5250) - JVS(19461) = -B(4312)+B(20305)+B(20311) -! JVS(19462) = Jac_FULL(3929,5252) - JVS(19462) = B(1533)+B(18714) -! JVS(19463) = Jac_FULL(3929,5253) - JVS(19463) = 0 -! JVS(19464) = Jac_FULL(3929,5255) - JVS(19464) = B(18712) -! JVS(19465) = Jac_FULL(3929,5256) - JVS(19465) = B(18718) -! JVS(19466) = Jac_FULL(3930,3450) - JVS(19466) = B(12579) -! JVS(19467) = Jac_FULL(3930,3930) - JVS(19467) = -B(12577)-B(12578) -! JVS(19468) = Jac_FULL(3930,3931) - JVS(19468) = B(12575) -! JVS(19469) = Jac_FULL(3930,4887) - JVS(19469) = 0 -! JVS(19470) = Jac_FULL(3930,4899) - JVS(19470) = 0 -! JVS(19471) = Jac_FULL(3930,4947) - JVS(19471) = B(8958)+B(8960)+B(8962) -! JVS(19472) = Jac_FULL(3930,5250) - JVS(19472) = B(12580) -! JVS(19473) = Jac_FULL(3930,5252) - JVS(19473) = B(8959) -! JVS(19474) = Jac_FULL(3930,5256) - JVS(19474) = B(8961) -! JVS(19475) = Jac_FULL(3931,3452) - JVS(19475) = B(9789) -! JVS(19476) = Jac_FULL(3931,3469) - JVS(19476) = B(8979) -! JVS(19477) = Jac_FULL(3931,3931) - JVS(19477) = -B(12572)-B(12574)-B(12575)-B(12576) -! JVS(19478) = Jac_FULL(3931,4887) - JVS(19478) = 0 -! JVS(19479) = Jac_FULL(3931,4899) - JVS(19479) = 0 -! JVS(19480) = Jac_FULL(3931,4947) - JVS(19480) = B(8956) -! JVS(19481) = Jac_FULL(3931,5250) - JVS(19481) = -B(12573) -! JVS(19482) = Jac_FULL(3931,5255) - JVS(19482) = B(8957) -! JVS(19483) = Jac_FULL(3932,160) - JVS(19483) = B(4412) -! JVS(19484) = Jac_FULL(3932,2227) - JVS(19484) = 0 -! JVS(19485) = Jac_FULL(3932,2285) - JVS(19485) = 0 -! JVS(19486) = Jac_FULL(3932,3932) - JVS(19486) = -B(7974)-B(7976)-B(7978)-B(7980)-B(7982)-B(7983)-B(7984) -! JVS(19487) = Jac_FULL(3932,5163) - JVS(19487) = 0 -! JVS(19488) = Jac_FULL(3932,5250) - JVS(19488) = 0 -! JVS(19489) = Jac_FULL(3932,5252) - JVS(19489) = -B(7977)-B(7979) -! JVS(19490) = Jac_FULL(3932,5255) - JVS(19490) = -B(7975) -! JVS(19491) = Jac_FULL(3932,5256) - JVS(19491) = -B(7981) -! JVS(19492) = Jac_FULL(3933,3224) - JVS(19492) = B(21555) -! JVS(19493) = Jac_FULL(3933,3933) - JVS(19493) = -B(13640)-B(13642) -! JVS(19494) = Jac_FULL(3933,4826) - JVS(19494) = B(20327)+B(20329)+B(20333)+B(20335) -! JVS(19495) = Jac_FULL(3933,5225) - JVS(19495) = B(10464) -! JVS(19496) = Jac_FULL(3933,5250) - JVS(19496) = B(10465)-B(13641)+B(21556) -! JVS(19497) = Jac_FULL(3933,5252) - JVS(19497) = B(20330) -! JVS(19498) = Jac_FULL(3933,5253) - JVS(19498) = 0 -! JVS(19499) = Jac_FULL(3933,5255) - JVS(19499) = B(20328) -! JVS(19500) = Jac_FULL(3933,5256) - JVS(19500) = B(20334) -! JVS(19501) = Jac_FULL(3934,1063) - JVS(19501) = B(4854) -! JVS(19502) = Jac_FULL(3934,3934) - JVS(19502) = -B(4855)-B(4856) -! JVS(19503) = Jac_FULL(3934,4574) - JVS(19503) = B(2031)+B(2033)+B(2036) -! JVS(19504) = Jac_FULL(3934,5250) - JVS(19504) = 0 -! JVS(19505) = Jac_FULL(3934,5252) - JVS(19505) = B(2032) -! JVS(19506) = Jac_FULL(3934,5255) - JVS(19506) = 0 -! JVS(19507) = Jac_FULL(3934,5256) - JVS(19507) = B(2034) -! JVS(19508) = Jac_FULL(3935,497) - JVS(19508) = B(11480) -! JVS(19509) = Jac_FULL(3935,1531) - JVS(19509) = B(11477) -! JVS(19510) = Jac_FULL(3935,2693) - JVS(19510) = B(11475) -! JVS(19511) = Jac_FULL(3935,3935) - JVS(19511) = -B(11482)-B(11483)-B(11485) -! JVS(19512) = Jac_FULL(3935,4785) - JVS(19512) = B(7677) -! JVS(19513) = Jac_FULL(3935,5250) - JVS(19513) = B(11476)+B(11478)+B(11481)-B(11486) -! JVS(19514) = Jac_FULL(3935,5252) - JVS(19514) = 0 -! JVS(19515) = Jac_FULL(3935,5255) - JVS(19515) = 0 -! JVS(19516) = Jac_FULL(3935,5256) - JVS(19516) = -B(11484) -! JVS(19517) = Jac_FULL(3936,3936) - JVS(19517) = -B(3438)-B(3440)-B(3442)-B(3444)-B(3446)-B(3447)-B(3448) -! JVS(19518) = Jac_FULL(3936,4492) - JVS(19518) = B(874) -! JVS(19519) = Jac_FULL(3936,5250) - JVS(19519) = B(875) -! JVS(19520) = Jac_FULL(3936,5252) - JVS(19520) = -B(3441)-B(3443) -! JVS(19521) = Jac_FULL(3936,5255) - JVS(19521) = -B(3439) -! JVS(19522) = Jac_FULL(3936,5256) - JVS(19522) = -B(3445) -! JVS(19523) = Jac_FULL(3937,1301) - JVS(19523) = B(21448) -! JVS(19524) = Jac_FULL(3937,1845) - JVS(19524) = B(18491) -! JVS(19525) = Jac_FULL(3937,3937) - JVS(19525) = -B(20158)-B(20160)-B(20162)-B(20164) -! JVS(19526) = Jac_FULL(3937,4379) - JVS(19526) = 0 -! JVS(19527) = Jac_FULL(3937,5250) - JVS(19527) = B(21449) -! JVS(19528) = Jac_FULL(3937,5252) - JVS(19528) = -B(20161) -! JVS(19529) = Jac_FULL(3937,5255) - JVS(19529) = -B(20159) -! JVS(19530) = Jac_FULL(3937,5256) - JVS(19530) = B(18492)-B(20163) -! JVS(19531) = Jac_FULL(3938,1482) - JVS(19531) = B(21136) -! JVS(19532) = Jac_FULL(3938,1779) - JVS(19532) = B(21132) -! JVS(19533) = Jac_FULL(3938,3938) - JVS(19533) = -B(21141)-B(21142)-B(21144) -! JVS(19534) = Jac_FULL(3938,4778) - JVS(19534) = B(19605) -! JVS(19535) = Jac_FULL(3938,5250) - JVS(19535) = B(21133)+B(21137)-B(21145) -! JVS(19536) = Jac_FULL(3938,5252) - JVS(19536) = 0 -! JVS(19537) = Jac_FULL(3938,5255) - JVS(19537) = 0 -! JVS(19538) = Jac_FULL(3938,5256) - JVS(19538) = -B(21143) -! JVS(19539) = Jac_FULL(3939,1438) - JVS(19539) = B(13635) -! JVS(19540) = Jac_FULL(3939,3939) - JVS(19540) = -B(10444)-B(10446)-B(10448)-B(10450)-B(10451) -! JVS(19541) = Jac_FULL(3939,5069) - JVS(19541) = B(6715) -! JVS(19542) = Jac_FULL(3939,5250) - JVS(19542) = B(6716)+B(13636) -! JVS(19543) = Jac_FULL(3939,5252) - JVS(19543) = -B(10447) -! JVS(19544) = Jac_FULL(3939,5255) - JVS(19544) = -B(10445) -! JVS(19545) = Jac_FULL(3939,5256) - JVS(19545) = -B(10449) -! JVS(19546) = Jac_FULL(3940,2065) - JVS(19546) = B(7407) -! JVS(19547) = Jac_FULL(3940,3940) - JVS(19547) = -B(3521)-B(3523)-B(3525)-B(3527)-B(3528) -! JVS(19548) = Jac_FULL(3940,4605) - JVS(19548) = B(892) -! JVS(19549) = Jac_FULL(3940,5250) - JVS(19549) = B(7408) -! JVS(19550) = Jac_FULL(3940,5252) - JVS(19550) = -B(3524) -! JVS(19551) = Jac_FULL(3940,5255) - JVS(19551) = -B(3522) -! JVS(19552) = Jac_FULL(3940,5256) - JVS(19552) = B(893)-B(3526) -! JVS(19553) = Jac_FULL(3941,91) - JVS(19553) = B(12022) -! JVS(19554) = Jac_FULL(3941,1282) - JVS(19554) = 0 -! JVS(19555) = Jac_FULL(3941,2016) - JVS(19555) = B(17784) -! JVS(19556) = Jac_FULL(3941,3674) - JVS(19556) = 0 -! JVS(19557) = Jac_FULL(3941,3941) - JVS(19557) = -B(15207)-B(15209)-B(15211)-B(15213) -! JVS(19558) = Jac_FULL(3941,5146) - JVS(19558) = 0 -! JVS(19559) = Jac_FULL(3941,5250) - JVS(19559) = B(17785) -! JVS(19560) = Jac_FULL(3941,5252) - JVS(19560) = -B(15210) -! JVS(19561) = Jac_FULL(3941,5255) - JVS(19561) = -B(15208) -! JVS(19562) = Jac_FULL(3941,5256) - JVS(19562) = -B(15212) -! JVS(19563) = Jac_FULL(3942,1302) - JVS(19563) = B(4844) -! JVS(19564) = Jac_FULL(3942,3942) - JVS(19564) = -B(4845)-B(4846) -! JVS(19565) = Jac_FULL(3942,4579) - JVS(19565) = B(2022)+B(2024)+B(2026) -! JVS(19566) = Jac_FULL(3942,5250) - JVS(19566) = 0 -! JVS(19567) = Jac_FULL(3942,5252) - JVS(19567) = B(2023) -! JVS(19568) = Jac_FULL(3942,5255) - JVS(19568) = 0 -! JVS(19569) = Jac_FULL(3942,5256) - JVS(19569) = B(2025) -! JVS(19570) = Jac_FULL(3943,1844) - JVS(19570) = B(7237) -! JVS(19571) = Jac_FULL(3943,3943) - JVS(19571) = -B(3407)-B(3409)-B(3411)-B(3413)-B(3414) -! JVS(19572) = Jac_FULL(3943,4492) - JVS(19572) = B(864) -! JVS(19573) = Jac_FULL(3943,5250) - JVS(19573) = B(7238) -! JVS(19574) = Jac_FULL(3943,5252) - JVS(19574) = -B(3410) -! JVS(19575) = Jac_FULL(3943,5255) - JVS(19575) = -B(3408) -! JVS(19576) = Jac_FULL(3943,5256) - JVS(19576) = B(865)-B(3412) -! JVS(19577) = Jac_FULL(3944,2244) - JVS(19577) = B(11829) -! JVS(19578) = Jac_FULL(3944,3944) - JVS(19578) = -B(8095)-B(8097)-B(8099)-B(8101)-B(8102) -! JVS(19579) = Jac_FULL(3944,4736) - JVS(19579) = B(4557) -! JVS(19580) = Jac_FULL(3944,5250) - JVS(19580) = B(4558)+B(11830) -! JVS(19581) = Jac_FULL(3944,5252) - JVS(19581) = -B(8098) -! JVS(19582) = Jac_FULL(3944,5255) - JVS(19582) = -B(8096) -! JVS(19583) = Jac_FULL(3944,5256) - JVS(19583) = -B(8100) -! JVS(19584) = Jac_FULL(3945,2262) - JVS(19584) = B(16177) -! JVS(19585) = Jac_FULL(3945,3945) - JVS(19585) = -B(13103)-B(13105)-B(13107)-B(13109) -! JVS(19586) = Jac_FULL(3945,4505) - JVS(19586) = B(9655) -! JVS(19587) = Jac_FULL(3945,5250) - JVS(19587) = B(16178) -! JVS(19588) = Jac_FULL(3945,5252) - JVS(19588) = -B(13106) -! JVS(19589) = Jac_FULL(3945,5255) - JVS(19589) = -B(13104) -! JVS(19590) = Jac_FULL(3945,5256) - JVS(19590) = B(9656)-B(13108) -! JVS(19591) = Jac_FULL(3946,223) - JVS(19591) = B(12062) -! JVS(19592) = Jac_FULL(3946,727) - JVS(19592) = B(12061) -! JVS(19593) = Jac_FULL(3946,1382) - JVS(19593) = B(12054) -! JVS(19594) = Jac_FULL(3946,2202) - JVS(19594) = B(12059) -! JVS(19595) = Jac_FULL(3946,3688) - JVS(19595) = B(8322) -! JVS(19596) = Jac_FULL(3946,3946) - JVS(19596) = -B(12064)-B(12065)-B(12067) -! JVS(19597) = Jac_FULL(3946,4878) - JVS(19597) = 0 -! JVS(19598) = Jac_FULL(3946,5250) - JVS(19598) = B(12055)+B(12060)+B(12063)-B(12068) -! JVS(19599) = Jac_FULL(3946,5252) - JVS(19599) = 0 -! JVS(19600) = Jac_FULL(3946,5255) - JVS(19600) = 0 -! JVS(19601) = Jac_FULL(3946,5256) - JVS(19601) = -B(12066) -! JVS(19602) = Jac_FULL(3947,427) - JVS(19602) = B(16980) -! JVS(19603) = Jac_FULL(3947,1492) - JVS(19603) = B(16967) -! JVS(19604) = Jac_FULL(3947,1933) - JVS(19604) = B(16970) -! JVS(19605) = Jac_FULL(3947,2722) - JVS(19605) = B(16973) -! JVS(19606) = Jac_FULL(3947,3947) - JVS(19606) = -B(16975)-B(16977)-B(16979) -! JVS(19607) = Jac_FULL(3947,4789) - JVS(19607) = B(14369) -! JVS(19608) = Jac_FULL(3947,5250) - JVS(19608) = B(16968)+B(16971)-B(16978)+B(16981) -! JVS(19609) = Jac_FULL(3947,5252) - JVS(19609) = 0 -! JVS(19610) = Jac_FULL(3947,5255) - JVS(19610) = 0 -! JVS(19611) = Jac_FULL(3947,5256) - JVS(19611) = -B(16976) -! JVS(19612) = Jac_FULL(3948,2426) - JVS(19612) = B(17703) -! JVS(19613) = Jac_FULL(3948,3384) - JVS(19613) = B(11913) -! JVS(19614) = Jac_FULL(3948,3948) - JVS(19614) = -B(15128)-B(15130)-B(15132)-B(15134)-B(15135) -! JVS(19615) = Jac_FULL(3948,4334) - JVS(19615) = 0 -! JVS(19616) = Jac_FULL(3948,5250) - JVS(19616) = B(11914)+B(17704) -! JVS(19617) = Jac_FULL(3948,5252) - JVS(19617) = -B(15131) -! JVS(19618) = Jac_FULL(3948,5255) - JVS(19618) = -B(15129) -! JVS(19619) = Jac_FULL(3948,5256) - JVS(19619) = -B(15133) -! JVS(19620) = Jac_FULL(3949,984) - JVS(19620) = B(21921) -! JVS(19621) = Jac_FULL(3949,3949) - JVS(19621) = -B(20865)-B(20867)-B(20869)-B(20871)-B(20872) -! JVS(19622) = Jac_FULL(3949,5095) - JVS(19622) = B(19318) -! JVS(19623) = Jac_FULL(3949,5250) - JVS(19623) = B(21922) -! JVS(19624) = Jac_FULL(3949,5252) - JVS(19624) = -B(20868) -! JVS(19625) = Jac_FULL(3949,5255) - JVS(19625) = -B(20866) -! JVS(19626) = Jac_FULL(3949,5256) - JVS(19626) = B(19319)-B(20870) -! JVS(19627) = Jac_FULL(3950,1272) - JVS(19627) = B(21935) -! JVS(19628) = Jac_FULL(3950,3950) - JVS(19628) = -B(20874)-B(20876)-B(20878)-B(20880)-B(20882)-B(20883) -! JVS(19629) = Jac_FULL(3950,5095) - JVS(19629) = B(19326) -! JVS(19630) = Jac_FULL(3950,5250) - JVS(19630) = B(19327)+B(21936) -! JVS(19631) = Jac_FULL(3950,5252) - JVS(19631) = -B(20877)-B(20879) -! JVS(19632) = Jac_FULL(3950,5255) - JVS(19632) = -B(20875) -! JVS(19633) = Jac_FULL(3950,5256) - JVS(19633) = -B(20881) -! JVS(19634) = Jac_FULL(3951,183) - JVS(19634) = B(19535) -! JVS(19635) = Jac_FULL(3951,1195) - JVS(19635) = 0 -! JVS(19636) = Jac_FULL(3951,2250) - JVS(19636) = 0 -! JVS(19637) = Jac_FULL(3951,3951) - JVS(19637) = -B(21109)-B(21111)-B(21113)-B(21115)-B(21116) -! JVS(19638) = Jac_FULL(3951,5114) - JVS(19638) = 0 -! JVS(19639) = Jac_FULL(3951,5250) - JVS(19639) = 0 -! JVS(19640) = Jac_FULL(3951,5252) - JVS(19640) = -B(21112) -! JVS(19641) = Jac_FULL(3951,5255) - JVS(19641) = -B(21110) -! JVS(19642) = Jac_FULL(3951,5256) - JVS(19642) = -B(21114) -! JVS(19643) = Jac_FULL(3952,2922) - JVS(19643) = B(4806) -! JVS(19644) = Jac_FULL(3952,3952) - JVS(19644) = -B(8414)-B(8416)-B(8418)-B(8420)-B(8422)-B(8423)-B(8424) -! JVS(19645) = Jac_FULL(3952,5181) - JVS(19645) = 0 -! JVS(19646) = Jac_FULL(3952,5250) - JVS(19646) = 0 -! JVS(19647) = Jac_FULL(3952,5252) - JVS(19647) = -B(8417)-B(8419) -! JVS(19648) = Jac_FULL(3952,5255) - JVS(19648) = -B(8415) -! JVS(19649) = Jac_FULL(3952,5256) - JVS(19649) = -B(8421) -! JVS(19650) = Jac_FULL(3953,974) - JVS(19650) = B(16129) -! JVS(19651) = Jac_FULL(3953,2875) - JVS(19651) = B(9600) -! JVS(19652) = Jac_FULL(3953,3953) - JVS(19652) = -B(13045)-B(13047)-B(13049)-B(13051) -! JVS(19653) = Jac_FULL(3953,4675) - JVS(19653) = 0 -! JVS(19654) = Jac_FULL(3953,5250) - JVS(19654) = B(9601)+B(16130) -! JVS(19655) = Jac_FULL(3953,5252) - JVS(19655) = -B(13048) -! JVS(19656) = Jac_FULL(3953,5255) - JVS(19656) = -B(13046) -! JVS(19657) = Jac_FULL(3953,5256) - JVS(19657) = -B(13050) -! JVS(19658) = Jac_FULL(3954,2186) - JVS(19658) = B(14217) -! JVS(19659) = Jac_FULL(3954,2360) - JVS(19659) = B(19053) -! JVS(19660) = Jac_FULL(3954,3055) - JVS(19660) = 0 -! JVS(19661) = Jac_FULL(3954,3954) - JVS(19661) = -B(16856)-B(16858)-B(16860)-B(16862) -! JVS(19662) = Jac_FULL(3954,4765) - JVS(19662) = 0 -! JVS(19663) = Jac_FULL(3954,5250) - JVS(19663) = B(19054) -! JVS(19664) = Jac_FULL(3954,5252) - JVS(19664) = -B(16859) -! JVS(19665) = Jac_FULL(3954,5255) - JVS(19665) = -B(16857) -! JVS(19666) = Jac_FULL(3954,5256) - JVS(19666) = -B(16861) -! JVS(19667) = Jac_FULL(3955,370) - JVS(19667) = B(11063) -! JVS(19668) = Jac_FULL(3955,1007) - JVS(19668) = 0 -! JVS(19669) = Jac_FULL(3955,1353) - JVS(19669) = B(16887) -! JVS(19670) = Jac_FULL(3955,3955) - JVS(19670) = -B(14244)-B(14246)-B(14248)-B(14250)-B(14252)-B(14253) -! JVS(19671) = Jac_FULL(3955,4201) - JVS(19671) = 0 -! JVS(19672) = Jac_FULL(3955,5250) - JVS(19672) = B(16888) -! JVS(19673) = Jac_FULL(3955,5252) - JVS(19673) = -B(14247)-B(14249) -! JVS(19674) = Jac_FULL(3955,5255) - JVS(19674) = -B(14245) -! JVS(19675) = Jac_FULL(3955,5256) - JVS(19675) = -B(14251) -! JVS(19676) = Jac_FULL(3956,2413) - JVS(19676) = B(4976) -! JVS(19677) = Jac_FULL(3956,3956) - JVS(19677) = -B(4977)-B(4978) -! JVS(19678) = Jac_FULL(3956,4714) - JVS(19678) = B(2129)+B(2131)+B(2134) -! JVS(19679) = Jac_FULL(3956,5250) - JVS(19679) = 0 -! JVS(19680) = Jac_FULL(3956,5252) - JVS(19680) = B(2130) -! JVS(19681) = Jac_FULL(3956,5255) - JVS(19681) = 0 -! JVS(19682) = Jac_FULL(3956,5256) - JVS(19682) = B(2132) -! JVS(19683) = Jac_FULL(3957,699) - JVS(19683) = B(22651) -! JVS(19684) = Jac_FULL(3957,882) - JVS(19684) = B(22640) -! JVS(19685) = Jac_FULL(3957,2311) - JVS(19685) = B(22643) -! JVS(19686) = Jac_FULL(3957,3957) - JVS(19686) = -B(22644)-B(22645) -! JVS(19687) = Jac_FULL(3957,4825) - JVS(19687) = B(22029)+B(22031)+B(22034) -! JVS(19688) = Jac_FULL(3957,5250) - JVS(19688) = 0 -! JVS(19689) = Jac_FULL(3957,5252) - JVS(19689) = B(22030) -! JVS(19690) = Jac_FULL(3957,5255) - JVS(19690) = 0 -! JVS(19691) = Jac_FULL(3957,5256) - JVS(19691) = B(22032) -! JVS(19692) = Jac_FULL(3958,643) - JVS(19692) = B(23899) -! JVS(19693) = Jac_FULL(3958,2153) - JVS(19693) = B(23894) -! JVS(19694) = Jac_FULL(3958,2567) - JVS(19694) = B(23891) -! JVS(19695) = Jac_FULL(3958,3958) - JVS(19695) = -B(23963)-B(23965) -! JVS(19696) = Jac_FULL(3958,4477) - JVS(19696) = 0 -! JVS(19697) = Jac_FULL(3958,4525) - JVS(19697) = 0 -! JVS(19698) = Jac_FULL(3958,5250) - JVS(19698) = B(23892)+B(23895)-B(23964) -! JVS(19699) = Jac_FULL(3958,5252) - JVS(19699) = 0 -! JVS(19700) = Jac_FULL(3958,5253) - JVS(19700) = 0 -! JVS(19701) = Jac_FULL(3958,5255) - JVS(19701) = 0 -! JVS(19702) = Jac_FULL(3958,5256) - JVS(19702) = 0 -! JVS(19703) = Jac_FULL(3959,847) - JVS(19703) = B(3682) -! JVS(19704) = Jac_FULL(3959,1886) - JVS(19704) = B(3671) -! JVS(19705) = Jac_FULL(3959,2367) - JVS(19705) = B(3676) -! JVS(19706) = Jac_FULL(3959,3959) - JVS(19706) = -B(3679)-B(3681) -! JVS(19707) = Jac_FULL(3959,4574) - JVS(19707) = 0 -! JVS(19708) = Jac_FULL(3959,4645) - JVS(19708) = B(973) -! JVS(19709) = Jac_FULL(3959,5053) - JVS(19709) = B(3235) -! JVS(19710) = Jac_FULL(3959,5149) - JVS(19710) = 0 -! JVS(19711) = Jac_FULL(3959,5250) - JVS(19711) = B(3672)+B(3677)-B(3680)+B(3683) -! JVS(19712) = Jac_FULL(3959,5252) - JVS(19712) = 0 -! JVS(19713) = Jac_FULL(3959,5255) - JVS(19713) = 0 -! JVS(19714) = Jac_FULL(3960,3041) - JVS(19714) = B(23801) -! JVS(19715) = Jac_FULL(3960,3960) - JVS(19715) = -B(23927)-B(23929)-B(23931) -! JVS(19716) = Jac_FULL(3960,4346) - JVS(19716) = 0 -! JVS(19717) = Jac_FULL(3960,5250) - JVS(19717) = -B(23930) -! JVS(19718) = Jac_FULL(3960,5252) - JVS(19718) = 0 -! JVS(19719) = Jac_FULL(3960,5255) - JVS(19719) = 0 -! JVS(19720) = Jac_FULL(3960,5256) - JVS(19720) = -B(23928) -! JVS(19721) = Jac_FULL(3961,2710) - JVS(19721) = B(4513) -! JVS(19722) = Jac_FULL(3961,3046) - JVS(19722) = B(11778) -! JVS(19723) = Jac_FULL(3961,3961) - JVS(19723) = -B(8051)-B(8053)-B(8055)-B(8057)-B(8059)-B(8060)-B(8061) -! JVS(19724) = Jac_FULL(3961,5186) - JVS(19724) = 0 -! JVS(19725) = Jac_FULL(3961,5250) - JVS(19725) = B(11779) -! JVS(19726) = Jac_FULL(3961,5252) - JVS(19726) = -B(8054)-B(8056) -! JVS(19727) = Jac_FULL(3961,5255) - JVS(19727) = -B(8052) -! JVS(19728) = Jac_FULL(3961,5256) - JVS(19728) = -B(8058) -! JVS(19729) = Jac_FULL(3962,1605) - JVS(19729) = B(17105) -! JVS(19730) = Jac_FULL(3962,3962) - JVS(19730) = -B(19329)-B(19331)-B(19333)-B(19335)-B(19337)-B(19338)-B(19339) -! JVS(19731) = Jac_FULL(3962,4953) - JVS(19731) = 0 -! JVS(19732) = Jac_FULL(3962,5250) - JVS(19732) = 0 -! JVS(19733) = Jac_FULL(3962,5252) - JVS(19733) = -B(19332)-B(19334) -! JVS(19734) = Jac_FULL(3962,5255) - JVS(19734) = -B(19330) -! JVS(19735) = Jac_FULL(3962,5256) - JVS(19735) = -B(19336) -! JVS(19736) = Jac_FULL(3963,3963) - JVS(19736) = -B(3609)-B(3611)-B(3613)-B(3615)-B(3617)-B(3618)-B(3619) -! JVS(19737) = Jac_FULL(3963,4988) - JVS(19737) = B(916) -! JVS(19738) = Jac_FULL(3963,5250) - JVS(19738) = B(917) -! JVS(19739) = Jac_FULL(3963,5252) - JVS(19739) = -B(3612)-B(3614) -! JVS(19740) = Jac_FULL(3963,5255) - JVS(19740) = -B(3610) -! JVS(19741) = Jac_FULL(3963,5256) - JVS(19741) = -B(3616) -! JVS(19742) = Jac_FULL(3964,1515) - JVS(19742) = B(12238) -! JVS(19743) = Jac_FULL(3964,3418) - JVS(19743) = B(4979) -! JVS(19744) = Jac_FULL(3964,3956) - JVS(19744) = 0 -! JVS(19745) = Jac_FULL(3964,3964) - JVS(19745) = -B(8532)-B(8534)-B(8536)-B(8538) -! JVS(19746) = Jac_FULL(3964,4714) - JVS(19746) = 0 -! JVS(19747) = Jac_FULL(3964,5250) - JVS(19747) = B(4980)+B(12239) -! JVS(19748) = Jac_FULL(3964,5252) - JVS(19748) = -B(8535) -! JVS(19749) = Jac_FULL(3964,5255) - JVS(19749) = -B(8533) -! JVS(19750) = Jac_FULL(3964,5256) - JVS(19750) = -B(8537) -! JVS(19751) = Jac_FULL(3965,3464) - JVS(19751) = B(13673) -! JVS(19752) = Jac_FULL(3965,3524) - JVS(19752) = B(13767) -! JVS(19753) = Jac_FULL(3965,3707) - JVS(19753) = 0 -! JVS(19754) = Jac_FULL(3965,3965) - JVS(19754) = -B(13153)-B(13155)-B(13156)-B(13157) -! JVS(19755) = Jac_FULL(3965,4617) - JVS(19755) = 0 -! JVS(19756) = Jac_FULL(3965,4758) - JVS(19756) = 0 -! JVS(19757) = Jac_FULL(3965,4913) - JVS(19757) = B(9681) -! JVS(19758) = Jac_FULL(3965,5250) - JVS(19758) = -B(13154)+B(13674) -! JVS(19759) = Jac_FULL(3965,5255) - JVS(19759) = B(9682) -! JVS(19760) = Jac_FULL(3966,3966) - JVS(19760) = -B(14828)-B(14830)-B(14832)-B(14834)-B(14836)-B(14837)-B(14838) -! JVS(19761) = Jac_FULL(3966,5249) - JVS(19761) = B(11436) -! JVS(19762) = Jac_FULL(3966,5250) - JVS(19762) = B(11437) -! JVS(19763) = Jac_FULL(3966,5252) - JVS(19763) = -B(14831)-B(14833) -! JVS(19764) = Jac_FULL(3966,5255) - JVS(19764) = -B(14829) -! JVS(19765) = Jac_FULL(3966,5256) - JVS(19765) = -B(14835) -! JVS(19766) = Jac_FULL(3967,202) - JVS(19766) = B(4524) -! JVS(19767) = Jac_FULL(3967,1966) - JVS(19767) = 0 -! JVS(19768) = Jac_FULL(3967,2168) - JVS(19768) = 0 -! JVS(19769) = Jac_FULL(3967,3967) - JVS(19769) = -B(8062)-B(8064)-B(8066)-B(8068)-B(8070)-B(8071)-B(8072) -! JVS(19770) = Jac_FULL(3967,4733) - JVS(19770) = 0 -! JVS(19771) = Jac_FULL(3967,5250) - JVS(19771) = 0 -! JVS(19772) = Jac_FULL(3967,5252) - JVS(19772) = -B(8065)-B(8067) -! JVS(19773) = Jac_FULL(3967,5255) - JVS(19773) = -B(8063) -! JVS(19774) = Jac_FULL(3967,5256) - JVS(19774) = -B(8069) -! JVS(19775) = Jac_FULL(3968,798) - JVS(19775) = B(18633) -! JVS(19776) = Jac_FULL(3968,2389) - JVS(19776) = 0 -! JVS(19777) = Jac_FULL(3968,3680) - JVS(19777) = 0 -! JVS(19778) = Jac_FULL(3968,3968) - JVS(19778) = -B(20243)-B(20245) -! JVS(19779) = Jac_FULL(3968,4799) - JVS(19779) = 0 -! JVS(19780) = Jac_FULL(3968,5250) - JVS(19780) = -B(20244) -! JVS(19781) = Jac_FULL(3968,5252) - JVS(19781) = 0 -! JVS(19782) = Jac_FULL(3968,5255) - JVS(19782) = 0 -! JVS(19783) = Jac_FULL(3968,5256) - JVS(19783) = 0 -! JVS(19784) = Jac_FULL(3969,1990) - JVS(19784) = B(17139) -! JVS(19785) = Jac_FULL(3969,3969) - JVS(19785) = -B(14508)-B(14510)-B(14512)-B(14514)-B(14515) -! JVS(19786) = Jac_FULL(3969,5175) - JVS(19786) = B(11251) -! JVS(19787) = Jac_FULL(3969,5250) - JVS(19787) = B(17140) -! JVS(19788) = Jac_FULL(3969,5252) - JVS(19788) = -B(14511) -! JVS(19789) = Jac_FULL(3969,5255) - JVS(19789) = -B(14509) -! JVS(19790) = Jac_FULL(3969,5256) - JVS(19790) = B(11252)-B(14513) -! JVS(19791) = Jac_FULL(3970,2366) - JVS(19791) = B(5079) -! JVS(19792) = Jac_FULL(3970,3970) - JVS(19792) = -B(5080)-B(5081) -! JVS(19793) = Jac_FULL(3970,4723) - JVS(19793) = B(2214)+B(2216)+B(2218) -! JVS(19794) = Jac_FULL(3970,5250) - JVS(19794) = 0 -! JVS(19795) = Jac_FULL(3970,5252) - JVS(19795) = B(2215) -! JVS(19796) = Jac_FULL(3970,5255) - JVS(19796) = 0 -! JVS(19797) = Jac_FULL(3970,5256) - JVS(19797) = B(2217) -! JVS(19798) = Jac_FULL(3971,2178) - JVS(19798) = B(7566) -! JVS(19799) = Jac_FULL(3971,3971) - JVS(19799) = -B(3599)-B(3601)-B(3603)-B(3605)-B(3607)-B(3608) -! JVS(19800) = Jac_FULL(3971,4988) - JVS(19800) = B(914) -! JVS(19801) = Jac_FULL(3971,5250) - JVS(19801) = B(915)+B(7567) -! JVS(19802) = Jac_FULL(3971,5252) - JVS(19802) = -B(3602)-B(3604) -! JVS(19803) = Jac_FULL(3971,5255) - JVS(19803) = -B(3600) -! JVS(19804) = Jac_FULL(3971,5256) - JVS(19804) = -B(3606) -! JVS(19805) = Jac_FULL(3972,229) - JVS(19805) = B(16772) -! JVS(19806) = Jac_FULL(3972,3405) - JVS(19806) = 0 -! JVS(19807) = Jac_FULL(3972,3972) - JVS(19807) = -B(18973)-B(18975)-B(18977) -! JVS(19808) = Jac_FULL(3972,4610) - JVS(19808) = 0 -! JVS(19809) = Jac_FULL(3972,5250) - JVS(19809) = B(16773)-B(18976) -! JVS(19810) = Jac_FULL(3972,5252) - JVS(19810) = 0 -! JVS(19811) = Jac_FULL(3972,5255) - JVS(19811) = 0 -! JVS(19812) = Jac_FULL(3972,5256) - JVS(19812) = -B(18974) -! JVS(19813) = Jac_FULL(3973,1170) - JVS(19813) = B(16027) -! JVS(19814) = Jac_FULL(3973,2645) - JVS(19814) = B(9489) -! JVS(19815) = Jac_FULL(3973,3973) - JVS(19815) = -B(12951)-B(12953)-B(12955)-B(12957) -! JVS(19816) = Jac_FULL(3973,4683) - JVS(19816) = 0 -! JVS(19817) = Jac_FULL(3973,5250) - JVS(19817) = B(9490)+B(16028) -! JVS(19818) = Jac_FULL(3973,5252) - JVS(19818) = -B(12954) -! JVS(19819) = Jac_FULL(3973,5255) - JVS(19819) = -B(12952) -! JVS(19820) = Jac_FULL(3973,5256) - JVS(19820) = -B(12956) -! JVS(19821) = Jac_FULL(3974,1381) - JVS(19821) = B(22974) -! JVS(19822) = Jac_FULL(3974,3974) - JVS(19822) = -B(22555)-B(22557)-B(22559)-B(22561)-B(22563)-B(22564) -! JVS(19823) = Jac_FULL(3974,5189) - JVS(19823) = B(21960) -! JVS(19824) = Jac_FULL(3974,5250) - JVS(19824) = B(21961)+B(22975) -! JVS(19825) = Jac_FULL(3974,5252) - JVS(19825) = -B(22558)-B(22560) -! JVS(19826) = Jac_FULL(3974,5255) - JVS(19826) = -B(22556) -! JVS(19827) = Jac_FULL(3974,5256) - JVS(19827) = -B(22562) -! JVS(19828) = Jac_FULL(3975,1345) - JVS(19828) = B(16170) -! JVS(19829) = Jac_FULL(3975,3437) - JVS(19829) = B(9651) -! JVS(19830) = Jac_FULL(3975,3975) - JVS(19830) = -B(13095)-B(13097)-B(13099)-B(13101)-B(13102) -! JVS(19831) = Jac_FULL(3975,4937) - JVS(19831) = 0 -! JVS(19832) = Jac_FULL(3975,5250) - JVS(19832) = B(9652)+B(16171) -! JVS(19833) = Jac_FULL(3975,5252) - JVS(19833) = -B(13098) -! JVS(19834) = Jac_FULL(3975,5255) - JVS(19834) = -B(13096) -! JVS(19835) = Jac_FULL(3975,5256) - JVS(19835) = -B(13100) -! JVS(19836) = Jac_FULL(3976,1275) - JVS(19836) = B(21669) -! JVS(19837) = Jac_FULL(3976,2348) - JVS(19837) = B(22303) -! JVS(19838) = Jac_FULL(3976,3976) - JVS(19838) = -B(21660)-B(21662)-B(21664)-B(21666) -! JVS(19839) = Jac_FULL(3976,4806) - JVS(19839) = B(20621)+B(20625)+B(20629)+B(20631) -! JVS(19840) = Jac_FULL(3976,5250) - JVS(19840) = B(22304) -! JVS(19841) = Jac_FULL(3976,5252) - JVS(19841) = B(20626)-B(21663) -! JVS(19842) = Jac_FULL(3976,5255) - JVS(19842) = B(20622)-B(21661) -! JVS(19843) = Jac_FULL(3976,5256) - JVS(19843) = B(20630)-B(21665) -! JVS(19844) = Jac_FULL(3977,50) - JVS(19844) = B(12086) -! JVS(19845) = Jac_FULL(3977,1416) - JVS(19845) = 0 -! JVS(19846) = Jac_FULL(3977,2316) - JVS(19846) = B(17891) -! JVS(19847) = Jac_FULL(3977,3781) - JVS(19847) = 0 -! JVS(19848) = Jac_FULL(3977,3977) - JVS(19848) = -B(15291)-B(15293)-B(15295)-B(15297) -! JVS(19849) = Jac_FULL(3977,5144) - JVS(19849) = 0 -! JVS(19850) = Jac_FULL(3977,5250) - JVS(19850) = B(17892) -! JVS(19851) = Jac_FULL(3977,5252) - JVS(19851) = -B(15294) -! JVS(19852) = Jac_FULL(3977,5255) - JVS(19852) = -B(15292) -! JVS(19853) = Jac_FULL(3977,5256) - JVS(19853) = -B(15296) -! JVS(19854) = Jac_FULL(3978,495) - JVS(19854) = B(4425) -! JVS(19855) = Jac_FULL(3978,1965) - JVS(19855) = B(4420) -! JVS(19856) = Jac_FULL(3978,2057) - JVS(19856) = B(4415) -! JVS(19857) = Jac_FULL(3978,2699) - JVS(19857) = B(4424) -! JVS(19858) = Jac_FULL(3978,2755) - JVS(19858) = B(11809) -! JVS(19859) = Jac_FULL(3978,3978) - JVS(19859) = -B(821)-B(823)-B(825) -! JVS(19860) = Jac_FULL(3978,4990) - JVS(19860) = 0 -! JVS(19861) = Jac_FULL(3978,5192) - JVS(19861) = B(1648) -! JVS(19862) = Jac_FULL(3978,5250) - JVS(19862) = -B(822)-B(824)+B(4416)+B(4421)+B(4426)+B(11810) -! JVS(19863) = Jac_FULL(3978,5252) - JVS(19863) = 0 -! JVS(19864) = Jac_FULL(3978,5253) - JVS(19864) = 0 -! JVS(19865) = Jac_FULL(3978,5255) - JVS(19865) = 0 -! JVS(19866) = Jac_FULL(3978,5256) - JVS(19866) = 0 -! JVS(19867) = Jac_FULL(3979,1430) - JVS(19867) = B(11556) -! JVS(19868) = Jac_FULL(3979,2438) - JVS(19868) = B(3941) -! JVS(19869) = Jac_FULL(3979,3623) - JVS(19869) = 0 -! JVS(19870) = Jac_FULL(3979,3979) - JVS(19870) = -B(7737)-B(7739)-B(7741)-B(7743) -! JVS(19871) = Jac_FULL(3979,4780) - JVS(19871) = 0 -! JVS(19872) = Jac_FULL(3979,5250) - JVS(19872) = B(3942)+B(11557) -! JVS(19873) = Jac_FULL(3979,5252) - JVS(19873) = -B(7740) -! JVS(19874) = Jac_FULL(3979,5255) - JVS(19874) = -B(7738) -! JVS(19875) = Jac_FULL(3979,5256) - JVS(19875) = -B(7742) -! JVS(19876) = Jac_FULL(3980,873) - JVS(19876) = B(10676) -! JVS(19877) = Jac_FULL(3980,3980) - JVS(19877) = -B(6854)-B(6856)-B(6858)-B(6860)-B(6862) -! JVS(19878) = Jac_FULL(3980,4794) - JVS(19878) = B(3141) -! JVS(19879) = Jac_FULL(3980,5250) - JVS(19879) = B(3142)+B(10677) -! JVS(19880) = Jac_FULL(3980,5252) - JVS(19880) = -B(6857)-B(6859) -! JVS(19881) = Jac_FULL(3980,5255) - JVS(19881) = -B(6855) -! JVS(19882) = Jac_FULL(3980,5256) - JVS(19882) = -B(6861) -! JVS(19883) = Jac_FULL(3981,254) - JVS(19883) = B(11153) -! JVS(19884) = Jac_FULL(3981,1266) - JVS(19884) = B(16996) -! JVS(19885) = Jac_FULL(3981,1470) - JVS(19885) = 0 -! JVS(19886) = Jac_FULL(3981,3034) - JVS(19886) = 0 -! JVS(19887) = Jac_FULL(3981,3981) - JVS(19887) = -B(14374)-B(14376)-B(14378)-B(14380)-B(14382)-B(14383) -! JVS(19888) = Jac_FULL(3981,3982) - JVS(19888) = 0 -! JVS(19889) = Jac_FULL(3981,5250) - JVS(19889) = B(16997) -! JVS(19890) = Jac_FULL(3981,5252) - JVS(19890) = -B(14377)-B(14379) -! JVS(19891) = Jac_FULL(3981,5255) - JVS(19891) = -B(14375) -! JVS(19892) = Jac_FULL(3981,5256) - JVS(19892) = -B(14381) -! JVS(19893) = Jac_FULL(3982,1470) - JVS(19893) = B(11147) -! JVS(19894) = Jac_FULL(3982,3982) - JVS(19894) = -B(7353)-B(7355)-B(7357)-B(7359)-B(7361)-B(7362) -! JVS(19895) = Jac_FULL(3982,5215) - JVS(19895) = B(3480) -! JVS(19896) = Jac_FULL(3982,5250) - JVS(19896) = B(3481)+B(11148) -! JVS(19897) = Jac_FULL(3982,5252) - JVS(19897) = -B(7356)-B(7358) -! JVS(19898) = Jac_FULL(3982,5255) - JVS(19898) = -B(7354) -! JVS(19899) = Jac_FULL(3982,5256) - JVS(19899) = -B(7360) -! JVS(19900) = Jac_FULL(3983,2398) - JVS(19900) = B(12979) -! JVS(19901) = Jac_FULL(3983,3983) - JVS(19901) = -B(16060)-B(16062)-B(16064)-B(16066)-B(16067)-B(16068) -! JVS(19902) = Jac_FULL(3983,4743) - JVS(19902) = 0 -! JVS(19903) = Jac_FULL(3983,5250) - JVS(19903) = B(12980) -! JVS(19904) = Jac_FULL(3983,5252) - JVS(19904) = -B(16063) -! JVS(19905) = Jac_FULL(3983,5255) - JVS(19905) = -B(16061) -! JVS(19906) = Jac_FULL(3983,5256) - JVS(19906) = -B(16065) -! JVS(19907) = Jac_FULL(3984,986) - JVS(19907) = B(21675) -! JVS(19908) = Jac_FULL(3984,2217) - JVS(19908) = B(22307) -! JVS(19909) = Jac_FULL(3984,3984) - JVS(19909) = -B(21676)-B(21678)-B(21680)-B(21682) -! JVS(19910) = Jac_FULL(3984,4969) - JVS(19910) = B(20634)+B(20636)+B(20640)+B(20642) -! JVS(19911) = Jac_FULL(3984,5250) - JVS(19911) = B(22308) -! JVS(19912) = Jac_FULL(3984,5252) - JVS(19912) = B(20637)-B(21679) -! JVS(19913) = Jac_FULL(3984,5255) - JVS(19913) = B(20635)-B(21677) -! JVS(19914) = Jac_FULL(3984,5256) - JVS(19914) = B(20641)-B(21681) -! JVS(19915) = Jac_FULL(3985,1012) - JVS(19915) = B(19300) -! JVS(19916) = Jac_FULL(3985,3985) - JVS(19916) = -B(17076)-B(17078)-B(17080)-B(17082)-B(17084)-B(17085) -! JVS(19917) = Jac_FULL(3985,5083) - JVS(19917) = B(14437) -! JVS(19918) = Jac_FULL(3985,5250) - JVS(19918) = B(14438)+B(19301) -! JVS(19919) = Jac_FULL(3985,5252) - JVS(19919) = -B(17079)-B(17081) -! JVS(19920) = Jac_FULL(3985,5255) - JVS(19920) = -B(17077) -! JVS(19921) = Jac_FULL(3985,5256) - JVS(19921) = -B(17083) -! JVS(19922) = Jac_FULL(3986,333) - JVS(19922) = B(11979) -! JVS(19923) = Jac_FULL(3986,1559) - JVS(19923) = B(11978) -! JVS(19924) = Jac_FULL(3986,1992) - JVS(19924) = B(11973) -! JVS(19925) = Jac_FULL(3986,2218) - JVS(19925) = B(11976) -! JVS(19926) = Jac_FULL(3986,3667) - JVS(19926) = B(8234) -! JVS(19927) = Jac_FULL(3986,3986) - JVS(19927) = -B(11981)-B(11982)-B(11984) -! JVS(19928) = Jac_FULL(3986,4886) - JVS(19928) = 0 -! JVS(19929) = Jac_FULL(3986,5250) - JVS(19929) = B(11974)+B(11977)+B(11980)-B(11985) -! JVS(19930) = Jac_FULL(3986,5252) - JVS(19930) = 0 -! JVS(19931) = Jac_FULL(3986,5255) - JVS(19931) = 0 -! JVS(19932) = Jac_FULL(3986,5256) - JVS(19932) = -B(11983) -! JVS(19933) = Jac_FULL(3987,1377) - JVS(19933) = B(6594) -! JVS(19934) = Jac_FULL(3987,3987) - JVS(19934) = -B(3000)-B(3002)-B(3004)-B(3006) -! JVS(19935) = Jac_FULL(3987,4395) - JVS(19935) = B(755) -! JVS(19936) = Jac_FULL(3987,5250) - JVS(19936) = B(756)+B(6595) -! JVS(19937) = Jac_FULL(3987,5252) - JVS(19937) = -B(3003) -! JVS(19938) = Jac_FULL(3987,5255) - JVS(19938) = -B(3001) -! JVS(19939) = Jac_FULL(3987,5256) - JVS(19939) = -B(3005) -! JVS(19940) = Jac_FULL(3988,885) - JVS(19940) = B(14547) -! JVS(19941) = Jac_FULL(3988,3988) - JVS(19941) = -B(11275)-B(11277)-B(11279)-B(11281)-B(11282) -! JVS(19942) = Jac_FULL(3988,5250) - JVS(19942) = B(14548) -! JVS(19943) = Jac_FULL(3988,5252) - JVS(19943) = -B(11278) -! JVS(19944) = Jac_FULL(3988,5255) - JVS(19944) = -B(11276) -! JVS(19945) = Jac_FULL(3988,5256) - JVS(19945) = B(7482)-B(11280) -! JVS(19946) = Jac_FULL(3988,5257) - JVS(19946) = B(7483) -! JVS(19947) = Jac_FULL(3989,165) - JVS(19947) = B(4581) -! JVS(19948) = Jac_FULL(3989,1751) - JVS(19948) = 0 -! JVS(19949) = Jac_FULL(3989,2277) - JVS(19949) = 0 -! JVS(19950) = Jac_FULL(3989,3989) - JVS(19950) = -B(8125)-B(8127)-B(8129)-B(8131)-B(8133)-B(8134)-B(8135) -! JVS(19951) = Jac_FULL(3989,4696) - JVS(19951) = 0 -! JVS(19952) = Jac_FULL(3989,5250) - JVS(19952) = 0 -! JVS(19953) = Jac_FULL(3989,5252) - JVS(19953) = -B(8128)-B(8130) -! JVS(19954) = Jac_FULL(3989,5255) - JVS(19954) = -B(8126) -! JVS(19955) = Jac_FULL(3989,5256) - JVS(19955) = -B(8132) -! JVS(19956) = Jac_FULL(3990,3990) - JVS(19956) = -B(11333)-B(11335)-B(11337)-B(11339)-B(11341)-B(11342) -! JVS(19957) = Jac_FULL(3990,4970) - JVS(19957) = B(7509) -! JVS(19958) = Jac_FULL(3990,5250) - JVS(19958) = B(7510) -! JVS(19959) = Jac_FULL(3990,5252) - JVS(19959) = -B(11336)-B(11338) -! JVS(19960) = Jac_FULL(3990,5255) - JVS(19960) = -B(11334) -! JVS(19961) = Jac_FULL(3990,5256) - JVS(19961) = -B(11340) -! JVS(19962) = Jac_FULL(3991,355) - JVS(19962) = B(11512) -! JVS(19963) = Jac_FULL(3991,1005) - JVS(19963) = B(11504) -! JVS(19964) = Jac_FULL(3991,3205) - JVS(19964) = B(11500) -! JVS(19965) = Jac_FULL(3991,3991) - JVS(19965) = -B(11507)-B(11508)-B(11510) -! JVS(19966) = Jac_FULL(3991,4359) - JVS(19966) = B(7708) -! JVS(19967) = Jac_FULL(3991,5250) - JVS(19967) = B(11501)+B(11505)-B(11511)+B(11513) -! JVS(19968) = Jac_FULL(3991,5252) - JVS(19968) = 0 -! JVS(19969) = Jac_FULL(3991,5255) - JVS(19969) = 0 -! JVS(19970) = Jac_FULL(3991,5256) - JVS(19970) = -B(11509) -! JVS(19971) = Jac_FULL(3992,36) - JVS(19971) = B(14882) -! JVS(19972) = Jac_FULL(3992,865) - JVS(19972) = 0 -! JVS(19973) = Jac_FULL(3992,2797) - JVS(19973) = B(19550) -! JVS(19974) = Jac_FULL(3992,3992) - JVS(19974) = -B(17439)-B(17441)-B(17443)-B(17445) -! JVS(19975) = Jac_FULL(3992,4244) - JVS(19975) = 0 -! JVS(19976) = Jac_FULL(3992,5250) - JVS(19976) = B(19551) -! JVS(19977) = Jac_FULL(3992,5252) - JVS(19977) = -B(17442) -! JVS(19978) = Jac_FULL(3992,5255) - JVS(19978) = -B(17440) -! JVS(19979) = Jac_FULL(3992,5256) - JVS(19979) = -B(17444) -! JVS(19980) = Jac_FULL(3993,2392) - JVS(19980) = B(16554) -! JVS(19981) = Jac_FULL(3993,2616) - JVS(19981) = B(16549) -! JVS(19982) = Jac_FULL(3993,3204) - JVS(19982) = B(16552) -! JVS(19983) = Jac_FULL(3993,3993) - JVS(19983) = -B(4303)-B(4304) -! JVS(19984) = Jac_FULL(3993,4783) - JVS(19984) = B(1539) -! JVS(19985) = Jac_FULL(3993,4936) - JVS(19985) = B(1529) -! JVS(19986) = Jac_FULL(3993,5025) - JVS(19986) = 0 -! JVS(19987) = Jac_FULL(3993,5035) - JVS(19987) = B(13716) -! JVS(19988) = Jac_FULL(3993,5250) - JVS(19988) = -B(4305)+B(16550)+B(16553)+B(16555) -! JVS(19989) = Jac_FULL(3993,5253) - JVS(19989) = 0 -! JVS(19990) = Jac_FULL(3993,5255) - JVS(19990) = 0 -! JVS(19991) = Jac_FULL(3994,1468) - JVS(19991) = B(7466) -! JVS(19992) = Jac_FULL(3994,3994) - JVS(19992) = -B(3554)-B(3556)-B(3558)-B(3560)-B(3562)-B(3563) -! JVS(19993) = Jac_FULL(3994,4605) - JVS(19993) = B(902) -! JVS(19994) = Jac_FULL(3994,5250) - JVS(19994) = B(903)+B(7467) -! JVS(19995) = Jac_FULL(3994,5252) - JVS(19995) = -B(3557)-B(3559) -! JVS(19996) = Jac_FULL(3994,5255) - JVS(19996) = -B(3555) -! JVS(19997) = Jac_FULL(3994,5256) - JVS(19997) = -B(3561) -! JVS(19998) = Jac_FULL(3995,1702) - JVS(19998) = B(4170) -! JVS(19999) = Jac_FULL(3995,2338) - JVS(19999) = B(4167) -! JVS(20000) = Jac_FULL(3995,2463) - JVS(20000) = B(4164) -! JVS(20001) = Jac_FULL(3995,3847) - JVS(20001) = B(1389) -! JVS(20002) = Jac_FULL(3995,3995) - JVS(20002) = -B(4171)-B(4173)-B(4175) -! JVS(20003) = Jac_FULL(3995,5203) - JVS(20003) = 0 -! JVS(20004) = Jac_FULL(3995,5250) - JVS(20004) = B(4165)+B(4168)-B(4174) -! JVS(20005) = Jac_FULL(3995,5252) - JVS(20005) = 0 -! JVS(20006) = Jac_FULL(3995,5255) - JVS(20006) = 0 -! JVS(20007) = Jac_FULL(3995,5256) - JVS(20007) = -B(4172) -! JVS(20008) = Jac_FULL(3996,3097) - JVS(20008) = B(695) -! JVS(20009) = Jac_FULL(3996,3996) - JVS(20009) = -B(2791)-B(2793)-B(2795)-B(2797)-B(2799)-B(2800) -! JVS(20010) = Jac_FULL(3996,5250) - JVS(20010) = B(696)-B(2796)-B(2798) -! JVS(20011) = Jac_FULL(3996,5256) - JVS(20011) = -B(2792) -! JVS(20012) = Jac_FULL(3996,5258) - JVS(20012) = -B(2794) -! JVS(20013) = Jac_FULL(3997,822) - JVS(20013) = B(16083) -! JVS(20014) = Jac_FULL(3997,3997) - JVS(20014) = -B(12985)-B(12987)-B(12989)-B(12991) -! JVS(20015) = Jac_FULL(3997,4444) - JVS(20015) = B(9523) -! JVS(20016) = Jac_FULL(3997,5250) - JVS(20016) = B(16084) -! JVS(20017) = Jac_FULL(3997,5252) - JVS(20017) = -B(12988) -! JVS(20018) = Jac_FULL(3997,5255) - JVS(20018) = -B(12986) -! JVS(20019) = Jac_FULL(3997,5256) - JVS(20019) = -B(12990) -! JVS(20020) = Jac_FULL(3997,5258) - JVS(20020) = B(9524) -! JVS(20021) = Jac_FULL(3998,907) - JVS(20021) = B(21591) -! JVS(20022) = Jac_FULL(3998,1651) - JVS(20022) = B(18849) -! JVS(20023) = Jac_FULL(3998,2957) - JVS(20023) = B(21596) -! JVS(20024) = Jac_FULL(3998,3485) - JVS(20024) = 0 -! JVS(20025) = Jac_FULL(3998,3998) - JVS(20025) = -B(20434)-B(20436)-B(20438)-B(20440)-B(20442)-B(20444) -! JVS(20026) = Jac_FULL(3998,5022) - JVS(20026) = 0 -! JVS(20027) = Jac_FULL(3998,5250) - JVS(20027) = B(18850)+B(21592) -! JVS(20028) = Jac_FULL(3998,5252) - JVS(20028) = -B(20439) -! JVS(20029) = Jac_FULL(3998,5253) - JVS(20029) = -B(20441) -! JVS(20030) = Jac_FULL(3998,5255) - JVS(20030) = -B(20435)-B(20437) -! JVS(20031) = Jac_FULL(3998,5256) - JVS(20031) = -B(20443) -! JVS(20032) = Jac_FULL(3999,1091) - JVS(20032) = B(18371) -! JVS(20033) = Jac_FULL(3999,3999) - JVS(20033) = -B(15944)-B(15946)-B(15948)-B(15950) -! JVS(20034) = Jac_FULL(3999,4791) - JVS(20034) = B(12874) -! JVS(20035) = Jac_FULL(3999,5250) - JVS(20035) = B(18372) -! JVS(20036) = Jac_FULL(3999,5252) - JVS(20036) = -B(15947) -! JVS(20037) = Jac_FULL(3999,5255) - JVS(20037) = -B(15945) -! JVS(20038) = Jac_FULL(3999,5256) - JVS(20038) = -B(15949) -! JVS(20039) = Jac_FULL(3999,5258) - JVS(20039) = B(12875) -! JVS(20040) = Jac_FULL(4000,503) - JVS(20040) = B(13158) -! JVS(20041) = Jac_FULL(4000,1537) - JVS(20041) = B(13162) -! JVS(20042) = Jac_FULL(4000,2225) - JVS(20042) = B(13166) -! JVS(20043) = Jac_FULL(4000,3318) - JVS(20043) = 0 -! JVS(20044) = Jac_FULL(4000,3655) - JVS(20044) = B(6018) -! JVS(20045) = Jac_FULL(4000,4000) - JVS(20045) = -B(9717)-B(9719)-B(9723) -! JVS(20046) = Jac_FULL(4000,4139) - JVS(20046) = B(9703)+B(9709)+B(9713)+B(9715) -! JVS(20047) = Jac_FULL(4000,5250) - JVS(20047) = B(13159)+B(13167) -! JVS(20048) = Jac_FULL(4000,5252) - JVS(20048) = B(9710)-B(9720) -! JVS(20049) = Jac_FULL(4000,5253) - JVS(20049) = 0 -! JVS(20050) = Jac_FULL(4000,5255) - JVS(20050) = B(9704)-B(9718) -! JVS(20051) = Jac_FULL(4000,5256) - JVS(20051) = B(9714) -! JVS(20052) = Jac_FULL(4001,854) - JVS(20052) = B(12749) -! JVS(20053) = Jac_FULL(4001,4001) - JVS(20053) = -B(9231)-B(9233)-B(9235)-B(9237) -! JVS(20054) = Jac_FULL(4001,4495) - JVS(20054) = B(5644) -! JVS(20055) = Jac_FULL(4001,5250) - JVS(20055) = B(12750) -! JVS(20056) = Jac_FULL(4001,5252) - JVS(20056) = -B(9234) -! JVS(20057) = Jac_FULL(4001,5255) - JVS(20057) = -B(9232) -! JVS(20058) = Jac_FULL(4001,5256) - JVS(20058) = -B(9236) -! JVS(20059) = Jac_FULL(4001,5258) - JVS(20059) = B(5645) -! JVS(20060) = Jac_FULL(4002,1421) - JVS(20060) = B(15841) -! JVS(20061) = Jac_FULL(4002,4002) - JVS(20061) = -B(12760)-B(12762)-B(12764)-B(12766) -! JVS(20062) = Jac_FULL(4002,4509) - JVS(20062) = B(9247) -! JVS(20063) = Jac_FULL(4002,5250) - JVS(20063) = B(15842) -! JVS(20064) = Jac_FULL(4002,5252) - JVS(20064) = -B(12763) -! JVS(20065) = Jac_FULL(4002,5255) - JVS(20065) = -B(12761) -! JVS(20066) = Jac_FULL(4002,5256) - JVS(20066) = -B(12765) -! JVS(20067) = Jac_FULL(4002,5258) - JVS(20067) = B(9248) -! JVS(20068) = Jac_FULL(4003,3096) - JVS(20068) = B(621) -! JVS(20069) = Jac_FULL(4003,4003) - JVS(20069) = -B(2471)-B(2473)-B(2475)-B(2477)-B(2479)-B(2480)-B(2481) -! JVS(20070) = Jac_FULL(4003,5250) - JVS(20070) = B(622) -! JVS(20071) = Jac_FULL(4003,5252) - JVS(20071) = -B(2474)-B(2476) -! JVS(20072) = Jac_FULL(4003,5255) - JVS(20072) = -B(2472) -! JVS(20073) = Jac_FULL(4003,5256) - JVS(20073) = -B(2478) -! JVS(20074) = Jac_FULL(4004,1276) - JVS(20074) = B(5493) -! JVS(20075) = Jac_FULL(4004,2317) - JVS(20075) = B(5496) -! JVS(20076) = Jac_FULL(4004,4003) - JVS(20076) = B(2475)+B(2477)+B(2479) -! JVS(20077) = Jac_FULL(4004,4004) - JVS(20077) = -B(5497)-B(5498)-B(5499)-B(5500)-B(5501) -! JVS(20078) = Jac_FULL(4004,5250) - JVS(20078) = 0 -! JVS(20079) = Jac_FULL(4004,5252) - JVS(20079) = B(2476) -! JVS(20080) = Jac_FULL(4004,5255) - JVS(20080) = 0 -! JVS(20081) = Jac_FULL(4004,5256) - JVS(20081) = B(2478) -! JVS(20082) = Jac_FULL(4005,341) - JVS(20082) = B(12723) -! JVS(20083) = Jac_FULL(4005,1002) - JVS(20083) = B(12727) -! JVS(20084) = Jac_FULL(4005,2102) - JVS(20084) = B(12731) -! JVS(20085) = Jac_FULL(4005,3229) - JVS(20085) = 0 -! JVS(20086) = Jac_FULL(4005,3657) - JVS(20086) = B(5586) -! JVS(20087) = Jac_FULL(4005,4005) - JVS(20087) = -B(9174)-B(9176)-B(9178)-B(9180) -! JVS(20088) = Jac_FULL(4005,4100) - JVS(20088) = B(9160)+B(9166)+B(9170)+B(9172) -! JVS(20089) = Jac_FULL(4005,5250) - JVS(20089) = B(12724)+B(12732) -! JVS(20090) = Jac_FULL(4005,5252) - JVS(20090) = B(9167)-B(9177) -! JVS(20091) = Jac_FULL(4005,5253) - JVS(20091) = 0 -! JVS(20092) = Jac_FULL(4005,5255) - JVS(20092) = B(9161)-B(9175) -! JVS(20093) = Jac_FULL(4005,5256) - JVS(20093) = B(9171)-B(9179) -! JVS(20094) = Jac_FULL(4006,978) - JVS(20094) = B(18169) -! JVS(20095) = Jac_FULL(4006,4006) - JVS(20095) = -B(15655)-B(15657)-B(15659)-B(15661) -! JVS(20096) = Jac_FULL(4006,4690) - JVS(20096) = B(12588) -! JVS(20097) = Jac_FULL(4006,5250) - JVS(20097) = B(18170) -! JVS(20098) = Jac_FULL(4006,5252) - JVS(20098) = -B(15658) -! JVS(20099) = Jac_FULL(4006,5255) - JVS(20099) = -B(15656) -! JVS(20100) = Jac_FULL(4006,5256) - JVS(20100) = -B(15660) -! JVS(20101) = Jac_FULL(4006,5258) - JVS(20101) = B(12589) -! JVS(20102) = Jac_FULL(4007,1003) - JVS(20102) = B(16254) -! JVS(20103) = Jac_FULL(4007,4007) - JVS(20103) = -B(13199)-B(13201)-B(13203)-B(13205) -! JVS(20104) = Jac_FULL(4007,4670) - JVS(20104) = B(9760) -! JVS(20105) = Jac_FULL(4007,5250) - JVS(20105) = B(16255) -! JVS(20106) = Jac_FULL(4007,5252) - JVS(20106) = -B(13202) -! JVS(20107) = Jac_FULL(4007,5255) - JVS(20107) = -B(13200) -! JVS(20108) = Jac_FULL(4007,5256) - JVS(20108) = -B(13204) -! JVS(20109) = Jac_FULL(4007,5258) - JVS(20109) = B(9761) -! JVS(20110) = Jac_FULL(4008,843) - JVS(20110) = B(13313) -! JVS(20111) = Jac_FULL(4008,4008) - JVS(20111) = -B(10031)-B(10033)-B(10035)-B(10037) -! JVS(20112) = Jac_FULL(4008,4437) - JVS(20112) = B(6324) -! JVS(20113) = Jac_FULL(4008,5250) - JVS(20113) = B(13314) -! JVS(20114) = Jac_FULL(4008,5252) - JVS(20114) = -B(10034) -! JVS(20115) = Jac_FULL(4008,5255) - JVS(20115) = -B(10032) -! JVS(20116) = Jac_FULL(4008,5256) - JVS(20116) = -B(10036) -! JVS(20117) = Jac_FULL(4008,5258) - JVS(20117) = B(6325) -! JVS(20118) = Jac_FULL(4009,943) - JVS(20118) = B(13188) -! JVS(20119) = Jac_FULL(4009,4009) - JVS(20119) = -B(9744)-B(9746)-B(9748)-B(9750) -! JVS(20120) = Jac_FULL(4009,4407) - JVS(20120) = B(6046) -! JVS(20121) = Jac_FULL(4009,5250) - JVS(20121) = B(13189) -! JVS(20122) = Jac_FULL(4009,5252) - JVS(20122) = -B(9747) -! JVS(20123) = Jac_FULL(4009,5255) - JVS(20123) = -B(9745) -! JVS(20124) = Jac_FULL(4009,5256) - JVS(20124) = -B(9749) -! JVS(20125) = Jac_FULL(4009,5258) - JVS(20125) = B(6047) -! JVS(20126) = Jac_FULL(4010,250) - JVS(20126) = B(607) -! JVS(20127) = Jac_FULL(4010,4010) - JVS(20127) = -B(2407)-B(2409)-B(2411)-B(2413)-B(2415)-B(2416) -! JVS(20128) = Jac_FULL(4010,5250) - JVS(20128) = B(608)-B(2412)-B(2414) -! JVS(20129) = Jac_FULL(4010,5256) - JVS(20129) = -B(2408) -! JVS(20130) = Jac_FULL(4010,5258) - JVS(20130) = -B(2410) -! JVS(20131) = Jac_FULL(4011,892) - JVS(20131) = B(18234) -! JVS(20132) = Jac_FULL(4011,4011) - JVS(20132) = -B(15745)-B(15747)-B(15749)-B(15751) -! JVS(20133) = Jac_FULL(4011,4671) - JVS(20133) = B(12700) -! JVS(20134) = Jac_FULL(4011,5250) - JVS(20134) = B(18235) -! JVS(20135) = Jac_FULL(4011,5252) - JVS(20135) = -B(15748) -! JVS(20136) = Jac_FULL(4011,5255) - JVS(20136) = -B(15746) -! JVS(20137) = Jac_FULL(4011,5256) - JVS(20137) = -B(15750) -! JVS(20138) = Jac_FULL(4011,5258) - JVS(20138) = B(12701) -! JVS(20139) = Jac_FULL(4012,84) - JVS(20139) = B(9243) -! JVS(20140) = Jac_FULL(4012,996) - JVS(20140) = B(9240) -! JVS(20141) = Jac_FULL(4012,1700) - JVS(20141) = B(9226) -! JVS(20142) = Jac_FULL(4012,2565) - JVS(20142) = B(9222) -! JVS(20143) = Jac_FULL(4012,3534) - JVS(20143) = B(5648)+B(5650)+B(5652) -! JVS(20144) = Jac_FULL(4012,3808) - JVS(20144) = 0 -! JVS(20145) = Jac_FULL(4012,4012) - JVS(20145) = -B(9241)-B(9242) -! JVS(20146) = Jac_FULL(4012,5250) - JVS(20146) = B(9244) -! JVS(20147) = Jac_FULL(4012,5252) - JVS(20147) = B(5649) -! JVS(20148) = Jac_FULL(4012,5255) - JVS(20148) = 0 -! JVS(20149) = Jac_FULL(4012,5256) - JVS(20149) = B(5651) -! JVS(20150) = Jac_FULL(4013,65) - JVS(20150) = B(18287) -! JVS(20151) = Jac_FULL(4013,103) - JVS(20151) = B(18288) -! JVS(20152) = Jac_FULL(4013,1497) - JVS(20152) = 0 -! JVS(20153) = Jac_FULL(4013,2631) - JVS(20153) = B(21387) -! JVS(20154) = Jac_FULL(4013,2838) - JVS(20154) = B(21382) -! JVS(20155) = Jac_FULL(4013,3769) - JVS(20155) = 0 -! JVS(20156) = Jac_FULL(4013,4012) - JVS(20156) = 0 -! JVS(20157) = Jac_FULL(4013,4013) - JVS(20157) = -B(20052)-B(20054)-B(20056)-B(20058)-B(20060)-B(20062) -! JVS(20158) = Jac_FULL(4013,5250) - JVS(20158) = B(18289)+B(21383) -! JVS(20159) = Jac_FULL(4013,5252) - JVS(20159) = -B(20057) -! JVS(20160) = Jac_FULL(4013,5253) - JVS(20160) = -B(20059) -! JVS(20161) = Jac_FULL(4013,5255) - JVS(20161) = -B(20053)-B(20055) -! JVS(20162) = Jac_FULL(4013,5256) - JVS(20162) = -B(20061) -! JVS(20163) = Jac_FULL(4014,676) - JVS(20163) = B(10057) -! JVS(20164) = Jac_FULL(4014,738) - JVS(20164) = B(9159) -! JVS(20165) = Jac_FULL(4014,2563) - JVS(20165) = B(10103) -! JVS(20166) = Jac_FULL(4014,2595) - JVS(20166) = B(9223) -! JVS(20167) = Jac_FULL(4014,3279) - JVS(20167) = 0 -! JVS(20168) = Jac_FULL(4014,3499) - JVS(20168) = 0 -! JVS(20169) = Jac_FULL(4014,3560) - JVS(20169) = 0 -! JVS(20170) = Jac_FULL(4014,3808) - JVS(20170) = 0 -! JVS(20171) = Jac_FULL(4014,3825) - JVS(20171) = 0 -! JVS(20172) = Jac_FULL(4014,4012) - JVS(20172) = B(9241) -! JVS(20173) = Jac_FULL(4014,4014) - JVS(20173) = -B(12720)-B(12722) -! JVS(20174) = Jac_FULL(4014,4533) - JVS(20174) = B(10121) -! JVS(20175) = Jac_FULL(4014,5250) - JVS(20175) = -B(12721) -! JVS(20176) = Jac_FULL(4014,5252) - JVS(20176) = 0 -! JVS(20177) = Jac_FULL(4014,5255) - JVS(20177) = 0 -! JVS(20178) = Jac_FULL(4014,5256) - JVS(20178) = 0 -! JVS(20179) = Jac_FULL(4014,5258) - JVS(20179) = 0 -! JVS(20180) = Jac_FULL(4015,1279) - JVS(20180) = B(19546) -! JVS(20181) = Jac_FULL(4015,2868) - JVS(20181) = B(19542) -! JVS(20182) = Jac_FULL(4015,4015) - JVS(20182) = -B(17432)-B(17434)-B(17436)-B(17438) -! JVS(20183) = Jac_FULL(4015,4883) - JVS(20183) = B(14878) -! JVS(20184) = Jac_FULL(4015,4957) - JVS(20184) = B(17422)+B(17424)+B(17428)+B(17431) -! JVS(20185) = Jac_FULL(4015,5250) - JVS(20185) = B(19547) -! JVS(20186) = Jac_FULL(4015,5252) - JVS(20186) = B(17425)-B(17435) -! JVS(20187) = Jac_FULL(4015,5255) - JVS(20187) = B(17423)-B(17433) -! JVS(20188) = Jac_FULL(4015,5256) - JVS(20188) = B(17429)-B(17437) -! JVS(20189) = Jac_FULL(4016,1188) - JVS(20189) = B(12876) -! JVS(20190) = Jac_FULL(4016,4016) - JVS(20190) = -B(9392)-B(9394)-B(9396)-B(9398) -! JVS(20191) = Jac_FULL(4016,4479) - JVS(20191) = B(5775) -! JVS(20192) = Jac_FULL(4016,5250) - JVS(20192) = B(12877) -! JVS(20193) = Jac_FULL(4016,5252) - JVS(20193) = -B(9395) -! JVS(20194) = Jac_FULL(4016,5255) - JVS(20194) = -B(9393) -! JVS(20195) = Jac_FULL(4016,5256) - JVS(20195) = -B(9397) -! JVS(20196) = Jac_FULL(4016,5258) - JVS(20196) = B(5776) -! JVS(20197) = Jac_FULL(4017,3169) - JVS(20197) = B(747) -! JVS(20198) = Jac_FULL(4017,4017) - JVS(20198) = -B(2979)-B(2981)-B(2983)-B(2985)-B(2987)-B(2988) -! JVS(20199) = Jac_FULL(4017,5250) - JVS(20199) = B(748)-B(2984)-B(2986) -! JVS(20200) = Jac_FULL(4017,5256) - JVS(20200) = -B(2980) -! JVS(20201) = Jac_FULL(4017,5258) - JVS(20201) = -B(2982) -! JVS(20202) = Jac_FULL(4018,3182) - JVS(20202) = B(735) -! JVS(20203) = Jac_FULL(4018,4018) - JVS(20203) = -B(2931)-B(2933)-B(2935)-B(2937)-B(2939)-B(2940) -! JVS(20204) = Jac_FULL(4018,5250) - JVS(20204) = B(736)-B(2936)-B(2938) -! JVS(20205) = Jac_FULL(4018,5256) - JVS(20205) = -B(2932) -! JVS(20206) = Jac_FULL(4018,5258) - JVS(20206) = -B(2934) -! JVS(20207) = Jac_FULL(4019,375) - JVS(20207) = B(22502) -! JVS(20208) = Jac_FULL(4019,1008) - JVS(20208) = B(22506) -! JVS(20209) = Jac_FULL(4019,4019) - JVS(20209) = -B(21910)-B(21912)-B(21914)-B(21916)-B(21918)-B(21919)-B(21920) -! JVS(20210) = Jac_FULL(4019,4752) - JVS(20210) = B(21900)+B(21902)+B(21906)+B(21909) -! JVS(20211) = Jac_FULL(4019,5085) - JVS(20211) = B(20856) -! JVS(20212) = Jac_FULL(4019,5250) - JVS(20212) = B(22503) -! JVS(20213) = Jac_FULL(4019,5252) - JVS(20213) = B(21903)-B(21913)-B(21915) -! JVS(20214) = Jac_FULL(4019,5255) - JVS(20214) = B(21901)-B(21911) -! JVS(20215) = Jac_FULL(4019,5256) - JVS(20215) = B(21907)-B(21917) -! JVS(20216) = Jac_FULL(4020,1476) - JVS(20216) = B(12779) -! JVS(20217) = Jac_FULL(4020,4020) - JVS(20217) = -B(9268)-B(9270)-B(9272)-B(9274) -! JVS(20218) = Jac_FULL(4020,4453) - JVS(20218) = B(5676) -! JVS(20219) = Jac_FULL(4020,5250) - JVS(20219) = B(12780) -! JVS(20220) = Jac_FULL(4020,5252) - JVS(20220) = -B(9271) -! JVS(20221) = Jac_FULL(4020,5255) - JVS(20221) = -B(9269) -! JVS(20222) = Jac_FULL(4020,5256) - JVS(20222) = -B(9273) -! JVS(20223) = Jac_FULL(4020,5258) - JVS(20223) = B(5677) -! JVS(20224) = Jac_FULL(4021,1308) - JVS(20224) = B(18438) -! JVS(20225) = Jac_FULL(4021,4021) - JVS(20225) = -B(16046)-B(16048)-B(16050)-B(16052) -! JVS(20226) = Jac_FULL(4021,4790) - JVS(20226) = B(12969) -! JVS(20227) = Jac_FULL(4021,5250) - JVS(20227) = B(18439) -! JVS(20228) = Jac_FULL(4021,5252) - JVS(20228) = -B(16049) -! JVS(20229) = Jac_FULL(4021,5255) - JVS(20229) = -B(16047) -! JVS(20230) = Jac_FULL(4021,5256) - JVS(20230) = -B(16051) -! JVS(20231) = Jac_FULL(4021,5258) - JVS(20231) = B(12970) -! JVS(20232) = Jac_FULL(4022,1230) - JVS(20232) = B(18118) -! JVS(20233) = Jac_FULL(4022,4022) - JVS(20233) = -B(15528)-B(15530)-B(15532)-B(15534) -! JVS(20234) = Jac_FULL(4022,4798) - JVS(20234) = B(12425) -! JVS(20235) = Jac_FULL(4022,5250) - JVS(20235) = B(18119) -! JVS(20236) = Jac_FULL(4022,5252) - JVS(20236) = -B(15531) -! JVS(20237) = Jac_FULL(4022,5255) - JVS(20237) = -B(15529) -! JVS(20238) = Jac_FULL(4022,5256) - JVS(20238) = -B(15533) -! JVS(20239) = Jac_FULL(4022,5258) - JVS(20239) = B(12426) -! JVS(20240) = Jac_FULL(4023,1361) - JVS(20240) = B(16160) -! JVS(20241) = Jac_FULL(4023,4023) - JVS(20241) = -B(13074)-B(13076)-B(13078)-B(13080) -! JVS(20242) = Jac_FULL(4023,4639) - JVS(20242) = B(9644) -! JVS(20243) = Jac_FULL(4023,5250) - JVS(20243) = B(16161) -! JVS(20244) = Jac_FULL(4023,5252) - JVS(20244) = -B(13077) -! JVS(20245) = Jac_FULL(4023,5255) - JVS(20245) = -B(13075) -! JVS(20246) = Jac_FULL(4023,5256) - JVS(20246) = -B(13079) -! JVS(20247) = Jac_FULL(4023,5258) - JVS(20247) = B(9645) -! JVS(20248) = Jac_FULL(4024,3280) - JVS(20248) = B(15557) -! JVS(20249) = Jac_FULL(4024,3590) - JVS(20249) = B(12441) -! JVS(20250) = Jac_FULL(4024,4024) - JVS(20250) = -B(15552)-B(15553) -! JVS(20251) = Jac_FULL(4024,4993) - JVS(20251) = B(12444)+B(12450)+B(12454)+B(12456) -! JVS(20252) = Jac_FULL(4024,5250) - JVS(20252) = B(12442) -! JVS(20253) = Jac_FULL(4024,5252) - JVS(20253) = B(12451) -! JVS(20254) = Jac_FULL(4024,5255) - JVS(20254) = B(12445) -! JVS(20255) = Jac_FULL(4024,5256) - JVS(20255) = B(12455) -! JVS(20256) = Jac_FULL(4024,5258) - JVS(20256) = 0 -! JVS(20257) = Jac_FULL(4025,2091) - JVS(20257) = B(18280) -! JVS(20258) = Jac_FULL(4025,2167) - JVS(20258) = B(12752) -! JVS(20259) = Jac_FULL(4025,4012) - JVS(20259) = 0 -! JVS(20260) = Jac_FULL(4025,4025) - JVS(20260) = -B(15812)-B(15814)-B(15816)-B(15818) -! JVS(20261) = Jac_FULL(4025,5250) - JVS(20261) = B(18281) -! JVS(20262) = Jac_FULL(4025,5252) - JVS(20262) = -B(15815) -! JVS(20263) = Jac_FULL(4025,5255) - JVS(20263) = -B(15813) -! JVS(20264) = Jac_FULL(4025,5256) - JVS(20264) = B(12753)-B(15817) -! JVS(20265) = Jac_FULL(4026,2652) - JVS(20265) = B(22222) -! JVS(20266) = Jac_FULL(4026,2998) - JVS(20266) = B(22227) -! JVS(20267) = Jac_FULL(4026,3595) - JVS(20267) = B(20051) -! JVS(20268) = Jac_FULL(4026,4025) - JVS(20268) = 0 -! JVS(20269) = Jac_FULL(4026,4026) - JVS(20269) = -B(21371)-B(21373)-B(21375)-B(21377)-B(21379)-B(21381) -! JVS(20270) = Jac_FULL(4026,5250) - JVS(20270) = B(22223) -! JVS(20271) = Jac_FULL(4026,5252) - JVS(20271) = -B(21376) -! JVS(20272) = Jac_FULL(4026,5253) - JVS(20272) = -B(21378) -! JVS(20273) = Jac_FULL(4026,5255) - JVS(20273) = -B(21372)-B(21374) -! JVS(20274) = Jac_FULL(4026,5256) - JVS(20274) = -B(21380) -! JVS(20275) = Jac_FULL(4027,3138) - JVS(20275) = B(687) -! JVS(20276) = Jac_FULL(4027,4027) - JVS(20276) = -B(2751)-B(2753)-B(2755)-B(2757)-B(2759)-B(2760) -! JVS(20277) = Jac_FULL(4027,5250) - JVS(20277) = B(688)-B(2756)-B(2758) -! JVS(20278) = Jac_FULL(4027,5256) - JVS(20278) = -B(2752) -! JVS(20279) = Jac_FULL(4027,5258) - JVS(20279) = -B(2754) -! JVS(20280) = Jac_FULL(4028,1451) - JVS(20280) = B(5398) -! JVS(20281) = Jac_FULL(4028,3145) - JVS(20281) = B(611) -! JVS(20282) = Jac_FULL(4028,4028) - JVS(20282) = -B(2428)-B(2430)-B(2432)-B(2434)-B(2436)-B(2437) -! JVS(20283) = Jac_FULL(4028,5250) - JVS(20283) = B(612)+B(5399) -! JVS(20284) = Jac_FULL(4028,5252) - JVS(20284) = -B(2431)-B(2433) -! JVS(20285) = Jac_FULL(4028,5255) - JVS(20285) = -B(2429) -! JVS(20286) = Jac_FULL(4028,5256) - JVS(20286) = -B(2435) -! JVS(20287) = Jac_FULL(4029,3225) - JVS(20287) = B(12939) -! JVS(20288) = Jac_FULL(4029,3800) - JVS(20288) = B(12869) -! JVS(20289) = Jac_FULL(4029,4029) - JVS(20289) = -B(12935)-B(12936) -! JVS(20290) = Jac_FULL(4029,4619) - JVS(20290) = 0 -! JVS(20291) = Jac_FULL(4029,4917) - JVS(20291) = B(9434)+B(9440)+B(9444)+B(9446) -! JVS(20292) = Jac_FULL(4029,5250) - JVS(20292) = B(12870) -! JVS(20293) = Jac_FULL(4029,5252) - JVS(20293) = B(9441) -! JVS(20294) = Jac_FULL(4029,5255) - JVS(20294) = B(9435) -! JVS(20295) = Jac_FULL(4029,5256) - JVS(20295) = B(9445) -! JVS(20296) = Jac_FULL(4030,3368) - JVS(20296) = B(5762) -! JVS(20297) = Jac_FULL(4030,3807) - JVS(20297) = 0 -! JVS(20298) = Jac_FULL(4030,4030) - JVS(20298) = -B(9371)-B(9373)-B(9375)-B(9377)-B(9378)-B(9379) -! JVS(20299) = Jac_FULL(4030,5250) - JVS(20299) = B(5763) -! JVS(20300) = Jac_FULL(4030,5252) - JVS(20300) = -B(9374) -! JVS(20301) = Jac_FULL(4030,5255) - JVS(20301) = -B(9372) -! JVS(20302) = Jac_FULL(4030,5256) - JVS(20302) = -B(9376) -! JVS(20303) = Jac_FULL(4031,1293) - JVS(20303) = B(18353) -! JVS(20304) = Jac_FULL(4031,2295) - JVS(20304) = B(12864) -! JVS(20305) = Jac_FULL(4031,4030) - JVS(20305) = 0 -! JVS(20306) = Jac_FULL(4031,4031) - JVS(20306) = -B(15933)-B(15935)-B(15937)-B(15939) -! JVS(20307) = Jac_FULL(4031,5250) - JVS(20307) = B(12865)+B(18354) -! JVS(20308) = Jac_FULL(4031,5252) - JVS(20308) = -B(15936) -! JVS(20309) = Jac_FULL(4031,5255) - JVS(20309) = -B(15934) -! JVS(20310) = Jac_FULL(4031,5256) - JVS(20310) = -B(15938) -! JVS(20311) = Jac_FULL(4032,3105) - JVS(20311) = B(647) -! JVS(20312) = Jac_FULL(4032,4032) - JVS(20312) = -B(2581)-B(2583)-B(2585)-B(2587)-B(2589)-B(2590) -! JVS(20313) = Jac_FULL(4032,5250) - JVS(20313) = B(648)-B(2586)-B(2588) -! JVS(20314) = Jac_FULL(4032,5256) - JVS(20314) = -B(2582) -! JVS(20315) = Jac_FULL(4032,5258) - JVS(20315) = -B(2584) -! JVS(20316) = Jac_FULL(4033,1243) - JVS(20316) = B(15692) -! JVS(20317) = Jac_FULL(4033,4033) - JVS(20317) = -B(12601)-B(12603)-B(12605)-B(12607) -! JVS(20318) = Jac_FULL(4033,4471) - JVS(20318) = B(9015) -! JVS(20319) = Jac_FULL(4033,5250) - JVS(20319) = B(15693) -! JVS(20320) = Jac_FULL(4033,5252) - JVS(20320) = -B(12604) -! JVS(20321) = Jac_FULL(4033,5255) - JVS(20321) = -B(12602) -! JVS(20322) = Jac_FULL(4033,5256) - JVS(20322) = -B(12606) -! JVS(20323) = Jac_FULL(4033,5258) - JVS(20323) = B(9016) -! JVS(20324) = Jac_FULL(4034,1061) - JVS(20324) = B(18509) -! JVS(20325) = Jac_FULL(4034,4034) - JVS(20325) = -B(16139)-B(16141)-B(16143)-B(16145) -! JVS(20326) = Jac_FULL(4034,4810) - JVS(20326) = B(13065) -! JVS(20327) = Jac_FULL(4034,5250) - JVS(20327) = B(18510) -! JVS(20328) = Jac_FULL(4034,5252) - JVS(20328) = -B(16142) -! JVS(20329) = Jac_FULL(4034,5255) - JVS(20329) = -B(16140) -! JVS(20330) = Jac_FULL(4034,5256) - JVS(20330) = -B(16144) -! JVS(20331) = Jac_FULL(4034,5258) - JVS(20331) = B(13066) -! JVS(20332) = Jac_FULL(4035,844) - JVS(20332) = B(16350) -! JVS(20333) = Jac_FULL(4035,4035) - JVS(20333) = -B(13324)-B(13326)-B(13328)-B(13330) -! JVS(20334) = Jac_FULL(4035,4402) - JVS(20334) = B(10055) -! JVS(20335) = Jac_FULL(4035,5250) - JVS(20335) = B(16351) -! JVS(20336) = Jac_FULL(4035,5252) - JVS(20336) = -B(13327) -! JVS(20337) = Jac_FULL(4035,5255) - JVS(20337) = -B(13325) -! JVS(20338) = Jac_FULL(4035,5256) - JVS(20338) = -B(13329) -! JVS(20339) = Jac_FULL(4035,5258) - JVS(20339) = B(10056) -! JVS(20340) = Jac_FULL(4036,1221) - JVS(20340) = B(18312) -! JVS(20341) = Jac_FULL(4036,4036) - JVS(20341) = -B(15848)-B(15850)-B(15852)-B(15854) -! JVS(20342) = Jac_FULL(4036,4797) - JVS(20342) = B(12777) -! JVS(20343) = Jac_FULL(4036,5250) - JVS(20343) = B(18313) -! JVS(20344) = Jac_FULL(4036,5252) - JVS(20344) = -B(15851) -! JVS(20345) = Jac_FULL(4036,5255) - JVS(20345) = -B(15849) -! JVS(20346) = Jac_FULL(4036,5256) - JVS(20346) = -B(15853) -! JVS(20347) = Jac_FULL(4036,5258) - JVS(20347) = B(12778) -! JVS(20348) = Jac_FULL(4037,1227) - JVS(20348) = B(13067) -! JVS(20349) = Jac_FULL(4037,4037) - JVS(20349) = -B(9629)-B(9631)-B(9633)-B(9635) -! JVS(20350) = Jac_FULL(4037,4494) - JVS(20350) = B(5957) -! JVS(20351) = Jac_FULL(4037,5250) - JVS(20351) = B(13068) -! JVS(20352) = Jac_FULL(4037,5252) - JVS(20352) = -B(9632) -! JVS(20353) = Jac_FULL(4037,5255) - JVS(20353) = -B(9630) -! JVS(20354) = Jac_FULL(4037,5256) - JVS(20354) = -B(9634) -! JVS(20355) = Jac_FULL(4037,5258) - JVS(20355) = B(5958) -! JVS(20356) = Jac_FULL(4038,389) - JVS(20356) = B(12608) -! JVS(20357) = Jac_FULL(4038,1283) - JVS(20357) = B(12612) -! JVS(20358) = Jac_FULL(4038,3385) - JVS(20358) = B(12616) -! JVS(20359) = Jac_FULL(4038,3640) - JVS(20359) = B(5487) -! JVS(20360) = Jac_FULL(4038,4038) - JVS(20360) = -B(9032)-B(9034)-B(9036)-B(9038) -! JVS(20361) = Jac_FULL(4038,4338) - JVS(20361) = B(9018)+B(9024)+B(9028)+B(9030) -! JVS(20362) = Jac_FULL(4038,5250) - JVS(20362) = B(12609)+B(12617) -! JVS(20363) = Jac_FULL(4038,5252) - JVS(20363) = B(9025)-B(9035) -! JVS(20364) = Jac_FULL(4038,5253) - JVS(20364) = 0 -! JVS(20365) = Jac_FULL(4038,5255) - JVS(20365) = B(9019)-B(9033) -! JVS(20366) = Jac_FULL(4038,5256) - JVS(20366) = B(9029)-B(9037) -! JVS(20367) = Jac_FULL(4039,1366) - JVS(20367) = B(18277) -! JVS(20368) = Jac_FULL(4039,4039) - JVS(20368) = -B(15805)-B(15807)-B(15809)-B(15811) -! JVS(20369) = Jac_FULL(4039,4676) - JVS(20369) = B(12747) -! JVS(20370) = Jac_FULL(4039,5250) - JVS(20370) = B(18278) -! JVS(20371) = Jac_FULL(4039,5252) - JVS(20371) = -B(15808) -! JVS(20372) = Jac_FULL(4039,5255) - JVS(20372) = -B(15806) -! JVS(20373) = Jac_FULL(4039,5256) - JVS(20373) = -B(15810) -! JVS(20374) = Jac_FULL(4039,5258) - JVS(20374) = B(12748) -! JVS(20375) = Jac_FULL(4040,1452) - JVS(20375) = B(18590) -! JVS(20376) = Jac_FULL(4040,4040) - JVS(20376) = -B(16270)-B(16272)-B(16274)-B(16276) -! JVS(20377) = Jac_FULL(4040,4682) - JVS(20377) = B(13283) -! JVS(20378) = Jac_FULL(4040,5250) - JVS(20378) = B(18591) -! JVS(20379) = Jac_FULL(4040,5252) - JVS(20379) = -B(16273) -! JVS(20380) = Jac_FULL(4040,5255) - JVS(20380) = -B(16271) -! JVS(20381) = Jac_FULL(4040,5256) - JVS(20381) = -B(16275) -! JVS(20382) = Jac_FULL(4040,5258) - JVS(20382) = B(13284) -! JVS(20383) = Jac_FULL(4041,423) - JVS(20383) = B(13209) -! JVS(20384) = Jac_FULL(4041,1228) - JVS(20384) = B(13213) -! JVS(20385) = Jac_FULL(4041,2379) - JVS(20385) = B(13217) -! JVS(20386) = Jac_FULL(4041,3232) - JVS(20386) = 0 -! JVS(20387) = Jac_FULL(4041,3645) - JVS(20387) = B(6106) -! JVS(20388) = Jac_FULL(4041,4041) - JVS(20388) = -B(9811)-B(9813)-B(9815)-B(9817) -! JVS(20389) = Jac_FULL(4041,4181) - JVS(20389) = B(9797)+B(9803)+B(9807)+B(9809) -! JVS(20390) = Jac_FULL(4041,5250) - JVS(20390) = B(13210)+B(13218) -! JVS(20391) = Jac_FULL(4041,5252) - JVS(20391) = B(9804)-B(9814) -! JVS(20392) = Jac_FULL(4041,5253) - JVS(20392) = 0 -! JVS(20393) = Jac_FULL(4041,5255) - JVS(20393) = B(9798)-B(9812) -! JVS(20394) = Jac_FULL(4041,5256) - JVS(20394) = B(9808)-B(9816) -! JVS(20395) = Jac_FULL(4042,45) - JVS(20395) = B(14886) -! JVS(20396) = Jac_FULL(4042,1202) - JVS(20396) = 0 -! JVS(20397) = Jac_FULL(4042,1397) - JVS(20397) = B(19555) -! JVS(20398) = Jac_FULL(4042,1724) - JVS(20398) = B(23539) -! JVS(20399) = Jac_FULL(4042,2214) - JVS(20399) = 0 -! JVS(20400) = Jac_FULL(4042,2942) - JVS(20400) = 0 -! JVS(20401) = Jac_FULL(4042,3784) - JVS(20401) = 0 -! JVS(20402) = Jac_FULL(4042,4042) - JVS(20402) = -B(17446)-B(17448)-B(17450)-B(17452) -! JVS(20403) = Jac_FULL(4042,4137) - JVS(20403) = 0 -! JVS(20404) = Jac_FULL(4042,4814) - JVS(20404) = 0 -! JVS(20405) = Jac_FULL(4042,5250) - JVS(20405) = B(19556) -! JVS(20406) = Jac_FULL(4042,5252) - JVS(20406) = -B(17449) -! JVS(20407) = Jac_FULL(4042,5255) - JVS(20407) = -B(17447) -! JVS(20408) = Jac_FULL(4042,5256) - JVS(20408) = -B(17451) -! JVS(20409) = Jac_FULL(4043,507) - JVS(20409) = B(19477) -! JVS(20410) = Jac_FULL(4043,1454) - JVS(20410) = B(19481) -! JVS(20411) = Jac_FULL(4043,4043) - JVS(20411) = -B(17310)-B(17312)-B(17314)-B(17316)-B(17318)-B(17319)-B(17320) -! JVS(20412) = Jac_FULL(4043,4738) - JVS(20412) = B(17300)+B(17302)+B(17306)+B(17309) -! JVS(20413) = Jac_FULL(4043,5240) - JVS(20413) = B(14741) -! JVS(20414) = Jac_FULL(4043,5250) - JVS(20414) = B(19478) -! JVS(20415) = Jac_FULL(4043,5252) - JVS(20415) = B(17303)-B(17313)-B(17315) -! JVS(20416) = Jac_FULL(4043,5255) - JVS(20416) = B(17301)-B(17311) -! JVS(20417) = Jac_FULL(4043,5256) - JVS(20417) = B(17307)-B(17317) -! JVS(20418) = Jac_FULL(4044,950) - JVS(20418) = B(18544) -! JVS(20419) = Jac_FULL(4044,4044) - JVS(20419) = -B(16218)-B(16220)-B(16222)-B(16224) -! JVS(20420) = Jac_FULL(4044,4788) - JVS(20420) = B(13186) -! JVS(20421) = Jac_FULL(4044,5250) - JVS(20421) = B(18545) -! JVS(20422) = Jac_FULL(4044,5252) - JVS(20422) = -B(16221) -! JVS(20423) = Jac_FULL(4044,5255) - JVS(20423) = -B(16219) -! JVS(20424) = Jac_FULL(4044,5256) - JVS(20424) = -B(16223) -! JVS(20425) = Jac_FULL(4044,5258) - JVS(20425) = B(13187) -! JVS(20426) = Jac_FULL(4045,47) - JVS(20426) = B(9280) -! JVS(20427) = Jac_FULL(4045,938) - JVS(20427) = B(9277) -! JVS(20428) = Jac_FULL(4045,1613) - JVS(20428) = B(9289) -! JVS(20429) = Jac_FULL(4045,2520) - JVS(20429) = B(9284) -! JVS(20430) = Jac_FULL(4045,3562) - JVS(20430) = B(5680)+B(5682)+B(5684) -! JVS(20431) = Jac_FULL(4045,3813) - JVS(20431) = 0 -! JVS(20432) = Jac_FULL(4045,4045) - JVS(20432) = -B(9278)-B(9279) -! JVS(20433) = Jac_FULL(4045,5250) - JVS(20433) = B(9281) -! JVS(20434) = Jac_FULL(4045,5252) - JVS(20434) = B(5681) -! JVS(20435) = Jac_FULL(4045,5255) - JVS(20435) = 0 -! JVS(20436) = Jac_FULL(4045,5256) - JVS(20436) = B(5683) -! JVS(20437) = Jac_FULL(4046,116) - JVS(20437) = B(18322) -! JVS(20438) = Jac_FULL(4046,318) - JVS(20438) = B(18323) -! JVS(20439) = Jac_FULL(4046,521) - JVS(20439) = 0 -! JVS(20440) = Jac_FULL(4046,2541) - JVS(20440) = B(21399) -! JVS(20441) = Jac_FULL(4046,2765) - JVS(20441) = B(21404) -! JVS(20442) = Jac_FULL(4046,3675) - JVS(20442) = 0 -! JVS(20443) = Jac_FULL(4046,4045) - JVS(20443) = 0 -! JVS(20444) = Jac_FULL(4046,4046) - JVS(20444) = -B(20074)-B(20076)-B(20078)-B(20080)-B(20082)-B(20084) -! JVS(20445) = Jac_FULL(4046,5250) - JVS(20445) = B(18324)+B(21400) -! JVS(20446) = Jac_FULL(4046,5252) - JVS(20446) = -B(20079) -! JVS(20447) = Jac_FULL(4046,5253) - JVS(20447) = -B(20081) -! JVS(20448) = Jac_FULL(4046,5255) - JVS(20448) = -B(20075)-B(20077) -! JVS(20449) = Jac_FULL(4046,5256) - JVS(20449) = -B(20083) -! JVS(20450) = Jac_FULL(4047,2789) - JVS(20450) = B(10049) -! JVS(20451) = Jac_FULL(4047,3050) - JVS(20451) = B(9286) -! JVS(20452) = Jac_FULL(4047,3791) - JVS(20452) = 0 -! JVS(20453) = Jac_FULL(4047,3813) - JVS(20453) = 0 -! JVS(20454) = Jac_FULL(4047,4045) - JVS(20454) = B(9278) -! JVS(20455) = Jac_FULL(4047,4047) - JVS(20455) = -B(12782)-B(12784) -! JVS(20456) = Jac_FULL(4047,4799) - JVS(20456) = B(10041) -! JVS(20457) = Jac_FULL(4047,5034) - JVS(20457) = B(9315)+B(9326) -! JVS(20458) = Jac_FULL(4047,5250) - JVS(20458) = -B(12783) -! JVS(20459) = Jac_FULL(4047,5252) - JVS(20459) = 0 -! JVS(20460) = Jac_FULL(4047,5255) - JVS(20460) = B(9316) -! JVS(20461) = Jac_FULL(4047,5256) - JVS(20461) = 0 -! JVS(20462) = Jac_FULL(4048,1645) - JVS(20462) = B(12619) -! JVS(20463) = Jac_FULL(4048,3385) - JVS(20463) = 0 -! JVS(20464) = Jac_FULL(4048,3793) - JVS(20464) = B(5319) -! JVS(20465) = Jac_FULL(4048,4038) - JVS(20465) = 0 -! JVS(20466) = Jac_FULL(4048,4048) - JVS(20466) = -B(8789)-B(8791) -! JVS(20467) = Jac_FULL(4048,4338) - JVS(20467) = 0 -! JVS(20468) = Jac_FULL(4048,4591) - JVS(20468) = 0 -! JVS(20469) = Jac_FULL(4048,4592) - JVS(20469) = 0 -! JVS(20470) = Jac_FULL(4048,5250) - JVS(20470) = -B(8792) -! JVS(20471) = Jac_FULL(4048,5252) - JVS(20471) = 0 -! JVS(20472) = Jac_FULL(4048,5253) - JVS(20472) = B(5320)+B(12620) -! JVS(20473) = Jac_FULL(4048,5255) - JVS(20473) = 0 -! JVS(20474) = Jac_FULL(4048,5256) - JVS(20474) = -B(8790) -! JVS(20475) = Jac_FULL(4048,5258) - JVS(20475) = 0 -! JVS(20476) = Jac_FULL(4049,1429) - JVS(20476) = B(15549) -! JVS(20477) = Jac_FULL(4049,4049) - JVS(20477) = -B(12434)-B(12436)-B(12438)-B(12440) -! JVS(20478) = Jac_FULL(4049,4514) - JVS(20478) = B(8802) -! JVS(20479) = Jac_FULL(4049,5250) - JVS(20479) = B(15550) -! JVS(20480) = Jac_FULL(4049,5252) - JVS(20480) = -B(12437) -! JVS(20481) = Jac_FULL(4049,5255) - JVS(20481) = -B(12435) -! JVS(20482) = Jac_FULL(4049,5256) - JVS(20482) = -B(12439) -! JVS(20483) = Jac_FULL(4049,5258) - JVS(20483) = B(8803) -! JVS(20484) = Jac_FULL(4050,1076) - JVS(20484) = B(13436) -! JVS(20485) = Jac_FULL(4050,2353) - JVS(20485) = B(16445) -! JVS(20486) = Jac_FULL(4050,3303) - JVS(20486) = 0 -! JVS(20487) = Jac_FULL(4050,4050) - JVS(20487) = -B(13437)-B(13439)-B(13441)-B(13443) -! JVS(20488) = Jac_FULL(4050,4051) - JVS(20488) = B(10214)+B(10216)+B(10220)+B(10222) -! JVS(20489) = Jac_FULL(4050,5250) - JVS(20489) = B(16446) -! JVS(20490) = Jac_FULL(4050,5252) - JVS(20490) = B(10217)-B(13440) -! JVS(20491) = Jac_FULL(4050,5253) - JVS(20491) = 0 -! JVS(20492) = Jac_FULL(4050,5255) - JVS(20492) = B(10215)-B(13438) -! JVS(20493) = Jac_FULL(4050,5256) - JVS(20493) = B(10221)-B(13442) -! JVS(20494) = Jac_FULL(4051,717) - JVS(20494) = B(13427) -! JVS(20495) = Jac_FULL(4051,1076) - JVS(20495) = B(13434) -! JVS(20496) = Jac_FULL(4051,1716) - JVS(20496) = B(13430) -! JVS(20497) = Jac_FULL(4051,2134) - JVS(20497) = B(13431)+B(13433) -! JVS(20498) = Jac_FULL(4051,2900) - JVS(20498) = B(13425) -! JVS(20499) = Jac_FULL(4051,3303) - JVS(20499) = B(13446) -! JVS(20500) = Jac_FULL(4051,3343) - JVS(20500) = B(6510) -! JVS(20501) = Jac_FULL(4051,3790) - JVS(20501) = 0 -! JVS(20502) = Jac_FULL(4051,3810) - JVS(20502) = 0 -! JVS(20503) = Jac_FULL(4051,4051) - JVS(20503) = -B(10212)-B(10214)-B(10216)-B(10218)-B(10220)-B(10222) -! JVS(20504) = Jac_FULL(4051,5250) - JVS(20504) = B(13432)+B(13435) -! JVS(20505) = Jac_FULL(4051,5252) - JVS(20505) = -B(10217) -! JVS(20506) = Jac_FULL(4051,5253) - JVS(20506) = -B(10219) -! JVS(20507) = Jac_FULL(4051,5255) - JVS(20507) = -B(10213)-B(10215) -! JVS(20508) = Jac_FULL(4051,5256) - JVS(20508) = -B(10221) -! JVS(20509) = Jac_FULL(4052,387) - JVS(20509) = B(18695) -! JVS(20510) = Jac_FULL(4052,952) - JVS(20510) = B(21527) -! JVS(20511) = Jac_FULL(4052,3461) - JVS(20511) = 0 -! JVS(20512) = Jac_FULL(4052,4050) - JVS(20512) = 0 -! JVS(20513) = Jac_FULL(4052,4051) - JVS(20513) = 0 -! JVS(20514) = Jac_FULL(4052,4052) - JVS(20514) = -B(20297)-B(20299)-B(20301)-B(20303) -! JVS(20515) = Jac_FULL(4052,5250) - JVS(20515) = B(18696)+B(21528) -! JVS(20516) = Jac_FULL(4052,5252) - JVS(20516) = -B(20300) -! JVS(20517) = Jac_FULL(4052,5253) - JVS(20517) = 0 -! JVS(20518) = Jac_FULL(4052,5255) - JVS(20518) = -B(20298) -! JVS(20519) = Jac_FULL(4052,5256) - JVS(20519) = -B(20302) -! JVS(20520) = Jac_FULL(4053,551) - JVS(20520) = B(12301) -! JVS(20521) = Jac_FULL(4053,669) - JVS(20521) = B(12290) -! JVS(20522) = Jac_FULL(4053,1999) - JVS(20522) = 0 -! JVS(20523) = Jac_FULL(4053,2466) - JVS(20523) = 0 -! JVS(20524) = Jac_FULL(4053,4053) - JVS(20524) = -B(15429)-B(15431) -! JVS(20525) = Jac_FULL(4053,4804) - JVS(20525) = 0 -! JVS(20526) = Jac_FULL(4053,4889) - JVS(20526) = 0 -! JVS(20527) = Jac_FULL(4053,5250) - JVS(20527) = -B(15430) -! JVS(20528) = Jac_FULL(4053,5252) - JVS(20528) = 0 -! JVS(20529) = Jac_FULL(4053,5255) - JVS(20529) = 0 -! JVS(20530) = Jac_FULL(4053,5256) - JVS(20530) = 0 -! JVS(20531) = Jac_FULL(4054,1017) - JVS(20531) = B(16307) -! JVS(20532) = Jac_FULL(4054,4054) - JVS(20532) = -B(13296)-B(13298)-B(13300)-B(13302) -! JVS(20533) = Jac_FULL(4054,4413) - JVS(20533) = B(9988) -! JVS(20534) = Jac_FULL(4054,5250) - JVS(20534) = B(16308) -! JVS(20535) = Jac_FULL(4054,5252) - JVS(20535) = -B(13299) -! JVS(20536) = Jac_FULL(4054,5255) - JVS(20536) = -B(13297) -! JVS(20537) = Jac_FULL(4054,5256) - JVS(20537) = -B(13301) -! JVS(20538) = Jac_FULL(4054,5258) - JVS(20538) = B(9989) -! JVS(20539) = Jac_FULL(4055,3097) - JVS(20539) = B(691) -! JVS(20540) = Jac_FULL(4055,4055) - JVS(20540) = -B(2772)-B(2774)-B(2776)-B(2778)-B(2780)-B(2781)-B(2782) -! JVS(20541) = Jac_FULL(4055,5250) - JVS(20541) = B(692) -! JVS(20542) = Jac_FULL(4055,5252) - JVS(20542) = -B(2775)-B(2777) -! JVS(20543) = Jac_FULL(4055,5255) - JVS(20543) = -B(2773) -! JVS(20544) = Jac_FULL(4055,5256) - JVS(20544) = -B(2779) -! JVS(20545) = Jac_FULL(4056,3096) - JVS(20545) = B(623) -! JVS(20546) = Jac_FULL(4056,4056) - JVS(20546) = -B(2482)-B(2484)-B(2486)-B(2488)-B(2490)-B(2491) -! JVS(20547) = Jac_FULL(4056,5250) - JVS(20547) = B(624)-B(2487)-B(2489) -! JVS(20548) = Jac_FULL(4056,5256) - JVS(20548) = -B(2483) -! JVS(20549) = Jac_FULL(4056,5258) - JVS(20549) = -B(2485) -! JVS(20550) = Jac_FULL(4057,1294) - JVS(20550) = B(15885) -! JVS(20551) = Jac_FULL(4057,4057) - JVS(20551) = -B(12793)-B(12795)-B(12797)-B(12799) -! JVS(20552) = Jac_FULL(4057,4454) - JVS(20552) = B(9292) -! JVS(20553) = Jac_FULL(4057,5250) - JVS(20553) = B(15886) -! JVS(20554) = Jac_FULL(4057,5252) - JVS(20554) = -B(12796) -! JVS(20555) = Jac_FULL(4057,5255) - JVS(20555) = -B(12794) -! JVS(20556) = Jac_FULL(4057,5256) - JVS(20556) = -B(12798) -! JVS(20557) = Jac_FULL(4057,5258) - JVS(20557) = B(9293) -! JVS(20558) = Jac_FULL(4058,329) - JVS(20558) = B(17733) -! JVS(20559) = Jac_FULL(4058,975) - JVS(20559) = B(17735) -! JVS(20560) = Jac_FULL(4058,1907) - JVS(20560) = B(17718) -! JVS(20561) = Jac_FULL(4058,4058) - JVS(20561) = -B(15150)-B(15152)-B(15154)-B(15156)-B(15158)-B(15159)-B(15160) -! JVS(20562) = Jac_FULL(4058,4500) - JVS(20562) = B(15165)+B(15167)+B(15171)+B(15174) -! JVS(20563) = Jac_FULL(4058,4834) - JVS(20563) = B(11957) -! JVS(20564) = Jac_FULL(4058,5250) - JVS(20564) = B(17719)+B(17734) -! JVS(20565) = Jac_FULL(4058,5252) - JVS(20565) = -B(15153)-B(15155)+B(15168) -! JVS(20566) = Jac_FULL(4058,5255) - JVS(20566) = -B(15151)+B(15166) -! JVS(20567) = Jac_FULL(4058,5256) - JVS(20567) = -B(15157)+B(15172) -! JVS(20568) = Jac_FULL(4059,492) - JVS(20568) = B(20927) -! JVS(20569) = Jac_FULL(4059,1317) - JVS(20569) = B(20931) -! JVS(20570) = Jac_FULL(4059,4059) - JVS(20570) = -B(20884)-B(20886)-B(20888)-B(20890)-B(20892)-B(20893)-B(20894) -! JVS(20571) = Jac_FULL(4059,5006) - JVS(20571) = B(19365)+B(19367)+B(19371)+B(19374) -! JVS(20572) = Jac_FULL(4059,5095) - JVS(20572) = B(19328) -! JVS(20573) = Jac_FULL(4059,5250) - JVS(20573) = B(20928) -! JVS(20574) = Jac_FULL(4059,5252) - JVS(20574) = B(19368)-B(20887)-B(20889) -! JVS(20575) = Jac_FULL(4059,5255) - JVS(20575) = B(19366)-B(20885) -! JVS(20576) = Jac_FULL(4059,5256) - JVS(20576) = B(19372)-B(20891) -! JVS(20577) = Jac_FULL(4060,272) - JVS(20577) = B(21628) -! JVS(20578) = Jac_FULL(4060,1208) - JVS(20578) = B(21632) -! JVS(20579) = Jac_FULL(4060,2156) - JVS(20579) = B(13911) -! JVS(20580) = Jac_FULL(4060,2574) - JVS(20580) = B(6945) -! JVS(20581) = Jac_FULL(4060,3637) - JVS(20581) = 0 -! JVS(20582) = Jac_FULL(4060,3972) - JVS(20582) = B(18977) -! JVS(20583) = Jac_FULL(4060,4060) - JVS(20583) = -B(10720)-B(10722)-B(10724)-B(10726)-B(10728)-B(10729)-B(10730) -! JVS(20584) = Jac_FULL(4060,4222) - JVS(20584) = B(20552)+B(20558)+B(20562)+B(20564) -! JVS(20585) = Jac_FULL(4060,4610) - JVS(20585) = 0 -! JVS(20586) = Jac_FULL(4060,5250) - JVS(20586) = B(6946)+B(13912)+B(21629) -! JVS(20587) = Jac_FULL(4060,5252) - JVS(20587) = -B(10723)-B(10725)+B(20559) -! JVS(20588) = Jac_FULL(4060,5255) - JVS(20588) = -B(10721)+B(20553) -! JVS(20589) = Jac_FULL(4060,5256) - JVS(20589) = -B(10727)+B(20563) -! JVS(20590) = Jac_FULL(4061,857) - JVS(20590) = B(18627) -! JVS(20591) = Jac_FULL(4061,4061) - JVS(20591) = -B(16314)-B(16316)-B(16318)-B(16320) -! JVS(20592) = Jac_FULL(4061,4632) - JVS(20592) = B(13311) -! JVS(20593) = Jac_FULL(4061,5250) - JVS(20593) = B(18628) -! JVS(20594) = Jac_FULL(4061,5252) - JVS(20594) = -B(16317) -! JVS(20595) = Jac_FULL(4061,5255) - JVS(20595) = -B(16315) -! JVS(20596) = Jac_FULL(4061,5256) - JVS(20596) = -B(16319) -! JVS(20597) = Jac_FULL(4061,5258) - JVS(20597) = B(13312) -! JVS(20598) = Jac_FULL(4062,3458) - JVS(20598) = B(12841) -! JVS(20599) = Jac_FULL(4062,4047) - JVS(20599) = B(12782) -! JVS(20600) = Jac_FULL(4062,4062) - JVS(20600) = -B(12837)-B(12838) -! JVS(20601) = Jac_FULL(4062,4799) - JVS(20601) = 0 -! JVS(20602) = Jac_FULL(4062,5034) - JVS(20602) = B(9313)+B(9319)+B(9323)+B(9325) -! JVS(20603) = Jac_FULL(4062,5250) - JVS(20603) = B(12783) -! JVS(20604) = Jac_FULL(4062,5252) - JVS(20604) = B(9320) -! JVS(20605) = Jac_FULL(4062,5255) - JVS(20605) = B(9314) -! JVS(20606) = Jac_FULL(4062,5256) - JVS(20606) = B(9324) -! JVS(20607) = Jac_FULL(4063,1303) - JVS(20607) = B(12971) -! JVS(20608) = Jac_FULL(4063,4063) - JVS(20608) = -B(9499)-B(9501)-B(9503)-B(9505) -! JVS(20609) = Jac_FULL(4063,4457) - JVS(20609) = B(5855) -! JVS(20610) = Jac_FULL(4063,5250) - JVS(20610) = B(12972) -! JVS(20611) = Jac_FULL(4063,5252) - JVS(20611) = -B(9502) -! JVS(20612) = Jac_FULL(4063,5255) - JVS(20612) = -B(9500) -! JVS(20613) = Jac_FULL(4063,5256) - JVS(20613) = -B(9504) -! JVS(20614) = Jac_FULL(4063,5258) - JVS(20614) = B(5856) -! JVS(20615) = Jac_FULL(4064,1450) - JVS(20615) = B(16405) -! JVS(20616) = Jac_FULL(4064,4064) - JVS(20616) = -B(13355)-B(13357)-B(13359)-B(13361) -! JVS(20617) = Jac_FULL(4064,4499) - JVS(20617) = B(10127) -! JVS(20618) = Jac_FULL(4064,5250) - JVS(20618) = B(16406) -! JVS(20619) = Jac_FULL(4064,5252) - JVS(20619) = -B(13358) -! JVS(20620) = Jac_FULL(4064,5255) - JVS(20620) = -B(13356) -! JVS(20621) = Jac_FULL(4064,5256) - JVS(20621) = -B(13360) -! JVS(20622) = Jac_FULL(4064,5258) - JVS(20622) = B(10128) -! JVS(20623) = Jac_FULL(4065,1539) - JVS(20623) = B(15981) -! JVS(20624) = Jac_FULL(4065,4065) - JVS(20624) = -B(12887)-B(12889)-B(12891)-B(12893) -! JVS(20625) = Jac_FULL(4065,4466) - JVS(20625) = B(9408) -! JVS(20626) = Jac_FULL(4065,5250) - JVS(20626) = B(15982) -! JVS(20627) = Jac_FULL(4065,5252) - JVS(20627) = -B(12890) -! JVS(20628) = Jac_FULL(4065,5255) - JVS(20628) = -B(12888) -! JVS(20629) = Jac_FULL(4065,5256) - JVS(20629) = -B(12892) -! JVS(20630) = Jac_FULL(4065,5258) - JVS(20630) = B(9409) -! JVS(20631) = Jac_FULL(4066,4066) - JVS(20631) = -B(16582)-B(16584) -! JVS(20632) = Jac_FULL(4066,5022) - JVS(20632) = B(13835) -! JVS(20633) = Jac_FULL(4066,5074) - JVS(20633) = B(13733) -! JVS(20634) = Jac_FULL(4066,5250) - JVS(20634) = -B(16583)-B(16585) -! JVS(20635) = Jac_FULL(4066,5252) - JVS(20635) = B(13734)+B(13836) -! JVS(20636) = Jac_FULL(4067,1427) - JVS(20636) = B(18069) -! JVS(20637) = Jac_FULL(4067,4067) - JVS(20637) = -B(15468)-B(15470)-B(15472)-B(15474) -! JVS(20638) = Jac_FULL(4067,4859) - JVS(20638) = B(12399) -! JVS(20639) = Jac_FULL(4067,5250) - JVS(20639) = B(18070) -! JVS(20640) = Jac_FULL(4067,5252) - JVS(20640) = -B(15471) -! JVS(20641) = Jac_FULL(4067,5255) - JVS(20641) = -B(15469) -! JVS(20642) = Jac_FULL(4067,5256) - JVS(20642) = -B(15473) -! JVS(20643) = Jac_FULL(4067,5258) - JVS(20643) = B(12400) -! JVS(20644) = Jac_FULL(4068,1431) - JVS(20644) = B(5844) -! JVS(20645) = Jac_FULL(4068,3084) - JVS(20645) = B(659)+B(667) -! JVS(20646) = Jac_FULL(4068,4068) - JVS(20646) = -B(2635)-B(2637)-B(2639)-B(2641)-B(2643)-B(2644) -! JVS(20647) = Jac_FULL(4068,5250) - JVS(20647) = B(668)+B(5845) -! JVS(20648) = Jac_FULL(4068,5252) - JVS(20648) = -B(2638)-B(2640) -! JVS(20649) = Jac_FULL(4068,5255) - JVS(20649) = -B(2636) -! JVS(20650) = Jac_FULL(4068,5256) - JVS(20650) = B(660)-B(2642) -! JVS(20651) = Jac_FULL(4069,1878) - JVS(20651) = B(9492) -! JVS(20652) = Jac_FULL(4069,3439) - JVS(20652) = 0 -! JVS(20653) = Jac_FULL(4069,3440) - JVS(20653) = 0 -! JVS(20654) = Jac_FULL(4069,4068) - JVS(20654) = 0 -! JVS(20655) = Jac_FULL(4069,4069) - JVS(20655) = -B(12958)-B(12960)-B(12962)-B(12964)-B(12965)-B(12966) -! JVS(20656) = Jac_FULL(4069,5250) - JVS(20656) = B(9493) -! JVS(20657) = Jac_FULL(4069,5252) - JVS(20657) = -B(12961) -! JVS(20658) = Jac_FULL(4069,5255) - JVS(20658) = -B(12959) -! JVS(20659) = Jac_FULL(4069,5256) - JVS(20659) = -B(12963) -! JVS(20660) = Jac_FULL(4070,3412) - JVS(20660) = B(6428) -! JVS(20661) = Jac_FULL(4070,3819) - JVS(20661) = 0 -! JVS(20662) = Jac_FULL(4070,4070) - JVS(20662) = -B(10130)-B(10132)-B(10134)-B(10136)-B(10137)-B(10138) -! JVS(20663) = Jac_FULL(4070,5250) - JVS(20663) = B(6429) -! JVS(20664) = Jac_FULL(4070,5252) - JVS(20664) = -B(10133) -! JVS(20665) = Jac_FULL(4070,5255) - JVS(20665) = -B(10131) -! JVS(20666) = Jac_FULL(4070,5256) - JVS(20666) = -B(10135) -! JVS(20667) = Jac_FULL(4071,1109) - JVS(20667) = B(12498) -! JVS(20668) = Jac_FULL(4071,4071) - JVS(20668) = -B(12494)-B(12495) -! JVS(20669) = Jac_FULL(4071,4491) - JVS(20669) = B(12416) -! JVS(20670) = Jac_FULL(4071,4986) - JVS(20670) = B(8840)+B(8846)+B(8850)+B(8852) -! JVS(20671) = Jac_FULL(4071,5250) - JVS(20671) = B(12417) -! JVS(20672) = Jac_FULL(4071,5252) - JVS(20672) = B(8847) -! JVS(20673) = Jac_FULL(4071,5255) - JVS(20673) = B(8841) -! JVS(20674) = Jac_FULL(4071,5256) - JVS(20674) = B(8851) -! JVS(20675) = Jac_FULL(4072,1453) - JVS(20675) = B(18662) -! JVS(20676) = Jac_FULL(4072,4072) - JVS(20676) = -B(16369)-B(16371)-B(16373)-B(16375) -! JVS(20677) = Jac_FULL(4072,4663) - JVS(20677) = B(13342) -! JVS(20678) = Jac_FULL(4072,5250) - JVS(20678) = B(18663) -! JVS(20679) = Jac_FULL(4072,5252) - JVS(20679) = -B(16372) -! JVS(20680) = Jac_FULL(4072,5255) - JVS(20680) = -B(16370) -! JVS(20681) = Jac_FULL(4072,5256) - JVS(20681) = -B(16374) -! JVS(20682) = Jac_FULL(4072,5258) - JVS(20682) = B(13343) -! JVS(20683) = Jac_FULL(4073,1152) - JVS(20683) = B(15781) -! JVS(20684) = Jac_FULL(4073,4073) - JVS(20684) = -B(12713)-B(12715)-B(12717)-B(12719) -! JVS(20685) = Jac_FULL(4073,4487) - JVS(20685) = B(9157) -! JVS(20686) = Jac_FULL(4073,5250) - JVS(20686) = B(15782) -! JVS(20687) = Jac_FULL(4073,5252) - JVS(20687) = -B(12716) -! JVS(20688) = Jac_FULL(4073,5255) - JVS(20688) = -B(12714) -! JVS(20689) = Jac_FULL(4073,5256) - JVS(20689) = -B(12718) -! JVS(20690) = Jac_FULL(4073,5258) - JVS(20690) = B(9158) -! JVS(20691) = Jac_FULL(4074,1535) - JVS(20691) = B(6194) -! JVS(20692) = Jac_FULL(4074,3192) - JVS(20692) = B(703) -! JVS(20693) = Jac_FULL(4074,4074) - JVS(20693) = -B(2812)-B(2814)-B(2816)-B(2818)-B(2820)-B(2821) -! JVS(20694) = Jac_FULL(4074,5250) - JVS(20694) = B(704)+B(6195) -! JVS(20695) = Jac_FULL(4074,5252) - JVS(20695) = -B(2815)-B(2817) -! JVS(20696) = Jac_FULL(4074,5255) - JVS(20696) = -B(2813) -! JVS(20697) = Jac_FULL(4074,5256) - JVS(20697) = -B(2819) -! JVS(20698) = Jac_FULL(4075,1419) - JVS(20698) = B(12702) -! JVS(20699) = Jac_FULL(4075,4075) - JVS(20699) = -B(9133)-B(9135)-B(9137)-B(9139) -! JVS(20700) = Jac_FULL(4075,4408) - JVS(20700) = B(5551) -! JVS(20701) = Jac_FULL(4075,5250) - JVS(20701) = B(12703) -! JVS(20702) = Jac_FULL(4075,5252) - JVS(20702) = -B(9136) -! JVS(20703) = Jac_FULL(4075,5255) - JVS(20703) = -B(9134) -! JVS(20704) = Jac_FULL(4075,5256) - JVS(20704) = -B(9138) -! JVS(20705) = Jac_FULL(4075,5258) - JVS(20705) = B(5552) -! JVS(20706) = Jac_FULL(4076,1805) - JVS(20706) = B(12785) -! JVS(20707) = Jac_FULL(4076,2351) - JVS(20707) = B(18315) -! JVS(20708) = Jac_FULL(4076,4045) - JVS(20708) = 0 -! JVS(20709) = Jac_FULL(4076,4076) - JVS(20709) = -B(15855)-B(15857)-B(15859)-B(15861) -! JVS(20710) = Jac_FULL(4076,5250) - JVS(20710) = B(18316) -! JVS(20711) = Jac_FULL(4076,5252) - JVS(20711) = -B(15858) -! JVS(20712) = Jac_FULL(4076,5255) - JVS(20712) = -B(15856) -! JVS(20713) = Jac_FULL(4076,5256) - JVS(20713) = B(12786)-B(15860) -! JVS(20714) = Jac_FULL(4077,210) - JVS(20714) = B(20766) -! JVS(20715) = Jac_FULL(4077,1540) - JVS(20715) = B(20770) -! JVS(20716) = Jac_FULL(4077,3947) - JVS(20716) = B(16979) -! JVS(20717) = Jac_FULL(4077,4077) - JVS(20717) = -B(19184)-B(19186)-B(19188)-B(19190)-B(19191)-B(19192) -! JVS(20718) = Jac_FULL(4077,4484) - JVS(20718) = B(19174)+B(19176)+B(19180)+B(19183) -! JVS(20719) = Jac_FULL(4077,4789) - JVS(20719) = 0 -! JVS(20720) = Jac_FULL(4077,5250) - JVS(20720) = B(20767) -! JVS(20721) = Jac_FULL(4077,5252) - JVS(20721) = B(19177)-B(19187) -! JVS(20722) = Jac_FULL(4077,5255) - JVS(20722) = B(19175)-B(19185) -! JVS(20723) = Jac_FULL(4077,5256) - JVS(20723) = B(19181)-B(19189) -! JVS(20724) = Jac_FULL(4078,147) - JVS(20724) = B(7372) -! JVS(20725) = Jac_FULL(4078,640) - JVS(20725) = 0 -! JVS(20726) = Jac_FULL(4078,4078) - JVS(20726) = -B(11164)-B(11166)-B(11168)-B(11170)-B(11172)-B(11173)-B(11174) -! JVS(20727) = Jac_FULL(4078,4600) - JVS(20727) = 0 -! JVS(20728) = Jac_FULL(4078,5250) - JVS(20728) = B(7373) -! JVS(20729) = Jac_FULL(4078,5252) - JVS(20729) = -B(11167)-B(11169) -! JVS(20730) = Jac_FULL(4078,5255) - JVS(20730) = -B(11165) -! JVS(20731) = Jac_FULL(4078,5256) - JVS(20731) = -B(11171) -! JVS(20732) = Jac_FULL(4078,5258) - JVS(20732) = 0 -! JVS(20733) = Jac_FULL(4079,1125) - JVS(20733) = B(15489) -! JVS(20734) = Jac_FULL(4079,4079) - JVS(20734) = -B(12405)-B(12407)-B(12409)-B(12411) -! JVS(20735) = Jac_FULL(4079,4531) - JVS(20735) = B(8764) -! JVS(20736) = Jac_FULL(4079,5250) - JVS(20736) = B(15490) -! JVS(20737) = Jac_FULL(4079,5252) - JVS(20737) = -B(12408) -! JVS(20738) = Jac_FULL(4079,5255) - JVS(20738) = -B(12406) -! JVS(20739) = Jac_FULL(4079,5256) - JVS(20739) = -B(12410) -! JVS(20740) = Jac_FULL(4079,5258) - JVS(20740) = B(8765) -! JVS(20741) = Jac_FULL(4080,3113) - JVS(20741) = B(715) -! JVS(20742) = Jac_FULL(4080,4080) - JVS(20742) = -B(2855)-B(2857)-B(2859)-B(2861)-B(2863)-B(2864) -! JVS(20743) = Jac_FULL(4080,5250) - JVS(20743) = B(716)-B(2860)-B(2862) -! JVS(20744) = Jac_FULL(4080,5256) - JVS(20744) = -B(2856) -! JVS(20745) = Jac_FULL(4080,5258) - JVS(20745) = -B(2858) -! JVS(20746) = Jac_FULL(4081,4032) - JVS(20746) = B(2583) -! JVS(20747) = Jac_FULL(4081,4080) - JVS(20747) = B(2857) -! JVS(20748) = Jac_FULL(4081,4081) - JVS(20748) = -B(5729)-B(5730)-B(5731)-B(5732) -! JVS(20749) = Jac_FULL(4081,4272) - JVS(20749) = B(2889) -! JVS(20750) = Jac_FULL(4081,5103) - JVS(20750) = B(10058) -! JVS(20751) = Jac_FULL(4081,5126) - JVS(20751) = B(9299) -! JVS(20752) = Jac_FULL(4081,5250) - JVS(20752) = 0 -! JVS(20753) = Jac_FULL(4081,5256) - JVS(20753) = 0 -! JVS(20754) = Jac_FULL(4081,5258) - JVS(20754) = B(2584)+B(2858)+B(2890)+B(9300)+B(10059) -! JVS(20755) = Jac_FULL(4082,1156) - JVS(20755) = B(13285) -! JVS(20756) = Jac_FULL(4082,4082) - JVS(20756) = -B(9972)-B(9974)-B(9976)-B(9978) -! JVS(20757) = Jac_FULL(4082,4438) - JVS(20757) = B(6256) -! JVS(20758) = Jac_FULL(4082,5250) - JVS(20758) = B(13286) -! JVS(20759) = Jac_FULL(4082,5252) - JVS(20759) = -B(9975) -! JVS(20760) = Jac_FULL(4082,5255) - JVS(20760) = -B(9973) -! JVS(20761) = Jac_FULL(4082,5256) - JVS(20761) = -B(9977) -! JVS(20762) = Jac_FULL(4082,5258) - JVS(20762) = B(6257) -! JVS(20763) = Jac_FULL(4083,3134) - JVS(20763) = B(633) -! JVS(20764) = Jac_FULL(4083,4083) - JVS(20764) = -B(2525)-B(2527)-B(2529)-B(2531)-B(2533)-B(2534) -! JVS(20765) = Jac_FULL(4083,5250) - JVS(20765) = B(634)-B(2530)-B(2532) -! JVS(20766) = Jac_FULL(4083,5256) - JVS(20766) = -B(2526) -! JVS(20767) = Jac_FULL(4083,5258) - JVS(20767) = -B(2528) -! JVS(20768) = Jac_FULL(4084,3622) - JVS(20768) = B(2712) -! JVS(20769) = Jac_FULL(4084,4010) - JVS(20769) = B(2409) -! JVS(20770) = Jac_FULL(4084,4027) - JVS(20770) = B(2753) -! JVS(20771) = Jac_FULL(4084,4056) - JVS(20771) = B(2484) -! JVS(20772) = Jac_FULL(4084,4083) - JVS(20772) = B(2527) -! JVS(20773) = Jac_FULL(4084,4084) - JVS(20773) = -B(5359)-B(5360)-B(5361)-B(5362) -! JVS(20774) = Jac_FULL(4084,5037) - JVS(20774) = B(9181) -! JVS(20775) = Jac_FULL(4084,5103) - JVS(20775) = B(10060) -! JVS(20776) = Jac_FULL(4084,5123) - JVS(20776) = B(8824) -! JVS(20777) = Jac_FULL(4084,5250) - JVS(20777) = 0 -! JVS(20778) = Jac_FULL(4084,5256) - JVS(20778) = 0 -! JVS(20779) = Jac_FULL(4084,5258) - JVS(20779) = B(2410)+B(2485)+B(2528)+B(2713)+B(2754)+B(8825)+B(9182)+B(10061) -! JVS(20780) = Jac_FULL(4085,852) - JVS(20780) = B(13344) -! JVS(20781) = Jac_FULL(4085,4085) - JVS(20781) = -B(10111)-B(10113)-B(10115)-B(10117) -! JVS(20782) = Jac_FULL(4085,4504) - JVS(20782) = B(6403) -! JVS(20783) = Jac_FULL(4085,5250) - JVS(20783) = B(13345) -! JVS(20784) = Jac_FULL(4085,5252) - JVS(20784) = -B(10114) -! JVS(20785) = Jac_FULL(4085,5255) - JVS(20785) = -B(10112) -! JVS(20786) = Jac_FULL(4085,5256) - JVS(20786) = -B(10116) -! JVS(20787) = Jac_FULL(4085,5258) - JVS(20787) = B(6404) -! JVS(20788) = Jac_FULL(4086,3226) - JVS(20788) = B(13033) -! JVS(20789) = Jac_FULL(4086,3816) - JVS(20789) = B(12974) -! JVS(20790) = Jac_FULL(4086,4086) - JVS(20790) = -B(13029)-B(13030) -! JVS(20791) = Jac_FULL(4086,4743) - JVS(20791) = 0 -! JVS(20792) = Jac_FULL(4086,4930) - JVS(20792) = B(9545)+B(9551)+B(9555)+B(9557) -! JVS(20793) = Jac_FULL(4086,5250) - JVS(20793) = B(12975) -! JVS(20794) = Jac_FULL(4086,5252) - JVS(20794) = B(9552) -! JVS(20795) = Jac_FULL(4086,5255) - JVS(20795) = B(9546) -! JVS(20796) = Jac_FULL(4086,5256) - JVS(20796) = B(9556) -! JVS(20797) = Jac_FULL(4087,1285) - JVS(20797) = B(10685) -! JVS(20798) = Jac_FULL(4087,4087) - JVS(20798) = -B(6874)-B(6876)-B(6878)-B(6880)-B(6882) -! JVS(20799) = Jac_FULL(4087,4255) - JVS(20799) = B(6863)+B(6867)+B(6871)+B(6873) -! JVS(20800) = Jac_FULL(4087,4794) - JVS(20800) = B(3145) -! JVS(20801) = Jac_FULL(4087,5250) - JVS(20801) = 0 -! JVS(20802) = Jac_FULL(4087,5252) - JVS(20802) = B(6868)-B(6877)-B(6879) -! JVS(20803) = Jac_FULL(4087,5255) - JVS(20803) = B(6864)-B(6875) -! JVS(20804) = Jac_FULL(4087,5256) - JVS(20804) = B(6872)-B(6881) -! JVS(20805) = Jac_FULL(4088,251) - JVS(20805) = B(17254) -! JVS(20806) = Jac_FULL(4088,900) - JVS(20806) = B(17258) -! JVS(20807) = Jac_FULL(4088,4088) - JVS(20807) = -B(14754)-B(14756)-B(14758)-B(14760)-B(14762)-B(14763)-B(14764) -! JVS(20808) = Jac_FULL(4088,5014) - JVS(20808) = B(14669)+B(14671)+B(14675)+B(14678) -! JVS(20809) = Jac_FULL(4088,5207) - JVS(20809) = B(11398) -! JVS(20810) = Jac_FULL(4088,5250) - JVS(20810) = B(17255) -! JVS(20811) = Jac_FULL(4088,5252) - JVS(20811) = B(14672)-B(14757)-B(14759) -! JVS(20812) = Jac_FULL(4088,5255) - JVS(20812) = B(14670)-B(14755) -! JVS(20813) = Jac_FULL(4088,5256) - JVS(20813) = B(14676)-B(14761) -! JVS(20814) = Jac_FULL(4089,1975) - JVS(20814) = B(7404) -! JVS(20815) = Jac_FULL(4089,2415) - JVS(20815) = B(7311) -! JVS(20816) = Jac_FULL(4089,2626) - JVS(20816) = 0 -! JVS(20817) = Jac_FULL(4089,2888) - JVS(20817) = 0 -! JVS(20818) = Jac_FULL(4089,4089) - JVS(20818) = -B(11102)-B(11104)-B(11106)-B(11108)-B(11110)-B(11111)-B(11112) -! JVS(20819) = Jac_FULL(4089,4090) - JVS(20819) = 0 -! JVS(20820) = Jac_FULL(4089,4091) - JVS(20820) = 0 -! JVS(20821) = Jac_FULL(4089,5250) - JVS(20821) = 0 -! JVS(20822) = Jac_FULL(4089,5252) - JVS(20822) = -B(11105)-B(11107) -! JVS(20823) = Jac_FULL(4089,5255) - JVS(20823) = -B(11103) -! JVS(20824) = Jac_FULL(4089,5256) - JVS(20824) = -B(11109) -! JVS(20825) = Jac_FULL(4090,912) - JVS(20825) = B(7398) -! JVS(20826) = Jac_FULL(4090,4090) - JVS(20826) = -B(3511)-B(3513)-B(3515)-B(3517)-B(3519)-B(3520) -! JVS(20827) = Jac_FULL(4090,4600) - JVS(20827) = B(890) -! JVS(20828) = Jac_FULL(4090,5250) - JVS(20828) = B(891)+B(7399) -! JVS(20829) = Jac_FULL(4090,5252) - JVS(20829) = -B(3514)-B(3516) -! JVS(20830) = Jac_FULL(4090,5255) - JVS(20830) = -B(3512) -! JVS(20831) = Jac_FULL(4090,5256) - JVS(20831) = -B(3518) -! JVS(20832) = Jac_FULL(4091,1241) - JVS(20832) = B(7305) -! JVS(20833) = Jac_FULL(4091,4091) - JVS(20833) = -B(3449)-B(3451)-B(3453)-B(3455)-B(3457)-B(3458) -! JVS(20834) = Jac_FULL(4091,4492) - JVS(20834) = B(876) -! JVS(20835) = Jac_FULL(4091,5250) - JVS(20835) = B(877)+B(7306) -! JVS(20836) = Jac_FULL(4091,5252) - JVS(20836) = -B(3452)-B(3454) -! JVS(20837) = Jac_FULL(4091,5255) - JVS(20837) = -B(3450) -! JVS(20838) = Jac_FULL(4091,5256) - JVS(20838) = -B(3456) -! JVS(20839) = Jac_FULL(4092,1147) - JVS(20839) = B(16938) -! JVS(20840) = Jac_FULL(4092,2480) - JVS(20840) = B(11100) -! JVS(20841) = Jac_FULL(4092,2626) - JVS(20841) = 0 -! JVS(20842) = Jac_FULL(4092,2888) - JVS(20842) = 0 -! JVS(20843) = Jac_FULL(4092,4089) - JVS(20843) = 0 -! JVS(20844) = Jac_FULL(4092,4090) - JVS(20844) = 0 -! JVS(20845) = Jac_FULL(4092,4091) - JVS(20845) = 0 -! JVS(20846) = Jac_FULL(4092,4092) - JVS(20846) = -B(14315)-B(14317)-B(14319)-B(14321)-B(14323)-B(14324) -! JVS(20847) = Jac_FULL(4092,4492) - JVS(20847) = 0 -! JVS(20848) = Jac_FULL(4092,4600) - JVS(20848) = 0 -! JVS(20849) = Jac_FULL(4092,5250) - JVS(20849) = B(11101)+B(16939) -! JVS(20850) = Jac_FULL(4092,5252) - JVS(20850) = -B(14318)-B(14320) -! JVS(20851) = Jac_FULL(4092,5255) - JVS(20851) = -B(14316) -! JVS(20852) = Jac_FULL(4092,5256) - JVS(20852) = -B(14322) -! JVS(20853) = Jac_FULL(4093,3084) - JVS(20853) = B(665) -! JVS(20854) = Jac_FULL(4093,4093) - JVS(20854) = -B(2668)-B(2670)-B(2672)-B(2674)-B(2676)-B(2677) -! JVS(20855) = Jac_FULL(4093,5250) - JVS(20855) = B(666)-B(2673)-B(2675) -! JVS(20856) = Jac_FULL(4093,5256) - JVS(20856) = -B(2669) -! JVS(20857) = Jac_FULL(4093,5258) - JVS(20857) = -B(2671) -! JVS(20858) = Jac_FULL(4094,3144) - JVS(20858) = B(655) -! JVS(20859) = Jac_FULL(4094,4094) - JVS(20859) = -B(2625)-B(2627)-B(2629)-B(2631)-B(2633)-B(2634) -! JVS(20860) = Jac_FULL(4094,5250) - JVS(20860) = B(656)-B(2630)-B(2632) -! JVS(20861) = Jac_FULL(4094,5256) - JVS(20861) = -B(2626) -! JVS(20862) = Jac_FULL(4094,5258) - JVS(20862) = -B(2628) -! JVS(20863) = Jac_FULL(4095,2618) - JVS(20863) = B(14091) -! JVS(20864) = Jac_FULL(4095,4095) - JVS(20864) = -B(10894)-B(10896)-B(10898)-B(10900) -! JVS(20865) = Jac_FULL(4095,5157) - JVS(20865) = B(7100) -! JVS(20866) = Jac_FULL(4095,5250) - JVS(20866) = B(7101)+B(14092) -! JVS(20867) = Jac_FULL(4095,5252) - JVS(20867) = -B(10897) -! JVS(20868) = Jac_FULL(4095,5255) - JVS(20868) = -B(10895) -! JVS(20869) = Jac_FULL(4095,5256) - JVS(20869) = -B(10899) -! JVS(20870) = Jac_FULL(4096,4096) - JVS(20870) = -B(6831)-B(6833)-B(6835) -! JVS(20871) = Jac_FULL(4096,5132) - JVS(20871) = B(3126) -! JVS(20872) = Jac_FULL(4096,5250) - JVS(20872) = -B(6832) -! JVS(20873) = Jac_FULL(4096,5252) - JVS(20873) = B(3127) -! JVS(20874) = Jac_FULL(4096,5258) - JVS(20874) = -B(6834)-B(6836) -! JVS(20875) = Jac_FULL(4097,897) - JVS(20875) = B(7314) -! JVS(20876) = Jac_FULL(4097,4097) - JVS(20876) = -B(3459)-B(3461)-B(3463)-B(3465)-B(3466) -! JVS(20877) = Jac_FULL(4097,4600) - JVS(20877) = B(878) -! JVS(20878) = Jac_FULL(4097,5250) - JVS(20878) = B(7315) -! JVS(20879) = Jac_FULL(4097,5252) - JVS(20879) = -B(3462) -! JVS(20880) = Jac_FULL(4097,5255) - JVS(20880) = -B(3460) -! JVS(20881) = Jac_FULL(4097,5256) - JVS(20881) = B(879)-B(3464) -! JVS(20882) = Jac_FULL(4098,162) - JVS(20882) = B(20901) -! JVS(20883) = Jac_FULL(4098,1135) - JVS(20883) = 0 -! JVS(20884) = Jac_FULL(4098,2352) - JVS(20884) = 0 -! JVS(20885) = Jac_FULL(4098,3962) - JVS(20885) = 0 -! JVS(20886) = Jac_FULL(4098,4098) - JVS(20886) = -B(21965)-B(21967)-B(21969)-B(21971)-B(21972)-B(21973) -! JVS(20887) = Jac_FULL(4098,4953) - JVS(20887) = 0 -! JVS(20888) = Jac_FULL(4098,5250) - JVS(20888) = 0 -! JVS(20889) = Jac_FULL(4098,5252) - JVS(20889) = -B(21968) -! JVS(20890) = Jac_FULL(4098,5255) - JVS(20890) = -B(21966) -! JVS(20891) = Jac_FULL(4098,5256) - JVS(20891) = -B(21970) -! JVS(20892) = Jac_FULL(4099,588) - JVS(20892) = B(385)+B(389) -! JVS(20893) = Jac_FULL(4099,1207) - JVS(20893) = B(4711) -! JVS(20894) = Jac_FULL(4099,4099) - JVS(20894) = -B(1889)-B(1891)-B(1893)-B(1895)-B(1897)-B(1898) -! JVS(20895) = Jac_FULL(4099,5238) - JVS(20895) = B(386) -! JVS(20896) = Jac_FULL(4099,5250) - JVS(20896) = B(390)+B(4712) -! JVS(20897) = Jac_FULL(4099,5252) - JVS(20897) = -B(1892)-B(1894) -! JVS(20898) = Jac_FULL(4099,5255) - JVS(20898) = -B(1890) -! JVS(20899) = Jac_FULL(4099,5256) - JVS(20899) = -B(1896) -! JVS(20900) = Jac_FULL(4100,1002) - JVS(20900) = B(12725) -! JVS(20901) = Jac_FULL(4100,3229) - JVS(20901) = B(12730) -! JVS(20902) = Jac_FULL(4100,3657) - JVS(20902) = B(5582)+B(5584)+B(5587) -! JVS(20903) = Jac_FULL(4100,4100) - JVS(20903) = -B(9160)-B(9162)-B(9164)-B(9166)-B(9168)-B(9170)-B(9172)-B(9173) -! JVS(20904) = Jac_FULL(4100,5250) - JVS(20904) = B(5585)+B(12726) -! JVS(20905) = Jac_FULL(4100,5252) - JVS(20905) = -B(9167) -! JVS(20906) = Jac_FULL(4100,5253) - JVS(20906) = -B(9169) -! JVS(20907) = Jac_FULL(4100,5255) - JVS(20907) = -B(9161)-B(9163)-B(9165) -! JVS(20908) = Jac_FULL(4100,5256) - JVS(20908) = B(5583)-B(9171) -! JVS(20909) = Jac_FULL(4101,216) - JVS(20909) = B(15784) -! JVS(20910) = Jac_FULL(4101,1426) - JVS(20910) = B(20037) -! JVS(20911) = Jac_FULL(4101,3456) - JVS(20911) = 0 -! JVS(20912) = Jac_FULL(4101,4005) - JVS(20912) = 0 -! JVS(20913) = Jac_FULL(4101,4100) - JVS(20913) = 0 -! JVS(20914) = Jac_FULL(4101,4101) - JVS(20914) = -B(18255)-B(18257)-B(18259)-B(18261) -! JVS(20915) = Jac_FULL(4101,5250) - JVS(20915) = B(15785)+B(20038) -! JVS(20916) = Jac_FULL(4101,5252) - JVS(20916) = -B(18258) -! JVS(20917) = Jac_FULL(4101,5253) - JVS(20917) = 0 -! JVS(20918) = Jac_FULL(4101,5255) - JVS(20918) = -B(18256) -! JVS(20919) = Jac_FULL(4101,5256) - JVS(20919) = -B(18260) -! JVS(20920) = Jac_FULL(4102,1982) - JVS(20920) = B(22228) -! JVS(20921) = Jac_FULL(4102,2901) - JVS(20921) = B(22233) -! JVS(20922) = Jac_FULL(4102,3732) - JVS(20922) = B(20073) -! JVS(20923) = Jac_FULL(4102,4076) - JVS(20923) = 0 -! JVS(20924) = Jac_FULL(4102,4102) - JVS(20924) = -B(21388)-B(21390)-B(21392)-B(21394)-B(21396)-B(21398) -! JVS(20925) = Jac_FULL(4102,5250) - JVS(20925) = B(22229) -! JVS(20926) = Jac_FULL(4102,5252) - JVS(20926) = -B(21393) -! JVS(20927) = Jac_FULL(4102,5253) - JVS(20927) = -B(21395) -! JVS(20928) = Jac_FULL(4102,5255) - JVS(20928) = -B(21389)-B(21391) -! JVS(20929) = Jac_FULL(4102,5256) - JVS(20929) = -B(21397) -! JVS(20930) = Jac_FULL(4103,468) - JVS(20930) = B(12094) -! JVS(20931) = Jac_FULL(4103,1401) - JVS(20931) = B(12088) -! JVS(20932) = Jac_FULL(4103,1780) - JVS(20932) = B(12091) -! JVS(20933) = Jac_FULL(4103,1781) - JVS(20933) = B(12093) -! JVS(20934) = Jac_FULL(4103,3751) - JVS(20934) = B(8352) -! JVS(20935) = Jac_FULL(4103,4103) - JVS(20935) = -B(12096)-B(12097)-B(12099) -! JVS(20936) = Jac_FULL(4103,5112) - JVS(20936) = 0 -! JVS(20937) = Jac_FULL(4103,5250) - JVS(20937) = B(12089)+B(12092)+B(12095)-B(12098)-B(12100) -! JVS(20938) = Jac_FULL(4103,5252) - JVS(20938) = 0 -! JVS(20939) = Jac_FULL(4103,5255) - JVS(20939) = 0 -! JVS(20940) = Jac_FULL(4103,5256) - JVS(20940) = 0 -! JVS(20941) = Jac_FULL(4104,633) - JVS(20941) = B(22363) -! JVS(20942) = Jac_FULL(4104,731) - JVS(20942) = B(22926) -! JVS(20943) = Jac_FULL(4104,1414) - JVS(20943) = B(22356) -! JVS(20944) = Jac_FULL(4104,1934) - JVS(20944) = B(21762) -! JVS(20945) = Jac_FULL(4104,2332) - JVS(20945) = B(22359) -! JVS(20946) = Jac_FULL(4104,2445) - JVS(20946) = 0 -! JVS(20947) = Jac_FULL(4104,2701) - JVS(20947) = B(20703) -! JVS(20948) = Jac_FULL(4104,4104) - JVS(20948) = -B(21725)-B(21727) -! JVS(20949) = Jac_FULL(4104,4580) - JVS(20949) = 0 -! JVS(20950) = Jac_FULL(4104,4597) - JVS(20950) = B(21736) -! JVS(20951) = Jac_FULL(4104,4644) - JVS(20951) = 0 -! JVS(20952) = Jac_FULL(4104,5019) - JVS(20952) = 0 -! JVS(20953) = Jac_FULL(4104,5250) - JVS(20953) = B(20704)-B(21726)+B(21763)+B(22357)+B(22360)+B(22364) -! JVS(20954) = Jac_FULL(4104,5252) - JVS(20954) = 0 -! JVS(20955) = Jac_FULL(4104,5255) - JVS(20955) = 0 -! JVS(20956) = Jac_FULL(4104,5256) - JVS(20956) = 0 -! JVS(20957) = Jac_FULL(4105,2634) - JVS(20957) = B(7213) -! JVS(20958) = Jac_FULL(4105,3291) - JVS(20958) = B(14179) -! JVS(20959) = Jac_FULL(4105,3836) - JVS(20959) = 0 -! JVS(20960) = Jac_FULL(4105,4105) - JVS(20960) = -B(10989)-B(10991)-B(10993)-B(10995)-B(10996)-B(10997) -! JVS(20961) = Jac_FULL(4105,5045) - JVS(20961) = 0 -! JVS(20962) = Jac_FULL(4105,5250) - JVS(20962) = B(14180) -! JVS(20963) = Jac_FULL(4105,5252) - JVS(20963) = -B(10992) -! JVS(20964) = Jac_FULL(4105,5255) - JVS(20964) = -B(10990) -! JVS(20965) = Jac_FULL(4105,5256) - JVS(20965) = -B(10994) -! JVS(20966) = Jac_FULL(4106,3259) - JVS(20966) = B(18991) -! JVS(20967) = Jac_FULL(4106,4106) - JVS(20967) = -B(16780)-B(16782)-B(16784)-B(16786) -! JVS(20968) = Jac_FULL(4106,5110) - JVS(20968) = B(14103) -! JVS(20969) = Jac_FULL(4106,5250) - JVS(20969) = B(14104)+B(18992) -! JVS(20970) = Jac_FULL(4106,5252) - JVS(20970) = -B(16783) -! JVS(20971) = Jac_FULL(4106,5255) - JVS(20971) = -B(16781) -! JVS(20972) = Jac_FULL(4106,5256) - JVS(20972) = -B(16785) -! JVS(20973) = Jac_FULL(4107,4107) - JVS(20973) = -B(10486)-B(10487)-B(10489)-B(10491) -! JVS(20974) = Jac_FULL(4107,5217) - JVS(20974) = B(6773) -! JVS(20975) = Jac_FULL(4107,5218) - JVS(20975) = B(6916) -! JVS(20976) = Jac_FULL(4107,5250) - JVS(20976) = -B(10488)-B(10490)-B(10492) -! JVS(20977) = Jac_FULL(4107,5255) - JVS(20977) = B(6774)+B(6917) -! JVS(20978) = Jac_FULL(4108,3598) - JVS(20978) = B(4898) -! JVS(20979) = Jac_FULL(4108,4108) - JVS(20979) = -B(4899)-B(4901)-B(4903)-B(4904) -! JVS(20980) = Jac_FULL(4108,4809) - JVS(20980) = B(2077) -! JVS(20981) = Jac_FULL(4108,5250) - JVS(20981) = -B(4902) -! JVS(20982) = Jac_FULL(4108,5252) - JVS(20982) = 0 -! JVS(20983) = Jac_FULL(4108,5255) - JVS(20983) = 0 -! JVS(20984) = Jac_FULL(4108,5256) - JVS(20984) = -B(4900) -! JVS(20985) = Jac_FULL(4109,9) - JVS(20985) = B(10707) -! JVS(20986) = Jac_FULL(4109,285) - JVS(20986) = 0 -! JVS(20987) = Jac_FULL(4109,706) - JVS(20987) = B(12231) -! JVS(20988) = Jac_FULL(4109,981) - JVS(20988) = B(10701) -! JVS(20989) = Jac_FULL(4109,1655) - JVS(20989) = B(14041) -! JVS(20990) = Jac_FULL(4109,2436) - JVS(20990) = B(10704) -! JVS(20991) = Jac_FULL(4109,3231) - JVS(20991) = 0 -! JVS(20992) = Jac_FULL(4109,4109) - JVS(20992) = -B(10709)-B(10710) -! JVS(20993) = Jac_FULL(4109,4778) - JVS(20993) = 0 -! JVS(20994) = Jac_FULL(4109,4856) - JVS(20994) = 0 -! JVS(20995) = Jac_FULL(4109,4885) - JVS(20995) = 0 -! JVS(20996) = Jac_FULL(4109,5127) - JVS(20996) = B(6904) -! JVS(20997) = Jac_FULL(4109,5250) - JVS(20997) = B(10702)+B(10705)+B(10708)-B(10711)+B(14042) -! JVS(20998) = Jac_FULL(4109,5252) - JVS(20998) = 0 -! JVS(20999) = Jac_FULL(4109,5255) - JVS(20999) = 0 -! JVS(21000) = Jac_FULL(4109,5256) - JVS(21000) = 0 -! JVS(21001) = Jac_FULL(4110,425) - JVS(21001) = B(11866) -! JVS(21002) = Jac_FULL(4110,1692) - JVS(21002) = B(11858) -! JVS(21003) = Jac_FULL(4110,2182) - JVS(21003) = B(11856) -! JVS(21004) = Jac_FULL(4110,2233) - JVS(21004) = B(11851) -! JVS(21005) = Jac_FULL(4110,3778) - JVS(21005) = B(8122) -! JVS(21006) = Jac_FULL(4110,4110) - JVS(21006) = -B(11859)-B(11860)-B(11862)-B(11864) -! JVS(21007) = Jac_FULL(4110,5056) - JVS(21007) = 0 -! JVS(21008) = Jac_FULL(4110,5250) - JVS(21008) = B(11852)+B(11857)-B(11863)-B(11865)+B(11867) -! JVS(21009) = Jac_FULL(4110,5252) - JVS(21009) = 0 -! JVS(21010) = Jac_FULL(4110,5255) - JVS(21010) = 0 -! JVS(21011) = Jac_FULL(4110,5256) - JVS(21011) = -B(11861) -! JVS(21012) = Jac_FULL(4111,4111) - JVS(21012) = -B(3066)-B(3068)-B(3070)-B(3072)-B(3074)-B(3075)-B(3076) -! JVS(21013) = Jac_FULL(4111,5153) - JVS(21013) = B(773) -! JVS(21014) = Jac_FULL(4111,5250) - JVS(21014) = B(774) -! JVS(21015) = Jac_FULL(4111,5252) - JVS(21015) = -B(3069)-B(3071) -! JVS(21016) = Jac_FULL(4111,5255) - JVS(21016) = -B(3067) -! JVS(21017) = Jac_FULL(4111,5256) - JVS(21017) = -B(3073) -! JVS(21018) = Jac_FULL(4112,1288) - JVS(21018) = B(4890) -! JVS(21019) = Jac_FULL(4112,4112) - JVS(21019) = -B(2062)-B(2064)-B(2066)-B(2068)-B(2069) -! JVS(21020) = Jac_FULL(4112,4512) - JVS(21020) = B(465) -! JVS(21021) = Jac_FULL(4112,5250) - JVS(21021) = B(4891) -! JVS(21022) = Jac_FULL(4112,5252) - JVS(21022) = -B(2065) -! JVS(21023) = Jac_FULL(4112,5255) - JVS(21023) = -B(2063) -! JVS(21024) = Jac_FULL(4112,5256) - JVS(21024) = B(466)-B(2067) -! JVS(21025) = Jac_FULL(4113,4113) - JVS(21025) = -B(10562)-B(10563)-B(10565)-B(10567) -! JVS(21026) = Jac_FULL(4113,5118) - JVS(21026) = B(6928) -! JVS(21027) = Jac_FULL(4113,5204) - JVS(21027) = B(6800) -! JVS(21028) = Jac_FULL(4113,5250) - JVS(21028) = -B(10564)-B(10566)-B(10568) -! JVS(21029) = Jac_FULL(4113,5255) - JVS(21029) = B(6801)+B(6929) -! JVS(21030) = Jac_FULL(4114,2369) - JVS(21030) = B(5005) -! JVS(21031) = Jac_FULL(4114,3592) - JVS(21031) = B(5008) -! JVS(21032) = Jac_FULL(4114,4114) - JVS(21032) = -B(5010)-B(5012)-B(5014)-B(5015) -! JVS(21033) = Jac_FULL(4114,4777) - JVS(21033) = B(2167) -! JVS(21034) = Jac_FULL(4114,5250) - JVS(21034) = B(5006)-B(5013) -! JVS(21035) = Jac_FULL(4114,5252) - JVS(21035) = 0 -! JVS(21036) = Jac_FULL(4114,5255) - JVS(21036) = 0 -! JVS(21037) = Jac_FULL(4114,5256) - JVS(21037) = -B(5011) -! JVS(21038) = Jac_FULL(4115,858) - JVS(21038) = B(23884) -! JVS(21039) = Jac_FULL(4115,2809) - JVS(21039) = B(23453) -! JVS(21040) = Jac_FULL(4115,4115) - JVS(21040) = -B(23711)-B(23713)-B(23715)-B(23717) -! JVS(21041) = Jac_FULL(4115,4572) - JVS(21041) = 0 -! JVS(21042) = Jac_FULL(4115,5250) - JVS(21042) = B(23454)+B(23885) -! JVS(21043) = Jac_FULL(4115,5252) - JVS(21043) = -B(23714) -! JVS(21044) = Jac_FULL(4115,5255) - JVS(21044) = -B(23712) -! JVS(21045) = Jac_FULL(4115,5256) - JVS(21045) = -B(23716) -! JVS(21046) = Jac_FULL(4116,433) - JVS(21046) = B(23819) -! JVS(21047) = Jac_FULL(4116,1347) - JVS(21047) = B(23823) -! JVS(21048) = Jac_FULL(4116,4116) - JVS(21048) = -B(23824)-B(23826)-B(23828)-B(23830)-B(23831)-B(23832) -! JVS(21049) = Jac_FULL(4116,5054) - JVS(21049) = B(23636)+B(23638)+B(23642)+B(23645) -! JVS(21050) = Jac_FULL(4116,5250) - JVS(21050) = B(23820) -! JVS(21051) = Jac_FULL(4116,5252) - JVS(21051) = B(23639)-B(23827) -! JVS(21052) = Jac_FULL(4116,5255) - JVS(21052) = B(23637)-B(23825) -! JVS(21053) = Jac_FULL(4116,5256) - JVS(21053) = B(23643)-B(23829) -! JVS(21054) = Jac_FULL(4117,1527) - JVS(21054) = B(23626) -! JVS(21055) = Jac_FULL(4117,4117) - JVS(21055) = -B(23366)-B(23368)-B(23370)-B(23372)-B(23373) -! JVS(21056) = Jac_FULL(4117,5187) - JVS(21056) = B(22984) -! JVS(21057) = Jac_FULL(4117,5250) - JVS(21057) = B(23627) -! JVS(21058) = Jac_FULL(4117,5252) - JVS(21058) = -B(23369) -! JVS(21059) = Jac_FULL(4117,5255) - JVS(21059) = -B(23367) -! JVS(21060) = Jac_FULL(4117,5256) - JVS(21060) = B(22985)-B(23371) -! JVS(21061) = Jac_FULL(4118,1495) - JVS(21061) = B(14148) -! JVS(21062) = Jac_FULL(4118,1712) - JVS(21062) = B(7155) -! JVS(21063) = Jac_FULL(4118,2572) - JVS(21063) = 0 -! JVS(21064) = Jac_FULL(4118,4118) - JVS(21064) = -B(10948)-B(10950)-B(10952)-B(10954) -! JVS(21065) = Jac_FULL(4118,4367) - JVS(21065) = 0 -! JVS(21066) = Jac_FULL(4118,5250) - JVS(21066) = B(7156)+B(14149) -! JVS(21067) = Jac_FULL(4118,5252) - JVS(21067) = -B(10951) -! JVS(21068) = Jac_FULL(4118,5255) - JVS(21068) = -B(10949) -! JVS(21069) = Jac_FULL(4118,5256) - JVS(21069) = -B(10953) -! JVS(21070) = Jac_FULL(4119,407) - JVS(21070) = B(16952) -! JVS(21071) = Jac_FULL(4119,1197) - JVS(21071) = 0 -! JVS(21072) = Jac_FULL(4119,1367) - JVS(21072) = B(20737) -! JVS(21073) = Jac_FULL(4119,3081) - JVS(21073) = 0 -! JVS(21074) = Jac_FULL(4119,4119) - JVS(21074) = -B(19141)-B(19143)-B(19145)-B(19147)-B(19149)-B(19150) -! JVS(21075) = Jac_FULL(4119,4173) - JVS(21075) = 0 -! JVS(21076) = Jac_FULL(4119,5250) - JVS(21076) = B(20738) -! JVS(21077) = Jac_FULL(4119,5252) - JVS(21077) = -B(19144)-B(19146) -! JVS(21078) = Jac_FULL(4119,5255) - JVS(21078) = -B(19142) -! JVS(21079) = Jac_FULL(4119,5256) - JVS(21079) = -B(19148) -! JVS(21080) = Jac_FULL(4120,203) - JVS(21080) = B(23023) -! JVS(21081) = Jac_FULL(4120,1463) - JVS(21081) = 0 -! JVS(21082) = Jac_FULL(4120,2224) - JVS(21082) = 0 -! JVS(21083) = Jac_FULL(4120,3908) - JVS(21083) = 0 -! JVS(21084) = Jac_FULL(4120,4120) - JVS(21084) = -B(23408)-B(23410)-B(23412)-B(23414)-B(23415)-B(23416) -! JVS(21085) = Jac_FULL(4120,5044) - JVS(21085) = 0 -! JVS(21086) = Jac_FULL(4120,5250) - JVS(21086) = 0 -! JVS(21087) = Jac_FULL(4120,5252) - JVS(21087) = -B(23411) -! JVS(21088) = Jac_FULL(4120,5255) - JVS(21088) = -B(23409) -! JVS(21089) = Jac_FULL(4120,5256) - JVS(21089) = -B(23413) -! JVS(21090) = Jac_FULL(4121,980) - JVS(21090) = B(4607) -! JVS(21091) = Jac_FULL(4121,1641) - JVS(21091) = B(351)+B(357) -! JVS(21092) = Jac_FULL(4121,4121) - JVS(21092) = -B(1803)-B(1805)-B(1807)-B(1809)-B(1811)-B(1812) -! JVS(21093) = Jac_FULL(4121,5238) - JVS(21093) = B(352) -! JVS(21094) = Jac_FULL(4121,5250) - JVS(21094) = B(358)+B(4608) -! JVS(21095) = Jac_FULL(4121,5252) - JVS(21095) = -B(1806)-B(1808) -! JVS(21096) = Jac_FULL(4121,5255) - JVS(21096) = -B(1804) -! JVS(21097) = Jac_FULL(4121,5256) - JVS(21097) = -B(1810) -! JVS(21098) = Jac_FULL(4122,525) - JVS(21098) = B(12112) -! JVS(21099) = Jac_FULL(4122,1304) - JVS(21099) = B(12106) -! JVS(21100) = Jac_FULL(4122,2122) - JVS(21100) = B(12111) -! JVS(21101) = Jac_FULL(4122,2268) - JVS(21101) = B(12109) -! JVS(21102) = Jac_FULL(4122,3731) - JVS(21102) = B(8370) -! JVS(21103) = Jac_FULL(4122,4122) - JVS(21103) = -B(12114)-B(12115)-B(12117) -! JVS(21104) = Jac_FULL(4122,5107) - JVS(21104) = 0 -! JVS(21105) = Jac_FULL(4122,5250) - JVS(21105) = B(12107)+B(12110)+B(12113)-B(12116)-B(12118) -! JVS(21106) = Jac_FULL(4122,5252) - JVS(21106) = 0 -! JVS(21107) = Jac_FULL(4122,5255) - JVS(21107) = 0 -! JVS(21108) = Jac_FULL(4122,5256) - JVS(21108) = 0 -! JVS(21109) = Jac_FULL(4123,217) - JVS(21109) = B(18908) -! JVS(21110) = Jac_FULL(4123,3621) - JVS(21110) = 0 -! JVS(21111) = Jac_FULL(4123,4123) - JVS(21111) = -B(20500)-B(20502)-B(20504)-B(20506) -! JVS(21112) = Jac_FULL(4123,5091) - JVS(21112) = 0 -! JVS(21113) = Jac_FULL(4123,5250) - JVS(21113) = B(18909) -! JVS(21114) = Jac_FULL(4123,5252) - JVS(21114) = -B(20503) -! JVS(21115) = Jac_FULL(4123,5255) - JVS(21115) = -B(20501) -! JVS(21116) = Jac_FULL(4123,5256) - JVS(21116) = -B(20505) -! JVS(21117) = Jac_FULL(4124,931) - JVS(21117) = B(16870) -! JVS(21118) = Jac_FULL(4124,4124) - JVS(21118) = -B(14224)-B(14226)-B(14228)-B(14230)-B(14232)-B(14233) -! JVS(21119) = Jac_FULL(4124,5213) - JVS(21119) = B(11036) -! JVS(21120) = Jac_FULL(4124,5250) - JVS(21120) = B(11037)+B(16871) -! JVS(21121) = Jac_FULL(4124,5252) - JVS(21121) = -B(14227)-B(14229) -! JVS(21122) = Jac_FULL(4124,5255) - JVS(21122) = -B(14225) -! JVS(21123) = Jac_FULL(4124,5256) - JVS(21123) = -B(14231) -! JVS(21124) = Jac_FULL(4125,3451) - JVS(21124) = B(10091) -! JVS(21125) = Jac_FULL(4125,3468) - JVS(21125) = B(9211) -! JVS(21126) = Jac_FULL(4125,3618) - JVS(21126) = B(18802) -! JVS(21127) = Jac_FULL(4125,3707) - JVS(21127) = B(13667) -! JVS(21128) = Jac_FULL(4125,4125) - JVS(21128) = -B(12693)-B(12695)-B(12696) -! JVS(21129) = Jac_FULL(4125,4749) - JVS(21129) = B(13771)+B(13775) -! JVS(21130) = Jac_FULL(4125,4758) - JVS(21130) = 0 -! JVS(21131) = Jac_FULL(4125,4893) - JVS(21131) = 0 -! JVS(21132) = Jac_FULL(4125,4905) - JVS(21132) = 0 -! JVS(21133) = Jac_FULL(4125,4982) - JVS(21133) = 0 -! JVS(21134) = Jac_FULL(4125,5001) - JVS(21134) = B(9097) -! JVS(21135) = Jac_FULL(4125,5250) - JVS(21135) = -B(12694)+B(13772) -! JVS(21136) = Jac_FULL(4125,5255) - JVS(21136) = B(9098) -! JVS(21137) = Jac_FULL(4126,2614) - JVS(21137) = B(7084) -! JVS(21138) = Jac_FULL(4126,3287) - JVS(21138) = B(14064) -! JVS(21139) = Jac_FULL(4126,4126) - JVS(21139) = -B(10864)-B(10866)-B(10868)-B(10870)-B(10871)-B(10872) -! JVS(21140) = Jac_FULL(4126,5097) - JVS(21140) = 0 -! JVS(21141) = Jac_FULL(4126,5250) - JVS(21141) = B(14065) -! JVS(21142) = Jac_FULL(4126,5252) - JVS(21142) = -B(10867) -! JVS(21143) = Jac_FULL(4126,5255) - JVS(21143) = -B(10865) -! JVS(21144) = Jac_FULL(4126,5256) - JVS(21144) = -B(10869) -! JVS(21145) = Jac_FULL(4127,2753) - JVS(21145) = B(13954) -! JVS(21146) = Jac_FULL(4127,3156) - JVS(21146) = B(6960) -! JVS(21147) = Jac_FULL(4127,4127) - JVS(21147) = -B(10751)-B(10753)-B(10755)-B(10757)-B(10759)-B(10761)-B(10762)-B(10763) -! JVS(21148) = Jac_FULL(4127,4616) - JVS(21148) = 0 -! JVS(21149) = Jac_FULL(4127,5250) - JVS(21149) = B(6961)+B(13955) -! JVS(21150) = Jac_FULL(4127,5252) - JVS(21150) = -B(10756)-B(10758) -! JVS(21151) = Jac_FULL(4127,5255) - JVS(21151) = -B(10752)-B(10754) -! JVS(21152) = Jac_FULL(4127,5256) - JVS(21152) = -B(10760) -! JVS(21153) = Jac_FULL(4128,4110) - JVS(21153) = B(11862) -! JVS(21154) = Jac_FULL(4128,4128) - JVS(21154) = -B(15068)-B(15070)-B(15072)-B(15074)-B(15076)-B(15077)-B(15078) -! JVS(21155) = Jac_FULL(4128,5056) - JVS(21155) = 0 -! JVS(21156) = Jac_FULL(4128,5250) - JVS(21156) = B(11863) -! JVS(21157) = Jac_FULL(4128,5252) - JVS(21157) = -B(15071)-B(15073) -! JVS(21158) = Jac_FULL(4128,5255) - JVS(21158) = -B(15069) -! JVS(21159) = Jac_FULL(4128,5256) - JVS(21159) = -B(15075) -! JVS(21160) = Jac_FULL(4129,386) - JVS(21160) = B(16514) -! JVS(21161) = Jac_FULL(4129,4129) - JVS(21161) = -B(18742)-B(18744)-B(18746)-B(18748) -! JVS(21162) = Jac_FULL(4129,4832) - JVS(21162) = 0 -! JVS(21163) = Jac_FULL(4129,5252) - JVS(21163) = -B(18745) -! JVS(21164) = Jac_FULL(4129,5255) - JVS(21164) = -B(18743) -! JVS(21165) = Jac_FULL(4129,5256) - JVS(21165) = -B(18747) -! JVS(21166) = Jac_FULL(4129,5258) - JVS(21166) = 0 -! JVS(21167) = Jac_FULL(4130,1614) - JVS(21167) = B(22065) -! JVS(21168) = Jac_FULL(4130,1801) - JVS(21168) = 0 -! JVS(21169) = Jac_FULL(4130,2524) - JVS(21169) = 0 -! JVS(21170) = Jac_FULL(4130,4130) - JVS(21170) = -B(22676)-B(22678)-B(22680)-B(22682)-B(22683)-B(22684) -! JVS(21171) = Jac_FULL(4130,4385) - JVS(21171) = 0 -! JVS(21172) = Jac_FULL(4130,5250) - JVS(21172) = 0 -! JVS(21173) = Jac_FULL(4130,5252) - JVS(21173) = -B(22679) -! JVS(21174) = Jac_FULL(4130,5255) - JVS(21174) = -B(22677) -! JVS(21175) = Jac_FULL(4130,5256) - JVS(21175) = -B(22681) -! JVS(21176) = Jac_FULL(4131,849) - JVS(21176) = B(22400) -! JVS(21177) = Jac_FULL(4131,1189) - JVS(21177) = B(22395)+B(22397) -! JVS(21178) = Jac_FULL(4131,4131) - JVS(21178) = -B(22401)-B(22403)-B(22405)-B(22407)-B(22408)-B(22409) -! JVS(21179) = Jac_FULL(4131,4624) - JVS(21179) = B(21780)+B(21782)+B(21786)+B(21789) -! JVS(21180) = Jac_FULL(4131,5250) - JVS(21180) = B(22396) -! JVS(21181) = Jac_FULL(4131,5252) - JVS(21181) = B(21783)-B(22404) -! JVS(21182) = Jac_FULL(4131,5255) - JVS(21182) = B(21781)-B(22402) -! JVS(21183) = Jac_FULL(4131,5256) - JVS(21183) = B(21787)-B(22406) -! JVS(21184) = Jac_FULL(4132,1473) - JVS(21184) = B(9994) -! JVS(21185) = Jac_FULL(4132,2950) - JVS(21185) = B(9999) -! JVS(21186) = Jac_FULL(4132,4080) - JVS(21186) = B(2855)+B(2859) -! JVS(21187) = Jac_FULL(4132,4132) - JVS(21187) = -B(6288)-B(6290)-B(6292)-B(6294)-B(6296)-B(6298)-B(6300)-B(6301) -! JVS(21188) = Jac_FULL(4132,5250) - JVS(21188) = B(2860)+B(9995) -! JVS(21189) = Jac_FULL(4132,5253) - JVS(21189) = -B(6295)-B(6297) -! JVS(21190) = Jac_FULL(4132,5255) - JVS(21190) = -B(6289)-B(6291)-B(6293) -! JVS(21191) = Jac_FULL(4132,5256) - JVS(21191) = B(2856)-B(6299) -! JVS(21192) = Jac_FULL(4132,5258) - JVS(21192) = 0 -! JVS(21193) = Jac_FULL(4133,1486) - JVS(21193) = B(6022) -! JVS(21194) = Jac_FULL(4133,3138) - JVS(21194) = B(683) -! JVS(21195) = Jac_FULL(4133,4133) - JVS(21195) = -B(2729)-B(2731)-B(2733)-B(2735)-B(2737)-B(2738) -! JVS(21196) = Jac_FULL(4133,5250) - JVS(21196) = B(684)+B(6023) -! JVS(21197) = Jac_FULL(4133,5252) - JVS(21197) = -B(2732)-B(2734) -! JVS(21198) = Jac_FULL(4133,5255) - JVS(21198) = -B(2730) -! JVS(21199) = Jac_FULL(4133,5256) - JVS(21199) = -B(2736) -! JVS(21200) = Jac_FULL(4134,997) - JVS(21200) = B(18697) -! JVS(21201) = Jac_FULL(4134,4134) - JVS(21201) = -B(16450)-B(16452)-B(16454)-B(16456) -! JVS(21202) = Jac_FULL(4134,4865) - JVS(21202) = B(13481) -! JVS(21203) = Jac_FULL(4134,5250) - JVS(21203) = B(13482)+B(18698) -! JVS(21204) = Jac_FULL(4134,5252) - JVS(21204) = -B(16453) -! JVS(21205) = Jac_FULL(4134,5255) - JVS(21205) = -B(16451) -! JVS(21206) = Jac_FULL(4134,5256) - JVS(21206) = -B(16455) -! JVS(21207) = Jac_FULL(4135,224) - JVS(21207) = B(14517) -! JVS(21208) = Jac_FULL(4135,4135) - JVS(21208) = -B(17154)-B(17156)-B(17158)-B(17160)-B(17161)-B(17162) -! JVS(21209) = Jac_FULL(4135,5175) - JVS(21209) = 0 -! JVS(21210) = Jac_FULL(4135,5252) - JVS(21210) = -B(17157) -! JVS(21211) = Jac_FULL(4135,5255) - JVS(21211) = -B(17155) -! JVS(21212) = Jac_FULL(4135,5256) - JVS(21212) = -B(17159) -! JVS(21213) = Jac_FULL(4135,5258) - JVS(21213) = 0 -! JVS(21214) = Jac_FULL(4136,1818) - JVS(21214) = B(23445) -! JVS(21215) = Jac_FULL(4136,2802) - JVS(21215) = 0 -! JVS(21216) = Jac_FULL(4136,4136) - JVS(21216) = -B(23702)-B(23704)-B(23706)-B(23708)-B(23709)-B(23710) -! JVS(21217) = Jac_FULL(4136,5130) - JVS(21217) = 0 -! JVS(21218) = Jac_FULL(4136,5250) - JVS(21218) = 0 -! JVS(21219) = Jac_FULL(4136,5252) - JVS(21219) = -B(23705) -! JVS(21220) = Jac_FULL(4136,5255) - JVS(21220) = -B(23703) -! JVS(21221) = Jac_FULL(4136,5256) - JVS(21221) = -B(23707) -! JVS(21222) = Jac_FULL(4137,1931) - JVS(21222) = B(23218) -! JVS(21223) = Jac_FULL(4137,2965) - JVS(21223) = B(22745) -! JVS(21224) = Jac_FULL(4137,3902) - JVS(21224) = 0 -! JVS(21225) = Jac_FULL(4137,3951) - JVS(21225) = 0 -! JVS(21226) = Jac_FULL(4137,4137) - JVS(21226) = -B(23202)-B(23204)-B(23206)-B(23208)-B(23210)-B(23211) -! JVS(21227) = Jac_FULL(4137,5114) - JVS(21227) = 0 -! JVS(21228) = Jac_FULL(4137,5250) - JVS(21228) = B(22746) -! JVS(21229) = Jac_FULL(4137,5252) - JVS(21229) = -B(23205)-B(23207) -! JVS(21230) = Jac_FULL(4137,5255) - JVS(21230) = -B(23203) -! JVS(21231) = Jac_FULL(4137,5256) - JVS(21231) = -B(23209) -! JVS(21232) = Jac_FULL(4138,1832) - JVS(21232) = B(19671) -! JVS(21233) = Jac_FULL(4138,2930) - JVS(21233) = B(22164) -! JVS(21234) = Jac_FULL(4138,3078) - JVS(21234) = 0 -! JVS(21235) = Jac_FULL(4138,4138) - JVS(21235) = -B(21174)-B(21176)-B(21178)-B(21180) -! JVS(21236) = Jac_FULL(4138,4584) - JVS(21236) = 0 -! JVS(21237) = Jac_FULL(4138,5250) - JVS(21237) = B(19672)+B(22165) -! JVS(21238) = Jac_FULL(4138,5252) - JVS(21238) = -B(21177) -! JVS(21239) = Jac_FULL(4138,5255) - JVS(21239) = -B(21175) -! JVS(21240) = Jac_FULL(4138,5256) - JVS(21240) = -B(21179) -! JVS(21241) = Jac_FULL(4139,1537) - JVS(21241) = B(13160) -! JVS(21242) = Jac_FULL(4139,3318) - JVS(21242) = B(13165) -! JVS(21243) = Jac_FULL(4139,3655) - JVS(21243) = B(6014)+B(6016)+B(6019) -! JVS(21244) = Jac_FULL(4139,4139) - JVS(21244) = -B(9703)-B(9705)-B(9707)-B(9709)-B(9711)-B(9713)-B(9715)-B(9716) -! JVS(21245) = Jac_FULL(4139,5250) - JVS(21245) = B(6017)+B(13161) -! JVS(21246) = Jac_FULL(4139,5252) - JVS(21246) = -B(9710) -! JVS(21247) = Jac_FULL(4139,5253) - JVS(21247) = -B(9712) -! JVS(21248) = Jac_FULL(4139,5255) - JVS(21248) = -B(9704)-B(9706)-B(9708) -! JVS(21249) = Jac_FULL(4139,5256) - JVS(21249) = B(6015)-B(9714) -! JVS(21250) = Jac_FULL(4140,1072) - JVS(21250) = B(5085) -! JVS(21251) = Jac_FULL(4140,4140) - JVS(21251) = -B(2221)-B(2223)-B(2225)-B(2227)-B(2228) -! JVS(21252) = Jac_FULL(4140,4474) - JVS(21252) = B(539) -! JVS(21253) = Jac_FULL(4140,5250) - JVS(21253) = B(5086) -! JVS(21254) = Jac_FULL(4140,5252) - JVS(21254) = -B(2224) -! JVS(21255) = Jac_FULL(4140,5255) - JVS(21255) = -B(2222) -! JVS(21256) = Jac_FULL(4140,5256) - JVS(21256) = B(540)-B(2226) -! JVS(21257) = Jac_FULL(4141,4141) - JVS(21257) = -B(12995)-B(12997)-B(12999)-B(13001)-B(13002)-B(13003) -! JVS(21258) = Jac_FULL(4141,5068) - JVS(21258) = B(9534) -! JVS(21259) = Jac_FULL(4141,5250) - JVS(21259) = B(9535) -! JVS(21260) = Jac_FULL(4141,5252) - JVS(21260) = -B(12998) -! JVS(21261) = Jac_FULL(4141,5255) - JVS(21261) = -B(12996) -! JVS(21262) = Jac_FULL(4141,5256) - JVS(21262) = -B(13000) -! JVS(21263) = Jac_FULL(4142,3591) - JVS(21263) = B(20788) -! JVS(21264) = Jac_FULL(4142,4142) - JVS(21264) = -B(21818)-B(21820)-B(21822)-B(21824)-B(21825)-B(21826) -! JVS(21265) = Jac_FULL(4142,4900) - JVS(21265) = 0 -! JVS(21266) = Jac_FULL(4142,5250) - JVS(21266) = 0 -! JVS(21267) = Jac_FULL(4142,5252) - JVS(21267) = -B(21821) -! JVS(21268) = Jac_FULL(4142,5255) - JVS(21268) = -B(21819) -! JVS(21269) = Jac_FULL(4142,5256) - JVS(21269) = -B(21823) -! JVS(21270) = Jac_FULL(4143,1391) - JVS(21270) = B(5016) -! JVS(21271) = Jac_FULL(4143,4143) - JVS(21271) = -B(2169)-B(2171)-B(2173)-B(2175)-B(2176) -! JVS(21272) = Jac_FULL(4143,4601) - JVS(21272) = B(515) -! JVS(21273) = Jac_FULL(4143,5250) - JVS(21273) = B(5017) -! JVS(21274) = Jac_FULL(4143,5252) - JVS(21274) = -B(2172) -! JVS(21275) = Jac_FULL(4143,5255) - JVS(21275) = -B(2170) -! JVS(21276) = Jac_FULL(4143,5256) - JVS(21276) = B(516)-B(2174) -! JVS(21277) = Jac_FULL(4144,419) - JVS(21277) = B(3530) -! JVS(21278) = Jac_FULL(4144,4144) - JVS(21278) = -B(7422)-B(7424)-B(7426)-B(7428)-B(7429)-B(7430) -! JVS(21279) = Jac_FULL(4144,4605) - JVS(21279) = 0 -! JVS(21280) = Jac_FULL(4144,5252) - JVS(21280) = -B(7425) -! JVS(21281) = Jac_FULL(4144,5255) - JVS(21281) = -B(7423) -! JVS(21282) = Jac_FULL(4144,5256) - JVS(21282) = -B(7427) -! JVS(21283) = Jac_FULL(4144,5258) - JVS(21283) = 0 -! JVS(21284) = Jac_FULL(4145,224) - JVS(21284) = B(14516) -! JVS(21285) = Jac_FULL(4145,4145) - JVS(21285) = -B(17145)-B(17147)-B(17149)-B(17151)-B(17153) -! JVS(21286) = Jac_FULL(4145,5175) - JVS(21286) = 0 -! JVS(21287) = Jac_FULL(4145,5252) - JVS(21287) = -B(17148) -! JVS(21288) = Jac_FULL(4145,5255) - JVS(21288) = -B(17146) -! JVS(21289) = Jac_FULL(4145,5256) - JVS(21289) = -B(17150) -! JVS(21290) = Jac_FULL(4145,5258) - JVS(21290) = 0 -! JVS(21291) = Jac_FULL(4146,4146) - JVS(21291) = -B(3500)-B(3502)-B(3504)-B(3506)-B(3508)-B(3509)-B(3510) -! JVS(21292) = Jac_FULL(4146,4600) - JVS(21292) = B(888) -! JVS(21293) = Jac_FULL(4146,5250) - JVS(21293) = B(889) -! JVS(21294) = Jac_FULL(4146,5252) - JVS(21294) = -B(3503)-B(3505) -! JVS(21295) = Jac_FULL(4146,5255) - JVS(21295) = -B(3501) -! JVS(21296) = Jac_FULL(4146,5256) - JVS(21296) = -B(3507) -! JVS(21297) = Jac_FULL(4147,2293) - JVS(21297) = B(22122) -! JVS(21298) = Jac_FULL(4147,2621) - JVS(21298) = 0 -! JVS(21299) = Jac_FULL(4147,4147) - JVS(21299) = -B(22736)-B(22738)-B(22740)-B(22742)-B(22743)-B(22744) -! JVS(21300) = Jac_FULL(4147,5104) - JVS(21300) = 0 -! JVS(21301) = Jac_FULL(4147,5250) - JVS(21301) = 0 -! JVS(21302) = Jac_FULL(4147,5252) - JVS(21302) = -B(22739) -! JVS(21303) = Jac_FULL(4147,5255) - JVS(21303) = -B(22737) -! JVS(21304) = Jac_FULL(4147,5256) - JVS(21304) = -B(22741) -! JVS(21305) = Jac_FULL(4148,419) - JVS(21305) = B(3529) -! JVS(21306) = Jac_FULL(4148,4148) - JVS(21306) = -B(7413)-B(7415)-B(7417)-B(7419)-B(7420)-B(7421) -! JVS(21307) = Jac_FULL(4148,4605) - JVS(21307) = 0 -! JVS(21308) = Jac_FULL(4148,5252) - JVS(21308) = -B(7416) -! JVS(21309) = Jac_FULL(4148,5255) - JVS(21309) = -B(7414) -! JVS(21310) = Jac_FULL(4148,5256) - JVS(21310) = -B(7418) -! JVS(21311) = Jac_FULL(4148,5258) - JVS(21311) = 0 -! JVS(21312) = Jac_FULL(4149,877) - JVS(21312) = B(18572) -! JVS(21313) = Jac_FULL(4149,4149) - JVS(21313) = -B(16259)-B(16261)-B(16263)-B(16265) -! JVS(21314) = Jac_FULL(4149,5031) - JVS(21314) = B(13248) -! JVS(21315) = Jac_FULL(4149,5250) - JVS(21315) = B(13249)+B(18573) -! JVS(21316) = Jac_FULL(4149,5252) - JVS(21316) = -B(16262) -! JVS(21317) = Jac_FULL(4149,5255) - JVS(21317) = -B(16260) -! JVS(21318) = Jac_FULL(4149,5256) - JVS(21318) = -B(16264) -! JVS(21319) = Jac_FULL(4150,182) - JVS(21319) = B(19254) -! JVS(21320) = Jac_FULL(4150,821) - JVS(21320) = B(19259) -! JVS(21321) = Jac_FULL(4150,1260) - JVS(21321) = 0 -! JVS(21322) = Jac_FULL(4150,2458) - JVS(21322) = 0 -! JVS(21323) = Jac_FULL(4150,4150) - JVS(21323) = -B(20814)-B(20816)-B(20818)-B(20820)-B(20821)-B(20822) -! JVS(21324) = Jac_FULL(4150,5196) - JVS(21324) = 0 -! JVS(21325) = Jac_FULL(4150,5250) - JVS(21325) = 0 -! JVS(21326) = Jac_FULL(4150,5252) - JVS(21326) = -B(20817) -! JVS(21327) = Jac_FULL(4150,5255) - JVS(21327) = -B(20815) -! JVS(21328) = Jac_FULL(4150,5256) - JVS(21328) = -B(20819) -! JVS(21329) = Jac_FULL(4151,1362) - JVS(21329) = B(7320) -! JVS(21330) = Jac_FULL(4151,3806) - JVS(21330) = B(3475) -! JVS(21331) = Jac_FULL(4151,4151) - JVS(21331) = -B(7326)-B(7328)-B(7330) -! JVS(21332) = Jac_FULL(4151,4600) - JVS(21332) = 0 -! JVS(21333) = Jac_FULL(4151,5250) - JVS(21333) = B(7321)-B(7329) -! JVS(21334) = Jac_FULL(4151,5252) - JVS(21334) = 0 -! JVS(21335) = Jac_FULL(4151,5255) - JVS(21335) = 0 -! JVS(21336) = Jac_FULL(4151,5256) - JVS(21336) = -B(7327) -! JVS(21337) = Jac_FULL(4152,119) - JVS(21337) = B(9984) -! JVS(21338) = Jac_FULL(4152,1033) - JVS(21338) = B(9981) -! JVS(21339) = Jac_FULL(4152,1567) - JVS(21339) = B(9967) -! JVS(21340) = Jac_FULL(4152,2624) - JVS(21340) = B(9963) -! JVS(21341) = Jac_FULL(4152,3503) - JVS(21341) = B(6260)+B(6262)+B(6264) -! JVS(21342) = Jac_FULL(4152,3665) - JVS(21342) = 0 -! JVS(21343) = Jac_FULL(4152,4152) - JVS(21343) = -B(9982)-B(9983) -! JVS(21344) = Jac_FULL(4152,5250) - JVS(21344) = B(9985) -! JVS(21345) = Jac_FULL(4152,5252) - JVS(21345) = B(6261) -! JVS(21346) = Jac_FULL(4152,5255) - JVS(21346) = 0 -! JVS(21347) = Jac_FULL(4152,5256) - JVS(21347) = B(6263) -! JVS(21348) = Jac_FULL(4153,2368) - JVS(21348) = B(18593) -! JVS(21349) = Jac_FULL(4153,2420) - JVS(21349) = B(13288) -! JVS(21350) = Jac_FULL(4153,4152) - JVS(21350) = 0 -! JVS(21351) = Jac_FULL(4153,4153) - JVS(21351) = -B(16277)-B(16279)-B(16281)-B(16283) -! JVS(21352) = Jac_FULL(4153,5250) - JVS(21352) = B(18594) -! JVS(21353) = Jac_FULL(4153,5252) - JVS(21353) = -B(16280) -! JVS(21354) = Jac_FULL(4153,5255) - JVS(21354) = -B(16278) -! JVS(21355) = Jac_FULL(4153,5256) - JVS(21355) = B(13289)-B(16282) -! JVS(21356) = Jac_FULL(4154,107) - JVS(21356) = B(18600) -! JVS(21357) = Jac_FULL(4154,373) - JVS(21357) = B(18601) -! JVS(21358) = Jac_FULL(4154,459) - JVS(21358) = 0 -! JVS(21359) = Jac_FULL(4154,2064) - JVS(21359) = B(21479) -! JVS(21360) = Jac_FULL(4154,3019) - JVS(21360) = B(21484) -! JVS(21361) = Jac_FULL(4154,3770) - JVS(21361) = 0 -! JVS(21362) = Jac_FULL(4154,4152) - JVS(21362) = 0 -! JVS(21363) = Jac_FULL(4154,4154) - JVS(21363) = -B(20224)-B(20226)-B(20228)-B(20230)-B(20232)-B(20234) -! JVS(21364) = Jac_FULL(4154,5250) - JVS(21364) = B(18602)+B(21480) -! JVS(21365) = Jac_FULL(4154,5252) - JVS(21365) = -B(20229) -! JVS(21366) = Jac_FULL(4154,5253) - JVS(21366) = -B(20231) -! JVS(21367) = Jac_FULL(4154,5255) - JVS(21367) = -B(20225)-B(20227) -! JVS(21368) = Jac_FULL(4154,5256) - JVS(21368) = -B(20233) -! JVS(21369) = Jac_FULL(4155,976) - JVS(21369) = B(5089) -! JVS(21370) = Jac_FULL(4155,3002) - JVS(21370) = B(5094) -! JVS(21371) = Jac_FULL(4155,4155) - JVS(21371) = -B(5095)-B(5097)-B(5099) -! JVS(21372) = Jac_FULL(4155,4879) - JVS(21372) = B(2239) -! JVS(21373) = Jac_FULL(4155,5250) - JVS(21373) = B(5090)-B(5098) -! JVS(21374) = Jac_FULL(4155,5252) - JVS(21374) = 0 -! JVS(21375) = Jac_FULL(4155,5255) - JVS(21375) = 0 -! JVS(21376) = Jac_FULL(4155,5256) - JVS(21376) = -B(5096) -! JVS(21377) = Jac_FULL(4156,4156) - JVS(21377) = -B(4331)-B(4333)-B(4335)-B(4336) -! JVS(21378) = Jac_FULL(4156,4922) - JVS(21378) = B(1570) -! JVS(21379) = Jac_FULL(4156,4923) - JVS(21379) = B(1561) -! JVS(21380) = Jac_FULL(4156,5250) - JVS(21380) = -B(4334) -! JVS(21381) = Jac_FULL(4156,5256) - JVS(21381) = -B(4332) -! JVS(21382) = Jac_FULL(4157,169) - JVS(21382) = B(22830) -! JVS(21383) = Jac_FULL(4157,935) - JVS(21383) = 0 -! JVS(21384) = Jac_FULL(4157,1263) - JVS(21384) = B(23553) -! JVS(21385) = Jac_FULL(4157,3694) - JVS(21385) = 0 -! JVS(21386) = Jac_FULL(4157,3858) - JVS(21386) = 0 -! JVS(21387) = Jac_FULL(4157,4157) - JVS(21387) = -B(23253)-B(23255)-B(23257)-B(23259)-B(23261)-B(23262) -! JVS(21388) = Jac_FULL(4157,5021) - JVS(21388) = 0 -! JVS(21389) = Jac_FULL(4157,5250) - JVS(21389) = B(23554) -! JVS(21390) = Jac_FULL(4157,5252) - JVS(21390) = -B(23256)-B(23258) -! JVS(21391) = Jac_FULL(4157,5255) - JVS(21391) = -B(23254) -! JVS(21392) = Jac_FULL(4157,5256) - JVS(21392) = -B(23260) -! JVS(21393) = Jac_FULL(4158,1935) - JVS(21393) = B(14198) -! JVS(21394) = Jac_FULL(4158,3066) - JVS(21394) = B(7229) -! JVS(21395) = Jac_FULL(4158,4158) - JVS(21395) = -B(11012)-B(11014)-B(11016)-B(11018)-B(11019)-B(11020) -! JVS(21396) = Jac_FULL(4158,5081) - JVS(21396) = 0 -! JVS(21397) = Jac_FULL(4158,5250) - JVS(21397) = B(14199) -! JVS(21398) = Jac_FULL(4158,5252) - JVS(21398) = -B(11015) -! JVS(21399) = Jac_FULL(4158,5255) - JVS(21399) = -B(11013) -! JVS(21400) = Jac_FULL(4158,5256) - JVS(21400) = -B(11017) -! JVS(21401) = Jac_FULL(4159,4159) - JVS(21401) = -B(10364)-B(10366)-B(10368)-B(10370)-B(10372)-B(10373)-B(10374) -! JVS(21402) = Jac_FULL(4159,5049) - JVS(21402) = B(6663) -! JVS(21403) = Jac_FULL(4159,5250) - JVS(21403) = B(6664) -! JVS(21404) = Jac_FULL(4159,5252) - JVS(21404) = -B(10367)-B(10369) -! JVS(21405) = Jac_FULL(4159,5255) - JVS(21405) = -B(10365) -! JVS(21406) = Jac_FULL(4159,5256) - JVS(21406) = -B(10371) -! JVS(21407) = Jac_FULL(4160,2363) - JVS(21407) = B(5042) -! JVS(21408) = Jac_FULL(4160,3575) - JVS(21408) = B(5047) -! JVS(21409) = Jac_FULL(4160,4160) - JVS(21409) = -B(5049)-B(5051)-B(5053) -! JVS(21410) = Jac_FULL(4160,4881) - JVS(21410) = B(2194) -! JVS(21411) = Jac_FULL(4160,5250) - JVS(21411) = B(5043)-B(5052) -! JVS(21412) = Jac_FULL(4160,5252) - JVS(21412) = 0 -! JVS(21413) = Jac_FULL(4160,5255) - JVS(21413) = 0 -! JVS(21414) = Jac_FULL(4160,5256) - JVS(21414) = -B(5050) -! JVS(21415) = Jac_FULL(4161,1897) - JVS(21415) = B(3949) -! JVS(21416) = Jac_FULL(4161,2118) - JVS(21416) = B(148) -! JVS(21417) = Jac_FULL(4161,4161) - JVS(21417) = -B(1181)-B(1183)-B(1185)-B(1187)-B(1189)-B(1190)-B(1191) -! JVS(21418) = Jac_FULL(4161,5032) - JVS(21418) = 0 -! JVS(21419) = Jac_FULL(4161,5250) - JVS(21419) = B(149)+B(3950) -! JVS(21420) = Jac_FULL(4161,5252) - JVS(21420) = -B(1184)-B(1186) -! JVS(21421) = Jac_FULL(4161,5255) - JVS(21421) = -B(1182) -! JVS(21422) = Jac_FULL(4161,5256) - JVS(21422) = -B(1188) -! JVS(21423) = Jac_FULL(4162,211) - JVS(21423) = B(22074) -! JVS(21424) = Jac_FULL(4162,1331) - JVS(21424) = 0 -! JVS(21425) = Jac_FULL(4162,2195) - JVS(21425) = 0 -! JVS(21426) = Jac_FULL(4162,4162) - JVS(21426) = -B(22688)-B(22690)-B(22692)-B(22694)-B(22696)-B(22697)-B(22698) -! JVS(21427) = Jac_FULL(4162,4748) - JVS(21427) = 0 -! JVS(21428) = Jac_FULL(4162,5250) - JVS(21428) = 0 -! JVS(21429) = Jac_FULL(4162,5252) - JVS(21429) = -B(22691)-B(22693) -! JVS(21430) = Jac_FULL(4162,5255) - JVS(21430) = -B(22689) -! JVS(21431) = Jac_FULL(4162,5256) - JVS(21431) = -B(22695) -! JVS(21432) = Jac_FULL(4163,1775) - JVS(21432) = B(12412) -! JVS(21433) = Jac_FULL(4163,1943) - JVS(21433) = B(18080) -! JVS(21434) = Jac_FULL(4163,4163) - JVS(21434) = -B(15492)-B(15494)-B(15496)-B(15498) -! JVS(21435) = Jac_FULL(4163,4603) - JVS(21435) = 0 -! JVS(21436) = Jac_FULL(4163,5250) - JVS(21436) = B(18081) -! JVS(21437) = Jac_FULL(4163,5252) - JVS(21437) = -B(15495) -! JVS(21438) = Jac_FULL(4163,5255) - JVS(21438) = -B(15493) -! JVS(21439) = Jac_FULL(4163,5256) - JVS(21439) = B(12413)-B(15497) -! JVS(21440) = Jac_FULL(4164,524) - JVS(21440) = B(12148) -! JVS(21441) = Jac_FULL(4164,1387) - JVS(21441) = B(12142) -! JVS(21442) = Jac_FULL(4164,2031) - JVS(21442) = B(12147) -! JVS(21443) = Jac_FULL(4164,2387) - JVS(21443) = B(12145) -! JVS(21444) = Jac_FULL(4164,3691) - JVS(21444) = B(8406) -! JVS(21445) = Jac_FULL(4164,4164) - JVS(21445) = -B(12150)-B(12151)-B(12153) -! JVS(21446) = Jac_FULL(4164,5065) - JVS(21446) = 0 -! JVS(21447) = Jac_FULL(4164,5250) - JVS(21447) = B(12143)+B(12146)+B(12149)-B(12152)-B(12154) -! JVS(21448) = Jac_FULL(4164,5252) - JVS(21448) = 0 -! JVS(21449) = Jac_FULL(4164,5255) - JVS(21449) = 0 -! JVS(21450) = Jac_FULL(4164,5256) - JVS(21450) = 0 -! JVS(21451) = Jac_FULL(4165,4165) - JVS(21451) = -B(12901)-B(12903)-B(12905)-B(12907)-B(12908)-B(12909) -! JVS(21452) = Jac_FULL(4165,5066) - JVS(21452) = B(9424) -! JVS(21453) = Jac_FULL(4165,5250) - JVS(21453) = B(9425) -! JVS(21454) = Jac_FULL(4165,5252) - JVS(21454) = -B(12904) -! JVS(21455) = Jac_FULL(4165,5255) - JVS(21455) = -B(12902) -! JVS(21456) = Jac_FULL(4165,5256) - JVS(21456) = -B(12906) -! JVS(21457) = Jac_FULL(4166,1390) - JVS(21457) = B(20756) -! JVS(21458) = Jac_FULL(4166,2722) - JVS(21458) = B(16974) -! JVS(21459) = Jac_FULL(4166,4166) - JVS(21459) = -B(19160)-B(19162)-B(19164)-B(19166)-B(19168)-B(19169) -! JVS(21460) = Jac_FULL(4166,4789) - JVS(21460) = 0 -! JVS(21461) = Jac_FULL(4166,5250) - JVS(21461) = B(20757) -! JVS(21462) = Jac_FULL(4166,5252) - JVS(21462) = -B(19163)-B(19165) -! JVS(21463) = Jac_FULL(4166,5255) - JVS(21463) = -B(19161) -! JVS(21464) = Jac_FULL(4166,5256) - JVS(21464) = -B(19167) -! JVS(21465) = Jac_FULL(4167,1159) - JVS(21465) = B(6529) -! JVS(21466) = Jac_FULL(4167,3169) - JVS(21466) = B(745) -! JVS(21467) = Jac_FULL(4167,4167) - JVS(21467) = -B(2968)-B(2970)-B(2972)-B(2974)-B(2976)-B(2977)-B(2978) -! JVS(21468) = Jac_FULL(4167,5250) - JVS(21468) = B(746)+B(6530) -! JVS(21469) = Jac_FULL(4167,5252) - JVS(21469) = -B(2971)-B(2973) -! JVS(21470) = Jac_FULL(4167,5255) - JVS(21470) = -B(2969) -! JVS(21471) = Jac_FULL(4167,5256) - JVS(21471) = -B(2975) -! JVS(21472) = Jac_FULL(4168,796) - JVS(21472) = B(6539)+B(6541) -! JVS(21473) = Jac_FULL(4168,2307) - JVS(21473) = B(13453) -! JVS(21474) = Jac_FULL(4168,2681) - JVS(21474) = B(13458) -! JVS(21475) = Jac_FULL(4168,4167) - JVS(21475) = 0 -! JVS(21476) = Jac_FULL(4168,4168) - JVS(21476) = -B(10237)-B(10239)-B(10241)-B(10243)-B(10245)-B(10247) -! JVS(21477) = Jac_FULL(4168,5250) - JVS(21477) = B(6540)+B(13454) -! JVS(21478) = Jac_FULL(4168,5252) - JVS(21478) = -B(10242) -! JVS(21479) = Jac_FULL(4168,5253) - JVS(21479) = -B(10244) -! JVS(21480) = Jac_FULL(4168,5255) - JVS(21480) = -B(10238)-B(10240) -! JVS(21481) = Jac_FULL(4168,5256) - JVS(21481) = -B(10246) -! JVS(21482) = Jac_FULL(4169,175) - JVS(21482) = B(7070) -! JVS(21483) = Jac_FULL(4169,2083) - JVS(21483) = 0 -! JVS(21484) = Jac_FULL(4169,2400) - JVS(21484) = 0 -! JVS(21485) = Jac_FULL(4169,2424) - JVS(21485) = B(14051) -! JVS(21486) = Jac_FULL(4169,4169) - JVS(21486) = -B(10855)-B(10857)-B(10859)-B(10861)-B(10862)-B(10863) -! JVS(21487) = Jac_FULL(4169,5161) - JVS(21487) = 0 -! JVS(21488) = Jac_FULL(4169,5250) - JVS(21488) = B(14052) -! JVS(21489) = Jac_FULL(4169,5252) - JVS(21489) = -B(10858) -! JVS(21490) = Jac_FULL(4169,5255) - JVS(21490) = -B(10856) -! JVS(21491) = Jac_FULL(4169,5256) - JVS(21491) = -B(10860) -! JVS(21492) = Jac_FULL(4170,1292) - JVS(21492) = B(14174) -! JVS(21493) = Jac_FULL(4170,1790) - JVS(21493) = B(7201) -! JVS(21494) = Jac_FULL(4170,3314) - JVS(21494) = 0 -! JVS(21495) = Jac_FULL(4170,4170) - JVS(21495) = -B(10982)-B(10984)-B(10986)-B(10988) -! JVS(21496) = Jac_FULL(4170,4594) - JVS(21496) = 0 -! JVS(21497) = Jac_FULL(4170,5250) - JVS(21497) = B(7202)+B(14175) -! JVS(21498) = Jac_FULL(4170,5252) - JVS(21498) = -B(10985) -! JVS(21499) = Jac_FULL(4170,5255) - JVS(21499) = -B(10983) -! JVS(21500) = Jac_FULL(4170,5256) - JVS(21500) = -B(10987) -! JVS(21501) = Jac_FULL(4171,1849) - JVS(21501) = B(4808) -! JVS(21502) = Jac_FULL(4171,4171) - JVS(21502) = -B(1986)-B(1988)-B(1990)-B(1992)-B(1993)-B(1994) -! JVS(21503) = Jac_FULL(4171,5124) - JVS(21503) = B(423) -! JVS(21504) = Jac_FULL(4171,5250) - JVS(21504) = B(4809) -! JVS(21505) = Jac_FULL(4171,5252) - JVS(21505) = -B(1989) -! JVS(21506) = Jac_FULL(4171,5255) - JVS(21506) = -B(1987) -! JVS(21507) = Jac_FULL(4171,5256) - JVS(21507) = B(424)-B(1991) -! JVS(21508) = Jac_FULL(4172,315) - JVS(21508) = B(21078) -! JVS(21509) = Jac_FULL(4172,1245) - JVS(21509) = 0 -! JVS(21510) = Jac_FULL(4172,2408) - JVS(21510) = 0 -! JVS(21511) = Jac_FULL(4172,4172) - JVS(21511) = -B(22099)-B(22101)-B(22103)-B(22105)-B(22107)-B(22108)-B(22109) -! JVS(21512) = Jac_FULL(4172,4764) - JVS(21512) = 0 -! JVS(21513) = Jac_FULL(4172,5250) - JVS(21513) = 0 -! JVS(21514) = Jac_FULL(4172,5252) - JVS(21514) = -B(22102)-B(22104) -! JVS(21515) = Jac_FULL(4172,5255) - JVS(21515) = -B(22100) -! JVS(21516) = Jac_FULL(4172,5256) - JVS(21516) = -B(22106) -! JVS(21517) = Jac_FULL(4173,1197) - JVS(21517) = B(16946) -! JVS(21518) = Jac_FULL(4173,3398) - JVS(21518) = B(11130) -! JVS(21519) = Jac_FULL(4173,3852) - JVS(21519) = 0 -! JVS(21520) = Jac_FULL(4173,4173) - JVS(21520) = -B(14340)-B(14342)-B(14344)-B(14346)-B(14348)-B(14349) -! JVS(21521) = Jac_FULL(4173,5215) - JVS(21521) = 0 -! JVS(21522) = Jac_FULL(4173,5250) - JVS(21522) = B(16947) -! JVS(21523) = Jac_FULL(4173,5252) - JVS(21523) = -B(14343)-B(14345) -! JVS(21524) = Jac_FULL(4173,5255) - JVS(21524) = -B(14341) -! JVS(21525) = Jac_FULL(4173,5256) - JVS(21525) = -B(14347) -! JVS(21526) = Jac_FULL(4174,2179) - JVS(21526) = B(4926) -! JVS(21527) = Jac_FULL(4174,3572) - JVS(21527) = B(4932) -! JVS(21528) = Jac_FULL(4174,4174) - JVS(21528) = -B(4933)-B(4935)-B(4937) -! JVS(21529) = Jac_FULL(4174,4972) - JVS(21529) = B(2098) -! JVS(21530) = Jac_FULL(4174,5250) - JVS(21530) = B(4927)-B(4936) -! JVS(21531) = Jac_FULL(4174,5252) - JVS(21531) = 0 -! JVS(21532) = Jac_FULL(4174,5255) - JVS(21532) = 0 -! JVS(21533) = Jac_FULL(4174,5256) - JVS(21533) = -B(4934) -! JVS(21534) = Jac_FULL(4175,2082) - JVS(21534) = B(22265) -! JVS(21535) = Jac_FULL(4175,2700) - JVS(21535) = B(22266) -! JVS(21536) = Jac_FULL(4175,3053) - JVS(21536) = B(20593) -! JVS(21537) = Jac_FULL(4175,3681) - JVS(21537) = B(20265) -! JVS(21538) = Jac_FULL(4175,3709) - JVS(21538) = B(20221) -! JVS(21539) = Jac_FULL(4175,4153) - JVS(21539) = 0 -! JVS(21540) = Jac_FULL(4175,4175) - JVS(21540) = -B(21464)-B(21466)-B(21467) -! JVS(21541) = Jac_FULL(4175,4535) - JVS(21541) = 0 -! JVS(21542) = Jac_FULL(4175,4631) - JVS(21542) = 0 -! JVS(21543) = Jac_FULL(4175,4731) - JVS(21543) = B(21470)+B(21472)+B(21476)+B(21478) -! JVS(21544) = Jac_FULL(4175,5250) - JVS(21544) = B(20222)+B(20266)+B(20594)-B(21465)+B(22267) -! JVS(21545) = Jac_FULL(4175,5252) - JVS(21545) = B(21473) -! JVS(21546) = Jac_FULL(4175,5253) - JVS(21546) = 0 -! JVS(21547) = Jac_FULL(4175,5255) - JVS(21547) = B(21471) -! JVS(21548) = Jac_FULL(4175,5256) - JVS(21548) = B(21477) -! JVS(21549) = Jac_FULL(4176,522) - JVS(21549) = B(14743) -! JVS(21550) = Jac_FULL(4176,4176) - JVS(21550) = -B(17330)-B(17332)-B(17334)-B(17336)-B(17337)-B(17338) -! JVS(21551) = Jac_FULL(4176,5207) - JVS(21551) = 0 -! JVS(21552) = Jac_FULL(4176,5252) - JVS(21552) = -B(17333) -! JVS(21553) = Jac_FULL(4176,5255) - JVS(21553) = -B(17331) -! JVS(21554) = Jac_FULL(4176,5256) - JVS(21554) = -B(17335) -! JVS(21555) = Jac_FULL(4176,5258) - JVS(21555) = 0 -! JVS(21556) = Jac_FULL(4177,54) - JVS(21556) = B(6206) -! JVS(21557) = Jac_FULL(4177,1535) - JVS(21557) = B(6196) -! JVS(21558) = Jac_FULL(4177,3445) - JVS(21558) = B(6199) -! JVS(21559) = Jac_FULL(4177,4074) - JVS(21559) = B(2816)+B(2818)+B(2820) -! JVS(21560) = Jac_FULL(4177,4177) - JVS(21560) = -B(6200)-B(6201)-B(6202)-B(6203)-B(6204)-B(6205) -! JVS(21561) = Jac_FULL(4177,5250) - JVS(21561) = B(6207) -! JVS(21562) = Jac_FULL(4177,5252) - JVS(21562) = B(2817) -! JVS(21563) = Jac_FULL(4177,5255) - JVS(21563) = 0 -! JVS(21564) = Jac_FULL(4177,5256) - JVS(21564) = B(2819) -! JVS(21565) = Jac_FULL(4178,2732) - JVS(21565) = B(10227) -! JVS(21566) = Jac_FULL(4178,3235) - JVS(21566) = 0 -! JVS(21567) = Jac_FULL(4178,3283) - JVS(21567) = B(10234) -! JVS(21568) = Jac_FULL(4178,3650) - JVS(21568) = 0 -! JVS(21569) = Jac_FULL(4178,3659) - JVS(21569) = 0 -! JVS(21570) = Jac_FULL(4178,4178) - JVS(21570) = -B(13447)-B(13449)-B(13451)-B(13452) -! JVS(21571) = Jac_FULL(4178,4946) - JVS(21571) = B(13375)+B(13386) -! JVS(21572) = Jac_FULL(4178,5250) - JVS(21572) = -B(13448)-B(13450) -! JVS(21573) = Jac_FULL(4178,5252) - JVS(21573) = 0 -! JVS(21574) = Jac_FULL(4178,5255) - JVS(21574) = B(13376) -! JVS(21575) = Jac_FULL(4178,5256) - JVS(21575) = 0 -! JVS(21576) = Jac_FULL(4179,295) - JVS(21576) = B(12130) -! JVS(21577) = Jac_FULL(4179,1349) - JVS(21577) = B(12124) -! JVS(21578) = Jac_FULL(4179,2060) - JVS(21578) = B(12129) -! JVS(21579) = Jac_FULL(4179,2206) - JVS(21579) = B(12127) -! JVS(21580) = Jac_FULL(4179,3690) - JVS(21580) = B(8388) -! JVS(21581) = Jac_FULL(4179,4179) - JVS(21581) = -B(12132)-B(12133)-B(12135) -! JVS(21582) = Jac_FULL(4179,5138) - JVS(21582) = 0 -! JVS(21583) = Jac_FULL(4179,5250) - JVS(21583) = B(12125)+B(12128)+B(12131)-B(12134)-B(12136) -! JVS(21584) = Jac_FULL(4179,5252) - JVS(21584) = 0 -! JVS(21585) = Jac_FULL(4179,5255) - JVS(21585) = 0 -! JVS(21586) = Jac_FULL(4179,5256) - JVS(21586) = 0 -! JVS(21587) = Jac_FULL(4180,3261) - JVS(21587) = B(18769) -! JVS(21588) = Jac_FULL(4180,4180) - JVS(21588) = -B(16539)-B(16541)-B(16543)-B(16545) -! JVS(21589) = Jac_FULL(4180,4805) - JVS(21589) = B(13681) -! JVS(21590) = Jac_FULL(4180,5250) - JVS(21590) = B(13682)+B(18770) -! JVS(21591) = Jac_FULL(4180,5252) - JVS(21591) = -B(16542) -! JVS(21592) = Jac_FULL(4180,5255) - JVS(21592) = -B(16540) -! JVS(21593) = Jac_FULL(4180,5256) - JVS(21593) = -B(16544) -! JVS(21594) = Jac_FULL(4181,801) - JVS(21594) = B(13366) -! JVS(21595) = Jac_FULL(4181,1228) - JVS(21595) = B(13211) -! JVS(21596) = Jac_FULL(4181,1735) - JVS(21596) = B(13369) -! JVS(21597) = Jac_FULL(4181,1797) - JVS(21597) = B(13370)+B(13372) -! JVS(21598) = Jac_FULL(4181,2690) - JVS(21598) = B(13365) -! JVS(21599) = Jac_FULL(4181,3232) - JVS(21599) = B(13216) -! JVS(21600) = Jac_FULL(4181,3412) - JVS(21600) = B(6430) -! JVS(21601) = Jac_FULL(4181,3645) - JVS(21601) = B(6102)+B(6104)+B(6107) -! JVS(21602) = Jac_FULL(4181,3819) - JVS(21602) = 0 -! JVS(21603) = Jac_FULL(4181,4070) - JVS(21603) = 0 -! JVS(21604) = Jac_FULL(4181,4181) - JVS(21604) = -B(9797)-B(9799)-B(9801)-B(9803)-B(9805)-B(9807)-B(9809)-B(9810) -! JVS(21605) = Jac_FULL(4181,5250) - JVS(21605) = B(6105)+B(13212)+B(13371) -! JVS(21606) = Jac_FULL(4181,5252) - JVS(21606) = -B(9804) -! JVS(21607) = Jac_FULL(4181,5253) - JVS(21607) = -B(9806) -! JVS(21608) = Jac_FULL(4181,5255) - JVS(21608) = -B(9798)-B(9800)-B(9802) -! JVS(21609) = Jac_FULL(4181,5256) - JVS(21609) = B(6103)-B(9808) -! JVS(21610) = Jac_FULL(4182,483) - JVS(21610) = B(16257) -! JVS(21611) = Jac_FULL(4182,1393) - JVS(21611) = B(20209) -! JVS(21612) = Jac_FULL(4182,3474) - JVS(21612) = 0 -! JVS(21613) = Jac_FULL(4182,4041) - JVS(21613) = 0 -! JVS(21614) = Jac_FULL(4182,4181) - JVS(21614) = 0 -! JVS(21615) = Jac_FULL(4182,4182) - JVS(21615) = -B(18565)-B(18567)-B(18569)-B(18571) -! JVS(21616) = Jac_FULL(4182,5250) - JVS(21616) = B(16258)+B(20210) -! JVS(21617) = Jac_FULL(4182,5252) - JVS(21617) = -B(18568) -! JVS(21618) = Jac_FULL(4182,5253) - JVS(21618) = 0 -! JVS(21619) = Jac_FULL(4182,5255) - JVS(21619) = -B(18566) -! JVS(21620) = Jac_FULL(4182,5256) - JVS(21620) = -B(18570) -! JVS(21621) = Jac_FULL(4183,439) - JVS(21621) = B(11422) -! JVS(21622) = Jac_FULL(4183,1128) - JVS(21622) = B(11412) -! JVS(21623) = Jac_FULL(4183,1612) - JVS(21623) = B(11411) -! JVS(21624) = Jac_FULL(4183,2108) - JVS(21624) = B(11415) -! JVS(21625) = Jac_FULL(4183,2170) - JVS(21625) = B(11405) -! JVS(21626) = Jac_FULL(4183,2587) - JVS(21626) = B(14544) -! JVS(21627) = Jac_FULL(4183,3043) - JVS(21627) = B(11404) -! JVS(21628) = Jac_FULL(4183,4183) - JVS(21628) = -B(11419)-B(11421) -! JVS(21629) = Jac_FULL(4183,4746) - JVS(21629) = 0 -! JVS(21630) = Jac_FULL(4183,5099) - JVS(21630) = 0 -! JVS(21631) = Jac_FULL(4183,5206) - JVS(21631) = B(7563) -! JVS(21632) = Jac_FULL(4183,5250) - JVS(21632) = B(11413)+B(11416)-B(11420)+B(11423)+B(14545) -! JVS(21633) = Jac_FULL(4183,5252) - JVS(21633) = 0 -! JVS(21634) = Jac_FULL(4183,5253) - JVS(21634) = 0 -! JVS(21635) = Jac_FULL(4183,5255) - JVS(21635) = 0 -! JVS(21636) = Jac_FULL(4183,5256) - JVS(21636) = 0 -! JVS(21637) = Jac_FULL(4184,952) - JVS(21637) = B(21529) -! JVS(21638) = Jac_FULL(4184,4052) - JVS(21638) = B(20299)+B(20301)+B(20303) -! JVS(21639) = Jac_FULL(4184,4184) - JVS(21639) = -B(21530) -! JVS(21640) = Jac_FULL(4184,5250) - JVS(21640) = 0 -! JVS(21641) = Jac_FULL(4184,5252) - JVS(21641) = B(20300) -! JVS(21642) = Jac_FULL(4184,5253) - JVS(21642) = 0 -! JVS(21643) = Jac_FULL(4184,5255) - JVS(21643) = 0 -! JVS(21644) = Jac_FULL(4184,5256) - JVS(21644) = B(20302) -! JVS(21645) = Jac_FULL(4185,1186) - JVS(21645) = B(7383) -! JVS(21646) = Jac_FULL(4185,4185) - JVS(21646) = -B(3490)-B(3492)-B(3494)-B(3496)-B(3498)-B(3499) -! JVS(21647) = Jac_FULL(4185,4600) - JVS(21647) = B(886) -! JVS(21648) = Jac_FULL(4185,5250) - JVS(21648) = B(887)+B(7384) -! JVS(21649) = Jac_FULL(4185,5252) - JVS(21649) = -B(3493)-B(3495) -! JVS(21650) = Jac_FULL(4185,5255) - JVS(21650) = -B(3491) -! JVS(21651) = Jac_FULL(4185,5256) - JVS(21651) = -B(3497) -! JVS(21652) = Jac_FULL(4186,920) - JVS(21652) = B(7389) -! JVS(21653) = Jac_FULL(4186,1297) - JVS(21653) = B(7387) -! JVS(21654) = Jac_FULL(4186,2343) - JVS(21654) = B(7318) -! JVS(21655) = Jac_FULL(4186,4097) - JVS(21655) = 0 -! JVS(21656) = Jac_FULL(4186,4146) - JVS(21656) = B(3510) -! JVS(21657) = Jac_FULL(4186,4185) - JVS(21657) = 0 -! JVS(21658) = Jac_FULL(4186,4186) - JVS(21658) = -B(7393)-B(7395)-B(7397) -! JVS(21659) = Jac_FULL(4186,4600) - JVS(21659) = 0 -! JVS(21660) = Jac_FULL(4186,5250) - JVS(21660) = B(7319)+B(7388)+B(7390)-B(7396) -! JVS(21661) = Jac_FULL(4186,5252) - JVS(21661) = 0 -! JVS(21662) = Jac_FULL(4186,5255) - JVS(21662) = 0 -! JVS(21663) = Jac_FULL(4186,5256) - JVS(21663) = -B(7394) -! JVS(21664) = Jac_FULL(4187,867) - JVS(21664) = B(12769) -! JVS(21665) = Jac_FULL(4187,2780) - JVS(21665) = B(12774) -! JVS(21666) = Jac_FULL(4187,3649) - JVS(21666) = B(5669)+B(5671) -! JVS(21667) = Jac_FULL(4187,4187) - JVS(21667) = -B(9250)-B(9252)-B(9254)-B(9256)-B(9258)-B(9260)-B(9262)-B(9263) -! JVS(21668) = Jac_FULL(4187,5250) - JVS(21668) = B(5672)+B(12770) -! JVS(21669) = Jac_FULL(4187,5252) - JVS(21669) = -B(9257) -! JVS(21670) = Jac_FULL(4187,5253) - JVS(21670) = -B(9259) -! JVS(21671) = Jac_FULL(4187,5255) - JVS(21671) = -B(9251)-B(9253)-B(9255) -! JVS(21672) = Jac_FULL(4187,5256) - JVS(21672) = B(5670)-B(9261) -! JVS(21673) = Jac_FULL(4188,1117) - JVS(21673) = B(19939) -! JVS(21674) = Jac_FULL(4188,2467) - JVS(21674) = B(15640) -! JVS(21675) = Jac_FULL(4188,3214) - JVS(21675) = 0 -! JVS(21676) = Jac_FULL(4188,4188) - JVS(21676) = -B(18148)-B(18150)-B(18152)-B(18154) -! JVS(21677) = Jac_FULL(4188,4669) - JVS(21677) = 0 -! JVS(21678) = Jac_FULL(4188,5250) - JVS(21678) = B(15641)+B(19940) -! JVS(21679) = Jac_FULL(4188,5252) - JVS(21679) = -B(18151) -! JVS(21680) = Jac_FULL(4188,5255) - JVS(21680) = -B(18149) -! JVS(21681) = Jac_FULL(4188,5256) - JVS(21681) = -B(18153) -! JVS(21682) = Jac_FULL(4189,450) - JVS(21682) = B(16876) -! JVS(21683) = Jac_FULL(4189,931) - JVS(21683) = 0 -! JVS(21684) = Jac_FULL(4189,1496) - JVS(21684) = B(20643) -! JVS(21685) = Jac_FULL(4189,2892) - JVS(21685) = 0 -! JVS(21686) = Jac_FULL(4189,4124) - JVS(21686) = 0 -! JVS(21687) = Jac_FULL(4189,4189) - JVS(21687) = -B(19066)-B(19068)-B(19070)-B(19072)-B(19074)-B(19075) -! JVS(21688) = Jac_FULL(4189,5213) - JVS(21688) = 0 -! JVS(21689) = Jac_FULL(4189,5250) - JVS(21689) = B(20644) -! JVS(21690) = Jac_FULL(4189,5252) - JVS(21690) = -B(19069)-B(19071) -! JVS(21691) = Jac_FULL(4189,5255) - JVS(21691) = -B(19067) -! JVS(21692) = Jac_FULL(4189,5256) - JVS(21692) = -B(19073) -! JVS(21693) = Jac_FULL(4190,1164) - JVS(21693) = B(21697) -! JVS(21694) = Jac_FULL(4190,3760) - JVS(21694) = B(20655)+B(20657)+B(20659) -! JVS(21695) = Jac_FULL(4190,3905) - JVS(21695) = 0 -! JVS(21696) = Jac_FULL(4190,4190) - JVS(21696) = -B(21698)-B(21699) -! JVS(21697) = Jac_FULL(4190,4925) - JVS(21697) = 0 -! JVS(21698) = Jac_FULL(4190,5250) - JVS(21698) = 0 -! JVS(21699) = Jac_FULL(4190,5252) - JVS(21699) = B(20656) -! JVS(21700) = Jac_FULL(4190,5255) - JVS(21700) = 0 -! JVS(21701) = Jac_FULL(4190,5256) - JVS(21701) = B(20658) -! JVS(21702) = Jac_FULL(4191,954) - JVS(21702) = B(20592) -! JVS(21703) = Jac_FULL(4191,1360) - JVS(21703) = B(21642) -! JVS(21704) = Jac_FULL(4191,4191) - JVS(21704) = -B(20583)-B(20585)-B(20587)-B(20589) -! JVS(21705) = Jac_FULL(4191,4631) - JVS(21705) = B(19008)+B(19012)+B(19016)+B(19018) -! JVS(21706) = Jac_FULL(4191,5250) - JVS(21706) = B(21643) -! JVS(21707) = Jac_FULL(4191,5252) - JVS(21707) = B(19013)-B(20586) -! JVS(21708) = Jac_FULL(4191,5255) - JVS(21708) = B(19009)-B(20584) -! JVS(21709) = Jac_FULL(4191,5256) - JVS(21709) = B(19017)-B(20588) -! JVS(21710) = Jac_FULL(4192,1459) - JVS(21710) = B(18557) -! JVS(21711) = Jac_FULL(4192,3142) - JVS(21711) = B(13195) -! JVS(21712) = Jac_FULL(4192,4192) - JVS(21712) = -B(16240)-B(16242)-B(16244)-B(16246) -! JVS(21713) = Jac_FULL(4192,4670) - JVS(21713) = 0 -! JVS(21714) = Jac_FULL(4192,5250) - JVS(21714) = B(18558) -! JVS(21715) = Jac_FULL(4192,5252) - JVS(21715) = -B(16243) -! JVS(21716) = Jac_FULL(4192,5253) - JVS(21716) = 0 -! JVS(21717) = Jac_FULL(4192,5255) - JVS(21717) = -B(16241) -! JVS(21718) = Jac_FULL(4192,5256) - JVS(21718) = B(13196)-B(16245) -! JVS(21719) = Jac_FULL(4193,1532) - JVS(21719) = B(18516) -! JVS(21720) = Jac_FULL(4193,3114) - JVS(21720) = B(13072) -! JVS(21721) = Jac_FULL(4193,4193) - JVS(21721) = -B(16153)-B(16155)-B(16157)-B(16159) -! JVS(21722) = Jac_FULL(4193,4639) - JVS(21722) = 0 -! JVS(21723) = Jac_FULL(4193,5250) - JVS(21723) = B(13073)+B(18517) -! JVS(21724) = Jac_FULL(4193,5252) - JVS(21724) = -B(16156) -! JVS(21725) = Jac_FULL(4193,5253) - JVS(21725) = 0 -! JVS(21726) = Jac_FULL(4193,5255) - JVS(21726) = -B(16154) -! JVS(21727) = Jac_FULL(4193,5256) - JVS(21727) = -B(16158) -! JVS(21728) = Jac_FULL(4194,1025) - JVS(21728) = B(20132) -! JVS(21729) = Jac_FULL(4194,3178) - JVS(21729) = B(16044) -! JVS(21730) = Jac_FULL(4194,4194) - JVS(21730) = -B(18431)-B(18433)-B(18435)-B(18437) -! JVS(21731) = Jac_FULL(4194,4790) - JVS(21731) = 0 -! JVS(21732) = Jac_FULL(4194,5250) - JVS(21732) = B(16045)+B(20133) -! JVS(21733) = Jac_FULL(4194,5252) - JVS(21733) = -B(18434) -! JVS(21734) = Jac_FULL(4194,5253) - JVS(21734) = 0 -! JVS(21735) = Jac_FULL(4194,5255) - JVS(21735) = -B(18432) -! JVS(21736) = Jac_FULL(4194,5256) - JVS(21736) = -B(18436) -! JVS(21737) = Jac_FULL(4195,979) - JVS(21737) = B(18072) -! JVS(21738) = Jac_FULL(4195,3092) - JVS(21738) = B(12401) -! JVS(21739) = Jac_FULL(4195,4195) - JVS(21739) = -B(15475)-B(15477)-B(15479)-B(15481) -! JVS(21740) = Jac_FULL(4195,4531) - JVS(21740) = 0 -! JVS(21741) = Jac_FULL(4195,5250) - JVS(21741) = B(18073) -! JVS(21742) = Jac_FULL(4195,5252) - JVS(21742) = -B(15478) -! JVS(21743) = Jac_FULL(4195,5253) - JVS(21743) = 0 -! JVS(21744) = Jac_FULL(4195,5255) - JVS(21744) = -B(15476) -! JVS(21745) = Jac_FULL(4195,5256) - JVS(21745) = B(12402)-B(15480) -! JVS(21746) = Jac_FULL(4196,191) - JVS(21746) = B(22705) -! JVS(21747) = Jac_FULL(4196,1413) - JVS(21747) = 0 -! JVS(21748) = Jac_FULL(4196,1648) - JVS(21748) = B(22706) -! JVS(21749) = Jac_FULL(4196,1649) - JVS(21749) = 0 -! JVS(21750) = Jac_FULL(4196,2829) - JVS(21750) = 0 -! JVS(21751) = Jac_FULL(4196,3722) - JVS(21751) = 0 -! JVS(21752) = Jac_FULL(4196,4196) - JVS(21752) = -B(23152)-B(23154)-B(23156)-B(23158)-B(23160)-B(23161)-B(23162) -! JVS(21753) = Jac_FULL(4196,4863) - JVS(21753) = 0 -! JVS(21754) = Jac_FULL(4196,5250) - JVS(21754) = B(22707) -! JVS(21755) = Jac_FULL(4196,5252) - JVS(21755) = -B(23155)-B(23157) -! JVS(21756) = Jac_FULL(4196,5253) - JVS(21756) = 0 -! JVS(21757) = Jac_FULL(4196,5255) - JVS(21757) = -B(23153) -! JVS(21758) = Jac_FULL(4196,5256) - JVS(21758) = -B(23159) -! JVS(21759) = Jac_FULL(4197,1047) - JVS(21759) = B(17101) -! JVS(21760) = Jac_FULL(4197,1087) - JVS(21760) = B(17096)+B(17098) -! JVS(21761) = Jac_FULL(4197,4197) - JVS(21761) = -B(17086)-B(17088)-B(17090)-B(17092)-B(17094)-B(17095) -! JVS(21762) = Jac_FULL(4197,4855) - JVS(21762) = B(14444)+B(14446)+B(14450)+B(14453) -! JVS(21763) = Jac_FULL(4197,5083) - JVS(21763) = B(14439) -! JVS(21764) = Jac_FULL(4197,5250) - JVS(21764) = B(17097) -! JVS(21765) = Jac_FULL(4197,5252) - JVS(21765) = B(14447)-B(17089)-B(17091) -! JVS(21766) = Jac_FULL(4197,5255) - JVS(21766) = B(14445)-B(17087) -! JVS(21767) = Jac_FULL(4197,5256) - JVS(21767) = B(14451)-B(17093) -! JVS(21768) = Jac_FULL(4198,1206) - JVS(21768) = B(13265) -! JVS(21769) = Jac_FULL(4198,1368) - JVS(21769) = B(13268)+B(13270) -! JVS(21770) = Jac_FULL(4198,4198) - JVS(21770) = -B(9916)-B(9918)-B(9920)-B(9922)-B(9924)-B(9926)-B(9928)-B(9929) -! JVS(21771) = Jac_FULL(4198,4576) - JVS(21771) = B(6222)+B(6224) -! JVS(21772) = Jac_FULL(4198,5250) - JVS(21772) = B(6225)+B(13266)+B(13269) -! JVS(21773) = Jac_FULL(4198,5252) - JVS(21773) = -B(9923) -! JVS(21774) = Jac_FULL(4198,5253) - JVS(21774) = -B(9925) -! JVS(21775) = Jac_FULL(4198,5255) - JVS(21775) = -B(9917)-B(9919)-B(9921) -! JVS(21776) = Jac_FULL(4198,5256) - JVS(21776) = B(6223)-B(9927) -! JVS(21777) = Jac_FULL(4199,2064) - JVS(21777) = B(21481) -! JVS(21778) = Jac_FULL(4199,2485) - JVS(21778) = B(15896) -! JVS(21779) = Jac_FULL(4199,2541) - JVS(21779) = B(21401) -! JVS(21780) = Jac_FULL(4199,2765) - JVS(21780) = B(21402) -! JVS(21781) = Jac_FULL(4199,3019) - JVS(21781) = B(21482) -! JVS(21782) = Jac_FULL(4199,4046) - JVS(21782) = B(20074)+B(20078)+B(20082)+B(20084) -! JVS(21783) = Jac_FULL(4199,4154) - JVS(21783) = B(20226)+B(20228)+B(20232)+B(20234) -! JVS(21784) = Jac_FULL(4199,4199) - JVS(21784) = -B(15893)-B(15895) -! JVS(21785) = Jac_FULL(4199,4877) - JVS(21785) = B(12809) -! JVS(21786) = Jac_FULL(4199,5250) - JVS(21786) = -B(15894)+B(15897)+B(21403)+B(21483) -! JVS(21787) = Jac_FULL(4199,5252) - JVS(21787) = B(20079)+B(20229) -! JVS(21788) = Jac_FULL(4199,5253) - JVS(21788) = 0 -! JVS(21789) = Jac_FULL(4199,5255) - JVS(21789) = B(20075)+B(20227) -! JVS(21790) = Jac_FULL(4199,5256) - JVS(21790) = B(20083)+B(20233) -! JVS(21791) = Jac_FULL(4200,1379) - JVS(21791) = B(18251) -! JVS(21792) = Jac_FULL(4200,3119) - JVS(21792) = B(12711) -! JVS(21793) = Jac_FULL(4200,4200) - JVS(21793) = -B(15774)-B(15776)-B(15778)-B(15780) -! JVS(21794) = Jac_FULL(4200,4487) - JVS(21794) = 0 -! JVS(21795) = Jac_FULL(4200,5250) - JVS(21795) = B(12712)+B(18252) -! JVS(21796) = Jac_FULL(4200,5252) - JVS(21796) = -B(15777) -! JVS(21797) = Jac_FULL(4200,5253) - JVS(21797) = 0 -! JVS(21798) = Jac_FULL(4200,5255) - JVS(21798) = -B(15775) -! JVS(21799) = Jac_FULL(4200,5256) - JVS(21799) = -B(15779) -! JVS(21800) = Jac_FULL(4201,293) - JVS(21800) = B(3424) -! JVS(21801) = Jac_FULL(4201,1007) - JVS(21801) = B(11060) -! JVS(21802) = Jac_FULL(4201,4201) - JVS(21802) = -B(7255)-B(7257)-B(7259)-B(7261)-B(7262) -! JVS(21803) = Jac_FULL(4201,4492) - JVS(21803) = 0 -! JVS(21804) = Jac_FULL(4201,5250) - JVS(21804) = B(11061) -! JVS(21805) = Jac_FULL(4201,5252) - JVS(21805) = -B(7258) -! JVS(21806) = Jac_FULL(4201,5255) - JVS(21806) = -B(7256) -! JVS(21807) = Jac_FULL(4201,5256) - JVS(21807) = -B(7260) -! JVS(21808) = Jac_FULL(4201,5258) - JVS(21808) = 0 -! JVS(21809) = Jac_FULL(4202,542) - JVS(21809) = B(18192) -! JVS(21810) = Jac_FULL(4202,2248) - JVS(21810) = B(21340) -! JVS(21811) = Jac_FULL(4202,2482) - JVS(21811) = 0 -! JVS(21812) = Jac_FULL(4202,2643) - JVS(21812) = B(21345) -! JVS(21813) = Jac_FULL(4202,4202) - JVS(21813) = -B(19965)-B(19967)-B(19969)-B(19971)-B(19973)-B(19975) -! JVS(21814) = Jac_FULL(4202,4558) - JVS(21814) = 0 -! JVS(21815) = Jac_FULL(4202,5250) - JVS(21815) = B(18193)+B(21341) -! JVS(21816) = Jac_FULL(4202,5252) - JVS(21816) = -B(19970) -! JVS(21817) = Jac_FULL(4202,5253) - JVS(21817) = -B(19972) -! JVS(21818) = Jac_FULL(4202,5255) - JVS(21818) = -B(19966)-B(19968) -! JVS(21819) = Jac_FULL(4202,5256) - JVS(21819) = -B(19974) -! JVS(21820) = Jac_FULL(4203,2899) - JVS(21820) = B(22269) -! JVS(21821) = Jac_FULL(4203,3014) - JVS(21821) = B(22274) -! JVS(21822) = Jac_FULL(4203,3968) - JVS(21822) = B(20245) -! JVS(21823) = Jac_FULL(4203,4203) - JVS(21823) = -B(21485)-B(21487)-B(21489)-B(21491)-B(21493)-B(21495) -! JVS(21824) = Jac_FULL(4203,4799) - JVS(21824) = 0 -! JVS(21825) = Jac_FULL(4203,5250) - JVS(21825) = B(22270) -! JVS(21826) = Jac_FULL(4203,5252) - JVS(21826) = -B(21490) -! JVS(21827) = Jac_FULL(4203,5253) - JVS(21827) = -B(21492) -! JVS(21828) = Jac_FULL(4203,5255) - JVS(21828) = -B(21486)-B(21488) -! JVS(21829) = Jac_FULL(4203,5256) - JVS(21829) = -B(21494) -! JVS(21830) = Jac_FULL(4204,1278) - JVS(21830) = B(20045) -! JVS(21831) = Jac_FULL(4204,3189) - JVS(21831) = B(15803) -! JVS(21832) = Jac_FULL(4204,4204) - JVS(21832) = -B(18270)-B(18272)-B(18274)-B(18276) -! JVS(21833) = Jac_FULL(4204,4676) - JVS(21833) = 0 -! JVS(21834) = Jac_FULL(4204,5250) - JVS(21834) = B(15804)+B(20046) -! JVS(21835) = Jac_FULL(4204,5252) - JVS(21835) = -B(18273) -! JVS(21836) = Jac_FULL(4204,5253) - JVS(21836) = 0 -! JVS(21837) = Jac_FULL(4204,5255) - JVS(21837) = -B(18271) -! JVS(21838) = Jac_FULL(4204,5256) - JVS(21838) = -B(18275) -! JVS(21839) = Jac_FULL(4205,1504) - JVS(21839) = B(20102) -! JVS(21840) = Jac_FULL(4205,3187) - JVS(21840) = B(15942) -! JVS(21841) = Jac_FULL(4205,4205) - JVS(21841) = -B(18364)-B(18366)-B(18368)-B(18370) -! JVS(21842) = Jac_FULL(4205,4791) - JVS(21842) = 0 -! JVS(21843) = Jac_FULL(4205,5250) - JVS(21843) = B(15943)+B(20103) -! JVS(21844) = Jac_FULL(4205,5252) - JVS(21844) = -B(18367) -! JVS(21845) = Jac_FULL(4205,5253) - JVS(21845) = 0 -! JVS(21846) = Jac_FULL(4205,5255) - JVS(21846) = -B(18365) -! JVS(21847) = Jac_FULL(4205,5256) - JVS(21847) = -B(18369) -! JVS(21848) = Jac_FULL(4206,2208) - JVS(21848) = B(11493) -! JVS(21849) = Jac_FULL(4206,2620) - JVS(21849) = B(11498) -! JVS(21850) = Jac_FULL(4206,4206) - JVS(21850) = -B(7689)-B(7691)-B(7693)-B(7695)-B(7697)-B(7699) -! JVS(21851) = Jac_FULL(4206,5012) - JVS(21851) = B(3891)+B(3893) -! JVS(21852) = Jac_FULL(4206,5250) - JVS(21852) = B(3894)+B(11494) -! JVS(21853) = Jac_FULL(4206,5252) - JVS(21853) = -B(7694) -! JVS(21854) = Jac_FULL(4206,5253) - JVS(21854) = -B(7696) -! JVS(21855) = Jac_FULL(4206,5255) - JVS(21855) = -B(7690)-B(7692) -! JVS(21856) = Jac_FULL(4206,5256) - JVS(21856) = B(3892)-B(7698) -! JVS(21857) = Jac_FULL(4207,2251) - JVS(21857) = B(22762) -! JVS(21858) = Jac_FULL(4207,2800) - JVS(21858) = B(22764) -! JVS(21859) = Jac_FULL(4207,3938) - JVS(21859) = B(21142)+B(21144) -! JVS(21860) = Jac_FULL(4207,4207) - JVS(21860) = -B(22140)-B(22142)-B(22144)-B(22146)-B(22148)-B(22150) -! JVS(21861) = Jac_FULL(4207,4778) - JVS(21861) = 0 -! JVS(21862) = Jac_FULL(4207,5250) - JVS(21862) = B(21145)+B(22763) -! JVS(21863) = Jac_FULL(4207,5252) - JVS(21863) = -B(22145) -! JVS(21864) = Jac_FULL(4207,5253) - JVS(21864) = -B(22147) -! JVS(21865) = Jac_FULL(4207,5255) - JVS(21865) = -B(22141)-B(22143) -! JVS(21866) = Jac_FULL(4207,5256) - JVS(21866) = B(21143)-B(22149) -! JVS(21867) = Jac_FULL(4208,1184) - JVS(21867) = B(18724)+B(18726) -! JVS(21868) = Jac_FULL(4208,2105) - JVS(21868) = B(18721) -! JVS(21869) = Jac_FULL(4208,3933) - JVS(21869) = B(13640) -! JVS(21870) = Jac_FULL(4208,4208) - JVS(21870) = -B(16488)-B(16490)-B(16492)-B(16494)-B(16496)-B(16498) -! JVS(21871) = Jac_FULL(4208,4826) - JVS(21871) = 0 -! JVS(21872) = Jac_FULL(4208,5225) - JVS(21872) = 0 -! JVS(21873) = Jac_FULL(4208,5250) - JVS(21873) = B(13641)+B(18722)+B(18725) -! JVS(21874) = Jac_FULL(4208,5252) - JVS(21874) = -B(16493) -! JVS(21875) = Jac_FULL(4208,5253) - JVS(21875) = -B(16495) -! JVS(21876) = Jac_FULL(4208,5255) - JVS(21876) = -B(16489)-B(16491) -! JVS(21877) = Jac_FULL(4208,5256) - JVS(21877) = -B(16497) -! JVS(21878) = Jac_FULL(4209,2320) - JVS(21878) = B(18702) -! JVS(21879) = Jac_FULL(4209,2498) - JVS(21879) = B(18704) -! JVS(21880) = Jac_FULL(4209,4209) - JVS(21880) = -B(16462)-B(16464)-B(16466)-B(16468)-B(16470)-B(16472) -! JVS(21881) = Jac_FULL(4209,4851) - JVS(21881) = B(13554)+B(13556) -! JVS(21882) = Jac_FULL(4209,5250) - JVS(21882) = B(13557)+B(18703) -! JVS(21883) = Jac_FULL(4209,5252) - JVS(21883) = -B(16467) -! JVS(21884) = Jac_FULL(4209,5253) - JVS(21884) = -B(16469) -! JVS(21885) = Jac_FULL(4209,5255) - JVS(21885) = -B(16463)-B(16465) -! JVS(21886) = Jac_FULL(4209,5256) - JVS(21886) = B(13555)-B(16471) -! JVS(21887) = Jac_FULL(4210,962) - JVS(21887) = B(18605) -! JVS(21888) = Jac_FULL(4210,3127) - JVS(21888) = B(13292) -! JVS(21889) = Jac_FULL(4210,4210) - JVS(21889) = -B(16293)-B(16295)-B(16297)-B(16299) -! JVS(21890) = Jac_FULL(4210,4413) - JVS(21890) = 0 -! JVS(21891) = Jac_FULL(4210,5250) - JVS(21891) = B(18606) -! JVS(21892) = Jac_FULL(4210,5252) - JVS(21892) = -B(16296) -! JVS(21893) = Jac_FULL(4210,5253) - JVS(21893) = 0 -! JVS(21894) = Jac_FULL(4210,5255) - JVS(21894) = -B(16294) -! JVS(21895) = Jac_FULL(4210,5256) - JVS(21895) = B(13293)-B(16298) -! JVS(21896) = Jac_FULL(4211,908) - JVS(21896) = B(18969) -! JVS(21897) = Jac_FULL(4211,1870) - JVS(21897) = B(13952) -! JVS(21898) = Jac_FULL(4211,2405) - JVS(21898) = 0 -! JVS(21899) = Jac_FULL(4211,4211) - JVS(21899) = -B(16752)-B(16754)-B(16756)-B(16758) -! JVS(21900) = Jac_FULL(4211,4368) - JVS(21900) = 0 -! JVS(21901) = Jac_FULL(4211,4595) - JVS(21901) = 0 -! JVS(21902) = Jac_FULL(4211,5250) - JVS(21902) = B(13953)+B(18970) -! JVS(21903) = Jac_FULL(4211,5252) - JVS(21903) = -B(16755) -! JVS(21904) = Jac_FULL(4211,5255) - JVS(21904) = -B(16753) -! JVS(21905) = Jac_FULL(4211,5256) - JVS(21905) = -B(16757) -! JVS(21906) = Jac_FULL(4212,1051) - JVS(21906) = B(18512) -! JVS(21907) = Jac_FULL(4212,3114) - JVS(21907) = B(13070) -! JVS(21908) = Jac_FULL(4212,4212) - JVS(21908) = -B(16146)-B(16148)-B(16150)-B(16152) -! JVS(21909) = Jac_FULL(4212,4639) - JVS(21909) = 0 -! JVS(21910) = Jac_FULL(4212,5250) - JVS(21910) = B(18513) -! JVS(21911) = Jac_FULL(4212,5252) - JVS(21911) = -B(16149) -! JVS(21912) = Jac_FULL(4212,5253) - JVS(21912) = 0 -! JVS(21913) = Jac_FULL(4212,5255) - JVS(21913) = -B(16147) -! JVS(21914) = Jac_FULL(4212,5256) - JVS(21914) = B(13071)-B(16151) -! JVS(21915) = Jac_FULL(4213,529) - JVS(21915) = B(10442) -! JVS(21916) = Jac_FULL(4213,4213) - JVS(21916) = -B(13625)-B(13627)-B(13629)-B(13631)-B(13633) -! JVS(21917) = Jac_FULL(4213,5069) - JVS(21917) = 0 -! JVS(21918) = Jac_FULL(4213,5251) - JVS(21918) = -B(13626) -! JVS(21919) = Jac_FULL(4213,5252) - JVS(21919) = -B(13628) -! JVS(21920) = Jac_FULL(4213,5253) - JVS(21920) = -B(13630) -! JVS(21921) = Jac_FULL(4213,5254) - JVS(21921) = -B(13632) -! JVS(21922) = Jac_FULL(4213,5258) - JVS(21922) = 0 -! JVS(21923) = Jac_FULL(4214,204) - JVS(21923) = B(21455) -! JVS(21924) = Jac_FULL(4214,1335) - JVS(21924) = 0 -! JVS(21925) = Jac_FULL(4214,2159) - JVS(21925) = B(22796) -! JVS(21926) = Jac_FULL(4214,2608) - JVS(21926) = B(22801) -! JVS(21927) = Jac_FULL(4214,3746) - JVS(21927) = 0 -! JVS(21928) = Jac_FULL(4214,4214) - JVS(21928) = -B(22252)-B(22254)-B(22256)-B(22258)-B(22260)-B(22262) -! JVS(21929) = Jac_FULL(4214,4379) - JVS(21929) = 0 -! JVS(21930) = Jac_FULL(4214,5250) - JVS(21930) = B(22797) -! JVS(21931) = Jac_FULL(4214,5252) - JVS(21931) = -B(22257) -! JVS(21932) = Jac_FULL(4214,5253) - JVS(21932) = -B(22259) -! JVS(21933) = Jac_FULL(4214,5255) - JVS(21933) = -B(22253)-B(22255) -! JVS(21934) = Jac_FULL(4214,5256) - JVS(21934) = -B(22261) -! JVS(21935) = Jac_FULL(4215,2301) - JVS(21935) = B(12266) -! JVS(21936) = Jac_FULL(4215,3051) - JVS(21936) = B(12271) -! JVS(21937) = Jac_FULL(4215,4215) - JVS(21937) = -B(8585)-B(8587)-B(8589)-B(8591)-B(8593)-B(8595) -! JVS(21938) = Jac_FULL(4215,4961) - JVS(21938) = B(5070)+B(5072) -! JVS(21939) = Jac_FULL(4215,5250) - JVS(21939) = B(5073)+B(12267) -! JVS(21940) = Jac_FULL(4215,5252) - JVS(21940) = -B(8590) -! JVS(21941) = Jac_FULL(4215,5253) - JVS(21941) = -B(8592) -! JVS(21942) = Jac_FULL(4215,5255) - JVS(21942) = -B(8586)-B(8588) -! JVS(21943) = Jac_FULL(4215,5256) - JVS(21943) = B(5071)-B(8594) -! JVS(21944) = Jac_FULL(4216,178) - JVS(21944) = B(23063) -! JVS(21945) = Jac_FULL(4216,826) - JVS(21945) = B(23693) -! JVS(21946) = Jac_FULL(4216,872) - JVS(21946) = 0 -! JVS(21947) = Jac_FULL(4216,1972) - JVS(21947) = 0 -! JVS(21948) = Jac_FULL(4216,2773) - JVS(21948) = B(23064)+B(23066) -! JVS(21949) = Jac_FULL(4216,3313) - JVS(21949) = 0 -! JVS(21950) = Jac_FULL(4216,3698) - JVS(21950) = 0 -! JVS(21951) = Jac_FULL(4216,4216) - JVS(21951) = -B(23429)-B(23431)-B(23433)-B(23435)-B(23437)-B(23438) -! JVS(21952) = Jac_FULL(4216,4652) - JVS(21952) = 0 -! JVS(21953) = Jac_FULL(4216,5250) - JVS(21953) = B(23065)+B(23694) -! JVS(21954) = Jac_FULL(4216,5252) - JVS(21954) = -B(23432)-B(23434) -! JVS(21955) = Jac_FULL(4216,5253) - JVS(21955) = 0 -! JVS(21956) = Jac_FULL(4216,5255) - JVS(21956) = -B(23430) -! JVS(21957) = Jac_FULL(4216,5256) - JVS(21957) = -B(23436) -! JVS(21958) = Jac_FULL(4217,1322) - JVS(21958) = B(18125) -! JVS(21959) = Jac_FULL(4217,3167) - JVS(21959) = B(12432) -! JVS(21960) = Jac_FULL(4217,4217) - JVS(21960) = -B(15542)-B(15544)-B(15546)-B(15548) -! JVS(21961) = Jac_FULL(4217,4514) - JVS(21961) = 0 -! JVS(21962) = Jac_FULL(4217,5250) - JVS(21962) = B(12433)+B(18126) -! JVS(21963) = Jac_FULL(4217,5252) - JVS(21963) = -B(15545) -! JVS(21964) = Jac_FULL(4217,5253) - JVS(21964) = 0 -! JVS(21965) = Jac_FULL(4217,5255) - JVS(21965) = -B(15543) -! JVS(21966) = Jac_FULL(4217,5256) - JVS(21966) = -B(15547) -! JVS(21967) = Jac_FULL(4218,510) - JVS(21967) = B(18449) -! JVS(21968) = Jac_FULL(4218,1359) - JVS(21968) = 0 -! JVS(21969) = Jac_FULL(4218,2505) - JVS(21969) = B(21446) -! JVS(21970) = Jac_FULL(4218,2862) - JVS(21970) = B(21441) -! JVS(21971) = Jac_FULL(4218,3983) - JVS(21971) = 0 -! JVS(21972) = Jac_FULL(4218,4218) - JVS(21972) = -B(20139)-B(20141)-B(20143)-B(20145)-B(20147)-B(20149) -! JVS(21973) = Jac_FULL(4218,4743) - JVS(21973) = 0 -! JVS(21974) = Jac_FULL(4218,5250) - JVS(21974) = B(18450)+B(21442) -! JVS(21975) = Jac_FULL(4218,5252) - JVS(21975) = -B(20144) -! JVS(21976) = Jac_FULL(4218,5253) - JVS(21976) = -B(20146) -! JVS(21977) = Jac_FULL(4218,5255) - JVS(21977) = -B(20140)-B(20142) -! JVS(21978) = Jac_FULL(4218,5256) - JVS(21978) = -B(20148) -! JVS(21979) = Jac_FULL(4219,309) - JVS(21979) = B(14007) -! JVS(21980) = Jac_FULL(4219,1064) - JVS(21980) = B(14011) -! JVS(21981) = Jac_FULL(4219,1867) - JVS(21981) = B(6974) -! JVS(21982) = Jac_FULL(4219,2817) - JVS(21982) = 0 -! JVS(21983) = Jac_FULL(4219,3900) - JVS(21983) = B(6989) -! JVS(21984) = Jac_FULL(4219,4219) - JVS(21984) = -B(10768)-B(10770)-B(10772)-B(10774)-B(10776)-B(10778)-B(10779)-B(10780) -! JVS(21985) = Jac_FULL(4219,4609) - JVS(21985) = 0 -! JVS(21986) = Jac_FULL(4219,4611) - JVS(21986) = B(10811)+B(10813)+B(10817)+B(10820) -! JVS(21987) = Jac_FULL(4219,5250) - JVS(21987) = B(14008) -! JVS(21988) = Jac_FULL(4219,5252) - JVS(21988) = -B(10773)-B(10775)+B(10814) -! JVS(21989) = Jac_FULL(4219,5255) - JVS(21989) = -B(10769)-B(10771)+B(10812) -! JVS(21990) = Jac_FULL(4219,5256) - JVS(21990) = -B(10777)+B(10818) -! JVS(21991) = Jac_FULL(4220,76) - JVS(21991) = B(23252) -! JVS(21992) = Jac_FULL(4220,989) - JVS(21992) = 0 -! JVS(21993) = Jac_FULL(4220,2142) - JVS(21993) = B(23760) -! JVS(21994) = Jac_FULL(4220,2530) - JVS(21994) = B(23765) -! JVS(21995) = Jac_FULL(4220,3719) - JVS(21995) = 0 -! JVS(21996) = Jac_FULL(4220,4190) - JVS(21996) = 0 -! JVS(21997) = Jac_FULL(4220,4220) - JVS(21997) = -B(23542)-B(23544)-B(23546)-B(23548)-B(23550)-B(23552) -! JVS(21998) = Jac_FULL(4220,4925) - JVS(21998) = 0 -! JVS(21999) = Jac_FULL(4220,5250) - JVS(21999) = B(23761) -! JVS(22000) = Jac_FULL(4220,5252) - JVS(22000) = -B(23547) -! JVS(22001) = Jac_FULL(4220,5253) - JVS(22001) = -B(23549) -! JVS(22002) = Jac_FULL(4220,5255) - JVS(22002) = -B(23543)-B(23545) -! JVS(22003) = Jac_FULL(4220,5256) - JVS(22003) = -B(23551) -! JVS(22004) = Jac_FULL(4221,14) - JVS(22004) = B(18099) -! JVS(22005) = Jac_FULL(4221,455) - JVS(22005) = B(18100) -! JVS(22006) = Jac_FULL(4221,518) - JVS(22006) = 0 -! JVS(22007) = Jac_FULL(4221,2991) - JVS(22007) = B(21310) -! JVS(22008) = Jac_FULL(4221,3040) - JVS(22008) = B(21315) -! JVS(22009) = Jac_FULL(4221,3699) - JVS(22009) = 0 -! JVS(22010) = Jac_FULL(4221,4221) - JVS(22010) = -B(19907)-B(19909)-B(19911)-B(19913)-B(19915)-B(19917) -! JVS(22011) = Jac_FULL(4221,4488) - JVS(22011) = 0 -! JVS(22012) = Jac_FULL(4221,5250) - JVS(22012) = B(18101)+B(21311) -! JVS(22013) = Jac_FULL(4221,5252) - JVS(22013) = -B(19912) -! JVS(22014) = Jac_FULL(4221,5253) - JVS(22014) = -B(19914) -! JVS(22015) = Jac_FULL(4221,5255) - JVS(22015) = -B(19908)-B(19910) -! JVS(22016) = Jac_FULL(4221,5256) - JVS(22016) = -B(19916) -! JVS(22017) = Jac_FULL(4222,1208) - JVS(22017) = B(21630) -! JVS(22018) = Jac_FULL(4222,2517) - JVS(22018) = B(21635) -! JVS(22019) = Jac_FULL(4222,3972) - JVS(22019) = B(18973)+B(18975) -! JVS(22020) = Jac_FULL(4222,4222) - JVS(22020) = -B(20552)-B(20554)-B(20556)-B(20558)-B(20560)-B(20562)-B(20564)-B(20565) -! JVS(22021) = Jac_FULL(4222,4610) - JVS(22021) = 0 -! JVS(22022) = Jac_FULL(4222,5250) - JVS(22022) = B(18976)+B(21631) -! JVS(22023) = Jac_FULL(4222,5252) - JVS(22023) = -B(20559) -! JVS(22024) = Jac_FULL(4222,5253) - JVS(22024) = -B(20561) -! JVS(22025) = Jac_FULL(4222,5255) - JVS(22025) = -B(20553)-B(20555)-B(20557) -! JVS(22026) = Jac_FULL(4222,5256) - JVS(22026) = B(18974)-B(20563) -! JVS(22027) = Jac_FULL(4223,1121) - JVS(22027) = B(5176) -! JVS(22028) = Jac_FULL(4223,2067) - JVS(22028) = B(5168) -! JVS(22029) = Jac_FULL(4223,2133) - JVS(22029) = B(5183) -! JVS(22030) = Jac_FULL(4223,4223) - JVS(22030) = -B(5187)-B(5189) -! JVS(22031) = Jac_FULL(4223,4336) - JVS(22031) = B(3354) -! JVS(22032) = Jac_FULL(4223,4607) - JVS(22032) = 0 -! JVS(22033) = Jac_FULL(4223,4608) - JVS(22033) = B(2320) -! JVS(22034) = Jac_FULL(4223,4702) - JVS(22034) = 0 -! JVS(22035) = Jac_FULL(4223,5250) - JVS(22035) = B(5169)+B(5177)+B(5184)-B(5188) -! JVS(22036) = Jac_FULL(4223,5252) - JVS(22036) = 0 -! JVS(22037) = Jac_FULL(4223,5255) - JVS(22037) = 0 -! JVS(22038) = Jac_FULL(4224,399) - JVS(22038) = B(21712) -! JVS(22039) = Jac_FULL(4224,879) - JVS(22039) = B(21700) -! JVS(22040) = Jac_FULL(4224,2328) - JVS(22040) = B(21703) -! JVS(22041) = Jac_FULL(4224,2658) - JVS(22041) = B(20686) -! JVS(22042) = Jac_FULL(4224,3858) - JVS(22042) = B(20681) -! JVS(22043) = Jac_FULL(4224,4224) - JVS(22043) = -B(21707)-B(21709)-B(21711) -! JVS(22044) = Jac_FULL(4224,5021) - JVS(22044) = 0 -! JVS(22045) = Jac_FULL(4224,5250) - JVS(22045) = B(20687)+B(21701)+B(21704)-B(21710)+B(21713) -! JVS(22046) = Jac_FULL(4224,5252) - JVS(22046) = 0 -! JVS(22047) = Jac_FULL(4224,5253) - JVS(22047) = 0 -! JVS(22048) = Jac_FULL(4224,5255) - JVS(22048) = 0 -! JVS(22049) = Jac_FULL(4224,5256) - JVS(22049) = -B(21708) -! JVS(22050) = Jac_FULL(4225,1190) - JVS(22050) = B(18294) -! JVS(22051) = Jac_FULL(4225,3112) - JVS(22051) = B(12758) -! JVS(22052) = Jac_FULL(4225,4225) - JVS(22052) = -B(15834)-B(15836)-B(15838)-B(15840) -! JVS(22053) = Jac_FULL(4225,4509) - JVS(22053) = 0 -! JVS(22054) = Jac_FULL(4225,5250) - JVS(22054) = B(12759)+B(18295) -! JVS(22055) = Jac_FULL(4225,5252) - JVS(22055) = -B(15837) -! JVS(22056) = Jac_FULL(4225,5253) - JVS(22056) = 0 -! JVS(22057) = Jac_FULL(4225,5255) - JVS(22057) = -B(15835) -! JVS(22058) = Jac_FULL(4225,5256) - JVS(22058) = -B(15839) -! JVS(22059) = Jac_FULL(4226,157) - JVS(22059) = B(23423) -! JVS(22060) = Jac_FULL(4226,1339) - JVS(22060) = 0 -! JVS(22061) = Jac_FULL(4226,1883) - JVS(22061) = 0 -! JVS(22062) = Jac_FULL(4226,2979) - JVS(22062) = B(23424)+B(23426) -! JVS(22063) = Jac_FULL(4226,3323) - JVS(22063) = 0 -! JVS(22064) = Jac_FULL(4226,3743) - JVS(22064) = 0 -! JVS(22065) = Jac_FULL(4226,4226) - JVS(22065) = -B(23684)-B(23686)-B(23688)-B(23690)-B(23691)-B(23692) -! JVS(22066) = Jac_FULL(4226,4681) - JVS(22066) = 0 -! JVS(22067) = Jac_FULL(4226,5250) - JVS(22067) = B(23425) -! JVS(22068) = Jac_FULL(4226,5252) - JVS(22068) = -B(23687) -! JVS(22069) = Jac_FULL(4226,5253) - JVS(22069) = 0 -! JVS(22070) = Jac_FULL(4226,5255) - JVS(22070) = -B(23685) -! JVS(22071) = Jac_FULL(4226,5256) - JVS(22071) = -B(23689) -! JVS(22072) = Jac_FULL(4227,2120) - JVS(22072) = B(20154) -! JVS(22073) = Jac_FULL(4227,2929) - JVS(22073) = B(20155) -! JVS(22074) = Jac_FULL(4227,4227) - JVS(22074) = -B(18472)-B(18474)-B(18476) -! JVS(22075) = Jac_FULL(4227,4424) - JVS(22075) = B(18461)+B(18465)+B(18469)+B(18471) -! JVS(22076) = Jac_FULL(4227,4815) - JVS(22076) = B(16094) -! JVS(22077) = Jac_FULL(4227,5250) - JVS(22077) = -B(18475)+B(20156) -! JVS(22078) = Jac_FULL(4227,5252) - JVS(22078) = B(18466) -! JVS(22079) = Jac_FULL(4227,5253) - JVS(22079) = 0 -! JVS(22080) = Jac_FULL(4227,5255) - JVS(22080) = B(18462) -! JVS(22081) = Jac_FULL(4227,5256) - JVS(22081) = B(18470)-B(18473) -! JVS(22082) = Jac_FULL(4228,2329) - JVS(22082) = B(20390) -! JVS(22083) = Jac_FULL(4228,3045) - JVS(22083) = B(20395) -! JVS(22084) = Jac_FULL(4228,3549) - JVS(22084) = B(16638) -! JVS(22085) = Jac_FULL(4228,4228) - JVS(22085) = -B(18817)-B(18819)-B(18821)-B(18823)-B(18825)-B(18827) -! JVS(22086) = Jac_FULL(4228,4711) - JVS(22086) = 0 -! JVS(22087) = Jac_FULL(4228,5022) - JVS(22087) = 0 -! JVS(22088) = Jac_FULL(4228,5250) - JVS(22088) = B(16639)+B(20391) -! JVS(22089) = Jac_FULL(4228,5252) - JVS(22089) = -B(18822) -! JVS(22090) = Jac_FULL(4228,5253) - JVS(22090) = -B(18824) -! JVS(22091) = Jac_FULL(4228,5255) - JVS(22091) = -B(18818)-B(18820) -! JVS(22092) = Jac_FULL(4228,5256) - JVS(22092) = -B(18826) -! JVS(22093) = Jac_FULL(4229,1816) - JVS(22093) = B(20384) -! JVS(22094) = Jac_FULL(4229,3042) - JVS(22094) = B(20389) -! JVS(22095) = Jac_FULL(4229,3449) - JVS(22095) = B(16621) -! JVS(22096) = Jac_FULL(4229,4229) - JVS(22096) = -B(18806)-B(18808)-B(18810)-B(18812)-B(18814)-B(18816) -! JVS(22097) = Jac_FULL(4229,4339) - JVS(22097) = 0 -! JVS(22098) = Jac_FULL(4229,5250) - JVS(22098) = B(16622)+B(20385) -! JVS(22099) = Jac_FULL(4229,5252) - JVS(22099) = -B(18811) -! JVS(22100) = Jac_FULL(4229,5253) - JVS(22100) = -B(18813) -! JVS(22101) = Jac_FULL(4229,5255) - JVS(22101) = -B(18807)-B(18809) -! JVS(22102) = Jac_FULL(4229,5256) - JVS(22102) = -B(18815) -! JVS(22103) = Jac_FULL(4230,2116) - JVS(22103) = B(21637) -! JVS(22104) = Jac_FULL(4230,2784) - JVS(22104) = B(21639) -! JVS(22105) = Jac_FULL(4230,3861) - JVS(22105) = B(19002)+B(19004) -! JVS(22106) = Jac_FULL(4230,4230) - JVS(22106) = -B(20572)-B(20574)-B(20576)-B(20578)-B(20580)-B(20582) -! JVS(22107) = Jac_FULL(4230,4348) - JVS(22107) = 0 -! JVS(22108) = Jac_FULL(4230,5250) - JVS(22108) = B(19005)+B(21638) -! JVS(22109) = Jac_FULL(4230,5252) - JVS(22109) = -B(20577) -! JVS(22110) = Jac_FULL(4230,5253) - JVS(22110) = -B(20579) -! JVS(22111) = Jac_FULL(4230,5255) - JVS(22111) = -B(20573)-B(20575) -! JVS(22112) = Jac_FULL(4230,5256) - JVS(22112) = B(19003)-B(20581) -! JVS(22113) = Jac_FULL(4231,1743) - JVS(22113) = B(13933) -! JVS(22114) = Jac_FULL(4231,2187) - JVS(22114) = B(13927) -! JVS(22115) = Jac_FULL(4231,2375) - JVS(22115) = B(13930) -! JVS(22116) = Jac_FULL(4231,2716) - JVS(22116) = B(13939) -! JVS(22117) = Jac_FULL(4231,3676) - JVS(22117) = B(10740) -! JVS(22118) = Jac_FULL(4231,4231) - JVS(22118) = -B(13934)-B(13936)-B(13938) -! JVS(22119) = Jac_FULL(4231,4610) - JVS(22119) = 0 -! JVS(22120) = Jac_FULL(4231,4616) - JVS(22120) = 0 -! JVS(22121) = Jac_FULL(4231,5250) - JVS(22121) = B(13928)+B(13931)-B(13937)+B(13940) -! JVS(22122) = Jac_FULL(4231,5252) - JVS(22122) = 0 -! JVS(22123) = Jac_FULL(4231,5255) - JVS(22123) = 0 -! JVS(22124) = Jac_FULL(4231,5256) - JVS(22124) = -B(13935) -! JVS(22125) = Jac_FULL(4232,1423) - JVS(22125) = B(20261) -! JVS(22126) = Jac_FULL(4232,3152) - JVS(22126) = B(16367) -! JVS(22127) = Jac_FULL(4232,4232) - JVS(22127) = -B(18655)-B(18657)-B(18659)-B(18661) -! JVS(22128) = Jac_FULL(4232,4663) - JVS(22128) = 0 -! JVS(22129) = Jac_FULL(4232,5250) - JVS(22129) = B(16368)+B(20262) -! JVS(22130) = Jac_FULL(4232,5252) - JVS(22130) = -B(18658) -! JVS(22131) = Jac_FULL(4232,5253) - JVS(22131) = 0 -! JVS(22132) = Jac_FULL(4232,5255) - JVS(22132) = -B(18656) -! JVS(22133) = Jac_FULL(4232,5256) - JVS(22133) = -B(18660) -! JVS(22134) = Jac_FULL(4233,2228) - JVS(22134) = B(20124) -! JVS(22135) = Jac_FULL(4233,2538) - JVS(22135) = B(20125) -! JVS(22136) = Jac_FULL(4233,4233) - JVS(22136) = -B(18405)-B(18407)-B(18409) -! JVS(22137) = Jac_FULL(4233,4502) - JVS(22137) = B(18396)+B(18398)+B(18402)+B(18404) -! JVS(22138) = Jac_FULL(4233,4775) - JVS(22138) = B(15994) -! JVS(22139) = Jac_FULL(4233,5250) - JVS(22139) = -B(18408)+B(20126) -! JVS(22140) = Jac_FULL(4233,5252) - JVS(22140) = B(18399) -! JVS(22141) = Jac_FULL(4233,5253) - JVS(22141) = 0 -! JVS(22142) = Jac_FULL(4233,5255) - JVS(22142) = B(18397) -! JVS(22143) = Jac_FULL(4233,5256) - JVS(22143) = B(18403)-B(18406) -! JVS(22144) = Jac_FULL(4234,414) - JVS(22144) = B(23718)+B(23720) -! JVS(22145) = Jac_FULL(4234,470) - JVS(22145) = B(23459) -! JVS(22146) = Jac_FULL(4234,1507) - JVS(22146) = B(23463) -! JVS(22147) = Jac_FULL(4234,4234) - JVS(22147) = -B(23464)-B(23466)-B(23468)-B(23470)-B(23471) -! JVS(22148) = Jac_FULL(4234,4839) - JVS(22148) = B(23092)+B(23094)+B(23098)+B(23101) -! JVS(22149) = Jac_FULL(4234,4978) - JVS(22149) = B(23522) -! JVS(22150) = Jac_FULL(4234,5250) - JVS(22150) = B(23460)+B(23719) -! JVS(22151) = Jac_FULL(4234,5252) - JVS(22151) = B(23095)-B(23467) -! JVS(22152) = Jac_FULL(4234,5255) - JVS(22152) = B(23093)-B(23465) -! JVS(22153) = Jac_FULL(4234,5256) - JVS(22153) = B(23099)-B(23469) -! JVS(22154) = Jac_FULL(4235,1826) - JVS(22154) = B(17808) -! JVS(22155) = Jac_FULL(4235,2723) - JVS(22155) = B(21189) -! JVS(22156) = Jac_FULL(4235,3126) - JVS(22156) = B(17795) -! JVS(22157) = Jac_FULL(4235,3528) - JVS(22157) = 0 -! JVS(22158) = Jac_FULL(4235,4235) - JVS(22158) = -B(19687)-B(19689)-B(19691)-B(19693) -! JVS(22159) = Jac_FULL(4235,4903) - JVS(22159) = 0 -! JVS(22160) = Jac_FULL(4235,4967) - JVS(22160) = 0 -! JVS(22161) = Jac_FULL(4235,5250) - JVS(22161) = B(17796)+B(17809)+B(21190) -! JVS(22162) = Jac_FULL(4235,5252) - JVS(22162) = -B(19690) -! JVS(22163) = Jac_FULL(4235,5255) - JVS(22163) = -B(19688) -! JVS(22164) = Jac_FULL(4235,5256) - JVS(22164) = -B(19692) -! JVS(22165) = Jac_FULL(4236,27) - JVS(22165) = B(17075) -! JVS(22166) = Jac_FULL(4236,2386) - JVS(22166) = B(20857) -! JVS(22167) = Jac_FULL(4236,4236) - JVS(22167) = -B(19292)-B(19294)-B(19296)-B(19298)-B(19299) -! JVS(22168) = Jac_FULL(4236,5083) - JVS(22168) = 0 -! JVS(22169) = Jac_FULL(4236,5250) - JVS(22169) = B(20858) -! JVS(22170) = Jac_FULL(4236,5252) - JVS(22170) = -B(19295) -! JVS(22171) = Jac_FULL(4236,5255) - JVS(22171) = -B(19293) -! JVS(22172) = Jac_FULL(4236,5256) - JVS(22172) = -B(19297) -! JVS(22173) = Jac_FULL(4236,5258) - JVS(22173) = 0 -! JVS(22174) = Jac_FULL(4237,1329) - JVS(22174) = B(18386) -! JVS(22175) = Jac_FULL(4237,3123) - JVS(22175) = B(12883) -! JVS(22176) = Jac_FULL(4237,4237) - JVS(22176) = -B(15967)-B(15969)-B(15971)-B(15973) -! JVS(22177) = Jac_FULL(4237,4466) - JVS(22177) = 0 -! JVS(22178) = Jac_FULL(4237,5250) - JVS(22178) = B(18387) -! JVS(22179) = Jac_FULL(4237,5252) - JVS(22179) = -B(15970) -! JVS(22180) = Jac_FULL(4237,5253) - JVS(22180) = 0 -! JVS(22181) = Jac_FULL(4237,5255) - JVS(22181) = -B(15968) -! JVS(22182) = Jac_FULL(4237,5256) - JVS(22182) = B(12884)-B(15972) -! JVS(22183) = Jac_FULL(4238,1198) - JVS(22183) = B(21275) -! JVS(22184) = Jac_FULL(4238,1398) - JVS(22184) = B(17981) -! JVS(22185) = Jac_FULL(4238,4164) - JVS(22185) = B(12150) -! JVS(22186) = Jac_FULL(4238,4238) - JVS(22186) = -B(15375)-B(15377)-B(15379)-B(15381) -! JVS(22187) = Jac_FULL(4238,4417) - JVS(22187) = B(19863)+B(19865)+B(19869)+B(19871) -! JVS(22188) = Jac_FULL(4238,5065) - JVS(22188) = 0 -! JVS(22189) = Jac_FULL(4238,5250) - JVS(22189) = B(17982) -! JVS(22190) = Jac_FULL(4238,5252) - JVS(22190) = -B(15378)+B(19866) -! JVS(22191) = Jac_FULL(4238,5255) - JVS(22191) = -B(15376)+B(19864) -! JVS(22192) = Jac_FULL(4238,5256) - JVS(22192) = -B(15380)+B(19870) -! JVS(22193) = Jac_FULL(4239,2483) - JVS(22193) = B(23846) -! JVS(22194) = Jac_FULL(4239,3049) - JVS(22194) = B(14017) -! JVS(22195) = Jac_FULL(4239,3480) - JVS(22195) = B(23840) -! JVS(22196) = Jac_FULL(4239,3615) - JVS(22196) = B(23842) -! JVS(22197) = Jac_FULL(4239,3682) - JVS(22197) = B(14021) -! JVS(22198) = Jac_FULL(4239,4239) - JVS(22198) = -B(14024)-B(14026)-B(14028) -! JVS(22199) = Jac_FULL(4239,4730) - JVS(22199) = B(10829) -! JVS(22200) = Jac_FULL(4239,4734) - JVS(22200) = 0 -! JVS(22201) = Jac_FULL(4239,4779) - JVS(22201) = 0 -! JVS(22202) = Jac_FULL(4239,5250) - JVS(22202) = B(14018)+B(14022)-B(14027) -! JVS(22203) = Jac_FULL(4239,5252) - JVS(22203) = 0 -! JVS(22204) = Jac_FULL(4239,5255) - JVS(22204) = 0 -! JVS(22205) = Jac_FULL(4239,5256) - JVS(22205) = -B(14025) -! JVS(22206) = Jac_FULL(4240,640) - JVS(22206) = B(3488) -! JVS(22207) = Jac_FULL(4240,4240) - JVS(22207) = -B(7363)-B(7365)-B(7367)-B(7369)-B(7370)-B(7371) -! JVS(22208) = Jac_FULL(4240,4600) - JVS(22208) = 0 -! JVS(22209) = Jac_FULL(4240,5215) - JVS(22209) = B(3482) -! JVS(22210) = Jac_FULL(4240,5250) - JVS(22210) = B(3483) -! JVS(22211) = Jac_FULL(4240,5252) - JVS(22211) = -B(7366) -! JVS(22212) = Jac_FULL(4240,5255) - JVS(22212) = -B(7364) -! JVS(22213) = Jac_FULL(4240,5256) - JVS(22213) = -B(7368) -! JVS(22214) = Jac_FULL(4240,5258) - JVS(22214) = 0 -! JVS(22215) = Jac_FULL(4241,120) - JVS(22215) = B(18179) -! JVS(22216) = Jac_FULL(4241,397) - JVS(22216) = B(18180) -! JVS(22217) = Jac_FULL(4241,398) - JVS(22217) = 0 -! JVS(22218) = Jac_FULL(4241,2055) - JVS(22218) = B(21334) -! JVS(22219) = Jac_FULL(4241,2683) - JVS(22219) = B(21339) -! JVS(22220) = Jac_FULL(4241,3697) - JVS(22220) = 0 -! JVS(22221) = Jac_FULL(4241,4241) - JVS(22221) = -B(19954)-B(19956)-B(19958)-B(19960)-B(19962)-B(19964) -! JVS(22222) = Jac_FULL(4241,4326) - JVS(22222) = 0 -! JVS(22223) = Jac_FULL(4241,5250) - JVS(22223) = B(18181)+B(21335) -! JVS(22224) = Jac_FULL(4241,5252) - JVS(22224) = -B(19959) -! JVS(22225) = Jac_FULL(4241,5253) - JVS(22225) = -B(19961) -! JVS(22226) = Jac_FULL(4241,5255) - JVS(22226) = -B(19955)-B(19957) -! JVS(22227) = Jac_FULL(4241,5256) - JVS(22227) = -B(19963) -! JVS(22228) = Jac_FULL(4242,20) - JVS(22228) = B(20873) -! JVS(22229) = Jac_FULL(4242,1887) - JVS(22229) = B(22524) -! JVS(22230) = Jac_FULL(4242,4242) - JVS(22230) = -B(21927)-B(21929)-B(21931)-B(21933)-B(21934) -! JVS(22231) = Jac_FULL(4242,5095) - JVS(22231) = 0 -! JVS(22232) = Jac_FULL(4242,5250) - JVS(22232) = B(22525) -! JVS(22233) = Jac_FULL(4242,5252) - JVS(22233) = -B(21930) -! JVS(22234) = Jac_FULL(4242,5255) - JVS(22234) = -B(21928) -! JVS(22235) = Jac_FULL(4242,5256) - JVS(22235) = -B(21932) -! JVS(22236) = Jac_FULL(4242,5258) - JVS(22236) = 0 -! JVS(22237) = Jac_FULL(4243,2319) - JVS(22237) = B(17402) -! JVS(22238) = Jac_FULL(4243,2678) - JVS(22238) = B(17404) -! JVS(22239) = Jac_FULL(4243,3935) - JVS(22239) = B(11483)+B(11485) -! JVS(22240) = Jac_FULL(4243,4243) - JVS(22240) = -B(14839)-B(14841)-B(14843)-B(14845)-B(14847)-B(14849) -! JVS(22241) = Jac_FULL(4243,4785) - JVS(22241) = 0 -! JVS(22242) = Jac_FULL(4243,5250) - JVS(22242) = B(11486)+B(17403) -! JVS(22243) = Jac_FULL(4243,5252) - JVS(22243) = -B(14844) -! JVS(22244) = Jac_FULL(4243,5253) - JVS(22244) = -B(14846) -! JVS(22245) = Jac_FULL(4243,5255) - JVS(22245) = -B(14840)-B(14842) -! JVS(22246) = Jac_FULL(4243,5256) - JVS(22246) = B(11484)-B(14848) -! JVS(22247) = Jac_FULL(4244,865) - JVS(22247) = B(14879) -! JVS(22248) = Jac_FULL(4244,929) - JVS(22248) = B(14863) -! JVS(22249) = Jac_FULL(4244,4244) - JVS(22249) = -B(11542)-B(11544)-B(11546)-B(11548) -! JVS(22250) = Jac_FULL(4244,4451) - JVS(22250) = B(11524)+B(11526)+B(11530)+B(11532) -! JVS(22251) = Jac_FULL(4244,4882) - JVS(22251) = B(7731) -! JVS(22252) = Jac_FULL(4244,5250) - JVS(22252) = B(14880) -! JVS(22253) = Jac_FULL(4244,5252) - JVS(22253) = B(11527)-B(11545) -! JVS(22254) = Jac_FULL(4244,5255) - JVS(22254) = B(11525)-B(11543) -! JVS(22255) = Jac_FULL(4244,5256) - JVS(22255) = B(11531)-B(11547) -! JVS(22256) = Jac_FULL(4245,972) - JVS(22256) = B(20239) -! JVS(22257) = Jac_FULL(4245,3190) - JVS(22257) = B(16312) -! JVS(22258) = Jac_FULL(4245,4245) - JVS(22258) = -B(18620)-B(18622)-B(18624)-B(18626) -! JVS(22259) = Jac_FULL(4245,4632) - JVS(22259) = 0 -! JVS(22260) = Jac_FULL(4245,5250) - JVS(22260) = B(16313)+B(20240) -! JVS(22261) = Jac_FULL(4245,5252) - JVS(22261) = -B(18623) -! JVS(22262) = Jac_FULL(4245,5253) - JVS(22262) = 0 -! JVS(22263) = Jac_FULL(4245,5255) - JVS(22263) = -B(18621) -! JVS(22264) = Jac_FULL(4245,5256) - JVS(22264) = -B(18625) -! JVS(22265) = Jac_FULL(4246,1253) - JVS(22265) = B(18327) -! JVS(22266) = Jac_FULL(4246,3162) - JVS(22266) = B(12789) -! JVS(22267) = Jac_FULL(4246,4246) - JVS(22267) = -B(15871)-B(15873)-B(15875)-B(15877) -! JVS(22268) = Jac_FULL(4246,4454) - JVS(22268) = 0 -! JVS(22269) = Jac_FULL(4246,5250) - JVS(22269) = B(18328) -! JVS(22270) = Jac_FULL(4246,5252) - JVS(22270) = -B(15874) -! JVS(22271) = Jac_FULL(4246,5253) - JVS(22271) = 0 -! JVS(22272) = Jac_FULL(4246,5255) - JVS(22272) = -B(15872) -! JVS(22273) = Jac_FULL(4246,5256) - JVS(22273) = B(12790)-B(15876) -! JVS(22274) = Jac_FULL(4247,790) - JVS(22274) = B(13831) -! JVS(22275) = Jac_FULL(4247,4247) - JVS(22275) = -B(16652)-B(16654)-B(16656)-B(16658)-B(16660) -! JVS(22276) = Jac_FULL(4247,4786) - JVS(22276) = 0 -! JVS(22277) = Jac_FULL(4247,5251) - JVS(22277) = -B(16653) -! JVS(22278) = Jac_FULL(4247,5252) - JVS(22278) = -B(16655) -! JVS(22279) = Jac_FULL(4247,5253) - JVS(22279) = -B(16657) -! JVS(22280) = Jac_FULL(4247,5254) - JVS(22280) = -B(16659) -! JVS(22281) = Jac_FULL(4247,5258) - JVS(22281) = 0 -! JVS(22282) = Jac_FULL(4248,532) - JVS(22282) = B(11479) -! JVS(22283) = Jac_FULL(4248,831) - JVS(22283) = B(11694) -! JVS(22284) = Jac_FULL(4248,1179) - JVS(22284) = B(11705) -! JVS(22285) = Jac_FULL(4248,1667) - JVS(22285) = B(11715) -! JVS(22286) = Jac_FULL(4248,2172) - JVS(22286) = B(11697) -! JVS(22287) = Jac_FULL(4248,2519) - JVS(22287) = 0 -! JVS(22288) = Jac_FULL(4248,2693) - JVS(22288) = 0 -! JVS(22289) = Jac_FULL(4248,2785) - JVS(22289) = 0 -! JVS(22290) = Jac_FULL(4248,3893) - JVS(22290) = 0 -! JVS(22291) = Jac_FULL(4248,3932) - JVS(22291) = B(7982) -! JVS(22292) = Jac_FULL(4248,4248) - JVS(22292) = -B(11700)-B(11701)-B(11703) -! JVS(22293) = Jac_FULL(4248,4785) - JVS(22293) = 0 -! JVS(22294) = Jac_FULL(4248,5163) - JVS(22294) = 0 -! JVS(22295) = Jac_FULL(4248,5192) - JVS(22295) = 0 -! JVS(22296) = Jac_FULL(4248,5250) - JVS(22296) = B(11695)+B(11698)-B(11702)-B(11704)+B(11706) -! JVS(22297) = Jac_FULL(4248,5252) - JVS(22297) = 0 -! JVS(22298) = Jac_FULL(4248,5255) - JVS(22298) = 0 -! JVS(22299) = Jac_FULL(4248,5256) - JVS(22299) = 0 -! JVS(22300) = Jac_FULL(4249,3517) - JVS(22300) = B(7533) -! JVS(22301) = Jac_FULL(4249,4249) - JVS(22301) = -B(11369)-B(11371)-B(11373)-B(11375)-B(11377)-B(11378) -! JVS(22302) = Jac_FULL(4249,4988) - JVS(22302) = 0 -! JVS(22303) = Jac_FULL(4249,5250) - JVS(22303) = B(7534) -! JVS(22304) = Jac_FULL(4249,5252) - JVS(22304) = -B(11372)-B(11374) -! JVS(22305) = Jac_FULL(4249,5255) - JVS(22305) = -B(11370) -! JVS(22306) = Jac_FULL(4249,5256) - JVS(22306) = -B(11376) -! JVS(22307) = Jac_FULL(4249,5258) - JVS(22307) = 0 -! JVS(22308) = Jac_FULL(4250,701) - JVS(22308) = B(18941) -! JVS(22309) = Jac_FULL(4250,4250) - JVS(22309) = -B(20532)-B(20534)-B(20536)-B(20538)-B(20540) -! JVS(22310) = Jac_FULL(4250,5024) - JVS(22310) = 0 -! JVS(22311) = Jac_FULL(4250,5251) - JVS(22311) = -B(20533) -! JVS(22312) = Jac_FULL(4250,5252) - JVS(22312) = -B(20535) -! JVS(22313) = Jac_FULL(4250,5253) - JVS(22313) = -B(20537) -! JVS(22314) = Jac_FULL(4250,5254) - JVS(22314) = -B(20539) -! JVS(22315) = Jac_FULL(4250,5258) - JVS(22315) = 0 -! JVS(22316) = Jac_FULL(4251,280) - JVS(22316) = B(17860) -! JVS(22317) = Jac_FULL(4251,1196) - JVS(22317) = B(17862) -! JVS(22318) = Jac_FULL(4251,2331) - JVS(22318) = B(17847) -! JVS(22319) = Jac_FULL(4251,3946) - JVS(22319) = B(12064) -! JVS(22320) = Jac_FULL(4251,4251) - JVS(22320) = -B(15252)-B(15254)-B(15256)-B(15258)-B(15260)-B(15261)-B(15262) -! JVS(22321) = Jac_FULL(4251,4878) - JVS(22321) = 0 -! JVS(22322) = Jac_FULL(4251,5088) - JVS(22322) = B(15267)+B(15269)+B(15273)+B(15276) -! JVS(22323) = Jac_FULL(4251,5250) - JVS(22323) = B(17848)+B(17861) -! JVS(22324) = Jac_FULL(4251,5252) - JVS(22324) = -B(15255)-B(15257)+B(15270) -! JVS(22325) = Jac_FULL(4251,5255) - JVS(22325) = -B(15253)+B(15268) -! JVS(22326) = Jac_FULL(4251,5256) - JVS(22326) = -B(15259)+B(15274) -! JVS(22327) = Jac_FULL(4252,1524) - JVS(22327) = B(18644) -! JVS(22328) = Jac_FULL(4252,3116) - JVS(22328) = B(13322) -! JVS(22329) = Jac_FULL(4252,4252) - JVS(22329) = -B(16343)-B(16345)-B(16347)-B(16349) -! JVS(22330) = Jac_FULL(4252,4402) - JVS(22330) = 0 -! JVS(22331) = Jac_FULL(4252,5250) - JVS(22331) = B(13323)+B(18645) -! JVS(22332) = Jac_FULL(4252,5252) - JVS(22332) = -B(16346) -! JVS(22333) = Jac_FULL(4252,5253) - JVS(22333) = 0 -! JVS(22334) = Jac_FULL(4252,5255) - JVS(22334) = -B(16344) -! JVS(22335) = Jac_FULL(4252,5256) - JVS(22335) = -B(16348) -! JVS(22336) = Jac_FULL(4253,33) - JVS(22336) = B(18245) -! JVS(22337) = Jac_FULL(4253,82) - JVS(22337) = B(18244) -! JVS(22338) = Jac_FULL(4253,963) - JVS(22338) = 0 -! JVS(22339) = Jac_FULL(4253,2443) - JVS(22339) = B(21365) -! JVS(22340) = Jac_FULL(4253,2863) - JVS(22340) = B(21370) -! JVS(22341) = Jac_FULL(4253,3714) - JVS(22341) = 0 -! JVS(22342) = Jac_FULL(4253,4253) - JVS(22342) = -B(20026)-B(20028)-B(20030)-B(20032)-B(20034)-B(20036) -! JVS(22343) = Jac_FULL(4253,4448) - JVS(22343) = 0 -! JVS(22344) = Jac_FULL(4253,5250) - JVS(22344) = B(18246)+B(21366) -! JVS(22345) = Jac_FULL(4253,5252) - JVS(22345) = -B(20031) -! JVS(22346) = Jac_FULL(4253,5253) - JVS(22346) = -B(20033) -! JVS(22347) = Jac_FULL(4253,5255) - JVS(22347) = -B(20027)-B(20029) -! JVS(22348) = Jac_FULL(4253,5256) - JVS(22348) = -B(20035) -! JVS(22349) = Jac_FULL(4254,1122) - JVS(22349) = B(17951) -! JVS(22350) = Jac_FULL(4254,1226) - JVS(22350) = B(21262) -! JVS(22351) = Jac_FULL(4254,4179) - JVS(22351) = B(12132) -! JVS(22352) = Jac_FULL(4254,4254) - JVS(22352) = -B(15347)-B(15349)-B(15351)-B(15353) -! JVS(22353) = Jac_FULL(4254,4450) - JVS(22353) = B(19833)+B(19835)+B(19839)+B(19841) -! JVS(22354) = Jac_FULL(4254,5138) - JVS(22354) = 0 -! JVS(22355) = Jac_FULL(4254,5250) - JVS(22355) = B(17952) -! JVS(22356) = Jac_FULL(4254,5252) - JVS(22356) = -B(15350)+B(19836) -! JVS(22357) = Jac_FULL(4254,5255) - JVS(22357) = -B(15348)+B(19834) -! JVS(22358) = Jac_FULL(4254,5256) - JVS(22358) = -B(15352)+B(19840) -! JVS(22359) = Jac_FULL(4255,1285) - JVS(22359) = B(10683) -! JVS(22360) = Jac_FULL(4255,2791) - JVS(22360) = B(10688) -! JVS(22361) = Jac_FULL(4255,4255) - JVS(22361) = -B(6863)-B(6865)-B(6867)-B(6869)-B(6871)-B(6873) -! JVS(22362) = Jac_FULL(4255,4794) - JVS(22362) = B(3143) -! JVS(22363) = Jac_FULL(4255,5250) - JVS(22363) = B(3144)+B(10684) -! JVS(22364) = Jac_FULL(4255,5252) - JVS(22364) = -B(6868) -! JVS(22365) = Jac_FULL(4255,5253) - JVS(22365) = -B(6870) -! JVS(22366) = Jac_FULL(4255,5255) - JVS(22366) = -B(6864)-B(6866) -! JVS(22367) = Jac_FULL(4255,5256) - JVS(22367) = -B(6872) -! JVS(22368) = Jac_FULL(4256,2101) - JVS(22368) = B(16590) -! JVS(22369) = Jac_FULL(4256,2590) - JVS(22369) = B(16594) -! JVS(22370) = Jac_FULL(4256,4256) - JVS(22370) = -B(13880)-B(13881) -! JVS(22371) = Jac_FULL(4256,4894) - JVS(22371) = B(10642) -! JVS(22372) = Jac_FULL(4256,4945) - JVS(22372) = B(13857) -! JVS(22373) = Jac_FULL(4256,5074) - JVS(22373) = 0 -! JVS(22374) = Jac_FULL(4256,5154) - JVS(22374) = B(13748) -! JVS(22375) = Jac_FULL(4256,5250) - JVS(22375) = B(13858)-B(13882)+B(16591)+B(16595) -! JVS(22376) = Jac_FULL(4256,5252) - JVS(22376) = B(10643) -! JVS(22377) = Jac_FULL(4256,5255) - JVS(22377) = 0 -! JVS(22378) = Jac_FULL(4257,919) - JVS(22378) = B(16930) -! JVS(22379) = Jac_FULL(4257,2143) - JVS(22379) = B(16934) -! JVS(22380) = Jac_FULL(4257,3307) - JVS(22380) = 0 -! JVS(22381) = Jac_FULL(4257,4257) - JVS(22381) = -B(14308)-B(14310)-B(14312)-B(14314) -! JVS(22382) = Jac_FULL(4257,4288) - JVS(22382) = B(14299)+B(14301)+B(14305)+B(14307) -! JVS(22383) = Jac_FULL(4257,4914) - JVS(22383) = B(11099) -! JVS(22384) = Jac_FULL(4257,5250) - JVS(22384) = B(16935) -! JVS(22385) = Jac_FULL(4257,5252) - JVS(22385) = B(14302)-B(14311) -! JVS(22386) = Jac_FULL(4257,5253) - JVS(22386) = 0 -! JVS(22387) = Jac_FULL(4257,5255) - JVS(22387) = B(14300)-B(14309) -! JVS(22388) = Jac_FULL(4257,5256) - JVS(22388) = B(14306)-B(14313) -! JVS(22389) = Jac_FULL(4258,522) - JVS(22389) = B(14742) -! JVS(22390) = Jac_FULL(4258,4258) - JVS(22390) = -B(17321)-B(17323)-B(17325)-B(17327)-B(17329) -! JVS(22391) = Jac_FULL(4258,5207) - JVS(22391) = 0 -! JVS(22392) = Jac_FULL(4258,5251) - JVS(22392) = -B(17322) -! JVS(22393) = Jac_FULL(4258,5252) - JVS(22393) = -B(17324) -! JVS(22394) = Jac_FULL(4258,5253) - JVS(22394) = -B(17326) -! JVS(22395) = Jac_FULL(4258,5254) - JVS(22395) = -B(17328) -! JVS(22396) = Jac_FULL(4258,5258) - JVS(22396) = 0 -! JVS(22397) = Jac_FULL(4259,2431) - JVS(22397) = B(13586) -! JVS(22398) = Jac_FULL(4259,2801) - JVS(22398) = B(13588) -! JVS(22399) = Jac_FULL(4259,4259) - JVS(22399) = -B(10399)-B(10401)-B(10403)-B(10405)-B(10407)-B(10409) -! JVS(22400) = Jac_FULL(4259,4373) - JVS(22400) = B(6690)+B(6692) -! JVS(22401) = Jac_FULL(4259,5250) - JVS(22401) = B(6693)+B(13587) -! JVS(22402) = Jac_FULL(4259,5252) - JVS(22402) = -B(10404) -! JVS(22403) = Jac_FULL(4259,5253) - JVS(22403) = -B(10406) -! JVS(22404) = Jac_FULL(4259,5255) - JVS(22404) = -B(10400)-B(10402) -! JVS(22405) = Jac_FULL(4259,5256) - JVS(22405) = B(6691)-B(10408) -! JVS(22406) = Jac_FULL(4260,2144) - JVS(22406) = B(17408) -! JVS(22407) = Jac_FULL(4260,2677) - JVS(22407) = B(17410) -! JVS(22408) = Jac_FULL(4260,3991) - JVS(22408) = B(11508)+B(11510) -! JVS(22409) = Jac_FULL(4260,4260) - JVS(22409) = -B(14850)-B(14852)-B(14854)-B(14856)-B(14858)-B(14860) -! JVS(22410) = Jac_FULL(4260,4359) - JVS(22410) = 0 -! JVS(22411) = Jac_FULL(4260,5250) - JVS(22411) = B(11511)+B(17409) -! JVS(22412) = Jac_FULL(4260,5252) - JVS(22412) = -B(14855) -! JVS(22413) = Jac_FULL(4260,5253) - JVS(22413) = -B(14857) -! JVS(22414) = Jac_FULL(4260,5255) - JVS(22414) = -B(14851)-B(14853) -! JVS(22415) = Jac_FULL(4260,5256) - JVS(22415) = B(11509)-B(14859) -! JVS(22416) = Jac_FULL(4261,2173) - JVS(22416) = B(11699) -! JVS(22417) = Jac_FULL(4261,2519) - JVS(22417) = B(11713) -! JVS(22418) = Jac_FULL(4261,2785) - JVS(22418) = B(11708) -! JVS(22419) = Jac_FULL(4261,3893) - JVS(22419) = B(7993) -! JVS(22420) = Jac_FULL(4261,3932) - JVS(22420) = 0 -! JVS(22421) = Jac_FULL(4261,4261) - JVS(22421) = -B(11716)-B(11717)-B(11719) -! JVS(22422) = Jac_FULL(4261,5163) - JVS(22422) = 0 -! JVS(22423) = Jac_FULL(4261,5192) - JVS(22423) = 0 -! JVS(22424) = Jac_FULL(4261,5250) - JVS(22424) = B(11709)+B(11714)-B(11720) -! JVS(22425) = Jac_FULL(4261,5252) - JVS(22425) = 0 -! JVS(22426) = Jac_FULL(4261,5255) - JVS(22426) = 0 -! JVS(22427) = Jac_FULL(4261,5256) - JVS(22427) = -B(11718) -! JVS(22428) = Jac_FULL(4262,825) - JVS(22428) = B(20067) -! JVS(22429) = Jac_FULL(4262,3181) - JVS(22429) = B(15846) -! JVS(22430) = Jac_FULL(4262,4262) - JVS(22430) = -B(18305)-B(18307)-B(18309)-B(18311) -! JVS(22431) = Jac_FULL(4262,4797) - JVS(22431) = 0 -! JVS(22432) = Jac_FULL(4262,5250) - JVS(22432) = B(15847)+B(20068) -! JVS(22433) = Jac_FULL(4262,5252) - JVS(22433) = -B(18308) -! JVS(22434) = Jac_FULL(4262,5253) - JVS(22434) = 0 -! JVS(22435) = Jac_FULL(4262,5255) - JVS(22435) = -B(18306) -! JVS(22436) = Jac_FULL(4262,5256) - JVS(22436) = -B(18310) -! JVS(22437) = Jac_FULL(4263,222) - JVS(22437) = B(11625) -! JVS(22438) = Jac_FULL(4263,909) - JVS(22438) = B(17461) -! JVS(22439) = Jac_FULL(4263,1436) - JVS(22439) = B(11629) -! JVS(22440) = Jac_FULL(4263,3612) - JVS(22440) = B(22760) -! JVS(22441) = Jac_FULL(4263,4263) - JVS(22441) = -B(14901)-B(14903)-B(14905)-B(14907) -! JVS(22442) = Jac_FULL(4263,4648) - JVS(22442) = 0 -! JVS(22443) = Jac_FULL(4263,4862) - JVS(22443) = 0 -! JVS(22444) = Jac_FULL(4263,5250) - JVS(22444) = B(11626)+B(17462) -! JVS(22445) = Jac_FULL(4263,5252) - JVS(22445) = -B(14904) -! JVS(22446) = Jac_FULL(4263,5255) - JVS(22446) = -B(14902) -! JVS(22447) = Jac_FULL(4263,5256) - JVS(22447) = -B(14906) -! JVS(22448) = Jac_FULL(4264,236) - JVS(22448) = B(11283) -! JVS(22449) = Jac_FULL(4264,4264) - JVS(22449) = -B(14553)-B(14555)-B(14557)-B(14559)-B(14561) -! JVS(22450) = Jac_FULL(4264,5251) - JVS(22450) = -B(14554) -! JVS(22451) = Jac_FULL(4264,5252) - JVS(22451) = -B(14556) -! JVS(22452) = Jac_FULL(4264,5253) - JVS(22452) = -B(14558) -! JVS(22453) = Jac_FULL(4264,5254) - JVS(22453) = -B(14560) -! JVS(22454) = Jac_FULL(4264,5257) - JVS(22454) = 0 -! JVS(22455) = Jac_FULL(4264,5258) - JVS(22455) = 0 -! JVS(22456) = Jac_FULL(4265,1096) - JVS(22456) = B(18121) -! JVS(22457) = Jac_FULL(4265,3167) - JVS(22457) = B(12430) -! JVS(22458) = Jac_FULL(4265,4265) - JVS(22458) = -B(15535)-B(15537)-B(15539)-B(15541) -! JVS(22459) = Jac_FULL(4265,4514) - JVS(22459) = 0 -! JVS(22460) = Jac_FULL(4265,5250) - JVS(22460) = B(18122) -! JVS(22461) = Jac_FULL(4265,5252) - JVS(22461) = -B(15538) -! JVS(22462) = Jac_FULL(4265,5253) - JVS(22462) = 0 -! JVS(22463) = Jac_FULL(4265,5255) - JVS(22463) = -B(15536) -! JVS(22464) = Jac_FULL(4265,5256) - JVS(22464) = B(12431)-B(15540) -! JVS(22465) = Jac_FULL(4266,1770) - JVS(22465) = B(14334) -! JVS(22466) = Jac_FULL(4266,2898) - JVS(22466) = B(14339) -! JVS(22467) = Jac_FULL(4266,4151) - JVS(22467) = B(7326)+B(7328) -! JVS(22468) = Jac_FULL(4266,4266) - JVS(22468) = -B(11113)-B(11115)-B(11117)-B(11119)-B(11121)-B(11123) -! JVS(22469) = Jac_FULL(4266,4600) - JVS(22469) = 0 -! JVS(22470) = Jac_FULL(4266,5250) - JVS(22470) = B(7329)+B(14335) -! JVS(22471) = Jac_FULL(4266,5252) - JVS(22471) = -B(11118) -! JVS(22472) = Jac_FULL(4266,5253) - JVS(22472) = -B(11120) -! JVS(22473) = Jac_FULL(4266,5255) - JVS(22473) = -B(11114)-B(11116) -! JVS(22474) = Jac_FULL(4266,5256) - JVS(22474) = B(7327)-B(11122) -! JVS(22475) = Jac_FULL(4267,2529) - JVS(22475) = B(22204) -! JVS(22476) = Jac_FULL(4267,2763) - JVS(22476) = B(22199) -! JVS(22477) = Jac_FULL(4267,3571) - JVS(22477) = B(19892) -! JVS(22478) = Jac_FULL(4267,4163) - JVS(22478) = 0 -! JVS(22479) = Jac_FULL(4267,4267) - JVS(22479) = -B(21282)-B(21284)-B(21286)-B(21288)-B(21290)-B(21292) -! JVS(22480) = Jac_FULL(4267,4603) - JVS(22480) = 0 -! JVS(22481) = Jac_FULL(4267,5250) - JVS(22481) = B(22200) -! JVS(22482) = Jac_FULL(4267,5252) - JVS(22482) = -B(21287) -! JVS(22483) = Jac_FULL(4267,5253) - JVS(22483) = -B(21289) -! JVS(22484) = Jac_FULL(4267,5255) - JVS(22484) = -B(21283)-B(21285) -! JVS(22485) = Jac_FULL(4267,5256) - JVS(22485) = -B(21291) -! JVS(22486) = Jac_FULL(4268,886) - JVS(22486) = B(21656) -! JVS(22487) = Jac_FULL(4268,1888) - JVS(22487) = B(21714) -! JVS(22488) = Jac_FULL(4268,4268) - JVS(22488) = -B(20689)-B(20691)-B(20693)-B(20695) -! JVS(22489) = Jac_FULL(4268,5086) - JVS(22489) = B(19109) -! JVS(22490) = Jac_FULL(4268,5111) - JVS(22490) = B(20610)+B(20614)+B(20618)+B(20620) -! JVS(22491) = Jac_FULL(4268,5250) - JVS(22491) = B(21715) -! JVS(22492) = Jac_FULL(4268,5252) - JVS(22492) = B(20615)-B(20692) -! JVS(22493) = Jac_FULL(4268,5255) - JVS(22493) = B(20611)-B(20690) -! JVS(22494) = Jac_FULL(4268,5256) - JVS(22494) = B(20619)-B(20694) -! JVS(22495) = Jac_FULL(4269,2402) - JVS(22495) = B(13886) -! JVS(22496) = Jac_FULL(4269,2576) - JVS(22496) = B(13891) -! JVS(22497) = Jac_FULL(4269,3228) - JVS(22497) = B(6840) -! JVS(22498) = Jac_FULL(4269,4269) - JVS(22498) = -B(10650)-B(10652)-B(10654)-B(10656)-B(10658)-B(10660) -! JVS(22499) = Jac_FULL(4269,5132) - JVS(22499) = 0 -! JVS(22500) = Jac_FULL(4269,5250) - JVS(22500) = B(6841)+B(13887) -! JVS(22501) = Jac_FULL(4269,5252) - JVS(22501) = -B(10655) -! JVS(22502) = Jac_FULL(4269,5253) - JVS(22502) = -B(10657) -! JVS(22503) = Jac_FULL(4269,5255) - JVS(22503) = -B(10651)-B(10653) -! JVS(22504) = Jac_FULL(4269,5256) - JVS(22504) = -B(10659) -! JVS(22505) = Jac_FULL(4270,1115) - JVS(22505) = B(17921) -! JVS(22506) = Jac_FULL(4270,1418) - JVS(22506) = B(21249) -! JVS(22507) = Jac_FULL(4270,4122) - JVS(22507) = B(12114) -! JVS(22508) = Jac_FULL(4270,4270) - JVS(22508) = -B(15319)-B(15321)-B(15323)-B(15325) -! JVS(22509) = Jac_FULL(4270,4443) - JVS(22509) = B(19806)+B(19808)+B(19812)+B(19814) -! JVS(22510) = Jac_FULL(4270,5107) - JVS(22510) = 0 -! JVS(22511) = Jac_FULL(4270,5250) - JVS(22511) = B(17922) -! JVS(22512) = Jac_FULL(4270,5252) - JVS(22512) = -B(15322)+B(19809) -! JVS(22513) = Jac_FULL(4270,5255) - JVS(22513) = -B(15320)+B(19807) -! JVS(22514) = Jac_FULL(4270,5256) - JVS(22514) = -B(15324)+B(19813) -! JVS(22515) = Jac_FULL(4271,1508) - JVS(22515) = B(19884) -! JVS(22516) = Jac_FULL(4271,3146) - JVS(22516) = B(15466) -! JVS(22517) = Jac_FULL(4271,4271) - JVS(22517) = -B(18062)-B(18064)-B(18066)-B(18068) -! JVS(22518) = Jac_FULL(4271,4859) - JVS(22518) = 0 -! JVS(22519) = Jac_FULL(4271,5250) - JVS(22519) = B(15467)+B(19885) -! JVS(22520) = Jac_FULL(4271,5252) - JVS(22520) = -B(18065) -! JVS(22521) = Jac_FULL(4271,5253) - JVS(22521) = 0 -! JVS(22522) = Jac_FULL(4271,5255) - JVS(22522) = -B(18063) -! JVS(22523) = Jac_FULL(4271,5256) - JVS(22523) = -B(18067) -! JVS(22524) = Jac_FULL(4272,3129) - JVS(22524) = B(725) -! JVS(22525) = Jac_FULL(4272,4272) - JVS(22525) = -B(2887)-B(2889)-B(2891)-B(2893)-B(2895)-B(2896) -! JVS(22526) = Jac_FULL(4272,5250) - JVS(22526) = B(726)-B(2892)-B(2894) -! JVS(22527) = Jac_FULL(4272,5256) - JVS(22527) = -B(2888) -! JVS(22528) = Jac_FULL(4272,5258) - JVS(22528) = -B(2890) -! JVS(22529) = Jac_FULL(4273,1105) - JVS(22529) = B(18076) -! JVS(22530) = Jac_FULL(4273,3092) - JVS(22530) = B(12403) -! JVS(22531) = Jac_FULL(4273,4273) - JVS(22531) = -B(15482)-B(15484)-B(15486)-B(15488) -! JVS(22532) = Jac_FULL(4273,4531) - JVS(22532) = 0 -! JVS(22533) = Jac_FULL(4273,5250) - JVS(22533) = B(12404)+B(18077) -! JVS(22534) = Jac_FULL(4273,5252) - JVS(22534) = -B(15485) -! JVS(22535) = Jac_FULL(4273,5253) - JVS(22535) = 0 -! JVS(22536) = Jac_FULL(4273,5255) - JVS(22536) = -B(15483) -! JVS(22537) = Jac_FULL(4273,5256) - JVS(22537) = -B(15487) -! JVS(22538) = Jac_FULL(4274,1759) - JVS(22538) = B(22159) -! JVS(22539) = Jac_FULL(4274,3124) - JVS(22539) = B(19660) -! JVS(22540) = Jac_FULL(4274,3537) - JVS(22540) = 0 -! JVS(22541) = Jac_FULL(4274,4274) - JVS(22541) = -B(21167)-B(21169)-B(21171)-B(21173) -! JVS(22542) = Jac_FULL(4274,4566) - JVS(22542) = 0 -! JVS(22543) = Jac_FULL(4274,4573) - JVS(22543) = 0 -! JVS(22544) = Jac_FULL(4274,5250) - JVS(22544) = B(19661)+B(22160) -! JVS(22545) = Jac_FULL(4274,5252) - JVS(22545) = -B(21170) -! JVS(22546) = Jac_FULL(4274,5255) - JVS(22546) = -B(21168) -! JVS(22547) = Jac_FULL(4274,5256) - JVS(22547) = -B(21172) -! JVS(22548) = Jac_FULL(4275,2384) - JVS(22548) = B(12194) -! JVS(22549) = Jac_FULL(4275,2698) - JVS(22549) = B(12199) -! JVS(22550) = Jac_FULL(4275,4275) - JVS(22550) = -B(8464)-B(8466)-B(8468)-B(8470)-B(8472)-B(8474) -! JVS(22551) = Jac_FULL(4275,5067) - JVS(22551) = B(4877)+B(4879) -! JVS(22552) = Jac_FULL(4275,5250) - JVS(22552) = B(4880)+B(12195) -! JVS(22553) = Jac_FULL(4275,5252) - JVS(22553) = -B(8469) -! JVS(22554) = Jac_FULL(4275,5253) - JVS(22554) = -B(8471) -! JVS(22555) = Jac_FULL(4275,5255) - JVS(22555) = -B(8465)-B(8467) -! JVS(22556) = Jac_FULL(4275,5256) - JVS(22556) = B(4878)-B(8473) -! JVS(22557) = Jac_FULL(4276,1273) - JVS(22557) = B(20191) -! JVS(22558) = Jac_FULL(4276,3137) - JVS(22558) = B(16216) -! JVS(22559) = Jac_FULL(4276,4276) - JVS(22559) = -B(18537)-B(18539)-B(18541)-B(18543) -! JVS(22560) = Jac_FULL(4276,4788) - JVS(22560) = 0 -! JVS(22561) = Jac_FULL(4276,5250) - JVS(22561) = B(16217)+B(20192) -! JVS(22562) = Jac_FULL(4276,5252) - JVS(22562) = -B(18540) -! JVS(22563) = Jac_FULL(4276,5253) - JVS(22563) = 0 -! JVS(22564) = Jac_FULL(4276,5255) - JVS(22564) = -B(18538) -! JVS(22565) = Jac_FULL(4276,5256) - JVS(22565) = -B(18542) -! JVS(22566) = Jac_FULL(4277,2971) - JVS(22566) = B(13468) -! JVS(22567) = Jac_FULL(4277,3460) - JVS(22567) = B(10293) -! JVS(22568) = Jac_FULL(4277,3600) - JVS(22568) = B(10291) -! JVS(22569) = Jac_FULL(4277,4277) - JVS(22569) = -B(10271)-B(10273)-B(10275)-B(10277)-B(10278) -! JVS(22570) = Jac_FULL(4277,4335) - JVS(22570) = 0 -! JVS(22571) = Jac_FULL(4277,4933) - JVS(22571) = B(6560) -! JVS(22572) = Jac_FULL(4277,5250) - JVS(22572) = B(10294)+B(13469) -! JVS(22573) = Jac_FULL(4277,5252) - JVS(22573) = -B(10274) -! JVS(22574) = Jac_FULL(4277,5255) - JVS(22574) = -B(10272) -! JVS(22575) = Jac_FULL(4277,5256) - JVS(22575) = -B(10276) -! JVS(22576) = Jac_FULL(4278,696) - JVS(22576) = B(22418) -! JVS(22577) = Jac_FULL(4278,754) - JVS(22577) = B(23540) -! JVS(22578) = Jac_FULL(4278,1312) - JVS(22578) = B(22413) -! JVS(22579) = Jac_FULL(4278,2214) - JVS(22579) = B(23533) -! JVS(22580) = Jac_FULL(4278,2759) - JVS(22580) = B(20759) -! JVS(22581) = Jac_FULL(4278,2942) - JVS(22581) = B(23536) -! JVS(22582) = Jac_FULL(4278,4137) - JVS(22582) = 0 -! JVS(22583) = Jac_FULL(4278,4166) - JVS(22583) = 0 -! JVS(22584) = Jac_FULL(4278,4278) - JVS(22584) = -B(21790)-B(21792)-B(21794) -! JVS(22585) = Jac_FULL(4278,4350) - JVS(22585) = B(21803) -! JVS(22586) = Jac_FULL(4278,4789) - JVS(22586) = 0 -! JVS(22587) = Jac_FULL(4278,5114) - JVS(22587) = 0 -! JVS(22588) = Jac_FULL(4278,5250) - JVS(22588) = B(20760)-B(21793)+B(22414)+B(22419)+B(23534)+B(23537)+B(23541) -! JVS(22589) = Jac_FULL(4278,5252) - JVS(22589) = 0 -! JVS(22590) = Jac_FULL(4278,5255) - JVS(22590) = 0 -! JVS(22591) = Jac_FULL(4278,5256) - JVS(22591) = -B(21791) -! JVS(22592) = Jac_FULL(4279,554) - JVS(22592) = B(17644) -! JVS(22593) = Jac_FULL(4279,1213) - JVS(22593) = B(17632) -! JVS(22594) = Jac_FULL(4279,2256) - JVS(22594) = B(17635) -! JVS(22595) = Jac_FULL(4279,4128) - JVS(22595) = B(15076) -! JVS(22596) = Jac_FULL(4279,4279) - JVS(22596) = -B(17638)-B(17639)-B(17641) -! JVS(22597) = Jac_FULL(4279,4960) - JVS(22597) = B(23342) -! JVS(22598) = Jac_FULL(4279,5056) - JVS(22598) = 0 -! JVS(22599) = Jac_FULL(4279,5250) - JVS(22599) = B(17633)+B(17636)-B(17642)+B(17645) -! JVS(22600) = Jac_FULL(4279,5252) - JVS(22600) = 0 -! JVS(22601) = Jac_FULL(4279,5255) - JVS(22601) = 0 -! JVS(22602) = Jac_FULL(4279,5256) - JVS(22602) = -B(17640) -! JVS(22603) = Jac_FULL(4280,860) - JVS(22603) = B(18390) -! JVS(22604) = Jac_FULL(4280,3123) - JVS(22604) = B(12885) -! JVS(22605) = Jac_FULL(4280,4280) - JVS(22605) = -B(15974)-B(15976)-B(15978)-B(15980) -! JVS(22606) = Jac_FULL(4280,4466) - JVS(22606) = 0 -! JVS(22607) = Jac_FULL(4280,5250) - JVS(22607) = B(12886)+B(18391) -! JVS(22608) = Jac_FULL(4280,5252) - JVS(22608) = -B(15977) -! JVS(22609) = Jac_FULL(4280,5253) - JVS(22609) = 0 -! JVS(22610) = Jac_FULL(4280,5255) - JVS(22610) = -B(15975) -! JVS(22611) = Jac_FULL(4280,5256) - JVS(22611) = -B(15979) -! JVS(22612) = Jac_FULL(4281,2396) - JVS(22612) = B(12232) -! JVS(22613) = Jac_FULL(4281,2738) - JVS(22613) = B(12237) -! JVS(22614) = Jac_FULL(4281,4281) - JVS(22614) = -B(8521)-B(8523)-B(8525)-B(8527)-B(8529)-B(8531) -! JVS(22615) = Jac_FULL(4281,5009) - JVS(22615) = B(4967)+B(4969) -! JVS(22616) = Jac_FULL(4281,5250) - JVS(22616) = B(4970)+B(12233) -! JVS(22617) = Jac_FULL(4281,5252) - JVS(22617) = -B(8526) -! JVS(22618) = Jac_FULL(4281,5253) - JVS(22618) = -B(8528) -! JVS(22619) = Jac_FULL(4281,5255) - JVS(22619) = -B(8522)-B(8524) -! JVS(22620) = Jac_FULL(4281,5256) - JVS(22620) = B(4968)-B(8530) -! JVS(22621) = Jac_FULL(4282,563) - JVS(22621) = B(10413) -! JVS(22622) = Jac_FULL(4282,4282) - JVS(22622) = -B(13591)-B(13593)-B(13595)-B(13597)-B(13599) -! JVS(22623) = Jac_FULL(4282,5168) - JVS(22623) = 0 -! JVS(22624) = Jac_FULL(4282,5251) - JVS(22624) = -B(13592) -! JVS(22625) = Jac_FULL(4282,5252) - JVS(22625) = -B(13594) -! JVS(22626) = Jac_FULL(4282,5253) - JVS(22626) = -B(13596) -! JVS(22627) = Jac_FULL(4282,5254) - JVS(22627) = -B(13598) -! JVS(22628) = Jac_FULL(4282,5258) - JVS(22628) = 0 -! JVS(22629) = Jac_FULL(4283,2371) - JVS(22629) = B(12309) -! JVS(22630) = Jac_FULL(4283,2896) - JVS(22630) = B(12311) -! JVS(22631) = Jac_FULL(4283,4283) - JVS(22631) = -B(8635)-B(8637)-B(8639)-B(8641)-B(8643)-B(8645) -! JVS(22632) = Jac_FULL(4283,4873) - JVS(22632) = B(5142)+B(5144) -! JVS(22633) = Jac_FULL(4283,5250) - JVS(22633) = B(5145)+B(12310) -! JVS(22634) = Jac_FULL(4283,5252) - JVS(22634) = -B(8640) -! JVS(22635) = Jac_FULL(4283,5253) - JVS(22635) = -B(8642) -! JVS(22636) = Jac_FULL(4283,5255) - JVS(22636) = -B(8636)-B(8638) -! JVS(22637) = Jac_FULL(4283,5256) - JVS(22637) = B(5143)-B(8644) -! JVS(22638) = Jac_FULL(4284,1947) - JVS(22638) = B(18033) -! JVS(22639) = Jac_FULL(4284,2028) - JVS(22639) = B(12293) -! JVS(22640) = Jac_FULL(4284,2478) - JVS(22640) = B(12215) -! JVS(22641) = Jac_FULL(4284,4284) - JVS(22641) = -B(15416)-B(15418)-B(15420)-B(15422) -! JVS(22642) = Jac_FULL(4284,4804) - JVS(22642) = 0 -! JVS(22643) = Jac_FULL(4284,4817) - JVS(22643) = 0 -! JVS(22644) = Jac_FULL(4284,5250) - JVS(22644) = B(18034) -! JVS(22645) = Jac_FULL(4284,5252) - JVS(22645) = -B(15419) -! JVS(22646) = Jac_FULL(4284,5255) - JVS(22646) = -B(15417) -! JVS(22647) = Jac_FULL(4284,5256) - JVS(22647) = -B(15421) -! JVS(22648) = Jac_FULL(4285,1166) - JVS(22648) = B(20177) -! JVS(22649) = Jac_FULL(4285,3191) - JVS(22649) = B(16137) -! JVS(22650) = Jac_FULL(4285,4285) - JVS(22650) = -B(18502)-B(18504)-B(18506)-B(18508) -! JVS(22651) = Jac_FULL(4285,4810) - JVS(22651) = 0 -! JVS(22652) = Jac_FULL(4285,5250) - JVS(22652) = B(16138)+B(20178) -! JVS(22653) = Jac_FULL(4285,5252) - JVS(22653) = -B(18505) -! JVS(22654) = Jac_FULL(4285,5253) - JVS(22654) = 0 -! JVS(22655) = Jac_FULL(4285,5255) - JVS(22655) = -B(18503) -! JVS(22656) = Jac_FULL(4285,5256) - JVS(22656) = -B(18507) -! JVS(22657) = Jac_FULL(4286,3155) - JVS(22657) = B(3118) -! JVS(22658) = Jac_FULL(4286,4286) - JVS(22658) = -B(6755)-B(6757)-B(6759)-B(6761)-B(6763) -! JVS(22659) = Jac_FULL(4286,5166) - JVS(22659) = 0 -! JVS(22660) = Jac_FULL(4286,5251) - JVS(22660) = -B(6756) -! JVS(22661) = Jac_FULL(4286,5252) - JVS(22661) = -B(6758) -! JVS(22662) = Jac_FULL(4286,5253) - JVS(22662) = -B(6760) -! JVS(22663) = Jac_FULL(4286,5254) - JVS(22663) = -B(6762) -! JVS(22664) = Jac_FULL(4286,5258) - JVS(22664) = 0 -! JVS(22665) = Jac_FULL(4287,1148) - JVS(22665) = B(18679) -! JVS(22666) = Jac_FULL(4287,3087) - JVS(22666) = B(13353) -! JVS(22667) = Jac_FULL(4287,4287) - JVS(22667) = -B(16398)-B(16400)-B(16402)-B(16404) -! JVS(22668) = Jac_FULL(4287,4499) - JVS(22668) = 0 -! JVS(22669) = Jac_FULL(4287,5250) - JVS(22669) = B(13354)+B(18680) -! JVS(22670) = Jac_FULL(4287,5252) - JVS(22670) = -B(16401) -! JVS(22671) = Jac_FULL(4287,5253) - JVS(22671) = 0 -! JVS(22672) = Jac_FULL(4287,5255) - JVS(22672) = -B(16399) -! JVS(22673) = Jac_FULL(4287,5256) - JVS(22673) = -B(16403) -! JVS(22674) = Jac_FULL(4288,919) - JVS(22674) = B(16928) -! JVS(22675) = Jac_FULL(4288,3307) - JVS(22675) = B(16933) -! JVS(22676) = Jac_FULL(4288,4288) - JVS(22676) = -B(14297)-B(14299)-B(14301)-B(14303)-B(14305)-B(14307) -! JVS(22677) = Jac_FULL(4288,4914) - JVS(22677) = B(11095)+B(11097) -! JVS(22678) = Jac_FULL(4288,5250) - JVS(22678) = B(11098)+B(16929) -! JVS(22679) = Jac_FULL(4288,5252) - JVS(22679) = -B(14302) -! JVS(22680) = Jac_FULL(4288,5253) - JVS(22680) = -B(14304) -! JVS(22681) = Jac_FULL(4288,5255) - JVS(22681) = -B(14298)-B(14300) -! JVS(22682) = Jac_FULL(4288,5256) - JVS(22682) = B(11096)-B(14306) -! JVS(22683) = Jac_FULL(4289,1029) - JVS(22683) = B(20217) -! JVS(22684) = Jac_FULL(4289,3143) - JVS(22684) = B(16268) -! JVS(22685) = Jac_FULL(4289,4289) - JVS(22685) = -B(18583)-B(18585)-B(18587)-B(18589) -! JVS(22686) = Jac_FULL(4289,4682) - JVS(22686) = 0 -! JVS(22687) = Jac_FULL(4289,5250) - JVS(22687) = B(16269)+B(20218) -! JVS(22688) = Jac_FULL(4289,5252) - JVS(22688) = -B(18586) -! JVS(22689) = Jac_FULL(4289,5253) - JVS(22689) = 0 -! JVS(22690) = Jac_FULL(4289,5255) - JVS(22690) = -B(18584) -! JVS(22691) = Jac_FULL(4289,5256) - JVS(22691) = -B(18588) -! JVS(22692) = Jac_FULL(4290,138) - JVS(22692) = B(16937) -! JVS(22693) = Jac_FULL(4290,2143) - JVS(22693) = 0 -! JVS(22694) = Jac_FULL(4290,2151) - JVS(22694) = B(20710) -! JVS(22695) = Jac_FULL(4290,3307) - JVS(22695) = 0 -! JVS(22696) = Jac_FULL(4290,4257) - JVS(22696) = 0 -! JVS(22697) = Jac_FULL(4290,4288) - JVS(22697) = 0 -! JVS(22698) = Jac_FULL(4290,4290) - JVS(22698) = -B(19127)-B(19129)-B(19131)-B(19133) -! JVS(22699) = Jac_FULL(4290,4914) - JVS(22699) = 0 -! JVS(22700) = Jac_FULL(4290,5250) - JVS(22700) = B(20711) -! JVS(22701) = Jac_FULL(4290,5252) - JVS(22701) = -B(19130) -! JVS(22702) = Jac_FULL(4290,5253) - JVS(22702) = 0 -! JVS(22703) = Jac_FULL(4290,5255) - JVS(22703) = -B(19128) -! JVS(22704) = Jac_FULL(4290,5256) - JVS(22704) = -B(19132) -! JVS(22705) = Jac_FULL(4291,917) - JVS(22705) = B(18188) -! JVS(22706) = Jac_FULL(4291,3095) - JVS(22706) = B(12599) -! JVS(22707) = Jac_FULL(4291,4291) - JVS(22707) = -B(15685)-B(15687)-B(15689)-B(15691) -! JVS(22708) = Jac_FULL(4291,4471) - JVS(22708) = 0 -! JVS(22709) = Jac_FULL(4291,5250) - JVS(22709) = B(12600)+B(18189) -! JVS(22710) = Jac_FULL(4291,5252) - JVS(22710) = -B(15688) -! JVS(22711) = Jac_FULL(4291,5253) - JVS(22711) = 0 -! JVS(22712) = Jac_FULL(4291,5255) - JVS(22712) = -B(15686) -! JVS(22713) = Jac_FULL(4291,5256) - JVS(22713) = -B(15690) -! JVS(22714) = Jac_FULL(4292,1144) - JVS(22714) = B(18290) -! JVS(22715) = Jac_FULL(4292,3112) - JVS(22715) = B(12756) -! JVS(22716) = Jac_FULL(4292,4292) - JVS(22716) = -B(15827)-B(15829)-B(15831)-B(15833) -! JVS(22717) = Jac_FULL(4292,4509) - JVS(22717) = 0 -! JVS(22718) = Jac_FULL(4292,5250) - JVS(22718) = B(18291) -! JVS(22719) = Jac_FULL(4292,5252) - JVS(22719) = -B(15830) -! JVS(22720) = Jac_FULL(4292,5253) - JVS(22720) = 0 -! JVS(22721) = Jac_FULL(4292,5255) - JVS(22721) = -B(15828) -! JVS(22722) = Jac_FULL(4292,5256) - JVS(22722) = B(12757)-B(15832) -! JVS(22723) = Jac_FULL(4293,1104) - JVS(22723) = B(18184) -! JVS(22724) = Jac_FULL(4293,3095) - JVS(22724) = B(12597) -! JVS(22725) = Jac_FULL(4293,4293) - JVS(22725) = -B(15678)-B(15680)-B(15682)-B(15684) -! JVS(22726) = Jac_FULL(4293,4471) - JVS(22726) = 0 -! JVS(22727) = Jac_FULL(4293,5250) - JVS(22727) = B(18185) -! JVS(22728) = Jac_FULL(4293,5252) - JVS(22728) = -B(15681) -! JVS(22729) = Jac_FULL(4293,5253) - JVS(22729) = 0 -! JVS(22730) = Jac_FULL(4293,5255) - JVS(22730) = -B(15679) -! JVS(22731) = Jac_FULL(4293,5256) - JVS(22731) = B(12598)-B(15683) -! JVS(22732) = Jac_FULL(4294,2085) - JVS(22732) = B(18773) -! JVS(22733) = Jac_FULL(4294,2870) - JVS(22733) = B(21600) -! JVS(22734) = Jac_FULL(4294,3211) - JVS(22734) = B(21554) -! JVS(22735) = Jac_FULL(4294,3261) - JVS(22735) = 0 -! JVS(22736) = Jac_FULL(4294,3280) - JVS(22736) = B(15556) -! JVS(22737) = Jac_FULL(4294,3502) - JVS(22737) = B(14913) -! JVS(22738) = Jac_FULL(4294,3563) - JVS(22738) = B(21587) -! JVS(22739) = Jac_FULL(4294,4180) - JVS(22739) = 0 -! JVS(22740) = Jac_FULL(4294,4294) - JVS(22740) = -B(16535)-B(16537) -! JVS(22741) = Jac_FULL(4294,4772) - JVS(22741) = 0 -! JVS(22742) = Jac_FULL(4294,4805) - JVS(22742) = B(13677) -! JVS(22743) = Jac_FULL(4294,4826) - JVS(22743) = 0 -! JVS(22744) = Jac_FULL(4294,4993) - JVS(22744) = 0 -! JVS(22745) = Jac_FULL(4294,5003) - JVS(22745) = 0 -! JVS(22746) = Jac_FULL(4294,5075) - JVS(22746) = 0 -! JVS(22747) = Jac_FULL(4294,5133) - JVS(22747) = 0 -! JVS(22748) = Jac_FULL(4294,5155) - JVS(22748) = 0 -! JVS(22749) = Jac_FULL(4294,5172) - JVS(22749) = B(18760) -! JVS(22750) = Jac_FULL(4294,5250) - JVS(22750) = -B(16536) -! JVS(22751) = Jac_FULL(4294,5252) - JVS(22751) = 0 -! JVS(22752) = Jac_FULL(4294,5255) - JVS(22752) = B(18761) -! JVS(22753) = Jac_FULL(4294,5256) - JVS(22753) = 0 -! JVS(22754) = Jac_FULL(4294,5258) - JVS(22754) = B(13678) -! JVS(22755) = Jac_FULL(4295,351) - JVS(22755) = B(22836) -! JVS(22756) = Jac_FULL(4295,1209) - JVS(22756) = B(22835) -! JVS(22757) = Jac_FULL(4295,1761) - JVS(22757) = B(22841) -! JVS(22758) = Jac_FULL(4295,3327) - JVS(22758) = 0 -! JVS(22759) = Jac_FULL(4295,4224) - JVS(22759) = B(21711) -! JVS(22760) = Jac_FULL(4295,4295) - JVS(22760) = -B(22345)-B(22347)-B(22349)-B(22351) -! JVS(22761) = Jac_FULL(4295,4496) - JVS(22761) = B(22333)+B(22337)+B(22341)+B(22343) -! JVS(22762) = Jac_FULL(4295,5021) - JVS(22762) = 0 -! JVS(22763) = Jac_FULL(4295,5250) - JVS(22763) = B(22837)+B(22842) -! JVS(22764) = Jac_FULL(4295,5252) - JVS(22764) = B(22338)-B(22348) -! JVS(22765) = Jac_FULL(4295,5253) - JVS(22765) = 0 -! JVS(22766) = Jac_FULL(4295,5255) - JVS(22766) = B(22334)-B(22346) -! JVS(22767) = Jac_FULL(4295,5256) - JVS(22767) = B(22342)-B(22350) -! JVS(22768) = Jac_FULL(4296,878) - JVS(22768) = B(18457) -! JVS(22769) = Jac_FULL(4296,3100) - JVS(22769) = B(12983) -! JVS(22770) = Jac_FULL(4296,4296) - JVS(22770) = -B(16076)-B(16078)-B(16080)-B(16082) -! JVS(22771) = Jac_FULL(4296,4444) - JVS(22771) = 0 -! JVS(22772) = Jac_FULL(4296,5250) - JVS(22772) = B(12984)+B(18458) -! JVS(22773) = Jac_FULL(4296,5252) - JVS(22773) = -B(16079) -! JVS(22774) = Jac_FULL(4296,5253) - JVS(22774) = 0 -! JVS(22775) = Jac_FULL(4296,5255) - JVS(22775) = -B(16077) -! JVS(22776) = Jac_FULL(4296,5256) - JVS(22776) = -B(16081) -! JVS(22777) = Jac_FULL(4297,1101) - JVS(22777) = B(18675) -! JVS(22778) = Jac_FULL(4297,3087) - JVS(22778) = B(13351) -! JVS(22779) = Jac_FULL(4297,4297) - JVS(22779) = -B(16391)-B(16393)-B(16395)-B(16397) -! JVS(22780) = Jac_FULL(4297,4499) - JVS(22780) = 0 -! JVS(22781) = Jac_FULL(4297,5250) - JVS(22781) = B(18676) -! JVS(22782) = Jac_FULL(4297,5252) - JVS(22782) = -B(16394) -! JVS(22783) = Jac_FULL(4297,5253) - JVS(22783) = 0 -! JVS(22784) = Jac_FULL(4297,5255) - JVS(22784) = -B(16392) -! JVS(22785) = Jac_FULL(4297,5256) - JVS(22785) = B(13352)-B(16396) -! JVS(22786) = Jac_FULL(4298,1420) - JVS(22786) = B(19947) -! JVS(22787) = Jac_FULL(4298,3163) - JVS(22787) = B(15653) -! JVS(22788) = Jac_FULL(4298,4298) - JVS(22788) = -B(18162)-B(18164)-B(18166)-B(18168) -! JVS(22789) = Jac_FULL(4298,4690) - JVS(22789) = 0 -! JVS(22790) = Jac_FULL(4298,5250) - JVS(22790) = B(15654)+B(19948) -! JVS(22791) = Jac_FULL(4298,5252) - JVS(22791) = -B(18165) -! JVS(22792) = Jac_FULL(4298,5253) - JVS(22792) = 0 -! JVS(22793) = Jac_FULL(4298,5255) - JVS(22793) = -B(18163) -! JVS(22794) = Jac_FULL(4298,5256) - JVS(22794) = -B(18167) -! JVS(22795) = Jac_FULL(4299,16) - JVS(22795) = B(18672) -! JVS(22796) = Jac_FULL(4299,106) - JVS(22796) = B(18673) -! JVS(22797) = Jac_FULL(4299,1412) - JVS(22797) = 0 -! JVS(22798) = Jac_FULL(4299,2754) - JVS(22798) = B(21513) -! JVS(22799) = Jac_FULL(4299,3052) - JVS(22799) = B(21518) -! JVS(22800) = Jac_FULL(4299,3753) - JVS(22800) = 0 -! JVS(22801) = Jac_FULL(4299,4299) - JVS(22801) = -B(20268)-B(20270)-B(20272)-B(20274)-B(20276)-B(20278) -! JVS(22802) = Jac_FULL(4299,4533) - JVS(22802) = 0 -! JVS(22803) = Jac_FULL(4299,5250) - JVS(22803) = B(18674)+B(21514) -! JVS(22804) = Jac_FULL(4299,5252) - JVS(22804) = -B(20273) -! JVS(22805) = Jac_FULL(4299,5253) - JVS(22805) = -B(20275) -! JVS(22806) = Jac_FULL(4299,5255) - JVS(22806) = -B(20269)-B(20271) -! JVS(22807) = Jac_FULL(4299,5256) - JVS(22807) = -B(20277) -! JVS(22808) = Jac_FULL(4300,437) - JVS(22808) = B(11773) -! JVS(22809) = Jac_FULL(4300,836) - JVS(22809) = B(11767) -! JVS(22810) = Jac_FULL(4300,2030) - JVS(22810) = B(11772) -! JVS(22811) = Jac_FULL(4300,2189) - JVS(22811) = B(11770) -! JVS(22812) = Jac_FULL(4300,3718) - JVS(22812) = B(8050) -! JVS(22813) = Jac_FULL(4300,4300) - JVS(22813) = -B(7120)-B(7121)-B(7123) -! JVS(22814) = Jac_FULL(4300,4784) - JVS(22814) = B(3316) -! JVS(22815) = Jac_FULL(4300,5109) - JVS(22815) = 0 -! JVS(22816) = Jac_FULL(4300,5250) - JVS(22816) = -B(7122)-B(7124)+B(11768)+B(11771)+B(11774) -! JVS(22817) = Jac_FULL(4300,5252) - JVS(22817) = 0 -! JVS(22818) = Jac_FULL(4300,5255) - JVS(22818) = 0 -! JVS(22819) = Jac_FULL(4300,5256) - JVS(22819) = 0 -! JVS(22820) = Jac_FULL(4301,2146) - JVS(22820) = B(14395) -! JVS(22821) = Jac_FULL(4301,3017) - JVS(22821) = B(14400) -! JVS(22822) = Jac_FULL(4301,4186) - JVS(22822) = B(7393)+B(7395) -! JVS(22823) = Jac_FULL(4301,4301) - JVS(22823) = -B(11175)-B(11177)-B(11179)-B(11181)-B(11183)-B(11185) -! JVS(22824) = Jac_FULL(4301,4600) - JVS(22824) = 0 -! JVS(22825) = Jac_FULL(4301,5250) - JVS(22825) = B(7396)+B(14396) -! JVS(22826) = Jac_FULL(4301,5252) - JVS(22826) = -B(11180) -! JVS(22827) = Jac_FULL(4301,5253) - JVS(22827) = -B(11182) -! JVS(22828) = Jac_FULL(4301,5255) - JVS(22828) = -B(11176)-B(11178) -! JVS(22829) = Jac_FULL(4301,5256) - JVS(22829) = B(7394)-B(11184) -! JVS(22830) = Jac_FULL(4302,640) - JVS(22830) = B(3489) -! JVS(22831) = Jac_FULL(4302,4302) - JVS(22831) = -B(7374)-B(7376)-B(7378)-B(7380)-B(7382) -! JVS(22832) = Jac_FULL(4302,4600) - JVS(22832) = 0 -! JVS(22833) = Jac_FULL(4302,5251) - JVS(22833) = -B(7375) -! JVS(22834) = Jac_FULL(4302,5252) - JVS(22834) = -B(7377) -! JVS(22835) = Jac_FULL(4302,5253) - JVS(22835) = -B(7379) -! JVS(22836) = Jac_FULL(4302,5254) - JVS(22836) = -B(7381) -! JVS(22837) = Jac_FULL(4302,5258) - JVS(22837) = 0 -! JVS(22838) = Jac_FULL(4303,1255) - JVS(22838) = B(18247) -! JVS(22839) = Jac_FULL(4303,3119) - JVS(22839) = B(12709) -! JVS(22840) = Jac_FULL(4303,4303) - JVS(22840) = -B(15767)-B(15769)-B(15771)-B(15773) -! JVS(22841) = Jac_FULL(4303,4487) - JVS(22841) = 0 -! JVS(22842) = Jac_FULL(4303,5250) - JVS(22842) = B(18248) -! JVS(22843) = Jac_FULL(4303,5252) - JVS(22843) = -B(15770) -! JVS(22844) = Jac_FULL(4303,5253) - JVS(22844) = 0 -! JVS(22845) = Jac_FULL(4303,5255) - JVS(22845) = -B(15768) -! JVS(22846) = Jac_FULL(4303,5256) - JVS(22846) = B(12710)-B(15772) -! JVS(22847) = Jac_FULL(4304,1512) - JVS(22847) = B(18331) -! JVS(22848) = Jac_FULL(4304,3162) - JVS(22848) = B(12791) -! JVS(22849) = Jac_FULL(4304,4304) - JVS(22849) = -B(15878)-B(15880)-B(15882)-B(15884) -! JVS(22850) = Jac_FULL(4304,4454) - JVS(22850) = 0 -! JVS(22851) = Jac_FULL(4304,5250) - JVS(22851) = B(12792)+B(18332) -! JVS(22852) = Jac_FULL(4304,5252) - JVS(22852) = -B(15881) -! JVS(22853) = Jac_FULL(4304,5253) - JVS(22853) = 0 -! JVS(22854) = Jac_FULL(4304,5255) - JVS(22854) = -B(15879) -! JVS(22855) = Jac_FULL(4304,5256) - JVS(22855) = -B(15883) -! JVS(22856) = Jac_FULL(4305,913) - JVS(22856) = B(20019) -! JVS(22857) = Jac_FULL(4305,3120) - JVS(22857) = B(15743) -! JVS(22858) = Jac_FULL(4305,4305) - JVS(22858) = -B(18227)-B(18229)-B(18231)-B(18233) -! JVS(22859) = Jac_FULL(4305,4671) - JVS(22859) = 0 -! JVS(22860) = Jac_FULL(4305,5250) - JVS(22860) = B(15744)+B(20020) -! JVS(22861) = Jac_FULL(4305,5252) - JVS(22861) = -B(18230) -! JVS(22862) = Jac_FULL(4305,5253) - JVS(22862) = 0 -! JVS(22863) = Jac_FULL(4305,5255) - JVS(22863) = -B(18228) -! JVS(22864) = Jac_FULL(4305,5256) - JVS(22864) = -B(18232) -! JVS(22865) = Jac_FULL(4306,835) - JVS(22865) = B(19922) -! JVS(22866) = Jac_FULL(4306,3088) - JVS(22866) = B(15526) -! JVS(22867) = Jac_FULL(4306,4306) - JVS(22867) = -B(18111)-B(18113)-B(18115)-B(18117) -! JVS(22868) = Jac_FULL(4306,4798) - JVS(22868) = 0 -! JVS(22869) = Jac_FULL(4306,5250) - JVS(22869) = B(15527)+B(19923) -! JVS(22870) = Jac_FULL(4306,5252) - JVS(22870) = -B(18114) -! JVS(22871) = Jac_FULL(4306,5253) - JVS(22871) = 0 -! JVS(22872) = Jac_FULL(4306,5255) - JVS(22872) = -B(18112) -! JVS(22873) = Jac_FULL(4306,5256) - JVS(22873) = -B(18116) -! JVS(22874) = Jac_FULL(4307,923) - JVS(22874) = B(18453) -! JVS(22875) = Jac_FULL(4307,3100) - JVS(22875) = B(12981) -! JVS(22876) = Jac_FULL(4307,4307) - JVS(22876) = -B(16069)-B(16071)-B(16073)-B(16075) -! JVS(22877) = Jac_FULL(4307,4444) - JVS(22877) = 0 -! JVS(22878) = Jac_FULL(4307,5250) - JVS(22878) = B(18454) -! JVS(22879) = Jac_FULL(4307,5252) - JVS(22879) = -B(16072) -! JVS(22880) = Jac_FULL(4307,5253) - JVS(22880) = 0 -! JVS(22881) = Jac_FULL(4307,5255) - JVS(22881) = -B(16070) -! JVS(22882) = Jac_FULL(4307,5256) - JVS(22882) = B(12982)-B(16074) -! JVS(22883) = Jac_FULL(4308,130) - JVS(22883) = B(18087) -! JVS(22884) = Jac_FULL(4308,490) - JVS(22884) = B(18088) -! JVS(22885) = Jac_FULL(4308,491) - JVS(22885) = 0 -! JVS(22886) = Jac_FULL(4308,2725) - JVS(22886) = B(21298) -! JVS(22887) = Jac_FULL(4308,2911) - JVS(22887) = B(21293) -! JVS(22888) = Jac_FULL(4308,3740) - JVS(22888) = 0 -! JVS(22889) = Jac_FULL(4308,4308) - JVS(22889) = -B(19893)-B(19895)-B(19897)-B(19899)-B(19901)-B(19903) -! JVS(22890) = Jac_FULL(4308,4603) - JVS(22890) = 0 -! JVS(22891) = Jac_FULL(4308,5250) - JVS(22891) = B(18089)+B(21294) -! JVS(22892) = Jac_FULL(4308,5252) - JVS(22892) = -B(19898) -! JVS(22893) = Jac_FULL(4308,5253) - JVS(22893) = -B(19900) -! JVS(22894) = Jac_FULL(4308,5255) - JVS(22894) = -B(19894)-B(19896) -! JVS(22895) = Jac_FULL(4308,5256) - JVS(22895) = -B(19902) -! JVS(22896) = Jac_FULL(4309,2084) - JVS(22896) = B(19707) -! JVS(22897) = Jac_FULL(4309,3298) - JVS(22897) = B(15241) -! JVS(22898) = Jac_FULL(4309,3822) - JVS(22898) = 0 -! JVS(22899) = Jac_FULL(4309,4309) - JVS(22899) = -B(17823)-B(17825)-B(17827)-B(17829)-B(17830) -! JVS(22900) = Jac_FULL(4309,4800) - JVS(22900) = 0 -! JVS(22901) = Jac_FULL(4309,5119) - JVS(22901) = 0 -! JVS(22902) = Jac_FULL(4309,5250) - JVS(22902) = B(15242)+B(19708) -! JVS(22903) = Jac_FULL(4309,5252) - JVS(22903) = -B(17826) -! JVS(22904) = Jac_FULL(4309,5255) - JVS(22904) = -B(17824) -! JVS(22905) = Jac_FULL(4309,5256) - JVS(22905) = -B(17828) -! JVS(22906) = Jac_FULL(4310,519) - JVS(22906) = B(17741) -! JVS(22907) = Jac_FULL(4310,1477) - JVS(22907) = B(17743) -! JVS(22908) = Jac_FULL(4310,1730) - JVS(22908) = B(120) -! JVS(22909) = Jac_FULL(4310,3986) - JVS(22909) = B(11981) -! JVS(22910) = Jac_FULL(4310,4310) - JVS(22910) = -B(1059)-B(1061)-B(1063)-B(1065)-B(1067)-B(1068)-B(1069) -! JVS(22911) = Jac_FULL(4310,4523) - JVS(22911) = B(15179)+B(15181)+B(15185)+B(15188) -! JVS(22912) = Jac_FULL(4310,4886) - JVS(22912) = 0 -! JVS(22913) = Jac_FULL(4310,5147) - JVS(22913) = 0 -! JVS(22914) = Jac_FULL(4310,5250) - JVS(22914) = B(121)+B(17742) -! JVS(22915) = Jac_FULL(4310,5252) - JVS(22915) = -B(1062)-B(1064)+B(15182) -! JVS(22916) = Jac_FULL(4310,5255) - JVS(22916) = -B(1060)+B(15180) -! JVS(22917) = Jac_FULL(4310,5256) - JVS(22917) = -B(1066)+B(15186) -! JVS(22918) = Jac_FULL(4311,1370) - JVS(22918) = B(9912) -! JVS(22919) = Jac_FULL(4311,1409) - JVS(22919) = B(9907)+B(9909) -! JVS(22920) = Jac_FULL(4311,1968) - JVS(22920) = B(9951) -! JVS(22921) = Jac_FULL(4311,3833) - JVS(22921) = B(2831) -! JVS(22922) = Jac_FULL(4311,4311) - JVS(22922) = -B(6238)-B(6240)-B(6242)-B(6244)-B(6245) -! JVS(22923) = Jac_FULL(4311,4654) - JVS(22923) = B(6208)+B(6214)+B(6218)+B(6220) -! JVS(22924) = Jac_FULL(4311,5250) - JVS(22924) = B(9908)+B(9952) -! JVS(22925) = Jac_FULL(4311,5252) - JVS(22925) = B(6215)-B(6241) -! JVS(22926) = Jac_FULL(4311,5255) - JVS(22926) = B(6209)-B(6239) -! JVS(22927) = Jac_FULL(4311,5256) - JVS(22927) = B(6219)-B(6243) -! JVS(22928) = Jac_FULL(4311,5258) - JVS(22928) = 0 -! JVS(22929) = Jac_FULL(4312,1399) - JVS(22929) = B(18640) -! JVS(22930) = Jac_FULL(4312,3116) - JVS(22930) = B(13320) -! JVS(22931) = Jac_FULL(4312,4312) - JVS(22931) = -B(16336)-B(16338)-B(16340)-B(16342) -! JVS(22932) = Jac_FULL(4312,4402) - JVS(22932) = 0 -! JVS(22933) = Jac_FULL(4312,5250) - JVS(22933) = B(18641) -! JVS(22934) = Jac_FULL(4312,5252) - JVS(22934) = -B(16339) -! JVS(22935) = Jac_FULL(4312,5253) - JVS(22935) = 0 -! JVS(22936) = Jac_FULL(4312,5255) - JVS(22936) = -B(16337) -! JVS(22937) = Jac_FULL(4312,5256) - JVS(22937) = B(13321)-B(16341) -! JVS(22938) = Jac_FULL(4313,1627) - JVS(22938) = B(11956) -! JVS(22939) = Jac_FULL(4313,2259) - JVS(22939) = B(11940) -! JVS(22940) = Jac_FULL(4313,2513) - JVS(22940) = B(11930) -! JVS(22941) = Jac_FULL(4313,2633) - JVS(22941) = 0 -! JVS(22942) = Jac_FULL(4313,2713) - JVS(22942) = 0 -! JVS(22943) = Jac_FULL(4313,3038) - JVS(22943) = B(11925) -! JVS(22944) = Jac_FULL(4313,3854) - JVS(22944) = B(8185) -! JVS(22945) = Jac_FULL(4313,3859) - JVS(22945) = 0 -! JVS(22946) = Jac_FULL(4313,4313) - JVS(22946) = -B(11933)-B(11934)-B(11936) -! JVS(22947) = Jac_FULL(4313,5077) - JVS(22947) = 0 -! JVS(22948) = Jac_FULL(4313,5082) - JVS(22948) = 0 -! JVS(22949) = Jac_FULL(4313,5250) - JVS(22949) = B(11926)+B(11931)-B(11937)+B(11941) -! JVS(22950) = Jac_FULL(4313,5252) - JVS(22950) = 0 -! JVS(22951) = Jac_FULL(4313,5255) - JVS(22951) = 0 -! JVS(22952) = Jac_FULL(4313,5256) - JVS(22952) = -B(11935) -! JVS(22953) = Jac_FULL(4314,1358) - JVS(22953) = B(18609) -! JVS(22954) = Jac_FULL(4314,3127) - JVS(22954) = B(13294) -! JVS(22955) = Jac_FULL(4314,4314) - JVS(22955) = -B(16300)-B(16302)-B(16304)-B(16306) -! JVS(22956) = Jac_FULL(4314,4413) - JVS(22956) = 0 -! JVS(22957) = Jac_FULL(4314,5250) - JVS(22957) = B(13295)+B(18610) -! JVS(22958) = Jac_FULL(4314,5252) - JVS(22958) = -B(16303) -! JVS(22959) = Jac_FULL(4314,5253) - JVS(22959) = 0 -! JVS(22960) = Jac_FULL(4314,5255) - JVS(22960) = -B(16301) -! JVS(22961) = Jac_FULL(4314,5256) - JVS(22961) = -B(16305) -! JVS(22962) = Jac_FULL(4315,168) - JVS(22962) = B(21980) -! JVS(22963) = Jac_FULL(4315,1070) - JVS(22963) = 0 -! JVS(22964) = Jac_FULL(4315,2063) - JVS(22964) = 0 -! JVS(22965) = Jac_FULL(4315,3270) - JVS(22965) = B(21981)+B(21983) -! JVS(22966) = Jac_FULL(4315,3703) - JVS(22966) = 0 -! JVS(22967) = Jac_FULL(4315,4315) - JVS(22967) = -B(22574)-B(22576)-B(22578)-B(22580)-B(22581)-B(22582) -! JVS(22968) = Jac_FULL(4315,4638) - JVS(22968) = 0 -! JVS(22969) = Jac_FULL(4315,5250) - JVS(22969) = B(21982) -! JVS(22970) = Jac_FULL(4315,5252) - JVS(22970) = -B(22577) -! JVS(22971) = Jac_FULL(4315,5253) - JVS(22971) = 0 -! JVS(22972) = Jac_FULL(4315,5255) - JVS(22972) = -B(22575) -! JVS(22973) = Jac_FULL(4315,5256) - JVS(22973) = -B(22579) -! JVS(22974) = Jac_FULL(4316,232) - JVS(22974) = B(4025) -! JVS(22975) = Jac_FULL(4316,2010) - JVS(22975) = 0 -! JVS(22976) = Jac_FULL(4316,2434) - JVS(22976) = B(11560) -! JVS(22977) = Jac_FULL(4316,2815) - JVS(22977) = B(11565) -! JVS(22978) = Jac_FULL(4316,4316) - JVS(22978) = -B(7761)-B(7763)-B(7765)-B(7767)-B(7769)-B(7771) -! JVS(22979) = Jac_FULL(4316,4364) - JVS(22979) = 0 -! JVS(22980) = Jac_FULL(4316,5250) - JVS(22980) = B(4026)+B(11561) -! JVS(22981) = Jac_FULL(4316,5252) - JVS(22981) = -B(7766) -! JVS(22982) = Jac_FULL(4316,5253) - JVS(22982) = -B(7768) -! JVS(22983) = Jac_FULL(4316,5255) - JVS(22983) = -B(7762)-B(7764) -! JVS(22984) = Jac_FULL(4316,5256) - JVS(22984) = -B(7770) -! JVS(22985) = Jac_FULL(4317,1187) - JVS(22985) = B(18561) -! JVS(22986) = Jac_FULL(4317,3142) - JVS(22986) = B(13197) -! JVS(22987) = Jac_FULL(4317,4317) - JVS(22987) = -B(16247)-B(16249)-B(16251)-B(16253) -! JVS(22988) = Jac_FULL(4317,4670) - JVS(22988) = 0 -! JVS(22989) = Jac_FULL(4317,5250) - JVS(22989) = B(13198)+B(18562) -! JVS(22990) = Jac_FULL(4317,5252) - JVS(22990) = -B(16250) -! JVS(22991) = Jac_FULL(4317,5253) - JVS(22991) = 0 -! JVS(22992) = Jac_FULL(4317,5255) - JVS(22992) = -B(16248) -! JVS(22993) = Jac_FULL(4317,5256) - JVS(22993) = -B(16252) -! JVS(22994) = Jac_FULL(4318,1217) - JVS(22994) = B(14171) -! JVS(22995) = Jac_FULL(4318,1498) - JVS(22995) = B(14167) -! JVS(22996) = Jac_FULL(4318,4318) - JVS(22996) = -B(10975)-B(10977)-B(10979)-B(10981) -! JVS(22997) = Jac_FULL(4318,4627) - JVS(22997) = B(10966)+B(10968)+B(10972)+B(10974) -! JVS(22998) = Jac_FULL(4318,4717) - JVS(22998) = B(7182) -! JVS(22999) = Jac_FULL(4318,5250) - JVS(22999) = B(14172) -! JVS(23000) = Jac_FULL(4318,5252) - JVS(23000) = B(10969)-B(10978) -! JVS(23001) = Jac_FULL(4318,5255) - JVS(23001) = B(10967)-B(10976) -! JVS(23002) = Jac_FULL(4318,5256) - JVS(23002) = B(10973)-B(10980) -! JVS(23003) = Jac_FULL(4319,151) - JVS(23003) = B(22042) -! JVS(23004) = Jac_FULL(4319,1004) - JVS(23004) = 0 -! JVS(23005) = Jac_FULL(4319,1155) - JVS(23005) = B(23102) -! JVS(23006) = Jac_FULL(4319,2157) - JVS(23006) = 0 -! JVS(23007) = Jac_FULL(4319,3213) - JVS(23007) = B(22043)+B(22045) -! JVS(23008) = Jac_FULL(4319,3789) - JVS(23008) = 0 -! JVS(23009) = Jac_FULL(4319,4319) - JVS(23009) = -B(22652)-B(22654)-B(22656)-B(22658)-B(22660)-B(22661) -! JVS(23010) = Jac_FULL(4319,4679) - JVS(23010) = 0 -! JVS(23011) = Jac_FULL(4319,5250) - JVS(23011) = B(22044)+B(23103) -! JVS(23012) = Jac_FULL(4319,5252) - JVS(23012) = -B(22655)-B(22657) -! JVS(23013) = Jac_FULL(4319,5253) - JVS(23013) = 0 -! JVS(23014) = Jac_FULL(4319,5255) - JVS(23014) = -B(22653) -! JVS(23015) = Jac_FULL(4319,5256) - JVS(23015) = -B(22659) -! JVS(23016) = Jac_FULL(4320,477) - JVS(23016) = B(2177) -! JVS(23017) = Jac_FULL(4320,4320) - JVS(23017) = -B(5020)-B(5022)-B(5024)-B(5026)-B(5028) -! JVS(23018) = Jac_FULL(4320,4601) - JVS(23018) = 0 -! JVS(23019) = Jac_FULL(4320,5251) - JVS(23019) = -B(5021) -! JVS(23020) = Jac_FULL(4320,5252) - JVS(23020) = -B(5023) -! JVS(23021) = Jac_FULL(4320,5253) - JVS(23021) = -B(5025) -! JVS(23022) = Jac_FULL(4320,5254) - JVS(23022) = -B(5027) -! JVS(23023) = Jac_FULL(4320,5258) - JVS(23023) = 0 -! JVS(23024) = Jac_FULL(4321,2308) - JVS(23024) = B(10493) -! JVS(23025) = Jac_FULL(4321,4321) - JVS(23025) = -B(13645)-B(13647)-B(13649)-B(13651)-B(13653)-B(13654) -! JVS(23026) = Jac_FULL(4321,5217) - JVS(23026) = 0 -! JVS(23027) = Jac_FULL(4321,5252) - JVS(23027) = -B(13648)-B(13650) -! JVS(23028) = Jac_FULL(4321,5255) - JVS(23028) = -B(13646) -! JVS(23029) = Jac_FULL(4321,5256) - JVS(23029) = -B(13652) -! JVS(23030) = Jac_FULL(4322,17) - JVS(23030) = B(9756) -! JVS(23031) = Jac_FULL(4322,959) - JVS(23031) = B(9753) -! JVS(23032) = Jac_FULL(4322,1669) - JVS(23032) = B(9739) -! JVS(23033) = Jac_FULL(4322,2649) - JVS(23033) = B(9735) -! JVS(23034) = Jac_FULL(4322,3518) - JVS(23034) = B(6050)+B(6052)+B(6054) -! JVS(23035) = Jac_FULL(4322,3828) - JVS(23035) = 0 -! JVS(23036) = Jac_FULL(4322,4322) - JVS(23036) = -B(9754)-B(9755) -! JVS(23037) = Jac_FULL(4322,5250) - JVS(23037) = B(9757) -! JVS(23038) = Jac_FULL(4322,5252) - JVS(23038) = B(6051) -! JVS(23039) = Jac_FULL(4322,5255) - JVS(23039) = 0 -! JVS(23040) = Jac_FULL(4322,5256) - JVS(23040) = B(6053) -! JVS(23041) = Jac_FULL(4323,2048) - JVS(23041) = B(13191) -! JVS(23042) = Jac_FULL(4323,2342) - JVS(23042) = B(18547) -! JVS(23043) = Jac_FULL(4323,4322) - JVS(23043) = 0 -! JVS(23044) = Jac_FULL(4323,4323) - JVS(23044) = -B(16225)-B(16227)-B(16229)-B(16231) -! JVS(23045) = Jac_FULL(4323,5250) - JVS(23045) = B(18548) -! JVS(23046) = Jac_FULL(4323,5252) - JVS(23046) = -B(16228) -! JVS(23047) = Jac_FULL(4323,5255) - JVS(23047) = -B(16226) -! JVS(23048) = Jac_FULL(4323,5256) - JVS(23048) = B(13192)-B(16230) -! JVS(23049) = Jac_FULL(4324,57) - JVS(23049) = B(18554) -! JVS(23050) = Jac_FULL(4324,90) - JVS(23050) = B(18555) -! JVS(23051) = Jac_FULL(4324,1062) - JVS(23051) = 0 -! JVS(23052) = Jac_FULL(4324,2349) - JVS(23052) = B(21458) -! JVS(23053) = Jac_FULL(4324,2615) - JVS(23053) = B(21463) -! JVS(23054) = Jac_FULL(4324,3771) - JVS(23054) = 0 -! JVS(23055) = Jac_FULL(4324,4322) - JVS(23055) = 0 -! JVS(23056) = Jac_FULL(4324,4324) - JVS(23056) = -B(20198)-B(20200)-B(20202)-B(20204)-B(20206)-B(20208) -! JVS(23057) = Jac_FULL(4324,5250) - JVS(23057) = B(18556)+B(21459) -! JVS(23058) = Jac_FULL(4324,5252) - JVS(23058) = -B(20203) -! JVS(23059) = Jac_FULL(4324,5253) - JVS(23059) = -B(20205) -! JVS(23060) = Jac_FULL(4324,5255) - JVS(23060) = -B(20199)-B(20201) -! JVS(23061) = Jac_FULL(4324,5256) - JVS(23061) = -B(20207) -! JVS(23062) = Jac_FULL(4325,1726) - JVS(23062) = B(15794) -! JVS(23063) = Jac_FULL(4325,2349) - JVS(23063) = B(21460) -! JVS(23064) = Jac_FULL(4325,2615) - JVS(23064) = B(21461) -! JVS(23065) = Jac_FULL(4325,2631) - JVS(23065) = B(21385) -! JVS(23066) = Jac_FULL(4325,2838) - JVS(23066) = B(21384) -! JVS(23067) = Jac_FULL(4325,3455) - JVS(23067) = B(15786) -! JVS(23068) = Jac_FULL(4325,4013) - JVS(23068) = B(20054)+B(20056)+B(20060)+B(20062) -! JVS(23069) = Jac_FULL(4325,4324) - JVS(23069) = B(20200)+B(20202)+B(20206)+B(20208) -! JVS(23070) = Jac_FULL(4325,4325) - JVS(23070) = -B(15797)-B(15799)-B(15800) -! JVS(23071) = Jac_FULL(4325,4706) - JVS(23071) = B(12743) -! JVS(23072) = Jac_FULL(4325,5250) - JVS(23072) = B(15787)+B(15795)-B(15798)+B(21386)+B(21462) -! JVS(23073) = Jac_FULL(4325,5252) - JVS(23073) = B(20057)+B(20203) -! JVS(23074) = Jac_FULL(4325,5253) - JVS(23074) = 0 -! JVS(23075) = Jac_FULL(4325,5255) - JVS(23075) = B(20055)+B(20201) -! JVS(23076) = Jac_FULL(4325,5256) - JVS(23076) = B(20061)+B(20207) -! JVS(23077) = Jac_FULL(4326,109) - JVS(23077) = B(9011) -! JVS(23078) = Jac_FULL(4326,1157) - JVS(23078) = B(9008) -! JVS(23079) = Jac_FULL(4326,1549) - JVS(23079) = B(8994) -! JVS(23080) = Jac_FULL(4326,3321) - JVS(23080) = B(8990) -! JVS(23081) = Jac_FULL(4326,3491) - JVS(23081) = B(5464)+B(5466)+B(5468) -! JVS(23082) = Jac_FULL(4326,3820) - JVS(23082) = 0 -! JVS(23083) = Jac_FULL(4326,4326) - JVS(23083) = -B(9009)-B(9010) -! JVS(23084) = Jac_FULL(4326,5250) - JVS(23084) = B(9012) -! JVS(23085) = Jac_FULL(4326,5252) - JVS(23085) = B(5465) -! JVS(23086) = Jac_FULL(4326,5255) - JVS(23086) = 0 -! JVS(23087) = Jac_FULL(4326,5256) - JVS(23087) = B(5467) -! JVS(23088) = Jac_FULL(4327,1936) - JVS(23088) = B(12593) -! JVS(23089) = Jac_FULL(4327,2093) - JVS(23089) = B(18172) -! JVS(23090) = Jac_FULL(4327,4326) - JVS(23090) = 0 -! JVS(23091) = Jac_FULL(4327,4327) - JVS(23091) = -B(15662)-B(15664)-B(15666)-B(15668) -! JVS(23092) = Jac_FULL(4327,5250) - JVS(23092) = B(18173) -! JVS(23093) = Jac_FULL(4327,5252) - JVS(23093) = -B(15665) -! JVS(23094) = Jac_FULL(4327,5255) - JVS(23094) = -B(15663) -! JVS(23095) = Jac_FULL(4327,5256) - JVS(23095) = B(12594)-B(15667) -! JVS(23096) = Jac_FULL(4328,3209) - JVS(23096) = B(15607) -! JVS(23097) = Jac_FULL(4328,3821) - JVS(23097) = B(12583) -! JVS(23098) = Jac_FULL(4328,4326) - JVS(23098) = 0 -! JVS(23099) = Jac_FULL(4328,4328) - JVS(23099) = -B(15608)-B(15609) -! JVS(23100) = Jac_FULL(4328,4726) - JVS(23100) = 0 -! JVS(23101) = Jac_FULL(4328,4968) - JVS(23101) = B(12517)+B(12519)+B(12523)+B(12526) -! JVS(23102) = Jac_FULL(4328,5250) - JVS(23102) = B(12584) -! JVS(23103) = Jac_FULL(4328,5252) - JVS(23103) = B(12520) -! JVS(23104) = Jac_FULL(4328,5255) - JVS(23104) = B(12518) -! JVS(23105) = Jac_FULL(4328,5256) - JVS(23105) = B(12524) -! JVS(23106) = Jac_FULL(4328,5258) - JVS(23106) = 0 -! JVS(23107) = Jac_FULL(4329,2039) - JVS(23107) = B(22211) -! JVS(23108) = Jac_FULL(4329,2082) - JVS(23108) = B(22263) -! JVS(23109) = Jac_FULL(4329,2970) - JVS(23109) = B(22216) -! JVS(23110) = Jac_FULL(4329,3593) - JVS(23110) = B(20197) -! JVS(23111) = Jac_FULL(4329,3729) - JVS(23111) = B(19953) -! JVS(23112) = Jac_FULL(4329,4323) - JVS(23112) = 0 -! JVS(23113) = Jac_FULL(4329,4327) - JVS(23113) = 0 -! JVS(23114) = Jac_FULL(4329,4329) - JVS(23114) = -B(21323)-B(21325)-B(21327)-B(21329)-B(21331)-B(21333) -! JVS(23115) = Jac_FULL(4329,4731) - JVS(23115) = 0 -! JVS(23116) = Jac_FULL(4329,5250) - JVS(23116) = B(22212)+B(22264) -! JVS(23117) = Jac_FULL(4329,5252) - JVS(23117) = -B(21328) -! JVS(23118) = Jac_FULL(4329,5253) - JVS(23118) = -B(21330) -! JVS(23119) = Jac_FULL(4329,5255) - JVS(23119) = -B(21324)-B(21326) -! JVS(23120) = Jac_FULL(4329,5256) - JVS(23120) = -B(21332) -! JVS(23121) = Jac_FULL(4330,4330) - JVS(23121) = -B(4275)-B(4276)-B(4278)-B(4280)-B(4282) -! JVS(23122) = Jac_FULL(4330,5128) - JVS(23122) = B(1503) -! JVS(23123) = Jac_FULL(4330,5250) - JVS(23123) = -B(4279)-B(4281)-B(4283) -! JVS(23124) = Jac_FULL(4330,5253) - JVS(23124) = B(1504) -! JVS(23125) = Jac_FULL(4330,5258) - JVS(23125) = -B(4277) -! JVS(23126) = Jac_FULL(4331,2551) - JVS(23126) = B(18564) -! JVS(23127) = Jac_FULL(4331,2557) - JVS(23127) = B(18560) -! JVS(23128) = Jac_FULL(4331,2586) - JVS(23128) = B(18519) -! JVS(23129) = Jac_FULL(4331,2736) - JVS(23129) = B(20180) -! JVS(23130) = Jac_FULL(4331,2952) - JVS(23130) = B(20194) -! JVS(23131) = Jac_FULL(4331,3016) - JVS(23131) = B(18515) -! JVS(23132) = Jac_FULL(4331,3363) - JVS(23132) = B(20176) -! JVS(23133) = Jac_FULL(4331,3381) - JVS(23133) = B(20190) -! JVS(23134) = Jac_FULL(4331,4192) - JVS(23134) = 0 -! JVS(23135) = Jac_FULL(4331,4193) - JVS(23135) = 0 -! JVS(23136) = Jac_FULL(4331,4212) - JVS(23136) = 0 -! JVS(23137) = Jac_FULL(4331,4276) - JVS(23137) = 0 -! JVS(23138) = Jac_FULL(4331,4285) - JVS(23138) = 0 -! JVS(23139) = Jac_FULL(4331,4317) - JVS(23139) = 0 -! JVS(23140) = Jac_FULL(4331,4331) - JVS(23140) = -B(20181) -! JVS(23141) = Jac_FULL(4331,4639) - JVS(23141) = 0 -! JVS(23142) = Jac_FULL(4331,4643) - JVS(23142) = 0 -! JVS(23143) = Jac_FULL(4331,4655) - JVS(23143) = 0 -! JVS(23144) = Jac_FULL(4331,4670) - JVS(23144) = 0 -! JVS(23145) = Jac_FULL(4331,4788) - JVS(23145) = 0 -! JVS(23146) = Jac_FULL(4331,4810) - JVS(23146) = 0 -! JVS(23147) = Jac_FULL(4331,5250) - JVS(23147) = -B(20182) -! JVS(23148) = Jac_FULL(4331,5252) - JVS(23148) = 0 -! JVS(23149) = Jac_FULL(4331,5253) - JVS(23149) = 0 -! JVS(23150) = Jac_FULL(4331,5255) - JVS(23150) = 0 -! JVS(23151) = Jac_FULL(4331,5256) - JVS(23151) = 0 -! JVS(23152) = Jac_FULL(4332,4332) - JVS(23152) = -B(489)-B(491)-B(493)-B(495)-B(497)-B(499) -! JVS(23153) = Jac_FULL(4332,5250) - JVS(23153) = -B(498)-B(500) -! JVS(23154) = Jac_FULL(4332,5256) - JVS(23154) = -B(490)-B(492) -! JVS(23155) = Jac_FULL(4332,5258) - JVS(23155) = -B(494)-B(496) -! JVS(23156) = Jac_FULL(4333,3465) - JVS(23156) = B(455) -! JVS(23157) = Jac_FULL(4333,3466) - JVS(23157) = B(461) -! JVS(23158) = Jac_FULL(4333,4332) - JVS(23158) = B(495) -! JVS(23159) = Jac_FULL(4333,4333) - JVS(23159) = -B(1573)-B(1574)-B(1575)-B(1576) -! JVS(23160) = Jac_FULL(4333,4475) - JVS(23160) = B(507) -! JVS(23161) = Jac_FULL(4333,4604) - JVS(23161) = B(565) -! JVS(23162) = Jac_FULL(4333,4606) - JVS(23162) = B(577) -! JVS(23163) = Jac_FULL(4333,4840) - JVS(23163) = B(250) -! JVS(23164) = Jac_FULL(4333,5250) - JVS(23164) = 0 -! JVS(23165) = Jac_FULL(4333,5256) - JVS(23165) = 0 -! JVS(23166) = Jac_FULL(4333,5258) - JVS(23166) = B(251)+B(456)+B(462)+B(496)+B(508)+B(566)+B(578) -! JVS(23167) = Jac_FULL(4334,3594) - JVS(23167) = B(4600) -! JVS(23168) = Jac_FULL(4334,4334) - JVS(23168) = -B(8158)-B(8160)-B(8162)-B(8164)-B(8166)-B(8167)-B(8168) -! JVS(23169) = Jac_FULL(4334,5061) - JVS(23169) = 0 -! JVS(23170) = Jac_FULL(4334,5250) - JVS(23170) = B(4601) -! JVS(23171) = Jac_FULL(4334,5252) - JVS(23171) = -B(8161)-B(8163) -! JVS(23172) = Jac_FULL(4334,5255) - JVS(23172) = -B(8159) -! JVS(23173) = Jac_FULL(4334,5256) - JVS(23173) = -B(8165) -! JVS(23174) = Jac_FULL(4335,914) - JVS(23174) = B(10288) -! JVS(23175) = Jac_FULL(4335,4017) - JVS(23175) = B(2983) -! JVS(23176) = Jac_FULL(4335,4335) - JVS(23176) = -B(6562)-B(6564)-B(6566)-B(6568)-B(6570)-B(6571) -! JVS(23177) = Jac_FULL(4335,5250) - JVS(23177) = B(2984)+B(10289) -! JVS(23178) = Jac_FULL(4335,5252) - JVS(23178) = -B(6565)-B(6567) -! JVS(23179) = Jac_FULL(4335,5255) - JVS(23179) = -B(6563) -! JVS(23180) = Jac_FULL(4335,5256) - JVS(23180) = -B(6569) -! JVS(23181) = Jac_FULL(4335,5258) - JVS(23181) = 0 -! JVS(23182) = Jac_FULL(4336,2558) - JVS(23182) = B(7163) -! JVS(23183) = Jac_FULL(4336,3843) - JVS(23183) = B(847) -! JVS(23184) = Jac_FULL(4336,4336) - JVS(23184) = -B(3346)-B(3348)-B(3350)-B(3352)-B(3353)-B(3354) -! JVS(23185) = Jac_FULL(4336,5186) - JVS(23185) = 0 -! JVS(23186) = Jac_FULL(4336,5250) - JVS(23186) = B(848)+B(7164) -! JVS(23187) = Jac_FULL(4336,5252) - JVS(23187) = -B(3349) -! JVS(23188) = Jac_FULL(4336,5255) - JVS(23188) = -B(3347) -! JVS(23189) = Jac_FULL(4336,5256) - JVS(23189) = -B(3351) -! JVS(23190) = Jac_FULL(4337,1364) - JVS(23190) = B(10661) -! JVS(23191) = Jac_FULL(4337,4337) - JVS(23191) = -B(6845)-B(6847)-B(6849)-B(6851) -! JVS(23192) = Jac_FULL(4337,4794) - JVS(23192) = B(3135) -! JVS(23193) = Jac_FULL(4337,5250) - JVS(23193) = B(10662) -! JVS(23194) = Jac_FULL(4337,5252) - JVS(23194) = -B(6848) -! JVS(23195) = Jac_FULL(4337,5255) - JVS(23195) = -B(6846) -! JVS(23196) = Jac_FULL(4337,5256) - JVS(23196) = B(3136)-B(6850) -! JVS(23197) = Jac_FULL(4338,1283) - JVS(23197) = B(12610) -! JVS(23198) = Jac_FULL(4338,2956) - JVS(23198) = B(12615) -! JVS(23199) = Jac_FULL(4338,3640) - JVS(23199) = B(5483)+B(5485)+B(5488) -! JVS(23200) = Jac_FULL(4338,4338) - JVS(23200) = -B(9018)-B(9020)-B(9022)-B(9024)-B(9026)-B(9028)-B(9030)-B(9031) -! JVS(23201) = Jac_FULL(4338,5250) - JVS(23201) = B(5486)+B(12611) -! JVS(23202) = Jac_FULL(4338,5252) - JVS(23202) = -B(9025) -! JVS(23203) = Jac_FULL(4338,5253) - JVS(23203) = -B(9027) -! JVS(23204) = Jac_FULL(4338,5255) - JVS(23204) = -B(9019)-B(9021)-B(9023) -! JVS(23205) = Jac_FULL(4338,5256) - JVS(23205) = B(5484)-B(9029) -! JVS(23206) = Jac_FULL(4339,4339) - JVS(23206) = -B(13786)-B(13788)-B(13790)-B(13792) -! JVS(23207) = Jac_FULL(4339,5002) - JVS(23207) = B(10590) -! JVS(23208) = Jac_FULL(4339,5250) - JVS(23208) = B(10591) -! JVS(23209) = Jac_FULL(4339,5252) - JVS(23209) = -B(13789) -! JVS(23210) = Jac_FULL(4339,5255) - JVS(23210) = -B(13787) -! JVS(23211) = Jac_FULL(4339,5256) - JVS(23211) = -B(13791) -! JVS(23212) = Jac_FULL(4340,1984) - JVS(23212) = B(20649) -! JVS(23213) = Jac_FULL(4340,2812) - JVS(23213) = 0 -! JVS(23214) = Jac_FULL(4340,4189) - JVS(23214) = 0 -! JVS(23215) = Jac_FULL(4340,4340) - JVS(23215) = -B(21686)-B(21688)-B(21690)-B(21692)-B(21693)-B(21694) -! JVS(23216) = Jac_FULL(4340,5213) - JVS(23216) = 0 -! JVS(23217) = Jac_FULL(4340,5250) - JVS(23217) = 0 -! JVS(23218) = Jac_FULL(4340,5252) - JVS(23218) = -B(21689) -! JVS(23219) = Jac_FULL(4340,5255) - JVS(23219) = -B(21687) -! JVS(23220) = Jac_FULL(4340,5256) - JVS(23220) = -B(21691) -! JVS(23221) = Jac_FULL(4341,4341) - JVS(23221) = -B(10390)-B(10392)-B(10394)-B(10396)-B(10397)-B(10398) -! JVS(23222) = Jac_FULL(4341,5093) - JVS(23222) = B(6681) -! JVS(23223) = Jac_FULL(4341,5250) - JVS(23223) = B(6682) -! JVS(23224) = Jac_FULL(4341,5252) - JVS(23224) = -B(10393) -! JVS(23225) = Jac_FULL(4341,5255) - JVS(23225) = -B(10391) -! JVS(23226) = Jac_FULL(4341,5256) - JVS(23226) = -B(10395) -! JVS(23227) = Jac_FULL(4342,252) - JVS(23227) = B(23389) -! JVS(23228) = Jac_FULL(4342,1107) - JVS(23228) = B(23393) -! JVS(23229) = Jac_FULL(4342,4342) - JVS(23229) = -B(23394)-B(23396)-B(23398)-B(23400)-B(23402)-B(23403)-B(23404) -! JVS(23230) = Jac_FULL(4342,5027) - JVS(23230) = B(22998)+B(23000)+B(23004)+B(23007) -! JVS(23231) = Jac_FULL(4342,5250) - JVS(23231) = B(23390) -! JVS(23232) = Jac_FULL(4342,5252) - JVS(23232) = B(23001)-B(23397)-B(23399) -! JVS(23233) = Jac_FULL(4342,5255) - JVS(23233) = B(22999)-B(23395) -! JVS(23234) = Jac_FULL(4342,5256) - JVS(23234) = B(23005)-B(23401) -! JVS(23235) = Jac_FULL(4343,1926) - JVS(23235) = B(23946) -! JVS(23236) = Jac_FULL(4343,3642) - JVS(23236) = B(23670) -! JVS(23237) = Jac_FULL(4343,4342) - JVS(23237) = 0 -! JVS(23238) = Jac_FULL(4343,4343) - JVS(23238) = -B(23847)-B(23849)-B(23851)-B(23853)-B(23854) -! JVS(23239) = Jac_FULL(4343,5027) - JVS(23239) = 0 -! JVS(23240) = Jac_FULL(4343,5250) - JVS(23240) = B(23671)+B(23947) -! JVS(23241) = Jac_FULL(4343,5252) - JVS(23241) = -B(23850) -! JVS(23242) = Jac_FULL(4343,5253) - JVS(23242) = 0 -! JVS(23243) = Jac_FULL(4343,5255) - JVS(23243) = -B(23848) -! JVS(23244) = Jac_FULL(4343,5256) - JVS(23244) = -B(23852) -! JVS(23245) = Jac_FULL(4344,829) - JVS(23245) = B(12242) -! JVS(23246) = Jac_FULL(4344,3409) - JVS(23246) = B(4989) -! JVS(23247) = Jac_FULL(4344,3922) - JVS(23247) = 0 -! JVS(23248) = Jac_FULL(4344,4344) - JVS(23248) = -B(8539)-B(8541)-B(8543)-B(8545) -! JVS(23249) = Jac_FULL(4344,4782) - JVS(23249) = 0 -! JVS(23250) = Jac_FULL(4344,5250) - JVS(23250) = B(4990)+B(12243) -! JVS(23251) = Jac_FULL(4344,5252) - JVS(23251) = -B(8542) -! JVS(23252) = Jac_FULL(4344,5255) - JVS(23252) = -B(8540) -! JVS(23253) = Jac_FULL(4344,5256) - JVS(23253) = -B(8544) -! JVS(23254) = Jac_FULL(4345,3278) - JVS(23254) = B(12274) -! JVS(23255) = Jac_FULL(4345,3364) - JVS(23255) = B(5082) -! JVS(23256) = Jac_FULL(4345,3970) - JVS(23256) = 0 -! JVS(23257) = Jac_FULL(4345,4345) - JVS(23257) = -B(8596)-B(8598)-B(8600)-B(8602) -! JVS(23258) = Jac_FULL(4345,4723) - JVS(23258) = 0 -! JVS(23259) = Jac_FULL(4345,5250) - JVS(23259) = B(5083)+B(12275) -! JVS(23260) = Jac_FULL(4345,5252) - JVS(23260) = -B(8599) -! JVS(23261) = Jac_FULL(4345,5255) - JVS(23261) = -B(8597) -! JVS(23262) = Jac_FULL(4345,5256) - JVS(23262) = -B(8601) -! JVS(23263) = Jac_FULL(4346,998) - JVS(23263) = B(23581) -! JVS(23264) = Jac_FULL(4346,1344) - JVS(23264) = B(23576)+B(23578) -! JVS(23265) = Jac_FULL(4346,4346) - JVS(23265) = -B(23582)-B(23584)-B(23586)-B(23588)-B(23589)-B(23590) -! JVS(23266) = Jac_FULL(4346,4854) - JVS(23266) = B(23288)+B(23290)+B(23294)+B(23297) -! JVS(23267) = Jac_FULL(4346,5250) - JVS(23267) = B(23577) -! JVS(23268) = Jac_FULL(4346,5252) - JVS(23268) = B(23291)-B(23585) -! JVS(23269) = Jac_FULL(4346,5255) - JVS(23269) = B(23289)-B(23583) -! JVS(23270) = Jac_FULL(4346,5256) - JVS(23270) = B(23295)-B(23587) -! JVS(23271) = Jac_FULL(4347,2602) - JVS(23271) = B(15622) -! JVS(23272) = Jac_FULL(4347,4347) - JVS(23272) = -B(12531)-B(12533)-B(12535)-B(12537)-B(12538) -! JVS(23273) = Jac_FULL(4347,5076) - JVS(23273) = B(8923) -! JVS(23274) = Jac_FULL(4347,5250) - JVS(23274) = B(8924)+B(15623) -! JVS(23275) = Jac_FULL(4347,5252) - JVS(23275) = -B(12534) -! JVS(23276) = Jac_FULL(4347,5255) - JVS(23276) = -B(12532) -! JVS(23277) = Jac_FULL(4347,5256) - JVS(23277) = -B(12536) -! JVS(23278) = Jac_FULL(4348,1884) - JVS(23278) = B(18996) -! JVS(23279) = Jac_FULL(4348,2939) - JVS(23279) = B(14116) -! JVS(23280) = Jac_FULL(4348,4348) - JVS(23280) = -B(16787)-B(16789)-B(16791)-B(16793)-B(16795)-B(16796)-B(16797) -! JVS(23281) = Jac_FULL(4348,5150) - JVS(23281) = 0 -! JVS(23282) = Jac_FULL(4348,5250) - JVS(23282) = B(18997) -! JVS(23283) = Jac_FULL(4348,5252) - JVS(23283) = -B(16790)-B(16792) -! JVS(23284) = Jac_FULL(4348,5255) - JVS(23284) = -B(16788) -! JVS(23285) = Jac_FULL(4348,5256) - JVS(23285) = -B(16794) -! JVS(23286) = Jac_FULL(4349,803) - JVS(23286) = B(15310) -! JVS(23287) = Jac_FULL(4349,4103) - JVS(23287) = 0 -! JVS(23288) = Jac_FULL(4349,4349) - JVS(23288) = -B(17907)-B(17909)-B(17911)-B(17913)-B(17914)-B(17915) -! JVS(23289) = Jac_FULL(4349,5112) - JVS(23289) = 0 -! JVS(23290) = Jac_FULL(4349,5250) - JVS(23290) = B(15311) -! JVS(23291) = Jac_FULL(4349,5252) - JVS(23291) = -B(17910) -! JVS(23292) = Jac_FULL(4349,5255) - JVS(23292) = -B(17908) -! JVS(23293) = Jac_FULL(4349,5256) - JVS(23293) = -B(17912) -! JVS(23294) = Jac_FULL(4350,1803) - JVS(23294) = B(20762) -! JVS(23295) = Jac_FULL(4350,2759) - JVS(23295) = 0 -! JVS(23296) = Jac_FULL(4350,4166) - JVS(23296) = 0 -! JVS(23297) = Jac_FULL(4350,4350) - JVS(23297) = -B(21795)-B(21797)-B(21799)-B(21801)-B(21802)-B(21803) -! JVS(23298) = Jac_FULL(4350,4789) - JVS(23298) = 0 -! JVS(23299) = Jac_FULL(4350,5250) - JVS(23299) = 0 -! JVS(23300) = Jac_FULL(4350,5252) - JVS(23300) = -B(21798) -! JVS(23301) = Jac_FULL(4350,5255) - JVS(23301) = -B(21796) -! JVS(23302) = Jac_FULL(4350,5256) - JVS(23302) = -B(21800) -! JVS(23303) = Jac_FULL(4351,1859) - JVS(23303) = B(4822) -! JVS(23304) = Jac_FULL(4351,4351) - JVS(23304) = -B(1998)-B(2000)-B(2002)-B(2004)-B(2005)-B(2006) -! JVS(23305) = Jac_FULL(4351,5200) - JVS(23305) = B(429) -! JVS(23306) = Jac_FULL(4351,5250) - JVS(23306) = B(4823) -! JVS(23307) = Jac_FULL(4351,5252) - JVS(23307) = -B(2001) -! JVS(23308) = Jac_FULL(4351,5255) - JVS(23308) = -B(1999) -! JVS(23309) = Jac_FULL(4351,5256) - JVS(23309) = B(430)-B(2003) -! JVS(23310) = Jac_FULL(4352,558) - JVS(23310) = B(10638) -! JVS(23311) = Jac_FULL(4352,1916) - JVS(23311) = B(12191) -! JVS(23312) = Jac_FULL(4352,2580) - JVS(23312) = B(21598) -! JVS(23313) = Jac_FULL(4352,2635) - JVS(23313) = B(21604) -! JVS(23314) = Jac_FULL(4352,4096) - JVS(23314) = 0 -! JVS(23315) = Jac_FULL(4352,4352) - JVS(23315) = -B(12188)-B(12190) -! JVS(23316) = Jac_FULL(4352,4724) - JVS(23316) = B(8460) -! JVS(23317) = Jac_FULL(4352,4772) - JVS(23317) = B(20466)+B(20468)+B(20472)+B(20475) -! JVS(23318) = Jac_FULL(4352,5132) - JVS(23318) = 0 -! JVS(23319) = Jac_FULL(4352,5250) - JVS(23319) = -B(12189)+B(12192)+B(21599)+B(21605) -! JVS(23320) = Jac_FULL(4352,5252) - JVS(23320) = B(20469) -! JVS(23321) = Jac_FULL(4352,5253) - JVS(23321) = 0 -! JVS(23322) = Jac_FULL(4352,5255) - JVS(23322) = B(20467) -! JVS(23323) = Jac_FULL(4352,5256) - JVS(23323) = B(20473) -! JVS(23324) = Jac_FULL(4352,5258) - JVS(23324) = 0 -! JVS(23325) = Jac_FULL(4353,4353) - JVS(23325) = -B(1588)-B(1590)-B(1592)-B(1594)-B(1595)-B(1596) -! JVS(23326) = Jac_FULL(4353,4840) - JVS(23326) = B(256) -! JVS(23327) = Jac_FULL(4353,5250) - JVS(23327) = B(257) -! JVS(23328) = Jac_FULL(4353,5252) - JVS(23328) = -B(1591) -! JVS(23329) = Jac_FULL(4353,5255) - JVS(23329) = -B(1589) -! JVS(23330) = Jac_FULL(4353,5256) - JVS(23330) = -B(1593) -! JVS(23331) = Jac_FULL(4354,2009) - JVS(23331) = B(14869) -! JVS(23332) = Jac_FULL(4354,4354) - JVS(23332) = -B(11533)-B(11535)-B(11537)-B(11539)-B(11540)-B(11541) -! JVS(23333) = Jac_FULL(4354,4882) - JVS(23333) = B(7727) -! JVS(23334) = Jac_FULL(4354,5250) - JVS(23334) = B(7728)+B(14870) -! JVS(23335) = Jac_FULL(4354,5252) - JVS(23335) = -B(11536) -! JVS(23336) = Jac_FULL(4354,5255) - JVS(23336) = -B(11534) -! JVS(23337) = Jac_FULL(4354,5256) - JVS(23337) = -B(11538) -! JVS(23338) = Jac_FULL(4355,609) - JVS(23338) = B(15394) -! JVS(23339) = Jac_FULL(4355,4164) - JVS(23339) = 0 -! JVS(23340) = Jac_FULL(4355,4355) - JVS(23340) = -B(18011)-B(18013)-B(18015)-B(18017)-B(18018)-B(18019) -! JVS(23341) = Jac_FULL(4355,5065) - JVS(23341) = 0 -! JVS(23342) = Jac_FULL(4355,5250) - JVS(23342) = B(15395) -! JVS(23343) = Jac_FULL(4355,5252) - JVS(23343) = -B(18014) -! JVS(23344) = Jac_FULL(4355,5255) - JVS(23344) = -B(18012) -! JVS(23345) = Jac_FULL(4355,5256) - JVS(23345) = -B(18016) -! JVS(23346) = Jac_FULL(4356,2401) - JVS(23346) = B(7170) -! JVS(23347) = Jac_FULL(4356,3843) - JVS(23347) = B(849) -! JVS(23348) = Jac_FULL(4356,4356) - JVS(23348) = -B(3355)-B(3357)-B(3359)-B(3361)-B(3363)-B(3364)-B(3365) -! JVS(23349) = Jac_FULL(4356,5186) - JVS(23349) = 0 -! JVS(23350) = Jac_FULL(4356,5250) - JVS(23350) = B(850)+B(7171) -! JVS(23351) = Jac_FULL(4356,5252) - JVS(23351) = -B(3358)-B(3360) -! JVS(23352) = Jac_FULL(4356,5255) - JVS(23352) = -B(3356) -! JVS(23353) = Jac_FULL(4356,5256) - JVS(23353) = -B(3362) -! JVS(23354) = Jac_FULL(4357,1499) - JVS(23354) = B(17682) -! JVS(23355) = Jac_FULL(4357,4357) - JVS(23355) = -B(15109)-B(15111)-B(15113)-B(15115)-B(15117)-B(15118) -! JVS(23356) = Jac_FULL(4357,5063) - JVS(23356) = B(11900) -! JVS(23357) = Jac_FULL(4357,5250) - JVS(23357) = B(11901)+B(17683) -! JVS(23358) = Jac_FULL(4357,5252) - JVS(23358) = -B(15112)-B(15114) -! JVS(23359) = Jac_FULL(4357,5255) - JVS(23359) = -B(15110) -! JVS(23360) = Jac_FULL(4357,5256) - JVS(23360) = -B(15116) -! JVS(23361) = Jac_FULL(4358,3446) - JVS(23361) = B(12386) -! JVS(23362) = Jac_FULL(4358,4358) - JVS(23362) = -B(8741)-B(8743)-B(8745)-B(8747)-B(8748)-B(8749) -! JVS(23363) = Jac_FULL(4358,5058) - JVS(23363) = B(5264) -! JVS(23364) = Jac_FULL(4358,5250) - JVS(23364) = B(5265)+B(12387) -! JVS(23365) = Jac_FULL(4358,5252) - JVS(23365) = -B(8744) -! JVS(23366) = Jac_FULL(4358,5255) - JVS(23366) = -B(8742) -! JVS(23367) = Jac_FULL(4358,5256) - JVS(23367) = -B(8746) -! JVS(23368) = Jac_FULL(4359,2647) - JVS(23368) = B(3904) -! JVS(23369) = Jac_FULL(4359,3205) - JVS(23369) = B(11502) -! JVS(23370) = Jac_FULL(4359,4359) - JVS(23370) = -B(7700)-B(7702)-B(7704)-B(7706)-B(7708)-B(7709)-B(7710) -! JVS(23371) = Jac_FULL(4359,5116) - JVS(23371) = 0 -! JVS(23372) = Jac_FULL(4359,5250) - JVS(23372) = B(11503) -! JVS(23373) = Jac_FULL(4359,5252) - JVS(23373) = -B(7703)-B(7705) -! JVS(23374) = Jac_FULL(4359,5255) - JVS(23374) = -B(7701) -! JVS(23375) = Jac_FULL(4359,5256) - JVS(23375) = -B(7707) -! JVS(23376) = Jac_FULL(4360,188) - JVS(23376) = B(12165) -! JVS(23377) = Jac_FULL(4360,1536) - JVS(23377) = 0 -! JVS(23378) = Jac_FULL(4360,1889) - JVS(23378) = 0 -! JVS(23379) = Jac_FULL(4360,3952) - JVS(23379) = 0 -! JVS(23380) = Jac_FULL(4360,4360) - JVS(23380) = -B(15403)-B(15405)-B(15407)-B(15409)-B(15411)-B(15412)-B(15413) -! JVS(23381) = Jac_FULL(4360,5181) - JVS(23381) = 0 -! JVS(23382) = Jac_FULL(4360,5250) - JVS(23382) = 0 -! JVS(23383) = Jac_FULL(4360,5252) - JVS(23383) = -B(15406)-B(15408) -! JVS(23384) = Jac_FULL(4360,5255) - JVS(23384) = -B(15404) -! JVS(23385) = Jac_FULL(4360,5256) - JVS(23385) = -B(15410) -! JVS(23386) = Jac_FULL(4361,794) - JVS(23386) = B(15366) -! JVS(23387) = Jac_FULL(4361,4179) - JVS(23387) = 0 -! JVS(23388) = Jac_FULL(4361,4361) - JVS(23388) = -B(17967)-B(17969)-B(17971)-B(17973)-B(17974)-B(17975) -! JVS(23389) = Jac_FULL(4361,5138) - JVS(23389) = 0 -! JVS(23390) = Jac_FULL(4361,5250) - JVS(23390) = B(15367) -! JVS(23391) = Jac_FULL(4361,5252) - JVS(23391) = -B(17970) -! JVS(23392) = Jac_FULL(4361,5255) - JVS(23392) = -B(17968) -! JVS(23393) = Jac_FULL(4361,5256) - JVS(23393) = -B(17972) -! JVS(23394) = Jac_FULL(4362,2694) - JVS(23394) = B(23273) -! JVS(23395) = Jac_FULL(4362,3846) - JVS(23395) = 0 -! JVS(23396) = Jac_FULL(4362,4362) - JVS(23396) = -B(23567)-B(23569)-B(23571)-B(23572) -! JVS(23397) = Jac_FULL(4362,4898) - JVS(23397) = 0 -! JVS(23398) = Jac_FULL(4362,5250) - JVS(23398) = -B(23570) -! JVS(23399) = Jac_FULL(4362,5252) - JVS(23399) = 0 -! JVS(23400) = Jac_FULL(4362,5255) - JVS(23400) = 0 -! JVS(23401) = Jac_FULL(4362,5256) - JVS(23401) = -B(23568) -! JVS(23402) = Jac_FULL(4363,326) - JVS(23402) = B(17367) -! JVS(23403) = Jac_FULL(4363,970) - JVS(23403) = 0 -! JVS(23404) = Jac_FULL(4363,2239) - JVS(23404) = 0 -! JVS(23405) = Jac_FULL(4363,4363) - JVS(23405) = -B(19518)-B(19520)-B(19522)-B(19524)-B(19526)-B(19527)-B(19528) -! JVS(23406) = Jac_FULL(4363,4394) - JVS(23406) = 0 -! JVS(23407) = Jac_FULL(4363,5250) - JVS(23407) = 0 -! JVS(23408) = Jac_FULL(4363,5252) - JVS(23408) = -B(19521)-B(19523) -! JVS(23409) = Jac_FULL(4363,5255) - JVS(23409) = -B(19519) -! JVS(23410) = Jac_FULL(4363,5256) - JVS(23410) = -B(19525) -! JVS(23411) = Jac_FULL(4364,2010) - JVS(23411) = B(4019) -! JVS(23412) = Jac_FULL(4364,4364) - JVS(23412) = -B(1239)-B(1241)-B(1243)-B(1245)-B(1246)-B(1247) -! JVS(23413) = Jac_FULL(4364,4555) - JVS(23413) = B(161) -! JVS(23414) = Jac_FULL(4364,5250) - JVS(23414) = B(4020) -! JVS(23415) = Jac_FULL(4364,5252) - JVS(23415) = -B(1242) -! JVS(23416) = Jac_FULL(4364,5255) - JVS(23416) = -B(1240) -! JVS(23417) = Jac_FULL(4364,5256) - JVS(23417) = B(162)-B(1244) -! JVS(23418) = Jac_FULL(4365,167) - JVS(23418) = B(7176) -! JVS(23419) = Jac_FULL(4365,2213) - JVS(23419) = 0 -! JVS(23420) = Jac_FULL(4365,2401) - JVS(23420) = 0 -! JVS(23421) = Jac_FULL(4365,3473) - JVS(23421) = B(14154) -! JVS(23422) = Jac_FULL(4365,4356) - JVS(23422) = 0 -! JVS(23423) = Jac_FULL(4365,4365) - JVS(23423) = -B(10955)-B(10957)-B(10959)-B(10961)-B(10962)-B(10963) -! JVS(23424) = Jac_FULL(4365,5186) - JVS(23424) = 0 -! JVS(23425) = Jac_FULL(4365,5250) - JVS(23425) = B(14155) -! JVS(23426) = Jac_FULL(4365,5252) - JVS(23426) = -B(10958) -! JVS(23427) = Jac_FULL(4365,5255) - JVS(23427) = -B(10956) -! JVS(23428) = Jac_FULL(4365,5256) - JVS(23428) = -B(10960) -! JVS(23429) = Jac_FULL(4366,645) - JVS(23429) = B(20521) -! JVS(23430) = Jac_FULL(4366,1892) - JVS(23430) = B(21615) -! JVS(23431) = Jac_FULL(4366,2289) - JVS(23431) = 0 -! JVS(23432) = Jac_FULL(4366,2568) - JVS(23432) = B(20551) -! JVS(23433) = Jac_FULL(4366,3215) - JVS(23433) = B(20545) -! JVS(23434) = Jac_FULL(4366,3216) - JVS(23434) = B(20543) -! JVS(23435) = Jac_FULL(4366,3217) - JVS(23435) = 0 -! JVS(23436) = Jac_FULL(4366,3276) - JVS(23436) = B(20524) -! JVS(23437) = Jac_FULL(4366,3324) - JVS(23437) = B(20529) -! JVS(23438) = Jac_FULL(4366,3490) - JVS(23438) = B(20515) -! JVS(23439) = Jac_FULL(4366,3620) - JVS(23439) = 0 -! JVS(23440) = Jac_FULL(4366,3837) - JVS(23440) = B(18949) -! JVS(23441) = Jac_FULL(4366,3864) - JVS(23441) = 0 -! JVS(23442) = Jac_FULL(4366,4123) - JVS(23442) = 0 -! JVS(23443) = Jac_FULL(4366,4366) - JVS(23443) = -B(20546)-B(20548) -! JVS(23444) = Jac_FULL(4366,4599) - JVS(23444) = 0 -! JVS(23445) = Jac_FULL(4366,4816) - JVS(23445) = 0 -! JVS(23446) = Jac_FULL(4366,5024) - JVS(23446) = 0 -! JVS(23447) = Jac_FULL(4366,5091) - JVS(23447) = 0 -! JVS(23448) = Jac_FULL(4366,5250) - JVS(23448) = B(20525)+B(20530)-B(20547) -! JVS(23449) = Jac_FULL(4366,5252) - JVS(23449) = 0 -! JVS(23450) = Jac_FULL(4366,5253) - JVS(23450) = 0 -! JVS(23451) = Jac_FULL(4366,5255) - JVS(23451) = 0 -! JVS(23452) = Jac_FULL(4366,5256) - JVS(23452) = 0 -! JVS(23453) = Jac_FULL(4367,2572) - JVS(23453) = B(7150) -! JVS(23454) = Jac_FULL(4367,3843) - JVS(23454) = B(845) -! JVS(23455) = Jac_FULL(4367,4367) - JVS(23455) = -B(3337)-B(3339)-B(3341)-B(3343)-B(3344)-B(3345) -! JVS(23456) = Jac_FULL(4367,5186) - JVS(23456) = 0 -! JVS(23457) = Jac_FULL(4367,5250) - JVS(23457) = B(846)+B(7151) -! JVS(23458) = Jac_FULL(4367,5252) - JVS(23458) = -B(3340) -! JVS(23459) = Jac_FULL(4367,5255) - JVS(23459) = -B(3338) -! JVS(23460) = Jac_FULL(4367,5256) - JVS(23460) = -B(3342) -! JVS(23461) = Jac_FULL(4368,3472) - JVS(23461) = B(6975)+B(6979) -! JVS(23462) = Jac_FULL(4368,4368) - JVS(23462) = -B(10781)-B(10783)-B(10785)-B(10787)-B(10789)-B(10791)-B(10792)-B(10793) -! JVS(23463) = Jac_FULL(4368,4609) - JVS(23463) = 0 -! JVS(23464) = Jac_FULL(4368,5250) - JVS(23464) = B(6980) -! JVS(23465) = Jac_FULL(4368,5252) - JVS(23465) = -B(10786)-B(10788) -! JVS(23466) = Jac_FULL(4368,5255) - JVS(23466) = -B(10782)-B(10784) -! JVS(23467) = Jac_FULL(4368,5256) - JVS(23467) = B(6976)-B(10790) -! JVS(23468) = Jac_FULL(4369,602) - JVS(23468) = B(15289) -! JVS(23469) = Jac_FULL(4369,3917) - JVS(23469) = 0 -! JVS(23470) = Jac_FULL(4369,4369) - JVS(23470) = -B(17881)-B(17883)-B(17885)-B(17887)-B(17888)-B(17889) -! JVS(23471) = Jac_FULL(4369,5144) - JVS(23471) = 0 -! JVS(23472) = Jac_FULL(4369,5250) - JVS(23472) = B(15290) -! JVS(23473) = Jac_FULL(4369,5252) - JVS(23473) = -B(17884) -! JVS(23474) = Jac_FULL(4369,5255) - JVS(23474) = -B(17882) -! JVS(23475) = Jac_FULL(4369,5256) - JVS(23475) = -B(17886) -! JVS(23476) = Jac_FULL(4370,2442) - JVS(23476) = B(4834) -! JVS(23477) = Jac_FULL(4370,4370) - JVS(23477) = -B(2007)-B(2009)-B(2011)-B(2013)-B(2014)-B(2015) -! JVS(23478) = Jac_FULL(4370,5200) - JVS(23478) = B(431) -! JVS(23479) = Jac_FULL(4370,5250) - JVS(23479) = B(4835) -! JVS(23480) = Jac_FULL(4370,5252) - JVS(23480) = -B(2010) -! JVS(23481) = Jac_FULL(4370,5255) - JVS(23481) = -B(2008) -! JVS(23482) = Jac_FULL(4370,5256) - JVS(23482) = B(432)-B(2012) -! JVS(23483) = Jac_FULL(4371,1350) - JVS(23483) = B(21874) -! JVS(23484) = Jac_FULL(4371,4371) - JVS(23484) = -B(21875)-B(21877)-B(21879)-B(21881) -! JVS(23485) = Jac_FULL(4371,5073) - JVS(23485) = B(20825)+B(20827)+B(20831)+B(20833) -! JVS(23486) = Jac_FULL(4371,5250) - JVS(23486) = 0 -! JVS(23487) = Jac_FULL(4371,5252) - JVS(23487) = B(20828)-B(21878) -! JVS(23488) = Jac_FULL(4371,5255) - JVS(23488) = B(20826)-B(21876) -! JVS(23489) = Jac_FULL(4371,5256) - JVS(23489) = B(20832)-B(21880) -! JVS(23490) = Jac_FULL(4372,4372) - JVS(23490) = -B(3077)-B(3079)-B(3081)-B(3083)-B(3085)-B(3086)-B(3087) -! JVS(23491) = Jac_FULL(4372,5153) - JVS(23491) = B(775) -! JVS(23492) = Jac_FULL(4372,5250) - JVS(23492) = B(776) -! JVS(23493) = Jac_FULL(4372,5252) - JVS(23493) = -B(3080)-B(3082) -! JVS(23494) = Jac_FULL(4372,5255) - JVS(23494) = -B(3078) -! JVS(23495) = Jac_FULL(4372,5256) - JVS(23495) = -B(3084) -! JVS(23496) = Jac_FULL(4373,1395) - JVS(23496) = B(6686) -! JVS(23497) = Jac_FULL(4373,2222) - JVS(23497) = B(6613) -! JVS(23498) = Jac_FULL(4373,3636) - JVS(23498) = 0 -! JVS(23499) = Jac_FULL(4373,4372) - JVS(23499) = B(3087) -! JVS(23500) = Jac_FULL(4373,4373) - JVS(23500) = -B(6689)-B(6690)-B(6692) -! JVS(23501) = Jac_FULL(4373,5153) - JVS(23501) = 0 -! JVS(23502) = Jac_FULL(4373,5250) - JVS(23502) = B(6614)+B(6687)-B(6693) -! JVS(23503) = Jac_FULL(4373,5252) - JVS(23503) = 0 -! JVS(23504) = Jac_FULL(4373,5255) - JVS(23504) = 0 -! JVS(23505) = Jac_FULL(4373,5256) - JVS(23505) = -B(6691) -! JVS(23506) = Jac_FULL(4374,153) - JVS(23506) = B(3752) -! JVS(23507) = Jac_FULL(4374,1800) - JVS(23507) = 0 -! JVS(23508) = Jac_FULL(4374,2391) - JVS(23508) = 0 -! JVS(23509) = Jac_FULL(4374,4374) - JVS(23509) = -B(7616)-B(7618)-B(7620)-B(7622)-B(7624)-B(7625)-B(7626) -! JVS(23510) = Jac_FULL(4374,5185) - JVS(23510) = 0 -! JVS(23511) = Jac_FULL(4374,5250) - JVS(23511) = 0 -! JVS(23512) = Jac_FULL(4374,5252) - JVS(23512) = -B(7619)-B(7621) -! JVS(23513) = Jac_FULL(4374,5255) - JVS(23513) = -B(7617) -! JVS(23514) = Jac_FULL(4374,5256) - JVS(23514) = -B(7623) -! JVS(23515) = Jac_FULL(4375,1355) - JVS(23515) = B(13054) -! JVS(23516) = Jac_FULL(4375,3199) - JVS(23516) = B(13059) -! JVS(23517) = Jac_FULL(4375,3661) - JVS(23517) = B(5939)+B(5941)+B(5944) -! JVS(23518) = Jac_FULL(4375,4375) - JVS(23518) = -B(9603)-B(9605)-B(9607)-B(9609)-B(9611)-B(9613)-B(9615)-B(9616) -! JVS(23519) = Jac_FULL(4375,5250) - JVS(23519) = B(5942)+B(13055) -! JVS(23520) = Jac_FULL(4375,5252) - JVS(23520) = -B(9610) -! JVS(23521) = Jac_FULL(4375,5253) - JVS(23521) = -B(9612) -! JVS(23522) = Jac_FULL(4375,5255) - JVS(23522) = -B(9604)-B(9606)-B(9608) -! JVS(23523) = Jac_FULL(4375,5256) - JVS(23523) = B(5940)-B(9614) -! JVS(23524) = Jac_FULL(4376,227) - JVS(23524) = B(13052) -! JVS(23525) = Jac_FULL(4376,1355) - JVS(23525) = B(13056) -! JVS(23526) = Jac_FULL(4376,2177) - JVS(23526) = B(12590) -! JVS(23527) = Jac_FULL(4376,3199) - JVS(23527) = 0 -! JVS(23528) = Jac_FULL(4376,3661) - JVS(23528) = B(5943) -! JVS(23529) = Jac_FULL(4376,4375) - JVS(23529) = B(9603)+B(9609)+B(9613)+B(9615) -! JVS(23530) = Jac_FULL(4376,4376) - JVS(23530) = -B(8999)-B(9001)-B(9003)-B(9005) -! JVS(23531) = Jac_FULL(4376,4478) - JVS(23531) = B(5460) -! JVS(23532) = Jac_FULL(4376,5250) - JVS(23532) = B(12591)+B(13053) -! JVS(23533) = Jac_FULL(4376,5252) - JVS(23533) = -B(9002)+B(9610) -! JVS(23534) = Jac_FULL(4376,5253) - JVS(23534) = 0 -! JVS(23535) = Jac_FULL(4376,5255) - JVS(23535) = -B(9000)+B(9604) -! JVS(23536) = Jac_FULL(4376,5256) - JVS(23536) = -B(9004)+B(9614) -! JVS(23537) = Jac_FULL(4376,5258) - JVS(23537) = B(5461) -! JVS(23538) = Jac_FULL(4377,4094) - JVS(23538) = B(2631) -! JVS(23539) = Jac_FULL(4377,4377) - JVS(23539) = -B(5824)-B(5826)-B(5828)-B(5830)-B(5832)-B(5833)-B(5834) -! JVS(23540) = Jac_FULL(4377,5250) - JVS(23540) = B(2632) -! JVS(23541) = Jac_FULL(4377,5252) - JVS(23541) = -B(5827)-B(5829) -! JVS(23542) = Jac_FULL(4377,5255) - JVS(23542) = -B(5825) -! JVS(23543) = Jac_FULL(4377,5256) - JVS(23543) = -B(5831) -! JVS(23544) = Jac_FULL(4377,5258) - JVS(23544) = 0 -! JVS(23545) = Jac_FULL(4378,261) - JVS(23545) = B(16599) -! JVS(23546) = Jac_FULL(4378,2590) - JVS(23546) = 0 -! JVS(23547) = Jac_FULL(4378,4378) - JVS(23547) = -B(16644)-B(16646)-B(16648) -! JVS(23548) = Jac_FULL(4378,5154) - JVS(23548) = 0 -! JVS(23549) = Jac_FULL(4378,5174) - JVS(23549) = B(13822) -! JVS(23550) = Jac_FULL(4378,5250) - JVS(23550) = -B(16645)-B(16647) -! JVS(23551) = Jac_FULL(4378,5252) - JVS(23551) = B(13823) -! JVS(23552) = Jac_FULL(4378,5255) - JVS(23552) = 0 -! JVS(23553) = Jac_FULL(4379,2766) - JVS(23553) = B(16166) -! JVS(23554) = Jac_FULL(4379,3664) - JVS(23554) = B(13060) -! JVS(23555) = Jac_FULL(4379,4379) - JVS(23555) = -B(16133)-B(16134) -! JVS(23556) = Jac_FULL(4379,4888) - JVS(23556) = B(13081)+B(13087)+B(13091)+B(13093) -! JVS(23557) = Jac_FULL(4379,5250) - JVS(23557) = B(13061) -! JVS(23558) = Jac_FULL(4379,5252) - JVS(23558) = B(13088) -! JVS(23559) = Jac_FULL(4379,5255) - JVS(23559) = B(13082) -! JVS(23560) = Jac_FULL(4379,5256) - JVS(23560) = B(13092) -! JVS(23561) = Jac_FULL(4380,1106) - JVS(23561) = B(7648) -! JVS(23562) = Jac_FULL(4380,1573) - JVS(23562) = B(1080)+B(1084) -! JVS(23563) = Jac_FULL(4380,2743) - JVS(23563) = B(7653) -! JVS(23564) = Jac_FULL(4380,4380) - JVS(23564) = -B(3809)-B(3811)-B(3813)-B(3815)-B(3817)-B(3819)-B(3821)-B(3822) -! JVS(23565) = Jac_FULL(4380,5250) - JVS(23565) = B(1085)+B(7649) -! JVS(23566) = Jac_FULL(4380,5252) - JVS(23566) = -B(3816) -! JVS(23567) = Jac_FULL(4380,5253) - JVS(23567) = -B(3818) -! JVS(23568) = Jac_FULL(4380,5255) - JVS(23568) = -B(3810)-B(3812)-B(3814) -! JVS(23569) = Jac_FULL(4380,5256) - JVS(23569) = B(1081)-B(3820) -! JVS(23570) = Jac_FULL(4381,1830) - JVS(23570) = B(18374) -! JVS(23571) = Jac_FULL(4381,2274) - JVS(23571) = B(12879) -! JVS(23572) = Jac_FULL(4381,4381) - JVS(23572) = -B(15951)-B(15953)-B(15955)-B(15957) -! JVS(23573) = Jac_FULL(4381,4619) - JVS(23573) = 0 -! JVS(23574) = Jac_FULL(4381,5250) - JVS(23574) = B(18375) -! JVS(23575) = Jac_FULL(4381,5252) - JVS(23575) = -B(15954) -! JVS(23576) = Jac_FULL(4381,5255) - JVS(23576) = -B(15952) -! JVS(23577) = Jac_FULL(4381,5256) - JVS(23577) = B(12880)-B(15956) -! JVS(23578) = Jac_FULL(4382,4382) - JVS(23578) = -B(1459)-B(1461)-B(1463)-B(1465)-B(1466)-B(1467)-B(1468) -! JVS(23579) = Jac_FULL(4382,5194) - JVS(23579) = B(217) -! JVS(23580) = Jac_FULL(4382,5250) - JVS(23580) = B(218) -! JVS(23581) = Jac_FULL(4382,5252) - JVS(23581) = -B(1462) -! JVS(23582) = Jac_FULL(4382,5255) - JVS(23582) = -B(1460) -! JVS(23583) = Jac_FULL(4382,5256) - JVS(23583) = -B(1464) -! JVS(23584) = Jac_FULL(4383,1246) - JVS(23584) = B(13770) -! JVS(23585) = Jac_FULL(4383,1848) - JVS(23585) = B(16625) -! JVS(23586) = Jac_FULL(4383,3449) - JVS(23586) = 0 -! JVS(23587) = Jac_FULL(4383,3524) - JVS(23587) = B(13769) -! JVS(23588) = Jac_FULL(4383,4339) - JVS(23588) = 0 -! JVS(23589) = Jac_FULL(4383,4383) - JVS(23589) = -B(6991)-B(6993)-B(6995)-B(6996) -! JVS(23590) = Jac_FULL(4383,4617) - JVS(23590) = 0 -! JVS(23591) = Jac_FULL(4383,4749) - JVS(23591) = B(13773)+B(13776) -! JVS(23592) = Jac_FULL(4383,5002) - JVS(23592) = B(10582) -! JVS(23593) = Jac_FULL(4383,5241) - JVS(23593) = B(3198) -! JVS(23594) = Jac_FULL(4383,5250) - JVS(23594) = -B(6992)-B(6994)+B(13774) -! JVS(23595) = Jac_FULL(4383,5252) - JVS(23595) = 0 -! JVS(23596) = Jac_FULL(4383,5255) - JVS(23596) = B(3199) -! JVS(23597) = Jac_FULL(4383,5256) - JVS(23597) = 0 -! JVS(23598) = Jac_FULL(4383,5258) - JVS(23598) = B(10583) -! JVS(23599) = Jac_FULL(4384,2910) - JVS(23599) = B(19725) -! JVS(23600) = Jac_FULL(4384,3274) - JVS(23600) = B(22169) -! JVS(23601) = Jac_FULL(4384,4384) - JVS(23601) = -B(21192)-B(21194)-B(21196)-B(21198) -! JVS(23602) = Jac_FULL(4384,4811) - JVS(23602) = 0 -! JVS(23603) = Jac_FULL(4384,5250) - JVS(23603) = B(19726)+B(22170) -! JVS(23604) = Jac_FULL(4384,5252) - JVS(23604) = -B(21195) -! JVS(23605) = Jac_FULL(4384,5255) - JVS(23605) = -B(21193) -! JVS(23606) = Jac_FULL(4384,5256) - JVS(23606) = -B(21197) -! JVS(23607) = Jac_FULL(4385,1961) - JVS(23607) = B(21045) -! JVS(23608) = Jac_FULL(4385,2908) - JVS(23608) = 0 -! JVS(23609) = Jac_FULL(4385,2909) - JVS(23609) = B(19464) -! JVS(23610) = Jac_FULL(4385,3890) - JVS(23610) = 0 -! JVS(23611) = Jac_FULL(4385,3901) - JVS(23611) = 0 -! JVS(23612) = Jac_FULL(4385,4385) - JVS(23612) = -B(21029)-B(21031)-B(21033)-B(21035)-B(21037)-B(21038) -! JVS(23613) = Jac_FULL(4385,5041) - JVS(23613) = 0 -! JVS(23614) = Jac_FULL(4385,5250) - JVS(23614) = B(19465) -! JVS(23615) = Jac_FULL(4385,5252) - JVS(23615) = -B(21032)-B(21034) -! JVS(23616) = Jac_FULL(4385,5255) - JVS(23616) = -B(21030) -! JVS(23617) = Jac_FULL(4385,5256) - JVS(23617) = -B(21036) -! JVS(23618) = Jac_FULL(4386,335) - JVS(23618) = B(3710) -! JVS(23619) = Jac_FULL(4386,1782) - JVS(23619) = B(3705) -! JVS(23620) = Jac_FULL(4386,2503) - JVS(23620) = B(3699) -! JVS(23621) = Jac_FULL(4386,2684) - JVS(23621) = B(11520) -! JVS(23622) = Jac_FULL(4386,2999) - JVS(23622) = B(19699) -! JVS(23623) = Jac_FULL(4386,4386) - JVS(23623) = -B(3707)-B(3709) -! JVS(23624) = Jac_FULL(4386,4387) - JVS(23624) = 0 -! JVS(23625) = Jac_FULL(4386,4802) - JVS(23625) = 0 -! JVS(23626) = Jac_FULL(4386,5007) - JVS(23626) = B(996) -! JVS(23627) = Jac_FULL(4386,5008) - JVS(23627) = 0 -! JVS(23628) = Jac_FULL(4386,5098) - JVS(23628) = B(3225) -! JVS(23629) = Jac_FULL(4386,5250) - JVS(23629) = B(3700)+B(3706)-B(3708)+B(3711)+B(11521)+B(19700) -! JVS(23630) = Jac_FULL(4386,5252) - JVS(23630) = 0 -! JVS(23631) = Jac_FULL(4386,5253) - JVS(23631) = 0 -! JVS(23632) = Jac_FULL(4386,5255) - JVS(23632) = 0 -! JVS(23633) = Jac_FULL(4387,3465) - JVS(23633) = B(453) -! JVS(23634) = Jac_FULL(4387,3466) - JVS(23634) = B(459) -! JVS(23635) = Jac_FULL(4387,4387) - JVS(23635) = -B(2053)-B(2055)-B(2057)-B(2059)-B(2060)-B(2061) -! JVS(23636) = Jac_FULL(4387,5250) - JVS(23636) = 0 -! JVS(23637) = Jac_FULL(4387,5252) - JVS(23637) = -B(2056) -! JVS(23638) = Jac_FULL(4387,5255) - JVS(23638) = -B(2054) -! JVS(23639) = Jac_FULL(4387,5256) - JVS(23639) = B(454)+B(460)-B(2058) -! JVS(23640) = Jac_FULL(4387,5258) - JVS(23640) = 0 -! JVS(23641) = Jac_FULL(4388,732) - JVS(23641) = B(9480) -! JVS(23642) = Jac_FULL(4388,851) - JVS(23642) = B(9469) -! JVS(23643) = Jac_FULL(4388,4377) - JVS(23643) = B(5828)+B(5830)+B(5833) -! JVS(23644) = Jac_FULL(4388,4388) - JVS(23644) = -B(9473)-B(9474) -! JVS(23645) = Jac_FULL(4388,5250) - JVS(23645) = 0 -! JVS(23646) = Jac_FULL(4388,5252) - JVS(23646) = B(5829) -! JVS(23647) = Jac_FULL(4388,5255) - JVS(23647) = 0 -! JVS(23648) = Jac_FULL(4388,5256) - JVS(23648) = B(5831) -! JVS(23649) = Jac_FULL(4388,5258) - JVS(23649) = 0 -! JVS(23650) = Jac_FULL(4389,769) - JVS(23650) = B(15338) -! JVS(23651) = Jac_FULL(4389,4122) - JVS(23651) = 0 -! JVS(23652) = Jac_FULL(4389,4389) - JVS(23652) = -B(17937)-B(17939)-B(17941)-B(17943)-B(17944)-B(17945) -! JVS(23653) = Jac_FULL(4389,5107) - JVS(23653) = 0 -! JVS(23654) = Jac_FULL(4389,5250) - JVS(23654) = B(15339) -! JVS(23655) = Jac_FULL(4389,5252) - JVS(23655) = -B(17940) -! JVS(23656) = Jac_FULL(4389,5255) - JVS(23656) = -B(17938) -! JVS(23657) = Jac_FULL(4389,5256) - JVS(23657) = -B(17942) -! JVS(23658) = Jac_FULL(4390,2878) - JVS(23658) = B(7127) -! JVS(23659) = Jac_FULL(4390,3505) - JVS(23659) = B(840) -! JVS(23660) = Jac_FULL(4390,4390) - JVS(23660) = -B(3317)-B(3319)-B(3321)-B(3323)-B(3324)-B(3325) -! JVS(23661) = Jac_FULL(4390,5109) - JVS(23661) = 0 -! JVS(23662) = Jac_FULL(4390,5250) - JVS(23662) = B(841)+B(7128) -! JVS(23663) = Jac_FULL(4390,5252) - JVS(23663) = -B(3320) -! JVS(23664) = Jac_FULL(4390,5255) - JVS(23664) = -B(3318) -! JVS(23665) = Jac_FULL(4390,5256) - JVS(23665) = -B(3322) -! JVS(23666) = Jac_FULL(4391,289) - JVS(23666) = B(17594) -! JVS(23667) = Jac_FULL(4391,1490) - JVS(23667) = B(17587) -! JVS(23668) = Jac_FULL(4391,1633) - JVS(23668) = B(19702) -! JVS(23669) = Jac_FULL(4391,1978) - JVS(23669) = B(17590) -! JVS(23670) = Jac_FULL(4391,2646) - JVS(23670) = B(17593) -! JVS(23671) = Jac_FULL(4391,2846) - JVS(23671) = B(17602) -! JVS(23672) = Jac_FULL(4391,2981) - JVS(23672) = B(19695) -! JVS(23673) = Jac_FULL(4391,4391) - JVS(23673) = -B(7042)-B(7044) -! JVS(23674) = Jac_FULL(4391,4802) - JVS(23674) = 0 -! JVS(23675) = Jac_FULL(4391,4934) - JVS(23675) = 0 -! JVS(23676) = Jac_FULL(4391,5120) - JVS(23676) = B(15019) -! JVS(23677) = Jac_FULL(4391,5151) - JVS(23677) = B(3246) -! JVS(23678) = Jac_FULL(4391,5250) - JVS(23678) = -B(7043)+B(17588)+B(17591)+B(17595)+B(17603) -! JVS(23679) = Jac_FULL(4391,5252) - JVS(23679) = 0 -! JVS(23680) = Jac_FULL(4391,5253) - JVS(23680) = 0 -! JVS(23681) = Jac_FULL(4391,5255) - JVS(23681) = 0 -! JVS(23682) = Jac_FULL(4391,5256) - JVS(23682) = 0 -! JVS(23683) = Jac_FULL(4392,1646) - JVS(23683) = B(14056) -! JVS(23684) = Jac_FULL(4392,2437) - JVS(23684) = B(23941) -! JVS(23685) = Jac_FULL(4392,2483) - JVS(23685) = B(23845) -! JVS(23686) = Jac_FULL(4392,2703) - JVS(23686) = B(23833) -! JVS(23687) = Jac_FULL(4392,3480) - JVS(23687) = B(23839) -! JVS(23688) = Jac_FULL(4392,3602) - JVS(23688) = B(11464) -! JVS(23689) = Jac_FULL(4392,3615) - JVS(23689) = B(23841) -! JVS(23690) = Jac_FULL(4392,4116) - JVS(23690) = B(23832) -! JVS(23691) = Jac_FULL(4392,4169) - JVS(23691) = B(10862) -! JVS(23692) = Jac_FULL(4392,4374) - JVS(23692) = 0 -! JVS(23693) = Jac_FULL(4392,4392) - JVS(23693) = -B(14059)-B(14060) -! JVS(23694) = Jac_FULL(4392,4779) - JVS(23694) = 0 -! JVS(23695) = Jac_FULL(4392,5054) - JVS(23695) = 0 -! JVS(23696) = Jac_FULL(4392,5161) - JVS(23696) = 0 -! JVS(23697) = Jac_FULL(4392,5185) - JVS(23697) = 0 -! JVS(23698) = Jac_FULL(4392,5250) - JVS(23698) = B(11465)+B(14057)-B(14061)+B(23834)+B(23942) -! JVS(23699) = Jac_FULL(4392,5252) - JVS(23699) = 0 -! JVS(23700) = Jac_FULL(4392,5253) - JVS(23700) = 0 -! JVS(23701) = Jac_FULL(4392,5255) - JVS(23701) = 0 -! JVS(23702) = Jac_FULL(4392,5256) - JVS(23702) = 0 -! JVS(23703) = Jac_FULL(4393,531) - JVS(23703) = B(9591) -! JVS(23704) = Jac_FULL(4393,1065) - JVS(23704) = B(9580) -! JVS(23705) = Jac_FULL(4393,4393) - JVS(23705) = -B(9584)-B(9585) -! JVS(23706) = Jac_FULL(4393,4928) - JVS(23706) = B(5916)+B(5918)+B(5921) -! JVS(23707) = Jac_FULL(4393,5250) - JVS(23707) = 0 -! JVS(23708) = Jac_FULL(4393,5252) - JVS(23708) = B(5917) -! JVS(23709) = Jac_FULL(4393,5255) - JVS(23709) = 0 -! JVS(23710) = Jac_FULL(4393,5256) - JVS(23710) = B(5919) -! JVS(23711) = Jac_FULL(4394,172) - JVS(23711) = B(11418) -! JVS(23712) = Jac_FULL(4394,970) - JVS(23712) = B(17361) -! JVS(23713) = Jac_FULL(4394,1128) - JVS(23713) = 0 -! JVS(23714) = Jac_FULL(4394,2108) - JVS(23714) = 0 -! JVS(23715) = Jac_FULL(4394,4394) - JVS(23715) = -B(14772)-B(14774)-B(14776)-B(14778)-B(14780)-B(14781) -! JVS(23716) = Jac_FULL(4394,5206) - JVS(23716) = 0 -! JVS(23717) = Jac_FULL(4394,5250) - JVS(23717) = B(17362) -! JVS(23718) = Jac_FULL(4394,5252) - JVS(23718) = -B(14775)-B(14777) -! JVS(23719) = Jac_FULL(4394,5255) - JVS(23719) = -B(14773) -! JVS(23720) = Jac_FULL(4394,5256) - JVS(23720) = -B(14779) -! JVS(23721) = Jac_FULL(4395,4395) - JVS(23721) = -B(749)-B(751)-B(753)-B(755) -! JVS(23722) = Jac_FULL(4395,5250) - JVS(23722) = -B(756) -! JVS(23723) = Jac_FULL(4395,5256) - JVS(23723) = -B(750) -! JVS(23724) = Jac_FULL(4395,5258) - JVS(23724) = -B(752)-B(754) -! JVS(23725) = Jac_FULL(4396,1703) - JVS(23725) = B(597) -! JVS(23726) = Jac_FULL(4396,3147) - JVS(23726) = 0 -! JVS(23727) = Jac_FULL(4396,4395) - JVS(23727) = 0 -! JVS(23728) = Jac_FULL(4396,4396) - JVS(23728) = -B(2353)-B(2355)-B(2357)-B(2359)-B(2361)-B(2362) -! JVS(23729) = Jac_FULL(4396,5250) - JVS(23729) = B(598)-B(2358)-B(2360) -! JVS(23730) = Jac_FULL(4396,5256) - JVS(23730) = -B(2354) -! JVS(23731) = Jac_FULL(4396,5258) - JVS(23731) = -B(2356) -! JVS(23732) = Jac_FULL(4397,1703) - JVS(23732) = B(599) -! JVS(23733) = Jac_FULL(4397,3147) - JVS(23733) = 0 -! JVS(23734) = Jac_FULL(4397,4395) - JVS(23734) = 0 -! JVS(23735) = Jac_FULL(4397,4397) - JVS(23735) = -B(2363)-B(2365)-B(2367)-B(2369)-B(2371) -! JVS(23736) = Jac_FULL(4397,5250) - JVS(23736) = B(600)-B(2368)-B(2370)-B(2372) -! JVS(23737) = Jac_FULL(4397,5256) - JVS(23737) = -B(2364)-B(2366) -! JVS(23738) = Jac_FULL(4397,5258) - JVS(23738) = 0 -! JVS(23739) = Jac_FULL(4398,614) - JVS(23739) = B(8766) -! JVS(23740) = Jac_FULL(4398,2468) - JVS(23740) = B(8761) -! JVS(23741) = Jac_FULL(4398,2798) - JVS(23741) = B(8758) -! JVS(23742) = Jac_FULL(4398,2799) - JVS(23742) = B(8756) -! JVS(23743) = Jac_FULL(4398,3830) - JVS(23743) = 0 -! JVS(23744) = Jac_FULL(4398,3903) - JVS(23744) = 0 -! JVS(23745) = Jac_FULL(4398,4397) - JVS(23745) = 0 -! JVS(23746) = Jac_FULL(4398,4398) - JVS(23746) = -B(12355)-B(12357) -! JVS(23747) = Jac_FULL(4398,4603) - JVS(23747) = B(8770) -! JVS(23748) = Jac_FULL(4398,4916) - JVS(23748) = B(8670)+B(8682) -! JVS(23749) = Jac_FULL(4398,5250) - JVS(23749) = -B(12356) -! JVS(23750) = Jac_FULL(4398,5252) - JVS(23750) = 0 -! JVS(23751) = Jac_FULL(4398,5255) - JVS(23751) = B(8671) -! JVS(23752) = Jac_FULL(4398,5256) - JVS(23752) = 0 -! JVS(23753) = Jac_FULL(4398,5258) - JVS(23753) = 0 -! JVS(23754) = Jac_FULL(4399,1703) - JVS(23754) = B(595) -! JVS(23755) = Jac_FULL(4399,3147) - JVS(23755) = 0 -! JVS(23756) = Jac_FULL(4399,4395) - JVS(23756) = 0 -! JVS(23757) = Jac_FULL(4399,4399) - JVS(23757) = -B(2342)-B(2344)-B(2346)-B(2348)-B(2350)-B(2351)-B(2352) -! JVS(23758) = Jac_FULL(4399,5250) - JVS(23758) = B(596) -! JVS(23759) = Jac_FULL(4399,5252) - JVS(23759) = -B(2345)-B(2347) -! JVS(23760) = Jac_FULL(4399,5255) - JVS(23760) = -B(2343) -! JVS(23761) = Jac_FULL(4399,5256) - JVS(23761) = -B(2349) -! JVS(23762) = Jac_FULL(4399,5258) - JVS(23762) = 0 -! JVS(23763) = Jac_FULL(4400,947) - JVS(23763) = B(10166) -! JVS(23764) = Jac_FULL(4400,4018) - JVS(23764) = B(2935) -! JVS(23765) = Jac_FULL(4400,4400) - JVS(23765) = -B(6462)-B(6464)-B(6466)-B(6468)-B(6470)-B(6471) -! JVS(23766) = Jac_FULL(4400,5250) - JVS(23766) = B(2936)+B(10167) -! JVS(23767) = Jac_FULL(4400,5252) - JVS(23767) = -B(6465)-B(6467) -! JVS(23768) = Jac_FULL(4400,5255) - JVS(23768) = -B(6463) -! JVS(23769) = Jac_FULL(4400,5256) - JVS(23769) = -B(6469) -! JVS(23770) = Jac_FULL(4400,5258) - JVS(23770) = 0 -! JVS(23771) = Jac_FULL(4401,3457) - JVS(23771) = B(10171) -! JVS(23772) = Jac_FULL(4401,3460) - JVS(23772) = B(10293) -! JVS(23773) = Jac_FULL(4401,3581) - JVS(23773) = B(10169) -! JVS(23774) = Jac_FULL(4401,3600) - JVS(23774) = B(10291) -! JVS(23775) = Jac_FULL(4401,4335) - JVS(23775) = 0 -! JVS(23776) = Jac_FULL(4401,4400) - JVS(23776) = 0 -! JVS(23777) = Jac_FULL(4401,4401) - JVS(23777) = -B(13419)-B(13421)-B(13422) -! JVS(23778) = Jac_FULL(4401,4787) - JVS(23778) = B(10285) -! JVS(23779) = Jac_FULL(4401,5250) - JVS(23779) = B(10172)+B(10294)-B(13420) -! JVS(23780) = Jac_FULL(4401,5252) - JVS(23780) = 0 -! JVS(23781) = Jac_FULL(4401,5255) - JVS(23781) = 0 -! JVS(23782) = Jac_FULL(4401,5256) - JVS(23782) = 0 -! JVS(23783) = Jac_FULL(4401,5258) - JVS(23783) = 0 -! JVS(23784) = Jac_FULL(4402,844) - JVS(23784) = B(16352) -! JVS(23785) = Jac_FULL(4402,3499) - JVS(23785) = B(6342)+B(6346) -! JVS(23786) = Jac_FULL(4402,4035) - JVS(23786) = B(13326)+B(13328)+B(13330) -! JVS(23787) = Jac_FULL(4402,4402) - JVS(23787) = -B(10053)-B(10055) -! JVS(23788) = Jac_FULL(4402,5250) - JVS(23788) = B(6347) -! JVS(23789) = Jac_FULL(4402,5252) - JVS(23789) = B(13327) -! JVS(23790) = Jac_FULL(4402,5253) - JVS(23790) = -B(10054) -! JVS(23791) = Jac_FULL(4402,5255) - JVS(23791) = 0 -! JVS(23792) = Jac_FULL(4402,5256) - JVS(23792) = B(6343)+B(13329) -! JVS(23793) = Jac_FULL(4402,5258) - JVS(23793) = -B(10056) -! JVS(23794) = Jac_FULL(4403,560) - JVS(23794) = B(10129) -! JVS(23795) = Jac_FULL(4403,676) - JVS(23795) = B(10057) -! JVS(23796) = Jac_FULL(4403,718) - JVS(23796) = B(9990) -! JVS(23797) = Jac_FULL(4403,2566) - JVS(23797) = B(18608) -! JVS(23798) = Jac_FULL(4403,2575) - JVS(23798) = B(18682) -! JVS(23799) = Jac_FULL(4403,2598) - JVS(23799) = B(20220) -! JVS(23800) = Jac_FULL(4403,2599) - JVS(23800) = B(18647) -! JVS(23801) = Jac_FULL(4403,2818) - JVS(23801) = B(18643) -! JVS(23802) = Jac_FULL(4403,2937) - JVS(23802) = B(20264) -! JVS(23803) = Jac_FULL(4403,2995) - JVS(23803) = B(20242) -! JVS(23804) = Jac_FULL(4403,3004) - JVS(23804) = B(18612) -! JVS(23805) = Jac_FULL(4403,3065) - JVS(23805) = B(18678) -! JVS(23806) = Jac_FULL(4403,3230) - JVS(23806) = B(12802) -! JVS(23807) = Jac_FULL(4403,3362) - JVS(23807) = B(20216) -! JVS(23808) = Jac_FULL(4403,3388) - JVS(23808) = B(20260) -! JVS(23809) = Jac_FULL(4403,3417) - JVS(23809) = B(20238) -! JVS(23810) = Jac_FULL(4403,3499) - JVS(23810) = 0 -! JVS(23811) = Jac_FULL(4403,3506) - JVS(23811) = 0 -! JVS(23812) = Jac_FULL(4403,3551) - JVS(23812) = 0 -! JVS(23813) = Jac_FULL(4403,3831) - JVS(23813) = 0 -! JVS(23814) = Jac_FULL(4403,4210) - JVS(23814) = 0 -! JVS(23815) = Jac_FULL(4403,4232) - JVS(23815) = 0 -! JVS(23816) = Jac_FULL(4403,4245) - JVS(23816) = 0 -! JVS(23817) = Jac_FULL(4403,4252) - JVS(23817) = 0 -! JVS(23818) = Jac_FULL(4403,4287) - JVS(23818) = 0 -! JVS(23819) = Jac_FULL(4403,4289) - JVS(23819) = 0 -! JVS(23820) = Jac_FULL(4403,4297) - JVS(23820) = 0 -! JVS(23821) = Jac_FULL(4403,4312) - JVS(23821) = 0 -! JVS(23822) = Jac_FULL(4403,4314) - JVS(23822) = 0 -! JVS(23823) = Jac_FULL(4403,4402) - JVS(23823) = 0 -! JVS(23824) = Jac_FULL(4403,4403) - JVS(23824) = -B(12846)-B(12848) -! JVS(23825) = Jac_FULL(4403,4413) - JVS(23825) = 0 -! JVS(23826) = Jac_FULL(4403,4434) - JVS(23826) = 0 -! JVS(23827) = Jac_FULL(4403,4455) - JVS(23827) = 0 -! JVS(23828) = Jac_FULL(4403,4463) - JVS(23828) = 0 -! JVS(23829) = Jac_FULL(4403,4499) - JVS(23829) = 0 -! JVS(23830) = Jac_FULL(4403,4632) - JVS(23830) = 0 -! JVS(23831) = Jac_FULL(4403,4663) - JVS(23831) = 0 -! JVS(23832) = Jac_FULL(4403,4682) - JVS(23832) = 0 -! JVS(23833) = Jac_FULL(4403,5070) - JVS(23833) = B(9344) -! JVS(23834) = Jac_FULL(4403,5250) - JVS(23834) = -B(12847) -! JVS(23835) = Jac_FULL(4403,5252) - JVS(23835) = 0 -! JVS(23836) = Jac_FULL(4403,5253) - JVS(23836) = 0 -! JVS(23837) = Jac_FULL(4403,5255) - JVS(23837) = 0 -! JVS(23838) = Jac_FULL(4403,5256) - JVS(23838) = 0 -! JVS(23839) = Jac_FULL(4403,5258) - JVS(23839) = 0 -! JVS(23840) = Jac_FULL(4404,1928) - JVS(23840) = B(18335) -! JVS(23841) = Jac_FULL(4404,2171) - JVS(23841) = B(21406) -! JVS(23842) = Jac_FULL(4404,3063) - JVS(23842) = B(21411) -! JVS(23843) = Jac_FULL(4404,4199) - JVS(23843) = 0 -! JVS(23844) = Jac_FULL(4404,4404) - JVS(23844) = -B(20087)-B(20089)-B(20091)-B(20093)-B(20095)-B(20097) -! JVS(23845) = Jac_FULL(4404,4877) - JVS(23845) = 0 -! JVS(23846) = Jac_FULL(4404,5250) - JVS(23846) = B(18336)+B(21407) -! JVS(23847) = Jac_FULL(4404,5252) - JVS(23847) = -B(20092) -! JVS(23848) = Jac_FULL(4404,5253) - JVS(23848) = -B(20094) -! JVS(23849) = Jac_FULL(4404,5255) - JVS(23849) = -B(20088)-B(20090) -! JVS(23850) = Jac_FULL(4404,5256) - JVS(23850) = -B(20096) -! JVS(23851) = Jac_FULL(4405,1997) - JVS(23851) = B(12178) -! JVS(23852) = Jac_FULL(4405,2579) - JVS(23852) = B(12183) -! JVS(23853) = Jac_FULL(4405,4405) - JVS(23853) = -B(8439)-B(8441)-B(8443)-B(8445)-B(8447)-B(8449)-B(8451)-B(8452) -! JVS(23854) = Jac_FULL(4405,4845) - JVS(23854) = B(4827)+B(4829) -! JVS(23855) = Jac_FULL(4405,5250) - JVS(23855) = B(4830)+B(12179) -! JVS(23856) = Jac_FULL(4405,5252) - JVS(23856) = -B(8446) -! JVS(23857) = Jac_FULL(4405,5253) - JVS(23857) = -B(8448) -! JVS(23858) = Jac_FULL(4405,5255) - JVS(23858) = -B(8440)-B(8442)-B(8444) -! JVS(23859) = Jac_FULL(4405,5256) - JVS(23859) = B(4828)-B(8450) -! JVS(23860) = Jac_FULL(4406,3500) - JVS(23860) = B(20484) -! JVS(23861) = Jac_FULL(4406,3532) - JVS(23861) = B(20490) -! JVS(23862) = Jac_FULL(4406,4406) - JVS(23862) = -B(7919)-B(7921) -! JVS(23863) = Jac_FULL(4406,5005) - JVS(23863) = B(20396)+B(20402)+B(20406)+B(20408) -! JVS(23864) = Jac_FULL(4406,5167) - JVS(23864) = 0 -! JVS(23865) = Jac_FULL(4406,5221) - JVS(23865) = B(4297) -! JVS(23866) = Jac_FULL(4406,5250) - JVS(23866) = B(4298)-B(7920)+B(20485)+B(20491) -! JVS(23867) = Jac_FULL(4406,5252) - JVS(23867) = B(20403) -! JVS(23868) = Jac_FULL(4406,5253) - JVS(23868) = 0 -! JVS(23869) = Jac_FULL(4406,5255) - JVS(23869) = B(20397) -! JVS(23870) = Jac_FULL(4406,5256) - JVS(23870) = B(20407) -! JVS(23871) = Jac_FULL(4407,943) - JVS(23871) = B(13190) -! JVS(23872) = Jac_FULL(4407,3139) - JVS(23872) = B(2741)+B(2747) -! JVS(23873) = Jac_FULL(4407,4009) - JVS(23873) = B(9746)+B(9748)+B(9750) -! JVS(23874) = Jac_FULL(4407,4407) - JVS(23874) = -B(6044)-B(6046) -! JVS(23875) = Jac_FULL(4407,5250) - JVS(23875) = B(2748) -! JVS(23876) = Jac_FULL(4407,5252) - JVS(23876) = B(9747) -! JVS(23877) = Jac_FULL(4407,5253) - JVS(23877) = -B(6045) -! JVS(23878) = Jac_FULL(4407,5255) - JVS(23878) = 0 -! JVS(23879) = Jac_FULL(4407,5256) - JVS(23879) = B(2742)+B(9749) -! JVS(23880) = Jac_FULL(4407,5258) - JVS(23880) = -B(6047) -! JVS(23881) = Jac_FULL(4408,1419) - JVS(23881) = B(12704) -! JVS(23882) = Jac_FULL(4408,3131) - JVS(23882) = B(2492)+B(2498) -! JVS(23883) = Jac_FULL(4408,4075) - JVS(23883) = B(9135)+B(9137)+B(9139) -! JVS(23884) = Jac_FULL(4408,4408) - JVS(23884) = -B(5549)-B(5551) -! JVS(23885) = Jac_FULL(4408,5250) - JVS(23885) = B(2499) -! JVS(23886) = Jac_FULL(4408,5252) - JVS(23886) = B(9136) -! JVS(23887) = Jac_FULL(4408,5253) - JVS(23887) = -B(5550) -! JVS(23888) = Jac_FULL(4408,5255) - JVS(23888) = 0 -! JVS(23889) = Jac_FULL(4408,5256) - JVS(23889) = B(2493)+B(9138) -! JVS(23890) = Jac_FULL(4408,5258) - JVS(23890) = -B(5552) -! JVS(23891) = Jac_FULL(4409,1146) - JVS(23891) = B(23274) -! JVS(23892) = Jac_FULL(4409,2573) - JVS(23892) = B(23279) -! JVS(23893) = Jac_FULL(4409,3309) - JVS(23893) = B(22388) -! JVS(23894) = Jac_FULL(4409,4409) - JVS(23894) = -B(22861)-B(22863)-B(22865)-B(22867)-B(22869)-B(22871) -! JVS(23895) = Jac_FULL(4409,4410) - JVS(23895) = 0 -! JVS(23896) = Jac_FULL(4409,5250) - JVS(23896) = B(22389)+B(23275) -! JVS(23897) = Jac_FULL(4409,5252) - JVS(23897) = -B(22866) -! JVS(23898) = Jac_FULL(4409,5253) - JVS(23898) = -B(22868) -! JVS(23899) = Jac_FULL(4409,5255) - JVS(23899) = -B(22862)-B(22864) -! JVS(23900) = Jac_FULL(4409,5256) - JVS(23900) = -B(22870) -! JVS(23901) = Jac_FULL(4410,2457) - JVS(23901) = B(20743) -! JVS(23902) = Jac_FULL(4410,2629) - JVS(23902) = 0 -! JVS(23903) = Jac_FULL(4410,4119) - JVS(23903) = 0 -! JVS(23904) = Jac_FULL(4410,4173) - JVS(23904) = 0 -! JVS(23905) = Jac_FULL(4410,4410) - JVS(23905) = -B(21767)-B(21769)-B(21771)-B(21773)-B(21774)-B(21775) -! JVS(23906) = Jac_FULL(4410,5215) - JVS(23906) = 0 -! JVS(23907) = Jac_FULL(4410,5250) - JVS(23907) = 0 -! JVS(23908) = Jac_FULL(4410,5252) - JVS(23908) = -B(21770) -! JVS(23909) = Jac_FULL(4410,5255) - JVS(23909) = -B(21768) -! JVS(23910) = Jac_FULL(4410,5256) - JVS(23910) = -B(21772) -! JVS(23911) = Jac_FULL(4411,1701) - JVS(23911) = B(104) -! JVS(23912) = Jac_FULL(4411,2235) - JVS(23912) = B(3722) -! JVS(23913) = Jac_FULL(4411,3923) - JVS(23913) = B(11734) -! JVS(23914) = Jac_FULL(4411,4411) - JVS(23914) = -B(1008)-B(1010)-B(1012)-B(1014)-B(1016)-B(1017)-B(1018) -! JVS(23915) = Jac_FULL(4411,4412) - JVS(23915) = B(14953)+B(14955)+B(14959) -! JVS(23916) = Jac_FULL(4411,4755) - JVS(23916) = 0 -! JVS(23917) = Jac_FULL(4411,5010) - JVS(23917) = B(11798) -! JVS(23918) = Jac_FULL(4411,5147) - JVS(23918) = 0 -! JVS(23919) = Jac_FULL(4411,5250) - JVS(23919) = B(105)+B(3723) -! JVS(23920) = Jac_FULL(4411,5252) - JVS(23920) = -B(1011)-B(1013)+B(14956) -! JVS(23921) = Jac_FULL(4411,5255) - JVS(23921) = -B(1009)+B(14954) -! JVS(23922) = Jac_FULL(4411,5256) - JVS(23922) = -B(1015)+B(14960) -! JVS(23923) = Jac_FULL(4412,1074) - JVS(23923) = B(17519) -! JVS(23924) = Jac_FULL(4412,2885) - JVS(23924) = B(17521) -! JVS(23925) = Jac_FULL(4412,3923) - JVS(23925) = B(11735)+B(11737) -! JVS(23926) = Jac_FULL(4412,4412) - JVS(23926) = -B(14951)-B(14953)-B(14955)-B(14957)-B(14959)-B(14961) -! JVS(23927) = Jac_FULL(4412,5147) - JVS(23927) = 0 -! JVS(23928) = Jac_FULL(4412,5250) - JVS(23928) = B(11738)+B(17520) -! JVS(23929) = Jac_FULL(4412,5252) - JVS(23929) = -B(14956) -! JVS(23930) = Jac_FULL(4412,5253) - JVS(23930) = -B(14958) -! JVS(23931) = Jac_FULL(4412,5255) - JVS(23931) = -B(14952)-B(14954) -! JVS(23932) = Jac_FULL(4412,5256) - JVS(23932) = B(11736)-B(14960) -! JVS(23933) = Jac_FULL(4413,1017) - JVS(23933) = B(16309) -! JVS(23934) = Jac_FULL(4413,3506) - JVS(23934) = B(6266)+B(6270) -! JVS(23935) = Jac_FULL(4413,4054) - JVS(23935) = B(13298)+B(13300)+B(13302) -! JVS(23936) = Jac_FULL(4413,4413) - JVS(23936) = -B(9986)-B(9988) -! JVS(23937) = Jac_FULL(4413,5250) - JVS(23937) = B(6271) -! JVS(23938) = Jac_FULL(4413,5252) - JVS(23938) = B(13299) -! JVS(23939) = Jac_FULL(4413,5253) - JVS(23939) = -B(9987) -! JVS(23940) = Jac_FULL(4413,5255) - JVS(23940) = 0 -! JVS(23941) = Jac_FULL(4413,5256) - JVS(23941) = B(6267)+B(13301) -! JVS(23942) = Jac_FULL(4413,5258) - JVS(23942) = -B(9989) -! JVS(23943) = Jac_FULL(4414,2494) - JVS(23943) = B(13529) -! JVS(23944) = Jac_FULL(4414,2796) - JVS(23944) = B(13531) -! JVS(23945) = Jac_FULL(4414,4414) - JVS(23945) = -B(10346)-B(10348)-B(10350)-B(10352)-B(10354)-B(10356)-B(10358)-B(10359) -! JVS(23946) = Jac_FULL(4414,5049) - JVS(23946) = B(6655)+B(6657)+B(6665) -! JVS(23947) = Jac_FULL(4414,5250) - JVS(23947) = B(6666)+B(13530) -! JVS(23948) = Jac_FULL(4414,5252) - JVS(23948) = -B(10353) -! JVS(23949) = Jac_FULL(4414,5253) - JVS(23949) = -B(10355) -! JVS(23950) = Jac_FULL(4414,5255) - JVS(23950) = -B(10347)-B(10349)-B(10351) -! JVS(23951) = Jac_FULL(4414,5256) - JVS(23951) = B(6658)-B(10357) -! JVS(23952) = Jac_FULL(4415,977) - JVS(23952) = B(19943) -! JVS(23953) = Jac_FULL(4415,3163) - JVS(23953) = B(15651) -! JVS(23954) = Jac_FULL(4415,4415) - JVS(23954) = -B(18155)-B(18157)-B(18159)-B(18161) -! JVS(23955) = Jac_FULL(4415,4690) - JVS(23955) = 0 -! JVS(23956) = Jac_FULL(4415,5250) - JVS(23956) = B(19944) -! JVS(23957) = Jac_FULL(4415,5252) - JVS(23957) = -B(18158) -! JVS(23958) = Jac_FULL(4415,5253) - JVS(23958) = 0 -! JVS(23959) = Jac_FULL(4415,5255) - JVS(23959) = -B(18156) -! JVS(23960) = Jac_FULL(4415,5256) - JVS(23960) = B(15652)-B(18160) -! JVS(23961) = Jac_FULL(4416,2417) - JVS(23961) = B(16187) -! JVS(23962) = Jac_FULL(4416,3553) - JVS(23962) = B(9661) -! JVS(23963) = Jac_FULL(4416,4416) - JVS(23963) = -B(13121)-B(13123)-B(13125)-B(13127) -! JVS(23964) = Jac_FULL(4416,4937) - JVS(23964) = 0 -! JVS(23965) = Jac_FULL(4416,5250) - JVS(23965) = B(16188) -! JVS(23966) = Jac_FULL(4416,5252) - JVS(23966) = -B(13124) -! JVS(23967) = Jac_FULL(4416,5255) - JVS(23967) = -B(13122) -! JVS(23968) = Jac_FULL(4416,5256) - JVS(23968) = B(9662)-B(13126) -! JVS(23969) = Jac_FULL(4416,5258) - JVS(23969) = 0 -! JVS(23970) = Jac_FULL(4417,574) - JVS(23970) = B(18023) -! JVS(23971) = Jac_FULL(4417,1198) - JVS(23971) = B(21276) -! JVS(23972) = Jac_FULL(4417,2205) - JVS(23972) = 0 -! JVS(23973) = Jac_FULL(4417,3282) - JVS(23973) = B(21278) -! JVS(23974) = Jac_FULL(4417,3880) - JVS(23974) = 0 -! JVS(23975) = Jac_FULL(4417,4417) - JVS(23975) = -B(19861)-B(19863)-B(19865)-B(19867)-B(19869)-B(19871) -! JVS(23976) = Jac_FULL(4417,5065) - JVS(23976) = 0 -! JVS(23977) = Jac_FULL(4417,5250) - JVS(23977) = B(21277) -! JVS(23978) = Jac_FULL(4417,5252) - JVS(23978) = -B(19866) -! JVS(23979) = Jac_FULL(4417,5253) - JVS(23979) = -B(19868) -! JVS(23980) = Jac_FULL(4417,5255) - JVS(23980) = -B(19862)-B(19864) -! JVS(23981) = Jac_FULL(4417,5256) - JVS(23981) = -B(19870) -! JVS(23982) = Jac_FULL(4418,823) - JVS(23982) = B(22462)+B(22464) -! JVS(23983) = Jac_FULL(4418,1348) - JVS(23983) = B(22467) -! JVS(23984) = Jac_FULL(4418,3862) - JVS(23984) = B(20813) -! JVS(23985) = Jac_FULL(4418,4418) - JVS(23985) = -B(21853)-B(21855)-B(21857)-B(21859)-B(21860)-B(21861) -! JVS(23986) = Jac_FULL(4418,4659) - JVS(23986) = B(21840)+B(21846)+B(21850)+B(21852) -! JVS(23987) = Jac_FULL(4418,4987) - JVS(23987) = 0 -! JVS(23988) = Jac_FULL(4418,5250) - JVS(23988) = B(22463) -! JVS(23989) = Jac_FULL(4418,5252) - JVS(23989) = B(21847)-B(21856) -! JVS(23990) = Jac_FULL(4418,5255) - JVS(23990) = B(21841)-B(21854) -! JVS(23991) = Jac_FULL(4418,5256) - JVS(23991) = B(21851)-B(21858) -! JVS(23992) = Jac_FULL(4419,534) - JVS(23992) = B(17786) -! JVS(23993) = Jac_FULL(4419,946) - JVS(23993) = B(21182) -! JVS(23994) = Jac_FULL(4419,2016) - JVS(23994) = 0 -! JVS(23995) = Jac_FULL(4419,2718) - JVS(23995) = B(21184) -! JVS(23996) = Jac_FULL(4419,3941) - JVS(23996) = 0 -! JVS(23997) = Jac_FULL(4419,4419) - JVS(23997) = -B(19676)-B(19678)-B(19680)-B(19682)-B(19684)-B(19686) -! JVS(23998) = Jac_FULL(4419,5146) - JVS(23998) = 0 -! JVS(23999) = Jac_FULL(4419,5250) - JVS(23999) = B(21183) -! JVS(24000) = Jac_FULL(4419,5252) - JVS(24000) = -B(19681) -! JVS(24001) = Jac_FULL(4419,5253) - JVS(24001) = -B(19683) -! JVS(24002) = Jac_FULL(4419,5255) - JVS(24002) = -B(19677)-B(19679) -! JVS(24003) = Jac_FULL(4419,5256) - JVS(24003) = -B(19685) -! JVS(24004) = Jac_FULL(4420,1346) - JVS(24004) = B(13670) -! JVS(24005) = Jac_FULL(4420,3464) - JVS(24005) = B(13675) -! JVS(24006) = Jac_FULL(4420,3707) - JVS(24006) = B(13669) -! JVS(24007) = Jac_FULL(4420,4420) - JVS(24007) = -B(4091)-B(4093)-B(4095)-B(4096) -! JVS(24008) = Jac_FULL(4420,4758) - JVS(24008) = 0 -! JVS(24009) = Jac_FULL(4420,4976) - JVS(24009) = B(10513) -! JVS(24010) = Jac_FULL(4420,5235) - JVS(24010) = B(1295) -! JVS(24011) = Jac_FULL(4420,5250) - JVS(24011) = -B(4092)-B(4094) -! JVS(24012) = Jac_FULL(4420,5252) - JVS(24012) = 0 -! JVS(24013) = Jac_FULL(4420,5255) - JVS(24013) = B(1296) -! JVS(24014) = Jac_FULL(4420,5256) - JVS(24014) = 0 -! JVS(24015) = Jac_FULL(4420,5258) - JVS(24015) = B(10514) -! JVS(24016) = Jac_FULL(4421,960) - JVS(24016) = B(22188) -! JVS(24017) = Jac_FULL(4421,3183) - JVS(24017) = B(19794) -! JVS(24018) = Jac_FULL(4421,3544) - JVS(24018) = 0 -! JVS(24019) = Jac_FULL(4421,4389) - JVS(24019) = 0 -! JVS(24020) = Jac_FULL(4421,4421) - JVS(24020) = -B(21242)-B(21244)-B(21246)-B(21248) -! JVS(24021) = Jac_FULL(4421,4712) - JVS(24021) = 0 -! JVS(24022) = Jac_FULL(4421,5107) - JVS(24022) = 0 -! JVS(24023) = Jac_FULL(4421,5250) - JVS(24023) = B(19795)+B(22189) -! JVS(24024) = Jac_FULL(4421,5252) - JVS(24024) = -B(21245) -! JVS(24025) = Jac_FULL(4421,5255) - JVS(24025) = -B(21243) -! JVS(24026) = Jac_FULL(4421,5256) - JVS(24026) = -B(21247) -! JVS(24027) = Jac_FULL(4422,838) - JVS(24027) = B(15645) -! JVS(24028) = Jac_FULL(4422,3519) - JVS(24028) = B(8931) -! JVS(24029) = Jac_FULL(4422,4422) - JVS(24029) = -B(12555)-B(12557)-B(12559)-B(12561)-B(12562) -! JVS(24030) = Jac_FULL(4422,4950) - JVS(24030) = 0 -! JVS(24031) = Jac_FULL(4422,5250) - JVS(24031) = B(8932)+B(15646) -! JVS(24032) = Jac_FULL(4422,5252) - JVS(24032) = -B(12558) -! JVS(24033) = Jac_FULL(4422,5255) - JVS(24033) = -B(12556) -! JVS(24034) = Jac_FULL(4422,5256) - JVS(24034) = -B(12560) -! JVS(24035) = Jac_FULL(4422,5258) - JVS(24035) = 0 -! JVS(24036) = Jac_FULL(4423,75) - JVS(24036) = B(22234) -! JVS(24037) = Jac_FULL(4423,422) - JVS(24037) = 0 -! JVS(24038) = Jac_FULL(4423,973) - JVS(24038) = B(23221) -! JVS(24039) = Jac_FULL(4423,3541) - JVS(24039) = 0 -! JVS(24040) = Jac_FULL(4423,4246) - JVS(24040) = 0 -! JVS(24041) = Jac_FULL(4423,4262) - JVS(24041) = 0 -! JVS(24042) = Jac_FULL(4423,4304) - JVS(24042) = 0 -! JVS(24043) = Jac_FULL(4423,4423) - JVS(24043) = -B(22772)-B(22774)-B(22776)-B(22778)-B(22779) -! JVS(24044) = Jac_FULL(4423,4454) - JVS(24044) = 0 -! JVS(24045) = Jac_FULL(4423,4464) - JVS(24045) = 0 -! JVS(24046) = Jac_FULL(4423,4797) - JVS(24046) = 0 -! JVS(24047) = Jac_FULL(4423,5250) - JVS(24047) = B(22235)+B(23222) -! JVS(24048) = Jac_FULL(4423,5252) - JVS(24048) = -B(22775) -! JVS(24049) = Jac_FULL(4423,5253) - JVS(24049) = 0 -! JVS(24050) = Jac_FULL(4423,5255) - JVS(24050) = -B(22773) -! JVS(24051) = Jac_FULL(4423,5256) - JVS(24051) = -B(22777) -! JVS(24052) = Jac_FULL(4424,2120) - JVS(24052) = B(20152) -! JVS(24053) = Jac_FULL(4424,2929) - JVS(24053) = B(20157) -! JVS(24054) = Jac_FULL(4424,4424) - JVS(24054) = -B(18461)-B(18463)-B(18465)-B(18467)-B(18469)-B(18471) -! JVS(24055) = Jac_FULL(4424,4815) - JVS(24055) = B(16090)+B(16092) -! JVS(24056) = Jac_FULL(4424,5250) - JVS(24056) = B(16093)+B(20153) -! JVS(24057) = Jac_FULL(4424,5252) - JVS(24057) = -B(18466) -! JVS(24058) = Jac_FULL(4424,5253) - JVS(24058) = -B(18468) -! JVS(24059) = Jac_FULL(4424,5255) - JVS(24059) = -B(18462)-B(18464) -! JVS(24060) = Jac_FULL(4424,5256) - JVS(24060) = B(16091)-B(18470) -! JVS(24061) = Jac_FULL(4425,1118) - JVS(24061) = B(20128) -! JVS(24062) = Jac_FULL(4425,3178) - JVS(24062) = B(16042) -! JVS(24063) = Jac_FULL(4425,4425) - JVS(24063) = -B(18424)-B(18426)-B(18428)-B(18430) -! JVS(24064) = Jac_FULL(4425,4790) - JVS(24064) = 0 -! JVS(24065) = Jac_FULL(4425,5250) - JVS(24065) = B(20129) -! JVS(24066) = Jac_FULL(4425,5252) - JVS(24066) = -B(18427) -! JVS(24067) = Jac_FULL(4425,5253) - JVS(24067) = 0 -! JVS(24068) = Jac_FULL(4425,5255) - JVS(24068) = -B(18425) -! JVS(24069) = Jac_FULL(4425,5256) - JVS(24069) = B(16043)-B(18429) -! JVS(24070) = Jac_FULL(4426,122) - JVS(24070) = B(22250) -! JVS(24071) = Jac_FULL(4426,1464) - JVS(24071) = B(23233) -! JVS(24072) = Jac_FULL(4426,2854) - JVS(24072) = 0 -! JVS(24073) = Jac_FULL(4426,3395) - JVS(24073) = 0 -! JVS(24074) = Jac_FULL(4426,3414) - JVS(24074) = 0 -! JVS(24075) = Jac_FULL(4426,3596) - JVS(24075) = 0 -! JVS(24076) = Jac_FULL(4426,3597) - JVS(24076) = 0 -! JVS(24077) = Jac_FULL(4426,4194) - JVS(24077) = 0 -! JVS(24078) = Jac_FULL(4426,4296) - JVS(24078) = 0 -! JVS(24079) = Jac_FULL(4426,4307) - JVS(24079) = 0 -! JVS(24080) = Jac_FULL(4426,4425) - JVS(24080) = 0 -! JVS(24081) = Jac_FULL(4426,4426) - JVS(24081) = -B(22788)-B(22790)-B(22792)-B(22794)-B(22795) -! JVS(24082) = Jac_FULL(4426,4444) - JVS(24082) = 0 -! JVS(24083) = Jac_FULL(4426,4790) - JVS(24083) = 0 -! JVS(24084) = Jac_FULL(4426,5250) - JVS(24084) = B(22251)+B(23234) -! JVS(24085) = Jac_FULL(4426,5252) - JVS(24085) = -B(22791) -! JVS(24086) = Jac_FULL(4426,5253) - JVS(24086) = 0 -! JVS(24087) = Jac_FULL(4426,5255) - JVS(24087) = -B(22789) -! JVS(24088) = Jac_FULL(4426,5256) - JVS(24088) = -B(22793) -! JVS(24089) = Jac_FULL(4427,2290) - JVS(24089) = B(12281) -! JVS(24090) = Jac_FULL(4427,2988) - JVS(24090) = B(12286) -! JVS(24091) = Jac_FULL(4427,4155) - JVS(24091) = B(5095)+B(5097) -! JVS(24092) = Jac_FULL(4427,4427) - JVS(24092) = -B(8603)-B(8605)-B(8607)-B(8609)-B(8611)-B(8613)-B(8615)-B(8616) -! JVS(24093) = Jac_FULL(4427,4879) - JVS(24093) = 0 -! JVS(24094) = Jac_FULL(4427,5250) - JVS(24094) = B(5098)+B(12282) -! JVS(24095) = Jac_FULL(4427,5252) - JVS(24095) = -B(8610) -! JVS(24096) = Jac_FULL(4427,5253) - JVS(24096) = -B(8612) -! JVS(24097) = Jac_FULL(4427,5255) - JVS(24097) = -B(8604)-B(8606)-B(8608) -! JVS(24098) = Jac_FULL(4427,5256) - JVS(24098) = B(5096)-B(8614) -! JVS(24099) = Jac_FULL(4428,2811) - JVS(24099) = B(4324) -! JVS(24100) = Jac_FULL(4428,2873) - JVS(24100) = B(4317) -! JVS(24101) = Jac_FULL(4428,4428) - JVS(24101) = -B(1541)-B(1543)-B(1545)-B(1547)-B(1549)-B(1551)-B(1553)-B(1554) -! JVS(24102) = Jac_FULL(4428,4840) - JVS(24102) = B(242)+B(252) -! JVS(24103) = Jac_FULL(4428,5250) - JVS(24103) = B(253)+B(4318) -! JVS(24104) = Jac_FULL(4428,5252) - JVS(24104) = -B(1548) -! JVS(24105) = Jac_FULL(4428,5253) - JVS(24105) = -B(1550) -! JVS(24106) = Jac_FULL(4428,5255) - JVS(24106) = -B(1542)-B(1544)-B(1546) -! JVS(24107) = Jac_FULL(4428,5256) - JVS(24107) = B(243)-B(1552) -! JVS(24108) = Jac_FULL(4429,1338) - JVS(24108) = B(22196) -! JVS(24109) = Jac_FULL(4429,3185) - JVS(24109) = B(19843) -! JVS(24110) = Jac_FULL(4429,3548) - JVS(24110) = 0 -! JVS(24111) = Jac_FULL(4429,4355) - JVS(24111) = 0 -! JVS(24112) = Jac_FULL(4429,4429) - JVS(24112) = -B(21268)-B(21270)-B(21272)-B(21274) -! JVS(24113) = Jac_FULL(4429,4709) - JVS(24113) = 0 -! JVS(24114) = Jac_FULL(4429,5065) - JVS(24114) = 0 -! JVS(24115) = Jac_FULL(4429,5250) - JVS(24115) = B(19844)+B(22197) -! JVS(24116) = Jac_FULL(4429,5252) - JVS(24116) = -B(21271) -! JVS(24117) = Jac_FULL(4429,5255) - JVS(24117) = -B(21269) -! JVS(24118) = Jac_FULL(4429,5256) - JVS(24118) = -B(21273) -! JVS(24119) = Jac_FULL(4430,791) - JVS(24119) = B(17919) -! JVS(24120) = Jac_FULL(4430,1244) - JVS(24120) = B(21237) -! JVS(24121) = Jac_FULL(4430,2027) - JVS(24121) = 0 -! JVS(24122) = Jac_FULL(4430,3070) - JVS(24122) = B(21239) -! JVS(24123) = Jac_FULL(4430,3881) - JVS(24123) = 0 -! JVS(24124) = Jac_FULL(4430,4430) - JVS(24124) = -B(19782)-B(19784)-B(19786)-B(19788)-B(19790)-B(19792) -! JVS(24125) = Jac_FULL(4430,5112) - JVS(24125) = 0 -! JVS(24126) = Jac_FULL(4430,5250) - JVS(24126) = B(21238) -! JVS(24127) = Jac_FULL(4430,5252) - JVS(24127) = -B(19787) -! JVS(24128) = Jac_FULL(4430,5253) - JVS(24128) = -B(19789) -! JVS(24129) = Jac_FULL(4430,5255) - JVS(24129) = -B(19783)-B(19785) -! JVS(24130) = Jac_FULL(4430,5256) - JVS(24130) = -B(19791) -! JVS(24131) = Jac_FULL(4431,724) - JVS(24131) = B(17275) -! JVS(24132) = Jac_FULL(4431,1233) - JVS(24132) = B(21012) -! JVS(24133) = Jac_FULL(4431,1900) - JVS(24133) = 0 -! JVS(24134) = Jac_FULL(4431,1913) - JVS(24134) = B(17276)+B(17278) -! JVS(24135) = Jac_FULL(4431,2613) - JVS(24135) = B(21028) -! JVS(24136) = Jac_FULL(4431,4431) - JVS(24136) = -B(19450)-B(19452)-B(19454)-B(19456)-B(19458)-B(19460)-B(19462)-B(19463) -! JVS(24137) = Jac_FULL(4431,5122) - JVS(24137) = 0 -! JVS(24138) = Jac_FULL(4431,5250) - JVS(24138) = B(17277)+B(21013) -! JVS(24139) = Jac_FULL(4431,5252) - JVS(24139) = -B(19457) -! JVS(24140) = Jac_FULL(4431,5253) - JVS(24140) = -B(19459) -! JVS(24141) = Jac_FULL(4431,5255) - JVS(24141) = -B(19451)-B(19453)-B(19455) -! JVS(24142) = Jac_FULL(4431,5256) - JVS(24142) = -B(19461) -! JVS(24143) = Jac_FULL(4432,837) - JVS(24143) = B(8859) -! JVS(24144) = Jac_FULL(4432,1316) - JVS(24144) = B(8854)+B(8856) -! JVS(24145) = Jac_FULL(4432,4010) - JVS(24145) = B(2415) -! JVS(24146) = Jac_FULL(4432,4432) - JVS(24146) = -B(5374)-B(5376)-B(5378)-B(5380)-B(5381)-B(5382) -! JVS(24147) = Jac_FULL(4432,4626) - JVS(24147) = B(5345)+B(5351)+B(5355)+B(5357) -! JVS(24148) = Jac_FULL(4432,5250) - JVS(24148) = B(8855) -! JVS(24149) = Jac_FULL(4432,5252) - JVS(24149) = B(5352)-B(5377) -! JVS(24150) = Jac_FULL(4432,5255) - JVS(24150) = B(5346)-B(5375) -! JVS(24151) = Jac_FULL(4432,5256) - JVS(24151) = B(5356)-B(5379) -! JVS(24152) = Jac_FULL(4432,5258) - JVS(24152) = 0 -! JVS(24153) = Jac_FULL(4433,2036) - JVS(24153) = B(12260) -! JVS(24154) = Jac_FULL(4433,2872) - JVS(24154) = B(12265) -! JVS(24155) = Jac_FULL(4433,4160) - JVS(24155) = B(5049)+B(5051) -! JVS(24156) = Jac_FULL(4433,4433) - JVS(24156) = -B(8570)-B(8572)-B(8574)-B(8576)-B(8578)-B(8580)-B(8582)-B(8583) -! JVS(24157) = Jac_FULL(4433,4881) - JVS(24157) = 0 -! JVS(24158) = Jac_FULL(4433,5250) - JVS(24158) = B(5052)+B(12261) -! JVS(24159) = Jac_FULL(4433,5252) - JVS(24159) = -B(8577) -! JVS(24160) = Jac_FULL(4433,5253) - JVS(24160) = -B(8579) -! JVS(24161) = Jac_FULL(4433,5255) - JVS(24161) = -B(8571)-B(8573)-B(8575) -! JVS(24162) = Jac_FULL(4433,5256) - JVS(24162) = B(5050)-B(8581) -! JVS(24163) = Jac_FULL(4434,1223) - JVS(24163) = B(20235) -! JVS(24164) = Jac_FULL(4434,3190) - JVS(24164) = B(16310) -! JVS(24165) = Jac_FULL(4434,4434) - JVS(24165) = -B(18613)-B(18615)-B(18617)-B(18619) -! JVS(24166) = Jac_FULL(4434,4632) - JVS(24166) = 0 -! JVS(24167) = Jac_FULL(4434,5250) - JVS(24167) = B(20236) -! JVS(24168) = Jac_FULL(4434,5252) - JVS(24168) = -B(18616) -! JVS(24169) = Jac_FULL(4434,5253) - JVS(24169) = 0 -! JVS(24170) = Jac_FULL(4434,5255) - JVS(24170) = -B(18614) -! JVS(24171) = Jac_FULL(4434,5256) - JVS(24171) = B(16311)-B(18618) -! JVS(24172) = Jac_FULL(4435,1268) - JVS(24172) = B(22180) -! JVS(24173) = Jac_FULL(4435,3086) - JVS(24173) = B(19750) -! JVS(24174) = Jac_FULL(4435,3504) - JVS(24174) = 0 -! JVS(24175) = Jac_FULL(4435,4369) - JVS(24175) = 0 -! JVS(24176) = Jac_FULL(4435,4435) - JVS(24176) = -B(21216)-B(21218)-B(21220)-B(21222) -! JVS(24177) = Jac_FULL(4435,4716) - JVS(24177) = 0 -! JVS(24178) = Jac_FULL(4435,5144) - JVS(24178) = 0 -! JVS(24179) = Jac_FULL(4435,5250) - JVS(24179) = B(19751)+B(22181) -! JVS(24180) = Jac_FULL(4435,5252) - JVS(24180) = -B(21219) -! JVS(24181) = Jac_FULL(4435,5255) - JVS(24181) = -B(21217) -! JVS(24182) = Jac_FULL(4435,5256) - JVS(24182) = -B(21221) -! JVS(24183) = Jac_FULL(4436,2670) - JVS(24183) = B(13622) -! JVS(24184) = Jac_FULL(4436,3033) - JVS(24184) = B(13620) -! JVS(24185) = Jac_FULL(4436,4436) - JVS(24185) = -B(10426)-B(10428)-B(10430)-B(10432)-B(10434)-B(10436)-B(10438)-B(10439) -! JVS(24186) = Jac_FULL(4436,5069) - JVS(24186) = B(6709)+B(6717) -! JVS(24187) = Jac_FULL(4436,5250) - JVS(24187) = B(6718)+B(13621) -! JVS(24188) = Jac_FULL(4436,5252) - JVS(24188) = -B(10433) -! JVS(24189) = Jac_FULL(4436,5253) - JVS(24189) = -B(10435) -! JVS(24190) = Jac_FULL(4436,5255) - JVS(24190) = -B(10427)-B(10429)-B(10431) -! JVS(24191) = Jac_FULL(4436,5256) - JVS(24191) = B(6710)-B(10437) -! JVS(24192) = Jac_FULL(4437,843) - JVS(24192) = B(13315) -! JVS(24193) = Jac_FULL(4437,3164) - JVS(24193) = B(2865)+B(2871) -! JVS(24194) = Jac_FULL(4437,4008) - JVS(24194) = B(10033)+B(10035)+B(10037) -! JVS(24195) = Jac_FULL(4437,4437) - JVS(24195) = -B(6322)-B(6324) -! JVS(24196) = Jac_FULL(4437,5250) - JVS(24196) = B(2872) -! JVS(24197) = Jac_FULL(4437,5252) - JVS(24197) = B(10034) -! JVS(24198) = Jac_FULL(4437,5253) - JVS(24198) = -B(6323) -! JVS(24199) = Jac_FULL(4437,5255) - JVS(24199) = 0 -! JVS(24200) = Jac_FULL(4437,5256) - JVS(24200) = B(2866)+B(10036) -! JVS(24201) = Jac_FULL(4437,5258) - JVS(24201) = -B(6325) -! JVS(24202) = Jac_FULL(4438,1156) - JVS(24202) = B(13287) -! JVS(24203) = Jac_FULL(4438,3193) - JVS(24203) = B(2834)+B(2838) -! JVS(24204) = Jac_FULL(4438,4082) - JVS(24204) = B(9974)+B(9976)+B(9978) -! JVS(24205) = Jac_FULL(4438,4438) - JVS(24205) = -B(6254)-B(6256) -! JVS(24206) = Jac_FULL(4438,5250) - JVS(24206) = B(2839) -! JVS(24207) = Jac_FULL(4438,5252) - JVS(24207) = B(9975) -! JVS(24208) = Jac_FULL(4438,5253) - JVS(24208) = -B(6255) -! JVS(24209) = Jac_FULL(4438,5255) - JVS(24209) = 0 -! JVS(24210) = Jac_FULL(4438,5256) - JVS(24210) = B(2835)+B(9977) -! JVS(24211) = Jac_FULL(4438,5258) - JVS(24211) = -B(6257) -! JVS(24212) = Jac_FULL(4439,121) - JVS(24212) = B(20850) -! JVS(24213) = Jac_FULL(4439,842) - JVS(24213) = B(22496) -! JVS(24214) = Jac_FULL(4439,2584) - JVS(24214) = B(22501) -! JVS(24215) = Jac_FULL(4439,4439) - JVS(24215) = -B(21885)-B(21887)-B(21889)-B(21891)-B(21893)-B(21895) -! JVS(24216) = Jac_FULL(4439,5084) - JVS(24216) = 0 -! JVS(24217) = Jac_FULL(4439,5250) - JVS(24217) = B(20851)+B(22497) -! JVS(24218) = Jac_FULL(4439,5252) - JVS(24218) = -B(21890) -! JVS(24219) = Jac_FULL(4439,5253) - JVS(24219) = -B(21892) -! JVS(24220) = Jac_FULL(4439,5255) - JVS(24220) = -B(21886)-B(21888) -! JVS(24221) = Jac_FULL(4439,5256) - JVS(24221) = -B(21894) -! JVS(24222) = Jac_FULL(4440,2152) - JVS(24222) = B(15630) -! JVS(24223) = Jac_FULL(4440,3519) - JVS(24223) = B(8927) -! JVS(24224) = Jac_FULL(4440,4440) - JVS(24224) = -B(12539)-B(12541)-B(12543)-B(12545) -! JVS(24225) = Jac_FULL(4440,4950) - JVS(24225) = 0 -! JVS(24226) = Jac_FULL(4440,5250) - JVS(24226) = B(15631) -! JVS(24227) = Jac_FULL(4440,5252) - JVS(24227) = -B(12542) -! JVS(24228) = Jac_FULL(4440,5255) - JVS(24228) = -B(12540) -! JVS(24229) = Jac_FULL(4440,5256) - JVS(24229) = B(8928)-B(12544) -! JVS(24230) = Jac_FULL(4440,5258) - JVS(24230) = 0 -! JVS(24231) = Jac_FULL(4441,78) - JVS(24231) = B(18637) -! JVS(24232) = Jac_FULL(4441,93) - JVS(24232) = B(18638) -! JVS(24233) = Jac_FULL(4441,1435) - JVS(24233) = 0 -! JVS(24234) = Jac_FULL(4441,2263) - JVS(24234) = B(21496) -! JVS(24235) = Jac_FULL(4441,2866) - JVS(24235) = B(21501) -! JVS(24236) = Jac_FULL(4441,3782) - JVS(24236) = 0 -! JVS(24237) = Jac_FULL(4441,4441) - JVS(24237) = -B(20246)-B(20248)-B(20250)-B(20252)-B(20254)-B(20256) -! JVS(24238) = Jac_FULL(4441,4799) - JVS(24238) = 0 -! JVS(24239) = Jac_FULL(4441,5250) - JVS(24239) = B(18639)+B(21497) -! JVS(24240) = Jac_FULL(4441,5252) - JVS(24240) = -B(20251) -! JVS(24241) = Jac_FULL(4441,5253) - JVS(24241) = -B(20253) -! JVS(24242) = Jac_FULL(4441,5255) - JVS(24242) = -B(20247)-B(20249) -! JVS(24243) = Jac_FULL(4441,5256) - JVS(24243) = -B(20255) -! JVS(24244) = Jac_FULL(4442,174) - JVS(24244) = B(22006) -! JVS(24245) = Jac_FULL(4442,1119) - JVS(24245) = 0 -! JVS(24246) = Jac_FULL(4442,1550) - JVS(24246) = B(22007) -! JVS(24247) = Jac_FULL(4442,1551) - JVS(24247) = 0 -! JVS(24248) = Jac_FULL(4442,3011) - JVS(24248) = 0 -! JVS(24249) = Jac_FULL(4442,3686) - JVS(24249) = 0 -! JVS(24250) = Jac_FULL(4442,4442) - JVS(24250) = -B(22608)-B(22610)-B(22612)-B(22614)-B(22616)-B(22617)-B(22618) -! JVS(24251) = Jac_FULL(4442,5131) - JVS(24251) = 0 -! JVS(24252) = Jac_FULL(4442,5250) - JVS(24252) = B(22008) -! JVS(24253) = Jac_FULL(4442,5252) - JVS(24253) = -B(22611)-B(22613) -! JVS(24254) = Jac_FULL(4442,5253) - JVS(24254) = 0 -! JVS(24255) = Jac_FULL(4442,5255) - JVS(24255) = -B(22609) -! JVS(24256) = Jac_FULL(4442,5256) - JVS(24256) = -B(22615) -! JVS(24257) = Jac_FULL(4443,776) - JVS(24257) = B(17949) -! JVS(24258) = Jac_FULL(4443,1418) - JVS(24258) = B(21250) -! JVS(24259) = Jac_FULL(4443,2298) - JVS(24259) = 0 -! JVS(24260) = Jac_FULL(4443,3218) - JVS(24260) = B(21252) -! JVS(24261) = Jac_FULL(4443,3919) - JVS(24261) = 0 -! JVS(24262) = Jac_FULL(4443,4443) - JVS(24262) = -B(19804)-B(19806)-B(19808)-B(19810)-B(19812)-B(19814) -! JVS(24263) = Jac_FULL(4443,5107) - JVS(24263) = 0 -! JVS(24264) = Jac_FULL(4443,5250) - JVS(24264) = B(21251) -! JVS(24265) = Jac_FULL(4443,5252) - JVS(24265) = -B(19809) -! JVS(24266) = Jac_FULL(4443,5253) - JVS(24266) = -B(19811) -! JVS(24267) = Jac_FULL(4443,5255) - JVS(24267) = -B(19805)-B(19807) -! JVS(24268) = Jac_FULL(4443,5256) - JVS(24268) = -B(19813) -! JVS(24269) = Jac_FULL(4444,822) - JVS(24269) = B(16085) -! JVS(24270) = Jac_FULL(4444,3684) - JVS(24270) = B(5873)+B(5877) -! JVS(24271) = Jac_FULL(4444,3997) - JVS(24271) = B(12987)+B(12989)+B(12991) -! JVS(24272) = Jac_FULL(4444,4444) - JVS(24272) = -B(9521)-B(9523) -! JVS(24273) = Jac_FULL(4444,5250) - JVS(24273) = B(5878) -! JVS(24274) = Jac_FULL(4444,5252) - JVS(24274) = B(12988) -! JVS(24275) = Jac_FULL(4444,5253) - JVS(24275) = -B(9522) -! JVS(24276) = Jac_FULL(4444,5255) - JVS(24276) = 0 -! JVS(24277) = Jac_FULL(4444,5256) - JVS(24277) = B(5874)+B(12990) -! JVS(24278) = Jac_FULL(4444,5258) - JVS(24278) = -B(9524) -! JVS(24279) = Jac_FULL(4445,2388) - JVS(24279) = B(22275) -! JVS(24280) = Jac_FULL(4445,2833) - JVS(24280) = B(22280) -! JVS(24281) = Jac_FULL(4445,3681) - JVS(24281) = B(20267) -! JVS(24282) = Jac_FULL(4445,4445) - JVS(24282) = -B(21502)-B(21504)-B(21506)-B(21508)-B(21510)-B(21512) -! JVS(24283) = Jac_FULL(4445,4535) - JVS(24283) = 0 -! JVS(24284) = Jac_FULL(4445,5250) - JVS(24284) = B(22276) -! JVS(24285) = Jac_FULL(4445,5252) - JVS(24285) = -B(21507) -! JVS(24286) = Jac_FULL(4445,5253) - JVS(24286) = -B(21509) -! JVS(24287) = Jac_FULL(4445,5255) - JVS(24287) = -B(21503)-B(21505) -! JVS(24288) = Jac_FULL(4445,5256) - JVS(24288) = -B(21511) -! JVS(24289) = Jac_FULL(4446,3530) - JVS(24289) = B(7118) -! JVS(24290) = Jac_FULL(4446,4300) - JVS(24290) = 0 -! JVS(24291) = Jac_FULL(4446,4446) - JVS(24291) = -B(10901)-B(10903)-B(10905)-B(10907)-B(10908)-B(10909) -! JVS(24292) = Jac_FULL(4446,4784) - JVS(24292) = 0 -! JVS(24293) = Jac_FULL(4446,5109) - JVS(24293) = 0 -! JVS(24294) = Jac_FULL(4446,5250) - JVS(24294) = B(7119) -! JVS(24295) = Jac_FULL(4446,5252) - JVS(24295) = -B(10904) -! JVS(24296) = Jac_FULL(4446,5255) - JVS(24296) = -B(10902) -! JVS(24297) = Jac_FULL(4446,5256) - JVS(24297) = -B(10906) -! JVS(24298) = Jac_FULL(4447,1146) - JVS(24298) = B(23276) -! JVS(24299) = Jac_FULL(4447,3309) - JVS(24299) = B(22390) -! JVS(24300) = Jac_FULL(4447,4409) - JVS(24300) = B(22863)+B(22865)+B(22869)+B(22871) -! JVS(24301) = Jac_FULL(4447,4410) - JVS(24301) = 0 -! JVS(24302) = Jac_FULL(4447,4447) - JVS(24302) = -B(22872)-B(22874)-B(22876)-B(22878) -! JVS(24303) = Jac_FULL(4447,5215) - JVS(24303) = 0 -! JVS(24304) = Jac_FULL(4447,5250) - JVS(24304) = 0 -! JVS(24305) = Jac_FULL(4447,5252) - JVS(24305) = B(22866)-B(22875) -! JVS(24306) = Jac_FULL(4447,5253) - JVS(24306) = 0 -! JVS(24307) = Jac_FULL(4447,5255) - JVS(24307) = B(22864)-B(22873) -! JVS(24308) = Jac_FULL(4447,5256) - JVS(24308) = B(22870)-B(22877) -! JVS(24309) = Jac_FULL(4448,31) - JVS(24309) = B(9145) -! JVS(24310) = Jac_FULL(4448,1009) - JVS(24310) = B(9142) -! JVS(24311) = Jac_FULL(4448,1664) - JVS(24311) = B(9154) -! JVS(24312) = Jac_FULL(4448,3320) - JVS(24312) = B(9149) -! JVS(24313) = Jac_FULL(4448,3531) - JVS(24313) = B(5555)+B(5557)+B(5559) -! JVS(24314) = Jac_FULL(4448,3796) - JVS(24314) = 0 -! JVS(24315) = Jac_FULL(4448,4448) - JVS(24315) = -B(9143)-B(9144) -! JVS(24316) = Jac_FULL(4448,5250) - JVS(24316) = B(9146) -! JVS(24317) = Jac_FULL(4448,5252) - JVS(24317) = B(5556) -! JVS(24318) = Jac_FULL(4448,5255) - JVS(24318) = 0 -! JVS(24319) = Jac_FULL(4448,5256) - JVS(24319) = B(5558) -! JVS(24320) = Jac_FULL(4449,2263) - JVS(24320) = B(21498) -! JVS(24321) = Jac_FULL(4449,2443) - JVS(24321) = B(21367) -! JVS(24322) = Jac_FULL(4449,2863) - JVS(24322) = B(21368) -! JVS(24323) = Jac_FULL(4449,2866) - JVS(24323) = B(21499) -! JVS(24324) = Jac_FULL(4449,4253) - JVS(24324) = B(20026)+B(20030)+B(20034)+B(20036) -! JVS(24325) = Jac_FULL(4449,4441) - JVS(24325) = B(20246)+B(20250)+B(20254)+B(20256) -! JVS(24326) = Jac_FULL(4449,4448) - JVS(24326) = 0 -! JVS(24327) = Jac_FULL(4449,4449) - JVS(24327) = -B(21362)-B(21364) -! JVS(24328) = Jac_FULL(4449,4799) - JVS(24328) = 0 -! JVS(24329) = Jac_FULL(4449,5250) - JVS(24329) = -B(21363)+B(21369)+B(21500) -! JVS(24330) = Jac_FULL(4449,5252) - JVS(24330) = B(20031)+B(20251) -! JVS(24331) = Jac_FULL(4449,5253) - JVS(24331) = 0 -! JVS(24332) = Jac_FULL(4449,5255) - JVS(24332) = B(20027)+B(20247) -! JVS(24333) = Jac_FULL(4449,5256) - JVS(24333) = B(20035)+B(20255) -! JVS(24334) = Jac_FULL(4450,528) - JVS(24334) = B(17979) -! JVS(24335) = Jac_FULL(4450,1226) - JVS(24335) = B(21263) -! JVS(24336) = Jac_FULL(4450,2411) - JVS(24336) = 0 -! JVS(24337) = Jac_FULL(4450,3306) - JVS(24337) = B(21265) -! JVS(24338) = Jac_FULL(4450,3916) - JVS(24338) = 0 -! JVS(24339) = Jac_FULL(4450,4450) - JVS(24339) = -B(19831)-B(19833)-B(19835)-B(19837)-B(19839)-B(19841) -! JVS(24340) = Jac_FULL(4450,5138) - JVS(24340) = 0 -! JVS(24341) = Jac_FULL(4450,5250) - JVS(24341) = B(21264) -! JVS(24342) = Jac_FULL(4450,5252) - JVS(24342) = -B(19836) -! JVS(24343) = Jac_FULL(4450,5253) - JVS(24343) = -B(19838) -! JVS(24344) = Jac_FULL(4450,5255) - JVS(24344) = -B(19832)-B(19834) -! JVS(24345) = Jac_FULL(4450,5256) - JVS(24345) = -B(19840) -! JVS(24346) = Jac_FULL(4451,929) - JVS(24346) = B(14861) -! JVS(24347) = Jac_FULL(4451,2674) - JVS(24347) = B(14866) -! JVS(24348) = Jac_FULL(4451,4451) - JVS(24348) = -B(11522)-B(11524)-B(11526)-B(11528)-B(11530)-B(11532) -! JVS(24349) = Jac_FULL(4451,4882) - JVS(24349) = B(7725)+B(7729) -! JVS(24350) = Jac_FULL(4451,5250) - JVS(24350) = B(7730)+B(14862) -! JVS(24351) = Jac_FULL(4451,5252) - JVS(24351) = -B(11527) -! JVS(24352) = Jac_FULL(4451,5253) - JVS(24352) = -B(11529) -! JVS(24353) = Jac_FULL(4451,5255) - JVS(24353) = -B(11523)-B(11525) -! JVS(24354) = Jac_FULL(4451,5256) - JVS(24354) = B(7726)-B(11531) -! JVS(24355) = Jac_FULL(4452,2460) - JVS(24355) = B(12202) -! JVS(24356) = Jac_FULL(4452,2522) - JVS(24356) = B(12207) -! JVS(24357) = Jac_FULL(4452,4108) - JVS(24357) = B(4899)+B(4901) -! JVS(24358) = Jac_FULL(4452,4452) - JVS(24358) = -B(8475)-B(8477)-B(8479)-B(8481)-B(8483)-B(8485)-B(8487)-B(8488) -! JVS(24359) = Jac_FULL(4452,4809) - JVS(24359) = 0 -! JVS(24360) = Jac_FULL(4452,5250) - JVS(24360) = B(4902)+B(12203) -! JVS(24361) = Jac_FULL(4452,5252) - JVS(24361) = -B(8482) -! JVS(24362) = Jac_FULL(4452,5253) - JVS(24362) = -B(8484) -! JVS(24363) = Jac_FULL(4452,5255) - JVS(24363) = -B(8476)-B(8478)-B(8480) -! JVS(24364) = Jac_FULL(4452,5256) - JVS(24364) = B(4900)-B(8486) -! JVS(24365) = Jac_FULL(4453,1476) - JVS(24365) = B(12781) -! JVS(24366) = Jac_FULL(4453,3136) - JVS(24366) = B(2558)+B(2564) -! JVS(24367) = Jac_FULL(4453,4020) - JVS(24367) = B(9270)+B(9272)+B(9274) -! JVS(24368) = Jac_FULL(4453,4453) - JVS(24368) = -B(5674)-B(5676) -! JVS(24369) = Jac_FULL(4453,5250) - JVS(24369) = B(2565) -! JVS(24370) = Jac_FULL(4453,5252) - JVS(24370) = B(9271) -! JVS(24371) = Jac_FULL(4453,5253) - JVS(24371) = -B(5675) -! JVS(24372) = Jac_FULL(4453,5255) - JVS(24372) = 0 -! JVS(24373) = Jac_FULL(4453,5256) - JVS(24373) = B(2559)+B(9273) -! JVS(24374) = Jac_FULL(4453,5258) - JVS(24374) = -B(5677) -! JVS(24375) = Jac_FULL(4454,1294) - JVS(24375) = B(15887) -! JVS(24376) = Jac_FULL(4454,3831) - JVS(24376) = B(5694)+B(5698) -! JVS(24377) = Jac_FULL(4454,4057) - JVS(24377) = B(12795)+B(12797)+B(12799) -! JVS(24378) = Jac_FULL(4454,4454) - JVS(24378) = -B(9290)-B(9292) -! JVS(24379) = Jac_FULL(4454,5250) - JVS(24379) = B(5699) -! JVS(24380) = Jac_FULL(4454,5252) - JVS(24380) = B(12796) -! JVS(24381) = Jac_FULL(4454,5253) - JVS(24381) = -B(9291) -! JVS(24382) = Jac_FULL(4454,5255) - JVS(24382) = 0 -! JVS(24383) = Jac_FULL(4454,5256) - JVS(24383) = B(5695)+B(12798) -! JVS(24384) = Jac_FULL(4454,5258) - JVS(24384) = -B(9293) -! JVS(24385) = Jac_FULL(4455,1030) - JVS(24385) = B(20257) -! JVS(24386) = Jac_FULL(4455,3152) - JVS(24386) = B(16365) -! JVS(24387) = Jac_FULL(4455,4455) - JVS(24387) = -B(18648)-B(18650)-B(18652)-B(18654) -! JVS(24388) = Jac_FULL(4455,4663) - JVS(24388) = 0 -! JVS(24389) = Jac_FULL(4455,5250) - JVS(24389) = B(20258) -! JVS(24390) = Jac_FULL(4455,5252) - JVS(24390) = -B(18651) -! JVS(24391) = Jac_FULL(4455,5253) - JVS(24391) = 0 -! JVS(24392) = Jac_FULL(4455,5255) - JVS(24392) = -B(18649) -! JVS(24393) = Jac_FULL(4455,5256) - JVS(24393) = B(16366)-B(18653) -! JVS(24394) = Jac_FULL(4456,1461) - JVS(24394) = B(24026) -! JVS(24395) = Jac_FULL(4456,2619) - JVS(24395) = B(24031) -! JVS(24396) = Jac_FULL(4456,3633) - JVS(24396) = B(23966)+B(23968) -! JVS(24397) = Jac_FULL(4456,4456) - JVS(24397) = -B(23991)-B(23993)-B(23995)-B(23997)-B(23999)-B(24001) -! JVS(24398) = Jac_FULL(4456,4820) - JVS(24398) = 0 -! JVS(24399) = Jac_FULL(4456,5250) - JVS(24399) = B(23969)+B(24027) -! JVS(24400) = Jac_FULL(4456,5252) - JVS(24400) = -B(23996) -! JVS(24401) = Jac_FULL(4456,5253) - JVS(24401) = -B(23998) -! JVS(24402) = Jac_FULL(4456,5255) - JVS(24402) = -B(23992)-B(23994) -! JVS(24403) = Jac_FULL(4456,5256) - JVS(24403) = B(23967)-B(24000) -! JVS(24404) = Jac_FULL(4457,1303) - JVS(24404) = B(12973) -! JVS(24405) = Jac_FULL(4457,3172) - JVS(24405) = B(2645)+B(2651) -! JVS(24406) = Jac_FULL(4457,4063) - JVS(24406) = B(9501)+B(9503)+B(9505) -! JVS(24407) = Jac_FULL(4457,4457) - JVS(24407) = -B(5853)-B(5855) -! JVS(24408) = Jac_FULL(4457,5250) - JVS(24408) = B(2652) -! JVS(24409) = Jac_FULL(4457,5252) - JVS(24409) = B(9502) -! JVS(24410) = Jac_FULL(4457,5253) - JVS(24410) = -B(5854) -! JVS(24411) = Jac_FULL(4457,5255) - JVS(24411) = 0 -! JVS(24412) = Jac_FULL(4457,5256) - JVS(24412) = B(2646)+B(9504) -! JVS(24413) = Jac_FULL(4457,5258) - JVS(24413) = -B(5856) -! JVS(24414) = Jac_FULL(4458,1376) - JVS(24414) = B(19918) -! JVS(24415) = Jac_FULL(4458,3088) - JVS(24415) = B(15524) -! JVS(24416) = Jac_FULL(4458,4458) - JVS(24416) = -B(18104)-B(18106)-B(18108)-B(18110) -! JVS(24417) = Jac_FULL(4458,4798) - JVS(24417) = 0 -! JVS(24418) = Jac_FULL(4458,5250) - JVS(24418) = B(19919) -! JVS(24419) = Jac_FULL(4458,5252) - JVS(24419) = -B(18107) -! JVS(24420) = Jac_FULL(4458,5253) - JVS(24420) = 0 -! JVS(24421) = Jac_FULL(4458,5255) - JVS(24421) = -B(18105) -! JVS(24422) = Jac_FULL(4458,5256) - JVS(24422) = B(15525)-B(18109) -! JVS(24423) = Jac_FULL(4459,827) - JVS(24423) = B(23594)+B(23596) -! JVS(24424) = Jac_FULL(4459,1408) - JVS(24424) = B(23599) -! JVS(24425) = Jac_FULL(4459,4459) - JVS(24425) = -B(23326)-B(23328)-B(23330)-B(23332)-B(23333)-B(23334) -! JVS(24426) = Jac_FULL(4459,4653) - JVS(24426) = B(23302)+B(23304)+B(23308)+B(23311) -! JVS(24427) = Jac_FULL(4459,5072) - JVS(24427) = B(22908) -! JVS(24428) = Jac_FULL(4459,5250) - JVS(24428) = B(23595) -! JVS(24429) = Jac_FULL(4459,5252) - JVS(24429) = B(23305)-B(23329) -! JVS(24430) = Jac_FULL(4459,5255) - JVS(24430) = B(23303)-B(23327) -! JVS(24431) = Jac_FULL(4459,5256) - JVS(24431) = B(23309)-B(23331) -! JVS(24432) = Jac_FULL(4460,2429) - JVS(24432) = B(20307) -! JVS(24433) = Jac_FULL(4460,2705) - JVS(24433) = B(20309) -! JVS(24434) = Jac_FULL(4460,3154) - JVS(24434) = B(16481) -! JVS(24435) = Jac_FULL(4460,3835) - JVS(24435) = 0 -! JVS(24436) = Jac_FULL(4460,4460) - JVS(24436) = -B(18707)-B(18709)-B(18711)-B(18713)-B(18715)-B(18717)-B(18719)-B(18720) -! JVS(24437) = Jac_FULL(4460,5015) - JVS(24437) = 0 -! JVS(24438) = Jac_FULL(4460,5250) - JVS(24438) = B(16482)+B(20308) -! JVS(24439) = Jac_FULL(4460,5252) - JVS(24439) = -B(18714) -! JVS(24440) = Jac_FULL(4460,5253) - JVS(24440) = -B(18716) -! JVS(24441) = Jac_FULL(4460,5255) - JVS(24441) = -B(18708)-B(18710)-B(18712) -! JVS(24442) = Jac_FULL(4460,5256) - JVS(24442) = -B(18718) -! JVS(24443) = Jac_FULL(4461,1137) - JVS(24443) = B(22184) -! JVS(24444) = Jac_FULL(4461,3151) - JVS(24444) = B(19772) -! JVS(24445) = Jac_FULL(4461,3522) - JVS(24445) = 0 -! JVS(24446) = Jac_FULL(4461,4349) - JVS(24446) = 0 -! JVS(24447) = Jac_FULL(4461,4461) - JVS(24447) = -B(21229)-B(21231)-B(21233)-B(21235) -! JVS(24448) = Jac_FULL(4461,4713) - JVS(24448) = 0 -! JVS(24449) = Jac_FULL(4461,5112) - JVS(24449) = 0 -! JVS(24450) = Jac_FULL(4461,5250) - JVS(24450) = B(19773)+B(22185) -! JVS(24451) = Jac_FULL(4461,5252) - JVS(24451) = -B(21232) -! JVS(24452) = Jac_FULL(4461,5255) - JVS(24452) = -B(21230) -! JVS(24453) = Jac_FULL(4461,5256) - JVS(24453) = -B(21234) -! JVS(24454) = Jac_FULL(4462,2600) - JVS(24454) = B(21657) -! JVS(24455) = Jac_FULL(4462,2867) - JVS(24455) = B(21670) -! JVS(24456) = Jac_FULL(4462,4462) - JVS(24456) = -B(22297)-B(22299)-B(22301)-B(22302) -! JVS(24457) = Jac_FULL(4462,4806) - JVS(24457) = 0 -! JVS(24458) = Jac_FULL(4462,5111) - JVS(24458) = 0 -! JVS(24459) = Jac_FULL(4462,5113) - JVS(24459) = B(22948) -! JVS(24460) = Jac_FULL(4462,5250) - JVS(24460) = B(21658)+B(21671)-B(22300)+B(22949) -! JVS(24461) = Jac_FULL(4462,5253) - JVS(24461) = 0 -! JVS(24462) = Jac_FULL(4462,5256) - JVS(24462) = -B(22298) -! JVS(24463) = Jac_FULL(4463,1045) - JVS(24463) = B(20213) -! JVS(24464) = Jac_FULL(4463,3143) - JVS(24464) = B(16266) -! JVS(24465) = Jac_FULL(4463,4463) - JVS(24465) = -B(18576)-B(18578)-B(18580)-B(18582) -! JVS(24466) = Jac_FULL(4463,4682) - JVS(24466) = 0 -! JVS(24467) = Jac_FULL(4463,5250) - JVS(24467) = B(20214) -! JVS(24468) = Jac_FULL(4463,5252) - JVS(24468) = -B(18579) -! JVS(24469) = Jac_FULL(4463,5253) - JVS(24469) = 0 -! JVS(24470) = Jac_FULL(4463,5255) - JVS(24470) = -B(18577) -! JVS(24471) = Jac_FULL(4463,5256) - JVS(24471) = B(16267)-B(18581) -! JVS(24472) = Jac_FULL(4464,1169) - JVS(24472) = B(20063) -! JVS(24473) = Jac_FULL(4464,3181) - JVS(24473) = B(15844) -! JVS(24474) = Jac_FULL(4464,4464) - JVS(24474) = -B(18298)-B(18300)-B(18302)-B(18304) -! JVS(24475) = Jac_FULL(4464,4797) - JVS(24475) = 0 -! JVS(24476) = Jac_FULL(4464,5250) - JVS(24476) = B(20064) -! JVS(24477) = Jac_FULL(4464,5252) - JVS(24477) = -B(18301) -! JVS(24478) = Jac_FULL(4464,5253) - JVS(24478) = 0 -! JVS(24479) = Jac_FULL(4464,5255) - JVS(24479) = -B(18299) -! JVS(24480) = Jac_FULL(4464,5256) - JVS(24480) = B(15845)-B(18303) -! JVS(24481) = Jac_FULL(4465,1116) - JVS(24481) = B(23923) -! JVS(24482) = Jac_FULL(4465,1219) - JVS(24482) = B(23919) -! JVS(24483) = Jac_FULL(4465,4362) - JVS(24483) = B(23571) -! JVS(24484) = Jac_FULL(4465,4465) - JVS(24484) = -B(23791)-B(23793)-B(23795)-B(23797) -! JVS(24485) = Jac_FULL(4465,4520) - JVS(24485) = B(23780)+B(23784)+B(23788)+B(23790) -! JVS(24486) = Jac_FULL(4465,4898) - JVS(24486) = 0 -! JVS(24487) = Jac_FULL(4465,5250) - JVS(24487) = B(23924) -! JVS(24488) = Jac_FULL(4465,5252) - JVS(24488) = B(23785)-B(23794) -! JVS(24489) = Jac_FULL(4465,5255) - JVS(24489) = B(23781)-B(23792) -! JVS(24490) = Jac_FULL(4465,5256) - JVS(24490) = B(23789)-B(23796) -! JVS(24491) = Jac_FULL(4466,1539) - JVS(24491) = B(15983) -! JVS(24492) = Jac_FULL(4466,3701) - JVS(24492) = B(5785)+B(5789) -! JVS(24493) = Jac_FULL(4466,4065) - JVS(24493) = B(12889)+B(12891)+B(12893) -! JVS(24494) = Jac_FULL(4466,4466) - JVS(24494) = -B(9406)-B(9408) -! JVS(24495) = Jac_FULL(4466,5250) - JVS(24495) = B(5790) -! JVS(24496) = Jac_FULL(4466,5252) - JVS(24496) = B(12890) -! JVS(24497) = Jac_FULL(4466,5253) - JVS(24497) = -B(9407) -! JVS(24498) = Jac_FULL(4466,5255) - JVS(24498) = 0 -! JVS(24499) = Jac_FULL(4466,5256) - JVS(24499) = B(5786)+B(12892) -! JVS(24500) = Jac_FULL(4466,5258) - JVS(24500) = -B(9409) -! JVS(24501) = Jac_FULL(4467,934) - JVS(24501) = B(19880) -! JVS(24502) = Jac_FULL(4467,3146) - JVS(24502) = B(15464) -! JVS(24503) = Jac_FULL(4467,4467) - JVS(24503) = -B(18055)-B(18057)-B(18059)-B(18061) -! JVS(24504) = Jac_FULL(4467,4859) - JVS(24504) = 0 -! JVS(24505) = Jac_FULL(4467,5250) - JVS(24505) = B(19881) -! JVS(24506) = Jac_FULL(4467,5252) - JVS(24506) = -B(18058) -! JVS(24507) = Jac_FULL(4467,5253) - JVS(24507) = 0 -! JVS(24508) = Jac_FULL(4467,5255) - JVS(24508) = -B(18056) -! JVS(24509) = Jac_FULL(4467,5256) - JVS(24509) = B(15465)-B(18060) -! JVS(24510) = Jac_FULL(4468,1236) - JVS(24510) = B(22152) -! JVS(24511) = Jac_FULL(4468,2845) - JVS(24511) = B(22154) -! JVS(24512) = Jac_FULL(4468,3513) - JVS(24512) = B(19608)+B(19610) -! JVS(24513) = Jac_FULL(4468,4468) - JVS(24513) = -B(21146)-B(21148)-B(21150)-B(21152)-B(21154)-B(21156) -! JVS(24514) = Jac_FULL(4468,4911) - JVS(24514) = 0 -! JVS(24515) = Jac_FULL(4468,5250) - JVS(24515) = B(19611)+B(22153) -! JVS(24516) = Jac_FULL(4468,5252) - JVS(24516) = -B(21151) -! JVS(24517) = Jac_FULL(4468,5253) - JVS(24517) = -B(21153) -! JVS(24518) = Jac_FULL(4468,5255) - JVS(24518) = -B(21147)-B(21149) -! JVS(24519) = Jac_FULL(4468,5256) - JVS(24519) = B(19609)-B(21155) -! JVS(24520) = Jac_FULL(4469,853) - JVS(24520) = B(11943) -! JVS(24521) = Jac_FULL(4469,3026) - JVS(24521) = B(11945) -! JVS(24522) = Jac_FULL(4469,3856) - JVS(24522) = B(4637)+B(4639) -! JVS(24523) = Jac_FULL(4469,4469) - JVS(24523) = -B(8188)-B(8190)-B(8192)-B(8194)-B(8196)-B(8198) -! JVS(24524) = Jac_FULL(4469,5082) - JVS(24524) = 0 -! JVS(24525) = Jac_FULL(4469,5250) - JVS(24525) = B(4640)+B(11944) -! JVS(24526) = Jac_FULL(4469,5252) - JVS(24526) = -B(8193) -! JVS(24527) = Jac_FULL(4469,5253) - JVS(24527) = -B(8195) -! JVS(24528) = Jac_FULL(4469,5255) - JVS(24528) = -B(8189)-B(8191) -! JVS(24529) = Jac_FULL(4469,5256) - JVS(24529) = B(4638)-B(8197) -! JVS(24530) = Jac_FULL(4470,2176) - JVS(24530) = B(12221) -! JVS(24531) = Jac_FULL(4470,2583) - JVS(24531) = B(12226) -! JVS(24532) = Jac_FULL(4470,4174) - JVS(24532) = B(4933)+B(4935) -! JVS(24533) = Jac_FULL(4470,4470) - JVS(24533) = -B(8499)-B(8501)-B(8503)-B(8505)-B(8507)-B(8509)-B(8511)-B(8512) -! JVS(24534) = Jac_FULL(4470,4972) - JVS(24534) = 0 -! JVS(24535) = Jac_FULL(4470,5250) - JVS(24535) = B(4936)+B(12222) -! JVS(24536) = Jac_FULL(4470,5252) - JVS(24536) = -B(8506) -! JVS(24537) = Jac_FULL(4470,5253) - JVS(24537) = -B(8508) -! JVS(24538) = Jac_FULL(4470,5255) - JVS(24538) = -B(8500)-B(8502)-B(8504) -! JVS(24539) = Jac_FULL(4470,5256) - JVS(24539) = B(4934)-B(8510) -! JVS(24540) = Jac_FULL(4471,1243) - JVS(24540) = B(15694) -! JVS(24541) = Jac_FULL(4471,3508) - JVS(24541) = B(5470)+B(5474) -! JVS(24542) = Jac_FULL(4471,4033) - JVS(24542) = B(12603)+B(12605)+B(12607) -! JVS(24543) = Jac_FULL(4471,4471) - JVS(24543) = -B(9013)-B(9015) -! JVS(24544) = Jac_FULL(4471,5250) - JVS(24544) = B(5475) -! JVS(24545) = Jac_FULL(4471,5252) - JVS(24545) = B(12604) -! JVS(24546) = Jac_FULL(4471,5253) - JVS(24546) = -B(9014) -! JVS(24547) = Jac_FULL(4471,5255) - JVS(24547) = 0 -! JVS(24548) = Jac_FULL(4471,5256) - JVS(24548) = B(5471)+B(12606) -! JVS(24549) = Jac_FULL(4471,5258) - JVS(24549) = -B(9016) -! JVS(24550) = Jac_FULL(4472,1248) - JVS(24550) = B(21317) -! JVS(24551) = Jac_FULL(4472,3075) - JVS(24551) = B(21322) -! JVS(24552) = Jac_FULL(4472,4472) - JVS(24552) = -B(19928)-B(19930)-B(19932)-B(19934)-B(19936)-B(19938) -! JVS(24553) = Jac_FULL(4472,5018) - JVS(24553) = B(18134)+B(18136) -! JVS(24554) = Jac_FULL(4472,5250) - JVS(24554) = B(18137)+B(21318) -! JVS(24555) = Jac_FULL(4472,5252) - JVS(24555) = -B(19933) -! JVS(24556) = Jac_FULL(4472,5253) - JVS(24556) = -B(19935) -! JVS(24557) = Jac_FULL(4472,5255) - JVS(24557) = -B(19929)-B(19931) -! JVS(24558) = Jac_FULL(4472,5256) - JVS(24558) = B(18135)-B(19937) -! JVS(24559) = Jac_FULL(4473,806) - JVS(24559) = B(132) -! JVS(24560) = Jac_FULL(4473,1948) - JVS(24560) = B(3870) -! JVS(24561) = Jac_FULL(4473,4473) - JVS(24561) = -B(1118)-B(1120)-B(1122)-B(1124)-B(1126)-B(1127)-B(1128) -! JVS(24562) = Jac_FULL(4473,4474) - JVS(24562) = B(545) -! JVS(24563) = Jac_FULL(4473,5078) - JVS(24563) = 0 -! JVS(24564) = Jac_FULL(4473,5250) - JVS(24564) = B(133)+B(546)+B(3871) -! JVS(24565) = Jac_FULL(4473,5252) - JVS(24565) = -B(1121)-B(1123) -! JVS(24566) = Jac_FULL(4473,5255) - JVS(24566) = -B(1119) -! JVS(24567) = Jac_FULL(4473,5256) - JVS(24567) = -B(1125) -! JVS(24568) = Jac_FULL(4474,4474) - JVS(24568) = -B(537)-B(539)-B(541)-B(543)-B(545)-B(547) -! JVS(24569) = Jac_FULL(4474,5250) - JVS(24569) = -B(546)-B(548) -! JVS(24570) = Jac_FULL(4474,5256) - JVS(24570) = -B(538)-B(540) -! JVS(24571) = Jac_FULL(4474,5258) - JVS(24571) = -B(542)-B(544) -! JVS(24572) = Jac_FULL(4475,4475) - JVS(24572) = -B(501)-B(503)-B(505)-B(507)-B(509)-B(511) -! JVS(24573) = Jac_FULL(4475,5250) - JVS(24573) = -B(510)-B(512) -! JVS(24574) = Jac_FULL(4475,5256) - JVS(24574) = -B(502)-B(504) -! JVS(24575) = Jac_FULL(4475,5258) - JVS(24575) = -B(506)-B(508) -! JVS(24576) = Jac_FULL(4476,3266) - JVS(24576) = B(4996) -! JVS(24577) = Jac_FULL(4476,4332) - JVS(24577) = B(497) -! JVS(24578) = Jac_FULL(4476,4475) - JVS(24578) = B(509) -! JVS(24579) = Jac_FULL(4476,4476) - JVS(24579) = -B(2149)-B(2151)-B(2153)-B(2155)-B(2157)-B(2158)-B(2159) -! JVS(24580) = Jac_FULL(4476,5250) - JVS(24580) = B(498)+B(510)+B(4997) -! JVS(24581) = Jac_FULL(4476,5252) - JVS(24581) = -B(2152)-B(2154) -! JVS(24582) = Jac_FULL(4476,5255) - JVS(24582) = -B(2150) -! JVS(24583) = Jac_FULL(4476,5256) - JVS(24583) = -B(2156) -! JVS(24584) = Jac_FULL(4476,5258) - JVS(24584) = 0 -! JVS(24585) = Jac_FULL(4477,1154) - JVS(24585) = B(23890) -! JVS(24586) = Jac_FULL(4477,2153) - JVS(24586) = B(23896) -! JVS(24587) = Jac_FULL(4477,2895) - JVS(24587) = B(23490) -! JVS(24588) = Jac_FULL(4477,3736) - JVS(24588) = 0 -! JVS(24589) = Jac_FULL(4477,3737) - JVS(24589) = 0 -! JVS(24590) = Jac_FULL(4477,4477) - JVS(24590) = -B(23744)-B(23746)-B(23748)-B(23750) -! JVS(24591) = Jac_FULL(4477,4525) - JVS(24591) = B(23735)+B(23737)+B(23741)+B(23743) -! JVS(24592) = Jac_FULL(4477,4672) - JVS(24592) = 0 -! JVS(24593) = Jac_FULL(4477,5250) - JVS(24593) = B(23897) -! JVS(24594) = Jac_FULL(4477,5252) - JVS(24594) = B(23738)-B(23747) -! JVS(24595) = Jac_FULL(4477,5255) - JVS(24595) = B(23736)-B(23745) -! JVS(24596) = Jac_FULL(4477,5256) - JVS(24596) = B(23742)-B(23749) -! JVS(24597) = Jac_FULL(4478,2177) - JVS(24597) = B(12592) -! JVS(24598) = Jac_FULL(4478,3158) - JVS(24598) = B(2450)+B(2454) -! JVS(24599) = Jac_FULL(4478,3199) - JVS(24599) = 0 -! JVS(24600) = Jac_FULL(4478,4375) - JVS(24600) = 0 -! JVS(24601) = Jac_FULL(4478,4376) - JVS(24601) = B(9001)+B(9003)+B(9005) -! JVS(24602) = Jac_FULL(4478,4478) - JVS(24602) = -B(5458)-B(5460) -! JVS(24603) = Jac_FULL(4478,5250) - JVS(24603) = B(2455) -! JVS(24604) = Jac_FULL(4478,5252) - JVS(24604) = B(9002) -! JVS(24605) = Jac_FULL(4478,5253) - JVS(24605) = -B(5459) -! JVS(24606) = Jac_FULL(4478,5255) - JVS(24606) = 0 -! JVS(24607) = Jac_FULL(4478,5256) - JVS(24607) = B(2451)+B(9004) -! JVS(24608) = Jac_FULL(4478,5258) - JVS(24608) = -B(5461) -! JVS(24609) = Jac_FULL(4479,1188) - JVS(24609) = B(12878) -! JVS(24610) = Jac_FULL(4479,3149) - JVS(24610) = B(2604)+B(2608) -! JVS(24611) = Jac_FULL(4479,4016) - JVS(24611) = B(9394)+B(9396)+B(9398) -! JVS(24612) = Jac_FULL(4479,4479) - JVS(24612) = -B(5773)-B(5775) -! JVS(24613) = Jac_FULL(4479,5250) - JVS(24613) = B(2609) -! JVS(24614) = Jac_FULL(4479,5252) - JVS(24614) = B(9395) -! JVS(24615) = Jac_FULL(4479,5253) - JVS(24615) = -B(5774) -! JVS(24616) = Jac_FULL(4479,5255) - JVS(24616) = 0 -! JVS(24617) = Jac_FULL(4479,5256) - JVS(24617) = B(2605)+B(9397) -! JVS(24618) = Jac_FULL(4479,5258) - JVS(24618) = -B(5776) -! JVS(24619) = Jac_FULL(4480,1129) - JVS(24619) = B(16197) -! JVS(24620) = Jac_FULL(4480,3553) - JVS(24620) = B(9665) -! JVS(24621) = Jac_FULL(4480,4480) - JVS(24621) = -B(13136)-B(13138)-B(13140)-B(13142)-B(13143) -! JVS(24622) = Jac_FULL(4480,4937) - JVS(24622) = 0 -! JVS(24623) = Jac_FULL(4480,5250) - JVS(24623) = B(9666)+B(16198) -! JVS(24624) = Jac_FULL(4480,5252) - JVS(24624) = -B(13139) -! JVS(24625) = Jac_FULL(4480,5255) - JVS(24625) = -B(13137) -! JVS(24626) = Jac_FULL(4480,5256) - JVS(24626) = -B(13141) -! JVS(24627) = Jac_FULL(4480,5258) - JVS(24627) = 0 -! JVS(24628) = Jac_FULL(4481,928) - JVS(24628) = B(16191) -! JVS(24629) = Jac_FULL(4481,3553) - JVS(24629) = B(9663) -! JVS(24630) = Jac_FULL(4481,3556) - JVS(24630) = B(18520) -! JVS(24631) = Jac_FULL(4481,4416) - JVS(24631) = 0 -! JVS(24632) = Jac_FULL(4481,4480) - JVS(24632) = 0 -! JVS(24633) = Jac_FULL(4481,4481) - JVS(24633) = -B(13128)-B(13130)-B(13132)-B(13134)-B(13135) -! JVS(24634) = Jac_FULL(4481,4937) - JVS(24634) = 0 -! JVS(24635) = Jac_FULL(4481,5250) - JVS(24635) = B(16192)+B(18521) -! JVS(24636) = Jac_FULL(4481,5252) - JVS(24636) = -B(13131) -! JVS(24637) = Jac_FULL(4481,5255) - JVS(24637) = -B(13129) -! JVS(24638) = Jac_FULL(4481,5256) - JVS(24638) = -B(13133) -! JVS(24639) = Jac_FULL(4481,5258) - JVS(24639) = B(9664) -! JVS(24640) = Jac_FULL(4482,15) - JVS(24640) = B(22242) -! JVS(24641) = Jac_FULL(4482,245) - JVS(24641) = 0 -! JVS(24642) = Jac_FULL(4482,1357) - JVS(24642) = B(23227) -! JVS(24643) = Jac_FULL(4482,2548) - JVS(24643) = 0 -! JVS(24644) = Jac_FULL(4482,3361) - JVS(24644) = 0 -! JVS(24645) = Jac_FULL(4482,3421) - JVS(24645) = 0 -! JVS(24646) = Jac_FULL(4482,3574) - JVS(24646) = 0 -! JVS(24647) = Jac_FULL(4482,3579) - JVS(24647) = 0 -! JVS(24648) = Jac_FULL(4482,4205) - JVS(24648) = 0 -! JVS(24649) = Jac_FULL(4482,4237) - JVS(24649) = 0 -! JVS(24650) = Jac_FULL(4482,4280) - JVS(24650) = 0 -! JVS(24651) = Jac_FULL(4482,4466) - JVS(24651) = 0 -! JVS(24652) = Jac_FULL(4482,4482) - JVS(24652) = -B(22780)-B(22782)-B(22784)-B(22786)-B(22787) -! JVS(24653) = Jac_FULL(4482,4511) - JVS(24653) = 0 -! JVS(24654) = Jac_FULL(4482,4791) - JVS(24654) = 0 -! JVS(24655) = Jac_FULL(4482,5250) - JVS(24655) = B(22243)+B(23228) -! JVS(24656) = Jac_FULL(4482,5252) - JVS(24656) = -B(22783) -! JVS(24657) = Jac_FULL(4482,5253) - JVS(24657) = 0 -! JVS(24658) = Jac_FULL(4482,5255) - JVS(24658) = -B(22781) -! JVS(24659) = Jac_FULL(4482,5256) - JVS(24659) = -B(22785) -! JVS(24660) = Jac_FULL(4482,5258) - JVS(24660) = 0 -! JVS(24661) = Jac_FULL(4483,1296) - JVS(24661) = B(9079) -! JVS(24662) = Jac_FULL(4483,1354) - JVS(24662) = B(9074)+B(9076) -! JVS(24663) = Jac_FULL(4483,3622) - JVS(24663) = B(2716) -! JVS(24664) = Jac_FULL(4483,4056) - JVS(24664) = B(2490) -! JVS(24665) = Jac_FULL(4483,4483) - JVS(24665) = -B(5540)-B(5542)-B(5544)-B(5546)-B(5547)-B(5548) -! JVS(24666) = Jac_FULL(4483,4892) - JVS(24666) = B(5510)+B(5516)+B(5520)+B(5522) -! JVS(24667) = Jac_FULL(4483,5250) - JVS(24667) = B(9075) -! JVS(24668) = Jac_FULL(4483,5252) - JVS(24668) = B(5517)-B(5543) -! JVS(24669) = Jac_FULL(4483,5255) - JVS(24669) = B(5511)-B(5541) -! JVS(24670) = Jac_FULL(4483,5256) - JVS(24670) = B(5521)-B(5545) -! JVS(24671) = Jac_FULL(4483,5258) - JVS(24671) = 0 -! JVS(24672) = Jac_FULL(4484,1540) - JVS(24672) = B(20768) -! JVS(24673) = Jac_FULL(4484,2515) - JVS(24673) = B(20773) -! JVS(24674) = Jac_FULL(4484,3947) - JVS(24674) = B(16975)+B(16977) -! JVS(24675) = Jac_FULL(4484,4484) - JVS(24675) = -B(19170)-B(19172)-B(19174)-B(19176)-B(19178)-B(19180)-B(19182)-B(19183) -! JVS(24676) = Jac_FULL(4484,4789) - JVS(24676) = 0 -! JVS(24677) = Jac_FULL(4484,5250) - JVS(24677) = B(16978)+B(20769) -! JVS(24678) = Jac_FULL(4484,5252) - JVS(24678) = -B(19177) -! JVS(24679) = Jac_FULL(4484,5253) - JVS(24679) = -B(19179) -! JVS(24680) = Jac_FULL(4484,5255) - JVS(24680) = -B(19171)-B(19173)-B(19175) -! JVS(24681) = Jac_FULL(4484,5256) - JVS(24681) = B(16976)-B(19181) -! JVS(24682) = Jac_FULL(4485,88) - JVS(24682) = B(20777) -! JVS(24683) = Jac_FULL(4485,593) - JVS(24683) = B(20778) -! JVS(24684) = Jac_FULL(4485,594) - JVS(24684) = 0 -! JVS(24685) = Jac_FULL(4485,1402) - JVS(24685) = B(22424) -! JVS(24686) = Jac_FULL(4485,2515) - JVS(24686) = 0 -! JVS(24687) = Jac_FULL(4485,2984) - JVS(24687) = B(22440) -! JVS(24688) = Jac_FULL(4485,4077) - JVS(24688) = 0 -! JVS(24689) = Jac_FULL(4485,4484) - JVS(24689) = 0 -! JVS(24690) = Jac_FULL(4485,4485) - JVS(24690) = -B(21804)-B(21806)-B(21808)-B(21810)-B(21812)-B(21814)-B(21816)-B(21817) -! JVS(24691) = Jac_FULL(4485,4789) - JVS(24691) = 0 -! JVS(24692) = Jac_FULL(4485,5250) - JVS(24692) = B(20779)+B(22425) -! JVS(24693) = Jac_FULL(4485,5252) - JVS(24693) = -B(21811) -! JVS(24694) = Jac_FULL(4485,5253) - JVS(24694) = -B(21813) -! JVS(24695) = Jac_FULL(4485,5255) - JVS(24695) = -B(21805)-B(21807)-B(21809) -! JVS(24696) = Jac_FULL(4485,5256) - JVS(24696) = -B(21815) -! JVS(24697) = Jac_FULL(4486,1044) - JVS(24697) = B(23343) -! JVS(24698) = Jac_FULL(4486,1925) - JVS(24698) = B(22493) -! JVS(24699) = Jac_FULL(4486,3006) - JVS(24699) = 0 -! JVS(24700) = Jac_FULL(4486,3436) - JVS(24700) = 0 -! JVS(24701) = Jac_FULL(4486,4371) - JVS(24701) = 0 -! JVS(24702) = Jac_FULL(4486,4486) - JVS(24702) = -B(22927)-B(22929)-B(22931)-B(22933) -! JVS(24703) = Jac_FULL(4486,5073) - JVS(24703) = 0 -! JVS(24704) = Jac_FULL(4486,5250) - JVS(24704) = B(22494)+B(23344) -! JVS(24705) = Jac_FULL(4486,5252) - JVS(24705) = -B(22930) -! JVS(24706) = Jac_FULL(4486,5253) - JVS(24706) = 0 -! JVS(24707) = Jac_FULL(4486,5255) - JVS(24707) = -B(22928) -! JVS(24708) = Jac_FULL(4486,5256) - JVS(24708) = -B(22932) -! JVS(24709) = Jac_FULL(4487,1152) - JVS(24709) = B(15783) -! JVS(24710) = Jac_FULL(4487,3560) - JVS(24710) = B(5569)+B(5573) -! JVS(24711) = Jac_FULL(4487,4073) - JVS(24711) = B(12715)+B(12717)+B(12719) -! JVS(24712) = Jac_FULL(4487,4487) - JVS(24712) = -B(9155)-B(9157) -! JVS(24713) = Jac_FULL(4487,5250) - JVS(24713) = B(5574) -! JVS(24714) = Jac_FULL(4487,5252) - JVS(24714) = B(12716) -! JVS(24715) = Jac_FULL(4487,5253) - JVS(24715) = -B(9156) -! JVS(24716) = Jac_FULL(4487,5255) - JVS(24716) = 0 -! JVS(24717) = Jac_FULL(4487,5256) - JVS(24717) = B(5570)+B(12718) -! JVS(24718) = Jac_FULL(4487,5258) - JVS(24718) = -B(9158) -! JVS(24719) = Jac_FULL(4488,136) - JVS(24719) = B(8779) -! JVS(24720) = Jac_FULL(4488,939) - JVS(24720) = B(8776) -! JVS(24721) = Jac_FULL(4488,1747) - JVS(24721) = B(8788) -! JVS(24722) = Jac_FULL(4488,3253) - JVS(24722) = B(8783) -! JVS(24723) = Jac_FULL(4488,3538) - JVS(24723) = B(5305)+B(5307)+B(5309) -! JVS(24724) = Jac_FULL(4488,3827) - JVS(24724) = 0 -! JVS(24725) = Jac_FULL(4488,4488) - JVS(24725) = -B(8777)-B(8778) -! JVS(24726) = Jac_FULL(4488,5250) - JVS(24726) = B(8780) -! JVS(24727) = Jac_FULL(4488,5252) - JVS(24727) = B(5306) -! JVS(24728) = Jac_FULL(4488,5255) - JVS(24728) = 0 -! JVS(24729) = Jac_FULL(4488,5256) - JVS(24729) = B(5308) -! JVS(24730) = Jac_FULL(4489,2414) - JVS(24730) = B(22205) -! JVS(24731) = Jac_FULL(4489,2859) - JVS(24731) = B(22210) -! JVS(24732) = Jac_FULL(4489,3742) - JVS(24732) = B(20025) -! JVS(24733) = Jac_FULL(4489,3783) - JVS(24733) = B(19906) -! JVS(24734) = Jac_FULL(4489,4448) - JVS(24734) = 0 -! JVS(24735) = Jac_FULL(4489,4488) - JVS(24735) = 0 -! JVS(24736) = Jac_FULL(4489,4489) - JVS(24736) = -B(21299)-B(21301)-B(21303)-B(21305)-B(21307)-B(21309) -! JVS(24737) = Jac_FULL(4489,5250) - JVS(24737) = B(22206) -! JVS(24738) = Jac_FULL(4489,5252) - JVS(24738) = -B(21304) -! JVS(24739) = Jac_FULL(4489,5253) - JVS(24739) = -B(21306) -! JVS(24740) = Jac_FULL(4489,5255) - JVS(24740) = -B(21300)-B(21302) -! JVS(24741) = Jac_FULL(4489,5256) - JVS(24741) = -B(21308) -! JVS(24742) = Jac_FULL(4490,1734) - JVS(24742) = B(15574) -! JVS(24743) = Jac_FULL(4490,1837) - JVS(24743) = B(15565) -! JVS(24744) = Jac_FULL(4490,2055) - JVS(24744) = B(21336) -! JVS(24745) = Jac_FULL(4490,2683) - JVS(24745) = B(21337) -! JVS(24746) = Jac_FULL(4490,2991) - JVS(24746) = B(21312) -! JVS(24747) = Jac_FULL(4490,3040) - JVS(24747) = B(21313) -! JVS(24748) = Jac_FULL(4490,4221) - JVS(24748) = B(19907)+B(19911)+B(19915)+B(19917) -! JVS(24749) = Jac_FULL(4490,4241) - JVS(24749) = B(19954)+B(19958)+B(19962)+B(19964) -! JVS(24750) = Jac_FULL(4490,4326) - JVS(24750) = 0 -! JVS(24751) = Jac_FULL(4490,4488) - JVS(24751) = 0 -! JVS(24752) = Jac_FULL(4490,4490) - JVS(24752) = -B(15571)-B(15573) -! JVS(24753) = Jac_FULL(4490,4835) - JVS(24753) = B(12474) -! JVS(24754) = Jac_FULL(4490,5250) - JVS(24754) = B(15566)-B(15572)+B(15575)+B(21314)+B(21338) -! JVS(24755) = Jac_FULL(4490,5252) - JVS(24755) = B(19912)+B(19959) -! JVS(24756) = Jac_FULL(4490,5253) - JVS(24756) = 0 -! JVS(24757) = Jac_FULL(4490,5255) - JVS(24757) = B(19908)+B(19955) -! JVS(24758) = Jac_FULL(4490,5256) - JVS(24758) = B(19916)+B(19963) -! JVS(24759) = Jac_FULL(4491,718) - JVS(24759) = B(9990) -! JVS(24760) = Jac_FULL(4491,723) - JVS(24760) = B(9017) -! JVS(24761) = Jac_FULL(4491,2506) - JVS(24761) = B(8785) -! JVS(24762) = Jac_FULL(4491,2762) - JVS(24762) = B(9151) -! JVS(24763) = Jac_FULL(4491,3253) - JVS(24763) = 0 -! JVS(24764) = Jac_FULL(4491,3320) - JVS(24764) = 0 -! JVS(24765) = Jac_FULL(4491,3506) - JVS(24765) = 0 -! JVS(24766) = Jac_FULL(4491,3508) - JVS(24766) = 0 -! JVS(24767) = Jac_FULL(4491,3796) - JVS(24767) = 0 -! JVS(24768) = Jac_FULL(4491,3827) - JVS(24768) = 0 -! JVS(24769) = Jac_FULL(4491,4448) - JVS(24769) = B(9143) -! JVS(24770) = Jac_FULL(4491,4488) - JVS(24770) = B(8777) -! JVS(24771) = Jac_FULL(4491,4491) - JVS(24771) = -B(12416)-B(12418) -! JVS(24772) = Jac_FULL(4491,4986) - JVS(24772) = B(8842)+B(8853) -! JVS(24773) = Jac_FULL(4491,5250) - JVS(24773) = -B(12417) -! JVS(24774) = Jac_FULL(4491,5252) - JVS(24774) = 0 -! JVS(24775) = Jac_FULL(4491,5255) - JVS(24775) = B(8843) -! JVS(24776) = Jac_FULL(4491,5256) - JVS(24776) = 0 -! JVS(24777) = Jac_FULL(4491,5258) - JVS(24777) = 0 -! JVS(24778) = Jac_FULL(4492,4492) - JVS(24778) = -B(864)-B(866)-B(868)-B(870)-B(872)-B(874)-B(876) -! JVS(24779) = Jac_FULL(4492,5250) - JVS(24779) = -B(873)-B(875)-B(877) -! JVS(24780) = Jac_FULL(4492,5256) - JVS(24780) = -B(865)-B(867) -! JVS(24781) = Jac_FULL(4492,5258) - JVS(24781) = -B(869)-B(871) -! JVS(24782) = Jac_FULL(4493,767) - JVS(24782) = B(20667) -! JVS(24783) = Jac_FULL(4493,1225) - JVS(24783) = B(20660) -! JVS(24784) = Jac_FULL(4493,1932) - JVS(24784) = B(22316) -! JVS(24785) = Jac_FULL(4493,2034) - JVS(24785) = B(20663) -! JVS(24786) = Jac_FULL(4493,2035) - JVS(24786) = B(20666) -! JVS(24787) = Jac_FULL(4493,2742) - JVS(24787) = B(16890) -! JVS(24788) = Jac_FULL(4493,2812) - JVS(24788) = B(20646) -! JVS(24789) = Jac_FULL(4493,2892) - JVS(24789) = B(16873) -! JVS(24790) = Jac_FULL(4493,3668) - JVS(24790) = B(19090) -! JVS(24791) = Jac_FULL(4493,3955) - JVS(24791) = 0 -! JVS(24792) = Jac_FULL(4493,4124) - JVS(24792) = 0 -! JVS(24793) = Jac_FULL(4493,4189) - JVS(24793) = 0 -! JVS(24794) = Jac_FULL(4493,4190) - JVS(24794) = B(21698) -! JVS(24795) = Jac_FULL(4493,4201) - JVS(24795) = 0 -! JVS(24796) = Jac_FULL(4493,4340) - JVS(24796) = B(21694) -! JVS(24797) = Jac_FULL(4493,4492) - JVS(24797) = 0 -! JVS(24798) = Jac_FULL(4493,4493) - JVS(24798) = -B(19061)-B(19063)-B(19065) -! JVS(24799) = Jac_FULL(4493,4925) - JVS(24799) = 0 -! JVS(24800) = Jac_FULL(4493,5159) - JVS(24800) = B(19136) -! JVS(24801) = Jac_FULL(4493,5213) - JVS(24801) = 0 -! JVS(24802) = Jac_FULL(4493,5250) - JVS(24802) = B(16874)+B(16891)-B(19064)+B(19137)+B(20647)+B(20661)+B(20664)+B(20668)+B(22317) -! JVS(24803) = Jac_FULL(4493,5252) - JVS(24803) = 0 -! JVS(24804) = Jac_FULL(4493,5255) - JVS(24804) = 0 -! JVS(24805) = Jac_FULL(4493,5256) - JVS(24805) = -B(19062) -! JVS(24806) = Jac_FULL(4493,5258) - JVS(24806) = 0 -! JVS(24807) = Jac_FULL(4494,1227) - JVS(24807) = B(13069) -! JVS(24808) = Jac_FULL(4494,3180) - JVS(24808) = B(2691)+B(2697) -! JVS(24809) = Jac_FULL(4494,4037) - JVS(24809) = B(9631)+B(9633)+B(9635) -! JVS(24810) = Jac_FULL(4494,4494) - JVS(24810) = -B(5955)-B(5957) -! JVS(24811) = Jac_FULL(4494,5250) - JVS(24811) = B(2698) -! JVS(24812) = Jac_FULL(4494,5252) - JVS(24812) = B(9632) -! JVS(24813) = Jac_FULL(4494,5253) - JVS(24813) = -B(5956) -! JVS(24814) = Jac_FULL(4494,5255) - JVS(24814) = 0 -! JVS(24815) = Jac_FULL(4494,5256) - JVS(24815) = B(2692)+B(9634) -! JVS(24816) = Jac_FULL(4494,5258) - JVS(24816) = -B(5958) -! JVS(24817) = Jac_FULL(4495,854) - JVS(24817) = B(12751) -! JVS(24818) = Jac_FULL(4495,3135) - JVS(24818) = B(2537)+B(2541) -! JVS(24819) = Jac_FULL(4495,4001) - JVS(24819) = B(9233)+B(9235)+B(9237) -! JVS(24820) = Jac_FULL(4495,4495) - JVS(24820) = -B(5642)-B(5644) -! JVS(24821) = Jac_FULL(4495,5250) - JVS(24821) = B(2542) -! JVS(24822) = Jac_FULL(4495,5252) - JVS(24822) = B(9234) -! JVS(24823) = Jac_FULL(4495,5253) - JVS(24823) = -B(5643) -! JVS(24824) = Jac_FULL(4495,5255) - JVS(24824) = 0 -! JVS(24825) = Jac_FULL(4495,5256) - JVS(24825) = B(2538)+B(9236) -! JVS(24826) = Jac_FULL(4495,5258) - JVS(24826) = -B(5645) -! JVS(24827) = Jac_FULL(4496,1209) - JVS(24827) = B(22833) -! JVS(24828) = Jac_FULL(4496,3327) - JVS(24828) = B(22840) -! JVS(24829) = Jac_FULL(4496,4224) - JVS(24829) = B(21707)+B(21709) -! JVS(24830) = Jac_FULL(4496,4496) - JVS(24830) = -B(22331)-B(22333)-B(22335)-B(22337)-B(22339)-B(22341)-B(22343)-B(22344) -! JVS(24831) = Jac_FULL(4496,5021) - JVS(24831) = 0 -! JVS(24832) = Jac_FULL(4496,5250) - JVS(24832) = B(21710)+B(22834) -! JVS(24833) = Jac_FULL(4496,5252) - JVS(24833) = -B(22338) -! JVS(24834) = Jac_FULL(4496,5253) - JVS(24834) = -B(22340) -! JVS(24835) = Jac_FULL(4496,5255) - JVS(24835) = -B(22332)-B(22334)-B(22336) -! JVS(24836) = Jac_FULL(4496,5256) - JVS(24836) = B(21708)-B(22342) -! JVS(24837) = Jac_FULL(4497,25) - JVS(24837) = B(22844) -! JVS(24838) = Jac_FULL(4497,1761) - JVS(24838) = 0 -! JVS(24839) = Jac_FULL(4497,2111) - JVS(24839) = B(23563) -! JVS(24840) = Jac_FULL(4497,3327) - JVS(24840) = 0 -! JVS(24841) = Jac_FULL(4497,4295) - JVS(24841) = 0 -! JVS(24842) = Jac_FULL(4497,4496) - JVS(24842) = 0 -! JVS(24843) = Jac_FULL(4497,4497) - JVS(24843) = -B(23263)-B(23265)-B(23267)-B(23269) -! JVS(24844) = Jac_FULL(4497,5021) - JVS(24844) = 0 -! JVS(24845) = Jac_FULL(4497,5250) - JVS(24845) = B(23564) -! JVS(24846) = Jac_FULL(4497,5252) - JVS(24846) = -B(23266) -! JVS(24847) = Jac_FULL(4497,5253) - JVS(24847) = 0 -! JVS(24848) = Jac_FULL(4497,5255) - JVS(24848) = -B(23264) -! JVS(24849) = Jac_FULL(4497,5256) - JVS(24849) = -B(23268) -! JVS(24850) = Jac_FULL(4498,1342) - JVS(24850) = B(20015) -! JVS(24851) = Jac_FULL(4498,3120) - JVS(24851) = B(15741) -! JVS(24852) = Jac_FULL(4498,4498) - JVS(24852) = -B(18220)-B(18222)-B(18224)-B(18226) -! JVS(24853) = Jac_FULL(4498,4671) - JVS(24853) = 0 -! JVS(24854) = Jac_FULL(4498,5250) - JVS(24854) = B(20016) -! JVS(24855) = Jac_FULL(4498,5252) - JVS(24855) = -B(18223) -! JVS(24856) = Jac_FULL(4498,5253) - JVS(24856) = 0 -! JVS(24857) = Jac_FULL(4498,5255) - JVS(24857) = -B(18221) -! JVS(24858) = Jac_FULL(4498,5256) - JVS(24858) = B(15742)-B(18225) -! JVS(24859) = Jac_FULL(4499,1450) - JVS(24859) = B(16407) -! JVS(24860) = Jac_FULL(4499,3551) - JVS(24860) = B(6413)+B(6417) -! JVS(24861) = Jac_FULL(4499,4064) - JVS(24861) = B(13357)+B(13359)+B(13361) -! JVS(24862) = Jac_FULL(4499,4499) - JVS(24862) = -B(10125)-B(10127) -! JVS(24863) = Jac_FULL(4499,5250) - JVS(24863) = B(6418) -! JVS(24864) = Jac_FULL(4499,5252) - JVS(24864) = B(13358) -! JVS(24865) = Jac_FULL(4499,5253) - JVS(24865) = -B(10126) -! JVS(24866) = Jac_FULL(4499,5255) - JVS(24866) = 0 -! JVS(24867) = Jac_FULL(4499,5256) - JVS(24867) = B(6414)+B(13360) -! JVS(24868) = Jac_FULL(4499,5258) - JVS(24868) = -B(10128) -! JVS(24869) = Jac_FULL(4500,975) - JVS(24869) = B(17736) -! JVS(24870) = Jac_FULL(4500,2669) - JVS(24870) = B(17738) -! JVS(24871) = Jac_FULL(4500,4500) - JVS(24871) = -B(15161)-B(15163)-B(15165)-B(15167)-B(15169)-B(15171)-B(15173)-B(15174) -! JVS(24872) = Jac_FULL(4500,4834) - JVS(24872) = B(11958)+B(11960) -! JVS(24873) = Jac_FULL(4500,5250) - JVS(24873) = B(11961)+B(17737) -! JVS(24874) = Jac_FULL(4500,5252) - JVS(24874) = -B(15168) -! JVS(24875) = Jac_FULL(4500,5253) - JVS(24875) = -B(15170) -! JVS(24876) = Jac_FULL(4500,5255) - JVS(24876) = -B(15162)-B(15164)-B(15166) -! JVS(24877) = Jac_FULL(4500,5256) - JVS(24877) = B(11959)-B(15172) -! JVS(24878) = Jac_FULL(4501,346) - JVS(24878) = B(17726) -! JVS(24879) = Jac_FULL(4501,1552) - JVS(24879) = B(17725) -! JVS(24880) = Jac_FULL(4501,1907) - JVS(24880) = B(17720) -! JVS(24881) = Jac_FULL(4501,2419) - JVS(24881) = B(17723) -! JVS(24882) = Jac_FULL(4501,2669) - JVS(24882) = B(17739) -! JVS(24883) = Jac_FULL(4501,4058) - JVS(24883) = B(15160) -! JVS(24884) = Jac_FULL(4501,4500) - JVS(24884) = 0 -! JVS(24885) = Jac_FULL(4501,4501) - JVS(24885) = -B(17728)-B(17729)-B(17731) -! JVS(24886) = Jac_FULL(4501,4834) - JVS(24886) = 0 -! JVS(24887) = Jac_FULL(4501,5250) - JVS(24887) = B(17721)+B(17724)+B(17727)-B(17732)+B(17740) -! JVS(24888) = Jac_FULL(4501,5252) - JVS(24888) = 0 -! JVS(24889) = Jac_FULL(4501,5253) - JVS(24889) = 0 -! JVS(24890) = Jac_FULL(4501,5255) - JVS(24890) = 0 -! JVS(24891) = Jac_FULL(4501,5256) - JVS(24891) = -B(17730) -! JVS(24892) = Jac_FULL(4502,2228) - JVS(24892) = B(20122) -! JVS(24893) = Jac_FULL(4502,2538) - JVS(24893) = B(20127) -! JVS(24894) = Jac_FULL(4502,4502) - JVS(24894) = -B(18394)-B(18396)-B(18398)-B(18400)-B(18402)-B(18404) -! JVS(24895) = Jac_FULL(4502,4775) - JVS(24895) = B(15988)+B(15990) -! JVS(24896) = Jac_FULL(4502,5250) - JVS(24896) = B(15991)+B(20123) -! JVS(24897) = Jac_FULL(4502,5252) - JVS(24897) = -B(18399) -! JVS(24898) = Jac_FULL(4502,5253) - JVS(24898) = -B(18401) -! JVS(24899) = Jac_FULL(4502,5255) - JVS(24899) = -B(18395)-B(18397) -! JVS(24900) = Jac_FULL(4502,5256) - JVS(24900) = B(15989)-B(18403) -! JVS(24901) = Jac_FULL(4503,940) - JVS(24901) = B(24032) -! JVS(24902) = Jac_FULL(4503,1461) - JVS(24902) = B(24028) -! JVS(24903) = Jac_FULL(4503,3633) - JVS(24903) = B(23970) -! JVS(24904) = Jac_FULL(4503,4456) - JVS(24904) = B(23993)+B(23995)+B(23999)+B(24001) -! JVS(24905) = Jac_FULL(4503,4503) - JVS(24905) = -B(24002)-B(24004)-B(24006)-B(24008) -! JVS(24906) = Jac_FULL(4503,4820) - JVS(24906) = 0 -! JVS(24907) = Jac_FULL(4503,5250) - JVS(24907) = B(24033) -! JVS(24908) = Jac_FULL(4503,5252) - JVS(24908) = B(23996)-B(24005) -! JVS(24909) = Jac_FULL(4503,5253) - JVS(24909) = 0 -! JVS(24910) = Jac_FULL(4503,5255) - JVS(24910) = B(23994)-B(24003) -! JVS(24911) = Jac_FULL(4503,5256) - JVS(24911) = B(24000)-B(24007) -! JVS(24912) = Jac_FULL(4504,852) - JVS(24912) = B(13346) -! JVS(24913) = Jac_FULL(4504,3130) - JVS(24913) = B(2899)+B(2903) -! JVS(24914) = Jac_FULL(4504,4085) - JVS(24914) = B(10113)+B(10115)+B(10117) -! JVS(24915) = Jac_FULL(4504,4504) - JVS(24915) = -B(6401)-B(6403) -! JVS(24916) = Jac_FULL(4504,5250) - JVS(24916) = B(2904) -! JVS(24917) = Jac_FULL(4504,5252) - JVS(24917) = B(10114) -! JVS(24918) = Jac_FULL(4504,5253) - JVS(24918) = -B(6402) -! JVS(24919) = Jac_FULL(4504,5255) - JVS(24919) = 0 -! JVS(24920) = Jac_FULL(4504,5256) - JVS(24920) = B(2900)+B(10116) -! JVS(24921) = Jac_FULL(4504,5258) - JVS(24921) = -B(6404) -! JVS(24922) = Jac_FULL(4505,4505) - JVS(24922) = -B(9655)-B(9657)-B(9659) -! JVS(24923) = Jac_FULL(4505,4937) - JVS(24923) = B(5983) -! JVS(24924) = Jac_FULL(4505,5030) - JVS(24924) = B(6033) -! JVS(24925) = Jac_FULL(4505,5076) - JVS(24925) = B(8926) -! JVS(24926) = Jac_FULL(4505,5250) - JVS(24926) = -B(9660) -! JVS(24927) = Jac_FULL(4505,5256) - JVS(24927) = -B(9656) -! JVS(24928) = Jac_FULL(4505,5258) - JVS(24928) = -B(9658) -! JVS(24929) = Jac_FULL(4506,1472) - JVS(24929) = B(20041) -! JVS(24930) = Jac_FULL(4506,3189) - JVS(24930) = B(15801) -! JVS(24931) = Jac_FULL(4506,4506) - JVS(24931) = -B(18263)-B(18265)-B(18267)-B(18269) -! JVS(24932) = Jac_FULL(4506,4676) - JVS(24932) = 0 -! JVS(24933) = Jac_FULL(4506,5250) - JVS(24933) = B(20042) -! JVS(24934) = Jac_FULL(4506,5252) - JVS(24934) = -B(18266) -! JVS(24935) = Jac_FULL(4506,5253) - JVS(24935) = 0 -! JVS(24936) = Jac_FULL(4506,5255) - JVS(24936) = -B(18264) -! JVS(24937) = Jac_FULL(4506,5256) - JVS(24937) = B(15802)-B(18268) -! JVS(24938) = Jac_FULL(4507,2536) - JVS(24938) = B(18124) -! JVS(24939) = Jac_FULL(4507,2566) - JVS(24939) = B(18608) -! JVS(24940) = Jac_FULL(4507,2575) - JVS(24940) = B(18682) -! JVS(24941) = Jac_FULL(4507,2598) - JVS(24941) = B(20220) -! JVS(24942) = Jac_FULL(4507,2599) - JVS(24942) = B(18647) -! JVS(24943) = Jac_FULL(4507,2641) - JVS(24943) = B(18191) -! JVS(24944) = Jac_FULL(4507,2668) - JVS(24944) = B(18250) -! JVS(24945) = Jac_FULL(4507,2682) - JVS(24945) = B(18293) -! JVS(24946) = Jac_FULL(4507,2733) - JVS(24946) = B(20048) -! JVS(24947) = Jac_FULL(4507,2741) - JVS(24947) = B(18297) -! JVS(24948) = Jac_FULL(4507,2818) - JVS(24948) = B(18643) -! JVS(24949) = Jac_FULL(4507,2918) - JVS(24949) = B(18187) -! JVS(24950) = Jac_FULL(4507,2935) - JVS(24950) = B(19950) -! JVS(24951) = Jac_FULL(4507,2937) - JVS(24951) = B(20264) -! JVS(24952) = Jac_FULL(4507,2963) - JVS(24952) = B(18254) -! JVS(24953) = Jac_FULL(4507,2986) - JVS(24953) = B(20022) -! JVS(24954) = Jac_FULL(4507,2995) - JVS(24954) = B(20242) -! JVS(24955) = Jac_FULL(4507,3001) - JVS(24955) = B(18128) -! JVS(24956) = Jac_FULL(4507,3004) - JVS(24956) = B(18612) -! JVS(24957) = Jac_FULL(4507,3036) - JVS(24957) = B(19925) -! JVS(24958) = Jac_FULL(4507,3065) - JVS(24958) = B(18678) -! JVS(24959) = Jac_FULL(4507,3347) - JVS(24959) = B(20044) -! JVS(24960) = Jac_FULL(4507,3362) - JVS(24960) = B(20216) -! JVS(24961) = Jac_FULL(4507,3371) - JVS(24961) = B(20018) -! JVS(24962) = Jac_FULL(4507,3375) - JVS(24962) = B(19921) -! JVS(24963) = Jac_FULL(4507,3388) - JVS(24963) = B(20260) -! JVS(24964) = Jac_FULL(4507,3402) - JVS(24964) = B(19946) -! JVS(24965) = Jac_FULL(4507,3417) - JVS(24965) = B(20238) -! JVS(24966) = Jac_FULL(4507,4200) - JVS(24966) = 0 -! JVS(24967) = Jac_FULL(4507,4204) - JVS(24967) = 0 -! JVS(24968) = Jac_FULL(4507,4210) - JVS(24968) = 0 -! JVS(24969) = Jac_FULL(4507,4217) - JVS(24969) = 0 -! JVS(24970) = Jac_FULL(4507,4225) - JVS(24970) = 0 -! JVS(24971) = Jac_FULL(4507,4232) - JVS(24971) = 0 -! JVS(24972) = Jac_FULL(4507,4245) - JVS(24972) = 0 -! JVS(24973) = Jac_FULL(4507,4252) - JVS(24973) = 0 -! JVS(24974) = Jac_FULL(4507,4265) - JVS(24974) = 0 -! JVS(24975) = Jac_FULL(4507,4287) - JVS(24975) = 0 -! JVS(24976) = Jac_FULL(4507,4289) - JVS(24976) = 0 -! JVS(24977) = Jac_FULL(4507,4291) - JVS(24977) = 0 -! JVS(24978) = Jac_FULL(4507,4292) - JVS(24978) = 0 -! JVS(24979) = Jac_FULL(4507,4293) - JVS(24979) = 0 -! JVS(24980) = Jac_FULL(4507,4297) - JVS(24980) = 0 -! JVS(24981) = Jac_FULL(4507,4298) - JVS(24981) = 0 -! JVS(24982) = Jac_FULL(4507,4303) - JVS(24982) = 0 -! JVS(24983) = Jac_FULL(4507,4305) - JVS(24983) = 0 -! JVS(24984) = Jac_FULL(4507,4306) - JVS(24984) = 0 -! JVS(24985) = Jac_FULL(4507,4312) - JVS(24985) = 0 -! JVS(24986) = Jac_FULL(4507,4314) - JVS(24986) = 0 -! JVS(24987) = Jac_FULL(4507,4402) - JVS(24987) = 0 -! JVS(24988) = Jac_FULL(4507,4413) - JVS(24988) = 0 -! JVS(24989) = Jac_FULL(4507,4415) - JVS(24989) = 0 -! JVS(24990) = Jac_FULL(4507,4434) - JVS(24990) = 0 -! JVS(24991) = Jac_FULL(4507,4455) - JVS(24991) = 0 -! JVS(24992) = Jac_FULL(4507,4458) - JVS(24992) = 0 -! JVS(24993) = Jac_FULL(4507,4463) - JVS(24993) = 0 -! JVS(24994) = Jac_FULL(4507,4471) - JVS(24994) = 0 -! JVS(24995) = Jac_FULL(4507,4487) - JVS(24995) = 0 -! JVS(24996) = Jac_FULL(4507,4498) - JVS(24996) = 0 -! JVS(24997) = Jac_FULL(4507,4499) - JVS(24997) = 0 -! JVS(24998) = Jac_FULL(4507,4506) - JVS(24998) = 0 -! JVS(24999) = Jac_FULL(4507,4507) - JVS(24999) = -B(19926) -! JVS(25000) = Jac_FULL(4507,4509) - JVS(25000) = 0 -! JVS(25001) = Jac_FULL(4507,4514) - JVS(25001) = 0 -! JVS(25002) = Jac_FULL(4507,4632) - JVS(25002) = 0 -! JVS(25003) = Jac_FULL(4507,4663) - JVS(25003) = 0 -! JVS(25004) = Jac_FULL(4507,4671) - JVS(25004) = 0 -! JVS(25005) = Jac_FULL(4507,4676) - JVS(25005) = 0 -! JVS(25006) = Jac_FULL(4507,4682) - JVS(25006) = 0 -! JVS(25007) = Jac_FULL(4507,4690) - JVS(25007) = 0 -! JVS(25008) = Jac_FULL(4507,4798) - JVS(25008) = 0 -! JVS(25009) = Jac_FULL(4507,5250) - JVS(25009) = -B(19927) -! JVS(25010) = Jac_FULL(4507,5252) - JVS(25010) = 0 -! JVS(25011) = Jac_FULL(4507,5253) - JVS(25011) = 0 -! JVS(25012) = Jac_FULL(4507,5255) - JVS(25012) = 0 -! JVS(25013) = Jac_FULL(4507,5256) - JVS(25013) = 0 -! JVS(25014) = Jac_FULL(4507,5258) - JVS(25014) = 0 -! JVS(25015) = Jac_FULL(4508,4508) - JVS(25015) = -B(525)-B(527)-B(529)-B(531)-B(533)-B(535) -! JVS(25016) = Jac_FULL(4508,5250) - JVS(25016) = -B(534)-B(536) -! JVS(25017) = Jac_FULL(4508,5256) - JVS(25017) = -B(526)-B(528) -! JVS(25018) = Jac_FULL(4508,5258) - JVS(25018) = -B(530)-B(532) -! JVS(25019) = Jac_FULL(4509,1421) - JVS(25019) = B(15843) -! JVS(25020) = Jac_FULL(4509,3512) - JVS(25020) = B(5654)+B(5658) -! JVS(25021) = Jac_FULL(4509,4002) - JVS(25021) = B(12762)+B(12764)+B(12766) -! JVS(25022) = Jac_FULL(4509,4509) - JVS(25022) = -B(9245)-B(9247) -! JVS(25023) = Jac_FULL(4509,5250) - JVS(25023) = B(5659) -! JVS(25024) = Jac_FULL(4509,5252) - JVS(25024) = B(12763) -! JVS(25025) = Jac_FULL(4509,5253) - JVS(25025) = -B(9246) -! JVS(25026) = Jac_FULL(4509,5255) - JVS(25026) = 0 -! JVS(25027) = Jac_FULL(4509,5256) - JVS(25027) = B(5655)+B(12765) -! JVS(25028) = Jac_FULL(4509,5258) - JVS(25028) = -B(9248) -! JVS(25029) = Jac_FULL(4510,96) - JVS(25029) = B(19558) -! JVS(25030) = Jac_FULL(4510,902) - JVS(25030) = B(22136) -! JVS(25031) = Jac_FULL(4510,1397) - JVS(25031) = 0 -! JVS(25032) = Jac_FULL(4510,4042) - JVS(25032) = 0 -! JVS(25033) = Jac_FULL(4510,4137) - JVS(25033) = 0 -! JVS(25034) = Jac_FULL(4510,4510) - JVS(25034) = -B(21124)-B(21126)-B(21128)-B(21130) -! JVS(25035) = Jac_FULL(4510,4814) - JVS(25035) = 0 -! JVS(25036) = Jac_FULL(4510,5114) - JVS(25036) = 0 -! JVS(25037) = Jac_FULL(4510,5250) - JVS(25037) = B(22137) -! JVS(25038) = Jac_FULL(4510,5252) - JVS(25038) = -B(21127) -! JVS(25039) = Jac_FULL(4510,5255) - JVS(25039) = -B(21125) -! JVS(25040) = Jac_FULL(4510,5256) - JVS(25040) = -B(21129) -! JVS(25041) = Jac_FULL(4511,1309) - JVS(25041) = B(20098) -! JVS(25042) = Jac_FULL(4511,3187) - JVS(25042) = B(15940) -! JVS(25043) = Jac_FULL(4511,4511) - JVS(25043) = -B(18357)-B(18359)-B(18361)-B(18363) -! JVS(25044) = Jac_FULL(4511,4791) - JVS(25044) = 0 -! JVS(25045) = Jac_FULL(4511,5250) - JVS(25045) = B(20099) -! JVS(25046) = Jac_FULL(4511,5252) - JVS(25046) = -B(18360) -! JVS(25047) = Jac_FULL(4511,5253) - JVS(25047) = 0 -! JVS(25048) = Jac_FULL(4511,5255) - JVS(25048) = -B(18358) -! JVS(25049) = Jac_FULL(4511,5256) - JVS(25049) = B(15941)-B(18362) -! JVS(25050) = Jac_FULL(4512,4512) - JVS(25050) = -B(465)-B(467)-B(469)-B(471)-B(473)-B(475) -! JVS(25051) = Jac_FULL(4512,5250) - JVS(25051) = -B(474)-B(476) -! JVS(25052) = Jac_FULL(4512,5256) - JVS(25052) = -B(466)-B(468) -! JVS(25053) = Jac_FULL(4512,5258) - JVS(25053) = -B(470)-B(472) -! JVS(25054) = Jac_FULL(4513,1210) - JVS(25054) = B(8684)+B(8686) -! JVS(25055) = Jac_FULL(4513,1417) - JVS(25055) = B(8689) -! JVS(25056) = Jac_FULL(4513,4396) - JVS(25056) = B(2361) -! JVS(25057) = Jac_FULL(4513,4513) - JVS(25057) = -B(5249)-B(5251)-B(5253)-B(5255)-B(5256)-B(5257) -! JVS(25058) = Jac_FULL(4513,4649) - JVS(25058) = B(5219)+B(5221)+B(5225)+B(5228) -! JVS(25059) = Jac_FULL(4513,5250) - JVS(25059) = B(8685) -! JVS(25060) = Jac_FULL(4513,5252) - JVS(25060) = B(5222)-B(5252) -! JVS(25061) = Jac_FULL(4513,5255) - JVS(25061) = B(5220)-B(5250) -! JVS(25062) = Jac_FULL(4513,5256) - JVS(25062) = B(5226)-B(5254) -! JVS(25063) = Jac_FULL(4513,5258) - JVS(25063) = 0 -! JVS(25064) = Jac_FULL(4514,1429) - JVS(25064) = B(15551) -! JVS(25065) = Jac_FULL(4514,3545) - JVS(25065) = B(5323)+B(5327) -! JVS(25066) = Jac_FULL(4514,4049) - JVS(25066) = B(12436)+B(12438)+B(12440) -! JVS(25067) = Jac_FULL(4514,4514) - JVS(25067) = -B(8800)-B(8802) -! JVS(25068) = Jac_FULL(4514,5250) - JVS(25068) = B(5328) -! JVS(25069) = Jac_FULL(4514,5252) - JVS(25069) = B(12437) -! JVS(25070) = Jac_FULL(4514,5253) - JVS(25070) = -B(8801) -! JVS(25071) = Jac_FULL(4514,5255) - JVS(25071) = 0 -! JVS(25072) = Jac_FULL(4514,5256) - JVS(25072) = B(5324)+B(12439) -! JVS(25073) = Jac_FULL(4514,5258) - JVS(25073) = -B(8803) -! JVS(25074) = Jac_FULL(4515,1180) - JVS(25074) = B(11883) -! JVS(25075) = Jac_FULL(4515,3024) - JVS(25075) = B(11885) -! JVS(25076) = Jac_FULL(4515,3851) - JVS(25076) = B(4583)+B(4585) -! JVS(25077) = Jac_FULL(4515,4515) - JVS(25077) = -B(8136)-B(8138)-B(8140)-B(8142)-B(8144)-B(8146) -! JVS(25078) = Jac_FULL(4515,4696) - JVS(25078) = 0 -! JVS(25079) = Jac_FULL(4515,5250) - JVS(25079) = B(4586)+B(11884) -! JVS(25080) = Jac_FULL(4515,5252) - JVS(25080) = -B(8141) -! JVS(25081) = Jac_FULL(4515,5253) - JVS(25081) = -B(8143) -! JVS(25082) = Jac_FULL(4515,5255) - JVS(25082) = -B(8137)-B(8139) -! JVS(25083) = Jac_FULL(4515,5256) - JVS(25083) = B(4584)-B(8145) -! JVS(25084) = Jac_FULL(4516,2531) - JVS(25084) = B(13500) -! JVS(25085) = Jac_FULL(4516,2824) - JVS(25085) = B(13498) -! JVS(25086) = Jac_FULL(4516,4516) - JVS(25086) = -B(10319)-B(10321)-B(10323)-B(10325)-B(10327)-B(10329)-B(10331)-B(10332) -! JVS(25087) = Jac_FULL(4516,5050) - JVS(25087) = B(6629)+B(6637) -! JVS(25088) = Jac_FULL(4516,5250) - JVS(25088) = B(6638)+B(13499) -! JVS(25089) = Jac_FULL(4516,5252) - JVS(25089) = -B(10326) -! JVS(25090) = Jac_FULL(4516,5253) - JVS(25090) = -B(10328) -! JVS(25091) = Jac_FULL(4516,5255) - JVS(25091) = -B(10320)-B(10322)-B(10324) -! JVS(25092) = Jac_FULL(4516,5256) - JVS(25092) = B(6630)-B(10330) -! JVS(25093) = Jac_FULL(4517,1327) - JVS(25093) = B(17618) -! JVS(25094) = Jac_FULL(4517,2844) - JVS(25094) = B(17620) -! JVS(25095) = Jac_FULL(4517,3857) - JVS(25095) = B(11843)+B(11845) -! JVS(25096) = Jac_FULL(4517,4517) - JVS(25096) = -B(15043)-B(15045)-B(15047)-B(15049)-B(15051)-B(15053) -! JVS(25097) = Jac_FULL(4517,4880) - JVS(25097) = 0 -! JVS(25098) = Jac_FULL(4517,5250) - JVS(25098) = B(11846)+B(17619) -! JVS(25099) = Jac_FULL(4517,5252) - JVS(25099) = -B(15048) -! JVS(25100) = Jac_FULL(4517,5253) - JVS(25100) = -B(15050) -! JVS(25101) = Jac_FULL(4517,5255) - JVS(25101) = -B(15044)-B(15046) -! JVS(25102) = Jac_FULL(4517,5256) - JVS(25102) = B(11844)-B(15052) -! JVS(25103) = Jac_FULL(4518,1804) - JVS(25103) = B(20457) -! JVS(25104) = Jac_FULL(4518,1981) - JVS(25104) = B(16680) -! JVS(25105) = Jac_FULL(4518,2925) - JVS(25105) = B(20459) -! JVS(25106) = Jac_FULL(4518,4518) - JVS(25106) = -B(18866)-B(18868)-B(18870)-B(18872)-B(18874)-B(18876)-B(18878)-B(18879) -! JVS(25107) = Jac_FULL(4518,4945) - JVS(25107) = 0 -! JVS(25108) = Jac_FULL(4518,5250) - JVS(25108) = B(16681)+B(20458) -! JVS(25109) = Jac_FULL(4518,5252) - JVS(25109) = -B(18873) -! JVS(25110) = Jac_FULL(4518,5253) - JVS(25110) = -B(18875) -! JVS(25111) = Jac_FULL(4518,5255) - JVS(25111) = -B(18867)-B(18869)-B(18871) -! JVS(25112) = Jac_FULL(4518,5256) - JVS(25112) = -B(18877) -! JVS(25113) = Jac_FULL(4519,1006) - JVS(25113) = B(21560) -! JVS(25114) = Jac_FULL(4519,1625) - JVS(25114) = B(18778) -! JVS(25115) = Jac_FULL(4519,2003) - JVS(25115) = B(21565) -! JVS(25116) = Jac_FULL(4519,3625) - JVS(25116) = 0 -! JVS(25117) = Jac_FULL(4519,4519) - JVS(25117) = -B(20336)-B(20338)-B(20340)-B(20342)-B(20344)-B(20346)-B(20348)-B(20349) -! JVS(25118) = Jac_FULL(4519,5074) - JVS(25118) = 0 -! JVS(25119) = Jac_FULL(4519,5250) - JVS(25119) = B(18779)+B(21561) -! JVS(25120) = Jac_FULL(4519,5252) - JVS(25120) = -B(20343) -! JVS(25121) = Jac_FULL(4519,5253) - JVS(25121) = -B(20345) -! JVS(25122) = Jac_FULL(4519,5255) - JVS(25122) = -B(20337)-B(20339)-B(20341) -! JVS(25123) = Jac_FULL(4519,5256) - JVS(25123) = -B(20347) -! JVS(25124) = Jac_FULL(4520,1219) - JVS(25124) = B(23917) -! JVS(25125) = Jac_FULL(4520,2729) - JVS(25125) = B(23922) -! JVS(25126) = Jac_FULL(4520,4362) - JVS(25126) = B(23567)+B(23569) -! JVS(25127) = Jac_FULL(4520,4520) - JVS(25127) = -B(23780)-B(23782)-B(23784)-B(23786)-B(23788)-B(23790) -! JVS(25128) = Jac_FULL(4520,4898) - JVS(25128) = 0 -! JVS(25129) = Jac_FULL(4520,5250) - JVS(25129) = B(23570)+B(23918) -! JVS(25130) = Jac_FULL(4520,5252) - JVS(25130) = -B(23785) -! JVS(25131) = Jac_FULL(4520,5253) - JVS(25131) = -B(23787) -! JVS(25132) = Jac_FULL(4520,5255) - JVS(25132) = -B(23781)-B(23783) -! JVS(25133) = Jac_FULL(4520,5256) - JVS(25133) = B(23568)-B(23789) -! JVS(25134) = Jac_FULL(4521,539) - JVS(25134) = B(17893) -! JVS(25135) = Jac_FULL(4521,850) - JVS(25135) = B(21224) -! JVS(25136) = Jac_FULL(4521,2316) - JVS(25136) = 0 -! JVS(25137) = Jac_FULL(4521,3007) - JVS(25137) = B(21226) -! JVS(25138) = Jac_FULL(4521,3977) - JVS(25138) = 0 -! JVS(25139) = Jac_FULL(4521,4521) - JVS(25139) = -B(19760)-B(19762)-B(19764)-B(19766)-B(19768)-B(19770) -! JVS(25140) = Jac_FULL(4521,5144) - JVS(25140) = 0 -! JVS(25141) = Jac_FULL(4521,5250) - JVS(25141) = B(21225) -! JVS(25142) = Jac_FULL(4521,5252) - JVS(25142) = -B(19765) -! JVS(25143) = Jac_FULL(4521,5253) - JVS(25143) = -B(19767) -! JVS(25144) = Jac_FULL(4521,5255) - JVS(25144) = -B(19761)-B(19763) -! JVS(25145) = Jac_FULL(4521,5256) - JVS(25145) = -B(19769) -! JVS(25146) = Jac_FULL(4522,2314) - JVS(25146) = B(12249) -! JVS(25147) = Jac_FULL(4522,2702) - JVS(25147) = B(12254) -! JVS(25148) = Jac_FULL(4522,4114) - JVS(25148) = B(5010)+B(5012) -! JVS(25149) = Jac_FULL(4522,4522) - JVS(25149) = -B(8546)-B(8548)-B(8550)-B(8552)-B(8554)-B(8556)-B(8558)-B(8559) -! JVS(25150) = Jac_FULL(4522,4777) - JVS(25150) = 0 -! JVS(25151) = Jac_FULL(4522,5250) - JVS(25151) = B(5013)+B(12250) -! JVS(25152) = Jac_FULL(4522,5252) - JVS(25152) = -B(8553) -! JVS(25153) = Jac_FULL(4522,5253) - JVS(25153) = -B(8555) -! JVS(25154) = Jac_FULL(4522,5255) - JVS(25154) = -B(8547)-B(8549)-B(8551) -! JVS(25155) = Jac_FULL(4522,5256) - JVS(25155) = B(5011)-B(8557) -! JVS(25156) = Jac_FULL(4523,1477) - JVS(25156) = B(17744) -! JVS(25157) = Jac_FULL(4523,2778) - JVS(25157) = B(17746) -! JVS(25158) = Jac_FULL(4523,3986) - JVS(25158) = B(11982)+B(11984) -! JVS(25159) = Jac_FULL(4523,4523) - JVS(25159) = -B(15175)-B(15177)-B(15179)-B(15181)-B(15183)-B(15185)-B(15187)-B(15188) -! JVS(25160) = Jac_FULL(4523,4886) - JVS(25160) = 0 -! JVS(25161) = Jac_FULL(4523,5250) - JVS(25161) = B(11985)+B(17745) -! JVS(25162) = Jac_FULL(4523,5252) - JVS(25162) = -B(15182) -! JVS(25163) = Jac_FULL(4523,5253) - JVS(25163) = -B(15184) -! JVS(25164) = Jac_FULL(4523,5255) - JVS(25164) = -B(15176)-B(15178)-B(15180) -! JVS(25165) = Jac_FULL(4523,5256) - JVS(25165) = B(11983)-B(15186) -! JVS(25166) = Jac_FULL(4524,1050) - JVS(25166) = B(3796) -! JVS(25167) = Jac_FULL(4524,1108) - JVS(25167) = B(3790) -! JVS(25168) = Jac_FULL(4524,1906) - JVS(25168) = B(3795) -! JVS(25169) = Jac_FULL(4524,2198) - JVS(25169) = B(3793) -! JVS(25170) = Jac_FULL(4524,2778) - JVS(25170) = B(17747) -! JVS(25171) = Jac_FULL(4524,4310) - JVS(25171) = B(1069) -! JVS(25172) = Jac_FULL(4524,4523) - JVS(25172) = 0 -! JVS(25173) = Jac_FULL(4524,4524) - JVS(25173) = -B(3798)-B(3799) -! JVS(25174) = Jac_FULL(4524,4886) - JVS(25174) = 0 -! JVS(25175) = Jac_FULL(4524,5097) - JVS(25175) = B(3294) -! JVS(25176) = Jac_FULL(4524,5116) - JVS(25176) = 0 -! JVS(25177) = Jac_FULL(4524,5147) - JVS(25177) = 0 -! JVS(25178) = Jac_FULL(4524,5250) - JVS(25178) = B(3791)+B(3794)+B(3797)-B(3800)+B(17748) -! JVS(25179) = Jac_FULL(4524,5252) - JVS(25179) = 0 -! JVS(25180) = Jac_FULL(4524,5253) - JVS(25180) = 0 -! JVS(25181) = Jac_FULL(4524,5255) - JVS(25181) = 0 -! JVS(25182) = Jac_FULL(4524,5256) - JVS(25182) = 0 -! JVS(25183) = Jac_FULL(4525,1154) - JVS(25183) = B(23888) -! JVS(25184) = Jac_FULL(4525,2567) - JVS(25184) = B(23893) -! JVS(25185) = Jac_FULL(4525,2895) - JVS(25185) = B(23488) -! JVS(25186) = Jac_FULL(4525,3736) - JVS(25186) = 0 -! JVS(25187) = Jac_FULL(4525,3737) - JVS(25187) = 0 -! JVS(25188) = Jac_FULL(4525,4525) - JVS(25188) = -B(23733)-B(23735)-B(23737)-B(23739)-B(23741)-B(23743) -! JVS(25189) = Jac_FULL(4525,4672) - JVS(25189) = 0 -! JVS(25190) = Jac_FULL(4525,5250) - JVS(25190) = B(23489)+B(23889) -! JVS(25191) = Jac_FULL(4525,5252) - JVS(25191) = -B(23738) -! JVS(25192) = Jac_FULL(4525,5253) - JVS(25192) = -B(23740) -! JVS(25193) = Jac_FULL(4525,5255) - JVS(25193) = -B(23734)-B(23736) -! JVS(25194) = Jac_FULL(4525,5256) - JVS(25194) = -B(23742) -! JVS(25195) = Jac_FULL(4526,362) - JVS(25195) = B(11331) -! JVS(25196) = Jac_FULL(4526,4526) - JVS(25196) = -B(14648)-B(14650)-B(14652)-B(14654)-B(14656) -! JVS(25197) = Jac_FULL(4526,4970) - JVS(25197) = 0 -! JVS(25198) = Jac_FULL(4526,5251) - JVS(25198) = -B(14649) -! JVS(25199) = Jac_FULL(4526,5252) - JVS(25199) = -B(14651) -! JVS(25200) = Jac_FULL(4526,5253) - JVS(25200) = -B(14653) -! JVS(25201) = Jac_FULL(4526,5254) - JVS(25201) = -B(14655) -! JVS(25202) = Jac_FULL(4526,5258) - JVS(25202) = 0 -! JVS(25203) = Jac_FULL(4527,4527) - JVS(25203) = -B(549)-B(551)-B(553)-B(555)-B(557)-B(559) -! JVS(25204) = Jac_FULL(4527,5250) - JVS(25204) = -B(558)-B(560) -! JVS(25205) = Jac_FULL(4527,5256) - JVS(25205) = -B(550)-B(552) -! JVS(25206) = Jac_FULL(4527,5258) - JVS(25206) = -B(554)-B(556) -! JVS(25207) = Jac_FULL(4528,4395) - JVS(25207) = B(751) -! JVS(25208) = Jac_FULL(4528,4508) - JVS(25208) = B(529) -! JVS(25209) = Jac_FULL(4528,4527) - JVS(25209) = B(553) -! JVS(25210) = Jac_FULL(4528,4528) - JVS(25210) = -B(1255)-B(1256)-B(1257) -! JVS(25211) = Jac_FULL(4528,4555) - JVS(25211) = B(165) -! JVS(25212) = Jac_FULL(4528,4615) - JVS(25212) = B(10553) -! JVS(25213) = Jac_FULL(4528,4907) - JVS(25213) = B(3148) -! JVS(25214) = Jac_FULL(4528,5051) - JVS(25214) = B(447) -! JVS(25215) = Jac_FULL(4528,5093) - JVS(25215) = B(6677) -! JVS(25216) = Jac_FULL(4528,5190) - JVS(25216) = B(483) -! JVS(25217) = Jac_FULL(4528,5194) - JVS(25217) = B(224) -! JVS(25218) = Jac_FULL(4528,5200) - JVS(25218) = B(433) -! JVS(25219) = Jac_FULL(4528,5227) - JVS(25219) = B(3106) -! JVS(25220) = Jac_FULL(4528,5250) - JVS(25220) = 0 -! JVS(25221) = Jac_FULL(4528,5256) - JVS(25221) = 0 -! JVS(25222) = Jac_FULL(4528,5258) - JVS(25222) = B(166)+B(225)+B(434)+B(448)+B(484)+B(530)+B(554)+B(752)+B(3107)+B(3149)+B(6678)+B(10554) -! JVS(25223) = Jac_FULL(4529,1533) - JVS(25223) = B(5590) -! JVS(25224) = Jac_FULL(4529,3134) - JVS(25224) = B(631) -! JVS(25225) = Jac_FULL(4529,4529) - JVS(25225) = -B(2515)-B(2517)-B(2519)-B(2521)-B(2523)-B(2524) -! JVS(25226) = Jac_FULL(4529,5250) - JVS(25226) = B(632)+B(5591) -! JVS(25227) = Jac_FULL(4529,5252) - JVS(25227) = -B(2518)-B(2520) -! JVS(25228) = Jac_FULL(4529,5255) - JVS(25228) = -B(2516) -! JVS(25229) = Jac_FULL(4529,5256) - JVS(25229) = -B(2522) -! JVS(25230) = Jac_FULL(4530,3459) - JVS(25230) = B(13514) -! JVS(25231) = Jac_FULL(4530,3483) - JVS(25231) = B(13521)+B(13522)+B(13524) -! JVS(25232) = Jac_FULL(4530,3587) - JVS(25232) = B(4250) -! JVS(25233) = Jac_FULL(4530,4530) - JVS(25233) = -B(7892)-B(7893)-B(7894)-B(7896) -! JVS(25234) = Jac_FULL(4530,4732) - JVS(25234) = 0 -! JVS(25235) = Jac_FULL(4530,4932) - JVS(25235) = 0 -! JVS(25236) = Jac_FULL(4530,5250) - JVS(25236) = B(4251)-B(7897)+B(13525) -! JVS(25237) = Jac_FULL(4530,5252) - JVS(25237) = 0 -! JVS(25238) = Jac_FULL(4530,5255) - JVS(25238) = 0 -! JVS(25239) = Jac_FULL(4530,5256) - JVS(25239) = -B(7895)+B(13523) -! JVS(25240) = Jac_FULL(4531,1125) - JVS(25240) = B(15491) -! JVS(25241) = Jac_FULL(4531,3830) - JVS(25241) = B(5280)+B(5284) -! JVS(25242) = Jac_FULL(4531,4079) - JVS(25242) = B(12407)+B(12409)+B(12411) -! JVS(25243) = Jac_FULL(4531,4397) - JVS(25243) = 0 -! JVS(25244) = Jac_FULL(4531,4531) - JVS(25244) = -B(8762)-B(8764) -! JVS(25245) = Jac_FULL(4531,5250) - JVS(25245) = B(5285) -! JVS(25246) = Jac_FULL(4531,5252) - JVS(25246) = B(12408) -! JVS(25247) = Jac_FULL(4531,5253) - JVS(25247) = -B(8763) -! JVS(25248) = Jac_FULL(4531,5255) - JVS(25248) = 0 -! JVS(25249) = Jac_FULL(4531,5256) - JVS(25249) = B(5281)+B(12410) -! JVS(25250) = Jac_FULL(4531,5258) - JVS(25250) = -B(8765) -! JVS(25251) = Jac_FULL(4532,1271) - JVS(25251) = B(22192) -! JVS(25252) = Jac_FULL(4532,3184) - JVS(25252) = B(19821) -! JVS(25253) = Jac_FULL(4532,3493) - JVS(25253) = 0 -! JVS(25254) = Jac_FULL(4532,4361) - JVS(25254) = 0 -! JVS(25255) = Jac_FULL(4532,4532) - JVS(25255) = -B(21255)-B(21257)-B(21259)-B(21261) -! JVS(25256) = Jac_FULL(4532,4715) - JVS(25256) = 0 -! JVS(25257) = Jac_FULL(4532,5138) - JVS(25257) = 0 -! JVS(25258) = Jac_FULL(4532,5250) - JVS(25258) = B(19822)+B(22193) -! JVS(25259) = Jac_FULL(4532,5252) - JVS(25259) = -B(21258) -! JVS(25260) = Jac_FULL(4532,5255) - JVS(25260) = -B(21256) -! JVS(25261) = Jac_FULL(4532,5256) - JVS(25261) = -B(21260) -! JVS(25262) = Jac_FULL(4533,111) - JVS(25262) = B(10123) -! JVS(25263) = Jac_FULL(4533,932) - JVS(25263) = B(10120) -! JVS(25264) = Jac_FULL(4533,1554) - JVS(25264) = B(10106) -! JVS(25265) = Jac_FULL(4533,3279) - JVS(25265) = B(10102) -! JVS(25266) = Jac_FULL(4533,3489) - JVS(25266) = B(6407)+B(6409)+B(6411) -! JVS(25267) = Jac_FULL(4533,3825) - JVS(25267) = 0 -! JVS(25268) = Jac_FULL(4533,4533) - JVS(25268) = -B(10121)-B(10122) -! JVS(25269) = Jac_FULL(4533,5250) - JVS(25269) = B(10124) -! JVS(25270) = Jac_FULL(4533,5252) - JVS(25270) = B(6408) -! JVS(25271) = Jac_FULL(4533,5255) - JVS(25271) = 0 -! JVS(25272) = Jac_FULL(4533,5256) - JVS(25272) = B(6410) -! JVS(25273) = Jac_FULL(4534,576) - JVS(25273) = B(16362) -! JVS(25274) = Jac_FULL(4534,1092) - JVS(25274) = B(16353) -! JVS(25275) = Jac_FULL(4534,2754) - JVS(25275) = B(21515) -! JVS(25276) = Jac_FULL(4534,3052) - JVS(25276) = B(21516) -! JVS(25277) = Jac_FULL(4534,4299) - JVS(25277) = B(20268)+B(20272)+B(20276)+B(20278) -! JVS(25278) = Jac_FULL(4534,4533) - JVS(25278) = 0 -! JVS(25279) = Jac_FULL(4534,4534) - JVS(25279) = -B(16358)-B(16360)-B(16361) -! JVS(25280) = Jac_FULL(4534,4703) - JVS(25280) = B(13337) -! JVS(25281) = Jac_FULL(4534,5250) - JVS(25281) = B(16354)-B(16359)+B(16363)+B(21517) -! JVS(25282) = Jac_FULL(4534,5252) - JVS(25282) = B(20273) -! JVS(25283) = Jac_FULL(4534,5253) - JVS(25283) = 0 -! JVS(25284) = Jac_FULL(4534,5255) - JVS(25284) = B(20269) -! JVS(25285) = Jac_FULL(4534,5256) - JVS(25285) = B(20277) -! JVS(25286) = Jac_FULL(4535,1783) - JVS(25286) = B(18665) -! JVS(25287) = Jac_FULL(4535,2390) - JVS(25287) = B(13347) -! JVS(25288) = Jac_FULL(4535,4533) - JVS(25288) = 0 -! JVS(25289) = Jac_FULL(4535,4535) - JVS(25289) = -B(16376)-B(16378)-B(16380)-B(16382) -! JVS(25290) = Jac_FULL(4535,5250) - JVS(25290) = B(18666) -! JVS(25291) = Jac_FULL(4535,5252) - JVS(25291) = -B(16379) -! JVS(25292) = Jac_FULL(4535,5255) - JVS(25292) = -B(16377) -! JVS(25293) = Jac_FULL(4535,5256) - JVS(25293) = B(13348)-B(16381) -! JVS(25294) = Jac_FULL(4536,92) - JVS(25294) = B(18448) -! JVS(25295) = Jac_FULL(4536,97) - JVS(25295) = B(18381) -! JVS(25296) = Jac_FULL(4536,323) - JVS(25296) = B(18382) -! JVS(25297) = Jac_FULL(4536,324) - JVS(25297) = 0 -! JVS(25298) = Jac_FULL(4536,1359) - JVS(25298) = 0 -! JVS(25299) = Jac_FULL(4536,2654) - JVS(25299) = B(21423) -! JVS(25300) = Jac_FULL(4536,2794) - JVS(25300) = B(21428) -! JVS(25301) = Jac_FULL(4536,3711) - JVS(25301) = 0 -! JVS(25302) = Jac_FULL(4536,3983) - JVS(25302) = 0 -! JVS(25303) = Jac_FULL(4536,4536) - JVS(25303) = -B(20109)-B(20111)-B(20113)-B(20115)-B(20117)-B(20119) -! JVS(25304) = Jac_FULL(4536,4619) - JVS(25304) = 0 -! JVS(25305) = Jac_FULL(4536,4743) - JVS(25305) = 0 -! JVS(25306) = Jac_FULL(4536,5250) - JVS(25306) = B(18383)+B(21424) -! JVS(25307) = Jac_FULL(4536,5252) - JVS(25307) = -B(20114) -! JVS(25308) = Jac_FULL(4536,5253) - JVS(25308) = -B(20116) -! JVS(25309) = Jac_FULL(4536,5255) - JVS(25309) = -B(20110)-B(20112) -! JVS(25310) = Jac_FULL(4536,5256) - JVS(25310) = -B(20118) -! JVS(25311) = Jac_FULL(4537,306) - JVS(25311) = B(17853) -! JVS(25312) = Jac_FULL(4537,1829) - JVS(25312) = B(17850) -! JVS(25313) = Jac_FULL(4537,2331) - JVS(25313) = B(17845) -! JVS(25314) = Jac_FULL(4537,2496) - JVS(25314) = B(17866) -! JVS(25315) = Jac_FULL(4537,4251) - JVS(25315) = B(15261) -! JVS(25316) = Jac_FULL(4537,4537) - JVS(25316) = -B(17855)-B(17856)-B(17858) -! JVS(25317) = Jac_FULL(4537,4878) - JVS(25317) = 0 -! JVS(25318) = Jac_FULL(4537,5088) - JVS(25318) = 0 -! JVS(25319) = Jac_FULL(4537,5250) - JVS(25319) = B(17846)+B(17851)+B(17854)-B(17859)+B(17867) -! JVS(25320) = Jac_FULL(4537,5252) - JVS(25320) = 0 -! JVS(25321) = Jac_FULL(4537,5253) - JVS(25321) = 0 -! JVS(25322) = Jac_FULL(4537,5255) - JVS(25322) = 0 -! JVS(25323) = Jac_FULL(4537,5256) - JVS(25323) = -B(17857) -! JVS(25324) = Jac_FULL(4538,2062) - JVS(25324) = B(21986) -! JVS(25325) = Jac_FULL(4538,3629) - JVS(25325) = B(19375) -! JVS(25326) = Jac_FULL(4538,4538) - JVS(25326) = -B(20935)-B(20937)-B(20939)-B(20941) -! JVS(25327) = Jac_FULL(4538,4781) - JVS(25327) = 0 -! JVS(25328) = Jac_FULL(4538,4891) - JVS(25328) = 0 -! JVS(25329) = Jac_FULL(4538,5250) - JVS(25329) = B(19376)+B(21987) -! JVS(25330) = Jac_FULL(4538,5252) - JVS(25330) = -B(20938) -! JVS(25331) = Jac_FULL(4538,5253) - JVS(25331) = 0 -! JVS(25332) = Jac_FULL(4538,5255) - JVS(25332) = -B(20936) -! JVS(25333) = Jac_FULL(4538,5256) - JVS(25333) = -B(20940) -! JVS(25334) = Jac_FULL(4539,1467) - JVS(25334) = B(20379) -! JVS(25335) = Jac_FULL(4539,2823) - JVS(25335) = B(20381) -! JVS(25336) = Jac_FULL(4539,3454) - JVS(25336) = B(16601)+B(16603) -! JVS(25337) = Jac_FULL(4539,4113) - JVS(25337) = 0 -! JVS(25338) = Jac_FULL(4539,4539) - JVS(25338) = -B(18789)-B(18791)-B(18793)-B(18795)-B(18797)-B(18799) -! JVS(25339) = Jac_FULL(4539,5118) - JVS(25339) = 0 -! JVS(25340) = Jac_FULL(4539,5204) - JVS(25340) = 0 -! JVS(25341) = Jac_FULL(4539,5250) - JVS(25341) = B(16604)+B(20380) -! JVS(25342) = Jac_FULL(4539,5252) - JVS(25342) = -B(18794) -! JVS(25343) = Jac_FULL(4539,5253) - JVS(25343) = -B(18796) -! JVS(25344) = Jac_FULL(4539,5255) - JVS(25344) = -B(18790)-B(18792) -! JVS(25345) = Jac_FULL(4539,5256) - JVS(25345) = B(16602)-B(18798) -! JVS(25346) = Jac_FULL(4540,231) - JVS(25346) = B(11622) -! JVS(25347) = Jac_FULL(4540,1720) - JVS(25347) = B(11616) -! JVS(25348) = Jac_FULL(4540,1902) - JVS(25348) = B(11614) -! JVS(25349) = Jac_FULL(4540,2127) - JVS(25349) = B(11611) -! JVS(25350) = Jac_FULL(4540,2145) - JVS(25350) = B(19554) -! JVS(25351) = Jac_FULL(4540,2797) - JVS(25351) = B(19552) -! JVS(25352) = Jac_FULL(4540,3758) - JVS(25352) = B(7865) -! JVS(25353) = Jac_FULL(4540,3992) - JVS(25353) = 0 -! JVS(25354) = Jac_FULL(4540,4244) - JVS(25354) = 0 -! JVS(25355) = Jac_FULL(4540,4451) - JVS(25355) = 0 -! JVS(25356) = Jac_FULL(4540,4540) - JVS(25356) = -B(11617)-B(11618)-B(11620) -! JVS(25357) = Jac_FULL(4540,4882) - JVS(25357) = 0 -! JVS(25358) = Jac_FULL(4540,5208) - JVS(25358) = 0 -! JVS(25359) = Jac_FULL(4540,5250) - JVS(25359) = B(11612)+B(11615)-B(11621)+B(11623) -! JVS(25360) = Jac_FULL(4540,5252) - JVS(25360) = 0 -! JVS(25361) = Jac_FULL(4540,5253) - JVS(25361) = 0 -! JVS(25362) = Jac_FULL(4540,5255) - JVS(25362) = 0 -! JVS(25363) = Jac_FULL(4540,5256) - JVS(25363) = -B(11619) -! JVS(25364) = Jac_FULL(4541,3646) - JVS(25364) = B(7503) -! JVS(25365) = Jac_FULL(4541,4541) - JVS(25365) = -B(11319)-B(11321)-B(11323)-B(11325)-B(11327)-B(11328) -! JVS(25366) = Jac_FULL(4541,5048) - JVS(25366) = 0 -! JVS(25367) = Jac_FULL(4541,5092) - JVS(25367) = 0 -! JVS(25368) = Jac_FULL(4541,5250) - JVS(25368) = B(7504) -! JVS(25369) = Jac_FULL(4541,5252) - JVS(25369) = -B(11322)-B(11324) -! JVS(25370) = Jac_FULL(4541,5255) - JVS(25370) = -B(11320) -! JVS(25371) = Jac_FULL(4541,5256) - JVS(25371) = -B(11326) -! JVS(25372) = Jac_FULL(4541,5258) - JVS(25372) = 0 -! JVS(25373) = Jac_FULL(4542,1569) - JVS(25373) = B(14815) -! JVS(25374) = Jac_FULL(4542,4542) - JVS(25374) = -B(14603)-B(14605)-B(14607)-B(14609)-B(14610)-B(14611) -! JVS(25375) = Jac_FULL(4542,5248) - JVS(25375) = B(11291) -! JVS(25376) = Jac_FULL(4542,5249) - JVS(25376) = 0 -! JVS(25377) = Jac_FULL(4542,5250) - JVS(25377) = B(11292) -! JVS(25378) = Jac_FULL(4542,5252) - JVS(25378) = -B(14606) -! JVS(25379) = Jac_FULL(4542,5255) - JVS(25379) = -B(14604) -! JVS(25380) = Jac_FULL(4542,5256) - JVS(25380) = -B(14608) -! JVS(25381) = Jac_FULL(4542,5258) - JVS(25381) = 0 -! JVS(25382) = Jac_FULL(4543,866) - JVS(25382) = B(24043) -! JVS(25383) = Jac_FULL(4543,3604) - JVS(25383) = B(24023) -! JVS(25384) = Jac_FULL(4543,4543) - JVS(25384) = -B(24036)-B(24038)-B(24040)-B(24042) -! JVS(25385) = Jac_FULL(4543,4686) - JVS(25385) = 0 -! JVS(25386) = Jac_FULL(4543,4687) - JVS(25386) = 0 -! JVS(25387) = Jac_FULL(4543,5250) - JVS(25387) = B(24024)+B(24044) -! JVS(25388) = Jac_FULL(4543,5252) - JVS(25388) = -B(24039) -! JVS(25389) = Jac_FULL(4543,5253) - JVS(25389) = 0 -! JVS(25390) = Jac_FULL(4543,5255) - JVS(25390) = -B(24037) -! JVS(25391) = Jac_FULL(4543,5256) - JVS(25391) = -B(24041) -! JVS(25392) = Jac_FULL(4544,239) - JVS(25392) = B(2229) -! JVS(25393) = Jac_FULL(4544,327) - JVS(25393) = B(2081) -! JVS(25394) = Jac_FULL(4544,4474) - JVS(25394) = 0 -! JVS(25395) = Jac_FULL(4544,4512) - JVS(25395) = 0 -! JVS(25396) = Jac_FULL(4544,4544) - JVS(25396) = -B(4905)-B(4907)-B(4909)-B(4911)-B(4913) -! JVS(25397) = Jac_FULL(4544,5250) - JVS(25397) = 0 -! JVS(25398) = Jac_FULL(4544,5251) - JVS(25398) = -B(4906) -! JVS(25399) = Jac_FULL(4544,5252) - JVS(25399) = -B(4908) -! JVS(25400) = Jac_FULL(4544,5253) - JVS(25400) = -B(4910) -! JVS(25401) = Jac_FULL(4544,5254) - JVS(25401) = -B(4912) -! JVS(25402) = Jac_FULL(4544,5256) - JVS(25402) = 0 -! JVS(25403) = Jac_FULL(4544,5258) - JVS(25403) = 0 -! JVS(25404) = Jac_FULL(4545,154) - JVS(25404) = B(14390) -! JVS(25405) = Jac_FULL(4545,735) - JVS(25405) = B(14391) -! JVS(25406) = Jac_FULL(4545,736) - JVS(25406) = 0 -! JVS(25407) = Jac_FULL(4545,1057) - JVS(25407) = 0 -! JVS(25408) = Jac_FULL(4545,1093) - JVS(25408) = B(19222) -! JVS(25409) = Jac_FULL(4545,1608) - JVS(25409) = B(16898) -! JVS(25410) = Jac_FULL(4545,4078) - JVS(25410) = 0 -! JVS(25411) = Jac_FULL(4545,4545) - JVS(25411) = -B(17005)-B(17007)-B(17009)-B(17011)-B(17013)-B(17014) -! JVS(25412) = Jac_FULL(4545,4600) - JVS(25412) = 0 -! JVS(25413) = Jac_FULL(4545,4910) - JVS(25413) = 0 -! JVS(25414) = Jac_FULL(4545,5250) - JVS(25414) = B(14392)+B(19223) -! JVS(25415) = Jac_FULL(4545,5252) - JVS(25415) = -B(17008)-B(17010) -! JVS(25416) = Jac_FULL(4545,5255) - JVS(25416) = -B(17006) -! JVS(25417) = Jac_FULL(4545,5256) - JVS(25417) = -B(17012) -! JVS(25418) = Jac_FULL(4545,5258) - JVS(25418) = 0 -! JVS(25419) = Jac_FULL(4546,3336) - JVS(25419) = B(19586) -! JVS(25420) = Jac_FULL(4546,3792) - JVS(25420) = B(15005) -! JVS(25421) = Jac_FULL(4546,4546) - JVS(25421) = -B(17578)-B(17580)-B(17582)-B(17584)-B(17585) -! JVS(25422) = Jac_FULL(4546,4561) - JVS(25422) = 0 -! JVS(25423) = Jac_FULL(4546,4975) - JVS(25423) = 0 -! JVS(25424) = Jac_FULL(4546,5010) - JVS(25424) = 0 -! JVS(25425) = Jac_FULL(4546,5250) - JVS(25425) = B(15006)+B(19587) -! JVS(25426) = Jac_FULL(4546,5252) - JVS(25426) = -B(17581) -! JVS(25427) = Jac_FULL(4546,5255) - JVS(25427) = -B(17579) -! JVS(25428) = Jac_FULL(4546,5256) - JVS(25428) = -B(17583) -! JVS(25429) = Jac_FULL(4547,3176) - JVS(25429) = B(8971)+B(8973) -! JVS(25430) = Jac_FULL(4547,3177) - JVS(25430) = B(8968) -! JVS(25431) = Jac_FULL(4547,3264) - JVS(25431) = B(9780) -! JVS(25432) = Jac_FULL(4547,3573) - JVS(25432) = B(8970) -! JVS(25433) = Jac_FULL(4547,3584) - JVS(25433) = B(9777) -! JVS(25434) = Jac_FULL(4547,3834) - JVS(25434) = B(2440)+B(2446) -! JVS(25435) = Jac_FULL(4547,4027) - JVS(25435) = B(2753)+B(2760) -! JVS(25436) = Jac_FULL(4547,4547) - JVS(25436) = -B(5426)-B(5428)-B(5430) -! JVS(25437) = Jac_FULL(4547,4707) - JVS(25437) = 0 -! JVS(25438) = Jac_FULL(4547,4803) - JVS(25438) = 0 -! JVS(25439) = Jac_FULL(4547,5250) - JVS(25439) = -B(5429)+B(8972) -! JVS(25440) = Jac_FULL(4547,5252) - JVS(25440) = 0 -! JVS(25441) = Jac_FULL(4547,5255) - JVS(25441) = 0 -! JVS(25442) = Jac_FULL(4547,5256) - JVS(25442) = -B(5427) -! JVS(25443) = Jac_FULL(4547,5258) - JVS(25443) = B(2441)+B(2754) -! JVS(25444) = Jac_FULL(4548,1249) - JVS(25444) = B(20313) -! JVS(25445) = Jac_FULL(4548,2655) - JVS(25445) = B(20315) -! JVS(25446) = Jac_FULL(4548,3470) - JVS(25446) = B(16500)+B(16502) -! JVS(25447) = Jac_FULL(4548,4107) - JVS(25447) = 0 -! JVS(25448) = Jac_FULL(4548,4548) - JVS(25448) = -B(18727)-B(18729)-B(18731)-B(18733)-B(18735)-B(18737) -! JVS(25449) = Jac_FULL(4548,5217) - JVS(25449) = 0 -! JVS(25450) = Jac_FULL(4548,5218) - JVS(25450) = 0 -! JVS(25451) = Jac_FULL(4548,5250) - JVS(25451) = B(16503)+B(20314) -! JVS(25452) = Jac_FULL(4548,5252) - JVS(25452) = -B(18732) -! JVS(25453) = Jac_FULL(4548,5253) - JVS(25453) = -B(18734) -! JVS(25454) = Jac_FULL(4548,5255) - JVS(25454) = -B(18728)-B(18730) -! JVS(25455) = Jac_FULL(4548,5256) - JVS(25455) = B(16501)-B(18736) -! JVS(25456) = Jac_FULL(4549,1173) - JVS(25456) = B(21161) -! JVS(25457) = Jac_FULL(4549,2115) - JVS(25457) = B(21158) -! JVS(25458) = Jac_FULL(4549,4279) - JVS(25458) = B(17638) -! JVS(25459) = Jac_FULL(4549,4549) - JVS(25459) = -B(19612)-B(19614)-B(19616)-B(19618) -! JVS(25460) = Jac_FULL(4549,4960) - JVS(25460) = 0 -! JVS(25461) = Jac_FULL(4549,4984) - JVS(25461) = B(19619)+B(19623)+B(19627)+B(19629) -! JVS(25462) = Jac_FULL(4549,5056) - JVS(25462) = 0 -! JVS(25463) = Jac_FULL(4549,5250) - JVS(25463) = B(21159) -! JVS(25464) = Jac_FULL(4549,5252) - JVS(25464) = -B(19615)+B(19624) -! JVS(25465) = Jac_FULL(4549,5255) - JVS(25465) = -B(19613)+B(19620) -! JVS(25466) = Jac_FULL(4549,5256) - JVS(25466) = -B(19617)+B(19628) -! JVS(25467) = Jac_FULL(4550,287) - JVS(25467) = B(21354) -! JVS(25468) = Jac_FULL(4550,894) - JVS(25468) = B(21358) -! JVS(25469) = Jac_FULL(4550,1854) - JVS(25469) = B(15728) -! JVS(25470) = Jac_FULL(4550,3911) - JVS(25470) = B(18211) -! JVS(25471) = Jac_FULL(4550,4550) - JVS(25471) = -B(12660)-B(12662)-B(12664)-B(12666) -! JVS(25472) = Jac_FULL(4550,4808) - JVS(25472) = B(19999)+B(20001)+B(20005)+B(20008) -! JVS(25473) = Jac_FULL(4550,4927) - JVS(25473) = B(9059) -! JVS(25474) = Jac_FULL(4550,5250) - JVS(25474) = B(15729)+B(21355) -! JVS(25475) = Jac_FULL(4550,5252) - JVS(25475) = -B(12663)+B(20002) -! JVS(25476) = Jac_FULL(4550,5255) - JVS(25476) = -B(12661)+B(20000) -! JVS(25477) = Jac_FULL(4550,5256) - JVS(25477) = -B(12665)+B(20006) -! JVS(25478) = Jac_FULL(4550,5258) - JVS(25478) = B(9060) -! JVS(25479) = Jac_FULL(4551,1795) - JVS(25479) = B(13663) -! JVS(25480) = Jac_FULL(4551,4551) - JVS(25480) = -B(16526)-B(16528)-B(16530)-B(16532)-B(16534) -! JVS(25481) = Jac_FULL(4551,5013) - JVS(25481) = 0 -! JVS(25482) = Jac_FULL(4551,5205) - JVS(25482) = 0 -! JVS(25483) = Jac_FULL(4551,5251) - JVS(25483) = -B(16527) -! JVS(25484) = Jac_FULL(4551,5252) - JVS(25484) = -B(16529) -! JVS(25485) = Jac_FULL(4551,5253) - JVS(25485) = -B(16531) -! JVS(25486) = Jac_FULL(4551,5254) - JVS(25486) = -B(16533) -! JVS(25487) = Jac_FULL(4551,5258) - JVS(25487) = 0 -! JVS(25488) = Jac_FULL(4552,1762) - JVS(25488) = B(19036) -! JVS(25489) = Jac_FULL(4552,1893) - JVS(25489) = B(19032) -! JVS(25490) = Jac_FULL(4552,2381) - JVS(25490) = B(19027)+B(19029) -! JVS(25491) = Jac_FULL(4552,2868) - JVS(25491) = 0 -! JVS(25492) = Jac_FULL(4552,4552) - JVS(25492) = -B(16828)-B(16830)-B(16832)-B(16834) -! JVS(25493) = Jac_FULL(4552,4926) - JVS(25493) = B(16814)+B(16820)+B(16824)+B(16826) -! JVS(25494) = Jac_FULL(4552,4957) - JVS(25494) = 0 -! JVS(25495) = Jac_FULL(4552,4996) - JVS(25495) = B(14206) -! JVS(25496) = Jac_FULL(4552,5250) - JVS(25496) = B(19028)+B(19037) -! JVS(25497) = Jac_FULL(4552,5252) - JVS(25497) = B(16821)-B(16831) -! JVS(25498) = Jac_FULL(4552,5255) - JVS(25498) = B(16815)-B(16829) -! JVS(25499) = Jac_FULL(4552,5256) - JVS(25499) = B(16825)-B(16833) -! JVS(25500) = Jac_FULL(4553,2110) - JVS(25500) = B(11566) -! JVS(25501) = Jac_FULL(4553,3020) - JVS(25501) = B(11571) -! JVS(25502) = Jac_FULL(4553,3603) - JVS(25502) = B(4078) -! JVS(25503) = Jac_FULL(4553,4553) - JVS(25503) = -B(7783)-B(7785)-B(7787)-B(7789)-B(7791)-B(7793) -! JVS(25504) = Jac_FULL(4553,4554) - JVS(25504) = 0 -! JVS(25505) = Jac_FULL(4553,4585) - JVS(25505) = 0 -! JVS(25506) = Jac_FULL(4553,5250) - JVS(25506) = B(4079)+B(11567) -! JVS(25507) = Jac_FULL(4553,5252) - JVS(25507) = -B(7788) -! JVS(25508) = Jac_FULL(4553,5253) - JVS(25508) = -B(7790) -! JVS(25509) = Jac_FULL(4553,5255) - JVS(25509) = -B(7784)-B(7786) -! JVS(25510) = Jac_FULL(4553,5256) - JVS(25510) = -B(7792) -! JVS(25511) = Jac_FULL(4554,3256) - JVS(25511) = B(4074) -! JVS(25512) = Jac_FULL(4554,4554) - JVS(25512) = -B(1269)-B(1271)-B(1273)-B(1275)-B(1277)-B(1278)-B(1279) -! JVS(25513) = Jac_FULL(4554,4555) - JVS(25513) = B(169) -! JVS(25514) = Jac_FULL(4554,5250) - JVS(25514) = B(170)+B(4075) -! JVS(25515) = Jac_FULL(4554,5252) - JVS(25515) = -B(1272)-B(1274) -! JVS(25516) = Jac_FULL(4554,5255) - JVS(25516) = -B(1270) -! JVS(25517) = Jac_FULL(4554,5256) - JVS(25517) = -B(1276) -! JVS(25518) = Jac_FULL(4555,4555) - JVS(25518) = -B(159)-B(161)-B(163)-B(165)-B(167)-B(169) -! JVS(25519) = Jac_FULL(4555,5250) - JVS(25519) = -B(168)-B(170) -! JVS(25520) = Jac_FULL(4555,5256) - JVS(25520) = -B(160)-B(162) -! JVS(25521) = Jac_FULL(4555,5258) - JVS(25521) = -B(164)-B(166) -! JVS(25522) = Jac_FULL(4556,558) - JVS(25522) = B(10639) -! JVS(25523) = Jac_FULL(4556,4096) - JVS(25523) = 0 -! JVS(25524) = Jac_FULL(4556,4556) - JVS(25524) = -B(13868)-B(13870)-B(13872)-B(13874)-B(13876) -! JVS(25525) = Jac_FULL(4556,5132) - JVS(25525) = 0 -! JVS(25526) = Jac_FULL(4556,5250) - JVS(25526) = 0 -! JVS(25527) = Jac_FULL(4556,5251) - JVS(25527) = -B(13869) -! JVS(25528) = Jac_FULL(4556,5252) - JVS(25528) = -B(13871) -! JVS(25529) = Jac_FULL(4556,5253) - JVS(25529) = -B(13873) -! JVS(25530) = Jac_FULL(4556,5254) - JVS(25530) = -B(13875) -! JVS(25531) = Jac_FULL(4556,5258) - JVS(25531) = 0 -! JVS(25532) = Jac_FULL(4557,542) - JVS(25532) = B(18194) -! JVS(25533) = Jac_FULL(4557,2131) - JVS(25533) = B(11680) -! JVS(25534) = Jac_FULL(4557,2482) - JVS(25534) = 0 -! JVS(25535) = Jac_FULL(4557,2887) - JVS(25535) = B(11685) -! JVS(25536) = Jac_FULL(4557,4557) - JVS(25536) = -B(7950)-B(7952)-B(7954)-B(7956)-B(7958)-B(7960) -! JVS(25537) = Jac_FULL(4557,4558) - JVS(25537) = 0 -! JVS(25538) = Jac_FULL(4557,5094) - JVS(25538) = B(4314) -! JVS(25539) = Jac_FULL(4557,5250) - JVS(25539) = B(4315)+B(11681) -! JVS(25540) = Jac_FULL(4557,5252) - JVS(25540) = -B(7955) -! JVS(25541) = Jac_FULL(4557,5253) - JVS(25541) = -B(7957) -! JVS(25542) = Jac_FULL(4557,5255) - JVS(25542) = -B(7951)-B(7953) -! JVS(25543) = Jac_FULL(4557,5256) - JVS(25543) = -B(7959) -! JVS(25544) = Jac_FULL(4558,3196) - JVS(25544) = B(15695) -! JVS(25545) = Jac_FULL(4558,4558) - JVS(25545) = -B(12621)-B(12623)-B(12625)-B(12627)-B(12628) -! JVS(25546) = Jac_FULL(4558,5089) - JVS(25546) = B(9047) -! JVS(25547) = Jac_FULL(4558,5250) - JVS(25547) = B(9048)+B(15696) -! JVS(25548) = Jac_FULL(4558,5252) - JVS(25548) = -B(12624) -! JVS(25549) = Jac_FULL(4558,5255) - JVS(25549) = -B(12622) -! JVS(25550) = Jac_FULL(4558,5256) - JVS(25550) = -B(12626) -! JVS(25551) = Jac_FULL(4559,304) - JVS(25551) = B(4471) -! JVS(25552) = Jac_FULL(4559,2628) - JVS(25552) = B(4465) -! JVS(25553) = Jac_FULL(4559,2913) - JVS(25553) = B(4468) -! JVS(25554) = Jac_FULL(4559,3026) - JVS(25554) = B(11946) -! JVS(25555) = Jac_FULL(4559,4469) - JVS(25555) = 0 -! JVS(25556) = Jac_FULL(4559,4559) - JVS(25556) = -B(4473)-B(4475)-B(4477) -! JVS(25557) = Jac_FULL(4559,4980) - JVS(25557) = B(1704) -! JVS(25558) = Jac_FULL(4559,5082) - JVS(25558) = 0 -! JVS(25559) = Jac_FULL(4559,5250) - JVS(25559) = B(4466)+B(4469)+B(4472)-B(4476)+B(11947) -! JVS(25560) = Jac_FULL(4559,5252) - JVS(25560) = 0 -! JVS(25561) = Jac_FULL(4559,5253) - JVS(25561) = 0 -! JVS(25562) = Jac_FULL(4559,5255) - JVS(25562) = 0 -! JVS(25563) = Jac_FULL(4559,5256) - JVS(25563) = -B(4474) -! JVS(25564) = Jac_FULL(4560,632) - JVS(25564) = B(20713) -! JVS(25565) = Jac_FULL(4560,842) - JVS(25565) = B(22498) -! JVS(25566) = Jac_FULL(4560,2151) - JVS(25566) = 0 -! JVS(25567) = Jac_FULL(4560,2404) - JVS(25567) = B(22366) -! JVS(25568) = Jac_FULL(4560,4290) - JVS(25568) = 0 -! JVS(25569) = Jac_FULL(4560,4439) - JVS(25569) = B(21887)+B(21889)+B(21893)+B(21895) -! JVS(25570) = Jac_FULL(4560,4560) - JVS(25570) = -B(21739)-B(21741)-B(21743)-B(21745) -! JVS(25571) = Jac_FULL(4560,4914) - JVS(25571) = 0 -! JVS(25572) = Jac_FULL(4560,5084) - JVS(25572) = 0 -! JVS(25573) = Jac_FULL(4560,5250) - JVS(25573) = B(22367) -! JVS(25574) = Jac_FULL(4560,5252) - JVS(25574) = -B(21742)+B(21890) -! JVS(25575) = Jac_FULL(4560,5253) - JVS(25575) = 0 -! JVS(25576) = Jac_FULL(4560,5255) - JVS(25576) = -B(21740)+B(21888) -! JVS(25577) = Jac_FULL(4560,5256) - JVS(25577) = -B(21744)+B(21894) -! JVS(25578) = Jac_FULL(4561,2553) - JVS(25578) = B(17557) -! JVS(25579) = Jac_FULL(4561,4561) - JVS(25579) = -B(14992)-B(14994)-B(14996)-B(14998)-B(15000)-B(15001) -! JVS(25580) = Jac_FULL(4561,5010) - JVS(25580) = B(11799) -! JVS(25581) = Jac_FULL(4561,5250) - JVS(25581) = B(11800)+B(17558) -! JVS(25582) = Jac_FULL(4561,5252) - JVS(25582) = -B(14995)-B(14997) -! JVS(25583) = Jac_FULL(4561,5255) - JVS(25583) = -B(14993) -! JVS(25584) = Jac_FULL(4561,5256) - JVS(25584) = -B(14999) -! JVS(25585) = Jac_FULL(4562,181) - JVS(25585) = B(128) -! JVS(25586) = Jac_FULL(4562,2006) - JVS(25586) = B(3842) -! JVS(25587) = Jac_FULL(4562,4508) - JVS(25587) = B(535) -! JVS(25588) = Jac_FULL(4562,4562) - JVS(25588) = -B(1096)-B(1098)-B(1100)-B(1102)-B(1104)-B(1105)-B(1106) -! JVS(25589) = Jac_FULL(4562,5250) - JVS(25589) = B(129)+B(536)+B(3843) -! JVS(25590) = Jac_FULL(4562,5252) - JVS(25590) = -B(1099)-B(1101) -! JVS(25591) = Jac_FULL(4562,5255) - JVS(25591) = -B(1097) -! JVS(25592) = Jac_FULL(4562,5256) - JVS(25592) = -B(1103) -! JVS(25593) = Jac_FULL(4562,5258) - JVS(25593) = 0 -! JVS(25594) = Jac_FULL(4563,293) - JVS(25594) = B(3425) -! JVS(25595) = Jac_FULL(4563,4492) - JVS(25595) = 0 -! JVS(25596) = Jac_FULL(4563,4563) - JVS(25596) = -B(7263)-B(7265)-B(7267)-B(7269)-B(7270)-B(7271) -! JVS(25597) = Jac_FULL(4563,5250) - JVS(25597) = 0 -! JVS(25598) = Jac_FULL(4563,5252) - JVS(25598) = -B(7266) -! JVS(25599) = Jac_FULL(4563,5255) - JVS(25599) = -B(7264) -! JVS(25600) = Jac_FULL(4563,5256) - JVS(25600) = -B(7268) -! JVS(25601) = Jac_FULL(4563,5258) - JVS(25601) = 0 -! JVS(25602) = Jac_FULL(4564,2109) - JVS(25602) = B(16642) -! JVS(25603) = Jac_FULL(4564,2554) - JVS(25603) = B(16629) -! JVS(25604) = Jac_FULL(4564,3197) - JVS(25604) = B(16632) -! JVS(25605) = Jac_FULL(4564,3272) - JVS(25605) = B(20430) -! JVS(25606) = Jac_FULL(4564,4564) - JVS(25606) = -B(10459)-B(10460) -! JVS(25607) = Jac_FULL(4564,5016) - JVS(25607) = B(6744) -! JVS(25608) = Jac_FULL(4564,5020) - JVS(25608) = B(6733) -! JVS(25609) = Jac_FULL(4564,5033) - JVS(25609) = 0 -! JVS(25610) = Jac_FULL(4564,5075) - JVS(25610) = B(18837)+B(18839)+B(18843)+B(18848) -! JVS(25611) = Jac_FULL(4564,5174) - JVS(25611) = B(13830) -! JVS(25612) = Jac_FULL(4564,5250) - JVS(25612) = -B(10461)+B(16630)+B(16633)+B(16643) -! JVS(25613) = Jac_FULL(4564,5252) - JVS(25613) = B(18840) -! JVS(25614) = Jac_FULL(4564,5253) - JVS(25614) = 0 -! JVS(25615) = Jac_FULL(4564,5255) - JVS(25615) = B(18838) -! JVS(25616) = Jac_FULL(4564,5256) - JVS(25616) = B(18844) -! JVS(25617) = Jac_FULL(4565,217) - JVS(25617) = B(18906) -! JVS(25618) = Jac_FULL(4565,3621) - JVS(25618) = 0 -! JVS(25619) = Jac_FULL(4565,4565) - JVS(25619) = -B(20493)-B(20495)-B(20497)-B(20499) -! JVS(25620) = Jac_FULL(4565,5091) - JVS(25620) = 0 -! JVS(25621) = Jac_FULL(4565,5250) - JVS(25621) = B(18907) -! JVS(25622) = Jac_FULL(4565,5252) - JVS(25622) = -B(20496) -! JVS(25623) = Jac_FULL(4565,5255) - JVS(25623) = -B(20494) -! JVS(25624) = Jac_FULL(4565,5256) - JVS(25624) = -B(20498) -! JVS(25625) = Jac_FULL(4566,3906) - JVS(25625) = B(15196) -! JVS(25626) = Jac_FULL(4566,4566) - JVS(25626) = -B(17760)-B(17762)-B(17764)-B(17766)-B(17767)-B(17768) -! JVS(25627) = Jac_FULL(4566,5108) - JVS(25627) = 0 -! JVS(25628) = Jac_FULL(4566,5250) - JVS(25628) = B(15197) -! JVS(25629) = Jac_FULL(4566,5252) - JVS(25629) = -B(17763) -! JVS(25630) = Jac_FULL(4566,5255) - JVS(25630) = -B(17761) -! JVS(25631) = Jac_FULL(4566,5256) - JVS(25631) = -B(17765) -! JVS(25632) = Jac_FULL(4567,199) - JVS(25632) = B(11227) -! JVS(25633) = Jac_FULL(4567,1205) - JVS(25633) = 0 -! JVS(25634) = Jac_FULL(4567,2061) - JVS(25634) = 0 -! JVS(25635) = Jac_FULL(4567,4567) - JVS(25635) = -B(14468)-B(14470)-B(14472)-B(14474)-B(14475)-B(14476) -! JVS(25636) = Jac_FULL(4567,5236) - JVS(25636) = 0 -! JVS(25637) = Jac_FULL(4567,5250) - JVS(25637) = 0 -! JVS(25638) = Jac_FULL(4567,5252) - JVS(25638) = -B(14471) -! JVS(25639) = Jac_FULL(4567,5255) - JVS(25639) = -B(14469) -! JVS(25640) = Jac_FULL(4567,5256) - JVS(25640) = -B(14473) -! JVS(25641) = Jac_FULL(4568,1034) - JVS(25641) = B(9874) -! JVS(25642) = Jac_FULL(4568,3996) - JVS(25642) = B(2795) -! JVS(25643) = Jac_FULL(4568,4568) - JVS(25643) = -B(6163)-B(6165)-B(6167)-B(6169)-B(6171)-B(6172) -! JVS(25644) = Jac_FULL(4568,5250) - JVS(25644) = B(2796)+B(9875) -! JVS(25645) = Jac_FULL(4568,5252) - JVS(25645) = -B(6166)-B(6168) -! JVS(25646) = Jac_FULL(4568,5255) - JVS(25646) = -B(6164) -! JVS(25647) = Jac_FULL(4568,5256) - JVS(25647) = -B(6170) -! JVS(25648) = Jac_FULL(4568,5258) - JVS(25648) = 0 -! JVS(25649) = Jac_FULL(4569,3438) - JVS(25649) = B(9881) -! JVS(25650) = Jac_FULL(4569,3457) - JVS(25650) = B(10173) -! JVS(25651) = Jac_FULL(4569,3569) - JVS(25651) = B(9878) -! JVS(25652) = Jac_FULL(4569,3581) - JVS(25652) = B(10170) -! JVS(25653) = Jac_FULL(4569,3996) - JVS(25653) = B(2793)+B(2800) -! JVS(25654) = Jac_FULL(4569,4018) - JVS(25654) = B(2933)+B(2940) -! JVS(25655) = Jac_FULL(4569,4400) - JVS(25655) = 0 -! JVS(25656) = Jac_FULL(4569,4568) - JVS(25656) = 0 -! JVS(25657) = Jac_FULL(4569,4569) - JVS(25657) = -B(6155)-B(6157)-B(6159)-B(6160) -! JVS(25658) = Jac_FULL(4569,5250) - JVS(25658) = -B(6158) -! JVS(25659) = Jac_FULL(4569,5252) - JVS(25659) = 0 -! JVS(25660) = Jac_FULL(4569,5255) - JVS(25660) = 0 -! JVS(25661) = Jac_FULL(4569,5256) - JVS(25661) = -B(6156) -! JVS(25662) = Jac_FULL(4569,5258) - JVS(25662) = B(2794)+B(2934) -! JVS(25663) = Jac_FULL(4570,4570) - JVS(25663) = -B(13778)-B(13780)-B(13782)-B(13784) -! JVS(25664) = Jac_FULL(4570,5002) - JVS(25664) = B(10580)+B(10588) -! JVS(25665) = Jac_FULL(4570,5025) - JVS(25665) = B(13705) -! JVS(25666) = Jac_FULL(4570,5250) - JVS(25666) = B(10589)-B(13783) -! JVS(25667) = Jac_FULL(4570,5256) - JVS(25667) = B(10581) -! JVS(25668) = Jac_FULL(4570,5258) - JVS(25668) = -B(13779)-B(13781) -! JVS(25669) = Jac_FULL(4571,2355) - JVS(25669) = B(4547) -! JVS(25670) = Jac_FULL(4571,2385) - JVS(25670) = B(335)+B(343) -! JVS(25671) = Jac_FULL(4571,4571) - JVS(25671) = -B(1760)-B(1762)-B(1764)-B(1766)-B(1768)-B(1769)-B(1770) -! JVS(25672) = Jac_FULL(4571,5238) - JVS(25672) = B(336) -! JVS(25673) = Jac_FULL(4571,5250) - JVS(25673) = B(344)+B(4548) -! JVS(25674) = Jac_FULL(4571,5252) - JVS(25674) = -B(1763)-B(1765) -! JVS(25675) = Jac_FULL(4571,5255) - JVS(25675) = -B(1761) -! JVS(25676) = Jac_FULL(4571,5256) - JVS(25676) = -B(1767) -! JVS(25677) = Jac_FULL(4572,3374) - JVS(25677) = B(22646) -! JVS(25678) = Jac_FULL(4572,3957) - JVS(25678) = 0 -! JVS(25679) = Jac_FULL(4572,4572) - JVS(25679) = -B(23079)-B(23081)-B(23083)-B(23085)-B(23086)-B(23087) -! JVS(25680) = Jac_FULL(4572,4825) - JVS(25680) = 0 -! JVS(25681) = Jac_FULL(4572,5250) - JVS(25681) = B(22647) -! JVS(25682) = Jac_FULL(4572,5252) - JVS(25682) = -B(23082) -! JVS(25683) = Jac_FULL(4572,5255) - JVS(25683) = -B(23080) -! JVS(25684) = Jac_FULL(4572,5256) - JVS(25684) = -B(23084) -! JVS(25685) = Jac_FULL(4573,3777) - JVS(25685) = B(15190) -! JVS(25686) = Jac_FULL(4573,4573) - JVS(25686) = -B(17749)-B(17751)-B(17753)-B(17755)-B(17757)-B(17758)-B(17759) -! JVS(25687) = Jac_FULL(4573,5108) - JVS(25687) = 0 -! JVS(25688) = Jac_FULL(4573,5250) - JVS(25688) = B(15191) -! JVS(25689) = Jac_FULL(4573,5252) - JVS(25689) = -B(17752)-B(17754) -! JVS(25690) = Jac_FULL(4573,5255) - JVS(25690) = -B(17750) -! JVS(25691) = Jac_FULL(4573,5256) - JVS(25691) = -B(17756) -! JVS(25692) = Jac_FULL(4574,1063) - JVS(25692) = B(4852) -! JVS(25693) = Jac_FULL(4574,4574) - JVS(25693) = -B(2029)-B(2031)-B(2033)-B(2035)-B(2036)-B(2037) -! JVS(25694) = Jac_FULL(4574,5051) - JVS(25694) = B(443) -! JVS(25695) = Jac_FULL(4574,5250) - JVS(25695) = B(4853) -! JVS(25696) = Jac_FULL(4574,5252) - JVS(25696) = -B(2032) -! JVS(25697) = Jac_FULL(4574,5255) - JVS(25697) = -B(2030) -! JVS(25698) = Jac_FULL(4574,5256) - JVS(25698) = B(444)-B(2034) -! JVS(25699) = Jac_FULL(4575,3833) - JVS(25699) = B(2828) -! JVS(25700) = Jac_FULL(4575,4575) - JVS(25700) = -B(6227)-B(6229)-B(6231)-B(6233)-B(6235)-B(6236)-B(6237) -! JVS(25701) = Jac_FULL(4575,5250) - JVS(25701) = B(2829) -! JVS(25702) = Jac_FULL(4575,5252) - JVS(25702) = -B(6230)-B(6232) -! JVS(25703) = Jac_FULL(4575,5255) - JVS(25703) = -B(6228) -! JVS(25704) = Jac_FULL(4575,5256) - JVS(25704) = -B(6234) -! JVS(25705) = Jac_FULL(4575,5258) - JVS(25705) = 0 -! JVS(25706) = Jac_FULL(4576,3107) - JVS(25706) = B(9945)+B(9947) -! JVS(25707) = Jac_FULL(4576,3108) - JVS(25707) = B(9942) -! JVS(25708) = Jac_FULL(4576,3606) - JVS(25708) = B(9944) -! JVS(25709) = Jac_FULL(4576,3833) - JVS(25709) = B(2824)+B(2830) -! JVS(25710) = Jac_FULL(4576,4575) - JVS(25710) = 0 -! JVS(25711) = Jac_FULL(4576,4576) - JVS(25711) = -B(6222)-B(6224)-B(6226) -! JVS(25712) = Jac_FULL(4576,5250) - JVS(25712) = -B(6225)+B(9946) -! JVS(25713) = Jac_FULL(4576,5252) - JVS(25713) = 0 -! JVS(25714) = Jac_FULL(4576,5255) - JVS(25714) = 0 -! JVS(25715) = Jac_FULL(4576,5256) - JVS(25715) = -B(6223) -! JVS(25716) = Jac_FULL(4576,5258) - JVS(25716) = B(2825) -! JVS(25717) = Jac_FULL(4577,445) - JVS(25717) = B(4716) -! JVS(25718) = Jac_FULL(4577,1207) - JVS(25718) = 0 -! JVS(25719) = Jac_FULL(4577,2534) - JVS(25719) = 0 -! JVS(25720) = Jac_FULL(4577,4099) - JVS(25720) = 0 -! JVS(25721) = Jac_FULL(4577,4577) - JVS(25721) = -B(8284)-B(8286)-B(8288)-B(8290)-B(8292)-B(8293)-B(8294) -! JVS(25722) = Jac_FULL(4577,5238) - JVS(25722) = 0 -! JVS(25723) = Jac_FULL(4577,5250) - JVS(25723) = 0 -! JVS(25724) = Jac_FULL(4577,5252) - JVS(25724) = -B(8287)-B(8289) -! JVS(25725) = Jac_FULL(4577,5255) - JVS(25725) = -B(8285) -! JVS(25726) = Jac_FULL(4577,5256) - JVS(25726) = -B(8291) -! JVS(25727) = Jac_FULL(4578,4578) - JVS(25727) = -B(10379)-B(10381)-B(10383)-B(10385)-B(10387)-B(10388)-B(10389) -! JVS(25728) = Jac_FULL(4578,5093) - JVS(25728) = B(6679) -! JVS(25729) = Jac_FULL(4578,5250) - JVS(25729) = B(6680) -! JVS(25730) = Jac_FULL(4578,5252) - JVS(25730) = -B(10382)-B(10384) -! JVS(25731) = Jac_FULL(4578,5255) - JVS(25731) = -B(10380) -! JVS(25732) = Jac_FULL(4578,5256) - JVS(25732) = -B(10386) -! JVS(25733) = Jac_FULL(4579,1302) - JVS(25733) = B(4842) -! JVS(25734) = Jac_FULL(4579,4579) - JVS(25734) = -B(2020)-B(2022)-B(2024)-B(2026)-B(2027)-B(2028) -! JVS(25735) = Jac_FULL(4579,5051) - JVS(25735) = B(441) -! JVS(25736) = Jac_FULL(4579,5250) - JVS(25736) = B(4843) -! JVS(25737) = Jac_FULL(4579,5252) - JVS(25737) = -B(2023) -! JVS(25738) = Jac_FULL(4579,5255) - JVS(25738) = -B(2021) -! JVS(25739) = Jac_FULL(4579,5256) - JVS(25739) = B(442)-B(2025) -! JVS(25740) = Jac_FULL(4580,300) - JVS(25740) = B(16924) -! JVS(25741) = Jac_FULL(4580,454) - JVS(25741) = 0 -! JVS(25742) = Jac_FULL(4580,1214) - JVS(25742) = B(20700) -! JVS(25743) = Jac_FULL(4580,1324) - JVS(25743) = 0 -! JVS(25744) = Jac_FULL(4580,3741) - JVS(25744) = 0 -! JVS(25745) = Jac_FULL(4580,4580) - JVS(25745) = -B(19117)-B(19119)-B(19121)-B(19123)-B(19125)-B(19126) -! JVS(25746) = Jac_FULL(4580,5198) - JVS(25746) = 0 -! JVS(25747) = Jac_FULL(4580,5250) - JVS(25747) = B(20701) -! JVS(25748) = Jac_FULL(4580,5252) - JVS(25748) = -B(19120)-B(19122) -! JVS(25749) = Jac_FULL(4580,5255) - JVS(25749) = -B(19118) -! JVS(25750) = Jac_FULL(4580,5256) - JVS(25750) = -B(19124) -! JVS(25751) = Jac_FULL(4581,2269) - JVS(25751) = B(7093) -! JVS(25752) = Jac_FULL(4581,3505) - JVS(25752) = B(836) -! JVS(25753) = Jac_FULL(4581,4581) - JVS(25753) = -B(3295)-B(3297)-B(3299)-B(3301)-B(3303)-B(3304)-B(3305) -! JVS(25754) = Jac_FULL(4581,5109) - JVS(25754) = 0 -! JVS(25755) = Jac_FULL(4581,5250) - JVS(25755) = B(837)+B(7094) -! JVS(25756) = Jac_FULL(4581,5252) - JVS(25756) = -B(3298)-B(3300) -! JVS(25757) = Jac_FULL(4581,5255) - JVS(25757) = -B(3296) -! JVS(25758) = Jac_FULL(4581,5256) - JVS(25758) = -B(3302) -! JVS(25759) = Jac_FULL(4582,3308) - JVS(25759) = B(5126) -! JVS(25760) = Jac_FULL(4582,4527) - JVS(25760) = B(557) -! JVS(25761) = Jac_FULL(4582,4582) - JVS(25761) = -B(2255)-B(2257)-B(2259)-B(2261)-B(2263)-B(2264)-B(2265) -! JVS(25762) = Jac_FULL(4582,5250) - JVS(25762) = B(558)+B(5127) -! JVS(25763) = Jac_FULL(4582,5252) - JVS(25763) = -B(2258)-B(2260) -! JVS(25764) = Jac_FULL(4582,5255) - JVS(25764) = -B(2256) -! JVS(25765) = Jac_FULL(4582,5256) - JVS(25765) = -B(2262) -! JVS(25766) = Jac_FULL(4582,5258) - JVS(25766) = 0 -! JVS(25767) = Jac_FULL(4583,3288) - JVS(25767) = B(7137) -! JVS(25768) = Jac_FULL(4583,3843) - JVS(25768) = B(843) -! JVS(25769) = Jac_FULL(4583,4583) - JVS(25769) = -B(3326)-B(3328)-B(3330)-B(3332)-B(3334)-B(3335)-B(3336) -! JVS(25770) = Jac_FULL(4583,5186) - JVS(25770) = 0 -! JVS(25771) = Jac_FULL(4583,5250) - JVS(25771) = B(844)+B(7138) -! JVS(25772) = Jac_FULL(4583,5252) - JVS(25772) = -B(3329)-B(3331) -! JVS(25773) = Jac_FULL(4583,5255) - JVS(25773) = -B(3327) -! JVS(25774) = Jac_FULL(4583,5256) - JVS(25774) = -B(3333) -! JVS(25775) = Jac_FULL(4584,3906) - JVS(25775) = B(15198) -! JVS(25776) = Jac_FULL(4584,4584) - JVS(25776) = -B(17769)-B(17771)-B(17773)-B(17775)-B(17776)-B(17777) -! JVS(25777) = Jac_FULL(4584,5108) - JVS(25777) = 0 -! JVS(25778) = Jac_FULL(4584,5250) - JVS(25778) = B(15199) -! JVS(25779) = Jac_FULL(4584,5252) - JVS(25779) = -B(17772) -! JVS(25780) = Jac_FULL(4584,5255) - JVS(25780) = -B(17770) -! JVS(25781) = Jac_FULL(4584,5256) - JVS(25781) = -B(17774) -! JVS(25782) = Jac_FULL(4585,3198) - JVS(25782) = B(4009) -! JVS(25783) = Jac_FULL(4585,4555) - JVS(25783) = B(159) -! JVS(25784) = Jac_FULL(4585,4585) - JVS(25784) = -B(1230)-B(1232)-B(1234)-B(1236)-B(1237)-B(1238) -! JVS(25785) = Jac_FULL(4585,5250) - JVS(25785) = B(4010) -! JVS(25786) = Jac_FULL(4585,5252) - JVS(25786) = -B(1233) -! JVS(25787) = Jac_FULL(4585,5255) - JVS(25787) = -B(1231) -! JVS(25788) = Jac_FULL(4585,5256) - JVS(25788) = B(160)-B(1235) -! JVS(25789) = Jac_FULL(4585,5258) - JVS(25789) = 0 -! JVS(25790) = Jac_FULL(4586,548) - JVS(25790) = B(391)+B(395) -! JVS(25791) = Jac_FULL(4586,4586) - JVS(25791) = -B(1899)-B(1901)-B(1903)-B(1905)-B(1907)-B(1908)-B(1909) -! JVS(25792) = Jac_FULL(4586,5238) - JVS(25792) = B(392) -! JVS(25793) = Jac_FULL(4586,5250) - JVS(25793) = B(396) -! JVS(25794) = Jac_FULL(4586,5252) - JVS(25794) = -B(1902)-B(1904) -! JVS(25795) = Jac_FULL(4586,5255) - JVS(25795) = -B(1900) -! JVS(25796) = Jac_FULL(4586,5256) - JVS(25796) = -B(1906) -! JVS(25797) = Jac_FULL(4587,2125) - JVS(25797) = B(5104) -! JVS(25798) = Jac_FULL(4587,4527) - JVS(25798) = B(551) -! JVS(25799) = Jac_FULL(4587,4587) - JVS(25799) = -B(2242)-B(2244)-B(2246)-B(2248)-B(2249)-B(2250) -! JVS(25800) = Jac_FULL(4587,5250) - JVS(25800) = B(5105) -! JVS(25801) = Jac_FULL(4587,5252) - JVS(25801) = -B(2245) -! JVS(25802) = Jac_FULL(4587,5255) - JVS(25802) = -B(2243) -! JVS(25803) = Jac_FULL(4587,5256) - JVS(25803) = B(552)-B(2247) -! JVS(25804) = Jac_FULL(4587,5258) - JVS(25804) = 0 -! JVS(25805) = Jac_FULL(4588,3833) - JVS(25805) = B(2824) -! JVS(25806) = Jac_FULL(4588,3834) - JVS(25806) = B(2440) -! JVS(25807) = Jac_FULL(4588,4396) - JVS(25807) = B(2355) -! JVS(25808) = Jac_FULL(4588,4588) - JVS(25808) = -B(5234)-B(5235)-B(5236)-B(5237) -! JVS(25809) = Jac_FULL(4588,5049) - JVS(25809) = B(6661) -! JVS(25810) = Jac_FULL(4588,5050) - JVS(25810) = B(6633) -! JVS(25811) = Jac_FULL(4588,5058) - JVS(25811) = B(5260) -! JVS(25812) = Jac_FULL(4588,5066) - JVS(25812) = B(9420) -! JVS(25813) = Jac_FULL(4588,5068) - JVS(25813) = B(9530) -! JVS(25814) = Jac_FULL(4588,5123) - JVS(25814) = B(8826) -! JVS(25815) = Jac_FULL(4588,5126) - JVS(25815) = B(9297) -! JVS(25816) = Jac_FULL(4588,5250) - JVS(25816) = 0 -! JVS(25817) = Jac_FULL(4588,5256) - JVS(25817) = 0 -! JVS(25818) = Jac_FULL(4588,5258) - JVS(25818) = B(2356)+B(2441)+B(2825)+B(5261)+B(6634)+B(6662)+B(8827)+B(9298)+B(9421)+B(9531) -! JVS(25819) = Jac_FULL(4589,3763) - JVS(25819) = B(6616) -! JVS(25820) = Jac_FULL(4589,4589) - JVS(25820) = -B(10310)-B(10312)-B(10314)-B(10316)-B(10317)-B(10318) -! JVS(25821) = Jac_FULL(4589,5153) - JVS(25821) = 0 -! JVS(25822) = Jac_FULL(4589,5250) - JVS(25822) = B(6617) -! JVS(25823) = Jac_FULL(4589,5252) - JVS(25823) = -B(10313) -! JVS(25824) = Jac_FULL(4589,5255) - JVS(25824) = -B(10311) -! JVS(25825) = Jac_FULL(4589,5256) - JVS(25825) = -B(10315) -! JVS(25826) = Jac_FULL(4590,3341) - JVS(25826) = B(5153) -! JVS(25827) = Jac_FULL(4590,3910) - JVS(25827) = 0 -! JVS(25828) = Jac_FULL(4590,4590) - JVS(25828) = -B(8646)-B(8648)-B(8650)-B(8652)-B(8653)-B(8654) -! JVS(25829) = Jac_FULL(4590,4884) - JVS(25829) = 0 -! JVS(25830) = Jac_FULL(4590,5250) - JVS(25830) = B(5154) -! JVS(25831) = Jac_FULL(4590,5252) - JVS(25831) = -B(8649) -! JVS(25832) = Jac_FULL(4590,5255) - JVS(25832) = -B(8647) -! JVS(25833) = Jac_FULL(4590,5256) - JVS(25833) = -B(8651) -! JVS(25834) = Jac_FULL(4591,782) - JVS(25834) = B(13255) -! JVS(25835) = Jac_FULL(4591,1456) - JVS(25835) = B(12507) -! JVS(25836) = Jac_FULL(4591,1666) - JVS(25836) = B(13258) -! JVS(25837) = Jac_FULL(4591,2047) - JVS(25837) = B(13254) -! JVS(25838) = Jac_FULL(4591,3132) - JVS(25838) = B(13259)+B(13261) -! JVS(25839) = Jac_FULL(4591,3220) - JVS(25839) = B(12512) -! JVS(25840) = Jac_FULL(4591,3331) - JVS(25840) = B(6193) -! JVS(25841) = Jac_FULL(4591,3643) - JVS(25841) = B(5390)+B(5392)+B(5395) -! JVS(25842) = Jac_FULL(4591,3797) - JVS(25842) = 0 -! JVS(25843) = Jac_FULL(4591,3814) - JVS(25843) = 0 -! JVS(25844) = Jac_FULL(4591,4070) - JVS(25844) = 0 -! JVS(25845) = Jac_FULL(4591,4591) - JVS(25845) = -B(8898)-B(8900)-B(8902)-B(8904)-B(8906)-B(8908)-B(8910)-B(8911) -! JVS(25846) = Jac_FULL(4591,5250) - JVS(25846) = B(5393)+B(12508)+B(13260) -! JVS(25847) = Jac_FULL(4591,5252) - JVS(25847) = -B(8905) -! JVS(25848) = Jac_FULL(4591,5253) - JVS(25848) = -B(8907) -! JVS(25849) = Jac_FULL(4591,5255) - JVS(25849) = -B(8899)-B(8901)-B(8903) -! JVS(25850) = Jac_FULL(4591,5256) - JVS(25850) = B(5391)-B(8909) -! JVS(25851) = Jac_FULL(4592,461) - JVS(25851) = B(12505) -! JVS(25852) = Jac_FULL(4592,1456) - JVS(25852) = B(12509) -! JVS(25853) = Jac_FULL(4592,2283) - JVS(25853) = B(12427) -! JVS(25854) = Jac_FULL(4592,3220) - JVS(25854) = 0 -! JVS(25855) = Jac_FULL(4592,3643) - JVS(25855) = B(5394) -! JVS(25856) = Jac_FULL(4592,3793) - JVS(25856) = B(5321) -! JVS(25857) = Jac_FULL(4592,4591) - JVS(25857) = B(8898)+B(8904)+B(8908)+B(8910) -! JVS(25858) = Jac_FULL(4592,4592) - JVS(25858) = -B(8793)-B(8795)-B(8797)-B(8799) -! JVS(25859) = Jac_FULL(4592,5250) - JVS(25859) = B(12428)+B(12506) -! JVS(25860) = Jac_FULL(4592,5252) - JVS(25860) = -B(8796)+B(8905) -! JVS(25861) = Jac_FULL(4592,5253) - JVS(25861) = 0 -! JVS(25862) = Jac_FULL(4592,5255) - JVS(25862) = -B(8794)+B(8899) -! JVS(25863) = Jac_FULL(4592,5256) - JVS(25863) = -B(8798)+B(8909) -! JVS(25864) = Jac_FULL(4592,5258) - JVS(25864) = B(5322) -! JVS(25865) = Jac_FULL(4593,2394) - JVS(25865) = B(4916) -! JVS(25866) = Jac_FULL(4593,4593) - JVS(25866) = -B(2083)-B(2085)-B(2087)-B(2089)-B(2090)-B(2091) -! JVS(25867) = Jac_FULL(4593,5190) - JVS(25867) = B(477) -! JVS(25868) = Jac_FULL(4593,5250) - JVS(25868) = B(4917) -! JVS(25869) = Jac_FULL(4593,5252) - JVS(25869) = -B(2086) -! JVS(25870) = Jac_FULL(4593,5255) - JVS(25870) = -B(2084) -! JVS(25871) = Jac_FULL(4593,5256) - JVS(25871) = B(478)-B(2088) -! JVS(25872) = Jac_FULL(4594,3314) - JVS(25872) = B(7196) -! JVS(25873) = Jac_FULL(4594,3583) - JVS(25873) = B(854) -! JVS(25874) = Jac_FULL(4594,4594) - JVS(25874) = -B(3376)-B(3378)-B(3380)-B(3382)-B(3383)-B(3384) -! JVS(25875) = Jac_FULL(4594,4974) - JVS(25875) = 0 -! JVS(25876) = Jac_FULL(4594,5250) - JVS(25876) = B(855)+B(7197) -! JVS(25877) = Jac_FULL(4594,5252) - JVS(25877) = -B(3379) -! JVS(25878) = Jac_FULL(4594,5255) - JVS(25878) = -B(3377) -! JVS(25879) = Jac_FULL(4594,5256) - JVS(25879) = -B(3381) -! JVS(25880) = Jac_FULL(4595,2260) - JVS(25880) = B(13941) -! JVS(25881) = Jac_FULL(4595,3156) - JVS(25881) = B(6958) -! JVS(25882) = Jac_FULL(4595,4595) - JVS(25882) = -B(10742)-B(10744)-B(10746)-B(10748)-B(10749)-B(10750) -! JVS(25883) = Jac_FULL(4595,4616) - JVS(25883) = 0 -! JVS(25884) = Jac_FULL(4595,5250) - JVS(25884) = B(6959)+B(13942) -! JVS(25885) = Jac_FULL(4595,5252) - JVS(25885) = -B(10745) -! JVS(25886) = Jac_FULL(4595,5255) - JVS(25886) = -B(10743) -! JVS(25887) = Jac_FULL(4595,5256) - JVS(25887) = -B(10747) -! JVS(25888) = Jac_FULL(4596,3243) - JVS(25888) = B(4063) -! JVS(25889) = Jac_FULL(4596,4555) - JVS(25889) = B(167) -! JVS(25890) = Jac_FULL(4596,4596) - JVS(25890) = -B(1258)-B(1260)-B(1262)-B(1264)-B(1266)-B(1267)-B(1268) -! JVS(25891) = Jac_FULL(4596,5250) - JVS(25891) = B(168)+B(4064) -! JVS(25892) = Jac_FULL(4596,5252) - JVS(25892) = -B(1261)-B(1263) -! JVS(25893) = Jac_FULL(4596,5255) - JVS(25893) = -B(1259) -! JVS(25894) = Jac_FULL(4596,5256) - JVS(25894) = -B(1265) -! JVS(25895) = Jac_FULL(4596,5258) - JVS(25895) = 0 -! JVS(25896) = Jac_FULL(4597,1852) - JVS(25896) = B(20706) -! JVS(25897) = Jac_FULL(4597,2701) - JVS(25897) = 0 -! JVS(25898) = Jac_FULL(4597,4580) - JVS(25898) = 0 -! JVS(25899) = Jac_FULL(4597,4597) - JVS(25899) = -B(21728)-B(21730)-B(21732)-B(21734)-B(21736)-B(21737)-B(21738) -! JVS(25900) = Jac_FULL(4597,5198) - JVS(25900) = 0 -! JVS(25901) = Jac_FULL(4597,5250) - JVS(25901) = 0 -! JVS(25902) = Jac_FULL(4597,5252) - JVS(25902) = -B(21731)-B(21733) -! JVS(25903) = Jac_FULL(4597,5255) - JVS(25903) = -B(21729) -! JVS(25904) = Jac_FULL(4597,5256) - JVS(25904) = -B(21735) -! JVS(25905) = Jac_FULL(4598,3289) - JVS(25905) = B(4952) -! JVS(25906) = Jac_FULL(4598,4598) - JVS(25906) = -B(2105)-B(2107)-B(2109)-B(2111)-B(2113)-B(2114)-B(2115) -! JVS(25907) = Jac_FULL(4598,5190) - JVS(25907) = B(485) -! JVS(25908) = Jac_FULL(4598,5250) - JVS(25908) = B(486)+B(4953) -! JVS(25909) = Jac_FULL(4598,5252) - JVS(25909) = -B(2108)-B(2110) -! JVS(25910) = Jac_FULL(4598,5255) - JVS(25910) = -B(2106) -! JVS(25911) = Jac_FULL(4598,5256) - JVS(25911) = -B(2112) -! JVS(25912) = Jac_FULL(4599,2354) - JVS(25912) = B(16709) -! JVS(25913) = Jac_FULL(4599,3620) - JVS(25913) = B(20509) -! JVS(25914) = Jac_FULL(4599,4599) - JVS(25914) = -B(18910)-B(18912)-B(18914)-B(18916)-B(18918)-B(18919) -! JVS(25915) = Jac_FULL(4599,5091) - JVS(25915) = 0 -! JVS(25916) = Jac_FULL(4599,5250) - JVS(25916) = B(16710)+B(20510) -! JVS(25917) = Jac_FULL(4599,5252) - JVS(25917) = -B(18913)-B(18915) -! JVS(25918) = Jac_FULL(4599,5255) - JVS(25918) = -B(18911) -! JVS(25919) = Jac_FULL(4599,5256) - JVS(25919) = -B(18917) -! JVS(25920) = Jac_FULL(4600,4600) - JVS(25920) = -B(878)-B(880)-B(882)-B(884)-B(886)-B(888)-B(890) -! JVS(25921) = Jac_FULL(4600,5250) - JVS(25921) = -B(887)-B(889)-B(891) -! JVS(25922) = Jac_FULL(4600,5256) - JVS(25922) = -B(879)-B(881) -! JVS(25923) = Jac_FULL(4600,5258) - JVS(25923) = -B(883)-B(885) -! JVS(25924) = Jac_FULL(4601,4601) - JVS(25924) = -B(513)-B(515)-B(517)-B(519)-B(521)-B(523) -! JVS(25925) = Jac_FULL(4601,5250) - JVS(25925) = -B(522)-B(524) -! JVS(25926) = Jac_FULL(4601,5256) - JVS(25926) = -B(514)-B(516) -! JVS(25927) = Jac_FULL(4601,5258) - JVS(25927) = -B(518)-B(520) -! JVS(25928) = Jac_FULL(4602,1879) - JVS(25928) = B(22238) -! JVS(25929) = Jac_FULL(4602,1982) - JVS(25929) = B(22230) -! JVS(25930) = Jac_FULL(4602,2026) - JVS(25930) = B(22246) -! JVS(25931) = Jac_FULL(4602,2414) - JVS(25931) = B(22207) -! JVS(25932) = Jac_FULL(4602,2510) - JVS(25932) = B(23242) -! JVS(25933) = Jac_FULL(4602,2529) - JVS(25933) = B(22202) -! JVS(25934) = Jac_FULL(4602,2581) - JVS(25934) = B(16030) -! JVS(25935) = Jac_FULL(4602,2609) - JVS(25935) = B(12376) -! JVS(25936) = Jac_FULL(4602,2712) - JVS(25936) = B(12373) -! JVS(25937) = Jac_FULL(4602,2721) - JVS(25937) = B(22239) -! JVS(25938) = Jac_FULL(4602,2763) - JVS(25938) = B(22201) -! JVS(25939) = Jac_FULL(4602,2859) - JVS(25939) = B(22208) -! JVS(25940) = Jac_FULL(4602,2897) - JVS(25940) = B(15932) -! JVS(25941) = Jac_FULL(4602,2901) - JVS(25941) = B(22231) -! JVS(25942) = Jac_FULL(4602,3028) - JVS(25942) = B(16132) -! JVS(25943) = Jac_FULL(4602,3061) - JVS(25943) = B(22247) -! JVS(25944) = Jac_FULL(4602,3571) - JVS(25944) = B(19890) -! JVS(25945) = Jac_FULL(4602,3673) - JVS(25945) = B(20106) -! JVS(25946) = Jac_FULL(4602,3732) - JVS(25946) = B(20071) -! JVS(25947) = Jac_FULL(4602,3783) - JVS(25947) = B(19904) -! JVS(25948) = Jac_FULL(4602,3787) - JVS(25948) = B(20136) -! JVS(25949) = Jac_FULL(4602,3860) - JVS(25949) = 0 -! JVS(25950) = Jac_FULL(4602,3953) - JVS(25950) = 0 -! JVS(25951) = Jac_FULL(4602,3968) - JVS(25951) = B(20243) -! JVS(25952) = Jac_FULL(4602,3973) - JVS(25952) = 0 -! JVS(25953) = Jac_FULL(4602,4076) - JVS(25953) = 0 -! JVS(25954) = Jac_FULL(4602,4102) - JVS(25954) = B(21388)+B(21392)+B(21396)+B(21398) -! JVS(25955) = Jac_FULL(4602,4163) - JVS(25955) = 0 -! JVS(25956) = Jac_FULL(4602,4267) - JVS(25956) = B(21284)+B(21286)+B(21290)+B(21292) -! JVS(25957) = Jac_FULL(4602,4381) - JVS(25957) = 0 -! JVS(25958) = Jac_FULL(4602,4449) - JVS(25958) = B(21364) -! JVS(25959) = Jac_FULL(4602,4488) - JVS(25959) = 0 -! JVS(25960) = Jac_FULL(4602,4489) - JVS(25960) = B(21301)+B(21303)+B(21307)+B(21309) -! JVS(25961) = Jac_FULL(4602,4602) - JVS(25961) = -B(12381)-B(12383) -! JVS(25962) = Jac_FULL(4602,4603) - JVS(25962) = 0 -! JVS(25963) = Jac_FULL(4602,4619) - JVS(25963) = 0 -! JVS(25964) = Jac_FULL(4602,4620) - JVS(25964) = B(21412)+B(21416)+B(21420)+B(21422) -! JVS(25965) = Jac_FULL(4602,4667) - JVS(25965) = 0 -! JVS(25966) = Jac_FULL(4602,4675) - JVS(25966) = 0 -! JVS(25967) = Jac_FULL(4602,4683) - JVS(25967) = 0 -! JVS(25968) = Jac_FULL(4602,4743) - JVS(25968) = 0 -! JVS(25969) = Jac_FULL(4602,4744) - JVS(25969) = B(21432)+B(21434)+B(21438)+B(21440) -! JVS(25970) = Jac_FULL(4602,4759) - JVS(25970) = 0 -! JVS(25971) = Jac_FULL(4602,4799) - JVS(25971) = 0 -! JVS(25972) = Jac_FULL(4602,4822) - JVS(25972) = 0 -! JVS(25973) = Jac_FULL(4602,4823) - JVS(25973) = B(8714) -! JVS(25974) = Jac_FULL(4602,5250) - JVS(25974) = B(12374)+B(12377)-B(12382)+B(19891)+B(19905)+B(20072)+B(20107)+B(20137)+B(20244)+B(22203)+B(22209)& - &+B(22232)+B(22240)+B(22248)+B(23243) -! JVS(25975) = Jac_FULL(4602,5252) - JVS(25975) = B(21287)+B(21304)+B(21393)+B(21417)+B(21435) -! JVS(25976) = Jac_FULL(4602,5253) - JVS(25976) = 0 -! JVS(25977) = Jac_FULL(4602,5255) - JVS(25977) = B(21285)+B(21302)+B(21389)+B(21413)+B(21433) -! JVS(25978) = Jac_FULL(4602,5256) - JVS(25978) = B(21291)+B(21308)+B(21397)+B(21421)+B(21439) -! JVS(25979) = Jac_FULL(4603,94) - JVS(25979) = B(8772) -! JVS(25980) = Jac_FULL(4603,1024) - JVS(25980) = B(8769) -! JVS(25981) = Jac_FULL(4603,3786) - JVS(25981) = B(5288)+B(5290)+B(5292) -! JVS(25982) = Jac_FULL(4603,4397) - JVS(25982) = 0 -! JVS(25983) = Jac_FULL(4603,4603) - JVS(25983) = -B(8770)-B(8771) -! JVS(25984) = Jac_FULL(4603,5250) - JVS(25984) = B(8773) -! JVS(25985) = Jac_FULL(4603,5252) - JVS(25985) = B(5289) -! JVS(25986) = Jac_FULL(4603,5255) - JVS(25986) = 0 -! JVS(25987) = Jac_FULL(4603,5256) - JVS(25987) = B(5291) -! JVS(25988) = Jac_FULL(4603,5258) - JVS(25988) = 0 -! JVS(25989) = Jac_FULL(4604,4604) - JVS(25989) = -B(561)-B(563)-B(565)-B(567)-B(569)-B(571) -! JVS(25990) = Jac_FULL(4604,5250) - JVS(25990) = -B(570)-B(572) -! JVS(25991) = Jac_FULL(4604,5256) - JVS(25991) = -B(562)-B(564) -! JVS(25992) = Jac_FULL(4604,5258) - JVS(25992) = -B(566)-B(568) -! JVS(25993) = Jac_FULL(4605,4605) - JVS(25993) = -B(892)-B(894)-B(896)-B(898)-B(900)-B(902) -! JVS(25994) = Jac_FULL(4605,5250) - JVS(25994) = -B(899)-B(901)-B(903) -! JVS(25995) = Jac_FULL(4605,5256) - JVS(25995) = -B(893) -! JVS(25996) = Jac_FULL(4605,5258) - JVS(25996) = -B(895)-B(897) -! JVS(25997) = Jac_FULL(4606,4606) - JVS(25997) = -B(573)-B(575)-B(577)-B(579)-B(581)-B(583) -! JVS(25998) = Jac_FULL(4606,5250) - JVS(25998) = -B(582)-B(584) -! JVS(25999) = Jac_FULL(4606,5256) - JVS(25999) = -B(574)-B(576) -! JVS(26000) = Jac_FULL(4606,5258) - JVS(26000) = -B(578)-B(580) -! JVS(26001) = Jac_FULL(4607,1767) - JVS(26001) = B(5170) -! JVS(26002) = Jac_FULL(4607,4604) - JVS(26002) = B(569) -! JVS(26003) = Jac_FULL(4607,4606) - JVS(26003) = B(581) -! JVS(26004) = Jac_FULL(4607,4607) - JVS(26004) = -B(2299)-B(2301)-B(2303)-B(2305)-B(2307)-B(2308)-B(2309) -! JVS(26005) = Jac_FULL(4607,5250) - JVS(26005) = B(570)+B(582)+B(5171) -! JVS(26006) = Jac_FULL(4607,5252) - JVS(26006) = -B(2302)-B(2304) -! JVS(26007) = Jac_FULL(4607,5255) - JVS(26007) = -B(2300) -! JVS(26008) = Jac_FULL(4607,5256) - JVS(26008) = -B(2306) -! JVS(26009) = Jac_FULL(4607,5258) - JVS(26009) = 0 -! JVS(26010) = Jac_FULL(4608,2133) - JVS(26010) = B(5181) -! JVS(26011) = Jac_FULL(4608,4604) - JVS(26011) = B(571) -! JVS(26012) = Jac_FULL(4608,4606) - JVS(26012) = B(583) -! JVS(26013) = Jac_FULL(4608,4608) - JVS(26013) = -B(2310)-B(2312)-B(2314)-B(2316)-B(2318)-B(2319)-B(2320) -! JVS(26014) = Jac_FULL(4608,5250) - JVS(26014) = B(572)+B(584)+B(5182) -! JVS(26015) = Jac_FULL(4608,5252) - JVS(26015) = -B(2313)-B(2315) -! JVS(26016) = Jac_FULL(4608,5255) - JVS(26016) = -B(2311) -! JVS(26017) = Jac_FULL(4608,5256) - JVS(26017) = -B(2317) -! JVS(26018) = Jac_FULL(4608,5258) - JVS(26018) = 0 -! JVS(26019) = Jac_FULL(4609,1580) - JVS(26019) = B(809) -! JVS(26020) = Jac_FULL(4609,4609) - JVS(26020) = -B(3185)-B(3187)-B(3189)-B(3191)-B(3193)-B(3194)-B(3195) -! JVS(26021) = Jac_FULL(4609,5250) - JVS(26021) = B(810) -! JVS(26022) = Jac_FULL(4609,5252) - JVS(26022) = -B(3188)-B(3190) -! JVS(26023) = Jac_FULL(4609,5255) - JVS(26023) = -B(3186) -! JVS(26024) = Jac_FULL(4609,5256) - JVS(26024) = -B(3192) -! JVS(26025) = Jac_FULL(4610,3472) - JVS(26025) = B(6977)+B(6981) -! JVS(26026) = Jac_FULL(4610,4609) - JVS(26026) = 0 -! JVS(26027) = Jac_FULL(4610,4610) - JVS(26027) = -B(10794)-B(10796)-B(10798)-B(10800)-B(10802)-B(10804)-B(10805)-B(10806) -! JVS(26028) = Jac_FULL(4610,5250) - JVS(26028) = B(6982) -! JVS(26029) = Jac_FULL(4610,5252) - JVS(26029) = -B(10799)-B(10801) -! JVS(26030) = Jac_FULL(4610,5255) - JVS(26030) = -B(10795)-B(10797) -! JVS(26031) = Jac_FULL(4610,5256) - JVS(26031) = B(6978)-B(10803) -! JVS(26032) = Jac_FULL(4611,1064) - JVS(26032) = B(14009) -! JVS(26033) = Jac_FULL(4611,2757) - JVS(26033) = B(14014) -! JVS(26034) = Jac_FULL(4611,3900) - JVS(26034) = B(6985)+B(6987) -! JVS(26035) = Jac_FULL(4611,4609) - JVS(26035) = 0 -! JVS(26036) = Jac_FULL(4611,4611) - JVS(26036) = -B(10807)-B(10809)-B(10811)-B(10813)-B(10815)-B(10817)-B(10819)-B(10820) -! JVS(26037) = Jac_FULL(4611,5250) - JVS(26037) = B(6988)+B(14010) -! JVS(26038) = Jac_FULL(4611,5252) - JVS(26038) = -B(10814) -! JVS(26039) = Jac_FULL(4611,5253) - JVS(26039) = -B(10816) -! JVS(26040) = Jac_FULL(4611,5255) - JVS(26040) = -B(10808)-B(10810)-B(10812) -! JVS(26041) = Jac_FULL(4611,5256) - JVS(26041) = B(6986)-B(10818) -! JVS(26042) = Jac_FULL(4612,2976) - JVS(26042) = B(16759) -! JVS(26043) = Jac_FULL(4612,3619) - JVS(26043) = B(10766) -! JVS(26044) = Jac_FULL(4612,4219) - JVS(26044) = 0 -! JVS(26045) = Jac_FULL(4612,4368) - JVS(26045) = 0 -! JVS(26046) = Jac_FULL(4612,4609) - JVS(26046) = 0 -! JVS(26047) = Jac_FULL(4612,4611) - JVS(26047) = 0 -! JVS(26048) = Jac_FULL(4612,4612) - JVS(26048) = -B(13967)-B(13969)-B(13971)-B(13973)-B(13975)-B(13977)-B(13978)-B(13979) -! JVS(26049) = Jac_FULL(4612,4616) - JVS(26049) = 0 -! JVS(26050) = Jac_FULL(4612,5250) - JVS(26050) = B(10767)+B(16760) -! JVS(26051) = Jac_FULL(4612,5252) - JVS(26051) = -B(13972)-B(13974) -! JVS(26052) = Jac_FULL(4612,5253) - JVS(26052) = 0 -! JVS(26053) = Jac_FULL(4612,5255) - JVS(26053) = -B(13968)-B(13970) -! JVS(26054) = Jac_FULL(4612,5256) - JVS(26054) = -B(13976) -! JVS(26055) = Jac_FULL(4613,899) - JVS(26055) = B(18952) -! JVS(26056) = Jac_FULL(4613,2663) - JVS(26056) = B(18957) -! JVS(26057) = Jac_FULL(4613,4231) - JVS(26057) = B(13934)+B(13936) -! JVS(26058) = Jac_FULL(4613,4610) - JVS(26058) = 0 -! JVS(26059) = Jac_FULL(4613,4613) - JVS(26059) = -B(16728)-B(16730)-B(16732)-B(16734)-B(16736)-B(16738) -! JVS(26060) = Jac_FULL(4613,4616) - JVS(26060) = 0 -! JVS(26061) = Jac_FULL(4613,5250) - JVS(26061) = B(13937)+B(18953) -! JVS(26062) = Jac_FULL(4613,5252) - JVS(26062) = -B(16733) -! JVS(26063) = Jac_FULL(4613,5253) - JVS(26063) = -B(16735) -! JVS(26064) = Jac_FULL(4613,5255) - JVS(26064) = -B(16729)-B(16731) -! JVS(26065) = Jac_FULL(4613,5256) - JVS(26065) = B(13935)-B(16737) -! JVS(26066) = Jac_FULL(4614,899) - JVS(26066) = B(18954) -! JVS(26067) = Jac_FULL(4614,2810) - JVS(26067) = B(18960) -! JVS(26068) = Jac_FULL(4614,4231) - JVS(26068) = B(13938) -! JVS(26069) = Jac_FULL(4614,4610) - JVS(26069) = 0 -! JVS(26070) = Jac_FULL(4614,4613) - JVS(26070) = B(16730)+B(16732)+B(16736)+B(16738) -! JVS(26071) = Jac_FULL(4614,4614) - JVS(26071) = -B(16739)-B(16741)-B(16743)-B(16745)-B(16747)-B(16749)-B(16750)-B(16751) -! JVS(26072) = Jac_FULL(4614,4616) - JVS(26072) = 0 -! JVS(26073) = Jac_FULL(4614,5250) - JVS(26073) = B(18961) -! JVS(26074) = Jac_FULL(4614,5252) - JVS(26074) = B(16733)-B(16744)-B(16746) -! JVS(26075) = Jac_FULL(4614,5253) - JVS(26075) = 0 -! JVS(26076) = Jac_FULL(4614,5255) - JVS(26076) = B(16731)-B(16740)-B(16742) -! JVS(26077) = Jac_FULL(4614,5256) - JVS(26077) = B(16737)-B(16748) -! JVS(26078) = Jac_FULL(4615,4615) - JVS(26078) = -B(10550)-B(10551)-B(10553)-B(10555)-B(10557) -! JVS(26079) = Jac_FULL(4615,5219) - JVS(26079) = B(6789) -! JVS(26080) = Jac_FULL(4615,5250) - JVS(26080) = -B(10556)-B(10558) -! JVS(26081) = Jac_FULL(4615,5252) - JVS(26081) = B(6790) -! JVS(26082) = Jac_FULL(4615,5258) - JVS(26082) = -B(10552)-B(10554) -! JVS(26083) = Jac_FULL(4616,1580) - JVS(26083) = B(805)+B(807) -! JVS(26084) = Jac_FULL(4616,4616) - JVS(26084) = -B(3172)-B(3174)-B(3176)-B(3178)-B(3180)-B(3182)-B(3183)-B(3184) -! JVS(26085) = Jac_FULL(4616,5250) - JVS(26085) = B(808) -! JVS(26086) = Jac_FULL(4616,5252) - JVS(26086) = -B(3177)-B(3179) -! JVS(26087) = Jac_FULL(4616,5255) - JVS(26087) = -B(3173)-B(3175) -! JVS(26088) = Jac_FULL(4616,5256) - JVS(26088) = B(806)-B(3181) -! JVS(26089) = Jac_FULL(4617,4617) - JVS(26089) = -B(10572)-B(10574)-B(10576)-B(10578)-B(10579) -! JVS(26090) = Jac_FULL(4617,5204) - JVS(26090) = B(6808) -! JVS(26091) = Jac_FULL(4617,5252) - JVS(26091) = -B(10575) -! JVS(26092) = Jac_FULL(4617,5255) - JVS(26092) = -B(10573) -! JVS(26093) = Jac_FULL(4617,5256) - JVS(26093) = -B(10577) -! JVS(26094) = Jac_FULL(4618,2310) - JVS(26094) = B(13278)+B(13280) -! JVS(26095) = Jac_FULL(4618,2844) - JVS(26095) = B(17621) -! JVS(26096) = Jac_FULL(4618,2893) - JVS(26096) = B(7055) -! JVS(26097) = Jac_FULL(4618,3035) - JVS(26097) = B(7045) -! JVS(26098) = Jac_FULL(4618,3419) - JVS(26098) = B(13276) -! JVS(26099) = Jac_FULL(4618,3441) - JVS(26099) = B(13275) -! JVS(26100) = Jac_FULL(4618,3656) - JVS(26100) = B(5000) -! JVS(26101) = Jac_FULL(4618,3666) - JVS(26101) = 0 -! JVS(26102) = Jac_FULL(4618,3735) - JVS(26102) = B(3772) -! JVS(26103) = Jac_FULL(4618,4152) - JVS(26103) = 0 -! JVS(26104) = Jac_FULL(4618,4177) - JVS(26104) = B(6200)+B(6204) -! JVS(26105) = Jac_FULL(4618,4476) - JVS(26105) = 0 -! JVS(26106) = Jac_FULL(4618,4517) - JVS(26106) = 0 -! JVS(26107) = Jac_FULL(4618,4618) - JVS(26107) = -B(7052)-B(7054) -! JVS(26108) = Jac_FULL(4618,4714) - JVS(26108) = 0 -! JVS(26109) = Jac_FULL(4618,4767) - JVS(26109) = 0 -! JVS(26110) = Jac_FULL(4618,4769) - JVS(26110) = 0 -! JVS(26111) = Jac_FULL(4618,4782) - JVS(26111) = 0 -! JVS(26112) = Jac_FULL(4618,4852) - JVS(26112) = B(3262) -! JVS(26113) = Jac_FULL(4618,4858) - JVS(26113) = B(3253) -! JVS(26114) = Jac_FULL(4618,4880) - JVS(26114) = 0 -! JVS(26115) = Jac_FULL(4618,5250) - JVS(26115) = B(3773)+B(5001)+B(7046)-B(7053)+B(7056)+B(13279)+B(17622) -! JVS(26116) = Jac_FULL(4618,5252) - JVS(26116) = 0 -! JVS(26117) = Jac_FULL(4618,5253) - JVS(26117) = 0 -! JVS(26118) = Jac_FULL(4618,5255) - JVS(26118) = 0 -! JVS(26119) = Jac_FULL(4618,5256) - JVS(26119) = 0 -! JVS(26120) = Jac_FULL(4618,5258) - JVS(26120) = 0 -! JVS(26121) = Jac_FULL(4619,143) - JVS(26121) = B(9404) -! JVS(26122) = Jac_FULL(4619,1023) - JVS(26122) = B(9401) -! JVS(26123) = Jac_FULL(4619,1672) - JVS(26123) = B(9387) -! JVS(26124) = Jac_FULL(4619,3319) - JVS(26124) = B(9383) -! JVS(26125) = Jac_FULL(4619,3554) - JVS(26125) = B(5779)+B(5781)+B(5783) -! JVS(26126) = Jac_FULL(4619,3799) - JVS(26126) = 0 -! JVS(26127) = Jac_FULL(4619,4619) - JVS(26127) = -B(9402)-B(9403) -! JVS(26128) = Jac_FULL(4619,5250) - JVS(26128) = B(9405) -! JVS(26129) = Jac_FULL(4619,5252) - JVS(26129) = B(5780) -! JVS(26130) = Jac_FULL(4619,5255) - JVS(26130) = 0 -! JVS(26131) = Jac_FULL(4619,5256) - JVS(26131) = B(5782) -! JVS(26132) = Jac_FULL(4620,1879) - JVS(26132) = B(22236) -! JVS(26133) = Jac_FULL(4620,2026) - JVS(26133) = B(22244) -! JVS(26134) = Jac_FULL(4620,2721) - JVS(26134) = B(22241) -! JVS(26135) = Jac_FULL(4620,3673) - JVS(26135) = B(20108) -! JVS(26136) = Jac_FULL(4620,4381) - JVS(26136) = 0 -! JVS(26137) = Jac_FULL(4620,4619) - JVS(26137) = 0 -! JVS(26138) = Jac_FULL(4620,4620) - JVS(26138) = -B(21412)-B(21414)-B(21416)-B(21418)-B(21420)-B(21422) -! JVS(26139) = Jac_FULL(4620,4744) - JVS(26139) = 0 -! JVS(26140) = Jac_FULL(4620,5250) - JVS(26140) = B(22237)+B(22245) -! JVS(26141) = Jac_FULL(4620,5252) - JVS(26141) = -B(21417) -! JVS(26142) = Jac_FULL(4620,5253) - JVS(26142) = -B(21419) -! JVS(26143) = Jac_FULL(4620,5255) - JVS(26143) = -B(21413)-B(21415) -! JVS(26144) = Jac_FULL(4620,5256) - JVS(26144) = -B(21421) -! JVS(26145) = Jac_FULL(4621,771) - JVS(26145) = B(12485) -! JVS(26146) = Jac_FULL(4621,4621) - JVS(26146) = -B(15588)-B(15590)-B(15592)-B(15594)-B(15596)-B(15597) -! JVS(26147) = Jac_FULL(4621,4952) - JVS(26147) = 0 -! JVS(26148) = Jac_FULL(4621,5251) - JVS(26148) = -B(15589) -! JVS(26149) = Jac_FULL(4621,5252) - JVS(26149) = -B(15591) -! JVS(26150) = Jac_FULL(4621,5253) - JVS(26150) = -B(15593) -! JVS(26151) = Jac_FULL(4621,5254) - JVS(26151) = -B(15595) -! JVS(26152) = Jac_FULL(4621,5258) - JVS(26152) = 0 -! JVS(26153) = Jac_FULL(4622,773) - JVS(26153) = B(16034) -! JVS(26154) = Jac_FULL(4622,787) - JVS(26154) = B(12863) -! JVS(26155) = Jac_FULL(4622,1095) - JVS(26155) = B(6598) -! JVS(26156) = Jac_FULL(4622,1840) - JVS(26156) = 0 -! JVS(26157) = Jac_FULL(4622,1878) - JVS(26157) = B(9494) -! JVS(26158) = Jac_FULL(4622,2204) - JVS(26158) = 0 -! JVS(26159) = Jac_FULL(4622,2295) - JVS(26159) = B(12866) -! JVS(26160) = Jac_FULL(4622,2758) - JVS(26160) = B(18356) -! JVS(26161) = Jac_FULL(4622,3317) - JVS(26161) = B(6605) -! JVS(26162) = Jac_FULL(4622,3368) - JVS(26162) = B(5764) -! JVS(26163) = Jac_FULL(4622,3439) - JVS(26163) = 0 -! JVS(26164) = Jac_FULL(4622,3440) - JVS(26164) = 0 -! JVS(26165) = Jac_FULL(4622,3543) - JVS(26165) = B(16037)+B(16039)+B(16041) -! JVS(26166) = Jac_FULL(4622,3807) - JVS(26166) = 0 -! JVS(26167) = Jac_FULL(4622,4030) - JVS(26167) = 0 -! JVS(26168) = Jac_FULL(4622,4031) - JVS(26168) = 0 -! JVS(26169) = Jac_FULL(4622,4068) - JVS(26169) = 0 -! JVS(26170) = Jac_FULL(4622,4069) - JVS(26170) = 0 -! JVS(26171) = Jac_FULL(4622,4622) - JVS(26171) = -B(3007)-B(3009)-B(3011)-B(3013)-B(3015)-B(3017)-B(3019)-B(3020) -! JVS(26172) = Jac_FULL(4622,4964) - JVS(26172) = B(757)+B(759)+B(761) -! JVS(26173) = Jac_FULL(4622,5250) - JVS(26173) = B(762)+B(6599)+B(16040) -! JVS(26174) = Jac_FULL(4622,5252) - JVS(26174) = -B(3014) -! JVS(26175) = Jac_FULL(4622,5253) - JVS(26175) = -B(3016) -! JVS(26176) = Jac_FULL(4622,5255) - JVS(26176) = -B(3008)-B(3010)-B(3012) -! JVS(26177) = Jac_FULL(4622,5256) - JVS(26177) = B(760)-B(3018)+B(16038) -! JVS(26178) = Jac_FULL(4623,1448) - JVS(26178) = B(17551) -! JVS(26179) = Jac_FULL(4623,2843) - JVS(26179) = B(17553) -! JVS(26180) = Jac_FULL(4623,4623) - JVS(26180) = -B(14978)-B(14980)-B(14982)-B(14984)-B(14986)-B(14988)-B(14990)-B(14991) -! JVS(26181) = Jac_FULL(4623,5115) - JVS(26181) = B(11785)+B(11789) -! JVS(26182) = Jac_FULL(4623,5250) - JVS(26182) = B(11790)+B(17552) -! JVS(26183) = Jac_FULL(4623,5252) - JVS(26183) = -B(14985) -! JVS(26184) = Jac_FULL(4623,5253) - JVS(26184) = -B(14987) -! JVS(26185) = Jac_FULL(4623,5255) - JVS(26185) = -B(14979)-B(14981)-B(14983) -! JVS(26186) = Jac_FULL(4623,5256) - JVS(26186) = B(11786)-B(14989) -! JVS(26187) = Jac_FULL(4624,69) - JVS(26187) = B(20750) -! JVS(26188) = Jac_FULL(4624,472) - JVS(26188) = B(20751)+B(20753) -! JVS(26189) = Jac_FULL(4624,508) - JVS(26189) = 0 -! JVS(26190) = Jac_FULL(4624,849) - JVS(26190) = B(22398) -! JVS(26191) = Jac_FULL(4624,2564) - JVS(26191) = B(22412) -! JVS(26192) = Jac_FULL(4624,3710) - JVS(26192) = 0 -! JVS(26193) = Jac_FULL(4624,3720) - JVS(26193) = 0 -! JVS(26194) = Jac_FULL(4624,3852) - JVS(26194) = 0 -! JVS(26195) = Jac_FULL(4624,4624) - JVS(26195) = -B(21776)-B(21778)-B(21780)-B(21782)-B(21784)-B(21786)-B(21788)-B(21789) -! JVS(26196) = Jac_FULL(4624,5215) - JVS(26196) = 0 -! JVS(26197) = Jac_FULL(4624,5250) - JVS(26197) = B(20752)+B(22399) -! JVS(26198) = Jac_FULL(4624,5252) - JVS(26198) = -B(21783) -! JVS(26199) = Jac_FULL(4624,5253) - JVS(26199) = -B(21785) -! JVS(26200) = Jac_FULL(4624,5255) - JVS(26200) = -B(21777)-B(21779)-B(21781) -! JVS(26201) = Jac_FULL(4624,5256) - JVS(26201) = -B(21787) -! JVS(26202) = Jac_FULL(4625,112) - JVS(26202) = B(22554) -! JVS(26203) = Jac_FULL(4625,3495) - JVS(26203) = B(23355) -! JVS(26204) = Jac_FULL(4625,4625) - JVS(26204) = -B(22966)-B(22968)-B(22970)-B(22972)-B(22973) -! JVS(26205) = Jac_FULL(4625,5189) - JVS(26205) = 0 -! JVS(26206) = Jac_FULL(4625,5250) - JVS(26206) = B(23356) -! JVS(26207) = Jac_FULL(4625,5252) - JVS(26207) = -B(22969) -! JVS(26208) = Jac_FULL(4625,5255) - JVS(26208) = -B(22967) -! JVS(26209) = Jac_FULL(4625,5256) - JVS(26209) = -B(22971) -! JVS(26210) = Jac_FULL(4625,5258) - JVS(26210) = 0 -! JVS(26211) = Jac_FULL(4626,837) - JVS(26211) = B(8857) -! JVS(26212) = Jac_FULL(4626,3060) - JVS(26212) = B(8862) -! JVS(26213) = Jac_FULL(4626,4010) - JVS(26213) = B(2407)+B(2411) -! JVS(26214) = Jac_FULL(4626,4626) - JVS(26214) = -B(5345)-B(5347)-B(5349)-B(5351)-B(5353)-B(5355)-B(5357)-B(5358) -! JVS(26215) = Jac_FULL(4626,5250) - JVS(26215) = B(2412)+B(8858) -! JVS(26216) = Jac_FULL(4626,5252) - JVS(26216) = -B(5352) -! JVS(26217) = Jac_FULL(4626,5253) - JVS(26217) = -B(5354) -! JVS(26218) = Jac_FULL(4626,5255) - JVS(26218) = -B(5346)-B(5348)-B(5350) -! JVS(26219) = Jac_FULL(4626,5256) - JVS(26219) = B(2408)-B(5356) -! JVS(26220) = Jac_FULL(4626,5258) - JVS(26220) = 0 -! JVS(26221) = Jac_FULL(4627,1498) - JVS(26221) = B(14165) -! JVS(26222) = Jac_FULL(4627,2560) - JVS(26222) = B(14170) -! JVS(26223) = Jac_FULL(4627,4627) - JVS(26223) = -B(10964)-B(10966)-B(10968)-B(10970)-B(10972)-B(10974) -! JVS(26224) = Jac_FULL(4627,4717) - JVS(26224) = B(7177)+B(7179) -! JVS(26225) = Jac_FULL(4627,5250) - JVS(26225) = B(7180)+B(14166) -! JVS(26226) = Jac_FULL(4627,5252) - JVS(26226) = -B(10969) -! JVS(26227) = Jac_FULL(4627,5253) - JVS(26227) = -B(10971) -! JVS(26228) = Jac_FULL(4627,5255) - JVS(26228) = -B(10965)-B(10967) -! JVS(26229) = Jac_FULL(4627,5256) - JVS(26229) = B(7178)-B(10973) -! JVS(26230) = Jac_FULL(4628,1176) - JVS(26230) = B(13462) -! JVS(26231) = Jac_FULL(4628,2630) - JVS(26231) = B(13467) -! JVS(26232) = Jac_FULL(4628,4628) - JVS(26232) = -B(10257)-B(10259)-B(10261)-B(10263)-B(10265)-B(10267)-B(10269)-B(10270) -! JVS(26233) = Jac_FULL(4628,4933) - JVS(26233) = B(6556)+B(6558) -! JVS(26234) = Jac_FULL(4628,5250) - JVS(26234) = B(6559)+B(13463) -! JVS(26235) = Jac_FULL(4628,5252) - JVS(26235) = -B(10264) -! JVS(26236) = Jac_FULL(4628,5253) - JVS(26236) = -B(10266) -! JVS(26237) = Jac_FULL(4628,5255) - JVS(26237) = -B(10258)-B(10260)-B(10262) -! JVS(26238) = Jac_FULL(4628,5256) - JVS(26238) = B(6557)-B(10268) -! JVS(26239) = Jac_FULL(4629,845) - JVS(26239) = B(17626) -! JVS(26240) = Jac_FULL(4629,2848) - JVS(26240) = B(17628) -! JVS(26241) = Jac_FULL(4629,4110) - JVS(26241) = B(11860)+B(11864) -! JVS(26242) = Jac_FULL(4629,4629) - JVS(26242) = -B(15054)-B(15056)-B(15058)-B(15060)-B(15062)-B(15064)-B(15066)-B(15067) -! JVS(26243) = Jac_FULL(4629,5056) - JVS(26243) = 0 -! JVS(26244) = Jac_FULL(4629,5250) - JVS(26244) = B(11865)+B(17627) -! JVS(26245) = Jac_FULL(4629,5252) - JVS(26245) = -B(15061) -! JVS(26246) = Jac_FULL(4629,5253) - JVS(26246) = -B(15063) -! JVS(26247) = Jac_FULL(4629,5255) - JVS(26247) = -B(15055)-B(15057)-B(15059) -! JVS(26248) = Jac_FULL(4629,5256) - JVS(26248) = B(11861)-B(15065) -! JVS(26249) = Jac_FULL(4630,3304) - JVS(26249) = B(9695) -! JVS(26250) = Jac_FULL(4630,3567) - JVS(26250) = B(9692) -! JVS(26251) = Jac_FULL(4630,3622) - JVS(26251) = B(2712)+B(2717) -! JVS(26252) = Jac_FULL(4630,4630) - JVS(26252) = -B(5990)-B(5992)-B(5994)-B(5995) -! JVS(26253) = Jac_FULL(4630,4971) - JVS(26253) = 0 -! JVS(26254) = Jac_FULL(4630,5250) - JVS(26254) = -B(5993) -! JVS(26255) = Jac_FULL(4630,5252) - JVS(26255) = 0 -! JVS(26256) = Jac_FULL(4630,5255) - JVS(26256) = 0 -! JVS(26257) = Jac_FULL(4630,5256) - JVS(26257) = -B(5991) -! JVS(26258) = Jac_FULL(4630,5258) - JVS(26258) = B(2713) -! JVS(26259) = Jac_FULL(4631,77) - JVS(26259) = B(16798) -! JVS(26260) = Jac_FULL(4631,954) - JVS(26260) = B(20590) -! JVS(26261) = Jac_FULL(4631,2932) - JVS(26261) = 0 -! JVS(26262) = Jac_FULL(4631,3053) - JVS(26262) = B(20595) -! JVS(26263) = Jac_FULL(4631,3473) - JVS(26263) = 0 -! JVS(26264) = Jac_FULL(4631,4365) - JVS(26264) = 0 -! JVS(26265) = Jac_FULL(4631,4631) - JVS(26265) = -B(19008)-B(19010)-B(19012)-B(19014)-B(19016)-B(19018) -! JVS(26266) = Jac_FULL(4631,5186) - JVS(26266) = 0 -! JVS(26267) = Jac_FULL(4631,5250) - JVS(26267) = B(16799)+B(20591) -! JVS(26268) = Jac_FULL(4631,5252) - JVS(26268) = -B(19013) -! JVS(26269) = Jac_FULL(4631,5253) - JVS(26269) = -B(19015) -! JVS(26270) = Jac_FULL(4631,5255) - JVS(26270) = -B(19009)-B(19011) -! JVS(26271) = Jac_FULL(4631,5256) - JVS(26271) = -B(19017) -! JVS(26272) = Jac_FULL(4632,857) - JVS(26272) = B(18629) -! JVS(26273) = Jac_FULL(4632,3101) - JVS(26273) = B(10027)+B(10029) -! JVS(26274) = Jac_FULL(4632,4061) - JVS(26274) = B(16316)+B(16318)+B(16320) -! JVS(26275) = Jac_FULL(4632,4437) - JVS(26275) = 0 -! JVS(26276) = Jac_FULL(4632,4632) - JVS(26276) = -B(13309)-B(13311) -! JVS(26277) = Jac_FULL(4632,5250) - JVS(26277) = B(10030) -! JVS(26278) = Jac_FULL(4632,5252) - JVS(26278) = B(16317) -! JVS(26279) = Jac_FULL(4632,5253) - JVS(26279) = -B(13310) -! JVS(26280) = Jac_FULL(4632,5255) - JVS(26280) = 0 -! JVS(26281) = Jac_FULL(4632,5256) - JVS(26281) = B(10028)+B(16319) -! JVS(26282) = Jac_FULL(4632,5258) - JVS(26282) = -B(13312) -! JVS(26283) = Jac_FULL(4633,1254) - JVS(26283) = B(10069) -! JVS(26284) = Jac_FULL(4633,2632) - JVS(26284) = B(10074) -! JVS(26285) = Jac_FULL(4633,4272) - JVS(26285) = B(2887)+B(2891) -! JVS(26286) = Jac_FULL(4633,4633) - JVS(26286) = -B(6360)-B(6362)-B(6364)-B(6366)-B(6368)-B(6370)-B(6372)-B(6373) -! JVS(26287) = Jac_FULL(4633,5250) - JVS(26287) = B(2892)+B(10070) -! JVS(26288) = Jac_FULL(4633,5252) - JVS(26288) = -B(6367) -! JVS(26289) = Jac_FULL(4633,5253) - JVS(26289) = -B(6369) -! JVS(26290) = Jac_FULL(4633,5255) - JVS(26290) = -B(6361)-B(6363)-B(6365) -! JVS(26291) = Jac_FULL(4633,5256) - JVS(26291) = B(2888)-B(6371) -! JVS(26292) = Jac_FULL(4633,5258) - JVS(26292) = 0 -! JVS(26293) = Jac_FULL(4634,1516) - JVS(26293) = B(7641) -! JVS(26294) = Jac_FULL(4634,2882) - JVS(26294) = B(7643) -! JVS(26295) = Jac_FULL(4634,4634) - JVS(26295) = -B(3775)-B(3777)-B(3779)-B(3781)-B(3783)-B(3785)-B(3787)-B(3788) -! JVS(26296) = Jac_FULL(4634,5042) - JVS(26296) = B(1055)+B(1057) -! JVS(26297) = Jac_FULL(4634,5250) - JVS(26297) = B(1058)+B(7642) -! JVS(26298) = Jac_FULL(4634,5252) - JVS(26298) = -B(3782) -! JVS(26299) = Jac_FULL(4634,5253) - JVS(26299) = -B(3784) -! JVS(26300) = Jac_FULL(4634,5255) - JVS(26300) = -B(3776)-B(3778)-B(3780) -! JVS(26301) = Jac_FULL(4634,5256) - JVS(26301) = B(1056)-B(3786) -! JVS(26302) = Jac_FULL(4635,910) - JVS(26302) = B(9562) -! JVS(26303) = Jac_FULL(4635,2915) - JVS(26303) = B(9567) -! JVS(26304) = Jac_FULL(4635,4093) - JVS(26304) = B(2668)+B(2672) -! JVS(26305) = Jac_FULL(4635,4635) - JVS(26305) = -B(5894)-B(5896)-B(5898)-B(5900)-B(5902)-B(5904)-B(5906)-B(5907) -! JVS(26306) = Jac_FULL(4635,5250) - JVS(26306) = B(2673)+B(9563) -! JVS(26307) = Jac_FULL(4635,5252) - JVS(26307) = -B(5901) -! JVS(26308) = Jac_FULL(4635,5253) - JVS(26308) = -B(5903) -! JVS(26309) = Jac_FULL(4635,5255) - JVS(26309) = -B(5895)-B(5897)-B(5899) -! JVS(26310) = Jac_FULL(4635,5256) - JVS(26310) = B(2669)-B(5905) -! JVS(26311) = Jac_FULL(4635,5258) - JVS(26311) = 0 -! JVS(26312) = Jac_FULL(4636,936) - JVS(26312) = B(23349) -! JVS(26313) = Jac_FULL(4636,2777) - JVS(26313) = B(23354) -! JVS(26314) = Jac_FULL(4636,4636) - JVS(26314) = -B(22934)-B(22936)-B(22938)-B(22940)-B(22942)-B(22944)-B(22946)-B(22947) -! JVS(26315) = Jac_FULL(4636,5177) - JVS(26315) = B(22519)+B(22521) -! JVS(26316) = Jac_FULL(4636,5250) - JVS(26316) = B(22522)+B(23350) -! JVS(26317) = Jac_FULL(4636,5252) - JVS(26317) = -B(22941) -! JVS(26318) = Jac_FULL(4636,5253) - JVS(26318) = -B(22943) -! JVS(26319) = Jac_FULL(4636,5255) - JVS(26319) = -B(22935)-B(22937)-B(22939) -! JVS(26320) = Jac_FULL(4636,5256) - JVS(26320) = B(22520)-B(22945) -! JVS(26321) = Jac_FULL(4637,3805) - JVS(26321) = B(5797) -! JVS(26322) = Jac_FULL(4637,4637) - JVS(26322) = -B(9428)-B(9430)-B(9432) -! JVS(26323) = Jac_FULL(4637,5066) - JVS(26323) = B(9427) -! JVS(26324) = Jac_FULL(4637,5250) - JVS(26324) = -B(9433) -! JVS(26325) = Jac_FULL(4637,5252) - JVS(26325) = 0 -! JVS(26326) = Jac_FULL(4637,5255) - JVS(26326) = 0 -! JVS(26327) = Jac_FULL(4637,5256) - JVS(26327) = -B(9429) -! JVS(26328) = Jac_FULL(4637,5258) - JVS(26328) = -B(9431) -! JVS(26329) = Jac_FULL(4638,1247) - JVS(26329) = B(20904) -! JVS(26330) = Jac_FULL(4638,1605) - JVS(26330) = B(17106) -! JVS(26331) = Jac_FULL(4638,2597) - JVS(26331) = B(20922) -! JVS(26332) = Jac_FULL(4638,4638) - JVS(26332) = -B(19340)-B(19342)-B(19344)-B(19346)-B(19348)-B(19350)-B(19352)-B(19353) -! JVS(26333) = Jac_FULL(4638,4953) - JVS(26333) = 0 -! JVS(26334) = Jac_FULL(4638,5250) - JVS(26334) = B(20905) -! JVS(26335) = Jac_FULL(4638,5252) - JVS(26335) = -B(19347) -! JVS(26336) = Jac_FULL(4638,5253) - JVS(26336) = -B(19349) -! JVS(26337) = Jac_FULL(4638,5255) - JVS(26337) = -B(19341)-B(19343)-B(19345) -! JVS(26338) = Jac_FULL(4638,5256) - JVS(26338) = -B(19351) -! JVS(26339) = Jac_FULL(4639,1361) - JVS(26339) = B(16162) -! JVS(26340) = Jac_FULL(4639,3482) - JVS(26340) = B(5967)+B(5971) -! JVS(26341) = Jac_FULL(4639,4023) - JVS(26341) = B(13076)+B(13078)+B(13080) -! JVS(26342) = Jac_FULL(4639,4639) - JVS(26342) = -B(9642)-B(9644) -! JVS(26343) = Jac_FULL(4639,5250) - JVS(26343) = B(5972) -! JVS(26344) = Jac_FULL(4639,5252) - JVS(26344) = B(13077) -! JVS(26345) = Jac_FULL(4639,5253) - JVS(26345) = -B(9643) -! JVS(26346) = Jac_FULL(4639,5255) - JVS(26346) = 0 -! JVS(26347) = Jac_FULL(4639,5256) - JVS(26347) = B(5968)+B(13079) -! JVS(26348) = Jac_FULL(4639,5258) - JVS(26348) = -B(9645) -! JVS(26349) = Jac_FULL(4640,1048) - JVS(26349) = B(11591) -! JVS(26350) = Jac_FULL(4640,1097) - JVS(26350) = B(11586)+B(11588) -! JVS(26351) = Jac_FULL(4640,3995) - JVS(26351) = B(4175) -! JVS(26352) = Jac_FULL(4640,4640) - JVS(26352) = -B(7833)-B(7835)-B(7837)-B(7839)-B(7840)-B(7841) -! JVS(26353) = Jac_FULL(4640,4915) - JVS(26353) = B(7819)+B(7825)+B(7829)+B(7831) -! JVS(26354) = Jac_FULL(4640,5203) - JVS(26354) = 0 -! JVS(26355) = Jac_FULL(4640,5250) - JVS(26355) = B(11587) -! JVS(26356) = Jac_FULL(4640,5252) - JVS(26356) = B(7826)-B(7836) -! JVS(26357) = Jac_FULL(4640,5255) - JVS(26357) = B(7820)-B(7834) -! JVS(26358) = Jac_FULL(4640,5256) - JVS(26358) = B(7830)-B(7838) -! JVS(26359) = Jac_FULL(4641,921) - JVS(26359) = B(9330) -! JVS(26360) = Jac_FULL(4641,2640) - JVS(26360) = B(9335) -! JVS(26361) = Jac_FULL(4641,4032) - JVS(26361) = B(2581)+B(2585) -! JVS(26362) = Jac_FULL(4641,4641) - JVS(26362) = -B(5715)-B(5717)-B(5719)-B(5721)-B(5723)-B(5725)-B(5727)-B(5728) -! JVS(26363) = Jac_FULL(4641,5250) - JVS(26363) = B(2586)+B(9331) -! JVS(26364) = Jac_FULL(4641,5252) - JVS(26364) = -B(5722) -! JVS(26365) = Jac_FULL(4641,5253) - JVS(26365) = -B(5724) -! JVS(26366) = Jac_FULL(4641,5255) - JVS(26366) = -B(5716)-B(5718)-B(5720) -! JVS(26367) = Jac_FULL(4641,5256) - JVS(26367) = B(2582)-B(5726) -! JVS(26368) = Jac_FULL(4641,5258) - JVS(26368) = 0 -! JVS(26369) = Jac_FULL(4642,988) - JVS(26369) = B(19636) -! JVS(26370) = Jac_FULL(4642,2787) - JVS(26370) = B(19638) -! JVS(26371) = Jac_FULL(4642,3471) - JVS(26371) = B(15091)+B(15093) -! JVS(26372) = Jac_FULL(4642,4642) - JVS(26372) = -B(17659)-B(17661)-B(17663)-B(17665)-B(17667)-B(17669)-B(17671)-B(17672) -! JVS(26373) = Jac_FULL(4642,5064) - JVS(26373) = 0 -! JVS(26374) = Jac_FULL(4642,5250) - JVS(26374) = B(15094)+B(19637) -! JVS(26375) = Jac_FULL(4642,5252) - JVS(26375) = -B(17666) -! JVS(26376) = Jac_FULL(4642,5253) - JVS(26376) = -B(17668) -! JVS(26377) = Jac_FULL(4642,5255) - JVS(26377) = -B(17660)-B(17662)-B(17664) -! JVS(26378) = Jac_FULL(4642,5256) - JVS(26378) = B(15092)-B(17670) -! JVS(26379) = Jac_FULL(4643,888) - JVS(26379) = B(20187) -! JVS(26380) = Jac_FULL(4643,3137) - JVS(26380) = B(16214) -! JVS(26381) = Jac_FULL(4643,4643) - JVS(26381) = -B(18530)-B(18532)-B(18534)-B(18536) -! JVS(26382) = Jac_FULL(4643,4788) - JVS(26382) = 0 -! JVS(26383) = Jac_FULL(4643,5250) - JVS(26383) = B(20188) -! JVS(26384) = Jac_FULL(4643,5252) - JVS(26384) = -B(18533) -! JVS(26385) = Jac_FULL(4643,5253) - JVS(26385) = 0 -! JVS(26386) = Jac_FULL(4643,5255) - JVS(26386) = -B(18531) -! JVS(26387) = Jac_FULL(4643,5256) - JVS(26387) = B(16215)-B(18535) -! JVS(26388) = Jac_FULL(4644,1643) - JVS(26388) = B(21867) -! JVS(26389) = Jac_FULL(4644,1731) - JVS(26389) = 0 -! JVS(26390) = Jac_FULL(4644,2017) - JVS(26390) = 0 -! JVS(26391) = Jac_FULL(4644,2445) - JVS(26391) = B(22923) -! JVS(26392) = Jac_FULL(4644,3338) - JVS(26392) = 0 -! JVS(26393) = Jac_FULL(4644,3839) - JVS(26393) = 0 -! JVS(26394) = Jac_FULL(4644,4150) - JVS(26394) = 0 -! JVS(26395) = Jac_FULL(4644,4567) - JVS(26395) = 0 -! JVS(26396) = Jac_FULL(4644,4644) - JVS(26396) = -B(22482)-B(22484)-B(22486)-B(22488) -! JVS(26397) = Jac_FULL(4644,5196) - JVS(26397) = 0 -! JVS(26398) = Jac_FULL(4644,5236) - JVS(26398) = 0 -! JVS(26399) = Jac_FULL(4644,5250) - JVS(26399) = B(21868)+B(22924) -! JVS(26400) = Jac_FULL(4644,5252) - JVS(26400) = -B(22485) -! JVS(26401) = Jac_FULL(4644,5255) - JVS(26401) = -B(22483) -! JVS(26402) = Jac_FULL(4644,5256) - JVS(26402) = -B(22487) -! JVS(26403) = Jac_FULL(4645,1697) - JVS(26403) = B(94) -! JVS(26404) = Jac_FULL(4645,1886) - JVS(26404) = B(3673) -! JVS(26405) = Jac_FULL(4645,4645) - JVS(26405) = -B(965)-B(967)-B(969)-B(971)-B(973)-B(974)-B(975) -! JVS(26406) = Jac_FULL(4645,5051) - JVS(26406) = B(451) -! JVS(26407) = Jac_FULL(4645,5208) - JVS(26407) = 0 -! JVS(26408) = Jac_FULL(4645,5250) - JVS(26408) = B(95)+B(452)+B(3674) -! JVS(26409) = Jac_FULL(4645,5252) - JVS(26409) = -B(968)-B(970) -! JVS(26410) = Jac_FULL(4645,5255) - JVS(26410) = -B(966) -! JVS(26411) = Jac_FULL(4645,5256) - JVS(26411) = -B(972) -! JVS(26412) = Jac_FULL(4646,4300) - JVS(26412) = B(7121) -! JVS(26413) = Jac_FULL(4646,4646) - JVS(26413) = -B(10921)-B(10923)-B(10925)-B(10927)-B(10929)-B(10930)-B(10931) -! JVS(26414) = Jac_FULL(4646,4784) - JVS(26414) = 0 -! JVS(26415) = Jac_FULL(4646,5109) - JVS(26415) = 0 -! JVS(26416) = Jac_FULL(4646,5250) - JVS(26416) = B(7122) -! JVS(26417) = Jac_FULL(4646,5252) - JVS(26417) = -B(10924)-B(10926) -! JVS(26418) = Jac_FULL(4646,5255) - JVS(26418) = -B(10922) -! JVS(26419) = Jac_FULL(4646,5256) - JVS(26419) = -B(10928) -! JVS(26420) = Jac_FULL(4647,1577) - JVS(26420) = B(138) -! JVS(26421) = Jac_FULL(4647,3444) - JVS(26421) = B(3913) -! JVS(26422) = Jac_FULL(4647,4474) - JVS(26422) = B(547) -! JVS(26423) = Jac_FULL(4647,4647) - JVS(26423) = -B(1151)-B(1153)-B(1155)-B(1157)-B(1159)-B(1160) -! JVS(26424) = Jac_FULL(4647,4901) - JVS(26424) = 0 -! JVS(26425) = Jac_FULL(4647,5250) - JVS(26425) = B(139)+B(548)+B(3914) -! JVS(26426) = Jac_FULL(4647,5252) - JVS(26426) = -B(1154)-B(1156) -! JVS(26427) = Jac_FULL(4647,5255) - JVS(26427) = -B(1152) -! JVS(26428) = Jac_FULL(4647,5256) - JVS(26428) = -B(1158) -! JVS(26429) = Jac_FULL(4647,5258) - JVS(26429) = 0 -! JVS(26430) = Jac_FULL(4648,44) - JVS(26430) = B(19549) -! JVS(26431) = Jac_FULL(4648,1279) - JVS(26431) = 0 -! JVS(26432) = Jac_FULL(4648,2975) - JVS(26432) = B(22131) -! JVS(26433) = Jac_FULL(4648,4015) - JVS(26433) = 0 -! JVS(26434) = Jac_FULL(4648,4648) - JVS(26434) = -B(21117)-B(21119)-B(21121)-B(21123) -! JVS(26435) = Jac_FULL(4648,4883) - JVS(26435) = 0 -! JVS(26436) = Jac_FULL(4648,4957) - JVS(26436) = 0 -! JVS(26437) = Jac_FULL(4648,5250) - JVS(26437) = B(22132) -! JVS(26438) = Jac_FULL(4648,5252) - JVS(26438) = -B(21120) -! JVS(26439) = Jac_FULL(4648,5255) - JVS(26439) = -B(21118) -! JVS(26440) = Jac_FULL(4648,5256) - JVS(26440) = -B(21122) -! JVS(26441) = Jac_FULL(4649,1417) - JVS(26441) = B(8687) -! JVS(26442) = Jac_FULL(4649,2955) - JVS(26442) = B(8692) -! JVS(26443) = Jac_FULL(4649,4396) - JVS(26443) = B(2353)+B(2357) -! JVS(26444) = Jac_FULL(4649,4649) - JVS(26444) = -B(5215)-B(5217)-B(5219)-B(5221)-B(5223)-B(5225)-B(5227)-B(5228) -! JVS(26445) = Jac_FULL(4649,5250) - JVS(26445) = B(2358)+B(8688) -! JVS(26446) = Jac_FULL(4649,5252) - JVS(26446) = -B(5222) -! JVS(26447) = Jac_FULL(4649,5253) - JVS(26447) = -B(5224) -! JVS(26448) = Jac_FULL(4649,5255) - JVS(26448) = -B(5216)-B(5218)-B(5220) -! JVS(26449) = Jac_FULL(4649,5256) - JVS(26449) = B(2354)-B(5226) -! JVS(26450) = Jac_FULL(4649,5258) - JVS(26450) = 0 -! JVS(26451) = Jac_FULL(4650,3795) - JVS(26451) = B(5884) -! JVS(26452) = Jac_FULL(4650,4650) - JVS(26452) = -B(9539)-B(9541)-B(9543) -! JVS(26453) = Jac_FULL(4650,5068) - JVS(26453) = B(9537) -! JVS(26454) = Jac_FULL(4650,5250) - JVS(26454) = -B(9544) -! JVS(26455) = Jac_FULL(4650,5252) - JVS(26455) = 0 -! JVS(26456) = Jac_FULL(4650,5255) - JVS(26456) = 0 -! JVS(26457) = Jac_FULL(4650,5256) - JVS(26457) = -B(9540) -! JVS(26458) = Jac_FULL(4650,5258) - JVS(26458) = -B(9542) -! JVS(26459) = Jac_FULL(4651,768) - JVS(26459) = B(15454) -! JVS(26460) = Jac_FULL(4651,1040) - JVS(26460) = B(15455) -! JVS(26461) = Jac_FULL(4651,2089) - JVS(26461) = 0 -! JVS(26462) = Jac_FULL(4651,3407) - JVS(26462) = B(15439) -! JVS(26463) = Jac_FULL(4651,3669) - JVS(26463) = 0 -! JVS(26464) = Jac_FULL(4651,3728) - JVS(26464) = 0 -! JVS(26465) = Jac_FULL(4651,4651) - JVS(26465) = -B(18037)-B(18039)-B(18041) -! JVS(26466) = Jac_FULL(4651,4828) - JVS(26466) = B(15441)+B(15443)+B(15445)+B(15447)+B(15449) -! JVS(26467) = Jac_FULL(4651,4951) - JVS(26467) = 0 -! JVS(26468) = Jac_FULL(4651,5250) - JVS(26468) = B(15456)-B(18040) -! JVS(26469) = Jac_FULL(4651,5251) - JVS(26469) = B(15442) -! JVS(26470) = Jac_FULL(4651,5252) - JVS(26470) = B(15444) -! JVS(26471) = Jac_FULL(4651,5253) - JVS(26471) = B(15446) -! JVS(26472) = Jac_FULL(4651,5254) - JVS(26472) = B(15448) -! JVS(26473) = Jac_FULL(4651,5255) - JVS(26473) = 0 -! JVS(26474) = Jac_FULL(4651,5256) - JVS(26474) = -B(18038) -! JVS(26475) = Jac_FULL(4652,1336) - JVS(26475) = B(22621) -! JVS(26476) = Jac_FULL(4652,1739) - JVS(26476) = B(20976) -! JVS(26477) = Jac_FULL(4652,3313) - JVS(26477) = B(22637) -! JVS(26478) = Jac_FULL(4652,4652) - JVS(26478) = -B(22011)-B(22013)-B(22015)-B(22017)-B(22019)-B(22021)-B(22023)-B(22024) -! JVS(26479) = Jac_FULL(4652,5052) - JVS(26479) = 0 -! JVS(26480) = Jac_FULL(4652,5250) - JVS(26480) = B(22622) -! JVS(26481) = Jac_FULL(4652,5252) - JVS(26481) = -B(22018) -! JVS(26482) = Jac_FULL(4652,5253) - JVS(26482) = -B(22020) -! JVS(26483) = Jac_FULL(4652,5255) - JVS(26483) = -B(22012)-B(22014)-B(22016) -! JVS(26484) = Jac_FULL(4652,5256) - JVS(26484) = -B(22022) -! JVS(26485) = Jac_FULL(4653,1408) - JVS(26485) = B(23597) -! JVS(26486) = Jac_FULL(4653,2980) - JVS(26486) = B(23602) -! JVS(26487) = Jac_FULL(4653,4653) - JVS(26487) = -B(23298)-B(23300)-B(23302)-B(23304)-B(23306)-B(23308)-B(23310)-B(23311) -! JVS(26488) = Jac_FULL(4653,5072) - JVS(26488) = B(22900)+B(22904) -! JVS(26489) = Jac_FULL(4653,5250) - JVS(26489) = B(22905)+B(23598) -! JVS(26490) = Jac_FULL(4653,5252) - JVS(26490) = -B(23305) -! JVS(26491) = Jac_FULL(4653,5253) - JVS(26491) = -B(23307) -! JVS(26492) = Jac_FULL(4653,5255) - JVS(26492) = -B(23299)-B(23301)-B(23303) -! JVS(26493) = Jac_FULL(4653,5256) - JVS(26493) = B(22901)-B(23309) -! JVS(26494) = Jac_FULL(4654,1370) - JVS(26494) = B(9910) -! JVS(26495) = Jac_FULL(4654,2857) - JVS(26495) = B(9915) -! JVS(26496) = Jac_FULL(4654,3833) - JVS(26496) = B(2822)+B(2826) -! JVS(26497) = Jac_FULL(4654,4654) - JVS(26497) = -B(6208)-B(6210)-B(6212)-B(6214)-B(6216)-B(6218)-B(6220)-B(6221) -! JVS(26498) = Jac_FULL(4654,5250) - JVS(26498) = B(2827)+B(9911) -! JVS(26499) = Jac_FULL(4654,5252) - JVS(26499) = -B(6215) -! JVS(26500) = Jac_FULL(4654,5253) - JVS(26500) = -B(6217) -! JVS(26501) = Jac_FULL(4654,5255) - JVS(26501) = -B(6209)-B(6211)-B(6213) -! JVS(26502) = Jac_FULL(4654,5256) - JVS(26502) = B(2823)-B(6219) -! JVS(26503) = Jac_FULL(4654,5258) - JVS(26503) = 0 -! JVS(26504) = Jac_FULL(4655,869) - JVS(26504) = B(20173) -! JVS(26505) = Jac_FULL(4655,3191) - JVS(26505) = B(16135) -! JVS(26506) = Jac_FULL(4655,4655) - JVS(26506) = -B(18495)-B(18497)-B(18499)-B(18501) -! JVS(26507) = Jac_FULL(4655,4810) - JVS(26507) = 0 -! JVS(26508) = Jac_FULL(4655,5250) - JVS(26508) = B(20174) -! JVS(26509) = Jac_FULL(4655,5252) - JVS(26509) = -B(18498) -! JVS(26510) = Jac_FULL(4655,5253) - JVS(26510) = 0 -! JVS(26511) = Jac_FULL(4655,5255) - JVS(26511) = -B(18496) -! JVS(26512) = Jac_FULL(4655,5256) - JVS(26512) = B(16136)-B(18500) -! JVS(26513) = Jac_FULL(4656,1274) - JVS(26513) = B(10251) -! JVS(26514) = Jac_FULL(4656,2650) - JVS(26514) = B(10256) -! JVS(26515) = Jac_FULL(4656,4017) - JVS(26515) = B(2979)+B(2985) -! JVS(26516) = Jac_FULL(4656,4656) - JVS(26516) = -B(6542)-B(6544)-B(6546)-B(6548)-B(6550)-B(6552)-B(6554)-B(6555) -! JVS(26517) = Jac_FULL(4656,5250) - JVS(26517) = B(2986)+B(10252) -! JVS(26518) = Jac_FULL(4656,5252) - JVS(26518) = -B(6549) -! JVS(26519) = Jac_FULL(4656,5253) - JVS(26519) = -B(6551) -! JVS(26520) = Jac_FULL(4656,5255) - JVS(26520) = -B(6543)-B(6545)-B(6547) -! JVS(26521) = Jac_FULL(4656,5256) - JVS(26521) = B(2980)-B(6553) -! JVS(26522) = Jac_FULL(4656,5258) - JVS(26522) = 0 -! JVS(26523) = Jac_FULL(4657,1685) - JVS(26523) = B(16688) -! JVS(26524) = Jac_FULL(4657,1874) - JVS(26524) = B(20479) -! JVS(26525) = Jac_FULL(4657,4657) - JVS(26525) = -B(18882)-B(18884)-B(18886)-B(18888)-B(18890)-B(18892)-B(18894)-B(18895) -! JVS(26526) = Jac_FULL(4657,5173) - JVS(26526) = 0 -! JVS(26527) = Jac_FULL(4657,5250) - JVS(26527) = B(16689)+B(20480) -! JVS(26528) = Jac_FULL(4657,5252) - JVS(26528) = -B(18889) -! JVS(26529) = Jac_FULL(4657,5253) - JVS(26529) = -B(18891) -! JVS(26530) = Jac_FULL(4657,5255) - JVS(26530) = -B(18883)-B(18885)-B(18887) -! JVS(26531) = Jac_FULL(4657,5256) - JVS(26531) = -B(18893) -! JVS(26532) = Jac_FULL(4658,1518) - JVS(26532) = B(20449) -! JVS(26533) = Jac_FULL(4658,1575) - JVS(26533) = B(16677) -! JVS(26534) = Jac_FULL(4658,1939) - JVS(26534) = B(20451) -! JVS(26535) = Jac_FULL(4658,3236) - JVS(26535) = B(20481) -! JVS(26536) = Jac_FULL(4658,3552) - JVS(26536) = 0 -! JVS(26537) = Jac_FULL(4658,4657) - JVS(26537) = 0 -! JVS(26538) = Jac_FULL(4658,4658) - JVS(26538) = -B(18852)-B(18854)-B(18856)-B(18858)-B(18860)-B(18862)-B(18864)-B(18865) -! JVS(26539) = Jac_FULL(4658,5173) - JVS(26539) = 0 -! JVS(26540) = Jac_FULL(4658,5250) - JVS(26540) = B(16678)+B(20450) -! JVS(26541) = Jac_FULL(4658,5252) - JVS(26541) = -B(18859) -! JVS(26542) = Jac_FULL(4658,5253) - JVS(26542) = -B(18861) -! JVS(26543) = Jac_FULL(4658,5255) - JVS(26543) = -B(18853)-B(18855)-B(18857) -! JVS(26544) = Jac_FULL(4658,5256) - JVS(26544) = -B(18863) -! JVS(26545) = Jac_FULL(4659,1348) - JVS(26545) = B(22465) -! JVS(26546) = Jac_FULL(4659,2523) - JVS(26546) = B(22470) -! JVS(26547) = Jac_FULL(4659,3862) - JVS(26547) = B(20809)+B(20811) -! JVS(26548) = Jac_FULL(4659,4659) - JVS(26548) = -B(21840)-B(21842)-B(21844)-B(21846)-B(21848)-B(21850)-B(21852) -! JVS(26549) = Jac_FULL(4659,4987) - JVS(26549) = 0 -! JVS(26550) = Jac_FULL(4659,5250) - JVS(26550) = B(20812)+B(22466) -! JVS(26551) = Jac_FULL(4659,5252) - JVS(26551) = -B(21847) -! JVS(26552) = Jac_FULL(4659,5253) - JVS(26552) = -B(21849) -! JVS(26553) = Jac_FULL(4659,5255) - JVS(26553) = -B(21841)-B(21843)-B(21845) -! JVS(26554) = Jac_FULL(4659,5256) - JVS(26554) = B(20810)-B(21851) -! JVS(26555) = Jac_FULL(4660,1018) - JVS(26555) = B(21749) -! JVS(26556) = Jac_FULL(4660,2527) - JVS(26556) = B(21754) -! JVS(26557) = Jac_FULL(4660,4660) - JVS(26557) = -B(20714)-B(20716)-B(20718)-B(20720)-B(20722)-B(20724)-B(20726)-B(20727) -! JVS(26558) = Jac_FULL(4660,5159) - JVS(26558) = B(19134)+B(19138) -! JVS(26559) = Jac_FULL(4660,5250) - JVS(26559) = B(19139)+B(21750) -! JVS(26560) = Jac_FULL(4660,5252) - JVS(26560) = -B(20721) -! JVS(26561) = Jac_FULL(4660,5253) - JVS(26561) = -B(20723) -! JVS(26562) = Jac_FULL(4660,5255) - JVS(26562) = -B(20715)-B(20717)-B(20719) -! JVS(26563) = Jac_FULL(4660,5256) - JVS(26563) = B(19135)-B(20725) -! JVS(26564) = Jac_FULL(4661,1768) - JVS(26564) = B(15905) -! JVS(26565) = Jac_FULL(4661,3748) - JVS(26565) = B(18339)+B(18341)+B(18343) -! JVS(26566) = Jac_FULL(4661,4661) - JVS(26566) = -B(12819)-B(12821)-B(12823)-B(12825)-B(12826)-B(12827) -! JVS(26567) = Jac_FULL(4661,4896) - JVS(26567) = B(9309) -! JVS(26568) = Jac_FULL(4661,5250) - JVS(26568) = B(15906)+B(18342) -! JVS(26569) = Jac_FULL(4661,5252) - JVS(26569) = -B(12822) -! JVS(26570) = Jac_FULL(4661,5255) - JVS(26570) = -B(12820) -! JVS(26571) = Jac_FULL(4661,5256) - JVS(26571) = -B(12824)+B(18340) -! JVS(26572) = Jac_FULL(4661,5258) - JVS(26572) = B(9310) -! JVS(26573) = Jac_FULL(4662,1055) - JVS(26573) = B(19570) -! JVS(26574) = Jac_FULL(4662,2978) - JVS(26574) = B(19572) -! JVS(26575) = Jac_FULL(4662,3915) - JVS(26575) = B(14947)+B(14949) -! JVS(26576) = Jac_FULL(4662,4662) - JVS(26576) = -B(17504)-B(17506)-B(17508)-B(17510)-B(17512)-B(17514)-B(17516)-B(17517) -! JVS(26577) = Jac_FULL(4662,5147) - JVS(26577) = 0 -! JVS(26578) = Jac_FULL(4662,5250) - JVS(26578) = B(14950)+B(19571) -! JVS(26579) = Jac_FULL(4662,5252) - JVS(26579) = -B(17511) -! JVS(26580) = Jac_FULL(4662,5253) - JVS(26580) = -B(17513) -! JVS(26581) = Jac_FULL(4662,5255) - JVS(26581) = -B(17505)-B(17507)-B(17509) -! JVS(26582) = Jac_FULL(4662,5256) - JVS(26582) = B(14948)-B(17515) -! JVS(26583) = Jac_FULL(4663,1453) - JVS(26583) = B(18664) -! JVS(26584) = Jac_FULL(4663,3098) - JVS(26584) = B(10107)+B(10109) -! JVS(26585) = Jac_FULL(4663,4072) - JVS(26585) = B(16371)+B(16373)+B(16375) -! JVS(26586) = Jac_FULL(4663,4504) - JVS(26586) = 0 -! JVS(26587) = Jac_FULL(4663,4663) - JVS(26587) = -B(13340)-B(13342) -! JVS(26588) = Jac_FULL(4663,5250) - JVS(26588) = B(10110) -! JVS(26589) = Jac_FULL(4663,5252) - JVS(26589) = B(16372) -! JVS(26590) = Jac_FULL(4663,5253) - JVS(26590) = -B(13341) -! JVS(26591) = Jac_FULL(4663,5255) - JVS(26591) = 0 -! JVS(26592) = Jac_FULL(4663,5256) - JVS(26592) = B(10108)+B(16374) -! JVS(26593) = Jac_FULL(4663,5258) - JVS(26593) = -B(13343) -! JVS(26594) = Jac_FULL(4664,125) - JVS(26594) = B(20796) -! JVS(26595) = Jac_FULL(4664,859) - JVS(26595) = B(19196) -! JVS(26596) = Jac_FULL(4664,1089) - JVS(26596) = 0 -! JVS(26597) = Jac_FULL(4664,1696) - JVS(26597) = B(14372) -! JVS(26598) = Jac_FULL(4664,2636) - JVS(26598) = B(19212) -! JVS(26599) = Jac_FULL(4664,2943) - JVS(26599) = 0 -! JVS(26600) = Jac_FULL(4664,3034) - JVS(26600) = 0 -! JVS(26601) = Jac_FULL(4664,3706) - JVS(26601) = 0 -! JVS(26602) = Jac_FULL(4664,3981) - JVS(26602) = 0 -! JVS(26603) = Jac_FULL(4664,3982) - JVS(26603) = 0 -! JVS(26604) = Jac_FULL(4664,4664) - JVS(26604) = -B(16982)-B(16984)-B(16986)-B(16988)-B(16990)-B(16992)-B(16994)-B(16995) -! JVS(26605) = Jac_FULL(4664,5215) - JVS(26605) = 0 -! JVS(26606) = Jac_FULL(4664,5250) - JVS(26606) = B(14373)+B(19197) -! JVS(26607) = Jac_FULL(4664,5252) - JVS(26607) = -B(16989) -! JVS(26608) = Jac_FULL(4664,5253) - JVS(26608) = -B(16991) -! JVS(26609) = Jac_FULL(4664,5255) - JVS(26609) = -B(16983)-B(16985)-B(16987) -! JVS(26610) = Jac_FULL(4664,5256) - JVS(26610) = -B(16993) -! JVS(26611) = Jac_FULL(4665,1291) - JVS(26611) = B(17676) -! JVS(26612) = Jac_FULL(4665,3025) - JVS(26612) = B(17678) -! JVS(26613) = Jac_FULL(4665,4665) - JVS(26613) = -B(15095)-B(15097)-B(15099)-B(15101)-B(15103)-B(15105)-B(15107)-B(15108) -! JVS(26614) = Jac_FULL(4665,5063) - JVS(26614) = B(11898)+B(11902) -! JVS(26615) = Jac_FULL(4665,5250) - JVS(26615) = B(11903)+B(17677) -! JVS(26616) = Jac_FULL(4665,5252) - JVS(26616) = -B(15102) -! JVS(26617) = Jac_FULL(4665,5253) - JVS(26617) = -B(15104) -! JVS(26618) = Jac_FULL(4665,5255) - JVS(26618) = -B(15096)-B(15098)-B(15100) -! JVS(26619) = Jac_FULL(4665,5256) - JVS(26619) = B(11899)-B(15106) -! JVS(26620) = Jac_FULL(4666,613) - JVS(26620) = B(6601) -! JVS(26621) = Jac_FULL(4666,1095) - JVS(26621) = B(6600) -! JVS(26622) = Jac_FULL(4666,1763) - JVS(26622) = B(6606) -! JVS(26623) = Jac_FULL(4666,3147) - JVS(26623) = B(2997)+B(2998) -! JVS(26624) = Jac_FULL(4666,3317) - JVS(26624) = 0 -! JVS(26625) = Jac_FULL(4666,4395) - JVS(26625) = 0 -! JVS(26626) = Jac_FULL(4666,4622) - JVS(26626) = B(3009)+B(3013)+B(3017)+B(3019) -! JVS(26627) = Jac_FULL(4666,4666) - JVS(26627) = -B(3021)-B(3023)-B(3025)-B(3027) -! JVS(26628) = Jac_FULL(4666,4919) - JVS(26628) = 0 -! JVS(26629) = Jac_FULL(4666,4964) - JVS(26629) = B(758) -! JVS(26630) = Jac_FULL(4666,4965) - JVS(26630) = B(5270) -! JVS(26631) = Jac_FULL(4666,5250) - JVS(26631) = B(6602)+B(6607) -! JVS(26632) = Jac_FULL(4666,5252) - JVS(26632) = B(3014)-B(3024) -! JVS(26633) = Jac_FULL(4666,5253) - JVS(26633) = 0 -! JVS(26634) = Jac_FULL(4666,5255) - JVS(26634) = B(3010)-B(3022) -! JVS(26635) = Jac_FULL(4666,5256) - JVS(26635) = B(3018)-B(3026) -! JVS(26636) = Jac_FULL(4666,5258) - JVS(26636) = B(5271) -! JVS(26637) = Jac_FULL(4667,921) - JVS(26637) = B(9332) -! JVS(26638) = Jac_FULL(4667,961) - JVS(26638) = B(9327)+B(9329) -! JVS(26639) = Jac_FULL(4667,4032) - JVS(26639) = B(2589) -! JVS(26640) = Jac_FULL(4667,4641) - JVS(26640) = B(5715)+B(5721)+B(5725)+B(5727) -! JVS(26641) = Jac_FULL(4667,4667) - JVS(26641) = -B(5744)-B(5746)-B(5748)-B(5750)-B(5751)-B(5752) -! JVS(26642) = Jac_FULL(4667,5250) - JVS(26642) = B(9328) -! JVS(26643) = Jac_FULL(4667,5252) - JVS(26643) = B(5722)-B(5747) -! JVS(26644) = Jac_FULL(4667,5253) - JVS(26644) = 0 -! JVS(26645) = Jac_FULL(4667,5255) - JVS(26645) = B(5716)-B(5745) -! JVS(26646) = Jac_FULL(4667,5256) - JVS(26646) = B(5726)-B(5749) -! JVS(26647) = Jac_FULL(4667,5258) - JVS(26647) = 0 -! JVS(26648) = Jac_FULL(4668,2481) - JVS(26648) = B(10335) -! JVS(26649) = Jac_FULL(4668,4668) - JVS(26649) = -B(13503)-B(13505)-B(13507)-B(13509)-B(13511)-B(13512) -! JVS(26650) = Jac_FULL(4668,5050) - JVS(26650) = 0 -! JVS(26651) = Jac_FULL(4668,5251) - JVS(26651) = -B(13504) -! JVS(26652) = Jac_FULL(4668,5252) - JVS(26652) = -B(13506) -! JVS(26653) = Jac_FULL(4668,5253) - JVS(26653) = -B(13508) -! JVS(26654) = Jac_FULL(4668,5254) - JVS(26654) = -B(13510) -! JVS(26655) = Jac_FULL(4668,5258) - JVS(26655) = 0 -! JVS(26656) = Jac_FULL(4669,3214) - JVS(26656) = B(15636) -! JVS(26657) = Jac_FULL(4669,3519) - JVS(26657) = B(8929) -! JVS(26658) = Jac_FULL(4669,3535) - JVS(26658) = B(18145) -! JVS(26659) = Jac_FULL(4669,4422) - JVS(26659) = 0 -! JVS(26660) = Jac_FULL(4669,4440) - JVS(26660) = 0 -! JVS(26661) = Jac_FULL(4669,4669) - JVS(26661) = -B(12546)-B(12548)-B(12550)-B(12552)-B(12553)-B(12554) -! JVS(26662) = Jac_FULL(4669,4950) - JVS(26662) = 0 -! JVS(26663) = Jac_FULL(4669,5250) - JVS(26663) = B(15637)+B(18146) -! JVS(26664) = Jac_FULL(4669,5252) - JVS(26664) = -B(12549) -! JVS(26665) = Jac_FULL(4669,5255) - JVS(26665) = -B(12547) -! JVS(26666) = Jac_FULL(4669,5256) - JVS(26666) = -B(12551) -! JVS(26667) = Jac_FULL(4669,5258) - JVS(26667) = B(8930) -! JVS(26668) = Jac_FULL(4670,1003) - JVS(26668) = B(16256) -! JVS(26669) = Jac_FULL(4670,3494) - JVS(26669) = B(6056)+B(6060) -! JVS(26670) = Jac_FULL(4670,4007) - JVS(26670) = B(13201)+B(13203)+B(13205) -! JVS(26671) = Jac_FULL(4670,4670) - JVS(26671) = -B(9758)-B(9760) -! JVS(26672) = Jac_FULL(4670,5250) - JVS(26672) = B(6061) -! JVS(26673) = Jac_FULL(4670,5252) - JVS(26673) = B(13202) -! JVS(26674) = Jac_FULL(4670,5253) - JVS(26674) = -B(9759) -! JVS(26675) = Jac_FULL(4670,5255) - JVS(26675) = 0 -! JVS(26676) = Jac_FULL(4670,5256) - JVS(26676) = B(6057)+B(13204) -! JVS(26677) = Jac_FULL(4670,5258) - JVS(26677) = -B(9761) -! JVS(26678) = Jac_FULL(4671,892) - JVS(26678) = B(18236) -! JVS(26679) = Jac_FULL(4671,3125) - JVS(26679) = B(9129)+B(9131) -! JVS(26680) = Jac_FULL(4671,4011) - JVS(26680) = B(15747)+B(15749)+B(15751) -! JVS(26681) = Jac_FULL(4671,4408) - JVS(26681) = 0 -! JVS(26682) = Jac_FULL(4671,4671) - JVS(26682) = -B(12698)-B(12700) -! JVS(26683) = Jac_FULL(4671,5250) - JVS(26683) = B(9132) -! JVS(26684) = Jac_FULL(4671,5252) - JVS(26684) = B(15748) -! JVS(26685) = Jac_FULL(4671,5253) - JVS(26685) = -B(12699) -! JVS(26686) = Jac_FULL(4671,5255) - JVS(26686) = 0 -! JVS(26687) = Jac_FULL(4671,5256) - JVS(26687) = B(9130)+B(15750) -! JVS(26688) = Jac_FULL(4671,5258) - JVS(26688) = -B(12701) -! JVS(26689) = Jac_FULL(4672,190) - JVS(26689) = B(22054) -! JVS(26690) = Jac_FULL(4672,1149) - JVS(26690) = 0 -! JVS(26691) = Jac_FULL(4672,1590) - JVS(26691) = B(22055) -! JVS(26692) = Jac_FULL(4672,1591) - JVS(26692) = 0 -! JVS(26693) = Jac_FULL(4672,2613) - JVS(26693) = 0 -! JVS(26694) = Jac_FULL(4672,3764) - JVS(26694) = 0 -! JVS(26695) = Jac_FULL(4672,4431) - JVS(26695) = 0 -! JVS(26696) = Jac_FULL(4672,4672) - JVS(26696) = -B(22662)-B(22664)-B(22666)-B(22668)-B(22670)-B(22671)-B(22672) -! JVS(26697) = Jac_FULL(4672,5122) - JVS(26697) = 0 -! JVS(26698) = Jac_FULL(4672,5250) - JVS(26698) = B(22056) -! JVS(26699) = Jac_FULL(4672,5252) - JVS(26699) = -B(22665)-B(22667) -! JVS(26700) = Jac_FULL(4672,5253) - JVS(26700) = 0 -! JVS(26701) = Jac_FULL(4672,5255) - JVS(26701) = -B(22663) -! JVS(26702) = Jac_FULL(4672,5256) - JVS(26702) = -B(22669) -! JVS(26703) = Jac_FULL(4673,810) - JVS(26703) = B(23199) -! JVS(26704) = Jac_FULL(4673,1871) - JVS(26704) = 0 -! JVS(26705) = Jac_FULL(4673,1920) - JVS(26705) = B(23527) -! JVS(26706) = Jac_FULL(4673,2571) - JVS(26706) = B(23532) -! JVS(26707) = Jac_FULL(4673,3431) - JVS(26707) = B(22733)+B(22735) -! JVS(26708) = Jac_FULL(4673,4147) - JVS(26708) = 0 -! JVS(26709) = Jac_FULL(4673,4673) - JVS(26709) = -B(23182)-B(23184)-B(23186)-B(23188)-B(23190)-B(23192)-B(23194)-B(23195) -! JVS(26710) = Jac_FULL(4673,5104) - JVS(26710) = 0 -! JVS(26711) = Jac_FULL(4673,5250) - JVS(26711) = B(22734)+B(23528) -! JVS(26712) = Jac_FULL(4673,5252) - JVS(26712) = -B(23189) -! JVS(26713) = Jac_FULL(4673,5253) - JVS(26713) = -B(23191) -! JVS(26714) = Jac_FULL(4673,5255) - JVS(26714) = -B(23183)-B(23185)-B(23187) -! JVS(26715) = Jac_FULL(4673,5256) - JVS(26715) = -B(23193) -! JVS(26716) = Jac_FULL(4674,2686) - JVS(26716) = B(16205) -! JVS(26717) = Jac_FULL(4674,3832) - JVS(26717) = B(9728) -! JVS(26718) = Jac_FULL(4674,4674) - JVS(26718) = -B(13173)-B(13175)-B(13177)-B(13179)-B(13180) -! JVS(26719) = Jac_FULL(4674,5030) - JVS(26719) = 0 -! JVS(26720) = Jac_FULL(4674,5250) - JVS(26720) = B(9729)+B(16206) -! JVS(26721) = Jac_FULL(4674,5252) - JVS(26721) = -B(13176) -! JVS(26722) = Jac_FULL(4674,5255) - JVS(26722) = -B(13174) -! JVS(26723) = Jac_FULL(4674,5256) - JVS(26723) = -B(13178) -! JVS(26724) = Jac_FULL(4674,5258) - JVS(26724) = 0 -! JVS(26725) = Jac_FULL(4675,910) - JVS(26725) = B(9564) -! JVS(26726) = Jac_FULL(4675,1174) - JVS(26726) = B(9559)+B(9561) -! JVS(26727) = Jac_FULL(4675,4093) - JVS(26727) = B(2676) -! JVS(26728) = Jac_FULL(4675,4635) - JVS(26728) = B(5894)+B(5900)+B(5904)+B(5906) -! JVS(26729) = Jac_FULL(4675,4675) - JVS(26729) = -B(5923)-B(5925)-B(5927)-B(5929)-B(5930)-B(5931) -! JVS(26730) = Jac_FULL(4675,5250) - JVS(26730) = B(9560) -! JVS(26731) = Jac_FULL(4675,5252) - JVS(26731) = B(5901)-B(5926) -! JVS(26732) = Jac_FULL(4675,5253) - JVS(26732) = 0 -! JVS(26733) = Jac_FULL(4675,5255) - JVS(26733) = B(5895)-B(5924) -! JVS(26734) = Jac_FULL(4675,5256) - JVS(26734) = B(5905)-B(5928) -! JVS(26735) = Jac_FULL(4675,5258) - JVS(26735) = 0 -! JVS(26736) = Jac_FULL(4676,1366) - JVS(26736) = B(18279) -! JVS(26737) = Jac_FULL(4676,3150) - JVS(26737) = B(9227)+B(9229) -! JVS(26738) = Jac_FULL(4676,4039) - JVS(26738) = B(15807)+B(15809)+B(15811) -! JVS(26739) = Jac_FULL(4676,4495) - JVS(26739) = 0 -! JVS(26740) = Jac_FULL(4676,4676) - JVS(26740) = -B(12745)-B(12747) -! JVS(26741) = Jac_FULL(4676,5250) - JVS(26741) = B(9230) -! JVS(26742) = Jac_FULL(4676,5252) - JVS(26742) = B(15808) -! JVS(26743) = Jac_FULL(4676,5253) - JVS(26743) = -B(12746) -! JVS(26744) = Jac_FULL(4676,5255) - JVS(26744) = 0 -! JVS(26745) = Jac_FULL(4676,5256) - JVS(26745) = B(9228)+B(15810) -! JVS(26746) = Jac_FULL(4676,5258) - JVS(26746) = -B(12748) -! JVS(26747) = Jac_FULL(4677,819) - JVS(26747) = B(13661) -! JVS(26748) = Jac_FULL(4677,4677) - JVS(26748) = -B(16516)-B(16518)-B(16520)-B(16522)-B(16524)-B(16525) -! JVS(26749) = Jac_FULL(4677,5013) - JVS(26749) = 0 -! JVS(26750) = Jac_FULL(4677,5251) - JVS(26750) = -B(16517) -! JVS(26751) = Jac_FULL(4677,5252) - JVS(26751) = -B(16519) -! JVS(26752) = Jac_FULL(4677,5253) - JVS(26752) = -B(16521) -! JVS(26753) = Jac_FULL(4677,5254) - JVS(26753) = -B(16523) -! JVS(26754) = Jac_FULL(4677,5258) - JVS(26754) = 0 -! JVS(26755) = Jac_FULL(4678,4678) - JVS(26755) = -B(14801)-B(14803)-B(14805)-B(14807)-B(14809)-B(14810) -! JVS(26756) = Jac_FULL(4678,5249) - JVS(26756) = B(11428) -! JVS(26757) = Jac_FULL(4678,5251) - JVS(26757) = -B(14802) -! JVS(26758) = Jac_FULL(4678,5252) - JVS(26758) = -B(14804) -! JVS(26759) = Jac_FULL(4678,5253) - JVS(26759) = -B(14806) -! JVS(26760) = Jac_FULL(4678,5254) - JVS(26760) = -B(14808) -! JVS(26761) = Jac_FULL(4678,5258) - JVS(26761) = B(11429) -! JVS(26762) = Jac_FULL(4679,951) - JVS(26762) = B(20993) -! JVS(26763) = Jac_FULL(4679,1624) - JVS(26763) = B(17263) -! JVS(26764) = Jac_FULL(4679,2666) - JVS(26764) = B(21009) -! JVS(26765) = Jac_FULL(4679,4679) - JVS(26765) = -B(19436)-B(19438)-B(19440)-B(19442)-B(19444)-B(19446)-B(19448)-B(19449) -! JVS(26766) = Jac_FULL(4679,4989) - JVS(26766) = 0 -! JVS(26767) = Jac_FULL(4679,5250) - JVS(26767) = B(20994) -! JVS(26768) = Jac_FULL(4679,5252) - JVS(26768) = -B(19443) -! JVS(26769) = Jac_FULL(4679,5253) - JVS(26769) = -B(19445) -! JVS(26770) = Jac_FULL(4679,5255) - JVS(26770) = -B(19437)-B(19439)-B(19441) -! JVS(26771) = Jac_FULL(4679,5256) - JVS(26771) = -B(19447) -! JVS(26772) = Jac_FULL(4680,1378) - JVS(26772) = B(13234) -! JVS(26773) = Jac_FULL(4680,2671) - JVS(26773) = B(13239) -! JVS(26774) = Jac_FULL(4680,4569) - JVS(26774) = B(6155)+B(6157) -! JVS(26775) = Jac_FULL(4680,4680) - JVS(26775) = -B(9853)-B(9855)-B(9857)-B(9859)-B(9861)-B(9863)-B(9865)-B(9866) -! JVS(26776) = Jac_FULL(4680,5250) - JVS(26776) = B(6158)+B(13235) -! JVS(26777) = Jac_FULL(4680,5252) - JVS(26777) = -B(9860) -! JVS(26778) = Jac_FULL(4680,5253) - JVS(26778) = -B(9862) -! JVS(26779) = Jac_FULL(4680,5255) - JVS(26779) = -B(9854)-B(9856)-B(9858) -! JVS(26780) = Jac_FULL(4680,5256) - JVS(26780) = B(6156)-B(9864) -! JVS(26781) = Jac_FULL(4680,5258) - JVS(26781) = 0 -! JVS(26782) = Jac_FULL(4681,1250) - JVS(26782) = B(23026) -! JVS(26783) = Jac_FULL(4681,1617) - JVS(26783) = B(21991) -! JVS(26784) = Jac_FULL(4681,3323) - JVS(26784) = B(23044) -! JVS(26785) = Jac_FULL(4681,4681) - JVS(26785) = -B(22594)-B(22596)-B(22598)-B(22600)-B(22602)-B(22604)-B(22606)-B(22607) -! JVS(26786) = Jac_FULL(4681,5044) - JVS(26786) = 0 -! JVS(26787) = Jac_FULL(4681,5250) - JVS(26787) = B(23027) -! JVS(26788) = Jac_FULL(4681,5252) - JVS(26788) = -B(22601) -! JVS(26789) = Jac_FULL(4681,5253) - JVS(26789) = -B(22603) -! JVS(26790) = Jac_FULL(4681,5255) - JVS(26790) = -B(22595)-B(22597)-B(22599) -! JVS(26791) = Jac_FULL(4681,5256) - JVS(26791) = -B(22605) -! JVS(26792) = Jac_FULL(4682,1452) - JVS(26792) = B(18592) -! JVS(26793) = Jac_FULL(4682,3153) - JVS(26793) = B(9968)+B(9970) -! JVS(26794) = Jac_FULL(4682,4040) - JVS(26794) = B(16272)+B(16274)+B(16276) -! JVS(26795) = Jac_FULL(4682,4438) - JVS(26795) = 0 -! JVS(26796) = Jac_FULL(4682,4682) - JVS(26796) = -B(13281)-B(13283) -! JVS(26797) = Jac_FULL(4682,5250) - JVS(26797) = B(9971) -! JVS(26798) = Jac_FULL(4682,5252) - JVS(26798) = B(16273) -! JVS(26799) = Jac_FULL(4682,5253) - JVS(26799) = -B(13282) -! JVS(26800) = Jac_FULL(4682,5255) - JVS(26800) = 0 -! JVS(26801) = Jac_FULL(4682,5256) - JVS(26801) = B(9969)+B(16275) -! JVS(26802) = Jac_FULL(4682,5258) - JVS(26802) = -B(13284) -! JVS(26803) = Jac_FULL(4683,1031) - JVS(26803) = B(9453) -! JVS(26804) = Jac_FULL(4683,1073) - JVS(26804) = B(9448)+B(9450) -! JVS(26805) = Jac_FULL(4683,4094) - JVS(26805) = B(2633) -! JVS(26806) = Jac_FULL(4683,4683) - JVS(26806) = -B(5835)-B(5837)-B(5839)-B(5841)-B(5842)-B(5843) -! JVS(26807) = Jac_FULL(4683,4829) - JVS(26807) = B(5806)+B(5812)+B(5816)+B(5818) -! JVS(26808) = Jac_FULL(4683,5250) - JVS(26808) = B(9449) -! JVS(26809) = Jac_FULL(4683,5252) - JVS(26809) = B(5813)-B(5838) -! JVS(26810) = Jac_FULL(4683,5255) - JVS(26810) = B(5807)-B(5836) -! JVS(26811) = Jac_FULL(4683,5256) - JVS(26811) = B(5817)-B(5840) -! JVS(26812) = Jac_FULL(4683,5258) - JVS(26812) = 0 -! JVS(26813) = Jac_FULL(4684,915) - JVS(26813) = B(12687) -! JVS(26814) = Jac_FULL(4684,2904) - JVS(26814) = B(12692) -! JVS(26815) = Jac_FULL(4684,4684) - JVS(26815) = -B(9083)-B(9085)-B(9087)-B(9089)-B(9091)-B(9093)-B(9095)-B(9096) -! JVS(26816) = Jac_FULL(4684,4729) - JVS(26816) = B(5524)+B(5526) -! JVS(26817) = Jac_FULL(4684,5250) - JVS(26817) = B(5527)+B(12688) -! JVS(26818) = Jac_FULL(4684,5252) - JVS(26818) = -B(9090) -! JVS(26819) = Jac_FULL(4684,5253) - JVS(26819) = -B(9092) -! JVS(26820) = Jac_FULL(4684,5255) - JVS(26820) = -B(9084)-B(9086)-B(9088) -! JVS(26821) = Jac_FULL(4684,5256) - JVS(26821) = B(5525)-B(9094) -! JVS(26822) = Jac_FULL(4685,1299) - JVS(26822) = B(10160) -! JVS(26823) = Jac_FULL(4685,2948) - JVS(26823) = B(10165) -! JVS(26824) = Jac_FULL(4685,4018) - JVS(26824) = B(2931)+B(2937) -! JVS(26825) = Jac_FULL(4685,4685) - JVS(26825) = -B(6446)-B(6448)-B(6450)-B(6452)-B(6454)-B(6456)-B(6458)-B(6459) -! JVS(26826) = Jac_FULL(4685,5250) - JVS(26826) = B(2938)+B(10161) -! JVS(26827) = Jac_FULL(4685,5252) - JVS(26827) = -B(6453) -! JVS(26828) = Jac_FULL(4685,5253) - JVS(26828) = -B(6455) -! JVS(26829) = Jac_FULL(4685,5255) - JVS(26829) = -B(6447)-B(6449)-B(6451) -! JVS(26830) = Jac_FULL(4685,5256) - JVS(26830) = B(2932)-B(6457) -! JVS(26831) = Jac_FULL(4685,5258) - JVS(26831) = 0 -! JVS(26832) = Jac_FULL(4686,1474) - JVS(26832) = B(24009) -! JVS(26833) = Jac_FULL(4686,2779) - JVS(26833) = B(24014) -! JVS(26834) = Jac_FULL(4686,3958) - JVS(26834) = B(23963) -! JVS(26835) = Jac_FULL(4686,4477) - JVS(26835) = 0 -! JVS(26836) = Jac_FULL(4686,4525) - JVS(26836) = 0 -! JVS(26837) = Jac_FULL(4686,4672) - JVS(26837) = 0 -! JVS(26838) = Jac_FULL(4686,4686) - JVS(26838) = -B(23971)-B(23973)-B(23975)-B(23977)-B(23979)-B(23981) -! JVS(26839) = Jac_FULL(4686,5122) - JVS(26839) = 0 -! JVS(26840) = Jac_FULL(4686,5250) - JVS(26840) = B(23964)+B(24010) -! JVS(26841) = Jac_FULL(4686,5252) - JVS(26841) = -B(23976) -! JVS(26842) = Jac_FULL(4686,5253) - JVS(26842) = -B(23978) -! JVS(26843) = Jac_FULL(4686,5255) - JVS(26843) = -B(23972)-B(23974) -! JVS(26844) = Jac_FULL(4686,5256) - JVS(26844) = -B(23980) -! JVS(26845) = Jac_FULL(4687,1474) - JVS(26845) = B(24011) -! JVS(26846) = Jac_FULL(4687,1956) - JVS(26846) = B(24015) -! JVS(26847) = Jac_FULL(4687,3958) - JVS(26847) = B(23965) -! JVS(26848) = Jac_FULL(4687,4477) - JVS(26848) = 0 -! JVS(26849) = Jac_FULL(4687,4525) - JVS(26849) = 0 -! JVS(26850) = Jac_FULL(4687,4672) - JVS(26850) = 0 -! JVS(26851) = Jac_FULL(4687,4686) - JVS(26851) = B(23973)+B(23975)+B(23979)+B(23981) -! JVS(26852) = Jac_FULL(4687,4687) - JVS(26852) = -B(23982)-B(23984)-B(23986)-B(23988)-B(23989)-B(23990) -! JVS(26853) = Jac_FULL(4687,5122) - JVS(26853) = 0 -! JVS(26854) = Jac_FULL(4687,5250) - JVS(26854) = B(24016) -! JVS(26855) = Jac_FULL(4687,5252) - JVS(26855) = B(23976)-B(23985) -! JVS(26856) = Jac_FULL(4687,5253) - JVS(26856) = 0 -! JVS(26857) = Jac_FULL(4687,5255) - JVS(26857) = B(23974)-B(23983) -! JVS(26858) = Jac_FULL(4687,5256) - JVS(26858) = B(23980)-B(23987) -! JVS(26859) = Jac_FULL(4688,1949) - JVS(26859) = B(16105) -! JVS(26860) = Jac_FULL(4688,3775) - JVS(26860) = B(18477)+B(18479)+B(18481) -! JVS(26861) = Jac_FULL(4688,4650) - JVS(26861) = B(9541) -! JVS(26862) = Jac_FULL(4688,4688) - JVS(26862) = -B(13011)-B(13013)-B(13015)-B(13017)-B(13018)-B(13019) -! JVS(26863) = Jac_FULL(4688,5068) - JVS(26863) = 0 -! JVS(26864) = Jac_FULL(4688,5250) - JVS(26864) = B(16106)+B(18480) -! JVS(26865) = Jac_FULL(4688,5252) - JVS(26865) = -B(13014) -! JVS(26866) = Jac_FULL(4688,5255) - JVS(26866) = -B(13012) -! JVS(26867) = Jac_FULL(4688,5256) - JVS(26867) = -B(13016)+B(18478) -! JVS(26868) = Jac_FULL(4688,5258) - JVS(26868) = B(9542) -! JVS(26869) = Jac_FULL(4689,2025) - JVS(26869) = B(16003) -! JVS(26870) = Jac_FULL(4689,3773) - JVS(26870) = B(18410)+B(18412)+B(18414) -! JVS(26871) = Jac_FULL(4689,4637) - JVS(26871) = B(9430) -! JVS(26872) = Jac_FULL(4689,4689) - JVS(26872) = -B(12917)-B(12919)-B(12921)-B(12923)-B(12924)-B(12925) -! JVS(26873) = Jac_FULL(4689,5066) - JVS(26873) = 0 -! JVS(26874) = Jac_FULL(4689,5250) - JVS(26874) = B(16004)+B(18413) -! JVS(26875) = Jac_FULL(4689,5252) - JVS(26875) = -B(12920) -! JVS(26876) = Jac_FULL(4689,5255) - JVS(26876) = -B(12918) -! JVS(26877) = Jac_FULL(4689,5256) - JVS(26877) = -B(12922)+B(18411) -! JVS(26878) = Jac_FULL(4689,5258) - JVS(26878) = B(9431) -! JVS(26879) = Jac_FULL(4690,978) - JVS(26879) = B(18171) -! JVS(26880) = Jac_FULL(4690,3170) - JVS(26880) = B(8995)+B(8997) -! JVS(26881) = Jac_FULL(4690,4006) - JVS(26881) = B(15657)+B(15659)+B(15661) -! JVS(26882) = Jac_FULL(4690,4478) - JVS(26882) = 0 -! JVS(26883) = Jac_FULL(4690,4690) - JVS(26883) = -B(12586)-B(12588) -! JVS(26884) = Jac_FULL(4690,5250) - JVS(26884) = B(8998) -! JVS(26885) = Jac_FULL(4690,5252) - JVS(26885) = B(15658) -! JVS(26886) = Jac_FULL(4690,5253) - JVS(26886) = -B(12587) -! JVS(26887) = Jac_FULL(4690,5255) - JVS(26887) = 0 -! JVS(26888) = Jac_FULL(4690,5256) - JVS(26888) = B(8996)+B(15660) -! JVS(26889) = Jac_FULL(4690,5258) - JVS(26889) = -B(12589) -! JVS(26890) = Jac_FULL(4691,4691) - JVS(26890) = -B(14791)-B(14793)-B(14795)-B(14797)-B(14799)-B(14800) -! JVS(26891) = Jac_FULL(4691,5249) - JVS(26891) = B(11426) -! JVS(26892) = Jac_FULL(4691,5251) - JVS(26892) = -B(14792) -! JVS(26893) = Jac_FULL(4691,5252) - JVS(26893) = -B(14794) -! JVS(26894) = Jac_FULL(4691,5253) - JVS(26894) = -B(14796) -! JVS(26895) = Jac_FULL(4691,5254) - JVS(26895) = -B(14798) -! JVS(26896) = Jac_FULL(4691,5258) - JVS(26896) = B(11427) -! JVS(26897) = Jac_FULL(4692,941) - JVS(26897) = B(9189) -! JVS(26898) = Jac_FULL(4692,2569) - JVS(26898) = B(9194) -! JVS(26899) = Jac_FULL(4692,4083) - JVS(26899) = B(2525)+B(2529) -! JVS(26900) = Jac_FULL(4692,4692) - JVS(26900) = -B(5601)-B(5603)-B(5605)-B(5607)-B(5609)-B(5611)-B(5613)-B(5614) -! JVS(26901) = Jac_FULL(4692,5250) - JVS(26901) = B(2530)+B(9190) -! JVS(26902) = Jac_FULL(4692,5252) - JVS(26902) = -B(5608) -! JVS(26903) = Jac_FULL(4692,5253) - JVS(26903) = -B(5610) -! JVS(26904) = Jac_FULL(4692,5255) - JVS(26904) = -B(5602)-B(5604)-B(5606) -! JVS(26905) = Jac_FULL(4692,5256) - JVS(26905) = B(2526)-B(5612) -! JVS(26906) = Jac_FULL(4692,5258) - JVS(26906) = 0 -! JVS(26907) = Jac_FULL(4693,569) - JVS(26907) = B(9249) -! JVS(26908) = Jac_FULL(4693,705) - JVS(26908) = B(9762) -! JVS(26909) = Jac_FULL(4693,723) - JVS(26909) = B(9017) -! JVS(26910) = Jac_FULL(4693,738) - JVS(26910) = B(9159) -! JVS(26911) = Jac_FULL(4693,752) - JVS(26911) = B(9646) -! JVS(26912) = Jac_FULL(4693,2551) - JVS(26912) = B(18564) -! JVS(26913) = Jac_FULL(4693,2557) - JVS(26913) = B(18560) -! JVS(26914) = Jac_FULL(4693,2580) - JVS(26914) = B(21597) -! JVS(26915) = Jac_FULL(4693,2586) - JVS(26915) = B(18519) -! JVS(26916) = Jac_FULL(4693,2641) - JVS(26916) = B(18191) -! JVS(26917) = Jac_FULL(4693,2668) - JVS(26917) = B(18250) -! JVS(26918) = Jac_FULL(4693,2682) - JVS(26918) = B(18293) -! JVS(26919) = Jac_FULL(4693,2733) - JVS(26919) = B(20048) -! JVS(26920) = Jac_FULL(4693,2736) - JVS(26920) = B(20180) -! JVS(26921) = Jac_FULL(4693,2741) - JVS(26921) = B(18297) -! JVS(26922) = Jac_FULL(4693,2918) - JVS(26922) = B(18187) -! JVS(26923) = Jac_FULL(4693,2935) - JVS(26923) = B(19950) -! JVS(26924) = Jac_FULL(4693,2952) - JVS(26924) = B(20194) -! JVS(26925) = Jac_FULL(4693,2963) - JVS(26925) = B(18254) -! JVS(26926) = Jac_FULL(4693,2986) - JVS(26926) = B(20022) -! JVS(26927) = Jac_FULL(4693,3016) - JVS(26927) = B(18515) -! JVS(26928) = Jac_FULL(4693,3347) - JVS(26928) = B(20044) -! JVS(26929) = Jac_FULL(4693,3363) - JVS(26929) = B(20176) -! JVS(26930) = Jac_FULL(4693,3371) - JVS(26930) = B(20018) -! JVS(26931) = Jac_FULL(4693,3381) - JVS(26931) = B(20190) -! JVS(26932) = Jac_FULL(4693,3402) - JVS(26932) = B(19946) -! JVS(26933) = Jac_FULL(4693,3477) - JVS(26933) = B(21584) -! JVS(26934) = Jac_FULL(4693,3482) - JVS(26934) = 0 -! JVS(26935) = Jac_FULL(4693,3494) - JVS(26935) = 0 -! JVS(26936) = Jac_FULL(4693,3508) - JVS(26936) = 0 -! JVS(26937) = Jac_FULL(4693,3512) - JVS(26937) = 0 -! JVS(26938) = Jac_FULL(4693,3560) - JVS(26938) = 0 -! JVS(26939) = Jac_FULL(4693,3590) - JVS(26939) = B(12443) -! JVS(26940) = Jac_FULL(4693,3672) - JVS(26940) = B(14910) -! JVS(26941) = Jac_FULL(4693,3829) - JVS(26941) = B(13183) -! JVS(26942) = Jac_FULL(4693,4178) - JVS(26942) = B(13451) -! JVS(26943) = Jac_FULL(4693,4192) - JVS(26943) = 0 -! JVS(26944) = Jac_FULL(4693,4193) - JVS(26944) = 0 -! JVS(26945) = Jac_FULL(4693,4200) - JVS(26945) = 0 -! JVS(26946) = Jac_FULL(4693,4204) - JVS(26946) = 0 -! JVS(26947) = Jac_FULL(4693,4212) - JVS(26947) = 0 -! JVS(26948) = Jac_FULL(4693,4225) - JVS(26948) = 0 -! JVS(26949) = Jac_FULL(4693,4276) - JVS(26949) = 0 -! JVS(26950) = Jac_FULL(4693,4285) - JVS(26950) = 0 -! JVS(26951) = Jac_FULL(4693,4291) - JVS(26951) = 0 -! JVS(26952) = Jac_FULL(4693,4292) - JVS(26952) = 0 -! JVS(26953) = Jac_FULL(4693,4293) - JVS(26953) = 0 -! JVS(26954) = Jac_FULL(4693,4298) - JVS(26954) = 0 -! JVS(26955) = Jac_FULL(4693,4303) - JVS(26955) = 0 -! JVS(26956) = Jac_FULL(4693,4305) - JVS(26956) = 0 -! JVS(26957) = Jac_FULL(4693,4317) - JVS(26957) = 0 -! JVS(26958) = Jac_FULL(4693,4322) - JVS(26958) = 0 -! JVS(26959) = Jac_FULL(4693,4415) - JVS(26959) = 0 -! JVS(26960) = Jac_FULL(4693,4471) - JVS(26960) = 0 -! JVS(26961) = Jac_FULL(4693,4487) - JVS(26961) = 0 -! JVS(26962) = Jac_FULL(4693,4498) - JVS(26962) = 0 -! JVS(26963) = Jac_FULL(4693,4506) - JVS(26963) = 0 -! JVS(26964) = Jac_FULL(4693,4509) - JVS(26964) = 0 -! JVS(26965) = Jac_FULL(4693,4639) - JVS(26965) = 0 -! JVS(26966) = Jac_FULL(4693,4643) - JVS(26966) = 0 -! JVS(26967) = Jac_FULL(4693,4655) - JVS(26967) = 0 -! JVS(26968) = Jac_FULL(4693,4670) - JVS(26968) = 0 -! JVS(26969) = Jac_FULL(4693,4671) - JVS(26969) = 0 -! JVS(26970) = Jac_FULL(4693,4676) - JVS(26970) = 0 -! JVS(26971) = Jac_FULL(4693,4690) - JVS(26971) = 0 -! JVS(26972) = Jac_FULL(4693,4693) - JVS(26972) = -B(12502)-B(12503) -! JVS(26973) = Jac_FULL(4693,4694) - JVS(26973) = B(13208) -! JVS(26974) = Jac_FULL(4693,4772) - JVS(26974) = 0 -! JVS(26975) = Jac_FULL(4693,4788) - JVS(26975) = 0 -! JVS(26976) = Jac_FULL(4693,4810) - JVS(26976) = 0 -! JVS(26977) = Jac_FULL(4693,4946) - JVS(26977) = 0 -! JVS(26978) = Jac_FULL(4693,4993) - JVS(26978) = 0 -! JVS(26979) = Jac_FULL(4693,5003) - JVS(26979) = 0 -! JVS(26980) = Jac_FULL(4693,5040) - JVS(26980) = 0 -! JVS(26981) = Jac_FULL(4693,5075) - JVS(26981) = 0 -! JVS(26982) = Jac_FULL(4693,5102) - JVS(26982) = B(8871) -! JVS(26983) = Jac_FULL(4693,5133) - JVS(26983) = 0 -! JVS(26984) = Jac_FULL(4693,5155) - JVS(26984) = 0 -! JVS(26985) = Jac_FULL(4693,5250) - JVS(26985) = -B(12504) -! JVS(26986) = Jac_FULL(4693,5252) - JVS(26986) = 0 -! JVS(26987) = Jac_FULL(4693,5253) - JVS(26987) = 0 -! JVS(26988) = Jac_FULL(4693,5255) - JVS(26988) = 0 -! JVS(26989) = Jac_FULL(4693,5256) - JVS(26989) = 0 -! JVS(26990) = Jac_FULL(4693,5258) - JVS(26990) = 0 -! JVS(26991) = Jac_FULL(4694,705) - JVS(26991) = B(9762) -! JVS(26992) = Jac_FULL(4694,2728) - JVS(26992) = B(10193) -! JVS(26993) = Jac_FULL(4694,2768) - JVS(26993) = B(20212) -! JVS(26994) = Jac_FULL(4694,2847) - JVS(26994) = B(9834) -! JVS(26995) = Jac_FULL(4694,3246) - JVS(26995) = B(9841) -! JVS(26996) = Jac_FULL(4694,3295) - JVS(26996) = 0 -! JVS(26997) = Jac_FULL(4694,3296) - JVS(26997) = B(10200) -! JVS(26998) = Jac_FULL(4694,3494) - JVS(26998) = 0 -! JVS(26999) = Jac_FULL(4694,3631) - JVS(26999) = 0 -! JVS(27000) = Jac_FULL(4694,3632) - JVS(27000) = 0 -! JVS(27001) = Jac_FULL(4694,3641) - JVS(27001) = 0 -! JVS(27002) = Jac_FULL(4694,3648) - JVS(27002) = 0 -! JVS(27003) = Jac_FULL(4694,4182) - JVS(27003) = 0 -! JVS(27004) = Jac_FULL(4694,4694) - JVS(27004) = -B(13206)-B(13208) -! JVS(27005) = Jac_FULL(4694,4985) - JVS(27005) = B(9829) -! JVS(27006) = Jac_FULL(4694,5250) - JVS(27006) = -B(13207) -! JVS(27007) = Jac_FULL(4694,5252) - JVS(27007) = 0 -! JVS(27008) = Jac_FULL(4694,5253) - JVS(27008) = 0 -! JVS(27009) = Jac_FULL(4694,5255) - JVS(27009) = 0 -! JVS(27010) = Jac_FULL(4694,5256) - JVS(27010) = 0 -! JVS(27011) = Jac_FULL(4694,5258) - JVS(27011) = 0 -! JVS(27012) = Jac_FULL(4695,4695) - JVS(27012) = -B(1577)-B(1579)-B(1581)-B(1583)-B(1585)-B(1586)-B(1587) -! JVS(27013) = Jac_FULL(4695,4840) - JVS(27013) = B(254) -! JVS(27014) = Jac_FULL(4695,5250) - JVS(27014) = B(255) -! JVS(27015) = Jac_FULL(4695,5252) - JVS(27015) = -B(1580)-B(1582) -! JVS(27016) = Jac_FULL(4695,5255) - JVS(27016) = -B(1578) -! JVS(27017) = Jac_FULL(4695,5256) - JVS(27017) = -B(1584) -! JVS(27018) = Jac_FULL(4696,1641) - JVS(27018) = B(347)+B(353) -! JVS(27019) = Jac_FULL(4696,1751) - JVS(27019) = B(4576) -! JVS(27020) = Jac_FULL(4696,4696) - JVS(27020) = -B(1781)-B(1783)-B(1785)-B(1787)-B(1789)-B(1790)-B(1791) -! JVS(27021) = Jac_FULL(4696,5238) - JVS(27021) = B(348) -! JVS(27022) = Jac_FULL(4696,5250) - JVS(27022) = B(354)+B(4577) -! JVS(27023) = Jac_FULL(4696,5252) - JVS(27023) = -B(1784)-B(1786) -! JVS(27024) = Jac_FULL(4696,5255) - JVS(27024) = -B(1782) -! JVS(27025) = Jac_FULL(4696,5256) - JVS(27025) = -B(1788) -! JVS(27026) = Jac_FULL(4697,2889) - JVS(27026) = B(11910) -! JVS(27027) = Jac_FULL(4697,4334) - JVS(27027) = 0 -! JVS(27028) = Jac_FULL(4697,4697) - JVS(27028) = -B(15119)-B(15121)-B(15123)-B(15125)-B(15126)-B(15127) -! JVS(27029) = Jac_FULL(4697,5061) - JVS(27029) = 0 -! JVS(27030) = Jac_FULL(4697,5250) - JVS(27030) = 0 -! JVS(27031) = Jac_FULL(4697,5252) - JVS(27031) = -B(15122) -! JVS(27032) = Jac_FULL(4697,5255) - JVS(27032) = -B(15120) -! JVS(27033) = Jac_FULL(4697,5256) - JVS(27033) = -B(15124) -! JVS(27034) = Jac_FULL(4698,2118) - JVS(27034) = B(150) -! JVS(27035) = Jac_FULL(4698,3069) - JVS(27035) = B(7193) -! JVS(27036) = Jac_FULL(4698,3207) - JVS(27036) = B(3961) -! JVS(27037) = Jac_FULL(4698,4698) - JVS(27037) = -B(1192)-B(1194)-B(1196)-B(1198)-B(1199)-B(1200) -! JVS(27038) = Jac_FULL(4698,5032) - JVS(27038) = 0 -! JVS(27039) = Jac_FULL(4698,5250) - JVS(27039) = B(151)+B(3962) -! JVS(27040) = Jac_FULL(4698,5252) - JVS(27040) = -B(1195) -! JVS(27041) = Jac_FULL(4698,5255) - JVS(27041) = -B(1193) -! JVS(27042) = Jac_FULL(4698,5256) - JVS(27042) = -B(1197) -! JVS(27043) = Jac_FULL(4699,4083) - JVS(27043) = B(2531) -! JVS(27044) = Jac_FULL(4699,4699) - JVS(27044) = -B(5615)-B(5617)-B(5619)-B(5621)-B(5623)-B(5624)-B(5625) -! JVS(27045) = Jac_FULL(4699,5250) - JVS(27045) = B(2532) -! JVS(27046) = Jac_FULL(4699,5252) - JVS(27046) = -B(5618)-B(5620) -! JVS(27047) = Jac_FULL(4699,5255) - JVS(27047) = -B(5616) -! JVS(27048) = Jac_FULL(4699,5256) - JVS(27048) = -B(5622) -! JVS(27049) = Jac_FULL(4699,5258) - JVS(27049) = 0 -! JVS(27050) = Jac_FULL(4700,2069) - JVS(27050) = B(5029) -! JVS(27051) = Jac_FULL(4700,4508) - JVS(27051) = B(525) -! JVS(27052) = Jac_FULL(4700,4700) - JVS(27052) = -B(2179)-B(2181)-B(2183)-B(2185)-B(2186)-B(2187) -! JVS(27053) = Jac_FULL(4700,5250) - JVS(27053) = B(5030) -! JVS(27054) = Jac_FULL(4700,5252) - JVS(27054) = -B(2182) -! JVS(27055) = Jac_FULL(4700,5255) - JVS(27055) = -B(2180) -! JVS(27056) = Jac_FULL(4700,5256) - JVS(27056) = B(526)-B(2184) -! JVS(27057) = Jac_FULL(4700,5258) - JVS(27057) = 0 -! JVS(27058) = Jac_FULL(4701,4032) - JVS(27058) = B(2587) -! JVS(27059) = Jac_FULL(4701,4701) - JVS(27059) = -B(5733)-B(5735)-B(5737)-B(5739)-B(5741)-B(5742)-B(5743) -! JVS(27060) = Jac_FULL(4701,5250) - JVS(27060) = B(2588) -! JVS(27061) = Jac_FULL(4701,5252) - JVS(27061) = -B(5736)-B(5738) -! JVS(27062) = Jac_FULL(4701,5255) - JVS(27062) = -B(5734) -! JVS(27063) = Jac_FULL(4701,5256) - JVS(27063) = -B(5740) -! JVS(27064) = Jac_FULL(4701,5258) - JVS(27064) = 0 -! JVS(27065) = Jac_FULL(4702,1940) - JVS(27065) = B(5160) -! JVS(27066) = Jac_FULL(4702,4604) - JVS(27066) = B(563) -! JVS(27067) = Jac_FULL(4702,4606) - JVS(27067) = B(575) -! JVS(27068) = Jac_FULL(4702,4702) - JVS(27068) = -B(2286)-B(2288)-B(2290)-B(2292)-B(2293)-B(2294) -! JVS(27069) = Jac_FULL(4702,5250) - JVS(27069) = B(5161) -! JVS(27070) = Jac_FULL(4702,5252) - JVS(27070) = -B(2289) -! JVS(27071) = Jac_FULL(4702,5255) - JVS(27071) = -B(2287) -! JVS(27072) = Jac_FULL(4702,5256) - JVS(27072) = B(564)+B(576)-B(2291) -! JVS(27073) = Jac_FULL(4702,5258) - JVS(27073) = 0 -! JVS(27074) = Jac_FULL(4703,4703) - JVS(27074) = -B(13331)-B(13333)-B(13335)-B(13337)-B(13338)-B(13339) -! JVS(27075) = Jac_FULL(4703,5103) - JVS(27075) = B(10062) -! JVS(27076) = Jac_FULL(4703,5250) - JVS(27076) = B(10063) -! JVS(27077) = Jac_FULL(4703,5252) - JVS(27077) = -B(13334) -! JVS(27078) = Jac_FULL(4703,5255) - JVS(27078) = -B(13332) -! JVS(27079) = Jac_FULL(4703,5256) - JVS(27079) = -B(13336) -! JVS(27080) = Jac_FULL(4704,4704) - JVS(27080) = -B(15079)-B(15081)-B(15083)-B(15085)-B(15087)-B(15088)-B(15089) -! JVS(27081) = Jac_FULL(4704,5064) - JVS(27081) = B(11876) -! JVS(27082) = Jac_FULL(4704,5250) - JVS(27082) = B(11877) -! JVS(27083) = Jac_FULL(4704,5252) - JVS(27083) = -B(15082)-B(15084) -! JVS(27084) = Jac_FULL(4704,5255) - JVS(27084) = -B(15080) -! JVS(27085) = Jac_FULL(4704,5256) - JVS(27085) = -B(15086) -! JVS(27086) = Jac_FULL(4705,3540) - JVS(27086) = B(4122) -! JVS(27087) = Jac_FULL(4705,4705) - JVS(27087) = -B(1343)-B(1345)-B(1347)-B(1349)-B(1351)-B(1352)-B(1353) -! JVS(27088) = Jac_FULL(4705,5230) - JVS(27088) = B(191) -! JVS(27089) = Jac_FULL(4705,5250) - JVS(27089) = B(192)+B(4123) -! JVS(27090) = Jac_FULL(4705,5252) - JVS(27090) = -B(1346)-B(1348) -! JVS(27091) = Jac_FULL(4705,5255) - JVS(27091) = -B(1344) -! JVS(27092) = Jac_FULL(4705,5256) - JVS(27092) = -B(1350) -! JVS(27093) = Jac_FULL(4706,3455) - JVS(27093) = B(15788) -! JVS(27094) = Jac_FULL(4706,4706) - JVS(27094) = -B(12736)-B(12738)-B(12740)-B(12742)-B(12743)-B(12744) -! JVS(27095) = Jac_FULL(4706,5037) - JVS(27095) = B(9183) -! JVS(27096) = Jac_FULL(4706,5250) - JVS(27096) = B(9184)+B(15789) -! JVS(27097) = Jac_FULL(4706,5252) - JVS(27097) = -B(12739) -! JVS(27098) = Jac_FULL(4706,5255) - JVS(27098) = -B(12737) -! JVS(27099) = Jac_FULL(4706,5256) - JVS(27099) = -B(12741) -! JVS(27100) = Jac_FULL(4707,3834) - JVS(27100) = B(2444) -! JVS(27101) = Jac_FULL(4707,4707) - JVS(27101) = -B(5431)-B(5433)-B(5435)-B(5437)-B(5439)-B(5440)-B(5441) -! JVS(27102) = Jac_FULL(4707,5250) - JVS(27102) = B(2445) -! JVS(27103) = Jac_FULL(4707,5252) - JVS(27103) = -B(5434)-B(5436) -! JVS(27104) = Jac_FULL(4707,5255) - JVS(27104) = -B(5432) -! JVS(27105) = Jac_FULL(4707,5256) - JVS(27105) = -B(5438) -! JVS(27106) = Jac_FULL(4707,5258) - JVS(27106) = 0 -! JVS(27107) = Jac_FULL(4708,1570) - JVS(27107) = B(12396) -! JVS(27108) = Jac_FULL(4708,2485) - JVS(27108) = B(15898) -! JVS(27109) = Jac_FULL(4708,3446) - JVS(27109) = B(12388) -! JVS(27110) = Jac_FULL(4708,3453) - JVS(27110) = B(15890) -! JVS(27111) = Jac_FULL(4708,3573) - JVS(27111) = B(8969) -! JVS(27112) = Jac_FULL(4708,3576) - JVS(27112) = B(8722) -! JVS(27113) = Jac_FULL(4708,3606) - JVS(27113) = B(9943) -! JVS(27114) = Jac_FULL(4708,4358) - JVS(27114) = 0 -! JVS(27115) = Jac_FULL(4708,4575) - JVS(27115) = 0 -! JVS(27116) = Jac_FULL(4708,4707) - JVS(27116) = 0 -! JVS(27117) = Jac_FULL(4708,4708) - JVS(27117) = -B(4243)-B(4245) -! JVS(27118) = Jac_FULL(4708,4720) - JVS(27118) = 0 -! JVS(27119) = Jac_FULL(4708,4823) - JVS(27119) = B(8713) -! JVS(27120) = Jac_FULL(4708,4877) - JVS(27120) = 0 -! JVS(27121) = Jac_FULL(4708,4932) - JVS(27121) = B(1469)+B(1479) -! JVS(27122) = Jac_FULL(4708,5058) - JVS(27122) = 0 -! JVS(27123) = Jac_FULL(4708,5250) - JVS(27123) = -B(4244) -! JVS(27124) = Jac_FULL(4708,5252) - JVS(27124) = 0 -! JVS(27125) = Jac_FULL(4708,5255) - JVS(27125) = B(1470) -! JVS(27126) = Jac_FULL(4708,5256) - JVS(27126) = 0 -! JVS(27127) = Jac_FULL(4708,5258) - JVS(27127) = 0 -! JVS(27128) = Jac_FULL(4709,4164) - JVS(27128) = B(12151) -! JVS(27129) = Jac_FULL(4709,4709) - JVS(27129) = -B(15382)-B(15384)-B(15386)-B(15388)-B(15390)-B(15391)-B(15392) -! JVS(27130) = Jac_FULL(4709,5065) - JVS(27130) = 0 -! JVS(27131) = Jac_FULL(4709,5250) - JVS(27131) = B(12152) -! JVS(27132) = Jac_FULL(4709,5252) - JVS(27132) = -B(15385)-B(15387) -! JVS(27133) = Jac_FULL(4709,5255) - JVS(27133) = -B(15383) -! JVS(27134) = Jac_FULL(4709,5256) - JVS(27134) = -B(15389) -! JVS(27135) = Jac_FULL(4710,2562) - JVS(27135) = B(17990) -! JVS(27136) = Jac_FULL(4710,2676) - JVS(27136) = B(17983) -! JVS(27137) = Jac_FULL(4710,2874) - JVS(27137) = B(17953) -! JVS(27138) = Jac_FULL(4710,3282) - JVS(27138) = B(21279) -! JVS(27139) = Jac_FULL(4710,3306) - JVS(27139) = B(21266) -! JVS(27140) = Jac_FULL(4710,3548) - JVS(27140) = B(17991) -! JVS(27141) = Jac_FULL(4710,4238) - JVS(27141) = 0 -! JVS(27142) = Jac_FULL(4710,4254) - JVS(27142) = 0 -! JVS(27143) = Jac_FULL(4710,4417) - JVS(27143) = 0 -! JVS(27144) = Jac_FULL(4710,4450) - JVS(27144) = 0 -! JVS(27145) = Jac_FULL(4710,4709) - JVS(27145) = 0 -! JVS(27146) = Jac_FULL(4710,4710) - JVS(27146) = -B(19815)-B(19816)-B(19818) -! JVS(27147) = Jac_FULL(4710,5065) - JVS(27147) = 0 -! JVS(27148) = Jac_FULL(4710,5138) - JVS(27148) = 0 -! JVS(27149) = Jac_FULL(4710,5250) - JVS(27149) = -B(19819)+B(21267)+B(21280) -! JVS(27150) = Jac_FULL(4710,5252) - JVS(27150) = 0 -! JVS(27151) = Jac_FULL(4710,5253) - JVS(27151) = 0 -! JVS(27152) = Jac_FULL(4710,5255) - JVS(27152) = 0 -! JVS(27153) = Jac_FULL(4710,5256) - JVS(27153) = -B(19817) -! JVS(27154) = Jac_FULL(4711,4711) - JVS(27154) = -B(13811)-B(13813)-B(13815)-B(13817)-B(13819) -! JVS(27155) = Jac_FULL(4711,5220) - JVS(27155) = B(10604) -! JVS(27156) = Jac_FULL(4711,5250) - JVS(27156) = B(10605) -! JVS(27157) = Jac_FULL(4711,5252) - JVS(27157) = -B(13814)-B(13816) -! JVS(27158) = Jac_FULL(4711,5255) - JVS(27158) = -B(13812) -! JVS(27159) = Jac_FULL(4711,5256) - JVS(27159) = -B(13818) -! JVS(27160) = Jac_FULL(4712,4122) - JVS(27160) = B(12115) -! JVS(27161) = Jac_FULL(4712,4712) - JVS(27161) = -B(15326)-B(15328)-B(15330)-B(15332)-B(15334)-B(15335)-B(15336) -! JVS(27162) = Jac_FULL(4712,5107) - JVS(27162) = 0 -! JVS(27163) = Jac_FULL(4712,5250) - JVS(27163) = B(12116) -! JVS(27164) = Jac_FULL(4712,5252) - JVS(27164) = -B(15329)-B(15331) -! JVS(27165) = Jac_FULL(4712,5255) - JVS(27165) = -B(15327) -! JVS(27166) = Jac_FULL(4712,5256) - JVS(27166) = -B(15333) -! JVS(27167) = Jac_FULL(4713,4103) - JVS(27167) = B(12097) -! JVS(27168) = Jac_FULL(4713,4713) - JVS(27168) = -B(15298)-B(15300)-B(15302)-B(15304)-B(15306)-B(15307)-B(15308) -! JVS(27169) = Jac_FULL(4713,5112) - JVS(27169) = 0 -! JVS(27170) = Jac_FULL(4713,5250) - JVS(27170) = B(12098) -! JVS(27171) = Jac_FULL(4713,5252) - JVS(27171) = -B(15301)-B(15303) -! JVS(27172) = Jac_FULL(4713,5255) - JVS(27172) = -B(15299) -! JVS(27173) = Jac_FULL(4713,5256) - JVS(27173) = -B(15305) -! JVS(27174) = Jac_FULL(4714,2413) - JVS(27174) = B(4974) -! JVS(27175) = Jac_FULL(4714,4332) - JVS(27175) = B(489) -! JVS(27176) = Jac_FULL(4714,4475) - JVS(27176) = B(501) -! JVS(27177) = Jac_FULL(4714,4714) - JVS(27177) = -B(2127)-B(2129)-B(2131)-B(2133)-B(2134)-B(2135) -! JVS(27178) = Jac_FULL(4714,5250) - JVS(27178) = B(4975) -! JVS(27179) = Jac_FULL(4714,5252) - JVS(27179) = -B(2130) -! JVS(27180) = Jac_FULL(4714,5255) - JVS(27180) = -B(2128) -! JVS(27181) = Jac_FULL(4714,5256) - JVS(27181) = B(490)+B(502)-B(2132) -! JVS(27182) = Jac_FULL(4714,5258) - JVS(27182) = 0 -! JVS(27183) = Jac_FULL(4715,4179) - JVS(27183) = B(12133) -! JVS(27184) = Jac_FULL(4715,4715) - JVS(27184) = -B(15354)-B(15356)-B(15358)-B(15360)-B(15362)-B(15363)-B(15364) -! JVS(27185) = Jac_FULL(4715,5138) - JVS(27185) = 0 -! JVS(27186) = Jac_FULL(4715,5250) - JVS(27186) = B(12134) -! JVS(27187) = Jac_FULL(4715,5252) - JVS(27187) = -B(15357)-B(15359) -! JVS(27188) = Jac_FULL(4715,5255) - JVS(27188) = -B(15355) -! JVS(27189) = Jac_FULL(4715,5256) - JVS(27189) = -B(15361) -! JVS(27190) = Jac_FULL(4716,3917) - JVS(27190) = B(12079) -! JVS(27191) = Jac_FULL(4716,4716) - JVS(27191) = -B(15277)-B(15279)-B(15281)-B(15283)-B(15285)-B(15286)-B(15287) -! JVS(27192) = Jac_FULL(4716,5144) - JVS(27192) = 0 -! JVS(27193) = Jac_FULL(4716,5250) - JVS(27193) = B(12080) -! JVS(27194) = Jac_FULL(4716,5252) - JVS(27194) = -B(15280)-B(15282) -! JVS(27195) = Jac_FULL(4716,5255) - JVS(27195) = -B(15278) -! JVS(27196) = Jac_FULL(4716,5256) - JVS(27196) = -B(15284) -! JVS(27197) = Jac_FULL(4717,1599) - JVS(27197) = B(7183) -! JVS(27198) = Jac_FULL(4717,2213) - JVS(27198) = B(7173) -! JVS(27199) = Jac_FULL(4717,2401) - JVS(27199) = B(7168) -! JVS(27200) = Jac_FULL(4717,4356) - JVS(27200) = B(3363) -! JVS(27201) = Jac_FULL(4717,4717) - JVS(27201) = -B(7177)-B(7179)-B(7181)-B(7182) -! JVS(27202) = Jac_FULL(4717,5186) - JVS(27202) = 0 -! JVS(27203) = Jac_FULL(4717,5250) - JVS(27203) = B(7169)+B(7174)-B(7180)+B(7184) -! JVS(27204) = Jac_FULL(4717,5252) - JVS(27204) = 0 -! JVS(27205) = Jac_FULL(4717,5255) - JVS(27205) = 0 -! JVS(27206) = Jac_FULL(4717,5256) - JVS(27206) = -B(7178) -! JVS(27207) = Jac_FULL(4718,4056) - JVS(27207) = B(2488) -! JVS(27208) = Jac_FULL(4718,4718) - JVS(27208) = -B(5529)-B(5531)-B(5533)-B(5535)-B(5537)-B(5538)-B(5539) -! JVS(27209) = Jac_FULL(4718,5250) - JVS(27209) = B(2489) -! JVS(27210) = Jac_FULL(4718,5252) - JVS(27210) = -B(5532)-B(5534) -! JVS(27211) = Jac_FULL(4718,5255) - JVS(27211) = -B(5530) -! JVS(27212) = Jac_FULL(4718,5256) - JVS(27212) = -B(5536) -! JVS(27213) = Jac_FULL(4718,5258) - JVS(27213) = 0 -! JVS(27214) = Jac_FULL(4719,2114) - JVS(27214) = B(12326) -! JVS(27215) = Jac_FULL(4719,3376) - JVS(27215) = B(5165) -! JVS(27216) = Jac_FULL(4719,3842) - JVS(27216) = 0 -! JVS(27217) = Jac_FULL(4719,4702) - JVS(27217) = 0 -! JVS(27218) = Jac_FULL(4719,4719) - JVS(27218) = -B(8655)-B(8657)-B(8659)-B(8661)-B(8662)-B(8663) -! JVS(27219) = Jac_FULL(4719,5250) - JVS(27219) = B(5166)+B(12327) -! JVS(27220) = Jac_FULL(4719,5252) - JVS(27220) = -B(8658) -! JVS(27221) = Jac_FULL(4719,5255) - JVS(27221) = -B(8656) -! JVS(27222) = Jac_FULL(4719,5256) - JVS(27222) = -B(8660) -! JVS(27223) = Jac_FULL(4719,5258) - JVS(27223) = 0 -! JVS(27224) = Jac_FULL(4720,4396) - JVS(27224) = B(2359) -! JVS(27225) = Jac_FULL(4720,4720) - JVS(27225) = -B(5238)-B(5240)-B(5242)-B(5244)-B(5246)-B(5247)-B(5248) -! JVS(27226) = Jac_FULL(4720,5250) - JVS(27226) = B(2360) -! JVS(27227) = Jac_FULL(4720,5252) - JVS(27227) = -B(5241)-B(5243) -! JVS(27228) = Jac_FULL(4720,5255) - JVS(27228) = -B(5239) -! JVS(27229) = Jac_FULL(4720,5256) - JVS(27229) = -B(5245) -! JVS(27230) = Jac_FULL(4720,5258) - JVS(27230) = 0 -! JVS(27231) = Jac_FULL(4721,3285) - JVS(27231) = B(8721) -! JVS(27232) = Jac_FULL(4721,3352) - JVS(27232) = B(9586)+B(9588) -! JVS(27233) = Jac_FULL(4721,3353) - JVS(27233) = B(9583) -! JVS(27234) = Jac_FULL(4721,3356) - JVS(27234) = B(9354)+B(9356) -! JVS(27235) = Jac_FULL(4721,3357) - JVS(27235) = B(9351) -! JVS(27236) = Jac_FULL(4721,3378) - JVS(27236) = B(8881)+B(8883) -! JVS(27237) = Jac_FULL(4721,3379) - JVS(27237) = B(8878) -! JVS(27238) = Jac_FULL(4721,3426) - JVS(27238) = B(9475)+B(9477) -! JVS(27239) = Jac_FULL(4721,3427) - JVS(27239) = B(9472) -! JVS(27240) = Jac_FULL(4721,3576) - JVS(27240) = B(8723) -! JVS(27241) = Jac_FULL(4721,3588) - JVS(27241) = B(9353) -! JVS(27242) = Jac_FULL(4721,3589) - JVS(27242) = B(8880) -! JVS(27243) = Jac_FULL(4721,4010) - JVS(27243) = B(2409)+B(2416) -! JVS(27244) = Jac_FULL(4721,4032) - JVS(27244) = B(2583)+B(2590) -! JVS(27245) = Jac_FULL(4721,4093) - JVS(27245) = B(2670)+B(2677) -! JVS(27246) = Jac_FULL(4721,4094) - JVS(27246) = B(2627)+B(2634) -! JVS(27247) = Jac_FULL(4721,4377) - JVS(27247) = 0 -! JVS(27248) = Jac_FULL(4721,4388) - JVS(27248) = B(9474) -! JVS(27249) = Jac_FULL(4721,4393) - JVS(27249) = B(9585) -! JVS(27250) = Jac_FULL(4721,4396) - JVS(27250) = B(2355) -! JVS(27251) = Jac_FULL(4721,4701) - JVS(27251) = 0 -! JVS(27252) = Jac_FULL(4721,4720) - JVS(27252) = 0 -! JVS(27253) = Jac_FULL(4721,4721) - JVS(27253) = -B(5229)-B(5231)-B(5233) -! JVS(27254) = Jac_FULL(4721,4821) - JVS(27254) = 0 -! JVS(27255) = Jac_FULL(4721,4928) - JVS(27255) = 0 -! JVS(27256) = Jac_FULL(4721,5250) - JVS(27256) = -B(5232)+B(8882)+B(9355)+B(9476)+B(9587) -! JVS(27257) = Jac_FULL(4721,5252) - JVS(27257) = 0 -! JVS(27258) = Jac_FULL(4721,5255) - JVS(27258) = 0 -! JVS(27259) = Jac_FULL(4721,5256) - JVS(27259) = -B(5230) -! JVS(27260) = Jac_FULL(4721,5258) - JVS(27260) = B(2356)+B(2410)+B(2584)+B(2628)+B(2671) -! JVS(27261) = Jac_FULL(4722,184) - JVS(27261) = B(4704) -! JVS(27262) = Jac_FULL(4722,870) - JVS(27262) = 0 -! JVS(27263) = Jac_FULL(4722,1326) - JVS(27263) = B(12011) -! JVS(27264) = Jac_FULL(4722,2094) - JVS(27264) = 0 -! JVS(27265) = Jac_FULL(4722,4722) - JVS(27265) = -B(8267)-B(8269)-B(8271)-B(8273)-B(8275)-B(8276) -! JVS(27266) = Jac_FULL(4722,5146) - JVS(27266) = 0 -! JVS(27267) = Jac_FULL(4722,5250) - JVS(27267) = B(12012) -! JVS(27268) = Jac_FULL(4722,5252) - JVS(27268) = -B(8270)-B(8272) -! JVS(27269) = Jac_FULL(4722,5255) - JVS(27269) = -B(8268) -! JVS(27270) = Jac_FULL(4722,5256) - JVS(27270) = -B(8274) -! JVS(27271) = Jac_FULL(4723,2366) - JVS(27271) = B(5075) -! JVS(27272) = Jac_FULL(4723,4474) - JVS(27272) = B(537) -! JVS(27273) = Jac_FULL(4723,4723) - JVS(27273) = -B(2212)-B(2214)-B(2216)-B(2218)-B(2219)-B(2220) -! JVS(27274) = Jac_FULL(4723,5250) - JVS(27274) = B(5076) -! JVS(27275) = Jac_FULL(4723,5252) - JVS(27275) = -B(2215) -! JVS(27276) = Jac_FULL(4723,5255) - JVS(27276) = -B(2213) -! JVS(27277) = Jac_FULL(4723,5256) - JVS(27277) = B(538)-B(2217) -! JVS(27278) = Jac_FULL(4723,5258) - JVS(27278) = 0 -! JVS(27279) = Jac_FULL(4724,2080) - JVS(27279) = B(12184) -! JVS(27280) = Jac_FULL(4724,3077) - JVS(27280) = B(4847) -! JVS(27281) = Jac_FULL(4724,3942) - JVS(27281) = 0 -! JVS(27282) = Jac_FULL(4724,4579) - JVS(27282) = 0 -! JVS(27283) = Jac_FULL(4724,4724) - JVS(27283) = -B(8454)-B(8456)-B(8458)-B(8460)-B(8461)-B(8462) -! JVS(27284) = Jac_FULL(4724,5051) - JVS(27284) = 0 -! JVS(27285) = Jac_FULL(4724,5250) - JVS(27285) = B(4848)+B(12185) -! JVS(27286) = Jac_FULL(4724,5252) - JVS(27286) = -B(8457) -! JVS(27287) = Jac_FULL(4724,5255) - JVS(27287) = -B(8455) -! JVS(27288) = Jac_FULL(4724,5256) - JVS(27288) = -B(8459) -! JVS(27289) = Jac_FULL(4725,4080) - JVS(27289) = B(2861) -! JVS(27290) = Jac_FULL(4725,4725) - JVS(27290) = -B(6302)-B(6304)-B(6306)-B(6308)-B(6310)-B(6311)-B(6312) -! JVS(27291) = Jac_FULL(4725,5250) - JVS(27291) = B(2862) -! JVS(27292) = Jac_FULL(4725,5252) - JVS(27292) = -B(6305)-B(6307) -! JVS(27293) = Jac_FULL(4725,5255) - JVS(27293) = -B(6303) -! JVS(27294) = Jac_FULL(4725,5256) - JVS(27294) = -B(6309) -! JVS(27295) = Jac_FULL(4725,5258) - JVS(27295) = 0 -! JVS(27296) = Jac_FULL(4726,264) - JVS(27296) = B(16203) -! JVS(27297) = Jac_FULL(4726,1455) - JVS(27297) = B(20183) -! JVS(27298) = Jac_FULL(4726,3305) - JVS(27298) = 0 -! JVS(27299) = Jac_FULL(4726,3318) - JVS(27299) = 0 -! JVS(27300) = Jac_FULL(4726,4000) - JVS(27300) = 0 -! JVS(27301) = Jac_FULL(4726,4139) - JVS(27301) = 0 -! JVS(27302) = Jac_FULL(4726,4726) - JVS(27302) = -B(18523)-B(18525)-B(18527)-B(18529) -! JVS(27303) = Jac_FULL(4726,5250) - JVS(27303) = B(16204)+B(20184) -! JVS(27304) = Jac_FULL(4726,5252) - JVS(27304) = -B(18526) -! JVS(27305) = Jac_FULL(4726,5253) - JVS(27305) = 0 -! JVS(27306) = Jac_FULL(4726,5255) - JVS(27306) = -B(18524) -! JVS(27307) = Jac_FULL(4726,5256) - JVS(27307) = -B(18528) -! JVS(27308) = Jac_FULL(4727,4272) - JVS(27308) = B(2893) -! JVS(27309) = Jac_FULL(4727,4727) - JVS(27309) = -B(6374)-B(6376)-B(6378)-B(6380)-B(6382)-B(6383)-B(6384) -! JVS(27310) = Jac_FULL(4727,5250) - JVS(27310) = B(2894) -! JVS(27311) = Jac_FULL(4727,5252) - JVS(27311) = -B(6377)-B(6379) -! JVS(27312) = Jac_FULL(4727,5255) - JVS(27312) = -B(6375) -! JVS(27313) = Jac_FULL(4727,5256) - JVS(27313) = -B(6381) -! JVS(27314) = Jac_FULL(4727,5258) - JVS(27314) = 0 -! JVS(27315) = Jac_FULL(4728,2485) - JVS(27315) = B(15899) -! JVS(27316) = Jac_FULL(4728,3565) - JVS(27316) = B(16356) -! JVS(27317) = Jac_FULL(4728,3570) - JVS(27317) = B(10081) -! JVS(27318) = Jac_FULL(4728,3588) - JVS(27318) = B(9352) -! JVS(27319) = Jac_FULL(4728,3610) - JVS(27319) = B(10006) -! JVS(27320) = Jac_FULL(4728,4701) - JVS(27320) = 0 -! JVS(27321) = Jac_FULL(4728,4703) - JVS(27321) = 0 -! JVS(27322) = Jac_FULL(4728,4725) - JVS(27322) = 0 -! JVS(27323) = Jac_FULL(4728,4727) - JVS(27323) = 0 -! JVS(27324) = Jac_FULL(4728,4728) - JVS(27324) = -B(12849)-B(12851)-B(12852) -! JVS(27325) = Jac_FULL(4728,4877) - JVS(27325) = 0 -! JVS(27326) = Jac_FULL(4728,5103) - JVS(27326) = 0 -! JVS(27327) = Jac_FULL(4728,5250) - JVS(27327) = -B(12850) -! JVS(27328) = Jac_FULL(4728,5252) - JVS(27328) = 0 -! JVS(27329) = Jac_FULL(4728,5255) - JVS(27329) = 0 -! JVS(27330) = Jac_FULL(4728,5256) - JVS(27330) = 0 -! JVS(27331) = Jac_FULL(4728,5258) - JVS(27331) = 0 -! JVS(27332) = Jac_FULL(4729,3271) - JVS(27332) = B(10080) -! JVS(27333) = Jac_FULL(4729,3322) - JVS(27333) = B(10005) -! JVS(27334) = Jac_FULL(4729,3339) - JVS(27334) = B(9203)+B(9205) -! JVS(27335) = Jac_FULL(4729,3340) - JVS(27335) = B(9200) -! JVS(27336) = Jac_FULL(4729,3345) - JVS(27336) = B(10083)+B(10085) -! JVS(27337) = Jac_FULL(4729,3359) - JVS(27337) = B(9113)+B(9115) -! JVS(27338) = Jac_FULL(4729,3360) - JVS(27338) = B(9110) -! JVS(27339) = Jac_FULL(4729,3411) - JVS(27339) = B(10008)+B(10010) -! JVS(27340) = Jac_FULL(4729,3570) - JVS(27340) = B(10082) -! JVS(27341) = Jac_FULL(4729,3605) - JVS(27341) = B(9202) -! JVS(27342) = Jac_FULL(4729,3610) - JVS(27342) = B(10007) -! JVS(27343) = Jac_FULL(4729,3614) - JVS(27343) = B(9112) -! JVS(27344) = Jac_FULL(4729,4056) - JVS(27344) = B(2484)+B(2491) -! JVS(27345) = Jac_FULL(4729,4080) - JVS(27345) = B(2857)+B(2864) -! JVS(27346) = Jac_FULL(4729,4083) - JVS(27346) = B(2527)+B(2534) -! JVS(27347) = Jac_FULL(4729,4272) - JVS(27347) = B(2889)+B(2896) -! JVS(27348) = Jac_FULL(4729,4699) - JVS(27348) = 0 -! JVS(27349) = Jac_FULL(4729,4718) - JVS(27349) = 0 -! JVS(27350) = Jac_FULL(4729,4725) - JVS(27350) = 0 -! JVS(27351) = Jac_FULL(4729,4727) - JVS(27351) = 0 -! JVS(27352) = Jac_FULL(4729,4729) - JVS(27352) = -B(5524)-B(5526)-B(5528) -! JVS(27353) = Jac_FULL(4729,5250) - JVS(27353) = -B(5527)+B(9114)+B(9204)+B(10009)+B(10084) -! JVS(27354) = Jac_FULL(4729,5252) - JVS(27354) = 0 -! JVS(27355) = Jac_FULL(4729,5255) - JVS(27355) = 0 -! JVS(27356) = Jac_FULL(4729,5256) - JVS(27356) = -B(5525) -! JVS(27357) = Jac_FULL(4729,5258) - JVS(27357) = B(2485)+B(2528)+B(2858)+B(2890) -! JVS(27358) = Jac_FULL(4730,2539) - JVS(27358) = B(7006) -! JVS(27359) = Jac_FULL(4730,3049) - JVS(27359) = B(14015) -! JVS(27360) = Jac_FULL(4730,4730) - JVS(27360) = -B(10821)-B(10823)-B(10825)-B(10827)-B(10828)-B(10829) -! JVS(27361) = Jac_FULL(4730,5246) - JVS(27361) = 0 -! JVS(27362) = Jac_FULL(4730,5250) - JVS(27362) = B(14016) -! JVS(27363) = Jac_FULL(4730,5252) - JVS(27363) = -B(10824) -! JVS(27364) = Jac_FULL(4730,5255) - JVS(27364) = -B(10822) -! JVS(27365) = Jac_FULL(4730,5256) - JVS(27365) = -B(10826) -! JVS(27366) = Jac_FULL(4731,2700) - JVS(27366) = B(22268) -! JVS(27367) = Jac_FULL(4731,3709) - JVS(27367) = B(20223) -! JVS(27368) = Jac_FULL(4731,4153) - JVS(27368) = 0 -! JVS(27369) = Jac_FULL(4731,4731) - JVS(27369) = -B(21468)-B(21470)-B(21472)-B(21474)-B(21476)-B(21478) -! JVS(27370) = Jac_FULL(4731,5250) - JVS(27370) = 0 -! JVS(27371) = Jac_FULL(4731,5252) - JVS(27371) = -B(21473) -! JVS(27372) = Jac_FULL(4731,5253) - JVS(27372) = -B(21475) -! JVS(27373) = Jac_FULL(4731,5255) - JVS(27373) = -B(21469)-B(21471) -! JVS(27374) = Jac_FULL(4731,5256) - JVS(27374) = -B(21477) -! JVS(27375) = Jac_FULL(4732,4732) - JVS(27375) = -B(10337)-B(10339)-B(10341)-B(10343)-B(10344)-B(10345) -! JVS(27376) = Jac_FULL(4732,5050) - JVS(27376) = B(6635) -! JVS(27377) = Jac_FULL(4732,5250) - JVS(27377) = B(6636) -! JVS(27378) = Jac_FULL(4732,5252) - JVS(27378) = -B(10340) -! JVS(27379) = Jac_FULL(4732,5255) - JVS(27379) = -B(10338) -! JVS(27380) = Jac_FULL(4732,5256) - JVS(27380) = -B(10342) -! JVS(27381) = Jac_FULL(4733,1966) - JVS(27381) = B(4519) -! JVS(27382) = Jac_FULL(4733,2385) - JVS(27382) = B(331)+B(339) -! JVS(27383) = Jac_FULL(4733,4733) - JVS(27383) = -B(1738)-B(1740)-B(1742)-B(1744)-B(1746)-B(1747)-B(1748) -! JVS(27384) = Jac_FULL(4733,5238) - JVS(27384) = B(332) -! JVS(27385) = Jac_FULL(4733,5250) - JVS(27385) = B(340)+B(4520) -! JVS(27386) = Jac_FULL(4733,5252) - JVS(27386) = -B(1741)-B(1743) -! JVS(27387) = Jac_FULL(4733,5255) - JVS(27387) = -B(1739) -! JVS(27388) = Jac_FULL(4733,5256) - JVS(27388) = -B(1745) -! JVS(27389) = Jac_FULL(4734,965) - JVS(27389) = B(22110) -! JVS(27390) = Jac_FULL(4734,3497) - JVS(27390) = B(19515) -! JVS(27391) = Jac_FULL(4734,4363) - JVS(27391) = 0 -! JVS(27392) = Jac_FULL(4734,4394) - JVS(27392) = 0 -! JVS(27393) = Jac_FULL(4734,4734) - JVS(27393) = -B(21081)-B(21083)-B(21085)-B(21087)-B(21088) -! JVS(27394) = Jac_FULL(4734,5206) - JVS(27394) = 0 -! JVS(27395) = Jac_FULL(4734,5250) - JVS(27395) = B(19516)+B(22111) -! JVS(27396) = Jac_FULL(4734,5252) - JVS(27396) = -B(21084) -! JVS(27397) = Jac_FULL(4734,5255) - JVS(27397) = -B(21082) -! JVS(27398) = Jac_FULL(4734,5256) - JVS(27398) = -B(21086) -! JVS(27399) = Jac_FULL(4735,4735) - JVS(27399) = -B(14962)-B(14964)-B(14966)-B(14968)-B(14970)-B(14971)-B(14972) -! JVS(27400) = Jac_FULL(4735,5140) - JVS(27400) = B(11756) -! JVS(27401) = Jac_FULL(4735,5250) - JVS(27401) = B(11757) -! JVS(27402) = Jac_FULL(4735,5252) - JVS(27402) = -B(14965)-B(14967) -! JVS(27403) = Jac_FULL(4735,5255) - JVS(27403) = -B(14963) -! JVS(27404) = Jac_FULL(4735,5256) - JVS(27404) = -B(14969) -! JVS(27405) = Jac_FULL(4736,316) - JVS(27405) = B(4561) -! JVS(27406) = Jac_FULL(4736,2194) - JVS(27406) = B(4550) -! JVS(27407) = Jac_FULL(4736,2355) - JVS(27407) = B(4545) -! JVS(27408) = Jac_FULL(4736,3779) - JVS(27408) = B(4553) -! JVS(27409) = Jac_FULL(4736,4571) - JVS(27409) = B(1768) -! JVS(27410) = Jac_FULL(4736,4736) - JVS(27410) = -B(4555)-B(4556)-B(4557)-B(4559) -! JVS(27411) = Jac_FULL(4736,5238) - JVS(27411) = 0 -! JVS(27412) = Jac_FULL(4736,5250) - JVS(27412) = B(4546)+B(4551)-B(4558)-B(4560)+B(4562) -! JVS(27413) = Jac_FULL(4736,5252) - JVS(27413) = 0 -! JVS(27414) = Jac_FULL(4736,5255) - JVS(27414) = 0 -! JVS(27415) = Jac_FULL(4736,5256) - JVS(27415) = 0 -! JVS(27416) = Jac_FULL(4737,1842) - JVS(27416) = B(3899) -! JVS(27417) = Jac_FULL(4737,2220) - JVS(27417) = B(3902) -! JVS(27418) = Jac_FULL(4737,2647) - JVS(27418) = B(3905) -! JVS(27419) = Jac_FULL(4737,3025) - JVS(27419) = B(17679) -! JVS(27420) = Jac_FULL(4737,4665) - JVS(27420) = 0 -! JVS(27421) = Jac_FULL(4737,4737) - JVS(27421) = -B(3906)-B(3907)-B(3909)-B(3911) -! JVS(27422) = Jac_FULL(4737,5063) - JVS(27422) = 0 -! JVS(27423) = Jac_FULL(4737,5116) - JVS(27423) = B(1150) -! JVS(27424) = Jac_FULL(4737,5250) - JVS(27424) = B(3900)+B(3903)-B(3910)-B(3912)+B(17680) -! JVS(27425) = Jac_FULL(4737,5252) - JVS(27425) = 0 -! JVS(27426) = Jac_FULL(4737,5253) - JVS(27426) = 0 -! JVS(27427) = Jac_FULL(4737,5255) - JVS(27427) = 0 -! JVS(27428) = Jac_FULL(4737,5256) - JVS(27428) = -B(3908) -! JVS(27429) = Jac_FULL(4738,1454) - JVS(27429) = B(19479) -! JVS(27430) = Jac_FULL(4738,2119) - JVS(27430) = B(17209) -! JVS(27431) = Jac_FULL(4738,2781) - JVS(27431) = B(19484) -! JVS(27432) = Jac_FULL(4738,4738) - JVS(27432) = -B(17296)-B(17298)-B(17300)-B(17302)-B(17304)-B(17306)-B(17308)-B(17309) -! JVS(27433) = Jac_FULL(4738,5028) - JVS(27433) = 0 -! JVS(27434) = Jac_FULL(4738,5240) - JVS(27434) = B(14737)+B(14739) -! JVS(27435) = Jac_FULL(4738,5250) - JVS(27435) = B(14740)+B(19480) -! JVS(27436) = Jac_FULL(4738,5252) - JVS(27436) = -B(17303) -! JVS(27437) = Jac_FULL(4738,5253) - JVS(27437) = -B(17305) -! JVS(27438) = Jac_FULL(4738,5255) - JVS(27438) = -B(17297)-B(17299)-B(17301) -! JVS(27439) = Jac_FULL(4738,5256) - JVS(27439) = B(14738)-B(17307) -! JVS(27440) = Jac_FULL(4739,1970) - JVS(27440) = B(21576) -! JVS(27441) = Jac_FULL(4739,1991) - JVS(27441) = B(18784) -! JVS(27442) = Jac_FULL(4739,2907) - JVS(27442) = B(21581) -! JVS(27443) = Jac_FULL(4739,4066) - JVS(27443) = 0 -! JVS(27444) = Jac_FULL(4739,4739) - JVS(27444) = -B(20364)-B(20366)-B(20368)-B(20370)-B(20372)-B(20374)-B(20376)-B(20377) -! JVS(27445) = Jac_FULL(4739,5022) - JVS(27445) = 0 -! JVS(27446) = Jac_FULL(4739,5074) - JVS(27446) = 0 -! JVS(27447) = Jac_FULL(4739,5250) - JVS(27447) = B(18785)+B(21577) -! JVS(27448) = Jac_FULL(4739,5252) - JVS(27448) = -B(20371) -! JVS(27449) = Jac_FULL(4739,5253) - JVS(27449) = -B(20373) -! JVS(27450) = Jac_FULL(4739,5255) - JVS(27450) = -B(20365)-B(20367)-B(20369) -! JVS(27451) = Jac_FULL(4739,5256) - JVS(27451) = -B(20375) -! JVS(27452) = Jac_FULL(4740,1086) - JVS(27452) = B(12569)+B(12571) -! JVS(27453) = Jac_FULL(4740,2051) - JVS(27453) = B(12566) -! JVS(27454) = Jac_FULL(4740,3433) - JVS(27454) = B(9781) -! JVS(27455) = Jac_FULL(4740,3487) - JVS(27455) = 0 -! JVS(27456) = Jac_FULL(4740,4547) - JVS(27456) = B(5426)+B(5428) -! JVS(27457) = Jac_FULL(4740,4707) - JVS(27457) = 0 -! JVS(27458) = Jac_FULL(4740,4740) - JVS(27458) = -B(8942)-B(8944)-B(8946)-B(8948)-B(8950)-B(8952)-B(8954)-B(8955) -! JVS(27459) = Jac_FULL(4740,4803) - JVS(27459) = 0 -! JVS(27460) = Jac_FULL(4740,4948) - JVS(27460) = 0 -! JVS(27461) = Jac_FULL(4740,5250) - JVS(27461) = B(5429)+B(9782)+B(12567)+B(12570) -! JVS(27462) = Jac_FULL(4740,5252) - JVS(27462) = -B(8949) -! JVS(27463) = Jac_FULL(4740,5253) - JVS(27463) = -B(8951) -! JVS(27464) = Jac_FULL(4740,5255) - JVS(27464) = -B(8943)-B(8945)-B(8947) -! JVS(27465) = Jac_FULL(4740,5256) - JVS(27465) = B(5427)-B(8953) -! JVS(27466) = Jac_FULL(4740,5258) - JVS(27466) = 0 -! JVS(27467) = Jac_FULL(4741,214) - JVS(27467) = B(13172) -! JVS(27468) = Jac_FULL(4741,2393) - JVS(27468) = B(12530) -! JVS(27469) = Jac_FULL(4741,3832) - JVS(27469) = 0 -! JVS(27470) = Jac_FULL(4741,4741) - JVS(27470) = -B(15613)-B(15615)-B(15617)-B(15619)-B(15621) -! JVS(27471) = Jac_FULL(4741,5030) - JVS(27471) = 0 -! JVS(27472) = Jac_FULL(4741,5076) - JVS(27472) = 0 -! JVS(27473) = Jac_FULL(4741,5250) - JVS(27473) = 0 -! JVS(27474) = Jac_FULL(4741,5251) - JVS(27474) = -B(15614) -! JVS(27475) = Jac_FULL(4741,5252) - JVS(27475) = -B(15616) -! JVS(27476) = Jac_FULL(4741,5253) - JVS(27476) = -B(15618) -! JVS(27477) = Jac_FULL(4741,5254) - JVS(27477) = -B(15620) -! JVS(27478) = Jac_FULL(4741,5258) - JVS(27478) = 0 -! JVS(27479) = Jac_FULL(4742,1953) - JVS(27479) = B(15713) -! JVS(27480) = Jac_FULL(4742,2769) - JVS(27480) = B(19990) -! JVS(27481) = Jac_FULL(4742,2920) - JVS(27481) = 0 -! JVS(27482) = Jac_FULL(4742,3315) - JVS(27482) = 0 -! JVS(27483) = Jac_FULL(4742,4742) - JVS(27483) = -B(18200)-B(18202)-B(18204)-B(18206) -! JVS(27484) = Jac_FULL(4742,4770) - JVS(27484) = 0 -! JVS(27485) = Jac_FULL(4742,4857) - JVS(27485) = 0 -! JVS(27486) = Jac_FULL(4742,5250) - JVS(27486) = B(15714)+B(19991) -! JVS(27487) = Jac_FULL(4742,5252) - JVS(27487) = -B(18203) -! JVS(27488) = Jac_FULL(4742,5253) - JVS(27488) = 0 -! JVS(27489) = Jac_FULL(4742,5255) - JVS(27489) = -B(18201) -! JVS(27490) = Jac_FULL(4742,5256) - JVS(27490) = -B(18205) -! JVS(27491) = Jac_FULL(4743,71) - JVS(27491) = B(9511) -! JVS(27492) = Jac_FULL(4743,1232) - JVS(27492) = B(9508) -! JVS(27493) = Jac_FULL(4743,1717) - JVS(27493) = B(9520) -! JVS(27494) = Jac_FULL(4743,2709) - JVS(27494) = B(9515) -! JVS(27495) = Jac_FULL(4743,3539) - JVS(27495) = B(5859)+B(5861)+B(5863) -! JVS(27496) = Jac_FULL(4743,3815) - JVS(27496) = 0 -! JVS(27497) = Jac_FULL(4743,4743) - JVS(27497) = -B(9509)-B(9510) -! JVS(27498) = Jac_FULL(4743,5250) - JVS(27498) = B(9512) -! JVS(27499) = Jac_FULL(4743,5252) - JVS(27499) = B(5860) -! JVS(27500) = Jac_FULL(4743,5255) - JVS(27500) = 0 -! JVS(27501) = Jac_FULL(4743,5256) - JVS(27501) = B(5862) -! JVS(27502) = Jac_FULL(4744,3061) - JVS(27502) = B(22249) -! JVS(27503) = Jac_FULL(4744,3787) - JVS(27503) = B(20138) -! JVS(27504) = Jac_FULL(4744,4743) - JVS(27504) = 0 -! JVS(27505) = Jac_FULL(4744,4744) - JVS(27505) = -B(21430)-B(21432)-B(21434)-B(21436)-B(21438)-B(21440) -! JVS(27506) = Jac_FULL(4744,5250) - JVS(27506) = 0 -! JVS(27507) = Jac_FULL(4744,5252) - JVS(27507) = -B(21435) -! JVS(27508) = Jac_FULL(4744,5253) - JVS(27508) = -B(21437) -! JVS(27509) = Jac_FULL(4744,5255) - JVS(27509) = -B(21431)-B(21433) -! JVS(27510) = Jac_FULL(4744,5256) - JVS(27510) = -B(21439) -! JVS(27511) = Jac_FULL(4745,930) - JVS(27511) = B(17358) -! JVS(27512) = Jac_FULL(4745,2132) - JVS(27512) = B(11406)+B(11408) -! JVS(27513) = Jac_FULL(4745,3043) - JVS(27513) = 0 -! JVS(27514) = Jac_FULL(4745,4183) - JVS(27514) = B(11419) -! JVS(27515) = Jac_FULL(4745,4745) - JVS(27515) = -B(14765)-B(14767)-B(14769)-B(14771) -! JVS(27516) = Jac_FULL(4745,4746) - JVS(27516) = 0 -! JVS(27517) = Jac_FULL(4745,5099) - JVS(27517) = 0 -! JVS(27518) = Jac_FULL(4745,5206) - JVS(27518) = 0 -! JVS(27519) = Jac_FULL(4745,5250) - JVS(27519) = B(11407)+B(11420)+B(17359) -! JVS(27520) = Jac_FULL(4745,5252) - JVS(27520) = -B(14768) -! JVS(27521) = Jac_FULL(4745,5253) - JVS(27521) = 0 -! JVS(27522) = Jac_FULL(4745,5255) - JVS(27522) = -B(14766) -! JVS(27523) = Jac_FULL(4745,5256) - JVS(27523) = -B(14770) -! JVS(27524) = Jac_FULL(4746,1746) - JVS(27524) = B(3596) -! JVS(27525) = Jac_FULL(4746,4746) - JVS(27525) = -B(7546)-B(7548)-B(7550)-B(7552)-B(7553)-B(7554) -! JVS(27526) = Jac_FULL(4746,4988) - JVS(27526) = 0 -! JVS(27527) = Jac_FULL(4746,5250) - JVS(27527) = B(7492) -! JVS(27528) = Jac_FULL(4746,5252) - JVS(27528) = -B(7549) -! JVS(27529) = Jac_FULL(4746,5255) - JVS(27529) = -B(7547) -! JVS(27530) = Jac_FULL(4746,5256) - JVS(27530) = -B(7551) -! JVS(27531) = Jac_FULL(4746,5257) - JVS(27531) = B(7493) -! JVS(27532) = Jac_FULL(4746,5258) - JVS(27532) = 0 -! JVS(27533) = Jac_FULL(4747,3517) - JVS(27533) = B(7531) -! JVS(27534) = Jac_FULL(4747,3646) - JVS(27534) = B(7499) -! JVS(27535) = Jac_FULL(4747,4600) - JVS(27535) = B(882) -! JVS(27536) = Jac_FULL(4747,4747) - JVS(27536) = -B(3484)-B(3485)-B(3486) -! JVS(27537) = Jac_FULL(4747,4970) - JVS(27537) = B(7505) -! JVS(27538) = Jac_FULL(4747,4988) - JVS(27538) = 0 -! JVS(27539) = Jac_FULL(4747,5048) - JVS(27539) = 0 -! JVS(27540) = Jac_FULL(4747,5083) - JVS(27540) = B(14431) -! JVS(27541) = Jac_FULL(4747,5092) - JVS(27541) = 0 -! JVS(27542) = Jac_FULL(4747,5095) - JVS(27542) = B(19320) -! JVS(27543) = Jac_FULL(4747,5169) - JVS(27543) = B(11192) -! JVS(27544) = Jac_FULL(4747,5187) - JVS(27544) = B(22986) -! JVS(27545) = Jac_FULL(4747,5189) - JVS(27545) = B(21956) -! JVS(27546) = Jac_FULL(4747,5207) - JVS(27546) = B(11390) -! JVS(27547) = Jac_FULL(4747,5250) - JVS(27547) = 0 -! JVS(27548) = Jac_FULL(4747,5256) - JVS(27548) = 0 -! JVS(27549) = Jac_FULL(4747,5257) - JVS(27549) = B(7486) -! JVS(27550) = Jac_FULL(4747,5258) - JVS(27550) = B(883)+B(7487)+B(7500)+B(7506)+B(7532)+B(11193)+B(11391)+B(14432)+B(19321)+B(21957)+B(22987) -! JVS(27551) = Jac_FULL(4748,149) - JVS(27551) = B(19491) -! JVS(27552) = Jac_FULL(4748,830) - JVS(27552) = 0 -! JVS(27553) = Jac_FULL(4748,1331) - JVS(27553) = B(22068) -! JVS(27554) = Jac_FULL(4748,1656) - JVS(27554) = B(19492) -! JVS(27555) = Jac_FULL(4748,1657) - JVS(27555) = 0 -! JVS(27556) = Jac_FULL(4748,2781) - JVS(27556) = 0 -! JVS(27557) = Jac_FULL(4748,4043) - JVS(27557) = 0 -! JVS(27558) = Jac_FULL(4748,4738) - JVS(27558) = 0 -! JVS(27559) = Jac_FULL(4748,4748) - JVS(27559) = -B(21048)-B(21050)-B(21052)-B(21054)-B(21056)-B(21057) -! JVS(27560) = Jac_FULL(4748,5028) - JVS(27560) = 0 -! JVS(27561) = Jac_FULL(4748,5240) - JVS(27561) = 0 -! JVS(27562) = Jac_FULL(4748,5250) - JVS(27562) = B(19493)+B(22069) -! JVS(27563) = Jac_FULL(4748,5252) - JVS(27563) = -B(21051)-B(21053) -! JVS(27564) = Jac_FULL(4748,5253) - JVS(27564) = 0 -! JVS(27565) = Jac_FULL(4748,5255) - JVS(27565) = -B(21049) -! JVS(27566) = Jac_FULL(4748,5256) - JVS(27566) = -B(21055) -! JVS(27567) = Jac_FULL(4749,1816) - JVS(27567) = B(20386) -! JVS(27568) = Jac_FULL(4749,3042) - JVS(27568) = B(20387) -! JVS(27569) = Jac_FULL(4749,3449) - JVS(27569) = B(16623) -! JVS(27570) = Jac_FULL(4749,3524) - JVS(27570) = B(13765)+B(13768) -! JVS(27571) = Jac_FULL(4749,4229) - JVS(27571) = B(18806)+B(18810)+B(18814)+B(18816) -! JVS(27572) = Jac_FULL(4749,4339) - JVS(27572) = 0 -! JVS(27573) = Jac_FULL(4749,4617) - JVS(27573) = B(10579) -! JVS(27574) = Jac_FULL(4749,4749) - JVS(27574) = -B(13771)-B(13773)-B(13775)-B(13776)-B(13777) -! JVS(27575) = Jac_FULL(4749,5002) - JVS(27575) = 0 -! JVS(27576) = Jac_FULL(4749,5204) - JVS(27576) = 0 -! JVS(27577) = Jac_FULL(4749,5250) - JVS(27577) = B(13766)-B(13772)-B(13774)+B(20388) -! JVS(27578) = Jac_FULL(4749,5252) - JVS(27578) = B(18811) -! JVS(27579) = Jac_FULL(4749,5253) - JVS(27579) = 0 -! JVS(27580) = Jac_FULL(4749,5255) - JVS(27580) = B(18807) -! JVS(27581) = Jac_FULL(4749,5256) - JVS(27581) = B(18815) -! JVS(27582) = Jac_FULL(4750,1215) - JVS(27582) = B(20293) -! JVS(27583) = Jac_FULL(4750,3434) - JVS(27583) = B(16434) -! JVS(27584) = Jac_FULL(4750,4750) - JVS(27584) = -B(18688)-B(18690)-B(18692)-B(18694) -! JVS(27585) = Jac_FULL(4750,4920) - JVS(27585) = 0 -! JVS(27586) = Jac_FULL(4750,4977) - JVS(27586) = 0 -! JVS(27587) = Jac_FULL(4750,5250) - JVS(27587) = B(16435)+B(20294) -! JVS(27588) = Jac_FULL(4750,5252) - JVS(27588) = -B(18691) -! JVS(27589) = Jac_FULL(4750,5253) - JVS(27589) = 0 -! JVS(27590) = Jac_FULL(4750,5255) - JVS(27590) = -B(18689) -! JVS(27591) = Jac_FULL(4750,5256) - JVS(27591) = -B(18693) -! JVS(27592) = Jac_FULL(4751,1392) - JVS(27592) = B(22290) -! JVS(27593) = Jac_FULL(4751,3558) - JVS(27593) = B(20322) -! JVS(27594) = Jac_FULL(4751,4751) - JVS(27594) = -B(21545)-B(21547)-B(21549)-B(21551) -! JVS(27595) = Jac_FULL(4751,5047) - JVS(27595) = 0 -! JVS(27596) = Jac_FULL(4751,5250) - JVS(27596) = B(20323)+B(22291) -! JVS(27597) = Jac_FULL(4751,5251) - JVS(27597) = 0 -! JVS(27598) = Jac_FULL(4751,5252) - JVS(27598) = -B(21548) -! JVS(27599) = Jac_FULL(4751,5253) - JVS(27599) = 0 -! JVS(27600) = Jac_FULL(4751,5254) - JVS(27600) = 0 -! JVS(27601) = Jac_FULL(4751,5255) - JVS(27601) = -B(21546) -! JVS(27602) = Jac_FULL(4751,5256) - JVS(27602) = -B(21550) -! JVS(27603) = Jac_FULL(4752,1008) - JVS(27603) = B(22504) -! JVS(27604) = Jac_FULL(4752,1257) - JVS(27604) = B(23859)+B(23861) -! JVS(27605) = Jac_FULL(4752,1890) - JVS(27605) = 0 -! JVS(27606) = Jac_FULL(4752,2772) - JVS(27606) = B(22509) -! JVS(27607) = Jac_FULL(4752,4226) - JVS(27607) = 0 -! JVS(27608) = Jac_FULL(4752,4681) - JVS(27608) = 0 -! JVS(27609) = Jac_FULL(4752,4752) - JVS(27609) = -B(21896)-B(21898)-B(21900)-B(21902)-B(21904)-B(21906)-B(21908)-B(21909) -! JVS(27610) = Jac_FULL(4752,5044) - JVS(27610) = 0 -! JVS(27611) = Jac_FULL(4752,5085) - JVS(27611) = B(20852)+B(20854) -! JVS(27612) = Jac_FULL(4752,5250) - JVS(27612) = B(20855)+B(22505)+B(23860) -! JVS(27613) = Jac_FULL(4752,5252) - JVS(27613) = -B(21903) -! JVS(27614) = Jac_FULL(4752,5253) - JVS(27614) = -B(21905) -! JVS(27615) = Jac_FULL(4752,5255) - JVS(27615) = -B(21897)-B(21899)-B(21901) -! JVS(27616) = Jac_FULL(4752,5256) - JVS(27616) = B(20853)-B(21907) -! JVS(27617) = Jac_FULL(4753,1603) - JVS(27617) = B(18781) -! JVS(27618) = Jac_FULL(4753,2183) - JVS(27618) = B(21568) -! JVS(27619) = Jac_FULL(4753,2928) - JVS(27619) = B(21573) -! JVS(27620) = Jac_FULL(4753,4066) - JVS(27620) = 0 -! JVS(27621) = Jac_FULL(4753,4753) - JVS(27621) = -B(20350)-B(20352)-B(20354)-B(20356)-B(20358)-B(20360)-B(20362)-B(20363) -! JVS(27622) = Jac_FULL(4753,5022) - JVS(27622) = 0 -! JVS(27623) = Jac_FULL(4753,5074) - JVS(27623) = 0 -! JVS(27624) = Jac_FULL(4753,5250) - JVS(27624) = B(18782)+B(21569) -! JVS(27625) = Jac_FULL(4753,5252) - JVS(27625) = -B(20357) -! JVS(27626) = Jac_FULL(4753,5253) - JVS(27626) = -B(20359) -! JVS(27627) = Jac_FULL(4753,5255) - JVS(27627) = -B(20351)-B(20353)-B(20355) -! JVS(27628) = Jac_FULL(4753,5256) - JVS(27628) = -B(20361) -! JVS(27629) = Jac_FULL(4754,2470) - JVS(27629) = B(3592) -! JVS(27630) = Jac_FULL(4754,4754) - JVS(27630) = -B(7511)-B(7513)-B(7515)-B(7517)-B(7518)-B(7519) -! JVS(27631) = Jac_FULL(4754,4988) - JVS(27631) = 0 -! JVS(27632) = Jac_FULL(4754,5250) - JVS(27632) = B(7488) -! JVS(27633) = Jac_FULL(4754,5252) - JVS(27633) = -B(7514) -! JVS(27634) = Jac_FULL(4754,5255) - JVS(27634) = -B(7512) -! JVS(27635) = Jac_FULL(4754,5256) - JVS(27635) = -B(7516) -! JVS(27636) = Jac_FULL(4754,5257) - JVS(27636) = B(7489) -! JVS(27637) = Jac_FULL(4754,5258) - JVS(27637) = 0 -! JVS(27638) = Jac_FULL(4755,384) - JVS(27638) = B(7646) -! JVS(27639) = Jac_FULL(4755,601) - JVS(27639) = B(283)+B(287) -! JVS(27640) = Jac_FULL(4755,1106) - JVS(27640) = B(7650) -! JVS(27641) = Jac_FULL(4755,2339) - JVS(27641) = B(4390) -! JVS(27642) = Jac_FULL(4755,3583) - JVS(27642) = B(856) -! JVS(27643) = Jac_FULL(4755,4380) - JVS(27643) = B(3813)+B(3815)+B(3819)+B(3822) -! JVS(27644) = Jac_FULL(4755,4755) - JVS(27644) = -B(1608)-B(1610)-B(1612)-B(1614)-B(1616)-B(1617)-B(1618) -! JVS(27645) = Jac_FULL(4755,4974) - JVS(27645) = 0 -! JVS(27646) = Jac_FULL(4755,5238) - JVS(27646) = B(284) -! JVS(27647) = Jac_FULL(4755,5250) - JVS(27647) = B(288)+B(4391)+B(7647) -! JVS(27648) = Jac_FULL(4755,5252) - JVS(27648) = -B(1611)-B(1613)+B(3816) -! JVS(27649) = Jac_FULL(4755,5253) - JVS(27649) = 0 -! JVS(27650) = Jac_FULL(4755,5255) - JVS(27650) = -B(1609)+B(3814) -! JVS(27651) = Jac_FULL(4755,5256) - JVS(27651) = -B(1615)+B(3820) -! JVS(27652) = Jac_FULL(4756,2470) - JVS(27652) = B(3593) -! JVS(27653) = Jac_FULL(4756,4756) - JVS(27653) = -B(7520)-B(7522)-B(7524)-B(7526)-B(7527)-B(7528) -! JVS(27654) = Jac_FULL(4756,4988) - JVS(27654) = 0 -! JVS(27655) = Jac_FULL(4756,5250) - JVS(27655) = B(7490) -! JVS(27656) = Jac_FULL(4756,5252) - JVS(27656) = -B(7523) -! JVS(27657) = Jac_FULL(4756,5255) - JVS(27657) = -B(7521) -! JVS(27658) = Jac_FULL(4756,5256) - JVS(27658) = -B(7525) -! JVS(27659) = Jac_FULL(4756,5257) - JVS(27659) = B(7491) -! JVS(27660) = Jac_FULL(4756,5258) - JVS(27660) = 0 -! JVS(27661) = Jac_FULL(4757,243) - JVS(27661) = B(11365) -! JVS(27662) = Jac_FULL(4757,3517) - JVS(27662) = 0 -! JVS(27663) = Jac_FULL(4757,4757) - JVS(27663) = -B(14693)-B(14695)-B(14697)-B(14699)-B(14701) -! JVS(27664) = Jac_FULL(4757,4988) - JVS(27664) = 0 -! JVS(27665) = Jac_FULL(4757,5250) - JVS(27665) = 0 -! JVS(27666) = Jac_FULL(4757,5251) - JVS(27666) = -B(14694) -! JVS(27667) = Jac_FULL(4757,5252) - JVS(27667) = -B(14696) -! JVS(27668) = Jac_FULL(4757,5253) - JVS(27668) = -B(14698) -! JVS(27669) = Jac_FULL(4757,5254) - JVS(27669) = -B(14700) -! JVS(27670) = Jac_FULL(4757,5258) - JVS(27670) = 0 -! JVS(27671) = Jac_FULL(4758,4758) - JVS(27671) = -B(10503)-B(10505)-B(10507)-B(10509)-B(10510) -! JVS(27672) = Jac_FULL(4758,5217) - JVS(27672) = B(6781) -! JVS(27673) = Jac_FULL(4758,5252) - JVS(27673) = -B(10506) -! JVS(27674) = Jac_FULL(4758,5255) - JVS(27674) = -B(10504) -! JVS(27675) = Jac_FULL(4758,5256) - JVS(27675) = -B(10508) -! JVS(27676) = Jac_FULL(4759,795) - JVS(27676) = B(22306) -! JVS(27677) = Jac_FULL(4759,1085) - JVS(27677) = B(23239) -! JVS(27678) = Jac_FULL(4759,2348) - JVS(27678) = 0 -! JVS(27679) = Jac_FULL(4759,2510) - JVS(27679) = B(23244) -! JVS(27680) = Jac_FULL(4759,3976) - JVS(27680) = 0 -! JVS(27681) = Jac_FULL(4759,4462) - JVS(27681) = B(22297)+B(22299) -! JVS(27682) = Jac_FULL(4759,4759) - JVS(27682) = -B(22802)-B(22804)-B(22806)-B(22808)-B(22810)-B(22812) -! JVS(27683) = Jac_FULL(4759,4806) - JVS(27683) = 0 -! JVS(27684) = Jac_FULL(4759,5111) - JVS(27684) = 0 -! JVS(27685) = Jac_FULL(4759,5113) - JVS(27685) = 0 -! JVS(27686) = Jac_FULL(4759,5250) - JVS(27686) = B(22300)+B(23240) -! JVS(27687) = Jac_FULL(4759,5252) - JVS(27687) = -B(22807) -! JVS(27688) = Jac_FULL(4759,5253) - JVS(27688) = -B(22809) -! JVS(27689) = Jac_FULL(4759,5255) - JVS(27689) = -B(22803)-B(22805) -! JVS(27690) = Jac_FULL(4759,5256) - JVS(27690) = B(22298)-B(22811) -! JVS(27691) = Jac_FULL(4760,570) - JVS(27691) = B(19827) -! JVS(27692) = Jac_FULL(4760,794) - JVS(27692) = B(15365) -! JVS(27693) = Jac_FULL(4760,1290) - JVS(27693) = B(11761) -! JVS(27694) = Jac_FULL(4760,1740) - JVS(27694) = B(19828) -! JVS(27695) = Jac_FULL(4760,2121) - JVS(27695) = B(19824) -! JVS(27696) = Jac_FULL(4760,2841) - JVS(27696) = B(11765) -! JVS(27697) = Jac_FULL(4760,2853) - JVS(27697) = B(22194) -! JVS(27698) = Jac_FULL(4760,3184) - JVS(27698) = B(19820) -! JVS(27699) = Jac_FULL(4760,3493) - JVS(27699) = 0 -! JVS(27700) = Jac_FULL(4760,4179) - JVS(27700) = 0 -! JVS(27701) = Jac_FULL(4760,4361) - JVS(27701) = 0 -! JVS(27702) = Jac_FULL(4760,4532) - JVS(27702) = 0 -! JVS(27703) = Jac_FULL(4760,4715) - JVS(27703) = 0 -! JVS(27704) = Jac_FULL(4760,4760) - JVS(27704) = -B(8029)-B(8031)-B(8033)-B(8035)-B(8037)-B(8039) -! JVS(27705) = Jac_FULL(4760,5138) - JVS(27705) = 0 -! JVS(27706) = Jac_FULL(4760,5162) - JVS(27706) = B(4489)+B(4491) -! JVS(27707) = Jac_FULL(4760,5250) - JVS(27707) = B(4492)+B(11762) -! JVS(27708) = Jac_FULL(4760,5252) - JVS(27708) = -B(8034) -! JVS(27709) = Jac_FULL(4760,5253) - JVS(27709) = -B(8036) -! JVS(27710) = Jac_FULL(4760,5255) - JVS(27710) = -B(8030)-B(8032) -! JVS(27711) = Jac_FULL(4760,5256) - JVS(27711) = B(4490)-B(8038) -! JVS(27712) = Jac_FULL(4761,2359) - JVS(27712) = B(14812) -! JVS(27713) = Jac_FULL(4761,4761) - JVS(27713) = -B(14594)-B(14596)-B(14598)-B(14600)-B(14601)-B(14602) -! JVS(27714) = Jac_FULL(4761,5248) - JVS(27714) = B(11289) -! JVS(27715) = Jac_FULL(4761,5249) - JVS(27715) = 0 -! JVS(27716) = Jac_FULL(4761,5250) - JVS(27716) = B(11290) -! JVS(27717) = Jac_FULL(4761,5252) - JVS(27717) = -B(14597) -! JVS(27718) = Jac_FULL(4761,5255) - JVS(27718) = -B(14595) -! JVS(27719) = Jac_FULL(4761,5256) - JVS(27719) = -B(14599) -! JVS(27720) = Jac_FULL(4761,5258) - JVS(27720) = 0 -! JVS(27721) = Jac_FULL(4762,236) - JVS(27721) = B(11284) -! JVS(27722) = Jac_FULL(4762,4762) - JVS(27722) = -B(14562)-B(14564)-B(14566)-B(14568)-B(14569)-B(14570) -! JVS(27723) = Jac_FULL(4762,5248) - JVS(27723) = B(11295) -! JVS(27724) = Jac_FULL(4762,5250) - JVS(27724) = B(11296) -! JVS(27725) = Jac_FULL(4762,5252) - JVS(27725) = -B(14565) -! JVS(27726) = Jac_FULL(4762,5255) - JVS(27726) = -B(14563) -! JVS(27727) = Jac_FULL(4762,5256) - JVS(27727) = -B(14567) -! JVS(27728) = Jac_FULL(4762,5257) - JVS(27728) = 0 -! JVS(27729) = Jac_FULL(4762,5258) - JVS(27729) = 0 -! JVS(27730) = Jac_FULL(4763,824) - JVS(27730) = B(23937) -! JVS(27731) = Jac_FULL(4763,903) - JVS(27731) = B(23932)+B(23934) -! JVS(27732) = Jac_FULL(4763,2993) - JVS(27732) = B(4176) -! JVS(27733) = Jac_FULL(4763,3960) - JVS(27733) = B(23931) -! JVS(27734) = Jac_FULL(4763,4346) - JVS(27734) = 0 -! JVS(27735) = Jac_FULL(4763,4763) - JVS(27735) = -B(1390)-B(1392)-B(1394)-B(1396)-B(1397) -! JVS(27736) = Jac_FULL(4763,4853) - JVS(27736) = B(23809)+B(23811)+B(23815)+B(23818) -! JVS(27737) = Jac_FULL(4763,4854) - JVS(27737) = 0 -! JVS(27738) = Jac_FULL(4763,5203) - JVS(27738) = B(201) -! JVS(27739) = Jac_FULL(4763,5250) - JVS(27739) = B(202)+B(4177)+B(23933) -! JVS(27740) = Jac_FULL(4763,5252) - JVS(27740) = -B(1393)+B(23812) -! JVS(27741) = Jac_FULL(4763,5255) - JVS(27741) = -B(1391)+B(23810) -! JVS(27742) = Jac_FULL(4763,5256) - JVS(27742) = -B(1395)+B(23816) -! JVS(27743) = Jac_FULL(4764,187) - JVS(27743) = B(17353) -! JVS(27744) = Jac_FULL(4764,1245) - JVS(27744) = B(21072) -! JVS(27745) = Jac_FULL(4764,1286) - JVS(27745) = 0 -! JVS(27746) = Jac_FULL(4764,1628) - JVS(27746) = B(17354) -! JVS(27747) = Jac_FULL(4764,1629) - JVS(27747) = 0 -! JVS(27748) = Jac_FULL(4764,2648) - JVS(27748) = 0 -! JVS(27749) = Jac_FULL(4764,4088) - JVS(27749) = 0 -! JVS(27750) = Jac_FULL(4764,4764) - JVS(27750) = -B(19505)-B(19507)-B(19509)-B(19511)-B(19513)-B(19514) -! JVS(27751) = Jac_FULL(4764,5014) - JVS(27751) = 0 -! JVS(27752) = Jac_FULL(4764,5207) - JVS(27752) = 0 -! JVS(27753) = Jac_FULL(4764,5250) - JVS(27753) = B(17355)+B(21073) -! JVS(27754) = Jac_FULL(4764,5252) - JVS(27754) = -B(19508)-B(19510) -! JVS(27755) = Jac_FULL(4764,5253) - JVS(27755) = 0 -! JVS(27756) = Jac_FULL(4764,5255) - JVS(27756) = -B(19506) -! JVS(27757) = Jac_FULL(4764,5256) - JVS(27757) = -B(19512) -! JVS(27758) = Jac_FULL(4765,3055) - JVS(27758) = B(14211) -! JVS(27759) = Jac_FULL(4765,3607) - JVS(27759) = B(7231) -! JVS(27760) = Jac_FULL(4765,4765) - JVS(27760) = -B(11021)-B(11023)-B(11025)-B(11027)-B(11028)-B(11029) -! JVS(27761) = Jac_FULL(4765,5081) - JVS(27761) = 0 -! JVS(27762) = Jac_FULL(4765,5250) - JVS(27762) = B(7232)+B(14212) -! JVS(27763) = Jac_FULL(4765,5252) - JVS(27763) = -B(11024) -! JVS(27764) = Jac_FULL(4765,5255) - JVS(27764) = -B(11022) -! JVS(27765) = Jac_FULL(4765,5256) - JVS(27765) = -B(11026) -! JVS(27766) = Jac_FULL(4766,447) - JVS(27766) = B(379)+B(381) -! JVS(27767) = Jac_FULL(4766,3166) - JVS(27767) = B(4771) -! JVS(27768) = Jac_FULL(4766,4766) - JVS(27768) = -B(1867)-B(1869)-B(1871)-B(1873)-B(1875)-B(1876)-B(1877) -! JVS(27769) = Jac_FULL(4766,5107) - JVS(27769) = 0 -! JVS(27770) = Jac_FULL(4766,5238) - JVS(27770) = B(380) -! JVS(27771) = Jac_FULL(4766,5250) - JVS(27771) = B(382) -! JVS(27772) = Jac_FULL(4766,5252) - JVS(27772) = -B(1870)-B(1872) -! JVS(27773) = Jac_FULL(4766,5255) - JVS(27773) = -B(1868) -! JVS(27774) = Jac_FULL(4766,5256) - JVS(27774) = -B(1874) -! JVS(27775) = Jac_FULL(4767,1596) - JVS(27775) = B(116) -! JVS(27776) = Jac_FULL(4767,3265) - JVS(27776) = B(3764) -! JVS(27777) = Jac_FULL(4767,4332) - JVS(27777) = B(499) -! JVS(27778) = Jac_FULL(4767,4475) - JVS(27778) = B(511) -! JVS(27779) = Jac_FULL(4767,4767) - JVS(27779) = -B(1042)-B(1044)-B(1046)-B(1048)-B(1050)-B(1051)-B(1052) -! JVS(27780) = Jac_FULL(4767,4876) - JVS(27780) = 0 -! JVS(27781) = Jac_FULL(4767,5250) - JVS(27781) = B(117)+B(500)+B(512)+B(3765) -! JVS(27782) = Jac_FULL(4767,5252) - JVS(27782) = -B(1045)-B(1047) -! JVS(27783) = Jac_FULL(4767,5255) - JVS(27783) = -B(1043) -! JVS(27784) = Jac_FULL(4767,5256) - JVS(27784) = -B(1049) -! JVS(27785) = Jac_FULL(4767,5258) - JVS(27785) = 0 -! JVS(27786) = Jac_FULL(4768,1320) - JVS(27786) = B(21650) -! JVS(27787) = Jac_FULL(4768,1901) - JVS(27787) = B(19040) -! JVS(27788) = Jac_FULL(4768,3233) - JVS(27788) = B(21646) -! JVS(27789) = Jac_FULL(4768,3415) - JVS(27789) = B(14873) -! JVS(27790) = Jac_FULL(4768,3855) - JVS(27790) = 0 -! JVS(27791) = Jac_FULL(4768,3882) - JVS(27791) = 0 -! JVS(27792) = Jac_FULL(4768,4216) - JVS(27792) = 0 -! JVS(27793) = Jac_FULL(4768,4319) - JVS(27793) = 0 -! JVS(27794) = Jac_FULL(4768,4354) - JVS(27794) = 0 -! JVS(27795) = Jac_FULL(4768,4652) - JVS(27795) = 0 -! JVS(27796) = Jac_FULL(4768,4679) - JVS(27796) = 0 -! JVS(27797) = Jac_FULL(4768,4768) - JVS(27797) = -B(16835)-B(16837)-B(16839)-B(16841) -! JVS(27798) = Jac_FULL(4768,4882) - JVS(27798) = 0 -! JVS(27799) = Jac_FULL(4768,4989) - JVS(27799) = 0 -! JVS(27800) = Jac_FULL(4768,4996) - JVS(27800) = B(14207) -! JVS(27801) = Jac_FULL(4768,5004) - JVS(27801) = B(20600)+B(20602)+B(20606)+B(20609) -! JVS(27802) = Jac_FULL(4768,5052) - JVS(27802) = 0 -! JVS(27803) = Jac_FULL(4768,5250) - JVS(27803) = B(19041)+B(21647) -! JVS(27804) = Jac_FULL(4768,5252) - JVS(27804) = -B(16838)+B(20603) -! JVS(27805) = Jac_FULL(4768,5253) - JVS(27805) = 0 -! JVS(27806) = Jac_FULL(4768,5255) - JVS(27806) = -B(16836)+B(20601) -! JVS(27807) = Jac_FULL(4768,5256) - JVS(27807) = -B(16840)+B(20607) -! JVS(27808) = Jac_FULL(4769,1206) - JVS(27808) = B(13267) -! JVS(27809) = Jac_FULL(4769,1389) - JVS(27809) = B(13262)+B(13264) -! JVS(27810) = Jac_FULL(4769,3441) - JVS(27810) = B(13271) -! JVS(27811) = Jac_FULL(4769,3606) - JVS(27811) = B(9943) -! JVS(27812) = Jac_FULL(4769,4198) - JVS(27812) = B(9916)+B(9922)+B(9926)+B(9928) -! JVS(27813) = Jac_FULL(4769,4575) - JVS(27813) = 0 -! JVS(27814) = Jac_FULL(4769,4576) - JVS(27814) = B(6226) -! JVS(27815) = Jac_FULL(4769,4769) - JVS(27815) = -B(9930)-B(9932)-B(9934)-B(9936) -! JVS(27816) = Jac_FULL(4769,5250) - JVS(27816) = B(13263)+B(13272) -! JVS(27817) = Jac_FULL(4769,5252) - JVS(27817) = B(9923)-B(9933) -! JVS(27818) = Jac_FULL(4769,5253) - JVS(27818) = 0 -! JVS(27819) = Jac_FULL(4769,5255) - JVS(27819) = B(9917)-B(9931) -! JVS(27820) = Jac_FULL(4769,5256) - JVS(27820) = B(9927)-B(9935) -! JVS(27821) = Jac_FULL(4769,5258) - JVS(27821) = 0 -! JVS(27822) = Jac_FULL(4770,1460) - JVS(27822) = B(21348) -! JVS(27823) = Jac_FULL(4770,3315) - JVS(27823) = B(21353) -! JVS(27824) = Jac_FULL(4770,3914) - JVS(27824) = B(18195)+B(18197) -! JVS(27825) = Jac_FULL(4770,4770) - JVS(27825) = -B(19976)-B(19978)-B(19980)-B(19982)-B(19984)-B(19986)-B(19988)-B(19989) -! JVS(27826) = Jac_FULL(4770,4895) - JVS(27826) = 0 -! JVS(27827) = Jac_FULL(4770,5250) - JVS(27827) = B(18198)+B(21349) -! JVS(27828) = Jac_FULL(4770,5252) - JVS(27828) = -B(19983) -! JVS(27829) = Jac_FULL(4770,5253) - JVS(27829) = -B(19985) -! JVS(27830) = Jac_FULL(4770,5255) - JVS(27830) = -B(19977)-B(19979)-B(19981) -! JVS(27831) = Jac_FULL(4770,5256) - JVS(27831) = B(18196)-B(19987) -! JVS(27832) = Jac_FULL(4771,828) - JVS(27832) = B(11965) -! JVS(27833) = Jac_FULL(4771,3312) - JVS(27833) = B(11967) -! JVS(27834) = Jac_FULL(4771,3924) - JVS(27834) = B(4654)+B(4656) -! JVS(27835) = Jac_FULL(4771,4771) - JVS(27835) = -B(8210)-B(8212)-B(8214)-B(8216)-B(8218)-B(8220)-B(8222)-B(8223) -! JVS(27836) = Jac_FULL(4771,5077) - JVS(27836) = 0 -! JVS(27837) = Jac_FULL(4771,5250) - JVS(27837) = B(4657)+B(11966) -! JVS(27838) = Jac_FULL(4771,5252) - JVS(27838) = -B(8217) -! JVS(27839) = Jac_FULL(4771,5253) - JVS(27839) = -B(8219) -! JVS(27840) = Jac_FULL(4771,5255) - JVS(27840) = -B(8211)-B(8213)-B(8215) -! JVS(27841) = Jac_FULL(4771,5256) - JVS(27841) = B(4655)-B(8221) -! JVS(27842) = Jac_FULL(4772,123) - JVS(27842) = B(18880) -! JVS(27843) = Jac_FULL(4772,2635) - JVS(27843) = B(21603) -! JVS(27844) = Jac_FULL(4772,2870) - JVS(27844) = B(21601) -! JVS(27845) = Jac_FULL(4772,3160) - JVS(27845) = 0 -! JVS(27846) = Jac_FULL(4772,4772) - JVS(27846) = -B(20462)-B(20464)-B(20466)-B(20468)-B(20470)-B(20472)-B(20474)-B(20475) -! JVS(27847) = Jac_FULL(4772,4945) - JVS(27847) = 0 -! JVS(27848) = Jac_FULL(4772,5250) - JVS(27848) = B(18881)+B(21602) -! JVS(27849) = Jac_FULL(4772,5252) - JVS(27849) = -B(20469) -! JVS(27850) = Jac_FULL(4772,5253) - JVS(27850) = -B(20471) -! JVS(27851) = Jac_FULL(4772,5255) - JVS(27851) = -B(20463)-B(20465)-B(20467) -! JVS(27852) = Jac_FULL(4772,5256) - JVS(27852) = -B(20473) -! JVS(27853) = Jac_FULL(4773,2830) - JVS(27853) = B(12683) -! JVS(27854) = Jac_FULL(4773,3475) - JVS(27854) = B(12677) -! JVS(27855) = Jac_FULL(4773,3599) - JVS(27855) = B(5504)+B(5508) -! JVS(27856) = Jac_FULL(4773,4003) - JVS(27856) = 0 -! JVS(27857) = Jac_FULL(4773,4133) - JVS(27857) = 0 -! JVS(27858) = Jac_FULL(4773,4773) - JVS(27858) = -B(9063)-B(9065)-B(9067)-B(9069)-B(9071)-B(9073) -! JVS(27859) = Jac_FULL(4773,5209) - JVS(27859) = B(8805)+B(8813)+B(8819) -! JVS(27860) = Jac_FULL(4773,5250) - JVS(27860) = B(5505)+B(8814)+B(12678) -! JVS(27861) = Jac_FULL(4773,5252) - JVS(27861) = -B(9068) -! JVS(27862) = Jac_FULL(4773,5253) - JVS(27862) = -B(9070) -! JVS(27863) = Jac_FULL(4773,5255) - JVS(27863) = -B(9064)-B(9066) -! JVS(27864) = Jac_FULL(4773,5256) - JVS(27864) = B(8806)-B(9072) -! JVS(27865) = Jac_FULL(4774,2497) - JVS(27865) = B(10476) -! JVS(27866) = Jac_FULL(4774,3155) - JVS(27866) = B(3119) -! JVS(27867) = Jac_FULL(4774,4774) - JVS(27867) = -B(6764)-B(6766)-B(6768)-B(6770)-B(6771)-B(6772) -! JVS(27868) = Jac_FULL(4774,5166) - JVS(27868) = 0 -! JVS(27869) = Jac_FULL(4774,5250) - JVS(27869) = B(10477) -! JVS(27870) = Jac_FULL(4774,5252) - JVS(27870) = -B(6767) -! JVS(27871) = Jac_FULL(4774,5255) - JVS(27871) = -B(6765) -! JVS(27872) = Jac_FULL(4774,5256) - JVS(27872) = -B(6769) -! JVS(27873) = Jac_FULL(4774,5258) - JVS(27873) = 0 -! JVS(27874) = Jac_FULL(4775,622) - JVS(27874) = B(15995) -! JVS(27875) = Jac_FULL(4775,1224) - JVS(27875) = B(15984) -! JVS(27876) = Jac_FULL(4775,2654) - JVS(27876) = B(21425) -! JVS(27877) = Jac_FULL(4775,2794) - JVS(27877) = B(21426) -! JVS(27878) = Jac_FULL(4775,4165) - JVS(27878) = B(12907) -! JVS(27879) = Jac_FULL(4775,4536) - JVS(27879) = B(20109)+B(20113)+B(20117)+B(20119) -! JVS(27880) = Jac_FULL(4775,4619) - JVS(27880) = 0 -! JVS(27881) = Jac_FULL(4775,4743) - JVS(27881) = 0 -! JVS(27882) = Jac_FULL(4775,4775) - JVS(27882) = -B(15988)-B(15990)-B(15992)-B(15993)-B(15994) -! JVS(27883) = Jac_FULL(4775,5066) - JVS(27883) = 0 -! JVS(27884) = Jac_FULL(4775,5250) - JVS(27884) = B(15985)-B(15991)+B(15996)+B(21427) -! JVS(27885) = Jac_FULL(4775,5252) - JVS(27885) = B(20114) -! JVS(27886) = Jac_FULL(4775,5253) - JVS(27886) = 0 -! JVS(27887) = Jac_FULL(4775,5255) - JVS(27887) = B(20110) -! JVS(27888) = Jac_FULL(4775,5256) - JVS(27888) = -B(15989)+B(20118) -! JVS(27889) = Jac_FULL(4776,2258) - JVS(27889) = B(10375) -! JVS(27890) = Jac_FULL(4776,4776) - JVS(27890) = -B(13558)-B(13560)-B(13562)-B(13564)-B(13566)-B(13567) -! JVS(27891) = Jac_FULL(4776,5093) - JVS(27891) = 0 -! JVS(27892) = Jac_FULL(4776,5251) - JVS(27892) = -B(13559) -! JVS(27893) = Jac_FULL(4776,5252) - JVS(27893) = -B(13561) -! JVS(27894) = Jac_FULL(4776,5253) - JVS(27894) = -B(13563) -! JVS(27895) = Jac_FULL(4776,5254) - JVS(27895) = -B(13565) -! JVS(27896) = Jac_FULL(4776,5258) - JVS(27896) = 0 -! JVS(27897) = Jac_FULL(4777,2369) - JVS(27897) = B(5003) -! JVS(27898) = Jac_FULL(4777,4601) - JVS(27898) = B(513) -! JVS(27899) = Jac_FULL(4777,4777) - JVS(27899) = -B(2160)-B(2162)-B(2164)-B(2166)-B(2167)-B(2168) -! JVS(27900) = Jac_FULL(4777,5250) - JVS(27900) = B(5004) -! JVS(27901) = Jac_FULL(4777,5252) - JVS(27901) = -B(2163) -! JVS(27902) = Jac_FULL(4777,5255) - JVS(27902) = -B(2161) -! JVS(27903) = Jac_FULL(4777,5256) - JVS(27903) = B(514)-B(2165) -! JVS(27904) = Jac_FULL(4777,5258) - JVS(27904) = 0 -! JVS(27905) = Jac_FULL(4778,1779) - JVS(27905) = B(21134) -! JVS(27906) = Jac_FULL(4778,2646) - JVS(27906) = B(17592) -! JVS(27907) = Jac_FULL(4778,4778) - JVS(27907) = -B(19596)-B(19598)-B(19600)-B(19602)-B(19604)-B(19605)-B(19606) -! JVS(27908) = Jac_FULL(4778,5120) - JVS(27908) = 0 -! JVS(27909) = Jac_FULL(4778,5250) - JVS(27909) = B(21135) -! JVS(27910) = Jac_FULL(4778,5252) - JVS(27910) = -B(19599)-B(19601) -! JVS(27911) = Jac_FULL(4778,5255) - JVS(27911) = -B(19597) -! JVS(27912) = Jac_FULL(4778,5256) - JVS(27912) = -B(19603) -! JVS(27913) = Jac_FULL(4779,61) - JVS(27913) = B(23378) -! JVS(27914) = Jac_FULL(4779,3480) - JVS(27914) = B(23836) -! JVS(27915) = Jac_FULL(4779,4779) - JVS(27915) = -B(23646)-B(23648)-B(23650)-B(23652)-B(23653) -! JVS(27916) = Jac_FULL(4779,5187) - JVS(27916) = 0 -! JVS(27917) = Jac_FULL(4779,5250) - JVS(27917) = B(23837) -! JVS(27918) = Jac_FULL(4779,5252) - JVS(27918) = -B(23649) -! JVS(27919) = Jac_FULL(4779,5255) - JVS(27919) = -B(23647) -! JVS(27920) = Jac_FULL(4779,5256) - JVS(27920) = -B(23651) -! JVS(27921) = Jac_FULL(4779,5258) - JVS(27921) = 0 -! JVS(27922) = Jac_FULL(4780,2118) - JVS(27922) = B(146) -! JVS(27923) = Jac_FULL(4780,3623) - JVS(27923) = B(3936) -! JVS(27924) = Jac_FULL(4780,4780) - JVS(27924) = -B(1172)-B(1174)-B(1176)-B(1178)-B(1179)-B(1180) -! JVS(27925) = Jac_FULL(4780,5032) - JVS(27925) = 0 -! JVS(27926) = Jac_FULL(4780,5250) - JVS(27926) = B(147)+B(3937) -! JVS(27927) = Jac_FULL(4780,5252) - JVS(27927) = -B(1175) -! JVS(27928) = Jac_FULL(4780,5255) - JVS(27928) = -B(1173) -! JVS(27929) = Jac_FULL(4780,5256) - JVS(27929) = -B(1177) -! JVS(27930) = Jac_FULL(4781,1447) - JVS(27930) = B(17126) -! JVS(27931) = Jac_FULL(4781,4781) - JVS(27931) = -B(14495)-B(14497)-B(14499)-B(14501) -! JVS(27932) = Jac_FULL(4781,4891) - JVS(27932) = B(14479)+B(14481)+B(14485)+B(14487) -! JVS(27933) = Jac_FULL(4781,5212) - JVS(27933) = B(11234) -! JVS(27934) = Jac_FULL(4781,5250) - JVS(27934) = 0 -! JVS(27935) = Jac_FULL(4781,5252) - JVS(27935) = B(14482)-B(14498) -! JVS(27936) = Jac_FULL(4781,5255) - JVS(27936) = B(14480)-B(14496) -! JVS(27937) = Jac_FULL(4781,5256) - JVS(27937) = B(14486)-B(14500) -! JVS(27938) = Jac_FULL(4782,2449) - JVS(27938) = B(4984) -! JVS(27939) = Jac_FULL(4782,4332) - JVS(27939) = B(491) -! JVS(27940) = Jac_FULL(4782,4475) - JVS(27940) = B(503) -! JVS(27941) = Jac_FULL(4782,4782) - JVS(27941) = -B(2136)-B(2138)-B(2140)-B(2142)-B(2143)-B(2144) -! JVS(27942) = Jac_FULL(4782,5250) - JVS(27942) = B(4985) -! JVS(27943) = Jac_FULL(4782,5252) - JVS(27943) = -B(2139) -! JVS(27944) = Jac_FULL(4782,5255) - JVS(27944) = -B(2137) -! JVS(27945) = Jac_FULL(4782,5256) - JVS(27945) = B(492)+B(504)-B(2141) -! JVS(27946) = Jac_FULL(4782,5258) - JVS(27946) = 0 -! JVS(27947) = Jac_FULL(4783,4783) - JVS(27947) = -B(1530)-B(1532)-B(1534)-B(1536)-B(1538)-B(1539)-B(1540) -! JVS(27948) = Jac_FULL(4783,5226) - JVS(27948) = B(240) -! JVS(27949) = Jac_FULL(4783,5250) - JVS(27949) = B(241) -! JVS(27950) = Jac_FULL(4783,5252) - JVS(27950) = -B(1533)-B(1535) -! JVS(27951) = Jac_FULL(4783,5255) - JVS(27951) = -B(1531) -! JVS(27952) = Jac_FULL(4783,5256) - JVS(27952) = -B(1537) -! JVS(27953) = Jac_FULL(4784,1876) - JVS(27953) = B(7109) -! JVS(27954) = Jac_FULL(4784,3505) - JVS(27954) = B(838) -! JVS(27955) = Jac_FULL(4784,4784) - JVS(27955) = -B(3306)-B(3308)-B(3310)-B(3312)-B(3314)-B(3315)-B(3316) -! JVS(27956) = Jac_FULL(4784,5109) - JVS(27956) = 0 -! JVS(27957) = Jac_FULL(4784,5250) - JVS(27957) = B(839)+B(7110) -! JVS(27958) = Jac_FULL(4784,5252) - JVS(27958) = -B(3309)-B(3311) -! JVS(27959) = Jac_FULL(4784,5255) - JVS(27959) = -B(3307) -! JVS(27960) = Jac_FULL(4784,5256) - JVS(27960) = -B(3313) -! JVS(27961) = Jac_FULL(4785,2693) - JVS(27961) = B(11473) -! JVS(27962) = Jac_FULL(4785,2891) - JVS(27962) = B(3863) -! JVS(27963) = Jac_FULL(4785,4785) - JVS(27963) = -B(7667)-B(7669)-B(7671)-B(7673)-B(7675)-B(7676)-B(7677) -! JVS(27964) = Jac_FULL(4785,5148) - JVS(27964) = 0 -! JVS(27965) = Jac_FULL(4785,5250) - JVS(27965) = B(11474) -! JVS(27966) = Jac_FULL(4785,5252) - JVS(27966) = -B(7670)-B(7672) -! JVS(27967) = Jac_FULL(4785,5255) - JVS(27967) = -B(7668) -! JVS(27968) = Jac_FULL(4785,5256) - JVS(27968) = -B(7674) -! JVS(27969) = Jac_FULL(4786,4786) - JVS(27969) = -B(10617)-B(10618)-B(10620)-B(10622) -! JVS(27970) = Jac_FULL(4786,5224) - JVS(27970) = B(6816) -! JVS(27971) = Jac_FULL(4786,5250) - JVS(27971) = -B(10623) -! JVS(27972) = Jac_FULL(4786,5252) - JVS(27972) = B(6817) -! JVS(27973) = Jac_FULL(4786,5258) - JVS(27973) = -B(10619)-B(10621) -! JVS(27974) = Jac_FULL(4787,1176) - JVS(27974) = B(13464) -! JVS(27975) = Jac_FULL(4787,1256) - JVS(27975) = B(13459)+B(13461) -! JVS(27976) = Jac_FULL(4787,4628) - JVS(27976) = B(10257)+B(10263)+B(10267)+B(10269) -! JVS(27977) = Jac_FULL(4787,4787) - JVS(27977) = -B(10279)-B(10281)-B(10283)-B(10285)-B(10286)-B(10287) -! JVS(27978) = Jac_FULL(4787,4933) - JVS(27978) = B(6561) -! JVS(27979) = Jac_FULL(4787,5250) - JVS(27979) = B(13460) -! JVS(27980) = Jac_FULL(4787,5252) - JVS(27980) = B(10264)-B(10282) -! JVS(27981) = Jac_FULL(4787,5253) - JVS(27981) = 0 -! JVS(27982) = Jac_FULL(4787,5255) - JVS(27982) = B(10258)-B(10280) -! JVS(27983) = Jac_FULL(4787,5256) - JVS(27983) = B(10268)-B(10284) -! JVS(27984) = Jac_FULL(4788,950) - JVS(27984) = B(18546) -! JVS(27985) = Jac_FULL(4788,3085) - JVS(27985) = B(9740)+B(9742) -! JVS(27986) = Jac_FULL(4788,4044) - JVS(27986) = B(16220)+B(16222)+B(16224) -! JVS(27987) = Jac_FULL(4788,4407) - JVS(27987) = 0 -! JVS(27988) = Jac_FULL(4788,4788) - JVS(27988) = -B(13184)-B(13186) -! JVS(27989) = Jac_FULL(4788,5250) - JVS(27989) = B(9743) -! JVS(27990) = Jac_FULL(4788,5252) - JVS(27990) = B(16221) -! JVS(27991) = Jac_FULL(4788,5253) - JVS(27991) = -B(13185) -! JVS(27992) = Jac_FULL(4788,5255) - JVS(27992) = 0 -! JVS(27993) = Jac_FULL(4788,5256) - JVS(27993) = B(9741)+B(16223) -! JVS(27994) = Jac_FULL(4788,5258) - JVS(27994) = -B(13187) -! JVS(27995) = Jac_FULL(4789,176) - JVS(27995) = B(11142) -! JVS(27996) = Jac_FULL(4789,652) - JVS(27996) = B(11143) -! JVS(27997) = Jac_FULL(4789,653) - JVS(27997) = 0 -! JVS(27998) = Jac_FULL(4789,840) - JVS(27998) = 0 -! JVS(27999) = Jac_FULL(4789,3733) - JVS(27999) = 0 -! JVS(28000) = Jac_FULL(4789,4789) - JVS(28000) = -B(14361)-B(14363)-B(14365)-B(14367)-B(14369)-B(14370)-B(14371) -! JVS(28001) = Jac_FULL(4789,5215) - JVS(28001) = 0 -! JVS(28002) = Jac_FULL(4789,5250) - JVS(28002) = B(11144) -! JVS(28003) = Jac_FULL(4789,5252) - JVS(28003) = -B(14364)-B(14366) -! JVS(28004) = Jac_FULL(4789,5255) - JVS(28004) = -B(14362) -! JVS(28005) = Jac_FULL(4789,5256) - JVS(28005) = -B(14368) -! JVS(28006) = Jac_FULL(4790,1308) - JVS(28006) = B(18440) -! JVS(28007) = Jac_FULL(4790,3165) - JVS(28007) = B(9495)+B(9497) -! JVS(28008) = Jac_FULL(4790,4021) - JVS(28008) = B(16048)+B(16050)+B(16052) -! JVS(28009) = Jac_FULL(4790,4457) - JVS(28009) = 0 -! JVS(28010) = Jac_FULL(4790,4790) - JVS(28010) = -B(12967)-B(12969) -! JVS(28011) = Jac_FULL(4790,5250) - JVS(28011) = B(9498) -! JVS(28012) = Jac_FULL(4790,5252) - JVS(28012) = B(16049) -! JVS(28013) = Jac_FULL(4790,5253) - JVS(28013) = -B(12968) -! JVS(28014) = Jac_FULL(4790,5255) - JVS(28014) = 0 -! JVS(28015) = Jac_FULL(4790,5256) - JVS(28015) = B(9496)+B(16051) -! JVS(28016) = Jac_FULL(4790,5258) - JVS(28016) = -B(12970) -! JVS(28017) = Jac_FULL(4791,1091) - JVS(28017) = B(18373) -! JVS(28018) = Jac_FULL(4791,3140) - JVS(28018) = B(9388)+B(9390) -! JVS(28019) = Jac_FULL(4791,3999) - JVS(28019) = B(15946)+B(15948)+B(15950) -! JVS(28020) = Jac_FULL(4791,4479) - JVS(28020) = 0 -! JVS(28021) = Jac_FULL(4791,4791) - JVS(28021) = -B(12872)-B(12874) -! JVS(28022) = Jac_FULL(4791,5250) - JVS(28022) = B(9391) -! JVS(28023) = Jac_FULL(4791,5252) - JVS(28023) = B(15947) -! JVS(28024) = Jac_FULL(4791,5253) - JVS(28024) = -B(12873) -! JVS(28025) = Jac_FULL(4791,5255) - JVS(28025) = 0 -! JVS(28026) = Jac_FULL(4791,5256) - JVS(28026) = B(9389)+B(15949) -! JVS(28027) = Jac_FULL(4791,5258) - JVS(28027) = -B(12875) -! JVS(28028) = Jac_FULL(4792,164) - JVS(28028) = B(23230) -! JVS(28029) = Jac_FULL(4792,1357) - JVS(28029) = 0 -! JVS(28030) = Jac_FULL(4792,2474) - JVS(28030) = B(12947) -! JVS(28031) = Jac_FULL(4792,3012) - JVS(28031) = B(18423) -! JVS(28032) = Jac_FULL(4792,3467) - JVS(28032) = B(18417) -! JVS(28033) = Jac_FULL(4792,4388) - JVS(28033) = 0 -! JVS(28034) = Jac_FULL(4792,4482) - JVS(28034) = 0 -! JVS(28035) = Jac_FULL(4792,4511) - JVS(28035) = 0 -! JVS(28036) = Jac_FULL(4792,4791) - JVS(28036) = 0 -! JVS(28037) = Jac_FULL(4792,4792) - JVS(28037) = -B(16016)-B(16018)-B(16020)-B(16022)-B(16024)-B(16026) -! JVS(28038) = Jac_FULL(4792,5250) - JVS(28038) = B(12948)+B(18418) -! JVS(28039) = Jac_FULL(4792,5252) - JVS(28039) = -B(16021) -! JVS(28040) = Jac_FULL(4792,5253) - JVS(28040) = -B(16023) -! JVS(28041) = Jac_FULL(4792,5255) - JVS(28041) = -B(16017)-B(16019) -! JVS(28042) = Jac_FULL(4792,5256) - JVS(28042) = -B(16025) -! JVS(28043) = Jac_FULL(4792,5258) - JVS(28043) = 0 -! JVS(28044) = Jac_FULL(4793,3403) - JVS(28044) = B(6536) -! JVS(28045) = Jac_FULL(4793,3818) - JVS(28045) = B(6439) -! JVS(28046) = Jac_FULL(4793,4167) - JVS(28046) = 0 -! JVS(28047) = Jac_FULL(4793,4793) - JVS(28047) = -B(10151)-B(10153)-B(10155) -! JVS(28048) = Jac_FULL(4793,5141) - JVS(28048) = B(10150) -! JVS(28049) = Jac_FULL(4793,5250) - JVS(28049) = -B(10156) -! JVS(28050) = Jac_FULL(4793,5252) - JVS(28050) = 0 -! JVS(28051) = Jac_FULL(4793,5255) - JVS(28051) = 0 -! JVS(28052) = Jac_FULL(4793,5256) - JVS(28052) = -B(10152) -! JVS(28053) = Jac_FULL(4793,5258) - JVS(28053) = -B(10154) -! JVS(28054) = Jac_FULL(4794,4794) - JVS(28054) = -B(3135)-B(3137)-B(3139)-B(3141)-B(3143)-B(3145) -! JVS(28055) = Jac_FULL(4794,5166) - JVS(28055) = B(793) -! JVS(28056) = Jac_FULL(4794,5250) - JVS(28056) = B(794)-B(3142)-B(3144) -! JVS(28057) = Jac_FULL(4794,5256) - JVS(28057) = -B(3136) -! JVS(28058) = Jac_FULL(4794,5258) - JVS(28058) = -B(3138)-B(3140) -! JVS(28059) = Jac_FULL(4795,3401) - JVS(28059) = B(14926) -! JVS(28060) = Jac_FULL(4795,3515) - JVS(28060) = B(14920) -! JVS(28061) = Jac_FULL(4795,4795) - JVS(28061) = -B(17468)-B(17470)-B(17472)-B(17474)-B(17476)-B(17478)-B(17480)-B(17481) -! JVS(28062) = Jac_FULL(4795,5036) - JVS(28062) = 0 -! JVS(28063) = Jac_FULL(4795,5250) - JVS(28063) = B(14921) -! JVS(28064) = Jac_FULL(4795,5252) - JVS(28064) = -B(17475) -! JVS(28065) = Jac_FULL(4795,5253) - JVS(28065) = -B(17477) -! JVS(28066) = Jac_FULL(4795,5255) - JVS(28066) = -B(17469)-B(17471)-B(17473) -! JVS(28067) = Jac_FULL(4795,5256) - JVS(28067) = -B(17479) -! JVS(28068) = Jac_FULL(4796,538) - JVS(28068) = B(9410) -! JVS(28069) = Jac_FULL(4796,568) - JVS(28069) = B(9294) -! JVS(28070) = Jac_FULL(4796,614) - JVS(28070) = B(8766) -! JVS(28071) = Jac_FULL(4796,628) - JVS(28071) = B(8804) -! JVS(28072) = Jac_FULL(4796,700) - JVS(28072) = B(9525) -! JVS(28073) = Jac_FULL(4796,2336) - JVS(28073) = B(22283) -! JVS(28074) = Jac_FULL(4796,2535) - JVS(28074) = B(18075) -! JVS(28075) = Jac_FULL(4796,2536) - JVS(28075) = B(18124) -! JVS(28076) = Jac_FULL(4796,2577) - JVS(28076) = B(19887) -! JVS(28077) = Jac_FULL(4796,2588) - JVS(28077) = B(18330) -! JVS(28078) = Jac_FULL(4796,2604) - JVS(28078) = B(18334) -! JVS(28079) = Jac_FULL(4796,2731) - JVS(28079) = B(18079) -! JVS(28080) = Jac_FULL(4796,2903) - JVS(28080) = B(20070) -! JVS(28081) = Jac_FULL(4796,3001) - JVS(28081) = B(18128) -! JVS(28082) = Jac_FULL(4796,3036) - JVS(28082) = B(19925) -! JVS(28083) = Jac_FULL(4796,3361) - JVS(28083) = B(20105) -! JVS(28084) = Jac_FULL(4796,3387) - JVS(28084) = B(14919) -! JVS(28085) = Jac_FULL(4796,3395) - JVS(28085) = B(18456) -! JVS(28086) = Jac_FULL(4796,3414) - JVS(28086) = B(20135) -! JVS(28087) = Jac_FULL(4796,3421) - JVS(28087) = B(18389) -! JVS(28088) = Jac_FULL(4796,3500) - JVS(28088) = B(20486) -! JVS(28089) = Jac_FULL(4796,3545) - JVS(28089) = 0 -! JVS(28090) = Jac_FULL(4796,3579) - JVS(28090) = B(18393) -! JVS(28091) = Jac_FULL(4796,3597) - JVS(28091) = B(18460) -! JVS(28092) = Jac_FULL(4796,3684) - JVS(28092) = 0 -! JVS(28093) = Jac_FULL(4796,3701) - JVS(28093) = 0 -! JVS(28094) = Jac_FULL(4796,3821) - JVS(28094) = B(12585) -! JVS(28095) = Jac_FULL(4796,3830) - JVS(28095) = 0 -! JVS(28096) = Jac_FULL(4796,3831) - JVS(28096) = 0 -! JVS(28097) = Jac_FULL(4796,4014) - JVS(28097) = B(12722) -! JVS(28098) = Jac_FULL(4796,4047) - JVS(28098) = B(12784) -! JVS(28099) = Jac_FULL(4796,4184) - JVS(28099) = 0 -! JVS(28100) = Jac_FULL(4796,4194) - JVS(28100) = 0 -! JVS(28101) = Jac_FULL(4796,4195) - JVS(28101) = 0 -! JVS(28102) = Jac_FULL(4796,4205) - JVS(28102) = 0 -! JVS(28103) = Jac_FULL(4796,4217) - JVS(28103) = 0 -! JVS(28104) = Jac_FULL(4796,4237) - JVS(28104) = 0 -! JVS(28105) = Jac_FULL(4796,4246) - JVS(28105) = 0 -! JVS(28106) = Jac_FULL(4796,4262) - JVS(28106) = 0 -! JVS(28107) = Jac_FULL(4796,4265) - JVS(28107) = 0 -! JVS(28108) = Jac_FULL(4796,4271) - JVS(28108) = 0 -! JVS(28109) = Jac_FULL(4796,4273) - JVS(28109) = 0 -! JVS(28110) = Jac_FULL(4796,4280) - JVS(28110) = 0 -! JVS(28111) = Jac_FULL(4796,4296) - JVS(28111) = 0 -! JVS(28112) = Jac_FULL(4796,4304) - JVS(28112) = 0 -! JVS(28113) = Jac_FULL(4796,4306) - JVS(28113) = 0 -! JVS(28114) = Jac_FULL(4796,4307) - JVS(28114) = 0 -! JVS(28115) = Jac_FULL(4796,4326) - JVS(28115) = 0 -! JVS(28116) = Jac_FULL(4796,4397) - JVS(28116) = 0 -! JVS(28117) = Jac_FULL(4796,4398) - JVS(28117) = B(12357) -! JVS(28118) = Jac_FULL(4796,4444) - JVS(28118) = 0 -! JVS(28119) = Jac_FULL(4796,4454) - JVS(28119) = 0 -! JVS(28120) = Jac_FULL(4796,4466) - JVS(28120) = 0 -! JVS(28121) = Jac_FULL(4796,4491) - JVS(28121) = B(12418) -! JVS(28122) = Jac_FULL(4796,4514) - JVS(28122) = 0 -! JVS(28123) = Jac_FULL(4796,4531) - JVS(28123) = 0 -! JVS(28124) = Jac_FULL(4796,4533) - JVS(28124) = 0 -! JVS(28125) = Jac_FULL(4796,4603) - JVS(28125) = 0 -! JVS(28126) = Jac_FULL(4796,4726) - JVS(28126) = 0 -! JVS(28127) = Jac_FULL(4796,4790) - JVS(28127) = 0 -! JVS(28128) = Jac_FULL(4796,4791) - JVS(28128) = 0 -! JVS(28129) = Jac_FULL(4796,4795) - JVS(28129) = 0 -! JVS(28130) = Jac_FULL(4796,4796) - JVS(28130) = -B(7912)-B(7913) -! JVS(28131) = Jac_FULL(4796,4797) - JVS(28131) = 0 -! JVS(28132) = Jac_FULL(4796,4798) - JVS(28132) = 0 -! JVS(28133) = Jac_FULL(4796,4799) - JVS(28133) = 0 -! JVS(28134) = Jac_FULL(4796,4859) - JVS(28134) = 0 -! JVS(28135) = Jac_FULL(4796,4916) - JVS(28135) = 0 -! JVS(28136) = Jac_FULL(4796,4968) - JVS(28136) = 0 -! JVS(28137) = Jac_FULL(4796,4986) - JVS(28137) = 0 -! JVS(28138) = Jac_FULL(4796,5005) - JVS(28138) = 0 -! JVS(28139) = Jac_FULL(4796,5034) - JVS(28139) = 0 -! JVS(28140) = Jac_FULL(4796,5036) - JVS(28140) = 0 -! JVS(28141) = Jac_FULL(4796,5167) - JVS(28141) = 0 -! JVS(28142) = Jac_FULL(4796,5170) - JVS(28142) = B(4265) -! JVS(28143) = Jac_FULL(4796,5216) - JVS(28143) = B(7898)+B(7911) -! JVS(28144) = Jac_FULL(4796,5250) - JVS(28144) = -B(7914) -! JVS(28145) = Jac_FULL(4796,5252) - JVS(28145) = 0 -! JVS(28146) = Jac_FULL(4796,5253) - JVS(28146) = 0 -! JVS(28147) = Jac_FULL(4796,5255) - JVS(28147) = B(7899) -! JVS(28148) = Jac_FULL(4796,5256) - JVS(28148) = 0 -! JVS(28149) = Jac_FULL(4796,5258) - JVS(28149) = 0 -! JVS(28150) = Jac_FULL(4797,1221) - JVS(28150) = B(18314) -! JVS(28151) = Jac_FULL(4797,3093) - JVS(28151) = B(9264)+B(9266) -! JVS(28152) = Jac_FULL(4797,4036) - JVS(28152) = B(15850)+B(15852)+B(15854) -! JVS(28153) = Jac_FULL(4797,4453) - JVS(28153) = 0 -! JVS(28154) = Jac_FULL(4797,4797) - JVS(28154) = -B(12775)-B(12777) -! JVS(28155) = Jac_FULL(4797,5250) - JVS(28155) = B(9267) -! JVS(28156) = Jac_FULL(4797,5252) - JVS(28156) = B(15851) -! JVS(28157) = Jac_FULL(4797,5253) - JVS(28157) = -B(12776) -! JVS(28158) = Jac_FULL(4797,5255) - JVS(28158) = 0 -! JVS(28159) = Jac_FULL(4797,5256) - JVS(28159) = B(9265)+B(15853) -! JVS(28160) = Jac_FULL(4797,5258) - JVS(28160) = -B(12778) -! JVS(28161) = Jac_FULL(4798,1230) - JVS(28161) = B(18120) -! JVS(28162) = Jac_FULL(4798,4022) - JVS(28162) = B(15530)+B(15532)+B(15534) -! JVS(28163) = Jac_FULL(4798,4048) - JVS(28163) = B(8789)+B(8791) -! JVS(28164) = Jac_FULL(4798,4338) - JVS(28164) = 0 -! JVS(28165) = Jac_FULL(4798,4591) - JVS(28165) = 0 -! JVS(28166) = Jac_FULL(4798,4592) - JVS(28166) = 0 -! JVS(28167) = Jac_FULL(4798,4798) - JVS(28167) = -B(12423)-B(12425) -! JVS(28168) = Jac_FULL(4798,5250) - JVS(28168) = B(8792) -! JVS(28169) = Jac_FULL(4798,5252) - JVS(28169) = B(15531) -! JVS(28170) = Jac_FULL(4798,5253) - JVS(28170) = -B(12424) -! JVS(28171) = Jac_FULL(4798,5255) - JVS(28171) = 0 -! JVS(28172) = Jac_FULL(4798,5256) - JVS(28172) = B(8790)+B(15533) -! JVS(28173) = Jac_FULL(4798,5258) - JVS(28173) = -B(12426) -! JVS(28174) = Jac_FULL(4799,124) - JVS(28174) = B(10043) -! JVS(28175) = Jac_FULL(4799,1503) - JVS(28175) = B(10040) -! JVS(28176) = Jac_FULL(4799,1555) - JVS(28176) = B(10052) -! JVS(28177) = Jac_FULL(4799,2499) - JVS(28177) = B(10047) -! JVS(28178) = Jac_FULL(4799,3511) - JVS(28178) = B(6328)+B(6330)+B(6332) -! JVS(28179) = Jac_FULL(4799,3791) - JVS(28179) = 0 -! JVS(28180) = Jac_FULL(4799,4799) - JVS(28180) = -B(10041)-B(10042) -! JVS(28181) = Jac_FULL(4799,5250) - JVS(28181) = B(10044) -! JVS(28182) = Jac_FULL(4799,5252) - JVS(28182) = B(6329) -! JVS(28183) = Jac_FULL(4799,5255) - JVS(28183) = 0 -! JVS(28184) = Jac_FULL(4799,5256) - JVS(28184) = B(6331) -! JVS(28185) = Jac_FULL(4800,675) - JVS(28185) = B(12043) -! JVS(28186) = Jac_FULL(4800,2050) - JVS(28186) = B(12042) -! JVS(28187) = Jac_FULL(4800,4800) - JVS(28187) = -B(15234)-B(15235)-B(15237) -! JVS(28188) = Jac_FULL(4800,5119) - JVS(28188) = 0 -! JVS(28189) = Jac_FULL(4800,5250) - JVS(28189) = B(12044)-B(15236)-B(15238) -! JVS(28190) = Jac_FULL(4800,5252) - JVS(28190) = 0 -! JVS(28191) = Jac_FULL(4800,5255) - JVS(28191) = 0 -! JVS(28192) = Jac_FULL(4800,5256) - JVS(28192) = 0 -! JVS(28193) = Jac_FULL(4801,1722) - JVS(28193) = B(19710) -! JVS(28194) = Jac_FULL(4801,1723) - JVS(28194) = B(19709) -! JVS(28195) = Jac_FULL(4801,2084) - JVS(28195) = B(19706) -! JVS(28196) = Jac_FULL(4801,2365) - JVS(28196) = B(7036) -! JVS(28197) = Jac_FULL(4801,2550) - JVS(28197) = B(3952) -! JVS(28198) = Jac_FULL(4801,2822) - JVS(28198) = B(19594) -! JVS(28199) = Jac_FULL(4801,3000) - JVS(28199) = B(19701) -! JVS(28200) = Jac_FULL(4801,3222) - JVS(28200) = B(7029) -! JVS(28201) = Jac_FULL(4801,3255) - JVS(28201) = B(7745) -! JVS(28202) = Jac_FULL(4801,3284) - JVS(28202) = B(7744) -! JVS(28203) = Jac_FULL(4801,3336) - JVS(28203) = B(19585) -! JVS(28204) = Jac_FULL(4801,3547) - JVS(28204) = B(3958) -! JVS(28205) = Jac_FULL(4801,4161) - JVS(28205) = 0 -! JVS(28206) = Jac_FULL(4801,4309) - JVS(28206) = 0 -! JVS(28207) = Jac_FULL(4801,4391) - JVS(28207) = B(7042) -! JVS(28208) = Jac_FULL(4801,4546) - JVS(28208) = 0 -! JVS(28209) = Jac_FULL(4801,4561) - JVS(28209) = 0 -! JVS(28210) = Jac_FULL(4801,4800) - JVS(28210) = 0 -! JVS(28211) = Jac_FULL(4801,4801) - JVS(28211) = -B(7039)-B(7041) -! JVS(28212) = Jac_FULL(4801,4802) - JVS(28212) = 0 -! JVS(28213) = Jac_FULL(4801,4934) - JVS(28213) = 0 -! JVS(28214) = Jac_FULL(4801,4975) - JVS(28214) = 0 -! JVS(28215) = Jac_FULL(4801,4979) - JVS(28215) = 0 -! JVS(28216) = Jac_FULL(4801,5010) - JVS(28216) = 0 -! JVS(28217) = Jac_FULL(4801,5032) - JVS(28217) = 0 -! JVS(28218) = Jac_FULL(4801,5119) - JVS(28218) = 0 -! JVS(28219) = Jac_FULL(4801,5120) - JVS(28219) = 0 -! JVS(28220) = Jac_FULL(4801,5151) - JVS(28220) = B(3244) -! JVS(28221) = Jac_FULL(4801,5250) - JVS(28221) = B(7030)+B(7037)-B(7040)+B(7043)+B(19595) -! JVS(28222) = Jac_FULL(4801,5252) - JVS(28222) = 0 -! JVS(28223) = Jac_FULL(4801,5253) - JVS(28223) = 0 -! JVS(28224) = Jac_FULL(4801,5255) - JVS(28224) = 0 -! JVS(28225) = Jac_FULL(4801,5256) - JVS(28225) = 0 -! JVS(28226) = Jac_FULL(4802,2981) - JVS(28226) = B(19696) -! JVS(28227) = Jac_FULL(4802,4800) - JVS(28227) = B(15235) -! JVS(28228) = Jac_FULL(4802,4802) - JVS(28228) = -B(17813)-B(17815)-B(17817)-B(17819)-B(17821)-B(17822) -! JVS(28229) = Jac_FULL(4802,5119) - JVS(28229) = 0 -! JVS(28230) = Jac_FULL(4802,5250) - JVS(28230) = B(15236)+B(19697) -! JVS(28231) = Jac_FULL(4802,5252) - JVS(28231) = -B(17816)-B(17818) -! JVS(28232) = Jac_FULL(4802,5255) - JVS(28232) = -B(17814) -! JVS(28233) = Jac_FULL(4802,5256) - JVS(28233) = -B(17820) -! JVS(28234) = Jac_FULL(4803,4027) - JVS(28234) = B(2755) -! JVS(28235) = Jac_FULL(4803,4803) - JVS(28235) = -B(6076)-B(6078)-B(6080)-B(6082)-B(6084)-B(6085)-B(6086) -! JVS(28236) = Jac_FULL(4803,5250) - JVS(28236) = B(2756) -! JVS(28237) = Jac_FULL(4803,5252) - JVS(28237) = -B(6079)-B(6081) -! JVS(28238) = Jac_FULL(4803,5255) - JVS(28238) = -B(6077) -! JVS(28239) = Jac_FULL(4803,5256) - JVS(28239) = -B(6083) -! JVS(28240) = Jac_FULL(4803,5258) - JVS(28240) = 0 -! JVS(28241) = Jac_FULL(4804,1999) - JVS(28241) = B(12287) -! JVS(28242) = Jac_FULL(4804,3349) - JVS(28242) = B(5109) -! JVS(28243) = Jac_FULL(4804,3925) - JVS(28243) = 0 -! JVS(28244) = Jac_FULL(4804,4587) - JVS(28244) = 0 -! JVS(28245) = Jac_FULL(4804,4804) - JVS(28245) = -B(8617)-B(8619)-B(8621)-B(8623)-B(8624)-B(8625) -! JVS(28246) = Jac_FULL(4804,5250) - JVS(28246) = B(5110)+B(12288) -! JVS(28247) = Jac_FULL(4804,5252) - JVS(28247) = -B(8620) -! JVS(28248) = Jac_FULL(4804,5255) - JVS(28248) = -B(8618) -! JVS(28249) = Jac_FULL(4804,5256) - JVS(28249) = -B(8622) -! JVS(28250) = Jac_FULL(4804,5258) - JVS(28250) = 0 -! JVS(28251) = Jac_FULL(4805,4805) - JVS(28251) = -B(13677)-B(13679)-B(13681)-B(13683) -! JVS(28252) = Jac_FULL(4805,4976) - JVS(28252) = B(10511)+B(10521) -! JVS(28253) = Jac_FULL(4805,5033) - JVS(28253) = B(13808) -! JVS(28254) = Jac_FULL(4805,5250) - JVS(28254) = B(10522)-B(13682) -! JVS(28255) = Jac_FULL(4805,5256) - JVS(28255) = B(10512) -! JVS(28256) = Jac_FULL(4805,5258) - JVS(28256) = -B(13678)-B(13680) -! JVS(28257) = Jac_FULL(4806,80) - JVS(28257) = B(19060) -! JVS(28258) = Jac_FULL(4806,992) - JVS(28258) = 0 -! JVS(28259) = Jac_FULL(4806,1275) - JVS(28259) = B(21667) -! JVS(28260) = Jac_FULL(4806,2867) - JVS(28260) = B(21672) -! JVS(28261) = Jac_FULL(4806,3717) - JVS(28261) = 0 -! JVS(28262) = Jac_FULL(4806,4765) - JVS(28262) = 0 -! JVS(28263) = Jac_FULL(4806,4806) - JVS(28263) = -B(20621)-B(20623)-B(20625)-B(20627)-B(20629)-B(20631) -! JVS(28264) = Jac_FULL(4806,5081) - JVS(28264) = 0 -! JVS(28265) = Jac_FULL(4806,5250) - JVS(28265) = B(21668) -! JVS(28266) = Jac_FULL(4806,5252) - JVS(28266) = -B(20626) -! JVS(28267) = Jac_FULL(4806,5253) - JVS(28267) = -B(20628) -! JVS(28268) = Jac_FULL(4806,5255) - JVS(28268) = -B(20622)-B(20624) -! JVS(28269) = Jac_FULL(4806,5256) - JVS(28269) = -B(20630) -! JVS(28270) = Jac_FULL(4807,1465) - JVS(28270) = B(9847) -! JVS(28271) = Jac_FULL(4807,3258) - JVS(28271) = B(9852) -! JVS(28272) = Jac_FULL(4807,3996) - JVS(28272) = B(2791)+B(2797) -! JVS(28273) = Jac_FULL(4807,4807) - JVS(28273) = -B(6141)-B(6143)-B(6145)-B(6147)-B(6149)-B(6151)-B(6153)-B(6154) -! JVS(28274) = Jac_FULL(4807,5250) - JVS(28274) = B(2798)+B(9848) -! JVS(28275) = Jac_FULL(4807,5252) - JVS(28275) = -B(6148) -! JVS(28276) = Jac_FULL(4807,5253) - JVS(28276) = -B(6150) -! JVS(28277) = Jac_FULL(4807,5255) - JVS(28277) = -B(6142)-B(6144)-B(6146) -! JVS(28278) = Jac_FULL(4807,5256) - JVS(28278) = B(2792)-B(6152) -! JVS(28279) = Jac_FULL(4807,5258) - JVS(28279) = 0 -! JVS(28280) = Jac_FULL(4808,894) - JVS(28280) = B(21356) -! JVS(28281) = Jac_FULL(4808,2552) - JVS(28281) = B(21361) -! JVS(28282) = Jac_FULL(4808,3911) - JVS(28282) = B(18207)+B(18209) -! JVS(28283) = Jac_FULL(4808,4808) - JVS(28283) = -B(19995)-B(19997)-B(19999)-B(20001)-B(20003)-B(20005)-B(20007)-B(20008) -! JVS(28284) = Jac_FULL(4808,4927) - JVS(28284) = 0 -! JVS(28285) = Jac_FULL(4808,5250) - JVS(28285) = B(18210)+B(21357) -! JVS(28286) = Jac_FULL(4808,5252) - JVS(28286) = -B(20002) -! JVS(28287) = Jac_FULL(4808,5253) - JVS(28287) = -B(20004) -! JVS(28288) = Jac_FULL(4808,5255) - JVS(28288) = -B(19996)-B(19998)-B(20000) -! JVS(28289) = Jac_FULL(4808,5256) - JVS(28289) = B(18208)-B(20006) -! JVS(28290) = Jac_FULL(4809,1300) - JVS(28290) = B(4894) -! JVS(28291) = Jac_FULL(4809,3533) - JVS(28291) = B(7660) -! JVS(28292) = Jac_FULL(4809,4512) - JVS(28292) = B(467) -! JVS(28293) = Jac_FULL(4809,4809) - JVS(28293) = -B(2070)-B(2072)-B(2074)-B(2076)-B(2077)-B(2078) -! JVS(28294) = Jac_FULL(4809,5239) - JVS(28294) = 0 -! JVS(28295) = Jac_FULL(4809,5250) - JVS(28295) = B(4895) -! JVS(28296) = Jac_FULL(4809,5252) - JVS(28296) = -B(2073) -! JVS(28297) = Jac_FULL(4809,5255) - JVS(28297) = -B(2071) -! JVS(28298) = Jac_FULL(4809,5256) - JVS(28298) = B(468)-B(2075) -! JVS(28299) = Jac_FULL(4809,5258) - JVS(28299) = 0 -! JVS(28300) = Jac_FULL(4810,1061) - JVS(28300) = B(18511) -! JVS(28301) = Jac_FULL(4810,3111) - JVS(28301) = B(9625)+B(9627) -! JVS(28302) = Jac_FULL(4810,4034) - JVS(28302) = B(16141)+B(16143)+B(16145) -! JVS(28303) = Jac_FULL(4810,4494) - JVS(28303) = 0 -! JVS(28304) = Jac_FULL(4810,4810) - JVS(28304) = -B(13063)-B(13065) -! JVS(28305) = Jac_FULL(4810,5250) - JVS(28305) = B(9628) -! JVS(28306) = Jac_FULL(4810,5252) - JVS(28306) = B(16142) -! JVS(28307) = Jac_FULL(4810,5253) - JVS(28307) = -B(13064) -! JVS(28308) = Jac_FULL(4810,5255) - JVS(28308) = 0 -! JVS(28309) = Jac_FULL(4810,5256) - JVS(28309) = B(9626)+B(16144) -! JVS(28310) = Jac_FULL(4810,5258) - JVS(28310) = -B(13066) -! JVS(28311) = Jac_FULL(4811,2625) - JVS(28311) = B(19715) -! JVS(28312) = Jac_FULL(4811,3298) - JVS(28312) = B(15243) -! JVS(28313) = Jac_FULL(4811,3822) - JVS(28313) = 0 -! JVS(28314) = Jac_FULL(4811,4800) - JVS(28314) = 0 -! JVS(28315) = Jac_FULL(4811,4811) - JVS(28315) = -B(17831)-B(17833)-B(17835)-B(17837)-B(17838)-B(17839) -! JVS(28316) = Jac_FULL(4811,5119) - JVS(28316) = 0 -! JVS(28317) = Jac_FULL(4811,5250) - JVS(28317) = B(15244)+B(19716) -! JVS(28318) = Jac_FULL(4811,5252) - JVS(28318) = -B(17834) -! JVS(28319) = Jac_FULL(4811,5255) - JVS(28319) = -B(17832) -! JVS(28320) = Jac_FULL(4811,5256) - JVS(28320) = -B(17836) -! JVS(28321) = Jac_FULL(4812,817) - JVS(28321) = B(23140) -! JVS(28322) = Jac_FULL(4812,2139) - JVS(28322) = B(23493) -! JVS(28323) = Jac_FULL(4812,2440) - JVS(28323) = 0 -! JVS(28324) = Jac_FULL(4812,2941) - JVS(28324) = B(23498) -! JVS(28325) = Jac_FULL(4812,3397) - JVS(28325) = B(22673)+B(22675) -! JVS(28326) = Jac_FULL(4812,4130) - JVS(28326) = 0 -! JVS(28327) = Jac_FULL(4812,4385) - JVS(28327) = 0 -! JVS(28328) = Jac_FULL(4812,4812) - JVS(28328) = -B(23123)-B(23125)-B(23127)-B(23129)-B(23131)-B(23133)-B(23135)-B(23136) -! JVS(28329) = Jac_FULL(4812,5041) - JVS(28329) = 0 -! JVS(28330) = Jac_FULL(4812,5250) - JVS(28330) = B(22674)+B(23494) -! JVS(28331) = Jac_FULL(4812,5252) - JVS(28331) = -B(23130) -! JVS(28332) = Jac_FULL(4812,5253) - JVS(28332) = -B(23132) -! JVS(28333) = Jac_FULL(4812,5255) - JVS(28333) = -B(23124)-B(23126)-B(23128) -! JVS(28334) = Jac_FULL(4812,5256) - JVS(28334) = -B(23134) -! JVS(28335) = Jac_FULL(4813,898) - JVS(28335) = B(10248)+B(10250) -! JVS(28336) = Jac_FULL(4813,1274) - JVS(28336) = B(10253) -! JVS(28337) = Jac_FULL(4813,4017) - JVS(28337) = B(2987) -! JVS(28338) = Jac_FULL(4813,4656) - JVS(28338) = B(6542)+B(6548)+B(6552)+B(6554) -! JVS(28339) = Jac_FULL(4813,4813) - JVS(28339) = -B(6572)-B(6574)-B(6576)-B(6578)-B(6579)-B(6580) -! JVS(28340) = Jac_FULL(4813,5250) - JVS(28340) = B(10249) -! JVS(28341) = Jac_FULL(4813,5252) - JVS(28341) = B(6549)-B(6575) -! JVS(28342) = Jac_FULL(4813,5253) - JVS(28342) = 0 -! JVS(28343) = Jac_FULL(4813,5255) - JVS(28343) = B(6543)-B(6573) -! JVS(28344) = Jac_FULL(4813,5256) - JVS(28344) = B(6553)-B(6577) -! JVS(28345) = Jac_FULL(4813,5258) - JVS(28345) = 0 -! JVS(28346) = Jac_FULL(4814,598) - JVS(28346) = B(142) -! JVS(28347) = Jac_FULL(4814,3018) - JVS(28347) = B(3921) -! JVS(28348) = Jac_FULL(4814,4814) - JVS(28348) = -B(1161)-B(1163)-B(1165)-B(1167)-B(1169)-B(1170)-B(1171) -! JVS(28349) = Jac_FULL(4814,5181) - JVS(28349) = 0 -! JVS(28350) = Jac_FULL(4814,5250) - JVS(28350) = B(143)+B(3922) -! JVS(28351) = Jac_FULL(4814,5252) - JVS(28351) = -B(1164)-B(1166) -! JVS(28352) = Jac_FULL(4814,5255) - JVS(28352) = -B(1162) -! JVS(28353) = Jac_FULL(4814,5256) - JVS(28353) = -B(1168) -! JVS(28354) = Jac_FULL(4815,659) - JVS(28354) = B(16097) -! JVS(28355) = Jac_FULL(4815,1088) - JVS(28355) = B(16086) -! JVS(28356) = Jac_FULL(4815,2505) - JVS(28356) = B(21444) -! JVS(28357) = Jac_FULL(4815,2862) - JVS(28357) = B(21443) -! JVS(28358) = Jac_FULL(4815,4141) - JVS(28358) = B(13001) -! JVS(28359) = Jac_FULL(4815,4218) - JVS(28359) = B(20139)+B(20143)+B(20147)+B(20149) -! JVS(28360) = Jac_FULL(4815,4743) - JVS(28360) = 0 -! JVS(28361) = Jac_FULL(4815,4815) - JVS(28361) = -B(16090)-B(16092)-B(16094)-B(16095)-B(16096) -! JVS(28362) = Jac_FULL(4815,5068) - JVS(28362) = 0 -! JVS(28363) = Jac_FULL(4815,5250) - JVS(28363) = B(16087)-B(16093)+B(16098)+B(21445) -! JVS(28364) = Jac_FULL(4815,5252) - JVS(28364) = B(20144) -! JVS(28365) = Jac_FULL(4815,5253) - JVS(28365) = 0 -! JVS(28366) = Jac_FULL(4815,5255) - JVS(28366) = B(20140) -! JVS(28367) = Jac_FULL(4815,5256) - JVS(28367) = -B(16091)+B(20148) -! JVS(28368) = Jac_FULL(4816,3276) - JVS(28368) = B(20526) -! JVS(28369) = Jac_FULL(4816,3324) - JVS(28369) = B(20531) -! JVS(28370) = Jac_FULL(4816,4816) - JVS(28370) = -B(18927)-B(18929)-B(18931)-B(18933)-B(18935)-B(18937)-B(18939)-B(18940) -! JVS(28371) = Jac_FULL(4816,5024) - JVS(28371) = B(16718)+B(16724) -! JVS(28372) = Jac_FULL(4816,5250) - JVS(28372) = B(16725)+B(20527) -! JVS(28373) = Jac_FULL(4816,5252) - JVS(28373) = -B(18934) -! JVS(28374) = Jac_FULL(4816,5253) - JVS(28374) = -B(18936) -! JVS(28375) = Jac_FULL(4816,5255) - JVS(28375) = -B(18928)-B(18930)-B(18932) -! JVS(28376) = Jac_FULL(4816,5256) - JVS(28376) = B(16719)-B(18938) -! JVS(28377) = Jac_FULL(4817,1802) - JVS(28377) = B(12208) -! JVS(28378) = Jac_FULL(4817,3399) - JVS(28378) = B(4921) -! JVS(28379) = Jac_FULL(4817,3878) - JVS(28379) = 0 -! JVS(28380) = Jac_FULL(4817,4593) - JVS(28380) = 0 -! JVS(28381) = Jac_FULL(4817,4817) - JVS(28381) = -B(8489)-B(8491)-B(8493)-B(8495)-B(8496)-B(8497) -! JVS(28382) = Jac_FULL(4817,5190) - JVS(28382) = 0 -! JVS(28383) = Jac_FULL(4817,5250) - JVS(28383) = B(4922)+B(12209) -! JVS(28384) = Jac_FULL(4817,5252) - JVS(28384) = -B(8492) -! JVS(28385) = Jac_FULL(4817,5255) - JVS(28385) = -B(8490) -! JVS(28386) = Jac_FULL(4817,5256) - JVS(28386) = -B(8494) -! JVS(28387) = Jac_FULL(4818,1022) - JVS(28387) = B(23606) -! JVS(28388) = Jac_FULL(4818,3293) - JVS(28388) = B(23611) -! JVS(28389) = Jac_FULL(4818,4818) - JVS(28389) = -B(23312)-B(23314)-B(23316)-B(23318)-B(23320)-B(23322)-B(23324)-B(23325) -! JVS(28390) = Jac_FULL(4818,5072) - JVS(28390) = B(22902)+B(22906) -! JVS(28391) = Jac_FULL(4818,5250) - JVS(28391) = B(22907)+B(23607) -! JVS(28392) = Jac_FULL(4818,5252) - JVS(28392) = -B(23319) -! JVS(28393) = Jac_FULL(4818,5253) - JVS(28393) = -B(23321) -! JVS(28394) = Jac_FULL(4818,5255) - JVS(28394) = -B(23313)-B(23315)-B(23317) -! JVS(28395) = Jac_FULL(4818,5256) - JVS(28395) = B(22903)-B(23323) -! JVS(28396) = Jac_FULL(4819,1959) - JVS(28396) = B(3051) -! JVS(28397) = Jac_FULL(4819,4819) - JVS(28397) = -B(6639)-B(6641)-B(6643)-B(6645)-B(6647)-B(6648) -! JVS(28398) = Jac_FULL(4819,5153) - JVS(28398) = 0 -! JVS(28399) = Jac_FULL(4819,5251) - JVS(28399) = -B(6640) -! JVS(28400) = Jac_FULL(4819,5252) - JVS(28400) = -B(6642) -! JVS(28401) = Jac_FULL(4819,5253) - JVS(28401) = -B(6644) -! JVS(28402) = Jac_FULL(4819,5254) - JVS(28402) = -B(6646) -! JVS(28403) = Jac_FULL(4819,5258) - JVS(28403) = 0 -! JVS(28404) = Jac_FULL(4820,173) - JVS(28404) = B(23517) -! JVS(28405) = Jac_FULL(4820,1328) - JVS(28405) = 0 -! JVS(28406) = Jac_FULL(4820,2444) - JVS(28406) = 0 -! JVS(28407) = Jac_FULL(4820,3841) - JVS(28407) = 0 -! JVS(28408) = Jac_FULL(4820,4820) - JVS(28408) = -B(23751)-B(23753)-B(23755)-B(23757)-B(23758)-B(23759) -! JVS(28409) = Jac_FULL(4820,5245) - JVS(28409) = 0 -! JVS(28410) = Jac_FULL(4820,5250) - JVS(28410) = 0 -! JVS(28411) = Jac_FULL(4820,5252) - JVS(28411) = -B(23754) -! JVS(28412) = Jac_FULL(4820,5255) - JVS(28412) = -B(23752) -! JVS(28413) = Jac_FULL(4820,5256) - JVS(28413) = -B(23756) -! JVS(28414) = Jac_FULL(4821,4010) - JVS(28414) = B(2413) -! JVS(28415) = Jac_FULL(4821,4821) - JVS(28415) = -B(5363)-B(5365)-B(5367)-B(5369)-B(5371)-B(5372)-B(5373) -! JVS(28416) = Jac_FULL(4821,5250) - JVS(28416) = B(2414) -! JVS(28417) = Jac_FULL(4821,5252) - JVS(28417) = -B(5366)-B(5368) -! JVS(28418) = Jac_FULL(4821,5255) - JVS(28418) = -B(5364) -! JVS(28419) = Jac_FULL(4821,5256) - JVS(28419) = -B(5370) -! JVS(28420) = Jac_FULL(4821,5258) - JVS(28420) = 0 -! JVS(28421) = Jac_FULL(4822,1067) - JVS(28421) = B(12370) -! JVS(28422) = Jac_FULL(4822,2712) - JVS(28422) = B(12375) -! JVS(28423) = Jac_FULL(4822,3416) - JVS(28423) = B(8724) -! JVS(28424) = Jac_FULL(4822,4720) - JVS(28424) = 0 -! JVS(28425) = Jac_FULL(4822,4721) - JVS(28425) = B(5229)+B(5231) -! JVS(28426) = Jac_FULL(4822,4821) - JVS(28426) = 0 -! JVS(28427) = Jac_FULL(4822,4822) - JVS(28427) = -B(8693)-B(8695)-B(8697)-B(8699)-B(8701)-B(8703)-B(8705)-B(8706) -! JVS(28428) = Jac_FULL(4822,4928) - JVS(28428) = 0 -! JVS(28429) = Jac_FULL(4822,5250) - JVS(28429) = B(5232)+B(8725)+B(12371) -! JVS(28430) = Jac_FULL(4822,5252) - JVS(28430) = -B(8700) -! JVS(28431) = Jac_FULL(4822,5253) - JVS(28431) = -B(8702) -! JVS(28432) = Jac_FULL(4822,5255) - JVS(28432) = -B(8694)-B(8696)-B(8698) -! JVS(28433) = Jac_FULL(4822,5256) - JVS(28433) = B(5230)-B(8704) -! JVS(28434) = Jac_FULL(4822,5258) - JVS(28434) = 0 -! JVS(28435) = Jac_FULL(4823,1067) - JVS(28435) = B(12372) -! JVS(28436) = Jac_FULL(4823,1356) - JVS(28436) = B(12367)+B(12369) -! JVS(28437) = Jac_FULL(4823,3416) - JVS(28437) = B(8726) -! JVS(28438) = Jac_FULL(4823,3576) - JVS(28438) = B(8722) -! JVS(28439) = Jac_FULL(4823,3588) - JVS(28439) = B(9352) -! JVS(28440) = Jac_FULL(4823,3589) - JVS(28440) = B(8879) -! JVS(28441) = Jac_FULL(4823,4388) - JVS(28441) = B(9473) -! JVS(28442) = Jac_FULL(4823,4393) - JVS(28442) = B(9584) -! JVS(28443) = Jac_FULL(4823,4701) - JVS(28443) = 0 -! JVS(28444) = Jac_FULL(4823,4720) - JVS(28444) = 0 -! JVS(28445) = Jac_FULL(4823,4721) - JVS(28445) = B(5233) -! JVS(28446) = Jac_FULL(4823,4821) - JVS(28446) = 0 -! JVS(28447) = Jac_FULL(4823,4822) - JVS(28447) = B(8693)+B(8699)+B(8703)+B(8705) -! JVS(28448) = Jac_FULL(4823,4823) - JVS(28448) = -B(8707)-B(8709)-B(8711)-B(8713)-B(8714)-B(8715) -! JVS(28449) = Jac_FULL(4823,4928) - JVS(28449) = 0 -! JVS(28450) = Jac_FULL(4823,5250) - JVS(28450) = B(12368) -! JVS(28451) = Jac_FULL(4823,5252) - JVS(28451) = B(8700)-B(8710) -! JVS(28452) = Jac_FULL(4823,5253) - JVS(28452) = 0 -! JVS(28453) = Jac_FULL(4823,5255) - JVS(28453) = B(8694)-B(8708) -! JVS(28454) = Jac_FULL(4823,5256) - JVS(28454) = B(8704)-B(8712) -! JVS(28455) = Jac_FULL(4823,5258) - JVS(28455) = 0 -! JVS(28456) = Jac_FULL(4824,612) - JVS(28456) = B(14519) -! JVS(28457) = Jac_FULL(4824,4824) - JVS(28457) = -B(17163)-B(17165)-B(17167)-B(17169)-B(17171)-B(17172) -! JVS(28458) = Jac_FULL(4824,5175) - JVS(28458) = 0 -! JVS(28459) = Jac_FULL(4824,5251) - JVS(28459) = -B(17164) -! JVS(28460) = Jac_FULL(4824,5252) - JVS(28460) = -B(17166) -! JVS(28461) = Jac_FULL(4824,5253) - JVS(28461) = -B(17168) -! JVS(28462) = Jac_FULL(4824,5254) - JVS(28462) = -B(17170) -! JVS(28463) = Jac_FULL(4824,5258) - JVS(28463) = 0 -! JVS(28464) = Jac_FULL(4825,206) - JVS(28464) = B(20988) -! JVS(28465) = Jac_FULL(4825,871) - JVS(28465) = 0 -! JVS(28466) = Jac_FULL(4825,4825) - JVS(28466) = -B(22025)-B(22027)-B(22029)-B(22031)-B(22033)-B(22034)-B(22035) -! JVS(28467) = Jac_FULL(4825,5247) - JVS(28467) = 0 -! JVS(28468) = Jac_FULL(4825,5250) - JVS(28468) = 0 -! JVS(28469) = Jac_FULL(4825,5252) - JVS(28469) = -B(22028)-B(22030) -! JVS(28470) = Jac_FULL(4825,5255) - JVS(28470) = -B(22026) -! JVS(28471) = Jac_FULL(4825,5256) - JVS(28471) = -B(22032) -! JVS(28472) = Jac_FULL(4826,2382) - JVS(28472) = B(18774) -! JVS(28473) = Jac_FULL(4826,3211) - JVS(28473) = B(21552) -! JVS(28474) = Jac_FULL(4826,3224) - JVS(28474) = B(21557) -! JVS(28475) = Jac_FULL(4826,3443) - JVS(28475) = 0 -! JVS(28476) = Jac_FULL(4826,4826) - JVS(28476) = -B(20325)-B(20327)-B(20329)-B(20331)-B(20333)-B(20335) -! JVS(28477) = Jac_FULL(4826,5035) - JVS(28477) = 0 -! JVS(28478) = Jac_FULL(4826,5250) - JVS(28478) = B(18775)+B(21553) -! JVS(28479) = Jac_FULL(4826,5252) - JVS(28479) = -B(20330) -! JVS(28480) = Jac_FULL(4826,5253) - JVS(28480) = -B(20332) -! JVS(28481) = Jac_FULL(4826,5255) - JVS(28481) = -B(20326)-B(20328) -! JVS(28482) = Jac_FULL(4826,5256) - JVS(28482) = -B(20334) -! JVS(28483) = Jac_FULL(4827,150) - JVS(28483) = B(7144) -! JVS(28484) = Jac_FULL(4827,1954) - JVS(28484) = 0 -! JVS(28485) = Jac_FULL(4827,2940) - JVS(28485) = B(14138) -! JVS(28486) = Jac_FULL(4827,3288) - JVS(28486) = 0 -! JVS(28487) = Jac_FULL(4827,4583) - JVS(28487) = 0 -! JVS(28488) = Jac_FULL(4827,4827) - JVS(28488) = -B(10939)-B(10941)-B(10943)-B(10945)-B(10946)-B(10947) -! JVS(28489) = Jac_FULL(4827,5186) - JVS(28489) = 0 -! JVS(28490) = Jac_FULL(4827,5250) - JVS(28490) = B(14139) -! JVS(28491) = Jac_FULL(4827,5252) - JVS(28491) = -B(10942) -! JVS(28492) = Jac_FULL(4827,5255) - JVS(28492) = -B(10940) -! JVS(28493) = Jac_FULL(4827,5256) - JVS(28493) = -B(10944) -! JVS(28494) = Jac_FULL(4828,759) - JVS(28494) = B(12344) -! JVS(28495) = Jac_FULL(4828,4828) - JVS(28495) = -B(15441)-B(15443)-B(15445)-B(15447)-B(15449)-B(15450) -! JVS(28496) = Jac_FULL(4828,4951) - JVS(28496) = 0 -! JVS(28497) = Jac_FULL(4828,5251) - JVS(28497) = -B(15442) -! JVS(28498) = Jac_FULL(4828,5252) - JVS(28498) = -B(15444) -! JVS(28499) = Jac_FULL(4828,5253) - JVS(28499) = -B(15446) -! JVS(28500) = Jac_FULL(4828,5254) - JVS(28500) = -B(15448) -! JVS(28501) = Jac_FULL(4828,5258) - JVS(28501) = 0 -! JVS(28502) = Jac_FULL(4829,1031) - JVS(28502) = B(9451) -! JVS(28503) = Jac_FULL(4829,2656) - JVS(28503) = B(9456) -! JVS(28504) = Jac_FULL(4829,4094) - JVS(28504) = B(2625)+B(2629) -! JVS(28505) = Jac_FULL(4829,4829) - JVS(28505) = -B(5806)-B(5808)-B(5810)-B(5812)-B(5814)-B(5816)-B(5818)-B(5819) -! JVS(28506) = Jac_FULL(4829,5250) - JVS(28506) = B(2630)+B(9452) -! JVS(28507) = Jac_FULL(4829,5252) - JVS(28507) = -B(5813) -! JVS(28508) = Jac_FULL(4829,5253) - JVS(28508) = -B(5815) -! JVS(28509) = Jac_FULL(4829,5255) - JVS(28509) = -B(5807)-B(5809)-B(5811) -! JVS(28510) = Jac_FULL(4829,5256) - JVS(28510) = B(2626)-B(5817) -! JVS(28511) = Jac_FULL(4829,5258) - JVS(28511) = 0 -! JVS(28512) = Jac_FULL(4830,1437) - JVS(28512) = B(16908) -! JVS(28513) = Jac_FULL(4830,2323) - JVS(28513) = B(11072) -! JVS(28514) = Jac_FULL(4830,2540) - JVS(28514) = 0 -! JVS(28515) = Jac_FULL(4830,2850) - JVS(28515) = B(16916) -! JVS(28516) = Jac_FULL(4830,4563) - JVS(28516) = 0 -! JVS(28517) = Jac_FULL(4830,4830) - JVS(28517) = -B(14268)-B(14270)-B(14272)-B(14274)-B(14276)-B(14278)-B(14280)-B(14281) -! JVS(28518) = Jac_FULL(4830,5250) - JVS(28518) = B(16909) -! JVS(28519) = Jac_FULL(4830,5252) - JVS(28519) = -B(14275) -! JVS(28520) = Jac_FULL(4830,5253) - JVS(28520) = -B(14277) -! JVS(28521) = Jac_FULL(4830,5255) - JVS(28521) = -B(14269)-B(14271)-B(14273) -! JVS(28522) = Jac_FULL(4830,5256) - JVS(28522) = -B(14279) -! JVS(28523) = Jac_FULL(4830,5258) - JVS(28523) = 0 -! JVS(28524) = Jac_FULL(4831,626) - JVS(28524) = B(21531)+B(21533) -! JVS(28525) = Jac_FULL(4831,781) - JVS(28525) = B(20321) -! JVS(28526) = Jac_FULL(4831,2507) - JVS(28526) = B(22284) -! JVS(28527) = Jac_FULL(4831,2617) - JVS(28527) = 0 -! JVS(28528) = Jac_FULL(4831,3257) - JVS(28528) = B(22289) -! JVS(28529) = Jac_FULL(4831,3558) - JVS(28529) = B(20324) -! JVS(28530) = Jac_FULL(4831,4129) - JVS(28530) = 0 -! JVS(28531) = Jac_FULL(4831,4831) - JVS(28531) = -B(21534)-B(21536)-B(21538)-B(21540)-B(21542)-B(21544) -! JVS(28532) = Jac_FULL(4831,4832) - JVS(28532) = 0 -! JVS(28533) = Jac_FULL(4831,5047) - JVS(28533) = 0 -! JVS(28534) = Jac_FULL(4831,5250) - JVS(28534) = B(21532)+B(22285) -! JVS(28535) = Jac_FULL(4831,5251) - JVS(28535) = 0 -! JVS(28536) = Jac_FULL(4831,5252) - JVS(28536) = -B(21539) -! JVS(28537) = Jac_FULL(4831,5253) - JVS(28537) = -B(21541) -! JVS(28538) = Jac_FULL(4831,5254) - JVS(28538) = 0 -! JVS(28539) = Jac_FULL(4831,5255) - JVS(28539) = -B(21535)-B(21537) -! JVS(28540) = Jac_FULL(4831,5256) - JVS(28540) = -B(21543) -! JVS(28541) = Jac_FULL(4831,5258) - JVS(28541) = 0 -! JVS(28542) = Jac_FULL(4832,2130) - JVS(28542) = B(10571) -! JVS(28543) = Jac_FULL(4832,2308) - JVS(28543) = B(10495) -! JVS(28544) = Jac_FULL(4832,4832) - JVS(28544) = -B(13655)-B(13657)-B(13659) -! JVS(28545) = Jac_FULL(4832,5204) - JVS(28545) = 0 -! JVS(28546) = Jac_FULL(4832,5217) - JVS(28546) = 0 -! JVS(28547) = Jac_FULL(4832,5250) - JVS(28547) = -B(13660) -! JVS(28548) = Jac_FULL(4832,5252) - JVS(28548) = 0 -! JVS(28549) = Jac_FULL(4832,5256) - JVS(28549) = -B(13656) -! JVS(28550) = Jac_FULL(4832,5258) - JVS(28550) = -B(13658) -! JVS(28551) = Jac_FULL(4833,937) - JVS(28551) = B(8936) -! JVS(28552) = Jac_FULL(4833,3292) - JVS(28552) = B(8941) -! JVS(28553) = Jac_FULL(4833,3834) - JVS(28553) = B(2438)+B(2442) -! JVS(28554) = Jac_FULL(4833,4833) - JVS(28554) = -B(5412)-B(5414)-B(5416)-B(5418)-B(5420)-B(5422)-B(5424)-B(5425) -! JVS(28555) = Jac_FULL(4833,5250) - JVS(28555) = B(2443)+B(8937) -! JVS(28556) = Jac_FULL(4833,5252) - JVS(28556) = -B(5419) -! JVS(28557) = Jac_FULL(4833,5253) - JVS(28557) = -B(5421) -! JVS(28558) = Jac_FULL(4833,5255) - JVS(28558) = -B(5413)-B(5415)-B(5417) -! JVS(28559) = Jac_FULL(4833,5256) - JVS(28559) = B(2439)-B(5423) -! JVS(28560) = Jac_FULL(4833,5258) - JVS(28560) = 0 -! JVS(28561) = Jac_FULL(4834,1663) - JVS(28561) = B(11932) -! JVS(28562) = Jac_FULL(4834,2259) - JVS(28562) = B(11938) -! JVS(28563) = Jac_FULL(4834,2513) - JVS(28563) = 0 -! JVS(28564) = Jac_FULL(4834,2633) - JVS(28564) = B(11949) -! JVS(28565) = Jac_FULL(4834,2713) - JVS(28565) = B(11954) -! JVS(28566) = Jac_FULL(4834,3038) - JVS(28566) = 0 -! JVS(28567) = Jac_FULL(4834,3854) - JVS(28567) = 0 -! JVS(28568) = Jac_FULL(4834,3859) - JVS(28568) = B(8207) -! JVS(28569) = Jac_FULL(4834,4834) - JVS(28569) = -B(11957)-B(11958)-B(11960) -! JVS(28570) = Jac_FULL(4834,5077) - JVS(28570) = 0 -! JVS(28571) = Jac_FULL(4834,5082) - JVS(28571) = 0 -! JVS(28572) = Jac_FULL(4834,5250) - JVS(28572) = B(11939)+B(11950)+B(11955)-B(11961) -! JVS(28573) = Jac_FULL(4834,5252) - JVS(28573) = 0 -! JVS(28574) = Jac_FULL(4834,5255) - JVS(28574) = 0 -! JVS(28575) = Jac_FULL(4834,5256) - JVS(28575) = -B(11959) -! JVS(28576) = Jac_FULL(4835,1837) - JVS(28576) = B(15567) -! JVS(28577) = Jac_FULL(4835,4835) - JVS(28577) = -B(12468)-B(12470)-B(12472)-B(12474)-B(12475)-B(12476) -! JVS(28578) = Jac_FULL(4835,5123) - JVS(28578) = B(8830) -! JVS(28579) = Jac_FULL(4835,5250) - JVS(28579) = B(8831)+B(15568) -! JVS(28580) = Jac_FULL(4835,5252) - JVS(28580) = -B(12471) -! JVS(28581) = Jac_FULL(4835,5255) - JVS(28581) = -B(12469) -! JVS(28582) = Jac_FULL(4835,5256) - JVS(28582) = -B(12473) -! JVS(28583) = Jac_FULL(4836,1193) - JVS(28583) = B(14193) -! JVS(28584) = Jac_FULL(4836,3239) - JVS(28584) = B(14195) -! JVS(28585) = Jac_FULL(4836,3879) - JVS(28585) = B(7216)+B(7218) -! JVS(28586) = Jac_FULL(4836,4836) - JVS(28586) = -B(10998)-B(11000)-B(11002)-B(11004)-B(11006)-B(11008)-B(11010)-B(11011) -! JVS(28587) = Jac_FULL(4836,5045) - JVS(28587) = 0 -! JVS(28588) = Jac_FULL(4836,5250) - JVS(28588) = B(7219)+B(14194) -! JVS(28589) = Jac_FULL(4836,5252) - JVS(28589) = -B(11005) -! JVS(28590) = Jac_FULL(4836,5253) - JVS(28590) = -B(11007) -! JVS(28591) = Jac_FULL(4836,5255) - JVS(28591) = -B(10999)-B(11001)-B(11003) -! JVS(28592) = Jac_FULL(4836,5256) - JVS(28592) = B(7217)-B(11009) -! JVS(28593) = Jac_FULL(4837,1422) - JVS(28593) = B(3801) -! JVS(28594) = Jac_FULL(4837,1730) - JVS(28594) = B(122) -! JVS(28595) = Jac_FULL(4837,4601) - JVS(28595) = B(521) -! JVS(28596) = Jac_FULL(4837,4837) - JVS(28596) = -B(1070)-B(1072)-B(1074)-B(1076)-B(1078)-B(1079) -! JVS(28597) = Jac_FULL(4837,5147) - JVS(28597) = 0 -! JVS(28598) = Jac_FULL(4837,5250) - JVS(28598) = B(123)+B(522)+B(3802) -! JVS(28599) = Jac_FULL(4837,5252) - JVS(28599) = -B(1073)-B(1075) -! JVS(28600) = Jac_FULL(4837,5255) - JVS(28600) = -B(1071) -! JVS(28601) = Jac_FULL(4837,5256) - JVS(28601) = -B(1077) -! JVS(28602) = Jac_FULL(4837,5258) - JVS(28602) = 0 -! JVS(28603) = Jac_FULL(4838,2487) - JVS(28603) = B(2252) -! JVS(28604) = Jac_FULL(4838,4527) - JVS(28604) = 0 -! JVS(28605) = Jac_FULL(4838,4838) - JVS(28605) = -B(5114)-B(5116)-B(5118)-B(5120)-B(5122)-B(5123) -! JVS(28606) = Jac_FULL(4838,5250) - JVS(28606) = 0 -! JVS(28607) = Jac_FULL(4838,5251) - JVS(28607) = -B(5115) -! JVS(28608) = Jac_FULL(4838,5252) - JVS(28608) = -B(5117) -! JVS(28609) = Jac_FULL(4838,5253) - JVS(28609) = -B(5119) -! JVS(28610) = Jac_FULL(4838,5254) - JVS(28610) = -B(5121) -! JVS(28611) = Jac_FULL(4838,5256) - JVS(28611) = 0 -! JVS(28612) = Jac_FULL(4838,5258) - JVS(28612) = 0 -! JVS(28613) = Jac_FULL(4839,1507) - JVS(28613) = B(23461) -! JVS(28614) = Jac_FULL(4839,2809) - JVS(28614) = B(23455) -! JVS(28615) = Jac_FULL(4839,3029) - JVS(28615) = B(23474) -! JVS(28616) = Jac_FULL(4839,3062) - JVS(28616) = B(23887) -! JVS(28617) = Jac_FULL(4839,3374) - JVS(28617) = B(22648) -! JVS(28618) = Jac_FULL(4839,3957) - JVS(28618) = 0 -! JVS(28619) = Jac_FULL(4839,4115) - JVS(28619) = 0 -! JVS(28620) = Jac_FULL(4839,4572) - JVS(28620) = 0 -! JVS(28621) = Jac_FULL(4839,4825) - JVS(28621) = 0 -! JVS(28622) = Jac_FULL(4839,4839) - JVS(28622) = -B(23088)-B(23090)-B(23092)-B(23094)-B(23096)-B(23098)-B(23100)-B(23101) -! JVS(28623) = Jac_FULL(4839,4978) - JVS(28623) = B(23518)+B(23520) -! JVS(28624) = Jac_FULL(4839,5247) - JVS(28624) = 0 -! JVS(28625) = Jac_FULL(4839,5250) - JVS(28625) = B(23462)+B(23521) -! JVS(28626) = Jac_FULL(4839,5252) - JVS(28626) = -B(23095) -! JVS(28627) = Jac_FULL(4839,5253) - JVS(28627) = -B(23097) -! JVS(28628) = Jac_FULL(4839,5255) - JVS(28628) = -B(23089)-B(23091)-B(23093) -! JVS(28629) = Jac_FULL(4839,5256) - JVS(28629) = -B(23099)+B(23519) -! JVS(28630) = Jac_FULL(4840,4840) - JVS(28630) = -B(242)-B(244)-B(246)-B(248)-B(250)-B(252)-B(254)-B(256)-B(258) -! JVS(28631) = Jac_FULL(4840,5250) - JVS(28631) = -B(253)-B(255)-B(257) -! JVS(28632) = Jac_FULL(4840,5256) - JVS(28632) = -B(243)-B(245)-B(247) -! JVS(28633) = Jac_FULL(4840,5258) - JVS(28633) = -B(249)-B(251) -! JVS(28634) = Jac_FULL(4841,363) - JVS(28634) = B(14190) -! JVS(28635) = Jac_FULL(4841,1193) - JVS(28635) = B(14192) -! JVS(28636) = Jac_FULL(4841,1983) - JVS(28636) = B(7075) -! JVS(28637) = Jac_FULL(4841,3444) - JVS(28637) = 0 -! JVS(28638) = Jac_FULL(4841,3868) - JVS(28638) = B(832) -! JVS(28639) = Jac_FULL(4841,4647) - JVS(28639) = 0 -! JVS(28640) = Jac_FULL(4841,4836) - JVS(28640) = B(11002)+B(11004)+B(11008)+B(11011) -! JVS(28641) = Jac_FULL(4841,4841) - JVS(28641) = -B(3276)-B(3278)-B(3280)-B(3282)-B(3283) -! JVS(28642) = Jac_FULL(4841,4901) - JVS(28642) = 0 -! JVS(28643) = Jac_FULL(4841,4994) - JVS(28643) = 0 -! JVS(28644) = Jac_FULL(4841,5045) - JVS(28644) = 0 -! JVS(28645) = Jac_FULL(4841,5250) - JVS(28645) = B(833)+B(7076)+B(14191) -! JVS(28646) = Jac_FULL(4841,5252) - JVS(28646) = -B(3279)+B(11005) -! JVS(28647) = Jac_FULL(4841,5253) - JVS(28647) = 0 -! JVS(28648) = Jac_FULL(4841,5255) - JVS(28648) = -B(3277)+B(11003) -! JVS(28649) = Jac_FULL(4841,5256) - JVS(28649) = -B(3281)+B(11009) -! JVS(28650) = Jac_FULL(4841,5258) - JVS(28650) = 0 -! JVS(28651) = Jac_FULL(4842,481) - JVS(28651) = B(23024) -! JVS(28652) = Jac_FULL(4842,679) - JVS(28652) = B(19382) -! JVS(28653) = Jac_FULL(4842,1463) - JVS(28653) = B(23017) -! JVS(28654) = Jac_FULL(4842,1586) - JVS(28654) = B(19388) -! JVS(28655) = Jac_FULL(4842,2224) - JVS(28655) = B(23020) -! JVS(28656) = Jac_FULL(4842,2265) - JVS(28656) = B(19383) -! JVS(28657) = Jac_FULL(4842,2305) - JVS(28657) = B(19380) -! JVS(28658) = Jac_FULL(4842,2378) - JVS(28658) = B(19303) -! JVS(28659) = Jac_FULL(4842,2495) - JVS(28659) = B(19263) -! JVS(28660) = Jac_FULL(4842,2512) - JVS(28660) = B(19305) -! JVS(28661) = Jac_FULL(4842,2688) - JVS(28661) = B(21997) -! JVS(28662) = Jac_FULL(4842,3840) - JVS(28662) = 0 -! JVS(28663) = Jac_FULL(4842,3908) - JVS(28663) = B(22591) -! JVS(28664) = Jac_FULL(4842,3985) - JVS(28664) = 0 -! JVS(28665) = Jac_FULL(4842,4145) - JVS(28665) = 0 -! JVS(28666) = Jac_FULL(4842,4842) - JVS(28666) = -B(17070)-B(17072)-B(17074) -! JVS(28667) = Jac_FULL(4842,5044) - JVS(28667) = 0 -! JVS(28668) = Jac_FULL(4842,5083) - JVS(28668) = B(14431) -! JVS(28669) = Jac_FULL(4842,5175) - JVS(28669) = 0 -! JVS(28670) = Jac_FULL(4842,5250) - JVS(28670) = -B(17073)+B(19304)+B(19384)+B(21998)+B(23018)+B(23021)+B(23025) -! JVS(28671) = Jac_FULL(4842,5252) - JVS(28671) = 0 -! JVS(28672) = Jac_FULL(4842,5253) - JVS(28672) = 0 -! JVS(28673) = Jac_FULL(4842,5255) - JVS(28673) = 0 -! JVS(28674) = Jac_FULL(4842,5256) - JVS(28674) = -B(17071) -! JVS(28675) = Jac_FULL(4842,5258) - JVS(28675) = B(14432) -! JVS(28676) = Jac_FULL(4843,719) - JVS(28676) = B(3532) -! JVS(28677) = Jac_FULL(4843,4605) - JVS(28677) = 0 -! JVS(28678) = Jac_FULL(4843,4843) - JVS(28678) = -B(7442)-B(7444)-B(7446)-B(7448)-B(7450)-B(7451) -! JVS(28679) = Jac_FULL(4843,5250) - JVS(28679) = 0 -! JVS(28680) = Jac_FULL(4843,5251) - JVS(28680) = -B(7443) -! JVS(28681) = Jac_FULL(4843,5252) - JVS(28681) = -B(7445) -! JVS(28682) = Jac_FULL(4843,5253) - JVS(28682) = -B(7447) -! JVS(28683) = Jac_FULL(4843,5254) - JVS(28683) = -B(7449) -! JVS(28684) = Jac_FULL(4843,5256) - JVS(28684) = 0 -! JVS(28685) = Jac_FULL(4843,5258) - JVS(28685) = 0 -! JVS(28686) = Jac_FULL(4844,181) - JVS(28686) = B(126) -! JVS(28687) = Jac_FULL(4844,456) - JVS(28687) = B(17709) -! JVS(28688) = Jac_FULL(4844,1265) - JVS(28688) = B(3834) -! JVS(28689) = Jac_FULL(4844,1547) - JVS(28689) = B(17711) -! JVS(28690) = Jac_FULL(4844,4313) - JVS(28690) = B(11933) -! JVS(28691) = Jac_FULL(4844,4844) - JVS(28691) = -B(1086)-B(1088)-B(1090)-B(1092)-B(1094)-B(1095) -! JVS(28692) = Jac_FULL(4844,5077) - JVS(28692) = 0 -! JVS(28693) = Jac_FULL(4844,5082) - JVS(28693) = 0 -! JVS(28694) = Jac_FULL(4844,5090) - JVS(28694) = B(15140)+B(15142)+B(15146)+B(15149) -! JVS(28695) = Jac_FULL(4844,5250) - JVS(28695) = B(127)+B(3835)+B(17710) -! JVS(28696) = Jac_FULL(4844,5252) - JVS(28696) = -B(1089)-B(1091)+B(15143) -! JVS(28697) = Jac_FULL(4844,5255) - JVS(28697) = -B(1087)+B(15141) -! JVS(28698) = Jac_FULL(4844,5256) - JVS(28698) = -B(1093)+B(15147) -! JVS(28699) = Jac_FULL(4845,1859) - JVS(28699) = B(4820) -! JVS(28700) = Jac_FULL(4845,3520) - JVS(28700) = B(4348) -! JVS(28701) = Jac_FULL(4845,3585) - JVS(28701) = B(4825) -! JVS(28702) = Jac_FULL(4845,4351) - JVS(28702) = B(2004) -! JVS(28703) = Jac_FULL(4845,4695) - JVS(28703) = 0 -! JVS(28704) = Jac_FULL(4845,4840) - JVS(28704) = 0 -! JVS(28705) = Jac_FULL(4845,4845) - JVS(28705) = -B(4827)-B(4829)-B(4831) -! JVS(28706) = Jac_FULL(4845,4922) - JVS(28706) = 0 -! JVS(28707) = Jac_FULL(4845,5200) - JVS(28707) = 0 -! JVS(28708) = Jac_FULL(4845,5250) - JVS(28708) = B(4821)-B(4830) -! JVS(28709) = Jac_FULL(4845,5252) - JVS(28709) = 0 -! JVS(28710) = Jac_FULL(4845,5255) - JVS(28710) = 0 -! JVS(28711) = Jac_FULL(4845,5256) - JVS(28711) = -B(4828) -! JVS(28712) = Jac_FULL(4845,5258) - JVS(28712) = 0 -! JVS(28713) = Jac_FULL(4846,1404) - JVS(28713) = B(13147) -! JVS(28714) = Jac_FULL(4846,2518) - JVS(28714) = B(13152) -! JVS(28715) = Jac_FULL(4846,3486) - JVS(28715) = B(9696)+B(9699) -! JVS(28716) = Jac_FULL(4846,4630) - JVS(28716) = B(5990)+B(5992) -! JVS(28717) = Jac_FULL(4846,4846) - JVS(28717) = -B(9667)-B(9669)-B(9671)-B(9673)-B(9675)-B(9677)-B(9679)-B(9680) -! JVS(28718) = Jac_FULL(4846,4971) - JVS(28718) = 0 -! JVS(28719) = Jac_FULL(4846,5250) - JVS(28719) = B(5993)+B(9697)+B(13148) -! JVS(28720) = Jac_FULL(4846,5252) - JVS(28720) = -B(9674) -! JVS(28721) = Jac_FULL(4846,5253) - JVS(28721) = -B(9676) -! JVS(28722) = Jac_FULL(4846,5255) - JVS(28722) = -B(9668)-B(9670)-B(9672) -! JVS(28723) = Jac_FULL(4846,5256) - JVS(28723) = B(5991)-B(9678) -! JVS(28724) = Jac_FULL(4846,5258) - JVS(28724) = 0 -! JVS(28725) = Jac_FULL(4847,985) - JVS(28725) = B(14502) -! JVS(28726) = Jac_FULL(4847,1581) - JVS(28726) = B(7464) -! JVS(28727) = Jac_FULL(4847,1911) - JVS(28727) = 0 -! JVS(28728) = Jac_FULL(4847,1915) - JVS(28728) = 0 -! JVS(28729) = Jac_FULL(4847,2593) - JVS(28729) = B(14507) -! JVS(28730) = Jac_FULL(4847,3863) - JVS(28730) = 0 -! JVS(28731) = Jac_FULL(4847,3867) - JVS(28731) = 0 -! JVS(28732) = Jac_FULL(4847,3940) - JVS(28732) = 0 -! JVS(28733) = Jac_FULL(4847,4605) - JVS(28733) = 0 -! JVS(28734) = Jac_FULL(4847,4847) - JVS(28734) = -B(11237)-B(11239)-B(11241)-B(11243)-B(11245)-B(11247)-B(11249)-B(11250) -! JVS(28735) = Jac_FULL(4847,5169) - JVS(28735) = B(11186)+B(11194) -! JVS(28736) = Jac_FULL(4847,5250) - JVS(28736) = B(7465)+B(11195)+B(14503) -! JVS(28737) = Jac_FULL(4847,5252) - JVS(28737) = -B(11244) -! JVS(28738) = Jac_FULL(4847,5253) - JVS(28738) = -B(11246) -! JVS(28739) = Jac_FULL(4847,5255) - JVS(28739) = -B(11238)-B(11240)-B(11242) -! JVS(28740) = Jac_FULL(4847,5256) - JVS(28740) = B(11187)-B(11248) -! JVS(28741) = Jac_FULL(4847,5258) - JVS(28741) = 0 -! JVS(28742) = Jac_FULL(4848,1042) - JVS(28742) = B(17499) -! JVS(28743) = Jac_FULL(4848,2884) - JVS(28743) = B(17501) -! JVS(28744) = Jac_FULL(4848,4261) - JVS(28744) = B(11717)+B(11719) -! JVS(28745) = Jac_FULL(4848,4848) - JVS(28745) = -B(14932)-B(14934)-B(14936)-B(14938)-B(14940)-B(14942)-B(14944)-B(14945) -! JVS(28746) = Jac_FULL(4848,5163) - JVS(28746) = 0 -! JVS(28747) = Jac_FULL(4848,5192) - JVS(28747) = 0 -! JVS(28748) = Jac_FULL(4848,5250) - JVS(28748) = B(11720)+B(17500) -! JVS(28749) = Jac_FULL(4848,5252) - JVS(28749) = -B(14939) -! JVS(28750) = Jac_FULL(4848,5253) - JVS(28750) = -B(14941) -! JVS(28751) = Jac_FULL(4848,5255) - JVS(28751) = -B(14933)-B(14935)-B(14937) -! JVS(28752) = Jac_FULL(4848,5256) - JVS(28752) = B(11718)-B(14943) -! JVS(28753) = Jac_FULL(4849,1424) - JVS(28753) = B(19239) -! JVS(28754) = Jac_FULL(4849,1706) - JVS(28754) = B(17185) -! JVS(28755) = Jac_FULL(4849,1973) - JVS(28755) = 0 -! JVS(28756) = Jac_FULL(4849,1995) - JVS(28756) = 0 -! JVS(28757) = Jac_FULL(4849,2533) - JVS(28757) = B(19247) -! JVS(28758) = Jac_FULL(4849,3872) - JVS(28758) = 0 -! JVS(28759) = Jac_FULL(4849,3927) - JVS(28759) = 0 -! JVS(28760) = Jac_FULL(4849,3969) - JVS(28760) = 0 -! JVS(28761) = Jac_FULL(4849,4849) - JVS(28761) = -B(17029)-B(17031)-B(17033)-B(17035)-B(17037)-B(17039)-B(17041)-B(17042) -! JVS(28762) = Jac_FULL(4849,5175) - JVS(28762) = 0 -! JVS(28763) = Jac_FULL(4849,5176) - JVS(28763) = B(14410)+B(14412) -! JVS(28764) = Jac_FULL(4849,5250) - JVS(28764) = B(14413)+B(17186)+B(19240) -! JVS(28765) = Jac_FULL(4849,5252) - JVS(28765) = -B(17036) -! JVS(28766) = Jac_FULL(4849,5253) - JVS(28766) = -B(17038) -! JVS(28767) = Jac_FULL(4849,5255) - JVS(28767) = -B(17030)-B(17032)-B(17034) -! JVS(28768) = Jac_FULL(4849,5256) - JVS(28768) = B(14411)-B(17040) -! JVS(28769) = Jac_FULL(4850,575) - JVS(28769) = B(19857) -! JVS(28770) = Jac_FULL(4850,609) - JVS(28770) = B(15393) -! JVS(28771) = Jac_FULL(4850,1114) - JVS(28771) = B(19848) -! JVS(28772) = Jac_FULL(4850,1674) - JVS(28772) = B(19858) -! JVS(28773) = Jac_FULL(4850,2221) - JVS(28773) = B(19854) -! JVS(28774) = Jac_FULL(4850,2726) - JVS(28774) = B(19852) -! JVS(28775) = Jac_FULL(4850,3058) - JVS(28775) = B(22198) -! JVS(28776) = Jac_FULL(4850,3185) - JVS(28776) = B(19842) -! JVS(28777) = Jac_FULL(4850,3548) - JVS(28777) = 0 -! JVS(28778) = Jac_FULL(4850,4164) - JVS(28778) = 0 -! JVS(28779) = Jac_FULL(4850,4355) - JVS(28779) = 0 -! JVS(28780) = Jac_FULL(4850,4429) - JVS(28780) = 0 -! JVS(28781) = Jac_FULL(4850,4709) - JVS(28781) = 0 -! JVS(28782) = Jac_FULL(4850,4710) - JVS(28782) = B(19816)+B(19818) -! JVS(28783) = Jac_FULL(4850,4850) - JVS(28783) = -B(17997)-B(17999)-B(18001)-B(18003)-B(18005)-B(18007)-B(18009)-B(18010) -! JVS(28784) = Jac_FULL(4850,5065) - JVS(28784) = 0 -! JVS(28785) = Jac_FULL(4850,5138) - JVS(28785) = 0 -! JVS(28786) = Jac_FULL(4850,5250) - JVS(28786) = B(19819)+B(19849) -! JVS(28787) = Jac_FULL(4850,5252) - JVS(28787) = -B(18004) -! JVS(28788) = Jac_FULL(4850,5253) - JVS(28788) = -B(18006) -! JVS(28789) = Jac_FULL(4850,5255) - JVS(28789) = -B(17998)-B(18000)-B(18002) -! JVS(28790) = Jac_FULL(4850,5256) - JVS(28790) = -B(18008)+B(19817) -! JVS(28791) = Jac_FULL(4851,991) - JVS(28791) = B(13547) -! JVS(28792) = Jac_FULL(4851,1098) - JVS(28792) = B(13545) -! JVS(28793) = Jac_FULL(4851,1220) - JVS(28793) = B(13568) -! JVS(28794) = Jac_FULL(4851,1529) - JVS(28794) = B(13571) -! JVS(28795) = Jac_FULL(4851,1626) - JVS(28795) = B(13551) -! JVS(28796) = Jac_FULL(4851,3608) - JVS(28796) = B(13574) -! JVS(28797) = Jac_FULL(4851,4159) - JVS(28797) = B(10374) -! JVS(28798) = Jac_FULL(4851,4341) - JVS(28798) = 0 -! JVS(28799) = Jac_FULL(4851,4565) - JVS(28799) = 0 -! JVS(28800) = Jac_FULL(4851,4578) - JVS(28800) = B(10387) -! JVS(28801) = Jac_FULL(4851,4851) - JVS(28801) = -B(13553)-B(13554)-B(13556) -! JVS(28802) = Jac_FULL(4851,5049) - JVS(28802) = 0 -! JVS(28803) = Jac_FULL(4851,5091) - JVS(28803) = 0 -! JVS(28804) = Jac_FULL(4851,5093) - JVS(28804) = 0 -! JVS(28805) = Jac_FULL(4851,5250) - JVS(28805) = B(13546)+B(13548)+B(13552)-B(13557)+B(13569)+B(13572)+B(13575) -! JVS(28806) = Jac_FULL(4851,5252) - JVS(28806) = 0 -! JVS(28807) = Jac_FULL(4851,5255) - JVS(28807) = 0 -! JVS(28808) = Jac_FULL(4851,5256) - JVS(28808) = -B(13555) -! JVS(28809) = Jac_FULL(4852,1327) - JVS(28809) = B(17617) -! JVS(28810) = Jac_FULL(4852,2893) - JVS(28810) = B(7057) -! JVS(28811) = Jac_FULL(4852,3609) - JVS(28811) = B(826) -! JVS(28812) = Jac_FULL(4852,3857) - JVS(28812) = B(11842) -! JVS(28813) = Jac_FULL(4852,4517) - JVS(28813) = B(15045)+B(15047)+B(15051)+B(15053) -! JVS(28814) = Jac_FULL(4852,4852) - JVS(28814) = -B(3256)-B(3258)-B(3260)-B(3262)-B(3263)-B(3264) -! JVS(28815) = Jac_FULL(4852,4876) - JVS(28815) = 0 -! JVS(28816) = Jac_FULL(4852,4880) - JVS(28816) = 0 -! JVS(28817) = Jac_FULL(4852,5250) - JVS(28817) = B(827)+B(7058) -! JVS(28818) = Jac_FULL(4852,5252) - JVS(28818) = -B(3259)+B(15048) -! JVS(28819) = Jac_FULL(4852,5253) - JVS(28819) = 0 -! JVS(28820) = Jac_FULL(4852,5255) - JVS(28820) = -B(3257)+B(15046) -! JVS(28821) = Jac_FULL(4852,5256) - JVS(28821) = -B(3261)+B(15052) -! JVS(28822) = Jac_FULL(4853,824) - JVS(28822) = B(23935) -! JVS(28823) = Jac_FULL(4853,1652) - JVS(28823) = B(23615) -! JVS(28824) = Jac_FULL(4853,2864) - JVS(28824) = B(23940) -! JVS(28825) = Jac_FULL(4853,3639) - JVS(28825) = B(23616)+B(23618) -! JVS(28826) = Jac_FULL(4853,3960) - JVS(28826) = B(23927)+B(23929) -! JVS(28827) = Jac_FULL(4853,4346) - JVS(28827) = 0 -! JVS(28828) = Jac_FULL(4853,4459) - JVS(28828) = 0 -! JVS(28829) = Jac_FULL(4853,4653) - JVS(28829) = 0 -! JVS(28830) = Jac_FULL(4853,4853) - JVS(28830) = -B(23805)-B(23807)-B(23809)-B(23811)-B(23813)-B(23815)-B(23817)-B(23818) -! JVS(28831) = Jac_FULL(4853,4854) - JVS(28831) = 0 -! JVS(28832) = Jac_FULL(4853,5072) - JVS(28832) = 0 -! JVS(28833) = Jac_FULL(4853,5250) - JVS(28833) = B(23617)+B(23930)+B(23936) -! JVS(28834) = Jac_FULL(4853,5252) - JVS(28834) = -B(23812) -! JVS(28835) = Jac_FULL(4853,5253) - JVS(28835) = -B(23814) -! JVS(28836) = Jac_FULL(4853,5255) - JVS(28836) = -B(23806)-B(23808)-B(23810) -! JVS(28837) = Jac_FULL(4853,5256) - JVS(28837) = -B(23816)+B(23928) -! JVS(28838) = Jac_FULL(4854,774) - JVS(28838) = B(22882) -! JVS(28839) = Jac_FULL(4854,998) - JVS(28839) = B(23579) -! JVS(28840) = Jac_FULL(4854,1958) - JVS(28840) = 0 -! JVS(28841) = Jac_FULL(4854,2756) - JVS(28841) = B(23593) -! JVS(28842) = Jac_FULL(4854,3365) - JVS(28842) = B(22883)+B(22885) -! JVS(28843) = Jac_FULL(4854,4131) - JVS(28843) = 0 -! JVS(28844) = Jac_FULL(4854,4624) - JVS(28844) = 0 -! JVS(28845) = Jac_FULL(4854,4854) - JVS(28845) = -B(23284)-B(23286)-B(23288)-B(23290)-B(23292)-B(23294)-B(23296)-B(23297) -! JVS(28846) = Jac_FULL(4854,5215) - JVS(28846) = 0 -! JVS(28847) = Jac_FULL(4854,5250) - JVS(28847) = B(22884)+B(23580) -! JVS(28848) = Jac_FULL(4854,5252) - JVS(28848) = -B(23291) -! JVS(28849) = Jac_FULL(4854,5253) - JVS(28849) = -B(23293) -! JVS(28850) = Jac_FULL(4854,5255) - JVS(28850) = -B(23285)-B(23287)-B(23289) -! JVS(28851) = Jac_FULL(4854,5256) - JVS(28851) = -B(23295) -! JVS(28852) = Jac_FULL(4855,1047) - JVS(28852) = B(17099) -! JVS(28853) = Jac_FULL(4855,2231) - JVS(28853) = B(11206) -! JVS(28854) = Jac_FULL(4855,2362) - JVS(28854) = 0 -! JVS(28855) = Jac_FULL(4855,2879) - JVS(28855) = B(17104) -! JVS(28856) = Jac_FULL(4855,4148) - JVS(28856) = 0 -! JVS(28857) = Jac_FULL(4855,4605) - JVS(28857) = 0 -! JVS(28858) = Jac_FULL(4855,4855) - JVS(28858) = -B(14440)-B(14442)-B(14444)-B(14446)-B(14448)-B(14450)-B(14452)-B(14453) -! JVS(28859) = Jac_FULL(4855,5083) - JVS(28859) = B(14427)+B(14435) -! JVS(28860) = Jac_FULL(4855,5250) - JVS(28860) = B(14436)+B(17100) -! JVS(28861) = Jac_FULL(4855,5252) - JVS(28861) = -B(14447) -! JVS(28862) = Jac_FULL(4855,5253) - JVS(28862) = -B(14449) -! JVS(28863) = Jac_FULL(4855,5255) - JVS(28863) = -B(14441)-B(14443)-B(14445) -! JVS(28864) = Jac_FULL(4855,5256) - JVS(28864) = B(14428)-B(14451) -! JVS(28865) = Jac_FULL(4855,5258) - JVS(28865) = 0 -! JVS(28866) = Jac_FULL(4856,3231) - JVS(28866) = B(12227) -! JVS(28867) = Jac_FULL(4856,3561) - JVS(28867) = B(4956) -! JVS(28868) = Jac_FULL(4856,4598) - JVS(28868) = 0 -! JVS(28869) = Jac_FULL(4856,4856) - JVS(28869) = -B(8514)-B(8516)-B(8518)-B(8520) -! JVS(28870) = Jac_FULL(4856,4972) - JVS(28870) = 0 -! JVS(28871) = Jac_FULL(4856,5096) - JVS(28871) = 0 -! JVS(28872) = Jac_FULL(4856,5190) - JVS(28872) = 0 -! JVS(28873) = Jac_FULL(4856,5250) - JVS(28873) = B(4957)+B(12228) -! JVS(28874) = Jac_FULL(4856,5252) - JVS(28874) = -B(8517) -! JVS(28875) = Jac_FULL(4856,5255) - JVS(28875) = -B(8515) -! JVS(28876) = Jac_FULL(4856,5256) - JVS(28876) = -B(8519) -! JVS(28877) = Jac_FULL(4857,499) - JVS(28877) = B(21346) -! JVS(28878) = Jac_FULL(4857,1460) - JVS(28878) = B(21350) -! JVS(28879) = Jac_FULL(4857,2920) - JVS(28879) = B(15709) -! JVS(28880) = Jac_FULL(4857,3914) - JVS(28880) = B(18199) -! JVS(28881) = Jac_FULL(4857,4770) - JVS(28881) = B(19980)+B(19982)+B(19986)+B(19989) -! JVS(28882) = Jac_FULL(4857,4857) - JVS(28882) = -B(12636)-B(12638)-B(12640)-B(12642)-B(12643)-B(12644) -! JVS(28883) = Jac_FULL(4857,4895) - JVS(28883) = B(9053) -! JVS(28884) = Jac_FULL(4857,5250) - JVS(28884) = B(15710)+B(21347) -! JVS(28885) = Jac_FULL(4857,5252) - JVS(28885) = -B(12639)+B(19983) -! JVS(28886) = Jac_FULL(4857,5253) - JVS(28886) = 0 -! JVS(28887) = Jac_FULL(4857,5255) - JVS(28887) = -B(12637)+B(19981) -! JVS(28888) = Jac_FULL(4857,5256) - JVS(28888) = -B(12641)+B(19987) -! JVS(28889) = Jac_FULL(4857,5258) - JVS(28889) = B(9054) -! JVS(28890) = Jac_FULL(4858,3035) - JVS(28890) = B(7047) -! JVS(28891) = Jac_FULL(4858,3978) - JVS(28891) = B(823) -! JVS(28892) = Jac_FULL(4858,4858) - JVS(28892) = -B(3247)-B(3249)-B(3251)-B(3253)-B(3254)-B(3255) -! JVS(28893) = Jac_FULL(4858,4990) - JVS(28893) = 0 -! JVS(28894) = Jac_FULL(4858,5192) - JVS(28894) = 0 -! JVS(28895) = Jac_FULL(4858,5250) - JVS(28895) = B(824)+B(7048) -! JVS(28896) = Jac_FULL(4858,5252) - JVS(28896) = -B(3250) -! JVS(28897) = Jac_FULL(4858,5253) - JVS(28897) = 0 -! JVS(28898) = Jac_FULL(4858,5255) - JVS(28898) = -B(3248) -! JVS(28899) = Jac_FULL(4858,5256) - JVS(28899) = -B(3252) -! JVS(28900) = Jac_FULL(4859,1427) - JVS(28900) = B(18071) -! JVS(28901) = Jac_FULL(4859,3161) - JVS(28901) = B(8750)+B(8752) -! JVS(28902) = Jac_FULL(4859,4067) - JVS(28902) = B(15470)+B(15472)+B(15474) -! JVS(28903) = Jac_FULL(4859,4859) - JVS(28903) = -B(12397)-B(12399) -! JVS(28904) = Jac_FULL(4859,4965) - JVS(28904) = 0 -! JVS(28905) = Jac_FULL(4859,5250) - JVS(28905) = B(8753) -! JVS(28906) = Jac_FULL(4859,5252) - JVS(28906) = B(15471) -! JVS(28907) = Jac_FULL(4859,5253) - JVS(28907) = -B(12398) -! JVS(28908) = Jac_FULL(4859,5255) - JVS(28908) = 0 -! JVS(28909) = Jac_FULL(4859,5256) - JVS(28909) = B(8751)+B(15473) -! JVS(28910) = Jac_FULL(4859,5258) - JVS(28910) = -B(12400) -! JVS(28911) = Jac_FULL(4860,889) - JVS(28911) = B(11739) -! JVS(28912) = Jac_FULL(4860,3260) - JVS(28912) = B(11742) -! JVS(28913) = Jac_FULL(4860,4559) - JVS(28913) = B(4473)+B(4475) -! JVS(28914) = Jac_FULL(4860,4860) - JVS(28914) = -B(8007)-B(8009)-B(8011)-B(8013)-B(8015)-B(8017) -! JVS(28915) = Jac_FULL(4860,4980) - JVS(28915) = 0 -! JVS(28916) = Jac_FULL(4860,5082) - JVS(28916) = 0 -! JVS(28917) = Jac_FULL(4860,5250) - JVS(28917) = B(4476)+B(11740) -! JVS(28918) = Jac_FULL(4860,5252) - JVS(28918) = -B(8012) -! JVS(28919) = Jac_FULL(4860,5253) - JVS(28919) = -B(8014) -! JVS(28920) = Jac_FULL(4860,5255) - JVS(28920) = -B(8008)-B(8010) -! JVS(28921) = Jac_FULL(4860,5256) - JVS(28921) = B(4474)-B(8016) -! JVS(28922) = Jac_FULL(4861,21) - JVS(28922) = B(16563) -! JVS(28923) = Jac_FULL(4861,48) - JVS(28923) = B(16561) -! JVS(28924) = Jac_FULL(4861,3428) - JVS(28924) = 0 -! JVS(28925) = Jac_FULL(4861,4861) - JVS(28925) = -B(12460)-B(12462)-B(12464)-B(12466)-B(12467) -! JVS(28926) = Jac_FULL(4861,5209) - JVS(28926) = B(8815) -! JVS(28927) = Jac_FULL(4861,5219) - JVS(28927) = 0 -! JVS(28928) = Jac_FULL(4861,5224) - JVS(28928) = 0 -! JVS(28929) = Jac_FULL(4861,5250) - JVS(28929) = B(8816)+B(16562)+B(16564) -! JVS(28930) = Jac_FULL(4861,5252) - JVS(28930) = -B(12463) -! JVS(28931) = Jac_FULL(4861,5255) - JVS(28931) = -B(12461) -! JVS(28932) = Jac_FULL(4861,5256) - JVS(28932) = -B(12465) -! JVS(28933) = Jac_FULL(4862,484) - JVS(28933) = B(4241) -! JVS(28934) = Jac_FULL(4862,1436) - JVS(28934) = B(11627) -! JVS(28935) = Jac_FULL(4862,2921) - JVS(28935) = B(11632) -! JVS(28936) = Jac_FULL(4862,4382) - JVS(28936) = 0 -! JVS(28937) = Jac_FULL(4862,4862) - JVS(28937) = -B(7867)-B(7869)-B(7871)-B(7873)-B(7875)-B(7877)-B(7879)-B(7880) -! JVS(28938) = Jac_FULL(4862,4932) - JVS(28938) = 0 -! JVS(28939) = Jac_FULL(4862,5194) - JVS(28939) = 0 -! JVS(28940) = Jac_FULL(4862,5250) - JVS(28940) = B(4242)+B(11628) -! JVS(28941) = Jac_FULL(4862,5252) - JVS(28941) = -B(7874) -! JVS(28942) = Jac_FULL(4862,5253) - JVS(28942) = -B(7876) -! JVS(28943) = Jac_FULL(4862,5255) - JVS(28943) = -B(7868)-B(7870)-B(7872) -! JVS(28944) = Jac_FULL(4862,5256) - JVS(28944) = -B(7878) -! JVS(28945) = Jac_FULL(4863,618) - JVS(28945) = B(19499) -! JVS(28946) = Jac_FULL(4863,1480) - JVS(28946) = B(22079) -! JVS(28947) = Jac_FULL(4863,1868) - JVS(28947) = 0 -! JVS(28948) = Jac_FULL(4863,2154) - JVS(28948) = B(19500)+B(19502) -! JVS(28949) = Jac_FULL(4863,2829) - JVS(28949) = B(22095) -! JVS(28950) = Jac_FULL(4863,4176) - JVS(28950) = 0 -! JVS(28951) = Jac_FULL(4863,4863) - JVS(28951) = -B(21058)-B(21060)-B(21062)-B(21064)-B(21066)-B(21068)-B(21070)-B(21071) -! JVS(28952) = Jac_FULL(4863,5207) - JVS(28952) = 0 -! JVS(28953) = Jac_FULL(4863,5250) - JVS(28953) = B(19501)+B(22080) -! JVS(28954) = Jac_FULL(4863,5252) - JVS(28954) = -B(21065) -! JVS(28955) = Jac_FULL(4863,5253) - JVS(28955) = -B(21067) -! JVS(28956) = Jac_FULL(4863,5255) - JVS(28956) = -B(21059)-B(21061)-B(21063) -! JVS(28957) = Jac_FULL(4863,5256) - JVS(28957) = -B(21069) -! JVS(28958) = Jac_FULL(4863,5258) - JVS(28958) = 0 -! JVS(28959) = Jac_FULL(4864,152) - JVS(28959) = B(23236) -! JVS(28960) = Jac_FULL(4864,1464) - JVS(28960) = 0 -! JVS(28961) = Jac_FULL(4864,2472) - JVS(28961) = B(13041) -! JVS(28962) = Jac_FULL(4864,2969) - JVS(28962) = B(18490) -! JVS(28963) = Jac_FULL(4864,3463) - JVS(28963) = B(18484) -! JVS(28964) = Jac_FULL(4864,4393) - JVS(28964) = 0 -! JVS(28965) = Jac_FULL(4864,4426) - JVS(28965) = 0 -! JVS(28966) = Jac_FULL(4864,4444) - JVS(28966) = 0 -! JVS(28967) = Jac_FULL(4864,4790) - JVS(28967) = 0 -! JVS(28968) = Jac_FULL(4864,4864) - JVS(28968) = -B(16118)-B(16120)-B(16122)-B(16124)-B(16126)-B(16128) -! JVS(28969) = Jac_FULL(4864,4928) - JVS(28969) = 0 -! JVS(28970) = Jac_FULL(4864,5250) - JVS(28970) = B(13042)+B(18485) -! JVS(28971) = Jac_FULL(4864,5252) - JVS(28971) = -B(16123) -! JVS(28972) = Jac_FULL(4864,5253) - JVS(28972) = -B(16125) -! JVS(28973) = Jac_FULL(4864,5255) - JVS(28973) = -B(16119)-B(16121) -! JVS(28974) = Jac_FULL(4864,5256) - JVS(28974) = -B(16127) -! JVS(28975) = Jac_FULL(4864,5258) - JVS(28975) = 0 -! JVS(28976) = Jac_FULL(4865,2358) - JVS(28976) = B(13476) -! JVS(28977) = Jac_FULL(4865,2899) - JVS(28977) = B(22271) -! JVS(28978) = Jac_FULL(4865,3014) - JVS(28978) = B(22272) -! JVS(28979) = Jac_FULL(4865,3200) - JVS(28979) = B(10307)+B(10309) -! JVS(28980) = Jac_FULL(4865,3354) - JVS(28980) = B(12331) -! JVS(28981) = Jac_FULL(4865,3904) - JVS(28981) = 0 -! JVS(28982) = Jac_FULL(4865,4203) - JVS(28982) = B(21487)+B(21489)+B(21493)+B(21495) -! JVS(28983) = Jac_FULL(4865,4401) - JVS(28983) = B(13419) -! JVS(28984) = Jac_FULL(4865,4719) - JVS(28984) = 0 -! JVS(28985) = Jac_FULL(4865,4787) - JVS(28985) = B(10286) -! JVS(28986) = Jac_FULL(4865,4799) - JVS(28986) = 0 -! JVS(28987) = Jac_FULL(4865,4813) - JVS(28987) = 0 -! JVS(28988) = Jac_FULL(4865,4865) - JVS(28988) = -B(13481)-B(13483) -! JVS(28989) = Jac_FULL(4865,4933) - JVS(28989) = 0 -! JVS(28990) = Jac_FULL(4865,5250) - JVS(28990) = B(10308)+B(12332)+B(13420)+B(13477)-B(13482)+B(22273) -! JVS(28991) = Jac_FULL(4865,5252) - JVS(28991) = B(21490) -! JVS(28992) = Jac_FULL(4865,5253) - JVS(28992) = 0 -! JVS(28993) = Jac_FULL(4865,5255) - JVS(28993) = B(21488) -! JVS(28994) = Jac_FULL(4865,5256) - JVS(28994) = B(21494) -! JVS(28995) = Jac_FULL(4865,5258) - JVS(28995) = 0 -! JVS(28996) = Jac_FULL(4866,945) - JVS(28996) = B(19579) -! JVS(28997) = Jac_FULL(4866,2842) - JVS(28997) = B(19581) -! JVS(28998) = Jac_FULL(4866,3662) - JVS(28998) = B(14974)+B(14976) -! JVS(28999) = Jac_FULL(4866,4866) - JVS(28999) = -B(17534)-B(17536)-B(17538)-B(17540)-B(17542)-B(17544)-B(17546)-B(17547) -! JVS(29000) = Jac_FULL(4866,5115) - JVS(29000) = 0 -! JVS(29001) = Jac_FULL(4866,5140) - JVS(29001) = 0 -! JVS(29002) = Jac_FULL(4866,5250) - JVS(29002) = B(14977)+B(19580) -! JVS(29003) = Jac_FULL(4866,5252) - JVS(29003) = -B(17541) -! JVS(29004) = Jac_FULL(4866,5253) - JVS(29004) = -B(17543) -! JVS(29005) = Jac_FULL(4866,5255) - JVS(29005) = -B(17535)-B(17537)-B(17539) -! JVS(29006) = Jac_FULL(4866,5256) - JVS(29006) = B(14975)-B(17545) -! JVS(29007) = Jac_FULL(4867,697) - JVS(29007) = B(21758) -! JVS(29008) = Jac_FULL(4867,1541) - JVS(29008) = B(22855) -! JVS(29009) = Jac_FULL(4867,2380) - JVS(29009) = 0 -! JVS(29010) = Jac_FULL(4867,2660) - JVS(29010) = B(22860) -! JVS(29011) = Jac_FULL(4867,3348) - JVS(29011) = B(21759)+B(21761) -! JVS(29012) = Jac_FULL(4867,4660) - JVS(29012) = 0 -! JVS(29013) = Jac_FULL(4867,4867) - JVS(29013) = -B(22370)-B(22372)-B(22374)-B(22376)-B(22378)-B(22380)-B(22382)-B(22383) -! JVS(29014) = Jac_FULL(4867,5019) - JVS(29014) = 0 -! JVS(29015) = Jac_FULL(4867,5159) - JVS(29015) = 0 -! JVS(29016) = Jac_FULL(4867,5250) - JVS(29016) = B(21760)+B(22856) -! JVS(29017) = Jac_FULL(4867,5252) - JVS(29017) = -B(22377) -! JVS(29018) = Jac_FULL(4867,5253) - JVS(29018) = -B(22379) -! JVS(29019) = Jac_FULL(4867,5255) - JVS(29019) = -B(22371)-B(22373)-B(22375) -! JVS(29020) = Jac_FULL(4867,5256) - JVS(29020) = -B(22381) -! JVS(29021) = Jac_FULL(4868,2212) - JVS(29021) = B(2200) -! JVS(29022) = Jac_FULL(4868,4508) - JVS(29022) = 0 -! JVS(29023) = Jac_FULL(4868,4868) - JVS(29023) = -B(5054)-B(5056)-B(5058)-B(5060)-B(5062)-B(5063) -! JVS(29024) = Jac_FULL(4868,5250) - JVS(29024) = 0 -! JVS(29025) = Jac_FULL(4868,5251) - JVS(29025) = -B(5055) -! JVS(29026) = Jac_FULL(4868,5252) - JVS(29026) = -B(5057) -! JVS(29027) = Jac_FULL(4868,5253) - JVS(29027) = -B(5059) -! JVS(29028) = Jac_FULL(4868,5254) - JVS(29028) = -B(5061) -! JVS(29029) = Jac_FULL(4868,5256) - JVS(29029) = 0 -! JVS(29030) = Jac_FULL(4868,5258) - JVS(29030) = 0 -! JVS(29031) = Jac_FULL(4869,3646) - JVS(29031) = B(7501) -! JVS(29032) = Jac_FULL(4869,4869) - JVS(29032) = -B(11310)-B(11312)-B(11314)-B(11316)-B(11318) -! JVS(29033) = Jac_FULL(4869,5048) - JVS(29033) = 0 -! JVS(29034) = Jac_FULL(4869,5092) - JVS(29034) = 0 -! JVS(29035) = Jac_FULL(4869,5250) - JVS(29035) = 0 -! JVS(29036) = Jac_FULL(4869,5251) - JVS(29036) = -B(11311) -! JVS(29037) = Jac_FULL(4869,5252) - JVS(29037) = -B(11313) -! JVS(29038) = Jac_FULL(4869,5253) - JVS(29038) = -B(11315) -! JVS(29039) = Jac_FULL(4869,5254) - JVS(29039) = -B(11317) -! JVS(29040) = Jac_FULL(4869,5258) - JVS(29040) = B(7502) -! JVS(29041) = Jac_FULL(4870,420) - JVS(29041) = B(19567) -! JVS(29042) = Jac_FULL(4870,1055) - JVS(29042) = B(19569) -! JVS(29043) = Jac_FULL(4870,1697) - JVS(29043) = B(96) -! JVS(29044) = Jac_FULL(4870,1914) - JVS(29044) = B(3686) -! JVS(29045) = Jac_FULL(4870,3915) - JVS(29045) = B(14946) -! JVS(29046) = Jac_FULL(4870,4662) - JVS(29046) = B(17508)+B(17510)+B(17514)+B(17517) -! JVS(29047) = Jac_FULL(4870,4870) - JVS(29047) = -B(976)-B(978)-B(980)-B(982)-B(984)-B(985)-B(986) -! JVS(29048) = Jac_FULL(4870,5064) - JVS(29048) = B(11875) -! JVS(29049) = Jac_FULL(4870,5147) - JVS(29049) = 0 -! JVS(29050) = Jac_FULL(4870,5208) - JVS(29050) = 0 -! JVS(29051) = Jac_FULL(4870,5250) - JVS(29051) = B(97)+B(3687)+B(19568) -! JVS(29052) = Jac_FULL(4870,5252) - JVS(29052) = -B(979)-B(981)+B(17511) -! JVS(29053) = Jac_FULL(4870,5253) - JVS(29053) = 0 -! JVS(29054) = Jac_FULL(4870,5255) - JVS(29054) = -B(977)+B(17509) -! JVS(29055) = Jac_FULL(4870,5256) - JVS(29055) = -B(983)+B(17515) -! JVS(29056) = Jac_FULL(4871,1406) - JVS(29056) = B(14131) -! JVS(29057) = Jac_FULL(4871,3498) - JVS(29057) = B(7132) -! JVS(29058) = Jac_FULL(4871,3757) - JVS(29058) = 0 -! JVS(29059) = Jac_FULL(4871,4223) - JVS(29059) = 0 -! JVS(29060) = Jac_FULL(4871,4336) - JVS(29060) = 0 -! JVS(29061) = Jac_FULL(4871,4390) - JVS(29061) = 0 -! JVS(29062) = Jac_FULL(4871,4607) - JVS(29062) = 0 -! JVS(29063) = Jac_FULL(4871,4608) - JVS(29063) = 0 -! JVS(29064) = Jac_FULL(4871,4702) - JVS(29064) = 0 -! JVS(29065) = Jac_FULL(4871,4871) - JVS(29065) = -B(10932)-B(10934)-B(10936)-B(10938) -! JVS(29066) = Jac_FULL(4871,4884) - JVS(29066) = 0 -! JVS(29067) = Jac_FULL(4871,5109) - JVS(29067) = 0 -! JVS(29068) = Jac_FULL(4871,5186) - JVS(29068) = 0 -! JVS(29069) = Jac_FULL(4871,5250) - JVS(29069) = B(7133)+B(14132) -! JVS(29070) = Jac_FULL(4871,5252) - JVS(29070) = -B(10935) -! JVS(29071) = Jac_FULL(4871,5255) - JVS(29071) = -B(10933) -! JVS(29072) = Jac_FULL(4871,5256) - JVS(29072) = -B(10937) -! JVS(29073) = Jac_FULL(4871,5258) - JVS(29073) = 0 -! JVS(29074) = Jac_FULL(4872,1800) - JVS(29074) = B(3750) -! JVS(29075) = Jac_FULL(4872,2391) - JVS(29075) = B(3745) -! JVS(29076) = Jac_FULL(4872,2843) - JVS(29076) = B(17554) -! JVS(29077) = Jac_FULL(4872,3884) - JVS(29077) = B(1433) -! JVS(29078) = Jac_FULL(4872,4623) - JVS(29078) = 0 -! JVS(29079) = Jac_FULL(4872,4872) - JVS(29079) = -B(3755)-B(3756)-B(3758)-B(3760) -! JVS(29080) = Jac_FULL(4872,5115) - JVS(29080) = 0 -! JVS(29081) = Jac_FULL(4872,5165) - JVS(29081) = 0 -! JVS(29082) = Jac_FULL(4872,5185) - JVS(29082) = B(1040) -! JVS(29083) = Jac_FULL(4872,5250) - JVS(29083) = B(3746)+B(3751)-B(3759)-B(3761)+B(17555) -! JVS(29084) = Jac_FULL(4872,5252) - JVS(29084) = 0 -! JVS(29085) = Jac_FULL(4872,5253) - JVS(29085) = 0 -! JVS(29086) = Jac_FULL(4872,5255) - JVS(29086) = 0 -! JVS(29087) = Jac_FULL(4872,5256) - JVS(29087) = -B(3757) -! JVS(29088) = Jac_FULL(4873,1774) - JVS(29088) = B(5136) -! JVS(29089) = Jac_FULL(4873,2011) - JVS(29089) = B(5112) -! JVS(29090) = Jac_FULL(4873,3070) - JVS(29090) = B(21240) -! JVS(29091) = Jac_FULL(4873,4430) - JVS(29091) = 0 -! JVS(29092) = Jac_FULL(4873,4587) - JVS(29092) = 0 -! JVS(29093) = Jac_FULL(4873,4873) - JVS(29093) = -B(5141)-B(5142)-B(5144) -! JVS(29094) = Jac_FULL(4873,5112) - JVS(29094) = 0 -! JVS(29095) = Jac_FULL(4873,5135) - JVS(29095) = B(2275) -! JVS(29096) = Jac_FULL(4873,5250) - JVS(29096) = B(5113)+B(5137)-B(5145)+B(21241) -! JVS(29097) = Jac_FULL(4873,5252) - JVS(29097) = 0 -! JVS(29098) = Jac_FULL(4873,5253) - JVS(29098) = 0 -! JVS(29099) = Jac_FULL(4873,5255) - JVS(29099) = 0 -! JVS(29100) = Jac_FULL(4873,5256) - JVS(29100) = -B(5143) -! JVS(29101) = Jac_FULL(4873,5258) - JVS(29101) = 0 -! JVS(29102) = Jac_FULL(4874,571) - JVS(29102) = B(17843) -! JVS(29103) = Jac_FULL(4874,1234) - JVS(29103) = B(21200) -! JVS(29104) = Jac_FULL(4874,2095) - JVS(29104) = 0 -! JVS(29105) = Jac_FULL(4874,2877) - JVS(29105) = B(21202) -! JVS(29106) = Jac_FULL(4874,3871) - JVS(29106) = 0 -! JVS(29107) = Jac_FULL(4874,4537) - JVS(29107) = B(17856)+B(17858) -! JVS(29108) = Jac_FULL(4874,4586) - JVS(29108) = 0 -! JVS(29109) = Jac_FULL(4874,4874) - JVS(29109) = -B(19727)-B(19729)-B(19731)-B(19733)-B(19735)-B(19737) -! JVS(29110) = Jac_FULL(4874,4878) - JVS(29110) = 0 -! JVS(29111) = Jac_FULL(4874,5088) - JVS(29111) = 0 -! JVS(29112) = Jac_FULL(4874,5238) - JVS(29112) = 0 -! JVS(29113) = Jac_FULL(4874,5250) - JVS(29113) = B(17859)+B(21201) -! JVS(29114) = Jac_FULL(4874,5252) - JVS(29114) = -B(19732) -! JVS(29115) = Jac_FULL(4874,5253) - JVS(29115) = -B(19734) -! JVS(29116) = Jac_FULL(4874,5255) - JVS(29116) = -B(19728)-B(19730) -! JVS(29117) = Jac_FULL(4874,5256) - JVS(29117) = B(17857)-B(19736) -! JVS(29118) = Jac_FULL(4875,1085) - JVS(29118) = B(23241) -! JVS(29119) = Jac_FULL(4875,1784) - JVS(29119) = B(23245) -! JVS(29120) = Jac_FULL(4875,4462) - JVS(29120) = B(22301) -! JVS(29121) = Jac_FULL(4875,4759) - JVS(29121) = B(22804)+B(22806)+B(22810)+B(22812) -! JVS(29122) = Jac_FULL(4875,4806) - JVS(29122) = 0 -! JVS(29123) = Jac_FULL(4875,4875) - JVS(29123) = -B(22813)-B(22815)-B(22817)-B(22819) -! JVS(29124) = Jac_FULL(4875,5081) - JVS(29124) = 0 -! JVS(29125) = Jac_FULL(4875,5111) - JVS(29125) = 0 -! JVS(29126) = Jac_FULL(4875,5113) - JVS(29126) = 0 -! JVS(29127) = Jac_FULL(4875,5250) - JVS(29127) = B(23246) -! JVS(29128) = Jac_FULL(4875,5252) - JVS(29128) = B(22807)-B(22816) -! JVS(29129) = Jac_FULL(4875,5253) - JVS(29129) = 0 -! JVS(29130) = Jac_FULL(4875,5255) - JVS(29130) = B(22805)-B(22814) -! JVS(29131) = Jac_FULL(4875,5256) - JVS(29131) = B(22811)-B(22818) -! JVS(29132) = Jac_FULL(4876,1708) - JVS(29132) = B(295)+B(301) -! JVS(29133) = Jac_FULL(4876,4876) - JVS(29133) = -B(1651)-B(1653)-B(1655)-B(1657)-B(1659)-B(1660)-B(1661) -! JVS(29134) = Jac_FULL(4876,5238) - JVS(29134) = B(296) -! JVS(29135) = Jac_FULL(4876,5250) - JVS(29135) = B(302) -! JVS(29136) = Jac_FULL(4876,5252) - JVS(29136) = -B(1654)-B(1656) -! JVS(29137) = Jac_FULL(4876,5255) - JVS(29137) = -B(1652) -! JVS(29138) = Jac_FULL(4876,5256) - JVS(29138) = -B(1658) -! JVS(29139) = Jac_FULL(4877,3453) - JVS(29139) = B(15888) -! JVS(29140) = Jac_FULL(4877,4877) - JVS(29140) = -B(12803)-B(12805)-B(12807)-B(12809)-B(12810)-B(12811) -! JVS(29141) = Jac_FULL(4877,5126) - JVS(29141) = B(9303) -! JVS(29142) = Jac_FULL(4877,5250) - JVS(29142) = B(9304)+B(15889) -! JVS(29143) = Jac_FULL(4877,5252) - JVS(29143) = -B(12806) -! JVS(29144) = Jac_FULL(4877,5255) - JVS(29144) = -B(12804) -! JVS(29145) = Jac_FULL(4877,5256) - JVS(29145) = -B(12808) -! JVS(29146) = Jac_FULL(4878,548) - JVS(29146) = B(393)+B(397) -! JVS(29147) = Jac_FULL(4878,1082) - JVS(29147) = B(4732) -! JVS(29148) = Jac_FULL(4878,4878) - JVS(29148) = -B(1910)-B(1912)-B(1914)-B(1916)-B(1918)-B(1919) -! JVS(29149) = Jac_FULL(4878,5238) - JVS(29149) = B(394) -! JVS(29150) = Jac_FULL(4878,5250) - JVS(29150) = B(398)+B(4733) -! JVS(29151) = Jac_FULL(4878,5252) - JVS(29151) = -B(1913)-B(1915) -! JVS(29152) = Jac_FULL(4878,5255) - JVS(29152) = -B(1911) -! JVS(29153) = Jac_FULL(4878,5256) - JVS(29153) = -B(1917) -! JVS(29154) = Jac_FULL(4879,976) - JVS(29154) = B(5091) -! JVS(29155) = Jac_FULL(4879,4527) - JVS(29155) = B(549) -! JVS(29156) = Jac_FULL(4879,4879) - JVS(29156) = -B(2233)-B(2235)-B(2237)-B(2239)-B(2240)-B(2241) -! JVS(29157) = Jac_FULL(4879,5250) - JVS(29157) = B(5092) -! JVS(29158) = Jac_FULL(4879,5252) - JVS(29158) = -B(2236) -! JVS(29159) = Jac_FULL(4879,5255) - JVS(29159) = -B(2234) -! JVS(29160) = Jac_FULL(4879,5256) - JVS(29160) = B(550)-B(2238) -! JVS(29161) = Jac_FULL(4879,5258) - JVS(29161) = 0 -! JVS(29162) = Jac_FULL(4880,4736) - JVS(29162) = B(4559) -! JVS(29163) = Jac_FULL(4880,4880) - JVS(29163) = -B(8103)-B(8105)-B(8107)-B(8109)-B(8111)-B(8112)-B(8113) -! JVS(29164) = Jac_FULL(4880,5238) - JVS(29164) = 0 -! JVS(29165) = Jac_FULL(4880,5250) - JVS(29165) = B(4560) -! JVS(29166) = Jac_FULL(4880,5252) - JVS(29166) = -B(8106)-B(8108) -! JVS(29167) = Jac_FULL(4880,5255) - JVS(29167) = -B(8104) -! JVS(29168) = Jac_FULL(4880,5256) - JVS(29168) = -B(8110) -! JVS(29169) = Jac_FULL(4881,2363) - JVS(29169) = B(5044) -! JVS(29170) = Jac_FULL(4881,4508) - JVS(29170) = B(527) -! JVS(29171) = Jac_FULL(4881,4881) - JVS(29171) = -B(2188)-B(2190)-B(2192)-B(2194)-B(2195)-B(2196) -! JVS(29172) = Jac_FULL(4881,5250) - JVS(29172) = B(5045) -! JVS(29173) = Jac_FULL(4881,5252) - JVS(29173) = -B(2191) -! JVS(29174) = Jac_FULL(4881,5255) - JVS(29174) = -B(2189) -! JVS(29175) = Jac_FULL(4881,5256) - JVS(29175) = B(528)-B(2193) -! JVS(29176) = Jac_FULL(4881,5258) - JVS(29176) = 0 -! JVS(29177) = Jac_FULL(4882,501) - JVS(29177) = B(12166) -! JVS(29178) = Jac_FULL(4882,765) - JVS(29178) = B(3926) -! JVS(29179) = Jac_FULL(4882,1536) - JVS(29179) = B(12159) -! JVS(29180) = Jac_FULL(4882,1889) - JVS(29180) = B(12162) -! JVS(29181) = Jac_FULL(4882,3018) - JVS(29181) = 0 -! JVS(29182) = Jac_FULL(4882,3952) - JVS(29182) = B(8422) -! JVS(29183) = Jac_FULL(4882,4814) - JVS(29183) = 0 -! JVS(29184) = Jac_FULL(4882,4882) - JVS(29184) = -B(7725)-B(7727)-B(7729)-B(7731) -! JVS(29185) = Jac_FULL(4882,5181) - JVS(29185) = 0 -! JVS(29186) = Jac_FULL(4882,5250) - JVS(29186) = -B(7728)-B(7730)+B(12160)+B(12163)+B(12167) -! JVS(29187) = Jac_FULL(4882,5252) - JVS(29187) = 0 -! JVS(29188) = Jac_FULL(4882,5255) - JVS(29188) = 0 -! JVS(29189) = Jac_FULL(4882,5256) - JVS(29189) = -B(7726) -! JVS(29190) = Jac_FULL(4883,1998) - JVS(29190) = B(18030) -! JVS(29191) = Jac_FULL(4883,3015) - JVS(29191) = 0 -! JVS(29192) = Jac_FULL(4883,4354) - JVS(29192) = B(11541) -! JVS(29193) = Jac_FULL(4883,4360) - JVS(29193) = 0 -! JVS(29194) = Jac_FULL(4883,4882) - JVS(29194) = 0 -! JVS(29195) = Jac_FULL(4883,4883) - JVS(29195) = -B(14874)-B(14876)-B(14878) -! JVS(29196) = Jac_FULL(4883,5181) - JVS(29196) = 0 -! JVS(29197) = Jac_FULL(4883,5250) - JVS(29197) = -B(14875)-B(14877) -! JVS(29198) = Jac_FULL(4883,5252) - JVS(29198) = 0 -! JVS(29199) = Jac_FULL(4883,5255) - JVS(29199) = 0 -! JVS(29200) = Jac_FULL(4883,5256) - JVS(29200) = 0 -! JVS(29201) = Jac_FULL(4884,2455) - JVS(29201) = B(5148) -! JVS(29202) = Jac_FULL(4884,4604) - JVS(29202) = B(561) -! JVS(29203) = Jac_FULL(4884,4606) - JVS(29203) = B(573) -! JVS(29204) = Jac_FULL(4884,4884) - JVS(29204) = -B(2277)-B(2279)-B(2281)-B(2283)-B(2284)-B(2285) -! JVS(29205) = Jac_FULL(4884,5250) - JVS(29205) = B(5149) -! JVS(29206) = Jac_FULL(4884,5252) - JVS(29206) = -B(2280) -! JVS(29207) = Jac_FULL(4884,5255) - JVS(29207) = -B(2278) -! JVS(29208) = Jac_FULL(4884,5256) - JVS(29208) = B(562)+B(574)-B(2282) -! JVS(29209) = Jac_FULL(4884,5258) - JVS(29209) = 0 -! JVS(29210) = Jac_FULL(4885,179) - JVS(29210) = B(7035) -! JVS(29211) = Jac_FULL(4885,1938) - JVS(29211) = B(14035) -! JVS(29212) = Jac_FULL(4885,2365) - JVS(29212) = 0 -! JVS(29213) = Jac_FULL(4885,3222) - JVS(29213) = 0 -! JVS(29214) = Jac_FULL(4885,4885) - JVS(29214) = -B(10839)-B(10841)-B(10843)-B(10845)-B(10846)-B(10847) -! JVS(29215) = Jac_FULL(4885,5151) - JVS(29215) = 0 -! JVS(29216) = Jac_FULL(4885,5250) - JVS(29216) = B(14036) -! JVS(29217) = Jac_FULL(4885,5252) - JVS(29217) = -B(10842) -! JVS(29218) = Jac_FULL(4885,5255) - JVS(29218) = -B(10840) -! JVS(29219) = Jac_FULL(4885,5256) - JVS(29219) = -B(10844) -! JVS(29220) = Jac_FULL(4886,566) - JVS(29220) = B(373)+B(377) -! JVS(29221) = Jac_FULL(4886,2019) - JVS(29221) = B(4670) -! JVS(29222) = Jac_FULL(4886,4886) - JVS(29222) = -B(1856)-B(1858)-B(1860)-B(1862)-B(1864)-B(1865)-B(1866) -! JVS(29223) = Jac_FULL(4886,5238) - JVS(29223) = B(374) -! JVS(29224) = Jac_FULL(4886,5250) - JVS(29224) = B(378)+B(4671) -! JVS(29225) = Jac_FULL(4886,5252) - JVS(29225) = -B(1859)-B(1861) -! JVS(29226) = Jac_FULL(4886,5255) - JVS(29226) = -B(1857) -! JVS(29227) = Jac_FULL(4886,5256) - JVS(29227) = -B(1863) -! JVS(29228) = Jac_FULL(4887,937) - JVS(29228) = B(8938) -! JVS(29229) = Jac_FULL(4887,1343) - JVS(29229) = B(8933)+B(8935) -! JVS(29230) = Jac_FULL(4887,3469) - JVS(29230) = B(8977) -! JVS(29231) = Jac_FULL(4887,3834) - JVS(29231) = B(2447) -! JVS(29232) = Jac_FULL(4887,4833) - JVS(29232) = B(5412)+B(5418)+B(5422)+B(5424) -! JVS(29233) = Jac_FULL(4887,4887) - JVS(29233) = -B(5442)-B(5444)-B(5446)-B(5448)-B(5449) -! JVS(29234) = Jac_FULL(4887,5250) - JVS(29234) = B(8934)+B(8978) -! JVS(29235) = Jac_FULL(4887,5252) - JVS(29235) = B(5419)-B(5445) -! JVS(29236) = Jac_FULL(4887,5253) - JVS(29236) = 0 -! JVS(29237) = Jac_FULL(4887,5255) - JVS(29237) = B(5413)-B(5443) -! JVS(29238) = Jac_FULL(4887,5256) - JVS(29238) = B(5423)-B(5447) -! JVS(29239) = Jac_FULL(4887,5258) - JVS(29239) = 0 -! JVS(29240) = Jac_FULL(4888,2766) - JVS(29240) = B(16163) -! JVS(29241) = Jac_FULL(4888,3221) - JVS(29241) = B(16169) -! JVS(29242) = Jac_FULL(4888,3437) - JVS(29242) = B(9647)+B(9649)+B(9653) -! JVS(29243) = Jac_FULL(4888,4888) - JVS(29243) = -B(13081)-B(13083)-B(13085)-B(13087)-B(13089)-B(13091)-B(13093)-B(13094) -! JVS(29244) = Jac_FULL(4888,4937) - JVS(29244) = 0 -! JVS(29245) = Jac_FULL(4888,5250) - JVS(29245) = B(9650)+B(16164) -! JVS(29246) = Jac_FULL(4888,5252) - JVS(29246) = -B(13088) -! JVS(29247) = Jac_FULL(4888,5253) - JVS(29247) = -B(13090) -! JVS(29248) = Jac_FULL(4888,5255) - JVS(29248) = -B(13082)-B(13084)-B(13086) -! JVS(29249) = Jac_FULL(4888,5256) - JVS(29249) = B(9648)-B(13092) -! JVS(29250) = Jac_FULL(4889,3542) - JVS(29250) = B(5130) -! JVS(29251) = Jac_FULL(4889,4582) - JVS(29251) = 0 -! JVS(29252) = Jac_FULL(4889,4879) - JVS(29252) = 0 -! JVS(29253) = Jac_FULL(4889,4889) - JVS(29253) = -B(8626)-B(8628)-B(8630)-B(8632)-B(8633)-B(8634) -! JVS(29254) = Jac_FULL(4889,5135) - JVS(29254) = 0 -! JVS(29255) = Jac_FULL(4889,5250) - JVS(29255) = B(5131) -! JVS(29256) = Jac_FULL(4889,5252) - JVS(29256) = -B(8629) -! JVS(29257) = Jac_FULL(4889,5255) - JVS(29257) = -B(8627) -! JVS(29258) = Jac_FULL(4889,5256) - JVS(29258) = -B(8631) -! JVS(29259) = Jac_FULL(4889,5258) - JVS(29259) = 0 -! JVS(29260) = Jac_FULL(4890,200) - JVS(29260) = B(17852) -! JVS(29261) = Jac_FULL(4890,1829) - JVS(29261) = 0 -! JVS(29262) = Jac_FULL(4890,2331) - JVS(29262) = 0 -! JVS(29263) = Jac_FULL(4890,4251) - JVS(29263) = 0 -! JVS(29264) = Jac_FULL(4890,4878) - JVS(29264) = 0 -! JVS(29265) = Jac_FULL(4890,4890) - JVS(29265) = -B(19738)-B(19740)-B(19742)-B(19744)-B(19746)-B(19747)-B(19748) -! JVS(29266) = Jac_FULL(4890,5088) - JVS(29266) = 0 -! JVS(29267) = Jac_FULL(4890,5238) - JVS(29267) = 0 -! JVS(29268) = Jac_FULL(4890,5250) - JVS(29268) = 0 -! JVS(29269) = Jac_FULL(4890,5252) - JVS(29269) = -B(19741)-B(19743) -! JVS(29270) = Jac_FULL(4890,5255) - JVS(29270) = -B(19739) -! JVS(29271) = Jac_FULL(4890,5256) - JVS(29271) = -B(19745) -! JVS(29272) = Jac_FULL(4891,1447) - JVS(29272) = B(17124) -! JVS(29273) = Jac_FULL(4891,2947) - JVS(29273) = B(17129) -! JVS(29274) = Jac_FULL(4891,4891) - JVS(29274) = -B(14477)-B(14479)-B(14481)-B(14483)-B(14485)-B(14487) -! JVS(29275) = Jac_FULL(4891,5212) - JVS(29275) = B(11230) -! JVS(29276) = Jac_FULL(4891,5250) - JVS(29276) = B(11231)+B(17125) -! JVS(29277) = Jac_FULL(4891,5252) - JVS(29277) = -B(14482) -! JVS(29278) = Jac_FULL(4891,5253) - JVS(29278) = -B(14484) -! JVS(29279) = Jac_FULL(4891,5255) - JVS(29279) = -B(14478)-B(14480) -! JVS(29280) = Jac_FULL(4891,5256) - JVS(29280) = -B(14486) -! JVS(29281) = Jac_FULL(4892,1296) - JVS(29281) = B(9077) -! JVS(29282) = Jac_FULL(4892,3206) - JVS(29282) = B(9082) -! JVS(29283) = Jac_FULL(4892,4056) - JVS(29283) = B(2482)+B(2486) -! JVS(29284) = Jac_FULL(4892,4892) - JVS(29284) = -B(5510)-B(5512)-B(5514)-B(5516)-B(5518)-B(5520)-B(5522)-B(5523) -! JVS(29285) = Jac_FULL(4892,5250) - JVS(29285) = B(2487)+B(9078) -! JVS(29286) = Jac_FULL(4892,5252) - JVS(29286) = -B(5517) -! JVS(29287) = Jac_FULL(4892,5253) - JVS(29287) = -B(5519) -! JVS(29288) = Jac_FULL(4892,5255) - JVS(29288) = -B(5511)-B(5513)-B(5515) -! JVS(29289) = Jac_FULL(4892,5256) - JVS(29289) = B(2483)-B(5521) -! JVS(29290) = Jac_FULL(4892,5258) - JVS(29290) = 0 -! JVS(29291) = Jac_FULL(4893,941) - JVS(29291) = B(9191) -! JVS(29292) = Jac_FULL(4893,1403) - JVS(29292) = B(9186)+B(9188) -! JVS(29293) = Jac_FULL(4893,3468) - JVS(29293) = B(9209) -! JVS(29294) = Jac_FULL(4893,4083) - JVS(29294) = B(2533) -! JVS(29295) = Jac_FULL(4893,4692) - JVS(29295) = B(5601)+B(5607)+B(5611)+B(5613) -! JVS(29296) = Jac_FULL(4893,4893) - JVS(29296) = -B(5626)-B(5628)-B(5630)-B(5632)-B(5633) -! JVS(29297) = Jac_FULL(4893,5250) - JVS(29297) = B(9187)+B(9210) -! JVS(29298) = Jac_FULL(4893,5252) - JVS(29298) = B(5608)-B(5629) -! JVS(29299) = Jac_FULL(4893,5253) - JVS(29299) = 0 -! JVS(29300) = Jac_FULL(4893,5255) - JVS(29300) = B(5602)-B(5627) -! JVS(29301) = Jac_FULL(4893,5256) - JVS(29301) = B(5612)-B(5631) -! JVS(29302) = Jac_FULL(4893,5258) - JVS(29302) = 0 -! JVS(29303) = Jac_FULL(4894,3228) - JVS(29303) = B(6838) -! JVS(29304) = Jac_FULL(4894,4894) - JVS(29304) = -B(10640)-B(10642)-B(10644)-B(10646)-B(10648)-B(10649) -! JVS(29305) = Jac_FULL(4894,5132) - JVS(29305) = 0 -! JVS(29306) = Jac_FULL(4894,5205) - JVS(29306) = B(10537) -! JVS(29307) = Jac_FULL(4894,5250) - JVS(29307) = B(6839)+B(10538) -! JVS(29308) = Jac_FULL(4894,5252) - JVS(29308) = -B(10643)-B(10645) -! JVS(29309) = Jac_FULL(4894,5255) - JVS(29309) = -B(10641) -! JVS(29310) = Jac_FULL(4894,5256) - JVS(29310) = -B(10647) -! JVS(29311) = Jac_FULL(4895,3332) - JVS(29311) = B(6117) -! JVS(29312) = Jac_FULL(4895,3818) - JVS(29312) = B(6440) -! JVS(29313) = Jac_FULL(4895,4004) - JVS(29313) = B(5498) -! JVS(29314) = Jac_FULL(4895,4055) - JVS(29314) = 0 -! JVS(29315) = Jac_FULL(4895,4895) - JVS(29315) = -B(9051)-B(9053)-B(9055) -! JVS(29316) = Jac_FULL(4895,5089) - JVS(29316) = B(9050) -! JVS(29317) = Jac_FULL(4895,5250) - JVS(29317) = -B(9056) -! JVS(29318) = Jac_FULL(4895,5252) - JVS(29318) = 0 -! JVS(29319) = Jac_FULL(4895,5255) - JVS(29319) = 0 -! JVS(29320) = Jac_FULL(4895,5256) - JVS(29320) = -B(9052) -! JVS(29321) = Jac_FULL(4895,5258) - JVS(29321) = -B(9054) -! JVS(29322) = Jac_FULL(4896,3802) - JVS(29322) = B(6356) -! JVS(29323) = Jac_FULL(4896,3812) - JVS(29323) = B(5705) -! JVS(29324) = Jac_FULL(4896,3826) - JVS(29324) = B(6281) -! JVS(29325) = Jac_FULL(4896,4177) - JVS(29325) = B(6203) -! JVS(29326) = Jac_FULL(4896,4896) - JVS(29326) = -B(9307)-B(9309)-B(9311) -! JVS(29327) = Jac_FULL(4896,5126) - JVS(29327) = B(9306) -! JVS(29328) = Jac_FULL(4896,5250) - JVS(29328) = -B(9312) -! JVS(29329) = Jac_FULL(4896,5252) - JVS(29329) = 0 -! JVS(29330) = Jac_FULL(4896,5255) - JVS(29330) = 0 -! JVS(29331) = Jac_FULL(4896,5256) - JVS(29331) = -B(9308) -! JVS(29332) = Jac_FULL(4896,5258) - JVS(29332) = -B(9310) -! JVS(29333) = Jac_FULL(4897,1405) - JVS(29333) = B(9991)+B(9993) -! JVS(29334) = Jac_FULL(4897,1473) - JVS(29334) = B(9996) -! JVS(29335) = Jac_FULL(4897,1873) - JVS(29335) = B(10014) -! JVS(29336) = Jac_FULL(4897,4080) - JVS(29336) = B(2863) -! JVS(29337) = Jac_FULL(4897,4132) - JVS(29337) = B(6288)+B(6294)+B(6298)+B(6300) -! JVS(29338) = Jac_FULL(4897,4897) - JVS(29338) = -B(6313)-B(6315)-B(6317)-B(6319)-B(6320)-B(6321) -! JVS(29339) = Jac_FULL(4897,5250) - JVS(29339) = B(9992)+B(10015) -! JVS(29340) = Jac_FULL(4897,5252) - JVS(29340) = -B(6316) -! JVS(29341) = Jac_FULL(4897,5253) - JVS(29341) = B(6295) -! JVS(29342) = Jac_FULL(4897,5255) - JVS(29342) = B(6289)-B(6314) -! JVS(29343) = Jac_FULL(4897,5256) - JVS(29343) = B(6299)-B(6318) -! JVS(29344) = Jac_FULL(4897,5258) - JVS(29344) = 0 -! JVS(29345) = Jac_FULL(4898,990) - JVS(29345) = B(16911)+B(16913) -! JVS(29346) = Jac_FULL(4898,1383) - JVS(29346) = B(16917) -! JVS(29347) = Jac_FULL(4898,1437) - JVS(29347) = B(16910) -! JVS(29348) = Jac_FULL(4898,3559) - JVS(29348) = B(11079) -! JVS(29349) = Jac_FULL(4898,4563) - JVS(29349) = 0 -! JVS(29350) = Jac_FULL(4898,4830) - JVS(29350) = B(14270)+B(14274)+B(14278)+B(14280) -! JVS(29351) = Jac_FULL(4898,4898) - JVS(29351) = -B(14282)-B(14284)-B(14286)-B(14288) -! JVS(29352) = Jac_FULL(4898,5250) - JVS(29352) = B(16912)+B(16918) -! JVS(29353) = Jac_FULL(4898,5252) - JVS(29353) = B(14275)-B(14285) -! JVS(29354) = Jac_FULL(4898,5253) - JVS(29354) = 0 -! JVS(29355) = Jac_FULL(4898,5255) - JVS(29355) = B(14271)-B(14283) -! JVS(29356) = Jac_FULL(4898,5256) - JVS(29356) = B(14279)-B(14287) -! JVS(29357) = Jac_FULL(4898,5258) - JVS(29357) = 0 -! JVS(29358) = Jac_FULL(4899,3227) - JVS(29358) = B(9763) -! JVS(29359) = Jac_FULL(4899,3452) - JVS(29359) = B(9787) -! JVS(29360) = Jac_FULL(4899,3487) - JVS(29360) = B(9768) -! JVS(29361) = Jac_FULL(4899,4027) - JVS(29361) = B(2759) -! JVS(29362) = Jac_FULL(4899,4899) - JVS(29362) = -B(6087)-B(6089)-B(6091)-B(6093)-B(6094) -! JVS(29363) = Jac_FULL(4899,4948) - JVS(29363) = B(6062)+B(6068)+B(6072)+B(6074) -! JVS(29364) = Jac_FULL(4899,5250) - JVS(29364) = B(9764)+B(9788) -! JVS(29365) = Jac_FULL(4899,5252) - JVS(29365) = B(6069)-B(6090) -! JVS(29366) = Jac_FULL(4899,5255) - JVS(29366) = B(6063)-B(6088) -! JVS(29367) = Jac_FULL(4899,5256) - JVS(29367) = B(6073)-B(6092) -! JVS(29368) = Jac_FULL(4899,5258) - JVS(29368) = 0 -! JVS(29369) = Jac_FULL(4900,859) - JVS(29369) = B(19198) -! JVS(29370) = Jac_FULL(4900,1442) - JVS(29370) = B(19193)+B(19195) -! JVS(29371) = Jac_FULL(4900,4664) - JVS(29371) = B(16986)+B(16988)+B(16992)+B(16995) -! JVS(29372) = Jac_FULL(4900,4900) - JVS(29372) = -B(19199)-B(19201)-B(19203)-B(19205)-B(19207)-B(19208)-B(19209) -! JVS(29373) = Jac_FULL(4900,5215) - JVS(29373) = 0 -! JVS(29374) = Jac_FULL(4900,5250) - JVS(29374) = B(19194) -! JVS(29375) = Jac_FULL(4900,5252) - JVS(29375) = B(16989)-B(19202)-B(19204) -! JVS(29376) = Jac_FULL(4900,5253) - JVS(29376) = 0 -! JVS(29377) = Jac_FULL(4900,5255) - JVS(29377) = B(16987)-B(19200) -! JVS(29378) = Jac_FULL(4900,5256) - JVS(29378) = B(16993)-B(19206) -! JVS(29379) = Jac_FULL(4901,379) - JVS(29379) = B(11986) -! JVS(29380) = Jac_FULL(4901,832) - JVS(29380) = B(11988) -! JVS(29381) = Jac_FULL(4901,1635) - JVS(29381) = B(305)+B(311) -! JVS(29382) = Jac_FULL(4901,2223) - JVS(29382) = B(4446) -! JVS(29383) = Jac_FULL(4901,3877) - JVS(29383) = B(4681) -! JVS(29384) = Jac_FULL(4901,4886) - JVS(29384) = 0 -! JVS(29385) = Jac_FULL(4901,4901) - JVS(29385) = -B(1673)-B(1675)-B(1677)-B(1679)-B(1681)-B(1682)-B(1683) -! JVS(29386) = Jac_FULL(4901,4994) - JVS(29386) = B(8235)+B(8241)+B(8245)+B(8247) -! JVS(29387) = Jac_FULL(4901,5238) - JVS(29387) = B(306) -! JVS(29388) = Jac_FULL(4901,5250) - JVS(29388) = B(312)+B(4447)+B(11987) -! JVS(29389) = Jac_FULL(4901,5252) - JVS(29389) = -B(1676)-B(1678)+B(8242) -! JVS(29390) = Jac_FULL(4901,5255) - JVS(29390) = -B(1674)+B(8236) -! JVS(29391) = Jac_FULL(4901,5256) - JVS(29391) = -B(1680)+B(8246) -! JVS(29392) = Jac_FULL(4902,2142) - JVS(29392) = B(23762) -! JVS(29393) = Jac_FULL(4902,2530) - JVS(29393) = B(23763) -! JVS(29394) = Jac_FULL(4902,2977) - JVS(29394) = B(21683) -! JVS(29395) = Jac_FULL(4902,4104) - JVS(29395) = B(21725) -! JVS(29396) = Jac_FULL(4902,4220) - JVS(29396) = B(23542)+B(23546)+B(23550)+B(23552) -! JVS(29397) = Jac_FULL(4902,4580) - JVS(29397) = 0 -! JVS(29398) = Jac_FULL(4902,4597) - JVS(29398) = 0 -! JVS(29399) = Jac_FULL(4902,4644) - JVS(29399) = 0 -! JVS(29400) = Jac_FULL(4902,4902) - JVS(29400) = -B(22311)-B(22313)-B(22315) -! JVS(29401) = Jac_FULL(4902,4925) - JVS(29401) = 0 -! JVS(29402) = Jac_FULL(4902,4969) - JVS(29402) = 0 -! JVS(29403) = Jac_FULL(4902,5019) - JVS(29403) = 0 -! JVS(29404) = Jac_FULL(4902,5196) - JVS(29404) = 0 -! JVS(29405) = Jac_FULL(4902,5198) - JVS(29405) = 0 -! JVS(29406) = Jac_FULL(4902,5236) - JVS(29406) = 0 -! JVS(29407) = Jac_FULL(4902,5250) - JVS(29407) = B(21684)+B(21726)-B(22314)+B(23764) -! JVS(29408) = Jac_FULL(4902,5252) - JVS(29408) = B(23547) -! JVS(29409) = Jac_FULL(4902,5253) - JVS(29409) = 0 -! JVS(29410) = Jac_FULL(4902,5255) - JVS(29410) = B(23543) -! JVS(29411) = Jac_FULL(4902,5256) - JVS(29411) = -B(22312)+B(23551) -! JVS(29412) = Jac_FULL(4903,3747) - JVS(29412) = B(12032) -! JVS(29413) = Jac_FULL(4903,4577) - JVS(29413) = 0 -! JVS(29414) = Jac_FULL(4903,4722) - JVS(29414) = 0 -! JVS(29415) = Jac_FULL(4903,4903) - JVS(29415) = -B(15214)-B(15216)-B(15218)-B(15220)-B(15222)-B(15223)-B(15224) -! JVS(29416) = Jac_FULL(4903,5146) - JVS(29416) = 0 -! JVS(29417) = Jac_FULL(4903,5238) - JVS(29417) = 0 -! JVS(29418) = Jac_FULL(4903,5250) - JVS(29418) = B(12033) -! JVS(29419) = Jac_FULL(4903,5252) - JVS(29419) = -B(15217)-B(15219) -! JVS(29420) = Jac_FULL(4903,5255) - JVS(29420) = -B(15215) -! JVS(29421) = Jac_FULL(4903,5256) - JVS(29421) = -B(15221) -! JVS(29422) = Jac_FULL(4904,994) - JVS(29422) = B(20009) -! JVS(29423) = Jac_FULL(4904,2488) - JVS(29423) = B(15739) -! JVS(29424) = Jac_FULL(4904,3582) - JVS(29424) = 0 -! JVS(29425) = Jac_FULL(4904,3723) - JVS(29425) = 0 -! JVS(29426) = Jac_FULL(4904,3765) - JVS(29426) = 0 -! JVS(29427) = Jac_FULL(4904,4024) - JVS(29427) = 0 -! JVS(29428) = Jac_FULL(4904,4178) - JVS(29428) = 0 -! JVS(29429) = Jac_FULL(4904,4328) - JVS(29429) = 0 -! JVS(29430) = Jac_FULL(4904,4507) - JVS(29430) = 0 -! JVS(29431) = Jac_FULL(4904,4509) - JVS(29431) = 0 -! JVS(29432) = Jac_FULL(4904,4514) - JVS(29432) = 0 -! JVS(29433) = Jac_FULL(4904,4632) - JVS(29433) = 0 -! JVS(29434) = Jac_FULL(4904,4663) - JVS(29434) = 0 -! JVS(29435) = Jac_FULL(4904,4671) - JVS(29435) = 0 -! JVS(29436) = Jac_FULL(4904,4676) - JVS(29436) = 0 -! JVS(29437) = Jac_FULL(4904,4682) - JVS(29437) = 0 -! JVS(29438) = Jac_FULL(4904,4690) - JVS(29438) = 0 -! JVS(29439) = Jac_FULL(4904,4694) - JVS(29439) = 0 -! JVS(29440) = Jac_FULL(4904,4726) - JVS(29440) = 0 -! JVS(29441) = Jac_FULL(4904,4773) - JVS(29441) = 0 -! JVS(29442) = Jac_FULL(4904,4798) - JVS(29442) = 0 -! JVS(29443) = Jac_FULL(4904,4904) - JVS(29443) = -B(18212)-B(18214)-B(18216)-B(18218)-B(18219) -! JVS(29444) = Jac_FULL(4904,4946) - JVS(29444) = 0 -! JVS(29445) = Jac_FULL(4904,4968) - JVS(29445) = 0 -! JVS(29446) = Jac_FULL(4904,4985) - JVS(29446) = 0 -! JVS(29447) = Jac_FULL(4904,4993) - JVS(29447) = 0 -! JVS(29448) = Jac_FULL(4904,5209) - JVS(29448) = 0 -! JVS(29449) = Jac_FULL(4904,5250) - JVS(29449) = B(15740)+B(20010) -! JVS(29450) = Jac_FULL(4904,5252) - JVS(29450) = -B(18215) -! JVS(29451) = Jac_FULL(4904,5253) - JVS(29451) = 0 -! JVS(29452) = Jac_FULL(4904,5255) - JVS(29452) = -B(18213) -! JVS(29453) = Jac_FULL(4904,5256) - JVS(29453) = -B(18217) -! JVS(29454) = Jac_FULL(4904,5258) - JVS(29454) = 0 -! JVS(29455) = Jac_FULL(4905,1254) - JVS(29455) = B(10071) -! JVS(29456) = Jac_FULL(4905,1481) - JVS(29456) = B(10066)+B(10068) -! JVS(29457) = Jac_FULL(4905,3451) - JVS(29457) = B(10089) -! JVS(29458) = Jac_FULL(4905,4272) - JVS(29458) = B(2895) -! JVS(29459) = Jac_FULL(4905,4633) - JVS(29459) = B(6360)+B(6366)+B(6370)+B(6372) -! JVS(29460) = Jac_FULL(4905,4905) - JVS(29460) = -B(6385)-B(6387)-B(6389)-B(6391)-B(6392) -! JVS(29461) = Jac_FULL(4905,5250) - JVS(29461) = B(10067)+B(10090) -! JVS(29462) = Jac_FULL(4905,5252) - JVS(29462) = B(6367)-B(6388) -! JVS(29463) = Jac_FULL(4905,5253) - JVS(29463) = 0 -! JVS(29464) = Jac_FULL(4905,5255) - JVS(29464) = B(6361)-B(6386) -! JVS(29465) = Jac_FULL(4905,5256) - JVS(29465) = B(6371)-B(6390) -! JVS(29466) = Jac_FULL(4905,5258) - JVS(29466) = 0 -! JVS(29467) = Jac_FULL(4906,2476) - JVS(29467) = B(3114) -! JVS(29468) = Jac_FULL(4906,4906) - JVS(29468) = -B(6745)-B(6747)-B(6749)-B(6751)-B(6753)-B(6754) -! JVS(29469) = Jac_FULL(4906,5166) - JVS(29469) = 0 -! JVS(29470) = Jac_FULL(4906,5251) - JVS(29470) = -B(6746) -! JVS(29471) = Jac_FULL(4906,5252) - JVS(29471) = -B(6748) -! JVS(29472) = Jac_FULL(4906,5253) - JVS(29472) = -B(6750) -! JVS(29473) = Jac_FULL(4906,5254) - JVS(29473) = -B(6752) -! JVS(29474) = Jac_FULL(4906,5258) - JVS(29474) = 0 -! JVS(29475) = Jac_FULL(4907,4907) - JVS(29475) = -B(3146)-B(3148)-B(3150)-B(3152)-B(3154) -! JVS(29476) = Jac_FULL(4907,5166) - JVS(29476) = B(795) -! JVS(29477) = Jac_FULL(4907,5250) - JVS(29477) = B(796)-B(3153) -! JVS(29478) = Jac_FULL(4907,5256) - JVS(29478) = -B(3147) -! JVS(29479) = Jac_FULL(4907,5258) - JVS(29479) = -B(3149)-B(3151) -! JVS(29480) = Jac_FULL(4908,1776) - JVS(29480) = B(1251) -! JVS(29481) = Jac_FULL(4908,4555) - JVS(29481) = 0 -! JVS(29482) = Jac_FULL(4908,4908) - JVS(29482) = -B(4027)-B(4029)-B(4031)-B(4033)-B(4035)-B(4036) -! JVS(29483) = Jac_FULL(4908,5250) - JVS(29483) = 0 -! JVS(29484) = Jac_FULL(4908,5251) - JVS(29484) = -B(4028) -! JVS(29485) = Jac_FULL(4908,5252) - JVS(29485) = -B(4030) -! JVS(29486) = Jac_FULL(4908,5253) - JVS(29486) = -B(4032) -! JVS(29487) = Jac_FULL(4908,5254) - JVS(29487) = -B(4034) -! JVS(29488) = Jac_FULL(4908,5256) - JVS(29488) = 0 -! JVS(29489) = Jac_FULL(4908,5258) - JVS(29489) = 0 -! JVS(29490) = Jac_FULL(4909,2191) - JVS(29490) = B(13617) -! JVS(29491) = Jac_FULL(4909,2442) - JVS(29491) = B(4832) -! JVS(29492) = Jac_FULL(4909,2545) - JVS(29492) = B(13637) -! JVS(29493) = Jac_FULL(4909,2670) - JVS(29493) = B(13623) -! JVS(29494) = Jac_FULL(4909,2717) - JVS(29494) = B(13611) -! JVS(29495) = Jac_FULL(4909,2985) - JVS(29495) = B(11670) -! JVS(29496) = Jac_FULL(4909,3033) - JVS(29496) = B(13619) -! JVS(29497) = Jac_FULL(4909,3154) - JVS(29497) = B(16483) -! JVS(29498) = Jac_FULL(4909,3203) - JVS(29498) = B(11676) -! JVS(29499) = Jac_FULL(4909,3577) - JVS(29499) = B(4838) -! JVS(29500) = Jac_FULL(4909,3586) - JVS(29500) = B(10665) -! JVS(29501) = Jac_FULL(4909,3835) - JVS(29501) = B(13609) -! JVS(29502) = Jac_FULL(4909,3939) - JVS(29502) = 0 -! JVS(29503) = Jac_FULL(4909,4213) - JVS(29503) = B(13625)+B(13627)+B(13629)+B(13631)+B(13633) -! JVS(29504) = Jac_FULL(4909,4282) - JVS(29504) = B(13591)+B(13593)+B(13595)+B(13597)+B(13599) -! JVS(29505) = Jac_FULL(4909,4337) - JVS(29505) = 0 -! JVS(29506) = Jac_FULL(4909,4370) - JVS(29506) = B(2013) -! JVS(29507) = Jac_FULL(4909,4436) - JVS(29507) = B(10430)+B(10432)+B(10436)+B(10439) -! JVS(29508) = Jac_FULL(4909,4794) - JVS(29508) = 0 -! JVS(29509) = Jac_FULL(4909,4909) - JVS(29509) = -B(4839)-B(4841) -! JVS(29510) = Jac_FULL(4909,5015) - JVS(29510) = 0 -! JVS(29511) = Jac_FULL(4909,5036) - JVS(29511) = B(7940)+B(7942)+B(7946)+B(7949) -! JVS(29512) = Jac_FULL(4909,5069) - JVS(29512) = B(6711) -! JVS(29513) = Jac_FULL(4909,5166) - JVS(29513) = 0 -! JVS(29514) = Jac_FULL(4909,5168) - JVS(29514) = B(6702) -! JVS(29515) = Jac_FULL(4909,5200) - JVS(29515) = 0 -! JVS(29516) = Jac_FULL(4909,5250) - JVS(29516) = B(4833)-B(4840)+B(11671)+B(13610)+B(13618)+B(13624) -! JVS(29517) = Jac_FULL(4909,5251) - JVS(29517) = B(13592)+B(13626) -! JVS(29518) = Jac_FULL(4909,5252) - JVS(29518) = B(7943)+B(10433)+B(13594)+B(13628) -! JVS(29519) = Jac_FULL(4909,5253) - JVS(29519) = B(13596)+B(13630) -! JVS(29520) = Jac_FULL(4909,5254) - JVS(29520) = B(13598)+B(13632) -! JVS(29521) = Jac_FULL(4909,5255) - JVS(29521) = B(7941)+B(10431) -! JVS(29522) = Jac_FULL(4909,5256) - JVS(29522) = B(7947)+B(10437) -! JVS(29523) = Jac_FULL(4909,5258) - JVS(29523) = B(6703)+B(6712) -! JVS(29524) = Jac_FULL(4910,145) - JVS(29524) = B(11159) -! JVS(29525) = Jac_FULL(4910,404) - JVS(29525) = B(11160) -! JVS(29526) = Jac_FULL(4910,405) - JVS(29526) = 0 -! JVS(29527) = Jac_FULL(4910,864) - JVS(29527) = B(16902) -! JVS(29528) = Jac_FULL(4910,2323) - JVS(29528) = B(11071) -! JVS(29529) = Jac_FULL(4910,2540) - JVS(29529) = B(11070) -! JVS(29530) = Jac_FULL(4910,3115) - JVS(29530) = B(11073)+B(11075) -! JVS(29531) = Jac_FULL(4910,3223) - JVS(29531) = B(16907) -! JVS(29532) = Jac_FULL(4910,3559) - JVS(29532) = B(11078) -! JVS(29533) = Jac_FULL(4910,4240) - JVS(29533) = 0 -! JVS(29534) = Jac_FULL(4910,4563) - JVS(29534) = 0 -! JVS(29535) = Jac_FULL(4910,4600) - JVS(29535) = 0 -! JVS(29536) = Jac_FULL(4910,4830) - JVS(29536) = 0 -! JVS(29537) = Jac_FULL(4910,4910) - JVS(29537) = -B(14254)-B(14256)-B(14258)-B(14260)-B(14262)-B(14264)-B(14266)-B(14267) -! JVS(29538) = Jac_FULL(4910,5215) - JVS(29538) = 0 -! JVS(29539) = Jac_FULL(4910,5250) - JVS(29539) = B(11074)+B(11161)+B(16903) -! JVS(29540) = Jac_FULL(4910,5252) - JVS(29540) = -B(14261) -! JVS(29541) = Jac_FULL(4910,5253) - JVS(29541) = -B(14263) -! JVS(29542) = Jac_FULL(4910,5255) - JVS(29542) = -B(14255)-B(14257)-B(14259) -! JVS(29543) = Jac_FULL(4910,5256) - JVS(29543) = -B(14265) -! JVS(29544) = Jac_FULL(4910,5258) - JVS(29544) = 0 -! JVS(29545) = Jac_FULL(4911,195) - JVS(29545) = B(11841) -! JVS(29546) = Jac_FULL(4911,1262) - JVS(29546) = 0 -! JVS(29547) = Jac_FULL(4911,1980) - JVS(29547) = 0 -! JVS(29548) = Jac_FULL(4911,2730) - JVS(29548) = B(17608) -! JVS(29549) = Jac_FULL(4911,4880) - JVS(29549) = 0 -! JVS(29550) = Jac_FULL(4911,4911) - JVS(29550) = -B(15034)-B(15036)-B(15038)-B(15040)-B(15041)-B(15042) -! JVS(29551) = Jac_FULL(4911,5238) - JVS(29551) = 0 -! JVS(29552) = Jac_FULL(4911,5250) - JVS(29552) = B(17609) -! JVS(29553) = Jac_FULL(4911,5252) - JVS(29553) = -B(15037) -! JVS(29554) = Jac_FULL(4911,5255) - JVS(29554) = -B(15035) -! JVS(29555) = Jac_FULL(4911,5256) - JVS(29555) = -B(15039) -! JVS(29556) = Jac_FULL(4912,604) - JVS(29556) = B(3426) -! JVS(29557) = Jac_FULL(4912,4492) - JVS(29557) = 0 -! JVS(29558) = Jac_FULL(4912,4912) - JVS(29558) = -B(7272)-B(7274)-B(7276)-B(7278)-B(7280)-B(7281) -! JVS(29559) = Jac_FULL(4912,5250) - JVS(29559) = 0 -! JVS(29560) = Jac_FULL(4912,5251) - JVS(29560) = -B(7273) -! JVS(29561) = Jac_FULL(4912,5252) - JVS(29561) = -B(7275) -! JVS(29562) = Jac_FULL(4912,5253) - JVS(29562) = -B(7277) -! JVS(29563) = Jac_FULL(4912,5254) - JVS(29563) = -B(7279) -! JVS(29564) = Jac_FULL(4912,5256) - JVS(29564) = 0 -! JVS(29565) = Jac_FULL(4912,5258) - JVS(29565) = 0 -! JVS(29566) = Jac_FULL(4913,514) - JVS(29566) = B(6852) -! JVS(29567) = Jac_FULL(4913,2425) - JVS(29567) = B(6890) -! JVS(29568) = Jac_FULL(4913,3570) - JVS(29568) = B(10081) -! JVS(29569) = Jac_FULL(4913,3605) - JVS(29569) = B(9201) -! JVS(29570) = Jac_FULL(4913,4630) - JVS(29570) = B(5994) -! JVS(29571) = Jac_FULL(4913,4699) - JVS(29571) = 0 -! JVS(29572) = Jac_FULL(4913,4727) - JVS(29572) = 0 -! JVS(29573) = Jac_FULL(4913,4794) - JVS(29573) = 0 -! JVS(29574) = Jac_FULL(4913,4907) - JVS(29574) = 0 -! JVS(29575) = Jac_FULL(4913,4913) - JVS(29575) = -B(9681)-B(9683)-B(9685)-B(9687) -! JVS(29576) = Jac_FULL(4913,4971) - JVS(29576) = 0 -! JVS(29577) = Jac_FULL(4913,5166) - JVS(29577) = 0 -! JVS(29578) = Jac_FULL(4913,5250) - JVS(29578) = 0 -! JVS(29579) = Jac_FULL(4913,5252) - JVS(29579) = -B(9684) -! JVS(29580) = Jac_FULL(4913,5255) - JVS(29580) = -B(9682) -! JVS(29581) = Jac_FULL(4913,5256) - JVS(29581) = -B(9686) -! JVS(29582) = Jac_FULL(4913,5258) - JVS(29582) = 0 -! JVS(29583) = Jac_FULL(4914,599) - JVS(29583) = B(11092) -! JVS(29584) = Jac_FULL(4914,2002) - JVS(29584) = B(11085) -! JVS(29585) = Jac_FULL(4914,2313) - JVS(29585) = B(11088) -! JVS(29586) = Jac_FULL(4914,2951) - JVS(29586) = B(14241) -! JVS(29587) = Jac_FULL(4914,4914) - JVS(29587) = -B(11095)-B(11097)-B(11099) -! JVS(29588) = Jac_FULL(4914,5029) - JVS(29588) = 0 -! JVS(29589) = Jac_FULL(4914,5198) - JVS(29589) = B(7292) -! JVS(29590) = Jac_FULL(4914,5250) - JVS(29590) = B(11086)+B(11089)+B(11093)-B(11098)+B(14242) -! JVS(29591) = Jac_FULL(4914,5252) - JVS(29591) = 0 -! JVS(29592) = Jac_FULL(4914,5253) - JVS(29592) = 0 -! JVS(29593) = Jac_FULL(4914,5255) - JVS(29593) = 0 -! JVS(29594) = Jac_FULL(4914,5256) - JVS(29594) = -B(11096) -! JVS(29595) = Jac_FULL(4915,1048) - JVS(29595) = B(11589) -! JVS(29596) = Jac_FULL(4915,3056) - JVS(29596) = B(11594) -! JVS(29597) = Jac_FULL(4915,3513) - JVS(29597) = B(19607) -! JVS(29598) = Jac_FULL(4915,3995) - JVS(29598) = B(4171)+B(4173) -! JVS(29599) = Jac_FULL(4915,4911) - JVS(29599) = 0 -! JVS(29600) = Jac_FULL(4915,4915) - JVS(29600) = -B(7819)-B(7821)-B(7823)-B(7825)-B(7827)-B(7829)-B(7831)-B(7832) -! JVS(29601) = Jac_FULL(4915,5203) - JVS(29601) = 0 -! JVS(29602) = Jac_FULL(4915,5238) - JVS(29602) = 0 -! JVS(29603) = Jac_FULL(4915,5250) - JVS(29603) = B(4174)+B(11590) -! JVS(29604) = Jac_FULL(4915,5252) - JVS(29604) = -B(7826) -! JVS(29605) = Jac_FULL(4915,5253) - JVS(29605) = -B(7828) -! JVS(29606) = Jac_FULL(4915,5255) - JVS(29606) = -B(7820)-B(7822)-B(7824) -! JVS(29607) = Jac_FULL(4915,5256) - JVS(29607) = B(4172)-B(7830) -! JVS(29608) = Jac_FULL(4916,2175) - JVS(29608) = B(8912)+B(8914) -! JVS(29609) = Jac_FULL(4916,2448) - JVS(29609) = B(8735)+B(8737) -! JVS(29610) = Jac_FULL(4916,2924) - JVS(29610) = B(12366) -! JVS(29611) = Jac_FULL(4916,3022) - JVS(29611) = 0 -! JVS(29612) = Jac_FULL(4916,3121) - JVS(29612) = B(5212)+B(5214) -! JVS(29613) = Jac_FULL(4916,3325) - JVS(29613) = B(12358) -! JVS(29614) = Jac_FULL(4916,3435) - JVS(29614) = 0 -! JVS(29615) = Jac_FULL(4916,3445) - JVS(29615) = 0 -! JVS(29616) = Jac_FULL(4916,4028) - JVS(29616) = 0 -! JVS(29617) = Jac_FULL(4916,4074) - JVS(29617) = 0 -! JVS(29618) = Jac_FULL(4916,4399) - JVS(29618) = 0 -! JVS(29619) = Jac_FULL(4916,4513) - JVS(29619) = 0 -! JVS(29620) = Jac_FULL(4916,4649) - JVS(29620) = 0 -! JVS(29621) = Jac_FULL(4916,4916) - JVS(29621) = -B(8670)-B(8672)-B(8674)-B(8676)-B(8678)-B(8680)-B(8682)-B(8683) -! JVS(29622) = Jac_FULL(4916,5058) - JVS(29622) = B(5258)+B(5262)+B(5267) -! JVS(29623) = Jac_FULL(4916,5250) - JVS(29623) = B(5213)+B(5263)+B(8736)+B(8913)+B(12359) -! JVS(29624) = Jac_FULL(4916,5252) - JVS(29624) = -B(8677) -! JVS(29625) = Jac_FULL(4916,5253) - JVS(29625) = -B(8679) -! JVS(29626) = Jac_FULL(4916,5255) - JVS(29626) = -B(8671)-B(8673)-B(8675) -! JVS(29627) = Jac_FULL(4916,5256) - JVS(29627) = B(5259)-B(8681) -! JVS(29628) = Jac_FULL(4916,5258) - JVS(29628) = 0 -! JVS(29629) = Jac_FULL(4917,2645) - JVS(29629) = B(9491) -! JVS(29630) = Jac_FULL(4917,2689) - JVS(29630) = B(12943) -! JVS(29631) = Jac_FULL(4917,3174) - JVS(29631) = B(5803)+B(5805) -! JVS(29632) = Jac_FULL(4917,3225) - JVS(29632) = B(12937) -! JVS(29633) = Jac_FULL(4917,3804) - JVS(29633) = 0 -! JVS(29634) = Jac_FULL(4917,4683) - JVS(29634) = 0 -! JVS(29635) = Jac_FULL(4917,4829) - JVS(29635) = 0 -! JVS(29636) = Jac_FULL(4917,4917) - JVS(29636) = -B(9434)-B(9436)-B(9438)-B(9440)-B(9442)-B(9444)-B(9446)-B(9447) -! JVS(29637) = Jac_FULL(4917,5066) - JVS(29637) = B(9416)+B(9422)+B(9426) -! JVS(29638) = Jac_FULL(4917,5250) - JVS(29638) = B(5804)+B(9423)+B(12938) -! JVS(29639) = Jac_FULL(4917,5252) - JVS(29639) = -B(9441) -! JVS(29640) = Jac_FULL(4917,5253) - JVS(29640) = -B(9443) -! JVS(29641) = Jac_FULL(4917,5255) - JVS(29641) = -B(9435)-B(9437)-B(9439) -! JVS(29642) = Jac_FULL(4917,5256) - JVS(29642) = B(9417)-B(9445) -! JVS(29643) = Jac_FULL(4917,5258) - JVS(29643) = 0 -! JVS(29644) = Jac_FULL(4918,2025) - JVS(29644) = B(16005) -! JVS(29645) = Jac_FULL(4918,2474) - JVS(29645) = B(12950) -! JVS(29646) = Jac_FULL(4918,2492) - JVS(29646) = B(15987) -! JVS(29647) = Jac_FULL(4918,2560) - JVS(29647) = B(14168) -! JVS(29648) = Jac_FULL(4918,2581) - JVS(29648) = B(16030) -! JVS(29649) = Jac_FULL(4918,2689) - JVS(29649) = B(12941) -! JVS(29650) = Jac_FULL(4918,3012) - JVS(29650) = B(18421) -! JVS(29651) = Jac_FULL(4918,3225) - JVS(29651) = B(12940) -! JVS(29652) = Jac_FULL(4918,3467) - JVS(29652) = B(18420) -! JVS(29653) = Jac_FULL(4918,3800) - JVS(29653) = B(12871) -! JVS(29654) = Jac_FULL(4918,3805) - JVS(29654) = B(5794)+B(5796) -! JVS(29655) = Jac_FULL(4918,3973) - JVS(29655) = 0 -! JVS(29656) = Jac_FULL(4918,4029) - JVS(29656) = B(12936) -! JVS(29657) = Jac_FULL(4918,4165) - JVS(29657) = 0 -! JVS(29658) = Jac_FULL(4918,4388) - JVS(29658) = B(9474) -! JVS(29659) = Jac_FULL(4918,4619) - JVS(29659) = 0 -! JVS(29660) = Jac_FULL(4918,4627) - JVS(29660) = 0 -! JVS(29661) = Jac_FULL(4918,4683) - JVS(29661) = 0 -! JVS(29662) = Jac_FULL(4918,4689) - JVS(29662) = B(12925) -! JVS(29663) = Jac_FULL(4918,4717) - JVS(29663) = 0 -! JVS(29664) = Jac_FULL(4918,4792) - JVS(29664) = B(16018)+B(16020)+B(16024)+B(16026) -! JVS(29665) = Jac_FULL(4918,4829) - JVS(29665) = 0 -! JVS(29666) = Jac_FULL(4918,4917) - JVS(29666) = 0 -! JVS(29667) = Jac_FULL(4918,4918) - JVS(29667) = -B(9411)-B(9413)-B(9415) -! JVS(29668) = Jac_FULL(4918,4997) - JVS(29668) = B(9457)+B(9459)+B(9461)+B(9463)+B(9465) -! JVS(29669) = Jac_FULL(4918,5066) - JVS(29669) = B(9420) -! JVS(29670) = Jac_FULL(4918,5186) - JVS(29670) = 0 -! JVS(29671) = Jac_FULL(4918,5250) - JVS(29671) = -B(9414)+B(12942)+B(14169)+B(16006)+B(18422) -! JVS(29672) = Jac_FULL(4918,5251) - JVS(29672) = B(9458) -! JVS(29673) = Jac_FULL(4918,5252) - JVS(29673) = B(9460)+B(16021) -! JVS(29674) = Jac_FULL(4918,5253) - JVS(29674) = B(9462) -! JVS(29675) = Jac_FULL(4918,5254) - JVS(29675) = B(9464) -! JVS(29676) = Jac_FULL(4918,5255) - JVS(29676) = B(16019) -! JVS(29677) = Jac_FULL(4918,5256) - JVS(29677) = -B(9412)+B(16025) -! JVS(29678) = Jac_FULL(4918,5258) - JVS(29678) = B(9421) -! JVS(29679) = Jac_FULL(4919,3147) - JVS(29679) = B(2999) -! JVS(29680) = Jac_FULL(4919,4395) - JVS(29680) = 0 -! JVS(29681) = Jac_FULL(4919,4919) - JVS(29681) = -B(6584)-B(6586)-B(6588)-B(6590)-B(6592)-B(6593) -! JVS(29682) = Jac_FULL(4919,5250) - JVS(29682) = 0 -! JVS(29683) = Jac_FULL(4919,5251) - JVS(29683) = -B(6585) -! JVS(29684) = Jac_FULL(4919,5252) - JVS(29684) = -B(6587) -! JVS(29685) = Jac_FULL(4919,5253) - JVS(29685) = -B(6589) -! JVS(29686) = Jac_FULL(4919,5254) - JVS(29686) = -B(6591) -! JVS(29687) = Jac_FULL(4919,5256) - JVS(29687) = 0 -! JVS(29688) = Jac_FULL(4919,5258) - JVS(29688) = 0 -! JVS(29689) = Jac_FULL(4920,255) - JVS(29689) = B(21519) -! JVS(29690) = Jac_FULL(4920,901) - JVS(29690) = B(21523) -! JVS(29691) = Jac_FULL(4920,2923) - JVS(29691) = B(16430) -! JVS(29692) = Jac_FULL(4920,3896) - JVS(29692) = B(18687) -! JVS(29693) = Jac_FULL(4920,4793) - JVS(29693) = B(10153) -! JVS(29694) = Jac_FULL(4920,4920) - JVS(29694) = -B(13402)-B(13404)-B(13406)-B(13408)-B(13409)-B(13410) -! JVS(29695) = Jac_FULL(4920,4977) - JVS(29695) = B(20283)+B(20285)+B(20289)+B(20292) -! JVS(29696) = Jac_FULL(4920,5141) - JVS(29696) = 0 -! JVS(29697) = Jac_FULL(4920,5250) - JVS(29697) = B(16431)+B(21520) -! JVS(29698) = Jac_FULL(4920,5252) - JVS(29698) = -B(13405)+B(20286) -! JVS(29699) = Jac_FULL(4920,5255) - JVS(29699) = -B(13403)+B(20284) -! JVS(29700) = Jac_FULL(4920,5256) - JVS(29700) = -B(13407)+B(20290) -! JVS(29701) = Jac_FULL(4920,5258) - JVS(29701) = B(10154) -! JVS(29702) = Jac_FULL(4921,1182) - JVS(29702) = B(17196) -! JVS(29703) = Jac_FULL(4921,1738) - JVS(29703) = B(17399) -! JVS(29704) = Jac_FULL(4921,2266) - JVS(29704) = 0 -! JVS(29705) = Jac_FULL(4921,2288) - JVS(29705) = 0 -! JVS(29706) = Jac_FULL(4921,2860) - JVS(29706) = B(17201) -! JVS(29707) = Jac_FULL(4921,3844) - JVS(29707) = 0 -! JVS(29708) = Jac_FULL(4921,3920) - JVS(29708) = 0 -! JVS(29709) = Jac_FULL(4921,3966) - JVS(29709) = 0 -! JVS(29710) = Jac_FULL(4921,4921) - JVS(29710) = -B(14571)-B(14573)-B(14575)-B(14577)-B(14579)-B(14581)-B(14583)-B(14584) -! JVS(29711) = Jac_FULL(4921,5248) - JVS(29711) = B(11285)+B(11293) -! JVS(29712) = Jac_FULL(4921,5249) - JVS(29712) = 0 -! JVS(29713) = Jac_FULL(4921,5250) - JVS(29713) = B(11294)+B(17197)+B(17400) -! JVS(29714) = Jac_FULL(4921,5252) - JVS(29714) = -B(14578) -! JVS(29715) = Jac_FULL(4921,5253) - JVS(29715) = -B(14580) -! JVS(29716) = Jac_FULL(4921,5255) - JVS(29716) = -B(14572)-B(14574)-B(14576) -! JVS(29717) = Jac_FULL(4921,5256) - JVS(29717) = B(11286)-B(14582) -! JVS(29718) = Jac_FULL(4922,3654) - JVS(29718) = B(4342) -! JVS(29719) = Jac_FULL(4922,4840) - JVS(29719) = B(246) -! JVS(29720) = Jac_FULL(4922,4922) - JVS(29720) = -B(1564)-B(1566)-B(1568)-B(1570)-B(1571)-B(1572) -! JVS(29721) = Jac_FULL(4922,5250) - JVS(29721) = B(4343) -! JVS(29722) = Jac_FULL(4922,5252) - JVS(29722) = -B(1567) -! JVS(29723) = Jac_FULL(4922,5255) - JVS(29723) = -B(1565) -! JVS(29724) = Jac_FULL(4922,5256) - JVS(29724) = B(247)-B(1569) -! JVS(29725) = Jac_FULL(4922,5258) - JVS(29725) = 0 -! JVS(29726) = Jac_FULL(4923,3660) - JVS(29726) = B(4325)+B(4327) -! JVS(29727) = Jac_FULL(4923,4156) - JVS(29727) = B(4331)+B(4333)+B(4335) -! JVS(29728) = Jac_FULL(4923,4840) - JVS(29728) = B(244) -! JVS(29729) = Jac_FULL(4923,4922) - JVS(29729) = 0 -! JVS(29730) = Jac_FULL(4923,4923) - JVS(29730) = -B(1555)-B(1557)-B(1559)-B(1561)-B(1562)-B(1563) -! JVS(29731) = Jac_FULL(4923,5250) - JVS(29731) = B(4328)+B(4334) -! JVS(29732) = Jac_FULL(4923,5252) - JVS(29732) = -B(1558) -! JVS(29733) = Jac_FULL(4923,5255) - JVS(29733) = -B(1556) -! JVS(29734) = Jac_FULL(4923,5256) - JVS(29734) = B(245)-B(1560)+B(4326)+B(4332) -! JVS(29735) = Jac_FULL(4923,5258) - JVS(29735) = 0 -! JVS(29736) = Jac_FULL(4924,6) - JVS(29736) = B(15414) -! JVS(29737) = Jac_FULL(4924,1705) - JVS(29737) = B(14147) -! JVS(29738) = Jac_FULL(4924,1916) - JVS(29738) = 0 -! JVS(29739) = Jac_FULL(4924,2219) - JVS(29739) = B(7754) -! JVS(29740) = Jac_FULL(4924,2945) - JVS(29740) = B(7759) -! JVS(29741) = Jac_FULL(4924,3171) - JVS(29741) = B(4376)+B(4378) -! JVS(29742) = Jac_FULL(4924,4353) - JVS(29742) = 0 -! JVS(29743) = Jac_FULL(4924,4724) - JVS(29743) = 0 -! JVS(29744) = Jac_FULL(4924,4827) - JVS(29744) = 0 -! JVS(29745) = Jac_FULL(4924,4840) - JVS(29745) = 0 -! JVS(29746) = Jac_FULL(4924,4923) - JVS(29746) = 0 -! JVS(29747) = Jac_FULL(4924,4924) - JVS(29747) = -B(3996)-B(3998)-B(4000)-B(4002)-B(4004)-B(4006) -! JVS(29748) = Jac_FULL(4924,5051) - JVS(29748) = 0 -! JVS(29749) = Jac_FULL(4924,5087) - JVS(29749) = B(1225)+B(1227) -! JVS(29750) = Jac_FULL(4924,5186) - JVS(29750) = 0 -! JVS(29751) = Jac_FULL(4924,5250) - JVS(29751) = B(1228)+B(4377)+B(7755) -! JVS(29752) = Jac_FULL(4924,5252) - JVS(29752) = -B(4001) -! JVS(29753) = Jac_FULL(4924,5253) - JVS(29753) = -B(4003) -! JVS(29754) = Jac_FULL(4924,5255) - JVS(29754) = -B(3997)-B(3999) -! JVS(29755) = Jac_FULL(4924,5256) - JVS(29755) = B(1226)-B(4005) -! JVS(29756) = Jac_FULL(4924,5258) - JVS(29756) = 0 -! JVS(29757) = Jac_FULL(4925,2174) - JVS(29757) = B(7243) -! JVS(29758) = Jac_FULL(4925,4492) - JVS(29758) = B(866) -! JVS(29759) = Jac_FULL(4925,4925) - JVS(29759) = -B(3415)-B(3417)-B(3419)-B(3421)-B(3422)-B(3423) -! JVS(29760) = Jac_FULL(4925,5250) - JVS(29760) = B(7244) -! JVS(29761) = Jac_FULL(4925,5252) - JVS(29761) = -B(3418) -! JVS(29762) = Jac_FULL(4925,5255) - JVS(29762) = -B(3416) -! JVS(29763) = Jac_FULL(4925,5256) - JVS(29763) = B(867)-B(3420) -! JVS(29764) = Jac_FULL(4925,5258) - JVS(29764) = 0 -! JVS(29765) = Jac_FULL(4926,1893) - JVS(29765) = B(19030) -! JVS(29766) = Jac_FULL(4926,2868) - JVS(29766) = 0 -! JVS(29767) = Jac_FULL(4926,3408) - JVS(29767) = B(19035) -! JVS(29768) = Jac_FULL(4926,4926) - JVS(29768) = -B(16814)-B(16816)-B(16818)-B(16820)-B(16822)-B(16824)-B(16826)-B(16827) -! JVS(29769) = Jac_FULL(4926,4957) - JVS(29769) = 0 -! JVS(29770) = Jac_FULL(4926,4996) - JVS(29770) = B(14202)+B(14204) -! JVS(29771) = Jac_FULL(4926,5250) - JVS(29771) = B(14205)+B(19031) -! JVS(29772) = Jac_FULL(4926,5252) - JVS(29772) = -B(16821) -! JVS(29773) = Jac_FULL(4926,5253) - JVS(29773) = -B(16823) -! JVS(29774) = Jac_FULL(4926,5255) - JVS(29774) = -B(16815)-B(16817)-B(16819) -! JVS(29775) = Jac_FULL(4926,5256) - JVS(29775) = B(14203)-B(16825) -! JVS(29776) = Jac_FULL(4927,3754) - JVS(29776) = B(5598) -! JVS(29777) = Jac_FULL(4927,4004) - JVS(29777) = B(5501) -! JVS(29778) = Jac_FULL(4927,4529) - JVS(29778) = 0 -! JVS(29779) = Jac_FULL(4927,4927) - JVS(29779) = -B(9057)-B(9059)-B(9061) -! JVS(29780) = Jac_FULL(4927,5030) - JVS(29780) = B(6032) -! JVS(29781) = Jac_FULL(4927,5209) - JVS(29781) = B(8821) -! JVS(29782) = Jac_FULL(4927,5250) - JVS(29782) = -B(9062) -! JVS(29783) = Jac_FULL(4927,5252) - JVS(29783) = 0 -! JVS(29784) = Jac_FULL(4927,5255) - JVS(29784) = 0 -! JVS(29785) = Jac_FULL(4927,5256) - JVS(29785) = -B(9058) -! JVS(29786) = Jac_FULL(4927,5258) - JVS(29786) = -B(9060) -! JVS(29787) = Jac_FULL(4928,4093) - JVS(29787) = B(2674) -! JVS(29788) = Jac_FULL(4928,4928) - JVS(29788) = -B(5912)-B(5914)-B(5916)-B(5918)-B(5920)-B(5921)-B(5922) -! JVS(29789) = Jac_FULL(4928,5250) - JVS(29789) = B(2675) -! JVS(29790) = Jac_FULL(4928,5252) - JVS(29790) = -B(5915)-B(5917) -! JVS(29791) = Jac_FULL(4928,5255) - JVS(29791) = -B(5913) -! JVS(29792) = Jac_FULL(4928,5256) - JVS(29792) = -B(5919) -! JVS(29793) = Jac_FULL(4928,5258) - JVS(29793) = 0 -! JVS(29794) = Jac_FULL(4929,56) - JVS(29794) = B(18143) -! JVS(29795) = Jac_FULL(4929,771) - JVS(29795) = B(12484) -! JVS(29796) = Jac_FULL(4929,1248) - JVS(29796) = B(21319) -! JVS(29797) = Jac_FULL(4929,1728) - JVS(29797) = B(13959) -! JVS(29798) = Jac_FULL(4929,2107) - JVS(29798) = B(18139) -! JVS(29799) = Jac_FULL(4929,2672) - JVS(29799) = 0 -! JVS(29800) = Jac_FULL(4929,2753) - JVS(29800) = 0 -! JVS(29801) = Jac_FULL(4929,4127) - JVS(29801) = 0 -! JVS(29802) = Jac_FULL(4929,4472) - JVS(29802) = B(19930)+B(19932)+B(19936)+B(19938) -! JVS(29803) = Jac_FULL(4929,4616) - JVS(29803) = 0 -! JVS(29804) = Jac_FULL(4929,4621) - JVS(29804) = 0 -! JVS(29805) = Jac_FULL(4929,4929) - JVS(29805) = -B(15581)-B(15583)-B(15585)-B(15587) -! JVS(29806) = Jac_FULL(4929,4952) - JVS(29806) = 0 -! JVS(29807) = Jac_FULL(4929,5018) - JVS(29807) = B(18138) -! JVS(29808) = Jac_FULL(4929,5250) - JVS(29808) = B(13960)+B(18140)+B(18144) -! JVS(29809) = Jac_FULL(4929,5251) - JVS(29809) = 0 -! JVS(29810) = Jac_FULL(4929,5252) - JVS(29810) = -B(15584)+B(19933) -! JVS(29811) = Jac_FULL(4929,5253) - JVS(29811) = 0 -! JVS(29812) = Jac_FULL(4929,5254) - JVS(29812) = 0 -! JVS(29813) = Jac_FULL(4929,5255) - JVS(29813) = -B(15582)+B(19931) -! JVS(29814) = Jac_FULL(4929,5256) - JVS(29814) = -B(15586)+B(19937) -! JVS(29815) = Jac_FULL(4929,5258) - JVS(29815) = 0 -! JVS(29816) = Jac_FULL(4930,2808) - JVS(29816) = B(13037) -! JVS(29817) = Jac_FULL(4930,2875) - JVS(29817) = B(9602) -! JVS(29818) = Jac_FULL(4930,3122) - JVS(29818) = B(5891)+B(5893) -! JVS(29819) = Jac_FULL(4930,3226) - JVS(29819) = B(13031) -! JVS(29820) = Jac_FULL(4930,3794) - JVS(29820) = 0 -! JVS(29821) = Jac_FULL(4930,4675) - JVS(29821) = 0 -! JVS(29822) = Jac_FULL(4930,4930) - JVS(29822) = -B(9545)-B(9547)-B(9549)-B(9551)-B(9553)-B(9555)-B(9557)-B(9558) -! JVS(29823) = Jac_FULL(4930,5068) - JVS(29823) = B(9526)+B(9532)+B(9536) -! JVS(29824) = Jac_FULL(4930,5250) - JVS(29824) = B(5892)+B(9533)+B(13032) -! JVS(29825) = Jac_FULL(4930,5252) - JVS(29825) = -B(9552) -! JVS(29826) = Jac_FULL(4930,5253) - JVS(29826) = -B(9554) -! JVS(29827) = Jac_FULL(4930,5255) - JVS(29827) = -B(9546)-B(9548)-B(9550) -! JVS(29828) = Jac_FULL(4930,5256) - JVS(29828) = B(9527)-B(9556) -! JVS(29829) = Jac_FULL(4930,5258) - JVS(29829) = 0 -! JVS(29830) = Jac_FULL(4931,1949) - JVS(29830) = B(16107) -! JVS(29831) = Jac_FULL(4931,2472) - JVS(29831) = B(13044) -! JVS(29832) = Jac_FULL(4931,2808) - JVS(29832) = B(13035) -! JVS(29833) = Jac_FULL(4931,2949) - JVS(29833) = B(16089) -! JVS(29834) = Jac_FULL(4931,2969) - JVS(29834) = B(18488) -! JVS(29835) = Jac_FULL(4931,3028) - JVS(29835) = B(16132) -! JVS(29836) = Jac_FULL(4931,3226) - JVS(29836) = B(13034) -! JVS(29837) = Jac_FULL(4931,3463) - JVS(29837) = B(18487) -! JVS(29838) = Jac_FULL(4931,3716) - JVS(29838) = B(3852) -! JVS(29839) = Jac_FULL(4931,3795) - JVS(29839) = B(5882)+B(5885) -! JVS(29840) = Jac_FULL(4931,3816) - JVS(29840) = B(12976) -! JVS(29841) = Jac_FULL(4931,3953) - JVS(29841) = 0 -! JVS(29842) = Jac_FULL(4931,4086) - JVS(29842) = B(13029) -! JVS(29843) = Jac_FULL(4931,4141) - JVS(29843) = 0 -! JVS(29844) = Jac_FULL(4931,4393) - JVS(29844) = B(9585) -! JVS(29845) = Jac_FULL(4931,4562) - JVS(29845) = 0 -! JVS(29846) = Jac_FULL(4931,4675) - JVS(29846) = 0 -! JVS(29847) = Jac_FULL(4931,4688) - JVS(29847) = B(13018) -! JVS(29848) = Jac_FULL(4931,4743) - JVS(29848) = 0 -! JVS(29849) = Jac_FULL(4931,4864) - JVS(29849) = B(16120)+B(16122)+B(16126)+B(16128) -! JVS(29850) = Jac_FULL(4931,4881) - JVS(29850) = 0 -! JVS(29851) = Jac_FULL(4931,4928) - JVS(29851) = 0 -! JVS(29852) = Jac_FULL(4931,4930) - JVS(29852) = 0 -! JVS(29853) = Jac_FULL(4931,4931) - JVS(29853) = -B(7662)-B(7664)-B(7666) -! JVS(29854) = Jac_FULL(4931,4998) - JVS(29854) = B(9568)+B(9570)+B(9572)+B(9574)+B(9577) -! JVS(29855) = Jac_FULL(4931,5043) - JVS(29855) = 0 -! JVS(29856) = Jac_FULL(4931,5068) - JVS(29856) = B(9530) -! JVS(29857) = Jac_FULL(4931,5250) - JVS(29857) = B(3853)-B(7665)+B(13036)+B(16108)+B(18489) -! JVS(29858) = Jac_FULL(4931,5251) - JVS(29858) = B(9569) -! JVS(29859) = Jac_FULL(4931,5252) - JVS(29859) = B(9571)+B(16123) -! JVS(29860) = Jac_FULL(4931,5253) - JVS(29860) = B(9573) -! JVS(29861) = Jac_FULL(4931,5254) - JVS(29861) = B(9575) -! JVS(29862) = Jac_FULL(4931,5255) - JVS(29862) = B(16121) -! JVS(29863) = Jac_FULL(4931,5256) - JVS(29863) = -B(7663)+B(16127) -! JVS(29864) = Jac_FULL(4931,5258) - JVS(29864) = B(9531) -! JVS(29865) = Jac_FULL(4932,2627) - JVS(29865) = B(4246) -! JVS(29866) = Jac_FULL(4932,4932) - JVS(29866) = -B(1469)-B(1471)-B(1473)-B(1475)-B(1477)-B(1479)-B(1480)-B(1481) -! JVS(29867) = Jac_FULL(4932,5194) - JVS(29867) = B(219) -! JVS(29868) = Jac_FULL(4932,5250) - JVS(29868) = B(220)+B(4247) -! JVS(29869) = Jac_FULL(4932,5252) - JVS(29869) = -B(1474)-B(1476) -! JVS(29870) = Jac_FULL(4932,5255) - JVS(29870) = -B(1470)-B(1472) -! JVS(29871) = Jac_FULL(4932,5256) - JVS(29871) = -B(1478) -! JVS(29872) = Jac_FULL(4933,3460) - JVS(29872) = B(10295) -! JVS(29873) = Jac_FULL(4933,3600) - JVS(29873) = B(10292) -! JVS(29874) = Jac_FULL(4933,4017) - JVS(29874) = B(2981)+B(2988) -! JVS(29875) = Jac_FULL(4933,4335) - JVS(29875) = 0 -! JVS(29876) = Jac_FULL(4933,4933) - JVS(29876) = -B(6556)-B(6558)-B(6560)-B(6561) -! JVS(29877) = Jac_FULL(4933,5250) - JVS(29877) = -B(6559) -! JVS(29878) = Jac_FULL(4933,5252) - JVS(29878) = 0 -! JVS(29879) = Jac_FULL(4933,5255) - JVS(29879) = 0 -! JVS(29880) = Jac_FULL(4933,5256) - JVS(29880) = -B(6557) -! JVS(29881) = Jac_FULL(4933,5258) - JVS(29881) = B(2982) -! JVS(29882) = Jac_FULL(4934,1090) - JVS(29882) = B(17599) -! JVS(29883) = Jac_FULL(4934,2846) - JVS(29883) = B(17601) -! JVS(29884) = Jac_FULL(4934,4934) - JVS(29884) = -B(15020)-B(15022)-B(15024)-B(15026)-B(15028)-B(15030)-B(15032)-B(15033) -! JVS(29885) = Jac_FULL(4934,4975) - JVS(29885) = B(11821)+B(11825) -! JVS(29886) = Jac_FULL(4934,5250) - JVS(29886) = B(11826)+B(17600) -! JVS(29887) = Jac_FULL(4934,5252) - JVS(29887) = -B(15027) -! JVS(29888) = Jac_FULL(4934,5253) - JVS(29888) = -B(15029) -! JVS(29889) = Jac_FULL(4934,5255) - JVS(29889) = -B(15021)-B(15023)-B(15025) -! JVS(29890) = Jac_FULL(4934,5256) - JVS(29890) = B(11822)-B(15031) -! JVS(29891) = Jac_FULL(4935,1465) - JVS(29891) = B(9849) -! JVS(29892) = Jac_FULL(4935,1513) - JVS(29892) = B(9844)+B(9846) -! JVS(29893) = Jac_FULL(4935,3996) - JVS(29893) = B(2799) -! JVS(29894) = Jac_FULL(4935,4807) - JVS(29894) = B(6141)+B(6147)+B(6151)+B(6153) -! JVS(29895) = Jac_FULL(4935,4935) - JVS(29895) = -B(6173)-B(6175)-B(6177)-B(6179)-B(6180)-B(6181) -! JVS(29896) = Jac_FULL(4935,5250) - JVS(29896) = B(9845) -! JVS(29897) = Jac_FULL(4935,5252) - JVS(29897) = B(6148)-B(6176) -! JVS(29898) = Jac_FULL(4935,5253) - JVS(29898) = 0 -! JVS(29899) = Jac_FULL(4935,5255) - JVS(29899) = B(6142)-B(6174) -! JVS(29900) = Jac_FULL(4935,5256) - JVS(29900) = B(6152)-B(6178) -! JVS(29901) = Jac_FULL(4935,5258) - JVS(29901) = 0 -! JVS(29902) = Jac_FULL(4936,1467) - JVS(29902) = B(20378) -! JVS(29903) = Jac_FULL(4936,2823) - JVS(29903) = B(20382) -! JVS(29904) = Jac_FULL(4936,3454) - JVS(29904) = B(16600) -! JVS(29905) = Jac_FULL(4936,4113) - JVS(29905) = 0 -! JVS(29906) = Jac_FULL(4936,4539) - JVS(29906) = B(18791)+B(18793)+B(18797)+B(18799) -! JVS(29907) = Jac_FULL(4936,4936) - JVS(29907) = -B(1519)-B(1521)-B(1523)-B(1525)-B(1527)-B(1528)-B(1529) -! JVS(29908) = Jac_FULL(4936,5118) - JVS(29908) = 0 -! JVS(29909) = Jac_FULL(4936,5204) - JVS(29909) = 0 -! JVS(29910) = Jac_FULL(4936,5226) - JVS(29910) = B(238) -! JVS(29911) = Jac_FULL(4936,5250) - JVS(29911) = B(239)+B(20383) -! JVS(29912) = Jac_FULL(4936,5252) - JVS(29912) = -B(1522)-B(1524)+B(18794) -! JVS(29913) = Jac_FULL(4936,5253) - JVS(29913) = 0 -! JVS(29914) = Jac_FULL(4936,5255) - JVS(29914) = -B(1520)+B(18792) -! JVS(29915) = Jac_FULL(4936,5256) - JVS(29915) = -B(1526)+B(18798) -! JVS(29916) = Jac_FULL(4937,956) - JVS(29916) = B(5975) -! JVS(29917) = Jac_FULL(4937,2241) - JVS(29917) = B(5978) -! JVS(29918) = Jac_FULL(4937,3803) - JVS(29918) = B(2705)+B(2707)+B(2710) -! JVS(29919) = Jac_FULL(4937,4937) - JVS(29919) = -B(5979)-B(5980)-B(5981)-B(5982)-B(5983)-B(5984) -! JVS(29920) = Jac_FULL(4937,5250) - JVS(29920) = 0 -! JVS(29921) = Jac_FULL(4937,5252) - JVS(29921) = B(2706) -! JVS(29922) = Jac_FULL(4937,5255) - JVS(29922) = 0 -! JVS(29923) = Jac_FULL(4937,5256) - JVS(29923) = B(2708) -! JVS(29924) = Jac_FULL(4938,1637) - JVS(29924) = B(17706) -! JVS(29925) = Jac_FULL(4938,1677) - JVS(29925) = B(17705) -! JVS(29926) = Jac_FULL(4938,1710) - JVS(29926) = B(16194) -! JVS(29927) = Jac_FULL(4938,2024) - JVS(29927) = B(22171) -! JVS(29928) = Jac_FULL(4938,2159) - JVS(29928) = B(22798) -! JVS(29929) = Jac_FULL(4938,2279) - JVS(29929) = B(22771) -! JVS(29930) = Jac_FULL(4938,2426) - JVS(29930) = B(17702) -! JVS(29931) = Jac_FULL(4938,2504) - JVS(29931) = B(15610) -! JVS(29932) = Jac_FULL(4938,2518) - JVS(29932) = B(13150) -! JVS(29933) = Jac_FULL(4938,2556) - JVS(29933) = B(22767) -! JVS(29934) = Jac_FULL(4938,2608) - JVS(29934) = B(22799) -! JVS(29935) = Jac_FULL(4938,2659) - JVS(29935) = B(15626) -! JVS(29936) = Jac_FULL(4938,2715) - JVS(29936) = B(7007) -! JVS(29937) = Jac_FULL(4938,2766) - JVS(29937) = B(16165) -! JVS(29938) = Jac_FULL(4938,2883) - JVS(29938) = B(14083) -! JVS(29939) = Jac_FULL(4938,2919) - JVS(29939) = B(21451) -! JVS(29940) = Jac_FULL(4938,2967) - JVS(29940) = B(16173) -! JVS(29941) = Jac_FULL(4938,3103) - JVS(29941) = B(5987)+B(5989) -! JVS(29942) = Jac_FULL(4938,3221) - JVS(29942) = B(16167) -! JVS(29943) = Jac_FULL(4938,3239) - JVS(29943) = B(14196) -! JVS(29944) = Jac_FULL(4938,3274) - JVS(29944) = 0 -! JVS(29945) = Jac_FULL(4938,3328) - JVS(29945) = B(4887) -! JVS(29946) = Jac_FULL(4938,3450) - JVS(29946) = B(12581) -! JVS(29947) = Jac_FULL(4938,3578) - JVS(29947) = B(16210) -! JVS(29948) = Jac_FULL(4938,3664) - JVS(29948) = B(13062) -! JVS(29949) = Jac_FULL(4938,3767) - JVS(29949) = 0 -! JVS(29950) = Jac_FULL(4938,3803) - JVS(29950) = 0 -! JVS(29951) = Jac_FULL(4938,3832) - JVS(29951) = B(9724)+B(9730) -! JVS(29952) = Jac_FULL(4938,3899) - JVS(29952) = 0 -! JVS(29953) = Jac_FULL(4938,3909) - JVS(29953) = B(12277) -! JVS(29954) = Jac_FULL(4938,3930) - JVS(29954) = B(12577) -! JVS(29955) = Jac_FULL(4938,3931) - JVS(29955) = B(12574) -! JVS(29956) = Jac_FULL(4938,3937) - JVS(29956) = 0 -! JVS(29957) = Jac_FULL(4938,3948) - JVS(29957) = 0 -! JVS(29958) = Jac_FULL(4938,3975) - JVS(29958) = 0 -! JVS(29959) = Jac_FULL(4938,4214) - JVS(29959) = B(22252)+B(22256)+B(22260)+B(22262) -! JVS(29960) = Jac_FULL(4938,4328) - JVS(29960) = B(15608) -! JVS(29961) = Jac_FULL(4938,4331) - JVS(29961) = B(20181) -! JVS(29962) = Jac_FULL(4938,4334) - JVS(29962) = 0 -! JVS(29963) = Jac_FULL(4938,4345) - JVS(29963) = 0 -! JVS(29964) = Jac_FULL(4938,4347) - JVS(29964) = 0 -! JVS(29965) = Jac_FULL(4938,4379) - JVS(29965) = B(16133) -! JVS(29966) = Jac_FULL(4938,4384) - JVS(29966) = 0 -! JVS(29967) = Jac_FULL(4938,4386) - JVS(29967) = B(3707) -! JVS(29968) = Jac_FULL(4938,4387) - JVS(29968) = 0 -! JVS(29969) = Jac_FULL(4938,4481) - JVS(29969) = 0 -! JVS(29970) = Jac_FULL(4938,4639) - JVS(29970) = 0 -! JVS(29971) = Jac_FULL(4938,4643) - JVS(29971) = 0 -! JVS(29972) = Jac_FULL(4938,4655) - JVS(29972) = 0 -! JVS(29973) = Jac_FULL(4938,4670) - JVS(29973) = 0 -! JVS(29974) = Jac_FULL(4938,4674) - JVS(29974) = 0 -! JVS(29975) = Jac_FULL(4938,4723) - JVS(29975) = 0 -! JVS(29976) = Jac_FULL(4938,4726) - JVS(29976) = 0 -! JVS(29977) = Jac_FULL(4938,4741) - JVS(29977) = B(15613)+B(15615)+B(15617)+B(15619)+B(15621) -! JVS(29978) = Jac_FULL(4938,4788) - JVS(29978) = 0 -! JVS(29979) = Jac_FULL(4938,4802) - JVS(29979) = 0 -! JVS(29980) = Jac_FULL(4938,4810) - JVS(29980) = 0 -! JVS(29981) = Jac_FULL(4938,4811) - JVS(29981) = 0 -! JVS(29982) = Jac_FULL(4938,4836) - JVS(29982) = 0 -! JVS(29983) = Jac_FULL(4938,4846) - JVS(29983) = 0 -! JVS(29984) = Jac_FULL(4938,4887) - JVS(29984) = 0 -! JVS(29985) = Jac_FULL(4938,4888) - JVS(29985) = 0 -! JVS(29986) = Jac_FULL(4938,4890) - JVS(29986) = 0 -! JVS(29987) = Jac_FULL(4938,4899) - JVS(29987) = 0 -! JVS(29988) = Jac_FULL(4938,4937) - JVS(29988) = B(5979)+B(5982) -! JVS(29989) = Jac_FULL(4938,4938) - JVS(29989) = -B(7014)-B(7015) -! JVS(29990) = Jac_FULL(4938,4947) - JVS(29990) = 0 -! JVS(29991) = Jac_FULL(4938,4948) - JVS(29991) = 0 -! JVS(29992) = Jac_FULL(4938,4950) - JVS(29992) = B(5404)+B(5406) -! JVS(29993) = Jac_FULL(4938,4968) - JVS(29993) = 0 -! JVS(29994) = Jac_FULL(4938,4971) - JVS(29994) = 0 -! JVS(29995) = Jac_FULL(4938,5007) - JVS(29995) = 0 -! JVS(29996) = Jac_FULL(4938,5008) - JVS(29996) = 0 -! JVS(29997) = Jac_FULL(4938,5030) - JVS(29997) = B(6029)+B(6032) -! JVS(29998) = Jac_FULL(4938,5045) - JVS(29998) = 0 -! JVS(29999) = Jac_FULL(4938,5061) - JVS(29999) = 0 -! JVS(30000) = Jac_FULL(4938,5076) - JVS(30000) = B(8917) -! JVS(30001) = Jac_FULL(4938,5088) - JVS(30001) = 0 -! JVS(30002) = Jac_FULL(4938,5098) - JVS(30002) = B(3224) -! JVS(30003) = Jac_FULL(4938,5117) - JVS(30003) = 0 -! JVS(30004) = Jac_FULL(4938,5119) - JVS(30004) = 0 -! JVS(30005) = Jac_FULL(4938,5238) - JVS(30005) = 0 -! JVS(30006) = Jac_FULL(4938,5250) - JVS(30006) = B(3708)+B(4888)+B(5988)+B(7008)-B(7016)+B(13151)+B(14084)+B(14197)+B(15611)+B(16168)+B(20182)+B(22800) -! JVS(30007) = Jac_FULL(4938,5251) - JVS(30007) = B(15614) -! JVS(30008) = Jac_FULL(4938,5252) - JVS(30008) = B(15616)+B(22257) -! JVS(30009) = Jac_FULL(4938,5253) - JVS(30009) = B(15618) -! JVS(30010) = Jac_FULL(4938,5254) - JVS(30010) = B(15620) -! JVS(30011) = Jac_FULL(4938,5255) - JVS(30011) = B(22253) -! JVS(30012) = Jac_FULL(4938,5256) - JVS(30012) = B(22261) -! JVS(30013) = Jac_FULL(4938,5258) - JVS(30013) = B(8918)+B(9725) -! JVS(30014) = Jac_FULL(4939,2478) - JVS(30014) = B(12212) -! JVS(30015) = Jac_FULL(4939,2619) - JVS(30015) = B(24029) -! JVS(30016) = Jac_FULL(4939,3683) - JVS(30016) = B(14044) -! JVS(30017) = Jac_FULL(4939,4109) - JVS(30017) = B(10710) -! JVS(30018) = Jac_FULL(4939,4456) - JVS(30018) = 0 -! JVS(30019) = Jac_FULL(4939,4778) - JVS(30019) = 0 -! JVS(30020) = Jac_FULL(4939,4817) - JVS(30020) = 0 -! JVS(30021) = Jac_FULL(4939,4820) - JVS(30021) = 0 -! JVS(30022) = Jac_FULL(4939,4856) - JVS(30022) = 0 -! JVS(30023) = Jac_FULL(4939,4885) - JVS(30023) = 0 -! JVS(30024) = Jac_FULL(4939,4939) - JVS(30024) = -B(13894)-B(13895)-B(13897) -! JVS(30025) = Jac_FULL(4939,4972) - JVS(30025) = 0 -! JVS(30026) = Jac_FULL(4939,5096) - JVS(30026) = 0 -! JVS(30027) = Jac_FULL(4939,5120) - JVS(30027) = 0 -! JVS(30028) = Jac_FULL(4939,5127) - JVS(30028) = 0 -! JVS(30029) = Jac_FULL(4939,5151) - JVS(30029) = 0 -! JVS(30030) = Jac_FULL(4939,5190) - JVS(30030) = 0 -! JVS(30031) = Jac_FULL(4939,5245) - JVS(30031) = 0 -! JVS(30032) = Jac_FULL(4939,5250) - JVS(30032) = B(10711)+B(12213)-B(13898)+B(14045)+B(24030) -! JVS(30033) = Jac_FULL(4939,5252) - JVS(30033) = 0 -! JVS(30034) = Jac_FULL(4939,5253) - JVS(30034) = 0 -! JVS(30035) = Jac_FULL(4939,5255) - JVS(30035) = 0 -! JVS(30036) = Jac_FULL(4939,5256) - JVS(30036) = -B(13896) -! JVS(30037) = Jac_FULL(4940,1182) - JVS(30037) = B(17198) -! JVS(30038) = Jac_FULL(4940,1569) - JVS(30038) = B(14817) -! JVS(30039) = Jac_FULL(4940,3617) - JVS(30039) = B(11308) -! JVS(30040) = Jac_FULL(4940,3646) - JVS(30040) = 0 -! JVS(30041) = Jac_FULL(4940,4541) - JVS(30041) = 0 -! JVS(30042) = Jac_FULL(4940,4678) - JVS(30042) = 0 -! JVS(30043) = Jac_FULL(4940,4691) - JVS(30043) = 0 -! JVS(30044) = Jac_FULL(4940,4869) - JVS(30044) = 0 -! JVS(30045) = Jac_FULL(4940,4921) - JVS(30045) = B(14575)+B(14577)+B(14581)+B(14584) -! JVS(30046) = Jac_FULL(4940,4940) - JVS(30046) = -B(14612)-B(14614)-B(14616)-B(14618)-B(14620)-B(14621)-B(14622) -! JVS(30047) = Jac_FULL(4940,5048) - JVS(30047) = 0 -! JVS(30048) = Jac_FULL(4940,5092) - JVS(30048) = 0 -! JVS(30049) = Jac_FULL(4940,5248) - JVS(30049) = B(11297) -! JVS(30050) = Jac_FULL(4940,5249) - JVS(30050) = 0 -! JVS(30051) = Jac_FULL(4940,5250) - JVS(30051) = B(11309) -! JVS(30052) = Jac_FULL(4940,5251) - JVS(30052) = 0 -! JVS(30053) = Jac_FULL(4940,5252) - JVS(30053) = B(14578)-B(14615)-B(14617) -! JVS(30054) = Jac_FULL(4940,5253) - JVS(30054) = 0 -! JVS(30055) = Jac_FULL(4940,5254) - JVS(30055) = 0 -! JVS(30056) = Jac_FULL(4940,5255) - JVS(30056) = B(14576)-B(14613) -! JVS(30057) = Jac_FULL(4940,5256) - JVS(30057) = B(14582)-B(14619) -! JVS(30058) = Jac_FULL(4940,5258) - JVS(30058) = 0 -! JVS(30059) = Jac_FULL(4941,2013) - JVS(30059) = B(2038) -! JVS(30060) = Jac_FULL(4941,3297) - JVS(30060) = B(2145) -! JVS(30061) = Jac_FULL(4941,4332) - JVS(30061) = 0 -! JVS(30062) = Jac_FULL(4941,4475) - JVS(30062) = 0 -! JVS(30063) = Jac_FULL(4941,4941) - JVS(30063) = -B(4861)-B(4863)-B(4865)-B(4867)-B(4869)-B(4870) -! JVS(30064) = Jac_FULL(4941,5051) - JVS(30064) = 0 -! JVS(30065) = Jac_FULL(4941,5250) - JVS(30065) = 0 -! JVS(30066) = Jac_FULL(4941,5251) - JVS(30066) = -B(4862) -! JVS(30067) = Jac_FULL(4941,5252) - JVS(30067) = -B(4864) -! JVS(30068) = Jac_FULL(4941,5253) - JVS(30068) = -B(4866) -! JVS(30069) = Jac_FULL(4941,5254) - JVS(30069) = -B(4868) -! JVS(30070) = Jac_FULL(4941,5256) - JVS(30070) = 0 -! JVS(30071) = Jac_FULL(4941,5258) - JVS(30071) = 0 -! JVS(30072) = Jac_FULL(4942,474) - JVS(30072) = B(19845) -! JVS(30073) = Jac_FULL(4942,1114) - JVS(30073) = B(19847) -! JVS(30074) = Jac_FULL(4942,1709) - JVS(30074) = B(319)+B(325) -! JVS(30075) = Jac_FULL(4942,2416) - JVS(30075) = B(4481) -! JVS(30076) = Jac_FULL(4942,3117) - JVS(30076) = B(4759) -! JVS(30077) = Jac_FULL(4942,4710) - JVS(30077) = B(19815) -! JVS(30078) = Jac_FULL(4942,4850) - JVS(30078) = B(18001)+B(18003)+B(18007)+B(18010) -! JVS(30079) = Jac_FULL(4942,4942) - JVS(30079) = -B(1705)-B(1707)-B(1709)-B(1711)-B(1713)-B(1714)-B(1715) -! JVS(30080) = Jac_FULL(4942,5065) - JVS(30080) = 0 -! JVS(30081) = Jac_FULL(4942,5112) - JVS(30081) = 0 -! JVS(30082) = Jac_FULL(4942,5138) - JVS(30082) = 0 -! JVS(30083) = Jac_FULL(4942,5238) - JVS(30083) = B(320) -! JVS(30084) = Jac_FULL(4942,5250) - JVS(30084) = B(326)+B(4482)+B(19846) -! JVS(30085) = Jac_FULL(4942,5252) - JVS(30085) = -B(1708)-B(1710)+B(18004) -! JVS(30086) = Jac_FULL(4942,5253) - JVS(30086) = 0 -! JVS(30087) = Jac_FULL(4942,5255) - JVS(30087) = -B(1706)+B(18002) -! JVS(30088) = Jac_FULL(4942,5256) - JVS(30088) = -B(1712)+B(18008) -! JVS(30089) = Jac_FULL(4943,766) - JVS(30089) = B(2231) -! JVS(30090) = Jac_FULL(4943,2286) - JVS(30090) = B(2016) -! JVS(30091) = Jac_FULL(4943,4333) - JVS(30091) = B(1573) -! JVS(30092) = Jac_FULL(4943,4474) - JVS(30092) = 0 -! JVS(30093) = Jac_FULL(4943,4475) - JVS(30093) = 0 -! JVS(30094) = Jac_FULL(4943,4604) - JVS(30094) = 0 -! JVS(30095) = Jac_FULL(4943,4606) - JVS(30095) = 0 -! JVS(30096) = Jac_FULL(4943,4840) - JVS(30096) = 0 -! JVS(30097) = Jac_FULL(4943,4943) - JVS(30097) = -B(4349)-B(4351)-B(4353)-B(4355)-B(4357)-B(4358) -! JVS(30098) = Jac_FULL(4943,5200) - JVS(30098) = 0 -! JVS(30099) = Jac_FULL(4943,5250) - JVS(30099) = 0 -! JVS(30100) = Jac_FULL(4943,5251) - JVS(30100) = -B(4350) -! JVS(30101) = Jac_FULL(4943,5252) - JVS(30101) = -B(4352) -! JVS(30102) = Jac_FULL(4943,5253) - JVS(30102) = -B(4354) -! JVS(30103) = Jac_FULL(4943,5254) - JVS(30103) = -B(4356) -! JVS(30104) = Jac_FULL(4943,5256) - JVS(30104) = 0 -! JVS(30105) = Jac_FULL(4943,5258) - JVS(30105) = 0 -! JVS(30106) = Jac_FULL(4944,698) - JVS(30106) = B(19800) -! JVS(30107) = Jac_FULL(4944,769) - JVS(30107) = B(15337) -! JVS(30108) = Jac_FULL(4944,1332) - JVS(30108) = B(4192) -! JVS(30109) = Jac_FULL(4944,1744) - JVS(30109) = B(19801) -! JVS(30110) = Jac_FULL(4944,2059) - JVS(30110) = B(19797) -! JVS(30111) = Jac_FULL(4944,2611) - JVS(30111) = B(4197) -! JVS(30112) = Jac_FULL(4944,2751) - JVS(30112) = B(22190) -! JVS(30113) = Jac_FULL(4944,3183) - JVS(30113) = B(19793) -! JVS(30114) = Jac_FULL(4944,3349) - JVS(30114) = B(5111) -! JVS(30115) = Jac_FULL(4944,3544) - JVS(30115) = 0 -! JVS(30116) = Jac_FULL(4944,3925) - JVS(30116) = 0 -! JVS(30117) = Jac_FULL(4944,4122) - JVS(30117) = 0 -! JVS(30118) = Jac_FULL(4944,4389) - JVS(30118) = 0 -! JVS(30119) = Jac_FULL(4944,4421) - JVS(30119) = 0 -! JVS(30120) = Jac_FULL(4944,4587) - JVS(30120) = 0 -! JVS(30121) = Jac_FULL(4944,4712) - JVS(30121) = 0 -! JVS(30122) = Jac_FULL(4944,4944) - JVS(30122) = -B(1409)-B(1411)-B(1413)-B(1415)-B(1417)-B(1419)-B(1421)-B(1422) -! JVS(30123) = Jac_FULL(4944,5107) - JVS(30123) = 0 -! JVS(30124) = Jac_FULL(4944,5165) - JVS(30124) = B(206)+B(210) -! JVS(30125) = Jac_FULL(4944,5250) - JVS(30125) = B(211)+B(4193) -! JVS(30126) = Jac_FULL(4944,5252) - JVS(30126) = -B(1416) -! JVS(30127) = Jac_FULL(4944,5253) - JVS(30127) = -B(1418) -! JVS(30128) = Jac_FULL(4944,5255) - JVS(30128) = -B(1410)-B(1412)-B(1414) -! JVS(30129) = Jac_FULL(4944,5256) - JVS(30129) = B(207)-B(1420) -! JVS(30130) = Jac_FULL(4944,5258) - JVS(30130) = 0 -! JVS(30131) = Jac_FULL(4945,4945) - JVS(30131) = -B(13855)-B(13857)-B(13859)-B(13861)-B(13863) -! JVS(30132) = Jac_FULL(4945,5154) - JVS(30132) = B(13744) -! JVS(30133) = Jac_FULL(4945,5173) - JVS(30133) = B(10630) -! JVS(30134) = Jac_FULL(4945,5250) - JVS(30134) = -B(13856)-B(13858)-B(13860)-B(13862)-B(13864) -! JVS(30135) = Jac_FULL(4945,5252) - JVS(30135) = B(10631)+B(13745) -! JVS(30136) = Jac_FULL(4946,3005) - JVS(30136) = B(16410) -! JVS(30137) = Jac_FULL(4946,3249) - JVS(30137) = B(16416) -! JVS(30138) = Jac_FULL(4946,4946) - JVS(30138) = -B(13373)-B(13375)-B(13377)-B(13379)-B(13381)-B(13383)-B(13385)-B(13386) -! JVS(30139) = Jac_FULL(4946,5141) - JVS(30139) = B(10139)+B(10145)+B(10149) -! JVS(30140) = Jac_FULL(4946,5250) - JVS(30140) = B(10146)+B(16411) -! JVS(30141) = Jac_FULL(4946,5252) - JVS(30141) = -B(13380) -! JVS(30142) = Jac_FULL(4946,5253) - JVS(30142) = -B(13382) -! JVS(30143) = Jac_FULL(4946,5255) - JVS(30143) = -B(13374)-B(13376)-B(13378) -! JVS(30144) = Jac_FULL(4946,5256) - JVS(30144) = B(10140)-B(13384) -! JVS(30145) = Jac_FULL(4947,1175) - JVS(30145) = B(13144)+B(13146) -! JVS(30146) = Jac_FULL(4947,1404) - JVS(30146) = B(13149) -! JVS(30147) = Jac_FULL(4947,1765) - JVS(30147) = B(12563)+B(12565) -! JVS(30148) = Jac_FULL(4947,2051) - JVS(30148) = B(12568) -! JVS(30149) = Jac_FULL(4947,3227) - JVS(30149) = 0 -! JVS(30150) = Jac_FULL(4947,3433) - JVS(30150) = B(9783) -! JVS(30151) = Jac_FULL(4947,3486) - JVS(30151) = B(9698) -! JVS(30152) = Jac_FULL(4947,3487) - JVS(30152) = 0 -! JVS(30153) = Jac_FULL(4947,3567) - JVS(30153) = B(9691) -! JVS(30154) = Jac_FULL(4947,3573) - JVS(30154) = B(8969) -! JVS(30155) = Jac_FULL(4947,3584) - JVS(30155) = B(9776) -! JVS(30156) = Jac_FULL(4947,3931) - JVS(30156) = B(12572) -! JVS(30157) = Jac_FULL(4947,4547) - JVS(30157) = B(5430) -! JVS(30158) = Jac_FULL(4947,4630) - JVS(30158) = B(5995) -! JVS(30159) = Jac_FULL(4947,4707) - JVS(30159) = 0 -! JVS(30160) = Jac_FULL(4947,4740) - JVS(30160) = B(8942)+B(8948)+B(8952)+B(8954) -! JVS(30161) = Jac_FULL(4947,4803) - JVS(30161) = 0 -! JVS(30162) = Jac_FULL(4947,4846) - JVS(30162) = B(9667)+B(9673)+B(9677)+B(9679) -! JVS(30163) = Jac_FULL(4947,4887) - JVS(30163) = 0 -! JVS(30164) = Jac_FULL(4947,4899) - JVS(30164) = 0 -! JVS(30165) = Jac_FULL(4947,4947) - JVS(30165) = -B(8956)-B(8958)-B(8960)-B(8962) -! JVS(30166) = Jac_FULL(4947,4948) - JVS(30166) = 0 -! JVS(30167) = Jac_FULL(4947,4971) - JVS(30167) = 0 -! JVS(30168) = Jac_FULL(4947,5250) - JVS(30168) = B(12564)+B(12573)+B(13145) -! JVS(30169) = Jac_FULL(4947,5252) - JVS(30169) = B(8949)-B(8959)+B(9674) -! JVS(30170) = Jac_FULL(4947,5253) - JVS(30170) = 0 -! JVS(30171) = Jac_FULL(4947,5255) - JVS(30171) = B(8943)-B(8957)+B(9668) -! JVS(30172) = Jac_FULL(4947,5256) - JVS(30172) = B(8953)-B(8961)+B(9678) -! JVS(30173) = Jac_FULL(4947,5258) - JVS(30173) = 0 -! JVS(30174) = Jac_FULL(4948,3316) - JVS(30174) = B(9772) -! JVS(30175) = Jac_FULL(4948,3487) - JVS(30175) = B(9766) -! JVS(30176) = Jac_FULL(4948,4027) - JVS(30176) = B(2751)+B(2757) -! JVS(30177) = Jac_FULL(4948,4948) - JVS(30177) = -B(6062)-B(6064)-B(6066)-B(6068)-B(6070)-B(6072)-B(6074)-B(6075) -! JVS(30178) = Jac_FULL(4948,5250) - JVS(30178) = B(2758)+B(9767) -! JVS(30179) = Jac_FULL(4948,5252) - JVS(30179) = -B(6069) -! JVS(30180) = Jac_FULL(4948,5253) - JVS(30180) = -B(6071) -! JVS(30181) = Jac_FULL(4948,5255) - JVS(30181) = -B(6063)-B(6065)-B(6067) -! JVS(30182) = Jac_FULL(4948,5256) - JVS(30182) = B(2752)-B(6073) -! JVS(30183) = Jac_FULL(4948,5258) - JVS(30183) = 0 -! JVS(30184) = Jac_FULL(4949,674) - JVS(30184) = B(17610) -! JVS(30185) = Jac_FULL(4949,689) - JVS(30185) = B(14068) -! JVS(30186) = Jac_FULL(4949,1158) - JVS(30186) = B(11449) -! JVS(30187) = Jac_FULL(4949,1658) - JVS(30187) = B(14069) -! JVS(30188) = Jac_FULL(4949,1659) - JVS(30188) = B(17614) -! JVS(30189) = Jac_FULL(4949,2395) - JVS(30189) = B(14072)+B(14073) -! JVS(30190) = Jac_FULL(4949,2730) - JVS(30190) = B(17605) -! JVS(30191) = Jac_FULL(4949,2790) - JVS(30191) = B(11451) -! JVS(30192) = Jac_FULL(4949,3287) - JVS(30192) = B(14063) -! JVS(30193) = Jac_FULL(4949,4126) - JVS(30193) = 0 -! JVS(30194) = Jac_FULL(4949,4911) - JVS(30194) = 0 -! JVS(30195) = Jac_FULL(4949,4949) - JVS(30195) = -B(7602)-B(7604)-B(7606)-B(7608)-B(7610)-B(7612)-B(7614)-B(7615) -! JVS(30196) = Jac_FULL(4949,5071) - JVS(30196) = B(3730)+B(3732) -! JVS(30197) = Jac_FULL(4949,5097) - JVS(30197) = 0 -! JVS(30198) = Jac_FULL(4949,5238) - JVS(30198) = 0 -! JVS(30199) = Jac_FULL(4949,5250) - JVS(30199) = B(3733)+B(11450)+B(14074) -! JVS(30200) = Jac_FULL(4949,5252) - JVS(30200) = -B(7609) -! JVS(30201) = Jac_FULL(4949,5253) - JVS(30201) = -B(7611) -! JVS(30202) = Jac_FULL(4949,5255) - JVS(30202) = -B(7603)-B(7605)-B(7607) -! JVS(30203) = Jac_FULL(4949,5256) - JVS(30203) = B(3731)-B(7613) -! JVS(30204) = Jac_FULL(4950,135) - JVS(30204) = B(5410) -! JVS(30205) = Jac_FULL(4950,1451) - JVS(30205) = B(5400) -! JVS(30206) = Jac_FULL(4950,3435) - JVS(30206) = B(5403) -! JVS(30207) = Jac_FULL(4950,4028) - JVS(30207) = B(2432)+B(2434)+B(2436) -! JVS(30208) = Jac_FULL(4950,4950) - JVS(30208) = -B(5404)-B(5405)-B(5406)-B(5407)-B(5408)-B(5409) -! JVS(30209) = Jac_FULL(4950,5250) - JVS(30209) = B(5411) -! JVS(30210) = Jac_FULL(4950,5252) - JVS(30210) = B(2433) -! JVS(30211) = Jac_FULL(4950,5255) - JVS(30211) = 0 -! JVS(30212) = Jac_FULL(4950,5256) - JVS(30212) = B(2435) -! JVS(30213) = Jac_FULL(4951,3342) - JVS(30213) = B(5208) -! JVS(30214) = Jac_FULL(4951,3795) - JVS(30214) = B(5882) -! JVS(30215) = Jac_FULL(4951,3805) - JVS(30215) = B(5794) -! JVS(30216) = Jac_FULL(4951,3812) - JVS(30216) = B(5703) -! JVS(30217) = Jac_FULL(4951,3824) - JVS(30217) = B(5335) -! JVS(30218) = Jac_FULL(4951,4177) - JVS(30218) = B(6200) -! JVS(30219) = Jac_FULL(4951,4399) - JVS(30219) = 0 -! JVS(30220) = Jac_FULL(4951,4950) - JVS(30220) = B(5404) -! JVS(30221) = Jac_FULL(4951,4951) - JVS(30221) = -B(8664)-B(8666)-B(8668) -! JVS(30222) = Jac_FULL(4951,5058) - JVS(30222) = B(5266) -! JVS(30223) = Jac_FULL(4951,5250) - JVS(30223) = -B(8669) -! JVS(30224) = Jac_FULL(4951,5252) - JVS(30224) = 0 -! JVS(30225) = Jac_FULL(4951,5255) - JVS(30225) = 0 -! JVS(30226) = Jac_FULL(4951,5256) - JVS(30226) = -B(8665) -! JVS(30227) = Jac_FULL(4951,5258) - JVS(30227) = -B(8667) -! JVS(30228) = Jac_FULL(4952,3802) - JVS(30228) = B(6357) -! JVS(30229) = Jac_FULL(4952,3824) - JVS(30229) = B(5334) -! JVS(30230) = Jac_FULL(4952,3826) - JVS(30230) = B(6282) -! JVS(30231) = Jac_FULL(4952,4177) - JVS(30231) = B(6205) -! JVS(30232) = Jac_FULL(4952,4937) - JVS(30232) = B(5982) -! JVS(30233) = Jac_FULL(4952,4950) - JVS(30233) = B(5409) -! JVS(30234) = Jac_FULL(4952,4952) - JVS(30234) = -B(8834)-B(8836)-B(8838) -! JVS(30235) = Jac_FULL(4952,5123) - JVS(30235) = B(8833) -! JVS(30236) = Jac_FULL(4952,5250) - JVS(30236) = -B(8839) -! JVS(30237) = Jac_FULL(4952,5252) - JVS(30237) = 0 -! JVS(30238) = Jac_FULL(4952,5255) - JVS(30238) = 0 -! JVS(30239) = Jac_FULL(4952,5256) - JVS(30239) = -B(8835) -! JVS(30240) = Jac_FULL(4952,5258) - JVS(30240) = -B(8837) -! JVS(30241) = Jac_FULL(4953,708) - JVS(30241) = B(11214) -! JVS(30242) = Jac_FULL(4953,1325) - JVS(30242) = B(17109) -! JVS(30243) = Jac_FULL(4953,1718) - JVS(30243) = B(11220) -! JVS(30244) = Jac_FULL(4953,1858) - JVS(30244) = B(11215)+B(11217) -! JVS(30245) = Jac_FULL(4953,2727) - JVS(30245) = B(11212) -! JVS(30246) = Jac_FULL(4953,2958) - JVS(30246) = B(17114) -! JVS(30247) = Jac_FULL(4953,4144) - JVS(30247) = 0 -! JVS(30248) = Jac_FULL(4953,4605) - JVS(30248) = 0 -! JVS(30249) = Jac_FULL(4953,4953) - JVS(30249) = -B(14454)-B(14456)-B(14458)-B(14460)-B(14462)-B(14464)-B(14466)-B(14467) -! JVS(30250) = Jac_FULL(4953,5250) - JVS(30250) = B(11216)+B(17110) -! JVS(30251) = Jac_FULL(4953,5252) - JVS(30251) = -B(14461) -! JVS(30252) = Jac_FULL(4953,5253) - JVS(30252) = -B(14463) -! JVS(30253) = Jac_FULL(4953,5255) - JVS(30253) = -B(14455)-B(14457)-B(14459) -! JVS(30254) = Jac_FULL(4953,5256) - JVS(30254) = -B(14465) -! JVS(30255) = Jac_FULL(4953,5258) - JVS(30255) = 0 -! JVS(30256) = Jac_FULL(4954,654) - JVS(30256) = B(10480) -! JVS(30257) = Jac_FULL(4954,2497) - JVS(30257) = B(10474) -! JVS(30258) = Jac_FULL(4954,3254) - JVS(30258) = B(4229) -! JVS(30259) = Jac_FULL(4954,3294) - JVS(30259) = B(4225) -! JVS(30260) = Jac_FULL(4954,3488) - JVS(30260) = B(10481)+B(10483)+B(10485) -! JVS(30261) = Jac_FULL(4954,4774) - JVS(30261) = 0 -! JVS(30262) = Jac_FULL(4954,4954) - JVS(30262) = -B(1445)-B(1447)-B(1449)-B(1451)-B(1453)-B(1455)-B(1457)-B(1458) -! JVS(30263) = Jac_FULL(4954,5166) - JVS(30263) = 0 -! JVS(30264) = Jac_FULL(4954,5194) - JVS(30264) = B(213)+B(215)+B(221) -! JVS(30265) = Jac_FULL(4954,5250) - JVS(30265) = B(216)+B(4226)+B(10484) -! JVS(30266) = Jac_FULL(4954,5252) - JVS(30266) = -B(1452) -! JVS(30267) = Jac_FULL(4954,5253) - JVS(30267) = -B(1454) -! JVS(30268) = Jac_FULL(4954,5255) - JVS(30268) = -B(1446)-B(1448)-B(1450) -! JVS(30269) = Jac_FULL(4954,5256) - JVS(30269) = B(214)-B(1456)+B(10482) -! JVS(30270) = Jac_FULL(4954,5258) - JVS(30270) = 0 -! JVS(30271) = Jac_FULL(4955,916) - JVS(30271) = B(22954) -! JVS(30272) = Jac_FULL(4955,3010) - JVS(30272) = B(22959) -! JVS(30273) = Jac_FULL(4955,4955) - JVS(30273) = -B(22532)-B(22534)-B(22536)-B(22538)-B(22540)-B(22542)-B(22544)-B(22545) -! JVS(30274) = Jac_FULL(4955,5189) - JVS(30274) = B(21950)+B(21958) -! JVS(30275) = Jac_FULL(4955,5250) - JVS(30275) = B(21959)+B(22955) -! JVS(30276) = Jac_FULL(4955,5252) - JVS(30276) = -B(22539) -! JVS(30277) = Jac_FULL(4955,5253) - JVS(30277) = -B(22541) -! JVS(30278) = Jac_FULL(4955,5255) - JVS(30278) = -B(22533)-B(22535)-B(22537) -! JVS(30279) = Jac_FULL(4955,5256) - JVS(30279) = B(21951)-B(22543) -! JVS(30280) = Jac_FULL(4956,2042) - JVS(30280) = B(2101) -! JVS(30281) = Jac_FULL(4956,3202) - JVS(30281) = B(2295) -! JVS(30282) = Jac_FULL(4956,4604) - JVS(30282) = 0 -! JVS(30283) = Jac_FULL(4956,4606) - JVS(30283) = 0 -! JVS(30284) = Jac_FULL(4956,4956) - JVS(30284) = -B(4940)-B(4942)-B(4944)-B(4946)-B(4948)-B(4949) -! JVS(30285) = Jac_FULL(4956,5190) - JVS(30285) = 0 -! JVS(30286) = Jac_FULL(4956,5250) - JVS(30286) = 0 -! JVS(30287) = Jac_FULL(4956,5251) - JVS(30287) = -B(4941) -! JVS(30288) = Jac_FULL(4956,5252) - JVS(30288) = -B(4943) -! JVS(30289) = Jac_FULL(4956,5253) - JVS(30289) = -B(4945) -! JVS(30290) = Jac_FULL(4956,5254) - JVS(30290) = -B(4947) -! JVS(30291) = Jac_FULL(4956,5256) - JVS(30291) = 0 -! JVS(30292) = Jac_FULL(4956,5258) - JVS(30292) = 0 -! JVS(30293) = Jac_FULL(4957,2546) - JVS(30293) = B(19545) -! JVS(30294) = Jac_FULL(4957,4883) - JVS(30294) = B(14874) -! JVS(30295) = Jac_FULL(4957,4957) - JVS(30295) = -B(17418)-B(17420)-B(17422)-B(17424)-B(17426)-B(17428)-B(17430)-B(17431) -! JVS(30296) = Jac_FULL(4957,5181) - JVS(30296) = 0 -! JVS(30297) = Jac_FULL(4957,5250) - JVS(30297) = B(14875) -! JVS(30298) = Jac_FULL(4957,5252) - JVS(30298) = -B(17425) -! JVS(30299) = Jac_FULL(4957,5253) - JVS(30299) = -B(17427) -! JVS(30300) = Jac_FULL(4957,5255) - JVS(30300) = -B(17419)-B(17421)-B(17423) -! JVS(30301) = Jac_FULL(4957,5256) - JVS(30301) = -B(17429) -! JVS(30302) = Jac_FULL(4958,839) - JVS(30302) = B(20445)+B(20446) -! JVS(30303) = Jac_FULL(4958,890) - JVS(30303) = B(20476) -! JVS(30304) = Jac_FULL(4958,893) - JVS(30304) = B(20454) -! JVS(30305) = Jac_FULL(4958,1518) - JVS(30305) = B(20448) -! JVS(30306) = Jac_FULL(4958,1575) - JVS(30306) = B(16676) -! JVS(30307) = Jac_FULL(4958,1685) - JVS(30307) = B(16687) -! JVS(30308) = Jac_FULL(4958,1804) - JVS(30308) = B(20456) -! JVS(30309) = Jac_FULL(4958,1874) - JVS(30309) = B(20478) -! JVS(30310) = Jac_FULL(4958,1939) - JVS(30310) = B(20452) -! JVS(30311) = Jac_FULL(4958,1981) - JVS(30311) = B(16679) -! JVS(30312) = Jac_FULL(4958,2925) - JVS(30312) = B(20460) -! JVS(30313) = Jac_FULL(4958,3236) - JVS(30313) = B(20482) -! JVS(30314) = Jac_FULL(4958,3552) - JVS(30314) = 0 -! JVS(30315) = Jac_FULL(4958,4096) - JVS(30315) = B(6833) -! JVS(30316) = Jac_FULL(4958,4518) - JVS(30316) = B(18866)+B(18872)+B(18876)+B(18878) -! JVS(30317) = Jac_FULL(4958,4556) - JVS(30317) = B(13868)+B(13870)+B(13872)+B(13874)+B(13876) -! JVS(30318) = Jac_FULL(4958,4657) - JVS(30318) = B(18882)+B(18888)+B(18892)+B(18894) -! JVS(30319) = Jac_FULL(4958,4658) - JVS(30319) = B(18852)+B(18858)+B(18862)+B(18864) -! JVS(30320) = Jac_FULL(4958,4945) - JVS(30320) = B(13859) -! JVS(30321) = Jac_FULL(4958,4958) - JVS(30321) = -B(10455)-B(10456) -! JVS(30322) = Jac_FULL(4958,5020) - JVS(30322) = B(6725) -! JVS(30323) = Jac_FULL(4958,5132) - JVS(30323) = 0 -! JVS(30324) = Jac_FULL(4958,5154) - JVS(30324) = 0 -! JVS(30325) = Jac_FULL(4958,5173) - JVS(30325) = 0 -! JVS(30326) = Jac_FULL(4958,5250) - JVS(30326) = -B(10457)+B(13860)+B(20447)+B(20453)+B(20455)+B(20461)+B(20477)+B(20483) -! JVS(30327) = Jac_FULL(4958,5251) - JVS(30327) = B(13869) -! JVS(30328) = Jac_FULL(4958,5252) - JVS(30328) = B(6726)+B(13871)+B(18859)+B(18873)+B(18889) -! JVS(30329) = Jac_FULL(4958,5253) - JVS(30329) = B(13873) -! JVS(30330) = Jac_FULL(4958,5254) - JVS(30330) = B(13875) -! JVS(30331) = Jac_FULL(4958,5255) - JVS(30331) = B(18853)+B(18867)+B(18883) -! JVS(30332) = Jac_FULL(4958,5256) - JVS(30332) = B(18863)+B(18877)+B(18893) -! JVS(30333) = Jac_FULL(4958,5258) - JVS(30333) = B(6834) -! JVS(30334) = Jac_FULL(4959,806) - JVS(30334) = B(134) -! JVS(30335) = Jac_FULL(4959,1234) - JVS(30335) = B(21199) -! JVS(30336) = Jac_FULL(4959,3310) - JVS(30336) = B(3883) -! JVS(30337) = Jac_FULL(4959,4537) - JVS(30337) = B(17855) -! JVS(30338) = Jac_FULL(4959,4601) - JVS(30338) = B(523) -! JVS(30339) = Jac_FULL(4959,4874) - JVS(30339) = B(19729)+B(19731)+B(19735)+B(19737) -! JVS(30340) = Jac_FULL(4959,4878) - JVS(30340) = 0 -! JVS(30341) = Jac_FULL(4959,4959) - JVS(30341) = -B(1129)-B(1131)-B(1133)-B(1135)-B(1137)-B(1138)-B(1139) -! JVS(30342) = Jac_FULL(4959,5078) - JVS(30342) = 0 -! JVS(30343) = Jac_FULL(4959,5088) - JVS(30343) = 0 -! JVS(30344) = Jac_FULL(4959,5238) - JVS(30344) = 0 -! JVS(30345) = Jac_FULL(4959,5250) - JVS(30345) = B(135)+B(524)+B(3884) -! JVS(30346) = Jac_FULL(4959,5252) - JVS(30346) = -B(1132)-B(1134)+B(19732) -! JVS(30347) = Jac_FULL(4959,5253) - JVS(30347) = 0 -! JVS(30348) = Jac_FULL(4959,5255) - JVS(30348) = -B(1130)+B(19730) -! JVS(30349) = Jac_FULL(4959,5256) - JVS(30349) = -B(1136)+B(19736) -! JVS(30350) = Jac_FULL(4959,5258) - JVS(30350) = 0 -! JVS(30351) = Jac_FULL(4960,953) - JVS(30351) = B(23603)+B(23605) -! JVS(30352) = Jac_FULL(4960,1022) - JVS(30352) = B(23608) -! JVS(30353) = Jac_FULL(4960,1757) - JVS(30353) = B(23622) -! JVS(30354) = Jac_FULL(4960,4818) - JVS(30354) = B(23316)+B(23318)+B(23322)+B(23325) -! JVS(30355) = Jac_FULL(4960,4960) - JVS(30355) = -B(23335)-B(23337)-B(23339)-B(23341)-B(23342) -! JVS(30356) = Jac_FULL(4960,5072) - JVS(30356) = B(22909) -! JVS(30357) = Jac_FULL(4960,5250) - JVS(30357) = B(23604)+B(23623) -! JVS(30358) = Jac_FULL(4960,5252) - JVS(30358) = B(23319)-B(23338) -! JVS(30359) = Jac_FULL(4960,5253) - JVS(30359) = 0 -! JVS(30360) = Jac_FULL(4960,5255) - JVS(30360) = B(23317)-B(23336) -! JVS(30361) = Jac_FULL(4960,5256) - JVS(30361) = B(23323)-B(23340) -! JVS(30362) = Jac_FULL(4961,2135) - JVS(30362) = B(5064) -! JVS(30363) = Jac_FULL(4961,2718) - JVS(30363) = B(21185) -! JVS(30364) = Jac_FULL(4961,3175) - JVS(30364) = B(5039) -! JVS(30365) = Jac_FULL(4961,4419) - JVS(30365) = 0 -! JVS(30366) = Jac_FULL(4961,4688) - JVS(30366) = B(13017) -! JVS(30367) = Jac_FULL(4961,4700) - JVS(30367) = 0 -! JVS(30368) = Jac_FULL(4961,4961) - JVS(30368) = -B(5070)-B(5072)-B(5074) -! JVS(30369) = Jac_FULL(4961,5043) - JVS(30369) = B(2209) -! JVS(30370) = Jac_FULL(4961,5068) - JVS(30370) = 0 -! JVS(30371) = Jac_FULL(4961,5146) - JVS(30371) = 0 -! JVS(30372) = Jac_FULL(4961,5250) - JVS(30372) = B(5040)+B(5065)-B(5073)+B(21186) -! JVS(30373) = Jac_FULL(4961,5252) - JVS(30373) = 0 -! JVS(30374) = Jac_FULL(4961,5253) - JVS(30374) = 0 -! JVS(30375) = Jac_FULL(4961,5255) - JVS(30375) = 0 -! JVS(30376) = Jac_FULL(4961,5256) - JVS(30376) = -B(5071) -! JVS(30377) = Jac_FULL(4961,5258) - JVS(30377) = 0 -! JVS(30378) = Jac_FULL(4962,1475) - JVS(30378) = B(17456) -! JVS(30379) = Jac_FULL(4962,2786) - JVS(30379) = B(17458) -! JVS(30380) = Jac_FULL(4962,4540) - JVS(30380) = B(11618)+B(11620) -! JVS(30381) = Jac_FULL(4962,4882) - JVS(30381) = 0 -! JVS(30382) = Jac_FULL(4962,4962) - JVS(30382) = -B(14887)-B(14889)-B(14891)-B(14893)-B(14895)-B(14897)-B(14899)-B(14900) -! JVS(30383) = Jac_FULL(4962,5140) - JVS(30383) = B(11755) -! JVS(30384) = Jac_FULL(4962,5181) - JVS(30384) = 0 -! JVS(30385) = Jac_FULL(4962,5208) - JVS(30385) = 0 -! JVS(30386) = Jac_FULL(4962,5250) - JVS(30386) = B(11621)+B(17457) -! JVS(30387) = Jac_FULL(4962,5252) - JVS(30387) = -B(14894) -! JVS(30388) = Jac_FULL(4962,5253) - JVS(30388) = -B(14896) -! JVS(30389) = Jac_FULL(4962,5255) - JVS(30389) = -B(14888)-B(14890)-B(14892) -! JVS(30390) = Jac_FULL(4962,5256) - JVS(30390) = B(11619)-B(14898) -! JVS(30391) = Jac_FULL(4963,514) - JVS(30391) = B(6853) -! JVS(30392) = Jac_FULL(4963,2425) - JVS(30392) = B(6893) -! JVS(30393) = Jac_FULL(4963,4794) - JVS(30393) = 0 -! JVS(30394) = Jac_FULL(4963,4907) - JVS(30394) = 0 -! JVS(30395) = Jac_FULL(4963,4963) - JVS(30395) = -B(10666)-B(10668)-B(10670)-B(10672)-B(10674)-B(10675) -! JVS(30396) = Jac_FULL(4963,5166) - JVS(30396) = 0 -! JVS(30397) = Jac_FULL(4963,5250) - JVS(30397) = 0 -! JVS(30398) = Jac_FULL(4963,5251) - JVS(30398) = -B(10667) -! JVS(30399) = Jac_FULL(4963,5252) - JVS(30399) = -B(10669) -! JVS(30400) = Jac_FULL(4963,5253) - JVS(30400) = -B(10671) -! JVS(30401) = Jac_FULL(4963,5254) - JVS(30401) = -B(10673) -! JVS(30402) = Jac_FULL(4963,5256) - JVS(30402) = 0 -! JVS(30403) = Jac_FULL(4963,5258) - JVS(30403) = 0 -! JVS(30404) = Jac_FULL(4964,444) - JVS(30404) = B(5301) -! JVS(30405) = Jac_FULL(4964,1240) - JVS(30405) = B(6583) -! JVS(30406) = Jac_FULL(4964,1341) - JVS(30406) = B(5294) -! JVS(30407) = Jac_FULL(4964,1792) - JVS(30407) = B(5300) -! JVS(30408) = Jac_FULL(4964,1794) - JVS(30408) = B(5297) -! JVS(30409) = Jac_FULL(4964,2780) - JVS(30409) = B(12772) -! JVS(30410) = Jac_FULL(4964,3072) - JVS(30410) = B(6597) -! JVS(30411) = Jac_FULL(4964,3776) - JVS(30411) = B(2381) -! JVS(30412) = Jac_FULL(4964,3866) - JVS(30412) = 0 -! JVS(30413) = Jac_FULL(4964,3987) - JVS(30413) = 0 -! JVS(30414) = Jac_FULL(4964,4187) - JVS(30414) = 0 -! JVS(30415) = Jac_FULL(4964,4395) - JVS(30415) = B(751) -! JVS(30416) = Jac_FULL(4964,4919) - JVS(30416) = B(6584)+B(6586)+B(6588)+B(6590)+B(6592) -! JVS(30417) = Jac_FULL(4964,4964) - JVS(30417) = -B(757)-B(758)-B(759)-B(761) -! JVS(30418) = Jac_FULL(4964,5250) - JVS(30418) = -B(762)+B(5295)+B(5298)+B(5302)+B(12773) -! JVS(30419) = Jac_FULL(4964,5251) - JVS(30419) = B(6585) -! JVS(30420) = Jac_FULL(4964,5252) - JVS(30420) = B(6587) -! JVS(30421) = Jac_FULL(4964,5253) - JVS(30421) = B(6589) -! JVS(30422) = Jac_FULL(4964,5254) - JVS(30422) = B(6591) -! JVS(30423) = Jac_FULL(4964,5255) - JVS(30423) = 0 -! JVS(30424) = Jac_FULL(4964,5256) - JVS(30424) = -B(760) -! JVS(30425) = Jac_FULL(4964,5258) - JVS(30425) = B(752) -! JVS(30426) = Jac_FULL(4965,1763) - JVS(30426) = B(6608) -! JVS(30427) = Jac_FULL(4965,3317) - JVS(30427) = 0 -! JVS(30428) = Jac_FULL(4965,4397) - JVS(30428) = B(2363)+B(2367) -! JVS(30429) = Jac_FULL(4965,4622) - JVS(30429) = 0 -! JVS(30430) = Jac_FULL(4965,4666) - JVS(30430) = B(3023)+B(3025)+B(3027) -! JVS(30431) = Jac_FULL(4965,4919) - JVS(30431) = 0 -! JVS(30432) = Jac_FULL(4965,4964) - JVS(30432) = 0 -! JVS(30433) = Jac_FULL(4965,4965) - JVS(30433) = -B(5268)-B(5270) -! JVS(30434) = Jac_FULL(4965,5250) - JVS(30434) = B(2368) -! JVS(30435) = Jac_FULL(4965,5251) - JVS(30435) = 0 -! JVS(30436) = Jac_FULL(4965,5252) - JVS(30436) = B(3024) -! JVS(30437) = Jac_FULL(4965,5253) - JVS(30437) = -B(5269) -! JVS(30438) = Jac_FULL(4965,5254) - JVS(30438) = 0 -! JVS(30439) = Jac_FULL(4965,5255) - JVS(30439) = 0 -! JVS(30440) = Jac_FULL(4965,5256) - JVS(30440) = B(2364)+B(3026) -! JVS(30441) = Jac_FULL(4965,5258) - JVS(30441) = -B(5271) -! JVS(30442) = Jac_FULL(4966,163) - JVS(30442) = B(23224) -! JVS(30443) = Jac_FULL(4966,973) - JVS(30443) = 0 -! JVS(30444) = Jac_FULL(4966,2696) - JVS(30444) = B(18352) -! JVS(30445) = Jac_FULL(4966,3237) - JVS(30445) = B(18346) -! JVS(30446) = Jac_FULL(4966,4423) - JVS(30446) = 0 -! JVS(30447) = Jac_FULL(4966,4454) - JVS(30447) = 0 -! JVS(30448) = Jac_FULL(4966,4464) - JVS(30448) = 0 -! JVS(30449) = Jac_FULL(4966,4728) - JVS(30449) = B(12849) -! JVS(30450) = Jac_FULL(4966,4797) - JVS(30450) = 0 -! JVS(30451) = Jac_FULL(4966,4877) - JVS(30451) = 0 -! JVS(30452) = Jac_FULL(4966,4966) - JVS(30452) = -B(15918)-B(15920)-B(15922)-B(15924)-B(15926)-B(15928) -! JVS(30453) = Jac_FULL(4966,5103) - JVS(30453) = 0 -! JVS(30454) = Jac_FULL(4966,5126) - JVS(30454) = 0 -! JVS(30455) = Jac_FULL(4966,5250) - JVS(30455) = B(12850)+B(18347) -! JVS(30456) = Jac_FULL(4966,5252) - JVS(30456) = -B(15923) -! JVS(30457) = Jac_FULL(4966,5253) - JVS(30457) = -B(15925) -! JVS(30458) = Jac_FULL(4966,5255) - JVS(30458) = -B(15919)-B(15921) -! JVS(30459) = Jac_FULL(4966,5256) - JVS(30459) = -B(15927) -! JVS(30460) = Jac_FULL(4966,5258) - JVS(30460) = 0 -! JVS(30461) = Jac_FULL(4967,3528) - JVS(30461) = B(17804) -! JVS(30462) = Jac_FULL(4967,3747) - JVS(30462) = B(12034) -! JVS(30463) = Jac_FULL(4967,4577) - JVS(30463) = 0 -! JVS(30464) = Jac_FULL(4967,4722) - JVS(30464) = 0 -! JVS(30465) = Jac_FULL(4967,4967) - JVS(30465) = -B(15225)-B(15227)-B(15229)-B(15231)-B(15232)-B(15233) -! JVS(30466) = Jac_FULL(4967,5146) - JVS(30466) = 0 -! JVS(30467) = Jac_FULL(4967,5238) - JVS(30467) = 0 -! JVS(30468) = Jac_FULL(4967,5250) - JVS(30468) = B(12035)+B(17805) -! JVS(30469) = Jac_FULL(4967,5252) - JVS(30469) = -B(15228) -! JVS(30470) = Jac_FULL(4967,5255) - JVS(30470) = -B(15226) -! JVS(30471) = Jac_FULL(4967,5256) - JVS(30471) = -B(15230) -! JVS(30472) = Jac_FULL(4968,2504) - JVS(30472) = B(15612) -! JVS(30473) = Jac_FULL(4968,3209) - JVS(30473) = B(15604) -! JVS(30474) = Jac_FULL(4968,4968) - JVS(30474) = -B(12513)-B(12515)-B(12517)-B(12519)-B(12521)-B(12523)-B(12525)-B(12526) -! JVS(30475) = Jac_FULL(4968,5076) - JVS(30475) = B(8915)+B(8921)+B(8925) -! JVS(30476) = Jac_FULL(4968,5250) - JVS(30476) = B(8922)+B(15605) -! JVS(30477) = Jac_FULL(4968,5252) - JVS(30477) = -B(12520) -! JVS(30478) = Jac_FULL(4968,5253) - JVS(30478) = -B(12522) -! JVS(30479) = Jac_FULL(4968,5255) - JVS(30479) = -B(12514)-B(12516)-B(12518) -! JVS(30480) = Jac_FULL(4968,5256) - JVS(30480) = B(8916)-B(12524) -! JVS(30481) = Jac_FULL(4969,583) - JVS(30481) = B(22322) -! JVS(30482) = Jac_FULL(4969,986) - JVS(30482) = B(21673) -! JVS(30483) = Jac_FULL(4969,2977) - JVS(30483) = B(21685) -! JVS(30484) = Jac_FULL(4969,4190) - JVS(30484) = 0 -! JVS(30485) = Jac_FULL(4969,4493) - JVS(30485) = B(19061)+B(19063) -! JVS(30486) = Jac_FULL(4969,4925) - JVS(30486) = 0 -! JVS(30487) = Jac_FULL(4969,4969) - JVS(30487) = -B(20632)-B(20634)-B(20636)-B(20638)-B(20640)-B(20642) -! JVS(30488) = Jac_FULL(4969,5159) - JVS(30488) = 0 -! JVS(30489) = Jac_FULL(4969,5213) - JVS(30489) = 0 -! JVS(30490) = Jac_FULL(4969,5250) - JVS(30490) = B(19064)+B(21674) -! JVS(30491) = Jac_FULL(4969,5252) - JVS(30491) = -B(20637) -! JVS(30492) = Jac_FULL(4969,5253) - JVS(30492) = -B(20639) -! JVS(30493) = Jac_FULL(4969,5255) - JVS(30493) = -B(20633)-B(20635) -! JVS(30494) = Jac_FULL(4969,5256) - JVS(30494) = B(19062)-B(20641) -! JVS(30495) = Jac_FULL(4969,5258) - JVS(30495) = 0 -! JVS(30496) = Jac_FULL(4970,1746) - JVS(30496) = B(3597) -! JVS(30497) = Jac_FULL(4970,4970) - JVS(30497) = -B(7505)-B(7507)-B(7509) -! JVS(30498) = Jac_FULL(4970,4988) - JVS(30498) = 0 -! JVS(30499) = Jac_FULL(4970,5092) - JVS(30499) = B(3591) -! JVS(30500) = Jac_FULL(4970,5099) - JVS(30500) = B(11261)+B(11273) -! JVS(30501) = Jac_FULL(4970,5250) - JVS(30501) = -B(7510) -! JVS(30502) = Jac_FULL(4970,5255) - JVS(30502) = B(11262) -! JVS(30503) = Jac_FULL(4970,5258) - JVS(30503) = -B(7506)-B(7508) -! JVS(30504) = Jac_FULL(4971,3622) - JVS(30504) = B(2714) -! JVS(30505) = Jac_FULL(4971,4971) - JVS(30505) = -B(5996)-B(5998)-B(6000)-B(6002)-B(6004)-B(6005)-B(6006) -! JVS(30506) = Jac_FULL(4971,5250) - JVS(30506) = B(2715) -! JVS(30507) = Jac_FULL(4971,5252) - JVS(30507) = -B(5999)-B(6001) -! JVS(30508) = Jac_FULL(4971,5255) - JVS(30508) = -B(5997) -! JVS(30509) = Jac_FULL(4971,5256) - JVS(30509) = -B(6003) -! JVS(30510) = Jac_FULL(4971,5258) - JVS(30510) = 0 -! JVS(30511) = Jac_FULL(4972,2179) - JVS(30511) = B(4928) -! JVS(30512) = Jac_FULL(4972,4972) - JVS(30512) = -B(2092)-B(2094)-B(2096)-B(2098)-B(2099)-B(2100) -! JVS(30513) = Jac_FULL(4972,5190) - JVS(30513) = B(479) -! JVS(30514) = Jac_FULL(4972,5250) - JVS(30514) = B(4929) -! JVS(30515) = Jac_FULL(4972,5252) - JVS(30515) = -B(2095) -! JVS(30516) = Jac_FULL(4972,5255) - JVS(30516) = -B(2093) -! JVS(30517) = Jac_FULL(4972,5256) - JVS(30517) = B(480)-B(2097) -! JVS(30518) = Jac_FULL(4973,1140) - JVS(30518) = B(3694) -! JVS(30519) = Jac_FULL(4973,1914) - JVS(30519) = B(3684) -! JVS(30520) = Jac_FULL(4973,2128) - JVS(30520) = B(3689) -! JVS(30521) = Jac_FULL(4973,2319) - JVS(30521) = B(17401) -! JVS(30522) = Jac_FULL(4973,2514) - JVS(30522) = B(17685) -! JVS(30523) = Jac_FULL(4973,2678) - JVS(30523) = B(17405) -! JVS(30524) = Jac_FULL(4973,2946) - JVS(30524) = B(21210) -! JVS(30525) = Jac_FULL(4973,2978) - JVS(30525) = B(19573) -! JVS(30526) = Jac_FULL(4973,3311) - JVS(30526) = B(17715) -! JVS(30527) = Jac_FULL(4973,3386) - JVS(30527) = B(3693) -! JVS(30528) = Jac_FULL(4973,3935) - JVS(30528) = B(11482) -! JVS(30529) = Jac_FULL(4973,4243) - JVS(30529) = B(14841)+B(14843)+B(14847)+B(14849) -! JVS(30530) = Jac_FULL(4973,4357) - JVS(30530) = 0 -! JVS(30531) = Jac_FULL(4973,4662) - JVS(30531) = 0 -! JVS(30532) = Jac_FULL(4973,4785) - JVS(30532) = 0 -! JVS(30533) = Jac_FULL(4973,4870) - JVS(30533) = B(985) -! JVS(30534) = Jac_FULL(4973,4890) - JVS(30534) = 0 -! JVS(30535) = Jac_FULL(4973,4973) - JVS(30535) = -B(3696)-B(3698) -! JVS(30536) = Jac_FULL(4973,5063) - JVS(30536) = 0 -! JVS(30537) = Jac_FULL(4973,5064) - JVS(30537) = 0 -! JVS(30538) = Jac_FULL(4973,5088) - JVS(30538) = 0 -! JVS(30539) = Jac_FULL(4973,5090) - JVS(30539) = 0 -! JVS(30540) = Jac_FULL(4973,5147) - JVS(30540) = 0 -! JVS(30541) = Jac_FULL(4973,5148) - JVS(30541) = 0 -! JVS(30542) = Jac_FULL(4973,5150) - JVS(30542) = 0 -! JVS(30543) = Jac_FULL(4973,5208) - JVS(30543) = 0 -! JVS(30544) = Jac_FULL(4973,5238) - JVS(30544) = 0 -! JVS(30545) = Jac_FULL(4973,5246) - JVS(30545) = B(3217) -! JVS(30546) = Jac_FULL(4973,5250) - JVS(30546) = B(3685)+B(3690)+B(3695)-B(3697)+B(17406)+B(17686)+B(17716)+B(19574) -! JVS(30547) = Jac_FULL(4973,5252) - JVS(30547) = B(14844) -! JVS(30548) = Jac_FULL(4973,5253) - JVS(30548) = 0 -! JVS(30549) = Jac_FULL(4973,5255) - JVS(30549) = B(14842) -! JVS(30550) = Jac_FULL(4973,5256) - JVS(30550) = B(14848) -! JVS(30551) = Jac_FULL(4974,1855) - JVS(30551) = B(4533) -! JVS(30552) = Jac_FULL(4974,2385) - JVS(30552) = B(333)+B(341) -! JVS(30553) = Jac_FULL(4974,4974) - JVS(30553) = -B(1749)-B(1751)-B(1753)-B(1755)-B(1757)-B(1758)-B(1759) -! JVS(30554) = Jac_FULL(4974,5238) - JVS(30554) = B(334) -! JVS(30555) = Jac_FULL(4974,5250) - JVS(30555) = B(342)+B(4534) -! JVS(30556) = Jac_FULL(4974,5252) - JVS(30556) = -B(1752)-B(1754) -! JVS(30557) = Jac_FULL(4974,5255) - JVS(30557) = -B(1750) -! JVS(30558) = Jac_FULL(4974,5256) - JVS(30558) = -B(1756) -! JVS(30559) = Jac_FULL(4975,1799) - JVS(30559) = B(11797) -! JVS(30560) = Jac_FULL(4975,2543) - JVS(30560) = B(11812) -! JVS(30561) = Jac_FULL(4975,2653) - JVS(30561) = B(11817) -! JVS(30562) = Jac_FULL(4975,3869) - JVS(30562) = B(8093) -! JVS(30563) = Jac_FULL(4975,3967) - JVS(30563) = 0 -! JVS(30564) = Jac_FULL(4975,4733) - JVS(30564) = 0 -! JVS(30565) = Jac_FULL(4975,4974) - JVS(30565) = 0 -! JVS(30566) = Jac_FULL(4975,4975) - JVS(30566) = -B(11820)-B(11821)-B(11823)-B(11825) -! JVS(30567) = Jac_FULL(4975,5238) - JVS(30567) = 0 -! JVS(30568) = Jac_FULL(4975,5250) - JVS(30568) = B(11813)+B(11818)-B(11824)-B(11826) -! JVS(30569) = Jac_FULL(4975,5252) - JVS(30569) = 0 -! JVS(30570) = Jac_FULL(4975,5255) - JVS(30570) = 0 -! JVS(30571) = Jac_FULL(4975,5256) - JVS(30571) = -B(11822) -! JVS(30572) = Jac_FULL(4976,4976) - JVS(30572) = -B(10511)-B(10513)-B(10515)-B(10517)-B(10519)-B(10521)-B(10523)-B(10524) -! JVS(30573) = Jac_FULL(4976,5217) - JVS(30573) = B(6782) -! JVS(30574) = Jac_FULL(4976,5250) - JVS(30574) = -B(10518)-B(10520)-B(10522) -! JVS(30575) = Jac_FULL(4976,5256) - JVS(30575) = -B(10512) -! JVS(30576) = Jac_FULL(4976,5258) - JVS(30576) = -B(10514)-B(10516) -! JVS(30577) = Jac_FULL(4977,901) - JVS(30577) = B(21521) -! JVS(30578) = Jac_FULL(4977,2852) - JVS(30578) = B(21526) -! JVS(30579) = Jac_FULL(4977,3896) - JVS(30579) = B(18683)+B(18685) -! JVS(30580) = Jac_FULL(4977,4793) - JVS(30580) = 0 -! JVS(30581) = Jac_FULL(4977,4977) - JVS(30581) = -B(20279)-B(20281)-B(20283)-B(20285)-B(20287)-B(20289)-B(20291)-B(20292) -! JVS(30582) = Jac_FULL(4977,5141) - JVS(30582) = 0 -! JVS(30583) = Jac_FULL(4977,5250) - JVS(30583) = B(18686)+B(21522) -! JVS(30584) = Jac_FULL(4977,5252) - JVS(30584) = -B(20286) -! JVS(30585) = Jac_FULL(4977,5253) - JVS(30585) = -B(20288) -! JVS(30586) = Jac_FULL(4977,5255) - JVS(30586) = -B(20280)-B(20282)-B(20284) -! JVS(30587) = Jac_FULL(4977,5256) - JVS(30587) = B(18684)-B(20290) -! JVS(30588) = Jac_FULL(4977,5258) - JVS(30588) = 0 -! JVS(30589) = Jac_FULL(4978,334) - JVS(30589) = B(23523) -! JVS(30590) = Jac_FULL(4978,1328) - JVS(30590) = B(23511) -! JVS(30591) = Jac_FULL(4978,1875) - JVS(30591) = B(23458) -! JVS(30592) = Jac_FULL(4978,2444) - JVS(30592) = B(23514) -! JVS(30593) = Jac_FULL(4978,2749) - JVS(30593) = B(23452) -! JVS(30594) = Jac_FULL(4978,2813) - JVS(30594) = B(23179) -! JVS(30595) = Jac_FULL(4978,3841) - JVS(30595) = B(23176) -! JVS(30596) = Jac_FULL(4978,4572) - JVS(30596) = 0 -! JVS(30597) = Jac_FULL(4978,4825) - JVS(30597) = 0 -! JVS(30598) = Jac_FULL(4978,4978) - JVS(30598) = -B(23518)-B(23520)-B(23522) -! JVS(30599) = Jac_FULL(4978,5245) - JVS(30599) = 0 -! JVS(30600) = Jac_FULL(4978,5247) - JVS(30600) = 0 -! JVS(30601) = Jac_FULL(4978,5250) - JVS(30601) = B(23180)+B(23512)+B(23515)-B(23521)+B(23524) -! JVS(30602) = Jac_FULL(4978,5252) - JVS(30602) = 0 -! JVS(30603) = Jac_FULL(4978,5253) - JVS(30603) = 0 -! JVS(30604) = Jac_FULL(4978,5255) - JVS(30604) = 0 -! JVS(30605) = Jac_FULL(4978,5256) - JVS(30605) = -B(23519) -! JVS(30606) = Jac_FULL(4979,983) - JVS(30606) = B(19591) -! JVS(30607) = Jac_FULL(4979,2822) - JVS(30607) = B(19593) -! JVS(30608) = Jac_FULL(4979,3792) - JVS(30608) = B(15003)+B(15007) -! JVS(30609) = Jac_FULL(4979,4975) - JVS(30609) = 0 -! JVS(30610) = Jac_FULL(4979,4979) - JVS(30610) = -B(17564)-B(17566)-B(17568)-B(17570)-B(17572)-B(17574)-B(17576)-B(17577) -! JVS(30611) = Jac_FULL(4979,5010) - JVS(30611) = 0 -! JVS(30612) = Jac_FULL(4979,5238) - JVS(30612) = 0 -! JVS(30613) = Jac_FULL(4979,5250) - JVS(30613) = B(15008)+B(19592) -! JVS(30614) = Jac_FULL(4979,5252) - JVS(30614) = -B(17571) -! JVS(30615) = Jac_FULL(4979,5253) - JVS(30615) = -B(17573) -! JVS(30616) = Jac_FULL(4979,5255) - JVS(30616) = -B(17565)-B(17567)-B(17569) -! JVS(30617) = Jac_FULL(4979,5256) - JVS(30617) = B(15004)-B(17575) -! JVS(30618) = Jac_FULL(4980,288) - JVS(30618) = B(315)+B(317) -! JVS(30619) = Jac_FULL(4980,853) - JVS(30619) = B(11942) -! JVS(30620) = Jac_FULL(4980,2628) - JVS(30620) = B(4463) -! JVS(30621) = Jac_FULL(4980,3856) - JVS(30621) = B(4636) -! JVS(30622) = Jac_FULL(4980,4469) - JVS(30622) = B(8190)+B(8192)+B(8196)+B(8198) -! JVS(30623) = Jac_FULL(4980,4980) - JVS(30623) = -B(1694)-B(1696)-B(1698)-B(1700)-B(1702)-B(1703)-B(1704) -! JVS(30624) = Jac_FULL(4980,5082) - JVS(30624) = 0 -! JVS(30625) = Jac_FULL(4980,5238) - JVS(30625) = B(316) -! JVS(30626) = Jac_FULL(4980,5250) - JVS(30626) = B(318)+B(4464) -! JVS(30627) = Jac_FULL(4980,5252) - JVS(30627) = -B(1697)-B(1699)+B(8193) -! JVS(30628) = Jac_FULL(4980,5253) - JVS(30628) = 0 -! JVS(30629) = Jac_FULL(4980,5255) - JVS(30629) = -B(1695)+B(8191) -! JVS(30630) = Jac_FULL(4980,5256) - JVS(30630) = -B(1701)+B(8197) -! JVS(30631) = Jac_FULL(4981,601) - JVS(30631) = B(285)+B(289) -! JVS(30632) = Jac_FULL(4981,855) - JVS(30632) = B(4398) -! JVS(30633) = Jac_FULL(4981,889) - JVS(30633) = B(11741) -! JVS(30634) = Jac_FULL(4981,1741) - JVS(30634) = B(4470) -! JVS(30635) = Jac_FULL(4981,2628) - JVS(30635) = 0 -! JVS(30636) = Jac_FULL(4981,2913) - JVS(30636) = 0 -! JVS(30637) = Jac_FULL(4981,3333) - JVS(30637) = B(4624) -! JVS(30638) = Jac_FULL(4981,3369) - JVS(30638) = B(857) -! JVS(30639) = Jac_FULL(4981,4559) - JVS(30639) = B(4477) -! JVS(30640) = Jac_FULL(4981,4860) - JVS(30640) = B(8009)+B(8011)+B(8015)+B(8017) -! JVS(30641) = Jac_FULL(4981,4980) - JVS(30641) = 0 -! JVS(30642) = Jac_FULL(4981,4981) - JVS(30642) = -B(1619)-B(1621)-B(1623)-B(1625)-B(1627)-B(1628) -! JVS(30643) = Jac_FULL(4981,5045) - JVS(30643) = 0 -! JVS(30644) = Jac_FULL(4981,5082) - JVS(30644) = 0 -! JVS(30645) = Jac_FULL(4981,5238) - JVS(30645) = B(286) -! JVS(30646) = Jac_FULL(4981,5250) - JVS(30646) = B(290)+B(4399) -! JVS(30647) = Jac_FULL(4981,5252) - JVS(30647) = -B(1622)-B(1624)+B(8012) -! JVS(30648) = Jac_FULL(4981,5253) - JVS(30648) = 0 -! JVS(30649) = Jac_FULL(4981,5255) - JVS(30649) = -B(1620)+B(8010) -! JVS(30650) = Jac_FULL(4981,5256) - JVS(30650) = -B(1626)+B(8016) -! JVS(30651) = Jac_FULL(4982,3618) - JVS(30651) = B(18800) -! JVS(30652) = Jac_FULL(4982,4570) - JVS(30652) = B(13782) -! JVS(30653) = Jac_FULL(4982,4982) - JVS(30653) = -B(16614)-B(16616)-B(16618)-B(16620) -! JVS(30654) = Jac_FULL(4982,5002) - JVS(30654) = 0 -! JVS(30655) = Jac_FULL(4982,5025) - JVS(30655) = 0 -! JVS(30656) = Jac_FULL(4982,5250) - JVS(30656) = B(13783)+B(18801) -! JVS(30657) = Jac_FULL(4982,5252) - JVS(30657) = -B(16617) -! JVS(30658) = Jac_FULL(4982,5255) - JVS(30658) = -B(16615) -! JVS(30659) = Jac_FULL(4982,5256) - JVS(30659) = -B(16619) -! JVS(30660) = Jac_FULL(4982,5258) - JVS(30660) = 0 -! JVS(30661) = Jac_FULL(4983,1891) - JVS(30661) = B(18805) -! JVS(30662) = Jac_FULL(4983,3209) - JVS(30662) = B(15606) -! JVS(30663) = Jac_FULL(4983,3237) - JVS(30663) = B(18348) -! JVS(30664) = Jac_FULL(4983,3325) - JVS(30664) = B(12360) -! JVS(30665) = Jac_FULL(4983,3458) - JVS(30665) = B(12842) -! JVS(30666) = Jac_FULL(4983,3463) - JVS(30666) = B(18486) -! JVS(30667) = Jac_FULL(4983,3467) - JVS(30667) = B(18419) -! JVS(30668) = Jac_FULL(4983,3475) - JVS(30668) = B(12680) -! JVS(30669) = Jac_FULL(4983,3476) - JVS(30669) = B(11686) -! JVS(30670) = Jac_FULL(4983,3515) - JVS(30670) = B(14923) -! JVS(30671) = Jac_FULL(4983,3555) - JVS(30671) = B(20489) -! JVS(30672) = Jac_FULL(4983,3618) - JVS(30672) = 0 -! JVS(30673) = Jac_FULL(4983,4570) - JVS(30673) = B(13778) -! JVS(30674) = Jac_FULL(4983,4773) - JVS(30674) = 0 -! JVS(30675) = Jac_FULL(4983,4792) - JVS(30675) = 0 -! JVS(30676) = Jac_FULL(4983,4795) - JVS(30676) = 0 -! JVS(30677) = Jac_FULL(4983,4864) - JVS(30677) = 0 -! JVS(30678) = Jac_FULL(4983,4916) - JVS(30678) = 0 -! JVS(30679) = Jac_FULL(4983,4928) - JVS(30679) = 0 -! JVS(30680) = Jac_FULL(4983,4966) - JVS(30680) = 0 -! JVS(30681) = Jac_FULL(4983,4968) - JVS(30681) = 0 -! JVS(30682) = Jac_FULL(4983,4982) - JVS(30682) = 0 -! JVS(30683) = Jac_FULL(4983,4983) - JVS(30683) = -B(11639)-B(11640) -! JVS(30684) = Jac_FULL(4983,5002) - JVS(30684) = 0 -! JVS(30685) = Jac_FULL(4983,5005) - JVS(30685) = 0 -! JVS(30686) = Jac_FULL(4983,5025) - JVS(30686) = 0 -! JVS(30687) = Jac_FULL(4983,5034) - JVS(30687) = 0 -! JVS(30688) = Jac_FULL(4983,5036) - JVS(30688) = 0 -! JVS(30689) = Jac_FULL(4983,5058) - JVS(30689) = 0 -! JVS(30690) = Jac_FULL(4983,5076) - JVS(30690) = 0 -! JVS(30691) = Jac_FULL(4983,5100) - JVS(30691) = 0 -! JVS(30692) = Jac_FULL(4983,5103) - JVS(30692) = 0 -! JVS(30693) = Jac_FULL(4983,5126) - JVS(30693) = 0 -! JVS(30694) = Jac_FULL(4983,5167) - JVS(30694) = 0 -! JVS(30695) = Jac_FULL(4983,5209) - JVS(30695) = 0 -! JVS(30696) = Jac_FULL(4983,5216) - JVS(30696) = B(7900) -! JVS(30697) = Jac_FULL(4983,5250) - JVS(30697) = -B(11641) -! JVS(30698) = Jac_FULL(4983,5252) - JVS(30698) = 0 -! JVS(30699) = Jac_FULL(4983,5253) - JVS(30699) = 0 -! JVS(30700) = Jac_FULL(4983,5255) - JVS(30700) = B(7901) -! JVS(30701) = Jac_FULL(4983,5256) - JVS(30701) = 0 -! JVS(30702) = Jac_FULL(4983,5258) - JVS(30702) = B(13779) -! JVS(30703) = Jac_FULL(4984,1173) - JVS(30703) = B(21162) -! JVS(30704) = Jac_FULL(4984,2987) - JVS(30704) = B(21164) -! JVS(30705) = Jac_FULL(4984,4279) - JVS(30705) = B(17639)+B(17641) -! JVS(30706) = Jac_FULL(4984,4960) - JVS(30706) = 0 -! JVS(30707) = Jac_FULL(4984,4984) - JVS(30707) = -B(19619)-B(19621)-B(19623)-B(19625)-B(19627)-B(19629) -! JVS(30708) = Jac_FULL(4984,5056) - JVS(30708) = 0 -! JVS(30709) = Jac_FULL(4984,5072) - JVS(30709) = 0 -! JVS(30710) = Jac_FULL(4984,5250) - JVS(30710) = B(17642)+B(21163) -! JVS(30711) = Jac_FULL(4984,5252) - JVS(30711) = -B(19624) -! JVS(30712) = Jac_FULL(4984,5253) - JVS(30712) = -B(19626) -! JVS(30713) = Jac_FULL(4984,5255) - JVS(30713) = -B(19620)-B(19622) -! JVS(30714) = Jac_FULL(4984,5256) - JVS(30714) = B(17640)-B(19628) -! JVS(30715) = Jac_FULL(4985,634) - JVS(30715) = B(6443)+B(6445) -! JVS(30716) = Jac_FULL(4985,2603) - JVS(30716) = B(13224) -! JVS(30717) = Jac_FULL(4985,3082) - JVS(30717) = B(6120)+B(6122) -! JVS(30718) = Jac_FULL(4985,3251) - JVS(30718) = B(9894)+B(9897) -! JVS(30719) = Jac_FULL(4985,3300) - JVS(30719) = B(13230) -! JVS(30720) = Jac_FULL(4985,3624) - JVS(30720) = 0 -! JVS(30721) = Jac_FULL(4985,3817) - JVS(30721) = 0 -! JVS(30722) = Jac_FULL(4985,4055) - JVS(30722) = 0 -! JVS(30723) = Jac_FULL(4985,4935) - JVS(30723) = 0 -! JVS(30724) = Jac_FULL(4985,4985) - JVS(30724) = -B(9818)-B(9820)-B(9822)-B(9824)-B(9826)-B(9828)-B(9829) -! JVS(30725) = Jac_FULL(4985,5089) - JVS(30725) = B(9039)+B(9045)+B(9049) -! JVS(30726) = Jac_FULL(4985,5250) - JVS(30726) = B(6121)+B(6444)+B(9046)+B(9895)+B(13225) -! JVS(30727) = Jac_FULL(4985,5252) - JVS(30727) = -B(9823) -! JVS(30728) = Jac_FULL(4985,5253) - JVS(30728) = -B(9825) -! JVS(30729) = Jac_FULL(4985,5255) - JVS(30729) = -B(9819)-B(9821) -! JVS(30730) = Jac_FULL(4985,5256) - JVS(30730) = B(9040)-B(9827) -! JVS(30731) = Jac_FULL(4985,5258) - JVS(30731) = 0 -! JVS(30732) = Jac_FULL(4986,1109) - JVS(30732) = B(12496) -! JVS(30733) = Jac_FULL(4986,1610) - JVS(30733) = B(9123)+B(9125) -! JVS(30734) = Jac_FULL(4986,1806) - JVS(30734) = B(8892)+B(8894) -! JVS(30735) = Jac_FULL(4986,1836) - JVS(30735) = 0 -! JVS(30736) = Jac_FULL(4986,2021) - JVS(30736) = B(6285)+B(6287) -! JVS(30737) = Jac_FULL(4986,2501) - JVS(30737) = 0 -! JVS(30738) = Jac_FULL(4986,2876) - JVS(30738) = B(12501) -! JVS(30739) = Jac_FULL(4986,3103) - JVS(30739) = B(5987)+B(5989) -! JVS(30740) = Jac_FULL(4986,3372) - JVS(30740) = B(5342)+B(5344) -! JVS(30741) = Jac_FULL(4986,3599) - JVS(30741) = B(5506)+B(5509) -! JVS(30742) = Jac_FULL(4986,3798) - JVS(30742) = 0 -! JVS(30743) = Jac_FULL(4986,3803) - JVS(30743) = 0 -! JVS(30744) = Jac_FULL(4986,3823) - JVS(30744) = 0 -! JVS(30745) = Jac_FULL(4986,4003) - JVS(30745) = 0 -! JVS(30746) = Jac_FULL(4986,4133) - JVS(30746) = 0 -! JVS(30747) = Jac_FULL(4986,4432) - JVS(30747) = 0 -! JVS(30748) = Jac_FULL(4986,4483) - JVS(30748) = 0 -! JVS(30749) = Jac_FULL(4986,4529) - JVS(30749) = 0 -! JVS(30750) = Jac_FULL(4986,4626) - JVS(30750) = 0 -! JVS(30751) = Jac_FULL(4986,4892) - JVS(30751) = 0 -! JVS(30752) = Jac_FULL(4986,4986) - JVS(30752) = -B(8840)-B(8842)-B(8844)-B(8846)-B(8848)-B(8850)-B(8852)-B(8853) -! JVS(30753) = Jac_FULL(4986,5123) - JVS(30753) = B(8822)+B(8828)+B(8832) -! JVS(30754) = Jac_FULL(4986,5250) - JVS(30754) = B(5343)+B(5507)+B(5988)+B(6286)+B(8829)+B(8893)+B(9124)+B(12497) -! JVS(30755) = Jac_FULL(4986,5252) - JVS(30755) = -B(8847) -! JVS(30756) = Jac_FULL(4986,5253) - JVS(30756) = -B(8849) -! JVS(30757) = Jac_FULL(4986,5255) - JVS(30757) = -B(8841)-B(8843)-B(8845) -! JVS(30758) = Jac_FULL(4986,5256) - JVS(30758) = B(8823)-B(8851) -! JVS(30759) = Jac_FULL(4986,5258) - JVS(30759) = 0 -! JVS(30760) = Jac_FULL(4987,148) - JVS(30760) = B(14409) -! JVS(30761) = Jac_FULL(4987,1351) - JVS(30761) = B(19232) -! JVS(30762) = Jac_FULL(4987,4987) - JVS(30762) = -B(17021)-B(17023)-B(17025)-B(17027)-B(17028) -! JVS(30763) = Jac_FULL(4987,5169) - JVS(30763) = 0 -! JVS(30764) = Jac_FULL(4987,5176) - JVS(30764) = B(14414) -! JVS(30765) = Jac_FULL(4987,5250) - JVS(30765) = B(14415)+B(19233) -! JVS(30766) = Jac_FULL(4987,5252) - JVS(30766) = -B(17024) -! JVS(30767) = Jac_FULL(4987,5255) - JVS(30767) = -B(17022) -! JVS(30768) = Jac_FULL(4987,5256) - JVS(30768) = -B(17026) -! JVS(30769) = Jac_FULL(4987,5258) - JVS(30769) = 0 -! JVS(30770) = Jac_FULL(4988,4988) - JVS(30770) = -B(904)-B(906)-B(908)-B(910)-B(912)-B(914)-B(916)-B(918) -! JVS(30771) = Jac_FULL(4988,5250) - JVS(30771) = -B(915)-B(917)-B(919) -! JVS(30772) = Jac_FULL(4988,5256) - JVS(30772) = -B(905) -! JVS(30773) = Jac_FULL(4988,5258) - JVS(30773) = -B(907)-B(909)-B(911)-B(913) -! JVS(30774) = Jac_FULL(4989,688) - JVS(30774) = B(11358) -! JVS(30775) = Jac_FULL(4989,1407) - JVS(30775) = B(17266) -! JVS(30776) = Jac_FULL(4989,1742) - JVS(30776) = B(11364) -! JVS(30777) = Jac_FULL(4989,1791) - JVS(30777) = B(11359)+B(11361) -! JVS(30778) = Jac_FULL(4989,2685) - JVS(30778) = B(17271) -! JVS(30779) = Jac_FULL(4989,2836) - JVS(30779) = B(11357) -! JVS(30780) = Jac_FULL(4989,4756) - JVS(30780) = 0 -! JVS(30781) = Jac_FULL(4989,4988) - JVS(30781) = 0 -! JVS(30782) = Jac_FULL(4989,4989) - JVS(30782) = -B(14679)-B(14681)-B(14683)-B(14685)-B(14687)-B(14689)-B(14691)-B(14692) -! JVS(30783) = Jac_FULL(4989,5250) - JVS(30783) = B(11360)+B(17267) -! JVS(30784) = Jac_FULL(4989,5252) - JVS(30784) = -B(14686) -! JVS(30785) = Jac_FULL(4989,5253) - JVS(30785) = -B(14688) -! JVS(30786) = Jac_FULL(4989,5255) - JVS(30786) = -B(14680)-B(14682)-B(14684) -! JVS(30787) = Jac_FULL(4989,5256) - JVS(30787) = -B(14690) -! JVS(30788) = Jac_FULL(4989,5257) - JVS(30788) = 0 -! JVS(30789) = Jac_FULL(4989,5258) - JVS(30789) = 0 -! JVS(30790) = Jac_FULL(4990,876) - JVS(30790) = B(11806) -! JVS(30791) = Jac_FULL(4990,2755) - JVS(30791) = B(11808) -! JVS(30792) = Jac_FULL(4990,3875) - JVS(30792) = B(4526)+B(4528) -! JVS(30793) = Jac_FULL(4990,4733) - JVS(30793) = 0 -! JVS(30794) = Jac_FULL(4990,4990) - JVS(30794) = -B(8073)-B(8075)-B(8077)-B(8079)-B(8081)-B(8083) -! JVS(30795) = Jac_FULL(4990,5238) - JVS(30795) = 0 -! JVS(30796) = Jac_FULL(4990,5250) - JVS(30796) = B(4529)+B(11807) -! JVS(30797) = Jac_FULL(4990,5252) - JVS(30797) = -B(8078) -! JVS(30798) = Jac_FULL(4990,5253) - JVS(30798) = -B(8080) -! JVS(30799) = Jac_FULL(4990,5255) - JVS(30799) = -B(8074)-B(8076) -! JVS(30800) = Jac_FULL(4990,5256) - JVS(30800) = B(4527)-B(8082) -! JVS(30801) = Jac_FULL(4991,1099) - JVS(30801) = B(14047) -! JVS(30802) = Jac_FULL(4991,1236) - JVS(30802) = B(22151) -! JVS(30803) = Jac_FULL(4991,2910) - JVS(30803) = B(19724) -! JVS(30804) = Jac_FULL(4991,4468) - JVS(30804) = B(21148)+B(21150)+B(21154)+B(21156) -! JVS(30805) = Jac_FULL(4991,4618) - JVS(30805) = B(7052) -! JVS(30806) = Jac_FULL(4991,4714) - JVS(30806) = 0 -! JVS(30807) = Jac_FULL(4991,4767) - JVS(30807) = 0 -! JVS(30808) = Jac_FULL(4991,4769) - JVS(30808) = 0 -! JVS(30809) = Jac_FULL(4991,4782) - JVS(30809) = 0 -! JVS(30810) = Jac_FULL(4991,4811) - JVS(30810) = 0 -! JVS(30811) = Jac_FULL(4991,4852) - JVS(30811) = 0 -! JVS(30812) = Jac_FULL(4991,4858) - JVS(30812) = 0 -! JVS(30813) = Jac_FULL(4991,4876) - JVS(30813) = 0 -! JVS(30814) = Jac_FULL(4991,4880) - JVS(30814) = 0 -! JVS(30815) = Jac_FULL(4991,4911) - JVS(30815) = 0 -! JVS(30816) = Jac_FULL(4991,4990) - JVS(30816) = 0 -! JVS(30817) = Jac_FULL(4991,4991) - JVS(30817) = -B(10848)-B(10850)-B(10852)-B(10854) -! JVS(30818) = Jac_FULL(4991,5119) - JVS(30818) = 0 -! JVS(30819) = Jac_FULL(4991,5192) - JVS(30819) = 0 -! JVS(30820) = Jac_FULL(4991,5238) - JVS(30820) = 0 -! JVS(30821) = Jac_FULL(4991,5250) - JVS(30821) = B(7053)+B(14048) -! JVS(30822) = Jac_FULL(4991,5252) - JVS(30822) = -B(10851)+B(21151) -! JVS(30823) = Jac_FULL(4991,5253) - JVS(30823) = 0 -! JVS(30824) = Jac_FULL(4991,5255) - JVS(30824) = -B(10849)+B(21149) -! JVS(30825) = Jac_FULL(4991,5256) - JVS(30825) = -B(10853)+B(21155) -! JVS(30826) = Jac_FULL(4991,5258) - JVS(30826) = 0 -! JVS(30827) = Jac_FULL(4992,1299) - JVS(30827) = B(10162) -! JVS(30828) = Jac_FULL(4992,1330) - JVS(30828) = B(10157)+B(10159) -! JVS(30829) = Jac_FULL(4992,4018) - JVS(30829) = B(2939) -! JVS(30830) = Jac_FULL(4992,4685) - JVS(30830) = B(6446)+B(6452)+B(6456)+B(6458) -! JVS(30831) = Jac_FULL(4992,4992) - JVS(30831) = -B(6472)-B(6474)-B(6476)-B(6478)-B(6479)-B(6480) -! JVS(30832) = Jac_FULL(4992,5250) - JVS(30832) = B(10158) -! JVS(30833) = Jac_FULL(4992,5252) - JVS(30833) = B(6453)-B(6475) -! JVS(30834) = Jac_FULL(4992,5253) - JVS(30834) = 0 -! JVS(30835) = Jac_FULL(4992,5255) - JVS(30835) = B(6447)-B(6473) -! JVS(30836) = Jac_FULL(4992,5256) - JVS(30836) = B(6457)-B(6477) -! JVS(30837) = Jac_FULL(4992,5258) - JVS(30837) = 0 -! JVS(30838) = Jac_FULL(4993,3280) - JVS(30838) = B(15554) -! JVS(30839) = Jac_FULL(4993,3290) - JVS(30839) = B(15560) -! JVS(30840) = Jac_FULL(4993,4993) - JVS(30840) = -B(12444)-B(12446)-B(12448)-B(12450)-B(12452)-B(12454)-B(12456)-B(12457) -! JVS(30841) = Jac_FULL(4993,5209) - JVS(30841) = B(8807)+B(8817)+B(8820) -! JVS(30842) = Jac_FULL(4993,5250) - JVS(30842) = B(8818)+B(15555) -! JVS(30843) = Jac_FULL(4993,5252) - JVS(30843) = -B(12451) -! JVS(30844) = Jac_FULL(4993,5253) - JVS(30844) = -B(12453) -! JVS(30845) = Jac_FULL(4993,5255) - JVS(30845) = -B(12445)-B(12447)-B(12449) -! JVS(30846) = Jac_FULL(4993,5256) - JVS(30846) = B(8808)-B(12455) -! JVS(30847) = Jac_FULL(4994,832) - JVS(30847) = B(11989) -! JVS(30848) = Jac_FULL(4994,3023) - JVS(30848) = B(11991) -! JVS(30849) = Jac_FULL(4994,3877) - JVS(30849) = B(4682)+B(4684) -! JVS(30850) = Jac_FULL(4994,4886) - JVS(30850) = 0 -! JVS(30851) = Jac_FULL(4994,4994) - JVS(30851) = -B(8235)-B(8237)-B(8239)-B(8241)-B(8243)-B(8245)-B(8247)-B(8248) -! JVS(30852) = Jac_FULL(4994,5238) - JVS(30852) = 0 -! JVS(30853) = Jac_FULL(4994,5250) - JVS(30853) = B(4685)+B(11990) -! JVS(30854) = Jac_FULL(4994,5252) - JVS(30854) = -B(8242) -! JVS(30855) = Jac_FULL(4994,5253) - JVS(30855) = -B(8244) -! JVS(30856) = Jac_FULL(4994,5255) - JVS(30856) = -B(8236)-B(8238)-B(8240) -! JVS(30857) = Jac_FULL(4994,5256) - JVS(30857) = B(4683)-B(8246) -! JVS(30858) = Jac_FULL(4995,258) - JVS(30858) = B(17453) -! JVS(30859) = Jac_FULL(4995,1475) - JVS(30859) = B(17455) -! JVS(30860) = Jac_FULL(4995,1686) - JVS(30860) = B(84) -! JVS(30861) = Jac_FULL(4995,2456) - JVS(30861) = B(3640) -! JVS(30862) = Jac_FULL(4995,3580) - JVS(30862) = B(14210) -! JVS(30863) = Jac_FULL(4995,4158) - JVS(30863) = 0 -! JVS(30864) = Jac_FULL(4995,4248) - JVS(30864) = B(11700) -! JVS(30865) = Jac_FULL(4995,4360) - JVS(30865) = 0 -! JVS(30866) = Jac_FULL(4995,4540) - JVS(30866) = B(11617) -! JVS(30867) = Jac_FULL(4995,4785) - JVS(30867) = 0 -! JVS(30868) = Jac_FULL(4995,4882) - JVS(30868) = 0 -! JVS(30869) = Jac_FULL(4995,4962) - JVS(30869) = B(14887)+B(14893)+B(14897)+B(14899) -! JVS(30870) = Jac_FULL(4995,4995) - JVS(30870) = -B(932)-B(934)-B(936)-B(938)-B(940)-B(941)-B(942) -! JVS(30871) = Jac_FULL(4995,5081) - JVS(30871) = 0 -! JVS(30872) = Jac_FULL(4995,5140) - JVS(30872) = B(11754) -! JVS(30873) = Jac_FULL(4995,5148) - JVS(30873) = 0 -! JVS(30874) = Jac_FULL(4995,5163) - JVS(30874) = 0 -! JVS(30875) = Jac_FULL(4995,5181) - JVS(30875) = 0 -! JVS(30876) = Jac_FULL(4995,5192) - JVS(30876) = 0 -! JVS(30877) = Jac_FULL(4995,5208) - JVS(30877) = 0 -! JVS(30878) = Jac_FULL(4995,5229) - JVS(30878) = 0 -! JVS(30879) = Jac_FULL(4995,5250) - JVS(30879) = B(85)+B(3641)+B(17454) -! JVS(30880) = Jac_FULL(4995,5252) - JVS(30880) = -B(935)-B(937)+B(14894) -! JVS(30881) = Jac_FULL(4995,5253) - JVS(30881) = 0 -! JVS(30882) = Jac_FULL(4995,5255) - JVS(30882) = -B(933)+B(14888) -! JVS(30883) = Jac_FULL(4995,5256) - JVS(30883) = -B(939)+B(14898) -! JVS(30884) = Jac_FULL(4996,557) - JVS(30884) = B(14201) -! JVS(30885) = Jac_FULL(4996,1935) - JVS(30885) = 0 -! JVS(30886) = Jac_FULL(4996,2009) - JVS(30886) = B(14867) -! JVS(30887) = Jac_FULL(4996,3415) - JVS(30887) = B(14872) -! JVS(30888) = Jac_FULL(4996,3580) - JVS(30888) = B(14208) -! JVS(30889) = Jac_FULL(4996,4158) - JVS(30889) = B(11019) -! JVS(30890) = Jac_FULL(4996,4354) - JVS(30890) = B(11539) -! JVS(30891) = Jac_FULL(4996,4360) - JVS(30891) = 0 -! JVS(30892) = Jac_FULL(4996,4882) - JVS(30892) = 0 -! JVS(30893) = Jac_FULL(4996,4883) - JVS(30893) = B(14876) -! JVS(30894) = Jac_FULL(4996,4996) - JVS(30894) = -B(14202)-B(14204)-B(14206)-B(14207) -! JVS(30895) = Jac_FULL(4996,5081) - JVS(30895) = 0 -! JVS(30896) = Jac_FULL(4996,5181) - JVS(30896) = 0 -! JVS(30897) = Jac_FULL(4996,5250) - JVS(30897) = -B(14205)+B(14209)+B(14868)+B(14877) -! JVS(30898) = Jac_FULL(4996,5252) - JVS(30898) = 0 -! JVS(30899) = Jac_FULL(4996,5255) - JVS(30899) = 0 -! JVS(30900) = Jac_FULL(4996,5256) - JVS(30900) = -B(14203) -! JVS(30901) = Jac_FULL(4997,2104) - JVS(30901) = B(12900) -! JVS(30902) = Jac_FULL(4997,2148) - JVS(30902) = B(5823) -! JVS(30903) = Jac_FULL(4997,4094) - JVS(30903) = 0 -! JVS(30904) = Jac_FULL(4997,4997) - JVS(30904) = -B(9457)-B(9459)-B(9461)-B(9463)-B(9465)-B(9466) -! JVS(30905) = Jac_FULL(4997,5066) - JVS(30905) = 0 -! JVS(30906) = Jac_FULL(4997,5250) - JVS(30906) = 0 -! JVS(30907) = Jac_FULL(4997,5251) - JVS(30907) = -B(9458) -! JVS(30908) = Jac_FULL(4997,5252) - JVS(30908) = -B(9460) -! JVS(30909) = Jac_FULL(4997,5253) - JVS(30909) = -B(9462) -! JVS(30910) = Jac_FULL(4997,5254) - JVS(30910) = -B(9464) -! JVS(30911) = Jac_FULL(4997,5256) - JVS(30911) = 0 -! JVS(30912) = Jac_FULL(4997,5258) - JVS(30912) = 0 -! JVS(30913) = Jac_FULL(4998,3210) - JVS(30913) = B(5908) -! JVS(30914) = Jac_FULL(4998,4093) - JVS(30914) = 0 -! JVS(30915) = Jac_FULL(4998,4998) - JVS(30915) = -B(9568)-B(9570)-B(9572)-B(9574)-B(9576)-B(9577) -! JVS(30916) = Jac_FULL(4998,5068) - JVS(30916) = 0 -! JVS(30917) = Jac_FULL(4998,5250) - JVS(30917) = 0 -! JVS(30918) = Jac_FULL(4998,5251) - JVS(30918) = -B(9569) -! JVS(30919) = Jac_FULL(4998,5252) - JVS(30919) = -B(9571) -! JVS(30920) = Jac_FULL(4998,5253) - JVS(30920) = -B(9573) -! JVS(30921) = Jac_FULL(4998,5254) - JVS(30921) = -B(9575) -! JVS(30922) = Jac_FULL(4998,5256) - JVS(30922) = 0 -! JVS(30923) = Jac_FULL(4998,5258) - JVS(30923) = 0 -! JVS(30924) = Jac_FULL(4999,1642) - JVS(30924) = B(10361) -! JVS(30925) = Jac_FULL(4999,2081) - JVS(30925) = B(10411) -! JVS(30926) = Jac_FULL(4999,4999) - JVS(30926) = -B(13534)-B(13536)-B(13538)-B(13540)-B(13542)-B(13543) -! JVS(30927) = Jac_FULL(4999,5049) - JVS(30927) = 0 -! JVS(30928) = Jac_FULL(4999,5168) - JVS(30928) = 0 -! JVS(30929) = Jac_FULL(4999,5220) - JVS(30929) = 0 -! JVS(30930) = Jac_FULL(4999,5251) - JVS(30930) = -B(13535) -! JVS(30931) = Jac_FULL(4999,5252) - JVS(30931) = -B(13537) -! JVS(30932) = Jac_FULL(4999,5253) - JVS(30932) = -B(13539) -! JVS(30933) = Jac_FULL(4999,5254) - JVS(30933) = -B(13541) -! JVS(30934) = Jac_FULL(4999,5258) - JVS(30934) = 0 -! JVS(30935) = Jac_FULL(5000,1369) - JVS(30935) = B(3718) -! JVS(30936) = Jac_FULL(5000,1671) - JVS(30936) = B(3946) -! JVS(30937) = Jac_FULL(5000,1882) - JVS(30937) = B(4077) -! JVS(30938) = Jac_FULL(5000,2037) - JVS(30938) = B(3741) -! JVS(30939) = Jac_FULL(5000,2110) - JVS(30939) = B(11568) -! JVS(30940) = Jac_FULL(5000,2434) - JVS(30940) = B(11562) -! JVS(30941) = Jac_FULL(5000,2675) - JVS(30941) = B(11491) -! JVS(30942) = Jac_FULL(5000,2815) - JVS(30942) = B(11563) -! JVS(30943) = Jac_FULL(5000,2869) - JVS(30943) = B(4022) -! JVS(30944) = Jac_FULL(5000,3020) - JVS(30944) = B(11569) -! JVS(30945) = Jac_FULL(5000,3256) - JVS(30945) = 0 -! JVS(30946) = Jac_FULL(5000,3299) - JVS(30946) = B(3736) -! JVS(30947) = Jac_FULL(5000,3462) - JVS(30947) = B(4308) -! JVS(30948) = Jac_FULL(5000,3603) - JVS(30948) = B(4080) -! JVS(30949) = Jac_FULL(5000,3623) - JVS(30949) = B(3938) -! JVS(30950) = Jac_FULL(5000,4112) - JVS(30950) = 0 -! JVS(30951) = Jac_FULL(5000,4316) - JVS(30951) = B(7761)+B(7765)+B(7769)+B(7771) -! JVS(30952) = Jac_FULL(5000,4364) - JVS(30952) = 0 -! JVS(30953) = Jac_FULL(5000,4512) - JVS(30953) = 0 -! JVS(30954) = Jac_FULL(5000,4553) - JVS(30954) = B(7785)+B(7787)+B(7791)+B(7793) -! JVS(30955) = Jac_FULL(5000,4554) - JVS(30955) = 0 -! JVS(30956) = Jac_FULL(5000,4555) - JVS(30956) = B(165) -! JVS(30957) = Jac_FULL(5000,4585) - JVS(30957) = 0 -! JVS(30958) = Jac_FULL(5000,4763) - JVS(30958) = B(1396) -! JVS(30959) = Jac_FULL(5000,4780) - JVS(30959) = 0 -! JVS(30960) = Jac_FULL(5000,4783) - JVS(30960) = 0 -! JVS(30961) = Jac_FULL(5000,4853) - JVS(30961) = 0 -! JVS(30962) = Jac_FULL(5000,4854) - JVS(30962) = 0 -! JVS(30963) = Jac_FULL(5000,4908) - JVS(30963) = B(4027)+B(4029)+B(4031)+B(4033)+B(4035) -! JVS(30964) = Jac_FULL(5000,5000) - JVS(30964) = -B(1252)-B(1254) -! JVS(30965) = Jac_FULL(5000,5032) - JVS(30965) = 0 -! JVS(30966) = Jac_FULL(5000,5060) - JVS(30966) = 0 -! JVS(30967) = Jac_FULL(5000,5072) - JVS(30967) = 0 -! JVS(30968) = Jac_FULL(5000,5101) - JVS(30968) = 0 -! JVS(30969) = Jac_FULL(5000,5129) - JVS(30969) = B(1027) -! JVS(30970) = Jac_FULL(5000,5203) - JVS(30970) = 0 -! JVS(30971) = Jac_FULL(5000,5215) - JVS(30971) = 0 -! JVS(30972) = Jac_FULL(5000,5226) - JVS(30972) = 0 -! JVS(30973) = Jac_FULL(5000,5250) - JVS(30973) = -B(1253)+B(3719)+B(3737)+B(3742)+B(11492)+B(11564)+B(11570) -! JVS(30974) = Jac_FULL(5000,5251) - JVS(30974) = B(4028) -! JVS(30975) = Jac_FULL(5000,5252) - JVS(30975) = B(4030)+B(7766)+B(7788) -! JVS(30976) = Jac_FULL(5000,5253) - JVS(30976) = B(4032) -! JVS(30977) = Jac_FULL(5000,5254) - JVS(30977) = B(4034) -! JVS(30978) = Jac_FULL(5000,5255) - JVS(30978) = B(7762)+B(7786) -! JVS(30979) = Jac_FULL(5000,5256) - JVS(30979) = B(7770)+B(7792) -! JVS(30980) = Jac_FULL(5000,5258) - JVS(30980) = B(166) -! JVS(30981) = Jac_FULL(5001,915) - JVS(30981) = B(12689) -! JVS(30982) = Jac_FULL(5001,1084) - JVS(30982) = B(12684)+B(12686) -! JVS(30983) = Jac_FULL(5001,3438) - JVS(30983) = B(9879) -! JVS(30984) = Jac_FULL(5001,3457) - JVS(30984) = B(10171) -! JVS(30985) = Jac_FULL(5001,3569) - JVS(30985) = B(9877) -! JVS(30986) = Jac_FULL(5001,3581) - JVS(30986) = B(10169) -! JVS(30987) = Jac_FULL(5001,3610) - JVS(30987) = B(10006) -! JVS(30988) = Jac_FULL(5001,3614) - JVS(30988) = B(9111) -! JVS(30989) = Jac_FULL(5001,4125) - JVS(30989) = B(12693) -! JVS(30990) = Jac_FULL(5001,4400) - JVS(30990) = 0 -! JVS(30991) = Jac_FULL(5001,4568) - JVS(30991) = 0 -! JVS(30992) = Jac_FULL(5001,4569) - JVS(30992) = B(6159) -! JVS(30993) = Jac_FULL(5001,4684) - JVS(30993) = B(9083)+B(9089)+B(9093)+B(9095) -! JVS(30994) = Jac_FULL(5001,4718) - JVS(30994) = 0 -! JVS(30995) = Jac_FULL(5001,4725) - JVS(30995) = 0 -! JVS(30996) = Jac_FULL(5001,4729) - JVS(30996) = B(5528) -! JVS(30997) = Jac_FULL(5001,4749) - JVS(30997) = 0 -! JVS(30998) = Jac_FULL(5001,4758) - JVS(30998) = 0 -! JVS(30999) = Jac_FULL(5001,4893) - JVS(30999) = 0 -! JVS(31000) = Jac_FULL(5001,4905) - JVS(31000) = 0 -! JVS(31001) = Jac_FULL(5001,4982) - JVS(31001) = 0 -! JVS(31002) = Jac_FULL(5001,5001) - JVS(31002) = -B(9097)-B(9099)-B(9101)-B(9103)-B(9104) -! JVS(31003) = Jac_FULL(5001,5002) - JVS(31003) = 0 -! JVS(31004) = Jac_FULL(5001,5025) - JVS(31004) = 0 -! JVS(31005) = Jac_FULL(5001,5204) - JVS(31005) = 0 -! JVS(31006) = Jac_FULL(5001,5217) - JVS(31006) = 0 -! JVS(31007) = Jac_FULL(5001,5250) - JVS(31007) = B(9880)+B(10172)+B(12685)+B(12694) -! JVS(31008) = Jac_FULL(5001,5252) - JVS(31008) = B(9090)-B(9100) -! JVS(31009) = Jac_FULL(5001,5253) - JVS(31009) = 0 -! JVS(31010) = Jac_FULL(5001,5255) - JVS(31010) = B(9084)-B(9098) -! JVS(31011) = Jac_FULL(5001,5256) - JVS(31011) = B(9094)-B(9102) -! JVS(31012) = Jac_FULL(5001,5258) - JVS(31012) = 0 -! JVS(31013) = Jac_FULL(5002,5002) - JVS(31013) = -B(10580)-B(10582)-B(10584)-B(10586)-B(10588)-B(10590)-B(10592)-B(10593) -! JVS(31014) = Jac_FULL(5002,5204) - JVS(31014) = B(6809) -! JVS(31015) = Jac_FULL(5002,5250) - JVS(31015) = -B(10587)-B(10589)-B(10591) -! JVS(31016) = Jac_FULL(5002,5256) - JVS(31016) = -B(10581) -! JVS(31017) = Jac_FULL(5002,5258) - JVS(31017) = -B(10583)-B(10585) -! JVS(31018) = Jac_FULL(5003,2491) - JVS(31018) = B(18830) -! JVS(31019) = Jac_FULL(5003,3392) - JVS(31019) = B(21590) -! JVS(31020) = Jac_FULL(5003,3563) - JVS(31020) = B(21585) -! JVS(31021) = Jac_FULL(5003,4378) - JVS(31021) = 0 -! JVS(31022) = Jac_FULL(5003,5003) - JVS(31022) = -B(20410)-B(20412)-B(20414)-B(20416)-B(20418)-B(20420)-B(20422)-B(20423) -! JVS(31023) = Jac_FULL(5003,5075) - JVS(31023) = 0 -! JVS(31024) = Jac_FULL(5003,5154) - JVS(31024) = 0 -! JVS(31025) = Jac_FULL(5003,5174) - JVS(31025) = 0 -! JVS(31026) = Jac_FULL(5003,5250) - JVS(31026) = B(18831)+B(21586) -! JVS(31027) = Jac_FULL(5003,5252) - JVS(31027) = -B(20417) -! JVS(31028) = Jac_FULL(5003,5253) - JVS(31028) = -B(20419) -! JVS(31029) = Jac_FULL(5003,5255) - JVS(31029) = -B(20411)-B(20413)-B(20415) -! JVS(31030) = Jac_FULL(5003,5256) - JVS(31030) = -B(20421) -! JVS(31031) = Jac_FULL(5004,729) - JVS(31031) = B(19039) -! JVS(31032) = Jac_FULL(5004,1238) - JVS(31032) = B(23491) -! JVS(31033) = Jac_FULL(5004,1320) - JVS(31033) = B(21648) -! JVS(31034) = Jac_FULL(5004,1762) - JVS(31034) = 0 -! JVS(31035) = Jac_FULL(5004,2139) - JVS(31035) = B(23495) -! JVS(31036) = Jac_FULL(5004,3008) - JVS(31036) = B(21653) -! JVS(31037) = Jac_FULL(5004,3248) - JVS(31037) = B(22888)+B(22890)+B(22892) -! JVS(31038) = Jac_FULL(5004,3913) - JVS(31038) = B(22416) -! JVS(31039) = Jac_FULL(5004,4278) - JVS(31039) = B(21790)+B(21792)+B(21794) -! JVS(31040) = Jac_FULL(5004,4350) - JVS(31040) = 0 -! JVS(31041) = Jac_FULL(5004,4552) - JVS(31041) = 0 -! JVS(31042) = Jac_FULL(5004,4789) - JVS(31042) = 0 -! JVS(31043) = Jac_FULL(5004,4812) - JVS(31043) = B(23127)+B(23129)+B(23133)+B(23136) -! JVS(31044) = Jac_FULL(5004,4926) - JVS(31044) = 0 -! JVS(31045) = Jac_FULL(5004,4957) - JVS(31045) = 0 -! JVS(31046) = Jac_FULL(5004,4996) - JVS(31046) = 0 -! JVS(31047) = Jac_FULL(5004,5004) - JVS(31047) = -B(20596)-B(20598)-B(20600)-B(20602)-B(20604)-B(20606)-B(20608)-B(20609) -! JVS(31048) = Jac_FULL(5004,5041) - JVS(31048) = 0 -! JVS(31049) = Jac_FULL(5004,5081) - JVS(31049) = 0 -! JVS(31050) = Jac_FULL(5004,5114) - JVS(31050) = 0 -! JVS(31051) = Jac_FULL(5004,5181) - JVS(31051) = 0 -! JVS(31052) = Jac_FULL(5004,5215) - JVS(31052) = 0 -! JVS(31053) = Jac_FULL(5004,5250) - JVS(31053) = B(21649)+B(21793)+B(22891)+B(23492) -! JVS(31054) = Jac_FULL(5004,5252) - JVS(31054) = -B(20603)+B(23130) -! JVS(31055) = Jac_FULL(5004,5253) - JVS(31055) = -B(20605) -! JVS(31056) = Jac_FULL(5004,5255) - JVS(31056) = -B(20597)-B(20599)-B(20601)+B(23128) -! JVS(31057) = Jac_FULL(5004,5256) - JVS(31057) = -B(20607)+B(21791)+B(22889)+B(23134) -! JVS(31058) = Jac_FULL(5005,2491) - JVS(31058) = B(18828) -! JVS(31059) = Jac_FULL(5005,3532) - JVS(31059) = B(20492) -! JVS(31060) = Jac_FULL(5005,3555) - JVS(31060) = B(20487) -! JVS(31061) = Jac_FULL(5005,4378) - JVS(31061) = 0 -! JVS(31062) = Jac_FULL(5005,5005) - JVS(31062) = -B(20396)-B(20398)-B(20400)-B(20402)-B(20404)-B(20406)-B(20408)-B(20409) -! JVS(31063) = Jac_FULL(5005,5154) - JVS(31063) = 0 -! JVS(31064) = Jac_FULL(5005,5167) - JVS(31064) = 0 -! JVS(31065) = Jac_FULL(5005,5174) - JVS(31065) = 0 -! JVS(31066) = Jac_FULL(5005,5250) - JVS(31066) = B(18829)+B(20488) -! JVS(31067) = Jac_FULL(5005,5252) - JVS(31067) = -B(20403) -! JVS(31068) = Jac_FULL(5005,5253) - JVS(31068) = -B(20405) -! JVS(31069) = Jac_FULL(5005,5255) - JVS(31069) = -B(20397)-B(20399)-B(20401) -! JVS(31070) = Jac_FULL(5005,5256) - JVS(31070) = -B(20407) -! JVS(31071) = Jac_FULL(5006,158) - JVS(31071) = B(20849) -! JVS(31072) = Jac_FULL(5006,180) - JVS(31072) = B(19315) -! JVS(31073) = Jac_FULL(5006,880) - JVS(31073) = 0 -! JVS(31074) = Jac_FULL(5006,1237) - JVS(31074) = 0 -! JVS(31075) = Jac_FULL(5006,1317) - JVS(31075) = B(20929) -! JVS(31076) = Jac_FULL(5006,1493) - JVS(31076) = B(23012)+B(23014) -! JVS(31077) = Jac_FULL(5006,1996) - JVS(31077) = 0 -! JVS(31078) = Jac_FULL(5006,2155) - JVS(31078) = 0 -! JVS(31079) = Jac_FULL(5006,2273) - JVS(31079) = B(17121) -! JVS(31080) = Jac_FULL(5006,2312) - JVS(31080) = 0 -! JVS(31081) = Jac_FULL(5006,2651) - JVS(31081) = B(20934) -! JVS(31082) = Jac_FULL(5006,4197) - JVS(31082) = 0 -! JVS(31083) = Jac_FULL(5006,4315) - JVS(31083) = 0 -! JVS(31084) = Jac_FULL(5006,4567) - JVS(31084) = 0 -! JVS(31085) = Jac_FULL(5006,4638) - JVS(31085) = 0 -! JVS(31086) = Jac_FULL(5006,4855) - JVS(31086) = 0 -! JVS(31087) = Jac_FULL(5006,4953) - JVS(31087) = 0 -! JVS(31088) = Jac_FULL(5006,5006) - JVS(31088) = -B(19361)-B(19363)-B(19365)-B(19367)-B(19369)-B(19371)-B(19373)-B(19374) -! JVS(31089) = Jac_FULL(5006,5083) - JVS(31089) = 0 -! JVS(31090) = Jac_FULL(5006,5084) - JVS(31090) = 0 -! JVS(31091) = Jac_FULL(5006,5095) - JVS(31091) = B(19316)+B(19324) -! JVS(31092) = Jac_FULL(5006,5236) - JVS(31092) = 0 -! JVS(31093) = Jac_FULL(5006,5250) - JVS(31093) = B(19325)+B(20930)+B(23013) -! JVS(31094) = Jac_FULL(5006,5252) - JVS(31094) = -B(19368) -! JVS(31095) = Jac_FULL(5006,5253) - JVS(31095) = -B(19370) -! JVS(31096) = Jac_FULL(5006,5255) - JVS(31096) = -B(19362)-B(19364)-B(19366) -! JVS(31097) = Jac_FULL(5006,5256) - JVS(31097) = B(19317)-B(19372) -! JVS(31098) = Jac_FULL(5006,5258) - JVS(31098) = 0 -! JVS(31099) = Jac_FULL(5007,393) - JVS(31099) = B(11514) -! JVS(31100) = Jac_FULL(5007,757) - JVS(31100) = B(98) -! JVS(31101) = Jac_FULL(5007,1134) - JVS(31101) = B(11516) -! JVS(31102) = Jac_FULL(5007,2503) - JVS(31102) = B(3701) -! JVS(31103) = Jac_FULL(5007,3465) - JVS(31103) = B(457) -! JVS(31104) = Jac_FULL(5007,3466) - JVS(31104) = B(463) -! JVS(31105) = Jac_FULL(5007,4737) - JVS(31105) = B(3906) -! JVS(31106) = Jac_FULL(5007,5007) - JVS(31106) = -B(987)-B(989)-B(991)-B(993)-B(995)-B(996)-B(997) -! JVS(31107) = Jac_FULL(5007,5008) - JVS(31107) = B(7711)+B(7717)+B(7721)+B(7723) -! JVS(31108) = Jac_FULL(5007,5062) - JVS(31108) = 0 -! JVS(31109) = Jac_FULL(5007,5063) - JVS(31109) = 0 -! JVS(31110) = Jac_FULL(5007,5116) - JVS(31110) = 0 -! JVS(31111) = Jac_FULL(5007,5250) - JVS(31111) = B(99)+B(458)+B(464)+B(3702)+B(11515) -! JVS(31112) = Jac_FULL(5007,5252) - JVS(31112) = -B(990)-B(992)+B(7718) -! JVS(31113) = Jac_FULL(5007,5253) - JVS(31113) = 0 -! JVS(31114) = Jac_FULL(5007,5255) - JVS(31114) = -B(988)+B(7712) -! JVS(31115) = Jac_FULL(5007,5256) - JVS(31115) = -B(994)+B(7722) -! JVS(31116) = Jac_FULL(5007,5258) - JVS(31116) = 0 -! JVS(31117) = Jac_FULL(5008,1134) - JVS(31117) = B(11517) -! JVS(31118) = Jac_FULL(5008,1607) - JVS(31118) = B(17694) -! JVS(31119) = Jac_FULL(5008,2197) - JVS(31119) = B(17698)+B(17699) -! JVS(31120) = Jac_FULL(5008,2684) - JVS(31120) = B(11519) -! JVS(31121) = Jac_FULL(5008,4697) - JVS(31121) = 0 -! JVS(31122) = Jac_FULL(5008,4737) - JVS(31122) = B(3907)+B(3911) -! JVS(31123) = Jac_FULL(5008,5008) - JVS(31123) = -B(7711)-B(7713)-B(7715)-B(7717)-B(7719)-B(7721)-B(7723)-B(7724) -! JVS(31124) = Jac_FULL(5008,5061) - JVS(31124) = 0 -! JVS(31125) = Jac_FULL(5008,5063) - JVS(31125) = 0 -! JVS(31126) = Jac_FULL(5008,5116) - JVS(31126) = 0 -! JVS(31127) = Jac_FULL(5008,5250) - JVS(31127) = B(3912)+B(11518)+B(17700) -! JVS(31128) = Jac_FULL(5008,5252) - JVS(31128) = -B(7718) -! JVS(31129) = Jac_FULL(5008,5253) - JVS(31129) = -B(7720) -! JVS(31130) = Jac_FULL(5008,5255) - JVS(31130) = -B(7712)-B(7714)-B(7716) -! JVS(31131) = Jac_FULL(5008,5256) - JVS(31131) = B(3908)-B(7722) -! JVS(31132) = Jac_FULL(5009,1778) - JVS(31132) = B(4961) -! JVS(31133) = Jac_FULL(5009,2278) - JVS(31133) = B(4924) -! JVS(31134) = Jac_FULL(5009,3007) - JVS(31134) = B(21227) -! JVS(31135) = Jac_FULL(5009,4521) - JVS(31135) = 0 -! JVS(31136) = Jac_FULL(5009,4593) - JVS(31136) = 0 -! JVS(31137) = Jac_FULL(5009,4689) - JVS(31137) = B(12924) -! JVS(31138) = Jac_FULL(5009,5009) - JVS(31138) = -B(4967)-B(4969)-B(4971) -! JVS(31139) = Jac_FULL(5009,5066) - JVS(31139) = 0 -! JVS(31140) = Jac_FULL(5009,5096) - JVS(31140) = B(2124) -! JVS(31141) = Jac_FULL(5009,5144) - JVS(31141) = 0 -! JVS(31142) = Jac_FULL(5009,5190) - JVS(31142) = 0 -! JVS(31143) = Jac_FULL(5009,5250) - JVS(31143) = B(4925)+B(4962)-B(4970)+B(21228) -! JVS(31144) = Jac_FULL(5009,5252) - JVS(31144) = 0 -! JVS(31145) = Jac_FULL(5009,5253) - JVS(31145) = 0 -! JVS(31146) = Jac_FULL(5009,5255) - JVS(31146) = 0 -! JVS(31147) = Jac_FULL(5009,5256) - JVS(31147) = -B(4968) -! JVS(31148) = Jac_FULL(5009,5258) - JVS(31148) = 0 -! JVS(31149) = Jac_FULL(5010,435) - JVS(31149) = B(11803) -! JVS(31150) = Jac_FULL(5010,1506) - JVS(31150) = B(11792) -! JVS(31151) = Jac_FULL(5010,1564) - JVS(31151) = B(11819) -! JVS(31152) = Jac_FULL(5010,1798) - JVS(31152) = B(11795) -! JVS(31153) = Jac_FULL(5010,2543) - JVS(31153) = 0 -! JVS(31154) = Jac_FULL(5010,2653) - JVS(31154) = 0 -! JVS(31155) = Jac_FULL(5010,3869) - JVS(31155) = 0 -! JVS(31156) = Jac_FULL(5010,3967) - JVS(31156) = B(8070) -! JVS(31157) = Jac_FULL(5010,4733) - JVS(31157) = 0 -! JVS(31158) = Jac_FULL(5010,4974) - JVS(31158) = 0 -! JVS(31159) = Jac_FULL(5010,5010) - JVS(31159) = -B(11798)-B(11799)-B(11801) -! JVS(31160) = Jac_FULL(5010,5238) - JVS(31160) = 0 -! JVS(31161) = Jac_FULL(5010,5250) - JVS(31161) = B(11793)+B(11796)-B(11800)-B(11802)+B(11804) -! JVS(31162) = Jac_FULL(5010,5252) - JVS(31162) = 0 -! JVS(31163) = Jac_FULL(5010,5255) - JVS(31163) = 0 -! JVS(31164) = Jac_FULL(5010,5256) - JVS(31164) = 0 -! JVS(31165) = Jac_FULL(5011,1378) - JVS(31165) = B(13236) -! JVS(31166) = Jac_FULL(5011,1432) - JVS(31166) = B(13231)+B(13233) -! JVS(31167) = Jac_FULL(5011,3366) - JVS(31167) = B(13240) -! JVS(31168) = Jac_FULL(5011,3624) - JVS(31168) = 0 -! JVS(31169) = Jac_FULL(5011,3702) - JVS(31169) = 0 -! JVS(31170) = Jac_FULL(5011,4569) - JVS(31170) = B(6160) -! JVS(31171) = Jac_FULL(5011,4680) - JVS(31171) = B(9853)+B(9859)+B(9863)+B(9865) -! JVS(31172) = Jac_FULL(5011,4801) - JVS(31172) = B(7039) -! JVS(31173) = Jac_FULL(5011,4802) - JVS(31173) = 0 -! JVS(31174) = Jac_FULL(5011,4934) - JVS(31174) = 0 -! JVS(31175) = Jac_FULL(5011,4935) - JVS(31175) = 0 -! JVS(31176) = Jac_FULL(5011,4975) - JVS(31176) = 0 -! JVS(31177) = Jac_FULL(5011,4979) - JVS(31177) = 0 -! JVS(31178) = Jac_FULL(5011,4992) - JVS(31178) = 0 -! JVS(31179) = Jac_FULL(5011,5010) - JVS(31179) = 0 -! JVS(31180) = Jac_FULL(5011,5011) - JVS(31180) = -B(9867)-B(9869)-B(9871)-B(9873) -! JVS(31181) = Jac_FULL(5011,5032) - JVS(31181) = 0 -! JVS(31182) = Jac_FULL(5011,5119) - JVS(31182) = 0 -! JVS(31183) = Jac_FULL(5011,5120) - JVS(31183) = 0 -! JVS(31184) = Jac_FULL(5011,5151) - JVS(31184) = 0 -! JVS(31185) = Jac_FULL(5011,5238) - JVS(31185) = 0 -! JVS(31186) = Jac_FULL(5011,5250) - JVS(31186) = B(7040)+B(13232)+B(13241) -! JVS(31187) = Jac_FULL(5011,5252) - JVS(31187) = B(9860)-B(9870) -! JVS(31188) = Jac_FULL(5011,5253) - JVS(31188) = 0 -! JVS(31189) = Jac_FULL(5011,5255) - JVS(31189) = B(9854)-B(9868) -! JVS(31190) = Jac_FULL(5011,5256) - JVS(31190) = B(9864)-B(9872) -! JVS(31191) = Jac_FULL(5011,5258) - JVS(31191) = 0 -! JVS(31192) = Jac_FULL(5012,874) - JVS(31192) = B(3807) -! JVS(31193) = Jac_FULL(5012,1957) - JVS(31193) = B(3888) -! JVS(31194) = Jac_FULL(5012,2877) - JVS(31194) = B(21203) -! JVS(31195) = Jac_FULL(5012,3310) - JVS(31195) = B(3885) -! JVS(31196) = Jac_FULL(5012,4143) - JVS(31196) = 0 -! JVS(31197) = Jac_FULL(5012,4601) - JVS(31197) = 0 -! JVS(31198) = Jac_FULL(5012,4837) - JVS(31198) = 0 -! JVS(31199) = Jac_FULL(5012,4874) - JVS(31199) = 0 -! JVS(31200) = Jac_FULL(5012,4878) - JVS(31200) = 0 -! JVS(31201) = Jac_FULL(5012,4959) - JVS(31201) = B(1139) -! JVS(31202) = Jac_FULL(5012,5012) - JVS(31202) = -B(3891)-B(3893)-B(3895) -! JVS(31203) = Jac_FULL(5012,5078) - JVS(31203) = 0 -! JVS(31204) = Jac_FULL(5012,5088) - JVS(31204) = 0 -! JVS(31205) = Jac_FULL(5012,5147) - JVS(31205) = 0 -! JVS(31206) = Jac_FULL(5012,5238) - JVS(31206) = 0 -! JVS(31207) = Jac_FULL(5012,5250) - JVS(31207) = B(3808)+B(3886)+B(3889)-B(3894)+B(21204) -! JVS(31208) = Jac_FULL(5012,5252) - JVS(31208) = 0 -! JVS(31209) = Jac_FULL(5012,5253) - JVS(31209) = 0 -! JVS(31210) = Jac_FULL(5012,5255) - JVS(31210) = 0 -! JVS(31211) = Jac_FULL(5012,5256) - JVS(31211) = -B(3892) -! JVS(31212) = Jac_FULL(5012,5258) - JVS(31212) = 0 -! JVS(31213) = Jac_FULL(5013,5013) - JVS(31213) = -B(10496)-B(10497)-B(10499)-B(10501) -! JVS(31214) = Jac_FULL(5013,5217) - JVS(31214) = B(6777) -! JVS(31215) = Jac_FULL(5013,5218) - JVS(31215) = B(6918) -! JVS(31216) = Jac_FULL(5013,5250) - JVS(31216) = -B(10502) -! JVS(31217) = Jac_FULL(5013,5252) - JVS(31217) = B(6778)+B(6919) -! JVS(31218) = Jac_FULL(5013,5258) - JVS(31218) = -B(10498)-B(10500) -! JVS(31219) = Jac_FULL(5014,900) - JVS(31219) = B(17256) -! JVS(31220) = Jac_FULL(5014,1834) - JVS(31220) = B(11350) -! JVS(31221) = Jac_FULL(5014,2469) - JVS(31221) = 0 -! JVS(31222) = Jac_FULL(5014,2648) - JVS(31222) = B(17261) -! JVS(31223) = Jac_FULL(5014,4754) - JVS(31223) = 0 -! JVS(31224) = Jac_FULL(5014,4988) - JVS(31224) = 0 -! JVS(31225) = Jac_FULL(5014,5014) - JVS(31225) = -B(14665)-B(14667)-B(14669)-B(14671)-B(14673)-B(14675)-B(14677)-B(14678) -! JVS(31226) = Jac_FULL(5014,5207) - JVS(31226) = B(11386)+B(11394) -! JVS(31227) = Jac_FULL(5014,5250) - JVS(31227) = B(11395)+B(17257) -! JVS(31228) = Jac_FULL(5014,5252) - JVS(31228) = -B(14672) -! JVS(31229) = Jac_FULL(5014,5253) - JVS(31229) = -B(14674) -! JVS(31230) = Jac_FULL(5014,5255) - JVS(31230) = -B(14666)-B(14668)-B(14670) -! JVS(31231) = Jac_FULL(5014,5256) - JVS(31231) = B(11387)-B(14676) -! JVS(31232) = Jac_FULL(5014,5257) - JVS(31232) = 0 -! JVS(31233) = Jac_FULL(5014,5258) - JVS(31233) = 0 -! JVS(31234) = Jac_FULL(5015,2147) - JVS(31234) = B(13603) -! JVS(31235) = Jac_FULL(5015,5015) - JVS(31235) = -B(10415)-B(10417)-B(10419)-B(10421)-B(10423)-B(10424)-B(10425) -! JVS(31236) = Jac_FULL(5015,5168) - JVS(31236) = B(6706) -! JVS(31237) = Jac_FULL(5015,5250) - JVS(31237) = B(6707)+B(13604) -! JVS(31238) = Jac_FULL(5015,5252) - JVS(31238) = -B(10418)-B(10420) -! JVS(31239) = Jac_FULL(5015,5255) - JVS(31239) = -B(10416) -! JVS(31240) = Jac_FULL(5015,5256) - JVS(31240) = -B(10422) -! JVS(31241) = Jac_FULL(5016,506) - JVS(31241) = B(23347) -! JVS(31242) = Jac_FULL(5016,936) - JVS(31242) = B(23351) -! JVS(31243) = Jac_FULL(5016,1249) - JVS(31243) = B(20312) -! JVS(31244) = Jac_FULL(5016,2655) - JVS(31244) = B(20316) -! JVS(31245) = Jac_FULL(5016,3470) - JVS(31245) = B(16499) -! JVS(31246) = Jac_FULL(5016,4107) - JVS(31246) = 0 -! JVS(31247) = Jac_FULL(5016,4548) - JVS(31247) = B(18727)+B(18731)+B(18735)+B(18737) -! JVS(31248) = Jac_FULL(5016,4636) - JVS(31248) = B(22938)+B(22940)+B(22944)+B(22947) -! JVS(31249) = Jac_FULL(5016,5016) - JVS(31249) = -B(6734)-B(6736)-B(6738)-B(6740)-B(6742)-B(6743)-B(6744) -! JVS(31250) = Jac_FULL(5016,5177) - JVS(31250) = B(22523) -! JVS(31251) = Jac_FULL(5016,5217) - JVS(31251) = 0 -! JVS(31252) = Jac_FULL(5016,5218) - JVS(31252) = 0 -! JVS(31253) = Jac_FULL(5016,5227) - JVS(31253) = B(3110) -! JVS(31254) = Jac_FULL(5016,5250) - JVS(31254) = B(3111)+B(20317)+B(23348) -! JVS(31255) = Jac_FULL(5016,5252) - JVS(31255) = -B(6735)-B(6739)+B(18732)+B(22941) -! JVS(31256) = Jac_FULL(5016,5253) - JVS(31256) = 0 -! JVS(31257) = Jac_FULL(5016,5255) - JVS(31257) = -B(6737)+B(18728)+B(22939) -! JVS(31258) = Jac_FULL(5016,5256) - JVS(31258) = -B(6741)+B(18736)+B(22945) -! JVS(31259) = Jac_FULL(5017,993) - JVS(31259) = B(20837) -! JVS(31260) = Jac_FULL(5017,2265) - JVS(31260) = B(19385) -! JVS(31261) = Jac_FULL(5017,2305) - JVS(31261) = 0 -! JVS(31262) = Jac_FULL(5017,2708) - JVS(31262) = B(20842) -! JVS(31263) = Jac_FULL(5017,4145) - JVS(31263) = 0 -! JVS(31264) = Jac_FULL(5017,4842) - JVS(31264) = B(17070)+B(17072) -! JVS(31265) = Jac_FULL(5017,5017) - JVS(31265) = -B(19267)-B(19269)-B(19271)-B(19273)-B(19275)-B(19277)-B(19279)-B(19280) -! JVS(31266) = Jac_FULL(5017,5044) - JVS(31266) = 0 -! JVS(31267) = Jac_FULL(5017,5083) - JVS(31267) = 0 -! JVS(31268) = Jac_FULL(5017,5175) - JVS(31268) = 0 -! JVS(31269) = Jac_FULL(5017,5250) - JVS(31269) = B(17073)+B(20838) -! JVS(31270) = Jac_FULL(5017,5252) - JVS(31270) = -B(19274) -! JVS(31271) = Jac_FULL(5017,5253) - JVS(31271) = -B(19276) -! JVS(31272) = Jac_FULL(5017,5255) - JVS(31272) = -B(19268)-B(19270)-B(19272) -! JVS(31273) = Jac_FULL(5017,5256) - JVS(31273) = B(17071)-B(19278) -! JVS(31274) = Jac_FULL(5017,5258) - JVS(31274) = 0 -! JVS(31275) = Jac_FULL(5018,712) - JVS(31275) = B(15580) -! JVS(31276) = Jac_FULL(5018,1675) - JVS(31276) = B(15601) -! JVS(31277) = Jac_FULL(5018,2454) - JVS(31277) = 0 -! JVS(31278) = Jac_FULL(5018,3692) - JVS(31278) = 0 -! JVS(31279) = Jac_FULL(5018,3752) - JVS(31279) = 0 -! JVS(31280) = Jac_FULL(5018,4621) - JVS(31280) = B(15588)+B(15590)+B(15592)+B(15594)+B(15596) -! JVS(31281) = Jac_FULL(5018,4952) - JVS(31281) = 0 -! JVS(31282) = Jac_FULL(5018,5018) - JVS(31282) = -B(18134)-B(18136)-B(18138) -! JVS(31283) = Jac_FULL(5018,5123) - JVS(31283) = 0 -! JVS(31284) = Jac_FULL(5018,5250) - JVS(31284) = -B(18137) -! JVS(31285) = Jac_FULL(5018,5251) - JVS(31285) = B(15589) -! JVS(31286) = Jac_FULL(5018,5252) - JVS(31286) = B(15591) -! JVS(31287) = Jac_FULL(5018,5253) - JVS(31287) = B(15593) -! JVS(31288) = Jac_FULL(5018,5254) - JVS(31288) = B(15595) -! JVS(31289) = Jac_FULL(5018,5255) - JVS(31289) = 0 -! JVS(31290) = Jac_FULL(5018,5256) - JVS(31290) = -B(18135) -! JVS(31291) = Jac_FULL(5018,5258) - JVS(31291) = 0 -! JVS(31292) = Jac_FULL(5019,933) - JVS(31292) = B(21746)+B(21748) -! JVS(31293) = Jac_FULL(5019,1018) - JVS(31293) = B(21751) -! JVS(31294) = Jac_FULL(5019,4660) - JVS(31294) = B(20714)+B(20720)+B(20724)+B(20726) -! JVS(31295) = Jac_FULL(5019,5019) - JVS(31295) = -B(20728)-B(20730)-B(20732)-B(20734)-B(20735)-B(20736) -! JVS(31296) = Jac_FULL(5019,5159) - JVS(31296) = B(19140) -! JVS(31297) = Jac_FULL(5019,5250) - JVS(31297) = B(21747) -! JVS(31298) = Jac_FULL(5019,5252) - JVS(31298) = B(20721)-B(20731) -! JVS(31299) = Jac_FULL(5019,5253) - JVS(31299) = 0 -! JVS(31300) = Jac_FULL(5019,5255) - JVS(31300) = B(20715)-B(20729) -! JVS(31301) = Jac_FULL(5019,5256) - JVS(31301) = B(20725)-B(20733) -! JVS(31302) = Jac_FULL(5020,906) - JVS(31302) = B(22852)+B(22854) -! JVS(31303) = Jac_FULL(5020,1541) - JVS(31303) = B(22857) -! JVS(31304) = Jac_FULL(5020,1934) - JVS(31304) = B(21766) -! JVS(31305) = Jac_FULL(5020,4867) - JVS(31305) = B(22374)+B(22376)+B(22380)+B(22383) -! JVS(31306) = Jac_FULL(5020,5019) - JVS(31306) = 0 -! JVS(31307) = Jac_FULL(5020,5020) - JVS(31307) = -B(6723)-B(6725)-B(6727)-B(6729)-B(6731)-B(6732)-B(6733) -! JVS(31308) = Jac_FULL(5020,5159) - JVS(31308) = 0 -! JVS(31309) = Jac_FULL(5020,5227) - JVS(31309) = B(3108) -! JVS(31310) = Jac_FULL(5020,5250) - JVS(31310) = B(3109)+B(22853) -! JVS(31311) = Jac_FULL(5020,5252) - JVS(31311) = -B(6726)-B(6728)+B(22377) -! JVS(31312) = Jac_FULL(5020,5253) - JVS(31312) = 0 -! JVS(31313) = Jac_FULL(5020,5255) - JVS(31313) = -B(6724)+B(22375) -! JVS(31314) = Jac_FULL(5020,5256) - JVS(31314) = -B(6730)+B(22381) -! JVS(31315) = Jac_FULL(5021,1277) - JVS(31315) = B(20670) -! JVS(31316) = Jac_FULL(5021,1608) - JVS(31316) = B(16897) -! JVS(31317) = Jac_FULL(5021,2658) - JVS(31317) = B(20688) -! JVS(31318) = Jac_FULL(5021,4910) - JVS(31318) = 0 -! JVS(31319) = Jac_FULL(5021,5021) - JVS(31319) = -B(19091)-B(19093)-B(19095)-B(19097)-B(19099)-B(19101)-B(19103)-B(19104) -! JVS(31320) = Jac_FULL(5021,5215) - JVS(31320) = 0 -! JVS(31321) = Jac_FULL(5021,5250) - JVS(31321) = B(20671) -! JVS(31322) = Jac_FULL(5021,5252) - JVS(31322) = -B(19098) -! JVS(31323) = Jac_FULL(5021,5253) - JVS(31323) = -B(19100) -! JVS(31324) = Jac_FULL(5021,5255) - JVS(31324) = -B(19092)-B(19094)-B(19096) -! JVS(31325) = Jac_FULL(5021,5256) - JVS(31325) = -B(19102) -! JVS(31326) = Jac_FULL(5021,5258) - JVS(31326) = 0 -! JVS(31327) = Jac_FULL(5022,3485) - JVS(31327) = B(16663) -! JVS(31328) = Jac_FULL(5022,4786) - JVS(31328) = B(10622) -! JVS(31329) = Jac_FULL(5022,5022) - JVS(31329) = -B(13833)-B(13835)-B(13837)-B(13839)-B(13841)-B(13842) -! JVS(31330) = Jac_FULL(5022,5224) - JVS(31330) = 0 -! JVS(31331) = Jac_FULL(5022,5250) - JVS(31331) = B(10623)+B(16664) -! JVS(31332) = Jac_FULL(5022,5252) - JVS(31332) = -B(13836)-B(13838) -! JVS(31333) = Jac_FULL(5022,5255) - JVS(31333) = -B(13834) -! JVS(31334) = Jac_FULL(5022,5256) - JVS(31334) = -B(13840) -! JVS(31335) = Jac_FULL(5022,5258) - JVS(31335) = 0 -! JVS(31336) = Jac_FULL(5023,875) - JVS(31336) = B(4232) -! JVS(31337) = Jac_FULL(5023,1787) - JVS(31337) = B(21610) -! JVS(31338) = Jac_FULL(5023,2320) - JVS(31338) = B(18701) -! JVS(31339) = Jac_FULL(5023,2345) - JVS(31339) = B(21618) -! JVS(31340) = Jac_FULL(5023,2475) - JVS(31340) = B(23365) -! JVS(31341) = Jac_FULL(5023,2486) - JVS(31341) = B(21627) -! JVS(31342) = Jac_FULL(5023,2498) - JVS(31342) = B(18705) -! JVS(31343) = Jac_FULL(5023,2596) - JVS(31343) = B(13573) -! JVS(31344) = Jac_FULL(5023,3267) - JVS(31344) = 0 -! JVS(31345) = Jac_FULL(5023,3495) - JVS(31345) = B(23359) -! JVS(31346) = Jac_FULL(5023,3611) - JVS(31346) = B(23361) -! JVS(31347) = Jac_FULL(5023,3620) - JVS(31347) = 0 -! JVS(31348) = Jac_FULL(5023,4209) - JVS(31348) = B(16464)+B(16466)+B(16470)+B(16472) -! JVS(31349) = Jac_FULL(5023,4250) - JVS(31349) = B(20532)+B(20534)+B(20536)+B(20538)+B(20540) -! JVS(31350) = Jac_FULL(5023,4366) - JVS(31350) = B(20546) -! JVS(31351) = Jac_FULL(5023,4382) - JVS(31351) = B(1467) -! JVS(31352) = Jac_FULL(5023,4565) - JVS(31352) = 0 -! JVS(31353) = Jac_FULL(5023,4578) - JVS(31353) = 0 -! JVS(31354) = Jac_FULL(5023,4599) - JVS(31354) = 0 -! JVS(31355) = Jac_FULL(5023,4625) - JVS(31355) = 0 -! JVS(31356) = Jac_FULL(5023,4776) - JVS(31356) = B(13558)+B(13560)+B(13562)+B(13564)+B(13566) -! JVS(31357) = Jac_FULL(5023,4816) - JVS(31357) = 0 -! JVS(31358) = Jac_FULL(5023,4851) - JVS(31358) = 0 -! JVS(31359) = Jac_FULL(5023,5023) - JVS(31359) = -B(4236)-B(4237)-B(4239) -! JVS(31360) = Jac_FULL(5023,5024) - JVS(31360) = B(16720) -! JVS(31361) = Jac_FULL(5023,5049) - JVS(31361) = 0 -! JVS(31362) = Jac_FULL(5023,5091) - JVS(31362) = 0 -! JVS(31363) = Jac_FULL(5023,5093) - JVS(31363) = B(6677) -! JVS(31364) = Jac_FULL(5023,5189) - JVS(31364) = 0 -! JVS(31365) = Jac_FULL(5023,5194) - JVS(31365) = 0 -! JVS(31366) = Jac_FULL(5023,5250) - JVS(31366) = B(4233)-B(4240)+B(18706)+B(20547) -! JVS(31367) = Jac_FULL(5023,5251) - JVS(31367) = B(13559)+B(20533) -! JVS(31368) = Jac_FULL(5023,5252) - JVS(31368) = B(13561)+B(16467)+B(20535) -! JVS(31369) = Jac_FULL(5023,5253) - JVS(31369) = B(13563)+B(20537) -! JVS(31370) = Jac_FULL(5023,5254) - JVS(31370) = B(13565)+B(20539) -! JVS(31371) = Jac_FULL(5023,5255) - JVS(31371) = B(16465) -! JVS(31372) = Jac_FULL(5023,5256) - JVS(31372) = -B(4238)+B(16471) -! JVS(31373) = Jac_FULL(5023,5258) - JVS(31373) = B(6678)+B(16721) -! JVS(31374) = Jac_FULL(5024,2770) - JVS(31374) = B(16712) -! JVS(31375) = Jac_FULL(5024,3621) - JVS(31375) = 0 -! JVS(31376) = Jac_FULL(5024,5024) - JVS(31376) = -B(16718)-B(16720)-B(16722)-B(16724)-B(16726) -! JVS(31377) = Jac_FULL(5024,5091) - JVS(31377) = B(13910) -! JVS(31378) = Jac_FULL(5024,5250) - JVS(31378) = -B(16725)-B(16727) -! JVS(31379) = Jac_FULL(5024,5252) - JVS(31379) = 0 -! JVS(31380) = Jac_FULL(5024,5255) - JVS(31380) = 0 -! JVS(31381) = Jac_FULL(5024,5256) - JVS(31381) = -B(16719) -! JVS(31382) = Jac_FULL(5024,5258) - JVS(31382) = -B(16721)-B(16723) -! JVS(31383) = Jac_FULL(5025,3204) - JVS(31383) = B(16551) -! JVS(31384) = Jac_FULL(5025,5025) - JVS(31384) = -B(13692)-B(13694)-B(13696)-B(13698)-B(13700)-B(13702)-B(13704)-B(13705)-B(13706) -! JVS(31385) = Jac_FULL(5025,5205) - JVS(31385) = B(10526)+B(10527)+B(10539) -! JVS(31386) = Jac_FULL(5025,5250) - JVS(31386) = B(10540) -! JVS(31387) = Jac_FULL(5025,5252) - JVS(31387) = -B(13699) -! JVS(31388) = Jac_FULL(5025,5253) - JVS(31388) = -B(13701) -! JVS(31389) = Jac_FULL(5025,5255) - JVS(31389) = -B(13693)-B(13695)-B(13697) -! JVS(31390) = Jac_FULL(5025,5256) - JVS(31390) = B(10528)-B(13703) -! JVS(31391) = Jac_FULL(5026,638) - JVS(31391) = B(19719) -! JVS(31392) = Jac_FULL(5026,1132) - JVS(31392) = B(7079) -! JVS(31393) = Jac_FULL(5026,1632) - JVS(31393) = B(19720) -! JVS(31394) = Jac_FULL(5026,2092) - JVS(31394) = B(7082) -! JVS(31395) = Jac_FULL(5026,2614) - JVS(31395) = B(7085) -! JVS(31396) = Jac_FULL(5026,2625) - JVS(31396) = B(19714) -! JVS(31397) = Jac_FULL(5026,2787) - JVS(31397) = B(19639) -! JVS(31398) = Jac_FULL(5026,2982) - JVS(31398) = B(17652) -! JVS(31399) = Jac_FULL(5026,4524) - JVS(31399) = B(3799) -! JVS(31400) = Jac_FULL(5026,4642) - JVS(31400) = 0 -! JVS(31401) = Jac_FULL(5026,4704) - JVS(31401) = 0 -! JVS(31402) = Jac_FULL(5026,4737) - JVS(31402) = B(3909) -! JVS(31403) = Jac_FULL(5026,4811) - JVS(31403) = 0 -! JVS(31404) = Jac_FULL(5026,4886) - JVS(31404) = 0 -! JVS(31405) = Jac_FULL(5026,5026) - JVS(31405) = -B(7086)-B(7087)-B(7089) -! JVS(31406) = Jac_FULL(5026,5063) - JVS(31406) = 0 -! JVS(31407) = Jac_FULL(5026,5064) - JVS(31407) = 0 -! JVS(31408) = Jac_FULL(5026,5097) - JVS(31408) = B(3292) -! JVS(31409) = Jac_FULL(5026,5116) - JVS(31409) = 0 -! JVS(31410) = Jac_FULL(5026,5119) - JVS(31410) = 0 -! JVS(31411) = Jac_FULL(5026,5147) - JVS(31411) = 0 -! JVS(31412) = Jac_FULL(5026,5238) - JVS(31412) = 0 -! JVS(31413) = Jac_FULL(5026,5250) - JVS(31413) = B(3800)+B(3910)+B(7080)+B(7083)-B(7090)+B(19640) -! JVS(31414) = Jac_FULL(5026,5252) - JVS(31414) = 0 -! JVS(31415) = Jac_FULL(5026,5253) - JVS(31415) = 0 -! JVS(31416) = Jac_FULL(5026,5255) - JVS(31416) = 0 -! JVS(31417) = Jac_FULL(5026,5256) - JVS(31417) = -B(7088) -! JVS(31418) = Jac_FULL(5027,1107) - JVS(31418) = B(23391) -! JVS(31419) = Jac_FULL(5027,1756) - JVS(31419) = B(22569)+B(22571) -! JVS(31420) = Jac_FULL(5027,2637) - JVS(31420) = B(23407) -! JVS(31421) = Jac_FULL(5027,4098) - JVS(31421) = 0 -! JVS(31422) = Jac_FULL(5027,4953) - JVS(31422) = 0 -! JVS(31423) = Jac_FULL(5027,5027) - JVS(31423) = -B(22994)-B(22996)-B(22998)-B(23000)-B(23002)-B(23004)-B(23006)-B(23007) -! JVS(31424) = Jac_FULL(5027,5187) - JVS(31424) = B(22982)+B(22990) -! JVS(31425) = Jac_FULL(5027,5250) - JVS(31425) = B(22570)+B(22991)+B(23392) -! JVS(31426) = Jac_FULL(5027,5252) - JVS(31426) = -B(23001) -! JVS(31427) = Jac_FULL(5027,5253) - JVS(31427) = -B(23003) -! JVS(31428) = Jac_FULL(5027,5255) - JVS(31428) = -B(22995)-B(22997)-B(22999) -! JVS(31429) = Jac_FULL(5027,5256) - JVS(31429) = B(22983)-B(23005) -! JVS(31430) = Jac_FULL(5027,5258) - JVS(31430) = 0 -! JVS(31431) = Jac_FULL(5028,2359) - JVS(31431) = B(14811) -! JVS(31432) = Jac_FULL(5028,5028) - JVS(31432) = -B(14585)-B(14587)-B(14589)-B(14591)-B(14592)-B(14593) -! JVS(31433) = Jac_FULL(5028,5248) - JVS(31433) = B(11287) -! JVS(31434) = Jac_FULL(5028,5249) - JVS(31434) = 0 -! JVS(31435) = Jac_FULL(5028,5250) - JVS(31435) = B(11288) -! JVS(31436) = Jac_FULL(5028,5252) - JVS(31436) = -B(14588) -! JVS(31437) = Jac_FULL(5028,5255) - JVS(31437) = -B(14586) -! JVS(31438) = Jac_FULL(5028,5256) - JVS(31438) = -B(14590) -! JVS(31439) = Jac_FULL(5028,5258) - JVS(31439) = 0 -! JVS(31440) = Jac_FULL(5029,1462) - JVS(31440) = B(14238) -! JVS(31441) = Jac_FULL(5029,1565) - JVS(31441) = B(7303) -! JVS(31442) = Jac_FULL(5029,2023) - JVS(31442) = 0 -! JVS(31443) = Jac_FULL(5029,2058) - JVS(31443) = 0 -! JVS(31444) = Jac_FULL(5029,2951) - JVS(31444) = B(14243) -! JVS(31445) = Jac_FULL(5029,3090) - JVS(31445) = B(7254) -! JVS(31446) = Jac_FULL(5029,3744) - JVS(31446) = 0 -! JVS(31447) = Jac_FULL(5029,3921) - JVS(31447) = 0 -! JVS(31448) = Jac_FULL(5029,3936) - JVS(31448) = 0 -! JVS(31449) = Jac_FULL(5029,3943) - JVS(31449) = 0 -! JVS(31450) = Jac_FULL(5029,4492) - JVS(31450) = 0 -! JVS(31451) = Jac_FULL(5029,4925) - JVS(31451) = 0 -! JVS(31452) = Jac_FULL(5029,5029) - JVS(31452) = -B(11046)-B(11048)-B(11050)-B(11052)-B(11054)-B(11056)-B(11058)-B(11059) -! JVS(31453) = Jac_FULL(5029,5213) - JVS(31453) = B(11032)+B(11034) -! JVS(31454) = Jac_FULL(5029,5250) - JVS(31454) = B(7304)+B(11035)+B(14239) -! JVS(31455) = Jac_FULL(5029,5252) - JVS(31455) = -B(11053) -! JVS(31456) = Jac_FULL(5029,5253) - JVS(31456) = -B(11055) -! JVS(31457) = Jac_FULL(5029,5255) - JVS(31457) = -B(11047)-B(11049)-B(11051) -! JVS(31458) = Jac_FULL(5029,5256) - JVS(31458) = B(11033)-B(11057) -! JVS(31459) = Jac_FULL(5029,5258) - JVS(31459) = 0 -! JVS(31460) = Jac_FULL(5030,52) - JVS(31460) = B(6034) -! JVS(31461) = Jac_FULL(5030,1486) - JVS(31461) = B(6024) -! JVS(31462) = Jac_FULL(5030,2605) - JVS(31462) = B(6027) -! JVS(31463) = Jac_FULL(5030,4133) - JVS(31463) = B(2733)+B(2735)+B(2738) -! JVS(31464) = Jac_FULL(5030,5030) - JVS(31464) = -B(6028)-B(6029)-B(6030)-B(6031)-B(6032)-B(6033) -! JVS(31465) = Jac_FULL(5030,5250) - JVS(31465) = B(6035) -! JVS(31466) = Jac_FULL(5030,5252) - JVS(31466) = B(2734) -! JVS(31467) = Jac_FULL(5030,5255) - JVS(31467) = 0 -! JVS(31468) = Jac_FULL(5030,5256) - JVS(31468) = B(2736) -! JVS(31469) = Jac_FULL(5031,713) - JVS(31469) = B(15423) -! JVS(31470) = Jac_FULL(5031,2248) - JVS(31470) = B(21342) -! JVS(31471) = Jac_FULL(5031,2643) - JVS(31471) = B(21343) -! JVS(31472) = Jac_FULL(5031,2671) - JVS(31472) = B(13237) -! JVS(31473) = Jac_FULL(5031,2845) - JVS(31473) = B(22155) -! JVS(31474) = Jac_FULL(5031,3054) - JVS(31474) = B(11559) -! JVS(31475) = Jac_FULL(5031,3251) - JVS(31475) = B(9896) -! JVS(31476) = Jac_FULL(5031,3262) - JVS(31476) = B(10186)+B(10188) -! JVS(31477) = Jac_FULL(5031,3274) - JVS(31477) = B(22168) -! JVS(31478) = Jac_FULL(5031,3593) - JVS(31478) = B(20195) -! JVS(31479) = Jac_FULL(5031,3624) - JVS(31479) = 0 -! JVS(31480) = Jac_FULL(5031,3702) - JVS(31480) = 0 -! JVS(31481) = Jac_FULL(5031,3742) - JVS(31481) = B(20023) -! JVS(31482) = Jac_FULL(5031,3897) - JVS(31482) = 0 -! JVS(31483) = Jac_FULL(5031,3918) - JVS(31483) = B(13245) -! JVS(31484) = Jac_FULL(5031,3979) - JVS(31484) = 0 -! JVS(31485) = Jac_FULL(5031,4202) - JVS(31485) = B(19965)+B(19969)+B(19973)+B(19975) -! JVS(31486) = Jac_FULL(5031,4323) - JVS(31486) = 0 -! JVS(31487) = Jac_FULL(5031,4344) - JVS(31487) = 0 -! JVS(31488) = Jac_FULL(5031,4384) - JVS(31488) = 0 -! JVS(31489) = Jac_FULL(5031,4448) - JVS(31489) = 0 -! JVS(31490) = Jac_FULL(5031,4468) - JVS(31490) = 0 -! JVS(31491) = Jac_FULL(5031,4558) - JVS(31491) = 0 -! JVS(31492) = Jac_FULL(5031,4568) - JVS(31492) = 0 -! JVS(31493) = Jac_FULL(5031,4674) - JVS(31493) = 0 -! JVS(31494) = Jac_FULL(5031,4680) - JVS(31494) = 0 -! JVS(31495) = Jac_FULL(5031,4780) - JVS(31495) = 0 -! JVS(31496) = Jac_FULL(5031,4782) - JVS(31496) = 0 -! JVS(31497) = Jac_FULL(5031,4811) - JVS(31497) = 0 -! JVS(31498) = Jac_FULL(5031,4911) - JVS(31498) = 0 -! JVS(31499) = Jac_FULL(5031,4935) - JVS(31499) = 0 -! JVS(31500) = Jac_FULL(5031,4992) - JVS(31500) = 0 -! JVS(31501) = Jac_FULL(5031,5030) - JVS(31501) = 0 -! JVS(31502) = Jac_FULL(5031,5031) - JVS(31502) = -B(13248)-B(13250) -! JVS(31503) = Jac_FULL(5031,5032) - JVS(31503) = 0 -! JVS(31504) = Jac_FULL(5031,5089) - JVS(31504) = 0 -! JVS(31505) = Jac_FULL(5031,5119) - JVS(31505) = 0 -! JVS(31506) = Jac_FULL(5031,5238) - JVS(31506) = 0 -! JVS(31507) = Jac_FULL(5031,5250) - JVS(31507) = B(10187)+B(13238)+B(13246)-B(13249)+B(15424)+B(20024)+B(20196)+B(21344)+B(22156) -! JVS(31508) = Jac_FULL(5031,5252) - JVS(31508) = B(19970) -! JVS(31509) = Jac_FULL(5031,5253) - JVS(31509) = 0 -! JVS(31510) = Jac_FULL(5031,5255) - JVS(31510) = B(19966) -! JVS(31511) = Jac_FULL(5031,5256) - JVS(31511) = B(19974) -! JVS(31512) = Jac_FULL(5031,5258) - JVS(31512) = 0 -! JVS(31513) = Jac_FULL(5032,1153) - JVS(31513) = B(7186) -! JVS(31514) = Jac_FULL(5032,3583) - JVS(31514) = B(852) -! JVS(31515) = Jac_FULL(5032,4974) - JVS(31515) = 0 -! JVS(31516) = Jac_FULL(5032,5032) - JVS(31516) = -B(3366)-B(3368)-B(3370)-B(3372)-B(3374)-B(3375) -! JVS(31517) = Jac_FULL(5032,5238) - JVS(31517) = 0 -! JVS(31518) = Jac_FULL(5032,5250) - JVS(31518) = B(853)+B(7187) -! JVS(31519) = Jac_FULL(5032,5252) - JVS(31519) = -B(3369)-B(3371) -! JVS(31520) = Jac_FULL(5032,5255) - JVS(31520) = -B(3367) -! JVS(31521) = Jac_FULL(5032,5256) - JVS(31521) = -B(3373) -! JVS(31522) = Jac_FULL(5033,3197) - JVS(31522) = B(16631) -! JVS(31523) = Jac_FULL(5033,5033) - JVS(31523) = -B(13796)-B(13798)-B(13800)-B(13802)-B(13804)-B(13806)-B(13808)-B(13809)-B(13810) -! JVS(31524) = Jac_FULL(5033,5220) - JVS(31524) = B(10595)+B(10596)+B(10608) -! JVS(31525) = Jac_FULL(5033,5250) - JVS(31525) = B(10609) -! JVS(31526) = Jac_FULL(5033,5252) - JVS(31526) = -B(13803) -! JVS(31527) = Jac_FULL(5033,5253) - JVS(31527) = -B(13805) -! JVS(31528) = Jac_FULL(5033,5255) - JVS(31528) = -B(13797)-B(13799)-B(13801) -! JVS(31529) = Jac_FULL(5033,5256) - JVS(31529) = B(10597)-B(13807) -! JVS(31530) = Jac_FULL(5034,2484) - JVS(31530) = B(10019)+B(10021) -! JVS(31531) = Jac_FULL(5034,2582) - JVS(31531) = B(12845) -! JVS(31532) = Jac_FULL(5034,2714) - JVS(31532) = B(9370) -! JVS(31533) = Jac_FULL(5034,3089) - JVS(31533) = B(5712)+B(5714) -! JVS(31534) = Jac_FULL(5034,3238) - JVS(31534) = 0 -! JVS(31535) = Jac_FULL(5034,3458) - JVS(31535) = B(12839) -! JVS(31536) = Jac_FULL(5034,3811) - JVS(31536) = 0 -! JVS(31537) = Jac_FULL(5034,4667) - JVS(31537) = 0 -! JVS(31538) = Jac_FULL(5034,4897) - JVS(31538) = 0 -! JVS(31539) = Jac_FULL(5034,5034) - JVS(31539) = -B(9313)-B(9315)-B(9317)-B(9319)-B(9321)-B(9323)-B(9325)-B(9326) -! JVS(31540) = Jac_FULL(5034,5126) - JVS(31540) = B(9295)+B(9301)+B(9305) -! JVS(31541) = Jac_FULL(5034,5250) - JVS(31541) = B(5713)+B(9302)+B(10020)+B(12840) -! JVS(31542) = Jac_FULL(5034,5252) - JVS(31542) = -B(9320) -! JVS(31543) = Jac_FULL(5034,5253) - JVS(31543) = -B(9322) -! JVS(31544) = Jac_FULL(5034,5255) - JVS(31544) = -B(9314)-B(9316)-B(9318) -! JVS(31545) = Jac_FULL(5034,5256) - JVS(31545) = B(9296)-B(9324) -! JVS(31546) = Jac_FULL(5034,5258) - JVS(31546) = 0 -! JVS(31547) = Jac_FULL(5035,3428) - JVS(31547) = B(13719) -! JVS(31548) = Jac_FULL(5035,5035) - JVS(31548) = -B(13707)-B(13709)-B(13711)-B(13713)-B(13715)-B(13716) -! JVS(31549) = Jac_FULL(5035,5205) - JVS(31549) = B(10535) -! JVS(31550) = Jac_FULL(5035,5219) - JVS(31550) = 0 -! JVS(31551) = Jac_FULL(5035,5224) - JVS(31551) = 0 -! JVS(31552) = Jac_FULL(5035,5250) - JVS(31552) = B(10536)+B(13720) -! JVS(31553) = Jac_FULL(5035,5252) - JVS(31553) = -B(13710)-B(13712) -! JVS(31554) = Jac_FULL(5035,5255) - JVS(31554) = -B(13708) -! JVS(31555) = Jac_FULL(5035,5256) - JVS(31555) = -B(13714) -! JVS(31556) = Jac_FULL(5036,2240) - JVS(31556) = B(11679) -! JVS(31557) = Jac_FULL(5036,2335) - JVS(31557) = B(16485)+B(16486) -! JVS(31558) = Jac_FULL(5036,3154) - JVS(31558) = 0 -! JVS(31559) = Jac_FULL(5036,3203) - JVS(31559) = B(11674) -! JVS(31560) = Jac_FULL(5036,3628) - JVS(31560) = 0 -! JVS(31561) = Jac_FULL(5036,3835) - JVS(31561) = 0 -! JVS(31562) = Jac_FULL(5036,3929) - JVS(31562) = B(4311) -! JVS(31563) = Jac_FULL(5036,4460) - JVS(31563) = 0 -! JVS(31564) = Jac_FULL(5036,4783) - JVS(31564) = 0 -! JVS(31565) = Jac_FULL(5036,5015) - JVS(31565) = 0 -! JVS(31566) = Jac_FULL(5036,5036) - JVS(31566) = -B(7936)-B(7938)-B(7940)-B(7942)-B(7944)-B(7946)-B(7948)-B(7949) -! JVS(31567) = Jac_FULL(5036,5168) - JVS(31567) = 0 -! JVS(31568) = Jac_FULL(5036,5226) - JVS(31568) = 0 -! JVS(31569) = Jac_FULL(5036,5250) - JVS(31569) = B(4312)+B(11675)+B(16487) -! JVS(31570) = Jac_FULL(5036,5252) - JVS(31570) = -B(7943) -! JVS(31571) = Jac_FULL(5036,5253) - JVS(31571) = -B(7945) -! JVS(31572) = Jac_FULL(5036,5255) - JVS(31572) = -B(7937)-B(7939)-B(7941) -! JVS(31573) = Jac_FULL(5036,5256) - JVS(31573) = -B(7947) -! JVS(31574) = Jac_FULL(5037,2356) - JVS(31574) = B(9792) -! JVS(31575) = Jac_FULL(5037,2357) - JVS(31575) = B(9796) -! JVS(31576) = Jac_FULL(5037,2477) - JVS(31576) = B(9218) -! JVS(31577) = Jac_FULL(5037,2569) - JVS(31577) = B(9192) -! JVS(31578) = Jac_FULL(5037,2837) - JVS(31578) = B(9214) -! JVS(31579) = Jac_FULL(5037,3316) - JVS(31579) = B(9770) -! JVS(31580) = Jac_FULL(5037,3452) - JVS(31580) = B(9791) -! JVS(31581) = Jac_FULL(5037,3468) - JVS(31581) = B(9213) -! JVS(31582) = Jac_FULL(5037,3754) - JVS(31582) = B(5596) -! JVS(31583) = Jac_FULL(5037,4529) - JVS(31583) = 0 -! JVS(31584) = Jac_FULL(5037,4692) - JVS(31584) = 0 -! JVS(31585) = Jac_FULL(5037,4893) - JVS(31585) = 0 -! JVS(31586) = Jac_FULL(5037,4899) - JVS(31586) = 0 -! JVS(31587) = Jac_FULL(5037,4948) - JVS(31587) = 0 -! JVS(31588) = Jac_FULL(5037,5030) - JVS(31588) = B(6028) -! JVS(31589) = Jac_FULL(5037,5037) - JVS(31589) = -B(9181)-B(9183)-B(9185) -! JVS(31590) = Jac_FULL(5037,5250) - JVS(31590) = -B(9184)+B(9193)+B(9771) -! JVS(31591) = Jac_FULL(5037,5252) - JVS(31591) = 0 -! JVS(31592) = Jac_FULL(5037,5253) - JVS(31592) = 0 -! JVS(31593) = Jac_FULL(5037,5255) - JVS(31593) = 0 -! JVS(31594) = Jac_FULL(5037,5256) - JVS(31594) = 0 -! JVS(31595) = Jac_FULL(5037,5258) - JVS(31595) = -B(9182) -! JVS(31596) = Jac_FULL(5038,141) - JVS(31596) = B(19875) -! JVS(31597) = Jac_FULL(5038,1192) - JVS(31597) = 0 -! JVS(31598) = Jac_FULL(5038,2410) - JVS(31598) = B(11633) -! JVS(31599) = Jac_FULL(5038,2511) - JVS(31599) = B(11638) -! JVS(31600) = Jac_FULL(5038,3416) - JVS(31600) = B(8726) -! JVS(31601) = Jac_FULL(5038,3644) - JVS(31601) = B(12393) -! JVS(31602) = Jac_FULL(5038,4199) - JVS(31602) = B(15895) -! JVS(31603) = Jac_FULL(5038,4308) - JVS(31603) = 0 -! JVS(31604) = Jac_FULL(5038,4358) - JVS(31604) = 0 -! JVS(31605) = Jac_FULL(5038,4603) - JVS(31605) = 0 -! JVS(31606) = Jac_FULL(5038,4708) - JVS(31606) = B(4243) -! JVS(31607) = Jac_FULL(5038,4720) - JVS(31607) = 0 -! JVS(31608) = Jac_FULL(5038,4775) - JVS(31608) = B(15993) -! JVS(31609) = Jac_FULL(5038,4815) - JVS(31609) = B(16096) -! JVS(31610) = Jac_FULL(5038,4823) - JVS(31610) = 0 -! JVS(31611) = Jac_FULL(5038,4877) - JVS(31611) = 0 -! JVS(31612) = Jac_FULL(5038,4928) - JVS(31612) = 0 -! JVS(31613) = Jac_FULL(5038,4932) - JVS(31613) = 0 -! JVS(31614) = Jac_FULL(5038,5038) - JVS(31614) = -B(7881)-B(7883)-B(7885)-B(7887)-B(7889)-B(7891) -! JVS(31615) = Jac_FULL(5038,5058) - JVS(31615) = 0 -! JVS(31616) = Jac_FULL(5038,5059) - JVS(31616) = 0 -! JVS(31617) = Jac_FULL(5038,5066) - JVS(31617) = 0 -! JVS(31618) = Jac_FULL(5038,5068) - JVS(31618) = 0 -! JVS(31619) = Jac_FULL(5038,5126) - JVS(31619) = 0 -! JVS(31620) = Jac_FULL(5038,5194) - JVS(31620) = 0 -! JVS(31621) = Jac_FULL(5038,5250) - JVS(31621) = B(4244)+B(11634) -! JVS(31622) = Jac_FULL(5038,5252) - JVS(31622) = -B(7886) -! JVS(31623) = Jac_FULL(5038,5253) - JVS(31623) = -B(7888) -! JVS(31624) = Jac_FULL(5038,5255) - JVS(31624) = -B(7882)-B(7884) -! JVS(31625) = Jac_FULL(5038,5256) - JVS(31625) = -B(7890) -! JVS(31626) = Jac_FULL(5038,5258) - JVS(31626) = 0 -! JVS(31627) = Jac_FULL(5039,362) - JVS(31627) = B(11332) -! JVS(31628) = Jac_FULL(5039,3638) - JVS(31628) = B(11329) -! JVS(31629) = Jac_FULL(5039,3990) - JVS(31629) = 0 -! JVS(31630) = Jac_FULL(5039,4526) - JVS(31630) = 0 -! JVS(31631) = Jac_FULL(5039,4678) - JVS(31631) = 0 -! JVS(31632) = Jac_FULL(5039,4921) - JVS(31632) = 0 -! JVS(31633) = Jac_FULL(5039,4970) - JVS(31633) = 0 -! JVS(31634) = Jac_FULL(5039,4988) - JVS(31634) = 0 -! JVS(31635) = Jac_FULL(5039,5039) - JVS(31635) = -B(14639)-B(14641)-B(14643)-B(14645)-B(14646)-B(14647) -! JVS(31636) = Jac_FULL(5039,5092) - JVS(31636) = 0 -! JVS(31637) = Jac_FULL(5039,5099) - JVS(31637) = 0 -! JVS(31638) = Jac_FULL(5039,5248) - JVS(31638) = 0 -! JVS(31639) = Jac_FULL(5039,5249) - JVS(31639) = 0 -! JVS(31640) = Jac_FULL(5039,5250) - JVS(31640) = B(11330) -! JVS(31641) = Jac_FULL(5039,5251) - JVS(31641) = 0 -! JVS(31642) = Jac_FULL(5039,5252) - JVS(31642) = -B(14642) -! JVS(31643) = Jac_FULL(5039,5253) - JVS(31643) = 0 -! JVS(31644) = Jac_FULL(5039,5254) - JVS(31644) = 0 -! JVS(31645) = Jac_FULL(5039,5255) - JVS(31645) = -B(14640) -! JVS(31646) = Jac_FULL(5039,5256) - JVS(31646) = -B(14644) -! JVS(31647) = Jac_FULL(5039,5258) - JVS(31647) = 0 -! JVS(31648) = Jac_FULL(5040,2489) - JVS(31648) = B(13729) -! JVS(31649) = Jac_FULL(5040,4615) - JVS(31649) = 0 -! JVS(31650) = Jac_FULL(5040,5040) - JVS(31650) = -B(16565)-B(16567)-B(16569)-B(16571)-B(16573)-B(16574) -! JVS(31651) = Jac_FULL(5040,5219) - JVS(31651) = 0 -! JVS(31652) = Jac_FULL(5040,5250) - JVS(31652) = 0 -! JVS(31653) = Jac_FULL(5040,5251) - JVS(31653) = -B(16566) -! JVS(31654) = Jac_FULL(5040,5252) - JVS(31654) = -B(16568) -! JVS(31655) = Jac_FULL(5040,5253) - JVS(31655) = -B(16570) -! JVS(31656) = Jac_FULL(5040,5254) - JVS(31656) = -B(16572) -! JVS(31657) = Jac_FULL(5040,5258) - JVS(31657) = 0 -! JVS(31658) = Jac_FULL(5041,1624) - JVS(31658) = B(17262) -! JVS(31659) = Jac_FULL(5041,2470) - JVS(31659) = B(3595) -! JVS(31660) = Jac_FULL(5041,4988) - JVS(31660) = 0 -! JVS(31661) = Jac_FULL(5041,4989) - JVS(31661) = 0 -! JVS(31662) = Jac_FULL(5041,5041) - JVS(31662) = -B(7535)-B(7537)-B(7539)-B(7541)-B(7543)-B(7544)-B(7545) -! JVS(31663) = Jac_FULL(5041,5250) - JVS(31663) = 0 -! JVS(31664) = Jac_FULL(5041,5252) - JVS(31664) = -B(7538)-B(7540) -! JVS(31665) = Jac_FULL(5041,5253) - JVS(31665) = 0 -! JVS(31666) = Jac_FULL(5041,5255) - JVS(31666) = -B(7536) -! JVS(31667) = Jac_FULL(5041,5256) - JVS(31667) = -B(7542) -! JVS(31668) = Jac_FULL(5041,5257) - JVS(31668) = 0 -! JVS(31669) = Jac_FULL(5041,5258) - JVS(31669) = 0 -! JVS(31670) = Jac_FULL(5042,1730) - JVS(31670) = B(118) -! JVS(31671) = Jac_FULL(5042,1885) - JVS(31671) = B(4436) -! JVS(31672) = Jac_FULL(5042,2337) - JVS(31672) = B(4441) -! JVS(31673) = Jac_FULL(5042,3024) - JVS(31673) = B(11886) -! JVS(31674) = Jac_FULL(5042,3032) - JVS(31674) = B(4443) -! JVS(31675) = Jac_FULL(5042,4515) - JVS(31675) = 0 -! JVS(31676) = Jac_FULL(5042,4696) - JVS(31676) = 0 -! JVS(31677) = Jac_FULL(5042,5042) - JVS(31677) = -B(1053)-B(1054)-B(1055)-B(1057) -! JVS(31678) = Jac_FULL(5042,5147) - JVS(31678) = B(1670) -! JVS(31679) = Jac_FULL(5042,5238) - JVS(31679) = 0 -! JVS(31680) = Jac_FULL(5042,5250) - JVS(31680) = B(119)-B(1058)+B(4437)+B(4442)+B(11887) -! JVS(31681) = Jac_FULL(5042,5252) - JVS(31681) = 0 -! JVS(31682) = Jac_FULL(5042,5253) - JVS(31682) = 0 -! JVS(31683) = Jac_FULL(5042,5255) - JVS(31683) = 0 -! JVS(31684) = Jac_FULL(5042,5256) - JVS(31684) = -B(1056) -! JVS(31685) = Jac_FULL(5043,946) - JVS(31685) = B(21181) -! JVS(31686) = Jac_FULL(5043,2135) - JVS(31686) = B(5066) -! JVS(31687) = Jac_FULL(5043,4419) - JVS(31687) = B(19678)+B(19680)+B(19684)+B(19686) -! JVS(31688) = Jac_FULL(5043,4508) - JVS(31688) = B(533) -! JVS(31689) = Jac_FULL(5043,5043) - JVS(31689) = -B(2201)-B(2203)-B(2205)-B(2207)-B(2209)-B(2210)-B(2211) -! JVS(31690) = Jac_FULL(5043,5146) - JVS(31690) = 0 -! JVS(31691) = Jac_FULL(5043,5250) - JVS(31691) = B(534)+B(5067) -! JVS(31692) = Jac_FULL(5043,5252) - JVS(31692) = -B(2204)-B(2206)+B(19681) -! JVS(31693) = Jac_FULL(5043,5253) - JVS(31693) = 0 -! JVS(31694) = Jac_FULL(5043,5255) - JVS(31694) = -B(2202)+B(19679) -! JVS(31695) = Jac_FULL(5043,5256) - JVS(31695) = -B(2208)+B(19685) -! JVS(31696) = Jac_FULL(5043,5258) - JVS(31696) = 0 -! JVS(31697) = Jac_FULL(5044,619) - JVS(31697) = B(19393) -! JVS(31698) = Jac_FULL(5044,1511) - JVS(31698) = B(21994) -! JVS(31699) = Jac_FULL(5044,1615) - JVS(31699) = B(19399) -! JVS(31700) = Jac_FULL(5044,2022) - JVS(31700) = B(19391) -! JVS(31701) = Jac_FULL(5044,2141) - JVS(31701) = B(19394)+B(19396) -! JVS(31702) = Jac_FULL(5044,2688) - JVS(31702) = B(21999) -! JVS(31703) = Jac_FULL(5044,4135) - JVS(31703) = 0 -! JVS(31704) = Jac_FULL(5044,5044) - JVS(31704) = -B(20942)-B(20944)-B(20946)-B(20948)-B(20950)-B(20952)-B(20954)-B(20955) -! JVS(31705) = Jac_FULL(5044,5175) - JVS(31705) = 0 -! JVS(31706) = Jac_FULL(5044,5250) - JVS(31706) = B(19395)+B(21995) -! JVS(31707) = Jac_FULL(5044,5252) - JVS(31707) = -B(20949) -! JVS(31708) = Jac_FULL(5044,5253) - JVS(31708) = -B(20951) -! JVS(31709) = Jac_FULL(5044,5255) - JVS(31709) = -B(20943)-B(20945)-B(20947) -! JVS(31710) = Jac_FULL(5044,5256) - JVS(31710) = -B(20953) -! JVS(31711) = Jac_FULL(5044,5258) - JVS(31711) = 0 -! JVS(31712) = Jac_FULL(5045,1688) - JVS(31712) = B(359)+B(365) -! JVS(31713) = Jac_FULL(5045,2409) - JVS(31713) = B(4616) -! JVS(31714) = Jac_FULL(5045,5045) - JVS(31714) = -B(1813)-B(1815)-B(1817)-B(1819)-B(1821)-B(1822)-B(1823) -! JVS(31715) = Jac_FULL(5045,5238) - JVS(31715) = B(360) -! JVS(31716) = Jac_FULL(5045,5250) - JVS(31716) = B(366)+B(4617) -! JVS(31717) = Jac_FULL(5045,5252) - JVS(31717) = -B(1816)-B(1818) -! JVS(31718) = Jac_FULL(5045,5255) - JVS(31718) = -B(1814) -! JVS(31719) = Jac_FULL(5045,5256) - JVS(31719) = -B(1820) -! JVS(31720) = Jac_FULL(5046,4213) - JVS(31720) = B(13633) -! JVS(31721) = Jac_FULL(5046,4247) - JVS(31721) = B(16660) -! JVS(31722) = Jac_FULL(5046,4250) - JVS(31722) = B(20540) -! JVS(31723) = Jac_FULL(5046,4258) - JVS(31723) = B(17329) -! JVS(31724) = Jac_FULL(5046,4264) - JVS(31724) = B(14561) -! JVS(31725) = Jac_FULL(5046,4282) - JVS(31725) = B(13599) -! JVS(31726) = Jac_FULL(5046,4286) - JVS(31726) = B(6763) -! JVS(31727) = Jac_FULL(5046,4302) - JVS(31727) = B(7382) -! JVS(31728) = Jac_FULL(5046,4320) - JVS(31728) = B(5028) -! JVS(31729) = Jac_FULL(5046,4526) - JVS(31729) = B(14656) -! JVS(31730) = Jac_FULL(5046,4544) - JVS(31730) = B(4913) -! JVS(31731) = Jac_FULL(5046,4551) - JVS(31731) = B(16534) -! JVS(31732) = Jac_FULL(5046,4556) - JVS(31732) = B(13876) -! JVS(31733) = Jac_FULL(5046,4600) - JVS(31733) = 0 -! JVS(31734) = Jac_FULL(5046,4601) - JVS(31734) = 0 -! JVS(31735) = Jac_FULL(5046,4621) - JVS(31735) = B(15596) -! JVS(31736) = Jac_FULL(5046,4668) - JVS(31736) = B(13511) -! JVS(31737) = Jac_FULL(5046,4677) - JVS(31737) = B(16524) -! JVS(31738) = Jac_FULL(5046,4691) - JVS(31738) = B(14800) -! JVS(31739) = Jac_FULL(5046,4741) - JVS(31739) = B(15621) -! JVS(31740) = Jac_FULL(5046,4757) - JVS(31740) = B(14701) -! JVS(31741) = Jac_FULL(5046,4776) - JVS(31741) = B(13566) -! JVS(31742) = Jac_FULL(5046,4786) - JVS(31742) = 0 -! JVS(31743) = Jac_FULL(5046,4819) - JVS(31743) = B(6648) -! JVS(31744) = Jac_FULL(5046,4824) - JVS(31744) = B(17172) -! JVS(31745) = Jac_FULL(5046,4828) - JVS(31745) = B(15449) -! JVS(31746) = Jac_FULL(5046,4838) - JVS(31746) = B(5122) -! JVS(31747) = Jac_FULL(5046,4843) - JVS(31747) = B(7450) -! JVS(31748) = Jac_FULL(5046,4868) - JVS(31748) = B(5063) -! JVS(31749) = Jac_FULL(5046,4869) - JVS(31749) = B(11318) -! JVS(31750) = Jac_FULL(5046,4906) - JVS(31750) = B(6754) -! JVS(31751) = Jac_FULL(5046,4908) - JVS(31751) = B(4035) -! JVS(31752) = Jac_FULL(5046,4912) - JVS(31752) = B(7280) -! JVS(31753) = Jac_FULL(5046,4919) - JVS(31753) = B(6592) -! JVS(31754) = Jac_FULL(5046,4941) - JVS(31754) = B(4869) -! JVS(31755) = Jac_FULL(5046,4943) - JVS(31755) = B(4357) -! JVS(31756) = Jac_FULL(5046,4951) - JVS(31756) = 0 -! JVS(31757) = Jac_FULL(5046,4952) - JVS(31757) = 0 -! JVS(31758) = Jac_FULL(5046,4956) - JVS(31758) = B(4949) -! JVS(31759) = Jac_FULL(5046,4963) - JVS(31759) = B(10674) -! JVS(31760) = Jac_FULL(5046,4970) - JVS(31760) = 0 -! JVS(31761) = Jac_FULL(5046,4988) - JVS(31761) = 0 -! JVS(31762) = Jac_FULL(5046,4997) - JVS(31762) = B(9465) -! JVS(31763) = Jac_FULL(5046,4998) - JVS(31763) = B(9577) -! JVS(31764) = Jac_FULL(5046,4999) - JVS(31764) = B(13542) -! JVS(31765) = Jac_FULL(5046,5013) - JVS(31765) = 0 -! JVS(31766) = Jac_FULL(5046,5024) - JVS(31766) = 0 -! JVS(31767) = Jac_FULL(5046,5030) - JVS(31767) = 0 -! JVS(31768) = Jac_FULL(5046,5040) - JVS(31768) = B(16574) -! JVS(31769) = Jac_FULL(5046,5046) - JVS(31769) = -B(31)-B(66) -! JVS(31770) = Jac_FULL(5046,5047) - JVS(31770) = B(18757) -! JVS(31771) = Jac_FULL(5046,5048) - JVS(31771) = B(3580) -! JVS(31772) = Jac_FULL(5046,5049) - JVS(31772) = 0 -! JVS(31773) = Jac_FULL(5046,5050) - JVS(31773) = 0 -! JVS(31774) = Jac_FULL(5046,5051) - JVS(31774) = 0 -! JVS(31775) = Jac_FULL(5046,5058) - JVS(31775) = 0 -! JVS(31776) = Jac_FULL(5046,5066) - JVS(31776) = 0 -! JVS(31777) = Jac_FULL(5046,5068) - JVS(31777) = 0 -! JVS(31778) = Jac_FULL(5046,5069) - JVS(31778) = 0 -! JVS(31779) = Jac_FULL(5046,5070) - JVS(31779) = B(9345) -! JVS(31780) = Jac_FULL(5046,5076) - JVS(31780) = 0 -! JVS(31781) = Jac_FULL(5046,5091) - JVS(31781) = 0 -! JVS(31782) = Jac_FULL(5046,5092) - JVS(31782) = 0 -! JVS(31783) = Jac_FULL(5046,5093) - JVS(31783) = 0 -! JVS(31784) = Jac_FULL(5046,5099) - JVS(31784) = 0 -! JVS(31785) = Jac_FULL(5046,5102) - JVS(31785) = B(8872) -! JVS(31786) = Jac_FULL(5046,5123) - JVS(31786) = 0 -! JVS(31787) = Jac_FULL(5046,5132) - JVS(31787) = 0 -! JVS(31788) = Jac_FULL(5046,5153) - JVS(31788) = 0 -! JVS(31789) = Jac_FULL(5046,5156) - JVS(31789) = B(4292) -! JVS(31790) = Jac_FULL(5046,5166) - JVS(31790) = 0 -! JVS(31791) = Jac_FULL(5046,5168) - JVS(31791) = 0 -! JVS(31792) = Jac_FULL(5046,5170) - JVS(31792) = B(4264) -! JVS(31793) = Jac_FULL(5046,5175) - JVS(31793) = 0 -! JVS(31794) = Jac_FULL(5046,5190) - JVS(31794) = 0 -! JVS(31795) = Jac_FULL(5046,5200) - JVS(31795) = 0 -! JVS(31796) = Jac_FULL(5046,5205) - JVS(31796) = 0 -! JVS(31797) = Jac_FULL(5046,5207) - JVS(31797) = 0 -! JVS(31798) = Jac_FULL(5046,5217) - JVS(31798) = 0 -! JVS(31799) = Jac_FULL(5046,5218) - JVS(31799) = 0 -! JVS(31800) = Jac_FULL(5046,5219) - JVS(31800) = 0 -! JVS(31801) = Jac_FULL(5046,5220) - JVS(31801) = 0 -! JVS(31802) = Jac_FULL(5046,5223) - JVS(31802) = B(4059) -! JVS(31803) = Jac_FULL(5046,5224) - JVS(31803) = 0 -! JVS(31804) = Jac_FULL(5046,5249) - JVS(31804) = 0 -! JVS(31805) = Jac_FULL(5046,5250) - JVS(31805) = -B(32) -! JVS(31806) = Jac_FULL(5046,5251) - JVS(31806) = 0 -! JVS(31807) = Jac_FULL(5046,5252) - JVS(31807) = 0 -! JVS(31808) = Jac_FULL(5046,5253) - JVS(31808) = 0 -! JVS(31809) = Jac_FULL(5046,5254) - JVS(31809) = 0 -! JVS(31810) = Jac_FULL(5046,5255) - JVS(31810) = B(37) -! JVS(31811) = Jac_FULL(5046,5256) - JVS(31811) = 0 -! JVS(31812) = Jac_FULL(5046,5257) - JVS(31812) = 0 -! JVS(31813) = Jac_FULL(5046,5258) - JVS(31813) = 0 -! JVS(31814) = Jac_FULL(5047,386) - JVS(31814) = B(16515) -! JVS(31815) = Jac_FULL(5047,4832) - JVS(31815) = 0 -! JVS(31816) = Jac_FULL(5047,5047) - JVS(31816) = -B(18749)-B(18751)-B(18753)-B(18755)-B(18757) -! JVS(31817) = Jac_FULL(5047,5204) - JVS(31817) = 0 -! JVS(31818) = Jac_FULL(5047,5217) - JVS(31818) = 0 -! JVS(31819) = Jac_FULL(5047,5250) - JVS(31819) = 0 -! JVS(31820) = Jac_FULL(5047,5251) - JVS(31820) = -B(18750) -! JVS(31821) = Jac_FULL(5047,5252) - JVS(31821) = -B(18752) -! JVS(31822) = Jac_FULL(5047,5253) - JVS(31822) = -B(18754) -! JVS(31823) = Jac_FULL(5047,5254) - JVS(31823) = -B(18756) -! JVS(31824) = Jac_FULL(5047,5256) - JVS(31824) = 0 -! JVS(31825) = Jac_FULL(5047,5258) - JVS(31825) = 0 -! JVS(31826) = Jac_FULL(5048,4988) - JVS(31826) = B(906) -! JVS(31827) = Jac_FULL(5048,5048) - JVS(31827) = -B(3572)-B(3574)-B(3576)-B(3578)-B(3580)-B(3581) -! JVS(31828) = Jac_FULL(5048,5250) - JVS(31828) = 0 -! JVS(31829) = Jac_FULL(5048,5251) - JVS(31829) = -B(3573) -! JVS(31830) = Jac_FULL(5048,5252) - JVS(31830) = -B(3575) -! JVS(31831) = Jac_FULL(5048,5253) - JVS(31831) = -B(3577) -! JVS(31832) = Jac_FULL(5048,5254) - JVS(31832) = -B(3579) -! JVS(31833) = Jac_FULL(5048,5256) - JVS(31833) = 0 -! JVS(31834) = Jac_FULL(5048,5258) - JVS(31834) = B(907) -! JVS(31835) = Jac_FULL(5049,238) - JVS(31835) = B(6653) -! JVS(31836) = Jac_FULL(5049,1352) - JVS(31836) = B(6650) -! JVS(31837) = Jac_FULL(5049,1971) - JVS(31837) = B(6652) -! JVS(31838) = Jac_FULL(5049,3102) - JVS(31838) = B(6626) -! JVS(31839) = Jac_FULL(5049,3658) - JVS(31839) = 0 -! JVS(31840) = Jac_FULL(5049,3670) - JVS(31840) = B(3065) -! JVS(31841) = Jac_FULL(5049,5049) - JVS(31841) = -B(6655)-B(6656)-B(6657)-B(6659)-B(6661)-B(6663)-B(6665) -! JVS(31842) = Jac_FULL(5049,5153) - JVS(31842) = 0 -! JVS(31843) = Jac_FULL(5049,5250) - JVS(31843) = B(6627)+B(6651)+B(6654)-B(6664)-B(6666) -! JVS(31844) = Jac_FULL(5049,5252) - JVS(31844) = 0 -! JVS(31845) = Jac_FULL(5049,5255) - JVS(31845) = 0 -! JVS(31846) = Jac_FULL(5049,5256) - JVS(31846) = -B(6658) -! JVS(31847) = Jac_FULL(5049,5258) - JVS(31847) = -B(6660)-B(6662) -! JVS(31848) = Jac_FULL(5050,1365) - JVS(31848) = B(6619) -! JVS(31849) = Jac_FULL(5050,2099) - JVS(31849) = B(6622) -! JVS(31850) = Jac_FULL(5050,2100) - JVS(31850) = B(6624) -! JVS(31851) = Jac_FULL(5050,3658) - JVS(31851) = B(3047) -! JVS(31852) = Jac_FULL(5050,5050) - JVS(31852) = -B(6628)-B(6629)-B(6631)-B(6633)-B(6635)-B(6637) -! JVS(31853) = Jac_FULL(5050,5153) - JVS(31853) = 0 -! JVS(31854) = Jac_FULL(5050,5250) - JVS(31854) = B(6620)+B(6623)-B(6636)-B(6638) -! JVS(31855) = Jac_FULL(5050,5252) - JVS(31855) = 0 -! JVS(31856) = Jac_FULL(5050,5255) - JVS(31856) = 0 -! JVS(31857) = Jac_FULL(5050,5256) - JVS(31857) = -B(6630) -! JVS(31858) = Jac_FULL(5050,5258) - JVS(31858) = -B(6632)-B(6634) -! JVS(31859) = Jac_FULL(5051,5051) - JVS(31859) = -B(441)-B(443)-B(445)-B(447)-B(449)-B(451) -! JVS(31860) = Jac_FULL(5051,5162) - JVS(31860) = B(4487) -! JVS(31861) = Jac_FULL(5051,5250) - JVS(31861) = -B(450)-B(452) -! JVS(31862) = Jac_FULL(5051,5256) - JVS(31862) = -B(442)-B(444) -! JVS(31863) = Jac_FULL(5051,5258) - JVS(31863) = -B(446)-B(448) -! JVS(31864) = Jac_FULL(5052,585) - JVS(31864) = B(17217) -! JVS(31865) = Jac_FULL(5052,1509) - JVS(31865) = B(20979) -! JVS(31866) = Jac_FULL(5052,1687) - JVS(31866) = B(17223) -! JVS(31867) = Jac_FULL(5052,1863) - JVS(31867) = B(17216) -! JVS(31868) = Jac_FULL(5052,2315) - JVS(31868) = B(17218)+B(17220) -! JVS(31869) = Jac_FULL(5052,2704) - JVS(31869) = B(20984) -! JVS(31870) = Jac_FULL(5052,4761) - JVS(31870) = 0 -! JVS(31871) = Jac_FULL(5052,5052) - JVS(31871) = -B(19414)-B(19416)-B(19418)-B(19420)-B(19422)-B(19424)-B(19426)-B(19427) -! JVS(31872) = Jac_FULL(5052,5248) - JVS(31872) = 0 -! JVS(31873) = Jac_FULL(5052,5249) - JVS(31873) = 0 -! JVS(31874) = Jac_FULL(5052,5250) - JVS(31874) = B(17219)+B(20980) -! JVS(31875) = Jac_FULL(5052,5252) - JVS(31875) = -B(19421) -! JVS(31876) = Jac_FULL(5052,5253) - JVS(31876) = -B(19423) -! JVS(31877) = Jac_FULL(5052,5255) - JVS(31877) = -B(19415)-B(19417)-B(19419) -! JVS(31878) = Jac_FULL(5052,5256) - JVS(31878) = -B(19425) -! JVS(31879) = Jac_FULL(5052,5258) - JVS(31879) = 0 -! JVS(31880) = Jac_FULL(5053,1037) - JVS(31880) = B(11599)+B(11600) -! JVS(31881) = Jac_FULL(5053,1100) - JVS(31881) = B(11602) -! JVS(31882) = Jac_FULL(5053,2774) - JVS(31882) = B(7019) -! JVS(31883) = Jac_FULL(5053,2803) - JVS(31883) = B(15432) -! JVS(31884) = Jac_FULL(5053,3759) - JVS(31884) = B(12305) -! JVS(31885) = Jac_FULL(5053,4053) - JVS(31885) = 0 -! JVS(31886) = Jac_FULL(5053,4735) - JVS(31886) = 0 -! JVS(31887) = Jac_FULL(5053,4804) - JVS(31887) = 0 -! JVS(31888) = Jac_FULL(5053,4889) - JVS(31888) = 0 -! JVS(31889) = Jac_FULL(5053,5053) - JVS(31889) = -B(3227)-B(3229)-B(3231)-B(3233)-B(3234)-B(3235) -! JVS(31890) = Jac_FULL(5053,5135) - JVS(31890) = 0 -! JVS(31891) = Jac_FULL(5053,5137) - JVS(31891) = B(7846)+B(7848)+B(7852)+B(7855) -! JVS(31892) = Jac_FULL(5053,5140) - JVS(31892) = 0 -! JVS(31893) = Jac_FULL(5053,5143) - JVS(31893) = B(4207) -! JVS(31894) = Jac_FULL(5053,5157) - JVS(31894) = B(7102) -! JVS(31895) = Jac_FULL(5053,5178) - JVS(31895) = B(818) -! JVS(31896) = Jac_FULL(5053,5250) - JVS(31896) = B(819)+B(7020)+B(11601) -! JVS(31897) = Jac_FULL(5053,5252) - JVS(31897) = -B(3230)+B(7849) -! JVS(31898) = Jac_FULL(5053,5255) - JVS(31898) = -B(3228)+B(7847) -! JVS(31899) = Jac_FULL(5053,5256) - JVS(31899) = -B(3232)+B(7853) -! JVS(31900) = Jac_FULL(5053,5258) - JVS(31900) = 0 -! JVS(31901) = Jac_FULL(5054,1347) - JVS(31901) = B(23821) -! JVS(31902) = Jac_FULL(5054,2209) - JVS(31902) = B(23679)+B(23681) -! JVS(31903) = Jac_FULL(5054,2703) - JVS(31903) = B(23835) -! JVS(31904) = Jac_FULL(5054,3849) - JVS(31904) = B(23374)+B(23376) -! JVS(31905) = Jac_FULL(5054,4117) - JVS(31905) = 0 -! JVS(31906) = Jac_FULL(5054,4120) - JVS(31906) = 0 -! JVS(31907) = Jac_FULL(5054,5044) - JVS(31907) = 0 -! JVS(31908) = Jac_FULL(5054,5054) - JVS(31908) = -B(23632)-B(23634)-B(23636)-B(23638)-B(23640)-B(23642)-B(23644)-B(23645) -! JVS(31909) = Jac_FULL(5054,5175) - JVS(31909) = 0 -! JVS(31910) = Jac_FULL(5054,5187) - JVS(31910) = 0 -! JVS(31911) = Jac_FULL(5054,5250) - JVS(31911) = B(23377)+B(23680)+B(23822) -! JVS(31912) = Jac_FULL(5054,5252) - JVS(31912) = -B(23639) -! JVS(31913) = Jac_FULL(5054,5253) - JVS(31913) = -B(23641) -! JVS(31914) = Jac_FULL(5054,5255) - JVS(31914) = -B(23633)-B(23635)-B(23637) -! JVS(31915) = Jac_FULL(5054,5256) - JVS(31915) = B(23375)-B(23643) -! JVS(31916) = Jac_FULL(5054,5258) - JVS(31916) = 0 -! JVS(31917) = Jac_FULL(5055,1856) - JVS(31917) = B(14114) -! JVS(31918) = Jac_FULL(5055,2247) - JVS(31918) = B(14109) -! JVS(31919) = Jac_FULL(5055,2251) - JVS(31919) = B(22761) -! JVS(31920) = Jac_FULL(5055,2800) - JVS(31920) = B(22765) -! JVS(31921) = Jac_FULL(5055,2884) - JVS(31921) = B(17502) -! JVS(31922) = Jac_FULL(5055,2939) - JVS(31922) = B(14117) -! JVS(31923) = Jac_FULL(5055,3079) - JVS(31923) = B(21138) -! JVS(31924) = Jac_FULL(5055,3212) - JVS(31924) = B(12014) -! JVS(31925) = Jac_FULL(5055,3938) - JVS(31925) = B(21141) -! JVS(31926) = Jac_FULL(5055,4207) - JVS(31926) = B(22142)+B(22144)+B(22148)+B(22150) -! JVS(31927) = Jac_FULL(5055,4705) - JVS(31927) = B(1353) -! JVS(31928) = Jac_FULL(5055,4722) - JVS(31928) = 0 -! JVS(31929) = Jac_FULL(5055,4778) - JVS(31929) = 0 -! JVS(31930) = Jac_FULL(5055,4848) - JVS(31930) = 0 -! JVS(31931) = Jac_FULL(5055,5055) - JVS(31931) = -B(4138)-B(4139)-B(4141)-B(4143) -! JVS(31932) = Jac_FULL(5055,5120) - JVS(31932) = 0 -! JVS(31933) = Jac_FULL(5055,5146) - JVS(31933) = 0 -! JVS(31934) = Jac_FULL(5055,5150) - JVS(31934) = B(10918) -! JVS(31935) = Jac_FULL(5055,5163) - JVS(31935) = 0 -! JVS(31936) = Jac_FULL(5055,5192) - JVS(31936) = 0 -! JVS(31937) = Jac_FULL(5055,5230) - JVS(31937) = 0 -! JVS(31938) = Jac_FULL(5055,5250) - JVS(31938) = -B(4142)-B(4144)+B(12015)+B(14110)+B(14115)+B(17503)+B(22766) -! JVS(31939) = Jac_FULL(5055,5252) - JVS(31939) = B(22145) -! JVS(31940) = Jac_FULL(5055,5253) - JVS(31940) = 0 -! JVS(31941) = Jac_FULL(5055,5255) - JVS(31941) = B(22143) -! JVS(31942) = Jac_FULL(5055,5256) - JVS(31942) = -B(4140)+B(22149) -! JVS(31943) = Jac_FULL(5056,1488) - JVS(31943) = B(4564) -! JVS(31944) = Jac_FULL(5056,2385) - JVS(31944) = B(337)+B(345) -! JVS(31945) = Jac_FULL(5056,5056) - JVS(31945) = -B(1771)-B(1773)-B(1775)-B(1777)-B(1779)-B(1780) -! JVS(31946) = Jac_FULL(5056,5238) - JVS(31946) = B(338) -! JVS(31947) = Jac_FULL(5056,5250) - JVS(31947) = B(346)+B(4565) -! JVS(31948) = Jac_FULL(5056,5252) - JVS(31948) = -B(1774)-B(1776) -! JVS(31949) = Jac_FULL(5056,5255) - JVS(31949) = -B(1772) -! JVS(31950) = Jac_FULL(5056,5256) - JVS(31950) = -B(1778) -! JVS(31951) = Jac_FULL(5057,896) - JVS(31951) = B(3840) -! JVS(31952) = Jac_FULL(5057,1557) - JVS(31952) = B(17810) -! JVS(31953) = Jac_FULL(5057,1994) - JVS(31953) = B(3856) -! JVS(31954) = Jac_FULL(5057,2459) - JVS(31954) = B(3861) -! JVS(31955) = Jac_FULL(5057,2848) - JVS(31955) = B(17629) -! JVS(31956) = Jac_FULL(5057,2891) - JVS(31956) = B(3864) -! JVS(31957) = Jac_FULL(5057,3528) - JVS(31957) = B(17801) -! JVS(31958) = Jac_FULL(5057,4629) - JVS(31958) = 0 -! JVS(31959) = Jac_FULL(5057,4844) - JVS(31959) = 0 -! JVS(31960) = Jac_FULL(5057,4967) - JVS(31960) = 0 -! JVS(31961) = Jac_FULL(5057,5056) - JVS(31961) = 0 -! JVS(31962) = Jac_FULL(5057,5057) - JVS(31962) = -B(3865)-B(3866)-B(3868) -! JVS(31963) = Jac_FULL(5057,5077) - JVS(31963) = 0 -! JVS(31964) = Jac_FULL(5057,5082) - JVS(31964) = 0 -! JVS(31965) = Jac_FULL(5057,5090) - JVS(31965) = 0 -! JVS(31966) = Jac_FULL(5057,5146) - JVS(31966) = 0 -! JVS(31967) = Jac_FULL(5057,5148) - JVS(31967) = B(1115) -! JVS(31968) = Jac_FULL(5057,5238) - JVS(31968) = 0 -! JVS(31969) = Jac_FULL(5057,5239) - JVS(31969) = B(3832) -! JVS(31970) = Jac_FULL(5057,5250) - JVS(31970) = B(3841)+B(3857)+B(3862)-B(3869)+B(17630) -! JVS(31971) = Jac_FULL(5057,5252) - JVS(31971) = 0 -! JVS(31972) = Jac_FULL(5057,5253) - JVS(31972) = 0 -! JVS(31973) = Jac_FULL(5057,5255) - JVS(31973) = 0 -! JVS(31974) = Jac_FULL(5057,5256) - JVS(31974) = -B(3867) -! JVS(31975) = Jac_FULL(5058,1698) - JVS(31975) = B(8740) -! JVS(31976) = Jac_FULL(5058,2200) - JVS(31976) = B(8734) -! JVS(31977) = Jac_FULL(5058,2955) - JVS(31977) = B(8690) -! JVS(31978) = Jac_FULL(5058,3022) - JVS(31978) = B(8733) -! JVS(31979) = Jac_FULL(5058,3342) - JVS(31979) = B(5209) -! JVS(31980) = Jac_FULL(5058,3795) - JVS(31980) = B(5885) -! JVS(31981) = Jac_FULL(5058,3805) - JVS(31981) = B(5796) -! JVS(31982) = Jac_FULL(5058,3812) - JVS(31982) = B(5706) -! JVS(31983) = Jac_FULL(5058,3824) - JVS(31983) = B(5336) -! JVS(31984) = Jac_FULL(5058,4177) - JVS(31984) = B(6204) -! JVS(31985) = Jac_FULL(5058,4396) - JVS(31985) = B(2362) -! JVS(31986) = Jac_FULL(5058,4399) - JVS(31986) = 0 -! JVS(31987) = Jac_FULL(5058,4513) - JVS(31987) = 0 -! JVS(31988) = Jac_FULL(5058,4649) - JVS(31988) = 0 -! JVS(31989) = Jac_FULL(5058,4950) - JVS(31989) = B(5406) -! JVS(31990) = Jac_FULL(5058,5058) - JVS(31990) = -B(5258)-B(5260)-B(5262)-B(5264)-B(5266)-B(5267) -! JVS(31991) = Jac_FULL(5058,5250) - JVS(31991) = -B(5263)-B(5265)+B(8691) -! JVS(31992) = Jac_FULL(5058,5252) - JVS(31992) = 0 -! JVS(31993) = Jac_FULL(5058,5253) - JVS(31993) = 0 -! JVS(31994) = Jac_FULL(5058,5255) - JVS(31994) = 0 -! JVS(31995) = Jac_FULL(5058,5256) - JVS(31995) = -B(5259) -! JVS(31996) = Jac_FULL(5058,5258) - JVS(31996) = -B(5261) -! JVS(31997) = Jac_FULL(5059,2471) - JVS(31997) = B(15459) -! JVS(31998) = Jac_FULL(5059,3478) - JVS(31998) = 0 -! JVS(31999) = Jac_FULL(5059,3712) - JVS(31999) = 0 -! JVS(32000) = Jac_FULL(5059,4029) - JVS(32000) = 0 -! JVS(32001) = Jac_FULL(5059,4062) - JVS(32001) = 0 -! JVS(32002) = Jac_FULL(5059,4071) - JVS(32002) = 0 -! JVS(32003) = Jac_FULL(5059,4086) - JVS(32003) = 0 -! JVS(32004) = Jac_FULL(5059,4195) - JVS(32004) = 0 -! JVS(32005) = Jac_FULL(5059,4271) - JVS(32005) = 0 -! JVS(32006) = Jac_FULL(5059,4273) - JVS(32006) = 0 -! JVS(32007) = Jac_FULL(5059,4398) - JVS(32007) = 0 -! JVS(32008) = Jac_FULL(5059,4467) - JVS(32008) = 0 -! JVS(32009) = Jac_FULL(5059,4491) - JVS(32009) = 0 -! JVS(32010) = Jac_FULL(5059,4531) - JVS(32010) = 0 -! JVS(32011) = Jac_FULL(5059,4603) - JVS(32011) = 0 -! JVS(32012) = Jac_FULL(5059,4619) - JVS(32012) = 0 -! JVS(32013) = Jac_FULL(5059,4743) - JVS(32013) = 0 -! JVS(32014) = Jac_FULL(5059,4799) - JVS(32014) = 0 -! JVS(32015) = Jac_FULL(5059,4859) - JVS(32015) = 0 -! JVS(32016) = Jac_FULL(5059,4916) - JVS(32016) = 0 -! JVS(32017) = Jac_FULL(5059,4917) - JVS(32017) = 0 -! JVS(32018) = Jac_FULL(5059,4930) - JVS(32018) = 0 -! JVS(32019) = Jac_FULL(5059,4965) - JVS(32019) = 0 -! JVS(32020) = Jac_FULL(5059,4986) - JVS(32020) = 0 -! JVS(32021) = Jac_FULL(5059,5034) - JVS(32021) = 0 -! JVS(32022) = Jac_FULL(5059,5058) - JVS(32022) = 0 -! JVS(32023) = Jac_FULL(5059,5059) - JVS(32023) = -B(18046)-B(18048)-B(18050)-B(18052)-B(18053)-B(18054) -! JVS(32024) = Jac_FULL(5059,5066) - JVS(32024) = 0 -! JVS(32025) = Jac_FULL(5059,5068) - JVS(32025) = 0 -! JVS(32026) = Jac_FULL(5059,5123) - JVS(32026) = 0 -! JVS(32027) = Jac_FULL(5059,5126) - JVS(32027) = 0 -! JVS(32028) = Jac_FULL(5059,5250) - JVS(32028) = B(15460) -! JVS(32029) = Jac_FULL(5059,5251) - JVS(32029) = 0 -! JVS(32030) = Jac_FULL(5059,5252) - JVS(32030) = -B(18049) -! JVS(32031) = Jac_FULL(5059,5253) - JVS(32031) = 0 -! JVS(32032) = Jac_FULL(5059,5254) - JVS(32032) = 0 -! JVS(32033) = Jac_FULL(5059,5255) - JVS(32033) = -B(18047) -! JVS(32034) = Jac_FULL(5059,5256) - JVS(32034) = -B(18051) -! JVS(32035) = Jac_FULL(5059,5258) - JVS(32035) = 0 -! JVS(32036) = Jac_FULL(5060,434) - JVS(32036) = B(19019) -! JVS(32037) = Jac_FULL(5060,1041) - JVS(32037) = B(19021) -! JVS(32038) = Jac_FULL(5060,1138) - JVS(32038) = B(3712) -! JVS(32039) = Jac_FULL(5060,1701) - JVS(32039) = B(102) -! JVS(32040) = Jac_FULL(5060,4501) - JVS(32040) = B(17728) -! JVS(32041) = Jac_FULL(5060,4512) - JVS(32041) = B(473) -! JVS(32042) = Jac_FULL(5060,4755) - JVS(32042) = 0 -! JVS(32043) = Jac_FULL(5060,4834) - JVS(32043) = 0 -! JVS(32044) = Jac_FULL(5060,4974) - JVS(32044) = 0 -! JVS(32045) = Jac_FULL(5060,5060) - JVS(32045) = -B(998)-B(1000)-B(1002)-B(1004)-B(1006)-B(1007) -! JVS(32046) = Jac_FULL(5060,5077) - JVS(32046) = 0 -! JVS(32047) = Jac_FULL(5060,5079) - JVS(32047) = B(16804)+B(16806)+B(16810)+B(16813) -! JVS(32048) = Jac_FULL(5060,5082) - JVS(32048) = 0 -! JVS(32049) = Jac_FULL(5060,5238) - JVS(32049) = 0 -! JVS(32050) = Jac_FULL(5060,5250) - JVS(32050) = B(103)+B(474)+B(3713)+B(19020) -! JVS(32051) = Jac_FULL(5060,5252) - JVS(32051) = -B(1001)-B(1003)+B(16807) -! JVS(32052) = Jac_FULL(5060,5253) - JVS(32052) = 0 -! JVS(32053) = Jac_FULL(5060,5255) - JVS(32053) = -B(999)+B(16805) -! JVS(32054) = Jac_FULL(5060,5256) - JVS(32054) = -B(1005)+B(16811) -! JVS(32055) = Jac_FULL(5060,5258) - JVS(32055) = 0 -! JVS(32056) = Jac_FULL(5061,1641) - JVS(32056) = B(349)+B(355) -! JVS(32057) = Jac_FULL(5061,1753) - JVS(32057) = B(4592) -! JVS(32058) = Jac_FULL(5061,5061) - JVS(32058) = -B(1792)-B(1794)-B(1796)-B(1798)-B(1800)-B(1801)-B(1802) -! JVS(32059) = Jac_FULL(5061,5238) - JVS(32059) = B(350) -! JVS(32060) = Jac_FULL(5061,5250) - JVS(32060) = B(356)+B(4593) -! JVS(32061) = Jac_FULL(5061,5252) - JVS(32061) = -B(1795)-B(1797) -! JVS(32062) = Jac_FULL(5061,5255) - JVS(32062) = -B(1793) -! JVS(32063) = Jac_FULL(5061,5256) - JVS(32063) = -B(1799) -! JVS(32064) = Jac_FULL(5062,438) - JVS(32064) = B(7638) -! JVS(32065) = Jac_FULL(5062,1074) - JVS(32065) = B(17518) -! JVS(32066) = Jac_FULL(5062,1516) - JVS(32066) = B(7640) -! JVS(32067) = Jac_FULL(5062,1817) - JVS(32067) = B(277)+B(281) -! JVS(32068) = Jac_FULL(5062,2435) - JVS(32068) = B(4381) -! JVS(32069) = Jac_FULL(5062,2487) - JVS(32069) = 0 -! JVS(32070) = Jac_FULL(5062,3594) - JVS(32070) = B(4599) -! JVS(32071) = Jac_FULL(5062,4412) - JVS(32071) = B(14961) -! JVS(32072) = Jac_FULL(5062,4527) - JVS(32072) = 0 -! JVS(32073) = Jac_FULL(5062,4634) - JVS(32073) = B(3779)+B(3781)+B(3785)+B(3788) -! JVS(32074) = Jac_FULL(5062,5042) - JVS(32074) = B(1054) -! JVS(32075) = Jac_FULL(5062,5061) - JVS(32075) = 0 -! JVS(32076) = Jac_FULL(5062,5062) - JVS(32076) = -B(1597)-B(1599)-B(1601)-B(1603)-B(1605)-B(1606)-B(1607) -! JVS(32077) = Jac_FULL(5062,5147) - JVS(32077) = 0 -! JVS(32078) = Jac_FULL(5062,5238) - JVS(32078) = B(278) -! JVS(32079) = Jac_FULL(5062,5250) - JVS(32079) = B(282)+B(4382)+B(7639) -! JVS(32080) = Jac_FULL(5062,5252) - JVS(32080) = -B(1600)-B(1602)+B(3782) -! JVS(32081) = Jac_FULL(5062,5253) - JVS(32081) = 0 -! JVS(32082) = Jac_FULL(5062,5255) - JVS(32082) = -B(1598)+B(3780) -! JVS(32083) = Jac_FULL(5062,5256) - JVS(32083) = -B(1604)+B(3786) -! JVS(32084) = Jac_FULL(5062,5258) - JVS(32084) = 0 -! JVS(32085) = Jac_FULL(5063,1838) - JVS(32085) = B(11874) -! JVS(32086) = Jac_FULL(5063,2555) - JVS(32086) = 0 -! JVS(32087) = Jac_FULL(5063,2775) - JVS(32087) = B(11889) -! JVS(32088) = Jac_FULL(5063,2934) - JVS(32088) = B(11894) -! JVS(32089) = Jac_FULL(5063,3873) - JVS(32089) = B(8155) -! JVS(32090) = Jac_FULL(5063,3989) - JVS(32090) = 0 -! JVS(32091) = Jac_FULL(5063,4696) - JVS(32091) = 0 -! JVS(32092) = Jac_FULL(5063,5061) - JVS(32092) = 0 -! JVS(32093) = Jac_FULL(5063,5063) - JVS(32093) = -B(11897)-B(11898)-B(11900)-B(11902) -! JVS(32094) = Jac_FULL(5063,5238) - JVS(32094) = 0 -! JVS(32095) = Jac_FULL(5063,5250) - JVS(32095) = B(11890)+B(11895)-B(11901)-B(11903) -! JVS(32096) = Jac_FULL(5063,5252) - JVS(32096) = 0 -! JVS(32097) = Jac_FULL(5063,5255) - JVS(32097) = 0 -! JVS(32098) = Jac_FULL(5063,5256) - JVS(32098) = -B(11899) -! JVS(32099) = Jac_FULL(5064,488) - JVS(32099) = B(11880) -! JVS(32100) = Jac_FULL(5064,1340) - JVS(32100) = B(11869) -! JVS(32101) = Jac_FULL(5064,1721) - JVS(32101) = B(11896) -! JVS(32102) = Jac_FULL(5064,2555) - JVS(32102) = B(11872) -! JVS(32103) = Jac_FULL(5064,2775) - JVS(32103) = 0 -! JVS(32104) = Jac_FULL(5064,2934) - JVS(32104) = 0 -! JVS(32105) = Jac_FULL(5064,3873) - JVS(32105) = 0 -! JVS(32106) = Jac_FULL(5064,3989) - JVS(32106) = B(8133) -! JVS(32107) = Jac_FULL(5064,4696) - JVS(32107) = 0 -! JVS(32108) = Jac_FULL(5064,5061) - JVS(32108) = 0 -! JVS(32109) = Jac_FULL(5064,5064) - JVS(32109) = -B(11875)-B(11876)-B(11878) -! JVS(32110) = Jac_FULL(5064,5238) - JVS(32110) = 0 -! JVS(32111) = Jac_FULL(5064,5250) - JVS(32111) = B(11870)+B(11873)-B(11877)-B(11879)+B(11881) -! JVS(32112) = Jac_FULL(5064,5252) - JVS(32112) = 0 -! JVS(32113) = Jac_FULL(5064,5255) - JVS(32113) = 0 -! JVS(32114) = Jac_FULL(5064,5256) - JVS(32114) = 0 -! JVS(32115) = Jac_FULL(5065,253) - JVS(32115) = B(415)+B(417) -! JVS(32116) = Jac_FULL(5065,5065) - JVS(32116) = -B(1964)-B(1966)-B(1968)-B(1970)-B(1972)-B(1973)-B(1974) -! JVS(32117) = Jac_FULL(5065,5238) - JVS(32117) = B(416) -! JVS(32118) = Jac_FULL(5065,5250) - JVS(32118) = B(418) -! JVS(32119) = Jac_FULL(5065,5252) - JVS(32119) = -B(1967)-B(1969) -! JVS(32120) = Jac_FULL(5065,5255) - JVS(32120) = -B(1965) -! JVS(32121) = Jac_FULL(5065,5256) - JVS(32121) = -B(1971) -! JVS(32122) = Jac_FULL(5066,1623) - JVS(32122) = B(9488) -! JVS(32123) = Jac_FULL(5066,2117) - JVS(32123) = B(9485) -! JVS(32124) = Jac_FULL(5066,2559) - JVS(32124) = B(9483) -! JVS(32125) = Jac_FULL(5066,2656) - JVS(32125) = B(9454) -! JVS(32126) = Jac_FULL(5066,3805) - JVS(32126) = B(5795) -! JVS(32127) = Jac_FULL(5066,4683) - JVS(32127) = 0 -! JVS(32128) = Jac_FULL(5066,4829) - JVS(32128) = 0 -! JVS(32129) = Jac_FULL(5066,5066) - JVS(32129) = -B(9416)-B(9418)-B(9420)-B(9422)-B(9424)-B(9426)-B(9427) -! JVS(32130) = Jac_FULL(5066,5250) - JVS(32130) = -B(9423)-B(9425)+B(9455) -! JVS(32131) = Jac_FULL(5066,5252) - JVS(32131) = 0 -! JVS(32132) = Jac_FULL(5066,5253) - JVS(32132) = 0 -! JVS(32133) = Jac_FULL(5066,5255) - JVS(32133) = 0 -! JVS(32134) = Jac_FULL(5066,5256) - JVS(32134) = -B(9417) -! JVS(32135) = Jac_FULL(5066,5258) - JVS(32135) = -B(9419)-B(9421) -! JVS(32136) = Jac_FULL(5067,1785) - JVS(32136) = B(4850) -! JVS(32137) = Jac_FULL(5067,2344) - JVS(32137) = B(12336) -! JVS(32138) = Jac_FULL(5067,2880) - JVS(32138) = B(11470) -! JVS(32139) = Jac_FULL(5067,3208) - JVS(32139) = B(4871) -! JVS(32140) = Jac_FULL(5067,4579) - JVS(32140) = 0 -! JVS(32141) = Jac_FULL(5067,4661) - JVS(32141) = B(12827) -! JVS(32142) = Jac_FULL(5067,4719) - JVS(32142) = 0 -! JVS(32143) = Jac_FULL(5067,4896) - JVS(32143) = 0 -! JVS(32144) = Jac_FULL(5067,5051) - JVS(32144) = 0 -! JVS(32145) = Jac_FULL(5067,5067) - JVS(32145) = -B(4877)-B(4879)-B(4881) -! JVS(32146) = Jac_FULL(5067,5126) - JVS(32146) = 0 -! JVS(32147) = Jac_FULL(5067,5136) - JVS(32147) = 0 -! JVS(32148) = Jac_FULL(5067,5149) - JVS(32148) = B(2050) -! JVS(32149) = Jac_FULL(5067,5162) - JVS(32149) = 0 -! JVS(32150) = Jac_FULL(5067,5250) - JVS(32150) = B(4851)+B(4872)-B(4880)+B(11471) -! JVS(32151) = Jac_FULL(5067,5252) - JVS(32151) = 0 -! JVS(32152) = Jac_FULL(5067,5253) - JVS(32152) = 0 -! JVS(32153) = Jac_FULL(5067,5255) - JVS(32153) = 0 -! JVS(32154) = Jac_FULL(5067,5256) - JVS(32154) = -B(4878) -! JVS(32155) = Jac_FULL(5067,5258) - JVS(32155) = 0 -! JVS(32156) = Jac_FULL(5068,1636) - JVS(32156) = B(9599) -! JVS(32157) = Jac_FULL(5068,1951) - JVS(32157) = B(9596) -! JVS(32158) = Jac_FULL(5068,2601) - JVS(32158) = B(9595) -! JVS(32159) = Jac_FULL(5068,2915) - JVS(32159) = B(9565) -! JVS(32160) = Jac_FULL(5068,3795) - JVS(32160) = B(5883) -! JVS(32161) = Jac_FULL(5068,4635) - JVS(32161) = 0 -! JVS(32162) = Jac_FULL(5068,4675) - JVS(32162) = 0 -! JVS(32163) = Jac_FULL(5068,5068) - JVS(32163) = -B(9526)-B(9528)-B(9530)-B(9532)-B(9534)-B(9536)-B(9537)-B(9538) -! JVS(32164) = Jac_FULL(5068,5250) - JVS(32164) = -B(9533)-B(9535)+B(9566) -! JVS(32165) = Jac_FULL(5068,5252) - JVS(32165) = 0 -! JVS(32166) = Jac_FULL(5068,5253) - JVS(32166) = 0 -! JVS(32167) = Jac_FULL(5068,5255) - JVS(32167) = 0 -! JVS(32168) = Jac_FULL(5068,5256) - JVS(32168) = -B(9527) -! JVS(32169) = Jac_FULL(5068,5258) - JVS(32169) = -B(9529)-B(9531) -! JVS(32170) = Jac_FULL(5069,1258) - JVS(32170) = B(6695) -! JVS(32171) = Jac_FULL(5069,2040) - JVS(32171) = B(6698) -! JVS(32172) = Jac_FULL(5069,2041) - JVS(32172) = B(6700) -! JVS(32173) = Jac_FULL(5069,3634) - JVS(32173) = B(3097) -! JVS(32174) = Jac_FULL(5069,5069) - JVS(32174) = -B(6708)-B(6709)-B(6711)-B(6713)-B(6715)-B(6717) -! JVS(32175) = Jac_FULL(5069,5166) - JVS(32175) = 0 -! JVS(32176) = Jac_FULL(5069,5250) - JVS(32176) = B(6696)+B(6699)-B(6716)-B(6718) -! JVS(32177) = Jac_FULL(5069,5252) - JVS(32177) = 0 -! JVS(32178) = Jac_FULL(5069,5255) - JVS(32178) = 0 -! JVS(32179) = Jac_FULL(5069,5256) - JVS(32179) = -B(6710) -! JVS(32180) = Jac_FULL(5069,5258) - JVS(32180) = -B(6712)-B(6714) -! JVS(32181) = Jac_FULL(5070,3186) - JVS(32181) = B(6461) -! JVS(32182) = Jac_FULL(5070,4017) - JVS(32182) = 0 -! JVS(32183) = Jac_FULL(5070,4018) - JVS(32183) = 0 -! JVS(32184) = Jac_FULL(5070,4081) - JVS(32184) = B(5732) -! JVS(32185) = Jac_FULL(5070,4272) - JVS(32185) = 0 -! JVS(32186) = Jac_FULL(5070,5070) - JVS(32186) = -B(9336)-B(9338)-B(9340)-B(9342)-B(9344)-B(9345) -! JVS(32187) = Jac_FULL(5070,5103) - JVS(32187) = 0 -! JVS(32188) = Jac_FULL(5070,5126) - JVS(32188) = 0 -! JVS(32189) = Jac_FULL(5070,5141) - JVS(32189) = 0 -! JVS(32190) = Jac_FULL(5070,5250) - JVS(32190) = 0 -! JVS(32191) = Jac_FULL(5070,5251) - JVS(32191) = -B(9337) -! JVS(32192) = Jac_FULL(5070,5252) - JVS(32192) = -B(9339) -! JVS(32193) = Jac_FULL(5070,5253) - JVS(32193) = -B(9341) -! JVS(32194) = Jac_FULL(5070,5254) - JVS(32194) = -B(9343) -! JVS(32195) = Jac_FULL(5070,5256) - JVS(32195) = 0 -! JVS(32196) = Jac_FULL(5070,5258) - JVS(32196) = 0 -! JVS(32197) = Jac_FULL(5071,126) - JVS(32197) = B(3734) -! JVS(32198) = Jac_FULL(5071,1568) - JVS(32198) = B(3728) -! JVS(32199) = Jac_FULL(5071,2005) - JVS(32199) = B(11506) -! JVS(32200) = Jac_FULL(5071,2144) - JVS(32200) = B(17407) -! JVS(32201) = Jac_FULL(5071,2235) - JVS(32201) = B(3720) -! JVS(32202) = Jac_FULL(5071,2261) - JVS(32202) = B(3725) -! JVS(32203) = Jac_FULL(5071,2677) - JVS(32203) = B(17411) -! JVS(32204) = Jac_FULL(5071,2885) - JVS(32204) = B(17522) -! JVS(32205) = Jac_FULL(5071,3205) - JVS(32205) = 0 -! JVS(32206) = Jac_FULL(5071,3847) - JVS(32206) = B(1387) -! JVS(32207) = Jac_FULL(5071,3991) - JVS(32207) = B(11507) -! JVS(32208) = Jac_FULL(5071,4260) - JVS(32208) = B(14852)+B(14854)+B(14858)+B(14860) -! JVS(32209) = Jac_FULL(5071,4359) - JVS(32209) = 0 -! JVS(32210) = Jac_FULL(5071,4411) - JVS(32210) = B(1016) -! JVS(32211) = Jac_FULL(5071,4412) - JVS(32211) = 0 -! JVS(32212) = Jac_FULL(5071,4755) - JVS(32212) = 0 -! JVS(32213) = Jac_FULL(5071,4974) - JVS(32213) = 0 -! JVS(32214) = Jac_FULL(5071,5010) - JVS(32214) = 0 -! JVS(32215) = Jac_FULL(5071,5071) - JVS(32215) = -B(3729)-B(3730)-B(3732) -! JVS(32216) = Jac_FULL(5071,5116) - JVS(32216) = 0 -! JVS(32217) = Jac_FULL(5071,5147) - JVS(32217) = 0 -! JVS(32218) = Jac_FULL(5071,5203) - JVS(32218) = 0 -! JVS(32219) = Jac_FULL(5071,5238) - JVS(32219) = 0 -! JVS(32220) = Jac_FULL(5071,5250) - JVS(32220) = B(3721)+B(3726)-B(3733)+B(3735)+B(17412)+B(17523) -! JVS(32221) = Jac_FULL(5071,5252) - JVS(32221) = B(14855) -! JVS(32222) = Jac_FULL(5071,5253) - JVS(32222) = 0 -! JVS(32223) = Jac_FULL(5071,5255) - JVS(32223) = B(14853) -! JVS(32224) = Jac_FULL(5071,5256) - JVS(32224) = -B(3731)+B(14859) -! JVS(32225) = Jac_FULL(5072,772) - JVS(32225) = B(22910) -! JVS(32226) = Jac_FULL(5072,1264) - JVS(32226) = B(22893) -! JVS(32227) = Jac_FULL(5072,2032) - JVS(32227) = B(22896) -! JVS(32228) = Jac_FULL(5072,2033) - JVS(32228) = B(22899) -! JVS(32229) = Jac_FULL(5072,2984) - JVS(32229) = B(22438) -! JVS(32230) = Jac_FULL(5072,3715) - JVS(32230) = B(22435) -! JVS(32231) = Jac_FULL(5072,4485) - JVS(32231) = 0 -! JVS(32232) = Jac_FULL(5072,4789) - JVS(32232) = 0 -! JVS(32233) = Jac_FULL(5072,5072) - JVS(32233) = -B(22900)-B(22902)-B(22904)-B(22906)-B(22908)-B(22909) -! JVS(32234) = Jac_FULL(5072,5215) - JVS(32234) = 0 -! JVS(32235) = Jac_FULL(5072,5250) - JVS(32235) = B(22439)+B(22894)+B(22897)-B(22905)-B(22907)+B(22911) -! JVS(32236) = Jac_FULL(5072,5252) - JVS(32236) = 0 -! JVS(32237) = Jac_FULL(5072,5253) - JVS(32237) = 0 -! JVS(32238) = Jac_FULL(5072,5255) - JVS(32238) = 0 -! JVS(32239) = Jac_FULL(5072,5256) - JVS(32239) = -B(22901)-B(22903) -! JVS(32240) = Jac_FULL(5073,1350) - JVS(32240) = B(21872) -! JVS(32241) = Jac_FULL(5073,2377) - JVS(32241) = B(19255) -! JVS(32242) = Jac_FULL(5073,2458) - JVS(32242) = 0 -! JVS(32243) = Jac_FULL(5073,2533) - JVS(32243) = 0 -! JVS(32244) = Jac_FULL(5073,3335) - JVS(32244) = 0 -! JVS(32245) = Jac_FULL(5073,3436) - JVS(32245) = B(21884) -! JVS(32246) = Jac_FULL(5073,3907) - JVS(32246) = 0 -! JVS(32247) = Jac_FULL(5073,4849) - JVS(32247) = 0 -! JVS(32248) = Jac_FULL(5073,5073) - JVS(32248) = -B(20823)-B(20825)-B(20827)-B(20829)-B(20831)-B(20833) -! JVS(32249) = Jac_FULL(5073,5175) - JVS(32249) = 0 -! JVS(32250) = Jac_FULL(5073,5176) - JVS(32250) = 0 -! JVS(32251) = Jac_FULL(5073,5196) - JVS(32251) = 0 -! JVS(32252) = Jac_FULL(5073,5212) - JVS(32252) = 0 -! JVS(32253) = Jac_FULL(5073,5250) - JVS(32253) = B(19256)+B(21873) -! JVS(32254) = Jac_FULL(5073,5252) - JVS(32254) = -B(20828) -! JVS(32255) = Jac_FULL(5073,5253) - JVS(32255) = -B(20830) -! JVS(32256) = Jac_FULL(5073,5255) - JVS(32256) = -B(20824)-B(20826) -! JVS(32257) = Jac_FULL(5073,5256) - JVS(32257) = -B(20832) -! JVS(32258) = Jac_FULL(5074,3625) - JVS(32258) = B(16579) -! JVS(32259) = Jac_FULL(5074,4615) - JVS(32259) = B(10555) -! JVS(32260) = Jac_FULL(5074,5074) - JVS(32260) = -B(13731)-B(13733)-B(13735)-B(13737)-B(13739)-B(13740)-B(13741) -! JVS(32261) = Jac_FULL(5074,5219) - JVS(32261) = 0 -! JVS(32262) = Jac_FULL(5074,5250) - JVS(32262) = B(10556)+B(16580) -! JVS(32263) = Jac_FULL(5074,5252) - JVS(32263) = -B(13734)-B(13736) -! JVS(32264) = Jac_FULL(5074,5255) - JVS(32264) = -B(13732) -! JVS(32265) = Jac_FULL(5074,5256) - JVS(32265) = -B(13738) -! JVS(32266) = Jac_FULL(5074,5258) - JVS(32266) = 0 -! JVS(32267) = Jac_FULL(5075,2735) - JVS(32267) = B(20433) -! JVS(32268) = Jac_FULL(5075,3272) - JVS(32268) = B(20426) -! JVS(32269) = Jac_FULL(5075,4378) - JVS(32269) = B(16646) -! JVS(32270) = Jac_FULL(5075,5075) - JVS(32270) = -B(18833)-B(18835)-B(18837)-B(18839)-B(18841)-B(18843)-B(18845)-B(18847)-B(18848) -! JVS(32271) = Jac_FULL(5075,5154) - JVS(32271) = 0 -! JVS(32272) = Jac_FULL(5075,5174) - JVS(32272) = 0 -! JVS(32273) = Jac_FULL(5075,5250) - JVS(32273) = B(16647)+B(20427) -! JVS(32274) = Jac_FULL(5075,5252) - JVS(32274) = -B(18840) -! JVS(32275) = Jac_FULL(5075,5253) - JVS(32275) = -B(18842) -! JVS(32276) = Jac_FULL(5075,5255) - JVS(32276) = -B(18834)-B(18836)-B(18838) -! JVS(32277) = Jac_FULL(5075,5256) - JVS(32277) = -B(18844)-B(18846) -! JVS(32278) = Jac_FULL(5076,4937) - JVS(32278) = B(5981) -! JVS(32279) = Jac_FULL(5076,4950) - JVS(32279) = B(5407) -! JVS(32280) = Jac_FULL(5076,5030) - JVS(32280) = B(6031) -! JVS(32281) = Jac_FULL(5076,5076) - JVS(32281) = -B(8915)-B(8917)-B(8919)-B(8921)-B(8923)-B(8925)-B(8926) -! JVS(32282) = Jac_FULL(5076,5250) - JVS(32282) = -B(8922)-B(8924) -! JVS(32283) = Jac_FULL(5076,5252) - JVS(32283) = 0 -! JVS(32284) = Jac_FULL(5076,5255) - JVS(32284) = 0 -! JVS(32285) = Jac_FULL(5076,5256) - JVS(32285) = -B(8916) -! JVS(32286) = Jac_FULL(5076,5258) - JVS(32286) = -B(8918)-B(8920) -! JVS(32287) = Jac_FULL(5077,1688) - JVS(32287) = B(363)+B(369) -! JVS(32288) = Jac_FULL(5077,2192) - JVS(32288) = B(4646) -! JVS(32289) = Jac_FULL(5077,5077) - JVS(32289) = -B(1835)-B(1837)-B(1839)-B(1841)-B(1843)-B(1844)-B(1845) -! JVS(32290) = Jac_FULL(5077,5238) - JVS(32290) = B(364) -! JVS(32291) = Jac_FULL(5077,5250) - JVS(32291) = B(370)+B(4647) -! JVS(32292) = Jac_FULL(5077,5252) - JVS(32292) = -B(1838)-B(1840) -! JVS(32293) = Jac_FULL(5077,5255) - JVS(32293) = -B(1836) -! JVS(32294) = Jac_FULL(5077,5256) - JVS(32294) = -B(1842) -! JVS(32295) = Jac_FULL(5078,291) - JVS(32295) = B(11962) -! JVS(32296) = Jac_FULL(5078,828) - JVS(32296) = B(11964) -! JVS(32297) = Jac_FULL(5078,1069) - JVS(32297) = B(4456) -! JVS(32298) = Jac_FULL(5078,1635) - JVS(32298) = B(307)+B(313) -! JVS(32299) = Jac_FULL(5078,3924) - JVS(32299) = B(4653) -! JVS(32300) = Jac_FULL(5078,4771) - JVS(32300) = B(8210)+B(8216)+B(8220)+B(8222) -! JVS(32301) = Jac_FULL(5078,5077) - JVS(32301) = 0 -! JVS(32302) = Jac_FULL(5078,5078) - JVS(32302) = -B(1684)-B(1686)-B(1688)-B(1690)-B(1692)-B(1693) -! JVS(32303) = Jac_FULL(5078,5238) - JVS(32303) = B(308) -! JVS(32304) = Jac_FULL(5078,5250) - JVS(32304) = B(314)+B(4457)+B(11963) -! JVS(32305) = Jac_FULL(5078,5252) - JVS(32305) = -B(1687)-B(1689)+B(8217) -! JVS(32306) = Jac_FULL(5078,5253) - JVS(32306) = 0 -! JVS(32307) = Jac_FULL(5078,5255) - JVS(32307) = -B(1685)+B(8211) -! JVS(32308) = Jac_FULL(5078,5256) - JVS(32308) = -B(1691)+B(8221) -! JVS(32309) = Jac_FULL(5079,695) - JVS(32309) = B(23903) -! JVS(32310) = Jac_FULL(5079,1041) - JVS(32310) = B(19022) -! JVS(32311) = Jac_FULL(5079,1556) - JVS(32311) = B(14183) -! JVS(32312) = Jac_FULL(5079,2255) - JVS(32312) = B(14187)+B(14188) -! JVS(32313) = Jac_FULL(5079,2300) - JVS(32313) = 0 -! JVS(32314) = Jac_FULL(5079,2680) - JVS(32314) = B(23906) -! JVS(32315) = Jac_FULL(5079,3275) - JVS(32315) = B(19024) -! JVS(32316) = Jac_FULL(5079,3291) - JVS(32316) = 0 -! JVS(32317) = Jac_FULL(5079,4105) - JVS(32317) = 0 -! JVS(32318) = Jac_FULL(5079,4501) - JVS(32318) = B(17729)+B(17731) -! JVS(32319) = Jac_FULL(5079,4820) - JVS(32319) = 0 -! JVS(32320) = Jac_FULL(5079,4834) - JVS(32320) = 0 -! JVS(32321) = Jac_FULL(5079,5045) - JVS(32321) = 0 -! JVS(32322) = Jac_FULL(5079,5077) - JVS(32322) = 0 -! JVS(32323) = Jac_FULL(5079,5079) - JVS(32323) = -B(16800)-B(16802)-B(16804)-B(16806)-B(16808)-B(16810)-B(16812)-B(16813) -! JVS(32324) = Jac_FULL(5079,5082) - JVS(32324) = 0 -! JVS(32325) = Jac_FULL(5079,5238) - JVS(32325) = 0 -! JVS(32326) = Jac_FULL(5079,5245) - JVS(32326) = 0 -! JVS(32327) = Jac_FULL(5079,5250) - JVS(32327) = B(14189)+B(17732)+B(19023) -! JVS(32328) = Jac_FULL(5079,5252) - JVS(32328) = -B(16807) -! JVS(32329) = Jac_FULL(5079,5253) - JVS(32329) = -B(16809) -! JVS(32330) = Jac_FULL(5079,5255) - JVS(32330) = -B(16801)-B(16803)-B(16805) -! JVS(32331) = Jac_FULL(5079,5256) - JVS(32331) = -B(16811)+B(17730) -! JVS(32332) = Jac_FULL(5080,790) - JVS(32332) = B(13832) -! JVS(32333) = Jac_FULL(5080,2475) - JVS(32333) = B(23364) -! JVS(32334) = Jac_FULL(5080,2777) - JVS(32334) = B(23352) -! JVS(32335) = Jac_FULL(5080,3250) - JVS(32335) = B(18738)+B(18740) -! JVS(32336) = Jac_FULL(5080,3495) - JVS(32336) = B(23357) -! JVS(32337) = Jac_FULL(5080,3501) - JVS(32337) = 0 -! JVS(32338) = Jac_FULL(5080,3514) - JVS(32338) = B(10468) -! JVS(32339) = Jac_FULL(5080,3550) - JVS(32339) = 0 -! JVS(32340) = Jac_FULL(5080,3611) - JVS(32340) = B(23360) -! JVS(32341) = Jac_FULL(5080,4321) - JVS(32341) = 0 -! JVS(32342) = Jac_FULL(5080,4564) - JVS(32342) = B(10460) -! JVS(32343) = Jac_FULL(5080,4625) - JVS(32343) = 0 -! JVS(32344) = Jac_FULL(5080,4636) - JVS(32344) = 0 -! JVS(32345) = Jac_FULL(5080,4711) - JVS(32345) = 0 -! JVS(32346) = Jac_FULL(5080,4786) - JVS(32346) = 0 -! JVS(32347) = Jac_FULL(5080,5016) - JVS(32347) = B(6742) -! JVS(32348) = Jac_FULL(5080,5020) - JVS(32348) = 0 -! JVS(32349) = Jac_FULL(5080,5033) - JVS(32349) = 0 -! JVS(32350) = Jac_FULL(5080,5075) - JVS(32350) = 0 -! JVS(32351) = Jac_FULL(5080,5080) - JVS(32351) = -B(10471)-B(10472) -! JVS(32352) = Jac_FULL(5080,5134) - JVS(32352) = 0 -! JVS(32353) = Jac_FULL(5080,5154) - JVS(32353) = 0 -! JVS(32354) = Jac_FULL(5080,5159) - JVS(32354) = 0 -! JVS(32355) = Jac_FULL(5080,5174) - JVS(32355) = 0 -! JVS(32356) = Jac_FULL(5080,5177) - JVS(32356) = 0 -! JVS(32357) = Jac_FULL(5080,5189) - JVS(32357) = 0 -! JVS(32358) = Jac_FULL(5080,5197) - JVS(32358) = B(10837) -! JVS(32359) = Jac_FULL(5080,5217) - JVS(32359) = 0 -! JVS(32360) = Jac_FULL(5080,5218) - JVS(32360) = 0 -! JVS(32361) = Jac_FULL(5080,5220) - JVS(32361) = 0 -! JVS(32362) = Jac_FULL(5080,5224) - JVS(32362) = 0 -! JVS(32363) = Jac_FULL(5080,5225) - JVS(32363) = B(10462) -! JVS(32364) = Jac_FULL(5080,5227) - JVS(32364) = 0 -! JVS(32365) = Jac_FULL(5080,5250) - JVS(32365) = B(10461)+B(10463)+B(10469)-B(10473)+B(18741)+B(23353) -! JVS(32366) = Jac_FULL(5080,5252) - JVS(32366) = 0 -! JVS(32367) = Jac_FULL(5080,5253) - JVS(32367) = 0 -! JVS(32368) = Jac_FULL(5080,5255) - JVS(32368) = 0 -! JVS(32369) = Jac_FULL(5080,5256) - JVS(32369) = 0 -! JVS(32370) = Jac_FULL(5080,5258) - JVS(32370) = 0 -! JVS(32371) = Jac_FULL(5081,3689) - JVS(32371) = B(860) -! JVS(32372) = Jac_FULL(5081,5081) - JVS(32372) = -B(3396)-B(3398)-B(3400)-B(3402)-B(3404)-B(3405)-B(3406) -! JVS(32373) = Jac_FULL(5081,5181) - JVS(32373) = 0 -! JVS(32374) = Jac_FULL(5081,5250) - JVS(32374) = B(861) -! JVS(32375) = Jac_FULL(5081,5252) - JVS(32375) = -B(3399)-B(3401) -! JVS(32376) = Jac_FULL(5081,5255) - JVS(32376) = -B(3397) -! JVS(32377) = Jac_FULL(5081,5256) - JVS(32377) = -B(3403) -! JVS(32378) = Jac_FULL(5082,1688) - JVS(32378) = B(361)+B(367) -! JVS(32379) = Jac_FULL(5082,2264) - JVS(32379) = B(4630) -! JVS(32380) = Jac_FULL(5082,5082) - JVS(32380) = -B(1824)-B(1826)-B(1828)-B(1830)-B(1832)-B(1833)-B(1834) -! JVS(32381) = Jac_FULL(5082,5238) - JVS(32381) = B(362) -! JVS(32382) = Jac_FULL(5082,5250) - JVS(32382) = B(368)+B(4631) -! JVS(32383) = Jac_FULL(5082,5252) - JVS(32383) = -B(1827)-B(1829) -! JVS(32384) = Jac_FULL(5082,5255) - JVS(32384) = -B(1825) -! JVS(32385) = Jac_FULL(5082,5256) - JVS(32385) = -B(1831) -! JVS(32386) = Jac_FULL(5083,310) - JVS(32386) = B(20902) -! JVS(32387) = Jac_FULL(5083,740) - JVS(32387) = B(11203) -! JVS(32388) = Jac_FULL(5083,1135) - JVS(32388) = B(20895) -! JVS(32389) = Jac_FULL(5083,1585) - JVS(32389) = B(11209) -! JVS(32390) = Jac_FULL(5083,2231) - JVS(32390) = B(11204) -! JVS(32391) = Jac_FULL(5083,2352) - JVS(32391) = B(20898) -! JVS(32392) = Jac_FULL(5083,2362) - JVS(32392) = B(11201) -! JVS(32393) = Jac_FULL(5083,2958) - JVS(32393) = B(17112) -! JVS(32394) = Jac_FULL(5083,3962) - JVS(32394) = B(19337) -! JVS(32395) = Jac_FULL(5083,4148) - JVS(32395) = 0 -! JVS(32396) = Jac_FULL(5083,4605) - JVS(32396) = 0 -! JVS(32397) = Jac_FULL(5083,4953) - JVS(32397) = 0 -! JVS(32398) = Jac_FULL(5083,5083) - JVS(32398) = -B(14427)-B(14429)-B(14431)-B(14433)-B(14435)-B(14437)-B(14439) -! JVS(32399) = Jac_FULL(5083,5250) - JVS(32399) = B(11205)-B(14436)-B(14438)+B(17113)+B(20896)+B(20899)+B(20903) -! JVS(32400) = Jac_FULL(5083,5252) - JVS(32400) = 0 -! JVS(32401) = Jac_FULL(5083,5253) - JVS(32401) = 0 -! JVS(32402) = Jac_FULL(5083,5255) - JVS(32402) = 0 -! JVS(32403) = Jac_FULL(5083,5256) - JVS(32403) = -B(14428)-B(14430) -! JVS(32404) = Jac_FULL(5083,5258) - JVS(32404) = -B(14432)-B(14434) -! JVS(32405) = Jac_FULL(5084,993) - JVS(32405) = B(20839) -! JVS(32406) = Jac_FULL(5084,1394) - JVS(32406) = B(20834)+B(20836) -! JVS(32407) = Jac_FULL(5084,4842) - JVS(32407) = B(17074) -! JVS(32408) = Jac_FULL(5084,5017) - JVS(32408) = B(19271)+B(19273)+B(19277)+B(19280) -! JVS(32409) = Jac_FULL(5084,5044) - JVS(32409) = 0 -! JVS(32410) = Jac_FULL(5084,5083) - JVS(32410) = 0 -! JVS(32411) = Jac_FULL(5084,5084) - JVS(32411) = -B(19281)-B(19283)-B(19285)-B(19287)-B(19289)-B(19290)-B(19291) -! JVS(32412) = Jac_FULL(5084,5175) - JVS(32412) = 0 -! JVS(32413) = Jac_FULL(5084,5250) - JVS(32413) = B(20835) -! JVS(32414) = Jac_FULL(5084,5252) - JVS(32414) = B(19274)-B(19284)-B(19286) -! JVS(32415) = Jac_FULL(5084,5253) - JVS(32415) = 0 -! JVS(32416) = Jac_FULL(5084,5255) - JVS(32416) = B(19272)-B(19282) -! JVS(32417) = Jac_FULL(5084,5256) - JVS(32417) = B(19278)-B(19288) -! JVS(32418) = Jac_FULL(5084,5258) - JVS(32418) = 0 -! JVS(32419) = Jac_FULL(5085,537) - JVS(32419) = B(23858) -! JVS(32420) = Jac_FULL(5085,553) - JVS(32420) = B(21866) -! JVS(32421) = Jac_FULL(5085,662) - JVS(32421) = B(21925) -! JVS(32422) = Jac_FULL(5085,793) - JVS(32422) = B(21941) -! JVS(32423) = Jac_FULL(5085,880) - JVS(32423) = B(20843) -! JVS(32424) = Jac_FULL(5085,1731) - JVS(32424) = B(21871) -! JVS(32425) = Jac_FULL(5085,1890) - JVS(32425) = 0 -! JVS(32426) = Jac_FULL(5085,1996) - JVS(32426) = B(20846) -! JVS(32427) = Jac_FULL(5085,2007) - JVS(32427) = B(21938) -! JVS(32428) = Jac_FULL(5085,2017) - JVS(32428) = B(21864) -! JVS(32429) = Jac_FULL(5085,2561) - JVS(32429) = B(21940) -! JVS(32430) = Jac_FULL(5085,2708) - JVS(32430) = B(20840) -! JVS(32431) = Jac_FULL(5085,2750) - JVS(32431) = B(21924) -! JVS(32432) = Jac_FULL(5085,3949) - JVS(32432) = 0 -! JVS(32433) = Jac_FULL(5085,3950) - JVS(32433) = 0 -! JVS(32434) = Jac_FULL(5085,4150) - JVS(32434) = 0 -! JVS(32435) = Jac_FULL(5085,4226) - JVS(32435) = 0 -! JVS(32436) = Jac_FULL(5085,4681) - JVS(32436) = 0 -! JVS(32437) = Jac_FULL(5085,5017) - JVS(32437) = 0 -! JVS(32438) = Jac_FULL(5085,5044) - JVS(32438) = 0 -! JVS(32439) = Jac_FULL(5085,5083) - JVS(32439) = 0 -! JVS(32440) = Jac_FULL(5085,5084) - JVS(32440) = B(19290) -! JVS(32441) = Jac_FULL(5085,5085) - JVS(32441) = -B(20852)-B(20854)-B(20856) -! JVS(32442) = Jac_FULL(5085,5095) - JVS(32442) = B(19320) -! JVS(32443) = Jac_FULL(5085,5175) - JVS(32443) = 0 -! JVS(32444) = Jac_FULL(5085,5196) - JVS(32444) = 0 -! JVS(32445) = Jac_FULL(5085,5250) - JVS(32445) = B(20841)+B(20844)+B(20847)-B(20855)+B(21926)+B(21939)+B(21942) -! JVS(32446) = Jac_FULL(5085,5252) - JVS(32446) = 0 -! JVS(32447) = Jac_FULL(5085,5253) - JVS(32447) = 0 -! JVS(32448) = Jac_FULL(5085,5255) - JVS(32448) = 0 -! JVS(32449) = Jac_FULL(5085,5256) - JVS(32449) = -B(20853) -! JVS(32450) = Jac_FULL(5085,5258) - JVS(32450) = B(19321) -! JVS(32451) = Jac_FULL(5086,527) - JVS(32451) = B(22920) -! JVS(32452) = Jac_FULL(5086,714) - JVS(32452) = B(22319) -! JVS(32453) = Jac_FULL(5086,799) - JVS(32453) = B(20790) -! JVS(32454) = Jac_FULL(5086,1428) - JVS(32454) = B(20782) -! JVS(32455) = Jac_FULL(5086,1528) - JVS(32455) = B(22913) -! JVS(32456) = Jac_FULL(5086,1630) - JVS(32456) = B(20864) -! JVS(32457) = Jac_FULL(5086,1631) - JVS(32457) = B(20861) -! JVS(32458) = Jac_FULL(5086,1811) - JVS(32458) = B(22916) -! JVS(32459) = Jac_FULL(5086,1812) - JVS(32459) = B(22919) -! JVS(32460) = Jac_FULL(5086,1823) - JVS(32460) = B(20785) -! JVS(32461) = Jac_FULL(5086,1932) - JVS(32461) = 0 -! JVS(32462) = Jac_FULL(5086,2386) - JVS(32462) = B(20860) -! JVS(32463) = Jac_FULL(5086,2532) - JVS(32463) = B(21833) -! JVS(32464) = Jac_FULL(5086,2636) - JVS(32464) = B(19210) -! JVS(32465) = Jac_FULL(5086,2661) - JVS(32465) = B(19225) -! JVS(32466) = Jac_FULL(5086,3223) - JVS(32466) = B(16905) -! JVS(32467) = Jac_FULL(5086,3408) - JVS(32467) = B(19033) -! JVS(32468) = Jac_FULL(5086,3750) - JVS(32468) = B(22461) -! JVS(32469) = Jac_FULL(5086,3845) - JVS(32469) = 0 -! JVS(32470) = Jac_FULL(5086,4236) - JVS(32470) = 0 -! JVS(32471) = Jac_FULL(5086,4340) - JVS(32471) = 0 -! JVS(32472) = Jac_FULL(5086,4545) - JVS(32472) = 0 -! JVS(32473) = Jac_FULL(5086,4600) - JVS(32473) = 0 -! JVS(32474) = Jac_FULL(5086,4664) - JVS(32474) = 0 -! JVS(32475) = Jac_FULL(5086,4900) - JVS(32475) = B(19209) -! JVS(32476) = Jac_FULL(5086,4910) - JVS(32476) = 0 -! JVS(32477) = Jac_FULL(5086,4926) - JVS(32477) = 0 -! JVS(32478) = Jac_FULL(5086,4957) - JVS(32478) = 0 -! JVS(32479) = Jac_FULL(5086,4996) - JVS(32479) = 0 -! JVS(32480) = Jac_FULL(5086,5081) - JVS(32480) = 0 -! JVS(32481) = Jac_FULL(5086,5083) - JVS(32481) = 0 -! JVS(32482) = Jac_FULL(5086,5086) - JVS(32482) = -B(19105)-B(19107)-B(19109) -! JVS(32483) = Jac_FULL(5086,5181) - JVS(32483) = 0 -! JVS(32484) = Jac_FULL(5086,5213) - JVS(32484) = 0 -! JVS(32485) = Jac_FULL(5086,5215) - JVS(32485) = 0 -! JVS(32486) = Jac_FULL(5086,5250) - JVS(32486) = B(16906)+B(19034)-B(19108)+B(19211)+B(19226)+B(20783)+B(20786)+B(20791)+B(21834)+B(22914)+B(22917)& - &+B(22921) -! JVS(32487) = Jac_FULL(5086,5252) - JVS(32487) = 0 -! JVS(32488) = Jac_FULL(5086,5253) - JVS(32488) = 0 -! JVS(32489) = Jac_FULL(5086,5255) - JVS(32489) = 0 -! JVS(32490) = Jac_FULL(5086,5256) - JVS(32490) = -B(19106) -! JVS(32491) = Jac_FULL(5086,5258) - JVS(32491) = 0 -! JVS(32492) = Jac_FULL(5087,1853) - JVS(32492) = B(4339) -! JVS(32493) = Jac_FULL(5087,1872) - JVS(32493) = B(4375) -! JVS(32494) = Jac_FULL(5087,2421) - JVS(32494) = B(157) -! JVS(32495) = Jac_FULL(5087,2433) - JVS(32495) = B(3669) -! JVS(32496) = Jac_FULL(5087,2525) - JVS(32496) = B(11584) -! JVS(32497) = Jac_FULL(5087,2805) - JVS(32497) = B(4373) -! JVS(32498) = Jac_FULL(5087,3044) - JVS(32498) = B(4365) -! JVS(32499) = Jac_FULL(5087,3277) - JVS(32499) = B(3663) -! JVS(32500) = Jac_FULL(5087,4353) - JVS(32500) = 0 -! JVS(32501) = Jac_FULL(5087,4370) - JVS(32501) = 0 -! JVS(32502) = Jac_FULL(5087,4640) - JVS(32502) = B(7839) -! JVS(32503) = Jac_FULL(5087,4695) - JVS(32503) = 0 -! JVS(32504) = Jac_FULL(5087,4840) - JVS(32504) = 0 -! JVS(32505) = Jac_FULL(5087,4915) - JVS(32505) = 0 -! JVS(32506) = Jac_FULL(5087,4923) - JVS(32506) = 0 -! JVS(32507) = Jac_FULL(5087,5087) - JVS(32507) = -B(1225)-B(1227)-B(1229) -! JVS(32508) = Jac_FULL(5087,5121) - JVS(32508) = 0 -! JVS(32509) = Jac_FULL(5087,5164) - JVS(32509) = 0 -! JVS(32510) = Jac_FULL(5087,5200) - JVS(32510) = 0 -! JVS(32511) = Jac_FULL(5087,5202) - JVS(32511) = B(962) -! JVS(32512) = Jac_FULL(5087,5203) - JVS(32512) = 0 -! JVS(32513) = Jac_FULL(5087,5238) - JVS(32513) = 0 -! JVS(32514) = Jac_FULL(5087,5250) - JVS(32514) = B(158)-B(1228)+B(3664)+B(3670)+B(11585) -! JVS(32515) = Jac_FULL(5087,5252) - JVS(32515) = 0 -! JVS(32516) = Jac_FULL(5087,5253) - JVS(32516) = 0 -! JVS(32517) = Jac_FULL(5087,5255) - JVS(32517) = 0 -! JVS(32518) = Jac_FULL(5087,5256) - JVS(32518) = -B(1226) -! JVS(32519) = Jac_FULL(5087,5258) - JVS(32519) = 0 -! JVS(32520) = Jac_FULL(5088,1196) - JVS(32520) = B(17863) -! JVS(32521) = Jac_FULL(5088,2496) - JVS(32521) = B(17865) -! JVS(32522) = Jac_FULL(5088,3946) - JVS(32522) = B(12065)+B(12067) -! JVS(32523) = Jac_FULL(5088,4878) - JVS(32523) = 0 -! JVS(32524) = Jac_FULL(5088,5088) - JVS(32524) = -B(15263)-B(15265)-B(15267)-B(15269)-B(15271)-B(15273)-B(15275)-B(15276) -! JVS(32525) = Jac_FULL(5088,5238) - JVS(32525) = 0 -! JVS(32526) = Jac_FULL(5088,5250) - JVS(32526) = B(12068)+B(17864) -! JVS(32527) = Jac_FULL(5088,5252) - JVS(32527) = -B(15270) -! JVS(32528) = Jac_FULL(5088,5253) - JVS(32528) = -B(15272) -! JVS(32529) = Jac_FULL(5088,5255) - JVS(32529) = -B(15264)-B(15266)-B(15268) -! JVS(32530) = Jac_FULL(5088,5256) - JVS(32530) = B(12066)-B(15274) -! JVS(32531) = Jac_FULL(5089,756) - JVS(32531) = B(9890) -! JVS(32532) = Jac_FULL(5089,1600) - JVS(32532) = B(9893) -! JVS(32533) = Jac_FULL(5089,3258) - JVS(32533) = B(9850) -! JVS(32534) = Jac_FULL(5089,3332) - JVS(32534) = B(6116) -! JVS(32535) = Jac_FULL(5089,3624) - JVS(32535) = B(9887) -! JVS(32536) = Jac_FULL(5089,3818) - JVS(32536) = B(6437) -! JVS(32537) = Jac_FULL(5089,4004) - JVS(32537) = B(5497) -! JVS(32538) = Jac_FULL(5089,4055) - JVS(32538) = 0 -! JVS(32539) = Jac_FULL(5089,4807) - JVS(32539) = 0 -! JVS(32540) = Jac_FULL(5089,4935) - JVS(32540) = 0 -! JVS(32541) = Jac_FULL(5089,5089) - JVS(32541) = -B(9039)-B(9041)-B(9043)-B(9045)-B(9047)-B(9049)-B(9050) -! JVS(32542) = Jac_FULL(5089,5250) - JVS(32542) = -B(9046)-B(9048)+B(9851) -! JVS(32543) = Jac_FULL(5089,5252) - JVS(32543) = 0 -! JVS(32544) = Jac_FULL(5089,5253) - JVS(32544) = 0 -! JVS(32545) = Jac_FULL(5089,5255) - JVS(32545) = 0 -! JVS(32546) = Jac_FULL(5089,5256) - JVS(32546) = -B(9040) -! JVS(32547) = Jac_FULL(5089,5258) - JVS(32547) = -B(9042)-B(9044) -! JVS(32548) = Jac_FULL(5090,1547) - JVS(32548) = B(17712) -! JVS(32549) = Jac_FULL(5090,3311) - JVS(32549) = B(17714) -! JVS(32550) = Jac_FULL(5090,4313) - JVS(32550) = B(11934)+B(11936) -! JVS(32551) = Jac_FULL(5090,5077) - JVS(32551) = 0 -! JVS(32552) = Jac_FULL(5090,5082) - JVS(32552) = 0 -! JVS(32553) = Jac_FULL(5090,5090) - JVS(32553) = -B(15136)-B(15138)-B(15140)-B(15142)-B(15144)-B(15146)-B(15148)-B(15149) -! JVS(32554) = Jac_FULL(5090,5238) - JVS(32554) = 0 -! JVS(32555) = Jac_FULL(5090,5250) - JVS(32555) = B(11937)+B(17713) -! JVS(32556) = Jac_FULL(5090,5252) - JVS(32556) = -B(15143) -! JVS(32557) = Jac_FULL(5090,5253) - JVS(32557) = -B(15145) -! JVS(32558) = Jac_FULL(5090,5255) - JVS(32558) = -B(15137)-B(15139)-B(15141) -! JVS(32559) = Jac_FULL(5090,5256) - JVS(32559) = B(11935)-B(15147) -! JVS(32560) = Jac_FULL(5091,194) - JVS(32560) = B(10719) -! JVS(32561) = Jac_FULL(5091,3621) - JVS(32561) = B(16704) -! JVS(32562) = Jac_FULL(5091,4107) - JVS(32562) = 0 -! JVS(32563) = Jac_FULL(5091,5013) - JVS(32563) = 0 -! JVS(32564) = Jac_FULL(5091,5091) - JVS(32564) = -B(13899)-B(13901)-B(13903)-B(13905)-B(13907)-B(13908)-B(13909)-B(13910) -! JVS(32565) = Jac_FULL(5091,5217) - JVS(32565) = 0 -! JVS(32566) = Jac_FULL(5091,5218) - JVS(32566) = 0 -! JVS(32567) = Jac_FULL(5091,5250) - JVS(32567) = B(16705) -! JVS(32568) = Jac_FULL(5091,5252) - JVS(32568) = -B(13902)-B(13904) -! JVS(32569) = Jac_FULL(5091,5255) - JVS(32569) = -B(13900) -! JVS(32570) = Jac_FULL(5091,5256) - JVS(32570) = -B(13906) -! JVS(32571) = Jac_FULL(5091,5258) - JVS(32571) = 0 -! JVS(32572) = Jac_FULL(5092,4988) - JVS(32572) = B(908) -! JVS(32573) = Jac_FULL(5092,5092) - JVS(32573) = -B(3582)-B(3584)-B(3586)-B(3588)-B(3590)-B(3591) -! JVS(32574) = Jac_FULL(5092,5250) - JVS(32574) = 0 -! JVS(32575) = Jac_FULL(5092,5251) - JVS(32575) = -B(3583) -! JVS(32576) = Jac_FULL(5092,5252) - JVS(32576) = -B(3585) -! JVS(32577) = Jac_FULL(5092,5253) - JVS(32577) = -B(3587) -! JVS(32578) = Jac_FULL(5092,5254) - JVS(32578) = -B(3589) -! JVS(32579) = Jac_FULL(5092,5256) - JVS(32579) = 0 -! JVS(32580) = Jac_FULL(5092,5258) - JVS(32580) = B(909) -! JVS(32581) = Jac_FULL(5093,841) - JVS(32581) = B(6668) -! JVS(32582) = Jac_FULL(5093,1054) - JVS(32582) = B(6673) -! JVS(32583) = Jac_FULL(5093,1172) - JVS(32583) = B(6670) -! JVS(32584) = Jac_FULL(5093,4111) - JVS(32584) = B(3076) -! JVS(32585) = Jac_FULL(5093,4372) - JVS(32585) = 0 -! JVS(32586) = Jac_FULL(5093,4774) - JVS(32586) = B(6771) -! JVS(32587) = Jac_FULL(5093,5093) - JVS(32587) = -B(6675)-B(6677)-B(6679)-B(6681)-B(6683)-B(6684) -! JVS(32588) = Jac_FULL(5093,5153) - JVS(32588) = 0 -! JVS(32589) = Jac_FULL(5093,5166) - JVS(32589) = 0 -! JVS(32590) = Jac_FULL(5093,5250) - JVS(32590) = B(6669)+B(6671)+B(6674)-B(6680)-B(6682) -! JVS(32591) = Jac_FULL(5093,5252) - JVS(32591) = 0 -! JVS(32592) = Jac_FULL(5093,5255) - JVS(32592) = 0 -! JVS(32593) = Jac_FULL(5093,5256) - JVS(32593) = 0 -! JVS(32594) = Jac_FULL(5093,5258) - JVS(32594) = -B(6676)-B(6678) -! JVS(32595) = Jac_FULL(5094,1682) - JVS(32595) = B(13793) -! JVS(32596) = Jac_FULL(5094,1857) - JVS(32596) = B(10097) -! JVS(32597) = Jac_FULL(5094,2477) - JVS(32597) = B(9217) -! JVS(32598) = Jac_FULL(5094,3462) - JVS(32598) = B(4306) -! JVS(32599) = Jac_FULL(5094,3929) - JVS(32599) = B(4310) -! JVS(32600) = Jac_FULL(5094,3993) - JVS(32600) = B(4304) -! JVS(32601) = Jac_FULL(5094,4460) - JVS(32601) = 0 -! JVS(32602) = Jac_FULL(5094,4783) - JVS(32602) = B(1538) -! JVS(32603) = Jac_FULL(5094,4893) - JVS(32603) = 0 -! JVS(32604) = Jac_FULL(5094,4905) - JVS(32604) = 0 -! JVS(32605) = Jac_FULL(5094,4936) - JVS(32605) = 0 -! JVS(32606) = Jac_FULL(5094,5001) - JVS(32606) = B(9104) -! JVS(32607) = Jac_FULL(5094,5002) - JVS(32607) = 0 -! JVS(32608) = Jac_FULL(5094,5015) - JVS(32608) = 0 -! JVS(32609) = Jac_FULL(5094,5025) - JVS(32609) = 0 -! JVS(32610) = Jac_FULL(5094,5035) - JVS(32610) = 0 -! JVS(32611) = Jac_FULL(5094,5094) - JVS(32611) = -B(4314)-B(4316) -! JVS(32612) = Jac_FULL(5094,5118) - JVS(32612) = 0 -! JVS(32613) = Jac_FULL(5094,5168) - JVS(32613) = 0 -! JVS(32614) = Jac_FULL(5094,5204) - JVS(32614) = 0 -! JVS(32615) = Jac_FULL(5094,5205) - JVS(32615) = 0 -! JVS(32616) = Jac_FULL(5094,5217) - JVS(32616) = 0 -! JVS(32617) = Jac_FULL(5094,5219) - JVS(32617) = 0 -! JVS(32618) = Jac_FULL(5094,5224) - JVS(32618) = 0 -! JVS(32619) = Jac_FULL(5094,5226) - JVS(32619) = 0 -! JVS(32620) = Jac_FULL(5094,5250) - JVS(32620) = B(4305)+B(4307)-B(4315)+B(13794) -! JVS(32621) = Jac_FULL(5094,5252) - JVS(32621) = 0 -! JVS(32622) = Jac_FULL(5094,5253) - JVS(32622) = 0 -! JVS(32623) = Jac_FULL(5094,5255) - JVS(32623) = 0 -! JVS(32624) = Jac_FULL(5094,5256) - JVS(32624) = 0 -! JVS(32625) = Jac_FULL(5094,5258) - JVS(32625) = 0 -! JVS(32626) = Jac_FULL(5095,625) - JVS(32626) = B(23011) -! JVS(32627) = Jac_FULL(5095,728) - JVS(32627) = B(17118) -! JVS(32628) = Jac_FULL(5095,1237) - JVS(32628) = B(19309) -! JVS(32629) = Jac_FULL(5095,2071) - JVS(32629) = 0 -! JVS(32630) = Jac_FULL(5095,2155) - JVS(32630) = B(19312) -! JVS(32631) = Jac_FULL(5095,2312) - JVS(32631) = 0 -! JVS(32632) = Jac_FULL(5095,2879) - JVS(32632) = B(17102) -! JVS(32633) = Jac_FULL(5095,4197) - JVS(32633) = B(17094) -! JVS(32634) = Jac_FULL(5095,4315) - JVS(32634) = 0 -! JVS(32635) = Jac_FULL(5095,4567) - JVS(32635) = 0 -! JVS(32636) = Jac_FULL(5095,4638) - JVS(32636) = 0 -! JVS(32637) = Jac_FULL(5095,4855) - JVS(32637) = 0 -! JVS(32638) = Jac_FULL(5095,4953) - JVS(32638) = 0 -! JVS(32639) = Jac_FULL(5095,5083) - JVS(32639) = 0 -! JVS(32640) = Jac_FULL(5095,5095) - JVS(32640) = -B(19316)-B(19318)-B(19320)-B(19322)-B(19324)-B(19326)-B(19328) -! JVS(32641) = Jac_FULL(5095,5236) - JVS(32641) = 0 -! JVS(32642) = Jac_FULL(5095,5250) - JVS(32642) = B(17103)+B(19310)+B(19313)-B(19325)-B(19327) -! JVS(32643) = Jac_FULL(5095,5252) - JVS(32643) = 0 -! JVS(32644) = Jac_FULL(5095,5253) - JVS(32644) = 0 -! JVS(32645) = Jac_FULL(5095,5255) - JVS(32645) = 0 -! JVS(32646) = Jac_FULL(5095,5256) - JVS(32646) = -B(19317)-B(19319) -! JVS(32647) = Jac_FULL(5095,5258) - JVS(32647) = -B(19321)-B(19323) -! JVS(32648) = Jac_FULL(5096,850) - JVS(32648) = B(21223) -! JVS(32649) = Jac_FULL(5096,1778) - JVS(32649) = B(4963) -! JVS(32650) = Jac_FULL(5096,4521) - JVS(32650) = B(19762)+B(19764)+B(19768)+B(19770) -! JVS(32651) = Jac_FULL(5096,5096) - JVS(32651) = -B(2116)-B(2118)-B(2120)-B(2122)-B(2124)-B(2125)-B(2126) -! JVS(32652) = Jac_FULL(5096,5144) - JVS(32652) = 0 -! JVS(32653) = Jac_FULL(5096,5190) - JVS(32653) = B(487) -! JVS(32654) = Jac_FULL(5096,5250) - JVS(32654) = B(488)+B(4964) -! JVS(32655) = Jac_FULL(5096,5252) - JVS(32655) = -B(2119)-B(2121)+B(19765) -! JVS(32656) = Jac_FULL(5096,5253) - JVS(32656) = 0 -! JVS(32657) = Jac_FULL(5096,5255) - JVS(32657) = -B(2117)+B(19763) -! JVS(32658) = Jac_FULL(5096,5256) - JVS(32658) = -B(2123)+B(19769) -! JVS(32659) = Jac_FULL(5097,230) - JVS(32659) = B(19633) -! JVS(32660) = Jac_FULL(5097,988) - JVS(32660) = B(19635) -! JVS(32661) = Jac_FULL(5097,3298) - JVS(32661) = B(15240) -! JVS(32662) = Jac_FULL(5097,3471) - JVS(32662) = B(15090) -! JVS(32663) = Jac_FULL(5097,3822) - JVS(32663) = 0 -! JVS(32664) = Jac_FULL(5097,3868) - JVS(32664) = B(834) -! JVS(32665) = Jac_FULL(5097,3879) - JVS(32665) = B(7215) -! JVS(32666) = Jac_FULL(5097,4642) - JVS(32666) = B(17663)+B(17665)+B(17669)+B(17672) -! JVS(32667) = Jac_FULL(5097,4800) - JVS(32667) = 0 -! JVS(32668) = Jac_FULL(5097,4901) - JVS(32668) = 0 -! JVS(32669) = Jac_FULL(5097,4994) - JVS(32669) = 0 -! JVS(32670) = Jac_FULL(5097,5045) - JVS(32670) = 0 -! JVS(32671) = Jac_FULL(5097,5064) - JVS(32671) = 0 -! JVS(32672) = Jac_FULL(5097,5097) - JVS(32672) = -B(3284)-B(3286)-B(3288)-B(3290)-B(3292)-B(3293)-B(3294) -! JVS(32673) = Jac_FULL(5097,5119) - JVS(32673) = 0 -! JVS(32674) = Jac_FULL(5097,5238) - JVS(32674) = 0 -! JVS(32675) = Jac_FULL(5097,5250) - JVS(32675) = B(835)+B(19634) -! JVS(32676) = Jac_FULL(5097,5252) - JVS(32676) = -B(3287)-B(3289)+B(17666) -! JVS(32677) = Jac_FULL(5097,5253) - JVS(32677) = 0 -! JVS(32678) = Jac_FULL(5097,5255) - JVS(32678) = -B(3285)+B(17664) -! JVS(32679) = Jac_FULL(5097,5256) - JVS(32679) = -B(3291)+B(17670) -! JVS(32680) = Jac_FULL(5098,477) - JVS(32680) = B(2178) -! JVS(32681) = Jac_FULL(5098,2397) - JVS(32681) = B(14076) -! JVS(32682) = Jac_FULL(5098,2715) - JVS(32682) = B(7009) -! JVS(32683) = Jac_FULL(5098,3031) - JVS(32683) = B(14079) -! JVS(32684) = Jac_FULL(5098,3384) - JVS(32684) = B(11912) -! JVS(32685) = Jac_FULL(5098,3556) - JVS(32685) = B(18522) -! JVS(32686) = Jac_FULL(5098,3726) - JVS(32686) = B(13110)+B(13112) -! JVS(32687) = Jac_FULL(5098,3780) - JVS(32687) = B(17656) -! JVS(32688) = Jac_FULL(5098,3945) - JVS(32688) = 0 -! JVS(32689) = Jac_FULL(5098,4334) - JVS(32689) = 0 -! JVS(32690) = Jac_FULL(5098,4416) - JVS(32690) = 0 -! JVS(32691) = Jac_FULL(5098,4480) - JVS(32691) = 0 -! JVS(32692) = Jac_FULL(5098,4505) - JVS(32692) = 0 -! JVS(32693) = Jac_FULL(5098,4601) - JVS(32693) = 0 -! JVS(32694) = Jac_FULL(5098,4697) - JVS(32694) = 0 -! JVS(32695) = Jac_FULL(5098,4704) - JVS(32695) = 0 -! JVS(32696) = Jac_FULL(5098,4937) - JVS(32696) = 0 -! JVS(32697) = Jac_FULL(5098,5026) - JVS(32697) = B(7086) -! JVS(32698) = Jac_FULL(5098,5030) - JVS(32698) = 0 -! JVS(32699) = Jac_FULL(5098,5061) - JVS(32699) = 0 -! JVS(32700) = Jac_FULL(5098,5063) - JVS(32700) = 0 -! JVS(32701) = Jac_FULL(5098,5064) - JVS(32701) = 0 -! JVS(32702) = Jac_FULL(5098,5076) - JVS(32702) = 0 -! JVS(32703) = Jac_FULL(5098,5097) - JVS(32703) = 0 -! JVS(32704) = Jac_FULL(5098,5098) - JVS(32704) = -B(3218)-B(3220)-B(3222)-B(3224)-B(3225)-B(3226) -! JVS(32705) = Jac_FULL(5098,5116) - JVS(32705) = 0 -! JVS(32706) = Jac_FULL(5098,5117) - JVS(32706) = B(10877)+B(10879)+B(10883)+B(10886) -! JVS(32707) = Jac_FULL(5098,5119) - JVS(32707) = 0 -! JVS(32708) = Jac_FULL(5098,5147) - JVS(32708) = 0 -! JVS(32709) = Jac_FULL(5098,5178) - JVS(32709) = B(816) -! JVS(32710) = Jac_FULL(5098,5238) - JVS(32710) = 0 -! JVS(32711) = Jac_FULL(5098,5250) - JVS(32711) = B(817)+B(7010)+B(13111)+B(14077) -! JVS(32712) = Jac_FULL(5098,5252) - JVS(32712) = -B(3221)+B(10880) -! JVS(32713) = Jac_FULL(5098,5253) - JVS(32713) = 0 -! JVS(32714) = Jac_FULL(5098,5255) - JVS(32714) = -B(3219)+B(10878) -! JVS(32715) = Jac_FULL(5098,5256) - JVS(32715) = -B(3223)+B(10884) -! JVS(32716) = Jac_FULL(5098,5258) - JVS(32716) = 0 -! JVS(32717) = Jac_FULL(5099,1251) - JVS(32717) = B(14541) -! JVS(32718) = Jac_FULL(5099,1736) - JVS(32718) = B(7578) -! JVS(32719) = Jac_FULL(5099,2160) - JVS(32719) = 0 -! JVS(32720) = Jac_FULL(5099,2184) - JVS(32720) = 0 -! JVS(32721) = Jac_FULL(5099,2587) - JVS(32721) = B(14546) -! JVS(32722) = Jac_FULL(5099,3891) - JVS(32722) = 0 -! JVS(32723) = Jac_FULL(5099,3963) - JVS(32723) = 0 -! JVS(32724) = Jac_FULL(5099,3971) - JVS(32724) = 0 -! JVS(32725) = Jac_FULL(5099,4988) - JVS(32725) = 0 -! JVS(32726) = Jac_FULL(5099,5099) - JVS(32726) = -B(11261)-B(11263)-B(11265)-B(11267)-B(11269)-B(11271)-B(11273)-B(11274) -! JVS(32727) = Jac_FULL(5099,5250) - JVS(32727) = B(7496)+B(7579)+B(14542) -! JVS(32728) = Jac_FULL(5099,5252) - JVS(32728) = -B(11268) -! JVS(32729) = Jac_FULL(5099,5253) - JVS(32729) = -B(11270) -! JVS(32730) = Jac_FULL(5099,5255) - JVS(32730) = -B(11262)-B(11264)-B(11266) -! JVS(32731) = Jac_FULL(5099,5256) - JVS(32731) = B(7480)-B(11272) -! JVS(32732) = Jac_FULL(5099,5257) - JVS(32732) = B(7481)+B(7497) -! JVS(32733) = Jac_FULL(5099,5258) - JVS(32733) = 0 -! JVS(32734) = Jac_FULL(5100,170) - JVS(32734) = B(20012) -! JVS(32735) = Jac_FULL(5100,994) - JVS(32735) = 0 -! JVS(32736) = Jac_FULL(5100,2793) - JVS(32736) = B(11690) -! JVS(32737) = Jac_FULL(5100,3433) - JVS(32737) = B(9783) -! JVS(32738) = Jac_FULL(5100,3476) - JVS(32738) = B(11688) -! JVS(32739) = Jac_FULL(5100,3486) - JVS(32739) = B(9698) -! JVS(32740) = Jac_FULL(5100,3618) - JVS(32740) = 0 -! JVS(32741) = Jac_FULL(5100,4325) - JVS(32741) = B(15800) -! JVS(32742) = Jac_FULL(5100,4706) - JVS(32742) = 0 -! JVS(32743) = Jac_FULL(5100,4803) - JVS(32743) = 0 -! JVS(32744) = Jac_FULL(5100,4904) - JVS(32744) = 0 -! JVS(32745) = Jac_FULL(5100,4946) - JVS(32745) = 0 -! JVS(32746) = Jac_FULL(5100,4968) - JVS(32746) = 0 -! JVS(32747) = Jac_FULL(5100,4971) - JVS(32747) = 0 -! JVS(32748) = Jac_FULL(5100,4982) - JVS(32748) = 0 -! JVS(32749) = Jac_FULL(5100,4985) - JVS(32749) = 0 -! JVS(32750) = Jac_FULL(5100,4993) - JVS(32750) = 0 -! JVS(32751) = Jac_FULL(5100,5002) - JVS(32751) = 0 -! JVS(32752) = Jac_FULL(5100,5025) - JVS(32752) = 0 -! JVS(32753) = Jac_FULL(5100,5037) - JVS(32753) = 0 -! JVS(32754) = Jac_FULL(5100,5076) - JVS(32754) = 0 -! JVS(32755) = Jac_FULL(5100,5089) - JVS(32755) = 0 -! JVS(32756) = Jac_FULL(5100,5100) - JVS(32756) = -B(7963)-B(7965)-B(7967)-B(7969)-B(7971)-B(7973) -! JVS(32757) = Jac_FULL(5100,5141) - JVS(32757) = 0 -! JVS(32758) = Jac_FULL(5100,5204) - JVS(32758) = 0 -! JVS(32759) = Jac_FULL(5100,5205) - JVS(32759) = 0 -! JVS(32760) = Jac_FULL(5100,5209) - JVS(32760) = 0 -! JVS(32761) = Jac_FULL(5100,5210) - JVS(32761) = B(4367)+B(4369) -! JVS(32762) = Jac_FULL(5100,5250) - JVS(32762) = B(4370)+B(11689) -! JVS(32763) = Jac_FULL(5100,5252) - JVS(32763) = -B(7968) -! JVS(32764) = Jac_FULL(5100,5253) - JVS(32764) = -B(7970) -! JVS(32765) = Jac_FULL(5100,5255) - JVS(32765) = -B(7964)-B(7966) -! JVS(32766) = Jac_FULL(5100,5256) - JVS(32766) = B(4368)-B(7972) -! JVS(32767) = Jac_FULL(5100,5258) - JVS(32767) = 0 -! JVS(32768) = Jac_FULL(5101,547) - JVS(32768) = B(23448) -! JVS(32769) = Jac_FULL(5101,630) - JVS(32769) = B(3965) -! JVS(32770) = Jac_FULL(5101,1380) - JVS(32770) = B(11488) -! JVS(32771) = Jac_FULL(5101,1826) - JVS(32771) = B(17807) -! JVS(32772) = Jac_FULL(5101,2675) - JVS(32772) = B(11490) -! JVS(32773) = Jac_FULL(5101,3207) - JVS(32773) = 0 -! JVS(32774) = Jac_FULL(5101,3528) - JVS(32774) = 0 -! JVS(32775) = Jac_FULL(5101,3892) - JVS(32775) = B(3973) -! JVS(32776) = Jac_FULL(5101,4698) - JVS(32776) = 0 -! JVS(32777) = Jac_FULL(5101,4967) - JVS(32777) = 0 -! JVS(32778) = Jac_FULL(5101,4984) - JVS(32778) = 0 -! JVS(32779) = Jac_FULL(5101,5032) - JVS(32779) = 0 -! JVS(32780) = Jac_FULL(5101,5056) - JVS(32780) = 0 -! JVS(32781) = Jac_FULL(5101,5057) - JVS(32781) = B(3866)+B(3868) -! JVS(32782) = Jac_FULL(5101,5072) - JVS(32782) = 0 -! JVS(32783) = Jac_FULL(5101,5077) - JVS(32783) = 0 -! JVS(32784) = Jac_FULL(5101,5082) - JVS(32784) = 0 -! JVS(32785) = Jac_FULL(5101,5090) - JVS(32785) = 0 -! JVS(32786) = Jac_FULL(5101,5101) - JVS(32786) = -B(7678)-B(7680)-B(7682)-B(7684)-B(7686)-B(7688) -! JVS(32787) = Jac_FULL(5101,5130) - JVS(32787) = 0 -! JVS(32788) = Jac_FULL(5101,5146) - JVS(32788) = 0 -! JVS(32789) = Jac_FULL(5101,5148) - JVS(32789) = 0 -! JVS(32790) = Jac_FULL(5101,5215) - JVS(32790) = 0 -! JVS(32791) = Jac_FULL(5101,5238) - JVS(32791) = 0 -! JVS(32792) = Jac_FULL(5101,5239) - JVS(32792) = 0 -! JVS(32793) = Jac_FULL(5101,5250) - JVS(32793) = B(3869)+B(11489) -! JVS(32794) = Jac_FULL(5101,5252) - JVS(32794) = -B(7683) -! JVS(32795) = Jac_FULL(5101,5253) - JVS(32795) = -B(7685) -! JVS(32796) = Jac_FULL(5101,5255) - JVS(32796) = -B(7679)-B(7681) -! JVS(32797) = Jac_FULL(5101,5256) - JVS(32797) = B(3867)-B(7687) -! JVS(32798) = Jac_FULL(5102,2479) - JVS(32798) = B(6721) -! JVS(32799) = Jac_FULL(5102,3133) - JVS(32799) = B(6162) -! JVS(32800) = Jac_FULL(5102,3832) - JVS(32800) = 0 -! JVS(32801) = Jac_FULL(5102,3996) - JVS(32801) = 0 -! JVS(32802) = Jac_FULL(5102,4084) - JVS(32802) = B(5362) -! JVS(32803) = Jac_FULL(5102,5030) - JVS(32803) = 0 -! JVS(32804) = Jac_FULL(5102,5037) - JVS(32804) = 0 -! JVS(32805) = Jac_FULL(5102,5089) - JVS(32805) = 0 -! JVS(32806) = Jac_FULL(5102,5102) - JVS(32806) = -B(8863)-B(8865)-B(8867)-B(8869)-B(8871)-B(8872) -! JVS(32807) = Jac_FULL(5102,5103) - JVS(32807) = 0 -! JVS(32808) = Jac_FULL(5102,5123) - JVS(32808) = 0 -! JVS(32809) = Jac_FULL(5102,5227) - JVS(32809) = 0 -! JVS(32810) = Jac_FULL(5102,5250) - JVS(32810) = 0 -! JVS(32811) = Jac_FULL(5102,5251) - JVS(32811) = -B(8864) -! JVS(32812) = Jac_FULL(5102,5252) - JVS(32812) = -B(8866) -! JVS(32813) = Jac_FULL(5102,5253) - JVS(32813) = -B(8868) -! JVS(32814) = Jac_FULL(5102,5254) - JVS(32814) = -B(8870) -! JVS(32815) = Jac_FULL(5102,5255) - JVS(32815) = 0 -! JVS(32816) = Jac_FULL(5102,5256) - JVS(32816) = 0 -! JVS(32817) = Jac_FULL(5102,5258) - JVS(32817) = 0 -! JVS(32818) = Jac_FULL(5103,1857) - JVS(32818) = B(10095)+B(10098) -! JVS(32819) = Jac_FULL(5103,2287) - JVS(32819) = B(10094) -! JVS(32820) = Jac_FULL(5103,2632) - JVS(32820) = B(10072) -! JVS(32821) = Jac_FULL(5103,3451) - JVS(32821) = B(10092) -! JVS(32822) = Jac_FULL(5103,3802) - JVS(32822) = B(6355) -! JVS(32823) = Jac_FULL(5103,4633) - JVS(32823) = 0 -! JVS(32824) = Jac_FULL(5103,4905) - JVS(32824) = 0 -! JVS(32825) = Jac_FULL(5103,5103) - JVS(32825) = -B(10058)-B(10060)-B(10062)-B(10064)-B(10065) -! JVS(32826) = Jac_FULL(5103,5250) - JVS(32826) = -B(10063)+B(10073)+B(10096) -! JVS(32827) = Jac_FULL(5103,5252) - JVS(32827) = 0 -! JVS(32828) = Jac_FULL(5103,5253) - JVS(32828) = 0 -! JVS(32829) = Jac_FULL(5103,5255) - JVS(32829) = 0 -! JVS(32830) = Jac_FULL(5103,5256) - JVS(32830) = 0 -! JVS(32831) = Jac_FULL(5103,5258) - JVS(32831) = -B(10059)-B(10061) -! JVS(32832) = Jac_FULL(5104,883) - JVS(32832) = B(22116) -! JVS(32833) = Jac_FULL(5104,1986) - JVS(32833) = B(22716) -! JVS(32834) = Jac_FULL(5104,2304) - JVS(32834) = B(23730) -! JVS(32835) = Jac_FULL(5104,2673) - JVS(32835) = 0 -! JVS(32836) = Jac_FULL(5104,2719) - JVS(32836) = B(23475) -! JVS(32837) = Jac_FULL(5104,3420) - JVS(32837) = B(22096)+B(22098) -! JVS(32838) = Jac_FULL(5104,3425) - JVS(32838) = B(21106) -! JVS(32839) = Jac_FULL(5104,3497) - JVS(32839) = B(19517) -! JVS(32840) = Jac_FULL(5104,3855) - JVS(32840) = 0 -! JVS(32841) = Jac_FULL(5104,4172) - JVS(32841) = 0 -! JVS(32842) = Jac_FULL(5104,4319) - JVS(32842) = 0 -! JVS(32843) = Jac_FULL(5104,4363) - JVS(32843) = 0 -! JVS(32844) = Jac_FULL(5104,4394) - JVS(32844) = 0 -! JVS(32845) = Jac_FULL(5104,4679) - JVS(32845) = 0 -! JVS(32846) = Jac_FULL(5104,4764) - JVS(32846) = 0 -! JVS(32847) = Jac_FULL(5104,4989) - JVS(32847) = 0 -! JVS(32848) = Jac_FULL(5104,5014) - JVS(32848) = 0 -! JVS(32849) = Jac_FULL(5104,5104) - JVS(32849) = -B(21089)-B(21091)-B(21093)-B(21095)-B(21097)-B(21098) -! JVS(32850) = Jac_FULL(5104,5206) - JVS(32850) = 0 -! JVS(32851) = Jac_FULL(5104,5207) - JVS(32851) = 0 -! JVS(32852) = Jac_FULL(5104,5250) - JVS(32852) = B(22097)+B(22117)+B(23476) -! JVS(32853) = Jac_FULL(5104,5252) - JVS(32853) = -B(21092)-B(21094) -! JVS(32854) = Jac_FULL(5104,5253) - JVS(32854) = 0 -! JVS(32855) = Jac_FULL(5104,5255) - JVS(32855) = -B(21090) -! JVS(32856) = Jac_FULL(5104,5256) - JVS(32856) = -B(21096) -! JVS(32857) = Jac_FULL(5104,5257) - JVS(32857) = 0 -! JVS(32858) = Jac_FULL(5104,5258) - JVS(32858) = 0 -! JVS(32859) = Jac_FULL(5105,2584) - JVS(32859) = B(22499) -! JVS(32860) = Jac_FULL(5105,2953) - JVS(32860) = B(22362) -! JVS(32861) = Jac_FULL(5105,4392) - JVS(32861) = B(14060) -! JVS(32862) = Jac_FULL(5105,4439) - JVS(32862) = 0 -! JVS(32863) = Jac_FULL(5105,4597) - JVS(32863) = 0 -! JVS(32864) = Jac_FULL(5105,4779) - JVS(32864) = 0 -! JVS(32865) = Jac_FULL(5105,5054) - JVS(32865) = 0 -! JVS(32866) = Jac_FULL(5105,5084) - JVS(32866) = 0 -! JVS(32867) = Jac_FULL(5105,5105) - JVS(32867) = -B(16774)-B(16775)-B(16776)-B(16778) -! JVS(32868) = Jac_FULL(5105,5161) - JVS(32868) = 0 -! JVS(32869) = Jac_FULL(5105,5175) - JVS(32869) = 0 -! JVS(32870) = Jac_FULL(5105,5185) - JVS(32870) = 0 -! JVS(32871) = Jac_FULL(5105,5187) - JVS(32871) = 0 -! JVS(32872) = Jac_FULL(5105,5198) - JVS(32872) = 0 -! JVS(32873) = Jac_FULL(5105,5250) - JVS(32873) = B(14061)-B(16779)+B(22500) -! JVS(32874) = Jac_FULL(5105,5252) - JVS(32874) = 0 -! JVS(32875) = Jac_FULL(5105,5253) - JVS(32875) = 0 -! JVS(32876) = Jac_FULL(5105,5255) - JVS(32876) = 0 -! JVS(32877) = Jac_FULL(5105,5256) - JVS(32877) = -B(16777) -! JVS(32878) = Jac_FULL(5105,5258) - JVS(32878) = 0 -! JVS(32879) = Jac_FULL(5106,7) - JVS(32879) = B(8569) -! JVS(32880) = Jac_FULL(5106,1111) - JVS(32880) = B(13038)+B(13040) -! JVS(32881) = Jac_FULL(5106,1466) - JVS(32881) = B(4156) -! JVS(32882) = Jac_FULL(5106,1790) - JVS(32882) = B(7203) -! JVS(32883) = Jac_FULL(5106,2026) - JVS(32883) = B(22246) -! JVS(32884) = Jac_FULL(5106,2472) - JVS(32884) = B(13043) -! JVS(32885) = Jac_FULL(5106,2612) - JVS(32885) = B(4161) -! JVS(32886) = Jac_FULL(5106,2927) - JVS(32886) = B(12992) -! JVS(32887) = Jac_FULL(5106,3057) - JVS(32887) = B(17611) -! JVS(32888) = Jac_FULL(5106,3210) - JVS(32888) = B(5910)+B(5911) -! JVS(32889) = Jac_FULL(5106,3314) - JVS(32889) = 0 -! JVS(32890) = Jac_FULL(5106,3352) - JVS(32890) = B(9586)+B(9588) -! JVS(32891) = Jac_FULL(5106,3353) - JVS(32891) = B(9583) -! JVS(32892) = Jac_FULL(5106,3432) - JVS(32892) = 0 -! JVS(32893) = Jac_FULL(5106,3684) - JVS(32893) = 0 -! JVS(32894) = Jac_FULL(5106,3787) - JVS(32894) = B(20136) -! JVS(32895) = Jac_FULL(5106,3887) - JVS(32895) = 0 -! JVS(32896) = Jac_FULL(5106,4093) - JVS(32896) = B(2677) -! JVS(32897) = Jac_FULL(5106,4227) - JVS(32897) = B(18472)+B(18474)+B(18476) -! JVS(32898) = Jac_FULL(5106,4393) - JVS(32898) = 0 -! JVS(32899) = Jac_FULL(5106,4424) - JVS(32899) = 0 -! JVS(32900) = Jac_FULL(5106,4594) - JVS(32900) = 0 -! JVS(32901) = Jac_FULL(5106,4700) - JVS(32901) = 0 -! JVS(32902) = Jac_FULL(5106,4736) - JVS(32902) = B(4556) -! JVS(32903) = Jac_FULL(5106,4743) - JVS(32903) = 0 -! JVS(32904) = Jac_FULL(5106,4744) - JVS(32904) = B(21432)+B(21434)+B(21438)+B(21440) -! JVS(32905) = Jac_FULL(5106,4815) - JVS(32905) = B(16095)+B(16096) -! JVS(32906) = Jac_FULL(5106,4911) - JVS(32906) = 0 -! JVS(32907) = Jac_FULL(5106,4928) - JVS(32907) = 0 -! JVS(32908) = Jac_FULL(5106,4931) - JVS(32908) = B(7662)+B(7664)+B(7666) -! JVS(32909) = Jac_FULL(5106,4974) - JVS(32909) = 0 -! JVS(32910) = Jac_FULL(5106,4998) - JVS(32910) = 0 -! JVS(32911) = Jac_FULL(5106,5043) - JVS(32911) = 0 -! JVS(32912) = Jac_FULL(5106,5068) - JVS(32912) = B(9538) -! JVS(32913) = Jac_FULL(5106,5106) - JVS(32913) = -B(1365)-B(1367)-B(1369)-B(1371)-B(1373)-B(1375)-B(1377)-B(1378) -! JVS(32914) = Jac_FULL(5106,5146) - JVS(32914) = 0 -! JVS(32915) = Jac_FULL(5106,5203) - JVS(32915) = B(197)+B(203) -! JVS(32916) = Jac_FULL(5106,5238) - JVS(32916) = 0 -! JVS(32917) = Jac_FULL(5106,5250) - JVS(32917) = B(204)+B(4157)+B(7665)+B(9587)+B(12993)+B(13039)+B(18475)+B(20137) -! JVS(32918) = Jac_FULL(5106,5251) - JVS(32918) = 0 -! JVS(32919) = Jac_FULL(5106,5252) - JVS(32919) = -B(1372)+B(21435) -! JVS(32920) = Jac_FULL(5106,5253) - JVS(32920) = -B(1374) -! JVS(32921) = Jac_FULL(5106,5254) - JVS(32921) = 0 -! JVS(32922) = Jac_FULL(5106,5255) - JVS(32922) = -B(1366)-B(1368)-B(1370)+B(21433) -! JVS(32923) = Jac_FULL(5106,5256) - JVS(32923) = B(198)-B(1376)+B(7663)+B(18473)+B(21439) -! JVS(32924) = Jac_FULL(5106,5258) - JVS(32924) = 0 -! JVS(32925) = Jac_FULL(5107,342) - JVS(32925) = B(407)+B(409) -! JVS(32926) = Jac_FULL(5107,5107) - JVS(32926) = -B(1942)-B(1944)-B(1946)-B(1948)-B(1950)-B(1951)-B(1952) -! JVS(32927) = Jac_FULL(5107,5238) - JVS(32927) = B(408) -! JVS(32928) = Jac_FULL(5107,5250) - JVS(32928) = B(410) -! JVS(32929) = Jac_FULL(5107,5252) - JVS(32929) = -B(1945)-B(1947) -! JVS(32930) = Jac_FULL(5107,5255) - JVS(32930) = -B(1943) -! JVS(32931) = Jac_FULL(5107,5256) - JVS(32931) = -B(1949) -! JVS(32932) = Jac_FULL(5108,161) - JVS(32932) = B(4692) -! JVS(32933) = Jac_FULL(5108,1267) - JVS(32933) = 0 -! JVS(32934) = Jac_FULL(5108,1919) - JVS(32934) = 0 -! JVS(32935) = Jac_FULL(5108,4766) - JVS(32935) = 0 -! JVS(32936) = Jac_FULL(5108,5107) - JVS(32936) = 0 -! JVS(32937) = Jac_FULL(5108,5108) - JVS(32937) = -B(8249)-B(8251)-B(8253)-B(8255)-B(8257)-B(8258)-B(8259) -! JVS(32938) = Jac_FULL(5108,5238) - JVS(32938) = 0 -! JVS(32939) = Jac_FULL(5108,5250) - JVS(32939) = 0 -! JVS(32940) = Jac_FULL(5108,5252) - JVS(32940) = -B(8252)-B(8254) -! JVS(32941) = Jac_FULL(5108,5255) - JVS(32941) = -B(8250) -! JVS(32942) = Jac_FULL(5108,5256) - JVS(32942) = -B(8256) -! JVS(32943) = Jac_FULL(5109,1709) - JVS(32943) = B(321)+B(327) -! JVS(32944) = Jac_FULL(5109,2422) - JVS(32944) = B(4498) -! JVS(32945) = Jac_FULL(5109,5109) - JVS(32945) = -B(1716)-B(1718)-B(1720)-B(1722)-B(1724)-B(1725)-B(1726) -! JVS(32946) = Jac_FULL(5109,5238) - JVS(32946) = B(322) -! JVS(32947) = Jac_FULL(5109,5250) - JVS(32947) = B(328)+B(4499) -! JVS(32948) = Jac_FULL(5109,5252) - JVS(32948) = -B(1719)-B(1721) -! JVS(32949) = Jac_FULL(5109,5255) - JVS(32949) = -B(1717) -! JVS(32950) = Jac_FULL(5109,5256) - JVS(32950) = -B(1723) -! JVS(32951) = Jac_FULL(5110,1566) - JVS(32951) = B(14106) -! JVS(32952) = Jac_FULL(5110,2203) - JVS(32952) = B(21191) -! JVS(32953) = Jac_FULL(5110,2428) - JVS(32953) = B(14098) -! JVS(32954) = Jac_FULL(5110,2547) - JVS(32954) = B(12318) -! JVS(32955) = Jac_FULL(5110,2618) - JVS(32955) = B(14089) -! JVS(32956) = Jac_FULL(5110,2723) - JVS(32956) = B(21188) -! JVS(32957) = Jac_FULL(5110,3346) - JVS(32957) = B(14135) -! JVS(32958) = Jac_FULL(5110,3616) - JVS(32958) = B(14126) -! JVS(32959) = Jac_FULL(5110,3756) - JVS(32959) = B(14142) -! JVS(32960) = Jac_FULL(5110,4095) - JVS(32960) = 0 -! JVS(32961) = Jac_FULL(5110,4235) - JVS(32961) = 0 -! JVS(32962) = Jac_FULL(5110,4446) - JVS(32962) = B(10907) -! JVS(32963) = Jac_FULL(5110,4590) - JVS(32963) = 0 -! JVS(32964) = Jac_FULL(5110,4646) - JVS(32964) = 0 -! JVS(32965) = Jac_FULL(5110,4784) - JVS(32965) = 0 -! JVS(32966) = Jac_FULL(5110,4827) - JVS(32966) = 0 -! JVS(32967) = Jac_FULL(5110,4871) - JVS(32967) = 0 -! JVS(32968) = Jac_FULL(5110,4884) - JVS(32968) = 0 -! JVS(32969) = Jac_FULL(5110,4903) - JVS(32969) = 0 -! JVS(32970) = Jac_FULL(5110,4967) - JVS(32970) = 0 -! JVS(32971) = Jac_FULL(5110,5109) - JVS(32971) = 0 -! JVS(32972) = Jac_FULL(5110,5110) - JVS(32972) = -B(14101)-B(14102)-B(14103) -! JVS(32973) = Jac_FULL(5110,5146) - JVS(32973) = 0 -! JVS(32974) = Jac_FULL(5110,5157) - JVS(32974) = 0 -! JVS(32975) = Jac_FULL(5110,5186) - JVS(32975) = 0 -! JVS(32976) = Jac_FULL(5110,5238) - JVS(32976) = 0 -! JVS(32977) = Jac_FULL(5110,5250) - JVS(32977) = B(12319)+B(14090)+B(14099)-B(14104)+B(14107)+B(14127)+B(14143) -! JVS(32978) = Jac_FULL(5110,5252) - JVS(32978) = 0 -! JVS(32979) = Jac_FULL(5110,5255) - JVS(32979) = 0 -! JVS(32980) = Jac_FULL(5110,5256) - JVS(32980) = 0 -! JVS(32981) = Jac_FULL(5110,5258) - JVS(32981) = 0 -! JVS(32982) = Jac_FULL(5111,672) - JVS(32982) = B(19056) -! JVS(32983) = Jac_FULL(5111,886) - JVS(32983) = B(21654) -! JVS(32984) = Jac_FULL(5111,2360) - JVS(32984) = 0 -! JVS(32985) = Jac_FULL(5111,2600) - JVS(32985) = B(21659) -! JVS(32986) = Jac_FULL(5111,3954) - JVS(32986) = 0 -! JVS(32987) = Jac_FULL(5111,4493) - JVS(32987) = B(19065) -! JVS(32988) = Jac_FULL(5111,4765) - JVS(32988) = 0 -! JVS(32989) = Jac_FULL(5111,4925) - JVS(32989) = 0 -! JVS(32990) = Jac_FULL(5111,5081) - JVS(32990) = 0 -! JVS(32991) = Jac_FULL(5111,5086) - JVS(32991) = B(19105)+B(19107) -! JVS(32992) = Jac_FULL(5111,5111) - JVS(32992) = -B(20610)-B(20612)-B(20614)-B(20616)-B(20618)-B(20620) -! JVS(32993) = Jac_FULL(5111,5159) - JVS(32993) = 0 -! JVS(32994) = Jac_FULL(5111,5181) - JVS(32994) = 0 -! JVS(32995) = Jac_FULL(5111,5213) - JVS(32995) = 0 -! JVS(32996) = Jac_FULL(5111,5215) - JVS(32996) = 0 -! JVS(32997) = Jac_FULL(5111,5250) - JVS(32997) = B(19108)+B(21655) -! JVS(32998) = Jac_FULL(5111,5252) - JVS(32998) = -B(20615) -! JVS(32999) = Jac_FULL(5111,5253) - JVS(32999) = -B(20617) -! JVS(33000) = Jac_FULL(5111,5255) - JVS(33000) = -B(20611)-B(20613) -! JVS(33001) = Jac_FULL(5111,5256) - JVS(33001) = B(19106)-B(20619) -! JVS(33002) = Jac_FULL(5111,5258) - JVS(33002) = 0 -! JVS(33003) = Jac_FULL(5112,270) - JVS(33003) = B(403)+B(405) -! JVS(33004) = Jac_FULL(5112,3110) - JVS(33004) = B(4795) -! JVS(33005) = Jac_FULL(5112,5065) - JVS(33005) = 0 -! JVS(33006) = Jac_FULL(5112,5112) - JVS(33006) = -B(1931)-B(1933)-B(1935)-B(1937)-B(1939)-B(1940)-B(1941) -! JVS(33007) = Jac_FULL(5112,5238) - JVS(33007) = B(404) -! JVS(33008) = Jac_FULL(5112,5250) - JVS(33008) = B(406) -! JVS(33009) = Jac_FULL(5112,5252) - JVS(33009) = -B(1934)-B(1936) -! JVS(33010) = Jac_FULL(5112,5255) - JVS(33010) = -B(1932) -! JVS(33011) = Jac_FULL(5112,5256) - JVS(33011) = -B(1938) -! JVS(33012) = Jac_FULL(5113,1561) - JVS(33012) = B(22531) -! JVS(33013) = Jac_FULL(5113,1691) - JVS(33013) = B(22528) -! JVS(33014) = Jac_FULL(5113,1887) - JVS(33014) = B(22527) -! JVS(33015) = Jac_FULL(5113,3612) - JVS(33015) = B(22758) -! JVS(33016) = Jac_FULL(5113,4242) - JVS(33016) = 0 -! JVS(33017) = Jac_FULL(5113,4648) - JVS(33017) = 0 -! JVS(33018) = Jac_FULL(5113,4883) - JVS(33018) = 0 -! JVS(33019) = Jac_FULL(5113,4957) - JVS(33019) = 0 -! JVS(33020) = Jac_FULL(5113,5095) - JVS(33020) = 0 -! JVS(33021) = Jac_FULL(5113,5113) - JVS(33021) = -B(22948)-B(22950)-B(22951) -! JVS(33022) = Jac_FULL(5113,5181) - JVS(33022) = 0 -! JVS(33023) = Jac_FULL(5113,5236) - JVS(33023) = 0 -! JVS(33024) = Jac_FULL(5113,5250) - JVS(33024) = B(22759)-B(22949) -! JVS(33025) = Jac_FULL(5113,5252) - JVS(33025) = 0 -! JVS(33026) = Jac_FULL(5113,5253) - JVS(33026) = 0 -! JVS(33027) = Jac_FULL(5113,5255) - JVS(33027) = 0 -! JVS(33028) = Jac_FULL(5113,5256) - JVS(33028) = 0 -! JVS(33029) = Jac_FULL(5113,5258) - JVS(33029) = 0 -! JVS(33030) = Jac_FULL(5114,1739) - JVS(33030) = B(20975) -! JVS(33031) = Jac_FULL(5114,2359) - JVS(33031) = B(14814) -! JVS(33032) = Jac_FULL(5114,5052) - JVS(33032) = 0 -! JVS(33033) = Jac_FULL(5114,5114) - JVS(33033) = -B(17376)-B(17378)-B(17380)-B(17382)-B(17384)-B(17385)-B(17386) -! JVS(33034) = Jac_FULL(5114,5248) - JVS(33034) = 0 -! JVS(33035) = Jac_FULL(5114,5249) - JVS(33035) = 0 -! JVS(33036) = Jac_FULL(5114,5250) - JVS(33036) = 0 -! JVS(33037) = Jac_FULL(5114,5252) - JVS(33037) = -B(17379)-B(17381) -! JVS(33038) = Jac_FULL(5114,5253) - JVS(33038) = 0 -! JVS(33039) = Jac_FULL(5114,5255) - JVS(33039) = -B(17377) -! JVS(33040) = Jac_FULL(5114,5256) - JVS(33040) = -B(17383) -! JVS(33041) = Jac_FULL(5114,5258) - JVS(33041) = 0 -! JVS(33042) = Jac_FULL(5115,1755) - JVS(33042) = B(11751) -! JVS(33043) = Jac_FULL(5115,2509) - JVS(33043) = 0 -! JVS(33044) = Jac_FULL(5115,2835) - JVS(33044) = B(11781) -! JVS(33045) = Jac_FULL(5115,3046) - JVS(33045) = B(11776) -! JVS(33046) = Jac_FULL(5115,3870) - JVS(33046) = 0 -! JVS(33047) = Jac_FULL(5115,3961) - JVS(33047) = B(8060) -! JVS(33048) = Jac_FULL(5115,4942) - JVS(33048) = 0 -! JVS(33049) = Jac_FULL(5115,5065) - JVS(33049) = 0 -! JVS(33050) = Jac_FULL(5115,5112) - JVS(33050) = 0 -! JVS(33051) = Jac_FULL(5115,5115) - JVS(33051) = -B(11784)-B(11785)-B(11787)-B(11789) -! JVS(33052) = Jac_FULL(5115,5138) - JVS(33052) = 0 -! JVS(33053) = Jac_FULL(5115,5186) - JVS(33053) = 0 -! JVS(33054) = Jac_FULL(5115,5238) - JVS(33054) = 0 -! JVS(33055) = Jac_FULL(5115,5250) - JVS(33055) = B(11777)+B(11782)-B(11788)-B(11790) -! JVS(33056) = Jac_FULL(5115,5252) - JVS(33056) = 0 -! JVS(33057) = Jac_FULL(5115,5253) - JVS(33057) = 0 -! JVS(33058) = Jac_FULL(5115,5255) - JVS(33058) = 0 -! JVS(33059) = Jac_FULL(5115,5256) - JVS(33059) = -B(11786) -! JVS(33060) = Jac_FULL(5116,449) - JVS(33060) = B(17673) -! JVS(33061) = Jac_FULL(5116,1291) - JVS(33061) = B(17675) -! JVS(33062) = Jac_FULL(5116,1577) - JVS(33062) = B(136) -! JVS(33063) = Jac_FULL(5116,1842) - JVS(33063) = B(3897) -! JVS(33064) = Jac_FULL(5116,4665) - JVS(33064) = B(15099)+B(15101)+B(15105)+B(15108) -! JVS(33065) = Jac_FULL(5116,4800) - JVS(33065) = B(15234) -! JVS(33066) = Jac_FULL(5116,4901) - JVS(33066) = 0 -! JVS(33067) = Jac_FULL(5116,4994) - JVS(33067) = 0 -! JVS(33068) = Jac_FULL(5116,5063) - JVS(33068) = B(11897) -! JVS(33069) = Jac_FULL(5116,5116) - JVS(33069) = -B(1140)-B(1142)-B(1144)-B(1146)-B(1148)-B(1149)-B(1150) -! JVS(33070) = Jac_FULL(5116,5119) - JVS(33070) = 0 -! JVS(33071) = Jac_FULL(5116,5238) - JVS(33071) = 0 -! JVS(33072) = Jac_FULL(5116,5250) - JVS(33072) = B(137)+B(3898)+B(17674) -! JVS(33073) = Jac_FULL(5116,5252) - JVS(33073) = -B(1143)-B(1145)+B(15102) -! JVS(33074) = Jac_FULL(5116,5253) - JVS(33074) = 0 -! JVS(33075) = Jac_FULL(5116,5255) - JVS(33075) = -B(1141)+B(15100) -! JVS(33076) = Jac_FULL(5116,5256) - JVS(33076) = -B(1147)+B(15106) -! JVS(33077) = Jac_FULL(5117,805) - JVS(33077) = B(19630)+B(19631) -! JVS(33078) = Jac_FULL(5117,2883) - JVS(33078) = B(14082) -! JVS(33079) = Jac_FULL(5117,2910) - JVS(33079) = B(19723) -! JVS(33080) = Jac_FULL(5117,3031) - JVS(33080) = B(14080) -! JVS(33081) = Jac_FULL(5117,3780) - JVS(33081) = 0 -! JVS(33082) = Jac_FULL(5117,4697) - JVS(33082) = 0 -! JVS(33083) = Jac_FULL(5117,4704) - JVS(33083) = 0 -! JVS(33084) = Jac_FULL(5117,4811) - JVS(33084) = 0 -! JVS(33085) = Jac_FULL(5117,5026) - JVS(33085) = B(7087)+B(7089) -! JVS(33086) = Jac_FULL(5117,5061) - JVS(33086) = 0 -! JVS(33087) = Jac_FULL(5117,5063) - JVS(33087) = 0 -! JVS(33088) = Jac_FULL(5117,5064) - JVS(33088) = 0 -! JVS(33089) = Jac_FULL(5117,5097) - JVS(33089) = 0 -! JVS(33090) = Jac_FULL(5117,5116) - JVS(33090) = 0 -! JVS(33091) = Jac_FULL(5117,5117) - JVS(33091) = -B(10873)-B(10875)-B(10877)-B(10879)-B(10881)-B(10883)-B(10885)-B(10886) -! JVS(33092) = Jac_FULL(5117,5119) - JVS(33092) = 0 -! JVS(33093) = Jac_FULL(5117,5147) - JVS(33093) = 0 -! JVS(33094) = Jac_FULL(5117,5238) - JVS(33094) = 0 -! JVS(33095) = Jac_FULL(5117,5250) - JVS(33095) = B(7090)+B(14081)+B(19632) -! JVS(33096) = Jac_FULL(5117,5252) - JVS(33096) = -B(10880) -! JVS(33097) = Jac_FULL(5117,5253) - JVS(33097) = -B(10882) -! JVS(33098) = Jac_FULL(5117,5255) - JVS(33098) = -B(10874)-B(10876)-B(10878) -! JVS(33099) = Jac_FULL(5117,5256) - JVS(33099) = B(7088)-B(10884) -! JVS(33100) = Jac_FULL(5118,607) - JVS(33100) = B(3157) -! JVS(33101) = Jac_FULL(5118,4113) - JVS(33101) = B(10567) -! JVS(33102) = Jac_FULL(5118,5118) - JVS(33102) = -B(6928)-B(6930)-B(6932)-B(6934)-B(6936)-B(6937)-B(6938)-B(6939) -! JVS(33103) = Jac_FULL(5118,5166) - JVS(33103) = 0 -! JVS(33104) = Jac_FULL(5118,5204) - JVS(33104) = 0 -! JVS(33105) = Jac_FULL(5118,5224) - JVS(33105) = 0 -! JVS(33106) = Jac_FULL(5118,5250) - JVS(33106) = B(10568) -! JVS(33107) = Jac_FULL(5118,5252) - JVS(33107) = -B(6931)-B(6933) -! JVS(33108) = Jac_FULL(5118,5255) - JVS(33108) = -B(6929) -! JVS(33109) = Jac_FULL(5118,5256) - JVS(33109) = -B(6935) -! JVS(33110) = Jac_FULL(5119,166) - JVS(33110) = B(4725) -! JVS(33111) = Jac_FULL(5119,1501) - JVS(33111) = 0 -! JVS(33112) = Jac_FULL(5119,1831) - JVS(33112) = 0 -! JVS(33113) = Jac_FULL(5119,4586) - JVS(33113) = 0 -! JVS(33114) = Jac_FULL(5119,5119) - JVS(33114) = -B(8295)-B(8297)-B(8299)-B(8301)-B(8303)-B(8304)-B(8305) -! JVS(33115) = Jac_FULL(5119,5238) - JVS(33115) = 0 -! JVS(33116) = Jac_FULL(5119,5250) - JVS(33116) = 0 -! JVS(33117) = Jac_FULL(5119,5252) - JVS(33117) = -B(8298)-B(8300) -! JVS(33118) = Jac_FULL(5119,5255) - JVS(33118) = -B(8296) -! JVS(33119) = Jac_FULL(5119,5256) - JVS(33119) = -B(8302) -! JVS(33120) = Jac_FULL(5120,479) - JVS(33120) = B(17596) -! JVS(33121) = Jac_FULL(5120,1090) - JVS(33121) = B(17598) -! JVS(33122) = Jac_FULL(5120,3822) - JVS(33122) = B(12049) -! JVS(33123) = Jac_FULL(5120,4934) - JVS(33123) = B(15024)+B(15026)+B(15030)+B(15033) -! JVS(33124) = Jac_FULL(5120,4975) - JVS(33124) = B(11820) -! JVS(33125) = Jac_FULL(5120,5119) - JVS(33125) = 0 -! JVS(33126) = Jac_FULL(5120,5120) - JVS(33126) = -B(15009)-B(15011)-B(15013)-B(15015)-B(15017)-B(15018)-B(15019) -! JVS(33127) = Jac_FULL(5120,5238) - JVS(33127) = 0 -! JVS(33128) = Jac_FULL(5120,5250) - JVS(33128) = B(17597) -! JVS(33129) = Jac_FULL(5120,5252) - JVS(33129) = -B(15012)-B(15014)+B(15027) -! JVS(33130) = Jac_FULL(5120,5253) - JVS(33130) = 0 -! JVS(33131) = Jac_FULL(5120,5255) - JVS(33131) = -B(15010)+B(15025) -! JVS(33132) = Jac_FULL(5120,5256) - JVS(33132) = -B(15016)+B(15031) -! JVS(33133) = Jac_FULL(5121,343) - JVS(33133) = B(11446) -! JVS(33134) = Jac_FULL(5121,1158) - JVS(33134) = B(11448) -! JVS(33135) = Jac_FULL(5121,1686) - JVS(33135) = B(86) -! JVS(33136) = Jac_FULL(5121,1693) - JVS(33136) = B(11847) -! JVS(33137) = Jac_FULL(5121,1899) - JVS(33137) = B(3657) -! JVS(33138) = Jac_FULL(5121,4524) - JVS(33138) = B(3798) -! JVS(33139) = Jac_FULL(5121,4880) - JVS(33139) = 0 -! JVS(33140) = Jac_FULL(5121,4886) - JVS(33140) = 0 -! JVS(33141) = Jac_FULL(5121,4949) - JVS(33141) = B(7606)+B(7608)+B(7612)+B(7615) -! JVS(33142) = Jac_FULL(5121,5071) - JVS(33142) = B(3729) -! JVS(33143) = Jac_FULL(5121,5097) - JVS(33143) = 0 -! JVS(33144) = Jac_FULL(5121,5116) - JVS(33144) = 0 -! JVS(33145) = Jac_FULL(5121,5119) - JVS(33145) = 0 -! JVS(33146) = Jac_FULL(5121,5121) - JVS(33146) = -B(943)-B(945)-B(947)-B(948)-B(949)-B(950)-B(952) -! JVS(33147) = Jac_FULL(5121,5147) - JVS(33147) = 0 -! JVS(33148) = Jac_FULL(5121,5200) - JVS(33148) = B(437) -! JVS(33149) = Jac_FULL(5121,5203) - JVS(33149) = 0 -! JVS(33150) = Jac_FULL(5121,5229) - JVS(33150) = 0 -! JVS(33151) = Jac_FULL(5121,5238) - JVS(33151) = 0 -! JVS(33152) = Jac_FULL(5121,5250) - JVS(33152) = B(87)+B(438)+B(3658)+B(11447) -! JVS(33153) = Jac_FULL(5121,5252) - JVS(33153) = -B(951)-B(953)+B(7609) -! JVS(33154) = Jac_FULL(5121,5253) - JVS(33154) = 0 -! JVS(33155) = Jac_FULL(5121,5255) - JVS(33155) = -B(944)+B(7607) -! JVS(33156) = Jac_FULL(5121,5256) - JVS(33156) = -B(946)+B(7613) -! JVS(33157) = Jac_FULL(5122,243) - JVS(33157) = B(11366) -! JVS(33158) = Jac_FULL(5122,3516) - JVS(33158) = B(11367) -! JVS(33159) = Jac_FULL(5122,3517) - JVS(33159) = 0 -! JVS(33160) = Jac_FULL(5122,4249) - JVS(33160) = 0 -! JVS(33161) = Jac_FULL(5122,4757) - JVS(33161) = 0 -! JVS(33162) = Jac_FULL(5122,4988) - JVS(33162) = 0 -! JVS(33163) = Jac_FULL(5122,5122) - JVS(33163) = -B(14702)-B(14704)-B(14706)-B(14708)-B(14709)-B(14710) -! JVS(33164) = Jac_FULL(5122,5249) - JVS(33164) = 0 -! JVS(33165) = Jac_FULL(5122,5250) - JVS(33165) = B(11368) -! JVS(33166) = Jac_FULL(5122,5251) - JVS(33166) = 0 -! JVS(33167) = Jac_FULL(5122,5252) - JVS(33167) = -B(14705) -! JVS(33168) = Jac_FULL(5122,5253) - JVS(33168) = 0 -! JVS(33169) = Jac_FULL(5122,5254) - JVS(33169) = 0 -! JVS(33170) = Jac_FULL(5122,5255) - JVS(33170) = -B(14703) -! JVS(33171) = Jac_FULL(5122,5256) - JVS(33171) = -B(14707) -! JVS(33172) = Jac_FULL(5122,5258) - JVS(33172) = 0 -! JVS(33173) = Jac_FULL(5123,720) - JVS(33173) = B(9122) -! JVS(33174) = Jac_FULL(5123,755) - JVS(33174) = B(8982) -! JVS(33175) = Jac_FULL(5123,1583) - JVS(33175) = B(9955) -! JVS(33176) = Jac_FULL(5123,1584) - JVS(33176) = B(9956)+B(9958) -! JVS(33177) = Jac_FULL(5123,1588) - JVS(33177) = B(8897) -! JVS(33178) = Jac_FULL(5123,1609) - JVS(33178) = B(9128) -! JVS(33179) = Jac_FULL(5123,1836) - JVS(33179) = 0 -! JVS(33180) = Jac_FULL(5123,1968) - JVS(33180) = B(9953) -! JVS(33181) = Jac_FULL(5123,1988) - JVS(33181) = B(8983)+B(8986) -! JVS(33182) = Jac_FULL(5123,2234) - JVS(33182) = B(8891) -! JVS(33183) = Jac_FULL(5123,2501) - JVS(33183) = B(8889) -! JVS(33184) = Jac_FULL(5123,2857) - JVS(33184) = B(9913) -! JVS(33185) = Jac_FULL(5123,3060) - JVS(33185) = B(8860) -! JVS(33186) = Jac_FULL(5123,3206) - JVS(33186) = B(9080) -! JVS(33187) = Jac_FULL(5123,3292) - JVS(33187) = B(8939) -! JVS(33188) = Jac_FULL(5123,3469) - JVS(33188) = B(8980) -! JVS(33189) = Jac_FULL(5123,3824) - JVS(33189) = B(5333) -! JVS(33190) = Jac_FULL(5123,3826) - JVS(33190) = B(6279) -! JVS(33191) = Jac_FULL(5123,4004) - JVS(33191) = B(5500) -! JVS(33192) = Jac_FULL(5123,4177) - JVS(33192) = B(6201) -! JVS(33193) = Jac_FULL(5123,4311) - JVS(33193) = 0 -! JVS(33194) = Jac_FULL(5123,4432) - JVS(33194) = 0 -! JVS(33195) = Jac_FULL(5123,4483) - JVS(33195) = 0 -! JVS(33196) = Jac_FULL(5123,4626) - JVS(33196) = 0 -! JVS(33197) = Jac_FULL(5123,4654) - JVS(33197) = 0 -! JVS(33198) = Jac_FULL(5123,4833) - JVS(33198) = 0 -! JVS(33199) = Jac_FULL(5123,4887) - JVS(33199) = 0 -! JVS(33200) = Jac_FULL(5123,4892) - JVS(33200) = 0 -! JVS(33201) = Jac_FULL(5123,4937) - JVS(33201) = B(5979) -! JVS(33202) = Jac_FULL(5123,4950) - JVS(33202) = B(5405) -! JVS(33203) = Jac_FULL(5123,5123) - JVS(33203) = -B(8822)-B(8824)-B(8826)-B(8828)-B(8830)-B(8832)-B(8833) -! JVS(33204) = Jac_FULL(5123,5250) - JVS(33204) = -B(8829)-B(8831)+B(8861)+B(8940)+B(8984)+B(9081)+B(9914)+B(9957) -! JVS(33205) = Jac_FULL(5123,5252) - JVS(33205) = 0 -! JVS(33206) = Jac_FULL(5123,5253) - JVS(33206) = 0 -! JVS(33207) = Jac_FULL(5123,5255) - JVS(33207) = 0 -! JVS(33208) = Jac_FULL(5123,5256) - JVS(33208) = -B(8823) -! JVS(33209) = Jac_FULL(5123,5258) - JVS(33209) = -B(8825)-B(8827) -! JVS(33210) = Jac_FULL(5124,1959) - JVS(33210) = B(3052) -! JVS(33211) = Jac_FULL(5124,3607) - JVS(33211) = B(7233) -! JVS(33212) = Jac_FULL(5124,3653) - JVS(33212) = B(3933) -! JVS(33213) = Jac_FULL(5124,3689) - JVS(33213) = B(862) -! JVS(33214) = Jac_FULL(5124,4814) - JVS(33214) = 0 -! JVS(33215) = Jac_FULL(5124,5081) - JVS(33215) = 0 -! JVS(33216) = Jac_FULL(5124,5124) - JVS(33216) = -B(423)-B(425)-B(427) -! JVS(33217) = Jac_FULL(5124,5153) - JVS(33217) = 0 -! JVS(33218) = Jac_FULL(5124,5181) - JVS(33218) = 0 -! JVS(33219) = Jac_FULL(5124,5194) - JVS(33219) = B(222) -! JVS(33220) = Jac_FULL(5124,5230) - JVS(33220) = B(195) -! JVS(33221) = Jac_FULL(5124,5250) - JVS(33221) = -B(428) -! JVS(33222) = Jac_FULL(5124,5252) - JVS(33222) = 0 -! JVS(33223) = Jac_FULL(5124,5255) - JVS(33223) = 0 -! JVS(33224) = Jac_FULL(5124,5256) - JVS(33224) = -B(424) -! JVS(33225) = Jac_FULL(5124,5258) - JVS(33225) = -B(426) -! JVS(33226) = Jac_FULL(5125,722) - JVS(33226) = B(19778) -! JVS(33227) = Jac_FULL(5125,803) - JVS(33227) = B(15309) -! JVS(33228) = Jac_FULL(5125,862) - JVS(33228) = B(12944)+B(12946) -! JVS(33229) = Jac_FULL(5125,1500) - JVS(33229) = B(4116) -! JVS(33230) = Jac_FULL(5125,1707) - JVS(33230) = B(19779) -! JVS(33231) = Jac_FULL(5125,1737) - JVS(33231) = B(7167) -! JVS(33232) = Jac_FULL(5125,1879) - JVS(33232) = B(22238) -! JVS(33233) = Jac_FULL(5125,2052) - JVS(33233) = B(19774) -! JVS(33234) = Jac_FULL(5125,2104) - JVS(33234) = B(12898)+B(12899) -! JVS(33235) = Jac_FULL(5125,2148) - JVS(33235) = B(5821)+B(5822) -! JVS(33236) = Jac_FULL(5125,2163) - JVS(33236) = B(8498) -! JVS(33237) = Jac_FULL(5125,2474) - JVS(33237) = B(12949) -! JVS(33238) = Jac_FULL(5125,2537) - JVS(33238) = B(4121) -! JVS(33239) = Jac_FULL(5125,2558) - JVS(33239) = B(7165) -! JVS(33240) = Jac_FULL(5125,2936) - JVS(33240) = B(12894) -! JVS(33241) = Jac_FULL(5125,3073) - JVS(33241) = B(22186) -! JVS(33242) = Jac_FULL(5125,3151) - JVS(33242) = B(19771) -! JVS(33243) = Jac_FULL(5125,3341) - JVS(33243) = 0 -! JVS(33244) = Jac_FULL(5125,3399) - JVS(33244) = 0 -! JVS(33245) = Jac_FULL(5125,3426) - JVS(33245) = B(9475)+B(9477) -! JVS(33246) = Jac_FULL(5125,3427) - JVS(33246) = B(9472) -! JVS(33247) = Jac_FULL(5125,3463) - JVS(33247) = B(18486) -! JVS(33248) = Jac_FULL(5125,3467) - JVS(33248) = B(18419) -! JVS(33249) = Jac_FULL(5125,3498) - JVS(33249) = B(7134) -! JVS(33250) = Jac_FULL(5125,3522) - JVS(33250) = 0 -! JVS(33251) = Jac_FULL(5125,3673) - JVS(33251) = B(20106) -! JVS(33252) = Jac_FULL(5125,3701) - JVS(33252) = 0 -! JVS(33253) = Jac_FULL(5125,3757) - JVS(33253) = 0 -! JVS(33254) = Jac_FULL(5125,3878) - JVS(33254) = 0 -! JVS(33255) = Jac_FULL(5125,3910) - JVS(33255) = 0 -! JVS(33256) = Jac_FULL(5125,4094) - JVS(33256) = B(2634) -! JVS(33257) = Jac_FULL(5125,4103) - JVS(33257) = 0 -! JVS(33258) = Jac_FULL(5125,4223) - JVS(33258) = B(5189) -! JVS(33259) = Jac_FULL(5125,4233) - JVS(33259) = B(18405)+B(18407)+B(18409) -! JVS(33260) = Jac_FULL(5125,4318) - JVS(33260) = 0 -! JVS(33261) = Jac_FULL(5125,4336) - JVS(33261) = 0 -! JVS(33262) = Jac_FULL(5125,4349) - JVS(33262) = 0 -! JVS(33263) = Jac_FULL(5125,4377) - JVS(33263) = 0 -! JVS(33264) = Jac_FULL(5125,4381) - JVS(33264) = 0 -! JVS(33265) = Jac_FULL(5125,4388) - JVS(33265) = 0 -! JVS(33266) = Jac_FULL(5125,4390) - JVS(33266) = 0 -! JVS(33267) = Jac_FULL(5125,4461) - JVS(33267) = 0 -! JVS(33268) = Jac_FULL(5125,4502) - JVS(33268) = 0 -! JVS(33269) = Jac_FULL(5125,4593) - JVS(33269) = 0 -! JVS(33270) = Jac_FULL(5125,4607) - JVS(33270) = 0 -! JVS(33271) = Jac_FULL(5125,4608) - JVS(33271) = 0 -! JVS(33272) = Jac_FULL(5125,4619) - JVS(33272) = 0 -! JVS(33273) = Jac_FULL(5125,4620) - JVS(33273) = B(21412)+B(21416)+B(21420)+B(21422) -! JVS(33274) = Jac_FULL(5125,4627) - JVS(33274) = 0 -! JVS(33275) = Jac_FULL(5125,4702) - JVS(33275) = 0 -! JVS(33276) = Jac_FULL(5125,4713) - JVS(33276) = 0 -! JVS(33277) = Jac_FULL(5125,4717) - JVS(33277) = B(7181) -! JVS(33278) = Jac_FULL(5125,4744) - JVS(33278) = 0 -! JVS(33279) = Jac_FULL(5125,4775) - JVS(33279) = B(15992)+B(15993) -! JVS(33280) = Jac_FULL(5125,4792) - JVS(33280) = 0 -! JVS(33281) = Jac_FULL(5125,4864) - JVS(33281) = 0 -! JVS(33282) = Jac_FULL(5125,4884) - JVS(33282) = 0 -! JVS(33283) = Jac_FULL(5125,4918) - JVS(33283) = B(9411)+B(9413)+B(9415) -! JVS(33284) = Jac_FULL(5125,4928) - JVS(33284) = 0 -! JVS(33285) = Jac_FULL(5125,4997) - JVS(33285) = 0 -! JVS(33286) = Jac_FULL(5125,5066) - JVS(33286) = 0 -! JVS(33287) = Jac_FULL(5125,5109) - JVS(33287) = 0 -! JVS(33288) = Jac_FULL(5125,5112) - JVS(33288) = 0 -! JVS(33289) = Jac_FULL(5125,5125) - JVS(33289) = -B(1329)-B(1331)-B(1333)-B(1335)-B(1337)-B(1339)-B(1341)-B(1342) -! JVS(33290) = Jac_FULL(5125,5186) - JVS(33290) = 0 -! JVS(33291) = Jac_FULL(5125,5190) - JVS(33291) = 0 -! JVS(33292) = Jac_FULL(5125,5230) - JVS(33292) = B(189)+B(193) -! JVS(33293) = Jac_FULL(5125,5238) - JVS(33293) = 0 -! JVS(33294) = Jac_FULL(5125,5250) - JVS(33294) = B(194)+B(4117)+B(9414)+B(9476)+B(12895)+B(12945)+B(18408)+B(20107) -! JVS(33295) = Jac_FULL(5125,5251) - JVS(33295) = 0 -! JVS(33296) = Jac_FULL(5125,5252) - JVS(33296) = -B(1336)+B(21417) -! JVS(33297) = Jac_FULL(5125,5253) - JVS(33297) = -B(1338) -! JVS(33298) = Jac_FULL(5125,5254) - JVS(33298) = 0 -! JVS(33299) = Jac_FULL(5125,5255) - JVS(33299) = -B(1330)-B(1332)-B(1334)+B(21413) -! JVS(33300) = Jac_FULL(5125,5256) - JVS(33300) = B(190)-B(1340)+B(9412)+B(18406)+B(21421) -! JVS(33301) = Jac_FULL(5125,5258) - JVS(33301) = 0 -! JVS(33302) = Jac_FULL(5126,1560) - JVS(33302) = B(10023)+B(10025) -! JVS(33303) = Jac_FULL(5126,1598) - JVS(33303) = B(9367) -! JVS(33304) = Jac_FULL(5126,1640) - JVS(33304) = B(10018) -! JVS(33305) = Jac_FULL(5126,1760) - JVS(33305) = B(9364) -! JVS(33306) = Jac_FULL(5126,1873) - JVS(33306) = B(10016) -! JVS(33307) = Jac_FULL(5126,2640) - JVS(33307) = B(9333) -! JVS(33308) = Jac_FULL(5126,2950) - JVS(33308) = B(9997) -! JVS(33309) = Jac_FULL(5126,3238) - JVS(33309) = B(9362) -! JVS(33310) = Jac_FULL(5126,3812) - JVS(33310) = B(5704) -! JVS(33311) = Jac_FULL(5126,3826) - JVS(33311) = B(6280) -! JVS(33312) = Jac_FULL(5126,4132) - JVS(33312) = 0 -! JVS(33313) = Jac_FULL(5126,4177) - JVS(33313) = B(6202) -! JVS(33314) = Jac_FULL(5126,4641) - JVS(33314) = 0 -! JVS(33315) = Jac_FULL(5126,4667) - JVS(33315) = 0 -! JVS(33316) = Jac_FULL(5126,4897) - JVS(33316) = 0 -! JVS(33317) = Jac_FULL(5126,5126) - JVS(33317) = -B(9295)-B(9297)-B(9299)-B(9301)-B(9303)-B(9305)-B(9306) -! JVS(33318) = Jac_FULL(5126,5250) - JVS(33318) = -B(9302)-B(9304)+B(9334)+B(9998)+B(10024) -! JVS(33319) = Jac_FULL(5126,5252) - JVS(33319) = 0 -! JVS(33320) = Jac_FULL(5126,5253) - JVS(33320) = 0 -! JVS(33321) = Jac_FULL(5126,5255) - JVS(33321) = 0 -! JVS(33322) = Jac_FULL(5126,5256) - JVS(33322) = -B(9296) -! JVS(33323) = Jac_FULL(5126,5258) - JVS(33323) = -B(9298)-B(9300) -! JVS(33324) = Jac_FULL(5127,4248) - JVS(33324) = B(11701) -! JVS(33325) = Jac_FULL(5127,4785) - JVS(33325) = 0 -! JVS(33326) = Jac_FULL(5127,4907) - JVS(33326) = B(3152) -! JVS(33327) = Jac_FULL(5127,5127) - JVS(33327) = -B(6894)-B(6896)-B(6898)-B(6900)-B(6902)-B(6903)-B(6904) -! JVS(33328) = Jac_FULL(5127,5148) - JVS(33328) = 0 -! JVS(33329) = Jac_FULL(5127,5163) - JVS(33329) = 0 -! JVS(33330) = Jac_FULL(5127,5166) - JVS(33330) = 0 -! JVS(33331) = Jac_FULL(5127,5192) - JVS(33331) = 0 -! JVS(33332) = Jac_FULL(5127,5250) - JVS(33332) = B(3153)+B(11702) -! JVS(33333) = Jac_FULL(5127,5252) - JVS(33333) = -B(6897)-B(6899) -! JVS(33334) = Jac_FULL(5127,5255) - JVS(33334) = -B(6895) -! JVS(33335) = Jac_FULL(5127,5256) - JVS(33335) = -B(6901) -! JVS(33336) = Jac_FULL(5127,5258) - JVS(33336) = 0 -! JVS(33337) = Jac_FULL(5128,3448) - JVS(33337) = B(4273) -! JVS(33338) = Jac_FULL(5128,3629) - JVS(33338) = B(19377) -! JVS(33339) = Jac_FULL(5128,3642) - JVS(33339) = B(23672) -! JVS(33340) = Jac_FULL(5128,4330) - JVS(33340) = B(4275) -! JVS(33341) = Jac_FULL(5128,4342) - JVS(33341) = 0 -! JVS(33342) = Jac_FULL(5128,4781) - JVS(33342) = 0 -! JVS(33343) = Jac_FULL(5128,4891) - JVS(33343) = 0 -! JVS(33344) = Jac_FULL(5128,5027) - JVS(33344) = 0 -! JVS(33345) = Jac_FULL(5128,5128) - JVS(33345) = -B(1495)-B(1497)-B(1499)-B(1501)-B(1503)-B(1505)-B(1507)-B(1508) -! JVS(33346) = Jac_FULL(5128,5187) - JVS(33346) = 0 -! JVS(33347) = Jac_FULL(5128,5212) - JVS(33347) = 0 -! JVS(33348) = Jac_FULL(5128,5226) - JVS(33348) = B(229)+B(230)+B(236) -! JVS(33349) = Jac_FULL(5128,5250) - JVS(33349) = B(237)+B(4274) -! JVS(33350) = Jac_FULL(5128,5252) - JVS(33350) = -B(1502) -! JVS(33351) = Jac_FULL(5128,5253) - JVS(33351) = -B(1504) -! JVS(33352) = Jac_FULL(5128,5255) - JVS(33352) = -B(1496)-B(1498)-B(1500) -! JVS(33353) = Jac_FULL(5128,5256) - JVS(33353) = B(231)-B(1506) -! JVS(33354) = Jac_FULL(5128,5258) - JVS(33354) = 0 -! JVS(33355) = Jac_FULL(5129,298) - JVS(33355) = B(108) -! JVS(33356) = Jac_FULL(5129,734) - JVS(33356) = B(17806) -! JVS(33357) = Jac_FULL(5129,1380) - JVS(33357) = B(11487) -! JVS(33358) = Jac_FULL(5129,1582) - JVS(33358) = B(3968) -! JVS(33359) = Jac_FULL(5129,2118) - JVS(33359) = B(152) -! JVS(33360) = Jac_FULL(5129,3207) - JVS(33360) = B(3964) -! JVS(33361) = Jac_FULL(5129,3299) - JVS(33361) = B(3738) -! JVS(33362) = Jac_FULL(5129,3528) - JVS(33362) = 0 -! JVS(33363) = Jac_FULL(5129,3892) - JVS(33363) = B(3969)+B(3971) -! JVS(33364) = Jac_FULL(5129,4512) - JVS(33364) = B(475) -! JVS(33365) = Jac_FULL(5129,4698) - JVS(33365) = 0 -! JVS(33366) = Jac_FULL(5129,4967) - JVS(33366) = 0 -! JVS(33367) = Jac_FULL(5129,4981) - JVS(33367) = 0 -! JVS(33368) = Jac_FULL(5129,4984) - JVS(33368) = 0 -! JVS(33369) = Jac_FULL(5129,5032) - JVS(33369) = 0 -! JVS(33370) = Jac_FULL(5129,5045) - JVS(33370) = 0 -! JVS(33371) = Jac_FULL(5129,5056) - JVS(33371) = 0 -! JVS(33372) = Jac_FULL(5129,5057) - JVS(33372) = B(3865) -! JVS(33373) = Jac_FULL(5129,5072) - JVS(33373) = 0 -! JVS(33374) = Jac_FULL(5129,5077) - JVS(33374) = 0 -! JVS(33375) = Jac_FULL(5129,5082) - JVS(33375) = 0 -! JVS(33376) = Jac_FULL(5129,5090) - JVS(33376) = 0 -! JVS(33377) = Jac_FULL(5129,5101) - JVS(33377) = B(7680)+B(7682)+B(7686)+B(7688) -! JVS(33378) = Jac_FULL(5129,5129) - JVS(33378) = -B(1019)-B(1021)-B(1023)-B(1025)-B(1027)-B(1028)-B(1029) -! JVS(33379) = Jac_FULL(5129,5130) - JVS(33379) = 0 -! JVS(33380) = Jac_FULL(5129,5146) - JVS(33380) = 0 -! JVS(33381) = Jac_FULL(5129,5148) - JVS(33381) = 0 -! JVS(33382) = Jac_FULL(5129,5215) - JVS(33382) = 0 -! JVS(33383) = Jac_FULL(5129,5238) - JVS(33383) = 0 -! JVS(33384) = Jac_FULL(5129,5239) - JVS(33384) = 0 -! JVS(33385) = Jac_FULL(5129,5250) - JVS(33385) = B(109)+B(476)+B(3739)+B(3972) -! JVS(33386) = Jac_FULL(5129,5252) - JVS(33386) = -B(1022)-B(1024)+B(7683) -! JVS(33387) = Jac_FULL(5129,5253) - JVS(33387) = 0 -! JVS(33388) = Jac_FULL(5129,5255) - JVS(33388) = -B(1020)+B(7681) -! JVS(33389) = Jac_FULL(5129,5256) - JVS(33389) = -B(1026)+B(3970)+B(7687) -! JVS(33390) = Jac_FULL(5129,5258) - JVS(33390) = 0 -! JVS(33391) = Jac_FULL(5130,1411) - JVS(33391) = B(23439) -! JVS(33392) = Jac_FULL(5130,1814) - JVS(33392) = B(23149) -! JVS(33393) = Jac_FULL(5130,2226) - JVS(33393) = B(23960) -! JVS(33394) = Jac_FULL(5130,2855) - JVS(33394) = 0 -! JVS(33395) = Jac_FULL(5130,2856) - JVS(33395) = B(23864) -! JVS(33396) = Jac_FULL(5130,3373) - JVS(33396) = B(22685)+B(22687) -! JVS(33397) = Jac_FULL(5130,3882) - JVS(33397) = 0 -! JVS(33398) = Jac_FULL(5130,3957) - JVS(33398) = B(22645) -! JVS(33399) = Jac_FULL(5130,4162) - JVS(33399) = 0 -! JVS(33400) = Jac_FULL(5130,4216) - JVS(33400) = 0 -! JVS(33401) = Jac_FULL(5130,4652) - JVS(33401) = 0 -! JVS(33402) = Jac_FULL(5130,4748) - JVS(33402) = 0 -! JVS(33403) = Jac_FULL(5130,4825) - JVS(33403) = 0 -! JVS(33404) = Jac_FULL(5130,5028) - JVS(33404) = 0 -! JVS(33405) = Jac_FULL(5130,5052) - JVS(33405) = 0 -! JVS(33406) = Jac_FULL(5130,5130) - JVS(33406) = -B(23069)-B(23071)-B(23073)-B(23075)-B(23077)-B(23078) -! JVS(33407) = Jac_FULL(5130,5240) - JVS(33407) = 0 -! JVS(33408) = Jac_FULL(5130,5247) - JVS(33408) = 0 -! JVS(33409) = Jac_FULL(5130,5248) - JVS(33409) = 0 -! JVS(33410) = Jac_FULL(5130,5249) - JVS(33410) = 0 -! JVS(33411) = Jac_FULL(5130,5250) - JVS(33411) = B(22686)+B(23440)+B(23865) -! JVS(33412) = Jac_FULL(5130,5252) - JVS(33412) = -B(23072)-B(23074) -! JVS(33413) = Jac_FULL(5130,5253) - JVS(33413) = 0 -! JVS(33414) = Jac_FULL(5130,5255) - JVS(33414) = -B(23070) -! JVS(33415) = Jac_FULL(5130,5256) - JVS(33415) = -B(23076) -! JVS(33416) = Jac_FULL(5130,5258) - JVS(33416) = 0 -! JVS(33417) = Jac_FULL(5131,703) - JVS(33417) = B(17190) -! JVS(33418) = Jac_FULL(5131,726) - JVS(33418) = B(17249) -! JVS(33419) = Jac_FULL(5131,1372) - JVS(33419) = B(17250) -! JVS(33420) = Jac_FULL(5131,1373) - JVS(33420) = 0 -! JVS(33421) = Jac_FULL(5131,1479) - JVS(33421) = B(20958) -! JVS(33422) = Jac_FULL(5131,1843) - JVS(33422) = B(17191)+B(17193) -! JVS(33423) = Jac_FULL(5131,2439) - JVS(33423) = 0 -! JVS(33424) = Jac_FULL(5131,3011) - JVS(33424) = B(20974) -! JVS(33425) = Jac_FULL(5131,4762) - JVS(33425) = 0 -! JVS(33426) = Jac_FULL(5131,5039) - JVS(33426) = 0 -! JVS(33427) = Jac_FULL(5131,5092) - JVS(33427) = 0 -! JVS(33428) = Jac_FULL(5131,5099) - JVS(33428) = 0 -! JVS(33429) = Jac_FULL(5131,5131) - JVS(33429) = -B(19400)-B(19402)-B(19404)-B(19406)-B(19408)-B(19410)-B(19412)-B(19413) -! JVS(33430) = Jac_FULL(5131,5248) - JVS(33430) = 0 -! JVS(33431) = Jac_FULL(5131,5249) - JVS(33431) = 0 -! JVS(33432) = Jac_FULL(5131,5250) - JVS(33432) = B(17192)+B(17251)+B(20959) -! JVS(33433) = Jac_FULL(5131,5251) - JVS(33433) = 0 -! JVS(33434) = Jac_FULL(5131,5252) - JVS(33434) = -B(19407) -! JVS(33435) = Jac_FULL(5131,5253) - JVS(33435) = -B(19409) -! JVS(33436) = Jac_FULL(5131,5254) - JVS(33436) = 0 -! JVS(33437) = Jac_FULL(5131,5255) - JVS(33437) = -B(19401)-B(19403)-B(19405) -! JVS(33438) = Jac_FULL(5131,5256) - JVS(33438) = -B(19411) -! JVS(33439) = Jac_FULL(5131,5257) - JVS(33439) = 0 -! JVS(33440) = Jac_FULL(5131,5258) - JVS(33440) = 0 -! JVS(33441) = Jac_FULL(5132,5132) - JVS(33441) = -B(3124)-B(3126)-B(3128)-B(3130)-B(3132)-B(3133)-B(3134) -! JVS(33442) = Jac_FULL(5132,5166) - JVS(33442) = B(791) -! JVS(33443) = Jac_FULL(5132,5250) - JVS(33443) = B(792) -! JVS(33444) = Jac_FULL(5132,5252) - JVS(33444) = -B(3127)-B(3129) -! JVS(33445) = Jac_FULL(5132,5255) - JVS(33445) = -B(3125) -! JVS(33446) = Jac_FULL(5132,5256) - JVS(33446) = -B(3131) -! JVS(33447) = Jac_FULL(5133,3502) - JVS(33447) = B(14911) -! JVS(33448) = Jac_FULL(5133,3529) - JVS(33448) = B(14916) -! JVS(33449) = Jac_FULL(5133,4406) - JVS(33449) = B(7919) -! JVS(33450) = Jac_FULL(5133,5005) - JVS(33450) = 0 -! JVS(33451) = Jac_FULL(5133,5133) - JVS(33451) = -B(11642)-B(11644)-B(11646)-B(11648)-B(11650)-B(11652)-B(11654)-B(11655) -! JVS(33452) = Jac_FULL(5133,5154) - JVS(33452) = 0 -! JVS(33453) = Jac_FULL(5133,5155) - JVS(33453) = 0 -! JVS(33454) = Jac_FULL(5133,5167) - JVS(33454) = 0 -! JVS(33455) = Jac_FULL(5133,5174) - JVS(33455) = 0 -! JVS(33456) = Jac_FULL(5133,5221) - JVS(33456) = 0 -! JVS(33457) = Jac_FULL(5133,5250) - JVS(33457) = B(7920)+B(14912) -! JVS(33458) = Jac_FULL(5133,5252) - JVS(33458) = -B(11649) -! JVS(33459) = Jac_FULL(5133,5253) - JVS(33459) = -B(11651) -! JVS(33460) = Jac_FULL(5133,5255) - JVS(33460) = -B(11643)-B(11645)-B(11647) -! JVS(33461) = Jac_FULL(5133,5256) - JVS(33461) = -B(11653) -! JVS(33462) = Jac_FULL(5134,678) - JVS(33462) = B(13751) -! JVS(33463) = Jac_FULL(5134,3428) - JVS(33463) = B(13721) -! JVS(33464) = Jac_FULL(5134,3550) - JVS(33464) = B(16672) -! JVS(33465) = Jac_FULL(5134,3734) - JVS(33465) = B(10626) -! JVS(33466) = Jac_FULL(5134,4113) - JVS(33466) = 0 -! JVS(33467) = Jac_FULL(5134,4955) - JVS(33467) = 0 -! JVS(33468) = Jac_FULL(5134,5118) - JVS(33468) = 0 -! JVS(33469) = Jac_FULL(5134,5132) - JVS(33469) = 0 -! JVS(33470) = Jac_FULL(5134,5134) - JVS(33470) = -B(13843)-B(13845)-B(13847)-B(13849) -! JVS(33471) = Jac_FULL(5134,5166) - JVS(33471) = 0 -! JVS(33472) = Jac_FULL(5134,5189) - JVS(33472) = 0 -! JVS(33473) = Jac_FULL(5134,5204) - JVS(33473) = 0 -! JVS(33474) = Jac_FULL(5134,5219) - JVS(33474) = 0 -! JVS(33475) = Jac_FULL(5134,5224) - JVS(33475) = 0 -! JVS(33476) = Jac_FULL(5134,5250) - JVS(33476) = B(10627)+B(13722)+B(13752)+B(16673) -! JVS(33477) = Jac_FULL(5134,5252) - JVS(33477) = -B(13846) -! JVS(33478) = Jac_FULL(5134,5253) - JVS(33478) = 0 -! JVS(33479) = Jac_FULL(5134,5255) - JVS(33479) = -B(13844) -! JVS(33480) = Jac_FULL(5134,5256) - JVS(33480) = -B(13848) -! JVS(33481) = Jac_FULL(5135,1244) - JVS(33481) = B(21236) -! JVS(33482) = Jac_FULL(5135,1774) - JVS(33482) = B(5138) -! JVS(33483) = Jac_FULL(5135,4103) - JVS(33483) = B(12096) -! JVS(33484) = Jac_FULL(5135,4430) - JVS(33484) = B(19784)+B(19786)+B(19790)+B(19792) -! JVS(33485) = Jac_FULL(5135,4527) - JVS(33485) = B(559) -! JVS(33486) = Jac_FULL(5135,5112) - JVS(33486) = 0 -! JVS(33487) = Jac_FULL(5135,5135) - JVS(33487) = -B(2266)-B(2268)-B(2270)-B(2272)-B(2274)-B(2275)-B(2276) -! JVS(33488) = Jac_FULL(5135,5238) - JVS(33488) = 0 -! JVS(33489) = Jac_FULL(5135,5250) - JVS(33489) = B(560)+B(5139) -! JVS(33490) = Jac_FULL(5135,5252) - JVS(33490) = -B(2269)-B(2271)+B(19787) -! JVS(33491) = Jac_FULL(5135,5253) - JVS(33491) = 0 -! JVS(33492) = Jac_FULL(5135,5255) - JVS(33492) = -B(2267)+B(19785) -! JVS(33493) = Jac_FULL(5135,5256) - JVS(33493) = -B(2273)+B(19791) -! JVS(33494) = Jac_FULL(5135,5258) - JVS(33494) = 0 -! JVS(33495) = Jac_FULL(5136,596) - JVS(33495) = B(17782) -! JVS(33496) = Jac_FULL(5136,1545) - JVS(33496) = B(11467) -! JVS(33497) = Jac_FULL(5136,1937) - JVS(33497) = B(17779) -! JVS(33498) = Jac_FULL(5136,2190) - JVS(33498) = B(14088) -! JVS(33499) = Jac_FULL(5136,2880) - JVS(33499) = B(11469) -! JVS(33500) = Jac_FULL(5136,3912) - JVS(33500) = 0 -! JVS(33501) = Jac_FULL(5136,3926) - JVS(33501) = 0 -! JVS(33502) = Jac_FULL(5136,4053) - JVS(33502) = B(15431) -! JVS(33503) = Jac_FULL(5136,4581) - JVS(33503) = 0 -! JVS(33504) = Jac_FULL(5136,4766) - JVS(33504) = 0 -! JVS(33505) = Jac_FULL(5136,4804) - JVS(33505) = 0 -! JVS(33506) = Jac_FULL(5136,4872) - JVS(33506) = B(3756)+B(3760) -! JVS(33507) = Jac_FULL(5136,4889) - JVS(33507) = 0 -! JVS(33508) = Jac_FULL(5136,5107) - JVS(33508) = 0 -! JVS(33509) = Jac_FULL(5136,5109) - JVS(33509) = 0 -! JVS(33510) = Jac_FULL(5136,5115) - JVS(33510) = 0 -! JVS(33511) = Jac_FULL(5136,5135) - JVS(33511) = 0 -! JVS(33512) = Jac_FULL(5136,5136) - JVS(33512) = -B(7627)-B(7629)-B(7631)-B(7633)-B(7635)-B(7637) -! JVS(33513) = Jac_FULL(5136,5138) - JVS(33513) = 0 -! JVS(33514) = Jac_FULL(5136,5165) - JVS(33514) = 0 -! JVS(33515) = Jac_FULL(5136,5185) - JVS(33515) = 0 -! JVS(33516) = Jac_FULL(5136,5186) - JVS(33516) = 0 -! JVS(33517) = Jac_FULL(5136,5238) - JVS(33517) = 0 -! JVS(33518) = Jac_FULL(5136,5250) - JVS(33518) = B(3761)+B(11468) -! JVS(33519) = Jac_FULL(5136,5252) - JVS(33519) = -B(7632) -! JVS(33520) = Jac_FULL(5136,5253) - JVS(33520) = -B(7634) -! JVS(33521) = Jac_FULL(5136,5255) - JVS(33521) = -B(7628)-B(7630) -! JVS(33522) = Jac_FULL(5136,5256) - JVS(33522) = B(3757)-B(7636) -! JVS(33523) = Jac_FULL(5136,5258) - JVS(33523) = 0 -! JVS(33524) = Jac_FULL(5137,1100) - JVS(33524) = B(11603) -! JVS(33525) = Jac_FULL(5137,2028) - JVS(33525) = B(12291)+B(12294) -! JVS(33526) = Jac_FULL(5137,2691) - JVS(33526) = B(11605) -! JVS(33527) = Jac_FULL(5137,2803) - JVS(33527) = B(15433)+B(15434) -! JVS(33528) = Jac_FULL(5137,3086) - JVS(33528) = B(19749) -! JVS(33529) = Jac_FULL(5137,3124) - JVS(33529) = B(19659) -! JVS(33530) = Jac_FULL(5137,3151) - JVS(33530) = B(19771) -! JVS(33531) = Jac_FULL(5137,3183) - JVS(33531) = B(19793) -! JVS(33532) = Jac_FULL(5137,3184) - JVS(33532) = B(19820) -! JVS(33533) = Jac_FULL(5137,3185) - JVS(33533) = B(19842) -! JVS(33534) = Jac_FULL(5137,3493) - JVS(33534) = B(17961) -! JVS(33535) = Jac_FULL(5137,3504) - JVS(33535) = B(17878) -! JVS(33536) = Jac_FULL(5137,3522) - JVS(33536) = B(17901) -! JVS(33537) = Jac_FULL(5137,3537) - JVS(33537) = B(19651) -! JVS(33538) = Jac_FULL(5137,3544) - JVS(33538) = B(17931) -! JVS(33539) = Jac_FULL(5137,3548) - JVS(33539) = B(17991) -! JVS(33540) = Jac_FULL(5137,3759) - JVS(33540) = 0 -! JVS(33541) = Jac_FULL(5137,4053) - JVS(33541) = 0 -! JVS(33542) = Jac_FULL(5137,4349) - JVS(33542) = 0 -! JVS(33543) = Jac_FULL(5137,4355) - JVS(33543) = 0 -! JVS(33544) = Jac_FULL(5137,4361) - JVS(33544) = 0 -! JVS(33545) = Jac_FULL(5137,4369) - JVS(33545) = 0 -! JVS(33546) = Jac_FULL(5137,4389) - JVS(33546) = 0 -! JVS(33547) = Jac_FULL(5137,4566) - JVS(33547) = 0 -! JVS(33548) = Jac_FULL(5137,4573) - JVS(33548) = 0 -! JVS(33549) = Jac_FULL(5137,4709) - JVS(33549) = 0 -! JVS(33550) = Jac_FULL(5137,4712) - JVS(33550) = 0 -! JVS(33551) = Jac_FULL(5137,4713) - JVS(33551) = 0 -! JVS(33552) = Jac_FULL(5137,4715) - JVS(33552) = 0 -! JVS(33553) = Jac_FULL(5137,4716) - JVS(33553) = 0 -! JVS(33554) = Jac_FULL(5137,4735) - JVS(33554) = 0 -! JVS(33555) = Jac_FULL(5137,4804) - JVS(33555) = 0 -! JVS(33556) = Jac_FULL(5137,4889) - JVS(33556) = 0 -! JVS(33557) = Jac_FULL(5137,5065) - JVS(33557) = 0 -! JVS(33558) = Jac_FULL(5137,5107) - JVS(33558) = 0 -! JVS(33559) = Jac_FULL(5137,5108) - JVS(33559) = 0 -! JVS(33560) = Jac_FULL(5137,5112) - JVS(33560) = 0 -! JVS(33561) = Jac_FULL(5137,5135) - JVS(33561) = 0 -! JVS(33562) = Jac_FULL(5137,5137) - JVS(33562) = -B(7842)-B(7844)-B(7846)-B(7848)-B(7850)-B(7852)-B(7854)-B(7855) -! JVS(33563) = Jac_FULL(5137,5138) - JVS(33563) = 0 -! JVS(33564) = Jac_FULL(5137,5140) - JVS(33564) = 0 -! JVS(33565) = Jac_FULL(5137,5143) - JVS(33565) = B(4208)+B(4210) -! JVS(33566) = Jac_FULL(5137,5144) - JVS(33566) = 0 -! JVS(33567) = Jac_FULL(5137,5238) - JVS(33567) = 0 -! JVS(33568) = Jac_FULL(5137,5250) - JVS(33568) = B(4211)+B(11604)+B(12292)+B(15435) -! JVS(33569) = Jac_FULL(5137,5252) - JVS(33569) = -B(7849) -! JVS(33570) = Jac_FULL(5137,5253) - JVS(33570) = -B(7851) -! JVS(33571) = Jac_FULL(5137,5255) - JVS(33571) = -B(7843)-B(7845)-B(7847) -! JVS(33572) = Jac_FULL(5137,5256) - JVS(33572) = B(4209)-B(7853) -! JVS(33573) = Jac_FULL(5137,5258) - JVS(33573) = 0 -! JVS(33574) = Jac_FULL(5138,426) - JVS(33574) = B(411)+B(413) -! JVS(33575) = Jac_FULL(5138,5138) - JVS(33575) = -B(1953)-B(1955)-B(1957)-B(1959)-B(1961)-B(1962)-B(1963) -! JVS(33576) = Jac_FULL(5138,5238) - JVS(33576) = B(412) -! JVS(33577) = Jac_FULL(5138,5250) - JVS(33577) = B(414) -! JVS(33578) = Jac_FULL(5138,5252) - JVS(33578) = -B(1956)-B(1958) -! JVS(33579) = Jac_FULL(5138,5255) - JVS(33579) = -B(1954) -! JVS(33580) = Jac_FULL(5138,5256) - JVS(33580) = -B(1960) -! JVS(33581) = Jac_FULL(5139,572) - JVS(33581) = B(13473)+B(13475) -! JVS(33582) = Jac_FULL(5139,634) - JVS(33582) = B(6443)+B(6445) -! JVS(33583) = Jac_FULL(5139,1768) - JVS(33583) = B(15907) -! JVS(33584) = Jac_FULL(5139,1960) - JVS(33584) = B(15892) -! JVS(33585) = Jac_FULL(5139,2021) - JVS(33585) = B(6285)+B(6287) -! JVS(33586) = Jac_FULL(5139,2238) - JVS(33586) = B(13472) -! JVS(33587) = Jac_FULL(5139,2307) - JVS(33587) = B(13455) -! JVS(33588) = Jac_FULL(5139,2336) - JVS(33588) = B(22281) -! JVS(33589) = Jac_FULL(5139,2521) - JVS(33589) = B(16420) -! JVS(33590) = Jac_FULL(5139,2563) - JVS(33590) = B(10103) -! JVS(33591) = Jac_FULL(5139,2582) - JVS(33591) = B(12843) -! JVS(33592) = Jac_FULL(5139,2681) - JVS(33592) = B(13456) -! JVS(33593) = Jac_FULL(5139,2691) - JVS(33593) = B(11606) -! JVS(33594) = Jac_FULL(5139,2696) - JVS(33594) = B(18350) -! JVS(33595) = Jac_FULL(5139,2728) - JVS(33595) = B(10193) -! JVS(33596) = Jac_FULL(5139,2732) - JVS(33596) = B(10227) -! JVS(33597) = Jac_FULL(5139,2751) - JVS(33597) = B(22190) -! JVS(33598) = Jac_FULL(5139,2774) - JVS(33598) = B(7017) -! JVS(33599) = Jac_FULL(5139,2853) - JVS(33599) = B(22194) -! JVS(33600) = Jac_FULL(5139,2897) - JVS(33600) = B(15932) -! JVS(33601) = Jac_FULL(5139,2960) - JVS(33601) = B(22182) -! JVS(33602) = Jac_FULL(5139,2971) - JVS(33602) = B(13471) -! JVS(33603) = Jac_FULL(5139,3005) - JVS(33603) = B(16413) -! JVS(33604) = Jac_FULL(5139,3058) - JVS(33604) = B(22198) -! JVS(33605) = Jac_FULL(5139,3073) - JVS(33605) = B(22186) -! JVS(33606) = Jac_FULL(5139,3200) - JVS(33606) = B(10307) -! JVS(33607) = Jac_FULL(5139,3235) - JVS(33607) = 0 -! JVS(33608) = Jac_FULL(5139,3237) - JVS(33608) = B(18349) -! JVS(33609) = Jac_FULL(5139,3249) - JVS(33609) = B(16414) -! JVS(33610) = Jac_FULL(5139,3262) - JVS(33610) = B(10186) -! JVS(33611) = Jac_FULL(5139,3279) - JVS(33611) = 0 -! JVS(33612) = Jac_FULL(5139,3283) - JVS(33612) = B(10234) -! JVS(33613) = Jac_FULL(5139,3295) - JVS(33613) = 0 -! JVS(33614) = Jac_FULL(5139,3296) - JVS(33614) = B(10200) -! JVS(33615) = Jac_FULL(5139,3302) - JVS(33615) = B(4857) -! JVS(33616) = Jac_FULL(5139,3403) - JVS(33616) = B(6535)+B(6536) -! JVS(33617) = Jac_FULL(5139,3419) - JVS(33617) = B(13277) -! JVS(33618) = Jac_FULL(5139,3441) - JVS(33618) = B(13274) -! JVS(33619) = Jac_FULL(5139,3453) - JVS(33619) = 0 -! JVS(33620) = Jac_FULL(5139,3457) - JVS(33620) = B(10173) -! JVS(33621) = Jac_FULL(5139,3460) - JVS(33621) = B(10295) -! JVS(33622) = Jac_FULL(5139,3565) - JVS(33622) = B(16357) -! JVS(33623) = Jac_FULL(5139,3570) - JVS(33623) = B(10082) -! JVS(33624) = Jac_FULL(5139,3581) - JVS(33624) = B(10170) -! JVS(33625) = Jac_FULL(5139,3588) - JVS(33625) = B(9353) -! JVS(33626) = Jac_FULL(5139,3600) - JVS(33626) = B(10292) -! JVS(33627) = Jac_FULL(5139,3610) - JVS(33627) = B(10007) -! JVS(33628) = Jac_FULL(5139,3631) - JVS(33628) = 0 -! JVS(33629) = Jac_FULL(5139,3632) - JVS(33629) = 0 -! JVS(33630) = Jac_FULL(5139,3650) - JVS(33630) = 0 -! JVS(33631) = Jac_FULL(5139,3659) - JVS(33631) = 0 -! JVS(33632) = Jac_FULL(5139,3702) - JVS(33632) = 0 -! JVS(33633) = Jac_FULL(5139,3723) - JVS(33633) = B(16408) -! JVS(33634) = Jac_FULL(5139,3798) - JVS(33634) = 0 -! JVS(33635) = Jac_FULL(5139,3802) - JVS(33635) = B(6354)+B(6357) -! JVS(33636) = Jac_FULL(5139,3812) - JVS(33636) = B(5703)+B(5706) -! JVS(33637) = Jac_FULL(5139,3817) - JVS(33637) = 0 -! JVS(33638) = Jac_FULL(5139,3818) - JVS(33638) = B(6437)+B(6440) -! JVS(33639) = Jac_FULL(5139,3825) - JVS(33639) = 0 -! JVS(33640) = Jac_FULL(5139,3826) - JVS(33640) = B(6278)+B(6279)+B(6282) -! JVS(33641) = Jac_FULL(5139,3853) - JVS(33641) = 0 -! JVS(33642) = Jac_FULL(5139,3860) - JVS(33642) = 0 -! JVS(33643) = Jac_FULL(5139,3934) - JVS(33643) = 0 -! JVS(33644) = Jac_FULL(5139,3959) - JVS(33644) = B(3679) -! JVS(33645) = Jac_FULL(5139,4062) - JVS(33645) = B(12837) -! JVS(33646) = Jac_FULL(5139,4167) - JVS(33646) = 0 -! JVS(33647) = Jac_FULL(5139,4168) - JVS(33647) = B(10239)+B(10241)+B(10245)+B(10247) -! JVS(33648) = Jac_FULL(5139,4177) - JVS(33648) = B(6201)+B(6205) -! JVS(33649) = Jac_FULL(5139,4178) - JVS(33649) = B(13449)+B(13452) -! JVS(33650) = Jac_FULL(5139,4184) - JVS(33650) = 0 -! JVS(33651) = Jac_FULL(5139,4277) - JVS(33651) = 0 -! JVS(33652) = Jac_FULL(5139,4335) - JVS(33652) = 0 -! JVS(33653) = Jac_FULL(5139,4400) - JVS(33653) = 0 -! JVS(33654) = Jac_FULL(5139,4401) - JVS(33654) = B(13421) -! JVS(33655) = Jac_FULL(5139,4421) - JVS(33655) = 0 -! JVS(33656) = Jac_FULL(5139,4429) - JVS(33656) = 0 -! JVS(33657) = Jac_FULL(5139,4435) - JVS(33657) = 0 -! JVS(33658) = Jac_FULL(5139,4461) - JVS(33658) = 0 -! JVS(33659) = Jac_FULL(5139,4532) - JVS(33659) = 0 -! JVS(33660) = Jac_FULL(5139,4533) - JVS(33660) = B(10121) -! JVS(33661) = Jac_FULL(5139,4534) - JVS(33661) = B(16358)+B(16360) -! JVS(33662) = Jac_FULL(5139,4574) - JVS(33662) = 0 -! JVS(33663) = Jac_FULL(5139,4645) - JVS(33663) = 0 -! JVS(33664) = Jac_FULL(5139,4661) - JVS(33664) = B(12826) -! JVS(33665) = Jac_FULL(5139,4667) - JVS(33665) = 0 -! JVS(33666) = Jac_FULL(5139,4701) - JVS(33666) = 0 -! JVS(33667) = Jac_FULL(5139,4703) - JVS(33667) = 0 -! JVS(33668) = Jac_FULL(5139,4709) - JVS(33668) = 0 -! JVS(33669) = Jac_FULL(5139,4712) - JVS(33669) = 0 -! JVS(33670) = Jac_FULL(5139,4713) - JVS(33670) = 0 -! JVS(33671) = Jac_FULL(5139,4715) - JVS(33671) = 0 -! JVS(33672) = Jac_FULL(5139,4716) - JVS(33672) = 0 -! JVS(33673) = Jac_FULL(5139,4725) - JVS(33673) = 0 -! JVS(33674) = Jac_FULL(5139,4727) - JVS(33674) = 0 -! JVS(33675) = Jac_FULL(5139,4728) - JVS(33675) = B(12852) -! JVS(33676) = Jac_FULL(5139,4769) - JVS(33676) = 0 -! JVS(33677) = Jac_FULL(5139,4787) - JVS(33677) = 0 -! JVS(33678) = Jac_FULL(5139,4799) - JVS(33678) = 0 -! JVS(33679) = Jac_FULL(5139,4813) - JVS(33679) = 0 -! JVS(33680) = Jac_FULL(5139,4877) - JVS(33680) = 0 -! JVS(33681) = Jac_FULL(5139,4896) - JVS(33681) = 0 -! JVS(33682) = Jac_FULL(5139,4933) - JVS(33682) = 0 -! JVS(33683) = Jac_FULL(5139,4946) - JVS(33683) = 0 -! JVS(33684) = Jac_FULL(5139,4966) - JVS(33684) = B(15920)+B(15922)+B(15926)+B(15928) -! JVS(33685) = Jac_FULL(5139,4992) - JVS(33685) = 0 -! JVS(33686) = Jac_FULL(5139,5034) - JVS(33686) = 0 -! JVS(33687) = Jac_FULL(5139,5051) - JVS(33687) = 0 -! JVS(33688) = Jac_FULL(5139,5053) - JVS(33688) = B(3233) -! JVS(33689) = Jac_FULL(5139,5065) - JVS(33689) = 0 -! JVS(33690) = Jac_FULL(5139,5070) - JVS(33690) = B(9336)+B(9338)+B(9340)+B(9342)+B(9345) -! JVS(33691) = Jac_FULL(5139,5103) - JVS(33691) = B(10060)+B(10065) -! JVS(33692) = Jac_FULL(5139,5107) - JVS(33692) = 0 -! JVS(33693) = Jac_FULL(5139,5112) - JVS(33693) = 0 -! JVS(33694) = Jac_FULL(5139,5126) - JVS(33694) = B(9297) -! JVS(33695) = Jac_FULL(5139,5135) - JVS(33695) = 0 -! JVS(33696) = Jac_FULL(5139,5137) - JVS(33696) = 0 -! JVS(33697) = Jac_FULL(5139,5138) - JVS(33697) = 0 -! JVS(33698) = Jac_FULL(5139,5139) - JVS(33698) = -B(7024)-B(7025)-B(7027) -! JVS(33699) = Jac_FULL(5139,5140) - JVS(33699) = 0 -! JVS(33700) = Jac_FULL(5139,5141) - JVS(33700) = B(10143) -! JVS(33701) = Jac_FULL(5139,5143) - JVS(33701) = 0 -! JVS(33702) = Jac_FULL(5139,5144) - JVS(33702) = 0 -! JVS(33703) = Jac_FULL(5139,5149) - JVS(33703) = 0 -! JVS(33704) = Jac_FULL(5139,5157) - JVS(33704) = 0 -! JVS(33705) = Jac_FULL(5139,5162) - JVS(33705) = 0 -! JVS(33706) = Jac_FULL(5139,5178) - JVS(33706) = 0 -! JVS(33707) = Jac_FULL(5139,5208) - JVS(33707) = 0 -! JVS(33708) = Jac_FULL(5139,5238) - JVS(33708) = 0 -! JVS(33709) = Jac_FULL(5139,5250) - JVS(33709) = B(3680)+B(4858)+B(6286)+B(6444)+B(7018)-B(7028)+B(10187)+B(10308)+B(11607)+B(12844)+B(13450)+B(13457)& - &+B(13474)+B(15908)+B(16359)+B(16415)+B(18351)+B(22282) -! JVS(33710) = Jac_FULL(5139,5251) - JVS(33710) = B(9337) -! JVS(33711) = Jac_FULL(5139,5252) - JVS(33711) = B(9339)+B(10242)+B(15923) -! JVS(33712) = Jac_FULL(5139,5253) - JVS(33712) = B(9341) -! JVS(33713) = Jac_FULL(5139,5254) - JVS(33713) = B(9343) -! JVS(33714) = Jac_FULL(5139,5255) - JVS(33714) = B(10240)+B(15921) -! JVS(33715) = Jac_FULL(5139,5256) - JVS(33715) = -B(7026)+B(10246)+B(15927) -! JVS(33716) = Jac_FULL(5139,5258) - JVS(33716) = B(9298)+B(10061)+B(10144) -! JVS(33717) = Jac_FULL(5140,1165) - JVS(33717) = B(11746) -! JVS(33718) = Jac_FULL(5140,1521) - JVS(33718) = B(11752) -! JVS(33719) = Jac_FULL(5140,1563) - JVS(33719) = B(11783) -! JVS(33720) = Jac_FULL(5140,2509) - JVS(33720) = B(11749) -! JVS(33721) = Jac_FULL(5140,2835) - JVS(33721) = 0 -! JVS(33722) = Jac_FULL(5140,3046) - JVS(33722) = 0 -! JVS(33723) = Jac_FULL(5140,3870) - JVS(33723) = B(8028) -! JVS(33724) = Jac_FULL(5140,3961) - JVS(33724) = 0 -! JVS(33725) = Jac_FULL(5140,4942) - JVS(33725) = 0 -! JVS(33726) = Jac_FULL(5140,5065) - JVS(33726) = 0 -! JVS(33727) = Jac_FULL(5140,5112) - JVS(33727) = 0 -! JVS(33728) = Jac_FULL(5140,5138) - JVS(33728) = 0 -! JVS(33729) = Jac_FULL(5140,5140) - JVS(33729) = -B(11754)-B(11755)-B(11756)-B(11758) -! JVS(33730) = Jac_FULL(5140,5186) - JVS(33730) = 0 -! JVS(33731) = Jac_FULL(5140,5238) - JVS(33731) = 0 -! JVS(33732) = Jac_FULL(5140,5250) - JVS(33732) = B(11747)+B(11750)+B(11753)-B(11757)-B(11759) -! JVS(33733) = Jac_FULL(5140,5252) - JVS(33733) = 0 -! JVS(33734) = Jac_FULL(5140,5253) - JVS(33734) = 0 -! JVS(33735) = Jac_FULL(5140,5255) - JVS(33735) = 0 -! JVS(33736) = Jac_FULL(5140,5256) - JVS(33736) = 0 -! JVS(33737) = Jac_FULL(5141,589) - JVS(33737) = B(10303) -! JVS(33738) = Jac_FULL(5141,623) - JVS(33738) = B(10182) -! JVS(33739) = Jac_FULL(5141,1576) - JVS(33739) = B(10306) -! JVS(33740) = Jac_FULL(5141,1665) - JVS(33740) = B(10185) -! JVS(33741) = Jac_FULL(5141,2137) - JVS(33741) = B(10301) -! JVS(33742) = Jac_FULL(5141,2650) - JVS(33742) = B(10254) -! JVS(33743) = Jac_FULL(5141,2948) - JVS(33743) = B(10163) -! JVS(33744) = Jac_FULL(5141,3403) - JVS(33744) = B(6535) -! JVS(33745) = Jac_FULL(5141,3702) - JVS(33745) = B(10179) -! JVS(33746) = Jac_FULL(5141,3818) - JVS(33746) = B(6438) -! JVS(33747) = Jac_FULL(5141,4167) - JVS(33747) = 0 -! JVS(33748) = Jac_FULL(5141,4656) - JVS(33748) = 0 -! JVS(33749) = Jac_FULL(5141,4685) - JVS(33749) = 0 -! JVS(33750) = Jac_FULL(5141,4813) - JVS(33750) = 0 -! JVS(33751) = Jac_FULL(5141,4992) - JVS(33751) = 0 -! JVS(33752) = Jac_FULL(5141,5141) - JVS(33752) = -B(10139)-B(10141)-B(10143)-B(10145)-B(10147)-B(10149)-B(10150) -! JVS(33753) = Jac_FULL(5141,5250) - JVS(33753) = -B(10146)-B(10148)+B(10164)+B(10255) -! JVS(33754) = Jac_FULL(5141,5252) - JVS(33754) = 0 -! JVS(33755) = Jac_FULL(5141,5253) - JVS(33755) = 0 -! JVS(33756) = Jac_FULL(5141,5255) - JVS(33756) = 0 -! JVS(33757) = Jac_FULL(5141,5256) - JVS(33757) = -B(10140) -! JVS(33758) = Jac_FULL(5141,5258) - JVS(33758) = -B(10142)-B(10144) -! JVS(33759) = Jac_FULL(5142,51) - JVS(33759) = B(13946) -! JVS(33760) = Jac_FULL(5142,751) - JVS(33760) = B(4101) -! JVS(33761) = Jac_FULL(5142,987) - JVS(33761) = B(4100) -! JVS(33762) = Jac_FULL(5142,1962) - JVS(33762) = B(4612) -! JVS(33763) = Jac_FULL(5142,2013) - JVS(33763) = B(2039)+B(2040) -! JVS(33764) = Jac_FULL(5142,2188) - JVS(33764) = B(4107) -! JVS(33765) = Jac_FULL(5142,2260) - JVS(33765) = 0 -! JVS(33766) = Jac_FULL(5142,2397) - JVS(33766) = B(14075) -! JVS(33767) = Jac_FULL(5142,2490) - JVS(33767) = B(4461) -! JVS(33768) = Jac_FULL(5142,2839) - JVS(33768) = 0 -! JVS(33769) = Jac_FULL(5142,2973) - JVS(33769) = B(263)+B(265) -! JVS(33770) = Jac_FULL(5142,3076) - JVS(33770) = 0 -! JVS(33771) = Jac_FULL(5142,3297) - JVS(33771) = B(2146)+B(2147) -! JVS(33772) = Jac_FULL(5142,3368) - JVS(33772) = B(5764) -! JVS(33773) = Jac_FULL(5142,3377) - JVS(33773) = B(4433) -! JVS(33774) = Jac_FULL(5142,3429) - JVS(33774) = B(4387) -! JVS(33775) = Jac_FULL(5142,3445) - JVS(33775) = B(6197) -! JVS(33776) = Jac_FULL(5142,3510) - JVS(33776) = B(13947)+B(13949)+B(13951) -! JVS(33777) = Jac_FULL(5142,3609) - JVS(33777) = B(830) -! JVS(33778) = Jac_FULL(5142,3619) - JVS(33778) = B(10764) -! JVS(33779) = Jac_FULL(5142,3723) - JVS(33779) = B(16409) -! JVS(33780) = Jac_FULL(5142,3779) - JVS(33780) = B(4552) -! JVS(33781) = Jac_FULL(5142,3807) - JVS(33781) = 0 -! JVS(33782) = Jac_FULL(5142,4062) - JVS(33782) = B(12838) -! JVS(33783) = Jac_FULL(5142,4074) - JVS(33783) = 0 -! JVS(33784) = Jac_FULL(5142,4121) - JVS(33784) = 0 -! JVS(33785) = Jac_FULL(5142,4175) - JVS(33785) = B(21467) -! JVS(33786) = Jac_FULL(5142,4178) - JVS(33786) = 0 -! JVS(33787) = Jac_FULL(5142,4219) - JVS(33787) = 0 -! JVS(33788) = Jac_FULL(5142,4332) - JVS(33788) = 0 -! JVS(33789) = Jac_FULL(5142,4368) - JVS(33789) = 0 -! JVS(33790) = Jac_FULL(5142,4475) - JVS(33790) = 0 -! JVS(33791) = Jac_FULL(5142,4535) - JVS(33791) = 0 -! JVS(33792) = Jac_FULL(5142,4571) - JVS(33792) = 0 -! JVS(33793) = Jac_FULL(5142,4595) - JVS(33793) = 0 -! JVS(33794) = Jac_FULL(5142,4609) - JVS(33794) = 0 -! JVS(33795) = Jac_FULL(5142,4611) - JVS(33795) = 0 -! JVS(33796) = Jac_FULL(5142,4616) - JVS(33796) = 0 -! JVS(33797) = Jac_FULL(5142,4631) - JVS(33797) = 0 -! JVS(33798) = Jac_FULL(5142,4731) - JVS(33798) = 0 -! JVS(33799) = Jac_FULL(5142,4736) - JVS(33799) = B(4556) -! JVS(33800) = Jac_FULL(5142,4799) - JVS(33800) = 0 -! JVS(33801) = Jac_FULL(5142,4876) - JVS(33801) = 0 -! JVS(33802) = Jac_FULL(5142,4941) - JVS(33802) = 0 -! JVS(33803) = Jac_FULL(5142,4946) - JVS(33803) = 0 -! JVS(33804) = Jac_FULL(5142,4980) - JVS(33804) = 0 -! JVS(33805) = Jac_FULL(5142,5034) - JVS(33805) = 0 -! JVS(33806) = Jac_FULL(5142,5051) - JVS(33806) = 0 -! JVS(33807) = Jac_FULL(5142,5062) - JVS(33807) = 0 -! JVS(33808) = Jac_FULL(5142,5078) - JVS(33808) = 0 -! JVS(33809) = Jac_FULL(5142,5082) - JVS(33809) = 0 -! JVS(33810) = Jac_FULL(5142,5117) - JVS(33810) = 0 -! JVS(33811) = Jac_FULL(5142,5119) - JVS(33811) = 0 -! JVS(33812) = Jac_FULL(5142,5126) - JVS(33812) = 0 -! JVS(33813) = Jac_FULL(5142,5140) - JVS(33813) = B(11755) -! JVS(33814) = Jac_FULL(5142,5141) - JVS(33814) = 0 -! JVS(33815) = Jac_FULL(5142,5142) - JVS(33815) = -B(1318)-B(1320)-B(1322)-B(1324)-B(1326)-B(1327)-B(1328) -! JVS(33816) = Jac_FULL(5142,5147) - JVS(33816) = 0 -! JVS(33817) = Jac_FULL(5142,5162) - JVS(33817) = 0 -! JVS(33818) = Jac_FULL(5142,5178) - JVS(33818) = B(820) -! JVS(33819) = Jac_FULL(5142,5183) - JVS(33819) = B(1304)+B(1310)+B(1314)+B(1316) -! JVS(33820) = Jac_FULL(5142,5186) - JVS(33820) = 0 -! JVS(33821) = Jac_FULL(5142,5191) - JVS(33821) = B(188) -! JVS(33822) = Jac_FULL(5142,5238) - JVS(33822) = B(264) -! JVS(33823) = Jac_FULL(5142,5250) - JVS(33823) = B(266)+B(4102)+B(4108)+B(6198)+B(10765)+B(13950) -! JVS(33824) = Jac_FULL(5142,5251) - JVS(33824) = 0 -! JVS(33825) = Jac_FULL(5142,5252) - JVS(33825) = B(1311)-B(1321)-B(1323) -! JVS(33826) = Jac_FULL(5142,5253) - JVS(33826) = 0 -! JVS(33827) = Jac_FULL(5142,5254) - JVS(33827) = 0 -! JVS(33828) = Jac_FULL(5142,5255) - JVS(33828) = B(1305)-B(1319) -! JVS(33829) = Jac_FULL(5142,5256) - JVS(33829) = B(1315)-B(1325)+B(13948) -! JVS(33830) = Jac_FULL(5142,5258) - JVS(33830) = 0 -! JVS(33831) = Jac_FULL(5143,570) - JVS(33831) = B(19827) -! JVS(33832) = Jac_FULL(5143,575) - JVS(33832) = B(19857) -! JVS(33833) = Jac_FULL(5143,698) - JVS(33833) = B(19800) -! JVS(33834) = Jac_FULL(5143,722) - JVS(33834) = B(19778) -! JVS(33835) = Jac_FULL(5143,745) - JVS(33835) = B(19756) -! JVS(33836) = Jac_FULL(5143,778) - JVS(33836) = B(19658) -! JVS(33837) = Jac_FULL(5143,1548) - JVS(33837) = B(19662) -! JVS(33838) = Jac_FULL(5143,1571) - JVS(33838) = B(19757) -! JVS(33839) = Jac_FULL(5143,1674) - JVS(33839) = B(19858) -! JVS(33840) = Jac_FULL(5143,1707) - JVS(33840) = B(19779) -! JVS(33841) = Jac_FULL(5143,1725) - JVS(33841) = B(4206) -! JVS(33842) = Jac_FULL(5143,1740) - JVS(33842) = B(19828) -! JVS(33843) = Jac_FULL(5143,1744) - JVS(33843) = B(19801) -! JVS(33844) = Jac_FULL(5143,1839) - JVS(33844) = B(19752) -! JVS(33845) = Jac_FULL(5143,1880) - JVS(33845) = B(4200) -! JVS(33846) = Jac_FULL(5143,1908) - JVS(33846) = B(19654) -! JVS(33847) = Jac_FULL(5143,2052) - JVS(33847) = B(19774) -! JVS(33848) = Jac_FULL(5143,2059) - JVS(33848) = B(19797) -! JVS(33849) = Jac_FULL(5143,2083) - JVS(33849) = B(7067) -! JVS(33850) = Jac_FULL(5143,2106) - JVS(33850) = B(4203) -! JVS(33851) = Jac_FULL(5143,2121) - JVS(33851) = B(19824) -! JVS(33852) = Jac_FULL(5143,2221) - JVS(33852) = B(19854) -! JVS(33853) = Jac_FULL(5143,2400) - JVS(33853) = B(7062) -! JVS(33854) = Jac_FULL(5143,2562) - JVS(33854) = B(17990) -! JVS(33855) = Jac_FULL(5143,2589) - JVS(33855) = B(17530) -! JVS(33856) = Jac_FULL(5143,2594) - JVS(33856) = B(17930) -! JVS(33857) = Jac_FULL(5143,2638) - JVS(33857) = B(17960) -! JVS(33858) = Jac_FULL(5143,2642) - JVS(33858) = B(17900) -! JVS(33859) = Jac_FULL(5143,2665) - JVS(33859) = B(7071) -! JVS(33860) = Jac_FULL(5143,2826) - JVS(33860) = B(19647) -! JVS(33861) = Jac_FULL(5143,2842) - JVS(33861) = B(19582) -! JVS(33862) = Jac_FULL(5143,3009) - JVS(33862) = B(17874) -! JVS(33863) = Jac_FULL(5143,3884) - JVS(33863) = B(1432) -! JVS(33864) = Jac_FULL(5143,4349) - JVS(33864) = 0 -! JVS(33865) = Jac_FULL(5143,4355) - JVS(33865) = 0 -! JVS(33866) = Jac_FULL(5143,4361) - JVS(33866) = 0 -! JVS(33867) = Jac_FULL(5143,4369) - JVS(33867) = 0 -! JVS(33868) = Jac_FULL(5143,4389) - JVS(33868) = 0 -! JVS(33869) = Jac_FULL(5143,4566) - JVS(33869) = 0 -! JVS(33870) = Jac_FULL(5143,4573) - JVS(33870) = 0 -! JVS(33871) = Jac_FULL(5143,4709) - JVS(33871) = 0 -! JVS(33872) = Jac_FULL(5143,4712) - JVS(33872) = 0 -! JVS(33873) = Jac_FULL(5143,4713) - JVS(33873) = 0 -! JVS(33874) = Jac_FULL(5143,4715) - JVS(33874) = 0 -! JVS(33875) = Jac_FULL(5143,4716) - JVS(33875) = 0 -! JVS(33876) = Jac_FULL(5143,4735) - JVS(33876) = 0 -! JVS(33877) = Jac_FULL(5143,4866) - JVS(33877) = 0 -! JVS(33878) = Jac_FULL(5143,4872) - JVS(33878) = B(3758) -! JVS(33879) = Jac_FULL(5143,5065) - JVS(33879) = 0 -! JVS(33880) = Jac_FULL(5143,5107) - JVS(33880) = 0 -! JVS(33881) = Jac_FULL(5143,5108) - JVS(33881) = 0 -! JVS(33882) = Jac_FULL(5143,5112) - JVS(33882) = 0 -! JVS(33883) = Jac_FULL(5143,5115) - JVS(33883) = 0 -! JVS(33884) = Jac_FULL(5143,5138) - JVS(33884) = 0 -! JVS(33885) = Jac_FULL(5143,5140) - JVS(33885) = 0 -! JVS(33886) = Jac_FULL(5143,5143) - JVS(33886) = -B(4207)-B(4208)-B(4210) -! JVS(33887) = Jac_FULL(5143,5144) - JVS(33887) = 0 -! JVS(33888) = Jac_FULL(5143,5161) - JVS(33888) = B(3273) -! JVS(33889) = Jac_FULL(5143,5165) - JVS(33889) = 0 -! JVS(33890) = Jac_FULL(5143,5185) - JVS(33890) = 0 -! JVS(33891) = Jac_FULL(5143,5186) - JVS(33891) = 0 -! JVS(33892) = Jac_FULL(5143,5238) - JVS(33892) = 0 -! JVS(33893) = Jac_FULL(5143,5250) - JVS(33893) = B(3759)+B(4201)+B(4204)-B(4211)+B(7063)+B(7068)+B(7072)+B(19583) -! JVS(33894) = Jac_FULL(5143,5252) - JVS(33894) = 0 -! JVS(33895) = Jac_FULL(5143,5253) - JVS(33895) = 0 -! JVS(33896) = Jac_FULL(5143,5255) - JVS(33896) = 0 -! JVS(33897) = Jac_FULL(5143,5256) - JVS(33897) = -B(4209) -! JVS(33898) = Jac_FULL(5144,221) - JVS(33898) = B(399)+B(401) -! JVS(33899) = Jac_FULL(5144,3091) - JVS(33899) = B(4785) -! JVS(33900) = Jac_FULL(5144,5138) - JVS(33900) = 0 -! JVS(33901) = Jac_FULL(5144,5144) - JVS(33901) = -B(1920)-B(1922)-B(1924)-B(1926)-B(1928)-B(1929)-B(1930) -! JVS(33902) = Jac_FULL(5144,5238) - JVS(33902) = B(400) -! JVS(33903) = Jac_FULL(5144,5250) - JVS(33903) = B(402) -! JVS(33904) = Jac_FULL(5144,5252) - JVS(33904) = -B(1923)-B(1925) -! JVS(33905) = Jac_FULL(5144,5255) - JVS(33905) = -B(1921) -! JVS(33906) = Jac_FULL(5144,5256) - JVS(33906) = -B(1927) -! JVS(33907) = Jac_FULL(5145,631) - JVS(33907) = B(4154) -! JVS(33908) = Jac_FULL(5145,1466) - JVS(33908) = B(4158) -! JVS(33909) = Jac_FULL(5145,1789) - JVS(33909) = B(4666) -! JVS(33910) = Jac_FULL(5145,2126) - JVS(33910) = B(4184) -! JVS(33911) = Jac_FULL(5145,2212) - JVS(33911) = B(2198)+B(2199) -! JVS(33912) = Jac_FULL(5145,3222) - JVS(33912) = B(7034) -! JVS(33913) = Jac_FULL(5145,3231) - JVS(33913) = B(12230) -! JVS(33914) = Jac_FULL(5145,3288) - JVS(33914) = B(7140) -! JVS(33915) = Jac_FULL(5145,3404) - JVS(33915) = B(4453) -! JVS(33916) = Jac_FULL(5145,3540) - JVS(33916) = B(4127) -! JVS(33917) = Jac_FULL(5145,3651) - JVS(33917) = B(267)+B(271) -! JVS(33918) = Jac_FULL(5145,3716) - JVS(33918) = B(3854) -! JVS(33919) = Jac_FULL(5145,3779) - JVS(33919) = B(4554) -! JVS(33920) = Jac_FULL(5145,3868) - JVS(33920) = B(831) -! JVS(33921) = Jac_FULL(5145,3894) - JVS(33921) = 0 -! JVS(33922) = Jac_FULL(5145,4086) - JVS(33922) = B(13030) -! JVS(33923) = Jac_FULL(5145,4508) - JVS(33923) = 0 -! JVS(33924) = Jac_FULL(5145,4562) - JVS(33924) = 0 -! JVS(33925) = Jac_FULL(5145,4571) - JVS(33925) = 0 -! JVS(33926) = Jac_FULL(5145,4583) - JVS(33926) = 0 -! JVS(33927) = Jac_FULL(5145,4604) - JVS(33927) = 0 -! JVS(33928) = Jac_FULL(5145,4606) - JVS(33928) = 0 -! JVS(33929) = Jac_FULL(5145,4705) - JVS(33929) = 0 -! JVS(33930) = Jac_FULL(5145,4736) - JVS(33930) = B(4555) -! JVS(33931) = Jac_FULL(5145,4743) - JVS(33931) = 0 -! JVS(33932) = Jac_FULL(5145,4856) - JVS(33932) = 0 -! JVS(33933) = Jac_FULL(5145,4868) - JVS(33933) = 0 -! JVS(33934) = Jac_FULL(5145,4881) - JVS(33934) = 0 -! JVS(33935) = Jac_FULL(5145,4901) - JVS(33935) = 0 -! JVS(33936) = Jac_FULL(5145,4930) - JVS(33936) = 0 -! JVS(33937) = Jac_FULL(5145,4972) - JVS(33937) = 0 -! JVS(33938) = Jac_FULL(5145,4994) - JVS(33938) = 0 -! JVS(33939) = Jac_FULL(5145,5043) - JVS(33939) = 0 -! JVS(33940) = Jac_FULL(5145,5068) - JVS(33940) = 0 -! JVS(33941) = Jac_FULL(5145,5096) - JVS(33941) = 0 -! JVS(33942) = Jac_FULL(5145,5106) - JVS(33942) = B(1367)+B(1371)+B(1375)+B(1378) -! JVS(33943) = Jac_FULL(5145,5144) - JVS(33943) = 0 -! JVS(33944) = Jac_FULL(5145,5145) - JVS(33944) = -B(1398)-B(1400)-B(1402)-B(1404)-B(1406)-B(1407)-B(1408) -! JVS(33945) = Jac_FULL(5145,5146) - JVS(33945) = 0 -! JVS(33946) = Jac_FULL(5145,5151) - JVS(33946) = 0 -! JVS(33947) = Jac_FULL(5145,5186) - JVS(33947) = 0 -! JVS(33948) = Jac_FULL(5145,5190) - JVS(33948) = 0 -! JVS(33949) = Jac_FULL(5145,5203) - JVS(33949) = B(205) -! JVS(33950) = Jac_FULL(5145,5230) - JVS(33950) = 0 -! JVS(33951) = Jac_FULL(5145,5238) - JVS(33951) = B(268) -! JVS(33952) = Jac_FULL(5145,5250) - JVS(33952) = B(272)+B(4155)+B(4185) -! JVS(33953) = Jac_FULL(5145,5251) - JVS(33953) = 0 -! JVS(33954) = Jac_FULL(5145,5252) - JVS(33954) = B(1372)-B(1401)-B(1403) -! JVS(33955) = Jac_FULL(5145,5253) - JVS(33955) = 0 -! JVS(33956) = Jac_FULL(5145,5254) - JVS(33956) = 0 -! JVS(33957) = Jac_FULL(5145,5255) - JVS(33957) = B(1368)-B(1399) -! JVS(33958) = Jac_FULL(5145,5256) - JVS(33958) = B(1376)-B(1405) -! JVS(33959) = Jac_FULL(5145,5258) - JVS(33959) = 0 -! JVS(33960) = Jac_FULL(5146,588) - JVS(33960) = B(383)+B(387) -! JVS(33961) = Jac_FULL(5146,5146) - JVS(33961) = -B(1878)-B(1880)-B(1882)-B(1884)-B(1886)-B(1887)-B(1888) -! JVS(33962) = Jac_FULL(5146,5238) - JVS(33962) = B(384) -! JVS(33963) = Jac_FULL(5146,5250) - JVS(33963) = B(388) -! JVS(33964) = Jac_FULL(5146,5252) - JVS(33964) = -B(1881)-B(1883) -! JVS(33965) = Jac_FULL(5146,5255) - JVS(33965) = -B(1879) -! JVS(33966) = Jac_FULL(5146,5256) - JVS(33966) = -B(1885) -! JVS(33967) = Jac_FULL(5147,1180) - JVS(33967) = B(11882) -! JVS(33968) = Jac_FULL(5147,1635) - JVS(33968) = B(303)+B(309) -! JVS(33969) = Jac_FULL(5147,1885) - JVS(33969) = B(4438) -! JVS(33970) = Jac_FULL(5147,3109) - JVS(33970) = B(4726) -! JVS(33971) = Jac_FULL(5147,3168) - JVS(33971) = B(4705) -! JVS(33972) = Jac_FULL(5147,3851) - JVS(33972) = B(4582) -! JVS(33973) = Jac_FULL(5147,4515) - JVS(33973) = B(8136)+B(8140)+B(8144)+B(8146) -! JVS(33974) = Jac_FULL(5147,4586) - JVS(33974) = 0 -! JVS(33975) = Jac_FULL(5147,4696) - JVS(33975) = 0 -! JVS(33976) = Jac_FULL(5147,5146) - JVS(33976) = 0 -! JVS(33977) = Jac_FULL(5147,5147) - JVS(33977) = -B(1662)-B(1664)-B(1666)-B(1668)-B(1670)-B(1671)-B(1672) -! JVS(33978) = Jac_FULL(5147,5238) - JVS(33978) = B(304) -! JVS(33979) = Jac_FULL(5147,5250) - JVS(33979) = B(310)+B(4439) -! JVS(33980) = Jac_FULL(5147,5252) - JVS(33980) = -B(1665)-B(1667)+B(8141) -! JVS(33981) = Jac_FULL(5147,5253) - JVS(33981) = 0 -! JVS(33982) = Jac_FULL(5147,5255) - JVS(33982) = -B(1663)+B(8137) -! JVS(33983) = Jac_FULL(5147,5256) - JVS(33983) = -B(1669)+B(8145) -! JVS(33984) = Jac_FULL(5148,240) - JVS(33984) = B(17623) -! JVS(33985) = Jac_FULL(5148,806) - JVS(33985) = B(130) -! JVS(33986) = Jac_FULL(5148,845) - JVS(33986) = B(17625) -! JVS(33987) = Jac_FULL(5148,1994) - JVS(33987) = B(3858) -! JVS(33988) = Jac_FULL(5148,3393) - JVS(33988) = B(12030) -! JVS(33989) = Jac_FULL(5148,3747) - JVS(33989) = B(12031) -! JVS(33990) = Jac_FULL(5148,4110) - JVS(33990) = B(11859) -! JVS(33991) = Jac_FULL(5148,4577) - JVS(33991) = 0 -! JVS(33992) = Jac_FULL(5148,4629) - JVS(33992) = B(15058)+B(15060)+B(15064)+B(15067) -! JVS(33993) = Jac_FULL(5148,4722) - JVS(33993) = 0 -! JVS(33994) = Jac_FULL(5148,5056) - JVS(33994) = 0 -! JVS(33995) = Jac_FULL(5148,5078) - JVS(33995) = 0 -! JVS(33996) = Jac_FULL(5148,5146) - JVS(33996) = 0 -! JVS(33997) = Jac_FULL(5148,5148) - JVS(33997) = -B(1107)-B(1109)-B(1111)-B(1113)-B(1115)-B(1116)-B(1117) -! JVS(33998) = Jac_FULL(5148,5238) - JVS(33998) = 0 -! JVS(33999) = Jac_FULL(5148,5250) - JVS(33999) = B(131)+B(3859)+B(17624) -! JVS(34000) = Jac_FULL(5148,5252) - JVS(34000) = -B(1110)-B(1112)+B(15061) -! JVS(34001) = Jac_FULL(5148,5253) - JVS(34001) = 0 -! JVS(34002) = Jac_FULL(5148,5255) - JVS(34002) = -B(1108)+B(15059) -! JVS(34003) = Jac_FULL(5148,5256) - JVS(34003) = -B(1114)+B(15065) -! JVS(34004) = Jac_FULL(5149,1545) - JVS(34004) = B(11466) -! JVS(34005) = Jac_FULL(5149,1670) - JVS(34005) = B(12304) -! JVS(34006) = Jac_FULL(5149,1719) - JVS(34006) = B(7106) -! JVS(34007) = Jac_FULL(5149,3208) - JVS(34007) = B(4873) -! JVS(34008) = Jac_FULL(5149,4581) - JVS(34008) = 0 -! JVS(34009) = Jac_FULL(5149,4872) - JVS(34009) = B(3755) -! JVS(34010) = Jac_FULL(5149,4889) - JVS(34010) = 0 -! JVS(34011) = Jac_FULL(5149,5051) - JVS(34011) = B(449) -! JVS(34012) = Jac_FULL(5149,5109) - JVS(34012) = 0 -! JVS(34013) = Jac_FULL(5149,5115) - JVS(34013) = 0 -! JVS(34014) = Jac_FULL(5149,5135) - JVS(34014) = 0 -! JVS(34015) = Jac_FULL(5149,5136) - JVS(34015) = B(7629)+B(7631)+B(7635)+B(7637) -! JVS(34016) = Jac_FULL(5149,5138) - JVS(34016) = 0 -! JVS(34017) = Jac_FULL(5149,5149) - JVS(34017) = -B(2042)-B(2044)-B(2046)-B(2048)-B(2050)-B(2051)-B(2052) -! JVS(34018) = Jac_FULL(5149,5162) - JVS(34018) = 0 -! JVS(34019) = Jac_FULL(5149,5165) - JVS(34019) = 0 -! JVS(34020) = Jac_FULL(5149,5185) - JVS(34020) = 0 -! JVS(34021) = Jac_FULL(5149,5186) - JVS(34021) = 0 -! JVS(34022) = Jac_FULL(5149,5238) - JVS(34022) = 0 -! JVS(34023) = Jac_FULL(5149,5250) - JVS(34023) = B(450)+B(4874) -! JVS(34024) = Jac_FULL(5149,5252) - JVS(34024) = -B(2045)-B(2047)+B(7632) -! JVS(34025) = Jac_FULL(5149,5253) - JVS(34025) = 0 -! JVS(34026) = Jac_FULL(5149,5255) - JVS(34026) = -B(2043)+B(7630) -! JVS(34027) = Jac_FULL(5149,5256) - JVS(34027) = -B(2049)+B(7636) -! JVS(34028) = Jac_FULL(5149,5258) - JVS(34028) = 0 -! JVS(34029) = Jac_FULL(5150,207) - JVS(34029) = B(17496) -! JVS(34030) = Jac_FULL(5150,1042) - JVS(34030) = B(17498) -! JVS(34031) = Jac_FULL(5150,2247) - JVS(34031) = B(14111) -! JVS(34032) = Jac_FULL(5150,3777) - JVS(34032) = B(15189) -! JVS(34033) = Jac_FULL(5150,4261) - JVS(34033) = B(11716) -! JVS(34034) = Jac_FULL(5150,4300) - JVS(34034) = B(7120) -! JVS(34035) = Jac_FULL(5150,4784) - JVS(34035) = 0 -! JVS(34036) = Jac_FULL(5150,4848) - JVS(34036) = B(14936)+B(14938)+B(14942)+B(14945) -! JVS(34037) = Jac_FULL(5150,5108) - JVS(34037) = 0 -! JVS(34038) = Jac_FULL(5150,5109) - JVS(34038) = 0 -! JVS(34039) = Jac_FULL(5150,5150) - JVS(34039) = -B(10910)-B(10912)-B(10914)-B(10916)-B(10918)-B(10919)-B(10920) -! JVS(34040) = Jac_FULL(5150,5163) - JVS(34040) = 0 -! JVS(34041) = Jac_FULL(5150,5192) - JVS(34041) = 0 -! JVS(34042) = Jac_FULL(5150,5238) - JVS(34042) = 0 -! JVS(34043) = Jac_FULL(5150,5250) - JVS(34043) = B(14112)+B(17497) -! JVS(34044) = Jac_FULL(5150,5252) - JVS(34044) = -B(10913)-B(10915)+B(14939) -! JVS(34045) = Jac_FULL(5150,5253) - JVS(34045) = 0 -! JVS(34046) = Jac_FULL(5150,5255) - JVS(34046) = -B(10911)+B(14937) -! JVS(34047) = Jac_FULL(5150,5256) - JVS(34047) = -B(10917)+B(14943) -! JVS(34048) = Jac_FULL(5151,282) - JVS(34048) = B(19588) -! JVS(34049) = Jac_FULL(5151,983) - JVS(34049) = B(19590) -! JVS(34050) = Jac_FULL(5151,3222) - JVS(34050) = B(7031) -! JVS(34051) = Jac_FULL(5151,3298) - JVS(34051) = B(15239) -! JVS(34052) = Jac_FULL(5151,3792) - JVS(34052) = B(15002) -! JVS(34053) = Jac_FULL(5151,3822) - JVS(34053) = 0 -! JVS(34054) = Jac_FULL(5151,3978) - JVS(34054) = B(821) -! JVS(34055) = Jac_FULL(5151,4800) - JVS(34055) = 0 -! JVS(34056) = Jac_FULL(5151,4975) - JVS(34056) = 0 -! JVS(34057) = Jac_FULL(5151,4979) - JVS(34057) = B(17568)+B(17570)+B(17574)+B(17577) -! JVS(34058) = Jac_FULL(5151,4990) - JVS(34058) = 0 -! JVS(34059) = Jac_FULL(5151,5010) - JVS(34059) = 0 -! JVS(34060) = Jac_FULL(5151,5119) - JVS(34060) = 0 -! JVS(34061) = Jac_FULL(5151,5151) - JVS(34061) = -B(3236)-B(3238)-B(3240)-B(3242)-B(3244)-B(3245)-B(3246) -! JVS(34062) = Jac_FULL(5151,5192) - JVS(34062) = 0 -! JVS(34063) = Jac_FULL(5151,5238) - JVS(34063) = 0 -! JVS(34064) = Jac_FULL(5151,5250) - JVS(34064) = B(822)+B(7032)+B(19589) -! JVS(34065) = Jac_FULL(5151,5252) - JVS(34065) = -B(3239)-B(3241)+B(17571) -! JVS(34066) = Jac_FULL(5151,5253) - JVS(34066) = 0 -! JVS(34067) = Jac_FULL(5151,5255) - JVS(34067) = -B(3237)+B(17569) -! JVS(34068) = Jac_FULL(5151,5256) - JVS(34068) = -B(3243)+B(17575) -! JVS(34069) = Jac_FULL(5152,595) - JVS(34069) = B(13488) -! JVS(34070) = Jac_FULL(5152,637) - JVS(34070) = B(12187) -! JVS(34071) = Jac_FULL(5152,777) - JVS(34071) = B(18036) -! JVS(34072) = Jac_FULL(5152,1683) - JVS(34072) = B(13492) -! JVS(34073) = Jac_FULL(5152,1917) - JVS(34073) = B(13485) -! JVS(34074) = Jac_FULL(5152,1947) - JVS(34074) = 0 -! JVS(34075) = Jac_FULL(5152,2080) - JVS(34075) = 0 -! JVS(34076) = Jac_FULL(5152,2150) - JVS(34076) = B(12170) -! JVS(34077) = Jac_FULL(5152,2473) - JVS(34077) = B(7760) -! JVS(34078) = Jac_FULL(5152,2500) - JVS(34078) = B(12175) -! JVS(34079) = Jac_FULL(5152,2580) - JVS(34079) = B(21597) -! JVS(34080) = Jac_FULL(5152,2711) - JVS(34080) = B(13489) -! JVS(34081) = Jac_FULL(5152,2870) - JVS(34081) = B(21600) -! JVS(34082) = Jac_FULL(5152,3160) - JVS(34082) = B(16682) -! JVS(34083) = Jac_FULL(5152,3198) - JVS(34083) = 0 -! JVS(34084) = Jac_FULL(5152,3526) - JVS(34084) = B(16457)+B(16458)+B(16460) -! JVS(34085) = Jac_FULL(5152,3763) - JVS(34085) = B(6615) -! JVS(34086) = Jac_FULL(5152,3888) - JVS(34086) = 0 -! JVS(34087) = Jac_FULL(5152,4284) - JVS(34087) = 0 -! JVS(34088) = Jac_FULL(5152,4352) - JVS(34088) = B(12190) -! JVS(34089) = Jac_FULL(5152,4530) - JVS(34089) = B(7893)+B(7894)+B(7896) -! JVS(34090) = Jac_FULL(5152,4585) - JVS(34090) = 0 -! JVS(34091) = Jac_FULL(5152,4589) - JVS(34091) = 0 -! JVS(34092) = Jac_FULL(5152,4700) - JVS(34092) = 0 -! JVS(34093) = Jac_FULL(5152,4724) - JVS(34093) = 0 -! JVS(34094) = Jac_FULL(5152,4732) - JVS(34094) = 0 -! JVS(34095) = Jac_FULL(5152,4772) - JVS(34095) = 0 -! JVS(34096) = Jac_FULL(5152,4804) - JVS(34096) = 0 -! JVS(34097) = Jac_FULL(5152,4817) - JVS(34097) = 0 -! JVS(34098) = Jac_FULL(5152,4932) - JVS(34098) = 0 -! JVS(34099) = Jac_FULL(5152,4945) - JVS(34099) = 0 -! JVS(34100) = Jac_FULL(5152,5050) - JVS(34100) = 0 -! JVS(34101) = Jac_FULL(5152,5051) - JVS(34101) = 0 -! JVS(34102) = Jac_FULL(5152,5132) - JVS(34102) = 0 -! JVS(34103) = Jac_FULL(5152,5152) - JVS(34103) = -B(8425)-B(8427)-B(8429)-B(8431)-B(8433)-B(8435)-B(8437)-B(8438) -! JVS(34104) = Jac_FULL(5152,5153) - JVS(34104) = 0 -! JVS(34105) = Jac_FULL(5152,5154) - JVS(34105) = 0 -! JVS(34106) = Jac_FULL(5152,5162) - JVS(34106) = 0 -! JVS(34107) = Jac_FULL(5152,5166) - JVS(34107) = 0 -! JVS(34108) = Jac_FULL(5152,5173) - JVS(34108) = 0 -! JVS(34109) = Jac_FULL(5152,5180) - JVS(34109) = B(4815)+B(4817) -! JVS(34110) = Jac_FULL(5152,5190) - JVS(34110) = 0 -! JVS(34111) = Jac_FULL(5152,5194) - JVS(34111) = 0 -! JVS(34112) = Jac_FULL(5152,5250) - JVS(34112) = B(4818)+B(7897)+B(12171)+B(16461) -! JVS(34113) = Jac_FULL(5152,5252) - JVS(34113) = -B(8432) -! JVS(34114) = Jac_FULL(5152,5253) - JVS(34114) = -B(8434) -! JVS(34115) = Jac_FULL(5152,5255) - JVS(34115) = -B(8426)-B(8428)-B(8430) -! JVS(34116) = Jac_FULL(5152,5256) - JVS(34116) = B(4816)+B(7895)-B(8436)+B(16459) -! JVS(34117) = Jac_FULL(5152,5258) - JVS(34117) = 0 -! JVS(34118) = Jac_FULL(5153,591) - JVS(34118) = B(7734) -! JVS(34119) = Jac_FULL(5153,3653) - JVS(34119) = 0 -! JVS(34120) = Jac_FULL(5153,4814) - JVS(34120) = 0 -! JVS(34121) = Jac_FULL(5153,5153) - JVS(34121) = -B(763)-B(765)-B(767)-B(769)-B(771)-B(773)-B(775) -! JVS(34122) = Jac_FULL(5153,5181) - JVS(34122) = 0 -! JVS(34123) = Jac_FULL(5153,5250) - JVS(34123) = -B(772)-B(774)-B(776) -! JVS(34124) = Jac_FULL(5153,5252) - JVS(34124) = 0 -! JVS(34125) = Jac_FULL(5153,5255) - JVS(34125) = 0 -! JVS(34126) = Jac_FULL(5153,5256) - JVS(34126) = -B(764)-B(766) -! JVS(34127) = Jac_FULL(5153,5258) - JVS(34127) = -B(768)-B(770) -! JVS(34128) = Jac_FULL(5154,2590) - JVS(34128) = B(16596) -! JVS(34129) = Jac_FULL(5154,4615) - JVS(34129) = B(10557) -! JVS(34130) = Jac_FULL(5154,5154) - JVS(34130) = -B(13742)-B(13744)-B(13746)-B(13748)-B(13749)-B(13750) -! JVS(34131) = Jac_FULL(5154,5219) - JVS(34131) = 0 -! JVS(34132) = Jac_FULL(5154,5250) - JVS(34132) = B(10558)+B(16597) -! JVS(34133) = Jac_FULL(5154,5252) - JVS(34133) = -B(13745)-B(13747) -! JVS(34134) = Jac_FULL(5154,5255) - JVS(34134) = -B(13743) -! JVS(34135) = Jac_FULL(5154,5258) - JVS(34135) = 0 -! JVS(34136) = Jac_FULL(5155,2243) - JVS(34136) = B(18786)+B(18788) -! JVS(34137) = Jac_FULL(5155,3059) - JVS(34137) = B(11667) -! JVS(34138) = Jac_FULL(5155,3160) - JVS(34138) = 0 -! JVS(34139) = Jac_FULL(5155,3326) - JVS(34139) = B(11662) -! JVS(34140) = Jac_FULL(5155,3635) - JVS(34140) = 0 -! JVS(34141) = Jac_FULL(5155,4945) - JVS(34141) = 0 -! JVS(34142) = Jac_FULL(5155,5074) - JVS(34142) = 0 -! JVS(34143) = Jac_FULL(5155,5154) - JVS(34143) = 0 -! JVS(34144) = Jac_FULL(5155,5155) - JVS(34144) = -B(7922)-B(7924)-B(7926)-B(7928)-B(7930)-B(7932)-B(7934)-B(7935) -! JVS(34145) = Jac_FULL(5155,5173) - JVS(34145) = 0 -! JVS(34146) = Jac_FULL(5155,5219) - JVS(34146) = 0 -! JVS(34147) = Jac_FULL(5155,5221) - JVS(34147) = B(4299) -! JVS(34148) = Jac_FULL(5155,5250) - JVS(34148) = B(4300)+B(11663)+B(18787) -! JVS(34149) = Jac_FULL(5155,5252) - JVS(34149) = -B(7929) -! JVS(34150) = Jac_FULL(5155,5253) - JVS(34150) = -B(7931) -! JVS(34151) = Jac_FULL(5155,5255) - JVS(34151) = -B(7923)-B(7925)-B(7927) -! JVS(34152) = Jac_FULL(5155,5256) - JVS(34152) = -B(7933) -! JVS(34153) = Jac_FULL(5155,5258) - JVS(34153) = 0 -! JVS(34154) = Jac_FULL(5156,763) - JVS(34154) = B(1509) -! JVS(34155) = Jac_FULL(5156,3647) - JVS(34155) = B(12458) -! JVS(34156) = Jac_FULL(5156,4570) - JVS(34156) = 0 -! JVS(34157) = Jac_FULL(5156,4976) - JVS(34157) = 0 -! JVS(34158) = Jac_FULL(5156,5002) - JVS(34158) = 0 -! JVS(34159) = Jac_FULL(5156,5025) - JVS(34159) = 0 -! JVS(34160) = Jac_FULL(5156,5089) - JVS(34160) = 0 -! JVS(34161) = Jac_FULL(5156,5141) - JVS(34161) = 0 -! JVS(34162) = Jac_FULL(5156,5156) - JVS(34162) = -B(4284)-B(4286)-B(4288)-B(4290)-B(4292) -! JVS(34163) = Jac_FULL(5156,5204) - JVS(34163) = 0 -! JVS(34164) = Jac_FULL(5156,5205) - JVS(34164) = 0 -! JVS(34165) = Jac_FULL(5156,5209) - JVS(34165) = 0 -! JVS(34166) = Jac_FULL(5156,5217) - JVS(34166) = 0 -! JVS(34167) = Jac_FULL(5156,5220) - JVS(34167) = 0 -! JVS(34168) = Jac_FULL(5156,5226) - JVS(34168) = 0 -! JVS(34169) = Jac_FULL(5156,5250) - JVS(34169) = 0 -! JVS(34170) = Jac_FULL(5156,5251) - JVS(34170) = -B(4285) -! JVS(34171) = Jac_FULL(5156,5252) - JVS(34171) = -B(4287) -! JVS(34172) = Jac_FULL(5156,5253) - JVS(34172) = -B(4289) -! JVS(34173) = Jac_FULL(5156,5254) - JVS(34173) = -B(4291) -! JVS(34174) = Jac_FULL(5156,5255) - JVS(34174) = 0 -! JVS(34175) = Jac_FULL(5156,5256) - JVS(34175) = 0 -! JVS(34176) = Jac_FULL(5156,5258) - JVS(34176) = 0 -! JVS(34177) = Jac_FULL(5157,1704) - JVS(34177) = B(7145) -! JVS(34178) = Jac_FULL(5157,1719) - JVS(34178) = B(7104) -! JVS(34179) = Jac_FULL(5157,1841) - JVS(34179) = B(7096) -! JVS(34180) = Jac_FULL(5157,1954) - JVS(34180) = B(7141) -! JVS(34181) = Jac_FULL(5157,2269) - JVS(34181) = B(7091) -! JVS(34182) = Jac_FULL(5157,2630) - JVS(34182) = B(13465) -! JVS(34183) = Jac_FULL(5157,3288) - JVS(34183) = B(7135) -! JVS(34184) = Jac_FULL(5157,4581) - JVS(34184) = B(3303) -! JVS(34185) = Jac_FULL(5157,4583) - JVS(34185) = B(3334) -! JVS(34186) = Jac_FULL(5157,4628) - JVS(34186) = 0 -! JVS(34187) = Jac_FULL(5157,4933) - JVS(34187) = 0 -! JVS(34188) = Jac_FULL(5157,5109) - JVS(34188) = 0 -! JVS(34189) = Jac_FULL(5157,5157) - JVS(34189) = -B(7100)-B(7102)-B(7103) -! JVS(34190) = Jac_FULL(5157,5186) - JVS(34190) = 0 -! JVS(34191) = Jac_FULL(5157,5238) - JVS(34191) = 0 -! JVS(34192) = Jac_FULL(5157,5250) - JVS(34192) = B(7092)+B(7097)-B(7101)+B(7105)+B(7136)+B(7142)+B(7146)+B(13466) -! JVS(34193) = Jac_FULL(5157,5252) - JVS(34193) = 0 -! JVS(34194) = Jac_FULL(5157,5253) - JVS(34194) = 0 -! JVS(34195) = Jac_FULL(5157,5255) - JVS(34195) = 0 -! JVS(34196) = Jac_FULL(5157,5256) - JVS(34196) = 0 -! JVS(34197) = Jac_FULL(5157,5258) - JVS(34197) = 0 -! JVS(34198) = Jac_FULL(5158,8) - JVS(34198) = B(15415) -! JVS(34199) = Jac_FULL(5158,610) - JVS(34199) = B(14095) -! JVS(34200) = Jac_FULL(5158,833) - JVS(34200) = B(11572) -! JVS(34201) = Jac_FULL(5158,1832) - JVS(34201) = B(19670) -! JVS(34202) = Jac_FULL(5158,2000) - JVS(34202) = B(14040) -! JVS(34203) = Jac_FULL(5158,2201) - JVS(34203) = B(22166) -! JVS(34204) = Jac_FULL(5158,2478) - JVS(34204) = 0 -! JVS(34205) = Jac_FULL(5158,2547) - JVS(34205) = B(12320) -! JVS(34206) = Jac_FULL(5158,2618) - JVS(34206) = B(14093) -! JVS(34207) = Jac_FULL(5158,2680) - JVS(34207) = B(23906) -! JVS(34208) = Jac_FULL(5158,2930) - JVS(34208) = B(22163) -! JVS(34209) = Jac_FULL(5158,2968) - JVS(34209) = B(24035) -! JVS(34210) = Jac_FULL(5158,3021) - JVS(34210) = B(11577) -! JVS(34211) = Jac_FULL(5158,3078) - JVS(34211) = 0 -! JVS(34212) = Jac_FULL(5158,3616) - JVS(34212) = B(14125) -! JVS(34213) = Jac_FULL(5158,4095) - JVS(34213) = 0 -! JVS(34214) = Jac_FULL(5158,4138) - JVS(34214) = 0 -! JVS(34215) = Jac_FULL(5158,4503) - JVS(34215) = 0 -! JVS(34216) = Jac_FULL(5158,4584) - JVS(34216) = 0 -! JVS(34217) = Jac_FULL(5158,4590) - JVS(34217) = 0 -! JVS(34218) = Jac_FULL(5158,4646) - JVS(34218) = 0 -! JVS(34219) = Jac_FULL(5158,4784) - JVS(34219) = 0 -! JVS(34220) = Jac_FULL(5158,4817) - JVS(34220) = 0 -! JVS(34221) = Jac_FULL(5158,4820) - JVS(34221) = 0 -! JVS(34222) = Jac_FULL(5158,4827) - JVS(34222) = 0 -! JVS(34223) = Jac_FULL(5158,4884) - JVS(34223) = 0 -! JVS(34224) = Jac_FULL(5158,4885) - JVS(34224) = 0 -! JVS(34225) = Jac_FULL(5158,4939) - JVS(34225) = B(13894)+B(13895)+B(13897) -! JVS(34226) = Jac_FULL(5158,4972) - JVS(34226) = 0 -! JVS(34227) = Jac_FULL(5158,5096) - JVS(34227) = 0 -! JVS(34228) = Jac_FULL(5158,5108) - JVS(34228) = 0 -! JVS(34229) = Jac_FULL(5158,5109) - JVS(34229) = 0 -! JVS(34230) = Jac_FULL(5158,5110) - JVS(34230) = B(14102) -! JVS(34231) = Jac_FULL(5158,5120) - JVS(34231) = 0 -! JVS(34232) = Jac_FULL(5158,5127) - JVS(34232) = 0 -! JVS(34233) = Jac_FULL(5158,5144) - JVS(34233) = 0 -! JVS(34234) = Jac_FULL(5158,5146) - JVS(34234) = 0 -! JVS(34235) = Jac_FULL(5158,5148) - JVS(34235) = 0 -! JVS(34236) = Jac_FULL(5158,5151) - JVS(34236) = 0 -! JVS(34237) = Jac_FULL(5158,5157) - JVS(34237) = 0 -! JVS(34238) = Jac_FULL(5158,5158) - JVS(34238) = -B(7794)-B(7796)-B(7798)-B(7800)-B(7802)-B(7804) -! JVS(34239) = Jac_FULL(5158,5163) - JVS(34239) = 0 -! JVS(34240) = Jac_FULL(5158,5166) - JVS(34240) = 0 -! JVS(34241) = Jac_FULL(5158,5186) - JVS(34241) = 0 -! JVS(34242) = Jac_FULL(5158,5190) - JVS(34242) = 0 -! JVS(34243) = Jac_FULL(5158,5192) - JVS(34243) = 0 -! JVS(34244) = Jac_FULL(5158,5238) - JVS(34244) = 0 -! JVS(34245) = Jac_FULL(5158,5242) - JVS(34245) = B(4133)+B(4135) -! JVS(34246) = Jac_FULL(5158,5245) - JVS(34246) = 0 -! JVS(34247) = Jac_FULL(5158,5250) - JVS(34247) = B(4136)+B(11573)+B(13898) -! JVS(34248) = Jac_FULL(5158,5252) - JVS(34248) = -B(7799) -! JVS(34249) = Jac_FULL(5158,5253) - JVS(34249) = -B(7801) -! JVS(34250) = Jac_FULL(5158,5255) - JVS(34250) = -B(7795)-B(7797) -! JVS(34251) = Jac_FULL(5158,5256) - JVS(34251) = B(4134)-B(7803)+B(13896) -! JVS(34252) = Jac_FULL(5158,5258) - JVS(34252) = 0 -! JVS(34253) = Jac_FULL(5159,1311) - JVS(34253) = B(16941) -! JVS(34254) = Jac_FULL(5159,1572) - JVS(34254) = B(16943) -! JVS(34255) = Jac_FULL(5159,4092) - JVS(34255) = 0 -! JVS(34256) = Jac_FULL(5159,4340) - JVS(34256) = B(21693) -! JVS(34257) = Jac_FULL(5159,4492) - JVS(34257) = 0 -! JVS(34258) = Jac_FULL(5159,4600) - JVS(34258) = 0 -! JVS(34259) = Jac_FULL(5159,5159) - JVS(34259) = -B(19134)-B(19136)-B(19138)-B(19140) -! JVS(34260) = Jac_FULL(5159,5213) - JVS(34260) = 0 -! JVS(34261) = Jac_FULL(5159,5250) - JVS(34261) = B(16942)-B(19137)-B(19139) -! JVS(34262) = Jac_FULL(5159,5252) - JVS(34262) = 0 -! JVS(34263) = Jac_FULL(5159,5255) - JVS(34263) = 0 -! JVS(34264) = Jac_FULL(5159,5256) - JVS(34264) = -B(19135) -! JVS(34265) = Jac_FULL(5159,5258) - JVS(34265) = 0 -! JVS(34266) = Jac_FULL(5160,541) - JVS(34266) = B(19079) -! JVS(34267) = Jac_FULL(5160,573) - JVS(34267) = 2*B(5193) -! JVS(34268) = Jac_FULL(5160,632) - JVS(34268) = B(20713) -! JVS(34269) = Jac_FULL(5160,644) - JVS(34269) = B(23566) -! JVS(34270) = Jac_FULL(5160,741) - JVS(34270) = B(23625) -! JVS(34271) = Jac_FULL(5160,754) - JVS(34271) = B(23540) -! JVS(34272) = Jac_FULL(5160,760) - JVS(34272) = B(23721) -! JVS(34273) = Jac_FULL(5160,775) - JVS(34273) = B(22355) -! JVS(34274) = Jac_FULL(5160,813) - JVS(34274) = B(22066) -! JVS(34275) = Jac_FULL(5160,1078) - JVS(34275) = B(12200) -! JVS(34276) = Jac_FULL(5160,1614) - JVS(34276) = B(22065) -! JVS(34277) = Jac_FULL(5160,1653) - JVS(34277) = B(11832) -! JVS(34278) = Jac_FULL(5160,1654) - JVS(34278) = B(11831) -! JVS(34279) = Jac_FULL(5160,1662) - JVS(34279) = B(4189) -! JVS(34280) = Jac_FULL(5160,1724) - JVS(34280) = B(23539) -! JVS(34281) = Jac_FULL(5160,1754) - JVS(34281) = 2*B(5199) -! JVS(34282) = Jac_FULL(5160,1757) - JVS(34282) = 0 -! JVS(34283) = Jac_FULL(5160,1776) - JVS(34283) = B(1248)+B(1249) -! JVS(34284) = Jac_FULL(5160,1788) - JVS(34284) = 2*B(4664) -! JVS(34285) = Jac_FULL(5160,1789) - JVS(34285) = B(4666) -! JVS(34286) = Jac_FULL(5160,1801) - JVS(34286) = B(22059) -! JVS(34287) = Jac_FULL(5160,1803) - JVS(34287) = B(20762) -! JVS(34288) = Jac_FULL(5160,1808) - JVS(34288) = B(4012) -! JVS(34289) = Jac_FULL(5160,1815) - JVS(34289) = B(4066) -! JVS(34290) = Jac_FULL(5160,1818) - JVS(34290) = B(23445) -! JVS(34291) = Jac_FULL(5160,1852) - JVS(34291) = B(20706) -! JVS(34292) = Jac_FULL(5160,1924) - JVS(34292) = B(3920) -! JVS(34293) = Jac_FULL(5160,1944) - JVS(34293) = B(3743) -! JVS(34294) = Jac_FULL(5160,1975) - JVS(34294) = B(7404) -! JVS(34295) = Jac_FULL(5160,1984) - JVS(34295) = B(20649) -! JVS(34296) = Jac_FULL(5160,1985) - JVS(34296) = 0 -! JVS(34297) = Jac_FULL(5160,1989) - JVS(34297) = B(23559) -! JVS(34298) = Jac_FULL(5160,2029) - JVS(34298) = B(3940) -! JVS(34299) = Jac_FULL(5160,2056) - JVS(34299) = B(21836) -! JVS(34300) = Jac_FULL(5160,2068) - JVS(34300) = 0 -! JVS(34301) = Jac_FULL(5160,2111) - JVS(34301) = 0 -! JVS(34302) = Jac_FULL(5160,2126) - JVS(34302) = B(4182) -! JVS(34303) = Jac_FULL(5160,2151) - JVS(34303) = 0 -! JVS(34304) = Jac_FULL(5160,2207) - JVS(34304) = B(17002) -! JVS(34305) = Jac_FULL(5160,2211) - JVS(34305) = B(7774) -! JVS(34306) = Jac_FULL(5160,2214) - JVS(34306) = B(23533) -! JVS(34307) = Jac_FULL(5160,2244) - JVS(34307) = B(11827) -! JVS(34308) = Jac_FULL(5160,2293) - JVS(34308) = B(22122) -! JVS(34309) = Jac_FULL(5160,2364) - JVS(34309) = B(7772) -! JVS(34310) = Jac_FULL(5160,2374) - JVS(34310) = B(3839) -! JVS(34311) = Jac_FULL(5160,2393) - JVS(34311) = B(12529) -! JVS(34312) = Jac_FULL(5160,2399) - JVS(34312) = B(7661) -! JVS(34313) = Jac_FULL(5160,2415) - JVS(34313) = B(7311) -! JVS(34314) = Jac_FULL(5160,2423) - JVS(34314) = 0 -! JVS(34315) = Jac_FULL(5160,2425) - JVS(34315) = B(6892) -! JVS(34316) = Jac_FULL(5160,2427) - JVS(34316) = B(4187) -! JVS(34317) = Jac_FULL(5160,2452) - JVS(34317) = B(16893) -! JVS(34318) = Jac_FULL(5160,2457) - JVS(34318) = B(20743) -! JVS(34319) = Jac_FULL(5160,2460) - JVS(34319) = B(12204) -! JVS(34320) = Jac_FULL(5160,2465) - JVS(34320) = B(1030) -! JVS(34321) = Jac_FULL(5160,2473) - JVS(34321) = B(7760) -! JVS(34322) = Jac_FULL(5160,2490) - JVS(34322) = B(4461) -! JVS(34323) = Jac_FULL(5160,2502) - JVS(34323) = B(4893) -! JVS(34324) = Jac_FULL(5160,2522) - JVS(34324) = B(12205) -! JVS(34325) = Jac_FULL(5160,2524) - JVS(34325) = B(22062) -! JVS(34326) = Jac_FULL(5160,2532) - JVS(34326) = B(21833) -! JVS(34327) = Jac_FULL(5160,2534) - JVS(34327) = B(4714) -! JVS(34328) = Jac_FULL(5160,2542) - JVS(34328) = B(3837) -! JVS(34329) = Jac_FULL(5160,2610) - JVS(34329) = B(4567) -! JVS(34330) = Jac_FULL(5160,2612) - JVS(34330) = B(4159) -! JVS(34331) = Jac_FULL(5160,2619) - JVS(34331) = B(24029) -! JVS(34332) = Jac_FULL(5160,2621) - JVS(34332) = B(22119) -! JVS(34333) = Jac_FULL(5160,2626) - JVS(34333) = B(7308) -! JVS(34334) = Jac_FULL(5160,2629) - JVS(34334) = B(20740) -! JVS(34335) = Jac_FULL(5160,2661) - JVS(34335) = B(19225) -! JVS(34336) = Jac_FULL(5160,2687) - JVS(34336) = B(4401) -! JVS(34337) = Jac_FULL(5160,2697) - JVS(34337) = B(17793) -! JVS(34338) = Jac_FULL(5160,2701) - JVS(34338) = B(20703) -! JVS(34339) = Jac_FULL(5160,2742) - JVS(34339) = B(16890) -! JVS(34340) = Jac_FULL(5160,2759) - JVS(34340) = B(20759) -! JVS(34341) = Jac_FULL(5160,2792) - JVS(34341) = B(7778) -! JVS(34342) = Jac_FULL(5160,2802) - JVS(34342) = B(23442) -! JVS(34343) = Jac_FULL(5160,2812) - JVS(34343) = B(20646) -! JVS(34344) = Jac_FULL(5160,2831) - JVS(34344) = B(5088) -! JVS(34345) = Jac_FULL(5160,2840) - JVS(34345) = B(3717) -! JVS(34346) = Jac_FULL(5160,2864) - JVS(34346) = B(23938) -! JVS(34347) = Jac_FULL(5160,2881) - JVS(34347) = B(14177) -! JVS(34348) = Jac_FULL(5160,2888) - JVS(34348) = B(7401) -! JVS(34349) = Jac_FULL(5160,2892) - JVS(34349) = B(16873) -! JVS(34350) = Jac_FULL(5160,2933) - JVS(34350) = B(4569) -! JVS(34351) = Jac_FULL(5160,2942) - JVS(34351) = B(23536) -! JVS(34352) = Jac_FULL(5160,2943) - JVS(34352) = B(16999) -! JVS(34353) = Jac_FULL(5160,2968) - JVS(34353) = B(24035) -! JVS(34354) = Jac_FULL(5160,2992) - JVS(34354) = B(4180) -! JVS(34355) = Jac_FULL(5160,2993) - JVS(34355) = B(4178) -! JVS(34356) = Jac_FULL(5160,3013) - JVS(34356) = B(17637) -! JVS(34357) = Jac_FULL(5160,3029) - JVS(34357) = B(23472) -! JVS(34358) = Jac_FULL(5160,3034) - JVS(34358) = B(11150) -! JVS(34359) = Jac_FULL(5160,3068) - JVS(34359) = B(7189) -! JVS(34360) = Jac_FULL(5160,3069) - JVS(34360) = B(7192) -! JVS(34361) = Jac_FULL(5160,3076) - JVS(34361) = B(4459) -! JVS(34362) = Jac_FULL(5160,3081) - JVS(34362) = B(16949) -! JVS(34363) = Jac_FULL(5160,3083) - JVS(34363) = B(88) -! JVS(34364) = Jac_FULL(5160,3104) - JVS(34364) = B(7077) -! JVS(34365) = Jac_FULL(5160,3159) - JVS(34365) = B(3918) -! JVS(34366) = Jac_FULL(5160,3173) - JVS(34366) = B(3715) -! JVS(34367) = Jac_FULL(5160,3188) - JVS(34367) = 0 -! JVS(34368) = Jac_FULL(5160,3198) - JVS(34368) = 0 -! JVS(34369) = Jac_FULL(5160,3212) - JVS(34369) = B(12014) -! JVS(34370) = Jac_FULL(5160,3223) - JVS(34370) = B(16905) -! JVS(34371) = Jac_FULL(5160,3243) - JVS(34371) = 0 -! JVS(34372) = Jac_FULL(5160,3260) - JVS(34372) = B(11743) -! JVS(34373) = Jac_FULL(5160,3293) - JVS(34373) = B(23609) -! JVS(34374) = Jac_FULL(5160,3299) - JVS(34374) = 0 -! JVS(34375) = Jac_FULL(5160,3364) - JVS(34375) = 0 -! JVS(34376) = Jac_FULL(5160,3422) - JVS(34376) = B(3877) -! JVS(34377) = Jac_FULL(5160,3442) - JVS(34377) = B(587) -! JVS(34378) = Jac_FULL(5160,3444) - JVS(34378) = 0 -! JVS(34379) = Jac_FULL(5160,3447) - JVS(34379) = B(23556) -! JVS(34380) = Jac_FULL(5160,3533) - JVS(34380) = B(7657) -! JVS(34381) = Jac_FULL(5160,3536) - JVS(34381) = 0 -! JVS(34382) = Jac_FULL(5160,3598) - JVS(34382) = B(4897) -! JVS(34383) = Jac_FULL(5160,3623) - JVS(34383) = 0 -! JVS(34384) = Jac_FULL(5160,3671) - JVS(34384) = 0 -! JVS(34385) = Jac_FULL(5160,3721) - JVS(34385) = 0 -! JVS(34386) = Jac_FULL(5160,3838) - JVS(34386) = 0 -! JVS(34387) = Jac_FULL(5160,3845) - JVS(34387) = 0 -! JVS(34388) = Jac_FULL(5160,3888) - JVS(34388) = 0 -! JVS(34389) = Jac_FULL(5160,3894) - JVS(34389) = 0 -! JVS(34390) = Jac_FULL(5160,3905) - JVS(34390) = 0 -! JVS(34391) = Jac_FULL(5160,3944) - JVS(34391) = 0 -! JVS(34392) = Jac_FULL(5160,3955) - JVS(34392) = 0 -! JVS(34393) = Jac_FULL(5160,3970) - JVS(34393) = B(5081) -! JVS(34394) = Jac_FULL(5160,3981) - JVS(34394) = 0 -! JVS(34395) = Jac_FULL(5160,3982) - JVS(34395) = 0 -! JVS(34396) = Jac_FULL(5160,4090) - JVS(34396) = 0 -! JVS(34397) = Jac_FULL(5160,4091) - JVS(34397) = 0 -! JVS(34398) = Jac_FULL(5160,4099) - JVS(34398) = 0 -! JVS(34399) = Jac_FULL(5160,4108) - JVS(34399) = B(4903) -! JVS(34400) = Jac_FULL(5160,4112) - JVS(34400) = 0 -! JVS(34401) = Jac_FULL(5160,4119) - JVS(34401) = 0 -! JVS(34402) = Jac_FULL(5160,4124) - JVS(34402) = 0 -! JVS(34403) = Jac_FULL(5160,4128) - JVS(34403) = 0 -! JVS(34404) = Jac_FULL(5160,4137) - JVS(34404) = 0 -! JVS(34405) = Jac_FULL(5160,4140) - JVS(34405) = 0 -! JVS(34406) = Jac_FULL(5160,4157) - JVS(34406) = 0 -! JVS(34407) = Jac_FULL(5160,4166) - JVS(34407) = 0 -! JVS(34408) = Jac_FULL(5160,4170) - JVS(34408) = 0 -! JVS(34409) = Jac_FULL(5160,4173) - JVS(34409) = 0 -! JVS(34410) = Jac_FULL(5160,4189) - JVS(34410) = 0 -! JVS(34411) = Jac_FULL(5160,4201) - JVS(34411) = 0 -! JVS(34412) = Jac_FULL(5160,4234) - JVS(34412) = 0 -! JVS(34413) = Jac_FULL(5160,4290) - JVS(34413) = 0 -! JVS(34414) = Jac_FULL(5160,4385) - JVS(34414) = 0 -! JVS(34415) = Jac_FULL(5160,4452) - JVS(34415) = B(8475)+B(8481)+B(8485)+B(8487) -! JVS(34416) = Jac_FULL(5160,4456) - JVS(34416) = 0 -! JVS(34417) = Jac_FULL(5160,4473) - JVS(34417) = 0 -! JVS(34418) = Jac_FULL(5160,4474) - JVS(34418) = B(543) -! JVS(34419) = Jac_FULL(5160,4492) - JVS(34419) = 0 -! JVS(34420) = Jac_FULL(5160,4497) - JVS(34420) = 0 -! JVS(34421) = Jac_FULL(5160,4503) - JVS(34421) = 0 -! JVS(34422) = Jac_FULL(5160,4512) - JVS(34422) = B(469) -! JVS(34423) = Jac_FULL(5160,4544) - JVS(34423) = B(4905)+B(4907)+B(4909)+B(4911)+B(4913) -! JVS(34424) = Jac_FULL(5160,4545) - JVS(34424) = 0 -! JVS(34425) = Jac_FULL(5160,4555) - JVS(34425) = 0 -! JVS(34426) = Jac_FULL(5160,4580) - JVS(34426) = 0 -! JVS(34427) = Jac_FULL(5160,4585) - JVS(34427) = 0 -! JVS(34428) = Jac_FULL(5160,4594) - JVS(34428) = 0 -! JVS(34429) = Jac_FULL(5160,4596) - JVS(34429) = 0 -! JVS(34430) = Jac_FULL(5160,4600) - JVS(34430) = 0 -! JVS(34431) = Jac_FULL(5160,4647) - JVS(34431) = 0 -! JVS(34432) = Jac_FULL(5160,4700) - JVS(34432) = 0 -! JVS(34433) = Jac_FULL(5160,4722) - JVS(34433) = 0 -! JVS(34434) = Jac_FULL(5160,4723) - JVS(34434) = 0 -! JVS(34435) = Jac_FULL(5160,4736) - JVS(34435) = 0 -! JVS(34436) = Jac_FULL(5160,4763) - JVS(34436) = 0 -! JVS(34437) = Jac_FULL(5160,4780) - JVS(34437) = 0 -! JVS(34438) = Jac_FULL(5160,4789) - JVS(34438) = 0 -! JVS(34439) = Jac_FULL(5160,4809) - JVS(34439) = 0 -! JVS(34440) = Jac_FULL(5160,4818) - JVS(34440) = 0 -! JVS(34441) = Jac_FULL(5160,4820) - JVS(34441) = 0 -! JVS(34442) = Jac_FULL(5160,4839) - JVS(34442) = 0 -! JVS(34443) = Jac_FULL(5160,4841) - JVS(34443) = 0 -! JVS(34444) = Jac_FULL(5160,4844) - JVS(34444) = 0 -! JVS(34445) = Jac_FULL(5160,4853) - JVS(34445) = 0 -! JVS(34446) = Jac_FULL(5160,4854) - JVS(34446) = 0 -! JVS(34447) = Jac_FULL(5160,4860) - JVS(34447) = 0 -! JVS(34448) = Jac_FULL(5160,4898) - JVS(34448) = 0 -! JVS(34449) = Jac_FULL(5160,4901) - JVS(34449) = 0 -! JVS(34450) = Jac_FULL(5160,4903) - JVS(34450) = 0 -! JVS(34451) = Jac_FULL(5160,4907) - JVS(34451) = 0 -! JVS(34452) = Jac_FULL(5160,4908) - JVS(34452) = 0 -! JVS(34453) = Jac_FULL(5160,4910) - JVS(34453) = 0 -! JVS(34454) = Jac_FULL(5160,4914) - JVS(34454) = 0 -! JVS(34455) = Jac_FULL(5160,4925) - JVS(34455) = 0 -! JVS(34456) = Jac_FULL(5160,4960) - JVS(34456) = 0 -! JVS(34457) = Jac_FULL(5160,4974) - JVS(34457) = 0 -! JVS(34458) = Jac_FULL(5160,4978) - JVS(34458) = 0 -! JVS(34459) = Jac_FULL(5160,4980) - JVS(34459) = 0 -! JVS(34460) = Jac_FULL(5160,4981) - JVS(34460) = 0 -! JVS(34461) = Jac_FULL(5160,4994) - JVS(34461) = 0 -! JVS(34462) = Jac_FULL(5160,5000) - JVS(34462) = B(1254) -! JVS(34463) = Jac_FULL(5160,5021) - JVS(34463) = 0 -! JVS(34464) = Jac_FULL(5160,5029) - JVS(34464) = 0 -! JVS(34465) = Jac_FULL(5160,5032) - JVS(34465) = 0 -! JVS(34466) = Jac_FULL(5160,5041) - JVS(34466) = 0 -! JVS(34467) = Jac_FULL(5160,5045) - JVS(34467) = 0 -! JVS(34468) = Jac_FULL(5160,5056) - JVS(34468) = 0 -! JVS(34469) = Jac_FULL(5160,5060) - JVS(34469) = 0 -! JVS(34470) = Jac_FULL(5160,5072) - JVS(34470) = 0 -! JVS(34471) = Jac_FULL(5160,5076) - JVS(34471) = 0 -! JVS(34472) = Jac_FULL(5160,5077) - JVS(34472) = 0 -! JVS(34473) = Jac_FULL(5160,5078) - JVS(34473) = 0 -! JVS(34474) = Jac_FULL(5160,5079) - JVS(34474) = 0 -! JVS(34475) = Jac_FULL(5160,5082) - JVS(34475) = 0 -! JVS(34476) = Jac_FULL(5160,5090) - JVS(34476) = 0 -! JVS(34477) = Jac_FULL(5160,5101) - JVS(34477) = 0 -! JVS(34478) = Jac_FULL(5160,5104) - JVS(34478) = 0 -! JVS(34479) = Jac_FULL(5160,5106) - JVS(34479) = 0 -! JVS(34480) = Jac_FULL(5160,5114) - JVS(34480) = 0 -! JVS(34481) = Jac_FULL(5160,5129) - JVS(34481) = 0 -! JVS(34482) = Jac_FULL(5160,5130) - JVS(34482) = 0 -! JVS(34483) = Jac_FULL(5160,5145) - JVS(34483) = B(1406) -! JVS(34484) = Jac_FULL(5160,5146) - JVS(34484) = 0 -! JVS(34485) = Jac_FULL(5160,5148) - JVS(34485) = 0 -! JVS(34486) = Jac_FULL(5160,5151) - JVS(34486) = 0 -! JVS(34487) = Jac_FULL(5160,5160) - JVS(34487) = -B(811)-B(813) -! JVS(34488) = Jac_FULL(5160,5166) - JVS(34488) = 0 -! JVS(34489) = Jac_FULL(5160,5186) - JVS(34489) = 0 -! JVS(34490) = Jac_FULL(5160,5190) - JVS(34490) = 0 -! JVS(34491) = Jac_FULL(5160,5192) - JVS(34491) = 0 -! JVS(34492) = Jac_FULL(5160,5198) - JVS(34492) = 0 -! JVS(34493) = Jac_FULL(5160,5203) - JVS(34493) = 0 -! JVS(34494) = Jac_FULL(5160,5206) - JVS(34494) = 0 -! JVS(34495) = Jac_FULL(5160,5207) - JVS(34495) = 0 -! JVS(34496) = Jac_FULL(5160,5213) - JVS(34496) = 0 -! JVS(34497) = Jac_FULL(5160,5215) - JVS(34497) = 0 -! JVS(34498) = Jac_FULL(5160,5226) - JVS(34498) = 0 -! JVS(34499) = Jac_FULL(5160,5230) - JVS(34499) = 0 -! JVS(34500) = Jac_FULL(5160,5238) - JVS(34500) = 0 -! JVS(34501) = Jac_FULL(5160,5239) - JVS(34501) = 0 -! JVS(34502) = Jac_FULL(5160,5240) - JVS(34502) = 0 -! JVS(34503) = Jac_FULL(5160,5243) - JVS(34503) = B(4037)+B(4043)+B(4047)+B(4049) -! JVS(34504) = Jac_FULL(5160,5245) - JVS(34504) = 0 -! JVS(34505) = Jac_FULL(5160,5247) - JVS(34505) = 0 -! JVS(34506) = Jac_FULL(5160,5248) - JVS(34506) = 0 -! JVS(34507) = Jac_FULL(5160,5249) - JVS(34507) = 0 -! JVS(34508) = Jac_FULL(5160,5250) - JVS(34508) = B(89)-B(812)+B(3716)+B(3838)+B(3919)+B(4160)+B(4183)+B(4188)+B(4402)+B(4460)+B(4568)+2*B(4665)+B(4715)& - &+B(7190)+B(7309)+B(7402)+B(7658)+B(7773)+B(7779)+B(11151)+B(11744)+B(12015)+B(12201)+B(12206)+B(16874)& - &+B(16891)+B(16906)+B(16950)+B(17000)+B(19226)+B(20647)+B(20704)+B(20741)+B(20760)+B(21834)+B(22060)& - &+B(22063)+B(22067)+B(22120)+B(23443)+B(23473)+B(23534)+B(23537)+B(23541)+B(23557)+B(23610)+B(23939)& - &+B(24030) -! JVS(34509) = Jac_FULL(5160,5251) - JVS(34509) = B(4906) -! JVS(34510) = Jac_FULL(5160,5252) - JVS(34510) = B(4044)+B(4908)+B(8482) -! JVS(34511) = Jac_FULL(5160,5253) - JVS(34511) = B(4910) -! JVS(34512) = Jac_FULL(5160,5254) - JVS(34512) = B(4912) -! JVS(34513) = Jac_FULL(5160,5255) - JVS(34513) = B(4038)+B(8476) -! JVS(34514) = Jac_FULL(5160,5256) - JVS(34514) = B(4048)+B(8486) -! JVS(34515) = Jac_FULL(5160,5257) - JVS(34515) = 0 -! JVS(34516) = Jac_FULL(5160,5258) - JVS(34516) = B(470)+B(544)+B(588) -! JVS(34517) = Jac_FULL(5161,602) - JVS(34517) = B(15288) -! JVS(34518) = Jac_FULL(5161,609) - JVS(34518) = B(15393) -! JVS(34519) = Jac_FULL(5161,769) - JVS(34519) = B(15337) -! JVS(34520) = Jac_FULL(5161,794) - JVS(34520) = B(15365) -! JVS(34521) = Jac_FULL(5161,803) - JVS(34521) = B(15309) -! JVS(34522) = Jac_FULL(5161,945) - JVS(34522) = B(19578) -! JVS(34523) = Jac_FULL(5161,1440) - JVS(34523) = B(19575)+B(19576) -! JVS(34524) = Jac_FULL(5161,2400) - JVS(34524) = B(7064) -! JVS(34525) = Jac_FULL(5161,3609) - JVS(34525) = B(828) -! JVS(34526) = Jac_FULL(5161,3662) - JVS(34526) = B(14973) -! JVS(34527) = Jac_FULL(5161,3906) - JVS(34527) = B(15195) -! JVS(34528) = Jac_FULL(5161,3917) - JVS(34528) = 0 -! JVS(34529) = Jac_FULL(5161,4103) - JVS(34529) = 0 -! JVS(34530) = Jac_FULL(5161,4122) - JVS(34530) = 0 -! JVS(34531) = Jac_FULL(5161,4164) - JVS(34531) = 0 -! JVS(34532) = Jac_FULL(5161,4179) - JVS(34532) = 0 -! JVS(34533) = Jac_FULL(5161,4866) - JVS(34533) = B(17538)+B(17540)+B(17544)+B(17547) -! JVS(34534) = Jac_FULL(5161,4876) - JVS(34534) = 0 -! JVS(34535) = Jac_FULL(5161,5065) - JVS(34535) = 0 -! JVS(34536) = Jac_FULL(5161,5107) - JVS(34536) = 0 -! JVS(34537) = Jac_FULL(5161,5108) - JVS(34537) = 0 -! JVS(34538) = Jac_FULL(5161,5112) - JVS(34538) = 0 -! JVS(34539) = Jac_FULL(5161,5115) - JVS(34539) = 0 -! JVS(34540) = Jac_FULL(5161,5138) - JVS(34540) = 0 -! JVS(34541) = Jac_FULL(5161,5140) - JVS(34541) = 0 -! JVS(34542) = Jac_FULL(5161,5144) - JVS(34542) = 0 -! JVS(34543) = Jac_FULL(5161,5161) - JVS(34543) = -B(3265)-B(3267)-B(3269)-B(3271)-B(3273)-B(3274)-B(3275) -! JVS(34544) = Jac_FULL(5161,5186) - JVS(34544) = 0 -! JVS(34545) = Jac_FULL(5161,5238) - JVS(34545) = 0 -! JVS(34546) = Jac_FULL(5161,5250) - JVS(34546) = B(829)+B(7065)+B(19577) -! JVS(34547) = Jac_FULL(5161,5252) - JVS(34547) = -B(3268)-B(3270)+B(17541) -! JVS(34548) = Jac_FULL(5161,5253) - JVS(34548) = 0 -! JVS(34549) = Jac_FULL(5161,5255) - JVS(34549) = -B(3266)+B(17539) -! JVS(34550) = Jac_FULL(5161,5256) - JVS(34550) = -B(3272)+B(17545) -! JVS(34551) = Jac_FULL(5162,383) - JVS(34551) = B(4493) -! JVS(34552) = Jac_FULL(5162,1987) - JVS(34552) = B(4484) -! JVS(34553) = Jac_FULL(5162,2416) - JVS(34553) = B(4479) -! JVS(34554) = Jac_FULL(5162,2638) - JVS(34554) = B(17960) -! JVS(34555) = Jac_FULL(5162,2726) - JVS(34555) = B(19850) -! JVS(34556) = Jac_FULL(5162,2760) - JVS(34556) = B(17923) -! JVS(34557) = Jac_FULL(5162,3218) - JVS(34557) = B(21253) -! JVS(34558) = Jac_FULL(5162,3493) - JVS(34558) = B(17961) -! JVS(34559) = Jac_FULL(5162,4270) - JVS(34559) = 0 -! JVS(34560) = Jac_FULL(5162,4443) - JVS(34560) = 0 -! JVS(34561) = Jac_FULL(5162,4715) - JVS(34561) = 0 -! JVS(34562) = Jac_FULL(5162,4850) - JVS(34562) = 0 -! JVS(34563) = Jac_FULL(5162,4942) - JVS(34563) = B(1713) -! JVS(34564) = Jac_FULL(5162,5065) - JVS(34564) = 0 -! JVS(34565) = Jac_FULL(5162,5107) - JVS(34565) = 0 -! JVS(34566) = Jac_FULL(5162,5112) - JVS(34566) = 0 -! JVS(34567) = Jac_FULL(5162,5138) - JVS(34567) = 0 -! JVS(34568) = Jac_FULL(5162,5162) - JVS(34568) = -B(4487)-B(4488)-B(4489)-B(4491) -! JVS(34569) = Jac_FULL(5162,5238) - JVS(34569) = 0 -! JVS(34570) = Jac_FULL(5162,5250) - JVS(34570) = B(4480)+B(4485)-B(4492)+B(4494)+B(19851)+B(21254) -! JVS(34571) = Jac_FULL(5162,5252) - JVS(34571) = 0 -! JVS(34572) = Jac_FULL(5162,5253) - JVS(34572) = 0 -! JVS(34573) = Jac_FULL(5162,5255) - JVS(34573) = 0 -! JVS(34574) = Jac_FULL(5162,5256) - JVS(34574) = -B(4490) -! JVS(34575) = Jac_FULL(5163,1290) - JVS(34575) = B(11760) -! JVS(34576) = Jac_FULL(5163,1708) - JVS(34576) = B(291)+B(297) -! JVS(34577) = Jac_FULL(5163,2227) - JVS(34577) = B(4406) -! JVS(34578) = Jac_FULL(5163,3148) - JVS(34578) = B(4747) -! JVS(34579) = Jac_FULL(5163,4760) - JVS(34579) = B(8031)+B(8033)+B(8037)+B(8039) -! JVS(34580) = Jac_FULL(5163,5138) - JVS(34580) = 0 -! JVS(34581) = Jac_FULL(5163,5144) - JVS(34581) = 0 -! JVS(34582) = Jac_FULL(5163,5162) - JVS(34582) = B(4488) -! JVS(34583) = Jac_FULL(5163,5163) - JVS(34583) = -B(1629)-B(1631)-B(1633)-B(1635)-B(1637)-B(1638)-B(1639) -! JVS(34584) = Jac_FULL(5163,5238) - JVS(34584) = B(292) -! JVS(34585) = Jac_FULL(5163,5250) - JVS(34585) = B(298)+B(4407) -! JVS(34586) = Jac_FULL(5163,5252) - JVS(34586) = -B(1632)-B(1634)+B(8034) -! JVS(34587) = Jac_FULL(5163,5253) - JVS(34587) = 0 -! JVS(34588) = Jac_FULL(5163,5255) - JVS(34588) = -B(1630)+B(8032) -! JVS(34589) = Jac_FULL(5163,5256) - JVS(34589) = -B(1636)+B(8038) -! JVS(34590) = Jac_FULL(5164,1015) - JVS(34590) = B(11581) -! JVS(34591) = Jac_FULL(5164,1650) - JVS(34591) = B(14141) -! JVS(34592) = Jac_FULL(5164,2129) - JVS(34592) = 0 -! JVS(34593) = Jac_FULL(5164,2525) - JVS(34593) = B(11583) -! JVS(34594) = Jac_FULL(5164,2940) - JVS(34594) = 0 -! JVS(34595) = Jac_FULL(5164,3683) - JVS(34595) = B(14046) -! JVS(34596) = Jac_FULL(5164,3756) - JVS(34596) = B(14144) -! JVS(34597) = Jac_FULL(5164,4590) - JVS(34597) = 0 -! JVS(34598) = Jac_FULL(5164,4817) - JVS(34598) = 0 -! JVS(34599) = Jac_FULL(5164,4827) - JVS(34599) = 0 -! JVS(34600) = Jac_FULL(5164,4884) - JVS(34600) = 0 -! JVS(34601) = Jac_FULL(5164,4885) - JVS(34601) = 0 -! JVS(34602) = Jac_FULL(5164,5055) - JVS(34602) = B(4139)+B(4143) -! JVS(34603) = Jac_FULL(5164,5120) - JVS(34603) = 0 -! JVS(34604) = Jac_FULL(5164,5146) - JVS(34604) = 0 -! JVS(34605) = Jac_FULL(5164,5150) - JVS(34605) = 0 -! JVS(34606) = Jac_FULL(5164,5151) - JVS(34606) = 0 -! JVS(34607) = Jac_FULL(5164,5163) - JVS(34607) = 0 -! JVS(34608) = Jac_FULL(5164,5164) - JVS(34608) = -B(7805)-B(7807)-B(7809)-B(7811)-B(7813)-B(7815)-B(7817)-B(7818) -! JVS(34609) = Jac_FULL(5164,5186) - JVS(34609) = 0 -! JVS(34610) = Jac_FULL(5164,5190) - JVS(34610) = 0 -! JVS(34611) = Jac_FULL(5164,5192) - JVS(34611) = 0 -! JVS(34612) = Jac_FULL(5164,5230) - JVS(34612) = 0 -! JVS(34613) = Jac_FULL(5164,5238) - JVS(34613) = 0 -! JVS(34614) = Jac_FULL(5164,5250) - JVS(34614) = B(4144)+B(11582) -! JVS(34615) = Jac_FULL(5164,5252) - JVS(34615) = -B(7812) -! JVS(34616) = Jac_FULL(5164,5253) - JVS(34616) = -B(7814) -! JVS(34617) = Jac_FULL(5164,5255) - JVS(34617) = -B(7806)-B(7808)-B(7810) -! JVS(34618) = Jac_FULL(5164,5256) - JVS(34618) = B(4140)-B(7816) -! JVS(34619) = Jac_FULL(5164,5258) - JVS(34619) = 0 -! JVS(34620) = Jac_FULL(5165,345) - JVS(34620) = B(4413) -! JVS(34621) = Jac_FULL(5165,834) - JVS(34621) = B(12279) -! JVS(34622) = Jac_FULL(5165,1927) - JVS(34622) = B(5129) -! JVS(34623) = Jac_FULL(5165,2227) - JVS(34623) = B(4404) -! JVS(34624) = Jac_FULL(5165,2285) - JVS(34624) = B(4409) -! JVS(34625) = Jac_FULL(5165,2290) - JVS(34625) = B(12283) -! JVS(34626) = Jac_FULL(5165,2371) - JVS(34626) = B(12308) -! JVS(34627) = Jac_FULL(5165,2594) - JVS(34627) = B(17930) -! JVS(34628) = Jac_FULL(5165,2841) - JVS(34628) = B(11763) -! JVS(34629) = Jac_FULL(5165,2896) - JVS(34629) = B(12312) -! JVS(34630) = Jac_FULL(5165,2944) - JVS(34630) = B(5140) -! JVS(34631) = Jac_FULL(5165,2988) - JVS(34631) = B(12284) -! JVS(34632) = Jac_FULL(5165,3002) - JVS(34632) = B(5093) -! JVS(34633) = Jac_FULL(5165,3308) - JVS(34633) = 0 -! JVS(34634) = Jac_FULL(5165,3544) - JVS(34634) = B(17931) -! JVS(34635) = Jac_FULL(5165,3925) - JVS(34635) = B(5107) -! JVS(34636) = Jac_FULL(5165,4155) - JVS(34636) = B(5099) -! JVS(34637) = Jac_FULL(5165,4283) - JVS(34637) = B(8635)+B(8639)+B(8643)+B(8645) -! JVS(34638) = Jac_FULL(5165,4427) - JVS(34638) = B(8603)+B(8609)+B(8613)+B(8615) -! JVS(34639) = Jac_FULL(5165,4527) - JVS(34639) = B(553) -! JVS(34640) = Jac_FULL(5165,4582) - JVS(34640) = 0 -! JVS(34641) = Jac_FULL(5165,4587) - JVS(34641) = 0 -! JVS(34642) = Jac_FULL(5165,4712) - JVS(34642) = 0 -! JVS(34643) = Jac_FULL(5165,4760) - JVS(34643) = 0 -! JVS(34644) = Jac_FULL(5165,4838) - JVS(34644) = B(5114)+B(5116)+B(5118)+B(5120)+B(5122) -! JVS(34645) = Jac_FULL(5165,4873) - JVS(34645) = B(5141) -! JVS(34646) = Jac_FULL(5165,4879) - JVS(34646) = 0 -! JVS(34647) = Jac_FULL(5165,5107) - JVS(34647) = 0 -! JVS(34648) = Jac_FULL(5165,5112) - JVS(34648) = 0 -! JVS(34649) = Jac_FULL(5165,5135) - JVS(34649) = 0 -! JVS(34650) = Jac_FULL(5165,5138) - JVS(34650) = 0 -! JVS(34651) = Jac_FULL(5165,5162) - JVS(34651) = 0 -! JVS(34652) = Jac_FULL(5165,5163) - JVS(34652) = B(1637) -! JVS(34653) = Jac_FULL(5165,5165) - JVS(34653) = -B(206)-B(208)-B(210)-B(212) -! JVS(34654) = Jac_FULL(5165,5238) - JVS(34654) = 0 -! JVS(34655) = Jac_FULL(5165,5250) - JVS(34655) = -B(209)-B(211)+B(4405)+B(4410)+B(4414)+B(11764)+B(12280)+B(12285)+B(12313) -! JVS(34656) = Jac_FULL(5165,5251) - JVS(34656) = B(5115) -! JVS(34657) = Jac_FULL(5165,5252) - JVS(34657) = B(5117)+B(8610)+B(8640) -! JVS(34658) = Jac_FULL(5165,5253) - JVS(34658) = B(5119) -! JVS(34659) = Jac_FULL(5165,5254) - JVS(34659) = B(5121) -! JVS(34660) = Jac_FULL(5165,5255) - JVS(34660) = B(8604)+B(8636) -! JVS(34661) = Jac_FULL(5165,5256) - JVS(34661) = -B(207)+B(8614)+B(8644) -! JVS(34662) = Jac_FULL(5165,5258) - JVS(34662) = B(554) -! JVS(34663) = Jac_FULL(5166,5166) - JVS(34663) = -B(777)-B(779)-B(781)-B(783)-B(785)-B(787)-B(789)-B(791)-B(793)-B(795)-B(797)-B(799) -! JVS(34664) = Jac_FULL(5166,5250) - JVS(34664) = -B(788)-B(790)-B(792)-B(794)-B(796)-B(798)-B(800) -! JVS(34665) = Jac_FULL(5166,5256) - JVS(34665) = -B(778) -! JVS(34666) = Jac_FULL(5166,5258) - JVS(34666) = -B(780)-B(782)-B(784)-B(786) -! JVS(34667) = Jac_FULL(5167,2570) - JVS(34667) = B(18899) -! JVS(34668) = Jac_FULL(5167,2606) - JVS(34668) = B(18903) -! JVS(34669) = Jac_FULL(5167,4256) - JVS(34669) = B(13881) -! JVS(34670) = Jac_FULL(5167,4894) - JVS(34670) = 0 -! JVS(34671) = Jac_FULL(5167,4945) - JVS(34671) = 0 -! JVS(34672) = Jac_FULL(5167,5074) - JVS(34672) = 0 -! JVS(34673) = Jac_FULL(5167,5132) - JVS(34673) = 0 -! JVS(34674) = Jac_FULL(5167,5154) - JVS(34674) = 0 -! JVS(34675) = Jac_FULL(5167,5166) - JVS(34675) = 0 -! JVS(34676) = Jac_FULL(5167,5167) - JVS(34676) = -B(16690)-B(16692)-B(16694)-B(16696)-B(16698)-B(16700)-B(16701) -! JVS(34677) = Jac_FULL(5167,5173) - JVS(34677) = 0 -! JVS(34678) = Jac_FULL(5167,5205) - JVS(34678) = 0 -! JVS(34679) = Jac_FULL(5167,5219) - JVS(34679) = 0 -! JVS(34680) = Jac_FULL(5167,5250) - JVS(34680) = B(13882)+B(18900) -! JVS(34681) = Jac_FULL(5167,5252) - JVS(34681) = -B(16697) -! JVS(34682) = Jac_FULL(5167,5253) - JVS(34682) = -B(16699) -! JVS(34683) = Jac_FULL(5167,5255) - JVS(34683) = -B(16691)-B(16693)-B(16695) -! JVS(34684) = Jac_FULL(5167,5256) - JVS(34684) = 0 -! JVS(34685) = Jac_FULL(5167,5258) - JVS(34685) = 0 -! JVS(34686) = Jac_FULL(5168,3634) - JVS(34686) = B(3096) -! JVS(34687) = Jac_FULL(5168,5118) - JVS(34687) = B(6930) -! JVS(34688) = Jac_FULL(5168,5166) - JVS(34688) = 0 -! JVS(34689) = Jac_FULL(5168,5168) - JVS(34689) = -B(6701)-B(6702)-B(6704)-B(6706) -! JVS(34690) = Jac_FULL(5168,5204) - JVS(34690) = B(6804) -! JVS(34691) = Jac_FULL(5168,5224) - JVS(34691) = 0 -! JVS(34692) = Jac_FULL(5168,5250) - JVS(34692) = -B(6707) -! JVS(34693) = Jac_FULL(5168,5252) - JVS(34693) = B(6805)+B(6931) -! JVS(34694) = Jac_FULL(5168,5255) - JVS(34694) = 0 -! JVS(34695) = Jac_FULL(5168,5256) - JVS(34695) = 0 -! JVS(34696) = Jac_FULL(5168,5258) - JVS(34696) = -B(6703)-B(6705) -! JVS(34697) = Jac_FULL(5169,635) - JVS(34697) = B(7410) -! JVS(34698) = Jac_FULL(5169,639) - JVS(34698) = B(7463) -! JVS(34699) = Jac_FULL(5169,748) - JVS(34699) = B(7457) -! JVS(34700) = Jac_FULL(5169,1058) - JVS(34700) = B(7455) -! JVS(34701) = Jac_FULL(5169,1911) - JVS(34701) = 0 -! JVS(34702) = Jac_FULL(5169,2065) - JVS(34702) = 0 -! JVS(34703) = Jac_FULL(5169,2451) - JVS(34703) = 0 -! JVS(34704) = Jac_FULL(5169,3863) - JVS(34704) = 0 -! JVS(34705) = Jac_FULL(5169,3867) - JVS(34705) = 0 -! JVS(34706) = Jac_FULL(5169,3940) - JVS(34706) = 0 -! JVS(34707) = Jac_FULL(5169,4605) - JVS(34707) = 0 -! JVS(34708) = Jac_FULL(5169,4843) - JVS(34708) = B(7442)+B(7444)+B(7446)+B(7448)+B(7450) -! JVS(34709) = Jac_FULL(5169,5169) - JVS(34709) = -B(11186)-B(11188)-B(11190)-B(11192)-B(11194)-B(11196)-B(11198) -! JVS(34710) = Jac_FULL(5169,5250) - JVS(34710) = B(7456)-B(11195)-B(11197) -! JVS(34711) = Jac_FULL(5169,5251) - JVS(34711) = B(7443) -! JVS(34712) = Jac_FULL(5169,5252) - JVS(34712) = B(7445) -! JVS(34713) = Jac_FULL(5169,5253) - JVS(34713) = B(7447) -! JVS(34714) = Jac_FULL(5169,5254) - JVS(34714) = B(7449) -! JVS(34715) = Jac_FULL(5169,5255) - JVS(34715) = 0 -! JVS(34716) = Jac_FULL(5169,5256) - JVS(34716) = -B(11187)-B(11189) -! JVS(34717) = Jac_FULL(5169,5258) - JVS(34717) = -B(11191)-B(11193) -! JVS(34718) = Jac_FULL(5170,2748) - JVS(34718) = B(1489) -! JVS(34719) = Jac_FULL(5170,3630) - JVS(34719) = B(10440) -! JVS(34720) = Jac_FULL(5170,4588) - JVS(34720) = B(5234) -! JVS(34721) = Jac_FULL(5170,4805) - JVS(34721) = 0 -! JVS(34722) = Jac_FULL(5170,4840) - JVS(34722) = 0 -! JVS(34723) = Jac_FULL(5170,4976) - JVS(34723) = 0 -! JVS(34724) = Jac_FULL(5170,5002) - JVS(34724) = 0 -! JVS(34725) = Jac_FULL(5170,5033) - JVS(34725) = 0 -! JVS(34726) = Jac_FULL(5170,5049) - JVS(34726) = 0 -! JVS(34727) = Jac_FULL(5170,5050) - JVS(34727) = 0 -! JVS(34728) = Jac_FULL(5170,5058) - JVS(34728) = 0 -! JVS(34729) = Jac_FULL(5170,5066) - JVS(34729) = 0 -! JVS(34730) = Jac_FULL(5170,5068) - JVS(34730) = 0 -! JVS(34731) = Jac_FULL(5170,5069) - JVS(34731) = 0 -! JVS(34732) = Jac_FULL(5170,5076) - JVS(34732) = 0 -! JVS(34733) = Jac_FULL(5170,5123) - JVS(34733) = 0 -! JVS(34734) = Jac_FULL(5170,5126) - JVS(34734) = 0 -! JVS(34735) = Jac_FULL(5170,5153) - JVS(34735) = 0 -! JVS(34736) = Jac_FULL(5170,5166) - JVS(34736) = 0 -! JVS(34737) = Jac_FULL(5170,5170) - JVS(34737) = -B(4256)-B(4258)-B(4260)-B(4262)-B(4264)-B(4265) -! JVS(34738) = Jac_FULL(5170,5181) - JVS(34738) = 0 -! JVS(34739) = Jac_FULL(5170,5194) - JVS(34739) = 0 -! JVS(34740) = Jac_FULL(5170,5204) - JVS(34740) = 0 -! JVS(34741) = Jac_FULL(5170,5205) - JVS(34741) = 0 -! JVS(34742) = Jac_FULL(5170,5209) - JVS(34742) = 0 -! JVS(34743) = Jac_FULL(5170,5217) - JVS(34743) = 0 -! JVS(34744) = Jac_FULL(5170,5220) - JVS(34744) = 0 -! JVS(34745) = Jac_FULL(5170,5250) - JVS(34745) = 0 -! JVS(34746) = Jac_FULL(5170,5251) - JVS(34746) = -B(4257) -! JVS(34747) = Jac_FULL(5170,5252) - JVS(34747) = -B(4259) -! JVS(34748) = Jac_FULL(5170,5253) - JVS(34748) = -B(4261) -! JVS(34749) = Jac_FULL(5170,5254) - JVS(34749) = -B(4263) -! JVS(34750) = Jac_FULL(5170,5255) - JVS(34750) = 0 -! JVS(34751) = Jac_FULL(5170,5256) - JVS(34751) = 0 -! JVS(34752) = Jac_FULL(5170,5258) - JVS(34752) = 0 -! JVS(34753) = Jac_FULL(5171,545) - JVS(34753) = B(22161) -! JVS(34754) = Jac_FULL(5171,617) - JVS(34754) = B(22310) -! JVS(34755) = Jac_FULL(5171,1201) - JVS(34755) = B(20567) -! JVS(34756) = Jac_FULL(5171,1759) - JVS(34756) = B(22158) -! JVS(34757) = Jac_FULL(5171,2217) - JVS(34757) = 0 -! JVS(34758) = Jac_FULL(5171,2622) - JVS(34758) = B(20569) -! JVS(34759) = Jac_FULL(5171,3984) - JVS(34759) = 0 -! JVS(34760) = Jac_FULL(5171,4274) - JVS(34760) = 0 -! JVS(34761) = Jac_FULL(5171,4566) - JVS(34761) = 0 -! JVS(34762) = Jac_FULL(5171,4573) - JVS(34762) = 0 -! JVS(34763) = Jac_FULL(5171,4902) - JVS(34763) = B(22311)+B(22313)+B(22315) -! JVS(34764) = Jac_FULL(5171,4925) - JVS(34764) = 0 -! JVS(34765) = Jac_FULL(5171,4969) - JVS(34765) = 0 -! JVS(34766) = Jac_FULL(5171,5019) - JVS(34766) = 0 -! JVS(34767) = Jac_FULL(5171,5105) - JVS(34767) = B(16776)+B(16778) -! JVS(34768) = Jac_FULL(5171,5108) - JVS(34768) = 0 -! JVS(34769) = Jac_FULL(5171,5159) - JVS(34769) = 0 -! JVS(34770) = Jac_FULL(5171,5161) - JVS(34770) = 0 -! JVS(34771) = Jac_FULL(5171,5171) - JVS(34771) = -B(18978)-B(18980)-B(18982)-B(18984)-B(18986)-B(18988) -! JVS(34772) = Jac_FULL(5171,5175) - JVS(34772) = 0 -! JVS(34773) = Jac_FULL(5171,5185) - JVS(34773) = 0 -! JVS(34774) = Jac_FULL(5171,5186) - JVS(34774) = 0 -! JVS(34775) = Jac_FULL(5171,5187) - JVS(34775) = 0 -! JVS(34776) = Jac_FULL(5171,5196) - JVS(34776) = 0 -! JVS(34777) = Jac_FULL(5171,5198) - JVS(34777) = 0 -! JVS(34778) = Jac_FULL(5171,5213) - JVS(34778) = 0 -! JVS(34779) = Jac_FULL(5171,5236) - JVS(34779) = 0 -! JVS(34780) = Jac_FULL(5171,5238) - JVS(34780) = 0 -! JVS(34781) = Jac_FULL(5171,5250) - JVS(34781) = B(16779)+B(20568)+B(22314) -! JVS(34782) = Jac_FULL(5171,5252) - JVS(34782) = -B(18983) -! JVS(34783) = Jac_FULL(5171,5253) - JVS(34783) = -B(18985) -! JVS(34784) = Jac_FULL(5171,5255) - JVS(34784) = -B(18979)-B(18981) -! JVS(34785) = Jac_FULL(5171,5256) - JVS(34785) = B(16777)-B(18987)+B(22312) -! JVS(34786) = Jac_FULL(5171,5258) - JVS(34786) = 0 -! JVS(34787) = Jac_FULL(5172,131) - JVS(34787) = B(16538) -! JVS(34788) = Jac_FULL(5172,3358) - JVS(34788) = B(17467) -! JVS(34789) = Jac_FULL(5172,3529) - JVS(34789) = 0 -! JVS(34790) = Jac_FULL(5172,4294) - JVS(34790) = B(16535) -! JVS(34791) = Jac_FULL(5172,4772) - JVS(34791) = 0 -! JVS(34792) = Jac_FULL(5172,4805) - JVS(34792) = 0 -! JVS(34793) = Jac_FULL(5172,4826) - JVS(34793) = 0 -! JVS(34794) = Jac_FULL(5172,4945) - JVS(34794) = 0 -! JVS(34795) = Jac_FULL(5172,4976) - JVS(34795) = 0 -! JVS(34796) = Jac_FULL(5172,4993) - JVS(34796) = 0 -! JVS(34797) = Jac_FULL(5172,5003) - JVS(34797) = 0 -! JVS(34798) = Jac_FULL(5172,5033) - JVS(34798) = 0 -! JVS(34799) = Jac_FULL(5172,5035) - JVS(34799) = 0 -! JVS(34800) = Jac_FULL(5172,5075) - JVS(34800) = 0 -! JVS(34801) = Jac_FULL(5172,5133) - JVS(34801) = 0 -! JVS(34802) = Jac_FULL(5172,5154) - JVS(34802) = 0 -! JVS(34803) = Jac_FULL(5172,5155) - JVS(34803) = 0 -! JVS(34804) = Jac_FULL(5172,5167) - JVS(34804) = 0 -! JVS(34805) = Jac_FULL(5172,5172) - JVS(34805) = -B(18758)-B(18760)-B(18762)-B(18764)-B(18766)-B(18768) -! JVS(34806) = Jac_FULL(5172,5173) - JVS(34806) = 0 -! JVS(34807) = Jac_FULL(5172,5174) - JVS(34807) = 0 -! JVS(34808) = Jac_FULL(5172,5205) - JVS(34808) = 0 -! JVS(34809) = Jac_FULL(5172,5209) - JVS(34809) = 0 -! JVS(34810) = Jac_FULL(5172,5217) - JVS(34810) = 0 -! JVS(34811) = Jac_FULL(5172,5219) - JVS(34811) = 0 -! JVS(34812) = Jac_FULL(5172,5220) - JVS(34812) = 0 -! JVS(34813) = Jac_FULL(5172,5221) - JVS(34813) = 0 -! JVS(34814) = Jac_FULL(5172,5224) - JVS(34814) = 0 -! JVS(34815) = Jac_FULL(5172,5250) - JVS(34815) = B(16536) -! JVS(34816) = Jac_FULL(5172,5252) - JVS(34816) = -B(18763) -! JVS(34817) = Jac_FULL(5172,5253) - JVS(34817) = -B(18765) -! JVS(34818) = Jac_FULL(5172,5255) - JVS(34818) = -B(18759)-B(18761) -! JVS(34819) = Jac_FULL(5172,5256) - JVS(34819) = -B(18767) -! JVS(34820) = Jac_FULL(5172,5258) - JVS(34820) = 0 -! JVS(34821) = Jac_FULL(5173,3552) - JVS(34821) = B(13853) -! JVS(34822) = Jac_FULL(5173,4096) - JVS(34822) = B(6831) -! JVS(34823) = Jac_FULL(5173,5013) - JVS(34823) = B(10501) -! JVS(34824) = Jac_FULL(5173,5132) - JVS(34824) = 0 -! JVS(34825) = Jac_FULL(5173,5166) - JVS(34825) = 0 -! JVS(34826) = Jac_FULL(5173,5173) - JVS(34826) = -B(10628)-B(10630)-B(10632)-B(10634)-B(10636)-B(10637) -! JVS(34827) = Jac_FULL(5173,5217) - JVS(34827) = 0 -! JVS(34828) = Jac_FULL(5173,5218) - JVS(34828) = 0 -! JVS(34829) = Jac_FULL(5173,5250) - JVS(34829) = B(6832)+B(10502)+B(13854) -! JVS(34830) = Jac_FULL(5173,5252) - JVS(34830) = -B(10631)-B(10633) -! JVS(34831) = Jac_FULL(5173,5255) - JVS(34831) = -B(10629) -! JVS(34832) = Jac_FULL(5173,5256) - JVS(34832) = -B(10635) -! JVS(34833) = Jac_FULL(5173,5258) - JVS(34833) = 0 -! JVS(34834) = Jac_FULL(5174,3428) - JVS(34834) = B(13717) -! JVS(34835) = Jac_FULL(5174,5174) - JVS(34835) = -B(13820)-B(13822)-B(13824)-B(13826)-B(13828)-B(13829)-B(13830) -! JVS(34836) = Jac_FULL(5174,5219) - JVS(34836) = 0 -! JVS(34837) = Jac_FULL(5174,5220) - JVS(34837) = B(10606) -! JVS(34838) = Jac_FULL(5174,5224) - JVS(34838) = 0 -! JVS(34839) = Jac_FULL(5174,5250) - JVS(34839) = B(10607)+B(13718) -! JVS(34840) = Jac_FULL(5174,5252) - JVS(34840) = -B(13823)-B(13825) -! JVS(34841) = Jac_FULL(5174,5255) - JVS(34841) = -B(13821) -! JVS(34842) = Jac_FULL(5174,5256) - JVS(34842) = -B(13827) -! JVS(34843) = Jac_FULL(5175,540) - JVS(34843) = B(7472) -! JVS(34844) = Jac_FULL(5175,1905) - JVS(34844) = B(7469) -! JVS(34845) = Jac_FULL(5175,2508) - JVS(34845) = B(7471) -! JVS(34846) = Jac_FULL(5175,3994) - JVS(34846) = 0 -! JVS(34847) = Jac_FULL(5175,4605) - JVS(34847) = 0 -! JVS(34848) = Jac_FULL(5175,5175) - JVS(34848) = -B(11251)-B(11253)-B(11255)-B(11257)-B(11259) -! JVS(34849) = Jac_FULL(5175,5250) - JVS(34849) = B(7470)+B(7473)-B(11258)-B(11260) -! JVS(34850) = Jac_FULL(5175,5252) - JVS(34850) = 0 -! JVS(34851) = Jac_FULL(5175,5255) - JVS(34851) = 0 -! JVS(34852) = Jac_FULL(5175,5256) - JVS(34852) = -B(11252) -! JVS(34853) = Jac_FULL(5175,5258) - JVS(34853) = -B(11254)-B(11256) -! JVS(34854) = Jac_FULL(5176,549) - JVS(34854) = B(17178) -! JVS(34855) = Jac_FULL(5176,556) - JVS(34855) = B(17060) -! JVS(34856) = Jac_FULL(5176,587) - JVS(34856) = B(17019) -! JVS(34857) = Jac_FULL(5176,649) - JVS(34857) = B(17142) -! JVS(34858) = Jac_FULL(5176,721) - JVS(34858) = B(17184) -! JVS(34859) = Jac_FULL(5176,1151) - JVS(34859) = B(17176) -! JVS(34860) = Jac_FULL(5176,1835) - JVS(34860) = B(17057) -! JVS(34861) = Jac_FULL(5176,1973) - JVS(34861) = 0 -! JVS(34862) = Jac_FULL(5176,1990) - JVS(34862) = 0 -! JVS(34863) = Jac_FULL(5176,2407) - JVS(34863) = 0 -! JVS(34864) = Jac_FULL(5176,2962) - JVS(34864) = B(17018) -! JVS(34865) = Jac_FULL(5176,2997) - JVS(34865) = B(17059) -! JVS(34866) = Jac_FULL(5176,3850) - JVS(34866) = 0 -! JVS(34867) = Jac_FULL(5176,3872) - JVS(34867) = 0 -! JVS(34868) = Jac_FULL(5176,3876) - JVS(34868) = 0 -! JVS(34869) = Jac_FULL(5176,3927) - JVS(34869) = 0 -! JVS(34870) = Jac_FULL(5176,3969) - JVS(34870) = 0 -! JVS(34871) = Jac_FULL(5176,4824) - JVS(34871) = B(17163)+B(17165)+B(17167)+B(17169)+B(17172) -! JVS(34872) = Jac_FULL(5176,5169) - JVS(34872) = B(11192) -! JVS(34873) = Jac_FULL(5176,5175) - JVS(34873) = 0 -! JVS(34874) = Jac_FULL(5176,5176) - JVS(34874) = -B(14410)-B(14412)-B(14414)-B(14416) -! JVS(34875) = Jac_FULL(5176,5250) - JVS(34875) = -B(14413)-B(14415)+B(17020)+B(17058)+B(17061)+B(17177) -! JVS(34876) = Jac_FULL(5176,5251) - JVS(34876) = B(17164) -! JVS(34877) = Jac_FULL(5176,5252) - JVS(34877) = B(17166) -! JVS(34878) = Jac_FULL(5176,5253) - JVS(34878) = B(17168) -! JVS(34879) = Jac_FULL(5176,5254) - JVS(34879) = B(17170) -! JVS(34880) = Jac_FULL(5176,5255) - JVS(34880) = 0 -! JVS(34881) = Jac_FULL(5176,5256) - JVS(34881) = -B(14411) -! JVS(34882) = Jac_FULL(5176,5258) - JVS(34882) = B(11193) -! JVS(34883) = Jac_FULL(5177,268) - JVS(34883) = B(22517) -! JVS(34884) = Jac_FULL(5177,543) - JVS(34884) = B(22964) -! JVS(34885) = Jac_FULL(5177,650) - JVS(34885) = B(22980) -! JVS(34886) = Jac_FULL(5177,948) - JVS(34886) = B(22510) -! JVS(34887) = Jac_FULL(5177,1766) - JVS(34887) = B(22977) -! JVS(34888) = Jac_FULL(5177,1941) - JVS(34888) = B(22513) -! JVS(34889) = Jac_FULL(5177,1942) - JVS(34889) = B(22516) -! JVS(34890) = Jac_FULL(5177,2591) - JVS(34890) = B(22979) -! JVS(34891) = Jac_FULL(5177,2772) - JVS(34891) = B(22507) -! JVS(34892) = Jac_FULL(5177,2916) - JVS(34892) = B(22963) -! JVS(34893) = Jac_FULL(5177,3895) - JVS(34893) = 0 -! JVS(34894) = Jac_FULL(5177,3974) - JVS(34894) = 0 -! JVS(34895) = Jac_FULL(5177,4019) - JVS(34895) = B(21920) -! JVS(34896) = Jac_FULL(5177,4752) - JVS(34896) = 0 -! JVS(34897) = Jac_FULL(5177,5044) - JVS(34897) = 0 -! JVS(34898) = Jac_FULL(5177,5085) - JVS(34898) = 0 -! JVS(34899) = Jac_FULL(5177,5095) - JVS(34899) = 0 -! JVS(34900) = Jac_FULL(5177,5175) - JVS(34900) = 0 -! JVS(34901) = Jac_FULL(5177,5177) - JVS(34901) = -B(22519)-B(22521)-B(22523) -! JVS(34902) = Jac_FULL(5177,5189) - JVS(34902) = B(21956) -! JVS(34903) = Jac_FULL(5177,5196) - JVS(34903) = 0 -! JVS(34904) = Jac_FULL(5177,5236) - JVS(34904) = 0 -! JVS(34905) = Jac_FULL(5177,5250) - JVS(34905) = B(22508)+B(22511)+B(22514)+B(22518)-B(22522)+B(22965)+B(22978)+B(22981) -! JVS(34906) = Jac_FULL(5177,5252) - JVS(34906) = 0 -! JVS(34907) = Jac_FULL(5177,5253) - JVS(34907) = 0 -! JVS(34908) = Jac_FULL(5177,5255) - JVS(34908) = 0 -! JVS(34909) = Jac_FULL(5177,5256) - JVS(34909) = -B(22520) -! JVS(34910) = Jac_FULL(5177,5258) - JVS(34910) = B(21957) -! JVS(34911) = Jac_FULL(5178,11) - JVS(34911) = B(8560) -! JVS(34912) = Jac_FULL(5178,757) - JVS(34912) = B(100) -! JVS(34913) = Jac_FULL(5178,924) - JVS(34913) = B(12247) -! JVS(34914) = Jac_FULL(5178,1694) - JVS(34914) = B(11921) -! JVS(34915) = Jac_FULL(5178,1714) - JVS(34915) = B(11920) -! JVS(34916) = Jac_FULL(5178,1946) - JVS(34916) = B(4384) -! JVS(34917) = Jac_FULL(5178,1962) - JVS(34917) = B(4612) -! JVS(34918) = Jac_FULL(5178,2090) - JVS(34918) = B(3890) -! JVS(34919) = Jac_FULL(5178,2208) - JVS(34919) = B(11495) -! JVS(34920) = Jac_FULL(5178,2314) - JVS(34920) = B(12251) -! JVS(34921) = Jac_FULL(5178,2435) - JVS(34921) = B(4379) -! JVS(34922) = Jac_FULL(5178,2620) - JVS(34922) = B(11496) -! JVS(34923) = Jac_FULL(5178,2702) - JVS(34923) = B(12252) -! JVS(34924) = Jac_FULL(5178,2839) - JVS(34924) = B(4610) -! JVS(34925) = Jac_FULL(5178,2851) - JVS(34925) = B(5019) -! JVS(34926) = Jac_FULL(5178,2882) - JVS(34926) = B(7644) -! JVS(34927) = Jac_FULL(5178,2964) - JVS(34927) = B(4735) -! JVS(34928) = Jac_FULL(5178,2983) - JVS(34928) = B(3806) -! JVS(34929) = Jac_FULL(5178,3310) - JVS(34929) = 0 -! JVS(34930) = Jac_FULL(5178,3312) - JVS(34930) = B(11968) -! JVS(34931) = Jac_FULL(5178,3429) - JVS(34931) = B(4388) -! JVS(34932) = Jac_FULL(5178,3592) - JVS(34932) = B(5009) -! JVS(34933) = Jac_FULL(5178,3889) - JVS(34933) = 0 -! JVS(34934) = Jac_FULL(5178,4114) - JVS(34934) = B(5015) -! JVS(34935) = Jac_FULL(5178,4121) - JVS(34935) = 0 -! JVS(34936) = Jac_FULL(5178,4143) - JVS(34936) = 0 -! JVS(34937) = Jac_FULL(5178,4206) - JVS(34937) = B(7689)+B(7693)+B(7697)+B(7699) -! JVS(34938) = Jac_FULL(5178,4320) - JVS(34938) = B(5020)+B(5022)+B(5024)+B(5026)+B(5028) -! JVS(34939) = Jac_FULL(5178,4522) - JVS(34939) = B(8550)+B(8552)+B(8556)+B(8559) -! JVS(34940) = Jac_FULL(5178,4601) - JVS(34940) = B(519) -! JVS(34941) = Jac_FULL(5178,4634) - JVS(34941) = 0 -! JVS(34942) = Jac_FULL(5178,4771) - JVS(34942) = 0 -! JVS(34943) = Jac_FULL(5178,4777) - JVS(34943) = 0 -! JVS(34944) = Jac_FULL(5178,4837) - JVS(34944) = 0 -! JVS(34945) = Jac_FULL(5178,4878) - JVS(34945) = 0 -! JVS(34946) = Jac_FULL(5178,4959) - JVS(34946) = 0 -! JVS(34947) = Jac_FULL(5178,5012) - JVS(34947) = B(3895) -! JVS(34948) = Jac_FULL(5178,5042) - JVS(34948) = 0 -! JVS(34949) = Jac_FULL(5178,5061) - JVS(34949) = 0 -! JVS(34950) = Jac_FULL(5178,5062) - JVS(34950) = B(1606) -! JVS(34951) = Jac_FULL(5178,5077) - JVS(34951) = 0 -! JVS(34952) = Jac_FULL(5178,5078) - JVS(34952) = 0 -! JVS(34953) = Jac_FULL(5178,5088) - JVS(34953) = 0 -! JVS(34954) = Jac_FULL(5178,5147) - JVS(34954) = 0 -! JVS(34955) = Jac_FULL(5178,5178) - JVS(34955) = -B(814)-B(816)-B(818)-B(820) -! JVS(34956) = Jac_FULL(5178,5238) - JVS(34956) = 0 -! JVS(34957) = Jac_FULL(5178,5250) - JVS(34957) = B(101)-B(815)-B(817)-B(819)+B(4380)+B(4385)+B(4611)+B(4736)+B(7645)+B(11497)+B(11969)+B(12248)+B(12253) -! JVS(34958) = Jac_FULL(5178,5251) - JVS(34958) = B(5021) -! JVS(34959) = Jac_FULL(5178,5252) - JVS(34959) = B(5023)+B(7694)+B(8553) -! JVS(34960) = Jac_FULL(5178,5253) - JVS(34960) = B(5025) -! JVS(34961) = Jac_FULL(5178,5254) - JVS(34961) = B(5027) -! JVS(34962) = Jac_FULL(5178,5255) - JVS(34962) = B(7690)+B(8551) -! JVS(34963) = Jac_FULL(5178,5256) - JVS(34963) = B(7698)+B(8557) -! JVS(34964) = Jac_FULL(5178,5258) - JVS(34964) = B(520) -! JVS(34965) = Jac_FULL(5179,704) - JVS(34965) = B(21989) -! JVS(34966) = Jac_FULL(5179,739) - JVS(34966) = B(22475) -! JVS(34967) = Jac_FULL(5179,760) - JVS(34967) = B(23721) -! JVS(34968) = Jac_FULL(5179,1471) - JVS(34968) = B(19562) -! JVS(34969) = Jac_FULL(5179,1618) - JVS(34969) = B(22478) -! JVS(34970) = Jac_FULL(5179,1925) - JVS(34970) = B(22495) -! JVS(34971) = Jac_FULL(5179,2018) - JVS(34971) = B(22474) -! JVS(34972) = Jac_FULL(5179,2062) - JVS(34972) = 0 -! JVS(34973) = Jac_FULL(5179,2886) - JVS(34973) = B(19564) -! JVS(34974) = Jac_FULL(5179,3006) - JVS(34974) = 0 -! JVS(34975) = Jac_FULL(5179,3337) - JVS(34975) = B(22479)+B(22481) -! JVS(34976) = Jac_FULL(5179,3436) - JVS(34976) = 0 -! JVS(34977) = Jac_FULL(5179,3497) - JVS(34977) = B(19517) -! JVS(34978) = Jac_FULL(5179,4234) - JVS(34978) = 0 -! JVS(34979) = Jac_FULL(5179,4363) - JVS(34979) = 0 -! JVS(34980) = Jac_FULL(5179,4371) - JVS(34980) = 0 -! JVS(34981) = Jac_FULL(5179,4394) - JVS(34981) = 0 -! JVS(34982) = Jac_FULL(5179,4418) - JVS(34982) = 0 -! JVS(34983) = Jac_FULL(5179,4538) - JVS(34983) = 0 -! JVS(34984) = Jac_FULL(5179,4659) - JVS(34984) = 0 -! JVS(34985) = Jac_FULL(5179,4781) - JVS(34985) = 0 -! JVS(34986) = Jac_FULL(5179,4839) - JVS(34986) = 0 -! JVS(34987) = Jac_FULL(5179,4891) - JVS(34987) = 0 -! JVS(34988) = Jac_FULL(5179,4978) - JVS(34988) = 0 -! JVS(34989) = Jac_FULL(5179,4987) - JVS(34989) = 0 -! JVS(34990) = Jac_FULL(5179,5073) - JVS(34990) = 0 -! JVS(34991) = Jac_FULL(5179,5169) - JVS(34991) = 0 -! JVS(34992) = Jac_FULL(5179,5175) - JVS(34992) = 0 -! JVS(34993) = Jac_FULL(5179,5176) - JVS(34993) = 0 -! JVS(34994) = Jac_FULL(5179,5179) - JVS(34994) = -B(17482)-B(17484)-B(17486)-B(17488)-B(17490)-B(17492)-B(17494)-B(17495) -! JVS(34995) = Jac_FULL(5179,5196) - JVS(34995) = 0 -! JVS(34996) = Jac_FULL(5179,5206) - JVS(34996) = 0 -! JVS(34997) = Jac_FULL(5179,5211) - JVS(34997) = B(14928)+B(14930) -! JVS(34998) = Jac_FULL(5179,5212) - JVS(34998) = 0 -! JVS(34999) = Jac_FULL(5179,5245) - JVS(34999) = 0 -! JVS(35000) = Jac_FULL(5179,5247) - JVS(35000) = 0 -! JVS(35001) = Jac_FULL(5179,5250) - JVS(35001) = B(14931)+B(19563)+B(22480) -! JVS(35002) = Jac_FULL(5179,5251) - JVS(35002) = 0 -! JVS(35003) = Jac_FULL(5179,5252) - JVS(35003) = -B(17489) -! JVS(35004) = Jac_FULL(5179,5253) - JVS(35004) = -B(17491) -! JVS(35005) = Jac_FULL(5179,5254) - JVS(35005) = 0 -! JVS(35006) = Jac_FULL(5179,5255) - JVS(35006) = -B(17483)-B(17485)-B(17487) -! JVS(35007) = Jac_FULL(5179,5256) - JVS(35007) = B(14929)-B(17493) -! JVS(35008) = Jac_FULL(5179,5258) - JVS(35008) = 0 -! JVS(35009) = Jac_FULL(5180,1808) - JVS(35009) = B(4012) -! JVS(35010) = Jac_FULL(5180,1849) - JVS(35010) = B(4810) -! JVS(35011) = Jac_FULL(5180,1969) - JVS(35011) = B(13495) -! JVS(35012) = Jac_FULL(5180,2112) - JVS(35012) = B(13517) -! JVS(35013) = Jac_FULL(5180,2162) - JVS(35013) = B(13865) -! JVS(35014) = Jac_FULL(5180,2531) - JVS(35014) = B(13501) -! JVS(35015) = Jac_FULL(5180,2824) - JVS(35015) = B(13497) -! JVS(35016) = Jac_FULL(5180,3198) - JVS(35016) = 0 -! JVS(35017) = Jac_FULL(5180,3351) - JVS(35017) = B(4814) -! JVS(35018) = Jac_FULL(5180,3459) - JVS(35018) = 0 -! JVS(35019) = Jac_FULL(5180,3552) - JVS(35019) = 0 -! JVS(35020) = Jac_FULL(5180,3587) - JVS(35020) = B(4249) -! JVS(35021) = Jac_FULL(5180,4171) - JVS(35021) = B(1994) -! JVS(35022) = Jac_FULL(5180,4516) - JVS(35022) = B(10323)+B(10325)+B(10329)+B(10332) -! JVS(35023) = Jac_FULL(5180,4585) - JVS(35023) = 0 -! JVS(35024) = Jac_FULL(5180,4668) - JVS(35024) = B(13503)+B(13505)+B(13507)+B(13509)+B(13511) -! JVS(35025) = Jac_FULL(5180,4677) - JVS(35025) = B(16516)+B(16518)+B(16520)+B(16522)+B(16524) -! JVS(35026) = Jac_FULL(5180,4732) - JVS(35026) = 0 -! JVS(35027) = Jac_FULL(5180,4932) - JVS(35027) = 0 -! JVS(35028) = Jac_FULL(5180,4945) - JVS(35028) = B(13855) -! JVS(35029) = Jac_FULL(5180,5013) - JVS(35029) = B(10499) -! JVS(35030) = Jac_FULL(5180,5050) - JVS(35030) = B(6628)+B(6633) -! JVS(35031) = Jac_FULL(5180,5124) - JVS(35031) = 0 -! JVS(35032) = Jac_FULL(5180,5153) - JVS(35032) = 0 -! JVS(35033) = Jac_FULL(5180,5154) - JVS(35033) = 0 -! JVS(35034) = Jac_FULL(5180,5173) - JVS(35034) = 0 -! JVS(35035) = Jac_FULL(5180,5180) - JVS(35035) = -B(4815)-B(4817)-B(4819) -! JVS(35036) = Jac_FULL(5180,5181) - JVS(35036) = 0 -! JVS(35037) = Jac_FULL(5180,5194) - JVS(35037) = 0 -! JVS(35038) = Jac_FULL(5180,5217) - JVS(35038) = 0 -! JVS(35039) = Jac_FULL(5180,5218) - JVS(35039) = 0 -! JVS(35040) = Jac_FULL(5180,5219) - JVS(35040) = 0 -! JVS(35041) = Jac_FULL(5180,5230) - JVS(35041) = 0 -! JVS(35042) = Jac_FULL(5180,5250) - JVS(35042) = B(4811)-B(4818)+B(13496)+B(13502)+B(13856) -! JVS(35043) = Jac_FULL(5180,5251) - JVS(35043) = B(13504)+B(16517) -! JVS(35044) = Jac_FULL(5180,5252) - JVS(35044) = B(10326)+B(13506)+B(16519) -! JVS(35045) = Jac_FULL(5180,5253) - JVS(35045) = B(13508)+B(16521) -! JVS(35046) = Jac_FULL(5180,5254) - JVS(35046) = B(13510)+B(16523) -! JVS(35047) = Jac_FULL(5180,5255) - JVS(35047) = B(10324) -! JVS(35048) = Jac_FULL(5180,5256) - JVS(35048) = -B(4816)+B(10330) -! JVS(35049) = Jac_FULL(5180,5258) - JVS(35049) = B(6634)+B(10500) -! JVS(35050) = Jac_FULL(5181,235) - JVS(35050) = B(419)+B(421) -! JVS(35051) = Jac_FULL(5181,5181) - JVS(35051) = -B(1975)-B(1977)-B(1979)-B(1981)-B(1983)-B(1984)-B(1985) -! JVS(35052) = Jac_FULL(5181,5238) - JVS(35052) = B(420) -! JVS(35053) = Jac_FULL(5181,5250) - JVS(35053) = B(422) -! JVS(35054) = Jac_FULL(5181,5252) - JVS(35054) = -B(1978)-B(1980) -! JVS(35055) = Jac_FULL(5181,5255) - JVS(35055) = -B(1976) -! JVS(35056) = Jac_FULL(5181,5256) - JVS(35056) = -B(1982) -! JVS(35057) = Jac_FULL(5182,581) - JVS(35057) = B(22369) -! JVS(35058) = Jac_FULL(5182,618) - JVS(35058) = B(19499) -! JVS(35059) = Jac_FULL(5182,703) - JVS(35059) = B(17190) -! JVS(35060) = Jac_FULL(5182,724) - JVS(35060) = B(17275) -! JVS(35061) = Jac_FULL(5182,733) - JVS(35061) = B(23916) -! JVS(35062) = Jac_FULL(5182,786) - JVS(35062) = B(19043) -! JVS(35063) = Jac_FULL(5182,1732) - JVS(35063) = B(22387) -! JVS(35064) = Jac_FULL(5182,1814) - JVS(35064) = B(23149) -! JVS(35065) = Jac_FULL(5182,1843) - JVS(35065) = B(17191) -! JVS(35066) = Jac_FULL(5182,1868) - JVS(35066) = 0 -! JVS(35067) = Jac_FULL(5182,1900) - JVS(35067) = 0 -! JVS(35068) = Jac_FULL(5182,1901) - JVS(35068) = 0 -! JVS(35069) = Jac_FULL(5182,1913) - JVS(35069) = B(17276) -! JVS(35070) = Jac_FULL(5182,1986) - JVS(35070) = B(22716) -! JVS(35071) = Jac_FULL(5182,2154) - JVS(35071) = B(19500) -! JVS(35072) = Jac_FULL(5182,2404) - JVS(35072) = 0 -! JVS(35073) = Jac_FULL(5182,2439) - JVS(35073) = 0 -! JVS(35074) = Jac_FULL(5182,2450) - JVS(35074) = 0 -! JVS(35075) = Jac_FULL(5182,2629) - JVS(35075) = 2*B(20740) -! JVS(35076) = Jac_FULL(5182,2673) - JVS(35076) = 0 -! JVS(35077) = Jac_FULL(5182,2724) - JVS(35077) = B(22139) -! JVS(35078) = Jac_FULL(5182,2938) - JVS(35078) = B(23507) -! JVS(35079) = Jac_FULL(5182,2941) - JVS(35079) = B(23496) -! JVS(35080) = Jac_FULL(5182,3008) - JVS(35080) = B(21651) -! JVS(35081) = Jac_FULL(5182,3013) - JVS(35081) = B(17637) -! JVS(35082) = Jac_FULL(5182,3081) - JVS(35082) = 2*B(16949) -! JVS(35083) = Jac_FULL(5182,3293) - JVS(35083) = B(23609) -! JVS(35084) = Jac_FULL(5182,3373) - JVS(35084) = B(22685) -! JVS(35085) = Jac_FULL(5182,3415) - JVS(35085) = B(14873) -! JVS(35086) = Jac_FULL(5182,3420) - JVS(35086) = B(22096) -! JVS(35087) = Jac_FULL(5182,3424) - JVS(35087) = B(23506) -! JVS(35088) = Jac_FULL(5182,3724) - JVS(35088) = 0 -! JVS(35089) = Jac_FULL(5182,4119) - JVS(35089) = 0 -! JVS(35090) = Jac_FULL(5182,4128) - JVS(35090) = 0 -! JVS(35091) = Jac_FULL(5182,4162) - JVS(35091) = 0 -! JVS(35092) = Jac_FULL(5182,4172) - JVS(35092) = 0 -! JVS(35093) = Jac_FULL(5182,4173) - JVS(35093) = 0 -! JVS(35094) = Jac_FULL(5182,4176) - JVS(35094) = 0 -! JVS(35095) = Jac_FULL(5182,4196) - JVS(35095) = 0 -! JVS(35096) = Jac_FULL(5182,4354) - JVS(35096) = 0 -! JVS(35097) = Jac_FULL(5182,4410) - JVS(35097) = 0 -! JVS(35098) = Jac_FULL(5182,4497) - JVS(35098) = 0 -! JVS(35099) = Jac_FULL(5182,4510) - JVS(35099) = 0 -! JVS(35100) = Jac_FULL(5182,4560) - JVS(35100) = 0 -! JVS(35101) = Jac_FULL(5182,4748) - JVS(35101) = 0 -! JVS(35102) = Jac_FULL(5182,4762) - JVS(35102) = 0 -! JVS(35103) = Jac_FULL(5182,4764) - JVS(35103) = 0 -! JVS(35104) = Jac_FULL(5182,4768) - JVS(35104) = 0 -! JVS(35105) = Jac_FULL(5182,4812) - JVS(35105) = 0 -! JVS(35106) = Jac_FULL(5182,4814) - JVS(35106) = 0 -! JVS(35107) = Jac_FULL(5182,4818) - JVS(35107) = 0 -! JVS(35108) = Jac_FULL(5182,4863) - JVS(35108) = 0 -! JVS(35109) = Jac_FULL(5182,4882) - JVS(35109) = 0 -! JVS(35110) = Jac_FULL(5182,4914) - JVS(35110) = 0 -! JVS(35111) = Jac_FULL(5182,4989) - JVS(35111) = 0 -! JVS(35112) = Jac_FULL(5182,4996) - JVS(35112) = 0 -! JVS(35113) = Jac_FULL(5182,5004) - JVS(35113) = 0 -! JVS(35114) = Jac_FULL(5182,5014) - JVS(35114) = 0 -! JVS(35115) = Jac_FULL(5182,5021) - JVS(35115) = 0 -! JVS(35116) = Jac_FULL(5182,5028) - JVS(35116) = 0 -! JVS(35117) = Jac_FULL(5182,5029) - JVS(35117) = 0 -! JVS(35118) = Jac_FULL(5182,5041) - JVS(35118) = 0 -! JVS(35119) = Jac_FULL(5182,5052) - JVS(35119) = 0 -! JVS(35120) = Jac_FULL(5182,5056) - JVS(35120) = 0 -! JVS(35121) = Jac_FULL(5182,5072) - JVS(35121) = 0 -! JVS(35122) = Jac_FULL(5182,5081) - JVS(35122) = 0 -! JVS(35123) = Jac_FULL(5182,5084) - JVS(35123) = 0 -! JVS(35124) = Jac_FULL(5182,5114) - JVS(35124) = 0 -! JVS(35125) = Jac_FULL(5182,5122) - JVS(35125) = 0 -! JVS(35126) = Jac_FULL(5182,5175) - JVS(35126) = 0 -! JVS(35127) = Jac_FULL(5182,5181) - JVS(35127) = 0 -! JVS(35128) = Jac_FULL(5182,5182) - JVS(35128) = -B(17413)-B(17414)-B(17416) -! JVS(35129) = Jac_FULL(5182,5198) - JVS(35129) = 0 -! JVS(35130) = Jac_FULL(5182,5207) - JVS(35130) = 0 -! JVS(35131) = Jac_FULL(5182,5213) - JVS(35131) = 0 -! JVS(35132) = Jac_FULL(5182,5215) - JVS(35132) = 0 -! JVS(35133) = Jac_FULL(5182,5238) - JVS(35133) = 0 -! JVS(35134) = Jac_FULL(5182,5240) - JVS(35134) = 0 -! JVS(35135) = Jac_FULL(5182,5248) - JVS(35135) = 0 -! JVS(35136) = Jac_FULL(5182,5249) - JVS(35136) = 0 -! JVS(35137) = Jac_FULL(5182,5250) - JVS(35137) = 2*B(16950)+B(17192)+B(17277)-B(17417)+B(19501)+2*B(20741)+B(21652)+B(22097)+B(22686)+B(23497)+B(23508)& - &+B(23610) -! JVS(35138) = Jac_FULL(5182,5251) - JVS(35138) = 0 -! JVS(35139) = Jac_FULL(5182,5252) - JVS(35139) = 0 -! JVS(35140) = Jac_FULL(5182,5253) - JVS(35140) = 0 -! JVS(35141) = Jac_FULL(5182,5254) - JVS(35141) = 0 -! JVS(35142) = Jac_FULL(5182,5255) - JVS(35142) = 0 -! JVS(35143) = Jac_FULL(5182,5256) - JVS(35143) = -B(17415) -! JVS(35144) = Jac_FULL(5182,5257) - JVS(35144) = 0 -! JVS(35145) = Jac_FULL(5182,5258) - JVS(35145) = 0 -! JVS(35146) = Jac_FULL(5183,564) - JVS(35146) = B(19669) -! JVS(35147) = Jac_FULL(5183,589) - JVS(35147) = B(10303) -! JVS(35148) = Jac_FULL(5183,602) - JVS(35148) = B(15288) -! JVS(35149) = Jac_FULL(5183,745) - JVS(35149) = B(19756) -! JVS(35150) = Jac_FULL(5183,750) - JVS(35150) = B(13480) -! JVS(35151) = Jac_FULL(5183,761) - JVS(35151) = B(7154) -! JVS(35152) = Jac_FULL(5183,987) - JVS(35152) = B(4098) -! JVS(35153) = Jac_FULL(5183,1571) - JVS(35153) = B(19757) -! JVS(35154) = Jac_FULL(5183,1574) - JVS(35154) = B(7023) -! JVS(35155) = Jac_FULL(5183,1576) - JVS(35155) = B(10306) -! JVS(35156) = Jac_FULL(5183,1583) - JVS(35156) = B(9955) -! JVS(35157) = Jac_FULL(5183,1584) - JVS(35157) = B(9956)+B(9958) -! JVS(35158) = Jac_FULL(5183,1638) - JVS(35158) = B(7061) -! JVS(35159) = Jac_FULL(5183,1653) - JVS(35159) = B(11832) -! JVS(35160) = Jac_FULL(5183,1654) - JVS(35160) = B(11831) -! JVS(35161) = Jac_FULL(5183,1690) - JVS(35161) = B(19673) -! JVS(35162) = Jac_FULL(5183,1693) - JVS(35162) = B(11847) -! JVS(35163) = Jac_FULL(5183,1704) - JVS(35163) = B(7147) -! JVS(35164) = Jac_FULL(5183,1711) - JVS(35164) = B(7160) -! JVS(35165) = Jac_FULL(5183,1712) - JVS(35165) = 2*B(7157) -! JVS(35166) = Jac_FULL(5183,1832) - JVS(35166) = B(19670) -! JVS(35167) = Jac_FULL(5183,1839) - JVS(35167) = B(19752) -! JVS(35168) = Jac_FULL(5183,1857) - JVS(35168) = B(10097) -! JVS(35169) = Jac_FULL(5183,1928) - JVS(35169) = B(18337)+B(18338) -! JVS(35170) = Jac_FULL(5183,1968) - JVS(35170) = B(9953) -! JVS(35171) = Jac_FULL(5183,1982) - JVS(35171) = B(22230) -! JVS(35172) = Jac_FULL(5183,2028) - JVS(35172) = B(12293) -! JVS(35173) = Jac_FULL(5183,2137) - JVS(35173) = B(10301) -! JVS(35174) = Jac_FULL(5183,2171) - JVS(35174) = B(21408) -! JVS(35175) = Jac_FULL(5183,2244) - JVS(35175) = B(11827) -! JVS(35176) = Jac_FULL(5183,2263) - JVS(35176) = B(21498) -! JVS(35177) = Jac_FULL(5183,2307) - JVS(35177) = B(13455) -! JVS(35178) = Jac_FULL(5183,2336) - JVS(35178) = B(22283) -! JVS(35179) = Jac_FULL(5183,2358) - JVS(35179) = B(13479) -! JVS(35180) = Jac_FULL(5183,2388) - JVS(35180) = B(22277) -! JVS(35181) = Jac_FULL(5183,2484) - JVS(35181) = B(10022) -! JVS(35182) = Jac_FULL(5183,2485) - JVS(35182) = B(15898) -! JVS(35183) = Jac_FULL(5183,2572) - JVS(35183) = B(7152) -! JVS(35184) = Jac_FULL(5183,2665) - JVS(35184) = B(7073) -! JVS(35185) = Jac_FULL(5183,2692) - JVS(35185) = B(14151) -! JVS(35186) = Jac_FULL(5183,2774) - JVS(35186) = B(7021) -! JVS(35187) = Jac_FULL(5183,2893) - JVS(35187) = B(7059) -! JVS(35188) = Jac_FULL(5183,2932) - JVS(35188) = B(14161) -! JVS(35189) = Jac_FULL(5183,2960) - JVS(35189) = B(22182) -! JVS(35190) = Jac_FULL(5183,2989) - JVS(35190) = B(21645) -! JVS(35191) = Jac_FULL(5183,3003) - JVS(35191) = B(4105) -! JVS(35192) = Jac_FULL(5183,3031) - JVS(35192) = B(14078) -! JVS(35193) = Jac_FULL(5183,3077) - JVS(35193) = 0 -! JVS(35194) = Jac_FULL(5183,3078) - JVS(35194) = B(19665) -! JVS(35195) = Jac_FULL(5183,3086) - JVS(35195) = B(19749) -! JVS(35196) = Jac_FULL(5183,3091) - JVS(35196) = B(4785) -! JVS(35197) = Jac_FULL(5183,3110) - JVS(35197) = B(4795) -! JVS(35198) = Jac_FULL(5183,3117) - JVS(35198) = B(4759) -! JVS(35199) = Jac_FULL(5183,3118) - JVS(35199) = B(4693) -! JVS(35200) = Jac_FULL(5183,3148) - JVS(35200) = B(4747) -! JVS(35201) = Jac_FULL(5183,3166) - JVS(35201) = B(4771) -! JVS(35202) = Jac_FULL(5183,3186) - JVS(35202) = B(6460) -! JVS(35203) = Jac_FULL(5183,3200) - JVS(35203) = B(10309) -! JVS(35204) = Jac_FULL(5183,3230) - JVS(35204) = B(12800) -! JVS(35205) = Jac_FULL(5183,3237) - JVS(35205) = B(18348) -! JVS(35206) = Jac_FULL(5183,3262) - JVS(35206) = B(10188) -! JVS(35207) = Jac_FULL(5183,3271) - JVS(35207) = B(10080) -! JVS(35208) = Jac_FULL(5183,3288) - JVS(35208) = B(7140) -! JVS(35209) = Jac_FULL(5183,3322) - JVS(35209) = B(10005) -! JVS(35210) = Jac_FULL(5183,3345) - JVS(35210) = B(10083)+B(10085) -! JVS(35211) = Jac_FULL(5183,3354) - JVS(35211) = B(12333) -! JVS(35212) = Jac_FULL(5183,3356) - JVS(35212) = B(9354)+B(9356) -! JVS(35213) = Jac_FULL(5183,3357) - JVS(35213) = B(9351) -! JVS(35214) = Jac_FULL(5183,3411) - JVS(35214) = B(10008)+B(10010) -! JVS(35215) = Jac_FULL(5183,3418) - JVS(35215) = 0 -! JVS(35216) = Jac_FULL(5183,3434) - JVS(35216) = B(16436) -! JVS(35217) = Jac_FULL(5183,3451) - JVS(35217) = B(10091) -! JVS(35218) = Jac_FULL(5183,3453) - JVS(35218) = B(15890) -! JVS(35219) = Jac_FULL(5183,3458) - JVS(35219) = B(12842) -! JVS(35220) = Jac_FULL(5183,3473) - JVS(35220) = 0 -! JVS(35221) = Jac_FULL(5183,3504) - JVS(35221) = 0 -! JVS(35222) = Jac_FULL(5183,3609) - JVS(35222) = B(830) -! JVS(35223) = Jac_FULL(5183,3656) - JVS(35223) = B(5002) -! JVS(35224) = Jac_FULL(5183,3702) - JVS(35224) = B(10181) -! JVS(35225) = Jac_FULL(5183,3732) - JVS(35225) = B(20071) -! JVS(35226) = Jac_FULL(5183,3777) - JVS(35226) = B(15189) -! JVS(35227) = Jac_FULL(5183,3831) - JVS(35227) = 0 -! JVS(35228) = Jac_FULL(5183,3843) - JVS(35228) = B(851) -! JVS(35229) = Jac_FULL(5183,3904) - JVS(35229) = 0 -! JVS(35230) = Jac_FULL(5183,3906) - JVS(35230) = B(15194) -! JVS(35231) = Jac_FULL(5183,3917) - JVS(35231) = B(12078) -! JVS(35232) = Jac_FULL(5183,3942) - JVS(35232) = 0 -! JVS(35233) = Jac_FULL(5183,3944) - JVS(35233) = 0 -! JVS(35234) = Jac_FULL(5183,3956) - JVS(35234) = 0 -! JVS(35235) = Jac_FULL(5183,3959) - JVS(35235) = B(3681) -! JVS(35236) = Jac_FULL(5183,3968) - JVS(35236) = B(20243) -! JVS(35237) = Jac_FULL(5183,4017) - JVS(35237) = B(2988) -! JVS(35238) = Jac_FULL(5183,4018) - JVS(35238) = B(2940) -! JVS(35239) = Jac_FULL(5183,4032) - JVS(35239) = B(2590) -! JVS(35240) = Jac_FULL(5183,4047) - JVS(35240) = B(12784) -! JVS(35241) = Jac_FULL(5183,4076) - JVS(35241) = 0 -! JVS(35242) = Jac_FULL(5183,4080) - JVS(35242) = B(2864) -! JVS(35243) = Jac_FULL(5183,4081) - JVS(35243) = B(5730)+B(5731) -! JVS(35244) = Jac_FULL(5183,4102) - JVS(35244) = B(21388)+B(21392)+B(21396)+B(21398) -! JVS(35245) = Jac_FULL(5183,4103) - JVS(35245) = B(12096) -! JVS(35246) = Jac_FULL(5183,4118) - JVS(35246) = 0 -! JVS(35247) = Jac_FULL(5183,4122) - JVS(35247) = B(12114) -! JVS(35248) = Jac_FULL(5183,4164) - JVS(35248) = B(12150) -! JVS(35249) = Jac_FULL(5183,4168) - JVS(35249) = B(10239)+B(10241)+B(10245)+B(10247) -! JVS(35250) = Jac_FULL(5183,4175) - JVS(35250) = B(21464)+B(21466) -! JVS(35251) = Jac_FULL(5183,4179) - JVS(35251) = B(12132) -! JVS(35252) = Jac_FULL(5183,4184) - JVS(35252) = 0 -! JVS(35253) = Jac_FULL(5183,4191) - JVS(35253) = 0 -! JVS(35254) = Jac_FULL(5183,4199) - JVS(35254) = B(15895) -! JVS(35255) = Jac_FULL(5183,4272) - JVS(35255) = B(2895) -! JVS(35256) = Jac_FULL(5183,4311) - JVS(35256) = 0 -! JVS(35257) = Jac_FULL(5183,4365) - JVS(35257) = 0 -! JVS(35258) = Jac_FULL(5183,4367) - JVS(35258) = 0 -! JVS(35259) = Jac_FULL(5183,4369) - JVS(35259) = 0 -! JVS(35260) = Jac_FULL(5183,4401) - JVS(35260) = B(13422) -! JVS(35261) = Jac_FULL(5183,4403) - JVS(35261) = B(12846)+B(12848) -! JVS(35262) = Jac_FULL(5183,4404) - JVS(35262) = B(20087)+B(20091)+B(20095)+B(20097) -! JVS(35263) = Jac_FULL(5183,4413) - JVS(35263) = 0 -! JVS(35264) = Jac_FULL(5183,4434) - JVS(35264) = 0 -! JVS(35265) = Jac_FULL(5183,4435) - JVS(35265) = 0 -! JVS(35266) = Jac_FULL(5183,4441) - JVS(35266) = B(20246)+B(20250)+B(20254)+B(20256) -! JVS(35267) = Jac_FULL(5183,4445) - JVS(35267) = B(21504)+B(21506)+B(21510)+B(21512) -! JVS(35268) = Jac_FULL(5183,4455) - JVS(35268) = 0 -! JVS(35269) = Jac_FULL(5183,4463) - JVS(35269) = 0 -! JVS(35270) = Jac_FULL(5183,4476) - JVS(35270) = 0 -! JVS(35271) = Jac_FULL(5183,4499) - JVS(35271) = 0 -! JVS(35272) = Jac_FULL(5183,4534) - JVS(35272) = B(16361) -! JVS(35273) = Jac_FULL(5183,4535) - JVS(35273) = 0 -! JVS(35274) = Jac_FULL(5183,4574) - JVS(35274) = 0 -! JVS(35275) = Jac_FULL(5183,4579) - JVS(35275) = 0 -! JVS(35276) = Jac_FULL(5183,4583) - JVS(35276) = 0 -! JVS(35277) = Jac_FULL(5183,4584) - JVS(35277) = 0 -! JVS(35278) = Jac_FULL(5183,4618) - JVS(35278) = B(7054) -! JVS(35279) = Jac_FULL(5183,4631) - JVS(35279) = 0 -! JVS(35280) = Jac_FULL(5183,4632) - JVS(35280) = 0 -! JVS(35281) = Jac_FULL(5183,4645) - JVS(35281) = 0 -! JVS(35282) = Jac_FULL(5183,4654) - JVS(35282) = 0 -! JVS(35283) = Jac_FULL(5183,4663) - JVS(35283) = 0 -! JVS(35284) = Jac_FULL(5183,4682) - JVS(35284) = 0 -! JVS(35285) = Jac_FULL(5183,4701) - JVS(35285) = 0 -! JVS(35286) = Jac_FULL(5183,4703) - JVS(35286) = 0 -! JVS(35287) = Jac_FULL(5183,4714) - JVS(35287) = 0 -! JVS(35288) = Jac_FULL(5183,4716) - JVS(35288) = 0 -! JVS(35289) = Jac_FULL(5183,4719) - JVS(35289) = 0 -! JVS(35290) = Jac_FULL(5183,4725) - JVS(35290) = 0 -! JVS(35291) = Jac_FULL(5183,4727) - JVS(35291) = 0 -! JVS(35292) = Jac_FULL(5183,4728) - JVS(35292) = B(12851) -! JVS(35293) = Jac_FULL(5183,4731) - JVS(35293) = 0 -! JVS(35294) = Jac_FULL(5183,4736) - JVS(35294) = B(4555) -! JVS(35295) = Jac_FULL(5183,4766) - JVS(35295) = 0 -! JVS(35296) = Jac_FULL(5183,4767) - JVS(35296) = 0 -! JVS(35297) = Jac_FULL(5183,4769) - JVS(35297) = 0 -! JVS(35298) = Jac_FULL(5183,4782) - JVS(35298) = 0 -! JVS(35299) = Jac_FULL(5183,4787) - JVS(35299) = 0 -! JVS(35300) = Jac_FULL(5183,4799) - JVS(35300) = 0 -! JVS(35301) = Jac_FULL(5183,4804) - JVS(35301) = 0 -! JVS(35302) = Jac_FULL(5183,4813) - JVS(35302) = 0 -! JVS(35303) = Jac_FULL(5183,4852) - JVS(35303) = 0 -! JVS(35304) = Jac_FULL(5183,4858) - JVS(35304) = 0 -! JVS(35305) = Jac_FULL(5183,4865) - JVS(35305) = B(13483) -! JVS(35306) = Jac_FULL(5183,4876) - JVS(35306) = 0 -! JVS(35307) = Jac_FULL(5183,4877) - JVS(35307) = 0 -! JVS(35308) = Jac_FULL(5183,4880) - JVS(35308) = 0 -! JVS(35309) = Jac_FULL(5183,4897) - JVS(35309) = 0 -! JVS(35310) = Jac_FULL(5183,4905) - JVS(35310) = 0 -! JVS(35311) = Jac_FULL(5183,4920) - JVS(35311) = 0 -! JVS(35312) = Jac_FULL(5183,4933) - JVS(35312) = 0 -! JVS(35313) = Jac_FULL(5183,4966) - JVS(35313) = 0 -! JVS(35314) = Jac_FULL(5183,4977) - JVS(35314) = 0 -! JVS(35315) = Jac_FULL(5183,4990) - JVS(35315) = 0 -! JVS(35316) = Jac_FULL(5183,4992) - JVS(35316) = 0 -! JVS(35317) = Jac_FULL(5183,5034) - JVS(35317) = 0 -! JVS(35318) = Jac_FULL(5183,5051) - JVS(35318) = 0 -! JVS(35319) = Jac_FULL(5183,5053) - JVS(35319) = 0 -! JVS(35320) = Jac_FULL(5183,5065) - JVS(35320) = 0 -! JVS(35321) = Jac_FULL(5183,5070) - JVS(35321) = 0 -! JVS(35322) = Jac_FULL(5183,5103) - JVS(35322) = B(10064) -! JVS(35323) = Jac_FULL(5183,5107) - JVS(35323) = 0 -! JVS(35324) = Jac_FULL(5183,5108) - JVS(35324) = 0 -! JVS(35325) = Jac_FULL(5183,5112) - JVS(35325) = 0 -! JVS(35326) = Jac_FULL(5183,5117) - JVS(35326) = 0 -! JVS(35327) = Jac_FULL(5183,5119) - JVS(35327) = 0 -! JVS(35328) = Jac_FULL(5183,5126) - JVS(35328) = 0 -! JVS(35329) = Jac_FULL(5183,5135) - JVS(35329) = 0 -! JVS(35330) = Jac_FULL(5183,5137) - JVS(35330) = 0 -! JVS(35331) = Jac_FULL(5183,5138) - JVS(35331) = 0 -! JVS(35332) = Jac_FULL(5183,5139) - JVS(35332) = B(7024)+B(7025)+B(7027) -! JVS(35333) = Jac_FULL(5183,5140) - JVS(35333) = B(11754) -! JVS(35334) = Jac_FULL(5183,5141) - JVS(35334) = 0 -! JVS(35335) = Jac_FULL(5183,5143) - JVS(35335) = 0 -! JVS(35336) = Jac_FULL(5183,5144) - JVS(35336) = 0 -! JVS(35337) = Jac_FULL(5183,5147) - JVS(35337) = 0 -! JVS(35338) = Jac_FULL(5183,5149) - JVS(35338) = 0 -! JVS(35339) = Jac_FULL(5183,5157) - JVS(35339) = B(7103) -! JVS(35340) = Jac_FULL(5183,5161) - JVS(35340) = 0 -! JVS(35341) = Jac_FULL(5183,5162) - JVS(35341) = 0 -! JVS(35342) = Jac_FULL(5183,5165) - JVS(35342) = 0 -! JVS(35343) = Jac_FULL(5183,5178) - JVS(35343) = 0 -! JVS(35344) = Jac_FULL(5183,5183) - JVS(35344) = -B(1304)-B(1306)-B(1308)-B(1310)-B(1312)-B(1314)-B(1316)-B(1317) -! JVS(35345) = Jac_FULL(5183,5185) - JVS(35345) = 0 -! JVS(35346) = Jac_FULL(5183,5186) - JVS(35346) = 0 -! JVS(35347) = Jac_FULL(5183,5191) - JVS(35347) = B(184)+B(186) -! JVS(35348) = Jac_FULL(5183,5192) - JVS(35348) = 0 -! JVS(35349) = Jac_FULL(5183,5208) - JVS(35349) = 0 -! JVS(35350) = Jac_FULL(5183,5238) - JVS(35350) = 0 -! JVS(35351) = Jac_FULL(5183,5250) - JVS(35351) = B(187)+B(4099)+B(7028)+B(9355)+B(9957)+B(10009)+B(10084)+B(12801)+B(12847)+B(20072)+B(20244)+B(21465) -! JVS(35352) = Jac_FULL(5183,5251) - JVS(35352) = 0 -! JVS(35353) = Jac_FULL(5183,5252) - JVS(35353) = -B(1311)+B(10242)+B(20092)+B(20251)+B(21393)+B(21507) -! JVS(35354) = Jac_FULL(5183,5253) - JVS(35354) = -B(1313) -! JVS(35355) = Jac_FULL(5183,5254) - JVS(35355) = 0 -! JVS(35356) = Jac_FULL(5183,5255) - JVS(35356) = -B(1305)-B(1307)-B(1309)+B(10240)+B(20088)+B(20247)+B(21389)+B(21505) -! JVS(35357) = Jac_FULL(5183,5256) - JVS(35357) = B(185)-B(1315)+B(7026)+B(10246)+B(20096)+B(20255)+B(21397)+B(21511) -! JVS(35358) = Jac_FULL(5183,5258) - JVS(35358) = 0 -! JVS(35359) = Jac_FULL(5184,416) - JVS(35359) = B(3653) -! JVS(35360) = Jac_FULL(5184,544) - JVS(35360) = B(23945) -! JVS(35361) = Jac_FULL(5184,1679) - JVS(35361) = B(3647) -! JVS(35362) = Jac_FULL(5184,1931) - JVS(35362) = B(23218) -! JVS(35363) = Jac_FULL(5184,1961) - JVS(35363) = B(21045) -! JVS(35364) = Jac_FULL(5184,2116) - JVS(35364) = B(21636) -! JVS(35365) = Jac_FULL(5184,2306) - JVS(35365) = B(3645) -! JVS(35366) = Jac_FULL(5184,2437) - JVS(35366) = B(23944) -! JVS(35367) = Jac_FULL(5184,2456) - JVS(35367) = B(3642) -! JVS(35368) = Jac_FULL(5184,2571) - JVS(35368) = B(23530) -! JVS(35369) = Jac_FULL(5184,2745) - JVS(35369) = B(11460) -! JVS(35370) = Jac_FULL(5184,2784) - JVS(35370) = B(21640) -! JVS(35371) = Jac_FULL(5184,2786) - JVS(35371) = B(17459) -! JVS(35372) = Jac_FULL(5184,2908) - JVS(35372) = 0 -! JVS(35373) = Jac_FULL(5184,2909) - JVS(35373) = B(19464) -! JVS(35374) = Jac_FULL(5184,2965) - JVS(35374) = B(22745) -! JVS(35375) = Jac_FULL(5184,2972) - JVS(35375) = B(19000) -! JVS(35376) = Jac_FULL(5184,3602) - JVS(35376) = B(11463) -! JVS(35377) = Jac_FULL(5184,3861) - JVS(35377) = B(19001) -! JVS(35378) = Jac_FULL(5184,3890) - JVS(35378) = 0 -! JVS(35379) = Jac_FULL(5184,3901) - JVS(35379) = 0 -! JVS(35380) = Jac_FULL(5184,3902) - JVS(35380) = 0 -! JVS(35381) = Jac_FULL(5184,3951) - JVS(35381) = 0 -! JVS(35382) = Jac_FULL(5184,4116) - JVS(35382) = 0 -! JVS(35383) = Jac_FULL(5184,4230) - JVS(35383) = B(20574)+B(20576)+B(20580)+B(20582) -! JVS(35384) = Jac_FULL(5184,4348) - JVS(35384) = 0 -! JVS(35385) = Jac_FULL(5184,4374) - JVS(35385) = 0 -! JVS(35386) = Jac_FULL(5184,4673) - JVS(35386) = 0 -! JVS(35387) = Jac_FULL(5184,4962) - JVS(35387) = 0 -! JVS(35388) = Jac_FULL(5184,4995) - JVS(35388) = B(941) -! JVS(35389) = Jac_FULL(5184,5041) - JVS(35389) = 0 -! JVS(35390) = Jac_FULL(5184,5054) - JVS(35390) = 0 -! JVS(35391) = Jac_FULL(5184,5081) - JVS(35391) = 0 -! JVS(35392) = Jac_FULL(5184,5104) - JVS(35392) = 0 -! JVS(35393) = Jac_FULL(5184,5114) - JVS(35393) = 0 -! JVS(35394) = Jac_FULL(5184,5140) - JVS(35394) = 0 -! JVS(35395) = Jac_FULL(5184,5148) - JVS(35395) = 0 -! JVS(35396) = Jac_FULL(5184,5150) - JVS(35396) = 0 -! JVS(35397) = Jac_FULL(5184,5163) - JVS(35397) = 0 -! JVS(35398) = Jac_FULL(5184,5175) - JVS(35398) = 0 -! JVS(35399) = Jac_FULL(5184,5181) - JVS(35399) = 0 -! JVS(35400) = Jac_FULL(5184,5184) - JVS(35400) = -B(3648)-B(3649)-B(3651) -! JVS(35401) = Jac_FULL(5184,5185) - JVS(35401) = 0 -! JVS(35402) = Jac_FULL(5184,5186) - JVS(35402) = 0 -! JVS(35403) = Jac_FULL(5184,5187) - JVS(35403) = 0 -! JVS(35404) = Jac_FULL(5184,5192) - JVS(35404) = 0 -! JVS(35405) = Jac_FULL(5184,5206) - JVS(35405) = 0 -! JVS(35406) = Jac_FULL(5184,5207) - JVS(35406) = 0 -! JVS(35407) = Jac_FULL(5184,5208) - JVS(35407) = 0 -! JVS(35408) = Jac_FULL(5184,5229) - JVS(35408) = 0 -! JVS(35409) = Jac_FULL(5184,5238) - JVS(35409) = 0 -! JVS(35410) = Jac_FULL(5184,5248) - JVS(35410) = 0 -! JVS(35411) = Jac_FULL(5184,5249) - JVS(35411) = 0 -! JVS(35412) = Jac_FULL(5184,5250) - JVS(35412) = B(3643)+B(3646)-B(3652)+B(3654)+B(17460)+B(19465)+B(21641)+B(22746)+B(23531) -! JVS(35413) = Jac_FULL(5184,5252) - JVS(35413) = B(20577) -! JVS(35414) = Jac_FULL(5184,5253) - JVS(35414) = 0 -! JVS(35415) = Jac_FULL(5184,5255) - JVS(35415) = B(20575) -! JVS(35416) = Jac_FULL(5184,5256) - JVS(35416) = -B(3650)+B(20581) -! JVS(35417) = Jac_FULL(5184,5257) - JVS(35417) = 0 -! JVS(35418) = Jac_FULL(5184,5258) - JVS(35418) = 0 -! JVS(35419) = Jac_FULL(5185,376) - JVS(35419) = B(17548) -! JVS(35420) = Jac_FULL(5185,1448) - JVS(35420) = B(17550) -! JVS(35421) = Jac_FULL(5185,1596) - JVS(35421) = B(114) -! JVS(35422) = Jac_FULL(5185,2391) - JVS(35422) = B(3747) -! JVS(35423) = Jac_FULL(5185,3382) - JVS(35423) = B(12003) -! JVS(35424) = Jac_FULL(5185,3917) - JVS(35424) = B(12078) -! JVS(35425) = Jac_FULL(5185,4623) - JVS(35425) = B(14982)+B(14984)+B(14988)+B(14991) -! JVS(35426) = Jac_FULL(5185,4876) - JVS(35426) = 0 -! JVS(35427) = Jac_FULL(5185,5108) - JVS(35427) = 0 -! JVS(35428) = Jac_FULL(5185,5115) - JVS(35428) = B(11784) -! JVS(35429) = Jac_FULL(5185,5138) - JVS(35429) = 0 -! JVS(35430) = Jac_FULL(5185,5144) - JVS(35430) = 0 -! JVS(35431) = Jac_FULL(5185,5185) - JVS(35431) = -B(1031)-B(1033)-B(1035)-B(1037)-B(1039)-B(1040)-B(1041) -! JVS(35432) = Jac_FULL(5185,5186) - JVS(35432) = 0 -! JVS(35433) = Jac_FULL(5185,5238) - JVS(35433) = 0 -! JVS(35434) = Jac_FULL(5185,5250) - JVS(35434) = B(115)+B(3748)+B(17549) -! JVS(35435) = Jac_FULL(5185,5252) - JVS(35435) = -B(1034)-B(1036)+B(14985) -! JVS(35436) = Jac_FULL(5185,5253) - JVS(35436) = 0 -! JVS(35437) = Jac_FULL(5185,5255) - JVS(35437) = -B(1032)+B(14983) -! JVS(35438) = Jac_FULL(5185,5256) - JVS(35438) = -B(1038)+B(14989) -! JVS(35439) = Jac_FULL(5186,1709) - JVS(35439) = B(323)+B(329) -! JVS(35440) = Jac_FULL(5186,5186) - JVS(35440) = -B(1727)-B(1729)-B(1731)-B(1733)-B(1735)-B(1736)-B(1737) -! JVS(35441) = Jac_FULL(5186,5238) - JVS(35441) = B(324) -! JVS(35442) = Jac_FULL(5186,5250) - JVS(35442) = B(330) -! JVS(35443) = Jac_FULL(5186,5252) - JVS(35443) = -B(1730)-B(1732) -! JVS(35444) = Jac_FULL(5186,5255) - JVS(35444) = -B(1728) -! JVS(35445) = Jac_FULL(5186,5256) - JVS(35445) = -B(1734) -! JVS(35446) = Jac_FULL(5187,2890) - JVS(35446) = B(22568) -! JVS(35447) = Jac_FULL(5187,4098) - JVS(35447) = 0 -! JVS(35448) = Jac_FULL(5187,4953) - JVS(35448) = 0 -! JVS(35449) = Jac_FULL(5187,5187) - JVS(35449) = -B(22982)-B(22984)-B(22986)-B(22988)-B(22990)-B(22992) -! JVS(35450) = Jac_FULL(5187,5250) - JVS(35450) = -B(22991)-B(22993) -! JVS(35451) = Jac_FULL(5187,5252) - JVS(35451) = 0 -! JVS(35452) = Jac_FULL(5187,5253) - JVS(35452) = 0 -! JVS(35453) = Jac_FULL(5187,5255) - JVS(35453) = 0 -! JVS(35454) = Jac_FULL(5187,5256) - JVS(35454) = -B(22983)-B(22985) -! JVS(35455) = Jac_FULL(5187,5258) - JVS(35455) = -B(22987)-B(22989) -! JVS(35456) = Jac_FULL(5188,567) - JVS(35456) = B(23951)+B(23953) -! JVS(35457) = Jac_FULL(5188,648) - JVS(35457) = B(23950) -! JVS(35458) = Jac_FULL(5188,704) - JVS(35458) = B(21989) -! JVS(35459) = Jac_FULL(5188,1603) - JVS(35459) = B(18780) -! JVS(35460) = Jac_FULL(5188,1625) - JVS(35460) = B(18777) -! JVS(35461) = Jac_FULL(5188,1684) - JVS(35461) = B(16484) -! JVS(35462) = Jac_FULL(5188,1748) - JVS(35462) = B(16586) -! JVS(35463) = Jac_FULL(5188,1899) - JVS(35463) = B(3655) -! JVS(35464) = Jac_FULL(5188,1926) - JVS(35464) = B(23949) -! JVS(35465) = Jac_FULL(5188,1967) - JVS(35465) = B(16612) -! JVS(35466) = Jac_FULL(5188,2004) - JVS(35466) = B(4302) -! JVS(35467) = Jac_FULL(5188,2062) - JVS(35467) = 0 -! JVS(35468) = Jac_FULL(5188,2138) - JVS(35468) = B(16546) -! JVS(35469) = Jac_FULL(5188,2162) - JVS(35469) = B(13865) -! JVS(35470) = Jac_FULL(5188,2421) - JVS(35470) = B(155) -! JVS(35471) = Jac_FULL(5188,2489) - JVS(35471) = B(13727)+B(13728) -! JVS(35472) = Jac_FULL(5188,2616) - JVS(35472) = B(16548) -! JVS(35473) = Jac_FULL(5188,2790) - JVS(35473) = B(11452) -! JVS(35474) = Jac_FULL(5188,2814) - JVS(35474) = B(17562) -! JVS(35475) = Jac_FULL(5188,3064) - JVS(35475) = B(16560) -! JVS(35476) = Jac_FULL(5188,3080) - JVS(35476) = B(13883) -! JVS(35477) = Jac_FULL(5188,3106) - JVS(35477) = B(3804) -! JVS(35478) = Jac_FULL(5188,3160) - JVS(35478) = B(16682) -! JVS(35479) = Jac_FULL(5188,3245) - JVS(35479) = B(3661) -! JVS(35480) = Jac_FULL(5188,3273) - JVS(35480) = 0 -! JVS(35481) = Jac_FULL(5188,3275) - JVS(35481) = B(19025) -! JVS(35482) = Jac_FULL(5188,3286) - JVS(35482) = B(16607) -! JVS(35483) = Jac_FULL(5188,3326) - JVS(35483) = B(11664) -! JVS(35484) = Jac_FULL(5188,3330) - JVS(35484) = B(4293)+B(4295) -! JVS(35485) = Jac_FULL(5188,3334) - JVS(35485) = B(11656) -! JVS(35486) = Jac_FULL(5188,3443) - JVS(35486) = B(16559) -! JVS(35487) = Jac_FULL(5188,3448) - JVS(35487) = B(4269) -! JVS(35488) = Jac_FULL(5188,3550) - JVS(35488) = B(16671) -! JVS(35489) = Jac_FULL(5188,3552) - JVS(35489) = 0 -! JVS(35490) = Jac_FULL(5188,3625) - JVS(35490) = 0 -! JVS(35491) = Jac_FULL(5188,3628) - JVS(35491) = 0 -! JVS(35492) = Jac_FULL(5188,3635) - JVS(35492) = B(16589) -! JVS(35493) = Jac_FULL(5188,3700) - JVS(35493) = B(16666) -! JVS(35494) = Jac_FULL(5188,3801) - JVS(35494) = 0 -! JVS(35495) = Jac_FULL(5188,3835) - JVS(35495) = 0 -! JVS(35496) = Jac_FULL(5188,3993) - JVS(35496) = B(4303) -! JVS(35497) = Jac_FULL(5188,4066) - JVS(35497) = 0 -! JVS(35498) = Jac_FULL(5188,4256) - JVS(35498) = B(13880) -! JVS(35499) = Jac_FULL(5188,4330) - JVS(35499) = B(4278) -! JVS(35500) = Jac_FULL(5188,4343) - JVS(35500) = 0 -! JVS(35501) = Jac_FULL(5188,4351) - JVS(35501) = 0 -! JVS(35502) = Jac_FULL(5188,4538) - JVS(35502) = 0 -! JVS(35503) = Jac_FULL(5188,4551) - JVS(35503) = B(16526)+B(16528)+B(16530)+B(16532)+B(16534) -! JVS(35504) = Jac_FULL(5188,4561) - JVS(35504) = 0 -! JVS(35505) = Jac_FULL(5188,4615) - JVS(35505) = 0 -! JVS(35506) = Jac_FULL(5188,4777) - JVS(35506) = 0 -! JVS(35507) = Jac_FULL(5188,4781) - JVS(35507) = 0 -! JVS(35508) = Jac_FULL(5188,4783) - JVS(35508) = 0 -! JVS(35509) = Jac_FULL(5188,4837) - JVS(35509) = 0 -! JVS(35510) = Jac_FULL(5188,4891) - JVS(35510) = 0 -! JVS(35511) = Jac_FULL(5188,4894) - JVS(35511) = 0 -! JVS(35512) = Jac_FULL(5188,4936) - JVS(35512) = B(1527) -! JVS(35513) = Jac_FULL(5188,4945) - JVS(35513) = B(13855) -! JVS(35514) = Jac_FULL(5188,4949) - JVS(35514) = 0 -! JVS(35515) = Jac_FULL(5188,5002) - JVS(35515) = B(10592) -! JVS(35516) = Jac_FULL(5188,5010) - JVS(35516) = 0 -! JVS(35517) = Jac_FULL(5188,5013) - JVS(35517) = B(10497) -! JVS(35518) = Jac_FULL(5188,5015) - JVS(35518) = 0 -! JVS(35519) = Jac_FULL(5188,5022) - JVS(35519) = 0 -! JVS(35520) = Jac_FULL(5188,5025) - JVS(35520) = B(13692)+B(13698)+B(13702)+B(13704) -! JVS(35521) = Jac_FULL(5188,5027) - JVS(35521) = 0 -! JVS(35522) = Jac_FULL(5188,5035) - JVS(35522) = 0 -! JVS(35523) = Jac_FULL(5188,5040) - JVS(35523) = 0 -! JVS(35524) = Jac_FULL(5188,5071) - JVS(35524) = 0 -! JVS(35525) = Jac_FULL(5188,5074) - JVS(35525) = 0 -! JVS(35526) = Jac_FULL(5188,5079) - JVS(35526) = 0 -! JVS(35527) = Jac_FULL(5188,5082) - JVS(35527) = 0 -! JVS(35528) = Jac_FULL(5188,5097) - JVS(35528) = 0 -! JVS(35529) = Jac_FULL(5188,5116) - JVS(35529) = 0 -! JVS(35530) = Jac_FULL(5188,5118) - JVS(35530) = 0 -! JVS(35531) = Jac_FULL(5188,5119) - JVS(35531) = 0 -! JVS(35532) = Jac_FULL(5188,5121) - JVS(35532) = B(947) -! JVS(35533) = Jac_FULL(5188,5128) - JVS(35533) = 0 -! JVS(35534) = Jac_FULL(5188,5132) - JVS(35534) = 0 -! JVS(35535) = Jac_FULL(5188,5134) - JVS(35535) = 0 -! JVS(35536) = Jac_FULL(5188,5147) - JVS(35536) = 0 -! JVS(35537) = Jac_FULL(5188,5154) - JVS(35537) = 0 -! JVS(35538) = Jac_FULL(5188,5155) - JVS(35538) = B(7922)+B(7928)+B(7932)+B(7934) -! JVS(35539) = Jac_FULL(5188,5166) - JVS(35539) = 0 -! JVS(35540) = Jac_FULL(5188,5168) - JVS(35540) = 0 -! JVS(35541) = Jac_FULL(5188,5173) - JVS(35541) = 0 -! JVS(35542) = Jac_FULL(5188,5187) - JVS(35542) = 0 -! JVS(35543) = Jac_FULL(5188,5188) - JVS(35543) = -B(1222)-B(1224) -! JVS(35544) = Jac_FULL(5188,5189) - JVS(35544) = 0 -! JVS(35545) = Jac_FULL(5188,5200) - JVS(35545) = 0 -! JVS(35546) = Jac_FULL(5188,5202) - JVS(35546) = 0 -! JVS(35547) = Jac_FULL(5188,5203) - JVS(35547) = 0 -! JVS(35548) = Jac_FULL(5188,5204) - JVS(35548) = 0 -! JVS(35549) = Jac_FULL(5188,5205) - JVS(35549) = B(10525)+B(10529) -! JVS(35550) = Jac_FULL(5188,5212) - JVS(35550) = 0 -! JVS(35551) = Jac_FULL(5188,5217) - JVS(35551) = 0 -! JVS(35552) = Jac_FULL(5188,5218) - JVS(35552) = 0 -! JVS(35553) = Jac_FULL(5188,5219) - JVS(35553) = 0 -! JVS(35554) = Jac_FULL(5188,5221) - JVS(35554) = B(4301) -! JVS(35555) = Jac_FULL(5188,5224) - JVS(35555) = 0 -! JVS(35556) = Jac_FULL(5188,5226) - JVS(35556) = 0 -! JVS(35557) = Jac_FULL(5188,5229) - JVS(35557) = 0 -! JVS(35558) = Jac_FULL(5188,5238) - JVS(35558) = 0 -! JVS(35559) = Jac_FULL(5188,5241) - JVS(35559) = B(3204) -! JVS(35560) = Jac_FULL(5188,5245) - JVS(35560) = 0 -! JVS(35561) = Jac_FULL(5188,5250) - JVS(35561) = B(156)-B(1223)+B(3656)+B(3662)+B(3805)+B(4270)+B(4279)+B(4296)+B(11453)+B(11657)+B(13856)+B(16547)& - &+B(17563)+B(19026)+B(23952) -! JVS(35562) = Jac_FULL(5188,5251) - JVS(35562) = B(16527) -! JVS(35563) = Jac_FULL(5188,5252) - JVS(35563) = B(7929)+B(13699)+B(16529) -! JVS(35564) = Jac_FULL(5188,5253) - JVS(35564) = B(16531) -! JVS(35565) = Jac_FULL(5188,5254) - JVS(35565) = B(16533) -! JVS(35566) = Jac_FULL(5188,5255) - JVS(35566) = B(7923)+B(13693) -! JVS(35567) = Jac_FULL(5188,5256) - JVS(35567) = B(7933)+B(13703) -! JVS(35568) = Jac_FULL(5188,5258) - JVS(35568) = B(10498)+B(10530) -! JVS(35569) = Jac_FULL(5189,465) - JVS(35569) = B(21963) -! JVS(35570) = Jac_FULL(5189,1126) - JVS(35570) = B(21943) -! JVS(35571) = Jac_FULL(5189,2072) - JVS(35571) = B(21946) -! JVS(35572) = Jac_FULL(5189,2073) - JVS(35572) = B(21949) -! JVS(35573) = Jac_FULL(5189,2651) - JVS(35573) = B(20932) -! JVS(35574) = Jac_FULL(5189,4059) - JVS(35574) = B(20892) -! JVS(35575) = Jac_FULL(5189,5006) - JVS(35575) = 0 -! JVS(35576) = Jac_FULL(5189,5083) - JVS(35576) = 0 -! JVS(35577) = Jac_FULL(5189,5084) - JVS(35577) = 0 -! JVS(35578) = Jac_FULL(5189,5095) - JVS(35578) = 0 -! JVS(35579) = Jac_FULL(5189,5175) - JVS(35579) = 0 -! JVS(35580) = Jac_FULL(5189,5189) - JVS(35580) = -B(21950)-B(21952)-B(21954)-B(21956)-B(21958)-B(21960)-B(21962) -! JVS(35581) = Jac_FULL(5189,5236) - JVS(35581) = 0 -! JVS(35582) = Jac_FULL(5189,5250) - JVS(35582) = B(20933)+B(21944)+B(21947)-B(21959)-B(21961)+B(21964) -! JVS(35583) = Jac_FULL(5189,5252) - JVS(35583) = 0 -! JVS(35584) = Jac_FULL(5189,5253) - JVS(35584) = 0 -! JVS(35585) = Jac_FULL(5189,5255) - JVS(35585) = 0 -! JVS(35586) = Jac_FULL(5189,5256) - JVS(35586) = -B(21951)-B(21953) -! JVS(35587) = Jac_FULL(5189,5258) - JVS(35587) = -B(21955)-B(21957) -! JVS(35588) = Jac_FULL(5190,3689) - JVS(35588) = B(863) -! JVS(35589) = Jac_FULL(5190,5181) - JVS(35589) = 0 -! JVS(35590) = Jac_FULL(5190,5190) - JVS(35590) = -B(477)-B(479)-B(481)-B(483)-B(485)-B(487) -! JVS(35591) = Jac_FULL(5190,5238) - JVS(35591) = 0 -! JVS(35592) = Jac_FULL(5190,5250) - JVS(35592) = -B(486)-B(488) -! JVS(35593) = Jac_FULL(5190,5252) - JVS(35593) = 0 -! JVS(35594) = Jac_FULL(5190,5255) - JVS(35594) = 0 -! JVS(35595) = Jac_FULL(5190,5256) - JVS(35595) = -B(478)-B(480) -! JVS(35596) = Jac_FULL(5190,5258) - JVS(35596) = -B(482)-B(484) -! JVS(35597) = Jac_FULL(5191,641) - JVS(35597) = B(16433) -! JVS(35598) = Jac_FULL(5191,749) - JVS(35598) = B(14158) -! JVS(35599) = Jac_FULL(5191,761) - JVS(35599) = B(7154) -! JVS(35600) = Jac_FULL(5191,1595) - JVS(35600) = B(7051) -! JVS(35601) = Jac_FULL(5191,1601) - JVS(35601) = B(14164) -! JVS(35602) = Jac_FULL(5191,1686) - JVS(35602) = B(82) -! JVS(35603) = Jac_FULL(5191,1695) - JVS(35603) = B(4153) -! JVS(35604) = Jac_FULL(5191,1711) - JVS(35604) = B(7160) -! JVS(35605) = Jac_FULL(5191,1974) - JVS(35605) = B(4151) -! JVS(35606) = Jac_FULL(5191,2012) - JVS(35606) = B(4876) -! JVS(35607) = Jac_FULL(5191,2066) - JVS(35607) = B(3769) -! JVS(35608) = Jac_FULL(5191,2158) - JVS(35608) = B(4999) -! JVS(35609) = Jac_FULL(5191,2292) - JVS(35609) = B(4146) -! JVS(35610) = Jac_FULL(5191,2384) - JVS(35610) = B(12196) -! JVS(35611) = Jac_FULL(5191,2537) - JVS(35611) = B(4119) -! JVS(35612) = Jac_FULL(5191,2572) - JVS(35612) = B(7152) -! JVS(35613) = Jac_FULL(5191,2610) - JVS(35613) = B(4567) -! JVS(35614) = Jac_FULL(5191,2650) - JVS(35614) = B(10254) -! JVS(35615) = Jac_FULL(5191,2681) - JVS(35615) = B(13456) -! JVS(35616) = Jac_FULL(5191,2698) - JVS(35616) = B(12197) -! JVS(35617) = Jac_FULL(5191,2720) - JVS(35617) = B(3678) -! JVS(35618) = Jac_FULL(5191,2833) - JVS(35618) = B(22278) -! JVS(35619) = Jac_FULL(5191,2857) - JVS(35619) = B(9913) -! JVS(35620) = Jac_FULL(5191,2866) - JVS(35620) = B(21499) -! JVS(35621) = Jac_FULL(5191,2901) - JVS(35621) = B(22231) -! JVS(35622) = Jac_FULL(5191,2923) - JVS(35622) = 0 -! JVS(35623) = Jac_FULL(5191,2964) - JVS(35623) = B(4735) -! JVS(35624) = Jac_FULL(5191,3009) - JVS(35624) = B(17874) -! JVS(35625) = Jac_FULL(5191,3035) - JVS(35625) = B(7049) -! JVS(35626) = Jac_FULL(5191,3208) - JVS(35626) = 0 -! JVS(35627) = Jac_FULL(5191,3265) - JVS(35627) = 0 -! JVS(35628) = Jac_FULL(5191,3266) - JVS(35628) = 0 -! JVS(35629) = Jac_FULL(5191,3301) - JVS(35629) = B(8463) -! JVS(35630) = Jac_FULL(5191,3302) - JVS(35630) = B(4860) -! JVS(35631) = Jac_FULL(5191,3377) - JVS(35631) = B(4433) -! JVS(35632) = Jac_FULL(5191,3409) - JVS(35632) = 0 -! JVS(35633) = Jac_FULL(5191,3473) - JVS(35633) = B(14156) -! JVS(35634) = Jac_FULL(5191,3504) - JVS(35634) = B(17878) -! JVS(35635) = Jac_FULL(5191,3735) - JVS(35635) = B(3774) -! JVS(35636) = Jac_FULL(5191,3779) - JVS(35636) = B(4554) -! JVS(35637) = Jac_FULL(5191,3904) - JVS(35637) = B(12329) -! JVS(35638) = Jac_FULL(5191,3922) - JVS(35638) = B(4988) -! JVS(35639) = Jac_FULL(5191,3934) - JVS(35639) = B(4856) -! JVS(35640) = Jac_FULL(5191,3942) - JVS(35640) = B(4845) -! JVS(35641) = Jac_FULL(5191,3956) - JVS(35641) = B(4977) -! JVS(35642) = Jac_FULL(5191,4081) - JVS(35642) = B(5729) -! JVS(35643) = Jac_FULL(5191,4102) - JVS(35643) = 0 -! JVS(35644) = Jac_FULL(5191,4168) - JVS(35644) = 0 -! JVS(35645) = Jac_FULL(5191,4272) - JVS(35645) = 0 -! JVS(35646) = Jac_FULL(5191,4275) - JVS(35646) = B(8464)+B(8468)+B(8472)+B(8474) -! JVS(35647) = Jac_FULL(5191,4332) - JVS(35647) = B(495) -! JVS(35648) = Jac_FULL(5191,4365) - JVS(35648) = 0 -! JVS(35649) = Jac_FULL(5191,4367) - JVS(35649) = 0 -! JVS(35650) = Jac_FULL(5191,4441) - JVS(35650) = 0 -! JVS(35651) = Jac_FULL(5191,4445) - JVS(35651) = 0 -! JVS(35652) = Jac_FULL(5191,4475) - JVS(35652) = B(507) -! JVS(35653) = Jac_FULL(5191,4476) - JVS(35653) = 0 -! JVS(35654) = Jac_FULL(5191,4535) - JVS(35654) = 0 -! JVS(35655) = Jac_FULL(5191,4571) - JVS(35655) = 0 -! JVS(35656) = Jac_FULL(5191,4574) - JVS(35656) = 0 -! JVS(35657) = Jac_FULL(5191,4579) - JVS(35657) = 0 -! JVS(35658) = Jac_FULL(5191,4645) - JVS(35658) = 0 -! JVS(35659) = Jac_FULL(5191,4654) - JVS(35659) = 0 -! JVS(35660) = Jac_FULL(5191,4656) - JVS(35660) = 0 -! JVS(35661) = Jac_FULL(5191,4661) - JVS(35661) = 0 -! JVS(35662) = Jac_FULL(5191,4714) - JVS(35662) = 0 -! JVS(35663) = Jac_FULL(5191,4716) - JVS(35663) = 0 -! JVS(35664) = Jac_FULL(5191,4719) - JVS(35664) = 0 -! JVS(35665) = Jac_FULL(5191,4767) - JVS(35665) = 0 -! JVS(35666) = Jac_FULL(5191,4782) - JVS(35666) = 0 -! JVS(35667) = Jac_FULL(5191,4799) - JVS(35667) = 0 -! JVS(35668) = Jac_FULL(5191,4858) - JVS(35668) = 0 -! JVS(35669) = Jac_FULL(5191,4876) - JVS(35669) = 0 -! JVS(35670) = Jac_FULL(5191,4878) - JVS(35670) = 0 -! JVS(35671) = Jac_FULL(5191,4896) - JVS(35671) = 0 -! JVS(35672) = Jac_FULL(5191,4920) - JVS(35672) = 0 -! JVS(35673) = Jac_FULL(5191,4941) - JVS(35673) = B(4861)+B(4863)+B(4865)+B(4867)+B(4869) -! JVS(35674) = Jac_FULL(5191,4977) - JVS(35674) = 0 -! JVS(35675) = Jac_FULL(5191,4990) - JVS(35675) = 0 -! JVS(35676) = Jac_FULL(5191,5051) - JVS(35676) = B(447) -! JVS(35677) = Jac_FULL(5191,5056) - JVS(35677) = 0 -! JVS(35678) = Jac_FULL(5191,5067) - JVS(35678) = B(4881) -! JVS(35679) = Jac_FULL(5191,5103) - JVS(35679) = 0 -! JVS(35680) = Jac_FULL(5191,5125) - JVS(35680) = 0 -! JVS(35681) = Jac_FULL(5191,5126) - JVS(35681) = 0 -! JVS(35682) = Jac_FULL(5191,5136) - JVS(35682) = 0 -! JVS(35683) = Jac_FULL(5191,5138) - JVS(35683) = 0 -! JVS(35684) = Jac_FULL(5191,5141) - JVS(35684) = 0 -! JVS(35685) = Jac_FULL(5191,5144) - JVS(35685) = 0 -! JVS(35686) = Jac_FULL(5191,5149) - JVS(35686) = 0 -! JVS(35687) = Jac_FULL(5191,5162) - JVS(35687) = 0 -! JVS(35688) = Jac_FULL(5191,5165) - JVS(35688) = 0 -! JVS(35689) = Jac_FULL(5191,5185) - JVS(35689) = 0 -! JVS(35690) = Jac_FULL(5191,5186) - JVS(35690) = 0 -! JVS(35691) = Jac_FULL(5191,5190) - JVS(35691) = 0 -! JVS(35692) = Jac_FULL(5191,5191) - JVS(35692) = -B(184)-B(186)-B(188) -! JVS(35693) = Jac_FULL(5191,5192) - JVS(35693) = 0 -! JVS(35694) = Jac_FULL(5191,5208) - JVS(35694) = 0 -! JVS(35695) = Jac_FULL(5191,5229) - JVS(35695) = B(1362) -! JVS(35696) = Jac_FULL(5191,5230) - JVS(35696) = 0 -! JVS(35697) = Jac_FULL(5191,5238) - JVS(35697) = 0 -! JVS(35698) = Jac_FULL(5191,5250) - JVS(35698) = B(83)-B(187)+B(4120)+B(4147)+B(4152)+B(4568)+B(4736)+B(9914)+B(10255)+B(12198)+B(13457)+B(21500)+B(22232)& - &+B(22279) -! JVS(35699) = Jac_FULL(5191,5251) - JVS(35699) = B(4862) -! JVS(35700) = Jac_FULL(5191,5252) - JVS(35700) = B(4864)+B(8469) -! JVS(35701) = Jac_FULL(5191,5253) - JVS(35701) = B(4866) -! JVS(35702) = Jac_FULL(5191,5254) - JVS(35702) = B(4868) -! JVS(35703) = Jac_FULL(5191,5255) - JVS(35703) = B(8465) -! JVS(35704) = Jac_FULL(5191,5256) - JVS(35704) = -B(185)+B(8473) -! JVS(35705) = Jac_FULL(5191,5258) - JVS(35705) = B(448)+B(496)+B(508) -! JVS(35706) = Jac_FULL(5192,876) - JVS(35706) = B(11805) -! JVS(35707) = Jac_FULL(5192,1708) - JVS(35707) = B(293)+B(299) -! JVS(35708) = Jac_FULL(5192,2057) - JVS(35708) = B(4417) -! JVS(35709) = Jac_FULL(5192,3875) - JVS(35709) = B(4525) -! JVS(35710) = Jac_FULL(5192,4733) - JVS(35710) = 0 -! JVS(35711) = Jac_FULL(5192,4990) - JVS(35711) = B(8075)+B(8077)+B(8081)+B(8083) -! JVS(35712) = Jac_FULL(5192,5192) - JVS(35712) = -B(1640)-B(1642)-B(1644)-B(1646)-B(1648)-B(1649)-B(1650) -! JVS(35713) = Jac_FULL(5192,5238) - JVS(35713) = B(294) -! JVS(35714) = Jac_FULL(5192,5250) - JVS(35714) = B(300)+B(4418) -! JVS(35715) = Jac_FULL(5192,5252) - JVS(35715) = -B(1643)-B(1645)+B(8078) -! JVS(35716) = Jac_FULL(5192,5253) - JVS(35716) = 0 -! JVS(35717) = Jac_FULL(5192,5255) - JVS(35717) = -B(1641)+B(8076) -! JVS(35718) = Jac_FULL(5192,5256) - JVS(35718) = -B(1647)+B(8082) -! JVS(35719) = Jac_FULL(5193,528) - JVS(35719) = B(17979) -! JVS(35720) = Jac_FULL(5193,539) - JVS(35720) = B(17893) -! JVS(35721) = Jac_FULL(5193,545) - JVS(35721) = B(22161) -! JVS(35722) = Jac_FULL(5193,574) - JVS(35722) = B(18023) -! JVS(35723) = Jac_FULL(5193,596) - JVS(35723) = B(17782) -! JVS(35724) = Jac_FULL(5193,600) - JVS(35724) = B(14055) -! JVS(35725) = Jac_FULL(5193,610) - JVS(35725) = B(14095) -! JVS(35726) = Jac_FULL(5193,615) - JVS(35726) = 2*B(3704) -! JVS(35727) = Jac_FULL(5193,637) - JVS(35727) = B(12187) -! JVS(35728) = Jac_FULL(5193,674) - JVS(35728) = B(17610) -! JVS(35729) = Jac_FULL(5193,710) - JVS(35729) = B(15712) -! JVS(35730) = Jac_FULL(5193,776) - JVS(35730) = B(17949) -! JVS(35731) = Jac_FULL(5193,787) - JVS(35731) = B(12863) -! JVS(35732) = Jac_FULL(5193,791) - JVS(35732) = B(17919) -! JVS(35733) = Jac_FULL(5193,1011) - JVS(35733) = B(4345) -! JVS(35734) = Jac_FULL(5193,1110) - JVS(35734) = B(12176) -! JVS(35735) = Jac_FULL(5193,1553) - JVS(35735) = B(13964) -! JVS(35736) = Jac_FULL(5193,1592) - JVS(35736) = B(7013) -! JVS(35737) = Jac_FULL(5193,1597) - JVS(35737) = B(16769) -! JVS(35738) = Jac_FULL(5193,1638) - JVS(35738) = B(7061) -! JVS(35739) = Jac_FULL(5193,1646) - JVS(35739) = B(14058) -! JVS(35740) = Jac_FULL(5193,1650) - JVS(35740) = B(14141) -! JVS(35741) = Jac_FULL(5193,1659) - JVS(35741) = B(17614) -! JVS(35742) = Jac_FULL(5193,1733) - JVS(35742) = B(78) -! JVS(35743) = Jac_FULL(5193,1737) - JVS(35743) = B(7167) -! JVS(35744) = Jac_FULL(5193,1749) - JVS(35744) = B(4112) -! JVS(35745) = Jac_FULL(5193,1750) - JVS(35745) = B(920) -! JVS(35746) = Jac_FULL(5193,1759) - JVS(35746) = B(22158) -! JVS(35747) = Jac_FULL(5193,1924) - JVS(35747) = B(3920) -! JVS(35748) = Jac_FULL(5193,1937) - JVS(35748) = B(17779) -! JVS(35749) = Jac_FULL(5193,1997) - JVS(35749) = B(12180) -! JVS(35750) = Jac_FULL(5193,2027) - JVS(35750) = 0 -! JVS(35751) = Jac_FULL(5193,2066) - JVS(35751) = B(3769) -! JVS(35752) = Jac_FULL(5193,2080) - JVS(35752) = 0 -! JVS(35753) = Jac_FULL(5193,2129) - JVS(35753) = 0 -! JVS(35754) = Jac_FULL(5193,2158) - JVS(35754) = B(4999) -! JVS(35755) = Jac_FULL(5193,2188) - JVS(35755) = B(4109) -! JVS(35756) = Jac_FULL(5193,2201) - JVS(35756) = B(22166) -! JVS(35757) = Jac_FULL(5193,2204) - JVS(35757) = 0 -! JVS(35758) = Jac_FULL(5193,2205) - JVS(35758) = 0 -! JVS(35759) = Jac_FULL(5193,2219) - JVS(35759) = B(7756) -! JVS(35760) = Jac_FULL(5193,2229) - JVS(35760) = B(3668) -! JVS(35761) = Jac_FULL(5193,2298) - JVS(35761) = 0 -! JVS(35762) = Jac_FULL(5193,2316) - JVS(35762) = 0 -! JVS(35763) = Jac_FULL(5193,2346) - JVS(35763) = B(4320) -! JVS(35764) = Jac_FULL(5193,2411) - JVS(35764) = 0 -! JVS(35765) = Jac_FULL(5193,2424) - JVS(35765) = B(14053) -! JVS(35766) = Jac_FULL(5193,2479) - JVS(35766) = B(6719) -! JVS(35767) = Jac_FULL(5193,2503) - JVS(35767) = 0 -! JVS(35768) = Jac_FULL(5193,2528) - JVS(35768) = B(14124) -! JVS(35769) = Jac_FULL(5193,2547) - JVS(35769) = B(12320) -! JVS(35770) = Jac_FULL(5193,2558) - JVS(35770) = B(7165) -! JVS(35771) = Jac_FULL(5193,2579) - JVS(35771) = B(12181) -! JVS(35772) = Jac_FULL(5193,2618) - JVS(35772) = B(14093) -! JVS(35773) = Jac_FULL(5193,2639) - JVS(35773) = B(3660) -! JVS(35774) = Jac_FULL(5193,2644) - JVS(35774) = B(17687) -! JVS(35775) = Jac_FULL(5193,2672) - JVS(35775) = 0 -! JVS(35776) = Jac_FULL(5193,2676) - JVS(35776) = B(17983) -! JVS(35777) = Jac_FULL(5193,2679) - JVS(35777) = B(14050) -! JVS(35778) = Jac_FULL(5193,2692) - JVS(35778) = B(14151) -! JVS(35779) = Jac_FULL(5193,2700) - JVS(35779) = B(22266) -! JVS(35780) = Jac_FULL(5193,2715) - JVS(35780) = B(7011) -! JVS(35781) = Jac_FULL(5193,2730) - JVS(35781) = B(17605) -! JVS(35782) = Jac_FULL(5193,2734) - JVS(35782) = B(4330) -! JVS(35783) = Jac_FULL(5193,2745) - JVS(35783) = B(11460) -! JVS(35784) = Jac_FULL(5193,2753) - JVS(35784) = 0 -! JVS(35785) = Jac_FULL(5193,2764) - JVS(35785) = 0 -! JVS(35786) = Jac_FULL(5193,2795) - JVS(35786) = B(4362) -! JVS(35787) = Jac_FULL(5193,2807) - JVS(35787) = B(8453) -! JVS(35788) = Jac_FULL(5193,2811) - JVS(35788) = B(4322) -! JVS(35789) = Jac_FULL(5193,2820) - JVS(35789) = B(20296) -! JVS(35790) = Jac_FULL(5193,2826) - JVS(35790) = B(19647) -! JVS(35791) = Jac_FULL(5193,2827) - JVS(35791) = B(18972) -! JVS(35792) = Jac_FULL(5193,2828) - JVS(35792) = B(11597) -! JVS(35793) = Jac_FULL(5193,2831) - JVS(35793) = B(5088) -! JVS(35794) = Jac_FULL(5193,2839) - JVS(35794) = B(4610) -! JVS(35795) = Jac_FULL(5193,2849) - JVS(35795) = B(5186) -! JVS(35796) = Jac_FULL(5193,2858) - JVS(35796) = 2*B(12241) -! JVS(35797) = Jac_FULL(5193,2859) - JVS(35797) = B(22208) -! JVS(35798) = Jac_FULL(5193,2873) - JVS(35798) = B(4319) -! JVS(35799) = Jac_FULL(5193,2893) - JVS(35799) = B(7059) -! JVS(35800) = Jac_FULL(5193,2905) - JVS(35800) = B(18700) -! JVS(35801) = Jac_FULL(5193,2912) - JVS(35801) = B(5175) -! JVS(35802) = Jac_FULL(5193,2920) - JVS(35802) = 0 -! JVS(35803) = Jac_FULL(5193,2930) - JVS(35803) = B(22163) -! JVS(35804) = Jac_FULL(5193,2940) - JVS(35804) = 0 -! JVS(35805) = Jac_FULL(5193,2945) - JVS(35805) = B(7757) -! JVS(35806) = Jac_FULL(5193,2946) - JVS(35806) = B(21210) -! JVS(35807) = Jac_FULL(5193,2948) - JVS(35807) = B(10163) -! JVS(35808) = Jac_FULL(5193,2950) - JVS(35808) = B(9997) -! JVS(35809) = Jac_FULL(5193,2976) - JVS(35809) = 0 -! JVS(35810) = Jac_FULL(5193,3000) - JVS(35810) = B(19701) -! JVS(35811) = Jac_FULL(5193,3003) - JVS(35811) = B(4103) -! JVS(35812) = Jac_FULL(5193,3019) - JVS(35812) = B(21482) -! JVS(35813) = Jac_FULL(5193,3063) - JVS(35813) = B(21409) -! JVS(35814) = Jac_FULL(5193,3076) - JVS(35814) = B(4459) -! JVS(35815) = Jac_FULL(5193,3106) - JVS(35815) = B(3804) -! JVS(35816) = Jac_FULL(5193,3159) - JVS(35816) = B(3918) -! JVS(35817) = Jac_FULL(5193,3265) - JVS(35817) = 0 -! JVS(35818) = Jac_FULL(5193,3266) - JVS(35818) = 0 -! JVS(35819) = Jac_FULL(5193,3277) - JVS(35819) = 0 -! JVS(35820) = Jac_FULL(5193,3282) - JVS(35820) = B(21279) -! JVS(35821) = Jac_FULL(5193,3328) - JVS(35821) = 0 -! JVS(35822) = Jac_FULL(5193,3333) - JVS(35822) = B(4624) -! JVS(35823) = Jac_FULL(5193,3341) - JVS(35823) = 0 -! JVS(35824) = Jac_FULL(5193,3346) - JVS(35824) = B(14134) -! JVS(35825) = Jac_FULL(5193,3367) - JVS(35825) = B(7115) -! JVS(35826) = Jac_FULL(5193,3383) - JVS(35826) = B(4131) -! JVS(35827) = Jac_FULL(5193,3386) - JVS(35827) = B(3692) -! JVS(35828) = Jac_FULL(5193,3393) - JVS(35828) = B(12030) -! JVS(35829) = Jac_FULL(5193,3404) - JVS(35829) = B(4453) -! JVS(35830) = Jac_FULL(5193,3418) - JVS(35830) = 0 -! JVS(35831) = Jac_FULL(5193,3422) - JVS(35831) = B(3877) -! JVS(35832) = Jac_FULL(5193,3429) - JVS(35832) = B(4387) -! JVS(35833) = Jac_FULL(5193,3444) - JVS(35833) = 0 -! JVS(35834) = Jac_FULL(5193,3465) - JVS(35834) = B(455) -! JVS(35835) = Jac_FULL(5193,3466) - JVS(35835) = B(461) -! JVS(35836) = Jac_FULL(5193,3537) - JVS(35836) = B(19651) -! JVS(35837) = Jac_FULL(5193,3540) - JVS(35837) = 0 -! JVS(35838) = Jac_FULL(5193,3577) - JVS(35838) = B(4837) -! JVS(35839) = Jac_FULL(5193,3585) - JVS(35839) = B(4826) -! JVS(35840) = Jac_FULL(5193,3616) - JVS(35840) = B(14125) -! JVS(35841) = Jac_FULL(5193,3654) - JVS(35841) = B(4340) -! JVS(35842) = Jac_FULL(5193,3656) - JVS(35842) = B(5002) -! JVS(35843) = Jac_FULL(5193,3660) - JVS(35843) = 0 -! JVS(35844) = Jac_FULL(5193,3767) - JVS(35844) = 2*B(4886) -! JVS(35845) = Jac_FULL(5193,3842) - JVS(35845) = B(5163) -! JVS(35846) = Jac_FULL(5193,3880) - JVS(35846) = 0 -! JVS(35847) = Jac_FULL(5193,3881) - JVS(35847) = 0 -! JVS(35848) = Jac_FULL(5193,3897) - JVS(35848) = B(12246) -! JVS(35849) = Jac_FULL(5193,3910) - JVS(35849) = B(5151) -! JVS(35850) = Jac_FULL(5193,3912) - JVS(35850) = 0 -! JVS(35851) = Jac_FULL(5193,3916) - JVS(35851) = 0 -! JVS(35852) = Jac_FULL(5193,3919) - JVS(35852) = 0 -! JVS(35853) = Jac_FULL(5193,3922) - JVS(35853) = B(4988) -! JVS(35854) = Jac_FULL(5193,3956) - JVS(35854) = B(4977) -! JVS(35855) = Jac_FULL(5193,3964) - JVS(35855) = 0 -! JVS(35856) = Jac_FULL(5193,3970) - JVS(35856) = B(5081) -! JVS(35857) = Jac_FULL(5193,3977) - JVS(35857) = 0 -! JVS(35858) = Jac_FULL(5193,4030) - JVS(35858) = 0 -! JVS(35859) = Jac_FULL(5193,4084) - JVS(35859) = B(5359) -! JVS(35860) = Jac_FULL(5193,4095) - JVS(35860) = 0 -! JVS(35861) = Jac_FULL(5193,4118) - JVS(35861) = 0 -! JVS(35862) = Jac_FULL(5193,4121) - JVS(35862) = 0 -! JVS(35863) = Jac_FULL(5193,4127) - JVS(35863) = 0 -! JVS(35864) = Jac_FULL(5193,4132) - JVS(35864) = 0 -! JVS(35865) = Jac_FULL(5193,4134) - JVS(35865) = 0 -! JVS(35866) = Jac_FULL(5193,4138) - JVS(35866) = 0 -! JVS(35867) = Jac_FULL(5193,4140) - JVS(35867) = 0 -! JVS(35868) = Jac_FULL(5193,4154) - JVS(35868) = 0 -! JVS(35869) = Jac_FULL(5193,4169) - JVS(35869) = 0 -! JVS(35870) = Jac_FULL(5193,4211) - JVS(35870) = 0 -! JVS(35871) = Jac_FULL(5193,4223) - JVS(35871) = B(5189) -! JVS(35872) = Jac_FULL(5193,4238) - JVS(35872) = 0 -! JVS(35873) = Jac_FULL(5193,4274) - JVS(35873) = 0 -! JVS(35874) = Jac_FULL(5193,4332) - JVS(35874) = B(493) -! JVS(35875) = Jac_FULL(5193,4336) - JVS(35875) = 0 -! JVS(35876) = Jac_FULL(5193,4344) - JVS(35876) = 0 -! JVS(35877) = Jac_FULL(5193,4351) - JVS(35877) = 0 -! JVS(35878) = Jac_FULL(5193,4357) - JVS(35878) = 0 -! JVS(35879) = Jac_FULL(5193,4367) - JVS(35879) = 0 -! JVS(35880) = Jac_FULL(5193,4368) - JVS(35880) = 0 -! JVS(35881) = Jac_FULL(5193,4370) - JVS(35881) = 0 -! JVS(35882) = Jac_FULL(5193,4374) - JVS(35882) = 0 -! JVS(35883) = Jac_FULL(5193,4386) - JVS(35883) = B(3709) -! JVS(35884) = Jac_FULL(5193,4387) - JVS(35884) = 0 -! JVS(35885) = Jac_FULL(5193,4404) - JVS(35885) = 0 -! JVS(35886) = Jac_FULL(5193,4405) - JVS(35886) = B(8439)+B(8445)+B(8449)+B(8451) -! JVS(35887) = Jac_FULL(5193,4417) - JVS(35887) = 0 -! JVS(35888) = Jac_FULL(5193,4428) - JVS(35888) = B(1545)+B(1547)+B(1551)+B(1554) -! JVS(35889) = Jac_FULL(5193,4473) - JVS(35889) = 0 -! JVS(35890) = Jac_FULL(5193,4474) - JVS(35890) = B(541) -! JVS(35891) = Jac_FULL(5193,4475) - JVS(35891) = B(505) -! JVS(35892) = Jac_FULL(5193,4476) - JVS(35892) = 0 -! JVS(35893) = Jac_FULL(5193,4489) - JVS(35893) = 0 -! JVS(35894) = Jac_FULL(5193,4566) - JVS(35894) = 0 -! JVS(35895) = Jac_FULL(5193,4573) - JVS(35895) = 0 -! JVS(35896) = Jac_FULL(5193,4577) - JVS(35896) = 0 -! JVS(35897) = Jac_FULL(5193,4584) - JVS(35897) = 0 -! JVS(35898) = Jac_FULL(5193,4590) - JVS(35898) = 0 -! JVS(35899) = Jac_FULL(5193,4595) - JVS(35899) = 0 -! JVS(35900) = Jac_FULL(5193,4604) - JVS(35900) = B(567) -! JVS(35901) = Jac_FULL(5193,4606) - JVS(35901) = B(579) -! JVS(35902) = Jac_FULL(5193,4607) - JVS(35902) = 0 -! JVS(35903) = Jac_FULL(5193,4608) - JVS(35903) = 0 -! JVS(35904) = Jac_FULL(5193,4609) - JVS(35904) = 0 -! JVS(35905) = Jac_FULL(5193,4612) - JVS(35905) = 0 -! JVS(35906) = Jac_FULL(5193,4616) - JVS(35906) = 0 -! JVS(35907) = Jac_FULL(5193,4640) - JVS(35907) = 0 -! JVS(35908) = Jac_FULL(5193,4646) - JVS(35908) = 0 -! JVS(35909) = Jac_FULL(5193,4647) - JVS(35909) = 0 -! JVS(35910) = Jac_FULL(5193,4685) - JVS(35910) = 0 -! JVS(35911) = Jac_FULL(5193,4695) - JVS(35911) = 0 -! JVS(35912) = Jac_FULL(5193,4702) - JVS(35912) = 0 -! JVS(35913) = Jac_FULL(5193,4705) - JVS(35913) = 0 -! JVS(35914) = Jac_FULL(5193,4714) - JVS(35914) = 0 -! JVS(35915) = Jac_FULL(5193,4723) - JVS(35915) = 0 -! JVS(35916) = Jac_FULL(5193,4724) - JVS(35916) = 0 -! JVS(35917) = Jac_FULL(5193,4731) - JVS(35917) = 0 -! JVS(35918) = Jac_FULL(5193,4750) - JVS(35918) = 0 -! JVS(35919) = Jac_FULL(5193,4766) - JVS(35919) = 0 -! JVS(35920) = Jac_FULL(5193,4767) - JVS(35920) = 0 -! JVS(35921) = Jac_FULL(5193,4777) - JVS(35921) = 0 -! JVS(35922) = Jac_FULL(5193,4782) - JVS(35922) = 0 -! JVS(35923) = Jac_FULL(5193,4784) - JVS(35923) = 0 -! JVS(35924) = Jac_FULL(5193,4802) - JVS(35924) = 0 -! JVS(35925) = Jac_FULL(5193,4827) - JVS(35925) = 0 -! JVS(35926) = Jac_FULL(5193,4837) - JVS(35926) = 0 -! JVS(35927) = Jac_FULL(5193,4840) - JVS(35927) = B(248)+B(258) -! JVS(35928) = Jac_FULL(5193,4845) - JVS(35928) = 0 -! JVS(35929) = Jac_FULL(5193,4852) - JVS(35929) = 0 -! JVS(35930) = Jac_FULL(5193,4857) - JVS(35930) = 0 -! JVS(35931) = Jac_FULL(5193,4865) - JVS(35931) = 0 -! JVS(35932) = Jac_FULL(5193,4870) - JVS(35932) = 0 -! JVS(35933) = Jac_FULL(5193,4871) - JVS(35933) = 0 -! JVS(35934) = Jac_FULL(5193,4876) - JVS(35934) = 0 -! JVS(35935) = Jac_FULL(5193,4877) - JVS(35935) = 0 -! JVS(35936) = Jac_FULL(5193,4880) - JVS(35936) = 0 -! JVS(35937) = Jac_FULL(5193,4884) - JVS(35937) = 0 -! JVS(35938) = Jac_FULL(5193,4890) - JVS(35938) = 0 -! JVS(35939) = Jac_FULL(5193,4895) - JVS(35939) = 0 -! JVS(35940) = Jac_FULL(5193,4901) - JVS(35940) = 0 -! JVS(35941) = Jac_FULL(5193,4911) - JVS(35941) = 0 -! JVS(35942) = Jac_FULL(5193,4915) - JVS(35942) = 0 -! JVS(35943) = Jac_FULL(5193,4920) - JVS(35943) = 0 -! JVS(35944) = Jac_FULL(5193,4922) - JVS(35944) = 0 -! JVS(35945) = Jac_FULL(5193,4923) - JVS(35945) = 0 -! JVS(35946) = Jac_FULL(5193,4924) - JVS(35946) = B(3996)+B(4000)+B(4004)+B(4006) -! JVS(35947) = Jac_FULL(5193,4933) - JVS(35947) = 0 -! JVS(35948) = Jac_FULL(5193,4943) - JVS(35948) = B(4349)+B(4351)+B(4353)+B(4355)+B(4357) -! JVS(35949) = Jac_FULL(5193,4977) - JVS(35949) = 0 -! JVS(35950) = Jac_FULL(5193,4991) - JVS(35950) = 0 -! JVS(35951) = Jac_FULL(5193,4994) - JVS(35951) = 0 -! JVS(35952) = Jac_FULL(5193,5007) - JVS(35952) = 0 -! JVS(35953) = Jac_FULL(5193,5008) - JVS(35953) = 0 -! JVS(35954) = Jac_FULL(5193,5037) - JVS(35954) = 0 -! JVS(35955) = Jac_FULL(5193,5042) - JVS(35955) = B(1053) -! JVS(35956) = Jac_FULL(5193,5045) - JVS(35956) = 0 -! JVS(35957) = Jac_FULL(5193,5051) - JVS(35957) = 0 -! JVS(35958) = Jac_FULL(5193,5061) - JVS(35958) = 0 -! JVS(35959) = Jac_FULL(5193,5062) - JVS(35959) = 0 -! JVS(35960) = Jac_FULL(5193,5063) - JVS(35960) = 0 -! JVS(35961) = Jac_FULL(5193,5064) - JVS(35961) = 0 -! JVS(35962) = Jac_FULL(5193,5065) - JVS(35962) = 0 -! JVS(35963) = Jac_FULL(5193,5078) - JVS(35963) = 0 -! JVS(35964) = Jac_FULL(5193,5087) - JVS(35964) = B(1229) -! JVS(35965) = Jac_FULL(5193,5088) - JVS(35965) = 0 -! JVS(35966) = Jac_FULL(5193,5089) - JVS(35966) = 0 -! JVS(35967) = Jac_FULL(5193,5098) - JVS(35967) = 0 -! JVS(35968) = Jac_FULL(5193,5103) - JVS(35968) = 0 -! JVS(35969) = Jac_FULL(5193,5107) - JVS(35969) = 0 -! JVS(35970) = Jac_FULL(5193,5108) - JVS(35970) = 0 -! JVS(35971) = Jac_FULL(5193,5109) - JVS(35971) = 0 -! JVS(35972) = Jac_FULL(5193,5112) - JVS(35972) = 0 -! JVS(35973) = Jac_FULL(5193,5116) - JVS(35973) = 0 -! JVS(35974) = Jac_FULL(5193,5117) - JVS(35974) = 0 -! JVS(35975) = Jac_FULL(5193,5119) - JVS(35975) = 0 -! JVS(35976) = Jac_FULL(5193,5121) - JVS(35976) = 0 -! JVS(35977) = Jac_FULL(5193,5123) - JVS(35977) = 0 -! JVS(35978) = Jac_FULL(5193,5126) - JVS(35978) = 0 -! JVS(35979) = Jac_FULL(5193,5138) - JVS(35979) = 0 -! JVS(35980) = Jac_FULL(5193,5141) - JVS(35980) = 0 -! JVS(35981) = Jac_FULL(5193,5142) - JVS(35981) = B(1328) -! JVS(35982) = Jac_FULL(5193,5144) - JVS(35982) = 0 -! JVS(35983) = Jac_FULL(5193,5147) - JVS(35983) = 0 -! JVS(35984) = Jac_FULL(5193,5157) - JVS(35984) = 0 -! JVS(35985) = Jac_FULL(5193,5161) - JVS(35985) = 0 -! JVS(35986) = Jac_FULL(5193,5162) - JVS(35986) = B(4487) -! JVS(35987) = Jac_FULL(5193,5164) - JVS(35987) = 0 -! JVS(35988) = Jac_FULL(5193,5178) - JVS(35988) = 0 -! JVS(35989) = Jac_FULL(5193,5183) - JVS(35989) = 0 -! JVS(35990) = Jac_FULL(5193,5185) - JVS(35990) = 0 -! JVS(35991) = Jac_FULL(5193,5186) - JVS(35991) = 0 -! JVS(35992) = Jac_FULL(5193,5190) - JVS(35992) = 0 -! JVS(35993) = Jac_FULL(5193,5191) - JVS(35993) = 0 -! JVS(35994) = Jac_FULL(5193,5192) - JVS(35994) = 0 -! JVS(35995) = Jac_FULL(5193,5193) - JVS(35995) = -B(177)-B(178)-B(180)-B(182) -! JVS(35996) = Jac_FULL(5193,5200) - JVS(35996) = B(433) -! JVS(35997) = Jac_FULL(5193,5202) - JVS(35997) = 0 -! JVS(35998) = Jac_FULL(5193,5203) - JVS(35998) = 0 -! JVS(35999) = Jac_FULL(5193,5208) - JVS(35999) = 0 -! JVS(36000) = Jac_FULL(5193,5227) - JVS(36000) = 0 -! JVS(36001) = Jac_FULL(5193,5229) - JVS(36001) = 0 -! JVS(36002) = Jac_FULL(5193,5230) - JVS(36002) = B(195) -! JVS(36003) = Jac_FULL(5193,5238) - JVS(36003) = 0 -! JVS(36004) = Jac_FULL(5193,5250) - JVS(36004) = B(79)-B(181)-B(183)+B(3805)+B(3919)+B(4104)+B(4110)+B(4113)+B(4321)+B(4323)+B(4460)+B(4611)+B(7758)& - &+B(9998)+B(10164)+B(12177)+B(12182)+B(21280)+B(21410)+B(21483)+B(22209)+B(22267) -! JVS(36005) = Jac_FULL(5193,5251) - JVS(36005) = B(4350) -! JVS(36006) = Jac_FULL(5193,5252) - JVS(36006) = B(1548)+B(4001)+B(4352)+B(8446) -! JVS(36007) = Jac_FULL(5193,5253) - JVS(36007) = B(4354) -! JVS(36008) = Jac_FULL(5193,5254) - JVS(36008) = B(4356) -! JVS(36009) = Jac_FULL(5193,5255) - JVS(36009) = B(1546)+B(3997)+B(8440) -! JVS(36010) = Jac_FULL(5193,5256) - JVS(36010) = -B(179)+B(1552)+B(4005)+B(4341)+B(8450) -! JVS(36011) = Jac_FULL(5193,5258) - JVS(36011) = B(249)+B(434)+B(456)+B(462)+B(494)+B(506)+B(542)+B(568)+B(580) -! JVS(36012) = Jac_FULL(5194,1102) - JVS(36012) = B(10712) -! JVS(36013) = Jac_FULL(5194,1777) - JVS(36013) = B(14220) -! JVS(36014) = Jac_FULL(5194,1909) - JVS(36014) = B(10715) -! JVS(36015) = Jac_FULL(5194,1910) - JVS(36015) = B(10718) -! JVS(36016) = Jac_FULL(5194,2272) - JVS(36016) = B(7735) -! JVS(36017) = Jac_FULL(5194,2431) - JVS(36017) = B(13585) -! JVS(36018) = Jac_FULL(5194,2706) - JVS(36018) = B(6688) -! JVS(36019) = Jac_FULL(5194,2771) - JVS(36019) = B(6672) -! JVS(36020) = Jac_FULL(5194,2801) - JVS(36020) = B(13589) -! JVS(36021) = Jac_FULL(5194,3496) - JVS(36021) = B(6913) -! JVS(36022) = Jac_FULL(5194,3607) - JVS(36022) = B(7233) -! JVS(36023) = Jac_FULL(5194,3653) - JVS(36023) = 0 -! JVS(36024) = Jac_FULL(5194,4111) - JVS(36024) = 0 -! JVS(36025) = Jac_FULL(5194,4259) - JVS(36025) = B(10399)+B(10403)+B(10407)+B(10409) -! JVS(36026) = Jac_FULL(5194,4372) - JVS(36026) = 0 -! JVS(36027) = Jac_FULL(5194,4373) - JVS(36027) = B(6689) -! JVS(36028) = Jac_FULL(5194,4765) - JVS(36028) = 0 -! JVS(36029) = Jac_FULL(5194,4814) - JVS(36029) = 0 -! JVS(36030) = Jac_FULL(5194,4819) - JVS(36030) = B(6639)+B(6641)+B(6643)+B(6645)+B(6648) -! JVS(36031) = Jac_FULL(5194,4907) - JVS(36031) = 0 -! JVS(36032) = Jac_FULL(5194,5081) - JVS(36032) = 0 -! JVS(36033) = Jac_FULL(5194,5093) - JVS(36033) = 0 -! JVS(36034) = Jac_FULL(5194,5153) - JVS(36034) = B(767) -! JVS(36035) = Jac_FULL(5194,5166) - JVS(36035) = 0 -! JVS(36036) = Jac_FULL(5194,5181) - JVS(36036) = 0 -! JVS(36037) = Jac_FULL(5194,5194) - JVS(36037) = -B(213)-B(215)-B(217)-B(219)-B(221)-B(222)-B(223)-B(224)-B(226) -! JVS(36038) = Jac_FULL(5194,5238) - JVS(36038) = 0 -! JVS(36039) = Jac_FULL(5194,5250) - JVS(36039) = -B(216)-B(218)-B(220)+B(7736)+B(10713)+B(10716)+B(13590) -! JVS(36040) = Jac_FULL(5194,5251) - JVS(36040) = B(6640) -! JVS(36041) = Jac_FULL(5194,5252) - JVS(36041) = B(6642)+B(10404) -! JVS(36042) = Jac_FULL(5194,5253) - JVS(36042) = B(6644) -! JVS(36043) = Jac_FULL(5194,5254) - JVS(36043) = B(6646) -! JVS(36044) = Jac_FULL(5194,5255) - JVS(36044) = B(10400) -! JVS(36045) = Jac_FULL(5194,5256) - JVS(36045) = -B(214)+B(10408) -! JVS(36046) = Jac_FULL(5194,5258) - JVS(36046) = -B(225)-B(227)+B(768) -! JVS(36047) = Jac_FULL(5195,237) - JVS(36047) = B(11438) -! JVS(36048) = Jac_FULL(5195,868) - JVS(36048) = B(11440) -! JVS(36049) = Jac_FULL(5195,1733) - JVS(36049) = B(80) -! JVS(36050) = Jac_FULL(5195,1809) - JVS(36050) = B(3630) -! JVS(36051) = Jac_FULL(5195,2374) - JVS(36051) = B(3839) -! JVS(36052) = Jac_FULL(5195,2542) - JVS(36052) = 0 -! JVS(36053) = Jac_FULL(5195,2665) - JVS(36053) = B(7073) -! JVS(36054) = Jac_FULL(5195,3386) - JVS(36054) = B(3692) -! JVS(36055) = Jac_FULL(5195,3430) - JVS(36055) = B(23669) -! JVS(36056) = Jac_FULL(5195,3642) - JVS(36056) = B(23672) -! JVS(36057) = Jac_FULL(5195,3682) - JVS(36057) = B(14023) -! JVS(36058) = Jac_FULL(5195,4342) - JVS(36058) = 0 -! JVS(36059) = Jac_FULL(5195,4730) - JVS(36059) = 0 -! JVS(36060) = Jac_FULL(5195,4734) - JVS(36060) = 0 -! JVS(36061) = Jac_FULL(5195,4844) - JVS(36061) = 0 -! JVS(36062) = Jac_FULL(5195,4870) - JVS(36062) = 0 -! JVS(36063) = Jac_FULL(5195,4973) - JVS(36063) = B(3698) -! JVS(36064) = Jac_FULL(5195,5027) - JVS(36064) = 0 -! JVS(36065) = Jac_FULL(5195,5063) - JVS(36065) = 0 -! JVS(36066) = Jac_FULL(5195,5064) - JVS(36066) = 0 -! JVS(36067) = Jac_FULL(5195,5077) - JVS(36067) = 0 -! JVS(36068) = Jac_FULL(5195,5082) - JVS(36068) = 0 -! JVS(36069) = Jac_FULL(5195,5088) - JVS(36069) = 0 -! JVS(36070) = Jac_FULL(5195,5090) - JVS(36070) = 0 -! JVS(36071) = Jac_FULL(5195,5124) - JVS(36071) = B(427) -! JVS(36072) = Jac_FULL(5195,5142) - JVS(36072) = 0 -! JVS(36073) = Jac_FULL(5195,5147) - JVS(36073) = 0 -! JVS(36074) = Jac_FULL(5195,5148) - JVS(36074) = 0 -! JVS(36075) = Jac_FULL(5195,5150) - JVS(36075) = 0 -! JVS(36076) = Jac_FULL(5195,5153) - JVS(36076) = 0 -! JVS(36077) = Jac_FULL(5195,5161) - JVS(36077) = 0 -! JVS(36078) = Jac_FULL(5195,5162) - JVS(36078) = 0 -! JVS(36079) = Jac_FULL(5195,5163) - JVS(36079) = 0 -! JVS(36080) = Jac_FULL(5195,5178) - JVS(36080) = 0 -! JVS(36081) = Jac_FULL(5195,5181) - JVS(36081) = 0 -! JVS(36082) = Jac_FULL(5195,5183) - JVS(36082) = 0 -! JVS(36083) = Jac_FULL(5195,5184) - JVS(36083) = B(3648) -! JVS(36084) = Jac_FULL(5195,5185) - JVS(36084) = 0 -! JVS(36085) = Jac_FULL(5195,5186) - JVS(36085) = 0 -! JVS(36086) = Jac_FULL(5195,5187) - JVS(36086) = 0 -! JVS(36087) = Jac_FULL(5195,5191) - JVS(36087) = 0 -! JVS(36088) = Jac_FULL(5195,5192) - JVS(36088) = 0 -! JVS(36089) = Jac_FULL(5195,5194) - JVS(36089) = 0 -! JVS(36090) = Jac_FULL(5195,5195) - JVS(36090) = -B(921)-B(923)-B(925)-B(927)-B(929)-B(930)-B(931) -! JVS(36091) = Jac_FULL(5195,5206) - JVS(36091) = 0 -! JVS(36092) = Jac_FULL(5195,5207) - JVS(36092) = 0 -! JVS(36093) = Jac_FULL(5195,5208) - JVS(36093) = 0 -! JVS(36094) = Jac_FULL(5195,5229) - JVS(36094) = 0 -! JVS(36095) = Jac_FULL(5195,5230) - JVS(36095) = 0 -! JVS(36096) = Jac_FULL(5195,5237) - JVS(36096) = B(7592)+B(7594)+B(7598)+B(7601) -! JVS(36097) = Jac_FULL(5195,5238) - JVS(36097) = 0 -! JVS(36098) = Jac_FULL(5195,5246) - JVS(36098) = 0 -! JVS(36099) = Jac_FULL(5195,5248) - JVS(36099) = 0 -! JVS(36100) = Jac_FULL(5195,5249) - JVS(36100) = 0 -! JVS(36101) = Jac_FULL(5195,5250) - JVS(36101) = B(81)+B(428)+B(3631)+B(11439) -! JVS(36102) = Jac_FULL(5195,5251) - JVS(36102) = 0 -! JVS(36103) = Jac_FULL(5195,5252) - JVS(36103) = -B(924)-B(926)+B(7595) -! JVS(36104) = Jac_FULL(5195,5253) - JVS(36104) = 0 -! JVS(36105) = Jac_FULL(5195,5254) - JVS(36105) = 0 -! JVS(36106) = Jac_FULL(5195,5255) - JVS(36106) = -B(922)+B(7593) -! JVS(36107) = Jac_FULL(5195,5256) - JVS(36107) = -B(928)+B(7599) -! JVS(36108) = Jac_FULL(5195,5257) - JVS(36108) = 0 -! JVS(36109) = Jac_FULL(5195,5258) - JVS(36109) = 0 -! JVS(36110) = Jac_FULL(5196,612) - JVS(36110) = B(14518) -! JVS(36111) = Jac_FULL(5196,1424) - JVS(36111) = B(19241) -! JVS(36112) = Jac_FULL(5196,2340) - JVS(36112) = B(19242)+B(19244) -! JVS(36113) = Jac_FULL(5196,4824) - JVS(36113) = 0 -! JVS(36114) = Jac_FULL(5196,4849) - JVS(36114) = B(17031)+B(17035)+B(17039)+B(17041) -! JVS(36115) = Jac_FULL(5196,5175) - JVS(36115) = 0 -! JVS(36116) = Jac_FULL(5196,5176) - JVS(36116) = B(14416) -! JVS(36117) = Jac_FULL(5196,5196) - JVS(36117) = -B(17043)-B(17045)-B(17047)-B(17049)-B(17051)-B(17052)-B(17053) -! JVS(36118) = Jac_FULL(5196,5250) - JVS(36118) = B(19243) -! JVS(36119) = Jac_FULL(5196,5251) - JVS(36119) = 0 -! JVS(36120) = Jac_FULL(5196,5252) - JVS(36120) = B(17036)-B(17046)-B(17048) -! JVS(36121) = Jac_FULL(5196,5253) - JVS(36121) = 0 -! JVS(36122) = Jac_FULL(5196,5254) - JVS(36122) = 0 -! JVS(36123) = Jac_FULL(5196,5255) - JVS(36123) = B(17032)-B(17044) -! JVS(36124) = Jac_FULL(5196,5256) - JVS(36124) = B(17040)-B(17050) -! JVS(36125) = Jac_FULL(5196,5258) - JVS(36125) = 0 -! JVS(36126) = Jac_FULL(5197,214) - JVS(36126) = B(13171) -! JVS(36127) = Jac_FULL(5197,1201) - JVS(36127) = B(20566) -! JVS(36128) = Jac_FULL(5197,2393) - JVS(36128) = B(12527) -! JVS(36129) = Jac_FULL(5197,3346) - JVS(36129) = B(14134) -! JVS(36130) = Jac_FULL(5197,3708) - JVS(36130) = B(14030) -! JVS(36131) = Jac_FULL(5197,3832) - JVS(36131) = 0 -! JVS(36132) = Jac_FULL(5197,4104) - JVS(36132) = B(21727) -! JVS(36133) = Jac_FULL(5197,4580) - JVS(36133) = 0 -! JVS(36134) = Jac_FULL(5197,4597) - JVS(36134) = 0 -! JVS(36135) = Jac_FULL(5197,4644) - JVS(36135) = 0 -! JVS(36136) = Jac_FULL(5197,4758) - JVS(36136) = 0 -! JVS(36137) = Jac_FULL(5197,4871) - JVS(36137) = 0 -! JVS(36138) = Jac_FULL(5197,4884) - JVS(36138) = 0 -! JVS(36139) = Jac_FULL(5197,4938) - JVS(36139) = B(7015) -! JVS(36140) = Jac_FULL(5197,4947) - JVS(36140) = 0 -! JVS(36141) = Jac_FULL(5197,4948) - JVS(36141) = 0 -! JVS(36142) = Jac_FULL(5197,4950) - JVS(36142) = 0 -! JVS(36143) = Jac_FULL(5197,4968) - JVS(36143) = 0 -! JVS(36144) = Jac_FULL(5197,4971) - JVS(36144) = 0 -! JVS(36145) = Jac_FULL(5197,5007) - JVS(36145) = 0 -! JVS(36146) = Jac_FULL(5197,5008) - JVS(36146) = 0 -! JVS(36147) = Jac_FULL(5197,5019) - JVS(36147) = 0 -! JVS(36148) = Jac_FULL(5197,5030) - JVS(36148) = 0 -! JVS(36149) = Jac_FULL(5197,5045) - JVS(36149) = 0 -! JVS(36150) = Jac_FULL(5197,5061) - JVS(36150) = 0 -! JVS(36151) = Jac_FULL(5197,5062) - JVS(36151) = 0 -! JVS(36152) = Jac_FULL(5197,5063) - JVS(36152) = 0 -! JVS(36153) = Jac_FULL(5197,5076) - JVS(36153) = 0 -! JVS(36154) = Jac_FULL(5197,5088) - JVS(36154) = 0 -! JVS(36155) = Jac_FULL(5197,5098) - JVS(36155) = 0 -! JVS(36156) = Jac_FULL(5197,5105) - JVS(36156) = B(16774) -! JVS(36157) = Jac_FULL(5197,5109) - JVS(36157) = 0 -! JVS(36158) = Jac_FULL(5197,5116) - JVS(36158) = 0 -! JVS(36159) = Jac_FULL(5197,5117) - JVS(36159) = 0 -! JVS(36160) = Jac_FULL(5197,5119) - JVS(36160) = 0 -! JVS(36161) = Jac_FULL(5197,5147) - JVS(36161) = 0 -! JVS(36162) = Jac_FULL(5197,5159) - JVS(36162) = 0 -! JVS(36163) = Jac_FULL(5197,5161) - JVS(36163) = 0 -! JVS(36164) = Jac_FULL(5197,5171) - JVS(36164) = B(18978)+B(18982)+B(18986)+B(18988) -! JVS(36165) = Jac_FULL(5197,5175) - JVS(36165) = 0 -! JVS(36166) = Jac_FULL(5197,5178) - JVS(36166) = 0 -! JVS(36167) = Jac_FULL(5197,5185) - JVS(36167) = 0 -! JVS(36168) = Jac_FULL(5197,5186) - JVS(36168) = 0 -! JVS(36169) = Jac_FULL(5197,5187) - JVS(36169) = 0 -! JVS(36170) = Jac_FULL(5197,5196) - JVS(36170) = 0 -! JVS(36171) = Jac_FULL(5197,5197) - JVS(36171) = -B(10830)-B(10832)-B(10834)-B(10836)-B(10837)-B(10838) -! JVS(36172) = Jac_FULL(5197,5198) - JVS(36172) = 0 -! JVS(36173) = Jac_FULL(5197,5213) - JVS(36173) = 0 -! JVS(36174) = Jac_FULL(5197,5217) - JVS(36174) = 0 -! JVS(36175) = Jac_FULL(5197,5236) - JVS(36175) = 0 -! JVS(36176) = Jac_FULL(5197,5238) - JVS(36176) = 0 -! JVS(36177) = Jac_FULL(5197,5250) - JVS(36177) = B(7016)+B(14031) -! JVS(36178) = Jac_FULL(5197,5251) - JVS(36178) = 0 -! JVS(36179) = Jac_FULL(5197,5252) - JVS(36179) = -B(10833)+B(18983) -! JVS(36180) = Jac_FULL(5197,5253) - JVS(36180) = 0 -! JVS(36181) = Jac_FULL(5197,5254) - JVS(36181) = 0 -! JVS(36182) = Jac_FULL(5197,5255) - JVS(36182) = -B(10831)+B(18979) -! JVS(36183) = Jac_FULL(5197,5256) - JVS(36183) = -B(10835)+B(18987) -! JVS(36184) = Jac_FULL(5197,5258) - JVS(36184) = 0 -! JVS(36185) = Jac_FULL(5198,604) - JVS(36185) = B(3427) -! JVS(36186) = Jac_FULL(5198,1462) - JVS(36186) = B(14240) -! JVS(36187) = Jac_FULL(5198,2002) - JVS(36187) = B(11083) -! JVS(36188) = Jac_FULL(5198,2140) - JVS(36188) = B(11080)+B(11082) -! JVS(36189) = Jac_FULL(5198,4492) - JVS(36189) = 0 -! JVS(36190) = Jac_FULL(5198,4912) - JVS(36190) = 0 -! JVS(36191) = Jac_FULL(5198,5029) - JVS(36191) = B(11046)+B(11052)+B(11056)+B(11058) -! JVS(36192) = Jac_FULL(5198,5198) - JVS(36192) = -B(7282)-B(7284)-B(7286)-B(7288)-B(7290)-B(7291)-B(7292) -! JVS(36193) = Jac_FULL(5198,5213) - JVS(36193) = B(11038) -! JVS(36194) = Jac_FULL(5198,5250) - JVS(36194) = B(11081)+B(11084) -! JVS(36195) = Jac_FULL(5198,5251) - JVS(36195) = 0 -! JVS(36196) = Jac_FULL(5198,5252) - JVS(36196) = -B(7285)-B(7287)+B(11053) -! JVS(36197) = Jac_FULL(5198,5253) - JVS(36197) = 0 -! JVS(36198) = Jac_FULL(5198,5254) - JVS(36198) = 0 -! JVS(36199) = Jac_FULL(5198,5255) - JVS(36199) = -B(7283)+B(11047) -! JVS(36200) = Jac_FULL(5198,5256) - JVS(36200) = -B(7289)+B(11057) -! JVS(36201) = Jac_FULL(5198,5258) - JVS(36201) = 0 -! JVS(36202) = Jac_FULL(5199,2039) - JVS(36202) = B(22213) -! JVS(36203) = Jac_FULL(5199,2388) - JVS(36203) = B(22277) -! JVS(36204) = Jac_FULL(5199,2484) - JVS(36204) = B(10022) -! JVS(36205) = Jac_FULL(5199,2622) - JVS(36205) = B(20570) -! JVS(36206) = Jac_FULL(5199,2652) - JVS(36206) = B(22224) -! JVS(36207) = Jac_FULL(5199,2833) - JVS(36207) = B(22278) -! JVS(36208) = Jac_FULL(5199,2970) - JVS(36208) = B(22214) -! JVS(36209) = Jac_FULL(5199,2998) - JVS(36209) = B(22225) -! JVS(36210) = Jac_FULL(5199,3595) - JVS(36210) = B(20049) -! JVS(36211) = Jac_FULL(5199,3708) - JVS(36211) = B(14032) -! JVS(36212) = Jac_FULL(5199,3729) - JVS(36212) = B(19951) -! JVS(36213) = Jac_FULL(5199,3965) - JVS(36213) = B(13153) -! JVS(36214) = Jac_FULL(5199,4025) - JVS(36214) = 0 -! JVS(36215) = Jac_FULL(5199,4026) - JVS(36215) = B(21373)+B(21375)+B(21379)+B(21381) -! JVS(36216) = Jac_FULL(5199,4325) - JVS(36216) = B(15799) -! JVS(36217) = Jac_FULL(5199,4327) - JVS(36217) = 0 -! JVS(36218) = Jac_FULL(5199,4329) - JVS(36218) = B(21325)+B(21327)+B(21331)+B(21333) -! JVS(36219) = Jac_FULL(5199,4352) - JVS(36219) = B(12188) -! JVS(36220) = Jac_FULL(5199,4445) - JVS(36220) = B(21504)+B(21506)+B(21510)+B(21512) -! JVS(36221) = Jac_FULL(5199,4490) - JVS(36221) = B(15573) -! JVS(36222) = Jac_FULL(5199,4535) - JVS(36222) = 0 -! JVS(36223) = Jac_FULL(5199,4617) - JVS(36223) = 0 -! JVS(36224) = Jac_FULL(5199,4706) - JVS(36224) = 0 -! JVS(36225) = Jac_FULL(5199,4724) - JVS(36225) = 0 -! JVS(36226) = Jac_FULL(5199,4731) - JVS(36226) = 0 -! JVS(36227) = Jac_FULL(5199,4758) - JVS(36227) = 0 -! JVS(36228) = Jac_FULL(5199,4772) - JVS(36228) = 0 -! JVS(36229) = Jac_FULL(5199,4835) - JVS(36229) = 0 -! JVS(36230) = Jac_FULL(5199,4897) - JVS(36230) = 0 -! JVS(36231) = Jac_FULL(5199,4913) - JVS(36231) = 0 -! JVS(36232) = Jac_FULL(5199,4945) - JVS(36232) = 0 -! JVS(36233) = Jac_FULL(5199,4971) - JVS(36233) = 0 -! JVS(36234) = Jac_FULL(5199,5037) - JVS(36234) = 0 -! JVS(36235) = Jac_FULL(5199,5051) - JVS(36235) = 0 -! JVS(36236) = Jac_FULL(5199,5080) - JVS(36236) = B(10472) -! JVS(36237) = Jac_FULL(5199,5123) - JVS(36237) = 0 -! JVS(36238) = Jac_FULL(5199,5132) - JVS(36238) = 0 -! JVS(36239) = Jac_FULL(5199,5134) - JVS(36239) = 0 -! JVS(36240) = Jac_FULL(5199,5154) - JVS(36240) = 0 -! JVS(36241) = Jac_FULL(5199,5159) - JVS(36241) = 0 -! JVS(36242) = Jac_FULL(5199,5162) - JVS(36242) = 0 -! JVS(36243) = Jac_FULL(5199,5166) - JVS(36243) = 0 -! JVS(36244) = Jac_FULL(5199,5171) - JVS(36244) = 0 -! JVS(36245) = Jac_FULL(5199,5173) - JVS(36245) = 0 -! JVS(36246) = Jac_FULL(5199,5174) - JVS(36246) = 0 -! JVS(36247) = Jac_FULL(5199,5175) - JVS(36247) = 0 -! JVS(36248) = Jac_FULL(5199,5177) - JVS(36248) = 0 -! JVS(36249) = Jac_FULL(5199,5185) - JVS(36249) = 0 -! JVS(36250) = Jac_FULL(5199,5186) - JVS(36250) = 0 -! JVS(36251) = Jac_FULL(5199,5187) - JVS(36251) = 0 -! JVS(36252) = Jac_FULL(5199,5189) - JVS(36252) = 0 -! JVS(36253) = Jac_FULL(5199,5196) - JVS(36253) = 0 -! JVS(36254) = Jac_FULL(5199,5197) - JVS(36254) = B(10838) -! JVS(36255) = Jac_FULL(5199,5198) - JVS(36255) = 0 -! JVS(36256) = Jac_FULL(5199,5199) - JVS(36256) = -B(13303)-B(13304)-B(13305)-B(13307) -! JVS(36257) = Jac_FULL(5199,5204) - JVS(36257) = 0 -! JVS(36258) = Jac_FULL(5199,5213) - JVS(36258) = 0 -! JVS(36259) = Jac_FULL(5199,5217) - JVS(36259) = 0 -! JVS(36260) = Jac_FULL(5199,5218) - JVS(36260) = 0 -! JVS(36261) = Jac_FULL(5199,5219) - JVS(36261) = 0 -! JVS(36262) = Jac_FULL(5199,5220) - JVS(36262) = 0 -! JVS(36263) = Jac_FULL(5199,5224) - JVS(36263) = 0 -! JVS(36264) = Jac_FULL(5199,5225) - JVS(36264) = 0 -! JVS(36265) = Jac_FULL(5199,5227) - JVS(36265) = 0 -! JVS(36266) = Jac_FULL(5199,5236) - JVS(36266) = 0 -! JVS(36267) = Jac_FULL(5199,5238) - JVS(36267) = 0 -! JVS(36268) = Jac_FULL(5199,5250) - JVS(36268) = B(10473)+B(12189)+B(13154)-B(13308)+B(14033)+B(19952)+B(20050)+B(20571)+B(22215)+B(22226)+B(22279) -! JVS(36269) = Jac_FULL(5199,5251) - JVS(36269) = 0 -! JVS(36270) = Jac_FULL(5199,5252) - JVS(36270) = B(21328)+B(21376)+B(21507) -! JVS(36271) = Jac_FULL(5199,5253) - JVS(36271) = 0 -! JVS(36272) = Jac_FULL(5199,5254) - JVS(36272) = 0 -! JVS(36273) = Jac_FULL(5199,5255) - JVS(36273) = B(21326)+B(21374)+B(21505) -! JVS(36274) = Jac_FULL(5199,5256) - JVS(36274) = -B(13306)+B(21332)+B(21380)+B(21511) -! JVS(36275) = Jac_FULL(5199,5258) - JVS(36275) = 0 -! JVS(36276) = Jac_FULL(5200,1673) - JVS(36276) = B(7236) -! JVS(36277) = Jac_FULL(5200,2476) - JVS(36277) = B(3112) -! JVS(36278) = Jac_FULL(5200,3155) - JVS(36278) = B(3116) -! JVS(36279) = Jac_FULL(5200,3389) - JVS(36279) = B(14223) -! JVS(36280) = Jac_FULL(5200,3689) - JVS(36280) = B(862) -! JVS(36281) = Jac_FULL(5200,4765) - JVS(36281) = 0 -! JVS(36282) = Jac_FULL(5200,5042) - JVS(36282) = B(1053) -! JVS(36283) = Jac_FULL(5200,5081) - JVS(36283) = 0 -! JVS(36284) = Jac_FULL(5200,5147) - JVS(36284) = 0 -! JVS(36285) = Jac_FULL(5200,5166) - JVS(36285) = 0 -! JVS(36286) = Jac_FULL(5200,5181) - JVS(36286) = 0 -! JVS(36287) = Jac_FULL(5200,5200) - JVS(36287) = -B(429)-B(431)-B(433)-B(435)-B(437)-B(439) -! JVS(36288) = Jac_FULL(5200,5227) - JVS(36288) = B(3102) -! JVS(36289) = Jac_FULL(5200,5238) - JVS(36289) = 0 -! JVS(36290) = Jac_FULL(5200,5250) - JVS(36290) = -B(438)-B(440) -! JVS(36291) = Jac_FULL(5200,5252) - JVS(36291) = 0 -! JVS(36292) = Jac_FULL(5200,5253) - JVS(36292) = 0 -! JVS(36293) = Jac_FULL(5200,5255) - JVS(36293) = 0 -! JVS(36294) = Jac_FULL(5200,5256) - JVS(36294) = -B(430)-B(432) -! JVS(36295) = Jac_FULL(5200,5258) - JVS(36295) = -B(434)-B(436) -! JVS(36296) = Jac_FULL(5201,668) - JVS(36296) = B(801) -! JVS(36297) = Jac_FULL(5201,1573) - JVS(36297) = B(1080) -! JVS(36298) = Jac_FULL(5201,1580) - JVS(36298) = B(805) -! JVS(36299) = Jac_FULL(5201,3084) - JVS(36299) = B(659) -! JVS(36300) = Jac_FULL(5201,3085) - JVS(36300) = B(9740) -! JVS(36301) = Jac_FULL(5201,3093) - JVS(36301) = B(9264) -! JVS(36302) = Jac_FULL(5201,3096) - JVS(36302) = B(619) -! JVS(36303) = Jac_FULL(5201,3097) - JVS(36303) = B(689) -! JVS(36304) = Jac_FULL(5201,3098) - JVS(36304) = B(10107) -! JVS(36305) = Jac_FULL(5201,3101) - JVS(36305) = B(10027) -! JVS(36306) = Jac_FULL(5201,3105) - JVS(36306) = B(639) -! JVS(36307) = Jac_FULL(5201,3111) - JVS(36307) = B(9625) -! JVS(36308) = Jac_FULL(5201,3113) - JVS(36308) = B(709) -! JVS(36309) = Jac_FULL(5201,3125) - JVS(36309) = B(9129) -! JVS(36310) = Jac_FULL(5201,3129) - JVS(36310) = B(719) -! JVS(36311) = Jac_FULL(5201,3130) - JVS(36311) = B(2899)+B(2901) -! JVS(36312) = Jac_FULL(5201,3131) - JVS(36312) = B(2492)+B(2494) -! JVS(36313) = Jac_FULL(5201,3134) - JVS(36313) = B(629) -! JVS(36314) = Jac_FULL(5201,3135) - JVS(36314) = B(2537)+B(2539) -! JVS(36315) = Jac_FULL(5201,3136) - JVS(36315) = B(2558)+B(2560) -! JVS(36316) = Jac_FULL(5201,3138) - JVS(36316) = B(679) -! JVS(36317) = Jac_FULL(5201,3139) - JVS(36317) = B(2741)+B(2743) -! JVS(36318) = Jac_FULL(5201,3140) - JVS(36318) = B(9388) -! JVS(36319) = Jac_FULL(5201,3144) - JVS(36319) = B(649) -! JVS(36320) = Jac_FULL(5201,3145) - JVS(36320) = B(609) -! JVS(36321) = Jac_FULL(5201,3149) - JVS(36321) = B(2604)+B(2606) -! JVS(36322) = Jac_FULL(5201,3150) - JVS(36322) = B(9227) -! JVS(36323) = Jac_FULL(5201,3153) - JVS(36323) = B(9968) -! JVS(36324) = Jac_FULL(5201,3157) - JVS(36324) = B(2384)+B(2388) -! JVS(36325) = Jac_FULL(5201,3158) - JVS(36325) = B(2450)+B(2452) -! JVS(36326) = Jac_FULL(5201,3161) - JVS(36326) = B(8750) -! JVS(36327) = Jac_FULL(5201,3164) - JVS(36327) = B(2865)+B(2867) -! JVS(36328) = Jac_FULL(5201,3165) - JVS(36328) = B(9495) -! JVS(36329) = Jac_FULL(5201,3169) - JVS(36329) = B(739) -! JVS(36330) = Jac_FULL(5201,3170) - JVS(36330) = B(8995) -! JVS(36331) = Jac_FULL(5201,3172) - JVS(36331) = B(2645)+B(2647) -! JVS(36332) = Jac_FULL(5201,3179) - JVS(36332) = B(669) -! JVS(36333) = Jac_FULL(5201,3180) - JVS(36333) = B(2691)+B(2693) -! JVS(36334) = Jac_FULL(5201,3182) - JVS(36334) = B(729) -! JVS(36335) = Jac_FULL(5201,3192) - JVS(36335) = B(699) -! JVS(36336) = Jac_FULL(5201,3193) - JVS(36336) = B(2834)+B(2836) -! JVS(36337) = Jac_FULL(5201,3219) - JVS(36337) = B(2960) -! JVS(36338) = Jac_FULL(5201,3244) - JVS(36338) = B(2941) -! JVS(36339) = Jac_FULL(5201,3248) - JVS(36339) = B(22888) -! JVS(36340) = Jac_FULL(5201,3263) - JVS(36340) = B(2785) -! JVS(36341) = Jac_FULL(5201,3329) - JVS(36341) = B(20066) -! JVS(36342) = Jac_FULL(5201,3347) - JVS(36342) = B(20044) -! JVS(36343) = Jac_FULL(5201,3362) - JVS(36343) = B(20216) -! JVS(36344) = Jac_FULL(5201,3363) - JVS(36344) = B(20176) -! JVS(36345) = Jac_FULL(5201,3370) - JVS(36345) = B(19883) -! JVS(36346) = Jac_FULL(5201,3371) - JVS(36346) = B(20018) -! JVS(36347) = Jac_FULL(5201,3375) - JVS(36347) = B(19921) -! JVS(36348) = Jac_FULL(5201,3381) - JVS(36348) = B(20190) -! JVS(36349) = Jac_FULL(5201,3388) - JVS(36349) = B(20260) -! JVS(36350) = Jac_FULL(5201,3402) - JVS(36350) = B(19946) -! JVS(36351) = Jac_FULL(5201,3417) - JVS(36351) = B(20238) -! JVS(36352) = Jac_FULL(5201,3437) - JVS(36352) = B(9647) -! JVS(36353) = Jac_FULL(5201,3454) - JVS(36353) = B(16601) -! JVS(36354) = Jac_FULL(5201,3470) - JVS(36354) = B(16500) -! JVS(36355) = Jac_FULL(5201,3471) - JVS(36355) = B(15091) -! JVS(36356) = Jac_FULL(5201,3472) - JVS(36356) = B(6975)+B(6977) -! JVS(36357) = Jac_FULL(5201,3482) - JVS(36357) = B(5967) -! JVS(36358) = Jac_FULL(5201,3483) - JVS(36358) = B(13522) -! JVS(36359) = Jac_FULL(5201,3484) - JVS(36359) = B(18129) -! JVS(36360) = Jac_FULL(5201,3488) - JVS(36360) = B(10481) -! JVS(36361) = Jac_FULL(5201,3494) - JVS(36361) = B(6056) -! JVS(36362) = Jac_FULL(5201,3499) - JVS(36362) = B(6342) -! JVS(36363) = Jac_FULL(5201,3506) - JVS(36363) = B(6266) -! JVS(36364) = Jac_FULL(5201,3508) - JVS(36364) = B(5470) -! JVS(36365) = Jac_FULL(5201,3510) - JVS(36365) = B(13947) -! JVS(36366) = Jac_FULL(5201,3512) - JVS(36366) = B(5654) -! JVS(36367) = Jac_FULL(5201,3513) - JVS(36367) = B(19608) -! JVS(36368) = Jac_FULL(5201,3526) - JVS(36368) = B(16458) -! JVS(36369) = Jac_FULL(5201,3543) - JVS(36369) = B(16037) -! JVS(36370) = Jac_FULL(5201,3545) - JVS(36370) = B(5323) -! JVS(36371) = Jac_FULL(5201,3546) - JVS(36371) = B(22217) -! JVS(36372) = Jac_FULL(5201,3551) - JVS(36372) = B(6413) -! JVS(36373) = Jac_FULL(5201,3560) - JVS(36373) = B(5569) -! JVS(36374) = Jac_FULL(5201,3574) - JVS(36374) = B(20101) -! JVS(36375) = Jac_FULL(5201,3596) - JVS(36375) = B(20131) -! JVS(36376) = Jac_FULL(5201,3633) - JVS(36376) = B(23966) -! JVS(36377) = Jac_FULL(5201,3640) - JVS(36377) = B(5483) -! JVS(36378) = Jac_FULL(5201,3643) - JVS(36378) = B(5390) -! JVS(36379) = Jac_FULL(5201,3645) - JVS(36379) = B(6102) -! JVS(36380) = Jac_FULL(5201,3649) - JVS(36380) = B(5669) -! JVS(36381) = Jac_FULL(5201,3654) - JVS(36381) = B(4340) -! JVS(36382) = Jac_FULL(5201,3655) - JVS(36382) = B(6014) -! JVS(36383) = Jac_FULL(5201,3657) - JVS(36383) = B(5582) -! JVS(36384) = Jac_FULL(5201,3660) - JVS(36384) = B(4325) -! JVS(36385) = Jac_FULL(5201,3662) - JVS(36385) = B(14974) -! JVS(36386) = Jac_FULL(5201,3684) - JVS(36386) = B(5873) -! JVS(36387) = Jac_FULL(5201,3701) - JVS(36387) = B(5785) -! JVS(36388) = Jac_FULL(5201,3748) - JVS(36388) = B(18339) -! JVS(36389) = Jac_FULL(5201,3773) - JVS(36389) = B(18410) -! JVS(36390) = Jac_FULL(5201,3775) - JVS(36390) = B(18477) -! JVS(36391) = Jac_FULL(5201,3792) - JVS(36391) = B(15003) -! JVS(36392) = Jac_FULL(5201,3830) - JVS(36392) = B(5280) -! JVS(36393) = Jac_FULL(5201,3831) - JVS(36393) = B(5694) -! JVS(36394) = Jac_FULL(5201,3833) - JVS(36394) = B(2822) -! JVS(36395) = Jac_FULL(5201,3834) - JVS(36395) = B(2438) -! JVS(36396) = Jac_FULL(5201,3849) - JVS(36396) = B(23374) -! JVS(36397) = Jac_FULL(5201,3851) - JVS(36397) = B(4583) -! JVS(36398) = Jac_FULL(5201,3856) - JVS(36398) = B(4637) -! JVS(36399) = Jac_FULL(5201,3857) - JVS(36399) = B(11843) -! JVS(36400) = Jac_FULL(5201,3861) - JVS(36400) = B(19002) -! JVS(36401) = Jac_FULL(5201,3862) - JVS(36401) = B(20809) -! JVS(36402) = Jac_FULL(5201,3875) - JVS(36402) = B(4526) -! JVS(36403) = Jac_FULL(5201,3877) - JVS(36403) = B(4682) -! JVS(36404) = Jac_FULL(5201,3879) - JVS(36404) = B(7216) -! JVS(36405) = Jac_FULL(5201,3892) - JVS(36405) = B(3969) -! JVS(36406) = Jac_FULL(5201,3896) - JVS(36406) = B(18683) -! JVS(36407) = Jac_FULL(5201,3900) - JVS(36407) = B(6985) -! JVS(36408) = Jac_FULL(5201,3911) - JVS(36408) = B(18207) -! JVS(36409) = Jac_FULL(5201,3913) - JVS(36409) = 0 -! JVS(36410) = Jac_FULL(5201,3914) - JVS(36410) = B(18195) -! JVS(36411) = Jac_FULL(5201,3915) - JVS(36411) = B(14947) -! JVS(36412) = Jac_FULL(5201,3923) - JVS(36412) = B(11735) -! JVS(36413) = Jac_FULL(5201,3924) - JVS(36413) = B(4654) -! JVS(36414) = Jac_FULL(5201,3935) - JVS(36414) = B(11483) -! JVS(36415) = Jac_FULL(5201,3938) - JVS(36415) = B(21142) -! JVS(36416) = Jac_FULL(5201,3946) - JVS(36416) = B(12065) -! JVS(36417) = Jac_FULL(5201,3947) - JVS(36417) = B(16975) -! JVS(36418) = Jac_FULL(5201,3960) - JVS(36418) = B(23927) -! JVS(36419) = Jac_FULL(5201,3972) - JVS(36419) = B(18973) -! JVS(36420) = Jac_FULL(5201,3986) - JVS(36420) = B(11982) -! JVS(36421) = Jac_FULL(5201,3991) - JVS(36421) = B(11508) -! JVS(36422) = Jac_FULL(5201,3995) - JVS(36422) = B(4171) -! JVS(36423) = Jac_FULL(5201,3996) - JVS(36423) = B(2791) -! JVS(36424) = Jac_FULL(5201,4010) - JVS(36424) = B(2407) -! JVS(36425) = Jac_FULL(5201,4017) - JVS(36425) = B(2979) -! JVS(36426) = Jac_FULL(5201,4018) - JVS(36426) = B(2931) -! JVS(36427) = Jac_FULL(5201,4027) - JVS(36427) = B(2751) -! JVS(36428) = Jac_FULL(5201,4032) - JVS(36428) = B(2581) -! JVS(36429) = Jac_FULL(5201,4048) - JVS(36429) = B(8789) -! JVS(36430) = Jac_FULL(5201,4056) - JVS(36430) = B(2482) -! JVS(36431) = Jac_FULL(5201,4069) - JVS(36431) = 0 -! JVS(36432) = Jac_FULL(5201,4080) - JVS(36432) = B(2855) -! JVS(36433) = Jac_FULL(5201,4083) - JVS(36433) = B(2525) -! JVS(36434) = Jac_FULL(5201,4093) - JVS(36434) = B(2668) -! JVS(36435) = Jac_FULL(5201,4094) - JVS(36435) = B(2625) -! JVS(36436) = Jac_FULL(5201,4107) - JVS(36436) = 0 -! JVS(36437) = Jac_FULL(5201,4108) - JVS(36437) = B(4899) -! JVS(36438) = Jac_FULL(5201,4110) - JVS(36438) = B(11860) -! JVS(36439) = Jac_FULL(5201,4113) - JVS(36439) = 0 -! JVS(36440) = Jac_FULL(5201,4114) - JVS(36440) = B(5010) -! JVS(36441) = Jac_FULL(5201,4117) - JVS(36441) = 0 -! JVS(36442) = Jac_FULL(5201,4120) - JVS(36442) = 0 -! JVS(36443) = Jac_FULL(5201,4151) - JVS(36443) = B(7326) -! JVS(36444) = Jac_FULL(5201,4155) - JVS(36444) = B(5095) -! JVS(36445) = Jac_FULL(5201,4156) - JVS(36445) = B(4331) -! JVS(36446) = Jac_FULL(5201,4160) - JVS(36446) = B(5049) -! JVS(36447) = Jac_FULL(5201,4174) - JVS(36447) = B(4933) -! JVS(36448) = Jac_FULL(5201,4186) - JVS(36448) = B(7393) -! JVS(36449) = Jac_FULL(5201,4224) - JVS(36449) = B(21707) -! JVS(36450) = Jac_FULL(5201,4227) - JVS(36450) = B(18472) -! JVS(36451) = Jac_FULL(5201,4231) - JVS(36451) = B(13934) -! JVS(36452) = Jac_FULL(5201,4233) - JVS(36452) = B(18405) -! JVS(36453) = Jac_FULL(5201,4239) - JVS(36453) = B(14024) -! JVS(36454) = Jac_FULL(5201,4261) - JVS(36454) = B(11717) -! JVS(36455) = Jac_FULL(5201,4272) - JVS(36455) = B(2887) -! JVS(36456) = Jac_FULL(5201,4278) - JVS(36456) = B(21790) -! JVS(36457) = Jac_FULL(5201,4279) - JVS(36457) = B(17639) -! JVS(36458) = Jac_FULL(5201,4313) - JVS(36458) = B(11934) -! JVS(36459) = Jac_FULL(5201,4338) - JVS(36459) = 0 -! JVS(36460) = Jac_FULL(5201,4346) - JVS(36460) = 0 -! JVS(36461) = Jac_FULL(5201,4348) - JVS(36461) = 0 -! JVS(36462) = Jac_FULL(5201,4350) - JVS(36462) = 0 -! JVS(36463) = Jac_FULL(5201,4359) - JVS(36463) = 0 -! JVS(36464) = Jac_FULL(5201,4362) - JVS(36464) = B(23567) -! JVS(36465) = Jac_FULL(5201,4373) - JVS(36465) = B(6690) -! JVS(36466) = Jac_FULL(5201,4396) - JVS(36466) = B(2353) -! JVS(36467) = Jac_FULL(5201,4397) - JVS(36467) = B(2363) -! JVS(36468) = Jac_FULL(5201,4407) - JVS(36468) = 0 -! JVS(36469) = Jac_FULL(5201,4408) - JVS(36469) = 0 -! JVS(36470) = Jac_FULL(5201,4415) - JVS(36470) = 0 -! JVS(36471) = Jac_FULL(5201,4424) - JVS(36471) = 0 -! JVS(36472) = Jac_FULL(5201,4425) - JVS(36472) = 0 -! JVS(36473) = Jac_FULL(5201,4434) - JVS(36473) = 0 -! JVS(36474) = Jac_FULL(5201,4437) - JVS(36474) = 0 -! JVS(36475) = Jac_FULL(5201,4438) - JVS(36475) = 0 -! JVS(36476) = Jac_FULL(5201,4449) - JVS(36476) = 0 -! JVS(36477) = Jac_FULL(5201,4453) - JVS(36477) = 0 -! JVS(36478) = Jac_FULL(5201,4455) - JVS(36478) = 0 -! JVS(36479) = Jac_FULL(5201,4457) - JVS(36479) = 0 -! JVS(36480) = Jac_FULL(5201,4458) - JVS(36480) = 0 -! JVS(36481) = Jac_FULL(5201,4462) - JVS(36481) = B(22297) -! JVS(36482) = Jac_FULL(5201,4463) - JVS(36482) = 0 -! JVS(36483) = Jac_FULL(5201,4464) - JVS(36483) = 0 -! JVS(36484) = Jac_FULL(5201,4467) - JVS(36484) = 0 -! JVS(36485) = Jac_FULL(5201,4478) - JVS(36485) = 0 -! JVS(36486) = Jac_FULL(5201,4479) - JVS(36486) = 0 -! JVS(36487) = Jac_FULL(5201,4490) - JVS(36487) = 0 -! JVS(36488) = Jac_FULL(5201,4493) - JVS(36488) = B(19061) -! JVS(36489) = Jac_FULL(5201,4494) - JVS(36489) = 0 -! JVS(36490) = Jac_FULL(5201,4495) - JVS(36490) = 0 -! JVS(36491) = Jac_FULL(5201,4498) - JVS(36491) = 0 -! JVS(36492) = Jac_FULL(5201,4501) - JVS(36492) = B(17729) -! JVS(36493) = Jac_FULL(5201,4502) - JVS(36493) = 0 -! JVS(36494) = Jac_FULL(5201,4504) - JVS(36494) = 0 -! JVS(36495) = Jac_FULL(5201,4506) - JVS(36495) = 0 -! JVS(36496) = Jac_FULL(5201,4511) - JVS(36496) = 0 -! JVS(36497) = Jac_FULL(5201,4530) - JVS(36497) = B(7894) -! JVS(36498) = Jac_FULL(5201,4537) - JVS(36498) = B(17856) -! JVS(36499) = Jac_FULL(5201,4540) - JVS(36499) = B(11618) -! JVS(36500) = Jac_FULL(5201,4547) - JVS(36500) = B(5426) -! JVS(36501) = Jac_FULL(5201,4559) - JVS(36501) = B(4473) -! JVS(36502) = Jac_FULL(5201,4569) - JVS(36502) = B(6155) -! JVS(36503) = Jac_FULL(5201,4576) - JVS(36503) = B(6222) -! JVS(36504) = Jac_FULL(5201,4589) - JVS(36504) = 0 -! JVS(36505) = Jac_FULL(5201,4591) - JVS(36505) = 0 -! JVS(36506) = Jac_FULL(5201,4592) - JVS(36506) = 0 -! JVS(36507) = Jac_FULL(5201,4595) - JVS(36507) = 0 -! JVS(36508) = Jac_FULL(5201,4600) - JVS(36508) = 0 -! JVS(36509) = Jac_FULL(5201,4609) - JVS(36509) = 0 -! JVS(36510) = Jac_FULL(5201,4610) - JVS(36510) = 0 -! JVS(36511) = Jac_FULL(5201,4616) - JVS(36511) = 0 -! JVS(36512) = Jac_FULL(5201,4630) - JVS(36512) = B(5990) -! JVS(36513) = Jac_FULL(5201,4632) - JVS(36513) = 0 -! JVS(36514) = Jac_FULL(5201,4637) - JVS(36514) = 0 -! JVS(36515) = Jac_FULL(5201,4643) - JVS(36515) = 0 -! JVS(36516) = Jac_FULL(5201,4650) - JVS(36516) = 0 -! JVS(36517) = Jac_FULL(5201,4651) - JVS(36517) = B(18037) -! JVS(36518) = Jac_FULL(5201,4655) - JVS(36518) = 0 -! JVS(36519) = Jac_FULL(5201,4663) - JVS(36519) = 0 -! JVS(36520) = Jac_FULL(5201,4671) - JVS(36520) = 0 -! JVS(36521) = Jac_FULL(5201,4676) - JVS(36521) = 0 -! JVS(36522) = Jac_FULL(5201,4682) - JVS(36522) = 0 -! JVS(36523) = Jac_FULL(5201,4690) - JVS(36523) = 0 -! JVS(36524) = Jac_FULL(5201,4696) - JVS(36524) = 0 -! JVS(36525) = Jac_FULL(5201,4698) - JVS(36525) = 0 -! JVS(36526) = Jac_FULL(5201,4707) - JVS(36526) = 0 -! JVS(36527) = Jac_FULL(5201,4710) - JVS(36527) = B(19816) -! JVS(36528) = Jac_FULL(5201,4717) - JVS(36528) = B(7177) -! JVS(36529) = Jac_FULL(5201,4721) - JVS(36529) = B(5229) -! JVS(36530) = Jac_FULL(5201,4729) - JVS(36530) = B(5524) -! JVS(36531) = Jac_FULL(5201,4730) - JVS(36531) = 0 -! JVS(36532) = Jac_FULL(5201,4732) - JVS(36532) = 0 -! JVS(36533) = Jac_FULL(5201,4733) - JVS(36533) = 0 -! JVS(36534) = Jac_FULL(5201,4734) - JVS(36534) = 0 -! JVS(36535) = Jac_FULL(5201,4737) - JVS(36535) = B(3907) -! JVS(36536) = Jac_FULL(5201,4774) - JVS(36536) = 0 -! JVS(36537) = Jac_FULL(5201,4775) - JVS(36537) = B(15988) -! JVS(36538) = Jac_FULL(5201,4777) - JVS(36538) = 0 -! JVS(36539) = Jac_FULL(5201,4778) - JVS(36539) = 0 -! JVS(36540) = Jac_FULL(5201,4779) - JVS(36540) = 0 -! JVS(36541) = Jac_FULL(5201,4785) - JVS(36541) = 0 -! JVS(36542) = Jac_FULL(5201,4788) - JVS(36542) = 0 -! JVS(36543) = Jac_FULL(5201,4789) - JVS(36543) = 0 -! JVS(36544) = Jac_FULL(5201,4790) - JVS(36544) = 0 -! JVS(36545) = Jac_FULL(5201,4791) - JVS(36545) = 0 -! JVS(36546) = Jac_FULL(5201,4793) - JVS(36546) = 0 -! JVS(36547) = Jac_FULL(5201,4797) - JVS(36547) = 0 -! JVS(36548) = Jac_FULL(5201,4798) - JVS(36548) = 0 -! JVS(36549) = Jac_FULL(5201,4799) - JVS(36549) = 0 -! JVS(36550) = Jac_FULL(5201,4803) - JVS(36550) = 0 -! JVS(36551) = Jac_FULL(5201,4806) - JVS(36551) = 0 -! JVS(36552) = Jac_FULL(5201,4808) - JVS(36552) = 0 -! JVS(36553) = Jac_FULL(5201,4809) - JVS(36553) = 0 -! JVS(36554) = Jac_FULL(5201,4810) - JVS(36554) = 0 -! JVS(36555) = Jac_FULL(5201,4815) - JVS(36555) = B(16090) -! JVS(36556) = Jac_FULL(5201,4820) - JVS(36556) = 0 -! JVS(36557) = Jac_FULL(5201,4821) - JVS(36557) = 0 -! JVS(36558) = Jac_FULL(5201,4828) - JVS(36558) = 0 -! JVS(36559) = Jac_FULL(5201,4834) - JVS(36559) = B(11958) -! JVS(36560) = Jac_FULL(5201,4835) - JVS(36560) = 0 -! JVS(36561) = Jac_FULL(5201,4840) - JVS(36561) = B(242) -! JVS(36562) = Jac_FULL(5201,4842) - JVS(36562) = B(17070) -! JVS(36563) = Jac_FULL(5201,4845) - JVS(36563) = B(4827) -! JVS(36564) = Jac_FULL(5201,4851) - JVS(36564) = B(13554) -! JVS(36565) = Jac_FULL(5201,4854) - JVS(36565) = 0 -! JVS(36566) = Jac_FULL(5201,4859) - JVS(36566) = 0 -! JVS(36567) = Jac_FULL(5201,4872) - JVS(36567) = B(3756) -! JVS(36568) = Jac_FULL(5201,4873) - JVS(36568) = B(5142) -! JVS(36569) = Jac_FULL(5201,4878) - JVS(36569) = 0 -! JVS(36570) = Jac_FULL(5201,4879) - JVS(36570) = 0 -! JVS(36571) = Jac_FULL(5201,4880) - JVS(36571) = 0 -! JVS(36572) = Jac_FULL(5201,4881) - JVS(36572) = 0 -! JVS(36573) = Jac_FULL(5201,4882) - JVS(36573) = B(7725) -! JVS(36574) = Jac_FULL(5201,4886) - JVS(36574) = 0 -! JVS(36575) = Jac_FULL(5201,4895) - JVS(36575) = 0 -! JVS(36576) = Jac_FULL(5201,4896) - JVS(36576) = 0 -! JVS(36577) = Jac_FULL(5201,4898) - JVS(36577) = 0 -! JVS(36578) = Jac_FULL(5201,4902) - JVS(36578) = B(22311) -! JVS(36579) = Jac_FULL(5201,4911) - JVS(36579) = 0 -! JVS(36580) = Jac_FULL(5201,4914) - JVS(36580) = B(11095) -! JVS(36581) = Jac_FULL(5201,4918) - JVS(36581) = B(9411) -! JVS(36582) = Jac_FULL(5201,4922) - JVS(36582) = 0 -! JVS(36583) = Jac_FULL(5201,4923) - JVS(36583) = 0 -! JVS(36584) = Jac_FULL(5201,4925) - JVS(36584) = 0 -! JVS(36585) = Jac_FULL(5201,4927) - JVS(36585) = 0 -! JVS(36586) = Jac_FULL(5201,4928) - JVS(36586) = 0 -! JVS(36587) = Jac_FULL(5201,4931) - JVS(36587) = B(7662) -! JVS(36588) = Jac_FULL(5201,4932) - JVS(36588) = 0 -! JVS(36589) = Jac_FULL(5201,4933) - JVS(36589) = B(6556) -! JVS(36590) = Jac_FULL(5201,4937) - JVS(36590) = 0 -! JVS(36591) = Jac_FULL(5201,4939) - JVS(36591) = B(13895) -! JVS(36592) = Jac_FULL(5201,4951) - JVS(36592) = 0 -! JVS(36593) = Jac_FULL(5201,4960) - JVS(36593) = 0 -! JVS(36594) = Jac_FULL(5201,4961) - JVS(36594) = B(5070) -! JVS(36595) = Jac_FULL(5201,4964) - JVS(36595) = B(759) -! JVS(36596) = Jac_FULL(5201,4965) - JVS(36596) = 0 -! JVS(36597) = Jac_FULL(5201,4969) - JVS(36597) = 0 -! JVS(36598) = Jac_FULL(5201,4971) - JVS(36598) = 0 -! JVS(36599) = Jac_FULL(5201,4972) - JVS(36599) = 0 -! JVS(36600) = Jac_FULL(5201,4975) - JVS(36600) = B(11821) -! JVS(36601) = Jac_FULL(5201,4976) - JVS(36601) = B(10511) -! JVS(36602) = Jac_FULL(5201,4978) - JVS(36602) = B(23518) -! JVS(36603) = Jac_FULL(5201,4980) - JVS(36603) = 0 -! JVS(36604) = Jac_FULL(5201,4984) - JVS(36604) = 0 -! JVS(36605) = Jac_FULL(5201,4987) - JVS(36605) = 0 -! JVS(36606) = Jac_FULL(5201,4996) - JVS(36606) = B(14202) -! JVS(36607) = Jac_FULL(5201,4997) - JVS(36607) = 0 -! JVS(36608) = Jac_FULL(5201,4998) - JVS(36608) = 0 -! JVS(36609) = Jac_FULL(5201,5002) - JVS(36609) = B(10580) -! JVS(36610) = Jac_FULL(5201,5009) - JVS(36610) = B(4967) -! JVS(36611) = Jac_FULL(5201,5010) - JVS(36611) = 0 -! JVS(36612) = Jac_FULL(5201,5012) - JVS(36612) = B(3891) -! JVS(36613) = Jac_FULL(5201,5018) - JVS(36613) = B(18134) -! JVS(36614) = Jac_FULL(5201,5019) - JVS(36614) = 0 -! JVS(36615) = Jac_FULL(5201,5021) - JVS(36615) = 0 -! JVS(36616) = Jac_FULL(5201,5023) - JVS(36616) = B(4237) -! JVS(36617) = Jac_FULL(5201,5024) - JVS(36617) = B(16718) -! JVS(36618) = Jac_FULL(5201,5026) - JVS(36618) = B(7087) -! JVS(36619) = Jac_FULL(5201,5029) - JVS(36619) = 0 -! JVS(36620) = Jac_FULL(5201,5030) - JVS(36620) = 0 -! JVS(36621) = Jac_FULL(5201,5032) - JVS(36621) = 0 -! JVS(36622) = Jac_FULL(5201,5042) - JVS(36622) = B(1055) -! JVS(36623) = Jac_FULL(5201,5043) - JVS(36623) = 0 -! JVS(36624) = Jac_FULL(5201,5044) - JVS(36624) = 0 -! JVS(36625) = Jac_FULL(5201,5045) - JVS(36625) = 0 -! JVS(36626) = Jac_FULL(5201,5049) - JVS(36626) = B(6657) -! JVS(36627) = Jac_FULL(5201,5050) - JVS(36627) = B(6629) -! JVS(36628) = Jac_FULL(5201,5055) - JVS(36628) = B(4139) -! JVS(36629) = Jac_FULL(5201,5056) - JVS(36629) = 0 -! JVS(36630) = Jac_FULL(5201,5057) - JVS(36630) = B(3866) -! JVS(36631) = Jac_FULL(5201,5058) - JVS(36631) = B(5258) -! JVS(36632) = Jac_FULL(5201,5063) - JVS(36632) = B(11898) -! JVS(36633) = Jac_FULL(5201,5064) - JVS(36633) = 0 -! JVS(36634) = Jac_FULL(5201,5065) - JVS(36634) = 0 -! JVS(36635) = Jac_FULL(5201,5066) - JVS(36635) = B(9416) -! JVS(36636) = Jac_FULL(5201,5067) - JVS(36636) = B(4877) -! JVS(36637) = Jac_FULL(5201,5068) - JVS(36637) = B(9526) -! JVS(36638) = Jac_FULL(5201,5069) - JVS(36638) = B(6709) -! JVS(36639) = Jac_FULL(5201,5071) - JVS(36639) = B(3730) -! JVS(36640) = Jac_FULL(5201,5072) - JVS(36640) = B(22900)+B(22902) -! JVS(36641) = Jac_FULL(5201,5076) - JVS(36641) = B(8915) -! JVS(36642) = Jac_FULL(5201,5077) - JVS(36642) = 0 -! JVS(36643) = Jac_FULL(5201,5078) - JVS(36643) = 0 -! JVS(36644) = Jac_FULL(5201,5081) - JVS(36644) = 0 -! JVS(36645) = Jac_FULL(5201,5082) - JVS(36645) = 0 -! JVS(36646) = Jac_FULL(5201,5083) - JVS(36646) = B(14427) -! JVS(36647) = Jac_FULL(5201,5085) - JVS(36647) = B(20852) -! JVS(36648) = Jac_FULL(5201,5086) - JVS(36648) = B(19105) -! JVS(36649) = Jac_FULL(5201,5087) - JVS(36649) = B(1225) -! JVS(36650) = Jac_FULL(5201,5088) - JVS(36650) = 0 -! JVS(36651) = Jac_FULL(5201,5089) - JVS(36651) = B(9039) -! JVS(36652) = Jac_FULL(5201,5090) - JVS(36652) = 0 -! JVS(36653) = Jac_FULL(5201,5091) - JVS(36653) = 0 -! JVS(36654) = Jac_FULL(5201,5093) - JVS(36654) = 0 -! JVS(36655) = Jac_FULL(5201,5095) - JVS(36655) = B(19316) -! JVS(36656) = Jac_FULL(5201,5096) - JVS(36656) = 0 -! JVS(36657) = Jac_FULL(5201,5097) - JVS(36657) = 0 -! JVS(36658) = Jac_FULL(5201,5105) - JVS(36658) = B(16776) -! JVS(36659) = Jac_FULL(5201,5111) - JVS(36659) = 0 -! JVS(36660) = Jac_FULL(5201,5112) - JVS(36660) = 0 -! JVS(36661) = Jac_FULL(5201,5113) - JVS(36661) = 0 -! JVS(36662) = Jac_FULL(5201,5114) - JVS(36662) = 0 -! JVS(36663) = Jac_FULL(5201,5115) - JVS(36663) = B(11785) -! JVS(36664) = Jac_FULL(5201,5116) - JVS(36664) = 0 -! JVS(36665) = Jac_FULL(5201,5118) - JVS(36665) = 0 -! JVS(36666) = Jac_FULL(5201,5119) - JVS(36666) = 0 -! JVS(36667) = Jac_FULL(5201,5120) - JVS(36667) = 0 -! JVS(36668) = Jac_FULL(5201,5121) - JVS(36668) = 0 -! JVS(36669) = Jac_FULL(5201,5123) - JVS(36669) = B(8822) -! JVS(36670) = Jac_FULL(5201,5126) - JVS(36670) = B(9295) -! JVS(36671) = Jac_FULL(5201,5127) - JVS(36671) = 0 -! JVS(36672) = Jac_FULL(5201,5135) - JVS(36672) = 0 -! JVS(36673) = Jac_FULL(5201,5136) - JVS(36673) = 0 -! JVS(36674) = Jac_FULL(5201,5138) - JVS(36674) = 0 -! JVS(36675) = Jac_FULL(5201,5139) - JVS(36675) = B(7025) -! JVS(36676) = Jac_FULL(5201,5140) - JVS(36676) = 0 -! JVS(36677) = Jac_FULL(5201,5141) - JVS(36677) = B(10139) -! JVS(36678) = Jac_FULL(5201,5143) - JVS(36678) = B(4208) -! JVS(36679) = Jac_FULL(5201,5144) - JVS(36679) = 0 -! JVS(36680) = Jac_FULL(5201,5146) - JVS(36680) = 0 -! JVS(36681) = Jac_FULL(5201,5147) - JVS(36681) = 0 -! JVS(36682) = Jac_FULL(5201,5148) - JVS(36682) = 0 -! JVS(36683) = Jac_FULL(5201,5149) - JVS(36683) = 0 -! JVS(36684) = Jac_FULL(5201,5150) - JVS(36684) = 0 -! JVS(36685) = Jac_FULL(5201,5151) - JVS(36685) = 0 -! JVS(36686) = Jac_FULL(5201,5153) - JVS(36686) = 0 -! JVS(36687) = Jac_FULL(5201,5157) - JVS(36687) = 0 -! JVS(36688) = Jac_FULL(5201,5159) - JVS(36688) = B(19134) -! JVS(36689) = Jac_FULL(5201,5161) - JVS(36689) = 0 -! JVS(36690) = Jac_FULL(5201,5162) - JVS(36690) = B(4489) -! JVS(36691) = Jac_FULL(5201,5163) - JVS(36691) = 0 -! JVS(36692) = Jac_FULL(5201,5164) - JVS(36692) = 0 -! JVS(36693) = Jac_FULL(5201,5165) - JVS(36693) = B(206) -! JVS(36694) = Jac_FULL(5201,5166) - JVS(36694) = 0 -! JVS(36695) = Jac_FULL(5201,5169) - JVS(36695) = B(11186) -! JVS(36696) = Jac_FULL(5201,5175) - JVS(36696) = 0 -! JVS(36697) = Jac_FULL(5201,5176) - JVS(36697) = B(14410) -! JVS(36698) = Jac_FULL(5201,5177) - JVS(36698) = B(22519) -! JVS(36699) = Jac_FULL(5201,5178) - JVS(36699) = 0 -! JVS(36700) = Jac_FULL(5201,5180) - JVS(36700) = B(4815) -! JVS(36701) = Jac_FULL(5201,5181) - JVS(36701) = 0 -! JVS(36702) = Jac_FULL(5201,5182) - JVS(36702) = B(17414) -! JVS(36703) = Jac_FULL(5201,5184) - JVS(36703) = B(3649) -! JVS(36704) = Jac_FULL(5201,5185) - JVS(36704) = 0 -! JVS(36705) = Jac_FULL(5201,5186) - JVS(36705) = 0 -! JVS(36706) = Jac_FULL(5201,5187) - JVS(36706) = B(22982) -! JVS(36707) = Jac_FULL(5201,5189) - JVS(36707) = B(21950) -! JVS(36708) = Jac_FULL(5201,5190) - JVS(36708) = 0 -! JVS(36709) = Jac_FULL(5201,5191) - JVS(36709) = B(184) -! JVS(36710) = Jac_FULL(5201,5192) - JVS(36710) = 0 -! JVS(36711) = Jac_FULL(5201,5193) - JVS(36711) = B(178) -! JVS(36712) = Jac_FULL(5201,5194) - JVS(36712) = B(213) -! JVS(36713) = Jac_FULL(5201,5196) - JVS(36713) = 0 -! JVS(36714) = Jac_FULL(5201,5198) - JVS(36714) = 0 -! JVS(36715) = Jac_FULL(5201,5199) - JVS(36715) = B(13305) -! JVS(36716) = Jac_FULL(5201,5200) - JVS(36716) = 0 -! JVS(36717) = Jac_FULL(5201,5201) - JVS(36717) = -B(54)-B(61)-B(71) -! JVS(36718) = Jac_FULL(5201,5202) - JVS(36718) = 0 -! JVS(36719) = Jac_FULL(5201,5203) - JVS(36719) = B(197) -! JVS(36720) = Jac_FULL(5201,5204) - JVS(36720) = 0 -! JVS(36721) = Jac_FULL(5201,5205) - JVS(36721) = B(10527) -! JVS(36722) = Jac_FULL(5201,5206) - JVS(36722) = 0 -! JVS(36723) = Jac_FULL(5201,5207) - JVS(36723) = B(11386) -! JVS(36724) = Jac_FULL(5201,5208) - JVS(36724) = 0 -! JVS(36725) = Jac_FULL(5201,5209) - JVS(36725) = B(8805)+B(8807) -! JVS(36726) = Jac_FULL(5201,5210) - JVS(36726) = B(4367) -! JVS(36727) = Jac_FULL(5201,5211) - JVS(36727) = B(14928) -! JVS(36728) = Jac_FULL(5201,5213) - JVS(36728) = B(11032) -! JVS(36729) = Jac_FULL(5201,5215) - JVS(36729) = 0 -! JVS(36730) = Jac_FULL(5201,5217) - JVS(36730) = 0 -! JVS(36731) = Jac_FULL(5201,5218) - JVS(36731) = 0 -! JVS(36732) = Jac_FULL(5201,5219) - JVS(36732) = 0 -! JVS(36733) = Jac_FULL(5201,5220) - JVS(36733) = B(10596) -! JVS(36734) = Jac_FULL(5201,5222) - JVS(36734) = B(1512) -! JVS(36735) = Jac_FULL(5201,5224) - JVS(36735) = 0 -! JVS(36736) = Jac_FULL(5201,5225) - JVS(36736) = 0 -! JVS(36737) = Jac_FULL(5201,5226) - JVS(36737) = B(230) -! JVS(36738) = Jac_FULL(5201,5227) - JVS(36738) = 0 -! JVS(36739) = Jac_FULL(5201,5229) - JVS(36739) = 0 -! JVS(36740) = Jac_FULL(5201,5230) - JVS(36740) = B(189) -! JVS(36741) = Jac_FULL(5201,5231) - JVS(36741) = B(173) -! JVS(36742) = Jac_FULL(5201,5233) - JVS(36742) = B(1485) -! JVS(36743) = Jac_FULL(5201,5234) - JVS(36743) = B(1215) -! JVS(36744) = Jac_FULL(5201,5236) - JVS(36744) = 0 -! JVS(36745) = Jac_FULL(5201,5238) - JVS(36745) = 0 -! JVS(36746) = Jac_FULL(5201,5239) - JVS(36746) = 0 -! JVS(36747) = Jac_FULL(5201,5240) - JVS(36747) = B(14737) -! JVS(36748) = Jac_FULL(5201,5242) - JVS(36748) = B(4133) -! JVS(36749) = Jac_FULL(5201,5245) - JVS(36749) = 0 -! JVS(36750) = Jac_FULL(5201,5246) - JVS(36750) = 0 -! JVS(36751) = Jac_FULL(5201,5247) - JVS(36751) = 0 -! JVS(36752) = Jac_FULL(5201,5248) - JVS(36752) = B(11285) -! JVS(36753) = Jac_FULL(5201,5249) - JVS(36753) = 0 -! JVS(36754) = Jac_FULL(5201,5250) - JVS(36754) = B(40)-B(55) -! JVS(36755) = Jac_FULL(5201,5251) - JVS(36755) = 0 -! JVS(36756) = Jac_FULL(5201,5252) - JVS(36756) = 0 -! JVS(36757) = Jac_FULL(5201,5253) - JVS(36757) = B(41) -! JVS(36758) = Jac_FULL(5201,5254) - JVS(36758) = 0 -! JVS(36759) = Jac_FULL(5201,5255) - JVS(36759) = 0 -! JVS(36760) = Jac_FULL(5201,5256) - JVS(36760) = B(174)+B(179)+B(185)+B(190)+B(198)+B(207)+B(214)+B(231)+B(243)+B(610)+B(620)+B(630)+B(640)+B(650)+B(660)& - &+B(670)+B(680)+B(690)+B(700)+B(710)+B(720)+B(730)+B(740)+B(760)+B(802)+B(806)+B(1056)+B(1081)+B(1216)& - &+B(1226)+B(1486)+B(1513)+B(2354)+B(2364)+B(2385)+B(2389)+B(2408)+B(2439)+B(2451)+B(2453)+B(2483)+B(2493)& - &+B(2495)+B(2526)+B(2538)+B(2540)+B(2559)+B(2561)+B(2582)+B(2605)+B(2607)+B(2626)+B(2646)+B(2648)+B(2669)& - &+B(2692)+B(2694)+B(2742)+B(2744)+B(2752)+B(2786)+B(2792)+B(2823)+B(2835)+B(2837)+B(2856)+B(2866)+B(2868)& - &+B(2888)+B(2900)+B(2902)+B(2932)+B(2942)+B(2961)+B(2980)+B(3650)+B(3731)+B(3757)+B(3867)+B(3892)+B(3908)& - &+B(3970)+B(4134)+B(4140)+B(4172)+B(4209)+B(4238)+B(4326)+B(4332)+B(4341)+B(4368)+B(4474)+B(4490)+B(4527)& - &+B(4584)+B(4638)+B(4655)+B(4683)+B(4816)+B(4828)+B(4878)+B(4900)+B(4934)+B(4968)+B(5011)+B(5050)+B(5071)& - &+B(5096)+B(5143)+B(5230)+B(5259)+B(5281)+B(5324)+B(5391)+B(5427)+B(5471)+B(5484)+B(5525)+B(5570)+B(5583)& - &+B(5655)+B(5670)+B(5695)+B(5786)+B(5874)+B(5968)+B(5991)+B(6015)+B(6057)+B(6103)+B(6156)+B(6223)+B(6267)& - &+B(6343)+B(6414)+B(6557)+B(6630)+B(6658)+B(6691)+B(6710)+B(6976)+B(6978)+B(6986)+B(7026)+B(7088)+B(7178)& - &+B(7217)+B(7327)+B(7394)+B(7480)+B(7663)+B(7726)+B(7895)+B(8751)+B(8790)+B(8806)+B(8808)+B(8823)+B(8916)& - &+B(8996)+B(9040)+B(9130)+B(9228)+B(9265)+B(9296)+B(9389)+B(9412)+B(9417)+B(9496)+B(9527)+B(9626)+B(9648)& - &+B(9741)+B(9969)+B(10028)+B(10108)+B(10140)+B(10482)+B(10512)+B(10528)+B(10581)+B(10597)+B(11033)+B(11096)& - &+B(11187)+B(11286)+B(11387)+B(11484)+B(11509)+B(11619)+B(11718)+B(11736)+B(11786)+B(11822)+B(11844)& - &+B(11861)+B(11899)+B(11935)+B(11959)+B(11983)+B(12066)+B(13306)+B(13523)+B(13555)+B(13896)+B(13935)& - &+B(13948)+B(14025)+B(14203)+B(14411)+B(14428)+B(14738)+B(14929)+B(14948)+B(14975)+B(15004)+B(15092)& - &+B(15989)+B(16038)+B(16091)+B(16459)+B(16501)+B(16602)+B(16719)+B(16777)+B(16976)+B(17071)+B(17415)& - &+B(17640)+B(17730)+B(17857)+B(18038)+B(18130)+B(18135)+B(18196)+B(18208)+B(18340)+B(18406)+B(18411)& - &+B(18473)+B(18478)+B(18684)+B(18974)+B(19003)+B(19062)+B(19106)+B(19135)+B(19317)+B(19609)+B(19817)& - &+B(20810)+B(20853)+B(21143)+B(21708)+B(21791)+B(21951)+B(22218)+B(22298)+B(22312)+B(22520)+B(22889)& - &+B(22901)+B(22903)+B(22983)+B(23375)+B(23519)+B(23568)+B(23928)+B(23967) -! JVS(36761) = Jac_FULL(5201,5257) - JVS(36761) = B(7481) -! JVS(36762) = Jac_FULL(5201,5258) - JVS(36762) = 0 -! JVS(36763) = Jac_FULL(5202,330) - JVS(36763) = B(11578) -! JVS(36764) = Jac_FULL(5202,1015) - JVS(36764) = B(11580) -! JVS(36765) = Jac_FULL(5202,1655) - JVS(36765) = B(14043) -! JVS(36766) = Jac_FULL(5202,1704) - JVS(36766) = B(7147) -! JVS(36767) = Jac_FULL(5202,1705) - JVS(36767) = B(14147) -! JVS(36768) = Jac_FULL(5202,3083) - JVS(36768) = B(90) -! JVS(36769) = Jac_FULL(5202,3277) - JVS(36769) = B(3665) -! JVS(36770) = Jac_FULL(5202,4391) - JVS(36770) = B(7044) -! JVS(36771) = Jac_FULL(5202,4555) - JVS(36771) = 0 -! JVS(36772) = Jac_FULL(5202,4583) - JVS(36772) = 0 -! JVS(36773) = Jac_FULL(5202,4802) - JVS(36773) = 0 -! JVS(36774) = Jac_FULL(5202,4827) - JVS(36774) = 0 -! JVS(36775) = Jac_FULL(5202,4885) - JVS(36775) = 0 -! JVS(36776) = Jac_FULL(5202,4934) - JVS(36776) = 0 -! JVS(36777) = Jac_FULL(5202,4975) - JVS(36777) = 0 -! JVS(36778) = Jac_FULL(5202,5055) - JVS(36778) = B(4138) -! JVS(36779) = Jac_FULL(5202,5119) - JVS(36779) = 0 -! JVS(36780) = Jac_FULL(5202,5120) - JVS(36780) = 0 -! JVS(36781) = Jac_FULL(5202,5145) - JVS(36781) = 0 -! JVS(36782) = Jac_FULL(5202,5146) - JVS(36782) = 0 -! JVS(36783) = Jac_FULL(5202,5150) - JVS(36783) = 0 -! JVS(36784) = Jac_FULL(5202,5151) - JVS(36784) = 0 -! JVS(36785) = Jac_FULL(5202,5163) - JVS(36785) = 0 -! JVS(36786) = Jac_FULL(5202,5164) - JVS(36786) = B(7809)+B(7811)+B(7815)+B(7818) -! JVS(36787) = Jac_FULL(5202,5186) - JVS(36787) = 0 -! JVS(36788) = Jac_FULL(5202,5190) - JVS(36788) = 0 -! JVS(36789) = Jac_FULL(5202,5192) - JVS(36789) = 0 -! JVS(36790) = Jac_FULL(5202,5200) - JVS(36790) = B(439) -! JVS(36791) = Jac_FULL(5202,5202) - JVS(36791) = -B(954)-B(956)-B(958)-B(960)-B(962)-B(963)-B(964) -! JVS(36792) = Jac_FULL(5202,5203) - JVS(36792) = 0 -! JVS(36793) = Jac_FULL(5202,5227) - JVS(36793) = 0 -! JVS(36794) = Jac_FULL(5202,5230) - JVS(36794) = 0 -! JVS(36795) = Jac_FULL(5202,5238) - JVS(36795) = 0 -! JVS(36796) = Jac_FULL(5202,5250) - JVS(36796) = B(91)+B(440)+B(3666)+B(11579) -! JVS(36797) = Jac_FULL(5202,5251) - JVS(36797) = 0 -! JVS(36798) = Jac_FULL(5202,5252) - JVS(36798) = -B(957)-B(959)+B(7812) -! JVS(36799) = Jac_FULL(5202,5253) - JVS(36799) = 0 -! JVS(36800) = Jac_FULL(5202,5254) - JVS(36800) = 0 -! JVS(36801) = Jac_FULL(5202,5255) - JVS(36801) = -B(955)+B(7810) -! JVS(36802) = Jac_FULL(5202,5256) - JVS(36802) = -B(961)+B(7816) -! JVS(36803) = Jac_FULL(5202,5258) - JVS(36803) = 0 -! JVS(36804) = Jac_FULL(5203,666) - JVS(36804) = B(7200) -! JVS(36805) = Jac_FULL(5203,1261) - JVS(36805) = B(12258) -! JVS(36806) = Jac_FULL(5203,1587) - JVS(36806) = B(7206) -! JVS(36807) = Jac_FULL(5203,1701) - JVS(36807) = B(106) -! JVS(36808) = Jac_FULL(5203,1715) - JVS(36808) = B(4397) -! JVS(36809) = Jac_FULL(5203,2036) - JVS(36809) = B(12262) -! JVS(36810) = Jac_FULL(5203,2237) - JVS(36810) = B(4395) -! JVS(36811) = Jac_FULL(5203,2301) - JVS(36811) = B(12268) -! JVS(36812) = Jac_FULL(5203,2339) - JVS(36812) = B(4392) -! JVS(36813) = Jac_FULL(5203,2743) - JVS(36813) = B(7651) -! JVS(36814) = Jac_FULL(5203,2747) - JVS(36814) = B(3849) -! JVS(36815) = Jac_FULL(5203,2872) - JVS(36815) = B(12263) -! JVS(36816) = Jac_FULL(5203,3051) - JVS(36816) = B(12269) -! JVS(36817) = Jac_FULL(5203,3061) - JVS(36817) = B(22247) -! JVS(36818) = Jac_FULL(5203,3210) - JVS(36818) = B(5909) -! JVS(36819) = Jac_FULL(5203,3252) - JVS(36819) = B(8584) -! JVS(36820) = Jac_FULL(5203,3268) - JVS(36820) = B(5069) -! JVS(36821) = Jac_FULL(5203,3314) - JVS(36821) = B(7198) -! JVS(36822) = Jac_FULL(5203,3575) - JVS(36822) = B(5048) -! JVS(36823) = Jac_FULL(5203,3779) - JVS(36823) = B(4552) -! JVS(36824) = Jac_FULL(5203,3887) - JVS(36824) = B(5035) -! JVS(36825) = Jac_FULL(5203,4093) - JVS(36825) = 0 -! JVS(36826) = Jac_FULL(5203,4160) - JVS(36826) = 0 -! JVS(36827) = Jac_FULL(5203,4215) - JVS(36827) = B(8587)+B(8589)+B(8593)+B(8595) -! JVS(36828) = Jac_FULL(5203,4380) - JVS(36828) = 0 -! JVS(36829) = Jac_FULL(5203,4433) - JVS(36829) = B(8574)+B(8576)+B(8580)+B(8583) -! JVS(36830) = Jac_FULL(5203,4508) - JVS(36830) = B(529) -! JVS(36831) = Jac_FULL(5203,4562) - JVS(36831) = 0 -! JVS(36832) = Jac_FULL(5203,4571) - JVS(36832) = 0 -! JVS(36833) = Jac_FULL(5203,4594) - JVS(36833) = 0 -! JVS(36834) = Jac_FULL(5203,4688) - JVS(36834) = 0 -! JVS(36835) = Jac_FULL(5203,4700) - JVS(36835) = 0 -! JVS(36836) = Jac_FULL(5203,4744) - JVS(36836) = 0 -! JVS(36837) = Jac_FULL(5203,4755) - JVS(36837) = B(1618) -! JVS(36838) = Jac_FULL(5203,4868) - JVS(36838) = B(5054)+B(5056)+B(5058)+B(5060)+B(5063) -! JVS(36839) = Jac_FULL(5203,4881) - JVS(36839) = 0 -! JVS(36840) = Jac_FULL(5203,4961) - JVS(36840) = B(5074) -! JVS(36841) = Jac_FULL(5203,4974) - JVS(36841) = 0 -! JVS(36842) = Jac_FULL(5203,5043) - JVS(36842) = 0 -! JVS(36843) = Jac_FULL(5203,5068) - JVS(36843) = 0 -! JVS(36844) = Jac_FULL(5203,5146) - JVS(36844) = 0 -! JVS(36845) = Jac_FULL(5203,5203) - JVS(36845) = -B(197)-B(199)-B(201)-B(203)-B(205) -! JVS(36846) = Jac_FULL(5203,5238) - JVS(36846) = 0 -! JVS(36847) = Jac_FULL(5203,5250) - JVS(36847) = B(107)-B(200)-B(202)-B(204)+B(4393)+B(4396)+B(7652)+B(12259)+B(12264)+B(12270)+B(22248) -! JVS(36848) = Jac_FULL(5203,5251) - JVS(36848) = B(5055) -! JVS(36849) = Jac_FULL(5203,5252) - JVS(36849) = B(5057)+B(8577)+B(8590) -! JVS(36850) = Jac_FULL(5203,5253) - JVS(36850) = B(5059) -! JVS(36851) = Jac_FULL(5203,5254) - JVS(36851) = B(5061) -! JVS(36852) = Jac_FULL(5203,5255) - JVS(36852) = B(8575)+B(8588) -! JVS(36853) = Jac_FULL(5203,5256) - JVS(36853) = -B(198)+B(8581)+B(8594) -! JVS(36854) = Jac_FULL(5203,5258) - JVS(36854) = B(530) -! JVS(36855) = Jac_FULL(5204,715) - JVS(36855) = B(3122) -! JVS(36856) = Jac_FULL(5204,5166) - JVS(36856) = 0 -! JVS(36857) = Jac_FULL(5204,5204) - JVS(36857) = -B(6800)-B(6802)-B(6804)-B(6806)-B(6808)-B(6809)-B(6810)-B(6811)-B(6812)-B(6813) -! JVS(36858) = Jac_FULL(5204,5224) - JVS(36858) = 0 -! JVS(36859) = Jac_FULL(5204,5250) - JVS(36859) = 0 -! JVS(36860) = Jac_FULL(5204,5252) - JVS(36860) = -B(6803)-B(6805) -! JVS(36861) = Jac_FULL(5204,5255) - JVS(36861) = -B(6801) -! JVS(36862) = Jac_FULL(5204,5256) - JVS(36862) = -B(6807) -! JVS(36863) = Jac_FULL(5204,5258) - JVS(36863) = 0 -! JVS(36864) = Jac_FULL(5205,2130) - JVS(36864) = B(10570) -! JVS(36865) = Jac_FULL(5205,3413) - JVS(36865) = B(10541) -! JVS(36866) = Jac_FULL(5205,4107) - JVS(36866) = B(10487) -! JVS(36867) = Jac_FULL(5205,5118) - JVS(36867) = 0 -! JVS(36868) = Jac_FULL(5205,5166) - JVS(36868) = 0 -! JVS(36869) = Jac_FULL(5205,5204) - JVS(36869) = 0 -! JVS(36870) = Jac_FULL(5205,5205) - JVS(36870) = -B(10525)-B(10526)-B(10527)-B(10529)-B(10531)-B(10533)-B(10535)-B(10537)-B(10539) -! JVS(36871) = Jac_FULL(5205,5217) - JVS(36871) = B(6785) -! JVS(36872) = Jac_FULL(5205,5218) - JVS(36872) = B(6924) -! JVS(36873) = Jac_FULL(5205,5224) - JVS(36873) = 0 -! JVS(36874) = Jac_FULL(5205,5250) - JVS(36874) = B(10488)-B(10534)-B(10536)-B(10538)-B(10540)+B(10542) -! JVS(36875) = Jac_FULL(5205,5252) - JVS(36875) = 0 -! JVS(36876) = Jac_FULL(5205,5255) - JVS(36876) = 0 -! JVS(36877) = Jac_FULL(5205,5256) - JVS(36877) = -B(10528) -! JVS(36878) = Jac_FULL(5205,5258) - JVS(36878) = -B(10530)-B(10532) -! JVS(36879) = Jac_FULL(5206,1251) - JVS(36879) = B(14543) -! JVS(36880) = Jac_FULL(5206,1746) - JVS(36880) = B(3598) -! JVS(36881) = Jac_FULL(5206,4988) - JVS(36881) = 0 -! JVS(36882) = Jac_FULL(5206,5099) - JVS(36882) = B(11265)+B(11267)+B(11271)+B(11274) -! JVS(36883) = Jac_FULL(5206,5206) - JVS(36883) = -B(7555)-B(7557)-B(7559)-B(7561)-B(7563)-B(7564)-B(7565) -! JVS(36884) = Jac_FULL(5206,5250) - JVS(36884) = 0 -! JVS(36885) = Jac_FULL(5206,5252) - JVS(36885) = -B(7558)-B(7560)+B(11268) -! JVS(36886) = Jac_FULL(5206,5253) - JVS(36886) = 0 -! JVS(36887) = Jac_FULL(5206,5255) - JVS(36887) = -B(7556)+B(11266) -! JVS(36888) = Jac_FULL(5206,5256) - JVS(36888) = -B(7562)+B(11272) -! JVS(36889) = Jac_FULL(5206,5257) - JVS(36889) = B(7498) -! JVS(36890) = Jac_FULL(5206,5258) - JVS(36890) = 0 -! JVS(36891) = Jac_FULL(5207,325) - JVS(36891) = B(11399) -! JVS(36892) = Jac_FULL(5207,770) - JVS(36892) = B(11347) -! JVS(36893) = Jac_FULL(5207,1178) - JVS(36893) = B(11379) -! JVS(36894) = Jac_FULL(5207,1611) - JVS(36894) = B(11353) -! JVS(36895) = Jac_FULL(5207,1771) - JVS(36895) = B(11382) -! JVS(36896) = Jac_FULL(5207,1834) - JVS(36896) = B(11348) -! JVS(36897) = Jac_FULL(5207,2469) - JVS(36897) = B(11346) -! JVS(36898) = Jac_FULL(5207,2685) - JVS(36898) = B(17269) -! JVS(36899) = Jac_FULL(5207,4754) - JVS(36899) = 0 -! JVS(36900) = Jac_FULL(5207,4988) - JVS(36900) = 0 -! JVS(36901) = Jac_FULL(5207,4989) - JVS(36901) = 0 -! JVS(36902) = Jac_FULL(5207,5041) - JVS(36902) = B(7543) -! JVS(36903) = Jac_FULL(5207,5207) - JVS(36903) = -B(11386)-B(11388)-B(11390)-B(11392)-B(11394)-B(11396)-B(11398) -! JVS(36904) = Jac_FULL(5207,5250) - JVS(36904) = B(11349)+B(11380)+B(11383)-B(11395)-B(11397)+B(11400)+B(17270) -! JVS(36905) = Jac_FULL(5207,5252) - JVS(36905) = 0 -! JVS(36906) = Jac_FULL(5207,5253) - JVS(36906) = 0 -! JVS(36907) = Jac_FULL(5207,5255) - JVS(36907) = 0 -! JVS(36908) = Jac_FULL(5207,5256) - JVS(36908) = -B(11387)-B(11389) -! JVS(36909) = Jac_FULL(5207,5257) - JVS(36909) = 0 -! JVS(36910) = Jac_FULL(5207,5258) - JVS(36910) = -B(11391)-B(11393) -! JVS(36911) = Jac_FULL(5208,611) - JVS(36911) = B(4190) -! JVS(36912) = Jac_FULL(5208,1332) - JVS(36912) = B(4194) -! JVS(36913) = Jac_FULL(5208,1817) - JVS(36913) = B(275)+B(279) -! JVS(36914) = Jac_FULL(5208,2318) - JVS(36914) = B(4215) -! JVS(36915) = Jac_FULL(5208,2487) - JVS(36915) = B(2253)+B(2254) -! JVS(36916) = Jac_FULL(5208,3118) - JVS(36916) = B(4693) -! JVS(36917) = Jac_FULL(5208,3505) - JVS(36917) = B(842) -! JVS(36918) = Jac_FULL(5208,3542) - JVS(36918) = B(5132) -! JVS(36919) = Jac_FULL(5208,4527) - JVS(36919) = 0 -! JVS(36920) = Jac_FULL(5208,4582) - JVS(36920) = 0 -! JVS(36921) = Jac_FULL(5208,4766) - JVS(36921) = 0 -! JVS(36922) = Jac_FULL(5208,4838) - JVS(36922) = 0 -! JVS(36923) = Jac_FULL(5208,4879) - JVS(36923) = 0 -! JVS(36924) = Jac_FULL(5208,4944) - JVS(36924) = B(1409)+B(1415)+B(1419)+B(1421) -! JVS(36925) = Jac_FULL(5208,5107) - JVS(36925) = 0 -! JVS(36926) = Jac_FULL(5208,5109) - JVS(36926) = 0 -! JVS(36927) = Jac_FULL(5208,5135) - JVS(36927) = 0 -! JVS(36928) = Jac_FULL(5208,5165) - JVS(36928) = B(212) -! JVS(36929) = Jac_FULL(5208,5208) - JVS(36929) = -B(1434)-B(1436)-B(1438)-B(1440)-B(1442)-B(1443)-B(1444) -! JVS(36930) = Jac_FULL(5208,5238) - JVS(36930) = B(276) -! JVS(36931) = Jac_FULL(5208,5250) - JVS(36931) = B(280)+B(4191)+B(4216) -! JVS(36932) = Jac_FULL(5208,5251) - JVS(36932) = 0 -! JVS(36933) = Jac_FULL(5208,5252) - JVS(36933) = B(1416)-B(1437)-B(1439) -! JVS(36934) = Jac_FULL(5208,5253) - JVS(36934) = 0 -! JVS(36935) = Jac_FULL(5208,5254) - JVS(36935) = 0 -! JVS(36936) = Jac_FULL(5208,5255) - JVS(36936) = B(1410)-B(1435) -! JVS(36937) = Jac_FULL(5208,5256) - JVS(36937) = B(1420)-B(1441) -! JVS(36938) = Jac_FULL(5208,5258) - JVS(36938) = 0 -! JVS(36939) = Jac_FULL(5209,3754) - JVS(36939) = B(5597) -! JVS(36940) = Jac_FULL(5209,3802) - JVS(36940) = B(6354) -! JVS(36941) = Jac_FULL(5209,3824) - JVS(36941) = B(5332) -! JVS(36942) = Jac_FULL(5209,3826) - JVS(36942) = B(6278) -! JVS(36943) = Jac_FULL(5209,4004) - JVS(36943) = B(5499) -! JVS(36944) = Jac_FULL(5209,4529) - JVS(36944) = 0 -! JVS(36945) = Jac_FULL(5209,4832) - JVS(36945) = B(13655)+B(13659) -! JVS(36946) = Jac_FULL(5209,4976) - JVS(36946) = B(10519) -! JVS(36947) = Jac_FULL(5209,5002) - JVS(36947) = B(10586) -! JVS(36948) = Jac_FULL(5209,5030) - JVS(36948) = B(6029) -! JVS(36949) = Jac_FULL(5209,5069) - JVS(36949) = B(6708) -! JVS(36950) = Jac_FULL(5209,5166) - JVS(36950) = 0 -! JVS(36951) = Jac_FULL(5209,5204) - JVS(36951) = 0 -! JVS(36952) = Jac_FULL(5209,5205) - JVS(36952) = B(10533) -! JVS(36953) = Jac_FULL(5209,5209) - JVS(36953) = -B(8805)-B(8807)-B(8809)-B(8811)-B(8813)-B(8815)-B(8817)-B(8819)-B(8820)-B(8821) -! JVS(36954) = Jac_FULL(5209,5217) - JVS(36954) = 0 -! JVS(36955) = Jac_FULL(5209,5218) - JVS(36955) = 0 -! JVS(36956) = Jac_FULL(5209,5220) - JVS(36956) = B(10602) -! JVS(36957) = Jac_FULL(5209,5224) - JVS(36957) = 0 -! JVS(36958) = Jac_FULL(5209,5250) - JVS(36958) = -B(8814)-B(8816)-B(8818)+B(10520)+B(10534)+B(10587)+B(10603)+B(13660) -! JVS(36959) = Jac_FULL(5209,5252) - JVS(36959) = 0 -! JVS(36960) = Jac_FULL(5209,5255) - JVS(36960) = 0 -! JVS(36961) = Jac_FULL(5209,5256) - JVS(36961) = -B(8806)-B(8808)+B(13656) -! JVS(36962) = Jac_FULL(5209,5258) - JVS(36962) = -B(8810)-B(8812) -! JVS(36963) = Jac_FULL(5210,1185) - JVS(36963) = B(4359) -! JVS(36964) = Jac_FULL(5210,1289) - JVS(36964) = B(10453) -! JVS(36965) = Jac_FULL(5210,1558) - JVS(36965) = B(13689) -! JVS(36966) = Jac_FULL(5210,1602) - JVS(36966) = B(15564) -! JVS(36967) = Jac_FULL(5210,1681) - JVS(36967) = B(15629) -! JVS(36968) = Jac_FULL(5210,1726) - JVS(36968) = B(15796) -! JVS(36969) = Jac_FULL(5210,1734) - JVS(36969) = B(15576) -! JVS(36970) = Jac_FULL(5210,2602) - JVS(36970) = B(15624) -! JVS(36971) = Jac_FULL(5210,2660) - JVS(36971) = B(22858) -! JVS(36972) = Jac_FULL(5210,3044) - JVS(36972) = B(4363) -! JVS(36973) = Jac_FULL(5210,3094) - JVS(36973) = B(15792) -! JVS(36974) = Jac_FULL(5210,3261) - JVS(36974) = B(18772) -! JVS(36975) = Jac_FULL(5210,3392) - JVS(36975) = B(21588) -! JVS(36976) = Jac_FULL(5210,3400) - JVS(36976) = B(20040) -! JVS(36977) = Jac_FULL(5210,3455) - JVS(36977) = B(15790) -! JVS(36978) = Jac_FULL(5210,3477) - JVS(36978) = B(21582) -! JVS(36979) = Jac_FULL(5210,3520) - JVS(36979) = B(4346) -! JVS(36980) = Jac_FULL(5210,3567) - JVS(36980) = B(9691) -! JVS(36981) = Jac_FULL(5210,3584) - JVS(36981) = B(9776) -! JVS(36982) = Jac_FULL(5210,3589) - JVS(36982) = B(8879) -! JVS(36983) = Jac_FULL(5210,3605) - JVS(36983) = B(9201) -! JVS(36984) = Jac_FULL(5210,3614) - JVS(36984) = B(9111) -! JVS(36985) = Jac_FULL(5210,3693) - JVS(36985) = B(13685)+B(13688) -! JVS(36986) = Jac_FULL(5210,4101) - JVS(36986) = 0 -! JVS(36987) = Jac_FULL(5210,4180) - JVS(36987) = 0 -! JVS(36988) = Jac_FULL(5210,4347) - JVS(36988) = 0 -! JVS(36989) = Jac_FULL(5210,4353) - JVS(36989) = 0 -! JVS(36990) = Jac_FULL(5210,4695) - JVS(36990) = B(1587) -! JVS(36991) = Jac_FULL(5210,4699) - JVS(36991) = 0 -! JVS(36992) = Jac_FULL(5210,4706) - JVS(36992) = 0 -! JVS(36993) = Jac_FULL(5210,4718) - JVS(36993) = 0 -! JVS(36994) = Jac_FULL(5210,4803) - JVS(36994) = 0 -! JVS(36995) = Jac_FULL(5210,4805) - JVS(36995) = 0 -! JVS(36996) = Jac_FULL(5210,4821) - JVS(36996) = 0 -! JVS(36997) = Jac_FULL(5210,4835) - JVS(36997) = 0 -! JVS(36998) = Jac_FULL(5210,4840) - JVS(36998) = 0 -! JVS(36999) = Jac_FULL(5210,4861) - JVS(36999) = 0 -! JVS(37000) = Jac_FULL(5210,4867) - JVS(37000) = 0 -! JVS(37001) = Jac_FULL(5210,4894) - JVS(37001) = 0 -! JVS(37002) = Jac_FULL(5210,4922) - JVS(37002) = 0 -! JVS(37003) = Jac_FULL(5210,4958) - JVS(37003) = B(10456) -! JVS(37004) = Jac_FULL(5210,4971) - JVS(37004) = 0 -! JVS(37005) = Jac_FULL(5210,4976) - JVS(37005) = 0 -! JVS(37006) = Jac_FULL(5210,5003) - JVS(37006) = B(20410)+B(20416)+B(20420)+B(20422) -! JVS(37007) = Jac_FULL(5210,5019) - JVS(37007) = 0 -! JVS(37008) = Jac_FULL(5210,5020) - JVS(37008) = B(6731) -! JVS(37009) = Jac_FULL(5210,5033) - JVS(37009) = 0 -! JVS(37010) = Jac_FULL(5210,5037) - JVS(37010) = 0 -! JVS(37011) = Jac_FULL(5210,5075) - JVS(37011) = 0 -! JVS(37012) = Jac_FULL(5210,5076) - JVS(37012) = 0 -! JVS(37013) = Jac_FULL(5210,5123) - JVS(37013) = 0 -! JVS(37014) = Jac_FULL(5210,5132) - JVS(37014) = 0 -! JVS(37015) = Jac_FULL(5210,5154) - JVS(37015) = 0 -! JVS(37016) = Jac_FULL(5210,5159) - JVS(37016) = 0 -! JVS(37017) = Jac_FULL(5210,5166) - JVS(37017) = 0 -! JVS(37018) = Jac_FULL(5210,5173) - JVS(37018) = 0 -! JVS(37019) = Jac_FULL(5210,5174) - JVS(37019) = 0 -! JVS(37020) = Jac_FULL(5210,5205) - JVS(37020) = 0 -! JVS(37021) = Jac_FULL(5210,5209) - JVS(37021) = 0 -! JVS(37022) = Jac_FULL(5210,5210) - JVS(37022) = -B(4366)-B(4367)-B(4369) -! JVS(37023) = Jac_FULL(5210,5213) - JVS(37023) = 0 -! JVS(37024) = Jac_FULL(5210,5217) - JVS(37024) = 0 -! JVS(37025) = Jac_FULL(5210,5218) - JVS(37025) = 0 -! JVS(37026) = Jac_FULL(5210,5219) - JVS(37026) = 0 -! JVS(37027) = Jac_FULL(5210,5220) - JVS(37027) = 0 -! JVS(37028) = Jac_FULL(5210,5224) - JVS(37028) = 0 -! JVS(37029) = Jac_FULL(5210,5227) - JVS(37029) = 0 -! JVS(37030) = Jac_FULL(5210,5250) - JVS(37030) = B(4347)+B(4360)+B(4364)-B(4370)+B(10454)+B(10457)+B(13686)+B(13690)+B(21583)+B(21589)+B(22859) -! JVS(37031) = Jac_FULL(5210,5251) - JVS(37031) = 0 -! JVS(37032) = Jac_FULL(5210,5252) - JVS(37032) = B(20417) -! JVS(37033) = Jac_FULL(5210,5253) - JVS(37033) = 0 -! JVS(37034) = Jac_FULL(5210,5254) - JVS(37034) = 0 -! JVS(37035) = Jac_FULL(5210,5255) - JVS(37035) = B(20411) -! JVS(37036) = Jac_FULL(5210,5256) - JVS(37036) = -B(4368)+B(20421) -! JVS(37037) = Jac_FULL(5210,5258) - JVS(37037) = 0 -! JVS(37038) = Jac_FULL(5211,687) - JVS(37038) = B(22492) -! JVS(37039) = Jac_FULL(5211,2674) - JVS(37039) = B(14864) -! JVS(37040) = Jac_FULL(5211,3006) - JVS(37040) = 0 -! JVS(37041) = Jac_FULL(5211,3029) - JVS(37041) = B(23472) -! JVS(37042) = Jac_FULL(5211,3425) - JVS(37042) = B(21106) -! JVS(37043) = Jac_FULL(5211,3613) - JVS(37043) = B(23052) -! JVS(37044) = Jac_FULL(5211,3957) - JVS(37044) = B(22645) -! JVS(37045) = Jac_FULL(5211,4248) - JVS(37045) = B(11703) -! JVS(37046) = Jac_FULL(5211,4363) - JVS(37046) = 0 -! JVS(37047) = Jac_FULL(5211,4371) - JVS(37047) = 0 -! JVS(37048) = Jac_FULL(5211,4394) - JVS(37048) = 0 -! JVS(37049) = Jac_FULL(5211,4442) - JVS(37049) = 0 -! JVS(37050) = Jac_FULL(5211,4451) - JVS(37050) = 0 -! JVS(37051) = Jac_FULL(5211,4785) - JVS(37051) = 0 -! JVS(37052) = Jac_FULL(5211,4825) - JVS(37052) = 0 -! JVS(37053) = Jac_FULL(5211,4839) - JVS(37053) = 0 -! JVS(37054) = Jac_FULL(5211,4882) - JVS(37054) = 0 -! JVS(37055) = Jac_FULL(5211,4978) - JVS(37055) = 0 -! JVS(37056) = Jac_FULL(5211,5073) - JVS(37056) = 0 -! JVS(37057) = Jac_FULL(5211,5131) - JVS(37057) = 0 -! JVS(37058) = Jac_FULL(5211,5148) - JVS(37058) = 0 -! JVS(37059) = Jac_FULL(5211,5163) - JVS(37059) = 0 -! JVS(37060) = Jac_FULL(5211,5175) - JVS(37060) = 0 -! JVS(37061) = Jac_FULL(5211,5176) - JVS(37061) = 0 -! JVS(37062) = Jac_FULL(5211,5181) - JVS(37062) = 0 -! JVS(37063) = Jac_FULL(5211,5192) - JVS(37063) = 0 -! JVS(37064) = Jac_FULL(5211,5196) - JVS(37064) = 0 -! JVS(37065) = Jac_FULL(5211,5206) - JVS(37065) = 0 -! JVS(37066) = Jac_FULL(5211,5211) - JVS(37066) = -B(14927)-B(14928)-B(14930) -! JVS(37067) = Jac_FULL(5211,5212) - JVS(37067) = 0 -! JVS(37068) = Jac_FULL(5211,5238) - JVS(37068) = 0 -! JVS(37069) = Jac_FULL(5211,5245) - JVS(37069) = 0 -! JVS(37070) = Jac_FULL(5211,5247) - JVS(37070) = 0 -! JVS(37071) = Jac_FULL(5211,5248) - JVS(37071) = 0 -! JVS(37072) = Jac_FULL(5211,5249) - JVS(37072) = 0 -! JVS(37073) = Jac_FULL(5211,5250) - JVS(37073) = B(11704)+B(14865)-B(14931)+B(23473) -! JVS(37074) = Jac_FULL(5211,5251) - JVS(37074) = 0 -! JVS(37075) = Jac_FULL(5211,5252) - JVS(37075) = 0 -! JVS(37076) = Jac_FULL(5211,5253) - JVS(37076) = 0 -! JVS(37077) = Jac_FULL(5211,5254) - JVS(37077) = 0 -! JVS(37078) = Jac_FULL(5211,5255) - JVS(37078) = 0 -! JVS(37079) = Jac_FULL(5211,5256) - JVS(37079) = -B(14929) -! JVS(37080) = Jac_FULL(5211,5257) - JVS(37080) = 0 -! JVS(37081) = Jac_FULL(5211,5258) - JVS(37081) = 0 -! JVS(37082) = Jac_FULL(5212,401) - JVS(37082) = B(11228) -! JVS(37083) = Jac_FULL(5212,1205) - JVS(37083) = B(11221) -! JVS(37084) = Jac_FULL(5212,2061) - JVS(37084) = B(11224) -! JVS(37085) = Jac_FULL(5212,2593) - JVS(37085) = B(14505) -! JVS(37086) = Jac_FULL(5212,4847) - JVS(37086) = 0 -! JVS(37087) = Jac_FULL(5212,5169) - JVS(37087) = 0 -! JVS(37088) = Jac_FULL(5212,5212) - JVS(37088) = -B(11230)-B(11232)-B(11234) -! JVS(37089) = Jac_FULL(5212,5236) - JVS(37089) = B(7441) -! JVS(37090) = Jac_FULL(5212,5250) - JVS(37090) = B(11222)+B(11225)+B(11229)-B(11231)-B(11233)+B(14506) -! JVS(37091) = Jac_FULL(5212,5251) - JVS(37091) = 0 -! JVS(37092) = Jac_FULL(5212,5252) - JVS(37092) = 0 -! JVS(37093) = Jac_FULL(5212,5253) - JVS(37093) = 0 -! JVS(37094) = Jac_FULL(5212,5254) - JVS(37094) = 0 -! JVS(37095) = Jac_FULL(5212,5255) - JVS(37095) = 0 -! JVS(37096) = Jac_FULL(5212,5256) - JVS(37096) = 0 -! JVS(37097) = Jac_FULL(5212,5258) - JVS(37097) = 0 -! JVS(37098) = Jac_FULL(5213,670) - JVS(37098) = B(7240) -! JVS(37099) = Jac_FULL(5213,783) - JVS(37099) = B(7296) -! JVS(37100) = Jac_FULL(5213,784) - JVS(37100) = B(7302) -! JVS(37101) = Jac_FULL(5213,1844) - JVS(37101) = 0 -! JVS(37102) = Jac_FULL(5213,2058) - JVS(37102) = 0 -! JVS(37103) = Jac_FULL(5213,2103) - JVS(37103) = 0 -! JVS(37104) = Jac_FULL(5213,2181) - JVS(37104) = B(7250) -! JVS(37105) = Jac_FULL(5213,3744) - JVS(37105) = B(7249) -! JVS(37106) = Jac_FULL(5213,3921) - JVS(37106) = 0 -! JVS(37107) = Jac_FULL(5213,3936) - JVS(37107) = 0 -! JVS(37108) = Jac_FULL(5213,3943) - JVS(37108) = 0 -! JVS(37109) = Jac_FULL(5213,4492) - JVS(37109) = 0 -! JVS(37110) = Jac_FULL(5213,4912) - JVS(37110) = B(7272)+B(7274)+B(7276)+B(7278)+B(7280) -! JVS(37111) = Jac_FULL(5213,4925) - JVS(37111) = 0 -! JVS(37112) = Jac_FULL(5213,5213) - JVS(37112) = -B(11032)-B(11034)-B(11036)-B(11038) -! JVS(37113) = Jac_FULL(5213,5250) - JVS(37113) = B(7251)-B(11035)-B(11037) -! JVS(37114) = Jac_FULL(5213,5251) - JVS(37114) = B(7273) -! JVS(37115) = Jac_FULL(5213,5252) - JVS(37115) = B(7275) -! JVS(37116) = Jac_FULL(5213,5253) - JVS(37116) = B(7277) -! JVS(37117) = Jac_FULL(5213,5254) - JVS(37117) = B(7279) -! JVS(37118) = Jac_FULL(5213,5255) - JVS(37118) = 0 -! JVS(37119) = Jac_FULL(5213,5256) - JVS(37119) = -B(11033) -! JVS(37120) = Jac_FULL(5213,5258) - JVS(37120) = 0 -! JVS(37121) = Jac_FULL(5214,582) - JVS(37121) = B(21717) -! JVS(37122) = Jac_FULL(5214,741) - JVS(37122) = B(23625) -! JVS(37123) = Jac_FULL(5214,1319) - JVS(37123) = B(19048) -! JVS(37124) = Jac_FULL(5214,1732) - JVS(37124) = B(22387) -! JVS(37125) = Jac_FULL(5214,1757) - JVS(37125) = 0 -! JVS(37126) = Jac_FULL(5214,1843) - JVS(37126) = B(17193) -! JVS(37127) = Jac_FULL(5214,1888) - JVS(37127) = 0 -! JVS(37128) = Jac_FULL(5214,1913) - JVS(37128) = B(17278) -! JVS(37129) = Jac_FULL(5214,1929) - JVS(37129) = B(21827)+B(21829) -! JVS(37130) = Jac_FULL(5214,2154) - JVS(37130) = B(19502) -! JVS(37131) = Jac_FULL(5214,2439) - JVS(37131) = 0 -! JVS(37132) = Jac_FULL(5214,2667) - JVS(37132) = B(23283) -! JVS(37133) = Jac_FULL(5214,2804) - JVS(37133) = B(19050) -! JVS(37134) = Jac_FULL(5214,3309) - JVS(37134) = 2*B(22391) -! JVS(37135) = Jac_FULL(5214,3355) - JVS(37135) = B(23573)+B(23575) -! JVS(37136) = Jac_FULL(5214,3373) - JVS(37136) = B(22687) -! JVS(37137) = Jac_FULL(5214,3410) - JVS(37137) = 0 -! JVS(37138) = Jac_FULL(5214,3420) - JVS(37138) = B(22098) -! JVS(37139) = Jac_FULL(5214,3447) - JVS(37139) = 0 -! JVS(37140) = Jac_FULL(5214,3580) - JVS(37140) = B(14210) -! JVS(37141) = Jac_FULL(5214,3591) - JVS(37141) = 0 -! JVS(37142) = Jac_FULL(5214,3874) - JVS(37142) = 0 -! JVS(37143) = Jac_FULL(5214,4157) - JVS(37143) = 0 -! JVS(37144) = Jac_FULL(5214,4158) - JVS(37144) = 0 -! JVS(37145) = Jac_FULL(5214,4162) - JVS(37145) = 0 -! JVS(37146) = Jac_FULL(5214,4172) - JVS(37146) = 0 -! JVS(37147) = Jac_FULL(5214,4176) - JVS(37147) = 0 -! JVS(37148) = Jac_FULL(5214,4268) - JVS(37148) = 0 -! JVS(37149) = Jac_FULL(5214,4360) - JVS(37149) = 0 -! JVS(37150) = Jac_FULL(5214,4362) - JVS(37150) = B(23572) -! JVS(37151) = Jac_FULL(5214,4409) - JVS(37151) = 0 -! JVS(37152) = Jac_FULL(5214,4410) - JVS(37152) = 0 -! JVS(37153) = Jac_FULL(5214,4447) - JVS(37153) = 0 -! JVS(37154) = Jac_FULL(5214,4462) - JVS(37154) = B(22302) -! JVS(37155) = Jac_FULL(5214,4748) - JVS(37155) = 0 -! JVS(37156) = Jac_FULL(5214,4762) - JVS(37156) = 0 -! JVS(37157) = Jac_FULL(5214,4764) - JVS(37157) = 0 -! JVS(37158) = Jac_FULL(5214,4806) - JVS(37158) = 0 -! JVS(37159) = Jac_FULL(5214,4898) - JVS(37159) = 0 -! JVS(37160) = Jac_FULL(5214,4900) - JVS(37160) = 0 -! JVS(37161) = Jac_FULL(5214,4960) - JVS(37161) = 0 -! JVS(37162) = Jac_FULL(5214,4996) - JVS(37162) = B(14207) -! JVS(37163) = Jac_FULL(5214,5014) - JVS(37163) = 0 -! JVS(37164) = Jac_FULL(5214,5021) - JVS(37164) = 0 -! JVS(37165) = Jac_FULL(5214,5028) - JVS(37165) = 0 -! JVS(37166) = Jac_FULL(5214,5072) - JVS(37166) = 0 -! JVS(37167) = Jac_FULL(5214,5081) - JVS(37167) = 0 -! JVS(37168) = Jac_FULL(5214,5086) - JVS(37168) = 0 -! JVS(37169) = Jac_FULL(5214,5105) - JVS(37169) = B(16775) -! JVS(37170) = Jac_FULL(5214,5111) - JVS(37170) = 0 -! JVS(37171) = Jac_FULL(5214,5113) - JVS(37171) = 0 -! JVS(37172) = Jac_FULL(5214,5122) - JVS(37172) = 0 -! JVS(37173) = Jac_FULL(5214,5159) - JVS(37173) = 0 -! JVS(37174) = Jac_FULL(5214,5161) - JVS(37174) = 0 -! JVS(37175) = Jac_FULL(5214,5175) - JVS(37175) = 0 -! JVS(37176) = Jac_FULL(5214,5181) - JVS(37176) = 0 -! JVS(37177) = Jac_FULL(5214,5182) - JVS(37177) = B(17414)+B(17416) -! JVS(37178) = Jac_FULL(5214,5185) - JVS(37178) = 0 -! JVS(37179) = Jac_FULL(5214,5186) - JVS(37179) = 0 -! JVS(37180) = Jac_FULL(5214,5187) - JVS(37180) = 0 -! JVS(37181) = Jac_FULL(5214,5198) - JVS(37181) = 0 -! JVS(37182) = Jac_FULL(5214,5207) - JVS(37182) = 0 -! JVS(37183) = Jac_FULL(5214,5213) - JVS(37183) = 0 -! JVS(37184) = Jac_FULL(5214,5214) - JVS(37184) = -B(16842)-B(16844)-B(16846)-B(16848)-B(16850)-B(16852)-B(16854)-B(16855) -! JVS(37185) = Jac_FULL(5214,5215) - JVS(37185) = 0 -! JVS(37186) = Jac_FULL(5214,5236) - JVS(37186) = 0 -! JVS(37187) = Jac_FULL(5214,5238) - JVS(37187) = 0 -! JVS(37188) = Jac_FULL(5214,5240) - JVS(37188) = 0 -! JVS(37189) = Jac_FULL(5214,5248) - JVS(37189) = 0 -! JVS(37190) = Jac_FULL(5214,5249) - JVS(37190) = 0 -! JVS(37191) = Jac_FULL(5214,5250) - JVS(37191) = B(17417)+B(19049)+B(21828)+B(23574) -! JVS(37192) = Jac_FULL(5214,5251) - JVS(37192) = 0 -! JVS(37193) = Jac_FULL(5214,5252) - JVS(37193) = -B(16849) -! JVS(37194) = Jac_FULL(5214,5253) - JVS(37194) = -B(16851) -! JVS(37195) = Jac_FULL(5214,5254) - JVS(37195) = 0 -! JVS(37196) = Jac_FULL(5214,5255) - JVS(37196) = -B(16843)-B(16845)-B(16847) -! JVS(37197) = Jac_FULL(5214,5256) - JVS(37197) = -B(16853)+B(17415) -! JVS(37198) = Jac_FULL(5214,5257) - JVS(37198) = 0 -! JVS(37199) = Jac_FULL(5214,5258) - JVS(37199) = 0 -! JVS(37200) = Jac_FULL(5215,1770) - JVS(37200) = B(14336) -! JVS(37201) = Jac_FULL(5215,2146) - JVS(37201) = B(14397) -! JVS(37202) = Jac_FULL(5215,2516) - JVS(37202) = B(7392) -! JVS(37203) = Jac_FULL(5215,2898) - JVS(37203) = B(14337) -! JVS(37204) = Jac_FULL(5215,2902) - JVS(37204) = B(7386) -! JVS(37205) = Jac_FULL(5215,2959) - JVS(37205) = B(7323) -! JVS(37206) = Jac_FULL(5215,3017) - JVS(37206) = B(14398) -! JVS(37207) = Jac_FULL(5215,3030) - JVS(37207) = B(7317) -! JVS(37208) = Jac_FULL(5215,3141) - JVS(37208) = B(7324) -! JVS(37209) = Jac_FULL(5215,3806) - JVS(37209) = 0 -! JVS(37210) = Jac_FULL(5215,4097) - JVS(37210) = 0 -! JVS(37211) = Jac_FULL(5215,4146) - JVS(37211) = 0 -! JVS(37212) = Jac_FULL(5215,4151) - JVS(37212) = B(7330) -! JVS(37213) = Jac_FULL(5215,4185) - JVS(37213) = 0 -! JVS(37214) = Jac_FULL(5215,4186) - JVS(37214) = B(7397) -! JVS(37215) = Jac_FULL(5215,4266) - JVS(37215) = B(11115)+B(11117)+B(11121)+B(11123) -! JVS(37216) = Jac_FULL(5215,4301) - JVS(37216) = B(11177)+B(11179)+B(11183)+B(11185) -! JVS(37217) = Jac_FULL(5215,4302) - JVS(37217) = B(7374)+B(7376)+B(7378)+B(7380)+B(7382) -! JVS(37218) = Jac_FULL(5215,4600) - JVS(37218) = B(882) -! JVS(37219) = Jac_FULL(5215,5215) - JVS(37219) = -B(3476)-B(3478)-B(3480)-B(3482) -! JVS(37220) = Jac_FULL(5215,5250) - JVS(37220) = -B(3477)-B(3479)-B(3481)-B(3483)+B(7325)+B(14338)+B(14399) -! JVS(37221) = Jac_FULL(5215,5251) - JVS(37221) = B(7375) -! JVS(37222) = Jac_FULL(5215,5252) - JVS(37222) = B(7377)+B(11118)+B(11180) -! JVS(37223) = Jac_FULL(5215,5253) - JVS(37223) = B(7379) -! JVS(37224) = Jac_FULL(5215,5254) - JVS(37224) = B(7381) -! JVS(37225) = Jac_FULL(5215,5255) - JVS(37225) = B(11116)+B(11178) -! JVS(37226) = Jac_FULL(5215,5256) - JVS(37226) = B(11122)+B(11184) -! JVS(37227) = Jac_FULL(5215,5258) - JVS(37227) = B(883) -! JVS(37228) = Jac_FULL(5216,67) - JVS(37228) = B(16613) -! JVS(37229) = Jac_FULL(5216,3809) - JVS(37229) = B(4255) -! JVS(37230) = Jac_FULL(5216,4199) - JVS(37230) = 0 -! JVS(37231) = Jac_FULL(5216,4570) - JVS(37231) = 0 -! JVS(37232) = Jac_FULL(5216,4875) - JVS(37232) = 0 -! JVS(37233) = Jac_FULL(5216,4877) - JVS(37233) = 0 -! JVS(37234) = Jac_FULL(5216,4983) - JVS(37234) = B(11640) -! JVS(37235) = Jac_FULL(5216,5002) - JVS(37235) = 0 -! JVS(37236) = Jac_FULL(5216,5005) - JVS(37236) = 0 -! JVS(37237) = Jac_FULL(5216,5025) - JVS(37237) = 0 -! JVS(37238) = Jac_FULL(5216,5034) - JVS(37238) = 0 -! JVS(37239) = Jac_FULL(5216,5036) - JVS(37239) = 0 -! JVS(37240) = Jac_FULL(5216,5058) - JVS(37240) = 0 -! JVS(37241) = Jac_FULL(5216,5076) - JVS(37241) = 0 -! JVS(37242) = Jac_FULL(5216,5081) - JVS(37242) = 0 -! JVS(37243) = Jac_FULL(5216,5100) - JVS(37243) = 0 -! JVS(37244) = Jac_FULL(5216,5103) - JVS(37244) = 0 -! JVS(37245) = Jac_FULL(5216,5111) - JVS(37245) = 0 -! JVS(37246) = Jac_FULL(5216,5113) - JVS(37246) = 0 -! JVS(37247) = Jac_FULL(5216,5126) - JVS(37247) = 0 -! JVS(37248) = Jac_FULL(5216,5141) - JVS(37248) = 0 -! JVS(37249) = Jac_FULL(5216,5154) - JVS(37249) = 0 -! JVS(37250) = Jac_FULL(5216,5159) - JVS(37250) = 0 -! JVS(37251) = Jac_FULL(5216,5167) - JVS(37251) = 0 -! JVS(37252) = Jac_FULL(5216,5168) - JVS(37252) = 0 -! JVS(37253) = Jac_FULL(5216,5173) - JVS(37253) = 0 -! JVS(37254) = Jac_FULL(5216,5174) - JVS(37254) = 0 -! JVS(37255) = Jac_FULL(5216,5181) - JVS(37255) = 0 -! JVS(37256) = Jac_FULL(5216,5199) - JVS(37256) = 0 -! JVS(37257) = Jac_FULL(5216,5204) - JVS(37257) = 0 -! JVS(37258) = Jac_FULL(5216,5205) - JVS(37258) = 0 -! JVS(37259) = Jac_FULL(5216,5209) - JVS(37259) = 0 -! JVS(37260) = Jac_FULL(5216,5210) - JVS(37260) = 0 -! JVS(37261) = Jac_FULL(5216,5213) - JVS(37261) = 0 -! JVS(37262) = Jac_FULL(5216,5215) - JVS(37262) = 0 -! JVS(37263) = Jac_FULL(5216,5216) - JVS(37263) = -B(7898)-B(7900)-B(7902)-B(7904)-B(7906)-B(7908)-B(7910)-B(7911) -! JVS(37264) = Jac_FULL(5216,5217) - JVS(37264) = 0 -! JVS(37265) = Jac_FULL(5216,5218) - JVS(37265) = 0 -! JVS(37266) = Jac_FULL(5216,5219) - JVS(37266) = 0 -! JVS(37267) = Jac_FULL(5216,5220) - JVS(37267) = 0 -! JVS(37268) = Jac_FULL(5216,5224) - JVS(37268) = 0 -! JVS(37269) = Jac_FULL(5216,5225) - JVS(37269) = 0 -! JVS(37270) = Jac_FULL(5216,5226) - JVS(37270) = 0 -! JVS(37271) = Jac_FULL(5216,5227) - JVS(37271) = 0 -! JVS(37272) = Jac_FULL(5216,5233) - JVS(37272) = 0 -! JVS(37273) = Jac_FULL(5216,5236) - JVS(37273) = 0 -! JVS(37274) = Jac_FULL(5216,5238) - JVS(37274) = 0 -! JVS(37275) = Jac_FULL(5216,5250) - JVS(37275) = B(11641) -! JVS(37276) = Jac_FULL(5216,5251) - JVS(37276) = 0 -! JVS(37277) = Jac_FULL(5216,5252) - JVS(37277) = -B(7905) -! JVS(37278) = Jac_FULL(5216,5253) - JVS(37278) = -B(7907) -! JVS(37279) = Jac_FULL(5216,5254) - JVS(37279) = 0 -! JVS(37280) = Jac_FULL(5216,5255) - JVS(37280) = -B(7899)-B(7901)-B(7903) -! JVS(37281) = Jac_FULL(5216,5256) - JVS(37281) = -B(7909) -! JVS(37282) = Jac_FULL(5216,5258) - JVS(37282) = 0 -! JVS(37283) = Jac_FULL(5217,702) - JVS(37283) = B(3120) -! JVS(37284) = Jac_FULL(5217,5166) - JVS(37284) = 0 -! JVS(37285) = Jac_FULL(5217,5217) - JVS(37285) = -B(6773)-B(6775)-B(6777)-B(6779)-B(6781)-B(6782)-B(6783)-B(6784)-B(6785)-B(6786) -! JVS(37286) = Jac_FULL(5217,5219) - JVS(37286) = 0 -! JVS(37287) = Jac_FULL(5217,5250) - JVS(37287) = 0 -! JVS(37288) = Jac_FULL(5217,5252) - JVS(37288) = -B(6776)-B(6778) -! JVS(37289) = Jac_FULL(5217,5255) - JVS(37289) = -B(6774) -! JVS(37290) = Jac_FULL(5217,5256) - JVS(37290) = -B(6780) -! JVS(37291) = Jac_FULL(5217,5258) - JVS(37291) = 0 -! JVS(37292) = Jac_FULL(5218,606) - JVS(37292) = B(3155) -! JVS(37293) = Jac_FULL(5218,4107) - JVS(37293) = B(10491) -! JVS(37294) = Jac_FULL(5218,5166) - JVS(37294) = 0 -! JVS(37295) = Jac_FULL(5218,5217) - JVS(37295) = 0 -! JVS(37296) = Jac_FULL(5218,5218) - JVS(37296) = -B(6916)-B(6918)-B(6920)-B(6922)-B(6924)-B(6925)-B(6926)-B(6927) -! JVS(37297) = Jac_FULL(5218,5219) - JVS(37297) = 0 -! JVS(37298) = Jac_FULL(5218,5250) - JVS(37298) = B(10492) -! JVS(37299) = Jac_FULL(5218,5252) - JVS(37299) = -B(6919)-B(6921) -! JVS(37300) = Jac_FULL(5218,5255) - JVS(37300) = -B(6917) -! JVS(37301) = Jac_FULL(5218,5256) - JVS(37301) = -B(6923) -! JVS(37302) = Jac_FULL(5218,5258) - JVS(37302) = 0 -! JVS(37303) = Jac_FULL(5219,606) - JVS(37303) = B(3156) -! JVS(37304) = Jac_FULL(5219,702) - JVS(37304) = B(3121) -! JVS(37305) = Jac_FULL(5219,2252) - JVS(37305) = B(10548) -! JVS(37306) = Jac_FULL(5219,5166) - JVS(37306) = 0 -! JVS(37307) = Jac_FULL(5219,5217) - JVS(37307) = 0 -! JVS(37308) = Jac_FULL(5219,5218) - JVS(37308) = 0 -! JVS(37309) = Jac_FULL(5219,5219) - JVS(37309) = -B(6787)-B(6789)-B(6791)-B(6793)-B(6795)-B(6796)-B(6797)-B(6798)-B(6799) -! JVS(37310) = Jac_FULL(5219,5250) - JVS(37310) = B(10549) -! JVS(37311) = Jac_FULL(5219,5252) - JVS(37311) = -B(6790)-B(6792) -! JVS(37312) = Jac_FULL(5219,5255) - JVS(37312) = -B(6788) -! JVS(37313) = Jac_FULL(5219,5256) - JVS(37313) = -B(6794) -! JVS(37314) = Jac_FULL(5219,5258) - JVS(37314) = 0 -! JVS(37315) = Jac_FULL(5220,1661) - JVS(37315) = B(10410) -! JVS(37316) = Jac_FULL(5220,2308) - JVS(37316) = B(10494) -! JVS(37317) = Jac_FULL(5220,3413) - JVS(37317) = B(10543) -! JVS(37318) = Jac_FULL(5220,4113) - JVS(37318) = B(10563) -! JVS(37319) = Jac_FULL(5220,5118) - JVS(37319) = B(6936) -! JVS(37320) = Jac_FULL(5220,5166) - JVS(37320) = 0 -! JVS(37321) = Jac_FULL(5220,5168) - JVS(37321) = 0 -! JVS(37322) = Jac_FULL(5220,5204) - JVS(37322) = B(6812) -! JVS(37323) = Jac_FULL(5220,5217) - JVS(37323) = 0 -! JVS(37324) = Jac_FULL(5220,5218) - JVS(37324) = 0 -! JVS(37325) = Jac_FULL(5220,5219) - JVS(37325) = 0 -! JVS(37326) = Jac_FULL(5220,5220) - JVS(37326) = -B(10594)-B(10595)-B(10596)-B(10598)-B(10600)-B(10602)-B(10604)-B(10606)-B(10608) -! JVS(37327) = Jac_FULL(5220,5224) - JVS(37327) = 0 -! JVS(37328) = Jac_FULL(5220,5250) - JVS(37328) = B(10544)+B(10564)-B(10603)-B(10605)-B(10607)-B(10609) -! JVS(37329) = Jac_FULL(5220,5252) - JVS(37329) = 0 -! JVS(37330) = Jac_FULL(5220,5255) - JVS(37330) = 0 -! JVS(37331) = Jac_FULL(5220,5256) - JVS(37331) = -B(10597) -! JVS(37332) = Jac_FULL(5220,5258) - JVS(37332) = -B(10599)-B(10601) -! JVS(37333) = Jac_FULL(5221,10) - JVS(37333) = B(21558) -! JVS(37334) = Jac_FULL(5221,1006) - JVS(37334) = B(21562) -! JVS(37335) = Jac_FULL(5221,1222) - JVS(37335) = B(21566) -! JVS(37336) = Jac_FULL(5221,2003) - JVS(37336) = B(21563) -! JVS(37337) = Jac_FULL(5221,2183) - JVS(37337) = B(21570) -! JVS(37338) = Jac_FULL(5221,2570) - JVS(37338) = B(18898) -! JVS(37339) = Jac_FULL(5221,2928) - JVS(37339) = B(21571) -! JVS(37340) = Jac_FULL(5221,4519) - JVS(37340) = B(20340)+B(20342)+B(20346)+B(20349) -! JVS(37341) = Jac_FULL(5221,4615) - JVS(37341) = B(10553) -! JVS(37342) = Jac_FULL(5221,4753) - JVS(37342) = B(20354)+B(20356)+B(20360)+B(20363) -! JVS(37343) = Jac_FULL(5221,4936) - JVS(37343) = B(1521) -! JVS(37344) = Jac_FULL(5221,5022) - JVS(37344) = 0 -! JVS(37345) = Jac_FULL(5221,5040) - JVS(37345) = B(16565)+B(16567)+B(16569)+B(16571)+B(16574) -! JVS(37346) = Jac_FULL(5221,5074) - JVS(37346) = 0 -! JVS(37347) = Jac_FULL(5221,5075) - JVS(37347) = B(18845) -! JVS(37348) = Jac_FULL(5221,5118) - JVS(37348) = 0 -! JVS(37349) = Jac_FULL(5221,5154) - JVS(37349) = 0 -! JVS(37350) = Jac_FULL(5221,5166) - JVS(37350) = 0 -! JVS(37351) = Jac_FULL(5221,5167) - JVS(37351) = B(16694)+B(16696)+B(16701) -! JVS(37352) = Jac_FULL(5221,5173) - JVS(37352) = 0 -! JVS(37353) = Jac_FULL(5221,5174) - JVS(37353) = 0 -! JVS(37354) = Jac_FULL(5221,5204) - JVS(37354) = 0 -! JVS(37355) = Jac_FULL(5221,5205) - JVS(37355) = 0 -! JVS(37356) = Jac_FULL(5221,5217) - JVS(37356) = 0 -! JVS(37357) = Jac_FULL(5221,5218) - JVS(37357) = 0 -! JVS(37358) = Jac_FULL(5221,5219) - JVS(37358) = 0 -! JVS(37359) = Jac_FULL(5221,5220) - JVS(37359) = 0 -! JVS(37360) = Jac_FULL(5221,5221) - JVS(37360) = -B(4297)-B(4299)-B(4301) -! JVS(37361) = Jac_FULL(5221,5224) - JVS(37361) = 0 -! JVS(37362) = Jac_FULL(5221,5226) - JVS(37362) = 0 -! JVS(37363) = Jac_FULL(5221,5250) - JVS(37363) = -B(4298)-B(4300)+B(21559)+B(21564)+B(21567)+B(21572) -! JVS(37364) = Jac_FULL(5221,5251) - JVS(37364) = B(16566) -! JVS(37365) = Jac_FULL(5221,5252) - JVS(37365) = B(1522)+B(16568)+B(16697)+B(20343)+B(20357) -! JVS(37366) = Jac_FULL(5221,5253) - JVS(37366) = B(16570) -! JVS(37367) = Jac_FULL(5221,5254) - JVS(37367) = B(16572) -! JVS(37368) = Jac_FULL(5221,5255) - JVS(37368) = B(16695)+B(20341)+B(20355) -! JVS(37369) = Jac_FULL(5221,5256) - JVS(37369) = B(18846)+B(20347)+B(20361) -! JVS(37370) = Jac_FULL(5221,5258) - JVS(37370) = B(10554) -! JVS(37371) = Jac_FULL(5222,19) - JVS(37371) = B(13785) -! JVS(37372) = Jac_FULL(5222,529) - JVS(37372) = B(10443) -! JVS(37373) = Jac_FULL(5222,563) - JVS(37373) = B(10414) -! JVS(37374) = Jac_FULL(5222,605) - JVS(37374) = B(15639) -! JVS(37375) = Jac_FULL(5222,711) - JVS(37375) = 2*B(15699) -! JVS(37376) = Jac_FULL(5222,734) - JVS(37376) = B(17806) -! JVS(37377) = Jac_FULL(5222,750) - JVS(37377) = B(13480) -! JVS(37378) = Jac_FULL(5222,796) - JVS(37378) = B(6539)+B(6541) -! JVS(37379) = Jac_FULL(5222,1346) - JVS(37379) = B(13670) -! JVS(37380) = Jac_FULL(5222,1651) - JVS(37380) = B(18851) -! JVS(37381) = Jac_FULL(5222,1682) - JVS(37381) = B(13795) -! JVS(37382) = Jac_FULL(5222,1795) - JVS(37382) = B(13664) -! JVS(37383) = Jac_FULL(5222,1807) - JVS(37383) = B(15426)+B(15428) -! JVS(37384) = Jac_FULL(5222,1810) - JVS(37384) = B(12697) -! JVS(37385) = Jac_FULL(5222,1833) - JVS(37385) = B(13244) -! JVS(37386) = Jac_FULL(5222,1866) - JVS(37386) = B(4313) -! JVS(37387) = Jac_FULL(5222,1891) - JVS(37387) = B(18805) -! JVS(37388) = Jac_FULL(5222,1955) - JVS(37388) = B(16637) -! JVS(37389) = Jac_FULL(5222,2029) - JVS(37389) = B(3940) -! JVS(37390) = Jac_FULL(5222,2105) - JVS(37390) = B(18723) -! JVS(37391) = Jac_FULL(5222,2131) - JVS(37391) = B(11682) -! JVS(37392) = Jac_FULL(5222,2175) - JVS(37392) = B(8912)+B(8914) -! JVS(37393) = Jac_FULL(5222,2249) - JVS(37393) = B(16513) -! JVS(37394) = Jac_FULL(5222,2358) - JVS(37394) = B(13479) -! JVS(37395) = Jac_FULL(5222,2382) - JVS(37395) = B(18776) -! JVS(37396) = Jac_FULL(5222,2491) - JVS(37396) = B(18832) -! JVS(37397) = Jac_FULL(5222,2521) - JVS(37397) = B(16420) -! JVS(37398) = Jac_FULL(5222,2592) - JVS(37398) = B(15561) -! JVS(37399) = Jac_FULL(5222,2595) - JVS(37399) = B(9223) -! JVS(37400) = Jac_FULL(5222,2603) - JVS(37400) = B(13227) -! JVS(37401) = Jac_FULL(5222,2662) - JVS(37401) = B(16649) -! JVS(37402) = Jac_FULL(5222,2752) - JVS(37402) = B(15570) -! JVS(37403) = Jac_FULL(5222,2762) - JVS(37403) = B(9151) -! JVS(37404) = Jac_FULL(5222,2776) - JVS(37404) = B(9736) -! JVS(37405) = Jac_FULL(5222,2789) - JVS(37405) = B(10049) -! JVS(37406) = Jac_FULL(5222,2793) - JVS(37406) = B(11691) -! JVS(37407) = Jac_FULL(5222,2814) - JVS(37407) = B(17562) -! JVS(37408) = Jac_FULL(5222,2828) - JVS(37408) = B(11595) -! JVS(37409) = Jac_FULL(5222,2830) - JVS(37409) = B(12681) -! JVS(37410) = Jac_FULL(5222,2847) - JVS(37410) = B(9834) -! JVS(37411) = Jac_FULL(5222,2876) - JVS(37411) = B(12499) -! JVS(37412) = Jac_FULL(5222,2887) - JVS(37412) = B(11683) -! JVS(37413) = Jac_FULL(5222,2904) - JVS(37413) = B(12690) -! JVS(37414) = Jac_FULL(5222,2967) - JVS(37414) = B(16173) -! JVS(37415) = Jac_FULL(5222,2999) - JVS(37415) = B(19699) -! JVS(37416) = Jac_FULL(5222,3021) - JVS(37416) = B(11575) -! JVS(37417) = Jac_FULL(5222,3056) - JVS(37417) = B(11592) -! JVS(37418) = Jac_FULL(5222,3068) - JVS(37418) = B(7189) -! JVS(37419) = Jac_FULL(5222,3071) - JVS(37419) = B(22293) -! JVS(37420) = Jac_FULL(5222,3082) - JVS(37420) = B(6120)+B(6122) -! JVS(37421) = Jac_FULL(5222,3094) - JVS(37421) = 2*B(15793) -! JVS(37422) = Jac_FULL(5222,3196) - JVS(37422) = 0 -! JVS(37423) = Jac_FULL(5222,3201) - JVS(37423) = 0 -! JVS(37424) = Jac_FULL(5222,3214) - JVS(37424) = 0 -! JVS(37425) = Jac_FULL(5222,3234) - JVS(37425) = B(10458) -! JVS(37426) = Jac_FULL(5222,3240) - JVS(37426) = 0 -! JVS(37427) = Jac_FULL(5222,3246) - JVS(37427) = B(9841) -! JVS(37428) = Jac_FULL(5222,3250) - JVS(37428) = B(18739) -! JVS(37429) = Jac_FULL(5222,3259) - JVS(37429) = B(18990) -! JVS(37430) = Jac_FULL(5222,3264) - JVS(37430) = B(9780) -! JVS(37431) = Jac_FULL(5222,3278) - JVS(37431) = 0 -! JVS(37432) = Jac_FULL(5222,3281) - JVS(37432) = B(18262) -! JVS(37433) = Jac_FULL(5222,3300) - JVS(37433) = B(13228) -! JVS(37434) = Jac_FULL(5222,3304) - JVS(37434) = B(9695) -! JVS(37435) = Jac_FULL(5222,3320) - JVS(37435) = 0 -! JVS(37436) = Jac_FULL(5222,3332) - JVS(37436) = B(6116)+B(6117) -! JVS(37437) = Jac_FULL(5222,3354) - JVS(37437) = B(12333) -! JVS(37438) = Jac_FULL(5222,3366) - JVS(37438) = B(13243) -! JVS(37439) = Jac_FULL(5222,3433) - JVS(37439) = B(9781) -! JVS(37440) = Jac_FULL(5222,3435) - JVS(37440) = 0 -! JVS(37441) = Jac_FULL(5222,3438) - JVS(37441) = B(9881) -! JVS(37442) = Jac_FULL(5222,3443) - JVS(37442) = 0 -! JVS(37443) = Jac_FULL(5222,3445) - JVS(37443) = 0 -! JVS(37444) = Jac_FULL(5222,3450) - JVS(37444) = B(12582) -! JVS(37445) = Jac_FULL(5222,3455) - JVS(37445) = 0 -! JVS(37446) = Jac_FULL(5222,3462) - JVS(37446) = 0 -! JVS(37447) = Jac_FULL(5222,3464) - JVS(37447) = B(13676) -! JVS(37448) = Jac_FULL(5222,3476) - JVS(37448) = B(11687) -! JVS(37449) = Jac_FULL(5222,3485) - JVS(37449) = 0 -! JVS(37450) = Jac_FULL(5222,3486) - JVS(37450) = B(9696)+B(9699) -! JVS(37451) = Jac_FULL(5222,3500) - JVS(37451) = B(20486) -! JVS(37452) = Jac_FULL(5222,3501) - JVS(37452) = B(16509) -! JVS(37453) = Jac_FULL(5222,3528) - JVS(37453) = 0 -! JVS(37454) = Jac_FULL(5222,3549) - JVS(37454) = B(16640) -! JVS(37455) = Jac_FULL(5222,3550) - JVS(37455) = 0 -! JVS(37456) = Jac_FULL(5222,3555) - JVS(37456) = B(20489) -! JVS(37457) = Jac_FULL(5222,3565) - JVS(37457) = B(16357) -! JVS(37458) = Jac_FULL(5222,3566) - JVS(37458) = B(7962) -! JVS(37459) = Jac_FULL(5222,3567) - JVS(37459) = B(9692) -! JVS(37460) = Jac_FULL(5222,3569) - JVS(37460) = B(9878) -! JVS(37461) = Jac_FULL(5222,3578) - JVS(37461) = B(16210) -! JVS(37462) = Jac_FULL(5222,3582) - JVS(37462) = B(12675) -! JVS(37463) = Jac_FULL(5222,3584) - JVS(37463) = B(9777) -! JVS(37464) = Jac_FULL(5222,3589) - JVS(37464) = B(8880) -! JVS(37465) = Jac_FULL(5222,3599) - JVS(37465) = B(5504)+B(5506)+B(5508)+B(5509) -! JVS(37466) = Jac_FULL(5222,3605) - JVS(37466) = B(9202) -! JVS(37467) = Jac_FULL(5222,3614) - JVS(37467) = B(9112) -! JVS(37468) = Jac_FULL(5222,3618) - JVS(37468) = 0 -! JVS(37469) = Jac_FULL(5222,3623) - JVS(37469) = 0 -! JVS(37470) = Jac_FULL(5222,3624) - JVS(37470) = 0 -! JVS(37471) = Jac_FULL(5222,3641) - JVS(37471) = 0 -! JVS(37472) = Jac_FULL(5222,3648) - JVS(37472) = 0 -! JVS(37473) = Jac_FULL(5222,3672) - JVS(37473) = B(14908) -! JVS(37474) = Jac_FULL(5222,3693) - JVS(37474) = 0 -! JVS(37475) = Jac_FULL(5222,3702) - JVS(37475) = 0 -! JVS(37476) = Jac_FULL(5222,3707) - JVS(37476) = B(13669) -! JVS(37477) = Jac_FULL(5222,3754) - JVS(37477) = B(5597)+B(5598) -! JVS(37478) = Jac_FULL(5222,3765) - JVS(37478) = B(13222) -! JVS(37479) = Jac_FULL(5222,3791) - JVS(37479) = 0 -! JVS(37480) = Jac_FULL(5222,3796) - JVS(37480) = 0 -! JVS(37481) = Jac_FULL(5222,3802) - JVS(37481) = B(6356) -! JVS(37482) = Jac_FULL(5222,3808) - JVS(37482) = 0 -! JVS(37483) = Jac_FULL(5222,3818) - JVS(37483) = B(6438)+B(6439) -! JVS(37484) = Jac_FULL(5222,3824) - JVS(37484) = B(5335)+B(5336) -! JVS(37485) = Jac_FULL(5222,3826) - JVS(37485) = B(6280)+B(6281) -! JVS(37486) = Jac_FULL(5222,3828) - JVS(37486) = 0 -! JVS(37487) = Jac_FULL(5222,3829) - JVS(37487) = B(13181) -! JVS(37488) = Jac_FULL(5222,3832) - JVS(37488) = B(9726)+B(9731) -! JVS(37489) = Jac_FULL(5222,3853) - JVS(37489) = 0 -! JVS(37490) = Jac_FULL(5222,3897) - JVS(37490) = B(12246) -! JVS(37491) = Jac_FULL(5222,3904) - JVS(37491) = B(12329) -! JVS(37492) = Jac_FULL(5222,3909) - JVS(37492) = 0 -! JVS(37493) = Jac_FULL(5222,3918) - JVS(37493) = B(13247) -! JVS(37494) = Jac_FULL(5222,3930) - JVS(37494) = B(12578) -! JVS(37495) = Jac_FULL(5222,3931) - JVS(37495) = B(12576) -! JVS(37496) = Jac_FULL(5222,3965) - JVS(37496) = B(13157) -! JVS(37497) = Jac_FULL(5222,3975) - JVS(37497) = 0 -! JVS(37498) = Jac_FULL(5222,4003) - JVS(37498) = 0 -! JVS(37499) = Jac_FULL(5222,4004) - JVS(37499) = B(5499)+B(5500)+B(5501) -! JVS(37500) = Jac_FULL(5222,4012) - JVS(37500) = B(9241) -! JVS(37501) = Jac_FULL(5222,4014) - JVS(37501) = B(12720) -! JVS(37502) = Jac_FULL(5222,4028) - JVS(37502) = 0 -! JVS(37503) = Jac_FULL(5222,4055) - JVS(37503) = 0 -! JVS(37504) = Jac_FULL(5222,4071) - JVS(37504) = B(12495) -! JVS(37505) = Jac_FULL(5222,4074) - JVS(37505) = 0 -! JVS(37506) = Jac_FULL(5222,4106) - JVS(37506) = 0 -! JVS(37507) = Jac_FULL(5222,4125) - JVS(37507) = B(12696) -! JVS(37508) = Jac_FULL(5222,4133) - JVS(37508) = 0 -! JVS(37509) = Jac_FULL(5222,4156) - JVS(37509) = 0 -! JVS(37510) = Jac_FULL(5222,4167) - JVS(37510) = 0 -! JVS(37511) = Jac_FULL(5222,4177) - JVS(37511) = B(6202)+B(6203) -! JVS(37512) = Jac_FULL(5222,4208) - JVS(37512) = B(16490)+B(16492)+B(16496)+B(16498) -! JVS(37513) = Jac_FULL(5222,4321) - JVS(37513) = 0 -! JVS(37514) = Jac_FULL(5222,4322) - JVS(37514) = B(9754) -! JVS(37515) = Jac_FULL(5222,4325) - JVS(37515) = 0 -! JVS(37516) = Jac_FULL(5222,4344) - JVS(37516) = 0 -! JVS(37517) = Jac_FULL(5222,4345) - JVS(37517) = 0 -! JVS(37518) = Jac_FULL(5222,4378) - JVS(37518) = B(16648) -! JVS(37519) = Jac_FULL(5222,4383) - JVS(37519) = B(6993) -! JVS(37520) = Jac_FULL(5222,4401) - JVS(37520) = B(13422) -! JVS(37521) = Jac_FULL(5222,4406) - JVS(37521) = B(7921) -! JVS(37522) = Jac_FULL(5222,4448) - JVS(37522) = B(9143) -! JVS(37523) = Jac_FULL(5222,4491) - JVS(37523) = 0 -! JVS(37524) = Jac_FULL(5222,4529) - JVS(37524) = 0 -! JVS(37525) = Jac_FULL(5222,4533) - JVS(37525) = 0 -! JVS(37526) = Jac_FULL(5222,4534) - JVS(37526) = B(16358)+B(16361) -! JVS(37527) = Jac_FULL(5222,4557) - JVS(37527) = B(7952)+B(7954)+B(7958)+B(7960) -! JVS(37528) = Jac_FULL(5222,4558) - JVS(37528) = 0 -! JVS(37529) = Jac_FULL(5222,4561) - JVS(37529) = 0 -! JVS(37530) = Jac_FULL(5222,4568) - JVS(37530) = 0 -! JVS(37531) = Jac_FULL(5222,4570) - JVS(37531) = B(13780)+B(13784) -! JVS(37532) = Jac_FULL(5222,4617) - JVS(37532) = 0 -! JVS(37533) = Jac_FULL(5222,4640) - JVS(37533) = B(7840) -! JVS(37534) = Jac_FULL(5222,4669) - JVS(37534) = 0 -! JVS(37535) = Jac_FULL(5222,4674) - JVS(37535) = 0 -! JVS(37536) = Jac_FULL(5222,4684) - JVS(37536) = 0 -! JVS(37537) = Jac_FULL(5222,4694) - JVS(37537) = 0 -! JVS(37538) = Jac_FULL(5222,4699) - JVS(37538) = 0 -! JVS(37539) = Jac_FULL(5222,4703) - JVS(37539) = 0 -! JVS(37540) = Jac_FULL(5222,4706) - JVS(37540) = 0 -! JVS(37541) = Jac_FULL(5222,4711) - JVS(37541) = 0 -! JVS(37542) = Jac_FULL(5222,4718) - JVS(37542) = 0 -! JVS(37543) = Jac_FULL(5222,4719) - JVS(37543) = 0 -! JVS(37544) = Jac_FULL(5222,4723) - JVS(37544) = 0 -! JVS(37545) = Jac_FULL(5222,4729) - JVS(37545) = 0 -! JVS(37546) = Jac_FULL(5222,4749) - JVS(37546) = B(13777) -! JVS(37547) = Jac_FULL(5222,4751) - JVS(37547) = 0 -! JVS(37548) = Jac_FULL(5222,4758) - JVS(37548) = 0 -! JVS(37549) = Jac_FULL(5222,4773) - JVS(37549) = 0 -! JVS(37550) = Jac_FULL(5222,4780) - JVS(37550) = 0 -! JVS(37551) = Jac_FULL(5222,4782) - JVS(37551) = 0 -! JVS(37552) = Jac_FULL(5222,4783) - JVS(37552) = 0 -! JVS(37553) = Jac_FULL(5222,4787) - JVS(37553) = 0 -! JVS(37554) = Jac_FULL(5222,4799) - JVS(37554) = B(10041) -! JVS(37555) = Jac_FULL(5222,4802) - JVS(37555) = 0 -! JVS(37556) = Jac_FULL(5222,4803) - JVS(37556) = 0 -! JVS(37557) = Jac_FULL(5222,4821) - JVS(37557) = 0 -! JVS(37558) = Jac_FULL(5222,4826) - JVS(37558) = 0 -! JVS(37559) = Jac_FULL(5222,4835) - JVS(37559) = 0 -! JVS(37560) = Jac_FULL(5222,4861) - JVS(37560) = 0 -! JVS(37561) = Jac_FULL(5222,4887) - JVS(37561) = 0 -! JVS(37562) = Jac_FULL(5222,4893) - JVS(37562) = 0 -! JVS(37563) = Jac_FULL(5222,4894) - JVS(37563) = 0 -! JVS(37564) = Jac_FULL(5222,4899) - JVS(37564) = 0 -! JVS(37565) = Jac_FULL(5222,4905) - JVS(37565) = 0 -! JVS(37566) = Jac_FULL(5222,4909) - JVS(37566) = B(4839) -! JVS(37567) = Jac_FULL(5222,4913) - JVS(37567) = 0 -! JVS(37568) = Jac_FULL(5222,4915) - JVS(37568) = 0 -! JVS(37569) = Jac_FULL(5222,4922) - JVS(37569) = 0 -! JVS(37570) = Jac_FULL(5222,4923) - JVS(37570) = 0 -! JVS(37571) = Jac_FULL(5222,4933) - JVS(37571) = 0 -! JVS(37572) = Jac_FULL(5222,4935) - JVS(37572) = 0 -! JVS(37573) = Jac_FULL(5222,4937) - JVS(37573) = B(5981)+B(5983) -! JVS(37574) = Jac_FULL(5222,4947) - JVS(37574) = 0 -! JVS(37575) = Jac_FULL(5222,4948) - JVS(37575) = 0 -! JVS(37576) = Jac_FULL(5222,4950) - JVS(37576) = B(5405)+B(5409) -! JVS(37577) = Jac_FULL(5222,4958) - JVS(37577) = 0 -! JVS(37578) = Jac_FULL(5222,4967) - JVS(37578) = 0 -! JVS(37579) = Jac_FULL(5222,4971) - JVS(37579) = 0 -! JVS(37580) = Jac_FULL(5222,4976) - JVS(37580) = B(10515) -! JVS(37581) = Jac_FULL(5222,4982) - JVS(37581) = 0 -! JVS(37582) = Jac_FULL(5222,4985) - JVS(37582) = 0 -! JVS(37583) = Jac_FULL(5222,4986) - JVS(37583) = 0 -! JVS(37584) = Jac_FULL(5222,4992) - JVS(37584) = 0 -! JVS(37585) = Jac_FULL(5222,5001) - JVS(37585) = 0 -! JVS(37586) = Jac_FULL(5222,5002) - JVS(37586) = 0 -! JVS(37587) = Jac_FULL(5222,5005) - JVS(37587) = 0 -! JVS(37588) = Jac_FULL(5222,5010) - JVS(37588) = 0 -! JVS(37589) = Jac_FULL(5222,5011) - JVS(37589) = 0 -! JVS(37590) = Jac_FULL(5222,5013) - JVS(37590) = 0 -! JVS(37591) = Jac_FULL(5222,5015) - JVS(37591) = 0 -! JVS(37592) = Jac_FULL(5222,5020) - JVS(37592) = 0 -! JVS(37593) = Jac_FULL(5222,5022) - JVS(37593) = 0 -! JVS(37594) = Jac_FULL(5222,5025) - JVS(37594) = 0 -! JVS(37595) = Jac_FULL(5222,5030) - JVS(37595) = B(6028)+B(6031)+B(6033) -! JVS(37596) = Jac_FULL(5222,5032) - JVS(37596) = 0 -! JVS(37597) = Jac_FULL(5222,5035) - JVS(37597) = 0 -! JVS(37598) = Jac_FULL(5222,5036) - JVS(37598) = 0 -! JVS(37599) = Jac_FULL(5222,5037) - JVS(37599) = B(9181)+B(9185) -! JVS(37600) = Jac_FULL(5222,5040) - JVS(37600) = 0 -! JVS(37601) = Jac_FULL(5222,5047) - JVS(37601) = 0 -! JVS(37602) = Jac_FULL(5222,5069) - JVS(37602) = 0 -! JVS(37603) = Jac_FULL(5222,5089) - JVS(37603) = B(9041)+B(9043) -! JVS(37604) = Jac_FULL(5222,5094) - JVS(37604) = B(4316) -! JVS(37605) = Jac_FULL(5222,5100) - JVS(37605) = B(7965)+B(7967)+B(7971)+B(7973) -! JVS(37606) = Jac_FULL(5222,5102) - JVS(37606) = B(8863)+B(8865)+B(8867)+B(8869)+B(8872) -! JVS(37607) = Jac_FULL(5222,5103) - JVS(37607) = B(10058)+B(10064) -! JVS(37608) = Jac_FULL(5222,5110) - JVS(37608) = 0 -! JVS(37609) = Jac_FULL(5222,5113) - JVS(37609) = B(22951) -! JVS(37610) = Jac_FULL(5222,5118) - JVS(37610) = 0 -! JVS(37611) = Jac_FULL(5222,5119) - JVS(37611) = 0 -! JVS(37612) = Jac_FULL(5222,5120) - JVS(37612) = 0 -! JVS(37613) = Jac_FULL(5222,5123) - JVS(37613) = B(8826) -! JVS(37614) = Jac_FULL(5222,5132) - JVS(37614) = 0 -! JVS(37615) = Jac_FULL(5222,5133) - JVS(37615) = B(11646)+B(11648)+B(11652)+B(11655) -! JVS(37616) = Jac_FULL(5222,5134) - JVS(37616) = 0 -! JVS(37617) = Jac_FULL(5222,5141) - JVS(37617) = B(10141) -! JVS(37618) = Jac_FULL(5222,5146) - JVS(37618) = 0 -! JVS(37619) = Jac_FULL(5222,5151) - JVS(37619) = 0 -! JVS(37620) = Jac_FULL(5222,5154) - JVS(37620) = 0 -! JVS(37621) = Jac_FULL(5222,5155) - JVS(37621) = 0 -! JVS(37622) = Jac_FULL(5222,5156) - JVS(37622) = B(4284)+B(4286)+B(4288)+B(4290)+B(4292) -! JVS(37623) = Jac_FULL(5222,5157) - JVS(37623) = 0 -! JVS(37624) = Jac_FULL(5222,5158) - JVS(37624) = 0 -! JVS(37625) = Jac_FULL(5222,5159) - JVS(37625) = 0 -! JVS(37626) = Jac_FULL(5222,5163) - JVS(37626) = 0 -! JVS(37627) = Jac_FULL(5222,5166) - JVS(37627) = 0 -! JVS(37628) = Jac_FULL(5222,5167) - JVS(37628) = 0 -! JVS(37629) = Jac_FULL(5222,5168) - JVS(37629) = 0 -! JVS(37630) = Jac_FULL(5222,5173) - JVS(37630) = 0 -! JVS(37631) = Jac_FULL(5222,5174) - JVS(37631) = 0 -! JVS(37632) = Jac_FULL(5222,5181) - JVS(37632) = 0 -! JVS(37633) = Jac_FULL(5222,5186) - JVS(37633) = 0 -! JVS(37634) = Jac_FULL(5222,5188) - JVS(37634) = B(1222) -! JVS(37635) = Jac_FULL(5222,5189) - JVS(37635) = 0 -! JVS(37636) = Jac_FULL(5222,5190) - JVS(37636) = 0 -! JVS(37637) = Jac_FULL(5222,5192) - JVS(37637) = 0 -! JVS(37638) = Jac_FULL(5222,5200) - JVS(37638) = 0 -! JVS(37639) = Jac_FULL(5222,5202) - JVS(37639) = 0 -! JVS(37640) = Jac_FULL(5222,5203) - JVS(37640) = 0 -! JVS(37641) = Jac_FULL(5222,5204) - JVS(37641) = 0 -! JVS(37642) = Jac_FULL(5222,5205) - JVS(37642) = 0 -! JVS(37643) = Jac_FULL(5222,5209) - JVS(37643) = B(8811) -! JVS(37644) = Jac_FULL(5222,5210) - JVS(37644) = B(4366) -! JVS(37645) = Jac_FULL(5222,5212) - JVS(37645) = 0 -! JVS(37646) = Jac_FULL(5222,5213) - JVS(37646) = 0 -! JVS(37647) = Jac_FULL(5222,5217) - JVS(37647) = 0 -! JVS(37648) = Jac_FULL(5222,5218) - JVS(37648) = 0 -! JVS(37649) = Jac_FULL(5222,5219) - JVS(37649) = 0 -! JVS(37650) = Jac_FULL(5222,5220) - JVS(37650) = B(10600) -! JVS(37651) = Jac_FULL(5222,5221) - JVS(37651) = 0 -! JVS(37652) = Jac_FULL(5222,5222) - JVS(37652) = -B(1511)-B(1512)-B(1514) -! JVS(37653) = Jac_FULL(5222,5224) - JVS(37653) = 0 -! JVS(37654) = Jac_FULL(5222,5225) - JVS(37654) = 0 -! JVS(37655) = Jac_FULL(5222,5226) - JVS(37655) = B(234) -! JVS(37656) = Jac_FULL(5222,5227) - JVS(37656) = B(3106) -! JVS(37657) = Jac_FULL(5222,5229) - JVS(37657) = 0 -! JVS(37658) = Jac_FULL(5222,5230) - JVS(37658) = 0 -! JVS(37659) = Jac_FULL(5222,5236) - JVS(37659) = 0 -! JVS(37660) = Jac_FULL(5222,5238) - JVS(37660) = 0 -! JVS(37661) = Jac_FULL(5222,5241) - JVS(37661) = B(3206) -! JVS(37662) = Jac_FULL(5222,5242) - JVS(37662) = 0 -! JVS(37663) = Jac_FULL(5222,5245) - JVS(37663) = 0 -! JVS(37664) = Jac_FULL(5222,5250) - JVS(37664) = B(1223)-B(1515)+B(4840)+B(5505)+B(5507)+B(6121)+B(6540)+B(6994)+B(7190)+B(8913)+B(9697)+B(9782)+B(11576)& - &+B(11593)+B(11596)+B(11684)+B(11692)+B(12500)+B(12682)+B(12691)+B(12721)+B(13182)+B(13229)+B(14909)& - &+B(15427)+B(16359)+B(17563)+B(19700) -! JVS(37665) = Jac_FULL(5222,5251) - JVS(37665) = B(4285)+B(8864) -! JVS(37666) = Jac_FULL(5222,5252) - JVS(37666) = B(4287)+B(7955)+B(7968)+B(8866)+B(11649)+B(16493) -! JVS(37667) = Jac_FULL(5222,5253) - JVS(37667) = B(4289)+B(8868) -! JVS(37668) = Jac_FULL(5222,5254) - JVS(37668) = B(4291)+B(8870) -! JVS(37669) = Jac_FULL(5222,5255) - JVS(37669) = B(7953)+B(7966)+B(11647)+B(16491) -! JVS(37670) = Jac_FULL(5222,5256) - JVS(37670) = -B(1513)+B(7959)+B(7972)+B(11653)+B(16497) -! JVS(37671) = Jac_FULL(5222,5258) - JVS(37671) = B(235)+B(3107)+B(8812)+B(8827)+B(9042)+B(9044)+B(9182)+B(9727)+B(10059)+B(10142)+B(10516)+B(10601)& - &+B(13781) -! JVS(37672) = Jac_FULL(5223,684) - JVS(37672) = B(1516) -! JVS(37673) = Jac_FULL(5223,685) - JVS(37673) = B(3099) -! JVS(37674) = Jac_FULL(5223,686) - JVS(37674) = B(3048) -! JVS(37675) = Jac_FULL(5223,2038) - JVS(37675) = B(1995) -! JVS(37676) = Jac_FULL(5223,3479) - JVS(37676) = B(2079) -! JVS(37677) = Jac_FULL(5223,4096) - JVS(37677) = 0 -! JVS(37678) = Jac_FULL(5223,4512) - JVS(37678) = 0 -! JVS(37679) = Jac_FULL(5223,4528) - JVS(37679) = B(1255) -! JVS(37680) = Jac_FULL(5223,4555) - JVS(37680) = 0 -! JVS(37681) = Jac_FULL(5223,4601) - JVS(37681) = 0 -! JVS(37682) = Jac_FULL(5223,4615) - JVS(37682) = 0 -! JVS(37683) = Jac_FULL(5223,4747) - JVS(37683) = B(3484) -! JVS(37684) = Jac_FULL(5223,4786) - JVS(37684) = 0 -! JVS(37685) = Jac_FULL(5223,4794) - JVS(37685) = 0 -! JVS(37686) = Jac_FULL(5223,4907) - JVS(37686) = 0 -! JVS(37687) = Jac_FULL(5223,4970) - JVS(37687) = 0 -! JVS(37688) = Jac_FULL(5223,4988) - JVS(37688) = 0 -! JVS(37689) = Jac_FULL(5223,5024) - JVS(37689) = 0 -! JVS(37690) = Jac_FULL(5223,5048) - JVS(37690) = 0 -! JVS(37691) = Jac_FULL(5223,5051) - JVS(37691) = 0 -! JVS(37692) = Jac_FULL(5223,5083) - JVS(37692) = 0 -! JVS(37693) = Jac_FULL(5223,5091) - JVS(37693) = 0 -! JVS(37694) = Jac_FULL(5223,5092) - JVS(37694) = 0 -! JVS(37695) = Jac_FULL(5223,5093) - JVS(37695) = 0 -! JVS(37696) = Jac_FULL(5223,5095) - JVS(37696) = 0 -! JVS(37697) = Jac_FULL(5223,5099) - JVS(37697) = 0 -! JVS(37698) = Jac_FULL(5223,5124) - JVS(37698) = 0 -! JVS(37699) = Jac_FULL(5223,5132) - JVS(37699) = 0 -! JVS(37700) = Jac_FULL(5223,5153) - JVS(37700) = 0 -! JVS(37701) = Jac_FULL(5223,5162) - JVS(37701) = 0 -! JVS(37702) = Jac_FULL(5223,5166) - JVS(37702) = 0 -! JVS(37703) = Jac_FULL(5223,5169) - JVS(37703) = 0 -! JVS(37704) = Jac_FULL(5223,5181) - JVS(37704) = 0 -! JVS(37705) = Jac_FULL(5223,5187) - JVS(37705) = 0 -! JVS(37706) = Jac_FULL(5223,5189) - JVS(37706) = 0 -! JVS(37707) = Jac_FULL(5223,5190) - JVS(37707) = 0 -! JVS(37708) = Jac_FULL(5223,5194) - JVS(37708) = 0 -! JVS(37709) = Jac_FULL(5223,5200) - JVS(37709) = 0 -! JVS(37710) = Jac_FULL(5223,5207) - JVS(37710) = 0 -! JVS(37711) = Jac_FULL(5223,5217) - JVS(37711) = 0 -! JVS(37712) = Jac_FULL(5223,5218) - JVS(37712) = 0 -! JVS(37713) = Jac_FULL(5223,5219) - JVS(37713) = 0 -! JVS(37714) = Jac_FULL(5223,5223) - JVS(37714) = -B(4051)-B(4053)-B(4055)-B(4057)-B(4059)-B(4060) -! JVS(37715) = Jac_FULL(5223,5224) - JVS(37715) = 0 -! JVS(37716) = Jac_FULL(5223,5226) - JVS(37716) = 0 -! JVS(37717) = Jac_FULL(5223,5227) - JVS(37717) = 0 -! JVS(37718) = Jac_FULL(5223,5230) - JVS(37718) = 0 -! JVS(37719) = Jac_FULL(5223,5236) - JVS(37719) = 0 -! JVS(37720) = Jac_FULL(5223,5238) - JVS(37720) = 0 -! JVS(37721) = Jac_FULL(5223,5250) - JVS(37721) = 0 -! JVS(37722) = Jac_FULL(5223,5251) - JVS(37722) = -B(4052) -! JVS(37723) = Jac_FULL(5223,5252) - JVS(37723) = -B(4054) -! JVS(37724) = Jac_FULL(5223,5253) - JVS(37724) = -B(4056) -! JVS(37725) = Jac_FULL(5223,5254) - JVS(37725) = -B(4058) -! JVS(37726) = Jac_FULL(5223,5255) - JVS(37726) = 0 -! JVS(37727) = Jac_FULL(5223,5256) - JVS(37727) = 0 -! JVS(37728) = Jac_FULL(5223,5257) - JVS(37728) = 0 -! JVS(37729) = Jac_FULL(5223,5258) - JVS(37729) = 0 -! JVS(37730) = Jac_FULL(5224,294) - JVS(37730) = B(22952) -! JVS(37731) = Jac_FULL(5224,607) - JVS(37731) = B(3158) -! JVS(37732) = Jac_FULL(5224,715) - JVS(37732) = B(3123) -! JVS(37733) = Jac_FULL(5224,916) - JVS(37733) = B(22956) -! JVS(37734) = Jac_FULL(5224,2544) - JVS(37734) = B(10615) -! JVS(37735) = Jac_FULL(5224,4955) - JVS(37735) = B(22536)+B(22538)+B(22542)+B(22545) -! JVS(37736) = Jac_FULL(5224,5118) - JVS(37736) = 0 -! JVS(37737) = Jac_FULL(5224,5166) - JVS(37737) = 0 -! JVS(37738) = Jac_FULL(5224,5189) - JVS(37738) = B(21962) -! JVS(37739) = Jac_FULL(5224,5204) - JVS(37739) = 0 -! JVS(37740) = Jac_FULL(5224,5224) - JVS(37740) = -B(6814)-B(6816)-B(6818)-B(6820)-B(6822)-B(6823)-B(6824)-B(6825)-B(6826)-B(6827) -! JVS(37741) = Jac_FULL(5224,5236) - JVS(37741) = 0 -! JVS(37742) = Jac_FULL(5224,5250) - JVS(37742) = B(10616)+B(22953) -! JVS(37743) = Jac_FULL(5224,5252) - JVS(37743) = -B(6817)-B(6819)+B(22539) -! JVS(37744) = Jac_FULL(5224,5253) - JVS(37744) = 0 -! JVS(37745) = Jac_FULL(5224,5255) - JVS(37745) = -B(6815)+B(22537) -! JVS(37746) = Jac_FULL(5224,5256) - JVS(37746) = -B(6821)+B(22543) -! JVS(37747) = Jac_FULL(5224,5258) - JVS(37747) = 0 -! JVS(37748) = Jac_FULL(5225,907) - JVS(37748) = B(21593) -! JVS(37749) = Jac_FULL(5225,1494) - JVS(37749) = B(21574) -! JVS(37750) = Jac_FULL(5225,1970) - JVS(37750) = B(21578) -! JVS(37751) = Jac_FULL(5225,1991) - JVS(37751) = B(18783) -! JVS(37752) = Jac_FULL(5225,2329) - JVS(37752) = B(20392) -! JVS(37753) = Jac_FULL(5225,2907) - JVS(37753) = B(21579) -! JVS(37754) = Jac_FULL(5225,2957) - JVS(37754) = B(21594) -! JVS(37755) = Jac_FULL(5225,3045) - JVS(37755) = B(20393) -! JVS(37756) = Jac_FULL(5225,3700) - JVS(37756) = B(16667) -! JVS(37757) = Jac_FULL(5225,3998) - JVS(37757) = B(20436)+B(20438)+B(20442)+B(20444) -! JVS(37758) = Jac_FULL(5225,4066) - JVS(37758) = 0 -! JVS(37759) = Jac_FULL(5225,4228) - JVS(37759) = B(18819)+B(18821)+B(18825)+B(18827) -! JVS(37760) = Jac_FULL(5225,4247) - JVS(37760) = B(16652)+B(16654)+B(16656)+B(16658)+B(16660) -! JVS(37761) = Jac_FULL(5225,4711) - JVS(37761) = 0 -! JVS(37762) = Jac_FULL(5225,4739) - JVS(37762) = B(20368)+B(20370)+B(20374)+B(20377) -! JVS(37763) = Jac_FULL(5225,4786) - JVS(37763) = B(10618) -! JVS(37764) = Jac_FULL(5225,5016) - JVS(37764) = B(6734) -! JVS(37765) = Jac_FULL(5225,5022) - JVS(37765) = 0 -! JVS(37766) = Jac_FULL(5225,5074) - JVS(37766) = 0 -! JVS(37767) = Jac_FULL(5225,5177) - JVS(37767) = 0 -! JVS(37768) = Jac_FULL(5225,5189) - JVS(37768) = 0 -! JVS(37769) = Jac_FULL(5225,5196) - JVS(37769) = 0 -! JVS(37770) = Jac_FULL(5225,5217) - JVS(37770) = 0 -! JVS(37771) = Jac_FULL(5225,5218) - JVS(37771) = 0 -! JVS(37772) = Jac_FULL(5225,5219) - JVS(37772) = 0 -! JVS(37773) = Jac_FULL(5225,5220) - JVS(37773) = 0 -! JVS(37774) = Jac_FULL(5225,5224) - JVS(37774) = 0 -! JVS(37775) = Jac_FULL(5225,5225) - JVS(37775) = -B(10462)-B(10464)-B(10466) -! JVS(37776) = Jac_FULL(5225,5227) - JVS(37776) = 0 -! JVS(37777) = Jac_FULL(5225,5236) - JVS(37777) = 0 -! JVS(37778) = Jac_FULL(5225,5250) - JVS(37778) = -B(10463)-B(10465)+B(20394)+B(21575)+B(21580)+B(21595) -! JVS(37779) = Jac_FULL(5225,5251) - JVS(37779) = B(16653) -! JVS(37780) = Jac_FULL(5225,5252) - JVS(37780) = B(6735)+B(16655)+B(18822)+B(20371)+B(20439) -! JVS(37781) = Jac_FULL(5225,5253) - JVS(37781) = B(16657) -! JVS(37782) = Jac_FULL(5225,5254) - JVS(37782) = B(16659) -! JVS(37783) = Jac_FULL(5225,5255) - JVS(37783) = B(18820)+B(20369)+B(20437) -! JVS(37784) = Jac_FULL(5225,5256) - JVS(37784) = B(18826)+B(20375)+B(20443) -! JVS(37785) = Jac_FULL(5225,5258) - JVS(37785) = B(10619) -! JVS(37786) = Jac_FULL(5226,1445) - JVS(37786) = B(10689) -! JVS(37787) = Jac_FULL(5226,1846) - JVS(37787) = B(10692) -! JVS(37788) = Jac_FULL(5226,1847) - JVS(37788) = B(10695) -! JVS(37789) = Jac_FULL(5226,2402) - JVS(37789) = B(13888) -! JVS(37790) = Jac_FULL(5226,2576) - JVS(37790) = B(13889) -! JVS(37791) = Jac_FULL(5226,2623) - JVS(37791) = B(6837) -! JVS(37792) = Jac_FULL(5226,2791) - JVS(37792) = B(10686) -! JVS(37793) = Jac_FULL(5226,3194) - JVS(37793) = B(10624) -! JVS(37794) = Jac_FULL(5226,3228) - JVS(37794) = B(6842) -! JVS(37795) = Jac_FULL(5226,3390) - JVS(37795) = B(17138) -! JVS(37796) = Jac_FULL(5226,3430) - JVS(37796) = B(23669) -! JVS(37797) = Jac_FULL(5226,4087) - JVS(37797) = 0 -! JVS(37798) = Jac_FULL(5226,4255) - JVS(37798) = 0 -! JVS(37799) = Jac_FULL(5226,4269) - JVS(37799) = B(10652)+B(10654)+B(10658)+B(10660) -! JVS(37800) = Jac_FULL(5226,4342) - JVS(37800) = 0 -! JVS(37801) = Jac_FULL(5226,4781) - JVS(37801) = 0 -! JVS(37802) = Jac_FULL(5226,4786) - JVS(37802) = 0 -! JVS(37803) = Jac_FULL(5226,4794) - JVS(37803) = 0 -! JVS(37804) = Jac_FULL(5226,4891) - JVS(37804) = 0 -! JVS(37805) = Jac_FULL(5226,4906) - JVS(37805) = B(6745)+B(6747)+B(6749)+B(6751)+B(6754) -! JVS(37806) = Jac_FULL(5226,5027) - JVS(37806) = 0 -! JVS(37807) = Jac_FULL(5226,5132) - JVS(37807) = 0 -! JVS(37808) = Jac_FULL(5226,5166) - JVS(37808) = B(779) -! JVS(37809) = Jac_FULL(5226,5187) - JVS(37809) = 0 -! JVS(37810) = Jac_FULL(5226,5212) - JVS(37810) = 0 -! JVS(37811) = Jac_FULL(5226,5224) - JVS(37811) = B(6826) -! JVS(37812) = Jac_FULL(5226,5226) - JVS(37812) = -B(228)-B(229)-B(230)-B(232)-B(234)-B(236)-B(238)-B(240) -! JVS(37813) = Jac_FULL(5226,5236) - JVS(37813) = 0 -! JVS(37814) = Jac_FULL(5226,5250) - JVS(37814) = -B(237)-B(239)-B(241)+B(10687)+B(10690)+B(10693)+B(13890) -! JVS(37815) = Jac_FULL(5226,5251) - JVS(37815) = B(6746) -! JVS(37816) = Jac_FULL(5226,5252) - JVS(37816) = B(6748)+B(10655) -! JVS(37817) = Jac_FULL(5226,5253) - JVS(37817) = B(6750) -! JVS(37818) = Jac_FULL(5226,5254) - JVS(37818) = B(6752) -! JVS(37819) = Jac_FULL(5226,5255) - JVS(37819) = B(10653) -! JVS(37820) = Jac_FULL(5226,5256) - JVS(37820) = -B(231)+B(10659) -! JVS(37821) = Jac_FULL(5226,5258) - JVS(37821) = -B(233)-B(235)+B(780) -! JVS(37822) = Jac_FULL(5227,3241) - JVS(37822) = B(10559) -! JVS(37823) = Jac_FULL(5227,4286) - JVS(37823) = B(6755)+B(6757)+B(6759)+B(6761)+B(6763) -! JVS(37824) = Jac_FULL(5227,4615) - JVS(37824) = 0 -! JVS(37825) = Jac_FULL(5227,5166) - JVS(37825) = B(781) -! JVS(37826) = Jac_FULL(5227,5219) - JVS(37826) = B(6798) -! JVS(37827) = Jac_FULL(5227,5227) - JVS(37827) = -B(3102)-B(3103)-B(3104)-B(3106)-B(3108)-B(3110) -! JVS(37828) = Jac_FULL(5227,5250) - JVS(37828) = -B(3109)-B(3111) -! JVS(37829) = Jac_FULL(5227,5251) - JVS(37829) = B(6756) -! JVS(37830) = Jac_FULL(5227,5252) - JVS(37830) = B(6758) -! JVS(37831) = Jac_FULL(5227,5253) - JVS(37831) = B(6760) -! JVS(37832) = Jac_FULL(5227,5254) - JVS(37832) = B(6762) -! JVS(37833) = Jac_FULL(5227,5255) - JVS(37833) = 0 -! JVS(37834) = Jac_FULL(5227,5256) - JVS(37834) = 0 -! JVS(37835) = Jac_FULL(5227,5258) - JVS(37835) = B(782)-B(3105)-B(3107) -! JVS(37836) = Jac_FULL(5228,86) - JVS(37836) = B(4090) -! JVS(37837) = Jac_FULL(5228,115) - JVS(37837) = B(24020) -! JVS(37838) = Jac_FULL(5228,766) - JVS(37838) = B(2232) -! JVS(37839) = Jac_FULL(5228,818) - JVS(37839) = B(3974) -! JVS(37840) = Jac_FULL(5228,1066) - JVS(37840) = B(3978) -! JVS(37841) = Jac_FULL(5228,1553) - JVS(37841) = B(13964) -! JVS(37842) = Jac_FULL(5228,1593) - JVS(37842) = B(18966) -! JVS(37843) = Jac_FULL(5228,1878) - JVS(37843) = B(9494) -! JVS(37844) = Jac_FULL(5228,1956) - JVS(37844) = 0 -! JVS(37845) = Jac_FULL(5228,2044) - JVS(37845) = B(4082) -! JVS(37846) = Jac_FULL(5228,2076) - JVS(37846) = B(6965) -! JVS(37847) = Jac_FULL(5228,2286) - JVS(37847) = B(2017)+B(2018) -! JVS(37848) = Jac_FULL(5228,2359) - JVS(37848) = B(14814) -! JVS(37849) = Jac_FULL(5228,2393) - JVS(37849) = B(12528) -! JVS(37850) = Jac_FULL(5228,2465) - JVS(37850) = B(1030) -! JVS(37851) = Jac_FULL(5228,2470) - JVS(37851) = B(3595) -! JVS(37852) = Jac_FULL(5228,2574) - JVS(37852) = B(6943) -! JVS(37853) = Jac_FULL(5228,2605) - JVS(37853) = B(6025) -! JVS(37854) = Jac_FULL(5228,2664) - JVS(37854) = 0 -! JVS(37855) = Jac_FULL(5228,2672) - JVS(37855) = 0 -! JVS(37856) = Jac_FULL(5228,2687) - JVS(37856) = 0 -! JVS(37857) = Jac_FULL(5228,2753) - JVS(37857) = 0 -! JVS(37858) = Jac_FULL(5228,2782) - JVS(37858) = B(5593) -! JVS(37859) = Jac_FULL(5228,2810) - JVS(37859) = 0 -! JVS(37860) = Jac_FULL(5228,2914) - JVS(37860) = B(259)+B(261) -! JVS(37861) = Jac_FULL(5228,3155) - JVS(37861) = B(3117) -! JVS(37862) = Jac_FULL(5228,3206) - JVS(37862) = B(9080) -! JVS(37863) = Jac_FULL(5228,3258) - JVS(37863) = B(9850) -! JVS(37864) = Jac_FULL(5228,3292) - JVS(37864) = B(8939) -! JVS(37865) = Jac_FULL(5228,3316) - JVS(37865) = B(9770) -! JVS(37866) = Jac_FULL(5228,3331) - JVS(37866) = B(6193) -! JVS(37867) = Jac_FULL(5228,3343) - JVS(37867) = B(6510) -! JVS(37868) = Jac_FULL(5228,3405) - JVS(37868) = B(14001) -! JVS(37869) = Jac_FULL(5228,3412) - JVS(37869) = B(6430) -! JVS(37870) = Jac_FULL(5228,3435) - JVS(37870) = B(5401) -! JVS(37871) = Jac_FULL(5228,3439) - JVS(37871) = 0 -! JVS(37872) = Jac_FULL(5228,3440) - JVS(37872) = B(5850) -! JVS(37873) = Jac_FULL(5228,3558) - JVS(37873) = B(20324) -! JVS(37874) = Jac_FULL(5228,3604) - JVS(37874) = B(24025) -! JVS(37875) = Jac_FULL(5228,3637) - JVS(37875) = 0 -! JVS(37876) = Jac_FULL(5228,3652) - JVS(37876) = B(1494) -! JVS(37877) = Jac_FULL(5228,3765) - JVS(37877) = B(13223) -! JVS(37878) = Jac_FULL(5228,3790) - JVS(37878) = 0 -! JVS(37879) = Jac_FULL(5228,3797) - JVS(37879) = 0 -! JVS(37880) = Jac_FULL(5228,3819) - JVS(37880) = 0 -! JVS(37881) = Jac_FULL(5228,4014) - JVS(37881) = B(12722) -! JVS(37882) = Jac_FULL(5228,4024) - JVS(37882) = B(15552) -! JVS(37883) = Jac_FULL(5228,4028) - JVS(37883) = 0 -! JVS(37884) = Jac_FULL(5228,4068) - JVS(37884) = 0 -! JVS(37885) = Jac_FULL(5228,4071) - JVS(37885) = B(12494) -! JVS(37886) = Jac_FULL(5228,4127) - JVS(37886) = 0 -! JVS(37887) = Jac_FULL(5228,4133) - JVS(37887) = 0 -! JVS(37888) = Jac_FULL(5228,4184) - JVS(37888) = B(21530) -! JVS(37889) = Jac_FULL(5228,4328) - JVS(37889) = B(15609) -! JVS(37890) = Jac_FULL(5228,4333) - JVS(37890) = B(1574)+B(1575) -! JVS(37891) = Jac_FULL(5228,4379) - JVS(37891) = B(16134) -! JVS(37892) = Jac_FULL(5228,4474) - JVS(37892) = 0 -! JVS(37893) = Jac_FULL(5228,4475) - JVS(37893) = 0 -! JVS(37894) = Jac_FULL(5228,4491) - JVS(37894) = 0 -! JVS(37895) = Jac_FULL(5228,4529) - JVS(37895) = 0 -! JVS(37896) = Jac_FULL(5228,4533) - JVS(37896) = 0 -! JVS(37897) = Jac_FULL(5228,4604) - JVS(37897) = 0 -! JVS(37898) = Jac_FULL(5228,4606) - JVS(37898) = 0 -! JVS(37899) = Jac_FULL(5228,4610) - JVS(37899) = 0 -! JVS(37900) = Jac_FULL(5228,4614) - JVS(37900) = 0 -! JVS(37901) = Jac_FULL(5228,4616) - JVS(37901) = 0 -! JVS(37902) = Jac_FULL(5228,4686) - JVS(37902) = 0 -! JVS(37903) = Jac_FULL(5228,4687) - JVS(37903) = 0 -! JVS(37904) = Jac_FULL(5228,4694) - JVS(37904) = 0 -! JVS(37905) = Jac_FULL(5228,4726) - JVS(37905) = 0 -! JVS(37906) = Jac_FULL(5228,4807) - JVS(37906) = 0 -! JVS(37907) = Jac_FULL(5228,4833) - JVS(37907) = 0 -! JVS(37908) = Jac_FULL(5228,4840) - JVS(37908) = 0 -! JVS(37909) = Jac_FULL(5228,4888) - JVS(37909) = 0 -! JVS(37910) = Jac_FULL(5228,4892) - JVS(37910) = 0 -! JVS(37911) = Jac_FULL(5228,4906) - JVS(37911) = 0 -! JVS(37912) = Jac_FULL(5228,4937) - JVS(37912) = 0 -! JVS(37913) = Jac_FULL(5228,4943) - JVS(37913) = 0 -! JVS(37914) = Jac_FULL(5228,4948) - JVS(37914) = 0 -! JVS(37915) = Jac_FULL(5228,4968) - JVS(37915) = 0 -! JVS(37916) = Jac_FULL(5228,4981) - JVS(37916) = 0 -! JVS(37917) = Jac_FULL(5228,4985) - JVS(37917) = 0 -! JVS(37918) = Jac_FULL(5228,4986) - JVS(37918) = 0 -! JVS(37919) = Jac_FULL(5228,4988) - JVS(37919) = 0 -! JVS(37920) = Jac_FULL(5228,4993) - JVS(37920) = 0 -! JVS(37921) = Jac_FULL(5228,5045) - JVS(37921) = 0 -! JVS(37922) = Jac_FULL(5228,5047) - JVS(37922) = 0 -! JVS(37923) = Jac_FULL(5228,5076) - JVS(37923) = 0 -! JVS(37924) = Jac_FULL(5228,5082) - JVS(37924) = 0 -! JVS(37925) = Jac_FULL(5228,5089) - JVS(37925) = 0 -! JVS(37926) = Jac_FULL(5228,5122) - JVS(37926) = 0 -! JVS(37927) = Jac_FULL(5228,5123) - JVS(37927) = 0 -! JVS(37928) = Jac_FULL(5228,5128) - JVS(37928) = 0 -! JVS(37929) = Jac_FULL(5228,5160) - JVS(37929) = B(813) -! JVS(37930) = Jac_FULL(5228,5166) - JVS(37930) = 0 -! JVS(37931) = Jac_FULL(5228,5186) - JVS(37931) = 0 -! JVS(37932) = Jac_FULL(5228,5187) - JVS(37932) = 0 -! JVS(37933) = Jac_FULL(5228,5190) - JVS(37933) = 0 -! JVS(37934) = Jac_FULL(5228,5192) - JVS(37934) = 0 -! JVS(37935) = Jac_FULL(5228,5193) - JVS(37935) = B(177) -! JVS(37936) = Jac_FULL(5228,5198) - JVS(37936) = 0 -! JVS(37937) = Jac_FULL(5228,5200) - JVS(37937) = 0 -! JVS(37938) = Jac_FULL(5228,5202) - JVS(37938) = 0 -! JVS(37939) = Jac_FULL(5228,5203) - JVS(37939) = 0 -! JVS(37940) = Jac_FULL(5228,5204) - JVS(37940) = 0 -! JVS(37941) = Jac_FULL(5228,5206) - JVS(37941) = 0 -! JVS(37942) = Jac_FULL(5228,5207) - JVS(37942) = 0 -! JVS(37943) = Jac_FULL(5228,5208) - JVS(37943) = 0 -! JVS(37944) = Jac_FULL(5228,5209) - JVS(37944) = 0 -! JVS(37945) = Jac_FULL(5228,5212) - JVS(37945) = 0 -! JVS(37946) = Jac_FULL(5228,5213) - JVS(37946) = 0 -! JVS(37947) = Jac_FULL(5228,5215) - JVS(37947) = 0 -! JVS(37948) = Jac_FULL(5228,5217) - JVS(37948) = 0 -! JVS(37949) = Jac_FULL(5228,5218) - JVS(37949) = 0 -! JVS(37950) = Jac_FULL(5228,5219) - JVS(37950) = 0 -! JVS(37951) = Jac_FULL(5228,5220) - JVS(37951) = 0 -! JVS(37952) = Jac_FULL(5228,5224) - JVS(37952) = 0 -! JVS(37953) = Jac_FULL(5228,5226) - JVS(37953) = 0 -! JVS(37954) = Jac_FULL(5228,5227) - JVS(37954) = 0 -! JVS(37955) = Jac_FULL(5228,5228) - JVS(37955) = -B(1280)-B(1282)-B(1284)-B(1286)-B(1288)-B(1290)-B(1292)-B(1293)-B(1294) -! JVS(37956) = Jac_FULL(5228,5229) - JVS(37956) = 0 -! JVS(37957) = Jac_FULL(5228,5230) - JVS(37957) = 0 -! JVS(37958) = Jac_FULL(5228,5236) - JVS(37958) = 0 -! JVS(37959) = Jac_FULL(5228,5238) - JVS(37959) = B(260) -! JVS(37960) = Jac_FULL(5228,5239) - JVS(37960) = 0 -! JVS(37961) = Jac_FULL(5228,5240) - JVS(37961) = 0 -! JVS(37962) = Jac_FULL(5228,5243) - JVS(37962) = 0 -! JVS(37963) = Jac_FULL(5228,5244) - JVS(37963) = B(1205)+B(1207)+B(1211)+B(1214) -! JVS(37964) = Jac_FULL(5228,5245) - JVS(37964) = 0 -! JVS(37965) = Jac_FULL(5228,5247) - JVS(37965) = 0 -! JVS(37966) = Jac_FULL(5228,5248) - JVS(37966) = 0 -! JVS(37967) = Jac_FULL(5228,5249) - JVS(37967) = 0 -! JVS(37968) = Jac_FULL(5228,5250) - JVS(37968) = B(262)+B(3975)+B(4083)+B(5402)+B(5594)+B(6026)+B(6944)+B(8940)+B(9081)+B(9771)+B(9851) -! JVS(37969) = Jac_FULL(5228,5251) - JVS(37969) = 0 -! JVS(37970) = Jac_FULL(5228,5252) - JVS(37970) = B(1208)-B(1285)-B(1287) -! JVS(37971) = Jac_FULL(5228,5253) - JVS(37971) = -B(1289) -! JVS(37972) = Jac_FULL(5228,5254) - JVS(37972) = 0 -! JVS(37973) = Jac_FULL(5228,5255) - JVS(37973) = B(1206)-B(1281)-B(1283) -! JVS(37974) = Jac_FULL(5228,5256) - JVS(37974) = B(1212)-B(1291) -! JVS(37975) = Jac_FULL(5228,5257) - JVS(37975) = 0 -! JVS(37976) = Jac_FULL(5228,5258) - JVS(37976) = 0 -! JVS(37977) = Jac_FULL(5229,691) - JVS(37977) = B(4114) -! JVS(37978) = Jac_FULL(5229,1500) - JVS(37978) = B(4118) -! JVS(37979) = Jac_FULL(5229,1599) - JVS(37979) = B(7185) -! JVS(37980) = Jac_FULL(5229,2042) - JVS(37980) = B(2103)+B(2104) -! JVS(37981) = Jac_FULL(5229,2292) - JVS(37981) = B(4148) -! JVS(37982) = Jac_FULL(5229,2933) - JVS(37982) = B(4569) -! JVS(37983) = Jac_FULL(5229,3202) - JVS(37983) = B(2297)+B(2298) -! JVS(37984) = Jac_FULL(5229,3561) - JVS(37984) = B(4958) -! JVS(37985) = Jac_FULL(5229,3651) - JVS(37985) = B(269)+B(273) -! JVS(37986) = Jac_FULL(5229,3843) - JVS(37986) = B(851) -! JVS(37987) = Jac_FULL(5229,3978) - JVS(37987) = B(825) -! JVS(37988) = Jac_FULL(5229,4029) - JVS(37988) = B(12935) -! JVS(37989) = Jac_FULL(5229,4356) - JVS(37989) = 0 -! JVS(37990) = Jac_FULL(5229,4508) - JVS(37990) = 0 -! JVS(37991) = Jac_FULL(5229,4598) - JVS(37991) = 0 -! JVS(37992) = Jac_FULL(5229,4604) - JVS(37992) = 0 -! JVS(37993) = Jac_FULL(5229,4606) - JVS(37993) = 0 -! JVS(37994) = Jac_FULL(5229,4619) - JVS(37994) = 0 -! JVS(37995) = Jac_FULL(5229,4917) - JVS(37995) = 0 -! JVS(37996) = Jac_FULL(5229,4956) - JVS(37996) = 0 -! JVS(37997) = Jac_FULL(5229,4972) - JVS(37997) = 0 -! JVS(37998) = Jac_FULL(5229,4990) - JVS(37998) = 0 -! JVS(37999) = Jac_FULL(5229,5056) - JVS(37999) = 0 -! JVS(38000) = Jac_FULL(5229,5066) - JVS(38000) = 0 -! JVS(38001) = Jac_FULL(5229,5096) - JVS(38001) = 0 -! JVS(38002) = Jac_FULL(5229,5125) - JVS(38002) = B(1331)+B(1335)+B(1339)+B(1342) -! JVS(38003) = Jac_FULL(5229,5144) - JVS(38003) = 0 -! JVS(38004) = Jac_FULL(5229,5186) - JVS(38004) = 0 -! JVS(38005) = Jac_FULL(5229,5190) - JVS(38005) = 0 -! JVS(38006) = Jac_FULL(5229,5192) - JVS(38006) = 0 -! JVS(38007) = Jac_FULL(5229,5229) - JVS(38007) = -B(1354)-B(1356)-B(1358)-B(1360)-B(1362)-B(1363)-B(1364) -! JVS(38008) = Jac_FULL(5229,5230) - JVS(38008) = B(196) -! JVS(38009) = Jac_FULL(5229,5238) - JVS(38009) = B(270) -! JVS(38010) = Jac_FULL(5229,5250) - JVS(38010) = B(274)+B(4115)+B(4149) -! JVS(38011) = Jac_FULL(5229,5251) - JVS(38011) = 0 -! JVS(38012) = Jac_FULL(5229,5252) - JVS(38012) = B(1336)-B(1357)-B(1359) -! JVS(38013) = Jac_FULL(5229,5253) - JVS(38013) = 0 -! JVS(38014) = Jac_FULL(5229,5254) - JVS(38014) = 0 -! JVS(38015) = Jac_FULL(5229,5255) - JVS(38015) = B(1332)-B(1355) -! JVS(38016) = Jac_FULL(5229,5256) - JVS(38016) = B(1340)-B(1361) -! JVS(38017) = Jac_FULL(5229,5258) - JVS(38017) = 0 -! JVS(38018) = Jac_FULL(5230,1363) - JVS(38018) = B(12219) -! JVS(38019) = Jac_FULL(5230,1697) - JVS(38019) = B(92) -! JVS(38020) = Jac_FULL(5230,1699) - JVS(38020) = B(7131) -! JVS(38021) = Jac_FULL(5230,1877) - JVS(38021) = B(4955) -! JVS(38022) = Jac_FULL(5230,1921) - JVS(38022) = B(4218) -! JVS(38023) = Jac_FULL(5230,2104) - JVS(38023) = B(12897) -! JVS(38024) = Jac_FULL(5230,2148) - JVS(38024) = B(5820) -! JVS(38025) = Jac_FULL(5230,2176) - JVS(38025) = B(12223) -! JVS(38026) = Jac_FULL(5230,2318) - JVS(38026) = B(4213) -! JVS(38027) = Jac_FULL(5230,2396) - JVS(38027) = B(12234) -! JVS(38028) = Jac_FULL(5230,2534) - JVS(38028) = B(4714) -! JVS(38029) = Jac_FULL(5230,2549) - JVS(38029) = B(4966) -! JVS(38030) = Jac_FULL(5230,2583) - JVS(38030) = B(12224) -! JVS(38031) = Jac_FULL(5230,2611) - JVS(38031) = B(4195) -! JVS(38032) = Jac_FULL(5230,2642) - JVS(38032) = B(17900) -! JVS(38033) = Jac_FULL(5230,2721) - JVS(38033) = B(22239) -! JVS(38034) = Jac_FULL(5230,2738) - JVS(38034) = B(12235) -! JVS(38035) = Jac_FULL(5230,2849) - JVS(38035) = B(5186) -! JVS(38036) = Jac_FULL(5230,2878) - JVS(38036) = B(7129) -! JVS(38037) = Jac_FULL(5230,2912) - JVS(38037) = B(5175) -! JVS(38038) = Jac_FULL(5230,2926) - JVS(38038) = B(4220) -! JVS(38039) = Jac_FULL(5230,3269) - JVS(38039) = B(8513) -! JVS(38040) = Jac_FULL(5230,3289) - JVS(38040) = 0 -! JVS(38041) = Jac_FULL(5230,3376) - JVS(38041) = 0 -! JVS(38042) = Jac_FULL(5230,3522) - JVS(38042) = B(17901) -! JVS(38043) = Jac_FULL(5230,3572) - JVS(38043) = B(4931) -! JVS(38044) = Jac_FULL(5230,3757) - JVS(38044) = B(5180) -! JVS(38045) = Jac_FULL(5230,3842) - JVS(38045) = B(5163) -! JVS(38046) = Jac_FULL(5230,3878) - JVS(38046) = B(4919) -! JVS(38047) = Jac_FULL(5230,3910) - JVS(38047) = B(5151) -! JVS(38048) = Jac_FULL(5230,4094) - JVS(38048) = 0 -! JVS(38049) = Jac_FULL(5230,4099) - JVS(38049) = 0 -! JVS(38050) = Jac_FULL(5230,4174) - JVS(38050) = 0 -! JVS(38051) = Jac_FULL(5230,4281) - JVS(38051) = B(8521)+B(8525)+B(8529)+B(8531) -! JVS(38052) = Jac_FULL(5230,4390) - JVS(38052) = 0 -! JVS(38053) = Jac_FULL(5230,4470) - JVS(38053) = B(8499)+B(8505)+B(8509)+B(8511) -! JVS(38054) = Jac_FULL(5230,4593) - JVS(38054) = 0 -! JVS(38055) = Jac_FULL(5230,4598) - JVS(38055) = 0 -! JVS(38056) = Jac_FULL(5230,4604) - JVS(38056) = B(565) -! JVS(38057) = Jac_FULL(5230,4606) - JVS(38057) = B(577) -! JVS(38058) = Jac_FULL(5230,4607) - JVS(38058) = 0 -! JVS(38059) = Jac_FULL(5230,4608) - JVS(38059) = 0 -! JVS(38060) = Jac_FULL(5230,4620) - JVS(38060) = 0 -! JVS(38061) = Jac_FULL(5230,4689) - JVS(38061) = 0 -! JVS(38062) = Jac_FULL(5230,4702) - JVS(38062) = 0 -! JVS(38063) = Jac_FULL(5230,4713) - JVS(38063) = 0 -! JVS(38064) = Jac_FULL(5230,4744) - JVS(38064) = 0 -! JVS(38065) = Jac_FULL(5230,4884) - JVS(38065) = 0 -! JVS(38066) = Jac_FULL(5230,4944) - JVS(38066) = 0 -! JVS(38067) = Jac_FULL(5230,4956) - JVS(38067) = B(4940)+B(4942)+B(4944)+B(4946)+B(4949) -! JVS(38068) = Jac_FULL(5230,4972) - JVS(38068) = 0 -! JVS(38069) = Jac_FULL(5230,5009) - JVS(38069) = B(4971) -! JVS(38070) = Jac_FULL(5230,5066) - JVS(38070) = 0 -! JVS(38071) = Jac_FULL(5230,5096) - JVS(38071) = 0 -! JVS(38072) = Jac_FULL(5230,5107) - JVS(38072) = 0 -! JVS(38073) = Jac_FULL(5230,5109) - JVS(38073) = 0 -! JVS(38074) = Jac_FULL(5230,5112) - JVS(38074) = 0 -! JVS(38075) = Jac_FULL(5230,5144) - JVS(38075) = 0 -! JVS(38076) = Jac_FULL(5230,5165) - JVS(38076) = 0 -! JVS(38077) = Jac_FULL(5230,5190) - JVS(38077) = B(483) -! JVS(38078) = Jac_FULL(5230,5208) - JVS(38078) = B(1442) -! JVS(38079) = Jac_FULL(5230,5230) - JVS(38079) = -B(189)-B(191)-B(193)-B(195)-B(196) -! JVS(38080) = Jac_FULL(5230,5238) - JVS(38080) = 0 -! JVS(38081) = Jac_FULL(5230,5250) - JVS(38081) = B(93)-B(192)-B(194)+B(4196)+B(4214)+B(4219)+B(4715)+B(12220)+B(12225)+B(12236)+B(22240) -! JVS(38082) = Jac_FULL(5230,5251) - JVS(38082) = B(4941) -! JVS(38083) = Jac_FULL(5230,5252) - JVS(38083) = B(4943)+B(8506)+B(8526) -! JVS(38084) = Jac_FULL(5230,5253) - JVS(38084) = B(4945) -! JVS(38085) = Jac_FULL(5230,5254) - JVS(38085) = B(4947) -! JVS(38086) = Jac_FULL(5230,5255) - JVS(38086) = B(8500)+B(8522) -! JVS(38087) = Jac_FULL(5230,5256) - JVS(38087) = -B(190)+B(8510)+B(8530) -! JVS(38088) = Jac_FULL(5230,5258) - JVS(38088) = B(484)+B(566)+B(578) -! JVS(38089) = Jac_FULL(5231,6) - JVS(38089) = B(15414) -! JVS(38090) = Jac_FULL(5231,7) - JVS(38090) = B(8569) -! JVS(38091) = Jac_FULL(5231,8) - JVS(38091) = B(15415) -! JVS(38092) = Jac_FULL(5231,530) - JVS(38092) = B(23630) -! JVS(38093) = Jac_FULL(5231,534) - JVS(38093) = B(17786) -! JVS(38094) = Jac_FULL(5231,536) - JVS(38094) = B(14663) -! JVS(38095) = Jac_FULL(5231,540) - JVS(38095) = B(7472) -! JVS(38096) = Jac_FULL(5231,543) - JVS(38096) = B(22964) -! JVS(38097) = Jac_FULL(5231,556) - JVS(38097) = B(17060) -! JVS(38098) = Jac_FULL(5231,571) - JVS(38098) = B(17843) -! JVS(38099) = Jac_FULL(5231,580) - JVS(38099) = B(14637) -! JVS(38100) = Jac_FULL(5231,582) - JVS(38100) = B(21717) -! JVS(38101) = Jac_FULL(5231,585) - JVS(38101) = B(17217) -! JVS(38102) = Jac_FULL(5231,587) - JVS(38102) = B(17019) -! JVS(38103) = Jac_FULL(5231,592) - JVS(38103) = B(15732) -! JVS(38104) = Jac_FULL(5231,617) - JVS(38104) = B(22310) -! JVS(38105) = Jac_FULL(5231,619) - JVS(38105) = B(19393) -! JVS(38106) = Jac_FULL(5231,621) - JVS(38106) = B(14551) -! JVS(38107) = Jac_FULL(5231,630) - JVS(38107) = B(3965) -! JVS(38108) = Jac_FULL(5231,650) - JVS(38108) = B(22980) -! JVS(38109) = Jac_FULL(5231,654) - JVS(38109) = B(10480) -! JVS(38110) = Jac_FULL(5231,655) - JVS(38110) = B(23248) -! JVS(38111) = Jac_FULL(5231,661) - JVS(38111) = B(7586) -! JVS(38112) = Jac_FULL(5231,662) - JVS(38112) = B(21925) -! JVS(38113) = Jac_FULL(5231,665) - JVS(38113) = B(14020) -! JVS(38114) = Jac_FULL(5231,667) - JVS(38114) = B(14629) -! JVS(38115) = Jac_FULL(5231,672) - JVS(38115) = B(19056) -! JVS(38116) = Jac_FULL(5231,688) - JVS(38116) = B(11358) -! JVS(38117) = Jac_FULL(5231,689) - JVS(38117) = B(14068) -! JVS(38118) = Jac_FULL(5231,690) - JVS(38118) = B(23660) -! JVS(38119) = Jac_FULL(5231,692) - JVS(38119) = B(17294) -! JVS(38120) = Jac_FULL(5231,693) - JVS(38120) = B(18142) -! JVS(38121) = Jac_FULL(5231,694) - JVS(38121) = B(14717) -! JVS(38122) = Jac_FULL(5231,697) - JVS(38122) = B(21758) -! JVS(38123) = Jac_FULL(5231,708) - JVS(38123) = B(11214) -! JVS(38124) = Jac_FULL(5231,717) - JVS(38124) = B(13427) -! JVS(38125) = Jac_FULL(5231,729) - JVS(38125) = B(19039) -! JVS(38126) = Jac_FULL(5231,739) - JVS(38126) = B(22475) -! JVS(38127) = Jac_FULL(5231,773) - JVS(38127) = B(16034) -! JVS(38128) = Jac_FULL(5231,774) - JVS(38128) = B(22882) -! JVS(38129) = Jac_FULL(5231,777) - JVS(38129) = B(18036) -! JVS(38130) = Jac_FULL(5231,781) - JVS(38130) = B(20321) -! JVS(38131) = Jac_FULL(5231,782) - JVS(38131) = B(13255) -! JVS(38132) = Jac_FULL(5231,793) - JVS(38132) = B(21941) -! JVS(38133) = Jac_FULL(5231,795) - JVS(38133) = B(22306) -! JVS(38134) = Jac_FULL(5231,801) - JVS(38134) = B(13366) -! JVS(38135) = Jac_FULL(5231,810) - JVS(38135) = B(23199) -! JVS(38136) = Jac_FULL(5231,817) - JVS(38136) = B(23140) -! JVS(38137) = Jac_FULL(5231,820) - JVS(38137) = B(21160) -! JVS(38138) = Jac_FULL(5231,856) - JVS(38138) = B(23525) -! JVS(38139) = Jac_FULL(5231,1013) - JVS(38139) = B(4252) -! JVS(38140) = Jac_FULL(5231,1068) - JVS(38140) = B(74) -! JVS(38141) = Jac_FULL(5231,1238) - JVS(38141) = B(23491) -! JVS(38142) = Jac_FULL(5231,1240) - JVS(38142) = B(6583) -! JVS(38143) = Jac_FULL(5231,1433) - JVS(38143) = B(20522) -! JVS(38144) = Jac_FULL(5231,1556) - JVS(38144) = B(14183) -! JVS(38145) = Jac_FULL(5231,1574) - JVS(38145) = B(7023) -! JVS(38146) = Jac_FULL(5231,1593) - JVS(38146) = B(18966) -! JVS(38147) = Jac_FULL(5231,1607) - JVS(38147) = B(17694) -! JVS(38148) = Jac_FULL(5231,1615) - JVS(38148) = B(19399) -! JVS(38149) = Jac_FULL(5231,1618) - JVS(38149) = B(22478) -! JVS(38150) = Jac_FULL(5231,1634) - JVS(38150) = B(4089) -! JVS(38151) = Jac_FULL(5231,1642) - JVS(38151) = B(10362)+B(10363) -! JVS(38152) = Jac_FULL(5231,1652) - JVS(38152) = B(23615) -! JVS(38153) = Jac_FULL(5231,1658) - JVS(38153) = B(14069) -! JVS(38154) = Jac_FULL(5231,1666) - JVS(38154) = B(13258) -! JVS(38155) = Jac_FULL(5231,1687) - JVS(38155) = B(17223) -! JVS(38156) = Jac_FULL(5231,1716) - JVS(38156) = B(13430) -! JVS(38157) = Jac_FULL(5231,1718) - JVS(38157) = B(11220) -! JVS(38158) = Jac_FULL(5231,1735) - JVS(38158) = B(13369) -! JVS(38159) = Jac_FULL(5231,1741) - JVS(38159) = B(4470) -! JVS(38160) = Jac_FULL(5231,1742) - JVS(38160) = B(11364) -! JVS(38161) = Jac_FULL(5231,1758) - JVS(38161) = B(14657) -! JVS(38162) = Jac_FULL(5231,1762) - JVS(38162) = 0 -! JVS(38163) = Jac_FULL(5231,1764) - JVS(38163) = B(7746) -! JVS(38164) = Jac_FULL(5231,1766) - JVS(38164) = B(22977) -! JVS(38165) = Jac_FULL(5231,1784) - JVS(38165) = 0 -! JVS(38166) = Jac_FULL(5231,1825) - JVS(38166) = B(14034) -! JVS(38167) = Jac_FULL(5231,1835) - JVS(38167) = B(17057) -! JVS(38168) = Jac_FULL(5231,1840) - JVS(38168) = 0 -! JVS(38169) = Jac_FULL(5231,1854) - JVS(38169) = B(15730) -! JVS(38170) = Jac_FULL(5231,1863) - JVS(38170) = B(17216) -! JVS(38171) = Jac_FULL(5231,1866) - JVS(38171) = B(4313) -! JVS(38172) = Jac_FULL(5231,1867) - JVS(38172) = B(6974) -! JVS(38173) = Jac_FULL(5231,1871) - JVS(38173) = 0 -! JVS(38174) = Jac_FULL(5231,1877) - JVS(38174) = B(4955) -! JVS(38175) = Jac_FULL(5231,1882) - JVS(38175) = B(4077) -! JVS(38176) = Jac_FULL(5231,1888) - JVS(38176) = 0 -! JVS(38177) = Jac_FULL(5231,1905) - JVS(38177) = B(7469) -! JVS(38178) = Jac_FULL(5231,1912) - JVS(38178) = B(23657) -! JVS(38179) = Jac_FULL(5231,1916) - JVS(38179) = 0 -! JVS(38180) = Jac_FULL(5231,1918) - JVS(38180) = B(14626) -! JVS(38181) = Jac_FULL(5231,1920) - JVS(38181) = B(23529) -! JVS(38182) = Jac_FULL(5231,1927) - JVS(38182) = B(5129) -! JVS(38183) = Jac_FULL(5231,1944) - JVS(38183) = B(3743) -! JVS(38184) = Jac_FULL(5231,1947) - JVS(38184) = 0 -! JVS(38185) = Jac_FULL(5231,1958) - JVS(38185) = 0 -! JVS(38186) = Jac_FULL(5231,1959) - JVS(38186) = B(3053)+B(3054) -! JVS(38187) = Jac_FULL(5231,1993) - JVS(38187) = B(14631) -! JVS(38188) = Jac_FULL(5231,2000) - JVS(38188) = B(14040) -! JVS(38189) = Jac_FULL(5231,2005) - JVS(38189) = B(11506) -! JVS(38190) = Jac_FULL(5231,2007) - JVS(38190) = B(21938) -! JVS(38191) = Jac_FULL(5231,2008) - JVS(38191) = B(14716) -! JVS(38192) = Jac_FULL(5231,2012) - JVS(38192) = B(4876) -! JVS(38193) = Jac_FULL(5231,2016) - JVS(38193) = 0 -! JVS(38194) = Jac_FULL(5231,2018) - JVS(38194) = B(22474) -! JVS(38195) = Jac_FULL(5231,2022) - JVS(38195) = B(19391) -! JVS(38196) = Jac_FULL(5231,2028) - JVS(38196) = B(12291)+B(12294) -! JVS(38197) = Jac_FULL(5231,2044) - JVS(38197) = B(4084) -! JVS(38198) = Jac_FULL(5231,2047) - JVS(38198) = B(13254) -! JVS(38199) = Jac_FULL(5231,2090) - JVS(38199) = B(3890) -! JVS(38200) = Jac_FULL(5231,2095) - JVS(38200) = 0 -! JVS(38201) = Jac_FULL(5231,2107) - JVS(38201) = 0 -! JVS(38202) = Jac_FULL(5231,2115) - JVS(38202) = 0 -! JVS(38203) = Jac_FULL(5231,2139) - JVS(38203) = B(23495) -! JVS(38204) = Jac_FULL(5231,2150) - JVS(38204) = B(12172) -! JVS(38205) = Jac_FULL(5231,2163) - JVS(38205) = B(8498) -! JVS(38206) = Jac_FULL(5231,2190) - JVS(38206) = B(14088) -! JVS(38207) = Jac_FULL(5231,2203) - JVS(38207) = B(21191) -! JVS(38208) = Jac_FULL(5231,2217) - JVS(38208) = 0 -! JVS(38209) = Jac_FULL(5231,2229) - JVS(38209) = B(3668) -! JVS(38210) = Jac_FULL(5231,2230) - JVS(38210) = B(16715) -! JVS(38211) = Jac_FULL(5231,2242) - JVS(38211) = B(7583) -! JVS(38212) = Jac_FULL(5231,2254) - JVS(38212) = B(14634) -! JVS(38213) = Jac_FULL(5231,2280) - JVS(38213) = B(14714) -! JVS(38214) = Jac_FULL(5231,2323) - JVS(38214) = B(11071) -! JVS(38215) = Jac_FULL(5231,2325) - JVS(38215) = B(17342) -! JVS(38216) = Jac_FULL(5231,2326) - JVS(38216) = B(6990) -! JVS(38217) = Jac_FULL(5231,2347) - JVS(38217) = B(14660) -! JVS(38218) = Jac_FULL(5231,2348) - JVS(38218) = 0 -! JVS(38219) = Jac_FULL(5231,2360) - JVS(38219) = 0 -! JVS(38220) = Jac_FULL(5231,2373) - JVS(38220) = B(14711) -! JVS(38221) = Jac_FULL(5231,2378) - JVS(38221) = B(19303) -! JVS(38222) = Jac_FULL(5231,2380) - JVS(38222) = 0 -! JVS(38223) = Jac_FULL(5231,2412) - JVS(38223) = B(7750) -! JVS(38224) = Jac_FULL(5231,2430) - JVS(38224) = B(19994) -! JVS(38225) = Jac_FULL(5231,2440) - JVS(38225) = 0 -! JVS(38226) = Jac_FULL(5231,2476) - JVS(38226) = B(3113)+B(3115) -! JVS(38227) = Jac_FULL(5231,2478) - JVS(38227) = 0 -! JVS(38228) = Jac_FULL(5231,2479) - JVS(38228) = B(6720) -! JVS(38229) = Jac_FULL(5231,2481) - JVS(38229) = B(10334)+B(10336) -! JVS(38230) = Jac_FULL(5231,2495) - JVS(38230) = B(19263) -! JVS(38231) = Jac_FULL(5231,2497) - JVS(38231) = B(10474) -! JVS(38232) = Jac_FULL(5231,2500) - JVS(38232) = B(12173) -! JVS(38233) = Jac_FULL(5231,2502) - JVS(38233) = B(4893) -! JVS(38234) = Jac_FULL(5231,2508) - JVS(38234) = B(7471) -! JVS(38235) = Jac_FULL(5231,2512) - JVS(38235) = B(19305) -! JVS(38236) = Jac_FULL(5231,2516) - JVS(38236) = B(7392) -! JVS(38237) = Jac_FULL(5231,2540) - JVS(38237) = B(11070) -! JVS(38238) = Jac_FULL(5231,2549) - JVS(38238) = B(4966) -! JVS(38239) = Jac_FULL(5231,2550) - JVS(38239) = B(3952) -! JVS(38240) = Jac_FULL(5231,2561) - JVS(38240) = B(21940) -! JVS(38241) = Jac_FULL(5231,2571) - JVS(38241) = B(23530) -! JVS(38242) = Jac_FULL(5231,2578) - JVS(38242) = B(23629) -! JVS(38243) = Jac_FULL(5231,2589) - JVS(38243) = B(17530) -! JVS(38244) = Jac_FULL(5231,2591) - JVS(38244) = B(22979) -! JVS(38245) = Jac_FULL(5231,2596) - JVS(38245) = B(13573) -! JVS(38246) = Jac_FULL(5231,2607) - JVS(38246) = B(23926) -! JVS(38247) = Jac_FULL(5231,2617) - JVS(38247) = 0 -! JVS(38248) = Jac_FULL(5231,2623) - JVS(38248) = B(6837) -! JVS(38249) = Jac_FULL(5231,2627) - JVS(38249) = 0 -! JVS(38250) = Jac_FULL(5231,2628) - JVS(38250) = 0 -! JVS(38251) = Jac_FULL(5231,2639) - JVS(38251) = B(3660) -! JVS(38252) = Jac_FULL(5231,2657) - JVS(38252) = B(3979) -! JVS(38253) = Jac_FULL(5231,2664) - JVS(38253) = 0 -! JVS(38254) = Jac_FULL(5231,2667) - JVS(38254) = B(23283) -! JVS(38255) = Jac_FULL(5231,2687) - JVS(38255) = B(4401) -! JVS(38256) = Jac_FULL(5231,2690) - JVS(38256) = B(13365) -! JVS(38257) = Jac_FULL(5231,2694) - JVS(38257) = B(23273) -! JVS(38258) = Jac_FULL(5231,2706) - JVS(38258) = B(6688) -! JVS(38259) = Jac_FULL(5231,2707) - JVS(38259) = 2*B(3637) -! JVS(38260) = Jac_FULL(5231,2720) - JVS(38260) = B(3678) -! JVS(38261) = Jac_FULL(5231,2723) - JVS(38261) = B(21188) -! JVS(38262) = Jac_FULL(5231,2727) - JVS(38262) = B(11212) -! JVS(38263) = Jac_FULL(5231,2739) - JVS(38263) = B(19942) -! JVS(38264) = Jac_FULL(5231,2744) - JVS(38264) = B(14662) -! JVS(38265) = Jac_FULL(5231,2746) - JVS(38265) = B(17344) -! JVS(38266) = Jac_FULL(5231,2747) - JVS(38266) = B(3849) -! JVS(38267) = Jac_FULL(5231,2748) - JVS(38267) = B(1490) -! JVS(38268) = Jac_FULL(5231,2750) - JVS(38268) = B(21924) -! JVS(38269) = Jac_FULL(5231,2758) - JVS(38269) = B(18356) -! JVS(38270) = Jac_FULL(5231,2760) - JVS(38270) = B(17923) -! JVS(38271) = Jac_FULL(5231,2769) - JVS(38271) = B(19993) -! JVS(38272) = Jac_FULL(5231,2770) - JVS(38272) = B(16712) -! JVS(38273) = Jac_FULL(5231,2771) - JVS(38273) = B(6672) -! JVS(38274) = Jac_FULL(5231,2774) - JVS(38274) = B(7021) -! JVS(38275) = Jac_FULL(5231,2783) - JVS(38275) = B(12168) -! JVS(38276) = Jac_FULL(5231,2788) - JVS(38276) = B(24046) -! JVS(38277) = Jac_FULL(5231,2810) - JVS(38277) = 0 -! JVS(38278) = Jac_FULL(5231,2817) - JVS(38278) = 0 -! JVS(38279) = Jac_FULL(5231,2819) - JVS(38279) = B(18575) -! JVS(38280) = Jac_FULL(5231,2821) - JVS(38280) = B(10699) -! JVS(38281) = Jac_FULL(5231,2827) - JVS(38281) = B(18972) -! JVS(38282) = Jac_FULL(5231,2832) - JVS(38282) = B(17293) -! JVS(38283) = Jac_FULL(5231,2834) - JVS(38283) = B(10679) -! JVS(38284) = Jac_FULL(5231,2836) - JVS(38284) = B(11357) -! JVS(38285) = Jac_FULL(5231,2840) - JVS(38285) = B(3717) -! JVS(38286) = Jac_FULL(5231,2851) - JVS(38286) = B(5019) -! JVS(38287) = Jac_FULL(5231,2861) - JVS(38287) = B(4097) -! JVS(38288) = Jac_FULL(5231,2865) - JVS(38288) = B(17464) -! JVS(38289) = Jac_FULL(5231,2869) - JVS(38289) = B(4022) -! JVS(38290) = Jac_FULL(5231,2874) - JVS(38290) = B(17953) -! JVS(38291) = Jac_FULL(5231,2900) - JVS(38291) = B(13425) -! JVS(38292) = Jac_FULL(5231,2902) - JVS(38292) = B(7386) -! JVS(38293) = Jac_FULL(5231,2913) - JVS(38293) = 0 -! JVS(38294) = Jac_FULL(5231,2916) - JVS(38294) = B(22963) -! JVS(38295) = Jac_FULL(5231,2931) - JVS(38295) = B(23659) -! JVS(38296) = Jac_FULL(5231,2944) - JVS(38296) = B(5140) -! JVS(38297) = Jac_FULL(5231,2953) - JVS(38297) = B(22362) -! JVS(38298) = Jac_FULL(5231,2954) - JVS(38298) = B(13992) -! JVS(38299) = Jac_FULL(5231,2959) - JVS(38299) = B(7323) -! JVS(38300) = Jac_FULL(5231,2961) - JVS(38300) = B(7585) -! JVS(38301) = Jac_FULL(5231,2962) - JVS(38301) = B(17018) -! JVS(38302) = Jac_FULL(5231,2972) - JVS(38302) = B(19000) -! JVS(38303) = Jac_FULL(5231,2982) - JVS(38303) = B(17652) -! JVS(38304) = Jac_FULL(5231,2983) - JVS(38304) = B(3806) -! JVS(38305) = Jac_FULL(5231,2989) - JVS(38305) = B(21645) -! JVS(38306) = Jac_FULL(5231,2996) - JVS(38306) = B(10706) -! JVS(38307) = Jac_FULL(5231,2997) - JVS(38307) = B(17059) -! JVS(38308) = Jac_FULL(5231,3002) - JVS(38308) = B(5093) -! JVS(38309) = Jac_FULL(5231,3030) - JVS(38309) = B(7317) -! JVS(38310) = Jac_FULL(5231,3037) - JVS(38310) = B(14636) -! JVS(38311) = Jac_FULL(5231,3039) - JVS(38311) = B(14628) -! JVS(38312) = Jac_FULL(5231,3047) - JVS(38312) = B(7751) -! JVS(38313) = Jac_FULL(5231,3048) - JVS(38313) = B(10682) -! JVS(38314) = Jac_FULL(5231,3049) - JVS(38314) = 0 -! JVS(38315) = Jac_FULL(5231,3054) - JVS(38315) = B(11559) -! JVS(38316) = Jac_FULL(5231,3072) - JVS(38316) = B(6597) -! JVS(38317) = Jac_FULL(5231,3074) - JVS(38317) = B(14550) -! JVS(38318) = Jac_FULL(5231,3077) - JVS(38318) = 0 -! JVS(38319) = Jac_FULL(5231,3079) - JVS(38319) = B(21138) -! JVS(38320) = Jac_FULL(5231,3099) - JVS(38320) = B(4222) -! JVS(38321) = Jac_FULL(5231,3141) - JVS(38321) = B(7324) -! JVS(38322) = Jac_FULL(5231,3155) - JVS(38322) = B(3117) -! JVS(38323) = Jac_FULL(5231,3173) - JVS(38323) = B(3715) -! JVS(38324) = Jac_FULL(5231,3194) - JVS(38324) = B(10624) -! JVS(38325) = Jac_FULL(5231,3205) - JVS(38325) = 0 -! JVS(38326) = Jac_FULL(5231,3207) - JVS(38326) = B(3964) -! JVS(38327) = Jac_FULL(5231,3208) - JVS(38327) = 0 -! JVS(38328) = Jac_FULL(5231,3218) - JVS(38328) = B(21253) -! JVS(38329) = Jac_FULL(5231,3221) - JVS(38329) = B(16167) -! JVS(38330) = Jac_FULL(5231,3234) - JVS(38330) = B(10458) -! JVS(38331) = Jac_FULL(5231,3239) - JVS(38331) = B(14196) -! JVS(38332) = Jac_FULL(5231,3241) - JVS(38332) = B(10559) -! JVS(38333) = Jac_FULL(5231,3249) - JVS(38333) = B(16414) -! JVS(38334) = Jac_FULL(5231,3256) - JVS(38334) = 0 -! JVS(38335) = Jac_FULL(5231,3260) - JVS(38335) = B(11743) -! JVS(38336) = Jac_FULL(5231,3268) - JVS(38336) = B(5069) -! JVS(38337) = Jac_FULL(5231,3275) - JVS(38337) = B(19025) -! JVS(38338) = Jac_FULL(5231,3276) - JVS(38338) = B(20528) -! JVS(38339) = Jac_FULL(5231,3277) - JVS(38339) = 0 -! JVS(38340) = Jac_FULL(5231,3284) - JVS(38340) = B(7744) -! JVS(38341) = Jac_FULL(5231,3287) - JVS(38341) = B(14063) -! JVS(38342) = Jac_FULL(5231,3289) - JVS(38342) = 0 -! JVS(38343) = Jac_FULL(5231,3290) - JVS(38343) = B(15558) -! JVS(38344) = Jac_FULL(5231,3291) - JVS(38344) = 0 -! JVS(38345) = Jac_FULL(5231,3294) - JVS(38345) = B(4224) -! JVS(38346) = Jac_FULL(5231,3299) - JVS(38346) = 0 -! JVS(38347) = Jac_FULL(5231,3300) - JVS(38347) = B(13228) -! JVS(38348) = Jac_FULL(5231,3306) - JVS(38348) = B(21266) -! JVS(38349) = Jac_FULL(5231,3308) - JVS(38349) = 0 -! JVS(38350) = Jac_FULL(5231,3310) - JVS(38350) = 0 -! JVS(38351) = Jac_FULL(5231,3311) - JVS(38351) = B(17715) -! JVS(38352) = Jac_FULL(5231,3312) - JVS(38352) = B(11968) -! JVS(38353) = Jac_FULL(5231,3335) - JVS(38353) = B(17133) -! JVS(38354) = Jac_FULL(5231,3338) - JVS(38354) = B(20926) -! JVS(38355) = Jac_FULL(5231,3349) - JVS(38355) = B(5111) -! JVS(38356) = Jac_FULL(5231,3351) - JVS(38356) = 2*B(4813) -! JVS(38357) = Jac_FULL(5231,3358) - JVS(38357) = B(17465) -! JVS(38358) = Jac_FULL(5231,3394) - JVS(38358) = B(4087) -! JVS(38359) = Jac_FULL(5231,3399) - JVS(38359) = 0 -! JVS(38360) = Jac_FULL(5231,3410) - JVS(38360) = B(23912) -! JVS(38361) = Jac_FULL(5231,3432) - JVS(38361) = 0 -! JVS(38362) = Jac_FULL(5231,3439) - JVS(38362) = B(5847) -! JVS(38363) = Jac_FULL(5231,3447) - JVS(38363) = B(23556) -! JVS(38364) = Jac_FULL(5231,3462) - JVS(38364) = 0 -! JVS(38365) = Jac_FULL(5231,3464) - JVS(38365) = B(13676) -! JVS(38366) = Jac_FULL(5231,3490) - JVS(38366) = B(20514) -! JVS(38367) = Jac_FULL(5231,3517) - JVS(38367) = B(7529) -! JVS(38368) = Jac_FULL(5231,3524) - JVS(38368) = B(13767) -! JVS(38369) = Jac_FULL(5231,3529) - JVS(38369) = 0 -! JVS(38370) = Jac_FULL(5231,3559) - JVS(38370) = B(11078) -! JVS(38371) = Jac_FULL(5231,3564) - JVS(38371) = B(14782) -! JVS(38372) = Jac_FULL(5231,3572) - JVS(38372) = B(4931) -! JVS(38373) = Jac_FULL(5231,3575) - JVS(38373) = B(5048) -! JVS(38374) = Jac_FULL(5231,3577) - JVS(38374) = B(4837) -! JVS(38375) = Jac_FULL(5231,3585) - JVS(38375) = B(4826) -! JVS(38376) = Jac_FULL(5231,3586) - JVS(38376) = B(10664) -! JVS(38377) = Jac_FULL(5231,3591) - JVS(38377) = B(20789) -! JVS(38378) = Jac_FULL(5231,3592) - JVS(38378) = B(5009) -! JVS(38379) = Jac_FULL(5231,3598) - JVS(38379) = B(4897) -! JVS(38380) = Jac_FULL(5231,3620) - JVS(38380) = 0 -! JVS(38381) = Jac_FULL(5231,3621) - JVS(38381) = 0 -! JVS(38382) = Jac_FULL(5231,3646) - JVS(38382) = B(7501) -! JVS(38383) = Jac_FULL(5231,3652) - JVS(38383) = B(1493)+B(1494) -! JVS(38384) = Jac_FULL(5231,3700) - JVS(38384) = B(16667) -! JVS(38385) = Jac_FULL(5231,3707) - JVS(38385) = B(13667) -! JVS(38386) = Jac_FULL(5231,3708) - JVS(38386) = 0 -! JVS(38387) = Jac_FULL(5231,3734) - JVS(38387) = B(10625) -! JVS(38388) = Jac_FULL(5231,3755) - JVS(38388) = B(4069) -! JVS(38389) = Jac_FULL(5231,3763) - JVS(38389) = B(6615) -! JVS(38390) = Jac_FULL(5231,3806) - JVS(38390) = 0 -! JVS(38391) = Jac_FULL(5231,3810) - JVS(38391) = 0 -! JVS(38392) = Jac_FULL(5231,3814) - JVS(38392) = 0 -! JVS(38393) = Jac_FULL(5231,3839) - JVS(38393) = 0 -! JVS(38394) = Jac_FULL(5231,3840) - JVS(38394) = 0 -! JVS(38395) = Jac_FULL(5231,3846) - JVS(38395) = 0 -! JVS(38396) = Jac_FULL(5231,3848) - JVS(38396) = 0 -! JVS(38397) = Jac_FULL(5231,3850) - JVS(38397) = 0 -! JVS(38398) = Jac_FULL(5231,3865) - JVS(38398) = 0 -! JVS(38399) = Jac_FULL(5231,3866) - JVS(38399) = 0 -! JVS(38400) = Jac_FULL(5231,3871) - JVS(38400) = 0 -! JVS(38401) = Jac_FULL(5231,3874) - JVS(38401) = 0 -! JVS(38402) = Jac_FULL(5231,3876) - JVS(38402) = 0 -! JVS(38403) = Jac_FULL(5231,3878) - JVS(38403) = B(4919) -! JVS(38404) = Jac_FULL(5231,3883) - JVS(38404) = 0 -! JVS(38405) = Jac_FULL(5231,3886) - JVS(38405) = 0 -! JVS(38406) = Jac_FULL(5231,3887) - JVS(38406) = B(5035) -! JVS(38407) = Jac_FULL(5231,3895) - JVS(38407) = 0 -! JVS(38408) = Jac_FULL(5231,3898) - JVS(38408) = 0 -! JVS(38409) = Jac_FULL(5231,3907) - JVS(38409) = 0 -! JVS(38410) = Jac_FULL(5231,3909) - JVS(38410) = B(12277) -! JVS(38411) = Jac_FULL(5231,3925) - JVS(38411) = B(5107) -! JVS(38412) = Jac_FULL(5231,3926) - JVS(38412) = 0 -! JVS(38413) = Jac_FULL(5231,3928) - JVS(38413) = 0 -! JVS(38414) = Jac_FULL(5231,3934) - JVS(38414) = B(4856) -! JVS(38415) = Jac_FULL(5231,3941) - JVS(38415) = 0 -! JVS(38416) = Jac_FULL(5231,3942) - JVS(38416) = B(4845) -! JVS(38417) = Jac_FULL(5231,3949) - JVS(38417) = 0 -! JVS(38418) = Jac_FULL(5231,3950) - JVS(38418) = 0 -! JVS(38419) = Jac_FULL(5231,3954) - JVS(38419) = 0 -! JVS(38420) = Jac_FULL(5231,3959) - JVS(38420) = B(3681) -! JVS(38421) = Jac_FULL(5231,3974) - JVS(38421) = 0 -! JVS(38422) = Jac_FULL(5231,3976) - JVS(38422) = 0 -! JVS(38423) = Jac_FULL(5231,3979) - JVS(38423) = 0 -! JVS(38424) = Jac_FULL(5231,3980) - JVS(38424) = 0 -! JVS(38425) = Jac_FULL(5231,3984) - JVS(38425) = 0 -! JVS(38426) = Jac_FULL(5231,3985) - JVS(38426) = 0 -! JVS(38427) = Jac_FULL(5231,3987) - JVS(38427) = 0 -! JVS(38428) = Jac_FULL(5231,3988) - JVS(38428) = 0 -! JVS(38429) = Jac_FULL(5231,3990) - JVS(38429) = 0 -! JVS(38430) = Jac_FULL(5231,3994) - JVS(38430) = 0 -! JVS(38431) = Jac_FULL(5231,4031) - JVS(38431) = 0 -! JVS(38432) = Jac_FULL(5231,4068) - JVS(38432) = 0 -! JVS(38433) = Jac_FULL(5231,4069) - JVS(38433) = 0 -! JVS(38434) = Jac_FULL(5231,4070) - JVS(38434) = 0 -! JVS(38435) = Jac_FULL(5231,4096) - JVS(38435) = B(6835) -! JVS(38436) = Jac_FULL(5231,4097) - JVS(38436) = 0 -! JVS(38437) = Jac_FULL(5231,4105) - JVS(38437) = 0 -! JVS(38438) = Jac_FULL(5231,4111) - JVS(38438) = 0 -! JVS(38439) = Jac_FULL(5231,4112) - JVS(38439) = 0 -! JVS(38440) = Jac_FULL(5231,4117) - JVS(38440) = 0 -! JVS(38441) = Jac_FULL(5231,4126) - JVS(38441) = 0 -! JVS(38442) = Jac_FULL(5231,4129) - JVS(38442) = 0 -! JVS(38443) = Jac_FULL(5231,4130) - JVS(38443) = 0 -! JVS(38444) = Jac_FULL(5231,4131) - JVS(38444) = 0 -! JVS(38445) = Jac_FULL(5231,4135) - JVS(38445) = 0 -! JVS(38446) = Jac_FULL(5231,4143) - JVS(38446) = 0 -! JVS(38447) = Jac_FULL(5231,4144) - JVS(38447) = 0 -! JVS(38448) = Jac_FULL(5231,4146) - JVS(38448) = 0 -! JVS(38449) = Jac_FULL(5231,4147) - JVS(38449) = 0 -! JVS(38450) = Jac_FULL(5231,4149) - JVS(38450) = 0 -! JVS(38451) = Jac_FULL(5231,4157) - JVS(38451) = 0 -! JVS(38452) = Jac_FULL(5231,4161) - JVS(38452) = 0 -! JVS(38453) = Jac_FULL(5231,4171) - JVS(38453) = 0 -! JVS(38454) = Jac_FULL(5231,4183) - JVS(38454) = 0 -! JVS(38455) = Jac_FULL(5231,4185) - JVS(38455) = 0 -! JVS(38456) = Jac_FULL(5231,4188) - JVS(38456) = 0 -! JVS(38457) = Jac_FULL(5231,4191) - JVS(38457) = 0 -! JVS(38458) = Jac_FULL(5231,4211) - JVS(38458) = 0 -! JVS(38459) = Jac_FULL(5231,4235) - JVS(38459) = 0 -! JVS(38460) = Jac_FULL(5231,4249) - JVS(38460) = 0 -! JVS(38461) = Jac_FULL(5231,4254) - JVS(38461) = 0 -! JVS(38462) = Jac_FULL(5231,4263) - JVS(38462) = 0 -! JVS(38463) = Jac_FULL(5231,4268) - JVS(38463) = 0 -! JVS(38464) = Jac_FULL(5231,4270) - JVS(38464) = 0 -! JVS(38465) = Jac_FULL(5231,4284) - JVS(38465) = 0 -! JVS(38466) = Jac_FULL(5231,4318) - JVS(38466) = 0 -! JVS(38467) = Jac_FULL(5231,4330) - JVS(38467) = B(4276) -! JVS(38468) = Jac_FULL(5231,4337) - JVS(38468) = 0 -! JVS(38469) = Jac_FULL(5231,4345) - JVS(38469) = 0 -! JVS(38470) = Jac_FULL(5231,4348) - JVS(38470) = 0 -! JVS(38471) = Jac_FULL(5231,4351) - JVS(38471) = 0 -! JVS(38472) = Jac_FULL(5231,4359) - JVS(38472) = 0 -! JVS(38473) = Jac_FULL(5231,4364) - JVS(38473) = 0 -! JVS(38474) = Jac_FULL(5231,4366) - JVS(38474) = B(20548) -! JVS(38475) = Jac_FULL(5231,4368) - JVS(38475) = 0 -! JVS(38476) = Jac_FULL(5231,4370) - JVS(38476) = 0 -! JVS(38477) = Jac_FULL(5231,4372) - JVS(38477) = 0 -! JVS(38478) = Jac_FULL(5231,4383) - JVS(38478) = B(6995) -! JVS(38479) = Jac_FULL(5231,4385) - JVS(38479) = 0 -! JVS(38480) = Jac_FULL(5231,4395) - JVS(38480) = B(753) -! JVS(38481) = Jac_FULL(5231,4418) - JVS(38481) = 0 -! JVS(38482) = Jac_FULL(5231,4420) - JVS(38482) = B(4096) -! JVS(38483) = Jac_FULL(5231,4443) - JVS(38483) = 0 -! JVS(38484) = Jac_FULL(5231,4447) - JVS(38484) = 0 -! JVS(38485) = Jac_FULL(5231,4450) - JVS(38485) = 0 -! JVS(38486) = Jac_FULL(5231,4459) - JVS(38486) = 0 -! JVS(38487) = Jac_FULL(5231,4465) - JVS(38487) = 0 -! JVS(38488) = Jac_FULL(5231,4508) - JVS(38488) = B(531) -! JVS(38489) = Jac_FULL(5231,4512) - JVS(38489) = B(471) -! JVS(38490) = Jac_FULL(5231,4520) - JVS(38490) = 0 -! JVS(38491) = Jac_FULL(5231,4527) - JVS(38491) = B(555) -! JVS(38492) = Jac_FULL(5231,4530) - JVS(38492) = B(7892) -! JVS(38493) = Jac_FULL(5231,4541) - JVS(38493) = 0 -! JVS(38494) = Jac_FULL(5231,4543) - JVS(38494) = 0 -! JVS(38495) = Jac_FULL(5231,4549) - JVS(38495) = 0 -! JVS(38496) = Jac_FULL(5231,4550) - JVS(38496) = 0 -! JVS(38497) = Jac_FULL(5231,4552) - JVS(38497) = 0 -! JVS(38498) = Jac_FULL(5231,4554) - JVS(38498) = 0 -! JVS(38499) = Jac_FULL(5231,4555) - JVS(38499) = B(163) -! JVS(38500) = Jac_FULL(5231,4561) - JVS(38500) = 0 -! JVS(38501) = Jac_FULL(5231,4562) - JVS(38501) = 0 -! JVS(38502) = Jac_FULL(5231,4563) - JVS(38502) = 0 -! JVS(38503) = Jac_FULL(5231,4567) - JVS(38503) = 0 -! JVS(38504) = Jac_FULL(5231,4574) - JVS(38504) = 0 -! JVS(38505) = Jac_FULL(5231,4578) - JVS(38505) = 0 -! JVS(38506) = Jac_FULL(5231,4579) - JVS(38506) = 0 -! JVS(38507) = Jac_FULL(5231,4581) - JVS(38507) = 0 -! JVS(38508) = Jac_FULL(5231,4582) - JVS(38508) = 0 -! JVS(38509) = Jac_FULL(5231,4586) - JVS(38509) = 0 -! JVS(38510) = Jac_FULL(5231,4587) - JVS(38510) = 0 -! JVS(38511) = Jac_FULL(5231,4588) - JVS(38511) = B(5235) -! JVS(38512) = Jac_FULL(5231,4593) - JVS(38512) = 0 -! JVS(38513) = Jac_FULL(5231,4595) - JVS(38513) = 0 -! JVS(38514) = Jac_FULL(5231,4596) - JVS(38514) = 0 -! JVS(38515) = Jac_FULL(5231,4597) - JVS(38515) = 0 -! JVS(38516) = Jac_FULL(5231,4598) - JVS(38516) = 0 -! JVS(38517) = Jac_FULL(5231,4599) - JVS(38517) = 0 -! JVS(38518) = Jac_FULL(5231,4600) - JVS(38518) = B(884) -! JVS(38519) = Jac_FULL(5231,4601) - JVS(38519) = B(517) -! JVS(38520) = Jac_FULL(5231,4605) - JVS(38520) = 0 -! JVS(38521) = Jac_FULL(5231,4609) - JVS(38521) = 0 -! JVS(38522) = Jac_FULL(5231,4614) - JVS(38522) = 0 -! JVS(38523) = Jac_FULL(5231,4615) - JVS(38523) = B(10551) -! JVS(38524) = Jac_FULL(5231,4616) - JVS(38524) = 0 -! JVS(38525) = Jac_FULL(5231,4617) - JVS(38525) = 0 -! JVS(38526) = Jac_FULL(5231,4624) - JVS(38526) = 0 -! JVS(38527) = Jac_FULL(5231,4627) - JVS(38527) = 0 -! JVS(38528) = Jac_FULL(5231,4631) - JVS(38528) = 0 -! JVS(38529) = Jac_FULL(5231,4645) - JVS(38529) = 0 -! JVS(38530) = Jac_FULL(5231,4648) - JVS(38530) = 0 -! JVS(38531) = Jac_FULL(5231,4653) - JVS(38531) = 0 -! JVS(38532) = Jac_FULL(5231,4659) - JVS(38532) = 0 -! JVS(38533) = Jac_FULL(5231,4668) - JVS(38533) = 0 -! JVS(38534) = Jac_FULL(5231,4669) - JVS(38534) = 0 -! JVS(38535) = Jac_FULL(5231,4673) - JVS(38535) = B(23186)+B(23188)+B(23192)+B(23195) -! JVS(38536) = Jac_FULL(5231,4677) - JVS(38536) = 0 -! JVS(38537) = Jac_FULL(5231,4686) - JVS(38537) = 0 -! JVS(38538) = Jac_FULL(5231,4687) - JVS(38538) = 0 -! JVS(38539) = Jac_FULL(5231,4697) - JVS(38539) = 0 -! JVS(38540) = Jac_FULL(5231,4698) - JVS(38540) = 0 -! JVS(38541) = Jac_FULL(5231,4700) - JVS(38541) = 0 -! JVS(38542) = Jac_FULL(5231,4704) - JVS(38542) = 0 -! JVS(38543) = Jac_FULL(5231,4717) - JVS(38543) = 0 -! JVS(38544) = Jac_FULL(5231,4723) - JVS(38544) = 0 -! JVS(38545) = Jac_FULL(5231,4724) - JVS(38545) = 0 -! JVS(38546) = Jac_FULL(5231,4730) - JVS(38546) = 0 -! JVS(38547) = Jac_FULL(5231,4732) - JVS(38547) = 0 -! JVS(38548) = Jac_FULL(5231,4735) - JVS(38548) = 0 -! JVS(38549) = Jac_FULL(5231,4742) - JVS(38549) = 0 -! JVS(38550) = Jac_FULL(5231,4745) - JVS(38550) = 0 -! JVS(38551) = Jac_FULL(5231,4746) - JVS(38551) = 0 -! JVS(38552) = Jac_FULL(5231,4749) - JVS(38552) = B(13777) -! JVS(38553) = Jac_FULL(5231,4756) - JVS(38553) = 0 -! JVS(38554) = Jac_FULL(5231,4758) - JVS(38554) = 0 -! JVS(38555) = Jac_FULL(5231,4761) - JVS(38555) = 0 -! JVS(38556) = Jac_FULL(5231,4765) - JVS(38556) = 0 -! JVS(38557) = Jac_FULL(5231,4770) - JVS(38557) = 0 -! JVS(38558) = Jac_FULL(5231,4771) - JVS(38558) = 0 -! JVS(38559) = Jac_FULL(5231,4774) - JVS(38559) = 0 -! JVS(38560) = Jac_FULL(5231,4777) - JVS(38560) = 0 -! JVS(38561) = Jac_FULL(5231,4778) - JVS(38561) = 0 -! JVS(38562) = Jac_FULL(5231,4780) - JVS(38562) = 0 -! JVS(38563) = Jac_FULL(5231,4783) - JVS(38563) = 0 -! JVS(38564) = Jac_FULL(5231,4786) - JVS(38564) = B(10620) -! JVS(38565) = Jac_FULL(5231,4794) - JVS(38565) = B(3139) -! JVS(38566) = Jac_FULL(5231,4804) - JVS(38566) = 0 -! JVS(38567) = Jac_FULL(5231,4806) - JVS(38567) = 0 -! JVS(38568) = Jac_FULL(5231,4808) - JVS(38568) = 0 -! JVS(38569) = Jac_FULL(5231,4809) - JVS(38569) = 0 -! JVS(38570) = Jac_FULL(5231,4812) - JVS(38570) = B(23127)+B(23129)+B(23133)+B(23136) -! JVS(38571) = Jac_FULL(5231,4816) - JVS(38571) = B(18931)+B(18933)+B(18937)+B(18940) -! JVS(38572) = Jac_FULL(5231,4817) - JVS(38572) = 0 -! JVS(38573) = Jac_FULL(5231,4819) - JVS(38573) = 0 -! JVS(38574) = Jac_FULL(5231,4830) - JVS(38574) = 0 -! JVS(38575) = Jac_FULL(5231,4832) - JVS(38575) = 0 -! JVS(38576) = Jac_FULL(5231,4836) - JVS(38576) = 0 -! JVS(38577) = Jac_FULL(5231,4837) - JVS(38577) = 0 -! JVS(38578) = Jac_FULL(5231,4840) - JVS(38578) = 0 -! JVS(38579) = Jac_FULL(5231,4857) - JVS(38579) = 0 -! JVS(38580) = Jac_FULL(5231,4860) - JVS(38580) = 0 -! JVS(38581) = Jac_FULL(5231,4862) - JVS(38581) = 0 -! JVS(38582) = Jac_FULL(5231,4875) - JVS(38582) = 0 -! JVS(38583) = Jac_FULL(5231,4879) - JVS(38583) = 0 -! JVS(38584) = Jac_FULL(5231,4881) - JVS(38584) = 0 -! JVS(38585) = Jac_FULL(5231,4883) - JVS(38585) = 0 -! JVS(38586) = Jac_FULL(5231,4885) - JVS(38586) = 0 -! JVS(38587) = Jac_FULL(5231,4888) - JVS(38587) = 0 -! JVS(38588) = Jac_FULL(5231,4895) - JVS(38588) = 0 -! JVS(38589) = Jac_FULL(5231,4898) - JVS(38589) = 0 -! JVS(38590) = Jac_FULL(5231,4900) - JVS(38590) = 0 -! JVS(38591) = Jac_FULL(5231,4903) - JVS(38591) = 0 -! JVS(38592) = Jac_FULL(5231,4906) - JVS(38592) = 0 -! JVS(38593) = Jac_FULL(5231,4907) - JVS(38593) = B(3150) -! JVS(38594) = Jac_FULL(5231,4909) - JVS(38594) = 0 -! JVS(38595) = Jac_FULL(5231,4926) - JVS(38595) = 0 -! JVS(38596) = Jac_FULL(5231,4927) - JVS(38596) = 0 -! JVS(38597) = Jac_FULL(5231,4929) - JVS(38597) = 0 -! JVS(38598) = Jac_FULL(5231,4932) - JVS(38598) = 0 -! JVS(38599) = Jac_FULL(5231,4937) - JVS(38599) = 0 -! JVS(38600) = Jac_FULL(5231,4945) - JVS(38600) = B(13859) -! JVS(38601) = Jac_FULL(5231,4946) - JVS(38601) = 0 -! JVS(38602) = Jac_FULL(5231,4950) - JVS(38602) = 0 -! JVS(38603) = Jac_FULL(5231,4952) - JVS(38603) = 0 -! JVS(38604) = Jac_FULL(5231,4954) - JVS(38604) = B(1449)+B(1451)+B(1455)+B(1458) -! JVS(38605) = Jac_FULL(5231,4955) - JVS(38605) = 0 -! JVS(38606) = Jac_FULL(5231,4957) - JVS(38606) = 0 -! JVS(38607) = Jac_FULL(5231,4958) - JVS(38607) = 0 -! JVS(38608) = Jac_FULL(5231,4959) - JVS(38608) = 0 -! JVS(38609) = Jac_FULL(5231,4960) - JVS(38609) = 0 -! JVS(38610) = Jac_FULL(5231,4967) - JVS(38610) = 0 -! JVS(38611) = Jac_FULL(5231,4969) - JVS(38611) = 0 -! JVS(38612) = Jac_FULL(5231,4970) - JVS(38612) = B(7507) -! JVS(38613) = Jac_FULL(5231,4972) - JVS(38613) = 0 -! JVS(38614) = Jac_FULL(5231,4976) - JVS(38614) = 0 -! JVS(38615) = Jac_FULL(5231,4980) - JVS(38615) = 0 -! JVS(38616) = Jac_FULL(5231,4981) - JVS(38616) = 0 -! JVS(38617) = Jac_FULL(5231,4984) - JVS(38617) = 0 -! JVS(38618) = Jac_FULL(5231,4985) - JVS(38618) = 0 -! JVS(38619) = Jac_FULL(5231,4987) - JVS(38619) = 0 -! JVS(38620) = Jac_FULL(5231,4988) - JVS(38620) = 0 -! JVS(38621) = Jac_FULL(5231,4993) - JVS(38621) = 0 -! JVS(38622) = Jac_FULL(5231,4996) - JVS(38622) = 0 -! JVS(38623) = Jac_FULL(5231,4999) - JVS(38623) = 0 -! JVS(38624) = Jac_FULL(5231,5002) - JVS(38624) = 0 -! JVS(38625) = Jac_FULL(5231,5010) - JVS(38625) = 0 -! JVS(38626) = Jac_FULL(5231,5013) - JVS(38626) = 0 -! JVS(38627) = Jac_FULL(5231,5015) - JVS(38627) = 0 -! JVS(38628) = Jac_FULL(5231,5018) - JVS(38628) = 0 -! JVS(38629) = Jac_FULL(5231,5019) - JVS(38629) = 0 -! JVS(38630) = Jac_FULL(5231,5020) - JVS(38630) = 0 -! JVS(38631) = Jac_FULL(5231,5021) - JVS(38631) = 0 -! JVS(38632) = Jac_FULL(5231,5022) - JVS(38632) = 0 -! JVS(38633) = Jac_FULL(5231,5024) - JVS(38633) = B(16722) -! JVS(38634) = Jac_FULL(5231,5030) - JVS(38634) = 0 -! JVS(38635) = Jac_FULL(5231,5031) - JVS(38635) = 0 -! JVS(38636) = Jac_FULL(5231,5032) - JVS(38636) = 0 -! JVS(38637) = Jac_FULL(5231,5036) - JVS(38637) = 0 -! JVS(38638) = Jac_FULL(5231,5041) - JVS(38638) = 0 -! JVS(38639) = Jac_FULL(5231,5043) - JVS(38639) = 0 -! JVS(38640) = Jac_FULL(5231,5045) - JVS(38640) = 0 -! JVS(38641) = Jac_FULL(5231,5048) - JVS(38641) = 0 -! JVS(38642) = Jac_FULL(5231,5049) - JVS(38642) = 0 -! JVS(38643) = Jac_FULL(5231,5050) - JVS(38643) = 0 -! JVS(38644) = Jac_FULL(5231,5051) - JVS(38644) = B(445) -! JVS(38645) = Jac_FULL(5231,5053) - JVS(38645) = 0 -! JVS(38646) = Jac_FULL(5231,5056) - JVS(38646) = 0 -! JVS(38647) = Jac_FULL(5231,5058) - JVS(38647) = 0 -! JVS(38648) = Jac_FULL(5231,5060) - JVS(38648) = 0 -! JVS(38649) = Jac_FULL(5231,5061) - JVS(38649) = 0 -! JVS(38650) = Jac_FULL(5231,5064) - JVS(38650) = 0 -! JVS(38651) = Jac_FULL(5231,5066) - JVS(38651) = 0 -! JVS(38652) = Jac_FULL(5231,5067) - JVS(38652) = B(4881) -! JVS(38653) = Jac_FULL(5231,5068) - JVS(38653) = 0 -! JVS(38654) = Jac_FULL(5231,5069) - JVS(38654) = 0 -! JVS(38655) = Jac_FULL(5231,5072) - JVS(38655) = 0 -! JVS(38656) = Jac_FULL(5231,5077) - JVS(38656) = 0 -! JVS(38657) = Jac_FULL(5231,5078) - JVS(38657) = 0 -! JVS(38658) = Jac_FULL(5231,5079) - JVS(38658) = 0 -! JVS(38659) = Jac_FULL(5231,5081) - JVS(38659) = 0 -! JVS(38660) = Jac_FULL(5231,5082) - JVS(38660) = 0 -! JVS(38661) = Jac_FULL(5231,5083) - JVS(38661) = B(14433) -! JVS(38662) = Jac_FULL(5231,5086) - JVS(38662) = 0 -! JVS(38663) = Jac_FULL(5231,5088) - JVS(38663) = 0 -! JVS(38664) = Jac_FULL(5231,5089) - JVS(38664) = 0 -! JVS(38665) = Jac_FULL(5231,5090) - JVS(38665) = 0 -! JVS(38666) = Jac_FULL(5231,5091) - JVS(38666) = B(13910) -! JVS(38667) = Jac_FULL(5231,5092) - JVS(38667) = 0 -! JVS(38668) = Jac_FULL(5231,5093) - JVS(38668) = B(6675)+B(6684) -! JVS(38669) = Jac_FULL(5231,5095) - JVS(38669) = B(19322) -! JVS(38670) = Jac_FULL(5231,5096) - JVS(38670) = 0 -! JVS(38671) = Jac_FULL(5231,5097) - JVS(38671) = 0 -! JVS(38672) = Jac_FULL(5231,5099) - JVS(38672) = 0 -! JVS(38673) = Jac_FULL(5231,5104) - JVS(38673) = 0 -! JVS(38674) = Jac_FULL(5231,5107) - JVS(38674) = 0 -! JVS(38675) = Jac_FULL(5231,5109) - JVS(38675) = 0 -! JVS(38676) = Jac_FULL(5231,5111) - JVS(38676) = 0 -! JVS(38677) = Jac_FULL(5231,5113) - JVS(38677) = 0 -! JVS(38678) = Jac_FULL(5231,5116) - JVS(38678) = 0 -! JVS(38679) = Jac_FULL(5231,5119) - JVS(38679) = 0 -! JVS(38680) = Jac_FULL(5231,5120) - JVS(38680) = 0 -! JVS(38681) = Jac_FULL(5231,5121) - JVS(38681) = 0 -! JVS(38682) = Jac_FULL(5231,5122) - JVS(38682) = 0 -! JVS(38683) = Jac_FULL(5231,5123) - JVS(38683) = 0 -! JVS(38684) = Jac_FULL(5231,5124) - JVS(38684) = B(425) -! JVS(38685) = Jac_FULL(5231,5126) - JVS(38685) = 0 -! JVS(38686) = Jac_FULL(5231,5127) - JVS(38686) = 0 -! JVS(38687) = Jac_FULL(5231,5128) - JVS(38687) = 0 -! JVS(38688) = Jac_FULL(5231,5129) - JVS(38688) = 0 -! JVS(38689) = Jac_FULL(5231,5130) - JVS(38689) = 0 -! JVS(38690) = Jac_FULL(5231,5132) - JVS(38690) = 0 -! JVS(38691) = Jac_FULL(5231,5133) - JVS(38691) = 0 -! JVS(38692) = Jac_FULL(5231,5135) - JVS(38692) = 0 -! JVS(38693) = Jac_FULL(5231,5136) - JVS(38693) = 0 -! JVS(38694) = Jac_FULL(5231,5137) - JVS(38694) = 0 -! JVS(38695) = Jac_FULL(5231,5138) - JVS(38695) = 0 -! JVS(38696) = Jac_FULL(5231,5140) - JVS(38696) = 0 -! JVS(38697) = Jac_FULL(5231,5141) - JVS(38697) = 0 -! JVS(38698) = Jac_FULL(5231,5143) - JVS(38698) = 0 -! JVS(38699) = Jac_FULL(5231,5144) - JVS(38699) = 0 -! JVS(38700) = Jac_FULL(5231,5146) - JVS(38700) = 0 -! JVS(38701) = Jac_FULL(5231,5147) - JVS(38701) = 0 -! JVS(38702) = Jac_FULL(5231,5148) - JVS(38702) = 0 -! JVS(38703) = Jac_FULL(5231,5149) - JVS(38703) = 0 -! JVS(38704) = Jac_FULL(5231,5150) - JVS(38704) = 0 -! JVS(38705) = Jac_FULL(5231,5151) - JVS(38705) = 0 -! JVS(38706) = Jac_FULL(5231,5152) - JVS(38706) = B(8425)+B(8431)+B(8435)+B(8437) -! JVS(38707) = Jac_FULL(5231,5153) - JVS(38707) = B(769) -! JVS(38708) = Jac_FULL(5231,5154) - JVS(38708) = 0 -! JVS(38709) = Jac_FULL(5231,5155) - JVS(38709) = 0 -! JVS(38710) = Jac_FULL(5231,5157) - JVS(38710) = 0 -! JVS(38711) = Jac_FULL(5231,5159) - JVS(38711) = 0 -! JVS(38712) = Jac_FULL(5231,5161) - JVS(38712) = 0 -! JVS(38713) = Jac_FULL(5231,5162) - JVS(38713) = 0 -! JVS(38714) = Jac_FULL(5231,5163) - JVS(38714) = 0 -! JVS(38715) = Jac_FULL(5231,5165) - JVS(38715) = 0 -! JVS(38716) = Jac_FULL(5231,5166) - JVS(38716) = B(783)+B(785) -! JVS(38717) = Jac_FULL(5231,5167) - JVS(38717) = 0 -! JVS(38718) = Jac_FULL(5231,5168) - JVS(38718) = 0 -! JVS(38719) = Jac_FULL(5231,5169) - JVS(38719) = B(11190) -! JVS(38720) = Jac_FULL(5231,5172) - JVS(38720) = 0 -! JVS(38721) = Jac_FULL(5231,5173) - JVS(38721) = 0 -! JVS(38722) = Jac_FULL(5231,5174) - JVS(38722) = 0 -! JVS(38723) = Jac_FULL(5231,5175) - JVS(38723) = 0 -! JVS(38724) = Jac_FULL(5231,5176) - JVS(38724) = 0 -! JVS(38725) = Jac_FULL(5231,5178) - JVS(38725) = 0 -! JVS(38726) = Jac_FULL(5231,5180) - JVS(38726) = 0 -! JVS(38727) = Jac_FULL(5231,5181) - JVS(38727) = 0 -! JVS(38728) = Jac_FULL(5231,5185) - JVS(38728) = 0 -! JVS(38729) = Jac_FULL(5231,5186) - JVS(38729) = 0 -! JVS(38730) = Jac_FULL(5231,5187) - JVS(38730) = B(22988) -! JVS(38731) = Jac_FULL(5231,5188) - JVS(38731) = B(1224) -! JVS(38732) = Jac_FULL(5231,5189) - JVS(38732) = B(21954) -! JVS(38733) = Jac_FULL(5231,5190) - JVS(38733) = B(481) -! JVS(38734) = Jac_FULL(5231,5192) - JVS(38734) = 0 -! JVS(38735) = Jac_FULL(5231,5194) - JVS(38735) = B(223)+B(226) -! JVS(38736) = Jac_FULL(5231,5195) - JVS(38736) = 0 -! JVS(38737) = Jac_FULL(5231,5197) - JVS(38737) = 0 -! JVS(38738) = Jac_FULL(5231,5198) - JVS(38738) = 0 -! JVS(38739) = Jac_FULL(5231,5200) - JVS(38739) = B(435) -! JVS(38740) = Jac_FULL(5231,5202) - JVS(38740) = 0 -! JVS(38741) = Jac_FULL(5231,5203) - JVS(38741) = 0 -! JVS(38742) = Jac_FULL(5231,5204) - JVS(38742) = 0 -! JVS(38743) = Jac_FULL(5231,5205) - JVS(38743) = 0 -! JVS(38744) = Jac_FULL(5231,5206) - JVS(38744) = 0 -! JVS(38745) = Jac_FULL(5231,5207) - JVS(38745) = B(11392) -! JVS(38746) = Jac_FULL(5231,5208) - JVS(38746) = 0 -! JVS(38747) = Jac_FULL(5231,5209) - JVS(38747) = 0 -! JVS(38748) = Jac_FULL(5231,5212) - JVS(38748) = 0 -! JVS(38749) = Jac_FULL(5231,5213) - JVS(38749) = 0 -! JVS(38750) = Jac_FULL(5231,5215) - JVS(38750) = 0 -! JVS(38751) = Jac_FULL(5231,5217) - JVS(38751) = 0 -! JVS(38752) = Jac_FULL(5231,5218) - JVS(38752) = 0 -! JVS(38753) = Jac_FULL(5231,5219) - JVS(38753) = B(6798) -! JVS(38754) = Jac_FULL(5231,5220) - JVS(38754) = 0 -! JVS(38755) = Jac_FULL(5231,5221) - JVS(38755) = 0 -! JVS(38756) = Jac_FULL(5231,5223) - JVS(38756) = B(4051)+B(4053)+B(4055)+B(4057)+B(4059) -! JVS(38757) = Jac_FULL(5231,5224) - JVS(38757) = B(6826) -! JVS(38758) = Jac_FULL(5231,5226) - JVS(38758) = B(232) -! JVS(38759) = Jac_FULL(5231,5227) - JVS(38759) = B(3103)+B(3104) -! JVS(38760) = Jac_FULL(5231,5228) - JVS(38760) = B(1282)+B(1294) -! JVS(38761) = Jac_FULL(5231,5229) - JVS(38761) = 0 -! JVS(38762) = Jac_FULL(5231,5230) - JVS(38762) = 0 -! JVS(38763) = Jac_FULL(5231,5231) - JVS(38763) = -B(171)-B(172)-B(173)-B(175) -! JVS(38764) = Jac_FULL(5231,5232) - JVS(38764) = B(3982)+B(3988)+B(3992)+B(3994) -! JVS(38765) = Jac_FULL(5231,5233) - JVS(38765) = B(1484) -! JVS(38766) = Jac_FULL(5231,5234) - JVS(38766) = B(1221) -! JVS(38767) = Jac_FULL(5231,5235) - JVS(38767) = 0 -! JVS(38768) = Jac_FULL(5231,5236) - JVS(38768) = 0 -! JVS(38769) = Jac_FULL(5231,5237) - JVS(38769) = 0 -! JVS(38770) = Jac_FULL(5231,5238) - JVS(38770) = 0 -! JVS(38771) = Jac_FULL(5231,5239) - JVS(38771) = 0 -! JVS(38772) = Jac_FULL(5231,5240) - JVS(38772) = 0 -! JVS(38773) = Jac_FULL(5231,5241) - JVS(38773) = 0 -! JVS(38774) = Jac_FULL(5231,5242) - JVS(38774) = B(4137) -! JVS(38775) = Jac_FULL(5231,5243) - JVS(38775) = 0 -! JVS(38776) = Jac_FULL(5231,5244) - JVS(38776) = 0 -! JVS(38777) = Jac_FULL(5231,5245) - JVS(38777) = 0 -! JVS(38778) = Jac_FULL(5231,5246) - JVS(38778) = 0 -! JVS(38779) = Jac_FULL(5231,5247) - JVS(38779) = 0 -! JVS(38780) = Jac_FULL(5231,5248) - JVS(38780) = 0 -! JVS(38781) = Jac_FULL(5231,5249) - JVS(38781) = 0 -! JVS(38782) = Jac_FULL(5231,5250) - JVS(38782) = B(75)-B(176)+B(3716)+B(3980)+B(4085)+B(4088)+B(4223)+B(4402)+B(5848)+B(7325)+B(7470)+B(7473)+B(7584)& - &+B(7587)+B(7747)+B(7752)+B(10680)+B(11744)+B(11969)+B(12169)+B(12174)+B(12292)+B(13229)+B(13860)+B(14197)& - &+B(14552)+B(14627)+B(14630)+B(14632)+B(14635)+B(14638)+B(14658)+B(14661)+B(14664)+B(14712)+B(14715)& - &+B(14718)+B(15559)+B(16168)+B(16415)+B(17020)+B(17058)+B(17061)+B(17295)+B(17343)+B(17466)+B(17716)& - &+B(19026)+B(19304)+B(20523)+B(21254)+B(21267)+B(21926)+B(21939)+B(21942)+B(22965)+B(22978)+B(22981)& - &+B(23492)+B(23526)+B(23531)+B(23557)+B(23631)+B(23658)+B(23661) -! JVS(38783) = Jac_FULL(5231,5251) - JVS(38783) = B(4052) -! JVS(38784) = Jac_FULL(5231,5252) - JVS(38784) = B(1452)+B(3989)+B(4054)+B(8432)+B(18934)+B(23130)+B(23189) -! JVS(38785) = Jac_FULL(5231,5253) - JVS(38785) = B(4056) -! JVS(38786) = Jac_FULL(5231,5254) - JVS(38786) = B(4058) -! JVS(38787) = Jac_FULL(5231,5255) - JVS(38787) = B(1283)+B(1450)+B(3983)+B(8426)+B(18932)+B(23128)+B(23187) -! JVS(38788) = Jac_FULL(5231,5256) - JVS(38788) = -B(174)+B(1456)+B(3993)+B(8436)+B(18938)+B(23134)+B(23193) -! JVS(38789) = Jac_FULL(5231,5257) - JVS(38789) = B(7484) -! JVS(38790) = Jac_FULL(5231,5258) - JVS(38790) = B(164)+B(227)+B(233)+B(426)+B(436)+B(446)+B(472)+B(482)+B(518)+B(532)+B(556)+B(754)+B(770)+B(784)+B(786)& - &+B(885)+B(3105)+B(3140)+B(3151)+B(4277)+B(6676)+B(6836)+B(7485)+B(7502)+B(7508)+B(7530)+B(10552)+B(10621)& - &+B(11191)+B(11393)+B(14434)+B(16723)+B(19323)+B(21955)+B(22989) -! JVS(38791) = Jac_FULL(5232,494) - JVS(38791) = B(16473)+B(16475) -! JVS(38792) = Jac_FULL(5232,645) - JVS(38792) = B(20521) -! JVS(38793) = Jac_FULL(5232,656) - JVS(38793) = B(13581) -! JVS(38794) = Jac_FULL(5232,701) - JVS(38794) = B(18942) -! JVS(38795) = Jac_FULL(5232,1433) - JVS(38795) = B(20522) -! JVS(38796) = Jac_FULL(5232,1582) - JVS(38796) = B(3968) -! JVS(38797) = Jac_FULL(5232,1655) - JVS(38797) = B(14043) -! JVS(38798) = Jac_FULL(5232,1670) - JVS(38798) = B(12304) -! JVS(38799) = Jac_FULL(5232,1678) - JVS(38799) = B(23883) -! JVS(38800) = Jac_FULL(5232,1684) - JVS(38800) = B(16484) -! JVS(38801) = Jac_FULL(5232,1934) - JVS(38801) = B(21766) -! JVS(38802) = Jac_FULL(5232,2043) - JVS(38802) = 2*B(13584) -! JVS(38803) = Jac_FULL(5232,2230) - JVS(38803) = 2*B(16715) -! JVS(38804) = Jac_FULL(5232,2258) - JVS(38804) = B(10377)+B(10378) -! JVS(38805) = Jac_FULL(5232,2289) - JVS(38805) = 0 -! JVS(38806) = Jac_FULL(5232,2412) - JVS(38806) = B(7748) -! JVS(38807) = Jac_FULL(5232,2607) - JVS(38807) = B(23926) -! JVS(38808) = Jac_FULL(5232,2695) - JVS(38808) = B(13579) -! JVS(38809) = Jac_FULL(5232,2711) - JVS(38809) = B(13489) -! JVS(38810) = Jac_FULL(5232,2724) - JVS(38810) = B(22139) -! JVS(38811) = Jac_FULL(5232,3047) - JVS(38811) = B(7753) -! JVS(38812) = Jac_FULL(5232,3231) - JVS(38812) = B(12230) -! JVS(38813) = Jac_FULL(5232,3250) - JVS(38813) = B(18739) -! JVS(38814) = Jac_FULL(5232,3276) - JVS(38814) = B(20528) -! JVS(38815) = Jac_FULL(5232,3350) - JVS(38815) = B(16476)+B(16478) -! JVS(38816) = Jac_FULL(5232,3501) - JVS(38816) = 0 -! JVS(38817) = Jac_FULL(5232,3542) - JVS(38817) = B(5132) -! JVS(38818) = Jac_FULL(5232,3550) - JVS(38818) = B(16671) -! JVS(38819) = Jac_FULL(5232,3561) - JVS(38819) = B(4958) -! JVS(38820) = Jac_FULL(5232,3608) - JVS(38820) = B(13576) -! JVS(38821) = Jac_FULL(5232,3621) - JVS(38821) = 0 -! JVS(38822) = Jac_FULL(5232,3628) - JVS(38822) = 0 -! JVS(38823) = Jac_FULL(5232,3635) - JVS(38823) = B(16589) -! JVS(38824) = Jac_FULL(5232,3682) - JVS(38824) = B(14023) -! JVS(38825) = Jac_FULL(5232,3716) - JVS(38825) = B(3854) -! JVS(38826) = Jac_FULL(5232,3734) - JVS(38826) = B(10625) -! JVS(38827) = Jac_FULL(5232,3759) - JVS(38827) = B(12305) -! JVS(38828) = Jac_FULL(5232,3780) - JVS(38828) = B(17656) -! JVS(38829) = Jac_FULL(5232,3835) - JVS(38829) = 0 -! JVS(38830) = Jac_FULL(5232,3864) - JVS(38830) = 0 -! JVS(38831) = Jac_FULL(5232,4104) - JVS(38831) = B(21727) -! JVS(38832) = Jac_FULL(5232,4109) - JVS(38832) = B(10709) -! JVS(38833) = Jac_FULL(5232,4136) - JVS(38833) = 0 -! JVS(38834) = Jac_FULL(5232,4321) - JVS(38834) = 0 -! JVS(38835) = Jac_FULL(5232,4341) - JVS(38835) = 0 -! JVS(38836) = Jac_FULL(5232,4362) - JVS(38836) = B(23572) -! JVS(38837) = Jac_FULL(5232,4366) - JVS(38837) = B(20548) -! JVS(38838) = Jac_FULL(5232,4465) - JVS(38838) = 0 -! JVS(38839) = Jac_FULL(5232,4510) - JVS(38839) = 0 -! JVS(38840) = Jac_FULL(5232,4520) - JVS(38840) = 0 -! JVS(38841) = Jac_FULL(5232,4562) - JVS(38841) = 0 -! JVS(38842) = Jac_FULL(5232,4565) - JVS(38842) = 0 -! JVS(38843) = Jac_FULL(5232,4578) - JVS(38843) = 0 -! JVS(38844) = Jac_FULL(5232,4580) - JVS(38844) = 0 -! JVS(38845) = Jac_FULL(5232,4582) - JVS(38845) = 0 -! JVS(38846) = Jac_FULL(5232,4589) - JVS(38846) = 0 -! JVS(38847) = Jac_FULL(5232,4597) - JVS(38847) = 0 -! JVS(38848) = Jac_FULL(5232,4598) - JVS(38848) = 0 -! JVS(38849) = Jac_FULL(5232,4599) - JVS(38849) = 0 -! JVS(38850) = Jac_FULL(5232,4644) - JVS(38850) = 0 -! JVS(38851) = Jac_FULL(5232,4697) - JVS(38851) = 0 -! JVS(38852) = Jac_FULL(5232,4698) - JVS(38852) = 0 -! JVS(38853) = Jac_FULL(5232,4704) - JVS(38853) = 0 -! JVS(38854) = Jac_FULL(5232,4730) - JVS(38854) = 0 -! JVS(38855) = Jac_FULL(5232,4734) - JVS(38855) = 0 -! JVS(38856) = Jac_FULL(5232,4735) - JVS(38856) = 0 -! JVS(38857) = Jac_FULL(5232,4776) - JVS(38857) = 0 -! JVS(38858) = Jac_FULL(5232,4778) - JVS(38858) = 0 -! JVS(38859) = Jac_FULL(5232,4814) - JVS(38859) = 0 -! JVS(38860) = Jac_FULL(5232,4816) - JVS(38860) = B(18931)+B(18933)+B(18937)+B(18940) -! JVS(38861) = Jac_FULL(5232,4856) - JVS(38861) = 0 -! JVS(38862) = Jac_FULL(5232,4879) - JVS(38862) = 0 -! JVS(38863) = Jac_FULL(5232,4881) - JVS(38863) = 0 -! JVS(38864) = Jac_FULL(5232,4885) - JVS(38864) = 0 -! JVS(38865) = Jac_FULL(5232,4889) - JVS(38865) = 0 -! JVS(38866) = Jac_FULL(5232,4898) - JVS(38866) = 0 -! JVS(38867) = Jac_FULL(5232,4955) - JVS(38867) = 0 -! JVS(38868) = Jac_FULL(5232,4972) - JVS(38868) = 0 -! JVS(38869) = Jac_FULL(5232,5015) - JVS(38869) = 0 -! JVS(38870) = Jac_FULL(5232,5019) - JVS(38870) = 0 -! JVS(38871) = Jac_FULL(5232,5023) - JVS(38871) = B(4236)+B(4237)+B(4239) -! JVS(38872) = Jac_FULL(5232,5024) - JVS(38872) = 0 -! JVS(38873) = Jac_FULL(5232,5032) - JVS(38873) = 0 -! JVS(38874) = Jac_FULL(5232,5043) - JVS(38874) = 0 -! JVS(38875) = Jac_FULL(5232,5049) - JVS(38875) = 0 -! JVS(38876) = Jac_FULL(5232,5061) - JVS(38876) = 0 -! JVS(38877) = Jac_FULL(5232,5064) - JVS(38877) = 0 -! JVS(38878) = Jac_FULL(5232,5074) - JVS(38878) = 0 -! JVS(38879) = Jac_FULL(5232,5080) - JVS(38879) = B(10471) -! JVS(38880) = Jac_FULL(5232,5091) - JVS(38880) = 0 -! JVS(38881) = Jac_FULL(5232,5093) - JVS(38881) = B(6684) -! JVS(38882) = Jac_FULL(5232,5096) - JVS(38882) = 0 -! JVS(38883) = Jac_FULL(5232,5113) - JVS(38883) = B(22950) -! JVS(38884) = Jac_FULL(5232,5114) - JVS(38884) = 0 -! JVS(38885) = Jac_FULL(5232,5120) - JVS(38885) = 0 -! JVS(38886) = Jac_FULL(5232,5127) - JVS(38886) = 0 -! JVS(38887) = Jac_FULL(5232,5130) - JVS(38887) = 0 -! JVS(38888) = Jac_FULL(5232,5132) - JVS(38888) = 0 -! JVS(38889) = Jac_FULL(5232,5134) - JVS(38889) = 0 -! JVS(38890) = Jac_FULL(5232,5135) - JVS(38890) = 0 -! JVS(38891) = Jac_FULL(5232,5140) - JVS(38891) = 0 -! JVS(38892) = Jac_FULL(5232,5144) - JVS(38892) = 0 -! JVS(38893) = Jac_FULL(5232,5146) - JVS(38893) = 0 -! JVS(38894) = Jac_FULL(5232,5148) - JVS(38894) = 0 -! JVS(38895) = Jac_FULL(5232,5151) - JVS(38895) = 0 -! JVS(38896) = Jac_FULL(5232,5153) - JVS(38896) = 0 -! JVS(38897) = Jac_FULL(5232,5154) - JVS(38897) = 0 -! JVS(38898) = Jac_FULL(5232,5159) - JVS(38898) = 0 -! JVS(38899) = Jac_FULL(5232,5163) - JVS(38899) = 0 -! JVS(38900) = Jac_FULL(5232,5166) - JVS(38900) = 0 -! JVS(38901) = Jac_FULL(5232,5168) - JVS(38901) = 0 -! JVS(38902) = Jac_FULL(5232,5174) - JVS(38902) = 0 -! JVS(38903) = Jac_FULL(5232,5177) - JVS(38903) = 0 -! JVS(38904) = Jac_FULL(5232,5181) - JVS(38904) = 0 -! JVS(38905) = Jac_FULL(5232,5186) - JVS(38905) = 0 -! JVS(38906) = Jac_FULL(5232,5189) - JVS(38906) = 0 -! JVS(38907) = Jac_FULL(5232,5190) - JVS(38907) = 0 -! JVS(38908) = Jac_FULL(5232,5192) - JVS(38908) = 0 -! JVS(38909) = Jac_FULL(5232,5194) - JVS(38909) = 0 -! JVS(38910) = Jac_FULL(5232,5196) - JVS(38910) = 0 -! JVS(38911) = Jac_FULL(5232,5197) - JVS(38911) = 0 -! JVS(38912) = Jac_FULL(5232,5198) - JVS(38912) = 0 -! JVS(38913) = Jac_FULL(5232,5204) - JVS(38913) = 0 -! JVS(38914) = Jac_FULL(5232,5206) - JVS(38914) = 0 -! JVS(38915) = Jac_FULL(5232,5213) - JVS(38915) = 0 -! JVS(38916) = Jac_FULL(5232,5217) - JVS(38916) = 0 -! JVS(38917) = Jac_FULL(5232,5218) - JVS(38917) = 0 -! JVS(38918) = Jac_FULL(5232,5219) - JVS(38918) = 0 -! JVS(38919) = Jac_FULL(5232,5220) - JVS(38919) = 0 -! JVS(38920) = Jac_FULL(5232,5224) - JVS(38920) = 0 -! JVS(38921) = Jac_FULL(5232,5225) - JVS(38921) = 0 -! JVS(38922) = Jac_FULL(5232,5227) - JVS(38922) = 0 -! JVS(38923) = Jac_FULL(5232,5232) - JVS(38923) = -B(3982)-B(3984)-B(3986)-B(3988)-B(3990)-B(3992)-B(3994)-B(3995) -! JVS(38924) = Jac_FULL(5232,5234) - JVS(38924) = B(1215)+B(1219) -! JVS(38925) = Jac_FULL(5232,5236) - JVS(38925) = 0 -! JVS(38926) = Jac_FULL(5232,5238) - JVS(38926) = 0 -! JVS(38927) = Jac_FULL(5232,5240) - JVS(38927) = 0 -! JVS(38928) = Jac_FULL(5232,5246) - JVS(38928) = 0 -! JVS(38929) = Jac_FULL(5232,5247) - JVS(38929) = 0 -! JVS(38930) = Jac_FULL(5232,5248) - JVS(38930) = 0 -! JVS(38931) = Jac_FULL(5232,5249) - JVS(38931) = 0 -! JVS(38932) = Jac_FULL(5232,5250) - JVS(38932) = B(1220)+B(4240)+B(7749)+B(16474)+B(16477)+B(20523) -! JVS(38933) = Jac_FULL(5232,5251) - JVS(38933) = 0 -! JVS(38934) = Jac_FULL(5232,5252) - JVS(38934) = -B(3989)+B(18934) -! JVS(38935) = Jac_FULL(5232,5253) - JVS(38935) = -B(3991) -! JVS(38936) = Jac_FULL(5232,5254) - JVS(38936) = 0 -! JVS(38937) = Jac_FULL(5232,5255) - JVS(38937) = -B(3983)-B(3985)-B(3987)+B(18932) -! JVS(38938) = Jac_FULL(5232,5256) - JVS(38938) = B(1216)-B(3993)+B(4238)+B(18938) -! JVS(38939) = Jac_FULL(5232,5257) - JVS(38939) = 0 -! JVS(38940) = Jac_FULL(5232,5258) - JVS(38940) = 0 -! JVS(38941) = Jac_FULL(5233,29) - JVS(38941) = B(13684) -! JVS(38942) = Jac_FULL(5233,198) - JVS(38942) = B(591) -! JVS(38943) = Jac_FULL(5233,808) - JVS(38943) = 2*B(12390) -! JVS(38944) = Jac_FULL(5233,819) - JVS(38944) = B(13662) -! JVS(38945) = Jac_FULL(5233,1011) - JVS(38945) = B(4345) -! JVS(38946) = Jac_FULL(5233,1013) - JVS(38946) = B(4252) -! JVS(38947) = Jac_FULL(5233,1246) - JVS(38947) = B(13770) -! JVS(38948) = Jac_FULL(5233,1558) - JVS(38948) = B(13691) -! JVS(38949) = Jac_FULL(5233,1579) - JVS(38949) = B(22444) -! JVS(38950) = Jac_FULL(5233,1603) - JVS(38950) = B(18780) -! JVS(38951) = Jac_FULL(5233,1625) - JVS(38951) = B(18777) -! JVS(38952) = Jac_FULL(5233,1626) - JVS(38952) = B(13550) -! JVS(38953) = Jac_FULL(5233,1848) - JVS(38953) = B(16625) -! JVS(38954) = Jac_FULL(5233,1892) - JVS(38954) = B(21615) -! JVS(38955) = Jac_FULL(5233,1960) - JVS(38955) = B(15892) -! JVS(38956) = Jac_FULL(5233,1967) - JVS(38956) = B(16612) -! JVS(38957) = Jac_FULL(5233,2081) - JVS(38957) = B(10412) -! JVS(38958) = Jac_FULL(5233,2085) - JVS(38958) = B(18773) -! JVS(38959) = Jac_FULL(5233,2112) - JVS(38959) = B(13517) -! JVS(38960) = Jac_FULL(5233,2376) - JVS(38960) = B(12380) -! JVS(38961) = Jac_FULL(5233,2382) - JVS(38961) = B(18776) -! JVS(38962) = Jac_FULL(5233,2410) - JVS(38962) = B(11635) -! JVS(38963) = Jac_FULL(5233,2468) - JVS(38963) = B(8761) -! JVS(38964) = Jac_FULL(5233,2472) - JVS(38964) = B(13043) -! JVS(38965) = Jac_FULL(5233,2474) - JVS(38965) = B(12949) -! JVS(38966) = Jac_FULL(5233,2491) - JVS(38966) = B(18832) -! JVS(38967) = Jac_FULL(5233,2492) - JVS(38967) = B(15987) -! JVS(38968) = Jac_FULL(5233,2493) - JVS(38968) = B(9384) -! JVS(38969) = Jac_FULL(5233,2506) - JVS(38969) = B(8785) -! JVS(38970) = Jac_FULL(5233,2511) - JVS(38970) = B(11636) -! JVS(38971) = Jac_FULL(5233,2514) - JVS(38971) = B(17685) -! JVS(38972) = Jac_FULL(5233,2545) - JVS(38972) = B(13637) -! JVS(38973) = Jac_FULL(5233,2592) - JVS(38973) = B(15561) -! JVS(38974) = Jac_FULL(5233,2609) - JVS(38974) = B(12379) -! JVS(38975) = Jac_FULL(5233,2627) - JVS(38975) = 0 -! JVS(38976) = Jac_FULL(5233,2659) - JVS(38976) = B(15626) -! JVS(38977) = Jac_FULL(5233,2734) - JVS(38977) = B(4330) -! JVS(38978) = Jac_FULL(5233,2752) - JVS(38978) = B(15570) -! JVS(38979) = Jac_FULL(5233,2795) - JVS(38979) = B(4362) -! JVS(38980) = Jac_FULL(5233,2798) - JVS(38980) = B(8758) -! JVS(38981) = Jac_FULL(5233,2799) - JVS(38981) = B(8756) -! JVS(38982) = Jac_FULL(5233,2804) - JVS(38982) = B(19051) -! JVS(38983) = Jac_FULL(5233,2806) - JVS(38983) = B(8991) -! JVS(38984) = Jac_FULL(5233,2816) - JVS(38984) = B(13549) -! JVS(38985) = Jac_FULL(5233,2924) - JVS(38985) = B(12364) -! JVS(38986) = Jac_FULL(5233,2927) - JVS(38986) = B(12992) -! JVS(38987) = Jac_FULL(5233,2936) - JVS(38987) = B(12894) -! JVS(38988) = Jac_FULL(5233,2949) - JVS(38988) = B(16089) -! JVS(38989) = Jac_FULL(5233,2994) - JVS(38989) = B(9621) -! JVS(38990) = Jac_FULL(5233,3027) - JVS(38990) = B(9517) -! JVS(38991) = Jac_FULL(5233,3050) - JVS(38991) = B(9286) -! JVS(38992) = Jac_FULL(5233,3064) - JVS(38992) = B(16560) -! JVS(38993) = Jac_FULL(5233,3080) - JVS(38993) = B(13883) -! JVS(38994) = Jac_FULL(5233,3089) - JVS(38994) = B(5712)+B(5714) -! JVS(38995) = Jac_FULL(5233,3121) - JVS(38995) = B(5212)+B(5214) -! JVS(38996) = Jac_FULL(5233,3122) - JVS(38996) = B(5891)+B(5893) -! JVS(38997) = Jac_FULL(5233,3154) - JVS(38997) = B(16483) -! JVS(38998) = Jac_FULL(5233,3174) - JVS(38998) = B(5803)+B(5805) -! JVS(38999) = Jac_FULL(5233,3195) - JVS(38999) = B(9639) -! JVS(39000) = Jac_FULL(5233,3211) - JVS(39000) = B(21554) -! JVS(39001) = Jac_FULL(5233,3217) - JVS(39001) = 0 -! JVS(39002) = Jac_FULL(5233,3230) - JVS(39002) = B(12800) -! JVS(39003) = Jac_FULL(5233,3253) - JVS(39003) = 0 -! JVS(39004) = Jac_FULL(5233,3261) - JVS(39004) = 0 -! JVS(39005) = Jac_FULL(5233,3273) - JVS(39005) = 0 -! JVS(39006) = Jac_FULL(5233,3285) - JVS(39006) = B(8721) -! JVS(39007) = Jac_FULL(5233,3286) - JVS(39007) = B(16607) -! JVS(39008) = Jac_FULL(5233,3290) - JVS(39008) = B(15558) -! JVS(39009) = Jac_FULL(5233,3319) - JVS(39009) = 0 -! JVS(39010) = Jac_FULL(5233,3321) - JVS(39010) = 0 -! JVS(39011) = Jac_FULL(5233,3342) - JVS(39011) = B(5208)+B(5209) -! JVS(39012) = Jac_FULL(5233,3372) - JVS(39012) = B(5342)+B(5344) -! JVS(39013) = Jac_FULL(5233,3387) - JVS(39013) = B(14917) -! JVS(39014) = Jac_FULL(5233,3401) - JVS(39014) = B(14924) -! JVS(39015) = Jac_FULL(5233,3416) - JVS(39015) = B(8724) -! JVS(39016) = Jac_FULL(5233,3443) - JVS(39016) = B(16559) -! JVS(39017) = Jac_FULL(5233,3446) - JVS(39017) = 0 -! JVS(39018) = Jac_FULL(5233,3449) - JVS(39018) = 0 -! JVS(39019) = Jac_FULL(5233,3453) - JVS(39019) = 0 -! JVS(39020) = Jac_FULL(5233,3459) - JVS(39020) = 0 -! JVS(39021) = Jac_FULL(5233,3477) - JVS(39021) = B(21584) -! JVS(39022) = Jac_FULL(5233,3515) - JVS(39022) = B(14922) -! JVS(39023) = Jac_FULL(5233,3524) - JVS(39023) = B(13769) -! JVS(39024) = Jac_FULL(5233,3533) - JVS(39024) = B(7657) -! JVS(39025) = Jac_FULL(5233,3563) - JVS(39025) = B(21587) -! JVS(39026) = Jac_FULL(5233,3566) - JVS(39026) = B(7961) -! JVS(39027) = Jac_FULL(5233,3573) - JVS(39027) = B(8970) -! JVS(39028) = Jac_FULL(5233,3576) - JVS(39028) = B(8723) -! JVS(39029) = Jac_FULL(5233,3606) - JVS(39029) = B(9944) -! JVS(39030) = Jac_FULL(5233,3625) - JVS(39030) = 0 -! JVS(39031) = Jac_FULL(5233,3627) - JVS(39031) = 0 -! JVS(39032) = Jac_FULL(5233,3654) - JVS(39032) = B(4340) -! JVS(39033) = Jac_FULL(5233,3660) - JVS(39033) = 0 -! JVS(39034) = Jac_FULL(5233,3663) - JVS(39034) = 0 -! JVS(39035) = Jac_FULL(5233,3666) - JVS(39035) = B(9964) -! JVS(39036) = Jac_FULL(5233,3684) - JVS(39036) = 0 -! JVS(39037) = Jac_FULL(5233,3693) - JVS(39037) = 0 -! JVS(39038) = Jac_FULL(5233,3701) - JVS(39038) = 0 -! JVS(39039) = Jac_FULL(5233,3712) - JVS(39039) = B(12362) -! JVS(39040) = Jac_FULL(5233,3754) - JVS(39040) = B(5596) -! JVS(39041) = Jac_FULL(5233,3794) - JVS(39041) = 0 -! JVS(39042) = Jac_FULL(5233,3795) - JVS(39042) = B(5883)+B(5884) -! JVS(39043) = Jac_FULL(5233,3799) - JVS(39043) = 0 -! JVS(39044) = Jac_FULL(5233,3801) - JVS(39044) = 0 -! JVS(39045) = Jac_FULL(5233,3802) - JVS(39045) = B(6355) -! JVS(39046) = Jac_FULL(5233,3804) - JVS(39046) = 0 -! JVS(39047) = Jac_FULL(5233,3805) - JVS(39047) = B(5795)+B(5797) -! JVS(39048) = Jac_FULL(5233,3811) - JVS(39048) = 0 -! JVS(39049) = Jac_FULL(5233,3812) - JVS(39049) = B(5704)+B(5705) -! JVS(39050) = Jac_FULL(5233,3813) - JVS(39050) = 0 -! JVS(39051) = Jac_FULL(5233,3815) - JVS(39051) = 0 -! JVS(39052) = Jac_FULL(5233,3820) - JVS(39052) = 0 -! JVS(39053) = Jac_FULL(5233,3823) - JVS(39053) = 0 -! JVS(39054) = Jac_FULL(5233,3824) - JVS(39054) = B(5332)+B(5333)+B(5334) -! JVS(39055) = Jac_FULL(5233,3827) - JVS(39055) = 0 -! JVS(39056) = Jac_FULL(5233,3831) - JVS(39056) = 0 -! JVS(39057) = Jac_FULL(5233,3835) - JVS(39057) = 0 -! JVS(39058) = Jac_FULL(5233,3903) - JVS(39058) = 0 -! JVS(39059) = Jac_FULL(5233,3913) - JVS(39059) = B(22416) -! JVS(39060) = Jac_FULL(5233,3933) - JVS(39060) = B(13642) -! JVS(39061) = Jac_FULL(5233,3939) - JVS(39061) = 0 -! JVS(39062) = Jac_FULL(5233,3965) - JVS(39062) = B(13156) -! JVS(39063) = Jac_FULL(5233,4004) - JVS(39063) = B(5497)+B(5498) -! JVS(39064) = Jac_FULL(5233,4024) - JVS(39064) = B(15552) -! JVS(39065) = Jac_FULL(5233,4045) - JVS(39065) = B(9278) -! JVS(39066) = Jac_FULL(5233,4066) - JVS(39066) = 0 -! JVS(39067) = Jac_FULL(5233,4123) - JVS(39067) = 0 -! JVS(39068) = Jac_FULL(5233,4141) - JVS(39068) = 0 -! JVS(39069) = Jac_FULL(5233,4142) - JVS(39069) = 0 -! JVS(39070) = Jac_FULL(5233,4152) - JVS(39070) = B(9982) -! JVS(39071) = Jac_FULL(5233,4156) - JVS(39071) = 0 -! JVS(39072) = Jac_FULL(5233,4159) - JVS(39072) = 0 -! JVS(39073) = Jac_FULL(5233,4165) - JVS(39073) = 0 -! JVS(39074) = Jac_FULL(5233,4180) - JVS(39074) = 0 -! JVS(39075) = Jac_FULL(5233,4256) - JVS(39075) = B(13880) -! JVS(39076) = Jac_FULL(5233,4326) - JVS(39076) = B(9009) -! JVS(39077) = Jac_FULL(5233,4339) - JVS(39077) = 0 -! JVS(39078) = Jac_FULL(5233,4347) - JVS(39078) = 0 -! JVS(39079) = Jac_FULL(5233,4350) - JVS(39079) = 0 -! JVS(39080) = Jac_FULL(5233,4357) - JVS(39080) = 0 -! JVS(39081) = Jac_FULL(5233,4358) - JVS(39081) = 0 -! JVS(39082) = Jac_FULL(5233,4378) - JVS(39082) = 0 -! JVS(39083) = Jac_FULL(5233,4388) - JVS(39083) = 0 -! JVS(39084) = Jac_FULL(5233,4393) - JVS(39084) = 0 -! JVS(39085) = Jac_FULL(5233,4397) - JVS(39085) = 0 -! JVS(39086) = Jac_FULL(5233,4398) - JVS(39086) = 0 -! JVS(39087) = Jac_FULL(5233,4399) - JVS(39087) = 0 -! JVS(39088) = Jac_FULL(5233,4420) - JVS(39088) = B(4091) -! JVS(39089) = Jac_FULL(5233,4488) - JVS(39089) = B(8777) -! JVS(39090) = Jac_FULL(5233,4529) - JVS(39090) = 0 -! JVS(39091) = Jac_FULL(5233,4575) - JVS(39091) = 0 -! JVS(39092) = Jac_FULL(5233,4603) - JVS(39092) = B(8770) -! JVS(39093) = Jac_FULL(5233,4617) - JVS(39093) = 0 -! JVS(39094) = Jac_FULL(5233,4619) - JVS(39094) = B(9402) -! JVS(39095) = Jac_FULL(5233,4695) - JVS(39095) = 0 -! JVS(39096) = Jac_FULL(5233,4707) - JVS(39096) = 0 -! JVS(39097) = Jac_FULL(5233,4708) - JVS(39097) = B(4245) -! JVS(39098) = Jac_FULL(5233,4720) - JVS(39098) = 0 -! JVS(39099) = Jac_FULL(5233,4728) - JVS(39099) = B(12851) -! JVS(39100) = Jac_FULL(5233,4732) - JVS(39100) = 0 -! JVS(39101) = Jac_FULL(5233,4743) - JVS(39101) = B(9509) -! JVS(39102) = Jac_FULL(5233,4758) - JVS(39102) = 0 -! JVS(39103) = Jac_FULL(5233,4775) - JVS(39103) = B(15992) -! JVS(39104) = Jac_FULL(5233,4789) - JVS(39104) = 0 -! JVS(39105) = Jac_FULL(5233,4795) - JVS(39105) = B(17472)+B(17474)+B(17478)+B(17481) -! JVS(39106) = Jac_FULL(5233,4805) - JVS(39106) = B(13679)+B(13683) -! JVS(39107) = Jac_FULL(5233,4815) - JVS(39107) = B(16095) -! JVS(39108) = Jac_FULL(5233,4823) - JVS(39108) = 0 -! JVS(39109) = Jac_FULL(5233,4826) - JVS(39109) = 0 -! JVS(39110) = Jac_FULL(5233,4835) - JVS(39110) = 0 -! JVS(39111) = Jac_FULL(5233,4840) - JVS(39111) = B(250) -! JVS(39112) = Jac_FULL(5233,4861) - JVS(39112) = 0 -! JVS(39113) = Jac_FULL(5233,4877) - JVS(39113) = 0 -! JVS(39114) = Jac_FULL(5233,4894) - JVS(39114) = 0 -! JVS(39115) = Jac_FULL(5233,4900) - JVS(39115) = 0 -! JVS(39116) = Jac_FULL(5233,4913) - JVS(39116) = 0 -! JVS(39117) = Jac_FULL(5233,4916) - JVS(39117) = 0 -! JVS(39118) = Jac_FULL(5233,4922) - JVS(39118) = 0 -! JVS(39119) = Jac_FULL(5233,4923) - JVS(39119) = 0 -! JVS(39120) = Jac_FULL(5233,4928) - JVS(39120) = 0 -! JVS(39121) = Jac_FULL(5233,4932) - JVS(39121) = 0 -! JVS(39122) = Jac_FULL(5233,4937) - JVS(39122) = B(5980)+B(5984) -! JVS(39123) = Jac_FULL(5233,4945) - JVS(39123) = 0 -! JVS(39124) = Jac_FULL(5233,4950) - JVS(39124) = B(5407)+B(5408) -! JVS(39125) = Jac_FULL(5233,4971) - JVS(39125) = 0 -! JVS(39126) = Jac_FULL(5233,4976) - JVS(39126) = 0 -! JVS(39127) = Jac_FULL(5233,4993) - JVS(39127) = 0 -! JVS(39128) = Jac_FULL(5233,5002) - JVS(39128) = B(10584) -! JVS(39129) = Jac_FULL(5233,5003) - JVS(39129) = 0 -! JVS(39130) = Jac_FULL(5233,5013) - JVS(39130) = 0 -! JVS(39131) = Jac_FULL(5233,5015) - JVS(39131) = 0 -! JVS(39132) = Jac_FULL(5233,5022) - JVS(39132) = 0 -! JVS(39133) = Jac_FULL(5233,5030) - JVS(39133) = B(6030) -! JVS(39134) = Jac_FULL(5233,5033) - JVS(39134) = 0 -! JVS(39135) = Jac_FULL(5233,5035) - JVS(39135) = 0 -! JVS(39136) = Jac_FULL(5233,5036) - JVS(39136) = 0 -! JVS(39137) = Jac_FULL(5233,5038) - JVS(39137) = B(7881)+B(7885)+B(7889)+B(7891) -! JVS(39138) = Jac_FULL(5233,5049) - JVS(39138) = B(6659) -! JVS(39139) = Jac_FULL(5233,5050) - JVS(39139) = B(6631) -! JVS(39140) = Jac_FULL(5233,5058) - JVS(39140) = B(5260) -! JVS(39141) = Jac_FULL(5233,5059) - JVS(39141) = 0 -! JVS(39142) = Jac_FULL(5233,5063) - JVS(39142) = 0 -! JVS(39143) = Jac_FULL(5233,5066) - JVS(39143) = B(9418) -! JVS(39144) = Jac_FULL(5233,5068) - JVS(39144) = B(9528)+B(9538) -! JVS(39145) = Jac_FULL(5233,5069) - JVS(39145) = B(6713) -! JVS(39146) = Jac_FULL(5233,5074) - JVS(39146) = 0 -! JVS(39147) = Jac_FULL(5233,5075) - JVS(39147) = 0 -! JVS(39148) = Jac_FULL(5233,5076) - JVS(39148) = B(8919) -! JVS(39149) = Jac_FULL(5233,5091) - JVS(39149) = 0 -! JVS(39150) = Jac_FULL(5233,5103) - JVS(39150) = 0 -! JVS(39151) = Jac_FULL(5233,5123) - JVS(39151) = B(8824) -! JVS(39152) = Jac_FULL(5233,5126) - JVS(39152) = B(9299) -! JVS(39153) = Jac_FULL(5233,5132) - JVS(39153) = 0 -! JVS(39154) = Jac_FULL(5233,5153) - JVS(39154) = 0 -! JVS(39155) = Jac_FULL(5233,5154) - JVS(39155) = 0 -! JVS(39156) = Jac_FULL(5233,5166) - JVS(39156) = 0 -! JVS(39157) = Jac_FULL(5233,5168) - JVS(39157) = 0 -! JVS(39158) = Jac_FULL(5233,5170) - JVS(39158) = B(4256)+B(4258)+B(4260)+B(4262)+B(4264) -! JVS(39159) = Jac_FULL(5233,5173) - JVS(39159) = 0 -! JVS(39160) = Jac_FULL(5233,5174) - JVS(39160) = 0 -! JVS(39161) = Jac_FULL(5233,5181) - JVS(39161) = 0 -! JVS(39162) = Jac_FULL(5233,5194) - JVS(39162) = B(224) -! JVS(39163) = Jac_FULL(5233,5204) - JVS(39163) = 0 -! JVS(39164) = Jac_FULL(5233,5205) - JVS(39164) = B(10531) -! JVS(39165) = Jac_FULL(5233,5209) - JVS(39165) = B(8809) -! JVS(39166) = Jac_FULL(5233,5214) - JVS(39166) = 0 -! JVS(39167) = Jac_FULL(5233,5215) - JVS(39167) = 0 -! JVS(39168) = Jac_FULL(5233,5217) - JVS(39168) = 0 -! JVS(39169) = Jac_FULL(5233,5218) - JVS(39169) = 0 -! JVS(39170) = Jac_FULL(5233,5219) - JVS(39170) = 0 -! JVS(39171) = Jac_FULL(5233,5220) - JVS(39171) = 0 -! JVS(39172) = Jac_FULL(5233,5224) - JVS(39172) = 0 -! JVS(39173) = Jac_FULL(5233,5225) - JVS(39173) = 0 -! JVS(39174) = Jac_FULL(5233,5226) - JVS(39174) = 0 -! JVS(39175) = Jac_FULL(5233,5227) - JVS(39175) = 0 -! JVS(39176) = Jac_FULL(5233,5233) - JVS(39176) = -B(1482)-B(1483)-B(1484)-B(1485)-B(1487) -! JVS(39177) = Jac_FULL(5233,5234) - JVS(39177) = B(1217) -! JVS(39178) = Jac_FULL(5233,5235) - JVS(39178) = B(1301) -! JVS(39179) = Jac_FULL(5233,5236) - JVS(39179) = 0 -! JVS(39180) = Jac_FULL(5233,5238) - JVS(39180) = 0 -! JVS(39181) = Jac_FULL(5233,5239) - JVS(39181) = 0 -! JVS(39182) = Jac_FULL(5233,5240) - JVS(39182) = 0 -! JVS(39183) = Jac_FULL(5233,5248) - JVS(39183) = 0 -! JVS(39184) = Jac_FULL(5233,5249) - JVS(39184) = 0 -! JVS(39185) = Jac_FULL(5233,5250) - JVS(39185) = B(592)+B(1218)-B(1488)+B(4092)+B(5213)+B(5343)+B(5713)+B(5804)+B(5892)+B(7658)+B(8725)+B(11637)+B(12365)& - &+B(12801)+B(12895)+B(12993)+B(14918)+B(14925)+B(15559)+B(17686)+B(19052) -! JVS(39186) = Jac_FULL(5233,5251) - JVS(39186) = B(4257) -! JVS(39187) = Jac_FULL(5233,5252) - JVS(39187) = B(4259)+B(7886)+B(17475) -! JVS(39188) = Jac_FULL(5233,5253) - JVS(39188) = B(4261) -! JVS(39189) = Jac_FULL(5233,5254) - JVS(39189) = B(4263) -! JVS(39190) = Jac_FULL(5233,5255) - JVS(39190) = B(7882)+B(17473) -! JVS(39191) = Jac_FULL(5233,5256) - JVS(39191) = -B(1486)+B(4341)+B(7890)+B(17479) -! JVS(39192) = Jac_FULL(5233,5257) - JVS(39192) = 0 -! JVS(39193) = Jac_FULL(5233,5258) - JVS(39193) = B(225)+B(251)+B(5261)+B(6632)+B(6660)+B(6714)+B(8810)+B(8825)+B(8920)+B(9300)+B(9419)+B(9529)+B(10532)& - &+B(10585)+B(13680) -! JVS(39194) = Jac_FULL(5234,249) - JVS(39194) = B(153) -! JVS(39195) = Jac_FULL(5234,533) - JVS(39195) = B(10470) -! JVS(39196) = Jac_FULL(5234,595) - JVS(39196) = B(13488) -! JVS(39197) = Jac_FULL(5234,603) - JVS(39197) = B(11624) -! JVS(39198) = Jac_FULL(5234,656) - JVS(39198) = B(13581) -! JVS(39199) = Jac_FULL(5234,1113) - JVS(39199) = B(11030) -! JVS(39200) = Jac_FULL(5234,1242) - JVS(39200) = B(16626) -! JVS(39201) = Jac_FULL(5234,1626) - JVS(39201) = B(13550) -! JVS(39202) = Jac_FULL(5234,1639) - JVS(39202) = B(22294)+B(22296) -! JVS(39203) = Jac_FULL(5234,1651) - JVS(39203) = B(18851) -! JVS(39204) = Jac_FULL(5234,1673) - JVS(39204) = 0 -! JVS(39205) = Jac_FULL(5234,1683) - JVS(39205) = B(13492) -! JVS(39206) = Jac_FULL(5234,1748) - JVS(39206) = B(16586) -! JVS(39207) = Jac_FULL(5234,1777) - JVS(39207) = 0 -! JVS(39208) = Jac_FULL(5234,1787) - JVS(39208) = B(21610) -! JVS(39209) = Jac_FULL(5234,1809) - JVS(39209) = B(3632) -! JVS(39210) = Jac_FULL(5234,1815) - JVS(39210) = B(4066) -! JVS(39211) = Jac_FULL(5234,1851) - JVS(39211) = B(13526) -! JVS(39212) = Jac_FULL(5234,1917) - JVS(39212) = B(13485) -! JVS(39213) = Jac_FULL(5234,1955) - JVS(39213) = B(16637) -! JVS(39214) = Jac_FULL(5234,2096) - JVS(39214) = B(3635) -! JVS(39215) = Jac_FULL(5234,2249) - JVS(39215) = B(16513) -! JVS(39216) = Jac_FULL(5234,2258) - JVS(39216) = B(10376) -! JVS(39217) = Jac_FULL(5234,2279) - JVS(39217) = B(22771) -! JVS(39218) = Jac_FULL(5234,2345) - JVS(39218) = B(21618) -! JVS(39219) = Jac_FULL(5234,2486) - JVS(39219) = B(21627) -! JVS(39220) = Jac_FULL(5234,2494) - JVS(39220) = B(13528) -! JVS(39221) = Jac_FULL(5234,2526) - JVS(39221) = B(4235) -! JVS(39222) = Jac_FULL(5234,2542) - JVS(39222) = B(3837) -! JVS(39223) = Jac_FULL(5234,2554) - JVS(39223) = B(16628) -! JVS(39224) = Jac_FULL(5234,2556) - JVS(39224) = B(22767) -! JVS(39225) = Jac_FULL(5234,2662) - JVS(39225) = B(16649) -! JVS(39226) = Jac_FULL(5234,2695) - JVS(39226) = B(13579) -! JVS(39227) = Jac_FULL(5234,2707) - JVS(39227) = B(3638) -! JVS(39228) = Jac_FULL(5234,2717) - JVS(39228) = B(13611) -! JVS(39229) = Jac_FULL(5234,2796) - JVS(39229) = B(13532) -! JVS(39230) = Jac_FULL(5234,2816) - JVS(39230) = B(13549) -! JVS(39231) = Jac_FULL(5234,2825) - JVS(39231) = B(11444) -! JVS(39232) = Jac_FULL(5234,2865) - JVS(39232) = B(17464) -! JVS(39233) = Jac_FULL(5234,2921) - JVS(39233) = B(11630) -! JVS(39234) = Jac_FULL(5234,3062) - JVS(39234) = B(23887) -! JVS(39235) = Jac_FULL(5234,3201) - JVS(39235) = 0 -! JVS(39236) = Jac_FULL(5234,3240) - JVS(39236) = 0 -! JVS(39237) = Jac_FULL(5234,3243) - JVS(39237) = 0 -! JVS(39238) = Jac_FULL(5234,3254) - JVS(39238) = B(4230) -! JVS(39239) = Jac_FULL(5234,3267) - JVS(39239) = 0 -! JVS(39240) = Jac_FULL(5234,3294) - JVS(39240) = B(4227) -! JVS(39241) = Jac_FULL(5234,3485) - JVS(39241) = 0 -! JVS(39242) = Jac_FULL(5234,3490) - JVS(39242) = B(20515) -! JVS(39243) = Jac_FULL(5234,3501) - JVS(39243) = B(16509) -! JVS(39244) = Jac_FULL(5234,3514) - JVS(39244) = 0 -! JVS(39245) = Jac_FULL(5234,3549) - JVS(39245) = B(16640) -! JVS(39246) = Jac_FULL(5234,3601) - JVS(39246) = B(21624) -! JVS(39247) = Jac_FULL(5234,3608) - JVS(39247) = B(13576) -! JVS(39248) = Jac_FULL(5234,3620) - JVS(39248) = 0 -! JVS(39249) = Jac_FULL(5234,3625) - JVS(39249) = 0 -! JVS(39250) = Jac_FULL(5234,3700) - JVS(39250) = B(16666) -! JVS(39251) = Jac_FULL(5234,3835) - JVS(39251) = B(13609) -! JVS(39252) = Jac_FULL(5234,3899) - JVS(39252) = 0 -! JVS(39253) = Jac_FULL(5234,4115) - JVS(39253) = 0 -! JVS(39254) = Jac_FULL(5234,4159) - JVS(39254) = 0 -! JVS(39255) = Jac_FULL(5234,4171) - JVS(39255) = 0 -! JVS(39256) = Jac_FULL(5234,4263) - JVS(39256) = 0 -! JVS(39257) = Jac_FULL(5234,4321) - JVS(39257) = 0 -! JVS(39258) = Jac_FULL(5234,4341) - JVS(39258) = 0 -! JVS(39259) = Jac_FULL(5234,4378) - JVS(39259) = B(16648) -! JVS(39260) = Jac_FULL(5234,4382) - JVS(39260) = B(1466) -! JVS(39261) = Jac_FULL(5234,4414) - JVS(39261) = B(10350)+B(10352)+B(10356)+B(10359) -! JVS(39262) = Jac_FULL(5234,4564) - JVS(39262) = B(10459) -! JVS(39263) = Jac_FULL(5234,4565) - JVS(39263) = 0 -! JVS(39264) = Jac_FULL(5234,4572) - JVS(39264) = 0 -! JVS(39265) = Jac_FULL(5234,4578) - JVS(39265) = 0 -! JVS(39266) = Jac_FULL(5234,4589) - JVS(39266) = 0 -! JVS(39267) = Jac_FULL(5234,4596) - JVS(39267) = 0 -! JVS(39268) = Jac_FULL(5234,4599) - JVS(39268) = 0 -! JVS(39269) = Jac_FULL(5234,4648) - JVS(39269) = 0 -! JVS(39270) = Jac_FULL(5234,4711) - JVS(39270) = 0 -! JVS(39271) = Jac_FULL(5234,4765) - JVS(39271) = 0 -! JVS(39272) = Jac_FULL(5234,4825) - JVS(39272) = 0 -! JVS(39273) = Jac_FULL(5234,4844) - JVS(39273) = 0 -! JVS(39274) = Jac_FULL(5234,4851) - JVS(39274) = B(13553) -! JVS(39275) = Jac_FULL(5234,4862) - JVS(39275) = 0 -! JVS(39276) = Jac_FULL(5234,4883) - JVS(39276) = 0 -! JVS(39277) = Jac_FULL(5234,4890) - JVS(39277) = 0 -! JVS(39278) = Jac_FULL(5234,4932) - JVS(39278) = 0 -! JVS(39279) = Jac_FULL(5234,4954) - JVS(39279) = 0 -! JVS(39280) = Jac_FULL(5234,4957) - JVS(39280) = 0 -! JVS(39281) = Jac_FULL(5234,4976) - JVS(39281) = B(10523) -! JVS(39282) = Jac_FULL(5234,4999) - JVS(39282) = B(13534)+B(13536)+B(13538)+B(13540)+B(13542) -! JVS(39283) = Jac_FULL(5234,5015) - JVS(39283) = 0 -! JVS(39284) = Jac_FULL(5234,5016) - JVS(39284) = 0 -! JVS(39285) = Jac_FULL(5234,5020) - JVS(39285) = 0 -! JVS(39286) = Jac_FULL(5234,5022) - JVS(39286) = 0 -! JVS(39287) = Jac_FULL(5234,5033) - JVS(39287) = B(13796)+B(13802)+B(13806)+B(13809) -! JVS(39288) = Jac_FULL(5234,5049) - JVS(39288) = B(6656)+B(6661) -! JVS(39289) = Jac_FULL(5234,5074) - JVS(39289) = 0 -! JVS(39290) = Jac_FULL(5234,5075) - JVS(39290) = 0 -! JVS(39291) = Jac_FULL(5234,5077) - JVS(39291) = 0 -! JVS(39292) = Jac_FULL(5234,5081) - JVS(39292) = 0 -! JVS(39293) = Jac_FULL(5234,5082) - JVS(39293) = 0 -! JVS(39294) = Jac_FULL(5234,5088) - JVS(39294) = 0 -! JVS(39295) = Jac_FULL(5234,5090) - JVS(39295) = 0 -! JVS(39296) = Jac_FULL(5234,5091) - JVS(39296) = 0 -! JVS(39297) = Jac_FULL(5234,5093) - JVS(39297) = 0 -! JVS(39298) = Jac_FULL(5234,5124) - JVS(39298) = 0 -! JVS(39299) = Jac_FULL(5234,5153) - JVS(39299) = 0 -! JVS(39300) = Jac_FULL(5234,5154) - JVS(39300) = 0 -! JVS(39301) = Jac_FULL(5234,5159) - JVS(39301) = 0 -! JVS(39302) = Jac_FULL(5234,5166) - JVS(39302) = 0 -! JVS(39303) = Jac_FULL(5234,5168) - JVS(39303) = B(6704) -! JVS(39304) = Jac_FULL(5234,5174) - JVS(39304) = 0 -! JVS(39305) = Jac_FULL(5234,5177) - JVS(39305) = 0 -! JVS(39306) = Jac_FULL(5234,5181) - JVS(39306) = 0 -! JVS(39307) = Jac_FULL(5234,5189) - JVS(39307) = 0 -! JVS(39308) = Jac_FULL(5234,5194) - JVS(39308) = 0 -! JVS(39309) = Jac_FULL(5234,5195) - JVS(39309) = B(931) -! JVS(39310) = Jac_FULL(5234,5196) - JVS(39310) = 0 -! JVS(39311) = Jac_FULL(5234,5204) - JVS(39311) = 0 -! JVS(39312) = Jac_FULL(5234,5206) - JVS(39312) = 0 -! JVS(39313) = Jac_FULL(5234,5207) - JVS(39313) = 0 -! JVS(39314) = Jac_FULL(5234,5208) - JVS(39314) = 0 -! JVS(39315) = Jac_FULL(5234,5213) - JVS(39315) = 0 -! JVS(39316) = Jac_FULL(5234,5217) - JVS(39316) = 0 -! JVS(39317) = Jac_FULL(5234,5218) - JVS(39317) = 0 -! JVS(39318) = Jac_FULL(5234,5219) - JVS(39318) = 0 -! JVS(39319) = Jac_FULL(5234,5220) - JVS(39319) = B(10594)+B(10598) -! JVS(39320) = Jac_FULL(5234,5224) - JVS(39320) = 0 -! JVS(39321) = Jac_FULL(5234,5225) - JVS(39321) = B(10466) -! JVS(39322) = Jac_FULL(5234,5227) - JVS(39322) = 0 -! JVS(39323) = Jac_FULL(5234,5229) - JVS(39323) = 0 -! JVS(39324) = Jac_FULL(5234,5230) - JVS(39324) = 0 -! JVS(39325) = Jac_FULL(5234,5234) - JVS(39325) = -B(1215)-B(1217)-B(1219)-B(1221) -! JVS(39326) = Jac_FULL(5234,5235) - JVS(39326) = B(1303) -! JVS(39327) = Jac_FULL(5234,5236) - JVS(39327) = 0 -! JVS(39328) = Jac_FULL(5234,5237) - JVS(39328) = 0 -! JVS(39329) = Jac_FULL(5234,5238) - JVS(39329) = 0 -! JVS(39330) = Jac_FULL(5234,5246) - JVS(39330) = 0 -! JVS(39331) = Jac_FULL(5234,5247) - JVS(39331) = 0 -! JVS(39332) = Jac_FULL(5234,5248) - JVS(39332) = 0 -! JVS(39333) = Jac_FULL(5234,5249) - JVS(39333) = 0 -! JVS(39334) = Jac_FULL(5234,5250) - JVS(39334) = B(154)-B(1218)-B(1220)+B(3633)+B(3636)+B(3838)+B(4228)+B(4231)+B(11031)+B(11445)+B(11631)+B(13527)& - &+B(13533)+B(13610)+B(16627)+B(22295) -! JVS(39335) = Jac_FULL(5234,5251) - JVS(39335) = B(13535) -! JVS(39336) = Jac_FULL(5234,5252) - JVS(39336) = B(10353)+B(13537)+B(13803) -! JVS(39337) = Jac_FULL(5234,5253) - JVS(39337) = B(13539) -! JVS(39338) = Jac_FULL(5234,5254) - JVS(39338) = B(13541) -! JVS(39339) = Jac_FULL(5234,5255) - JVS(39339) = B(10351)+B(13797) -! JVS(39340) = Jac_FULL(5234,5256) - JVS(39340) = -B(1216)+B(10357)+B(13807) -! JVS(39341) = Jac_FULL(5234,5257) - JVS(39341) = 0 -! JVS(39342) = Jac_FULL(5234,5258) - JVS(39342) = B(6662)+B(6705)+B(10599) -! JVS(39343) = Jac_FULL(5235,110) - JVS(39343) = B(18044) -! JVS(39344) = Jac_FULL(5235,759) - JVS(39344) = B(12345) -! JVS(39345) = Jac_FULL(5235,1319) - JVS(39345) = B(19047) -! JVS(39346) = Jac_FULL(5235,2399) - JVS(39346) = B(7661) -! JVS(39347) = Jac_FULL(5235,3247) - JVS(39347) = B(19044)+B(19045) -! JVS(39348) = Jac_FULL(5235,3383) - JVS(39348) = B(4131) -! JVS(39349) = Jac_FULL(5235,3533) - JVS(39349) = 0 -! JVS(39350) = Jac_FULL(5235,3540) - JVS(39350) = 0 -! JVS(39351) = Jac_FULL(5235,3586) - JVS(39351) = B(10665) -! JVS(39352) = Jac_FULL(5235,4337) - JVS(39352) = 0 -! JVS(39353) = Jac_FULL(5235,4420) - JVS(39353) = B(4093) -! JVS(39354) = Jac_FULL(5235,4651) - JVS(39354) = B(18037)+B(18039)+B(18041) -! JVS(39355) = Jac_FULL(5235,4705) - JVS(39355) = 0 -! JVS(39356) = Jac_FULL(5235,4717) - JVS(39356) = B(7181) -! JVS(39357) = Jac_FULL(5235,4758) - JVS(39357) = 0 -! JVS(39358) = Jac_FULL(5235,4794) - JVS(39358) = 0 -! JVS(39359) = Jac_FULL(5235,4828) - JVS(39359) = 0 -! JVS(39360) = Jac_FULL(5235,4951) - JVS(39360) = 0 -! JVS(39361) = Jac_FULL(5235,4976) - JVS(39361) = 0 -! JVS(39362) = Jac_FULL(5235,5039) - JVS(39362) = 0 -! JVS(39363) = Jac_FULL(5235,5058) - JVS(39363) = 0 -! JVS(39364) = Jac_FULL(5235,5092) - JVS(39364) = 0 -! JVS(39365) = Jac_FULL(5235,5099) - JVS(39365) = 0 -! JVS(39366) = Jac_FULL(5235,5113) - JVS(39366) = B(22950) -! JVS(39367) = Jac_FULL(5235,5166) - JVS(39367) = 0 -! JVS(39368) = Jac_FULL(5235,5181) - JVS(39368) = 0 -! JVS(39369) = Jac_FULL(5235,5182) - JVS(39369) = B(17413) -! JVS(39370) = Jac_FULL(5235,5186) - JVS(39370) = 0 -! JVS(39371) = Jac_FULL(5235,5193) - JVS(39371) = B(182) -! JVS(39372) = Jac_FULL(5235,5198) - JVS(39372) = 0 -! JVS(39373) = Jac_FULL(5235,5200) - JVS(39373) = 0 -! JVS(39374) = Jac_FULL(5235,5202) - JVS(39374) = 0 -! JVS(39375) = Jac_FULL(5235,5203) - JVS(39375) = 0 -! JVS(39376) = Jac_FULL(5235,5207) - JVS(39376) = 0 -! JVS(39377) = Jac_FULL(5235,5208) - JVS(39377) = 0 -! JVS(39378) = Jac_FULL(5235,5213) - JVS(39378) = 0 -! JVS(39379) = Jac_FULL(5235,5214) - JVS(39379) = B(16846)+B(16848)+B(16852)+B(16855) -! JVS(39380) = Jac_FULL(5235,5215) - JVS(39380) = 0 -! JVS(39381) = Jac_FULL(5235,5217) - JVS(39381) = 0 -! JVS(39382) = Jac_FULL(5235,5219) - JVS(39382) = 0 -! JVS(39383) = Jac_FULL(5235,5227) - JVS(39383) = 0 -! JVS(39384) = Jac_FULL(5235,5229) - JVS(39384) = 0 -! JVS(39385) = Jac_FULL(5235,5230) - JVS(39385) = 0 -! JVS(39386) = Jac_FULL(5235,5235) - JVS(39386) = -B(1295)-B(1297)-B(1299)-B(1301)-B(1302)-B(1303) -! JVS(39387) = Jac_FULL(5235,5236) - JVS(39387) = 0 -! JVS(39388) = Jac_FULL(5235,5238) - JVS(39388) = 0 -! JVS(39389) = Jac_FULL(5235,5239) - JVS(39389) = 0 -! JVS(39390) = Jac_FULL(5235,5240) - JVS(39390) = 0 -! JVS(39391) = Jac_FULL(5235,5248) - JVS(39391) = 0 -! JVS(39392) = Jac_FULL(5235,5249) - JVS(39392) = 0 -! JVS(39393) = Jac_FULL(5235,5250) - JVS(39393) = B(183)+B(4094)+B(18040)+B(18045)+B(19046) -! JVS(39394) = Jac_FULL(5235,5251) - JVS(39394) = 0 -! JVS(39395) = Jac_FULL(5235,5252) - JVS(39395) = -B(1298)+B(16849) -! JVS(39396) = Jac_FULL(5235,5253) - JVS(39396) = 0 -! JVS(39397) = Jac_FULL(5235,5254) - JVS(39397) = 0 -! JVS(39398) = Jac_FULL(5235,5255) - JVS(39398) = -B(1296)+B(16847) -! JVS(39399) = Jac_FULL(5235,5256) - JVS(39399) = -B(1300)+B(16853)+B(18038) -! JVS(39400) = Jac_FULL(5235,5257) - JVS(39400) = 0 -! JVS(39401) = Jac_FULL(5235,5258) - JVS(39401) = 0 -! JVS(39402) = Jac_FULL(5236,709) - JVS(39402) = B(11235) -! JVS(39403) = Jac_FULL(5236,719) - JVS(39403) = B(3531) -! JVS(39404) = Jac_FULL(5236,985) - JVS(39404) = B(14504) -! JVS(39405) = Jac_FULL(5236,4605) - JVS(39405) = 0 -! JVS(39406) = Jac_FULL(5236,4843) - JVS(39406) = 0 -! JVS(39407) = Jac_FULL(5236,4847) - JVS(39407) = B(11239)+B(11243)+B(11247)+B(11249) -! JVS(39408) = Jac_FULL(5236,5169) - JVS(39408) = B(11198) -! JVS(39409) = Jac_FULL(5236,5236) - JVS(39409) = -B(7431)-B(7433)-B(7435)-B(7437)-B(7439)-B(7440)-B(7441) -! JVS(39410) = Jac_FULL(5236,5250) - JVS(39410) = B(11236) -! JVS(39411) = Jac_FULL(5236,5251) - JVS(39411) = 0 -! JVS(39412) = Jac_FULL(5236,5252) - JVS(39412) = -B(7434)-B(7436)+B(11244) -! JVS(39413) = Jac_FULL(5236,5253) - JVS(39413) = 0 -! JVS(39414) = Jac_FULL(5236,5254) - JVS(39414) = 0 -! JVS(39415) = Jac_FULL(5236,5255) - JVS(39415) = -B(7432)+B(11240) -! JVS(39416) = Jac_FULL(5236,5256) - JVS(39416) = -B(7438)+B(11248) -! JVS(39417) = Jac_FULL(5236,5258) - JVS(39417) = 0 -! JVS(39418) = Jac_FULL(5237,547) - JVS(39418) = B(23448) -! JVS(39419) = Jac_FULL(5237,567) - JVS(39419) = B(23951)+B(23953) -! JVS(39420) = Jac_FULL(5237,600) - JVS(39420) = B(14055) -! JVS(39421) = Jac_FULL(5237,648) - JVS(39421) = B(23950) -! JVS(39422) = Jac_FULL(5237,665) - JVS(39422) = B(14020) -! JVS(39423) = Jac_FULL(5237,749) - JVS(39423) = B(14158) -! JVS(39424) = Jac_FULL(5237,802) - JVS(39424) = B(23880) -! JVS(39425) = Jac_FULL(5237,856) - JVS(39425) = B(23525) -! JVS(39426) = Jac_FULL(5237,868) - JVS(39426) = B(11441) -! JVS(39427) = Jac_FULL(5237,1579) - JVS(39427) = B(22444) -! JVS(39428) = Jac_FULL(5237,1599) - JVS(39428) = B(7185) -! JVS(39429) = Jac_FULL(5237,1601) - JVS(39429) = B(14164) -! JVS(39430) = Jac_FULL(5237,1646) - JVS(39430) = B(14058) -! JVS(39431) = Jac_FULL(5237,1678) - JVS(39431) = B(23883) -! JVS(39432) = Jac_FULL(5237,1793) - JVS(39432) = 0 -! JVS(39433) = Jac_FULL(5237,1875) - JVS(39433) = B(23458) -! JVS(39434) = Jac_FULL(5237,1920) - JVS(39434) = B(23529) -! JVS(39435) = Jac_FULL(5237,1926) - JVS(39435) = B(23949) -! JVS(39436) = Jac_FULL(5237,2424) - JVS(39436) = B(14053) -! JVS(39437) = Jac_FULL(5237,2749) - JVS(39437) = B(23452) -! JVS(39438) = Jac_FULL(5237,2809) - JVS(39438) = B(23455) -! JVS(39439) = Jac_FULL(5237,2825) - JVS(39439) = B(11443) -! JVS(39440) = Jac_FULL(5237,2932) - JVS(39440) = B(14161) -! JVS(39441) = Jac_FULL(5237,3049) - JVS(39441) = 0 -! JVS(39442) = Jac_FULL(5237,3374) - JVS(39442) = B(22648) -! JVS(39443) = Jac_FULL(5237,3473) - JVS(39443) = B(14156) -! JVS(39444) = Jac_FULL(5237,3557) - JVS(39444) = B(22445)+B(22447) -! JVS(39445) = Jac_FULL(5237,3957) - JVS(39445) = 0 -! JVS(39446) = Jac_FULL(5237,4136) - JVS(39446) = 0 -! JVS(39447) = Jac_FULL(5237,4142) - JVS(39447) = 0 -! JVS(39448) = Jac_FULL(5237,4169) - JVS(39448) = 0 -! JVS(39449) = Jac_FULL(5237,4239) - JVS(39449) = B(14024)+B(14026)+B(14028) -! JVS(39450) = Jac_FULL(5237,4343) - JVS(39450) = 0 -! JVS(39451) = Jac_FULL(5237,4356) - JVS(39451) = 0 -! JVS(39452) = Jac_FULL(5237,4365) - JVS(39452) = 0 -! JVS(39453) = Jac_FULL(5237,4392) - JVS(39453) = B(14059) -! JVS(39454) = Jac_FULL(5237,4572) - JVS(39454) = 0 -! JVS(39455) = Jac_FULL(5237,4673) - JVS(39455) = B(23186)+B(23188)+B(23192)+B(23195) -! JVS(39456) = Jac_FULL(5237,4730) - JVS(39456) = 0 -! JVS(39457) = Jac_FULL(5237,4734) - JVS(39457) = 0 -! JVS(39458) = Jac_FULL(5237,4779) - JVS(39458) = 0 -! JVS(39459) = Jac_FULL(5237,4825) - JVS(39459) = 0 -! JVS(39460) = Jac_FULL(5237,4900) - JVS(39460) = 0 -! JVS(39461) = Jac_FULL(5237,5027) - JVS(39461) = 0 -! JVS(39462) = Jac_FULL(5237,5054) - JVS(39462) = 0 -! JVS(39463) = Jac_FULL(5237,5104) - JVS(39463) = 0 -! JVS(39464) = Jac_FULL(5237,5130) - JVS(39464) = 0 -! JVS(39465) = Jac_FULL(5237,5161) - JVS(39465) = 0 -! JVS(39466) = Jac_FULL(5237,5175) - JVS(39466) = 0 -! JVS(39467) = Jac_FULL(5237,5184) - JVS(39467) = B(3649)+B(3651) -! JVS(39468) = Jac_FULL(5237,5185) - JVS(39468) = 0 -! JVS(39469) = Jac_FULL(5237,5186) - JVS(39469) = 0 -! JVS(39470) = Jac_FULL(5237,5187) - JVS(39470) = 0 -! JVS(39471) = Jac_FULL(5237,5192) - JVS(39471) = 0 -! JVS(39472) = Jac_FULL(5237,5206) - JVS(39472) = 0 -! JVS(39473) = Jac_FULL(5237,5207) - JVS(39473) = 0 -! JVS(39474) = Jac_FULL(5237,5208) - JVS(39474) = 0 -! JVS(39475) = Jac_FULL(5237,5215) - JVS(39475) = 0 -! JVS(39476) = Jac_FULL(5237,5229) - JVS(39476) = 0 -! JVS(39477) = Jac_FULL(5237,5230) - JVS(39477) = 0 -! JVS(39478) = Jac_FULL(5237,5237) - JVS(39478) = -B(7588)-B(7590)-B(7592)-B(7594)-B(7596)-B(7598)-B(7600)-B(7601) -! JVS(39479) = Jac_FULL(5237,5238) - JVS(39479) = 0 -! JVS(39480) = Jac_FULL(5237,5240) - JVS(39480) = 0 -! JVS(39481) = Jac_FULL(5237,5246) - JVS(39481) = 0 -! JVS(39482) = Jac_FULL(5237,5247) - JVS(39482) = 0 -! JVS(39483) = Jac_FULL(5237,5248) - JVS(39483) = 0 -! JVS(39484) = Jac_FULL(5237,5249) - JVS(39484) = 0 -! JVS(39485) = Jac_FULL(5237,5250) - JVS(39485) = B(3652)+B(11442)+B(14027)+B(22446)+B(23526)+B(23952) -! JVS(39486) = Jac_FULL(5237,5251) - JVS(39486) = 0 -! JVS(39487) = Jac_FULL(5237,5252) - JVS(39487) = -B(7595)+B(23189) -! JVS(39488) = Jac_FULL(5237,5253) - JVS(39488) = -B(7597) -! JVS(39489) = Jac_FULL(5237,5254) - JVS(39489) = 0 -! JVS(39490) = Jac_FULL(5237,5255) - JVS(39490) = -B(7589)-B(7591)-B(7593)+B(23187) -! JVS(39491) = Jac_FULL(5237,5256) - JVS(39491) = B(3650)-B(7599)+B(14025)+B(23193) -! JVS(39492) = Jac_FULL(5237,5257) - JVS(39492) = 0 -! JVS(39493) = Jac_FULL(5237,5258) - JVS(39493) = 0 -! JVS(39494) = Jac_FULL(5238,221) - JVS(39494) = -B(399) -! JVS(39495) = Jac_FULL(5238,235) - JVS(39495) = -B(419) -! JVS(39496) = Jac_FULL(5238,253) - JVS(39496) = -B(415) -! JVS(39497) = Jac_FULL(5238,270) - JVS(39497) = -B(403) -! JVS(39498) = Jac_FULL(5238,288) - JVS(39498) = -B(315) -! JVS(39499) = Jac_FULL(5238,342) - JVS(39499) = -B(407) -! JVS(39500) = Jac_FULL(5238,426) - JVS(39500) = -B(411) -! JVS(39501) = Jac_FULL(5238,447) - JVS(39501) = -B(379) -! JVS(39502) = Jac_FULL(5238,548) - JVS(39502) = -B(391)-B(393) -! JVS(39503) = Jac_FULL(5238,566) - JVS(39503) = -B(371)-B(373) -! JVS(39504) = Jac_FULL(5238,588) - JVS(39504) = -B(383)-B(385) -! JVS(39505) = Jac_FULL(5238,601) - JVS(39505) = -B(283)-B(285) -! JVS(39506) = Jac_FULL(5238,1635) - JVS(39506) = -B(303)-B(305)-B(307) -! JVS(39507) = Jac_FULL(5238,1641) - JVS(39507) = -B(347)-B(349)-B(351) -! JVS(39508) = Jac_FULL(5238,1688) - JVS(39508) = -B(359)-B(361)-B(363) -! JVS(39509) = Jac_FULL(5238,1708) - JVS(39509) = -B(291)-B(293)-B(295) -! JVS(39510) = Jac_FULL(5238,1709) - JVS(39510) = -B(319)-B(321)-B(323) -! JVS(39511) = Jac_FULL(5238,1817) - JVS(39511) = -B(275)-B(277) -! JVS(39512) = Jac_FULL(5238,2385) - JVS(39512) = -B(331)-B(333)-B(335)-B(337) -! JVS(39513) = Jac_FULL(5238,2487) - JVS(39513) = 0 -! JVS(39514) = Jac_FULL(5238,2914) - JVS(39514) = -B(259) -! JVS(39515) = Jac_FULL(5238,2973) - JVS(39515) = -B(263) -! JVS(39516) = Jac_FULL(5238,3297) - JVS(39516) = 0 -! JVS(39517) = Jac_FULL(5238,3651) - JVS(39517) = -B(267)-B(269) -! JVS(39518) = Jac_FULL(5238,4332) - JVS(39518) = 0 -! JVS(39519) = Jac_FULL(5238,4333) - JVS(39519) = 0 -! JVS(39520) = Jac_FULL(5238,4475) - JVS(39520) = 0 -! JVS(39521) = Jac_FULL(5238,4508) - JVS(39521) = 0 -! JVS(39522) = Jac_FULL(5238,4527) - JVS(39522) = 0 -! JVS(39523) = Jac_FULL(5238,4604) - JVS(39523) = 0 -! JVS(39524) = Jac_FULL(5238,4606) - JVS(39524) = 0 -! JVS(39525) = Jac_FULL(5238,4840) - JVS(39525) = 0 -! JVS(39526) = Jac_FULL(5238,5051) - JVS(39526) = 0 -! JVS(39527) = Jac_FULL(5238,5162) - JVS(39527) = 0 -! JVS(39528) = Jac_FULL(5238,5190) - JVS(39528) = 0 -! JVS(39529) = Jac_FULL(5238,5200) - JVS(39529) = 0 -! JVS(39530) = Jac_FULL(5238,5227) - JVS(39530) = 0 -! JVS(39531) = Jac_FULL(5238,5238) - JVS(39531) = -B(260)-B(264)-B(268)-B(270)-B(276)-B(278)-B(284)-B(286)-B(292)-B(294)-B(296)-B(304)-B(306)-B(308)-B(316)& - &-B(320)-B(322)-B(324)-B(332)-B(334)-B(336)-B(338)-B(348)-B(350)-B(352)-B(360)-B(362)-B(364)-B(372)-B(374)& - &-B(380)-B(384)-B(386)-B(392)-B(394)-B(400)-B(404)-B(408)-B(412)-B(416)-B(420) -! JVS(39532) = Jac_FULL(5238,5250) - JVS(39532) = 0 -! JVS(39533) = Jac_FULL(5238,5251) - JVS(39533) = 0 -! JVS(39534) = Jac_FULL(5238,5252) - JVS(39534) = 0 -! JVS(39535) = Jac_FULL(5238,5253) - JVS(39535) = 0 -! JVS(39536) = Jac_FULL(5238,5254) - JVS(39536) = 0 -! JVS(39537) = Jac_FULL(5238,5255) - JVS(39537) = 0 -! JVS(39538) = Jac_FULL(5238,5256) - JVS(39538) = 0 -! JVS(39539) = Jac_FULL(5238,5258) - JVS(39539) = 0 -! JVS(39540) = Jac_FULL(5239,918) - JVS(39540) = B(7654) -! JVS(39541) = Jac_FULL(5239,1573) - JVS(39541) = B(1082) -! JVS(39542) = Jac_FULL(5239,2938) - JVS(39542) = B(23507) -! JVS(39543) = Jac_FULL(5239,3424) - JVS(39543) = B(23506) -! JVS(39544) = Jac_FULL(5239,3613) - JVS(39544) = B(23052) -! JVS(39545) = Jac_FULL(5239,3736) - JVS(39545) = B(23119) -! JVS(39546) = Jac_FULL(5239,3737) - JVS(39546) = B(23118) -! JVS(39547) = Jac_FULL(5239,4196) - JVS(39547) = 0 -! JVS(39548) = Jac_FULL(5239,4442) - JVS(39548) = 0 -! JVS(39549) = Jac_FULL(5239,4672) - JVS(39549) = 0 -! JVS(39550) = Jac_FULL(5239,4863) - JVS(39550) = 0 -! JVS(39551) = Jac_FULL(5239,5122) - JVS(39551) = 0 -! JVS(39552) = Jac_FULL(5239,5131) - JVS(39552) = 0 -! JVS(39553) = Jac_FULL(5239,5207) - JVS(39553) = 0 -! JVS(39554) = Jac_FULL(5239,5239) - JVS(39554) = -B(3823)-B(3825)-B(3827)-B(3829)-B(3831)-B(3832) -! JVS(39555) = Jac_FULL(5239,5248) - JVS(39555) = 0 -! JVS(39556) = Jac_FULL(5239,5249) - JVS(39556) = 0 -! JVS(39557) = Jac_FULL(5239,5250) - JVS(39557) = B(1083)+B(7655)+B(23120)+B(23508) -! JVS(39558) = Jac_FULL(5239,5251) - JVS(39558) = 0 -! JVS(39559) = Jac_FULL(5239,5252) - JVS(39559) = -B(3826)-B(3828) -! JVS(39560) = Jac_FULL(5239,5253) - JVS(39560) = 0 -! JVS(39561) = Jac_FULL(5239,5254) - JVS(39561) = 0 -! JVS(39562) = Jac_FULL(5239,5255) - JVS(39562) = -B(3824) -! JVS(39563) = Jac_FULL(5239,5256) - JVS(39563) = -B(3830) -! JVS(39564) = Jac_FULL(5239,5257) - JVS(39564) = 0 -! JVS(39565) = Jac_FULL(5239,5258) - JVS(39565) = 0 -! JVS(39566) = Jac_FULL(5240,452) - JVS(39566) = B(19536) -! JVS(39567) = Jac_FULL(5240,658) - JVS(39567) = B(17206) -! JVS(39568) = Jac_FULL(5240,692) - JVS(39568) = B(17294) -! JVS(39569) = Jac_FULL(5240,1195) - JVS(39569) = B(19529) -! JVS(39570) = Jac_FULL(5240,1668) - JVS(39570) = B(17212) -! JVS(39571) = Jac_FULL(5240,1950) - JVS(39571) = B(17205) -! JVS(39572) = Jac_FULL(5240,2119) - JVS(39572) = B(17207) -! JVS(39573) = Jac_FULL(5240,2250) - JVS(39573) = B(19532) -! JVS(39574) = Jac_FULL(5240,2325) - JVS(39574) = B(17342) -! JVS(39575) = Jac_FULL(5240,2704) - JVS(39575) = B(20982) -! JVS(39576) = Jac_FULL(5240,2746) - JVS(39576) = B(17344) -! JVS(39577) = Jac_FULL(5240,2832) - JVS(39577) = B(17293) -! JVS(39578) = Jac_FULL(5240,3886) - JVS(39578) = 0 -! JVS(39579) = Jac_FULL(5240,3928) - JVS(39579) = 0 -! JVS(39580) = Jac_FULL(5240,4258) - JVS(39580) = B(17321)+B(17323)+B(17325)+B(17327)+B(17329) -! JVS(39581) = Jac_FULL(5240,5028) - JVS(39581) = 0 -! JVS(39582) = Jac_FULL(5240,5052) - JVS(39582) = 0 -! JVS(39583) = Jac_FULL(5240,5114) - JVS(39583) = B(17384) -! JVS(39584) = Jac_FULL(5240,5207) - JVS(39584) = B(11390) -! JVS(39585) = Jac_FULL(5240,5240) - JVS(39585) = -B(14737)-B(14739)-B(14741) -! JVS(39586) = Jac_FULL(5240,5248) - JVS(39586) = 0 -! JVS(39587) = Jac_FULL(5240,5249) - JVS(39587) = 0 -! JVS(39588) = Jac_FULL(5240,5250) - JVS(39588) = -B(14740)+B(17208)+B(17295)+B(17343)+B(19530)+B(19533)+B(19537)+B(20983) -! JVS(39589) = Jac_FULL(5240,5251) - JVS(39589) = B(17322) -! JVS(39590) = Jac_FULL(5240,5252) - JVS(39590) = B(17324) -! JVS(39591) = Jac_FULL(5240,5253) - JVS(39591) = B(17326) -! JVS(39592) = Jac_FULL(5240,5254) - JVS(39592) = B(17328) -! JVS(39593) = Jac_FULL(5240,5255) - JVS(39593) = 0 -! JVS(39594) = Jac_FULL(5240,5256) - JVS(39594) = -B(14738) -! JVS(39595) = Jac_FULL(5240,5257) - JVS(39595) = 0 -! JVS(39596) = Jac_FULL(5240,5258) - JVS(39596) = B(11391) -! JVS(39597) = Jac_FULL(5241,12) - JVS(39597) = B(7917) -! JVS(39598) = Jac_FULL(5241,37) - JVS(39598) = B(2329) -! JVS(39599) = Jac_FULL(5241,114) - JVS(39599) = B(13892) -! JVS(39600) = Jac_FULL(5241,239) - JVS(39600) = B(2230) -! JVS(39601) = Jac_FULL(5241,327) - JVS(39601) = B(2082) -! JVS(39602) = Jac_FULL(5241,833) - JVS(39602) = B(11574) -! JVS(39603) = Jac_FULL(5241,1633) - JVS(39603) = B(19702) -! JVS(39604) = Jac_FULL(5241,2425) - JVS(39604) = B(6891) -! JVS(39605) = Jac_FULL(5241,2981) - JVS(39605) = B(19695) -! JVS(39606) = Jac_FULL(5241,3069) - JVS(39606) = B(7192) -! JVS(39607) = Jac_FULL(5241,3126) - JVS(39607) = B(17794) -! JVS(39608) = Jac_FULL(5241,3442) - JVS(39608) = 0 -! JVS(39609) = Jac_FULL(5241,3535) - JVS(39609) = B(18147) -! JVS(39610) = Jac_FULL(5241,4109) - JVS(39610) = B(10709) -! JVS(39611) = Jac_FULL(5241,4330) - JVS(39611) = 0 -! JVS(39612) = Jac_FULL(5241,4383) - JVS(39612) = B(6991) -! JVS(39613) = Jac_FULL(5241,4422) - JVS(39613) = 0 -! JVS(39614) = Jac_FULL(5241,4440) - JVS(39614) = 0 -! JVS(39615) = Jac_FULL(5241,4474) - JVS(39615) = 0 -! JVS(39616) = Jac_FULL(5241,4512) - JVS(39616) = 0 -! JVS(39617) = Jac_FULL(5241,4617) - JVS(39617) = 0 -! JVS(39618) = Jac_FULL(5241,4749) - JVS(39618) = 0 -! JVS(39619) = Jac_FULL(5241,4778) - JVS(39619) = 0 -! JVS(39620) = Jac_FULL(5241,4801) - JVS(39620) = B(7041) -! JVS(39621) = Jac_FULL(5241,4802) - JVS(39621) = 0 -! JVS(39622) = Jac_FULL(5241,4856) - JVS(39622) = 0 -! JVS(39623) = Jac_FULL(5241,4885) - JVS(39623) = 0 -! JVS(39624) = Jac_FULL(5241,4903) - JVS(39624) = 0 -! JVS(39625) = Jac_FULL(5241,4907) - JVS(39625) = 0 -! JVS(39626) = Jac_FULL(5241,4934) - JVS(39626) = 0 -! JVS(39627) = Jac_FULL(5241,4950) - JVS(39627) = 0 -! JVS(39628) = Jac_FULL(5241,4963) - JVS(39628) = 0 -! JVS(39629) = Jac_FULL(5241,4972) - JVS(39629) = 0 -! JVS(39630) = Jac_FULL(5241,4975) - JVS(39630) = 0 -! JVS(39631) = Jac_FULL(5241,4979) - JVS(39631) = 0 -! JVS(39632) = Jac_FULL(5241,5002) - JVS(39632) = 0 -! JVS(39633) = Jac_FULL(5241,5010) - JVS(39633) = 0 -! JVS(39634) = Jac_FULL(5241,5032) - JVS(39634) = 0 -! JVS(39635) = Jac_FULL(5241,5096) - JVS(39635) = 0 -! JVS(39636) = Jac_FULL(5241,5110) - JVS(39636) = B(14101) -! JVS(39637) = Jac_FULL(5241,5119) - JVS(39637) = 0 -! JVS(39638) = Jac_FULL(5241,5120) - JVS(39638) = 0 -! JVS(39639) = Jac_FULL(5241,5127) - JVS(39639) = 0 -! JVS(39640) = Jac_FULL(5241,5128) - JVS(39640) = 0 -! JVS(39641) = Jac_FULL(5241,5144) - JVS(39641) = 0 -! JVS(39642) = Jac_FULL(5241,5146) - JVS(39642) = 0 -! JVS(39643) = Jac_FULL(5241,5148) - JVS(39643) = 0 -! JVS(39644) = Jac_FULL(5241,5151) - JVS(39644) = 0 -! JVS(39645) = Jac_FULL(5241,5157) - JVS(39645) = B(7103) -! JVS(39646) = Jac_FULL(5241,5158) - JVS(39646) = B(7794)+B(7798)+B(7802)+B(7804) -! JVS(39647) = Jac_FULL(5241,5160) - JVS(39647) = B(811) -! JVS(39648) = Jac_FULL(5241,5163) - JVS(39648) = 0 -! JVS(39649) = Jac_FULL(5241,5166) - JVS(39649) = 0 -! JVS(39650) = Jac_FULL(5241,5186) - JVS(39650) = 0 -! JVS(39651) = Jac_FULL(5241,5187) - JVS(39651) = 0 -! JVS(39652) = Jac_FULL(5241,5190) - JVS(39652) = 0 -! JVS(39653) = Jac_FULL(5241,5192) - JVS(39653) = 0 -! JVS(39654) = Jac_FULL(5241,5198) - JVS(39654) = 0 -! JVS(39655) = Jac_FULL(5241,5203) - JVS(39655) = 0 -! JVS(39656) = Jac_FULL(5241,5204) - JVS(39656) = 0 -! JVS(39657) = Jac_FULL(5241,5206) - JVS(39657) = 0 -! JVS(39658) = Jac_FULL(5241,5207) - JVS(39658) = 0 -! JVS(39659) = Jac_FULL(5241,5212) - JVS(39659) = 0 -! JVS(39660) = Jac_FULL(5241,5213) - JVS(39660) = 0 -! JVS(39661) = Jac_FULL(5241,5215) - JVS(39661) = 0 -! JVS(39662) = Jac_FULL(5241,5224) - JVS(39662) = 0 -! JVS(39663) = Jac_FULL(5241,5226) - JVS(39663) = 0 -! JVS(39664) = Jac_FULL(5241,5230) - JVS(39664) = 0 -! JVS(39665) = Jac_FULL(5241,5236) - JVS(39665) = 0 -! JVS(39666) = Jac_FULL(5241,5238) - JVS(39666) = 0 -! JVS(39667) = Jac_FULL(5241,5239) - JVS(39667) = 0 -! JVS(39668) = Jac_FULL(5241,5240) - JVS(39668) = 0 -! JVS(39669) = Jac_FULL(5241,5241) - JVS(39669) = -B(3196)-B(3198)-B(3200)-B(3202)-B(3204)-B(3205)-B(3206) -! JVS(39670) = Jac_FULL(5241,5242) - JVS(39670) = B(4137) -! JVS(39671) = Jac_FULL(5241,5243) - JVS(39671) = 0 -! JVS(39672) = Jac_FULL(5241,5245) - JVS(39672) = 0 -! JVS(39673) = Jac_FULL(5241,5247) - JVS(39673) = 0 -! JVS(39674) = Jac_FULL(5241,5248) - JVS(39674) = 0 -! JVS(39675) = Jac_FULL(5241,5249) - JVS(39675) = 0 -! JVS(39676) = Jac_FULL(5241,5250) - JVS(39676) = B(812)+B(6992)+B(7918)+B(13893) -! JVS(39677) = Jac_FULL(5241,5251) - JVS(39677) = 0 -! JVS(39678) = Jac_FULL(5241,5252) - JVS(39678) = -B(3201)+B(7799) -! JVS(39679) = Jac_FULL(5241,5253) - JVS(39679) = 0 -! JVS(39680) = Jac_FULL(5241,5254) - JVS(39680) = 0 -! JVS(39681) = Jac_FULL(5241,5255) - JVS(39681) = -B(3197)-B(3199)+B(7795) -! JVS(39682) = Jac_FULL(5241,5256) - JVS(39682) = -B(3203)+B(7803) -! JVS(39683) = Jac_FULL(5241,5257) - JVS(39683) = 0 -! JVS(39684) = Jac_FULL(5241,5258) - JVS(39684) = 0 -! JVS(39685) = Jac_FULL(5242,564) - JVS(39685) = B(19669) -! JVS(39686) = Jac_FULL(5242,682) - JVS(39686) = B(14100) -! JVS(39687) = Jac_FULL(5242,695) - JVS(39687) = B(23903) -! JVS(39688) = Jac_FULL(5242,1566) - JVS(39688) = B(14105) -! JVS(39689) = Jac_FULL(5242,1690) - JVS(39689) = B(19673) -! JVS(39690) = Jac_FULL(5242,1895) - JVS(39690) = B(7002) -! JVS(39691) = Jac_FULL(5242,2070) - JVS(39691) = B(6997) -! JVS(39692) = Jac_FULL(5242,2077) - JVS(39692) = B(4128) -! JVS(39693) = Jac_FULL(5242,2300) - JVS(39693) = 0 -! JVS(39694) = Jac_FULL(5242,2428) - JVS(39694) = B(14096) -! JVS(39695) = Jac_FULL(5242,2528) - JVS(39695) = B(14124) -! JVS(39696) = Jac_FULL(5242,2539) - JVS(39696) = B(7005) -! JVS(39697) = Jac_FULL(5242,2644) - JVS(39697) = B(17687) -! JVS(39698) = Jac_FULL(5242,2697) - JVS(39698) = B(17793) -! JVS(39699) = Jac_FULL(5242,2821) - JVS(39699) = B(10699) -! JVS(39700) = Jac_FULL(5242,2834) - JVS(39700) = B(10679) -! JVS(39701) = Jac_FULL(5242,2886) - JVS(39701) = B(19565) -! JVS(39702) = Jac_FULL(5242,2996) - JVS(39702) = B(10706) -! JVS(39703) = Jac_FULL(5242,3048) - JVS(39703) = B(10682) -! JVS(39704) = Jac_FULL(5242,3067) - JVS(39704) = B(23346) -! JVS(39705) = Jac_FULL(5242,3078) - JVS(39705) = B(19665) -! JVS(39706) = Jac_FULL(5242,3383) - JVS(39706) = B(4132) -! JVS(39707) = Jac_FULL(5242,3391) - JVS(39707) = B(21213) -! JVS(39708) = Jac_FULL(5242,3540) - JVS(39708) = B(4124) -! JVS(39709) = Jac_FULL(5242,3586) - JVS(39709) = B(10664) -! JVS(39710) = Jac_FULL(5242,3865) - JVS(39710) = 0 -! JVS(39711) = Jac_FULL(5242,3980) - JVS(39711) = 0 -! JVS(39712) = Jac_FULL(5242,4337) - JVS(39712) = 0 -! JVS(39713) = Jac_FULL(5242,4357) - JVS(39713) = 0 -! JVS(39714) = Jac_FULL(5242,4446) - JVS(39714) = 0 -! JVS(39715) = Jac_FULL(5242,4486) - JVS(39715) = 0 -! JVS(39716) = Jac_FULL(5242,4584) - JVS(39716) = 0 -! JVS(39717) = Jac_FULL(5242,4646) - JVS(39717) = 0 -! JVS(39718) = Jac_FULL(5242,4705) - JVS(39718) = B(1352) -! JVS(39719) = Jac_FULL(5242,4784) - JVS(39719) = 0 -! JVS(39720) = Jac_FULL(5242,4794) - JVS(39720) = B(3137) -! JVS(39721) = Jac_FULL(5242,4820) - JVS(39721) = 0 -! JVS(39722) = Jac_FULL(5242,4890) - JVS(39722) = 0 -! JVS(39723) = Jac_FULL(5242,4903) - JVS(39723) = 0 -! JVS(39724) = Jac_FULL(5242,4907) - JVS(39724) = B(3148) -! JVS(39725) = Jac_FULL(5242,4963) - JVS(39725) = B(10666)+B(10668)+B(10670)+B(10672)+B(10674) -! JVS(39726) = Jac_FULL(5242,4973) - JVS(39726) = B(3696) -! JVS(39727) = Jac_FULL(5242,5055) - JVS(39727) = B(4141) -! JVS(39728) = Jac_FULL(5242,5063) - JVS(39728) = 0 -! JVS(39729) = Jac_FULL(5242,5064) - JVS(39729) = 0 -! JVS(39730) = Jac_FULL(5242,5073) - JVS(39730) = 0 -! JVS(39731) = Jac_FULL(5242,5088) - JVS(39731) = 0 -! JVS(39732) = Jac_FULL(5242,5090) - JVS(39732) = 0 -! JVS(39733) = Jac_FULL(5242,5108) - JVS(39733) = 0 -! JVS(39734) = Jac_FULL(5242,5109) - JVS(39734) = 0 -! JVS(39735) = Jac_FULL(5242,5120) - JVS(39735) = 0 -! JVS(39736) = Jac_FULL(5242,5127) - JVS(39736) = 0 -! JVS(39737) = Jac_FULL(5242,5146) - JVS(39737) = 0 -! JVS(39738) = Jac_FULL(5242,5147) - JVS(39738) = 0 -! JVS(39739) = Jac_FULL(5242,5148) - JVS(39739) = 0 -! JVS(39740) = Jac_FULL(5242,5150) - JVS(39740) = 0 -! JVS(39741) = Jac_FULL(5242,5163) - JVS(39741) = 0 -! JVS(39742) = Jac_FULL(5242,5166) - JVS(39742) = 0 -! JVS(39743) = Jac_FULL(5242,5175) - JVS(39743) = 0 -! JVS(39744) = Jac_FULL(5242,5176) - JVS(39744) = 0 -! JVS(39745) = Jac_FULL(5242,5179) - JVS(39745) = 0 -! JVS(39746) = Jac_FULL(5242,5192) - JVS(39746) = 0 -! JVS(39747) = Jac_FULL(5242,5196) - JVS(39747) = 0 -! JVS(39748) = Jac_FULL(5242,5206) - JVS(39748) = 0 -! JVS(39749) = Jac_FULL(5242,5208) - JVS(39749) = 0 -! JVS(39750) = Jac_FULL(5242,5211) - JVS(39750) = 0 -! JVS(39751) = Jac_FULL(5242,5212) - JVS(39751) = 0 -! JVS(39752) = Jac_FULL(5242,5230) - JVS(39752) = 0 -! JVS(39753) = Jac_FULL(5242,5236) - JVS(39753) = 0 -! JVS(39754) = Jac_FULL(5242,5238) - JVS(39754) = 0 -! JVS(39755) = Jac_FULL(5242,5242) - JVS(39755) = -B(4133)-B(4135)-B(4137) -! JVS(39756) = Jac_FULL(5242,5245) - JVS(39756) = 0 -! JVS(39757) = Jac_FULL(5242,5246) - JVS(39757) = B(3215) -! JVS(39758) = Jac_FULL(5242,5247) - JVS(39758) = 0 -! JVS(39759) = Jac_FULL(5242,5248) - JVS(39759) = 0 -! JVS(39760) = Jac_FULL(5242,5249) - JVS(39760) = 0 -! JVS(39761) = Jac_FULL(5242,5250) - JVS(39761) = B(3697)+B(4125)+B(4129)-B(4136)+B(4142)+B(6998)+B(7003)+B(10680)+B(19566) -! JVS(39762) = Jac_FULL(5242,5251) - JVS(39762) = B(10667) -! JVS(39763) = Jac_FULL(5242,5252) - JVS(39763) = B(10669) -! JVS(39764) = Jac_FULL(5242,5253) - JVS(39764) = B(10671) -! JVS(39765) = Jac_FULL(5242,5254) - JVS(39765) = B(10673) -! JVS(39766) = Jac_FULL(5242,5255) - JVS(39766) = 0 -! JVS(39767) = Jac_FULL(5242,5256) - JVS(39767) = -B(4134) -! JVS(39768) = Jac_FULL(5242,5257) - JVS(39768) = 0 -! JVS(39769) = Jac_FULL(5242,5258) - JVS(39769) = B(3138)+B(3149) -! JVS(39770) = Jac_FULL(5243,579) - JVS(39770) = B(7780)+B(7782) -! JVS(39771) = Jac_FULL(5243,820) - JVS(39771) = B(21160) -! JVS(39772) = Jac_FULL(5243,2115) - JVS(39772) = 0 -! JVS(39773) = Jac_FULL(5243,2211) - JVS(39773) = B(7775) -! JVS(39774) = Jac_FULL(5243,2438) - JVS(39774) = B(3943) -! JVS(39775) = Jac_FULL(5243,2792) - JVS(39775) = B(7777) -! JVS(39776) = Jac_FULL(5243,3126) - JVS(39776) = B(17794) -! JVS(39777) = Jac_FULL(5243,3623) - JVS(39777) = 0 -! JVS(39778) = Jac_FULL(5243,3755) - JVS(39778) = B(4069) -! JVS(39779) = Jac_FULL(5243,4364) - JVS(39779) = 0 -! JVS(39780) = Jac_FULL(5243,4549) - JVS(39780) = 0 -! JVS(39781) = Jac_FULL(5243,4554) - JVS(39781) = 0 -! JVS(39782) = Jac_FULL(5243,4555) - JVS(39782) = 0 -! JVS(39783) = Jac_FULL(5243,4596) - JVS(39783) = 0 -! JVS(39784) = Jac_FULL(5243,4780) - JVS(39784) = 0 -! JVS(39785) = Jac_FULL(5243,4903) - JVS(39785) = 0 -! JVS(39786) = Jac_FULL(5243,4960) - JVS(39786) = 0 -! JVS(39787) = Jac_FULL(5243,4984) - JVS(39787) = 0 -! JVS(39788) = Jac_FULL(5243,5000) - JVS(39788) = B(1252) -! JVS(39789) = Jac_FULL(5243,5032) - JVS(39789) = 0 -! JVS(39790) = Jac_FULL(5243,5056) - JVS(39790) = 0 -! JVS(39791) = Jac_FULL(5243,5060) - JVS(39791) = 0 -! JVS(39792) = Jac_FULL(5243,5072) - JVS(39792) = 0 -! JVS(39793) = Jac_FULL(5243,5077) - JVS(39793) = 0 -! JVS(39794) = Jac_FULL(5243,5079) - JVS(39794) = 0 -! JVS(39795) = Jac_FULL(5243,5082) - JVS(39795) = 0 -! JVS(39796) = Jac_FULL(5243,5101) - JVS(39796) = 0 -! JVS(39797) = Jac_FULL(5243,5129) - JVS(39797) = 0 -! JVS(39798) = Jac_FULL(5243,5130) - JVS(39798) = 0 -! JVS(39799) = Jac_FULL(5243,5146) - JVS(39799) = 0 -! JVS(39800) = Jac_FULL(5243,5148) - JVS(39800) = 0 -! JVS(39801) = Jac_FULL(5243,5203) - JVS(39801) = 0 -! JVS(39802) = Jac_FULL(5243,5215) - JVS(39802) = 0 -! JVS(39803) = Jac_FULL(5243,5226) - JVS(39803) = 0 -! JVS(39804) = Jac_FULL(5243,5236) - JVS(39804) = 0 -! JVS(39805) = Jac_FULL(5243,5238) - JVS(39805) = 0 -! JVS(39806) = Jac_FULL(5243,5239) - JVS(39806) = 0 -! JVS(39807) = Jac_FULL(5243,5240) - JVS(39807) = 0 -! JVS(39808) = Jac_FULL(5243,5243) - JVS(39808) = -B(4037)-B(4039)-B(4041)-B(4043)-B(4045)-B(4047)-B(4049)-B(4050) -! JVS(39809) = Jac_FULL(5243,5245) - JVS(39809) = 0 -! JVS(39810) = Jac_FULL(5243,5247) - JVS(39810) = 0 -! JVS(39811) = Jac_FULL(5243,5248) - JVS(39811) = 0 -! JVS(39812) = Jac_FULL(5243,5249) - JVS(39812) = 0 -! JVS(39813) = Jac_FULL(5243,5250) - JVS(39813) = B(1253)+B(7776)+B(7781) -! JVS(39814) = Jac_FULL(5243,5251) - JVS(39814) = 0 -! JVS(39815) = Jac_FULL(5243,5252) - JVS(39815) = -B(4044) -! JVS(39816) = Jac_FULL(5243,5253) - JVS(39816) = -B(4046) -! JVS(39817) = Jac_FULL(5243,5254) - JVS(39817) = 0 -! JVS(39818) = Jac_FULL(5243,5255) - JVS(39818) = -B(4038)-B(4040)-B(4042) -! JVS(39819) = Jac_FULL(5243,5256) - JVS(39819) = -B(4048) -! JVS(39820) = Jac_FULL(5243,5257) - JVS(39820) = 0 -! JVS(39821) = Jac_FULL(5243,5258) - JVS(39821) = 0 -! JVS(39822) = Jac_FULL(5244,533) - JVS(39822) = B(10470) -! JVS(39823) = Jac_FULL(5244,542) - JVS(39823) = B(18194) -! JVS(39824) = Jac_FULL(5244,544) - JVS(39824) = B(23945) -! JVS(39825) = Jac_FULL(5244,553) - JVS(39825) = B(21866) -! JVS(39826) = Jac_FULL(5244,581) - JVS(39826) = B(22369) -! JVS(39827) = Jac_FULL(5244,592) - JVS(39827) = B(15732) -! JVS(39828) = Jac_FULL(5244,605) - JVS(39828) = B(15639) -! JVS(39829) = Jac_FULL(5244,623) - JVS(39829) = B(10182) -! JVS(39830) = Jac_FULL(5244,638) - JVS(39830) = B(19719) -! JVS(39831) = Jac_FULL(5244,641) - JVS(39831) = B(16433) -! JVS(39832) = Jac_FULL(5244,658) - JVS(39832) = B(17206) -! JVS(39833) = Jac_FULL(5244,666) - JVS(39833) = B(7200) -! JVS(39834) = Jac_FULL(5244,679) - JVS(39834) = B(19382) -! JVS(39835) = Jac_FULL(5244,682) - JVS(39835) = B(14100) -! JVS(39836) = Jac_FULL(5244,687) - JVS(39836) = B(22492) -! JVS(39837) = Jac_FULL(5244,693) - JVS(39837) = B(18142) -! JVS(39838) = Jac_FULL(5244,710) - JVS(39838) = B(15712) -! JVS(39839) = Jac_FULL(5244,714) - JVS(39839) = B(22319) -! JVS(39840) = Jac_FULL(5244,720) - JVS(39840) = B(9122) -! JVS(39841) = Jac_FULL(5244,728) - JVS(39841) = B(17118) -! JVS(39842) = Jac_FULL(5244,731) - JVS(39842) = B(22926) -! JVS(39843) = Jac_FULL(5244,740) - JVS(39843) = B(11203) -! JVS(39844) = Jac_FULL(5244,755) - JVS(39844) = B(8982) -! JVS(39845) = Jac_FULL(5244,756) - JVS(39845) = B(9890) -! JVS(39846) = Jac_FULL(5244,763) - JVS(39846) = B(1510) -! JVS(39847) = Jac_FULL(5244,770) - JVS(39847) = B(11347) -! JVS(39848) = Jac_FULL(5244,778) - JVS(39848) = B(19658) -! JVS(39849) = Jac_FULL(5244,1066) - JVS(39849) = B(3976) -! JVS(39850) = Jac_FULL(5244,1242) - JVS(39850) = B(16626) -! JVS(39851) = Jac_FULL(5244,1269) - JVS(39851) = B(7915) -! JVS(39852) = Jac_FULL(5244,1548) - JVS(39852) = B(19662) -! JVS(39853) = Jac_FULL(5244,1557) - JVS(39853) = B(17810) -! JVS(39854) = Jac_FULL(5244,1558) - JVS(39854) = B(13691) -! JVS(39855) = Jac_FULL(5244,1560) - JVS(39855) = B(10023)+B(10025) -! JVS(39856) = Jac_FULL(5244,1561) - JVS(39856) = B(22531) -! JVS(39857) = Jac_FULL(5244,1566) - JVS(39857) = B(14105) -! JVS(39858) = Jac_FULL(5244,1578) - JVS(39858) = B(16213) -! JVS(39859) = Jac_FULL(5244,1585) - JVS(39859) = B(11209) -! JVS(39860) = Jac_FULL(5244,1586) - JVS(39860) = B(19388) -! JVS(39861) = Jac_FULL(5244,1587) - JVS(39861) = B(7206) -! JVS(39862) = Jac_FULL(5244,1592) - JVS(39862) = B(7013) -! JVS(39863) = Jac_FULL(5244,1595) - JVS(39863) = B(7051) -! JVS(39864) = Jac_FULL(5244,1600) - JVS(39864) = B(9893) -! JVS(39865) = Jac_FULL(5244,1609) - JVS(39865) = B(9128) -! JVS(39866) = Jac_FULL(5244,1610) - JVS(39866) = B(9123)+B(9125) -! JVS(39867) = Jac_FULL(5244,1611) - JVS(39867) = B(11353) -! JVS(39868) = Jac_FULL(5244,1630) - JVS(39868) = B(20864) -! JVS(39869) = Jac_FULL(5244,1631) - JVS(39869) = B(20861) -! JVS(39870) = Jac_FULL(5244,1632) - JVS(39870) = B(19720) -! JVS(39871) = Jac_FULL(5244,1637) - JVS(39871) = B(17706) -! JVS(39872) = Jac_FULL(5244,1640) - JVS(39872) = B(10018) -! JVS(39873) = Jac_FULL(5244,1665) - JVS(39873) = B(10185) -! JVS(39874) = Jac_FULL(5244,1668) - JVS(39874) = B(17212) -! JVS(39875) = Jac_FULL(5244,1671) - JVS(39875) = B(3946) -! JVS(39876) = Jac_FULL(5244,1676) - JVS(39876) = B(19236) -! JVS(39877) = Jac_FULL(5244,1677) - JVS(39877) = B(17705) -! JVS(39878) = Jac_FULL(5244,1681) - JVS(39878) = B(15629) -! JVS(39879) = Jac_FULL(5244,1689) - JVS(39879) = B(19235) -! JVS(39880) = Jac_FULL(5244,1691) - JVS(39880) = B(22528) -! JVS(39881) = Jac_FULL(5244,1694) - JVS(39881) = B(11921) -! JVS(39882) = Jac_FULL(5244,1699) - JVS(39882) = B(7131) -! JVS(39883) = Jac_FULL(5244,1710) - JVS(39883) = B(16194) -! JVS(39884) = Jac_FULL(5244,1714) - JVS(39884) = B(11920) -! JVS(39885) = Jac_FULL(5244,1719) - JVS(39885) = B(7106) -! JVS(39886) = Jac_FULL(5244,1722) - JVS(39886) = B(19710) -! JVS(39887) = Jac_FULL(5244,1723) - JVS(39887) = B(19709) -! JVS(39888) = Jac_FULL(5244,1726) - JVS(39888) = B(15796) -! JVS(39889) = Jac_FULL(5244,1731) - JVS(39889) = B(21871) -! JVS(39890) = Jac_FULL(5244,1790) - JVS(39890) = B(7203) -! JVS(39891) = Jac_FULL(5244,1807) - JVS(39891) = B(15426)+B(15428) -! JVS(39892) = Jac_FULL(5244,1825) - JVS(39892) = B(14034) -! JVS(39893) = Jac_FULL(5244,1826) - JVS(39893) = B(17807) -! JVS(39894) = Jac_FULL(5244,1833) - JVS(39894) = B(13244) -! JVS(39895) = Jac_FULL(5244,1834) - JVS(39895) = B(11348)+B(11350) -! JVS(39896) = Jac_FULL(5244,1836) - JVS(39896) = 0 -! JVS(39897) = Jac_FULL(5244,1854) - JVS(39897) = B(15730) -! JVS(39898) = Jac_FULL(5244,1873) - JVS(39898) = B(10016) -! JVS(39899) = Jac_FULL(5244,1887) - JVS(39899) = B(22527) -! JVS(39900) = Jac_FULL(5244,1908) - JVS(39900) = B(19654) -! JVS(39901) = Jac_FULL(5244,1925) - JVS(39901) = B(22495) -! JVS(39902) = Jac_FULL(5244,1932) - JVS(39902) = 0 -! JVS(39903) = Jac_FULL(5244,1950) - JVS(39903) = B(17205) -! JVS(39904) = Jac_FULL(5244,1953) - JVS(39904) = 2*B(15715) -! JVS(39905) = Jac_FULL(5244,1988) - JVS(39905) = B(8983)+B(8986) -! JVS(39906) = Jac_FULL(5244,2017) - JVS(39906) = B(21864) -! JVS(39907) = Jac_FULL(5244,2024) - JVS(39907) = B(22171) -! JVS(39908) = Jac_FULL(5244,2039) - JVS(39908) = B(22213) -! JVS(39909) = Jac_FULL(5244,2055) - JVS(39909) = B(21336) -! JVS(39910) = Jac_FULL(5244,2064) - JVS(39910) = B(21481) -! JVS(39911) = Jac_FULL(5244,2071) - JVS(39911) = 0 -! JVS(39912) = Jac_FULL(5244,2082) - JVS(39912) = B(22265) -! JVS(39913) = Jac_FULL(5244,2084) - JVS(39913) = B(19706) -! JVS(39914) = Jac_FULL(5244,2107) - JVS(39914) = 0 -! JVS(39915) = Jac_FULL(5244,2118) - JVS(39915) = B(152) -! JVS(39916) = Jac_FULL(5244,2119) - JVS(39916) = B(17207)+B(17209) -! JVS(39917) = Jac_FULL(5244,2231) - JVS(39917) = B(11204)+B(11206) -! JVS(39918) = Jac_FULL(5244,2265) - JVS(39918) = B(19383)+B(19385) -! JVS(39919) = Jac_FULL(5244,2273) - JVS(39919) = B(17121) -! JVS(39920) = Jac_FULL(5244,2295) - JVS(39920) = B(12866) -! JVS(39921) = Jac_FULL(5244,2305) - JVS(39921) = B(19380) -! JVS(39922) = Jac_FULL(5244,2326) - JVS(39922) = B(6990) -! JVS(39923) = Jac_FULL(5244,2344) - JVS(39923) = B(12336) -! JVS(39924) = Jac_FULL(5244,2349) - JVS(39924) = B(21460) -! JVS(39925) = Jac_FULL(5244,2356) - JVS(39925) = B(9792) -! JVS(39926) = Jac_FULL(5244,2357) - JVS(39926) = B(9795)+B(9796) -! JVS(39927) = Jac_FULL(5244,2362) - JVS(39927) = B(11201) -! JVS(39928) = Jac_FULL(5244,2386) - JVS(39928) = B(20860) -! JVS(39929) = Jac_FULL(5244,2393) - JVS(39929) = B(12528) -! JVS(39930) = Jac_FULL(5244,2397) - JVS(39930) = B(14075) -! JVS(39931) = Jac_FULL(5244,2404) - JVS(39931) = 0 -! JVS(39932) = Jac_FULL(5244,2414) - JVS(39932) = B(22207) -! JVS(39933) = Jac_FULL(5244,2426) - JVS(39933) = B(17702) -! JVS(39934) = Jac_FULL(5244,2428) - JVS(39934) = B(14096) -! JVS(39935) = Jac_FULL(5244,2430) - JVS(39935) = B(19994) -! JVS(39936) = Jac_FULL(5244,2437) - JVS(39936) = B(23944) -! JVS(39937) = Jac_FULL(5244,2438) - JVS(39937) = B(3943) -! JVS(39938) = Jac_FULL(5244,2443) - JVS(39938) = B(21367) -! JVS(39939) = Jac_FULL(5244,2445) - JVS(39939) = 0 -! JVS(39940) = Jac_FULL(5244,2467) - JVS(39940) = 2*B(15642) -! JVS(39941) = Jac_FULL(5244,2469) - JVS(39941) = B(11346) -! JVS(39942) = Jac_FULL(5244,2475) - JVS(39942) = B(23365) -! JVS(39943) = Jac_FULL(5244,2476) - JVS(39943) = B(3113)+B(3115) -! JVS(39944) = Jac_FULL(5244,2477) - JVS(39944) = B(9217) -! JVS(39945) = Jac_FULL(5244,2478) - JVS(39945) = B(12215) -! JVS(39946) = Jac_FULL(5244,2479) - JVS(39946) = B(6720)+B(6722) -! JVS(39947) = Jac_FULL(5244,2482) - JVS(39947) = 0 -! JVS(39948) = Jac_FULL(5244,2483) - JVS(39948) = B(23846) -! JVS(39949) = Jac_FULL(5244,2484) - JVS(39949) = B(10019)+B(10021) -! JVS(39950) = Jac_FULL(5244,2554) - JVS(39950) = B(16628) -! JVS(39951) = Jac_FULL(5244,2602) - JVS(39951) = B(15624) -! JVS(39952) = Jac_FULL(5244,2603) - JVS(39952) = B(13227) -! JVS(39953) = Jac_FULL(5244,2625) - JVS(39953) = B(19714) -! JVS(39954) = Jac_FULL(5244,2657) - JVS(39954) = B(3981) -! JVS(39955) = Jac_FULL(5244,2679) - JVS(39955) = B(14050) -! JVS(39956) = Jac_FULL(5244,2683) - JVS(39956) = B(21337) -! JVS(39957) = Jac_FULL(5244,2686) - JVS(39957) = B(16207) -! JVS(39958) = Jac_FULL(5244,2715) - JVS(39958) = B(7011) -! JVS(39959) = Jac_FULL(5244,2739) - JVS(39959) = B(19942) -! JVS(39960) = Jac_FULL(5244,2766) - JVS(39960) = B(16165) -! JVS(39961) = Jac_FULL(5244,2769) - JVS(39961) = B(19993) -! JVS(39962) = Jac_FULL(5244,2819) - JVS(39962) = B(18575) -! JVS(39963) = Jac_FULL(5244,2820) - JVS(39963) = B(20296) -! JVS(39964) = Jac_FULL(5244,2863) - JVS(39964) = B(21368) -! JVS(39965) = Jac_FULL(5244,2878) - JVS(39965) = B(7129) -! JVS(39966) = Jac_FULL(5244,2881) - JVS(39966) = B(14177) -! JVS(39967) = Jac_FULL(5244,2905) - JVS(39967) = B(18700) -! JVS(39968) = Jac_FULL(5244,2910) - JVS(39968) = B(19723)+B(19724) -! JVS(39969) = Jac_FULL(5244,2920) - JVS(39969) = 0 -! JVS(39970) = Jac_FULL(5244,2923) - JVS(39970) = 0 -! JVS(39971) = Jac_FULL(5244,2970) - JVS(39971) = B(22214) -! JVS(39972) = Jac_FULL(5244,3005) - JVS(39972) = B(16413) -! JVS(39973) = Jac_FULL(5244,3006) - JVS(39973) = 0 -! JVS(39974) = Jac_FULL(5244,3031) - JVS(39974) = B(14078) -! JVS(39975) = Jac_FULL(5244,3035) - JVS(39975) = B(7049) -! JVS(39976) = Jac_FULL(5244,3057) - JVS(39976) = B(17611) -! JVS(39977) = Jac_FULL(5244,3067) - JVS(39977) = B(23346) -! JVS(39978) = Jac_FULL(5244,3094) - JVS(39978) = B(15792) -! JVS(39979) = Jac_FULL(5244,3104) - JVS(39979) = B(7077) -! JVS(39980) = Jac_FULL(5244,3109) - JVS(39980) = B(4726) -! JVS(39981) = Jac_FULL(5244,3124) - JVS(39981) = B(19659) -! JVS(39982) = Jac_FULL(5244,3128) - JVS(39982) = B(16764) -! JVS(39983) = Jac_FULL(5244,3133) - JVS(39983) = B(6161) -! JVS(39984) = Jac_FULL(5244,3168) - JVS(39984) = B(4705) -! JVS(39985) = Jac_FULL(5244,3209) - JVS(39985) = 2*B(15606) -! JVS(39986) = Jac_FULL(5244,3214) - JVS(39986) = 0 -! JVS(39987) = Jac_FULL(5244,3222) - JVS(39987) = B(7034) -! JVS(39988) = Jac_FULL(5244,3227) - JVS(39988) = B(9765) -! JVS(39989) = Jac_FULL(5244,3251) - JVS(39989) = B(9894)+B(9896)+B(9897) -! JVS(39990) = Jac_FULL(5244,3259) - JVS(39990) = B(18990) -! JVS(39991) = Jac_FULL(5244,3274) - JVS(39991) = B(22168) -! JVS(39992) = Jac_FULL(5244,3278) - JVS(39992) = 0 -! JVS(39993) = Jac_FULL(5244,3281) - JVS(39993) = B(18262) -! JVS(39994) = Jac_FULL(5244,3298) - JVS(39994) = B(15239)+B(15240) -! JVS(39995) = Jac_FULL(5244,3314) - JVS(39995) = B(7198) -! JVS(39996) = Jac_FULL(5244,3315) - JVS(39996) = 0 -! JVS(39997) = Jac_FULL(5244,3328) - JVS(39997) = 0 -! JVS(39998) = Jac_FULL(5244,3339) - JVS(39998) = B(9203)+B(9205) -! JVS(39999) = Jac_FULL(5244,3340) - JVS(39999) = B(9200) -! JVS(40000) = Jac_FULL(5244,3359) - JVS(40000) = B(9113)+B(9115) -! JVS(40001) = Jac_FULL(5244,3360) - JVS(40001) = B(9110) -! JVS(40002) = Jac_FULL(5244,3364) - JVS(40002) = 0 -! JVS(40003) = Jac_FULL(5244,3366) - JVS(40003) = B(13243) -! JVS(40004) = Jac_FULL(5244,3369) - JVS(40004) = B(857) -! JVS(40005) = Jac_FULL(5244,3376) - JVS(40005) = 0 -! JVS(40006) = Jac_FULL(5244,3378) - JVS(40006) = B(8881)+B(8883) -! JVS(40007) = Jac_FULL(5244,3379) - JVS(40007) = B(8878) -! JVS(40008) = Jac_FULL(5244,3382) - JVS(40008) = B(12003) -! JVS(40009) = Jac_FULL(5244,3384) - JVS(40009) = B(11912) -! JVS(40010) = Jac_FULL(5244,3391) - JVS(40010) = B(21213) -! JVS(40011) = Jac_FULL(5244,3409) - JVS(40011) = 0 -! JVS(40012) = Jac_FULL(5244,3419) - JVS(40012) = B(13277) -! JVS(40013) = Jac_FULL(5244,3434) - JVS(40013) = B(16436) -! JVS(40014) = Jac_FULL(5244,3436) - JVS(40014) = 0 -! JVS(40015) = Jac_FULL(5244,3441) - JVS(40015) = B(13274) -! JVS(40016) = Jac_FULL(5244,3444) - JVS(40016) = 0 -! JVS(40017) = Jac_FULL(5244,3448) - JVS(40017) = 0 -! JVS(40018) = Jac_FULL(5244,3450) - JVS(40018) = B(12582) -! JVS(40019) = Jac_FULL(5244,3452) - JVS(40019) = B(9789)+B(9791) -! JVS(40020) = Jac_FULL(5244,3455) - JVS(40020) = B(15790) -! JVS(40021) = Jac_FULL(5244,3464) - JVS(40021) = B(13675) -! JVS(40022) = Jac_FULL(5244,3468) - JVS(40022) = B(9211) -! JVS(40023) = Jac_FULL(5244,3469) - JVS(40023) = B(8980) -! JVS(40024) = Jac_FULL(5244,3475) - JVS(40024) = B(12680) -! JVS(40025) = Jac_FULL(5244,3476) - JVS(40025) = B(11686) -! JVS(40026) = Jac_FULL(5244,3480) - JVS(40026) = B(23840) -! JVS(40027) = Jac_FULL(5244,3484) - JVS(40027) = B(18129)+B(18131)+B(18133) -! JVS(40028) = Jac_FULL(5244,3487) - JVS(40028) = B(9769) -! JVS(40029) = Jac_FULL(5244,3495) - JVS(40029) = B(23359) -! JVS(40030) = Jac_FULL(5244,3498) - JVS(40030) = B(7134) -! JVS(40031) = Jac_FULL(5244,3505) - JVS(40031) = B(842) -! JVS(40032) = Jac_FULL(5244,3513) - JVS(40032) = B(19607) -! JVS(40033) = Jac_FULL(5244,3514) - JVS(40033) = 0 -! JVS(40034) = Jac_FULL(5244,3528) - JVS(40034) = B(17801) -! JVS(40035) = Jac_FULL(5244,3530) - JVS(40035) = B(7117) -! JVS(40036) = Jac_FULL(5244,3535) - JVS(40036) = B(18147) -! JVS(40037) = Jac_FULL(5244,3536) - JVS(40037) = 0 -! JVS(40038) = Jac_FULL(5244,3537) - JVS(40038) = 0 -! JVS(40039) = Jac_FULL(5244,3546) - JVS(40039) = B(22217)+B(22219)+B(22221) -! JVS(40040) = Jac_FULL(5244,3556) - JVS(40040) = B(18522) -! JVS(40041) = Jac_FULL(5244,3565) - JVS(40041) = B(16356) -! JVS(40042) = Jac_FULL(5244,3566) - JVS(40042) = B(7961) -! JVS(40043) = Jac_FULL(5244,3578) - JVS(40043) = B(16209) -! JVS(40044) = Jac_FULL(5244,3583) - JVS(40044) = B(856) -! JVS(40045) = Jac_FULL(5244,3593) - JVS(40045) = B(20195)+B(20197) -! JVS(40046) = Jac_FULL(5244,3594) - JVS(40046) = B(4599) -! JVS(40047) = Jac_FULL(5244,3595) - JVS(40047) = B(20049)+B(20051) -! JVS(40048) = Jac_FULL(5244,3602) - JVS(40048) = B(11463) -! JVS(40049) = Jac_FULL(5244,3611) - JVS(40049) = B(23361) -! JVS(40050) = Jac_FULL(5244,3615) - JVS(40050) = B(23842) -! JVS(40051) = Jac_FULL(5244,3618) - JVS(40051) = 0 -! JVS(40052) = Jac_FULL(5244,3622) - JVS(40052) = B(2716)+B(2717) -! JVS(40053) = Jac_FULL(5244,3623) - JVS(40053) = B(3938) -! JVS(40054) = Jac_FULL(5244,3624) - JVS(40054) = B(9887)+B(9889) -! JVS(40055) = Jac_FULL(5244,3647) - JVS(40055) = B(12459) -! JVS(40056) = Jac_FULL(5244,3652) - JVS(40056) = B(1493) -! JVS(40057) = Jac_FULL(5244,3664) - JVS(40057) = B(13062) -! JVS(40058) = Jac_FULL(5244,3681) - JVS(40058) = B(20265) -! JVS(40059) = Jac_FULL(5244,3702) - JVS(40059) = B(10179) -! JVS(40060) = Jac_FULL(5244,3707) - JVS(40060) = 0 -! JVS(40061) = Jac_FULL(5244,3708) - JVS(40061) = 0 -! JVS(40062) = Jac_FULL(5244,3709) - JVS(40062) = B(20221) -! JVS(40063) = Jac_FULL(5244,3723) - JVS(40063) = B(16408) -! JVS(40064) = Jac_FULL(5244,3729) - JVS(40064) = B(19951) -! JVS(40065) = Jac_FULL(5244,3734) - JVS(40065) = B(10625) -! JVS(40066) = Jac_FULL(5244,3735) - JVS(40066) = B(3774) -! JVS(40067) = Jac_FULL(5244,3742) - JVS(40067) = B(20025) -! JVS(40068) = Jac_FULL(5244,3747) - JVS(40068) = B(12031) -! JVS(40069) = Jac_FULL(5244,3756) - JVS(40069) = B(14144) -! JVS(40070) = Jac_FULL(5244,3757) - JVS(40070) = B(5180) -! JVS(40071) = Jac_FULL(5244,3765) - JVS(40071) = B(13222) -! JVS(40072) = Jac_FULL(5244,3767) - JVS(40072) = 0 -! JVS(40073) = Jac_FULL(5244,3783) - JVS(40073) = B(19904) -! JVS(40074) = Jac_FULL(5244,3821) - JVS(40074) = 2*B(12585) -! JVS(40075) = Jac_FULL(5244,3822) - JVS(40075) = B(12049) -! JVS(40076) = Jac_FULL(5244,3829) - JVS(40076) = B(13181)+B(13183) -! JVS(40077) = Jac_FULL(5244,3832) - JVS(40077) = B(9730)+2*B(9731) -! JVS(40078) = Jac_FULL(5244,3842) - JVS(40078) = 0 -! JVS(40079) = Jac_FULL(5244,3868) - JVS(40079) = B(831) -! JVS(40080) = Jac_FULL(5244,3889) - JVS(40080) = 0 -! JVS(40081) = Jac_FULL(5244,3897) - JVS(40081) = 0 -! JVS(40082) = Jac_FULL(5244,3906) - JVS(40082) = B(15195) -! JVS(40083) = Jac_FULL(5244,3909) - JVS(40083) = 0 -! JVS(40084) = Jac_FULL(5244,3918) - JVS(40084) = B(13247) -! JVS(40085) = Jac_FULL(5244,3922) - JVS(40085) = 0 -! JVS(40086) = Jac_FULL(5244,3930) - JVS(40086) = B(12578) -! JVS(40087) = Jac_FULL(5244,3931) - JVS(40087) = B(12576) -! JVS(40088) = Jac_FULL(5244,3933) - JVS(40088) = B(13642) -! JVS(40089) = Jac_FULL(5244,3948) - JVS(40089) = 0 -! JVS(40090) = Jac_FULL(5244,3965) - JVS(40090) = B(13156) -! JVS(40091) = Jac_FULL(5244,3968) - JVS(40091) = B(20243) -! JVS(40092) = Jac_FULL(5244,3970) - JVS(40092) = 0 -! JVS(40093) = Jac_FULL(5244,3978) - JVS(40093) = B(825) -! JVS(40094) = Jac_FULL(5244,3996) - JVS(40094) = B(2800) -! JVS(40095) = Jac_FULL(5244,4010) - JVS(40095) = B(2416) -! JVS(40096) = Jac_FULL(5244,4025) - JVS(40096) = 0 -! JVS(40097) = Jac_FULL(5244,4027) - JVS(40097) = B(2760) -! JVS(40098) = Jac_FULL(5244,4030) - JVS(40098) = 0 -! JVS(40099) = Jac_FULL(5244,4056) - JVS(40099) = B(2491) -! JVS(40100) = Jac_FULL(5244,4083) - JVS(40100) = B(2534) -! JVS(40101) = Jac_FULL(5244,4084) - JVS(40101) = B(5360)+B(5361) -! JVS(40102) = Jac_FULL(5244,4106) - JVS(40102) = 0 -! JVS(40103) = Jac_FULL(5244,4116) - JVS(40103) = 0 -! JVS(40104) = Jac_FULL(5244,4134) - JVS(40104) = 0 -! JVS(40105) = Jac_FULL(5244,4140) - JVS(40105) = 0 -! JVS(40106) = Jac_FULL(5244,4145) - JVS(40106) = 0 -! JVS(40107) = Jac_FULL(5244,4148) - JVS(40107) = 0 -! JVS(40108) = Jac_FULL(5244,4149) - JVS(40108) = 0 -! JVS(40109) = Jac_FULL(5244,4150) - JVS(40109) = 0 -! JVS(40110) = Jac_FULL(5244,4153) - JVS(40110) = 0 -! JVS(40111) = Jac_FULL(5244,4154) - JVS(40111) = B(20226)+B(20228)+B(20232)+B(20234) -! JVS(40112) = Jac_FULL(5244,4156) - JVS(40112) = 0 -! JVS(40113) = Jac_FULL(5244,4170) - JVS(40113) = 0 -! JVS(40114) = Jac_FULL(5244,4178) - JVS(40114) = B(13449)+B(13451)+B(13452) -! JVS(40115) = Jac_FULL(5244,4188) - JVS(40115) = 0 -! JVS(40116) = Jac_FULL(5244,4223) - JVS(40116) = 0 -! JVS(40117) = Jac_FULL(5244,4236) - JVS(40117) = 0 -! JVS(40118) = Jac_FULL(5244,4241) - JVS(40118) = B(19954)+B(19958)+B(19962)+B(19964) -! JVS(40119) = Jac_FULL(5244,4242) - JVS(40119) = 0 -! JVS(40120) = Jac_FULL(5244,4248) - JVS(40120) = B(11700) -! JVS(40121) = Jac_FULL(5244,4253) - JVS(40121) = B(20026)+B(20030)+B(20034)+B(20036) -! JVS(40122) = Jac_FULL(5244,4272) - JVS(40122) = B(2896) -! JVS(40123) = Jac_FULL(5244,4294) - JVS(40123) = B(16537) -! JVS(40124) = Jac_FULL(5244,4300) - JVS(40124) = B(7120) -! JVS(40125) = Jac_FULL(5244,4309) - JVS(40125) = 0 -! JVS(40126) = Jac_FULL(5244,4321) - JVS(40126) = 0 -! JVS(40127) = Jac_FULL(5244,4322) - JVS(40127) = 0 -! JVS(40128) = Jac_FULL(5244,4323) - JVS(40128) = 0 -! JVS(40129) = Jac_FULL(5244,4324) - JVS(40129) = B(20200)+B(20202)+B(20206)+B(20208) -! JVS(40130) = Jac_FULL(5244,4325) - JVS(40130) = B(15799)+B(15800) -! JVS(40131) = Jac_FULL(5244,4326) - JVS(40131) = 0 -! JVS(40132) = Jac_FULL(5244,4327) - JVS(40132) = 0 -! JVS(40133) = Jac_FULL(5244,4329) - JVS(40133) = B(21325)+B(21327)+B(21331)+B(21333) -! JVS(40134) = Jac_FULL(5244,4330) - JVS(40134) = B(4276) -! JVS(40135) = Jac_FULL(5244,4334) - JVS(40135) = 0 -! JVS(40136) = Jac_FULL(5244,4336) - JVS(40136) = 0 -! JVS(40137) = Jac_FULL(5244,4340) - JVS(40137) = 0 -! JVS(40138) = Jac_FULL(5244,4344) - JVS(40138) = 0 -! JVS(40139) = Jac_FULL(5244,4345) - JVS(40139) = 0 -! JVS(40140) = Jac_FULL(5244,4347) - JVS(40140) = 0 -! JVS(40141) = Jac_FULL(5244,4352) - JVS(40141) = B(12190) -! JVS(40142) = Jac_FULL(5244,4371) - JVS(40142) = 0 -! JVS(40143) = Jac_FULL(5244,4374) - JVS(40143) = 0 -! JVS(40144) = Jac_FULL(5244,4379) - JVS(40144) = B(16133) -! JVS(40145) = Jac_FULL(5244,4383) - JVS(40145) = B(6995) -! JVS(40146) = Jac_FULL(5244,4384) - JVS(40146) = 0 -! JVS(40147) = Jac_FULL(5244,4386) - JVS(40147) = B(3709) -! JVS(40148) = Jac_FULL(5244,4387) - JVS(40148) = 0 -! JVS(40149) = Jac_FULL(5244,4390) - JVS(40149) = 0 -! JVS(40150) = Jac_FULL(5244,4391) - JVS(40150) = B(7044) -! JVS(40151) = Jac_FULL(5244,4392) - JVS(40151) = B(14059) -! JVS(40152) = Jac_FULL(5244,4401) - JVS(40152) = B(13421) -! JVS(40153) = Jac_FULL(5244,4416) - JVS(40153) = 0 -! JVS(40154) = Jac_FULL(5244,4422) - JVS(40154) = 0 -! JVS(40155) = Jac_FULL(5244,4440) - JVS(40155) = 0 -! JVS(40156) = Jac_FULL(5244,4446) - JVS(40156) = 0 -! JVS(40157) = Jac_FULL(5244,4448) - JVS(40157) = 0 -! JVS(40158) = Jac_FULL(5244,4449) - JVS(40158) = B(21364) -! JVS(40159) = Jac_FULL(5244,4472) - JVS(40159) = 0 -! JVS(40160) = Jac_FULL(5244,4473) - JVS(40160) = 0 -! JVS(40161) = Jac_FULL(5244,4474) - JVS(40161) = 0 -! JVS(40162) = Jac_FULL(5244,4480) - JVS(40162) = 0 -! JVS(40163) = Jac_FULL(5244,4481) - JVS(40163) = 0 -! JVS(40164) = Jac_FULL(5244,4483) - JVS(40164) = 0 -! JVS(40165) = Jac_FULL(5244,4486) - JVS(40165) = 0 -! JVS(40166) = Jac_FULL(5244,4488) - JVS(40166) = 0 -! JVS(40167) = Jac_FULL(5244,4489) - JVS(40167) = B(21301)+B(21303)+B(21307)+B(21309) -! JVS(40168) = Jac_FULL(5244,4490) - JVS(40168) = 0 -! JVS(40169) = Jac_FULL(5244,4491) - JVS(40169) = B(12418) -! JVS(40170) = Jac_FULL(5244,4493) - JVS(40170) = B(19065) -! JVS(40171) = Jac_FULL(5244,4524) - JVS(40171) = B(3798) -! JVS(40172) = Jac_FULL(5244,4534) - JVS(40172) = B(16360) -! JVS(40173) = Jac_FULL(5244,4535) - JVS(40173) = 0 -! JVS(40174) = Jac_FULL(5244,4550) - JVS(40174) = 0 -! JVS(40175) = Jac_FULL(5244,4558) - JVS(40175) = 0 -! JVS(40176) = Jac_FULL(5244,4560) - JVS(40176) = 0 -! JVS(40177) = Jac_FULL(5244,4564) - JVS(40177) = B(10459) -! JVS(40178) = Jac_FULL(5244,4566) - JVS(40178) = 0 -! JVS(40179) = Jac_FULL(5244,4567) - JVS(40179) = 0 -! JVS(40180) = Jac_FULL(5244,4568) - JVS(40180) = 0 -! JVS(40181) = Jac_FULL(5244,4569) - JVS(40181) = B(6159) -! JVS(40182) = Jac_FULL(5244,4570) - JVS(40182) = 0 -! JVS(40183) = Jac_FULL(5244,4573) - JVS(40183) = 0 -! JVS(40184) = Jac_FULL(5244,4577) - JVS(40184) = 0 -! JVS(40185) = Jac_FULL(5244,4581) - JVS(40185) = 0 -! JVS(40186) = Jac_FULL(5244,4586) - JVS(40186) = 0 -! JVS(40187) = Jac_FULL(5244,4590) - JVS(40187) = 0 -! JVS(40188) = Jac_FULL(5244,4594) - JVS(40188) = 0 -! JVS(40189) = Jac_FULL(5244,4605) - JVS(40189) = 0 -! JVS(40190) = Jac_FULL(5244,4607) - JVS(40190) = 0 -! JVS(40191) = Jac_FULL(5244,4608) - JVS(40191) = 0 -! JVS(40192) = Jac_FULL(5244,4612) - JVS(40192) = 0 -! JVS(40193) = Jac_FULL(5244,4613) - JVS(40193) = 0 -! JVS(40194) = Jac_FULL(5244,4614) - JVS(40194) = 0 -! JVS(40195) = Jac_FULL(5244,4616) - JVS(40195) = 0 -! JVS(40196) = Jac_FULL(5244,4617) - JVS(40196) = 0 -! JVS(40197) = Jac_FULL(5244,4618) - JVS(40197) = B(7054) -! JVS(40198) = Jac_FULL(5244,4625) - JVS(40198) = 0 -! JVS(40199) = Jac_FULL(5244,4630) - JVS(40199) = B(5994) -! JVS(40200) = Jac_FULL(5244,4644) - JVS(40200) = 0 -! JVS(40201) = Jac_FULL(5244,4647) - JVS(40201) = 0 -! JVS(40202) = Jac_FULL(5244,4669) - JVS(40202) = 0 -! JVS(40203) = Jac_FULL(5244,4674) - JVS(40203) = 0 -! JVS(40204) = Jac_FULL(5244,4693) - JVS(40204) = B(12502)+B(12503) -! JVS(40205) = Jac_FULL(5244,4694) - JVS(40205) = B(13208) -! JVS(40206) = Jac_FULL(5244,4699) - JVS(40206) = 0 -! JVS(40207) = Jac_FULL(5244,4702) - JVS(40207) = 0 -! JVS(40208) = Jac_FULL(5244,4703) - JVS(40208) = 0 -! JVS(40209) = Jac_FULL(5244,4706) - JVS(40209) = 0 -! JVS(40210) = Jac_FULL(5244,4711) - JVS(40210) = 0 -! JVS(40211) = Jac_FULL(5244,4714) - JVS(40211) = 0 -! JVS(40212) = Jac_FULL(5244,4718) - JVS(40212) = 0 -! JVS(40213) = Jac_FULL(5244,4719) - JVS(40213) = 0 -! JVS(40214) = Jac_FULL(5244,4722) - JVS(40214) = 0 -! JVS(40215) = Jac_FULL(5244,4723) - JVS(40215) = 0 -! JVS(40216) = Jac_FULL(5244,4724) - JVS(40216) = 0 -! JVS(40217) = Jac_FULL(5244,4726) - JVS(40217) = 0 -! JVS(40218) = Jac_FULL(5244,4731) - JVS(40218) = B(21470)+B(21472)+B(21476)+B(21478) -! JVS(40219) = Jac_FULL(5244,4742) - JVS(40219) = 0 -! JVS(40220) = Jac_FULL(5244,4749) - JVS(40220) = 0 -! JVS(40221) = Jac_FULL(5244,4750) - JVS(40221) = 0 -! JVS(40222) = Jac_FULL(5244,4754) - JVS(40222) = 0 -! JVS(40223) = Jac_FULL(5244,4758) - JVS(40223) = 0 -! JVS(40224) = Jac_FULL(5244,4767) - JVS(40224) = 0 -! JVS(40225) = Jac_FULL(5244,4769) - JVS(40225) = 0 -! JVS(40226) = Jac_FULL(5244,4770) - JVS(40226) = 0 -! JVS(40227) = Jac_FULL(5244,4772) - JVS(40227) = 0 -! JVS(40228) = Jac_FULL(5244,4773) - JVS(40228) = 0 -! JVS(40229) = Jac_FULL(5244,4779) - JVS(40229) = 0 -! JVS(40230) = Jac_FULL(5244,4780) - JVS(40230) = 0 -! JVS(40231) = Jac_FULL(5244,4782) - JVS(40231) = 0 -! JVS(40232) = Jac_FULL(5244,4784) - JVS(40232) = 0 -! JVS(40233) = Jac_FULL(5244,4785) - JVS(40233) = 0 -! JVS(40234) = Jac_FULL(5244,4787) - JVS(40234) = 0 -! JVS(40235) = Jac_FULL(5244,4788) - JVS(40235) = 0 -! JVS(40236) = Jac_FULL(5244,4799) - JVS(40236) = 0 -! JVS(40237) = Jac_FULL(5244,4800) - JVS(40237) = B(15234) -! JVS(40238) = Jac_FULL(5244,4801) - JVS(40238) = B(7041) -! JVS(40239) = Jac_FULL(5244,4802) - JVS(40239) = 0 -! JVS(40240) = Jac_FULL(5244,4805) - JVS(40240) = B(13683) -! JVS(40241) = Jac_FULL(5244,4808) - JVS(40241) = 0 -! JVS(40242) = Jac_FULL(5244,4810) - JVS(40242) = 0 -! JVS(40243) = Jac_FULL(5244,4811) - JVS(40243) = 0 -! JVS(40244) = Jac_FULL(5244,4817) - JVS(40244) = 0 -! JVS(40245) = Jac_FULL(5244,4821) - JVS(40245) = 0 -! JVS(40246) = Jac_FULL(5244,4826) - JVS(40246) = 0 -! JVS(40247) = Jac_FULL(5244,4827) - JVS(40247) = 0 -! JVS(40248) = Jac_FULL(5244,4835) - JVS(40248) = 0 -! JVS(40249) = Jac_FULL(5244,4841) - JVS(40249) = 0 -! JVS(40250) = Jac_FULL(5244,4852) - JVS(40250) = 0 -! JVS(40251) = Jac_FULL(5244,4857) - JVS(40251) = 0 -! JVS(40252) = Jac_FULL(5244,4858) - JVS(40252) = 0 -! JVS(40253) = Jac_FULL(5244,4865) - JVS(40253) = B(13483) -! JVS(40254) = Jac_FULL(5244,4876) - JVS(40254) = 0 -! JVS(40255) = Jac_FULL(5244,4880) - JVS(40255) = 0 -! JVS(40256) = Jac_FULL(5244,4884) - JVS(40256) = 0 -! JVS(40257) = Jac_FULL(5244,4886) - JVS(40257) = 0 -! JVS(40258) = Jac_FULL(5244,4887) - JVS(40258) = 0 -! JVS(40259) = Jac_FULL(5244,4888) - JVS(40259) = 0 -! JVS(40260) = Jac_FULL(5244,4890) - JVS(40260) = 0 -! JVS(40261) = Jac_FULL(5244,4892) - JVS(40261) = 0 -! JVS(40262) = Jac_FULL(5244,4893) - JVS(40262) = 0 -! JVS(40263) = Jac_FULL(5244,4895) - JVS(40263) = 0 -! JVS(40264) = Jac_FULL(5244,4897) - JVS(40264) = 0 -! JVS(40265) = Jac_FULL(5244,4899) - JVS(40265) = 0 -! JVS(40266) = Jac_FULL(5244,4901) - JVS(40266) = 0 -! JVS(40267) = Jac_FULL(5244,4906) - JVS(40267) = 0 -! JVS(40268) = Jac_FULL(5244,4907) - JVS(40268) = B(3154) -! JVS(40269) = Jac_FULL(5244,4909) - JVS(40269) = 0 -! JVS(40270) = Jac_FULL(5244,4911) - JVS(40270) = 0 -! JVS(40271) = Jac_FULL(5244,4913) - JVS(40271) = 0 -! JVS(40272) = Jac_FULL(5244,4914) - JVS(40272) = 0 -! JVS(40273) = Jac_FULL(5244,4920) - JVS(40273) = 0 -! JVS(40274) = Jac_FULL(5244,4922) - JVS(40274) = 0 -! JVS(40275) = Jac_FULL(5244,4923) - JVS(40275) = 0 -! JVS(40276) = Jac_FULL(5244,4925) - JVS(40276) = 0 -! JVS(40277) = Jac_FULL(5244,4927) - JVS(40277) = 0 -! JVS(40278) = Jac_FULL(5244,4929) - JVS(40278) = 0 -! JVS(40279) = Jac_FULL(5244,4933) - JVS(40279) = B(6560) -! JVS(40280) = Jac_FULL(5244,4934) - JVS(40280) = 0 -! JVS(40281) = Jac_FULL(5244,4935) - JVS(40281) = 0 -! JVS(40282) = Jac_FULL(5244,4937) - JVS(40282) = 0 -! JVS(40283) = Jac_FULL(5244,4938) - JVS(40283) = 2*B(7014) -! JVS(40284) = Jac_FULL(5244,4945) - JVS(40284) = 0 -! JVS(40285) = Jac_FULL(5244,4946) - JVS(40285) = 0 -! JVS(40286) = Jac_FULL(5244,4947) - JVS(40286) = 0 -! JVS(40287) = Jac_FULL(5244,4948) - JVS(40287) = 0 -! JVS(40288) = Jac_FULL(5244,4950) - JVS(40288) = 0 -! JVS(40289) = Jac_FULL(5244,4952) - JVS(40289) = 0 -! JVS(40290) = Jac_FULL(5244,4955) - JVS(40290) = 0 -! JVS(40291) = Jac_FULL(5244,4967) - JVS(40291) = 0 -! JVS(40292) = Jac_FULL(5244,4968) - JVS(40292) = 0 -! JVS(40293) = Jac_FULL(5244,4971) - JVS(40293) = 0 -! JVS(40294) = Jac_FULL(5244,4973) - JVS(40294) = B(3698) -! JVS(40295) = Jac_FULL(5244,4974) - JVS(40295) = 0 -! JVS(40296) = Jac_FULL(5244,4975) - JVS(40296) = 0 -! JVS(40297) = Jac_FULL(5244,4976) - JVS(40297) = B(10523) -! JVS(40298) = Jac_FULL(5244,4977) - JVS(40298) = 0 -! JVS(40299) = Jac_FULL(5244,4979) - JVS(40299) = 0 -! JVS(40300) = Jac_FULL(5244,4982) - JVS(40300) = 0 -! JVS(40301) = Jac_FULL(5244,4985) - JVS(40301) = 0 -! JVS(40302) = Jac_FULL(5244,4986) - JVS(40302) = 0 -! JVS(40303) = Jac_FULL(5244,4987) - JVS(40303) = 0 -! JVS(40304) = Jac_FULL(5244,4988) - JVS(40304) = 0 -! JVS(40305) = Jac_FULL(5244,4990) - JVS(40305) = 0 -! JVS(40306) = Jac_FULL(5244,4991) - JVS(40306) = 0 -! JVS(40307) = Jac_FULL(5244,4992) - JVS(40307) = 0 -! JVS(40308) = Jac_FULL(5244,4993) - JVS(40308) = 0 -! JVS(40309) = Jac_FULL(5244,4994) - JVS(40309) = 0 -! JVS(40310) = Jac_FULL(5244,5002) - JVS(40310) = 0 -! JVS(40311) = Jac_FULL(5244,5003) - JVS(40311) = 0 -! JVS(40312) = Jac_FULL(5244,5007) - JVS(40312) = 0 -! JVS(40313) = Jac_FULL(5244,5008) - JVS(40313) = 0 -! JVS(40314) = Jac_FULL(5244,5010) - JVS(40314) = B(11798) -! JVS(40315) = Jac_FULL(5244,5011) - JVS(40315) = 0 -! JVS(40316) = Jac_FULL(5244,5015) - JVS(40316) = 0 -! JVS(40317) = Jac_FULL(5244,5016) - JVS(40317) = 0 -! JVS(40318) = Jac_FULL(5244,5018) - JVS(40318) = 0 -! JVS(40319) = Jac_FULL(5244,5020) - JVS(40319) = 0 -! JVS(40320) = Jac_FULL(5244,5025) - JVS(40320) = 0 -! JVS(40321) = Jac_FULL(5244,5028) - JVS(40321) = 0 -! JVS(40322) = Jac_FULL(5244,5029) - JVS(40322) = 0 -! JVS(40323) = Jac_FULL(5244,5030) - JVS(40323) = 0 -! JVS(40324) = Jac_FULL(5244,5031) - JVS(40324) = 2*B(13250) -! JVS(40325) = Jac_FULL(5244,5032) - JVS(40325) = 0 -! JVS(40326) = Jac_FULL(5244,5033) - JVS(40326) = B(13796)+B(13802)+B(13806)+B(13809) -! JVS(40327) = Jac_FULL(5244,5035) - JVS(40327) = 0 -! JVS(40328) = Jac_FULL(5244,5036) - JVS(40328) = 0 -! JVS(40329) = Jac_FULL(5244,5037) - JVS(40329) = B(9185) -! JVS(40330) = Jac_FULL(5244,5040) - JVS(40330) = 0 -! JVS(40331) = Jac_FULL(5244,5045) - JVS(40331) = 0 -! JVS(40332) = Jac_FULL(5244,5051) - JVS(40332) = 0 -! JVS(40333) = Jac_FULL(5244,5054) - JVS(40333) = 0 -! JVS(40334) = Jac_FULL(5244,5061) - JVS(40334) = 0 -! JVS(40335) = Jac_FULL(5244,5062) - JVS(40335) = 0 -! JVS(40336) = Jac_FULL(5244,5063) - JVS(40336) = 0 -! JVS(40337) = Jac_FULL(5244,5064) - JVS(40337) = B(11875) -! JVS(40338) = Jac_FULL(5244,5069) - JVS(40338) = 0 -! JVS(40339) = Jac_FULL(5244,5073) - JVS(40339) = 0 -! JVS(40340) = Jac_FULL(5244,5075) - JVS(40340) = 0 -! JVS(40341) = Jac_FULL(5244,5076) - JVS(40341) = 0 -! JVS(40342) = Jac_FULL(5244,5078) - JVS(40342) = 0 -! JVS(40343) = Jac_FULL(5244,5080) - JVS(40343) = B(10471) -! JVS(40344) = Jac_FULL(5244,5083) - JVS(40344) = 0 -! JVS(40345) = Jac_FULL(5244,5084) - JVS(40345) = 0 -! JVS(40346) = Jac_FULL(5244,5088) - JVS(40346) = 0 -! JVS(40347) = Jac_FULL(5244,5089) - JVS(40347) = 0 -! JVS(40348) = Jac_FULL(5244,5090) - JVS(40348) = 0 -! JVS(40349) = Jac_FULL(5244,5095) - JVS(40349) = 0 -! JVS(40350) = Jac_FULL(5244,5097) - JVS(40350) = 0 -! JVS(40351) = Jac_FULL(5244,5098) - JVS(40351) = 0 -! JVS(40352) = Jac_FULL(5244,5100) - JVS(40352) = 0 -! JVS(40353) = Jac_FULL(5244,5102) - JVS(40353) = 0 -! JVS(40354) = Jac_FULL(5244,5103) - JVS(40354) = B(10065) -! JVS(40355) = Jac_FULL(5244,5105) - JVS(40355) = B(16775) -! JVS(40356) = Jac_FULL(5244,5108) - JVS(40356) = 0 -! JVS(40357) = Jac_FULL(5244,5109) - JVS(40357) = 0 -! JVS(40358) = Jac_FULL(5244,5110) - JVS(40358) = B(14101)+B(14102) -! JVS(40359) = Jac_FULL(5244,5116) - JVS(40359) = 0 -! JVS(40360) = Jac_FULL(5244,5117) - JVS(40360) = 0 -! JVS(40361) = Jac_FULL(5244,5119) - JVS(40361) = 0 -! JVS(40362) = Jac_FULL(5244,5120) - JVS(40362) = 0 -! JVS(40363) = Jac_FULL(5244,5123) - JVS(40363) = 0 -! JVS(40364) = Jac_FULL(5244,5128) - JVS(40364) = 0 -! JVS(40365) = Jac_FULL(5244,5132) - JVS(40365) = 0 -! JVS(40366) = Jac_FULL(5244,5133) - JVS(40366) = 0 -! JVS(40367) = Jac_FULL(5244,5134) - JVS(40367) = 0 -! JVS(40368) = Jac_FULL(5244,5141) - JVS(40368) = 0 -! JVS(40369) = Jac_FULL(5244,5146) - JVS(40369) = 0 -! JVS(40370) = Jac_FULL(5244,5147) - JVS(40370) = 0 -! JVS(40371) = Jac_FULL(5244,5148) - JVS(40371) = 0 -! JVS(40372) = Jac_FULL(5244,5150) - JVS(40372) = 0 -! JVS(40373) = Jac_FULL(5244,5151) - JVS(40373) = 0 -! JVS(40374) = Jac_FULL(5244,5154) - JVS(40374) = 0 -! JVS(40375) = Jac_FULL(5244,5155) - JVS(40375) = 0 -! JVS(40376) = Jac_FULL(5244,5157) - JVS(40376) = B(7102) -! JVS(40377) = Jac_FULL(5244,5159) - JVS(40377) = 0 -! JVS(40378) = Jac_FULL(5244,5160) - JVS(40378) = B(813) -! JVS(40379) = Jac_FULL(5244,5161) - JVS(40379) = 0 -! JVS(40380) = Jac_FULL(5244,5162) - JVS(40380) = 0 -! JVS(40381) = Jac_FULL(5244,5163) - JVS(40381) = 0 -! JVS(40382) = Jac_FULL(5244,5166) - JVS(40382) = 0 -! JVS(40383) = Jac_FULL(5244,5167) - JVS(40383) = 0 -! JVS(40384) = Jac_FULL(5244,5168) - JVS(40384) = 0 -! JVS(40385) = Jac_FULL(5244,5169) - JVS(40385) = 0 -! JVS(40386) = Jac_FULL(5244,5172) - JVS(40386) = B(18758)+B(18762)+B(18766)+B(18768) -! JVS(40387) = Jac_FULL(5244,5173) - JVS(40387) = 0 -! JVS(40388) = Jac_FULL(5244,5174) - JVS(40388) = 0 -! JVS(40389) = Jac_FULL(5244,5175) - JVS(40389) = 0 -! JVS(40390) = Jac_FULL(5244,5176) - JVS(40390) = 0 -! JVS(40391) = Jac_FULL(5244,5177) - JVS(40391) = 0 -! JVS(40392) = Jac_FULL(5244,5178) - JVS(40392) = B(820) -! JVS(40393) = Jac_FULL(5244,5185) - JVS(40393) = 0 -! JVS(40394) = Jac_FULL(5244,5186) - JVS(40394) = 0 -! JVS(40395) = Jac_FULL(5244,5187) - JVS(40395) = 0 -! JVS(40396) = Jac_FULL(5244,5188) - JVS(40396) = B(1224) -! JVS(40397) = Jac_FULL(5244,5189) - JVS(40397) = 0 -! JVS(40398) = Jac_FULL(5244,5190) - JVS(40398) = 0 -! JVS(40399) = Jac_FULL(5244,5192) - JVS(40399) = 0 -! JVS(40400) = Jac_FULL(5244,5193) - JVS(40400) = B(178)+B(180) -! JVS(40401) = Jac_FULL(5244,5196) - JVS(40401) = 0 -! JVS(40402) = Jac_FULL(5244,5197) - JVS(40402) = 0 -! JVS(40403) = Jac_FULL(5244,5198) - JVS(40403) = 0 -! JVS(40404) = Jac_FULL(5244,5199) - JVS(40404) = B(13303)+B(13304)+B(13305)+B(13307) -! JVS(40405) = Jac_FULL(5244,5200) - JVS(40405) = 0 -! JVS(40406) = Jac_FULL(5244,5202) - JVS(40406) = 0 -! JVS(40407) = Jac_FULL(5244,5203) - JVS(40407) = 0 -! JVS(40408) = Jac_FULL(5244,5204) - JVS(40408) = 0 -! JVS(40409) = Jac_FULL(5244,5205) - JVS(40409) = 0 -! JVS(40410) = Jac_FULL(5244,5206) - JVS(40410) = 0 -! JVS(40411) = Jac_FULL(5244,5207) - JVS(40411) = 0 -! JVS(40412) = Jac_FULL(5244,5208) - JVS(40412) = 0 -! JVS(40413) = Jac_FULL(5244,5209) - JVS(40413) = 0 -! JVS(40414) = Jac_FULL(5244,5210) - JVS(40414) = 0 -! JVS(40415) = Jac_FULL(5244,5212) - JVS(40415) = 0 -! JVS(40416) = Jac_FULL(5244,5213) - JVS(40416) = 0 -! JVS(40417) = Jac_FULL(5244,5215) - JVS(40417) = 0 -! JVS(40418) = Jac_FULL(5244,5217) - JVS(40418) = 0 -! JVS(40419) = Jac_FULL(5244,5218) - JVS(40419) = 0 -! JVS(40420) = Jac_FULL(5244,5219) - JVS(40420) = 0 -! JVS(40421) = Jac_FULL(5244,5220) - JVS(40421) = B(10594) -! JVS(40422) = Jac_FULL(5244,5221) - JVS(40422) = 0 -! JVS(40423) = Jac_FULL(5244,5222) - JVS(40423) = B(1511)+B(1512)+B(1514) -! JVS(40424) = Jac_FULL(5244,5224) - JVS(40424) = 0 -! JVS(40425) = Jac_FULL(5244,5225) - JVS(40425) = B(10466) -! JVS(40426) = Jac_FULL(5244,5226) - JVS(40426) = 0 -! JVS(40427) = Jac_FULL(5244,5227) - JVS(40427) = B(3103) -! JVS(40428) = Jac_FULL(5244,5229) - JVS(40428) = 0 -! JVS(40429) = Jac_FULL(5244,5230) - JVS(40429) = 0 -! JVS(40430) = Jac_FULL(5244,5236) - JVS(40430) = 0 -! JVS(40431) = Jac_FULL(5244,5238) - JVS(40431) = 0 -! JVS(40432) = Jac_FULL(5244,5239) - JVS(40432) = 0 -! JVS(40433) = Jac_FULL(5244,5240) - JVS(40433) = 0 -! JVS(40434) = Jac_FULL(5244,5241) - JVS(40434) = 0 -! JVS(40435) = Jac_FULL(5244,5242) - JVS(40435) = 0 -! JVS(40436) = Jac_FULL(5244,5243) - JVS(40436) = 0 -! JVS(40437) = Jac_FULL(5244,5244) - JVS(40437) = -B(1201)-B(1203)-B(1205)-B(1207)-B(1209)-B(1211)-B(1213)-B(1214) -! JVS(40438) = Jac_FULL(5244,5245) - JVS(40438) = 0 -! JVS(40439) = Jac_FULL(5244,5246) - JVS(40439) = 0 -! JVS(40440) = Jac_FULL(5244,5247) - JVS(40440) = 0 -! JVS(40441) = Jac_FULL(5244,5248) - JVS(40441) = 0 -! JVS(40442) = Jac_FULL(5244,5249) - JVS(40442) = 0 -! JVS(40443) = Jac_FULL(5244,5250) - JVS(40443) = B(181)+B(1515)+B(3977)+B(7916)+B(8882)+B(8984)+B(9114)+B(9124)+B(9204)+B(9895)+B(10020)+B(10024)+B(11205)& - &+B(11349)+B(12504)+B(13182)+B(13308)+B(13450)+B(15427)+B(16627)+B(16765)+B(17208)+B(18132)+B(19237)& - &+B(19384)+B(19905)+B(19952)+B(20050)+B(20196)+B(20222)+B(20244)+B(20266)+B(21338)+B(21369)+B(22215)& - &+B(22220) -! JVS(40444) = Jac_FULL(5244,5251) - JVS(40444) = 0 -! JVS(40445) = Jac_FULL(5244,5252) - JVS(40445) = -B(1208)+B(13803)+B(18763)+B(19959)+B(20031)+B(20203)+B(20229)+B(21304)+B(21328)+B(21473) -! JVS(40446) = Jac_FULL(5244,5253) - JVS(40446) = -B(1210) -! JVS(40447) = Jac_FULL(5244,5254) - JVS(40447) = 0 -! JVS(40448) = Jac_FULL(5244,5255) - JVS(40448) = -B(1202)-B(1204)-B(1206)+B(13797)+B(18759)+B(19955)+B(20027)+B(20201)+B(20227)+B(21302)+B(21326)+B(21471) -! JVS(40449) = Jac_FULL(5244,5256) - JVS(40449) = B(179)-B(1212)+B(1513)+B(13306)+B(13807)+B(18130)+B(18767)+B(19963)+B(20035)+B(20207)+B(20233)+B(21308)& - &+B(21332)+B(21477)+B(22218) -! JVS(40450) = Jac_FULL(5244,5257) - JVS(40450) = 0 -! JVS(40451) = Jac_FULL(5244,5258) - JVS(40451) = B(4277) -! JVS(40452) = Jac_FULL(5245,1199) - JVS(40452) = B(23165) -! JVS(40453) = Jac_FULL(5245,1620) - JVS(40453) = B(22113) -! JVS(40454) = Jac_FULL(5245,1660) - JVS(40454) = B(23053) -! JVS(40455) = Jac_FULL(5245,2136) - JVS(40455) = 0 -! JVS(40456) = Jac_FULL(5245,2813) - JVS(40456) = B(23181) -! JVS(40457) = Jac_FULL(5245,3613) - JVS(40457) = 0 -! JVS(40458) = Jac_FULL(5245,4442) - JVS(40458) = 0 -! JVS(40459) = Jac_FULL(5245,4734) - JVS(40459) = 0 -! JVS(40460) = Jac_FULL(5245,5131) - JVS(40460) = 0 -! JVS(40461) = Jac_FULL(5245,5206) - JVS(40461) = 0 -! JVS(40462) = Jac_FULL(5245,5245) - JVS(40462) = -B(22719)-B(22721)-B(22723)-B(22725)-B(22727)-B(22729)-B(22731)-B(22732) -! JVS(40463) = Jac_FULL(5245,5248) - JVS(40463) = 0 -! JVS(40464) = Jac_FULL(5245,5249) - JVS(40464) = 0 -! JVS(40465) = Jac_FULL(5245,5250) - JVS(40465) = B(23054)+B(23166) -! JVS(40466) = Jac_FULL(5245,5251) - JVS(40466) = 0 -! JVS(40467) = Jac_FULL(5245,5252) - JVS(40467) = -B(22726) -! JVS(40468) = Jac_FULL(5245,5253) - JVS(40468) = -B(22728) -! JVS(40469) = Jac_FULL(5245,5254) - JVS(40469) = 0 -! JVS(40470) = Jac_FULL(5245,5255) - JVS(40470) = -B(22720)-B(22722)-B(22724) -! JVS(40471) = Jac_FULL(5245,5256) - JVS(40471) = -B(22730) -! JVS(40472) = Jac_FULL(5245,5257) - JVS(40472) = 0 -! JVS(40473) = Jac_FULL(5245,5258) - JVS(40473) = 0 -! JVS(40474) = Jac_FULL(5246,301) - JVS(40474) = B(19559) -! JVS(40475) = Jac_FULL(5246,1471) - JVS(40475) = B(19561) -! JVS(40476) = Jac_FULL(5246,2070) - JVS(40476) = B(6999) -! JVS(40477) = Jac_FULL(5246,3367) - JVS(40477) = B(7115) -! JVS(40478) = Jac_FULL(5246,3390) - JVS(40478) = B(17138) -! JVS(40479) = Jac_FULL(5246,3530) - JVS(40479) = B(7117) -! JVS(40480) = Jac_FULL(5246,3629) - JVS(40480) = B(19377) -! JVS(40481) = Jac_FULL(5246,3906) - JVS(40481) = B(15194) -! JVS(40482) = Jac_FULL(5246,4300) - JVS(40482) = 0 -! JVS(40483) = Jac_FULL(5246,4781) - JVS(40483) = 0 -! JVS(40484) = Jac_FULL(5246,4784) - JVS(40484) = 0 -! JVS(40485) = Jac_FULL(5246,4891) - JVS(40485) = 0 -! JVS(40486) = Jac_FULL(5246,5108) - JVS(40486) = 0 -! JVS(40487) = Jac_FULL(5246,5109) - JVS(40487) = 0 -! JVS(40488) = Jac_FULL(5246,5178) - JVS(40488) = B(814) -! JVS(40489) = Jac_FULL(5246,5179) - JVS(40489) = B(17486)+B(17488)+B(17492)+B(17495) -! JVS(40490) = Jac_FULL(5246,5196) - JVS(40490) = 0 -! JVS(40491) = Jac_FULL(5246,5206) - JVS(40491) = 0 -! JVS(40492) = Jac_FULL(5246,5211) - JVS(40492) = B(14927) -! JVS(40493) = Jac_FULL(5246,5212) - JVS(40493) = 0 -! JVS(40494) = Jac_FULL(5246,5236) - JVS(40494) = 0 -! JVS(40495) = Jac_FULL(5246,5238) - JVS(40495) = 0 -! JVS(40496) = Jac_FULL(5246,5245) - JVS(40496) = 0 -! JVS(40497) = Jac_FULL(5246,5246) - JVS(40497) = -B(3207)-B(3209)-B(3211)-B(3213)-B(3215)-B(3216)-B(3217) -! JVS(40498) = Jac_FULL(5246,5247) - JVS(40498) = 0 -! JVS(40499) = Jac_FULL(5246,5248) - JVS(40499) = 0 -! JVS(40500) = Jac_FULL(5246,5249) - JVS(40500) = 0 -! JVS(40501) = Jac_FULL(5246,5250) - JVS(40501) = B(815)+B(7000)+B(19560) -! JVS(40502) = Jac_FULL(5246,5251) - JVS(40502) = 0 -! JVS(40503) = Jac_FULL(5246,5252) - JVS(40503) = -B(3210)-B(3212)+B(17489) -! JVS(40504) = Jac_FULL(5246,5253) - JVS(40504) = 0 -! JVS(40505) = Jac_FULL(5246,5254) - JVS(40505) = 0 -! JVS(40506) = Jac_FULL(5246,5255) - JVS(40506) = -B(3208)+B(17487) -! JVS(40507) = Jac_FULL(5246,5256) - JVS(40507) = -B(3214)+B(17493) -! JVS(40508) = Jac_FULL(5246,5257) - JVS(40508) = 0 -! JVS(40509) = Jac_FULL(5246,5258) - JVS(40509) = 0 -! JVS(40510) = Jac_FULL(5247,189) - JVS(40510) = B(17241) -! JVS(40511) = Jac_FULL(5247,871) - JVS(40511) = B(20985) -! JVS(40512) = Jac_FULL(5247,1523) - JVS(40512) = 0 -! JVS(40513) = Jac_FULL(5247,1828) - JVS(40513) = B(17229)+B(17231) -! JVS(40514) = Jac_FULL(5247,2165) - JVS(40514) = 0 -! JVS(40515) = Jac_FULL(5247,2737) - JVS(40515) = 0 -! JVS(40516) = Jac_FULL(5247,3242) - JVS(40516) = B(17242) -! JVS(40517) = Jac_FULL(5247,3564) - JVS(40517) = 0 -! JVS(40518) = Jac_FULL(5247,4183) - JVS(40518) = 0 -! JVS(40519) = Jac_FULL(5247,4542) - JVS(40519) = 0 -! JVS(40520) = Jac_FULL(5247,4745) - JVS(40520) = 0 -! JVS(40521) = Jac_FULL(5247,4746) - JVS(40521) = 0 -! JVS(40522) = Jac_FULL(5247,4921) - JVS(40522) = 0 -! JVS(40523) = Jac_FULL(5247,4940) - JVS(40523) = 0 -! JVS(40524) = Jac_FULL(5247,4988) - JVS(40524) = 0 -! JVS(40525) = Jac_FULL(5247,5048) - JVS(40525) = 0 -! JVS(40526) = Jac_FULL(5247,5092) - JVS(40526) = 0 -! JVS(40527) = Jac_FULL(5247,5099) - JVS(40527) = 0 -! JVS(40528) = Jac_FULL(5247,5206) - JVS(40528) = 0 -! JVS(40529) = Jac_FULL(5247,5247) - JVS(40529) = -B(19428)-B(19430)-B(19432)-B(19434)-B(19435) -! JVS(40530) = Jac_FULL(5247,5248) - JVS(40530) = 0 -! JVS(40531) = Jac_FULL(5247,5249) - JVS(40531) = 0 -! JVS(40532) = Jac_FULL(5247,5250) - JVS(40532) = B(17230)+B(17243)+B(20986) -! JVS(40533) = Jac_FULL(5247,5251) - JVS(40533) = 0 -! JVS(40534) = Jac_FULL(5247,5252) - JVS(40534) = -B(19431) -! JVS(40535) = Jac_FULL(5247,5253) - JVS(40535) = 0 -! JVS(40536) = Jac_FULL(5247,5254) - JVS(40536) = 0 -! JVS(40537) = Jac_FULL(5247,5255) - JVS(40537) = -B(19429) -! JVS(40538) = Jac_FULL(5247,5256) - JVS(40538) = -B(19433) -! JVS(40539) = Jac_FULL(5247,5257) - JVS(40539) = 0 -! JVS(40540) = Jac_FULL(5247,5258) - JVS(40540) = 0 -! JVS(40541) = Jac_FULL(5248,621) - JVS(40541) = B(14551) -! JVS(40542) = Jac_FULL(5248,663) - JVS(40542) = B(17398) -! JVS(40543) = Jac_FULL(5248,667) - JVS(40543) = B(14629) -! JVS(40544) = Jac_FULL(5248,673) - JVS(40544) = B(17373) -! JVS(40545) = Jac_FULL(5248,730) - JVS(40545) = B(17392) -! JVS(40546) = Jac_FULL(5248,1334) - JVS(40546) = B(17390) -! JVS(40547) = Jac_FULL(5248,1862) - JVS(40547) = 0 -! JVS(40548) = Jac_FULL(5248,1918) - JVS(40548) = B(14626) -! JVS(40549) = Jac_FULL(5248,2098) - JVS(40549) = 0 -! JVS(40550) = Jac_FULL(5248,2266) - JVS(40550) = 0 -! JVS(40551) = Jac_FULL(5248,3039) - JVS(40551) = B(14628) -! JVS(40552) = Jac_FULL(5248,3074) - JVS(40552) = B(14550) -! JVS(40553) = Jac_FULL(5248,3844) - JVS(40553) = 0 -! JVS(40554) = Jac_FULL(5248,3883) - JVS(40554) = 0 -! JVS(40555) = Jac_FULL(5248,3920) - JVS(40555) = 0 -! JVS(40556) = Jac_FULL(5248,3966) - JVS(40556) = 0 -! JVS(40557) = Jac_FULL(5248,3988) - JVS(40557) = 0 -! JVS(40558) = Jac_FULL(5248,4264) - JVS(40558) = B(14553)+B(14555)+B(14557)+B(14559)+B(14561) -! JVS(40559) = Jac_FULL(5248,4691) - JVS(40559) = B(14791)+B(14793)+B(14795)+B(14797)+B(14800) -! JVS(40560) = Jac_FULL(5248,5248) - JVS(40560) = -B(11285)-B(11287)-B(11289)-B(11291)-B(11293)-B(11295)-B(11297) -! JVS(40561) = Jac_FULL(5248,5249) - JVS(40561) = 0 -! JVS(40562) = Jac_FULL(5248,5250) - JVS(40562) = -B(11288)-B(11290)-B(11292)-B(11294)-B(11296)+B(14552)+B(14627)+B(14630)+B(17391) -! JVS(40563) = Jac_FULL(5248,5251) - JVS(40563) = B(14554)+B(14792) -! JVS(40564) = Jac_FULL(5248,5252) - JVS(40564) = B(14556)+B(14794) -! JVS(40565) = Jac_FULL(5248,5253) - JVS(40565) = B(14558)+B(14796) -! JVS(40566) = Jac_FULL(5248,5254) - JVS(40566) = B(14560)+B(14798) -! JVS(40567) = Jac_FULL(5248,5255) - JVS(40567) = 0 -! JVS(40568) = Jac_FULL(5248,5256) - JVS(40568) = -B(11286) -! JVS(40569) = Jac_FULL(5248,5257) - JVS(40569) = B(7486) -! JVS(40570) = Jac_FULL(5248,5258) - JVS(40570) = B(7487) -! JVS(40571) = Jac_FULL(5249,661) - JVS(40571) = B(7586) -! JVS(40572) = Jac_FULL(5249,2242) - JVS(40572) = B(7583) -! JVS(40573) = Jac_FULL(5249,2961) - JVS(40573) = B(7585) -! JVS(40574) = Jac_FULL(5249,3898) - JVS(40574) = 0 -! JVS(40575) = Jac_FULL(5249,4678) - JVS(40575) = B(14801)+B(14803)+B(14805)+B(14807) -! JVS(40576) = Jac_FULL(5249,4988) - JVS(40576) = 0 -! JVS(40577) = Jac_FULL(5249,5249) - JVS(40577) = -B(11424)-B(11426)-B(11428)-B(11430)-B(11432)-B(11434)-B(11436) -! JVS(40578) = Jac_FULL(5249,5250) - JVS(40578) = B(7584)+B(7587)-B(11435)-B(11437) -! JVS(40579) = Jac_FULL(5249,5251) - JVS(40579) = B(14802) -! JVS(40580) = Jac_FULL(5249,5252) - JVS(40580) = B(14804) -! JVS(40581) = Jac_FULL(5249,5253) - JVS(40581) = B(14806) -! JVS(40582) = Jac_FULL(5249,5254) - JVS(40582) = B(14808) -! JVS(40583) = Jac_FULL(5249,5255) - JVS(40583) = 0 -! JVS(40584) = Jac_FULL(5249,5256) - JVS(40584) = -B(11425) -! JVS(40585) = Jac_FULL(5249,5258) - JVS(40585) = -B(11427)-B(11429)-B(11431)-B(11433) -! JVS(40586) = Jac_FULL(5250,4) - JVS(40586) = 2*B(24) -! JVS(40587) = Jac_FULL(5250,12) - JVS(40587) = -B(7917) -! JVS(40588) = Jac_FULL(5250,13) - JVS(40588) = -B(9842) -! JVS(40589) = Jac_FULL(5250,15) - JVS(40589) = -B(22242) -! JVS(40590) = Jac_FULL(5250,17) - JVS(40590) = -B(9756) -! JVS(40591) = Jac_FULL(5250,18) - JVS(40591) = -B(10201) -! JVS(40592) = Jac_FULL(5250,19) - JVS(40592) = 2*B(13785) -! JVS(40593) = Jac_FULL(5250,20) - JVS(40593) = B(20873) -! JVS(40594) = Jac_FULL(5250,21) - JVS(40594) = -B(16563) -! JVS(40595) = Jac_FULL(5250,22) - JVS(40595) = -B(6283) -! JVS(40596) = Jac_FULL(5250,24) - JVS(40596) = -B(16944) -! JVS(40597) = Jac_FULL(5250,26) - JVS(40597) = -B(23237) -! JVS(40598) = Jac_FULL(5250,27) - JVS(40598) = B(17075) -! JVS(40599) = Jac_FULL(5250,28) - JVS(40599) = -B(11154) -! JVS(40600) = Jac_FULL(5250,29) - JVS(40600) = 2*B(13684) -! JVS(40601) = Jac_FULL(5250,30) - JVS(40601) = -B(20989) -! JVS(40602) = Jac_FULL(5250,31) - JVS(40602) = -B(9145) -! JVS(40603) = Jac_FULL(5250,32) - JVS(40603) = -B(5200) -! JVS(40604) = Jac_FULL(5250,33) - JVS(40604) = -B(18245) -! JVS(40605) = Jac_FULL(5250,34) - JVS(40605) = -B(4717) -! JVS(40606) = Jac_FULL(5250,37) - JVS(40606) = B(2329) -! JVS(40607) = Jac_FULL(5250,38) - JVS(40607) = -B(16201) -! JVS(40608) = Jac_FULL(5250,39) - JVS(40608) = -B(16443) -! JVS(40609) = Jac_FULL(5250,40) - JVS(40609) = -B(22831) -! JVS(40610) = Jac_FULL(5250,41) - JVS(40610) = -B(15722) -! JVS(40611) = Jac_FULL(5250,46) - JVS(40611) = -B(16185) -! JVS(40612) = Jac_FULL(5250,47) - JVS(40612) = -B(9280) -! JVS(40613) = Jac_FULL(5250,48) - JVS(40613) = -B(16561) -! JVS(40614) = Jac_FULL(5250,52) - JVS(40614) = -B(6034) -! JVS(40615) = Jac_FULL(5250,53) - JVS(40615) = -B(20013) -! JVS(40616) = Jac_FULL(5250,54) - JVS(40616) = -B(6206) -! JVS(40617) = Jac_FULL(5250,55) - JVS(40617) = -B(13638) -! JVS(40618) = Jac_FULL(5250,56) - JVS(40618) = -B(18143) -! JVS(40619) = Jac_FULL(5250,58) - JVS(40619) = -B(15737) -! JVS(40620) = Jac_FULL(5250,59) - JVS(40620) = -B(21079) -! JVS(40621) = Jac_FULL(5250,60) - JVS(40621) = -B(23722) -! JVS(40622) = Jac_FULL(5250,61) - JVS(40622) = B(23378) -! JVS(40623) = Jac_FULL(5250,62) - JVS(40623) = -B(16650) -! JVS(40624) = Jac_FULL(5250,63) - JVS(40624) = -B(16195) -! JVS(40625) = Jac_FULL(5250,64) - JVS(40625) = -B(4667) -! JVS(40626) = Jac_FULL(5250,67) - JVS(40626) = B(16613) -! JVS(40627) = Jac_FULL(5250,68) - JVS(40627) = -B(9640) -! JVS(40628) = Jac_FULL(5250,70) - JVS(40628) = -B(13884) -! JVS(40629) = Jac_FULL(5250,71) - JVS(40629) = -B(9511) -! JVS(40630) = Jac_FULL(5250,72) - JVS(40630) = -B(21456) -! JVS(40631) = Jac_FULL(5250,73) - JVS(40631) = -B(15649) -! JVS(40632) = Jac_FULL(5250,74) - JVS(40632) = -B(10235) -! JVS(40633) = Jac_FULL(5250,75) - JVS(40633) = -B(22234) -! JVS(40634) = Jac_FULL(5250,77) - JVS(40634) = -B(16798) -! JVS(40635) = Jac_FULL(5250,79) - JVS(40635) = -B(17003) -! JVS(40636) = Jac_FULL(5250,81) - JVS(40636) = -B(6441) -! JVS(40637) = Jac_FULL(5250,83) - JVS(40637) = -B(23700) -! JVS(40638) = Jac_FULL(5250,84) - JVS(40638) = -B(9243) -! JVS(40639) = Jac_FULL(5250,87) - JVS(40639) = -B(17368) -! JVS(40640) = Jac_FULL(5250,89) - JVS(40640) = -B(5851) -! JVS(40641) = Jac_FULL(5250,90) - JVS(40641) = -B(18555) -! JVS(40642) = Jac_FULL(5250,93) - JVS(40642) = -B(18638) -! JVS(40643) = Jac_FULL(5250,94) - JVS(40643) = -B(8772) -! JVS(40644) = Jac_FULL(5250,95) - JVS(40644) = -B(7312) -! JVS(40645) = Jac_FULL(5250,98) - JVS(40645) = -B(23231) -! JVS(40646) = Jac_FULL(5250,99) - JVS(40646) = -B(22123) -! JVS(40647) = Jac_FULL(5250,100) - JVS(40647) = -B(15602) -! JVS(40648) = Jac_FULL(5250,101) - JVS(40648) = -B(23225) -! JVS(40649) = Jac_FULL(5250,102) - JVS(40649) = -B(5599) -! JVS(40650) = Jac_FULL(5250,103) - JVS(40650) = -B(18288) -! JVS(40651) = Jac_FULL(5250,104) - JVS(40651) = -B(7405) -! JVS(40652) = Jac_FULL(5250,105) - JVS(40652) = -B(10560) -! JVS(40653) = Jac_FULL(5250,106) - JVS(40653) = -B(18673) -! JVS(40654) = Jac_FULL(5250,108) - JVS(40654) = -B(22075) -! JVS(40655) = Jac_FULL(5250,109) - JVS(40655) = -B(9011) -! JVS(40656) = Jac_FULL(5250,110) - JVS(40656) = -B(18044) -! JVS(40657) = Jac_FULL(5250,111) - JVS(40657) = -B(10123) -! JVS(40658) = Jac_FULL(5250,112) - JVS(40658) = B(22554) -! JVS(40659) = Jac_FULL(5250,114) - JVS(40659) = -B(13892) -! JVS(40660) = Jac_FULL(5250,118) - JVS(40660) = -B(22114) -! JVS(40661) = Jac_FULL(5250,119) - JVS(40661) = -B(9984) -! JVS(40662) = Jac_FULL(5250,121) - JVS(40662) = -B(20850) -! JVS(40663) = Jac_FULL(5250,122) - JVS(40663) = -B(22250) -! JVS(40664) = Jac_FULL(5250,123) - JVS(40664) = -B(18880) -! JVS(40665) = Jac_FULL(5250,124) - JVS(40665) = -B(10043) -! JVS(40666) = Jac_FULL(5250,126) - JVS(40666) = -B(3734) -! JVS(40667) = Jac_FULL(5250,127) - JVS(40667) = -B(17345) -! JVS(40668) = Jac_FULL(5250,128) - JVS(40668) = -B(6537) -! JVS(40669) = Jac_FULL(5250,129) - JVS(40669) = -B(6358) -! JVS(40670) = Jac_FULL(5250,131) - JVS(40670) = B(16538) -! JVS(40671) = Jac_FULL(5250,133) - JVS(40671) = -B(4613) -! JVS(40672) = Jac_FULL(5250,134) - JVS(40672) = -B(23109) -! JVS(40673) = Jac_FULL(5250,135) - JVS(40673) = -B(5410) -! JVS(40674) = Jac_FULL(5250,136) - JVS(40674) = -B(8779) -! JVS(40675) = Jac_FULL(5250,139) - JVS(40675) = -B(4738) -! JVS(40676) = Jac_FULL(5250,143) - JVS(40676) = -B(9404) -! JVS(40677) = Jac_FULL(5250,144) - JVS(40677) = -B(4571) -! JVS(40678) = Jac_FULL(5250,147) - JVS(40678) = -B(7372) -! JVS(40679) = Jac_FULL(5250,148) - JVS(40679) = B(14409) -! JVS(40680) = Jac_FULL(5250,181) - JVS(40680) = -B(124)-B(126)-B(128) -! JVS(40681) = Jac_FULL(5250,198) - JVS(40681) = -B(593) -! JVS(40682) = Jac_FULL(5250,207) - JVS(40682) = -B(17496) -! JVS(40683) = Jac_FULL(5250,208) - JVS(40683) = -B(13965) -! JVS(40684) = Jac_FULL(5250,209) - JVS(40684) = -B(20707) -! JVS(40685) = Jac_FULL(5250,210) - JVS(40685) = -B(20766) -! JVS(40686) = Jac_FULL(5250,212) - JVS(40686) = -B(18090) -! JVS(40687) = Jac_FULL(5250,213) - JVS(40687) = -B(22129) -! JVS(40688) = Jac_FULL(5250,214) - JVS(40688) = B(13171) -! JVS(40689) = Jac_FULL(5250,215) - JVS(40689) = -B(21010) -! JVS(40690) = Jac_FULL(5250,216) - JVS(40690) = -B(15784) -! JVS(40691) = Jac_FULL(5250,217) - JVS(40691) = -B(18906)-B(18908) -! JVS(40692) = Jac_FULL(5250,218) - JVS(40692) = -B(23219) -! JVS(40693) = Jac_FULL(5250,219) - JVS(40693) = -B(17122) -! JVS(40694) = Jac_FULL(5250,220) - JVS(40694) = -B(11915) -! JVS(40695) = Jac_FULL(5250,221) - JVS(40695) = -B(401) -! JVS(40696) = Jac_FULL(5250,222) - JVS(40696) = -B(11625) -! JVS(40697) = Jac_FULL(5250,223) - JVS(40697) = -B(12062) -! JVS(40698) = Jac_FULL(5250,224) - JVS(40698) = B(14516)+B(14517) -! JVS(40699) = Jac_FULL(5250,225) - JVS(40699) = -B(5396) -! JVS(40700) = Jac_FULL(5250,226) - JVS(40700) = -B(16716) -! JVS(40701) = Jac_FULL(5250,227) - JVS(40701) = -B(13052) -! JVS(40702) = Jac_FULL(5250,228) - JVS(40702) = -B(4504) -! JVS(40703) = Jac_FULL(5250,229) - JVS(40703) = -B(16772) -! JVS(40704) = Jac_FULL(5250,230) - JVS(40704) = -B(19633) -! JVS(40705) = Jac_FULL(5250,231) - JVS(40705) = -B(11622) -! JVS(40706) = Jac_FULL(5250,232) - JVS(40706) = -B(4025) -! JVS(40707) = Jac_FULL(5250,233) - JVS(40707) = -B(15457) -! JVS(40708) = Jac_FULL(5250,234) - JVS(40708) = -B(4729) -! JVS(40709) = Jac_FULL(5250,235) - JVS(40709) = -B(421) -! JVS(40710) = Jac_FULL(5250,236) - JVS(40710) = B(11284) -! JVS(40711) = Jac_FULL(5250,237) - JVS(40711) = -B(11438) -! JVS(40712) = Jac_FULL(5250,238) - JVS(40712) = -B(6653) -! JVS(40713) = Jac_FULL(5250,239) - JVS(40713) = B(2230) -! JVS(40714) = Jac_FULL(5250,240) - JVS(40714) = -B(17623) -! JVS(40715) = Jac_FULL(5250,241) - JVS(40715) = -B(20918) -! JVS(40716) = Jac_FULL(5250,242) - JVS(40716) = -B(4530) -! JVS(40717) = Jac_FULL(5250,243) - JVS(40717) = B(11366) -! JVS(40718) = Jac_FULL(5250,244) - JVS(40718) = -B(18482) -! JVS(40719) = Jac_FULL(5250,245) - JVS(40719) = 0 -! JVS(40720) = Jac_FULL(5250,246) - JVS(40720) = -B(19876) -! JVS(40721) = Jac_FULL(5250,247) - JVS(40721) = -B(23015) -! JVS(40722) = Jac_FULL(5250,248) - JVS(40722) = -B(17356) -! JVS(40723) = Jac_FULL(5250,249) - JVS(40723) = -B(153) -! JVS(40724) = Jac_FULL(5250,250) - JVS(40724) = -B(601)-B(603)-B(605)-B(607) -! JVS(40725) = Jac_FULL(5250,251) - JVS(40725) = -B(17254) -! JVS(40726) = Jac_FULL(5250,252) - JVS(40726) = -B(23389) -! JVS(40727) = Jac_FULL(5250,253) - JVS(40727) = -B(417) -! JVS(40728) = Jac_FULL(5250,255) - JVS(40728) = -B(21519) -! JVS(40729) = Jac_FULL(5250,256) - JVS(40729) = -B(21107) -! JVS(40730) = Jac_FULL(5250,257) - JVS(40730) = -B(22009) -! JVS(40731) = Jac_FULL(5250,258) - JVS(40731) = -B(17453) -! JVS(40732) = Jac_FULL(5250,259) - JVS(40732) = -B(18344) -! JVS(40733) = Jac_FULL(5250,260) - JVS(40733) = -B(27) -! JVS(40734) = Jac_FULL(5250,262) - JVS(40734) = -B(5588) -! JVS(40735) = Jac_FULL(5250,263) - JVS(40735) = -B(16174) -! JVS(40736) = Jac_FULL(5250,264) - JVS(40736) = -B(16203) -! JVS(40737) = Jac_FULL(5250,265) - JVS(40737) = -B(20684) -! JVS(40738) = Jac_FULL(5250,266) - JVS(40738) = -B(22057) -! JVS(40739) = Jac_FULL(5250,267) - JVS(40739) = -B(18603) -! JVS(40740) = Jac_FULL(5250,268) - JVS(40740) = -B(22517) -! JVS(40741) = Jac_FULL(5250,269) - JVS(40741) = -B(4750) -! JVS(40742) = Jac_FULL(5250,270) - JVS(40742) = -B(405) -! JVS(40743) = Jac_FULL(5250,272) - JVS(40743) = -B(21628) -! JVS(40744) = Jac_FULL(5250,273) - JVS(40744) = -B(18325) -! JVS(40745) = Jac_FULL(5250,274) - JVS(40745) = -B(5985) -! JVS(40746) = Jac_FULL(5250,275) - JVS(40746) = -B(20991) -! JVS(40747) = Jac_FULL(5250,276) - JVS(40747) = -B(12767) -! JVS(40748) = Jac_FULL(5250,277) - JVS(40748) = -B(5667) -! JVS(40749) = Jac_FULL(5250,278) - JVS(40749) = -B(3929) -! JVS(40750) = Jac_FULL(5250,279) - JVS(40750) = -B(22886) -! JVS(40751) = Jac_FULL(5250,280) - JVS(40751) = -B(17860) -! JVS(40752) = Jac_FULL(5250,281) - JVS(40752) = -B(17194) -! JVS(40753) = Jac_FULL(5250,282) - JVS(40753) = -B(19588) -! JVS(40754) = Jac_FULL(5250,283) - JVS(40754) = -B(5889) -! JVS(40755) = Jac_FULL(5250,284) - JVS(40755) = -B(17689) -! JVS(40756) = Jac_FULL(5250,285) - JVS(40756) = -B(21139) -! JVS(40757) = Jac_FULL(5250,286) - JVS(40757) = -B(3753) -! JVS(40758) = Jac_FULL(5250,287) - JVS(40758) = -B(21354) -! JVS(40759) = Jac_FULL(5250,288) - JVS(40759) = -B(317) -! JVS(40760) = Jac_FULL(5250,289) - JVS(40760) = -B(17594) -! JVS(40761) = Jac_FULL(5250,291) - JVS(40761) = -B(11962) -! JVS(40762) = Jac_FULL(5250,292) - JVS(40762) = -B(5502) -! JVS(40763) = Jac_FULL(5250,293) - JVS(40763) = B(3424)+B(3425) -! JVS(40764) = Jac_FULL(5250,294) - JVS(40764) = -B(22952) -! JVS(40765) = Jac_FULL(5250,295) - JVS(40765) = -B(12130) -! JVS(40766) = Jac_FULL(5250,296) - JVS(40766) = -B(23961) -! JVS(40767) = Jac_FULL(5250,298) - JVS(40767) = -B(108)-B(110) -! JVS(40768) = Jac_FULL(5250,299) - JVS(40768) = -B(18182) -! JVS(40769) = Jac_FULL(5250,301) - JVS(40769) = -B(19559) -! JVS(40770) = Jac_FULL(5250,302) - JVS(40770) = -B(16668) -! JVS(40771) = Jac_FULL(5250,303) - JVS(40771) = -B(16965) -! JVS(40772) = Jac_FULL(5250,304) - JVS(40772) = -B(4471) -! JVS(40773) = Jac_FULL(5250,305) - JVS(40773) = -B(20516) -! JVS(40774) = Jac_FULL(5250,306) - JVS(40774) = -B(17853) -! JVS(40775) = Jac_FULL(5250,307) - JVS(40775) = -B(6951) -! JVS(40776) = Jac_FULL(5250,308) - JVS(40776) = -B(4658) -! JVS(40777) = Jac_FULL(5250,309) - JVS(40777) = -B(14007) -! JVS(40778) = Jac_FULL(5250,310) - JVS(40778) = -B(20902) -! JVS(40779) = Jac_FULL(5250,311) - JVS(40779) = -B(19264) -! JVS(40780) = Jac_FULL(5250,312) - JVS(40780) = -B(15916) -! JVS(40781) = Jac_FULL(5250,313) - JVS(40781) = -B(23067) -! JVS(40782) = Jac_FULL(5250,314) - JVS(40782) = -B(12001) -! JVS(40783) = Jac_FULL(5250,316) - JVS(40783) = -B(4561) -! JVS(40784) = Jac_FULL(5250,317) - JVS(40784) = -B(19306) -! JVS(40785) = Jac_FULL(5250,318) - JVS(40785) = -B(18323) -! JVS(40786) = Jac_FULL(5250,319) - JVS(40786) = -B(13921) -! JVS(40787) = Jac_FULL(5250,320) - JVS(40787) = -B(23509) -! JVS(40788) = Jac_FULL(5250,321) - JVS(40788) = -B(13996) -! JVS(40789) = Jac_FULL(5250,322) - JVS(40789) = -B(18384) -! JVS(40790) = Jac_FULL(5250,323) - JVS(40790) = -B(18382) -! JVS(40791) = Jac_FULL(5250,324) - JVS(40791) = B(18380) -! JVS(40792) = Jac_FULL(5250,325) - JVS(40792) = -B(11399) -! JVS(40793) = Jac_FULL(5250,327) - JVS(40793) = B(2082) -! JVS(40794) = Jac_FULL(5250,328) - JVS(40794) = -B(6581) -! JVS(40795) = Jac_FULL(5250,329) - JVS(40795) = -B(17733) -! JVS(40796) = Jac_FULL(5250,330) - JVS(40796) = -B(11578) -! JVS(40797) = Jac_FULL(5250,331) - JVS(40797) = -B(18042) -! JVS(40798) = Jac_FULL(5250,332) - JVS(40798) = -B(5489) -! JVS(40799) = Jac_FULL(5250,333) - JVS(40799) = -B(11979) -! JVS(40800) = Jac_FULL(5250,334) - JVS(40800) = -B(23523) -! JVS(40801) = Jac_FULL(5250,335) - JVS(40801) = -B(3710) -! JVS(40802) = Jac_FULL(5250,336) - JVS(40802) = -B(11134) -! JVS(40803) = Jac_FULL(5250,337) - JVS(40803) = -B(52)+B(70) -! JVS(40804) = Jac_FULL(5250,338) - JVS(40804) = -B(4641) -! JVS(40805) = Jac_FULL(5250,339) - JVS(40805) = -B(4679) -! JVS(40806) = Jac_FULL(5250,340) - JVS(40806) = -B(15716) -! JVS(40807) = Jac_FULL(5250,341) - JVS(40807) = -B(12723) -! JVS(40808) = Jac_FULL(5250,342) - JVS(40808) = -B(409) -! JVS(40809) = Jac_FULL(5250,343) - JVS(40809) = -B(11446) -! JVS(40810) = Jac_FULL(5250,344) - JVS(40810) = -B(14393) -! JVS(40811) = Jac_FULL(5250,345) - JVS(40811) = -B(4413) -! JVS(40812) = Jac_FULL(5250,346) - JVS(40812) = -B(17726) -! JVS(40813) = Jac_FULL(5250,347) - JVS(40813) = -B(20780) -! JVS(40814) = Jac_FULL(5250,348) - JVS(40814) = -B(19006) -! JVS(40815) = Jac_FULL(5250,349) - JVS(40815) = -B(4587) -! JVS(40816) = Jac_FULL(5250,350) - JVS(40816) = -B(16421) -! JVS(40817) = Jac_FULL(5250,351) - JVS(40817) = -B(22836) -! JVS(40818) = Jac_FULL(5250,352) - JVS(40818) = -B(24021) -! JVS(40819) = Jac_FULL(5250,353) - JVS(40819) = -B(4696) -! JVS(40820) = Jac_FULL(5250,354) - JVS(40820) = -B(16894) -! JVS(40821) = Jac_FULL(5250,355) - JVS(40821) = -B(11512) -! JVS(40822) = Jac_FULL(5250,356) - JVS(40822) = -B(16116) -! JVS(40823) = Jac_FULL(5250,357) - JVS(40823) = -B(23731) -! JVS(40824) = Jac_FULL(5250,358) - JVS(40824) = -B(12867) -! JVS(40825) = Jac_FULL(5250,359) - JVS(40825) = -B(20754) -! JVS(40826) = Jac_FULL(5250,360) - JVS(40826) = -B(23040) -! JVS(40827) = Jac_FULL(5250,361) - JVS(40827) = -B(5340) -! JVS(40828) = Jac_FULL(5250,362) - JVS(40828) = B(11332) -! JVS(40829) = Jac_FULL(5250,363) - JVS(40829) = -B(14190) -! JVS(40830) = Jac_FULL(5250,364) - JVS(40830) = -B(20956) -! JVS(40831) = Jac_FULL(5250,365) - JVS(40831) = -B(16953) -! JVS(40832) = Jac_FULL(5250,366) - JVS(40832) = -B(16877) -! JVS(40833) = Jac_FULL(5250,367) - JVS(40833) = -B(23163) -! JVS(40834) = Jac_FULL(5250,368) - JVS(40834) = -B(23862) -! JVS(40835) = Jac_FULL(5250,369) - JVS(40835) = -B(11064) -! JVS(40836) = Jac_FULL(5250,371) - JVS(40836) = -B(17279) -! JVS(40837) = Jac_FULL(5250,372) - JVS(40837) = -B(18102) -! JVS(40838) = Jac_FULL(5250,373) - JVS(40838) = -B(18601) -! JVS(40839) = Jac_FULL(5250,374) - JVS(40839) = -B(10296) -! JVS(40840) = Jac_FULL(5250,375) - JVS(40840) = -B(22502) -! JVS(40841) = Jac_FULL(5250,376) - JVS(40841) = -B(17548) -! JVS(40842) = Jac_FULL(5250,377) - JVS(40842) = -B(19503) -! JVS(40843) = Jac_FULL(5250,378) - JVS(40843) = -B(22077) -! JVS(40844) = Jac_FULL(5250,379) - JVS(40844) = -B(11986) -! JVS(40845) = Jac_FULL(5250,380) - JVS(40845) = -B(4514) -! JVS(40846) = Jac_FULL(5250,381) - JVS(40846) = -B(14005) -! JVS(40847) = Jac_FULL(5250,382) - JVS(40847) = -B(23055) -! JVS(40848) = Jac_FULL(5250,383) - JVS(40848) = -B(4493) -! JVS(40849) = Jac_FULL(5250,384) - JVS(40849) = -B(7646) -! JVS(40850) = Jac_FULL(5250,385) - JVS(40850) = -B(21211) -! JVS(40851) = Jac_FULL(5250,386) - JVS(40851) = B(16514) -! JVS(40852) = Jac_FULL(5250,387) - JVS(40852) = -B(18695) -! JVS(40853) = Jac_FULL(5250,388) - JVS(40853) = -B(22619) -! JVS(40854) = Jac_FULL(5250,389) - JVS(40854) = -B(12608) -! JVS(40855) = Jac_FULL(5250,390) - JVS(40855) = -B(23673) -! JVS(40856) = Jac_FULL(5250,391) - JVS(40856) = -B(13643) -! JVS(40857) = Jac_FULL(5250,392) - JVS(40857) = -B(15643) -! JVS(40858) = Jac_FULL(5250,393) - JVS(40858) = -B(11514) -! JVS(40859) = Jac_FULL(5250,394) - JVS(40859) = -B(23150) -! JVS(40860) = Jac_FULL(5250,395) - JVS(40860) = -B(11145) -! JVS(40861) = Jac_FULL(5250,396) - JVS(40861) = -B(5945) -! JVS(40862) = Jac_FULL(5250,397) - JVS(40862) = -B(18180) -! JVS(40863) = Jac_FULL(5250,398) - JVS(40863) = B(18178) -! JVS(40864) = Jac_FULL(5250,399) - JVS(40864) = -B(21712) -! JVS(40865) = Jac_FULL(5250,400) - JVS(40865) = -B(20763) -! JVS(40866) = Jac_FULL(5250,401) - JVS(40866) = -B(11228) -! JVS(40867) = Jac_FULL(5250,402) - JVS(40867) = -B(16035) -! JVS(40868) = Jac_FULL(5250,403) - JVS(40868) = -B(11162) -! JVS(40869) = Jac_FULL(5250,404) - JVS(40869) = -B(11160) -! JVS(40870) = Jac_FULL(5250,405) - JVS(40870) = B(11158) -! JVS(40871) = Jac_FULL(5250,406) - JVS(40871) = -B(23141) -! JVS(40872) = Jac_FULL(5250,408) - JVS(40872) = -B(18031) -! JVS(40873) = Jac_FULL(5250,409) - JVS(40873) = -B(22046) -! JVS(40874) = Jac_FULL(5250,410) - JVS(40874) = -B(22708) -! JVS(40875) = Jac_FULL(5250,411) - JVS(40875) = -B(23200) -! JVS(40876) = Jac_FULL(5250,412) - JVS(40876) = -B(4708) -! JVS(40877) = Jac_FULL(5250,413) - JVS(40877) = -B(17244) -! JVS(40878) = Jac_FULL(5250,414) - JVS(40878) = -B(23718)+B(23720) -! JVS(40879) = Jac_FULL(5250,415) - JVS(40879) = -B(23121) -! JVS(40880) = Jac_FULL(5250,416) - JVS(40880) = -B(3653) -! JVS(40881) = Jac_FULL(5250,417) - JVS(40881) = -B(6966) -! JVS(40882) = Jac_FULL(5250,418) - JVS(40882) = -B(21837) -! JVS(40883) = Jac_FULL(5250,419) - JVS(40883) = B(3529)+B(3530) -! JVS(40884) = Jac_FULL(5250,420) - JVS(40884) = -B(19567) -! JVS(40885) = Jac_FULL(5250,422) - JVS(40885) = 0 -! JVS(40886) = Jac_FULL(5250,423) - JVS(40886) = -B(13209) -! JVS(40887) = Jac_FULL(5250,424) - JVS(40887) = -B(4542) -! JVS(40888) = Jac_FULL(5250,425) - JVS(40888) = -B(11866) -! JVS(40889) = Jac_FULL(5250,426) - JVS(40889) = -B(413) -! JVS(40890) = Jac_FULL(5250,427) - JVS(40890) = -B(16980) -! JVS(40891) = Jac_FULL(5250,428) - JVS(40891) = -B(5710) -! JVS(40892) = Jac_FULL(5250,429) - JVS(40892) = -B(4798) -! JVS(40893) = Jac_FULL(5250,430) - JVS(40893) = -B(22572) -! JVS(40894) = Jac_FULL(5250,431) - JVS(40894) = -B(6108) -! JVS(40895) = Jac_FULL(5250,432) - JVS(40895) = -B(6506) -! JVS(40896) = Jac_FULL(5250,433) - JVS(40896) = -B(23819) -! JVS(40897) = Jac_FULL(5250,434) - JVS(40897) = -B(19019) -! JVS(40898) = Jac_FULL(5250,435) - JVS(40898) = -B(11803) -! JVS(40899) = Jac_FULL(5250,436) - JVS(40899) = -B(5801) -! JVS(40900) = Jac_FULL(5250,437) - JVS(40900) = -B(11773) -! JVS(40901) = Jac_FULL(5250,438) - JVS(40901) = -B(7638) -! JVS(40902) = Jac_FULL(5250,439) - JVS(40902) = -B(11422) -! JVS(40903) = Jac_FULL(5250,440) - JVS(40903) = -B(17252) -! JVS(40904) = Jac_FULL(5250,441) - JVS(40904) = -B(22717) -! JVS(40905) = Jac_FULL(5250,442) - JVS(40905) = -B(19229) -! JVS(40906) = Jac_FULL(5250,444) - JVS(40906) = -B(5301) -! JVS(40907) = Jac_FULL(5250,446) - JVS(40907) = -B(6189) -! JVS(40908) = Jac_FULL(5250,447) - JVS(40908) = -B(381) -! JVS(40909) = Jac_FULL(5250,448) - JVS(40909) = -B(18415) -! JVS(40910) = Jac_FULL(5250,449) - JVS(40910) = -B(17673) -! JVS(40911) = Jac_FULL(5250,451) - JVS(40911) = -B(15461) -! JVS(40912) = Jac_FULL(5250,452) - JVS(40912) = -B(19536) -! JVS(40913) = Jac_FULL(5250,453) - JVS(40913) = -B(4762) -! JVS(40914) = Jac_FULL(5250,454) - JVS(40914) = -B(16925) -! JVS(40915) = Jac_FULL(5250,455) - JVS(40915) = -B(18100) -! JVS(40916) = Jac_FULL(5250,456) - JVS(40916) = -B(17709) -! JVS(40917) = Jac_FULL(5250,457) - JVS(40917) = -B(17107) -! JVS(40918) = Jac_FULL(5250,458) - JVS(40918) = -B(13866) -! JVS(40919) = Jac_FULL(5250,459) - JVS(40919) = B(18599) -! JVS(40920) = Jac_FULL(5250,460) - JVS(40920) = -B(4786) -! JVS(40921) = Jac_FULL(5250,461) - JVS(40921) = -B(12505) -! JVS(40922) = Jac_FULL(5250,462) - JVS(40922) = -B(17288) -! JVS(40923) = Jac_FULL(5250,463) - JVS(40923) = -B(13615) -! JVS(40924) = Jac_FULL(5250,464) - JVS(40924) = -B(5760) -! JVS(40925) = Jac_FULL(5250,465) - JVS(40925) = -B(21963) -! JVS(40926) = Jac_FULL(5250,466) - JVS(40926) = -B(4625) -! JVS(40927) = Jac_FULL(5250,467) - JVS(40927) = -B(19494) -! JVS(40928) = Jac_FULL(5250,468) - JVS(40928) = -B(12094) -! JVS(40929) = Jac_FULL(5250,469) - JVS(40929) = -B(12076) -! JVS(40930) = Jac_FULL(5250,470) - JVS(40930) = -B(23459) -! JVS(40931) = Jac_FULL(5250,471) - JVS(40931) = -B(13987) -! JVS(40932) = Jac_FULL(5250,472) - JVS(40932) = -B(20751) -! JVS(40933) = Jac_FULL(5250,473) - JVS(40933) = -B(18967) -! JVS(40934) = Jac_FULL(5250,474) - JVS(40934) = -B(19845) -! JVS(40935) = Jac_FULL(5250,475) - JVS(40935) = -B(10174) -! JVS(40936) = Jac_FULL(5250,476) - JVS(40936) = -B(23427) -! JVS(40937) = Jac_FULL(5250,477) - JVS(40937) = B(2178) -! JVS(40938) = Jac_FULL(5250,478) - JVS(40938) = -B(21984) -! JVS(40939) = Jac_FULL(5250,479) - JVS(40939) = -B(17596) -! JVS(40940) = Jac_FULL(5250,480) - JVS(40940) = -B(6020) -! JVS(40941) = Jac_FULL(5250,481) - JVS(40941) = -B(23024) -! JVS(40942) = Jac_FULL(5250,482) - JVS(40942) = -B(23682) -! JVS(40943) = Jac_FULL(5250,483) - JVS(40943) = -B(16257) -! JVS(40944) = Jac_FULL(5250,484) - JVS(40944) = -B(4241) -! JVS(40945) = Jac_FULL(5250,485) - JVS(40945) = -B(16014) -! JVS(40946) = Jac_FULL(5250,486) - JVS(40946) = -B(4774) -! JVS(40947) = Jac_FULL(5250,487) - JVS(40947) = -B(9882) -! JVS(40948) = Jac_FULL(5250,488) - JVS(40948) = -B(11880) -! JVS(40949) = Jac_FULL(5250,489) - JVS(40949) = -B(20977) -! JVS(40950) = Jac_FULL(5250,490) - JVS(40950) = -B(18088) -! JVS(40951) = Jac_FULL(5250,491) - JVS(40951) = B(18086) -! JVS(40952) = Jac_FULL(5250,492) - JVS(40952) = -B(20927) -! JVS(40953) = Jac_FULL(5250,493) - JVS(40953) = -B(20744) -! JVS(40954) = Jac_FULL(5250,494) - JVS(40954) = -B(16473) -! JVS(40955) = Jac_FULL(5250,495) - JVS(40955) = -B(4425) -! JVS(40956) = Jac_FULL(5250,496) - JVS(40956) = -B(17264) -! JVS(40957) = Jac_FULL(5250,497) - JVS(40957) = -B(11480) -! JVS(40958) = Jac_FULL(5250,498) - JVS(40958) = -B(11461) -! JVS(40959) = Jac_FULL(5250,499) - JVS(40959) = -B(21346) -! JVS(40960) = Jac_FULL(5250,500) - JVS(40960) = -B(23907) -! JVS(40961) = Jac_FULL(5250,501) - JVS(40961) = -B(12166) -! JVS(40962) = Jac_FULL(5250,502) - JVS(40962) = -B(20797) -! JVS(40963) = Jac_FULL(5250,503) - JVS(40963) = -B(13158) -! JVS(40964) = Jac_FULL(5250,504) - JVS(40964) = -B(4604) -! JVS(40965) = Jac_FULL(5250,505) - JVS(40965) = -B(6426) -! JVS(40966) = Jac_FULL(5250,506) - JVS(40966) = -B(23347) -! JVS(40967) = Jac_FULL(5250,507) - JVS(40967) = -B(19477) -! JVS(40968) = Jac_FULL(5250,508) - JVS(40968) = B(20749) -! JVS(40969) = Jac_FULL(5250,509) - JVS(40969) = -B(18451) -! JVS(40970) = Jac_FULL(5250,510) - JVS(40970) = -B(18449) -! JVS(40971) = Jac_FULL(5250,511) - JVS(40971) = -B(21046) -! JVS(40972) = Jac_FULL(5250,512) - JVS(40972) = -B(16770) -! JVS(40973) = Jac_FULL(5250,513) - JVS(40973) = -B(16437) -! JVS(40974) = Jac_FULL(5250,514) - JVS(40974) = B(6852) -! JVS(40975) = Jac_FULL(5250,515) - JVS(40975) = -B(21992) -! JVS(40976) = Jac_FULL(5250,516) - JVS(40976) = -B(14332) -! JVS(40977) = Jac_FULL(5250,517) - JVS(40977) = -B(5210) -! JVS(40978) = Jac_FULL(5250,518) - JVS(40978) = B(18098) -! JVS(40979) = Jac_FULL(5250,519) - JVS(40979) = -B(17741) -! JVS(40980) = Jac_FULL(5250,520) - JVS(40980) = -B(23560) -! JVS(40981) = Jac_FULL(5250,521) - JVS(40981) = B(18321) -! JVS(40982) = Jac_FULL(5250,522) - JVS(40982) = B(14743) -! JVS(40983) = Jac_FULL(5250,523) - JVS(40983) = -B(6118) -! JVS(40984) = Jac_FULL(5250,524) - JVS(40984) = -B(12148) -! JVS(40985) = Jac_FULL(5250,525) - JVS(40985) = -B(12112) -! JVS(40986) = Jac_FULL(5250,526) - JVS(40986) = -B(20650) -! JVS(40987) = Jac_FULL(5250,527) - JVS(40987) = -B(22920) -! JVS(40988) = Jac_FULL(5250,529) - JVS(40988) = B(10443) -! JVS(40989) = Jac_FULL(5250,530) - JVS(40989) = -B(23630) -! JVS(40990) = Jac_FULL(5250,531) - JVS(40990) = -B(9589) -! JVS(40991) = Jac_FULL(5250,536) - JVS(40991) = -B(14663) -! JVS(40992) = Jac_FULL(5250,538) - JVS(40992) = B(9410) -! JVS(40993) = Jac_FULL(5250,540) - JVS(40993) = -B(7472) -! JVS(40994) = Jac_FULL(5250,542) - JVS(40994) = -B(18192) -! JVS(40995) = Jac_FULL(5250,543) - JVS(40995) = -B(22964) -! JVS(40996) = Jac_FULL(5250,546) - JVS(40996) = -B(11730)-B(11732) -! JVS(40997) = Jac_FULL(5250,547) - JVS(40997) = -B(23446) -! JVS(40998) = Jac_FULL(5250,548) - JVS(40998) = -B(395)-B(397) -! JVS(40999) = Jac_FULL(5250,554) - JVS(40999) = -B(17644) -! JVS(41000) = Jac_FULL(5250,556) - JVS(41000) = -B(17060) -! JVS(41001) = Jac_FULL(5250,558) - JVS(41001) = B(10638) -! JVS(41002) = Jac_FULL(5250,559) - JVS(41002) = -B(23802) -! JVS(41003) = Jac_FULL(5250,560) - JVS(41003) = B(10129) -! JVS(41004) = Jac_FULL(5250,561) - JVS(41004) = -B(16963) -! JVS(41005) = Jac_FULL(5250,562) - JVS(41005) = B(16958) -! JVS(41006) = Jac_FULL(5250,563) - JVS(41006) = B(10414) -! JVS(41007) = Jac_FULL(5250,565) - JVS(41007) = -B(8884) -! JVS(41008) = Jac_FULL(5250,566) - JVS(41008) = -B(375)-B(377) -! JVS(41009) = Jac_FULL(5250,567) - JVS(41009) = -B(23951) -! JVS(41010) = Jac_FULL(5250,568) - JVS(41010) = B(9294) -! JVS(41011) = Jac_FULL(5250,569) - JVS(41011) = B(9249) -! JVS(41012) = Jac_FULL(5250,572) - JVS(41012) = -B(13473) -! JVS(41013) = Jac_FULL(5250,576) - JVS(41013) = -B(16362) -! JVS(41014) = Jac_FULL(5250,577) - JVS(41014) = -B(7221) -! JVS(41015) = Jac_FULL(5250,578) - JVS(41015) = -B(4013) -! JVS(41016) = Jac_FULL(5250,579) - JVS(41016) = -B(7780) -! JVS(41017) = Jac_FULL(5250,580) - JVS(41017) = -B(14637) -! JVS(41018) = Jac_FULL(5250,583) - JVS(41018) = -B(22320) -! JVS(41019) = Jac_FULL(5250,586) - JVS(41019) = -B(14129) -! JVS(41020) = Jac_FULL(5250,587) - JVS(41020) = -B(17019) -! JVS(41021) = Jac_FULL(5250,588) - JVS(41021) = -B(387)-B(389) -! JVS(41022) = Jac_FULL(5250,590) - JVS(41022) = -B(17532) -! JVS(41023) = Jac_FULL(5250,591) - JVS(41023) = -B(7732) -! JVS(41024) = Jac_FULL(5250,593) - JVS(41024) = -B(20778) -! JVS(41025) = Jac_FULL(5250,594) - JVS(41025) = B(20776) -! JVS(41026) = Jac_FULL(5250,598) - JVS(41026) = -B(142)-B(144) -! JVS(41027) = Jac_FULL(5250,599) - JVS(41027) = -B(11092) -! JVS(41028) = Jac_FULL(5250,601) - JVS(41028) = -B(287)-B(289) -! JVS(41029) = Jac_FULL(5250,602) - JVS(41029) = -B(15289) -! JVS(41030) = Jac_FULL(5250,604) - JVS(41030) = B(3427) -! JVS(41031) = Jac_FULL(5250,608) - JVS(41031) = -B(14185) -! JVS(41032) = Jac_FULL(5250,609) - JVS(41032) = -B(15394) -! JVS(41033) = Jac_FULL(5250,611) - JVS(41033) = -B(4190) -! JVS(41034) = Jac_FULL(5250,612) - JVS(41034) = B(14518) -! JVS(41035) = Jac_FULL(5250,613) - JVS(41035) = -B(6601) -! JVS(41036) = Jac_FULL(5250,614) - JVS(41036) = B(8766) -! JVS(41037) = Jac_FULL(5250,616) - JVS(41037) = -B(17905) -! JVS(41038) = Jac_FULL(5250,621) - JVS(41038) = -B(14551) -! JVS(41039) = Jac_FULL(5250,622) - JVS(41039) = -B(15995) -! JVS(41040) = Jac_FULL(5250,626) - JVS(41040) = -B(21531) -! JVS(41041) = Jac_FULL(5250,628) - JVS(41041) = B(8804) -! JVS(41042) = Jac_FULL(5250,631) - JVS(41042) = -B(4154) -! JVS(41043) = Jac_FULL(5250,633) - JVS(41043) = -B(22363) -! JVS(41044) = Jac_FULL(5250,634) - JVS(41044) = -B(6443) -! JVS(41045) = Jac_FULL(5250,636) - JVS(41045) = -B(19649) -! JVS(41046) = Jac_FULL(5250,640) - JVS(41046) = B(3488) -! JVS(41047) = Jac_FULL(5250,642) - JVS(41047) = -B(4266) -! JVS(41048) = Jac_FULL(5250,647) - JVS(41048) = -B(9948) -! JVS(41049) = Jac_FULL(5250,650) - JVS(41049) = -B(22980) -! JVS(41050) = Jac_FULL(5250,651) - JVS(41050) = -B(17654) -! JVS(41051) = Jac_FULL(5250,652) - JVS(41051) = -B(11143) -! JVS(41052) = Jac_FULL(5250,653) - JVS(41052) = B(11138) -! JVS(41053) = Jac_FULL(5250,657) - JVS(41053) = -B(22448) -! JVS(41054) = Jac_FULL(5250,659) - JVS(41054) = -B(16097) -! JVS(41055) = Jac_FULL(5250,661) - JVS(41055) = -B(7586) -! JVS(41056) = Jac_FULL(5250,662) - JVS(41056) = -B(21925) -! JVS(41057) = Jac_FULL(5250,664) - JVS(41057) = -B(17696) -! JVS(41058) = Jac_FULL(5250,667) - JVS(41058) = -B(14629) -! JVS(41059) = Jac_FULL(5250,668) - JVS(41059) = -B(803) -! JVS(41060) = Jac_FULL(5250,671) - JVS(41060) = -B(17935) -! JVS(41061) = Jac_FULL(5250,675) - JVS(41061) = -B(12043)-B(12045) -! JVS(41062) = Jac_FULL(5250,676) - JVS(41062) = B(10057) -! JVS(41063) = Jac_FULL(5250,678) - JVS(41063) = -B(13751)-B(13753) -! JVS(41064) = Jac_FULL(5250,680) - JVS(41064) = -B(2340) -! JVS(41065) = Jac_FULL(5250,681) - JVS(41065) = -B(9206) -! JVS(41066) = Jac_FULL(5250,683) - JVS(41066) = -B(9357) -! JVS(41067) = Jac_FULL(5250,684) - JVS(41067) = B(1518) -! JVS(41068) = Jac_FULL(5250,685) - JVS(41068) = B(3101) -! JVS(41069) = Jac_FULL(5250,686) - JVS(41069) = B(3050) -! JVS(41070) = Jac_FULL(5250,690) - JVS(41070) = -B(23660) -! JVS(41071) = Jac_FULL(5250,691) - JVS(41071) = -B(4114) -! JVS(41072) = Jac_FULL(5250,692) - JVS(41072) = -B(17294) -! JVS(41073) = Jac_FULL(5250,694) - JVS(41073) = -B(14717) -! JVS(41074) = Jac_FULL(5250,696) - JVS(41074) = -B(22418) -! JVS(41075) = Jac_FULL(5250,699) - JVS(41075) = -B(22649) -! JVS(41076) = Jac_FULL(5250,700) - JVS(41076) = B(9525) -! JVS(41077) = Jac_FULL(5250,705) - JVS(41077) = B(9762) -! JVS(41078) = Jac_FULL(5250,709) - JVS(41078) = -B(11235) -! JVS(41079) = Jac_FULL(5250,713) - JVS(41079) = -B(15423) -! JVS(41080) = Jac_FULL(5250,718) - JVS(41080) = B(9990) -! JVS(41081) = Jac_FULL(5250,719) - JVS(41081) = B(3531) -! JVS(41082) = Jac_FULL(5250,723) - JVS(41082) = B(9017) -! JVS(41083) = Jac_FULL(5250,725) - JVS(41083) = -B(23619) -! JVS(41084) = Jac_FULL(5250,732) - JVS(41084) = -B(9478) -! JVS(41085) = Jac_FULL(5250,735) - JVS(41085) = -B(14391) -! JVS(41086) = Jac_FULL(5250,736) - JVS(41086) = B(14386) -! JVS(41087) = Jac_FULL(5250,738) - JVS(41087) = B(9159) -! JVS(41088) = Jac_FULL(5250,742) - JVS(41088) = -B(10011) -! JVS(41089) = Jac_FULL(5250,751) - JVS(41089) = -B(4101) -! JVS(41090) = Jac_FULL(5250,752) - JVS(41090) = B(9646) -! JVS(41091) = Jac_FULL(5250,754) - JVS(41091) = -B(23540) -! JVS(41092) = Jac_FULL(5250,757) - JVS(41092) = -B(98)-B(100) -! JVS(41093) = Jac_FULL(5250,758) - JVS(41093) = -B(17798) -! JVS(41094) = Jac_FULL(5250,759) - JVS(41094) = B(12345) -! JVS(41095) = Jac_FULL(5250,762) - JVS(41095) = -B(17995) -! JVS(41096) = Jac_FULL(5250,763) - JVS(41096) = B(1510) -! JVS(41097) = Jac_FULL(5250,764) - JVS(41097) = -B(8974) -! JVS(41098) = Jac_FULL(5250,766) - JVS(41098) = B(2232) -! JVS(41099) = Jac_FULL(5250,767) - JVS(41099) = -B(20667) -! JVS(41100) = Jac_FULL(5250,769) - JVS(41100) = -B(15338) -! JVS(41101) = Jac_FULL(5250,771) - JVS(41101) = B(12484) -! JVS(41102) = Jac_FULL(5250,772) - JVS(41102) = -B(22910) -! JVS(41103) = Jac_FULL(5250,779) - JVS(41103) = -B(9116) -! JVS(41104) = Jac_FULL(5250,785) - JVS(41104) = -B(9784) -! JVS(41105) = Jac_FULL(5250,788) - JVS(41105) = -B(8727) -! JVS(41106) = Jac_FULL(5250,789) - JVS(41106) = -B(22392) -! JVS(41107) = Jac_FULL(5250,790) - JVS(41107) = B(13832) -! JVS(41108) = Jac_FULL(5250,793) - JVS(41108) = -B(21941) -! JVS(41109) = Jac_FULL(5250,794) - JVS(41109) = -B(15366) -! JVS(41110) = Jac_FULL(5250,796) - JVS(41110) = -B(6539) -! JVS(41111) = Jac_FULL(5250,799) - JVS(41111) = -B(20790) -! JVS(41112) = Jac_FULL(5250,803) - JVS(41112) = -B(15310) -! JVS(41113) = Jac_FULL(5250,804) - JVS(41113) = -B(17965) -! JVS(41114) = Jac_FULL(5250,805) - JVS(41114) = -B(19631) -! JVS(41115) = Jac_FULL(5250,806) - JVS(41115) = -B(130)-B(132)-B(134) -! JVS(41116) = Jac_FULL(5250,807) - JVS(41116) = -B(17876) -! JVS(41117) = Jac_FULL(5250,811) - JVS(41117) = -B(10086) -! JVS(41118) = Jac_FULL(5250,812) - JVS(41118) = -B(9700) -! JVS(41119) = Jac_FULL(5250,813) - JVS(41119) = -B(22066) -! JVS(41120) = Jac_FULL(5250,818) - JVS(41120) = -B(3974) -! JVS(41121) = Jac_FULL(5250,819) - JVS(41121) = B(13662) -! JVS(41122) = Jac_FULL(5250,821) - JVS(41122) = -B(19257) -! JVS(41123) = Jac_FULL(5250,822) - JVS(41123) = -B(16083)+B(16085) -! JVS(41124) = Jac_FULL(5250,823) - JVS(41124) = -B(22462) -! JVS(41125) = Jac_FULL(5250,824) - JVS(41125) = -B(23935)+B(23937) -! JVS(41126) = Jac_FULL(5250,825) - JVS(41126) = -B(20067)+B(20069) -! JVS(41127) = Jac_FULL(5250,826) - JVS(41127) = -B(23693)+B(23695) -! JVS(41128) = Jac_FULL(5250,827) - JVS(41128) = -B(23594) -! JVS(41129) = Jac_FULL(5250,828) - JVS(41129) = B(11964)-B(11965) -! JVS(41130) = Jac_FULL(5250,829) - JVS(41130) = -B(12242)+B(12244) -! JVS(41131) = Jac_FULL(5250,830) - JVS(41131) = B(19487) -! JVS(41132) = Jac_FULL(5250,831) - JVS(41132) = B(11693) -! JVS(41133) = Jac_FULL(5250,832) - JVS(41133) = B(11988)-B(11989) -! JVS(41134) = Jac_FULL(5250,833) - JVS(41134) = -B(11572)+B(11574) -! JVS(41135) = Jac_FULL(5250,834) - JVS(41135) = -B(12279) -! JVS(41136) = Jac_FULL(5250,835) - JVS(41136) = -B(19922)+B(19924) -! JVS(41137) = Jac_FULL(5250,836) - JVS(41137) = B(11766) -! JVS(41138) = Jac_FULL(5250,837) - JVS(41138) = -B(8857)+B(8859) -! JVS(41139) = Jac_FULL(5250,838) - JVS(41139) = -B(15645)+B(15647) -! JVS(41140) = Jac_FULL(5250,839) - JVS(41140) = B(20445) -! JVS(41141) = Jac_FULL(5250,840) - JVS(41141) = -B(11139) -! JVS(41142) = Jac_FULL(5250,841) - JVS(41142) = B(6667) -! JVS(41143) = Jac_FULL(5250,842) - JVS(41143) = -B(22496)+B(22498) -! JVS(41144) = Jac_FULL(5250,843) - JVS(41144) = -B(13313)+B(13315) -! JVS(41145) = Jac_FULL(5250,844) - JVS(41145) = -B(16350)+B(16352) -! JVS(41146) = Jac_FULL(5250,845) - JVS(41146) = B(17625)-B(17626) -! JVS(41147) = Jac_FULL(5250,846) - JVS(41147) = B(8875) -! JVS(41148) = Jac_FULL(5250,847) - JVS(41148) = -B(3682) -! JVS(41149) = Jac_FULL(5250,848) - JVS(41149) = B(4788) -! JVS(41150) = Jac_FULL(5250,849) - JVS(41150) = -B(22398)+B(22400) -! JVS(41151) = Jac_FULL(5250,850) - JVS(41151) = B(21223)-B(21224) -! JVS(41152) = Jac_FULL(5250,851) - JVS(41152) = B(9469) -! JVS(41153) = Jac_FULL(5250,852) - JVS(41153) = -B(13344)+B(13346) -! JVS(41154) = Jac_FULL(5250,853) - JVS(41154) = B(11942)-B(11943) -! JVS(41155) = Jac_FULL(5250,854) - JVS(41155) = -B(12749)+B(12751) -! JVS(41156) = Jac_FULL(5250,855) - JVS(41156) = -B(4398)+B(4400) -! JVS(41157) = Jac_FULL(5250,856) - JVS(41157) = -B(23525) -! JVS(41158) = Jac_FULL(5250,857) - JVS(41158) = -B(18627)+B(18629) -! JVS(41159) = Jac_FULL(5250,858) - JVS(41159) = -B(23884)+B(23886) -! JVS(41160) = Jac_FULL(5250,859) - JVS(41160) = -B(19196)+B(19198) -! JVS(41161) = Jac_FULL(5250,860) - JVS(41161) = -B(18390)+B(18392) -! JVS(41162) = Jac_FULL(5250,861) - JVS(41162) = -B(6272)+B(6274) -! JVS(41163) = Jac_FULL(5250,862) - JVS(41163) = -B(12944) -! JVS(41164) = Jac_FULL(5250,863) - JVS(41164) = -B(23270)+B(23272) -! JVS(41165) = Jac_FULL(5250,864) - JVS(41165) = -B(16902)+B(16904) -! JVS(41166) = Jac_FULL(5250,865) - JVS(41166) = -B(14879)+B(14881) -! JVS(41167) = Jac_FULL(5250,866) - JVS(41167) = -B(24043)+B(24045) -! JVS(41168) = Jac_FULL(5250,867) - JVS(41168) = -B(12769)+B(12771) -! JVS(41169) = Jac_FULL(5250,868) - JVS(41169) = B(11440)-B(11441) -! JVS(41170) = Jac_FULL(5250,869) - JVS(41170) = -B(20173)+B(20175) -! JVS(41171) = Jac_FULL(5250,870) - JVS(41171) = B(4698) -! JVS(41172) = Jac_FULL(5250,871) - JVS(41172) = -B(20985)+B(20987) -! JVS(41173) = Jac_FULL(5250,872) - JVS(41173) = B(23059) -! JVS(41174) = Jac_FULL(5250,873) - JVS(41174) = -B(10676)+B(10678) -! JVS(41175) = Jac_FULL(5250,874) - JVS(41175) = -B(3807) -! JVS(41176) = Jac_FULL(5250,875) - JVS(41176) = B(4234) -! JVS(41177) = Jac_FULL(5250,876) - JVS(41177) = B(11805)-B(11806) -! JVS(41178) = Jac_FULL(5250,877) - JVS(41178) = -B(18572)+B(18574) -! JVS(41179) = Jac_FULL(5250,878) - JVS(41179) = -B(18457)+B(18459) -! JVS(41180) = Jac_FULL(5250,879) - JVS(41180) = B(21702) -! JVS(41181) = Jac_FULL(5250,880) - JVS(41181) = B(20845) -! JVS(41182) = Jac_FULL(5250,881) - JVS(41182) = -B(7580)+B(7582) -! JVS(41183) = Jac_FULL(5250,882) - JVS(41183) = B(22640) -! JVS(41184) = Jac_FULL(5250,883) - JVS(41184) = -B(22116)+B(22118) -! JVS(41185) = Jac_FULL(5250,884) - JVS(41185) = -B(9636)+B(9638) -! JVS(41186) = Jac_FULL(5250,885) - JVS(41186) = -B(14547)+B(14549) -! JVS(41187) = Jac_FULL(5250,886) - JVS(41187) = -B(21654)+B(21656) -! JVS(41188) = Jac_FULL(5250,887) - JVS(41188) = -B(20923)+B(20925) -! JVS(41189) = Jac_FULL(5250,888) - JVS(41189) = -B(20187)+B(20189) -! JVS(41190) = Jac_FULL(5250,889) - JVS(41190) = -B(11739)+B(11741) -! JVS(41191) = Jac_FULL(5250,890) - JVS(41191) = -B(20476) -! JVS(41192) = Jac_FULL(5250,891) - JVS(41192) = -B(15929)+B(15931) -! JVS(41193) = Jac_FULL(5250,892) - JVS(41193) = -B(18234)+B(18236) -! JVS(41194) = Jac_FULL(5250,893) - JVS(41194) = -B(20454) -! JVS(41195) = Jac_FULL(5250,894) - JVS(41195) = -B(21356)+B(21358) -! JVS(41196) = Jac_FULL(5250,895) - JVS(41196) = -B(12017) -! JVS(41197) = Jac_FULL(5250,896) - JVS(41197) = -B(3840) -! JVS(41198) = Jac_FULL(5250,897) - JVS(41198) = -B(7314)+B(7316) -! JVS(41199) = Jac_FULL(5250,898) - JVS(41199) = -B(10248) -! JVS(41200) = Jac_FULL(5250,899) - JVS(41200) = -B(18952)+B(18954) -! JVS(41201) = Jac_FULL(5250,900) - JVS(41201) = -B(17256)+B(17258) -! JVS(41202) = Jac_FULL(5250,901) - JVS(41202) = -B(21521)+B(21523) -! JVS(41203) = Jac_FULL(5250,902) - JVS(41203) = -B(22136)+B(22138) -! JVS(41204) = Jac_FULL(5250,903) - JVS(41204) = -B(23932) -! JVS(41205) = Jac_FULL(5250,904) - JVS(41205) = B(11126) -! JVS(41206) = Jac_FULL(5250,905) - JVS(41206) = -B(7569) -! JVS(41207) = Jac_FULL(5250,906) - JVS(41207) = -B(22852) -! JVS(41208) = Jac_FULL(5250,907) - JVS(41208) = -B(21591)+2*B(21593) -! JVS(41209) = Jac_FULL(5250,908) - JVS(41209) = -B(18969)+B(18971) -! JVS(41210) = Jac_FULL(5250,909) - JVS(41210) = -B(17461)+B(17463) -! JVS(41211) = Jac_FULL(5250,910) - JVS(41211) = -B(9562)+B(9564) -! JVS(41212) = Jac_FULL(5250,911) - JVS(41212) = -B(16012) -! JVS(41213) = Jac_FULL(5250,912) - JVS(41213) = -B(7398)+B(7400) -! JVS(41214) = Jac_FULL(5250,913) - JVS(41214) = -B(20019)+B(20021) -! JVS(41215) = Jac_FULL(5250,914) - JVS(41215) = -B(10288)+B(10290) -! JVS(41216) = Jac_FULL(5250,915) - JVS(41216) = -B(12687)+B(12689) -! JVS(41217) = Jac_FULL(5250,916) - JVS(41217) = -B(22954)+B(22956) -! JVS(41218) = Jac_FULL(5250,917) - JVS(41218) = -B(18188)+B(18190) -! JVS(41219) = Jac_FULL(5250,918) - JVS(41219) = -B(7654)+B(7656) -! JVS(41220) = Jac_FULL(5250,919) - JVS(41220) = -B(16928)+B(16930) -! JVS(41221) = Jac_FULL(5250,920) - JVS(41221) = B(7391) -! JVS(41222) = Jac_FULL(5250,921) - JVS(41222) = -B(9330)+B(9332) -! JVS(41223) = Jac_FULL(5250,922) - JVS(41223) = B(5577) -! JVS(41224) = Jac_FULL(5250,923) - JVS(41224) = -B(18453)+B(18455) -! JVS(41225) = Jac_FULL(5250,924) - JVS(41225) = -B(12247) -! JVS(41226) = Jac_FULL(5250,925) - JVS(41226) = -B(48) -! JVS(41227) = Jac_FULL(5250,926) - JVS(41227) = -B(4959) -! JVS(41228) = Jac_FULL(5250,927) - JVS(41228) = B(21041) -! JVS(41229) = Jac_FULL(5250,928) - JVS(41229) = -B(16191)+B(16193) -! JVS(41230) = Jac_FULL(5250,929) - JVS(41230) = -B(14861)+B(14863) -! JVS(41231) = Jac_FULL(5250,930) - JVS(41231) = -B(17358)+B(17360) -! JVS(41232) = Jac_FULL(5250,931) - JVS(41232) = -B(16870)+B(16872) -! JVS(41233) = Jac_FULL(5250,932) - JVS(41233) = -B(10118)+B(10120) -! JVS(41234) = Jac_FULL(5250,933) - JVS(41234) = -B(21746) -! JVS(41235) = Jac_FULL(5250,934) - JVS(41235) = -B(19880)+B(19882) -! JVS(41236) = Jac_FULL(5250,935) - JVS(41236) = -B(22827)+B(22829) -! JVS(41237) = Jac_FULL(5250,936) - JVS(41237) = -B(23349)+B(23351) -! JVS(41238) = Jac_FULL(5250,937) - JVS(41238) = -B(8936)+B(8938) -! JVS(41239) = Jac_FULL(5250,938) - JVS(41239) = -B(9275)+B(9277) -! JVS(41240) = Jac_FULL(5250,939) - JVS(41240) = -B(8774)+B(8776) -! JVS(41241) = Jac_FULL(5250,940) - JVS(41241) = -B(24032)+B(24034) -! JVS(41242) = Jac_FULL(5250,941) - JVS(41242) = -B(9189)+B(9191) -! JVS(41243) = Jac_FULL(5250,942) - JVS(41243) = -B(21830)+B(21832) -! JVS(41244) = Jac_FULL(5250,943) - JVS(41244) = -B(13188)+B(13190) -! JVS(41245) = Jac_FULL(5250,944) - JVS(41245) = -B(15598)+B(15600) -! JVS(41246) = Jac_FULL(5250,945) - JVS(41246) = B(19578)-B(19579) -! JVS(41247) = Jac_FULL(5250,946) - JVS(41247) = B(21181)-B(21182) -! JVS(41248) = Jac_FULL(5250,947) - JVS(41248) = -B(10166)+B(10168) -! JVS(41249) = Jac_FULL(5250,948) - JVS(41249) = B(22512) -! JVS(41250) = Jac_FULL(5250,949) - JVS(41250) = B(17283) -! JVS(41251) = Jac_FULL(5250,950) - JVS(41251) = -B(18544)+B(18546) -! JVS(41252) = Jac_FULL(5250,951) - JVS(41252) = -B(20993)+B(20995) -! JVS(41253) = Jac_FULL(5250,952) - JVS(41253) = -B(21527)+B(21529) -! JVS(41254) = Jac_FULL(5250,953) - JVS(41254) = -B(23603) -! JVS(41255) = Jac_FULL(5250,954) - JVS(41255) = -B(20590)+B(20592) -! JVS(41256) = Jac_FULL(5250,955) - JVS(41256) = B(22712) -! JVS(41257) = Jac_FULL(5250,956) - JVS(41257) = B(5975) -! JVS(41258) = Jac_FULL(5250,957) - JVS(41258) = -B(20512) -! JVS(41259) = Jac_FULL(5250,958) - JVS(41259) = -B(19538) -! JVS(41260) = Jac_FULL(5250,959) - JVS(41260) = -B(9751)+B(9753) -! JVS(41261) = Jac_FULL(5250,960) - JVS(41261) = B(22187)-B(22188) -! JVS(41262) = Jac_FULL(5250,961) - JVS(41262) = -B(9327) -! JVS(41263) = Jac_FULL(5250,962) - JVS(41263) = -B(18605)+B(18607) -! JVS(41264) = Jac_FULL(5250,963) - JVS(41264) = -B(18241)+B(18243) -! JVS(41265) = Jac_FULL(5250,964) - JVS(41265) = B(12036) -! JVS(41266) = Jac_FULL(5250,965) - JVS(41266) = -B(22110)+B(22112) -! JVS(41267) = Jac_FULL(5250,966) - JVS(41267) = B(5662) -! JVS(41268) = Jac_FULL(5250,967) - JVS(41268) = B(17924) -! JVS(41269) = Jac_FULL(5250,968) - JVS(41269) = B(6830) -! JVS(41270) = Jac_FULL(5250,969) - JVS(41270) = B(6609) -! JVS(41271) = Jac_FULL(5250,970) - JVS(41271) = -B(17361)+B(17363) -! JVS(41272) = Jac_FULL(5250,971) - JVS(41272) = -B(22960)+B(22962) -! JVS(41273) = Jac_FULL(5250,972) - JVS(41273) = -B(20239)+B(20241) -! JVS(41274) = Jac_FULL(5250,973) - JVS(41274) = -B(23221)+B(23223) -! JVS(41275) = Jac_FULL(5250,974) - JVS(41275) = -B(16129)+B(16131) -! JVS(41276) = Jac_FULL(5250,975) - JVS(41276) = B(17735)-B(17736) -! JVS(41277) = Jac_FULL(5250,976) - JVS(41277) = -B(5091) -! JVS(41278) = Jac_FULL(5250,977) - JVS(41278) = -B(19943)+B(19945) -! JVS(41279) = Jac_FULL(5250,978) - JVS(41279) = -B(18169)+B(18171) -! JVS(41280) = Jac_FULL(5250,979) - JVS(41280) = -B(18072)+B(18074) -! JVS(41281) = Jac_FULL(5250,980) - JVS(41281) = B(4606)-B(4607) -! JVS(41282) = Jac_FULL(5250,981) - JVS(41282) = B(10700) -! JVS(41283) = Jac_FULL(5250,982) - JVS(41283) = -B(10197)+B(10199) -! JVS(41284) = Jac_FULL(5250,983) - JVS(41284) = B(19590)-B(19591) -! JVS(41285) = Jac_FULL(5250,984) - JVS(41285) = -B(21921)+B(21923) -! JVS(41286) = Jac_FULL(5250,985) - JVS(41286) = -B(14502)+B(14504) -! JVS(41287) = Jac_FULL(5250,986) - JVS(41287) = -B(21673)+B(21675) -! JVS(41288) = Jac_FULL(5250,987) - JVS(41288) = -B(4098)+B(4100) -! JVS(41289) = Jac_FULL(5250,988) - JVS(41289) = B(19635)-B(19636) -! JVS(41290) = Jac_FULL(5250,989) - JVS(41290) = -B(23249)+B(23251) -! JVS(41291) = Jac_FULL(5250,990) - JVS(41291) = -B(16911) -! JVS(41292) = Jac_FULL(5250,991) - JVS(41292) = -B(13547) -! JVS(41293) = Jac_FULL(5250,992) - JVS(41293) = -B(19057)+B(19059) -! JVS(41294) = Jac_FULL(5250,993) - JVS(41294) = -B(20837)+B(20839) -! JVS(41295) = Jac_FULL(5250,994) - JVS(41295) = -B(20009)+B(20011) -! JVS(41296) = Jac_FULL(5250,995) - JVS(41296) = B(21205) -! JVS(41297) = Jac_FULL(5250,996) - JVS(41297) = -B(9238)+B(9240) -! JVS(41298) = Jac_FULL(5250,997) - JVS(41298) = -B(18697)+B(18699) -! JVS(41299) = Jac_FULL(5250,998) - JVS(41299) = -B(23579)+B(23581) -! JVS(41300) = Jac_FULL(5250,999) - JVS(41300) = B(4429) -! JVS(41301) = Jac_FULL(5250,1000) - JVS(41301) = -B(6351) -! JVS(41302) = Jac_FULL(5250,1001) - JVS(41302) = -B(7572) -! JVS(41303) = Jac_FULL(5250,1002) - JVS(41303) = -B(12725)+B(12727) -! JVS(41304) = Jac_FULL(5250,1003) - JVS(41304) = -B(16254)+B(16256) -! JVS(41305) = Jac_FULL(5250,1004) - JVS(41305) = B(22038) -! JVS(41306) = Jac_FULL(5250,1005) - JVS(41306) = -B(11504) -! JVS(41307) = Jac_FULL(5250,1006) - JVS(41307) = -B(21560)+2*B(21562) -! JVS(41308) = Jac_FULL(5250,1007) - JVS(41308) = -B(11060)+B(11062) -! JVS(41309) = Jac_FULL(5250,1008) - JVS(41309) = -B(22504)+B(22506) -! JVS(41310) = Jac_FULL(5250,1009) - JVS(41310) = -B(9140)+B(9142) -! JVS(41311) = Jac_FULL(5250,1010) - JVS(41311) = B(12023) -! JVS(41312) = Jac_FULL(5250,1012) - JVS(41312) = -B(19300)+B(19302) -! JVS(41313) = Jac_FULL(5250,1014) - JVS(41313) = B(9775) -! JVS(41314) = Jac_FULL(5250,1015) - JVS(41314) = B(11580)-B(11581) -! JVS(41315) = Jac_FULL(5250,1016) - JVS(41315) = B(8718) -! JVS(41316) = Jac_FULL(5250,1017) - JVS(41316) = -B(16307)+B(16309) -! JVS(41317) = Jac_FULL(5250,1018) - JVS(41317) = -B(21749)+B(21751) -! JVS(41318) = Jac_FULL(5250,1019) - JVS(41318) = B(23677) -! JVS(41319) = Jac_FULL(5250,1020) - JVS(41319) = -B(15718)+B(15720) -! JVS(41320) = Jac_FULL(5250,1021) - JVS(41320) = -B(16417)+B(16419) -! JVS(41321) = Jac_FULL(5250,1022) - JVS(41321) = -B(23606)+B(23608) -! JVS(41322) = Jac_FULL(5250,1023) - JVS(41322) = -B(9399)+B(9401) -! JVS(41323) = Jac_FULL(5250,1024) - JVS(41323) = -B(8767)+B(8769) -! JVS(41324) = Jac_FULL(5250,1025) - JVS(41324) = -B(20132)+B(20134) -! JVS(41325) = Jac_FULL(5250,1026) - JVS(41325) = -B(21208) -! JVS(41326) = Jac_FULL(5250,1027) - JVS(41326) = B(5793) -! JVS(41327) = Jac_FULL(5250,1028) - JVS(41327) = B(12137)-B(12138) -! JVS(41328) = Jac_FULL(5250,1029) - JVS(41328) = -B(20217)+B(20219) -! JVS(41329) = Jac_FULL(5250,1030) - JVS(41329) = -B(20257)+B(20259) -! JVS(41330) = Jac_FULL(5250,1031) - JVS(41330) = -B(9451)+B(9453) -! JVS(41331) = Jac_FULL(5250,1032) - JVS(41331) = B(12050)-B(12051) -! JVS(41332) = Jac_FULL(5250,1033) - JVS(41332) = -B(9979)+B(9981) -! JVS(41333) = Jac_FULL(5250,1034) - JVS(41333) = -B(9874)+B(9876) -! JVS(41334) = Jac_FULL(5250,1035) - JVS(41334) = -B(3770) -! JVS(41335) = Jac_FULL(5250,1036) - JVS(41335) = -B(7297) -! JVS(41336) = Jac_FULL(5250,1037) - JVS(41336) = -B(11600) -! JVS(41337) = Jac_FULL(5250,1038) - JVS(41337) = B(10002) -! JVS(41338) = Jac_FULL(5250,1039) - JVS(41338) = B(5881) -! JVS(41339) = Jac_FULL(5250,1040) - JVS(41339) = -B(15455) -! JVS(41340) = Jac_FULL(5250,1041) - JVS(41340) = B(19021)-B(19022) -! JVS(41341) = Jac_FULL(5250,1042) - JVS(41341) = B(17498)-B(17499) -! JVS(41342) = Jac_FULL(5250,1043) - JVS(41342) = -B(14234)+B(14236) -! JVS(41343) = Jac_FULL(5250,1044) - JVS(41343) = -B(23343)+B(23345) -! JVS(41344) = Jac_FULL(5250,1045) - JVS(41344) = -B(20213)+B(20215) -! JVS(41345) = Jac_FULL(5250,1046) - JVS(41345) = -B(23654)+B(23656) -! JVS(41346) = Jac_FULL(5250,1047) - JVS(41346) = -B(17099)+B(17101) -! JVS(41347) = Jac_FULL(5250,1048) - JVS(41347) = -B(11589)+B(11591) -! JVS(41348) = Jac_FULL(5250,1049) - JVS(41348) = B(8965) -! JVS(41349) = Jac_FULL(5250,1050) - JVS(41349) = -B(3796) -! JVS(41350) = Jac_FULL(5250,1051) - JVS(41350) = -B(18512)+B(18514) -! JVS(41351) = Jac_FULL(5250,1052) - JVS(41351) = B(4778) -! JVS(41352) = Jac_FULL(5250,1053) - JVS(41352) = -B(15900)+B(15902) -! JVS(41353) = Jac_FULL(5250,1054) - JVS(41353) = -B(6673) -! JVS(41354) = Jac_FULL(5250,1055) - JVS(41354) = B(19569)-B(19570) -! JVS(41355) = Jac_FULL(5250,1056) - JVS(41355) = -B(17393) -! JVS(41356) = Jac_FULL(5250,1057) - JVS(41356) = -B(14387) -! JVS(41357) = Jac_FULL(5250,1058) - JVS(41357) = -B(7455) -! JVS(41358) = Jac_FULL(5250,1059) - JVS(41358) = B(14327) -! JVS(41359) = Jac_FULL(5250,1060) - JVS(41359) = B(23145) -! JVS(41360) = Jac_FULL(5250,1061) - JVS(41360) = -B(18509)+B(18511) -! JVS(41361) = Jac_FULL(5250,1062) - JVS(41361) = -B(18551)+B(18553) -! JVS(41362) = Jac_FULL(5250,1063) - JVS(41362) = -B(4852)+B(4854) -! JVS(41363) = Jac_FULL(5250,1064) - JVS(41363) = -B(14009)+B(14011) -! JVS(41364) = Jac_FULL(5250,1065) - JVS(41364) = B(9580) -! JVS(41365) = Jac_FULL(5250,1066) - JVS(41365) = -B(3976)+B(3978) -! JVS(41366) = Jac_FULL(5250,1067) - JVS(41366) = -B(12370)+B(12372) -! JVS(41367) = Jac_FULL(5250,1068) - JVS(41367) = -B(74) -! JVS(41368) = Jac_FULL(5250,1069) - JVS(41368) = B(4455)-B(4456) -! JVS(41369) = Jac_FULL(5250,1070) - JVS(41369) = B(21976) -! JVS(41370) = Jac_FULL(5250,1071) - JVS(41370) = -B(19260)+B(19262) -! JVS(41371) = Jac_FULL(5250,1072) - JVS(41371) = -B(5085)+B(5087) -! JVS(41372) = Jac_FULL(5250,1073) - JVS(41372) = -B(9448) -! JVS(41373) = Jac_FULL(5250,1074) - JVS(41373) = B(17518)-B(17519) -! JVS(41374) = Jac_FULL(5250,1075) - JVS(41374) = B(12006)-B(12007) -! JVS(41375) = Jac_FULL(5250,1076) - JVS(41375) = -B(13434)+B(13436) -! JVS(41376) = Jac_FULL(5250,1077) - JVS(41376) = B(23726) -! JVS(41377) = Jac_FULL(5250,1078) - JVS(41377) = -B(12200) -! JVS(41378) = Jac_FULL(5250,1079) - JVS(41378) = B(4764) -! JVS(41379) = Jac_FULL(5250,1080) - JVS(41379) = -B(12255)+B(12257) -! JVS(41380) = Jac_FULL(5250,1081) - JVS(41380) = -B(3953) -! JVS(41381) = Jac_FULL(5250,1082) - JVS(41381) = B(4731)-B(4732) -! JVS(41382) = Jac_FULL(5250,1083) - JVS(41382) = -B(6532) -! JVS(41383) = Jac_FULL(5250,1084) - JVS(41383) = -B(12684) -! JVS(41384) = Jac_FULL(5250,1085) - JVS(41384) = -B(23239)+B(23241) -! JVS(41385) = Jac_FULL(5250,1086) - JVS(41385) = -B(12569) -! JVS(41386) = Jac_FULL(5250,1087) - JVS(41386) = -B(17096) -! JVS(41387) = Jac_FULL(5250,1088) - JVS(41387) = B(16088) -! JVS(41388) = Jac_FULL(5250,1089) - JVS(41388) = B(20795) -! JVS(41389) = Jac_FULL(5250,1090) - JVS(41389) = B(17598)-B(17599) -! JVS(41390) = Jac_FULL(5250,1091) - JVS(41390) = -B(18371)+B(18373) -! JVS(41391) = Jac_FULL(5250,1092) - JVS(41391) = B(16355) -! JVS(41392) = Jac_FULL(5250,1093) - JVS(41392) = -B(19222)+B(19224) -! JVS(41393) = Jac_FULL(5250,1094) - JVS(41393) = B(22386) -! JVS(41394) = Jac_FULL(5250,1095) - JVS(41394) = -B(6598)+B(6600) -! JVS(41395) = Jac_FULL(5250,1096) - JVS(41395) = -B(18121)+B(18123) -! JVS(41396) = Jac_FULL(5250,1097) - JVS(41396) = -B(11586) -! JVS(41397) = Jac_FULL(5250,1098) - JVS(41397) = B(13544) -! JVS(41398) = Jac_FULL(5250,1099) - JVS(41398) = -B(14047)+B(14049) -! JVS(41399) = Jac_FULL(5250,1100) - JVS(41399) = B(11602)-B(11603) -! JVS(41400) = Jac_FULL(5250,1101) - JVS(41400) = -B(18675)+B(18677) -! JVS(41401) = Jac_FULL(5250,1102) - JVS(41401) = B(10714) -! JVS(41402) = Jac_FULL(5250,1103) - JVS(41402) = B(9939) -! JVS(41403) = Jac_FULL(5250,1104) - JVS(41403) = -B(18184)+B(18186) -! JVS(41404) = Jac_FULL(5250,1105) - JVS(41404) = -B(18076)+B(18078) -! JVS(41405) = Jac_FULL(5250,1106) - JVS(41405) = -B(7648)+B(7650) -! JVS(41406) = Jac_FULL(5250,1107) - JVS(41406) = -B(23391)+B(23393) -! JVS(41407) = Jac_FULL(5250,1108) - JVS(41407) = B(3789) -! JVS(41408) = Jac_FULL(5250,1109) - JVS(41408) = -B(12496)+B(12498) -! JVS(41409) = Jac_FULL(5250,1110) - JVS(41409) = -B(12176) -! JVS(41410) = Jac_FULL(5250,1111) - JVS(41410) = -B(13038) -! JVS(41411) = Jac_FULL(5250,1112) - JVS(41411) = B(9690) -! JVS(41412) = Jac_FULL(5250,1113) - JVS(41412) = -B(11030) -! JVS(41413) = Jac_FULL(5250,1114) - JVS(41413) = B(19847)-B(19848) -! JVS(41414) = Jac_FULL(5250,1115) - JVS(41414) = B(17920)-B(17921) -! JVS(41415) = Jac_FULL(5250,1116) - JVS(41415) = -B(23923)+B(23925) -! JVS(41416) = Jac_FULL(5250,1117) - JVS(41416) = -B(19939)+B(19941) -! JVS(41417) = Jac_FULL(5250,1118) - JVS(41417) = -B(20128)+B(20130) -! JVS(41418) = Jac_FULL(5250,1119) - JVS(41418) = B(22002) -! JVS(41419) = Jac_FULL(5250,1120) - JVS(41419) = -B(4070) -! JVS(41420) = Jac_FULL(5250,1121) - JVS(41420) = -B(5176) -! JVS(41421) = Jac_FULL(5250,1122) - JVS(41421) = B(17950)-B(17951) -! JVS(41422) = Jac_FULL(5250,1123) - JVS(41422) = -B(16100)+B(16102) -! JVS(41423) = Jac_FULL(5250,1124) - JVS(41423) = -B(3879) -! JVS(41424) = Jac_FULL(5250,1125) - JVS(41424) = -B(15489)+B(15491) -! JVS(41425) = Jac_FULL(5250,1126) - JVS(41425) = B(21945) -! JVS(41426) = Jac_FULL(5250,1127) - JVS(41426) = -B(15436)+B(15438) -! JVS(41427) = Jac_FULL(5250,1128) - JVS(41427) = B(11414) -! JVS(41428) = Jac_FULL(5250,1129) - JVS(41428) = -B(16197)+B(16199) -! JVS(41429) = Jac_FULL(5250,1130) - JVS(41429) = B(23614) -! JVS(41430) = Jac_FULL(5250,1131) - JVS(41430) = B(6501) -! JVS(41431) = Jac_FULL(5250,1132) - JVS(41431) = B(7078) -! JVS(41432) = Jac_FULL(5250,1133) - JVS(41432) = -B(15914) -! JVS(41433) = Jac_FULL(5250,1134) - JVS(41433) = B(11516)-B(11517) -! JVS(41434) = Jac_FULL(5250,1135) - JVS(41434) = B(20897) -! JVS(41435) = Jac_FULL(5250,1136) - JVS(41435) = B(17868) -! JVS(41436) = Jac_FULL(5250,1137) - JVS(41436) = B(22183)-B(22184) -! JVS(41437) = Jac_FULL(5250,1138) - JVS(41437) = -B(3712)+B(3714) -! JVS(41438) = Jac_FULL(5250,1139) - JVS(41438) = B(22443) -! JVS(41439) = Jac_FULL(5250,1140) - JVS(41439) = -B(3694) -! JVS(41440) = Jac_FULL(5250,1141) - JVS(41440) = B(4884) -! JVS(41441) = Jac_FULL(5250,1142) - JVS(41441) = B(11454) -! JVS(41442) = Jac_FULL(5250,1143) - JVS(41442) = B(6955) -! JVS(41443) = Jac_FULL(5250,1144) - JVS(41443) = -B(18290)+B(18292) -! JVS(41444) = Jac_FULL(5250,1145) - JVS(41444) = B(17787) -! JVS(41445) = Jac_FULL(5250,1146) - JVS(41445) = -B(23274)+B(23276) -! JVS(41446) = Jac_FULL(5250,1147) - JVS(41446) = -B(16938)+B(16940) -! JVS(41447) = Jac_FULL(5250,1148) - JVS(41447) = -B(18679)+B(18681) -! JVS(41448) = Jac_FULL(5250,1149) - JVS(41448) = B(22050) -! JVS(41449) = Jac_FULL(5250,1150) - JVS(41449) = B(6184) -! JVS(41450) = Jac_FULL(5250,1151) - JVS(41450) = -B(17176) -! JVS(41451) = Jac_FULL(5250,1152) - JVS(41451) = -B(15781)+B(15783) -! JVS(41452) = Jac_FULL(5250,1153) - JVS(41452) = -B(7186)+B(7188) -! JVS(41453) = Jac_FULL(5250,1154) - JVS(41453) = -B(23888)+B(23890) -! JVS(41454) = Jac_FULL(5250,1155) - JVS(41454) = -B(23102)+B(23104) -! JVS(41455) = Jac_FULL(5250,1156) - JVS(41455) = -B(13285)+B(13287) -! JVS(41456) = Jac_FULL(5250,1157) - JVS(41456) = -B(9006)+B(9008) -! JVS(41457) = Jac_FULL(5250,1158) - JVS(41457) = B(11448)-B(11449) -! JVS(41458) = Jac_FULL(5250,1159) - JVS(41458) = -B(6529)+B(6531) -! JVS(41459) = Jac_FULL(5250,1160) - JVS(41459) = B(14000) -! JVS(41460) = Jac_FULL(5250,1161) - JVS(41460) = B(10077) -! JVS(41461) = Jac_FULL(5250,1162) - JVS(41461) = B(23113) -! JVS(41462) = Jac_FULL(5250,1163) - JVS(41462) = -B(22421) -! JVS(41463) = Jac_FULL(5250,1164) - JVS(41463) = -B(21695)+B(21697) -! JVS(41464) = Jac_FULL(5250,1165) - JVS(41464) = B(11745) -! JVS(41465) = Jac_FULL(5250,1166) - JVS(41465) = -B(20177)+B(20179) -! JVS(41466) = Jac_FULL(5250,1167) - JVS(41466) = B(9197) -! JVS(41467) = Jac_FULL(5250,1168) - JVS(41467) = B(12069) -! JVS(41468) = Jac_FULL(5250,1169) - JVS(41468) = -B(20063)+B(20065) -! JVS(41469) = Jac_FULL(5250,1170) - JVS(41469) = -B(16027)+B(16029) -! JVS(41470) = Jac_FULL(5250,1171) - JVS(41470) = -B(5196)+B(5198) -! JVS(41471) = Jac_FULL(5250,1172) - JVS(41471) = -B(6670) -! JVS(41472) = Jac_FULL(5250,1173) - JVS(41472) = B(21161)-B(21162) -! JVS(41473) = Jac_FULL(5250,1174) - JVS(41473) = -B(9559) -! JVS(41474) = Jac_FULL(5250,1175) - JVS(41474) = -B(13144) -! JVS(41475) = Jac_FULL(5250,1176) - JVS(41475) = -B(13462)+B(13464) -! JVS(41476) = Jac_FULL(5250,1177) - JVS(41476) = B(7207) -! JVS(41477) = Jac_FULL(5250,1178) - JVS(41477) = B(11381) -! JVS(41478) = Jac_FULL(5250,1179) - JVS(41478) = -B(11705) -! JVS(41479) = Jac_FULL(5250,1180) - JVS(41479) = B(11882)-B(11883) -! JVS(41480) = Jac_FULL(5250,1181) - JVS(41480) = B(22567) -! JVS(41481) = Jac_FULL(5250,1182) - JVS(41481) = -B(17196)+B(17198) -! JVS(41482) = Jac_FULL(5250,1183) - JVS(41482) = -B(17339)+B(17341) -! JVS(41483) = Jac_FULL(5250,1184) - JVS(41483) = -B(18724) -! JVS(41484) = Jac_FULL(5250,1185) - JVS(41484) = B(4361) -! JVS(41485) = Jac_FULL(5250,1186) - JVS(41485) = -B(7383)+B(7385) -! JVS(41486) = Jac_FULL(5250,1187) - JVS(41486) = -B(18561)+B(18563) -! JVS(41487) = Jac_FULL(5250,1188) - JVS(41487) = -B(12876)+B(12878) -! JVS(41488) = Jac_FULL(5250,1189) - JVS(41488) = -B(22395) -! JVS(41489) = Jac_FULL(5250,1190) - JVS(41489) = -B(18294)+B(18296) -! JVS(41490) = Jac_FULL(5250,1191) - JVS(41490) = B(17691) -! JVS(41491) = Jac_FULL(5250,1192) - JVS(41491) = B(19874) -! JVS(41492) = Jac_FULL(5250,1193) - JVS(41492) = B(14192)-B(14193) -! JVS(41493) = Jac_FULL(5250,1194) - JVS(41493) = -B(3850) -! JVS(41494) = Jac_FULL(5250,1195) - JVS(41494) = B(19531) -! JVS(41495) = Jac_FULL(5250,1196) - JVS(41495) = B(17862)-B(17863) -! JVS(41496) = Jac_FULL(5250,1197) - JVS(41496) = -B(16946)+B(16948) -! JVS(41497) = Jac_FULL(5250,1198) - JVS(41497) = B(21275)-B(21276) -! JVS(41498) = Jac_FULL(5250,1199) - JVS(41498) = -B(23165)+B(23167) -! JVS(41499) = Jac_FULL(5250,1200) - JVS(41499) = -B(6431)+B(6433) -! JVS(41500) = Jac_FULL(5250,1201) - JVS(41500) = B(20566)-B(20567) -! JVS(41501) = Jac_FULL(5250,1202) - JVS(41501) = -B(14883)+B(14885) -! JVS(41502) = Jac_FULL(5250,1203) - JVS(41502) = -B(20696)+B(20698) -! JVS(41503) = Jac_FULL(5250,1204) - JVS(41503) = B(17524) -! JVS(41504) = Jac_FULL(5250,1205) - JVS(41504) = B(11223) -! JVS(41505) = Jac_FULL(5250,1206) - JVS(41505) = -B(13265)+B(13267) -! JVS(41506) = Jac_FULL(5250,1207) - JVS(41506) = B(4710)-B(4711) -! JVS(41507) = Jac_FULL(5250,1208) - JVS(41507) = -B(21630)+B(21632) -! JVS(41508) = Jac_FULL(5250,1209) - JVS(41508) = -B(22833)+B(22835) -! JVS(41509) = Jac_FULL(5250,1210) - JVS(41509) = -B(8684) -! JVS(41510) = Jac_FULL(5250,1211) - JVS(41510) = B(5702) -! JVS(41511) = Jac_FULL(5250,1212) - JVS(41511) = -B(14085)+B(14087) -! JVS(41512) = Jac_FULL(5250,1213) - JVS(41512) = B(17631) -! JVS(41513) = Jac_FULL(5250,1214) - JVS(41513) = -B(20700)+B(20702) -! JVS(41514) = Jac_FULL(5250,1215) - JVS(41514) = -B(20293)+B(20295) -! JVS(41515) = Jac_FULL(5250,1216) - JVS(41515) = -B(6434) -! JVS(41516) = Jac_FULL(5250,1217) - JVS(41516) = -B(14171)+B(14173) -! JVS(41517) = Jac_FULL(5250,1218) - JVS(41517) = -B(9838)+B(9840) -! JVS(41518) = Jac_FULL(5250,1219) - JVS(41518) = -B(23917)+B(23919) -! JVS(41519) = Jac_FULL(5250,1220) - JVS(41519) = B(13570) -! JVS(41520) = Jac_FULL(5250,1221) - JVS(41520) = -B(18312)+B(18314) -! JVS(41521) = Jac_FULL(5250,1222) - JVS(41521) = -B(21566) -! JVS(41522) = Jac_FULL(5250,1223) - JVS(41522) = -B(20235)+B(20237) -! JVS(41523) = Jac_FULL(5250,1224) - JVS(41523) = B(15986) -! JVS(41524) = Jac_FULL(5250,1225) - JVS(41524) = B(20662) -! JVS(41525) = Jac_FULL(5250,1226) - JVS(41525) = B(21262)-B(21263) -! JVS(41526) = Jac_FULL(5250,1227) - JVS(41526) = -B(13067)+B(13069) -! JVS(41527) = Jac_FULL(5250,1228) - JVS(41527) = -B(13211)+B(13213) -! JVS(41528) = Jac_FULL(5250,1229) - JVS(41528) = -B(20424) -! JVS(41529) = Jac_FULL(5250,1230) - JVS(41529) = -B(18118)+B(18120) -! JVS(41530) = Jac_FULL(5250,1231) - JVS(41530) = -B(16114) -! JVS(41531) = Jac_FULL(5250,1232) - JVS(41531) = -B(9506)+B(9508) -! JVS(41532) = Jac_FULL(5250,1233) - JVS(41532) = -B(21012)+B(21014) -! JVS(41533) = Jac_FULL(5250,1234) - JVS(41533) = B(21199)-B(21200) -! JVS(41534) = Jac_FULL(5250,1235) - JVS(41534) = B(4800) -! JVS(41535) = Jac_FULL(5250,1236) - JVS(41535) = B(22151)-B(22152) -! JVS(41536) = Jac_FULL(5250,1237) - JVS(41536) = B(19311) -! JVS(41537) = Jac_FULL(5250,1238) - JVS(41537) = -B(23491) -! JVS(41538) = Jac_FULL(5250,1239) - JVS(41538) = B(6942) -! JVS(41539) = Jac_FULL(5250,1241) - JVS(41539) = -B(7305)+B(7307) -! JVS(41540) = Jac_FULL(5250,1242) - JVS(41540) = -B(16626) -! JVS(41541) = Jac_FULL(5250,1243) - JVS(41541) = -B(15692)+B(15694) -! JVS(41542) = Jac_FULL(5250,1244) - JVS(41542) = B(21236)-B(21237) -! JVS(41543) = Jac_FULL(5250,1245) - JVS(41543) = -B(21072)+B(21074) -! JVS(41544) = Jac_FULL(5250,1246) - JVS(41544) = B(13770) -! JVS(41545) = Jac_FULL(5250,1247) - JVS(41545) = -B(20904)+B(20906) -! JVS(41546) = Jac_FULL(5250,1248) - JVS(41546) = -B(21317)+B(21319) -! JVS(41547) = Jac_FULL(5250,1249) - JVS(41547) = B(20312)-B(20313) -! JVS(41548) = Jac_FULL(5250,1250) - JVS(41548) = -B(23026)+B(23028) -! JVS(41549) = Jac_FULL(5250,1251) - JVS(41549) = -B(14541)+B(14543) -! JVS(41550) = Jac_FULL(5250,1252) - JVS(41550) = -B(16181)+B(16183) -! JVS(41551) = Jac_FULL(5250,1253) - JVS(41551) = -B(18327)+B(18329) -! JVS(41552) = Jac_FULL(5250,1254) - JVS(41552) = -B(10069)+B(10071) -! JVS(41553) = Jac_FULL(5250,1255) - JVS(41553) = -B(18247)+B(18249) -! JVS(41554) = Jac_FULL(5250,1256) - JVS(41554) = -B(13459) -! JVS(41555) = Jac_FULL(5250,1257) - JVS(41555) = -B(23859) -! JVS(41556) = Jac_FULL(5250,1258) - JVS(41556) = B(6694) -! JVS(41557) = Jac_FULL(5250,1259) - JVS(41557) = B(4752) -! JVS(41558) = Jac_FULL(5250,1260) - JVS(41558) = B(19250) -! JVS(41559) = Jac_FULL(5250,1261) - JVS(41559) = -B(12258) -! JVS(41560) = Jac_FULL(5250,1262) - JVS(41560) = B(11835) -! JVS(41561) = Jac_FULL(5250,1263) - JVS(41561) = -B(23553)+B(23555) -! JVS(41562) = Jac_FULL(5250,1264) - JVS(41562) = B(22895) -! JVS(41563) = Jac_FULL(5250,1265) - JVS(41563) = B(3833)-B(3834) -! JVS(41564) = Jac_FULL(5250,1266) - JVS(41564) = -B(16996)+B(16998) -! JVS(41565) = Jac_FULL(5250,1267) - JVS(41565) = B(4686) -! JVS(41566) = Jac_FULL(5250,1268) - JVS(41566) = B(22179)-B(22180) -! JVS(41567) = Jac_FULL(5250,1269) - JVS(41567) = -B(7915) -! JVS(41568) = Jac_FULL(5250,1270) - JVS(41568) = B(6421) -! JVS(41569) = Jac_FULL(5250,1271) - JVS(41569) = B(22191)-B(22192) -! JVS(41570) = Jac_FULL(5250,1272) - JVS(41570) = -B(21935)+B(21937) -! JVS(41571) = Jac_FULL(5250,1273) - JVS(41571) = -B(20191)+B(20193) -! JVS(41572) = Jac_FULL(5250,1274) - JVS(41572) = -B(10251)+B(10253) -! JVS(41573) = Jac_FULL(5250,1275) - JVS(41573) = -B(21667)+B(21669) -! JVS(41574) = Jac_FULL(5250,1276) - JVS(41574) = B(5493) -! JVS(41575) = Jac_FULL(5250,1277) - JVS(41575) = -B(20670)+B(20672) -! JVS(41576) = Jac_FULL(5250,1278) - JVS(41576) = -B(20045)+B(20047) -! JVS(41577) = Jac_FULL(5250,1279) - JVS(41577) = -B(19546)+B(19548) -! JVS(41578) = Jac_FULL(5250,1280) - JVS(41578) = -B(6843) -! JVS(41579) = Jac_FULL(5250,1281) - JVS(41579) = B(11904) -! JVS(41580) = Jac_FULL(5250,1282) - JVS(41580) = B(12019)-B(12020) -! JVS(41581) = Jac_FULL(5250,1283) - JVS(41581) = -B(12610)+B(12612) -! JVS(41582) = Jac_FULL(5250,1284) - JVS(41582) = -B(16959) -! JVS(41583) = Jac_FULL(5250,1285) - JVS(41583) = -B(10683)+B(10685) -! JVS(41584) = Jac_FULL(5250,1286) - JVS(41584) = B(17349) -! JVS(41585) = Jac_FULL(5250,1287) - JVS(41585) = B(5385) -! JVS(41586) = Jac_FULL(5250,1288) - JVS(41586) = -B(4890)+B(4892) -! JVS(41587) = Jac_FULL(5250,1289) - JVS(41587) = B(10452) -! JVS(41588) = Jac_FULL(5250,1290) - JVS(41588) = B(11760)-B(11761) -! JVS(41589) = Jac_FULL(5250,1291) - JVS(41589) = B(17675)-B(17676) -! JVS(41590) = Jac_FULL(5250,1292) - JVS(41590) = -B(14174)+B(14176) -! JVS(41591) = Jac_FULL(5250,1293) - JVS(41591) = -B(18353)+B(18355) -! JVS(41592) = Jac_FULL(5250,1294) - JVS(41592) = -B(15885)+B(15887) -! JVS(41593) = Jac_FULL(5250,1295) - JVS(41593) = B(23214) -! JVS(41594) = Jac_FULL(5250,1296) - JVS(41594) = -B(9077)+B(9079) -! JVS(41595) = Jac_FULL(5250,1297) - JVS(41595) = -B(7387) -! JVS(41596) = Jac_FULL(5250,1298) - JVS(41596) = B(4506) -! JVS(41597) = Jac_FULL(5250,1299) - JVS(41597) = -B(10160)+B(10162) -! JVS(41598) = Jac_FULL(5250,1300) - JVS(41598) = -B(4894)+B(4896) -! JVS(41599) = Jac_FULL(5250,1301) - JVS(41599) = -B(21448)+B(21450) -! JVS(41600) = Jac_FULL(5250,1302) - JVS(41600) = -B(4842)+B(4844) -! JVS(41601) = Jac_FULL(5250,1303) - JVS(41601) = -B(12971)+B(12973) -! JVS(41602) = Jac_FULL(5250,1304) - JVS(41602) = B(12105) -! JVS(41603) = Jac_FULL(5250,1305) - JVS(41603) = B(6970) -! JVS(41604) = Jac_FULL(5250,1306) - JVS(41604) = -B(10696)+B(10698) -! JVS(41605) = Jac_FULL(5250,1307) - JVS(41605) = B(5331) -! JVS(41606) = Jac_FULL(5250,1308) - JVS(41606) = -B(18438)+B(18440) -! JVS(41607) = Jac_FULL(5250,1309) - JVS(41607) = -B(20098)+B(20100) -! JVS(41608) = Jac_FULL(5250,1310) - JVS(41608) = B(6112) -! JVS(41609) = Jac_FULL(5250,1311) - JVS(41609) = -B(16941) -! JVS(41610) = Jac_FULL(5250,1312) - JVS(41610) = B(22415) -! JVS(41611) = Jac_FULL(5250,1313) - JVS(41611) = B(7225) -! JVS(41612) = Jac_FULL(5250,1314) - JVS(41612) = -B(14623)+B(14625) -! JVS(41613) = Jac_FULL(5250,1315) - JVS(41613) = B(5755) -! JVS(41614) = Jac_FULL(5250,1316) - JVS(41614) = -B(8854) -! JVS(41615) = Jac_FULL(5250,1317) - JVS(41615) = -B(20929)+B(20931) -! JVS(41616) = Jac_FULL(5250,1318) - JVS(41616) = B(17136) -! JVS(41617) = Jac_FULL(5250,1319) - JVS(41617) = B(19047)-B(19048) -! JVS(41618) = Jac_FULL(5250,1320) - JVS(41618) = -B(21648)+B(21650) -! JVS(41619) = Jac_FULL(5250,1321) - JVS(41619) = -B(18998) -! JVS(41620) = Jac_FULL(5250,1322) - JVS(41620) = -B(18125)+B(18127) -! JVS(41621) = Jac_FULL(5250,1323) - JVS(41621) = B(17646) -! JVS(41622) = Jac_FULL(5250,1324) - JVS(41622) = -B(16921)+B(16923) -! JVS(41623) = Jac_FULL(5250,1325) - JVS(41623) = -B(17109)+B(17111) -! JVS(41624) = Jac_FULL(5250,1326) - JVS(41624) = B(12010)-B(12011) -! JVS(41625) = Jac_FULL(5250,1327) - JVS(41625) = B(17617)-B(17618) -! JVS(41626) = Jac_FULL(5250,1328) - JVS(41626) = B(23513) -! JVS(41627) = Jac_FULL(5250,1329) - JVS(41627) = -B(18386)+B(18388) -! JVS(41628) = Jac_FULL(5250,1330) - JVS(41628) = -B(10157) -! JVS(41629) = Jac_FULL(5250,1331) - JVS(41629) = -B(22068)+B(22070) -! JVS(41630) = Jac_FULL(5250,1332) - JVS(41630) = -B(4192)+B(4194) -! JVS(41631) = Jac_FULL(5250,1333) - JVS(41631) = B(22127) -! JVS(41632) = Jac_FULL(5250,1334) - JVS(41632) = -B(17390) -! JVS(41633) = Jac_FULL(5250,1335) - JVS(41633) = -B(21452)+B(21454) -! JVS(41634) = Jac_FULL(5250,1336) - JVS(41634) = -B(22621)+B(22623) -! JVS(41635) = Jac_FULL(5250,1337) - JVS(41635) = B(14118) -! JVS(41636) = Jac_FULL(5250,1338) - JVS(41636) = B(22195)-B(22196) -! JVS(41637) = Jac_FULL(5250,1339) - JVS(41637) = B(23419) -! JVS(41638) = Jac_FULL(5250,1340) - JVS(41638) = B(11868) -! JVS(41639) = Jac_FULL(5250,1341) - JVS(41639) = B(5296) -! JVS(41640) = Jac_FULL(5250,1342) - JVS(41640) = -B(20015)+B(20017) -! JVS(41641) = Jac_FULL(5250,1343) - JVS(41641) = -B(8933) -! JVS(41642) = Jac_FULL(5250,1344) - JVS(41642) = -B(23576) -! JVS(41643) = Jac_FULL(5250,1345) - JVS(41643) = -B(16170)+B(16172) -! JVS(41644) = Jac_FULL(5250,1346) - JVS(41644) = B(13670) -! JVS(41645) = Jac_FULL(5250,1347) - JVS(41645) = -B(23821)+B(23823) -! JVS(41646) = Jac_FULL(5250,1348) - JVS(41646) = -B(22465)+B(22467) -! JVS(41647) = Jac_FULL(5250,1349) - JVS(41647) = B(12123) -! JVS(41648) = Jac_FULL(5250,1350) - JVS(41648) = -B(21872)+B(21874) -! JVS(41649) = Jac_FULL(5250,1351) - JVS(41649) = -B(19232)+B(19234) -! JVS(41650) = Jac_FULL(5250,1352) - JVS(41650) = B(6649) -! JVS(41651) = Jac_FULL(5250,1353) - JVS(41651) = -B(16887)+B(16889) -! JVS(41652) = Jac_FULL(5250,1354) - JVS(41652) = -B(9074) -! JVS(41653) = Jac_FULL(5250,1355) - JVS(41653) = -B(13054)+B(13056) -! JVS(41654) = Jac_FULL(5250,1356) - JVS(41654) = -B(12367) -! JVS(41655) = Jac_FULL(5250,1357) - JVS(41655) = -B(23227)+B(23229) -! JVS(41656) = Jac_FULL(5250,1358) - JVS(41656) = -B(18609)+B(18611) -! JVS(41657) = Jac_FULL(5250,1359) - JVS(41657) = B(18447) -! JVS(41658) = Jac_FULL(5250,1360) - JVS(41658) = -B(21642)+B(21644) -! JVS(41659) = Jac_FULL(5250,1361) - JVS(41659) = -B(16160)+B(16162) -! JVS(41660) = Jac_FULL(5250,1362) - JVS(41660) = B(7322) -! JVS(41661) = Jac_FULL(5250,1363) - JVS(41661) = -B(12219) -! JVS(41662) = Jac_FULL(5250,1364) - JVS(41662) = -B(10661)+B(10663) -! JVS(41663) = Jac_FULL(5250,1365) - JVS(41663) = B(6618) -! JVS(41664) = Jac_FULL(5250,1366) - JVS(41664) = -B(18277)+B(18279) -! JVS(41665) = Jac_FULL(5250,1367) - JVS(41665) = -B(20737)+B(20739) -! JVS(41666) = Jac_FULL(5250,1368) - JVS(41666) = -B(13268) -! JVS(41667) = Jac_FULL(5250,1369) - JVS(41667) = -B(3718) -! JVS(41668) = Jac_FULL(5250,1370) - JVS(41668) = -B(9910)+B(9912) -! JVS(41669) = Jac_FULL(5250,1371) - JVS(41669) = -B(17054)+B(17056) -! JVS(41670) = Jac_FULL(5250,1372) - JVS(41670) = -B(17250) -! JVS(41671) = Jac_FULL(5250,1373) - JVS(41671) = B(17248) -! JVS(41672) = Jac_FULL(5250,1374) - JVS(41672) = B(12101)-B(12102) -! JVS(41673) = Jac_FULL(5250,1375) - JVS(41673) = B(11994) -! JVS(41674) = Jac_FULL(5250,1376) - JVS(41674) = -B(19918)+B(19920) -! JVS(41675) = Jac_FULL(5250,1377) - JVS(41675) = -B(6594)+B(6596) -! JVS(41676) = Jac_FULL(5250,1378) - JVS(41676) = -B(13234)+B(13236) -! JVS(41677) = Jac_FULL(5250,1379) - JVS(41677) = -B(18251)+B(18253) -! JVS(41678) = Jac_FULL(5250,1380) - JVS(41678) = B(11487)-B(11488) -! JVS(41679) = Jac_FULL(5250,1381) - JVS(41679) = -B(22974)+B(22976) -! JVS(41680) = Jac_FULL(5250,1382) - JVS(41680) = -B(12056) -! JVS(41681) = Jac_FULL(5250,1383) - JVS(41681) = -B(16917)+B(16919) -! JVS(41682) = Jac_FULL(5250,1384) - JVS(41682) = -B(17179) -! JVS(41683) = Jac_FULL(5250,1385) - JVS(41683) = B(6097) -! JVS(41684) = Jac_FULL(5250,1386) - JVS(41684) = -B(5133) -! JVS(41685) = Jac_FULL(5250,1387) - JVS(41685) = B(12141) -! JVS(41686) = Jac_FULL(5250,1388) - JVS(41686) = -B(15998)+B(16000) -! JVS(41687) = Jac_FULL(5250,1389) - JVS(41687) = -B(13262) -! JVS(41688) = Jac_FULL(5250,1390) - JVS(41688) = -B(20756)+B(20758) -! JVS(41689) = Jac_FULL(5250,1391) - JVS(41689) = -B(5016)+B(5018) -! JVS(41690) = Jac_FULL(5250,1392) - JVS(41690) = -B(22290)+B(22292) -! JVS(41691) = Jac_FULL(5250,1393) - JVS(41691) = -B(20209)+B(20211) -! JVS(41692) = Jac_FULL(5250,1394) - JVS(41692) = -B(20834) -! JVS(41693) = Jac_FULL(5250,1395) - JVS(41693) = B(6685) -! JVS(41694) = Jac_FULL(5250,1396) - JVS(41694) = -B(10231)+B(10233) -! JVS(41695) = Jac_FULL(5250,1397) - JVS(41695) = -B(19555)+B(19557) -! JVS(41696) = Jac_FULL(5250,1398) - JVS(41696) = B(17980)-B(17981) -! JVS(41697) = Jac_FULL(5250,1399) - JVS(41697) = -B(18640)+B(18642) -! JVS(41698) = Jac_FULL(5250,1400) - JVS(41698) = -B(3927) -! JVS(41699) = Jac_FULL(5250,1401) - JVS(41699) = B(12087) -! JVS(41700) = Jac_FULL(5250,1402) - JVS(41700) = -B(22424)+B(22426) -! JVS(41701) = Jac_FULL(5250,1403) - JVS(41701) = -B(9186) -! JVS(41702) = Jac_FULL(5250,1404) - JVS(41702) = -B(13147)+B(13149) -! JVS(41703) = Jac_FULL(5250,1405) - JVS(41703) = -B(9991) -! JVS(41704) = Jac_FULL(5250,1406) - JVS(41704) = -B(14131)+B(14133) -! JVS(41705) = Jac_FULL(5250,1407) - JVS(41705) = -B(17266)+B(17268) -! JVS(41706) = Jac_FULL(5250,1408) - JVS(41706) = -B(23597)+B(23599) -! JVS(41707) = Jac_FULL(5250,1409) - JVS(41707) = -B(9907) -! JVS(41708) = Jac_FULL(5250,1410) - JVS(41708) = B(12119)-B(12120) -! JVS(41709) = Jac_FULL(5250,1411) - JVS(41709) = -B(23439)+B(23441) -! JVS(41710) = Jac_FULL(5250,1412) - JVS(41710) = -B(18669)+B(18671) -! JVS(41711) = Jac_FULL(5250,1413) - JVS(41711) = B(22701) -! JVS(41712) = Jac_FULL(5250,1414) - JVS(41712) = B(22358) -! JVS(41713) = Jac_FULL(5250,1415) - JVS(41713) = B(9107) -! JVS(41714) = Jac_FULL(5250,1416) - JVS(41714) = B(12083)-B(12084) -! JVS(41715) = Jac_FULL(5250,1417) - JVS(41715) = -B(8687)+B(8689) -! JVS(41716) = Jac_FULL(5250,1418) - JVS(41716) = B(21249)-B(21250) -! JVS(41717) = Jac_FULL(5250,1419) - JVS(41717) = -B(12702)+B(12704) -! JVS(41718) = Jac_FULL(5250,1420) - JVS(41718) = -B(19947)+B(19949) -! JVS(41719) = Jac_FULL(5250,1421) - JVS(41719) = -B(15841)+B(15843) -! JVS(41720) = Jac_FULL(5250,1422) - JVS(41720) = -B(3801)+B(3803) -! JVS(41721) = Jac_FULL(5250,1423) - JVS(41721) = -B(20261)+B(20263) -! JVS(41722) = Jac_FULL(5250,1424) - JVS(41722) = -B(19239)+B(19241) -! JVS(41723) = Jac_FULL(5250,1425) - JVS(41723) = -B(18896) -! JVS(41724) = Jac_FULL(5250,1426) - JVS(41724) = -B(20037)+B(20039) -! JVS(41725) = Jac_FULL(5250,1427) - JVS(41725) = -B(18069)+B(18071) -! JVS(41726) = Jac_FULL(5250,1428) - JVS(41726) = B(20784) -! JVS(41727) = Jac_FULL(5250,1429) - JVS(41727) = -B(15549)+B(15551) -! JVS(41728) = Jac_FULL(5250,1430) - JVS(41728) = -B(11556)+B(11558) -! JVS(41729) = Jac_FULL(5250,1431) - JVS(41729) = -B(5844)+B(5846) -! JVS(41730) = Jac_FULL(5250,1432) - JVS(41730) = -B(13231) -! JVS(41731) = Jac_FULL(5250,1433) - JVS(41731) = -B(20522) -! JVS(41732) = Jac_FULL(5250,1434) - JVS(41732) = B(5204) -! JVS(41733) = Jac_FULL(5250,1435) - JVS(41733) = -B(18634)+B(18636) -! JVS(41734) = Jac_FULL(5250,1436) - JVS(41734) = -B(11627) -! JVS(41735) = Jac_FULL(5250,1437) - JVS(41735) = -B(16908)+B(16910) -! JVS(41736) = Jac_FULL(5250,1438) - JVS(41736) = B(13634)-B(13635) -! JVS(41737) = Jac_FULL(5250,1439) - JVS(41737) = B(23664) -! JVS(41738) = Jac_FULL(5250,1440) - JVS(41738) = -B(19576) -! JVS(41739) = Jac_FULL(5250,1441) - JVS(41739) = B(19641) -! JVS(41740) = Jac_FULL(5250,1442) - JVS(41740) = -B(19193) -! JVS(41741) = Jac_FULL(5250,1443) - JVS(41741) = -B(15733)+B(15735) -! JVS(41742) = Jac_FULL(5250,1444) - JVS(41742) = B(21101) -! JVS(41743) = Jac_FULL(5250,1445) - JVS(41743) = B(10691) -! JVS(41744) = Jac_FULL(5250,1446) - JVS(41744) = B(17894) -! JVS(41745) = Jac_FULL(5250,1447) - JVS(41745) = -B(17124)+B(17126) -! JVS(41746) = Jac_FULL(5250,1448) - JVS(41746) = B(17550)-B(17551) -! JVS(41747) = Jac_FULL(5250,1449) - JVS(41747) = B(13982) -! JVS(41748) = Jac_FULL(5250,1450) - JVS(41748) = -B(16405)+B(16407) -! JVS(41749) = Jac_FULL(5250,1451) - JVS(41749) = -B(5398)+B(5400) -! JVS(41750) = Jac_FULL(5250,1452) - JVS(41750) = -B(18590)+B(18592) -! JVS(41751) = Jac_FULL(5250,1453) - JVS(41751) = -B(18662)+B(18664) -! JVS(41752) = Jac_FULL(5250,1454) - JVS(41752) = -B(19479)+B(19481) -! JVS(41753) = Jac_FULL(5250,1455) - JVS(41753) = -B(20183)+B(20185) -! JVS(41754) = Jac_FULL(5250,1456) - JVS(41754) = -B(12507)+B(12509) -! JVS(41755) = Jac_FULL(5250,1457) - JVS(41755) = -B(20304) -! JVS(41756) = Jac_FULL(5250,1458) - JVS(41756) = B(6009) -! JVS(41757) = Jac_FULL(5250,1459) - JVS(41757) = -B(18557)+B(18559) -! JVS(41758) = Jac_FULL(5250,1460) - JVS(41758) = -B(21348)+B(21350) -! JVS(41759) = Jac_FULL(5250,1461) - JVS(41759) = -B(24026)+B(24028) -! JVS(41760) = Jac_FULL(5250,1462) - JVS(41760) = -B(14238)+B(14240) -! JVS(41761) = Jac_FULL(5250,1463) - JVS(41761) = B(23019) -! JVS(41762) = Jac_FULL(5250,1464) - JVS(41762) = -B(23233)+B(23235) -! JVS(41763) = Jac_FULL(5250,1465) - JVS(41763) = -B(9847)+B(9849) -! JVS(41764) = Jac_FULL(5250,1466) - JVS(41764) = -B(4156)+B(4158) -! JVS(41765) = Jac_FULL(5250,1467) - JVS(41765) = B(20378)-B(20379) -! JVS(41766) = Jac_FULL(5250,1468) - JVS(41766) = -B(7466)+B(7468) -! JVS(41767) = Jac_FULL(5250,1469) - JVS(41767) = B(4660)-B(4661) -! JVS(41768) = Jac_FULL(5250,1470) - JVS(41768) = -B(11147)+B(11149) -! JVS(41769) = Jac_FULL(5250,1471) - JVS(41769) = B(19561)-B(19562) -! JVS(41770) = Jac_FULL(5250,1472) - JVS(41770) = -B(20041)+B(20043) -! JVS(41771) = Jac_FULL(5250,1473) - JVS(41771) = -B(9994)+B(9996) -! JVS(41772) = Jac_FULL(5250,1474) - JVS(41772) = -B(24009)+B(24011) -! JVS(41773) = Jac_FULL(5250,1475) - JVS(41773) = B(17455)-B(17456) -! JVS(41774) = Jac_FULL(5250,1476) - JVS(41774) = -B(12779)+B(12781) -! JVS(41775) = Jac_FULL(5250,1477) - JVS(41775) = B(17743)-B(17744) -! JVS(41776) = Jac_FULL(5250,1478) - JVS(41776) = B(18026) -! JVS(41777) = Jac_FULL(5250,1479) - JVS(41777) = -B(20958)+B(20960) -! JVS(41778) = Jac_FULL(5250,1480) - JVS(41778) = -B(22079)+B(22081) -! JVS(41779) = Jac_FULL(5250,1481) - JVS(41779) = -B(10066) -! JVS(41780) = Jac_FULL(5250,1482) - JVS(41780) = -B(21136) -! JVS(41781) = Jac_FULL(5250,1483) - JVS(41781) = -B(19878) -! JVS(41782) = Jac_FULL(5250,1484) - JVS(41782) = B(5478) -! JVS(41783) = Jac_FULL(5250,1485) - JVS(41783) = B(23451) -! JVS(41784) = Jac_FULL(5250,1486) - JVS(41784) = -B(6022)+B(6024) -! JVS(41785) = Jac_FULL(5250,1487) - JVS(41785) = -B(17130)+B(17132) -! JVS(41786) = Jac_FULL(5250,1488) - JVS(41786) = B(4563)-B(4564) -! JVS(41787) = Jac_FULL(5250,1489) - JVS(41787) = -B(16899) -! JVS(41788) = Jac_FULL(5250,1490) - JVS(41788) = B(17586) -! JVS(41789) = Jac_FULL(5250,1491) - JVS(41789) = B(4740) -! JVS(41790) = Jac_FULL(5250,1492) - JVS(41790) = B(16969) -! JVS(41791) = Jac_FULL(5250,1493) - JVS(41791) = -B(23012) -! JVS(41792) = Jac_FULL(5250,1494) - JVS(41792) = -B(21574) -! JVS(41793) = Jac_FULL(5250,1495) - JVS(41793) = -B(14148)+B(14150) -! JVS(41794) = Jac_FULL(5250,1496) - JVS(41794) = -B(20643)+B(20645) -! JVS(41795) = Jac_FULL(5250,1497) - JVS(41795) = -B(18284)+B(18286) -! JVS(41796) = Jac_FULL(5250,1498) - JVS(41796) = -B(14165)+B(14167) -! JVS(41797) = Jac_FULL(5250,1499) - JVS(41797) = B(17681)-B(17682) -! JVS(41798) = Jac_FULL(5250,1500) - JVS(41798) = -B(4116)+B(4118) -! JVS(41799) = Jac_FULL(5250,1501) - JVS(41799) = B(4719) -! JVS(41800) = Jac_FULL(5250,1502) - JVS(41800) = -B(17290)+B(17292) -! JVS(41801) = Jac_FULL(5250,1503) - JVS(41801) = -B(10038)+B(10040) -! JVS(41802) = Jac_FULL(5250,1504) - JVS(41802) = -B(20102)+B(20104) -! JVS(41803) = Jac_FULL(5250,1505) - JVS(41803) = B(23956) -! JVS(41804) = Jac_FULL(5250,1506) - JVS(41804) = B(11791) -! JVS(41805) = Jac_FULL(5250,1507) - JVS(41805) = -B(23461)+B(23463) -! JVS(41806) = Jac_FULL(5250,1508) - JVS(41806) = -B(19884)+B(19886) -! JVS(41807) = Jac_FULL(5250,1509) - JVS(41807) = -B(20979)+B(20981) -! JVS(41808) = Jac_FULL(5250,1510) - JVS(41808) = B(9348) -! JVS(41809) = Jac_FULL(5250,1511) - JVS(41809) = -B(21994)+B(21996) -! JVS(41810) = Jac_FULL(5250,1512) - JVS(41810) = -B(18331)+B(18333) -! JVS(41811) = Jac_FULL(5250,1513) - JVS(41811) = -B(9844) -! JVS(41812) = Jac_FULL(5250,1514) - JVS(41812) = B(11917)-B(11918) -! JVS(41813) = Jac_FULL(5250,1515) - JVS(41813) = -B(12238)+B(12240) -! JVS(41814) = Jac_FULL(5250,1516) - JVS(41814) = B(7640)-B(7641) -! JVS(41815) = Jac_FULL(5250,1517) - JVS(41815) = -B(17015)+B(17017) -! JVS(41816) = Jac_FULL(5250,1518) - JVS(41816) = 2*B(20448)-B(20449) -! JVS(41817) = Jac_FULL(5250,1519) - JVS(41817) = B(23501) -! JVS(41818) = Jac_FULL(5250,1520) - JVS(41818) = -B(7458) -! JVS(41819) = Jac_FULL(5250,1521) - JVS(41819) = -B(11752) -! JVS(41820) = Jac_FULL(5250,1522) - JVS(41820) = B(23282) -! JVS(41821) = Jac_FULL(5250,1523) - JVS(41821) = B(17237) -! JVS(41822) = Jac_FULL(5250,1524) - JVS(41822) = -B(18644)+B(18646) -! JVS(41823) = Jac_FULL(5250,1525) - JVS(41823) = -B(6348)+B(6350) -! JVS(41824) = Jac_FULL(5250,1526) - JVS(41824) = B(17954) -! JVS(41825) = Jac_FULL(5250,1527) - JVS(41825) = -B(23626)+B(23628) -! JVS(41826) = Jac_FULL(5250,1528) - JVS(41826) = B(22915) -! JVS(41827) = Jac_FULL(5250,1529) - JVS(41827) = -B(13571) -! JVS(41828) = Jac_FULL(5250,1530) - JVS(41828) = -B(16439)+B(16441) -! JVS(41829) = Jac_FULL(5250,1531) - JVS(41829) = -B(11477) -! JVS(41830) = Jac_FULL(5250,1532) - JVS(41830) = -B(18516)+B(18518) -! JVS(41831) = Jac_FULL(5250,1533) - JVS(41831) = -B(5590)+B(5592) -! JVS(41832) = Jac_FULL(5250,1534) - JVS(41832) = B(12155)-B(12156) -! JVS(41833) = Jac_FULL(5250,1535) - JVS(41833) = -B(6194)+B(6196) -! JVS(41834) = Jac_FULL(5250,1536) - JVS(41834) = B(12161) -! JVS(41835) = Jac_FULL(5250,1537) - JVS(41835) = -B(13160)+B(13162) -! JVS(41836) = Jac_FULL(5250,1538) - JVS(41836) = B(23800) -! JVS(41837) = Jac_FULL(5250,1539) - JVS(41837) = -B(15981)+B(15983) -! JVS(41838) = Jac_FULL(5250,1540) - JVS(41838) = -B(20768)+B(20770) -! JVS(41839) = Jac_FULL(5250,1541) - JVS(41839) = -B(22855)+B(22857) -! JVS(41840) = Jac_FULL(5250,1542) - JVS(41840) = B(5934) -! JVS(41841) = Jac_FULL(5250,1543) - JVS(41841) = B(17984) -! JVS(41842) = Jac_FULL(5250,1544) - JVS(41842) = B(23909) -! JVS(41843) = Jac_FULL(5250,1545) - JVS(41843) = B(11466)-B(11467) -! JVS(41844) = Jac_FULL(5250,1546) - JVS(41844) = B(23047) -! JVS(41845) = Jac_FULL(5250,1547) - JVS(41845) = B(17711)-B(17712) -! JVS(41846) = Jac_FULL(5250,1548) - JVS(41846) = -B(19663) -! JVS(41847) = Jac_FULL(5250,1549) - JVS(41847) = -B(8992) -! JVS(41848) = Jac_FULL(5250,1550) - JVS(41848) = -B(22007) -! JVS(41849) = Jac_FULL(5250,1551) - JVS(41849) = -B(22003) -! JVS(41850) = Jac_FULL(5250,1554) - JVS(41850) = -B(10104) -! JVS(41851) = Jac_FULL(5250,1555) - JVS(41851) = -B(10050) -! JVS(41852) = Jac_FULL(5250,1557) - JVS(41852) = -B(17811) -! JVS(41853) = Jac_FULL(5250,1558) - JVS(41853) = -B(13689)+B(13691) -! JVS(41854) = Jac_FULL(5250,1560) - JVS(41854) = -B(10023) -! JVS(41855) = Jac_FULL(5250,1561) - JVS(41855) = -B(22529) -! JVS(41856) = Jac_FULL(5250,1562) - JVS(41856) = -B(12216) -! JVS(41857) = Jac_FULL(5250,1565) - JVS(41857) = -B(7303) -! JVS(41858) = Jac_FULL(5250,1566) - JVS(41858) = -B(14106) -! JVS(41859) = Jac_FULL(5250,1567) - JVS(41859) = -B(9965) -! JVS(41860) = Jac_FULL(5250,1569) - JVS(41860) = B(14815) -! JVS(41861) = Jac_FULL(5250,1570) - JVS(41861) = -B(12394) -! JVS(41862) = Jac_FULL(5250,1571) - JVS(41862) = -B(19758) -! JVS(41863) = Jac_FULL(5250,1573) - JVS(41863) = -B(1082)-B(1084) -! JVS(41864) = Jac_FULL(5250,1575) - JVS(41864) = B(16676)-B(16677) -! JVS(41865) = Jac_FULL(5250,1576) - JVS(41865) = -B(10304) -! JVS(41866) = Jac_FULL(5250,1577) - JVS(41866) = -B(136)-B(138)-B(140) -! JVS(41867) = Jac_FULL(5250,1578) - JVS(41867) = -B(16211) -! JVS(41868) = Jac_FULL(5250,1580) - JVS(41868) = -B(807)-B(809) -! JVS(41869) = Jac_FULL(5250,1581) - JVS(41869) = -B(7464) -! JVS(41870) = Jac_FULL(5250,1582) - JVS(41870) = -B(3966) -! JVS(41871) = Jac_FULL(5250,1584) - JVS(41871) = -B(9956) -! JVS(41872) = Jac_FULL(5250,1585) - JVS(41872) = -B(11207) -! JVS(41873) = Jac_FULL(5250,1586) - JVS(41873) = -B(19386) -! JVS(41874) = Jac_FULL(5250,1587) - JVS(41874) = -B(7204) -! JVS(41875) = Jac_FULL(5250,1588) - JVS(41875) = -B(8895) -! JVS(41876) = Jac_FULL(5250,1589) - JVS(41876) = -B(9835) -! JVS(41877) = Jac_FULL(5250,1590) - JVS(41877) = -B(22055) -! JVS(41878) = Jac_FULL(5250,1591) - JVS(41878) = -B(22051) -! JVS(41879) = Jac_FULL(5250,1594) - JVS(41879) = -B(10194) -! JVS(41880) = Jac_FULL(5250,1596) - JVS(41880) = -B(112)-B(114)-B(116) -! JVS(41881) = Jac_FULL(5250,1598) - JVS(41881) = -B(9365) -! JVS(41882) = Jac_FULL(5250,1599) - JVS(41882) = -B(7183) -! JVS(41883) = Jac_FULL(5250,1600) - JVS(41883) = -B(9891) -! JVS(41884) = Jac_FULL(5250,1601) - JVS(41884) = -B(14162) -! JVS(41885) = Jac_FULL(5250,1602) - JVS(41885) = -B(15562) -! JVS(41886) = Jac_FULL(5250,1603) - JVS(41886) = -B(18781) -! JVS(41887) = Jac_FULL(5250,1604) - JVS(41887) = -B(11132) -! JVS(41888) = Jac_FULL(5250,1609) - JVS(41888) = -B(9126) -! JVS(41889) = Jac_FULL(5250,1610) - JVS(41889) = -B(9123) -! JVS(41890) = Jac_FULL(5250,1611) - JVS(41890) = -B(11351) -! JVS(41891) = Jac_FULL(5250,1612) - JVS(41891) = -B(11409) -! JVS(41892) = Jac_FULL(5250,1613) - JVS(41892) = -B(9287) -! JVS(41893) = Jac_FULL(5250,1615) - JVS(41893) = -B(19397) -! JVS(41894) = Jac_FULL(5250,1618) - JVS(41894) = -B(22476) -! JVS(41895) = Jac_FULL(5250,1619) - JVS(41895) = -B(17232) -! JVS(41896) = Jac_FULL(5250,1621) - JVS(41896) = -B(12295) -! JVS(41897) = Jac_FULL(5250,1623) - JVS(41897) = -B(9486) -! JVS(41898) = Jac_FULL(5250,1625) - JVS(41898) = B(18777)-B(18778) -! JVS(41899) = Jac_FULL(5250,1626) - JVS(41899) = -B(13551) -! JVS(41900) = Jac_FULL(5250,1628) - JVS(41900) = -B(17354) -! JVS(41901) = Jac_FULL(5250,1629) - JVS(41901) = -B(17350) -! JVS(41902) = Jac_FULL(5250,1630) - JVS(41902) = -B(20862) -! JVS(41903) = Jac_FULL(5250,1632) - JVS(41903) = -B(19721) -! JVS(41904) = Jac_FULL(5250,1633) - JVS(41904) = -B(19703) -! JVS(41905) = Jac_FULL(5250,1635) - JVS(41905) = -B(309)-B(311)-B(313) -! JVS(41906) = Jac_FULL(5250,1636) - JVS(41906) = -B(9597) -! JVS(41907) = Jac_FULL(5250,1637) - JVS(41907) = -B(17707) -! JVS(41908) = Jac_FULL(5250,1639) - JVS(41908) = -B(22294) -! JVS(41909) = Jac_FULL(5250,1641) - JVS(41909) = -B(353)-B(355)-B(357) -! JVS(41910) = Jac_FULL(5250,1642) - JVS(41910) = B(10363) -! JVS(41911) = Jac_FULL(5250,1643) - JVS(41911) = -B(21867) -! JVS(41912) = Jac_FULL(5250,1644) - JVS(41912) = -B(13519) -! JVS(41913) = Jac_FULL(5250,1646) - JVS(41913) = -B(14056) -! JVS(41914) = Jac_FULL(5250,1647) - JVS(41914) = -B(9622) -! JVS(41915) = Jac_FULL(5250,1648) - JVS(41915) = -B(22706) -! JVS(41916) = Jac_FULL(5250,1649) - JVS(41916) = -B(22702) -! JVS(41917) = Jac_FULL(5250,1651) - JVS(41917) = -B(18849)+B(18851) -! JVS(41918) = Jac_FULL(5250,1653) - JVS(41918) = -B(11833) -! JVS(41919) = Jac_FULL(5250,1655) - JVS(41919) = -B(14041) -! JVS(41920) = Jac_FULL(5250,1656) - JVS(41920) = -B(19492) -! JVS(41921) = Jac_FULL(5250,1657) - JVS(41921) = -B(19488) -! JVS(41922) = Jac_FULL(5250,1658) - JVS(41922) = -B(14070) -! JVS(41923) = Jac_FULL(5250,1659) - JVS(41923) = -B(17615) -! JVS(41924) = Jac_FULL(5250,1660) - JVS(41924) = -B(23053) -! JVS(41925) = Jac_FULL(5250,1664) - JVS(41925) = -B(9152) -! JVS(41926) = Jac_FULL(5250,1665) - JVS(41926) = -B(10183) -! JVS(41927) = Jac_FULL(5250,1666) - JVS(41927) = -B(13256) -! JVS(41928) = Jac_FULL(5250,1668) - JVS(41928) = -B(17210) -! JVS(41929) = Jac_FULL(5250,1669) - JVS(41929) = -B(9737) -! JVS(41930) = Jac_FULL(5250,1670) - JVS(41930) = -B(12302) -! JVS(41931) = Jac_FULL(5250,1671) - JVS(41931) = -B(3944) -! JVS(41932) = Jac_FULL(5250,1672) - JVS(41932) = -B(9385) -! JVS(41933) = Jac_FULL(5250,1673) - JVS(41933) = -B(7234)+B(7236) -! JVS(41934) = Jac_FULL(5250,1674) - JVS(41934) = -B(19859) -! JVS(41935) = Jac_FULL(5250,1676) - JVS(41935) = -B(19236) -! JVS(41936) = Jac_FULL(5250,1678) - JVS(41936) = -B(23881) -! JVS(41937) = Jac_FULL(5250,1681) - JVS(41937) = -B(15627) -! JVS(41938) = Jac_FULL(5250,1682) - JVS(41938) = -B(13793)+B(13795) -! JVS(41939) = Jac_FULL(5250,1683) - JVS(41939) = -B(13493) -! JVS(41940) = Jac_FULL(5250,1685) - JVS(41940) = -B(16688) -! JVS(41941) = Jac_FULL(5250,1686) - JVS(41941) = -B(82)-B(84)-B(86) -! JVS(41942) = Jac_FULL(5250,1687) - JVS(41942) = -B(17221) -! JVS(41943) = Jac_FULL(5250,1688) - JVS(41943) = -B(365)-B(367)-B(369) -! JVS(41944) = Jac_FULL(5250,1690) - JVS(41944) = -B(19674) -! JVS(41945) = Jac_FULL(5250,1693) - JVS(41945) = -B(11848) -! JVS(41946) = Jac_FULL(5250,1694) - JVS(41946) = -B(11922) -! JVS(41947) = Jac_FULL(5250,1696) - JVS(41947) = -B(14372) -! JVS(41948) = Jac_FULL(5250,1697) - JVS(41948) = -B(92)-B(94)-B(96) -! JVS(41949) = Jac_FULL(5250,1698) - JVS(41949) = -B(8738) -! JVS(41950) = Jac_FULL(5250,1700) - JVS(41950) = -B(9224) -! JVS(41951) = Jac_FULL(5250,1701) - JVS(41951) = -B(102)-B(104)-B(106) -! JVS(41952) = Jac_FULL(5250,1703) - JVS(41952) = -B(595)-B(597)-B(599) -! JVS(41953) = Jac_FULL(5250,1704) - JVS(41953) = -B(7145) -! JVS(41954) = Jac_FULL(5250,1705) - JVS(41954) = -B(14145) -! JVS(41955) = Jac_FULL(5250,1706) - JVS(41955) = -B(17185) -! JVS(41956) = Jac_FULL(5250,1707) - JVS(41956) = -B(19780) -! JVS(41957) = Jac_FULL(5250,1708) - JVS(41957) = -B(297)-B(299)-B(301) -! JVS(41958) = Jac_FULL(5250,1709) - JVS(41958) = -B(325)-B(327)-B(329) -! JVS(41959) = Jac_FULL(5250,1711) - JVS(41959) = -B(7158) -! JVS(41960) = Jac_FULL(5250,1712) - JVS(41960) = -B(7155) -! JVS(41961) = Jac_FULL(5250,1716) - JVS(41961) = -B(13428) -! JVS(41962) = Jac_FULL(5250,1717) - JVS(41962) = -B(9518) -! JVS(41963) = Jac_FULL(5250,1718) - JVS(41963) = -B(11218) -! JVS(41964) = Jac_FULL(5250,1719) - JVS(41964) = -B(7104) -! JVS(41965) = Jac_FULL(5250,1722) - JVS(41965) = -B(19711) -! JVS(41966) = Jac_FULL(5250,1726) - JVS(41966) = -B(15794) -! JVS(41967) = Jac_FULL(5250,1728) - JVS(41967) = -B(13959) -! JVS(41968) = Jac_FULL(5250,1729) - JVS(41968) = -B(10228) -! JVS(41969) = Jac_FULL(5250,1730) - JVS(41969) = -B(118)-B(120)-B(122) -! JVS(41970) = Jac_FULL(5250,1731) - JVS(41970) = -B(21869) -! JVS(41971) = Jac_FULL(5250,1733) - JVS(41971) = -B(76)-B(78)-B(80) -! JVS(41972) = Jac_FULL(5250,1734) - JVS(41972) = -B(15574) -! JVS(41973) = Jac_FULL(5250,1735) - JVS(41973) = -B(13367) -! JVS(41974) = Jac_FULL(5250,1736) - JVS(41974) = -B(7578) -! JVS(41975) = Jac_FULL(5250,1738) - JVS(41975) = -B(17399) -! JVS(41976) = Jac_FULL(5250,1740) - JVS(41976) = -B(19829) -! JVS(41977) = Jac_FULL(5250,1742) - JVS(41977) = -B(11362) -! JVS(41978) = Jac_FULL(5250,1744) - JVS(41978) = -B(19802) -! JVS(41979) = Jac_FULL(5250,1746) - JVS(41979) = B(3596) -! JVS(41980) = Jac_FULL(5250,1747) - JVS(41980) = -B(8786) -! JVS(41981) = Jac_FULL(5250,1749) - JVS(41981) = -B(4112) -! JVS(41982) = Jac_FULL(5250,1751) - JVS(41982) = B(4573)-B(4576) -! JVS(41983) = Jac_FULL(5250,1752) - JVS(41983) = -B(21102) -! JVS(41984) = Jac_FULL(5250,1753) - JVS(41984) = B(4589)-B(4592) -! JVS(41985) = Jac_FULL(5250,1756) - JVS(41985) = -B(22569) -! JVS(41986) = Jac_FULL(5250,1757) - JVS(41986) = -B(23622)+B(23624) -! JVS(41987) = Jac_FULL(5250,1758) - JVS(41987) = B(14659) -! JVS(41988) = Jac_FULL(5250,1759) - JVS(41988) = B(22157)+B(22158)-B(22159) -! JVS(41989) = Jac_FULL(5250,1761) - JVS(41989) = -B(22841)+B(22843) -! JVS(41990) = Jac_FULL(5250,1762) - JVS(41990) = -B(19036)+B(19038) -! JVS(41991) = Jac_FULL(5250,1763) - JVS(41991) = -B(6606)+B(6608) -! JVS(41992) = Jac_FULL(5250,1764) - JVS(41992) = -B(7746) -! JVS(41993) = Jac_FULL(5250,1765) - JVS(41993) = -B(12563) -! JVS(41994) = Jac_FULL(5250,1766) - JVS(41994) = -B(22977) -! JVS(41995) = Jac_FULL(5250,1767) - JVS(41995) = -B(5170)+B(5174) -! JVS(41996) = Jac_FULL(5250,1768) - JVS(41996) = -B(15905)+B(15909) -! JVS(41997) = Jac_FULL(5250,1770) - JVS(41997) = -B(14334)+B(14336) -! JVS(41998) = Jac_FULL(5250,1771) - JVS(41998) = -B(11382) -! JVS(41999) = Jac_FULL(5250,1772) - JVS(41999) = -B(6010) -! JVS(42000) = Jac_FULL(5250,1774) - JVS(42000) = B(5135)-B(5138) -! JVS(42001) = Jac_FULL(5250,1775) - JVS(42001) = -B(12414) -! JVS(42002) = Jac_FULL(5250,1776) - JVS(42002) = B(1248) -! JVS(42003) = Jac_FULL(5250,1777) - JVS(42003) = -B(14218) -! JVS(42004) = Jac_FULL(5250,1778) - JVS(42004) = -B(4963)+B(4965) -! JVS(42005) = Jac_FULL(5250,1779) - JVS(42005) = B(21131)-B(21134) -! JVS(42006) = Jac_FULL(5250,1780) - JVS(42006) = -B(12091) -! JVS(42007) = Jac_FULL(5250,1782) - JVS(42007) = -B(3705) -! JVS(42008) = Jac_FULL(5250,1783) - JVS(42008) = -B(18665)+B(18667) -! JVS(42009) = Jac_FULL(5250,1784) - JVS(42009) = -B(23245)+B(23247) -! JVS(42010) = Jac_FULL(5250,1785) - JVS(42010) = -B(4850) -! JVS(42011) = Jac_FULL(5250,1786) - JVS(42011) = -B(23665) -! JVS(42012) = Jac_FULL(5250,1788) - JVS(42012) = -B(4664) -! JVS(42013) = Jac_FULL(5250,1790) - JVS(42013) = -B(7201) -! JVS(42014) = Jac_FULL(5250,1791) - JVS(42014) = -B(11359) -! JVS(42015) = Jac_FULL(5250,1793) - JVS(42015) = B(23879) -! JVS(42016) = Jac_FULL(5250,1794) - JVS(42016) = -B(5297) -! JVS(42017) = Jac_FULL(5250,1795) - JVS(42017) = B(13664) -! JVS(42018) = Jac_FULL(5250,1797) - JVS(42018) = -B(13370) -! JVS(42019) = Jac_FULL(5250,1798) - JVS(42019) = -B(11795) -! JVS(42020) = Jac_FULL(5250,1800) - JVS(42020) = -B(3750) -! JVS(42021) = Jac_FULL(5250,1801) - JVS(42021) = B(22061) -! JVS(42022) = Jac_FULL(5250,1802) - JVS(42022) = -B(12208)+B(12210) -! JVS(42023) = Jac_FULL(5250,1804) - JVS(42023) = B(20456)-B(20457) -! JVS(42024) = Jac_FULL(5250,1805) - JVS(42024) = -B(12787) -! JVS(42025) = Jac_FULL(5250,1806) - JVS(42025) = -B(8892) -! JVS(42026) = Jac_FULL(5250,1807) - JVS(42026) = -B(15426) -! JVS(42027) = Jac_FULL(5250,1809) - JVS(42027) = -B(3630)+B(3634) -! JVS(42028) = Jac_FULL(5250,1811) - JVS(42028) = -B(22916) -! JVS(42029) = Jac_FULL(5250,1813) - JVS(42029) = -B(23146) -! JVS(42030) = Jac_FULL(5250,1816) - JVS(42030) = -B(20384)+B(20386) -! JVS(42031) = Jac_FULL(5250,1817) - JVS(42031) = -B(279)-B(281) -! JVS(42032) = Jac_FULL(5250,1819) - JVS(42032) = -B(5479) -! JVS(42033) = Jac_FULL(5250,1823) - JVS(42033) = -B(20785) -! JVS(42034) = Jac_FULL(5250,1824) - JVS(42034) = -B(4768) -! JVS(42035) = Jac_FULL(5250,1826) - JVS(42035) = -B(17808) -! JVS(42036) = Jac_FULL(5250,1827) - JVS(42036) = -B(5100) -! JVS(42037) = Jac_FULL(5250,1828) - JVS(42037) = -B(17229) -! JVS(42038) = Jac_FULL(5250,1829) - JVS(42038) = -B(17850) -! JVS(42039) = Jac_FULL(5250,1830) - JVS(42039) = -B(18374)+B(18376) -! JVS(42040) = Jac_FULL(5250,1831) - JVS(42040) = -B(4723) -! JVS(42041) = Jac_FULL(5250,1832) - JVS(42041) = -B(19671) -! JVS(42042) = Jac_FULL(5250,1834) - JVS(42042) = -B(11348) -! JVS(42043) = Jac_FULL(5250,1835) - JVS(42043) = -B(17057) -! JVS(42044) = Jac_FULL(5250,1836) - JVS(42044) = B(9121) -! JVS(42045) = Jac_FULL(5250,1837) - JVS(42045) = -B(15567)+B(15569) -! JVS(42046) = Jac_FULL(5250,1839) - JVS(42046) = B(19752)+B(19753) -! JVS(42047) = Jac_FULL(5250,1840) - JVS(42047) = B(16033) -! JVS(42048) = Jac_FULL(5250,1841) - JVS(42048) = -B(7096) -! JVS(42049) = Jac_FULL(5250,1842) - JVS(42049) = B(3896)-B(3897) -! JVS(42050) = Jac_FULL(5250,1843) - JVS(42050) = -B(17191) -! JVS(42051) = Jac_FULL(5250,1844) - JVS(42051) = -B(7237)+B(7239) -! JVS(42052) = Jac_FULL(5250,1845) - JVS(42052) = -B(18493) -! JVS(42053) = Jac_FULL(5250,1846) - JVS(42053) = -B(10692) -! JVS(42054) = Jac_FULL(5250,1849) - JVS(42054) = -B(4808)+B(4812) -! JVS(42055) = Jac_FULL(5250,1850) - JVS(42055) = -B(15724)+B(15726) -! JVS(42056) = Jac_FULL(5250,1851) - JVS(42056) = -B(13526) -! JVS(42057) = Jac_FULL(5250,1853) - JVS(42057) = -B(4337) -! JVS(42058) = Jac_FULL(5250,1854) - JVS(42058) = -B(15728)+B(15730)+B(15731) -! JVS(42059) = Jac_FULL(5250,1855) - JVS(42059) = B(4532)-B(4533) -! JVS(42060) = Jac_FULL(5250,1856) - JVS(42060) = -B(14114) -! JVS(42061) = Jac_FULL(5250,1857) - JVS(42061) = -B(10095) -! JVS(42062) = Jac_FULL(5250,1858) - JVS(42062) = -B(11215) -! JVS(42063) = Jac_FULL(5250,1859) - JVS(42063) = -B(4822)+B(4824) -! JVS(42064) = Jac_FULL(5250,1861) - JVS(42064) = -B(16008)+B(16010) -! JVS(42065) = Jac_FULL(5250,1862) - JVS(42065) = -B(17370)+B(17372) -! JVS(42066) = Jac_FULL(5250,1863) - JVS(42066) = B(17215)+B(17216) -! JVS(42067) = Jac_FULL(5250,1864) - JVS(42067) = -B(13983) -! JVS(42068) = Jac_FULL(5250,1868) - JVS(42068) = B(19498) -! JVS(42069) = Jac_FULL(5250,1869) - JVS(42069) = -B(13989)+B(13991) -! JVS(42070) = Jac_FULL(5250,1870) - JVS(42070) = -B(13952) -! JVS(42071) = Jac_FULL(5250,1871) - JVS(42071) = B(23198) -! JVS(42072) = Jac_FULL(5250,1873) - JVS(42072) = -B(10014)+B(10016)+B(10017) -! JVS(42073) = Jac_FULL(5250,1874) - JVS(42073) = B(20478)-B(20479) -! JVS(42074) = Jac_FULL(5250,1875) - JVS(42074) = -B(23456) -! JVS(42075) = Jac_FULL(5250,1876) - JVS(42075) = -B(7109)+B(7111) -! JVS(42076) = Jac_FULL(5250,1878) - JVS(42076) = -B(9492) -! JVS(42077) = Jac_FULL(5250,1879) - JVS(42077) = -B(22236)+B(22238) -! JVS(42078) = Jac_FULL(5250,1880) - JVS(42078) = -B(4198)+B(4202) -! JVS(42079) = Jac_FULL(5250,1881) - JVS(42079) = -B(5935) -! JVS(42080) = Jac_FULL(5250,1883) - JVS(42080) = -B(23420) -! JVS(42081) = Jac_FULL(5250,1884) - JVS(42081) = B(18993)-B(18996) -! JVS(42082) = Jac_FULL(5250,1885) - JVS(42082) = B(4435)-B(4438) -! JVS(42083) = Jac_FULL(5250,1886) - JVS(42083) = -B(3673)+B(3675) -! JVS(42084) = Jac_FULL(5250,1887) - JVS(42084) = -B(22524)+B(22526)+B(22527) -! JVS(42085) = Jac_FULL(5250,1888) - JVS(42085) = -B(21714)+B(21716) -! JVS(42086) = Jac_FULL(5250,1889) - JVS(42086) = -B(12162) -! JVS(42087) = Jac_FULL(5250,1890) - JVS(42087) = B(23857) -! JVS(42088) = Jac_FULL(5250,1893) - JVS(42088) = -B(19030)+B(19032) -! JVS(42089) = Jac_FULL(5250,1894) - JVS(42089) = -B(4023) -! JVS(42090) = Jac_FULL(5250,1895) - JVS(42090) = -B(7002) -! JVS(42091) = Jac_FULL(5250,1896) - JVS(42091) = -B(6275) -! JVS(42092) = Jac_FULL(5250,1897) - JVS(42092) = -B(3949)+B(3951) -! JVS(42093) = Jac_FULL(5250,1898) - JVS(42093) = -B(15910)+B(15912) -! JVS(42094) = Jac_FULL(5250,1899) - JVS(42094) = -B(3657)+B(3659) -! JVS(42095) = Jac_FULL(5250,1900) - JVS(42095) = B(17274) -! JVS(42096) = Jac_FULL(5250,1901) - JVS(42096) = -B(19040)+B(19042) -! JVS(42097) = Jac_FULL(5250,1902) - JVS(42097) = -B(11614) -! JVS(42098) = Jac_FULL(5250,1904) - JVS(42098) = -B(7112) -! JVS(42099) = Jac_FULL(5250,1905) - JVS(42099) = -B(7469) -! JVS(42100) = Jac_FULL(5250,1907) - JVS(42100) = B(17717)-B(17718) -! JVS(42101) = Jac_FULL(5250,1908) - JVS(42101) = B(19654)+B(19655) -! JVS(42102) = Jac_FULL(5250,1909) - JVS(42102) = -B(10715) -! JVS(42103) = Jac_FULL(5250,1911) - JVS(42103) = B(7462) -! JVS(42104) = Jac_FULL(5250,1912) - JVS(42104) = -B(23657) -! JVS(42105) = Jac_FULL(5250,1913) - JVS(42105) = -B(17276) -! JVS(42106) = Jac_FULL(5250,1914) - JVS(42106) = -B(3686)+B(3688) -! JVS(42107) = Jac_FULL(5250,1915) - JVS(42107) = -B(7411) -! JVS(42108) = Jac_FULL(5250,1916) - JVS(42108) = -B(12191) -! JVS(42109) = Jac_FULL(5250,1917) - JVS(42109) = B(13484)+B(13485) -! JVS(42110) = Jac_FULL(5250,1918) - JVS(42110) = -B(14626) -! JVS(42111) = Jac_FULL(5250,1919) - JVS(42111) = -B(4690) -! JVS(42112) = Jac_FULL(5250,1920) - JVS(42112) = -B(23527)+B(23529) -! JVS(42113) = Jac_FULL(5250,1921) - JVS(42113) = -B(4218) -! JVS(42114) = Jac_FULL(5250,1922) - JVS(42114) = -B(6947) -! JVS(42115) = Jac_FULL(5250,1925) - JVS(42115) = -B(22493) -! JVS(42116) = Jac_FULL(5250,1926) - JVS(42116) = -B(23946)+B(23948)+B(23949) -! JVS(42117) = Jac_FULL(5250,1928) - JVS(42117) = -B(18335) -! JVS(42118) = Jac_FULL(5250,1929) - JVS(42118) = -B(21827) -! JVS(42119) = Jac_FULL(5250,1930) - JVS(42119) = -B(23215) -! JVS(42120) = Jac_FULL(5250,1932) - JVS(42120) = B(22318) -! JVS(42121) = Jac_FULL(5250,1933) - JVS(42121) = -B(16970) -! JVS(42122) = Jac_FULL(5250,1934) - JVS(42122) = -B(21762)-B(21764) -! JVS(42123) = Jac_FULL(5250,1935) - JVS(42123) = -B(14198)+B(14200) -! JVS(42124) = Jac_FULL(5250,1936) - JVS(42124) = -B(12595) -! JVS(42125) = Jac_FULL(5250,1937) - JVS(42125) = B(17778)+B(17779)-B(17780) -! JVS(42126) = Jac_FULL(5250,1938) - JVS(42126) = -B(14035)+B(14039) -! JVS(42127) = Jac_FULL(5250,1940) - JVS(42127) = -B(5160)+B(5162) -! JVS(42128) = Jac_FULL(5250,1941) - JVS(42128) = -B(22513) -! JVS(42129) = Jac_FULL(5250,1943) - JVS(42129) = -B(18080)+B(18082) -! JVS(42130) = Jac_FULL(5250,1946) - JVS(42130) = -B(4384) -! JVS(42131) = Jac_FULL(5250,1947) - JVS(42131) = -B(18033)+B(18035) -! JVS(42132) = Jac_FULL(5250,1948) - JVS(42132) = -B(3870)+B(3874) -! JVS(42133) = Jac_FULL(5250,1949) - JVS(42133) = -B(16105)+B(16109) -! JVS(42134) = Jac_FULL(5250,1950) - JVS(42134) = B(17204)+B(17205) -! JVS(42135) = Jac_FULL(5250,1952) - JVS(42135) = -B(14002) -! JVS(42136) = Jac_FULL(5250,1953) - JVS(42136) = -B(15713) -! JVS(42137) = Jac_FULL(5250,1954) - JVS(42137) = -B(7141) -! JVS(42138) = Jac_FULL(5250,1956) - JVS(42138) = -B(24015)+B(24019) -! JVS(42139) = Jac_FULL(5250,1957) - JVS(42139) = -B(3888) -! JVS(42140) = Jac_FULL(5250,1958) - JVS(42140) = B(22881) -! JVS(42141) = Jac_FULL(5250,1959) - JVS(42141) = B(3053) -! JVS(42142) = Jac_FULL(5250,1963) - JVS(42142) = -B(19645) -! JVS(42143) = Jac_FULL(5250,1964) - JVS(42143) = -B(5707) -! JVS(42144) = Jac_FULL(5250,1965) - JVS(42144) = -B(4420) -! JVS(42145) = Jac_FULL(5250,1966) - JVS(42145) = B(4516)-B(4519) -! JVS(42146) = Jac_FULL(5250,1967) - JVS(42146) = B(16612) -! JVS(42147) = Jac_FULL(5250,1968) - JVS(42147) = -B(9951)+B(9953)+B(9954) -! JVS(42148) = Jac_FULL(5250,1969) - JVS(42148) = -B(13495) -! JVS(42149) = Jac_FULL(5250,1970) - JVS(42149) = -B(21576)+B(21578) -! JVS(42150) = Jac_FULL(5250,1972) - JVS(42150) = -B(23060) -! JVS(42151) = Jac_FULL(5250,1973) - JVS(42151) = B(17183) -! JVS(42152) = Jac_FULL(5250,1974) - JVS(42152) = -B(4151) -! JVS(42153) = Jac_FULL(5250,1976) - JVS(42153) = -B(3875) -! JVS(42154) = Jac_FULL(5250,1977) - JVS(42154) = -B(3847) -! JVS(42155) = Jac_FULL(5250,1978) - JVS(42155) = -B(17590) -! JVS(42156) = Jac_FULL(5250,1979) - JVS(42156) = -B(18237)+B(18239) -! JVS(42157) = Jac_FULL(5250,1980) - JVS(42157) = -B(11839) -! JVS(42158) = Jac_FULL(5250,1981) - JVS(42158) = -B(16680) -! JVS(42159) = Jac_FULL(5250,1982) - JVS(42159) = -B(22228)+B(22230) -! JVS(42160) = Jac_FULL(5250,1983) - JVS(42160) = B(7074)-B(7075) -! JVS(42161) = Jac_FULL(5250,1985) - JVS(42161) = -B(22352)+B(22354) -! JVS(42162) = Jac_FULL(5250,1987) - JVS(42162) = -B(4484) -! JVS(42163) = Jac_FULL(5250,1988) - JVS(42163) = -B(8983) -! JVS(42164) = Jac_FULL(5250,1990) - JVS(42164) = -B(17139)+B(17141) -! JVS(42165) = Jac_FULL(5250,1991) - JVS(42165) = -B(18784) -! JVS(42166) = Jac_FULL(5250,1992) - JVS(42166) = B(11970)-B(11971) -! JVS(42167) = Jac_FULL(5250,1993) - JVS(42167) = B(14633) -! JVS(42168) = Jac_FULL(5250,1994) - JVS(42168) = B(3855)-B(3858) -! JVS(42169) = Jac_FULL(5250,1995) - JVS(42169) = -B(17143) -! JVS(42170) = Jac_FULL(5250,1996) - JVS(42170) = -B(20846) -! JVS(42171) = Jac_FULL(5250,1997) - JVS(42171) = -B(12178)+B(12180) -! JVS(42172) = Jac_FULL(5250,1999) - JVS(42172) = -B(12287)+B(12289) -! JVS(42173) = Jac_FULL(5250,2001) - JVS(42173) = -B(3956) -! JVS(42174) = Jac_FULL(5250,2002) - JVS(42174) = -B(11083)+B(11087) -! JVS(42175) = Jac_FULL(5250,2006) - JVS(42175) = -B(3842)+B(3846) -! JVS(42176) = Jac_FULL(5250,2007) - JVS(42176) = -B(21938) -! JVS(42177) = Jac_FULL(5250,2009) - JVS(42177) = -B(14869)+B(14871) -! JVS(42178) = Jac_FULL(5250,2010) - JVS(42178) = -B(4019)+B(4021) -! JVS(42179) = Jac_FULL(5250,2011) - JVS(42179) = -B(5112) -! JVS(42180) = Jac_FULL(5250,2013) - JVS(42180) = B(2039) -! JVS(42181) = Jac_FULL(5250,2014) - JVS(42181) = -B(5386) -! JVS(42182) = Jac_FULL(5250,2016) - JVS(42182) = B(17783)-B(17784) -! JVS(42183) = Jac_FULL(5250,2017) - JVS(42183) = B(21864)+B(21865) -! JVS(42184) = Jac_FULL(5250,2018) - JVS(42184) = B(22473)+B(22474) -! JVS(42185) = Jac_FULL(5250,2019) - JVS(42185) = B(4669)-B(4670) -! JVS(42186) = Jac_FULL(5250,2020) - JVS(42186) = -B(4804) -! JVS(42187) = Jac_FULL(5250,2021) - JVS(42187) = -B(6285) -! JVS(42188) = Jac_FULL(5250,2022) - JVS(42188) = B(19391)+B(19392) -! JVS(42189) = Jac_FULL(5250,2023) - JVS(42189) = -B(7241) -! JVS(42190) = Jac_FULL(5250,2025) - JVS(42190) = -B(16003)+B(16007) -! JVS(42191) = Jac_FULL(5250,2026) - JVS(42191) = -B(22244)+B(22246) -! JVS(42192) = Jac_FULL(5250,2027) - JVS(42192) = B(17916)-B(17917) -! JVS(42193) = Jac_FULL(5250,2028) - JVS(42193) = -B(12291) -! JVS(42194) = Jac_FULL(5250,2032) - JVS(42194) = -B(22896) -! JVS(42195) = Jac_FULL(5250,2034) - JVS(42195) = -B(20663) -! JVS(42196) = Jac_FULL(5250,2036) - JVS(42196) = -B(12260)+B(12262) -! JVS(42197) = Jac_FULL(5250,2037) - JVS(42197) = -B(3741) -! JVS(42198) = Jac_FULL(5250,2038) - JVS(42198) = B(1997) -! JVS(42199) = Jac_FULL(5250,2039) - JVS(42199) = -B(22211)+B(22213) -! JVS(42200) = Jac_FULL(5250,2040) - JVS(42200) = -B(6698) -! JVS(42201) = Jac_FULL(5250,2042) - JVS(42201) = B(2103) -! JVS(42202) = Jac_FULL(5250,2043) - JVS(42202) = -B(13582) -! JVS(42203) = Jac_FULL(5250,2044) - JVS(42203) = B(4081)-B(4082) -! JVS(42204) = Jac_FULL(5250,2045) - JVS(42204) = -B(11908) -! JVS(42205) = Jac_FULL(5250,2046) - JVS(42205) = -B(18092)+B(18094) -! JVS(42206) = Jac_FULL(5250,2047) - JVS(42206) = B(13253)+B(13254) -! JVS(42207) = Jac_FULL(5250,2048) - JVS(42207) = -B(13193) -! JVS(42208) = Jac_FULL(5250,2049) - JVS(42208) = -B(12040) -! JVS(42209) = Jac_FULL(5250,2051) - JVS(42209) = -B(12566)+B(12568) -! JVS(42210) = Jac_FULL(5250,2052) - JVS(42210) = B(19774)+B(19775) -! JVS(42211) = Jac_FULL(5250,2053) - JVS(42211) = -B(15703)+B(15705) -! JVS(42212) = Jac_FULL(5250,2054) - JVS(42212) = -B(12421) -! JVS(42213) = Jac_FULL(5250,2055) - JVS(42213) = -B(21334)+B(21336) -! JVS(42214) = Jac_FULL(5250,2057) - JVS(42214) = -B(4417)+B(4419) -! JVS(42215) = Jac_FULL(5250,2058) - JVS(42215) = B(7301) -! JVS(42216) = Jac_FULL(5250,2059) - JVS(42216) = B(19796)+B(19797) -! JVS(42217) = Jac_FULL(5250,2061) - JVS(42217) = -B(11224) -! JVS(42218) = Jac_FULL(5250,2062) - JVS(42218) = -B(21986)+B(21988) -! JVS(42219) = Jac_FULL(5250,2063) - JVS(42219) = -B(21977) -! JVS(42220) = Jac_FULL(5250,2064) - JVS(42220) = -B(21479)+B(21481) -! JVS(42221) = Jac_FULL(5250,2065) - JVS(42221) = -B(7407)+B(7409) -! JVS(42222) = Jac_FULL(5250,2067) - JVS(42222) = -B(5168) -! JVS(42223) = Jac_FULL(5250,2068) - JVS(42223) = -B(5190)+B(5192) -! JVS(42224) = Jac_FULL(5250,2069) - JVS(42224) = -B(5029)+B(5033) -! JVS(42225) = Jac_FULL(5250,2070) - JVS(42225) = -B(6999)+B(7001) -! JVS(42226) = Jac_FULL(5250,2071) - JVS(42226) = B(17117) -! JVS(42227) = Jac_FULL(5250,2072) - JVS(42227) = -B(21946) -! JVS(42228) = Jac_FULL(5250,2074) - JVS(42228) = -B(11458) -! JVS(42229) = Jac_FULL(5250,2075) - JVS(42229) = -B(6962) -! JVS(42230) = Jac_FULL(5250,2077) - JVS(42230) = -B(4128) -! JVS(42231) = Jac_FULL(5250,2078) - JVS(42231) = -B(6502) -! JVS(42232) = Jac_FULL(5250,2079) - JVS(42232) = -B(17284) -! JVS(42233) = Jac_FULL(5250,2080) - JVS(42233) = -B(12184)+B(12186) -! JVS(42234) = Jac_FULL(5250,2081) - JVS(42234) = B(10412) -! JVS(42235) = Jac_FULL(5250,2082) - JVS(42235) = -B(22263)+B(22265) -! JVS(42236) = Jac_FULL(5250,2083) - JVS(42236) = -B(7067) -! JVS(42237) = Jac_FULL(5250,2084) - JVS(42237) = B(19705)+B(19706)-B(19707) -! JVS(42238) = Jac_FULL(5250,2086) - JVS(42238) = -B(4501) -! JVS(42239) = Jac_FULL(5250,2087) - JVS(42239) = -B(6185) -! JVS(42240) = Jac_FULL(5250,2089) - JVS(42240) = -B(15451)+B(15453) -! JVS(42241) = Jac_FULL(5250,2091) - JVS(42241) = -B(18280)+B(18282) -! JVS(42242) = Jac_FULL(5250,2092) - JVS(42242) = -B(7082) -! JVS(42243) = Jac_FULL(5250,2093) - JVS(42243) = -B(18172)+B(18174) -! JVS(42244) = Jac_FULL(5250,2094) - JVS(42244) = -B(4702) -! JVS(42245) = Jac_FULL(5250,2095) - JVS(42245) = B(17840)-B(17841) -! JVS(42246) = Jac_FULL(5250,2096) - JVS(42246) = -B(3635) -! JVS(42247) = Jac_FULL(5250,2097) - JVS(42247) = -B(4649) -! JVS(42248) = Jac_FULL(5250,2098) - JVS(42248) = -B(17387)+B(17389) -! JVS(42249) = Jac_FULL(5250,2099) - JVS(42249) = -B(6622) -! JVS(42250) = Jac_FULL(5250,2101) - JVS(42250) = -B(16590)-B(16592) -! JVS(42251) = Jac_FULL(5250,2102) - JVS(42251) = -B(12731)+B(12733) -! JVS(42252) = Jac_FULL(5250,2103) - JVS(42252) = -B(7293)+B(7295) -! JVS(42253) = Jac_FULL(5250,2104) - JVS(42253) = B(12898) -! JVS(42254) = Jac_FULL(5250,2105) - JVS(42254) = -B(18721)+B(18723) -! JVS(42255) = Jac_FULL(5250,2106) - JVS(42255) = -B(4203) -! JVS(42256) = Jac_FULL(5250,2107) - JVS(42256) = -B(18139)+B(18141) -! JVS(42257) = Jac_FULL(5250,2108) - JVS(42257) = -B(11415) -! JVS(42258) = Jac_FULL(5250,2109) - JVS(42258) = B(16641) -! JVS(42259) = Jac_FULL(5250,2110) - JVS(42259) = -B(11566)+B(11568) -! JVS(42260) = Jac_FULL(5250,2111) - JVS(42260) = -B(23563)+B(23565) -! JVS(42261) = Jac_FULL(5250,2113) - JVS(42261) = -B(4792) -! JVS(42262) = Jac_FULL(5250,2114) - JVS(42262) = -B(12326)+B(12328) -! JVS(42263) = Jac_FULL(5250,2115) - JVS(42263) = B(21157)-B(21158) -! JVS(42264) = Jac_FULL(5250,2116) - JVS(42264) = B(21636)-B(21637) -! JVS(42265) = Jac_FULL(5250,2118) - JVS(42265) = -B(146)-B(148)-B(150) -! JVS(42266) = Jac_FULL(5250,2119) - JVS(42266) = -B(17207) -! JVS(42267) = Jac_FULL(5250,2120) - JVS(42267) = -B(20152)+B(20154) -! JVS(42268) = Jac_FULL(5250,2121) - JVS(42268) = B(19823)+B(19824) -! JVS(42269) = Jac_FULL(5250,2123) - JVS(42269) = -B(14122) -! JVS(42270) = Jac_FULL(5250,2124) - JVS(42270) = -B(17898) -! JVS(42271) = Jac_FULL(5250,2125) - JVS(42271) = -B(5104)+B(5106) -! JVS(42272) = Jac_FULL(5250,2126) - JVS(42272) = B(4181)-B(4184) -! JVS(42273) = Jac_FULL(5250,2127) - JVS(42273) = B(11608)-B(11609) -! JVS(42274) = Jac_FULL(5250,2128) - JVS(42274) = -B(3689) -! JVS(42275) = Jac_FULL(5250,2129) - JVS(42275) = -B(12321) -! JVS(42276) = Jac_FULL(5250,2131) - JVS(42276) = -B(11680)+B(11682) -! JVS(42277) = Jac_FULL(5250,2132) - JVS(42277) = -B(11406) -! JVS(42278) = Jac_FULL(5250,2133) - JVS(42278) = -B(5181)+B(5185) -! JVS(42279) = Jac_FULL(5250,2134) - JVS(42279) = -B(13431) -! JVS(42280) = Jac_FULL(5250,2135) - JVS(42280) = -B(5066)+B(5068) -! JVS(42281) = Jac_FULL(5250,2136) - JVS(42281) = -B(23048) -! JVS(42282) = Jac_FULL(5250,2137) - JVS(42282) = B(10301)+B(10302) -! JVS(42283) = Jac_FULL(5250,2138) - JVS(42283) = -B(16546) -! JVS(42284) = Jac_FULL(5250,2139) - JVS(42284) = -B(23493)+B(23495) -! JVS(42285) = Jac_FULL(5250,2140) - JVS(42285) = -B(11080) -! JVS(42286) = Jac_FULL(5250,2141) - JVS(42286) = -B(19394) -! JVS(42287) = Jac_FULL(5250,2142) - JVS(42287) = -B(23760)+B(23762) -! JVS(42288) = Jac_FULL(5250,2143) - JVS(42288) = -B(16934)+B(16936) -! JVS(42289) = Jac_FULL(5250,2144) - JVS(42289) = B(17407)-B(17408) -! JVS(42290) = Jac_FULL(5250,2146) - JVS(42290) = -B(14395)+B(14397) -! JVS(42291) = Jac_FULL(5250,2147) - JVS(42291) = B(13600)-B(13603) -! JVS(42292) = Jac_FULL(5250,2148) - JVS(42292) = B(5821) -! JVS(42293) = Jac_FULL(5250,2149) - JVS(42293) = -B(4510) -! JVS(42294) = Jac_FULL(5250,2150) - JVS(42294) = -B(12170)+B(12172) -! JVS(42295) = Jac_FULL(5250,2151) - JVS(42295) = -B(20710)+B(20712) -! JVS(42296) = Jac_FULL(5250,2152) - JVS(42296) = -B(15630)+B(15632) -! JVS(42297) = Jac_FULL(5250,2153) - JVS(42297) = -B(23896)+B(23898) -! JVS(42298) = Jac_FULL(5250,2154) - JVS(42298) = -B(19500) -! JVS(42299) = Jac_FULL(5250,2155) - JVS(42299) = -B(19312) -! JVS(42300) = Jac_FULL(5250,2156) - JVS(42300) = -B(13911)+B(13915) -! JVS(42301) = Jac_FULL(5250,2157) - JVS(42301) = -B(22039) -! JVS(42302) = Jac_FULL(5250,2159) - JVS(42302) = -B(22796)+B(22798) -! JVS(42303) = Jac_FULL(5250,2160) - JVS(42303) = B(7576) -! JVS(42304) = Jac_FULL(5250,2161) - JVS(42304) = -B(4744) -! JVS(42305) = Jac_FULL(5250,2164) - JVS(42305) = -B(23114) -! JVS(42306) = Jac_FULL(5250,2165) - JVS(42306) = -B(17238) -! JVS(42307) = Jac_FULL(5250,2166) - JVS(42307) = B(12316) -! JVS(42308) = Jac_FULL(5250,2167) - JVS(42308) = -B(12754) -! JVS(42309) = Jac_FULL(5250,2168) - JVS(42309) = -B(4522) -! JVS(42310) = Jac_FULL(5250,2169) - JVS(42310) = -B(4633) -! JVS(42311) = Jac_FULL(5250,2171) - JVS(42311) = -B(21406)+B(21408) -! JVS(42312) = Jac_FULL(5250,2172) - JVS(42312) = -B(11697) -! JVS(42313) = Jac_FULL(5250,2174) - JVS(42313) = -B(7243)+B(7247) -! JVS(42314) = Jac_FULL(5250,2175) - JVS(42314) = -B(8912) -! JVS(42315) = Jac_FULL(5250,2176) - JVS(42315) = -B(12221)+B(12223) -! JVS(42316) = Jac_FULL(5250,2177) - JVS(42316) = -B(12590)+B(12592) -! JVS(42317) = Jac_FULL(5250,2178) - JVS(42317) = -B(7566)+B(7568) -! JVS(42318) = Jac_FULL(5250,2179) - JVS(42318) = -B(4928)+B(4930) -! JVS(42319) = Jac_FULL(5250,2180) - JVS(42319) = -B(7474)+B(7476) -! JVS(42320) = Jac_FULL(5250,2181) - JVS(42320) = -B(7250) -! JVS(42321) = Jac_FULL(5250,2182) - JVS(42321) = -B(11856) -! JVS(42322) = Jac_FULL(5250,2183) - JVS(42322) = -B(21568)+B(21570) -! JVS(42323) = Jac_FULL(5250,2184) - JVS(42323) = -B(7478) -! JVS(42324) = Jac_FULL(5250,2185) - JVS(42324) = -B(17872) -! JVS(42325) = Jac_FULL(5250,2187) - JVS(42325) = -B(13925)+B(13929) -! JVS(42326) = Jac_FULL(5250,2188) - JVS(42326) = B(4106)-B(4107) -! JVS(42327) = Jac_FULL(5250,2189) - JVS(42327) = -B(11770) -! JVS(42328) = Jac_FULL(5250,2191) - JVS(42328) = -B(13617) -! JVS(42329) = Jac_FULL(5250,2192) - JVS(42329) = B(4643)-B(4646) -! JVS(42330) = Jac_FULL(5250,2193) - JVS(42330) = -B(4451) -! JVS(42331) = Jac_FULL(5250,2194) - JVS(42331) = -B(4550) -! JVS(42332) = Jac_FULL(5250,2195) - JVS(42332) = -B(22071) -! JVS(42333) = Jac_FULL(5250,2196) - JVS(42333) = -B(4430) -! JVS(42334) = Jac_FULL(5250,2197) - JVS(42334) = -B(17699) -! JVS(42335) = Jac_FULL(5250,2198) - JVS(42335) = -B(3793) -! JVS(42336) = Jac_FULL(5250,2199) - JVS(42336) = -B(4621) -! JVS(42337) = Jac_FULL(5250,2202) - JVS(42337) = -B(12059) -! JVS(42338) = Jac_FULL(5250,2204) - JVS(42338) = B(12862) -! JVS(42339) = Jac_FULL(5250,2205) - JVS(42339) = B(18020)-B(18021) -! JVS(42340) = Jac_FULL(5250,2206) - JVS(42340) = -B(12127) -! JVS(42341) = Jac_FULL(5250,2208) - JVS(42341) = -B(11493)+B(11495) -! JVS(42342) = Jac_FULL(5250,2209) - JVS(42342) = -B(23679) -! JVS(42343) = Jac_FULL(5250,2211) - JVS(42343) = B(7774)-B(7775) -! JVS(42344) = Jac_FULL(5250,2212) - JVS(42344) = B(2198) -! JVS(42345) = Jac_FULL(5250,2213) - JVS(42345) = -B(7173) -! JVS(42346) = Jac_FULL(5250,2214) - JVS(42346) = B(23535) -! JVS(42347) = Jac_FULL(5250,2215) - JVS(42347) = -B(7226) -! JVS(42348) = Jac_FULL(5250,2216) - JVS(42348) = -B(4756) -! JVS(42349) = Jac_FULL(5250,2217) - JVS(42349) = -B(22307)+B(22309) -! JVS(42350) = Jac_FULL(5250,2218) - JVS(42350) = -B(11976) -! JVS(42351) = Jac_FULL(5250,2219) - JVS(42351) = -B(7754)+B(7756) -! JVS(42352) = Jac_FULL(5250,2220) - JVS(42352) = -B(3902) -! JVS(42353) = Jac_FULL(5250,2221) - JVS(42353) = B(19853)+B(19854) -! JVS(42354) = Jac_FULL(5250,2222) - JVS(42354) = -B(6613) -! JVS(42355) = Jac_FULL(5250,2223) - JVS(42355) = B(4445)-B(4446) -! JVS(42356) = Jac_FULL(5250,2224) - JVS(42356) = -B(23020) -! JVS(42357) = Jac_FULL(5250,2225) - JVS(42357) = -B(13166)+B(13168) -! JVS(42358) = Jac_FULL(5250,2227) - JVS(42358) = -B(4406)+B(4408) -! JVS(42359) = Jac_FULL(5250,2228) - JVS(42359) = -B(20122)+B(20124) -! JVS(42360) = Jac_FULL(5250,2230) - JVS(42360) = -B(16713) -! JVS(42361) = Jac_FULL(5250,2231) - JVS(42361) = -B(11204) -! JVS(42362) = Jac_FULL(5250,2232) - JVS(42362) = -B(6098) -! JVS(42363) = Jac_FULL(5250,2233) - JVS(42363) = B(11850)-B(11853) -! JVS(42364) = Jac_FULL(5250,2235) - JVS(42364) = -B(3722)+B(3724) -! JVS(42365) = Jac_FULL(5250,2236) - JVS(42365) = B(13877)-B(13878) -! JVS(42366) = Jac_FULL(5250,2237) - JVS(42366) = -B(4395) -! JVS(42367) = Jac_FULL(5250,2239) - JVS(42367) = -B(17364) -! JVS(42368) = Jac_FULL(5250,2240) - JVS(42368) = -B(11677) -! JVS(42369) = Jac_FULL(5250,2241) - JVS(42369) = -B(5976) -! JVS(42370) = Jac_FULL(5250,2242) - JVS(42370) = -B(7583) -! JVS(42371) = Jac_FULL(5250,2243) - JVS(42371) = -B(18786) -! JVS(42372) = Jac_FULL(5250,2244) - JVS(42372) = B(11827)+B(11828)-B(11829) -! JVS(42373) = Jac_FULL(5250,2245) - JVS(42373) = -B(17928) -! JVS(42374) = Jac_FULL(5250,2246) - JVS(42374) = -B(4595) -! JVS(42375) = Jac_FULL(5250,2247) - JVS(42375) = B(14108)-B(14111) -! JVS(42376) = Jac_FULL(5250,2248) - JVS(42376) = -B(21340)+B(21342) -! JVS(42377) = Jac_FULL(5250,2249) - JVS(42377) = B(16513) -! JVS(42378) = Jac_FULL(5250,2250) - JVS(42378) = -B(19532) -! JVS(42379) = Jac_FULL(5250,2251) - JVS(42379) = B(22761)-B(22762) -! JVS(42380) = Jac_FULL(5250,2252) - JVS(42380) = B(10545)-B(10548) -! JVS(42381) = Jac_FULL(5250,2253) - JVS(42381) = -B(17650) -! JVS(42382) = Jac_FULL(5250,2254) - JVS(42382) = -B(14634) -! JVS(42383) = Jac_FULL(5250,2255) - JVS(42383) = -B(14188) -! JVS(42384) = Jac_FULL(5250,2256) - JVS(42384) = -B(17635) -! JVS(42385) = Jac_FULL(5250,2257) - JVS(42385) = -B(23696) -! JVS(42386) = Jac_FULL(5250,2258) - JVS(42386) = B(10378) -! JVS(42387) = Jac_FULL(5250,2259) - JVS(42387) = -B(11938)-B(11940) -! JVS(42388) = Jac_FULL(5250,2260) - JVS(42388) = -B(13941)+B(13945) -! JVS(42389) = Jac_FULL(5250,2261) - JVS(42389) = -B(3725) -! JVS(42390) = Jac_FULL(5250,2262) - JVS(42390) = -B(16177)+B(16179) -! JVS(42391) = Jac_FULL(5250,2263) - JVS(42391) = -B(21496)+B(21498) -! JVS(42392) = Jac_FULL(5250,2264) - JVS(42392) = B(4627)-B(4630) -! JVS(42393) = Jac_FULL(5250,2265) - JVS(42393) = -B(19383) -! JVS(42394) = Jac_FULL(5250,2266) - JVS(42394) = B(17397) -! JVS(42395) = Jac_FULL(5250,2267) - JVS(42395) = -B(16424)+B(16426) -! JVS(42396) = Jac_FULL(5250,2268) - JVS(42396) = -B(12109) -! JVS(42397) = Jac_FULL(5250,2269) - JVS(42397) = -B(7093)+B(7095) -! JVS(42398) = Jac_FULL(5250,2270) - JVS(42398) = -B(17528) -! JVS(42399) = Jac_FULL(5250,2271) - JVS(42399) = -B(17988) -! JVS(42400) = Jac_FULL(5250,2272) - JVS(42400) = -B(7735) -! JVS(42401) = Jac_FULL(5250,2273) - JVS(42401) = -B(17119) -! JVS(42402) = Jac_FULL(5250,2274) - JVS(42402) = -B(12881) -! JVS(42403) = Jac_FULL(5250,2275) - JVS(42403) = -B(23502) -! JVS(42404) = Jac_FULL(5250,2276) - JVS(42404) = -B(4015) -! JVS(42405) = Jac_FULL(5250,2277) - JVS(42405) = -B(4579) -! JVS(42406) = Jac_FULL(5250,2278) - JVS(42406) = -B(4924) -! JVS(42407) = Jac_FULL(5250,2280) - JVS(42407) = -B(14714) -! JVS(42408) = Jac_FULL(5250,2281) - JVS(42408) = -B(13318) -! JVS(42409) = Jac_FULL(5250,2282) - JVS(42409) = -B(17791) -! JVS(42410) = Jac_FULL(5250,2283) - JVS(42410) = -B(12427)+B(12429) -! JVS(42411) = Jac_FULL(5250,2285) - JVS(42411) = -B(4409) -! JVS(42412) = Jac_FULL(5250,2286) - JVS(42412) = B(2017) -! JVS(42413) = Jac_FULL(5250,2288) - JVS(42413) = -B(17374) -! JVS(42414) = Jac_FULL(5250,2289) - JVS(42414) = -B(20518)+B(20520) -! JVS(42415) = Jac_FULL(5250,2290) - JVS(42415) = -B(12281)+B(12283) -! JVS(42416) = Jac_FULL(5250,2291) - JVS(42416) = -B(12027) -! JVS(42417) = Jac_FULL(5250,2292) - JVS(42417) = B(4145)-B(4148) -! JVS(42418) = Jac_FULL(5250,2294) - JVS(42418) = -B(18441)+B(18443) -! JVS(42419) = Jac_FULL(5250,2295) - JVS(42419) = -B(12864) -! JVS(42420) = Jac_FULL(5250,2296) - JVS(42420) = -B(11127) -! JVS(42421) = Jac_FULL(5250,2297) - JVS(42421) = -B(3767) -! JVS(42422) = Jac_FULL(5250,2298) - JVS(42422) = B(17946)-B(17947) -! JVS(42423) = Jac_FULL(5250,2299) - JVS(42423) = -B(12073) -! JVS(42424) = Jac_FULL(5250,2300) - JVS(42424) = B(23902) -! JVS(42425) = Jac_FULL(5250,2301) - JVS(42425) = -B(12266)+B(12268) -! JVS(42426) = Jac_FULL(5250,2302) - JVS(42426) = -B(5664) -! JVS(42427) = Jac_FULL(5250,2303) - JVS(42427) = -B(23727) -! JVS(42428) = Jac_FULL(5250,2305) - JVS(42428) = B(19380)+B(19381) -! JVS(42429) = Jac_FULL(5250,2306) - JVS(42429) = -B(3645) -! JVS(42430) = Jac_FULL(5250,2307) - JVS(42430) = -B(13453)+B(13455) -! JVS(42431) = Jac_FULL(5250,2309) - JVS(42431) = -B(5578) -! JVS(42432) = Jac_FULL(5250,2310) - JVS(42432) = -B(13278) -! JVS(42433) = Jac_FULL(5250,2311) - JVS(42433) = -B(22641) -! JVS(42434) = Jac_FULL(5250,2312) - JVS(42434) = B(23010) -! JVS(42435) = Jac_FULL(5250,2313) - JVS(42435) = -B(11088) -! JVS(42436) = Jac_FULL(5250,2314) - JVS(42436) = -B(12249)+B(12251) -! JVS(42437) = Jac_FULL(5250,2315) - JVS(42437) = -B(17218) -! JVS(42438) = Jac_FULL(5250,2316) - JVS(42438) = B(17890)-B(17891) -! JVS(42439) = Jac_FULL(5250,2317) - JVS(42439) = -B(5494) -! JVS(42440) = Jac_FULL(5250,2318) - JVS(42440) = B(4212)-B(4215) -! JVS(42441) = Jac_FULL(5250,2319) - JVS(42441) = B(17401)-B(17402) -! JVS(42442) = Jac_FULL(5250,2320) - JVS(42442) = B(18701)-B(18702) -! JVS(42443) = Jac_FULL(5250,2321) - JVS(42443) = -B(5756) -! JVS(42444) = Jac_FULL(5250,2325) - JVS(42444) = -B(17342) -! JVS(42445) = Jac_FULL(5250,2327) - JVS(42445) = -B(23105) -! JVS(42446) = Jac_FULL(5250,2328) - JVS(42446) = -B(21703) -! JVS(42447) = Jac_FULL(5250,2329) - JVS(42447) = -B(20390)+B(20392) -! JVS(42448) = Jac_FULL(5250,2330) - JVS(42448) = -B(17958) -! JVS(42449) = Jac_FULL(5250,2331) - JVS(42449) = B(17844)-B(17847) -! JVS(42450) = Jac_FULL(5250,2332) - JVS(42450) = -B(22359) -! JVS(42451) = Jac_FULL(5250,2333) - JVS(42451) = -B(6422) -! JVS(42452) = Jac_FULL(5250,2335) - JVS(42452) = -B(16486) -! JVS(42453) = Jac_FULL(5250,2336) - JVS(42453) = -B(22281) -! JVS(42454) = Jac_FULL(5250,2337) - JVS(42454) = -B(4441) -! JVS(42455) = Jac_FULL(5250,2338) - JVS(42455) = -B(4167) -! JVS(42456) = Jac_FULL(5250,2339) - JVS(42456) = B(4389)-B(4390) -! JVS(42457) = Jac_FULL(5250,2340) - JVS(42457) = -B(19242) -! JVS(42458) = Jac_FULL(5250,2341) - JVS(42458) = -B(5205) -! JVS(42459) = Jac_FULL(5250,2342) - JVS(42459) = -B(18547)+B(18549) -! JVS(42460) = Jac_FULL(5250,2343) - JVS(42460) = -B(7318) -! JVS(42461) = Jac_FULL(5250,2344) - JVS(42461) = -B(12334) -! JVS(42462) = Jac_FULL(5250,2345) - JVS(42462) = B(21618) -! JVS(42463) = Jac_FULL(5250,2346) - JVS(42463) = -B(4320) -! JVS(42464) = Jac_FULL(5250,2347) - JVS(42464) = -B(14660) -! JVS(42465) = Jac_FULL(5250,2348) - JVS(42465) = -B(22303)+B(22305) -! JVS(42466) = Jac_FULL(5250,2349) - JVS(42466) = -B(21458)+B(21460) -! JVS(42467) = Jac_FULL(5250,2350) - JVS(42467) = -B(4538) -! JVS(42468) = Jac_FULL(5250,2351) - JVS(42468) = -B(18315)+B(18317) -! JVS(42469) = Jac_FULL(5250,2352) - JVS(42469) = -B(20898) -! JVS(42470) = Jac_FULL(5250,2353) - JVS(42470) = -B(16445)+B(16447) -! JVS(42471) = Jac_FULL(5250,2354) - JVS(42471) = -B(16709) -! JVS(42472) = Jac_FULL(5250,2355) - JVS(42472) = B(4544)-B(4547) -! JVS(42473) = Jac_FULL(5250,2357) - JVS(42473) = -B(9793) -! JVS(42474) = Jac_FULL(5250,2358) - JVS(42474) = B(13478)+B(13479) -! JVS(42475) = Jac_FULL(5250,2359) - JVS(42475) = B(14811)+B(14812) -! JVS(42476) = Jac_FULL(5250,2360) - JVS(42476) = -B(19053)+B(19055) -! JVS(42477) = Jac_FULL(5250,2362) - JVS(42477) = B(11201)+B(11202) -! JVS(42478) = Jac_FULL(5250,2363) - JVS(42478) = -B(5044)+B(5046) -! JVS(42479) = Jac_FULL(5250,2364) - JVS(42479) = -B(7772) -! JVS(42480) = Jac_FULL(5250,2365) - JVS(42480) = -B(7036) -! JVS(42481) = Jac_FULL(5250,2366) - JVS(42481) = -B(5075)+B(5079) -! JVS(42482) = Jac_FULL(5250,2367) - JVS(42482) = -B(3676) -! JVS(42483) = Jac_FULL(5250,2368) - JVS(42483) = -B(18593)+B(18595) -! JVS(42484) = Jac_FULL(5250,2369) - JVS(42484) = -B(5003)+B(5007) -! JVS(42485) = Jac_FULL(5250,2370) - JVS(42485) = -B(5156) -! JVS(42486) = Jac_FULL(5250,2371) - JVS(42486) = B(12308)-B(12309) -! JVS(42487) = Jac_FULL(5250,2372) - JVS(42487) = -B(6113) -! JVS(42488) = Jac_FULL(5250,2373) - JVS(42488) = B(14713) -! JVS(42489) = Jac_FULL(5250,2375) - JVS(42489) = -B(13930) -! JVS(42490) = Jac_FULL(5250,2377) - JVS(42490) = -B(19255) -! JVS(42491) = Jac_FULL(5250,2378) - JVS(42491) = -B(19303) -! JVS(42492) = Jac_FULL(5250,2379) - JVS(42492) = -B(13217)+B(13219) -! JVS(42493) = Jac_FULL(5250,2380) - JVS(42493) = B(21757) -! JVS(42494) = Jac_FULL(5250,2381) - JVS(42494) = -B(19027) -! JVS(42495) = Jac_FULL(5250,2382) - JVS(42495) = -B(18774) -! JVS(42496) = Jac_FULL(5250,2383) - JVS(42496) = -B(5337) -! JVS(42497) = Jac_FULL(5250,2384) - JVS(42497) = -B(12194)+B(12196) -! JVS(42498) = Jac_FULL(5250,2385) - JVS(42498) = -B(339)-B(341)-B(343)-B(345) -! JVS(42499) = Jac_FULL(5250,2386) - JVS(42499) = -B(20857)+B(20859)+B(20860) -! JVS(42500) = Jac_FULL(5250,2387) - JVS(42500) = -B(12145) -! JVS(42501) = Jac_FULL(5250,2388) - JVS(42501) = -B(22275)+B(22277) -! JVS(42502) = Jac_FULL(5250,2389) - JVS(42502) = -B(18630)+B(18632) -! JVS(42503) = Jac_FULL(5250,2390) - JVS(42503) = -B(13349) -! JVS(42504) = Jac_FULL(5250,2391) - JVS(42504) = B(3744)-B(3747) -! JVS(42505) = Jac_FULL(5250,2392) - JVS(42505) = B(16556) -! JVS(42506) = Jac_FULL(5250,2393) - JVS(42506) = B(12527) -! JVS(42507) = Jac_FULL(5250,2394) - JVS(42507) = -B(4916)+B(4918) -! JVS(42508) = Jac_FULL(5250,2395) - JVS(42508) = -B(14073) -! JVS(42509) = Jac_FULL(5250,2396) - JVS(42509) = -B(12232)+B(12234) -! JVS(42510) = Jac_FULL(5250,2397) - JVS(42510) = -B(14076) -! JVS(42511) = Jac_FULL(5250,2398) - JVS(42511) = -B(12979) -! JVS(42512) = Jac_FULL(5250,2400) - JVS(42512) = -B(7064)+B(7066) -! JVS(42513) = Jac_FULL(5250,2401) - JVS(42513) = -B(7170)+B(7172) -! JVS(42514) = Jac_FULL(5250,2402) - JVS(42514) = -B(13886)+B(13888) -! JVS(42515) = Jac_FULL(5250,2403) - JVS(42515) = -B(4675) -! JVS(42516) = Jac_FULL(5250,2404) - JVS(42516) = -B(22366)+B(22368) -! JVS(42517) = Jac_FULL(5250,2405) - JVS(42517) = -B(13993) -! JVS(42518) = Jac_FULL(5250,2406) - JVS(42518) = -B(5798) -! JVS(42519) = Jac_FULL(5250,2407) - JVS(42519) = -B(17173)+B(17175) -! JVS(42520) = Jac_FULL(5250,2408) - JVS(42520) = -B(21075) -! JVS(42521) = Jac_FULL(5250,2409) - JVS(42521) = B(4615)-B(4616) -! JVS(42522) = Jac_FULL(5250,2410) - JVS(42522) = -B(11633)+B(11635) -! JVS(42523) = Jac_FULL(5250,2411) - JVS(42523) = B(17976)-B(17977) -! JVS(42524) = Jac_FULL(5250,2412) - JVS(42524) = -B(7748)+B(7750) -! JVS(42525) = Jac_FULL(5250,2413) - JVS(42525) = -B(4974)+B(4976) -! JVS(42526) = Jac_FULL(5250,2414) - JVS(42526) = -B(22205)+B(22207) -! JVS(42527) = Jac_FULL(5250,2416) - JVS(42527) = B(4478)-B(4481) -! JVS(42528) = Jac_FULL(5250,2417) - JVS(42528) = -B(16187)+B(16189) -! JVS(42529) = Jac_FULL(5250,2418) - JVS(42529) = -B(5886) -! JVS(42530) = Jac_FULL(5250,2419) - JVS(42530) = -B(17723) -! JVS(42531) = Jac_FULL(5250,2420) - JVS(42531) = -B(13290) -! JVS(42532) = Jac_FULL(5250,2421) - JVS(42532) = -B(155)-B(157) -! JVS(42533) = Jac_FULL(5250,2422) - JVS(42533) = B(4495)-B(4498) -! JVS(42534) = Jac_FULL(5250,2423) - JVS(42534) = -B(19076)+B(19078) -! JVS(42535) = Jac_FULL(5250,2424) - JVS(42535) = -B(14051)+B(14053)+B(14054) -! JVS(42536) = Jac_FULL(5250,2425) - JVS(42536) = B(6890) -! JVS(42537) = Jac_FULL(5250,2426) - JVS(42537) = B(17701)+B(17702)-B(17703) -! JVS(42538) = Jac_FULL(5250,2427) - JVS(42538) = -B(4187) -! JVS(42539) = Jac_FULL(5250,2428) - JVS(42539) = B(14096)+B(14097) -! JVS(42540) = Jac_FULL(5250,2429) - JVS(42540) = B(20306)-B(20307) -! JVS(42541) = Jac_FULL(5250,2431) - JVS(42541) = B(13585)-B(13586) -! JVS(42542) = Jac_FULL(5250,2432) - JVS(42542) = -B(4779) -! JVS(42543) = Jac_FULL(5250,2433) - JVS(42543) = -B(3669) -! JVS(42544) = Jac_FULL(5250,2434) - JVS(42544) = -B(11560)+B(11562) -! JVS(42545) = Jac_FULL(5250,2435) - JVS(42545) = -B(4381)+B(4383) -! JVS(42546) = Jac_FULL(5250,2436) - JVS(42546) = -B(10704) -! JVS(42547) = Jac_FULL(5250,2437) - JVS(42547) = B(23943)+B(23944) -! JVS(42548) = Jac_FULL(5250,2438) - JVS(42548) = -B(3941) -! JVS(42549) = Jac_FULL(5250,2439) - JVS(42549) = B(17189) -! JVS(42550) = Jac_FULL(5250,2440) - JVS(42550) = B(23139) -! JVS(42551) = Jac_FULL(5250,2441) - JVS(42551) = -B(4938) -! JVS(42552) = Jac_FULL(5250,2442) - JVS(42552) = -B(4834)+B(4836) -! JVS(42553) = Jac_FULL(5250,2443) - JVS(42553) = -B(21365)+B(21367) -! JVS(42554) = Jac_FULL(5250,2444) - JVS(42554) = -B(23514) -! JVS(42555) = Jac_FULL(5250,2445) - JVS(42555) = -B(22923)+B(22925) -! JVS(42556) = Jac_FULL(5250,2446) - JVS(42556) = -B(16110)+B(16112) -! JVS(42557) = Jac_FULL(5250,2447) - JVS(42557) = -B(4992) -! JVS(42558) = Jac_FULL(5250,2448) - JVS(42558) = -B(8735) -! JVS(42559) = Jac_FULL(5250,2449) - JVS(42559) = -B(4984)+B(4986) -! JVS(42560) = Jac_FULL(5250,2450) - JVS(42560) = -B(23913)+B(23915) -! JVS(42561) = Jac_FULL(5250,2451) - JVS(42561) = -B(7452)+B(7454) -! JVS(42562) = Jac_FULL(5250,2453) - JVS(42562) = -B(7211) -! JVS(42563) = Jac_FULL(5250,2454) - JVS(42563) = -B(15577)+B(15579) -! JVS(42564) = Jac_FULL(5250,2455) - JVS(42564) = -B(5148)+B(5150) -! JVS(42565) = Jac_FULL(5250,2456) - JVS(42565) = B(3639)-B(3640) -! JVS(42566) = Jac_FULL(5250,2458) - JVS(42566) = -B(19251) -! JVS(42567) = Jac_FULL(5250,2459) - JVS(42567) = -B(3861) -! JVS(42568) = Jac_FULL(5250,2460) - JVS(42568) = -B(12202)+B(12204) -! JVS(42569) = Jac_FULL(5250,2461) - JVS(42569) = -B(13916) -! JVS(42570) = Jac_FULL(5250,2462) - JVS(42570) = -B(14328) -! JVS(42571) = Jac_FULL(5250,2463) - JVS(42571) = -B(4162)+B(4166) -! JVS(42572) = Jac_FULL(5250,2464) - JVS(42572) = -B(12707) -! JVS(42573) = Jac_FULL(5250,2466) - JVS(42573) = B(12300) -! JVS(42574) = Jac_FULL(5250,2467) - JVS(42574) = -B(15640) -! JVS(42575) = Jac_FULL(5250,2468) - JVS(42575) = -B(8759) -! JVS(42576) = Jac_FULL(5250,2469) - JVS(42576) = B(11345)+B(11346) -! JVS(42577) = Jac_FULL(5250,2470) - JVS(42577) = B(3592)+B(3593) -! JVS(42578) = Jac_FULL(5250,2471) - JVS(42578) = -B(15459) -! JVS(42579) = Jac_FULL(5250,2472) - JVS(42579) = -B(13041) -! JVS(42580) = Jac_FULL(5250,2474) - JVS(42580) = -B(12947) -! JVS(42581) = Jac_FULL(5250,2475) - JVS(42581) = -B(23362) -! JVS(42582) = Jac_FULL(5250,2476) - JVS(42582) = B(3115) -! JVS(42583) = Jac_FULL(5250,2477) - JVS(42583) = -B(9215) -! JVS(42584) = Jac_FULL(5250,2478) - JVS(42584) = -B(12212) -! JVS(42585) = Jac_FULL(5250,2479) - JVS(42585) = B(6722) -! JVS(42586) = Jac_FULL(5250,2480) - JVS(42586) = -B(11100) -! JVS(42587) = Jac_FULL(5250,2481) - JVS(42587) = B(10336) -! JVS(42588) = Jac_FULL(5250,2482) - JVS(42588) = -B(15700) -! JVS(42589) = Jac_FULL(5250,2483) - JVS(42589) = -B(23843) -! JVS(42590) = Jac_FULL(5250,2484) - JVS(42590) = -B(10019) -! JVS(42591) = Jac_FULL(5250,2485) - JVS(42591) = -B(15896) -! JVS(42592) = Jac_FULL(5250,2486) - JVS(42592) = -B(21625) -! JVS(42593) = Jac_FULL(5250,2487) - JVS(42593) = B(2253) -! JVS(42594) = Jac_FULL(5250,2488) - JVS(42594) = -B(15739) -! JVS(42595) = Jac_FULL(5250,2489) - JVS(42595) = B(13727) -! JVS(42596) = Jac_FULL(5250,2491) - JVS(42596) = -B(18828)-B(18830) -! JVS(42597) = Jac_FULL(5250,2494) - JVS(42597) = B(13528)-B(13529) -! JVS(42598) = Jac_FULL(5250,2496) - JVS(42598) = -B(17866) -! JVS(42599) = Jac_FULL(5250,2497) - JVS(42599) = B(10474)+B(10475)-B(10476) -! JVS(42600) = Jac_FULL(5250,2498) - JVS(42600) = -B(18705) -! JVS(42601) = Jac_FULL(5250,2499) - JVS(42601) = -B(10045)+B(10047)+B(10048) -! JVS(42602) = Jac_FULL(5250,2500) - JVS(42602) = -B(12173) -! JVS(42603) = Jac_FULL(5250,2501) - JVS(42603) = B(8889)+B(8890) -! JVS(42604) = Jac_FULL(5250,2503) - JVS(42604) = -B(3701)+B(3703) -! JVS(42605) = Jac_FULL(5250,2504) - JVS(42605) = -B(15610) -! JVS(42606) = Jac_FULL(5250,2505) - JVS(42606) = -B(21444) -! JVS(42607) = Jac_FULL(5250,2507) - JVS(42607) = -B(22284)+B(22286) -! JVS(42608) = Jac_FULL(5250,2509) - JVS(42608) = -B(11749) -! JVS(42609) = Jac_FULL(5250,2510) - JVS(42609) = -B(23242) -! JVS(42610) = Jac_FULL(5250,2511) - JVS(42610) = -B(11636) -! JVS(42611) = Jac_FULL(5250,2513) - JVS(42611) = -B(11930) -! JVS(42612) = Jac_FULL(5250,2514) - JVS(42612) = -B(17685) -! JVS(42613) = Jac_FULL(5250,2515) - JVS(42613) = -B(20771) -! JVS(42614) = Jac_FULL(5250,2517) - JVS(42614) = -B(21633) -! JVS(42615) = Jac_FULL(5250,2518) - JVS(42615) = -B(13150) -! JVS(42616) = Jac_FULL(5250,2519) - JVS(42616) = -B(11713) -! JVS(42617) = Jac_FULL(5250,2520) - JVS(42617) = -B(9282)+B(9284)+B(9285) -! JVS(42618) = Jac_FULL(5250,2522) - JVS(42618) = -B(12205) -! JVS(42619) = Jac_FULL(5250,2523) - JVS(42619) = -B(22468) -! JVS(42620) = Jac_FULL(5250,2524) - JVS(42620) = -B(22062) -! JVS(42621) = Jac_FULL(5250,2525) - JVS(42621) = -B(11584) -! JVS(42622) = Jac_FULL(5250,2527) - JVS(42622) = -B(21752) -! JVS(42623) = Jac_FULL(5250,2529) - JVS(42623) = -B(22202) -! JVS(42624) = Jac_FULL(5250,2530) - JVS(42624) = -B(23763) -! JVS(42625) = Jac_FULL(5250,2531) - JVS(42625) = -B(13501) -! JVS(42626) = Jac_FULL(5250,2532) - JVS(42626) = -B(21833) -! JVS(42627) = Jac_FULL(5250,2533) - JVS(42627) = -B(19245) -! JVS(42628) = Jac_FULL(5250,2534) - JVS(42628) = -B(4714) -! JVS(42629) = Jac_FULL(5250,2537) - JVS(42629) = -B(4119) -! JVS(42630) = Jac_FULL(5250,2538) - JVS(42630) = -B(20125) -! JVS(42631) = Jac_FULL(5250,2540) - JVS(42631) = B(11069)+B(11070) -! JVS(42632) = Jac_FULL(5250,2541) - JVS(42632) = -B(21399)+B(21401) -! JVS(42633) = Jac_FULL(5250,2542) - JVS(42633) = -B(3837) -! JVS(42634) = Jac_FULL(5250,2543) - JVS(42634) = B(11811)-B(11814) -! JVS(42635) = Jac_FULL(5250,2544) - JVS(42635) = B(10610)-B(10615) -! JVS(42636) = Jac_FULL(5250,2546) - JVS(42636) = -B(19543) -! JVS(42637) = Jac_FULL(5250,2547) - JVS(42637) = -B(12318) -! JVS(42638) = Jac_FULL(5250,2548) - JVS(42638) = -B(20120) -! JVS(42639) = Jac_FULL(5250,2552) - JVS(42639) = -B(21359) -! JVS(42640) = Jac_FULL(5250,2553) - JVS(42640) = B(17556)-B(17557)-B(17559) -! JVS(42641) = Jac_FULL(5250,2554) - JVS(42641) = B(16628) -! JVS(42642) = Jac_FULL(5250,2555) - JVS(42642) = -B(11872) -! JVS(42643) = Jac_FULL(5250,2556) - JVS(42643) = B(22767)+B(22768)-B(22769) -! JVS(42644) = Jac_FULL(5250,2558) - JVS(42644) = -B(7163)+B(7165)+B(7166) -! JVS(42645) = Jac_FULL(5250,2559) - JVS(42645) = B(9483)+B(9484) -! JVS(42646) = Jac_FULL(5250,2560) - JVS(42646) = -B(14168) -! JVS(42647) = Jac_FULL(5250,2564) - JVS(42647) = -B(22410) -! JVS(42648) = Jac_FULL(5250,2565) - JVS(42648) = -B(9219)+B(9221)+B(9222) -! JVS(42649) = Jac_FULL(5250,2567) - JVS(42649) = -B(23891) -! JVS(42650) = Jac_FULL(5250,2568) - JVS(42650) = -B(20549) -! JVS(42651) = Jac_FULL(5250,2569) - JVS(42651) = -B(9192) -! JVS(42652) = Jac_FULL(5250,2570) - JVS(42652) = B(18898)-B(18899)-B(18901) -! JVS(42653) = Jac_FULL(5250,2571) - JVS(42653) = -B(23530) -! JVS(42654) = Jac_FULL(5250,2572) - JVS(42654) = -B(7150)+B(7152)+B(7153) -! JVS(42655) = Jac_FULL(5250,2573) - JVS(42655) = -B(23277) -! JVS(42656) = Jac_FULL(5250,2574) - JVS(42656) = -B(6943)-B(6945) -! JVS(42657) = Jac_FULL(5250,2576) - JVS(42657) = -B(13889) -! JVS(42658) = Jac_FULL(5250,2579) - JVS(42658) = -B(12181) -! JVS(42659) = Jac_FULL(5250,2580) - JVS(42659) = -B(21598) -! JVS(42660) = Jac_FULL(5250,2582) - JVS(42660) = -B(12843) -! JVS(42661) = Jac_FULL(5250,2583) - JVS(42661) = -B(12224) -! JVS(42662) = Jac_FULL(5250,2584) - JVS(42662) = -B(22499) -! JVS(42663) = Jac_FULL(5250,2585) - JVS(42663) = -B(9830)+B(9832)+B(9833) -! JVS(42664) = Jac_FULL(5250,2587) - JVS(42664) = -B(14544) -! JVS(42665) = Jac_FULL(5250,2590) - JVS(42665) = -B(16596)+B(16598) -! JVS(42666) = Jac_FULL(5250,2593) - JVS(42666) = -B(14505) -! JVS(42667) = Jac_FULL(5250,2597) - JVS(42667) = -B(20920) -! JVS(42668) = Jac_FULL(5250,2600) - JVS(42668) = -B(21657) -! JVS(42669) = Jac_FULL(5250,2601) - JVS(42669) = B(9594)+B(9595) -! JVS(42670) = Jac_FULL(5250,2602) - JVS(42670) = -B(15622)+B(15624)+B(15625) -! JVS(42671) = Jac_FULL(5250,2603) - JVS(42671) = -B(13224)+B(13226)+B(13227) -! JVS(42672) = Jac_FULL(5250,2605) - JVS(42672) = -B(6025) -! JVS(42673) = Jac_FULL(5250,2606) - JVS(42673) = -B(18904) -! JVS(42674) = Jac_FULL(5250,2608) - JVS(42674) = -B(22799) -! JVS(42675) = Jac_FULL(5250,2609) - JVS(42675) = B(12378)+B(12379) -! JVS(42676) = Jac_FULL(5250,2610) - JVS(42676) = -B(4567) -! JVS(42677) = Jac_FULL(5250,2611) - JVS(42677) = -B(4195) -! JVS(42678) = Jac_FULL(5250,2612) - JVS(42678) = -B(4159) -! JVS(42679) = Jac_FULL(5250,2613) - JVS(42679) = -B(21026) -! JVS(42680) = Jac_FULL(5250,2615) - JVS(42680) = -B(21461) -! JVS(42681) = Jac_FULL(5250,2616) - JVS(42681) = B(16548) -! JVS(42682) = Jac_FULL(5250,2617) - JVS(42682) = B(20320) -! JVS(42683) = Jac_FULL(5250,2618) - JVS(42683) = -B(14091)+B(14094) -! JVS(42684) = Jac_FULL(5250,2619) - JVS(42684) = -B(24029) -! JVS(42685) = Jac_FULL(5250,2620) - JVS(42685) = -B(11496) -! JVS(42686) = Jac_FULL(5250,2621) - JVS(42686) = -B(22119) -! JVS(42687) = Jac_FULL(5250,2622) - JVS(42687) = -B(20570) -! JVS(42688) = Jac_FULL(5250,2624) - JVS(42688) = -B(9960)+B(9962)+B(9963) -! JVS(42689) = Jac_FULL(5250,2625) - JVS(42689) = B(19713)+B(19714)-B(19715) -! JVS(42690) = Jac_FULL(5250,2626) - JVS(42690) = -B(7308) -! JVS(42691) = Jac_FULL(5250,2627) - JVS(42691) = -B(4246)+B(4248) -! JVS(42692) = Jac_FULL(5250,2628) - JVS(42692) = B(4462)-B(4463) -! JVS(42693) = Jac_FULL(5250,2629) - JVS(42693) = -B(20740) -! JVS(42694) = Jac_FULL(5250,2630) - JVS(42694) = -B(13465) -! JVS(42695) = Jac_FULL(5250,2631) - JVS(42695) = -B(21385) -! JVS(42696) = Jac_FULL(5250,2632) - JVS(42696) = -B(10072) -! JVS(42697) = Jac_FULL(5250,2633) - JVS(42697) = B(11948)-B(11951) -! JVS(42698) = Jac_FULL(5250,2635) - JVS(42698) = -B(21604) -! JVS(42699) = Jac_FULL(5250,2636) - JVS(42699) = -B(19210) -! JVS(42700) = Jac_FULL(5250,2637) - JVS(42700) = -B(23405) -! JVS(42701) = Jac_FULL(5250,2640) - JVS(42701) = -B(9333) -! JVS(42702) = Jac_FULL(5250,2643) - JVS(42702) = -B(21343) -! JVS(42703) = Jac_FULL(5250,2645) - JVS(42703) = -B(9489) -! JVS(42704) = Jac_FULL(5250,2648) - JVS(42704) = -B(17259) -! JVS(42705) = Jac_FULL(5250,2649) - JVS(42705) = -B(9732)+B(9734)+B(9735) -! JVS(42706) = Jac_FULL(5250,2650) - JVS(42706) = -B(10254) -! JVS(42707) = Jac_FULL(5250,2651) - JVS(42707) = -B(20932) -! JVS(42708) = Jac_FULL(5250,2652) - JVS(42708) = -B(22222)+B(22224) -! JVS(42709) = Jac_FULL(5250,2653) - JVS(42709) = -B(11817) -! JVS(42710) = Jac_FULL(5250,2654) - JVS(42710) = -B(21423)+B(21425) -! JVS(42711) = Jac_FULL(5250,2655) - JVS(42711) = -B(20316) -! JVS(42712) = Jac_FULL(5250,2656) - JVS(42712) = -B(9454) -! JVS(42713) = Jac_FULL(5250,2657) - JVS(42713) = -B(3979) -! JVS(42714) = Jac_FULL(5250,2658) - JVS(42714) = -B(20686) -! JVS(42715) = Jac_FULL(5250,2660) - JVS(42715) = -B(22858) -! JVS(42716) = Jac_FULL(5250,2661) - JVS(42716) = -B(19225) -! JVS(42717) = Jac_FULL(5250,2663) - JVS(42717) = -B(18955) -! JVS(42718) = Jac_FULL(5250,2664) - JVS(42718) = -B(18963) -! JVS(42719) = Jac_FULL(5250,2665) - JVS(42719) = -B(7071) -! JVS(42720) = Jac_FULL(5250,2666) - JVS(42720) = -B(21007) -! JVS(42721) = Jac_FULL(5250,2669) - JVS(42721) = -B(17739) -! JVS(42722) = Jac_FULL(5250,2670) - JVS(42722) = -B(13623) -! JVS(42723) = Jac_FULL(5250,2671) - JVS(42723) = -B(13237) -! JVS(42724) = Jac_FULL(5250,2672) - JVS(42724) = -B(13961) -! JVS(42725) = Jac_FULL(5250,2673) - JVS(42725) = -B(22713) -! JVS(42726) = Jac_FULL(5250,2674) - JVS(42726) = -B(14864) -! JVS(42727) = Jac_FULL(5250,2675) - JVS(42727) = -B(11491) -! JVS(42728) = Jac_FULL(5250,2677) - JVS(42728) = -B(17411) -! JVS(42729) = Jac_FULL(5250,2678) - JVS(42729) = -B(17405) -! JVS(42730) = Jac_FULL(5250,2680) - JVS(42730) = -B(23904) -! JVS(42731) = Jac_FULL(5250,2681) - JVS(42731) = -B(13456) -! JVS(42732) = Jac_FULL(5250,2683) - JVS(42732) = -B(21337) -! JVS(42733) = Jac_FULL(5250,2684) - JVS(42733) = -B(11520) -! JVS(42734) = Jac_FULL(5250,2685) - JVS(42734) = -B(17269) -! JVS(42735) = Jac_FULL(5250,2686) - JVS(42735) = -B(16205)+B(16207)+B(16208) -! JVS(42736) = Jac_FULL(5250,2687) - JVS(42736) = -B(4401) -! JVS(42737) = Jac_FULL(5250,2688) - JVS(42737) = -B(21997) -! JVS(42738) = Jac_FULL(5250,2689) - JVS(42738) = -B(12941) -! JVS(42739) = Jac_FULL(5250,2690) - JVS(42739) = B(13364)+B(13365) -! JVS(42740) = Jac_FULL(5250,2691) - JVS(42740) = -B(11606) -! JVS(42741) = Jac_FULL(5250,2693) - JVS(42741) = B(11472)-B(11473) -! JVS(42742) = Jac_FULL(5250,2695) - JVS(42742) = B(13579)+B(13580) -! JVS(42743) = Jac_FULL(5250,2696) - JVS(42743) = -B(18350) -! JVS(42744) = Jac_FULL(5250,2698) - JVS(42744) = -B(12197) -! JVS(42745) = Jac_FULL(5250,2700) - JVS(42745) = -B(22266) -! JVS(42746) = Jac_FULL(5250,2701) - JVS(42746) = -B(20703) -! JVS(42747) = Jac_FULL(5250,2702) - JVS(42747) = -B(12252) -! JVS(42748) = Jac_FULL(5250,2703) - JVS(42748) = -B(23833) -! JVS(42749) = Jac_FULL(5250,2704) - JVS(42749) = -B(20982) -! JVS(42750) = Jac_FULL(5250,2705) - JVS(42750) = -B(20310) -! JVS(42751) = Jac_FULL(5250,2708) - JVS(42751) = -B(20840) -! JVS(42752) = Jac_FULL(5250,2709) - JVS(42752) = -B(9513)+B(9515)+B(9516) -! JVS(42753) = Jac_FULL(5250,2711) - JVS(42753) = -B(13490) -! JVS(42754) = Jac_FULL(5250,2712) - JVS(42754) = -B(12373) -! JVS(42755) = Jac_FULL(5250,2713) - JVS(42755) = -B(11954) -! JVS(42756) = Jac_FULL(5250,2714) - JVS(42756) = -B(9368) -! JVS(42757) = Jac_FULL(5250,2715) - JVS(42757) = -B(7009)+B(7011)+B(7012) -! JVS(42758) = Jac_FULL(5250,2716) - JVS(42758) = -B(13939) -! JVS(42759) = Jac_FULL(5250,2718) - JVS(42759) = -B(21185) -! JVS(42760) = Jac_FULL(5250,2719) - JVS(42760) = -B(23475) -! JVS(42761) = Jac_FULL(5250,2721) - JVS(42761) = -B(22239) -! JVS(42762) = Jac_FULL(5250,2723) - JVS(42762) = B(21187)+B(21188)-B(21189) -! JVS(42763) = Jac_FULL(5250,2725) - JVS(42763) = -B(21296) -! JVS(42764) = Jac_FULL(5250,2726) - JVS(42764) = -B(19850) -! JVS(42765) = Jac_FULL(5250,2727) - JVS(42765) = B(11212)+B(11213) -! JVS(42766) = Jac_FULL(5250,2729) - JVS(42766) = -B(23920) -! JVS(42767) = Jac_FULL(5250,2730) - JVS(42767) = B(17604)+B(17605)-B(17608) -! JVS(42768) = Jac_FULL(5250,2735) - JVS(42768) = -B(20431) -! JVS(42769) = Jac_FULL(5250,2737) - JVS(42769) = B(17226)+B(17227) -! JVS(42770) = Jac_FULL(5250,2738) - JVS(42770) = -B(12235) -! JVS(42771) = Jac_FULL(5250,2740) - JVS(42771) = -B(9617)+B(9619)+B(9620) -! JVS(42772) = Jac_FULL(5250,2742) - JVS(42772) = -B(16890) -! JVS(42773) = Jac_FULL(5250,2743) - JVS(42773) = -B(7651) -! JVS(42774) = Jac_FULL(5250,2748) - JVS(42774) = B(1492) -! JVS(42775) = Jac_FULL(5250,2753) - JVS(42775) = -B(13954)+B(13958) -! JVS(42776) = Jac_FULL(5250,2754) - JVS(42776) = -B(21513)+B(21515) -! JVS(42777) = Jac_FULL(5250,2755) - JVS(42777) = -B(11809) -! JVS(42778) = Jac_FULL(5250,2756) - JVS(42778) = -B(23591) -! JVS(42779) = Jac_FULL(5250,2757) - JVS(42779) = -B(14012) -! JVS(42780) = Jac_FULL(5250,2759) - JVS(42780) = -B(20759) -! JVS(42781) = Jac_FULL(5250,2761) - JVS(42781) = -B(11727) -! JVS(42782) = Jac_FULL(5250,2763) - JVS(42782) = -B(22199)+B(22201) -! JVS(42783) = Jac_FULL(5250,2764) - JVS(42783) = -B(16766) -! JVS(42784) = Jac_FULL(5250,2765) - JVS(42784) = -B(21402) -! JVS(42785) = Jac_FULL(5250,2766) - JVS(42785) = -B(16163)+B(16165) -! JVS(42786) = Jac_FULL(5250,2769) - JVS(42786) = -B(19990)+B(19992)+B(19993) -! JVS(42787) = Jac_FULL(5250,2772) - JVS(42787) = -B(22507) -! JVS(42788) = Jac_FULL(5250,2773) - JVS(42788) = -B(23064) -! JVS(42789) = Jac_FULL(5250,2774) - JVS(42789) = -B(7019)+B(7021)+B(7022) -! JVS(42790) = Jac_FULL(5250,2775) - JVS(42790) = B(11888)-B(11891) -! JVS(42791) = Jac_FULL(5250,2777) - JVS(42791) = -B(23352) -! JVS(42792) = Jac_FULL(5250,2778) - JVS(42792) = -B(17747) -! JVS(42793) = Jac_FULL(5250,2779) - JVS(42793) = -B(24012) -! JVS(42794) = Jac_FULL(5250,2780) - JVS(42794) = -B(12772) -! JVS(42795) = Jac_FULL(5250,2781) - JVS(42795) = -B(19482) -! JVS(42796) = Jac_FULL(5250,2782) - JVS(42796) = -B(5593) -! JVS(42797) = Jac_FULL(5250,2783) - JVS(42797) = -B(12168) -! JVS(42798) = Jac_FULL(5250,2784) - JVS(42798) = -B(21640) -! JVS(42799) = Jac_FULL(5250,2785) - JVS(42799) = B(11707)-B(11710) -! JVS(42800) = Jac_FULL(5250,2786) - JVS(42800) = -B(17459) -! JVS(42801) = Jac_FULL(5250,2787) - JVS(42801) = -B(19639) -! JVS(42802) = Jac_FULL(5250,2790) - JVS(42802) = -B(11452) -! JVS(42803) = Jac_FULL(5250,2791) - JVS(42803) = -B(10686) -! JVS(42804) = Jac_FULL(5250,2792) - JVS(42804) = -B(7778) -! JVS(42805) = Jac_FULL(5250,2793) - JVS(42805) = -B(11691) -! JVS(42806) = Jac_FULL(5250,2794) - JVS(42806) = -B(21426) -! JVS(42807) = Jac_FULL(5250,2796) - JVS(42807) = -B(13532) -! JVS(42808) = Jac_FULL(5250,2797) - JVS(42808) = -B(19550)+B(19552)+B(19553) -! JVS(42809) = Jac_FULL(5250,2799) - JVS(42809) = -B(8754)+B(8756)+B(8757) -! JVS(42810) = Jac_FULL(5250,2800) - JVS(42810) = -B(22765) -! JVS(42811) = Jac_FULL(5250,2801) - JVS(42811) = -B(13589) -! JVS(42812) = Jac_FULL(5250,2802) - JVS(42812) = -B(23442) -! JVS(42813) = Jac_FULL(5250,2803) - JVS(42813) = -B(15434) -! JVS(42814) = Jac_FULL(5250,2804) - JVS(42814) = -B(19051) -! JVS(42815) = Jac_FULL(5250,2805) - JVS(42815) = B(4373)+B(4374) -! JVS(42816) = Jac_FULL(5250,2808) - JVS(42816) = -B(13035) -! JVS(42817) = Jac_FULL(5250,2809) - JVS(42817) = -B(23453) -! JVS(42818) = Jac_FULL(5250,2810) - JVS(42818) = -B(18960)+B(18962) -! JVS(42819) = Jac_FULL(5250,2811) - JVS(42819) = -B(4322) -! JVS(42820) = Jac_FULL(5250,2812) - JVS(42820) = -B(20646) -! JVS(42821) = Jac_FULL(5250,2813) - JVS(42821) = -B(23179) -! JVS(42822) = Jac_FULL(5250,2814) - JVS(42822) = -B(17562) -! JVS(42823) = Jac_FULL(5250,2815) - JVS(42823) = -B(11563) -! JVS(42824) = Jac_FULL(5250,2817) - JVS(42824) = -B(6971) -! JVS(42825) = Jac_FULL(5250,2822) - JVS(42825) = -B(19594) -! JVS(42826) = Jac_FULL(5250,2823) - JVS(42826) = -B(20382) -! JVS(42827) = Jac_FULL(5250,2824) - JVS(42827) = B(13497)-B(13498) -! JVS(42828) = Jac_FULL(5250,2825) - JVS(42828) = -B(11444) -! JVS(42829) = Jac_FULL(5250,2828) - JVS(42829) = B(11597)+B(11598) -! JVS(42830) = Jac_FULL(5250,2829) - JVS(42830) = -B(22093) -! JVS(42831) = Jac_FULL(5250,2830) - JVS(42831) = -B(12681) -! JVS(42832) = Jac_FULL(5250,2833) - JVS(42832) = -B(22278) -! JVS(42833) = Jac_FULL(5250,2834) - JVS(42833) = -B(10679) -! JVS(42834) = Jac_FULL(5250,2835) - JVS(42834) = -B(11781) -! JVS(42835) = Jac_FULL(5250,2836) - JVS(42835) = B(11356)+B(11357) -! JVS(42836) = Jac_FULL(5250,2838) - JVS(42836) = -B(21382)+B(21384) -! JVS(42837) = Jac_FULL(5250,2839) - JVS(42837) = -B(4610) -! JVS(42838) = Jac_FULL(5250,2841) - JVS(42838) = -B(11763) -! JVS(42839) = Jac_FULL(5250,2842) - JVS(42839) = -B(19582) -! JVS(42840) = Jac_FULL(5250,2843) - JVS(42840) = -B(17554) -! JVS(42841) = Jac_FULL(5250,2844) - JVS(42841) = -B(17621) -! JVS(42842) = Jac_FULL(5250,2845) - JVS(42842) = -B(22155) -! JVS(42843) = Jac_FULL(5250,2846) - JVS(42843) = -B(17602) -! JVS(42844) = Jac_FULL(5250,2848) - JVS(42844) = -B(17629) -! JVS(42845) = Jac_FULL(5250,2850) - JVS(42845) = -B(16914) -! JVS(42846) = Jac_FULL(5250,2852) - JVS(42846) = -B(21524) -! JVS(42847) = Jac_FULL(5250,2854) - JVS(42847) = -B(20150) -! JVS(42848) = Jac_FULL(5250,2855) - JVS(42848) = -B(23957) -! JVS(42849) = Jac_FULL(5250,2856) - JVS(42849) = -B(23864) -! JVS(42850) = Jac_FULL(5250,2857) - JVS(42850) = -B(9913) -! JVS(42851) = Jac_FULL(5250,2859) - JVS(42851) = -B(22208) -! JVS(42852) = Jac_FULL(5250,2860) - JVS(42852) = -B(17199) -! JVS(42853) = Jac_FULL(5250,2862) - JVS(42853) = -B(21441)+B(21443) -! JVS(42854) = Jac_FULL(5250,2863) - JVS(42854) = -B(21368) -! JVS(42855) = Jac_FULL(5250,2864) - JVS(42855) = -B(23938) -! JVS(42856) = Jac_FULL(5250,2866) - JVS(42856) = -B(21499) -! JVS(42857) = Jac_FULL(5250,2867) - JVS(42857) = -B(21670) -! JVS(42858) = Jac_FULL(5250,2868) - JVS(42858) = -B(19540)+B(19542) -! JVS(42859) = Jac_FULL(5250,2870) - JVS(42859) = -B(21601) -! JVS(42860) = Jac_FULL(5250,2871) - JVS(42860) = B(11721)-B(11722) -! JVS(42861) = Jac_FULL(5250,2872) - JVS(42861) = -B(12263) -! JVS(42862) = Jac_FULL(5250,2873) - JVS(42862) = -B(4317)+B(4319) -! JVS(42863) = Jac_FULL(5250,2875) - JVS(42863) = -B(9600) -! JVS(42864) = Jac_FULL(5250,2876) - JVS(42864) = -B(12499) -! JVS(42865) = Jac_FULL(5250,2877) - JVS(42865) = -B(21203) -! JVS(42866) = Jac_FULL(5250,2878) - JVS(42866) = -B(7127)+B(7129)+B(7130) -! JVS(42867) = Jac_FULL(5250,2879) - JVS(42867) = -B(17102) -! JVS(42868) = Jac_FULL(5250,2880) - JVS(42868) = -B(11470) -! JVS(42869) = Jac_FULL(5250,2882) - JVS(42869) = -B(7644) -! JVS(42870) = Jac_FULL(5250,2883) - JVS(42870) = -B(14083) -! JVS(42871) = Jac_FULL(5250,2884) - JVS(42871) = -B(17502) -! JVS(42872) = Jac_FULL(5250,2885) - JVS(42872) = -B(17522) -! JVS(42873) = Jac_FULL(5250,2886) - JVS(42873) = -B(19565) -! JVS(42874) = Jac_FULL(5250,2887) - JVS(42874) = -B(11683) -! JVS(42875) = Jac_FULL(5250,2888) - JVS(42875) = -B(7401) -! JVS(42876) = Jac_FULL(5250,2892) - JVS(42876) = -B(16873) -! JVS(42877) = Jac_FULL(5250,2893) - JVS(42877) = -B(7057)+B(7059)+B(7060) -! JVS(42878) = Jac_FULL(5250,2895) - JVS(42878) = -B(23488) -! JVS(42879) = Jac_FULL(5250,2896) - JVS(42879) = -B(12312) -! JVS(42880) = Jac_FULL(5250,2898) - JVS(42880) = -B(14337) -! JVS(42881) = Jac_FULL(5250,2899) - JVS(42881) = -B(22269)+B(22271) -! JVS(42882) = Jac_FULL(5250,2900) - JVS(42882) = B(13425)+B(13426) -! JVS(42883) = Jac_FULL(5250,2901) - JVS(42883) = -B(22231) -! JVS(42884) = Jac_FULL(5250,2904) - JVS(42884) = -B(12690) -! JVS(42885) = Jac_FULL(5250,2907) - JVS(42885) = -B(21579) -! JVS(42886) = Jac_FULL(5250,2908) - JVS(42886) = -B(21042) -! JVS(42887) = Jac_FULL(5250,2909) - JVS(42887) = -B(19464) -! JVS(42888) = Jac_FULL(5250,2910) - JVS(42888) = -B(19725) -! JVS(42889) = Jac_FULL(5250,2911) - JVS(42889) = -B(21293)+B(21295) -! JVS(42890) = Jac_FULL(5250,2913) - JVS(42890) = -B(4468) -! JVS(42891) = Jac_FULL(5250,2914) - JVS(42891) = -B(261) -! JVS(42892) = Jac_FULL(5250,2915) - JVS(42892) = -B(9565) -! JVS(42893) = Jac_FULL(5250,2917) - JVS(42893) = -B(11998) -! JVS(42894) = Jac_FULL(5250,2920) - JVS(42894) = -B(15709)+B(15711) -! JVS(42895) = Jac_FULL(5250,2921) - JVS(42895) = -B(11630) -! JVS(42896) = Jac_FULL(5250,2923) - JVS(42896) = -B(16430)+B(16432) -! JVS(42897) = Jac_FULL(5250,2924) - JVS(42897) = -B(12364) -! JVS(42898) = Jac_FULL(5250,2925) - JVS(42898) = -B(20460) -! JVS(42899) = Jac_FULL(5250,2927) - JVS(42899) = -B(12992) -! JVS(42900) = Jac_FULL(5250,2928) - JVS(42900) = -B(21571) -! JVS(42901) = Jac_FULL(5250,2929) - JVS(42901) = -B(20155) -! JVS(42902) = Jac_FULL(5250,2930) - JVS(42902) = B(22162)+B(22163)-B(22164) -! JVS(42903) = Jac_FULL(5250,2932) - JVS(42903) = -B(14159) -! JVS(42904) = Jac_FULL(5250,2934) - JVS(42904) = -B(11894) -! JVS(42905) = Jac_FULL(5250,2936) - JVS(42905) = -B(12894) -! JVS(42906) = Jac_FULL(5250,2938) - JVS(42906) = -B(23507) -! JVS(42907) = Jac_FULL(5250,2940) - JVS(42907) = -B(14138)+B(14140) -! JVS(42908) = Jac_FULL(5250,2941) - JVS(42908) = -B(23496) -! JVS(42909) = Jac_FULL(5250,2942) - JVS(42909) = -B(23536) -! JVS(42910) = Jac_FULL(5250,2943) - JVS(42910) = -B(16999) -! JVS(42911) = Jac_FULL(5250,2945) - JVS(42911) = -B(7757) -! JVS(42912) = Jac_FULL(5250,2947) - JVS(42912) = -B(17127) -! JVS(42913) = Jac_FULL(5250,2948) - JVS(42913) = -B(10163) -! JVS(42914) = Jac_FULL(5250,2950) - JVS(42914) = -B(9997) -! JVS(42915) = Jac_FULL(5250,2951) - JVS(42915) = -B(14241) -! JVS(42916) = Jac_FULL(5250,2955) - JVS(42916) = -B(8690) -! JVS(42917) = Jac_FULL(5250,2956) - JVS(42917) = -B(12613) -! JVS(42918) = Jac_FULL(5250,2957) - JVS(42918) = -B(21594) -! JVS(42919) = Jac_FULL(5250,2958) - JVS(42919) = -B(17112) -! JVS(42920) = Jac_FULL(5250,2964) - JVS(42920) = -B(4735) -! JVS(42921) = Jac_FULL(5250,2965) - JVS(42921) = -B(22745) -! JVS(42922) = Jac_FULL(5250,2966) - JVS(42922) = -B(21619) -! JVS(42923) = Jac_FULL(5250,2969) - JVS(42923) = -B(18488) -! JVS(42924) = Jac_FULL(5250,2970) - JVS(42924) = -B(22214) -! JVS(42925) = Jac_FULL(5250,2971) - JVS(42925) = -B(13468)+B(13470)+B(13471) -! JVS(42926) = Jac_FULL(5250,2973) - JVS(42926) = -B(265) -! JVS(42927) = Jac_FULL(5250,2975) - JVS(42927) = -B(22131)+B(22133)+B(22134) -! JVS(42928) = Jac_FULL(5250,2976) - JVS(42928) = -B(16759)+B(16763) -! JVS(42929) = Jac_FULL(5250,2977) - JVS(42929) = -B(21683) -! JVS(42930) = Jac_FULL(5250,2978) - JVS(42930) = -B(19573) -! JVS(42931) = Jac_FULL(5250,2979) - JVS(42931) = -B(23424) -! JVS(42932) = Jac_FULL(5250,2980) - JVS(42932) = -B(23600) -! JVS(42933) = Jac_FULL(5250,2981) - JVS(42933) = B(19694)+B(19695)-B(19696) -! JVS(42934) = Jac_FULL(5250,2984) - JVS(42934) = -B(22438) -! JVS(42935) = Jac_FULL(5250,2985) - JVS(42935) = -B(11668)-B(11670) -! JVS(42936) = Jac_FULL(5250,2987) - JVS(42936) = -B(21165) -! JVS(42937) = Jac_FULL(5250,2988) - JVS(42937) = -B(12284) -! JVS(42938) = Jac_FULL(5250,2991) - JVS(42938) = -B(21310)+B(21312) -! JVS(42939) = Jac_FULL(5250,2993) - JVS(42939) = -B(4176)+B(4178)+B(4179) -! JVS(42940) = Jac_FULL(5250,2998) - JVS(42940) = -B(22225) -! JVS(42941) = Jac_FULL(5250,2999) - JVS(42941) = -B(19699) -! JVS(42942) = Jac_FULL(5250,3003) - JVS(42942) = -B(4103) -! JVS(42943) = Jac_FULL(5250,3005) - JVS(42943) = -B(16410)+B(16412)+B(16413) -! JVS(42944) = Jac_FULL(5250,3006) - JVS(42944) = B(22491) -! JVS(42945) = Jac_FULL(5250,3007) - JVS(42945) = -B(21227) -! JVS(42946) = Jac_FULL(5250,3008) - JVS(42946) = -B(21651) -! JVS(42947) = Jac_FULL(5250,3010) - JVS(42947) = -B(22957) -! JVS(42948) = Jac_FULL(5250,3011) - JVS(42948) = -B(20972) -! JVS(42949) = Jac_FULL(5250,3012) - JVS(42949) = -B(18421) -! JVS(42950) = Jac_FULL(5250,3014) - JVS(42950) = -B(22272) -! JVS(42951) = Jac_FULL(5250,3015) - JVS(42951) = -B(18027) -! JVS(42952) = Jac_FULL(5250,3017) - JVS(42952) = -B(14398) -! JVS(42953) = Jac_FULL(5250,3018) - JVS(42953) = -B(3921)+B(3925) -! JVS(42954) = Jac_FULL(5250,3019) - JVS(42954) = -B(21482) -! JVS(42955) = Jac_FULL(5250,3020) - JVS(42955) = -B(11569) -! JVS(42956) = Jac_FULL(5250,3021) - JVS(42956) = -B(11575) -! JVS(42957) = Jac_FULL(5250,3022) - JVS(42957) = B(8732)+B(8733) -! JVS(42958) = Jac_FULL(5250,3023) - JVS(42958) = -B(11992) -! JVS(42959) = Jac_FULL(5250,3024) - JVS(42959) = -B(11886) -! JVS(42960) = Jac_FULL(5250,3025) - JVS(42960) = -B(17679) -! JVS(42961) = Jac_FULL(5250,3026) - JVS(42961) = -B(11946) -! JVS(42962) = Jac_FULL(5250,3029) - JVS(42962) = -B(23472) -! JVS(42963) = Jac_FULL(5250,3031) - JVS(42963) = B(14079)-B(14080) -! JVS(42964) = Jac_FULL(5250,3033) - JVS(42964) = B(13619)-B(13620) -! JVS(42965) = Jac_FULL(5250,3034) - JVS(42965) = -B(11150) -! JVS(42966) = Jac_FULL(5250,3035) - JVS(42966) = -B(7047)+B(7049)+B(7050) -! JVS(42967) = Jac_FULL(5250,3038) - JVS(42967) = B(11924)-B(11927) -! JVS(42968) = Jac_FULL(5250,3040) - JVS(42968) = -B(21313) -! JVS(42969) = Jac_FULL(5250,3042) - JVS(42969) = -B(20387) -! JVS(42970) = Jac_FULL(5250,3043) - JVS(42970) = B(11403)+B(11404) -! JVS(42971) = Jac_FULL(5250,3044) - JVS(42971) = -B(4363) -! JVS(42972) = Jac_FULL(5250,3045) - JVS(42972) = -B(20393) -! JVS(42973) = Jac_FULL(5250,3046) - JVS(42973) = B(11775)-B(11778) -! JVS(42974) = Jac_FULL(5250,3047) - JVS(42974) = -B(7751) -! JVS(42975) = Jac_FULL(5250,3049) - JVS(42975) = -B(14015)+B(14019) -! JVS(42976) = Jac_FULL(5250,3051) - JVS(42976) = -B(12269) -! JVS(42977) = Jac_FULL(5250,3052) - JVS(42977) = -B(21516) -! JVS(42978) = Jac_FULL(5250,3053) - JVS(42978) = -B(20593) -! JVS(42979) = Jac_FULL(5250,3055) - JVS(42979) = -B(14211)+B(14215) -! JVS(42980) = Jac_FULL(5250,3056) - JVS(42980) = -B(11592) -! JVS(42981) = Jac_FULL(5250,3057) - JVS(42981) = -B(17612) -! JVS(42982) = Jac_FULL(5250,3059) - JVS(42982) = -B(11665) -! JVS(42983) = Jac_FULL(5250,3060) - JVS(42983) = -B(8860) -! JVS(42984) = Jac_FULL(5250,3061) - JVS(42984) = -B(22247) -! JVS(42985) = Jac_FULL(5250,3063) - JVS(42985) = -B(21409) -! JVS(42986) = Jac_FULL(5250,3068) - JVS(42986) = -B(7189) -! JVS(42987) = Jac_FULL(5250,3070) - JVS(42987) = -B(21240) -! JVS(42988) = Jac_FULL(5250,3075) - JVS(42988) = -B(21320) -! JVS(42989) = Jac_FULL(5250,3076) - JVS(42989) = -B(4459) -! JVS(42990) = Jac_FULL(5250,3077) - JVS(42990) = -B(4847) -! JVS(42991) = Jac_FULL(5250,3078) - JVS(42991) = B(19665)+B(19666) -! JVS(42992) = Jac_FULL(5250,3081) - JVS(42992) = -B(16949) -! JVS(42993) = Jac_FULL(5250,3082) - JVS(42993) = -B(6120) -! JVS(42994) = Jac_FULL(5250,3083) - JVS(42994) = -B(88)-B(90) -! JVS(42995) = Jac_FULL(5250,3084) - JVS(42995) = -B(661)-B(663)-B(665)-B(667) -! JVS(42996) = Jac_FULL(5250,3085) - JVS(42996) = -B(9742) -! JVS(42997) = Jac_FULL(5250,3086) - JVS(42997) = -B(19750) -! JVS(42998) = Jac_FULL(5250,3087) - JVS(42998) = -B(13353) -! JVS(42999) = Jac_FULL(5250,3088) - JVS(42999) = -B(15526) -! JVS(43000) = Jac_FULL(5250,3089) - JVS(43000) = -B(5712) -! JVS(43001) = Jac_FULL(5250,3090) - JVS(43001) = -B(7252) -! JVS(43002) = Jac_FULL(5250,3091) - JVS(43002) = -B(4783) -! JVS(43003) = Jac_FULL(5250,3092) - JVS(43003) = -B(12403) -! JVS(43004) = Jac_FULL(5250,3093) - JVS(43004) = -B(9266) -! JVS(43005) = Jac_FULL(5250,3095) - JVS(43005) = -B(12599) -! JVS(43006) = Jac_FULL(5250,3096) - JVS(43006) = -B(621)-B(623)-B(625)-B(627) -! JVS(43007) = Jac_FULL(5250,3097) - JVS(43007) = -B(691)-B(693)-B(695)-B(697) -! JVS(43008) = Jac_FULL(5250,3098) - JVS(43008) = -B(10109) -! JVS(43009) = Jac_FULL(5250,3099) - JVS(43009) = -B(4222) -! JVS(43010) = Jac_FULL(5250,3100) - JVS(43010) = -B(12983) -! JVS(43011) = Jac_FULL(5250,3101) - JVS(43011) = -B(10029) -! JVS(43012) = Jac_FULL(5250,3102) - JVS(43012) = -B(6626) -! JVS(43013) = Jac_FULL(5250,3103) - JVS(43013) = -B(5987) -! JVS(43014) = Jac_FULL(5250,3105) - JVS(43014) = -B(641)-B(643)-B(645)-B(647) -! JVS(43015) = Jac_FULL(5250,3106) - JVS(43015) = -B(3804) -! JVS(43016) = Jac_FULL(5250,3107) - JVS(43016) = -B(9945) -! JVS(43017) = Jac_FULL(5250,3108) - JVS(43017) = -B(9940) -! JVS(43018) = Jac_FULL(5250,3109) - JVS(43018) = -B(4727) -! JVS(43019) = Jac_FULL(5250,3110) - JVS(43019) = -B(4796) -! JVS(43020) = Jac_FULL(5250,3111) - JVS(43020) = -B(9627) -! JVS(43021) = Jac_FULL(5250,3112) - JVS(43021) = -B(12758) -! JVS(43022) = Jac_FULL(5250,3113) - JVS(43022) = -B(711)-B(713)-B(715)-B(717) -! JVS(43023) = Jac_FULL(5250,3114) - JVS(43023) = -B(13072) -! JVS(43024) = Jac_FULL(5250,3115) - JVS(43024) = -B(11073) -! JVS(43025) = Jac_FULL(5250,3116) - JVS(43025) = -B(13322) -! JVS(43026) = Jac_FULL(5250,3117) - JVS(43026) = -B(4760) -! JVS(43027) = Jac_FULL(5250,3118) - JVS(43027) = -B(4694) -! JVS(43028) = Jac_FULL(5250,3119) - JVS(43028) = -B(12711) -! JVS(43029) = Jac_FULL(5250,3120) - JVS(43029) = -B(15743) -! JVS(43030) = Jac_FULL(5250,3121) - JVS(43030) = -B(5212) -! JVS(43031) = Jac_FULL(5250,3122) - JVS(43031) = -B(5891) -! JVS(43032) = Jac_FULL(5250,3123) - JVS(43032) = -B(12885) -! JVS(43033) = Jac_FULL(5250,3124) - JVS(43033) = -B(19660) -! JVS(43034) = Jac_FULL(5250,3125) - JVS(43034) = -B(9131) -! JVS(43035) = Jac_FULL(5250,3126) - JVS(43035) = -B(17795) -! JVS(43036) = Jac_FULL(5250,3127) - JVS(43036) = -B(13294) -! JVS(43037) = Jac_FULL(5250,3128) - JVS(43037) = -B(16764) -! JVS(43038) = Jac_FULL(5250,3129) - JVS(43038) = -B(721)-B(723)-B(725)-B(727) -! JVS(43039) = Jac_FULL(5250,3130) - JVS(43039) = -B(2903)-B(2905)-B(2907) -! JVS(43040) = Jac_FULL(5250,3131) - JVS(43040) = -B(2498)-B(2500)-B(2502) -! JVS(43041) = Jac_FULL(5250,3132) - JVS(43041) = -B(13259) -! JVS(43042) = Jac_FULL(5250,3133) - JVS(43042) = B(6161) -! JVS(43043) = Jac_FULL(5250,3134) - JVS(43043) = -B(631)-B(633)-B(635)-B(637) -! JVS(43044) = Jac_FULL(5250,3135) - JVS(43044) = -B(2541)-B(2543)-B(2545) -! JVS(43045) = Jac_FULL(5250,3136) - JVS(43045) = -B(2564)-B(2566)-B(2568) -! JVS(43046) = Jac_FULL(5250,3137) - JVS(43046) = -B(16216) -! JVS(43047) = Jac_FULL(5250,3138) - JVS(43047) = -B(681)-B(683)-B(685)-B(687) -! JVS(43048) = Jac_FULL(5250,3139) - JVS(43048) = -B(2745)-B(2747)-B(2749) -! JVS(43049) = Jac_FULL(5250,3140) - JVS(43049) = -B(9390) -! JVS(43050) = Jac_FULL(5250,3141) - JVS(43050) = -B(7324) -! JVS(43051) = Jac_FULL(5250,3142) - JVS(43051) = -B(13197) -! JVS(43052) = Jac_FULL(5250,3143) - JVS(43052) = -B(16268) -! JVS(43053) = Jac_FULL(5250,3144) - JVS(43053) = -B(651)-B(653)-B(655)-B(657) -! JVS(43054) = Jac_FULL(5250,3145) - JVS(43054) = -B(611)-B(613)-B(615)-B(617) -! JVS(43055) = Jac_FULL(5250,3146) - JVS(43055) = -B(15466) -! JVS(43056) = Jac_FULL(5250,3147) - JVS(43056) = B(2997) -! JVS(43057) = Jac_FULL(5250,3148) - JVS(43057) = -B(4748) -! JVS(43058) = Jac_FULL(5250,3149) - JVS(43058) = -B(2608)-B(2610)-B(2612) -! JVS(43059) = Jac_FULL(5250,3150) - JVS(43059) = -B(9229) -! JVS(43060) = Jac_FULL(5250,3151) - JVS(43060) = -B(19772) -! JVS(43061) = Jac_FULL(5250,3152) - JVS(43061) = -B(16367) -! JVS(43062) = Jac_FULL(5250,3153) - JVS(43062) = -B(9970) -! JVS(43063) = Jac_FULL(5250,3154) - JVS(43063) = -B(16479)-B(16481) -! JVS(43064) = Jac_FULL(5250,3155) - JVS(43064) = B(3119) -! JVS(43065) = Jac_FULL(5250,3156) - JVS(43065) = -B(6956)-B(6958)-B(6960) -! JVS(43066) = Jac_FULL(5250,3157) - JVS(43066) = -B(2390)-B(2392)-B(2394) -! JVS(43067) = Jac_FULL(5250,3158) - JVS(43067) = -B(2454)-B(2456)-B(2458) -! JVS(43068) = Jac_FULL(5250,3159) - JVS(43068) = -B(3918) -! JVS(43069) = Jac_FULL(5250,3160) - JVS(43069) = -B(16683)-B(16685) -! JVS(43070) = Jac_FULL(5250,3161) - JVS(43070) = -B(8752) -! JVS(43071) = Jac_FULL(5250,3162) - JVS(43071) = -B(12791) -! JVS(43072) = Jac_FULL(5250,3163) - JVS(43072) = -B(15653) -! JVS(43073) = Jac_FULL(5250,3164) - JVS(43073) = -B(2871)-B(2873)-B(2875) -! JVS(43074) = Jac_FULL(5250,3165) - JVS(43074) = -B(9497) -! JVS(43075) = Jac_FULL(5250,3166) - JVS(43075) = -B(4772) -! JVS(43076) = Jac_FULL(5250,3167) - JVS(43076) = -B(12432) -! JVS(43077) = Jac_FULL(5250,3168) - JVS(43077) = -B(4706) -! JVS(43078) = Jac_FULL(5250,3169) - JVS(43078) = -B(741)-B(743)-B(745)-B(747) -! JVS(43079) = Jac_FULL(5250,3170) - JVS(43079) = -B(8997) -! JVS(43080) = Jac_FULL(5250,3171) - JVS(43080) = -B(4376) -! JVS(43081) = Jac_FULL(5250,3172) - JVS(43081) = -B(2651)-B(2653)-B(2655) -! JVS(43082) = Jac_FULL(5250,3173) - JVS(43082) = -B(3715) -! JVS(43083) = Jac_FULL(5250,3174) - JVS(43083) = -B(5803) -! JVS(43084) = Jac_FULL(5250,3175) - JVS(43084) = -B(5039) -! JVS(43085) = Jac_FULL(5250,3176) - JVS(43085) = -B(8971) -! JVS(43086) = Jac_FULL(5250,3177) - JVS(43086) = -B(8966) -! JVS(43087) = Jac_FULL(5250,3178) - JVS(43087) = -B(16044) -! JVS(43088) = Jac_FULL(5250,3179) - JVS(43088) = -B(671)-B(673)-B(675)-B(677) -! JVS(43089) = Jac_FULL(5250,3180) - JVS(43089) = -B(2695)-B(2697)-B(2699) -! JVS(43090) = Jac_FULL(5250,3181) - JVS(43090) = -B(15846) -! JVS(43091) = Jac_FULL(5250,3182) - JVS(43091) = -B(731)-B(733)-B(735)-B(737) -! JVS(43092) = Jac_FULL(5250,3183) - JVS(43092) = -B(19794) -! JVS(43093) = Jac_FULL(5250,3184) - JVS(43093) = -B(19821) -! JVS(43094) = Jac_FULL(5250,3185) - JVS(43094) = -B(19843) -! JVS(43095) = Jac_FULL(5250,3186) - JVS(43095) = B(6460) -! JVS(43096) = Jac_FULL(5250,3187) - JVS(43096) = -B(15942) -! JVS(43097) = Jac_FULL(5250,3188) - JVS(43097) = -B(5194) -! JVS(43098) = Jac_FULL(5250,3189) - JVS(43098) = -B(15803) -! JVS(43099) = Jac_FULL(5250,3190) - JVS(43099) = -B(16312) -! JVS(43100) = Jac_FULL(5250,3191) - JVS(43100) = -B(16137) -! JVS(43101) = Jac_FULL(5250,3192) - JVS(43101) = -B(701)-B(703)-B(705)-B(707) -! JVS(43102) = Jac_FULL(5250,3193) - JVS(43102) = -B(2838)-B(2840)-B(2842) -! JVS(43103) = Jac_FULL(5250,3196) - JVS(43103) = -B(15695)+B(15697)+B(15698) -! JVS(43104) = Jac_FULL(5250,3197) - JVS(43104) = -B(16632) -! JVS(43105) = Jac_FULL(5250,3198) - JVS(43105) = -B(4009)+B(4011) -! JVS(43106) = Jac_FULL(5250,3199) - JVS(43106) = -B(13057) -! JVS(43107) = Jac_FULL(5250,3200) - JVS(43107) = -B(10307) -! JVS(43108) = Jac_FULL(5250,3201) - JVS(43108) = -B(16634)+B(16636) -! JVS(43109) = Jac_FULL(5250,3202) - JVS(43109) = B(2297) -! JVS(43110) = Jac_FULL(5250,3203) - JVS(43110) = -B(11672)-B(11674)+B(11676) -! JVS(43111) = Jac_FULL(5250,3204) - JVS(43111) = -B(16552) -! JVS(43112) = Jac_FULL(5250,3205) - JVS(43112) = B(11499)-B(11502) -! JVS(43113) = Jac_FULL(5250,3206) - JVS(43113) = -B(9080) -! JVS(43114) = Jac_FULL(5250,3207) - JVS(43114) = -B(3961)+B(3963)+B(3964) -! JVS(43115) = Jac_FULL(5250,3208) - JVS(43115) = -B(4873)+B(4875) -! JVS(43116) = Jac_FULL(5250,3209) - JVS(43116) = -B(15604) -! JVS(43117) = Jac_FULL(5250,3210) - JVS(43117) = B(5910) -! JVS(43118) = Jac_FULL(5250,3211) - JVS(43118) = -B(21552) -! JVS(43119) = Jac_FULL(5250,3212) - JVS(43119) = -B(12014) -! JVS(43120) = Jac_FULL(5250,3213) - JVS(43120) = -B(22043) -! JVS(43121) = Jac_FULL(5250,3214) - JVS(43121) = -B(15636)+B(15638) -! JVS(43122) = Jac_FULL(5250,3216) - JVS(43122) = -B(20541)+B(20543)+B(20544) -! JVS(43123) = Jac_FULL(5250,3217) - JVS(43123) = B(21613)+B(21614) -! JVS(43124) = Jac_FULL(5250,3218) - JVS(43124) = -B(21253) -! JVS(43125) = Jac_FULL(5250,3219) - JVS(43125) = -B(2964)-B(2966) -! JVS(43126) = Jac_FULL(5250,3220) - JVS(43126) = -B(12510) -! JVS(43127) = Jac_FULL(5250,3221) - JVS(43127) = -B(16167) -! JVS(43128) = Jac_FULL(5250,3222) - JVS(43128) = -B(7031)+B(7033) -! JVS(43129) = Jac_FULL(5250,3223) - JVS(43129) = -B(16905) -! JVS(43130) = Jac_FULL(5250,3224) - JVS(43130) = -B(21555) -! JVS(43131) = Jac_FULL(5250,3225) - JVS(43131) = -B(12937)+B(12939)+B(12940) -! JVS(43132) = Jac_FULL(5250,3226) - JVS(43132) = -B(13031)+B(13033)+B(13034) -! JVS(43133) = Jac_FULL(5250,3227) - JVS(43133) = -B(9763) -! JVS(43134) = Jac_FULL(5250,3228) - JVS(43134) = -B(6838)-B(6840) -! JVS(43135) = Jac_FULL(5250,3229) - JVS(43135) = -B(12728) -! JVS(43136) = Jac_FULL(5250,3230) - JVS(43136) = -B(12800) -! JVS(43137) = Jac_FULL(5250,3231) - JVS(43137) = -B(12227)+B(12229) -! JVS(43138) = Jac_FULL(5250,3232) - JVS(43138) = -B(13214) -! JVS(43139) = Jac_FULL(5250,3233) - JVS(43139) = -B(21646) -! JVS(43140) = Jac_FULL(5250,3235) - JVS(43140) = -B(10223)+B(10225)+B(10226) -! JVS(43141) = Jac_FULL(5250,3236) - JVS(43141) = -B(20482) -! JVS(43142) = Jac_FULL(5250,3237) - JVS(43142) = -B(18346)+B(18349) -! JVS(43143) = Jac_FULL(5250,3238) - JVS(43143) = B(9362)+B(9363) -! JVS(43144) = Jac_FULL(5250,3239) - JVS(43144) = -B(14196) -! JVS(43145) = Jac_FULL(5250,3240) - JVS(43145) = -B(16510) -! JVS(43146) = Jac_FULL(5250,3242) - JVS(43146) = -B(17242) -! JVS(43147) = Jac_FULL(5250,3243) - JVS(43147) = -B(4063)+B(4065) -! JVS(43148) = Jac_FULL(5250,3244) - JVS(43148) = -B(2945)-B(2947) -! JVS(43149) = Jac_FULL(5250,3245) - JVS(43149) = -B(3661) -! JVS(43150) = Jac_FULL(5250,3247) - JVS(43150) = -B(19045) -! JVS(43151) = Jac_FULL(5250,3248) - JVS(43151) = -B(22890) -! JVS(43152) = Jac_FULL(5250,3249) - JVS(43152) = -B(16414) -! JVS(43153) = Jac_FULL(5250,3250) - JVS(43153) = B(18738)+B(18739) -! JVS(43154) = Jac_FULL(5250,3251) - JVS(43154) = -B(9894) -! JVS(43155) = Jac_FULL(5250,3253) - JVS(43155) = -B(8781)+B(8783)+B(8784) -! JVS(43156) = Jac_FULL(5250,3254) - JVS(43156) = -B(4230) -! JVS(43157) = Jac_FULL(5250,3256) - JVS(43157) = -B(4074)+B(4076) -! JVS(43158) = Jac_FULL(5250,3257) - JVS(43158) = -B(22287) -! JVS(43159) = Jac_FULL(5250,3258) - JVS(43159) = -B(9850) -! JVS(43160) = Jac_FULL(5250,3259) - JVS(43160) = B(18989)+B(18990)-B(18991) -! JVS(43161) = Jac_FULL(5250,3260) - JVS(43161) = -B(11743) -! JVS(43162) = Jac_FULL(5250,3261) - JVS(43162) = -B(18769)+B(18771)+2*B(18772) -! JVS(43163) = Jac_FULL(5250,3262) - JVS(43163) = -B(10186) -! JVS(43164) = Jac_FULL(5250,3263) - JVS(43164) = -B(2787)-B(2789) -! JVS(43165) = Jac_FULL(5250,3264) - JVS(43165) = -B(9778) -! JVS(43166) = Jac_FULL(5250,3265) - JVS(43166) = -B(3764)+B(3766) -! JVS(43167) = Jac_FULL(5250,3266) - JVS(43167) = -B(4996)+B(4998) -! JVS(43168) = Jac_FULL(5250,3267) - JVS(43168) = B(21608)+B(21609) -! JVS(43169) = Jac_FULL(5250,3270) - JVS(43169) = -B(21981) -! JVS(43170) = Jac_FULL(5250,3271) - JVS(43170) = -B(10078) -! JVS(43171) = Jac_FULL(5250,3272) - JVS(43171) = -B(20426)-B(20428)+B(20430) -! JVS(43172) = Jac_FULL(5250,3273) - JVS(43172) = -B(16609) -! JVS(43173) = Jac_FULL(5250,3274) - JVS(43173) = B(22167)+B(22168)-B(22169) -! JVS(43174) = Jac_FULL(5250,3275) - JVS(43174) = -B(19025) -! JVS(43175) = Jac_FULL(5250,3276) - JVS(43175) = -B(20526)+B(20528) -! JVS(43176) = Jac_FULL(5250,3277) - JVS(43176) = -B(3665)+B(3667) -! JVS(43177) = Jac_FULL(5250,3278) - JVS(43177) = -B(12274)+B(12276) -! JVS(43178) = Jac_FULL(5250,3279) - JVS(43178) = -B(10099)+B(10101)+B(10102) -! JVS(43179) = Jac_FULL(5250,3280) - JVS(43179) = -B(15554)+B(15557) -! JVS(43180) = Jac_FULL(5250,3282) - JVS(43180) = -B(21279) -! JVS(43181) = Jac_FULL(5250,3285) - JVS(43181) = -B(8719) -! JVS(43182) = Jac_FULL(5250,3286) - JVS(43182) = 2*B(16607)+B(16608) -! JVS(43183) = Jac_FULL(5250,3287) - JVS(43183) = B(14062)+B(14063)-B(14064) -! JVS(43184) = Jac_FULL(5250,3288) - JVS(43184) = -B(7137)+B(7139) -! JVS(43185) = Jac_FULL(5250,3289) - JVS(43185) = -B(4952)+B(4954) -! JVS(43186) = Jac_FULL(5250,3290) - JVS(43186) = -B(15558) -! JVS(43187) = Jac_FULL(5250,3291) - JVS(43187) = B(14178)-B(14179) -! JVS(43188) = Jac_FULL(5250,3292) - JVS(43188) = -B(8939) -! JVS(43189) = Jac_FULL(5250,3293) - JVS(43189) = -B(23609) -! JVS(43190) = Jac_FULL(5250,3294) - JVS(43190) = B(4224)-B(4225) -! JVS(43191) = Jac_FULL(5250,3295) - JVS(43191) = -B(10189)+B(10191)+B(10192) -! JVS(43192) = Jac_FULL(5250,3297) - JVS(43192) = B(2146) -! JVS(43193) = Jac_FULL(5250,3298) - JVS(43193) = -B(15241)-B(15243) -! JVS(43194) = Jac_FULL(5250,3299) - JVS(43194) = -B(3738)+B(3740) -! JVS(43195) = Jac_FULL(5250,3300) - JVS(43195) = -B(13228) -! JVS(43196) = Jac_FULL(5250,3302) - JVS(43196) = -B(4857) -! JVS(43197) = Jac_FULL(5250,3303) - JVS(43197) = -B(13444) -! JVS(43198) = Jac_FULL(5250,3304) - JVS(43198) = -B(9693) -! JVS(43199) = Jac_FULL(5250,3305) - JVS(43199) = 0 -! JVS(43200) = Jac_FULL(5250,3306) - JVS(43200) = -B(21266) -! JVS(43201) = Jac_FULL(5250,3307) - JVS(43201) = -B(16931) -! JVS(43202) = Jac_FULL(5250,3308) - JVS(43202) = -B(5126)+B(5128) -! JVS(43203) = Jac_FULL(5250,3309) - JVS(43203) = -B(22388) -! JVS(43204) = Jac_FULL(5250,3310) - JVS(43204) = -B(3883)+B(3887) -! JVS(43205) = Jac_FULL(5250,3311) - JVS(43205) = -B(17715) -! JVS(43206) = Jac_FULL(5250,3312) - JVS(43206) = -B(11968) -! JVS(43207) = Jac_FULL(5250,3313) - JVS(43207) = -B(22635) -! JVS(43208) = Jac_FULL(5250,3314) - JVS(43208) = -B(7196)+B(7198)+B(7199) -! JVS(43209) = Jac_FULL(5250,3315) - JVS(43209) = -B(21351) -! JVS(43210) = Jac_FULL(5250,3316) - JVS(43210) = -B(9770) -! JVS(43211) = Jac_FULL(5250,3317) - JVS(43211) = -B(6603) -! JVS(43212) = Jac_FULL(5250,3318) - JVS(43212) = -B(13163) -! JVS(43213) = Jac_FULL(5250,3319) - JVS(43213) = -B(9380)+B(9382)+B(9383) -! JVS(43214) = Jac_FULL(5250,3320) - JVS(43214) = -B(9147)+B(9149)+B(9150) -! JVS(43215) = Jac_FULL(5250,3321) - JVS(43215) = -B(8987)+B(8989)+B(8990) -! JVS(43216) = Jac_FULL(5250,3322) - JVS(43216) = -B(10003) -! JVS(43217) = Jac_FULL(5250,3323) - JVS(43217) = -B(23042) -! JVS(43218) = Jac_FULL(5250,3324) - JVS(43218) = -B(20529) -! JVS(43219) = Jac_FULL(5250,3325) - JVS(43219) = -B(12358)+B(12361) -! JVS(43220) = Jac_FULL(5250,3326) - JVS(43220) = -B(11660)-B(11662)+B(11664) -! JVS(43221) = Jac_FULL(5250,3327) - JVS(43221) = -B(22838) -! JVS(43222) = Jac_FULL(5250,3328) - JVS(43222) = -B(4887) -! JVS(43223) = Jac_FULL(5250,3330) - JVS(43223) = B(4293)+B(4294) -! JVS(43224) = Jac_FULL(5250,3331) - JVS(43224) = -B(6191) -! JVS(43225) = Jac_FULL(5250,3334) - JVS(43225) = -B(11656)-B(11658) -! JVS(43226) = Jac_FULL(5250,3335) - JVS(43226) = 0 -! JVS(43227) = Jac_FULL(5250,3336) - JVS(43227) = B(19584)+B(19585)-B(19586) -! JVS(43228) = Jac_FULL(5250,3337) - JVS(43228) = -B(22479) -! JVS(43229) = Jac_FULL(5250,3338) - JVS(43229) = 0 -! JVS(43230) = Jac_FULL(5250,3339) - JVS(43230) = -B(9203) -! JVS(43231) = Jac_FULL(5250,3340) - JVS(43231) = -B(9198) -! JVS(43232) = Jac_FULL(5250,3341) - JVS(43232) = -B(5153) -! JVS(43233) = Jac_FULL(5250,3343) - JVS(43233) = -B(6508) -! JVS(43234) = Jac_FULL(5250,3344) - JVS(43234) = 0 -! JVS(43235) = Jac_FULL(5250,3345) - JVS(43235) = -B(10083) -! JVS(43236) = Jac_FULL(5250,3348) - JVS(43236) = -B(21759) -! JVS(43237) = Jac_FULL(5250,3349) - JVS(43237) = -B(5109) -! JVS(43238) = Jac_FULL(5250,3350) - JVS(43238) = -B(16476) -! JVS(43239) = Jac_FULL(5250,3352) - JVS(43239) = -B(9586) -! JVS(43240) = Jac_FULL(5250,3353) - JVS(43240) = -B(9581) -! JVS(43241) = Jac_FULL(5250,3354) - JVS(43241) = -B(12331) -! JVS(43242) = Jac_FULL(5250,3355) - JVS(43242) = -B(23573) -! JVS(43243) = Jac_FULL(5250,3356) - JVS(43243) = -B(9354) -! JVS(43244) = Jac_FULL(5250,3357) - JVS(43244) = -B(9349) -! JVS(43245) = Jac_FULL(5250,3358) - JVS(43245) = -B(17465) -! JVS(43246) = Jac_FULL(5250,3359) - JVS(43246) = -B(9113) -! JVS(43247) = Jac_FULL(5250,3360) - JVS(43247) = -B(9108) -! JVS(43248) = Jac_FULL(5250,3361) - JVS(43248) = 0 -! JVS(43249) = Jac_FULL(5250,3364) - JVS(43249) = -B(5082) -! JVS(43250) = Jac_FULL(5250,3365) - JVS(43250) = -B(22883) -! JVS(43251) = Jac_FULL(5250,3366) - JVS(43251) = -B(13240)+B(13242)+B(13243) -! JVS(43252) = Jac_FULL(5250,3368) - JVS(43252) = -B(5762) -! JVS(43253) = Jac_FULL(5250,3369) - JVS(43253) = -B(858) -! JVS(43254) = Jac_FULL(5250,3372) - JVS(43254) = -B(5342) -! JVS(43255) = Jac_FULL(5250,3373) - JVS(43255) = -B(22685) -! JVS(43256) = Jac_FULL(5250,3374) - JVS(43256) = -B(22646) -! JVS(43257) = Jac_FULL(5250,3376) - JVS(43257) = -B(5165) -! JVS(43258) = Jac_FULL(5250,3378) - JVS(43258) = -B(8881) -! JVS(43259) = Jac_FULL(5250,3379) - JVS(43259) = -B(8876) -! JVS(43260) = Jac_FULL(5250,3380) - JVS(43260) = 0 -! JVS(43261) = Jac_FULL(5250,3382) - JVS(43261) = -B(12004) -! JVS(43262) = Jac_FULL(5250,3384) - JVS(43262) = -B(11913) -! JVS(43263) = Jac_FULL(5250,3385) - JVS(43263) = -B(12616)+B(12618) -! JVS(43264) = Jac_FULL(5250,3387) - JVS(43264) = -B(14917) -! JVS(43265) = Jac_FULL(5250,3389) - JVS(43265) = -B(14221) -! JVS(43266) = Jac_FULL(5250,3391) - JVS(43266) = -B(21214) -! JVS(43267) = Jac_FULL(5250,3392) - JVS(43267) = -B(21588) -! JVS(43268) = Jac_FULL(5250,3394) - JVS(43268) = -B(4087) -! JVS(43269) = Jac_FULL(5250,3395) - JVS(43269) = 0 -! JVS(43270) = Jac_FULL(5250,3396) - JVS(43270) = 0 -! JVS(43271) = Jac_FULL(5250,3397) - JVS(43271) = -B(22673) -! JVS(43272) = Jac_FULL(5250,3398) - JVS(43272) = 0 -! JVS(43273) = Jac_FULL(5250,3399) - JVS(43273) = -B(4921) -! JVS(43274) = Jac_FULL(5250,3401) - JVS(43274) = -B(14924) -! JVS(43275) = Jac_FULL(5250,3405) - JVS(43275) = 0 -! JVS(43276) = Jac_FULL(5250,3407) - JVS(43276) = 0 -! JVS(43277) = Jac_FULL(5250,3408) - JVS(43277) = -B(19033) -! JVS(43278) = Jac_FULL(5250,3409) - JVS(43278) = -B(4989) -! JVS(43279) = Jac_FULL(5250,3410) - JVS(43279) = 0 -! JVS(43280) = Jac_FULL(5250,3411) - JVS(43280) = -B(10008) -! JVS(43281) = Jac_FULL(5250,3412) - JVS(43281) = -B(6428) -! JVS(43282) = Jac_FULL(5250,3413) - JVS(43282) = -B(10541)-B(10543) -! JVS(43283) = Jac_FULL(5250,3414) - JVS(43283) = 0 -! JVS(43284) = Jac_FULL(5250,3416) - JVS(43284) = -B(8724) -! JVS(43285) = Jac_FULL(5250,3418) - JVS(43285) = -B(4979) -! JVS(43286) = Jac_FULL(5250,3420) - JVS(43286) = -B(22096) -! JVS(43287) = Jac_FULL(5250,3421) - JVS(43287) = 0 -! JVS(43288) = Jac_FULL(5250,3423) - JVS(43288) = 0 -! JVS(43289) = Jac_FULL(5250,3424) - JVS(43289) = 0 -! JVS(43290) = Jac_FULL(5250,3426) - JVS(43290) = -B(9475) -! JVS(43291) = Jac_FULL(5250,3427) - JVS(43291) = -B(9470) -! JVS(43292) = Jac_FULL(5250,3428) - JVS(43292) = -B(13717)-B(13719)-B(13721)-B(13723)-B(13725) -! JVS(43293) = Jac_FULL(5250,3431) - JVS(43293) = -B(22733) -! JVS(43294) = Jac_FULL(5250,3432) - JVS(43294) = -B(5036) -! JVS(43295) = Jac_FULL(5250,3433) - JVS(43295) = -B(9781) -! JVS(43296) = Jac_FULL(5250,3434) - JVS(43296) = -B(16434) -! JVS(43297) = Jac_FULL(5250,3435) - JVS(43297) = -B(5401) -! JVS(43298) = Jac_FULL(5250,3436) - JVS(43298) = -B(21882) -! JVS(43299) = Jac_FULL(5250,3437) - JVS(43299) = -B(9649)-B(9651) -! JVS(43300) = Jac_FULL(5250,3438) - JVS(43300) = -B(9879) -! JVS(43301) = Jac_FULL(5250,3439) - JVS(43301) = -B(5847) -! JVS(43302) = Jac_FULL(5250,3440) - JVS(43302) = 0 -! JVS(43303) = Jac_FULL(5250,3441) - JVS(43303) = -B(13271)+B(13273)+B(13274)+B(13275) -! JVS(43304) = Jac_FULL(5250,3442) - JVS(43304) = -B(589) -! JVS(43305) = Jac_FULL(5250,3443) - JVS(43305) = -B(16557) -! JVS(43306) = Jac_FULL(5250,3444) - JVS(43306) = -B(3913)-B(3915)+B(3917) -! JVS(43307) = Jac_FULL(5250,3445) - JVS(43307) = -B(6197) -! JVS(43308) = Jac_FULL(5250,3446) - JVS(43308) = -B(12386)+B(12388)+B(12389) -! JVS(43309) = Jac_FULL(5250,3447) - JVS(43309) = -B(23556) -! JVS(43310) = Jac_FULL(5250,3448) - JVS(43310) = B(4268)-B(4273) -! JVS(43311) = Jac_FULL(5250,3449) - JVS(43311) = -B(16621)+B(16624) -! JVS(43312) = Jac_FULL(5250,3450) - JVS(43312) = -B(12579) -! JVS(43313) = Jac_FULL(5250,3451) - JVS(43313) = -B(10089)+B(10092)+B(10093) -! JVS(43314) = Jac_FULL(5250,3452) - JVS(43314) = -B(9787)+B(9790)+B(9791) -! JVS(43315) = Jac_FULL(5250,3453) - JVS(43315) = -B(15888)+B(15890)+B(15891) -! JVS(43316) = Jac_FULL(5250,3454) - JVS(43316) = -B(16603) -! JVS(43317) = Jac_FULL(5250,3455) - JVS(43317) = -B(15788)+B(15790)+B(15791) -! JVS(43318) = Jac_FULL(5250,3456) - JVS(43318) = 0 -! JVS(43319) = Jac_FULL(5250,3457) - JVS(43319) = -B(10171) -! JVS(43320) = Jac_FULL(5250,3458) - JVS(43320) = -B(12839)+B(12841) -! JVS(43321) = Jac_FULL(5250,3459) - JVS(43321) = B(13513) -! JVS(43322) = Jac_FULL(5250,3460) - JVS(43322) = -B(10293) -! JVS(43323) = Jac_FULL(5250,3461) - JVS(43323) = 0 -! JVS(43324) = Jac_FULL(5250,3462) - JVS(43324) = B(4308)+B(4309) -! JVS(43325) = Jac_FULL(5250,3463) - JVS(43325) = -B(18484)+B(18487) -! JVS(43326) = Jac_FULL(5250,3464) - JVS(43326) = B(13675)+2*B(13676) -! JVS(43327) = Jac_FULL(5250,3465) - JVS(43327) = -B(457) -! JVS(43328) = Jac_FULL(5250,3466) - JVS(43328) = -B(463) -! JVS(43329) = Jac_FULL(5250,3467) - JVS(43329) = -B(18417) -! JVS(43330) = Jac_FULL(5250,3468) - JVS(43330) = -B(9209)+B(9212)+B(9213) -! JVS(43331) = Jac_FULL(5250,3469) - JVS(43331) = -B(8977)+B(8980)+B(8981) -! JVS(43332) = Jac_FULL(5250,3470) - JVS(43332) = -B(16502) -! JVS(43333) = Jac_FULL(5250,3471) - JVS(43333) = -B(15093) -! JVS(43334) = Jac_FULL(5250,3472) - JVS(43334) = -B(6979)-B(6981)-B(6983) -! JVS(43335) = Jac_FULL(5250,3473) - JVS(43335) = -B(14154)+B(14156)+B(14157) -! JVS(43336) = Jac_FULL(5250,3474) - JVS(43336) = 0 -! JVS(43337) = Jac_FULL(5250,3475) - JVS(43337) = -B(12677)+B(12679) -! JVS(43338) = Jac_FULL(5250,3476) - JVS(43338) = B(11687)-B(11688) -! JVS(43339) = Jac_FULL(5250,3477) - JVS(43339) = -B(21582) -! JVS(43340) = Jac_FULL(5250,3478) - JVS(43340) = -B(19888) -! JVS(43341) = Jac_FULL(5250,3479) - JVS(43341) = B(2080) -! JVS(43342) = Jac_FULL(5250,3480) - JVS(43342) = -B(23836)+B(23838)+B(23839)+B(23840) -! JVS(43343) = Jac_FULL(5250,3481) - JVS(43343) = 0 -! JVS(43344) = Jac_FULL(5250,3482) - JVS(43344) = -B(5971) -! JVS(43345) = Jac_FULL(5250,3483) - JVS(43345) = -B(13524) -! JVS(43346) = Jac_FULL(5250,3484) - JVS(43346) = -B(18131) -! JVS(43347) = Jac_FULL(5250,3485) - JVS(43347) = -B(16661)-B(16663)+B(16665) -! JVS(43348) = Jac_FULL(5250,3486) - JVS(43348) = -B(9696) -! JVS(43349) = Jac_FULL(5250,3487) - JVS(43349) = -B(9766)+B(9768) -! JVS(43350) = Jac_FULL(5250,3488) - JVS(43350) = -B(10483) -! JVS(43351) = Jac_FULL(5250,3489) - JVS(43351) = 0 -! JVS(43352) = Jac_FULL(5250,3491) - JVS(43352) = 0 -! JVS(43353) = Jac_FULL(5250,3492) - JVS(43353) = 0 -! JVS(43354) = Jac_FULL(5250,3493) - JVS(43354) = -B(17962) -! JVS(43355) = Jac_FULL(5250,3494) - JVS(43355) = -B(6060) -! JVS(43356) = Jac_FULL(5250,3495) - JVS(43356) = -B(23355)+B(23357)+B(23358)+B(23359) -! JVS(43357) = Jac_FULL(5250,3496) - JVS(43357) = 0 -! JVS(43358) = Jac_FULL(5250,3497) - JVS(43358) = -B(19515) -! JVS(43359) = Jac_FULL(5250,3498) - JVS(43359) = -B(7132) -! JVS(43360) = Jac_FULL(5250,3499) - JVS(43360) = -B(6346) -! JVS(43361) = Jac_FULL(5250,3500) - JVS(43361) = -B(20484) -! JVS(43362) = Jac_FULL(5250,3501) - JVS(43362) = B(16508)+2*B(16509) -! JVS(43363) = Jac_FULL(5250,3502) - JVS(43363) = -B(14911) -! JVS(43364) = Jac_FULL(5250,3503) - JVS(43364) = 0 -! JVS(43365) = Jac_FULL(5250,3504) - JVS(43365) = -B(17879) -! JVS(43366) = Jac_FULL(5250,3505) - JVS(43366) = -B(836)-B(838)-B(840) -! JVS(43367) = Jac_FULL(5250,3506) - JVS(43367) = -B(6270) -! JVS(43368) = Jac_FULL(5250,3507) - JVS(43368) = 0 -! JVS(43369) = Jac_FULL(5250,3508) - JVS(43369) = -B(5474) -! JVS(43370) = Jac_FULL(5250,3509) - JVS(43370) = 0 -! JVS(43371) = Jac_FULL(5250,3510) - JVS(43371) = -B(13949) -! JVS(43372) = Jac_FULL(5250,3511) - JVS(43372) = 0 -! JVS(43373) = Jac_FULL(5250,3512) - JVS(43373) = -B(5658) -! JVS(43374) = Jac_FULL(5250,3513) - JVS(43374) = -B(19610) -! JVS(43375) = Jac_FULL(5250,3514) - JVS(43375) = B(10467) -! JVS(43376) = Jac_FULL(5250,3515) - JVS(43376) = -B(14920)+B(14922) -! JVS(43377) = Jac_FULL(5250,3516) - JVS(43377) = -B(11367) -! JVS(43378) = Jac_FULL(5250,3517) - JVS(43378) = -B(7533) -! JVS(43379) = Jac_FULL(5250,3518) - JVS(43379) = 0 -! JVS(43380) = Jac_FULL(5250,3519) - JVS(43380) = B(8929)-B(8931) -! JVS(43381) = Jac_FULL(5250,3520) - JVS(43381) = -B(4346) -! JVS(43382) = Jac_FULL(5250,3521) - JVS(43382) = 0 -! JVS(43383) = Jac_FULL(5250,3522) - JVS(43383) = -B(17902) -! JVS(43384) = Jac_FULL(5250,3523) - JVS(43384) = 0 -! JVS(43385) = Jac_FULL(5250,3524) - JVS(43385) = 2*B(13767)+B(13768)+2*B(13769) -! JVS(43386) = Jac_FULL(5250,3525) - JVS(43386) = 0 -! JVS(43387) = Jac_FULL(5250,3526) - JVS(43387) = -B(16460) -! JVS(43388) = Jac_FULL(5250,3527) - JVS(43388) = 0 -! JVS(43389) = Jac_FULL(5250,3528) - JVS(43389) = B(17800)+B(17801)-B(17804) -! JVS(43390) = Jac_FULL(5250,3529) - JVS(43390) = -B(14914) -! JVS(43391) = Jac_FULL(5250,3530) - JVS(43391) = -B(7118) -! JVS(43392) = Jac_FULL(5250,3531) - JVS(43392) = 0 -! JVS(43393) = Jac_FULL(5250,3532) - JVS(43393) = -B(20490) -! JVS(43394) = Jac_FULL(5250,3533) - JVS(43394) = -B(7657) -! JVS(43395) = Jac_FULL(5250,3534) - JVS(43395) = 0 -! JVS(43396) = Jac_FULL(5250,3535) - JVS(43396) = -B(18145) -! JVS(43397) = Jac_FULL(5250,3536) - JVS(43397) = -B(3881) -! JVS(43398) = Jac_FULL(5250,3537) - JVS(43398) = -B(19652) -! JVS(43399) = Jac_FULL(5250,3538) - JVS(43399) = 0 -! JVS(43400) = Jac_FULL(5250,3539) - JVS(43400) = 0 -! JVS(43401) = Jac_FULL(5250,3540) - JVS(43401) = -B(4122)+B(4126) -! JVS(43402) = Jac_FULL(5250,3541) - JVS(43402) = -B(20085) -! JVS(43403) = Jac_FULL(5250,3542) - JVS(43403) = -B(5130) -! JVS(43404) = Jac_FULL(5250,3543) - JVS(43404) = -B(16039) -! JVS(43405) = Jac_FULL(5250,3544) - JVS(43405) = -B(17932) -! JVS(43406) = Jac_FULL(5250,3545) - JVS(43406) = -B(5327) -! JVS(43407) = Jac_FULL(5250,3546) - JVS(43407) = -B(22219) -! JVS(43408) = Jac_FULL(5250,3547) - JVS(43408) = -B(3959) -! JVS(43409) = Jac_FULL(5250,3548) - JVS(43409) = -B(17992) -! JVS(43410) = Jac_FULL(5250,3549) - JVS(43410) = -B(16638) -! JVS(43411) = Jac_FULL(5250,3550) - JVS(43411) = B(16670)+B(16671)-B(16672)-B(16674) -! JVS(43412) = Jac_FULL(5250,3551) - JVS(43412) = -B(6417) -! JVS(43413) = Jac_FULL(5250,3552) - JVS(43413) = B(13850)-B(13851)-B(13853) -! JVS(43414) = Jac_FULL(5250,3553) - JVS(43414) = B(9663)-B(9665) -! JVS(43415) = Jac_FULL(5250,3554) - JVS(43415) = 0 -! JVS(43416) = Jac_FULL(5250,3555) - JVS(43416) = -B(20487) -! JVS(43417) = Jac_FULL(5250,3556) - JVS(43417) = -B(18520) -! JVS(43418) = Jac_FULL(5250,3557) - JVS(43418) = -B(22445) -! JVS(43419) = Jac_FULL(5250,3558) - JVS(43419) = -B(20322) -! JVS(43420) = Jac_FULL(5250,3559) - JVS(43420) = -B(11076) -! JVS(43421) = Jac_FULL(5250,3560) - JVS(43421) = -B(5573) -! JVS(43422) = Jac_FULL(5250,3561) - JVS(43422) = -B(4956) -! JVS(43423) = Jac_FULL(5250,3562) - JVS(43423) = 0 -! JVS(43424) = Jac_FULL(5250,3563) - JVS(43424) = -B(21585) -! JVS(43425) = Jac_FULL(5250,3564) - JVS(43425) = 0 -! JVS(43426) = Jac_FULL(5250,3571) - JVS(43426) = -B(19890) -! JVS(43427) = Jac_FULL(5250,3574) - JVS(43427) = 0 -! JVS(43428) = Jac_FULL(5250,3579) - JVS(43428) = 0 -! JVS(43429) = Jac_FULL(5250,3580) - JVS(43429) = -B(14208) -! JVS(43430) = Jac_FULL(5250,3582) - JVS(43430) = 0 -! JVS(43431) = Jac_FULL(5250,3583) - JVS(43431) = -B(852)-B(854) -! JVS(43432) = Jac_FULL(5250,3587) - JVS(43432) = -B(4250) -! JVS(43433) = Jac_FULL(5250,3590) - JVS(43433) = -B(12441) -! JVS(43434) = Jac_FULL(5250,3591) - JVS(43434) = 0 -! JVS(43435) = Jac_FULL(5250,3593) - JVS(43435) = -B(20195) -! JVS(43436) = Jac_FULL(5250,3594) - JVS(43436) = -B(4600)-B(4602) -! JVS(43437) = Jac_FULL(5250,3595) - JVS(43437) = -B(20049) -! JVS(43438) = Jac_FULL(5250,3596) - JVS(43438) = 0 -! JVS(43439) = Jac_FULL(5250,3597) - JVS(43439) = 0 -! JVS(43440) = Jac_FULL(5250,3599) - JVS(43440) = -B(5504)-B(5506) -! JVS(43441) = Jac_FULL(5250,3601) - JVS(43441) = -B(21622) -! JVS(43442) = Jac_FULL(5250,3602) - JVS(43442) = -B(11464) -! JVS(43443) = Jac_FULL(5250,3603) - JVS(43443) = -B(4078) -! JVS(43444) = Jac_FULL(5250,3604) - JVS(43444) = -B(24023) -! JVS(43445) = Jac_FULL(5250,3607) - JVS(43445) = -B(7231) -! JVS(43446) = Jac_FULL(5250,3608) - JVS(43446) = -B(13574) -! JVS(43447) = Jac_FULL(5250,3609) - JVS(43447) = -B(826)-B(828) -! JVS(43448) = Jac_FULL(5250,3612) - JVS(43448) = -B(22758) -! JVS(43449) = Jac_FULL(5250,3613) - JVS(43449) = 0 -! JVS(43450) = Jac_FULL(5250,3616) - JVS(43450) = -B(14126) -! JVS(43451) = Jac_FULL(5250,3617) - JVS(43451) = -B(11308) -! JVS(43452) = Jac_FULL(5250,3618) - JVS(43452) = -B(18800)+B(18802)+B(18803)+B(18804) -! JVS(43453) = Jac_FULL(5250,3619) - JVS(43453) = -B(10764)-B(10766) -! JVS(43454) = Jac_FULL(5250,3620) - JVS(43454) = -B(20507)-B(20509)+B(20511) -! JVS(43455) = Jac_FULL(5250,3621) - JVS(43455) = -B(16704)+B(16708) -! JVS(43456) = Jac_FULL(5250,3622) - JVS(43456) = -B(2714) -! JVS(43457) = Jac_FULL(5250,3623) - JVS(43457) = -B(3936)+B(3938)+B(3939) -! JVS(43458) = Jac_FULL(5250,3624) - JVS(43458) = B(9887)+B(9888) -! JVS(43459) = Jac_FULL(5250,3625) - JVS(43459) = -B(16577)-B(16579)+B(16581) -! JVS(43460) = Jac_FULL(5250,3626) - JVS(43460) = -B(13923) -! JVS(43461) = Jac_FULL(5250,3627) - JVS(43461) = 0 -! JVS(43462) = Jac_FULL(5250,3628) - JVS(43462) = -B(13613) -! JVS(43463) = Jac_FULL(5250,3629) - JVS(43463) = -B(19375) -! JVS(43464) = Jac_FULL(5250,3630) - JVS(43464) = B(10441) -! JVS(43465) = Jac_FULL(5250,3631) - JVS(43465) = 0 -! JVS(43466) = Jac_FULL(5250,3632) - JVS(43466) = 0 -! JVS(43467) = Jac_FULL(5250,3633) - JVS(43467) = -B(23968) -! JVS(43468) = Jac_FULL(5250,3634) - JVS(43468) = 0 -! JVS(43469) = Jac_FULL(5250,3635) - JVS(43469) = -B(16587) -! JVS(43470) = Jac_FULL(5250,3636) - JVS(43470) = 0 -! JVS(43471) = Jac_FULL(5250,3637) - JVS(43471) = 0 -! JVS(43472) = Jac_FULL(5250,3638) - JVS(43472) = -B(11329) -! JVS(43473) = Jac_FULL(5250,3639) - JVS(43473) = -B(23616) -! JVS(43474) = Jac_FULL(5250,3640) - JVS(43474) = -B(5485) -! JVS(43475) = Jac_FULL(5250,3641) - JVS(43475) = 0 -! JVS(43476) = Jac_FULL(5250,3642) - JVS(43476) = -B(23670) -! JVS(43477) = Jac_FULL(5250,3643) - JVS(43477) = -B(5392) -! JVS(43478) = Jac_FULL(5250,3644) - JVS(43478) = -B(12391) -! JVS(43479) = Jac_FULL(5250,3645) - JVS(43479) = -B(6104) -! JVS(43480) = Jac_FULL(5250,3646) - JVS(43480) = -B(7503) -! JVS(43481) = Jac_FULL(5250,3647) - JVS(43481) = B(12459) -! JVS(43482) = Jac_FULL(5250,3648) - JVS(43482) = 0 -! JVS(43483) = Jac_FULL(5250,3649) - JVS(43483) = -B(5671) -! JVS(43484) = Jac_FULL(5250,3650) - JVS(43484) = 0 -! JVS(43485) = Jac_FULL(5250,3651) - JVS(43485) = -B(271)-B(273) -! JVS(43486) = Jac_FULL(5250,3653) - JVS(43486) = -B(3931) -! JVS(43487) = Jac_FULL(5250,3654) - JVS(43487) = B(4340)-B(4342)+B(4344) -! JVS(43488) = Jac_FULL(5250,3655) - JVS(43488) = -B(6016) -! JVS(43489) = Jac_FULL(5250,3656) - JVS(43489) = -B(5000) -! JVS(43490) = Jac_FULL(5250,3657) - JVS(43490) = -B(5584) -! JVS(43491) = Jac_FULL(5250,3658) - JVS(43491) = 0 -! JVS(43492) = Jac_FULL(5250,3659) - JVS(43492) = 0 -! JVS(43493) = Jac_FULL(5250,3660) - JVS(43493) = -B(4327)+B(4329) -! JVS(43494) = Jac_FULL(5250,3661) - JVS(43494) = -B(5941) -! JVS(43495) = Jac_FULL(5250,3662) - JVS(43495) = -B(14976) -! JVS(43496) = Jac_FULL(5250,3663) - JVS(43496) = 0 -! JVS(43497) = Jac_FULL(5250,3664) - JVS(43497) = -B(13060) -! JVS(43498) = Jac_FULL(5250,3665) - JVS(43498) = 0 -! JVS(43499) = Jac_FULL(5250,3666) - JVS(43499) = 0 -! JVS(43500) = Jac_FULL(5250,3667) - JVS(43500) = 0 -! JVS(43501) = Jac_FULL(5250,3668) - JVS(43501) = 0 -! JVS(43502) = Jac_FULL(5250,3669) - JVS(43502) = 0 -! JVS(43503) = Jac_FULL(5250,3670) - JVS(43503) = 0 -! JVS(43504) = Jac_FULL(5250,3671) - JVS(43504) = 0 -! JVS(43505) = Jac_FULL(5250,3672) - JVS(43505) = -B(14908) -! JVS(43506) = Jac_FULL(5250,3673) - JVS(43506) = -B(20106) -! JVS(43507) = Jac_FULL(5250,3674) - JVS(43507) = 0 -! JVS(43508) = Jac_FULL(5250,3675) - JVS(43508) = 0 -! JVS(43509) = Jac_FULL(5250,3676) - JVS(43509) = 0 -! JVS(43510) = Jac_FULL(5250,3677) - JVS(43510) = 0 -! JVS(43511) = Jac_FULL(5250,3678) - JVS(43511) = 0 -! JVS(43512) = Jac_FULL(5250,3679) - JVS(43512) = 0 -! JVS(43513) = Jac_FULL(5250,3680) - JVS(43513) = 0 -! JVS(43514) = Jac_FULL(5250,3681) - JVS(43514) = -B(20265) -! JVS(43515) = Jac_FULL(5250,3682) - JVS(43515) = -B(14021) -! JVS(43516) = Jac_FULL(5250,3683) - JVS(43516) = -B(14044) -! JVS(43517) = Jac_FULL(5250,3684) - JVS(43517) = -B(5877) -! JVS(43518) = Jac_FULL(5250,3685) - JVS(43518) = 0 -! JVS(43519) = Jac_FULL(5250,3686) - JVS(43519) = 0 -! JVS(43520) = Jac_FULL(5250,3687) - JVS(43520) = 0 -! JVS(43521) = Jac_FULL(5250,3688) - JVS(43521) = 0 -! JVS(43522) = Jac_FULL(5250,3689) - JVS(43522) = -B(860) -! JVS(43523) = Jac_FULL(5250,3690) - JVS(43523) = 0 -! JVS(43524) = Jac_FULL(5250,3691) - JVS(43524) = 0 -! JVS(43525) = Jac_FULL(5250,3692) - JVS(43525) = 0 -! JVS(43526) = Jac_FULL(5250,3693) - JVS(43526) = B(13687)+B(13688) -! JVS(43527) = Jac_FULL(5250,3694) - JVS(43527) = 0 -! JVS(43528) = Jac_FULL(5250,3695) - JVS(43528) = 0 -! JVS(43529) = Jac_FULL(5250,3696) - JVS(43529) = 0 -! JVS(43530) = Jac_FULL(5250,3697) - JVS(43530) = 0 -! JVS(43531) = Jac_FULL(5250,3698) - JVS(43531) = 0 -! JVS(43532) = Jac_FULL(5250,3699) - JVS(43532) = 0 -! JVS(43533) = Jac_FULL(5250,3701) - JVS(43533) = -B(5789) -! JVS(43534) = Jac_FULL(5250,3702) - JVS(43534) = B(10179)+B(10180) -! JVS(43535) = Jac_FULL(5250,3703) - JVS(43535) = 0 -! JVS(43536) = Jac_FULL(5250,3704) - JVS(43536) = 0 -! JVS(43537) = Jac_FULL(5250,3705) - JVS(43537) = 0 -! JVS(43538) = Jac_FULL(5250,3706) - JVS(43538) = 0 -! JVS(43539) = Jac_FULL(5250,3707) - JVS(43539) = 2*B(13667)+B(13668)+2*B(13669) -! JVS(43540) = Jac_FULL(5250,3708) - JVS(43540) = B(14029)-B(14030) -! JVS(43541) = Jac_FULL(5250,3709) - JVS(43541) = -B(20221) -! JVS(43542) = Jac_FULL(5250,3710) - JVS(43542) = 0 -! JVS(43543) = Jac_FULL(5250,3711) - JVS(43543) = 0 -! JVS(43544) = Jac_FULL(5250,3712) - JVS(43544) = 0 -! JVS(43545) = Jac_FULL(5250,3713) - JVS(43545) = 0 -! JVS(43546) = Jac_FULL(5250,3714) - JVS(43546) = 0 -! JVS(43547) = Jac_FULL(5250,3715) - JVS(43547) = 0 -! JVS(43548) = Jac_FULL(5250,3716) - JVS(43548) = -B(3852) -! JVS(43549) = Jac_FULL(5250,3717) - JVS(43549) = 0 -! JVS(43550) = Jac_FULL(5250,3718) - JVS(43550) = 0 -! JVS(43551) = Jac_FULL(5250,3719) - JVS(43551) = 0 -! JVS(43552) = Jac_FULL(5250,3720) - JVS(43552) = 0 -! JVS(43553) = Jac_FULL(5250,3721) - JVS(43553) = 0 -! JVS(43554) = Jac_FULL(5250,3722) - JVS(43554) = 0 -! JVS(43555) = Jac_FULL(5250,3723) - JVS(43555) = 0 -! JVS(43556) = Jac_FULL(5250,3724) - JVS(43556) = 0 -! JVS(43557) = Jac_FULL(5250,3725) - JVS(43557) = 0 -! JVS(43558) = Jac_FULL(5250,3726) - JVS(43558) = -B(13110) -! JVS(43559) = Jac_FULL(5250,3727) - JVS(43559) = 0 -! JVS(43560) = Jac_FULL(5250,3728) - JVS(43560) = 0 -! JVS(43561) = Jac_FULL(5250,3729) - JVS(43561) = -B(19951) -! JVS(43562) = Jac_FULL(5250,3730) - JVS(43562) = 0 -! JVS(43563) = Jac_FULL(5250,3731) - JVS(43563) = 0 -! JVS(43564) = Jac_FULL(5250,3732) - JVS(43564) = -B(20071) -! JVS(43565) = Jac_FULL(5250,3733) - JVS(43565) = 0 -! JVS(43566) = Jac_FULL(5250,3734) - JVS(43566) = -B(10626) -! JVS(43567) = Jac_FULL(5250,3735) - JVS(43567) = -B(3772) -! JVS(43568) = Jac_FULL(5250,3736) - JVS(43568) = -B(23119) -! JVS(43569) = Jac_FULL(5250,3737) - JVS(43569) = 0 -! JVS(43570) = Jac_FULL(5250,3738) - JVS(43570) = 0 -! JVS(43571) = Jac_FULL(5250,3739) - JVS(43571) = 0 -! JVS(43572) = Jac_FULL(5250,3740) - JVS(43572) = 0 -! JVS(43573) = Jac_FULL(5250,3741) - JVS(43573) = 0 -! JVS(43574) = Jac_FULL(5250,3742) - JVS(43574) = -B(20023) -! JVS(43575) = Jac_FULL(5250,3743) - JVS(43575) = 0 -! JVS(43576) = Jac_FULL(5250,3744) - JVS(43576) = 0 -! JVS(43577) = Jac_FULL(5250,3745) - JVS(43577) = 0 -! JVS(43578) = Jac_FULL(5250,3746) - JVS(43578) = 0 -! JVS(43579) = Jac_FULL(5250,3747) - JVS(43579) = -B(12032)-B(12034) -! JVS(43580) = Jac_FULL(5250,3748) - JVS(43580) = -B(18341) -! JVS(43581) = Jac_FULL(5250,3749) - JVS(43581) = 0 -! JVS(43582) = Jac_FULL(5250,3750) - JVS(43582) = 0 -! JVS(43583) = Jac_FULL(5250,3751) - JVS(43583) = 0 -! JVS(43584) = Jac_FULL(5250,3752) - JVS(43584) = 0 -! JVS(43585) = Jac_FULL(5250,3753) - JVS(43585) = 0 -! JVS(43586) = Jac_FULL(5250,3755) - JVS(43586) = -B(4067) -! JVS(43587) = Jac_FULL(5250,3756) - JVS(43587) = -B(14142) -! JVS(43588) = Jac_FULL(5250,3757) - JVS(43588) = -B(5178) -! JVS(43589) = Jac_FULL(5250,3758) - JVS(43589) = 0 -! JVS(43590) = Jac_FULL(5250,3759) - JVS(43590) = -B(12306) -! JVS(43591) = Jac_FULL(5250,3760) - JVS(43591) = 0 -! JVS(43592) = Jac_FULL(5250,3761) - JVS(43592) = 0 -! JVS(43593) = Jac_FULL(5250,3762) - JVS(43593) = 0 -! JVS(43594) = Jac_FULL(5250,3763) - JVS(43594) = -B(6616) -! JVS(43595) = Jac_FULL(5250,3764) - JVS(43595) = 0 -! JVS(43596) = Jac_FULL(5250,3765) - JVS(43596) = 0 -! JVS(43597) = Jac_FULL(5250,3766) - JVS(43597) = 0 -! JVS(43598) = Jac_FULL(5250,3767) - JVS(43598) = 0 -! JVS(43599) = Jac_FULL(5250,3768) - JVS(43599) = 0 -! JVS(43600) = Jac_FULL(5250,3769) - JVS(43600) = 0 -! JVS(43601) = Jac_FULL(5250,3770) - JVS(43601) = 0 -! JVS(43602) = Jac_FULL(5250,3771) - JVS(43602) = 0 -! JVS(43603) = Jac_FULL(5250,3772) - JVS(43603) = 0 -! JVS(43604) = Jac_FULL(5250,3773) - JVS(43604) = -B(18412) -! JVS(43605) = Jac_FULL(5250,3774) - JVS(43605) = 0 -! JVS(43606) = Jac_FULL(5250,3775) - JVS(43606) = -B(18479) -! JVS(43607) = Jac_FULL(5250,3776) - JVS(43607) = 0 -! JVS(43608) = Jac_FULL(5250,3777) - JVS(43608) = -B(15190)-B(15192) -! JVS(43609) = Jac_FULL(5250,3778) - JVS(43609) = 0 -! JVS(43610) = Jac_FULL(5250,3780) - JVS(43610) = -B(17657) -! JVS(43611) = Jac_FULL(5250,3781) - JVS(43611) = 0 -! JVS(43612) = Jac_FULL(5250,3782) - JVS(43612) = 0 -! JVS(43613) = Jac_FULL(5250,3783) - JVS(43613) = -B(19904) -! JVS(43614) = Jac_FULL(5250,3784) - JVS(43614) = 0 -! JVS(43615) = Jac_FULL(5250,3785) - JVS(43615) = 0 -! JVS(43616) = Jac_FULL(5250,3786) - JVS(43616) = 0 -! JVS(43617) = Jac_FULL(5250,3787) - JVS(43617) = -B(20136) -! JVS(43618) = Jac_FULL(5250,3788) - JVS(43618) = 0 -! JVS(43619) = Jac_FULL(5250,3789) - JVS(43619) = 0 -! JVS(43620) = Jac_FULL(5250,3790) - JVS(43620) = 0 -! JVS(43621) = Jac_FULL(5250,3791) - JVS(43621) = 0 -! JVS(43622) = Jac_FULL(5250,3792) - JVS(43622) = -B(15005)-B(15007) -! JVS(43623) = Jac_FULL(5250,3794) - JVS(43623) = 0 -! JVS(43624) = Jac_FULL(5250,3796) - JVS(43624) = 0 -! JVS(43625) = Jac_FULL(5250,3797) - JVS(43625) = 0 -! JVS(43626) = Jac_FULL(5250,3798) - JVS(43626) = 0 -! JVS(43627) = Jac_FULL(5250,3799) - JVS(43627) = 0 -! JVS(43628) = Jac_FULL(5250,3800) - JVS(43628) = -B(12869) -! JVS(43629) = Jac_FULL(5250,3801) - JVS(43629) = B(13764) -! JVS(43630) = Jac_FULL(5250,3803) - JVS(43630) = 0 -! JVS(43631) = Jac_FULL(5250,3804) - JVS(43631) = 0 -! JVS(43632) = Jac_FULL(5250,3806) - JVS(43632) = 0 -! JVS(43633) = Jac_FULL(5250,3807) - JVS(43633) = 0 -! JVS(43634) = Jac_FULL(5250,3808) - JVS(43634) = 0 -! JVS(43635) = Jac_FULL(5250,3809) - JVS(43635) = B(4254) -! JVS(43636) = Jac_FULL(5250,3810) - JVS(43636) = 0 -! JVS(43637) = Jac_FULL(5250,3811) - JVS(43637) = 0 -! JVS(43638) = Jac_FULL(5250,3813) - JVS(43638) = 0 -! JVS(43639) = Jac_FULL(5250,3814) - JVS(43639) = 0 -! JVS(43640) = Jac_FULL(5250,3815) - JVS(43640) = 0 -! JVS(43641) = Jac_FULL(5250,3816) - JVS(43641) = -B(12974) -! JVS(43642) = Jac_FULL(5250,3817) - JVS(43642) = 0 -! JVS(43643) = Jac_FULL(5250,3819) - JVS(43643) = 0 -! JVS(43644) = Jac_FULL(5250,3820) - JVS(43644) = 0 -! JVS(43645) = Jac_FULL(5250,3821) - JVS(43645) = -B(12583) -! JVS(43646) = Jac_FULL(5250,3822) - JVS(43646) = -B(12047) -! JVS(43647) = Jac_FULL(5250,3823) - JVS(43647) = 0 -! JVS(43648) = Jac_FULL(5250,3825) - JVS(43648) = 0 -! JVS(43649) = Jac_FULL(5250,3827) - JVS(43649) = 0 -! JVS(43650) = Jac_FULL(5250,3828) - JVS(43650) = 0 -! JVS(43651) = Jac_FULL(5250,3829) - JVS(43651) = -B(13181) -! JVS(43652) = Jac_FULL(5250,3830) - JVS(43652) = -B(5284) -! JVS(43653) = Jac_FULL(5250,3831) - JVS(43653) = -B(5698) -! JVS(43654) = Jac_FULL(5250,3832) - JVS(43654) = -B(9728) -! JVS(43655) = Jac_FULL(5250,3833) - JVS(43655) = -B(2826)-B(2828) -! JVS(43656) = Jac_FULL(5250,3834) - JVS(43656) = -B(2442)-B(2444) -! JVS(43657) = Jac_FULL(5250,3835) - JVS(43657) = -B(13605)-B(13607)-B(13609) -! JVS(43658) = Jac_FULL(5250,3836) - JVS(43658) = 0 -! JVS(43659) = Jac_FULL(5250,3837) - JVS(43659) = B(18949) -! JVS(43660) = Jac_FULL(5250,3838) - JVS(43660) = 0 -! JVS(43661) = Jac_FULL(5250,3839) - JVS(43661) = 0 -! JVS(43662) = Jac_FULL(5250,3840) - JVS(43662) = 0 -! JVS(43663) = Jac_FULL(5250,3841) - JVS(43663) = 0 -! JVS(43664) = Jac_FULL(5250,3842) - JVS(43664) = 0 -! JVS(43665) = Jac_FULL(5250,3843) - JVS(43665) = -B(843)-B(845)-B(847)-B(849) -! JVS(43666) = Jac_FULL(5250,3844) - JVS(43666) = 0 -! JVS(43667) = Jac_FULL(5250,3845) - JVS(43667) = 0 -! JVS(43668) = Jac_FULL(5250,3846) - JVS(43668) = 0 -! JVS(43669) = Jac_FULL(5250,3847) - JVS(43669) = 0 -! JVS(43670) = Jac_FULL(5250,3848) - JVS(43670) = 0 -! JVS(43671) = Jac_FULL(5250,3849) - JVS(43671) = -B(23376) -! JVS(43672) = Jac_FULL(5250,3850) - JVS(43672) = 0 -! JVS(43673) = Jac_FULL(5250,3851) - JVS(43673) = -B(4585) -! JVS(43674) = Jac_FULL(5250,3852) - JVS(43674) = 0 -! JVS(43675) = Jac_FULL(5250,3853) - JVS(43675) = 0 -! JVS(43676) = Jac_FULL(5250,3854) - JVS(43676) = 0 -! JVS(43677) = Jac_FULL(5250,3855) - JVS(43677) = 0 -! JVS(43678) = Jac_FULL(5250,3856) - JVS(43678) = -B(4639) -! JVS(43679) = Jac_FULL(5250,3857) - JVS(43679) = -B(11845) -! JVS(43680) = Jac_FULL(5250,3858) - JVS(43680) = 0 -! JVS(43681) = Jac_FULL(5250,3859) - JVS(43681) = 0 -! JVS(43682) = Jac_FULL(5250,3860) - JVS(43682) = 0 -! JVS(43683) = Jac_FULL(5250,3861) - JVS(43683) = -B(19004) -! JVS(43684) = Jac_FULL(5250,3862) - JVS(43684) = -B(20811) -! JVS(43685) = Jac_FULL(5250,3863) - JVS(43685) = 0 -! JVS(43686) = Jac_FULL(5250,3864) - JVS(43686) = 0 -! JVS(43687) = Jac_FULL(5250,3865) - JVS(43687) = 0 -! JVS(43688) = Jac_FULL(5250,3866) - JVS(43688) = 0 -! JVS(43689) = Jac_FULL(5250,3867) - JVS(43689) = 0 -! JVS(43690) = Jac_FULL(5250,3868) - JVS(43690) = -B(832)-B(834) -! JVS(43691) = Jac_FULL(5250,3869) - JVS(43691) = 0 -! JVS(43692) = Jac_FULL(5250,3870) - JVS(43692) = 0 -! JVS(43693) = Jac_FULL(5250,3871) - JVS(43693) = 0 -! JVS(43694) = Jac_FULL(5250,3872) - JVS(43694) = 0 -! JVS(43695) = Jac_FULL(5250,3873) - JVS(43695) = 0 -! JVS(43696) = Jac_FULL(5250,3874) - JVS(43696) = 0 -! JVS(43697) = Jac_FULL(5250,3875) - JVS(43697) = -B(4528) -! JVS(43698) = Jac_FULL(5250,3876) - JVS(43698) = 0 -! JVS(43699) = Jac_FULL(5250,3877) - JVS(43699) = -B(4684) -! JVS(43700) = Jac_FULL(5250,3878) - JVS(43700) = 0 -! JVS(43701) = Jac_FULL(5250,3879) - JVS(43701) = -B(7218) -! JVS(43702) = Jac_FULL(5250,3880) - JVS(43702) = 0 -! JVS(43703) = Jac_FULL(5250,3881) - JVS(43703) = 0 -! JVS(43704) = Jac_FULL(5250,3882) - JVS(43704) = 0 -! JVS(43705) = Jac_FULL(5250,3883) - JVS(43705) = 0 -! JVS(43706) = Jac_FULL(5250,3884) - JVS(43706) = 0 -! JVS(43707) = Jac_FULL(5250,3885) - JVS(43707) = 0 -! JVS(43708) = Jac_FULL(5250,3886) - JVS(43708) = 0 -! JVS(43709) = Jac_FULL(5250,3887) - JVS(43709) = 0 -! JVS(43710) = Jac_FULL(5250,3888) - JVS(43710) = 0 -! JVS(43711) = Jac_FULL(5250,3889) - JVS(43711) = 0 -! JVS(43712) = Jac_FULL(5250,3890) - JVS(43712) = 0 -! JVS(43713) = Jac_FULL(5250,3891) - JVS(43713) = 0 -! JVS(43714) = Jac_FULL(5250,3892) - JVS(43714) = -B(3971) -! JVS(43715) = Jac_FULL(5250,3893) - JVS(43715) = 0 -! JVS(43716) = Jac_FULL(5250,3894) - JVS(43716) = 0 -! JVS(43717) = Jac_FULL(5250,3895) - JVS(43717) = 0 -! JVS(43718) = Jac_FULL(5250,3896) - JVS(43718) = -B(18685) -! JVS(43719) = Jac_FULL(5250,3897) - JVS(43719) = 0 -! JVS(43720) = Jac_FULL(5250,3898) - JVS(43720) = 0 -! JVS(43721) = Jac_FULL(5250,3899) - JVS(43721) = 0 -! JVS(43722) = Jac_FULL(5250,3900) - JVS(43722) = -B(6987) -! JVS(43723) = Jac_FULL(5250,3901) - JVS(43723) = 0 -! JVS(43724) = Jac_FULL(5250,3902) - JVS(43724) = 0 -! JVS(43725) = Jac_FULL(5250,3903) - JVS(43725) = 0 -! JVS(43726) = Jac_FULL(5250,3904) - JVS(43726) = 0 -! JVS(43727) = Jac_FULL(5250,3905) - JVS(43727) = 0 -! JVS(43728) = Jac_FULL(5250,3906) - JVS(43728) = -B(15196)-B(15198) -! JVS(43729) = Jac_FULL(5250,3907) - JVS(43729) = 0 -! JVS(43730) = Jac_FULL(5250,3908) - JVS(43730) = 0 -! JVS(43731) = Jac_FULL(5250,3909) - JVS(43731) = 0 -! JVS(43732) = Jac_FULL(5250,3910) - JVS(43732) = 0 -! JVS(43733) = Jac_FULL(5250,3911) - JVS(43733) = -B(18209) -! JVS(43734) = Jac_FULL(5250,3912) - JVS(43734) = 0 -! JVS(43735) = Jac_FULL(5250,3913) - JVS(43735) = 0 -! JVS(43736) = Jac_FULL(5250,3914) - JVS(43736) = -B(18197) -! JVS(43737) = Jac_FULL(5250,3915) - JVS(43737) = -B(14949) -! JVS(43738) = Jac_FULL(5250,3916) - JVS(43738) = 0 -! JVS(43739) = Jac_FULL(5250,3917) - JVS(43739) = -B(12079)-B(12081) -! JVS(43740) = Jac_FULL(5250,3918) - JVS(43740) = -B(13245) -! JVS(43741) = Jac_FULL(5250,3919) - JVS(43741) = 0 -! JVS(43742) = Jac_FULL(5250,3920) - JVS(43742) = 0 -! JVS(43743) = Jac_FULL(5250,3921) - JVS(43743) = 0 -! JVS(43744) = Jac_FULL(5250,3922) - JVS(43744) = 0 -! JVS(43745) = Jac_FULL(5250,3923) - JVS(43745) = -B(11737) -! JVS(43746) = Jac_FULL(5250,3924) - JVS(43746) = -B(4656) -! JVS(43747) = Jac_FULL(5250,3925) - JVS(43747) = 0 -! JVS(43748) = Jac_FULL(5250,3926) - JVS(43748) = 0 -! JVS(43749) = Jac_FULL(5250,3927) - JVS(43749) = 0 -! JVS(43750) = Jac_FULL(5250,3928) - JVS(43750) = 0 -! JVS(43751) = Jac_FULL(5250,3929) - JVS(43751) = -B(4311) -! JVS(43752) = Jac_FULL(5250,3931) - JVS(43752) = -B(12572)+B(12574)+B(12575)+B(12576) -! JVS(43753) = Jac_FULL(5250,3932) - JVS(43753) = 0 -! JVS(43754) = Jac_FULL(5250,3933) - JVS(43754) = -B(13640) -! JVS(43755) = Jac_FULL(5250,3934) - JVS(43755) = 0 -! JVS(43756) = Jac_FULL(5250,3935) - JVS(43756) = -B(11485) -! JVS(43757) = Jac_FULL(5250,3936) - JVS(43757) = 0 -! JVS(43758) = Jac_FULL(5250,3937) - JVS(43758) = 0 -! JVS(43759) = Jac_FULL(5250,3938) - JVS(43759) = -B(21144) -! JVS(43760) = Jac_FULL(5250,3939) - JVS(43760) = 0 -! JVS(43761) = Jac_FULL(5250,3940) - JVS(43761) = 0 -! JVS(43762) = Jac_FULL(5250,3941) - JVS(43762) = 0 -! JVS(43763) = Jac_FULL(5250,3942) - JVS(43763) = 0 -! JVS(43764) = Jac_FULL(5250,3943) - JVS(43764) = 0 -! JVS(43765) = Jac_FULL(5250,3944) - JVS(43765) = 0 -! JVS(43766) = Jac_FULL(5250,3945) - JVS(43766) = 0 -! JVS(43767) = Jac_FULL(5250,3946) - JVS(43767) = -B(12067) -! JVS(43768) = Jac_FULL(5250,3947) - JVS(43768) = -B(16977) -! JVS(43769) = Jac_FULL(5250,3948) - JVS(43769) = 0 -! JVS(43770) = Jac_FULL(5250,3949) - JVS(43770) = 0 -! JVS(43771) = Jac_FULL(5250,3950) - JVS(43771) = 0 -! JVS(43772) = Jac_FULL(5250,3951) - JVS(43772) = 0 -! JVS(43773) = Jac_FULL(5250,3952) - JVS(43773) = 0 -! JVS(43774) = Jac_FULL(5250,3953) - JVS(43774) = 0 -! JVS(43775) = Jac_FULL(5250,3954) - JVS(43775) = 0 -! JVS(43776) = Jac_FULL(5250,3955) - JVS(43776) = 0 -! JVS(43777) = Jac_FULL(5250,3956) - JVS(43777) = 0 -! JVS(43778) = Jac_FULL(5250,3957) - JVS(43778) = 0 -! JVS(43779) = Jac_FULL(5250,3958) - JVS(43779) = -B(23963) -! JVS(43780) = Jac_FULL(5250,3959) - JVS(43780) = -B(3679) -! JVS(43781) = Jac_FULL(5250,3960) - JVS(43781) = -B(23929) -! JVS(43782) = Jac_FULL(5250,3961) - JVS(43782) = 0 -! JVS(43783) = Jac_FULL(5250,3962) - JVS(43783) = 0 -! JVS(43784) = Jac_FULL(5250,3963) - JVS(43784) = 0 -! JVS(43785) = Jac_FULL(5250,3964) - JVS(43785) = 0 -! JVS(43786) = Jac_FULL(5250,3965) - JVS(43786) = B(13155)+B(13156)+B(13157) -! JVS(43787) = Jac_FULL(5250,3966) - JVS(43787) = 0 -! JVS(43788) = Jac_FULL(5250,3967) - JVS(43788) = 0 -! JVS(43789) = Jac_FULL(5250,3968) - JVS(43789) = -B(20243) -! JVS(43790) = Jac_FULL(5250,3969) - JVS(43790) = 0 -! JVS(43791) = Jac_FULL(5250,3970) - JVS(43791) = 0 -! JVS(43792) = Jac_FULL(5250,3971) - JVS(43792) = 0 -! JVS(43793) = Jac_FULL(5250,3972) - JVS(43793) = -B(18975) -! JVS(43794) = Jac_FULL(5250,3973) - JVS(43794) = 0 -! JVS(43795) = Jac_FULL(5250,3974) - JVS(43795) = 0 -! JVS(43796) = Jac_FULL(5250,3975) - JVS(43796) = 0 -! JVS(43797) = Jac_FULL(5250,3976) - JVS(43797) = 0 -! JVS(43798) = Jac_FULL(5250,3977) - JVS(43798) = 0 -! JVS(43799) = Jac_FULL(5250,3978) - JVS(43799) = -B(821)-B(823) -! JVS(43800) = Jac_FULL(5250,3979) - JVS(43800) = 0 -! JVS(43801) = Jac_FULL(5250,3980) - JVS(43801) = 0 -! JVS(43802) = Jac_FULL(5250,3981) - JVS(43802) = 0 -! JVS(43803) = Jac_FULL(5250,3982) - JVS(43803) = 0 -! JVS(43804) = Jac_FULL(5250,3983) - JVS(43804) = 0 -! JVS(43805) = Jac_FULL(5250,3984) - JVS(43805) = 0 -! JVS(43806) = Jac_FULL(5250,3985) - JVS(43806) = 0 -! JVS(43807) = Jac_FULL(5250,3986) - JVS(43807) = -B(11984) -! JVS(43808) = Jac_FULL(5250,3987) - JVS(43808) = 0 -! JVS(43809) = Jac_FULL(5250,3988) - JVS(43809) = 0 -! JVS(43810) = Jac_FULL(5250,3989) - JVS(43810) = 0 -! JVS(43811) = Jac_FULL(5250,3990) - JVS(43811) = 0 -! JVS(43812) = Jac_FULL(5250,3991) - JVS(43812) = -B(11510) -! JVS(43813) = Jac_FULL(5250,3992) - JVS(43813) = 0 -! JVS(43814) = Jac_FULL(5250,3993) - JVS(43814) = -B(4304) -! JVS(43815) = Jac_FULL(5250,3994) - JVS(43815) = 0 -! JVS(43816) = Jac_FULL(5250,3995) - JVS(43816) = -B(4173) -! JVS(43817) = Jac_FULL(5250,3996) - JVS(43817) = -B(2795)-B(2797) -! JVS(43818) = Jac_FULL(5250,3997) - JVS(43818) = 0 -! JVS(43819) = Jac_FULL(5250,3998) - JVS(43819) = 2*B(20436)+B(20438)+B(20442)+B(20444) -! JVS(43820) = Jac_FULL(5250,3999) - JVS(43820) = 0 -! JVS(43821) = Jac_FULL(5250,4000) - JVS(43821) = 0 -! JVS(43822) = Jac_FULL(5250,4001) - JVS(43822) = 0 -! JVS(43823) = Jac_FULL(5250,4002) - JVS(43823) = 0 -! JVS(43824) = Jac_FULL(5250,4003) - JVS(43824) = 0 -! JVS(43825) = Jac_FULL(5250,4005) - JVS(43825) = 0 -! JVS(43826) = Jac_FULL(5250,4006) - JVS(43826) = 0 -! JVS(43827) = Jac_FULL(5250,4007) - JVS(43827) = 0 -! JVS(43828) = Jac_FULL(5250,4008) - JVS(43828) = 0 -! JVS(43829) = Jac_FULL(5250,4009) - JVS(43829) = 0 -! JVS(43830) = Jac_FULL(5250,4010) - JVS(43830) = -B(2411)-B(2413) -! JVS(43831) = Jac_FULL(5250,4011) - JVS(43831) = 0 -! JVS(43832) = Jac_FULL(5250,4012) - JVS(43832) = 0 -! JVS(43833) = Jac_FULL(5250,4013) - JVS(43833) = B(20054) -! JVS(43834) = Jac_FULL(5250,4014) - JVS(43834) = -B(12720) -! JVS(43835) = Jac_FULL(5250,4015) - JVS(43835) = 0 -! JVS(43836) = Jac_FULL(5250,4016) - JVS(43836) = 0 -! JVS(43837) = Jac_FULL(5250,4017) - JVS(43837) = -B(2983)-B(2985) -! JVS(43838) = Jac_FULL(5250,4018) - JVS(43838) = -B(2935)-B(2937) -! JVS(43839) = Jac_FULL(5250,4019) - JVS(43839) = 0 -! JVS(43840) = Jac_FULL(5250,4020) - JVS(43840) = 0 -! JVS(43841) = Jac_FULL(5250,4021) - JVS(43841) = 0 -! JVS(43842) = Jac_FULL(5250,4022) - JVS(43842) = 0 -! JVS(43843) = Jac_FULL(5250,4023) - JVS(43843) = 0 -! JVS(43844) = Jac_FULL(5250,4024) - JVS(43844) = 0 -! JVS(43845) = Jac_FULL(5250,4025) - JVS(43845) = 0 -! JVS(43846) = Jac_FULL(5250,4026) - JVS(43846) = B(21373) -! JVS(43847) = Jac_FULL(5250,4027) - JVS(43847) = -B(2755)-B(2757) -! JVS(43848) = Jac_FULL(5250,4028) - JVS(43848) = 0 -! JVS(43849) = Jac_FULL(5250,4029) - JVS(43849) = 0 -! JVS(43850) = Jac_FULL(5250,4030) - JVS(43850) = 0 -! JVS(43851) = Jac_FULL(5250,4031) - JVS(43851) = 0 -! JVS(43852) = Jac_FULL(5250,4032) - JVS(43852) = -B(2585)-B(2587) -! JVS(43853) = Jac_FULL(5250,4033) - JVS(43853) = 0 -! JVS(43854) = Jac_FULL(5250,4034) - JVS(43854) = 0 -! JVS(43855) = Jac_FULL(5250,4035) - JVS(43855) = 0 -! JVS(43856) = Jac_FULL(5250,4036) - JVS(43856) = 0 -! JVS(43857) = Jac_FULL(5250,4037) - JVS(43857) = 0 -! JVS(43858) = Jac_FULL(5250,4038) - JVS(43858) = 0 -! JVS(43859) = Jac_FULL(5250,4039) - JVS(43859) = 0 -! JVS(43860) = Jac_FULL(5250,4040) - JVS(43860) = 0 -! JVS(43861) = Jac_FULL(5250,4041) - JVS(43861) = 0 -! JVS(43862) = Jac_FULL(5250,4042) - JVS(43862) = 0 -! JVS(43863) = Jac_FULL(5250,4043) - JVS(43863) = 0 -! JVS(43864) = Jac_FULL(5250,4044) - JVS(43864) = 0 -! JVS(43865) = Jac_FULL(5250,4045) - JVS(43865) = 0 -! JVS(43866) = Jac_FULL(5250,4046) - JVS(43866) = B(20074) -! JVS(43867) = Jac_FULL(5250,4047) - JVS(43867) = -B(12782) -! JVS(43868) = Jac_FULL(5250,4048) - JVS(43868) = -B(8791) -! JVS(43869) = Jac_FULL(5250,4049) - JVS(43869) = 0 -! JVS(43870) = Jac_FULL(5250,4050) - JVS(43870) = 0 -! JVS(43871) = Jac_FULL(5250,4051) - JVS(43871) = B(10214) -! JVS(43872) = Jac_FULL(5250,4052) - JVS(43872) = 0 -! JVS(43873) = Jac_FULL(5250,4053) - JVS(43873) = -B(15429) -! JVS(43874) = Jac_FULL(5250,4054) - JVS(43874) = 0 -! JVS(43875) = Jac_FULL(5250,4055) - JVS(43875) = 0 -! JVS(43876) = Jac_FULL(5250,4056) - JVS(43876) = -B(2486)-B(2488) -! JVS(43877) = Jac_FULL(5250,4057) - JVS(43877) = 0 -! JVS(43878) = Jac_FULL(5250,4058) - JVS(43878) = 0 -! JVS(43879) = Jac_FULL(5250,4059) - JVS(43879) = 0 -! JVS(43880) = Jac_FULL(5250,4060) - JVS(43880) = 0 -! JVS(43881) = Jac_FULL(5250,4061) - JVS(43881) = 0 -! JVS(43882) = Jac_FULL(5250,4062) - JVS(43882) = 0 -! JVS(43883) = Jac_FULL(5250,4063) - JVS(43883) = 0 -! JVS(43884) = Jac_FULL(5250,4064) - JVS(43884) = 0 -! JVS(43885) = Jac_FULL(5250,4065) - JVS(43885) = 0 -! JVS(43886) = Jac_FULL(5250,4066) - JVS(43886) = -B(16582)-B(16584) -! JVS(43887) = Jac_FULL(5250,4067) - JVS(43887) = 0 -! JVS(43888) = Jac_FULL(5250,4068) - JVS(43888) = 0 -! JVS(43889) = Jac_FULL(5250,4069) - JVS(43889) = 0 -! JVS(43890) = Jac_FULL(5250,4070) - JVS(43890) = 0 -! JVS(43891) = Jac_FULL(5250,4071) - JVS(43891) = 0 -! JVS(43892) = Jac_FULL(5250,4072) - JVS(43892) = 0 -! JVS(43893) = Jac_FULL(5250,4073) - JVS(43893) = 0 -! JVS(43894) = Jac_FULL(5250,4074) - JVS(43894) = 0 -! JVS(43895) = Jac_FULL(5250,4075) - JVS(43895) = 0 -! JVS(43896) = Jac_FULL(5250,4076) - JVS(43896) = 0 -! JVS(43897) = Jac_FULL(5250,4077) - JVS(43897) = 0 -! JVS(43898) = Jac_FULL(5250,4078) - JVS(43898) = 0 -! JVS(43899) = Jac_FULL(5250,4079) - JVS(43899) = 0 -! JVS(43900) = Jac_FULL(5250,4080) - JVS(43900) = -B(2859)-B(2861) -! JVS(43901) = Jac_FULL(5250,4081) - JVS(43901) = B(5730) -! JVS(43902) = Jac_FULL(5250,4082) - JVS(43902) = 0 -! JVS(43903) = Jac_FULL(5250,4083) - JVS(43903) = -B(2529)-B(2531) -! JVS(43904) = Jac_FULL(5250,4084) - JVS(43904) = B(5360) -! JVS(43905) = Jac_FULL(5250,4085) - JVS(43905) = 0 -! JVS(43906) = Jac_FULL(5250,4086) - JVS(43906) = 0 -! JVS(43907) = Jac_FULL(5250,4087) - JVS(43907) = 0 -! JVS(43908) = Jac_FULL(5250,4088) - JVS(43908) = 0 -! JVS(43909) = Jac_FULL(5250,4089) - JVS(43909) = 0 -! JVS(43910) = Jac_FULL(5250,4090) - JVS(43910) = 0 -! JVS(43911) = Jac_FULL(5250,4091) - JVS(43911) = 0 -! JVS(43912) = Jac_FULL(5250,4092) - JVS(43912) = 0 -! JVS(43913) = Jac_FULL(5250,4093) - JVS(43913) = -B(2672)-B(2674) -! JVS(43914) = Jac_FULL(5250,4094) - JVS(43914) = -B(2629)-B(2631) -! JVS(43915) = Jac_FULL(5250,4095) - JVS(43915) = 0 -! JVS(43916) = Jac_FULL(5250,4096) - JVS(43916) = -B(6831) -! JVS(43917) = Jac_FULL(5250,4097) - JVS(43917) = 0 -! JVS(43918) = Jac_FULL(5250,4098) - JVS(43918) = 0 -! JVS(43919) = Jac_FULL(5250,4099) - JVS(43919) = 0 -! JVS(43920) = Jac_FULL(5250,4100) - JVS(43920) = B(9160) -! JVS(43921) = Jac_FULL(5250,4101) - JVS(43921) = 0 -! JVS(43922) = Jac_FULL(5250,4102) - JVS(43922) = B(21388) -! JVS(43923) = Jac_FULL(5250,4103) - JVS(43923) = -B(12097)-B(12099) -! JVS(43924) = Jac_FULL(5250,4104) - JVS(43924) = -B(21725) -! JVS(43925) = Jac_FULL(5250,4105) - JVS(43925) = 0 -! JVS(43926) = Jac_FULL(5250,4106) - JVS(43926) = 0 -! JVS(43927) = Jac_FULL(5250,4107) - JVS(43927) = B(10486)-B(10491) -! JVS(43928) = Jac_FULL(5250,4108) - JVS(43928) = -B(4901) -! JVS(43929) = Jac_FULL(5250,4109) - JVS(43929) = -B(10710) -! JVS(43930) = Jac_FULL(5250,4110) - JVS(43930) = -B(11862)-B(11864) -! JVS(43931) = Jac_FULL(5250,4111) - JVS(43931) = 0 -! JVS(43932) = Jac_FULL(5250,4112) - JVS(43932) = 0 -! JVS(43933) = Jac_FULL(5250,4113) - JVS(43933) = B(10562)-B(10567) -! JVS(43934) = Jac_FULL(5250,4114) - JVS(43934) = -B(5012) -! JVS(43935) = Jac_FULL(5250,4115) - JVS(43935) = 0 -! JVS(43936) = Jac_FULL(5250,4116) - JVS(43936) = 0 -! JVS(43937) = Jac_FULL(5250,4117) - JVS(43937) = 0 -! JVS(43938) = Jac_FULL(5250,4118) - JVS(43938) = 0 -! JVS(43939) = Jac_FULL(5250,4119) - JVS(43939) = 0 -! JVS(43940) = Jac_FULL(5250,4120) - JVS(43940) = 0 -! JVS(43941) = Jac_FULL(5250,4121) - JVS(43941) = 0 -! JVS(43942) = Jac_FULL(5250,4122) - JVS(43942) = -B(12115)-B(12117) -! JVS(43943) = Jac_FULL(5250,4123) - JVS(43943) = 0 -! JVS(43944) = Jac_FULL(5250,4124) - JVS(43944) = 0 -! JVS(43945) = Jac_FULL(5250,4125) - JVS(43945) = -B(12693)+B(12695)+B(12696) -! JVS(43946) = Jac_FULL(5250,4126) - JVS(43946) = 0 -! JVS(43947) = Jac_FULL(5250,4127) - JVS(43947) = 0 -! JVS(43948) = Jac_FULL(5250,4128) - JVS(43948) = 0 -! JVS(43949) = Jac_FULL(5250,4129) - JVS(43949) = 0 -! JVS(43950) = Jac_FULL(5250,4130) - JVS(43950) = 0 -! JVS(43951) = Jac_FULL(5250,4131) - JVS(43951) = 0 -! JVS(43952) = Jac_FULL(5250,4132) - JVS(43952) = B(6288) -! JVS(43953) = Jac_FULL(5250,4133) - JVS(43953) = 0 -! JVS(43954) = Jac_FULL(5250,4134) - JVS(43954) = 0 -! JVS(43955) = Jac_FULL(5250,4135) - JVS(43955) = 0 -! JVS(43956) = Jac_FULL(5250,4136) - JVS(43956) = 0 -! JVS(43957) = Jac_FULL(5250,4137) - JVS(43957) = 0 -! JVS(43958) = Jac_FULL(5250,4138) - JVS(43958) = 0 -! JVS(43959) = Jac_FULL(5250,4139) - JVS(43959) = B(9703) -! JVS(43960) = Jac_FULL(5250,4140) - JVS(43960) = 0 -! JVS(43961) = Jac_FULL(5250,4141) - JVS(43961) = 0 -! JVS(43962) = Jac_FULL(5250,4142) - JVS(43962) = 0 -! JVS(43963) = Jac_FULL(5250,4143) - JVS(43963) = 0 -! JVS(43964) = Jac_FULL(5250,4144) - JVS(43964) = 0 -! JVS(43965) = Jac_FULL(5250,4145) - JVS(43965) = 0 -! JVS(43966) = Jac_FULL(5250,4146) - JVS(43966) = 0 -! JVS(43967) = Jac_FULL(5250,4147) - JVS(43967) = 0 -! JVS(43968) = Jac_FULL(5250,4148) - JVS(43968) = 0 -! JVS(43969) = Jac_FULL(5250,4149) - JVS(43969) = 0 -! JVS(43970) = Jac_FULL(5250,4150) - JVS(43970) = 0 -! JVS(43971) = Jac_FULL(5250,4151) - JVS(43971) = -B(7328) -! JVS(43972) = Jac_FULL(5250,4152) - JVS(43972) = 0 -! JVS(43973) = Jac_FULL(5250,4153) - JVS(43973) = 0 -! JVS(43974) = Jac_FULL(5250,4154) - JVS(43974) = B(20226) -! JVS(43975) = Jac_FULL(5250,4155) - JVS(43975) = -B(5097) -! JVS(43976) = Jac_FULL(5250,4156) - JVS(43976) = -B(4333) -! JVS(43977) = Jac_FULL(5250,4157) - JVS(43977) = 0 -! JVS(43978) = Jac_FULL(5250,4158) - JVS(43978) = 0 -! JVS(43979) = Jac_FULL(5250,4159) - JVS(43979) = 0 -! JVS(43980) = Jac_FULL(5250,4160) - JVS(43980) = -B(5051) -! JVS(43981) = Jac_FULL(5250,4161) - JVS(43981) = 0 -! JVS(43982) = Jac_FULL(5250,4162) - JVS(43982) = 0 -! JVS(43983) = Jac_FULL(5250,4163) - JVS(43983) = 0 -! JVS(43984) = Jac_FULL(5250,4164) - JVS(43984) = -B(12151)-B(12153) -! JVS(43985) = Jac_FULL(5250,4165) - JVS(43985) = 0 -! JVS(43986) = Jac_FULL(5250,4166) - JVS(43986) = 0 -! JVS(43987) = Jac_FULL(5250,4167) - JVS(43987) = 0 -! JVS(43988) = Jac_FULL(5250,4168) - JVS(43988) = B(10239) -! JVS(43989) = Jac_FULL(5250,4169) - JVS(43989) = 0 -! JVS(43990) = Jac_FULL(5250,4170) - JVS(43990) = 0 -! JVS(43991) = Jac_FULL(5250,4171) - JVS(43991) = 0 -! JVS(43992) = Jac_FULL(5250,4172) - JVS(43992) = 0 -! JVS(43993) = Jac_FULL(5250,4173) - JVS(43993) = 0 -! JVS(43994) = Jac_FULL(5250,4174) - JVS(43994) = -B(4935) -! JVS(43995) = Jac_FULL(5250,4175) - JVS(43995) = -B(21464) -! JVS(43996) = Jac_FULL(5250,4176) - JVS(43996) = 0 -! JVS(43997) = Jac_FULL(5250,4178) - JVS(43997) = -B(13447)-B(13449) -! JVS(43998) = Jac_FULL(5250,4179) - JVS(43998) = -B(12133)-B(12135) -! JVS(43999) = Jac_FULL(5250,4180) - JVS(43999) = 0 -! JVS(44000) = Jac_FULL(5250,4181) - JVS(44000) = B(9797) -! JVS(44001) = Jac_FULL(5250,4182) - JVS(44001) = 0 -! JVS(44002) = Jac_FULL(5250,4183) - JVS(44002) = -B(11419) -! JVS(44003) = Jac_FULL(5250,4184) - JVS(44003) = 0 -! JVS(44004) = Jac_FULL(5250,4185) - JVS(44004) = 0 -! JVS(44005) = Jac_FULL(5250,4186) - JVS(44005) = -B(7395) -! JVS(44006) = Jac_FULL(5250,4187) - JVS(44006) = B(9254) -! JVS(44007) = Jac_FULL(5250,4188) - JVS(44007) = 0 -! JVS(44008) = Jac_FULL(5250,4189) - JVS(44008) = 0 -! JVS(44009) = Jac_FULL(5250,4190) - JVS(44009) = 0 -! JVS(44010) = Jac_FULL(5250,4191) - JVS(44010) = 0 -! JVS(44011) = Jac_FULL(5250,4192) - JVS(44011) = 0 -! JVS(44012) = Jac_FULL(5250,4193) - JVS(44012) = 0 -! JVS(44013) = Jac_FULL(5250,4194) - JVS(44013) = 0 -! JVS(44014) = Jac_FULL(5250,4195) - JVS(44014) = 0 -! JVS(44015) = Jac_FULL(5250,4196) - JVS(44015) = 0 -! JVS(44016) = Jac_FULL(5250,4197) - JVS(44016) = 0 -! JVS(44017) = Jac_FULL(5250,4198) - JVS(44017) = B(9916) -! JVS(44018) = Jac_FULL(5250,4199) - JVS(44018) = -B(15893) -! JVS(44019) = Jac_FULL(5250,4200) - JVS(44019) = 0 -! JVS(44020) = Jac_FULL(5250,4201) - JVS(44020) = 0 -! JVS(44021) = Jac_FULL(5250,4202) - JVS(44021) = B(19965) -! JVS(44022) = Jac_FULL(5250,4203) - JVS(44022) = B(21487) -! JVS(44023) = Jac_FULL(5250,4204) - JVS(44023) = 0 -! JVS(44024) = Jac_FULL(5250,4205) - JVS(44024) = 0 -! JVS(44025) = Jac_FULL(5250,4206) - JVS(44025) = B(7689) -! JVS(44026) = Jac_FULL(5250,4207) - JVS(44026) = B(22142) -! JVS(44027) = Jac_FULL(5250,4208) - JVS(44027) = B(16490) -! JVS(44028) = Jac_FULL(5250,4209) - JVS(44028) = B(16464) -! JVS(44029) = Jac_FULL(5250,4210) - JVS(44029) = 0 -! JVS(44030) = Jac_FULL(5250,4211) - JVS(44030) = 0 -! JVS(44031) = Jac_FULL(5250,4212) - JVS(44031) = 0 -! JVS(44032) = Jac_FULL(5250,4214) - JVS(44032) = B(22252) -! JVS(44033) = Jac_FULL(5250,4215) - JVS(44033) = B(8587) -! JVS(44034) = Jac_FULL(5250,4216) - JVS(44034) = 0 -! JVS(44035) = Jac_FULL(5250,4217) - JVS(44035) = 0 -! JVS(44036) = Jac_FULL(5250,4218) - JVS(44036) = B(20139) -! JVS(44037) = Jac_FULL(5250,4219) - JVS(44037) = 0 -! JVS(44038) = Jac_FULL(5250,4220) - JVS(44038) = B(23542) -! JVS(44039) = Jac_FULL(5250,4221) - JVS(44039) = B(19907) -! JVS(44040) = Jac_FULL(5250,4222) - JVS(44040) = B(20552) -! JVS(44041) = Jac_FULL(5250,4223) - JVS(44041) = -B(5187) -! JVS(44042) = Jac_FULL(5250,4224) - JVS(44042) = -B(21709) -! JVS(44043) = Jac_FULL(5250,4225) - JVS(44043) = 0 -! JVS(44044) = Jac_FULL(5250,4226) - JVS(44044) = 0 -! JVS(44045) = Jac_FULL(5250,4227) - JVS(44045) = -B(18474) -! JVS(44046) = Jac_FULL(5250,4228) - JVS(44046) = B(18819) -! JVS(44047) = Jac_FULL(5250,4229) - JVS(44047) = B(18806) -! JVS(44048) = Jac_FULL(5250,4230) - JVS(44048) = B(20574) -! JVS(44049) = Jac_FULL(5250,4231) - JVS(44049) = -B(13936) -! JVS(44050) = Jac_FULL(5250,4232) - JVS(44050) = 0 -! JVS(44051) = Jac_FULL(5250,4233) - JVS(44051) = -B(18407) -! JVS(44052) = Jac_FULL(5250,4234) - JVS(44052) = 0 -! JVS(44053) = Jac_FULL(5250,4235) - JVS(44053) = 0 -! JVS(44054) = Jac_FULL(5250,4236) - JVS(44054) = 0 -! JVS(44055) = Jac_FULL(5250,4237) - JVS(44055) = 0 -! JVS(44056) = Jac_FULL(5250,4238) - JVS(44056) = 0 -! JVS(44057) = Jac_FULL(5250,4239) - JVS(44057) = -B(14026) -! JVS(44058) = Jac_FULL(5250,4240) - JVS(44058) = 0 -! JVS(44059) = Jac_FULL(5250,4241) - JVS(44059) = B(19954) -! JVS(44060) = Jac_FULL(5250,4242) - JVS(44060) = 0 -! JVS(44061) = Jac_FULL(5250,4243) - JVS(44061) = B(14841) -! JVS(44062) = Jac_FULL(5250,4244) - JVS(44062) = 0 -! JVS(44063) = Jac_FULL(5250,4245) - JVS(44063) = 0 -! JVS(44064) = Jac_FULL(5250,4246) - JVS(44064) = 0 -! JVS(44065) = Jac_FULL(5250,4248) - JVS(44065) = -B(11701)-B(11703) -! JVS(44066) = Jac_FULL(5250,4249) - JVS(44066) = 0 -! JVS(44067) = Jac_FULL(5250,4251) - JVS(44067) = 0 -! JVS(44068) = Jac_FULL(5250,4252) - JVS(44068) = 0 -! JVS(44069) = Jac_FULL(5250,4253) - JVS(44069) = B(20026) -! JVS(44070) = Jac_FULL(5250,4254) - JVS(44070) = 0 -! JVS(44071) = Jac_FULL(5250,4255) - JVS(44071) = B(6863) -! JVS(44072) = Jac_FULL(5250,4256) - JVS(44072) = -B(13881) -! JVS(44073) = Jac_FULL(5250,4257) - JVS(44073) = 0 -! JVS(44074) = Jac_FULL(5250,4259) - JVS(44074) = B(10399) -! JVS(44075) = Jac_FULL(5250,4260) - JVS(44075) = B(14852) -! JVS(44076) = Jac_FULL(5250,4261) - JVS(44076) = -B(11719) -! JVS(44077) = Jac_FULL(5250,4262) - JVS(44077) = 0 -! JVS(44078) = Jac_FULL(5250,4263) - JVS(44078) = 0 -! JVS(44079) = Jac_FULL(5250,4265) - JVS(44079) = 0 -! JVS(44080) = Jac_FULL(5250,4266) - JVS(44080) = B(11115) -! JVS(44081) = Jac_FULL(5250,4267) - JVS(44081) = B(21284) -! JVS(44082) = Jac_FULL(5250,4268) - JVS(44082) = 0 -! JVS(44083) = Jac_FULL(5250,4269) - JVS(44083) = B(10652) -! JVS(44084) = Jac_FULL(5250,4270) - JVS(44084) = 0 -! JVS(44085) = Jac_FULL(5250,4271) - JVS(44085) = 0 -! JVS(44086) = Jac_FULL(5250,4272) - JVS(44086) = -B(2891)-B(2893) -! JVS(44087) = Jac_FULL(5250,4273) - JVS(44087) = 0 -! JVS(44088) = Jac_FULL(5250,4274) - JVS(44088) = 0 -! JVS(44089) = Jac_FULL(5250,4275) - JVS(44089) = B(8464) -! JVS(44090) = Jac_FULL(5250,4276) - JVS(44090) = 0 -! JVS(44091) = Jac_FULL(5250,4277) - JVS(44091) = 0 -! JVS(44092) = Jac_FULL(5250,4278) - JVS(44092) = -B(21792) -! JVS(44093) = Jac_FULL(5250,4279) - JVS(44093) = -B(17641) -! JVS(44094) = Jac_FULL(5250,4280) - JVS(44094) = 0 -! JVS(44095) = Jac_FULL(5250,4281) - JVS(44095) = B(8521) -! JVS(44096) = Jac_FULL(5250,4283) - JVS(44096) = B(8635) -! JVS(44097) = Jac_FULL(5250,4284) - JVS(44097) = 0 -! JVS(44098) = Jac_FULL(5250,4285) - JVS(44098) = 0 -! JVS(44099) = Jac_FULL(5250,4287) - JVS(44099) = 0 -! JVS(44100) = Jac_FULL(5250,4288) - JVS(44100) = B(14299) -! JVS(44101) = Jac_FULL(5250,4289) - JVS(44101) = 0 -! JVS(44102) = Jac_FULL(5250,4290) - JVS(44102) = 0 -! JVS(44103) = Jac_FULL(5250,4291) - JVS(44103) = 0 -! JVS(44104) = Jac_FULL(5250,4292) - JVS(44104) = 0 -! JVS(44105) = Jac_FULL(5250,4293) - JVS(44105) = 0 -! JVS(44106) = Jac_FULL(5250,4294) - JVS(44106) = -B(16535)+B(16537) -! JVS(44107) = Jac_FULL(5250,4295) - JVS(44107) = 0 -! JVS(44108) = Jac_FULL(5250,4296) - JVS(44108) = 0 -! JVS(44109) = Jac_FULL(5250,4297) - JVS(44109) = 0 -! JVS(44110) = Jac_FULL(5250,4298) - JVS(44110) = 0 -! JVS(44111) = Jac_FULL(5250,4299) - JVS(44111) = B(20268) -! JVS(44112) = Jac_FULL(5250,4300) - JVS(44112) = -B(7121)-B(7123) -! JVS(44113) = Jac_FULL(5250,4301) - JVS(44113) = B(11177) -! JVS(44114) = Jac_FULL(5250,4303) - JVS(44114) = 0 -! JVS(44115) = Jac_FULL(5250,4304) - JVS(44115) = 0 -! JVS(44116) = Jac_FULL(5250,4305) - JVS(44116) = 0 -! JVS(44117) = Jac_FULL(5250,4306) - JVS(44117) = 0 -! JVS(44118) = Jac_FULL(5250,4307) - JVS(44118) = 0 -! JVS(44119) = Jac_FULL(5250,4308) - JVS(44119) = B(19895) -! JVS(44120) = Jac_FULL(5250,4309) - JVS(44120) = 0 -! JVS(44121) = Jac_FULL(5250,4310) - JVS(44121) = 0 -! JVS(44122) = Jac_FULL(5250,4311) - JVS(44122) = 0 -! JVS(44123) = Jac_FULL(5250,4312) - JVS(44123) = 0 -! JVS(44124) = Jac_FULL(5250,4313) - JVS(44124) = -B(11936) -! JVS(44125) = Jac_FULL(5250,4314) - JVS(44125) = 0 -! JVS(44126) = Jac_FULL(5250,4315) - JVS(44126) = 0 -! JVS(44127) = Jac_FULL(5250,4316) - JVS(44127) = B(7761) -! JVS(44128) = Jac_FULL(5250,4317) - JVS(44128) = 0 -! JVS(44129) = Jac_FULL(5250,4318) - JVS(44129) = 0 -! JVS(44130) = Jac_FULL(5250,4319) - JVS(44130) = 0 -! JVS(44131) = Jac_FULL(5250,4321) - JVS(44131) = B(13654) -! JVS(44132) = Jac_FULL(5250,4322) - JVS(44132) = 0 -! JVS(44133) = Jac_FULL(5250,4323) - JVS(44133) = 0 -! JVS(44134) = Jac_FULL(5250,4324) - JVS(44134) = B(20200) -! JVS(44135) = Jac_FULL(5250,4325) - JVS(44135) = -B(15797) -! JVS(44136) = Jac_FULL(5250,4326) - JVS(44136) = 0 -! JVS(44137) = Jac_FULL(5250,4327) - JVS(44137) = 0 -! JVS(44138) = Jac_FULL(5250,4328) - JVS(44138) = 0 -! JVS(44139) = Jac_FULL(5250,4329) - JVS(44139) = B(21325) -! JVS(44140) = Jac_FULL(5250,4330) - JVS(44140) = -B(4278)-B(4280)-B(4282) -! JVS(44141) = Jac_FULL(5250,4331) - JVS(44141) = -B(20181) -! JVS(44142) = Jac_FULL(5250,4332) - JVS(44142) = -B(497)-B(499) -! JVS(44143) = Jac_FULL(5250,4333) - JVS(44143) = B(1574) -! JVS(44144) = Jac_FULL(5250,4334) - JVS(44144) = 0 -! JVS(44145) = Jac_FULL(5250,4335) - JVS(44145) = 0 -! JVS(44146) = Jac_FULL(5250,4336) - JVS(44146) = 0 -! JVS(44147) = Jac_FULL(5250,4337) - JVS(44147) = 0 -! JVS(44148) = Jac_FULL(5250,4338) - JVS(44148) = B(9018) -! JVS(44149) = Jac_FULL(5250,4339) - JVS(44149) = 0 -! JVS(44150) = Jac_FULL(5250,4340) - JVS(44150) = 0 -! JVS(44151) = Jac_FULL(5250,4341) - JVS(44151) = 0 -! JVS(44152) = Jac_FULL(5250,4342) - JVS(44152) = 0 -! JVS(44153) = Jac_FULL(5250,4343) - JVS(44153) = 0 -! JVS(44154) = Jac_FULL(5250,4344) - JVS(44154) = 0 -! JVS(44155) = Jac_FULL(5250,4345) - JVS(44155) = 0 -! JVS(44156) = Jac_FULL(5250,4346) - JVS(44156) = 0 -! JVS(44157) = Jac_FULL(5250,4347) - JVS(44157) = 0 -! JVS(44158) = Jac_FULL(5250,4348) - JVS(44158) = 0 -! JVS(44159) = Jac_FULL(5250,4349) - JVS(44159) = 0 -! JVS(44160) = Jac_FULL(5250,4350) - JVS(44160) = 0 -! JVS(44161) = Jac_FULL(5250,4351) - JVS(44161) = 0 -! JVS(44162) = Jac_FULL(5250,4352) - JVS(44162) = -B(12188) -! JVS(44163) = Jac_FULL(5250,4353) - JVS(44163) = 0 -! JVS(44164) = Jac_FULL(5250,4354) - JVS(44164) = 0 -! JVS(44165) = Jac_FULL(5250,4355) - JVS(44165) = 0 -! JVS(44166) = Jac_FULL(5250,4356) - JVS(44166) = 0 -! JVS(44167) = Jac_FULL(5250,4357) - JVS(44167) = 0 -! JVS(44168) = Jac_FULL(5250,4358) - JVS(44168) = 0 -! JVS(44169) = Jac_FULL(5250,4359) - JVS(44169) = 0 -! JVS(44170) = Jac_FULL(5250,4360) - JVS(44170) = 0 -! JVS(44171) = Jac_FULL(5250,4361) - JVS(44171) = 0 -! JVS(44172) = Jac_FULL(5250,4362) - JVS(44172) = -B(23569) -! JVS(44173) = Jac_FULL(5250,4363) - JVS(44173) = 0 -! JVS(44174) = Jac_FULL(5250,4364) - JVS(44174) = 0 -! JVS(44175) = Jac_FULL(5250,4365) - JVS(44175) = 0 -! JVS(44176) = Jac_FULL(5250,4366) - JVS(44176) = -B(20546) -! JVS(44177) = Jac_FULL(5250,4367) - JVS(44177) = 0 -! JVS(44178) = Jac_FULL(5250,4368) - JVS(44178) = 0 -! JVS(44179) = Jac_FULL(5250,4369) - JVS(44179) = 0 -! JVS(44180) = Jac_FULL(5250,4370) - JVS(44180) = 0 -! JVS(44181) = Jac_FULL(5250,4371) - JVS(44181) = 0 -! JVS(44182) = Jac_FULL(5250,4372) - JVS(44182) = 0 -! JVS(44183) = Jac_FULL(5250,4373) - JVS(44183) = -B(6692) -! JVS(44184) = Jac_FULL(5250,4374) - JVS(44184) = 0 -! JVS(44185) = Jac_FULL(5250,4375) - JVS(44185) = B(9603) -! JVS(44186) = Jac_FULL(5250,4376) - JVS(44186) = 0 -! JVS(44187) = Jac_FULL(5250,4377) - JVS(44187) = 0 -! JVS(44188) = Jac_FULL(5250,4378) - JVS(44188) = -B(16644)-B(16646) -! JVS(44189) = Jac_FULL(5250,4379) - JVS(44189) = 0 -! JVS(44190) = Jac_FULL(5250,4380) - JVS(44190) = B(3813) -! JVS(44191) = Jac_FULL(5250,4381) - JVS(44191) = 0 -! JVS(44192) = Jac_FULL(5250,4382) - JVS(44192) = B(1466) -! JVS(44193) = Jac_FULL(5250,4383) - JVS(44193) = -B(6991)+B(6995)+B(6996) -! JVS(44194) = Jac_FULL(5250,4384) - JVS(44194) = 0 -! JVS(44195) = Jac_FULL(5250,4385) - JVS(44195) = 0 -! JVS(44196) = Jac_FULL(5250,4386) - JVS(44196) = -B(3707) -! JVS(44197) = Jac_FULL(5250,4387) - JVS(44197) = 0 -! JVS(44198) = Jac_FULL(5250,4388) - JVS(44198) = 0 -! JVS(44199) = Jac_FULL(5250,4389) - JVS(44199) = 0 -! JVS(44200) = Jac_FULL(5250,4390) - JVS(44200) = 0 -! JVS(44201) = Jac_FULL(5250,4391) - JVS(44201) = -B(7042) -! JVS(44202) = Jac_FULL(5250,4392) - JVS(44202) = -B(14060) -! JVS(44203) = Jac_FULL(5250,4393) - JVS(44203) = 0 -! JVS(44204) = Jac_FULL(5250,4394) - JVS(44204) = 0 -! JVS(44205) = Jac_FULL(5250,4395) - JVS(44205) = -B(755) -! JVS(44206) = Jac_FULL(5250,4396) - JVS(44206) = -B(2357)-B(2359) -! JVS(44207) = Jac_FULL(5250,4397) - JVS(44207) = -B(2367)-B(2369)-B(2371) -! JVS(44208) = Jac_FULL(5250,4398) - JVS(44208) = -B(12355) -! JVS(44209) = Jac_FULL(5250,4399) - JVS(44209) = 0 -! JVS(44210) = Jac_FULL(5250,4400) - JVS(44210) = 0 -! JVS(44211) = Jac_FULL(5250,4401) - JVS(44211) = -B(13419) -! JVS(44212) = Jac_FULL(5250,4402) - JVS(44212) = 0 -! JVS(44213) = Jac_FULL(5250,4403) - JVS(44213) = -B(12846) -! JVS(44214) = Jac_FULL(5250,4404) - JVS(44214) = B(20087) -! JVS(44215) = Jac_FULL(5250,4405) - JVS(44215) = B(8439) -! JVS(44216) = Jac_FULL(5250,4406) - JVS(44216) = -B(7919) -! JVS(44217) = Jac_FULL(5250,4407) - JVS(44217) = 0 -! JVS(44218) = Jac_FULL(5250,4408) - JVS(44218) = 0 -! JVS(44219) = Jac_FULL(5250,4409) - JVS(44219) = B(22863) -! JVS(44220) = Jac_FULL(5250,4410) - JVS(44220) = 0 -! JVS(44221) = Jac_FULL(5250,4411) - JVS(44221) = 0 -! JVS(44222) = Jac_FULL(5250,4412) - JVS(44222) = B(14953) -! JVS(44223) = Jac_FULL(5250,4413) - JVS(44223) = 0 -! JVS(44224) = Jac_FULL(5250,4414) - JVS(44224) = B(10350) -! JVS(44225) = Jac_FULL(5250,4415) - JVS(44225) = 0 -! JVS(44226) = Jac_FULL(5250,4416) - JVS(44226) = 0 -! JVS(44227) = Jac_FULL(5250,4417) - JVS(44227) = B(19863) -! JVS(44228) = Jac_FULL(5250,4418) - JVS(44228) = 0 -! JVS(44229) = Jac_FULL(5250,4419) - JVS(44229) = B(19678) -! JVS(44230) = Jac_FULL(5250,4420) - JVS(44230) = -B(4093)+B(4095)+B(4096) -! JVS(44231) = Jac_FULL(5250,4421) - JVS(44231) = 0 -! JVS(44232) = Jac_FULL(5250,4422) - JVS(44232) = 0 -! JVS(44233) = Jac_FULL(5250,4423) - JVS(44233) = 0 -! JVS(44234) = Jac_FULL(5250,4424) - JVS(44234) = B(18461) -! JVS(44235) = Jac_FULL(5250,4425) - JVS(44235) = 0 -! JVS(44236) = Jac_FULL(5250,4426) - JVS(44236) = 0 -! JVS(44237) = Jac_FULL(5250,4427) - JVS(44237) = B(8603) -! JVS(44238) = Jac_FULL(5250,4428) - JVS(44238) = B(1545) -! JVS(44239) = Jac_FULL(5250,4429) - JVS(44239) = 0 -! JVS(44240) = Jac_FULL(5250,4430) - JVS(44240) = B(19784) -! JVS(44241) = Jac_FULL(5250,4431) - JVS(44241) = B(19454) -! JVS(44242) = Jac_FULL(5250,4432) - JVS(44242) = 0 -! JVS(44243) = Jac_FULL(5250,4433) - JVS(44243) = B(8574) -! JVS(44244) = Jac_FULL(5250,4434) - JVS(44244) = 0 -! JVS(44245) = Jac_FULL(5250,4435) - JVS(44245) = 0 -! JVS(44246) = Jac_FULL(5250,4436) - JVS(44246) = B(10430) -! JVS(44247) = Jac_FULL(5250,4437) - JVS(44247) = 0 -! JVS(44248) = Jac_FULL(5250,4438) - JVS(44248) = 0 -! JVS(44249) = Jac_FULL(5250,4439) - JVS(44249) = B(21887) -! JVS(44250) = Jac_FULL(5250,4440) - JVS(44250) = 0 -! JVS(44251) = Jac_FULL(5250,4441) - JVS(44251) = B(20246) -! JVS(44252) = Jac_FULL(5250,4442) - JVS(44252) = 0 -! JVS(44253) = Jac_FULL(5250,4443) - JVS(44253) = B(19806) -! JVS(44254) = Jac_FULL(5250,4444) - JVS(44254) = 0 -! JVS(44255) = Jac_FULL(5250,4445) - JVS(44255) = B(21504) -! JVS(44256) = Jac_FULL(5250,4446) - JVS(44256) = 0 -! JVS(44257) = Jac_FULL(5250,4447) - JVS(44257) = 0 -! JVS(44258) = Jac_FULL(5250,4448) - JVS(44258) = 0 -! JVS(44259) = Jac_FULL(5250,4449) - JVS(44259) = -B(21362) -! JVS(44260) = Jac_FULL(5250,4450) - JVS(44260) = B(19833) -! JVS(44261) = Jac_FULL(5250,4451) - JVS(44261) = B(11524) -! JVS(44262) = Jac_FULL(5250,4452) - JVS(44262) = B(8475) -! JVS(44263) = Jac_FULL(5250,4453) - JVS(44263) = 0 -! JVS(44264) = Jac_FULL(5250,4454) - JVS(44264) = 0 -! JVS(44265) = Jac_FULL(5250,4455) - JVS(44265) = 0 -! JVS(44266) = Jac_FULL(5250,4456) - JVS(44266) = B(23993) -! JVS(44267) = Jac_FULL(5250,4457) - JVS(44267) = 0 -! JVS(44268) = Jac_FULL(5250,4458) - JVS(44268) = 0 -! JVS(44269) = Jac_FULL(5250,4459) - JVS(44269) = 0 -! JVS(44270) = Jac_FULL(5250,4460) - JVS(44270) = B(18711) -! JVS(44271) = Jac_FULL(5250,4461) - JVS(44271) = 0 -! JVS(44272) = Jac_FULL(5250,4462) - JVS(44272) = -B(22299) -! JVS(44273) = Jac_FULL(5250,4463) - JVS(44273) = 0 -! JVS(44274) = Jac_FULL(5250,4464) - JVS(44274) = 0 -! JVS(44275) = Jac_FULL(5250,4465) - JVS(44275) = 0 -! JVS(44276) = Jac_FULL(5250,4466) - JVS(44276) = 0 -! JVS(44277) = Jac_FULL(5250,4467) - JVS(44277) = 0 -! JVS(44278) = Jac_FULL(5250,4468) - JVS(44278) = B(21148) -! JVS(44279) = Jac_FULL(5250,4469) - JVS(44279) = B(8190) -! JVS(44280) = Jac_FULL(5250,4470) - JVS(44280) = B(8499) -! JVS(44281) = Jac_FULL(5250,4471) - JVS(44281) = 0 -! JVS(44282) = Jac_FULL(5250,4472) - JVS(44282) = B(19930) -! JVS(44283) = Jac_FULL(5250,4473) - JVS(44283) = 0 -! JVS(44284) = Jac_FULL(5250,4474) - JVS(44284) = -B(545)-B(547) -! JVS(44285) = Jac_FULL(5250,4475) - JVS(44285) = -B(509)-B(511) -! JVS(44286) = Jac_FULL(5250,4476) - JVS(44286) = 0 -! JVS(44287) = Jac_FULL(5250,4477) - JVS(44287) = 0 -! JVS(44288) = Jac_FULL(5250,4478) - JVS(44288) = 0 -! JVS(44289) = Jac_FULL(5250,4479) - JVS(44289) = 0 -! JVS(44290) = Jac_FULL(5250,4480) - JVS(44290) = 0 -! JVS(44291) = Jac_FULL(5250,4481) - JVS(44291) = 0 -! JVS(44292) = Jac_FULL(5250,4482) - JVS(44292) = 0 -! JVS(44293) = Jac_FULL(5250,4483) - JVS(44293) = 0 -! JVS(44294) = Jac_FULL(5250,4484) - JVS(44294) = B(19174) -! JVS(44295) = Jac_FULL(5250,4485) - JVS(44295) = B(21808) -! JVS(44296) = Jac_FULL(5250,4486) - JVS(44296) = 0 -! JVS(44297) = Jac_FULL(5250,4487) - JVS(44297) = 0 -! JVS(44298) = Jac_FULL(5250,4488) - JVS(44298) = 0 -! JVS(44299) = Jac_FULL(5250,4489) - JVS(44299) = B(21301) -! JVS(44300) = Jac_FULL(5250,4490) - JVS(44300) = -B(15571) -! JVS(44301) = Jac_FULL(5250,4491) - JVS(44301) = -B(12416) -! JVS(44302) = Jac_FULL(5250,4492) - JVS(44302) = -B(872)-B(874)-B(876) -! JVS(44303) = Jac_FULL(5250,4493) - JVS(44303) = -B(19063) -! JVS(44304) = Jac_FULL(5250,4494) - JVS(44304) = 0 -! JVS(44305) = Jac_FULL(5250,4495) - JVS(44305) = 0 -! JVS(44306) = Jac_FULL(5250,4496) - JVS(44306) = B(22333) -! JVS(44307) = Jac_FULL(5250,4497) - JVS(44307) = 0 -! JVS(44308) = Jac_FULL(5250,4498) - JVS(44308) = 0 -! JVS(44309) = Jac_FULL(5250,4499) - JVS(44309) = 0 -! JVS(44310) = Jac_FULL(5250,4500) - JVS(44310) = B(15165) -! JVS(44311) = Jac_FULL(5250,4501) - JVS(44311) = -B(17731) -! JVS(44312) = Jac_FULL(5250,4502) - JVS(44312) = B(18396) -! JVS(44313) = Jac_FULL(5250,4503) - JVS(44313) = 0 -! JVS(44314) = Jac_FULL(5250,4504) - JVS(44314) = 0 -! JVS(44315) = Jac_FULL(5250,4505) - JVS(44315) = -B(9659) -! JVS(44316) = Jac_FULL(5250,4506) - JVS(44316) = 0 -! JVS(44317) = Jac_FULL(5250,4507) - JVS(44317) = -B(19926) -! JVS(44318) = Jac_FULL(5250,4508) - JVS(44318) = -B(533)-B(535) -! JVS(44319) = Jac_FULL(5250,4509) - JVS(44319) = 0 -! JVS(44320) = Jac_FULL(5250,4510) - JVS(44320) = 0 -! JVS(44321) = Jac_FULL(5250,4511) - JVS(44321) = 0 -! JVS(44322) = Jac_FULL(5250,4512) - JVS(44322) = -B(473)-B(475) -! JVS(44323) = Jac_FULL(5250,4513) - JVS(44323) = 0 -! JVS(44324) = Jac_FULL(5250,4514) - JVS(44324) = 0 -! JVS(44325) = Jac_FULL(5250,4515) - JVS(44325) = B(8136) -! JVS(44326) = Jac_FULL(5250,4516) - JVS(44326) = B(10323) -! JVS(44327) = Jac_FULL(5250,4517) - JVS(44327) = B(15045) -! JVS(44328) = Jac_FULL(5250,4518) - JVS(44328) = B(18866) -! JVS(44329) = Jac_FULL(5250,4519) - JVS(44329) = 2*B(20340)+B(20342)+B(20346)+B(20349) -! JVS(44330) = Jac_FULL(5250,4520) - JVS(44330) = B(23780) -! JVS(44331) = Jac_FULL(5250,4521) - JVS(44331) = B(19762) -! JVS(44332) = Jac_FULL(5250,4522) - JVS(44332) = B(8550) -! JVS(44333) = Jac_FULL(5250,4523) - JVS(44333) = B(15179) -! JVS(44334) = Jac_FULL(5250,4524) - JVS(44334) = -B(3799) -! JVS(44335) = Jac_FULL(5250,4525) - JVS(44335) = B(23735) -! JVS(44336) = Jac_FULL(5250,4526) - JVS(44336) = 0 -! JVS(44337) = Jac_FULL(5250,4527) - JVS(44337) = -B(557)-B(559) -! JVS(44338) = Jac_FULL(5250,4528) - JVS(44338) = B(1257) -! JVS(44339) = Jac_FULL(5250,4529) - JVS(44339) = 0 -! JVS(44340) = Jac_FULL(5250,4530) - JVS(44340) = -B(7896) -! JVS(44341) = Jac_FULL(5250,4531) - JVS(44341) = 0 -! JVS(44342) = Jac_FULL(5250,4532) - JVS(44342) = 0 -! JVS(44343) = Jac_FULL(5250,4533) - JVS(44343) = 0 -! JVS(44344) = Jac_FULL(5250,4534) - JVS(44344) = -B(16358) -! JVS(44345) = Jac_FULL(5250,4535) - JVS(44345) = 0 -! JVS(44346) = Jac_FULL(5250,4536) - JVS(44346) = B(20109) -! JVS(44347) = Jac_FULL(5250,4537) - JVS(44347) = -B(17858) -! JVS(44348) = Jac_FULL(5250,4538) - JVS(44348) = 0 -! JVS(44349) = Jac_FULL(5250,4539) - JVS(44349) = B(18791) -! JVS(44350) = Jac_FULL(5250,4540) - JVS(44350) = -B(11620) -! JVS(44351) = Jac_FULL(5250,4541) - JVS(44351) = 0 -! JVS(44352) = Jac_FULL(5250,4542) - JVS(44352) = 0 -! JVS(44353) = Jac_FULL(5250,4543) - JVS(44353) = 0 -! JVS(44354) = Jac_FULL(5250,4545) - JVS(44354) = 0 -! JVS(44355) = Jac_FULL(5250,4546) - JVS(44355) = 0 -! JVS(44356) = Jac_FULL(5250,4547) - JVS(44356) = -B(5428) -! JVS(44357) = Jac_FULL(5250,4548) - JVS(44357) = B(18727) -! JVS(44358) = Jac_FULL(5250,4549) - JVS(44358) = 0 -! JVS(44359) = Jac_FULL(5250,4550) - JVS(44359) = 0 -! JVS(44360) = Jac_FULL(5250,4552) - JVS(44360) = 0 -! JVS(44361) = Jac_FULL(5250,4553) - JVS(44361) = B(7785) -! JVS(44362) = Jac_FULL(5250,4554) - JVS(44362) = 0 -! JVS(44363) = Jac_FULL(5250,4555) - JVS(44363) = -B(167)-B(169) -! JVS(44364) = Jac_FULL(5250,4557) - JVS(44364) = B(7952) -! JVS(44365) = Jac_FULL(5250,4558) - JVS(44365) = 0 -! JVS(44366) = Jac_FULL(5250,4559) - JVS(44366) = -B(4475) -! JVS(44367) = Jac_FULL(5250,4560) - JVS(44367) = 0 -! JVS(44368) = Jac_FULL(5250,4561) - JVS(44368) = 0 -! JVS(44369) = Jac_FULL(5250,4562) - JVS(44369) = 0 -! JVS(44370) = Jac_FULL(5250,4563) - JVS(44370) = 0 -! JVS(44371) = Jac_FULL(5250,4564) - JVS(44371) = -B(10460) -! JVS(44372) = Jac_FULL(5250,4565) - JVS(44372) = 0 -! JVS(44373) = Jac_FULL(5250,4566) - JVS(44373) = 0 -! JVS(44374) = Jac_FULL(5250,4567) - JVS(44374) = 0 -! JVS(44375) = Jac_FULL(5250,4568) - JVS(44375) = 0 -! JVS(44376) = Jac_FULL(5250,4569) - JVS(44376) = -B(6157) -! JVS(44377) = Jac_FULL(5250,4570) - JVS(44377) = -B(13782)+B(13784) -! JVS(44378) = Jac_FULL(5250,4571) - JVS(44378) = 0 -! JVS(44379) = Jac_FULL(5250,4572) - JVS(44379) = 0 -! JVS(44380) = Jac_FULL(5250,4573) - JVS(44380) = 0 -! JVS(44381) = Jac_FULL(5250,4574) - JVS(44381) = 0 -! JVS(44382) = Jac_FULL(5250,4575) - JVS(44382) = 0 -! JVS(44383) = Jac_FULL(5250,4576) - JVS(44383) = -B(6224) -! JVS(44384) = Jac_FULL(5250,4577) - JVS(44384) = 0 -! JVS(44385) = Jac_FULL(5250,4578) - JVS(44385) = 0 -! JVS(44386) = Jac_FULL(5250,4579) - JVS(44386) = 0 -! JVS(44387) = Jac_FULL(5250,4580) - JVS(44387) = 0 -! JVS(44388) = Jac_FULL(5250,4581) - JVS(44388) = 0 -! JVS(44389) = Jac_FULL(5250,4582) - JVS(44389) = 0 -! JVS(44390) = Jac_FULL(5250,4583) - JVS(44390) = 0 -! JVS(44391) = Jac_FULL(5250,4584) - JVS(44391) = 0 -! JVS(44392) = Jac_FULL(5250,4585) - JVS(44392) = 0 -! JVS(44393) = Jac_FULL(5250,4586) - JVS(44393) = 0 -! JVS(44394) = Jac_FULL(5250,4587) - JVS(44394) = 0 -! JVS(44395) = Jac_FULL(5250,4588) - JVS(44395) = B(5237) -! JVS(44396) = Jac_FULL(5250,4589) - JVS(44396) = 0 -! JVS(44397) = Jac_FULL(5250,4590) - JVS(44397) = 0 -! JVS(44398) = Jac_FULL(5250,4591) - JVS(44398) = B(8898) -! JVS(44399) = Jac_FULL(5250,4592) - JVS(44399) = 0 -! JVS(44400) = Jac_FULL(5250,4593) - JVS(44400) = 0 -! JVS(44401) = Jac_FULL(5250,4594) - JVS(44401) = 0 -! JVS(44402) = Jac_FULL(5250,4595) - JVS(44402) = 0 -! JVS(44403) = Jac_FULL(5250,4596) - JVS(44403) = 0 -! JVS(44404) = Jac_FULL(5250,4597) - JVS(44404) = 0 -! JVS(44405) = Jac_FULL(5250,4598) - JVS(44405) = 0 -! JVS(44406) = Jac_FULL(5250,4599) - JVS(44406) = 0 -! JVS(44407) = Jac_FULL(5250,4600) - JVS(44407) = -B(886)-B(888)-B(890) -! JVS(44408) = Jac_FULL(5250,4601) - JVS(44408) = -B(521)-B(523) -! JVS(44409) = Jac_FULL(5250,4602) - JVS(44409) = -B(12381) -! JVS(44410) = Jac_FULL(5250,4603) - JVS(44410) = 0 -! JVS(44411) = Jac_FULL(5250,4604) - JVS(44411) = -B(569)-B(571) -! JVS(44412) = Jac_FULL(5250,4605) - JVS(44412) = -B(898)-B(900)-B(902) -! JVS(44413) = Jac_FULL(5250,4606) - JVS(44413) = -B(581)-B(583) -! JVS(44414) = Jac_FULL(5250,4607) - JVS(44414) = 0 -! JVS(44415) = Jac_FULL(5250,4608) - JVS(44415) = 0 -! JVS(44416) = Jac_FULL(5250,4609) - JVS(44416) = 0 -! JVS(44417) = Jac_FULL(5250,4610) - JVS(44417) = 0 -! JVS(44418) = Jac_FULL(5250,4611) - JVS(44418) = B(10811) -! JVS(44419) = Jac_FULL(5250,4612) - JVS(44419) = 0 -! JVS(44420) = Jac_FULL(5250,4613) - JVS(44420) = B(16730) -! JVS(44421) = Jac_FULL(5250,4614) - JVS(44421) = 0 -! JVS(44422) = Jac_FULL(5250,4615) - JVS(44422) = -B(10555)-B(10557) -! JVS(44423) = Jac_FULL(5250,4616) - JVS(44423) = 0 -! JVS(44424) = Jac_FULL(5250,4617) - JVS(44424) = B(10579) -! JVS(44425) = Jac_FULL(5250,4618) - JVS(44425) = -B(7052) -! JVS(44426) = Jac_FULL(5250,4619) - JVS(44426) = 0 -! JVS(44427) = Jac_FULL(5250,4620) - JVS(44427) = B(21412) -! JVS(44428) = Jac_FULL(5250,4621) - JVS(44428) = 0 -! JVS(44429) = Jac_FULL(5250,4622) - JVS(44429) = B(3009) -! JVS(44430) = Jac_FULL(5250,4623) - JVS(44430) = B(14982) -! JVS(44431) = Jac_FULL(5250,4624) - JVS(44431) = B(21780) -! JVS(44432) = Jac_FULL(5250,4625) - JVS(44432) = 0 -! JVS(44433) = Jac_FULL(5250,4626) - JVS(44433) = B(5345) -! JVS(44434) = Jac_FULL(5250,4627) - JVS(44434) = B(10966) -! JVS(44435) = Jac_FULL(5250,4628) - JVS(44435) = B(10257) -! JVS(44436) = Jac_FULL(5250,4629) - JVS(44436) = B(15058) -! JVS(44437) = Jac_FULL(5250,4630) - JVS(44437) = -B(5992) -! JVS(44438) = Jac_FULL(5250,4631) - JVS(44438) = B(19008) -! JVS(44439) = Jac_FULL(5250,4632) - JVS(44439) = 0 -! JVS(44440) = Jac_FULL(5250,4633) - JVS(44440) = B(6360) -! JVS(44441) = Jac_FULL(5250,4634) - JVS(44441) = B(3779) -! JVS(44442) = Jac_FULL(5250,4635) - JVS(44442) = B(5894) -! JVS(44443) = Jac_FULL(5250,4636) - JVS(44443) = B(22938) -! JVS(44444) = Jac_FULL(5250,4637) - JVS(44444) = B(9430)-B(9432) -! JVS(44445) = Jac_FULL(5250,4638) - JVS(44445) = B(19342) -! JVS(44446) = Jac_FULL(5250,4639) - JVS(44446) = 0 -! JVS(44447) = Jac_FULL(5250,4640) - JVS(44447) = 0 -! JVS(44448) = Jac_FULL(5250,4641) - JVS(44448) = B(5715) -! JVS(44449) = Jac_FULL(5250,4642) - JVS(44449) = B(17663) -! JVS(44450) = Jac_FULL(5250,4643) - JVS(44450) = 0 -! JVS(44451) = Jac_FULL(5250,4644) - JVS(44451) = 0 -! JVS(44452) = Jac_FULL(5250,4645) - JVS(44452) = 0 -! JVS(44453) = Jac_FULL(5250,4646) - JVS(44453) = 0 -! JVS(44454) = Jac_FULL(5250,4647) - JVS(44454) = 0 -! JVS(44455) = Jac_FULL(5250,4648) - JVS(44455) = 0 -! JVS(44456) = Jac_FULL(5250,4649) - JVS(44456) = B(5219) -! JVS(44457) = Jac_FULL(5250,4650) - JVS(44457) = B(9541)-B(9543) -! JVS(44458) = Jac_FULL(5250,4651) - JVS(44458) = -B(18039) -! JVS(44459) = Jac_FULL(5250,4652) - JVS(44459) = B(22015) -! JVS(44460) = Jac_FULL(5250,4653) - JVS(44460) = B(23302) -! JVS(44461) = Jac_FULL(5250,4654) - JVS(44461) = B(6208) -! JVS(44462) = Jac_FULL(5250,4655) - JVS(44462) = 0 -! JVS(44463) = Jac_FULL(5250,4656) - JVS(44463) = B(6542) -! JVS(44464) = Jac_FULL(5250,4657) - JVS(44464) = B(18882) -! JVS(44465) = Jac_FULL(5250,4658) - JVS(44465) = 2*B(18852)+B(18858)+B(18862)+B(18864) -! JVS(44466) = Jac_FULL(5250,4659) - JVS(44466) = B(21840) -! JVS(44467) = Jac_FULL(5250,4660) - JVS(44467) = B(20714) -! JVS(44468) = Jac_FULL(5250,4661) - JVS(44468) = 0 -! JVS(44469) = Jac_FULL(5250,4662) - JVS(44469) = B(17508) -! JVS(44470) = Jac_FULL(5250,4663) - JVS(44470) = 0 -! JVS(44471) = Jac_FULL(5250,4664) - JVS(44471) = B(16986) -! JVS(44472) = Jac_FULL(5250,4665) - JVS(44472) = B(15099) -! JVS(44473) = Jac_FULL(5250,4666) - JVS(44473) = 0 -! JVS(44474) = Jac_FULL(5250,4667) - JVS(44474) = 0 -! JVS(44475) = Jac_FULL(5250,4668) - JVS(44475) = 0 -! JVS(44476) = Jac_FULL(5250,4669) - JVS(44476) = 0 -! JVS(44477) = Jac_FULL(5250,4670) - JVS(44477) = 0 -! JVS(44478) = Jac_FULL(5250,4671) - JVS(44478) = 0 -! JVS(44479) = Jac_FULL(5250,4672) - JVS(44479) = 0 -! JVS(44480) = Jac_FULL(5250,4673) - JVS(44480) = B(23186) -! JVS(44481) = Jac_FULL(5250,4674) - JVS(44481) = 0 -! JVS(44482) = Jac_FULL(5250,4675) - JVS(44482) = 0 -! JVS(44483) = Jac_FULL(5250,4676) - JVS(44483) = 0 -! JVS(44484) = Jac_FULL(5250,4677) - JVS(44484) = 0 -! JVS(44485) = Jac_FULL(5250,4678) - JVS(44485) = 0 -! JVS(44486) = Jac_FULL(5250,4679) - JVS(44486) = B(19440) -! JVS(44487) = Jac_FULL(5250,4680) - JVS(44487) = B(9853) -! JVS(44488) = Jac_FULL(5250,4681) - JVS(44488) = B(22596) -! JVS(44489) = Jac_FULL(5250,4682) - JVS(44489) = 0 -! JVS(44490) = Jac_FULL(5250,4683) - JVS(44490) = 0 -! JVS(44491) = Jac_FULL(5250,4684) - JVS(44491) = B(9083) -! JVS(44492) = Jac_FULL(5250,4685) - JVS(44492) = B(6446) -! JVS(44493) = Jac_FULL(5250,4686) - JVS(44493) = B(23973) -! JVS(44494) = Jac_FULL(5250,4687) - JVS(44494) = 0 -! JVS(44495) = Jac_FULL(5250,4688) - JVS(44495) = 0 -! JVS(44496) = Jac_FULL(5250,4689) - JVS(44496) = 0 -! JVS(44497) = Jac_FULL(5250,4690) - JVS(44497) = 0 -! JVS(44498) = Jac_FULL(5250,4691) - JVS(44498) = 0 -! JVS(44499) = Jac_FULL(5250,4692) - JVS(44499) = B(5601) -! JVS(44500) = Jac_FULL(5250,4693) - JVS(44500) = -B(12503) -! JVS(44501) = Jac_FULL(5250,4694) - JVS(44501) = -B(13206) -! JVS(44502) = Jac_FULL(5250,4695) - JVS(44502) = 0 -! JVS(44503) = Jac_FULL(5250,4696) - JVS(44503) = 0 -! JVS(44504) = Jac_FULL(5250,4697) - JVS(44504) = 0 -! JVS(44505) = Jac_FULL(5250,4698) - JVS(44505) = 0 -! JVS(44506) = Jac_FULL(5250,4699) - JVS(44506) = 0 -! JVS(44507) = Jac_FULL(5250,4700) - JVS(44507) = 0 -! JVS(44508) = Jac_FULL(5250,4701) - JVS(44508) = 0 -! JVS(44509) = Jac_FULL(5250,4702) - JVS(44509) = 0 -! JVS(44510) = Jac_FULL(5250,4703) - JVS(44510) = 0 -! JVS(44511) = Jac_FULL(5250,4704) - JVS(44511) = 0 -! JVS(44512) = Jac_FULL(5250,4705) - JVS(44512) = 0 -! JVS(44513) = Jac_FULL(5250,4706) - JVS(44513) = 0 -! JVS(44514) = Jac_FULL(5250,4707) - JVS(44514) = 0 -! JVS(44515) = Jac_FULL(5250,4708) - JVS(44515) = -B(4243) -! JVS(44516) = Jac_FULL(5250,4709) - JVS(44516) = 0 -! JVS(44517) = Jac_FULL(5250,4710) - JVS(44517) = -B(19818) -! JVS(44518) = Jac_FULL(5250,4711) - JVS(44518) = 0 -! JVS(44519) = Jac_FULL(5250,4712) - JVS(44519) = 0 -! JVS(44520) = Jac_FULL(5250,4713) - JVS(44520) = 0 -! JVS(44521) = Jac_FULL(5250,4714) - JVS(44521) = 0 -! JVS(44522) = Jac_FULL(5250,4715) - JVS(44522) = 0 -! JVS(44523) = Jac_FULL(5250,4716) - JVS(44523) = 0 -! JVS(44524) = Jac_FULL(5250,4717) - JVS(44524) = -B(7179) -! JVS(44525) = Jac_FULL(5250,4718) - JVS(44525) = 0 -! JVS(44526) = Jac_FULL(5250,4719) - JVS(44526) = 0 -! JVS(44527) = Jac_FULL(5250,4720) - JVS(44527) = 0 -! JVS(44528) = Jac_FULL(5250,4721) - JVS(44528) = -B(5231) -! JVS(44529) = Jac_FULL(5250,4722) - JVS(44529) = 0 -! JVS(44530) = Jac_FULL(5250,4723) - JVS(44530) = 0 -! JVS(44531) = Jac_FULL(5250,4724) - JVS(44531) = 0 -! JVS(44532) = Jac_FULL(5250,4725) - JVS(44532) = 0 -! JVS(44533) = Jac_FULL(5250,4726) - JVS(44533) = 0 -! JVS(44534) = Jac_FULL(5250,4727) - JVS(44534) = 0 -! JVS(44535) = Jac_FULL(5250,4728) - JVS(44535) = -B(12849) -! JVS(44536) = Jac_FULL(5250,4729) - JVS(44536) = -B(5526) -! JVS(44537) = Jac_FULL(5250,4730) - JVS(44537) = 0 -! JVS(44538) = Jac_FULL(5250,4731) - JVS(44538) = B(21470) -! JVS(44539) = Jac_FULL(5250,4732) - JVS(44539) = 0 -! JVS(44540) = Jac_FULL(5250,4733) - JVS(44540) = 0 -! JVS(44541) = Jac_FULL(5250,4734) - JVS(44541) = 0 -! JVS(44542) = Jac_FULL(5250,4735) - JVS(44542) = 0 -! JVS(44543) = Jac_FULL(5250,4736) - JVS(44543) = -B(4557)-B(4559) -! JVS(44544) = Jac_FULL(5250,4737) - JVS(44544) = -B(3909)-B(3911) -! JVS(44545) = Jac_FULL(5250,4738) - JVS(44545) = B(17300) -! JVS(44546) = Jac_FULL(5250,4739) - JVS(44546) = B(20368) -! JVS(44547) = Jac_FULL(5250,4740) - JVS(44547) = B(8942) -! JVS(44548) = Jac_FULL(5250,4742) - JVS(44548) = 0 -! JVS(44549) = Jac_FULL(5250,4743) - JVS(44549) = 0 -! JVS(44550) = Jac_FULL(5250,4744) - JVS(44550) = B(21432) -! JVS(44551) = Jac_FULL(5250,4745) - JVS(44551) = 0 -! JVS(44552) = Jac_FULL(5250,4746) - JVS(44552) = 0 -! JVS(44553) = Jac_FULL(5250,4747) - JVS(44553) = B(3486) -! JVS(44554) = Jac_FULL(5250,4748) - JVS(44554) = 0 -! JVS(44555) = Jac_FULL(5250,4749) - JVS(44555) = B(13775)+B(13776)+2*B(13777) -! JVS(44556) = Jac_FULL(5250,4750) - JVS(44556) = 0 -! JVS(44557) = Jac_FULL(5250,4751) - JVS(44557) = 0 -! JVS(44558) = Jac_FULL(5250,4752) - JVS(44558) = B(21900) -! JVS(44559) = Jac_FULL(5250,4753) - JVS(44559) = B(20354) -! JVS(44560) = Jac_FULL(5250,4754) - JVS(44560) = 0 -! JVS(44561) = Jac_FULL(5250,4755) - JVS(44561) = 0 -! JVS(44562) = Jac_FULL(5250,4756) - JVS(44562) = 0 -! JVS(44563) = Jac_FULL(5250,4757) - JVS(44563) = 0 -! JVS(44564) = Jac_FULL(5250,4758) - JVS(44564) = B(10510) -! JVS(44565) = Jac_FULL(5250,4759) - JVS(44565) = B(22804) -! JVS(44566) = Jac_FULL(5250,4760) - JVS(44566) = B(8031) -! JVS(44567) = Jac_FULL(5250,4761) - JVS(44567) = 0 -! JVS(44568) = Jac_FULL(5250,4762) - JVS(44568) = 0 -! JVS(44569) = Jac_FULL(5250,4763) - JVS(44569) = 0 -! JVS(44570) = Jac_FULL(5250,4764) - JVS(44570) = 0 -! JVS(44571) = Jac_FULL(5250,4765) - JVS(44571) = 0 -! JVS(44572) = Jac_FULL(5250,4766) - JVS(44572) = 0 -! JVS(44573) = Jac_FULL(5250,4767) - JVS(44573) = 0 -! JVS(44574) = Jac_FULL(5250,4768) - JVS(44574) = 0 -! JVS(44575) = Jac_FULL(5250,4769) - JVS(44575) = 0 -! JVS(44576) = Jac_FULL(5250,4770) - JVS(44576) = B(19980) -! JVS(44577) = Jac_FULL(5250,4771) - JVS(44577) = B(8210) -! JVS(44578) = Jac_FULL(5250,4772) - JVS(44578) = B(20466) -! JVS(44579) = Jac_FULL(5250,4773) - JVS(44579) = B(9063) -! JVS(44580) = Jac_FULL(5250,4774) - JVS(44580) = 0 -! JVS(44581) = Jac_FULL(5250,4775) - JVS(44581) = -B(15990)+B(15992) -! JVS(44582) = Jac_FULL(5250,4776) - JVS(44582) = 0 -! JVS(44583) = Jac_FULL(5250,4777) - JVS(44583) = 0 -! JVS(44584) = Jac_FULL(5250,4778) - JVS(44584) = 0 -! JVS(44585) = Jac_FULL(5250,4779) - JVS(44585) = 0 -! JVS(44586) = Jac_FULL(5250,4780) - JVS(44586) = 0 -! JVS(44587) = Jac_FULL(5250,4781) - JVS(44587) = 0 -! JVS(44588) = Jac_FULL(5250,4782) - JVS(44588) = 0 -! JVS(44589) = Jac_FULL(5250,4783) - JVS(44589) = 0 -! JVS(44590) = Jac_FULL(5250,4784) - JVS(44590) = 0 -! JVS(44591) = Jac_FULL(5250,4785) - JVS(44591) = 0 -! JVS(44592) = Jac_FULL(5250,4786) - JVS(44592) = -B(10622) -! JVS(44593) = Jac_FULL(5250,4787) - JVS(44593) = 0 -! JVS(44594) = Jac_FULL(5250,4788) - JVS(44594) = 0 -! JVS(44595) = Jac_FULL(5250,4789) - JVS(44595) = 0 -! JVS(44596) = Jac_FULL(5250,4790) - JVS(44596) = 0 -! JVS(44597) = Jac_FULL(5250,4791) - JVS(44597) = 0 -! JVS(44598) = Jac_FULL(5250,4792) - JVS(44598) = B(16018) -! JVS(44599) = Jac_FULL(5250,4793) - JVS(44599) = B(10153)-B(10155) -! JVS(44600) = Jac_FULL(5250,4794) - JVS(44600) = -B(3141)-B(3143) -! JVS(44601) = Jac_FULL(5250,4795) - JVS(44601) = B(17472) -! JVS(44602) = Jac_FULL(5250,4796) - JVS(44602) = -B(7913) -! JVS(44603) = Jac_FULL(5250,4797) - JVS(44603) = 0 -! JVS(44604) = Jac_FULL(5250,4798) - JVS(44604) = 0 -! JVS(44605) = Jac_FULL(5250,4799) - JVS(44605) = 0 -! JVS(44606) = Jac_FULL(5250,4800) - JVS(44606) = -B(15235)-B(15237) -! JVS(44607) = Jac_FULL(5250,4801) - JVS(44607) = -B(7039) -! JVS(44608) = Jac_FULL(5250,4802) - JVS(44608) = 0 -! JVS(44609) = Jac_FULL(5250,4803) - JVS(44609) = 0 -! JVS(44610) = Jac_FULL(5250,4804) - JVS(44610) = 0 -! JVS(44611) = Jac_FULL(5250,4805) - JVS(44611) = -B(13681)+B(13683) -! JVS(44612) = Jac_FULL(5250,4806) - JVS(44612) = B(20621) -! JVS(44613) = Jac_FULL(5250,4807) - JVS(44613) = B(6141) -! JVS(44614) = Jac_FULL(5250,4808) - JVS(44614) = B(19999) -! JVS(44615) = Jac_FULL(5250,4809) - JVS(44615) = 0 -! JVS(44616) = Jac_FULL(5250,4810) - JVS(44616) = 0 -! JVS(44617) = Jac_FULL(5250,4811) - JVS(44617) = 0 -! JVS(44618) = Jac_FULL(5250,4812) - JVS(44618) = B(23127) -! JVS(44619) = Jac_FULL(5250,4813) - JVS(44619) = 0 -! JVS(44620) = Jac_FULL(5250,4814) - JVS(44620) = 0 -! JVS(44621) = Jac_FULL(5250,4815) - JVS(44621) = -B(16092)+B(16095) -! JVS(44622) = Jac_FULL(5250,4816) - JVS(44622) = B(18931) -! JVS(44623) = Jac_FULL(5250,4817) - JVS(44623) = 0 -! JVS(44624) = Jac_FULL(5250,4818) - JVS(44624) = B(23316) -! JVS(44625) = Jac_FULL(5250,4819) - JVS(44625) = 0 -! JVS(44626) = Jac_FULL(5250,4820) - JVS(44626) = 0 -! JVS(44627) = Jac_FULL(5250,4821) - JVS(44627) = 0 -! JVS(44628) = Jac_FULL(5250,4822) - JVS(44628) = B(8693) -! JVS(44629) = Jac_FULL(5250,4823) - JVS(44629) = 0 -! JVS(44630) = Jac_FULL(5250,4824) - JVS(44630) = 0 -! JVS(44631) = Jac_FULL(5250,4825) - JVS(44631) = 0 -! JVS(44632) = Jac_FULL(5250,4826) - JVS(44632) = B(20327) -! JVS(44633) = Jac_FULL(5250,4827) - JVS(44633) = 0 -! JVS(44634) = Jac_FULL(5250,4828) - JVS(44634) = 0 -! JVS(44635) = Jac_FULL(5250,4829) - JVS(44635) = B(5806) -! JVS(44636) = Jac_FULL(5250,4830) - JVS(44636) = B(14270) -! JVS(44637) = Jac_FULL(5250,4831) - JVS(44637) = B(21536) -! JVS(44638) = Jac_FULL(5250,4832) - JVS(44638) = -B(13659) -! JVS(44639) = Jac_FULL(5250,4833) - JVS(44639) = B(5412) -! JVS(44640) = Jac_FULL(5250,4834) - JVS(44640) = -B(11960) -! JVS(44641) = Jac_FULL(5250,4835) - JVS(44641) = 0 -! JVS(44642) = Jac_FULL(5250,4836) - JVS(44642) = B(11002) -! JVS(44643) = Jac_FULL(5250,4837) - JVS(44643) = 0 -! JVS(44644) = Jac_FULL(5250,4838) - JVS(44644) = 0 -! JVS(44645) = Jac_FULL(5250,4839) - JVS(44645) = B(23092) -! JVS(44646) = Jac_FULL(5250,4840) - JVS(44646) = -B(252)-B(254)-B(256) -! JVS(44647) = Jac_FULL(5250,4841) - JVS(44647) = 0 -! JVS(44648) = Jac_FULL(5250,4842) - JVS(44648) = -B(17072) -! JVS(44649) = Jac_FULL(5250,4843) - JVS(44649) = 0 -! JVS(44650) = Jac_FULL(5250,4844) - JVS(44650) = 0 -! JVS(44651) = Jac_FULL(5250,4845) - JVS(44651) = -B(4829) -! JVS(44652) = Jac_FULL(5250,4846) - JVS(44652) = B(9667) -! JVS(44653) = Jac_FULL(5250,4847) - JVS(44653) = B(11239) -! JVS(44654) = Jac_FULL(5250,4848) - JVS(44654) = B(14936) -! JVS(44655) = Jac_FULL(5250,4849) - JVS(44655) = B(17031) -! JVS(44656) = Jac_FULL(5250,4850) - JVS(44656) = B(18001) -! JVS(44657) = Jac_FULL(5250,4851) - JVS(44657) = -B(13556) -! JVS(44658) = Jac_FULL(5250,4852) - JVS(44658) = 0 -! JVS(44659) = Jac_FULL(5250,4853) - JVS(44659) = B(23809) -! JVS(44660) = Jac_FULL(5250,4854) - JVS(44660) = B(23288) -! JVS(44661) = Jac_FULL(5250,4855) - JVS(44661) = B(14444) -! JVS(44662) = Jac_FULL(5250,4856) - JVS(44662) = 0 -! JVS(44663) = Jac_FULL(5250,4857) - JVS(44663) = 0 -! JVS(44664) = Jac_FULL(5250,4858) - JVS(44664) = 0 -! JVS(44665) = Jac_FULL(5250,4859) - JVS(44665) = 0 -! JVS(44666) = Jac_FULL(5250,4860) - JVS(44666) = B(8009) -! JVS(44667) = Jac_FULL(5250,4861) - JVS(44667) = 0 -! JVS(44668) = Jac_FULL(5250,4862) - JVS(44668) = B(7867) -! JVS(44669) = Jac_FULL(5250,4863) - JVS(44669) = B(21062) -! JVS(44670) = Jac_FULL(5250,4864) - JVS(44670) = B(16120) -! JVS(44671) = Jac_FULL(5250,4865) - JVS(44671) = -B(13481) -! JVS(44672) = Jac_FULL(5250,4866) - JVS(44672) = B(17538) -! JVS(44673) = Jac_FULL(5250,4867) - JVS(44673) = B(22374) -! JVS(44674) = Jac_FULL(5250,4868) - JVS(44674) = 0 -! JVS(44675) = Jac_FULL(5250,4869) - JVS(44675) = 0 -! JVS(44676) = Jac_FULL(5250,4870) - JVS(44676) = 0 -! JVS(44677) = Jac_FULL(5250,4871) - JVS(44677) = 0 -! JVS(44678) = Jac_FULL(5250,4872) - JVS(44678) = -B(3758)-B(3760) -! JVS(44679) = Jac_FULL(5250,4873) - JVS(44679) = -B(5144) -! JVS(44680) = Jac_FULL(5250,4874) - JVS(44680) = B(19729) -! JVS(44681) = Jac_FULL(5250,4875) - JVS(44681) = 0 -! JVS(44682) = Jac_FULL(5250,4876) - JVS(44682) = 0 -! JVS(44683) = Jac_FULL(5250,4877) - JVS(44683) = 0 -! JVS(44684) = Jac_FULL(5250,4878) - JVS(44684) = 0 -! JVS(44685) = Jac_FULL(5250,4879) - JVS(44685) = 0 -! JVS(44686) = Jac_FULL(5250,4880) - JVS(44686) = 0 -! JVS(44687) = Jac_FULL(5250,4881) - JVS(44687) = 0 -! JVS(44688) = Jac_FULL(5250,4882) - JVS(44688) = -B(7727)-B(7729) -! JVS(44689) = Jac_FULL(5250,4883) - JVS(44689) = -B(14874)-B(14876) -! JVS(44690) = Jac_FULL(5250,4884) - JVS(44690) = 0 -! JVS(44691) = Jac_FULL(5250,4885) - JVS(44691) = 0 -! JVS(44692) = Jac_FULL(5250,4886) - JVS(44692) = 0 -! JVS(44693) = Jac_FULL(5250,4887) - JVS(44693) = 0 -! JVS(44694) = Jac_FULL(5250,4888) - JVS(44694) = B(13081) -! JVS(44695) = Jac_FULL(5250,4889) - JVS(44695) = 0 -! JVS(44696) = Jac_FULL(5250,4890) - JVS(44696) = 0 -! JVS(44697) = Jac_FULL(5250,4891) - JVS(44697) = B(14479) -! JVS(44698) = Jac_FULL(5250,4892) - JVS(44698) = B(5510) -! JVS(44699) = Jac_FULL(5250,4893) - JVS(44699) = 0 -! JVS(44700) = Jac_FULL(5250,4894) - JVS(44700) = 0 -! JVS(44701) = Jac_FULL(5250,4895) - JVS(44701) = B(9053)-B(9055) -! JVS(44702) = Jac_FULL(5250,4896) - JVS(44702) = B(9309)-B(9311) -! JVS(44703) = Jac_FULL(5250,4897) - JVS(44703) = 0 -! JVS(44704) = Jac_FULL(5250,4898) - JVS(44704) = 0 -! JVS(44705) = Jac_FULL(5250,4899) - JVS(44705) = 0 -! JVS(44706) = Jac_FULL(5250,4900) - JVS(44706) = 0 -! JVS(44707) = Jac_FULL(5250,4901) - JVS(44707) = 0 -! JVS(44708) = Jac_FULL(5250,4902) - JVS(44708) = -B(22313) -! JVS(44709) = Jac_FULL(5250,4903) - JVS(44709) = 0 -! JVS(44710) = Jac_FULL(5250,4904) - JVS(44710) = 0 -! JVS(44711) = Jac_FULL(5250,4905) - JVS(44711) = 0 -! JVS(44712) = Jac_FULL(5250,4906) - JVS(44712) = 0 -! JVS(44713) = Jac_FULL(5250,4907) - JVS(44713) = -B(3152) -! JVS(44714) = Jac_FULL(5250,4908) - JVS(44714) = 0 -! JVS(44715) = Jac_FULL(5250,4909) - JVS(44715) = -B(4839) -! JVS(44716) = Jac_FULL(5250,4910) - JVS(44716) = B(14254) -! JVS(44717) = Jac_FULL(5250,4911) - JVS(44717) = 0 -! JVS(44718) = Jac_FULL(5250,4912) - JVS(44718) = 0 -! JVS(44719) = Jac_FULL(5250,4913) - JVS(44719) = 0 -! JVS(44720) = Jac_FULL(5250,4914) - JVS(44720) = -B(11097) -! JVS(44721) = Jac_FULL(5250,4915) - JVS(44721) = B(7819) -! JVS(44722) = Jac_FULL(5250,4916) - JVS(44722) = B(8674) -! JVS(44723) = Jac_FULL(5250,4917) - JVS(44723) = B(9434) -! JVS(44724) = Jac_FULL(5250,4918) - JVS(44724) = -B(9413) -! JVS(44725) = Jac_FULL(5250,4919) - JVS(44725) = 0 -! JVS(44726) = Jac_FULL(5250,4920) - JVS(44726) = 0 -! JVS(44727) = Jac_FULL(5250,4921) - JVS(44727) = B(14575) -! JVS(44728) = Jac_FULL(5250,4922) - JVS(44728) = 0 -! JVS(44729) = Jac_FULL(5250,4923) - JVS(44729) = 0 -! JVS(44730) = Jac_FULL(5250,4924) - JVS(44730) = B(3996) -! JVS(44731) = Jac_FULL(5250,4925) - JVS(44731) = 0 -! JVS(44732) = Jac_FULL(5250,4926) - JVS(44732) = B(16814) -! JVS(44733) = Jac_FULL(5250,4927) - JVS(44733) = B(9059)-B(9061) -! JVS(44734) = Jac_FULL(5250,4928) - JVS(44734) = 0 -! JVS(44735) = Jac_FULL(5250,4929) - JVS(44735) = 0 -! JVS(44736) = Jac_FULL(5250,4930) - JVS(44736) = B(9545) -! JVS(44737) = Jac_FULL(5250,4931) - JVS(44737) = -B(7664) -! JVS(44738) = Jac_FULL(5250,4932) - JVS(44738) = 0 -! JVS(44739) = Jac_FULL(5250,4933) - JVS(44739) = -B(6558) -! JVS(44740) = Jac_FULL(5250,4934) - JVS(44740) = B(15024) -! JVS(44741) = Jac_FULL(5250,4935) - JVS(44741) = 0 -! JVS(44742) = Jac_FULL(5250,4936) - JVS(44742) = B(1527) -! JVS(44743) = Jac_FULL(5250,4937) - JVS(44743) = 0 -! JVS(44744) = Jac_FULL(5250,4938) - JVS(44744) = -B(7015) -! JVS(44745) = Jac_FULL(5250,4939) - JVS(44745) = -B(13897) -! JVS(44746) = Jac_FULL(5250,4940) - JVS(44746) = 0 -! JVS(44747) = Jac_FULL(5250,4941) - JVS(44747) = 0 -! JVS(44748) = Jac_FULL(5250,4942) - JVS(44748) = 0 -! JVS(44749) = Jac_FULL(5250,4943) - JVS(44749) = 0 -! JVS(44750) = Jac_FULL(5250,4944) - JVS(44750) = B(1409) -! JVS(44751) = Jac_FULL(5250,4945) - JVS(44751) = -B(13855)-B(13857)-B(13859)-B(13861)-B(13863) -! JVS(44752) = Jac_FULL(5250,4946) - JVS(44752) = B(13373) -! JVS(44753) = Jac_FULL(5250,4947) - JVS(44753) = 0 -! JVS(44754) = Jac_FULL(5250,4948) - JVS(44754) = B(6062) -! JVS(44755) = Jac_FULL(5250,4949) - JVS(44755) = B(7606) -! JVS(44756) = Jac_FULL(5250,4950) - JVS(44756) = 0 -! JVS(44757) = Jac_FULL(5250,4951) - JVS(44757) = -B(8668) -! JVS(44758) = Jac_FULL(5250,4952) - JVS(44758) = -B(8838) -! JVS(44759) = Jac_FULL(5250,4953) - JVS(44759) = B(14454) -! JVS(44760) = Jac_FULL(5250,4954) - JVS(44760) = B(1449) -! JVS(44761) = Jac_FULL(5250,4955) - JVS(44761) = B(22536) -! JVS(44762) = Jac_FULL(5250,4956) - JVS(44762) = 0 -! JVS(44763) = Jac_FULL(5250,4957) - JVS(44763) = B(17422) -! JVS(44764) = Jac_FULL(5250,4958) - JVS(44764) = -B(10456) -! JVS(44765) = Jac_FULL(5250,4959) - JVS(44765) = 0 -! JVS(44766) = Jac_FULL(5250,4960) - JVS(44766) = 0 -! JVS(44767) = Jac_FULL(5250,4961) - JVS(44767) = -B(5072) -! JVS(44768) = Jac_FULL(5250,4962) - JVS(44768) = B(14887) -! JVS(44769) = Jac_FULL(5250,4963) - JVS(44769) = 0 -! JVS(44770) = Jac_FULL(5250,4964) - JVS(44770) = -B(761) -! JVS(44771) = Jac_FULL(5250,4965) - JVS(44771) = 0 -! JVS(44772) = Jac_FULL(5250,4966) - JVS(44772) = B(15920) -! JVS(44773) = Jac_FULL(5250,4967) - JVS(44773) = 0 -! JVS(44774) = Jac_FULL(5250,4968) - JVS(44774) = B(12517) -! JVS(44775) = Jac_FULL(5250,4969) - JVS(44775) = B(20634) -! JVS(44776) = Jac_FULL(5250,4970) - JVS(44776) = -B(7509) -! JVS(44777) = Jac_FULL(5250,4971) - JVS(44777) = 0 -! JVS(44778) = Jac_FULL(5250,4972) - JVS(44778) = 0 -! JVS(44779) = Jac_FULL(5250,4973) - JVS(44779) = -B(3696) -! JVS(44780) = Jac_FULL(5250,4974) - JVS(44780) = 0 -! JVS(44781) = Jac_FULL(5250,4975) - JVS(44781) = -B(11823)-B(11825) -! JVS(44782) = Jac_FULL(5250,4976) - JVS(44782) = B(10511)+B(10523)+2*B(10524) -! JVS(44783) = Jac_FULL(5250,4977) - JVS(44783) = B(20283) -! JVS(44784) = Jac_FULL(5250,4978) - JVS(44784) = -B(23520) -! JVS(44785) = Jac_FULL(5250,4979) - JVS(44785) = B(17568) -! JVS(44786) = Jac_FULL(5250,4980) - JVS(44786) = 0 -! JVS(44787) = Jac_FULL(5250,4981) - JVS(44787) = 0 -! JVS(44788) = Jac_FULL(5250,4982) - JVS(44788) = 0 -! JVS(44789) = Jac_FULL(5250,4983) - JVS(44789) = B(11639)-B(11640) -! JVS(44790) = Jac_FULL(5250,4984) - JVS(44790) = B(19619) -! JVS(44791) = Jac_FULL(5250,4985) - JVS(44791) = B(9818) -! JVS(44792) = Jac_FULL(5250,4986) - JVS(44792) = B(8840) -! JVS(44793) = Jac_FULL(5250,4987) - JVS(44793) = 0 -! JVS(44794) = Jac_FULL(5250,4988) - JVS(44794) = -B(914)-B(916)-B(918) -! JVS(44795) = Jac_FULL(5250,4989) - JVS(44795) = B(14679) -! JVS(44796) = Jac_FULL(5250,4990) - JVS(44796) = B(8075) -! JVS(44797) = Jac_FULL(5250,4991) - JVS(44797) = 0 -! JVS(44798) = Jac_FULL(5250,4992) - JVS(44798) = 0 -! JVS(44799) = Jac_FULL(5250,4993) - JVS(44799) = B(12444) -! JVS(44800) = Jac_FULL(5250,4994) - JVS(44800) = B(8235) -! JVS(44801) = Jac_FULL(5250,4995) - JVS(44801) = 0 -! JVS(44802) = Jac_FULL(5250,4996) - JVS(44802) = -B(14204) -! JVS(44803) = Jac_FULL(5250,4997) - JVS(44803) = 0 -! JVS(44804) = Jac_FULL(5250,4998) - JVS(44804) = 0 -! JVS(44805) = Jac_FULL(5250,4999) - JVS(44805) = 0 -! JVS(44806) = Jac_FULL(5250,5000) - JVS(44806) = -B(1252) -! JVS(44807) = Jac_FULL(5250,5001) - JVS(44807) = 0 -! JVS(44808) = Jac_FULL(5250,5002) - JVS(44808) = B(10580)-B(10590)+B(10592)+2*B(10593) -! JVS(44809) = Jac_FULL(5250,5003) - JVS(44809) = B(20410) -! JVS(44810) = Jac_FULL(5250,5004) - JVS(44810) = B(20600) -! JVS(44811) = Jac_FULL(5250,5005) - JVS(44811) = B(20396) -! JVS(44812) = Jac_FULL(5250,5006) - JVS(44812) = B(19365) -! JVS(44813) = Jac_FULL(5250,5007) - JVS(44813) = 0 -! JVS(44814) = Jac_FULL(5250,5008) - JVS(44814) = B(7711) -! JVS(44815) = Jac_FULL(5250,5009) - JVS(44815) = -B(4969) -! JVS(44816) = Jac_FULL(5250,5010) - JVS(44816) = -B(11799)-B(11801) -! JVS(44817) = Jac_FULL(5250,5011) - JVS(44817) = 0 -! JVS(44818) = Jac_FULL(5250,5012) - JVS(44818) = -B(3893) -! JVS(44819) = Jac_FULL(5250,5013) - JVS(44819) = -B(10501) -! JVS(44820) = Jac_FULL(5250,5014) - JVS(44820) = B(14669) -! JVS(44821) = Jac_FULL(5250,5015) - JVS(44821) = 0 -! JVS(44822) = Jac_FULL(5250,5016) - JVS(44822) = 0 -! JVS(44823) = Jac_FULL(5250,5017) - JVS(44823) = B(19271) -! JVS(44824) = Jac_FULL(5250,5018) - JVS(44824) = -B(18136) -! JVS(44825) = Jac_FULL(5250,5019) - JVS(44825) = 0 -! JVS(44826) = Jac_FULL(5250,5020) - JVS(44826) = 0 -! JVS(44827) = Jac_FULL(5250,5021) - JVS(44827) = B(19093) -! JVS(44828) = Jac_FULL(5250,5022) - JVS(44828) = 0 -! JVS(44829) = Jac_FULL(5250,5023) - JVS(44829) = -B(4239) -! JVS(44830) = Jac_FULL(5250,5024) - JVS(44830) = -B(16724)-B(16726) -! JVS(44831) = Jac_FULL(5250,5025) - JVS(44831) = B(13692) -! JVS(44832) = Jac_FULL(5250,5026) - JVS(44832) = -B(7089) -! JVS(44833) = Jac_FULL(5250,5027) - JVS(44833) = B(22998) -! JVS(44834) = Jac_FULL(5250,5028) - JVS(44834) = 0 -! JVS(44835) = Jac_FULL(5250,5029) - JVS(44835) = B(11046) -! JVS(44836) = Jac_FULL(5250,5030) - JVS(44836) = 0 -! JVS(44837) = Jac_FULL(5250,5031) - JVS(44837) = -B(13248) -! JVS(44838) = Jac_FULL(5250,5032) - JVS(44838) = 0 -! JVS(44839) = Jac_FULL(5250,5033) - JVS(44839) = B(13796) -! JVS(44840) = Jac_FULL(5250,5034) - JVS(44840) = B(9313) -! JVS(44841) = Jac_FULL(5250,5035) - JVS(44841) = B(13716) -! JVS(44842) = Jac_FULL(5250,5036) - JVS(44842) = B(7940) -! JVS(44843) = Jac_FULL(5250,5037) - JVS(44843) = -B(9183) -! JVS(44844) = Jac_FULL(5250,5038) - JVS(44844) = B(7881) -! JVS(44845) = Jac_FULL(5250,5039) - JVS(44845) = 0 -! JVS(44846) = Jac_FULL(5250,5040) - JVS(44846) = 0 -! JVS(44847) = Jac_FULL(5250,5041) - JVS(44847) = 0 -! JVS(44848) = Jac_FULL(5250,5042) - JVS(44848) = -B(1057) -! JVS(44849) = Jac_FULL(5250,5043) - JVS(44849) = 0 -! JVS(44850) = Jac_FULL(5250,5044) - JVS(44850) = B(20942) -! JVS(44851) = Jac_FULL(5250,5045) - JVS(44851) = 0 -! JVS(44852) = Jac_FULL(5250,5046) - JVS(44852) = -B(31)+2*B(66) -! JVS(44853) = Jac_FULL(5250,5047) - JVS(44853) = 0 -! JVS(44854) = Jac_FULL(5250,5048) - JVS(44854) = 0 -! JVS(44855) = Jac_FULL(5250,5049) - JVS(44855) = -B(6663)-B(6665) -! JVS(44856) = Jac_FULL(5250,5050) - JVS(44856) = -B(6635)-B(6637) -! JVS(44857) = Jac_FULL(5250,5051) - JVS(44857) = -B(449)-B(451) -! JVS(44858) = Jac_FULL(5250,5052) - JVS(44858) = B(19414) -! JVS(44859) = Jac_FULL(5250,5053) - JVS(44859) = 0 -! JVS(44860) = Jac_FULL(5250,5054) - JVS(44860) = B(23636) -! JVS(44861) = Jac_FULL(5250,5055) - JVS(44861) = -B(4141)-B(4143) -! JVS(44862) = Jac_FULL(5250,5056) - JVS(44862) = 0 -! JVS(44863) = Jac_FULL(5250,5057) - JVS(44863) = -B(3868) -! JVS(44864) = Jac_FULL(5250,5058) - JVS(44864) = -B(5262)-B(5264) -! JVS(44865) = Jac_FULL(5250,5059) - JVS(44865) = 0 -! JVS(44866) = Jac_FULL(5250,5060) - JVS(44866) = 0 -! JVS(44867) = Jac_FULL(5250,5061) - JVS(44867) = 0 -! JVS(44868) = Jac_FULL(5250,5062) - JVS(44868) = 0 -! JVS(44869) = Jac_FULL(5250,5063) - JVS(44869) = -B(11900)-B(11902) -! JVS(44870) = Jac_FULL(5250,5064) - JVS(44870) = -B(11876)-B(11878) -! JVS(44871) = Jac_FULL(5250,5065) - JVS(44871) = 0 -! JVS(44872) = Jac_FULL(5250,5066) - JVS(44872) = -B(9422)-B(9424) -! JVS(44873) = Jac_FULL(5250,5067) - JVS(44873) = -B(4879) -! JVS(44874) = Jac_FULL(5250,5068) - JVS(44874) = -B(9532)-B(9534) -! JVS(44875) = Jac_FULL(5250,5069) - JVS(44875) = -B(6715)-B(6717) -! JVS(44876) = Jac_FULL(5250,5070) - JVS(44876) = 0 -! JVS(44877) = Jac_FULL(5250,5071) - JVS(44877) = -B(3732) -! JVS(44878) = Jac_FULL(5250,5072) - JVS(44878) = -B(22904)-B(22906) -! JVS(44879) = Jac_FULL(5250,5073) - JVS(44879) = B(20825) -! JVS(44880) = Jac_FULL(5250,5074) - JVS(44880) = 0 -! JVS(44881) = Jac_FULL(5250,5075) - JVS(44881) = B(18837) -! JVS(44882) = Jac_FULL(5250,5076) - JVS(44882) = -B(8921)-B(8923) -! JVS(44883) = Jac_FULL(5250,5077) - JVS(44883) = 0 -! JVS(44884) = Jac_FULL(5250,5078) - JVS(44884) = 0 -! JVS(44885) = Jac_FULL(5250,5079) - JVS(44885) = B(16804) -! JVS(44886) = Jac_FULL(5250,5080) - JVS(44886) = -B(10472) -! JVS(44887) = Jac_FULL(5250,5081) - JVS(44887) = 0 -! JVS(44888) = Jac_FULL(5250,5082) - JVS(44888) = 0 -! JVS(44889) = Jac_FULL(5250,5083) - JVS(44889) = -B(14435)-B(14437) -! JVS(44890) = Jac_FULL(5250,5084) - JVS(44890) = 0 -! JVS(44891) = Jac_FULL(5250,5085) - JVS(44891) = -B(20854) -! JVS(44892) = Jac_FULL(5250,5086) - JVS(44892) = -B(19107) -! JVS(44893) = Jac_FULL(5250,5087) - JVS(44893) = -B(1227) -! JVS(44894) = Jac_FULL(5250,5088) - JVS(44894) = B(15267) -! JVS(44895) = Jac_FULL(5250,5089) - JVS(44895) = -B(9045)-B(9047) -! JVS(44896) = Jac_FULL(5250,5090) - JVS(44896) = B(15140) -! JVS(44897) = Jac_FULL(5250,5091) - JVS(44897) = B(13910) -! JVS(44898) = Jac_FULL(5250,5092) - JVS(44898) = 0 -! JVS(44899) = Jac_FULL(5250,5093) - JVS(44899) = -B(6679)-B(6681) -! JVS(44900) = Jac_FULL(5250,5094) - JVS(44900) = -B(4314) -! JVS(44901) = Jac_FULL(5250,5095) - JVS(44901) = -B(19324)-B(19326) -! JVS(44902) = Jac_FULL(5250,5096) - JVS(44902) = 0 -! JVS(44903) = Jac_FULL(5250,5097) - JVS(44903) = 0 -! JVS(44904) = Jac_FULL(5250,5098) - JVS(44904) = 0 -! JVS(44905) = Jac_FULL(5250,5099) - JVS(44905) = B(11265) -! JVS(44906) = Jac_FULL(5250,5100) - JVS(44906) = B(7965) -! JVS(44907) = Jac_FULL(5250,5101) - JVS(44907) = B(7680) -! JVS(44908) = Jac_FULL(5250,5102) - JVS(44908) = 0 -! JVS(44909) = Jac_FULL(5250,5103) - JVS(44909) = -B(10062) -! JVS(44910) = Jac_FULL(5250,5104) - JVS(44910) = 0 -! JVS(44911) = Jac_FULL(5250,5105) - JVS(44911) = -B(16778) -! JVS(44912) = Jac_FULL(5250,5106) - JVS(44912) = B(1367) -! JVS(44913) = Jac_FULL(5250,5107) - JVS(44913) = 0 -! JVS(44914) = Jac_FULL(5250,5108) - JVS(44914) = 0 -! JVS(44915) = Jac_FULL(5250,5109) - JVS(44915) = 0 -! JVS(44916) = Jac_FULL(5250,5110) - JVS(44916) = -B(14103) -! JVS(44917) = Jac_FULL(5250,5111) - JVS(44917) = B(20610) -! JVS(44918) = Jac_FULL(5250,5112) - JVS(44918) = 0 -! JVS(44919) = Jac_FULL(5250,5113) - JVS(44919) = -B(22948) -! JVS(44920) = Jac_FULL(5250,5114) - JVS(44920) = 0 -! JVS(44921) = Jac_FULL(5250,5115) - JVS(44921) = -B(11787)-B(11789) -! JVS(44922) = Jac_FULL(5250,5116) - JVS(44922) = 0 -! JVS(44923) = Jac_FULL(5250,5117) - JVS(44923) = B(10877) -! JVS(44924) = Jac_FULL(5250,5118) - JVS(44924) = 0 -! JVS(44925) = Jac_FULL(5250,5119) - JVS(44925) = 0 -! JVS(44926) = Jac_FULL(5250,5120) - JVS(44926) = 0 -! JVS(44927) = Jac_FULL(5250,5121) - JVS(44927) = 0 -! JVS(44928) = Jac_FULL(5250,5122) - JVS(44928) = 0 -! JVS(44929) = Jac_FULL(5250,5123) - JVS(44929) = -B(8828)-B(8830) -! JVS(44930) = Jac_FULL(5250,5124) - JVS(44930) = -B(427) -! JVS(44931) = Jac_FULL(5250,5125) - JVS(44931) = B(1331) -! JVS(44932) = Jac_FULL(5250,5126) - JVS(44932) = -B(9301)-B(9303) -! JVS(44933) = Jac_FULL(5250,5127) - JVS(44933) = 0 -! JVS(44934) = Jac_FULL(5250,5128) - JVS(44934) = B(1495) -! JVS(44935) = Jac_FULL(5250,5129) - JVS(44935) = 0 -! JVS(44936) = Jac_FULL(5250,5130) - JVS(44936) = 0 -! JVS(44937) = Jac_FULL(5250,5131) - JVS(44937) = B(19404) -! JVS(44938) = Jac_FULL(5250,5132) - JVS(44938) = 0 -! JVS(44939) = Jac_FULL(5250,5133) - JVS(44939) = B(11646) -! JVS(44940) = Jac_FULL(5250,5134) - JVS(44940) = 0 -! JVS(44941) = Jac_FULL(5250,5135) - JVS(44941) = 0 -! JVS(44942) = Jac_FULL(5250,5136) - JVS(44942) = B(7629) -! JVS(44943) = Jac_FULL(5250,5137) - JVS(44943) = B(7846) -! JVS(44944) = Jac_FULL(5250,5138) - JVS(44944) = 0 -! JVS(44945) = Jac_FULL(5250,5139) - JVS(44945) = -B(7027) -! JVS(44946) = Jac_FULL(5250,5140) - JVS(44946) = -B(11756)-B(11758) -! JVS(44947) = Jac_FULL(5250,5141) - JVS(44947) = -B(10145)-B(10147) -! JVS(44948) = Jac_FULL(5250,5142) - JVS(44948) = 0 -! JVS(44949) = Jac_FULL(5250,5143) - JVS(44949) = -B(4210) -! JVS(44950) = Jac_FULL(5250,5144) - JVS(44950) = 0 -! JVS(44951) = Jac_FULL(5250,5145) - JVS(44951) = 0 -! JVS(44952) = Jac_FULL(5250,5146) - JVS(44952) = 0 -! JVS(44953) = Jac_FULL(5250,5147) - JVS(44953) = 0 -! JVS(44954) = Jac_FULL(5250,5148) - JVS(44954) = 0 -! JVS(44955) = Jac_FULL(5250,5149) - JVS(44955) = 0 -! JVS(44956) = Jac_FULL(5250,5150) - JVS(44956) = 0 -! JVS(44957) = Jac_FULL(5250,5151) - JVS(44957) = 0 -! JVS(44958) = Jac_FULL(5250,5152) - JVS(44958) = B(8425) -! JVS(44959) = Jac_FULL(5250,5153) - JVS(44959) = -B(771)-B(773)-B(775) -! JVS(44960) = Jac_FULL(5250,5154) - JVS(44960) = 0 -! JVS(44961) = Jac_FULL(5250,5155) - JVS(44961) = B(7922) -! JVS(44962) = Jac_FULL(5250,5156) - JVS(44962) = 0 -! JVS(44963) = Jac_FULL(5250,5157) - JVS(44963) = -B(7100) -! JVS(44964) = Jac_FULL(5250,5158) - JVS(44964) = B(7794) -! JVS(44965) = Jac_FULL(5250,5159) - JVS(44965) = -B(19136)-B(19138) -! JVS(44966) = Jac_FULL(5250,5160) - JVS(44966) = -B(811) -! JVS(44967) = Jac_FULL(5250,5161) - JVS(44967) = 0 -! JVS(44968) = Jac_FULL(5250,5162) - JVS(44968) = -B(4491) -! JVS(44969) = Jac_FULL(5250,5163) - JVS(44969) = 0 -! JVS(44970) = Jac_FULL(5250,5164) - JVS(44970) = B(7809) -! JVS(44971) = Jac_FULL(5250,5165) - JVS(44971) = -B(208)-B(210) -! JVS(44972) = Jac_FULL(5250,5166) - JVS(44972) = -B(787)-B(789)-B(791)-B(793)-B(795)-B(797)-B(799) -! JVS(44973) = Jac_FULL(5250,5167) - JVS(44973) = B(16694) -! JVS(44974) = Jac_FULL(5250,5168) - JVS(44974) = -B(6706) -! JVS(44975) = Jac_FULL(5250,5169) - JVS(44975) = -B(11194)-B(11196) -! JVS(44976) = Jac_FULL(5250,5170) - JVS(44976) = 0 -! JVS(44977) = Jac_FULL(5250,5171) - JVS(44977) = B(18978) -! JVS(44978) = Jac_FULL(5250,5172) - JVS(44978) = B(18758) -! JVS(44979) = Jac_FULL(5250,5173) - JVS(44979) = 0 -! JVS(44980) = Jac_FULL(5250,5174) - JVS(44980) = B(13830) -! JVS(44981) = Jac_FULL(5250,5175) - JVS(44981) = -B(11257)-B(11259) -! JVS(44982) = Jac_FULL(5250,5176) - JVS(44982) = -B(14412)-B(14414) -! JVS(44983) = Jac_FULL(5250,5177) - JVS(44983) = -B(22521) -! JVS(44984) = Jac_FULL(5250,5178) - JVS(44984) = -B(814)-B(816)-B(818) -! JVS(44985) = Jac_FULL(5250,5179) - JVS(44985) = B(17486) -! JVS(44986) = Jac_FULL(5250,5180) - JVS(44986) = -B(4817) -! JVS(44987) = Jac_FULL(5250,5181) - JVS(44987) = 0 -! JVS(44988) = Jac_FULL(5250,5182) - JVS(44988) = -B(17416) -! JVS(44989) = Jac_FULL(5250,5183) - JVS(44989) = B(1304) -! JVS(44990) = Jac_FULL(5250,5184) - JVS(44990) = -B(3651) -! JVS(44991) = Jac_FULL(5250,5185) - JVS(44991) = 0 -! JVS(44992) = Jac_FULL(5250,5186) - JVS(44992) = 0 -! JVS(44993) = Jac_FULL(5250,5187) - JVS(44993) = -B(22990)-B(22992) -! JVS(44994) = Jac_FULL(5250,5188) - JVS(44994) = -B(1222) -! JVS(44995) = Jac_FULL(5250,5189) - JVS(44995) = -B(21958)-B(21960) -! JVS(44996) = Jac_FULL(5250,5190) - JVS(44996) = -B(485)-B(487) -! JVS(44997) = Jac_FULL(5250,5191) - JVS(44997) = -B(186) -! JVS(44998) = Jac_FULL(5250,5192) - JVS(44998) = 0 -! JVS(44999) = Jac_FULL(5250,5193) - JVS(44999) = -B(180)-B(182) -! JVS(45000) = Jac_FULL(5250,5194) - JVS(45000) = -B(215)-B(217)-B(219) -! JVS(45001) = Jac_FULL(5250,5195) - JVS(45001) = 0 -! JVS(45002) = Jac_FULL(5250,5196) - JVS(45002) = 0 -! JVS(45003) = Jac_FULL(5250,5197) - JVS(45003) = 0 -! JVS(45004) = Jac_FULL(5250,5198) - JVS(45004) = 0 -! JVS(45005) = Jac_FULL(5250,5199) - JVS(45005) = -B(13307) -! JVS(45006) = Jac_FULL(5250,5200) - JVS(45006) = -B(437)-B(439) -! JVS(45007) = Jac_FULL(5250,5201) - JVS(45007) = -B(54)+B(71) -! JVS(45008) = Jac_FULL(5250,5202) - JVS(45008) = 0 -! JVS(45009) = Jac_FULL(5250,5203) - JVS(45009) = -B(199)-B(201)-B(203) -! JVS(45010) = Jac_FULL(5250,5204) - JVS(45010) = 0 -! JVS(45011) = Jac_FULL(5250,5205) - JVS(45011) = -B(10533)-B(10535)-B(10537)-B(10539) -! JVS(45012) = Jac_FULL(5250,5206) - JVS(45012) = 0 -! JVS(45013) = Jac_FULL(5250,5207) - JVS(45013) = -B(11394)-B(11396) -! JVS(45014) = Jac_FULL(5250,5208) - JVS(45014) = 0 -! JVS(45015) = Jac_FULL(5250,5209) - JVS(45015) = -B(8813)-B(8815)-B(8817) -! JVS(45016) = Jac_FULL(5250,5210) - JVS(45016) = -B(4369) -! JVS(45017) = Jac_FULL(5250,5211) - JVS(45017) = -B(14930) -! JVS(45018) = Jac_FULL(5250,5212) - JVS(45018) = -B(11230)-B(11232) -! JVS(45019) = Jac_FULL(5250,5213) - JVS(45019) = -B(11034)-B(11036) -! JVS(45020) = Jac_FULL(5250,5214) - JVS(45020) = B(16846) -! JVS(45021) = Jac_FULL(5250,5215) - JVS(45021) = -B(3476)-B(3478)-B(3480)-B(3482) -! JVS(45022) = Jac_FULL(5250,5216) - JVS(45022) = B(7902) -! JVS(45023) = Jac_FULL(5250,5217) - JVS(45023) = 0 -! JVS(45024) = Jac_FULL(5250,5218) - JVS(45024) = 0 -! JVS(45025) = Jac_FULL(5250,5219) - JVS(45025) = B(6798) -! JVS(45026) = Jac_FULL(5250,5220) - JVS(45026) = -B(10602)-B(10604)-B(10606)-B(10608) -! JVS(45027) = Jac_FULL(5250,5221) - JVS(45027) = -B(4297)-B(4299) -! JVS(45028) = Jac_FULL(5250,5222) - JVS(45028) = -B(1514) -! JVS(45029) = Jac_FULL(5250,5223) - JVS(45029) = 0 -! JVS(45030) = Jac_FULL(5250,5224) - JVS(45030) = B(6826) -! JVS(45031) = Jac_FULL(5250,5225) - JVS(45031) = -B(10462)-B(10464) -! JVS(45032) = Jac_FULL(5250,5226) - JVS(45032) = -B(236)-B(238)-B(240) -! JVS(45033) = Jac_FULL(5250,5227) - JVS(45033) = -B(3108)-B(3110) -! JVS(45034) = Jac_FULL(5250,5228) - JVS(45034) = 0 -! JVS(45035) = Jac_FULL(5250,5229) - JVS(45035) = 0 -! JVS(45036) = Jac_FULL(5250,5230) - JVS(45036) = -B(191)-B(193) -! JVS(45037) = Jac_FULL(5250,5231) - JVS(45037) = -B(175) -! JVS(45038) = Jac_FULL(5250,5232) - JVS(45038) = B(3982) -! JVS(45039) = Jac_FULL(5250,5233) - JVS(45039) = -B(1487) -! JVS(45040) = Jac_FULL(5250,5234) - JVS(45040) = -B(1217)-B(1219) -! JVS(45041) = Jac_FULL(5250,5235) - JVS(45041) = 0 -! JVS(45042) = Jac_FULL(5250,5236) - JVS(45042) = 0 -! JVS(45043) = Jac_FULL(5250,5237) - JVS(45043) = B(7592) -! JVS(45044) = Jac_FULL(5250,5238) - JVS(45044) = 0 -! JVS(45045) = Jac_FULL(5250,5239) - JVS(45045) = 0 -! JVS(45046) = Jac_FULL(5250,5240) - JVS(45046) = -B(14739) -! JVS(45047) = Jac_FULL(5250,5241) - JVS(45047) = B(3196) -! JVS(45048) = Jac_FULL(5250,5242) - JVS(45048) = -B(4135) -! JVS(45049) = Jac_FULL(5250,5243) - JVS(45049) = B(4037) -! JVS(45050) = Jac_FULL(5250,5244) - JVS(45050) = B(1205) -! JVS(45051) = Jac_FULL(5250,5245) - JVS(45051) = B(22723) -! JVS(45052) = Jac_FULL(5250,5246) - JVS(45052) = 0 -! JVS(45053) = Jac_FULL(5250,5247) - JVS(45053) = 0 -! JVS(45054) = Jac_FULL(5250,5248) - JVS(45054) = -B(11287)-B(11289)-B(11291)-B(11293)-B(11295) -! JVS(45055) = Jac_FULL(5250,5249) - JVS(45055) = -B(11434)-B(11436) -! JVS(45056) = Jac_FULL(5250,5250) - JVS(45056) = -B(25)-B(28)-B(29)-B(32)-B(35)-B(38)-B(40)-B(42)-B(49)-B(53)-B(55)-B(58)-B(75)-B(77)-B(79)-B(81)-B(83)& - &-B(85)-B(87)-B(89)-B(91)-B(93)-B(95)-B(97)-B(99)-B(101)-B(103)-B(105)-B(107)-B(109)-B(111)-B(113)-B(115)& - &-B(117)-B(119)-B(121)-B(123)-B(125)-B(127)-B(129)-B(131)-B(133)-B(135)-B(137)-B(139)-B(141)-B(143)-B(145)& - &-B(147)-B(149)-B(151)-B(154)-B(156)-B(158)-B(168)-B(170)-B(176)-B(181)-B(183)-B(187)-B(192)-B(194)-B(200)& - &-B(202)-B(204)-B(209)-B(211)-B(216)-B(218)-B(220)-B(237)-B(239)-B(241)-B(253)-B(255)-B(257)-B(262)-B(266)& - &-B(272)-B(274)-B(280)-B(282)-B(288)-B(290)-B(298)-B(300)-B(302)-B(310)-B(312)-B(314)-B(318)-B(326)-B(328)& - &-B(330)-B(340)-B(342)-B(344)-B(346)-B(354)-B(356)-B(358)-B(366)-B(368)-B(370)-B(376)-B(378)-B(382)-B(388)& - &-B(390)-B(396)-B(398)-B(402)-B(406)-B(410)-B(414)-B(418)-B(422)-B(428)-B(438)-B(440)-B(450)-B(452)-B(458)& - &-B(464)-B(474)-B(476)-B(486)-B(488)-B(498)-B(500)-B(510)-B(512)-B(522)-B(524)-B(534)-B(536)-B(546)-B(548)& - &-B(558)-B(560)-B(570)-B(572)-B(582)-B(584)-B(590)-B(594)-B(596)-B(598)-B(600)-B(602)-B(604)-B(606)-B(608)& - &-B(612)-B(614)-B(616)-B(618)-B(622)-B(624)-B(626)-B(628)-B(632)-B(634)-B(636)-B(638)-B(642)-B(644)-B(646)& - &-B(648)-B(652)-B(654)-B(656)-B(658)-B(662)-B(664)-B(666)-B(668)-B(672)-B(674)-B(676)-B(678)-B(682)-B(684)& - &-B(686)-B(688)-B(692)-B(694)-B(696)-B(698)-B(702)-B(704)-B(706)-B(708)-B(712)-B(714)-B(716)-B(718)-B(722)& - &-B(724)-B(726)-B(728)-B(732)-B(734)-B(736)-B(738)-B(742)-B(744)-B(746)-B(748)-B(756)-B(762)-B(772)-B(774)& - &-B(776)-B(788)-B(790)-B(792)-B(794)-B(796)-B(798)-B(800)-B(804)-B(808)-B(810)-B(812)-B(815)-B(817)-B(819)& - &-B(822)-B(824)-B(827)-B(829)-B(833)-B(835)-B(837)-B(839)-B(841)-B(844)-B(846)-B(848)-B(850)-B(853)-B(855)& - &-B(859)-B(861)-B(873)-B(875)-B(877)-B(887)-B(889)-B(891)-B(899)-B(901)-B(903)-B(915)-B(917)-B(919)-B(1058)& - &-B(1083)-B(1085)-B(1218)-B(1220)-B(1223)-B(1228)-B(1253)-B(1488)-B(1515)-B(2341)-B(2358)-B(2360)-B(2368)& - &-B(2370)-B(2372)-B(2391)-B(2393)-B(2395)-B(2412)-B(2414)-B(2443)-B(2445)-B(2455)-B(2457)-B(2459)-B(2487)& - &-B(2489)-B(2499)-B(2501)-B(2503)-B(2530)-B(2532)-B(2542)-B(2544)-B(2546)-B(2565)-B(2567)-B(2569)-B(2586)& - &-B(2588)-B(2609)-B(2611)-B(2613)-B(2630)-B(2632)-B(2652)-B(2654)-B(2656)-B(2673)-B(2675)-B(2696)-B(2698)& - &-B(2700)-B(2715)-B(2746)-B(2748)-B(2750)-B(2756)-B(2758)-B(2788)-B(2790)-B(2796)-B(2798)-B(2827)-B(2829)& - &-B(2839)-B(2841)-B(2843)-B(2860)-B(2862)-B(2872)-B(2874)-B(2876)-B(2892)-B(2894)-B(2904)-B(2906)-B(2908)& - &-B(2936)-B(2938)-B(2946)-B(2948)-B(2965)-B(2967)-B(2984)-B(2986)-B(3109)-B(3111)-B(3142)-B(3144)-B(3153)& - &-B(3477)-B(3479)-B(3481)-B(3483)-B(3631)-B(3636)-B(3641)-B(3646)-B(3652)-B(3654)-B(3658)-B(3662)-B(3666)& - &-B(3670)-B(3674)-B(3677)-B(3680)-B(3683)-B(3687)-B(3690)-B(3695)-B(3697)-B(3702)-B(3706)-B(3708)-B(3711)& - &-B(3713)-B(3716)-B(3719)-B(3723)-B(3726)-B(3733)-B(3735)-B(3739)-B(3742)-B(3748)-B(3751)-B(3754)-B(3759)& - &-B(3761)-B(3765)-B(3768)-B(3771)-B(3773)-B(3794)-B(3797)-B(3800)-B(3802)-B(3805)-B(3808)-B(3835)-B(3838)& - &-B(3841)-B(3843)-B(3848)-B(3851)-B(3853)-B(3859)-B(3862)-B(3869)-B(3871)-B(3876)-B(3880)-B(3882)-B(3884)& - &-B(3889)-B(3894)-B(3898)-B(3903)-B(3910)-B(3912)-B(3914)-B(3916)-B(3919)-B(3922)-B(3928)-B(3930)-B(3932)& - &-B(3937)-B(3942)-B(3945)-B(3950)-B(3954)-B(3957)-B(3960)-B(3962)-B(3967)-B(3972)-B(3975)-B(3977)-B(3980)& - &-B(4010)-B(4014)-B(4016)-B(4020)-B(4024)-B(4026)-B(4064)-B(4068)-B(4071)-B(4075)-B(4079)-B(4083)-B(4088)& - &-B(4094)-B(4099)-B(4102)-B(4104)-B(4108)-B(4113)-B(4115)-B(4117)-B(4120)-B(4123)-B(4129)-B(4136)-B(4142)& - &-B(4144)-B(4149)-B(4152)-B(4155)-B(4157)-B(4160)-B(4163)-B(4168)-B(4174)-B(4177)-B(4185)-B(4188)-B(4191)& - &-B(4193)-B(4196)-B(4199)-B(4204)-B(4211)-B(4216)-B(4219)-B(4223)-B(4226)-B(4231)-B(4240)-B(4242)-B(4244)& - &-B(4247)-B(4251)-B(4267)-B(4274)-B(4279)-B(4281)-B(4283)-B(4298)-B(4300)-B(4305)-B(4312)-B(4315)-B(4318)& - &-B(4321)-B(4323)-B(4328)-B(4334)-B(4338)-B(4343)-B(4347)-B(4364)-B(4370)-B(4377)-B(4382)-B(4385)-B(4391)& - &-B(4396)-B(4399)-B(4402)-B(4407)-B(4410)-B(4414)-B(4418)-B(4421)-B(4426)-B(4431)-B(4439)-B(4442)-B(4447)& - &-B(4452)-B(4457)-B(4460)-B(4464)-B(4469)-B(4472)-B(4476)-B(4482)-B(4485)-B(4492)-B(4494)-B(4499)-B(4502)& - &-B(4505)-B(4511)-B(4515)-B(4520)-B(4523)-B(4529)-B(4531)-B(4534)-B(4539)-B(4543)-B(4548)-B(4551)-B(4558)& - &-B(4560)-B(4562)-B(4565)-B(4568)-B(4572)-B(4577)-B(4580)-B(4586)-B(4588)-B(4593)-B(4596)-B(4601)-B(4603)& - &-B(4605)-B(4608)-B(4611)-B(4614)-B(4617)-B(4622)-B(4626)-B(4631)-B(4634)-B(4640)-B(4642)-B(4647)-B(4650)& - &-B(4657)-B(4659)-B(4662)-B(4665)-B(4668)-B(4671)-B(4676)-B(4680)-B(4685)-B(4691)-B(4695)-B(4697)-B(4703)& - &-B(4707)-B(4709)-B(4712)-B(4715)-B(4718)-B(4724)-B(4728)-B(4730)-B(4733)-B(4736)-B(4739)-B(4745)-B(4749)& - &-B(4751)-B(4757)-B(4761)-B(4763)-B(4769)-B(4773)-B(4775)-B(4780)-B(4784)-B(4787)-B(4793)-B(4797)-B(4799)& - &-B(4805)-B(4809)-B(4818)-B(4823)-B(4830)-B(4835)-B(4840)-B(4843)-B(4848)-B(4851)-B(4853)-B(4858)-B(4874)& - &-B(4880)-B(4888)-B(4891)-B(4895)-B(4902)-B(4917)-B(4922)-B(4925)-B(4929)-B(4936)-B(4939)-B(4953)-B(4957)& - &-B(4960)-B(4964)-B(4970)-B(4975)-B(4980)-B(4985)-B(4990)-B(4993)-B(4997)-B(5001)-B(5004)-B(5013)-B(5017)& - &-B(5030)-B(5037)-B(5040)-B(5045)-B(5052)-B(5067)-B(5073)-B(5076)-B(5083)-B(5086)-B(5092)-B(5098)-B(5101)& - &-B(5105)-B(5110)-B(5113)-B(5127)-B(5131)-B(5134)-B(5139)-B(5145)-B(5149)-B(5154)-B(5157)-B(5161)-B(5166)& - &-B(5169)-B(5171)-B(5177)-B(5179)-B(5182)-B(5188)-B(5191)-B(5195)-B(5197)-B(5201)-B(5206)-B(5211)-B(5213)& - &-B(5232)-B(5263)-B(5265)-B(5285)-B(5298)-B(5302)-B(5328)-B(5338)-B(5341)-B(5343)-B(5387)-B(5393)-B(5397)& - &-B(5399)-B(5402)-B(5411)-B(5429)-B(5475)-B(5480)-B(5486)-B(5490)-B(5495)-B(5503)-B(5505)-B(5507)-B(5527)& - &-B(5574)-B(5579)-B(5585)-B(5589)-B(5591)-B(5594)-B(5600)-B(5659)-B(5665)-B(5668)-B(5672)-B(5699)-B(5708)& - &-B(5711)-B(5713)-B(5757)-B(5761)-B(5763)-B(5790)-B(5799)-B(5802)-B(5804)-B(5845)-B(5848)-B(5852)-B(5878)& - &-B(5887)-B(5890)-B(5892)-B(5936)-B(5942)-B(5946)-B(5972)-B(5977)-B(5986)-B(5988)-B(5993)-B(6011)-B(6017)& - &-B(6021)-B(6023)-B(6026)-B(6035)-B(6061)-B(6099)-B(6105)-B(6109)-B(6114)-B(6119)-B(6121)-B(6158)-B(6186)& - &-B(6190)-B(6192)-B(6195)-B(6198)-B(6207)-B(6225)-B(6271)-B(6273)-B(6276)-B(6284)-B(6286)-B(6347)-B(6349)& - &-B(6352)-B(6359)-B(6418)-B(6423)-B(6427)-B(6429)-B(6432)-B(6435)-B(6442)-B(6444)-B(6503)-B(6507)-B(6509)& - &-B(6530)-B(6533)-B(6538)-B(6540)-B(6559)-B(6582)-B(6595)-B(6599)-B(6602)-B(6604)-B(6607)-B(6614)-B(6617)& - &-B(6623)-B(6627)-B(6636)-B(6638)-B(6654)-B(6664)-B(6666)-B(6671)-B(6674)-B(6680)-B(6682)-B(6693)-B(6699)& - &-B(6707)-B(6716)-B(6718)-B(6832)-B(6839)-B(6841)-B(6844)-B(6944)-B(6946)-B(6948)-B(6952)-B(6957)-B(6959)& - &-B(6961)-B(6963)-B(6967)-B(6972)-B(6980)-B(6982)-B(6984)-B(6988)-B(6992)-B(7000)-B(7003)-B(7010)-B(7016)& - &-B(7020)-B(7028)-B(7032)-B(7037)-B(7040)-B(7043)-B(7048)-B(7053)-B(7058)-B(7065)-B(7068)-B(7072)-B(7076)& - &-B(7083)-B(7090)-B(7094)-B(7097)-B(7101)-B(7105)-B(7110)-B(7113)-B(7119)-B(7122)-B(7124)-B(7128)-B(7133)& - &-B(7138)-B(7142)-B(7146)-B(7151)-B(7156)-B(7159)-B(7164)-B(7171)-B(7174)-B(7180)-B(7184)-B(7187)-B(7190)& - &-B(7197)-B(7202)-B(7205)-B(7212)-B(7219)-B(7222)-B(7227)-B(7232)-B(7235)-B(7238)-B(7242)-B(7244)-B(7251)& - &-B(7253)-B(7294)-B(7298)-B(7304)-B(7306)-B(7309)-B(7313)-B(7315)-B(7319)-B(7325)-B(7329)-B(7373)-B(7384)& - &-B(7388)-B(7396)-B(7399)-B(7402)-B(7406)-B(7408)-B(7412)-B(7453)-B(7456)-B(7459)-B(7465)-B(7467)-B(7470)& - &-B(7473)-B(7475)-B(7479)-B(7488)-B(7490)-B(7492)-B(7494)-B(7496)-B(7504)-B(7510)-B(7534)-B(7567)-B(7570)& - &-B(7573)-B(7579)-B(7581)-B(7584)-B(7587)-B(7639)-B(7642)-B(7645)-B(7647)-B(7649)-B(7652)-B(7655)-B(7658)& - &-B(7665)-B(7728)-B(7730)-B(7733)-B(7736)-B(7747)-B(7749)-B(7752)-B(7755)-B(7758)-B(7773)-B(7776)-B(7779)& - &-B(7781)-B(7897)-B(7914)-B(7916)-B(7918)-B(7920)-B(8669)-B(8685)-B(8688)-B(8691)-B(8720)-B(8725)-B(8728)& - &-B(8736)-B(8739)-B(8753)-B(8755)-B(8760)-B(8768)-B(8773)-B(8775)-B(8780)-B(8782)-B(8787)-B(8792)-B(8814)& - &-B(8816)-B(8818)-B(8829)-B(8831)-B(8839)-B(8855)-B(8858)-B(8861)-B(8877)-B(8882)-B(8885)-B(8893)-B(8896)& - &-B(8913)-B(8922)-B(8924)-B(8932)-B(8934)-B(8937)-B(8940)-B(8967)-B(8972)-B(8975)-B(8978)-B(8984)-B(8988)& - &-B(8993)-B(8998)-B(9007)-B(9012)-B(9046)-B(9048)-B(9056)-B(9062)-B(9075)-B(9078)-B(9081)-B(9109)-B(9114)& - &-B(9117)-B(9124)-B(9127)-B(9132)-B(9141)-B(9146)-B(9148)-B(9153)-B(9184)-B(9187)-B(9190)-B(9193)-B(9199)& - &-B(9204)-B(9207)-B(9210)-B(9216)-B(9220)-B(9225)-B(9230)-B(9239)-B(9244)-B(9267)-B(9276)-B(9281)-B(9283)& - &-B(9288)-B(9302)-B(9304)-B(9312)-B(9328)-B(9331)-B(9334)-B(9350)-B(9355)-B(9358)-B(9366)-B(9369)-B(9381)& - &-B(9386)-B(9391)-B(9400)-B(9405)-B(9414)-B(9423)-B(9425)-B(9433)-B(9449)-B(9452)-B(9455)-B(9471)-B(9476)& - &-B(9479)-B(9487)-B(9490)-B(9493)-B(9498)-B(9507)-B(9512)-B(9514)-B(9519)-B(9533)-B(9535)-B(9544)-B(9560)& - &-B(9563)-B(9566)-B(9582)-B(9587)-B(9590)-B(9598)-B(9601)-B(9618)-B(9623)-B(9628)-B(9637)-B(9641)-B(9650)& - &-B(9652)-B(9660)-B(9666)-B(9694)-B(9697)-B(9701)-B(9729)-B(9733)-B(9738)-B(9743)-B(9752)-B(9757)-B(9764)& - &-B(9767)-B(9771)-B(9779)-B(9782)-B(9785)-B(9788)-B(9794)-B(9831)-B(9836)-B(9839)-B(9843)-B(9845)-B(9848)& - &-B(9851)-B(9875)-B(9880)-B(9883)-B(9892)-B(9895)-B(9908)-B(9911)-B(9914)-B(9941)-B(9946)-B(9949)-B(9952)& - &-B(9957)-B(9961)-B(9966)-B(9971)-B(9980)-B(9985)-B(9992)-B(9995)-B(9998)-B(10004)-B(10009)-B(10012)& - &-B(10015)-B(10020)-B(10024)-B(10030)-B(10039)-B(10044)-B(10046)-B(10051)-B(10063)-B(10067)-B(10070)& - &-B(10073)-B(10079)-B(10084)-B(10087)-B(10090)-B(10096)-B(10100)-B(10105)-B(10110)-B(10119)-B(10124)& - &-B(10146)-B(10148)-B(10156)-B(10158)-B(10161)-B(10164)-B(10167)-B(10172)-B(10175)-B(10184)-B(10187)& - &-B(10190)-B(10195)-B(10198)-B(10202)-B(10224)-B(10229)-B(10232)-B(10236)-B(10249)-B(10252)-B(10255)& - &-B(10289)-B(10294)-B(10297)-B(10305)-B(10308)-B(10457)-B(10461)-B(10463)-B(10465)-B(10473)-B(10477)& - &-B(10484)-B(10492)-B(10502)-B(10534)-B(10536)-B(10538)-B(10540)-B(10542)-B(10544)-B(10549)-B(10556)& - &-B(10558)-B(10561)-B(10568)-B(10591)-B(10603)-B(10605)-B(10607)-B(10609)-B(10616)-B(10623)-B(10627)& - &-B(10662)-B(10677)-B(10680)-B(10684)-B(10687)-B(10693)-B(10697)-B(10705)-B(10711)-B(10716)-B(10765)& - &-B(10767)-B(11031)-B(11035)-B(11037)-B(11061)-B(11065)-B(11074)-B(11077)-B(11081)-B(11084)-B(11089)& - &-B(11093)-B(11098)-B(11101)-B(11128)-B(11133)-B(11135)-B(11140)-B(11144)-B(11146)-B(11148)-B(11151)& - &-B(11155)-B(11161)-B(11163)-B(11195)-B(11197)-B(11205)-B(11208)-B(11216)-B(11219)-B(11225)-B(11229)& - &-B(11231)-B(11233)-B(11236)-B(11258)-B(11260)-B(11288)-B(11290)-B(11292)-B(11294)-B(11296)-B(11309)& - &-B(11330)-B(11349)-B(11352)-B(11360)-B(11363)-B(11368)-B(11383)-B(11395)-B(11397)-B(11400)-B(11407)& - &-B(11410)-B(11416)-B(11420)-B(11423)-B(11435)-B(11437)-B(11439)-B(11442)-B(11445)-B(11447)-B(11450)& - &-B(11453)-B(11459)-B(11462)-B(11465)-B(11468)-B(11471)-B(11474)-B(11478)-B(11481)-B(11486)-B(11489)& - &-B(11492)-B(11494)-B(11497)-B(11503)-B(11505)-B(11511)-B(11513)-B(11515)-B(11518)-B(11521)-B(11557)& - &-B(11561)-B(11564)-B(11567)-B(11570)-B(11573)-B(11576)-B(11579)-B(11582)-B(11585)-B(11587)-B(11590)& - &-B(11593)-B(11601)-B(11604)-B(11607)-B(11610)-B(11615)-B(11621)-B(11623)-B(11626)-B(11628)-B(11631)& - &-B(11634)-B(11637)-B(11641)-B(11657)-B(11659)-B(11661)-B(11663)-B(11666)-B(11669)-B(11671)-B(11673)& - &-B(11675)-B(11678)-B(11681)-B(11684)-B(11689)-B(11692)-B(11698)-B(11702)-B(11704)-B(11706)-B(11711)& - &-B(11714)-B(11720)-B(11723)-B(11728)-B(11731)-B(11733)-B(11738)-B(11740)-B(11744)-B(11750)-B(11753)& - &-B(11757)-B(11759)-B(11762)-B(11764)-B(11771)-B(11774)-B(11779)-B(11782)-B(11788)-B(11790)-B(11796)& - &-B(11800)-B(11802)-B(11804)-B(11807)-B(11810)-B(11815)-B(11818)-B(11824)-B(11826)-B(11830)-B(11834)& - &-B(11840)-B(11846)-B(11849)-B(11854)-B(11857)-B(11863)-B(11865)-B(11867)-B(11873)-B(11877)-B(11879)& - &-B(11881)-B(11884)-B(11887)-B(11892)-B(11895)-B(11901)-B(11903)-B(11909)-B(11914)-B(11916)-B(11919)& - &-B(11923)-B(11928)-B(11931)-B(11937)-B(11939)-B(11941)-B(11944)-B(11947)-B(11952)-B(11955)-B(11961)& - &-B(11963)-B(11966)-B(11969)-B(11972)-B(11977)-B(11980)-B(11985)-B(11987)-B(11990)-B(11993)-B(11999)& - &-B(12002)-B(12005)-B(12008)-B(12012)-B(12015)-B(12018)-B(12021)-B(12028)-B(12033)-B(12035)-B(12041)& - &-B(12044)-B(12046)-B(12048)-B(12052)-B(12057)-B(12060)-B(12063)-B(12068)-B(12074)-B(12077)-B(12080)& - &-B(12082)-B(12085)-B(12092)-B(12095)-B(12098)-B(12100)-B(12103)-B(12110)-B(12113)-B(12116)-B(12118)& - &-B(12121)-B(12128)-B(12131)-B(12134)-B(12136)-B(12139)-B(12146)-B(12149)-B(12152)-B(12154)-B(12157)& - &-B(12163)-B(12167)-B(12169)-B(12171)-B(12174)-B(12177)-B(12179)-B(12182)-B(12185)-B(12189)-B(12192)& - &-B(12195)-B(12198)-B(12201)-B(12203)-B(12206)-B(12209)-B(12213)-B(12217)-B(12220)-B(12222)-B(12225)& - &-B(12228)-B(12233)-B(12236)-B(12239)-B(12243)-B(12248)-B(12250)-B(12253)-B(12256)-B(12259)-B(12261)& - &-B(12264)-B(12267)-B(12270)-B(12275)-B(12280)-B(12282)-B(12285)-B(12288)-B(12292)-B(12296)-B(12303)& - &-B(12307)-B(12310)-B(12313)-B(12319)-B(12322)-B(12327)-B(12332)-B(12335)-B(12356)-B(12359)-B(12365)& - &-B(12368)-B(12371)-B(12374)-B(12382)-B(12387)-B(12392)-B(12395)-B(12404)-B(12415)-B(12417)-B(12422)& - &-B(12428)-B(12433)-B(12442)-B(12497)-B(12500)-B(12504)-B(12506)-B(12508)-B(12511)-B(12564)-B(12567)& - &-B(12570)-B(12573)-B(12580)-B(12584)-B(12591)-B(12596)-B(12600)-B(12609)-B(12611)-B(12614)-B(12617)& - &-B(12678)-B(12682)-B(12685)-B(12688)-B(12691)-B(12694)-B(12703)-B(12708)-B(12712)-B(12721)-B(12724)& - &-B(12726)-B(12729)-B(12732)-B(12750)-B(12755)-B(12759)-B(12768)-B(12770)-B(12773)-B(12780)-B(12783)& - &-B(12788)-B(12792)-B(12801)-B(12840)-B(12844)-B(12847)-B(12850)-B(12865)-B(12868)-B(12870)-B(12877)& - &-B(12882)-B(12886)-B(12895)-B(12938)-B(12942)-B(12945)-B(12948)-B(12972)-B(12975)-B(12980)-B(12984)& - &-B(12993)-B(13032)-B(13036)-B(13039)-B(13042)-B(13053)-B(13055)-B(13058)-B(13061)-B(13068)-B(13073)& - &-B(13111)-B(13145)-B(13148)-B(13151)-B(13159)-B(13161)-B(13164)-B(13167)-B(13182)-B(13189)-B(13194)& - &-B(13198)-B(13207)-B(13210)-B(13212)-B(13215)-B(13218)-B(13225)-B(13229)-B(13232)-B(13235)-B(13238)& - &-B(13241)-B(13246)-B(13249)-B(13257)-B(13260)-B(13263)-B(13266)-B(13269)-B(13272)-B(13279)-B(13286)& - &-B(13291)-B(13295)-B(13308)-B(13314)-B(13319)-B(13323)-B(13345)-B(13350)-B(13354)-B(13368)-B(13371)& - &-B(13420)-B(13429)-B(13432)-B(13435)-B(13445)-B(13448)-B(13450)-B(13454)-B(13457)-B(13460)-B(13463)& - &-B(13466)-B(13469)-B(13474)-B(13482)-B(13491)-B(13494)-B(13496)-B(13499)-B(13502)-B(13520)-B(13525)& - &-B(13527)-B(13530)-B(13533)-B(13548)-B(13552)-B(13557)-B(13572)-B(13575)-B(13583)-B(13587)-B(13590)& - &-B(13604)-B(13606)-B(13608)-B(13610)-B(13614)-B(13616)-B(13618)-B(13621)-B(13624)-B(13636)-B(13639)& - &-B(13641)-B(13644)-B(13660)-B(13682)-B(13690)-B(13718)-B(13720)-B(13722)-B(13724)-B(13726)-B(13752)& - &-B(13754)-B(13783)-B(13794)-B(13852)-B(13854)-B(13856)-B(13858)-B(13860)-B(13862)-B(13864)-B(13867)& - &-B(13879)-B(13882)-B(13885)-B(13887)-B(13890)-B(13893)-B(13898)-B(13912)-B(13917)-B(13922)-B(13924)& - &-B(13926)-B(13931)-B(13937)-B(13940)-B(13942)-B(13950)-B(13953)-B(13955)-B(13960)-B(13962)-B(13966)& - &-B(13984)-B(13988)-B(13990)-B(13994)-B(13997)-B(14003)-B(14006)-B(14008)-B(14010)-B(14013)-B(14016)& - &-B(14022)-B(14027)-B(14031)-B(14036)-B(14042)-B(14045)-B(14048)-B(14052)-B(14057)-B(14061)-B(14065)& - &-B(14071)-B(14074)-B(14077)-B(14081)-B(14084)-B(14086)-B(14092)-B(14104)-B(14107)-B(14112)-B(14115)& - &-B(14123)-B(14127)-B(14130)-B(14132)-B(14139)-B(14143)-B(14146)-B(14149)-B(14155)-B(14160)-B(14163)& - &-B(14166)-B(14169)-B(14172)-B(14175)-B(14180)-B(14186)-B(14189)-B(14191)-B(14194)-B(14197)-B(14199)& - &-B(14205)-B(14209)-B(14212)-B(14219)-B(14222)-B(14235)-B(14239)-B(14242)-B(14329)-B(14333)-B(14335)& - &-B(14338)-B(14373)-B(14388)-B(14392)-B(14394)-B(14396)-B(14399)-B(14413)-B(14415)-B(14436)-B(14438)& - &-B(14503)-B(14506)-B(14542)-B(14545)-B(14548)-B(14552)-B(14624)-B(14627)-B(14630)-B(14635)-B(14638)& - &-B(14661)-B(14664)-B(14715)-B(14718)-B(14740)-B(14862)-B(14865)-B(14870)-B(14875)-B(14877)-B(14880)& - &-B(14884)-B(14909)-B(14912)-B(14915)-B(14918)-B(14921)-B(14925)-B(14931)-B(14950)-B(14977)-B(15006)& - &-B(15008)-B(15094)-B(15191)-B(15193)-B(15197)-B(15199)-B(15236)-B(15238)-B(15242)-B(15244)-B(15290)& - &-B(15311)-B(15339)-B(15367)-B(15395)-B(15424)-B(15427)-B(15430)-B(15435)-B(15437)-B(15452)-B(15456)& - &-B(15458)-B(15460)-B(15462)-B(15467)-B(15490)-B(15527)-B(15550)-B(15555)-B(15559)-B(15563)-B(15568)& - &-B(15572)-B(15575)-B(15578)-B(15599)-B(15603)-B(15605)-B(15611)-B(15623)-B(15628)-B(15631)-B(15637)& - &-B(15641)-B(15644)-B(15646)-B(15650)-B(15654)-B(15693)-B(15696)-B(15701)-B(15704)-B(15710)-B(15714)& - &-B(15717)-B(15719)-B(15723)-B(15725)-B(15729)-B(15734)-B(15738)-B(15740)-B(15744)-B(15782)-B(15785)& - &-B(15789)-B(15795)-B(15798)-B(15804)-B(15842)-B(15847)-B(15886)-B(15889)-B(15894)-B(15897)-B(15901)& - &-B(15906)-B(15911)-B(15915)-B(15917)-B(15930)-B(15943)-B(15982)-B(15991)-B(15996)-B(15999)-B(16004)& - &-B(16009)-B(16013)-B(16015)-B(16028)-B(16036)-B(16040)-B(16045)-B(16084)-B(16093)-B(16098)-B(16101)& - &-B(16106)-B(16111)-B(16115)-B(16117)-B(16130)-B(16138)-B(16161)-B(16164)-B(16168)-B(16171)-B(16175)& - &-B(16178)-B(16182)-B(16186)-B(16188)-B(16192)-B(16196)-B(16198)-B(16202)-B(16204)-B(16206)-B(16212)& - &-B(16217)-B(16255)-B(16258)-B(16269)-B(16308)-B(16313)-B(16351)-B(16359)-B(16363)-B(16368)-B(16406)& - &-B(16411)-B(16415)-B(16418)-B(16422)-B(16425)-B(16431)-B(16435)-B(16438)-B(16440)-B(16444)-B(16446)& - &-B(16461)-B(16474)-B(16477)-B(16480)-B(16482)-B(16487)-B(16503)-B(16511)-B(16536)-B(16547)-B(16553)& - &-B(16558)-B(16562)-B(16564)-B(16578)-B(16580)-B(16583)-B(16585)-B(16588)-B(16591)-B(16593)-B(16597)& - &-B(16604)-B(16610)-B(16622)-B(16627)-B(16633)-B(16635)-B(16639)-B(16645)-B(16647)-B(16651)-B(16662)& - &-B(16664)-B(16669)-B(16673)-B(16675)-B(16678)-B(16681)-B(16684)-B(16686)-B(16689)-B(16705)-B(16710)& - &-B(16714)-B(16717)-B(16725)-B(16727)-B(16760)-B(16765)-B(16767)-B(16771)-B(16773)-B(16779)-B(16799)& - &-B(16871)-B(16874)-B(16878)-B(16888)-B(16891)-B(16895)-B(16900)-B(16903)-B(16906)-B(16909)-B(16912)& - &-B(16915)-B(16918)-B(16922)-B(16926)-B(16929)-B(16932)-B(16935)-B(16939)-B(16942)-B(16945)-B(16947)& - &-B(16950)-B(16954)-B(16960)-B(16964)-B(16966)-B(16971)-B(16978)-B(16981)-B(16997)-B(17000)-B(17004)& - &-B(17016)-B(17020)-B(17055)-B(17058)-B(17061)-B(17073)-B(17097)-B(17100)-B(17103)-B(17108)-B(17110)& - &-B(17113)-B(17120)-B(17123)-B(17125)-B(17128)-B(17131)-B(17140)-B(17144)-B(17174)-B(17177)-B(17180)& - &-B(17186)-B(17192)-B(17195)-B(17197)-B(17200)-B(17208)-B(17211)-B(17219)-B(17222)-B(17230)-B(17233)& - &-B(17239)-B(17243)-B(17245)-B(17251)-B(17253)-B(17255)-B(17257)-B(17260)-B(17265)-B(17267)-B(17270)& - &-B(17277)-B(17280)-B(17285)-B(17289)-B(17291)-B(17295)-B(17340)-B(17343)-B(17346)-B(17351)-B(17355)& - &-B(17357)-B(17359)-B(17362)-B(17365)-B(17369)-B(17371)-B(17375)-B(17388)-B(17391)-B(17394)-B(17400)& - &-B(17403)-B(17406)-B(17409)-B(17412)-B(17417)-B(17454)-B(17457)-B(17460)-B(17462)-B(17466)-B(17497)& - &-B(17500)-B(17503)-B(17520)-B(17523)-B(17529)-B(17533)-B(17549)-B(17552)-B(17555)-B(17558)-B(17560)& - &-B(17563)-B(17591)-B(17595)-B(17597)-B(17600)-B(17603)-B(17609)-B(17613)-B(17616)-B(17619)-B(17622)& - &-B(17624)-B(17627)-B(17630)-B(17636)-B(17642)-B(17645)-B(17651)-B(17655)-B(17658)-B(17674)-B(17677)& - &-B(17680)-B(17683)-B(17686)-B(17690)-B(17697)-B(17700)-B(17704)-B(17708)-B(17710)-B(17713)-B(17716)& - &-B(17719)-B(17724)-B(17727)-B(17732)-B(17734)-B(17737)-B(17740)-B(17742)-B(17745)-B(17748)-B(17781)& - &-B(17785)-B(17792)-B(17796)-B(17799)-B(17805)-B(17809)-B(17812)-B(17842)-B(17848)-B(17851)-B(17854)& - &-B(17859)-B(17861)-B(17864)-B(17867)-B(17873)-B(17877)-B(17880)-B(17892)-B(17899)-B(17903)-B(17906)& - &-B(17918)-B(17922)-B(17929)-B(17933)-B(17936)-B(17948)-B(17952)-B(17959)-B(17963)-B(17966)-B(17978)& - &-B(17982)-B(17989)-B(17993)-B(17996)-B(18022)-B(18028)-B(18032)-B(18034)-B(18040)-B(18043)-B(18045)& - &-B(18070)-B(18073)-B(18077)-B(18081)-B(18089)-B(18091)-B(18093)-B(18101)-B(18103)-B(18119)-B(18122)& - &-B(18126)-B(18132)-B(18137)-B(18140)-B(18144)-B(18146)-B(18170)-B(18173)-B(18181)-B(18183)-B(18185)& - &-B(18189)-B(18193)-B(18198)-B(18210)-B(18235)-B(18238)-B(18242)-B(18246)-B(18248)-B(18252)-B(18278)& - &-B(18281)-B(18285)-B(18289)-B(18291)-B(18295)-B(18313)-B(18316)-B(18324)-B(18326)-B(18328)-B(18332)& - &-B(18336)-B(18342)-B(18345)-B(18347)-B(18351)-B(18354)-B(18372)-B(18375)-B(18383)-B(18385)-B(18387)& - &-B(18391)-B(18408)-B(18413)-B(18416)-B(18418)-B(18422)-B(18439)-B(18442)-B(18450)-B(18452)-B(18454)& - &-B(18458)-B(18475)-B(18480)-B(18483)-B(18485)-B(18489)-B(18494)-B(18510)-B(18513)-B(18517)-B(18521)& - &-B(18545)-B(18548)-B(18552)-B(18556)-B(18558)-B(18562)-B(18573)-B(18591)-B(18594)-B(18602)-B(18604)& - &-B(18606)-B(18610)-B(18628)-B(18631)-B(18635)-B(18639)-B(18641)-B(18645)-B(18663)-B(18666)-B(18670)& - &-B(18674)-B(18676)-B(18680)-B(18686)-B(18696)-B(18698)-B(18703)-B(18706)-B(18722)-B(18725)-B(18770)& - &-B(18775)-B(18779)-B(18782)-B(18785)-B(18787)-B(18801)-B(18829)-B(18831)-B(18850)-B(18881)-B(18897)& - &-B(18900)-B(18902)-B(18905)-B(18907)-B(18909)-B(18953)-B(18956)-B(18961)-B(18964)-B(18968)-B(18970)& - &-B(18976)-B(18992)-B(18997)-B(18999)-B(19005)-B(19007)-B(19020)-B(19023)-B(19026)-B(19028)-B(19031)& - &-B(19034)-B(19037)-B(19041)-B(19046)-B(19049)-B(19052)-B(19054)-B(19058)-B(19064)-B(19077)-B(19108)& - &-B(19137)-B(19139)-B(19194)-B(19197)-B(19211)-B(19223)-B(19226)-B(19230)-B(19233)-B(19237)-B(19240)& - &-B(19243)-B(19246)-B(19252)-B(19256)-B(19258)-B(19261)-B(19265)-B(19301)-B(19304)-B(19307)-B(19313)& - &-B(19325)-B(19327)-B(19376)-B(19384)-B(19387)-B(19395)-B(19398)-B(19465)-B(19478)-B(19480)-B(19483)& - &-B(19489)-B(19493)-B(19495)-B(19501)-B(19504)-B(19516)-B(19533)-B(19537)-B(19539)-B(19541)-B(19544)& - &-B(19547)-B(19551)-B(19556)-B(19560)-B(19563)-B(19566)-B(19568)-B(19571)-B(19574)-B(19577)-B(19580)& - &-B(19583)-B(19587)-B(19589)-B(19592)-B(19595)-B(19611)-B(19632)-B(19634)-B(19637)-B(19640)-B(19646)& - &-B(19650)-B(19653)-B(19661)-B(19664)-B(19672)-B(19675)-B(19697)-B(19700)-B(19704)-B(19708)-B(19712)& - &-B(19716)-B(19722)-B(19726)-B(19751)-B(19759)-B(19773)-B(19781)-B(19795)-B(19803)-B(19819)-B(19822)& - &-B(19830)-B(19844)-B(19846)-B(19849)-B(19851)-B(19860)-B(19877)-B(19879)-B(19881)-B(19885)-B(19889)& - &-B(19891)-B(19905)-B(19919)-B(19923)-B(19927)-B(19940)-B(19944)-B(19948)-B(19952)-B(19991)-B(20010)& - &-B(20014)-B(20016)-B(20020)-B(20024)-B(20038)-B(20042)-B(20046)-B(20050)-B(20064)-B(20068)-B(20072)& - &-B(20086)-B(20099)-B(20103)-B(20107)-B(20121)-B(20123)-B(20126)-B(20129)-B(20133)-B(20137)-B(20151)& - &-B(20153)-B(20156)-B(20174)-B(20178)-B(20182)-B(20184)-B(20188)-B(20192)-B(20196)-B(20210)-B(20214)& - &-B(20218)-B(20222)-B(20236)-B(20240)-B(20244)-B(20258)-B(20262)-B(20266)-B(20294)-B(20305)-B(20308)& - &-B(20311)-B(20314)-B(20317)-B(20323)-B(20380)-B(20383)-B(20385)-B(20388)-B(20391)-B(20394)-B(20425)& - &-B(20427)-B(20429)-B(20432)-B(20450)-B(20455)-B(20458)-B(20461)-B(20477)-B(20480)-B(20483)-B(20485)& - &-B(20488)-B(20491)-B(20508)-B(20510)-B(20513)-B(20517)-B(20519)-B(20523)-B(20527)-B(20530)-B(20542)& - &-B(20547)-B(20550)-B(20568)-B(20571)-B(20591)-B(20594)-B(20644)-B(20647)-B(20651)-B(20664)-B(20668)& - &-B(20671)-B(20685)-B(20687)-B(20697)-B(20701)-B(20704)-B(20708)-B(20711)-B(20738)-B(20741)-B(20745)& - &-B(20752)-B(20755)-B(20757)-B(20760)-B(20764)-B(20767)-B(20769)-B(20772)-B(20779)-B(20781)-B(20786)& - &-B(20791)-B(20798)-B(20812)-B(20835)-B(20838)-B(20841)-B(20847)-B(20851)-B(20855)-B(20858)-B(20863)& - &-B(20899)-B(20903)-B(20905)-B(20919)-B(20921)-B(20924)-B(20928)-B(20930)-B(20933)-B(20957)-B(20959)& - &-B(20973)-B(20978)-B(20980)-B(20983)-B(20986)-B(20990)-B(20992)-B(20994)-B(21008)-B(21011)-B(21013)& - &-B(21027)-B(21043)-B(21047)-B(21073)-B(21076)-B(21080)-B(21103)-B(21108)-B(21135)-B(21137)-B(21140)& - &-B(21145)-B(21159)-B(21163)-B(21166)-B(21183)-B(21186)-B(21190)-B(21201)-B(21204)-B(21209)-B(21212)& - &-B(21215)-B(21225)-B(21228)-B(21238)-B(21241)-B(21251)-B(21254)-B(21264)-B(21267)-B(21277)-B(21280)& - &-B(21294)-B(21297)-B(21311)-B(21314)-B(21318)-B(21321)-B(21335)-B(21338)-B(21341)-B(21344)-B(21347)& - &-B(21349)-B(21352)-B(21355)-B(21357)-B(21360)-B(21363)-B(21366)-B(21369)-B(21383)-B(21386)-B(21400)& - &-B(21403)-B(21407)-B(21410)-B(21424)-B(21427)-B(21442)-B(21445)-B(21449)-B(21453)-B(21457)-B(21459)& - &-B(21462)-B(21465)-B(21480)-B(21483)-B(21497)-B(21500)-B(21514)-B(21517)-B(21520)-B(21522)-B(21525)& - &-B(21528)-B(21532)-B(21553)-B(21556)-B(21561)-B(21567)-B(21569)-B(21572)-B(21575)-B(21577)-B(21580)& - &-B(21583)-B(21586)-B(21589)-B(21592)-B(21595)-B(21599)-B(21602)-B(21605)-B(21620)-B(21623)-B(21626)& - &-B(21629)-B(21631)-B(21634)-B(21638)-B(21641)-B(21643)-B(21647)-B(21649)-B(21652)-B(21655)-B(21658)& - &-B(21668)-B(21671)-B(21674)-B(21684)-B(21696)-B(21704)-B(21710)-B(21713)-B(21715)-B(21726)-B(21747)& - &-B(21750)-B(21753)-B(21760)-B(21763)-B(21765)-B(21793)-B(21828)-B(21831)-B(21834)-B(21838)-B(21868)& - &-B(21870)-B(21873)-B(21883)-B(21922)-B(21926)-B(21936)-B(21939)-B(21942)-B(21947)-B(21959)-B(21961)& - &-B(21964)-B(21978)-B(21982)-B(21985)-B(21987)-B(21993)-B(21995)-B(21998)-B(22004)-B(22008)-B(22010)& - &-B(22040)-B(22044)-B(22047)-B(22052)-B(22056)-B(22058)-B(22063)-B(22067)-B(22069)-B(22072)-B(22076)& - &-B(22078)-B(22080)-B(22094)-B(22097)-B(22111)-B(22115)-B(22117)-B(22120)-B(22124)-B(22130)-B(22132)& - &-B(22137)-B(22153)-B(22156)-B(22160)-B(22165)-B(22170)-B(22181)-B(22185)-B(22189)-B(22193)-B(22197)& - &-B(22200)-B(22203)-B(22206)-B(22209)-B(22212)-B(22215)-B(22220)-B(22223)-B(22226)-B(22229)-B(22232)& - &-B(22235)-B(22237)-B(22240)-B(22243)-B(22245)-B(22248)-B(22251)-B(22264)-B(22267)-B(22270)-B(22273)& - &-B(22276)-B(22279)-B(22282)-B(22285)-B(22288)-B(22291)-B(22295)-B(22300)-B(22304)-B(22308)-B(22314)& - &-B(22321)-B(22353)-B(22360)-B(22364)-B(22367)-B(22389)-B(22393)-B(22396)-B(22399)-B(22411)-B(22419)& - &-B(22422)-B(22425)-B(22439)-B(22446)-B(22449)-B(22463)-B(22466)-B(22469)-B(22477)-B(22480)-B(22494)& - &-B(22497)-B(22500)-B(22503)-B(22505)-B(22508)-B(22514)-B(22518)-B(22522)-B(22525)-B(22530)-B(22570)& - &-B(22573)-B(22620)-B(22622)-B(22636)-B(22642)-B(22647)-B(22650)-B(22674)-B(22686)-B(22703)-B(22707)& - &-B(22709)-B(22714)-B(22718)-B(22734)-B(22746)-B(22759)-B(22763)-B(22766)-B(22770)-B(22797)-B(22800)& - &-B(22828)-B(22832)-B(22834)-B(22837)-B(22839)-B(22842)-B(22853)-B(22856)-B(22859)-B(22884)-B(22887)& - &-B(22891)-B(22897)-B(22905)-B(22907)-B(22911)-B(22917)-B(22921)-B(22924)-B(22949)-B(22953)-B(22955)& - &-B(22958)-B(22961)-B(22965)-B(22975)-B(22978)-B(22981)-B(22991)-B(22993)-B(23013)-B(23016)-B(23021)& - &-B(23025)-B(23027)-B(23041)-B(23043)-B(23049)-B(23054)-B(23056)-B(23061)-B(23065)-B(23068)-B(23103)& - &-B(23106)-B(23110)-B(23115)-B(23120)-B(23122)-B(23142)-B(23147)-B(23151)-B(23164)-B(23166)-B(23180)& - &-B(23201)-B(23216)-B(23220)-B(23222)-B(23226)-B(23228)-B(23232)-B(23234)-B(23238)-B(23240)-B(23243)& - &-B(23246)-B(23250)-B(23271)-B(23275)-B(23278)-B(23344)-B(23348)-B(23350)-B(23353)-B(23356)-B(23363)& - &-B(23377)-B(23390)-B(23392)-B(23406)-B(23421)-B(23425)-B(23428)-B(23440)-B(23443)-B(23447)-B(23454)& - &-B(23457)-B(23460)-B(23462)-B(23473)-B(23476)-B(23489)-B(23492)-B(23494)-B(23497)-B(23503)-B(23508)& - &-B(23510)-B(23515)-B(23521)-B(23524)-B(23526)-B(23528)-B(23531)-B(23537)-B(23541)-B(23554)-B(23557)& - &-B(23561)-B(23564)-B(23570)-B(23574)-B(23577)-B(23580)-B(23592)-B(23595)-B(23598)-B(23601)-B(23604)& - &-B(23607)-B(23610)-B(23617)-B(23620)-B(23623)-B(23627)-B(23631)-B(23655)-B(23658)-B(23661)-B(23666)& - &-B(23671)-B(23674)-B(23680)-B(23683)-B(23694)-B(23697)-B(23701)-B(23719)-B(23723)-B(23728)-B(23732)& - &-B(23761)-B(23764)-B(23803)-B(23820)-B(23822)-B(23834)-B(23837)-B(23844)-B(23860)-B(23863)-B(23865)& - &-B(23882)-B(23885)-B(23889)-B(23892)-B(23897)-B(23905)-B(23908)-B(23914)-B(23918)-B(23921)-B(23924)& - &-B(23930)-B(23933)-B(23936)-B(23939)-B(23947)-B(23952)-B(23958)-B(23962)-B(23964)-B(23969)-B(24010)& - &-B(24013)-B(24016)-B(24022)-B(24024)-B(24027)-B(24030)-B(24033)-B(24044) -! JVS(45057) = Jac_FULL(5250,5251) - JVS(45057) = -B(30) -! JVS(45058) = Jac_FULL(5250,5252) - JVS(45058) = -B(39)+B(44)+B(18859)+B(20343)+B(20439) -! JVS(45059) = Jac_FULL(5250,5253) - JVS(45059) = -B(41) -! JVS(45060) = Jac_FULL(5250,5254) - JVS(45060) = -B(59) -! JVS(45061) = Jac_FULL(5250,5255) - JVS(45061) = B(33)-B(36)+B(45)+B(50)+B(1206)+B(1305)+B(1332)+B(1368)+B(1410)+B(1450)+B(1496)+B(1546)+B(3010)+B(3197)& - &+B(3780)+B(3814)+B(3983)+B(3997)+B(4038)+B(5220)+B(5346)+B(5413)+B(5511)+B(5602)+B(5716)+B(5807)+B(5895)& - &+B(6063)+B(6142)+B(6209)+B(6289)+B(6361)+B(6447)+B(6543)+B(6864)+B(7593)+B(7607)+B(7630)+B(7681)+B(7690)& - &+B(7712)+B(7762)+B(7786)+B(7795)+B(7810)+B(7820)+B(7847)+B(7868)+B(7882)+B(7903)+B(7923)+B(7941)+B(7953)& - &+B(7966)+B(8010)+B(8032)+B(8076)+B(8137)+B(8191)+B(8211)+B(8236)+B(8426)+B(8440)+B(8465)+B(8476)+B(8500)& - &+B(8522)+B(8551)+B(8575)+B(8588)+B(8604)+B(8636)+B(8675)+B(8694)+B(8841)+B(8899)+B(8943)+B(9019)+B(9064)& - &+B(9084)+B(9161)+B(9255)+B(9314)+B(9435)+B(9546)+B(9604)+B(9668)+B(9704)+B(9798)+B(9819)+B(9854)+B(9917)& - &+B(10215)+B(10240)+B(10258)+B(10324)+B(10351)+B(10400)+B(10431)+B(10653)+B(10812)+B(10878)+B(10967)& - &+B(11003)+B(11047)+B(11116)+B(11178)+B(11240)+B(11266)+B(11525)+B(11647)+B(12445)+B(12518)+B(13082)& - &+B(13374)+B(13693)+B(13797)+B(14255)+B(14271)+B(14300)+B(14445)+B(14455)+B(14480)+B(14576)+B(14670)& - &+B(14680)+B(14842)+B(14853)+B(14888)+B(14937)+B(14954)+B(14983)+B(15025)+B(15046)+B(15059)+B(15100)& - &+B(15141)+B(15166)+B(15180)+B(15268)+B(15921)+B(16019)+B(16121)+B(16465)+B(16491)+B(16695)+B(16731)& - &+B(16805)+B(16815)+B(16847)+B(16987)+B(17032)+B(17301)+B(17423)+B(17473)+B(17487)+B(17509)+B(17539)& - &+B(17569)+B(17664)+B(18002)+B(18397)+B(18462)+B(18712)+B(18728)+B(18759)+B(18792)+B(18807)+B(18820)& - &+B(18838)+2*B(18853)+B(18867)+B(18883)+B(18932)+B(18979)+B(19009)+B(19094)+B(19175)+B(19272)+B(19343)& - &+B(19366)+B(19405)+B(19415)+B(19441)+B(19455)+B(19620)+B(19679)+B(19730)+B(19763)+B(19785)+B(19807)& - &+B(19834)+B(19864)+B(19896)+B(19908)+B(19931)+B(19955)+B(19966)+B(19981)+B(20000)+B(20027)+B(20055)& - &+B(20075)+B(20088)+B(20110)+B(20140)+B(20201)+B(20227)+B(20247)+B(20269)+B(20284)+B(20328)+2*B(20341)& - &+B(20355)+B(20369)+B(20397)+B(20411)+2*B(20437)+B(20467)+B(20553)+B(20575)+B(20601)+B(20611)+B(20622)& - &+B(20635)+B(20715)+B(20826)+B(20943)+B(21063)+B(21149)+B(21285)+B(21302)+B(21326)+B(21374)+B(21389)& - &+B(21413)+B(21433)+B(21471)+B(21488)+B(21505)+B(21537)+B(21781)+B(21809)+B(21841)+B(21888)+B(21901)& - &+B(22016)+B(22143)+B(22253)+B(22334)+B(22375)+B(22537)+B(22597)+B(22724)+B(22805)+B(22864)+B(22939)& - &+B(22999)+B(23093)+B(23128)+B(23187)+B(23289)+B(23303)+B(23317)+B(23543)+B(23637)+B(23736)+B(23781)& - &+B(23810)+B(23974)+B(23994) -! JVS(45062) = Jac_FULL(5250,5256) - JVS(45062) = -B(43)+B(51)+B(4341)+B(10512)+B(10581)+B(18863)+B(20347)+B(20443) -! JVS(45063) = Jac_FULL(5250,5257) - JVS(45063) = -B(7489)-B(7491)-B(7493)-B(7495)-B(7497) -! JVS(45064) = Jac_FULL(5250,5258) - JVS(45064) = -B(26)+B(34)+B(8930)+B(9054)+B(9060)+B(9310)+B(9431)+B(9542)+B(9664)+B(10154) -! JVS(45065) = Jac_FULL(5251,11) - JVS(45065) = B(8560) -! JVS(45066) = Jac_FULL(5251,198) - JVS(45066) = B(593) -! JVS(45067) = Jac_FULL(5251,451) - JVS(45067) = 4*B(15461)+4*B(15463) -! JVS(45068) = Jac_FULL(5251,572) - JVS(45068) = B(13473)+B(13475) -! JVS(45069) = Jac_FULL(5251,579) - JVS(45069) = B(7780)+B(7782) -! JVS(45070) = Jac_FULL(5251,591) - JVS(45070) = 2*B(7734) -! JVS(45071) = Jac_FULL(5251,604) - JVS(45071) = B(3427) -! JVS(45072) = Jac_FULL(5251,612) - JVS(45072) = B(14518) -! JVS(45073) = Jac_FULL(5251,626) - JVS(45073) = B(21531)+B(21533) -! JVS(45074) = Jac_FULL(5251,684) - JVS(45074) = B(1517)+B(1518) -! JVS(45075) = Jac_FULL(5251,685) - JVS(45075) = B(3100)+B(3101) -! JVS(45076) = Jac_FULL(5251,686) - JVS(45076) = B(3049)+B(3050) -! JVS(45077) = Jac_FULL(5251,701) - JVS(45077) = B(18942) -! JVS(45078) = Jac_FULL(5251,719) - JVS(45078) = B(3531) -! JVS(45079) = Jac_FULL(5251,759) - JVS(45079) = B(12345) -! JVS(45080) = Jac_FULL(5251,763) - JVS(45080) = B(1510) -! JVS(45081) = Jac_FULL(5251,766) - JVS(45081) = B(2232) -! JVS(45082) = Jac_FULL(5251,771) - JVS(45082) = B(12484) -! JVS(45083) = Jac_FULL(5251,802) - JVS(45083) = B(23880) -! JVS(45084) = Jac_FULL(5251,805) - JVS(45084) = B(19630)+B(19631) -! JVS(45085) = Jac_FULL(5251,1483) - JVS(45085) = 3*B(19878) -! JVS(45086) = Jac_FULL(5251,1570) - JVS(45086) = B(12396) -! JVS(45087) = Jac_FULL(5251,1575) - JVS(45087) = B(16676) -! JVS(45088) = Jac_FULL(5251,1588) - JVS(45088) = B(8897) -! JVS(45089) = Jac_FULL(5251,1598) - JVS(45089) = B(9367) -! JVS(45090) = Jac_FULL(5251,1602) - JVS(45090) = B(15564) -! JVS(45091) = Jac_FULL(5251,1612) - JVS(45091) = B(11411) -! JVS(45092) = Jac_FULL(5251,1619) - JVS(45092) = B(17234) -! JVS(45093) = Jac_FULL(5251,1623) - JVS(45093) = B(9488) -! JVS(45094) = Jac_FULL(5251,1636) - JVS(45094) = B(9599) -! JVS(45095) = Jac_FULL(5251,1639) - JVS(45095) = 2*B(22294)+2*B(22296) -! JVS(45096) = Jac_FULL(5251,1642) - JVS(45096) = B(10363) -! JVS(45097) = Jac_FULL(5251,1644) - JVS(45097) = B(13518) -! JVS(45098) = Jac_FULL(5251,1682) - JVS(45098) = B(13795) -! JVS(45099) = Jac_FULL(5251,1685) - JVS(45099) = B(16687) -! JVS(45100) = Jac_FULL(5251,1698) - JVS(45100) = B(8740) -! JVS(45101) = Jac_FULL(5251,1734) - JVS(45101) = B(15576) -! JVS(45102) = Jac_FULL(5251,1756) - JVS(45102) = B(22569)+B(22571) -! JVS(45103) = Jac_FULL(5251,1760) - JVS(45103) = B(9364) -! JVS(45104) = Jac_FULL(5251,1769) - JVS(45104) = B(17228) -! JVS(45105) = Jac_FULL(5251,1776) - JVS(45105) = B(1248) -! JVS(45106) = Jac_FULL(5251,1777) - JVS(45106) = B(14220) -! JVS(45107) = Jac_FULL(5251,1791) - JVS(45107) = B(11359)+B(11361) -! JVS(45108) = Jac_FULL(5251,1793) - JVS(45108) = 0 -! JVS(45109) = Jac_FULL(5251,1797) - JVS(45109) = B(13370)+B(13372) -! JVS(45110) = Jac_FULL(5251,1806) - JVS(45110) = B(8892)+B(8894) -! JVS(45111) = Jac_FULL(5251,1810) - JVS(45111) = B(12697) -! JVS(45112) = Jac_FULL(5251,1825) - JVS(45112) = B(14034) -! JVS(45113) = Jac_FULL(5251,1828) - JVS(45113) = B(17229)+B(17231) -! JVS(45114) = Jac_FULL(5251,1851) - JVS(45114) = B(13526) -! JVS(45115) = Jac_FULL(5251,1853) - JVS(45115) = B(4339) -! JVS(45116) = Jac_FULL(5251,1857) - JVS(45116) = B(10095)+B(10097)+B(10098) -! JVS(45117) = Jac_FULL(5251,1858) - JVS(45117) = B(11215)+B(11217) -! JVS(45118) = Jac_FULL(5251,1872) - JVS(45118) = B(4375) -! JVS(45119) = Jac_FULL(5251,1875) - JVS(45119) = B(23458) -! JVS(45120) = Jac_FULL(5251,1928) - JVS(45120) = 3*B(18337)+B(18338) -! JVS(45121) = Jac_FULL(5251,1939) - JVS(45121) = B(20452) -! JVS(45122) = Jac_FULL(5251,1951) - JVS(45122) = B(9596) -! JVS(45123) = Jac_FULL(5251,1959) - JVS(45123) = 2*B(3053)+B(3054) -! JVS(45124) = Jac_FULL(5251,1969) - JVS(45124) = B(13495) -! JVS(45125) = Jac_FULL(5251,1981) - JVS(45125) = B(16679) -! JVS(45126) = Jac_FULL(5251,1988) - JVS(45126) = 2*B(8985) -! JVS(45127) = Jac_FULL(5251,1991) - JVS(45127) = B(18783) -! JVS(45128) = Jac_FULL(5251,2003) - JVS(45128) = B(21563) -! JVS(45129) = Jac_FULL(5251,2004) - JVS(45129) = B(4302) -! JVS(45130) = Jac_FULL(5251,2013) - JVS(45130) = B(2039) -! JVS(45131) = Jac_FULL(5251,2024) - JVS(45131) = B(22171) -! JVS(45132) = Jac_FULL(5251,2038) - JVS(45132) = B(1996)+B(1997) -! JVS(45133) = Jac_FULL(5251,2042) - JVS(45133) = B(2103) -! JVS(45134) = Jac_FULL(5251,2104) - JVS(45134) = B(12898) -! JVS(45135) = Jac_FULL(5251,2109) - JVS(45135) = B(16642) -! JVS(45136) = Jac_FULL(5251,2117) - JVS(45136) = B(9485) -! JVS(45137) = Jac_FULL(5251,2132) - JVS(45137) = B(11406)+B(11408) -! JVS(45138) = Jac_FULL(5251,2134) - JVS(45138) = B(13431)+B(13433) -! JVS(45139) = Jac_FULL(5251,2138) - JVS(45139) = B(16546) -! JVS(45140) = Jac_FULL(5251,2141) - JVS(45140) = B(19394)+B(19396) -! JVS(45141) = Jac_FULL(5251,2145) - JVS(45141) = B(19554) -! JVS(45142) = Jac_FULL(5251,2148) - JVS(45142) = B(5821) -! JVS(45143) = Jac_FULL(5251,2170) - JVS(45143) = B(11405) -! JVS(45144) = Jac_FULL(5251,2171) - JVS(45144) = 2*B(21408) -! JVS(45145) = Jac_FULL(5251,2191) - JVS(45145) = B(13617) -! JVS(45146) = Jac_FULL(5251,2197) - JVS(45146) = B(17698) -! JVS(45147) = Jac_FULL(5251,2200) - JVS(45147) = B(8734) -! JVS(45148) = Jac_FULL(5251,2201) - JVS(45148) = B(22166) -! JVS(45149) = Jac_FULL(5251,2209) - JVS(45149) = B(23679)+B(23681) -! JVS(45150) = Jac_FULL(5251,2210) - JVS(45150) = B(22135) -! JVS(45151) = Jac_FULL(5251,2212) - JVS(45151) = B(2198) -! JVS(45152) = Jac_FULL(5251,2234) - JVS(45152) = B(8891) -! JVS(45153) = Jac_FULL(5251,2238) - JVS(45153) = B(13472) -! JVS(45154) = Jac_FULL(5251,2243) - JVS(45154) = B(18786)+B(18788) -! JVS(45155) = Jac_FULL(5251,2255) - JVS(45155) = B(14187)+B(14188) -! JVS(45156) = Jac_FULL(5251,2258) - JVS(45156) = B(10378) -! JVS(45157) = Jac_FULL(5251,2286) - JVS(45157) = B(2017) -! JVS(45158) = Jac_FULL(5251,2287) - JVS(45158) = B(10094) -! JVS(45159) = Jac_FULL(5251,2310) - JVS(45159) = B(13278)+B(13280) -! JVS(45160) = Jac_FULL(5251,2315) - JVS(45160) = B(17218)+B(17220) -! JVS(45161) = Jac_FULL(5251,2335) - JVS(45161) = B(16485)+B(16486) -! JVS(45162) = Jac_FULL(5251,2336) - JVS(45162) = B(22281)+B(22283) -! JVS(45163) = Jac_FULL(5251,2345) - JVS(45163) = B(21616) -! JVS(45164) = Jac_FULL(5251,2346) - JVS(45164) = B(4320) -! JVS(45165) = Jac_FULL(5251,2357) - JVS(45165) = B(9795) -! JVS(45166) = Jac_FULL(5251,2376) - JVS(45166) = B(12380) -! JVS(45167) = Jac_FULL(5251,2392) - JVS(45167) = B(16554) -! JVS(45168) = Jac_FULL(5251,2395) - JVS(45168) = B(14072)+B(14073) -! JVS(45169) = Jac_FULL(5251,2430) - JVS(45169) = B(19994) -! JVS(45170) = Jac_FULL(5251,2448) - JVS(45170) = B(8735)+B(8737) -! JVS(45171) = Jac_FULL(5251,2467) - JVS(45171) = B(15642) -! JVS(45172) = Jac_FULL(5251,2472) - JVS(45172) = B(13044) -! JVS(45173) = Jac_FULL(5251,2474) - JVS(45173) = B(12950) -! JVS(45174) = Jac_FULL(5251,2475) - JVS(45174) = B(23364) -! JVS(45175) = Jac_FULL(5251,2476) - JVS(45175) = B(3115) -! JVS(45176) = Jac_FULL(5251,2477) - JVS(45176) = B(9217)+B(9218) -! JVS(45177) = Jac_FULL(5251,2479) - JVS(45177) = B(6722) -! JVS(45178) = Jac_FULL(5251,2481) - JVS(45178) = B(10336) -! JVS(45179) = Jac_FULL(5251,2482) - JVS(45179) = B(15702) -! JVS(45180) = Jac_FULL(5251,2483) - JVS(45180) = B(23845) -! JVS(45181) = Jac_FULL(5251,2484) - JVS(45181) = B(10022) -! JVS(45182) = Jac_FULL(5251,2485) - JVS(45182) = B(15899) -! JVS(45183) = Jac_FULL(5251,2486) - JVS(45183) = B(21625) -! JVS(45184) = Jac_FULL(5251,2487) - JVS(45184) = B(2253) -! JVS(45185) = Jac_FULL(5251,2489) - JVS(45185) = B(13727) -! JVS(45186) = Jac_FULL(5251,2494) - JVS(45186) = B(13528) -! JVS(45187) = Jac_FULL(5251,2496) - JVS(45187) = B(17866) -! JVS(45188) = Jac_FULL(5251,2498) - JVS(45188) = B(18705) -! JVS(45189) = Jac_FULL(5251,2500) - JVS(45189) = B(12173) -! JVS(45190) = Jac_FULL(5251,2501) - JVS(45190) = B(8889) -! JVS(45191) = Jac_FULL(5251,2504) - JVS(45191) = 2*B(15610) -! JVS(45192) = Jac_FULL(5251,2505) - JVS(45192) = 2*B(21444) -! JVS(45193) = Jac_FULL(5251,2507) - JVS(45193) = B(22286) -! JVS(45194) = Jac_FULL(5251,2510) - JVS(45194) = B(23242) -! JVS(45195) = Jac_FULL(5251,2511) - JVS(45195) = B(11636) -! JVS(45196) = Jac_FULL(5251,2515) - JVS(45196) = B(20771) -! JVS(45197) = Jac_FULL(5251,2517) - JVS(45197) = B(21633) -! JVS(45198) = Jac_FULL(5251,2518) - JVS(45198) = B(13150) -! JVS(45199) = Jac_FULL(5251,2522) - JVS(45199) = B(12205) -! JVS(45200) = Jac_FULL(5251,2523) - JVS(45200) = B(22468) -! JVS(45201) = Jac_FULL(5251,2525) - JVS(45201) = B(11584) -! JVS(45202) = Jac_FULL(5251,2526) - JVS(45202) = B(4235) -! JVS(45203) = Jac_FULL(5251,2527) - JVS(45203) = B(21752) -! JVS(45204) = Jac_FULL(5251,2529) - JVS(45204) = B(22202) -! JVS(45205) = Jac_FULL(5251,2530) - JVS(45205) = B(23763) -! JVS(45206) = Jac_FULL(5251,2531) - JVS(45206) = 2*B(13501) -! JVS(45207) = Jac_FULL(5251,2533) - JVS(45207) = B(19245) -! JVS(45208) = Jac_FULL(5251,2537) - JVS(45208) = B(4119) -! JVS(45209) = Jac_FULL(5251,2538) - JVS(45209) = B(20125) -! JVS(45210) = Jac_FULL(5251,2541) - JVS(45210) = B(21401) -! JVS(45211) = Jac_FULL(5251,2552) - JVS(45211) = B(21359) -! JVS(45212) = Jac_FULL(5251,2554) - JVS(45212) = B(16629) -! JVS(45213) = Jac_FULL(5251,2559) - JVS(45213) = B(9483) -! JVS(45214) = Jac_FULL(5251,2560) - JVS(45214) = B(14168) -! JVS(45215) = Jac_FULL(5251,2564) - JVS(45215) = B(22410) -! JVS(45216) = Jac_FULL(5251,2567) - JVS(45216) = B(23891) -! JVS(45217) = Jac_FULL(5251,2568) - JVS(45217) = B(20551) -! JVS(45218) = Jac_FULL(5251,2569) - JVS(45218) = B(9192) -! JVS(45219) = Jac_FULL(5251,2573) - JVS(45219) = B(23277) -! JVS(45220) = Jac_FULL(5251,2576) - JVS(45220) = B(13889) -! JVS(45221) = Jac_FULL(5251,2579) - JVS(45221) = B(12181) -! JVS(45222) = Jac_FULL(5251,2582) - JVS(45222) = 2*B(12843) -! JVS(45223) = Jac_FULL(5251,2583) - JVS(45223) = B(12224) -! JVS(45224) = Jac_FULL(5251,2584) - JVS(45224) = B(22499) -! JVS(45225) = Jac_FULL(5251,2587) - JVS(45225) = B(14544) -! JVS(45226) = Jac_FULL(5251,2593) - JVS(45226) = B(14505) -! JVS(45227) = Jac_FULL(5251,2597) - JVS(45227) = B(20920) -! JVS(45228) = Jac_FULL(5251,2600) - JVS(45228) = B(21657) -! JVS(45229) = Jac_FULL(5251,2601) - JVS(45229) = B(9595) -! JVS(45230) = Jac_FULL(5251,2607) - JVS(45230) = B(23926) -! JVS(45231) = Jac_FULL(5251,2608) - JVS(45231) = B(22799) -! JVS(45232) = Jac_FULL(5251,2609) - JVS(45232) = B(12379) -! JVS(45233) = Jac_FULL(5251,2611) - JVS(45233) = B(4195) -! JVS(45234) = Jac_FULL(5251,2612) - JVS(45234) = B(4159) -! JVS(45235) = Jac_FULL(5251,2613) - JVS(45235) = B(21026) -! JVS(45236) = Jac_FULL(5251,2615) - JVS(45236) = B(21461) -! JVS(45237) = Jac_FULL(5251,2616) - JVS(45237) = B(16548)+B(16549) -! JVS(45238) = Jac_FULL(5251,2617) - JVS(45238) = 0 -! JVS(45239) = Jac_FULL(5251,2620) - JVS(45239) = B(11496) -! JVS(45240) = Jac_FULL(5251,2622) - JVS(45240) = B(20570) -! JVS(45241) = Jac_FULL(5251,2630) - JVS(45241) = B(13465) -! JVS(45242) = Jac_FULL(5251,2631) - JVS(45242) = B(21385) -! JVS(45243) = Jac_FULL(5251,2632) - JVS(45243) = B(10072) -! JVS(45244) = Jac_FULL(5251,2636) - JVS(45244) = B(19210) -! JVS(45245) = Jac_FULL(5251,2637) - JVS(45245) = B(23405) -! JVS(45246) = Jac_FULL(5251,2640) - JVS(45246) = B(9333) -! JVS(45247) = Jac_FULL(5251,2643) - JVS(45247) = B(21343) -! JVS(45248) = Jac_FULL(5251,2645) - JVS(45248) = B(9491) -! JVS(45249) = Jac_FULL(5251,2648) - JVS(45249) = B(17259) -! JVS(45250) = Jac_FULL(5251,2651) - JVS(45250) = B(20932) -! JVS(45251) = Jac_FULL(5251,2652) - JVS(45251) = B(22224) -! JVS(45252) = Jac_FULL(5251,2654) - JVS(45252) = B(21425) -! JVS(45253) = Jac_FULL(5251,2655) - JVS(45253) = B(20316) -! JVS(45254) = Jac_FULL(5251,2656) - JVS(45254) = B(9454) -! JVS(45255) = Jac_FULL(5251,2657) - JVS(45255) = B(3979) -! JVS(45256) = Jac_FULL(5251,2658) - JVS(45256) = B(20686) -! JVS(45257) = Jac_FULL(5251,2660) - JVS(45257) = B(22858) -! JVS(45258) = Jac_FULL(5251,2663) - JVS(45258) = B(18955) -! JVS(45259) = Jac_FULL(5251,2666) - JVS(45259) = B(21007) -! JVS(45260) = Jac_FULL(5251,2667) - JVS(45260) = B(23283) -! JVS(45261) = Jac_FULL(5251,2669) - JVS(45261) = B(17739) -! JVS(45262) = Jac_FULL(5251,2670) - JVS(45262) = 2*B(13623) -! JVS(45263) = Jac_FULL(5251,2671) - JVS(45263) = B(13237) -! JVS(45264) = Jac_FULL(5251,2674) - JVS(45264) = B(14864) -! JVS(45265) = Jac_FULL(5251,2675) - JVS(45265) = B(11491) -! JVS(45266) = Jac_FULL(5251,2677) - JVS(45266) = B(17411) -! JVS(45267) = Jac_FULL(5251,2678) - JVS(45267) = B(17405) -! JVS(45268) = Jac_FULL(5251,2679) - JVS(45268) = B(14050) -! JVS(45269) = Jac_FULL(5251,2684) - JVS(45269) = B(11520) -! JVS(45270) = Jac_FULL(5251,2685) - JVS(45270) = B(17269) -! JVS(45271) = Jac_FULL(5251,2688) - JVS(45271) = B(21997) -! JVS(45272) = Jac_FULL(5251,2689) - JVS(45272) = 2*B(12941) -! JVS(45273) = Jac_FULL(5251,2690) - JVS(45273) = 0 -! JVS(45274) = Jac_FULL(5251,2691) - JVS(45274) = B(11606) -! JVS(45275) = Jac_FULL(5251,2692) - JVS(45275) = B(14151) -! JVS(45276) = Jac_FULL(5251,2696) - JVS(45276) = B(18350) -! JVS(45277) = Jac_FULL(5251,2698) - JVS(45277) = B(12197) -! JVS(45278) = Jac_FULL(5251,2702) - JVS(45278) = B(12252) -! JVS(45279) = Jac_FULL(5251,2703) - JVS(45279) = B(23833) -! JVS(45280) = Jac_FULL(5251,2704) - JVS(45280) = B(20982) -! JVS(45281) = Jac_FULL(5251,2708) - JVS(45281) = B(20840) -! JVS(45282) = Jac_FULL(5251,2712) - JVS(45282) = B(12373) -! JVS(45283) = Jac_FULL(5251,2714) - JVS(45283) = B(9370) -! JVS(45284) = Jac_FULL(5251,2718) - JVS(45284) = B(21185) -! JVS(45285) = Jac_FULL(5251,2724) - JVS(45285) = B(22139) -! JVS(45286) = Jac_FULL(5251,2725) - JVS(45286) = 2*B(21296) -! JVS(45287) = Jac_FULL(5251,2726) - JVS(45287) = B(19850) -! JVS(45288) = Jac_FULL(5251,2727) - JVS(45288) = 0 -! JVS(45289) = Jac_FULL(5251,2729) - JVS(45289) = B(23920) -! JVS(45290) = Jac_FULL(5251,2737) - JVS(45290) = B(17227) -! JVS(45291) = Jac_FULL(5251,2738) - JVS(45291) = B(12235) -! JVS(45292) = Jac_FULL(5251,2739) - JVS(45292) = 2*B(19942) -! JVS(45293) = Jac_FULL(5251,2743) - JVS(45293) = B(7651) -! JVS(45294) = Jac_FULL(5251,2748) - JVS(45294) = B(1491)+2*B(1492) -! JVS(45295) = Jac_FULL(5251,2749) - JVS(45295) = B(23452) -! JVS(45296) = Jac_FULL(5251,2751) - JVS(45296) = B(22190) -! JVS(45297) = Jac_FULL(5251,2754) - JVS(45297) = B(21515) -! JVS(45298) = Jac_FULL(5251,2755) - JVS(45298) = B(11809) -! JVS(45299) = Jac_FULL(5251,2756) - JVS(45299) = B(23591) -! JVS(45300) = Jac_FULL(5251,2757) - JVS(45300) = B(14012) -! JVS(45301) = Jac_FULL(5251,2758) - JVS(45301) = B(18356) -! JVS(45302) = Jac_FULL(5251,2763) - JVS(45302) = B(22201) -! JVS(45303) = Jac_FULL(5251,2765) - JVS(45303) = 2*B(21402) -! JVS(45304) = Jac_FULL(5251,2768) - JVS(45304) = 2*B(20212) -! JVS(45305) = Jac_FULL(5251,2769) - JVS(45305) = B(19993) -! JVS(45306) = Jac_FULL(5251,2772) - JVS(45306) = B(22507) -! JVS(45307) = Jac_FULL(5251,2777) - JVS(45307) = B(23352) -! JVS(45308) = Jac_FULL(5251,2778) - JVS(45308) = B(17747) -! JVS(45309) = Jac_FULL(5251,2779) - JVS(45309) = B(24012) -! JVS(45310) = Jac_FULL(5251,2780) - JVS(45310) = B(12772) -! JVS(45311) = Jac_FULL(5251,2781) - JVS(45311) = B(19482) -! JVS(45312) = Jac_FULL(5251,2784) - JVS(45312) = B(21640) -! JVS(45313) = Jac_FULL(5251,2786) - JVS(45313) = B(17459) -! JVS(45314) = Jac_FULL(5251,2787) - JVS(45314) = B(19639) -! JVS(45315) = Jac_FULL(5251,2788) - JVS(45315) = B(24046) -! JVS(45316) = Jac_FULL(5251,2790) - JVS(45316) = B(11452) -! JVS(45317) = Jac_FULL(5251,2791) - JVS(45317) = B(10686) -! JVS(45318) = Jac_FULL(5251,2792) - JVS(45318) = B(7778) -! JVS(45319) = Jac_FULL(5251,2793) - JVS(45319) = B(11691) -! JVS(45320) = Jac_FULL(5251,2794) - JVS(45320) = 2*B(21426) -! JVS(45321) = Jac_FULL(5251,2796) - JVS(45321) = 2*B(13532) -! JVS(45322) = Jac_FULL(5251,2797) - JVS(45322) = B(19552) -! JVS(45323) = Jac_FULL(5251,2800) - JVS(45323) = B(22765) -! JVS(45324) = Jac_FULL(5251,2801) - JVS(45324) = B(13589) -! JVS(45325) = Jac_FULL(5251,2803) - JVS(45325) = 2*B(15432)+B(15433)+B(15434) -! JVS(45326) = Jac_FULL(5251,2804) - JVS(45326) = B(19051) -! JVS(45327) = Jac_FULL(5251,2805) - JVS(45327) = B(4373) -! JVS(45328) = Jac_FULL(5251,2807) - JVS(45328) = B(8453) -! JVS(45329) = Jac_FULL(5251,2808) - JVS(45329) = 2*B(13035) -! JVS(45330) = Jac_FULL(5251,2809) - JVS(45330) = B(23455) -! JVS(45331) = Jac_FULL(5251,2811) - JVS(45331) = 2*B(4322) -! JVS(45332) = Jac_FULL(5251,2813) - JVS(45332) = B(23179) -! JVS(45333) = Jac_FULL(5251,2815) - JVS(45333) = B(11563) -! JVS(45334) = Jac_FULL(5251,2819) - JVS(45334) = 2*B(18575) -! JVS(45335) = Jac_FULL(5251,2820) - JVS(45335) = B(20296) -! JVS(45336) = Jac_FULL(5251,2822) - JVS(45336) = B(19594) -! JVS(45337) = Jac_FULL(5251,2823) - JVS(45337) = B(20382) -! JVS(45338) = Jac_FULL(5251,2824) - JVS(45338) = B(13497) -! JVS(45339) = Jac_FULL(5251,2825) - JVS(45339) = B(11444) -! JVS(45340) = Jac_FULL(5251,2828) - JVS(45340) = B(11597) -! JVS(45341) = Jac_FULL(5251,2829) - JVS(45341) = B(22093) -! JVS(45342) = Jac_FULL(5251,2830) - JVS(45342) = 2*B(12681) -! JVS(45343) = Jac_FULL(5251,2836) - JVS(45343) = 0 -! JVS(45344) = Jac_FULL(5251,2837) - JVS(45344) = B(9214) -! JVS(45345) = Jac_FULL(5251,2838) - JVS(45345) = B(21384) -! JVS(45346) = Jac_FULL(5251,2841) - JVS(45346) = B(11763) -! JVS(45347) = Jac_FULL(5251,2842) - JVS(45347) = B(19582) -! JVS(45348) = Jac_FULL(5251,2843) - JVS(45348) = B(17554) -! JVS(45349) = Jac_FULL(5251,2844) - JVS(45349) = B(17621) -! JVS(45350) = Jac_FULL(5251,2845) - JVS(45350) = B(22155) -! JVS(45351) = Jac_FULL(5251,2846) - JVS(45351) = B(17602) -! JVS(45352) = Jac_FULL(5251,2848) - JVS(45352) = B(17629) -! JVS(45353) = Jac_FULL(5251,2850) - JVS(45353) = B(16914) -! JVS(45354) = Jac_FULL(5251,2852) - JVS(45354) = B(21524) -! JVS(45355) = Jac_FULL(5251,2853) - JVS(45355) = B(22194) -! JVS(45356) = Jac_FULL(5251,2858) - JVS(45356) = B(12241) -! JVS(45357) = Jac_FULL(5251,2860) - JVS(45357) = B(17199) -! JVS(45358) = Jac_FULL(5251,2861) - JVS(45358) = B(4097) -! JVS(45359) = Jac_FULL(5251,2862) - JVS(45359) = B(21443) -! JVS(45360) = Jac_FULL(5251,2864) - JVS(45360) = B(23938) -! JVS(45361) = Jac_FULL(5251,2867) - JVS(45361) = 2*B(21670) -! JVS(45362) = Jac_FULL(5251,2872) - JVS(45362) = B(12263) -! JVS(45363) = Jac_FULL(5251,2873) - JVS(45363) = B(4319) -! JVS(45364) = Jac_FULL(5251,2875) - JVS(45364) = B(9602) -! JVS(45365) = Jac_FULL(5251,2876) - JVS(45365) = 2*B(12499) -! JVS(45366) = Jac_FULL(5251,2877) - JVS(45366) = B(21203) -! JVS(45367) = Jac_FULL(5251,2879) - JVS(45367) = B(17102) -! JVS(45368) = Jac_FULL(5251,2880) - JVS(45368) = B(11470) -! JVS(45369) = Jac_FULL(5251,2881) - JVS(45369) = B(14177) -! JVS(45370) = Jac_FULL(5251,2882) - JVS(45370) = B(7644) -! JVS(45371) = Jac_FULL(5251,2883) - JVS(45371) = B(14083) -! JVS(45372) = Jac_FULL(5251,2884) - JVS(45372) = B(17502) -! JVS(45373) = Jac_FULL(5251,2885) - JVS(45373) = B(17522) -! JVS(45374) = Jac_FULL(5251,2886) - JVS(45374) = B(19565) -! JVS(45375) = Jac_FULL(5251,2887) - JVS(45375) = B(11683) -! JVS(45376) = Jac_FULL(5251,2890) - JVS(45376) = B(22568) -! JVS(45377) = Jac_FULL(5251,2894) - JVS(45377) = B(23678) -! JVS(45378) = Jac_FULL(5251,2895) - JVS(45378) = B(23490) -! JVS(45379) = Jac_FULL(5251,2896) - JVS(45379) = B(12312) -! JVS(45380) = Jac_FULL(5251,2898) - JVS(45380) = B(14337) -! JVS(45381) = Jac_FULL(5251,2899) - JVS(45381) = B(22271) -! JVS(45382) = Jac_FULL(5251,2900) - JVS(45382) = 0 -! JVS(45383) = Jac_FULL(5251,2904) - JVS(45383) = B(12690) -! JVS(45384) = Jac_FULL(5251,2905) - JVS(45384) = 2*B(18700) -! JVS(45385) = Jac_FULL(5251,2907) - JVS(45385) = B(21579) -! JVS(45386) = Jac_FULL(5251,2911) - JVS(45386) = B(21295) -! JVS(45387) = Jac_FULL(5251,2915) - JVS(45387) = B(9565) -! JVS(45388) = Jac_FULL(5251,2919) - JVS(45388) = B(21451) -! JVS(45389) = Jac_FULL(5251,2921) - JVS(45389) = B(11630) -! JVS(45390) = Jac_FULL(5251,2924) - JVS(45390) = 2*B(12364) -! JVS(45391) = Jac_FULL(5251,2925) - JVS(45391) = B(20460) -! JVS(45392) = Jac_FULL(5251,2927) - JVS(45392) = 2*B(12994) -! JVS(45393) = Jac_FULL(5251,2928) - JVS(45393) = B(21571) -! JVS(45394) = Jac_FULL(5251,2929) - JVS(45394) = B(20155) -! JVS(45395) = Jac_FULL(5251,2930) - JVS(45395) = B(22163) -! JVS(45396) = Jac_FULL(5251,2936) - JVS(45396) = 2*B(12896) -! JVS(45397) = Jac_FULL(5251,2941) - JVS(45397) = B(23496) -! JVS(45398) = Jac_FULL(5251,2945) - JVS(45398) = B(7757) -! JVS(45399) = Jac_FULL(5251,2947) - JVS(45399) = B(17127) -! JVS(45400) = Jac_FULL(5251,2951) - JVS(45400) = B(14241) -! JVS(45401) = Jac_FULL(5251,2955) - JVS(45401) = B(8690) -! JVS(45402) = Jac_FULL(5251,2956) - JVS(45402) = B(12613) -! JVS(45403) = Jac_FULL(5251,2958) - JVS(45403) = B(17112) -! JVS(45404) = Jac_FULL(5251,2960) - JVS(45404) = B(22182) -! JVS(45405) = Jac_FULL(5251,2966) - JVS(45405) = B(21619)+B(21621) -! JVS(45406) = Jac_FULL(5251,2968) - JVS(45406) = B(24035) -! JVS(45407) = Jac_FULL(5251,2969) - JVS(45407) = B(18488) -! JVS(45408) = Jac_FULL(5251,2971) - JVS(45408) = B(13471) -! JVS(45409) = Jac_FULL(5251,2975) - JVS(45409) = B(22133) -! JVS(45410) = Jac_FULL(5251,2977) - JVS(45410) = B(21683) -! JVS(45411) = Jac_FULL(5251,2978) - JVS(45411) = B(19573) -! JVS(45412) = Jac_FULL(5251,2980) - JVS(45412) = B(23600) -! JVS(45413) = Jac_FULL(5251,2984) - JVS(45413) = B(22438) -! JVS(45414) = Jac_FULL(5251,2987) - JVS(45414) = B(21165) -! JVS(45415) = Jac_FULL(5251,2988) - JVS(45415) = B(12284) -! JVS(45416) = Jac_FULL(5251,2989) - JVS(45416) = B(21645) -! JVS(45417) = Jac_FULL(5251,2991) - JVS(45417) = B(21312) -! JVS(45418) = Jac_FULL(5251,2992) - JVS(45418) = B(4180) -! JVS(45419) = Jac_FULL(5251,2993) - JVS(45419) = B(4178) -! JVS(45420) = Jac_FULL(5251,2998) - JVS(45420) = B(22225) -! JVS(45421) = Jac_FULL(5251,3003) - JVS(45421) = B(4103) -! JVS(45422) = Jac_FULL(5251,3007) - JVS(45422) = B(21227) -! JVS(45423) = Jac_FULL(5251,3008) - JVS(45423) = B(21651) -! JVS(45424) = Jac_FULL(5251,3010) - JVS(45424) = B(22957) -! JVS(45425) = Jac_FULL(5251,3011) - JVS(45425) = B(20972) -! JVS(45426) = Jac_FULL(5251,3012) - JVS(45426) = B(18421) -! JVS(45427) = Jac_FULL(5251,3014) - JVS(45427) = B(22272) -! JVS(45428) = Jac_FULL(5251,3017) - JVS(45428) = B(14398) -! JVS(45429) = Jac_FULL(5251,3020) - JVS(45429) = B(11569) -! JVS(45430) = Jac_FULL(5251,3021) - JVS(45430) = B(11575) -! JVS(45431) = Jac_FULL(5251,3022) - JVS(45431) = B(8733) -! JVS(45432) = Jac_FULL(5251,3023) - JVS(45432) = B(11992) -! JVS(45433) = Jac_FULL(5251,3024) - JVS(45433) = B(11886) -! JVS(45434) = Jac_FULL(5251,3025) - JVS(45434) = B(17679) -! JVS(45435) = Jac_FULL(5251,3026) - JVS(45435) = B(11946) -! JVS(45436) = Jac_FULL(5251,3033) - JVS(45436) = B(13619) -! JVS(45437) = Jac_FULL(5251,3040) - JVS(45437) = 2*B(21313) -! JVS(45438) = Jac_FULL(5251,3041) - JVS(45438) = B(23801) -! JVS(45439) = Jac_FULL(5251,3042) - JVS(45439) = B(20387) -! JVS(45440) = Jac_FULL(5251,3043) - JVS(45440) = B(11404) -! JVS(45441) = Jac_FULL(5251,3044) - JVS(45441) = B(4365) -! JVS(45442) = Jac_FULL(5251,3047) - JVS(45442) = B(7751) -! JVS(45443) = Jac_FULL(5251,3051) - JVS(45443) = B(12269) -! JVS(45444) = Jac_FULL(5251,3052) - JVS(45444) = B(21516) -! JVS(45445) = Jac_FULL(5251,3053) - JVS(45445) = B(20593) -! JVS(45446) = Jac_FULL(5251,3056) - JVS(45446) = B(11592) -! JVS(45447) = Jac_FULL(5251,3058) - JVS(45447) = B(22198) -! JVS(45448) = Jac_FULL(5251,3060) - JVS(45448) = B(8860) -! JVS(45449) = Jac_FULL(5251,3062) - JVS(45449) = 2*B(23887) -! JVS(45450) = Jac_FULL(5251,3063) - JVS(45450) = 3*B(21409) -! JVS(45451) = Jac_FULL(5251,3067) - JVS(45451) = B(23346) -! JVS(45452) = Jac_FULL(5251,3070) - JVS(45452) = B(21240) -! JVS(45453) = Jac_FULL(5251,3073) - JVS(45453) = B(22186) -! JVS(45454) = Jac_FULL(5251,3075) - JVS(45454) = 2*B(21320) -! JVS(45455) = Jac_FULL(5251,3099) - JVS(45455) = B(4222) -! JVS(45456) = Jac_FULL(5251,3107) - JVS(45456) = B(9945)+2*B(9947) -! JVS(45457) = Jac_FULL(5251,3108) - JVS(45457) = B(9942) -! JVS(45458) = Jac_FULL(5251,3115) - JVS(45458) = B(11073)+B(11075) -! JVS(45459) = Jac_FULL(5251,3132) - JVS(45459) = B(13259)+B(13261) -! JVS(45460) = Jac_FULL(5251,3133) - JVS(45460) = B(6161) -! JVS(45461) = Jac_FULL(5251,3147) - JVS(45461) = B(2997) -! JVS(45462) = Jac_FULL(5251,3154) - JVS(45462) = 0 -! JVS(45463) = Jac_FULL(5251,3155) - JVS(45463) = B(3117) -! JVS(45464) = Jac_FULL(5251,3160) - JVS(45464) = 0 -! JVS(45465) = Jac_FULL(5251,3171) - JVS(45465) = B(4376)+B(4378) -! JVS(45466) = Jac_FULL(5251,3176) - JVS(45466) = B(8971)+2*B(8973) -! JVS(45467) = Jac_FULL(5251,3177) - JVS(45467) = 2*B(8968) -! JVS(45468) = Jac_FULL(5251,3186) - JVS(45468) = B(6460) -! JVS(45469) = Jac_FULL(5251,3196) - JVS(45469) = B(15697) -! JVS(45470) = Jac_FULL(5251,3197) - JVS(45470) = B(16632) -! JVS(45471) = Jac_FULL(5251,3199) - JVS(45471) = B(13057) -! JVS(45472) = Jac_FULL(5251,3200) - JVS(45472) = B(10309) -! JVS(45473) = Jac_FULL(5251,3201) - JVS(45473) = B(16634) -! JVS(45474) = Jac_FULL(5251,3202) - JVS(45474) = B(2297) -! JVS(45475) = Jac_FULL(5251,3204) - JVS(45475) = B(16552) -! JVS(45476) = Jac_FULL(5251,3206) - JVS(45476) = B(9080) -! JVS(45477) = Jac_FULL(5251,3207) - JVS(45477) = B(3964) -! JVS(45478) = Jac_FULL(5251,3210) - JVS(45478) = B(5910) -! JVS(45479) = Jac_FULL(5251,3214) - JVS(45479) = 0 -! JVS(45480) = Jac_FULL(5251,3215) - JVS(45480) = B(20545) -! JVS(45481) = Jac_FULL(5251,3216) - JVS(45481) = B(20543) -! JVS(45482) = Jac_FULL(5251,3217) - JVS(45482) = B(21611)+B(21614) -! JVS(45483) = Jac_FULL(5251,3218) - JVS(45483) = B(21253) -! JVS(45484) = Jac_FULL(5251,3220) - JVS(45484) = B(12510) -! JVS(45485) = Jac_FULL(5251,3221) - JVS(45485) = 2*B(16167) -! JVS(45486) = Jac_FULL(5251,3223) - JVS(45486) = B(16905) -! JVS(45487) = Jac_FULL(5251,3224) - JVS(45487) = B(21555) -! JVS(45488) = Jac_FULL(5251,3225) - JVS(45488) = B(12940) -! JVS(45489) = Jac_FULL(5251,3226) - JVS(45489) = B(13034) -! JVS(45490) = Jac_FULL(5251,3227) - JVS(45490) = B(9765) -! JVS(45491) = Jac_FULL(5251,3228) - JVS(45491) = B(6842) -! JVS(45492) = Jac_FULL(5251,3229) - JVS(45492) = B(12728) -! JVS(45493) = Jac_FULL(5251,3230) - JVS(45493) = 2*B(12802) -! JVS(45494) = Jac_FULL(5251,3232) - JVS(45494) = B(13214) -! JVS(45495) = Jac_FULL(5251,3236) - JVS(45495) = B(20482) -! JVS(45496) = Jac_FULL(5251,3238) - JVS(45496) = B(9362) -! JVS(45497) = Jac_FULL(5251,3239) - JVS(45497) = B(14196) -! JVS(45498) = Jac_FULL(5251,3240) - JVS(45498) = B(16510) -! JVS(45499) = Jac_FULL(5251,3248) - JVS(45499) = B(22888)+B(22890)+B(22892) -! JVS(45500) = Jac_FULL(5251,3249) - JVS(45500) = 2*B(16414) -! JVS(45501) = Jac_FULL(5251,3250) - JVS(45501) = B(18738)+B(18740) -! JVS(45502) = Jac_FULL(5251,3251) - JVS(45502) = B(9896) -! JVS(45503) = Jac_FULL(5251,3252) - JVS(45503) = B(8584) -! JVS(45504) = Jac_FULL(5251,3254) - JVS(45504) = B(4230) -! JVS(45505) = Jac_FULL(5251,3255) - JVS(45505) = B(7745) -! JVS(45506) = Jac_FULL(5251,3257) - JVS(45506) = B(22287) -! JVS(45507) = Jac_FULL(5251,3258) - JVS(45507) = B(9850) -! JVS(45508) = Jac_FULL(5251,3259) - JVS(45508) = B(18990) -! JVS(45509) = Jac_FULL(5251,3260) - JVS(45509) = B(11743) -! JVS(45510) = Jac_FULL(5251,3262) - JVS(45510) = B(10188) -! JVS(45511) = Jac_FULL(5251,3267) - JVS(45511) = B(21606)+B(21609) -! JVS(45512) = Jac_FULL(5251,3269) - JVS(45512) = B(8513) -! JVS(45513) = Jac_FULL(5251,3273) - JVS(45513) = B(16609) -! JVS(45514) = Jac_FULL(5251,3274) - JVS(45514) = 0 -! JVS(45515) = Jac_FULL(5251,3275) - JVS(45515) = B(19025) -! JVS(45516) = Jac_FULL(5251,3276) - JVS(45516) = B(20524) -! JVS(45517) = Jac_FULL(5251,3280) - JVS(45517) = 2*B(15556) -! JVS(45518) = Jac_FULL(5251,3281) - JVS(45518) = B(18262) -! JVS(45519) = Jac_FULL(5251,3282) - JVS(45519) = B(21279) -! JVS(45520) = Jac_FULL(5251,3286) - JVS(45520) = B(16605)+B(16608) -! JVS(45521) = Jac_FULL(5251,3287) - JVS(45521) = 0 -! JVS(45522) = Jac_FULL(5251,3290) - JVS(45522) = B(15558) -! JVS(45523) = Jac_FULL(5251,3291) - JVS(45523) = 0 -! JVS(45524) = Jac_FULL(5251,3292) - JVS(45524) = B(8939) -! JVS(45525) = Jac_FULL(5251,3293) - JVS(45525) = B(23609) -! JVS(45526) = Jac_FULL(5251,3294) - JVS(45526) = B(4224)+B(4227) -! JVS(45527) = Jac_FULL(5251,3297) - JVS(45527) = B(2146) -! JVS(45528) = Jac_FULL(5251,3300) - JVS(45528) = 2*B(13228) -! JVS(45529) = Jac_FULL(5251,3301) - JVS(45529) = B(8463) -! JVS(45530) = Jac_FULL(5251,3302) - JVS(45530) = B(4860) -! JVS(45531) = Jac_FULL(5251,3303) - JVS(45531) = B(13444) -! JVS(45532) = Jac_FULL(5251,3306) - JVS(45532) = B(21266) -! JVS(45533) = Jac_FULL(5251,3307) - JVS(45533) = B(16931) -! JVS(45534) = Jac_FULL(5251,3309) - JVS(45534) = B(22390) -! JVS(45535) = Jac_FULL(5251,3311) - JVS(45535) = B(17715) -! JVS(45536) = Jac_FULL(5251,3312) - JVS(45536) = B(11968) -! JVS(45537) = Jac_FULL(5251,3313) - JVS(45537) = B(22635) -! JVS(45538) = Jac_FULL(5251,3315) - JVS(45538) = B(21351) -! JVS(45539) = Jac_FULL(5251,3316) - JVS(45539) = B(9770) -! JVS(45540) = Jac_FULL(5251,3317) - JVS(45540) = B(6603) -! JVS(45541) = Jac_FULL(5251,3318) - JVS(45541) = B(13163) -! JVS(45542) = Jac_FULL(5251,3323) - JVS(45542) = B(23042) -! JVS(45543) = Jac_FULL(5251,3324) - JVS(45543) = B(20529) -! JVS(45544) = Jac_FULL(5251,3325) - JVS(45544) = 2*B(12360) -! JVS(45545) = Jac_FULL(5251,3327) - JVS(45545) = B(22838) -! JVS(45546) = Jac_FULL(5251,3329) - JVS(45546) = 2*B(20066) -! JVS(45547) = Jac_FULL(5251,3330) - JVS(45547) = B(4293)+B(4295) -! JVS(45548) = Jac_FULL(5251,3336) - JVS(45548) = B(19585) -! JVS(45549) = Jac_FULL(5251,3337) - JVS(45549) = B(22479)+B(22481) -! JVS(45550) = Jac_FULL(5251,3339) - JVS(45550) = B(9203)+B(9205) -! JVS(45551) = Jac_FULL(5251,3340) - JVS(45551) = B(9200) -! JVS(45552) = Jac_FULL(5251,3344) - JVS(45552) = B(13920) -! JVS(45553) = Jac_FULL(5251,3345) - JVS(45553) = B(10083)+B(10085) -! JVS(45554) = Jac_FULL(5251,3348) - JVS(45554) = B(21759)+B(21761) -! JVS(45555) = Jac_FULL(5251,3350) - JVS(45555) = 2*B(16476)+2*B(16478) -! JVS(45556) = Jac_FULL(5251,3352) - JVS(45556) = B(9586)+B(9588) -! JVS(45557) = Jac_FULL(5251,3353) - JVS(45557) = B(9583) -! JVS(45558) = Jac_FULL(5251,3355) - JVS(45558) = 2*B(23573)+2*B(23575) -! JVS(45559) = Jac_FULL(5251,3356) - JVS(45559) = B(9354)+B(9356) -! JVS(45560) = Jac_FULL(5251,3357) - JVS(45560) = B(9351) -! JVS(45561) = Jac_FULL(5251,3358) - JVS(45561) = 2*B(17465) -! JVS(45562) = Jac_FULL(5251,3359) - JVS(45562) = B(9113)+B(9115) -! JVS(45563) = Jac_FULL(5251,3360) - JVS(45563) = B(9110) -! JVS(45564) = Jac_FULL(5251,3365) - JVS(45564) = B(22883)+B(22885) -! JVS(45565) = Jac_FULL(5251,3370) - JVS(45565) = 2*B(19883) -! JVS(45566) = Jac_FULL(5251,3375) - JVS(45566) = 2*B(19921) -! JVS(45567) = Jac_FULL(5251,3378) - JVS(45567) = B(8881)+B(8883) -! JVS(45568) = Jac_FULL(5251,3379) - JVS(45568) = B(8878) -! JVS(45569) = Jac_FULL(5251,3387) - JVS(45569) = B(14919) -! JVS(45570) = Jac_FULL(5251,3389) - JVS(45570) = 3*B(14223) -! JVS(45571) = Jac_FULL(5251,3397) - JVS(45571) = B(22673)+B(22675) -! JVS(45572) = Jac_FULL(5251,3400) - JVS(45572) = 2*B(20040) -! JVS(45573) = Jac_FULL(5251,3406) - JVS(45573) = 2*B(20186) -! JVS(45574) = Jac_FULL(5251,3408) - JVS(45574) = B(19033) -! JVS(45575) = Jac_FULL(5251,3411) - JVS(45575) = B(10008)+B(10010) -! JVS(45576) = Jac_FULL(5251,3419) - JVS(45576) = B(13276) -! JVS(45577) = Jac_FULL(5251,3426) - JVS(45577) = B(9475)+B(9477) -! JVS(45578) = Jac_FULL(5251,3427) - JVS(45578) = B(9472) -! JVS(45579) = Jac_FULL(5251,3431) - JVS(45579) = B(22733)+B(22735) -! JVS(45580) = Jac_FULL(5251,3436) - JVS(45580) = B(21882) -! JVS(45581) = Jac_FULL(5251,3441) - JVS(45581) = B(13275) -! JVS(45582) = Jac_FULL(5251,3446) - JVS(45582) = B(12388) -! JVS(45583) = Jac_FULL(5251,3448) - JVS(45583) = B(4269) -! JVS(45584) = Jac_FULL(5251,3449) - JVS(45584) = B(16623) -! JVS(45585) = Jac_FULL(5251,3450) - JVS(45585) = B(12581) -! JVS(45586) = Jac_FULL(5251,3451) - JVS(45586) = B(10091)+B(10092) -! JVS(45587) = Jac_FULL(5251,3452) - JVS(45587) = B(9789) -! JVS(45588) = Jac_FULL(5251,3454) - JVS(45588) = B(16600) -! JVS(45589) = Jac_FULL(5251,3458) - JVS(45589) = B(12842) -! JVS(45590) = Jac_FULL(5251,3459) - JVS(45590) = B(13514) -! JVS(45591) = Jac_FULL(5251,3462) - JVS(45591) = B(4308) -! JVS(45592) = Jac_FULL(5251,3463) - JVS(45592) = B(18487) -! JVS(45593) = Jac_FULL(5251,3467) - JVS(45593) = B(18420) -! JVS(45594) = Jac_FULL(5251,3468) - JVS(45594) = B(9211)+B(9213) -! JVS(45595) = Jac_FULL(5251,3469) - JVS(45595) = 2*B(8979) -! JVS(45596) = Jac_FULL(5251,3470) - JVS(45596) = B(16499) -! JVS(45597) = Jac_FULL(5251,3471) - JVS(45597) = B(15090) -! JVS(45598) = Jac_FULL(5251,3475) - JVS(45598) = B(12680) -! JVS(45599) = Jac_FULL(5251,3479) - JVS(45599) = B(2080) -! JVS(45600) = Jac_FULL(5251,3480) - JVS(45600) = B(23839) -! JVS(45601) = Jac_FULL(5251,3483) - JVS(45601) = B(13521)+B(13522)+B(13524) -! JVS(45602) = Jac_FULL(5251,3484) - JVS(45602) = 3*B(18129)+3*B(18131)+3*B(18133) -! JVS(45603) = Jac_FULL(5251,3487) - JVS(45603) = B(9769) -! JVS(45604) = Jac_FULL(5251,3488) - JVS(45604) = B(10481)+B(10483)+B(10485) -! JVS(45605) = Jac_FULL(5251,3495) - JVS(45605) = B(23357) -! JVS(45606) = Jac_FULL(5251,3501) - JVS(45606) = B(16504)+B(16508) -! JVS(45607) = Jac_FULL(5251,3502) - JVS(45607) = B(14913) -! JVS(45608) = Jac_FULL(5251,3510) - JVS(45608) = B(13947)+B(13949)+B(13951) -! JVS(45609) = Jac_FULL(5251,3515) - JVS(45609) = B(14923) -! JVS(45610) = Jac_FULL(5251,3520) - JVS(45610) = B(4348) -! JVS(45611) = Jac_FULL(5251,3524) - JVS(45611) = B(13765)+B(13768) -! JVS(45612) = Jac_FULL(5251,3526) - JVS(45612) = 2*B(16457)+2*B(16458)+2*B(16460) -! JVS(45613) = Jac_FULL(5251,3529) - JVS(45613) = B(14914) -! JVS(45614) = Jac_FULL(5251,3533) - JVS(45614) = B(7660) -! JVS(45615) = Jac_FULL(5251,3540) - JVS(45615) = B(4127) -! JVS(45616) = Jac_FULL(5251,3543) - JVS(45616) = B(16037)+B(16039)+B(16041) -! JVS(45617) = Jac_FULL(5251,3546) - JVS(45617) = B(22217)+B(22219)+B(22221) -! JVS(45618) = Jac_FULL(5251,3547) - JVS(45618) = B(3958) -! JVS(45619) = Jac_FULL(5251,3550) - JVS(45619) = 0 -! JVS(45620) = Jac_FULL(5251,3552) - JVS(45620) = 0 -! JVS(45621) = Jac_FULL(5251,3557) - JVS(45621) = 2*B(22445)+2*B(22447) -! JVS(45622) = Jac_FULL(5251,3559) - JVS(45622) = B(11079) -! JVS(45623) = Jac_FULL(5251,3566) - JVS(45623) = B(7962) -! JVS(45624) = Jac_FULL(5251,3571) - JVS(45624) = 3*B(19890)+B(19892) -! JVS(45625) = Jac_FULL(5251,3574) - JVS(45625) = 2*B(20101) -! JVS(45626) = Jac_FULL(5251,3582) - JVS(45626) = B(12675) -! JVS(45627) = Jac_FULL(5251,3587) - JVS(45627) = B(4249) -! JVS(45628) = Jac_FULL(5251,3590) - JVS(45628) = 2*B(12443) -! JVS(45629) = Jac_FULL(5251,3593) - JVS(45629) = 2*B(20195) -! JVS(45630) = Jac_FULL(5251,3595) - JVS(45630) = 2*B(20049) -! JVS(45631) = Jac_FULL(5251,3596) - JVS(45631) = 2*B(20131) -! JVS(45632) = Jac_FULL(5251,3601) - JVS(45632) = 2*B(21624) -! JVS(45633) = Jac_FULL(5251,3603) - JVS(45633) = B(4080) -! JVS(45634) = Jac_FULL(5251,3604) - JVS(45634) = B(24025) -! JVS(45635) = Jac_FULL(5251,3607) - JVS(45635) = B(7233) -! JVS(45636) = Jac_FULL(5251,3611) - JVS(45636) = B(23360) -! JVS(45637) = Jac_FULL(5251,3612) - JVS(45637) = B(22760) -! JVS(45638) = Jac_FULL(5251,3615) - JVS(45638) = B(23841) -! JVS(45639) = Jac_FULL(5251,3618) - JVS(45639) = B(18804) -! JVS(45640) = Jac_FULL(5251,3620) - JVS(45640) = 0 -! JVS(45641) = Jac_FULL(5251,3622) - JVS(45641) = B(2717) -! JVS(45642) = Jac_FULL(5251,3624) - JVS(45642) = B(9889) -! JVS(45643) = Jac_FULL(5251,3626) - JVS(45643) = B(13923) -! JVS(45644) = Jac_FULL(5251,3628) - JVS(45644) = 0 -! JVS(45645) = Jac_FULL(5251,3630) - JVS(45645) = 2*B(10441) -! JVS(45646) = Jac_FULL(5251,3633) - JVS(45646) = B(23970) -! JVS(45647) = Jac_FULL(5251,3635) - JVS(45647) = 0 -! JVS(45648) = Jac_FULL(5251,3639) - JVS(45648) = B(23616)+B(23618) -! JVS(45649) = Jac_FULL(5251,3640) - JVS(45649) = B(5487) -! JVS(45650) = Jac_FULL(5251,3643) - JVS(45650) = B(5394) -! JVS(45651) = Jac_FULL(5251,3644) - JVS(45651) = B(12393) -! JVS(45652) = Jac_FULL(5251,3645) - JVS(45652) = B(6106) -! JVS(45653) = Jac_FULL(5251,3647) - JVS(45653) = B(12459) -! JVS(45654) = Jac_FULL(5251,3649) - JVS(45654) = B(5673) -! JVS(45655) = Jac_FULL(5251,3652) - JVS(45655) = B(1494) -! JVS(45656) = Jac_FULL(5251,3653) - JVS(45656) = B(3933) -! JVS(45657) = Jac_FULL(5251,3655) - JVS(45657) = B(6018) -! JVS(45658) = Jac_FULL(5251,3657) - JVS(45658) = B(5586) -! JVS(45659) = Jac_FULL(5251,3661) - JVS(45659) = B(5943) -! JVS(45660) = Jac_FULL(5251,3662) - JVS(45660) = B(14973) -! JVS(45661) = Jac_FULL(5251,3666) - JVS(45661) = 0 -! JVS(45662) = Jac_FULL(5251,3672) - JVS(45662) = B(14910) -! JVS(45663) = Jac_FULL(5251,3673) - JVS(45663) = 2*B(20106)+B(20108) -! JVS(45664) = Jac_FULL(5251,3681) - JVS(45664) = 2*B(20265)+B(20267) -! JVS(45665) = Jac_FULL(5251,3683) - JVS(45665) = B(14046) -! JVS(45666) = Jac_FULL(5251,3684) - JVS(45666) = 0 -! JVS(45667) = Jac_FULL(5251,3689) - JVS(45667) = B(862)+B(863) -! JVS(45668) = Jac_FULL(5251,3693) - JVS(45668) = B(13685)+B(13688) -! JVS(45669) = Jac_FULL(5251,3701) - JVS(45669) = 0 -! JVS(45670) = Jac_FULL(5251,3702) - JVS(45670) = B(10181) -! JVS(45671) = Jac_FULL(5251,3707) - JVS(45671) = B(13665)+B(13668) -! JVS(45672) = Jac_FULL(5251,3708) - JVS(45672) = 0 -! JVS(45673) = Jac_FULL(5251,3709) - JVS(45673) = 2*B(20221)+B(20223) -! JVS(45674) = Jac_FULL(5251,3712) - JVS(45674) = B(12362) -! JVS(45675) = Jac_FULL(5251,3726) - JVS(45675) = B(13110)+B(13112) -! JVS(45676) = Jac_FULL(5251,3729) - JVS(45676) = 2*B(19951)+B(19953) -! JVS(45677) = Jac_FULL(5251,3732) - JVS(45677) = 2*B(20071)+B(20073) -! JVS(45678) = Jac_FULL(5251,3736) - JVS(45678) = 0 -! JVS(45679) = Jac_FULL(5251,3737) - JVS(45679) = 0 -! JVS(45680) = Jac_FULL(5251,3742) - JVS(45680) = 3*B(20023) -! JVS(45681) = Jac_FULL(5251,3748) - JVS(45681) = B(18339)+B(18341)+B(18343) -! JVS(45682) = Jac_FULL(5251,3755) - JVS(45682) = 0 -! JVS(45683) = Jac_FULL(5251,3759) - JVS(45683) = 0 -! JVS(45684) = Jac_FULL(5251,3763) - JVS(45684) = B(6615) -! JVS(45685) = Jac_FULL(5251,3773) - JVS(45685) = B(18410)+B(18412)+B(18414) -! JVS(45686) = Jac_FULL(5251,3775) - JVS(45686) = B(18477)+B(18479)+B(18481) -! JVS(45687) = Jac_FULL(5251,3780) - JVS(45687) = 0 -! JVS(45688) = Jac_FULL(5251,3783) - JVS(45688) = 2*B(19904)+B(19906) -! JVS(45689) = Jac_FULL(5251,3787) - JVS(45689) = 2*B(20136)+B(20138) -! JVS(45690) = Jac_FULL(5251,3792) - JVS(45690) = B(15002) -! JVS(45691) = Jac_FULL(5251,3800) - JVS(45691) = B(12871) -! JVS(45692) = Jac_FULL(5251,3801) - JVS(45692) = B(13764) -! JVS(45693) = Jac_FULL(5251,3809) - JVS(45693) = 2*B(4253)+B(4254) -! JVS(45694) = Jac_FULL(5251,3810) - JVS(45694) = 0 -! JVS(45695) = Jac_FULL(5251,3814) - JVS(45695) = 0 -! JVS(45696) = Jac_FULL(5251,3816) - JVS(45696) = B(12976) -! JVS(45697) = Jac_FULL(5251,3829) - JVS(45697) = B(13183) -! JVS(45698) = Jac_FULL(5251,3831) - JVS(45698) = 0 -! JVS(45699) = Jac_FULL(5251,3832) - JVS(45699) = B(9730) -! JVS(45700) = Jac_FULL(5251,3833) - JVS(45700) = 2*B(2830)+B(2831) -! JVS(45701) = Jac_FULL(5251,3834) - JVS(45701) = 2*B(2446)+B(2447) -! JVS(45702) = Jac_FULL(5251,3835) - JVS(45702) = 0 -! JVS(45703) = Jac_FULL(5251,3837) - JVS(45703) = B(18949) -! JVS(45704) = Jac_FULL(5251,3851) - JVS(45704) = B(4582) -! JVS(45705) = Jac_FULL(5251,3856) - JVS(45705) = B(4636) -! JVS(45706) = Jac_FULL(5251,3857) - JVS(45706) = B(11842) -! JVS(45707) = Jac_FULL(5251,3861) - JVS(45707) = B(19001) -! JVS(45708) = Jac_FULL(5251,3862) - JVS(45708) = B(20813) -! JVS(45709) = Jac_FULL(5251,3875) - JVS(45709) = B(4525) -! JVS(45710) = Jac_FULL(5251,3877) - JVS(45710) = B(4681) -! JVS(45711) = Jac_FULL(5251,3879) - JVS(45711) = B(7215) -! JVS(45712) = Jac_FULL(5251,3892) - JVS(45712) = 2*B(3969)+2*B(3971)+B(3973) -! JVS(45713) = Jac_FULL(5251,3896) - JVS(45713) = B(18687) -! JVS(45714) = Jac_FULL(5251,3900) - JVS(45714) = B(6989) -! JVS(45715) = Jac_FULL(5251,3911) - JVS(45715) = B(18211) -! JVS(45716) = Jac_FULL(5251,3913) - JVS(45716) = B(22417) -! JVS(45717) = Jac_FULL(5251,3914) - JVS(45717) = B(18199) -! JVS(45718) = Jac_FULL(5251,3915) - JVS(45718) = B(14946) -! JVS(45719) = Jac_FULL(5251,3923) - JVS(45719) = B(11734) -! JVS(45720) = Jac_FULL(5251,3924) - JVS(45720) = B(4653) -! JVS(45721) = Jac_FULL(5251,3930) - JVS(45721) = B(12577) -! JVS(45722) = Jac_FULL(5251,3931) - JVS(45722) = B(12574) -! JVS(45723) = Jac_FULL(5251,3934) - JVS(45723) = 0 -! JVS(45724) = Jac_FULL(5251,3935) - JVS(45724) = B(11482) -! JVS(45725) = Jac_FULL(5251,3937) - JVS(45725) = 0 -! JVS(45726) = Jac_FULL(5251,3938) - JVS(45726) = B(21141) -! JVS(45727) = Jac_FULL(5251,3945) - JVS(45727) = 0 -! JVS(45728) = Jac_FULL(5251,3946) - JVS(45728) = B(12064) -! JVS(45729) = Jac_FULL(5251,3947) - JVS(45729) = B(16979) -! JVS(45730) = Jac_FULL(5251,3958) - JVS(45730) = B(23965) -! JVS(45731) = Jac_FULL(5251,3960) - JVS(45731) = B(23931) -! JVS(45732) = Jac_FULL(5251,3964) - JVS(45732) = 0 -! JVS(45733) = Jac_FULL(5251,3965) - JVS(45733) = B(13157) -! JVS(45734) = Jac_FULL(5251,3968) - JVS(45734) = B(20243)+B(20245) -! JVS(45735) = Jac_FULL(5251,3972) - JVS(45735) = B(18977) -! JVS(45736) = Jac_FULL(5251,3986) - JVS(45736) = B(11981) -! JVS(45737) = Jac_FULL(5251,3991) - JVS(45737) = B(11507) -! JVS(45738) = Jac_FULL(5251,3992) - JVS(45738) = 0 -! JVS(45739) = Jac_FULL(5251,3993) - JVS(45739) = B(4303) -! JVS(45740) = Jac_FULL(5251,3995) - JVS(45740) = B(4175) -! JVS(45741) = Jac_FULL(5251,3996) - JVS(45741) = B(2799)+B(2800) -! JVS(45742) = Jac_FULL(5251,4010) - JVS(45742) = B(2415)+B(2416) -! JVS(45743) = Jac_FULL(5251,4013) - JVS(45743) = B(20054)+B(20056)+B(20060)+B(20062) -! JVS(45744) = Jac_FULL(5251,4014) - JVS(45744) = B(12720)+2*B(12722) -! JVS(45745) = Jac_FULL(5251,4017) - JVS(45745) = B(2987)+B(2988) -! JVS(45746) = Jac_FULL(5251,4018) - JVS(45746) = B(2939)+B(2940) -! JVS(45747) = Jac_FULL(5251,4024) - JVS(45747) = B(15552) -! JVS(45748) = Jac_FULL(5251,4025) - JVS(45748) = 0 -! JVS(45749) = Jac_FULL(5251,4026) - JVS(45749) = B(21373)+B(21375)+B(21379)+B(21381) -! JVS(45750) = Jac_FULL(5251,4027) - JVS(45750) = B(2759)+B(2760) -! JVS(45751) = Jac_FULL(5251,4029) - JVS(45751) = B(12936) -! JVS(45752) = Jac_FULL(5251,4031) - JVS(45752) = 0 -! JVS(45753) = Jac_FULL(5251,4032) - JVS(45753) = B(2589)+B(2590) -! JVS(45754) = Jac_FULL(5251,4046) - JVS(45754) = B(20074)+B(20078)+B(20082)+B(20084) -! JVS(45755) = Jac_FULL(5251,4047) - JVS(45755) = B(12784) -! JVS(45756) = Jac_FULL(5251,4051) - JVS(45756) = 0 -! JVS(45757) = Jac_FULL(5251,4053) - JVS(45757) = B(15431) -! JVS(45758) = Jac_FULL(5251,4056) - JVS(45758) = B(2490)+B(2491) -! JVS(45759) = Jac_FULL(5251,4060) - JVS(45759) = 0 -! JVS(45760) = Jac_FULL(5251,4062) - JVS(45760) = B(12837) -! JVS(45761) = Jac_FULL(5251,4066) - JVS(45761) = 0 -! JVS(45762) = Jac_FULL(5251,4069) - JVS(45762) = 0 -! JVS(45763) = Jac_FULL(5251,4070) - JVS(45763) = 0 -! JVS(45764) = Jac_FULL(5251,4071) - JVS(45764) = B(12495) -! JVS(45765) = Jac_FULL(5251,4076) - JVS(45765) = 0 -! JVS(45766) = Jac_FULL(5251,4080) - JVS(45766) = B(2863)+B(2864) -! JVS(45767) = Jac_FULL(5251,4081) - JVS(45767) = B(5730) -! JVS(45768) = Jac_FULL(5251,4083) - JVS(45768) = B(2533)+B(2534) -! JVS(45769) = Jac_FULL(5251,4084) - JVS(45769) = B(5360) -! JVS(45770) = Jac_FULL(5251,4086) - JVS(45770) = B(13029) -! JVS(45771) = Jac_FULL(5251,4093) - JVS(45771) = B(2676)+B(2677) -! JVS(45772) = Jac_FULL(5251,4094) - JVS(45772) = B(2633)+B(2634) -! JVS(45773) = Jac_FULL(5251,4096) - JVS(45773) = 0 -! JVS(45774) = Jac_FULL(5251,4098) - JVS(45774) = 0 -! JVS(45775) = Jac_FULL(5251,4100) - JVS(45775) = 0 -! JVS(45776) = Jac_FULL(5251,4101) - JVS(45776) = 0 -! JVS(45777) = Jac_FULL(5251,4105) - JVS(45777) = 0 -! JVS(45778) = Jac_FULL(5251,4106) - JVS(45778) = 0 -! JVS(45779) = Jac_FULL(5251,4107) - JVS(45779) = 0 -! JVS(45780) = Jac_FULL(5251,4108) - JVS(45780) = B(4903) -! JVS(45781) = Jac_FULL(5251,4110) - JVS(45781) = B(11859) -! JVS(45782) = Jac_FULL(5251,4113) - JVS(45782) = 0 -! JVS(45783) = Jac_FULL(5251,4114) - JVS(45783) = B(5015) -! JVS(45784) = Jac_FULL(5251,4115) - JVS(45784) = 0 -! JVS(45785) = Jac_FULL(5251,4118) - JVS(45785) = 0 -! JVS(45786) = Jac_FULL(5251,4120) - JVS(45786) = 0 -! JVS(45787) = Jac_FULL(5251,4123) - JVS(45787) = 0 -! JVS(45788) = Jac_FULL(5251,4125) - JVS(45788) = B(12696) -! JVS(45789) = Jac_FULL(5251,4126) - JVS(45789) = 0 -! JVS(45790) = Jac_FULL(5251,4129) - JVS(45790) = 0 -! JVS(45791) = Jac_FULL(5251,4130) - JVS(45791) = 0 -! JVS(45792) = Jac_FULL(5251,4131) - JVS(45792) = 0 -! JVS(45793) = Jac_FULL(5251,4134) - JVS(45793) = 0 -! JVS(45794) = Jac_FULL(5251,4135) - JVS(45794) = 0 -! JVS(45795) = Jac_FULL(5251,4136) - JVS(45795) = 0 -! JVS(45796) = Jac_FULL(5251,4138) - JVS(45796) = 0 -! JVS(45797) = Jac_FULL(5251,4139) - JVS(45797) = 0 -! JVS(45798) = Jac_FULL(5251,4142) - JVS(45798) = 0 -! JVS(45799) = Jac_FULL(5251,4144) - JVS(45799) = 0 -! JVS(45800) = Jac_FULL(5251,4147) - JVS(45800) = 0 -! JVS(45801) = Jac_FULL(5251,4149) - JVS(45801) = 0 -! JVS(45802) = Jac_FULL(5251,4151) - JVS(45802) = B(7330) -! JVS(45803) = Jac_FULL(5251,4152) - JVS(45803) = 0 -! JVS(45804) = Jac_FULL(5251,4153) - JVS(45804) = 0 -! JVS(45805) = Jac_FULL(5251,4155) - JVS(45805) = B(5099) -! JVS(45806) = Jac_FULL(5251,4156) - JVS(45806) = B(4335) -! JVS(45807) = Jac_FULL(5251,4160) - JVS(45807) = 0 -! JVS(45808) = Jac_FULL(5251,4161) - JVS(45808) = 0 -! JVS(45809) = Jac_FULL(5251,4163) - JVS(45809) = 0 -! JVS(45810) = Jac_FULL(5251,4170) - JVS(45810) = 0 -! JVS(45811) = Jac_FULL(5251,4174) - JVS(45811) = 0 -! JVS(45812) = Jac_FULL(5251,4175) - JVS(45812) = 2*B(21464)+2*B(21466)+2*B(21467) -! JVS(45813) = Jac_FULL(5251,4178) - JVS(45813) = B(13451) -! JVS(45814) = Jac_FULL(5251,4181) - JVS(45814) = 0 -! JVS(45815) = Jac_FULL(5251,4182) - JVS(45815) = 0 -! JVS(45816) = Jac_FULL(5251,4184) - JVS(45816) = B(21530) -! JVS(45817) = Jac_FULL(5251,4186) - JVS(45817) = B(7397) -! JVS(45818) = Jac_FULL(5251,4187) - JVS(45818) = 0 -! JVS(45819) = Jac_FULL(5251,4188) - JVS(45819) = 0 -! JVS(45820) = Jac_FULL(5251,4191) - JVS(45820) = 0 -! JVS(45821) = Jac_FULL(5251,4199) - JVS(45821) = 0 -! JVS(45822) = Jac_FULL(5251,4202) - JVS(45822) = 0 -! JVS(45823) = Jac_FULL(5251,4203) - JVS(45823) = B(21487)+B(21489)+B(21493)+B(21495) -! JVS(45824) = Jac_FULL(5251,4206) - JVS(45824) = 0 -! JVS(45825) = Jac_FULL(5251,4207) - JVS(45825) = 0 -! JVS(45826) = Jac_FULL(5251,4209) - JVS(45826) = 0 -! JVS(45827) = Jac_FULL(5251,4213) - JVS(45827) = -B(13625) -! JVS(45828) = Jac_FULL(5251,4214) - JVS(45828) = 0 -! JVS(45829) = Jac_FULL(5251,4215) - JVS(45829) = 0 -! JVS(45830) = Jac_FULL(5251,4218) - JVS(45830) = B(20139)+B(20143)+B(20147)+B(20149) -! JVS(45831) = Jac_FULL(5251,4220) - JVS(45831) = 0 -! JVS(45832) = Jac_FULL(5251,4221) - JVS(45832) = B(19907)+B(19911)+B(19915)+B(19917) -! JVS(45833) = Jac_FULL(5251,4222) - JVS(45833) = 0 -! JVS(45834) = Jac_FULL(5251,4224) - JVS(45834) = B(21711) -! JVS(45835) = Jac_FULL(5251,4227) - JVS(45835) = 2*B(18472)+2*B(18474)+2*B(18476) -! JVS(45836) = Jac_FULL(5251,4229) - JVS(45836) = 0 -! JVS(45837) = Jac_FULL(5251,4230) - JVS(45837) = 0 -! JVS(45838) = Jac_FULL(5251,4231) - JVS(45838) = B(13938) -! JVS(45839) = Jac_FULL(5251,4233) - JVS(45839) = 2*B(18405)+2*B(18407)+2*B(18409) -! JVS(45840) = Jac_FULL(5251,4239) - JVS(45840) = B(14024)+B(14026)+B(14028) -! JVS(45841) = Jac_FULL(5251,4243) - JVS(45841) = 0 -! JVS(45842) = Jac_FULL(5251,4244) - JVS(45842) = 0 -! JVS(45843) = Jac_FULL(5251,4247) - JVS(45843) = -B(16652) -! JVS(45844) = Jac_FULL(5251,4250) - JVS(45844) = -B(20532) -! JVS(45845) = Jac_FULL(5251,4255) - JVS(45845) = 0 -! JVS(45846) = Jac_FULL(5251,4258) - JVS(45846) = -B(17321) -! JVS(45847) = Jac_FULL(5251,4259) - JVS(45847) = 0 -! JVS(45848) = Jac_FULL(5251,4260) - JVS(45848) = 0 -! JVS(45849) = Jac_FULL(5251,4261) - JVS(45849) = B(11716) -! JVS(45850) = Jac_FULL(5251,4264) - JVS(45850) = -B(14553) -! JVS(45851) = Jac_FULL(5251,4266) - JVS(45851) = 0 -! JVS(45852) = Jac_FULL(5251,4267) - JVS(45852) = B(21284)+B(21286)+B(21290)+B(21292) -! JVS(45853) = Jac_FULL(5251,4269) - JVS(45853) = 0 -! JVS(45854) = Jac_FULL(5251,4272) - JVS(45854) = B(2896) -! JVS(45855) = Jac_FULL(5251,4275) - JVS(45855) = 0 -! JVS(45856) = Jac_FULL(5251,4277) - JVS(45856) = 0 -! JVS(45857) = Jac_FULL(5251,4278) - JVS(45857) = 2*B(21790)+2*B(21792)+2*B(21794) -! JVS(45858) = Jac_FULL(5251,4279) - JVS(45858) = B(17638) -! JVS(45859) = Jac_FULL(5251,4281) - JVS(45859) = 0 -! JVS(45860) = Jac_FULL(5251,4282) - JVS(45860) = -B(13591) -! JVS(45861) = Jac_FULL(5251,4283) - JVS(45861) = 0 -! JVS(45862) = Jac_FULL(5251,4286) - JVS(45862) = -B(6755) -! JVS(45863) = Jac_FULL(5251,4288) - JVS(45863) = 0 -! JVS(45864) = Jac_FULL(5251,4299) - JVS(45864) = B(20268)+B(20272)+B(20276)+B(20278) -! JVS(45865) = Jac_FULL(5251,4301) - JVS(45865) = 0 -! JVS(45866) = Jac_FULL(5251,4302) - JVS(45866) = -B(7374) -! JVS(45867) = Jac_FULL(5251,4308) - JVS(45867) = B(19895)+B(19897)+B(19901)+B(19903) -! JVS(45868) = Jac_FULL(5251,4313) - JVS(45868) = B(11933) -! JVS(45869) = Jac_FULL(5251,4316) - JVS(45869) = 0 -! JVS(45870) = Jac_FULL(5251,4320) - JVS(45870) = -B(5020) -! JVS(45871) = Jac_FULL(5251,4321) - JVS(45871) = B(13654) -! JVS(45872) = Jac_FULL(5251,4322) - JVS(45872) = 0 -! JVS(45873) = Jac_FULL(5251,4323) - JVS(45873) = 0 -! JVS(45874) = Jac_FULL(5251,4324) - JVS(45874) = 0 -! JVS(45875) = Jac_FULL(5251,4325) - JVS(45875) = 0 -! JVS(45876) = Jac_FULL(5251,4327) - JVS(45876) = 0 -! JVS(45877) = Jac_FULL(5251,4328) - JVS(45877) = B(15608) -! JVS(45878) = Jac_FULL(5251,4330) - JVS(45878) = B(4278) -! JVS(45879) = Jac_FULL(5251,4331) - JVS(45879) = B(20181) -! JVS(45880) = Jac_FULL(5251,4332) - JVS(45880) = 0 -! JVS(45881) = Jac_FULL(5251,4333) - JVS(45881) = B(1574) -! JVS(45882) = Jac_FULL(5251,4335) - JVS(45882) = 0 -! JVS(45883) = Jac_FULL(5251,4338) - JVS(45883) = 0 -! JVS(45884) = Jac_FULL(5251,4339) - JVS(45884) = 0 -! JVS(45885) = Jac_FULL(5251,4341) - JVS(45885) = 0 -! JVS(45886) = Jac_FULL(5251,4346) - JVS(45886) = 0 -! JVS(45887) = Jac_FULL(5251,4348) - JVS(45887) = 0 -! JVS(45888) = Jac_FULL(5251,4350) - JVS(45888) = 0 -! JVS(45889) = Jac_FULL(5251,4353) - JVS(45889) = 0 -! JVS(45890) = Jac_FULL(5251,4358) - JVS(45890) = 0 -! JVS(45891) = Jac_FULL(5251,4359) - JVS(45891) = 0 -! JVS(45892) = Jac_FULL(5251,4362) - JVS(45892) = B(23571) -! JVS(45893) = Jac_FULL(5251,4364) - JVS(45893) = 0 -! JVS(45894) = Jac_FULL(5251,4367) - JVS(45894) = 0 -! JVS(45895) = Jac_FULL(5251,4373) - JVS(45895) = B(6689) -! JVS(45896) = Jac_FULL(5251,4375) - JVS(45896) = 0 -! JVS(45897) = Jac_FULL(5251,4377) - JVS(45897) = 0 -! JVS(45898) = Jac_FULL(5251,4379) - JVS(45898) = 0 -! JVS(45899) = Jac_FULL(5251,4380) - JVS(45899) = 0 -! JVS(45900) = Jac_FULL(5251,4381) - JVS(45900) = 0 -! JVS(45901) = Jac_FULL(5251,4382) - JVS(45901) = B(1466) -! JVS(45902) = Jac_FULL(5251,4384) - JVS(45902) = 0 -! JVS(45903) = Jac_FULL(5251,4385) - JVS(45903) = 0 -! JVS(45904) = Jac_FULL(5251,4388) - JVS(45904) = 0 -! JVS(45905) = Jac_FULL(5251,4393) - JVS(45905) = 0 -! JVS(45906) = Jac_FULL(5251,4395) - JVS(45906) = 0 -! JVS(45907) = Jac_FULL(5251,4396) - JVS(45907) = B(2361)+2*B(2362) -! JVS(45908) = Jac_FULL(5251,4398) - JVS(45908) = 2*B(12357) -! JVS(45909) = Jac_FULL(5251,4404) - JVS(45909) = 2*B(20087)+2*B(20091)+2*B(20095)+2*B(20097) -! JVS(45910) = Jac_FULL(5251,4405) - JVS(45910) = 0 -! JVS(45911) = Jac_FULL(5251,4406) - JVS(45911) = B(7921) -! JVS(45912) = Jac_FULL(5251,4409) - JVS(45912) = 0 -! JVS(45913) = Jac_FULL(5251,4410) - JVS(45913) = 0 -! JVS(45914) = Jac_FULL(5251,4412) - JVS(45914) = 0 -! JVS(45915) = Jac_FULL(5251,4414) - JVS(45915) = B(10350)+B(10352)+B(10356)+B(10359) -! JVS(45916) = Jac_FULL(5251,4417) - JVS(45916) = 0 -! JVS(45917) = Jac_FULL(5251,4418) - JVS(45917) = 0 -! JVS(45918) = Jac_FULL(5251,4419) - JVS(45918) = 0 -! JVS(45919) = Jac_FULL(5251,4420) - JVS(45919) = B(4096) -! JVS(45920) = Jac_FULL(5251,4421) - JVS(45920) = 0 -! JVS(45921) = Jac_FULL(5251,4424) - JVS(45921) = 0 -! JVS(45922) = Jac_FULL(5251,4425) - JVS(45922) = 0 -! JVS(45923) = Jac_FULL(5251,4427) - JVS(45923) = 0 -! JVS(45924) = Jac_FULL(5251,4428) - JVS(45924) = B(1545)+B(1547)+B(1551)+B(1554) -! JVS(45925) = Jac_FULL(5251,4429) - JVS(45925) = 0 -! JVS(45926) = Jac_FULL(5251,4430) - JVS(45926) = 0 -! JVS(45927) = Jac_FULL(5251,4431) - JVS(45927) = 0 -! JVS(45928) = Jac_FULL(5251,4432) - JVS(45928) = 0 -! JVS(45929) = Jac_FULL(5251,4433) - JVS(45929) = 0 -! JVS(45930) = Jac_FULL(5251,4435) - JVS(45930) = 0 -! JVS(45931) = Jac_FULL(5251,4436) - JVS(45931) = B(10430)+B(10432)+B(10436)+B(10439) -! JVS(45932) = Jac_FULL(5251,4439) - JVS(45932) = 0 -! JVS(45933) = Jac_FULL(5251,4443) - JVS(45933) = 0 -! JVS(45934) = Jac_FULL(5251,4447) - JVS(45934) = 0 -! JVS(45935) = Jac_FULL(5251,4448) - JVS(45935) = 0 -! JVS(45936) = Jac_FULL(5251,4449) - JVS(45936) = 0 -! JVS(45937) = Jac_FULL(5251,4450) - JVS(45937) = 0 -! JVS(45938) = Jac_FULL(5251,4451) - JVS(45938) = 0 -! JVS(45939) = Jac_FULL(5251,4452) - JVS(45939) = 0 -! JVS(45940) = Jac_FULL(5251,4458) - JVS(45940) = 0 -! JVS(45941) = Jac_FULL(5251,4459) - JVS(45941) = 0 -! JVS(45942) = Jac_FULL(5251,4461) - JVS(45942) = 0 -! JVS(45943) = Jac_FULL(5251,4462) - JVS(45943) = B(22301)+B(22302) -! JVS(45944) = Jac_FULL(5251,4464) - JVS(45944) = 0 -! JVS(45945) = Jac_FULL(5251,4465) - JVS(45945) = 0 -! JVS(45946) = Jac_FULL(5251,4467) - JVS(45946) = 0 -! JVS(45947) = Jac_FULL(5251,4468) - JVS(45947) = 0 -! JVS(45948) = Jac_FULL(5251,4469) - JVS(45948) = 0 -! JVS(45949) = Jac_FULL(5251,4470) - JVS(45949) = 0 -! JVS(45950) = Jac_FULL(5251,4472) - JVS(45950) = 0 -! JVS(45951) = Jac_FULL(5251,4474) - JVS(45951) = 0 -! JVS(45952) = Jac_FULL(5251,4475) - JVS(45952) = 0 -! JVS(45953) = Jac_FULL(5251,4477) - JVS(45953) = 0 -! JVS(45954) = Jac_FULL(5251,4484) - JVS(45954) = 0 -! JVS(45955) = Jac_FULL(5251,4485) - JVS(45955) = 0 -! JVS(45956) = Jac_FULL(5251,4486) - JVS(45956) = 0 -! JVS(45957) = Jac_FULL(5251,4488) - JVS(45957) = 0 -! JVS(45958) = Jac_FULL(5251,4490) - JVS(45958) = B(15573) -! JVS(45959) = Jac_FULL(5251,4491) - JVS(45959) = B(12418) -! JVS(45960) = Jac_FULL(5251,4492) - JVS(45960) = 0 -! JVS(45961) = Jac_FULL(5251,4496) - JVS(45961) = 0 -! JVS(45962) = Jac_FULL(5251,4500) - JVS(45962) = 0 -! JVS(45963) = Jac_FULL(5251,4501) - JVS(45963) = B(17728) -! JVS(45964) = Jac_FULL(5251,4502) - JVS(45964) = 0 -! JVS(45965) = Jac_FULL(5251,4503) - JVS(45965) = 0 -! JVS(45966) = Jac_FULL(5251,4505) - JVS(45966) = 0 -! JVS(45967) = Jac_FULL(5251,4508) - JVS(45967) = 0 -! JVS(45968) = Jac_FULL(5251,4510) - JVS(45968) = 0 -! JVS(45969) = Jac_FULL(5251,4511) - JVS(45969) = 0 -! JVS(45970) = Jac_FULL(5251,4512) - JVS(45970) = 0 -! JVS(45971) = Jac_FULL(5251,4513) - JVS(45971) = 0 -! JVS(45972) = Jac_FULL(5251,4515) - JVS(45972) = 0 -! JVS(45973) = Jac_FULL(5251,4516) - JVS(45973) = B(10323)+B(10325)+B(10329)+B(10332) -! JVS(45974) = Jac_FULL(5251,4517) - JVS(45974) = 0 -! JVS(45975) = Jac_FULL(5251,4518) - JVS(45975) = 0 -! JVS(45976) = Jac_FULL(5251,4519) - JVS(45976) = 0 -! JVS(45977) = Jac_FULL(5251,4520) - JVS(45977) = 0 -! JVS(45978) = Jac_FULL(5251,4521) - JVS(45978) = 0 -! JVS(45979) = Jac_FULL(5251,4522) - JVS(45979) = 0 -! JVS(45980) = Jac_FULL(5251,4523) - JVS(45980) = 0 -! JVS(45981) = Jac_FULL(5251,4525) - JVS(45981) = 0 -! JVS(45982) = Jac_FULL(5251,4526) - JVS(45982) = -B(14648) -! JVS(45983) = Jac_FULL(5251,4527) - JVS(45983) = 0 -! JVS(45984) = Jac_FULL(5251,4528) - JVS(45984) = B(1256)+B(1257) -! JVS(45985) = Jac_FULL(5251,4530) - JVS(45985) = 2*B(7892)+B(7893)+B(7894)+B(7896) -! JVS(45986) = Jac_FULL(5251,4532) - JVS(45986) = 0 -! JVS(45987) = Jac_FULL(5251,4533) - JVS(45987) = 0 -! JVS(45988) = Jac_FULL(5251,4534) - JVS(45988) = B(16360)+B(16361) -! JVS(45989) = Jac_FULL(5251,4535) - JVS(45989) = 0 -! JVS(45990) = Jac_FULL(5251,4536) - JVS(45990) = B(20109)+B(20113)+B(20117)+B(20119) -! JVS(45991) = Jac_FULL(5251,4537) - JVS(45991) = B(17855) -! JVS(45992) = Jac_FULL(5251,4539) - JVS(45992) = 0 -! JVS(45993) = Jac_FULL(5251,4540) - JVS(45993) = B(11617) -! JVS(45994) = Jac_FULL(5251,4542) - JVS(45994) = 0 -! JVS(45995) = Jac_FULL(5251,4543) - JVS(45995) = 0 -! JVS(45996) = Jac_FULL(5251,4544) - JVS(45996) = -B(4905) -! JVS(45997) = Jac_FULL(5251,4546) - JVS(45997) = 0 -! JVS(45998) = Jac_FULL(5251,4547) - JVS(45998) = B(5430) -! JVS(45999) = Jac_FULL(5251,4548) - JVS(45999) = 0 -! JVS(46000) = Jac_FULL(5251,4551) - JVS(46000) = -B(16526) -! JVS(46001) = Jac_FULL(5251,4553) - JVS(46001) = 0 -! JVS(46002) = Jac_FULL(5251,4554) - JVS(46002) = 0 -! JVS(46003) = Jac_FULL(5251,4555) - JVS(46003) = 0 -! JVS(46004) = Jac_FULL(5251,4556) - JVS(46004) = -B(13868) -! JVS(46005) = Jac_FULL(5251,4557) - JVS(46005) = 0 -! JVS(46006) = Jac_FULL(5251,4558) - JVS(46006) = 0 -! JVS(46007) = Jac_FULL(5251,4559) - JVS(46007) = B(4477) -! JVS(46008) = Jac_FULL(5251,4561) - JVS(46008) = 0 -! JVS(46009) = Jac_FULL(5251,4563) - JVS(46009) = 0 -! JVS(46010) = Jac_FULL(5251,4565) - JVS(46010) = 0 -! JVS(46011) = Jac_FULL(5251,4569) - JVS(46011) = B(6160) -! JVS(46012) = Jac_FULL(5251,4570) - JVS(46012) = B(13784) -! JVS(46013) = Jac_FULL(5251,4572) - JVS(46013) = 0 -! JVS(46014) = Jac_FULL(5251,4574) - JVS(46014) = 0 -! JVS(46015) = Jac_FULL(5251,4575) - JVS(46015) = 0 -! JVS(46016) = Jac_FULL(5251,4576) - JVS(46016) = B(6226) -! JVS(46017) = Jac_FULL(5251,4584) - JVS(46017) = 0 -! JVS(46018) = Jac_FULL(5251,4585) - JVS(46018) = 0 -! JVS(46019) = Jac_FULL(5251,4588) - JVS(46019) = B(5236)+2*B(5237) -! JVS(46020) = Jac_FULL(5251,4589) - JVS(46020) = 0 -! JVS(46021) = Jac_FULL(5251,4591) - JVS(46021) = 0 -! JVS(46022) = Jac_FULL(5251,4594) - JVS(46022) = 0 -! JVS(46023) = Jac_FULL(5251,4595) - JVS(46023) = 0 -! JVS(46024) = Jac_FULL(5251,4596) - JVS(46024) = 0 -! JVS(46025) = Jac_FULL(5251,4599) - JVS(46025) = 0 -! JVS(46026) = Jac_FULL(5251,4600) - JVS(46026) = 0 -! JVS(46027) = Jac_FULL(5251,4601) - JVS(46027) = 0 -! JVS(46028) = Jac_FULL(5251,4602) - JVS(46028) = 3*B(12381)+3*B(12383) -! JVS(46029) = Jac_FULL(5251,4603) - JVS(46029) = 0 -! JVS(46030) = Jac_FULL(5251,4604) - JVS(46030) = 0 -! JVS(46031) = Jac_FULL(5251,4605) - JVS(46031) = 0 -! JVS(46032) = Jac_FULL(5251,4606) - JVS(46032) = 0 -! JVS(46033) = Jac_FULL(5251,4609) - JVS(46033) = 0 -! JVS(46034) = Jac_FULL(5251,4610) - JVS(46034) = 0 -! JVS(46035) = Jac_FULL(5251,4611) - JVS(46035) = 0 -! JVS(46036) = Jac_FULL(5251,4613) - JVS(46036) = 0 -! JVS(46037) = Jac_FULL(5251,4615) - JVS(46037) = 0 -! JVS(46038) = Jac_FULL(5251,4616) - JVS(46038) = 0 -! JVS(46039) = Jac_FULL(5251,4617) - JVS(46039) = B(10579) -! JVS(46040) = Jac_FULL(5251,4619) - JVS(46040) = 0 -! JVS(46041) = Jac_FULL(5251,4620) - JVS(46041) = 0 -! JVS(46042) = Jac_FULL(5251,4621) - JVS(46042) = -B(15588) -! JVS(46043) = Jac_FULL(5251,4622) - JVS(46043) = 0 -! JVS(46044) = Jac_FULL(5251,4623) - JVS(46044) = 0 -! JVS(46045) = Jac_FULL(5251,4624) - JVS(46045) = 0 -! JVS(46046) = Jac_FULL(5251,4625) - JVS(46046) = 0 -! JVS(46047) = Jac_FULL(5251,4626) - JVS(46047) = 0 -! JVS(46048) = Jac_FULL(5251,4627) - JVS(46048) = 0 -! JVS(46049) = Jac_FULL(5251,4628) - JVS(46049) = 0 -! JVS(46050) = Jac_FULL(5251,4629) - JVS(46050) = 0 -! JVS(46051) = Jac_FULL(5251,4630) - JVS(46051) = B(5995) -! JVS(46052) = Jac_FULL(5251,4631) - JVS(46052) = 0 -! JVS(46053) = Jac_FULL(5251,4633) - JVS(46053) = 0 -! JVS(46054) = Jac_FULL(5251,4634) - JVS(46054) = 0 -! JVS(46055) = Jac_FULL(5251,4635) - JVS(46055) = 0 -! JVS(46056) = Jac_FULL(5251,4636) - JVS(46056) = 0 -! JVS(46057) = Jac_FULL(5251,4637) - JVS(46057) = B(9430) -! JVS(46058) = Jac_FULL(5251,4638) - JVS(46058) = 0 -! JVS(46059) = Jac_FULL(5251,4639) - JVS(46059) = 0 -! JVS(46060) = Jac_FULL(5251,4640) - JVS(46060) = 0 -! JVS(46061) = Jac_FULL(5251,4641) - JVS(46061) = 0 -! JVS(46062) = Jac_FULL(5251,4642) - JVS(46062) = 0 -! JVS(46063) = Jac_FULL(5251,4643) - JVS(46063) = 0 -! JVS(46064) = Jac_FULL(5251,4648) - JVS(46064) = 0 -! JVS(46065) = Jac_FULL(5251,4649) - JVS(46065) = 0 -! JVS(46066) = Jac_FULL(5251,4650) - JVS(46066) = B(9541) -! JVS(46067) = Jac_FULL(5251,4651) - JVS(46067) = B(18037)+B(18039)+B(18041) -! JVS(46068) = Jac_FULL(5251,4652) - JVS(46068) = 0 -! JVS(46069) = Jac_FULL(5251,4653) - JVS(46069) = 0 -! JVS(46070) = Jac_FULL(5251,4655) - JVS(46070) = 0 -! JVS(46071) = Jac_FULL(5251,4657) - JVS(46071) = 0 -! JVS(46072) = Jac_FULL(5251,4658) - JVS(46072) = 0 -! JVS(46073) = Jac_FULL(5251,4659) - JVS(46073) = 0 -! JVS(46074) = Jac_FULL(5251,4660) - JVS(46074) = 0 -! JVS(46075) = Jac_FULL(5251,4661) - JVS(46075) = 0 -! JVS(46076) = Jac_FULL(5251,4662) - JVS(46076) = 0 -! JVS(46077) = Jac_FULL(5251,4664) - JVS(46077) = 0 -! JVS(46078) = Jac_FULL(5251,4665) - JVS(46078) = 0 -! JVS(46079) = Jac_FULL(5251,4667) - JVS(46079) = 0 -! JVS(46080) = Jac_FULL(5251,4668) - JVS(46080) = -B(13503) -! JVS(46081) = Jac_FULL(5251,4669) - JVS(46081) = 0 -! JVS(46082) = Jac_FULL(5251,4670) - JVS(46082) = 0 -! JVS(46083) = Jac_FULL(5251,4672) - JVS(46083) = 0 -! JVS(46084) = Jac_FULL(5251,4675) - JVS(46084) = 0 -! JVS(46085) = Jac_FULL(5251,4677) - JVS(46085) = -B(16516) -! JVS(46086) = Jac_FULL(5251,4678) - JVS(46086) = -B(14801) -! JVS(46087) = Jac_FULL(5251,4679) - JVS(46087) = 0 -! JVS(46088) = Jac_FULL(5251,4680) - JVS(46088) = 0 -! JVS(46089) = Jac_FULL(5251,4681) - JVS(46089) = 0 -! JVS(46090) = Jac_FULL(5251,4683) - JVS(46090) = 0 -! JVS(46091) = Jac_FULL(5251,4684) - JVS(46091) = 0 -! JVS(46092) = Jac_FULL(5251,4686) - JVS(46092) = 0 -! JVS(46093) = Jac_FULL(5251,4687) - JVS(46093) = 0 -! JVS(46094) = Jac_FULL(5251,4688) - JVS(46094) = 0 -! JVS(46095) = Jac_FULL(5251,4689) - JVS(46095) = 0 -! JVS(46096) = Jac_FULL(5251,4691) - JVS(46096) = -B(14791) -! JVS(46097) = Jac_FULL(5251,4692) - JVS(46097) = 0 -! JVS(46098) = Jac_FULL(5251,4694) - JVS(46098) = B(13208) -! JVS(46099) = Jac_FULL(5251,4695) - JVS(46099) = 0 -! JVS(46100) = Jac_FULL(5251,4696) - JVS(46100) = 0 -! JVS(46101) = Jac_FULL(5251,4697) - JVS(46101) = 0 -! JVS(46102) = Jac_FULL(5251,4698) - JVS(46102) = 0 -! JVS(46103) = Jac_FULL(5251,4699) - JVS(46103) = 0 -! JVS(46104) = Jac_FULL(5251,4701) - JVS(46104) = 0 -! JVS(46105) = Jac_FULL(5251,4703) - JVS(46105) = 0 -! JVS(46106) = Jac_FULL(5251,4704) - JVS(46106) = 0 -! JVS(46107) = Jac_FULL(5251,4705) - JVS(46107) = 0 -! JVS(46108) = Jac_FULL(5251,4706) - JVS(46108) = 0 -! JVS(46109) = Jac_FULL(5251,4707) - JVS(46109) = 0 -! JVS(46110) = Jac_FULL(5251,4708) - JVS(46110) = B(4245) -! JVS(46111) = Jac_FULL(5251,4709) - JVS(46111) = 0 -! JVS(46112) = Jac_FULL(5251,4710) - JVS(46112) = B(19815) -! JVS(46113) = Jac_FULL(5251,4711) - JVS(46113) = 0 -! JVS(46114) = Jac_FULL(5251,4712) - JVS(46114) = 0 -! JVS(46115) = Jac_FULL(5251,4713) - JVS(46115) = 0 -! JVS(46116) = Jac_FULL(5251,4714) - JVS(46116) = 0 -! JVS(46117) = Jac_FULL(5251,4715) - JVS(46117) = 0 -! JVS(46118) = Jac_FULL(5251,4716) - JVS(46118) = 0 -! JVS(46119) = Jac_FULL(5251,4717) - JVS(46119) = B(7182) -! JVS(46120) = Jac_FULL(5251,4718) - JVS(46120) = 0 -! JVS(46121) = Jac_FULL(5251,4720) - JVS(46121) = 0 -! JVS(46122) = Jac_FULL(5251,4721) - JVS(46122) = B(5233) -! JVS(46123) = Jac_FULL(5251,4725) - JVS(46123) = 0 -! JVS(46124) = Jac_FULL(5251,4726) - JVS(46124) = 0 -! JVS(46125) = Jac_FULL(5251,4727) - JVS(46125) = 0 -! JVS(46126) = Jac_FULL(5251,4728) - JVS(46126) = B(12852) -! JVS(46127) = Jac_FULL(5251,4729) - JVS(46127) = B(5528) -! JVS(46128) = Jac_FULL(5251,4730) - JVS(46128) = 0 -! JVS(46129) = Jac_FULL(5251,4731) - JVS(46129) = 0 -! JVS(46130) = Jac_FULL(5251,4732) - JVS(46130) = 0 -! JVS(46131) = Jac_FULL(5251,4733) - JVS(46131) = 0 -! JVS(46132) = Jac_FULL(5251,4734) - JVS(46132) = 0 -! JVS(46133) = Jac_FULL(5251,4735) - JVS(46133) = 0 -! JVS(46134) = Jac_FULL(5251,4737) - JVS(46134) = B(3906) -! JVS(46135) = Jac_FULL(5251,4738) - JVS(46135) = 0 -! JVS(46136) = Jac_FULL(5251,4739) - JVS(46136) = 0 -! JVS(46137) = Jac_FULL(5251,4741) - JVS(46137) = -B(15613) -! JVS(46138) = Jac_FULL(5251,4742) - JVS(46138) = 0 -! JVS(46139) = Jac_FULL(5251,4743) - JVS(46139) = 0 -! JVS(46140) = Jac_FULL(5251,4744) - JVS(46140) = 0 -! JVS(46141) = Jac_FULL(5251,4746) - JVS(46141) = 0 -! JVS(46142) = Jac_FULL(5251,4747) - JVS(46142) = B(3485)+B(3486) -! JVS(46143) = Jac_FULL(5251,4749) - JVS(46143) = B(13773)+B(13776) -! JVS(46144) = Jac_FULL(5251,4750) - JVS(46144) = 0 -! JVS(46145) = Jac_FULL(5251,4751) - JVS(46145) = 0 -! JVS(46146) = Jac_FULL(5251,4752) - JVS(46146) = 0 -! JVS(46147) = Jac_FULL(5251,4753) - JVS(46147) = 0 -! JVS(46148) = Jac_FULL(5251,4756) - JVS(46148) = 0 -! JVS(46149) = Jac_FULL(5251,4757) - JVS(46149) = -B(14693) -! JVS(46150) = Jac_FULL(5251,4758) - JVS(46150) = B(10510) -! JVS(46151) = Jac_FULL(5251,4759) - JVS(46151) = 0 -! JVS(46152) = Jac_FULL(5251,4760) - JVS(46152) = 0 -! JVS(46153) = Jac_FULL(5251,4761) - JVS(46153) = 0 -! JVS(46154) = Jac_FULL(5251,4763) - JVS(46154) = 0 -! JVS(46155) = Jac_FULL(5251,4765) - JVS(46155) = 0 -! JVS(46156) = Jac_FULL(5251,4769) - JVS(46156) = 0 -! JVS(46157) = Jac_FULL(5251,4770) - JVS(46157) = 0 -! JVS(46158) = Jac_FULL(5251,4771) - JVS(46158) = 0 -! JVS(46159) = Jac_FULL(5251,4773) - JVS(46159) = 0 -! JVS(46160) = Jac_FULL(5251,4774) - JVS(46160) = 0 -! JVS(46161) = Jac_FULL(5251,4775) - JVS(46161) = B(15992)+B(15994) -! JVS(46162) = Jac_FULL(5251,4776) - JVS(46162) = -B(13558) -! JVS(46163) = Jac_FULL(5251,4777) - JVS(46163) = 0 -! JVS(46164) = Jac_FULL(5251,4778) - JVS(46164) = 0 -! JVS(46165) = Jac_FULL(5251,4779) - JVS(46165) = 0 -! JVS(46166) = Jac_FULL(5251,4783) - JVS(46166) = 0 -! JVS(46167) = Jac_FULL(5251,4785) - JVS(46167) = 0 -! JVS(46168) = Jac_FULL(5251,4786) - JVS(46168) = 0 -! JVS(46169) = Jac_FULL(5251,4788) - JVS(46169) = 0 -! JVS(46170) = Jac_FULL(5251,4789) - JVS(46170) = 0 -! JVS(46171) = Jac_FULL(5251,4790) - JVS(46171) = 0 -! JVS(46172) = Jac_FULL(5251,4791) - JVS(46172) = 0 -! JVS(46173) = Jac_FULL(5251,4792) - JVS(46173) = B(16018)+B(16020)+B(16024)+B(16026) -! JVS(46174) = Jac_FULL(5251,4793) - JVS(46174) = B(10153) -! JVS(46175) = Jac_FULL(5251,4794) - JVS(46175) = B(3145) -! JVS(46176) = Jac_FULL(5251,4795) - JVS(46176) = 0 -! JVS(46177) = Jac_FULL(5251,4796) - JVS(46177) = B(7912)+B(7913) -! JVS(46178) = Jac_FULL(5251,4797) - JVS(46178) = 0 -! JVS(46179) = Jac_FULL(5251,4798) - JVS(46179) = 0 -! JVS(46180) = Jac_FULL(5251,4799) - JVS(46180) = 0 -! JVS(46181) = Jac_FULL(5251,4803) - JVS(46181) = 0 -! JVS(46182) = Jac_FULL(5251,4804) - JVS(46182) = 0 -! JVS(46183) = Jac_FULL(5251,4805) - JVS(46183) = 0 -! JVS(46184) = Jac_FULL(5251,4806) - JVS(46184) = 0 -! JVS(46185) = Jac_FULL(5251,4807) - JVS(46185) = 0 -! JVS(46186) = Jac_FULL(5251,4808) - JVS(46186) = 0 -! JVS(46187) = Jac_FULL(5251,4809) - JVS(46187) = 0 -! JVS(46188) = Jac_FULL(5251,4810) - JVS(46188) = 0 -! JVS(46189) = Jac_FULL(5251,4811) - JVS(46189) = 0 -! JVS(46190) = Jac_FULL(5251,4812) - JVS(46190) = 0 -! JVS(46191) = Jac_FULL(5251,4813) - JVS(46191) = 0 -! JVS(46192) = Jac_FULL(5251,4814) - JVS(46192) = 0 -! JVS(46193) = Jac_FULL(5251,4815) - JVS(46193) = B(16094)+B(16095) -! JVS(46194) = Jac_FULL(5251,4816) - JVS(46194) = 0 -! JVS(46195) = Jac_FULL(5251,4817) - JVS(46195) = 0 -! JVS(46196) = Jac_FULL(5251,4818) - JVS(46196) = 0 -! JVS(46197) = Jac_FULL(5251,4819) - JVS(46197) = -B(6639) -! JVS(46198) = Jac_FULL(5251,4820) - JVS(46198) = 0 -! JVS(46199) = Jac_FULL(5251,4821) - JVS(46199) = 0 -! JVS(46200) = Jac_FULL(5251,4822) - JVS(46200) = 0 -! JVS(46201) = Jac_FULL(5251,4823) - JVS(46201) = 0 -! JVS(46202) = Jac_FULL(5251,4824) - JVS(46202) = -B(17163) -! JVS(46203) = Jac_FULL(5251,4825) - JVS(46203) = 0 -! JVS(46204) = Jac_FULL(5251,4826) - JVS(46204) = 0 -! JVS(46205) = Jac_FULL(5251,4828) - JVS(46205) = -B(15441) -! JVS(46206) = Jac_FULL(5251,4829) - JVS(46206) = 0 -! JVS(46207) = Jac_FULL(5251,4830) - JVS(46207) = 0 -! JVS(46208) = Jac_FULL(5251,4831) - JVS(46208) = B(21536)+B(21538)+B(21542)+B(21544) -! JVS(46209) = Jac_FULL(5251,4832) - JVS(46209) = 0 -! JVS(46210) = Jac_FULL(5251,4833) - JVS(46210) = 0 -! JVS(46211) = Jac_FULL(5251,4834) - JVS(46211) = B(11957) -! JVS(46212) = Jac_FULL(5251,4835) - JVS(46212) = 0 -! JVS(46213) = Jac_FULL(5251,4836) - JVS(46213) = 0 -! JVS(46214) = Jac_FULL(5251,4838) - JVS(46214) = -B(5114) -! JVS(46215) = Jac_FULL(5251,4840) - JVS(46215) = 2*B(258) -! JVS(46216) = Jac_FULL(5251,4842) - JVS(46216) = B(17074) -! JVS(46217) = Jac_FULL(5251,4843) - JVS(46217) = -B(7442) -! JVS(46218) = Jac_FULL(5251,4845) - JVS(46218) = 0 -! JVS(46219) = Jac_FULL(5251,4846) - JVS(46219) = 0 -! JVS(46220) = Jac_FULL(5251,4847) - JVS(46220) = 0 -! JVS(46221) = Jac_FULL(5251,4848) - JVS(46221) = 0 -! JVS(46222) = Jac_FULL(5251,4849) - JVS(46222) = 0 -! JVS(46223) = Jac_FULL(5251,4850) - JVS(46223) = 0 -! JVS(46224) = Jac_FULL(5251,4851) - JVS(46224) = B(13553) -! JVS(46225) = Jac_FULL(5251,4853) - JVS(46225) = 0 -! JVS(46226) = Jac_FULL(5251,4854) - JVS(46226) = 0 -! JVS(46227) = Jac_FULL(5251,4855) - JVS(46227) = 0 -! JVS(46228) = Jac_FULL(5251,4857) - JVS(46228) = 0 -! JVS(46229) = Jac_FULL(5251,4859) - JVS(46229) = 0 -! JVS(46230) = Jac_FULL(5251,4860) - JVS(46230) = 0 -! JVS(46231) = Jac_FULL(5251,4861) - JVS(46231) = 0 -! JVS(46232) = Jac_FULL(5251,4862) - JVS(46232) = 0 -! JVS(46233) = Jac_FULL(5251,4863) - JVS(46233) = 0 -! JVS(46234) = Jac_FULL(5251,4864) - JVS(46234) = B(16120)+B(16122)+B(16126)+B(16128) -! JVS(46235) = Jac_FULL(5251,4865) - JVS(46235) = B(13483) -! JVS(46236) = Jac_FULL(5251,4866) - JVS(46236) = 0 -! JVS(46237) = Jac_FULL(5251,4867) - JVS(46237) = 0 -! JVS(46238) = Jac_FULL(5251,4868) - JVS(46238) = -B(5054) -! JVS(46239) = Jac_FULL(5251,4869) - JVS(46239) = -B(11310) -! JVS(46240) = Jac_FULL(5251,4872) - JVS(46240) = B(3755) -! JVS(46241) = Jac_FULL(5251,4873) - JVS(46241) = B(5141) -! JVS(46242) = Jac_FULL(5251,4874) - JVS(46242) = 0 -! JVS(46243) = Jac_FULL(5251,4875) - JVS(46243) = 0 -! JVS(46244) = Jac_FULL(5251,4877) - JVS(46244) = 0 -! JVS(46245) = Jac_FULL(5251,4878) - JVS(46245) = 0 -! JVS(46246) = Jac_FULL(5251,4879) - JVS(46246) = 0 -! JVS(46247) = Jac_FULL(5251,4880) - JVS(46247) = 0 -! JVS(46248) = Jac_FULL(5251,4881) - JVS(46248) = 0 -! JVS(46249) = Jac_FULL(5251,4882) - JVS(46249) = B(7731) -! JVS(46250) = Jac_FULL(5251,4883) - JVS(46250) = B(14878) -! JVS(46251) = Jac_FULL(5251,4885) - JVS(46251) = 0 -! JVS(46252) = Jac_FULL(5251,4886) - JVS(46252) = 0 -! JVS(46253) = Jac_FULL(5251,4887) - JVS(46253) = 0 -! JVS(46254) = Jac_FULL(5251,4888) - JVS(46254) = 0 -! JVS(46255) = Jac_FULL(5251,4889) - JVS(46255) = 0 -! JVS(46256) = Jac_FULL(5251,4891) - JVS(46256) = 0 -! JVS(46257) = Jac_FULL(5251,4892) - JVS(46257) = 0 -! JVS(46258) = Jac_FULL(5251,4893) - JVS(46258) = 0 -! JVS(46259) = Jac_FULL(5251,4894) - JVS(46259) = 0 -! JVS(46260) = Jac_FULL(5251,4895) - JVS(46260) = B(9053) -! JVS(46261) = Jac_FULL(5251,4896) - JVS(46261) = B(9309) -! JVS(46262) = Jac_FULL(5251,4897) - JVS(46262) = 0 -! JVS(46263) = Jac_FULL(5251,4898) - JVS(46263) = 0 -! JVS(46264) = Jac_FULL(5251,4899) - JVS(46264) = 0 -! JVS(46265) = Jac_FULL(5251,4900) - JVS(46265) = 0 -! JVS(46266) = Jac_FULL(5251,4902) - JVS(46266) = B(22311)+B(22313)+B(22315) -! JVS(46267) = Jac_FULL(5251,4905) - JVS(46267) = 0 -! JVS(46268) = Jac_FULL(5251,4906) - JVS(46268) = -B(6745) -! JVS(46269) = Jac_FULL(5251,4907) - JVS(46269) = 0 -! JVS(46270) = Jac_FULL(5251,4908) - JVS(46270) = -B(4027) -! JVS(46271) = Jac_FULL(5251,4910) - JVS(46271) = 0 -! JVS(46272) = Jac_FULL(5251,4911) - JVS(46272) = 0 -! JVS(46273) = Jac_FULL(5251,4912) - JVS(46273) = -B(7272) -! JVS(46274) = Jac_FULL(5251,4913) - JVS(46274) = 0 -! JVS(46275) = Jac_FULL(5251,4914) - JVS(46275) = B(11099) -! JVS(46276) = Jac_FULL(5251,4915) - JVS(46276) = 0 -! JVS(46277) = Jac_FULL(5251,4916) - JVS(46277) = 0 -! JVS(46278) = Jac_FULL(5251,4917) - JVS(46278) = 0 -! JVS(46279) = Jac_FULL(5251,4918) - JVS(46279) = B(9411)+B(9413)+B(9415) -! JVS(46280) = Jac_FULL(5251,4919) - JVS(46280) = -B(6584) -! JVS(46281) = Jac_FULL(5251,4920) - JVS(46281) = 0 -! JVS(46282) = Jac_FULL(5251,4921) - JVS(46282) = 0 -! JVS(46283) = Jac_FULL(5251,4922) - JVS(46283) = 0 -! JVS(46284) = Jac_FULL(5251,4923) - JVS(46284) = 0 -! JVS(46285) = Jac_FULL(5251,4924) - JVS(46285) = 0 -! JVS(46286) = Jac_FULL(5251,4925) - JVS(46286) = 0 -! JVS(46287) = Jac_FULL(5251,4926) - JVS(46287) = 0 -! JVS(46288) = Jac_FULL(5251,4927) - JVS(46288) = B(9059) -! JVS(46289) = Jac_FULL(5251,4928) - JVS(46289) = 0 -! JVS(46290) = Jac_FULL(5251,4930) - JVS(46290) = 0 -! JVS(46291) = Jac_FULL(5251,4931) - JVS(46291) = B(7662)+B(7664)+B(7666) -! JVS(46292) = Jac_FULL(5251,4932) - JVS(46292) = 0 -! JVS(46293) = Jac_FULL(5251,4933) - JVS(46293) = B(6561) -! JVS(46294) = Jac_FULL(5251,4934) - JVS(46294) = 0 -! JVS(46295) = Jac_FULL(5251,4935) - JVS(46295) = 0 -! JVS(46296) = Jac_FULL(5251,4936) - JVS(46296) = B(1527) -! JVS(46297) = Jac_FULL(5251,4937) - JVS(46297) = 0 -! JVS(46298) = Jac_FULL(5251,4939) - JVS(46298) = B(13894)+B(13895)+B(13897) -! JVS(46299) = Jac_FULL(5251,4941) - JVS(46299) = -B(4861) -! JVS(46300) = Jac_FULL(5251,4943) - JVS(46300) = -B(4349) -! JVS(46301) = Jac_FULL(5251,4944) - JVS(46301) = 0 -! JVS(46302) = Jac_FULL(5251,4945) - JVS(46302) = 0 -! JVS(46303) = Jac_FULL(5251,4946) - JVS(46303) = 0 -! JVS(46304) = Jac_FULL(5251,4947) - JVS(46304) = 0 -! JVS(46305) = Jac_FULL(5251,4948) - JVS(46305) = 0 -! JVS(46306) = Jac_FULL(5251,4949) - JVS(46306) = 0 -! JVS(46307) = Jac_FULL(5251,4950) - JVS(46307) = 0 -! JVS(46308) = Jac_FULL(5251,4951) - JVS(46308) = 0 -! JVS(46309) = Jac_FULL(5251,4952) - JVS(46309) = 0 -! JVS(46310) = Jac_FULL(5251,4953) - JVS(46310) = 0 -! JVS(46311) = Jac_FULL(5251,4954) - JVS(46311) = B(1449)+B(1451)+B(1455)+B(1458) -! JVS(46312) = Jac_FULL(5251,4955) - JVS(46312) = 0 -! JVS(46313) = Jac_FULL(5251,4956) - JVS(46313) = -B(4940) -! JVS(46314) = Jac_FULL(5251,4957) - JVS(46314) = 0 -! JVS(46315) = Jac_FULL(5251,4960) - JVS(46315) = 0 -! JVS(46316) = Jac_FULL(5251,4961) - JVS(46316) = B(5074) -! JVS(46317) = Jac_FULL(5251,4962) - JVS(46317) = 0 -! JVS(46318) = Jac_FULL(5251,4963) - JVS(46318) = -B(10666) -! JVS(46319) = Jac_FULL(5251,4964) - JVS(46319) = B(758) -! JVS(46320) = Jac_FULL(5251,4965) - JVS(46320) = 0 -! JVS(46321) = Jac_FULL(5251,4966) - JVS(46321) = B(15920)+B(15922)+B(15926)+B(15928) -! JVS(46322) = Jac_FULL(5251,4968) - JVS(46322) = 0 -! JVS(46323) = Jac_FULL(5251,4969) - JVS(46323) = 0 -! JVS(46324) = Jac_FULL(5251,4970) - JVS(46324) = 0 -! JVS(46325) = Jac_FULL(5251,4971) - JVS(46325) = 0 -! JVS(46326) = Jac_FULL(5251,4972) - JVS(46326) = 0 -! JVS(46327) = Jac_FULL(5251,4974) - JVS(46327) = 0 -! JVS(46328) = Jac_FULL(5251,4975) - JVS(46328) = B(11820) -! JVS(46329) = Jac_FULL(5251,4976) - JVS(46329) = B(10523)+B(10524) -! JVS(46330) = Jac_FULL(5251,4977) - JVS(46330) = 0 -! JVS(46331) = Jac_FULL(5251,4978) - JVS(46331) = B(23522) -! JVS(46332) = Jac_FULL(5251,4979) - JVS(46332) = 0 -! JVS(46333) = Jac_FULL(5251,4980) - JVS(46333) = 0 -! JVS(46334) = Jac_FULL(5251,4982) - JVS(46334) = 0 -! JVS(46335) = Jac_FULL(5251,4983) - JVS(46335) = B(11639) -! JVS(46336) = Jac_FULL(5251,4984) - JVS(46336) = 0 -! JVS(46337) = Jac_FULL(5251,4985) - JVS(46337) = 0 -! JVS(46338) = Jac_FULL(5251,4986) - JVS(46338) = 0 -! JVS(46339) = Jac_FULL(5251,4987) - JVS(46339) = 0 -! JVS(46340) = Jac_FULL(5251,4988) - JVS(46340) = 0 -! JVS(46341) = Jac_FULL(5251,4989) - JVS(46341) = 0 -! JVS(46342) = Jac_FULL(5251,4990) - JVS(46342) = 0 -! JVS(46343) = Jac_FULL(5251,4991) - JVS(46343) = 0 -! JVS(46344) = Jac_FULL(5251,4992) - JVS(46344) = 0 -! JVS(46345) = Jac_FULL(5251,4993) - JVS(46345) = 0 -! JVS(46346) = Jac_FULL(5251,4994) - JVS(46346) = 0 -! JVS(46347) = Jac_FULL(5251,4996) - JVS(46347) = B(14206) -! JVS(46348) = Jac_FULL(5251,4997) - JVS(46348) = -B(9457) -! JVS(46349) = Jac_FULL(5251,4998) - JVS(46349) = -B(9568) -! JVS(46350) = Jac_FULL(5251,4999) - JVS(46350) = -B(13534) -! JVS(46351) = Jac_FULL(5251,5000) - JVS(46351) = B(1254) -! JVS(46352) = Jac_FULL(5251,5001) - JVS(46352) = 0 -! JVS(46353) = Jac_FULL(5251,5002) - JVS(46353) = 2*B(10592)+B(10593) -! JVS(46354) = Jac_FULL(5251,5004) - JVS(46354) = 0 -! JVS(46355) = Jac_FULL(5251,5005) - JVS(46355) = 0 -! JVS(46356) = Jac_FULL(5251,5006) - JVS(46356) = 0 -! JVS(46357) = Jac_FULL(5251,5008) - JVS(46357) = 0 -! JVS(46358) = Jac_FULL(5251,5009) - JVS(46358) = B(4971) -! JVS(46359) = Jac_FULL(5251,5010) - JVS(46359) = 0 -! JVS(46360) = Jac_FULL(5251,5012) - JVS(46360) = B(3895) -! JVS(46361) = Jac_FULL(5251,5013) - JVS(46361) = 0 -! JVS(46362) = Jac_FULL(5251,5014) - JVS(46362) = 0 -! JVS(46363) = Jac_FULL(5251,5015) - JVS(46363) = 0 -! JVS(46364) = Jac_FULL(5251,5017) - JVS(46364) = 0 -! JVS(46365) = Jac_FULL(5251,5018) - JVS(46365) = B(18138) -! JVS(46366) = Jac_FULL(5251,5019) - JVS(46366) = 0 -! JVS(46367) = Jac_FULL(5251,5021) - JVS(46367) = 0 -! JVS(46368) = Jac_FULL(5251,5022) - JVS(46368) = 0 -! JVS(46369) = Jac_FULL(5251,5023) - JVS(46369) = B(4236)+B(4237)+B(4239) -! JVS(46370) = Jac_FULL(5251,5024) - JVS(46370) = 0 -! JVS(46371) = Jac_FULL(5251,5025) - JVS(46371) = B(13692)+B(13698)+B(13702)+B(13704) -! JVS(46372) = Jac_FULL(5251,5026) - JVS(46372) = B(7086) -! JVS(46373) = Jac_FULL(5251,5027) - JVS(46373) = 0 -! JVS(46374) = Jac_FULL(5251,5028) - JVS(46374) = 0 -! JVS(46375) = Jac_FULL(5251,5029) - JVS(46375) = 0 -! JVS(46376) = Jac_FULL(5251,5030) - JVS(46376) = 0 -! JVS(46377) = Jac_FULL(5251,5031) - JVS(46377) = B(13250) -! JVS(46378) = Jac_FULL(5251,5032) - JVS(46378) = 0 -! JVS(46379) = Jac_FULL(5251,5033) - JVS(46379) = 0 -! JVS(46380) = Jac_FULL(5251,5034) - JVS(46380) = 0 -! JVS(46381) = Jac_FULL(5251,5035) - JVS(46381) = B(13716) -! JVS(46382) = Jac_FULL(5251,5036) - JVS(46382) = 0 -! JVS(46383) = Jac_FULL(5251,5037) - JVS(46383) = B(9185) -! JVS(46384) = Jac_FULL(5251,5038) - JVS(46384) = 0 -! JVS(46385) = Jac_FULL(5251,5040) - JVS(46385) = -B(16565) -! JVS(46386) = Jac_FULL(5251,5041) - JVS(46386) = 0 -! JVS(46387) = Jac_FULL(5251,5042) - JVS(46387) = B(1054) -! JVS(46388) = Jac_FULL(5251,5043) - JVS(46388) = 0 -! JVS(46389) = Jac_FULL(5251,5044) - JVS(46389) = 0 -! JVS(46390) = Jac_FULL(5251,5045) - JVS(46390) = 0 -! JVS(46391) = Jac_FULL(5251,5047) - JVS(46391) = -B(18749) -! JVS(46392) = Jac_FULL(5251,5048) - JVS(46392) = -B(3572) -! JVS(46393) = Jac_FULL(5251,5049) - JVS(46393) = 2*B(6656) -! JVS(46394) = Jac_FULL(5251,5050) - JVS(46394) = 2*B(6628) -! JVS(46395) = Jac_FULL(5251,5051) - JVS(46395) = 0 -! JVS(46396) = Jac_FULL(5251,5052) - JVS(46396) = 0 -! JVS(46397) = Jac_FULL(5251,5054) - JVS(46397) = 0 -! JVS(46398) = Jac_FULL(5251,5055) - JVS(46398) = B(4138) -! JVS(46399) = Jac_FULL(5251,5056) - JVS(46399) = 0 -! JVS(46400) = Jac_FULL(5251,5057) - JVS(46400) = B(3865) -! JVS(46401) = Jac_FULL(5251,5058) - JVS(46401) = 0 -! JVS(46402) = Jac_FULL(5251,5059) - JVS(46402) = 0 -! JVS(46403) = Jac_FULL(5251,5060) - JVS(46403) = 0 -! JVS(46404) = Jac_FULL(5251,5061) - JVS(46404) = 0 -! JVS(46405) = Jac_FULL(5251,5063) - JVS(46405) = B(11897) -! JVS(46406) = Jac_FULL(5251,5064) - JVS(46406) = 0 -! JVS(46407) = Jac_FULL(5251,5065) - JVS(46407) = 0 -! JVS(46408) = Jac_FULL(5251,5066) - JVS(46408) = 0 -! JVS(46409) = Jac_FULL(5251,5067) - JVS(46409) = 0 -! JVS(46410) = Jac_FULL(5251,5068) - JVS(46410) = B(9538) -! JVS(46411) = Jac_FULL(5251,5069) - JVS(46411) = 0 -! JVS(46412) = Jac_FULL(5251,5070) - JVS(46412) = -B(9336) -! JVS(46413) = Jac_FULL(5251,5071) - JVS(46413) = B(3729) -! JVS(46414) = Jac_FULL(5251,5072) - JVS(46414) = B(22908)+B(22909) -! JVS(46415) = Jac_FULL(5251,5073) - JVS(46415) = 0 -! JVS(46416) = Jac_FULL(5251,5074) - JVS(46416) = 0 -! JVS(46417) = Jac_FULL(5251,5076) - JVS(46417) = 0 -! JVS(46418) = Jac_FULL(5251,5077) - JVS(46418) = 0 -! JVS(46419) = Jac_FULL(5251,5078) - JVS(46419) = 0 -! JVS(46420) = Jac_FULL(5251,5079) - JVS(46420) = 0 -! JVS(46421) = Jac_FULL(5251,5081) - JVS(46421) = 0 -! JVS(46422) = Jac_FULL(5251,5082) - JVS(46422) = 0 -! JVS(46423) = Jac_FULL(5251,5083) - JVS(46423) = B(14439) -! JVS(46424) = Jac_FULL(5251,5084) - JVS(46424) = 0 -! JVS(46425) = Jac_FULL(5251,5085) - JVS(46425) = B(20856) -! JVS(46426) = Jac_FULL(5251,5086) - JVS(46426) = B(19109) -! JVS(46427) = Jac_FULL(5251,5087) - JVS(46427) = B(1229) -! JVS(46428) = Jac_FULL(5251,5088) - JVS(46428) = 0 -! JVS(46429) = Jac_FULL(5251,5089) - JVS(46429) = 0 -! JVS(46430) = Jac_FULL(5251,5090) - JVS(46430) = 0 -! JVS(46431) = Jac_FULL(5251,5091) - JVS(46431) = 0 -! JVS(46432) = Jac_FULL(5251,5092) - JVS(46432) = -B(3582) -! JVS(46433) = Jac_FULL(5251,5093) - JVS(46433) = B(6683)+B(6684) -! JVS(46434) = Jac_FULL(5251,5094) - JVS(46434) = B(4316) -! JVS(46435) = Jac_FULL(5251,5095) - JVS(46435) = B(19328) -! JVS(46436) = Jac_FULL(5251,5096) - JVS(46436) = 0 -! JVS(46437) = Jac_FULL(5251,5097) - JVS(46437) = 0 -! JVS(46438) = Jac_FULL(5251,5099) - JVS(46438) = 0 -! JVS(46439) = Jac_FULL(5251,5100) - JVS(46439) = 0 -! JVS(46440) = Jac_FULL(5251,5101) - JVS(46440) = 0 -! JVS(46441) = Jac_FULL(5251,5102) - JVS(46441) = -B(8863) -! JVS(46442) = Jac_FULL(5251,5103) - JVS(46442) = B(10064)+B(10065) -! JVS(46443) = Jac_FULL(5251,5104) - JVS(46443) = 0 -! JVS(46444) = Jac_FULL(5251,5105) - JVS(46444) = B(16774) -! JVS(46445) = Jac_FULL(5251,5106) - JVS(46445) = 0 -! JVS(46446) = Jac_FULL(5251,5107) - JVS(46446) = 0 -! JVS(46447) = Jac_FULL(5251,5108) - JVS(46447) = 0 -! JVS(46448) = Jac_FULL(5251,5110) - JVS(46448) = B(14101) -! JVS(46449) = Jac_FULL(5251,5111) - JVS(46449) = 0 -! JVS(46450) = Jac_FULL(5251,5112) - JVS(46450) = 0 -! JVS(46451) = Jac_FULL(5251,5113) - JVS(46451) = B(22951) -! JVS(46452) = Jac_FULL(5251,5114) - JVS(46452) = 0 -! JVS(46453) = Jac_FULL(5251,5115) - JVS(46453) = B(11784) -! JVS(46454) = Jac_FULL(5251,5116) - JVS(46454) = 0 -! JVS(46455) = Jac_FULL(5251,5117) - JVS(46455) = 0 -! JVS(46456) = Jac_FULL(5251,5118) - JVS(46456) = 0 -! JVS(46457) = Jac_FULL(5251,5119) - JVS(46457) = 0 -! JVS(46458) = Jac_FULL(5251,5120) - JVS(46458) = 0 -! JVS(46459) = Jac_FULL(5251,5121) - JVS(46459) = 0 -! JVS(46460) = Jac_FULL(5251,5122) - JVS(46460) = 0 -! JVS(46461) = Jac_FULL(5251,5123) - JVS(46461) = 0 -! JVS(46462) = Jac_FULL(5251,5124) - JVS(46462) = 0 -! JVS(46463) = Jac_FULL(5251,5125) - JVS(46463) = 0 -! JVS(46464) = Jac_FULL(5251,5126) - JVS(46464) = B(9305) -! JVS(46465) = Jac_FULL(5251,5127) - JVS(46465) = 0 -! JVS(46466) = Jac_FULL(5251,5128) - JVS(46466) = 0 -! JVS(46467) = Jac_FULL(5251,5129) - JVS(46467) = 0 -! JVS(46468) = Jac_FULL(5251,5130) - JVS(46468) = 0 -! JVS(46469) = Jac_FULL(5251,5131) - JVS(46469) = 0 -! JVS(46470) = Jac_FULL(5251,5132) - JVS(46470) = 0 -! JVS(46471) = Jac_FULL(5251,5133) - JVS(46471) = 0 -! JVS(46472) = Jac_FULL(5251,5134) - JVS(46472) = 0 -! JVS(46473) = Jac_FULL(5251,5135) - JVS(46473) = 0 -! JVS(46474) = Jac_FULL(5251,5136) - JVS(46474) = 0 -! JVS(46475) = Jac_FULL(5251,5137) - JVS(46475) = 0 -! JVS(46476) = Jac_FULL(5251,5138) - JVS(46476) = 0 -! JVS(46477) = Jac_FULL(5251,5139) - JVS(46477) = B(7024)+B(7025)+B(7027) -! JVS(46478) = Jac_FULL(5251,5140) - JVS(46478) = 0 -! JVS(46479) = Jac_FULL(5251,5141) - JVS(46479) = 0 -! JVS(46480) = Jac_FULL(5251,5143) - JVS(46480) = B(4207) -! JVS(46481) = Jac_FULL(5251,5144) - JVS(46481) = 0 -! JVS(46482) = Jac_FULL(5251,5146) - JVS(46482) = 0 -! JVS(46483) = Jac_FULL(5251,5147) - JVS(46483) = 0 -! JVS(46484) = Jac_FULL(5251,5148) - JVS(46484) = 0 -! JVS(46485) = Jac_FULL(5251,5149) - JVS(46485) = 0 -! JVS(46486) = Jac_FULL(5251,5150) - JVS(46486) = 0 -! JVS(46487) = Jac_FULL(5251,5151) - JVS(46487) = 0 -! JVS(46488) = Jac_FULL(5251,5152) - JVS(46488) = 0 -! JVS(46489) = Jac_FULL(5251,5153) - JVS(46489) = 0 -! JVS(46490) = Jac_FULL(5251,5154) - JVS(46490) = 0 -! JVS(46491) = Jac_FULL(5251,5155) - JVS(46491) = 0 -! JVS(46492) = Jac_FULL(5251,5156) - JVS(46492) = -B(4284) -! JVS(46493) = Jac_FULL(5251,5157) - JVS(46493) = 0 -! JVS(46494) = Jac_FULL(5251,5158) - JVS(46494) = 0 -! JVS(46495) = Jac_FULL(5251,5159) - JVS(46495) = B(19140) -! JVS(46496) = Jac_FULL(5251,5161) - JVS(46496) = 0 -! JVS(46497) = Jac_FULL(5251,5162) - JVS(46497) = B(4488) -! JVS(46498) = Jac_FULL(5251,5163) - JVS(46498) = 0 -! JVS(46499) = Jac_FULL(5251,5164) - JVS(46499) = 0 -! JVS(46500) = Jac_FULL(5251,5165) - JVS(46500) = B(212) -! JVS(46501) = Jac_FULL(5251,5166) - JVS(46501) = 0 -! JVS(46502) = Jac_FULL(5251,5167) - JVS(46502) = 0 -! JVS(46503) = Jac_FULL(5251,5168) - JVS(46503) = 0 -! JVS(46504) = Jac_FULL(5251,5169) - JVS(46504) = B(11198) -! JVS(46505) = Jac_FULL(5251,5170) - JVS(46505) = -B(4256) -! JVS(46506) = Jac_FULL(5251,5171) - JVS(46506) = 0 -! JVS(46507) = Jac_FULL(5251,5172) - JVS(46507) = 0 -! JVS(46508) = Jac_FULL(5251,5173) - JVS(46508) = 0 -! JVS(46509) = Jac_FULL(5251,5174) - JVS(46509) = B(13830) -! JVS(46510) = Jac_FULL(5251,5175) - JVS(46510) = 0 -! JVS(46511) = Jac_FULL(5251,5176) - JVS(46511) = B(14416) -! JVS(46512) = Jac_FULL(5251,5177) - JVS(46512) = B(22523) -! JVS(46513) = Jac_FULL(5251,5178) - JVS(46513) = 0 -! JVS(46514) = Jac_FULL(5251,5179) - JVS(46514) = 0 -! JVS(46515) = Jac_FULL(5251,5180) - JVS(46515) = 0 -! JVS(46516) = Jac_FULL(5251,5181) - JVS(46516) = 0 -! JVS(46517) = Jac_FULL(5251,5182) - JVS(46517) = B(17413) -! JVS(46518) = Jac_FULL(5251,5183) - JVS(46518) = 0 -! JVS(46519) = Jac_FULL(5251,5184) - JVS(46519) = B(3648) -! JVS(46520) = Jac_FULL(5251,5185) - JVS(46520) = 0 -! JVS(46521) = Jac_FULL(5251,5186) - JVS(46521) = 0 -! JVS(46522) = Jac_FULL(5251,5187) - JVS(46522) = 0 -! JVS(46523) = Jac_FULL(5251,5189) - JVS(46523) = B(21962) -! JVS(46524) = Jac_FULL(5251,5190) - JVS(46524) = 0 -! JVS(46525) = Jac_FULL(5251,5191) - JVS(46525) = B(188) -! JVS(46526) = Jac_FULL(5251,5192) - JVS(46526) = 0 -! JVS(46527) = Jac_FULL(5251,5193) - JVS(46527) = B(177) -! JVS(46528) = Jac_FULL(5251,5194) - JVS(46528) = B(222)+B(223) -! JVS(46529) = Jac_FULL(5251,5196) - JVS(46529) = 0 -! JVS(46530) = Jac_FULL(5251,5197) - JVS(46530) = 0 -! JVS(46531) = Jac_FULL(5251,5198) - JVS(46531) = 0 -! JVS(46532) = Jac_FULL(5251,5199) - JVS(46532) = 2*B(13303)+2*B(13305)+2*B(13307) -! JVS(46533) = Jac_FULL(5251,5200) - JVS(46533) = 0 -! JVS(46534) = Jac_FULL(5251,5202) - JVS(46534) = 0 -! JVS(46535) = Jac_FULL(5251,5203) - JVS(46535) = B(205) -! JVS(46536) = Jac_FULL(5251,5204) - JVS(46536) = 0 -! JVS(46537) = Jac_FULL(5251,5205) - JVS(46537) = 2*B(10525) -! JVS(46538) = Jac_FULL(5251,5206) - JVS(46538) = 0 -! JVS(46539) = Jac_FULL(5251,5207) - JVS(46539) = B(11398) -! JVS(46540) = Jac_FULL(5251,5208) - JVS(46540) = 0 -! JVS(46541) = Jac_FULL(5251,5209) - JVS(46541) = B(8819)+B(8820) -! JVS(46542) = Jac_FULL(5251,5210) - JVS(46542) = B(4366) -! JVS(46543) = Jac_FULL(5251,5211) - JVS(46543) = B(14927) -! JVS(46544) = Jac_FULL(5251,5212) - JVS(46544) = B(11234) -! JVS(46545) = Jac_FULL(5251,5213) - JVS(46545) = B(11038) -! JVS(46546) = Jac_FULL(5251,5214) - JVS(46546) = 0 -! JVS(46547) = Jac_FULL(5251,5215) - JVS(46547) = 0 -! JVS(46548) = Jac_FULL(5251,5216) - JVS(46548) = B(7902)+B(7904)+B(7906)+B(7908)+B(7910) -! JVS(46549) = Jac_FULL(5251,5217) - JVS(46549) = 0 -! JVS(46550) = Jac_FULL(5251,5218) - JVS(46550) = 0 -! JVS(46551) = Jac_FULL(5251,5219) - JVS(46551) = 0 -! JVS(46552) = Jac_FULL(5251,5220) - JVS(46552) = B(10594) -! JVS(46553) = Jac_FULL(5251,5221) - JVS(46553) = B(4301) -! JVS(46554) = Jac_FULL(5251,5222) - JVS(46554) = B(1511)+B(1512)+B(1514) -! JVS(46555) = Jac_FULL(5251,5223) - JVS(46555) = -B(4051) -! JVS(46556) = Jac_FULL(5251,5224) - JVS(46556) = 0 -! JVS(46557) = Jac_FULL(5251,5225) - JVS(46557) = 0 -! JVS(46558) = Jac_FULL(5251,5226) - JVS(46558) = B(228) -! JVS(46559) = Jac_FULL(5251,5227) - JVS(46559) = B(3102)+B(3103) -! JVS(46560) = Jac_FULL(5251,5229) - JVS(46560) = 0 -! JVS(46561) = Jac_FULL(5251,5230) - JVS(46561) = B(196) -! JVS(46562) = Jac_FULL(5251,5231) - JVS(46562) = B(171)+B(172)+B(173)+B(175) -! JVS(46563) = Jac_FULL(5251,5232) - JVS(46563) = 0 -! JVS(46564) = Jac_FULL(5251,5233) - JVS(46564) = 2*B(1482)+2*B(1483)+B(1484) -! JVS(46565) = Jac_FULL(5251,5234) - JVS(46565) = B(1221) -! JVS(46566) = Jac_FULL(5251,5235) - JVS(46566) = 0 -! JVS(46567) = Jac_FULL(5251,5236) - JVS(46567) = 0 -! JVS(46568) = Jac_FULL(5251,5237) - JVS(46568) = 0 -! JVS(46569) = Jac_FULL(5251,5238) - JVS(46569) = 0 -! JVS(46570) = Jac_FULL(5251,5239) - JVS(46570) = 0 -! JVS(46571) = Jac_FULL(5251,5240) - JVS(46571) = B(14741) -! JVS(46572) = Jac_FULL(5251,5241) - JVS(46572) = 0 -! JVS(46573) = Jac_FULL(5251,5242) - JVS(46573) = 0 -! JVS(46574) = Jac_FULL(5251,5243) - JVS(46574) = 0 -! JVS(46575) = Jac_FULL(5251,5244) - JVS(46575) = 0 -! JVS(46576) = Jac_FULL(5251,5245) - JVS(46576) = 0 -! JVS(46577) = Jac_FULL(5251,5246) - JVS(46577) = 0 -! JVS(46578) = Jac_FULL(5251,5247) - JVS(46578) = 0 -! JVS(46579) = Jac_FULL(5251,5248) - JVS(46579) = B(11297) -! JVS(46580) = Jac_FULL(5251,5249) - JVS(46580) = 0 -! JVS(46581) = Jac_FULL(5251,5250) - JVS(46581) = -B(29)+B(176)+B(594)+B(1515)+2*B(3972)+B(3980)+B(4104)+B(4120)+B(4160)+B(4196)+B(4223)+B(4228)+B(4231)& - &+B(4240)+B(4270)+B(4279)+B(4296)+B(4321)+2*B(4323)+B(4377)+B(6604)+B(7028)+B(7645)+B(7652)+B(7665)+B(7752)& - &+B(7758)+B(7779)+B(7781)+B(7897)+B(7914)+B(8691)+B(8736)+B(8861)+B(8882)+B(8893)+B(8940)+B(8972)+B(9081)& - &+B(9114)+B(9193)+B(9204)+B(9334)+B(9355)+B(9414)+B(9455)+B(9476)+B(9566)+B(9587)+B(9771)+B(9851)+B(9946)& - &+B(10009)+B(10073)+B(10084)+B(10096)+B(10484)+B(10687)+B(11074)+B(11216)+B(11360)+B(11407)+B(11445)& - &+B(11453)+B(11471)+B(11492)+B(11497)+B(11521)+B(11564)+B(11570)+B(11576)+B(11585)+B(11593)+B(11607)& - &+B(11631)+B(11637)+B(11684)+B(11692)+B(11744)+B(11764)+B(11810)+B(11887)+B(11947)+B(11969)+B(11993)& - &+B(12174)+B(12182)+B(12198)+B(12206)+B(12225)+B(12236)+B(12253)+B(12264)+B(12270)+B(12285)+B(12313)+2& - &*B(12365)+B(12374)+3*B(12382)+2*B(12500)+B(12511)+B(12614)+2*B(12682)+B(12691)+B(12721)+B(12729)+B(12773)& - &+2*B(12844)+2*B(12942)+2*B(13036)+B(13058)+B(13111)+B(13151)+B(13164)+B(13215)+2*B(13229)+B(13238)& - &+B(13260)+B(13279)+2*B(13308)+B(13371)+B(13432)+B(13445)+B(13466)+B(13474)+B(13496)+2*B(13502)+B(13525)& - &+B(13527)+2*B(13533)+B(13590)+B(13618)+2*B(13624)+B(13666)+B(13686)+B(13766)+B(13774)+B(13890)+B(13898)& - &+B(13924)+B(13950)+B(14013)+B(14027)+B(14074)+B(14084)+B(14169)+B(14189)+B(14197)+B(14242)+B(14338)& - &+B(14399)+B(14506)+B(14545)+B(14865)+B(14915)+B(15435)+4*B(15462)+B(15559)+2*B(15611)+B(16040)+2*B(16168)& - &+2*B(16415)+2*B(16461)+2*B(16477)+B(16487)+B(16505)+B(16511)+B(16547)+B(16550)+B(16553)+B(16555)+B(16606)& - &+B(16610)+B(16630)+B(16633)+B(16635)+B(16643)+B(16906)+B(16915)+B(16932)+B(17103)+B(17113)+B(17128)& - &+B(17200)+B(17219)+B(17230)+B(17260)+B(17270)+B(17406)+B(17412)+B(17460)+2*B(17466)+B(17503)+B(17523)& - &+B(17555)+B(17603)+B(17622)+B(17630)+B(17680)+B(17716)+B(17740)+B(17748)+B(17867)+B(18040)+3*B(18132)& - &+B(18342)+B(18351)+2*B(18408)+B(18413)+B(18422)+2*B(18475)+B(18480)+B(18489)+B(18706)+B(18741)+B(18787)& - &+B(18956)+B(19026)+B(19034)+B(19052)+B(19211)+B(19246)+B(19395)+B(19483)+B(19566)+B(19574)+B(19583)& - &+B(19595)+B(19632)+B(19640)+B(19851)+3*B(19879)+3*B(19891)+2*B(19905)+2*B(19952)+3*B(20024)+2*B(20050)+2& - &*B(20072)+2*B(20107)+B(20126)+2*B(20137)+B(20156)+B(20182)+2*B(20196)+2*B(20222)+B(20244)+2*B(20266)& - &+B(20317)+B(20383)+B(20388)+B(20453)+B(20461)+B(20483)+B(20525)+B(20530)+B(20571)+B(20594)+B(20687)& - &+B(20772)+B(20841)+B(20921)+B(20933)+B(20973)+B(20983)+B(21008)+B(21027)+B(21166)+B(21186)+B(21204)& - &+B(21228)+B(21241)+B(21254)+B(21267)+B(21280)+2*B(21297)+2*B(21314)+2*B(21321)+B(21344)+B(21352)+B(21360)& - &+B(21386)+2*B(21403)+3*B(21410)+2*B(21427)+2*B(21445)+B(21462)+2*B(21465)+B(21517)+B(21525)+B(21532)& - &+B(21556)+B(21564)+B(21572)+B(21580)+B(21607)+B(21612)+B(21617)+B(21620)+B(21626)+B(21634)+B(21641)& - &+B(21652)+B(21658)+2*B(21671)+B(21684)+B(21753)+B(21760)+2*B(21793)+B(21883)+B(21998)+B(22094)+B(22156)& - &+B(22203)+B(22220)+B(22226)+B(22273)+B(22282)+B(22288)+2*B(22295)+B(22314)+B(22411)+B(22439)+2*B(22446)& - &+B(22469)+B(22480)+B(22500)+B(22508)+B(22570)+B(22636)+B(22674)+B(22734)+B(22766)+B(22800)+B(22839)& - &+B(22859)+B(22884)+B(22891)+B(22958)+B(23043)+B(23180)+B(23243)+B(23278)+B(23353)+B(23406)+B(23497)+2& - &*B(23574)+B(23592)+B(23601)+B(23610)+B(23617)+B(23680)+B(23764)+B(23834)+B(23892)+B(23921)+B(23939)& - &+B(24013) -! JVS(46582) = Jac_FULL(5251,5251) - JVS(46582) = -B(30)-B(3573)-B(3583)-B(4028)-B(4052)-B(4257)-B(4285)-B(4350)-B(4862)-B(4906)-B(4941)-B(5021)-B(5055)& - &-B(5115)-B(6585)-B(6640)-B(6746)-B(6756)-B(7273)-B(7375)-B(7443)-B(8864)-B(9337)-B(9458)-B(9569)-B(10667)& - &-B(11311)-B(13504)-B(13535)-B(13559)-B(13592)-B(13626)-B(13869)-B(14554)-B(14649)-B(14694)-B(14792)& - &-B(14802)-B(15442)-B(15589)-B(15614)-B(16517)-B(16527)-B(16566)-B(16653)-B(17164)-B(17322)-B(18750)& - &-B(20533) -! JVS(46583) = Jac_FULL(5251,5252) - JVS(46583) = B(1452)+B(1548)+B(7905)+B(10326)+B(10353)+B(10433)+B(13699)+B(15923)+B(16021)+B(16123)+B(19898)+B(19912)& - &+B(20057)+B(20079)+2*B(20092)+B(20114)+B(20144)+B(20273)+B(21287)+B(21376)+B(21490)+B(21539) -! JVS(46584) = Jac_FULL(5251,5253) - JVS(46584) = B(7907) -! JVS(46585) = Jac_FULL(5251,5254) - JVS(46585) = 0 -! JVS(46586) = Jac_FULL(5251,5255) - JVS(46586) = B(1450)+B(1546)+B(7903)+B(10324)+B(10351)+B(10431)+B(13693)+B(15921)+B(16019)+B(16121)+B(19896)+B(19908)& - &+B(20055)+B(20075)+2*B(20088)+B(20110)+B(20140)+B(20269)+B(21285)+B(21374)+B(21488)+B(21537) -! JVS(46587) = Jac_FULL(5251,5256) - JVS(46587) = B(174)+B(1456)+B(1513)+B(1552)+2*B(3970)+B(4238)+B(7026)+B(7663)+B(7895)+B(7909)+B(9412)+B(10330)& - &+B(10357)+B(10437)+B(10482)+2*B(13306)+B(13523)+B(13703)+B(13896)+B(13948)+B(14025)+B(15927)+B(16025)& - &+B(16038)+B(16127)+2*B(16459)+B(18038)+3*B(18130)+B(18340)+2*B(18406)+B(18411)+2*B(18473)+B(18478)& - &+B(19902)+B(19916)+B(20061)+B(20083)+2*B(20096)+B(20118)+B(20148)+B(20277)+B(21291)+B(21380)+B(21494)& - &+B(21543)+2*B(21791)+B(22218)+B(22312)+B(22889) -! JVS(46588) = Jac_FULL(5251,5257) - JVS(46588) = B(7498) -! JVS(46589) = Jac_FULL(5251,5258) - JVS(46589) = B(9054)+B(9060)+B(9310)+B(9431)+B(9542)+B(10154) -! JVS(46590) = Jac_FULL(5252,337) - JVS(46590) = B(70) -! JVS(46591) = Jac_FULL(5252,3481) - JVS(46591) = -B(2549)-B(2551) -! JVS(46592) = Jac_FULL(5252,3489) - JVS(46592) = -B(6407) -! JVS(46593) = Jac_FULL(5252,3491) - JVS(46593) = -B(5464) -! JVS(46594) = Jac_FULL(5252,3492) - JVS(46594) = -B(2763)-B(2765) -! JVS(46595) = Jac_FULL(5252,3496) - JVS(46595) = -B(6907)-B(6909) -! JVS(46596) = Jac_FULL(5252,3503) - JVS(46596) = -B(6260) -! JVS(46597) = Jac_FULL(5252,3507) - JVS(46597) = -B(2506)-B(2508) -! JVS(46598) = Jac_FULL(5252,3509) - JVS(46598) = -B(2462)-B(2464) -! JVS(46599) = Jac_FULL(5252,3511) - JVS(46599) = -B(6328) -! JVS(46600) = Jac_FULL(5252,3518) - JVS(46600) = -B(6050) -! JVS(46601) = Jac_FULL(5252,3521) - JVS(46601) = -B(2680)-B(2682) -! JVS(46602) = Jac_FULL(5252,3523) - JVS(46602) = -B(2419)-B(2421) -! JVS(46603) = Jac_FULL(5252,3525) - JVS(46603) = -B(2720)-B(2722) -! JVS(46604) = Jac_FULL(5252,3527) - JVS(46604) = -B(2879)-B(2881) -! JVS(46605) = Jac_FULL(5252,3531) - JVS(46605) = -B(5555) -! JVS(46606) = Jac_FULL(5252,3534) - JVS(46606) = -B(5648) -! JVS(46607) = Jac_FULL(5252,3538) - JVS(46607) = -B(5305) -! JVS(46608) = Jac_FULL(5252,3539) - JVS(46608) = -B(5859) -! JVS(46609) = Jac_FULL(5252,3554) - JVS(46609) = -B(5779) -! JVS(46610) = Jac_FULL(5252,3562) - JVS(46610) = -B(5680) -! JVS(46611) = Jac_FULL(5252,3568) - JVS(46611) = -B(6)+B(8) -! JVS(46612) = Jac_FULL(5252,3627) - JVS(46612) = -B(5961) -! JVS(46613) = Jac_FULL(5252,3631) - JVS(46613) = -B(6485) -! JVS(46614) = Jac_FULL(5252,3632) - JVS(46614) = -B(6493) -! JVS(46615) = Jac_FULL(5252,3634) - JVS(46615) = -B(3090)-B(3092) -! JVS(46616) = Jac_FULL(5252,3636) - JVS(46616) = -B(3030) -! JVS(46617) = Jac_FULL(5252,3637) - JVS(46617) = -B(3163)-B(3165) -! JVS(46618) = Jac_FULL(5252,3641) - JVS(46618) = -B(6125) -! JVS(46619) = Jac_FULL(5252,3648) - JVS(46619) = -B(6135) -! JVS(46620) = Jac_FULL(5252,3650) - JVS(46620) = -B(6523) -! JVS(46621) = Jac_FULL(5252,3658) - JVS(46621) = -B(3039)-B(3041) -! JVS(46622) = Jac_FULL(5252,3659) - JVS(46622) = -B(6515) -! JVS(46623) = Jac_FULL(5252,3663) - JVS(46623) = -B(5949) -! JVS(46624) = Jac_FULL(5252,3665) - JVS(46624) = -B(6248) -! JVS(46625) = Jac_FULL(5252,3667) - JVS(46625) = -B(8226)-B(8228) -! JVS(46626) = Jac_FULL(5252,3668) - JVS(46626) = -B(19082)-B(19084) -! JVS(46627) = Jac_FULL(5252,3669) - JVS(46627) = -B(12348) -! JVS(46628) = Jac_FULL(5252,3670) - JVS(46628) = -B(3057)-B(3059) -! JVS(46629) = Jac_FULL(5252,3671) - JVS(46629) = -B(2323) -! JVS(46630) = Jac_FULL(5252,3674) - JVS(46630) = -B(8279) -! JVS(46631) = Jac_FULL(5252,3675) - JVS(46631) = -B(15864) -! JVS(46632) = Jac_FULL(5252,3676) - JVS(46632) = -B(10733)-B(10735) -! JVS(46633) = Jac_FULL(5252,3677) - JVS(46633) = -B(12655) -! JVS(46634) = Jac_FULL(5252,3678) - JVS(46634) = -B(8391) -! JVS(46635) = Jac_FULL(5252,3679) - JVS(46635) = -B(15754) -! JVS(46636) = Jac_FULL(5252,3680) - JVS(46636) = -B(16323) -! JVS(46637) = Jac_FULL(5252,3685) - JVS(46637) = -B(15510) -! JVS(46638) = Jac_FULL(5252,3686) - JVS(46638) = -B(20963)-B(20965) -! JVS(46639) = Jac_FULL(5252,3687) - JVS(46639) = -B(13397) -! JVS(46640) = Jac_FULL(5252,3688) - JVS(46640) = -B(8315)-B(8317) -! JVS(46641) = Jac_FULL(5252,3690) - JVS(46641) = -B(8380)-B(8382) -! JVS(46642) = Jac_FULL(5252,3691) - JVS(46642) = -B(8398)-B(8400) -! JVS(46643) = Jac_FULL(5252,3692) - JVS(46643) = -B(12479) -! JVS(46644) = Jac_FULL(5252,3694) - JVS(46644) = -B(22325) -! JVS(46645) = Jac_FULL(5252,3695) - JVS(46645) = -B(12669) -! JVS(46646) = Jac_FULL(5252,3696) - JVS(46646) = -B(12928) -! JVS(46647) = Jac_FULL(5252,3697) - JVS(46647) = -B(15671) -! JVS(46648) = Jac_FULL(5252,3698) - JVS(46648) = -B(22626)-B(22628) -! JVS(46649) = Jac_FULL(5252,3699) - JVS(46649) = -B(15517) -! JVS(46650) = Jac_FULL(5252,3703) - JVS(46650) = -B(20909)-B(20911) -! JVS(46651) = Jac_FULL(5252,3704) - JVS(46651) = -B(8409) -! JVS(46652) = Jac_FULL(5252,3705) - JVS(46652) = -B(12647) -! JVS(46653) = Jac_FULL(5252,3706) - JVS(46653) = -B(19215) -! JVS(46654) = Jac_FULL(5252,3710) - JVS(46654) = -B(19153) -! JVS(46655) = Jac_FULL(5252,3711) - JVS(46655) = -B(15960) -! JVS(46656) = Jac_FULL(5252,3713) - JVS(46656) = -B(12814) -! JVS(46657) = Jac_FULL(5252,3714) - JVS(46657) = -B(15761) -! JVS(46658) = Jac_FULL(5252,3715) - JVS(46658) = -B(22429)-B(22431) -! JVS(46659) = Jac_FULL(5252,3717) - JVS(46659) = -B(16865) -! JVS(46660) = Jac_FULL(5252,3718) - JVS(46660) = -B(8042)-B(8044) -! JVS(46661) = Jac_FULL(5252,3719) - JVS(46661) = -B(22822) -! JVS(46662) = Jac_FULL(5252,3720) - JVS(46662) = -B(14352)-B(14354) -! JVS(46663) = Jac_FULL(5252,3721) - JVS(46663) = -B(2332)-B(2334) -! JVS(46664) = Jac_FULL(5252,3722) - JVS(46664) = -B(22084)-B(22086) -! JVS(46665) = Jac_FULL(5252,3724) - JVS(46665) = -B(23775) -! JVS(46666) = Jac_FULL(5252,3725) - JVS(46666) = -B(13115) -! JVS(46667) = Jac_FULL(5252,3727) - JVS(46667) = -B(12830) -! JVS(46668) = Jac_FULL(5252,3728) - JVS(46668) = -B(12339) -! JVS(46669) = Jac_FULL(5252,3730) - JVS(46669) = -B(8308) -! JVS(46670) = Jac_FULL(5252,3731) - JVS(46670) = -B(8362)-B(8364) -! JVS(46671) = Jac_FULL(5252,3733) - JVS(46671) = -B(7344)-B(7346) -! JVS(46672) = Jac_FULL(5252,3738) - JVS(46672) = -B(16055) -! JVS(46673) = Jac_FULL(5252,3739) - JVS(46673) = -B(12631) -! JVS(46674) = Jac_FULL(5252,3740) - JVS(46674) = -B(15501) -! JVS(46675) = Jac_FULL(5252,3741) - JVS(46675) = -B(14291) -! JVS(46676) = Jac_FULL(5252,3743) - JVS(46676) = -B(23031)-B(23033) -! JVS(46677) = Jac_FULL(5252,3745) - JVS(46677) = -B(11041) -! JVS(46678) = Jac_FULL(5252,3746) - JVS(46678) = -B(20167) -! JVS(46679) = Jac_FULL(5252,3749) - JVS(46679) = -B(8326)-B(8328) -! JVS(46680) = Jac_FULL(5252,3750) - JVS(46680) = -B(22453)-B(22455) -! JVS(46681) = Jac_FULL(5252,3751) - JVS(46681) = -B(8344)-B(8346) -! JVS(46682) = Jac_FULL(5252,3752) - JVS(46682) = -B(12488) -! JVS(46683) = Jac_FULL(5252,3753) - JVS(46683) = -B(16385) -! JVS(46684) = Jac_FULL(5252,3758) - JVS(46684) = -B(7858)-B(7860) -! JVS(46685) = Jac_FULL(5252,3760) - JVS(46685) = -B(20655) -! JVS(46686) = Jac_FULL(5252,3761) - JVS(46686) = -B(19112) -! JVS(46687) = Jac_FULL(5252,3762) - JVS(46687) = -B(13022) -! JVS(46688) = Jac_FULL(5252,3764) - JVS(46688) = -B(21017)-B(21019) -! JVS(46689) = Jac_FULL(5252,3766) - JVS(46689) = -B(8373) -! JVS(46690) = Jac_FULL(5252,3768) - JVS(46690) = -B(8355) -! JVS(46691) = Jac_FULL(5252,3769) - JVS(46691) = -B(15821) -! JVS(46692) = Jac_FULL(5252,3770) - JVS(46692) = -B(16286) -! JVS(46693) = Jac_FULL(5252,3771) - JVS(46693) = -B(16234) -! JVS(46694) = Jac_FULL(5252,3772) - JVS(46694) = -B(12912) -! JVS(46695) = Jac_FULL(5252,3774) - JVS(46695) = -B(13006) -! JVS(46696) = Jac_FULL(5252,3776) - JVS(46696) = -B(2375)-B(2377) -! JVS(46697) = Jac_FULL(5252,3778) - JVS(46697) = -B(8116)-B(8118) -! JVS(46698) = Jac_FULL(5252,3781) - JVS(46698) = -B(8337) -! JVS(46699) = Jac_FULL(5252,3782) - JVS(46699) = -B(16330) -! JVS(46700) = Jac_FULL(5252,3784) - JVS(46700) = -B(11551) -! JVS(46701) = Jac_FULL(5252,3785) - JVS(46701) = -B(8262) -! JVS(46702) = Jac_FULL(5252,3786) - JVS(46702) = -B(5288) -! JVS(46703) = Jac_FULL(5252,3788) - JVS(46703) = -B(13413) -! JVS(46704) = Jac_FULL(5252,3789) - JVS(46704) = -B(20998)-B(21000) -! JVS(46705) = Jac_FULL(5252,3790) - JVS(46705) = -B(2951)-B(2953) -! JVS(46706) = Jac_FULL(5252,3791) - JVS(46706) = -B(6336) -! JVS(46707) = Jac_FULL(5252,3794) - JVS(46707) = -B(2659)-B(2661) -! JVS(46708) = Jac_FULL(5252,3796) - JVS(46708) = -B(5563) -! JVS(46709) = Jac_FULL(5252,3797) - JVS(46709) = -B(2803)-B(2805) -! JVS(46710) = Jac_FULL(5252,3798) - JVS(46710) = -B(2846)-B(2848) -! JVS(46711) = Jac_FULL(5252,3799) - JVS(46711) = -B(5767) -! JVS(46712) = Jac_FULL(5252,3801) - JVS(46712) = -B(13757)-B(13759) -! JVS(46713) = Jac_FULL(5252,3803) - JVS(46713) = -B(2703)-B(2705) -! JVS(46714) = Jac_FULL(5252,3804) - JVS(46714) = -B(2616)-B(2618) -! JVS(46715) = Jac_FULL(5252,3806) - JVS(46715) = -B(3469) -! JVS(46716) = Jac_FULL(5252,3807) - JVS(46716) = -B(2593)-B(2595) -! JVS(46717) = Jac_FULL(5252,3808) - JVS(46717) = -B(5636) -! JVS(46718) = Jac_FULL(5252,3810) - JVS(46718) = -B(10205) -! JVS(46719) = Jac_FULL(5252,3811) - JVS(46719) = -B(2572)-B(2574) -! JVS(46720) = Jac_FULL(5252,3813) - JVS(46720) = -B(5688) -! JVS(46721) = Jac_FULL(5252,3814) - JVS(46721) = -B(9900) -! JVS(46722) = Jac_FULL(5252,3815) - JVS(46722) = -B(5867) -! JVS(46723) = Jac_FULL(5252,3817) - JVS(46723) = -B(2922)-B(2924) -! JVS(46724) = Jac_FULL(5252,3819) - JVS(46724) = -B(2911)-B(2913) -! JVS(46725) = Jac_FULL(5252,3820) - JVS(46725) = -B(5452) -! JVS(46726) = Jac_FULL(5252,3823) - JVS(46726) = -B(2398)-B(2400) -! JVS(46727) = Jac_FULL(5252,3825) - JVS(46727) = -B(6395) -! JVS(46728) = Jac_FULL(5252,3827) - JVS(46728) = -B(5313) -! JVS(46729) = Jac_FULL(5252,3828) - JVS(46729) = -B(6038) -! JVS(46730) = Jac_FULL(5252,3836) - JVS(46730) = -B(3387)-B(3389) -! JVS(46731) = Jac_FULL(5252,3837) - JVS(46731) = -B(18945) -! JVS(46732) = Jac_FULL(5252,3838) - JVS(46732) = -B(21720) -! JVS(46733) = Jac_FULL(5252,3839) - JVS(46733) = -B(19356) -! JVS(46734) = Jac_FULL(5252,3840) - JVS(46734) = -B(17064) -! JVS(46735) = Jac_FULL(5252,3841) - JVS(46735) = -B(23170)-B(23172) -! JVS(46736) = Jac_FULL(5252,3844) - JVS(46736) = -B(14785) -! JVS(46737) = Jac_FULL(5252,3845) - JVS(46737) = -B(20801)-B(20803) -! JVS(46738) = Jac_FULL(5252,3846) - JVS(46738) = -B(22847) -! JVS(46739) = Jac_FULL(5252,3847) - JVS(46739) = -B(1381)-B(1383) -! JVS(46740) = Jac_FULL(5252,3848) - JVS(46740) = -B(23381)-B(23383) -! JVS(46741) = Jac_FULL(5252,3850) - JVS(46741) = -B(14419)-B(14421) -! JVS(46742) = Jac_FULL(5252,3852) - JVS(46742) = -B(7333)-B(7335) -! JVS(46743) = Jac_FULL(5252,3853) - JVS(46743) = -B(13389) -! JVS(46744) = Jac_FULL(5252,3854) - JVS(46744) = -B(8179)-B(8181) -! JVS(46745) = Jac_FULL(5252,3855) - JVS(46745) = -B(23479)-B(23481) -! JVS(46746) = Jac_FULL(5252,3858) - JVS(46746) = -B(20675)-B(20677) -! JVS(46747) = Jac_FULL(5252,3859) - JVS(46747) = -B(8201)-B(8203) -! JVS(46748) = Jac_FULL(5252,3860) - JVS(46748) = -B(12855) -! JVS(46749) = Jac_FULL(5252,3863) - JVS(46749) = -B(3535)-B(3537) -! JVS(46750) = Jac_FULL(5252,3864) - JVS(46750) = -B(18922) -! JVS(46751) = Jac_FULL(5252,3865) - JVS(46751) = -B(6885) -! JVS(46752) = Jac_FULL(5252,3866) - JVS(46752) = -B(2991) -! JVS(46753) = Jac_FULL(5252,3867) - JVS(46753) = -B(3545)-B(3547) -! JVS(46754) = Jac_FULL(5252,3869) - JVS(46754) = -B(8086)-B(8088) -! JVS(46755) = Jac_FULL(5252,3870) - JVS(46755) = -B(8020)-B(8022) -! JVS(46756) = Jac_FULL(5252,3871) - JVS(46756) = -B(15247) -! JVS(46757) = Jac_FULL(5252,3872) - JVS(46757) = -B(14522)-B(14524) -! JVS(46758) = Jac_FULL(5252,3873) - JVS(46758) = -B(8149)-B(8151) -! JVS(46759) = Jac_FULL(5252,3874) - JVS(46759) = -B(23768) -! JVS(46760) = Jac_FULL(5252,3876) - JVS(46760) = -B(14403) -! JVS(46761) = Jac_FULL(5252,3880) - JVS(46761) = -B(15398) -! JVS(46762) = Jac_FULL(5252,3881) - JVS(46762) = -B(15314) -! JVS(46763) = Jac_FULL(5252,3882) - JVS(46763) = -B(23868)-B(23870) -! JVS(46764) = Jac_FULL(5252,3883) - JVS(46764) = -B(11300)-B(11302) -! JVS(46765) = Jac_FULL(5252,3884) - JVS(46765) = -B(1425)-B(1427) -! JVS(46766) = Jac_FULL(5252,3885) - JVS(46766) = -B(7998)-B(8000) -! JVS(46767) = Jac_FULL(5252,3886) - JVS(46767) = -B(14746)-B(14748) -! JVS(46768) = Jac_FULL(5252,3888) - JVS(46768) = -B(8563) -! JVS(46769) = Jac_FULL(5252,3889) - JVS(46769) = -B(8171) -! JVS(46770) = Jac_FULL(5252,3890) - JVS(46770) = -B(19468)-B(19470) -! JVS(46771) = Jac_FULL(5252,3891) - JVS(46771) = -B(3566) -! JVS(46772) = Jac_FULL(5252,3893) - JVS(46772) = -B(7987)-B(7989) -! JVS(46773) = Jac_FULL(5252,3894) - JVS(46773) = -B(1848)-B(1850) -! JVS(46774) = Jac_FULL(5252,3895) - JVS(46774) = -B(22548) -! JVS(46775) = Jac_FULL(5252,3898) - JVS(46775) = -B(3622)-B(3624) -! JVS(46776) = Jac_FULL(5252,3899) - JVS(46776) = -B(22174) -! JVS(46777) = Jac_FULL(5252,3901) - JVS(46777) = -B(14721)-B(14723) -! JVS(46778) = Jac_FULL(5252,3902) - JVS(46778) = -B(22749)-B(22751) -! JVS(46779) = Jac_FULL(5252,3903) - JVS(46779) = -B(5274) -! JVS(46780) = Jac_FULL(5252,3905) - JVS(46780) = -B(16882) -! JVS(46781) = Jac_FULL(5252,3907) - JVS(46781) = -B(14490) -! JVS(46782) = Jac_FULL(5252,3908) - JVS(46782) = -B(22585)-B(22587) -! JVS(46783) = Jac_FULL(5252,3912) - JVS(46783) = -B(15202) -! JVS(46784) = Jac_FULL(5252,3916) - JVS(46784) = -B(15370) -! JVS(46785) = Jac_FULL(5252,3919) - JVS(46785) = -B(15342) -! JVS(46786) = Jac_FULL(5252,3920) - JVS(46786) = -B(14820)-B(14822) -! JVS(46787) = Jac_FULL(5252,3921) - JVS(46787) = -B(3430)-B(3432) -! JVS(46788) = Jac_FULL(5252,3926) - JVS(46788) = -B(10889) -! JVS(46789) = Jac_FULL(5252,3927) - JVS(46789) = -B(14532)-B(14534) -! JVS(46790) = Jac_FULL(5252,3928) - JVS(46790) = -B(14731) -! JVS(46791) = Jac_FULL(5252,3932) - JVS(46791) = -B(7976)-B(7978) -! JVS(46792) = Jac_FULL(5252,3936) - JVS(46792) = -B(3440)-B(3442) -! JVS(46793) = Jac_FULL(5252,3937) - JVS(46793) = -B(20160) -! JVS(46794) = Jac_FULL(5252,3939) - JVS(46794) = -B(10446) -! JVS(46795) = Jac_FULL(5252,3940) - JVS(46795) = -B(3523) -! JVS(46796) = Jac_FULL(5252,3941) - JVS(46796) = -B(15209) -! JVS(46797) = Jac_FULL(5252,3943) - JVS(46797) = -B(3409) -! JVS(46798) = Jac_FULL(5252,3944) - JVS(46798) = -B(8097) -! JVS(46799) = Jac_FULL(5252,3945) - JVS(46799) = -B(13105) -! JVS(46800) = Jac_FULL(5252,3948) - JVS(46800) = -B(15130) -! JVS(46801) = Jac_FULL(5252,3949) - JVS(46801) = -B(20867) -! JVS(46802) = Jac_FULL(5252,3950) - JVS(46802) = -B(20876)-B(20878) -! JVS(46803) = Jac_FULL(5252,3951) - JVS(46803) = -B(21111) -! JVS(46804) = Jac_FULL(5252,3952) - JVS(46804) = -B(8416)-B(8418) -! JVS(46805) = Jac_FULL(5252,3953) - JVS(46805) = -B(13047) -! JVS(46806) = Jac_FULL(5252,3954) - JVS(46806) = -B(16858) -! JVS(46807) = Jac_FULL(5252,3955) - JVS(46807) = -B(14246)-B(14248) -! JVS(46808) = Jac_FULL(5252,3961) - JVS(46808) = -B(8053)-B(8055) -! JVS(46809) = Jac_FULL(5252,3962) - JVS(46809) = -B(19331)-B(19333) -! JVS(46810) = Jac_FULL(5252,3963) - JVS(46810) = -B(3611)-B(3613) -! JVS(46811) = Jac_FULL(5252,3964) - JVS(46811) = -B(8534) -! JVS(46812) = Jac_FULL(5252,3966) - JVS(46812) = -B(14830)-B(14832) -! JVS(46813) = Jac_FULL(5252,3967) - JVS(46813) = -B(8064)-B(8066) -! JVS(46814) = Jac_FULL(5252,3969) - JVS(46814) = -B(14510) -! JVS(46815) = Jac_FULL(5252,3971) - JVS(46815) = -B(3601)-B(3603) -! JVS(46816) = Jac_FULL(5252,3973) - JVS(46816) = -B(12953) -! JVS(46817) = Jac_FULL(5252,3974) - JVS(46817) = -B(22557)-B(22559) -! JVS(46818) = Jac_FULL(5252,3975) - JVS(46818) = -B(13097) -! JVS(46819) = Jac_FULL(5252,3976) - JVS(46819) = -B(21662) -! JVS(46820) = Jac_FULL(5252,3977) - JVS(46820) = -B(15293) -! JVS(46821) = Jac_FULL(5252,3979) - JVS(46821) = -B(7739) -! JVS(46822) = Jac_FULL(5252,3980) - JVS(46822) = -B(6856)-B(6858) -! JVS(46823) = Jac_FULL(5252,3981) - JVS(46823) = -B(14376)-B(14378) -! JVS(46824) = Jac_FULL(5252,3982) - JVS(46824) = -B(7355)-B(7357) -! JVS(46825) = Jac_FULL(5252,3983) - JVS(46825) = -B(16062) -! JVS(46826) = Jac_FULL(5252,3984) - JVS(46826) = -B(21678) -! JVS(46827) = Jac_FULL(5252,3985) - JVS(46827) = -B(17078)-B(17080) -! JVS(46828) = Jac_FULL(5252,3987) - JVS(46828) = -B(3002) -! JVS(46829) = Jac_FULL(5252,3988) - JVS(46829) = -B(11277) -! JVS(46830) = Jac_FULL(5252,3989) - JVS(46830) = -B(8127)-B(8129) -! JVS(46831) = Jac_FULL(5252,3990) - JVS(46831) = -B(11335)-B(11337) -! JVS(46832) = Jac_FULL(5252,3992) - JVS(46832) = -B(17441) -! JVS(46833) = Jac_FULL(5252,3994) - JVS(46833) = -B(3556)-B(3558) -! JVS(46834) = Jac_FULL(5252,3997) - JVS(46834) = -B(12987) -! JVS(46835) = Jac_FULL(5252,3998) - JVS(46835) = -B(20438) -! JVS(46836) = Jac_FULL(5252,3999) - JVS(46836) = -B(15946) -! JVS(46837) = Jac_FULL(5252,4000) - JVS(46837) = -B(9719) -! JVS(46838) = Jac_FULL(5252,4001) - JVS(46838) = -B(9233) -! JVS(46839) = Jac_FULL(5252,4002) - JVS(46839) = -B(12762) -! JVS(46840) = Jac_FULL(5252,4003) - JVS(46840) = -B(2473)-B(2475) -! JVS(46841) = Jac_FULL(5252,4005) - JVS(46841) = -B(9176) -! JVS(46842) = Jac_FULL(5252,4006) - JVS(46842) = -B(15657) -! JVS(46843) = Jac_FULL(5252,4007) - JVS(46843) = -B(13201) -! JVS(46844) = Jac_FULL(5252,4008) - JVS(46844) = -B(10033) -! JVS(46845) = Jac_FULL(5252,4009) - JVS(46845) = -B(9746) -! JVS(46846) = Jac_FULL(5252,4011) - JVS(46846) = -B(15747) -! JVS(46847) = Jac_FULL(5252,4012) - JVS(46847) = 0 -! JVS(46848) = Jac_FULL(5252,4013) - JVS(46848) = -B(20056) -! JVS(46849) = Jac_FULL(5252,4015) - JVS(46849) = -B(17434) -! JVS(46850) = Jac_FULL(5252,4016) - JVS(46850) = -B(9394) -! JVS(46851) = Jac_FULL(5252,4019) - JVS(46851) = -B(21912)-B(21914) -! JVS(46852) = Jac_FULL(5252,4020) - JVS(46852) = -B(9270) -! JVS(46853) = Jac_FULL(5252,4021) - JVS(46853) = -B(16048) -! JVS(46854) = Jac_FULL(5252,4022) - JVS(46854) = -B(15530) -! JVS(46855) = Jac_FULL(5252,4023) - JVS(46855) = -B(13076) -! JVS(46856) = Jac_FULL(5252,4025) - JVS(46856) = -B(15814) -! JVS(46857) = Jac_FULL(5252,4026) - JVS(46857) = -B(21375) -! JVS(46858) = Jac_FULL(5252,4028) - JVS(46858) = -B(2430)-B(2432) -! JVS(46859) = Jac_FULL(5252,4030) - JVS(46859) = -B(9373) -! JVS(46860) = Jac_FULL(5252,4031) - JVS(46860) = -B(15935) -! JVS(46861) = Jac_FULL(5252,4033) - JVS(46861) = -B(12603) -! JVS(46862) = Jac_FULL(5252,4034) - JVS(46862) = -B(16141) -! JVS(46863) = Jac_FULL(5252,4035) - JVS(46863) = -B(13326) -! JVS(46864) = Jac_FULL(5252,4036) - JVS(46864) = -B(15850) -! JVS(46865) = Jac_FULL(5252,4037) - JVS(46865) = -B(9631) -! JVS(46866) = Jac_FULL(5252,4038) - JVS(46866) = -B(9034) -! JVS(46867) = Jac_FULL(5252,4039) - JVS(46867) = -B(15807) -! JVS(46868) = Jac_FULL(5252,4040) - JVS(46868) = -B(16272) -! JVS(46869) = Jac_FULL(5252,4041) - JVS(46869) = -B(9813) -! JVS(46870) = Jac_FULL(5252,4042) - JVS(46870) = -B(17448) -! JVS(46871) = Jac_FULL(5252,4043) - JVS(46871) = -B(17312)-B(17314) -! JVS(46872) = Jac_FULL(5252,4044) - JVS(46872) = -B(16220) -! JVS(46873) = Jac_FULL(5252,4045) - JVS(46873) = 0 -! JVS(46874) = Jac_FULL(5252,4046) - JVS(46874) = -B(20078) -! JVS(46875) = Jac_FULL(5252,4049) - JVS(46875) = -B(12436) -! JVS(46876) = Jac_FULL(5252,4050) - JVS(46876) = -B(13439) -! JVS(46877) = Jac_FULL(5252,4051) - JVS(46877) = -B(10216) -! JVS(46878) = Jac_FULL(5252,4052) - JVS(46878) = -B(20299) -! JVS(46879) = Jac_FULL(5252,4054) - JVS(46879) = -B(13298) -! JVS(46880) = Jac_FULL(5252,4055) - JVS(46880) = -B(2774)-B(2776) -! JVS(46881) = Jac_FULL(5252,4057) - JVS(46881) = -B(12795) -! JVS(46882) = Jac_FULL(5252,4058) - JVS(46882) = -B(15152)-B(15154) -! JVS(46883) = Jac_FULL(5252,4059) - JVS(46883) = -B(20886)-B(20888) -! JVS(46884) = Jac_FULL(5252,4060) - JVS(46884) = -B(10722)-B(10724) -! JVS(46885) = Jac_FULL(5252,4061) - JVS(46885) = -B(16316) -! JVS(46886) = Jac_FULL(5252,4063) - JVS(46886) = -B(9501) -! JVS(46887) = Jac_FULL(5252,4064) - JVS(46887) = -B(13357) -! JVS(46888) = Jac_FULL(5252,4065) - JVS(46888) = -B(12889) -! JVS(46889) = Jac_FULL(5252,4067) - JVS(46889) = -B(15470) -! JVS(46890) = Jac_FULL(5252,4068) - JVS(46890) = -B(2637)-B(2639) -! JVS(46891) = Jac_FULL(5252,4069) - JVS(46891) = -B(12960) -! JVS(46892) = Jac_FULL(5252,4070) - JVS(46892) = -B(10132) -! JVS(46893) = Jac_FULL(5252,4072) - JVS(46893) = -B(16371) -! JVS(46894) = Jac_FULL(5252,4073) - JVS(46894) = -B(12715) -! JVS(46895) = Jac_FULL(5252,4074) - JVS(46895) = -B(2814)-B(2816) -! JVS(46896) = Jac_FULL(5252,4075) - JVS(46896) = -B(9135) -! JVS(46897) = Jac_FULL(5252,4076) - JVS(46897) = -B(15857) -! JVS(46898) = Jac_FULL(5252,4077) - JVS(46898) = -B(19186) -! JVS(46899) = Jac_FULL(5252,4078) - JVS(46899) = -B(11166)-B(11168) -! JVS(46900) = Jac_FULL(5252,4079) - JVS(46900) = -B(12407) -! JVS(46901) = Jac_FULL(5252,4082) - JVS(46901) = -B(9974) -! JVS(46902) = Jac_FULL(5252,4085) - JVS(46902) = -B(10113) -! JVS(46903) = Jac_FULL(5252,4087) - JVS(46903) = -B(6876)-B(6878) -! JVS(46904) = Jac_FULL(5252,4088) - JVS(46904) = -B(14756)-B(14758) -! JVS(46905) = Jac_FULL(5252,4089) - JVS(46905) = -B(11104)-B(11106) -! JVS(46906) = Jac_FULL(5252,4090) - JVS(46906) = -B(3513)-B(3515) -! JVS(46907) = Jac_FULL(5252,4091) - JVS(46907) = -B(3451)-B(3453) -! JVS(46908) = Jac_FULL(5252,4092) - JVS(46908) = -B(14317)-B(14319) -! JVS(46909) = Jac_FULL(5252,4095) - JVS(46909) = -B(10896) -! JVS(46910) = Jac_FULL(5252,4097) - JVS(46910) = -B(3461) -! JVS(46911) = Jac_FULL(5252,4098) - JVS(46911) = -B(21967) -! JVS(46912) = Jac_FULL(5252,4099) - JVS(46912) = -B(1891)-B(1893) -! JVS(46913) = Jac_FULL(5252,4100) - JVS(46913) = -B(9166) -! JVS(46914) = Jac_FULL(5252,4101) - JVS(46914) = -B(18257) -! JVS(46915) = Jac_FULL(5252,4102) - JVS(46915) = -B(21392) -! JVS(46916) = Jac_FULL(5252,4105) - JVS(46916) = -B(10991) -! JVS(46917) = Jac_FULL(5252,4106) - JVS(46917) = -B(16782) -! JVS(46918) = Jac_FULL(5252,4111) - JVS(46918) = -B(3068)-B(3070) -! JVS(46919) = Jac_FULL(5252,4112) - JVS(46919) = -B(2064) -! JVS(46920) = Jac_FULL(5252,4115) - JVS(46920) = -B(23713) -! JVS(46921) = Jac_FULL(5252,4116) - JVS(46921) = -B(23826) -! JVS(46922) = Jac_FULL(5252,4117) - JVS(46922) = -B(23368) -! JVS(46923) = Jac_FULL(5252,4118) - JVS(46923) = -B(10950) -! JVS(46924) = Jac_FULL(5252,4119) - JVS(46924) = -B(19143)-B(19145) -! JVS(46925) = Jac_FULL(5252,4120) - JVS(46925) = -B(23410) -! JVS(46926) = Jac_FULL(5252,4121) - JVS(46926) = -B(1805)-B(1807) -! JVS(46927) = Jac_FULL(5252,4123) - JVS(46927) = -B(20502) -! JVS(46928) = Jac_FULL(5252,4124) - JVS(46928) = -B(14226)-B(14228) -! JVS(46929) = Jac_FULL(5252,4126) - JVS(46929) = -B(10866) -! JVS(46930) = Jac_FULL(5252,4127) - JVS(46930) = -B(10755)-B(10757) -! JVS(46931) = Jac_FULL(5252,4128) - JVS(46931) = -B(15070)-B(15072) -! JVS(46932) = Jac_FULL(5252,4129) - JVS(46932) = -B(18744) -! JVS(46933) = Jac_FULL(5252,4130) - JVS(46933) = -B(22678) -! JVS(46934) = Jac_FULL(5252,4131) - JVS(46934) = -B(22403) -! JVS(46935) = Jac_FULL(5252,4133) - JVS(46935) = -B(2731)-B(2733) -! JVS(46936) = Jac_FULL(5252,4134) - JVS(46936) = -B(16452) -! JVS(46937) = Jac_FULL(5252,4135) - JVS(46937) = -B(17156) -! JVS(46938) = Jac_FULL(5252,4136) - JVS(46938) = -B(23704) -! JVS(46939) = Jac_FULL(5252,4137) - JVS(46939) = -B(23204)-B(23206) -! JVS(46940) = Jac_FULL(5252,4138) - JVS(46940) = -B(21176) -! JVS(46941) = Jac_FULL(5252,4139) - JVS(46941) = -B(9709) -! JVS(46942) = Jac_FULL(5252,4140) - JVS(46942) = -B(2223) -! JVS(46943) = Jac_FULL(5252,4141) - JVS(46943) = -B(12997) -! JVS(46944) = Jac_FULL(5252,4142) - JVS(46944) = -B(21820) -! JVS(46945) = Jac_FULL(5252,4143) - JVS(46945) = -B(2171) -! JVS(46946) = Jac_FULL(5252,4144) - JVS(46946) = -B(7424) -! JVS(46947) = Jac_FULL(5252,4145) - JVS(46947) = -B(17147) -! JVS(46948) = Jac_FULL(5252,4146) - JVS(46948) = -B(3502)-B(3504) -! JVS(46949) = Jac_FULL(5252,4147) - JVS(46949) = -B(22738) -! JVS(46950) = Jac_FULL(5252,4148) - JVS(46950) = -B(7415) -! JVS(46951) = Jac_FULL(5252,4149) - JVS(46951) = -B(16261) -! JVS(46952) = Jac_FULL(5252,4150) - JVS(46952) = -B(20816) -! JVS(46953) = Jac_FULL(5252,4152) - JVS(46953) = 0 -! JVS(46954) = Jac_FULL(5252,4153) - JVS(46954) = -B(16279) -! JVS(46955) = Jac_FULL(5252,4154) - JVS(46955) = -B(20228) -! JVS(46956) = Jac_FULL(5252,4157) - JVS(46956) = -B(23255)-B(23257) -! JVS(46957) = Jac_FULL(5252,4158) - JVS(46957) = -B(11014) -! JVS(46958) = Jac_FULL(5252,4159) - JVS(46958) = -B(10366)-B(10368) -! JVS(46959) = Jac_FULL(5252,4161) - JVS(46959) = -B(1183)-B(1185) -! JVS(46960) = Jac_FULL(5252,4162) - JVS(46960) = -B(22690)-B(22692) -! JVS(46961) = Jac_FULL(5252,4163) - JVS(46961) = -B(15494) -! JVS(46962) = Jac_FULL(5252,4165) - JVS(46962) = -B(12903) -! JVS(46963) = Jac_FULL(5252,4166) - JVS(46963) = -B(19162)-B(19164) -! JVS(46964) = Jac_FULL(5252,4167) - JVS(46964) = -B(2970)-B(2972) -! JVS(46965) = Jac_FULL(5252,4168) - JVS(46965) = -B(10241) -! JVS(46966) = Jac_FULL(5252,4169) - JVS(46966) = -B(10857) -! JVS(46967) = Jac_FULL(5252,4170) - JVS(46967) = -B(10984) -! JVS(46968) = Jac_FULL(5252,4171) - JVS(46968) = -B(1988) -! JVS(46969) = Jac_FULL(5252,4172) - JVS(46969) = -B(22101)-B(22103) -! JVS(46970) = Jac_FULL(5252,4173) - JVS(46970) = -B(14342)-B(14344) -! JVS(46971) = Jac_FULL(5252,4176) - JVS(46971) = -B(17332) -! JVS(46972) = Jac_FULL(5252,4180) - JVS(46972) = -B(16541) -! JVS(46973) = Jac_FULL(5252,4181) - JVS(46973) = -B(9803) -! JVS(46974) = Jac_FULL(5252,4182) - JVS(46974) = -B(18567) -! JVS(46975) = Jac_FULL(5252,4185) - JVS(46975) = -B(3492)-B(3494) -! JVS(46976) = Jac_FULL(5252,4187) - JVS(46976) = -B(9256) -! JVS(46977) = Jac_FULL(5252,4188) - JVS(46977) = -B(18150) -! JVS(46978) = Jac_FULL(5252,4189) - JVS(46978) = -B(19068)-B(19070) -! JVS(46979) = Jac_FULL(5252,4190) - JVS(46979) = 0 -! JVS(46980) = Jac_FULL(5252,4191) - JVS(46980) = -B(20585) -! JVS(46981) = Jac_FULL(5252,4192) - JVS(46981) = -B(16242) -! JVS(46982) = Jac_FULL(5252,4193) - JVS(46982) = -B(16155) -! JVS(46983) = Jac_FULL(5252,4194) - JVS(46983) = -B(18433) -! JVS(46984) = Jac_FULL(5252,4195) - JVS(46984) = -B(15477) -! JVS(46985) = Jac_FULL(5252,4196) - JVS(46985) = -B(23154)-B(23156) -! JVS(46986) = Jac_FULL(5252,4197) - JVS(46986) = -B(17088)-B(17090) -! JVS(46987) = Jac_FULL(5252,4198) - JVS(46987) = -B(9922) -! JVS(46988) = Jac_FULL(5252,4200) - JVS(46988) = -B(15776) -! JVS(46989) = Jac_FULL(5252,4201) - JVS(46989) = -B(7257) -! JVS(46990) = Jac_FULL(5252,4202) - JVS(46990) = -B(19969) -! JVS(46991) = Jac_FULL(5252,4203) - JVS(46991) = -B(21489) -! JVS(46992) = Jac_FULL(5252,4204) - JVS(46992) = -B(18272) -! JVS(46993) = Jac_FULL(5252,4205) - JVS(46993) = -B(18366) -! JVS(46994) = Jac_FULL(5252,4206) - JVS(46994) = -B(7693) -! JVS(46995) = Jac_FULL(5252,4207) - JVS(46995) = -B(22144) -! JVS(46996) = Jac_FULL(5252,4208) - JVS(46996) = -B(16492) -! JVS(46997) = Jac_FULL(5252,4209) - JVS(46997) = -B(16466) -! JVS(46998) = Jac_FULL(5252,4210) - JVS(46998) = -B(16295) -! JVS(46999) = Jac_FULL(5252,4211) - JVS(46999) = -B(16754) -! JVS(47000) = Jac_FULL(5252,4212) - JVS(47000) = -B(16148) -! JVS(47001) = Jac_FULL(5252,4213) - JVS(47001) = -B(13627) -! JVS(47002) = Jac_FULL(5252,4214) - JVS(47002) = -B(22256) -! JVS(47003) = Jac_FULL(5252,4215) - JVS(47003) = -B(8589) -! JVS(47004) = Jac_FULL(5252,4216) - JVS(47004) = -B(23431)-B(23433) -! JVS(47005) = Jac_FULL(5252,4217) - JVS(47005) = -B(15544) -! JVS(47006) = Jac_FULL(5252,4218) - JVS(47006) = -B(20143) -! JVS(47007) = Jac_FULL(5252,4219) - JVS(47007) = -B(10772)-B(10774) -! JVS(47008) = Jac_FULL(5252,4220) - JVS(47008) = -B(23546) -! JVS(47009) = Jac_FULL(5252,4221) - JVS(47009) = -B(19911) -! JVS(47010) = Jac_FULL(5252,4222) - JVS(47010) = -B(20558) -! JVS(47011) = Jac_FULL(5252,4225) - JVS(47011) = -B(15836) -! JVS(47012) = Jac_FULL(5252,4226) - JVS(47012) = -B(23686) -! JVS(47013) = Jac_FULL(5252,4228) - JVS(47013) = -B(18821) -! JVS(47014) = Jac_FULL(5252,4229) - JVS(47014) = -B(18810) -! JVS(47015) = Jac_FULL(5252,4230) - JVS(47015) = -B(20576) -! JVS(47016) = Jac_FULL(5252,4232) - JVS(47016) = -B(18657) -! JVS(47017) = Jac_FULL(5252,4234) - JVS(47017) = -B(23466) -! JVS(47018) = Jac_FULL(5252,4235) - JVS(47018) = -B(19689) -! JVS(47019) = Jac_FULL(5252,4236) - JVS(47019) = -B(19294) -! JVS(47020) = Jac_FULL(5252,4237) - JVS(47020) = -B(15969) -! JVS(47021) = Jac_FULL(5252,4238) - JVS(47021) = -B(15377) -! JVS(47022) = Jac_FULL(5252,4240) - JVS(47022) = -B(7365) -! JVS(47023) = Jac_FULL(5252,4241) - JVS(47023) = -B(19958) -! JVS(47024) = Jac_FULL(5252,4242) - JVS(47024) = -B(21929) -! JVS(47025) = Jac_FULL(5252,4243) - JVS(47025) = -B(14843) -! JVS(47026) = Jac_FULL(5252,4244) - JVS(47026) = -B(11544) -! JVS(47027) = Jac_FULL(5252,4245) - JVS(47027) = -B(18622) -! JVS(47028) = Jac_FULL(5252,4246) - JVS(47028) = -B(15873) -! JVS(47029) = Jac_FULL(5252,4247) - JVS(47029) = -B(16654) -! JVS(47030) = Jac_FULL(5252,4249) - JVS(47030) = -B(11371)-B(11373) -! JVS(47031) = Jac_FULL(5252,4250) - JVS(47031) = -B(20534) -! JVS(47032) = Jac_FULL(5252,4251) - JVS(47032) = -B(15254)-B(15256) -! JVS(47033) = Jac_FULL(5252,4252) - JVS(47033) = -B(16345) -! JVS(47034) = Jac_FULL(5252,4253) - JVS(47034) = -B(20030) -! JVS(47035) = Jac_FULL(5252,4254) - JVS(47035) = -B(15349) -! JVS(47036) = Jac_FULL(5252,4255) - JVS(47036) = -B(6867) -! JVS(47037) = Jac_FULL(5252,4257) - JVS(47037) = -B(14310) -! JVS(47038) = Jac_FULL(5252,4258) - JVS(47038) = -B(17323) -! JVS(47039) = Jac_FULL(5252,4259) - JVS(47039) = -B(10403) -! JVS(47040) = Jac_FULL(5252,4260) - JVS(47040) = -B(14854) -! JVS(47041) = Jac_FULL(5252,4262) - JVS(47041) = -B(18307) -! JVS(47042) = Jac_FULL(5252,4263) - JVS(47042) = -B(14903) -! JVS(47043) = Jac_FULL(5252,4264) - JVS(47043) = -B(14555) -! JVS(47044) = Jac_FULL(5252,4265) - JVS(47044) = -B(15537) -! JVS(47045) = Jac_FULL(5252,4266) - JVS(47045) = -B(11117) -! JVS(47046) = Jac_FULL(5252,4267) - JVS(47046) = -B(21286) -! JVS(47047) = Jac_FULL(5252,4268) - JVS(47047) = -B(20691) -! JVS(47048) = Jac_FULL(5252,4269) - JVS(47048) = -B(10654) -! JVS(47049) = Jac_FULL(5252,4270) - JVS(47049) = -B(15321) -! JVS(47050) = Jac_FULL(5252,4271) - JVS(47050) = -B(18064) -! JVS(47051) = Jac_FULL(5252,4273) - JVS(47051) = -B(15484) -! JVS(47052) = Jac_FULL(5252,4274) - JVS(47052) = -B(21169) -! JVS(47053) = Jac_FULL(5252,4275) - JVS(47053) = -B(8468) -! JVS(47054) = Jac_FULL(5252,4276) - JVS(47054) = -B(18539) -! JVS(47055) = Jac_FULL(5252,4277) - JVS(47055) = -B(10273) -! JVS(47056) = Jac_FULL(5252,4280) - JVS(47056) = -B(15976) -! JVS(47057) = Jac_FULL(5252,4281) - JVS(47057) = -B(8525) -! JVS(47058) = Jac_FULL(5252,4282) - JVS(47058) = -B(13593) -! JVS(47059) = Jac_FULL(5252,4283) - JVS(47059) = -B(8639) -! JVS(47060) = Jac_FULL(5252,4284) - JVS(47060) = -B(15418) -! JVS(47061) = Jac_FULL(5252,4285) - JVS(47061) = -B(18504) -! JVS(47062) = Jac_FULL(5252,4286) - JVS(47062) = -B(6757) -! JVS(47063) = Jac_FULL(5252,4287) - JVS(47063) = -B(16400) -! JVS(47064) = Jac_FULL(5252,4288) - JVS(47064) = -B(14301) -! JVS(47065) = Jac_FULL(5252,4289) - JVS(47065) = -B(18585) -! JVS(47066) = Jac_FULL(5252,4290) - JVS(47066) = -B(19129) -! JVS(47067) = Jac_FULL(5252,4291) - JVS(47067) = -B(15687) -! JVS(47068) = Jac_FULL(5252,4292) - JVS(47068) = -B(15829) -! JVS(47069) = Jac_FULL(5252,4293) - JVS(47069) = -B(15680) -! JVS(47070) = Jac_FULL(5252,4295) - JVS(47070) = -B(22347) -! JVS(47071) = Jac_FULL(5252,4296) - JVS(47071) = -B(16078) -! JVS(47072) = Jac_FULL(5252,4297) - JVS(47072) = -B(16393) -! JVS(47073) = Jac_FULL(5252,4298) - JVS(47073) = -B(18164) -! JVS(47074) = Jac_FULL(5252,4299) - JVS(47074) = -B(20272) -! JVS(47075) = Jac_FULL(5252,4301) - JVS(47075) = -B(11179) -! JVS(47076) = Jac_FULL(5252,4302) - JVS(47076) = -B(7376) -! JVS(47077) = Jac_FULL(5252,4303) - JVS(47077) = -B(15769) -! JVS(47078) = Jac_FULL(5252,4304) - JVS(47078) = -B(15880) -! JVS(47079) = Jac_FULL(5252,4305) - JVS(47079) = -B(18229) -! JVS(47080) = Jac_FULL(5252,4306) - JVS(47080) = -B(18113) -! JVS(47081) = Jac_FULL(5252,4307) - JVS(47081) = -B(16071) -! JVS(47082) = Jac_FULL(5252,4308) - JVS(47082) = -B(19897) -! JVS(47083) = Jac_FULL(5252,4309) - JVS(47083) = -B(17825) -! JVS(47084) = Jac_FULL(5252,4310) - JVS(47084) = -B(1061)-B(1063) -! JVS(47085) = Jac_FULL(5252,4311) - JVS(47085) = -B(6240) -! JVS(47086) = Jac_FULL(5252,4312) - JVS(47086) = -B(16338) -! JVS(47087) = Jac_FULL(5252,4314) - JVS(47087) = -B(16302) -! JVS(47088) = Jac_FULL(5252,4315) - JVS(47088) = -B(22576) -! JVS(47089) = Jac_FULL(5252,4316) - JVS(47089) = -B(7765) -! JVS(47090) = Jac_FULL(5252,4317) - JVS(47090) = -B(16249) -! JVS(47091) = Jac_FULL(5252,4318) - JVS(47091) = -B(10977) -! JVS(47092) = Jac_FULL(5252,4319) - JVS(47092) = -B(22654)-B(22656) -! JVS(47093) = Jac_FULL(5252,4320) - JVS(47093) = -B(5022) -! JVS(47094) = Jac_FULL(5252,4321) - JVS(47094) = -B(13647)-B(13649) -! JVS(47095) = Jac_FULL(5252,4322) - JVS(47095) = 0 -! JVS(47096) = Jac_FULL(5252,4323) - JVS(47096) = -B(16227) -! JVS(47097) = Jac_FULL(5252,4324) - JVS(47097) = -B(20202) -! JVS(47098) = Jac_FULL(5252,4326) - JVS(47098) = 0 -! JVS(47099) = Jac_FULL(5252,4327) - JVS(47099) = -B(15664) -! JVS(47100) = Jac_FULL(5252,4329) - JVS(47100) = -B(21327) -! JVS(47101) = Jac_FULL(5252,4334) - JVS(47101) = -B(8160)-B(8162) -! JVS(47102) = Jac_FULL(5252,4335) - JVS(47102) = -B(6564)-B(6566) -! JVS(47103) = Jac_FULL(5252,4336) - JVS(47103) = -B(3348) -! JVS(47104) = Jac_FULL(5252,4337) - JVS(47104) = -B(6847) -! JVS(47105) = Jac_FULL(5252,4338) - JVS(47105) = -B(9024) -! JVS(47106) = Jac_FULL(5252,4339) - JVS(47106) = -B(13788) -! JVS(47107) = Jac_FULL(5252,4340) - JVS(47107) = -B(21688) -! JVS(47108) = Jac_FULL(5252,4341) - JVS(47108) = -B(10392) -! JVS(47109) = Jac_FULL(5252,4342) - JVS(47109) = -B(23396)-B(23398) -! JVS(47110) = Jac_FULL(5252,4343) - JVS(47110) = -B(23849) -! JVS(47111) = Jac_FULL(5252,4344) - JVS(47111) = -B(8541) -! JVS(47112) = Jac_FULL(5252,4345) - JVS(47112) = -B(8598) -! JVS(47113) = Jac_FULL(5252,4346) - JVS(47113) = -B(23584) -! JVS(47114) = Jac_FULL(5252,4347) - JVS(47114) = -B(12533) -! JVS(47115) = Jac_FULL(5252,4348) - JVS(47115) = -B(16789)-B(16791) -! JVS(47116) = Jac_FULL(5252,4349) - JVS(47116) = -B(17909) -! JVS(47117) = Jac_FULL(5252,4350) - JVS(47117) = -B(21797) -! JVS(47118) = Jac_FULL(5252,4351) - JVS(47118) = -B(2000) -! JVS(47119) = Jac_FULL(5252,4353) - JVS(47119) = -B(1590) -! JVS(47120) = Jac_FULL(5252,4354) - JVS(47120) = -B(11535) -! JVS(47121) = Jac_FULL(5252,4355) - JVS(47121) = -B(18013) -! JVS(47122) = Jac_FULL(5252,4356) - JVS(47122) = -B(3357)-B(3359) -! JVS(47123) = Jac_FULL(5252,4357) - JVS(47123) = -B(15111)-B(15113) -! JVS(47124) = Jac_FULL(5252,4358) - JVS(47124) = -B(8743) -! JVS(47125) = Jac_FULL(5252,4359) - JVS(47125) = -B(7702)-B(7704) -! JVS(47126) = Jac_FULL(5252,4360) - JVS(47126) = -B(15405)-B(15407) -! JVS(47127) = Jac_FULL(5252,4361) - JVS(47127) = -B(17969) -! JVS(47128) = Jac_FULL(5252,4363) - JVS(47128) = -B(19520)-B(19522) -! JVS(47129) = Jac_FULL(5252,4364) - JVS(47129) = -B(1241) -! JVS(47130) = Jac_FULL(5252,4365) - JVS(47130) = -B(10957) -! JVS(47131) = Jac_FULL(5252,4367) - JVS(47131) = -B(3339) -! JVS(47132) = Jac_FULL(5252,4368) - JVS(47132) = -B(10785)-B(10787) -! JVS(47133) = Jac_FULL(5252,4369) - JVS(47133) = -B(17883) -! JVS(47134) = Jac_FULL(5252,4370) - JVS(47134) = -B(2009) -! JVS(47135) = Jac_FULL(5252,4371) - JVS(47135) = -B(21877) -! JVS(47136) = Jac_FULL(5252,4372) - JVS(47136) = -B(3079)-B(3081) -! JVS(47137) = Jac_FULL(5252,4373) - JVS(47137) = 0 -! JVS(47138) = Jac_FULL(5252,4374) - JVS(47138) = -B(7618)-B(7620) -! JVS(47139) = Jac_FULL(5252,4375) - JVS(47139) = -B(9609) -! JVS(47140) = Jac_FULL(5252,4376) - JVS(47140) = -B(9001) -! JVS(47141) = Jac_FULL(5252,4377) - JVS(47141) = -B(5826)-B(5828) -! JVS(47142) = Jac_FULL(5252,4379) - JVS(47142) = 0 -! JVS(47143) = Jac_FULL(5252,4380) - JVS(47143) = -B(3815) -! JVS(47144) = Jac_FULL(5252,4381) - JVS(47144) = -B(15953) -! JVS(47145) = Jac_FULL(5252,4382) - JVS(47145) = -B(1461) -! JVS(47146) = Jac_FULL(5252,4384) - JVS(47146) = -B(21194) -! JVS(47147) = Jac_FULL(5252,4385) - JVS(47147) = -B(21031)-B(21033) -! JVS(47148) = Jac_FULL(5252,4387) - JVS(47148) = -B(2055) -! JVS(47149) = Jac_FULL(5252,4389) - JVS(47149) = -B(17939) -! JVS(47150) = Jac_FULL(5252,4390) - JVS(47150) = -B(3319) -! JVS(47151) = Jac_FULL(5252,4394) - JVS(47151) = -B(14774)-B(14776) -! JVS(47152) = Jac_FULL(5252,4395) - JVS(47152) = 0 -! JVS(47153) = Jac_FULL(5252,4397) - JVS(47153) = 0 -! JVS(47154) = Jac_FULL(5252,4399) - JVS(47154) = -B(2344)-B(2346) -! JVS(47155) = Jac_FULL(5252,4400) - JVS(47155) = -B(6464)-B(6466) -! JVS(47156) = Jac_FULL(5252,4402) - JVS(47156) = 0 -! JVS(47157) = Jac_FULL(5252,4404) - JVS(47157) = -B(20091) -! JVS(47158) = Jac_FULL(5252,4405) - JVS(47158) = -B(8445) -! JVS(47159) = Jac_FULL(5252,4407) - JVS(47159) = 0 -! JVS(47160) = Jac_FULL(5252,4408) - JVS(47160) = 0 -! JVS(47161) = Jac_FULL(5252,4409) - JVS(47161) = -B(22865) -! JVS(47162) = Jac_FULL(5252,4410) - JVS(47162) = -B(21769) -! JVS(47163) = Jac_FULL(5252,4411) - JVS(47163) = -B(1010)-B(1012) -! JVS(47164) = Jac_FULL(5252,4412) - JVS(47164) = -B(14955) -! JVS(47165) = Jac_FULL(5252,4413) - JVS(47165) = 0 -! JVS(47166) = Jac_FULL(5252,4414) - JVS(47166) = -B(10352) -! JVS(47167) = Jac_FULL(5252,4415) - JVS(47167) = -B(18157) -! JVS(47168) = Jac_FULL(5252,4416) - JVS(47168) = -B(13123) -! JVS(47169) = Jac_FULL(5252,4417) - JVS(47169) = -B(19865) -! JVS(47170) = Jac_FULL(5252,4418) - JVS(47170) = -B(21855) -! JVS(47171) = Jac_FULL(5252,4419) - JVS(47171) = -B(19680) -! JVS(47172) = Jac_FULL(5252,4421) - JVS(47172) = -B(21244) -! JVS(47173) = Jac_FULL(5252,4422) - JVS(47173) = -B(12557) -! JVS(47174) = Jac_FULL(5252,4423) - JVS(47174) = -B(22774) -! JVS(47175) = Jac_FULL(5252,4424) - JVS(47175) = -B(18465) -! JVS(47176) = Jac_FULL(5252,4425) - JVS(47176) = -B(18426) -! JVS(47177) = Jac_FULL(5252,4426) - JVS(47177) = -B(22790) -! JVS(47178) = Jac_FULL(5252,4427) - JVS(47178) = -B(8609) -! JVS(47179) = Jac_FULL(5252,4428) - JVS(47179) = -B(1547) -! JVS(47180) = Jac_FULL(5252,4429) - JVS(47180) = -B(21270) -! JVS(47181) = Jac_FULL(5252,4430) - JVS(47181) = -B(19786) -! JVS(47182) = Jac_FULL(5252,4431) - JVS(47182) = -B(19456) -! JVS(47183) = Jac_FULL(5252,4432) - JVS(47183) = -B(5376) -! JVS(47184) = Jac_FULL(5252,4433) - JVS(47184) = -B(8576) -! JVS(47185) = Jac_FULL(5252,4434) - JVS(47185) = -B(18615) -! JVS(47186) = Jac_FULL(5252,4435) - JVS(47186) = -B(21218) -! JVS(47187) = Jac_FULL(5252,4436) - JVS(47187) = -B(10432) -! JVS(47188) = Jac_FULL(5252,4437) - JVS(47188) = 0 -! JVS(47189) = Jac_FULL(5252,4438) - JVS(47189) = 0 -! JVS(47190) = Jac_FULL(5252,4439) - JVS(47190) = -B(21889) -! JVS(47191) = Jac_FULL(5252,4440) - JVS(47191) = -B(12541) -! JVS(47192) = Jac_FULL(5252,4441) - JVS(47192) = -B(20250) -! JVS(47193) = Jac_FULL(5252,4442) - JVS(47193) = -B(22610)-B(22612) -! JVS(47194) = Jac_FULL(5252,4443) - JVS(47194) = -B(19808) -! JVS(47195) = Jac_FULL(5252,4444) - JVS(47195) = 0 -! JVS(47196) = Jac_FULL(5252,4445) - JVS(47196) = -B(21506) -! JVS(47197) = Jac_FULL(5252,4446) - JVS(47197) = -B(10903) -! JVS(47198) = Jac_FULL(5252,4447) - JVS(47198) = -B(22874) -! JVS(47199) = Jac_FULL(5252,4448) - JVS(47199) = 0 -! JVS(47200) = Jac_FULL(5252,4450) - JVS(47200) = -B(19835) -! JVS(47201) = Jac_FULL(5252,4451) - JVS(47201) = -B(11526) -! JVS(47202) = Jac_FULL(5252,4452) - JVS(47202) = -B(8481) -! JVS(47203) = Jac_FULL(5252,4453) - JVS(47203) = 0 -! JVS(47204) = Jac_FULL(5252,4454) - JVS(47204) = 0 -! JVS(47205) = Jac_FULL(5252,4455) - JVS(47205) = -B(18650) -! JVS(47206) = Jac_FULL(5252,4456) - JVS(47206) = -B(23995) -! JVS(47207) = Jac_FULL(5252,4457) - JVS(47207) = 0 -! JVS(47208) = Jac_FULL(5252,4458) - JVS(47208) = -B(18106) -! JVS(47209) = Jac_FULL(5252,4459) - JVS(47209) = -B(23328) -! JVS(47210) = Jac_FULL(5252,4460) - JVS(47210) = -B(18713) -! JVS(47211) = Jac_FULL(5252,4461) - JVS(47211) = -B(21231) -! JVS(47212) = Jac_FULL(5252,4463) - JVS(47212) = -B(18578) -! JVS(47213) = Jac_FULL(5252,4464) - JVS(47213) = -B(18300) -! JVS(47214) = Jac_FULL(5252,4465) - JVS(47214) = -B(23793) -! JVS(47215) = Jac_FULL(5252,4466) - JVS(47215) = 0 -! JVS(47216) = Jac_FULL(5252,4467) - JVS(47216) = -B(18057) -! JVS(47217) = Jac_FULL(5252,4468) - JVS(47217) = -B(21150) -! JVS(47218) = Jac_FULL(5252,4469) - JVS(47218) = -B(8192) -! JVS(47219) = Jac_FULL(5252,4470) - JVS(47219) = -B(8505) -! JVS(47220) = Jac_FULL(5252,4471) - JVS(47220) = 0 -! JVS(47221) = Jac_FULL(5252,4472) - JVS(47221) = -B(19932) -! JVS(47222) = Jac_FULL(5252,4473) - JVS(47222) = -B(1120)-B(1122) -! JVS(47223) = Jac_FULL(5252,4474) - JVS(47223) = 0 -! JVS(47224) = Jac_FULL(5252,4476) - JVS(47224) = -B(2151)-B(2153) -! JVS(47225) = Jac_FULL(5252,4477) - JVS(47225) = -B(23746) -! JVS(47226) = Jac_FULL(5252,4478) - JVS(47226) = 0 -! JVS(47227) = Jac_FULL(5252,4479) - JVS(47227) = 0 -! JVS(47228) = Jac_FULL(5252,4480) - JVS(47228) = -B(13138) -! JVS(47229) = Jac_FULL(5252,4481) - JVS(47229) = -B(13130) -! JVS(47230) = Jac_FULL(5252,4482) - JVS(47230) = -B(22782) -! JVS(47231) = Jac_FULL(5252,4483) - JVS(47231) = -B(5542) -! JVS(47232) = Jac_FULL(5252,4484) - JVS(47232) = -B(19176) -! JVS(47233) = Jac_FULL(5252,4485) - JVS(47233) = -B(21810) -! JVS(47234) = Jac_FULL(5252,4486) - JVS(47234) = -B(22929) -! JVS(47235) = Jac_FULL(5252,4487) - JVS(47235) = 0 -! JVS(47236) = Jac_FULL(5252,4488) - JVS(47236) = 0 -! JVS(47237) = Jac_FULL(5252,4489) - JVS(47237) = -B(21303) -! JVS(47238) = Jac_FULL(5252,4492) - JVS(47238) = 0 -! JVS(47239) = Jac_FULL(5252,4494) - JVS(47239) = 0 -! JVS(47240) = Jac_FULL(5252,4495) - JVS(47240) = 0 -! JVS(47241) = Jac_FULL(5252,4496) - JVS(47241) = -B(22337) -! JVS(47242) = Jac_FULL(5252,4497) - JVS(47242) = -B(23265) -! JVS(47243) = Jac_FULL(5252,4498) - JVS(47243) = -B(18222) -! JVS(47244) = Jac_FULL(5252,4499) - JVS(47244) = 0 -! JVS(47245) = Jac_FULL(5252,4500) - JVS(47245) = -B(15167) -! JVS(47246) = Jac_FULL(5252,4502) - JVS(47246) = -B(18398) -! JVS(47247) = Jac_FULL(5252,4503) - JVS(47247) = -B(24004) -! JVS(47248) = Jac_FULL(5252,4504) - JVS(47248) = 0 -! JVS(47249) = Jac_FULL(5252,4505) - JVS(47249) = 0 -! JVS(47250) = Jac_FULL(5252,4506) - JVS(47250) = -B(18265) -! JVS(47251) = Jac_FULL(5252,4509) - JVS(47251) = 0 -! JVS(47252) = Jac_FULL(5252,4510) - JVS(47252) = -B(21126) -! JVS(47253) = Jac_FULL(5252,4511) - JVS(47253) = -B(18359) -! JVS(47254) = Jac_FULL(5252,4512) - JVS(47254) = 0 -! JVS(47255) = Jac_FULL(5252,4513) - JVS(47255) = -B(5251) -! JVS(47256) = Jac_FULL(5252,4514) - JVS(47256) = 0 -! JVS(47257) = Jac_FULL(5252,4515) - JVS(47257) = -B(8140) -! JVS(47258) = Jac_FULL(5252,4516) - JVS(47258) = -B(10325) -! JVS(47259) = Jac_FULL(5252,4517) - JVS(47259) = -B(15047) -! JVS(47260) = Jac_FULL(5252,4518) - JVS(47260) = -B(18872) -! JVS(47261) = Jac_FULL(5252,4519) - JVS(47261) = -B(20342) -! JVS(47262) = Jac_FULL(5252,4520) - JVS(47262) = -B(23784) -! JVS(47263) = Jac_FULL(5252,4521) - JVS(47263) = -B(19764) -! JVS(47264) = Jac_FULL(5252,4522) - JVS(47264) = -B(8552) -! JVS(47265) = Jac_FULL(5252,4523) - JVS(47265) = -B(15181) -! JVS(47266) = Jac_FULL(5252,4525) - JVS(47266) = -B(23737) -! JVS(47267) = Jac_FULL(5252,4526) - JVS(47267) = -B(14650) -! JVS(47268) = Jac_FULL(5252,4529) - JVS(47268) = -B(2517)-B(2519) -! JVS(47269) = Jac_FULL(5252,4531) - JVS(47269) = 0 -! JVS(47270) = Jac_FULL(5252,4532) - JVS(47270) = -B(21257) -! JVS(47271) = Jac_FULL(5252,4533) - JVS(47271) = 0 -! JVS(47272) = Jac_FULL(5252,4535) - JVS(47272) = -B(16378) -! JVS(47273) = Jac_FULL(5252,4536) - JVS(47273) = -B(20113) -! JVS(47274) = Jac_FULL(5252,4538) - JVS(47274) = -B(20937) -! JVS(47275) = Jac_FULL(5252,4539) - JVS(47275) = -B(18793) -! JVS(47276) = Jac_FULL(5252,4541) - JVS(47276) = -B(11321)-B(11323) -! JVS(47277) = Jac_FULL(5252,4542) - JVS(47277) = -B(14605) -! JVS(47278) = Jac_FULL(5252,4543) - JVS(47278) = -B(24038) -! JVS(47279) = Jac_FULL(5252,4544) - JVS(47279) = -B(4907) -! JVS(47280) = Jac_FULL(5252,4545) - JVS(47280) = -B(17007)-B(17009) -! JVS(47281) = Jac_FULL(5252,4546) - JVS(47281) = -B(17580) -! JVS(47282) = Jac_FULL(5252,4548) - JVS(47282) = -B(18731) -! JVS(47283) = Jac_FULL(5252,4549) - JVS(47283) = -B(19614) -! JVS(47284) = Jac_FULL(5252,4550) - JVS(47284) = -B(12662) -! JVS(47285) = Jac_FULL(5252,4551) - JVS(47285) = -B(16528) -! JVS(47286) = Jac_FULL(5252,4552) - JVS(47286) = -B(16830) -! JVS(47287) = Jac_FULL(5252,4553) - JVS(47287) = -B(7787) -! JVS(47288) = Jac_FULL(5252,4554) - JVS(47288) = -B(1271)-B(1273) -! JVS(47289) = Jac_FULL(5252,4555) - JVS(47289) = 0 -! JVS(47290) = Jac_FULL(5252,4556) - JVS(47290) = -B(13870) -! JVS(47291) = Jac_FULL(5252,4557) - JVS(47291) = -B(7954) -! JVS(47292) = Jac_FULL(5252,4558) - JVS(47292) = -B(12623) -! JVS(47293) = Jac_FULL(5252,4560) - JVS(47293) = -B(21741) -! JVS(47294) = Jac_FULL(5252,4561) - JVS(47294) = -B(14994)-B(14996) -! JVS(47295) = Jac_FULL(5252,4562) - JVS(47295) = -B(1098)-B(1100) -! JVS(47296) = Jac_FULL(5252,4563) - JVS(47296) = -B(7265) -! JVS(47297) = Jac_FULL(5252,4565) - JVS(47297) = -B(20495) -! JVS(47298) = Jac_FULL(5252,4566) - JVS(47298) = -B(17762) -! JVS(47299) = Jac_FULL(5252,4567) - JVS(47299) = -B(14470) -! JVS(47300) = Jac_FULL(5252,4568) - JVS(47300) = -B(6165)-B(6167) -! JVS(47301) = Jac_FULL(5252,4571) - JVS(47301) = -B(1762)-B(1764) -! JVS(47302) = Jac_FULL(5252,4572) - JVS(47302) = -B(23081) -! JVS(47303) = Jac_FULL(5252,4573) - JVS(47303) = -B(17751)-B(17753) -! JVS(47304) = Jac_FULL(5252,4574) - JVS(47304) = -B(2031) -! JVS(47305) = Jac_FULL(5252,4575) - JVS(47305) = -B(6229)-B(6231) -! JVS(47306) = Jac_FULL(5252,4576) - JVS(47306) = 0 -! JVS(47307) = Jac_FULL(5252,4577) - JVS(47307) = -B(8286)-B(8288) -! JVS(47308) = Jac_FULL(5252,4578) - JVS(47308) = -B(10381)-B(10383) -! JVS(47309) = Jac_FULL(5252,4579) - JVS(47309) = -B(2022) -! JVS(47310) = Jac_FULL(5252,4580) - JVS(47310) = -B(19119)-B(19121) -! JVS(47311) = Jac_FULL(5252,4581) - JVS(47311) = -B(3297)-B(3299) -! JVS(47312) = Jac_FULL(5252,4582) - JVS(47312) = -B(2257)-B(2259) -! JVS(47313) = Jac_FULL(5252,4583) - JVS(47313) = -B(3328)-B(3330) -! JVS(47314) = Jac_FULL(5252,4584) - JVS(47314) = -B(17771) -! JVS(47315) = Jac_FULL(5252,4585) - JVS(47315) = -B(1232) -! JVS(47316) = Jac_FULL(5252,4586) - JVS(47316) = -B(1901)-B(1903) -! JVS(47317) = Jac_FULL(5252,4587) - JVS(47317) = -B(2244) -! JVS(47318) = Jac_FULL(5252,4589) - JVS(47318) = -B(10312) -! JVS(47319) = Jac_FULL(5252,4590) - JVS(47319) = -B(8648) -! JVS(47320) = Jac_FULL(5252,4591) - JVS(47320) = -B(8904) -! JVS(47321) = Jac_FULL(5252,4592) - JVS(47321) = -B(8795) -! JVS(47322) = Jac_FULL(5252,4593) - JVS(47322) = -B(2085) -! JVS(47323) = Jac_FULL(5252,4594) - JVS(47323) = -B(3378) -! JVS(47324) = Jac_FULL(5252,4595) - JVS(47324) = -B(10744) -! JVS(47325) = Jac_FULL(5252,4596) - JVS(47325) = -B(1260)-B(1262) -! JVS(47326) = Jac_FULL(5252,4597) - JVS(47326) = -B(21730)-B(21732) -! JVS(47327) = Jac_FULL(5252,4598) - JVS(47327) = -B(2107)-B(2109) -! JVS(47328) = Jac_FULL(5252,4599) - JVS(47328) = -B(18912)-B(18914) -! JVS(47329) = Jac_FULL(5252,4600) - JVS(47329) = 0 -! JVS(47330) = Jac_FULL(5252,4601) - JVS(47330) = 0 -! JVS(47331) = Jac_FULL(5252,4603) - JVS(47331) = 0 -! JVS(47332) = Jac_FULL(5252,4605) - JVS(47332) = 0 -! JVS(47333) = Jac_FULL(5252,4607) - JVS(47333) = -B(2301)-B(2303) -! JVS(47334) = Jac_FULL(5252,4608) - JVS(47334) = -B(2312)-B(2314) -! JVS(47335) = Jac_FULL(5252,4609) - JVS(47335) = -B(3187)-B(3189) -! JVS(47336) = Jac_FULL(5252,4610) - JVS(47336) = -B(10798)-B(10800) -! JVS(47337) = Jac_FULL(5252,4611) - JVS(47337) = -B(10813) -! JVS(47338) = Jac_FULL(5252,4612) - JVS(47338) = -B(13971)-B(13973) -! JVS(47339) = Jac_FULL(5252,4613) - JVS(47339) = -B(16732) -! JVS(47340) = Jac_FULL(5252,4614) - JVS(47340) = -B(16743)-B(16745) -! JVS(47341) = Jac_FULL(5252,4616) - JVS(47341) = -B(3176)-B(3178) -! JVS(47342) = Jac_FULL(5252,4617) - JVS(47342) = -B(10574) -! JVS(47343) = Jac_FULL(5252,4619) - JVS(47343) = 0 -! JVS(47344) = Jac_FULL(5252,4620) - JVS(47344) = -B(21416) -! JVS(47345) = Jac_FULL(5252,4621) - JVS(47345) = -B(15590) -! JVS(47346) = Jac_FULL(5252,4622) - JVS(47346) = -B(3013) -! JVS(47347) = Jac_FULL(5252,4623) - JVS(47347) = -B(14984) -! JVS(47348) = Jac_FULL(5252,4624) - JVS(47348) = -B(21782) -! JVS(47349) = Jac_FULL(5252,4625) - JVS(47349) = -B(22968) -! JVS(47350) = Jac_FULL(5252,4626) - JVS(47350) = -B(5351) -! JVS(47351) = Jac_FULL(5252,4627) - JVS(47351) = -B(10968) -! JVS(47352) = Jac_FULL(5252,4628) - JVS(47352) = -B(10263) -! JVS(47353) = Jac_FULL(5252,4629) - JVS(47353) = -B(15060) -! JVS(47354) = Jac_FULL(5252,4631) - JVS(47354) = -B(19012) -! JVS(47355) = Jac_FULL(5252,4632) - JVS(47355) = 0 -! JVS(47356) = Jac_FULL(5252,4633) - JVS(47356) = -B(6366) -! JVS(47357) = Jac_FULL(5252,4634) - JVS(47357) = -B(3781) -! JVS(47358) = Jac_FULL(5252,4635) - JVS(47358) = -B(5900) -! JVS(47359) = Jac_FULL(5252,4636) - JVS(47359) = -B(22940) -! JVS(47360) = Jac_FULL(5252,4637) - JVS(47360) = 0 -! JVS(47361) = Jac_FULL(5252,4638) - JVS(47361) = -B(19346) -! JVS(47362) = Jac_FULL(5252,4639) - JVS(47362) = 0 -! JVS(47363) = Jac_FULL(5252,4640) - JVS(47363) = -B(7835) -! JVS(47364) = Jac_FULL(5252,4641) - JVS(47364) = -B(5721) -! JVS(47365) = Jac_FULL(5252,4642) - JVS(47365) = -B(17665) -! JVS(47366) = Jac_FULL(5252,4643) - JVS(47366) = -B(18532) -! JVS(47367) = Jac_FULL(5252,4644) - JVS(47367) = -B(22484) -! JVS(47368) = Jac_FULL(5252,4645) - JVS(47368) = -B(967)-B(969) -! JVS(47369) = Jac_FULL(5252,4646) - JVS(47369) = -B(10923)-B(10925) -! JVS(47370) = Jac_FULL(5252,4647) - JVS(47370) = -B(1153)-B(1155) -! JVS(47371) = Jac_FULL(5252,4648) - JVS(47371) = -B(21119) -! JVS(47372) = Jac_FULL(5252,4649) - JVS(47372) = -B(5221) -! JVS(47373) = Jac_FULL(5252,4650) - JVS(47373) = 0 -! JVS(47374) = Jac_FULL(5252,4652) - JVS(47374) = -B(22017) -! JVS(47375) = Jac_FULL(5252,4653) - JVS(47375) = -B(23304) -! JVS(47376) = Jac_FULL(5252,4654) - JVS(47376) = -B(6214) -! JVS(47377) = Jac_FULL(5252,4655) - JVS(47377) = -B(18497) -! JVS(47378) = Jac_FULL(5252,4656) - JVS(47378) = -B(6548) -! JVS(47379) = Jac_FULL(5252,4657) - JVS(47379) = -B(18888) -! JVS(47380) = Jac_FULL(5252,4658) - JVS(47380) = -B(18858) -! JVS(47381) = Jac_FULL(5252,4659) - JVS(47381) = -B(21846) -! JVS(47382) = Jac_FULL(5252,4660) - JVS(47382) = -B(20720) -! JVS(47383) = Jac_FULL(5252,4661) - JVS(47383) = -B(12821) -! JVS(47384) = Jac_FULL(5252,4662) - JVS(47384) = -B(17510) -! JVS(47385) = Jac_FULL(5252,4663) - JVS(47385) = 0 -! JVS(47386) = Jac_FULL(5252,4664) - JVS(47386) = -B(16988) -! JVS(47387) = Jac_FULL(5252,4665) - JVS(47387) = -B(15101) -! JVS(47388) = Jac_FULL(5252,4666) - JVS(47388) = -B(3023) -! JVS(47389) = Jac_FULL(5252,4667) - JVS(47389) = -B(5746) -! JVS(47390) = Jac_FULL(5252,4668) - JVS(47390) = -B(13505) -! JVS(47391) = Jac_FULL(5252,4669) - JVS(47391) = -B(12548) -! JVS(47392) = Jac_FULL(5252,4670) - JVS(47392) = 0 -! JVS(47393) = Jac_FULL(5252,4671) - JVS(47393) = 0 -! JVS(47394) = Jac_FULL(5252,4672) - JVS(47394) = -B(22664)-B(22666) -! JVS(47395) = Jac_FULL(5252,4673) - JVS(47395) = -B(23188) -! JVS(47396) = Jac_FULL(5252,4674) - JVS(47396) = -B(13175) -! JVS(47397) = Jac_FULL(5252,4675) - JVS(47397) = -B(5925) -! JVS(47398) = Jac_FULL(5252,4676) - JVS(47398) = 0 -! JVS(47399) = Jac_FULL(5252,4677) - JVS(47399) = -B(16518) -! JVS(47400) = Jac_FULL(5252,4678) - JVS(47400) = -B(14803) -! JVS(47401) = Jac_FULL(5252,4679) - JVS(47401) = -B(19442) -! JVS(47402) = Jac_FULL(5252,4680) - JVS(47402) = -B(9859) -! JVS(47403) = Jac_FULL(5252,4681) - JVS(47403) = -B(22600) -! JVS(47404) = Jac_FULL(5252,4682) - JVS(47404) = 0 -! JVS(47405) = Jac_FULL(5252,4683) - JVS(47405) = -B(5837) -! JVS(47406) = Jac_FULL(5252,4684) - JVS(47406) = -B(9089) -! JVS(47407) = Jac_FULL(5252,4685) - JVS(47407) = -B(6452) -! JVS(47408) = Jac_FULL(5252,4686) - JVS(47408) = -B(23975) -! JVS(47409) = Jac_FULL(5252,4687) - JVS(47409) = -B(23984) -! JVS(47410) = Jac_FULL(5252,4688) - JVS(47410) = -B(13013) -! JVS(47411) = Jac_FULL(5252,4689) - JVS(47411) = -B(12919) -! JVS(47412) = Jac_FULL(5252,4690) - JVS(47412) = 0 -! JVS(47413) = Jac_FULL(5252,4691) - JVS(47413) = -B(14793) -! JVS(47414) = Jac_FULL(5252,4692) - JVS(47414) = -B(5607) -! JVS(47415) = Jac_FULL(5252,4695) - JVS(47415) = -B(1579)-B(1581) -! JVS(47416) = Jac_FULL(5252,4696) - JVS(47416) = -B(1783)-B(1785) -! JVS(47417) = Jac_FULL(5252,4697) - JVS(47417) = -B(15121) -! JVS(47418) = Jac_FULL(5252,4698) - JVS(47418) = -B(1194) -! JVS(47419) = Jac_FULL(5252,4699) - JVS(47419) = -B(5617)-B(5619) -! JVS(47420) = Jac_FULL(5252,4700) - JVS(47420) = -B(2181) -! JVS(47421) = Jac_FULL(5252,4701) - JVS(47421) = -B(5735)-B(5737) -! JVS(47422) = Jac_FULL(5252,4702) - JVS(47422) = -B(2288) -! JVS(47423) = Jac_FULL(5252,4703) - JVS(47423) = -B(13333) -! JVS(47424) = Jac_FULL(5252,4704) - JVS(47424) = -B(15081)-B(15083) -! JVS(47425) = Jac_FULL(5252,4705) - JVS(47425) = -B(1345)-B(1347) -! JVS(47426) = Jac_FULL(5252,4706) - JVS(47426) = -B(12738) -! JVS(47427) = Jac_FULL(5252,4707) - JVS(47427) = -B(5433)-B(5435) -! JVS(47428) = Jac_FULL(5252,4709) - JVS(47428) = -B(15384)-B(15386) -! JVS(47429) = Jac_FULL(5252,4711) - JVS(47429) = -B(13813)-B(13815) -! JVS(47430) = Jac_FULL(5252,4712) - JVS(47430) = -B(15328)-B(15330) -! JVS(47431) = Jac_FULL(5252,4713) - JVS(47431) = -B(15300)-B(15302) -! JVS(47432) = Jac_FULL(5252,4714) - JVS(47432) = -B(2129) -! JVS(47433) = Jac_FULL(5252,4715) - JVS(47433) = -B(15356)-B(15358) -! JVS(47434) = Jac_FULL(5252,4716) - JVS(47434) = -B(15279)-B(15281) -! JVS(47435) = Jac_FULL(5252,4717) - JVS(47435) = 0 -! JVS(47436) = Jac_FULL(5252,4718) - JVS(47436) = -B(5531)-B(5533) -! JVS(47437) = Jac_FULL(5252,4719) - JVS(47437) = -B(8657) -! JVS(47438) = Jac_FULL(5252,4720) - JVS(47438) = -B(5240)-B(5242) -! JVS(47439) = Jac_FULL(5252,4722) - JVS(47439) = -B(8269)-B(8271) -! JVS(47440) = Jac_FULL(5252,4723) - JVS(47440) = -B(2214) -! JVS(47441) = Jac_FULL(5252,4724) - JVS(47441) = -B(8456) -! JVS(47442) = Jac_FULL(5252,4725) - JVS(47442) = -B(6304)-B(6306) -! JVS(47443) = Jac_FULL(5252,4726) - JVS(47443) = -B(18525) -! JVS(47444) = Jac_FULL(5252,4727) - JVS(47444) = -B(6376)-B(6378) -! JVS(47445) = Jac_FULL(5252,4729) - JVS(47445) = 0 -! JVS(47446) = Jac_FULL(5252,4730) - JVS(47446) = -B(10823) -! JVS(47447) = Jac_FULL(5252,4731) - JVS(47447) = -B(21472) -! JVS(47448) = Jac_FULL(5252,4732) - JVS(47448) = -B(10339) -! JVS(47449) = Jac_FULL(5252,4733) - JVS(47449) = -B(1740)-B(1742) -! JVS(47450) = Jac_FULL(5252,4734) - JVS(47450) = -B(21083) -! JVS(47451) = Jac_FULL(5252,4735) - JVS(47451) = -B(14964)-B(14966) -! JVS(47452) = Jac_FULL(5252,4736) - JVS(47452) = 0 -! JVS(47453) = Jac_FULL(5252,4738) - JVS(47453) = -B(17302) -! JVS(47454) = Jac_FULL(5252,4739) - JVS(47454) = -B(20370) -! JVS(47455) = Jac_FULL(5252,4740) - JVS(47455) = -B(8948) -! JVS(47456) = Jac_FULL(5252,4741) - JVS(47456) = -B(15615) -! JVS(47457) = Jac_FULL(5252,4742) - JVS(47457) = -B(18202) -! JVS(47458) = Jac_FULL(5252,4743) - JVS(47458) = 0 -! JVS(47459) = Jac_FULL(5252,4744) - JVS(47459) = -B(21434) -! JVS(47460) = Jac_FULL(5252,4745) - JVS(47460) = -B(14767) -! JVS(47461) = Jac_FULL(5252,4746) - JVS(47461) = -B(7548) -! JVS(47462) = Jac_FULL(5252,4748) - JVS(47462) = -B(21050)-B(21052) -! JVS(47463) = Jac_FULL(5252,4750) - JVS(47463) = -B(18690) -! JVS(47464) = Jac_FULL(5252,4751) - JVS(47464) = -B(21547) -! JVS(47465) = Jac_FULL(5252,4752) - JVS(47465) = -B(21902) -! JVS(47466) = Jac_FULL(5252,4753) - JVS(47466) = -B(20356) -! JVS(47467) = Jac_FULL(5252,4754) - JVS(47467) = -B(7513) -! JVS(47468) = Jac_FULL(5252,4755) - JVS(47468) = -B(1610)-B(1612) -! JVS(47469) = Jac_FULL(5252,4756) - JVS(47469) = -B(7522) -! JVS(47470) = Jac_FULL(5252,4757) - JVS(47470) = -B(14695) -! JVS(47471) = Jac_FULL(5252,4758) - JVS(47471) = -B(10505) -! JVS(47472) = Jac_FULL(5252,4759) - JVS(47472) = -B(22806) -! JVS(47473) = Jac_FULL(5252,4760) - JVS(47473) = -B(8033) -! JVS(47474) = Jac_FULL(5252,4761) - JVS(47474) = -B(14596) -! JVS(47475) = Jac_FULL(5252,4762) - JVS(47475) = -B(14564) -! JVS(47476) = Jac_FULL(5252,4763) - JVS(47476) = -B(1392) -! JVS(47477) = Jac_FULL(5252,4764) - JVS(47477) = -B(19507)-B(19509) -! JVS(47478) = Jac_FULL(5252,4765) - JVS(47478) = -B(11023) -! JVS(47479) = Jac_FULL(5252,4766) - JVS(47479) = -B(1869)-B(1871) -! JVS(47480) = Jac_FULL(5252,4767) - JVS(47480) = -B(1044)-B(1046) -! JVS(47481) = Jac_FULL(5252,4768) - JVS(47481) = -B(16837) -! JVS(47482) = Jac_FULL(5252,4769) - JVS(47482) = -B(9932) -! JVS(47483) = Jac_FULL(5252,4770) - JVS(47483) = -B(19982) -! JVS(47484) = Jac_FULL(5252,4771) - JVS(47484) = -B(8216) -! JVS(47485) = Jac_FULL(5252,4772) - JVS(47485) = -B(20468) -! JVS(47486) = Jac_FULL(5252,4773) - JVS(47486) = -B(9067) -! JVS(47487) = Jac_FULL(5252,4774) - JVS(47487) = -B(6766) -! JVS(47488) = Jac_FULL(5252,4775) - JVS(47488) = 0 -! JVS(47489) = Jac_FULL(5252,4776) - JVS(47489) = -B(13560) -! JVS(47490) = Jac_FULL(5252,4777) - JVS(47490) = -B(2162) -! JVS(47491) = Jac_FULL(5252,4778) - JVS(47491) = -B(19598)-B(19600) -! JVS(47492) = Jac_FULL(5252,4779) - JVS(47492) = -B(23648) -! JVS(47493) = Jac_FULL(5252,4780) - JVS(47493) = -B(1174) -! JVS(47494) = Jac_FULL(5252,4781) - JVS(47494) = -B(14497) -! JVS(47495) = Jac_FULL(5252,4782) - JVS(47495) = -B(2138) -! JVS(47496) = Jac_FULL(5252,4783) - JVS(47496) = -B(1532)-B(1534) -! JVS(47497) = Jac_FULL(5252,4784) - JVS(47497) = -B(3308)-B(3310) -! JVS(47498) = Jac_FULL(5252,4785) - JVS(47498) = -B(7669)-B(7671) -! JVS(47499) = Jac_FULL(5252,4786) - JVS(47499) = 0 -! JVS(47500) = Jac_FULL(5252,4787) - JVS(47500) = -B(10281) -! JVS(47501) = Jac_FULL(5252,4788) - JVS(47501) = 0 -! JVS(47502) = Jac_FULL(5252,4789) - JVS(47502) = -B(14363)-B(14365) -! JVS(47503) = Jac_FULL(5252,4790) - JVS(47503) = 0 -! JVS(47504) = Jac_FULL(5252,4791) - JVS(47504) = 0 -! JVS(47505) = Jac_FULL(5252,4792) - JVS(47505) = -B(16020) -! JVS(47506) = Jac_FULL(5252,4793) - JVS(47506) = 0 -! JVS(47507) = Jac_FULL(5252,4794) - JVS(47507) = 0 -! JVS(47508) = Jac_FULL(5252,4795) - JVS(47508) = -B(17474) -! JVS(47509) = Jac_FULL(5252,4797) - JVS(47509) = 0 -! JVS(47510) = Jac_FULL(5252,4798) - JVS(47510) = 0 -! JVS(47511) = Jac_FULL(5252,4799) - JVS(47511) = 0 -! JVS(47512) = Jac_FULL(5252,4800) - JVS(47512) = 0 -! JVS(47513) = Jac_FULL(5252,4802) - JVS(47513) = -B(17815)-B(17817) -! JVS(47514) = Jac_FULL(5252,4803) - JVS(47514) = -B(6078)-B(6080) -! JVS(47515) = Jac_FULL(5252,4804) - JVS(47515) = -B(8619) -! JVS(47516) = Jac_FULL(5252,4805) - JVS(47516) = 0 -! JVS(47517) = Jac_FULL(5252,4806) - JVS(47517) = -B(20625) -! JVS(47518) = Jac_FULL(5252,4807) - JVS(47518) = -B(6147) -! JVS(47519) = Jac_FULL(5252,4808) - JVS(47519) = -B(20001) -! JVS(47520) = Jac_FULL(5252,4809) - JVS(47520) = -B(2072) -! JVS(47521) = Jac_FULL(5252,4810) - JVS(47521) = 0 -! JVS(47522) = Jac_FULL(5252,4811) - JVS(47522) = -B(17833) -! JVS(47523) = Jac_FULL(5252,4812) - JVS(47523) = -B(23129) -! JVS(47524) = Jac_FULL(5252,4813) - JVS(47524) = -B(6574) -! JVS(47525) = Jac_FULL(5252,4814) - JVS(47525) = -B(1163)-B(1165) -! JVS(47526) = Jac_FULL(5252,4815) - JVS(47526) = 0 -! JVS(47527) = Jac_FULL(5252,4816) - JVS(47527) = -B(18933) -! JVS(47528) = Jac_FULL(5252,4817) - JVS(47528) = -B(8491) -! JVS(47529) = Jac_FULL(5252,4818) - JVS(47529) = -B(23318) -! JVS(47530) = Jac_FULL(5252,4819) - JVS(47530) = -B(6641) -! JVS(47531) = Jac_FULL(5252,4820) - JVS(47531) = -B(23753) -! JVS(47532) = Jac_FULL(5252,4821) - JVS(47532) = -B(5365)-B(5367) -! JVS(47533) = Jac_FULL(5252,4822) - JVS(47533) = -B(8699) -! JVS(47534) = Jac_FULL(5252,4823) - JVS(47534) = -B(8709) -! JVS(47535) = Jac_FULL(5252,4824) - JVS(47535) = -B(17165) -! JVS(47536) = Jac_FULL(5252,4825) - JVS(47536) = -B(22027)-B(22029) -! JVS(47537) = Jac_FULL(5252,4826) - JVS(47537) = -B(20329) -! JVS(47538) = Jac_FULL(5252,4827) - JVS(47538) = -B(10941) -! JVS(47539) = Jac_FULL(5252,4828) - JVS(47539) = -B(15443) -! JVS(47540) = Jac_FULL(5252,4829) - JVS(47540) = -B(5812) -! JVS(47541) = Jac_FULL(5252,4830) - JVS(47541) = -B(14274) -! JVS(47542) = Jac_FULL(5252,4831) - JVS(47542) = -B(21538) -! JVS(47543) = Jac_FULL(5252,4832) - JVS(47543) = 0 -! JVS(47544) = Jac_FULL(5252,4833) - JVS(47544) = -B(5418) -! JVS(47545) = Jac_FULL(5252,4834) - JVS(47545) = 0 -! JVS(47546) = Jac_FULL(5252,4835) - JVS(47546) = -B(12470) -! JVS(47547) = Jac_FULL(5252,4836) - JVS(47547) = -B(11004) -! JVS(47548) = Jac_FULL(5252,4837) - JVS(47548) = -B(1072)-B(1074) -! JVS(47549) = Jac_FULL(5252,4838) - JVS(47549) = -B(5116) -! JVS(47550) = Jac_FULL(5252,4839) - JVS(47550) = -B(23094) -! JVS(47551) = Jac_FULL(5252,4840) - JVS(47551) = 0 -! JVS(47552) = Jac_FULL(5252,4841) - JVS(47552) = -B(3278) -! JVS(47553) = Jac_FULL(5252,4843) - JVS(47553) = -B(7444) -! JVS(47554) = Jac_FULL(5252,4844) - JVS(47554) = -B(1088)-B(1090) -! JVS(47555) = Jac_FULL(5252,4845) - JVS(47555) = 0 -! JVS(47556) = Jac_FULL(5252,4846) - JVS(47556) = -B(9673) -! JVS(47557) = Jac_FULL(5252,4847) - JVS(47557) = -B(11243) -! JVS(47558) = Jac_FULL(5252,4848) - JVS(47558) = -B(14938) -! JVS(47559) = Jac_FULL(5252,4849) - JVS(47559) = -B(17035) -! JVS(47560) = Jac_FULL(5252,4850) - JVS(47560) = -B(18003) -! JVS(47561) = Jac_FULL(5252,4851) - JVS(47561) = 0 -! JVS(47562) = Jac_FULL(5252,4852) - JVS(47562) = -B(3258) -! JVS(47563) = Jac_FULL(5252,4853) - JVS(47563) = -B(23811) -! JVS(47564) = Jac_FULL(5252,4854) - JVS(47564) = -B(23290) -! JVS(47565) = Jac_FULL(5252,4855) - JVS(47565) = -B(14446) -! JVS(47566) = Jac_FULL(5252,4856) - JVS(47566) = -B(8516) -! JVS(47567) = Jac_FULL(5252,4857) - JVS(47567) = -B(12638) -! JVS(47568) = Jac_FULL(5252,4858) - JVS(47568) = -B(3249) -! JVS(47569) = Jac_FULL(5252,4859) - JVS(47569) = 0 -! JVS(47570) = Jac_FULL(5252,4860) - JVS(47570) = -B(8011) -! JVS(47571) = Jac_FULL(5252,4861) - JVS(47571) = -B(12462) -! JVS(47572) = Jac_FULL(5252,4862) - JVS(47572) = -B(7873) -! JVS(47573) = Jac_FULL(5252,4863) - JVS(47573) = -B(21064) -! JVS(47574) = Jac_FULL(5252,4864) - JVS(47574) = -B(16122) -! JVS(47575) = Jac_FULL(5252,4865) - JVS(47575) = 0 -! JVS(47576) = Jac_FULL(5252,4866) - JVS(47576) = -B(17540) -! JVS(47577) = Jac_FULL(5252,4867) - JVS(47577) = -B(22376) -! JVS(47578) = Jac_FULL(5252,4868) - JVS(47578) = -B(5056) -! JVS(47579) = Jac_FULL(5252,4869) - JVS(47579) = -B(11312) -! JVS(47580) = Jac_FULL(5252,4870) - JVS(47580) = -B(978)-B(980) -! JVS(47581) = Jac_FULL(5252,4871) - JVS(47581) = -B(10934) -! JVS(47582) = Jac_FULL(5252,4873) - JVS(47582) = 0 -! JVS(47583) = Jac_FULL(5252,4874) - JVS(47583) = -B(19731) -! JVS(47584) = Jac_FULL(5252,4875) - JVS(47584) = -B(22815) -! JVS(47585) = Jac_FULL(5252,4876) - JVS(47585) = -B(1653)-B(1655) -! JVS(47586) = Jac_FULL(5252,4877) - JVS(47586) = -B(12805) -! JVS(47587) = Jac_FULL(5252,4878) - JVS(47587) = -B(1912)-B(1914) -! JVS(47588) = Jac_FULL(5252,4879) - JVS(47588) = -B(2235) -! JVS(47589) = Jac_FULL(5252,4880) - JVS(47589) = -B(8105)-B(8107) -! JVS(47590) = Jac_FULL(5252,4881) - JVS(47590) = -B(2190) -! JVS(47591) = Jac_FULL(5252,4882) - JVS(47591) = 0 -! JVS(47592) = Jac_FULL(5252,4883) - JVS(47592) = 0 -! JVS(47593) = Jac_FULL(5252,4884) - JVS(47593) = -B(2279) -! JVS(47594) = Jac_FULL(5252,4885) - JVS(47594) = -B(10841) -! JVS(47595) = Jac_FULL(5252,4886) - JVS(47595) = -B(1858)-B(1860) -! JVS(47596) = Jac_FULL(5252,4887) - JVS(47596) = -B(5444) -! JVS(47597) = Jac_FULL(5252,4888) - JVS(47597) = -B(13087) -! JVS(47598) = Jac_FULL(5252,4889) - JVS(47598) = -B(8628) -! JVS(47599) = Jac_FULL(5252,4890) - JVS(47599) = -B(19740)-B(19742) -! JVS(47600) = Jac_FULL(5252,4891) - JVS(47600) = -B(14481) -! JVS(47601) = Jac_FULL(5252,4892) - JVS(47601) = -B(5516) -! JVS(47602) = Jac_FULL(5252,4893) - JVS(47602) = -B(5628) -! JVS(47603) = Jac_FULL(5252,4894) - JVS(47603) = -B(10642)-B(10644) -! JVS(47604) = Jac_FULL(5252,4895) - JVS(47604) = 0 -! JVS(47605) = Jac_FULL(5252,4896) - JVS(47605) = 0 -! JVS(47606) = Jac_FULL(5252,4897) - JVS(47606) = -B(6315) -! JVS(47607) = Jac_FULL(5252,4898) - JVS(47607) = -B(14284) -! JVS(47608) = Jac_FULL(5252,4899) - JVS(47608) = -B(6089) -! JVS(47609) = Jac_FULL(5252,4900) - JVS(47609) = -B(19201)-B(19203) -! JVS(47610) = Jac_FULL(5252,4901) - JVS(47610) = -B(1675)-B(1677) -! JVS(47611) = Jac_FULL(5252,4903) - JVS(47611) = -B(15216)-B(15218) -! JVS(47612) = Jac_FULL(5252,4904) - JVS(47612) = -B(18214) -! JVS(47613) = Jac_FULL(5252,4905) - JVS(47613) = -B(6387) -! JVS(47614) = Jac_FULL(5252,4906) - JVS(47614) = -B(6747) -! JVS(47615) = Jac_FULL(5252,4907) - JVS(47615) = 0 -! JVS(47616) = Jac_FULL(5252,4908) - JVS(47616) = -B(4029) -! JVS(47617) = Jac_FULL(5252,4910) - JVS(47617) = -B(14260) -! JVS(47618) = Jac_FULL(5252,4911) - JVS(47618) = -B(15036) -! JVS(47619) = Jac_FULL(5252,4912) - JVS(47619) = -B(7274) -! JVS(47620) = Jac_FULL(5252,4913) - JVS(47620) = -B(9683) -! JVS(47621) = Jac_FULL(5252,4914) - JVS(47621) = 0 -! JVS(47622) = Jac_FULL(5252,4915) - JVS(47622) = -B(7825) -! JVS(47623) = Jac_FULL(5252,4916) - JVS(47623) = -B(8676) -! JVS(47624) = Jac_FULL(5252,4917) - JVS(47624) = -B(9440) -! JVS(47625) = Jac_FULL(5252,4919) - JVS(47625) = -B(6586) -! JVS(47626) = Jac_FULL(5252,4920) - JVS(47626) = -B(13404) -! JVS(47627) = Jac_FULL(5252,4921) - JVS(47627) = -B(14577) -! JVS(47628) = Jac_FULL(5252,4922) - JVS(47628) = -B(1566) -! JVS(47629) = Jac_FULL(5252,4923) - JVS(47629) = -B(1557) -! JVS(47630) = Jac_FULL(5252,4924) - JVS(47630) = -B(4000) -! JVS(47631) = Jac_FULL(5252,4925) - JVS(47631) = -B(3417) -! JVS(47632) = Jac_FULL(5252,4926) - JVS(47632) = -B(16820) -! JVS(47633) = Jac_FULL(5252,4927) - JVS(47633) = 0 -! JVS(47634) = Jac_FULL(5252,4928) - JVS(47634) = -B(5914)-B(5916) -! JVS(47635) = Jac_FULL(5252,4929) - JVS(47635) = -B(15583) -! JVS(47636) = Jac_FULL(5252,4930) - JVS(47636) = -B(9551) -! JVS(47637) = Jac_FULL(5252,4932) - JVS(47637) = -B(1473)-B(1475) -! JVS(47638) = Jac_FULL(5252,4933) - JVS(47638) = 0 -! JVS(47639) = Jac_FULL(5252,4934) - JVS(47639) = -B(15026) -! JVS(47640) = Jac_FULL(5252,4935) - JVS(47640) = -B(6175) -! JVS(47641) = Jac_FULL(5252,4936) - JVS(47641) = -B(1521)-B(1523) -! JVS(47642) = Jac_FULL(5252,4937) - JVS(47642) = 0 -! JVS(47643) = Jac_FULL(5252,4940) - JVS(47643) = -B(14614)-B(14616) -! JVS(47644) = Jac_FULL(5252,4941) - JVS(47644) = -B(4863) -! JVS(47645) = Jac_FULL(5252,4942) - JVS(47645) = -B(1707)-B(1709) -! JVS(47646) = Jac_FULL(5252,4943) - JVS(47646) = -B(4351) -! JVS(47647) = Jac_FULL(5252,4944) - JVS(47647) = -B(1415) -! JVS(47648) = Jac_FULL(5252,4945) - JVS(47648) = 0 -! JVS(47649) = Jac_FULL(5252,4946) - JVS(47649) = -B(13379) -! JVS(47650) = Jac_FULL(5252,4947) - JVS(47650) = -B(8958) -! JVS(47651) = Jac_FULL(5252,4948) - JVS(47651) = -B(6068) -! JVS(47652) = Jac_FULL(5252,4949) - JVS(47652) = -B(7608) -! JVS(47653) = Jac_FULL(5252,4950) - JVS(47653) = 0 -! JVS(47654) = Jac_FULL(5252,4951) - JVS(47654) = 0 -! JVS(47655) = Jac_FULL(5252,4952) - JVS(47655) = 0 -! JVS(47656) = Jac_FULL(5252,4953) - JVS(47656) = -B(14460) -! JVS(47657) = Jac_FULL(5252,4954) - JVS(47657) = -B(1451) -! JVS(47658) = Jac_FULL(5252,4955) - JVS(47658) = -B(22538) -! JVS(47659) = Jac_FULL(5252,4956) - JVS(47659) = -B(4942) -! JVS(47660) = Jac_FULL(5252,4957) - JVS(47660) = -B(17424) -! JVS(47661) = Jac_FULL(5252,4959) - JVS(47661) = -B(1131)-B(1133) -! JVS(47662) = Jac_FULL(5252,4960) - JVS(47662) = -B(23337) -! JVS(47663) = Jac_FULL(5252,4961) - JVS(47663) = 0 -! JVS(47664) = Jac_FULL(5252,4962) - JVS(47664) = -B(14893) -! JVS(47665) = Jac_FULL(5252,4963) - JVS(47665) = -B(10668) -! JVS(47666) = Jac_FULL(5252,4964) - JVS(47666) = 0 -! JVS(47667) = Jac_FULL(5252,4965) - JVS(47667) = 0 -! JVS(47668) = Jac_FULL(5252,4966) - JVS(47668) = -B(15922) -! JVS(47669) = Jac_FULL(5252,4967) - JVS(47669) = -B(15227) -! JVS(47670) = Jac_FULL(5252,4968) - JVS(47670) = -B(12519) -! JVS(47671) = Jac_FULL(5252,4969) - JVS(47671) = -B(20636) -! JVS(47672) = Jac_FULL(5252,4970) - JVS(47672) = 0 -! JVS(47673) = Jac_FULL(5252,4971) - JVS(47673) = -B(5998)-B(6000) -! JVS(47674) = Jac_FULL(5252,4972) - JVS(47674) = -B(2094) -! JVS(47675) = Jac_FULL(5252,4974) - JVS(47675) = -B(1751)-B(1753) -! JVS(47676) = Jac_FULL(5252,4975) - JVS(47676) = 0 -! JVS(47677) = Jac_FULL(5252,4976) - JVS(47677) = 0 -! JVS(47678) = Jac_FULL(5252,4977) - JVS(47678) = -B(20285) -! JVS(47679) = Jac_FULL(5252,4978) - JVS(47679) = 0 -! JVS(47680) = Jac_FULL(5252,4979) - JVS(47680) = -B(17570) -! JVS(47681) = Jac_FULL(5252,4980) - JVS(47681) = -B(1696)-B(1698) -! JVS(47682) = Jac_FULL(5252,4981) - JVS(47682) = -B(1621)-B(1623) -! JVS(47683) = Jac_FULL(5252,4982) - JVS(47683) = -B(16616) -! JVS(47684) = Jac_FULL(5252,4984) - JVS(47684) = -B(19623) -! JVS(47685) = Jac_FULL(5252,4985) - JVS(47685) = -B(9822) -! JVS(47686) = Jac_FULL(5252,4986) - JVS(47686) = -B(8846) -! JVS(47687) = Jac_FULL(5252,4987) - JVS(47687) = -B(17023) -! JVS(47688) = Jac_FULL(5252,4988) - JVS(47688) = 0 -! JVS(47689) = Jac_FULL(5252,4989) - JVS(47689) = -B(14685) -! JVS(47690) = Jac_FULL(5252,4990) - JVS(47690) = -B(8077) -! JVS(47691) = Jac_FULL(5252,4991) - JVS(47691) = -B(10850) -! JVS(47692) = Jac_FULL(5252,4992) - JVS(47692) = -B(6474) -! JVS(47693) = Jac_FULL(5252,4993) - JVS(47693) = -B(12450) -! JVS(47694) = Jac_FULL(5252,4994) - JVS(47694) = -B(8241) -! JVS(47695) = Jac_FULL(5252,4995) - JVS(47695) = -B(934)-B(936) -! JVS(47696) = Jac_FULL(5252,4996) - JVS(47696) = 0 -! JVS(47697) = Jac_FULL(5252,4997) - JVS(47697) = -B(9459) -! JVS(47698) = Jac_FULL(5252,4998) - JVS(47698) = -B(9570) -! JVS(47699) = Jac_FULL(5252,4999) - JVS(47699) = -B(13536) -! JVS(47700) = Jac_FULL(5252,5001) - JVS(47700) = -B(9099) -! JVS(47701) = Jac_FULL(5252,5002) - JVS(47701) = 0 -! JVS(47702) = Jac_FULL(5252,5003) - JVS(47702) = -B(20416) -! JVS(47703) = Jac_FULL(5252,5004) - JVS(47703) = -B(20602) -! JVS(47704) = Jac_FULL(5252,5005) - JVS(47704) = -B(20402) -! JVS(47705) = Jac_FULL(5252,5006) - JVS(47705) = -B(19367) -! JVS(47706) = Jac_FULL(5252,5007) - JVS(47706) = -B(989)-B(991) -! JVS(47707) = Jac_FULL(5252,5008) - JVS(47707) = -B(7717) -! JVS(47708) = Jac_FULL(5252,5009) - JVS(47708) = 0 -! JVS(47709) = Jac_FULL(5252,5010) - JVS(47709) = 0 -! JVS(47710) = Jac_FULL(5252,5011) - JVS(47710) = -B(9869) -! JVS(47711) = Jac_FULL(5252,5012) - JVS(47711) = 0 -! JVS(47712) = Jac_FULL(5252,5013) - JVS(47712) = 0 -! JVS(47713) = Jac_FULL(5252,5014) - JVS(47713) = -B(14671) -! JVS(47714) = Jac_FULL(5252,5015) - JVS(47714) = -B(10417)-B(10419) -! JVS(47715) = Jac_FULL(5252,5016) - JVS(47715) = -B(6734)-B(6738) -! JVS(47716) = Jac_FULL(5252,5017) - JVS(47716) = -B(19273) -! JVS(47717) = Jac_FULL(5252,5018) - JVS(47717) = 0 -! JVS(47718) = Jac_FULL(5252,5019) - JVS(47718) = -B(20730) -! JVS(47719) = Jac_FULL(5252,5020) - JVS(47719) = -B(6725)-B(6727) -! JVS(47720) = Jac_FULL(5252,5021) - JVS(47720) = -B(19097) -! JVS(47721) = Jac_FULL(5252,5022) - JVS(47721) = -B(13835)-B(13837) -! JVS(47722) = Jac_FULL(5252,5024) - JVS(47722) = 0 -! JVS(47723) = Jac_FULL(5252,5025) - JVS(47723) = -B(13698) -! JVS(47724) = Jac_FULL(5252,5027) - JVS(47724) = -B(23000) -! JVS(47725) = Jac_FULL(5252,5028) - JVS(47725) = -B(14587) -! JVS(47726) = Jac_FULL(5252,5029) - JVS(47726) = -B(11052) -! JVS(47727) = Jac_FULL(5252,5030) - JVS(47727) = 0 -! JVS(47728) = Jac_FULL(5252,5031) - JVS(47728) = 0 -! JVS(47729) = Jac_FULL(5252,5032) - JVS(47729) = -B(3368)-B(3370) -! JVS(47730) = Jac_FULL(5252,5033) - JVS(47730) = -B(13802) -! JVS(47731) = Jac_FULL(5252,5034) - JVS(47731) = -B(9319) -! JVS(47732) = Jac_FULL(5252,5035) - JVS(47732) = -B(13709)-B(13711) -! JVS(47733) = Jac_FULL(5252,5036) - JVS(47733) = -B(7942) -! JVS(47734) = Jac_FULL(5252,5037) - JVS(47734) = 0 -! JVS(47735) = Jac_FULL(5252,5038) - JVS(47735) = -B(7885) -! JVS(47736) = Jac_FULL(5252,5039) - JVS(47736) = -B(14641) -! JVS(47737) = Jac_FULL(5252,5040) - JVS(47737) = -B(16567) -! JVS(47738) = Jac_FULL(5252,5041) - JVS(47738) = -B(7537)-B(7539) -! JVS(47739) = Jac_FULL(5252,5042) - JVS(47739) = 0 -! JVS(47740) = Jac_FULL(5252,5043) - JVS(47740) = -B(2203)-B(2205) -! JVS(47741) = Jac_FULL(5252,5044) - JVS(47741) = -B(20948) -! JVS(47742) = Jac_FULL(5252,5045) - JVS(47742) = -B(1815)-B(1817) -! JVS(47743) = Jac_FULL(5252,5047) - JVS(47743) = -B(18751) -! JVS(47744) = Jac_FULL(5252,5048) - JVS(47744) = -B(3574) -! JVS(47745) = Jac_FULL(5252,5049) - JVS(47745) = 0 -! JVS(47746) = Jac_FULL(5252,5050) - JVS(47746) = 0 -! JVS(47747) = Jac_FULL(5252,5051) - JVS(47747) = 0 -! JVS(47748) = Jac_FULL(5252,5052) - JVS(47748) = -B(19420) -! JVS(47749) = Jac_FULL(5252,5053) - JVS(47749) = -B(3229) -! JVS(47750) = Jac_FULL(5252,5054) - JVS(47750) = -B(23638) -! JVS(47751) = Jac_FULL(5252,5056) - JVS(47751) = -B(1773)-B(1775) -! JVS(47752) = Jac_FULL(5252,5058) - JVS(47752) = 0 -! JVS(47753) = Jac_FULL(5252,5059) - JVS(47753) = -B(18048) -! JVS(47754) = Jac_FULL(5252,5060) - JVS(47754) = -B(1000)-B(1002) -! JVS(47755) = Jac_FULL(5252,5061) - JVS(47755) = -B(1794)-B(1796) -! JVS(47756) = Jac_FULL(5252,5062) - JVS(47756) = -B(1599)-B(1601) -! JVS(47757) = Jac_FULL(5252,5063) - JVS(47757) = 0 -! JVS(47758) = Jac_FULL(5252,5064) - JVS(47758) = 0 -! JVS(47759) = Jac_FULL(5252,5065) - JVS(47759) = -B(1966)-B(1968) -! JVS(47760) = Jac_FULL(5252,5066) - JVS(47760) = 0 -! JVS(47761) = Jac_FULL(5252,5067) - JVS(47761) = 0 -! JVS(47762) = Jac_FULL(5252,5068) - JVS(47762) = 0 -! JVS(47763) = Jac_FULL(5252,5069) - JVS(47763) = 0 -! JVS(47764) = Jac_FULL(5252,5070) - JVS(47764) = -B(9338) -! JVS(47765) = Jac_FULL(5252,5071) - JVS(47765) = 0 -! JVS(47766) = Jac_FULL(5252,5072) - JVS(47766) = 0 -! JVS(47767) = Jac_FULL(5252,5073) - JVS(47767) = -B(20827) -! JVS(47768) = Jac_FULL(5252,5074) - JVS(47768) = -B(13733)-B(13735) -! JVS(47769) = Jac_FULL(5252,5075) - JVS(47769) = -B(18839) -! JVS(47770) = Jac_FULL(5252,5076) - JVS(47770) = 0 -! JVS(47771) = Jac_FULL(5252,5077) - JVS(47771) = -B(1837)-B(1839) -! JVS(47772) = Jac_FULL(5252,5078) - JVS(47772) = -B(1686)-B(1688) -! JVS(47773) = Jac_FULL(5252,5079) - JVS(47773) = -B(16806) -! JVS(47774) = Jac_FULL(5252,5081) - JVS(47774) = -B(3398)-B(3400) -! JVS(47775) = Jac_FULL(5252,5082) - JVS(47775) = -B(1826)-B(1828) -! JVS(47776) = Jac_FULL(5252,5083) - JVS(47776) = 0 -! JVS(47777) = Jac_FULL(5252,5084) - JVS(47777) = -B(19283)-B(19285) -! JVS(47778) = Jac_FULL(5252,5085) - JVS(47778) = 0 -! JVS(47779) = Jac_FULL(5252,5086) - JVS(47779) = 0 -! JVS(47780) = Jac_FULL(5252,5087) - JVS(47780) = 0 -! JVS(47781) = Jac_FULL(5252,5088) - JVS(47781) = -B(15269) -! JVS(47782) = Jac_FULL(5252,5089) - JVS(47782) = 0 -! JVS(47783) = Jac_FULL(5252,5090) - JVS(47783) = -B(15142) -! JVS(47784) = Jac_FULL(5252,5091) - JVS(47784) = -B(13901)-B(13903) -! JVS(47785) = Jac_FULL(5252,5092) - JVS(47785) = -B(3584) -! JVS(47786) = Jac_FULL(5252,5093) - JVS(47786) = 0 -! JVS(47787) = Jac_FULL(5252,5094) - JVS(47787) = 0 -! JVS(47788) = Jac_FULL(5252,5095) - JVS(47788) = 0 -! JVS(47789) = Jac_FULL(5252,5096) - JVS(47789) = -B(2118)-B(2120) -! JVS(47790) = Jac_FULL(5252,5097) - JVS(47790) = -B(3286)-B(3288) -! JVS(47791) = Jac_FULL(5252,5098) - JVS(47791) = -B(3220) -! JVS(47792) = Jac_FULL(5252,5099) - JVS(47792) = -B(11267) -! JVS(47793) = Jac_FULL(5252,5100) - JVS(47793) = -B(7967) -! JVS(47794) = Jac_FULL(5252,5101) - JVS(47794) = -B(7682) -! JVS(47795) = Jac_FULL(5252,5102) - JVS(47795) = -B(8865) -! JVS(47796) = Jac_FULL(5252,5103) - JVS(47796) = 0 -! JVS(47797) = Jac_FULL(5252,5104) - JVS(47797) = -B(21091)-B(21093) -! JVS(47798) = Jac_FULL(5252,5106) - JVS(47798) = -B(1371) -! JVS(47799) = Jac_FULL(5252,5107) - JVS(47799) = -B(1944)-B(1946) -! JVS(47800) = Jac_FULL(5252,5108) - JVS(47800) = -B(8251)-B(8253) -! JVS(47801) = Jac_FULL(5252,5109) - JVS(47801) = -B(1718)-B(1720) -! JVS(47802) = Jac_FULL(5252,5110) - JVS(47802) = 0 -! JVS(47803) = Jac_FULL(5252,5111) - JVS(47803) = -B(20614) -! JVS(47804) = Jac_FULL(5252,5112) - JVS(47804) = -B(1933)-B(1935) -! JVS(47805) = Jac_FULL(5252,5113) - JVS(47805) = 0 -! JVS(47806) = Jac_FULL(5252,5114) - JVS(47806) = -B(17378)-B(17380) -! JVS(47807) = Jac_FULL(5252,5115) - JVS(47807) = 0 -! JVS(47808) = Jac_FULL(5252,5116) - JVS(47808) = -B(1142)-B(1144) -! JVS(47809) = Jac_FULL(5252,5117) - JVS(47809) = -B(10879) -! JVS(47810) = Jac_FULL(5252,5118) - JVS(47810) = -B(6930)-B(6932) -! JVS(47811) = Jac_FULL(5252,5119) - JVS(47811) = -B(8297)-B(8299) -! JVS(47812) = Jac_FULL(5252,5120) - JVS(47812) = -B(15011)-B(15013) -! JVS(47813) = Jac_FULL(5252,5121) - JVS(47813) = -B(950)-B(952) -! JVS(47814) = Jac_FULL(5252,5122) - JVS(47814) = -B(14704) -! JVS(47815) = Jac_FULL(5252,5123) - JVS(47815) = 0 -! JVS(47816) = Jac_FULL(5252,5124) - JVS(47816) = 0 -! JVS(47817) = Jac_FULL(5252,5125) - JVS(47817) = -B(1335) -! JVS(47818) = Jac_FULL(5252,5126) - JVS(47818) = 0 -! JVS(47819) = Jac_FULL(5252,5127) - JVS(47819) = -B(6896)-B(6898) -! JVS(47820) = Jac_FULL(5252,5128) - JVS(47820) = -B(1501) -! JVS(47821) = Jac_FULL(5252,5129) - JVS(47821) = -B(1021)-B(1023) -! JVS(47822) = Jac_FULL(5252,5130) - JVS(47822) = -B(23071)-B(23073) -! JVS(47823) = Jac_FULL(5252,5131) - JVS(47823) = -B(19406) -! JVS(47824) = Jac_FULL(5252,5132) - JVS(47824) = -B(3126)-B(3128) -! JVS(47825) = Jac_FULL(5252,5133) - JVS(47825) = -B(11648) -! JVS(47826) = Jac_FULL(5252,5134) - JVS(47826) = -B(13845) -! JVS(47827) = Jac_FULL(5252,5135) - JVS(47827) = -B(2268)-B(2270) -! JVS(47828) = Jac_FULL(5252,5136) - JVS(47828) = -B(7631) -! JVS(47829) = Jac_FULL(5252,5137) - JVS(47829) = -B(7848) -! JVS(47830) = Jac_FULL(5252,5138) - JVS(47830) = -B(1955)-B(1957) -! JVS(47831) = Jac_FULL(5252,5140) - JVS(47831) = 0 -! JVS(47832) = Jac_FULL(5252,5141) - JVS(47832) = 0 -! JVS(47833) = Jac_FULL(5252,5142) - JVS(47833) = -B(1320)-B(1322) -! JVS(47834) = Jac_FULL(5252,5143) - JVS(47834) = 0 -! JVS(47835) = Jac_FULL(5252,5144) - JVS(47835) = -B(1922)-B(1924) -! JVS(47836) = Jac_FULL(5252,5145) - JVS(47836) = -B(1400)-B(1402) -! JVS(47837) = Jac_FULL(5252,5146) - JVS(47837) = -B(1880)-B(1882) -! JVS(47838) = Jac_FULL(5252,5147) - JVS(47838) = -B(1664)-B(1666) -! JVS(47839) = Jac_FULL(5252,5148) - JVS(47839) = -B(1109)-B(1111) -! JVS(47840) = Jac_FULL(5252,5149) - JVS(47840) = -B(2044)-B(2046) -! JVS(47841) = Jac_FULL(5252,5150) - JVS(47841) = -B(10912)-B(10914) -! JVS(47842) = Jac_FULL(5252,5151) - JVS(47842) = -B(3238)-B(3240) -! JVS(47843) = Jac_FULL(5252,5152) - JVS(47843) = -B(8431) -! JVS(47844) = Jac_FULL(5252,5153) - JVS(47844) = 0 -! JVS(47845) = Jac_FULL(5252,5154) - JVS(47845) = -B(13744)-B(13746) -! JVS(47846) = Jac_FULL(5252,5155) - JVS(47846) = -B(7928) -! JVS(47847) = Jac_FULL(5252,5156) - JVS(47847) = -B(4286) -! JVS(47848) = Jac_FULL(5252,5157) - JVS(47848) = 0 -! JVS(47849) = Jac_FULL(5252,5158) - JVS(47849) = -B(7798) -! JVS(47850) = Jac_FULL(5252,5159) - JVS(47850) = 0 -! JVS(47851) = Jac_FULL(5252,5161) - JVS(47851) = -B(3267)-B(3269) -! JVS(47852) = Jac_FULL(5252,5162) - JVS(47852) = 0 -! JVS(47853) = Jac_FULL(5252,5163) - JVS(47853) = -B(1631)-B(1633) -! JVS(47854) = Jac_FULL(5252,5164) - JVS(47854) = -B(7811) -! JVS(47855) = Jac_FULL(5252,5165) - JVS(47855) = 0 -! JVS(47856) = Jac_FULL(5252,5166) - JVS(47856) = 0 -! JVS(47857) = Jac_FULL(5252,5167) - JVS(47857) = -B(16696) -! JVS(47858) = Jac_FULL(5252,5168) - JVS(47858) = 0 -! JVS(47859) = Jac_FULL(5252,5169) - JVS(47859) = 0 -! JVS(47860) = Jac_FULL(5252,5170) - JVS(47860) = -B(4258) -! JVS(47861) = Jac_FULL(5252,5171) - JVS(47861) = -B(18982) -! JVS(47862) = Jac_FULL(5252,5172) - JVS(47862) = -B(18762) -! JVS(47863) = Jac_FULL(5252,5173) - JVS(47863) = -B(10630)-B(10632) -! JVS(47864) = Jac_FULL(5252,5174) - JVS(47864) = -B(13822)-B(13824) -! JVS(47865) = Jac_FULL(5252,5175) - JVS(47865) = 0 -! JVS(47866) = Jac_FULL(5252,5176) - JVS(47866) = 0 -! JVS(47867) = Jac_FULL(5252,5177) - JVS(47867) = 0 -! JVS(47868) = Jac_FULL(5252,5178) - JVS(47868) = 0 -! JVS(47869) = Jac_FULL(5252,5179) - JVS(47869) = -B(17488) -! JVS(47870) = Jac_FULL(5252,5180) - JVS(47870) = 0 -! JVS(47871) = Jac_FULL(5252,5181) - JVS(47871) = -B(1977)-B(1979) -! JVS(47872) = Jac_FULL(5252,5183) - JVS(47872) = -B(1310) -! JVS(47873) = Jac_FULL(5252,5185) - JVS(47873) = -B(1033)-B(1035) -! JVS(47874) = Jac_FULL(5252,5186) - JVS(47874) = -B(1729)-B(1731) -! JVS(47875) = Jac_FULL(5252,5187) - JVS(47875) = 0 -! JVS(47876) = Jac_FULL(5252,5189) - JVS(47876) = 0 -! JVS(47877) = Jac_FULL(5252,5190) - JVS(47877) = 0 -! JVS(47878) = Jac_FULL(5252,5191) - JVS(47878) = 0 -! JVS(47879) = Jac_FULL(5252,5192) - JVS(47879) = -B(1642)-B(1644) -! JVS(47880) = Jac_FULL(5252,5194) - JVS(47880) = 0 -! JVS(47881) = Jac_FULL(5252,5195) - JVS(47881) = -B(923)-B(925) -! JVS(47882) = Jac_FULL(5252,5196) - JVS(47882) = -B(17045)-B(17047) -! JVS(47883) = Jac_FULL(5252,5197) - JVS(47883) = -B(10832) -! JVS(47884) = Jac_FULL(5252,5198) - JVS(47884) = -B(7284)-B(7286) -! JVS(47885) = Jac_FULL(5252,5200) - JVS(47885) = 0 -! JVS(47886) = Jac_FULL(5252,5202) - JVS(47886) = -B(956)-B(958) -! JVS(47887) = Jac_FULL(5252,5203) - JVS(47887) = 0 -! JVS(47888) = Jac_FULL(5252,5204) - JVS(47888) = -B(6802)-B(6804) -! JVS(47889) = Jac_FULL(5252,5205) - JVS(47889) = 0 -! JVS(47890) = Jac_FULL(5252,5206) - JVS(47890) = -B(7557)-B(7559) -! JVS(47891) = Jac_FULL(5252,5207) - JVS(47891) = 0 -! JVS(47892) = Jac_FULL(5252,5208) - JVS(47892) = -B(1436)-B(1438) -! JVS(47893) = Jac_FULL(5252,5209) - JVS(47893) = 0 -! JVS(47894) = Jac_FULL(5252,5210) - JVS(47894) = 0 -! JVS(47895) = Jac_FULL(5252,5211) - JVS(47895) = 0 -! JVS(47896) = Jac_FULL(5252,5212) - JVS(47896) = 0 -! JVS(47897) = Jac_FULL(5252,5213) - JVS(47897) = 0 -! JVS(47898) = Jac_FULL(5252,5214) - JVS(47898) = -B(16848) -! JVS(47899) = Jac_FULL(5252,5215) - JVS(47899) = 0 -! JVS(47900) = Jac_FULL(5252,5216) - JVS(47900) = -B(7904) -! JVS(47901) = Jac_FULL(5252,5217) - JVS(47901) = -B(6775)-B(6777) -! JVS(47902) = Jac_FULL(5252,5218) - JVS(47902) = -B(6918)-B(6920) -! JVS(47903) = Jac_FULL(5252,5219) - JVS(47903) = -B(6789)-B(6791) -! JVS(47904) = Jac_FULL(5252,5220) - JVS(47904) = 0 -! JVS(47905) = Jac_FULL(5252,5221) - JVS(47905) = 0 -! JVS(47906) = Jac_FULL(5252,5223) - JVS(47906) = -B(4053) -! JVS(47907) = Jac_FULL(5252,5224) - JVS(47907) = -B(6816)-B(6818) -! JVS(47908) = Jac_FULL(5252,5225) - JVS(47908) = 0 -! JVS(47909) = Jac_FULL(5252,5226) - JVS(47909) = 0 -! JVS(47910) = Jac_FULL(5252,5227) - JVS(47910) = 0 -! JVS(47911) = Jac_FULL(5252,5228) - JVS(47911) = -B(1284)-B(1286) -! JVS(47912) = Jac_FULL(5252,5229) - JVS(47912) = -B(1356)-B(1358) -! JVS(47913) = Jac_FULL(5252,5230) - JVS(47913) = 0 -! JVS(47914) = Jac_FULL(5252,5232) - JVS(47914) = -B(3988) -! JVS(47915) = Jac_FULL(5252,5233) - JVS(47915) = 0 -! JVS(47916) = Jac_FULL(5252,5234) - JVS(47916) = 0 -! JVS(47917) = Jac_FULL(5252,5235) - JVS(47917) = -B(1297) -! JVS(47918) = Jac_FULL(5252,5236) - JVS(47918) = -B(7433)-B(7435) -! JVS(47919) = Jac_FULL(5252,5237) - JVS(47919) = -B(7594) -! JVS(47920) = Jac_FULL(5252,5238) - JVS(47920) = 0 -! JVS(47921) = Jac_FULL(5252,5239) - JVS(47921) = -B(3825)-B(3827) -! JVS(47922) = Jac_FULL(5252,5240) - JVS(47922) = 0 -! JVS(47923) = Jac_FULL(5252,5241) - JVS(47923) = -B(3200) -! JVS(47924) = Jac_FULL(5252,5242) - JVS(47924) = 0 -! JVS(47925) = Jac_FULL(5252,5243) - JVS(47925) = -B(4043) -! JVS(47926) = Jac_FULL(5252,5244) - JVS(47926) = -B(1207) -! JVS(47927) = Jac_FULL(5252,5245) - JVS(47927) = -B(22725) -! JVS(47928) = Jac_FULL(5252,5246) - JVS(47928) = -B(3209)-B(3211) -! JVS(47929) = Jac_FULL(5252,5247) - JVS(47929) = -B(19430) -! JVS(47930) = Jac_FULL(5252,5248) - JVS(47930) = 0 -! JVS(47931) = Jac_FULL(5252,5249) - JVS(47931) = 0 -! JVS(47932) = Jac_FULL(5252,5250) - JVS(47932) = -B(38) -! JVS(47933) = Jac_FULL(5252,5251) - JVS(47933) = 0 -! JVS(47934) = Jac_FULL(5252,5252) - JVS(47934) = -B(7)-B(13)-2*B(17)-B(18)-B(39)-B(44)-B(924)-B(926)-B(935)-B(937)-B(951)-B(953)-B(957)-B(959)-B(968)& - &-B(970)-B(979)-B(981)-B(990)-B(992)-B(1001)-B(1003)-B(1011)-B(1013)-B(1022)-B(1024)-B(1034)-B(1036)& - &-B(1045)-B(1047)-B(1062)-B(1064)-B(1073)-B(1075)-B(1089)-B(1091)-B(1099)-B(1101)-B(1110)-B(1112)-B(1121)& - &-B(1123)-B(1132)-B(1134)-B(1143)-B(1145)-B(1154)-B(1156)-B(1164)-B(1166)-B(1175)-B(1184)-B(1186)-B(1195)& - &-B(1208)-B(1233)-B(1242)-B(1261)-B(1263)-B(1272)-B(1274)-B(1285)-B(1287)-B(1298)-B(1311)-B(1321)-B(1323)& - &-B(1336)-B(1346)-B(1348)-B(1357)-B(1359)-B(1372)-B(1382)-B(1384)-B(1393)-B(1401)-B(1403)-B(1416)-B(1426)& - &-B(1428)-B(1437)-B(1439)-B(1452)-B(1462)-B(1474)-B(1476)-B(1502)-B(1522)-B(1524)-B(1533)-B(1535)-B(1548)& - &-B(1558)-B(1567)-B(1580)-B(1582)-B(1591)-B(1600)-B(1602)-B(1611)-B(1613)-B(1622)-B(1624)-B(1632)-B(1634)& - &-B(1643)-B(1645)-B(1654)-B(1656)-B(1665)-B(1667)-B(1676)-B(1678)-B(1687)-B(1689)-B(1697)-B(1699)-B(1708)& - &-B(1710)-B(1719)-B(1721)-B(1730)-B(1732)-B(1741)-B(1743)-B(1752)-B(1754)-B(1763)-B(1765)-B(1774)-B(1776)& - &-B(1784)-B(1786)-B(1795)-B(1797)-B(1806)-B(1808)-B(1816)-B(1818)-B(1827)-B(1829)-B(1838)-B(1840)-B(1849)& - &-B(1851)-B(1859)-B(1861)-B(1870)-B(1872)-B(1881)-B(1883)-B(1892)-B(1894)-B(1902)-B(1904)-B(1913)-B(1915)& - &-B(1923)-B(1925)-B(1934)-B(1936)-B(1945)-B(1947)-B(1956)-B(1958)-B(1967)-B(1969)-B(1978)-B(1980)-B(1989)& - &-B(2001)-B(2010)-B(2023)-B(2032)-B(2045)-B(2047)-B(2056)-B(2065)-B(2073)-B(2086)-B(2095)-B(2108)-B(2110)& - &-B(2119)-B(2121)-B(2130)-B(2139)-B(2152)-B(2154)-B(2163)-B(2172)-B(2182)-B(2191)-B(2204)-B(2206)-B(2215)& - &-B(2224)-B(2236)-B(2245)-B(2258)-B(2260)-B(2269)-B(2271)-B(2280)-B(2289)-B(2302)-B(2304)-B(2313)-B(2315)& - &-B(2324)-B(2333)-B(2335)-B(2345)-B(2347)-B(2376)-B(2378)-B(2399)-B(2401)-B(2420)-B(2422)-B(2431)-B(2433)& - &-B(2463)-B(2465)-B(2474)-B(2476)-B(2507)-B(2509)-B(2518)-B(2520)-B(2550)-B(2552)-B(2573)-B(2575)-B(2594)& - &-B(2596)-B(2617)-B(2619)-B(2638)-B(2640)-B(2660)-B(2662)-B(2681)-B(2683)-B(2704)-B(2706)-B(2721)-B(2723)& - &-B(2732)-B(2734)-B(2764)-B(2766)-B(2775)-B(2777)-B(2804)-B(2806)-B(2815)-B(2817)-B(2847)-B(2849)-B(2880)& - &-B(2882)-B(2912)-B(2914)-B(2923)-B(2925)-B(2952)-B(2954)-B(2971)-B(2973)-B(2992)-B(3003)-B(3014)-B(3024)& - &-B(3031)-B(3040)-B(3042)-B(3058)-B(3060)-B(3069)-B(3071)-B(3080)-B(3082)-B(3091)-B(3093)-B(3127)-B(3129)& - &-B(3164)-B(3166)-B(3177)-B(3179)-B(3188)-B(3190)-B(3201)-B(3210)-B(3212)-B(3221)-B(3230)-B(3239)-B(3241)& - &-B(3250)-B(3259)-B(3268)-B(3270)-B(3279)-B(3287)-B(3289)-B(3298)-B(3300)-B(3309)-B(3311)-B(3320)-B(3329)& - &-B(3331)-B(3340)-B(3349)-B(3358)-B(3360)-B(3369)-B(3371)-B(3379)-B(3388)-B(3390)-B(3399)-B(3401)-B(3410)& - &-B(3418)-B(3431)-B(3433)-B(3441)-B(3443)-B(3452)-B(3454)-B(3462)-B(3470)-B(3493)-B(3495)-B(3503)-B(3505)& - &-B(3514)-B(3516)-B(3524)-B(3536)-B(3538)-B(3546)-B(3548)-B(3557)-B(3559)-B(3567)-B(3575)-B(3585)-B(3602)& - &-B(3604)-B(3612)-B(3614)-B(3623)-B(3625)-B(3782)-B(3816)-B(3826)-B(3828)-B(3989)-B(4001)-B(4030)-B(4044)& - &-B(4054)-B(4259)-B(4287)-B(4352)-B(4864)-B(4908)-B(4943)-B(5023)-B(5057)-B(5117)-B(5222)-B(5241)-B(5243)& - &-B(5252)-B(5275)-B(5289)-B(5306)-B(5314)-B(5352)-B(5366)-B(5368)-B(5377)-B(5419)-B(5434)-B(5436)-B(5445)& - &-B(5453)-B(5465)-B(5517)-B(5532)-B(5534)-B(5543)-B(5556)-B(5564)-B(5608)-B(5618)-B(5620)-B(5629)-B(5637)& - &-B(5649)-B(5681)-B(5689)-B(5722)-B(5736)-B(5738)-B(5747)-B(5768)-B(5780)-B(5813)-B(5827)-B(5829)-B(5838)& - &-B(5860)-B(5868)-B(5901)-B(5915)-B(5917)-B(5926)-B(5950)-B(5962)-B(5999)-B(6001)-B(6039)-B(6051)-B(6069)& - &-B(6079)-B(6081)-B(6090)-B(6126)-B(6136)-B(6148)-B(6166)-B(6168)-B(6176)-B(6215)-B(6230)-B(6232)-B(6241)& - &-B(6249)-B(6261)-B(6305)-B(6307)-B(6316)-B(6329)-B(6337)-B(6367)-B(6377)-B(6379)-B(6388)-B(6396)-B(6408)& - &-B(6453)-B(6465)-B(6467)-B(6475)-B(6486)-B(6494)-B(6516)-B(6524)-B(6549)-B(6565)-B(6567)-B(6575)-B(6587)& - &-B(6642)-B(6726)-B(6728)-B(6735)-B(6739)-B(6748)-B(6758)-B(6767)-B(6776)-B(6778)-B(6790)-B(6792)-B(6803)& - &-B(6805)-B(6817)-B(6819)-B(6848)-B(6857)-B(6859)-B(6868)-B(6877)-B(6879)-B(6886)-B(6897)-B(6899)-B(6908)& - &-B(6910)-B(6919)-B(6921)-B(6931)-B(6933)-B(7258)-B(7266)-B(7275)-B(7285)-B(7287)-B(7334)-B(7336)-B(7345)& - &-B(7347)-B(7356)-B(7358)-B(7366)-B(7377)-B(7416)-B(7425)-B(7434)-B(7436)-B(7445)-B(7514)-B(7523)-B(7538)& - &-B(7540)-B(7549)-B(7558)-B(7560)-B(7595)-B(7609)-B(7619)-B(7621)-B(7632)-B(7670)-B(7672)-B(7683)-B(7694)& - &-B(7703)-B(7705)-B(7718)-B(7740)-B(7766)-B(7788)-B(7799)-B(7812)-B(7826)-B(7836)-B(7849)-B(7859)-B(7861)& - &-B(7874)-B(7886)-B(7905)-B(7929)-B(7943)-B(7955)-B(7968)-B(7977)-B(7979)-B(7988)-B(7990)-B(7999)-B(8001)& - &-B(8012)-B(8021)-B(8023)-B(8034)-B(8043)-B(8045)-B(8054)-B(8056)-B(8065)-B(8067)-B(8078)-B(8087)-B(8089)& - &-B(8098)-B(8106)-B(8108)-B(8117)-B(8119)-B(8128)-B(8130)-B(8141)-B(8150)-B(8152)-B(8161)-B(8163)-B(8172)& - &-B(8180)-B(8182)-B(8193)-B(8202)-B(8204)-B(8217)-B(8227)-B(8229)-B(8242)-B(8252)-B(8254)-B(8263)-B(8270)& - &-B(8272)-B(8280)-B(8287)-B(8289)-B(8298)-B(8300)-B(8309)-B(8316)-B(8318)-B(8327)-B(8329)-B(8338)-B(8345)& - &-B(8347)-B(8356)-B(8363)-B(8365)-B(8374)-B(8381)-B(8383)-B(8392)-B(8399)-B(8401)-B(8410)-B(8417)-B(8419)& - &-B(8432)-B(8446)-B(8457)-B(8469)-B(8482)-B(8492)-B(8506)-B(8517)-B(8526)-B(8535)-B(8542)-B(8553)-B(8564)& - &-B(8577)-B(8590)-B(8599)-B(8610)-B(8620)-B(8629)-B(8640)-B(8649)-B(8658)-B(8677)-B(8700)-B(8710)-B(8744)& - &-B(8796)-B(8847)-B(8866)-B(8905)-B(8949)-B(8959)-B(9002)-B(9025)-B(9035)-B(9068)-B(9090)-B(9100)-B(9136)& - &-B(9167)-B(9177)-B(9234)-B(9257)-B(9271)-B(9320)-B(9339)-B(9374)-B(9395)-B(9441)-B(9460)-B(9502)-B(9552)& - &-B(9571)-B(9610)-B(9632)-B(9674)-B(9684)-B(9710)-B(9720)-B(9747)-B(9804)-B(9814)-B(9823)-B(9860)-B(9870)& - &-B(9901)-B(9923)-B(9933)-B(9975)-B(10034)-B(10114)-B(10133)-B(10206)-B(10217)-B(10242)-B(10264)-B(10274)& - &-B(10282)-B(10313)-B(10326)-B(10340)-B(10353)-B(10367)-B(10369)-B(10382)-B(10384)-B(10393)-B(10404)& - &-B(10418)-B(10420)-B(10433)-B(10447)-B(10506)-B(10575)-B(10631)-B(10633)-B(10643)-B(10645)-B(10655)& - &-B(10669)-B(10723)-B(10725)-B(10734)-B(10736)-B(10745)-B(10756)-B(10758)-B(10773)-B(10775)-B(10786)& - &-B(10788)-B(10799)-B(10801)-B(10814)-B(10824)-B(10833)-B(10842)-B(10851)-B(10858)-B(10867)-B(10880)& - &-B(10890)-B(10897)-B(10904)-B(10913)-B(10915)-B(10924)-B(10926)-B(10935)-B(10942)-B(10951)-B(10958)& - &-B(10969)-B(10978)-B(10985)-B(10992)-B(11005)-B(11015)-B(11024)-B(11042)-B(11053)-B(11105)-B(11107)& - &-B(11118)-B(11167)-B(11169)-B(11180)-B(11244)-B(11268)-B(11278)-B(11301)-B(11303)-B(11313)-B(11322)& - &-B(11324)-B(11336)-B(11338)-B(11372)-B(11374)-B(11527)-B(11536)-B(11545)-B(11552)-B(11649)-B(12340)& - &-B(12349)-B(12408)-B(12437)-B(12451)-B(12463)-B(12471)-B(12480)-B(12489)-B(12520)-B(12534)-B(12542)& - &-B(12549)-B(12558)-B(12604)-B(12624)-B(12632)-B(12639)-B(12648)-B(12656)-B(12663)-B(12670)-B(12716)& - &-B(12739)-B(12763)-B(12796)-B(12806)-B(12815)-B(12822)-B(12831)-B(12856)-B(12890)-B(12904)-B(12913)& - &-B(12920)-B(12929)-B(12954)-B(12961)-B(12988)-B(12998)-B(13007)-B(13014)-B(13023)-B(13048)-B(13077)& - &-B(13088)-B(13098)-B(13106)-B(13116)-B(13124)-B(13131)-B(13139)-B(13176)-B(13202)-B(13299)-B(13327)& - &-B(13334)-B(13358)-B(13380)-B(13390)-B(13398)-B(13405)-B(13414)-B(13440)-B(13506)-B(13537)-B(13561)& - &-B(13594)-B(13628)-B(13648)-B(13650)-B(13699)-B(13710)-B(13712)-B(13734)-B(13736)-B(13745)-B(13747)& - &-B(13758)-B(13760)-B(13789)-B(13803)-B(13814)-B(13816)-B(13823)-B(13825)-B(13836)-B(13838)-B(13846)& - &-B(13871)-B(13902)-B(13904)-B(13972)-B(13974)-B(14227)-B(14229)-B(14247)-B(14249)-B(14261)-B(14275)& - &-B(14285)-B(14292)-B(14302)-B(14311)-B(14318)-B(14320)-B(14343)-B(14345)-B(14353)-B(14355)-B(14364)& - &-B(14366)-B(14377)-B(14379)-B(14404)-B(14420)-B(14422)-B(14447)-B(14461)-B(14471)-B(14482)-B(14491)& - &-B(14498)-B(14511)-B(14523)-B(14525)-B(14533)-B(14535)-B(14556)-B(14565)-B(14578)-B(14588)-B(14597)& - &-B(14606)-B(14615)-B(14617)-B(14642)-B(14651)-B(14672)-B(14686)-B(14696)-B(14705)-B(14722)-B(14724)& - &-B(14732)-B(14747)-B(14749)-B(14757)-B(14759)-B(14768)-B(14775)-B(14777)-B(14786)-B(14794)-B(14804)& - &-B(14821)-B(14823)-B(14831)-B(14833)-B(14844)-B(14855)-B(14894)-B(14904)-B(14939)-B(14956)-B(14965)& - &-B(14967)-B(14985)-B(14995)-B(14997)-B(15012)-B(15014)-B(15027)-B(15037)-B(15048)-B(15061)-B(15071)& - &-B(15073)-B(15082)-B(15084)-B(15102)-B(15112)-B(15114)-B(15122)-B(15131)-B(15143)-B(15153)-B(15155)& - &-B(15168)-B(15182)-B(15203)-B(15210)-B(15217)-B(15219)-B(15228)-B(15248)-B(15255)-B(15257)-B(15270)& - &-B(15280)-B(15282)-B(15294)-B(15301)-B(15303)-B(15315)-B(15322)-B(15329)-B(15331)-B(15343)-B(15350)& - &-B(15357)-B(15359)-B(15371)-B(15378)-B(15385)-B(15387)-B(15399)-B(15406)-B(15408)-B(15419)-B(15444)& - &-B(15471)-B(15478)-B(15485)-B(15495)-B(15502)-B(15511)-B(15518)-B(15531)-B(15538)-B(15545)-B(15584)& - &-B(15591)-B(15616)-B(15658)-B(15665)-B(15672)-B(15681)-B(15688)-B(15748)-B(15755)-B(15762)-B(15770)& - &-B(15777)-B(15808)-B(15815)-B(15822)-B(15830)-B(15837)-B(15851)-B(15858)-B(15865)-B(15874)-B(15881)& - &-B(15923)-B(15936)-B(15947)-B(15954)-B(15961)-B(15970)-B(15977)-B(16021)-B(16049)-B(16056)-B(16063)& - &-B(16072)-B(16079)-B(16123)-B(16142)-B(16149)-B(16156)-B(16221)-B(16228)-B(16235)-B(16243)-B(16250)& - &-B(16262)-B(16273)-B(16280)-B(16287)-B(16296)-B(16303)-B(16317)-B(16324)-B(16331)-B(16339)-B(16346)& - &-B(16372)-B(16379)-B(16386)-B(16394)-B(16401)-B(16453)-B(16467)-B(16493)-B(16519)-B(16529)-B(16542)& - &-B(16568)-B(16617)-B(16655)-B(16697)-B(16733)-B(16744)-B(16746)-B(16755)-B(16783)-B(16790)-B(16792)& - &-B(16807)-B(16821)-B(16831)-B(16838)-B(16849)-B(16859)-B(16866)-B(16883)-B(16989)-B(17008)-B(17010)& - &-B(17024)-B(17036)-B(17046)-B(17048)-B(17065)-B(17079)-B(17081)-B(17089)-B(17091)-B(17148)-B(17157)& - &-B(17166)-B(17303)-B(17313)-B(17315)-B(17324)-B(17333)-B(17379)-B(17381)-B(17425)-B(17435)-B(17442)& - &-B(17449)-B(17475)-B(17489)-B(17511)-B(17541)-B(17571)-B(17581)-B(17666)-B(17752)-B(17754)-B(17763)& - &-B(17772)-B(17816)-B(17818)-B(17826)-B(17834)-B(17884)-B(17910)-B(17940)-B(17970)-B(18004)-B(18014)& - &-B(18049)-B(18058)-B(18065)-B(18107)-B(18114)-B(18151)-B(18158)-B(18165)-B(18203)-B(18215)-B(18223)& - &-B(18230)-B(18258)-B(18266)-B(18273)-B(18301)-B(18308)-B(18360)-B(18367)-B(18399)-B(18427)-B(18434)& - &-B(18466)-B(18498)-B(18505)-B(18526)-B(18533)-B(18540)-B(18568)-B(18579)-B(18586)-B(18616)-B(18623)& - &-B(18651)-B(18658)-B(18691)-B(18714)-B(18732)-B(18745)-B(18752)-B(18763)-B(18794)-B(18811)-B(18822)& - &-B(18840)-B(18859)-B(18873)-B(18889)-B(18913)-B(18915)-B(18923)-B(18934)-B(18946)-B(18983)-B(19013)& - &-B(19069)-B(19071)-B(19083)-B(19085)-B(19098)-B(19113)-B(19120)-B(19122)-B(19130)-B(19144)-B(19146)& - &-B(19154)-B(19163)-B(19165)-B(19177)-B(19187)-B(19202)-B(19204)-B(19216)-B(19274)-B(19284)-B(19286)& - &-B(19295)-B(19332)-B(19334)-B(19347)-B(19357)-B(19368)-B(19407)-B(19421)-B(19431)-B(19443)-B(19457)& - &-B(19469)-B(19471)-B(19508)-B(19510)-B(19521)-B(19523)-B(19599)-B(19601)-B(19615)-B(19624)-B(19681)& - &-B(19690)-B(19732)-B(19741)-B(19743)-B(19765)-B(19787)-B(19809)-B(19836)-B(19866)-B(19898)-B(19912)& - &-B(19933)-B(19959)-B(19970)-B(19983)-B(20002)-B(20031)-B(20057)-B(20079)-B(20092)-B(20114)-B(20144)& - &-B(20161)-B(20168)-B(20203)-B(20229)-B(20251)-B(20273)-B(20286)-B(20300)-B(20330)-B(20343)-B(20357)& - &-B(20371)-B(20403)-B(20417)-B(20439)-B(20469)-B(20496)-B(20503)-B(20535)-B(20559)-B(20577)-B(20586)& - &-B(20603)-B(20615)-B(20626)-B(20637)-B(20656)-B(20676)-B(20678)-B(20692)-B(20721)-B(20731)-B(20802)& - &-B(20804)-B(20817)-B(20828)-B(20868)-B(20877)-B(20879)-B(20887)-B(20889)-B(20910)-B(20912)-B(20938)& - &-B(20949)-B(20964)-B(20966)-B(20999)-B(21001)-B(21018)-B(21020)-B(21032)-B(21034)-B(21051)-B(21053)& - &-B(21065)-B(21084)-B(21092)-B(21094)-B(21112)-B(21120)-B(21127)-B(21151)-B(21170)-B(21177)-B(21195)& - &-B(21219)-B(21232)-B(21245)-B(21258)-B(21271)-B(21287)-B(21304)-B(21328)-B(21376)-B(21393)-B(21417)& - &-B(21435)-B(21473)-B(21490)-B(21507)-B(21539)-B(21548)-B(21663)-B(21679)-B(21689)-B(21721)-B(21731)& - &-B(21733)-B(21742)-B(21770)-B(21783)-B(21798)-B(21811)-B(21821)-B(21847)-B(21856)-B(21878)-B(21890)& - &-B(21903)-B(21913)-B(21915)-B(21930)-B(21968)-B(22018)-B(22028)-B(22030)-B(22085)-B(22087)-B(22102)& - &-B(22104)-B(22145)-B(22175)-B(22257)-B(22326)-B(22338)-B(22348)-B(22377)-B(22404)-B(22430)-B(22432)& - &-B(22454)-B(22456)-B(22485)-B(22539)-B(22549)-B(22558)-B(22560)-B(22577)-B(22586)-B(22588)-B(22601)& - &-B(22611)-B(22613)-B(22627)-B(22629)-B(22655)-B(22657)-B(22665)-B(22667)-B(22679)-B(22691)-B(22693)& - &-B(22726)-B(22739)-B(22750)-B(22752)-B(22775)-B(22783)-B(22791)-B(22807)-B(22816)-B(22823)-B(22848)& - &-B(22866)-B(22875)-B(22930)-B(22941)-B(22969)-B(23001)-B(23032)-B(23034)-B(23072)-B(23074)-B(23082)& - &-B(23095)-B(23130)-B(23155)-B(23157)-B(23171)-B(23173)-B(23189)-B(23205)-B(23207)-B(23256)-B(23258)& - &-B(23266)-B(23291)-B(23305)-B(23319)-B(23329)-B(23338)-B(23369)-B(23382)-B(23384)-B(23397)-B(23399)& - &-B(23411)-B(23432)-B(23434)-B(23467)-B(23480)-B(23482)-B(23547)-B(23585)-B(23639)-B(23649)-B(23687)& - &-B(23705)-B(23714)-B(23738)-B(23747)-B(23754)-B(23769)-B(23776)-B(23785)-B(23794)-B(23812)-B(23827)& - &-B(23850)-B(23869)-B(23871)-B(23976)-B(23985)-B(23996)-B(24005)-B(24039) -! JVS(47935) = Jac_FULL(5252,5253) - JVS(47935) = B(9)+B(20)+B(67) -! JVS(47936) = Jac_FULL(5252,5254) - JVS(47936) = 0 -! JVS(47937) = Jac_FULL(5252,5255) - JVS(47937) = -B(45) -! JVS(47938) = Jac_FULL(5252,5256) - JVS(47938) = -B(19)+B(21)+B(68) -! JVS(47939) = Jac_FULL(5252,5257) - JVS(47939) = 0 -! JVS(47940) = Jac_FULL(5252,5258) - JVS(47940) = -B(14) -! JVS(47941) = Jac_FULL(5253,23) - JVS(47941) = B(21447) -! JVS(47942) = Jac_FULL(5253,85) - JVS(47942) = B(21316) -! JVS(47943) = Jac_FULL(5253,86) - JVS(47943) = B(4090) -! JVS(47944) = Jac_FULL(5253,137) - JVS(47944) = B(72) -! JVS(47945) = Jac_FULL(5253,142) - JVS(47945) = B(21281) -! JVS(47946) = Jac_FULL(5253,244) - JVS(47946) = B(18482) -! JVS(47947) = Jac_FULL(5253,245) - JVS(47947) = B(21429) -! JVS(47948) = Jac_FULL(5253,259) - JVS(47948) = B(18344) -! JVS(47949) = Jac_FULL(5253,331) - JVS(47949) = B(18042) -! JVS(47950) = Jac_FULL(5253,337) - JVS(47950) = B(52) -! JVS(47951) = Jac_FULL(5253,422) - JVS(47951) = B(21405) -! JVS(47952) = Jac_FULL(5253,448) - JVS(47952) = B(18415) -! JVS(47953) = Jac_FULL(5253,529) - JVS(47953) = B(10443) -! JVS(47954) = Jac_FULL(5253,530) - JVS(47954) = B(23630) -! JVS(47955) = Jac_FULL(5253,535) - JVS(47955) = B(18083) -! JVS(47956) = Jac_FULL(5253,543) - JVS(47956) = B(22964) -! JVS(47957) = Jac_FULL(5253,550) - JVS(47957) = B(16427) -! JVS(47958) = Jac_FULL(5253,555) - JVS(47958) = B(18283) -! JVS(47959) = Jac_FULL(5253,563) - JVS(47959) = B(10414) -! JVS(47960) = Jac_FULL(5253,573) - JVS(47960) = B(5193) -! JVS(47961) = Jac_FULL(5253,583) - JVS(47961) = B(22322) -! JVS(47962) = Jac_FULL(5253,584) - JVS(47962) = B(16190) -! JVS(47963) = Jac_FULL(5253,587) - JVS(47963) = B(17019) -! JVS(47964) = Jac_FULL(5253,597) - JVS(47964) = B(18596) -! JVS(47965) = Jac_FULL(5253,621) - JVS(47965) = B(14551) -! JVS(47966) = Jac_FULL(5253,629) - JVS(47966) = B(18550) -! JVS(47967) = Jac_FULL(5253,635) - JVS(47967) = B(7410) -! JVS(47968) = Jac_FULL(5253,649) - JVS(47968) = B(17142) -! JVS(47969) = Jac_FULL(5253,660) - JVS(47969) = B(15706) -! JVS(47970) = Jac_FULL(5253,662) - JVS(47970) = B(21925) -! JVS(47971) = Jac_FULL(5253,669) - JVS(47971) = B(12290) -! JVS(47972) = Jac_FULL(5253,670) - JVS(47972) = B(7240) -! JVS(47973) = Jac_FULL(5253,673) - JVS(47973) = B(17373) -! JVS(47974) = Jac_FULL(5253,692) - JVS(47974) = B(17294) -! JVS(47975) = Jac_FULL(5253,712) - JVS(47975) = B(15580) -! JVS(47976) = Jac_FULL(5253,713) - JVS(47976) = B(15423)+B(15425) -! JVS(47977) = Jac_FULL(5253,737) - JVS(47977) = B(12211) -! JVS(47978) = Jac_FULL(5253,743) - JVS(47978) = B(18444) -! JVS(47979) = Jac_FULL(5253,744) - JVS(47979) = B(18377) -! JVS(47980) = Jac_FULL(5253,746) - JVS(47980) = B(18318) -! JVS(47981) = Jac_FULL(5253,747) - JVS(47981) = B(15727) -! JVS(47982) = Jac_FULL(5253,753) - JVS(47982) = B(18240) -! JVS(47983) = Jac_FULL(5253,780) - JVS(47983) = B(18668) -! JVS(47984) = Jac_FULL(5253,790) - JVS(47984) = B(13832) -! JVS(47985) = Jac_FULL(5253,797) - JVS(47985) = B(7477) -! JVS(47986) = Jac_FULL(5253,798) - JVS(47986) = B(18633) -! JVS(47987) = Jac_FULL(5253,800) - JVS(47987) = B(15633) -! JVS(47988) = Jac_FULL(5253,809) - JVS(47988) = B(18175) -! JVS(47989) = Jac_FULL(5253,814) - JVS(47989) = B(16180) -! JVS(47990) = Jac_FULL(5253,815) - JVS(47990) = B(12317) -! JVS(47991) = Jac_FULL(5253,816) - JVS(47991) = B(18095) -! JVS(47992) = Jac_FULL(5253,819) - JVS(47992) = B(13662) -! JVS(47993) = Jac_FULL(5253,834) - JVS(47993) = B(12279) -! JVS(47994) = Jac_FULL(5253,840) - JVS(47994) = B(11139)+B(11141) -! JVS(47995) = Jac_FULL(5253,893) - JVS(47995) = B(20454) -! JVS(47996) = Jac_FULL(5253,905) - JVS(47996) = B(7569) -! JVS(47997) = Jac_FULL(5253,924) - JVS(47997) = B(12247) -! JVS(47998) = Jac_FULL(5253,925) - JVS(47998) = B(48)+B(73) -! JVS(47999) = Jac_FULL(5253,991) - JVS(47999) = B(13547) -! JVS(48000) = Jac_FULL(5253,1000) - JVS(48000) = B(6351)+B(6353) -! JVS(48001) = Jac_FULL(5253,1005) - JVS(48001) = B(11504) -! JVS(48002) = Jac_FULL(5253,1011) - JVS(48002) = B(4345) -! JVS(48003) = Jac_FULL(5253,1026) - JVS(48003) = B(21208) -! JVS(48004) = Jac_FULL(5253,1057) - JVS(48004) = B(14387)+B(14389) -! JVS(48005) = Jac_FULL(5253,1058) - JVS(48005) = B(7455) -! JVS(48006) = Jac_FULL(5253,1078) - JVS(48006) = B(12200) -! JVS(48007) = Jac_FULL(5253,1081) - JVS(48007) = B(3953) -! JVS(48008) = Jac_FULL(5253,1083) - JVS(48008) = B(6532)+B(6534) -! JVS(48009) = Jac_FULL(5253,1086) - JVS(48009) = B(12569)+B(12571) -! JVS(48010) = Jac_FULL(5253,1110) - JVS(48010) = B(12176) -! JVS(48011) = Jac_FULL(5253,1151) - JVS(48011) = B(17176) -! JVS(48012) = Jac_FULL(5253,1172) - JVS(48012) = B(6670) -! JVS(48013) = Jac_FULL(5253,1184) - JVS(48013) = B(18726) -! JVS(48014) = Jac_FULL(5253,1216) - JVS(48014) = B(6434)+B(6436) -! JVS(48015) = Jac_FULL(5253,1222) - JVS(48015) = B(21566) -! JVS(48016) = Jac_FULL(5253,1240) - JVS(48016) = B(6583) -! JVS(48017) = Jac_FULL(5253,1261) - JVS(48017) = B(12258) -! JVS(48018) = Jac_FULL(5253,1284) - JVS(48018) = B(16959)+B(16961) -! JVS(48019) = Jac_FULL(5253,1311) - JVS(48019) = B(16941) -! JVS(48020) = Jac_FULL(5253,1321) - JVS(48020) = B(18998) -! JVS(48021) = Jac_FULL(5253,1334) - JVS(48021) = B(17390) -! JVS(48022) = Jac_FULL(5253,1363) - JVS(48022) = B(12219) -! JVS(48023) = Jac_FULL(5253,1368) - JVS(48023) = B(13268)+B(13270) -! JVS(48024) = Jac_FULL(5253,1400) - JVS(48024) = B(3927) -! JVS(48025) = Jac_FULL(5253,1457) - JVS(48025) = B(20304) -! JVS(48026) = Jac_FULL(5253,1482) - JVS(48026) = B(21136) -! JVS(48027) = Jac_FULL(5253,1494) - JVS(48027) = B(21574) -! JVS(48028) = Jac_FULL(5253,1529) - JVS(48028) = B(13571) -! JVS(48029) = Jac_FULL(5253,1531) - JVS(48029) = B(11477) -! JVS(48030) = Jac_FULL(5253,1549) - JVS(48030) = B(8994) -! JVS(48031) = Jac_FULL(5253,1551) - JVS(48031) = B(22003)+B(22005) -! JVS(48032) = Jac_FULL(5253,1554) - JVS(48032) = B(10106) -! JVS(48033) = Jac_FULL(5253,1555) - JVS(48033) = B(10052) -! JVS(48034) = Jac_FULL(5253,1562) - JVS(48034) = B(12218) -! JVS(48035) = Jac_FULL(5253,1567) - JVS(48035) = B(9967) -! JVS(48036) = Jac_FULL(5253,1589) - JVS(48036) = B(9837) -! JVS(48037) = Jac_FULL(5253,1591) - JVS(48037) = B(22051)+B(22053) -! JVS(48038) = Jac_FULL(5253,1594) - JVS(48038) = B(10196) -! JVS(48039) = Jac_FULL(5253,1603) - JVS(48039) = 2*B(18780) -! JVS(48040) = Jac_FULL(5253,1613) - JVS(48040) = B(9289) -! JVS(48041) = Jac_FULL(5253,1621) - JVS(48041) = B(12297) -! JVS(48042) = Jac_FULL(5253,1625) - JVS(48042) = B(18777) -! JVS(48043) = Jac_FULL(5253,1629) - JVS(48043) = B(17350)+B(17352) -! JVS(48044) = Jac_FULL(5253,1639) - JVS(48044) = B(22294)+B(22296) -! JVS(48045) = Jac_FULL(5253,1645) - JVS(48045) = -B(12619) -! JVS(48046) = Jac_FULL(5253,1647) - JVS(48046) = B(9624) -! JVS(48047) = Jac_FULL(5253,1649) - JVS(48047) = B(22702)+B(22704) -! JVS(48048) = Jac_FULL(5253,1651) - JVS(48048) = B(18851) -! JVS(48049) = Jac_FULL(5253,1657) - JVS(48049) = B(19488)+B(19490) -! JVS(48050) = Jac_FULL(5253,1664) - JVS(48050) = B(9154) -! JVS(48051) = Jac_FULL(5253,1669) - JVS(48051) = B(9739) -! JVS(48052) = Jac_FULL(5253,1672) - JVS(48052) = B(9387) -! JVS(48053) = Jac_FULL(5253,1700) - JVS(48053) = B(9226) -! JVS(48054) = Jac_FULL(5253,1717) - JVS(48054) = B(9520) -! JVS(48055) = Jac_FULL(5253,1729) - JVS(48055) = B(10230) -! JVS(48056) = Jac_FULL(5253,1747) - JVS(48056) = B(8788) -! JVS(48057) = Jac_FULL(5253,1748) - JVS(48057) = B(16586) -! JVS(48058) = Jac_FULL(5253,1749) - JVS(48058) = B(4111)+B(4112) -! JVS(48059) = Jac_FULL(5253,1752) - JVS(48059) = B(21102)+B(21104) -! JVS(48060) = Jac_FULL(5253,1766) - JVS(48060) = B(22977) -! JVS(48061) = Jac_FULL(5253,1770) - JVS(48061) = B(14336) -! JVS(48062) = Jac_FULL(5253,1771) - JVS(48062) = B(11382)+B(11384) -! JVS(48063) = Jac_FULL(5253,1772) - JVS(48063) = B(6010)+B(6012) -! JVS(48064) = Jac_FULL(5253,1780) - JVS(48064) = B(12090)+B(12091) -! JVS(48065) = Jac_FULL(5253,1782) - JVS(48065) = B(3705) -! JVS(48066) = Jac_FULL(5253,1783) - JVS(48066) = 0 -! JVS(48067) = Jac_FULL(5253,1785) - JVS(48067) = B(4850) -! JVS(48068) = Jac_FULL(5253,1786) - JVS(48068) = B(23665)+B(23667) -! JVS(48069) = Jac_FULL(5253,1788) - JVS(48069) = B(4663)+B(4664) -! JVS(48070) = Jac_FULL(5253,1794) - JVS(48070) = B(5297)+B(5299) -! JVS(48071) = Jac_FULL(5253,1798) - JVS(48071) = B(11794)+B(11795) -! JVS(48072) = Jac_FULL(5253,1800) - JVS(48072) = B(3749)+B(3750) -! JVS(48073) = Jac_FULL(5253,1802) - JVS(48073) = 0 -! JVS(48074) = Jac_FULL(5253,1804) - JVS(48074) = B(20456) -! JVS(48075) = Jac_FULL(5253,1807) - JVS(48075) = B(15426)+B(15428) -! JVS(48076) = Jac_FULL(5253,1811) - JVS(48076) = B(22916)+B(22918) -! JVS(48077) = Jac_FULL(5253,1813) - JVS(48077) = B(23146)+B(23148) -! JVS(48078) = Jac_FULL(5253,1819) - JVS(48078) = B(5479)+B(5481) -! JVS(48079) = Jac_FULL(5253,1823) - JVS(48079) = B(20785)+B(20787) -! JVS(48080) = Jac_FULL(5253,1824) - JVS(48080) = B(4767)+B(4768) -! JVS(48081) = Jac_FULL(5253,1827) - JVS(48081) = B(5100) -! JVS(48082) = Jac_FULL(5253,1829) - JVS(48082) = B(17849)+B(17850) -! JVS(48083) = Jac_FULL(5253,1830) - JVS(48083) = 0 -! JVS(48084) = Jac_FULL(5253,1831) - JVS(48084) = B(4722)+B(4723) -! JVS(48085) = Jac_FULL(5253,1835) - JVS(48085) = B(17057) -! JVS(48086) = Jac_FULL(5253,1841) - JVS(48086) = B(7096)+B(7098) -! JVS(48087) = Jac_FULL(5253,1844) - JVS(48087) = 0 -! JVS(48088) = Jac_FULL(5253,1846) - JVS(48088) = B(10692)+B(10694) -! JVS(48089) = Jac_FULL(5253,1850) - JVS(48089) = 0 -! JVS(48090) = Jac_FULL(5253,1853) - JVS(48090) = B(4337)+B(4339) -! JVS(48091) = Jac_FULL(5253,1856) - JVS(48091) = B(14113)+B(14114) -! JVS(48092) = Jac_FULL(5253,1862) - JVS(48092) = 0 -! JVS(48093) = Jac_FULL(5253,1864) - JVS(48093) = B(13983)+B(13985) -! JVS(48094) = Jac_FULL(5253,1881) - JVS(48094) = B(5935)+B(5937) -! JVS(48095) = Jac_FULL(5253,1883) - JVS(48095) = B(23420)+B(23422) -! JVS(48096) = Jac_FULL(5253,1889) - JVS(48096) = B(12162)+B(12164) -! JVS(48097) = Jac_FULL(5253,1894) - JVS(48097) = B(4023) -! JVS(48098) = Jac_FULL(5253,1895) - JVS(48098) = B(7002)+B(7004) -! JVS(48099) = Jac_FULL(5253,1896) - JVS(48099) = B(6275)+B(6277) -! JVS(48100) = Jac_FULL(5253,1902) - JVS(48100) = B(11613)+B(11614) -! JVS(48101) = Jac_FULL(5253,1904) - JVS(48101) = B(7112)+B(7114) -! JVS(48102) = Jac_FULL(5253,1905) - JVS(48102) = B(7469) -! JVS(48103) = Jac_FULL(5253,1909) - JVS(48103) = B(10715)+B(10717) -! JVS(48104) = Jac_FULL(5253,1912) - JVS(48104) = B(23657) -! JVS(48105) = Jac_FULL(5253,1915) - JVS(48105) = B(7411) -! JVS(48106) = Jac_FULL(5253,1916) - JVS(48106) = B(12193) -! JVS(48107) = Jac_FULL(5253,1918) - JVS(48107) = B(14626) -! JVS(48108) = Jac_FULL(5253,1919) - JVS(48108) = B(4689)+B(4690) -! JVS(48109) = Jac_FULL(5253,1921) - JVS(48109) = B(4217)+B(4218) -! JVS(48110) = Jac_FULL(5253,1922) - JVS(48110) = B(6947)+B(6949) -! JVS(48111) = Jac_FULL(5253,1930) - JVS(48111) = B(23215)+B(23217) -! JVS(48112) = Jac_FULL(5253,1933) - JVS(48112) = B(16970)+B(16972) -! JVS(48113) = Jac_FULL(5253,1939) - JVS(48113) = B(20451)+B(20452) -! JVS(48114) = Jac_FULL(5253,1941) - JVS(48114) = B(22513)+B(22515) -! JVS(48115) = Jac_FULL(5253,1943) - JVS(48115) = 0 -! JVS(48116) = Jac_FULL(5253,1946) - JVS(48116) = B(4384)+B(4386) -! JVS(48117) = Jac_FULL(5253,1952) - JVS(48117) = B(14002)+B(14004) -! JVS(48118) = Jac_FULL(5253,1954) - JVS(48118) = B(7141)+B(7143) -! JVS(48119) = Jac_FULL(5253,1957) - JVS(48119) = B(3888) -! JVS(48120) = Jac_FULL(5253,1963) - JVS(48120) = B(19644)+B(19645) -! JVS(48121) = Jac_FULL(5253,1964) - JVS(48121) = B(5707)+B(5709) -! JVS(48122) = Jac_FULL(5253,1965) - JVS(48122) = B(4420)+B(4422) -! JVS(48123) = Jac_FULL(5253,1970) - JVS(48123) = B(21578) -! JVS(48124) = Jac_FULL(5253,1972) - JVS(48124) = B(23060)+B(23062) -! JVS(48125) = Jac_FULL(5253,1974) - JVS(48125) = B(4150)+B(4151) -! JVS(48126) = Jac_FULL(5253,1976) - JVS(48126) = B(3875) -! JVS(48127) = Jac_FULL(5253,1977) - JVS(48127) = B(3847) -! JVS(48128) = Jac_FULL(5253,1978) - JVS(48128) = B(17589)+B(17590) -! JVS(48129) = Jac_FULL(5253,1979) - JVS(48129) = 0 -! JVS(48130) = Jac_FULL(5253,1980) - JVS(48130) = B(11838)+B(11839) -! JVS(48131) = Jac_FULL(5253,1981) - JVS(48131) = B(16679) -! JVS(48132) = Jac_FULL(5253,1987) - JVS(48132) = B(4483)+B(4484) -! JVS(48133) = Jac_FULL(5253,1990) - JVS(48133) = 0 -! JVS(48134) = Jac_FULL(5253,1991) - JVS(48134) = B(18783) -! JVS(48135) = Jac_FULL(5253,1995) - JVS(48135) = B(17143) -! JVS(48136) = Jac_FULL(5253,1996) - JVS(48136) = B(20846)+B(20848) -! JVS(48137) = Jac_FULL(5253,1997) - JVS(48137) = B(12180) -! JVS(48138) = Jac_FULL(5253,1999) - JVS(48138) = 0 -! JVS(48139) = Jac_FULL(5253,2003) - JVS(48139) = B(21563)+B(21565) -! JVS(48140) = Jac_FULL(5253,2007) - JVS(48140) = B(21938) -! JVS(48141) = Jac_FULL(5253,2011) - JVS(48141) = B(5112) -! JVS(48142) = Jac_FULL(5253,2014) - JVS(48142) = B(5386)+B(5388) -! JVS(48143) = Jac_FULL(5253,2020) - JVS(48143) = B(4803)+B(4804) -! JVS(48144) = Jac_FULL(5253,2023) - JVS(48144) = B(7241) -! JVS(48145) = Jac_FULL(5253,2028) - JVS(48145) = B(12291)+B(12294) -! JVS(48146) = Jac_FULL(5253,2032) - JVS(48146) = B(22896)+B(22898) -! JVS(48147) = Jac_FULL(5253,2034) - JVS(48147) = B(20663)+B(20665) -! JVS(48148) = Jac_FULL(5253,2036) - JVS(48148) = B(12262) -! JVS(48149) = Jac_FULL(5253,2037) - JVS(48149) = B(3741) -! JVS(48150) = Jac_FULL(5253,2040) - JVS(48150) = B(6697)+B(6698) -! JVS(48151) = Jac_FULL(5253,2045) - JVS(48151) = B(11907)+B(11908) -! JVS(48152) = Jac_FULL(5253,2046) - JVS(48152) = 0 -! JVS(48153) = Jac_FULL(5253,2049) - JVS(48153) = B(12039)+B(12040) -! JVS(48154) = Jac_FULL(5253,2053) - JVS(48154) = 0 -! JVS(48155) = Jac_FULL(5253,2061) - JVS(48155) = B(11224)+B(11226) -! JVS(48156) = Jac_FULL(5253,2063) - JVS(48156) = B(21977)+B(21979) -! JVS(48157) = Jac_FULL(5253,2065) - JVS(48157) = 0 -! JVS(48158) = Jac_FULL(5253,2067) - JVS(48158) = B(5168) -! JVS(48159) = Jac_FULL(5253,2068) - JVS(48159) = 0 -! JVS(48160) = Jac_FULL(5253,2072) - JVS(48160) = B(21946)+B(21948) -! JVS(48161) = Jac_FULL(5253,2074) - JVS(48161) = B(11457)+B(11458) -! JVS(48162) = Jac_FULL(5253,2075) - JVS(48162) = B(6962)+B(6964) -! JVS(48163) = Jac_FULL(5253,2077) - JVS(48163) = B(4128)+B(4130) -! JVS(48164) = Jac_FULL(5253,2078) - JVS(48164) = B(6502)+B(6504) -! JVS(48165) = Jac_FULL(5253,2079) - JVS(48165) = B(17284)+B(17286) -! JVS(48166) = Jac_FULL(5253,2083) - JVS(48166) = B(7067)+B(7069) -! JVS(48167) = Jac_FULL(5253,2086) - JVS(48167) = B(4500)+B(4501) -! JVS(48168) = Jac_FULL(5253,2087) - JVS(48168) = B(6185)+B(6187) -! JVS(48169) = Jac_FULL(5253,2091) - JVS(48169) = 0 -! JVS(48170) = Jac_FULL(5253,2092) - JVS(48170) = B(7081)+B(7082) -! JVS(48171) = Jac_FULL(5253,2093) - JVS(48171) = 0 -! JVS(48172) = Jac_FULL(5253,2094) - JVS(48172) = B(4701)+B(4702) -! JVS(48173) = Jac_FULL(5253,2096) - JVS(48173) = B(3635) -! JVS(48174) = Jac_FULL(5253,2097) - JVS(48174) = B(4648)+B(4649) -! JVS(48175) = Jac_FULL(5253,2099) - JVS(48175) = B(6621)+B(6622) -! JVS(48176) = Jac_FULL(5253,2105) - JVS(48176) = B(18723) -! JVS(48177) = Jac_FULL(5253,2106) - JVS(48177) = B(4203)+B(4205) -! JVS(48178) = Jac_FULL(5253,2108) - JVS(48178) = B(11415)+B(11417) -! JVS(48179) = Jac_FULL(5253,2113) - JVS(48179) = B(4791)+B(4792) -! JVS(48180) = Jac_FULL(5253,2123) - JVS(48180) = B(14121)+B(14122) -! JVS(48181) = Jac_FULL(5253,2124) - JVS(48181) = B(17897)+B(17898) -! JVS(48182) = Jac_FULL(5253,2128) - JVS(48182) = B(3689)+B(3691) -! JVS(48183) = Jac_FULL(5253,2129) - JVS(48183) = B(12323) -! JVS(48184) = Jac_FULL(5253,2136) - JVS(48184) = B(23048)+B(23050) -! JVS(48185) = Jac_FULL(5253,2142) - JVS(48185) = B(23762) -! JVS(48186) = Jac_FULL(5253,2149) - JVS(48186) = B(4509)+B(4510) -! JVS(48187) = Jac_FULL(5253,2150) - JVS(48187) = B(12172) -! JVS(48188) = Jac_FULL(5253,2152) - JVS(48188) = 0 -! JVS(48189) = Jac_FULL(5253,2155) - JVS(48189) = B(19312)+B(19314) -! JVS(48190) = Jac_FULL(5253,2157) - JVS(48190) = B(22039)+B(22041) -! JVS(48191) = Jac_FULL(5253,2161) - JVS(48191) = B(4743)+B(4744) -! JVS(48192) = Jac_FULL(5253,2164) - JVS(48192) = B(23114)+B(23116) -! JVS(48193) = Jac_FULL(5253,2165) - JVS(48193) = B(17238)+B(17240) -! JVS(48194) = Jac_FULL(5253,2166) - JVS(48194) = 0 -! JVS(48195) = Jac_FULL(5253,2168) - JVS(48195) = B(4521)+B(4522) -! JVS(48196) = Jac_FULL(5253,2169) - JVS(48196) = B(4632)+B(4633) -! JVS(48197) = Jac_FULL(5253,2172) - JVS(48197) = B(11696)+B(11697) -! JVS(48198) = Jac_FULL(5253,2176) - JVS(48198) = B(12223) -! JVS(48199) = Jac_FULL(5253,2180) - JVS(48199) = 0 -! JVS(48200) = Jac_FULL(5253,2181) - JVS(48200) = B(7250) -! JVS(48201) = Jac_FULL(5253,2182) - JVS(48201) = B(11855)+B(11856) -! JVS(48202) = Jac_FULL(5253,2183) - JVS(48202) = B(21570) -! JVS(48203) = Jac_FULL(5253,2184) - JVS(48203) = B(7478) -! JVS(48204) = Jac_FULL(5253,2185) - JVS(48204) = B(17871)+B(17872) -! JVS(48205) = Jac_FULL(5253,2189) - JVS(48205) = B(11769)+B(11770) -! JVS(48206) = Jac_FULL(5253,2193) - JVS(48206) = B(4450)+B(4451) -! JVS(48207) = Jac_FULL(5253,2194) - JVS(48207) = B(4549)+B(4550) -! JVS(48208) = Jac_FULL(5253,2195) - JVS(48208) = B(22071)+B(22073) -! JVS(48209) = Jac_FULL(5253,2196) - JVS(48209) = B(4430)+B(4432) -! JVS(48210) = Jac_FULL(5253,2198) - JVS(48210) = B(3792)+B(3793) -! JVS(48211) = Jac_FULL(5253,2199) - JVS(48211) = B(4620)+B(4621) -! JVS(48212) = Jac_FULL(5253,2202) - JVS(48212) = B(12058)+B(12059) -! JVS(48213) = Jac_FULL(5253,2206) - JVS(48213) = B(12126)+B(12127) -! JVS(48214) = Jac_FULL(5253,2213) - JVS(48214) = B(7173)+B(7175) -! JVS(48215) = Jac_FULL(5253,2215) - JVS(48215) = B(7226)+B(7228) -! JVS(48216) = Jac_FULL(5253,2216) - JVS(48216) = B(4755)+B(4756) -! JVS(48217) = Jac_FULL(5253,2218) - JVS(48217) = B(11975)+B(11976) -! JVS(48218) = Jac_FULL(5253,2220) - JVS(48218) = B(3901)+B(3902) -! JVS(48219) = Jac_FULL(5253,2222) - JVS(48219) = B(6613) -! JVS(48220) = Jac_FULL(5253,2224) - JVS(48220) = B(23020)+B(23022) -! JVS(48221) = Jac_FULL(5253,2232) - JVS(48221) = B(6098)+B(6100) -! JVS(48222) = Jac_FULL(5253,2237) - JVS(48222) = B(4394)+B(4395) -! JVS(48223) = Jac_FULL(5253,2239) - JVS(48223) = B(17364)+B(17366) -! JVS(48224) = Jac_FULL(5253,2240) - JVS(48224) = B(11677)+B(11679) -! JVS(48225) = Jac_FULL(5253,2241) - JVS(48225) = B(5976)+B(5978) -! JVS(48226) = Jac_FULL(5253,2242) - JVS(48226) = B(7583) -! JVS(48227) = Jac_FULL(5253,2245) - JVS(48227) = B(17927)+B(17928) -! JVS(48228) = Jac_FULL(5253,2246) - JVS(48228) = B(4594)+B(4595) -! JVS(48229) = Jac_FULL(5253,2250) - JVS(48229) = B(19532)+B(19534) -! JVS(48230) = Jac_FULL(5253,2253) - JVS(48230) = B(17649)+B(17650) -! JVS(48231) = Jac_FULL(5253,2254) - JVS(48231) = B(14634) -! JVS(48232) = Jac_FULL(5253,2256) - JVS(48232) = B(17634)+B(17635) -! JVS(48233) = Jac_FULL(5253,2257) - JVS(48233) = B(23696)+B(23698) -! JVS(48234) = Jac_FULL(5253,2261) - JVS(48234) = B(3725)+B(3727) -! JVS(48235) = Jac_FULL(5253,2262) - JVS(48235) = 0 -! JVS(48236) = Jac_FULL(5253,2267) - JVS(48236) = 0 -! JVS(48237) = Jac_FULL(5253,2268) - JVS(48237) = B(12108)+B(12109) -! JVS(48238) = Jac_FULL(5253,2270) - JVS(48238) = B(17527)+B(17528) -! JVS(48239) = Jac_FULL(5253,2271) - JVS(48239) = B(17987)+B(17988) -! JVS(48240) = Jac_FULL(5253,2275) - JVS(48240) = B(23502)+B(23504) -! JVS(48241) = Jac_FULL(5253,2276) - JVS(48241) = B(4015) -! JVS(48242) = Jac_FULL(5253,2277) - JVS(48242) = B(4578)+B(4579) -! JVS(48243) = Jac_FULL(5253,2278) - JVS(48243) = B(4924) -! JVS(48244) = Jac_FULL(5253,2280) - JVS(48244) = B(14714) -! JVS(48245) = Jac_FULL(5253,2282) - JVS(48245) = B(17790)+B(17791) -! JVS(48246) = Jac_FULL(5253,2285) - JVS(48246) = B(4409)+B(4411) -! JVS(48247) = Jac_FULL(5253,2288) - JVS(48247) = B(17374) -! JVS(48248) = Jac_FULL(5253,2290) - JVS(48248) = B(12283) -! JVS(48249) = Jac_FULL(5253,2291) - JVS(48249) = B(12026)+B(12027) -! JVS(48250) = Jac_FULL(5253,2294) - JVS(48250) = 0 -! JVS(48251) = Jac_FULL(5253,2296) - JVS(48251) = B(11127)+B(11129) -! JVS(48252) = Jac_FULL(5253,2297) - JVS(48252) = B(3767) -! JVS(48253) = Jac_FULL(5253,2299) - JVS(48253) = B(12072)+B(12073) -! JVS(48254) = Jac_FULL(5253,2302) - JVS(48254) = B(5664)+B(5666) -! JVS(48255) = Jac_FULL(5253,2303) - JVS(48255) = B(23727)+B(23729) -! JVS(48256) = Jac_FULL(5253,2306) - JVS(48256) = B(3644)+B(3645) -! JVS(48257) = Jac_FULL(5253,2309) - JVS(48257) = B(5578)+B(5580) -! JVS(48258) = Jac_FULL(5253,2311) - JVS(48258) = B(22641)+B(22643) -! JVS(48259) = Jac_FULL(5253,2313) - JVS(48259) = B(11088)+B(11090) -! JVS(48260) = Jac_FULL(5253,2314) - JVS(48260) = B(12251) -! JVS(48261) = Jac_FULL(5253,2317) - JVS(48261) = B(5494)+B(5496) -! JVS(48262) = Jac_FULL(5253,2321) - JVS(48262) = B(5756)+B(5758) -! JVS(48263) = Jac_FULL(5253,2325) - JVS(48263) = B(17342) -! JVS(48264) = Jac_FULL(5253,2327) - JVS(48264) = B(23105)+B(23107) -! JVS(48265) = Jac_FULL(5253,2328) - JVS(48265) = B(21703)+B(21705) -! JVS(48266) = Jac_FULL(5253,2330) - JVS(48266) = B(17957)+B(17958) -! JVS(48267) = Jac_FULL(5253,2332) - JVS(48267) = B(22359)+B(22361) -! JVS(48268) = Jac_FULL(5253,2333) - JVS(48268) = B(6422)+B(6424) -! JVS(48269) = Jac_FULL(5253,2337) - JVS(48269) = B(4440)+B(4441) -! JVS(48270) = Jac_FULL(5253,2338) - JVS(48270) = B(4167)+B(4169) -! JVS(48271) = Jac_FULL(5253,2341) - JVS(48271) = B(5205)+B(5207) -! JVS(48272) = Jac_FULL(5253,2342) - JVS(48272) = 0 -! JVS(48273) = Jac_FULL(5253,2343) - JVS(48273) = B(7318) -! JVS(48274) = Jac_FULL(5253,2344) - JVS(48274) = B(12336) -! JVS(48275) = Jac_FULL(5253,2345) - JVS(48275) = B(21618) -! JVS(48276) = Jac_FULL(5253,2347) - JVS(48276) = B(14660) -! JVS(48277) = Jac_FULL(5253,2350) - JVS(48277) = B(4537)+B(4538) -! JVS(48278) = Jac_FULL(5253,2351) - JVS(48278) = 0 -! JVS(48279) = Jac_FULL(5253,2352) - JVS(48279) = B(20898)+B(20900) -! JVS(48280) = Jac_FULL(5253,2354) - JVS(48280) = B(16711) -! JVS(48281) = Jac_FULL(5253,2365) - JVS(48281) = B(7036)+B(7038) -! JVS(48282) = Jac_FULL(5253,2367) - JVS(48282) = B(3676) -! JVS(48283) = Jac_FULL(5253,2368) - JVS(48283) = 0 -! JVS(48284) = Jac_FULL(5253,2370) - JVS(48284) = B(5156) -! JVS(48285) = Jac_FULL(5253,2372) - JVS(48285) = B(6113)+B(6115) -! JVS(48286) = Jac_FULL(5253,2375) - JVS(48286) = B(13930)+B(13932) -! JVS(48287) = Jac_FULL(5253,2378) - JVS(48287) = B(19303) -! JVS(48288) = Jac_FULL(5253,2382) - JVS(48288) = B(18776) -! JVS(48289) = Jac_FULL(5253,2383) - JVS(48289) = B(5337)+B(5339) -! JVS(48290) = Jac_FULL(5253,2387) - JVS(48290) = B(12144)+B(12145) -! JVS(48291) = Jac_FULL(5253,2389) - JVS(48291) = 0 -! JVS(48292) = Jac_FULL(5253,2403) - JVS(48292) = B(4674)+B(4675) -! JVS(48293) = Jac_FULL(5253,2405) - JVS(48293) = B(13993)+B(13995) -! JVS(48294) = Jac_FULL(5253,2406) - JVS(48294) = B(5798)+B(5800) -! JVS(48295) = Jac_FULL(5253,2408) - JVS(48295) = B(21075)+B(21077) -! JVS(48296) = Jac_FULL(5253,2417) - JVS(48296) = 0 -! JVS(48297) = Jac_FULL(5253,2418) - JVS(48297) = B(5886)+B(5888) -! JVS(48298) = Jac_FULL(5253,2419) - JVS(48298) = B(17722)+B(17723) -! JVS(48299) = Jac_FULL(5253,2427) - JVS(48299) = B(4186)+B(4187) -! JVS(48300) = Jac_FULL(5253,2429) - JVS(48300) = B(20306) -! JVS(48301) = Jac_FULL(5253,2432) - JVS(48301) = B(4779)+B(4781) -! JVS(48302) = Jac_FULL(5253,2433) - JVS(48302) = B(3669) -! JVS(48303) = Jac_FULL(5253,2434) - JVS(48303) = B(11562) -! JVS(48304) = Jac_FULL(5253,2436) - JVS(48304) = B(10703)+B(10704) -! JVS(48305) = Jac_FULL(5253,2441) - JVS(48305) = B(4938) -! JVS(48306) = Jac_FULL(5253,2444) - JVS(48306) = B(23514)+B(23516) -! JVS(48307) = Jac_FULL(5253,2447) - JVS(48307) = B(4992) -! JVS(48308) = Jac_FULL(5253,2453) - JVS(48308) = B(7210)+B(7211) -! JVS(48309) = Jac_FULL(5253,2454) - JVS(48309) = 0 -! JVS(48310) = Jac_FULL(5253,2458) - JVS(48310) = B(19251)+B(19253) -! JVS(48311) = Jac_FULL(5253,2459) - JVS(48311) = B(3860)+B(3861) -! JVS(48312) = Jac_FULL(5253,2460) - JVS(48312) = B(12204) -! JVS(48313) = Jac_FULL(5253,2461) - JVS(48313) = B(13916)+B(13918) -! JVS(48314) = Jac_FULL(5253,2462) - JVS(48314) = B(14328)+B(14330) -! JVS(48315) = Jac_FULL(5253,2468) - JVS(48315) = B(8761) -! JVS(48316) = Jac_FULL(5253,2478) - JVS(48316) = B(12212)+B(12214) -! JVS(48317) = Jac_FULL(5253,2481) - JVS(48317) = B(10334)+B(10336) -! JVS(48318) = Jac_FULL(5253,2486) - JVS(48318) = B(21627) -! JVS(48319) = Jac_FULL(5253,2489) - JVS(48319) = B(13727)+B(13728) -! JVS(48320) = Jac_FULL(5253,2491) - JVS(48320) = B(18832) -! JVS(48321) = Jac_FULL(5253,2493) - JVS(48321) = B(9384) -! JVS(48322) = Jac_FULL(5253,2495) - JVS(48322) = B(19263) -! JVS(48323) = Jac_FULL(5253,2496) - JVS(48323) = B(17865)+B(17866) -! JVS(48324) = Jac_FULL(5253,2498) - JVS(48324) = B(18704)+B(18705) -! JVS(48325) = Jac_FULL(5253,2499) - JVS(48325) = B(10047) -! JVS(48326) = Jac_FULL(5253,2500) - JVS(48326) = 2*B(12173)+B(12175) -! JVS(48327) = Jac_FULL(5253,2502) - JVS(48327) = B(4893) -! JVS(48328) = Jac_FULL(5253,2504) - JVS(48328) = B(15610)+B(15612) -! JVS(48329) = Jac_FULL(5253,2505) - JVS(48329) = B(21444)+B(21446) -! JVS(48330) = Jac_FULL(5253,2506) - JVS(48330) = B(8785) -! JVS(48331) = Jac_FULL(5253,2509) - JVS(48331) = B(11748)+B(11749) -! JVS(48332) = Jac_FULL(5253,2510) - JVS(48332) = B(23242)+B(23244) -! JVS(48333) = Jac_FULL(5253,2511) - JVS(48333) = B(11636)+B(11638) -! JVS(48334) = Jac_FULL(5253,2513) - JVS(48334) = B(11929)+B(11930) -! JVS(48335) = Jac_FULL(5253,2514) - JVS(48335) = B(17684)+B(17685) -! JVS(48336) = Jac_FULL(5253,2515) - JVS(48336) = B(20771)+B(20773) -! JVS(48337) = Jac_FULL(5253,2517) - JVS(48337) = B(21633)+B(21635) -! JVS(48338) = Jac_FULL(5253,2518) - JVS(48338) = B(13150)+B(13152) -! JVS(48339) = Jac_FULL(5253,2519) - JVS(48339) = B(11712)+B(11713) -! JVS(48340) = Jac_FULL(5253,2520) - JVS(48340) = B(9284) -! JVS(48341) = Jac_FULL(5253,2522) - JVS(48341) = 2*B(12205)+B(12207) -! JVS(48342) = Jac_FULL(5253,2523) - JVS(48342) = B(22468)+B(22470) -! JVS(48343) = Jac_FULL(5253,2524) - JVS(48343) = B(22062)+B(22064) -! JVS(48344) = Jac_FULL(5253,2525) - JVS(48344) = B(11583)+B(11584) -! JVS(48345) = Jac_FULL(5253,2527) - JVS(48345) = B(21752)+B(21754) -! JVS(48346) = Jac_FULL(5253,2529) - JVS(48346) = B(22202)+B(22204) -! JVS(48347) = Jac_FULL(5253,2530) - JVS(48347) = 2*B(23763)+B(23765) -! JVS(48348) = Jac_FULL(5253,2531) - JVS(48348) = B(13500)+B(13501) -! JVS(48349) = Jac_FULL(5253,2532) - JVS(48349) = B(21833)+B(21835) -! JVS(48350) = Jac_FULL(5253,2533) - JVS(48350) = B(19245)+B(19247) -! JVS(48351) = Jac_FULL(5253,2534) - JVS(48351) = B(4713)+B(4714) -! JVS(48352) = Jac_FULL(5253,2535) - JVS(48352) = B(18075) -! JVS(48353) = Jac_FULL(5253,2536) - JVS(48353) = B(18124) -! JVS(48354) = Jac_FULL(5253,2537) - JVS(48354) = B(4119)+B(4121) -! JVS(48355) = Jac_FULL(5253,2538) - JVS(48355) = B(20125)+B(20127) -! JVS(48356) = Jac_FULL(5253,2542) - JVS(48356) = B(3836)+B(3837) -! JVS(48357) = Jac_FULL(5253,2546) - JVS(48357) = B(19545) -! JVS(48358) = Jac_FULL(5253,2547) - JVS(48358) = B(12318)+B(12320) -! JVS(48359) = Jac_FULL(5253,2548) - JVS(48359) = 0 -! JVS(48360) = Jac_FULL(5253,2552) - JVS(48360) = B(21359)+B(21361) -! JVS(48361) = Jac_FULL(5253,2555) - JVS(48361) = B(11871)+B(11872) -! JVS(48362) = Jac_FULL(5253,2557) - JVS(48362) = B(18560) -! JVS(48363) = Jac_FULL(5253,2560) - JVS(48363) = B(14168)+B(14170) -! JVS(48364) = Jac_FULL(5253,2563) - JVS(48364) = B(10103) -! JVS(48365) = Jac_FULL(5253,2564) - JVS(48365) = B(22410)+B(22412) -! JVS(48366) = Jac_FULL(5253,2565) - JVS(48366) = B(9222) -! JVS(48367) = Jac_FULL(5253,2566) - JVS(48367) = B(18608) -! JVS(48368) = Jac_FULL(5253,2567) - JVS(48368) = B(23891)+B(23893) -! JVS(48369) = Jac_FULL(5253,2569) - JVS(48369) = B(9192)+B(9194) -! JVS(48370) = Jac_FULL(5253,2571) - JVS(48370) = B(23530)+B(23532) -! JVS(48371) = Jac_FULL(5253,2573) - JVS(48371) = B(23277)+B(23279) -! JVS(48372) = Jac_FULL(5253,2576) - JVS(48372) = B(13889)+B(13891) -! JVS(48373) = Jac_FULL(5253,2577) - JVS(48373) = B(19887) -! JVS(48374) = Jac_FULL(5253,2578) - JVS(48374) = B(23629) -! JVS(48375) = Jac_FULL(5253,2579) - JVS(48375) = 2*B(12181)+B(12183) -! JVS(48376) = Jac_FULL(5253,2580) - JVS(48376) = B(21597)+B(21598) -! JVS(48377) = Jac_FULL(5253,2582) - JVS(48377) = B(12843)+B(12845) -! JVS(48378) = Jac_FULL(5253,2583) - JVS(48378) = 2*B(12224)+B(12226) -! JVS(48379) = Jac_FULL(5253,2584) - JVS(48379) = B(22499)+B(22501) -! JVS(48380) = Jac_FULL(5253,2585) - JVS(48380) = B(9833) -! JVS(48381) = Jac_FULL(5253,2587) - JVS(48381) = B(14544)+B(14546) -! JVS(48382) = Jac_FULL(5253,2588) - JVS(48382) = B(18330) -! JVS(48383) = Jac_FULL(5253,2593) - JVS(48383) = B(14505)+B(14507) -! JVS(48384) = Jac_FULL(5253,2595) - JVS(48384) = B(9223) -! JVS(48385) = Jac_FULL(5253,2597) - JVS(48385) = B(20920)+B(20922) -! JVS(48386) = Jac_FULL(5253,2598) - JVS(48386) = B(20220) -! JVS(48387) = Jac_FULL(5253,2600) - JVS(48387) = B(21657)+B(21659) -! JVS(48388) = Jac_FULL(5253,2605) - JVS(48388) = B(6025)+B(6027) -! JVS(48389) = Jac_FULL(5253,2606) - JVS(48389) = B(18903) -! JVS(48390) = Jac_FULL(5253,2608) - JVS(48390) = B(22799)+B(22801) -! JVS(48391) = Jac_FULL(5253,2610) - JVS(48391) = B(4566)+B(4567) -! JVS(48392) = Jac_FULL(5253,2611) - JVS(48392) = B(4195)+B(4197) -! JVS(48393) = Jac_FULL(5253,2612) - JVS(48393) = B(4159)+B(4161) -! JVS(48394) = Jac_FULL(5253,2613) - JVS(48394) = B(21026)+B(21028) -! JVS(48395) = Jac_FULL(5253,2615) - JVS(48395) = B(21461)+B(21463) -! JVS(48396) = Jac_FULL(5253,2619) - JVS(48396) = B(24029)+B(24031) -! JVS(48397) = Jac_FULL(5253,2620) - JVS(48397) = B(11496)+B(11498) -! JVS(48398) = Jac_FULL(5253,2621) - JVS(48398) = B(22119)+B(22121) -! JVS(48399) = Jac_FULL(5253,2622) - JVS(48399) = B(20569)+B(20570) -! JVS(48400) = Jac_FULL(5253,2624) - JVS(48400) = B(9963) -! JVS(48401) = Jac_FULL(5253,2626) - JVS(48401) = B(7308)+B(7310) -! JVS(48402) = Jac_FULL(5253,2629) - JVS(48402) = B(20740)+B(20742) -! JVS(48403) = Jac_FULL(5253,2630) - JVS(48403) = B(13465)+B(13467) -! JVS(48404) = Jac_FULL(5253,2631) - JVS(48404) = B(21385)+B(21387) -! JVS(48405) = Jac_FULL(5253,2632) - JVS(48405) = B(10072)+B(10074) -! JVS(48406) = Jac_FULL(5253,2635) - JVS(48406) = B(21603) -! JVS(48407) = Jac_FULL(5253,2636) - JVS(48407) = B(19210)+B(19212) -! JVS(48408) = Jac_FULL(5253,2637) - JVS(48408) = B(23405)+B(23407) -! JVS(48409) = Jac_FULL(5253,2640) - JVS(48409) = B(9333)+B(9335) -! JVS(48410) = Jac_FULL(5253,2643) - JVS(48410) = B(21343)+B(21345) -! JVS(48411) = Jac_FULL(5253,2648) - JVS(48411) = B(17259)+B(17261) -! JVS(48412) = Jac_FULL(5253,2649) - JVS(48412) = B(9735) -! JVS(48413) = Jac_FULL(5253,2650) - JVS(48413) = B(10254)+B(10256) -! JVS(48414) = Jac_FULL(5253,2651) - JVS(48414) = B(20932)+B(20934) -! JVS(48415) = Jac_FULL(5253,2653) - JVS(48415) = B(11816)+B(11817) -! JVS(48416) = Jac_FULL(5253,2655) - JVS(48416) = B(20315)+B(20316) -! JVS(48417) = Jac_FULL(5253,2656) - JVS(48417) = B(9454)+B(9456) -! JVS(48418) = Jac_FULL(5253,2657) - JVS(48418) = B(3979)+B(3981) -! JVS(48419) = Jac_FULL(5253,2658) - JVS(48419) = B(20686)+B(20688) -! JVS(48420) = Jac_FULL(5253,2660) - JVS(48420) = B(22858)+B(22860) -! JVS(48421) = Jac_FULL(5253,2661) - JVS(48421) = B(19225)+B(19227) -! JVS(48422) = Jac_FULL(5253,2663) - JVS(48422) = B(18955)+B(18957) -! JVS(48423) = Jac_FULL(5253,2664) - JVS(48423) = B(18963)+B(18965) -! JVS(48424) = Jac_FULL(5253,2666) - JVS(48424) = B(21007)+B(21009) -! JVS(48425) = Jac_FULL(5253,2668) - JVS(48425) = B(18250) -! JVS(48426) = Jac_FULL(5253,2669) - JVS(48426) = B(17738)+B(17739) -! JVS(48427) = Jac_FULL(5253,2670) - JVS(48427) = B(13622)+B(13623) -! JVS(48428) = Jac_FULL(5253,2671) - JVS(48428) = B(13237)+B(13239) -! JVS(48429) = Jac_FULL(5253,2672) - JVS(48429) = B(13961)+B(13963) -! JVS(48430) = Jac_FULL(5253,2673) - JVS(48430) = B(22713)+B(22715) -! JVS(48431) = Jac_FULL(5253,2674) - JVS(48431) = B(14864)+B(14866) -! JVS(48432) = Jac_FULL(5253,2675) - JVS(48432) = B(11490)+B(11491) -! JVS(48433) = Jac_FULL(5253,2677) - JVS(48433) = B(17410)+B(17411) -! JVS(48434) = Jac_FULL(5253,2678) - JVS(48434) = B(17404)+B(17405) -! JVS(48435) = Jac_FULL(5253,2681) - JVS(48435) = B(13456)+B(13458) -! JVS(48436) = Jac_FULL(5253,2682) - JVS(48436) = B(18293) -! JVS(48437) = Jac_FULL(5253,2683) - JVS(48437) = B(21337)+B(21339) -! JVS(48438) = Jac_FULL(5253,2684) - JVS(48438) = B(11519)+B(11520) -! JVS(48439) = Jac_FULL(5253,2685) - JVS(48439) = B(17269)+B(17271) -! JVS(48440) = Jac_FULL(5253,2687) - JVS(48440) = B(4401)+B(4403) -! JVS(48441) = Jac_FULL(5253,2688) - JVS(48441) = B(21997)+B(21999) -! JVS(48442) = Jac_FULL(5253,2689) - JVS(48442) = B(12941)+B(12943) -! JVS(48443) = Jac_FULL(5253,2691) - JVS(48443) = B(11605)+B(11606) -! JVS(48444) = Jac_FULL(5253,2696) - JVS(48444) = B(18350)+B(18352) -! JVS(48445) = Jac_FULL(5253,2698) - JVS(48445) = B(12197)+B(12199) -! JVS(48446) = Jac_FULL(5253,2700) - JVS(48446) = B(22266)+B(22268) -! JVS(48447) = Jac_FULL(5253,2701) - JVS(48447) = B(20703)+B(20705) -! JVS(48448) = Jac_FULL(5253,2702) - JVS(48448) = 2*B(12252)+B(12254) -! JVS(48449) = Jac_FULL(5253,2703) - JVS(48449) = B(23833)+B(23835) -! JVS(48450) = Jac_FULL(5253,2704) - JVS(48450) = B(20982)+B(20984) -! JVS(48451) = Jac_FULL(5253,2705) - JVS(48451) = B(20309)+B(20310) -! JVS(48452) = Jac_FULL(5253,2708) - JVS(48452) = B(20840)+B(20842) -! JVS(48453) = Jac_FULL(5253,2709) - JVS(48453) = B(9515) -! JVS(48454) = Jac_FULL(5253,2712) - JVS(48454) = B(12373)+B(12375) -! JVS(48455) = Jac_FULL(5253,2713) - JVS(48455) = B(11953)+B(11954) -! JVS(48456) = Jac_FULL(5253,2718) - JVS(48456) = B(21184)+B(21185) -! JVS(48457) = Jac_FULL(5253,2721) - JVS(48457) = B(22239)+B(22241) -! JVS(48458) = Jac_FULL(5253,2725) - JVS(48458) = B(21296)+B(21298) -! JVS(48459) = Jac_FULL(5253,2726) - JVS(48459) = B(19850)+B(19852) -! JVS(48460) = Jac_FULL(5253,2728) - JVS(48460) = B(10193) -! JVS(48461) = Jac_FULL(5253,2729) - JVS(48461) = B(23920)+B(23922) -! JVS(48462) = Jac_FULL(5253,2732) - JVS(48462) = B(10227) -! JVS(48463) = Jac_FULL(5253,2733) - JVS(48463) = B(20048) -! JVS(48464) = Jac_FULL(5253,2734) - JVS(48464) = B(4330) -! JVS(48465) = Jac_FULL(5253,2735) - JVS(48465) = B(20433) -! JVS(48466) = Jac_FULL(5253,2736) - JVS(48466) = B(20180) -! JVS(48467) = Jac_FULL(5253,2738) - JVS(48467) = B(12235)+B(12237) -! JVS(48468) = Jac_FULL(5253,2740) - JVS(48468) = B(9620) -! JVS(48469) = Jac_FULL(5253,2742) - JVS(48469) = B(16890)+B(16892) -! JVS(48470) = Jac_FULL(5253,2743) - JVS(48470) = B(7651)+B(7653) -! JVS(48471) = Jac_FULL(5253,2750) - JVS(48471) = B(21924) -! JVS(48472) = Jac_FULL(5253,2755) - JVS(48472) = B(11808)+B(11809) -! JVS(48473) = Jac_FULL(5253,2756) - JVS(48473) = B(23591)+B(23593) -! JVS(48474) = Jac_FULL(5253,2757) - JVS(48474) = B(14012)+B(14014) -! JVS(48475) = Jac_FULL(5253,2759) - JVS(48475) = B(20759)+B(20761) -! JVS(48476) = Jac_FULL(5253,2761) - JVS(48476) = B(11726)+B(11727) -! JVS(48477) = Jac_FULL(5253,2762) - JVS(48477) = B(9151) -! JVS(48478) = Jac_FULL(5253,2764) - JVS(48478) = B(16766)+B(16768) -! JVS(48479) = Jac_FULL(5253,2765) - JVS(48479) = B(21402)+B(21404) -! JVS(48480) = Jac_FULL(5253,2768) - JVS(48480) = B(20212) -! JVS(48481) = Jac_FULL(5253,2772) - JVS(48481) = B(22507)+B(22509) -! JVS(48482) = Jac_FULL(5253,2776) - JVS(48482) = B(9736) -! JVS(48483) = Jac_FULL(5253,2777) - JVS(48483) = B(23352)+B(23354) -! JVS(48484) = Jac_FULL(5253,2778) - JVS(48484) = B(17746)+B(17747) -! JVS(48485) = Jac_FULL(5253,2779) - JVS(48485) = B(24012)+B(24014) -! JVS(48486) = Jac_FULL(5253,2780) - JVS(48486) = B(12772)+B(12774) -! JVS(48487) = Jac_FULL(5253,2781) - JVS(48487) = B(19482)+B(19484) -! JVS(48488) = Jac_FULL(5253,2782) - JVS(48488) = B(5593)+B(5595) -! JVS(48489) = Jac_FULL(5253,2783) - JVS(48489) = B(12168) -! JVS(48490) = Jac_FULL(5253,2784) - JVS(48490) = B(21639)+B(21640) -! JVS(48491) = Jac_FULL(5253,2786) - JVS(48491) = B(17458)+B(17459) -! JVS(48492) = Jac_FULL(5253,2787) - JVS(48492) = B(19638)+B(19639) -! JVS(48493) = Jac_FULL(5253,2789) - JVS(48493) = B(10049) -! JVS(48494) = Jac_FULL(5253,2790) - JVS(48494) = B(11451)+B(11452) -! JVS(48495) = Jac_FULL(5253,2791) - JVS(48495) = B(10686)+B(10688) -! JVS(48496) = Jac_FULL(5253,2792) - JVS(48496) = B(7777)+B(7778) -! JVS(48497) = Jac_FULL(5253,2793) - JVS(48497) = B(11690)+B(11691) -! JVS(48498) = Jac_FULL(5253,2794) - JVS(48498) = B(21426)+B(21428) -! JVS(48499) = Jac_FULL(5253,2796) - JVS(48499) = B(13531)+B(13532) -! JVS(48500) = Jac_FULL(5253,2798) - JVS(48500) = B(8758) -! JVS(48501) = Jac_FULL(5253,2799) - JVS(48501) = B(8756) -! JVS(48502) = Jac_FULL(5253,2800) - JVS(48502) = B(22764)+B(22765) -! JVS(48503) = Jac_FULL(5253,2801) - JVS(48503) = B(13588)+B(13589) -! JVS(48504) = Jac_FULL(5253,2802) - JVS(48504) = B(23442)+B(23444) -! JVS(48505) = Jac_FULL(5253,2804) - JVS(48505) = B(19050)+B(19051) -! JVS(48506) = Jac_FULL(5253,2806) - JVS(48506) = B(8991) -! JVS(48507) = Jac_FULL(5253,2808) - JVS(48507) = B(13035)+B(13037) -! JVS(48508) = Jac_FULL(5253,2811) - JVS(48508) = B(4322)+B(4324) -! JVS(48509) = Jac_FULL(5253,2812) - JVS(48509) = B(20646)+B(20648) -! JVS(48510) = Jac_FULL(5253,2813) - JVS(48510) = B(23179)+B(23181) -! JVS(48511) = Jac_FULL(5253,2814) - JVS(48511) = B(17561)+B(17562) -! JVS(48512) = Jac_FULL(5253,2815) - JVS(48512) = 2*B(11563)+B(11565) -! JVS(48513) = Jac_FULL(5253,2817) - JVS(48513) = B(6971)+B(6973) -! JVS(48514) = Jac_FULL(5253,2818) - JVS(48514) = B(18643) -! JVS(48515) = Jac_FULL(5253,2821) - JVS(48515) = B(10699) -! JVS(48516) = Jac_FULL(5253,2822) - JVS(48516) = B(19593)+B(19594) -! JVS(48517) = Jac_FULL(5253,2823) - JVS(48517) = B(20381)+B(20382) -! JVS(48518) = Jac_FULL(5253,2825) - JVS(48518) = B(11443)+B(11444) -! JVS(48519) = Jac_FULL(5253,2829) - JVS(48519) = B(22093)+B(22095) -! JVS(48520) = Jac_FULL(5253,2830) - JVS(48520) = B(12681)+B(12683) -! JVS(48521) = Jac_FULL(5253,2831) - JVS(48521) = B(5088) -! JVS(48522) = Jac_FULL(5253,2832) - JVS(48522) = B(17293) -! JVS(48523) = Jac_FULL(5253,2833) - JVS(48523) = B(22278)+B(22280) -! JVS(48524) = Jac_FULL(5253,2834) - JVS(48524) = B(10679)+B(10681) -! JVS(48525) = Jac_FULL(5253,2835) - JVS(48525) = B(11780)+B(11781) -! JVS(48526) = Jac_FULL(5253,2839) - JVS(48526) = B(4609)+B(4610) -! JVS(48527) = Jac_FULL(5253,2841) - JVS(48527) = B(11763)+B(11765) -! JVS(48528) = Jac_FULL(5253,2842) - JVS(48528) = B(19581)+B(19582) -! JVS(48529) = Jac_FULL(5253,2843) - JVS(48529) = B(17553)+B(17554) -! JVS(48530) = Jac_FULL(5253,2844) - JVS(48530) = B(17620)+B(17621) -! JVS(48531) = Jac_FULL(5253,2845) - JVS(48531) = B(22154)+B(22155) -! JVS(48532) = Jac_FULL(5253,2846) - JVS(48532) = B(17601)+B(17602) -! JVS(48533) = Jac_FULL(5253,2847) - JVS(48533) = B(9834) -! JVS(48534) = Jac_FULL(5253,2848) - JVS(48534) = B(17628)+B(17629) -! JVS(48535) = Jac_FULL(5253,2850) - JVS(48535) = B(16914)+B(16916) -! JVS(48536) = Jac_FULL(5253,2851) - JVS(48536) = B(5019) -! JVS(48537) = Jac_FULL(5253,2852) - JVS(48537) = B(21524)+B(21526) -! JVS(48538) = Jac_FULL(5253,2854) - JVS(48538) = 0 -! JVS(48539) = Jac_FULL(5253,2855) - JVS(48539) = B(23957)+B(23959) -! JVS(48540) = Jac_FULL(5253,2857) - JVS(48540) = B(9913)+B(9915) -! JVS(48541) = Jac_FULL(5253,2858) - JVS(48541) = B(12241) -! JVS(48542) = Jac_FULL(5253,2859) - JVS(48542) = B(22208)+B(22210) -! JVS(48543) = Jac_FULL(5253,2860) - JVS(48543) = B(17199)+B(17201) -! JVS(48544) = Jac_FULL(5253,2863) - JVS(48544) = B(21368)+B(21370) -! JVS(48545) = Jac_FULL(5253,2864) - JVS(48545) = B(23938)+B(23940) -! JVS(48546) = Jac_FULL(5253,2866) - JVS(48546) = B(21499)+B(21501) -! JVS(48547) = Jac_FULL(5253,2867) - JVS(48547) = B(21670)+B(21672) -! JVS(48548) = Jac_FULL(5253,2869) - JVS(48548) = B(4022) -! JVS(48549) = Jac_FULL(5253,2870) - JVS(48549) = B(21600) -! JVS(48550) = Jac_FULL(5253,2872) - JVS(48550) = 2*B(12263)+B(12265) -! JVS(48551) = Jac_FULL(5253,2876) - JVS(48551) = B(12499)+B(12501) -! JVS(48552) = Jac_FULL(5253,2877) - JVS(48552) = B(21202)+B(21203) -! JVS(48553) = Jac_FULL(5253,2879) - JVS(48553) = B(17102)+B(17104) -! JVS(48554) = Jac_FULL(5253,2880) - JVS(48554) = B(11469)+B(11470) -! JVS(48555) = Jac_FULL(5253,2882) - JVS(48555) = B(7643)+B(7644) -! JVS(48556) = Jac_FULL(5253,2883) - JVS(48556) = B(14082)+B(14083) -! JVS(48557) = Jac_FULL(5253,2884) - JVS(48557) = B(17501)+B(17502) -! JVS(48558) = Jac_FULL(5253,2885) - JVS(48558) = B(17521)+B(17522) -! JVS(48559) = Jac_FULL(5253,2886) - JVS(48559) = B(19564)+B(19565) -! JVS(48560) = Jac_FULL(5253,2887) - JVS(48560) = B(11683)+B(11685) -! JVS(48561) = Jac_FULL(5253,2888) - JVS(48561) = B(7401)+B(7403) -! JVS(48562) = Jac_FULL(5253,2892) - JVS(48562) = B(16873)+B(16875) -! JVS(48563) = Jac_FULL(5253,2896) - JVS(48563) = B(12311)+B(12312) -! JVS(48564) = Jac_FULL(5253,2898) - JVS(48564) = 2*B(14337)+B(14339) -! JVS(48565) = Jac_FULL(5253,2901) - JVS(48565) = B(22231)+B(22233) -! JVS(48566) = Jac_FULL(5253,2903) - JVS(48566) = B(20070) -! JVS(48567) = Jac_FULL(5253,2904) - JVS(48567) = B(12690)+B(12692) -! JVS(48568) = Jac_FULL(5253,2907) - JVS(48568) = 2*B(21579)+B(21581) -! JVS(48569) = Jac_FULL(5253,2908) - JVS(48569) = B(21042)+B(21044) -! JVS(48570) = Jac_FULL(5253,2913) - JVS(48570) = B(4467)+B(4468) -! JVS(48571) = Jac_FULL(5253,2915) - JVS(48571) = B(9565)+B(9567) -! JVS(48572) = Jac_FULL(5253,2916) - JVS(48572) = B(22963) -! JVS(48573) = Jac_FULL(5253,2917) - JVS(48573) = B(11997)+B(11998) -! JVS(48574) = Jac_FULL(5253,2918) - JVS(48574) = B(18187) -! JVS(48575) = Jac_FULL(5253,2919) - JVS(48575) = B(21451) -! JVS(48576) = Jac_FULL(5253,2921) - JVS(48576) = B(11630)+B(11632) -! JVS(48577) = Jac_FULL(5253,2924) - JVS(48577) = B(12364)+B(12366) -! JVS(48578) = Jac_FULL(5253,2925) - JVS(48578) = B(20459)+2*B(20460) -! JVS(48579) = Jac_FULL(5253,2928) - JVS(48579) = 2*B(21571)+B(21573) -! JVS(48580) = Jac_FULL(5253,2929) - JVS(48580) = B(20155)+B(20157) -! JVS(48581) = Jac_FULL(5253,2934) - JVS(48581) = B(11893)+B(11894) -! JVS(48582) = Jac_FULL(5253,2935) - JVS(48582) = B(19950) -! JVS(48583) = Jac_FULL(5253,2937) - JVS(48583) = B(20264) -! JVS(48584) = Jac_FULL(5253,2941) - JVS(48584) = B(23496)+B(23498) -! JVS(48585) = Jac_FULL(5253,2942) - JVS(48585) = B(23536)+B(23538) -! JVS(48586) = Jac_FULL(5253,2943) - JVS(48586) = B(16999)+B(17001) -! JVS(48587) = Jac_FULL(5253,2945) - JVS(48587) = B(7757)+B(7759) -! JVS(48588) = Jac_FULL(5253,2947) - JVS(48588) = B(17127)+B(17129) -! JVS(48589) = Jac_FULL(5253,2948) - JVS(48589) = B(10163)+B(10165) -! JVS(48590) = Jac_FULL(5253,2950) - JVS(48590) = B(9997)+B(9999) -! JVS(48591) = Jac_FULL(5253,2951) - JVS(48591) = B(14241)+B(14243) -! JVS(48592) = Jac_FULL(5253,2952) - JVS(48592) = B(20194) -! JVS(48593) = Jac_FULL(5253,2955) - JVS(48593) = B(8690)+B(8692) -! JVS(48594) = Jac_FULL(5253,2956) - JVS(48594) = B(12613)+B(12615) -! JVS(48595) = Jac_FULL(5253,2957) - JVS(48595) = B(21596) -! JVS(48596) = Jac_FULL(5253,2958) - JVS(48596) = B(17112)+B(17114) -! JVS(48597) = Jac_FULL(5253,2959) - JVS(48597) = B(7323) -! JVS(48598) = Jac_FULL(5253,2962) - JVS(48598) = B(17018) -! JVS(48599) = Jac_FULL(5253,2964) - JVS(48599) = B(4734)+B(4735) -! JVS(48600) = Jac_FULL(5253,2966) - JVS(48600) = B(21619)+B(21621) -! JVS(48601) = Jac_FULL(5253,2969) - JVS(48601) = B(18488)+B(18490) -! JVS(48602) = Jac_FULL(5253,2970) - JVS(48602) = B(22214)+B(22216) -! JVS(48603) = Jac_FULL(5253,2977) - JVS(48603) = B(21683)+B(21685) -! JVS(48604) = Jac_FULL(5253,2978) - JVS(48604) = B(19572)+B(19573) -! JVS(48605) = Jac_FULL(5253,2980) - JVS(48605) = B(23600)+B(23602) -! JVS(48606) = Jac_FULL(5253,2984) - JVS(48606) = B(22438)+B(22440) -! JVS(48607) = Jac_FULL(5253,2985) - JVS(48607) = B(11668) -! JVS(48608) = Jac_FULL(5253,2986) - JVS(48608) = B(20022) -! JVS(48609) = Jac_FULL(5253,2987) - JVS(48609) = B(21164)+B(21165) -! JVS(48610) = Jac_FULL(5253,2988) - JVS(48610) = 2*B(12284)+B(12286) -! JVS(48611) = Jac_FULL(5253,2994) - JVS(48611) = B(9621) -! JVS(48612) = Jac_FULL(5253,2995) - JVS(48612) = B(20242) -! JVS(48613) = Jac_FULL(5253,2998) - JVS(48613) = B(22225)+B(22227) -! JVS(48614) = Jac_FULL(5253,2999) - JVS(48614) = B(19698)+B(19699) -! JVS(48615) = Jac_FULL(5253,3002) - JVS(48615) = B(5093) -! JVS(48616) = Jac_FULL(5253,3003) - JVS(48616) = B(4103)+B(4105) -! JVS(48617) = Jac_FULL(5253,3007) - JVS(48617) = B(21226)+B(21227) -! JVS(48618) = Jac_FULL(5253,3008) - JVS(48618) = B(21651)+B(21653) -! JVS(48619) = Jac_FULL(5253,3010) - JVS(48619) = B(22957)+B(22959) -! JVS(48620) = Jac_FULL(5253,3011) - JVS(48620) = B(20972)+B(20974) -! JVS(48621) = Jac_FULL(5253,3012) - JVS(48621) = B(18421)+B(18423) -! JVS(48622) = Jac_FULL(5253,3014) - JVS(48622) = B(22272)+B(22274) -! JVS(48623) = Jac_FULL(5253,3015) - JVS(48623) = B(18027)+B(18029) -! JVS(48624) = Jac_FULL(5253,3016) - JVS(48624) = B(18515) -! JVS(48625) = Jac_FULL(5253,3017) - JVS(48625) = B(14398)+B(14400) -! JVS(48626) = Jac_FULL(5253,3019) - JVS(48626) = B(21482)+B(21484) -! JVS(48627) = Jac_FULL(5253,3020) - JVS(48627) = B(11569)+B(11571) -! JVS(48628) = Jac_FULL(5253,3021) - JVS(48628) = B(11575)+B(11577) -! JVS(48629) = Jac_FULL(5253,3023) - JVS(48629) = B(11991)+B(11992) -! JVS(48630) = Jac_FULL(5253,3024) - JVS(48630) = B(11885)+B(11886) -! JVS(48631) = Jac_FULL(5253,3025) - JVS(48631) = B(17678)+B(17679) -! JVS(48632) = Jac_FULL(5253,3026) - JVS(48632) = B(11945)+B(11946) -! JVS(48633) = Jac_FULL(5253,3027) - JVS(48633) = B(9517) -! JVS(48634) = Jac_FULL(5253,3029) - JVS(48634) = B(23472)+B(23474) -! JVS(48635) = Jac_FULL(5253,3030) - JVS(48635) = B(7317) -! JVS(48636) = Jac_FULL(5253,3034) - JVS(48636) = B(11150)+B(11152) -! JVS(48637) = Jac_FULL(5253,3036) - JVS(48637) = B(19925) -! JVS(48638) = Jac_FULL(5253,3040) - JVS(48638) = B(21313)+B(21315) -! JVS(48639) = Jac_FULL(5253,3042) - JVS(48639) = B(20387)+B(20389) -! JVS(48640) = Jac_FULL(5253,3045) - JVS(48640) = B(20395) -! JVS(48641) = Jac_FULL(5253,3047) - JVS(48641) = B(7751)+B(7753) -! JVS(48642) = Jac_FULL(5253,3050) - JVS(48642) = B(9286) -! JVS(48643) = Jac_FULL(5253,3051) - JVS(48643) = B(12269)+B(12271) -! JVS(48644) = Jac_FULL(5253,3052) - JVS(48644) = B(21516)+B(21518) -! JVS(48645) = Jac_FULL(5253,3053) - JVS(48645) = B(20593)+B(20595) -! JVS(48646) = Jac_FULL(5253,3056) - JVS(48646) = B(11592)+B(11594) -! JVS(48647) = Jac_FULL(5253,3059) - JVS(48647) = B(11667) -! JVS(48648) = Jac_FULL(5253,3060) - JVS(48648) = B(8860)+B(8862) -! JVS(48649) = Jac_FULL(5253,3061) - JVS(48649) = B(22247)+B(22249) -! JVS(48650) = Jac_FULL(5253,3063) - JVS(48650) = B(21409)+B(21411) -! JVS(48651) = Jac_FULL(5253,3065) - JVS(48651) = B(18678) -! JVS(48652) = Jac_FULL(5253,3068) - JVS(48652) = B(7189)+B(7191) -! JVS(48653) = Jac_FULL(5253,3070) - JVS(48653) = B(21239)+B(21240) -! JVS(48654) = Jac_FULL(5253,3074) - JVS(48654) = B(14550) -! JVS(48655) = Jac_FULL(5253,3075) - JVS(48655) = B(21320)+B(21322) -! JVS(48656) = Jac_FULL(5253,3076) - JVS(48656) = B(4458)+B(4459) -! JVS(48657) = Jac_FULL(5253,3077) - JVS(48657) = B(4849) -! JVS(48658) = Jac_FULL(5253,3081) - JVS(48658) = B(16949)+B(16951) -! JVS(48659) = Jac_FULL(5253,3090) - JVS(48659) = B(7254) -! JVS(48660) = Jac_FULL(5253,3102) - JVS(48660) = B(6625)+B(6626) -! JVS(48661) = Jac_FULL(5253,3106) - JVS(48661) = B(3804) -! JVS(48662) = Jac_FULL(5253,3108) - JVS(48662) = B(9940)+B(9942) -! JVS(48663) = Jac_FULL(5253,3141) - JVS(48663) = B(7324) -! JVS(48664) = Jac_FULL(5253,3154) - JVS(48664) = B(16479)+B(16483) -! JVS(48665) = Jac_FULL(5253,3159) - JVS(48665) = B(3918) -! JVS(48666) = Jac_FULL(5253,3160) - JVS(48666) = B(16682)+B(16685) -! JVS(48667) = Jac_FULL(5253,3173) - JVS(48667) = B(3715) -! JVS(48668) = Jac_FULL(5253,3175) - JVS(48668) = B(5039)+B(5041) -! JVS(48669) = Jac_FULL(5253,3177) - JVS(48669) = B(8966)+B(8968) -! JVS(48670) = Jac_FULL(5253,3188) - JVS(48670) = B(5194) -! JVS(48671) = Jac_FULL(5253,3197) - JVS(48671) = B(16631) -! JVS(48672) = Jac_FULL(5253,3199) - JVS(48672) = B(13057)+B(13059) -! JVS(48673) = Jac_FULL(5253,3203) - JVS(48673) = B(11672) -! JVS(48674) = Jac_FULL(5253,3204) - JVS(48674) = B(16551) -! JVS(48675) = Jac_FULL(5253,3206) - JVS(48675) = B(9080)+B(9082) -! JVS(48676) = Jac_FULL(5253,3211) - JVS(48676) = B(21554) -! JVS(48677) = Jac_FULL(5253,3212) - JVS(48677) = B(12013)+B(12014) -! JVS(48678) = Jac_FULL(5253,3218) - JVS(48678) = B(21252)+B(21253) -! JVS(48679) = Jac_FULL(5253,3220) - JVS(48679) = B(12510)+B(12512) -! JVS(48680) = Jac_FULL(5253,3221) - JVS(48680) = B(16167)+B(16169) -! JVS(48681) = Jac_FULL(5253,3223) - JVS(48681) = B(16905)+B(16907) -! JVS(48682) = Jac_FULL(5253,3224) - JVS(48682) = B(21557) -! JVS(48683) = Jac_FULL(5253,3229) - JVS(48683) = B(12728)+B(12730) -! JVS(48684) = Jac_FULL(5253,3232) - JVS(48684) = B(13214)+B(13216) -! JVS(48685) = Jac_FULL(5253,3235) - JVS(48685) = B(10225) -! JVS(48686) = Jac_FULL(5253,3236) - JVS(48686) = B(20481)+B(20482) -! JVS(48687) = Jac_FULL(5253,3239) - JVS(48687) = B(14195)+B(14196) -! JVS(48688) = Jac_FULL(5253,3240) - JVS(48688) = B(16510)+B(16512) -! JVS(48689) = Jac_FULL(5253,3245) - JVS(48689) = B(3661) -! JVS(48690) = Jac_FULL(5253,3249) - JVS(48690) = B(16414)+B(16416) -! JVS(48691) = Jac_FULL(5253,3253) - JVS(48691) = B(8783) -! JVS(48692) = Jac_FULL(5253,3254) - JVS(48692) = B(4229) -! JVS(48693) = Jac_FULL(5253,3257) - JVS(48693) = B(22289) -! JVS(48694) = Jac_FULL(5253,3258) - JVS(48694) = B(9850)+B(9852) -! JVS(48695) = Jac_FULL(5253,3260) - JVS(48695) = B(11742)+B(11743) -! JVS(48696) = Jac_FULL(5253,3264) - JVS(48696) = B(9778)+B(9780) -! JVS(48697) = Jac_FULL(5253,3271) - JVS(48697) = B(10078)+B(10080) -! JVS(48698) = Jac_FULL(5253,3272) - JVS(48698) = B(20430) -! JVS(48699) = Jac_FULL(5253,3273) - JVS(48699) = B(16609)+B(16611) -! JVS(48700) = Jac_FULL(5253,3275) - JVS(48700) = B(19024)+B(19025) -! JVS(48701) = Jac_FULL(5253,3278) - JVS(48701) = 0 -! JVS(48702) = Jac_FULL(5253,3279) - JVS(48702) = B(10102) -! JVS(48703) = Jac_FULL(5253,3282) - JVS(48703) = B(21278)+B(21279) -! JVS(48704) = Jac_FULL(5253,3285) - JVS(48704) = B(8719)+B(8721) -! JVS(48705) = Jac_FULL(5253,3290) - JVS(48705) = B(15558)+B(15560) -! JVS(48706) = Jac_FULL(5253,3292) - JVS(48706) = B(8939)+B(8941) -! JVS(48707) = Jac_FULL(5253,3293) - JVS(48707) = B(23609)+B(23611) -! JVS(48708) = Jac_FULL(5253,3295) - JVS(48708) = B(10191) -! JVS(48709) = Jac_FULL(5253,3300) - JVS(48709) = B(13228)+B(13230) -! JVS(48710) = Jac_FULL(5253,3302) - JVS(48710) = B(4857)+B(4859)+B(4860) -! JVS(48711) = Jac_FULL(5253,3303) - JVS(48711) = B(13444)+B(13446) -! JVS(48712) = Jac_FULL(5253,3304) - JVS(48712) = B(9693)+B(9695) -! JVS(48713) = Jac_FULL(5253,3305) - JVS(48713) = -B(13169) -! JVS(48714) = Jac_FULL(5253,3306) - JVS(48714) = B(21265)+B(21266) -! JVS(48715) = Jac_FULL(5253,3307) - JVS(48715) = B(16931)+B(16933) -! JVS(48716) = Jac_FULL(5253,3311) - JVS(48716) = B(17714)+B(17715) -! JVS(48717) = Jac_FULL(5253,3312) - JVS(48717) = B(11967)+B(11968) -! JVS(48718) = Jac_FULL(5253,3313) - JVS(48718) = B(22635)+B(22637) -! JVS(48719) = Jac_FULL(5253,3315) - JVS(48719) = B(21351)+B(21353) -! JVS(48720) = Jac_FULL(5253,3316) - JVS(48720) = B(9770)+B(9772) -! JVS(48721) = Jac_FULL(5253,3317) - JVS(48721) = B(6603)+B(6605) -! JVS(48722) = Jac_FULL(5253,3318) - JVS(48722) = B(13163)+B(13165) -! JVS(48723) = Jac_FULL(5253,3319) - JVS(48723) = B(9383) -! JVS(48724) = Jac_FULL(5253,3320) - JVS(48724) = B(9149) -! JVS(48725) = Jac_FULL(5253,3321) - JVS(48725) = B(8990) -! JVS(48726) = Jac_FULL(5253,3322) - JVS(48726) = B(10003)+B(10005) -! JVS(48727) = Jac_FULL(5253,3323) - JVS(48727) = B(23042)+B(23044) -! JVS(48728) = Jac_FULL(5253,3324) - JVS(48728) = B(20531) -! JVS(48729) = Jac_FULL(5253,3326) - JVS(48729) = B(11664) -! JVS(48730) = Jac_FULL(5253,3327) - JVS(48730) = B(22838)+B(22840) -! JVS(48731) = Jac_FULL(5253,3328) - JVS(48731) = B(4887)+B(4889) -! JVS(48732) = Jac_FULL(5253,3329) - JVS(48732) = B(20066) -! JVS(48733) = Jac_FULL(5253,3334) - JVS(48733) = B(11656) -! JVS(48734) = Jac_FULL(5253,3340) - JVS(48734) = B(9198)+B(9200) -! JVS(48735) = Jac_FULL(5253,3341) - JVS(48735) = B(5155) -! JVS(48736) = Jac_FULL(5253,3347) - JVS(48736) = B(20044) -! JVS(48737) = Jac_FULL(5253,3349) - JVS(48737) = B(5111) -! JVS(48738) = Jac_FULL(5253,3351) - JVS(48738) = B(4813) -! JVS(48739) = Jac_FULL(5253,3353) - JVS(48739) = B(9581)+B(9583) -! JVS(48740) = Jac_FULL(5253,3354) - JVS(48740) = B(12331)+B(12333) -! JVS(48741) = Jac_FULL(5253,3357) - JVS(48741) = B(9349)+B(9351) -! JVS(48742) = Jac_FULL(5253,3358) - JVS(48742) = B(17465)+B(17467) -! JVS(48743) = Jac_FULL(5253,3360) - JVS(48743) = B(9108)+B(9110) -! JVS(48744) = Jac_FULL(5253,3361) - JVS(48744) = B(20105) -! JVS(48745) = Jac_FULL(5253,3362) - JVS(48745) = B(20216) -! JVS(48746) = Jac_FULL(5253,3363) - JVS(48746) = B(20176) -! JVS(48747) = Jac_FULL(5253,3364) - JVS(48747) = B(5084) -! JVS(48748) = Jac_FULL(5253,3370) - JVS(48748) = B(19883) -! JVS(48749) = Jac_FULL(5253,3371) - JVS(48749) = B(20018) -! JVS(48750) = Jac_FULL(5253,3375) - JVS(48750) = B(19921) -! JVS(48751) = Jac_FULL(5253,3376) - JVS(48751) = B(5167) -! JVS(48752) = Jac_FULL(5253,3379) - JVS(48752) = B(8876)+B(8878) -! JVS(48753) = Jac_FULL(5253,3380) - JVS(48753) = B(16103) -! JVS(48754) = Jac_FULL(5253,3381) - JVS(48754) = B(20190) -! JVS(48755) = Jac_FULL(5253,3385) - JVS(48755) = 0 -! JVS(48756) = Jac_FULL(5253,3388) - JVS(48756) = B(20260) -! JVS(48757) = Jac_FULL(5253,3392) - JVS(48757) = B(21588)+B(21590) -! JVS(48758) = Jac_FULL(5253,3394) - JVS(48758) = B(4086)+B(4087) -! JVS(48759) = Jac_FULL(5253,3395) - JVS(48759) = B(18456) -! JVS(48760) = Jac_FULL(5253,3396) - JVS(48760) = B(15903) -! JVS(48761) = Jac_FULL(5253,3399) - JVS(48761) = B(4923) -! JVS(48762) = Jac_FULL(5253,3400) - JVS(48762) = B(20040) -! JVS(48763) = Jac_FULL(5253,3401) - JVS(48763) = B(14926) -! JVS(48764) = Jac_FULL(5253,3402) - JVS(48764) = B(19946) -! JVS(48765) = Jac_FULL(5253,3406) - JVS(48765) = B(20186) -! JVS(48766) = Jac_FULL(5253,3407) - JVS(48766) = B(15439) -! JVS(48767) = Jac_FULL(5253,3408) - JVS(48767) = B(19033)+B(19035) -! JVS(48768) = Jac_FULL(5253,3409) - JVS(48768) = B(4991) -! JVS(48769) = Jac_FULL(5253,3414) - JVS(48769) = B(20135) -! JVS(48770) = Jac_FULL(5253,3417) - JVS(48770) = B(20238) -! JVS(48771) = Jac_FULL(5253,3418) - JVS(48771) = B(4981) -! JVS(48772) = Jac_FULL(5253,3421) - JVS(48772) = B(18389) -! JVS(48773) = Jac_FULL(5253,3423) - JVS(48773) = B(16001) -! JVS(48774) = Jac_FULL(5253,3427) - JVS(48774) = B(9470)+B(9472) -! JVS(48775) = Jac_FULL(5253,3432) - JVS(48775) = B(5038) -! JVS(48776) = Jac_FULL(5253,3435) - JVS(48776) = B(5401)+B(5403) -! JVS(48777) = Jac_FULL(5253,3436) - JVS(48777) = B(21882)+B(21884) -! JVS(48778) = Jac_FULL(5253,3438) - JVS(48778) = B(9879)+B(9881) -! JVS(48779) = Jac_FULL(5253,3439) - JVS(48779) = B(5847)+B(5849) -! JVS(48780) = Jac_FULL(5253,3443) - JVS(48780) = B(16559) -! JVS(48781) = Jac_FULL(5253,3445) - JVS(48781) = B(6197)+B(6199) -! JVS(48782) = Jac_FULL(5253,3447) - JVS(48782) = B(23556)+B(23558) -! JVS(48783) = Jac_FULL(5253,3456) - JVS(48783) = -B(12734) -! JVS(48784) = Jac_FULL(5253,3457) - JVS(48784) = B(10171)+B(10173) -! JVS(48785) = Jac_FULL(5253,3460) - JVS(48785) = B(10293)+B(10295) -! JVS(48786) = Jac_FULL(5253,3461) - JVS(48786) = -B(16448) -! JVS(48787) = Jac_FULL(5253,3474) - JVS(48787) = -B(13220) -! JVS(48788) = Jac_FULL(5253,3477) - JVS(48788) = B(21582)+B(21584) -! JVS(48789) = Jac_FULL(5253,3478) - JVS(48789) = 0 -! JVS(48790) = Jac_FULL(5253,3481) - JVS(48790) = B(2549)+B(2553) -! JVS(48791) = Jac_FULL(5253,3485) - JVS(48791) = 0 -! JVS(48792) = Jac_FULL(5253,3489) - JVS(48792) = B(6407)+B(6409) -! JVS(48793) = Jac_FULL(5253,3490) - JVS(48793) = B(20515) -! JVS(48794) = Jac_FULL(5253,3491) - JVS(48794) = B(5464)+B(5466) -! JVS(48795) = Jac_FULL(5253,3492) - JVS(48795) = B(2765)+B(2767) -! JVS(48796) = Jac_FULL(5253,3496) - JVS(48796) = B(6909)+B(6911) -! JVS(48797) = Jac_FULL(5253,3500) - JVS(48797) = B(20486) -! JVS(48798) = Jac_FULL(5253,3502) - JVS(48798) = B(14913) -! JVS(48799) = Jac_FULL(5253,3503) - JVS(48799) = B(6260)+B(6262) -! JVS(48800) = Jac_FULL(5253,3507) - JVS(48800) = B(2508)+B(2510) -! JVS(48801) = Jac_FULL(5253,3509) - JVS(48801) = B(2464)+B(2466) -! JVS(48802) = Jac_FULL(5253,3511) - JVS(48802) = B(6328)+B(6330) -! JVS(48803) = Jac_FULL(5253,3518) - JVS(48803) = B(6050)+B(6052) -! JVS(48804) = Jac_FULL(5253,3520) - JVS(48804) = B(4346) -! JVS(48805) = Jac_FULL(5253,3521) - JVS(48805) = B(2682)+B(2684) -! JVS(48806) = Jac_FULL(5253,3523) - JVS(48806) = B(2421)+B(2423) -! JVS(48807) = Jac_FULL(5253,3525) - JVS(48807) = B(2722)+B(2724) -! JVS(48808) = Jac_FULL(5253,3527) - JVS(48808) = B(2881)+B(2883) -! JVS(48809) = Jac_FULL(5253,3529) - JVS(48809) = B(14914)+B(14916) -! JVS(48810) = Jac_FULL(5253,3531) - JVS(48810) = B(5555)+B(5557) -! JVS(48811) = Jac_FULL(5253,3532) - JVS(48811) = B(20492) -! JVS(48812) = Jac_FULL(5253,3533) - JVS(48812) = B(7657)+B(7659) -! JVS(48813) = Jac_FULL(5253,3534) - JVS(48813) = B(5648)+B(5650) -! JVS(48814) = Jac_FULL(5253,3538) - JVS(48814) = B(5305)+B(5307) -! JVS(48815) = Jac_FULL(5253,3539) - JVS(48815) = B(5859)+B(5861) -! JVS(48816) = Jac_FULL(5253,3541) - JVS(48816) = 0 -! JVS(48817) = Jac_FULL(5253,3549) - JVS(48817) = B(16640) -! JVS(48818) = Jac_FULL(5253,3554) - JVS(48818) = B(5779)+B(5781) -! JVS(48819) = Jac_FULL(5253,3555) - JVS(48819) = B(20489) -! JVS(48820) = Jac_FULL(5253,3562) - JVS(48820) = B(5680)+B(5682) -! JVS(48821) = Jac_FULL(5253,3563) - JVS(48821) = B(21587) -! JVS(48822) = Jac_FULL(5253,3568) - JVS(48822) = B(6)-B(8)-B(10) -! JVS(48823) = Jac_FULL(5253,3572) - JVS(48823) = B(4931) -! JVS(48824) = Jac_FULL(5253,3574) - JVS(48824) = B(20101) -! JVS(48825) = Jac_FULL(5253,3575) - JVS(48825) = B(5048) -! JVS(48826) = Jac_FULL(5253,3577) - JVS(48826) = B(4837) -! JVS(48827) = Jac_FULL(5253,3579) - JVS(48827) = 0 -! JVS(48828) = Jac_FULL(5253,3585) - JVS(48828) = B(4826) -! JVS(48829) = Jac_FULL(5253,3586) - JVS(48829) = B(10664) -! JVS(48830) = Jac_FULL(5253,3592) - JVS(48830) = B(5009) -! JVS(48831) = Jac_FULL(5253,3596) - JVS(48831) = B(20131) -! JVS(48832) = Jac_FULL(5253,3597) - JVS(48832) = 0 -! JVS(48833) = Jac_FULL(5253,3598) - JVS(48833) = B(4897) -! JVS(48834) = Jac_FULL(5253,3601) - JVS(48834) = B(21624) -! JVS(48835) = Jac_FULL(5253,3620) - JVS(48835) = 0 -! JVS(48836) = Jac_FULL(5253,3625) - JVS(48836) = 0 -! JVS(48837) = Jac_FULL(5253,3627) - JVS(48837) = B(5961)+B(5963) -! JVS(48838) = Jac_FULL(5253,3628) - JVS(48838) = B(13612) -! JVS(48839) = Jac_FULL(5253,3631) - JVS(48839) = B(6485)+B(6487) -! JVS(48840) = Jac_FULL(5253,3632) - JVS(48840) = B(6493)+B(6495) -! JVS(48841) = Jac_FULL(5253,3634) - JVS(48841) = B(3092)+B(3094) -! JVS(48842) = Jac_FULL(5253,3635) - JVS(48842) = B(16589) -! JVS(48843) = Jac_FULL(5253,3636) - JVS(48843) = B(3030)+B(3032) -! JVS(48844) = Jac_FULL(5253,3637) - JVS(48844) = B(3165)+B(3167) -! JVS(48845) = Jac_FULL(5253,3641) - JVS(48845) = B(6125)+B(6127) -! JVS(48846) = Jac_FULL(5253,3648) - JVS(48846) = B(6135)+B(6137) -! JVS(48847) = Jac_FULL(5253,3650) - JVS(48847) = B(6523)+B(6525) -! JVS(48848) = Jac_FULL(5253,3654) - JVS(48848) = B(4340) -! JVS(48849) = Jac_FULL(5253,3658) - JVS(48849) = B(3041)+B(3043) -! JVS(48850) = Jac_FULL(5253,3659) - JVS(48850) = B(6515)+B(6517) -! JVS(48851) = Jac_FULL(5253,3660) - JVS(48851) = 0 -! JVS(48852) = Jac_FULL(5253,3661) - JVS(48852) = B(5939) -! JVS(48853) = Jac_FULL(5253,3663) - JVS(48853) = B(5949)+B(5951) -! JVS(48854) = Jac_FULL(5253,3665) - JVS(48854) = B(6248)+B(6250) -! JVS(48855) = Jac_FULL(5253,3666) - JVS(48855) = B(9964) -! JVS(48856) = Jac_FULL(5253,3667) - JVS(48856) = B(8228)+B(8230) -! JVS(48857) = Jac_FULL(5253,3668) - JVS(48857) = B(19084)+B(19086) -! JVS(48858) = Jac_FULL(5253,3669) - JVS(48858) = B(12348)+B(12350) -! JVS(48859) = Jac_FULL(5253,3670) - JVS(48859) = B(3059)+B(3061) -! JVS(48860) = Jac_FULL(5253,3671) - JVS(48860) = B(2323)+B(2325) -! JVS(48861) = Jac_FULL(5253,3672) - JVS(48861) = B(14908)+B(14910) -! JVS(48862) = Jac_FULL(5253,3674) - JVS(48862) = B(8279)+B(8281) -! JVS(48863) = Jac_FULL(5253,3675) - JVS(48863) = B(15864)+B(15866) -! JVS(48864) = Jac_FULL(5253,3676) - JVS(48864) = B(10735)+B(10737) -! JVS(48865) = Jac_FULL(5253,3677) - JVS(48865) = B(12655)+B(12657) -! JVS(48866) = Jac_FULL(5253,3678) - JVS(48866) = B(8391)+B(8393) -! JVS(48867) = Jac_FULL(5253,3679) - JVS(48867) = B(15754)+B(15756) -! JVS(48868) = Jac_FULL(5253,3680) - JVS(48868) = B(16323)+B(16325) -! JVS(48869) = Jac_FULL(5253,3685) - JVS(48869) = B(15510)+B(15512) -! JVS(48870) = Jac_FULL(5253,3686) - JVS(48870) = B(20965)+B(20967) -! JVS(48871) = Jac_FULL(5253,3687) - JVS(48871) = B(13397)+B(13399) -! JVS(48872) = Jac_FULL(5253,3688) - JVS(48872) = B(8317)+B(8319) -! JVS(48873) = Jac_FULL(5253,3690) - JVS(48873) = B(8382)+B(8384) -! JVS(48874) = Jac_FULL(5253,3691) - JVS(48874) = B(8400)+B(8402) -! JVS(48875) = Jac_FULL(5253,3692) - JVS(48875) = B(12479)+B(12481) -! JVS(48876) = Jac_FULL(5253,3694) - JVS(48876) = B(22325)+B(22327) -! JVS(48877) = Jac_FULL(5253,3695) - JVS(48877) = B(12669)+B(12671) -! JVS(48878) = Jac_FULL(5253,3696) - JVS(48878) = B(12928)+B(12930) -! JVS(48879) = Jac_FULL(5253,3697) - JVS(48879) = B(15671)+B(15673) -! JVS(48880) = Jac_FULL(5253,3698) - JVS(48880) = B(22628)+B(22630) -! JVS(48881) = Jac_FULL(5253,3699) - JVS(48881) = B(15517)+B(15519) -! JVS(48882) = Jac_FULL(5253,3700) - JVS(48882) = B(16666) -! JVS(48883) = Jac_FULL(5253,3703) - JVS(48883) = B(20911)+B(20913) -! JVS(48884) = Jac_FULL(5253,3704) - JVS(48884) = B(8409)+B(8411) -! JVS(48885) = Jac_FULL(5253,3705) - JVS(48885) = B(12647)+B(12649) -! JVS(48886) = Jac_FULL(5253,3706) - JVS(48886) = B(19215)+B(19217) -! JVS(48887) = Jac_FULL(5253,3710) - JVS(48887) = B(19153)+B(19155) -! JVS(48888) = Jac_FULL(5253,3711) - JVS(48888) = B(15960)+B(15962) -! JVS(48889) = Jac_FULL(5253,3713) - JVS(48889) = B(12814)+B(12816) -! JVS(48890) = Jac_FULL(5253,3714) - JVS(48890) = B(15761)+B(15763) -! JVS(48891) = Jac_FULL(5253,3715) - JVS(48891) = B(22431)+B(22433) -! JVS(48892) = Jac_FULL(5253,3717) - JVS(48892) = B(16865)+B(16867) -! JVS(48893) = Jac_FULL(5253,3718) - JVS(48893) = B(8044)+B(8046) -! JVS(48894) = Jac_FULL(5253,3719) - JVS(48894) = B(22822)+B(22824) -! JVS(48895) = Jac_FULL(5253,3720) - JVS(48895) = B(14354)+B(14356) -! JVS(48896) = Jac_FULL(5253,3721) - JVS(48896) = B(2334)+B(2336) -! JVS(48897) = Jac_FULL(5253,3722) - JVS(48897) = B(22086)+B(22088) -! JVS(48898) = Jac_FULL(5253,3724) - JVS(48898) = B(23775)+B(23777) -! JVS(48899) = Jac_FULL(5253,3725) - JVS(48899) = B(13115)+B(13117) -! JVS(48900) = Jac_FULL(5253,3727) - JVS(48900) = B(12830)+B(12832) -! JVS(48901) = Jac_FULL(5253,3728) - JVS(48901) = B(12339)+B(12341) -! JVS(48902) = Jac_FULL(5253,3730) - JVS(48902) = B(8308)+B(8310) -! JVS(48903) = Jac_FULL(5253,3731) - JVS(48903) = B(8364)+B(8366) -! JVS(48904) = Jac_FULL(5253,3733) - JVS(48904) = B(7346)+B(7348) -! JVS(48905) = Jac_FULL(5253,3738) - JVS(48905) = B(16055)+B(16057) -! JVS(48906) = Jac_FULL(5253,3739) - JVS(48906) = B(12631)+B(12633) -! JVS(48907) = Jac_FULL(5253,3740) - JVS(48907) = B(15501)+B(15503) -! JVS(48908) = Jac_FULL(5253,3741) - JVS(48908) = B(14291)+B(14293) -! JVS(48909) = Jac_FULL(5253,3743) - JVS(48909) = B(23033)+B(23035) -! JVS(48910) = Jac_FULL(5253,3744) - JVS(48910) = B(7249) -! JVS(48911) = Jac_FULL(5253,3745) - JVS(48911) = B(11041)+B(11043) -! JVS(48912) = Jac_FULL(5253,3746) - JVS(48912) = B(20167)+B(20169) -! JVS(48913) = Jac_FULL(5253,3749) - JVS(48913) = B(8328)+B(8330) -! JVS(48914) = Jac_FULL(5253,3750) - JVS(48914) = B(22455)+B(22457) -! JVS(48915) = Jac_FULL(5253,3751) - JVS(48915) = B(8346)+B(8348) -! JVS(48916) = Jac_FULL(5253,3752) - JVS(48916) = B(12488)+B(12490) -! JVS(48917) = Jac_FULL(5253,3753) - JVS(48917) = B(16385)+B(16387) -! JVS(48918) = Jac_FULL(5253,3758) - JVS(48918) = B(7860)+B(7862) -! JVS(48919) = Jac_FULL(5253,3760) - JVS(48919) = B(20655)+B(20657) -! JVS(48920) = Jac_FULL(5253,3761) - JVS(48920) = B(19112)+B(19114) -! JVS(48921) = Jac_FULL(5253,3762) - JVS(48921) = B(13022)+B(13024) -! JVS(48922) = Jac_FULL(5253,3764) - JVS(48922) = B(21019)+B(21021) -! JVS(48923) = Jac_FULL(5253,3766) - JVS(48923) = B(8373)+B(8375) -! JVS(48924) = Jac_FULL(5253,3767) - JVS(48924) = B(4886) -! JVS(48925) = Jac_FULL(5253,3768) - JVS(48925) = B(8355)+B(8357) -! JVS(48926) = Jac_FULL(5253,3769) - JVS(48926) = B(15821)+B(15823) -! JVS(48927) = Jac_FULL(5253,3770) - JVS(48927) = B(16286)+B(16288) -! JVS(48928) = Jac_FULL(5253,3771) - JVS(48928) = B(16234)+B(16236) -! JVS(48929) = Jac_FULL(5253,3772) - JVS(48929) = B(12912)+B(12914) -! JVS(48930) = Jac_FULL(5253,3774) - JVS(48930) = B(13006)+B(13008) -! JVS(48931) = Jac_FULL(5253,3776) - JVS(48931) = B(2377)+B(2379) -! JVS(48932) = Jac_FULL(5253,3778) - JVS(48932) = B(8118)+B(8120) -! JVS(48933) = Jac_FULL(5253,3781) - JVS(48933) = B(8337)+B(8339) -! JVS(48934) = Jac_FULL(5253,3782) - JVS(48934) = B(16330)+B(16332) -! JVS(48935) = Jac_FULL(5253,3784) - JVS(48935) = B(11551)+B(11553) -! JVS(48936) = Jac_FULL(5253,3785) - JVS(48936) = B(8262)+B(8264) -! JVS(48937) = Jac_FULL(5253,3786) - JVS(48937) = B(5288)+B(5290) -! JVS(48938) = Jac_FULL(5253,3788) - JVS(48938) = B(13413)+B(13415) -! JVS(48939) = Jac_FULL(5253,3789) - JVS(48939) = B(21000)+B(21002) -! JVS(48940) = Jac_FULL(5253,3790) - JVS(48940) = B(2953)+B(2955) -! JVS(48941) = Jac_FULL(5253,3791) - JVS(48941) = B(6336)+B(6338) -! JVS(48942) = Jac_FULL(5253,3793) - JVS(48942) = -B(5319) -! JVS(48943) = Jac_FULL(5253,3794) - JVS(48943) = B(2659)+B(2663) -! JVS(48944) = Jac_FULL(5253,3796) - JVS(48944) = B(5563)+B(5565) -! JVS(48945) = Jac_FULL(5253,3797) - JVS(48945) = B(2805)+B(2807) -! JVS(48946) = Jac_FULL(5253,3798) - JVS(48946) = B(2848)+B(2850) -! JVS(48947) = Jac_FULL(5253,3799) - JVS(48947) = B(5767)+B(5769) -! JVS(48948) = Jac_FULL(5253,3801) - JVS(48948) = B(13759)+B(13761) -! JVS(48949) = Jac_FULL(5253,3803) - JVS(48949) = B(2705)+B(2707) -! JVS(48950) = Jac_FULL(5253,3804) - JVS(48950) = B(2616)+B(2620) -! JVS(48951) = Jac_FULL(5253,3806) - JVS(48951) = B(3469)+B(3471) -! JVS(48952) = Jac_FULL(5253,3807) - JVS(48952) = B(2595)+B(2597) -! JVS(48953) = Jac_FULL(5253,3808) - JVS(48953) = B(5636)+B(5638) -! JVS(48954) = Jac_FULL(5253,3810) - JVS(48954) = B(10205)+B(10207) -! JVS(48955) = Jac_FULL(5253,3811) - JVS(48955) = B(2572)+B(2576) -! JVS(48956) = Jac_FULL(5253,3813) - JVS(48956) = B(5688)+B(5690) -! JVS(48957) = Jac_FULL(5253,3814) - JVS(48957) = B(9900)+B(9902) -! JVS(48958) = Jac_FULL(5253,3815) - JVS(48958) = B(5867)+B(5869) -! JVS(48959) = Jac_FULL(5253,3817) - JVS(48959) = B(2924)+B(2926) -! JVS(48960) = Jac_FULL(5253,3819) - JVS(48960) = B(2913)+B(2915) -! JVS(48961) = Jac_FULL(5253,3820) - JVS(48961) = B(5452)+B(5454) -! JVS(48962) = Jac_FULL(5253,3823) - JVS(48962) = B(2398)+B(2402) -! JVS(48963) = Jac_FULL(5253,3825) - JVS(48963) = B(6395)+B(6397) -! JVS(48964) = Jac_FULL(5253,3827) - JVS(48964) = B(5313)+B(5315) -! JVS(48965) = Jac_FULL(5253,3828) - JVS(48965) = B(6038)+B(6040) -! JVS(48966) = Jac_FULL(5253,3835) - JVS(48966) = B(13605)+B(13609) -! JVS(48967) = Jac_FULL(5253,3836) - JVS(48967) = B(3389)+B(3391) -! JVS(48968) = Jac_FULL(5253,3837) - JVS(48968) = B(18945)+B(18947) -! JVS(48969) = Jac_FULL(5253,3838) - JVS(48969) = B(21720)+B(21722) -! JVS(48970) = Jac_FULL(5253,3839) - JVS(48970) = B(19356)+B(19358) -! JVS(48971) = Jac_FULL(5253,3840) - JVS(48971) = B(17064)+B(17066) -! JVS(48972) = Jac_FULL(5253,3841) - JVS(48972) = B(23172)+B(23174) -! JVS(48973) = Jac_FULL(5253,3842) - JVS(48973) = B(5163) -! JVS(48974) = Jac_FULL(5253,3844) - JVS(48974) = B(14785)+B(14787) -! JVS(48975) = Jac_FULL(5253,3845) - JVS(48975) = B(20803)+B(20805) -! JVS(48976) = Jac_FULL(5253,3846) - JVS(48976) = B(22847)+B(22849) -! JVS(48977) = Jac_FULL(5253,3847) - JVS(48977) = B(1383)+B(1385) -! JVS(48978) = Jac_FULL(5253,3848) - JVS(48978) = B(23383)+B(23385) -! JVS(48979) = Jac_FULL(5253,3850) - JVS(48979) = B(14421)+B(14423) -! JVS(48980) = Jac_FULL(5253,3852) - JVS(48980) = B(7335)+B(7337) -! JVS(48981) = Jac_FULL(5253,3853) - JVS(48981) = B(13389)+B(13391) -! JVS(48982) = Jac_FULL(5253,3854) - JVS(48982) = B(8181)+B(8183) -! JVS(48983) = Jac_FULL(5253,3855) - JVS(48983) = B(23481)+B(23483) -! JVS(48984) = Jac_FULL(5253,3858) - JVS(48984) = B(20677)+B(20679) -! JVS(48985) = Jac_FULL(5253,3859) - JVS(48985) = B(8203)+B(8205) -! JVS(48986) = Jac_FULL(5253,3860) - JVS(48986) = B(12855)+B(12857) -! JVS(48987) = Jac_FULL(5253,3863) - JVS(48987) = B(3537)+B(3539) -! JVS(48988) = Jac_FULL(5253,3864) - JVS(48988) = B(18922)+B(18924) -! JVS(48989) = Jac_FULL(5253,3865) - JVS(48989) = B(6885)+B(6887) -! JVS(48990) = Jac_FULL(5253,3866) - JVS(48990) = B(2991)+B(2993) -! JVS(48991) = Jac_FULL(5253,3867) - JVS(48991) = B(3547)+B(3549) -! JVS(48992) = Jac_FULL(5253,3869) - JVS(48992) = B(8088)+B(8090) -! JVS(48993) = Jac_FULL(5253,3870) - JVS(48993) = B(8022)+B(8024) -! JVS(48994) = Jac_FULL(5253,3871) - JVS(48994) = B(15247)+B(15249) -! JVS(48995) = Jac_FULL(5253,3872) - JVS(48995) = B(14524)+B(14526) -! JVS(48996) = Jac_FULL(5253,3873) - JVS(48996) = B(8151)+B(8153) -! JVS(48997) = Jac_FULL(5253,3874) - JVS(48997) = B(23768)+B(23770) -! JVS(48998) = Jac_FULL(5253,3876) - JVS(48998) = B(14403)+B(14405) -! JVS(48999) = Jac_FULL(5253,3878) - JVS(48999) = B(4919) -! JVS(49000) = Jac_FULL(5253,3880) - JVS(49000) = B(15398)+B(15400) -! JVS(49001) = Jac_FULL(5253,3881) - JVS(49001) = B(15314)+B(15316) -! JVS(49002) = Jac_FULL(5253,3882) - JVS(49002) = B(23870)+B(23872) -! JVS(49003) = Jac_FULL(5253,3883) - JVS(49003) = B(11302)+B(11304) -! JVS(49004) = Jac_FULL(5253,3884) - JVS(49004) = B(1427)+B(1429) -! JVS(49005) = Jac_FULL(5253,3885) - JVS(49005) = B(8000)+B(8002) -! JVS(49006) = Jac_FULL(5253,3886) - JVS(49006) = B(14748)+B(14750) -! JVS(49007) = Jac_FULL(5253,3887) - JVS(49007) = B(5035) -! JVS(49008) = Jac_FULL(5253,3888) - JVS(49008) = B(8563)+B(8565) -! JVS(49009) = Jac_FULL(5253,3889) - JVS(49009) = B(8171)+B(8173) -! JVS(49010) = Jac_FULL(5253,3890) - JVS(49010) = B(19470)+B(19472) -! JVS(49011) = Jac_FULL(5253,3891) - JVS(49011) = B(3566)+B(3568) -! JVS(49012) = Jac_FULL(5253,3893) - JVS(49012) = B(7989)+B(7991) -! JVS(49013) = Jac_FULL(5253,3894) - JVS(49013) = B(1850)+B(1852) -! JVS(49014) = Jac_FULL(5253,3895) - JVS(49014) = B(22548)+B(22550) -! JVS(49015) = Jac_FULL(5253,3897) - JVS(49015) = B(12246) -! JVS(49016) = Jac_FULL(5253,3898) - JVS(49016) = B(3624)+B(3626) -! JVS(49017) = Jac_FULL(5253,3899) - JVS(49017) = B(22174)+B(22176) -! JVS(49018) = Jac_FULL(5253,3901) - JVS(49018) = B(14723)+B(14725) -! JVS(49019) = Jac_FULL(5253,3902) - JVS(49019) = B(22751)+B(22753) -! JVS(49020) = Jac_FULL(5253,3903) - JVS(49020) = B(5274)+B(5276) -! JVS(49021) = Jac_FULL(5253,3904) - JVS(49021) = B(12329) -! JVS(49022) = Jac_FULL(5253,3905) - JVS(49022) = B(16882)+B(16884) -! JVS(49023) = Jac_FULL(5253,3907) - JVS(49023) = B(14490)+B(14492) -! JVS(49024) = Jac_FULL(5253,3908) - JVS(49024) = B(22587)+B(22589) -! JVS(49025) = Jac_FULL(5253,3909) - JVS(49025) = B(12277) -! JVS(49026) = Jac_FULL(5253,3910) - JVS(49026) = B(5151) -! JVS(49027) = Jac_FULL(5253,3912) - JVS(49027) = B(15202)+B(15204) -! JVS(49028) = Jac_FULL(5253,3916) - JVS(49028) = B(15370)+B(15372) -! JVS(49029) = Jac_FULL(5253,3919) - JVS(49029) = B(15342)+B(15344) -! JVS(49030) = Jac_FULL(5253,3920) - JVS(49030) = B(14822)+B(14824) -! JVS(49031) = Jac_FULL(5253,3921) - JVS(49031) = B(3432)+B(3434) -! JVS(49032) = Jac_FULL(5253,3922) - JVS(49032) = B(4988) -! JVS(49033) = Jac_FULL(5253,3925) - JVS(49033) = B(5107) -! JVS(49034) = Jac_FULL(5253,3926) - JVS(49034) = B(10889)+B(10891) -! JVS(49035) = Jac_FULL(5253,3927) - JVS(49035) = B(14534)+B(14536) -! JVS(49036) = Jac_FULL(5253,3928) - JVS(49036) = B(14731)+B(14733) -! JVS(49037) = Jac_FULL(5253,3929) - JVS(49037) = B(4310) -! JVS(49038) = Jac_FULL(5253,3932) - JVS(49038) = B(7978)+B(7980) -! JVS(49039) = Jac_FULL(5253,3933) - JVS(49039) = B(13642) -! JVS(49040) = Jac_FULL(5253,3934) - JVS(49040) = B(4856) -! JVS(49041) = Jac_FULL(5253,3936) - JVS(49041) = B(3442)+B(3444) -! JVS(49042) = Jac_FULL(5253,3937) - JVS(49042) = B(20160)+B(20162) -! JVS(49043) = Jac_FULL(5253,3939) - JVS(49043) = B(10446)+B(10448) -! JVS(49044) = Jac_FULL(5253,3940) - JVS(49044) = B(3523)+B(3525) -! JVS(49045) = Jac_FULL(5253,3941) - JVS(49045) = B(15209)+B(15211) -! JVS(49046) = Jac_FULL(5253,3942) - JVS(49046) = B(4845) -! JVS(49047) = Jac_FULL(5253,3943) - JVS(49047) = B(3409)+B(3411) -! JVS(49048) = Jac_FULL(5253,3944) - JVS(49048) = B(8097)+B(8099) -! JVS(49049) = Jac_FULL(5253,3945) - JVS(49049) = B(13105)+B(13107) -! JVS(49050) = Jac_FULL(5253,3948) - JVS(49050) = B(15130)+B(15132) -! JVS(49051) = Jac_FULL(5253,3949) - JVS(49051) = B(20867)+B(20869) -! JVS(49052) = Jac_FULL(5253,3950) - JVS(49052) = B(20878)+B(20880) -! JVS(49053) = Jac_FULL(5253,3951) - JVS(49053) = B(21111)+B(21113) -! JVS(49054) = Jac_FULL(5253,3952) - JVS(49054) = B(8418)+B(8420) -! JVS(49055) = Jac_FULL(5253,3953) - JVS(49055) = B(13047)+B(13049) -! JVS(49056) = Jac_FULL(5253,3954) - JVS(49056) = B(16858)+B(16860) -! JVS(49057) = Jac_FULL(5253,3955) - JVS(49057) = B(14248)+B(14250) -! JVS(49058) = Jac_FULL(5253,3956) - JVS(49058) = B(4977) -! JVS(49059) = Jac_FULL(5253,3961) - JVS(49059) = B(8055)+B(8057) -! JVS(49060) = Jac_FULL(5253,3962) - JVS(49060) = B(19333)+B(19335) -! JVS(49061) = Jac_FULL(5253,3963) - JVS(49061) = B(3613)+B(3615) -! JVS(49062) = Jac_FULL(5253,3964) - JVS(49062) = B(8534)+B(8536) -! JVS(49063) = Jac_FULL(5253,3966) - JVS(49063) = B(14832)+B(14834) -! JVS(49064) = Jac_FULL(5253,3967) - JVS(49064) = B(8066)+B(8068) -! JVS(49065) = Jac_FULL(5253,3969) - JVS(49065) = B(14510)+B(14512) -! JVS(49066) = Jac_FULL(5253,3970) - JVS(49066) = B(5081) -! JVS(49067) = Jac_FULL(5253,3971) - JVS(49067) = B(3603)+B(3605) -! JVS(49068) = Jac_FULL(5253,3973) - JVS(49068) = B(12953)+B(12955) -! JVS(49069) = Jac_FULL(5253,3974) - JVS(49069) = B(22559)+B(22561) -! JVS(49070) = Jac_FULL(5253,3975) - JVS(49070) = B(13097)+B(13099) -! JVS(49071) = Jac_FULL(5253,3976) - JVS(49071) = B(21662)+B(21664) -! JVS(49072) = Jac_FULL(5253,3977) - JVS(49072) = B(15293)+B(15295) -! JVS(49073) = Jac_FULL(5253,3979) - JVS(49073) = B(7739)+B(7741) -! JVS(49074) = Jac_FULL(5253,3980) - JVS(49074) = B(6858)+B(6860) -! JVS(49075) = Jac_FULL(5253,3981) - JVS(49075) = B(14378)+B(14380) -! JVS(49076) = Jac_FULL(5253,3982) - JVS(49076) = B(7357)+B(7359) -! JVS(49077) = Jac_FULL(5253,3983) - JVS(49077) = B(16062)+B(16064) -! JVS(49078) = Jac_FULL(5253,3984) - JVS(49078) = B(21678)+B(21680) -! JVS(49079) = Jac_FULL(5253,3985) - JVS(49079) = B(17080)+B(17082) -! JVS(49080) = Jac_FULL(5253,3987) - JVS(49080) = B(3002)+B(3004) -! JVS(49081) = Jac_FULL(5253,3988) - JVS(49081) = B(11277)+B(11279) -! JVS(49082) = Jac_FULL(5253,3989) - JVS(49082) = B(8129)+B(8131) -! JVS(49083) = Jac_FULL(5253,3990) - JVS(49083) = B(11337)+B(11339) -! JVS(49084) = Jac_FULL(5253,3992) - JVS(49084) = B(17441)+B(17443) -! JVS(49085) = Jac_FULL(5253,3994) - JVS(49085) = B(3558)+B(3560) -! JVS(49086) = Jac_FULL(5253,3997) - JVS(49086) = B(12987)+B(12989) -! JVS(49087) = Jac_FULL(5253,3998) - JVS(49087) = B(20438)-B(20440)+B(20442) -! JVS(49088) = Jac_FULL(5253,3999) - JVS(49088) = B(15946)+B(15948) -! JVS(49089) = Jac_FULL(5253,4000) - JVS(49089) = B(9719)+B(9721) -! JVS(49090) = Jac_FULL(5253,4001) - JVS(49090) = B(9233)+B(9235) -! JVS(49091) = Jac_FULL(5253,4002) - JVS(49091) = B(12762)+B(12764) -! JVS(49092) = Jac_FULL(5253,4003) - JVS(49092) = B(2475)+B(2477) -! JVS(49093) = Jac_FULL(5253,4005) - JVS(49093) = B(9176)+B(9178) -! JVS(49094) = Jac_FULL(5253,4006) - JVS(49094) = B(15657)+B(15659) -! JVS(49095) = Jac_FULL(5253,4007) - JVS(49095) = B(13201)+B(13203) -! JVS(49096) = Jac_FULL(5253,4008) - JVS(49096) = B(10033)+B(10035) -! JVS(49097) = Jac_FULL(5253,4009) - JVS(49097) = B(9746)+B(9748) -! JVS(49098) = Jac_FULL(5253,4011) - JVS(49098) = B(15747)+B(15749) -! JVS(49099) = Jac_FULL(5253,4012) - JVS(49099) = 0 -! JVS(49100) = Jac_FULL(5253,4013) - JVS(49100) = B(20056)-B(20058)+B(20060) -! JVS(49101) = Jac_FULL(5253,4015) - JVS(49101) = B(17434)+B(17436) -! JVS(49102) = Jac_FULL(5253,4016) - JVS(49102) = B(9394)+B(9396) -! JVS(49103) = Jac_FULL(5253,4019) - JVS(49103) = B(21914)+B(21916) -! JVS(49104) = Jac_FULL(5253,4020) - JVS(49104) = B(9270)+B(9272) -! JVS(49105) = Jac_FULL(5253,4021) - JVS(49105) = B(16048)+B(16050) -! JVS(49106) = Jac_FULL(5253,4022) - JVS(49106) = B(15530)+B(15532) -! JVS(49107) = Jac_FULL(5253,4023) - JVS(49107) = B(13076)+B(13078) -! JVS(49108) = Jac_FULL(5253,4025) - JVS(49108) = B(15814)+B(15816) -! JVS(49109) = Jac_FULL(5253,4026) - JVS(49109) = B(21375)-B(21377)+B(21379) -! JVS(49110) = Jac_FULL(5253,4028) - JVS(49110) = B(2432)+B(2434) -! JVS(49111) = Jac_FULL(5253,4030) - JVS(49111) = B(9373)+B(9375) -! JVS(49112) = Jac_FULL(5253,4031) - JVS(49112) = B(15935)+B(15937) -! JVS(49113) = Jac_FULL(5253,4033) - JVS(49113) = B(12603)+B(12605) -! JVS(49114) = Jac_FULL(5253,4034) - JVS(49114) = B(16141)+B(16143) -! JVS(49115) = Jac_FULL(5253,4035) - JVS(49115) = B(13326)+B(13328) -! JVS(49116) = Jac_FULL(5253,4036) - JVS(49116) = B(15850)+B(15852) -! JVS(49117) = Jac_FULL(5253,4037) - JVS(49117) = B(9631)+B(9633) -! JVS(49118) = Jac_FULL(5253,4038) - JVS(49118) = B(9034)+B(9036) -! JVS(49119) = Jac_FULL(5253,4039) - JVS(49119) = B(15807)+B(15809) -! JVS(49120) = Jac_FULL(5253,4040) - JVS(49120) = B(16272)+B(16274) -! JVS(49121) = Jac_FULL(5253,4041) - JVS(49121) = B(9813)+B(9815) -! JVS(49122) = Jac_FULL(5253,4042) - JVS(49122) = B(17448)+B(17450) -! JVS(49123) = Jac_FULL(5253,4043) - JVS(49123) = B(17314)+B(17316) -! JVS(49124) = Jac_FULL(5253,4044) - JVS(49124) = B(16220)+B(16222) -! JVS(49125) = Jac_FULL(5253,4045) - JVS(49125) = 0 -! JVS(49126) = Jac_FULL(5253,4046) - JVS(49126) = B(20078)-B(20080)+B(20082) -! JVS(49127) = Jac_FULL(5253,4049) - JVS(49127) = B(12436)+B(12438) -! JVS(49128) = Jac_FULL(5253,4050) - JVS(49128) = B(13439)+B(13441) -! JVS(49129) = Jac_FULL(5253,4051) - JVS(49129) = B(10216)-B(10218)+B(10220) -! JVS(49130) = Jac_FULL(5253,4052) - JVS(49130) = B(20299)+B(20301) -! JVS(49131) = Jac_FULL(5253,4054) - JVS(49131) = B(13298)+B(13300) -! JVS(49132) = Jac_FULL(5253,4055) - JVS(49132) = B(2776)+B(2778) -! JVS(49133) = Jac_FULL(5253,4057) - JVS(49133) = B(12795)+B(12797) -! JVS(49134) = Jac_FULL(5253,4058) - JVS(49134) = B(15154)+B(15156) -! JVS(49135) = Jac_FULL(5253,4059) - JVS(49135) = B(20888)+B(20890) -! JVS(49136) = Jac_FULL(5253,4060) - JVS(49136) = B(10724)+B(10726) -! JVS(49137) = Jac_FULL(5253,4061) - JVS(49137) = B(16316)+B(16318) -! JVS(49138) = Jac_FULL(5253,4063) - JVS(49138) = B(9501)+B(9503) -! JVS(49139) = Jac_FULL(5253,4064) - JVS(49139) = B(13357)+B(13359) -! JVS(49140) = Jac_FULL(5253,4065) - JVS(49140) = B(12889)+B(12891) -! JVS(49141) = Jac_FULL(5253,4066) - JVS(49141) = 0 -! JVS(49142) = Jac_FULL(5253,4067) - JVS(49142) = B(15470)+B(15472) -! JVS(49143) = Jac_FULL(5253,4068) - JVS(49143) = B(2639)+B(2641) -! JVS(49144) = Jac_FULL(5253,4069) - JVS(49144) = B(12960)+B(12962) -! JVS(49145) = Jac_FULL(5253,4070) - JVS(49145) = B(10132)+B(10134) -! JVS(49146) = Jac_FULL(5253,4072) - JVS(49146) = B(16371)+B(16373) -! JVS(49147) = Jac_FULL(5253,4073) - JVS(49147) = B(12715)+B(12717) -! JVS(49148) = Jac_FULL(5253,4074) - JVS(49148) = B(2816)+B(2818) -! JVS(49149) = Jac_FULL(5253,4075) - JVS(49149) = B(9135)+B(9137) -! JVS(49150) = Jac_FULL(5253,4076) - JVS(49150) = B(15857)+B(15859) -! JVS(49151) = Jac_FULL(5253,4077) - JVS(49151) = B(19186)+B(19188) -! JVS(49152) = Jac_FULL(5253,4078) - JVS(49152) = B(11168)+B(11170) -! JVS(49153) = Jac_FULL(5253,4079) - JVS(49153) = B(12407)+B(12409) -! JVS(49154) = Jac_FULL(5253,4082) - JVS(49154) = B(9974)+B(9976) -! JVS(49155) = Jac_FULL(5253,4085) - JVS(49155) = B(10113)+B(10115) -! JVS(49156) = Jac_FULL(5253,4087) - JVS(49156) = B(6878)+B(6880) -! JVS(49157) = Jac_FULL(5253,4088) - JVS(49157) = B(14758)+B(14760) -! JVS(49158) = Jac_FULL(5253,4089) - JVS(49158) = B(11106)+B(11108) -! JVS(49159) = Jac_FULL(5253,4090) - JVS(49159) = B(3515)+B(3517) -! JVS(49160) = Jac_FULL(5253,4091) - JVS(49160) = B(3453)+B(3455) -! JVS(49161) = Jac_FULL(5253,4092) - JVS(49161) = B(14319)+B(14321) -! JVS(49162) = Jac_FULL(5253,4095) - JVS(49162) = B(10896)+B(10898) -! JVS(49163) = Jac_FULL(5253,4097) - JVS(49163) = B(3461)+B(3463) -! JVS(49164) = Jac_FULL(5253,4098) - JVS(49164) = B(21967)+B(21969) -! JVS(49165) = Jac_FULL(5253,4099) - JVS(49165) = B(1893)+B(1895) -! JVS(49166) = Jac_FULL(5253,4100) - JVS(49166) = B(9166)-B(9168)+B(9170) -! JVS(49167) = Jac_FULL(5253,4101) - JVS(49167) = B(18257)+B(18259) -! JVS(49168) = Jac_FULL(5253,4102) - JVS(49168) = B(21392)-B(21394)+B(21396) -! JVS(49169) = Jac_FULL(5253,4105) - JVS(49169) = B(10991)+B(10993) -! JVS(49170) = Jac_FULL(5253,4106) - JVS(49170) = B(16782)+B(16784) -! JVS(49171) = Jac_FULL(5253,4108) - JVS(49171) = B(4903)+B(4904) -! JVS(49172) = Jac_FULL(5253,4111) - JVS(49172) = B(3070)+B(3072) -! JVS(49173) = Jac_FULL(5253,4112) - JVS(49173) = B(2064)+B(2066) -! JVS(49174) = Jac_FULL(5253,4114) - JVS(49174) = B(5014)+B(5015) -! JVS(49175) = Jac_FULL(5253,4115) - JVS(49175) = B(23713)+B(23715) -! JVS(49176) = Jac_FULL(5253,4116) - JVS(49176) = B(23826)+B(23828) -! JVS(49177) = Jac_FULL(5253,4117) - JVS(49177) = B(23368)+B(23370) -! JVS(49178) = Jac_FULL(5253,4118) - JVS(49178) = B(10950)+B(10952) -! JVS(49179) = Jac_FULL(5253,4119) - JVS(49179) = B(19145)+B(19147) -! JVS(49180) = Jac_FULL(5253,4120) - JVS(49180) = B(23410)+B(23412) -! JVS(49181) = Jac_FULL(5253,4121) - JVS(49181) = B(1807)+B(1809) -! JVS(49182) = Jac_FULL(5253,4123) - JVS(49182) = B(20502)+B(20504) -! JVS(49183) = Jac_FULL(5253,4124) - JVS(49183) = B(14228)+B(14230) -! JVS(49184) = Jac_FULL(5253,4126) - JVS(49184) = B(10866)+B(10868) -! JVS(49185) = Jac_FULL(5253,4127) - JVS(49185) = B(10757)+B(10759) -! JVS(49186) = Jac_FULL(5253,4128) - JVS(49186) = B(15072)+B(15074) -! JVS(49187) = Jac_FULL(5253,4129) - JVS(49187) = B(18744)+B(18746) -! JVS(49188) = Jac_FULL(5253,4130) - JVS(49188) = B(22678)+B(22680) -! JVS(49189) = Jac_FULL(5253,4131) - JVS(49189) = B(22403)+B(22405) -! JVS(49190) = Jac_FULL(5253,4132) - JVS(49190) = -B(6296)+B(6298) -! JVS(49191) = Jac_FULL(5253,4133) - JVS(49191) = B(2733)+B(2735) -! JVS(49192) = Jac_FULL(5253,4134) - JVS(49192) = B(16452)+B(16454) -! JVS(49193) = Jac_FULL(5253,4135) - JVS(49193) = B(17156)+B(17158) -! JVS(49194) = Jac_FULL(5253,4136) - JVS(49194) = B(23704)+B(23706) -! JVS(49195) = Jac_FULL(5253,4137) - JVS(49195) = B(23206)+B(23208) -! JVS(49196) = Jac_FULL(5253,4138) - JVS(49196) = B(21176)+B(21178) -! JVS(49197) = Jac_FULL(5253,4139) - JVS(49197) = B(9709)-B(9711)+B(9713) -! JVS(49198) = Jac_FULL(5253,4140) - JVS(49198) = B(2223)+B(2225) -! JVS(49199) = Jac_FULL(5253,4141) - JVS(49199) = B(12997)+B(12999) -! JVS(49200) = Jac_FULL(5253,4142) - JVS(49200) = B(21820)+B(21822) -! JVS(49201) = Jac_FULL(5253,4143) - JVS(49201) = B(2171)+B(2173) -! JVS(49202) = Jac_FULL(5253,4144) - JVS(49202) = B(7424)+B(7426) -! JVS(49203) = Jac_FULL(5253,4145) - JVS(49203) = B(17147)+B(17149) -! JVS(49204) = Jac_FULL(5253,4146) - JVS(49204) = B(3504)+B(3506) -! JVS(49205) = Jac_FULL(5253,4147) - JVS(49205) = B(22738)+B(22740) -! JVS(49206) = Jac_FULL(5253,4148) - JVS(49206) = B(7415)+B(7417) -! JVS(49207) = Jac_FULL(5253,4149) - JVS(49207) = B(16261)+B(16263) -! JVS(49208) = Jac_FULL(5253,4150) - JVS(49208) = B(20816)+B(20818) -! JVS(49209) = Jac_FULL(5253,4151) - JVS(49209) = B(7330) -! JVS(49210) = Jac_FULL(5253,4152) - JVS(49210) = 0 -! JVS(49211) = Jac_FULL(5253,4153) - JVS(49211) = B(16279)+B(16281) -! JVS(49212) = Jac_FULL(5253,4154) - JVS(49212) = B(20228)-B(20230)+B(20232) -! JVS(49213) = Jac_FULL(5253,4155) - JVS(49213) = B(5099) -! JVS(49214) = Jac_FULL(5253,4156) - JVS(49214) = B(4336) -! JVS(49215) = Jac_FULL(5253,4157) - JVS(49215) = B(23257)+B(23259) -! JVS(49216) = Jac_FULL(5253,4158) - JVS(49216) = B(11014)+B(11016) -! JVS(49217) = Jac_FULL(5253,4159) - JVS(49217) = B(10368)+B(10370) -! JVS(49218) = Jac_FULL(5253,4160) - JVS(49218) = B(5053) -! JVS(49219) = Jac_FULL(5253,4161) - JVS(49219) = B(1183)+B(1187) -! JVS(49220) = Jac_FULL(5253,4162) - JVS(49220) = B(22692)+B(22694) -! JVS(49221) = Jac_FULL(5253,4163) - JVS(49221) = B(15494)+B(15496) -! JVS(49222) = Jac_FULL(5253,4165) - JVS(49222) = B(12903)+B(12905) -! JVS(49223) = Jac_FULL(5253,4166) - JVS(49223) = B(19164)+B(19166) -! JVS(49224) = Jac_FULL(5253,4167) - JVS(49224) = B(2972)+B(2974) -! JVS(49225) = Jac_FULL(5253,4168) - JVS(49225) = B(10241)-B(10243)+B(10245) -! JVS(49226) = Jac_FULL(5253,4169) - JVS(49226) = B(10857)+B(10859) -! JVS(49227) = Jac_FULL(5253,4170) - JVS(49227) = B(10984)+B(10986) -! JVS(49228) = Jac_FULL(5253,4171) - JVS(49228) = B(1988)+B(1990) -! JVS(49229) = Jac_FULL(5253,4172) - JVS(49229) = B(22103)+B(22105) -! JVS(49230) = Jac_FULL(5253,4173) - JVS(49230) = B(14344)+B(14346) -! JVS(49231) = Jac_FULL(5253,4174) - JVS(49231) = B(4937) -! JVS(49232) = Jac_FULL(5253,4176) - JVS(49232) = B(17332)+B(17334) -! JVS(49233) = Jac_FULL(5253,4180) - JVS(49233) = B(16541)+B(16543) -! JVS(49234) = Jac_FULL(5253,4181) - JVS(49234) = B(9803)-B(9805)+B(9807) -! JVS(49235) = Jac_FULL(5253,4182) - JVS(49235) = B(18567)+B(18569) -! JVS(49236) = Jac_FULL(5253,4184) - JVS(49236) = B(21530) -! JVS(49237) = Jac_FULL(5253,4185) - JVS(49237) = B(3494)+B(3496) -! JVS(49238) = Jac_FULL(5253,4187) - JVS(49238) = B(9256)-B(9258)+B(9260) -! JVS(49239) = Jac_FULL(5253,4188) - JVS(49239) = B(18150)+B(18152) -! JVS(49240) = Jac_FULL(5253,4189) - JVS(49240) = B(19070)+B(19072) -! JVS(49241) = Jac_FULL(5253,4190) - JVS(49241) = B(21698) -! JVS(49242) = Jac_FULL(5253,4191) - JVS(49242) = B(20585)+B(20587) -! JVS(49243) = Jac_FULL(5253,4192) - JVS(49243) = B(16242)+B(16244) -! JVS(49244) = Jac_FULL(5253,4193) - JVS(49244) = B(16155)+B(16157) -! JVS(49245) = Jac_FULL(5253,4194) - JVS(49245) = B(18433)+B(18435) -! JVS(49246) = Jac_FULL(5253,4195) - JVS(49246) = B(15477)+B(15479) -! JVS(49247) = Jac_FULL(5253,4196) - JVS(49247) = B(23156)+B(23158) -! JVS(49248) = Jac_FULL(5253,4197) - JVS(49248) = B(17090)+B(17092) -! JVS(49249) = Jac_FULL(5253,4198) - JVS(49249) = B(9922)-B(9924)+B(9926) -! JVS(49250) = Jac_FULL(5253,4200) - JVS(49250) = B(15776)+B(15778) -! JVS(49251) = Jac_FULL(5253,4201) - JVS(49251) = B(7257)+B(7259) -! JVS(49252) = Jac_FULL(5253,4202) - JVS(49252) = B(19969)-B(19971)+B(19973) -! JVS(49253) = Jac_FULL(5253,4203) - JVS(49253) = B(21489)-B(21491)+B(21493) -! JVS(49254) = Jac_FULL(5253,4204) - JVS(49254) = B(18272)+B(18274) -! JVS(49255) = Jac_FULL(5253,4205) - JVS(49255) = B(18366)+B(18368) -! JVS(49256) = Jac_FULL(5253,4206) - JVS(49256) = B(7693)-B(7695)+B(7697) -! JVS(49257) = Jac_FULL(5253,4207) - JVS(49257) = B(22144)-B(22146)+B(22148) -! JVS(49258) = Jac_FULL(5253,4208) - JVS(49258) = B(16490)+2*B(16492)-B(16494)+2*B(16496)+B(16498) -! JVS(49259) = Jac_FULL(5253,4209) - JVS(49259) = B(16466)-B(16468)+B(16470) -! JVS(49260) = Jac_FULL(5253,4210) - JVS(49260) = B(16295)+B(16297) -! JVS(49261) = Jac_FULL(5253,4211) - JVS(49261) = B(16754)+B(16756) -! JVS(49262) = Jac_FULL(5253,4212) - JVS(49262) = B(16148)+B(16150) -! JVS(49263) = Jac_FULL(5253,4213) - JVS(49263) = B(13627)-B(13629) -! JVS(49264) = Jac_FULL(5253,4214) - JVS(49264) = B(22256)-B(22258)+B(22260) -! JVS(49265) = Jac_FULL(5253,4215) - JVS(49265) = B(8589)-B(8591)+B(8593) -! JVS(49266) = Jac_FULL(5253,4216) - JVS(49266) = B(23433)+B(23435) -! JVS(49267) = Jac_FULL(5253,4217) - JVS(49267) = B(15544)+B(15546) -! JVS(49268) = Jac_FULL(5253,4218) - JVS(49268) = B(20143)-B(20145)+B(20147) -! JVS(49269) = Jac_FULL(5253,4219) - JVS(49269) = B(10774)+B(10776) -! JVS(49270) = Jac_FULL(5253,4220) - JVS(49270) = B(23542)+2*B(23546)-B(23548)+2*B(23550)+B(23552) -! JVS(49271) = Jac_FULL(5253,4221) - JVS(49271) = B(19911)-B(19913)+B(19915) -! JVS(49272) = Jac_FULL(5253,4222) - JVS(49272) = B(20558)-B(20560)+B(20562) -! JVS(49273) = Jac_FULL(5253,4225) - JVS(49273) = B(15836)+B(15838) -! JVS(49274) = Jac_FULL(5253,4226) - JVS(49274) = B(23686)+B(23688) -! JVS(49275) = Jac_FULL(5253,4228) - JVS(49275) = B(18821)-B(18823)+B(18825) -! JVS(49276) = Jac_FULL(5253,4229) - JVS(49276) = B(18810)-B(18812)+B(18814) -! JVS(49277) = Jac_FULL(5253,4230) - JVS(49277) = B(20576)-B(20578)+B(20580) -! JVS(49278) = Jac_FULL(5253,4232) - JVS(49278) = B(18657)+B(18659) -! JVS(49279) = Jac_FULL(5253,4234) - JVS(49279) = B(23466)+B(23468) -! JVS(49280) = Jac_FULL(5253,4235) - JVS(49280) = B(19689)+B(19691) -! JVS(49281) = Jac_FULL(5253,4236) - JVS(49281) = B(19294)+B(19296) -! JVS(49282) = Jac_FULL(5253,4237) - JVS(49282) = B(15969)+B(15971) -! JVS(49283) = Jac_FULL(5253,4238) - JVS(49283) = B(15377)+B(15379) -! JVS(49284) = Jac_FULL(5253,4240) - JVS(49284) = B(7365)+B(7367) -! JVS(49285) = Jac_FULL(5253,4241) - JVS(49285) = B(19958)-B(19960)+B(19962) -! JVS(49286) = Jac_FULL(5253,4242) - JVS(49286) = B(21929)+B(21931) -! JVS(49287) = Jac_FULL(5253,4243) - JVS(49287) = B(14843)-B(14845)+B(14847) -! JVS(49288) = Jac_FULL(5253,4244) - JVS(49288) = B(11544)+B(11546) -! JVS(49289) = Jac_FULL(5253,4245) - JVS(49289) = B(18622)+B(18624) -! JVS(49290) = Jac_FULL(5253,4246) - JVS(49290) = B(15873)+B(15875) -! JVS(49291) = Jac_FULL(5253,4247) - JVS(49291) = B(16654)-B(16656) -! JVS(49292) = Jac_FULL(5253,4249) - JVS(49292) = B(11373)+B(11375) -! JVS(49293) = Jac_FULL(5253,4250) - JVS(49293) = B(20534)-B(20536) -! JVS(49294) = Jac_FULL(5253,4251) - JVS(49294) = B(15256)+B(15258) -! JVS(49295) = Jac_FULL(5253,4252) - JVS(49295) = B(16345)+B(16347) -! JVS(49296) = Jac_FULL(5253,4253) - JVS(49296) = B(20030)-B(20032)+B(20034) -! JVS(49297) = Jac_FULL(5253,4254) - JVS(49297) = B(15349)+B(15351) -! JVS(49298) = Jac_FULL(5253,4255) - JVS(49298) = B(6863)+B(6867)-B(6869)+B(6871) -! JVS(49299) = Jac_FULL(5253,4256) - JVS(49299) = B(13880) -! JVS(49300) = Jac_FULL(5253,4257) - JVS(49300) = B(14310)+B(14312) -! JVS(49301) = Jac_FULL(5253,4258) - JVS(49301) = B(17323)-B(17325) -! JVS(49302) = Jac_FULL(5253,4259) - JVS(49302) = B(10403)-B(10405)+B(10407) -! JVS(49303) = Jac_FULL(5253,4260) - JVS(49303) = B(14854)-B(14856)+B(14858) -! JVS(49304) = Jac_FULL(5253,4262) - JVS(49304) = B(18307)+B(18309) -! JVS(49305) = Jac_FULL(5253,4263) - JVS(49305) = B(14903)+B(14905) -! JVS(49306) = Jac_FULL(5253,4264) - JVS(49306) = B(14555)-B(14557) -! JVS(49307) = Jac_FULL(5253,4265) - JVS(49307) = B(15537)+B(15539) -! JVS(49308) = Jac_FULL(5253,4266) - JVS(49308) = B(11115)+2*B(11117)-B(11119)+2*B(11121)+B(11123) -! JVS(49309) = Jac_FULL(5253,4267) - JVS(49309) = B(21286)-B(21288)+B(21290) -! JVS(49310) = Jac_FULL(5253,4268) - JVS(49310) = B(20691)+B(20693) -! JVS(49311) = Jac_FULL(5253,4269) - JVS(49311) = B(10654)-B(10656)+B(10658) -! JVS(49312) = Jac_FULL(5253,4270) - JVS(49312) = B(15321)+B(15323) -! JVS(49313) = Jac_FULL(5253,4271) - JVS(49313) = B(18064)+B(18066) -! JVS(49314) = Jac_FULL(5253,4273) - JVS(49314) = B(15484)+B(15486) -! JVS(49315) = Jac_FULL(5253,4274) - JVS(49315) = B(21169)+B(21171) -! JVS(49316) = Jac_FULL(5253,4275) - JVS(49316) = B(8468)-B(8470)+B(8472) -! JVS(49317) = Jac_FULL(5253,4276) - JVS(49317) = B(18539)+B(18541) -! JVS(49318) = Jac_FULL(5253,4277) - JVS(49318) = B(10273)+B(10275) -! JVS(49319) = Jac_FULL(5253,4280) - JVS(49319) = B(15976)+B(15978) -! JVS(49320) = Jac_FULL(5253,4281) - JVS(49320) = B(8525)-B(8527)+B(8529) -! JVS(49321) = Jac_FULL(5253,4282) - JVS(49321) = B(13593)-B(13595) -! JVS(49322) = Jac_FULL(5253,4283) - JVS(49322) = B(8639)-B(8641)+B(8643) -! JVS(49323) = Jac_FULL(5253,4284) - JVS(49323) = B(15418)+B(15420) -! JVS(49324) = Jac_FULL(5253,4285) - JVS(49324) = B(18504)+B(18506) -! JVS(49325) = Jac_FULL(5253,4286) - JVS(49325) = B(6757)-B(6759) -! JVS(49326) = Jac_FULL(5253,4287) - JVS(49326) = B(16400)+B(16402) -! JVS(49327) = Jac_FULL(5253,4288) - JVS(49327) = B(14301)-B(14303)+B(14305) -! JVS(49328) = Jac_FULL(5253,4289) - JVS(49328) = B(18585)+B(18587) -! JVS(49329) = Jac_FULL(5253,4290) - JVS(49329) = B(19129)+B(19131) -! JVS(49330) = Jac_FULL(5253,4291) - JVS(49330) = B(15687)+B(15689) -! JVS(49331) = Jac_FULL(5253,4292) - JVS(49331) = B(15829)+B(15831) -! JVS(49332) = Jac_FULL(5253,4293) - JVS(49332) = B(15680)+B(15682) -! JVS(49333) = Jac_FULL(5253,4295) - JVS(49333) = B(22347)+B(22349) -! JVS(49334) = Jac_FULL(5253,4296) - JVS(49334) = B(16078)+B(16080) -! JVS(49335) = Jac_FULL(5253,4297) - JVS(49335) = B(16393)+B(16395) -! JVS(49336) = Jac_FULL(5253,4298) - JVS(49336) = B(18164)+B(18166) -! JVS(49337) = Jac_FULL(5253,4299) - JVS(49337) = B(20272)-B(20274)+B(20276) -! JVS(49338) = Jac_FULL(5253,4301) - JVS(49338) = B(11179)-B(11181)+B(11183) -! JVS(49339) = Jac_FULL(5253,4302) - JVS(49339) = B(7376)-B(7378) -! JVS(49340) = Jac_FULL(5253,4303) - JVS(49340) = B(15769)+B(15771) -! JVS(49341) = Jac_FULL(5253,4304) - JVS(49341) = B(15880)+B(15882) -! JVS(49342) = Jac_FULL(5253,4305) - JVS(49342) = B(18229)+B(18231) -! JVS(49343) = Jac_FULL(5253,4306) - JVS(49343) = B(18113)+B(18115) -! JVS(49344) = Jac_FULL(5253,4307) - JVS(49344) = B(16071)+B(16073) -! JVS(49345) = Jac_FULL(5253,4308) - JVS(49345) = B(19897)-B(19899)+B(19901) -! JVS(49346) = Jac_FULL(5253,4309) - JVS(49346) = B(17825)+B(17827) -! JVS(49347) = Jac_FULL(5253,4310) - JVS(49347) = B(1063)+B(1065) -! JVS(49348) = Jac_FULL(5253,4311) - JVS(49348) = B(6240)+B(6242) -! JVS(49349) = Jac_FULL(5253,4312) - JVS(49349) = B(16338)+B(16340) -! JVS(49350) = Jac_FULL(5253,4314) - JVS(49350) = B(16302)+B(16304) -! JVS(49351) = Jac_FULL(5253,4315) - JVS(49351) = B(22576)+B(22578) -! JVS(49352) = Jac_FULL(5253,4316) - JVS(49352) = B(7761)+2*B(7765)-B(7767)+2*B(7769)+B(7771) -! JVS(49353) = Jac_FULL(5253,4317) - JVS(49353) = B(16249)+B(16251) -! JVS(49354) = Jac_FULL(5253,4318) - JVS(49354) = B(10977)+B(10979) -! JVS(49355) = Jac_FULL(5253,4319) - JVS(49355) = B(22656)+B(22658) -! JVS(49356) = Jac_FULL(5253,4320) - JVS(49356) = B(5022)-B(5024) -! JVS(49357) = Jac_FULL(5253,4321) - JVS(49357) = B(13649)+B(13651) -! JVS(49358) = Jac_FULL(5253,4322) - JVS(49358) = 0 -! JVS(49359) = Jac_FULL(5253,4323) - JVS(49359) = B(16227)+B(16229) -! JVS(49360) = Jac_FULL(5253,4324) - JVS(49360) = B(20202)-B(20204)+B(20206) -! JVS(49361) = Jac_FULL(5253,4326) - JVS(49361) = 0 -! JVS(49362) = Jac_FULL(5253,4327) - JVS(49362) = B(15664)+B(15666) -! JVS(49363) = Jac_FULL(5253,4329) - JVS(49363) = B(21327)-B(21329)+B(21331) -! JVS(49364) = Jac_FULL(5253,4330) - JVS(49364) = B(4275) -! JVS(49365) = Jac_FULL(5253,4331) - JVS(49365) = B(20181) -! JVS(49366) = Jac_FULL(5253,4334) - JVS(49366) = B(8162)+B(8164) -! JVS(49367) = Jac_FULL(5253,4335) - JVS(49367) = B(6564)+B(6568) -! JVS(49368) = Jac_FULL(5253,4336) - JVS(49368) = B(3348)+B(3350) -! JVS(49369) = Jac_FULL(5253,4337) - JVS(49369) = B(6847)+B(6849) -! JVS(49370) = Jac_FULL(5253,4338) - JVS(49370) = B(9024)-B(9026)+B(9028) -! JVS(49371) = Jac_FULL(5253,4339) - JVS(49371) = B(13788)+B(13790) -! JVS(49372) = Jac_FULL(5253,4340) - JVS(49372) = B(21688)+B(21690) -! JVS(49373) = Jac_FULL(5253,4341) - JVS(49373) = B(10392)+B(10394) -! JVS(49374) = Jac_FULL(5253,4342) - JVS(49374) = B(23398)+B(23400) -! JVS(49375) = Jac_FULL(5253,4343) - JVS(49375) = B(23849)+B(23851) -! JVS(49376) = Jac_FULL(5253,4344) - JVS(49376) = B(8541)+B(8543) -! JVS(49377) = Jac_FULL(5253,4345) - JVS(49377) = B(8598)+B(8600) -! JVS(49378) = Jac_FULL(5253,4346) - JVS(49378) = B(23584)+B(23586) -! JVS(49379) = Jac_FULL(5253,4347) - JVS(49379) = B(12533)+B(12535) -! JVS(49380) = Jac_FULL(5253,4348) - JVS(49380) = B(16791)+B(16793) -! JVS(49381) = Jac_FULL(5253,4349) - JVS(49381) = B(17909)+B(17911) -! JVS(49382) = Jac_FULL(5253,4350) - JVS(49382) = B(21797)+B(21799) -! JVS(49383) = Jac_FULL(5253,4351) - JVS(49383) = B(2000)+B(2002) -! JVS(49384) = Jac_FULL(5253,4352) - JVS(49384) = B(12188) -! JVS(49385) = Jac_FULL(5253,4353) - JVS(49385) = B(1590)+B(1592) -! JVS(49386) = Jac_FULL(5253,4354) - JVS(49386) = B(11535)+B(11537) -! JVS(49387) = Jac_FULL(5253,4355) - JVS(49387) = B(18013)+B(18015) -! JVS(49388) = Jac_FULL(5253,4356) - JVS(49388) = B(3359)+B(3361) -! JVS(49389) = Jac_FULL(5253,4357) - JVS(49389) = B(15113)+B(15115) -! JVS(49390) = Jac_FULL(5253,4358) - JVS(49390) = B(8743)+B(8745) -! JVS(49391) = Jac_FULL(5253,4359) - JVS(49391) = B(7704)+B(7706) -! JVS(49392) = Jac_FULL(5253,4360) - JVS(49392) = B(15407)+B(15409) -! JVS(49393) = Jac_FULL(5253,4361) - JVS(49393) = B(17969)+B(17971) -! JVS(49394) = Jac_FULL(5253,4363) - JVS(49394) = B(19522)+B(19524) -! JVS(49395) = Jac_FULL(5253,4364) - JVS(49395) = B(1241)+B(1243) -! JVS(49396) = Jac_FULL(5253,4365) - JVS(49396) = B(10957)+B(10959) -! JVS(49397) = Jac_FULL(5253,4367) - JVS(49397) = B(3339)+B(3341) -! JVS(49398) = Jac_FULL(5253,4368) - JVS(49398) = B(10785)+B(10789) -! JVS(49399) = Jac_FULL(5253,4369) - JVS(49399) = B(17883)+B(17885) -! JVS(49400) = Jac_FULL(5253,4370) - JVS(49400) = B(2009)+B(2011) -! JVS(49401) = Jac_FULL(5253,4371) - JVS(49401) = B(21877)+B(21879) -! JVS(49402) = Jac_FULL(5253,4372) - JVS(49402) = B(3079)+B(3083) -! JVS(49403) = Jac_FULL(5253,4373) - JVS(49403) = 0 -! JVS(49404) = Jac_FULL(5253,4374) - JVS(49404) = B(7620)+B(7622) -! JVS(49405) = Jac_FULL(5253,4375) - JVS(49405) = B(9609)-B(9611)+B(9613) -! JVS(49406) = Jac_FULL(5253,4376) - JVS(49406) = B(9001)+B(9003) -! JVS(49407) = Jac_FULL(5253,4377) - JVS(49407) = B(5828)+B(5830) -! JVS(49408) = Jac_FULL(5253,4378) - JVS(49408) = B(16648) -! JVS(49409) = Jac_FULL(5253,4379) - JVS(49409) = 0 -! JVS(49410) = Jac_FULL(5253,4380) - JVS(49410) = B(3815)-B(3817)+B(3819) -! JVS(49411) = Jac_FULL(5253,4381) - JVS(49411) = B(15953)+B(15955) -! JVS(49412) = Jac_FULL(5253,4382) - JVS(49412) = B(1461)+B(1463) -! JVS(49413) = Jac_FULL(5253,4384) - JVS(49413) = B(21194)+B(21196) -! JVS(49414) = Jac_FULL(5253,4385) - JVS(49414) = B(21033)+B(21035) -! JVS(49415) = Jac_FULL(5253,4387) - JVS(49415) = B(2055)+B(2057) -! JVS(49416) = Jac_FULL(5253,4389) - JVS(49416) = B(17939)+B(17941) -! JVS(49417) = Jac_FULL(5253,4390) - JVS(49417) = B(3319)+B(3321) -! JVS(49418) = Jac_FULL(5253,4394) - JVS(49418) = B(14776)+B(14778) -! JVS(49419) = Jac_FULL(5253,4395) - JVS(49419) = 0 -! JVS(49420) = Jac_FULL(5253,4397) - JVS(49420) = 0 -! JVS(49421) = Jac_FULL(5253,4399) - JVS(49421) = B(2346)+B(2348) -! JVS(49422) = Jac_FULL(5253,4400) - JVS(49422) = B(6464)+B(6468) -! JVS(49423) = Jac_FULL(5253,4402) - JVS(49423) = -B(10053) -! JVS(49424) = Jac_FULL(5253,4404) - JVS(49424) = B(20091)-B(20093)+B(20095) -! JVS(49425) = Jac_FULL(5253,4405) - JVS(49425) = B(8439)+2*B(8445)-B(8447)+2*B(8449)+B(8451) -! JVS(49426) = Jac_FULL(5253,4406) - JVS(49426) = B(7921) -! JVS(49427) = Jac_FULL(5253,4407) - JVS(49427) = -B(6044) -! JVS(49428) = Jac_FULL(5253,4408) - JVS(49428) = -B(5549) -! JVS(49429) = Jac_FULL(5253,4409) - JVS(49429) = B(22865)-B(22867)+B(22869) -! JVS(49430) = Jac_FULL(5253,4410) - JVS(49430) = B(21769)+B(21771) -! JVS(49431) = Jac_FULL(5253,4411) - JVS(49431) = B(1012)+B(1014) -! JVS(49432) = Jac_FULL(5253,4412) - JVS(49432) = B(14955)-B(14957)+B(14959) -! JVS(49433) = Jac_FULL(5253,4413) - JVS(49433) = -B(9986) -! JVS(49434) = Jac_FULL(5253,4414) - JVS(49434) = B(10352)-B(10354)+B(10356) -! JVS(49435) = Jac_FULL(5253,4415) - JVS(49435) = B(18157)+B(18159) -! JVS(49436) = Jac_FULL(5253,4416) - JVS(49436) = B(13123)+B(13125) -! JVS(49437) = Jac_FULL(5253,4417) - JVS(49437) = B(19865)-B(19867)+B(19869) -! JVS(49438) = Jac_FULL(5253,4418) - JVS(49438) = B(21855)+B(21857) -! JVS(49439) = Jac_FULL(5253,4419) - JVS(49439) = B(19680)-B(19682)+B(19684) -! JVS(49440) = Jac_FULL(5253,4421) - JVS(49440) = B(21244)+B(21246) -! JVS(49441) = Jac_FULL(5253,4422) - JVS(49441) = B(12557)+B(12559) -! JVS(49442) = Jac_FULL(5253,4423) - JVS(49442) = B(22774)+B(22776) -! JVS(49443) = Jac_FULL(5253,4424) - JVS(49443) = B(18465)-B(18467)+B(18469) -! JVS(49444) = Jac_FULL(5253,4425) - JVS(49444) = B(18426)+B(18428) -! JVS(49445) = Jac_FULL(5253,4426) - JVS(49445) = B(22790)+B(22792) -! JVS(49446) = Jac_FULL(5253,4427) - JVS(49446) = B(8603)+2*B(8609)-B(8611)+2*B(8613)+B(8615) -! JVS(49447) = Jac_FULL(5253,4428) - JVS(49447) = B(1547)-B(1549)+B(1551) -! JVS(49448) = Jac_FULL(5253,4429) - JVS(49448) = B(21270)+B(21272) -! JVS(49449) = Jac_FULL(5253,4430) - JVS(49449) = B(19786)-B(19788)+B(19790) -! JVS(49450) = Jac_FULL(5253,4431) - JVS(49450) = B(19456)-B(19458)+B(19460) -! JVS(49451) = Jac_FULL(5253,4432) - JVS(49451) = B(5376)+B(5378) -! JVS(49452) = Jac_FULL(5253,4433) - JVS(49452) = B(8574)+2*B(8576)-B(8578)+B(8580)+B(8583) -! JVS(49453) = Jac_FULL(5253,4434) - JVS(49453) = B(18615)+B(18617) -! JVS(49454) = Jac_FULL(5253,4435) - JVS(49454) = B(21218)+B(21220) -! JVS(49455) = Jac_FULL(5253,4436) - JVS(49455) = B(10432)-B(10434)+B(10436) -! JVS(49456) = Jac_FULL(5253,4437) - JVS(49456) = -B(6322) -! JVS(49457) = Jac_FULL(5253,4438) - JVS(49457) = -B(6254) -! JVS(49458) = Jac_FULL(5253,4439) - JVS(49458) = B(21889)-B(21891)+B(21893) -! JVS(49459) = Jac_FULL(5253,4440) - JVS(49459) = B(12541)+B(12543) -! JVS(49460) = Jac_FULL(5253,4441) - JVS(49460) = B(20250)-B(20252)+B(20254) -! JVS(49461) = Jac_FULL(5253,4442) - JVS(49461) = B(22612)+B(22614) -! JVS(49462) = Jac_FULL(5253,4443) - JVS(49462) = B(19808)-B(19810)+B(19812) -! JVS(49463) = Jac_FULL(5253,4444) - JVS(49463) = -B(9521) -! JVS(49464) = Jac_FULL(5253,4445) - JVS(49464) = B(21506)-B(21508)+B(21510) -! JVS(49465) = Jac_FULL(5253,4446) - JVS(49465) = B(10903)+B(10905) -! JVS(49466) = Jac_FULL(5253,4447) - JVS(49466) = B(22874)+B(22876) -! JVS(49467) = Jac_FULL(5253,4448) - JVS(49467) = 0 -! JVS(49468) = Jac_FULL(5253,4450) - JVS(49468) = B(19835)-B(19837)+B(19839) -! JVS(49469) = Jac_FULL(5253,4451) - JVS(49469) = B(11526)-B(11528)+B(11530) -! JVS(49470) = Jac_FULL(5253,4452) - JVS(49470) = B(8475)+2*B(8481)-B(8483)+2*B(8485)+B(8487) -! JVS(49471) = Jac_FULL(5253,4453) - JVS(49471) = -B(5674) -! JVS(49472) = Jac_FULL(5253,4454) - JVS(49472) = -B(9290) -! JVS(49473) = Jac_FULL(5253,4455) - JVS(49473) = B(18650)+B(18652) -! JVS(49474) = Jac_FULL(5253,4456) - JVS(49474) = B(23995)-B(23997)+B(23999) -! JVS(49475) = Jac_FULL(5253,4457) - JVS(49475) = -B(5853) -! JVS(49476) = Jac_FULL(5253,4458) - JVS(49476) = B(18106)+B(18108) -! JVS(49477) = Jac_FULL(5253,4459) - JVS(49477) = B(23328)+B(23330) -! JVS(49478) = Jac_FULL(5253,4460) - JVS(49478) = B(18711)+2*B(18713)-B(18715)+2*B(18717)+B(18720) -! JVS(49479) = Jac_FULL(5253,4461) - JVS(49479) = B(21231)+B(21233) -! JVS(49480) = Jac_FULL(5253,4463) - JVS(49480) = B(18578)+B(18580) -! JVS(49481) = Jac_FULL(5253,4464) - JVS(49481) = B(18300)+B(18302) -! JVS(49482) = Jac_FULL(5253,4465) - JVS(49482) = B(23793)+B(23795) -! JVS(49483) = Jac_FULL(5253,4466) - JVS(49483) = -B(9406) -! JVS(49484) = Jac_FULL(5253,4467) - JVS(49484) = B(18057)+B(18059) -! JVS(49485) = Jac_FULL(5253,4468) - JVS(49485) = B(21150)-B(21152)+B(21154) -! JVS(49486) = Jac_FULL(5253,4469) - JVS(49486) = B(8192)-B(8194)+B(8196) -! JVS(49487) = Jac_FULL(5253,4470) - JVS(49487) = B(8499)+2*B(8505)-B(8507)+2*B(8509)+B(8511) -! JVS(49488) = Jac_FULL(5253,4471) - JVS(49488) = -B(9013) -! JVS(49489) = Jac_FULL(5253,4472) - JVS(49489) = B(19932)-B(19934)+B(19936) -! JVS(49490) = Jac_FULL(5253,4473) - JVS(49490) = B(1122)+B(1124) -! JVS(49491) = Jac_FULL(5253,4474) - JVS(49491) = 0 -! JVS(49492) = Jac_FULL(5253,4476) - JVS(49492) = B(2153)+B(2155) -! JVS(49493) = Jac_FULL(5253,4477) - JVS(49493) = B(23746)+B(23748) -! JVS(49494) = Jac_FULL(5253,4478) - JVS(49494) = -B(5458) -! JVS(49495) = Jac_FULL(5253,4479) - JVS(49495) = -B(5773) -! JVS(49496) = Jac_FULL(5253,4480) - JVS(49496) = B(13138)+B(13140) -! JVS(49497) = Jac_FULL(5253,4481) - JVS(49497) = B(13130)+B(13132) -! JVS(49498) = Jac_FULL(5253,4482) - JVS(49498) = B(22782)+B(22784) -! JVS(49499) = Jac_FULL(5253,4483) - JVS(49499) = B(5542)+B(5544) -! JVS(49500) = Jac_FULL(5253,4484) - JVS(49500) = B(19176)-B(19178)+B(19180) -! JVS(49501) = Jac_FULL(5253,4485) - JVS(49501) = B(21810)-B(21812)+B(21814) -! JVS(49502) = Jac_FULL(5253,4486) - JVS(49502) = B(22929)+B(22931) -! JVS(49503) = Jac_FULL(5253,4487) - JVS(49503) = -B(9155) -! JVS(49504) = Jac_FULL(5253,4488) - JVS(49504) = 0 -! JVS(49505) = Jac_FULL(5253,4489) - JVS(49505) = B(21303)-B(21305)+B(21307) -! JVS(49506) = Jac_FULL(5253,4492) - JVS(49506) = 0 -! JVS(49507) = Jac_FULL(5253,4494) - JVS(49507) = -B(5955) -! JVS(49508) = Jac_FULL(5253,4495) - JVS(49508) = -B(5642) -! JVS(49509) = Jac_FULL(5253,4496) - JVS(49509) = B(22337)-B(22339)+B(22341) -! JVS(49510) = Jac_FULL(5253,4497) - JVS(49510) = B(23265)+B(23267) -! JVS(49511) = Jac_FULL(5253,4498) - JVS(49511) = B(18222)+B(18224) -! JVS(49512) = Jac_FULL(5253,4499) - JVS(49512) = -B(10125) -! JVS(49513) = Jac_FULL(5253,4500) - JVS(49513) = B(15167)-B(15169)+B(15171) -! JVS(49514) = Jac_FULL(5253,4502) - JVS(49514) = B(18398)-B(18400)+B(18402) -! JVS(49515) = Jac_FULL(5253,4503) - JVS(49515) = B(24004)+B(24006) -! JVS(49516) = Jac_FULL(5253,4504) - JVS(49516) = -B(6401) -! JVS(49517) = Jac_FULL(5253,4505) - JVS(49517) = 0 -! JVS(49518) = Jac_FULL(5253,4506) - JVS(49518) = B(18265)+B(18267) -! JVS(49519) = Jac_FULL(5253,4507) - JVS(49519) = 0 -! JVS(49520) = Jac_FULL(5253,4509) - JVS(49520) = -B(9245) -! JVS(49521) = Jac_FULL(5253,4510) - JVS(49521) = B(21126)+B(21128) -! JVS(49522) = Jac_FULL(5253,4511) - JVS(49522) = B(18359)+B(18361) -! JVS(49523) = Jac_FULL(5253,4512) - JVS(49523) = 0 -! JVS(49524) = Jac_FULL(5253,4513) - JVS(49524) = B(5251)+B(5253) -! JVS(49525) = Jac_FULL(5253,4514) - JVS(49525) = -B(8800) -! JVS(49526) = Jac_FULL(5253,4515) - JVS(49526) = B(8140)-B(8142)+B(8144) -! JVS(49527) = Jac_FULL(5253,4516) - JVS(49527) = B(10325)-B(10327)+B(10329) -! JVS(49528) = Jac_FULL(5253,4517) - JVS(49528) = B(15047)-B(15049)+B(15051) -! JVS(49529) = Jac_FULL(5253,4518) - JVS(49529) = B(18866)+2*B(18872)-B(18874)+2*B(18876)+B(18878) -! JVS(49530) = Jac_FULL(5253,4519) - JVS(49530) = B(20342)-B(20344)+B(20346) -! JVS(49531) = Jac_FULL(5253,4520) - JVS(49531) = B(23784)-B(23786)+B(23788) -! JVS(49532) = Jac_FULL(5253,4521) - JVS(49532) = B(19764)-B(19766)+B(19768) -! JVS(49533) = Jac_FULL(5253,4522) - JVS(49533) = B(8550)+2*B(8552)-B(8554)+2*B(8556)+B(8559) -! JVS(49534) = Jac_FULL(5253,4523) - JVS(49534) = B(15181)-B(15183)+B(15185) -! JVS(49535) = Jac_FULL(5253,4525) - JVS(49535) = B(23737)-B(23739)+B(23741) -! JVS(49536) = Jac_FULL(5253,4526) - JVS(49536) = B(14650)-B(14652) -! JVS(49537) = Jac_FULL(5253,4529) - JVS(49537) = B(2519)+B(2521) -! JVS(49538) = Jac_FULL(5253,4530) - JVS(49538) = B(7892) -! JVS(49539) = Jac_FULL(5253,4531) - JVS(49539) = -B(8762) -! JVS(49540) = Jac_FULL(5253,4532) - JVS(49540) = B(21257)+B(21259) -! JVS(49541) = Jac_FULL(5253,4533) - JVS(49541) = 0 -! JVS(49542) = Jac_FULL(5253,4535) - JVS(49542) = B(16378)+B(16380) -! JVS(49543) = Jac_FULL(5253,4536) - JVS(49543) = B(20113)-B(20115)+B(20117) -! JVS(49544) = Jac_FULL(5253,4538) - JVS(49544) = B(20937)+B(20939) -! JVS(49545) = Jac_FULL(5253,4539) - JVS(49545) = B(18793)-B(18795)+B(18797) -! JVS(49546) = Jac_FULL(5253,4541) - JVS(49546) = 0 -! JVS(49547) = Jac_FULL(5253,4542) - JVS(49547) = B(14605)+B(14607) -! JVS(49548) = Jac_FULL(5253,4543) - JVS(49548) = B(24038)+B(24040) -! JVS(49549) = Jac_FULL(5253,4544) - JVS(49549) = B(4907)-B(4909) -! JVS(49550) = Jac_FULL(5253,4545) - JVS(49550) = B(17009)+B(17011) -! JVS(49551) = Jac_FULL(5253,4546) - JVS(49551) = B(17580)+B(17582) -! JVS(49552) = Jac_FULL(5253,4548) - JVS(49552) = B(18731)-B(18733)+B(18735) -! JVS(49553) = Jac_FULL(5253,4549) - JVS(49553) = B(19614)+B(19616) -! JVS(49554) = Jac_FULL(5253,4550) - JVS(49554) = B(12662)+B(12664) -! JVS(49555) = Jac_FULL(5253,4551) - JVS(49555) = B(16528)-B(16530) -! JVS(49556) = Jac_FULL(5253,4552) - JVS(49556) = B(16830)+B(16832) -! JVS(49557) = Jac_FULL(5253,4553) - JVS(49557) = B(7787)-B(7789)+B(7791) -! JVS(49558) = Jac_FULL(5253,4554) - JVS(49558) = B(1273)+B(1275) -! JVS(49559) = Jac_FULL(5253,4555) - JVS(49559) = 0 -! JVS(49560) = Jac_FULL(5253,4556) - JVS(49560) = B(13870)-B(13872) -! JVS(49561) = Jac_FULL(5253,4557) - JVS(49561) = B(7954)-B(7956)+B(7958) -! JVS(49562) = Jac_FULL(5253,4558) - JVS(49562) = B(12623)+B(12625) -! JVS(49563) = Jac_FULL(5253,4560) - JVS(49563) = B(21741)+B(21743) -! JVS(49564) = Jac_FULL(5253,4561) - JVS(49564) = B(14996)+B(14998) -! JVS(49565) = Jac_FULL(5253,4562) - JVS(49565) = B(1100)+B(1102) -! JVS(49566) = Jac_FULL(5253,4563) - JVS(49566) = B(7265)+B(7267) -! JVS(49567) = Jac_FULL(5253,4565) - JVS(49567) = B(20495)+B(20497) -! JVS(49568) = Jac_FULL(5253,4566) - JVS(49568) = B(17762)+B(17764) -! JVS(49569) = Jac_FULL(5253,4567) - JVS(49569) = B(14470)+B(14472) -! JVS(49570) = Jac_FULL(5253,4568) - JVS(49570) = B(6165)+B(6169) -! JVS(49571) = Jac_FULL(5253,4571) - JVS(49571) = B(1764)+B(1766) -! JVS(49572) = Jac_FULL(5253,4572) - JVS(49572) = B(23081)+B(23083) -! JVS(49573) = Jac_FULL(5253,4573) - JVS(49573) = B(17753)+B(17755) -! JVS(49574) = Jac_FULL(5253,4574) - JVS(49574) = B(2031)+B(2033) -! JVS(49575) = Jac_FULL(5253,4575) - JVS(49575) = B(6231)+B(6233) -! JVS(49576) = Jac_FULL(5253,4576) - JVS(49576) = 0 -! JVS(49577) = Jac_FULL(5253,4577) - JVS(49577) = B(8288)+B(8290) -! JVS(49578) = Jac_FULL(5253,4578) - JVS(49578) = B(10383)+B(10385) -! JVS(49579) = Jac_FULL(5253,4579) - JVS(49579) = B(2022)+B(2024) -! JVS(49580) = Jac_FULL(5253,4580) - JVS(49580) = B(19121)+B(19123) -! JVS(49581) = Jac_FULL(5253,4581) - JVS(49581) = B(3299)+B(3301) -! JVS(49582) = Jac_FULL(5253,4582) - JVS(49582) = B(2259)+B(2261) -! JVS(49583) = Jac_FULL(5253,4583) - JVS(49583) = B(3330)+B(3332) -! JVS(49584) = Jac_FULL(5253,4584) - JVS(49584) = B(17771)+B(17773) -! JVS(49585) = Jac_FULL(5253,4585) - JVS(49585) = B(1232)+B(1234) -! JVS(49586) = Jac_FULL(5253,4586) - JVS(49586) = B(1903)+B(1905) -! JVS(49587) = Jac_FULL(5253,4587) - JVS(49587) = B(2244)+B(2246) -! JVS(49588) = Jac_FULL(5253,4589) - JVS(49588) = B(10312)+B(10314) -! JVS(49589) = Jac_FULL(5253,4590) - JVS(49589) = B(8648)+B(8650) -! JVS(49590) = Jac_FULL(5253,4591) - JVS(49590) = B(8904)-B(8906)+B(8908) -! JVS(49591) = Jac_FULL(5253,4592) - JVS(49591) = B(8795)+B(8797) -! JVS(49592) = Jac_FULL(5253,4593) - JVS(49592) = B(2085)+B(2087) -! JVS(49593) = Jac_FULL(5253,4594) - JVS(49593) = B(3378)+B(3380) -! JVS(49594) = Jac_FULL(5253,4595) - JVS(49594) = B(10744)+B(10746) -! JVS(49595) = Jac_FULL(5253,4596) - JVS(49595) = B(1262)+B(1264) -! JVS(49596) = Jac_FULL(5253,4597) - JVS(49596) = B(21732)+B(21734) -! JVS(49597) = Jac_FULL(5253,4598) - JVS(49597) = B(2109)+B(2111) -! JVS(49598) = Jac_FULL(5253,4599) - JVS(49598) = B(18914)+B(18916) -! JVS(49599) = Jac_FULL(5253,4600) - JVS(49599) = 0 -! JVS(49600) = Jac_FULL(5253,4601) - JVS(49600) = 0 -! JVS(49601) = Jac_FULL(5253,4603) - JVS(49601) = 0 -! JVS(49602) = Jac_FULL(5253,4605) - JVS(49602) = 0 -! JVS(49603) = Jac_FULL(5253,4607) - JVS(49603) = B(2303)+B(2305) -! JVS(49604) = Jac_FULL(5253,4608) - JVS(49604) = B(2314)+B(2316) -! JVS(49605) = Jac_FULL(5253,4609) - JVS(49605) = B(3189)+B(3191) -! JVS(49606) = Jac_FULL(5253,4610) - JVS(49606) = B(10798)+B(10802) -! JVS(49607) = Jac_FULL(5253,4611) - JVS(49607) = B(10813)-B(10815)+B(10817) -! JVS(49608) = Jac_FULL(5253,4612) - JVS(49608) = B(13973)+B(13975) -! JVS(49609) = Jac_FULL(5253,4613) - JVS(49609) = B(16732)-B(16734)+B(16736) -! JVS(49610) = Jac_FULL(5253,4614) - JVS(49610) = B(16745)+B(16747) -! JVS(49611) = Jac_FULL(5253,4615) - JVS(49611) = B(10550) -! JVS(49612) = Jac_FULL(5253,4616) - JVS(49612) = B(3178)+B(3180) -! JVS(49613) = Jac_FULL(5253,4617) - JVS(49613) = B(10574)+B(10576) -! JVS(49614) = Jac_FULL(5253,4619) - JVS(49614) = 0 -! JVS(49615) = Jac_FULL(5253,4620) - JVS(49615) = B(21416)-B(21418)+B(21420) -! JVS(49616) = Jac_FULL(5253,4621) - JVS(49616) = B(15590)-B(15592) -! JVS(49617) = Jac_FULL(5253,4622) - JVS(49617) = B(3013)-B(3015)+B(3017) -! JVS(49618) = Jac_FULL(5253,4623) - JVS(49618) = B(14984)-B(14986)+B(14988) -! JVS(49619) = Jac_FULL(5253,4624) - JVS(49619) = B(21782)-B(21784)+B(21786) -! JVS(49620) = Jac_FULL(5253,4625) - JVS(49620) = B(22968)+B(22970) -! JVS(49621) = Jac_FULL(5253,4626) - JVS(49621) = B(5351)-B(5353)+B(5355) -! JVS(49622) = Jac_FULL(5253,4627) - JVS(49622) = B(10968)-B(10970)+B(10972) -! JVS(49623) = Jac_FULL(5253,4628) - JVS(49623) = B(10263)-B(10265)+B(10267) -! JVS(49624) = Jac_FULL(5253,4629) - JVS(49624) = B(15060)-B(15062)+B(15064) -! JVS(49625) = Jac_FULL(5253,4631) - JVS(49625) = B(19012)-B(19014)+B(19016) -! JVS(49626) = Jac_FULL(5253,4632) - JVS(49626) = -B(13309) -! JVS(49627) = Jac_FULL(5253,4633) - JVS(49627) = B(6366)-B(6368)+B(6370) -! JVS(49628) = Jac_FULL(5253,4634) - JVS(49628) = B(3781)-B(3783)+B(3785) -! JVS(49629) = Jac_FULL(5253,4635) - JVS(49629) = B(5900)-B(5902)+B(5904) -! JVS(49630) = Jac_FULL(5253,4636) - JVS(49630) = B(22940)-B(22942)+B(22944) -! JVS(49631) = Jac_FULL(5253,4637) - JVS(49631) = 0 -! JVS(49632) = Jac_FULL(5253,4638) - JVS(49632) = B(19346)-B(19348)+B(19350) -! JVS(49633) = Jac_FULL(5253,4639) - JVS(49633) = -B(9642) -! JVS(49634) = Jac_FULL(5253,4640) - JVS(49634) = B(7835)+B(7837) -! JVS(49635) = Jac_FULL(5253,4641) - JVS(49635) = B(5721)-B(5723)+B(5725) -! JVS(49636) = Jac_FULL(5253,4642) - JVS(49636) = B(17665)-B(17667)+B(17669) -! JVS(49637) = Jac_FULL(5253,4643) - JVS(49637) = B(18532)+B(18534) -! JVS(49638) = Jac_FULL(5253,4644) - JVS(49638) = B(22484)+B(22486) -! JVS(49639) = Jac_FULL(5253,4645) - JVS(49639) = B(969)+B(971) -! JVS(49640) = Jac_FULL(5253,4646) - JVS(49640) = B(10925)+B(10927) -! JVS(49641) = Jac_FULL(5253,4647) - JVS(49641) = B(1155)+B(1157) -! JVS(49642) = Jac_FULL(5253,4648) - JVS(49642) = B(21119)+B(21121) -! JVS(49643) = Jac_FULL(5253,4649) - JVS(49643) = B(5221)-B(5223)+B(5225) -! JVS(49644) = Jac_FULL(5253,4650) - JVS(49644) = 0 -! JVS(49645) = Jac_FULL(5253,4652) - JVS(49645) = B(22017)-B(22019)+B(22021) -! JVS(49646) = Jac_FULL(5253,4653) - JVS(49646) = B(23304)-B(23306)+B(23308) -! JVS(49647) = Jac_FULL(5253,4654) - JVS(49647) = B(6214)-B(6216)+B(6218) -! JVS(49648) = Jac_FULL(5253,4655) - JVS(49648) = B(18497)+B(18499) -! JVS(49649) = Jac_FULL(5253,4656) - JVS(49649) = B(6548)-B(6550)+B(6552) -! JVS(49650) = Jac_FULL(5253,4657) - JVS(49650) = B(18888)-B(18890)+B(18892) -! JVS(49651) = Jac_FULL(5253,4658) - JVS(49651) = B(18858)-B(18860)+B(18862) -! JVS(49652) = Jac_FULL(5253,4659) - JVS(49652) = B(21846)-B(21848)+B(21850) -! JVS(49653) = Jac_FULL(5253,4660) - JVS(49653) = B(20720)-B(20722)+B(20724) -! JVS(49654) = Jac_FULL(5253,4661) - JVS(49654) = B(12821)+B(12823) -! JVS(49655) = Jac_FULL(5253,4662) - JVS(49655) = B(17510)-B(17512)+B(17514) -! JVS(49656) = Jac_FULL(5253,4663) - JVS(49656) = -B(13340) -! JVS(49657) = Jac_FULL(5253,4664) - JVS(49657) = B(16988)-B(16990)+B(16992) -! JVS(49658) = Jac_FULL(5253,4665) - JVS(49658) = B(15101)-B(15103)+B(15105) -! JVS(49659) = Jac_FULL(5253,4666) - JVS(49659) = B(3023)+B(3025) -! JVS(49660) = Jac_FULL(5253,4667) - JVS(49660) = B(5746)+B(5748) -! JVS(49661) = Jac_FULL(5253,4668) - JVS(49661) = B(13505)-B(13507) -! JVS(49662) = Jac_FULL(5253,4669) - JVS(49662) = B(12548)+B(12550) -! JVS(49663) = Jac_FULL(5253,4670) - JVS(49663) = -B(9758) -! JVS(49664) = Jac_FULL(5253,4671) - JVS(49664) = -B(12698) -! JVS(49665) = Jac_FULL(5253,4672) - JVS(49665) = B(22666)+B(22668) -! JVS(49666) = Jac_FULL(5253,4673) - JVS(49666) = B(23188)-B(23190)+B(23192) -! JVS(49667) = Jac_FULL(5253,4674) - JVS(49667) = B(13175)+B(13177) -! JVS(49668) = Jac_FULL(5253,4675) - JVS(49668) = B(5925)+B(5927) -! JVS(49669) = Jac_FULL(5253,4676) - JVS(49669) = -B(12745) -! JVS(49670) = Jac_FULL(5253,4677) - JVS(49670) = B(16518)-B(16520) -! JVS(49671) = Jac_FULL(5253,4678) - JVS(49671) = B(14803)-B(14805) -! JVS(49672) = Jac_FULL(5253,4679) - JVS(49672) = B(19442)-B(19444)+B(19446) -! JVS(49673) = Jac_FULL(5253,4680) - JVS(49673) = B(9859)-B(9861)+B(9863) -! JVS(49674) = Jac_FULL(5253,4681) - JVS(49674) = B(22600)-B(22602)+B(22604) -! JVS(49675) = Jac_FULL(5253,4682) - JVS(49675) = -B(13281) -! JVS(49676) = Jac_FULL(5253,4683) - JVS(49676) = B(5837)+B(5839) -! JVS(49677) = Jac_FULL(5253,4684) - JVS(49677) = B(9089)-B(9091)+B(9093) -! JVS(49678) = Jac_FULL(5253,4685) - JVS(49678) = B(6452)-B(6454)+B(6456) -! JVS(49679) = Jac_FULL(5253,4686) - JVS(49679) = B(23975)-B(23977)+B(23979) -! JVS(49680) = Jac_FULL(5253,4687) - JVS(49680) = B(23984)+B(23986) -! JVS(49681) = Jac_FULL(5253,4688) - JVS(49681) = B(13013)+B(13015) -! JVS(49682) = Jac_FULL(5253,4689) - JVS(49682) = B(12919)+B(12921) -! JVS(49683) = Jac_FULL(5253,4690) - JVS(49683) = -B(12586) -! JVS(49684) = Jac_FULL(5253,4691) - JVS(49684) = B(14793)-B(14795) -! JVS(49685) = Jac_FULL(5253,4692) - JVS(49685) = B(5607)-B(5609)+B(5611) -! JVS(49686) = Jac_FULL(5253,4695) - JVS(49686) = B(1579)+B(1583) -! JVS(49687) = Jac_FULL(5253,4696) - JVS(49687) = B(1785)+B(1787) -! JVS(49688) = Jac_FULL(5253,4697) - JVS(49688) = B(15121)+B(15123) -! JVS(49689) = Jac_FULL(5253,4698) - JVS(49689) = B(1194)+B(1196) -! JVS(49690) = Jac_FULL(5253,4699) - JVS(49690) = B(5619)+B(5621) -! JVS(49691) = Jac_FULL(5253,4700) - JVS(49691) = B(2181)+B(2183) -! JVS(49692) = Jac_FULL(5253,4701) - JVS(49692) = B(5737)+B(5739) -! JVS(49693) = Jac_FULL(5253,4702) - JVS(49693) = B(2288)+B(2290) -! JVS(49694) = Jac_FULL(5253,4703) - JVS(49694) = B(13333)+B(13335) -! JVS(49695) = Jac_FULL(5253,4704) - JVS(49695) = B(15083)+B(15085) -! JVS(49696) = Jac_FULL(5253,4705) - JVS(49696) = B(1347)+B(1349) -! JVS(49697) = Jac_FULL(5253,4706) - JVS(49697) = B(12738)+B(12740) -! JVS(49698) = Jac_FULL(5253,4707) - JVS(49698) = B(5435)+B(5437) -! JVS(49699) = Jac_FULL(5253,4709) - JVS(49699) = B(15386)+B(15388) -! JVS(49700) = Jac_FULL(5253,4711) - JVS(49700) = B(13813)+B(13817) -! JVS(49701) = Jac_FULL(5253,4712) - JVS(49701) = B(15330)+B(15332) -! JVS(49702) = Jac_FULL(5253,4713) - JVS(49702) = B(15302)+B(15304) -! JVS(49703) = Jac_FULL(5253,4714) - JVS(49703) = B(2129)+B(2131) -! JVS(49704) = Jac_FULL(5253,4715) - JVS(49704) = B(15358)+B(15360) -! JVS(49705) = Jac_FULL(5253,4716) - JVS(49705) = B(15281)+B(15283) -! JVS(49706) = Jac_FULL(5253,4717) - JVS(49706) = 0 -! JVS(49707) = Jac_FULL(5253,4718) - JVS(49707) = B(5533)+B(5535) -! JVS(49708) = Jac_FULL(5253,4719) - JVS(49708) = B(8657)+B(8659) -! JVS(49709) = Jac_FULL(5253,4720) - JVS(49709) = B(5242)+B(5244) -! JVS(49710) = Jac_FULL(5253,4722) - JVS(49710) = B(8271)+B(8273) -! JVS(49711) = Jac_FULL(5253,4723) - JVS(49711) = B(2214)+B(2216) -! JVS(49712) = Jac_FULL(5253,4724) - JVS(49712) = B(8456)+B(8458) -! JVS(49713) = Jac_FULL(5253,4725) - JVS(49713) = B(6306)+B(6308) -! JVS(49714) = Jac_FULL(5253,4726) - JVS(49714) = B(18525)+B(18527) -! JVS(49715) = Jac_FULL(5253,4727) - JVS(49715) = B(6378)+B(6380) -! JVS(49716) = Jac_FULL(5253,4729) - JVS(49716) = 0 -! JVS(49717) = Jac_FULL(5253,4730) - JVS(49717) = B(10823)+B(10825) -! JVS(49718) = Jac_FULL(5253,4731) - JVS(49718) = B(21472)-B(21474)+B(21476) -! JVS(49719) = Jac_FULL(5253,4732) - JVS(49719) = B(10339)+B(10341) -! JVS(49720) = Jac_FULL(5253,4733) - JVS(49720) = B(1742)+B(1744) -! JVS(49721) = Jac_FULL(5253,4734) - JVS(49721) = B(21083)+B(21085) -! JVS(49722) = Jac_FULL(5253,4735) - JVS(49722) = B(14966)+B(14968) -! JVS(49723) = Jac_FULL(5253,4736) - JVS(49723) = 0 -! JVS(49724) = Jac_FULL(5253,4738) - JVS(49724) = B(17302)-B(17304)+B(17306) -! JVS(49725) = Jac_FULL(5253,4739) - JVS(49725) = B(20368)+2*B(20370)-B(20372)+2*B(20374)+B(20377) -! JVS(49726) = Jac_FULL(5253,4740) - JVS(49726) = B(8948)-B(8950)+B(8952) -! JVS(49727) = Jac_FULL(5253,4741) - JVS(49727) = B(15615)-B(15617) -! JVS(49728) = Jac_FULL(5253,4742) - JVS(49728) = B(18202)+B(18204) -! JVS(49729) = Jac_FULL(5253,4743) - JVS(49729) = 0 -! JVS(49730) = Jac_FULL(5253,4744) - JVS(49730) = B(21434)-B(21436)+B(21438) -! JVS(49731) = Jac_FULL(5253,4745) - JVS(49731) = B(14767)+B(14769) -! JVS(49732) = Jac_FULL(5253,4746) - JVS(49732) = B(7548)+B(7550) -! JVS(49733) = Jac_FULL(5253,4748) - JVS(49733) = B(21052)+B(21054) -! JVS(49734) = Jac_FULL(5253,4750) - JVS(49734) = B(18690)+B(18692) -! JVS(49735) = Jac_FULL(5253,4751) - JVS(49735) = B(21547)+B(21549) -! JVS(49736) = Jac_FULL(5253,4752) - JVS(49736) = B(21902)-B(21904)+B(21906) -! JVS(49737) = Jac_FULL(5253,4753) - JVS(49737) = B(20354)+2*B(20356)-B(20358)+2*B(20360)+B(20363) -! JVS(49738) = Jac_FULL(5253,4754) - JVS(49738) = B(7513)+B(7515) -! JVS(49739) = Jac_FULL(5253,4755) - JVS(49739) = B(1612)+B(1614) -! JVS(49740) = Jac_FULL(5253,4756) - JVS(49740) = B(7522)+B(7524) -! JVS(49741) = Jac_FULL(5253,4757) - JVS(49741) = B(14695)-B(14697) -! JVS(49742) = Jac_FULL(5253,4758) - JVS(49742) = B(10505)+B(10507) -! JVS(49743) = Jac_FULL(5253,4759) - JVS(49743) = B(22806)-B(22808)+B(22810) -! JVS(49744) = Jac_FULL(5253,4760) - JVS(49744) = B(8033)-B(8035)+B(8037) -! JVS(49745) = Jac_FULL(5253,4761) - JVS(49745) = B(14596)+B(14598) -! JVS(49746) = Jac_FULL(5253,4762) - JVS(49746) = B(14564)+B(14566) -! JVS(49747) = Jac_FULL(5253,4763) - JVS(49747) = B(1392)+B(1394) -! JVS(49748) = Jac_FULL(5253,4764) - JVS(49748) = B(19509)+B(19511) -! JVS(49749) = Jac_FULL(5253,4765) - JVS(49749) = B(11023)+B(11025) -! JVS(49750) = Jac_FULL(5253,4766) - JVS(49750) = B(1871)+B(1873) -! JVS(49751) = Jac_FULL(5253,4767) - JVS(49751) = B(1046)+B(1048) -! JVS(49752) = Jac_FULL(5253,4768) - JVS(49752) = B(16837)+B(16839) -! JVS(49753) = Jac_FULL(5253,4769) - JVS(49753) = B(9932)+B(9934) -! JVS(49754) = Jac_FULL(5253,4770) - JVS(49754) = B(19982)-B(19984)+B(19986) -! JVS(49755) = Jac_FULL(5253,4771) - JVS(49755) = B(8216)-B(8218)+B(8220) -! JVS(49756) = Jac_FULL(5253,4772) - JVS(49756) = B(20466)+2*B(20468)-B(20470)+2*B(20472)+B(20475) -! JVS(49757) = Jac_FULL(5253,4773) - JVS(49757) = B(9067)-B(9069)+B(9071) -! JVS(49758) = Jac_FULL(5253,4774) - JVS(49758) = B(6766)+B(6768) -! JVS(49759) = Jac_FULL(5253,4775) - JVS(49759) = 0 -! JVS(49760) = Jac_FULL(5253,4776) - JVS(49760) = B(13560)-B(13562) -! JVS(49761) = Jac_FULL(5253,4777) - JVS(49761) = B(2162)+B(2164) -! JVS(49762) = Jac_FULL(5253,4778) - JVS(49762) = B(19600)+B(19602) -! JVS(49763) = Jac_FULL(5253,4779) - JVS(49763) = B(23648)+B(23650) -! JVS(49764) = Jac_FULL(5253,4780) - JVS(49764) = B(1174)+B(1176) -! JVS(49765) = Jac_FULL(5253,4781) - JVS(49765) = B(14497)+B(14499) -! JVS(49766) = Jac_FULL(5253,4782) - JVS(49766) = B(2138)+B(2140) -! JVS(49767) = Jac_FULL(5253,4783) - JVS(49767) = B(1534)+B(1536) -! JVS(49768) = Jac_FULL(5253,4784) - JVS(49768) = B(3310)+B(3312) -! JVS(49769) = Jac_FULL(5253,4785) - JVS(49769) = B(7671)+B(7673) -! JVS(49770) = Jac_FULL(5253,4786) - JVS(49770) = B(10617) -! JVS(49771) = Jac_FULL(5253,4787) - JVS(49771) = B(10281)+B(10283) -! JVS(49772) = Jac_FULL(5253,4788) - JVS(49772) = -B(13184) -! JVS(49773) = Jac_FULL(5253,4789) - JVS(49773) = B(14365)+B(14367) -! JVS(49774) = Jac_FULL(5253,4790) - JVS(49774) = -B(12967) -! JVS(49775) = Jac_FULL(5253,4791) - JVS(49775) = -B(12872) -! JVS(49776) = Jac_FULL(5253,4792) - JVS(49776) = B(16020)-B(16022)+B(16024) -! JVS(49777) = Jac_FULL(5253,4793) - JVS(49777) = 0 -! JVS(49778) = Jac_FULL(5253,4794) - JVS(49778) = 0 -! JVS(49779) = Jac_FULL(5253,4795) - JVS(49779) = B(17474)-B(17476)+B(17478) -! JVS(49780) = Jac_FULL(5253,4797) - JVS(49780) = -B(12775) -! JVS(49781) = Jac_FULL(5253,4798) - JVS(49781) = -B(12423) -! JVS(49782) = Jac_FULL(5253,4799) - JVS(49782) = 0 -! JVS(49783) = Jac_FULL(5253,4800) - JVS(49783) = 0 -! JVS(49784) = Jac_FULL(5253,4802) - JVS(49784) = B(17817)+B(17819) -! JVS(49785) = Jac_FULL(5253,4803) - JVS(49785) = B(6078)+B(6082) -! JVS(49786) = Jac_FULL(5253,4804) - JVS(49786) = B(8619)+B(8621) -! JVS(49787) = Jac_FULL(5253,4805) - JVS(49787) = 0 -! JVS(49788) = Jac_FULL(5253,4806) - JVS(49788) = B(20625)-B(20627)+B(20629) -! JVS(49789) = Jac_FULL(5253,4807) - JVS(49789) = B(6147)-B(6149)+B(6151) -! JVS(49790) = Jac_FULL(5253,4808) - JVS(49790) = B(20001)-B(20003)+B(20005) -! JVS(49791) = Jac_FULL(5253,4809) - JVS(49791) = B(2072)+B(2074) -! JVS(49792) = Jac_FULL(5253,4810) - JVS(49792) = -B(13063) -! JVS(49793) = Jac_FULL(5253,4811) - JVS(49793) = B(17833)+B(17835) -! JVS(49794) = Jac_FULL(5253,4812) - JVS(49794) = B(23129)-B(23131)+B(23133) -! JVS(49795) = Jac_FULL(5253,4813) - JVS(49795) = B(6574)+B(6576) -! JVS(49796) = Jac_FULL(5253,4814) - JVS(49796) = B(1163)+B(1167) -! JVS(49797) = Jac_FULL(5253,4815) - JVS(49797) = 0 -! JVS(49798) = Jac_FULL(5253,4816) - JVS(49798) = B(18933)-B(18935)+B(18937) -! JVS(49799) = Jac_FULL(5253,4817) - JVS(49799) = B(8491)+B(8493) -! JVS(49800) = Jac_FULL(5253,4818) - JVS(49800) = B(23318)-B(23320)+B(23322) -! JVS(49801) = Jac_FULL(5253,4819) - JVS(49801) = B(6641)-B(6643) -! JVS(49802) = Jac_FULL(5253,4820) - JVS(49802) = B(23753)+B(23755) -! JVS(49803) = Jac_FULL(5253,4821) - JVS(49803) = B(5367)+B(5369) -! JVS(49804) = Jac_FULL(5253,4822) - JVS(49804) = B(8699)-B(8701)+B(8703) -! JVS(49805) = Jac_FULL(5253,4823) - JVS(49805) = B(8709)+B(8711) -! JVS(49806) = Jac_FULL(5253,4824) - JVS(49806) = B(17165)-B(17167) -! JVS(49807) = Jac_FULL(5253,4825) - JVS(49807) = B(22029)+B(22031) -! JVS(49808) = Jac_FULL(5253,4826) - JVS(49808) = B(20329)-B(20331)+B(20333) -! JVS(49809) = Jac_FULL(5253,4827) - JVS(49809) = B(10941)+B(10943) -! JVS(49810) = Jac_FULL(5253,4828) - JVS(49810) = B(15443)-B(15445) -! JVS(49811) = Jac_FULL(5253,4829) - JVS(49811) = B(5812)-B(5814)+B(5816) -! JVS(49812) = Jac_FULL(5253,4830) - JVS(49812) = B(14274)-B(14276)+B(14278) -! JVS(49813) = Jac_FULL(5253,4831) - JVS(49813) = B(21538)-B(21540)+B(21542) -! JVS(49814) = Jac_FULL(5253,4832) - JVS(49814) = B(13655) -! JVS(49815) = Jac_FULL(5253,4833) - JVS(49815) = B(5418)-B(5420)+B(5422) -! JVS(49816) = Jac_FULL(5253,4834) - JVS(49816) = 0 -! JVS(49817) = Jac_FULL(5253,4835) - JVS(49817) = B(12470)+B(12472) -! JVS(49818) = Jac_FULL(5253,4836) - JVS(49818) = B(11004)-B(11006)+B(11008) -! JVS(49819) = Jac_FULL(5253,4837) - JVS(49819) = B(1074)+B(1076) -! JVS(49820) = Jac_FULL(5253,4838) - JVS(49820) = B(5116)-B(5118) -! JVS(49821) = Jac_FULL(5253,4839) - JVS(49821) = B(23094)-B(23096)+B(23098) -! JVS(49822) = Jac_FULL(5253,4840) - JVS(49822) = 0 -! JVS(49823) = Jac_FULL(5253,4841) - JVS(49823) = B(3278)+B(3280) -! JVS(49824) = Jac_FULL(5253,4843) - JVS(49824) = B(7444)-B(7446) -! JVS(49825) = Jac_FULL(5253,4844) - JVS(49825) = B(1090)+B(1092) -! JVS(49826) = Jac_FULL(5253,4845) - JVS(49826) = B(4831) -! JVS(49827) = Jac_FULL(5253,4846) - JVS(49827) = B(9673)-B(9675)+B(9677) -! JVS(49828) = Jac_FULL(5253,4847) - JVS(49828) = B(11243)-B(11245)+B(11247) -! JVS(49829) = Jac_FULL(5253,4848) - JVS(49829) = B(14938)-B(14940)+B(14942) -! JVS(49830) = Jac_FULL(5253,4849) - JVS(49830) = B(17035)-B(17037)+B(17039) -! JVS(49831) = Jac_FULL(5253,4850) - JVS(49831) = B(18003)-B(18005)+B(18007) -! JVS(49832) = Jac_FULL(5253,4851) - JVS(49832) = 0 -! JVS(49833) = Jac_FULL(5253,4852) - JVS(49833) = B(3258)+B(3260) -! JVS(49834) = Jac_FULL(5253,4853) - JVS(49834) = B(23811)-B(23813)+B(23815) -! JVS(49835) = Jac_FULL(5253,4854) - JVS(49835) = B(23290)-B(23292)+B(23294) -! JVS(49836) = Jac_FULL(5253,4855) - JVS(49836) = B(14446)-B(14448)+B(14450) -! JVS(49837) = Jac_FULL(5253,4856) - JVS(49837) = B(8516)+B(8518) -! JVS(49838) = Jac_FULL(5253,4857) - JVS(49838) = B(12638)+B(12640) -! JVS(49839) = Jac_FULL(5253,4858) - JVS(49839) = B(3249)+B(3251) -! JVS(49840) = Jac_FULL(5253,4859) - JVS(49840) = -B(12397) -! JVS(49841) = Jac_FULL(5253,4860) - JVS(49841) = B(8011)-B(8013)+B(8015) -! JVS(49842) = Jac_FULL(5253,4861) - JVS(49842) = B(12462)+B(12464) -! JVS(49843) = Jac_FULL(5253,4862) - JVS(49843) = B(7873)-B(7875)+B(7877) -! JVS(49844) = Jac_FULL(5253,4863) - JVS(49844) = B(21064)-B(21066)+B(21068) -! JVS(49845) = Jac_FULL(5253,4864) - JVS(49845) = B(16122)-B(16124)+B(16126) -! JVS(49846) = Jac_FULL(5253,4865) - JVS(49846) = 0 -! JVS(49847) = Jac_FULL(5253,4866) - JVS(49847) = B(17540)-B(17542)+B(17544) -! JVS(49848) = Jac_FULL(5253,4867) - JVS(49848) = B(22376)-B(22378)+B(22380) -! JVS(49849) = Jac_FULL(5253,4868) - JVS(49849) = B(5056)-B(5058) -! JVS(49850) = Jac_FULL(5253,4869) - JVS(49850) = B(11312)-B(11314) -! JVS(49851) = Jac_FULL(5253,4870) - JVS(49851) = B(980)+B(982) -! JVS(49852) = Jac_FULL(5253,4871) - JVS(49852) = B(10934)+B(10936) -! JVS(49853) = Jac_FULL(5253,4873) - JVS(49853) = 0 -! JVS(49854) = Jac_FULL(5253,4874) - JVS(49854) = B(19731)-B(19733)+B(19735) -! JVS(49855) = Jac_FULL(5253,4875) - JVS(49855) = B(22815)+B(22817) -! JVS(49856) = Jac_FULL(5253,4876) - JVS(49856) = B(1655)+B(1657) -! JVS(49857) = Jac_FULL(5253,4877) - JVS(49857) = B(12805)+B(12807) -! JVS(49858) = Jac_FULL(5253,4878) - JVS(49858) = B(1914)+B(1916) -! JVS(49859) = Jac_FULL(5253,4879) - JVS(49859) = B(2235)+B(2237) -! JVS(49860) = Jac_FULL(5253,4880) - JVS(49860) = B(8107)+B(8109) -! JVS(49861) = Jac_FULL(5253,4881) - JVS(49861) = B(2190)+B(2192) -! JVS(49862) = Jac_FULL(5253,4882) - JVS(49862) = 0 -! JVS(49863) = Jac_FULL(5253,4883) - JVS(49863) = 0 -! JVS(49864) = Jac_FULL(5253,4884) - JVS(49864) = B(2279)+B(2281) -! JVS(49865) = Jac_FULL(5253,4885) - JVS(49865) = B(10841)+B(10843) -! JVS(49866) = Jac_FULL(5253,4886) - JVS(49866) = B(1860)+B(1862) -! JVS(49867) = Jac_FULL(5253,4887) - JVS(49867) = B(5444)+B(5446) -! JVS(49868) = Jac_FULL(5253,4888) - JVS(49868) = B(13087)-B(13089)+B(13091) -! JVS(49869) = Jac_FULL(5253,4889) - JVS(49869) = B(8628)+B(8630) -! JVS(49870) = Jac_FULL(5253,4890) - JVS(49870) = B(19742)+B(19744) -! JVS(49871) = Jac_FULL(5253,4891) - JVS(49871) = B(14481)-B(14483)+B(14485) -! JVS(49872) = Jac_FULL(5253,4892) - JVS(49872) = B(5516)-B(5518)+B(5520) -! JVS(49873) = Jac_FULL(5253,4893) - JVS(49873) = B(5628)+B(5630) -! JVS(49874) = Jac_FULL(5253,4894) - JVS(49874) = B(10644)+B(10646) -! JVS(49875) = Jac_FULL(5253,4895) - JVS(49875) = 0 -! JVS(49876) = Jac_FULL(5253,4896) - JVS(49876) = 0 -! JVS(49877) = Jac_FULL(5253,4897) - JVS(49877) = B(6315)+B(6317) -! JVS(49878) = Jac_FULL(5253,4898) - JVS(49878) = B(14284)+B(14286) -! JVS(49879) = Jac_FULL(5253,4899) - JVS(49879) = B(6089)+B(6091) -! JVS(49880) = Jac_FULL(5253,4900) - JVS(49880) = B(19203)+B(19205) -! JVS(49881) = Jac_FULL(5253,4901) - JVS(49881) = B(1677)+B(1679) -! JVS(49882) = Jac_FULL(5253,4903) - JVS(49882) = B(15218)+B(15220) -! JVS(49883) = Jac_FULL(5253,4904) - JVS(49883) = B(18214)+B(18216) -! JVS(49884) = Jac_FULL(5253,4905) - JVS(49884) = B(6387)+B(6389) -! JVS(49885) = Jac_FULL(5253,4906) - JVS(49885) = B(6747)-B(6749) -! JVS(49886) = Jac_FULL(5253,4907) - JVS(49886) = 0 -! JVS(49887) = Jac_FULL(5253,4908) - JVS(49887) = B(4029)-B(4031) -! JVS(49888) = Jac_FULL(5253,4909) - JVS(49888) = B(4839)+B(4841) -! JVS(49889) = Jac_FULL(5253,4910) - JVS(49889) = B(14260)-B(14262)+B(14264) -! JVS(49890) = Jac_FULL(5253,4911) - JVS(49890) = B(15036)+B(15038) -! JVS(49891) = Jac_FULL(5253,4912) - JVS(49891) = B(7274)-B(7276) -! JVS(49892) = Jac_FULL(5253,4913) - JVS(49892) = B(9683)+B(9685) -! JVS(49893) = Jac_FULL(5253,4914) - JVS(49893) = 0 -! JVS(49894) = Jac_FULL(5253,4915) - JVS(49894) = B(7825)-B(7827)+B(7829) -! JVS(49895) = Jac_FULL(5253,4916) - JVS(49895) = B(8676)-B(8678)+B(8680) -! JVS(49896) = Jac_FULL(5253,4917) - JVS(49896) = B(9440)-B(9442)+B(9444) -! JVS(49897) = Jac_FULL(5253,4919) - JVS(49897) = B(6586)-B(6588) -! JVS(49898) = Jac_FULL(5253,4920) - JVS(49898) = B(13404)+B(13406) -! JVS(49899) = Jac_FULL(5253,4921) - JVS(49899) = B(14577)-B(14579)+B(14581) -! JVS(49900) = Jac_FULL(5253,4922) - JVS(49900) = B(1566)+B(1568) -! JVS(49901) = Jac_FULL(5253,4923) - JVS(49901) = B(1557)+B(1559) -! JVS(49902) = Jac_FULL(5253,4924) - JVS(49902) = B(4000)-B(4002)+B(4004) -! JVS(49903) = Jac_FULL(5253,4925) - JVS(49903) = B(3417)+B(3419) -! JVS(49904) = Jac_FULL(5253,4926) - JVS(49904) = B(16820)-B(16822)+B(16824) -! JVS(49905) = Jac_FULL(5253,4927) - JVS(49905) = 0 -! JVS(49906) = Jac_FULL(5253,4928) - JVS(49906) = B(5916)+B(5918) -! JVS(49907) = Jac_FULL(5253,4929) - JVS(49907) = B(15583)+B(15585) -! JVS(49908) = Jac_FULL(5253,4930) - JVS(49908) = B(9551)-B(9553)+B(9555) -! JVS(49909) = Jac_FULL(5253,4932) - JVS(49909) = B(1475)+B(1477) -! JVS(49910) = Jac_FULL(5253,4933) - JVS(49910) = 0 -! JVS(49911) = Jac_FULL(5253,4934) - JVS(49911) = B(15026)-B(15028)+B(15030) -! JVS(49912) = Jac_FULL(5253,4935) - JVS(49912) = B(6175)+B(6177) -! JVS(49913) = Jac_FULL(5253,4936) - JVS(49913) = B(1523)+B(1525) -! JVS(49914) = Jac_FULL(5253,4937) - JVS(49914) = 0 -! JVS(49915) = Jac_FULL(5253,4940) - JVS(49915) = B(14616)+B(14618) -! JVS(49916) = Jac_FULL(5253,4941) - JVS(49916) = B(4863)-B(4865) -! JVS(49917) = Jac_FULL(5253,4942) - JVS(49917) = B(1709)+B(1711) -! JVS(49918) = Jac_FULL(5253,4943) - JVS(49918) = B(4351)-B(4353) -! JVS(49919) = Jac_FULL(5253,4944) - JVS(49919) = B(1415)-B(1417)+B(1419) -! JVS(49920) = Jac_FULL(5253,4945) - JVS(49920) = B(13855)+B(13857)+B(13859) -! JVS(49921) = Jac_FULL(5253,4946) - JVS(49921) = B(13379)-B(13381)+B(13383) -! JVS(49922) = Jac_FULL(5253,4947) - JVS(49922) = B(8958)+B(8960) -! JVS(49923) = Jac_FULL(5253,4948) - JVS(49923) = B(6068)-B(6070)+B(6072) -! JVS(49924) = Jac_FULL(5253,4949) - JVS(49924) = B(7608)-B(7610)+B(7612) -! JVS(49925) = Jac_FULL(5253,4950) - JVS(49925) = 0 -! JVS(49926) = Jac_FULL(5253,4951) - JVS(49926) = 0 -! JVS(49927) = Jac_FULL(5253,4952) - JVS(49927) = 0 -! JVS(49928) = Jac_FULL(5253,4953) - JVS(49928) = B(14460)-B(14462)+B(14464) -! JVS(49929) = Jac_FULL(5253,4954) - JVS(49929) = B(1451)-B(1453)+B(1455) -! JVS(49930) = Jac_FULL(5253,4955) - JVS(49930) = B(22538)-B(22540)+B(22542) -! JVS(49931) = Jac_FULL(5253,4956) - JVS(49931) = B(4942)-B(4944) -! JVS(49932) = Jac_FULL(5253,4957) - JVS(49932) = B(17424)-B(17426)+B(17428) -! JVS(49933) = Jac_FULL(5253,4958) - JVS(49933) = B(10455)+B(10456) -! JVS(49934) = Jac_FULL(5253,4959) - JVS(49934) = B(1133)+B(1135) -! JVS(49935) = Jac_FULL(5253,4960) - JVS(49935) = B(23337)+B(23339) -! JVS(49936) = Jac_FULL(5253,4961) - JVS(49936) = 0 -! JVS(49937) = Jac_FULL(5253,4962) - JVS(49937) = B(14893)-B(14895)+B(14897) -! JVS(49938) = Jac_FULL(5253,4963) - JVS(49938) = B(10668)-B(10670) -! JVS(49939) = Jac_FULL(5253,4964) - JVS(49939) = 0 -! JVS(49940) = Jac_FULL(5253,4965) - JVS(49940) = -B(5268) -! JVS(49941) = Jac_FULL(5253,4966) - JVS(49941) = B(15922)-B(15924)+B(15926) -! JVS(49942) = Jac_FULL(5253,4967) - JVS(49942) = B(15227)+B(15229) -! JVS(49943) = Jac_FULL(5253,4968) - JVS(49943) = B(12519)-B(12521)+B(12523) -! JVS(49944) = Jac_FULL(5253,4969) - JVS(49944) = B(20636)-B(20638)+B(20640) -! JVS(49945) = Jac_FULL(5253,4970) - JVS(49945) = 0 -! JVS(49946) = Jac_FULL(5253,4971) - JVS(49946) = B(5998)+B(6002) -! JVS(49947) = Jac_FULL(5253,4972) - JVS(49947) = B(2094)+B(2096) -! JVS(49948) = Jac_FULL(5253,4974) - JVS(49948) = B(1753)+B(1755) -! JVS(49949) = Jac_FULL(5253,4975) - JVS(49949) = 0 -! JVS(49950) = Jac_FULL(5253,4976) - JVS(49950) = 0 -! JVS(49951) = Jac_FULL(5253,4977) - JVS(49951) = B(20285)-B(20287)+B(20289) -! JVS(49952) = Jac_FULL(5253,4978) - JVS(49952) = 0 -! JVS(49953) = Jac_FULL(5253,4979) - JVS(49953) = B(17570)-B(17572)+B(17574) -! JVS(49954) = Jac_FULL(5253,4980) - JVS(49954) = B(1698)+B(1700) -! JVS(49955) = Jac_FULL(5253,4981) - JVS(49955) = B(1623)+B(1625) -! JVS(49956) = Jac_FULL(5253,4982) - JVS(49956) = B(16616)+B(16618) -! JVS(49957) = Jac_FULL(5253,4984) - JVS(49957) = B(19623)-B(19625)+B(19627) -! JVS(49958) = Jac_FULL(5253,4985) - JVS(49958) = B(9822)-B(9824)+B(9826) -! JVS(49959) = Jac_FULL(5253,4986) - JVS(49959) = B(8846)-B(8848)+B(8850) -! JVS(49960) = Jac_FULL(5253,4987) - JVS(49960) = B(17023)+B(17025) -! JVS(49961) = Jac_FULL(5253,4988) - JVS(49961) = 0 -! JVS(49962) = Jac_FULL(5253,4989) - JVS(49962) = B(14685)-B(14687)+B(14689) -! JVS(49963) = Jac_FULL(5253,4990) - JVS(49963) = B(8077)-B(8079)+B(8081) -! JVS(49964) = Jac_FULL(5253,4991) - JVS(49964) = B(10850)+B(10852) -! JVS(49965) = Jac_FULL(5253,4992) - JVS(49965) = B(6474)+B(6476) -! JVS(49966) = Jac_FULL(5253,4993) - JVS(49966) = B(12450)-B(12452)+B(12454) -! JVS(49967) = Jac_FULL(5253,4994) - JVS(49967) = B(8241)-B(8243)+B(8245) -! JVS(49968) = Jac_FULL(5253,4995) - JVS(49968) = B(936)+B(938) -! JVS(49969) = Jac_FULL(5253,4996) - JVS(49969) = 0 -! JVS(49970) = Jac_FULL(5253,4997) - JVS(49970) = B(9459)-B(9461) -! JVS(49971) = Jac_FULL(5253,4998) - JVS(49971) = B(9570)-B(9572) -! JVS(49972) = Jac_FULL(5253,4999) - JVS(49972) = B(13536)-B(13538) -! JVS(49973) = Jac_FULL(5253,5001) - JVS(49973) = B(9099)+B(9101) -! JVS(49974) = Jac_FULL(5253,5002) - JVS(49974) = 0 -! JVS(49975) = Jac_FULL(5253,5003) - JVS(49975) = B(20410)+2*B(20416)-B(20418)+2*B(20420)+B(20422) -! JVS(49976) = Jac_FULL(5253,5004) - JVS(49976) = B(20602)-B(20604)+B(20606) -! JVS(49977) = Jac_FULL(5253,5005) - JVS(49977) = B(20402)-B(20404)+B(20406) -! JVS(49978) = Jac_FULL(5253,5006) - JVS(49978) = B(19367)-B(19369)+B(19371) -! JVS(49979) = Jac_FULL(5253,5007) - JVS(49979) = B(989)+B(993) -! JVS(49980) = Jac_FULL(5253,5008) - JVS(49980) = B(7717)-B(7719)+B(7721) -! JVS(49981) = Jac_FULL(5253,5009) - JVS(49981) = 0 -! JVS(49982) = Jac_FULL(5253,5010) - JVS(49982) = 0 -! JVS(49983) = Jac_FULL(5253,5011) - JVS(49983) = B(9869)+B(9871) -! JVS(49984) = Jac_FULL(5253,5012) - JVS(49984) = 0 -! JVS(49985) = Jac_FULL(5253,5013) - JVS(49985) = B(10496) -! JVS(49986) = Jac_FULL(5253,5014) - JVS(49986) = B(14671)-B(14673)+B(14675) -! JVS(49987) = Jac_FULL(5253,5015) - JVS(49987) = B(10419)+B(10421) -! JVS(49988) = Jac_FULL(5253,5016) - JVS(49988) = B(6738)+B(6740) -! JVS(49989) = Jac_FULL(5253,5017) - JVS(49989) = B(19273)-B(19275)+B(19277) -! JVS(49990) = Jac_FULL(5253,5018) - JVS(49990) = 0 -! JVS(49991) = Jac_FULL(5253,5019) - JVS(49991) = B(20730)+B(20732) -! JVS(49992) = Jac_FULL(5253,5020) - JVS(49992) = B(6727)+B(6729) -! JVS(49993) = Jac_FULL(5253,5021) - JVS(49993) = B(19097)-B(19099)+B(19101) -! JVS(49994) = Jac_FULL(5253,5022) - JVS(49994) = B(13837)+B(13839) -! JVS(49995) = Jac_FULL(5253,5024) - JVS(49995) = 0 -! JVS(49996) = Jac_FULL(5253,5025) - JVS(49996) = B(13698)-B(13700)+B(13702) -! JVS(49997) = Jac_FULL(5253,5027) - JVS(49997) = B(23000)-B(23002)+B(23004) -! JVS(49998) = Jac_FULL(5253,5028) - JVS(49998) = B(14587)+B(14589) -! JVS(49999) = Jac_FULL(5253,5029) - JVS(49999) = B(11052)-B(11054)+B(11056) -! JVS(50000) = Jac_FULL(5253,5030) - JVS(50000) = 0 -! JVS(50001) = Jac_FULL(5253,5031) - JVS(50001) = 0 -! JVS(50002) = Jac_FULL(5253,5032) - JVS(50002) = B(3370)+B(3372) -! JVS(50003) = Jac_FULL(5253,5033) - JVS(50003) = B(13802)-B(13804)+B(13806) -! JVS(50004) = Jac_FULL(5253,5034) - JVS(50004) = B(9319)-B(9321)+B(9323) -! JVS(50005) = Jac_FULL(5253,5035) - JVS(50005) = B(13711)+B(13713) -! JVS(50006) = Jac_FULL(5253,5036) - JVS(50006) = B(7942)-B(7944)+B(7946) -! JVS(50007) = Jac_FULL(5253,5037) - JVS(50007) = 0 -! JVS(50008) = Jac_FULL(5253,5038) - JVS(50008) = B(7885)-B(7887)+B(7889) -! JVS(50009) = Jac_FULL(5253,5039) - JVS(50009) = B(14641)+B(14643) -! JVS(50010) = Jac_FULL(5253,5040) - JVS(50010) = B(16567)-B(16569) -! JVS(50011) = Jac_FULL(5253,5041) - JVS(50011) = B(7539)+B(7541) -! JVS(50012) = Jac_FULL(5253,5042) - JVS(50012) = 0 -! JVS(50013) = Jac_FULL(5253,5043) - JVS(50013) = B(2205)+B(2207) -! JVS(50014) = Jac_FULL(5253,5044) - JVS(50014) = B(20948)-B(20950)+B(20952) -! JVS(50015) = Jac_FULL(5253,5045) - JVS(50015) = B(1817)+B(1819) -! JVS(50016) = Jac_FULL(5253,5047) - JVS(50016) = B(18751)-B(18753) -! JVS(50017) = Jac_FULL(5253,5048) - JVS(50017) = B(3574)-B(3576) -! JVS(50018) = Jac_FULL(5253,5049) - JVS(50018) = 0 -! JVS(50019) = Jac_FULL(5253,5050) - JVS(50019) = 0 -! JVS(50020) = Jac_FULL(5253,5051) - JVS(50020) = 0 -! JVS(50021) = Jac_FULL(5253,5052) - JVS(50021) = B(19420)-B(19422)+B(19424) -! JVS(50022) = Jac_FULL(5253,5053) - JVS(50022) = B(3229)+B(3231) -! JVS(50023) = Jac_FULL(5253,5054) - JVS(50023) = B(23638)-B(23640)+B(23642) -! JVS(50024) = Jac_FULL(5253,5056) - JVS(50024) = B(1775)+B(1777) -! JVS(50025) = Jac_FULL(5253,5058) - JVS(50025) = 0 -! JVS(50026) = Jac_FULL(5253,5059) - JVS(50026) = B(18048)+B(18050) -! JVS(50027) = Jac_FULL(5253,5060) - JVS(50027) = B(1002)+B(1004) -! JVS(50028) = Jac_FULL(5253,5061) - JVS(50028) = B(1796)+B(1798) -! JVS(50029) = Jac_FULL(5253,5062) - JVS(50029) = B(1601)+B(1603) -! JVS(50030) = Jac_FULL(5253,5063) - JVS(50030) = 0 -! JVS(50031) = Jac_FULL(5253,5064) - JVS(50031) = 0 -! JVS(50032) = Jac_FULL(5253,5065) - JVS(50032) = B(1968)+B(1970) -! JVS(50033) = Jac_FULL(5253,5066) - JVS(50033) = 0 -! JVS(50034) = Jac_FULL(5253,5067) - JVS(50034) = 0 -! JVS(50035) = Jac_FULL(5253,5068) - JVS(50035) = 0 -! JVS(50036) = Jac_FULL(5253,5069) - JVS(50036) = B(6708) -! JVS(50037) = Jac_FULL(5253,5070) - JVS(50037) = B(9338)-B(9340) -! JVS(50038) = Jac_FULL(5253,5071) - JVS(50038) = 0 -! JVS(50039) = Jac_FULL(5253,5072) - JVS(50039) = 0 -! JVS(50040) = Jac_FULL(5253,5073) - JVS(50040) = B(20827)-B(20829)+B(20831) -! JVS(50041) = Jac_FULL(5253,5074) - JVS(50041) = B(13735)+B(13737) -! JVS(50042) = Jac_FULL(5253,5075) - JVS(50042) = B(18837)+2*B(18839)-B(18841)+2*B(18843)+B(18845)+B(18848) -! JVS(50043) = Jac_FULL(5253,5076) - JVS(50043) = 0 -! JVS(50044) = Jac_FULL(5253,5077) - JVS(50044) = B(1839)+B(1841) -! JVS(50045) = Jac_FULL(5253,5078) - JVS(50045) = B(1688)+B(1690) -! JVS(50046) = Jac_FULL(5253,5079) - JVS(50046) = B(16806)-B(16808)+B(16810) -! JVS(50047) = Jac_FULL(5253,5081) - JVS(50047) = B(3400)+B(3402) -! JVS(50048) = Jac_FULL(5253,5082) - JVS(50048) = B(1828)+B(1830) -! JVS(50049) = Jac_FULL(5253,5083) - JVS(50049) = 0 -! JVS(50050) = Jac_FULL(5253,5084) - JVS(50050) = B(19285)+B(19287) -! JVS(50051) = Jac_FULL(5253,5085) - JVS(50051) = 0 -! JVS(50052) = Jac_FULL(5253,5086) - JVS(50052) = 0 -! JVS(50053) = Jac_FULL(5253,5087) - JVS(50053) = 0 -! JVS(50054) = Jac_FULL(5253,5088) - JVS(50054) = B(15269)-B(15271)+B(15273) -! JVS(50055) = Jac_FULL(5253,5089) - JVS(50055) = 0 -! JVS(50056) = Jac_FULL(5253,5090) - JVS(50056) = B(15142)-B(15144)+B(15146) -! JVS(50057) = Jac_FULL(5253,5091) - JVS(50057) = B(13903)+B(13905) -! JVS(50058) = Jac_FULL(5253,5092) - JVS(50058) = B(3584)-B(3586) -! JVS(50059) = Jac_FULL(5253,5093) - JVS(50059) = 0 -! JVS(50060) = Jac_FULL(5253,5094) - JVS(50060) = 0 -! JVS(50061) = Jac_FULL(5253,5095) - JVS(50061) = 0 -! JVS(50062) = Jac_FULL(5253,5096) - JVS(50062) = B(2120)+B(2122) -! JVS(50063) = Jac_FULL(5253,5097) - JVS(50063) = B(3288)+B(3290) -! JVS(50064) = Jac_FULL(5253,5098) - JVS(50064) = B(3220)+B(3222) -! JVS(50065) = Jac_FULL(5253,5099) - JVS(50065) = B(11267)-B(11269)+B(11271) -! JVS(50066) = Jac_FULL(5253,5100) - JVS(50066) = B(7967)-B(7969)+B(7971) -! JVS(50067) = Jac_FULL(5253,5101) - JVS(50067) = B(7682)-B(7684)+B(7686) -! JVS(50068) = Jac_FULL(5253,5102) - JVS(50068) = B(8865)-B(8867) -! JVS(50069) = Jac_FULL(5253,5103) - JVS(50069) = 0 -! JVS(50070) = Jac_FULL(5253,5104) - JVS(50070) = B(21093)+B(21095) -! JVS(50071) = Jac_FULL(5253,5106) - JVS(50071) = B(1371)-B(1373)+B(1375) -! JVS(50072) = Jac_FULL(5253,5107) - JVS(50072) = B(1946)+B(1948) -! JVS(50073) = Jac_FULL(5253,5108) - JVS(50073) = B(8253)+B(8255) -! JVS(50074) = Jac_FULL(5253,5109) - JVS(50074) = B(1720)+B(1722) -! JVS(50075) = Jac_FULL(5253,5110) - JVS(50075) = 0 -! JVS(50076) = Jac_FULL(5253,5111) - JVS(50076) = B(20614)-B(20616)+B(20618) -! JVS(50077) = Jac_FULL(5253,5112) - JVS(50077) = B(1935)+B(1937) -! JVS(50078) = Jac_FULL(5253,5113) - JVS(50078) = 0 -! JVS(50079) = Jac_FULL(5253,5114) - JVS(50079) = B(17380)+B(17382) -! JVS(50080) = Jac_FULL(5253,5115) - JVS(50080) = 0 -! JVS(50081) = Jac_FULL(5253,5116) - JVS(50081) = B(1144)+B(1146) -! JVS(50082) = Jac_FULL(5253,5117) - JVS(50082) = B(10879)-B(10881)+B(10883) -! JVS(50083) = Jac_FULL(5253,5118) - JVS(50083) = B(6932)+B(6934) -! JVS(50084) = Jac_FULL(5253,5119) - JVS(50084) = B(8299)+B(8301) -! JVS(50085) = Jac_FULL(5253,5120) - JVS(50085) = B(15013)+B(15015) -! JVS(50086) = Jac_FULL(5253,5121) - JVS(50086) = B(945)+B(950) -! JVS(50087) = Jac_FULL(5253,5122) - JVS(50087) = B(14704)+B(14706) -! JVS(50088) = Jac_FULL(5253,5123) - JVS(50088) = 0 -! JVS(50089) = Jac_FULL(5253,5124) - JVS(50089) = 0 -! JVS(50090) = Jac_FULL(5253,5125) - JVS(50090) = B(1335)-B(1337)+B(1339) -! JVS(50091) = Jac_FULL(5253,5126) - JVS(50091) = 0 -! JVS(50092) = Jac_FULL(5253,5127) - JVS(50092) = B(6898)+B(6900) -! JVS(50093) = Jac_FULL(5253,5128) - JVS(50093) = B(1501)-B(1503)+B(1505) -! JVS(50094) = Jac_FULL(5253,5129) - JVS(50094) = B(1023)+B(1025) -! JVS(50095) = Jac_FULL(5253,5130) - JVS(50095) = B(23073)+B(23075) -! JVS(50096) = Jac_FULL(5253,5131) - JVS(50096) = B(19406)-B(19408)+B(19410) -! JVS(50097) = Jac_FULL(5253,5132) - JVS(50097) = B(3128)+B(3130) -! JVS(50098) = Jac_FULL(5253,5133) - JVS(50098) = B(11646)+2*B(11648)-B(11650)+2*B(11652)+B(11655) -! JVS(50099) = Jac_FULL(5253,5134) - JVS(50099) = B(13845)+B(13847) -! JVS(50100) = Jac_FULL(5253,5135) - JVS(50100) = B(2270)+B(2272) -! JVS(50101) = Jac_FULL(5253,5136) - JVS(50101) = B(7631)-B(7633)+B(7635) -! JVS(50102) = Jac_FULL(5253,5137) - JVS(50102) = B(7848)-B(7850)+B(7852) -! JVS(50103) = Jac_FULL(5253,5138) - JVS(50103) = B(1957)+B(1959) -! JVS(50104) = Jac_FULL(5253,5140) - JVS(50104) = 0 -! JVS(50105) = Jac_FULL(5253,5141) - JVS(50105) = 0 -! JVS(50106) = Jac_FULL(5253,5142) - JVS(50106) = B(1322)+B(1324) -! JVS(50107) = Jac_FULL(5253,5143) - JVS(50107) = 0 -! JVS(50108) = Jac_FULL(5253,5144) - JVS(50108) = B(1924)+B(1926) -! JVS(50109) = Jac_FULL(5253,5145) - JVS(50109) = B(1402)+B(1404) -! JVS(50110) = Jac_FULL(5253,5146) - JVS(50110) = B(1882)+B(1884) -! JVS(50111) = Jac_FULL(5253,5147) - JVS(50111) = B(1666)+B(1668) -! JVS(50112) = Jac_FULL(5253,5148) - JVS(50112) = B(1111)+B(1113) -! JVS(50113) = Jac_FULL(5253,5149) - JVS(50113) = B(2046)+B(2048) -! JVS(50114) = Jac_FULL(5253,5150) - JVS(50114) = B(10914)+B(10916) -! JVS(50115) = Jac_FULL(5253,5151) - JVS(50115) = B(3238)+B(3242) -! JVS(50116) = Jac_FULL(5253,5152) - JVS(50116) = B(8425)+2*B(8431)-B(8433)+2*B(8435)+B(8437) -! JVS(50117) = Jac_FULL(5253,5153) - JVS(50117) = 0 -! JVS(50118) = Jac_FULL(5253,5154) - JVS(50118) = B(13746) -! JVS(50119) = Jac_FULL(5253,5155) - JVS(50119) = B(7922)+2*B(7928)-B(7930)+2*B(7932)+B(7934) -! JVS(50120) = Jac_FULL(5253,5156) - JVS(50120) = B(4286)-B(4288) -! JVS(50121) = Jac_FULL(5253,5157) - JVS(50121) = 0 -! JVS(50122) = Jac_FULL(5253,5158) - JVS(50122) = B(7798)-B(7800)+B(7802) -! JVS(50123) = Jac_FULL(5253,5159) - JVS(50123) = 0 -! JVS(50124) = Jac_FULL(5253,5161) - JVS(50124) = B(3269)+B(3271) -! JVS(50125) = Jac_FULL(5253,5162) - JVS(50125) = 0 -! JVS(50126) = Jac_FULL(5253,5163) - JVS(50126) = B(1633)+B(1635) -! JVS(50127) = Jac_FULL(5253,5164) - JVS(50127) = B(7811)-B(7813)+B(7815) -! JVS(50128) = Jac_FULL(5253,5165) - JVS(50128) = 0 -! JVS(50129) = Jac_FULL(5253,5166) - JVS(50129) = 0 -! JVS(50130) = Jac_FULL(5253,5167) - JVS(50130) = B(16696)-B(16698) -! JVS(50131) = Jac_FULL(5253,5168) - JVS(50131) = B(6701) -! JVS(50132) = Jac_FULL(5253,5169) - JVS(50132) = 0 -! JVS(50133) = Jac_FULL(5253,5170) - JVS(50133) = B(4258)-B(4260) -! JVS(50134) = Jac_FULL(5253,5171) - JVS(50134) = B(18982)-B(18984)+B(18986) -! JVS(50135) = Jac_FULL(5253,5172) - JVS(50135) = B(18762)-B(18764)+B(18766) -! JVS(50136) = Jac_FULL(5253,5173) - JVS(50136) = B(10632)+B(10634) -! JVS(50137) = Jac_FULL(5253,5174) - JVS(50137) = B(13824)+B(13826) -! JVS(50138) = Jac_FULL(5253,5175) - JVS(50138) = 0 -! JVS(50139) = Jac_FULL(5253,5176) - JVS(50139) = 0 -! JVS(50140) = Jac_FULL(5253,5177) - JVS(50140) = 0 -! JVS(50141) = Jac_FULL(5253,5178) - JVS(50141) = 0 -! JVS(50142) = Jac_FULL(5253,5179) - JVS(50142) = B(17488)-B(17490)+B(17492) -! JVS(50143) = Jac_FULL(5253,5180) - JVS(50143) = B(4819) -! JVS(50144) = Jac_FULL(5253,5181) - JVS(50144) = B(1979)+B(1981) -! JVS(50145) = Jac_FULL(5253,5183) - JVS(50145) = B(1310)-B(1312)+B(1314) -! JVS(50146) = Jac_FULL(5253,5185) - JVS(50146) = B(1035)+B(1037) -! JVS(50147) = Jac_FULL(5253,5186) - JVS(50147) = B(1731)+B(1733) -! JVS(50148) = Jac_FULL(5253,5187) - JVS(50148) = 0 -! JVS(50149) = Jac_FULL(5253,5189) - JVS(50149) = 0 -! JVS(50150) = Jac_FULL(5253,5190) - JVS(50150) = 0 -! JVS(50151) = Jac_FULL(5253,5191) - JVS(50151) = 0 -! JVS(50152) = Jac_FULL(5253,5192) - JVS(50152) = B(1644)+B(1646) -! JVS(50153) = Jac_FULL(5253,5194) - JVS(50153) = 0 -! JVS(50154) = Jac_FULL(5253,5195) - JVS(50154) = B(925)+B(927) -! JVS(50155) = Jac_FULL(5253,5196) - JVS(50155) = B(17047)+B(17049) -! JVS(50156) = Jac_FULL(5253,5197) - JVS(50156) = B(10832)+B(10834) -! JVS(50157) = Jac_FULL(5253,5198) - JVS(50157) = B(7286)+B(7288) -! JVS(50158) = Jac_FULL(5253,5200) - JVS(50158) = 0 -! JVS(50159) = Jac_FULL(5253,5201) - JVS(50159) = B(71) -! JVS(50160) = Jac_FULL(5253,5202) - JVS(50160) = B(956)+B(960) -! JVS(50161) = Jac_FULL(5253,5203) - JVS(50161) = 0 -! JVS(50162) = Jac_FULL(5253,5204) - JVS(50162) = B(6802)+B(6806) -! JVS(50163) = Jac_FULL(5253,5205) - JVS(50163) = 0 -! JVS(50164) = Jac_FULL(5253,5206) - JVS(50164) = B(7559)+B(7561) -! JVS(50165) = Jac_FULL(5253,5207) - JVS(50165) = 0 -! JVS(50166) = Jac_FULL(5253,5208) - JVS(50166) = B(1438)+B(1440) -! JVS(50167) = Jac_FULL(5253,5209) - JVS(50167) = 0 -! JVS(50168) = Jac_FULL(5253,5210) - JVS(50168) = 0 -! JVS(50169) = Jac_FULL(5253,5211) - JVS(50169) = 0 -! JVS(50170) = Jac_FULL(5253,5212) - JVS(50170) = 0 -! JVS(50171) = Jac_FULL(5253,5213) - JVS(50171) = 0 -! JVS(50172) = Jac_FULL(5253,5214) - JVS(50172) = B(16848)-B(16850)+B(16852) -! JVS(50173) = Jac_FULL(5253,5215) - JVS(50173) = 0 -! JVS(50174) = Jac_FULL(5253,5216) - JVS(50174) = B(7904)-B(7906)+B(7908) -! JVS(50175) = Jac_FULL(5253,5217) - JVS(50175) = B(6775)+B(6779) -! JVS(50176) = Jac_FULL(5253,5218) - JVS(50176) = B(6920)+B(6922) -! JVS(50177) = Jac_FULL(5253,5219) - JVS(50177) = B(6791)+B(6793) -! JVS(50178) = Jac_FULL(5253,5220) - JVS(50178) = 0 -! JVS(50179) = Jac_FULL(5253,5221) - JVS(50179) = B(4301) -! JVS(50180) = Jac_FULL(5253,5222) - JVS(50180) = 0 -! JVS(50181) = Jac_FULL(5253,5223) - JVS(50181) = B(4053)-B(4055) -! JVS(50182) = Jac_FULL(5253,5224) - JVS(50182) = B(6818)+B(6820) -! JVS(50183) = Jac_FULL(5253,5225) - JVS(50183) = B(10462)+B(10466) -! JVS(50184) = Jac_FULL(5253,5226) - JVS(50184) = 0 -! JVS(50185) = Jac_FULL(5253,5227) - JVS(50185) = 0 -! JVS(50186) = Jac_FULL(5253,5228) - JVS(50186) = B(1286)-B(1288)+B(1290) -! JVS(50187) = Jac_FULL(5253,5229) - JVS(50187) = B(1358)+B(1360) -! JVS(50188) = Jac_FULL(5253,5230) - JVS(50188) = 0 -! JVS(50189) = Jac_FULL(5253,5231) - JVS(50189) = 0 -! JVS(50190) = Jac_FULL(5253,5232) - JVS(50190) = B(3988)-B(3990)+B(3992) -! JVS(50191) = Jac_FULL(5253,5233) - JVS(50191) = 0 -! JVS(50192) = Jac_FULL(5253,5234) - JVS(50192) = 0 -! JVS(50193) = Jac_FULL(5253,5235) - JVS(50193) = B(1297)+B(1299) -! JVS(50194) = Jac_FULL(5253,5236) - JVS(50194) = B(7435)+B(7437) -! JVS(50195) = Jac_FULL(5253,5237) - JVS(50195) = B(7594)-B(7596)+B(7598) -! JVS(50196) = Jac_FULL(5253,5238) - JVS(50196) = 0 -! JVS(50197) = Jac_FULL(5253,5239) - JVS(50197) = B(3827)+B(3829) -! JVS(50198) = Jac_FULL(5253,5240) - JVS(50198) = 0 -! JVS(50199) = Jac_FULL(5253,5241) - JVS(50199) = B(3200)+B(3202) -! JVS(50200) = Jac_FULL(5253,5242) - JVS(50200) = 0 -! JVS(50201) = Jac_FULL(5253,5243) - JVS(50201) = B(4043)-B(4045)+B(4047) -! JVS(50202) = Jac_FULL(5253,5244) - JVS(50202) = B(1207)-B(1209)+B(1211) -! JVS(50203) = Jac_FULL(5253,5245) - JVS(50203) = B(22725)-B(22727)+B(22729) -! JVS(50204) = Jac_FULL(5253,5246) - JVS(50204) = B(3211)+B(3213) -! JVS(50205) = Jac_FULL(5253,5247) - JVS(50205) = B(19430)+B(19432) -! JVS(50206) = Jac_FULL(5253,5248) - JVS(50206) = 0 -! JVS(50207) = Jac_FULL(5253,5249) - JVS(50207) = 0 -! JVS(50208) = Jac_FULL(5253,5250) - JVS(50208) = -B(40)+B(42)+B(49)+B(53)+B(3636)+B(3646)+B(3662)+B(3670)+B(3677)+B(3690)+B(3706)+B(3716)+B(3726)+B(3742)& - &+B(3751)+B(3768)+B(3794)+B(3805)+B(3838)+B(3848)+B(3862)+B(3876)+B(3889)+B(3903)+B(3919)+B(3928)+B(3954)& - &+B(3980)+B(4016)+B(4024)+B(4088)+B(4104)+B(4113)+B(4120)+B(4129)+B(4152)+B(4160)+B(4168)+B(4188)+B(4196)& - &+B(4204)+B(4219)+B(4323)+B(4338)+B(4347)+B(4385)+B(4396)+B(4402)+B(4410)+B(4421)+B(4431)+B(4442)+B(4452)& - &+B(4460)+B(4469)+B(4485)+B(4502)+B(4511)+B(4523)+B(4539)+B(4551)+B(4568)+B(4580)+B(4596)+B(4611)+B(4622)& - &+B(4634)+B(4650)+B(4665)+B(4676)+B(4691)+B(4703)+B(4715)+B(4724)+B(4736)+B(4745)+B(4757)+B(4769)+B(4780)& - &+B(4793)+B(4805)+B(4840)+B(4851)+B(4858)+B(4888)+B(4925)+B(4939)+B(4993)+B(5040)+B(5101)+B(5113)+B(5157)& - &+B(5169)+B(5195)+B(5206)+B(5298)+B(5338)+B(5387)+B(5402)+B(5480)+B(5495)+B(5579)+B(5594)+B(5665)+B(5708)& - &+B(5757)+B(5799)+B(5848)+B(5887)+B(5936)+B(5977)+B(6011)+B(6026)+B(6099)+B(6114)+B(6186)+B(6198)+B(6276)& - &+B(6352)+B(6423)+B(6435)+B(6503)+B(6533)+B(6604)+B(6614)+B(6623)+B(6627)+B(6671)+B(6699)+B(6948)+B(6963)& - &+B(6972)+B(7003)+B(7037)+B(7068)+B(7083)+B(7097)+B(7113)+B(7142)+B(7174)+B(7190)+B(7212)+B(7227)+B(7242)& - &+B(7251)+B(7309)+B(7319)+B(7325)+B(7402)+B(7412)+B(7456)+B(7470)+B(7479)+B(7570)+B(7584)+B(7645)+B(7652)& - &+B(7658)+B(7752)+B(7758)+B(7779)+B(8691)+B(8720)+B(8861)+B(8877)+B(8940)+B(8967)+B(9081)+B(9109)+B(9193)& - &+B(9199)+B(9334)+B(9350)+B(9455)+B(9471)+B(9566)+B(9582)+B(9694)+B(9771)+B(9779)+B(9851)+B(9880)+B(9914)& - &+B(9941)+B(9998)+B(10004)+B(10073)+B(10079)+B(10164)+B(10172)+B(10255)+B(10294)+B(10457)+B(10463)+B(10680)& - &+B(10687)+B(10693)+B(10705)+B(10716)+B(11089)+B(11128)+B(11140)+B(11151)+B(11225)+B(11383)+B(11416)& - &+B(11445)+B(11453)+B(11459)+B(11471)+B(11478)+B(11492)+B(11497)+B(11505)+B(11521)+2*B(11564)+B(11570)& - &+B(11576)+B(11585)+B(11593)+B(11607)+B(11615)+B(11631)+B(11637)+B(11657)+B(11669)+B(11673)+B(11678)& - &+B(11684)+B(11692)+B(11698)+B(11714)+B(11728)+B(11744)+B(11750)+B(11764)+B(11771)+B(11782)+B(11796)& - &+B(11810)+B(11818)+B(11840)+B(11857)+B(11873)+B(11887)+B(11895)+B(11909)+B(11931)+B(11947)+B(11955)& - &+B(11969)+B(11977)+B(11993)+B(11999)+B(12015)+B(12028)+B(12041)+B(12060)+B(12074)+B(12092)+B(12110)& - &+B(12128)+B(12146)+B(12163)+B(12169)+2*B(12174)+B(12177)+2*B(12182)+B(12189)+B(12198)+B(12201)+2*B(12206)& - &+B(12213)+B(12220)+2*B(12225)+B(12236)+B(12248)+2*B(12253)+B(12259)+2*B(12264)+B(12270)+B(12280)+2& - &*B(12285)+B(12292)+B(12313)+B(12319)+B(12332)+B(12365)+B(12374)+B(12500)+B(12511)+B(12570)+B(12614)& - &+B(12682)+B(12691)+B(12729)+B(12773)+B(12844)+B(12942)+B(13036)+B(13058)+B(13151)+B(13164)+B(13215)& - &+B(13229)+B(13238)+B(13269)+B(13445)+B(13457)+B(13466)+B(13502)+B(13533)+B(13548)+B(13572)+B(13590)& - &+B(13606)+B(13610)+B(13624)+B(13856)+B(13858)+B(13860)+B(13890)+B(13917)+B(13931)+B(13962)+B(13984)& - &+B(13994)+B(14003)+B(14013)+B(14084)+B(14115)+B(14123)+B(14169)+B(14197)+B(14242)+B(14329)+2*B(14338)& - &+B(14388)+B(14399)+B(14506)+B(14545)+B(14552)+B(14627)+B(14635)+B(14661)+B(14715)+B(14865)+B(14909)& - &+B(14915)+B(15424)+B(15427)+B(15559)+B(15611)+B(16168)+B(16415)+B(16480)+B(16511)+B(16610)+B(16686)& - &+B(16767)+B(16874)+B(16891)+B(16906)+B(16915)+B(16932)+B(16942)+B(16950)+B(16960)+B(16971)+B(17000)& - &+B(17020)+B(17058)+B(17103)+B(17113)+B(17128)+B(17144)+B(17177)+B(17200)+B(17239)+B(17260)+B(17270)& - &+B(17285)+B(17295)+B(17343)+B(17351)+B(17365)+B(17375)+B(17391)+B(17406)+B(17412)+B(17460)+B(17466)& - &+B(17503)+B(17523)+B(17529)+B(17555)+B(17563)+B(17591)+B(17603)+B(17622)+B(17630)+B(17636)+B(17651)& - &+B(17680)+B(17686)+B(17716)+B(17724)+B(17740)+B(17748)+B(17792)+B(17851)+B(17867)+B(17873)+B(17899)& - &+B(17929)+B(17959)+B(17989)+B(18028)+B(18043)+B(18345)+B(18351)+B(18416)+B(18422)+B(18483)+B(18489)& - &+B(18706)+B(18956)+B(18964)+B(18999)+B(19026)+B(19034)+B(19052)+B(19211)+B(19226)+B(19246)+B(19252)& - &+B(19304)+B(19313)+B(19483)+B(19489)+B(19533)+B(19566)+B(19574)+B(19583)+B(19595)+B(19640)+B(19646)& - &+B(19700)+B(19851)+B(20126)+B(20156)+B(20182)+B(20305)+B(20311)+B(20317)+B(20383)+B(20388)+B(20453)& - &+B(20455)+2*B(20461)+B(20483)+B(20571)+B(20594)+B(20647)+B(20664)+B(20687)+B(20704)+B(20741)+B(20760)& - &+B(20772)+B(20786)+B(20841)+B(20847)+B(20899)+B(20921)+B(20933)+B(20973)+B(20983)+B(21008)+B(21027)& - &+B(21043)+B(21076)+B(21103)+B(21137)+B(21166)+B(21186)+B(21204)+B(21209)+B(21228)+B(21241)+B(21254)& - &+B(21267)+B(21280)+B(21297)+B(21314)+B(21321)+B(21338)+B(21344)+B(21352)+B(21360)+B(21369)+B(21386)& - &+B(21403)+B(21410)+B(21427)+B(21445)+B(21462)+B(21483)+B(21500)+B(21517)+B(21525)+B(21564)+B(21567)+2& - &*B(21572)+B(21575)+2*B(21580)+B(21583)+B(21589)+B(21599)+B(21620)+B(21634)+B(21641)+B(21652)+B(21658)& - &+B(21671)+B(21684)+B(21704)+B(21753)+B(21834)+B(21883)+B(21926)+B(21939)+B(21947)+B(21978)+B(21998)& - &+B(22004)+B(22040)+B(22052)+B(22063)+B(22072)+B(22094)+B(22120)+B(22156)+B(22203)+B(22209)+B(22215)& - &+B(22226)+B(22232)+B(22240)+B(22248)+B(22267)+B(22273)+B(22279)+B(22295)+B(22360)+B(22411)+B(22439)& - &+B(22469)+B(22500)+B(22508)+B(22514)+B(22636)+B(22642)+B(22703)+B(22714)+B(22766)+B(22800)+B(22839)& - &+B(22859)+B(22897)+B(22917)+B(22958)+B(22965)+B(22978)+B(23021)+B(23043)+B(23049)+B(23061)+B(23106)& - &+B(23115)+B(23147)+B(23180)+B(23216)+B(23243)+B(23278)+B(23353)+B(23406)+B(23421)+B(23443)+B(23473)& - &+B(23497)+B(23503)+B(23515)+B(23531)+B(23537)+B(23557)+B(23592)+B(23601)+B(23610)+B(23631)+B(23658)& - &+B(23666)+B(23697)+B(23728)+2*B(23764)+B(23834)+B(23892)+B(23921)+B(23939)+B(23958)+B(24013)+B(24030) -! JVS(50209) = Jac_FULL(5253,5251) - JVS(50209) = 0 -! JVS(50210) = Jac_FULL(5253,5252) - JVS(50210) = B(7)+B(13)+2*B(17)+2*B(18)+B(44)+B(926)+B(937)+B(951)+B(957)+B(970)+B(981)+B(990)+B(1003)+B(1013)+B(1024)& - &+B(1036)+B(1047)+B(1064)+B(1075)+B(1091)+B(1101)+B(1112)+B(1123)+B(1134)+B(1145)+B(1156)+B(1164)+B(1175)& - &+B(1184)+B(1195)+B(1208)+B(1233)+B(1242)+B(1263)+B(1274)+B(1287)+B(1298)+B(1311)+B(1323)+B(1336)+B(1348)& - &+B(1359)+B(1372)+B(1384)+B(1393)+B(1403)+B(1416)+B(1428)+B(1439)+B(1452)+B(1462)+B(1476)+B(1502)+B(1524)& - &+B(1535)+B(1548)+B(1558)+B(1567)+B(1580)+B(1591)+B(1602)+B(1613)+B(1624)+B(1634)+B(1645)+B(1656)+B(1667)& - &+B(1678)+B(1689)+B(1699)+B(1710)+B(1721)+B(1732)+B(1743)+B(1754)+B(1765)+B(1776)+B(1786)+B(1797)+B(1808)& - &+B(1818)+B(1829)+B(1840)+B(1851)+B(1861)+B(1872)+B(1883)+B(1894)+B(1904)+B(1915)+B(1925)+B(1936)+B(1947)& - &+B(1958)+B(1969)+B(1980)+B(1989)+B(2001)+B(2010)+B(2023)+B(2032)+B(2047)+B(2056)+B(2065)+B(2073)+B(2086)& - &+B(2095)+B(2110)+B(2121)+B(2130)+B(2139)+B(2154)+B(2163)+B(2172)+B(2182)+B(2191)+B(2206)+B(2215)+B(2224)& - &+B(2236)+B(2245)+B(2260)+B(2271)+B(2280)+B(2289)+B(2304)+B(2315)+B(2324)+B(2335)+B(2347)+B(2378)+B(2399)& - &+B(2422)+B(2433)+B(2465)+B(2476)+B(2509)+B(2520)+B(2550)+B(2573)+B(2596)+B(2617)+B(2640)+B(2660)+B(2683)& - &+B(2706)+B(2723)+B(2734)+B(2766)+B(2777)+B(2806)+B(2817)+B(2849)+B(2882)+B(2914)+B(2925)+B(2954)+B(2973)& - &+B(2992)+B(3003)+B(3014)+B(3024)+B(3031)+B(3042)+B(3060)+B(3071)+B(3080)+B(3093)+B(3129)+B(3166)+B(3179)& - &+B(3190)+B(3201)+B(3212)+B(3221)+B(3230)+B(3239)+B(3250)+B(3259)+B(3270)+B(3279)+B(3289)+B(3300)+B(3311)& - &+B(3320)+B(3331)+B(3340)+B(3349)+B(3360)+B(3371)+B(3379)+B(3390)+B(3401)+B(3410)+B(3418)+B(3433)+B(3443)& - &+B(3454)+B(3462)+B(3470)+B(3495)+B(3505)+B(3516)+B(3524)+B(3538)+B(3548)+B(3559)+B(3567)+B(3575)+B(3585)& - &+B(3604)+B(3614)+B(3625)+B(3782)+B(3816)+B(3828)+B(3989)+B(4001)+B(4030)+B(4044)+B(4054)+B(4259)+B(4287)& - &+B(4352)+B(4864)+B(4908)+B(4943)+B(5023)+B(5057)+B(5117)+B(5222)+B(5243)+B(5252)+B(5275)+B(5289)+B(5306)& - &+B(5314)+B(5352)+B(5368)+B(5377)+B(5419)+B(5436)+B(5445)+B(5453)+B(5465)+B(5517)+B(5534)+B(5543)+B(5556)& - &+B(5564)+B(5608)+B(5620)+B(5629)+B(5637)+B(5649)+B(5681)+B(5689)+B(5722)+B(5738)+B(5747)+B(5768)+B(5780)& - &+B(5813)+B(5829)+B(5838)+B(5860)+B(5868)+B(5901)+B(5917)+B(5926)+B(5950)+B(5962)+B(5999)+B(6039)+B(6051)& - &+B(6069)+B(6079)+B(6090)+B(6126)+B(6136)+B(6148)+B(6166)+B(6176)+B(6215)+B(6232)+B(6241)+B(6249)+B(6261)& - &+B(6307)+B(6316)+B(6329)+B(6337)+B(6367)+B(6379)+B(6388)+B(6396)+B(6408)+B(6453)+B(6465)+B(6475)+B(6486)& - &+B(6494)+B(6516)+B(6524)+B(6549)+B(6565)+B(6575)+B(6587)+B(6642)+B(6728)+B(6739)+B(6748)+B(6758)+B(6767)& - &+B(6776)+B(6792)+B(6803)+B(6819)+B(6848)+B(6859)+B(6868)+B(6879)+B(6886)+B(6899)+B(6910)+B(6921)+B(6933)& - &+B(7258)+B(7266)+B(7275)+B(7287)+B(7336)+B(7347)+B(7358)+B(7366)+B(7377)+B(7416)+B(7425)+B(7436)+B(7445)& - &+B(7514)+B(7523)+B(7540)+B(7549)+B(7560)+B(7595)+B(7609)+B(7621)+B(7632)+B(7672)+B(7683)+B(7694)+B(7705)& - &+B(7718)+B(7740)+2*B(7766)+B(7788)+B(7799)+B(7812)+B(7826)+B(7836)+B(7849)+B(7861)+B(7874)+B(7886)+B(7905)& - &+2*B(7929)+B(7943)+B(7955)+B(7968)+B(7979)+B(7990)+B(8001)+B(8012)+B(8023)+B(8034)+B(8045)+B(8056)+B(8067)& - &+B(8078)+B(8089)+B(8098)+B(8108)+B(8119)+B(8130)+B(8141)+B(8152)+B(8163)+B(8172)+B(8182)+B(8193)+B(8204)& - &+B(8217)+B(8229)+B(8242)+B(8254)+B(8263)+B(8272)+B(8280)+B(8289)+B(8300)+B(8309)+B(8318)+B(8329)+B(8338)& - &+B(8347)+B(8356)+B(8365)+B(8374)+B(8383)+B(8392)+B(8401)+B(8410)+B(8419)+2*B(8432)+2*B(8446)+B(8457)& - &+B(8469)+2*B(8482)+B(8492)+2*B(8506)+B(8517)+B(8526)+B(8535)+B(8542)+2*B(8553)+B(8564)+2*B(8577)+B(8590)& - &+B(8599)+2*B(8610)+B(8620)+B(8629)+B(8640)+B(8649)+B(8658)+B(8677)+B(8700)+B(8710)+B(8744)+B(8796)+B(8847)& - &+B(8866)+B(8905)+B(8949)+B(8959)+B(9002)+B(9025)+B(9035)+B(9068)+B(9090)+B(9100)+B(9136)+B(9167)+B(9177)& - &+B(9234)+B(9257)+B(9271)+B(9320)+B(9339)+B(9374)+B(9395)+B(9441)+B(9460)+B(9502)+B(9552)+B(9571)+B(9610)& - &+B(9632)+B(9674)+B(9684)+B(9710)+B(9720)+B(9747)+B(9804)+B(9814)+B(9823)+B(9860)+B(9870)+B(9901)+B(9923)& - &+B(9933)+B(9975)+B(10034)+B(10114)+B(10133)+B(10206)+B(10217)+B(10242)+B(10264)+B(10274)+B(10282)+B(10313)& - &+B(10326)+B(10340)+B(10353)+B(10369)+B(10384)+B(10393)+B(10404)+B(10420)+B(10433)+B(10447)+B(10506)& - &+B(10575)+B(10633)+B(10645)+B(10655)+B(10669)+B(10725)+B(10736)+B(10745)+B(10758)+B(10775)+B(10786)& - &+B(10799)+B(10814)+B(10824)+B(10833)+B(10842)+B(10851)+B(10858)+B(10867)+B(10880)+B(10890)+B(10897)& - &+B(10904)+B(10915)+B(10926)+B(10935)+B(10942)+B(10951)+B(10958)+B(10969)+B(10978)+B(10985)+B(10992)& - &+B(11005)+B(11015)+B(11024)+B(11042)+B(11053)+B(11107)+2*B(11118)+B(11169)+B(11180)+B(11244)+B(11268)& - &+B(11278)+B(11303)+B(11313)+B(11338)+B(11374)+B(11527)+B(11536)+B(11545)+B(11552)+2*B(11649)+B(12340)& - &+B(12349)+B(12408)+B(12437)+B(12451)+B(12463)+B(12471)+B(12480)+B(12489)+B(12520)+B(12534)+B(12542)& - &+B(12549)+B(12558)+B(12604)+B(12624)+B(12632)+B(12639)+B(12648)+B(12656)+B(12663)+B(12670)+B(12716)& - &+B(12739)+B(12763)+B(12796)+B(12806)+B(12815)+B(12822)+B(12831)+B(12856)+B(12890)+B(12904)+B(12913)& - &+B(12920)+B(12929)+B(12954)+B(12961)+B(12988)+B(12998)+B(13007)+B(13014)+B(13023)+B(13048)+B(13077)& - &+B(13088)+B(13098)+B(13106)+B(13116)+B(13124)+B(13131)+B(13139)+B(13176)+B(13202)+B(13299)+B(13327)& - &+B(13334)+B(13358)+B(13380)+B(13390)+B(13398)+B(13405)+B(13414)+B(13440)+B(13506)+B(13537)+B(13561)& - &+B(13594)+B(13628)+B(13650)+B(13699)+B(13712)+B(13736)+B(13747)+B(13760)+B(13789)+B(13803)+B(13814)& - &+B(13825)+B(13838)+B(13846)+B(13871)+B(13904)+B(13974)+B(14229)+B(14249)+B(14261)+B(14275)+B(14285)& - &+B(14292)+B(14302)+B(14311)+B(14320)+B(14345)+B(14355)+B(14366)+B(14379)+B(14404)+B(14422)+B(14447)& - &+B(14461)+B(14471)+B(14482)+B(14491)+B(14498)+B(14511)+B(14525)+B(14535)+B(14556)+B(14565)+B(14578)& - &+B(14588)+B(14597)+B(14606)+B(14617)+B(14642)+B(14651)+B(14672)+B(14686)+B(14696)+B(14705)+B(14724)& - &+B(14732)+B(14749)+B(14759)+B(14768)+B(14777)+B(14786)+B(14794)+B(14804)+B(14823)+B(14833)+B(14844)& - &+B(14855)+B(14894)+B(14904)+B(14939)+B(14956)+B(14967)+B(14985)+B(14997)+B(15014)+B(15027)+B(15037)& - &+B(15048)+B(15061)+B(15073)+B(15084)+B(15102)+B(15114)+B(15122)+B(15131)+B(15143)+B(15155)+B(15168)& - &+B(15182)+B(15203)+B(15210)+B(15219)+B(15228)+B(15248)+B(15257)+B(15270)+B(15282)+B(15294)+B(15303)& - &+B(15315)+B(15322)+B(15331)+B(15343)+B(15350)+B(15359)+B(15371)+B(15378)+B(15387)+B(15399)+B(15408)& - &+B(15419)+B(15444)+B(15471)+B(15478)+B(15485)+B(15495)+B(15502)+B(15511)+B(15518)+B(15531)+B(15538)& - &+B(15545)+B(15584)+B(15591)+B(15616)+B(15658)+B(15665)+B(15672)+B(15681)+B(15688)+B(15748)+B(15755)& - &+B(15762)+B(15770)+B(15777)+B(15808)+B(15815)+B(15822)+B(15830)+B(15837)+B(15851)+B(15858)+B(15865)& - &+B(15874)+B(15881)+B(15923)+B(15936)+B(15947)+B(15954)+B(15961)+B(15970)+B(15977)+B(16021)+B(16049)& - &+B(16056)+B(16063)+B(16072)+B(16079)+B(16123)+B(16142)+B(16149)+B(16156)+B(16221)+B(16228)+B(16235)& - &+B(16243)+B(16250)+B(16262)+B(16273)+B(16280)+B(16287)+B(16296)+B(16303)+B(16317)+B(16324)+B(16331)& - &+B(16339)+B(16346)+B(16372)+B(16379)+B(16386)+B(16394)+B(16401)+B(16453)+B(16467)+2*B(16493)+B(16519)& - &+B(16529)+B(16542)+B(16568)+B(16617)+B(16655)+B(16697)+B(16733)+B(16746)+B(16755)+B(16783)+B(16792)& - &+B(16807)+B(16821)+B(16831)+B(16838)+B(16849)+B(16859)+B(16866)+B(16883)+B(16989)+B(17010)+B(17024)& - &+B(17036)+B(17048)+B(17065)+B(17081)+B(17091)+B(17148)+B(17157)+B(17166)+B(17303)+B(17315)+B(17324)& - &+B(17333)+B(17381)+B(17425)+B(17435)+B(17442)+B(17449)+B(17475)+B(17489)+B(17511)+B(17541)+B(17571)& - &+B(17581)+B(17666)+B(17754)+B(17763)+B(17772)+B(17818)+B(17826)+B(17834)+B(17884)+B(17910)+B(17940)& - &+B(17970)+B(18004)+B(18014)+B(18049)+B(18058)+B(18065)+B(18107)+B(18114)+B(18151)+B(18158)+B(18165)& - &+B(18203)+B(18215)+B(18223)+B(18230)+B(18258)+B(18266)+B(18273)+B(18301)+B(18308)+B(18360)+B(18367)& - &+B(18399)+B(18427)+B(18434)+B(18466)+B(18498)+B(18505)+B(18526)+B(18533)+B(18540)+B(18568)+B(18579)& - &+B(18586)+B(18616)+B(18623)+B(18651)+B(18658)+B(18691)+2*B(18714)+B(18732)+B(18745)+B(18752)+B(18763)& - &+B(18794)+B(18811)+B(18822)+2*B(18840)+B(18859)+2*B(18873)+B(18889)+B(18915)+B(18923)+B(18934)+B(18946)& - &+B(18983)+B(19013)+B(19071)+B(19085)+B(19098)+B(19113)+B(19122)+B(19130)+B(19146)+B(19154)+B(19165)& - &+B(19177)+B(19187)+B(19204)+B(19216)+B(19274)+B(19286)+B(19295)+B(19334)+B(19347)+B(19357)+B(19368)& - &+B(19407)+B(19421)+B(19431)+B(19443)+B(19457)+B(19471)+B(19510)+B(19523)+B(19601)+B(19615)+B(19624)& - &+B(19681)+B(19690)+B(19732)+B(19743)+B(19765)+B(19787)+B(19809)+B(19836)+B(19866)+B(19898)+B(19912)& - &+B(19933)+B(19959)+B(19970)+B(19983)+B(20002)+B(20031)+B(20057)+B(20079)+B(20092)+B(20114)+B(20144)& - &+B(20161)+B(20168)+B(20203)+B(20229)+B(20251)+B(20273)+B(20286)+B(20300)+B(20330)+B(20343)+2*B(20357)+2& - &*B(20371)+B(20403)+2*B(20417)+B(20439)+2*B(20469)+B(20496)+B(20503)+B(20535)+B(20559)+B(20577)+B(20586)& - &+B(20603)+B(20615)+B(20626)+B(20637)+B(20656)+B(20678)+B(20692)+B(20721)+B(20731)+B(20804)+B(20817)& - &+B(20828)+B(20868)+B(20879)+B(20889)+B(20912)+B(20938)+B(20949)+B(20966)+B(21001)+B(21020)+B(21034)& - &+B(21053)+B(21065)+B(21084)+B(21094)+B(21112)+B(21120)+B(21127)+B(21151)+B(21170)+B(21177)+B(21195)& - &+B(21219)+B(21232)+B(21245)+B(21258)+B(21271)+B(21287)+B(21304)+B(21328)+B(21376)+B(21393)+B(21417)& - &+B(21435)+B(21473)+B(21490)+B(21507)+B(21539)+B(21548)+B(21663)+B(21679)+B(21689)+B(21721)+B(21733)& - &+B(21742)+B(21770)+B(21783)+B(21798)+B(21811)+B(21821)+B(21847)+B(21856)+B(21878)+B(21890)+B(21903)& - &+B(21915)+B(21930)+B(21968)+B(22018)+B(22030)+B(22087)+B(22104)+B(22145)+B(22175)+B(22257)+B(22326)& - &+B(22338)+B(22348)+B(22377)+B(22404)+B(22432)+B(22456)+B(22485)+B(22539)+B(22549)+B(22560)+B(22577)& - &+B(22588)+B(22601)+B(22613)+B(22629)+B(22657)+B(22667)+B(22679)+B(22693)+B(22726)+B(22739)+B(22752)& - &+B(22775)+B(22783)+B(22791)+B(22807)+B(22816)+B(22823)+B(22848)+B(22866)+B(22875)+B(22930)+B(22941)& - &+B(22969)+B(23001)+B(23034)+B(23074)+B(23082)+B(23095)+B(23130)+B(23157)+B(23173)+B(23189)+B(23207)& - &+B(23258)+B(23266)+B(23291)+B(23305)+B(23319)+B(23329)+B(23338)+B(23369)+B(23384)+B(23399)+B(23411)& - &+B(23434)+B(23467)+B(23482)+2*B(23547)+B(23585)+B(23639)+B(23649)+B(23687)+B(23705)+B(23714)+B(23738)& - &+B(23747)+B(23754)+B(23769)+B(23776)+B(23785)+B(23794)+B(23812)+B(23827)+B(23850)+B(23871)+B(23976)& - &+B(23985)+B(23996)+B(24005)+B(24039) -! JVS(50211) = Jac_FULL(5253,5253) - JVS(50211) = -B(9)-B(11)-B(15)-B(22)-B(41)-B(46)-B(67)-B(1210)-B(1289)-B(1313)-B(1338)-B(1374)-B(1418)-B(1454)-B(1504)& - &-B(1550)-B(3016)-B(3577)-B(3587)-B(3784)-B(3818)-B(3991)-B(4003)-B(4032)-B(4046)-B(4056)-B(4261)-B(4289)& - &-B(4354)-B(4866)-B(4910)-B(4945)-B(5025)-B(5059)-B(5119)-B(5224)-B(5269)-B(5320)-B(5354)-B(5421)-B(5459)& - &-B(5519)-B(5550)-B(5610)-B(5643)-B(5675)-B(5724)-B(5774)-B(5815)-B(5854)-B(5903)-B(5956)-B(6045)-B(6071)& - &-B(6150)-B(6217)-B(6255)-B(6297)-B(6323)-B(6369)-B(6402)-B(6455)-B(6551)-B(6589)-B(6644)-B(6750)-B(6760)& - &-B(6870)-B(7277)-B(7379)-B(7447)-B(7597)-B(7611)-B(7634)-B(7685)-B(7696)-B(7720)-B(7768)-B(7790)-B(7801)& - &-B(7814)-B(7828)-B(7851)-B(7876)-B(7888)-B(7907)-B(7931)-B(7945)-B(7957)-B(7970)-B(8014)-B(8036)-B(8080)& - &-B(8143)-B(8195)-B(8219)-B(8244)-B(8434)-B(8448)-B(8471)-B(8484)-B(8508)-B(8528)-B(8555)-B(8579)-B(8592)& - &-B(8612)-B(8642)-B(8679)-B(8702)-B(8763)-B(8801)-B(8849)-B(8868)-B(8907)-B(8951)-B(9014)-B(9027)-B(9070)& - &-B(9092)-B(9156)-B(9169)-B(9246)-B(9259)-B(9291)-B(9322)-B(9341)-B(9407)-B(9443)-B(9462)-B(9522)-B(9554)& - &-B(9573)-B(9612)-B(9643)-B(9676)-B(9712)-B(9759)-B(9806)-B(9825)-B(9862)-B(9925)-B(9987)-B(10054)-B(10126)& - &-B(10219)-B(10244)-B(10266)-B(10328)-B(10355)-B(10406)-B(10435)-B(10657)-B(10671)-B(10816)-B(10882)& - &-B(10971)-B(11007)-B(11055)-B(11120)-B(11182)-B(11246)-B(11270)-B(11315)-B(11529)-B(11651)-B(12398)& - &-B(12424)-B(12453)-B(12522)-B(12587)-B(12620)-B(12699)-B(12735)-B(12746)-B(12776)-B(12873)-B(12968)& - &-B(13064)-B(13090)-B(13170)-B(13185)-B(13221)-B(13282)-B(13310)-B(13341)-B(13382)-B(13508)-B(13539)& - &-B(13563)-B(13596)-B(13630)-B(13701)-B(13805)-B(13873)-B(14263)-B(14277)-B(14304)-B(14449)-B(14463)& - &-B(14484)-B(14558)-B(14580)-B(14653)-B(14674)-B(14688)-B(14698)-B(14796)-B(14806)-B(14846)-B(14857)& - &-B(14896)-B(14941)-B(14958)-B(14987)-B(15029)-B(15050)-B(15063)-B(15104)-B(15145)-B(15170)-B(15184)& - &-B(15272)-B(15446)-B(15593)-B(15618)-B(15925)-B(16023)-B(16125)-B(16449)-B(16469)-B(16495)-B(16521)& - &-B(16531)-B(16570)-B(16657)-B(16699)-B(16735)-B(16809)-B(16823)-B(16851)-B(16991)-B(17038)-B(17168)& - &-B(17305)-B(17326)-B(17427)-B(17477)-B(17491)-B(17513)-B(17543)-B(17573)-B(17668)-B(18006)-B(18401)& - &-B(18468)-B(18716)-B(18734)-B(18754)-B(18765)-B(18796)-B(18813)-B(18824)-B(18842)-B(18861)-B(18875)& - &-B(18891)-B(18936)-B(18985)-B(19015)-B(19100)-B(19179)-B(19276)-B(19349)-B(19370)-B(19409)-B(19423)& - &-B(19445)-B(19459)-B(19626)-B(19683)-B(19734)-B(19767)-B(19789)-B(19811)-B(19838)-B(19868)-B(19900)& - &-B(19914)-B(19935)-B(19961)-B(19972)-B(19985)-B(20004)-B(20033)-B(20059)-B(20081)-B(20094)-B(20116)& - &-B(20146)-B(20205)-B(20231)-B(20253)-B(20275)-B(20288)-B(20332)-B(20345)-B(20359)-B(20373)-B(20405)& - &-B(20419)-B(20441)-B(20471)-B(20537)-B(20561)-B(20579)-B(20605)-B(20617)-B(20628)-B(20639)-B(20723)& - &-B(20830)-B(20951)-B(21067)-B(21153)-B(21289)-B(21306)-B(21330)-B(21378)-B(21395)-B(21419)-B(21437)& - &-B(21475)-B(21492)-B(21509)-B(21541)-B(21785)-B(21813)-B(21849)-B(21892)-B(21905)-B(22020)-B(22147)& - &-B(22259)-B(22340)-B(22379)-B(22541)-B(22603)-B(22728)-B(22809)-B(22868)-B(22943)-B(23003)-B(23097)& - &-B(23132)-B(23191)-B(23293)-B(23307)-B(23321)-B(23549)-B(23641)-B(23740)-B(23787)-B(23814)-B(23978)& - &-B(23998) -! JVS(50212) = Jac_FULL(5253,5254) - JVS(50212) = 0 -! JVS(50213) = Jac_FULL(5253,5255) - JVS(50213) = B(45)-B(47)+B(50)+B(6864)+B(7762)+B(7923)+B(8426)+B(8440)+B(8476)+B(8500)+B(8551)+B(8575)+B(8604)& - &+B(11116)+B(11647)+B(16491)+B(18712)+B(18838)+B(18867)+B(20355)+B(20369)+B(20411)+B(20467)+B(23543) -! JVS(50214) = Jac_FULL(5253,5256) - JVS(50214) = 2*B(19)-B(23)+B(43)+B(51)+B(69)+B(928)+B(939)+B(946)+B(961)+B(972)+B(983)+B(994)+B(1005)+B(1015)+B(1026)& - &+B(1038)+B(1049)+B(1066)+B(1077)+B(1093)+B(1103)+B(1114)+B(1125)+B(1136)+B(1147)+B(1158)+B(1168)+B(1177)& - &+B(1188)+B(1197)+B(1212)+B(1235)+B(1244)+B(1265)+B(1276)+B(1291)+B(1300)+B(1315)+B(1325)+B(1340)+B(1350)& - &+B(1361)+B(1376)+B(1386)+B(1395)+B(1405)+B(1420)+B(1430)+B(1441)+B(1456)+B(1464)+B(1478)+B(1506)+B(1526)& - &+B(1537)+B(1552)+B(1560)+B(1569)+B(1584)+B(1593)+B(1604)+B(1615)+B(1626)+B(1636)+B(1647)+B(1658)+B(1669)& - &+B(1680)+B(1691)+B(1701)+B(1712)+B(1723)+B(1734)+B(1745)+B(1756)+B(1767)+B(1778)+B(1788)+B(1799)+B(1810)& - &+B(1820)+B(1831)+B(1842)+B(1853)+B(1863)+B(1874)+B(1885)+B(1896)+B(1906)+B(1917)+B(1927)+B(1938)+B(1949)& - &+B(1960)+B(1971)+B(1982)+B(1991)+B(2003)+B(2012)+B(2025)+B(2034)+B(2049)+B(2058)+B(2067)+B(2075)+B(2088)& - &+B(2097)+B(2112)+B(2123)+B(2132)+B(2141)+B(2156)+B(2165)+B(2174)+B(2184)+B(2193)+B(2208)+B(2217)+B(2226)& - &+B(2238)+B(2247)+B(2262)+B(2273)+B(2282)+B(2291)+B(2306)+B(2317)+B(2326)+B(2337)+B(2349)+B(2380)+B(2403)& - &+B(2424)+B(2435)+B(2467)+B(2478)+B(2511)+B(2522)+B(2554)+B(2577)+B(2598)+B(2621)+B(2642)+B(2664)+B(2685)& - &+B(2708)+B(2725)+B(2736)+B(2768)+B(2779)+B(2808)+B(2819)+B(2851)+B(2884)+B(2916)+B(2927)+B(2956)+B(2975)& - &+B(2994)+B(3005)+B(3018)+B(3026)+B(3033)+B(3044)+B(3062)+B(3073)+B(3084)+B(3095)+B(3131)+B(3168)+B(3181)& - &+B(3192)+B(3203)+B(3214)+B(3223)+B(3232)+B(3243)+B(3252)+B(3261)+B(3272)+B(3281)+B(3291)+B(3302)+B(3313)& - &+B(3322)+B(3333)+B(3342)+B(3351)+B(3362)+B(3373)+B(3381)+B(3392)+B(3403)+B(3412)+B(3420)+B(3435)+B(3445)& - &+B(3456)+B(3464)+B(3472)+B(3497)+B(3507)+B(3518)+B(3526)+B(3540)+B(3550)+B(3561)+B(3569)+B(3606)+B(3616)& - &+B(3627)+B(3786)+B(3820)+B(3830)+B(3993)+B(4005)+B(4048)+B(4341)+B(5226)+B(5245)+B(5254)+B(5277)+B(5291)& - &+B(5308)+B(5316)+B(5356)+B(5370)+B(5379)+B(5423)+B(5438)+B(5447)+B(5455)+B(5467)+B(5521)+B(5536)+B(5545)& - &+B(5558)+B(5566)+B(5612)+B(5622)+B(5631)+B(5639)+B(5651)+B(5683)+B(5691)+B(5726)+B(5740)+B(5749)+B(5770)& - &+B(5782)+B(5817)+B(5831)+B(5840)+B(5862)+B(5870)+B(5905)+B(5919)+B(5928)+B(5940)+B(5952)+B(5964)+B(6003)& - &+B(6041)+B(6053)+B(6073)+B(6083)+B(6092)+B(6128)+B(6138)+B(6152)+B(6170)+B(6178)+B(6219)+B(6234)+B(6243)& - &+B(6251)+B(6263)+B(6299)+B(6309)+B(6318)+B(6331)+B(6339)+B(6371)+B(6381)+B(6390)+B(6398)+B(6410)+B(6457)& - &+B(6469)+B(6477)+B(6488)+B(6496)+B(6518)+B(6526)+B(6553)+B(6569)+B(6577)+B(6730)+B(6741)+B(6769)+B(6780)& - &+B(6794)+B(6807)+B(6821)+B(6850)+B(6861)+B(6872)+B(6881)+B(6888)+B(6901)+B(6912)+B(6923)+B(6935)+B(7260)& - &+B(7268)+B(7289)+B(7338)+B(7349)+B(7360)+B(7368)+B(7418)+B(7427)+B(7438)+B(7516)+B(7525)+B(7542)+B(7551)& - &+B(7562)+B(7599)+B(7613)+B(7623)+B(7636)+B(7674)+B(7687)+B(7698)+B(7707)+B(7722)+B(7742)+2*B(7770)+B(7792)& - &+B(7803)+B(7816)+B(7830)+B(7838)+B(7853)+B(7863)+B(7878)+B(7890)+B(7909)+2*B(7933)+B(7947)+B(7959)+B(7972)& - &+B(7981)+B(7992)+B(8003)+B(8016)+B(8025)+B(8038)+B(8047)+B(8058)+B(8069)+B(8082)+B(8091)+B(8100)+B(8110)& - &+B(8121)+B(8132)+B(8145)+B(8154)+B(8165)+B(8174)+B(8184)+B(8197)+B(8206)+B(8221)+B(8231)+B(8246)+B(8256)& - &+B(8265)+B(8274)+B(8282)+B(8291)+B(8302)+B(8311)+B(8320)+B(8331)+B(8340)+B(8349)+B(8358)+B(8367)+B(8376)& - &+B(8385)+B(8394)+B(8403)+B(8412)+B(8421)+2*B(8436)+2*B(8450)+B(8459)+B(8473)+2*B(8486)+B(8494)+2*B(8510)& - &+B(8519)+B(8530)+B(8537)+B(8544)+2*B(8557)+B(8566)+B(8581)+B(8594)+B(8601)+2*B(8614)+B(8622)+B(8631)& - &+B(8644)+B(8651)+B(8660)+B(8681)+B(8704)+B(8712)+B(8746)+B(8798)+B(8851)+B(8909)+B(8953)+B(8961)+B(9004)& - &+B(9029)+B(9037)+B(9072)+B(9094)+B(9102)+B(9138)+B(9171)+B(9179)+B(9236)+B(9261)+B(9273)+B(9324)+B(9376)& - &+B(9397)+B(9445)+B(9504)+B(9556)+B(9614)+B(9634)+B(9678)+B(9686)+B(9714)+B(9722)+B(9749)+B(9808)+B(9816)& - &+B(9827)+B(9864)+B(9872)+B(9903)+B(9927)+B(9935)+B(9977)+B(10036)+B(10116)+B(10135)+B(10208)+B(10221)& - &+B(10246)+B(10268)+B(10276)+B(10284)+B(10315)+B(10330)+B(10342)+B(10357)+B(10371)+B(10386)+B(10395)& - &+B(10408)+B(10422)+B(10437)+B(10449)+B(10508)+B(10577)+B(10635)+B(10647)+B(10659)+B(10727)+B(10738)& - &+B(10747)+B(10760)+B(10777)+B(10790)+B(10803)+B(10818)+B(10826)+B(10835)+B(10844)+B(10853)+B(10860)& - &+B(10869)+B(10884)+B(10892)+B(10899)+B(10906)+B(10917)+B(10928)+B(10937)+B(10944)+B(10953)+B(10960)& - &+B(10973)+B(10980)+B(10987)+B(10994)+B(11009)+B(11017)+B(11026)+B(11044)+B(11057)+B(11109)+2*B(11122)& - &+B(11171)+B(11184)+B(11248)+B(11272)+B(11280)+B(11305)+B(11340)+B(11376)+B(11531)+B(11538)+B(11547)& - &+B(11554)+2*B(11653)+B(12342)+B(12351)+B(12410)+B(12439)+B(12455)+B(12465)+B(12473)+B(12482)+B(12491)& - &+B(12524)+B(12536)+B(12544)+B(12551)+B(12560)+B(12606)+B(12626)+B(12634)+B(12641)+B(12650)+B(12658)& - &+B(12665)+B(12672)+B(12718)+B(12741)+B(12765)+B(12798)+B(12808)+B(12817)+B(12824)+B(12833)+B(12858)& - &+B(12892)+B(12906)+B(12915)+B(12922)+B(12931)+B(12956)+B(12963)+B(12990)+B(13000)+B(13009)+B(13016)& - &+B(13025)+B(13050)+B(13079)+B(13092)+B(13100)+B(13108)+B(13118)+B(13126)+B(13133)+B(13141)+B(13178)& - &+B(13204)+B(13301)+B(13329)+B(13336)+B(13360)+B(13384)+B(13392)+B(13400)+B(13407)+B(13416)+B(13442)& - &+B(13652)+B(13656)+B(13703)+B(13714)+B(13738)+B(13762)+B(13791)+B(13807)+B(13818)+B(13827)+B(13840)& - &+B(13848)+B(13906)+B(13976)+B(14231)+B(14251)+B(14265)+B(14279)+B(14287)+B(14294)+B(14306)+B(14313)& - &+B(14322)+B(14347)+B(14357)+B(14368)+B(14381)+B(14406)+B(14424)+B(14451)+B(14465)+B(14473)+B(14486)& - &+B(14493)+B(14500)+B(14513)+B(14527)+B(14537)+B(14567)+B(14582)+B(14590)+B(14599)+B(14608)+B(14619)& - &+B(14644)+B(14676)+B(14690)+B(14707)+B(14726)+B(14734)+B(14751)+B(14761)+B(14770)+B(14779)+B(14788)& - &+B(14825)+B(14835)+B(14848)+B(14859)+B(14898)+B(14906)+B(14943)+B(14960)+B(14969)+B(14989)+B(14999)& - &+B(15016)+B(15031)+B(15039)+B(15052)+B(15065)+B(15075)+B(15086)+B(15106)+B(15116)+B(15124)+B(15133)& - &+B(15147)+B(15157)+B(15172)+B(15186)+B(15205)+B(15212)+B(15221)+B(15230)+B(15250)+B(15259)+B(15274)& - &+B(15284)+B(15296)+B(15305)+B(15317)+B(15324)+B(15333)+B(15345)+B(15352)+B(15361)+B(15373)+B(15380)& - &+B(15389)+B(15401)+B(15410)+B(15421)+B(15473)+B(15480)+B(15487)+B(15497)+B(15504)+B(15513)+B(15520)& - &+B(15533)+B(15540)+B(15547)+B(15586)+B(15660)+B(15667)+B(15674)+B(15683)+B(15690)+B(15750)+B(15757)& - &+B(15764)+B(15772)+B(15779)+B(15810)+B(15817)+B(15824)+B(15832)+B(15839)+B(15853)+B(15860)+B(15867)& - &+B(15876)+B(15883)+B(15927)+B(15938)+B(15949)+B(15956)+B(15963)+B(15972)+B(15979)+B(16025)+B(16051)& - &+B(16058)+B(16065)+B(16074)+B(16081)+B(16127)+B(16144)+B(16151)+B(16158)+B(16223)+B(16230)+B(16237)& - &+B(16245)+B(16252)+B(16264)+B(16275)+B(16282)+B(16289)+B(16298)+B(16305)+B(16319)+B(16326)+B(16333)& - &+B(16341)+B(16348)+B(16374)+B(16381)+B(16388)+B(16396)+B(16403)+B(16455)+B(16471)+2*B(16497)+B(16544)& - &+B(16619)+B(16737)+B(16748)+B(16757)+B(16785)+B(16794)+B(16811)+B(16825)+B(16833)+B(16840)+B(16853)& - &+B(16861)+B(16868)+B(16885)+B(16993)+B(17012)+B(17026)+B(17040)+B(17050)+B(17067)+B(17083)+B(17093)& - &+B(17150)+B(17159)+B(17307)+B(17317)+B(17335)+B(17383)+B(17429)+B(17437)+B(17444)+B(17451)+B(17479)& - &+B(17493)+B(17515)+B(17545)+B(17575)+B(17583)+B(17670)+B(17756)+B(17765)+B(17774)+B(17820)+B(17828)& - &+B(17836)+B(17886)+B(17912)+B(17942)+B(17972)+B(18008)+B(18016)+B(18051)+B(18060)+B(18067)+B(18109)& - &+B(18116)+B(18153)+B(18160)+B(18167)+B(18205)+B(18217)+B(18225)+B(18232)+B(18260)+B(18268)+B(18275)& - &+B(18303)+B(18310)+B(18362)+B(18369)+B(18403)+B(18429)+B(18436)+B(18470)+B(18500)+B(18507)+B(18528)& - &+B(18535)+B(18542)+B(18570)+B(18581)+B(18588)+B(18618)+B(18625)+B(18653)+B(18660)+B(18693)+2*B(18718)& - &+B(18736)+B(18747)+B(18767)+B(18798)+B(18815)+B(18826)+2*B(18844)+B(18846)+B(18863)+2*B(18877)+B(18893)& - &+B(18917)+B(18925)+B(18938)+B(18948)+B(18987)+B(19017)+B(19073)+B(19087)+B(19102)+B(19115)+B(19124)& - &+B(19132)+B(19148)+B(19156)+B(19167)+B(19181)+B(19189)+B(19206)+B(19218)+B(19278)+B(19288)+B(19297)& - &+B(19336)+B(19351)+B(19359)+B(19372)+B(19411)+B(19425)+B(19433)+B(19447)+B(19461)+B(19473)+B(19512)& - &+B(19525)+B(19603)+B(19617)+B(19628)+B(19685)+B(19692)+B(19736)+B(19745)+B(19769)+B(19791)+B(19813)& - &+B(19840)+B(19870)+B(19902)+B(19916)+B(19937)+B(19963)+B(19974)+B(19987)+B(20006)+B(20035)+B(20061)& - &+B(20083)+B(20096)+B(20118)+B(20148)+B(20163)+B(20170)+B(20207)+B(20233)+B(20255)+B(20277)+B(20290)& - &+B(20302)+B(20334)+B(20347)+2*B(20361)+2*B(20375)+B(20407)+2*B(20421)+B(20443)+2*B(20473)+B(20498)& - &+B(20505)+B(20563)+B(20581)+B(20588)+B(20607)+B(20619)+B(20630)+B(20641)+B(20658)+B(20680)+B(20694)& - &+B(20725)+B(20733)+B(20806)+B(20819)+B(20832)+B(20870)+B(20881)+B(20891)+B(20914)+B(20940)+B(20953)& - &+B(20968)+B(21003)+B(21022)+B(21036)+B(21055)+B(21069)+B(21086)+B(21096)+B(21114)+B(21122)+B(21129)& - &+B(21155)+B(21172)+B(21179)+B(21197)+B(21221)+B(21234)+B(21247)+B(21260)+B(21273)+B(21291)+B(21308)& - &+B(21332)+B(21380)+B(21397)+B(21421)+B(21439)+B(21477)+B(21494)+B(21511)+B(21543)+B(21550)+B(21665)& - &+B(21681)+B(21691)+B(21723)+B(21735)+B(21744)+B(21772)+B(21787)+B(21800)+B(21815)+B(21823)+B(21851)& - &+B(21858)+B(21880)+B(21894)+B(21907)+B(21917)+B(21932)+B(21970)+B(22022)+B(22032)+B(22089)+B(22106)& - &+B(22149)+B(22177)+B(22261)+B(22328)+B(22342)+B(22350)+B(22381)+B(22406)+B(22434)+B(22458)+B(22487)& - &+B(22543)+B(22551)+B(22562)+B(22579)+B(22590)+B(22605)+B(22615)+B(22631)+B(22659)+B(22669)+B(22681)& - &+B(22695)+B(22730)+B(22741)+B(22754)+B(22777)+B(22785)+B(22793)+B(22811)+B(22818)+B(22825)+B(22850)& - &+B(22870)+B(22877)+B(22932)+B(22945)+B(22971)+B(23005)+B(23036)+B(23076)+B(23084)+B(23099)+B(23134)& - &+B(23159)+B(23175)+B(23193)+B(23209)+B(23260)+B(23268)+B(23295)+B(23309)+B(23323)+B(23331)+B(23340)& - &+B(23371)+B(23386)+B(23401)+B(23413)+B(23436)+B(23469)+B(23484)+2*B(23551)+B(23587)+B(23643)+B(23651)& - &+B(23689)+B(23707)+B(23716)+B(23742)+B(23749)+B(23756)+B(23771)+B(23778)+B(23789)+B(23796)+B(23816)& - &+B(23829)+B(23852)+B(23873)+B(23980)+B(23987)+B(24000)+B(24007)+B(24041) -! JVS(50215) = Jac_FULL(5253,5257) - JVS(50215) = 0 -! JVS(50216) = Jac_FULL(5253,5258) - JVS(50216) = B(14)-B(16) -! JVS(50217) = Jac_FULL(5254,3568) - JVS(50217) = -B(56) -! JVS(50218) = Jac_FULL(5254,4213) - JVS(50218) = -B(13631) -! JVS(50219) = Jac_FULL(5254,4247) - JVS(50219) = -B(16658) -! JVS(50220) = Jac_FULL(5254,4250) - JVS(50220) = -B(20538) -! JVS(50221) = Jac_FULL(5254,4258) - JVS(50221) = -B(17327) -! JVS(50222) = Jac_FULL(5254,4264) - JVS(50222) = -B(14559) -! JVS(50223) = Jac_FULL(5254,4282) - JVS(50223) = -B(13597) -! JVS(50224) = Jac_FULL(5254,4286) - JVS(50224) = -B(6761) -! JVS(50225) = Jac_FULL(5254,4302) - JVS(50225) = -B(7380) -! JVS(50226) = Jac_FULL(5254,4320) - JVS(50226) = -B(5026) -! JVS(50227) = Jac_FULL(5254,4526) - JVS(50227) = -B(14654) -! JVS(50228) = Jac_FULL(5254,4544) - JVS(50228) = -B(4911) -! JVS(50229) = Jac_FULL(5254,4551) - JVS(50229) = -B(16532) -! JVS(50230) = Jac_FULL(5254,4556) - JVS(50230) = -B(13874) -! JVS(50231) = Jac_FULL(5254,4600) - JVS(50231) = 0 -! JVS(50232) = Jac_FULL(5254,4601) - JVS(50232) = 0 -! JVS(50233) = Jac_FULL(5254,4621) - JVS(50233) = -B(15594) -! JVS(50234) = Jac_FULL(5254,4668) - JVS(50234) = -B(13509) -! JVS(50235) = Jac_FULL(5254,4677) - JVS(50235) = -B(16522) -! JVS(50236) = Jac_FULL(5254,4678) - JVS(50236) = -B(14807) -! JVS(50237) = Jac_FULL(5254,4691) - JVS(50237) = -B(14797) -! JVS(50238) = Jac_FULL(5254,4741) - JVS(50238) = -B(15619) -! JVS(50239) = Jac_FULL(5254,4757) - JVS(50239) = -B(14699) -! JVS(50240) = Jac_FULL(5254,4776) - JVS(50240) = -B(13564) -! JVS(50241) = Jac_FULL(5254,4786) - JVS(50241) = 0 -! JVS(50242) = Jac_FULL(5254,4819) - JVS(50242) = -B(6645) -! JVS(50243) = Jac_FULL(5254,4824) - JVS(50243) = -B(17169) -! JVS(50244) = Jac_FULL(5254,4828) - JVS(50244) = -B(15447) -! JVS(50245) = Jac_FULL(5254,4838) - JVS(50245) = -B(5120) -! JVS(50246) = Jac_FULL(5254,4843) - JVS(50246) = -B(7448) -! JVS(50247) = Jac_FULL(5254,4868) - JVS(50247) = -B(5060) -! JVS(50248) = Jac_FULL(5254,4869) - JVS(50248) = -B(11316) -! JVS(50249) = Jac_FULL(5254,4906) - JVS(50249) = -B(6751) -! JVS(50250) = Jac_FULL(5254,4908) - JVS(50250) = -B(4033) -! JVS(50251) = Jac_FULL(5254,4912) - JVS(50251) = -B(7278) -! JVS(50252) = Jac_FULL(5254,4919) - JVS(50252) = -B(6590) -! JVS(50253) = Jac_FULL(5254,4941) - JVS(50253) = -B(4867) -! JVS(50254) = Jac_FULL(5254,4943) - JVS(50254) = -B(4355) -! JVS(50255) = Jac_FULL(5254,4951) - JVS(50255) = 0 -! JVS(50256) = Jac_FULL(5254,4952) - JVS(50256) = 0 -! JVS(50257) = Jac_FULL(5254,4956) - JVS(50257) = -B(4946) -! JVS(50258) = Jac_FULL(5254,4963) - JVS(50258) = -B(10672) -! JVS(50259) = Jac_FULL(5254,4970) - JVS(50259) = 0 -! JVS(50260) = Jac_FULL(5254,4988) - JVS(50260) = 0 -! JVS(50261) = Jac_FULL(5254,4997) - JVS(50261) = -B(9463) -! JVS(50262) = Jac_FULL(5254,4998) - JVS(50262) = -B(9574) -! JVS(50263) = Jac_FULL(5254,4999) - JVS(50263) = -B(13540) -! JVS(50264) = Jac_FULL(5254,5013) - JVS(50264) = 0 -! JVS(50265) = Jac_FULL(5254,5024) - JVS(50265) = 0 -! JVS(50266) = Jac_FULL(5254,5030) - JVS(50266) = 0 -! JVS(50267) = Jac_FULL(5254,5040) - JVS(50267) = -B(16571) -! JVS(50268) = Jac_FULL(5254,5047) - JVS(50268) = -B(18755) -! JVS(50269) = Jac_FULL(5254,5048) - JVS(50269) = -B(3578) -! JVS(50270) = Jac_FULL(5254,5049) - JVS(50270) = 0 -! JVS(50271) = Jac_FULL(5254,5050) - JVS(50271) = 0 -! JVS(50272) = Jac_FULL(5254,5051) - JVS(50272) = 0 -! JVS(50273) = Jac_FULL(5254,5058) - JVS(50273) = 0 -! JVS(50274) = Jac_FULL(5254,5066) - JVS(50274) = 0 -! JVS(50275) = Jac_FULL(5254,5068) - JVS(50275) = 0 -! JVS(50276) = Jac_FULL(5254,5069) - JVS(50276) = 0 -! JVS(50277) = Jac_FULL(5254,5070) - JVS(50277) = -B(9342) -! JVS(50278) = Jac_FULL(5254,5076) - JVS(50278) = 0 -! JVS(50279) = Jac_FULL(5254,5091) - JVS(50279) = 0 -! JVS(50280) = Jac_FULL(5254,5092) - JVS(50280) = -B(3588) -! JVS(50281) = Jac_FULL(5254,5093) - JVS(50281) = 0 -! JVS(50282) = Jac_FULL(5254,5099) - JVS(50282) = 0 -! JVS(50283) = Jac_FULL(5254,5102) - JVS(50283) = -B(8869) -! JVS(50284) = Jac_FULL(5254,5103) - JVS(50284) = 0 -! JVS(50285) = Jac_FULL(5254,5123) - JVS(50285) = 0 -! JVS(50286) = Jac_FULL(5254,5126) - JVS(50286) = 0 -! JVS(50287) = Jac_FULL(5254,5132) - JVS(50287) = 0 -! JVS(50288) = Jac_FULL(5254,5141) - JVS(50288) = 0 -! JVS(50289) = Jac_FULL(5254,5153) - JVS(50289) = 0 -! JVS(50290) = Jac_FULL(5254,5156) - JVS(50290) = -B(4290) -! JVS(50291) = Jac_FULL(5254,5162) - JVS(50291) = 0 -! JVS(50292) = Jac_FULL(5254,5166) - JVS(50292) = 0 -! JVS(50293) = Jac_FULL(5254,5168) - JVS(50293) = 0 -! JVS(50294) = Jac_FULL(5254,5170) - JVS(50294) = -B(4262) -! JVS(50295) = Jac_FULL(5254,5175) - JVS(50295) = 0 -! JVS(50296) = Jac_FULL(5254,5181) - JVS(50296) = 0 -! JVS(50297) = Jac_FULL(5254,5190) - JVS(50297) = 0 -! JVS(50298) = Jac_FULL(5254,5194) - JVS(50298) = 0 -! JVS(50299) = Jac_FULL(5254,5200) - JVS(50299) = 0 -! JVS(50300) = Jac_FULL(5254,5204) - JVS(50300) = 0 -! JVS(50301) = Jac_FULL(5254,5205) - JVS(50301) = 0 -! JVS(50302) = Jac_FULL(5254,5207) - JVS(50302) = 0 -! JVS(50303) = Jac_FULL(5254,5209) - JVS(50303) = 0 -! JVS(50304) = Jac_FULL(5254,5217) - JVS(50304) = 0 -! JVS(50305) = Jac_FULL(5254,5218) - JVS(50305) = 0 -! JVS(50306) = Jac_FULL(5254,5219) - JVS(50306) = 0 -! JVS(50307) = Jac_FULL(5254,5220) - JVS(50307) = 0 -! JVS(50308) = Jac_FULL(5254,5223) - JVS(50308) = -B(4057) -! JVS(50309) = Jac_FULL(5254,5224) - JVS(50309) = 0 -! JVS(50310) = Jac_FULL(5254,5226) - JVS(50310) = 0 -! JVS(50311) = Jac_FULL(5254,5227) - JVS(50311) = 0 -! JVS(50312) = Jac_FULL(5254,5230) - JVS(50312) = 0 -! JVS(50313) = Jac_FULL(5254,5236) - JVS(50313) = 0 -! JVS(50314) = Jac_FULL(5254,5238) - JVS(50314) = 0 -! JVS(50315) = Jac_FULL(5254,5249) - JVS(50315) = 0 -! JVS(50316) = Jac_FULL(5254,5250) - JVS(50316) = -B(58) -! JVS(50317) = Jac_FULL(5254,5251) - JVS(50317) = 0 -! JVS(50318) = Jac_FULL(5254,5252) - JVS(50318) = 0 -! JVS(50319) = Jac_FULL(5254,5253) - JVS(50319) = 0 -! JVS(50320) = Jac_FULL(5254,5254) - JVS(50320) = -B(57)-B(59)-B(3579)-B(3589)-B(4034)-B(4058)-B(4263)-B(4291)-B(4356)-B(4868)-B(4912)-B(4947)-B(5027)& - &-B(5061)-B(5121)-B(6591)-B(6646)-B(6752)-B(6762)-B(7279)-B(7381)-B(7449)-B(8870)-B(9343)-B(9464)-B(9575)& - &-B(10673)-B(11317)-B(13510)-B(13541)-B(13565)-B(13598)-B(13632)-B(13875)-B(14560)-B(14655)-B(14700)& - &-B(14798)-B(14808)-B(15448)-B(15595)-B(15620)-B(16523)-B(16533)-B(16572)-B(16659)-B(17170)-B(17328)& - &-B(18756)-B(20539) -! JVS(50321) = Jac_FULL(5254,5255) - JVS(50321) = 0 -! JVS(50322) = Jac_FULL(5254,5256) - JVS(50322) = 0 -! JVS(50323) = Jac_FULL(5254,5257) - JVS(50323) = 0 -! JVS(50324) = Jac_FULL(5254,5258) - JVS(50324) = 0 -! JVS(50325) = Jac_FULL(5255,5) - JVS(50325) = B(60) -! JVS(50326) = Jac_FULL(5255,11) - JVS(50326) = B(8560) -! JVS(50327) = Jac_FULL(5255,181) - JVS(50327) = B(124) -! JVS(50328) = Jac_FULL(5255,198) - JVS(50328) = B(593) -! JVS(50329) = Jac_FULL(5255,208) - JVS(50329) = B(13965) -! JVS(50330) = Jac_FULL(5255,209) - JVS(50330) = B(20709) -! JVS(50331) = Jac_FULL(5255,212) - JVS(50331) = B(18090) -! JVS(50332) = Jac_FULL(5255,213) - JVS(50332) = B(22129) -! JVS(50333) = Jac_FULL(5255,218) - JVS(50333) = B(23219) -! JVS(50334) = Jac_FULL(5255,219) - JVS(50334) = B(17122) -! JVS(50335) = Jac_FULL(5255,220) - JVS(50335) = B(11915) -! JVS(50336) = Jac_FULL(5255,223) - JVS(50336) = B(12062) -! JVS(50337) = Jac_FULL(5255,225) - JVS(50337) = B(5396) -! JVS(50338) = Jac_FULL(5255,226) - JVS(50338) = B(16716) -! JVS(50339) = Jac_FULL(5255,228) - JVS(50339) = B(4504) -! JVS(50340) = Jac_FULL(5255,229) - JVS(50340) = B(16772) -! JVS(50341) = Jac_FULL(5255,231) - JVS(50341) = B(11622) -! JVS(50342) = Jac_FULL(5255,233) - JVS(50342) = B(15457) -! JVS(50343) = Jac_FULL(5255,234) - JVS(50343) = B(4729) -! JVS(50344) = Jac_FULL(5255,238) - JVS(50344) = B(6653) -! JVS(50345) = Jac_FULL(5255,242) - JVS(50345) = B(4530) -! JVS(50346) = Jac_FULL(5255,246) - JVS(50346) = B(19876) -! JVS(50347) = Jac_FULL(5255,247) - JVS(50347) = B(23015) -! JVS(50348) = Jac_FULL(5255,248) - JVS(50348) = B(17356) -! JVS(50349) = Jac_FULL(5255,249) - JVS(50349) = B(153) -! JVS(50350) = Jac_FULL(5255,250) - JVS(50350) = B(603)+B(607) -! JVS(50351) = Jac_FULL(5255,256) - JVS(50351) = B(21107) -! JVS(50352) = Jac_FULL(5255,257) - JVS(50352) = B(22009) -! JVS(50353) = Jac_FULL(5255,260) - JVS(50353) = B(27) -! JVS(50354) = Jac_FULL(5255,261) - JVS(50354) = B(16599) -! JVS(50355) = Jac_FULL(5255,262) - JVS(50355) = B(5588) -! JVS(50356) = Jac_FULL(5255,263) - JVS(50356) = B(16176) -! JVS(50357) = Jac_FULL(5255,266) - JVS(50357) = B(22057) -! JVS(50358) = Jac_FULL(5255,267) - JVS(50358) = B(18603) -! JVS(50359) = Jac_FULL(5255,268) - JVS(50359) = B(22517) -! JVS(50360) = Jac_FULL(5255,269) - JVS(50360) = B(4750) -! JVS(50361) = Jac_FULL(5255,273) - JVS(50361) = B(18325) -! JVS(50362) = Jac_FULL(5255,274) - JVS(50362) = B(5985) -! JVS(50363) = Jac_FULL(5255,277) - JVS(50363) = B(5667) -! JVS(50364) = Jac_FULL(5255,278) - JVS(50364) = B(3929) -! JVS(50365) = Jac_FULL(5255,279) - JVS(50365) = B(22886) -! JVS(50366) = Jac_FULL(5255,281) - JVS(50366) = B(17194) -! JVS(50367) = Jac_FULL(5255,283) - JVS(50367) = B(5889) -! JVS(50368) = Jac_FULL(5255,284) - JVS(50368) = B(17688) -! JVS(50369) = Jac_FULL(5255,285) - JVS(50369) = B(21139) -! JVS(50370) = Jac_FULL(5255,286) - JVS(50370) = B(3753) -! JVS(50371) = Jac_FULL(5255,289) - JVS(50371) = B(17594) -! JVS(50372) = Jac_FULL(5255,292) - JVS(50372) = B(5502) -! JVS(50373) = Jac_FULL(5255,295) - JVS(50373) = B(12130) -! JVS(50374) = Jac_FULL(5255,296) - JVS(50374) = B(23961) -! JVS(50375) = Jac_FULL(5255,299) - JVS(50375) = B(18182) -! JVS(50376) = Jac_FULL(5255,302) - JVS(50376) = B(16668) -! JVS(50377) = Jac_FULL(5255,303) - JVS(50377) = B(16965) -! JVS(50378) = Jac_FULL(5255,304) - JVS(50378) = B(4471) -! JVS(50379) = Jac_FULL(5255,305) - JVS(50379) = B(20516) -! JVS(50380) = Jac_FULL(5255,306) - JVS(50380) = B(17853) -! JVS(50381) = Jac_FULL(5255,307) - JVS(50381) = B(6951) -! JVS(50382) = Jac_FULL(5255,308) - JVS(50382) = B(4658) -! JVS(50383) = Jac_FULL(5255,310) - JVS(50383) = B(20902) -! JVS(50384) = Jac_FULL(5255,311) - JVS(50384) = B(19266) -! JVS(50385) = Jac_FULL(5255,312) - JVS(50385) = B(15916) -! JVS(50386) = Jac_FULL(5255,313) - JVS(50386) = B(23067) -! JVS(50387) = Jac_FULL(5255,314) - JVS(50387) = B(12001) -! JVS(50388) = Jac_FULL(5255,316) - JVS(50388) = B(4561) -! JVS(50389) = Jac_FULL(5255,317) - JVS(50389) = B(19308) -! JVS(50390) = Jac_FULL(5255,319) - JVS(50390) = B(13921) -! JVS(50391) = Jac_FULL(5255,320) - JVS(50391) = B(23509) -! JVS(50392) = Jac_FULL(5255,321) - JVS(50392) = B(13996) -! JVS(50393) = Jac_FULL(5255,322) - JVS(50393) = B(18384) -! JVS(50394) = Jac_FULL(5255,325) - JVS(50394) = B(11399) -! JVS(50395) = Jac_FULL(5255,332) - JVS(50395) = B(5489) -! JVS(50396) = Jac_FULL(5255,333) - JVS(50396) = B(11979) -! JVS(50397) = Jac_FULL(5255,334) - JVS(50397) = B(23523) -! JVS(50398) = Jac_FULL(5255,335) - JVS(50398) = B(3710) -! JVS(50399) = Jac_FULL(5255,336) - JVS(50399) = B(11134) -! JVS(50400) = Jac_FULL(5255,338) - JVS(50400) = B(4641) -! JVS(50401) = Jac_FULL(5255,339) - JVS(50401) = B(4679) -! JVS(50402) = Jac_FULL(5255,340) - JVS(50402) = B(15716) -! JVS(50403) = Jac_FULL(5255,344) - JVS(50403) = B(14393) -! JVS(50404) = Jac_FULL(5255,345) - JVS(50404) = B(4413) -! JVS(50405) = Jac_FULL(5255,346) - JVS(50405) = B(17726) -! JVS(50406) = Jac_FULL(5255,347) - JVS(50406) = B(20780) -! JVS(50407) = Jac_FULL(5255,348) - JVS(50407) = B(19006) -! JVS(50408) = Jac_FULL(5255,349) - JVS(50408) = B(4587) -! JVS(50409) = Jac_FULL(5255,350) - JVS(50409) = B(16423) -! JVS(50410) = Jac_FULL(5255,352) - JVS(50410) = B(24021) -! JVS(50411) = Jac_FULL(5255,353) - JVS(50411) = B(4696) -! JVS(50412) = Jac_FULL(5255,354) - JVS(50412) = B(16896) -! JVS(50413) = Jac_FULL(5255,355) - JVS(50413) = B(11512) -! JVS(50414) = Jac_FULL(5255,356) - JVS(50414) = B(16116) -! JVS(50415) = Jac_FULL(5255,357) - JVS(50415) = B(23731) -! JVS(50416) = Jac_FULL(5255,358) - JVS(50416) = B(12867) -! JVS(50417) = Jac_FULL(5255,359) - JVS(50417) = B(20754) -! JVS(50418) = Jac_FULL(5255,361) - JVS(50418) = B(5340) -! JVS(50419) = Jac_FULL(5255,365) - JVS(50419) = B(16955) -! JVS(50420) = Jac_FULL(5255,366) - JVS(50420) = B(16879) -! JVS(50421) = Jac_FULL(5255,368) - JVS(50421) = B(23862) -! JVS(50422) = Jac_FULL(5255,369) - JVS(50422) = B(11066) -! JVS(50423) = Jac_FULL(5255,371) - JVS(50423) = B(17279) -! JVS(50424) = Jac_FULL(5255,372) - JVS(50424) = B(18102) -! JVS(50425) = Jac_FULL(5255,374) - JVS(50425) = B(10298) -! JVS(50426) = Jac_FULL(5255,377) - JVS(50426) = B(19503) -! JVS(50427) = Jac_FULL(5255,380) - JVS(50427) = B(4514) -! JVS(50428) = Jac_FULL(5255,381) - JVS(50428) = B(14005) -! JVS(50429) = Jac_FULL(5255,382) - JVS(50429) = B(23055) -! JVS(50430) = Jac_FULL(5255,383) - JVS(50430) = B(4493) -! JVS(50431) = Jac_FULL(5255,385) - JVS(50431) = B(21211) -! JVS(50432) = Jac_FULL(5255,390) - JVS(50432) = B(23673) -! JVS(50433) = Jac_FULL(5255,391) - JVS(50433) = B(13643) -! JVS(50434) = Jac_FULL(5255,392) - JVS(50434) = B(15643) -! JVS(50435) = Jac_FULL(5255,394) - JVS(50435) = B(23150) -! JVS(50436) = Jac_FULL(5255,395) - JVS(50436) = B(11145) -! JVS(50437) = Jac_FULL(5255,396) - JVS(50437) = B(5945) -! JVS(50438) = Jac_FULL(5255,399) - JVS(50438) = B(21712) -! JVS(50439) = Jac_FULL(5255,400) - JVS(50439) = B(20765) -! JVS(50440) = Jac_FULL(5255,401) - JVS(50440) = B(11228) -! JVS(50441) = Jac_FULL(5255,402) - JVS(50441) = B(16035) -! JVS(50442) = Jac_FULL(5255,403) - JVS(50442) = B(11162) -! JVS(50443) = Jac_FULL(5255,406) - JVS(50443) = B(23141) -! JVS(50444) = Jac_FULL(5255,408) - JVS(50444) = B(18031) -! JVS(50445) = Jac_FULL(5255,409) - JVS(50445) = B(22046) -! JVS(50446) = Jac_FULL(5255,410) - JVS(50446) = B(22708) -! JVS(50447) = Jac_FULL(5255,411) - JVS(50447) = B(23200) -! JVS(50448) = Jac_FULL(5255,412) - JVS(50448) = B(4708) -! JVS(50449) = Jac_FULL(5255,413) - JVS(50449) = B(17244) -! JVS(50450) = Jac_FULL(5255,415) - JVS(50450) = B(23121) -! JVS(50451) = Jac_FULL(5255,416) - JVS(50451) = B(3653) -! JVS(50452) = Jac_FULL(5255,417) - JVS(50452) = B(6966) -! JVS(50453) = Jac_FULL(5255,418) - JVS(50453) = B(21839) -! JVS(50454) = Jac_FULL(5255,424) - JVS(50454) = B(4542) -! JVS(50455) = Jac_FULL(5255,425) - JVS(50455) = B(11866) -! JVS(50456) = Jac_FULL(5255,427) - JVS(50456) = B(16980) -! JVS(50457) = Jac_FULL(5255,428) - JVS(50457) = B(5710) -! JVS(50458) = Jac_FULL(5255,429) - JVS(50458) = B(4798) -! JVS(50459) = Jac_FULL(5255,430) - JVS(50459) = B(22572) -! JVS(50460) = Jac_FULL(5255,431) - JVS(50460) = B(6108) -! JVS(50461) = Jac_FULL(5255,432) - JVS(50461) = B(6506) -! JVS(50462) = Jac_FULL(5255,436) - JVS(50462) = B(5801) -! JVS(50463) = Jac_FULL(5255,437) - JVS(50463) = B(11773) -! JVS(50464) = Jac_FULL(5255,439) - JVS(50464) = B(11422) -! JVS(50465) = Jac_FULL(5255,440) - JVS(50465) = B(17252) -! JVS(50466) = Jac_FULL(5255,441) - JVS(50466) = B(22717) -! JVS(50467) = Jac_FULL(5255,442) - JVS(50467) = B(19231) -! JVS(50468) = Jac_FULL(5255,444) - JVS(50468) = B(5301) -! JVS(50469) = Jac_FULL(5255,446) - JVS(50469) = B(6189) -! JVS(50470) = Jac_FULL(5255,451) - JVS(50470) = B(15461)+2*B(15463) -! JVS(50471) = Jac_FULL(5255,452) - JVS(50471) = B(19536) -! JVS(50472) = Jac_FULL(5255,453) - JVS(50472) = B(4762) -! JVS(50473) = Jac_FULL(5255,454) - JVS(50473) = B(16927) -! JVS(50474) = Jac_FULL(5255,458) - JVS(50474) = B(13866) -! JVS(50475) = Jac_FULL(5255,460) - JVS(50475) = B(4786) -! JVS(50476) = Jac_FULL(5255,462) - JVS(50476) = B(17288) -! JVS(50477) = Jac_FULL(5255,463) - JVS(50477) = B(13615) -! JVS(50478) = Jac_FULL(5255,464) - JVS(50478) = B(5760) -! JVS(50479) = Jac_FULL(5255,465) - JVS(50479) = B(21963) -! JVS(50480) = Jac_FULL(5255,466) - JVS(50480) = B(4625) -! JVS(50481) = Jac_FULL(5255,467) - JVS(50481) = B(19494) -! JVS(50482) = Jac_FULL(5255,468) - JVS(50482) = B(12094) -! JVS(50483) = Jac_FULL(5255,469) - JVS(50483) = B(12076) -! JVS(50484) = Jac_FULL(5255,471) - JVS(50484) = B(13987) -! JVS(50485) = Jac_FULL(5255,473) - JVS(50485) = B(18967) -! JVS(50486) = Jac_FULL(5255,475) - JVS(50486) = B(10176) -! JVS(50487) = Jac_FULL(5255,476) - JVS(50487) = B(23427) -! JVS(50488) = Jac_FULL(5255,478) - JVS(50488) = B(21984) -! JVS(50489) = Jac_FULL(5255,480) - JVS(50489) = B(6020) -! JVS(50490) = Jac_FULL(5255,481) - JVS(50490) = B(23024) -! JVS(50491) = Jac_FULL(5255,482) - JVS(50491) = B(23682) -! JVS(50492) = Jac_FULL(5255,485) - JVS(50492) = B(16014) -! JVS(50493) = Jac_FULL(5255,486) - JVS(50493) = B(4774) -! JVS(50494) = Jac_FULL(5255,487) - JVS(50494) = B(9884) -! JVS(50495) = Jac_FULL(5255,493) - JVS(50495) = B(20746) -! JVS(50496) = Jac_FULL(5255,494) - JVS(50496) = B(16475) -! JVS(50497) = Jac_FULL(5255,495) - JVS(50497) = B(4425) -! JVS(50498) = Jac_FULL(5255,497) - JVS(50498) = B(11480) -! JVS(50499) = Jac_FULL(5255,498) - JVS(50499) = B(11461) -! JVS(50500) = Jac_FULL(5255,500) - JVS(50500) = B(23907) -! JVS(50501) = Jac_FULL(5255,501) - JVS(50501) = B(12166) -! JVS(50502) = Jac_FULL(5255,502) - JVS(50502) = B(20797) -! JVS(50503) = Jac_FULL(5255,504) - JVS(50503) = B(4604) -! JVS(50504) = Jac_FULL(5255,505) - JVS(50504) = B(6426) -! JVS(50505) = Jac_FULL(5255,509) - JVS(50505) = B(18451) -! JVS(50506) = Jac_FULL(5255,511) - JVS(50506) = B(21046) -! JVS(50507) = Jac_FULL(5255,512) - JVS(50507) = B(16770) -! JVS(50508) = Jac_FULL(5255,513) - JVS(50508) = B(16437) -! JVS(50509) = Jac_FULL(5255,516) - JVS(50509) = B(14332) -! JVS(50510) = Jac_FULL(5255,517) - JVS(50510) = B(5210) -! JVS(50511) = Jac_FULL(5255,520) - JVS(50511) = B(23562) -! JVS(50512) = Jac_FULL(5255,523) - JVS(50512) = B(6118) -! JVS(50513) = Jac_FULL(5255,524) - JVS(50513) = B(12148) -! JVS(50514) = Jac_FULL(5255,525) - JVS(50514) = B(12112) -! JVS(50515) = Jac_FULL(5255,526) - JVS(50515) = B(20652) -! JVS(50516) = Jac_FULL(5255,527) - JVS(50516) = B(22920)+B(22922) -! JVS(50517) = Jac_FULL(5255,531) - JVS(50517) = B(9589)+B(9591) -! JVS(50518) = Jac_FULL(5255,532) - JVS(50518) = B(11479) -! JVS(50519) = Jac_FULL(5255,536) - JVS(50519) = B(14663) -! JVS(50520) = Jac_FULL(5255,537) - JVS(50520) = B(23858) -! JVS(50521) = Jac_FULL(5255,538) - JVS(50521) = B(9410) -! JVS(50522) = Jac_FULL(5255,540) - JVS(50522) = B(7472) -! JVS(50523) = Jac_FULL(5255,546) - JVS(50523) = B(11730)+B(11732) -! JVS(50524) = Jac_FULL(5255,549) - JVS(50524) = B(17178) -! JVS(50525) = Jac_FULL(5255,551) - JVS(50525) = B(12301) -! JVS(50526) = Jac_FULL(5255,552) - JVS(50526) = B(6612) -! JVS(50527) = Jac_FULL(5255,554) - JVS(50527) = B(17643)+B(17644) -! JVS(50528) = Jac_FULL(5255,556) - JVS(50528) = B(17060) -! JVS(50529) = Jac_FULL(5255,557) - JVS(50529) = B(14201) -! JVS(50530) = Jac_FULL(5255,558) - JVS(50530) = B(10638) -! JVS(50531) = Jac_FULL(5255,559) - JVS(50531) = B(23802)+B(23804) -! JVS(50532) = Jac_FULL(5255,560) - JVS(50532) = B(10129) -! JVS(50533) = Jac_FULL(5255,565) - JVS(50533) = B(8884)+B(8886) -! JVS(50534) = Jac_FULL(5255,567) - JVS(50534) = B(23953) -! JVS(50535) = Jac_FULL(5255,568) - JVS(50535) = B(9294) -! JVS(50536) = Jac_FULL(5255,569) - JVS(50536) = B(9249) -! JVS(50537) = Jac_FULL(5255,572) - JVS(50537) = B(13473)+2*B(13475) -! JVS(50538) = Jac_FULL(5255,576) - JVS(50538) = B(16362)+B(16364) -! JVS(50539) = Jac_FULL(5255,577) - JVS(50539) = B(7220)+B(7221) -! JVS(50540) = Jac_FULL(5255,579) - JVS(50540) = B(7782) -! JVS(50541) = Jac_FULL(5255,580) - JVS(50541) = B(14637) -! JVS(50542) = Jac_FULL(5255,586) - JVS(50542) = B(14128)+B(14129) -! JVS(50543) = Jac_FULL(5255,590) - JVS(50543) = B(17531)+B(17532) -! JVS(50544) = Jac_FULL(5255,598) - JVS(50544) = B(144) -! JVS(50545) = Jac_FULL(5255,599) - JVS(50545) = B(11092)+B(11094) -! JVS(50546) = Jac_FULL(5255,603) - JVS(50546) = B(11624) -! JVS(50547) = Jac_FULL(5255,608) - JVS(50547) = B(14184)+B(14185) -! JVS(50548) = Jac_FULL(5255,614) - JVS(50548) = B(8766) -! JVS(50549) = Jac_FULL(5255,615) - JVS(50549) = B(3704) -! JVS(50550) = Jac_FULL(5255,616) - JVS(50550) = B(17904)+B(17905) -! JVS(50551) = Jac_FULL(5255,620) - JVS(50551) = B(16011) -! JVS(50552) = Jac_FULL(5255,622) - JVS(50552) = B(15995)+B(15997) -! JVS(50553) = Jac_FULL(5255,624) - JVS(50553) = B(7577) -! JVS(50554) = Jac_FULL(5255,625) - JVS(50554) = B(23011) -! JVS(50555) = Jac_FULL(5255,626) - JVS(50555) = B(21533) -! JVS(50556) = Jac_FULL(5255,627) - JVS(50556) = -B(6511) -! JVS(50557) = Jac_FULL(5255,628) - JVS(50557) = B(8804) -! JVS(50558) = Jac_FULL(5255,633) - JVS(50558) = B(22363)+B(22365) -! JVS(50559) = Jac_FULL(5255,634) - JVS(50559) = B(6445) -! JVS(50560) = Jac_FULL(5255,636) - JVS(50560) = B(19648)+B(19649) -! JVS(50561) = Jac_FULL(5255,639) - JVS(50561) = B(7463) -! JVS(50562) = Jac_FULL(5255,643) - JVS(50562) = B(23899) -! JVS(50563) = Jac_FULL(5255,646) - JVS(50563) = B(7571) -! JVS(50564) = Jac_FULL(5255,647) - JVS(50564) = B(9948)+B(9950) -! JVS(50565) = Jac_FULL(5255,650) - JVS(50565) = B(22980) -! JVS(50566) = Jac_FULL(5255,651) - JVS(50566) = B(17653)+B(17654) -! JVS(50567) = Jac_FULL(5255,657) - JVS(50567) = B(22448)+B(22450) -! JVS(50568) = Jac_FULL(5255,659) - JVS(50568) = B(16097)+B(16099) -! JVS(50569) = Jac_FULL(5255,661) - JVS(50569) = B(7586) -! JVS(50570) = Jac_FULL(5255,663) - JVS(50570) = B(17398) -! JVS(50571) = Jac_FULL(5255,664) - JVS(50571) = B(17695)+B(17696) -! JVS(50572) = Jac_FULL(5255,667) - JVS(50572) = B(14629) -! JVS(50573) = Jac_FULL(5255,671) - JVS(50573) = B(17934)+B(17935) -! JVS(50574) = Jac_FULL(5255,675) - JVS(50574) = B(12043)+B(12045) -! JVS(50575) = Jac_FULL(5255,676) - JVS(50575) = B(10057) -! JVS(50576) = Jac_FULL(5255,677) - JVS(50576) = -B(6481) -! JVS(50577) = Jac_FULL(5255,678) - JVS(50577) = B(13753) -! JVS(50578) = Jac_FULL(5255,680) - JVS(50578) = B(2340) -! JVS(50579) = Jac_FULL(5255,681) - JVS(50579) = B(9206)+B(9208) -! JVS(50580) = Jac_FULL(5255,683) - JVS(50580) = B(9357)+B(9359) -! JVS(50581) = Jac_FULL(5255,684) - JVS(50581) = B(1518) -! JVS(50582) = Jac_FULL(5255,685) - JVS(50582) = B(3101) -! JVS(50583) = Jac_FULL(5255,686) - JVS(50583) = B(3050) -! JVS(50584) = Jac_FULL(5255,690) - JVS(50584) = B(23660) -! JVS(50585) = Jac_FULL(5255,694) - JVS(50585) = B(14717) -! JVS(50586) = Jac_FULL(5255,696) - JVS(50586) = B(22418)+B(22420) -! JVS(50587) = Jac_FULL(5255,699) - JVS(50587) = B(22649)+B(22651) -! JVS(50588) = Jac_FULL(5255,700) - JVS(50588) = B(9525) -! JVS(50589) = Jac_FULL(5255,701) - JVS(50589) = B(18942) -! JVS(50590) = Jac_FULL(5255,705) - JVS(50590) = B(9762) -! JVS(50591) = Jac_FULL(5255,706) - JVS(50591) = B(12231) -! JVS(50592) = Jac_FULL(5255,707) - JVS(50592) = -B(6131) -! JVS(50593) = Jac_FULL(5255,711) - JVS(50593) = B(15699) -! JVS(50594) = Jac_FULL(5255,716) - JVS(50594) = B(16113) -! JVS(50595) = Jac_FULL(5255,718) - JVS(50595) = B(9990) -! JVS(50596) = Jac_FULL(5255,721) - JVS(50596) = B(17184) -! JVS(50597) = Jac_FULL(5255,723) - JVS(50597) = B(9017) -! JVS(50598) = Jac_FULL(5255,725) - JVS(50598) = B(23619)+B(23621) -! JVS(50599) = Jac_FULL(5255,727) - JVS(50599) = B(12061) -! JVS(50600) = Jac_FULL(5255,730) - JVS(50600) = B(17392) -! JVS(50601) = Jac_FULL(5255,732) - JVS(50601) = B(9478)+B(9480) -! JVS(50602) = Jac_FULL(5255,733) - JVS(50602) = B(23916) -! JVS(50603) = Jac_FULL(5255,738) - JVS(50603) = B(9159) -! JVS(50604) = Jac_FULL(5255,742) - JVS(50604) = B(10011)+B(10013) -! JVS(50605) = Jac_FULL(5255,748) - JVS(50605) = B(7457) -! JVS(50606) = Jac_FULL(5255,752) - JVS(50606) = B(9646) -! JVS(50607) = Jac_FULL(5255,754) - JVS(50607) = B(23540) -! JVS(50608) = Jac_FULL(5255,757) - JVS(50608) = B(100) -! JVS(50609) = Jac_FULL(5255,758) - JVS(50609) = B(17797)+B(17798) -! JVS(50610) = Jac_FULL(5255,762) - JVS(50610) = B(17994)+B(17995) -! JVS(50611) = Jac_FULL(5255,764) - JVS(50611) = B(8974)+B(8976) -! JVS(50612) = Jac_FULL(5255,765) - JVS(50612) = B(3926) -! JVS(50613) = Jac_FULL(5255,767) - JVS(50613) = B(20667)+B(20669) -! JVS(50614) = Jac_FULL(5255,768) - JVS(50614) = B(15454) -! JVS(50615) = Jac_FULL(5255,772) - JVS(50615) = B(22910)+B(22912) -! JVS(50616) = Jac_FULL(5255,779) - JVS(50616) = B(9116)+B(9118) -! JVS(50617) = Jac_FULL(5255,783) - JVS(50617) = B(7296) -! JVS(50618) = Jac_FULL(5255,784) - JVS(50618) = B(7302) -! JVS(50619) = Jac_FULL(5255,785) - JVS(50619) = B(9784)+B(9786) -! JVS(50620) = Jac_FULL(5255,786) - JVS(50620) = B(19043) -! JVS(50621) = Jac_FULL(5255,788) - JVS(50621) = B(8727)+B(8729) -! JVS(50622) = Jac_FULL(5255,789) - JVS(50622) = B(22392)+B(22394) -! JVS(50623) = Jac_FULL(5255,792) - JVS(50623) = B(15913) -! JVS(50624) = Jac_FULL(5255,793) - JVS(50624) = B(21941) -! JVS(50625) = Jac_FULL(5255,796) - JVS(50625) = B(6541) -! JVS(50626) = Jac_FULL(5255,799) - JVS(50626) = B(20790)+B(20792) -! JVS(50627) = Jac_FULL(5255,804) - JVS(50627) = B(17964)+B(17965) -! JVS(50628) = Jac_FULL(5255,805) - JVS(50628) = B(19630) -! JVS(50629) = Jac_FULL(5255,807) - JVS(50629) = B(17875)+B(17876) -! JVS(50630) = Jac_FULL(5255,808) - JVS(50630) = B(12390) -! JVS(50631) = Jac_FULL(5255,811) - JVS(50631) = B(10086)+B(10088) -! JVS(50632) = Jac_FULL(5255,812) - JVS(50632) = B(9700)+B(9702) -! JVS(50633) = Jac_FULL(5255,813) - JVS(50633) = B(22066) -! JVS(50634) = Jac_FULL(5255,821) - JVS(50634) = B(19257)+B(19259) -! JVS(50635) = Jac_FULL(5255,823) - JVS(50635) = B(22464) -! JVS(50636) = Jac_FULL(5255,827) - JVS(50636) = B(23596) -! JVS(50637) = Jac_FULL(5255,839) - JVS(50637) = B(20445) -! JVS(50638) = Jac_FULL(5255,847) - JVS(50638) = B(3682) -! JVS(50639) = Jac_FULL(5255,862) - JVS(50639) = B(12946) -! JVS(50640) = Jac_FULL(5255,874) - JVS(50640) = B(3807) -! JVS(50641) = Jac_FULL(5255,890) - JVS(50641) = B(20476) -! JVS(50642) = Jac_FULL(5255,895) - JVS(50642) = B(12017) -! JVS(50643) = Jac_FULL(5255,896) - JVS(50643) = B(3840) -! JVS(50644) = Jac_FULL(5255,898) - JVS(50644) = B(10250) -! JVS(50645) = Jac_FULL(5255,903) - JVS(50645) = B(23934) -! JVS(50646) = Jac_FULL(5255,906) - JVS(50646) = B(22854) -! JVS(50647) = Jac_FULL(5255,911) - JVS(50647) = B(16012) -! JVS(50648) = Jac_FULL(5255,925) - JVS(50648) = B(73) -! JVS(50649) = Jac_FULL(5255,926) - JVS(50649) = B(4959) -! JVS(50650) = Jac_FULL(5255,933) - JVS(50650) = B(21748) -! JVS(50651) = Jac_FULL(5255,953) - JVS(50651) = B(23605) -! JVS(50652) = Jac_FULL(5255,957) - JVS(50652) = B(20512) -! JVS(50653) = Jac_FULL(5255,958) - JVS(50653) = B(19538) -! JVS(50654) = Jac_FULL(5255,961) - JVS(50654) = B(9329) -! JVS(50655) = Jac_FULL(5255,969) - JVS(50655) = 0 -! JVS(50656) = Jac_FULL(5255,990) - JVS(50656) = B(16913) -! JVS(50657) = Jac_FULL(5255,1001) - JVS(50657) = B(7572) -! JVS(50658) = Jac_FULL(5255,1013) - JVS(50658) = B(4252) -! JVS(50659) = Jac_FULL(5255,1035) - JVS(50659) = B(3770) -! JVS(50660) = Jac_FULL(5255,1036) - JVS(50660) = B(7297) -! JVS(50661) = Jac_FULL(5255,1037) - JVS(50661) = B(11599) -! JVS(50662) = Jac_FULL(5255,1040) - JVS(50662) = B(15455) -! JVS(50663) = Jac_FULL(5255,1050) - JVS(50663) = B(3796) -! JVS(50664) = Jac_FULL(5255,1054) - JVS(50664) = B(6673) -! JVS(50665) = Jac_FULL(5255,1056) - JVS(50665) = B(17393) -! JVS(50666) = Jac_FULL(5255,1068) - JVS(50666) = B(74) -! JVS(50667) = Jac_FULL(5255,1073) - JVS(50667) = B(9450) -! JVS(50668) = Jac_FULL(5255,1084) - JVS(50668) = B(12686) -! JVS(50669) = Jac_FULL(5255,1087) - JVS(50669) = B(17098) -! JVS(50670) = Jac_FULL(5255,1097) - JVS(50670) = B(11588) -! JVS(50671) = Jac_FULL(5255,1111) - JVS(50671) = B(13040) -! JVS(50672) = Jac_FULL(5255,1113) - JVS(50672) = B(11030) -! JVS(50673) = Jac_FULL(5255,1120) - JVS(50673) = B(4070) -! JVS(50674) = Jac_FULL(5255,1121) - JVS(50674) = B(5176) -! JVS(50675) = Jac_FULL(5255,1124) - JVS(50675) = B(3879) -! JVS(50676) = Jac_FULL(5255,1133) - JVS(50676) = B(15914) -! JVS(50677) = Jac_FULL(5255,1140) - JVS(50677) = B(3694) -! JVS(50678) = Jac_FULL(5255,1163) - JVS(50678) = B(22423) -! JVS(50679) = Jac_FULL(5255,1174) - JVS(50679) = B(9561) -! JVS(50680) = Jac_FULL(5255,1175) - JVS(50680) = B(13146) -! JVS(50681) = Jac_FULL(5255,1179) - JVS(50681) = B(11705) -! JVS(50682) = Jac_FULL(5255,1189) - JVS(50682) = B(22397) -! JVS(50683) = Jac_FULL(5255,1194) - JVS(50683) = B(3850) -! JVS(50684) = Jac_FULL(5255,1210) - JVS(50684) = B(8686) -! JVS(50685) = Jac_FULL(5255,1229) - JVS(50685) = B(20424) -! JVS(50686) = Jac_FULL(5255,1231) - JVS(50686) = B(16114) -! JVS(50687) = Jac_FULL(5255,1256) - JVS(50687) = B(13461) -! JVS(50688) = Jac_FULL(5255,1257) - JVS(50688) = B(23861) -! JVS(50689) = Jac_FULL(5255,1269) - JVS(50689) = 0 -! JVS(50690) = Jac_FULL(5255,1280) - JVS(50690) = B(6843) -! JVS(50691) = Jac_FULL(5255,1297) - JVS(50691) = B(7387) -! JVS(50692) = Jac_FULL(5255,1316) - JVS(50692) = B(8856) -! JVS(50693) = Jac_FULL(5255,1330) - JVS(50693) = B(10159) -! JVS(50694) = Jac_FULL(5255,1343) - JVS(50694) = B(8935) -! JVS(50695) = Jac_FULL(5255,1344) - JVS(50695) = B(23578) -! JVS(50696) = Jac_FULL(5255,1354) - JVS(50696) = B(9076) -! JVS(50697) = Jac_FULL(5255,1356) - JVS(50697) = B(12369) -! JVS(50698) = Jac_FULL(5255,1369) - JVS(50698) = B(3718) -! JVS(50699) = Jac_FULL(5255,1384) - JVS(50699) = B(17179) -! JVS(50700) = Jac_FULL(5255,1386) - JVS(50700) = B(5133) -! JVS(50701) = Jac_FULL(5255,1389) - JVS(50701) = B(13264) -! JVS(50702) = Jac_FULL(5255,1394) - JVS(50702) = B(20836) -! JVS(50703) = Jac_FULL(5255,1403) - JVS(50703) = B(9188) -! JVS(50704) = Jac_FULL(5255,1405) - JVS(50704) = B(9993) -! JVS(50705) = Jac_FULL(5255,1409) - JVS(50705) = B(9909) -! JVS(50706) = Jac_FULL(5255,1425) - JVS(50706) = B(18896) -! JVS(50707) = Jac_FULL(5255,1432) - JVS(50707) = B(13233) -! JVS(50708) = Jac_FULL(5255,1440) - JVS(50708) = B(19575) -! JVS(50709) = Jac_FULL(5255,1442) - JVS(50709) = B(19195) -! JVS(50710) = Jac_FULL(5255,1481) - JVS(50710) = B(10068) -! JVS(50711) = Jac_FULL(5255,1483) - JVS(50711) = B(19878) -! JVS(50712) = Jac_FULL(5255,1489) - JVS(50712) = B(16901) -! JVS(50713) = Jac_FULL(5255,1493) - JVS(50713) = B(23014) -! JVS(50714) = Jac_FULL(5255,1513) - JVS(50714) = B(9846) -! JVS(50715) = Jac_FULL(5255,1520) - JVS(50715) = B(7458) -! JVS(50716) = Jac_FULL(5255,1521) - JVS(50716) = B(11752) -! JVS(50717) = Jac_FULL(5255,1548) - JVS(50717) = B(19662)+B(19663) -! JVS(50718) = Jac_FULL(5255,1549) - JVS(50718) = B(8994) -! JVS(50719) = Jac_FULL(5255,1552) - JVS(50719) = B(17725) -! JVS(50720) = Jac_FULL(5255,1554) - JVS(50720) = B(10106) -! JVS(50721) = Jac_FULL(5255,1555) - JVS(50721) = B(10052) -! JVS(50722) = Jac_FULL(5255,1557) - JVS(50722) = B(17810)+B(17811) -! JVS(50723) = Jac_FULL(5255,1558) - JVS(50723) = B(13689) -! JVS(50724) = Jac_FULL(5255,1559) - JVS(50724) = B(11978) -! JVS(50725) = Jac_FULL(5255,1560) - JVS(50725) = B(10025)+B(10026) -! JVS(50726) = Jac_FULL(5255,1561) - JVS(50726) = B(22531) -! JVS(50727) = Jac_FULL(5255,1562) - JVS(50727) = B(12216) -! JVS(50728) = Jac_FULL(5255,1563) - JVS(50728) = B(11783) -! JVS(50729) = Jac_FULL(5255,1564) - JVS(50729) = B(11819) -! JVS(50730) = Jac_FULL(5255,1566) - JVS(50730) = B(14105)+B(14106) -! JVS(50731) = Jac_FULL(5255,1567) - JVS(50731) = B(9967) -! JVS(50732) = Jac_FULL(5255,1568) - JVS(50732) = B(3728) -! JVS(50733) = Jac_FULL(5255,1569) - JVS(50733) = B(14817) -! JVS(50734) = Jac_FULL(5255,1570) - JVS(50734) = B(12394)+2*B(12396) -! JVS(50735) = Jac_FULL(5255,1571) - JVS(50735) = B(19757)+B(19758) -! JVS(50736) = Jac_FULL(5255,1572) - JVS(50736) = B(16943) -! JVS(50737) = Jac_FULL(5255,1575) - JVS(50737) = B(16676) -! JVS(50738) = Jac_FULL(5255,1576) - JVS(50738) = B(10304)+B(10306) -! JVS(50739) = Jac_FULL(5255,1577) - JVS(50739) = B(140) -! JVS(50740) = Jac_FULL(5255,1578) - JVS(50740) = B(16213) -! JVS(50741) = Jac_FULL(5255,1582) - JVS(50741) = B(3966) -! JVS(50742) = Jac_FULL(5255,1584) - JVS(50742) = B(9958)+B(9959) -! JVS(50743) = Jac_FULL(5255,1585) - JVS(50743) = B(11207)+B(11209) -! JVS(50744) = Jac_FULL(5255,1586) - JVS(50744) = B(19386)+B(19388) -! JVS(50745) = Jac_FULL(5255,1587) - JVS(50745) = B(7204)+B(7206) -! JVS(50746) = Jac_FULL(5255,1588) - JVS(50746) = B(8895)+2*B(8897) -! JVS(50747) = Jac_FULL(5255,1589) - JVS(50747) = B(9837) -! JVS(50748) = Jac_FULL(5255,1594) - JVS(50748) = B(10196) -! JVS(50749) = Jac_FULL(5255,1596) - JVS(50749) = B(112) -! JVS(50750) = Jac_FULL(5255,1597) - JVS(50750) = B(16769) -! JVS(50751) = Jac_FULL(5255,1598) - JVS(50751) = B(9365)+2*B(9367) -! JVS(50752) = Jac_FULL(5255,1599) - JVS(50752) = B(7183) -! JVS(50753) = Jac_FULL(5255,1600) - JVS(50753) = B(9891)+B(9893) -! JVS(50754) = Jac_FULL(5255,1601) - JVS(50754) = B(14162)+B(14164) -! JVS(50755) = Jac_FULL(5255,1602) - JVS(50755) = 2*B(15564) -! JVS(50756) = Jac_FULL(5255,1606) - JVS(50756) = B(15736) -! JVS(50757) = Jac_FULL(5255,1609) - JVS(50757) = B(9126)+B(9128) -! JVS(50758) = Jac_FULL(5255,1611) - JVS(50758) = B(11351)+B(11353) -! JVS(50759) = Jac_FULL(5255,1612) - JVS(50759) = B(11409)+2*B(11411) -! JVS(50760) = Jac_FULL(5255,1613) - JVS(50760) = B(9289) -! JVS(50761) = Jac_FULL(5255,1615) - JVS(50761) = B(19397)+B(19399) -! JVS(50762) = Jac_FULL(5255,1616) - JVS(50762) = B(11729) -! JVS(50763) = Jac_FULL(5255,1618) - JVS(50763) = B(22476)+B(22478) -! JVS(50764) = Jac_FULL(5255,1619) - JVS(50764) = B(17232)+2*B(17234) -! JVS(50765) = Jac_FULL(5255,1621) - JVS(50765) = B(12295) -! JVS(50766) = Jac_FULL(5255,1622) - JVS(50766) = B(16200) -! JVS(50767) = Jac_FULL(5255,1623) - JVS(50767) = B(9486)+2*B(9488) -! JVS(50768) = Jac_FULL(5255,1626) - JVS(50768) = 2*B(13550)+B(13551) -! JVS(50769) = Jac_FULL(5255,1627) - JVS(50769) = B(11956) -! JVS(50770) = Jac_FULL(5255,1630) - JVS(50770) = B(20864) -! JVS(50771) = Jac_FULL(5255,1632) - JVS(50771) = B(19720)+B(19721) -! JVS(50772) = Jac_FULL(5255,1633) - JVS(50772) = B(19702) -! JVS(50773) = Jac_FULL(5255,1634) - JVS(50773) = B(4089) -! JVS(50774) = Jac_FULL(5255,1636) - JVS(50774) = B(9597)+2*B(9599) -! JVS(50775) = Jac_FULL(5255,1637) - JVS(50775) = B(17706) -! JVS(50776) = Jac_FULL(5255,1639) - JVS(50776) = B(22296) -! JVS(50777) = Jac_FULL(5255,1642) - JVS(50777) = 2*B(10362)+B(10363) -! JVS(50778) = Jac_FULL(5255,1644) - JVS(50778) = 2*B(13518)+B(13519) -! JVS(50779) = Jac_FULL(5255,1646) - JVS(50779) = B(14056) -! JVS(50780) = Jac_FULL(5255,1647) - JVS(50780) = B(9624) -! JVS(50781) = Jac_FULL(5255,1653) - JVS(50781) = B(11832) -! JVS(50782) = Jac_FULL(5255,1655) - JVS(50782) = B(14041) -! JVS(50783) = Jac_FULL(5255,1658) - JVS(50783) = B(14069)+B(14070) -! JVS(50784) = Jac_FULL(5255,1659) - JVS(50784) = B(17614)+B(17615) -! JVS(50785) = Jac_FULL(5255,1661) - JVS(50785) = B(10410) -! JVS(50786) = Jac_FULL(5255,1662) - JVS(50786) = B(4189) -! JVS(50787) = Jac_FULL(5255,1663) - JVS(50787) = B(11932) -! JVS(50788) = Jac_FULL(5255,1664) - JVS(50788) = B(9154) -! JVS(50789) = Jac_FULL(5255,1665) - JVS(50789) = B(10183)+B(10185) -! JVS(50790) = Jac_FULL(5255,1666) - JVS(50790) = B(13256)+B(13258) -! JVS(50791) = Jac_FULL(5255,1667) - JVS(50791) = B(11715) -! JVS(50792) = Jac_FULL(5255,1668) - JVS(50792) = B(17210)+B(17212) -! JVS(50793) = Jac_FULL(5255,1669) - JVS(50793) = B(9739) -! JVS(50794) = Jac_FULL(5255,1670) - JVS(50794) = B(12302) -! JVS(50795) = Jac_FULL(5255,1671) - JVS(50795) = B(3944)+B(3946) -! JVS(50796) = Jac_FULL(5255,1672) - JVS(50796) = B(9387) -! JVS(50797) = Jac_FULL(5255,1673) - JVS(50797) = B(7234) -! JVS(50798) = Jac_FULL(5255,1674) - JVS(50798) = B(19858)+B(19859) -! JVS(50799) = Jac_FULL(5255,1675) - JVS(50799) = B(15601) -! JVS(50800) = Jac_FULL(5255,1676) - JVS(50800) = B(19238) -! JVS(50801) = Jac_FULL(5255,1678) - JVS(50801) = B(23881) -! JVS(50802) = Jac_FULL(5255,1679) - JVS(50802) = B(3647) -! JVS(50803) = Jac_FULL(5255,1680) - JVS(50803) = B(16184) -! JVS(50804) = Jac_FULL(5255,1681) - JVS(50804) = B(15629) -! JVS(50805) = Jac_FULL(5255,1682) - JVS(50805) = B(13793)+B(13795) -! JVS(50806) = Jac_FULL(5255,1683) - JVS(50806) = B(13492)+B(13493) -! JVS(50807) = Jac_FULL(5255,1685) - JVS(50807) = 2*B(16687) -! JVS(50808) = Jac_FULL(5255,1686) - JVS(50808) = B(82) -! JVS(50809) = Jac_FULL(5255,1687) - JVS(50809) = B(17221)+B(17223) -! JVS(50810) = Jac_FULL(5255,1690) - JVS(50810) = B(19673)+B(19674) -! JVS(50811) = Jac_FULL(5255,1692) - JVS(50811) = B(11858) -! JVS(50812) = Jac_FULL(5255,1693) - JVS(50812) = B(11848) -! JVS(50813) = Jac_FULL(5255,1694) - JVS(50813) = B(11921) -! JVS(50814) = Jac_FULL(5255,1695) - JVS(50814) = B(4153) -! JVS(50815) = Jac_FULL(5255,1697) - JVS(50815) = B(92) -! JVS(50816) = Jac_FULL(5255,1698) - JVS(50816) = B(8738)+2*B(8740) -! JVS(50817) = Jac_FULL(5255,1700) - JVS(50817) = B(9226) -! JVS(50818) = Jac_FULL(5255,1701) - JVS(50818) = B(106) -! JVS(50819) = Jac_FULL(5255,1702) - JVS(50819) = B(4170) -! JVS(50820) = Jac_FULL(5255,1703) - JVS(50820) = B(597)+B(599) -! JVS(50821) = Jac_FULL(5255,1704) - JVS(50821) = B(7145) -! JVS(50822) = Jac_FULL(5255,1705) - JVS(50822) = B(14145) -! JVS(50823) = Jac_FULL(5255,1707) - JVS(50823) = B(19779)+B(19780) -! JVS(50824) = Jac_FULL(5255,1711) - JVS(50824) = B(7158)+B(7160) -! JVS(50825) = Jac_FULL(5255,1713) - JVS(50825) = B(15721) -! JVS(50826) = Jac_FULL(5255,1715) - JVS(50826) = B(4397) -! JVS(50827) = Jac_FULL(5255,1716) - JVS(50827) = B(13428)+B(13430) -! JVS(50828) = Jac_FULL(5255,1717) - JVS(50828) = B(9520) -! JVS(50829) = Jac_FULL(5255,1718) - JVS(50829) = B(11218)+B(11220) -! JVS(50830) = Jac_FULL(5255,1719) - JVS(50830) = B(7104) -! JVS(50831) = Jac_FULL(5255,1720) - JVS(50831) = B(11616) -! JVS(50832) = Jac_FULL(5255,1721) - JVS(50832) = B(11896) -! JVS(50833) = Jac_FULL(5255,1722) - JVS(50833) = B(19710) -! JVS(50834) = Jac_FULL(5255,1725) - JVS(50834) = B(4206) -! JVS(50835) = Jac_FULL(5255,1726) - JVS(50835) = B(15794)+B(15796) -! JVS(50836) = Jac_FULL(5255,1727) - JVS(50836) = B(15648) -! JVS(50837) = Jac_FULL(5255,1729) - JVS(50837) = B(10230) -! JVS(50838) = Jac_FULL(5255,1730) - JVS(50838) = B(118) -! JVS(50839) = Jac_FULL(5255,1731) - JVS(50839) = B(21869)+B(21871) -! JVS(50840) = Jac_FULL(5255,1733) - JVS(50840) = B(78) -! JVS(50841) = Jac_FULL(5255,1734) - JVS(50841) = B(15574)+2*B(15576) -! JVS(50842) = Jac_FULL(5255,1735) - JVS(50842) = B(13367)+B(13369) -! JVS(50843) = Jac_FULL(5255,1740) - JVS(50843) = B(19828)+B(19829) -! JVS(50844) = Jac_FULL(5255,1742) - JVS(50844) = B(11362)+B(11364) -! JVS(50845) = Jac_FULL(5255,1743) - JVS(50845) = B(13933) -! JVS(50846) = Jac_FULL(5255,1744) - JVS(50846) = B(19801)+B(19802) -! JVS(50847) = Jac_FULL(5255,1745) - JVS(50847) = B(16442) -! JVS(50848) = Jac_FULL(5255,1746) - JVS(50848) = B(3598) -! JVS(50849) = Jac_FULL(5255,1747) - JVS(50849) = B(8788) -! JVS(50850) = Jac_FULL(5255,1750) - JVS(50850) = B(920) -! JVS(50851) = Jac_FULL(5255,1754) - JVS(50851) = B(5199) -! JVS(50852) = Jac_FULL(5255,1755) - JVS(50852) = B(11751) -! JVS(50853) = Jac_FULL(5255,1756) - JVS(50853) = B(22571) -! JVS(50854) = Jac_FULL(5255,1760) - JVS(50854) = B(9364) -! JVS(50855) = Jac_FULL(5255,1764) - JVS(50855) = B(7746) -! JVS(50856) = Jac_FULL(5255,1765) - JVS(50856) = B(12565) -! JVS(50857) = Jac_FULL(5255,1769) - JVS(50857) = B(17228) -! JVS(50858) = Jac_FULL(5255,1773) - JVS(50858) = B(6013) -! JVS(50859) = Jac_FULL(5255,1776) - JVS(50859) = B(1248)+2*B(1249) -! JVS(50860) = Jac_FULL(5255,1777) - JVS(50860) = B(14218) -! JVS(50861) = Jac_FULL(5255,1781) - JVS(50861) = B(12093) -! JVS(50862) = Jac_FULL(5255,1787) - JVS(50862) = B(21610) -! JVS(50863) = Jac_FULL(5255,1791) - JVS(50863) = B(11361) -! JVS(50864) = Jac_FULL(5255,1792) - JVS(50864) = B(5300) -! JVS(50865) = Jac_FULL(5255,1794) - JVS(50865) = 0 -! JVS(50866) = Jac_FULL(5255,1795) - JVS(50866) = B(13664) -! JVS(50867) = Jac_FULL(5255,1796) - JVS(50867) = B(5663) -! JVS(50868) = Jac_FULL(5255,1797) - JVS(50868) = B(13372) -! JVS(50869) = Jac_FULL(5255,1799) - JVS(50869) = B(11797) -! JVS(50870) = Jac_FULL(5255,1806) - JVS(50870) = B(8894) -! JVS(50871) = Jac_FULL(5255,1808) - JVS(50871) = B(4012) -! JVS(50872) = Jac_FULL(5255,1810) - JVS(50872) = B(12697) -! JVS(50873) = Jac_FULL(5255,1812) - JVS(50873) = B(22919) -! JVS(50874) = Jac_FULL(5255,1815) - JVS(50874) = B(4066) -! JVS(50875) = Jac_FULL(5255,1816) - JVS(50875) = B(20386) -! JVS(50876) = Jac_FULL(5255,1820) - JVS(50876) = B(5482) -! JVS(50877) = Jac_FULL(5255,1821) - JVS(50877) = B(5581) -! JVS(50878) = Jac_FULL(5255,1822) - JVS(50878) = B(6505) -! JVS(50879) = Jac_FULL(5255,1828) - JVS(50879) = B(17231) -! JVS(50880) = Jac_FULL(5255,1838) - JVS(50880) = B(11874) -! JVS(50881) = Jac_FULL(5255,1847) - JVS(50881) = B(10695) -! JVS(50882) = Jac_FULL(5255,1848) - JVS(50882) = B(16625) -! JVS(50883) = Jac_FULL(5255,1851) - JVS(50883) = B(13526) -! JVS(50884) = Jac_FULL(5255,1853) - JVS(50884) = B(4339) -! JVS(50885) = Jac_FULL(5255,1857) - JVS(50885) = B(10095)+B(10097)+2*B(10098) -! JVS(50886) = Jac_FULL(5255,1858) - JVS(50886) = B(11217) -! JVS(50887) = Jac_FULL(5255,1860) - JVS(50887) = B(5938) -! JVS(50888) = Jac_FULL(5255,1861) - JVS(50888) = 0 -! JVS(50889) = Jac_FULL(5255,1865) - JVS(50889) = B(13986) -! JVS(50890) = Jac_FULL(5255,1866) - JVS(50890) = B(4313) -! JVS(50891) = Jac_FULL(5255,1869) - JVS(50891) = B(13989) -! JVS(50892) = Jac_FULL(5255,1872) - JVS(50892) = B(4375) -! JVS(50893) = Jac_FULL(5255,1874) - JVS(50893) = B(20478) -! JVS(50894) = Jac_FULL(5255,1875) - JVS(50894) = B(23456)+B(23458) -! JVS(50895) = Jac_FULL(5255,1877) - JVS(50895) = B(4955) -! JVS(50896) = Jac_FULL(5255,1880) - JVS(50896) = 0 -! JVS(50897) = Jac_FULL(5255,1881) - JVS(50897) = 0 -! JVS(50898) = Jac_FULL(5255,1882) - JVS(50898) = B(4077) -! JVS(50899) = Jac_FULL(5255,1890) - JVS(50899) = 0 -! JVS(50900) = Jac_FULL(5255,1891) - JVS(50900) = B(18805) -! JVS(50901) = Jac_FULL(5255,1892) - JVS(50901) = B(21615) -! JVS(50902) = Jac_FULL(5255,1898) - JVS(50902) = 0 -! JVS(50903) = Jac_FULL(5255,1901) - JVS(50903) = 0 -! JVS(50904) = Jac_FULL(5255,1902) - JVS(50904) = 0 -! JVS(50905) = Jac_FULL(5255,1903) - JVS(50905) = B(6101) -! JVS(50906) = Jac_FULL(5255,1906) - JVS(50906) = B(3795) -! JVS(50907) = Jac_FULL(5255,1907) - JVS(50907) = 0 -! JVS(50908) = Jac_FULL(5255,1910) - JVS(50908) = B(10718) -! JVS(50909) = Jac_FULL(5255,1911) - JVS(50909) = 0 -! JVS(50910) = Jac_FULL(5255,1916) - JVS(50910) = B(12191) -! JVS(50911) = Jac_FULL(5255,1923) - JVS(50911) = B(6950) -! JVS(50912) = Jac_FULL(5255,1924) - JVS(50912) = B(3920) -! JVS(50913) = Jac_FULL(5255,1927) - JVS(50913) = B(5129) -! JVS(50914) = Jac_FULL(5255,1928) - JVS(50914) = B(18337) -! JVS(50915) = Jac_FULL(5255,1929) - JVS(50915) = B(21829) -! JVS(50916) = Jac_FULL(5255,1934) - JVS(50916) = B(21762)+B(21764) -! JVS(50917) = Jac_FULL(5255,1935) - JVS(50917) = 0 -! JVS(50918) = Jac_FULL(5255,1942) - JVS(50918) = B(22516) -! JVS(50919) = Jac_FULL(5255,1944) - JVS(50919) = B(3743) -! JVS(50920) = Jac_FULL(5255,1945) - JVS(50920) = B(12000) -! JVS(50921) = Jac_FULL(5255,1951) - JVS(50921) = B(9596) -! JVS(50922) = Jac_FULL(5255,1955) - JVS(50922) = B(16637) -! JVS(50923) = Jac_FULL(5255,1959) - JVS(50923) = B(3053)+2*B(3054) -! JVS(50924) = Jac_FULL(5255,1960) - JVS(50924) = B(15892) -! JVS(50925) = Jac_FULL(5255,1969) - JVS(50925) = B(13495) -! JVS(50926) = Jac_FULL(5255,1971) - JVS(50926) = B(6652) -! JVS(50927) = Jac_FULL(5255,1973) - JVS(50927) = 0 -! JVS(50928) = Jac_FULL(5255,1974) - JVS(50928) = 0 -! JVS(50929) = Jac_FULL(5255,1981) - JVS(50929) = B(16679) -! JVS(50930) = Jac_FULL(5255,1988) - JVS(50930) = 2*B(8985)+B(8986) -! JVS(50931) = Jac_FULL(5255,1991) - JVS(50931) = B(18783) -! JVS(50932) = Jac_FULL(5255,1992) - JVS(50932) = 0 -! JVS(50933) = Jac_FULL(5255,1998) - JVS(50933) = B(18030) -! JVS(50934) = Jac_FULL(5255,2001) - JVS(50934) = B(3955)+B(3956) -! JVS(50935) = Jac_FULL(5255,2004) - JVS(50935) = B(4302) -! JVS(50936) = Jac_FULL(5255,2005) - JVS(50936) = B(11506) -! JVS(50937) = Jac_FULL(5255,2008) - JVS(50937) = B(14716) -! JVS(50938) = Jac_FULL(5255,2012) - JVS(50938) = B(4876) -! JVS(50939) = Jac_FULL(5255,2013) - JVS(50939) = B(2040) -! JVS(50940) = Jac_FULL(5255,2015) - JVS(50940) = B(5389) -! JVS(50941) = Jac_FULL(5255,2021) - JVS(50941) = B(6287) -! JVS(50942) = Jac_FULL(5255,2029) - JVS(50942) = B(3940) -! JVS(50943) = Jac_FULL(5255,2030) - JVS(50943) = B(11772) -! JVS(50944) = Jac_FULL(5255,2031) - JVS(50944) = B(12147) -! JVS(50945) = Jac_FULL(5255,2033) - JVS(50945) = B(22899) -! JVS(50946) = Jac_FULL(5255,2035) - JVS(50946) = B(20666) -! JVS(50947) = Jac_FULL(5255,2038) - JVS(50947) = B(1997) -! JVS(50948) = Jac_FULL(5255,2041) - JVS(50948) = B(6700) -! JVS(50949) = Jac_FULL(5255,2042) - JVS(50949) = B(2104) -! JVS(50950) = Jac_FULL(5255,2043) - JVS(50950) = B(13582) -! JVS(50951) = Jac_FULL(5255,2044) - JVS(50951) = 0 -! JVS(50952) = Jac_FULL(5255,2050) - JVS(50952) = B(12042) -! JVS(50953) = Jac_FULL(5255,2058) - JVS(50953) = 0 -! JVS(50954) = Jac_FULL(5255,2060) - JVS(50954) = B(12129) -! JVS(50955) = Jac_FULL(5255,2066) - JVS(50955) = B(3769) -! JVS(50956) = Jac_FULL(5255,2073) - JVS(50956) = B(21949) -! JVS(50957) = Jac_FULL(5255,2078) - JVS(50957) = 0 -! JVS(50958) = Jac_FULL(5255,2081) - JVS(50958) = B(10412) -! JVS(50959) = Jac_FULL(5255,2085) - JVS(50959) = B(18773) -! JVS(50960) = Jac_FULL(5255,2088) - JVS(50960) = B(6188) -! JVS(50961) = Jac_FULL(5255,2089) - JVS(50961) = 0 -! JVS(50962) = Jac_FULL(5255,2090) - JVS(50962) = B(3890) -! JVS(50963) = Jac_FULL(5255,2098) - JVS(50963) = 0 -! JVS(50964) = Jac_FULL(5255,2100) - JVS(50964) = B(6624) -! JVS(50965) = Jac_FULL(5255,2101) - JVS(50965) = B(16590)+B(16592) -! JVS(50966) = Jac_FULL(5255,2103) - JVS(50966) = 0 -! JVS(50967) = Jac_FULL(5255,2104) - JVS(50967) = B(12899) -! JVS(50968) = Jac_FULL(5255,2106) - JVS(50968) = 0 -! JVS(50969) = Jac_FULL(5255,2110) - JVS(50969) = B(11568) -! JVS(50970) = Jac_FULL(5255,2112) - JVS(50970) = B(13517) -! JVS(50971) = Jac_FULL(5255,2116) - JVS(50971) = B(21636) -! JVS(50972) = Jac_FULL(5255,2117) - JVS(50972) = B(9485) -! JVS(50973) = Jac_FULL(5255,2120) - JVS(50973) = B(20154) -! JVS(50974) = Jac_FULL(5255,2122) - JVS(50974) = B(12111) -! JVS(50975) = Jac_FULL(5255,2126) - JVS(50975) = 0 -! JVS(50976) = Jac_FULL(5255,2127) - JVS(50976) = 0 -! JVS(50977) = Jac_FULL(5255,2129) - JVS(50977) = B(12321) -! JVS(50978) = Jac_FULL(5255,2130) - JVS(50978) = B(10570)+B(10571) -! JVS(50979) = Jac_FULL(5255,2131) - JVS(50979) = B(11682) -! JVS(50980) = Jac_FULL(5255,2132) - JVS(50980) = B(11408) -! JVS(50981) = Jac_FULL(5255,2134) - JVS(50981) = B(13433) -! JVS(50982) = Jac_FULL(5255,2138) - JVS(50982) = B(16546) -! JVS(50983) = Jac_FULL(5255,2140) - JVS(50983) = B(11082) -! JVS(50984) = Jac_FULL(5255,2141) - JVS(50984) = B(19396) -! JVS(50985) = Jac_FULL(5255,2144) - JVS(50985) = B(17407) -! JVS(50986) = Jac_FULL(5255,2145) - JVS(50986) = B(19554) -! JVS(50987) = Jac_FULL(5255,2146) - JVS(50987) = B(14397) -! JVS(50988) = Jac_FULL(5255,2148) - JVS(50988) = B(5822) -! JVS(50989) = Jac_FULL(5255,2153) - JVS(50989) = 0 -! JVS(50990) = Jac_FULL(5255,2158) - JVS(50990) = B(4999) -! JVS(50991) = Jac_FULL(5255,2159) - JVS(50991) = B(22798) -! JVS(50992) = Jac_FULL(5255,2160) - JVS(50992) = 0 -! JVS(50993) = Jac_FULL(5255,2162) - JVS(50993) = B(13865) -! JVS(50994) = Jac_FULL(5255,2170) - JVS(50994) = B(11405) -! JVS(50995) = Jac_FULL(5255,2173) - JVS(50995) = B(11699) -! JVS(50996) = Jac_FULL(5255,2175) - JVS(50996) = B(8914) -! JVS(50997) = Jac_FULL(5255,2178) - JVS(50997) = 0 -! JVS(50998) = Jac_FULL(5255,2182) - JVS(50998) = 0 -! JVS(50999) = Jac_FULL(5255,2186) - JVS(50999) = B(14216) -! JVS(51000) = Jac_FULL(5255,2187) - JVS(51000) = 0 -! JVS(51001) = Jac_FULL(5255,2188) - JVS(51001) = 0 -! JVS(51002) = Jac_FULL(5255,2189) - JVS(51002) = 0 -! JVS(51003) = Jac_FULL(5255,2191) - JVS(51003) = B(13617) -! JVS(51004) = Jac_FULL(5255,2197) - JVS(51004) = B(17698) -! JVS(51005) = Jac_FULL(5255,2198) - JVS(51005) = 0 -! JVS(51006) = Jac_FULL(5255,2200) - JVS(51006) = B(8734) -! JVS(51007) = Jac_FULL(5255,2202) - JVS(51007) = 0 -! JVS(51008) = Jac_FULL(5255,2203) - JVS(51008) = B(21191) -! JVS(51009) = Jac_FULL(5255,2206) - JVS(51009) = 0 -! JVS(51010) = Jac_FULL(5255,2208) - JVS(51010) = B(11495) -! JVS(51011) = Jac_FULL(5255,2209) - JVS(51011) = B(23681) -! JVS(51012) = Jac_FULL(5255,2210) - JVS(51012) = B(22135) -! JVS(51013) = Jac_FULL(5255,2211) - JVS(51013) = B(7774) -! JVS(51014) = Jac_FULL(5255,2212) - JVS(51014) = B(2199) -! JVS(51015) = Jac_FULL(5255,2218) - JVS(51015) = 0 -! JVS(51016) = Jac_FULL(5255,2219) - JVS(51016) = B(7756) -! JVS(51017) = Jac_FULL(5255,2228) - JVS(51017) = B(20124) -! JVS(51018) = Jac_FULL(5255,2229) - JVS(51018) = B(3668) -! JVS(51019) = Jac_FULL(5255,2232) - JVS(51019) = 0 -! JVS(51020) = Jac_FULL(5255,2233) - JVS(51020) = 0 -! JVS(51021) = Jac_FULL(5255,2234) - JVS(51021) = B(8891) -! JVS(51022) = Jac_FULL(5255,2235) - JVS(51022) = 0 -! JVS(51023) = Jac_FULL(5255,2236) - JVS(51023) = B(13878) -! JVS(51024) = Jac_FULL(5255,2237) - JVS(51024) = 0 -! JVS(51025) = Jac_FULL(5255,2238) - JVS(51025) = B(13472) -! JVS(51026) = Jac_FULL(5255,2243) - JVS(51026) = B(18788) -! JVS(51027) = Jac_FULL(5255,2248) - JVS(51027) = B(21342) -! JVS(51028) = Jac_FULL(5255,2251) - JVS(51028) = B(22761) -! JVS(51029) = Jac_FULL(5255,2255) - JVS(51029) = B(14187) -! JVS(51030) = Jac_FULL(5255,2258) - JVS(51030) = B(10377) -! JVS(51031) = Jac_FULL(5255,2259) - JVS(51031) = B(11938)+B(11940) -! JVS(51032) = Jac_FULL(5255,2261) - JVS(51032) = 0 -! JVS(51033) = Jac_FULL(5255,2266) - JVS(51033) = 0 -! JVS(51034) = Jac_FULL(5255,2268) - JVS(51034) = 0 -! JVS(51035) = Jac_FULL(5255,2272) - JVS(51035) = B(7735) -! JVS(51036) = Jac_FULL(5255,2279) - JVS(51036) = B(22771) -! JVS(51037) = Jac_FULL(5255,2284) - JVS(51037) = B(12075) -! JVS(51038) = Jac_FULL(5255,2286) - JVS(51038) = B(2018) -! JVS(51039) = Jac_FULL(5255,2287) - JVS(51039) = B(10094) -! JVS(51040) = Jac_FULL(5255,2292) - JVS(51040) = 0 -! JVS(51041) = Jac_FULL(5255,2299) - JVS(51041) = 0 -! JVS(51042) = Jac_FULL(5255,2301) - JVS(51042) = B(12268) -! JVS(51043) = Jac_FULL(5255,2302) - JVS(51043) = 0 -! JVS(51044) = Jac_FULL(5255,2306) - JVS(51044) = 0 -! JVS(51045) = Jac_FULL(5255,2308) - JVS(51045) = B(10494)+B(10495) -! JVS(51046) = Jac_FULL(5255,2309) - JVS(51046) = 0 -! JVS(51047) = Jac_FULL(5255,2310) - JVS(51047) = B(13278)+2*B(13280) -! JVS(51048) = Jac_FULL(5255,2312) - JVS(51048) = 0 -! JVS(51049) = Jac_FULL(5255,2315) - JVS(51049) = B(17220) -! JVS(51050) = Jac_FULL(5255,2319) - JVS(51050) = B(17401) -! JVS(51051) = Jac_FULL(5255,2320) - JVS(51051) = B(18701) -! JVS(51052) = Jac_FULL(5255,2322) - JVS(51052) = B(5759) -! JVS(51053) = Jac_FULL(5255,2324) - JVS(51053) = B(14331) -! JVS(51054) = Jac_FULL(5255,2329) - JVS(51054) = B(20392) -! JVS(51055) = Jac_FULL(5255,2334) - JVS(51055) = B(6425) -! JVS(51056) = Jac_FULL(5255,2335) - JVS(51056) = B(16485) -! JVS(51057) = Jac_FULL(5255,2336) - JVS(51057) = B(22281)+B(22283) -! JVS(51058) = Jac_FULL(5255,2338) - JVS(51058) = 0 -! JVS(51059) = Jac_FULL(5255,2339) - JVS(51059) = 0 -! JVS(51060) = Jac_FULL(5255,2340) - JVS(51060) = B(19244) -! JVS(51061) = Jac_FULL(5255,2344) - JVS(51061) = B(12334) -! JVS(51062) = Jac_FULL(5255,2346) - JVS(51062) = B(4320) -! JVS(51063) = Jac_FULL(5255,2357) - JVS(51063) = B(9795)+B(9796) -! JVS(51064) = Jac_FULL(5255,2361) - JVS(51064) = B(12016) -! JVS(51065) = Jac_FULL(5255,2364) - JVS(51065) = B(7772) -! JVS(51066) = Jac_FULL(5255,2371) - JVS(51066) = B(12308) -! JVS(51067) = Jac_FULL(5255,2373) - JVS(51067) = 0 -! JVS(51068) = Jac_FULL(5255,2375) - JVS(51068) = 0 -! JVS(51069) = Jac_FULL(5255,2376) - JVS(51069) = B(12380) -! JVS(51070) = Jac_FULL(5255,2381) - JVS(51070) = B(19029) -! JVS(51071) = Jac_FULL(5255,2382) - JVS(51071) = B(18776) -! JVS(51072) = Jac_FULL(5255,2384) - JVS(51072) = B(12196) -! JVS(51073) = Jac_FULL(5255,2387) - JVS(51073) = 0 -! JVS(51074) = Jac_FULL(5255,2395) - JVS(51074) = B(14072) -! JVS(51075) = Jac_FULL(5255,2396) - JVS(51075) = B(12234) -! JVS(51076) = Jac_FULL(5255,2402) - JVS(51076) = B(13888) -! JVS(51077) = Jac_FULL(5255,2407) - JVS(51077) = 0 -! JVS(51078) = Jac_FULL(5255,2410) - JVS(51078) = B(11635) -! JVS(51079) = Jac_FULL(5255,2412) - JVS(51079) = B(7750) -! JVS(51080) = Jac_FULL(5255,2419) - JVS(51080) = 0 -! JVS(51081) = Jac_FULL(5255,2421) - JVS(51081) = B(155)+B(157) -! JVS(51082) = Jac_FULL(5255,2425) - JVS(51082) = B(6891) -! JVS(51083) = Jac_FULL(5255,2427) - JVS(51083) = 0 -! JVS(51084) = Jac_FULL(5255,2431) - JVS(51084) = B(13585) -! JVS(51085) = Jac_FULL(5255,2446) - JVS(51085) = 0 -! JVS(51086) = Jac_FULL(5255,2448) - JVS(51086) = B(8737) -! JVS(51087) = Jac_FULL(5255,2450) - JVS(51087) = 0 -! JVS(51088) = Jac_FULL(5255,2451) - JVS(51088) = 0 -! JVS(51089) = Jac_FULL(5255,2456) - JVS(51089) = 0 -! JVS(51090) = Jac_FULL(5255,2462) - JVS(51090) = 0 -! JVS(51091) = Jac_FULL(5255,2463) - JVS(51091) = 0 -! JVS(51092) = Jac_FULL(5255,2466) - JVS(51092) = 0 -! JVS(51093) = Jac_FULL(5255,2468) - JVS(51093) = B(8761) -! JVS(51094) = Jac_FULL(5255,2472) - JVS(51094) = B(13043)+2*B(13044) -! JVS(51095) = Jac_FULL(5255,2474) - JVS(51095) = B(12949)+2*B(12950) -! JVS(51096) = Jac_FULL(5255,2475) - JVS(51096) = 2*B(23364)+B(23365) -! JVS(51097) = Jac_FULL(5255,2476) - JVS(51097) = B(3113) -! JVS(51098) = Jac_FULL(5255,2477) - JVS(51098) = B(9217)+2*B(9218) -! JVS(51099) = Jac_FULL(5255,2479) - JVS(51099) = B(6720) -! JVS(51100) = Jac_FULL(5255,2481) - JVS(51100) = B(10334) -! JVS(51101) = Jac_FULL(5255,2482) - JVS(51101) = B(15700)+2*B(15702) -! JVS(51102) = Jac_FULL(5255,2483) - JVS(51102) = 2*B(23845)+B(23846) -! JVS(51103) = Jac_FULL(5255,2484) - JVS(51103) = B(10022) -! JVS(51104) = Jac_FULL(5255,2485) - JVS(51104) = B(15896)+B(15898)+2*B(15899) -! JVS(51105) = Jac_FULL(5255,2486) - JVS(51105) = B(21625)+B(21627) -! JVS(51106) = Jac_FULL(5255,2487) - JVS(51106) = B(2254) -! JVS(51107) = Jac_FULL(5255,2489) - JVS(51107) = B(13728) -! JVS(51108) = Jac_FULL(5255,2491) - JVS(51108) = B(18832) -! JVS(51109) = Jac_FULL(5255,2492) - JVS(51109) = B(15987) -! JVS(51110) = Jac_FULL(5255,2494) - JVS(51110) = B(13528) -! JVS(51111) = Jac_FULL(5255,2501) - JVS(51111) = B(8889) -! JVS(51112) = Jac_FULL(5255,2503) - JVS(51112) = 0 -! JVS(51113) = Jac_FULL(5255,2507) - JVS(51113) = B(22286) -! JVS(51114) = Jac_FULL(5255,2508) - JVS(51114) = B(7471) -! JVS(51115) = Jac_FULL(5255,2509) - JVS(51115) = 0 -! JVS(51116) = Jac_FULL(5255,2512) - JVS(51116) = B(19305) -! JVS(51117) = Jac_FULL(5255,2513) - JVS(51117) = 0 -! JVS(51118) = Jac_FULL(5255,2516) - JVS(51118) = B(7392) -! JVS(51119) = Jac_FULL(5255,2519) - JVS(51119) = 0 -! JVS(51120) = Jac_FULL(5255,2521) - JVS(51120) = B(16420) -! JVS(51121) = Jac_FULL(5255,2526) - JVS(51121) = B(4235) -! JVS(51122) = Jac_FULL(5255,2528) - JVS(51122) = B(14124) -! JVS(51123) = Jac_FULL(5255,2539) - JVS(51123) = B(7005) -! JVS(51124) = Jac_FULL(5255,2541) - JVS(51124) = B(21401) -! JVS(51125) = Jac_FULL(5255,2543) - JVS(51125) = 0 -! JVS(51126) = Jac_FULL(5255,2545) - JVS(51126) = B(13637) -! JVS(51127) = Jac_FULL(5255,2546) - JVS(51127) = B(19543) -! JVS(51128) = Jac_FULL(5255,2549) - JVS(51128) = B(4966) -! JVS(51129) = Jac_FULL(5255,2550) - JVS(51129) = B(3952) -! JVS(51130) = Jac_FULL(5255,2551) - JVS(51130) = B(18564) -! JVS(51131) = Jac_FULL(5255,2553) - JVS(51131) = B(17559) -! JVS(51132) = Jac_FULL(5255,2555) - JVS(51132) = 0 -! JVS(51133) = Jac_FULL(5255,2556) - JVS(51133) = B(22767) -! JVS(51134) = Jac_FULL(5255,2559) - JVS(51134) = B(9483) -! JVS(51135) = Jac_FULL(5255,2561) - JVS(51135) = B(21940) -! JVS(51136) = Jac_FULL(5255,2562) - JVS(51136) = B(17990) -! JVS(51137) = Jac_FULL(5255,2568) - JVS(51137) = 2*B(20551) -! JVS(51138) = Jac_FULL(5255,2570) - JVS(51138) = B(18898)+B(18901) -! JVS(51139) = Jac_FULL(5255,2575) - JVS(51139) = B(18682) -! JVS(51140) = Jac_FULL(5255,2581) - JVS(51140) = B(16030) -! JVS(51141) = Jac_FULL(5255,2586) - JVS(51141) = B(18519) -! JVS(51142) = Jac_FULL(5255,2589) - JVS(51142) = B(17530) -! JVS(51143) = Jac_FULL(5255,2590) - JVS(51143) = 0 -! JVS(51144) = Jac_FULL(5255,2591) - JVS(51144) = B(22979) -! JVS(51145) = Jac_FULL(5255,2592) - JVS(51145) = B(15561) -! JVS(51146) = Jac_FULL(5255,2594) - JVS(51146) = B(17930) -! JVS(51147) = Jac_FULL(5255,2596) - JVS(51147) = B(13573) -! JVS(51148) = Jac_FULL(5255,2599) - JVS(51148) = B(18647) -! JVS(51149) = Jac_FULL(5255,2601) - JVS(51149) = B(9595) -! JVS(51150) = Jac_FULL(5255,2604) - JVS(51150) = B(18334) -! JVS(51151) = Jac_FULL(5255,2606) - JVS(51151) = B(18904) -! JVS(51152) = Jac_FULL(5255,2609) - JVS(51152) = B(12379) -! JVS(51153) = Jac_FULL(5255,2614) - JVS(51153) = B(7085) -! JVS(51154) = Jac_FULL(5255,2616) - JVS(51154) = B(16548) -! JVS(51155) = Jac_FULL(5255,2617) - JVS(51155) = 0 -! JVS(51156) = Jac_FULL(5255,2623) - JVS(51156) = B(6837) -! JVS(51157) = Jac_FULL(5255,2627) - JVS(51157) = 0 -! JVS(51158) = Jac_FULL(5255,2633) - JVS(51158) = 0 -! JVS(51159) = Jac_FULL(5255,2634) - JVS(51159) = B(7214) -! JVS(51160) = Jac_FULL(5255,2638) - JVS(51160) = B(17960) -! JVS(51161) = Jac_FULL(5255,2639) - JVS(51161) = B(3660) -! JVS(51162) = Jac_FULL(5255,2641) - JVS(51162) = B(18191) -! JVS(51163) = Jac_FULL(5255,2642) - JVS(51163) = B(17900) -! JVS(51164) = Jac_FULL(5255,2644) - JVS(51164) = B(17687) -! JVS(51165) = Jac_FULL(5255,2645) - JVS(51165) = B(9491) -! JVS(51166) = Jac_FULL(5255,2646) - JVS(51166) = B(17593) -! JVS(51167) = Jac_FULL(5255,2647) - JVS(51167) = B(3905) -! JVS(51168) = Jac_FULL(5255,2652) - JVS(51168) = B(22224) -! JVS(51169) = Jac_FULL(5255,2653) - JVS(51169) = 0 -! JVS(51170) = Jac_FULL(5255,2654) - JVS(51170) = B(21425) -! JVS(51171) = Jac_FULL(5255,2659) - JVS(51171) = B(15626) -! JVS(51172) = Jac_FULL(5255,2662) - JVS(51172) = B(16649) -! JVS(51173) = Jac_FULL(5255,2665) - JVS(51173) = B(7071) -! JVS(51174) = Jac_FULL(5255,2676) - JVS(51174) = B(17983) -! JVS(51175) = Jac_FULL(5255,2680) - JVS(51175) = B(23904) -! JVS(51176) = Jac_FULL(5255,2690) - JVS(51176) = 0 -! JVS(51177) = Jac_FULL(5255,2693) - JVS(51177) = 0 -! JVS(51178) = Jac_FULL(5255,2694) - JVS(51178) = B(23273) -! JVS(51179) = Jac_FULL(5255,2695) - JVS(51179) = 0 -! JVS(51180) = Jac_FULL(5255,2697) - JVS(51180) = B(17793) -! JVS(51181) = Jac_FULL(5255,2699) - JVS(51181) = B(4424) -! JVS(51182) = Jac_FULL(5255,2706) - JVS(51182) = B(6688) -! JVS(51183) = Jac_FULL(5255,2707) - JVS(51183) = B(3637)+B(3638) -! JVS(51184) = Jac_FULL(5255,2710) - JVS(51184) = B(4512) -! JVS(51185) = Jac_FULL(5255,2711) - JVS(51185) = B(13490) -! JVS(51186) = Jac_FULL(5255,2713) - JVS(51186) = 0 -! JVS(51187) = Jac_FULL(5255,2714) - JVS(51187) = B(9370) -! JVS(51188) = Jac_FULL(5255,2716) - JVS(51188) = B(13939) -! JVS(51189) = Jac_FULL(5255,2717) - JVS(51189) = B(13611) -! JVS(51190) = Jac_FULL(5255,2720) - JVS(51190) = B(3678) -! JVS(51191) = Jac_FULL(5255,2722) - JVS(51191) = B(16973) -! JVS(51192) = Jac_FULL(5255,2723) - JVS(51192) = 0 -! JVS(51193) = Jac_FULL(5255,2727) - JVS(51193) = 0 -! JVS(51194) = Jac_FULL(5255,2731) - JVS(51194) = B(18079) -! JVS(51195) = Jac_FULL(5255,2735) - JVS(51195) = B(20431) -! JVS(51196) = Jac_FULL(5255,2737) - JVS(51196) = B(17227) -! JVS(51197) = Jac_FULL(5255,2741) - JVS(51197) = B(18297) -! JVS(51198) = Jac_FULL(5255,2744) - JVS(51198) = B(14662) -! JVS(51199) = Jac_FULL(5255,2745) - JVS(51199) = B(11460) -! JVS(51200) = Jac_FULL(5255,2746) - JVS(51200) = B(17344) -! JVS(51201) = Jac_FULL(5255,2747) - JVS(51201) = B(3849) -! JVS(51202) = Jac_FULL(5255,2748) - JVS(51202) = 2*B(1491)+B(1492) -! JVS(51203) = Jac_FULL(5255,2752) - JVS(51203) = B(15570) -! JVS(51204) = Jac_FULL(5255,2754) - JVS(51204) = B(21515) -! JVS(51205) = Jac_FULL(5255,2760) - JVS(51205) = B(17923) -! JVS(51206) = Jac_FULL(5255,2761) - JVS(51206) = 0 -! JVS(51207) = Jac_FULL(5255,2763) - JVS(51207) = B(22201) -! JVS(51208) = Jac_FULL(5255,2764) - JVS(51208) = 0 -! JVS(51209) = Jac_FULL(5255,2767) - JVS(51209) = B(4678) -! JVS(51210) = Jac_FULL(5255,2770) - JVS(51210) = B(16712) -! JVS(51211) = Jac_FULL(5255,2771) - JVS(51211) = B(6672) -! JVS(51212) = Jac_FULL(5255,2773) - JVS(51212) = B(23066) -! JVS(51213) = Jac_FULL(5255,2775) - JVS(51213) = 0 -! JVS(51214) = Jac_FULL(5255,2785) - JVS(51214) = 0 -! JVS(51215) = Jac_FULL(5255,2788) - JVS(51215) = B(24046) -! JVS(51216) = Jac_FULL(5255,2795) - JVS(51216) = B(4362) -! JVS(51217) = Jac_FULL(5255,2797) - JVS(51217) = B(19552) -! JVS(51218) = Jac_FULL(5255,2803) - JVS(51218) = B(15432)+B(15433) -! JVS(51219) = Jac_FULL(5255,2805) - JVS(51219) = B(4373) -! JVS(51220) = Jac_FULL(5255,2807) - JVS(51220) = B(8453) -! JVS(51221) = Jac_FULL(5255,2816) - JVS(51221) = B(13549) -! JVS(51222) = Jac_FULL(5255,2824) - JVS(51222) = B(13497) -! JVS(51223) = Jac_FULL(5255,2826) - JVS(51223) = B(19647) -! JVS(51224) = Jac_FULL(5255,2827) - JVS(51224) = B(18972) -! JVS(51225) = Jac_FULL(5255,2828) - JVS(51225) = B(11597) -! JVS(51226) = Jac_FULL(5255,2835) - JVS(51226) = 0 -! JVS(51227) = Jac_FULL(5255,2836) - JVS(51227) = 0 -! JVS(51228) = Jac_FULL(5255,2837) - JVS(51228) = B(9214) -! JVS(51229) = Jac_FULL(5255,2838) - JVS(51229) = B(21384) -! JVS(51230) = Jac_FULL(5255,2840) - JVS(51230) = B(3717) -! JVS(51231) = Jac_FULL(5255,2849) - JVS(51231) = B(5186) -! JVS(51232) = Jac_FULL(5255,2861) - JVS(51232) = B(4097) -! JVS(51233) = Jac_FULL(5255,2862) - JVS(51233) = B(21443) -! JVS(51234) = Jac_FULL(5255,2865) - JVS(51234) = B(17464) -! JVS(51235) = Jac_FULL(5255,2868) - JVS(51235) = B(19540) -! JVS(51236) = Jac_FULL(5255,2871) - JVS(51236) = 0 -! JVS(51237) = Jac_FULL(5255,2873) - JVS(51237) = B(4319) -! JVS(51238) = Jac_FULL(5255,2874) - JVS(51238) = B(17953) -! JVS(51239) = Jac_FULL(5255,2875) - JVS(51239) = B(9602) -! JVS(51240) = Jac_FULL(5255,2889) - JVS(51240) = B(11911) -! JVS(51241) = Jac_FULL(5255,2890) - JVS(51241) = B(22568) -! JVS(51242) = Jac_FULL(5255,2891) - JVS(51242) = B(3864) -! JVS(51243) = Jac_FULL(5255,2894) - JVS(51243) = B(23678) -! JVS(51244) = Jac_FULL(5255,2895) - JVS(51244) = B(23490) -! JVS(51245) = Jac_FULL(5255,2897) - JVS(51245) = B(15932) -! JVS(51246) = Jac_FULL(5255,2899) - JVS(51246) = B(22271) -! JVS(51247) = Jac_FULL(5255,2900) - JVS(51247) = 0 -! JVS(51248) = Jac_FULL(5255,2902) - JVS(51248) = B(7386) -! JVS(51249) = Jac_FULL(5255,2906) - JVS(51249) = B(4652) -! JVS(51250) = Jac_FULL(5255,2911) - JVS(51250) = B(21295) -! JVS(51251) = Jac_FULL(5255,2912) - JVS(51251) = B(5175) -! JVS(51252) = Jac_FULL(5255,2917) - JVS(51252) = 0 -! JVS(51253) = Jac_FULL(5255,2922) - JVS(51253) = B(4807) -! JVS(51254) = Jac_FULL(5255,2926) - JVS(51254) = B(4220) -! JVS(51255) = Jac_FULL(5255,2927) - JVS(51255) = 2*B(12994) -! JVS(51256) = Jac_FULL(5255,2931) - JVS(51256) = B(23659) -! JVS(51257) = Jac_FULL(5255,2932) - JVS(51257) = B(14159) -! JVS(51258) = Jac_FULL(5255,2934) - JVS(51258) = 0 -! JVS(51259) = Jac_FULL(5255,2936) - JVS(51259) = 2*B(12896) -! JVS(51260) = Jac_FULL(5255,2939) - JVS(51260) = B(14117) -! JVS(51261) = Jac_FULL(5255,2944) - JVS(51261) = B(5140) -! JVS(51262) = Jac_FULL(5255,2946) - JVS(51262) = B(21210) -! JVS(51263) = Jac_FULL(5255,2949) - JVS(51263) = B(16089) -! JVS(51264) = Jac_FULL(5255,2953) - JVS(51264) = B(22362) -! JVS(51265) = Jac_FULL(5255,2954) - JVS(51265) = B(13992) -! JVS(51266) = Jac_FULL(5255,2961) - JVS(51266) = B(7585) -! JVS(51267) = Jac_FULL(5255,2963) - JVS(51267) = B(18254) -! JVS(51268) = Jac_FULL(5255,2966) - JVS(51268) = B(21621) -! JVS(51269) = Jac_FULL(5255,2967) - JVS(51269) = B(16173) -! JVS(51270) = Jac_FULL(5255,2971) - JVS(51270) = B(13471) -! JVS(51271) = Jac_FULL(5255,2972) - JVS(51271) = B(19000) -! JVS(51272) = Jac_FULL(5255,2974) - JVS(51272) = B(4541) -! JVS(51273) = Jac_FULL(5255,2975) - JVS(51273) = B(22133) -! JVS(51274) = Jac_FULL(5255,2976) - JVS(51274) = 0 -! JVS(51275) = Jac_FULL(5255,2979) - JVS(51275) = B(23426) -! JVS(51276) = Jac_FULL(5255,2982) - JVS(51276) = B(17652) -! JVS(51277) = Jac_FULL(5255,2983) - JVS(51277) = B(3806) -! JVS(51278) = Jac_FULL(5255,2985) - JVS(51278) = B(11670) -! JVS(51279) = Jac_FULL(5255,2990) - JVS(51279) = B(4598) -! JVS(51280) = Jac_FULL(5255,2991) - JVS(51280) = B(21312) -! JVS(51281) = Jac_FULL(5255,2992) - JVS(51281) = B(4180) -! JVS(51282) = Jac_FULL(5255,2993) - JVS(51282) = B(4178) -! JVS(51283) = Jac_FULL(5255,2996) - JVS(51283) = B(10706) -! JVS(51284) = Jac_FULL(5255,2997) - JVS(51284) = B(17059) -! JVS(51285) = Jac_FULL(5255,3000) - JVS(51285) = B(19701) -! JVS(51286) = Jac_FULL(5255,3001) - JVS(51286) = B(18128) -! JVS(51287) = Jac_FULL(5255,3002) - JVS(51287) = B(5094) -! JVS(51288) = Jac_FULL(5255,3004) - JVS(51288) = B(18612) -! JVS(51289) = Jac_FULL(5255,3009) - JVS(51289) = B(17874) -! JVS(51290) = Jac_FULL(5255,3013) - JVS(51290) = B(17637) -! JVS(51291) = Jac_FULL(5255,3015) - JVS(51291) = 0 -! JVS(51292) = Jac_FULL(5255,3018) - JVS(51292) = 0 -! JVS(51293) = Jac_FULL(5255,3022) - JVS(51293) = B(8733) -! JVS(51294) = Jac_FULL(5255,3028) - JVS(51294) = B(16132) -! JVS(51295) = Jac_FULL(5255,3032) - JVS(51295) = B(4443) -! JVS(51296) = Jac_FULL(5255,3033) - JVS(51296) = B(13619) -! JVS(51297) = Jac_FULL(5255,3037) - JVS(51297) = B(14636) -! JVS(51298) = Jac_FULL(5255,3038) - JVS(51298) = 0 -! JVS(51299) = Jac_FULL(5255,3039) - JVS(51299) = B(14628) -! JVS(51300) = Jac_FULL(5255,3041) - JVS(51300) = B(23801) -! JVS(51301) = Jac_FULL(5255,3043) - JVS(51301) = B(11404) -! JVS(51302) = Jac_FULL(5255,3044) - JVS(51302) = B(4363)+2*B(4365) -! JVS(51303) = Jac_FULL(5255,3046) - JVS(51303) = 0 -! JVS(51304) = Jac_FULL(5255,3048) - JVS(51304) = B(10682) -! JVS(51305) = Jac_FULL(5255,3054) - JVS(51305) = B(11559) -! JVS(51306) = Jac_FULL(5255,3055) - JVS(51306) = 0 -! JVS(51307) = Jac_FULL(5255,3057) - JVS(51307) = B(17612) -! JVS(51308) = Jac_FULL(5255,3059) - JVS(51308) = B(11665) -! JVS(51309) = Jac_FULL(5255,3064) - JVS(51309) = B(16560) -! JVS(51310) = Jac_FULL(5255,3066) - JVS(51310) = B(7230) -! JVS(51311) = Jac_FULL(5255,3071) - JVS(51311) = B(22293) -! JVS(51312) = Jac_FULL(5255,3072) - JVS(51312) = B(6597) -! JVS(51313) = Jac_FULL(5255,3079) - JVS(51313) = B(21138) -! JVS(51314) = Jac_FULL(5255,3080) - JVS(51314) = B(13883) -! JVS(51315) = Jac_FULL(5255,3082) - JVS(51315) = B(6122) -! JVS(51316) = Jac_FULL(5255,3083) - JVS(51316) = B(88) -! JVS(51317) = Jac_FULL(5255,3084) - JVS(51317) = B(661)+B(665) -! JVS(51318) = Jac_FULL(5255,3089) - JVS(51318) = B(5714) -! JVS(51319) = Jac_FULL(5255,3094) - JVS(51319) = B(15793) -! JVS(51320) = Jac_FULL(5255,3096) - JVS(51320) = B(623)+B(627) -! JVS(51321) = Jac_FULL(5255,3097) - JVS(51321) = B(693)+B(695) -! JVS(51322) = Jac_FULL(5255,3099) - JVS(51322) = B(4222) -! JVS(51323) = Jac_FULL(5255,3102) - JVS(51323) = 0 -! JVS(51324) = Jac_FULL(5255,3103) - JVS(51324) = B(5989) -! JVS(51325) = Jac_FULL(5255,3105) - JVS(51325) = B(643)+B(647) -! JVS(51326) = Jac_FULL(5255,3107) - JVS(51326) = B(9945)+2*B(9947) -! JVS(51327) = Jac_FULL(5255,3108) - JVS(51327) = 2*B(9942) -! JVS(51328) = Jac_FULL(5255,3113) - JVS(51328) = B(715)+B(717) -! JVS(51329) = Jac_FULL(5255,3115) - JVS(51329) = B(11075) -! JVS(51330) = Jac_FULL(5255,3121) - JVS(51330) = B(5214) -! JVS(51331) = Jac_FULL(5255,3122) - JVS(51331) = B(5893) -! JVS(51332) = Jac_FULL(5255,3129) - JVS(51332) = B(725)+B(727) -! JVS(51333) = Jac_FULL(5255,3130) - JVS(51333) = B(2905) -! JVS(51334) = Jac_FULL(5255,3131) - JVS(51334) = B(2500) -! JVS(51335) = Jac_FULL(5255,3132) - JVS(51335) = B(13261) -! JVS(51336) = Jac_FULL(5255,3134) - JVS(51336) = B(633)+B(637) -! JVS(51337) = Jac_FULL(5255,3135) - JVS(51337) = B(2543) -! JVS(51338) = Jac_FULL(5255,3136) - JVS(51338) = B(2568) -! JVS(51339) = Jac_FULL(5255,3138) - JVS(51339) = B(685)+B(687) -! JVS(51340) = Jac_FULL(5255,3139) - JVS(51340) = B(2745) -! JVS(51341) = Jac_FULL(5255,3144) - JVS(51341) = B(651)+B(655) -! JVS(51342) = Jac_FULL(5255,3145) - JVS(51342) = B(613)+B(617) -! JVS(51343) = Jac_FULL(5255,3147) - JVS(51343) = B(2998) -! JVS(51344) = Jac_FULL(5255,3149) - JVS(51344) = B(2612) -! JVS(51345) = Jac_FULL(5255,3154) - JVS(51345) = B(16483) -! JVS(51346) = Jac_FULL(5255,3155) - JVS(51346) = B(3117) -! JVS(51347) = Jac_FULL(5255,3157) - JVS(51347) = B(2392) -! JVS(51348) = Jac_FULL(5255,3158) - JVS(51348) = B(2456) -! JVS(51349) = Jac_FULL(5255,3160) - JVS(51349) = B(16683) -! JVS(51350) = Jac_FULL(5255,3164) - JVS(51350) = B(2873) -! JVS(51351) = Jac_FULL(5255,3169) - JVS(51351) = B(743)+B(747) -! JVS(51352) = Jac_FULL(5255,3171) - JVS(51352) = B(4378) -! JVS(51353) = Jac_FULL(5255,3172) - JVS(51353) = B(2655) -! JVS(51354) = Jac_FULL(5255,3174) - JVS(51354) = B(5805) -! JVS(51355) = Jac_FULL(5255,3176) - JVS(51355) = B(8971)+2*B(8973) -! JVS(51356) = Jac_FULL(5255,3177) - JVS(51356) = 2*B(8968) -! JVS(51357) = Jac_FULL(5255,3179) - JVS(51357) = B(673)+B(677) -! JVS(51358) = Jac_FULL(5255,3180) - JVS(51358) = B(2695) -! JVS(51359) = Jac_FULL(5255,3182) - JVS(51359) = B(735)+B(737) -! JVS(51360) = Jac_FULL(5255,3188) - JVS(51360) = 0 -! JVS(51361) = Jac_FULL(5255,3192) - JVS(51361) = B(705)+B(707) -! JVS(51362) = Jac_FULL(5255,3193) - JVS(51362) = B(2840) -! JVS(51363) = Jac_FULL(5255,3194) - JVS(51363) = B(10624) -! JVS(51364) = Jac_FULL(5255,3195) - JVS(51364) = B(9639) -! JVS(51365) = Jac_FULL(5255,3196) - JVS(51365) = B(15697) -! JVS(51366) = Jac_FULL(5255,3198) - JVS(51366) = 0 -! JVS(51367) = Jac_FULL(5255,3200) - JVS(51367) = B(10307)+B(10309) -! JVS(51368) = Jac_FULL(5255,3201) - JVS(51368) = B(16634) -! JVS(51369) = Jac_FULL(5255,3202) - JVS(51369) = B(2298) -! JVS(51370) = Jac_FULL(5255,3203) - JVS(51370) = B(11676) -! JVS(51371) = Jac_FULL(5255,3205) - JVS(51371) = 0 -! JVS(51372) = Jac_FULL(5255,3208) - JVS(51372) = 0 -! JVS(51373) = Jac_FULL(5255,3209) - JVS(51373) = B(15607) -! JVS(51374) = Jac_FULL(5255,3210) - JVS(51374) = B(5911) -! JVS(51375) = Jac_FULL(5255,3211) - JVS(51375) = B(21554) -! JVS(51376) = Jac_FULL(5255,3212) - JVS(51376) = 0 -! JVS(51377) = Jac_FULL(5255,3213) - JVS(51377) = B(22045) -! JVS(51378) = Jac_FULL(5255,3215) - JVS(51378) = B(20545) -! JVS(51379) = Jac_FULL(5255,3216) - JVS(51379) = B(20543) -! JVS(51380) = Jac_FULL(5255,3217) - JVS(51380) = B(21614) -! JVS(51381) = Jac_FULL(5255,3219) - JVS(51381) = 0 -! JVS(51382) = Jac_FULL(5255,3225) - JVS(51382) = B(12940) -! JVS(51383) = Jac_FULL(5255,3226) - JVS(51383) = B(13034) -! JVS(51384) = Jac_FULL(5255,3227) - JVS(51384) = B(9765) -! JVS(51385) = Jac_FULL(5255,3228) - JVS(51385) = 2*B(6842) -! JVS(51386) = Jac_FULL(5255,3230) - JVS(51386) = 2*B(12802) -! JVS(51387) = Jac_FULL(5255,3231) - JVS(51387) = 0 -! JVS(51388) = Jac_FULL(5255,3234) - JVS(51388) = B(10458) -! JVS(51389) = Jac_FULL(5255,3236) - JVS(51389) = B(20482) -! JVS(51390) = Jac_FULL(5255,3237) - JVS(51390) = B(18348)+B(18349) -! JVS(51391) = Jac_FULL(5255,3238) - JVS(51391) = B(9362) -! JVS(51392) = Jac_FULL(5255,3241) - JVS(51392) = B(10559) -! JVS(51393) = Jac_FULL(5255,3243) - JVS(51393) = 0 -! JVS(51394) = Jac_FULL(5255,3244) - JVS(51394) = 0 -! JVS(51395) = Jac_FULL(5255,3246) - JVS(51395) = B(9841) -! JVS(51396) = Jac_FULL(5255,3247) - JVS(51396) = B(19044) -! JVS(51397) = Jac_FULL(5255,3248) - JVS(51397) = B(22892) -! JVS(51398) = Jac_FULL(5255,3250) - JVS(51398) = B(18738) -! JVS(51399) = Jac_FULL(5255,3251) - JVS(51399) = B(9896) -! JVS(51400) = Jac_FULL(5255,3252) - JVS(51400) = B(8584) -! JVS(51401) = Jac_FULL(5255,3255) - JVS(51401) = B(7745) -! JVS(51402) = Jac_FULL(5255,3256) - JVS(51402) = 0 -! JVS(51403) = Jac_FULL(5255,3261) - JVS(51403) = 0 -! JVS(51404) = Jac_FULL(5255,3262) - JVS(51404) = B(10186)+B(10188) -! JVS(51405) = Jac_FULL(5255,3263) - JVS(51405) = 0 -! JVS(51406) = Jac_FULL(5255,3264) - JVS(51406) = B(9780) -! JVS(51407) = Jac_FULL(5255,3265) - JVS(51407) = 0 -! JVS(51408) = Jac_FULL(5255,3266) - JVS(51408) = 0 -! JVS(51409) = Jac_FULL(5255,3267) - JVS(51409) = B(21609) -! JVS(51410) = Jac_FULL(5255,3268) - JVS(51410) = B(5069) -! JVS(51411) = Jac_FULL(5255,3269) - JVS(51411) = B(8513) -! JVS(51412) = Jac_FULL(5255,3270) - JVS(51412) = B(21983) -! JVS(51413) = Jac_FULL(5255,3271) - JVS(51413) = B(10080) -! JVS(51414) = Jac_FULL(5255,3272) - JVS(51414) = B(20428) -! JVS(51415) = Jac_FULL(5255,3277) - JVS(51415) = 0 -! JVS(51416) = Jac_FULL(5255,3280) - JVS(51416) = 2*B(15556) -! JVS(51417) = Jac_FULL(5255,3283) - JVS(51417) = B(10234) -! JVS(51418) = Jac_FULL(5255,3284) - JVS(51418) = B(7744) -! JVS(51419) = Jac_FULL(5255,3285) - JVS(51419) = B(8721) -! JVS(51420) = Jac_FULL(5255,3286) - JVS(51420) = B(16608) -! JVS(51421) = Jac_FULL(5255,3287) - JVS(51421) = 0 -! JVS(51422) = Jac_FULL(5255,3289) - JVS(51422) = 0 -! JVS(51423) = Jac_FULL(5255,3291) - JVS(51423) = 0 -! JVS(51424) = Jac_FULL(5255,3294) - JVS(51424) = B(4224) -! JVS(51425) = Jac_FULL(5255,3296) - JVS(51425) = B(10200) -! JVS(51426) = Jac_FULL(5255,3297) - JVS(51426) = B(2147) -! JVS(51427) = Jac_FULL(5255,3299) - JVS(51427) = 0 -! JVS(51428) = Jac_FULL(5255,3301) - JVS(51428) = B(8463) -! JVS(51429) = Jac_FULL(5255,3302) - JVS(51429) = B(4860) -! JVS(51430) = Jac_FULL(5255,3304) - JVS(51430) = B(9695) -! JVS(51431) = Jac_FULL(5255,3308) - JVS(51431) = 0 -! JVS(51432) = Jac_FULL(5255,3309) - JVS(51432) = B(22390) -! JVS(51433) = Jac_FULL(5255,3310) - JVS(51433) = 0 -! JVS(51434) = Jac_FULL(5255,3313) - JVS(51434) = 0 -! JVS(51435) = Jac_FULL(5255,3322) - JVS(51435) = B(10005) -! JVS(51436) = Jac_FULL(5255,3323) - JVS(51436) = 0 -! JVS(51437) = Jac_FULL(5255,3325) - JVS(51437) = 2*B(12360) -! JVS(51438) = Jac_FULL(5255,3326) - JVS(51438) = B(11660) -! JVS(51439) = Jac_FULL(5255,3330) - JVS(51439) = B(4293) -! JVS(51440) = Jac_FULL(5255,3332) - JVS(51440) = B(6116)+B(6117) -! JVS(51441) = Jac_FULL(5255,3333) - JVS(51441) = B(4623) -! JVS(51442) = Jac_FULL(5255,3334) - JVS(51442) = B(11658) -! JVS(51443) = Jac_FULL(5255,3335) - JVS(51443) = B(17133) -! JVS(51444) = Jac_FULL(5255,3336) - JVS(51444) = B(19585) -! JVS(51445) = Jac_FULL(5255,3337) - JVS(51445) = B(22481) -! JVS(51446) = Jac_FULL(5255,3338) - JVS(51446) = B(20926) -! JVS(51447) = Jac_FULL(5255,3339) - JVS(51447) = B(9205) -! JVS(51448) = Jac_FULL(5255,3340) - JVS(51448) = B(9200) -! JVS(51449) = Jac_FULL(5255,3342) - JVS(51449) = B(5208)+B(5209) -! JVS(51450) = Jac_FULL(5255,3344) - JVS(51450) = B(13919)+B(13920) -! JVS(51451) = Jac_FULL(5255,3345) - JVS(51451) = B(10085) -! JVS(51452) = Jac_FULL(5255,3346) - JVS(51452) = B(14135) -! JVS(51453) = Jac_FULL(5255,3348) - JVS(51453) = B(21761) -! JVS(51454) = Jac_FULL(5255,3350) - JVS(51454) = B(16478) -! JVS(51455) = Jac_FULL(5255,3351) - JVS(51455) = B(4814) -! JVS(51456) = Jac_FULL(5255,3352) - JVS(51456) = B(9588) -! JVS(51457) = Jac_FULL(5255,3353) - JVS(51457) = B(9583) -! JVS(51458) = Jac_FULL(5255,3355) - JVS(51458) = B(23575) -! JVS(51459) = Jac_FULL(5255,3356) - JVS(51459) = B(9356) -! JVS(51460) = Jac_FULL(5255,3357) - JVS(51460) = B(9351) -! JVS(51461) = Jac_FULL(5255,3359) - JVS(51461) = B(9115) -! JVS(51462) = Jac_FULL(5255,3360) - JVS(51462) = B(9110) -! JVS(51463) = Jac_FULL(5255,3365) - JVS(51463) = B(22885) -! JVS(51464) = Jac_FULL(5255,3367) - JVS(51464) = B(7116) -! JVS(51465) = Jac_FULL(5255,3372) - JVS(51465) = B(5344) -! JVS(51466) = Jac_FULL(5255,3377) - JVS(51466) = B(4434) -! JVS(51467) = Jac_FULL(5255,3378) - JVS(51467) = B(8883) -! JVS(51468) = Jac_FULL(5255,3379) - JVS(51468) = B(8878) -! JVS(51469) = Jac_FULL(5255,3380) - JVS(51469) = B(16104) -! JVS(51470) = Jac_FULL(5255,3382) - JVS(51470) = B(12004) -! JVS(51471) = Jac_FULL(5255,3383) - JVS(51471) = B(4132) -! JVS(51472) = Jac_FULL(5255,3386) - JVS(51472) = B(3693) -! JVS(51473) = Jac_FULL(5255,3387) - JVS(51473) = B(14917)+B(14919) -! JVS(51474) = Jac_FULL(5255,3390) - JVS(51474) = B(17137) -! JVS(51475) = Jac_FULL(5255,3391) - JVS(51475) = B(21213) -! JVS(51476) = Jac_FULL(5255,3393) - JVS(51476) = B(12029) -! JVS(51477) = Jac_FULL(5255,3394) - JVS(51477) = 0 -! JVS(51478) = Jac_FULL(5255,3396) - JVS(51478) = B(15904) -! JVS(51479) = Jac_FULL(5255,3397) - JVS(51479) = B(22675) -! JVS(51480) = Jac_FULL(5255,3398) - JVS(51480) = B(11131) -! JVS(51481) = Jac_FULL(5255,3400) - JVS(51481) = B(20040) -! JVS(51482) = Jac_FULL(5255,3403) - JVS(51482) = B(6535)+B(6536) -! JVS(51483) = Jac_FULL(5255,3404) - JVS(51483) = B(4454) -! JVS(51484) = Jac_FULL(5255,3405) - JVS(51484) = 0 -! JVS(51485) = Jac_FULL(5255,3406) - JVS(51485) = B(20186) -! JVS(51486) = Jac_FULL(5255,3407) - JVS(51486) = B(15440) -! JVS(51487) = Jac_FULL(5255,3410) - JVS(51487) = B(23912) -! JVS(51488) = Jac_FULL(5255,3411) - JVS(51488) = B(10010) -! JVS(51489) = Jac_FULL(5255,3413) - JVS(51489) = B(10541)+B(10543) -! JVS(51490) = Jac_FULL(5255,3415) - JVS(51490) = B(14872) -! JVS(51491) = Jac_FULL(5255,3419) - JVS(51491) = B(13276) -! JVS(51492) = Jac_FULL(5255,3422) - JVS(51492) = B(3877)+B(3878) -! JVS(51493) = Jac_FULL(5255,3423) - JVS(51493) = B(16002) -! JVS(51494) = Jac_FULL(5255,3424) - JVS(51494) = B(23505) -! JVS(51495) = Jac_FULL(5255,3425) - JVS(51495) = B(21105) -! JVS(51496) = Jac_FULL(5255,3426) - JVS(51496) = B(9477) -! JVS(51497) = Jac_FULL(5255,3427) - JVS(51497) = B(9472) -! JVS(51498) = Jac_FULL(5255,3429) - JVS(51498) = B(4388) -! JVS(51499) = Jac_FULL(5255,3430) - JVS(51499) = B(23668) -! JVS(51500) = Jac_FULL(5255,3431) - JVS(51500) = B(22735) -! JVS(51501) = Jac_FULL(5255,3435) - JVS(51501) = 0 -! JVS(51502) = Jac_FULL(5255,3437) - JVS(51502) = B(9653) -! JVS(51503) = Jac_FULL(5255,3438) - JVS(51503) = B(9881) -! JVS(51504) = Jac_FULL(5255,3441) - JVS(51504) = B(13275) -! JVS(51505) = Jac_FULL(5255,3443) - JVS(51505) = B(16557)+B(16559) -! JVS(51506) = Jac_FULL(5255,3444) - JVS(51506) = B(3915) -! JVS(51507) = Jac_FULL(5255,3445) - JVS(51507) = 0 -! JVS(51508) = Jac_FULL(5255,3446) - JVS(51508) = B(12388) -! JVS(51509) = Jac_FULL(5255,3447) - JVS(51509) = 0 -! JVS(51510) = Jac_FULL(5255,3448) - JVS(51510) = 0 -! JVS(51511) = Jac_FULL(5255,3449) - JVS(51511) = 2*B(16623) -! JVS(51512) = Jac_FULL(5255,3450) - JVS(51512) = 2*B(12581)+B(12582) -! JVS(51513) = Jac_FULL(5255,3451) - JVS(51513) = B(10091)+B(10092) -! JVS(51514) = Jac_FULL(5255,3452) - JVS(51514) = B(9789) -! JVS(51515) = Jac_FULL(5255,3453) - JVS(51515) = 0 -! JVS(51516) = Jac_FULL(5255,3454) - JVS(51516) = B(16600) -! JVS(51517) = Jac_FULL(5255,3455) - JVS(51517) = 0 -! JVS(51518) = Jac_FULL(5255,3457) - JVS(51518) = B(10173) -! JVS(51519) = Jac_FULL(5255,3458) - JVS(51519) = B(12842) -! JVS(51520) = Jac_FULL(5255,3459) - JVS(51520) = 2*B(13514) -! JVS(51521) = Jac_FULL(5255,3460) - JVS(51521) = B(10295) -! JVS(51522) = Jac_FULL(5255,3462) - JVS(51522) = B(4308) -! JVS(51523) = Jac_FULL(5255,3463) - JVS(51523) = B(18486)+B(18487) -! JVS(51524) = Jac_FULL(5255,3467) - JVS(51524) = B(18419)+B(18420) -! JVS(51525) = Jac_FULL(5255,3468) - JVS(51525) = B(9211)+B(9213) -! JVS(51526) = Jac_FULL(5255,3469) - JVS(51526) = 2*B(8979) -! JVS(51527) = Jac_FULL(5255,3470) - JVS(51527) = B(16499) -! JVS(51528) = Jac_FULL(5255,3471) - JVS(51528) = B(15090) -! JVS(51529) = Jac_FULL(5255,3472) - JVS(51529) = B(6983) -! JVS(51530) = Jac_FULL(5255,3473) - JVS(51530) = 0 -! JVS(51531) = Jac_FULL(5255,3475) - JVS(51531) = B(12680) -! JVS(51532) = Jac_FULL(5255,3476) - JVS(51532) = B(11686)+B(11687) -! JVS(51533) = Jac_FULL(5255,3477) - JVS(51533) = B(21584) -! JVS(51534) = Jac_FULL(5255,3479) - JVS(51534) = B(2080) -! JVS(51535) = Jac_FULL(5255,3480) - JVS(51535) = B(23839) -! JVS(51536) = Jac_FULL(5255,3481) - JVS(51536) = -B(2547) -! JVS(51537) = Jac_FULL(5255,3482) - JVS(51537) = 0 -! JVS(51538) = Jac_FULL(5255,3483) - JVS(51538) = 2*B(13521)+B(13522)+B(13524) -! JVS(51539) = Jac_FULL(5255,3484) - JVS(51539) = B(18133) -! JVS(51540) = Jac_FULL(5255,3485) - JVS(51540) = B(16661) -! JVS(51541) = Jac_FULL(5255,3486) - JVS(51541) = B(9699) -! JVS(51542) = Jac_FULL(5255,3487) - JVS(51542) = B(9769) -! JVS(51543) = Jac_FULL(5255,3488) - JVS(51543) = B(10485) -! JVS(51544) = Jac_FULL(5255,3489) - JVS(51544) = -B(6405) -! JVS(51545) = Jac_FULL(5255,3490) - JVS(51545) = B(20514) -! JVS(51546) = Jac_FULL(5255,3491) - JVS(51546) = -B(5462) -! JVS(51547) = Jac_FULL(5255,3492) - JVS(51547) = -B(2761) -! JVS(51548) = Jac_FULL(5255,3493) - JVS(51548) = B(17961)+B(17962) -! JVS(51549) = Jac_FULL(5255,3494) - JVS(51549) = 0 -! JVS(51550) = Jac_FULL(5255,3495) - JVS(51550) = B(23357) -! JVS(51551) = Jac_FULL(5255,3496) - JVS(51551) = -B(6905) -! JVS(51552) = Jac_FULL(5255,3499) - JVS(51552) = 0 -! JVS(51553) = Jac_FULL(5255,3500) - JVS(51553) = B(20484)+B(20486) -! JVS(51554) = Jac_FULL(5255,3501) - JVS(51554) = B(16508) -! JVS(51555) = Jac_FULL(5255,3502) - JVS(51555) = B(14913) -! JVS(51556) = Jac_FULL(5255,3503) - JVS(51556) = -B(6258) -! JVS(51557) = Jac_FULL(5255,3504) - JVS(51557) = B(17878)+B(17879) -! JVS(51558) = Jac_FULL(5255,3506) - JVS(51558) = 0 -! JVS(51559) = Jac_FULL(5255,3507) - JVS(51559) = -B(2504) -! JVS(51560) = Jac_FULL(5255,3508) - JVS(51560) = 0 -! JVS(51561) = Jac_FULL(5255,3509) - JVS(51561) = -B(2460) -! JVS(51562) = Jac_FULL(5255,3510) - JVS(51562) = B(13951) -! JVS(51563) = Jac_FULL(5255,3511) - JVS(51563) = -B(6326) -! JVS(51564) = Jac_FULL(5255,3512) - JVS(51564) = 0 -! JVS(51565) = Jac_FULL(5255,3515) - JVS(51565) = B(14922)+B(14923) -! JVS(51566) = Jac_FULL(5255,3518) - JVS(51566) = -B(6048) -! JVS(51567) = Jac_FULL(5255,3520) - JVS(51567) = B(4348) -! JVS(51568) = Jac_FULL(5255,3521) - JVS(51568) = -B(2678) -! JVS(51569) = Jac_FULL(5255,3522) - JVS(51569) = B(17901)+B(17902) -! JVS(51570) = Jac_FULL(5255,3523) - JVS(51570) = -B(2417) -! JVS(51571) = Jac_FULL(5255,3524) - JVS(51571) = B(13768) -! JVS(51572) = Jac_FULL(5255,3525) - JVS(51572) = -B(2718) -! JVS(51573) = Jac_FULL(5255,3526) - JVS(51573) = B(16457) -! JVS(51574) = Jac_FULL(5255,3527) - JVS(51574) = -B(2877) -! JVS(51575) = Jac_FULL(5255,3531) - JVS(51575) = -B(5553) -! JVS(51576) = Jac_FULL(5255,3532) - JVS(51576) = B(20490) -! JVS(51577) = Jac_FULL(5255,3533) - JVS(51577) = B(7660) -! JVS(51578) = Jac_FULL(5255,3534) - JVS(51578) = -B(5646) -! JVS(51579) = Jac_FULL(5255,3537) - JVS(51579) = B(19651)+B(19652) -! JVS(51580) = Jac_FULL(5255,3538) - JVS(51580) = -B(5303) -! JVS(51581) = Jac_FULL(5255,3539) - JVS(51581) = -B(5857) -! JVS(51582) = Jac_FULL(5255,3540) - JVS(51582) = B(4127) -! JVS(51583) = Jac_FULL(5255,3543) - JVS(51583) = B(16041) -! JVS(51584) = Jac_FULL(5255,3544) - JVS(51584) = B(17931)+B(17932) -! JVS(51585) = Jac_FULL(5255,3545) - JVS(51585) = 0 -! JVS(51586) = Jac_FULL(5255,3546) - JVS(51586) = B(22221) -! JVS(51587) = Jac_FULL(5255,3547) - JVS(51587) = 2*B(3958) -! JVS(51588) = Jac_FULL(5255,3548) - JVS(51588) = B(17991)+B(17992) -! JVS(51589) = Jac_FULL(5255,3549) - JVS(51589) = B(16640) -! JVS(51590) = Jac_FULL(5255,3550) - JVS(51590) = B(16674) -! JVS(51591) = Jac_FULL(5255,3551) - JVS(51591) = 0 -! JVS(51592) = Jac_FULL(5255,3552) - JVS(51592) = B(13851) -! JVS(51593) = Jac_FULL(5255,3554) - JVS(51593) = -B(5777) -! JVS(51594) = Jac_FULL(5255,3555) - JVS(51594) = B(20489) -! JVS(51595) = Jac_FULL(5255,3557) - JVS(51595) = B(22447) -! JVS(51596) = Jac_FULL(5255,3559) - JVS(51596) = B(11076)+B(11078)+B(11079) -! JVS(51597) = Jac_FULL(5255,3560) - JVS(51597) = 0 -! JVS(51598) = Jac_FULL(5255,3562) - JVS(51598) = -B(5678) -! JVS(51599) = Jac_FULL(5255,3563) - JVS(51599) = B(21587) -! JVS(51600) = Jac_FULL(5255,3564) - JVS(51600) = B(14782) -! JVS(51601) = Jac_FULL(5255,3565) - JVS(51601) = B(16357) -! JVS(51602) = Jac_FULL(5255,3566) - JVS(51602) = B(7962) -! JVS(51603) = Jac_FULL(5255,3567) - JVS(51603) = B(9692) -! JVS(51604) = Jac_FULL(5255,3569) - JVS(51604) = B(9878) -! JVS(51605) = Jac_FULL(5255,3570) - JVS(51605) = B(10082) -! JVS(51606) = Jac_FULL(5255,3571) - JVS(51606) = B(19890)+B(19892) -! JVS(51607) = Jac_FULL(5255,3572) - JVS(51607) = B(4932) -! JVS(51608) = Jac_FULL(5255,3573) - JVS(51608) = B(8970) -! JVS(51609) = Jac_FULL(5255,3575) - JVS(51609) = B(5047) -! JVS(51610) = Jac_FULL(5255,3576) - JVS(51610) = B(8723) -! JVS(51611) = Jac_FULL(5255,3577) - JVS(51611) = B(4838) -! JVS(51612) = Jac_FULL(5255,3578) - JVS(51612) = B(16210) -! JVS(51613) = Jac_FULL(5255,3579) - JVS(51613) = B(18393) -! JVS(51614) = Jac_FULL(5255,3580) - JVS(51614) = B(14208) -! JVS(51615) = Jac_FULL(5255,3581) - JVS(51615) = B(10170) -! JVS(51616) = Jac_FULL(5255,3582) - JVS(51616) = B(12675)+B(12676) -! JVS(51617) = Jac_FULL(5255,3584) - JVS(51617) = B(9777) -! JVS(51618) = Jac_FULL(5255,3585) - JVS(51618) = B(4825) -! JVS(51619) = Jac_FULL(5255,3587) - JVS(51619) = 2*B(4249)+B(4250) -! JVS(51620) = Jac_FULL(5255,3588) - JVS(51620) = B(9353) -! JVS(51621) = Jac_FULL(5255,3589) - JVS(51621) = B(8880) -! JVS(51622) = Jac_FULL(5255,3590) - JVS(51622) = 2*B(12443) -! JVS(51623) = Jac_FULL(5255,3591) - JVS(51623) = B(20789) -! JVS(51624) = Jac_FULL(5255,3592) - JVS(51624) = B(5008) -! JVS(51625) = Jac_FULL(5255,3597) - JVS(51625) = B(18460) -! JVS(51626) = Jac_FULL(5255,3598) - JVS(51626) = B(4898) -! JVS(51627) = Jac_FULL(5255,3599) - JVS(51627) = B(5508)+B(5509) -! JVS(51628) = Jac_FULL(5255,3600) - JVS(51628) = B(10292) -! JVS(51629) = Jac_FULL(5255,3601) - JVS(51629) = B(21622)+B(21624) -! JVS(51630) = Jac_FULL(5255,3602) - JVS(51630) = B(11463)+B(11464) -! JVS(51631) = Jac_FULL(5255,3603) - JVS(51631) = 2*B(4080) -! JVS(51632) = Jac_FULL(5255,3604) - JVS(51632) = B(24025) -! JVS(51633) = Jac_FULL(5255,3605) - JVS(51633) = B(9202) -! JVS(51634) = Jac_FULL(5255,3606) - JVS(51634) = B(9944) -! JVS(51635) = Jac_FULL(5255,3608) - JVS(51635) = B(13574)+B(13576) -! JVS(51636) = Jac_FULL(5255,3610) - JVS(51636) = B(10007) -! JVS(51637) = Jac_FULL(5255,3611) - JVS(51637) = B(23360) -! JVS(51638) = Jac_FULL(5255,3612) - JVS(51638) = B(22758)+B(22760) -! JVS(51639) = Jac_FULL(5255,3613) - JVS(51639) = B(23051) -! JVS(51640) = Jac_FULL(5255,3614) - JVS(51640) = B(9112) -! JVS(51641) = Jac_FULL(5255,3615) - JVS(51641) = B(23841) -! JVS(51642) = Jac_FULL(5255,3616) - JVS(51642) = B(14125)+B(14126) -! JVS(51643) = Jac_FULL(5255,3618) - JVS(51643) = B(18802)+B(18804) -! JVS(51644) = Jac_FULL(5255,3620) - JVS(51644) = B(20507) -! JVS(51645) = Jac_FULL(5255,3621) - JVS(51645) = 0 -! JVS(51646) = Jac_FULL(5255,3622) - JVS(51646) = B(2717) -! JVS(51647) = Jac_FULL(5255,3623) - JVS(51647) = 0 -! JVS(51648) = Jac_FULL(5255,3624) - JVS(51648) = B(9889) -! JVS(51649) = Jac_FULL(5255,3625) - JVS(51649) = B(16577) -! JVS(51650) = Jac_FULL(5255,3626) - JVS(51650) = B(13923) -! JVS(51651) = Jac_FULL(5255,3627) - JVS(51651) = -B(5959) -! JVS(51652) = Jac_FULL(5255,3628) - JVS(51652) = B(13613) -! JVS(51653) = Jac_FULL(5255,3630) - JVS(51653) = B(10441) -! JVS(51654) = Jac_FULL(5255,3631) - JVS(51654) = -B(6483) -! JVS(51655) = Jac_FULL(5255,3632) - JVS(51655) = -B(6491) -! JVS(51656) = Jac_FULL(5255,3633) - JVS(51656) = B(23970) -! JVS(51657) = Jac_FULL(5255,3634) - JVS(51657) = -B(3088) -! JVS(51658) = Jac_FULL(5255,3635) - JVS(51658) = B(16587) -! JVS(51659) = Jac_FULL(5255,3636) - JVS(51659) = -B(3028) -! JVS(51660) = Jac_FULL(5255,3637) - JVS(51660) = -B(3159)-B(3161) -! JVS(51661) = Jac_FULL(5255,3639) - JVS(51661) = B(23618) -! JVS(51662) = Jac_FULL(5255,3640) - JVS(51662) = B(5487)+B(5488) -! JVS(51663) = Jac_FULL(5255,3641) - JVS(51663) = -B(6123) -! JVS(51664) = Jac_FULL(5255,3643) - JVS(51664) = B(5394)+B(5395) -! JVS(51665) = Jac_FULL(5255,3644) - JVS(51665) = B(12391)+B(12393) -! JVS(51666) = Jac_FULL(5255,3645) - JVS(51666) = B(6106)+B(6107) -! JVS(51667) = Jac_FULL(5255,3648) - JVS(51667) = -B(6133) -! JVS(51668) = Jac_FULL(5255,3649) - JVS(51668) = B(5673) -! JVS(51669) = Jac_FULL(5255,3650) - JVS(51669) = -B(6521) -! JVS(51670) = Jac_FULL(5255,3653) - JVS(51670) = B(3931) -! JVS(51671) = Jac_FULL(5255,3655) - JVS(51671) = B(6018)+B(6019) -! JVS(51672) = Jac_FULL(5255,3657) - JVS(51672) = B(5586)+B(5587) -! JVS(51673) = Jac_FULL(5255,3658) - JVS(51673) = -B(3037) -! JVS(51674) = Jac_FULL(5255,3659) - JVS(51674) = -B(6513) -! JVS(51675) = Jac_FULL(5255,3661) - JVS(51675) = B(5943)+B(5944) -! JVS(51676) = Jac_FULL(5255,3662) - JVS(51676) = B(14973) -! JVS(51677) = Jac_FULL(5255,3663) - JVS(51677) = -B(5947) -! JVS(51678) = Jac_FULL(5255,3664) - JVS(51678) = B(13062) -! JVS(51679) = Jac_FULL(5255,3665) - JVS(51679) = -B(6246) -! JVS(51680) = Jac_FULL(5255,3666) - JVS(51680) = 0 -! JVS(51681) = Jac_FULL(5255,3667) - JVS(51681) = -B(8224) -! JVS(51682) = Jac_FULL(5255,3668) - JVS(51682) = -B(19080) -! JVS(51683) = Jac_FULL(5255,3669) - JVS(51683) = -B(12346) -! JVS(51684) = Jac_FULL(5255,3670) - JVS(51684) = -B(3055) -! JVS(51685) = Jac_FULL(5255,3671) - JVS(51685) = -B(2321) -! JVS(51686) = Jac_FULL(5255,3672) - JVS(51686) = B(14910) -! JVS(51687) = Jac_FULL(5255,3673) - JVS(51687) = B(20108) -! JVS(51688) = Jac_FULL(5255,3674) - JVS(51688) = -B(8277) -! JVS(51689) = Jac_FULL(5255,3675) - JVS(51689) = -B(15862) -! JVS(51690) = Jac_FULL(5255,3676) - JVS(51690) = -B(10731) -! JVS(51691) = Jac_FULL(5255,3677) - JVS(51691) = -B(12653) -! JVS(51692) = Jac_FULL(5255,3678) - JVS(51692) = -B(8389) -! JVS(51693) = Jac_FULL(5255,3679) - JVS(51693) = -B(15752) -! JVS(51694) = Jac_FULL(5255,3680) - JVS(51694) = -B(16321) -! JVS(51695) = Jac_FULL(5255,3681) - JVS(51695) = B(20265)+B(20267) -! JVS(51696) = Jac_FULL(5255,3682) - JVS(51696) = B(14021) -! JVS(51697) = Jac_FULL(5255,3683) - JVS(51697) = B(14044)+B(14046) -! JVS(51698) = Jac_FULL(5255,3684) - JVS(51698) = 0 -! JVS(51699) = Jac_FULL(5255,3685) - JVS(51699) = -B(15508) -! JVS(51700) = Jac_FULL(5255,3686) - JVS(51700) = -B(20961) -! JVS(51701) = Jac_FULL(5255,3687) - JVS(51701) = -B(13395) -! JVS(51702) = Jac_FULL(5255,3688) - JVS(51702) = -B(8313) -! JVS(51703) = Jac_FULL(5255,3690) - JVS(51703) = -B(8378) -! JVS(51704) = Jac_FULL(5255,3691) - JVS(51704) = -B(8396) -! JVS(51705) = Jac_FULL(5255,3692) - JVS(51705) = -B(12477) -! JVS(51706) = Jac_FULL(5255,3693) - JVS(51706) = B(13688) -! JVS(51707) = Jac_FULL(5255,3694) - JVS(51707) = -B(22323) -! JVS(51708) = Jac_FULL(5255,3695) - JVS(51708) = -B(12667) -! JVS(51709) = Jac_FULL(5255,3696) - JVS(51709) = -B(12926) -! JVS(51710) = Jac_FULL(5255,3697) - JVS(51710) = -B(15669) -! JVS(51711) = Jac_FULL(5255,3698) - JVS(51711) = -B(22624) -! JVS(51712) = Jac_FULL(5255,3699) - JVS(51712) = -B(15515) -! JVS(51713) = Jac_FULL(5255,3700) - JVS(51713) = B(16667) -! JVS(51714) = Jac_FULL(5255,3701) - JVS(51714) = 0 -! JVS(51715) = Jac_FULL(5255,3702) - JVS(51715) = B(10181) -! JVS(51716) = Jac_FULL(5255,3703) - JVS(51716) = -B(20907) -! JVS(51717) = Jac_FULL(5255,3704) - JVS(51717) = -B(8407) -! JVS(51718) = Jac_FULL(5255,3705) - JVS(51718) = -B(12645) -! JVS(51719) = Jac_FULL(5255,3706) - JVS(51719) = -B(19213) -! JVS(51720) = Jac_FULL(5255,3707) - JVS(51720) = B(13668) -! JVS(51721) = Jac_FULL(5255,3709) - JVS(51721) = B(20223) -! JVS(51722) = Jac_FULL(5255,3710) - JVS(51722) = -B(19151) -! JVS(51723) = Jac_FULL(5255,3711) - JVS(51723) = -B(15958) -! JVS(51724) = Jac_FULL(5255,3712) - JVS(51724) = B(12362)+B(12363) -! JVS(51725) = Jac_FULL(5255,3713) - JVS(51725) = -B(12812) -! JVS(51726) = Jac_FULL(5255,3714) - JVS(51726) = -B(15759) -! JVS(51727) = Jac_FULL(5255,3715) - JVS(51727) = -B(22427) -! JVS(51728) = Jac_FULL(5255,3716) - JVS(51728) = B(3852) -! JVS(51729) = Jac_FULL(5255,3717) - JVS(51729) = -B(16863) -! JVS(51730) = Jac_FULL(5255,3718) - JVS(51730) = -B(8040) -! JVS(51731) = Jac_FULL(5255,3719) - JVS(51731) = -B(22820) -! JVS(51732) = Jac_FULL(5255,3720) - JVS(51732) = -B(14350) -! JVS(51733) = Jac_FULL(5255,3721) - JVS(51733) = -B(2330) -! JVS(51734) = Jac_FULL(5255,3722) - JVS(51734) = -B(22082) -! JVS(51735) = Jac_FULL(5255,3724) - JVS(51735) = -B(23773) -! JVS(51736) = Jac_FULL(5255,3725) - JVS(51736) = -B(13113) -! JVS(51737) = Jac_FULL(5255,3726) - JVS(51737) = B(13112) -! JVS(51738) = Jac_FULL(5255,3727) - JVS(51738) = -B(12828) -! JVS(51739) = Jac_FULL(5255,3728) - JVS(51739) = -B(12337) -! JVS(51740) = Jac_FULL(5255,3729) - JVS(51740) = B(19953) -! JVS(51741) = Jac_FULL(5255,3730) - JVS(51741) = -B(8306) -! JVS(51742) = Jac_FULL(5255,3731) - JVS(51742) = -B(8360) -! JVS(51743) = Jac_FULL(5255,3732) - JVS(51743) = B(20073) -! JVS(51744) = Jac_FULL(5255,3733) - JVS(51744) = -B(7342) -! JVS(51745) = Jac_FULL(5255,3735) - JVS(51745) = B(3772)+B(3774) -! JVS(51746) = Jac_FULL(5255,3736) - JVS(51746) = 0 -! JVS(51747) = Jac_FULL(5255,3737) - JVS(51747) = B(23117) -! JVS(51748) = Jac_FULL(5255,3738) - JVS(51748) = -B(16053) -! JVS(51749) = Jac_FULL(5255,3739) - JVS(51749) = -B(12629) -! JVS(51750) = Jac_FULL(5255,3740) - JVS(51750) = -B(15499) -! JVS(51751) = Jac_FULL(5255,3741) - JVS(51751) = -B(14289) -! JVS(51752) = Jac_FULL(5255,3742) - JVS(51752) = B(20023) -! JVS(51753) = Jac_FULL(5255,3743) - JVS(51753) = -B(23029) -! JVS(51754) = Jac_FULL(5255,3744) - JVS(51754) = B(7248) -! JVS(51755) = Jac_FULL(5255,3745) - JVS(51755) = -B(11039) -! JVS(51756) = Jac_FULL(5255,3746) - JVS(51756) = -B(20165) -! JVS(51757) = Jac_FULL(5255,3748) - JVS(51757) = B(18343) -! JVS(51758) = Jac_FULL(5255,3749) - JVS(51758) = -B(8324) -! JVS(51759) = Jac_FULL(5255,3750) - JVS(51759) = -B(22451) -! JVS(51760) = Jac_FULL(5255,3751) - JVS(51760) = -B(8342) -! JVS(51761) = Jac_FULL(5255,3752) - JVS(51761) = -B(12486) -! JVS(51762) = Jac_FULL(5255,3753) - JVS(51762) = -B(16383) -! JVS(51763) = Jac_FULL(5255,3754) - JVS(51763) = B(5596)+B(5597)+B(5598) -! JVS(51764) = Jac_FULL(5255,3755) - JVS(51764) = B(4067)+B(4069) -! JVS(51765) = Jac_FULL(5255,3756) - JVS(51765) = B(14142) -! JVS(51766) = Jac_FULL(5255,3758) - JVS(51766) = -B(7856) -! JVS(51767) = Jac_FULL(5255,3759) - JVS(51767) = B(12306) -! JVS(51768) = Jac_FULL(5255,3760) - JVS(51768) = -B(20653) -! JVS(51769) = Jac_FULL(5255,3761) - JVS(51769) = -B(19110) -! JVS(51770) = Jac_FULL(5255,3762) - JVS(51770) = -B(13020) -! JVS(51771) = Jac_FULL(5255,3763) - JVS(51771) = B(6615) -! JVS(51772) = Jac_FULL(5255,3764) - JVS(51772) = -B(21015) -! JVS(51773) = Jac_FULL(5255,3766) - JVS(51773) = -B(8371) -! JVS(51774) = Jac_FULL(5255,3767) - JVS(51774) = B(4885) -! JVS(51775) = Jac_FULL(5255,3768) - JVS(51775) = -B(8353) -! JVS(51776) = Jac_FULL(5255,3769) - JVS(51776) = -B(15819) -! JVS(51777) = Jac_FULL(5255,3770) - JVS(51777) = -B(16284) -! JVS(51778) = Jac_FULL(5255,3771) - JVS(51778) = -B(16232) -! JVS(51779) = Jac_FULL(5255,3772) - JVS(51779) = -B(12910) -! JVS(51780) = Jac_FULL(5255,3773) - JVS(51780) = B(18414) -! JVS(51781) = Jac_FULL(5255,3774) - JVS(51781) = -B(13004) -! JVS(51782) = Jac_FULL(5255,3775) - JVS(51782) = B(18481) -! JVS(51783) = Jac_FULL(5255,3776) - JVS(51783) = -B(2373) -! JVS(51784) = Jac_FULL(5255,3777) - JVS(51784) = B(15192) -! JVS(51785) = Jac_FULL(5255,3778) - JVS(51785) = -B(8114) -! JVS(51786) = Jac_FULL(5255,3779) - JVS(51786) = B(4553) -! JVS(51787) = Jac_FULL(5255,3780) - JVS(51787) = B(17657) -! JVS(51788) = Jac_FULL(5255,3781) - JVS(51788) = -B(8335) -! JVS(51789) = Jac_FULL(5255,3782) - JVS(51789) = -B(16328) -! JVS(51790) = Jac_FULL(5255,3783) - JVS(51790) = B(19906) -! JVS(51791) = Jac_FULL(5255,3784) - JVS(51791) = -B(11549) -! JVS(51792) = Jac_FULL(5255,3785) - JVS(51792) = -B(8260) -! JVS(51793) = Jac_FULL(5255,3786) - JVS(51793) = -B(5286) -! JVS(51794) = Jac_FULL(5255,3787) - JVS(51794) = B(20138) -! JVS(51795) = Jac_FULL(5255,3788) - JVS(51795) = -B(13411) -! JVS(51796) = Jac_FULL(5255,3789) - JVS(51796) = -B(20996) -! JVS(51797) = Jac_FULL(5255,3790) - JVS(51797) = -B(2949) -! JVS(51798) = Jac_FULL(5255,3791) - JVS(51798) = -B(6334) -! JVS(51799) = Jac_FULL(5255,3792) - JVS(51799) = B(15002) -! JVS(51800) = Jac_FULL(5255,3794) - JVS(51800) = -B(2657) -! JVS(51801) = Jac_FULL(5255,3795) - JVS(51801) = B(5882)+B(5883)+B(5884)+B(5885) -! JVS(51802) = Jac_FULL(5255,3796) - JVS(51802) = -B(5561) -! JVS(51803) = Jac_FULL(5255,3797) - JVS(51803) = -B(2801) -! JVS(51804) = Jac_FULL(5255,3798) - JVS(51804) = -B(2844) -! JVS(51805) = Jac_FULL(5255,3799) - JVS(51805) = -B(5765) -! JVS(51806) = Jac_FULL(5255,3800) - JVS(51806) = 2*B(12871) -! JVS(51807) = Jac_FULL(5255,3801) - JVS(51807) = -B(13755) -! JVS(51808) = Jac_FULL(5255,3802) - JVS(51808) = B(6354)+B(6355)+B(6356)+B(6357) -! JVS(51809) = Jac_FULL(5255,3803) - JVS(51809) = -B(2701) -! JVS(51810) = Jac_FULL(5255,3804) - JVS(51810) = -B(2614) -! JVS(51811) = Jac_FULL(5255,3805) - JVS(51811) = B(5794)+B(5795)+B(5796)+B(5797) -! JVS(51812) = Jac_FULL(5255,3806) - JVS(51812) = -B(3467) -! JVS(51813) = Jac_FULL(5255,3807) - JVS(51813) = -B(2591) -! JVS(51814) = Jac_FULL(5255,3808) - JVS(51814) = -B(5634) -! JVS(51815) = Jac_FULL(5255,3809) - JVS(51815) = B(4253) -! JVS(51816) = Jac_FULL(5255,3810) - JVS(51816) = -B(10203) -! JVS(51817) = Jac_FULL(5255,3811) - JVS(51817) = -B(2570) -! JVS(51818) = Jac_FULL(5255,3812) - JVS(51818) = B(5703)+B(5704)+B(5705)+B(5706) -! JVS(51819) = Jac_FULL(5255,3813) - JVS(51819) = -B(5686) -! JVS(51820) = Jac_FULL(5255,3814) - JVS(51820) = -B(9898) -! JVS(51821) = Jac_FULL(5255,3815) - JVS(51821) = -B(5865) -! JVS(51822) = Jac_FULL(5255,3816) - JVS(51822) = 2*B(12976) -! JVS(51823) = Jac_FULL(5255,3817) - JVS(51823) = -B(2920) -! JVS(51824) = Jac_FULL(5255,3818) - JVS(51824) = B(6437)+B(6438)+B(6439)+B(6440) -! JVS(51825) = Jac_FULL(5255,3819) - JVS(51825) = -B(2909) -! JVS(51826) = Jac_FULL(5255,3820) - JVS(51826) = -B(5450) -! JVS(51827) = Jac_FULL(5255,3822) - JVS(51827) = B(12047) -! JVS(51828) = Jac_FULL(5255,3823) - JVS(51828) = -B(2396) -! JVS(51829) = Jac_FULL(5255,3824) - JVS(51829) = B(5332)+B(5333)+B(5334)+B(5335)+B(5336) -! JVS(51830) = Jac_FULL(5255,3825) - JVS(51830) = -B(6393) -! JVS(51831) = Jac_FULL(5255,3826) - JVS(51831) = B(6278)+B(6279)+B(6280)+B(6281)+B(6282) -! JVS(51832) = Jac_FULL(5255,3827) - JVS(51832) = -B(5311) -! JVS(51833) = Jac_FULL(5255,3828) - JVS(51833) = -B(6036) -! JVS(51834) = Jac_FULL(5255,3829) - JVS(51834) = B(13183) -! JVS(51835) = Jac_FULL(5255,3830) - JVS(51835) = 0 -! JVS(51836) = Jac_FULL(5255,3831) - JVS(51836) = 0 -! JVS(51837) = Jac_FULL(5255,3832) - JVS(51837) = B(9730) -! JVS(51838) = Jac_FULL(5255,3833) - JVS(51838) = 2*B(2830)+B(2831) -! JVS(51839) = Jac_FULL(5255,3834) - JVS(51839) = 2*B(2446)+B(2447) -! JVS(51840) = Jac_FULL(5255,3835) - JVS(51840) = B(13607) -! JVS(51841) = Jac_FULL(5255,3836) - JVS(51841) = -B(3385) -! JVS(51842) = Jac_FULL(5255,3837) - JVS(51842) = -B(18943) -! JVS(51843) = Jac_FULL(5255,3838) - JVS(51843) = -B(21718) -! JVS(51844) = Jac_FULL(5255,3839) - JVS(51844) = -B(19354) -! JVS(51845) = Jac_FULL(5255,3840) - JVS(51845) = -B(17062) -! JVS(51846) = Jac_FULL(5255,3841) - JVS(51846) = -B(23168) -! JVS(51847) = Jac_FULL(5255,3842) - JVS(51847) = B(5164) -! JVS(51848) = Jac_FULL(5255,3844) - JVS(51848) = -B(14783) -! JVS(51849) = Jac_FULL(5255,3845) - JVS(51849) = -B(20799) -! JVS(51850) = Jac_FULL(5255,3846) - JVS(51850) = -B(22845) -! JVS(51851) = Jac_FULL(5255,3847) - JVS(51851) = -B(1379) -! JVS(51852) = Jac_FULL(5255,3848) - JVS(51852) = -B(23379) -! JVS(51853) = Jac_FULL(5255,3850) - JVS(51853) = -B(14417) -! JVS(51854) = Jac_FULL(5255,3851) - JVS(51854) = B(4582) -! JVS(51855) = Jac_FULL(5255,3852) - JVS(51855) = -B(7331) -! JVS(51856) = Jac_FULL(5255,3853) - JVS(51856) = -B(13387) -! JVS(51857) = Jac_FULL(5255,3854) - JVS(51857) = -B(8177) -! JVS(51858) = Jac_FULL(5255,3855) - JVS(51858) = -B(23477) -! JVS(51859) = Jac_FULL(5255,3856) - JVS(51859) = B(4636) -! JVS(51860) = Jac_FULL(5255,3857) - JVS(51860) = B(11842) -! JVS(51861) = Jac_FULL(5255,3858) - JVS(51861) = -B(20673) -! JVS(51862) = Jac_FULL(5255,3859) - JVS(51862) = -B(8199) -! JVS(51863) = Jac_FULL(5255,3860) - JVS(51863) = -B(12853) -! JVS(51864) = Jac_FULL(5255,3861) - JVS(51864) = 2*B(19001) -! JVS(51865) = Jac_FULL(5255,3862) - JVS(51865) = B(20813) -! JVS(51866) = Jac_FULL(5255,3863) - JVS(51866) = -B(3533) -! JVS(51867) = Jac_FULL(5255,3864) - JVS(51867) = -B(18920) -! JVS(51868) = Jac_FULL(5255,3865) - JVS(51868) = -B(6883) -! JVS(51869) = Jac_FULL(5255,3866) - JVS(51869) = -B(2989) -! JVS(51870) = Jac_FULL(5255,3867) - JVS(51870) = -B(3543) -! JVS(51871) = Jac_FULL(5255,3869) - JVS(51871) = -B(8084) -! JVS(51872) = Jac_FULL(5255,3870) - JVS(51872) = -B(8018) -! JVS(51873) = Jac_FULL(5255,3871) - JVS(51873) = -B(15245) -! JVS(51874) = Jac_FULL(5255,3872) - JVS(51874) = -B(14520) -! JVS(51875) = Jac_FULL(5255,3873) - JVS(51875) = -B(8147) -! JVS(51876) = Jac_FULL(5255,3874) - JVS(51876) = -B(23766) -! JVS(51877) = Jac_FULL(5255,3875) - JVS(51877) = B(4525) -! JVS(51878) = Jac_FULL(5255,3876) - JVS(51878) = -B(14401) -! JVS(51879) = Jac_FULL(5255,3877) - JVS(51879) = B(4681) -! JVS(51880) = Jac_FULL(5255,3878) - JVS(51880) = B(4920) -! JVS(51881) = Jac_FULL(5255,3879) - JVS(51881) = B(7215) -! JVS(51882) = Jac_FULL(5255,3880) - JVS(51882) = -B(15396) -! JVS(51883) = Jac_FULL(5255,3881) - JVS(51883) = -B(15312) -! JVS(51884) = Jac_FULL(5255,3882) - JVS(51884) = -B(23866) -! JVS(51885) = Jac_FULL(5255,3883) - JVS(51885) = -B(11298) -! JVS(51886) = Jac_FULL(5255,3884) - JVS(51886) = -B(1423) -! JVS(51887) = Jac_FULL(5255,3885) - JVS(51887) = -B(7996) -! JVS(51888) = Jac_FULL(5255,3886) - JVS(51888) = -B(14744) -! JVS(51889) = Jac_FULL(5255,3887) - JVS(51889) = B(5034) -! JVS(51890) = Jac_FULL(5255,3888) - JVS(51890) = -B(8561) -! JVS(51891) = Jac_FULL(5255,3889) - JVS(51891) = -B(8169) -! JVS(51892) = Jac_FULL(5255,3890) - JVS(51892) = -B(19466) -! JVS(51893) = Jac_FULL(5255,3891) - JVS(51893) = -B(3564) -! JVS(51894) = Jac_FULL(5255,3892) - JVS(51894) = B(3973) -! JVS(51895) = Jac_FULL(5255,3893) - JVS(51895) = -B(7985) -! JVS(51896) = Jac_FULL(5255,3894) - JVS(51896) = -B(1846) -! JVS(51897) = Jac_FULL(5255,3895) - JVS(51897) = -B(22546) -! JVS(51898) = Jac_FULL(5255,3896) - JVS(51898) = B(18687) -! JVS(51899) = Jac_FULL(5255,3897) - JVS(51899) = B(12245) -! JVS(51900) = Jac_FULL(5255,3898) - JVS(51900) = -B(3620) -! JVS(51901) = Jac_FULL(5255,3899) - JVS(51901) = -B(22172) -! JVS(51902) = Jac_FULL(5255,3900) - JVS(51902) = B(6989) -! JVS(51903) = Jac_FULL(5255,3901) - JVS(51903) = -B(14719) -! JVS(51904) = Jac_FULL(5255,3902) - JVS(51904) = -B(22747) -! JVS(51905) = Jac_FULL(5255,3903) - JVS(51905) = -B(5272) -! JVS(51906) = Jac_FULL(5255,3904) - JVS(51906) = B(12330) -! JVS(51907) = Jac_FULL(5255,3905) - JVS(51907) = -B(16880) -! JVS(51908) = Jac_FULL(5255,3907) - JVS(51908) = -B(14488) -! JVS(51909) = Jac_FULL(5255,3908) - JVS(51909) = -B(22583) -! JVS(51910) = Jac_FULL(5255,3909) - JVS(51910) = B(12278) -! JVS(51911) = Jac_FULL(5255,3910) - JVS(51911) = B(5152) -! JVS(51912) = Jac_FULL(5255,3911) - JVS(51912) = B(18211) -! JVS(51913) = Jac_FULL(5255,3912) - JVS(51913) = -B(15200) -! JVS(51914) = Jac_FULL(5255,3913) - JVS(51914) = B(22417) -! JVS(51915) = Jac_FULL(5255,3914) - JVS(51915) = B(18199) -! JVS(51916) = Jac_FULL(5255,3915) - JVS(51916) = B(14946) -! JVS(51917) = Jac_FULL(5255,3916) - JVS(51917) = -B(15368) -! JVS(51918) = Jac_FULL(5255,3917) - JVS(51918) = B(12081) -! JVS(51919) = Jac_FULL(5255,3918) - JVS(51919) = B(13245)+B(13247) -! JVS(51920) = Jac_FULL(5255,3919) - JVS(51920) = -B(15340) -! JVS(51921) = Jac_FULL(5255,3920) - JVS(51921) = -B(14818) -! JVS(51922) = Jac_FULL(5255,3921) - JVS(51922) = -B(3428) -! JVS(51923) = Jac_FULL(5255,3922) - JVS(51923) = B(4987) -! JVS(51924) = Jac_FULL(5255,3923) - JVS(51924) = B(11734) -! JVS(51925) = Jac_FULL(5255,3924) - JVS(51925) = B(4653) -! JVS(51926) = Jac_FULL(5255,3925) - JVS(51926) = B(5108) -! JVS(51927) = Jac_FULL(5255,3926) - JVS(51927) = -B(10887) -! JVS(51928) = Jac_FULL(5255,3927) - JVS(51928) = -B(14530) -! JVS(51929) = Jac_FULL(5255,3928) - JVS(51929) = -B(14729) -! JVS(51930) = Jac_FULL(5255,3929) - JVS(51930) = B(4310) -! JVS(51931) = Jac_FULL(5255,3930) - JVS(51931) = B(12577) -! JVS(51932) = Jac_FULL(5255,3931) - JVS(51932) = B(12574) -! JVS(51933) = Jac_FULL(5255,3932) - JVS(51933) = -B(7974) -! JVS(51934) = Jac_FULL(5255,3934) - JVS(51934) = B(4855) -! JVS(51935) = Jac_FULL(5255,3935) - JVS(51935) = 2*B(11482) -! JVS(51936) = Jac_FULL(5255,3936) - JVS(51936) = -B(3438) -! JVS(51937) = Jac_FULL(5255,3937) - JVS(51937) = -B(20158) -! JVS(51938) = Jac_FULL(5255,3938) - JVS(51938) = 2*B(21141) -! JVS(51939) = Jac_FULL(5255,3939) - JVS(51939) = -B(10444) -! JVS(51940) = Jac_FULL(5255,3940) - JVS(51940) = -B(3521) -! JVS(51941) = Jac_FULL(5255,3941) - JVS(51941) = -B(15207) -! JVS(51942) = Jac_FULL(5255,3942) - JVS(51942) = B(4846) -! JVS(51943) = Jac_FULL(5255,3943) - JVS(51943) = -B(3407) -! JVS(51944) = Jac_FULL(5255,3944) - JVS(51944) = -B(8095) -! JVS(51945) = Jac_FULL(5255,3945) - JVS(51945) = -B(13103) -! JVS(51946) = Jac_FULL(5255,3946) - JVS(51946) = B(12064) -! JVS(51947) = Jac_FULL(5255,3947) - JVS(51947) = B(16979) -! JVS(51948) = Jac_FULL(5255,3948) - JVS(51948) = -B(15128) -! JVS(51949) = Jac_FULL(5255,3949) - JVS(51949) = -B(20865) -! JVS(51950) = Jac_FULL(5255,3950) - JVS(51950) = -B(20874) -! JVS(51951) = Jac_FULL(5255,3951) - JVS(51951) = -B(21109) -! JVS(51952) = Jac_FULL(5255,3952) - JVS(51952) = -B(8414) -! JVS(51953) = Jac_FULL(5255,3953) - JVS(51953) = -B(13045) -! JVS(51954) = Jac_FULL(5255,3954) - JVS(51954) = -B(16856) -! JVS(51955) = Jac_FULL(5255,3955) - JVS(51955) = -B(14244) -! JVS(51956) = Jac_FULL(5255,3956) - JVS(51956) = B(4978) -! JVS(51957) = Jac_FULL(5255,3957) - JVS(51957) = B(22644) -! JVS(51958) = Jac_FULL(5255,3958) - JVS(51958) = B(23965) -! JVS(51959) = Jac_FULL(5255,3959) - JVS(51959) = B(3679)+B(3681) -! JVS(51960) = Jac_FULL(5255,3960) - JVS(51960) = B(23931) -! JVS(51961) = Jac_FULL(5255,3961) - JVS(51961) = -B(8051) -! JVS(51962) = Jac_FULL(5255,3962) - JVS(51962) = -B(19329) -! JVS(51963) = Jac_FULL(5255,3963) - JVS(51963) = -B(3609) -! JVS(51964) = Jac_FULL(5255,3964) - JVS(51964) = -B(8532) -! JVS(51965) = Jac_FULL(5255,3965) - JVS(51965) = B(13157) -! JVS(51966) = Jac_FULL(5255,3966) - JVS(51966) = -B(14828) -! JVS(51967) = Jac_FULL(5255,3967) - JVS(51967) = -B(8062) -! JVS(51968) = Jac_FULL(5255,3968) - JVS(51968) = B(20245) -! JVS(51969) = Jac_FULL(5255,3969) - JVS(51969) = -B(14508) -! JVS(51970) = Jac_FULL(5255,3970) - JVS(51970) = B(5080) -! JVS(51971) = Jac_FULL(5255,3971) - JVS(51971) = -B(3599) -! JVS(51972) = Jac_FULL(5255,3972) - JVS(51972) = B(18977) -! JVS(51973) = Jac_FULL(5255,3973) - JVS(51973) = -B(12951) -! JVS(51974) = Jac_FULL(5255,3974) - JVS(51974) = -B(22555) -! JVS(51975) = Jac_FULL(5255,3975) - JVS(51975) = -B(13095) -! JVS(51976) = Jac_FULL(5255,3976) - JVS(51976) = -B(21660) -! JVS(51977) = Jac_FULL(5255,3977) - JVS(51977) = -B(15291) -! JVS(51978) = Jac_FULL(5255,3979) - JVS(51978) = -B(7737) -! JVS(51979) = Jac_FULL(5255,3980) - JVS(51979) = -B(6854) -! JVS(51980) = Jac_FULL(5255,3981) - JVS(51980) = -B(14374) -! JVS(51981) = Jac_FULL(5255,3982) - JVS(51981) = -B(7353) -! JVS(51982) = Jac_FULL(5255,3983) - JVS(51982) = -B(16060) -! JVS(51983) = Jac_FULL(5255,3984) - JVS(51983) = -B(21676) -! JVS(51984) = Jac_FULL(5255,3985) - JVS(51984) = -B(17076) -! JVS(51985) = Jac_FULL(5255,3986) - JVS(51985) = B(11981) -! JVS(51986) = Jac_FULL(5255,3987) - JVS(51986) = -B(3000) -! JVS(51987) = Jac_FULL(5255,3988) - JVS(51987) = -B(11275) -! JVS(51988) = Jac_FULL(5255,3989) - JVS(51988) = -B(8125) -! JVS(51989) = Jac_FULL(5255,3990) - JVS(51989) = -B(11333) -! JVS(51990) = Jac_FULL(5255,3991) - JVS(51990) = 2*B(11507) -! JVS(51991) = Jac_FULL(5255,3992) - JVS(51991) = -B(17439) -! JVS(51992) = Jac_FULL(5255,3993) - JVS(51992) = 2*B(4303)+B(4304) -! JVS(51993) = Jac_FULL(5255,3994) - JVS(51993) = -B(3554) -! JVS(51994) = Jac_FULL(5255,3995) - JVS(51994) = B(4175) -! JVS(51995) = Jac_FULL(5255,3996) - JVS(51995) = B(2799)+B(2800) -! JVS(51996) = Jac_FULL(5255,3997) - JVS(51996) = -B(12985) -! JVS(51997) = Jac_FULL(5255,3998) - JVS(51997) = -B(20434)-B(20436) -! JVS(51998) = Jac_FULL(5255,3999) - JVS(51998) = -B(15944) -! JVS(51999) = Jac_FULL(5255,4000) - JVS(51999) = -B(9717) -! JVS(52000) = Jac_FULL(5255,4001) - JVS(52000) = -B(9231) -! JVS(52001) = Jac_FULL(5255,4002) - JVS(52001) = -B(12760) -! JVS(52002) = Jac_FULL(5255,4003) - JVS(52002) = -B(2471) -! JVS(52003) = Jac_FULL(5255,4004) - JVS(52003) = B(5497)+B(5498)+B(5499)+B(5500)+B(5501) -! JVS(52004) = Jac_FULL(5255,4005) - JVS(52004) = -B(9174) -! JVS(52005) = Jac_FULL(5255,4006) - JVS(52005) = -B(15655) -! JVS(52006) = Jac_FULL(5255,4007) - JVS(52006) = -B(13199) -! JVS(52007) = Jac_FULL(5255,4008) - JVS(52007) = -B(10031) -! JVS(52008) = Jac_FULL(5255,4009) - JVS(52008) = -B(9744) -! JVS(52009) = Jac_FULL(5255,4010) - JVS(52009) = B(2415)+B(2416) -! JVS(52010) = Jac_FULL(5255,4011) - JVS(52010) = -B(15745) -! JVS(52011) = Jac_FULL(5255,4012) - JVS(52011) = B(9241)+B(9242) -! JVS(52012) = Jac_FULL(5255,4013) - JVS(52012) = -B(20052)+B(20056)+B(20060)+B(20062) -! JVS(52013) = Jac_FULL(5255,4014) - JVS(52013) = B(12720)+B(12722) -! JVS(52014) = Jac_FULL(5255,4015) - JVS(52014) = -B(17432) -! JVS(52015) = Jac_FULL(5255,4016) - JVS(52015) = -B(9392) -! JVS(52016) = Jac_FULL(5255,4017) - JVS(52016) = B(2987)+B(2988) -! JVS(52017) = Jac_FULL(5255,4018) - JVS(52017) = B(2939)+B(2940) -! JVS(52018) = Jac_FULL(5255,4019) - JVS(52018) = -B(21910) -! JVS(52019) = Jac_FULL(5255,4020) - JVS(52019) = -B(9268) -! JVS(52020) = Jac_FULL(5255,4021) - JVS(52020) = -B(16046) -! JVS(52021) = Jac_FULL(5255,4022) - JVS(52021) = -B(15528) -! JVS(52022) = Jac_FULL(5255,4023) - JVS(52022) = -B(13074) -! JVS(52023) = Jac_FULL(5255,4024) - JVS(52023) = B(15553) -! JVS(52024) = Jac_FULL(5255,4025) - JVS(52024) = -B(15812) -! JVS(52025) = Jac_FULL(5255,4026) - JVS(52025) = -B(21371)+B(21375)+B(21379)+B(21381) -! JVS(52026) = Jac_FULL(5255,4027) - JVS(52026) = B(2759)+B(2760) -! JVS(52027) = Jac_FULL(5255,4028) - JVS(52027) = -B(2428) -! JVS(52028) = Jac_FULL(5255,4029) - JVS(52028) = B(12936) -! JVS(52029) = Jac_FULL(5255,4030) - JVS(52029) = -B(9371) -! JVS(52030) = Jac_FULL(5255,4031) - JVS(52030) = -B(15933) -! JVS(52031) = Jac_FULL(5255,4032) - JVS(52031) = B(2589)+B(2590) -! JVS(52032) = Jac_FULL(5255,4033) - JVS(52032) = -B(12601) -! JVS(52033) = Jac_FULL(5255,4034) - JVS(52033) = -B(16139) -! JVS(52034) = Jac_FULL(5255,4035) - JVS(52034) = -B(13324) -! JVS(52035) = Jac_FULL(5255,4036) - JVS(52035) = -B(15848) -! JVS(52036) = Jac_FULL(5255,4037) - JVS(52036) = -B(9629) -! JVS(52037) = Jac_FULL(5255,4038) - JVS(52037) = -B(9032) -! JVS(52038) = Jac_FULL(5255,4039) - JVS(52038) = -B(15805) -! JVS(52039) = Jac_FULL(5255,4040) - JVS(52039) = -B(16270) -! JVS(52040) = Jac_FULL(5255,4041) - JVS(52040) = -B(9811) -! JVS(52041) = Jac_FULL(5255,4042) - JVS(52041) = -B(17446) -! JVS(52042) = Jac_FULL(5255,4043) - JVS(52042) = -B(17310) -! JVS(52043) = Jac_FULL(5255,4044) - JVS(52043) = -B(16218) -! JVS(52044) = Jac_FULL(5255,4045) - JVS(52044) = B(9278)+B(9279) -! JVS(52045) = Jac_FULL(5255,4046) - JVS(52045) = -B(20076)+B(20078)+B(20082)+B(20084) -! JVS(52046) = Jac_FULL(5255,4047) - JVS(52046) = B(12784) -! JVS(52047) = Jac_FULL(5255,4049) - JVS(52047) = -B(12434) -! JVS(52048) = Jac_FULL(5255,4050) - JVS(52048) = -B(13437) -! JVS(52049) = Jac_FULL(5255,4051) - JVS(52049) = -B(10212)-B(10214) -! JVS(52050) = Jac_FULL(5255,4052) - JVS(52050) = -B(20297) -! JVS(52051) = Jac_FULL(5255,4053) - JVS(52051) = B(15429)+B(15431) -! JVS(52052) = Jac_FULL(5255,4054) - JVS(52052) = -B(13296) -! JVS(52053) = Jac_FULL(5255,4055) - JVS(52053) = -B(2772) -! JVS(52054) = Jac_FULL(5255,4056) - JVS(52054) = B(2490)+B(2491) -! JVS(52055) = Jac_FULL(5255,4057) - JVS(52055) = -B(12793) -! JVS(52056) = Jac_FULL(5255,4058) - JVS(52056) = -B(15150) -! JVS(52057) = Jac_FULL(5255,4059) - JVS(52057) = -B(20884) -! JVS(52058) = Jac_FULL(5255,4060) - JVS(52058) = -B(10720) -! JVS(52059) = Jac_FULL(5255,4061) - JVS(52059) = -B(16314) -! JVS(52060) = Jac_FULL(5255,4062) - JVS(52060) = B(12837) -! JVS(52061) = Jac_FULL(5255,4063) - JVS(52061) = -B(9499) -! JVS(52062) = Jac_FULL(5255,4064) - JVS(52062) = -B(13355) -! JVS(52063) = Jac_FULL(5255,4065) - JVS(52063) = -B(12887) -! JVS(52064) = Jac_FULL(5255,4066) - JVS(52064) = B(16582)+B(16584) -! JVS(52065) = Jac_FULL(5255,4067) - JVS(52065) = -B(15468) -! JVS(52066) = Jac_FULL(5255,4068) - JVS(52066) = -B(2635) -! JVS(52067) = Jac_FULL(5255,4069) - JVS(52067) = -B(12958) -! JVS(52068) = Jac_FULL(5255,4070) - JVS(52068) = -B(10130) -! JVS(52069) = Jac_FULL(5255,4071) - JVS(52069) = B(12495) -! JVS(52070) = Jac_FULL(5255,4072) - JVS(52070) = -B(16369) -! JVS(52071) = Jac_FULL(5255,4073) - JVS(52071) = -B(12713) -! JVS(52072) = Jac_FULL(5255,4074) - JVS(52072) = -B(2812) -! JVS(52073) = Jac_FULL(5255,4075) - JVS(52073) = -B(9133) -! JVS(52074) = Jac_FULL(5255,4076) - JVS(52074) = -B(15855) -! JVS(52075) = Jac_FULL(5255,4077) - JVS(52075) = -B(19184) -! JVS(52076) = Jac_FULL(5255,4078) - JVS(52076) = -B(11164) -! JVS(52077) = Jac_FULL(5255,4079) - JVS(52077) = -B(12405) -! JVS(52078) = Jac_FULL(5255,4080) - JVS(52078) = B(2863)+B(2864) -! JVS(52079) = Jac_FULL(5255,4081) - JVS(52079) = B(5731) -! JVS(52080) = Jac_FULL(5255,4082) - JVS(52080) = -B(9972) -! JVS(52081) = Jac_FULL(5255,4083) - JVS(52081) = B(2533)+B(2534) -! JVS(52082) = Jac_FULL(5255,4084) - JVS(52082) = B(5361) -! JVS(52083) = Jac_FULL(5255,4085) - JVS(52083) = -B(10111) -! JVS(52084) = Jac_FULL(5255,4086) - JVS(52084) = B(13029) -! JVS(52085) = Jac_FULL(5255,4087) - JVS(52085) = -B(6874) -! JVS(52086) = Jac_FULL(5255,4088) - JVS(52086) = -B(14754) -! JVS(52087) = Jac_FULL(5255,4089) - JVS(52087) = -B(11102) -! JVS(52088) = Jac_FULL(5255,4090) - JVS(52088) = -B(3511) -! JVS(52089) = Jac_FULL(5255,4091) - JVS(52089) = -B(3449) -! JVS(52090) = Jac_FULL(5255,4092) - JVS(52090) = -B(14315) -! JVS(52091) = Jac_FULL(5255,4093) - JVS(52091) = B(2676)+B(2677) -! JVS(52092) = Jac_FULL(5255,4094) - JVS(52092) = B(2633)+B(2634) -! JVS(52093) = Jac_FULL(5255,4095) - JVS(52093) = -B(10894) -! JVS(52094) = Jac_FULL(5255,4096) - JVS(52094) = 0 -! JVS(52095) = Jac_FULL(5255,4097) - JVS(52095) = -B(3459) -! JVS(52096) = Jac_FULL(5255,4098) - JVS(52096) = -B(21965) -! JVS(52097) = Jac_FULL(5255,4099) - JVS(52097) = -B(1889) -! JVS(52098) = Jac_FULL(5255,4100) - JVS(52098) = -B(9160)-B(9162)-B(9164) -! JVS(52099) = Jac_FULL(5255,4101) - JVS(52099) = -B(18255) -! JVS(52100) = Jac_FULL(5255,4102) - JVS(52100) = -B(21388)-B(21390) -! JVS(52101) = Jac_FULL(5255,4103) - JVS(52101) = B(12099) -! JVS(52102) = Jac_FULL(5255,4104) - JVS(52102) = B(21725) -! JVS(52103) = Jac_FULL(5255,4105) - JVS(52103) = -B(10989) -! JVS(52104) = Jac_FULL(5255,4106) - JVS(52104) = -B(16780) -! JVS(52105) = Jac_FULL(5255,4107) - JVS(52105) = 0 -! JVS(52106) = Jac_FULL(5255,4108) - JVS(52106) = B(4903) -! JVS(52107) = Jac_FULL(5255,4109) - JVS(52107) = B(10710) -! JVS(52108) = Jac_FULL(5255,4110) - JVS(52108) = B(11859) -! JVS(52109) = Jac_FULL(5255,4111) - JVS(52109) = -B(3066) -! JVS(52110) = Jac_FULL(5255,4112) - JVS(52110) = -B(2062) -! JVS(52111) = Jac_FULL(5255,4113) - JVS(52111) = 0 -! JVS(52112) = Jac_FULL(5255,4114) - JVS(52112) = B(5015) -! JVS(52113) = Jac_FULL(5255,4115) - JVS(52113) = -B(23711) -! JVS(52114) = Jac_FULL(5255,4116) - JVS(52114) = -B(23824) -! JVS(52115) = Jac_FULL(5255,4117) - JVS(52115) = -B(23366) -! JVS(52116) = Jac_FULL(5255,4118) - JVS(52116) = -B(10948) -! JVS(52117) = Jac_FULL(5255,4119) - JVS(52117) = -B(19141) -! JVS(52118) = Jac_FULL(5255,4120) - JVS(52118) = -B(23408) -! JVS(52119) = Jac_FULL(5255,4121) - JVS(52119) = -B(1803) -! JVS(52120) = Jac_FULL(5255,4122) - JVS(52120) = B(12117) -! JVS(52121) = Jac_FULL(5255,4123) - JVS(52121) = -B(20500) -! JVS(52122) = Jac_FULL(5255,4124) - JVS(52122) = -B(14224) -! JVS(52123) = Jac_FULL(5255,4125) - JVS(52123) = B(12696) -! JVS(52124) = Jac_FULL(5255,4126) - JVS(52124) = -B(10864) -! JVS(52125) = Jac_FULL(5255,4127) - JVS(52125) = -B(10751)-B(10753) -! JVS(52126) = Jac_FULL(5255,4128) - JVS(52126) = -B(15068) -! JVS(52127) = Jac_FULL(5255,4129) - JVS(52127) = -B(18742) -! JVS(52128) = Jac_FULL(5255,4130) - JVS(52128) = -B(22676) -! JVS(52129) = Jac_FULL(5255,4131) - JVS(52129) = -B(22401) -! JVS(52130) = Jac_FULL(5255,4132) - JVS(52130) = -B(6288)-B(6290)-B(6292) -! JVS(52131) = Jac_FULL(5255,4133) - JVS(52131) = -B(2729) -! JVS(52132) = Jac_FULL(5255,4134) - JVS(52132) = -B(16450) -! JVS(52133) = Jac_FULL(5255,4135) - JVS(52133) = -B(17154) -! JVS(52134) = Jac_FULL(5255,4136) - JVS(52134) = -B(23702) -! JVS(52135) = Jac_FULL(5255,4137) - JVS(52135) = -B(23202) -! JVS(52136) = Jac_FULL(5255,4138) - JVS(52136) = -B(21174) -! JVS(52137) = Jac_FULL(5255,4139) - JVS(52137) = -B(9703)-B(9705)-B(9707) -! JVS(52138) = Jac_FULL(5255,4140) - JVS(52138) = -B(2221) -! JVS(52139) = Jac_FULL(5255,4141) - JVS(52139) = -B(12995) -! JVS(52140) = Jac_FULL(5255,4142) - JVS(52140) = -B(21818) -! JVS(52141) = Jac_FULL(5255,4143) - JVS(52141) = -B(2169) -! JVS(52142) = Jac_FULL(5255,4144) - JVS(52142) = -B(7422) -! JVS(52143) = Jac_FULL(5255,4145) - JVS(52143) = -B(17145) -! JVS(52144) = Jac_FULL(5255,4146) - JVS(52144) = -B(3500) -! JVS(52145) = Jac_FULL(5255,4147) - JVS(52145) = -B(22736) -! JVS(52146) = Jac_FULL(5255,4148) - JVS(52146) = -B(7413) -! JVS(52147) = Jac_FULL(5255,4149) - JVS(52147) = -B(16259) -! JVS(52148) = Jac_FULL(5255,4150) - JVS(52148) = -B(20814) -! JVS(52149) = Jac_FULL(5255,4151) - JVS(52149) = B(7330) -! JVS(52150) = Jac_FULL(5255,4152) - JVS(52150) = B(9982)+B(9983) -! JVS(52151) = Jac_FULL(5255,4153) - JVS(52151) = -B(16277) -! JVS(52152) = Jac_FULL(5255,4154) - JVS(52152) = -B(20224)-B(20226) -! JVS(52153) = Jac_FULL(5255,4155) - JVS(52153) = B(5099) -! JVS(52154) = Jac_FULL(5255,4156) - JVS(52154) = B(4335) -! JVS(52155) = Jac_FULL(5255,4157) - JVS(52155) = -B(23253) -! JVS(52156) = Jac_FULL(5255,4158) - JVS(52156) = -B(11012) -! JVS(52157) = Jac_FULL(5255,4159) - JVS(52157) = -B(10364) -! JVS(52158) = Jac_FULL(5255,4160) - JVS(52158) = 0 -! JVS(52159) = Jac_FULL(5255,4161) - JVS(52159) = -B(1181) -! JVS(52160) = Jac_FULL(5255,4162) - JVS(52160) = -B(22688) -! JVS(52161) = Jac_FULL(5255,4163) - JVS(52161) = -B(15492) -! JVS(52162) = Jac_FULL(5255,4164) - JVS(52162) = B(12153) -! JVS(52163) = Jac_FULL(5255,4165) - JVS(52163) = -B(12901) -! JVS(52164) = Jac_FULL(5255,4166) - JVS(52164) = -B(19160) -! JVS(52165) = Jac_FULL(5255,4167) - JVS(52165) = -B(2968) -! JVS(52166) = Jac_FULL(5255,4168) - JVS(52166) = -B(10237)-B(10239) -! JVS(52167) = Jac_FULL(5255,4169) - JVS(52167) = -B(10855) -! JVS(52168) = Jac_FULL(5255,4170) - JVS(52168) = -B(10982) -! JVS(52169) = Jac_FULL(5255,4171) - JVS(52169) = -B(1986) -! JVS(52170) = Jac_FULL(5255,4172) - JVS(52170) = -B(22099) -! JVS(52171) = Jac_FULL(5255,4173) - JVS(52171) = -B(14340) -! JVS(52172) = Jac_FULL(5255,4174) - JVS(52172) = 0 -! JVS(52173) = Jac_FULL(5255,4175) - JVS(52173) = B(21466)+B(21467) -! JVS(52174) = Jac_FULL(5255,4176) - JVS(52174) = -B(17330) -! JVS(52175) = Jac_FULL(5255,4177) - JVS(52175) = B(6200)+B(6201)+B(6202)+B(6203)+B(6204)+B(6205) -! JVS(52176) = Jac_FULL(5255,4178) - JVS(52176) = B(13451)+B(13452) -! JVS(52177) = Jac_FULL(5255,4179) - JVS(52177) = B(12135) -! JVS(52178) = Jac_FULL(5255,4180) - JVS(52178) = -B(16539) -! JVS(52179) = Jac_FULL(5255,4181) - JVS(52179) = -B(9797)-B(9799)-B(9801) -! JVS(52180) = Jac_FULL(5255,4182) - JVS(52180) = -B(18565) -! JVS(52181) = Jac_FULL(5255,4183) - JVS(52181) = B(11421) -! JVS(52182) = Jac_FULL(5255,4184) - JVS(52182) = 0 -! JVS(52183) = Jac_FULL(5255,4185) - JVS(52183) = -B(3490) -! JVS(52184) = Jac_FULL(5255,4186) - JVS(52184) = 2*B(7397) -! JVS(52185) = Jac_FULL(5255,4187) - JVS(52185) = -B(9250)-B(9252)-B(9254) -! JVS(52186) = Jac_FULL(5255,4188) - JVS(52186) = -B(18148) -! JVS(52187) = Jac_FULL(5255,4189) - JVS(52187) = -B(19066) -! JVS(52188) = Jac_FULL(5255,4190) - JVS(52188) = B(21699) -! JVS(52189) = Jac_FULL(5255,4191) - JVS(52189) = -B(20583) -! JVS(52190) = Jac_FULL(5255,4192) - JVS(52190) = -B(16240) -! JVS(52191) = Jac_FULL(5255,4193) - JVS(52191) = -B(16153) -! JVS(52192) = Jac_FULL(5255,4194) - JVS(52192) = -B(18431) -! JVS(52193) = Jac_FULL(5255,4195) - JVS(52193) = -B(15475) -! JVS(52194) = Jac_FULL(5255,4196) - JVS(52194) = -B(23152) -! JVS(52195) = Jac_FULL(5255,4197) - JVS(52195) = -B(17086) -! JVS(52196) = Jac_FULL(5255,4198) - JVS(52196) = -B(9916)-B(9918)-B(9920) -! JVS(52197) = Jac_FULL(5255,4199) - JVS(52197) = B(15893) -! JVS(52198) = Jac_FULL(5255,4200) - JVS(52198) = -B(15774) -! JVS(52199) = Jac_FULL(5255,4201) - JVS(52199) = -B(7255) -! JVS(52200) = Jac_FULL(5255,4202) - JVS(52200) = -B(19967)+B(19969)+B(19973)+B(19975) -! JVS(52201) = Jac_FULL(5255,4203) - JVS(52201) = -B(21485)+B(21489)+B(21493)+B(21495) -! JVS(52202) = Jac_FULL(5255,4204) - JVS(52202) = -B(18270) -! JVS(52203) = Jac_FULL(5255,4205) - JVS(52203) = -B(18364) -! JVS(52204) = Jac_FULL(5255,4206) - JVS(52204) = -B(7691)+B(7693)+B(7697)+B(7699) -! JVS(52205) = Jac_FULL(5255,4207) - JVS(52205) = -B(22140)+B(22144)+B(22148)+B(22150) -! JVS(52206) = Jac_FULL(5255,4208) - JVS(52206) = -B(16488)-B(16490) -! JVS(52207) = Jac_FULL(5255,4209) - JVS(52207) = -B(16462)+B(16466)+B(16470)+B(16472) -! JVS(52208) = Jac_FULL(5255,4210) - JVS(52208) = -B(16293) -! JVS(52209) = Jac_FULL(5255,4211) - JVS(52209) = -B(16752) -! JVS(52210) = Jac_FULL(5255,4212) - JVS(52210) = -B(16146) -! JVS(52211) = Jac_FULL(5255,4214) - JVS(52211) = -B(22254)+B(22256)+B(22260)+B(22262) -! JVS(52212) = Jac_FULL(5255,4215) - JVS(52212) = -B(8585)+B(8589)+B(8593)+B(8595) -! JVS(52213) = Jac_FULL(5255,4216) - JVS(52213) = -B(23429) -! JVS(52214) = Jac_FULL(5255,4217) - JVS(52214) = -B(15542) -! JVS(52215) = Jac_FULL(5255,4218) - JVS(52215) = -B(20141)+B(20143)+B(20147)+B(20149) -! JVS(52216) = Jac_FULL(5255,4219) - JVS(52216) = -B(10768)-B(10770) -! JVS(52217) = Jac_FULL(5255,4220) - JVS(52217) = -B(23542)-B(23544) -! JVS(52218) = Jac_FULL(5255,4221) - JVS(52218) = -B(19909)+B(19911)+B(19915)+B(19917) -! JVS(52219) = Jac_FULL(5255,4222) - JVS(52219) = -B(20552)-B(20554)-B(20556) -! JVS(52220) = Jac_FULL(5255,4223) - JVS(52220) = B(5187)+B(5189) -! JVS(52221) = Jac_FULL(5255,4224) - JVS(52221) = B(21711) -! JVS(52222) = Jac_FULL(5255,4225) - JVS(52222) = -B(15834) -! JVS(52223) = Jac_FULL(5255,4226) - JVS(52223) = -B(23684) -! JVS(52224) = Jac_FULL(5255,4227) - JVS(52224) = B(18476) -! JVS(52225) = Jac_FULL(5255,4228) - JVS(52225) = -B(18817)+B(18821)+B(18825)+B(18827) -! JVS(52226) = Jac_FULL(5255,4229) - JVS(52226) = -B(18808)+B(18810)+B(18814)+B(18816) -! JVS(52227) = Jac_FULL(5255,4230) - JVS(52227) = -B(20572)+B(20576)+B(20580)+B(20582) -! JVS(52228) = Jac_FULL(5255,4231) - JVS(52228) = B(13938) -! JVS(52229) = Jac_FULL(5255,4232) - JVS(52229) = -B(18655) -! JVS(52230) = Jac_FULL(5255,4233) - JVS(52230) = B(18409) -! JVS(52231) = Jac_FULL(5255,4234) - JVS(52231) = -B(23464) -! JVS(52232) = Jac_FULL(5255,4235) - JVS(52232) = -B(19687) -! JVS(52233) = Jac_FULL(5255,4236) - JVS(52233) = -B(19292) -! JVS(52234) = Jac_FULL(5255,4237) - JVS(52234) = -B(15967) -! JVS(52235) = Jac_FULL(5255,4238) - JVS(52235) = -B(15375) -! JVS(52236) = Jac_FULL(5255,4239) - JVS(52236) = B(14028) -! JVS(52237) = Jac_FULL(5255,4240) - JVS(52237) = -B(7363) -! JVS(52238) = Jac_FULL(5255,4241) - JVS(52238) = -B(19954)-B(19956) -! JVS(52239) = Jac_FULL(5255,4242) - JVS(52239) = -B(21927) -! JVS(52240) = Jac_FULL(5255,4243) - JVS(52240) = -B(14839)+B(14843)+B(14847)+B(14849) -! JVS(52241) = Jac_FULL(5255,4244) - JVS(52241) = -B(11542) -! JVS(52242) = Jac_FULL(5255,4245) - JVS(52242) = -B(18620) -! JVS(52243) = Jac_FULL(5255,4246) - JVS(52243) = -B(15871) -! JVS(52244) = Jac_FULL(5255,4248) - JVS(52244) = B(11703) -! JVS(52245) = Jac_FULL(5255,4249) - JVS(52245) = -B(11369) -! JVS(52246) = Jac_FULL(5255,4251) - JVS(52246) = -B(15252) -! JVS(52247) = Jac_FULL(5255,4252) - JVS(52247) = -B(16343) -! JVS(52248) = Jac_FULL(5255,4253) - JVS(52248) = -B(20026)-B(20028) -! JVS(52249) = Jac_FULL(5255,4254) - JVS(52249) = -B(15347) -! JVS(52250) = Jac_FULL(5255,4255) - JVS(52250) = -B(6863)-B(6865) -! JVS(52251) = Jac_FULL(5255,4256) - JVS(52251) = B(13880) -! JVS(52252) = Jac_FULL(5255,4257) - JVS(52252) = -B(14308) -! JVS(52253) = Jac_FULL(5255,4259) - JVS(52253) = -B(10401)+B(10403)+B(10407)+B(10409) -! JVS(52254) = Jac_FULL(5255,4260) - JVS(52254) = -B(14850)+B(14854)+B(14858)+B(14860) -! JVS(52255) = Jac_FULL(5255,4261) - JVS(52255) = B(11716) -! JVS(52256) = Jac_FULL(5255,4262) - JVS(52256) = -B(18305) -! JVS(52257) = Jac_FULL(5255,4263) - JVS(52257) = -B(14901) -! JVS(52258) = Jac_FULL(5255,4265) - JVS(52258) = -B(15535) -! JVS(52259) = Jac_FULL(5255,4266) - JVS(52259) = -B(11113)-B(11115) -! JVS(52260) = Jac_FULL(5255,4267) - JVS(52260) = -B(21282)+B(21286)+B(21290)+B(21292) -! JVS(52261) = Jac_FULL(5255,4268) - JVS(52261) = -B(20689) -! JVS(52262) = Jac_FULL(5255,4269) - JVS(52262) = -B(10650)+B(10654)+B(10658)+B(10660) -! JVS(52263) = Jac_FULL(5255,4270) - JVS(52263) = -B(15319) -! JVS(52264) = Jac_FULL(5255,4271) - JVS(52264) = -B(18062) -! JVS(52265) = Jac_FULL(5255,4272) - JVS(52265) = B(2896) -! JVS(52266) = Jac_FULL(5255,4273) - JVS(52266) = -B(15482) -! JVS(52267) = Jac_FULL(5255,4274) - JVS(52267) = -B(21167) -! JVS(52268) = Jac_FULL(5255,4275) - JVS(52268) = -B(8466)+B(8468)+B(8472)+B(8474) -! JVS(52269) = Jac_FULL(5255,4276) - JVS(52269) = -B(18537) -! JVS(52270) = Jac_FULL(5255,4277) - JVS(52270) = -B(10271) -! JVS(52271) = Jac_FULL(5255,4278) - JVS(52271) = B(21794) -! JVS(52272) = Jac_FULL(5255,4279) - JVS(52272) = B(17638) -! JVS(52273) = Jac_FULL(5255,4280) - JVS(52273) = -B(15974) -! JVS(52274) = Jac_FULL(5255,4281) - JVS(52274) = -B(8523)+B(8525)+B(8529)+B(8531) -! JVS(52275) = Jac_FULL(5255,4283) - JVS(52275) = -B(8637)+B(8639)+B(8643)+B(8645) -! JVS(52276) = Jac_FULL(5255,4284) - JVS(52276) = -B(15416) -! JVS(52277) = Jac_FULL(5255,4285) - JVS(52277) = -B(18502) -! JVS(52278) = Jac_FULL(5255,4287) - JVS(52278) = -B(16398) -! JVS(52279) = Jac_FULL(5255,4288) - JVS(52279) = -B(14297)-B(14299) -! JVS(52280) = Jac_FULL(5255,4289) - JVS(52280) = -B(18583) -! JVS(52281) = Jac_FULL(5255,4290) - JVS(52281) = -B(19127) -! JVS(52282) = Jac_FULL(5255,4291) - JVS(52282) = -B(15685) -! JVS(52283) = Jac_FULL(5255,4292) - JVS(52283) = -B(15827) -! JVS(52284) = Jac_FULL(5255,4293) - JVS(52284) = -B(15678) -! JVS(52285) = Jac_FULL(5255,4295) - JVS(52285) = -B(22345) -! JVS(52286) = Jac_FULL(5255,4296) - JVS(52286) = -B(16076) -! JVS(52287) = Jac_FULL(5255,4297) - JVS(52287) = -B(16391) -! JVS(52288) = Jac_FULL(5255,4298) - JVS(52288) = -B(18162) -! JVS(52289) = Jac_FULL(5255,4299) - JVS(52289) = -B(20270)+B(20272)+B(20276)+B(20278) -! JVS(52290) = Jac_FULL(5255,4300) - JVS(52290) = B(7123) -! JVS(52291) = Jac_FULL(5255,4301) - JVS(52291) = -B(11175)+B(11179)+B(11183)+B(11185) -! JVS(52292) = Jac_FULL(5255,4303) - JVS(52292) = -B(15767) -! JVS(52293) = Jac_FULL(5255,4304) - JVS(52293) = -B(15878) -! JVS(52294) = Jac_FULL(5255,4305) - JVS(52294) = -B(18227) -! JVS(52295) = Jac_FULL(5255,4306) - JVS(52295) = -B(18111) -! JVS(52296) = Jac_FULL(5255,4307) - JVS(52296) = -B(16069) -! JVS(52297) = Jac_FULL(5255,4308) - JVS(52297) = -B(19893)+B(19897)+B(19901)+B(19903) -! JVS(52298) = Jac_FULL(5255,4309) - JVS(52298) = -B(17823) -! JVS(52299) = Jac_FULL(5255,4310) - JVS(52299) = -B(1059) -! JVS(52300) = Jac_FULL(5255,4311) - JVS(52300) = -B(6238) -! JVS(52301) = Jac_FULL(5255,4312) - JVS(52301) = -B(16336) -! JVS(52302) = Jac_FULL(5255,4313) - JVS(52302) = B(11933) -! JVS(52303) = Jac_FULL(5255,4314) - JVS(52303) = -B(16300) -! JVS(52304) = Jac_FULL(5255,4315) - JVS(52304) = -B(22574) -! JVS(52305) = Jac_FULL(5255,4316) - JVS(52305) = -B(7761)-B(7763) -! JVS(52306) = Jac_FULL(5255,4317) - JVS(52306) = -B(16247) -! JVS(52307) = Jac_FULL(5255,4318) - JVS(52307) = -B(10975) -! JVS(52308) = Jac_FULL(5255,4319) - JVS(52308) = -B(22652) -! JVS(52309) = Jac_FULL(5255,4321) - JVS(52309) = -B(13645) -! JVS(52310) = Jac_FULL(5255,4322) - JVS(52310) = B(9754)+B(9755) -! JVS(52311) = Jac_FULL(5255,4323) - JVS(52311) = -B(16225) -! JVS(52312) = Jac_FULL(5255,4324) - JVS(52312) = -B(20198)-B(20200) -! JVS(52313) = Jac_FULL(5255,4325) - JVS(52313) = B(15799) -! JVS(52314) = Jac_FULL(5255,4326) - JVS(52314) = B(9009)+B(9010) -! JVS(52315) = Jac_FULL(5255,4327) - JVS(52315) = -B(15662) -! JVS(52316) = Jac_FULL(5255,4328) - JVS(52316) = B(15608) -! JVS(52317) = Jac_FULL(5255,4329) - JVS(52317) = -B(21323)-B(21325) -! JVS(52318) = Jac_FULL(5255,4330) - JVS(52318) = 0 -! JVS(52319) = Jac_FULL(5255,4332) - JVS(52319) = 0 -! JVS(52320) = Jac_FULL(5255,4333) - JVS(52320) = B(1575) -! JVS(52321) = Jac_FULL(5255,4334) - JVS(52321) = -B(8158) -! JVS(52322) = Jac_FULL(5255,4335) - JVS(52322) = -B(6562) -! JVS(52323) = Jac_FULL(5255,4336) - JVS(52323) = -B(3346) -! JVS(52324) = Jac_FULL(5255,4337) - JVS(52324) = -B(6845) -! JVS(52325) = Jac_FULL(5255,4338) - JVS(52325) = -B(9018)-B(9020)-B(9022) -! JVS(52326) = Jac_FULL(5255,4339) - JVS(52326) = -B(13786) -! JVS(52327) = Jac_FULL(5255,4340) - JVS(52327) = -B(21686) -! JVS(52328) = Jac_FULL(5255,4341) - JVS(52328) = -B(10390) -! JVS(52329) = Jac_FULL(5255,4342) - JVS(52329) = -B(23394) -! JVS(52330) = Jac_FULL(5255,4343) - JVS(52330) = -B(23847) -! JVS(52331) = Jac_FULL(5255,4344) - JVS(52331) = -B(8539) -! JVS(52332) = Jac_FULL(5255,4345) - JVS(52332) = -B(8596) -! JVS(52333) = Jac_FULL(5255,4346) - JVS(52333) = -B(23582) -! JVS(52334) = Jac_FULL(5255,4347) - JVS(52334) = -B(12531) -! JVS(52335) = Jac_FULL(5255,4348) - JVS(52335) = -B(16787) -! JVS(52336) = Jac_FULL(5255,4349) - JVS(52336) = -B(17907) -! JVS(52337) = Jac_FULL(5255,4350) - JVS(52337) = -B(21795) -! JVS(52338) = Jac_FULL(5255,4351) - JVS(52338) = -B(1998) -! JVS(52339) = Jac_FULL(5255,4353) - JVS(52339) = -B(1588) -! JVS(52340) = Jac_FULL(5255,4354) - JVS(52340) = -B(11533) -! JVS(52341) = Jac_FULL(5255,4355) - JVS(52341) = -B(18011) -! JVS(52342) = Jac_FULL(5255,4356) - JVS(52342) = -B(3355) -! JVS(52343) = Jac_FULL(5255,4357) - JVS(52343) = -B(15109) -! JVS(52344) = Jac_FULL(5255,4358) - JVS(52344) = -B(8741) -! JVS(52345) = Jac_FULL(5255,4359) - JVS(52345) = -B(7700) -! JVS(52346) = Jac_FULL(5255,4360) - JVS(52346) = -B(15403) -! JVS(52347) = Jac_FULL(5255,4361) - JVS(52347) = -B(17967) -! JVS(52348) = Jac_FULL(5255,4362) - JVS(52348) = B(23571) -! JVS(52349) = Jac_FULL(5255,4363) - JVS(52349) = -B(19518) -! JVS(52350) = Jac_FULL(5255,4364) - JVS(52350) = -B(1239) -! JVS(52351) = Jac_FULL(5255,4365) - JVS(52351) = -B(10955) -! JVS(52352) = Jac_FULL(5255,4366) - JVS(52352) = B(20546)+B(20548) -! JVS(52353) = Jac_FULL(5255,4367) - JVS(52353) = -B(3337) -! JVS(52354) = Jac_FULL(5255,4368) - JVS(52354) = -B(10781)-B(10783) -! JVS(52355) = Jac_FULL(5255,4369) - JVS(52355) = -B(17881) -! JVS(52356) = Jac_FULL(5255,4370) - JVS(52356) = -B(2007) -! JVS(52357) = Jac_FULL(5255,4371) - JVS(52357) = -B(21875) -! JVS(52358) = Jac_FULL(5255,4372) - JVS(52358) = -B(3077) -! JVS(52359) = Jac_FULL(5255,4373) - JVS(52359) = 2*B(6689) -! JVS(52360) = Jac_FULL(5255,4374) - JVS(52360) = -B(7616) -! JVS(52361) = Jac_FULL(5255,4375) - JVS(52361) = -B(9603)-B(9605)-B(9607) -! JVS(52362) = Jac_FULL(5255,4376) - JVS(52362) = -B(8999) -! JVS(52363) = Jac_FULL(5255,4377) - JVS(52363) = -B(5824) -! JVS(52364) = Jac_FULL(5255,4378) - JVS(52364) = B(16644)+B(16648) -! JVS(52365) = Jac_FULL(5255,4379) - JVS(52365) = 0 -! JVS(52366) = Jac_FULL(5255,4380) - JVS(52366) = -B(3809)-B(3811)-B(3813) -! JVS(52367) = Jac_FULL(5255,4381) - JVS(52367) = -B(15951) -! JVS(52368) = Jac_FULL(5255,4382) - JVS(52368) = -B(1459) -! JVS(52369) = Jac_FULL(5255,4384) - JVS(52369) = -B(21192) -! JVS(52370) = Jac_FULL(5255,4385) - JVS(52370) = -B(21029) -! JVS(52371) = Jac_FULL(5255,4386) - JVS(52371) = B(3707)+B(3709) -! JVS(52372) = Jac_FULL(5255,4387) - JVS(52372) = -B(2053) -! JVS(52373) = Jac_FULL(5255,4388) - JVS(52373) = B(9474) -! JVS(52374) = Jac_FULL(5255,4389) - JVS(52374) = -B(17937) -! JVS(52375) = Jac_FULL(5255,4390) - JVS(52375) = -B(3317) -! JVS(52376) = Jac_FULL(5255,4391) - JVS(52376) = B(7042) -! JVS(52377) = Jac_FULL(5255,4392) - JVS(52377) = B(14060) -! JVS(52378) = Jac_FULL(5255,4393) - JVS(52378) = B(9585) -! JVS(52379) = Jac_FULL(5255,4394) - JVS(52379) = -B(14772) -! JVS(52380) = Jac_FULL(5255,4395) - JVS(52380) = 0 -! JVS(52381) = Jac_FULL(5255,4396) - JVS(52381) = B(2361)+2*B(2362) -! JVS(52382) = Jac_FULL(5255,4397) - JVS(52382) = B(2369) -! JVS(52383) = Jac_FULL(5255,4398) - JVS(52383) = 2*B(12357) -! JVS(52384) = Jac_FULL(5255,4399) - JVS(52384) = -B(2342) -! JVS(52385) = Jac_FULL(5255,4400) - JVS(52385) = -B(6462) -! JVS(52386) = Jac_FULL(5255,4401) - JVS(52386) = B(13419)+B(13421)+B(13422) -! JVS(52387) = Jac_FULL(5255,4402) - JVS(52387) = 0 -! JVS(52388) = Jac_FULL(5255,4403) - JVS(52388) = B(12848) -! JVS(52389) = Jac_FULL(5255,4404) - JVS(52389) = -B(20087)-B(20089) -! JVS(52390) = Jac_FULL(5255,4405) - JVS(52390) = -B(8439)-B(8441)-B(8443) -! JVS(52391) = Jac_FULL(5255,4406) - JVS(52391) = B(7921) -! JVS(52392) = Jac_FULL(5255,4407) - JVS(52392) = 0 -! JVS(52393) = Jac_FULL(5255,4408) - JVS(52393) = 0 -! JVS(52394) = Jac_FULL(5255,4409) - JVS(52394) = -B(22861)-B(22863) -! JVS(52395) = Jac_FULL(5255,4410) - JVS(52395) = -B(21767) -! JVS(52396) = Jac_FULL(5255,4411) - JVS(52396) = -B(1008) -! JVS(52397) = Jac_FULL(5255,4412) - JVS(52397) = -B(14951)-B(14953) -! JVS(52398) = Jac_FULL(5255,4413) - JVS(52398) = 0 -! JVS(52399) = Jac_FULL(5255,4414) - JVS(52399) = -B(10346)-B(10348)+B(10352)+B(10356)+B(10359) -! JVS(52400) = Jac_FULL(5255,4415) - JVS(52400) = -B(18155) -! JVS(52401) = Jac_FULL(5255,4416) - JVS(52401) = -B(13121) -! JVS(52402) = Jac_FULL(5255,4417) - JVS(52402) = -B(19861)-B(19863) -! JVS(52403) = Jac_FULL(5255,4418) - JVS(52403) = -B(21853) -! JVS(52404) = Jac_FULL(5255,4419) - JVS(52404) = -B(19676)-B(19678) -! JVS(52405) = Jac_FULL(5255,4420) - JVS(52405) = B(4096) -! JVS(52406) = Jac_FULL(5255,4421) - JVS(52406) = -B(21242) -! JVS(52407) = Jac_FULL(5255,4422) - JVS(52407) = -B(12555) -! JVS(52408) = Jac_FULL(5255,4423) - JVS(52408) = -B(22772) -! JVS(52409) = Jac_FULL(5255,4424) - JVS(52409) = -B(18463)+B(18465)+B(18469)+B(18471) -! JVS(52410) = Jac_FULL(5255,4425) - JVS(52410) = -B(18424) -! JVS(52411) = Jac_FULL(5255,4426) - JVS(52411) = -B(22788) -! JVS(52412) = Jac_FULL(5255,4427) - JVS(52412) = -B(8603)-B(8605)-B(8607) -! JVS(52413) = Jac_FULL(5255,4428) - JVS(52413) = -B(1541)-B(1543)+B(1547)+B(1551)+B(1554) -! JVS(52414) = Jac_FULL(5255,4429) - JVS(52414) = -B(21268) -! JVS(52415) = Jac_FULL(5255,4430) - JVS(52415) = -B(19782)-B(19784) -! JVS(52416) = Jac_FULL(5255,4431) - JVS(52416) = -B(19450)-B(19452)-B(19454) -! JVS(52417) = Jac_FULL(5255,4432) - JVS(52417) = -B(5374) -! JVS(52418) = Jac_FULL(5255,4433) - JVS(52418) = -B(8570)-B(8572)-B(8574) -! JVS(52419) = Jac_FULL(5255,4434) - JVS(52419) = -B(18613) -! JVS(52420) = Jac_FULL(5255,4435) - JVS(52420) = -B(21216) -! JVS(52421) = Jac_FULL(5255,4436) - JVS(52421) = -B(10426)-B(10428)+B(10432)+B(10436)+B(10439) -! JVS(52422) = Jac_FULL(5255,4437) - JVS(52422) = 0 -! JVS(52423) = Jac_FULL(5255,4438) - JVS(52423) = 0 -! JVS(52424) = Jac_FULL(5255,4439) - JVS(52424) = -B(21885)-B(21887) -! JVS(52425) = Jac_FULL(5255,4440) - JVS(52425) = -B(12539) -! JVS(52426) = Jac_FULL(5255,4441) - JVS(52426) = -B(20246)-B(20248) -! JVS(52427) = Jac_FULL(5255,4442) - JVS(52427) = -B(22608) -! JVS(52428) = Jac_FULL(5255,4443) - JVS(52428) = -B(19804)-B(19806) -! JVS(52429) = Jac_FULL(5255,4444) - JVS(52429) = 0 -! JVS(52430) = Jac_FULL(5255,4445) - JVS(52430) = -B(21502)-B(21504) -! JVS(52431) = Jac_FULL(5255,4446) - JVS(52431) = -B(10901) -! JVS(52432) = Jac_FULL(5255,4447) - JVS(52432) = -B(22872) -! JVS(52433) = Jac_FULL(5255,4448) - JVS(52433) = B(9143)+B(9144) -! JVS(52434) = Jac_FULL(5255,4449) - JVS(52434) = B(21362)+B(21364) -! JVS(52435) = Jac_FULL(5255,4450) - JVS(52435) = -B(19831)-B(19833) -! JVS(52436) = Jac_FULL(5255,4451) - JVS(52436) = -B(11522)-B(11524) -! JVS(52437) = Jac_FULL(5255,4452) - JVS(52437) = -B(8475)-B(8477)-B(8479) -! JVS(52438) = Jac_FULL(5255,4453) - JVS(52438) = 0 -! JVS(52439) = Jac_FULL(5255,4454) - JVS(52439) = 0 -! JVS(52440) = Jac_FULL(5255,4455) - JVS(52440) = -B(18648) -! JVS(52441) = Jac_FULL(5255,4456) - JVS(52441) = -B(23991)-B(23993) -! JVS(52442) = Jac_FULL(5255,4457) - JVS(52442) = 0 -! JVS(52443) = Jac_FULL(5255,4458) - JVS(52443) = -B(18104) -! JVS(52444) = Jac_FULL(5255,4459) - JVS(52444) = -B(23326) -! JVS(52445) = Jac_FULL(5255,4460) - JVS(52445) = -B(18707)-B(18709)-B(18711) -! JVS(52446) = Jac_FULL(5255,4461) - JVS(52446) = -B(21229) -! JVS(52447) = Jac_FULL(5255,4462) - JVS(52447) = B(22301)+B(22302) -! JVS(52448) = Jac_FULL(5255,4463) - JVS(52448) = -B(18576) -! JVS(52449) = Jac_FULL(5255,4464) - JVS(52449) = -B(18298) -! JVS(52450) = Jac_FULL(5255,4465) - JVS(52450) = -B(23791) -! JVS(52451) = Jac_FULL(5255,4466) - JVS(52451) = 0 -! JVS(52452) = Jac_FULL(5255,4467) - JVS(52452) = -B(18055) -! JVS(52453) = Jac_FULL(5255,4468) - JVS(52453) = -B(21146)-B(21148) -! JVS(52454) = Jac_FULL(5255,4469) - JVS(52454) = -B(8188)-B(8190) -! JVS(52455) = Jac_FULL(5255,4470) - JVS(52455) = -B(8499)-B(8501)-B(8503) -! JVS(52456) = Jac_FULL(5255,4471) - JVS(52456) = 0 -! JVS(52457) = Jac_FULL(5255,4472) - JVS(52457) = -B(19928)-B(19930) -! JVS(52458) = Jac_FULL(5255,4473) - JVS(52458) = -B(1118) -! JVS(52459) = Jac_FULL(5255,4474) - JVS(52459) = 0 -! JVS(52460) = Jac_FULL(5255,4475) - JVS(52460) = 0 -! JVS(52461) = Jac_FULL(5255,4476) - JVS(52461) = -B(2149) -! JVS(52462) = Jac_FULL(5255,4477) - JVS(52462) = -B(23744) -! JVS(52463) = Jac_FULL(5255,4478) - JVS(52463) = 0 -! JVS(52464) = Jac_FULL(5255,4479) - JVS(52464) = 0 -! JVS(52465) = Jac_FULL(5255,4480) - JVS(52465) = -B(13136) -! JVS(52466) = Jac_FULL(5255,4481) - JVS(52466) = -B(13128) -! JVS(52467) = Jac_FULL(5255,4482) - JVS(52467) = -B(22780) -! JVS(52468) = Jac_FULL(5255,4483) - JVS(52468) = -B(5540) -! JVS(52469) = Jac_FULL(5255,4484) - JVS(52469) = -B(19170)-B(19172)-B(19174) -! JVS(52470) = Jac_FULL(5255,4485) - JVS(52470) = -B(21804)-B(21806)-B(21808) -! JVS(52471) = Jac_FULL(5255,4486) - JVS(52471) = -B(22927) -! JVS(52472) = Jac_FULL(5255,4487) - JVS(52472) = 0 -! JVS(52473) = Jac_FULL(5255,4488) - JVS(52473) = B(8777)+B(8778) -! JVS(52474) = Jac_FULL(5255,4489) - JVS(52474) = -B(21299)-B(21301) -! JVS(52475) = Jac_FULL(5255,4490) - JVS(52475) = B(15571)+2*B(15573) -! JVS(52476) = Jac_FULL(5255,4491) - JVS(52476) = B(12418) -! JVS(52477) = Jac_FULL(5255,4492) - JVS(52477) = 0 -! JVS(52478) = Jac_FULL(5255,4494) - JVS(52478) = 0 -! JVS(52479) = Jac_FULL(5255,4495) - JVS(52479) = 0 -! JVS(52480) = Jac_FULL(5255,4496) - JVS(52480) = -B(22331)-B(22333)-B(22335) -! JVS(52481) = Jac_FULL(5255,4497) - JVS(52481) = -B(23263) -! JVS(52482) = Jac_FULL(5255,4498) - JVS(52482) = -B(18220) -! JVS(52483) = Jac_FULL(5255,4499) - JVS(52483) = 0 -! JVS(52484) = Jac_FULL(5255,4500) - JVS(52484) = -B(15161)-B(15163)-B(15165) -! JVS(52485) = Jac_FULL(5255,4501) - JVS(52485) = B(17728) -! JVS(52486) = Jac_FULL(5255,4502) - JVS(52486) = -B(18394)+B(18398)+B(18402)+B(18404) -! JVS(52487) = Jac_FULL(5255,4503) - JVS(52487) = -B(24002) -! JVS(52488) = Jac_FULL(5255,4504) - JVS(52488) = 0 -! JVS(52489) = Jac_FULL(5255,4505) - JVS(52489) = 0 -! JVS(52490) = Jac_FULL(5255,4506) - JVS(52490) = -B(18263) -! JVS(52491) = Jac_FULL(5255,4508) - JVS(52491) = 0 -! JVS(52492) = Jac_FULL(5255,4509) - JVS(52492) = 0 -! JVS(52493) = Jac_FULL(5255,4510) - JVS(52493) = -B(21124) -! JVS(52494) = Jac_FULL(5255,4511) - JVS(52494) = -B(18357) -! JVS(52495) = Jac_FULL(5255,4512) - JVS(52495) = 0 -! JVS(52496) = Jac_FULL(5255,4513) - JVS(52496) = -B(5249) -! JVS(52497) = Jac_FULL(5255,4514) - JVS(52497) = 0 -! JVS(52498) = Jac_FULL(5255,4515) - JVS(52498) = -B(8136)-B(8138) -! JVS(52499) = Jac_FULL(5255,4516) - JVS(52499) = -B(10319)-B(10321)+B(10325)+B(10329)+B(10332) -! JVS(52500) = Jac_FULL(5255,4517) - JVS(52500) = -B(15043)-B(15045) -! JVS(52501) = Jac_FULL(5255,4518) - JVS(52501) = -B(18866)-B(18868)-B(18870) -! JVS(52502) = Jac_FULL(5255,4519) - JVS(52502) = -B(20336)-B(20338)-B(20340) -! JVS(52503) = Jac_FULL(5255,4520) - JVS(52503) = -B(23780)-B(23782) -! JVS(52504) = Jac_FULL(5255,4521) - JVS(52504) = -B(19760)-B(19762) -! JVS(52505) = Jac_FULL(5255,4522) - JVS(52505) = -B(8546)-B(8548)-B(8550) -! JVS(52506) = Jac_FULL(5255,4523) - JVS(52506) = -B(15175)-B(15177)-B(15179) -! JVS(52507) = Jac_FULL(5255,4524) - JVS(52507) = B(3799) -! JVS(52508) = Jac_FULL(5255,4525) - JVS(52508) = -B(23733)-B(23735) -! JVS(52509) = Jac_FULL(5255,4527) - JVS(52509) = 0 -! JVS(52510) = Jac_FULL(5255,4528) - JVS(52510) = B(1257) -! JVS(52511) = Jac_FULL(5255,4529) - JVS(52511) = -B(2515) -! JVS(52512) = Jac_FULL(5255,4530) - JVS(52512) = B(7892)+B(7893) -! JVS(52513) = Jac_FULL(5255,4531) - JVS(52513) = 0 -! JVS(52514) = Jac_FULL(5255,4532) - JVS(52514) = -B(21255) -! JVS(52515) = Jac_FULL(5255,4533) - JVS(52515) = B(10121)+B(10122) -! JVS(52516) = Jac_FULL(5255,4534) - JVS(52516) = B(16358)+B(16360)+B(16361) -! JVS(52517) = Jac_FULL(5255,4535) - JVS(52517) = -B(16376) -! JVS(52518) = Jac_FULL(5255,4536) - JVS(52518) = -B(20111)+B(20113)+B(20117)+B(20119) -! JVS(52519) = Jac_FULL(5255,4537) - JVS(52519) = B(17855) -! JVS(52520) = Jac_FULL(5255,4538) - JVS(52520) = -B(20935) -! JVS(52521) = Jac_FULL(5255,4539) - JVS(52521) = -B(18789)-B(18791) -! JVS(52522) = Jac_FULL(5255,4540) - JVS(52522) = B(11617) -! JVS(52523) = Jac_FULL(5255,4541) - JVS(52523) = -B(11319) -! JVS(52524) = Jac_FULL(5255,4542) - JVS(52524) = -B(14603) -! JVS(52525) = Jac_FULL(5255,4543) - JVS(52525) = -B(24036) -! JVS(52526) = Jac_FULL(5255,4545) - JVS(52526) = -B(17005) -! JVS(52527) = Jac_FULL(5255,4546) - JVS(52527) = -B(17578) -! JVS(52528) = Jac_FULL(5255,4547) - JVS(52528) = B(5430) -! JVS(52529) = Jac_FULL(5255,4548) - JVS(52529) = -B(18727)-B(18729) -! JVS(52530) = Jac_FULL(5255,4549) - JVS(52530) = -B(19612) -! JVS(52531) = Jac_FULL(5255,4550) - JVS(52531) = -B(12660) -! JVS(52532) = Jac_FULL(5255,4552) - JVS(52532) = -B(16828) -! JVS(52533) = Jac_FULL(5255,4553) - JVS(52533) = -B(7783)+B(7787)+B(7791)+B(7793) -! JVS(52534) = Jac_FULL(5255,4554) - JVS(52534) = -B(1269) -! JVS(52535) = Jac_FULL(5255,4555) - JVS(52535) = 0 -! JVS(52536) = Jac_FULL(5255,4557) - JVS(52536) = -B(7950)+B(7954)+B(7958)+B(7960) -! JVS(52537) = Jac_FULL(5255,4558) - JVS(52537) = -B(12621) -! JVS(52538) = Jac_FULL(5255,4559) - JVS(52538) = B(4477) -! JVS(52539) = Jac_FULL(5255,4560) - JVS(52539) = -B(21739) -! JVS(52540) = Jac_FULL(5255,4561) - JVS(52540) = -B(14992) -! JVS(52541) = Jac_FULL(5255,4562) - JVS(52541) = -B(1096) -! JVS(52542) = Jac_FULL(5255,4563) - JVS(52542) = -B(7263) -! JVS(52543) = Jac_FULL(5255,4564) - JVS(52543) = B(10459)+B(10460) -! JVS(52544) = Jac_FULL(5255,4565) - JVS(52544) = -B(20493) -! JVS(52545) = Jac_FULL(5255,4566) - JVS(52545) = -B(17760) -! JVS(52546) = Jac_FULL(5255,4567) - JVS(52546) = -B(14468) -! JVS(52547) = Jac_FULL(5255,4568) - JVS(52547) = -B(6163) -! JVS(52548) = Jac_FULL(5255,4569) - JVS(52548) = B(6160) -! JVS(52549) = Jac_FULL(5255,4570) - JVS(52549) = B(13784) -! JVS(52550) = Jac_FULL(5255,4571) - JVS(52550) = -B(1760) -! JVS(52551) = Jac_FULL(5255,4572) - JVS(52551) = -B(23079) -! JVS(52552) = Jac_FULL(5255,4573) - JVS(52552) = -B(17749) -! JVS(52553) = Jac_FULL(5255,4574) - JVS(52553) = -B(2029) -! JVS(52554) = Jac_FULL(5255,4575) - JVS(52554) = -B(6227) -! JVS(52555) = Jac_FULL(5255,4576) - JVS(52555) = B(6226) -! JVS(52556) = Jac_FULL(5255,4577) - JVS(52556) = -B(8284) -! JVS(52557) = Jac_FULL(5255,4578) - JVS(52557) = -B(10379) -! JVS(52558) = Jac_FULL(5255,4579) - JVS(52558) = -B(2020) -! JVS(52559) = Jac_FULL(5255,4580) - JVS(52559) = -B(19117) -! JVS(52560) = Jac_FULL(5255,4581) - JVS(52560) = -B(3295) -! JVS(52561) = Jac_FULL(5255,4582) - JVS(52561) = -B(2255) -! JVS(52562) = Jac_FULL(5255,4583) - JVS(52562) = -B(3326) -! JVS(52563) = Jac_FULL(5255,4584) - JVS(52563) = -B(17769) -! JVS(52564) = Jac_FULL(5255,4585) - JVS(52564) = -B(1230) -! JVS(52565) = Jac_FULL(5255,4586) - JVS(52565) = -B(1899) -! JVS(52566) = Jac_FULL(5255,4587) - JVS(52566) = -B(2242) -! JVS(52567) = Jac_FULL(5255,4588) - JVS(52567) = 2*B(5236)+B(5237) -! JVS(52568) = Jac_FULL(5255,4589) - JVS(52568) = -B(10310) -! JVS(52569) = Jac_FULL(5255,4590) - JVS(52569) = -B(8646) -! JVS(52570) = Jac_FULL(5255,4591) - JVS(52570) = -B(8898)-B(8900)-B(8902) -! JVS(52571) = Jac_FULL(5255,4592) - JVS(52571) = -B(8793) -! JVS(52572) = Jac_FULL(5255,4593) - JVS(52572) = -B(2083) -! JVS(52573) = Jac_FULL(5255,4594) - JVS(52573) = -B(3376) -! JVS(52574) = Jac_FULL(5255,4595) - JVS(52574) = -B(10742) -! JVS(52575) = Jac_FULL(5255,4596) - JVS(52575) = -B(1258) -! JVS(52576) = Jac_FULL(5255,4597) - JVS(52576) = -B(21728) -! JVS(52577) = Jac_FULL(5255,4598) - JVS(52577) = -B(2105) -! JVS(52578) = Jac_FULL(5255,4599) - JVS(52578) = -B(18910) -! JVS(52579) = Jac_FULL(5255,4600) - JVS(52579) = 0 -! JVS(52580) = Jac_FULL(5255,4601) - JVS(52580) = 0 -! JVS(52581) = Jac_FULL(5255,4602) - JVS(52581) = B(12381)+2*B(12383) -! JVS(52582) = Jac_FULL(5255,4603) - JVS(52582) = B(8770)+B(8771) -! JVS(52583) = Jac_FULL(5255,4604) - JVS(52583) = 0 -! JVS(52584) = Jac_FULL(5255,4605) - JVS(52584) = 0 -! JVS(52585) = Jac_FULL(5255,4606) - JVS(52585) = 0 -! JVS(52586) = Jac_FULL(5255,4607) - JVS(52586) = -B(2299) -! JVS(52587) = Jac_FULL(5255,4608) - JVS(52587) = -B(2310) -! JVS(52588) = Jac_FULL(5255,4609) - JVS(52588) = -B(3185) -! JVS(52589) = Jac_FULL(5255,4610) - JVS(52589) = -B(10794)-B(10796) -! JVS(52590) = Jac_FULL(5255,4611) - JVS(52590) = -B(10807)-B(10809)-B(10811) -! JVS(52591) = Jac_FULL(5255,4612) - JVS(52591) = -B(13967)-B(13969) -! JVS(52592) = Jac_FULL(5255,4613) - JVS(52592) = -B(16728)-B(16730) -! JVS(52593) = Jac_FULL(5255,4614) - JVS(52593) = -B(16739)-B(16741) -! JVS(52594) = Jac_FULL(5255,4615) - JVS(52594) = 0 -! JVS(52595) = Jac_FULL(5255,4616) - JVS(52595) = -B(3172)-B(3174) -! JVS(52596) = Jac_FULL(5255,4617) - JVS(52596) = -B(10572) -! JVS(52597) = Jac_FULL(5255,4619) - JVS(52597) = B(9402)+B(9403) -! JVS(52598) = Jac_FULL(5255,4620) - JVS(52598) = -B(21412)-B(21414) -! JVS(52599) = Jac_FULL(5255,4622) - JVS(52599) = -B(3007)-B(3009)-B(3011) -! JVS(52600) = Jac_FULL(5255,4623) - JVS(52600) = -B(14978)-B(14980)-B(14982) -! JVS(52601) = Jac_FULL(5255,4624) - JVS(52601) = -B(21776)-B(21778)-B(21780) -! JVS(52602) = Jac_FULL(5255,4625) - JVS(52602) = -B(22966) -! JVS(52603) = Jac_FULL(5255,4626) - JVS(52603) = -B(5345)-B(5347)-B(5349) -! JVS(52604) = Jac_FULL(5255,4627) - JVS(52604) = -B(10964)-B(10966) -! JVS(52605) = Jac_FULL(5255,4628) - JVS(52605) = -B(10257)-B(10259)-B(10261) -! JVS(52606) = Jac_FULL(5255,4629) - JVS(52606) = -B(15054)-B(15056)-B(15058) -! JVS(52607) = Jac_FULL(5255,4630) - JVS(52607) = B(5995) -! JVS(52608) = Jac_FULL(5255,4631) - JVS(52608) = -B(19008)-B(19010) -! JVS(52609) = Jac_FULL(5255,4632) - JVS(52609) = 0 -! JVS(52610) = Jac_FULL(5255,4633) - JVS(52610) = -B(6360)-B(6362)-B(6364) -! JVS(52611) = Jac_FULL(5255,4634) - JVS(52611) = -B(3775)-B(3777)-B(3779) -! JVS(52612) = Jac_FULL(5255,4635) - JVS(52612) = -B(5894)-B(5896)-B(5898) -! JVS(52613) = Jac_FULL(5255,4636) - JVS(52613) = -B(22934)-B(22936)-B(22938) -! JVS(52614) = Jac_FULL(5255,4637) - JVS(52614) = 0 -! JVS(52615) = Jac_FULL(5255,4638) - JVS(52615) = -B(19340)-B(19342)-B(19344) -! JVS(52616) = Jac_FULL(5255,4639) - JVS(52616) = 0 -! JVS(52617) = Jac_FULL(5255,4640) - JVS(52617) = -B(7833) -! JVS(52618) = Jac_FULL(5255,4641) - JVS(52618) = -B(5715)-B(5717)-B(5719) -! JVS(52619) = Jac_FULL(5255,4642) - JVS(52619) = -B(17659)-B(17661)-B(17663) -! JVS(52620) = Jac_FULL(5255,4643) - JVS(52620) = -B(18530) -! JVS(52621) = Jac_FULL(5255,4644) - JVS(52621) = -B(22482) -! JVS(52622) = Jac_FULL(5255,4645) - JVS(52622) = -B(965) -! JVS(52623) = Jac_FULL(5255,4646) - JVS(52623) = -B(10921) -! JVS(52624) = Jac_FULL(5255,4647) - JVS(52624) = -B(1151) -! JVS(52625) = Jac_FULL(5255,4648) - JVS(52625) = -B(21117) -! JVS(52626) = Jac_FULL(5255,4649) - JVS(52626) = -B(5215)-B(5217)-B(5219) -! JVS(52627) = Jac_FULL(5255,4650) - JVS(52627) = 0 -! JVS(52628) = Jac_FULL(5255,4651) - JVS(52628) = B(18041) -! JVS(52629) = Jac_FULL(5255,4652) - JVS(52629) = -B(22011)-B(22013)-B(22015) -! JVS(52630) = Jac_FULL(5255,4653) - JVS(52630) = -B(23298)-B(23300)-B(23302) -! JVS(52631) = Jac_FULL(5255,4654) - JVS(52631) = -B(6208)-B(6210)-B(6212) -! JVS(52632) = Jac_FULL(5255,4655) - JVS(52632) = -B(18495) -! JVS(52633) = Jac_FULL(5255,4656) - JVS(52633) = -B(6542)-B(6544)-B(6546) -! JVS(52634) = Jac_FULL(5255,4657) - JVS(52634) = -B(18884)-B(18886)+B(18888)+B(18892)+B(18894) -! JVS(52635) = Jac_FULL(5255,4658) - JVS(52635) = -B(18852)-B(18854)-B(18856) -! JVS(52636) = Jac_FULL(5255,4659) - JVS(52636) = -B(21840)-B(21842)-B(21844) -! JVS(52637) = Jac_FULL(5255,4660) - JVS(52637) = -B(20714)-B(20716)-B(20718) -! JVS(52638) = Jac_FULL(5255,4661) - JVS(52638) = -B(12819) -! JVS(52639) = Jac_FULL(5255,4662) - JVS(52639) = -B(17504)-B(17506)-B(17508) -! JVS(52640) = Jac_FULL(5255,4663) - JVS(52640) = 0 -! JVS(52641) = Jac_FULL(5255,4664) - JVS(52641) = -B(16982)-B(16984)-B(16986) -! JVS(52642) = Jac_FULL(5255,4665) - JVS(52642) = -B(15095)-B(15097)-B(15099) -! JVS(52643) = Jac_FULL(5255,4666) - JVS(52643) = -B(3021) -! JVS(52644) = Jac_FULL(5255,4667) - JVS(52644) = -B(5744) -! JVS(52645) = Jac_FULL(5255,4669) - JVS(52645) = -B(12546) -! JVS(52646) = Jac_FULL(5255,4670) - JVS(52646) = 0 -! JVS(52647) = Jac_FULL(5255,4671) - JVS(52647) = 0 -! JVS(52648) = Jac_FULL(5255,4672) - JVS(52648) = -B(22662) -! JVS(52649) = Jac_FULL(5255,4673) - JVS(52649) = -B(23182)-B(23184)-B(23186) -! JVS(52650) = Jac_FULL(5255,4674) - JVS(52650) = -B(13173) -! JVS(52651) = Jac_FULL(5255,4675) - JVS(52651) = -B(5923) -! JVS(52652) = Jac_FULL(5255,4676) - JVS(52652) = 0 -! JVS(52653) = Jac_FULL(5255,4679) - JVS(52653) = -B(19436)-B(19438)-B(19440) -! JVS(52654) = Jac_FULL(5255,4680) - JVS(52654) = -B(9853)-B(9855)-B(9857) -! JVS(52655) = Jac_FULL(5255,4681) - JVS(52655) = -B(22594)-B(22596)-B(22598) -! JVS(52656) = Jac_FULL(5255,4682) - JVS(52656) = 0 -! JVS(52657) = Jac_FULL(5255,4683) - JVS(52657) = -B(5835) -! JVS(52658) = Jac_FULL(5255,4684) - JVS(52658) = -B(9083)-B(9085)-B(9087) -! JVS(52659) = Jac_FULL(5255,4685) - JVS(52659) = -B(6446)-B(6448)-B(6450) -! JVS(52660) = Jac_FULL(5255,4686) - JVS(52660) = -B(23971)-B(23973) -! JVS(52661) = Jac_FULL(5255,4687) - JVS(52661) = -B(23982) -! JVS(52662) = Jac_FULL(5255,4688) - JVS(52662) = -B(13011) -! JVS(52663) = Jac_FULL(5255,4689) - JVS(52663) = -B(12917) -! JVS(52664) = Jac_FULL(5255,4690) - JVS(52664) = 0 -! JVS(52665) = Jac_FULL(5255,4692) - JVS(52665) = -B(5601)-B(5603)-B(5605) -! JVS(52666) = Jac_FULL(5255,4693) - JVS(52666) = B(12502) -! JVS(52667) = Jac_FULL(5255,4694) - JVS(52667) = B(13208) -! JVS(52668) = Jac_FULL(5255,4695) - JVS(52668) = -B(1577) -! JVS(52669) = Jac_FULL(5255,4696) - JVS(52669) = -B(1781) -! JVS(52670) = Jac_FULL(5255,4697) - JVS(52670) = -B(15119) -! JVS(52671) = Jac_FULL(5255,4698) - JVS(52671) = -B(1192) -! JVS(52672) = Jac_FULL(5255,4699) - JVS(52672) = -B(5615) -! JVS(52673) = Jac_FULL(5255,4700) - JVS(52673) = -B(2179) -! JVS(52674) = Jac_FULL(5255,4701) - JVS(52674) = -B(5733) -! JVS(52675) = Jac_FULL(5255,4702) - JVS(52675) = -B(2286) -! JVS(52676) = Jac_FULL(5255,4703) - JVS(52676) = -B(13331) -! JVS(52677) = Jac_FULL(5255,4704) - JVS(52677) = -B(15079) -! JVS(52678) = Jac_FULL(5255,4705) - JVS(52678) = -B(1343) -! JVS(52679) = Jac_FULL(5255,4706) - JVS(52679) = -B(12736) -! JVS(52680) = Jac_FULL(5255,4707) - JVS(52680) = -B(5431) -! JVS(52681) = Jac_FULL(5255,4708) - JVS(52681) = 2*B(4245) -! JVS(52682) = Jac_FULL(5255,4709) - JVS(52682) = -B(15382) -! JVS(52683) = Jac_FULL(5255,4710) - JVS(52683) = B(19815) -! JVS(52684) = Jac_FULL(5255,4711) - JVS(52684) = -B(13811) -! JVS(52685) = Jac_FULL(5255,4712) - JVS(52685) = -B(15326) -! JVS(52686) = Jac_FULL(5255,4713) - JVS(52686) = -B(15298) -! JVS(52687) = Jac_FULL(5255,4714) - JVS(52687) = -B(2127) -! JVS(52688) = Jac_FULL(5255,4715) - JVS(52688) = -B(15354) -! JVS(52689) = Jac_FULL(5255,4716) - JVS(52689) = -B(15277) -! JVS(52690) = Jac_FULL(5255,4717) - JVS(52690) = B(7182) -! JVS(52691) = Jac_FULL(5255,4718) - JVS(52691) = -B(5529) -! JVS(52692) = Jac_FULL(5255,4719) - JVS(52692) = -B(8655) -! JVS(52693) = Jac_FULL(5255,4720) - JVS(52693) = -B(5238) -! JVS(52694) = Jac_FULL(5255,4721) - JVS(52694) = B(5233) -! JVS(52695) = Jac_FULL(5255,4722) - JVS(52695) = -B(8267) -! JVS(52696) = Jac_FULL(5255,4723) - JVS(52696) = -B(2212) -! JVS(52697) = Jac_FULL(5255,4724) - JVS(52697) = -B(8454) -! JVS(52698) = Jac_FULL(5255,4725) - JVS(52698) = -B(6302) -! JVS(52699) = Jac_FULL(5255,4726) - JVS(52699) = -B(18523) -! JVS(52700) = Jac_FULL(5255,4727) - JVS(52700) = -B(6374) -! JVS(52701) = Jac_FULL(5255,4728) - JVS(52701) = B(12851)+2*B(12852) -! JVS(52702) = Jac_FULL(5255,4729) - JVS(52702) = B(5528) -! JVS(52703) = Jac_FULL(5255,4730) - JVS(52703) = -B(10821) -! JVS(52704) = Jac_FULL(5255,4731) - JVS(52704) = -B(21468)-B(21470) -! JVS(52705) = Jac_FULL(5255,4732) - JVS(52705) = -B(10337) -! JVS(52706) = Jac_FULL(5255,4733) - JVS(52706) = -B(1738) -! JVS(52707) = Jac_FULL(5255,4734) - JVS(52707) = -B(21081) -! JVS(52708) = Jac_FULL(5255,4735) - JVS(52708) = -B(14962) -! JVS(52709) = Jac_FULL(5255,4736) - JVS(52709) = 0 -! JVS(52710) = Jac_FULL(5255,4737) - JVS(52710) = B(3906)+B(3909) -! JVS(52711) = Jac_FULL(5255,4738) - JVS(52711) = -B(17296)-B(17298)-B(17300) -! JVS(52712) = Jac_FULL(5255,4739) - JVS(52712) = -B(20364)-B(20366)-B(20368) -! JVS(52713) = Jac_FULL(5255,4740) - JVS(52713) = -B(8942)-B(8944)-B(8946) -! JVS(52714) = Jac_FULL(5255,4742) - JVS(52714) = -B(18200) -! JVS(52715) = Jac_FULL(5255,4743) - JVS(52715) = B(9509)+B(9510) -! JVS(52716) = Jac_FULL(5255,4744) - JVS(52716) = -B(21430)-B(21432) -! JVS(52717) = Jac_FULL(5255,4745) - JVS(52717) = -B(14765) -! JVS(52718) = Jac_FULL(5255,4746) - JVS(52718) = -B(7546) -! JVS(52719) = Jac_FULL(5255,4747) - JVS(52719) = B(3486) -! JVS(52720) = Jac_FULL(5255,4748) - JVS(52720) = -B(21048) -! JVS(52721) = Jac_FULL(5255,4749) - JVS(52721) = B(13776) -! JVS(52722) = Jac_FULL(5255,4750) - JVS(52722) = -B(18688) -! JVS(52723) = Jac_FULL(5255,4751) - JVS(52723) = -B(21545) -! JVS(52724) = Jac_FULL(5255,4752) - JVS(52724) = -B(21896)-B(21898)-B(21900) -! JVS(52725) = Jac_FULL(5255,4753) - JVS(52725) = -B(20350)-B(20352)-B(20354) -! JVS(52726) = Jac_FULL(5255,4754) - JVS(52726) = -B(7511) -! JVS(52727) = Jac_FULL(5255,4755) - JVS(52727) = -B(1608) -! JVS(52728) = Jac_FULL(5255,4756) - JVS(52728) = -B(7520) -! JVS(52729) = Jac_FULL(5255,4758) - JVS(52729) = -B(10503) -! JVS(52730) = Jac_FULL(5255,4759) - JVS(52730) = -B(22802)-B(22804) -! JVS(52731) = Jac_FULL(5255,4760) - JVS(52731) = -B(8029)-B(8031) -! JVS(52732) = Jac_FULL(5255,4761) - JVS(52732) = -B(14594) -! JVS(52733) = Jac_FULL(5255,4762) - JVS(52733) = -B(14562) -! JVS(52734) = Jac_FULL(5255,4763) - JVS(52734) = -B(1390) -! JVS(52735) = Jac_FULL(5255,4764) - JVS(52735) = -B(19505) -! JVS(52736) = Jac_FULL(5255,4765) - JVS(52736) = -B(11021) -! JVS(52737) = Jac_FULL(5255,4766) - JVS(52737) = -B(1867) -! JVS(52738) = Jac_FULL(5255,4767) - JVS(52738) = -B(1042) -! JVS(52739) = Jac_FULL(5255,4768) - JVS(52739) = -B(16835) -! JVS(52740) = Jac_FULL(5255,4769) - JVS(52740) = -B(9930) -! JVS(52741) = Jac_FULL(5255,4770) - JVS(52741) = -B(19976)-B(19978)-B(19980) -! JVS(52742) = Jac_FULL(5255,4771) - JVS(52742) = -B(8210)-B(8212)-B(8214) -! JVS(52743) = Jac_FULL(5255,4772) - JVS(52743) = -B(20462)-B(20464)-B(20466) -! JVS(52744) = Jac_FULL(5255,4773) - JVS(52744) = -B(9063)-B(9065) -! JVS(52745) = Jac_FULL(5255,4774) - JVS(52745) = -B(6764) -! JVS(52746) = Jac_FULL(5255,4775) - JVS(52746) = 2*B(15994) -! JVS(52747) = Jac_FULL(5255,4776) - JVS(52747) = 0 -! JVS(52748) = Jac_FULL(5255,4777) - JVS(52748) = -B(2160) -! JVS(52749) = Jac_FULL(5255,4778) - JVS(52749) = -B(19596) -! JVS(52750) = Jac_FULL(5255,4779) - JVS(52750) = -B(23646) -! JVS(52751) = Jac_FULL(5255,4780) - JVS(52751) = -B(1172) -! JVS(52752) = Jac_FULL(5255,4781) - JVS(52752) = -B(14495) -! JVS(52753) = Jac_FULL(5255,4782) - JVS(52753) = -B(2136) -! JVS(52754) = Jac_FULL(5255,4783) - JVS(52754) = -B(1530) -! JVS(52755) = Jac_FULL(5255,4784) - JVS(52755) = -B(3306) -! JVS(52756) = Jac_FULL(5255,4785) - JVS(52756) = -B(7667) -! JVS(52757) = Jac_FULL(5255,4786) - JVS(52757) = 0 -! JVS(52758) = Jac_FULL(5255,4787) - JVS(52758) = -B(10279) -! JVS(52759) = Jac_FULL(5255,4788) - JVS(52759) = 0 -! JVS(52760) = Jac_FULL(5255,4789) - JVS(52760) = -B(14361) -! JVS(52761) = Jac_FULL(5255,4790) - JVS(52761) = 0 -! JVS(52762) = Jac_FULL(5255,4791) - JVS(52762) = 0 -! JVS(52763) = Jac_FULL(5255,4792) - JVS(52763) = -B(16016)+B(16020)+B(16024)+B(16026) -! JVS(52764) = Jac_FULL(5255,4793) - JVS(52764) = 0 -! JVS(52765) = Jac_FULL(5255,4794) - JVS(52765) = B(3145) -! JVS(52766) = Jac_FULL(5255,4795) - JVS(52766) = -B(17468)-B(17470)+B(17474)+B(17478)+B(17481) -! JVS(52767) = Jac_FULL(5255,4796) - JVS(52767) = 2*B(7912)+B(7913) -! JVS(52768) = Jac_FULL(5255,4797) - JVS(52768) = 0 -! JVS(52769) = Jac_FULL(5255,4798) - JVS(52769) = 0 -! JVS(52770) = Jac_FULL(5255,4799) - JVS(52770) = B(10041)+B(10042) -! JVS(52771) = Jac_FULL(5255,4800) - JVS(52771) = B(15237) -! JVS(52772) = Jac_FULL(5255,4802) - JVS(52772) = -B(17813) -! JVS(52773) = Jac_FULL(5255,4803) - JVS(52773) = -B(6076) -! JVS(52774) = Jac_FULL(5255,4804) - JVS(52774) = -B(8617) -! JVS(52775) = Jac_FULL(5255,4805) - JVS(52775) = 0 -! JVS(52776) = Jac_FULL(5255,4806) - JVS(52776) = -B(20621)-B(20623) -! JVS(52777) = Jac_FULL(5255,4807) - JVS(52777) = -B(6141)-B(6143)-B(6145) -! JVS(52778) = Jac_FULL(5255,4808) - JVS(52778) = -B(19995)-B(19997)-B(19999) -! JVS(52779) = Jac_FULL(5255,4809) - JVS(52779) = -B(2070) -! JVS(52780) = Jac_FULL(5255,4810) - JVS(52780) = 0 -! JVS(52781) = Jac_FULL(5255,4811) - JVS(52781) = -B(17831) -! JVS(52782) = Jac_FULL(5255,4812) - JVS(52782) = -B(23123)-B(23125)-B(23127) -! JVS(52783) = Jac_FULL(5255,4813) - JVS(52783) = -B(6572) -! JVS(52784) = Jac_FULL(5255,4814) - JVS(52784) = -B(1161) -! JVS(52785) = Jac_FULL(5255,4815) - JVS(52785) = 2*B(16094) -! JVS(52786) = Jac_FULL(5255,4816) - JVS(52786) = -B(18927)-B(18929)-B(18931) -! JVS(52787) = Jac_FULL(5255,4817) - JVS(52787) = -B(8489) -! JVS(52788) = Jac_FULL(5255,4818) - JVS(52788) = -B(23312)-B(23314)-B(23316) -! JVS(52789) = Jac_FULL(5255,4819) - JVS(52789) = 0 -! JVS(52790) = Jac_FULL(5255,4820) - JVS(52790) = -B(23751) -! JVS(52791) = Jac_FULL(5255,4821) - JVS(52791) = -B(5363) -! JVS(52792) = Jac_FULL(5255,4822) - JVS(52792) = -B(8693)-B(8695)-B(8697) -! JVS(52793) = Jac_FULL(5255,4823) - JVS(52793) = -B(8707) -! JVS(52794) = Jac_FULL(5255,4824) - JVS(52794) = 0 -! JVS(52795) = Jac_FULL(5255,4825) - JVS(52795) = -B(22025) -! JVS(52796) = Jac_FULL(5255,4826) - JVS(52796) = -B(20325)+B(20329)+B(20333)+B(20335) -! JVS(52797) = Jac_FULL(5255,4827) - JVS(52797) = -B(10939) -! JVS(52798) = Jac_FULL(5255,4828) - JVS(52798) = 0 -! JVS(52799) = Jac_FULL(5255,4829) - JVS(52799) = -B(5806)-B(5808)-B(5810) -! JVS(52800) = Jac_FULL(5255,4830) - JVS(52800) = -B(14268)-B(14270)-B(14272) -! JVS(52801) = Jac_FULL(5255,4831) - JVS(52801) = -B(21534)+B(21538)+B(21542)+B(21544) -! JVS(52802) = Jac_FULL(5255,4832) - JVS(52802) = B(13659) -! JVS(52803) = Jac_FULL(5255,4833) - JVS(52803) = -B(5412)-B(5414)-B(5416) -! JVS(52804) = Jac_FULL(5255,4834) - JVS(52804) = B(11957) -! JVS(52805) = Jac_FULL(5255,4835) - JVS(52805) = -B(12468) -! JVS(52806) = Jac_FULL(5255,4836) - JVS(52806) = -B(10998)-B(11000)-B(11002) -! JVS(52807) = Jac_FULL(5255,4837) - JVS(52807) = -B(1070) -! JVS(52808) = Jac_FULL(5255,4839) - JVS(52808) = -B(23088)-B(23090)-B(23092) -! JVS(52809) = Jac_FULL(5255,4840) - JVS(52809) = 2*B(258) -! JVS(52810) = Jac_FULL(5255,4841) - JVS(52810) = -B(3276) -! JVS(52811) = Jac_FULL(5255,4842) - JVS(52811) = B(17074) -! JVS(52812) = Jac_FULL(5255,4844) - JVS(52812) = -B(1086) -! JVS(52813) = Jac_FULL(5255,4845) - JVS(52813) = 0 -! JVS(52814) = Jac_FULL(5255,4846) - JVS(52814) = -B(9667)-B(9669)-B(9671) -! JVS(52815) = Jac_FULL(5255,4847) - JVS(52815) = -B(11237)-B(11239)-B(11241) -! JVS(52816) = Jac_FULL(5255,4848) - JVS(52816) = -B(14932)-B(14934)-B(14936) -! JVS(52817) = Jac_FULL(5255,4849) - JVS(52817) = -B(17029)-B(17031)-B(17033) -! JVS(52818) = Jac_FULL(5255,4850) - JVS(52818) = -B(17997)-B(17999)-B(18001) -! JVS(52819) = Jac_FULL(5255,4851) - JVS(52819) = 2*B(13553) -! JVS(52820) = Jac_FULL(5255,4852) - JVS(52820) = -B(3256) -! JVS(52821) = Jac_FULL(5255,4853) - JVS(52821) = -B(23805)-B(23807)-B(23809) -! JVS(52822) = Jac_FULL(5255,4854) - JVS(52822) = -B(23284)-B(23286)-B(23288) -! JVS(52823) = Jac_FULL(5255,4855) - JVS(52823) = -B(14440)-B(14442)-B(14444) -! JVS(52824) = Jac_FULL(5255,4856) - JVS(52824) = -B(8514) -! JVS(52825) = Jac_FULL(5255,4857) - JVS(52825) = -B(12636) -! JVS(52826) = Jac_FULL(5255,4858) - JVS(52826) = -B(3247) -! JVS(52827) = Jac_FULL(5255,4859) - JVS(52827) = 0 -! JVS(52828) = Jac_FULL(5255,4860) - JVS(52828) = -B(8007)-B(8009) -! JVS(52829) = Jac_FULL(5255,4861) - JVS(52829) = -B(12460) -! JVS(52830) = Jac_FULL(5255,4862) - JVS(52830) = -B(7867)-B(7869)-B(7871) -! JVS(52831) = Jac_FULL(5255,4863) - JVS(52831) = -B(21058)-B(21060)-B(21062) -! JVS(52832) = Jac_FULL(5255,4864) - JVS(52832) = -B(16118)+B(16122)+B(16126)+B(16128) -! JVS(52833) = Jac_FULL(5255,4865) - JVS(52833) = 0 -! JVS(52834) = Jac_FULL(5255,4866) - JVS(52834) = -B(17534)-B(17536)-B(17538) -! JVS(52835) = Jac_FULL(5255,4867) - JVS(52835) = -B(22370)-B(22372)-B(22374) -! JVS(52836) = Jac_FULL(5255,4870) - JVS(52836) = -B(976) -! JVS(52837) = Jac_FULL(5255,4871) - JVS(52837) = -B(10932) -! JVS(52838) = Jac_FULL(5255,4872) - JVS(52838) = B(3755)+B(3758) -! JVS(52839) = Jac_FULL(5255,4873) - JVS(52839) = 2*B(5141) -! JVS(52840) = Jac_FULL(5255,4874) - JVS(52840) = -B(19727)-B(19729) -! JVS(52841) = Jac_FULL(5255,4875) - JVS(52841) = -B(22813) -! JVS(52842) = Jac_FULL(5255,4876) - JVS(52842) = -B(1651) -! JVS(52843) = Jac_FULL(5255,4877) - JVS(52843) = -B(12803) -! JVS(52844) = Jac_FULL(5255,4878) - JVS(52844) = -B(1910) -! JVS(52845) = Jac_FULL(5255,4879) - JVS(52845) = -B(2233) -! JVS(52846) = Jac_FULL(5255,4880) - JVS(52846) = -B(8103) -! JVS(52847) = Jac_FULL(5255,4881) - JVS(52847) = -B(2188) -! JVS(52848) = Jac_FULL(5255,4882) - JVS(52848) = B(7731) -! JVS(52849) = Jac_FULL(5255,4883) - JVS(52849) = B(14876)+B(14878) -! JVS(52850) = Jac_FULL(5255,4884) - JVS(52850) = -B(2277) -! JVS(52851) = Jac_FULL(5255,4885) - JVS(52851) = -B(10839) -! JVS(52852) = Jac_FULL(5255,4886) - JVS(52852) = -B(1856) -! JVS(52853) = Jac_FULL(5255,4887) - JVS(52853) = -B(5442) -! JVS(52854) = Jac_FULL(5255,4888) - JVS(52854) = -B(13081)-B(13083)-B(13085) -! JVS(52855) = Jac_FULL(5255,4889) - JVS(52855) = -B(8626) -! JVS(52856) = Jac_FULL(5255,4890) - JVS(52856) = -B(19738) -! JVS(52857) = Jac_FULL(5255,4891) - JVS(52857) = -B(14477)-B(14479) -! JVS(52858) = Jac_FULL(5255,4892) - JVS(52858) = -B(5510)-B(5512)-B(5514) -! JVS(52859) = Jac_FULL(5255,4893) - JVS(52859) = -B(5626) -! JVS(52860) = Jac_FULL(5255,4894) - JVS(52860) = -B(10640) -! JVS(52861) = Jac_FULL(5255,4895) - JVS(52861) = 0 -! JVS(52862) = Jac_FULL(5255,4896) - JVS(52862) = 0 -! JVS(52863) = Jac_FULL(5255,4897) - JVS(52863) = -B(6313) -! JVS(52864) = Jac_FULL(5255,4898) - JVS(52864) = -B(14282) -! JVS(52865) = Jac_FULL(5255,4899) - JVS(52865) = -B(6087) -! JVS(52866) = Jac_FULL(5255,4900) - JVS(52866) = -B(19199) -! JVS(52867) = Jac_FULL(5255,4901) - JVS(52867) = -B(1673) -! JVS(52868) = Jac_FULL(5255,4902) - JVS(52868) = B(22315) -! JVS(52869) = Jac_FULL(5255,4903) - JVS(52869) = -B(15214) -! JVS(52870) = Jac_FULL(5255,4904) - JVS(52870) = -B(18212) -! JVS(52871) = Jac_FULL(5255,4905) - JVS(52871) = -B(6385) -! JVS(52872) = Jac_FULL(5255,4907) - JVS(52872) = 0 -! JVS(52873) = Jac_FULL(5255,4908) - JVS(52873) = 0 -! JVS(52874) = Jac_FULL(5255,4910) - JVS(52874) = -B(14254)-B(14256)-B(14258) -! JVS(52875) = Jac_FULL(5255,4911) - JVS(52875) = -B(15034) -! JVS(52876) = Jac_FULL(5255,4912) - JVS(52876) = 0 -! JVS(52877) = Jac_FULL(5255,4913) - JVS(52877) = -B(9681) -! JVS(52878) = Jac_FULL(5255,4914) - JVS(52878) = B(11099) -! JVS(52879) = Jac_FULL(5255,4915) - JVS(52879) = -B(7819)-B(7821)-B(7823) -! JVS(52880) = Jac_FULL(5255,4916) - JVS(52880) = -B(8670)-B(8672)-B(8674) -! JVS(52881) = Jac_FULL(5255,4917) - JVS(52881) = -B(9434)-B(9436)-B(9438) -! JVS(52882) = Jac_FULL(5255,4918) - JVS(52882) = B(9415) -! JVS(52883) = Jac_FULL(5255,4919) - JVS(52883) = 0 -! JVS(52884) = Jac_FULL(5255,4920) - JVS(52884) = -B(13402) -! JVS(52885) = Jac_FULL(5255,4921) - JVS(52885) = -B(14571)-B(14573)-B(14575) -! JVS(52886) = Jac_FULL(5255,4922) - JVS(52886) = -B(1564) -! JVS(52887) = Jac_FULL(5255,4923) - JVS(52887) = -B(1555) -! JVS(52888) = Jac_FULL(5255,4924) - JVS(52888) = -B(3998)+B(4000)+B(4004)+B(4006) -! JVS(52889) = Jac_FULL(5255,4925) - JVS(52889) = -B(3415) -! JVS(52890) = Jac_FULL(5255,4926) - JVS(52890) = -B(16814)-B(16816)-B(16818) -! JVS(52891) = Jac_FULL(5255,4927) - JVS(52891) = 0 -! JVS(52892) = Jac_FULL(5255,4928) - JVS(52892) = -B(5912) -! JVS(52893) = Jac_FULL(5255,4929) - JVS(52893) = -B(15581) -! JVS(52894) = Jac_FULL(5255,4930) - JVS(52894) = -B(9545)-B(9547)-B(9549) -! JVS(52895) = Jac_FULL(5255,4931) - JVS(52895) = B(7666) -! JVS(52896) = Jac_FULL(5255,4932) - JVS(52896) = -B(1469)-B(1471) -! JVS(52897) = Jac_FULL(5255,4933) - JVS(52897) = B(6561) -! JVS(52898) = Jac_FULL(5255,4934) - JVS(52898) = -B(15020)-B(15022)-B(15024) -! JVS(52899) = Jac_FULL(5255,4935) - JVS(52899) = -B(6173) -! JVS(52900) = Jac_FULL(5255,4936) - JVS(52900) = -B(1519) -! JVS(52901) = Jac_FULL(5255,4937) - JVS(52901) = B(5979)+B(5980)+B(5981)+B(5982)+B(5983)+B(5984) -! JVS(52902) = Jac_FULL(5255,4939) - JVS(52902) = B(13894) -! JVS(52903) = Jac_FULL(5255,4940) - JVS(52903) = -B(14612) -! JVS(52904) = Jac_FULL(5255,4942) - JVS(52904) = -B(1705) -! JVS(52905) = Jac_FULL(5255,4944) - JVS(52905) = -B(1409)-B(1411)-B(1413) -! JVS(52906) = Jac_FULL(5255,4945) - JVS(52906) = B(13861)+B(13863) -! JVS(52907) = Jac_FULL(5255,4946) - JVS(52907) = -B(13373)-B(13375)-B(13377) -! JVS(52908) = Jac_FULL(5255,4947) - JVS(52908) = -B(8956) -! JVS(52909) = Jac_FULL(5255,4948) - JVS(52909) = -B(6062)-B(6064)-B(6066) -! JVS(52910) = Jac_FULL(5255,4949) - JVS(52910) = -B(7602)-B(7604)-B(7606) -! JVS(52911) = Jac_FULL(5255,4950) - JVS(52911) = B(5404)+B(5405)+B(5406)+B(5407)+B(5408)+B(5409) -! JVS(52912) = Jac_FULL(5255,4951) - JVS(52912) = 0 -! JVS(52913) = Jac_FULL(5255,4952) - JVS(52913) = 0 -! JVS(52914) = Jac_FULL(5255,4953) - JVS(52914) = -B(14454)-B(14456)-B(14458) -! JVS(52915) = Jac_FULL(5255,4954) - JVS(52915) = -B(1445)-B(1447)+B(1451)+B(1455)+B(1458) -! JVS(52916) = Jac_FULL(5255,4955) - JVS(52916) = -B(22532)-B(22534)-B(22536) -! JVS(52917) = Jac_FULL(5255,4957) - JVS(52917) = -B(17418)-B(17420)-B(17422) -! JVS(52918) = Jac_FULL(5255,4958) - JVS(52918) = 0 -! JVS(52919) = Jac_FULL(5255,4959) - JVS(52919) = -B(1129) -! JVS(52920) = Jac_FULL(5255,4960) - JVS(52920) = -B(23335) -! JVS(52921) = Jac_FULL(5255,4961) - JVS(52921) = B(5074) -! JVS(52922) = Jac_FULL(5255,4962) - JVS(52922) = -B(14887)-B(14889)-B(14891) -! JVS(52923) = Jac_FULL(5255,4964) - JVS(52923) = B(757)+B(758) -! JVS(52924) = Jac_FULL(5255,4965) - JVS(52924) = 0 -! JVS(52925) = Jac_FULL(5255,4966) - JVS(52925) = -B(15918)+B(15922)+B(15926)+B(15928) -! JVS(52926) = Jac_FULL(5255,4967) - JVS(52926) = -B(15225) -! JVS(52927) = Jac_FULL(5255,4968) - JVS(52927) = -B(12513)-B(12515)-B(12517) -! JVS(52928) = Jac_FULL(5255,4969) - JVS(52928) = -B(20632)-B(20634) -! JVS(52929) = Jac_FULL(5255,4970) - JVS(52929) = 0 -! JVS(52930) = Jac_FULL(5255,4971) - JVS(52930) = -B(5996) -! JVS(52931) = Jac_FULL(5255,4972) - JVS(52931) = -B(2092) -! JVS(52932) = Jac_FULL(5255,4973) - JVS(52932) = B(3696) -! JVS(52933) = Jac_FULL(5255,4974) - JVS(52933) = -B(1749) -! JVS(52934) = Jac_FULL(5255,4975) - JVS(52934) = B(11820)+B(11823) -! JVS(52935) = Jac_FULL(5255,4976) - JVS(52935) = 0 -! JVS(52936) = Jac_FULL(5255,4977) - JVS(52936) = -B(20279)-B(20281)-B(20283) -! JVS(52937) = Jac_FULL(5255,4978) - JVS(52937) = B(23522) -! JVS(52938) = Jac_FULL(5255,4979) - JVS(52938) = -B(17564)-B(17566)-B(17568) -! JVS(52939) = Jac_FULL(5255,4980) - JVS(52939) = -B(1694) -! JVS(52940) = Jac_FULL(5255,4981) - JVS(52940) = -B(1619) -! JVS(52941) = Jac_FULL(5255,4982) - JVS(52941) = -B(16614) -! JVS(52942) = Jac_FULL(5255,4983) - JVS(52942) = B(11639) -! JVS(52943) = Jac_FULL(5255,4984) - JVS(52943) = -B(19619)-B(19621) -! JVS(52944) = Jac_FULL(5255,4985) - JVS(52944) = -B(9818)-B(9820) -! JVS(52945) = Jac_FULL(5255,4986) - JVS(52945) = -B(8840)-B(8842)-B(8844) -! JVS(52946) = Jac_FULL(5255,4987) - JVS(52946) = -B(17021) -! JVS(52947) = Jac_FULL(5255,4988) - JVS(52947) = 0 -! JVS(52948) = Jac_FULL(5255,4989) - JVS(52948) = -B(14679)-B(14681)-B(14683) -! JVS(52949) = Jac_FULL(5255,4990) - JVS(52949) = -B(8073)-B(8075) -! JVS(52950) = Jac_FULL(5255,4991) - JVS(52950) = -B(10848) -! JVS(52951) = Jac_FULL(5255,4992) - JVS(52951) = -B(6472) -! JVS(52952) = Jac_FULL(5255,4993) - JVS(52952) = -B(12444)-B(12446)-B(12448) -! JVS(52953) = Jac_FULL(5255,4994) - JVS(52953) = -B(8235)-B(8237)-B(8239) -! JVS(52954) = Jac_FULL(5255,4995) - JVS(52954) = -B(932) -! JVS(52955) = Jac_FULL(5255,4996) - JVS(52955) = B(14206) -! JVS(52956) = Jac_FULL(5255,4997) - JVS(52956) = 0 -! JVS(52957) = Jac_FULL(5255,4998) - JVS(52957) = 0 -! JVS(52958) = Jac_FULL(5255,4999) - JVS(52958) = 0 -! JVS(52959) = Jac_FULL(5255,5000) - JVS(52959) = 2*B(1254) -! JVS(52960) = Jac_FULL(5255,5001) - JVS(52960) = -B(9097) -! JVS(52961) = Jac_FULL(5255,5002) - JVS(52961) = B(10592) -! JVS(52962) = Jac_FULL(5255,5003) - JVS(52962) = -B(20410)-B(20412)-B(20414) -! JVS(52963) = Jac_FULL(5255,5004) - JVS(52963) = -B(20596)-B(20598)-B(20600) -! JVS(52964) = Jac_FULL(5255,5005) - JVS(52964) = -B(20398)-B(20400)+B(20402)+B(20406)+B(20408) -! JVS(52965) = Jac_FULL(5255,5006) - JVS(52965) = -B(19361)-B(19363)-B(19365) -! JVS(52966) = Jac_FULL(5255,5007) - JVS(52966) = -B(987) -! JVS(52967) = Jac_FULL(5255,5008) - JVS(52967) = -B(7711)-B(7713)-B(7715) -! JVS(52968) = Jac_FULL(5255,5009) - JVS(52968) = 2*B(4971) -! JVS(52969) = Jac_FULL(5255,5010) - JVS(52969) = B(11801) -! JVS(52970) = Jac_FULL(5255,5011) - JVS(52970) = -B(9867) -! JVS(52971) = Jac_FULL(5255,5012) - JVS(52971) = 2*B(3895) -! JVS(52972) = Jac_FULL(5255,5013) - JVS(52972) = 0 -! JVS(52973) = Jac_FULL(5255,5014) - JVS(52973) = -B(14665)-B(14667)-B(14669) -! JVS(52974) = Jac_FULL(5255,5015) - JVS(52974) = -B(10415) -! JVS(52975) = Jac_FULL(5255,5016) - JVS(52975) = -B(6736) -! JVS(52976) = Jac_FULL(5255,5017) - JVS(52976) = -B(19267)-B(19269)-B(19271) -! JVS(52977) = Jac_FULL(5255,5018) - JVS(52977) = B(18138) -! JVS(52978) = Jac_FULL(5255,5019) - JVS(52978) = -B(20728) -! JVS(52979) = Jac_FULL(5255,5020) - JVS(52979) = -B(6723) -! JVS(52980) = Jac_FULL(5255,5021) - JVS(52980) = -B(19091)-B(19093)-B(19095) -! JVS(52981) = Jac_FULL(5255,5022) - JVS(52981) = -B(13833) -! JVS(52982) = Jac_FULL(5255,5023) - JVS(52982) = B(4236) -! JVS(52983) = Jac_FULL(5255,5024) - JVS(52983) = 0 -! JVS(52984) = Jac_FULL(5255,5025) - JVS(52984) = -B(13694)-B(13696)+B(13698)+B(13702)+B(13704)+B(13705) -! JVS(52985) = Jac_FULL(5255,5026) - JVS(52985) = B(7086) -! JVS(52986) = Jac_FULL(5255,5027) - JVS(52986) = -B(22994)-B(22996)-B(22998) -! JVS(52987) = Jac_FULL(5255,5028) - JVS(52987) = -B(14585) -! JVS(52988) = Jac_FULL(5255,5029) - JVS(52988) = -B(11046)-B(11048)-B(11050) -! JVS(52989) = Jac_FULL(5255,5030) - JVS(52989) = B(6028)+B(6029)+B(6030)+B(6031)+B(6032)+B(6033) -! JVS(52990) = Jac_FULL(5255,5031) - JVS(52990) = 0 -! JVS(52991) = Jac_FULL(5255,5032) - JVS(52991) = -B(3366) -! JVS(52992) = Jac_FULL(5255,5033) - JVS(52992) = -B(13796)-B(13798)-B(13800)+B(13808) -! JVS(52993) = Jac_FULL(5255,5034) - JVS(52993) = -B(9313)-B(9315)-B(9317) -! JVS(52994) = Jac_FULL(5255,5035) - JVS(52994) = -B(13707) -! JVS(52995) = Jac_FULL(5255,5036) - JVS(52995) = -B(7936)-B(7938)+B(7942)+B(7946)+B(7949) -! JVS(52996) = Jac_FULL(5255,5037) - JVS(52996) = B(9185) -! JVS(52997) = Jac_FULL(5255,5038) - JVS(52997) = -B(7883)+B(7885)+B(7889)+B(7891) -! JVS(52998) = Jac_FULL(5255,5039) - JVS(52998) = -B(14639) -! JVS(52999) = Jac_FULL(5255,5040) - JVS(52999) = 0 -! JVS(53000) = Jac_FULL(5255,5041) - JVS(53000) = -B(7535) -! JVS(53001) = Jac_FULL(5255,5042) - JVS(53001) = B(1054) -! JVS(53002) = Jac_FULL(5255,5043) - JVS(53002) = -B(2201) -! JVS(53003) = Jac_FULL(5255,5044) - JVS(53003) = -B(20942)-B(20944)-B(20946) -! JVS(53004) = Jac_FULL(5255,5045) - JVS(53004) = -B(1813) -! JVS(53005) = Jac_FULL(5255,5046) - JVS(53005) = B(31) -! JVS(53006) = Jac_FULL(5255,5047) - JVS(53006) = 0 -! JVS(53007) = Jac_FULL(5255,5048) - JVS(53007) = 0 -! JVS(53008) = Jac_FULL(5255,5049) - JVS(53008) = B(6655)+2*B(6656) -! JVS(53009) = Jac_FULL(5255,5050) - JVS(53009) = 2*B(6628) -! JVS(53010) = Jac_FULL(5255,5051) - JVS(53010) = 0 -! JVS(53011) = Jac_FULL(5255,5052) - JVS(53011) = -B(19414)-B(19416)-B(19418) -! JVS(53012) = Jac_FULL(5255,5053) - JVS(53012) = -B(3227) -! JVS(53013) = Jac_FULL(5255,5054) - JVS(53013) = -B(23632)-B(23634)-B(23636) -! JVS(53014) = Jac_FULL(5255,5055) - JVS(53014) = B(4138)+B(4141) -! JVS(53015) = Jac_FULL(5255,5056) - JVS(53015) = -B(1771) -! JVS(53016) = Jac_FULL(5255,5057) - JVS(53016) = B(3865) -! JVS(53017) = Jac_FULL(5255,5058) - JVS(53017) = B(5267) -! JVS(53018) = Jac_FULL(5255,5059) - JVS(53018) = -B(18046) -! JVS(53019) = Jac_FULL(5255,5060) - JVS(53019) = -B(998) -! JVS(53020) = Jac_FULL(5255,5061) - JVS(53020) = -B(1792) -! JVS(53021) = Jac_FULL(5255,5062) - JVS(53021) = -B(1597) -! JVS(53022) = Jac_FULL(5255,5063) - JVS(53022) = B(11897) -! JVS(53023) = Jac_FULL(5255,5064) - JVS(53023) = B(11878) -! JVS(53024) = Jac_FULL(5255,5065) - JVS(53024) = -B(1964) -! JVS(53025) = Jac_FULL(5255,5066) - JVS(53025) = B(9426) -! JVS(53026) = Jac_FULL(5255,5067) - JVS(53026) = B(4881) -! JVS(53027) = Jac_FULL(5255,5068) - JVS(53027) = B(9536)+B(9538) -! JVS(53028) = Jac_FULL(5255,5069) - JVS(53028) = B(6708) -! JVS(53029) = Jac_FULL(5255,5070) - JVS(53029) = 0 -! JVS(53030) = Jac_FULL(5255,5071) - JVS(53030) = B(3729) -! JVS(53031) = Jac_FULL(5255,5072) - JVS(53031) = B(22908)+B(22909) -! JVS(53032) = Jac_FULL(5255,5073) - JVS(53032) = -B(20823)-B(20825) -! JVS(53033) = Jac_FULL(5255,5074) - JVS(53033) = -B(13731) -! JVS(53034) = Jac_FULL(5255,5075) - JVS(53034) = -B(18833)-B(18835)-B(18837)+B(18845) -! JVS(53035) = Jac_FULL(5255,5076) - JVS(53035) = B(8925) -! JVS(53036) = Jac_FULL(5255,5077) - JVS(53036) = -B(1835) -! JVS(53037) = Jac_FULL(5255,5078) - JVS(53037) = -B(1684) -! JVS(53038) = Jac_FULL(5255,5079) - JVS(53038) = -B(16800)-B(16802)-B(16804) -! JVS(53039) = Jac_FULL(5255,5080) - JVS(53039) = B(10472) -! JVS(53040) = Jac_FULL(5255,5081) - JVS(53040) = -B(3396) -! JVS(53041) = Jac_FULL(5255,5082) - JVS(53041) = -B(1824) -! JVS(53042) = Jac_FULL(5255,5083) - JVS(53042) = B(14439) -! JVS(53043) = Jac_FULL(5255,5084) - JVS(53043) = -B(19281) -! JVS(53044) = Jac_FULL(5255,5085) - JVS(53044) = B(20856) -! JVS(53045) = Jac_FULL(5255,5086) - JVS(53045) = B(19109) -! JVS(53046) = Jac_FULL(5255,5087) - JVS(53046) = 2*B(1229) -! JVS(53047) = Jac_FULL(5255,5088) - JVS(53047) = -B(15263)-B(15265)-B(15267) -! JVS(53048) = Jac_FULL(5255,5089) - JVS(53048) = B(9049) -! JVS(53049) = Jac_FULL(5255,5090) - JVS(53049) = -B(15136)-B(15138)-B(15140) -! JVS(53050) = Jac_FULL(5255,5091) - JVS(53050) = -B(13899) -! JVS(53051) = Jac_FULL(5255,5092) - JVS(53051) = 0 -! JVS(53052) = Jac_FULL(5255,5093) - JVS(53052) = B(6684) -! JVS(53053) = Jac_FULL(5255,5094) - JVS(53053) = 2*B(4316) -! JVS(53054) = Jac_FULL(5255,5095) - JVS(53054) = B(19328) -! JVS(53055) = Jac_FULL(5255,5096) - JVS(53055) = -B(2116) -! JVS(53056) = Jac_FULL(5255,5097) - JVS(53056) = -B(3284) -! JVS(53057) = Jac_FULL(5255,5098) - JVS(53057) = -B(3218) -! JVS(53058) = Jac_FULL(5255,5099) - JVS(53058) = -B(11261)-B(11263)-B(11265) -! JVS(53059) = Jac_FULL(5255,5100) - JVS(53059) = -B(7963)+B(7967)+B(7971)+B(7973) -! JVS(53060) = Jac_FULL(5255,5101) - JVS(53060) = -B(7678)-B(7680) -! JVS(53061) = Jac_FULL(5255,5102) - JVS(53061) = 0 -! JVS(53062) = Jac_FULL(5255,5103) - JVS(53062) = B(10064)+B(10065) -! JVS(53063) = Jac_FULL(5255,5104) - JVS(53063) = -B(21089) -! JVS(53064) = Jac_FULL(5255,5105) - JVS(53064) = B(16774) -! JVS(53065) = Jac_FULL(5255,5106) - JVS(53065) = -B(1365)-B(1367)-B(1369) -! JVS(53066) = Jac_FULL(5255,5107) - JVS(53066) = -B(1942) -! JVS(53067) = Jac_FULL(5255,5108) - JVS(53067) = -B(8249) -! JVS(53068) = Jac_FULL(5255,5109) - JVS(53068) = -B(1716) -! JVS(53069) = Jac_FULL(5255,5110) - JVS(53069) = 0 -! JVS(53070) = Jac_FULL(5255,5111) - JVS(53070) = -B(20610)-B(20612) -! JVS(53071) = Jac_FULL(5255,5112) - JVS(53071) = -B(1931) -! JVS(53072) = Jac_FULL(5255,5113) - JVS(53072) = B(22948)+2*B(22951) -! JVS(53073) = Jac_FULL(5255,5114) - JVS(53073) = -B(17376) -! JVS(53074) = Jac_FULL(5255,5115) - JVS(53074) = B(11784)+B(11787) -! JVS(53075) = Jac_FULL(5255,5116) - JVS(53075) = -B(1140) -! JVS(53076) = Jac_FULL(5255,5117) - JVS(53076) = -B(10873)-B(10875)-B(10877) -! JVS(53077) = Jac_FULL(5255,5118) - JVS(53077) = -B(6928) -! JVS(53078) = Jac_FULL(5255,5119) - JVS(53078) = -B(8295) -! JVS(53079) = Jac_FULL(5255,5120) - JVS(53079) = -B(15009) -! JVS(53080) = Jac_FULL(5255,5121) - JVS(53080) = -B(943) -! JVS(53081) = Jac_FULL(5255,5122) - JVS(53081) = -B(14702) -! JVS(53082) = Jac_FULL(5255,5123) - JVS(53082) = B(8832) -! JVS(53083) = Jac_FULL(5255,5124) - JVS(53083) = 0 -! JVS(53084) = Jac_FULL(5255,5125) - JVS(53084) = -B(1329)-B(1331)-B(1333) -! JVS(53085) = Jac_FULL(5255,5126) - JVS(53085) = B(9305) -! JVS(53086) = Jac_FULL(5255,5127) - JVS(53086) = -B(6894) -! JVS(53087) = Jac_FULL(5255,5128) - JVS(53087) = -B(1495)-B(1497)-B(1499) -! JVS(53088) = Jac_FULL(5255,5129) - JVS(53088) = -B(1019) -! JVS(53089) = Jac_FULL(5255,5130) - JVS(53089) = -B(23069) -! JVS(53090) = Jac_FULL(5255,5131) - JVS(53090) = -B(19400)-B(19402)-B(19404) -! JVS(53091) = Jac_FULL(5255,5132) - JVS(53091) = -B(3124) -! JVS(53092) = Jac_FULL(5255,5133) - JVS(53092) = -B(11642)-B(11644)-B(11646) -! JVS(53093) = Jac_FULL(5255,5134) - JVS(53093) = -B(13843) -! JVS(53094) = Jac_FULL(5255,5135) - JVS(53094) = -B(2266) -! JVS(53095) = Jac_FULL(5255,5136) - JVS(53095) = -B(7627)-B(7629) -! JVS(53096) = Jac_FULL(5255,5137) - JVS(53096) = -B(7842)-B(7844)-B(7846) -! JVS(53097) = Jac_FULL(5255,5138) - JVS(53097) = -B(1953) -! JVS(53098) = Jac_FULL(5255,5139) - JVS(53098) = B(7024) -! JVS(53099) = Jac_FULL(5255,5140) - JVS(53099) = B(11758) -! JVS(53100) = Jac_FULL(5255,5141) - JVS(53100) = B(10149) -! JVS(53101) = Jac_FULL(5255,5142) - JVS(53101) = -B(1318) -! JVS(53102) = Jac_FULL(5255,5143) - JVS(53102) = B(4207) -! JVS(53103) = Jac_FULL(5255,5144) - JVS(53103) = -B(1920) -! JVS(53104) = Jac_FULL(5255,5145) - JVS(53104) = -B(1398) -! JVS(53105) = Jac_FULL(5255,5146) - JVS(53105) = -B(1878) -! JVS(53106) = Jac_FULL(5255,5147) - JVS(53106) = -B(1662) -! JVS(53107) = Jac_FULL(5255,5148) - JVS(53107) = -B(1107) -! JVS(53108) = Jac_FULL(5255,5149) - JVS(53108) = -B(2042) -! JVS(53109) = Jac_FULL(5255,5150) - JVS(53109) = -B(10910) -! JVS(53110) = Jac_FULL(5255,5151) - JVS(53110) = -B(3236) -! JVS(53111) = Jac_FULL(5255,5152) - JVS(53111) = -B(8425)-B(8427)-B(8429) -! JVS(53112) = Jac_FULL(5255,5153) - JVS(53112) = 0 -! JVS(53113) = Jac_FULL(5255,5154) - JVS(53113) = -B(13742) -! JVS(53114) = Jac_FULL(5255,5155) - JVS(53114) = -B(7922)-B(7924)-B(7926) -! JVS(53115) = Jac_FULL(5255,5156) - JVS(53115) = 0 -! JVS(53116) = Jac_FULL(5255,5157) - JVS(53116) = 0 -! JVS(53117) = Jac_FULL(5255,5158) - JVS(53117) = -B(7794)-B(7796) -! JVS(53118) = Jac_FULL(5255,5159) - JVS(53118) = B(19136)+B(19140) -! JVS(53119) = Jac_FULL(5255,5161) - JVS(53119) = -B(3265) -! JVS(53120) = Jac_FULL(5255,5162) - JVS(53120) = B(4488) -! JVS(53121) = Jac_FULL(5255,5163) - JVS(53121) = -B(1629) -! JVS(53122) = Jac_FULL(5255,5164) - JVS(53122) = -B(7805)-B(7807)-B(7809) -! JVS(53123) = Jac_FULL(5255,5165) - JVS(53123) = B(212) -! JVS(53124) = Jac_FULL(5255,5166) - JVS(53124) = B(793)+B(795) -! JVS(53125) = Jac_FULL(5255,5167) - JVS(53125) = -B(16690)-B(16692)+B(16696)+B(16701) -! JVS(53126) = Jac_FULL(5255,5168) - JVS(53126) = 0 -! JVS(53127) = Jac_FULL(5255,5169) - JVS(53127) = B(11198) -! JVS(53128) = Jac_FULL(5255,5170) - JVS(53128) = 0 -! JVS(53129) = Jac_FULL(5255,5171) - JVS(53129) = -B(18978)-B(18980) -! JVS(53130) = Jac_FULL(5255,5172) - JVS(53130) = -B(18758)-B(18760) -! JVS(53131) = Jac_FULL(5255,5173) - JVS(53131) = -B(10628) -! JVS(53132) = Jac_FULL(5255,5174) - JVS(53132) = -B(13820) -! JVS(53133) = Jac_FULL(5255,5175) - JVS(53133) = 0 -! JVS(53134) = Jac_FULL(5255,5176) - JVS(53134) = B(14416) -! JVS(53135) = Jac_FULL(5255,5177) - JVS(53135) = B(22523) -! JVS(53136) = Jac_FULL(5255,5178) - JVS(53136) = 0 -! JVS(53137) = Jac_FULL(5255,5179) - JVS(53137) = -B(17482)-B(17484)-B(17486) -! JVS(53138) = Jac_FULL(5255,5180) - JVS(53138) = 0 -! JVS(53139) = Jac_FULL(5255,5181) - JVS(53139) = -B(1975) -! JVS(53140) = Jac_FULL(5255,5182) - JVS(53140) = B(17413) -! JVS(53141) = Jac_FULL(5255,5183) - JVS(53141) = -B(1304)-B(1306)-B(1308) -! JVS(53142) = Jac_FULL(5255,5184) - JVS(53142) = B(3648) -! JVS(53143) = Jac_FULL(5255,5185) - JVS(53143) = -B(1031) -! JVS(53144) = Jac_FULL(5255,5186) - JVS(53144) = -B(1727) -! JVS(53145) = Jac_FULL(5255,5187) - JVS(53145) = 0 -! JVS(53146) = Jac_FULL(5255,5188) - JVS(53146) = B(1222)+B(1224) -! JVS(53147) = Jac_FULL(5255,5189) - JVS(53147) = B(21962) -! JVS(53148) = Jac_FULL(5255,5190) - JVS(53148) = 0 -! JVS(53149) = Jac_FULL(5255,5191) - JVS(53149) = B(188) -! JVS(53150) = Jac_FULL(5255,5192) - JVS(53150) = -B(1640) -! JVS(53151) = Jac_FULL(5255,5193) - JVS(53151) = B(177) -! JVS(53152) = Jac_FULL(5255,5194) - JVS(53152) = B(223) -! JVS(53153) = Jac_FULL(5255,5195) - JVS(53153) = -B(921) -! JVS(53154) = Jac_FULL(5255,5196) - JVS(53154) = -B(17043) -! JVS(53155) = Jac_FULL(5255,5197) - JVS(53155) = -B(10830) -! JVS(53156) = Jac_FULL(5255,5198) - JVS(53156) = -B(7282) -! JVS(53157) = Jac_FULL(5255,5199) - JVS(53157) = B(13303) -! JVS(53158) = Jac_FULL(5255,5200) - JVS(53158) = 0 -! JVS(53159) = Jac_FULL(5255,5202) - JVS(53159) = -B(954) -! JVS(53160) = Jac_FULL(5255,5203) - JVS(53160) = B(205) -! JVS(53161) = Jac_FULL(5255,5204) - JVS(53161) = -B(6800)+B(6809) -! JVS(53162) = Jac_FULL(5255,5205) - JVS(53162) = 2*B(10525)+B(10526)+B(10533) -! JVS(53163) = Jac_FULL(5255,5206) - JVS(53163) = -B(7555) -! JVS(53164) = Jac_FULL(5255,5207) - JVS(53164) = B(11398) -! JVS(53165) = Jac_FULL(5255,5208) - JVS(53165) = -B(1434) -! JVS(53166) = Jac_FULL(5255,5209) - JVS(53166) = B(8819)+B(8820) -! JVS(53167) = Jac_FULL(5255,5210) - JVS(53167) = 2*B(4366) -! JVS(53168) = Jac_FULL(5255,5211) - JVS(53168) = B(14927) -! JVS(53169) = Jac_FULL(5255,5212) - JVS(53169) = B(11234) -! JVS(53170) = Jac_FULL(5255,5213) - JVS(53170) = B(11038) -! JVS(53171) = Jac_FULL(5255,5214) - JVS(53171) = -B(16842)-B(16844)-B(16846) -! JVS(53172) = Jac_FULL(5255,5215) - JVS(53172) = 0 -! JVS(53173) = Jac_FULL(5255,5216) - JVS(53173) = -B(7898)-B(7900)+B(7904)+B(7906)+B(7908)+B(7910) -! JVS(53174) = Jac_FULL(5255,5217) - JVS(53174) = -B(6773)+B(6782) -! JVS(53175) = Jac_FULL(5255,5218) - JVS(53175) = -B(6916) -! JVS(53176) = Jac_FULL(5255,5219) - JVS(53176) = -B(6787) -! JVS(53177) = Jac_FULL(5255,5220) - JVS(53177) = B(10594)+B(10595)+B(10602) -! JVS(53178) = Jac_FULL(5255,5221) - JVS(53178) = B(4297)+B(4301) -! JVS(53179) = Jac_FULL(5255,5222) - JVS(53179) = B(1511) -! JVS(53180) = Jac_FULL(5255,5223) - JVS(53180) = 0 -! JVS(53181) = Jac_FULL(5255,5224) - JVS(53181) = -B(6814) -! JVS(53182) = Jac_FULL(5255,5225) - JVS(53182) = B(10464) -! JVS(53183) = Jac_FULL(5255,5226) - JVS(53183) = B(228)+B(229) -! JVS(53184) = Jac_FULL(5255,5227) - JVS(53184) = B(3103) -! JVS(53185) = Jac_FULL(5255,5228) - JVS(53185) = -B(1280)-B(1282) -! JVS(53186) = Jac_FULL(5255,5229) - JVS(53186) = -B(1354) -! JVS(53187) = Jac_FULL(5255,5230) - JVS(53187) = B(196) -! JVS(53188) = Jac_FULL(5255,5231) - JVS(53188) = 2*B(171)+B(173)+B(175) -! JVS(53189) = Jac_FULL(5255,5232) - JVS(53189) = -B(3984)-B(3986)+B(3988)+B(3992)+B(3994) -! JVS(53190) = Jac_FULL(5255,5233) - JVS(53190) = 2*B(1483) -! JVS(53191) = Jac_FULL(5255,5234) - JVS(53191) = B(1217)+2*B(1221) -! JVS(53192) = Jac_FULL(5255,5235) - JVS(53192) = -B(1295) -! JVS(53193) = Jac_FULL(5255,5236) - JVS(53193) = -B(7431) -! JVS(53194) = Jac_FULL(5255,5237) - JVS(53194) = -B(7588)-B(7590)-B(7592) -! JVS(53195) = Jac_FULL(5255,5238) - JVS(53195) = 0 -! JVS(53196) = Jac_FULL(5255,5239) - JVS(53196) = -B(3823) -! JVS(53197) = Jac_FULL(5255,5240) - JVS(53197) = B(14741) -! JVS(53198) = Jac_FULL(5255,5241) - JVS(53198) = -B(3196)-B(3198) -! JVS(53199) = Jac_FULL(5255,5242) - JVS(53199) = 0 -! JVS(53200) = Jac_FULL(5255,5243) - JVS(53200) = -B(4039)-B(4041)+B(4043)+B(4047)+B(4049) -! JVS(53201) = Jac_FULL(5255,5244) - JVS(53201) = -B(1201)-B(1203)-B(1205) -! JVS(53202) = Jac_FULL(5255,5245) - JVS(53202) = -B(22719)-B(22721)-B(22723) -! JVS(53203) = Jac_FULL(5255,5246) - JVS(53203) = -B(3207) -! JVS(53204) = Jac_FULL(5255,5247) - JVS(53204) = -B(19428) -! JVS(53205) = Jac_FULL(5255,5248) - JVS(53205) = B(11297) -! JVS(53206) = Jac_FULL(5255,5249) - JVS(53206) = 0 -! JVS(53207) = Jac_FULL(5255,5250) - JVS(53207) = B(25)+B(28)+B(29)+B(32)-B(35)+B(42)+B(75)+B(79)+B(83)+B(89)+B(93)+B(101)+B(107)+B(113)+B(119)+B(125)& - &+B(141)+B(145)+B(154)+B(156)+B(158)+B(176)+B(594)+B(598)+B(600)+B(604)+B(608)+B(614)+B(618)+B(624)+B(628)& - &+B(634)+B(638)+B(644)+B(648)+B(652)+B(656)+B(662)+B(666)+B(674)+B(678)+B(686)+B(688)+B(694)+B(696)+B(706)& - &+B(708)+B(716)+B(718)+B(726)+B(728)+B(736)+B(738)+B(744)+B(748)+B(794)+B(796)+B(1218)+B(1223)+B(2341)& - &+B(2370)+B(2393)+B(2457)+B(2501)+B(2544)+B(2569)+B(2613)+B(2656)+B(2696)+B(2746)+B(2841)+B(2874)+B(2906)& - &+B(3654)+B(3680)+B(3683)+B(3695)+B(3697)+B(3708)+B(3711)+B(3719)+B(3754)+B(3759)+B(3771)+B(3773)+B(3797)& - &+B(3800)+B(3808)+B(3841)+B(3851)+B(3853)+B(3880)+B(3910)+B(3916)+B(3930)+B(3932)+B(3945)+B(3957)+B(3967)& - &+B(4068)+B(4071)+B(4142)+B(4223)+B(4251)+B(4298)+B(4305)+B(4321)+B(4364)+B(4414)+B(4426)+B(4472)+B(4494)& - &+B(4505)+B(4515)+B(4531)+B(4543)+B(4562)+B(4588)+B(4605)+B(4626)+B(4642)+B(4659)+B(4680)+B(4697)+B(4709)& - &+B(4730)+B(4751)+B(4763)+B(4775)+B(4787)+B(4799)+B(4960)+B(5134)+B(5177)+B(5188)+B(5211)+B(5302)+B(5341)& - &+B(5397)+B(5490)+B(5503)+B(5589)+B(5668)+B(5711)+B(5761)+B(5802)+B(5890)+B(5946)+B(5986)+B(6021)+B(6109)& - &+B(6119)+B(6190)+B(6427)+B(6507)+B(6654)+B(6674)+B(6844)+B(6952)+B(6967)+B(6984)+B(7043)+B(7072)+B(7105)& - &+B(7124)+B(7146)+B(7159)+B(7184)+B(7205)+B(7222)+B(7235)+B(7298)+B(7388)+B(7459)+B(7473)+B(7573)+B(7587)& - &+B(7736)+B(7747)+B(7773)+B(7914)+B(8728)+B(8739)+B(8885)+B(8896)+B(8972)+B(8975)+B(9117)+B(9127)+B(9207)& - &+B(9358)+B(9366)+B(9479)+B(9487)+B(9590)+B(9598)+B(9701)+B(9785)+B(9892)+B(9946)+B(9949)+B(10012)+B(10087)& - &+B(10096)+B(10184)+B(10187)+B(10305)+B(10308)+B(10461)+B(10465)+B(10473)+B(10534)+B(10542)+B(10544)& - &+B(10603)+B(10711)+B(11031)+B(11077)+B(11093)+B(11135)+B(11146)+B(11163)+B(11208)+B(11219)+B(11229)& - &+B(11352)+B(11363)+B(11400)+B(11410)+B(11423)+B(11462)+B(11465)+B(11481)+B(11513)+B(11623)+B(11659)& - &+B(11661)+B(11666)+B(11671)+B(11704)+B(11706)+B(11731)+B(11733)+B(11753)+B(11759)+B(11774)+B(11788)& - &+B(11802)+B(11824)+B(11849)+B(11867)+B(11879)+B(11916)+B(11939)+B(11941)+B(11980)+B(12002)+B(12005)& - &+B(12018)+B(12044)+B(12046)+B(12048)+B(12063)+B(12077)+B(12082)+B(12095)+B(12100)+B(12113)+B(12118)& - &+B(12131)+B(12136)+B(12149)+B(12154)+B(12167)+B(12192)+B(12217)+B(12296)+B(12303)+B(12307)+B(12322)& - &+B(12335)+B(12382)+B(12392)+B(12395)+B(12721)+B(12868)+B(13246)+B(13257)+B(13279)+B(13368)+B(13420)& - &+B(13429)+B(13474)+B(13491)+B(13494)+B(13496)+B(13520)+B(13525)+B(13527)+B(13552)+B(13575)+B(13583)& - &+B(13608)+B(13614)+B(13616)+B(13618)+B(13644)+B(13660)+B(13690)+B(13754)+B(13794)+B(13852)+B(13862)& - &+B(13864)+B(13867)+B(13879)+B(13922)+B(13924)+B(13940)+B(13966)+B(13988)+B(13990)+B(13997)+B(14006)& - &+B(14022)+B(14042)+B(14045)+B(14057)+B(14061)+B(14071)+B(14107)+B(14127)+B(14130)+B(14143)+B(14146)& - &+B(14160)+B(14163)+B(14186)+B(14209)+B(14219)+B(14333)+B(14394)+B(14630)+B(14638)+B(14664)+B(14718)& - &+B(14877)+B(14918)+B(15193)+B(15238)+B(15430)+B(15456)+B(15458)+B(15462)+B(15572)+B(15575)+B(15644)& - &+B(15701)+B(15717)+B(15795)+B(15894)+B(15897)+B(15915)+B(15917)+B(15996)+B(16013)+B(16015)+B(16036)& - &+B(16098)+B(16115)+B(16117)+B(16359)+B(16363)+B(16438)+B(16547)+B(16558)+B(16578)+B(16583)+B(16585)& - &+B(16588)+B(16591)+B(16593)+B(16635)+B(16645)+B(16662)+B(16669)+B(16675)+B(16684)+B(16717)+B(16771)& - &+B(16773)+B(16966)+B(16981)+B(17061)+B(17123)+B(17180)+B(17195)+B(17211)+B(17222)+B(17233)+B(17245)& - &+B(17253)+B(17280)+B(17289)+B(17357)+B(17394)+B(17533)+B(17560)+B(17595)+B(17613)+B(17616)+B(17645)& - &+B(17655)+B(17658)+B(17697)+B(17727)+B(17799)+B(17812)+B(17854)+B(17877)+B(17880)+B(17903)+B(17906)& - &+B(17933)+B(17936)+B(17963)+B(17966)+B(17993)+B(17996)+B(18032)+B(18091)+B(18103)+B(18183)+B(18326)& - &+B(18385)+B(18452)+B(18604)+B(18897)+B(18902)+B(18905)+B(18968)+B(19007)+B(19137)+B(19258)+B(19387)& - &+B(19398)+B(19495)+B(19504)+B(19537)+B(19539)+B(19541)+B(19544)+B(19650)+B(19653)+B(19664)+B(19675)& - &+B(19722)+B(19759)+B(19781)+B(19803)+B(19830)+B(19860)+B(19877)+B(19879)+B(19891)+B(20024)+B(20266)& - &+B(20425)+B(20429)+B(20432)+B(20477)+B(20483)+B(20485)+B(20491)+B(20508)+B(20513)+B(20517)+B(20547)& - &+B(20668)+B(20755)+B(20781)+B(20791)+B(20798)+B(20903)+B(21047)+B(21108)+B(21140)+B(21212)+B(21363)& - &+B(21623)+B(21626)+B(21713)+B(21726)+B(21763)+B(21765)+B(21870)+B(21942)+B(21964)+B(21985)+B(22010)& - &+B(22047)+B(22058)+B(22067)+B(22130)+B(22282)+B(22364)+B(22393)+B(22419)+B(22449)+B(22477)+B(22518)& - &+B(22573)+B(22650)+B(22709)+B(22718)+B(22759)+B(22887)+B(22911)+B(22921)+B(22949)+B(22981)+B(23016)& - &+B(23025)+B(23056)+B(23068)+B(23122)+B(23142)+B(23151)+B(23201)+B(23220)+B(23428)+B(23457)+B(23510)& - &+B(23524)+B(23541)+B(23620)+B(23661)+B(23674)+B(23683)+B(23732)+B(23803)+B(23863)+B(23882)+B(23905)& - &+B(23908)+B(23962)+B(24022) -! JVS(53208) = Jac_FULL(5255,5251) - JVS(53208) = B(30) -! JVS(53209) = Jac_FULL(5255,5252) - JVS(53209) = -B(44)+B(1452)+B(1548)+B(3989)+B(4001)+B(4044)+B(7694)+B(7788)+B(7886)+B(7905)+B(7943)+B(7955)+B(7968)& - &+B(8469)+B(8526)+B(8590)+B(8640)+B(10326)+B(10353)+B(10404)+B(10433)+B(10655)+B(11180)+B(13699)+B(14844)& - &+B(14855)+B(15923)+B(16021)+B(16123)+B(16467)+B(16697)+B(17475)+B(18399)+B(18466)+B(18811)+B(18822)& - &+B(18889)+B(19898)+B(19912)+B(19970)+B(20057)+B(20079)+B(20114)+B(20144)+B(20273)+B(20330)+B(20403)& - &+B(20577)+B(21287)+B(21376)+B(21490)+B(21539)+B(22145)+B(22257) -! JVS(53210) = Jac_FULL(5255,5253) - JVS(53210) = -B(46)+B(7907) -! JVS(53211) = Jac_FULL(5255,5254) - JVS(53211) = 0 -! JVS(53212) = Jac_FULL(5255,5255) - JVS(53212) = -B(33)-B(36)-2*B(37)-B(45)-B(47)-B(50)-B(922)-B(933)-B(944)-B(955)-B(966)-B(977)-B(988)-B(999)-B(1009)& - &-B(1020)-B(1032)-B(1043)-B(1060)-B(1071)-B(1087)-B(1097)-B(1108)-B(1119)-B(1130)-B(1141)-B(1152)-B(1162)& - &-B(1173)-B(1182)-B(1193)-B(1202)-B(1204)-B(1206)-B(1231)-B(1240)-B(1259)-B(1270)-B(1281)-B(1283)-B(1296)& - &-B(1305)-B(1307)-B(1309)-B(1319)-B(1330)-B(1332)-B(1334)-B(1344)-B(1355)-B(1366)-B(1368)-B(1370)-B(1380)& - &-B(1391)-B(1399)-B(1410)-B(1412)-B(1414)-B(1424)-B(1435)-B(1446)-B(1448)-B(1460)-B(1470)-B(1472)-B(1496)& - &-B(1498)-B(1500)-B(1520)-B(1531)-B(1542)-B(1544)-B(1556)-B(1565)-B(1578)-B(1589)-B(1598)-B(1609)-B(1620)& - &-B(1630)-B(1641)-B(1652)-B(1663)-B(1674)-B(1685)-B(1695)-B(1706)-B(1717)-B(1728)-B(1739)-B(1750)-B(1761)& - &-B(1772)-B(1782)-B(1793)-B(1804)-B(1814)-B(1825)-B(1836)-B(1847)-B(1857)-B(1868)-B(1879)-B(1890)-B(1900)& - &-B(1911)-B(1921)-B(1932)-B(1943)-B(1954)-B(1965)-B(1976)-B(1987)-B(1999)-B(2008)-B(2021)-B(2030)-B(2043)& - &-B(2054)-B(2063)-B(2071)-B(2084)-B(2093)-B(2106)-B(2117)-B(2128)-B(2137)-B(2150)-B(2161)-B(2170)-B(2180)& - &-B(2189)-B(2202)-B(2213)-B(2222)-B(2234)-B(2243)-B(2256)-B(2267)-B(2278)-B(2287)-B(2300)-B(2311)-B(2322)& - &-B(2331)-B(2343)-B(2374)-B(2397)-B(2418)-B(2429)-B(2461)-B(2472)-B(2505)-B(2516)-B(2548)-B(2571)-B(2592)& - &-B(2615)-B(2636)-B(2658)-B(2679)-B(2702)-B(2719)-B(2730)-B(2762)-B(2773)-B(2802)-B(2813)-B(2845)-B(2878)& - &-B(2910)-B(2921)-B(2950)-B(2969)-B(2990)-B(3001)-B(3008)-B(3010)-B(3012)-B(3022)-B(3029)-B(3038)-B(3056)& - &-B(3067)-B(3078)-B(3089)-B(3125)-B(3160)-B(3162)-B(3173)-B(3175)-B(3186)-B(3197)-B(3199)-B(3208)-B(3219)& - &-B(3228)-B(3237)-B(3248)-B(3257)-B(3266)-B(3277)-B(3285)-B(3296)-B(3307)-B(3318)-B(3327)-B(3338)-B(3347)& - &-B(3356)-B(3367)-B(3377)-B(3386)-B(3397)-B(3408)-B(3416)-B(3429)-B(3439)-B(3450)-B(3460)-B(3468)-B(3491)& - &-B(3501)-B(3512)-B(3522)-B(3534)-B(3544)-B(3555)-B(3565)-B(3600)-B(3610)-B(3621)-B(3776)-B(3778)-B(3780)& - &-B(3810)-B(3812)-B(3814)-B(3824)-B(3985)-B(3987)-B(3999)-B(4040)-B(4042)-B(5216)-B(5218)-B(5220)-B(5239)& - &-B(5250)-B(5273)-B(5287)-B(5304)-B(5312)-B(5346)-B(5348)-B(5350)-B(5364)-B(5375)-B(5413)-B(5415)-B(5417)& - &-B(5432)-B(5443)-B(5451)-B(5463)-B(5511)-B(5513)-B(5515)-B(5530)-B(5541)-B(5554)-B(5562)-B(5602)-B(5604)& - &-B(5606)-B(5616)-B(5627)-B(5635)-B(5647)-B(5679)-B(5687)-B(5716)-B(5718)-B(5720)-B(5734)-B(5745)-B(5766)& - &-B(5778)-B(5807)-B(5809)-B(5811)-B(5825)-B(5836)-B(5858)-B(5866)-B(5895)-B(5897)-B(5899)-B(5913)-B(5924)& - &-B(5948)-B(5960)-B(5997)-B(6037)-B(6049)-B(6063)-B(6065)-B(6067)-B(6077)-B(6088)-B(6124)-B(6132)-B(6134)& - &-B(6142)-B(6144)-B(6146)-B(6164)-B(6174)-B(6209)-B(6211)-B(6213)-B(6228)-B(6239)-B(6247)-B(6259)-B(6289)& - &-B(6291)-B(6293)-B(6303)-B(6314)-B(6327)-B(6335)-B(6361)-B(6363)-B(6365)-B(6375)-B(6386)-B(6394)-B(6406)& - &-B(6447)-B(6449)-B(6451)-B(6463)-B(6473)-B(6482)-B(6484)-B(6492)-B(6512)-B(6514)-B(6522)-B(6543)-B(6545)& - &-B(6547)-B(6563)-B(6573)-B(6724)-B(6737)-B(6765)-B(6774)-B(6788)-B(6801)-B(6815)-B(6846)-B(6855)-B(6864)& - &-B(6866)-B(6875)-B(6884)-B(6895)-B(6906)-B(6917)-B(6929)-B(7256)-B(7264)-B(7283)-B(7332)-B(7343)-B(7354)& - &-B(7364)-B(7414)-B(7423)-B(7432)-B(7512)-B(7521)-B(7536)-B(7547)-B(7556)-B(7589)-B(7591)-B(7593)-B(7603)& - &-B(7605)-B(7607)-B(7617)-B(7628)-B(7630)-B(7668)-B(7679)-B(7681)-B(7692)-B(7701)-B(7712)-B(7714)-B(7716)& - &-B(7738)-B(7762)-B(7764)-B(7784)-B(7795)-B(7797)-B(7806)-B(7808)-B(7810)-B(7820)-B(7822)-B(7824)-B(7834)& - &-B(7843)-B(7845)-B(7847)-B(7857)-B(7868)-B(7870)-B(7872)-B(7884)-B(7899)-B(7901)-B(7923)-B(7925)-B(7927)& - &-B(7937)-B(7939)-B(7951)-B(7964)-B(7975)-B(7986)-B(7997)-B(8008)-B(8010)-B(8019)-B(8030)-B(8032)-B(8041)& - &-B(8052)-B(8063)-B(8074)-B(8076)-B(8085)-B(8096)-B(8104)-B(8115)-B(8126)-B(8137)-B(8139)-B(8148)-B(8159)& - &-B(8170)-B(8178)-B(8189)-B(8191)-B(8200)-B(8211)-B(8213)-B(8215)-B(8225)-B(8236)-B(8238)-B(8240)-B(8250)& - &-B(8261)-B(8268)-B(8278)-B(8285)-B(8296)-B(8307)-B(8314)-B(8325)-B(8336)-B(8343)-B(8354)-B(8361)-B(8372)& - &-B(8379)-B(8390)-B(8397)-B(8408)-B(8415)-B(8426)-B(8428)-B(8430)-B(8440)-B(8442)-B(8444)-B(8455)-B(8467)& - &-B(8476)-B(8478)-B(8480)-B(8490)-B(8500)-B(8502)-B(8504)-B(8515)-B(8524)-B(8533)-B(8540)-B(8547)-B(8549)& - &-B(8551)-B(8562)-B(8571)-B(8573)-B(8575)-B(8586)-B(8597)-B(8604)-B(8606)-B(8608)-B(8618)-B(8627)-B(8638)& - &-B(8647)-B(8656)-B(8671)-B(8673)-B(8675)-B(8694)-B(8696)-B(8698)-B(8708)-B(8742)-B(8794)-B(8841)-B(8843)& - &-B(8845)-B(8899)-B(8901)-B(8903)-B(8943)-B(8945)-B(8947)-B(8957)-B(9000)-B(9019)-B(9021)-B(9023)-B(9033)& - &-B(9064)-B(9066)-B(9084)-B(9086)-B(9088)-B(9098)-B(9134)-B(9161)-B(9163)-B(9165)-B(9175)-B(9232)-B(9251)& - &-B(9253)-B(9255)-B(9269)-B(9314)-B(9316)-B(9318)-B(9372)-B(9393)-B(9435)-B(9437)-B(9439)-B(9500)-B(9546)& - &-B(9548)-B(9550)-B(9604)-B(9606)-B(9608)-B(9630)-B(9668)-B(9670)-B(9672)-B(9682)-B(9704)-B(9706)-B(9708)& - &-B(9718)-B(9745)-B(9798)-B(9800)-B(9802)-B(9812)-B(9819)-B(9821)-B(9854)-B(9856)-B(9858)-B(9868)-B(9899)& - &-B(9917)-B(9919)-B(9921)-B(9931)-B(9973)-B(10032)-B(10112)-B(10131)-B(10204)-B(10213)-B(10215)-B(10238)& - &-B(10240)-B(10258)-B(10260)-B(10262)-B(10272)-B(10280)-B(10311)-B(10320)-B(10322)-B(10338)-B(10347)& - &-B(10349)-B(10365)-B(10380)-B(10391)-B(10402)-B(10416)-B(10427)-B(10429)-B(10445)-B(10504)-B(10573)& - &-B(10629)-B(10641)-B(10651)-B(10721)-B(10732)-B(10743)-B(10752)-B(10754)-B(10769)-B(10771)-B(10782)& - &-B(10784)-B(10795)-B(10797)-B(10808)-B(10810)-B(10812)-B(10822)-B(10831)-B(10840)-B(10849)-B(10856)& - &-B(10865)-B(10874)-B(10876)-B(10878)-B(10888)-B(10895)-B(10902)-B(10911)-B(10922)-B(10933)-B(10940)& - &-B(10949)-B(10956)-B(10965)-B(10967)-B(10976)-B(10983)-B(10990)-B(10999)-B(11001)-B(11003)-B(11013)& - &-B(11022)-B(11040)-B(11047)-B(11049)-B(11051)-B(11103)-B(11114)-B(11116)-B(11165)-B(11176)-B(11238)& - &-B(11240)-B(11242)-B(11262)-B(11264)-B(11266)-B(11276)-B(11299)-B(11320)-B(11334)-B(11370)-B(11523)& - &-B(11525)-B(11534)-B(11543)-B(11550)-B(11643)-B(11645)-B(11647)-B(12338)-B(12347)-B(12406)-B(12435)& - &-B(12445)-B(12447)-B(12449)-B(12461)-B(12469)-B(12478)-B(12487)-B(12514)-B(12516)-B(12518)-B(12532)& - &-B(12540)-B(12547)-B(12556)-B(12602)-B(12622)-B(12630)-B(12637)-B(12646)-B(12654)-B(12661)-B(12668)& - &-B(12714)-B(12737)-B(12761)-B(12794)-B(12804)-B(12813)-B(12820)-B(12829)-B(12854)-B(12888)-B(12902)& - &-B(12911)-B(12918)-B(12927)-B(12952)-B(12959)-B(12986)-B(12996)-B(13005)-B(13012)-B(13021)-B(13046)& - &-B(13075)-B(13082)-B(13084)-B(13086)-B(13096)-B(13104)-B(13114)-B(13122)-B(13129)-B(13137)-B(13174)& - &-B(13200)-B(13297)-B(13325)-B(13332)-B(13356)-B(13374)-B(13376)-B(13378)-B(13388)-B(13396)-B(13403)& - &-B(13412)-B(13438)-B(13646)-B(13695)-B(13697)-B(13708)-B(13732)-B(13743)-B(13756)-B(13787)-B(13797)& - &-B(13799)-B(13801)-B(13812)-B(13821)-B(13834)-B(13844)-B(13900)-B(13968)-B(13970)-B(14225)-B(14245)& - &-B(14255)-B(14257)-B(14259)-B(14269)-B(14271)-B(14273)-B(14283)-B(14290)-B(14298)-B(14300)-B(14309)& - &-B(14316)-B(14341)-B(14351)-B(14362)-B(14375)-B(14402)-B(14418)-B(14441)-B(14443)-B(14445)-B(14455)& - &-B(14457)-B(14459)-B(14469)-B(14478)-B(14480)-B(14489)-B(14496)-B(14509)-B(14521)-B(14531)-B(14563)& - &-B(14572)-B(14574)-B(14576)-B(14586)-B(14595)-B(14604)-B(14613)-B(14640)-B(14666)-B(14668)-B(14670)& - &-B(14680)-B(14682)-B(14684)-B(14703)-B(14720)-B(14730)-B(14745)-B(14755)-B(14766)-B(14773)-B(14784)& - &-B(14819)-B(14829)-B(14840)-B(14851)-B(14888)-B(14890)-B(14892)-B(14902)-B(14933)-B(14935)-B(14937)& - &-B(14952)-B(14954)-B(14963)-B(14979)-B(14981)-B(14983)-B(14993)-B(15010)-B(15021)-B(15023)-B(15025)& - &-B(15035)-B(15044)-B(15046)-B(15055)-B(15057)-B(15059)-B(15069)-B(15080)-B(15096)-B(15098)-B(15100)& - &-B(15110)-B(15120)-B(15129)-B(15137)-B(15139)-B(15141)-B(15151)-B(15162)-B(15164)-B(15166)-B(15176)& - &-B(15178)-B(15180)-B(15201)-B(15208)-B(15215)-B(15226)-B(15246)-B(15253)-B(15264)-B(15266)-B(15268)& - &-B(15278)-B(15292)-B(15299)-B(15313)-B(15320)-B(15327)-B(15341)-B(15348)-B(15355)-B(15369)-B(15376)& - &-B(15383)-B(15397)-B(15404)-B(15417)-B(15469)-B(15476)-B(15483)-B(15493)-B(15500)-B(15509)-B(15516)& - &-B(15529)-B(15536)-B(15543)-B(15582)-B(15656)-B(15663)-B(15670)-B(15679)-B(15686)-B(15746)-B(15753)& - &-B(15760)-B(15768)-B(15775)-B(15806)-B(15813)-B(15820)-B(15828)-B(15835)-B(15849)-B(15856)-B(15863)& - &-B(15872)-B(15879)-B(15919)-B(15934)-B(15945)-B(15952)-B(15959)-B(15968)-B(15975)-B(16017)-B(16047)& - &-B(16054)-B(16061)-B(16070)-B(16077)-B(16119)-B(16140)-B(16147)-B(16154)-B(16219)-B(16226)-B(16233)& - &-B(16241)-B(16248)-B(16260)-B(16271)-B(16278)-B(16285)-B(16294)-B(16301)-B(16315)-B(16322)-B(16329)& - &-B(16337)-B(16344)-B(16370)-B(16377)-B(16384)-B(16392)-B(16399)-B(16451)-B(16463)-B(16489)-B(16491)& - &-B(16540)-B(16615)-B(16691)-B(16693)-B(16729)-B(16731)-B(16740)-B(16742)-B(16753)-B(16781)-B(16788)& - &-B(16801)-B(16803)-B(16805)-B(16815)-B(16817)-B(16819)-B(16829)-B(16836)-B(16843)-B(16845)-B(16847)& - &-B(16857)-B(16864)-B(16881)-B(16983)-B(16985)-B(16987)-B(17006)-B(17022)-B(17030)-B(17032)-B(17034)& - &-B(17044)-B(17063)-B(17077)-B(17087)-B(17146)-B(17155)-B(17297)-B(17299)-B(17301)-B(17311)-B(17331)& - &-B(17377)-B(17419)-B(17421)-B(17423)-B(17433)-B(17440)-B(17447)-B(17469)-B(17471)-B(17483)-B(17485)& - &-B(17487)-B(17505)-B(17507)-B(17509)-B(17535)-B(17537)-B(17539)-B(17565)-B(17567)-B(17569)-B(17579)& - &-B(17660)-B(17662)-B(17664)-B(17750)-B(17761)-B(17770)-B(17814)-B(17824)-B(17832)-B(17882)-B(17908)& - &-B(17938)-B(17968)-B(17998)-B(18000)-B(18002)-B(18012)-B(18047)-B(18056)-B(18063)-B(18105)-B(18112)& - &-B(18149)-B(18156)-B(18163)-B(18201)-B(18213)-B(18221)-B(18228)-B(18256)-B(18264)-B(18271)-B(18299)& - &-B(18306)-B(18358)-B(18365)-B(18395)-B(18425)-B(18432)-B(18464)-B(18496)-B(18503)-B(18524)-B(18531)& - &-B(18538)-B(18566)-B(18577)-B(18584)-B(18614)-B(18621)-B(18649)-B(18656)-B(18689)-B(18708)-B(18710)& - &-B(18712)-B(18728)-B(18730)-B(18743)-B(18759)-B(18761)-B(18790)-B(18792)-B(18809)-B(18818)-B(18834)& - &-B(18836)-B(18838)-B(18853)-B(18855)-B(18857)-B(18867)-B(18869)-B(18871)-B(18885)-B(18887)-B(18911)& - &-B(18921)-B(18928)-B(18930)-B(18932)-B(18944)-B(18979)-B(18981)-B(19009)-B(19011)-B(19067)-B(19081)& - &-B(19092)-B(19094)-B(19096)-B(19111)-B(19118)-B(19128)-B(19142)-B(19152)-B(19161)-B(19171)-B(19173)& - &-B(19175)-B(19185)-B(19200)-B(19214)-B(19268)-B(19270)-B(19272)-B(19282)-B(19293)-B(19330)-B(19341)& - &-B(19343)-B(19345)-B(19355)-B(19362)-B(19364)-B(19366)-B(19401)-B(19403)-B(19405)-B(19415)-B(19417)& - &-B(19419)-B(19429)-B(19437)-B(19439)-B(19441)-B(19451)-B(19453)-B(19455)-B(19467)-B(19506)-B(19519)& - &-B(19597)-B(19613)-B(19620)-B(19622)-B(19677)-B(19679)-B(19688)-B(19728)-B(19730)-B(19739)-B(19761)& - &-B(19763)-B(19783)-B(19785)-B(19805)-B(19807)-B(19832)-B(19834)-B(19862)-B(19864)-B(19894)-B(19910)& - &-B(19929)-B(19931)-B(19955)-B(19957)-B(19968)-B(19977)-B(19979)-B(19981)-B(19996)-B(19998)-B(20000)& - &-B(20027)-B(20029)-B(20053)-B(20077)-B(20088)-B(20090)-B(20112)-B(20142)-B(20159)-B(20166)-B(20199)& - &-B(20201)-B(20225)-B(20227)-B(20247)-B(20249)-B(20271)-B(20280)-B(20282)-B(20284)-B(20298)-B(20326)& - &-B(20337)-B(20339)-B(20341)-B(20351)-B(20353)-B(20355)-B(20365)-B(20367)-B(20369)-B(20399)-B(20401)& - &-B(20411)-B(20413)-B(20415)-B(20435)-B(20437)-B(20463)-B(20465)-B(20467)-B(20494)-B(20501)-B(20553)& - &-B(20555)-B(20557)-B(20573)-B(20584)-B(20597)-B(20599)-B(20601)-B(20611)-B(20613)-B(20622)-B(20624)& - &-B(20633)-B(20635)-B(20654)-B(20674)-B(20690)-B(20715)-B(20717)-B(20719)-B(20729)-B(20800)-B(20815)& - &-B(20824)-B(20826)-B(20866)-B(20875)-B(20885)-B(20908)-B(20936)-B(20943)-B(20945)-B(20947)-B(20962)& - &-B(20997)-B(21016)-B(21030)-B(21049)-B(21059)-B(21061)-B(21063)-B(21082)-B(21090)-B(21110)-B(21118)& - &-B(21125)-B(21147)-B(21149)-B(21168)-B(21175)-B(21193)-B(21217)-B(21230)-B(21243)-B(21256)-B(21269)& - &-B(21283)-B(21300)-B(21302)-B(21324)-B(21326)-B(21372)-B(21389)-B(21391)-B(21413)-B(21415)-B(21431)& - &-B(21433)-B(21469)-B(21471)-B(21486)-B(21503)-B(21505)-B(21535)-B(21546)-B(21661)-B(21677)-B(21687)& - &-B(21719)-B(21729)-B(21740)-B(21768)-B(21777)-B(21779)-B(21781)-B(21796)-B(21805)-B(21807)-B(21809)& - &-B(21819)-B(21841)-B(21843)-B(21845)-B(21854)-B(21876)-B(21886)-B(21888)-B(21897)-B(21899)-B(21901)& - &-B(21911)-B(21928)-B(21966)-B(22012)-B(22014)-B(22016)-B(22026)-B(22083)-B(22100)-B(22141)-B(22173)& - &-B(22255)-B(22324)-B(22332)-B(22334)-B(22336)-B(22346)-B(22371)-B(22373)-B(22375)-B(22402)-B(22428)& - &-B(22452)-B(22483)-B(22533)-B(22535)-B(22537)-B(22547)-B(22556)-B(22575)-B(22584)-B(22595)-B(22597)& - &-B(22599)-B(22609)-B(22625)-B(22653)-B(22663)-B(22677)-B(22689)-B(22720)-B(22722)-B(22724)-B(22737)& - &-B(22748)-B(22773)-B(22781)-B(22789)-B(22803)-B(22805)-B(22814)-B(22821)-B(22846)-B(22862)-B(22864)& - &-B(22873)-B(22928)-B(22935)-B(22937)-B(22939)-B(22967)-B(22995)-B(22997)-B(22999)-B(23030)-B(23070)& - &-B(23080)-B(23089)-B(23091)-B(23093)-B(23124)-B(23126)-B(23128)-B(23153)-B(23169)-B(23183)-B(23185)& - &-B(23187)-B(23203)-B(23254)-B(23264)-B(23285)-B(23287)-B(23289)-B(23299)-B(23301)-B(23303)-B(23313)& - &-B(23315)-B(23317)-B(23327)-B(23336)-B(23367)-B(23380)-B(23395)-B(23409)-B(23430)-B(23465)-B(23478)& - &-B(23543)-B(23545)-B(23583)-B(23633)-B(23635)-B(23637)-B(23647)-B(23685)-B(23703)-B(23712)-B(23734)& - &-B(23736)-B(23745)-B(23752)-B(23767)-B(23774)-B(23781)-B(23783)-B(23792)-B(23806)-B(23808)-B(23810)& - &-B(23825)-B(23848)-B(23867)-B(23972)-B(23974)-B(23983)-B(23992)-B(23994)-B(24003)-B(24037) -! JVS(53213) = Jac_FULL(5255,5256) - JVS(53213) = B(43)-B(51)+B(174)+B(1456)+B(1552)+B(3993)+B(4005)+B(4048)+B(7698)+B(7792)+B(7890)+B(7909)+B(7947)& - &+B(7959)+B(7972)+B(8473)+B(8530)+B(8594)+B(8644)+B(10330)+B(10357)+B(10408)+B(10437)+B(10659)+B(11184)& - &+B(13523)+B(13703)+B(14848)+B(14859)+B(15927)+B(16025)+B(16127)+B(16471)+B(17479)+B(18403)+B(18470)& - &+B(18815)+B(18826)+B(18846)+B(18893)+B(19902)+B(19916)+B(19974)+B(20061)+B(20083)+B(20118)+B(20148)& - &+B(20277)+B(20334)+B(20407)+B(20581)+B(21291)+B(21380)+B(21494)+B(21543)+B(22149)+B(22261) -! JVS(53214) = Jac_FULL(5255,5257) - JVS(53214) = B(7498) -! JVS(53215) = Jac_FULL(5255,5258) - JVS(53215) = B(26)-B(34) -! JVS(53216) = Jac_FULL(5256,137) - JVS(53216) = B(72) -! JVS(53217) = Jac_FULL(5256,668) - JVS(53217) = -B(801) -! JVS(53218) = Jac_FULL(5256,1573) - JVS(53218) = -B(1080) -! JVS(53219) = Jac_FULL(5256,1580) - JVS(53219) = -B(805) -! JVS(53220) = Jac_FULL(5256,1775) - JVS(53220) = -B(12412) -! JVS(53221) = Jac_FULL(5256,1805) - JVS(53221) = -B(12785) -! JVS(53222) = Jac_FULL(5256,1845) - JVS(53222) = -B(18491) -! JVS(53223) = Jac_FULL(5256,1936) - JVS(53223) = -B(12593) -! JVS(53224) = Jac_FULL(5256,2048) - JVS(53224) = -B(13191) -! JVS(53225) = Jac_FULL(5256,2054) - JVS(53225) = -B(12419) -! JVS(53226) = Jac_FULL(5256,2167) - JVS(53226) = -B(12752) -! JVS(53227) = Jac_FULL(5256,2274) - JVS(53227) = -B(12879) -! JVS(53228) = Jac_FULL(5256,2281) - JVS(53228) = -B(13316) -! JVS(53229) = Jac_FULL(5256,2390) - JVS(53229) = -B(13347) -! JVS(53230) = Jac_FULL(5256,2398) - JVS(53230) = -B(12977) -! JVS(53231) = Jac_FULL(5256,2420) - JVS(53231) = -B(13288) -! JVS(53232) = Jac_FULL(5256,2464) - JVS(53232) = -B(12705) -! JVS(53233) = Jac_FULL(5256,2635) - JVS(53233) = B(21604) -! JVS(53234) = Jac_FULL(5256,2705) - JVS(53234) = B(20310) -! JVS(53235) = Jac_FULL(5256,2957) - JVS(53235) = B(21594) -! JVS(53236) = Jac_FULL(5256,3045) - JVS(53236) = B(20393) -! JVS(53237) = Jac_FULL(5256,3084) - JVS(53237) = -B(659) -! JVS(53238) = Jac_FULL(5256,3085) - JVS(53238) = -B(9740) -! JVS(53239) = Jac_FULL(5256,3087) - JVS(53239) = -B(13351) -! JVS(53240) = Jac_FULL(5256,3088) - JVS(53240) = -B(15524) -! JVS(53241) = Jac_FULL(5256,3092) - JVS(53241) = -B(12401) -! JVS(53242) = Jac_FULL(5256,3093) - JVS(53242) = -B(9264) -! JVS(53243) = Jac_FULL(5256,3095) - JVS(53243) = -B(12597) -! JVS(53244) = Jac_FULL(5256,3096) - JVS(53244) = -B(619) -! JVS(53245) = Jac_FULL(5256,3097) - JVS(53245) = -B(689) -! JVS(53246) = Jac_FULL(5256,3098) - JVS(53246) = -B(10107) -! JVS(53247) = Jac_FULL(5256,3100) - JVS(53247) = -B(12981) -! JVS(53248) = Jac_FULL(5256,3101) - JVS(53248) = -B(10027) -! JVS(53249) = Jac_FULL(5256,3105) - JVS(53249) = -B(639) -! JVS(53250) = Jac_FULL(5256,3111) - JVS(53250) = -B(9625) -! JVS(53251) = Jac_FULL(5256,3112) - JVS(53251) = -B(12756) -! JVS(53252) = Jac_FULL(5256,3113) - JVS(53252) = -B(709) -! JVS(53253) = Jac_FULL(5256,3114) - JVS(53253) = -B(13070) -! JVS(53254) = Jac_FULL(5256,3116) - JVS(53254) = -B(13320) -! JVS(53255) = Jac_FULL(5256,3119) - JVS(53255) = -B(12709) -! JVS(53256) = Jac_FULL(5256,3120) - JVS(53256) = -B(15741) -! JVS(53257) = Jac_FULL(5256,3123) - JVS(53257) = -B(12883) -! JVS(53258) = Jac_FULL(5256,3125) - JVS(53258) = -B(9129) -! JVS(53259) = Jac_FULL(5256,3127) - JVS(53259) = -B(13292) -! JVS(53260) = Jac_FULL(5256,3129) - JVS(53260) = -B(719) -! JVS(53261) = Jac_FULL(5256,3130) - JVS(53261) = -B(2897)-B(2899)-B(2901) -! JVS(53262) = Jac_FULL(5256,3131) - JVS(53262) = -B(2492)-B(2494)-B(2496) -! JVS(53263) = Jac_FULL(5256,3134) - JVS(53263) = -B(629) -! JVS(53264) = Jac_FULL(5256,3135) - JVS(53264) = -B(2535)-B(2537)-B(2539) -! JVS(53265) = Jac_FULL(5256,3136) - JVS(53265) = -B(2558)-B(2560)-B(2562) -! JVS(53266) = Jac_FULL(5256,3137) - JVS(53266) = -B(16214) -! JVS(53267) = Jac_FULL(5256,3138) - JVS(53267) = -B(679) -! JVS(53268) = Jac_FULL(5256,3139) - JVS(53268) = -B(2739)-B(2741)-B(2743) -! JVS(53269) = Jac_FULL(5256,3140) - JVS(53269) = -B(9388) -! JVS(53270) = Jac_FULL(5256,3142) - JVS(53270) = -B(13195) -! JVS(53271) = Jac_FULL(5256,3143) - JVS(53271) = -B(16266) -! JVS(53272) = Jac_FULL(5256,3144) - JVS(53272) = -B(649) -! JVS(53273) = Jac_FULL(5256,3145) - JVS(53273) = -B(609) -! JVS(53274) = Jac_FULL(5256,3146) - JVS(53274) = -B(15464) -! JVS(53275) = Jac_FULL(5256,3149) - JVS(53275) = -B(2602)-B(2604)-B(2606) -! JVS(53276) = Jac_FULL(5256,3150) - JVS(53276) = -B(9227) -! JVS(53277) = Jac_FULL(5256,3152) - JVS(53277) = -B(16365) -! JVS(53278) = Jac_FULL(5256,3153) - JVS(53278) = -B(9968) -! JVS(53279) = Jac_FULL(5256,3157) - JVS(53279) = -B(2384)-B(2386)-B(2388) -! JVS(53280) = Jac_FULL(5256,3158) - JVS(53280) = -B(2448)-B(2450)-B(2452) -! JVS(53281) = Jac_FULL(5256,3161) - JVS(53281) = -B(8750) -! JVS(53282) = Jac_FULL(5256,3162) - JVS(53282) = -B(12789) -! JVS(53283) = Jac_FULL(5256,3163) - JVS(53283) = -B(15651) -! JVS(53284) = Jac_FULL(5256,3164) - JVS(53284) = -B(2865)-B(2867)-B(2869) -! JVS(53285) = Jac_FULL(5256,3165) - JVS(53285) = -B(9495) -! JVS(53286) = Jac_FULL(5256,3167) - JVS(53286) = -B(12430) -! JVS(53287) = Jac_FULL(5256,3169) - JVS(53287) = -B(739) -! JVS(53288) = Jac_FULL(5256,3170) - JVS(53288) = -B(8995) -! JVS(53289) = Jac_FULL(5256,3172) - JVS(53289) = -B(2645)-B(2647)-B(2649) -! JVS(53290) = Jac_FULL(5256,3178) - JVS(53290) = -B(16042) -! JVS(53291) = Jac_FULL(5256,3179) - JVS(53291) = -B(669) -! JVS(53292) = Jac_FULL(5256,3180) - JVS(53292) = -B(2689)-B(2691)-B(2693) -! JVS(53293) = Jac_FULL(5256,3181) - JVS(53293) = -B(15844) -! JVS(53294) = Jac_FULL(5256,3182) - JVS(53294) = -B(729) -! JVS(53295) = Jac_FULL(5256,3187) - JVS(53295) = -B(15940) -! JVS(53296) = Jac_FULL(5256,3189) - JVS(53296) = -B(15801) -! JVS(53297) = Jac_FULL(5256,3190) - JVS(53297) = -B(16310) -! JVS(53298) = Jac_FULL(5256,3191) - JVS(53298) = -B(16135) -! JVS(53299) = Jac_FULL(5256,3192) - JVS(53299) = -B(699) -! JVS(53300) = Jac_FULL(5256,3193) - JVS(53300) = -B(2832)-B(2834)-B(2836) -! JVS(53301) = Jac_FULL(5256,3197) - JVS(53301) = B(16632) -! JVS(53302) = Jac_FULL(5256,3204) - JVS(53302) = B(16552) -! JVS(53303) = Jac_FULL(5256,3219) - JVS(53303) = -B(2960)-B(2962) -! JVS(53304) = Jac_FULL(5256,3224) - JVS(53304) = B(21555) -! JVS(53305) = Jac_FULL(5256,3244) - JVS(53305) = -B(2941)-B(2943) -! JVS(53306) = Jac_FULL(5256,3248) - JVS(53306) = -B(22888) -! JVS(53307) = Jac_FULL(5256,3254) - JVS(53307) = B(4230) -! JVS(53308) = Jac_FULL(5256,3257) - JVS(53308) = B(22287) -! JVS(53309) = Jac_FULL(5256,3263) - JVS(53309) = -B(2783)-B(2785) -! JVS(53310) = Jac_FULL(5256,3324) - JVS(53310) = B(20529) -! JVS(53311) = Jac_FULL(5256,3392) - JVS(53311) = B(21588) -! JVS(53312) = Jac_FULL(5256,3401) - JVS(53312) = B(14924) -! JVS(53313) = Jac_FULL(5256,3437) - JVS(53313) = -B(9647) -! JVS(53314) = Jac_FULL(5256,3442) - JVS(53314) = -B(585) -! JVS(53315) = Jac_FULL(5256,3454) - JVS(53315) = -B(16601) -! JVS(53316) = Jac_FULL(5256,3465) - JVS(53316) = -B(453) -! JVS(53317) = Jac_FULL(5256,3466) - JVS(53317) = -B(459) -! JVS(53318) = Jac_FULL(5256,3470) - JVS(53318) = -B(16500) -! JVS(53319) = Jac_FULL(5256,3471) - JVS(53319) = -B(15091) -! JVS(53320) = Jac_FULL(5256,3472) - JVS(53320) = -B(6975)-B(6977) -! JVS(53321) = Jac_FULL(5256,3481) - JVS(53321) = -B(2553) -! JVS(53322) = Jac_FULL(5256,3482) - JVS(53322) = -B(5967) -! JVS(53323) = Jac_FULL(5256,3483) - JVS(53323) = -B(13522) -! JVS(53324) = Jac_FULL(5256,3484) - JVS(53324) = -B(18129) -! JVS(53325) = Jac_FULL(5256,3488) - JVS(53325) = -B(10481) -! JVS(53326) = Jac_FULL(5256,3489) - JVS(53326) = -B(6409) -! JVS(53327) = Jac_FULL(5256,3491) - JVS(53327) = -B(5466) -! JVS(53328) = Jac_FULL(5256,3492) - JVS(53328) = -B(2767) -! JVS(53329) = Jac_FULL(5256,3494) - JVS(53329) = -B(6056) -! JVS(53330) = Jac_FULL(5256,3496) - JVS(53330) = -B(6911) -! JVS(53331) = Jac_FULL(5256,3499) - JVS(53331) = -B(6342) -! JVS(53332) = Jac_FULL(5256,3503) - JVS(53332) = -B(6262) -! JVS(53333) = Jac_FULL(5256,3506) - JVS(53333) = -B(6266) -! JVS(53334) = Jac_FULL(5256,3507) - JVS(53334) = -B(2510) -! JVS(53335) = Jac_FULL(5256,3508) - JVS(53335) = -B(5470) -! JVS(53336) = Jac_FULL(5256,3509) - JVS(53336) = -B(2466) -! JVS(53337) = Jac_FULL(5256,3510) - JVS(53337) = -B(13947) -! JVS(53338) = Jac_FULL(5256,3511) - JVS(53338) = -B(6330) -! JVS(53339) = Jac_FULL(5256,3512) - JVS(53339) = -B(5654) -! JVS(53340) = Jac_FULL(5256,3513) - JVS(53340) = -B(19608) -! JVS(53341) = Jac_FULL(5256,3518) - JVS(53341) = -B(6052) -! JVS(53342) = Jac_FULL(5256,3519) - JVS(53342) = -B(8927) -! JVS(53343) = Jac_FULL(5256,3521) - JVS(53343) = -B(2684) -! JVS(53344) = Jac_FULL(5256,3523) - JVS(53344) = -B(2423) -! JVS(53345) = Jac_FULL(5256,3525) - JVS(53345) = -B(2724) -! JVS(53346) = Jac_FULL(5256,3526) - JVS(53346) = -B(16458) -! JVS(53347) = Jac_FULL(5256,3527) - JVS(53347) = -B(2883) -! JVS(53348) = Jac_FULL(5256,3531) - JVS(53348) = -B(5557) -! JVS(53349) = Jac_FULL(5256,3532) - JVS(53349) = B(20490) -! JVS(53350) = Jac_FULL(5256,3534) - JVS(53350) = -B(5650) -! JVS(53351) = Jac_FULL(5256,3538) - JVS(53351) = -B(5307) -! JVS(53352) = Jac_FULL(5256,3539) - JVS(53352) = -B(5861) -! JVS(53353) = Jac_FULL(5256,3543) - JVS(53353) = -B(16037) -! JVS(53354) = Jac_FULL(5256,3545) - JVS(53354) = -B(5323) -! JVS(53355) = Jac_FULL(5256,3546) - JVS(53355) = -B(22217) -! JVS(53356) = Jac_FULL(5256,3551) - JVS(53356) = -B(6413) -! JVS(53357) = Jac_FULL(5256,3553) - JVS(53357) = -B(9661) -! JVS(53358) = Jac_FULL(5256,3554) - JVS(53358) = -B(5781) -! JVS(53359) = Jac_FULL(5256,3560) - JVS(53359) = -B(5569) -! JVS(53360) = Jac_FULL(5256,3562) - JVS(53360) = -B(5682) -! JVS(53361) = Jac_FULL(5256,3568) - JVS(53361) = B(10) -! JVS(53362) = Jac_FULL(5256,3627) - JVS(53362) = -B(5963) -! JVS(53363) = Jac_FULL(5256,3631) - JVS(53363) = -B(6487) -! JVS(53364) = Jac_FULL(5256,3632) - JVS(53364) = -B(6495) -! JVS(53365) = Jac_FULL(5256,3633) - JVS(53365) = -B(23966) -! JVS(53366) = Jac_FULL(5256,3634) - JVS(53366) = -B(3094) -! JVS(53367) = Jac_FULL(5256,3636) - JVS(53367) = -B(3032) -! JVS(53368) = Jac_FULL(5256,3637) - JVS(53368) = -B(3167) -! JVS(53369) = Jac_FULL(5256,3640) - JVS(53369) = -B(5483) -! JVS(53370) = Jac_FULL(5256,3641) - JVS(53370) = -B(6127) -! JVS(53371) = Jac_FULL(5256,3643) - JVS(53371) = -B(5390) -! JVS(53372) = Jac_FULL(5256,3645) - JVS(53372) = -B(6102) -! JVS(53373) = Jac_FULL(5256,3648) - JVS(53373) = -B(6137) -! JVS(53374) = Jac_FULL(5256,3649) - JVS(53374) = -B(5669) -! JVS(53375) = Jac_FULL(5256,3650) - JVS(53375) = -B(6525) -! JVS(53376) = Jac_FULL(5256,3654) - JVS(53376) = -B(4340) -! JVS(53377) = Jac_FULL(5256,3655) - JVS(53377) = -B(6014) -! JVS(53378) = Jac_FULL(5256,3657) - JVS(53378) = -B(5582) -! JVS(53379) = Jac_FULL(5256,3658) - JVS(53379) = -B(3043) -! JVS(53380) = Jac_FULL(5256,3659) - JVS(53380) = -B(6517) -! JVS(53381) = Jac_FULL(5256,3660) - JVS(53381) = -B(4325) -! JVS(53382) = Jac_FULL(5256,3661) - JVS(53382) = -B(5939) -! JVS(53383) = Jac_FULL(5256,3662) - JVS(53383) = -B(14974) -! JVS(53384) = Jac_FULL(5256,3663) - JVS(53384) = -B(5951) -! JVS(53385) = Jac_FULL(5256,3665) - JVS(53385) = -B(6250) -! JVS(53386) = Jac_FULL(5256,3667) - JVS(53386) = -B(8230) -! JVS(53387) = Jac_FULL(5256,3668) - JVS(53387) = -B(19086) -! JVS(53388) = Jac_FULL(5256,3669) - JVS(53388) = -B(12350) -! JVS(53389) = Jac_FULL(5256,3670) - JVS(53389) = -B(3061) -! JVS(53390) = Jac_FULL(5256,3671) - JVS(53390) = -B(2325) -! JVS(53391) = Jac_FULL(5256,3674) - JVS(53391) = -B(8281) -! JVS(53392) = Jac_FULL(5256,3675) - JVS(53392) = -B(15866) -! JVS(53393) = Jac_FULL(5256,3676) - JVS(53393) = -B(10737) -! JVS(53394) = Jac_FULL(5256,3677) - JVS(53394) = -B(12657) -! JVS(53395) = Jac_FULL(5256,3678) - JVS(53395) = -B(8393) -! JVS(53396) = Jac_FULL(5256,3679) - JVS(53396) = -B(15756) -! JVS(53397) = Jac_FULL(5256,3680) - JVS(53397) = -B(16325) -! JVS(53398) = Jac_FULL(5256,3684) - JVS(53398) = -B(5873) -! JVS(53399) = Jac_FULL(5256,3685) - JVS(53399) = -B(15512) -! JVS(53400) = Jac_FULL(5256,3686) - JVS(53400) = -B(20967) -! JVS(53401) = Jac_FULL(5256,3687) - JVS(53401) = -B(13399) -! JVS(53402) = Jac_FULL(5256,3688) - JVS(53402) = -B(8319) -! JVS(53403) = Jac_FULL(5256,3690) - JVS(53403) = -B(8384) -! JVS(53404) = Jac_FULL(5256,3691) - JVS(53404) = -B(8402) -! JVS(53405) = Jac_FULL(5256,3692) - JVS(53405) = -B(12481) -! JVS(53406) = Jac_FULL(5256,3694) - JVS(53406) = -B(22327) -! JVS(53407) = Jac_FULL(5256,3695) - JVS(53407) = -B(12671) -! JVS(53408) = Jac_FULL(5256,3696) - JVS(53408) = -B(12930) -! JVS(53409) = Jac_FULL(5256,3697) - JVS(53409) = -B(15673) -! JVS(53410) = Jac_FULL(5256,3698) - JVS(53410) = -B(22630) -! JVS(53411) = Jac_FULL(5256,3699) - JVS(53411) = -B(15519) -! JVS(53412) = Jac_FULL(5256,3701) - JVS(53412) = -B(5785) -! JVS(53413) = Jac_FULL(5256,3703) - JVS(53413) = -B(20913) -! JVS(53414) = Jac_FULL(5256,3704) - JVS(53414) = -B(8411) -! JVS(53415) = Jac_FULL(5256,3705) - JVS(53415) = -B(12649) -! JVS(53416) = Jac_FULL(5256,3706) - JVS(53416) = -B(19217) -! JVS(53417) = Jac_FULL(5256,3710) - JVS(53417) = -B(19155) -! JVS(53418) = Jac_FULL(5256,3711) - JVS(53418) = -B(15962) -! JVS(53419) = Jac_FULL(5256,3713) - JVS(53419) = -B(12816) -! JVS(53420) = Jac_FULL(5256,3714) - JVS(53420) = -B(15763) -! JVS(53421) = Jac_FULL(5256,3715) - JVS(53421) = -B(22433) -! JVS(53422) = Jac_FULL(5256,3717) - JVS(53422) = -B(16867) -! JVS(53423) = Jac_FULL(5256,3718) - JVS(53423) = -B(8046) -! JVS(53424) = Jac_FULL(5256,3719) - JVS(53424) = -B(22824) -! JVS(53425) = Jac_FULL(5256,3720) - JVS(53425) = -B(14356) -! JVS(53426) = Jac_FULL(5256,3721) - JVS(53426) = -B(2336) -! JVS(53427) = Jac_FULL(5256,3722) - JVS(53427) = -B(22088) -! JVS(53428) = Jac_FULL(5256,3724) - JVS(53428) = -B(23777) -! JVS(53429) = Jac_FULL(5256,3725) - JVS(53429) = -B(13117) -! JVS(53430) = Jac_FULL(5256,3727) - JVS(53430) = -B(12832) -! JVS(53431) = Jac_FULL(5256,3728) - JVS(53431) = -B(12341) -! JVS(53432) = Jac_FULL(5256,3730) - JVS(53432) = -B(8310) -! JVS(53433) = Jac_FULL(5256,3731) - JVS(53433) = -B(8366) -! JVS(53434) = Jac_FULL(5256,3733) - JVS(53434) = -B(7348) -! JVS(53435) = Jac_FULL(5256,3738) - JVS(53435) = -B(16057) -! JVS(53436) = Jac_FULL(5256,3739) - JVS(53436) = -B(12633) -! JVS(53437) = Jac_FULL(5256,3740) - JVS(53437) = -B(15503) -! JVS(53438) = Jac_FULL(5256,3741) - JVS(53438) = -B(14293) -! JVS(53439) = Jac_FULL(5256,3743) - JVS(53439) = -B(23035) -! JVS(53440) = Jac_FULL(5256,3745) - JVS(53440) = -B(11043) -! JVS(53441) = Jac_FULL(5256,3746) - JVS(53441) = -B(20169) -! JVS(53442) = Jac_FULL(5256,3748) - JVS(53442) = -B(18339) -! JVS(53443) = Jac_FULL(5256,3749) - JVS(53443) = -B(8330) -! JVS(53444) = Jac_FULL(5256,3750) - JVS(53444) = -B(22457) -! JVS(53445) = Jac_FULL(5256,3751) - JVS(53445) = -B(8348) -! JVS(53446) = Jac_FULL(5256,3752) - JVS(53446) = -B(12490) -! JVS(53447) = Jac_FULL(5256,3753) - JVS(53447) = -B(16387) -! JVS(53448) = Jac_FULL(5256,3758) - JVS(53448) = -B(7862) -! JVS(53449) = Jac_FULL(5256,3760) - JVS(53449) = -B(20657) -! JVS(53450) = Jac_FULL(5256,3761) - JVS(53450) = -B(19114) -! JVS(53451) = Jac_FULL(5256,3762) - JVS(53451) = -B(13024) -! JVS(53452) = Jac_FULL(5256,3764) - JVS(53452) = -B(21021) -! JVS(53453) = Jac_FULL(5256,3766) - JVS(53453) = -B(8375) -! JVS(53454) = Jac_FULL(5256,3768) - JVS(53454) = -B(8357) -! JVS(53455) = Jac_FULL(5256,3769) - JVS(53455) = -B(15823) -! JVS(53456) = Jac_FULL(5256,3770) - JVS(53456) = -B(16288) -! JVS(53457) = Jac_FULL(5256,3771) - JVS(53457) = -B(16236) -! JVS(53458) = Jac_FULL(5256,3772) - JVS(53458) = -B(12914) -! JVS(53459) = Jac_FULL(5256,3773) - JVS(53459) = -B(18410) -! JVS(53460) = Jac_FULL(5256,3774) - JVS(53460) = -B(13008) -! JVS(53461) = Jac_FULL(5256,3775) - JVS(53461) = -B(18477) -! JVS(53462) = Jac_FULL(5256,3776) - JVS(53462) = -B(2379) -! JVS(53463) = Jac_FULL(5256,3778) - JVS(53463) = -B(8120) -! JVS(53464) = Jac_FULL(5256,3781) - JVS(53464) = -B(8339) -! JVS(53465) = Jac_FULL(5256,3782) - JVS(53465) = -B(16332) -! JVS(53466) = Jac_FULL(5256,3784) - JVS(53466) = -B(11553) -! JVS(53467) = Jac_FULL(5256,3785) - JVS(53467) = -B(8264) -! JVS(53468) = Jac_FULL(5256,3786) - JVS(53468) = -B(5290) -! JVS(53469) = Jac_FULL(5256,3788) - JVS(53469) = -B(13415) -! JVS(53470) = Jac_FULL(5256,3789) - JVS(53470) = -B(21002) -! JVS(53471) = Jac_FULL(5256,3790) - JVS(53471) = -B(2955) -! JVS(53472) = Jac_FULL(5256,3791) - JVS(53472) = -B(6338) -! JVS(53473) = Jac_FULL(5256,3792) - JVS(53473) = -B(15003) -! JVS(53474) = Jac_FULL(5256,3794) - JVS(53474) = -B(2663) -! JVS(53475) = Jac_FULL(5256,3796) - JVS(53475) = -B(5565) -! JVS(53476) = Jac_FULL(5256,3797) - JVS(53476) = -B(2807) -! JVS(53477) = Jac_FULL(5256,3798) - JVS(53477) = -B(2850) -! JVS(53478) = Jac_FULL(5256,3799) - JVS(53478) = -B(5769) -! JVS(53479) = Jac_FULL(5256,3801) - JVS(53479) = -B(13761) -! JVS(53480) = Jac_FULL(5256,3803) - JVS(53480) = -B(2707) -! JVS(53481) = Jac_FULL(5256,3804) - JVS(53481) = -B(2620) -! JVS(53482) = Jac_FULL(5256,3806) - JVS(53482) = -B(3471) -! JVS(53483) = Jac_FULL(5256,3807) - JVS(53483) = -B(2597) -! JVS(53484) = Jac_FULL(5256,3808) - JVS(53484) = -B(5638) -! JVS(53485) = Jac_FULL(5256,3810) - JVS(53485) = -B(10207) -! JVS(53486) = Jac_FULL(5256,3811) - JVS(53486) = -B(2576) -! JVS(53487) = Jac_FULL(5256,3813) - JVS(53487) = -B(5690) -! JVS(53488) = Jac_FULL(5256,3814) - JVS(53488) = -B(9902) -! JVS(53489) = Jac_FULL(5256,3815) - JVS(53489) = -B(5869) -! JVS(53490) = Jac_FULL(5256,3817) - JVS(53490) = -B(2926) -! JVS(53491) = Jac_FULL(5256,3819) - JVS(53491) = -B(2915) -! JVS(53492) = Jac_FULL(5256,3820) - JVS(53492) = -B(5454) -! JVS(53493) = Jac_FULL(5256,3823) - JVS(53493) = -B(2402) -! JVS(53494) = Jac_FULL(5256,3825) - JVS(53494) = -B(6397) -! JVS(53495) = Jac_FULL(5256,3827) - JVS(53495) = -B(5315) -! JVS(53496) = Jac_FULL(5256,3828) - JVS(53496) = -B(6040) -! JVS(53497) = Jac_FULL(5256,3830) - JVS(53497) = -B(5280) -! JVS(53498) = Jac_FULL(5256,3831) - JVS(53498) = -B(5694) -! JVS(53499) = Jac_FULL(5256,3833) - JVS(53499) = -B(2822) -! JVS(53500) = Jac_FULL(5256,3834) - JVS(53500) = -B(2438) -! JVS(53501) = Jac_FULL(5256,3836) - JVS(53501) = -B(3391) -! JVS(53502) = Jac_FULL(5256,3837) - JVS(53502) = -B(18947) -! JVS(53503) = Jac_FULL(5256,3838) - JVS(53503) = -B(21722) -! JVS(53504) = Jac_FULL(5256,3839) - JVS(53504) = -B(19358) -! JVS(53505) = Jac_FULL(5256,3840) - JVS(53505) = -B(17066) -! JVS(53506) = Jac_FULL(5256,3841) - JVS(53506) = -B(23174) -! JVS(53507) = Jac_FULL(5256,3844) - JVS(53507) = -B(14787) -! JVS(53508) = Jac_FULL(5256,3845) - JVS(53508) = -B(20805) -! JVS(53509) = Jac_FULL(5256,3846) - JVS(53509) = -B(22849) -! JVS(53510) = Jac_FULL(5256,3847) - JVS(53510) = -B(1385) -! JVS(53511) = Jac_FULL(5256,3848) - JVS(53511) = -B(23385) -! JVS(53512) = Jac_FULL(5256,3849) - JVS(53512) = -B(23374) -! JVS(53513) = Jac_FULL(5256,3850) - JVS(53513) = -B(14423) -! JVS(53514) = Jac_FULL(5256,3851) - JVS(53514) = -B(4583) -! JVS(53515) = Jac_FULL(5256,3852) - JVS(53515) = -B(7337) -! JVS(53516) = Jac_FULL(5256,3853) - JVS(53516) = -B(13391) -! JVS(53517) = Jac_FULL(5256,3854) - JVS(53517) = -B(8183) -! JVS(53518) = Jac_FULL(5256,3855) - JVS(53518) = -B(23483) -! JVS(53519) = Jac_FULL(5256,3856) - JVS(53519) = -B(4637) -! JVS(53520) = Jac_FULL(5256,3857) - JVS(53520) = -B(11843) -! JVS(53521) = Jac_FULL(5256,3858) - JVS(53521) = -B(20679) -! JVS(53522) = Jac_FULL(5256,3859) - JVS(53522) = -B(8205) -! JVS(53523) = Jac_FULL(5256,3860) - JVS(53523) = -B(12857) -! JVS(53524) = Jac_FULL(5256,3861) - JVS(53524) = -B(19002) -! JVS(53525) = Jac_FULL(5256,3862) - JVS(53525) = -B(20809) -! JVS(53526) = Jac_FULL(5256,3863) - JVS(53526) = -B(3539) -! JVS(53527) = Jac_FULL(5256,3864) - JVS(53527) = -B(18924) -! JVS(53528) = Jac_FULL(5256,3865) - JVS(53528) = -B(6887) -! JVS(53529) = Jac_FULL(5256,3866) - JVS(53529) = -B(2993) -! JVS(53530) = Jac_FULL(5256,3867) - JVS(53530) = -B(3549) -! JVS(53531) = Jac_FULL(5256,3869) - JVS(53531) = -B(8090) -! JVS(53532) = Jac_FULL(5256,3870) - JVS(53532) = -B(8024) -! JVS(53533) = Jac_FULL(5256,3871) - JVS(53533) = -B(15249) -! JVS(53534) = Jac_FULL(5256,3872) - JVS(53534) = -B(14526) -! JVS(53535) = Jac_FULL(5256,3873) - JVS(53535) = -B(8153) -! JVS(53536) = Jac_FULL(5256,3874) - JVS(53536) = -B(23770) -! JVS(53537) = Jac_FULL(5256,3875) - JVS(53537) = -B(4526) -! JVS(53538) = Jac_FULL(5256,3876) - JVS(53538) = -B(14405) -! JVS(53539) = Jac_FULL(5256,3877) - JVS(53539) = -B(4682) -! JVS(53540) = Jac_FULL(5256,3879) - JVS(53540) = -B(7216) -! JVS(53541) = Jac_FULL(5256,3880) - JVS(53541) = -B(15400) -! JVS(53542) = Jac_FULL(5256,3881) - JVS(53542) = -B(15316) -! JVS(53543) = Jac_FULL(5256,3882) - JVS(53543) = -B(23872) -! JVS(53544) = Jac_FULL(5256,3883) - JVS(53544) = -B(11304) -! JVS(53545) = Jac_FULL(5256,3884) - JVS(53545) = -B(1429) -! JVS(53546) = Jac_FULL(5256,3885) - JVS(53546) = -B(8002) -! JVS(53547) = Jac_FULL(5256,3886) - JVS(53547) = -B(14750) -! JVS(53548) = Jac_FULL(5256,3888) - JVS(53548) = -B(8565) -! JVS(53549) = Jac_FULL(5256,3889) - JVS(53549) = -B(8173) -! JVS(53550) = Jac_FULL(5256,3890) - JVS(53550) = -B(19472) -! JVS(53551) = Jac_FULL(5256,3891) - JVS(53551) = -B(3568) -! JVS(53552) = Jac_FULL(5256,3892) - JVS(53552) = -B(3969) -! JVS(53553) = Jac_FULL(5256,3893) - JVS(53553) = -B(7991) -! JVS(53554) = Jac_FULL(5256,3894) - JVS(53554) = -B(1852) -! JVS(53555) = Jac_FULL(5256,3895) - JVS(53555) = -B(22550) -! JVS(53556) = Jac_FULL(5256,3896) - JVS(53556) = -B(18683) -! JVS(53557) = Jac_FULL(5256,3898) - JVS(53557) = -B(3626) -! JVS(53558) = Jac_FULL(5256,3899) - JVS(53558) = -B(22176) -! JVS(53559) = Jac_FULL(5256,3900) - JVS(53559) = -B(6985) -! JVS(53560) = Jac_FULL(5256,3901) - JVS(53560) = -B(14725) -! JVS(53561) = Jac_FULL(5256,3902) - JVS(53561) = -B(22753) -! JVS(53562) = Jac_FULL(5256,3903) - JVS(53562) = -B(5276) -! JVS(53563) = Jac_FULL(5256,3905) - JVS(53563) = -B(16884) -! JVS(53564) = Jac_FULL(5256,3907) - JVS(53564) = -B(14492) -! JVS(53565) = Jac_FULL(5256,3908) - JVS(53565) = -B(22589) -! JVS(53566) = Jac_FULL(5256,3911) - JVS(53566) = -B(18207) -! JVS(53567) = Jac_FULL(5256,3912) - JVS(53567) = -B(15204) -! JVS(53568) = Jac_FULL(5256,3913) - JVS(53568) = 0 -! JVS(53569) = Jac_FULL(5256,3914) - JVS(53569) = -B(18195) -! JVS(53570) = Jac_FULL(5256,3915) - JVS(53570) = -B(14947) -! JVS(53571) = Jac_FULL(5256,3916) - JVS(53571) = -B(15372) -! JVS(53572) = Jac_FULL(5256,3919) - JVS(53572) = -B(15344) -! JVS(53573) = Jac_FULL(5256,3920) - JVS(53573) = -B(14824) -! JVS(53574) = Jac_FULL(5256,3921) - JVS(53574) = -B(3434) -! JVS(53575) = Jac_FULL(5256,3923) - JVS(53575) = -B(11735) -! JVS(53576) = Jac_FULL(5256,3924) - JVS(53576) = -B(4654) -! JVS(53577) = Jac_FULL(5256,3926) - JVS(53577) = -B(10891) -! JVS(53578) = Jac_FULL(5256,3927) - JVS(53578) = -B(14536) -! JVS(53579) = Jac_FULL(5256,3928) - JVS(53579) = -B(14733) -! JVS(53580) = Jac_FULL(5256,3932) - JVS(53580) = -B(7980) -! JVS(53581) = Jac_FULL(5256,3935) - JVS(53581) = -B(11483) -! JVS(53582) = Jac_FULL(5256,3936) - JVS(53582) = -B(3444) -! JVS(53583) = Jac_FULL(5256,3937) - JVS(53583) = -B(20162) -! JVS(53584) = Jac_FULL(5256,3938) - JVS(53584) = -B(21142) -! JVS(53585) = Jac_FULL(5256,3939) - JVS(53585) = -B(10448) -! JVS(53586) = Jac_FULL(5256,3940) - JVS(53586) = -B(3525) -! JVS(53587) = Jac_FULL(5256,3941) - JVS(53587) = -B(15211) -! JVS(53588) = Jac_FULL(5256,3943) - JVS(53588) = -B(3411) -! JVS(53589) = Jac_FULL(5256,3944) - JVS(53589) = -B(8099) -! JVS(53590) = Jac_FULL(5256,3945) - JVS(53590) = -B(13107) -! JVS(53591) = Jac_FULL(5256,3946) - JVS(53591) = -B(12065) -! JVS(53592) = Jac_FULL(5256,3947) - JVS(53592) = -B(16975) -! JVS(53593) = Jac_FULL(5256,3948) - JVS(53593) = -B(15132) -! JVS(53594) = Jac_FULL(5256,3949) - JVS(53594) = -B(20869) -! JVS(53595) = Jac_FULL(5256,3950) - JVS(53595) = -B(20880) -! JVS(53596) = Jac_FULL(5256,3951) - JVS(53596) = -B(21113) -! JVS(53597) = Jac_FULL(5256,3952) - JVS(53597) = -B(8420) -! JVS(53598) = Jac_FULL(5256,3953) - JVS(53598) = -B(13049) -! JVS(53599) = Jac_FULL(5256,3954) - JVS(53599) = -B(16860) -! JVS(53600) = Jac_FULL(5256,3955) - JVS(53600) = -B(14250) -! JVS(53601) = Jac_FULL(5256,3960) - JVS(53601) = -B(23927) -! JVS(53602) = Jac_FULL(5256,3961) - JVS(53602) = -B(8057) -! JVS(53603) = Jac_FULL(5256,3962) - JVS(53603) = -B(19335) -! JVS(53604) = Jac_FULL(5256,3963) - JVS(53604) = -B(3615) -! JVS(53605) = Jac_FULL(5256,3964) - JVS(53605) = -B(8536) -! JVS(53606) = Jac_FULL(5256,3966) - JVS(53606) = -B(14834) -! JVS(53607) = Jac_FULL(5256,3967) - JVS(53607) = -B(8068) -! JVS(53608) = Jac_FULL(5256,3969) - JVS(53608) = -B(14512) -! JVS(53609) = Jac_FULL(5256,3971) - JVS(53609) = -B(3605) -! JVS(53610) = Jac_FULL(5256,3972) - JVS(53610) = -B(18973) -! JVS(53611) = Jac_FULL(5256,3973) - JVS(53611) = -B(12955) -! JVS(53612) = Jac_FULL(5256,3974) - JVS(53612) = -B(22561) -! JVS(53613) = Jac_FULL(5256,3975) - JVS(53613) = -B(13099) -! JVS(53614) = Jac_FULL(5256,3976) - JVS(53614) = -B(21664) -! JVS(53615) = Jac_FULL(5256,3977) - JVS(53615) = -B(15295) -! JVS(53616) = Jac_FULL(5256,3979) - JVS(53616) = -B(7741) -! JVS(53617) = Jac_FULL(5256,3980) - JVS(53617) = -B(6860) -! JVS(53618) = Jac_FULL(5256,3981) - JVS(53618) = -B(14380) -! JVS(53619) = Jac_FULL(5256,3982) - JVS(53619) = -B(7359) -! JVS(53620) = Jac_FULL(5256,3983) - JVS(53620) = -B(16064) -! JVS(53621) = Jac_FULL(5256,3984) - JVS(53621) = -B(21680) -! JVS(53622) = Jac_FULL(5256,3985) - JVS(53622) = -B(17082) -! JVS(53623) = Jac_FULL(5256,3986) - JVS(53623) = -B(11982) -! JVS(53624) = Jac_FULL(5256,3987) - JVS(53624) = -B(3004) -! JVS(53625) = Jac_FULL(5256,3988) - JVS(53625) = -B(11279) -! JVS(53626) = Jac_FULL(5256,3989) - JVS(53626) = -B(8131) -! JVS(53627) = Jac_FULL(5256,3990) - JVS(53627) = -B(11339) -! JVS(53628) = Jac_FULL(5256,3991) - JVS(53628) = -B(11508) -! JVS(53629) = Jac_FULL(5256,3992) - JVS(53629) = -B(17443) -! JVS(53630) = Jac_FULL(5256,3994) - JVS(53630) = -B(3560) -! JVS(53631) = Jac_FULL(5256,3995) - JVS(53631) = -B(4171) -! JVS(53632) = Jac_FULL(5256,3996) - JVS(53632) = -B(2791) -! JVS(53633) = Jac_FULL(5256,3997) - JVS(53633) = -B(12989) -! JVS(53634) = Jac_FULL(5256,3998) - JVS(53634) = -B(20442) -! JVS(53635) = Jac_FULL(5256,3999) - JVS(53635) = -B(15948) -! JVS(53636) = Jac_FULL(5256,4000) - JVS(53636) = -B(9721) -! JVS(53637) = Jac_FULL(5256,4001) - JVS(53637) = -B(9235) -! JVS(53638) = Jac_FULL(5256,4002) - JVS(53638) = -B(12764) -! JVS(53639) = Jac_FULL(5256,4003) - JVS(53639) = -B(2477) -! JVS(53640) = Jac_FULL(5256,4005) - JVS(53640) = -B(9178) -! JVS(53641) = Jac_FULL(5256,4006) - JVS(53641) = -B(15659) -! JVS(53642) = Jac_FULL(5256,4007) - JVS(53642) = -B(13203) -! JVS(53643) = Jac_FULL(5256,4008) - JVS(53643) = -B(10035) -! JVS(53644) = Jac_FULL(5256,4009) - JVS(53644) = -B(9748) -! JVS(53645) = Jac_FULL(5256,4010) - JVS(53645) = -B(2407) -! JVS(53646) = Jac_FULL(5256,4011) - JVS(53646) = -B(15749) -! JVS(53647) = Jac_FULL(5256,4012) - JVS(53647) = 0 -! JVS(53648) = Jac_FULL(5256,4013) - JVS(53648) = -B(20060) -! JVS(53649) = Jac_FULL(5256,4015) - JVS(53649) = -B(17436) -! JVS(53650) = Jac_FULL(5256,4016) - JVS(53650) = -B(9396) -! JVS(53651) = Jac_FULL(5256,4017) - JVS(53651) = -B(2979) -! JVS(53652) = Jac_FULL(5256,4018) - JVS(53652) = -B(2931) -! JVS(53653) = Jac_FULL(5256,4019) - JVS(53653) = -B(21916) -! JVS(53654) = Jac_FULL(5256,4020) - JVS(53654) = -B(9272) -! JVS(53655) = Jac_FULL(5256,4021) - JVS(53655) = -B(16050) -! JVS(53656) = Jac_FULL(5256,4022) - JVS(53656) = -B(15532) -! JVS(53657) = Jac_FULL(5256,4023) - JVS(53657) = -B(13078) -! JVS(53658) = Jac_FULL(5256,4025) - JVS(53658) = -B(15816) -! JVS(53659) = Jac_FULL(5256,4026) - JVS(53659) = -B(21379) -! JVS(53660) = Jac_FULL(5256,4027) - JVS(53660) = -B(2751) -! JVS(53661) = Jac_FULL(5256,4028) - JVS(53661) = -B(2434) -! JVS(53662) = Jac_FULL(5256,4030) - JVS(53662) = -B(9375) -! JVS(53663) = Jac_FULL(5256,4031) - JVS(53663) = -B(15937) -! JVS(53664) = Jac_FULL(5256,4032) - JVS(53664) = -B(2581) -! JVS(53665) = Jac_FULL(5256,4033) - JVS(53665) = -B(12605) -! JVS(53666) = Jac_FULL(5256,4034) - JVS(53666) = -B(16143) -! JVS(53667) = Jac_FULL(5256,4035) - JVS(53667) = -B(13328) -! JVS(53668) = Jac_FULL(5256,4036) - JVS(53668) = -B(15852) -! JVS(53669) = Jac_FULL(5256,4037) - JVS(53669) = -B(9633) -! JVS(53670) = Jac_FULL(5256,4038) - JVS(53670) = -B(9036) -! JVS(53671) = Jac_FULL(5256,4039) - JVS(53671) = -B(15809) -! JVS(53672) = Jac_FULL(5256,4040) - JVS(53672) = -B(16274) -! JVS(53673) = Jac_FULL(5256,4041) - JVS(53673) = -B(9815) -! JVS(53674) = Jac_FULL(5256,4042) - JVS(53674) = -B(17450) -! JVS(53675) = Jac_FULL(5256,4043) - JVS(53675) = -B(17316) -! JVS(53676) = Jac_FULL(5256,4044) - JVS(53676) = -B(16222) -! JVS(53677) = Jac_FULL(5256,4045) - JVS(53677) = 0 -! JVS(53678) = Jac_FULL(5256,4046) - JVS(53678) = -B(20082) -! JVS(53679) = Jac_FULL(5256,4048) - JVS(53679) = -B(8789) -! JVS(53680) = Jac_FULL(5256,4049) - JVS(53680) = -B(12438) -! JVS(53681) = Jac_FULL(5256,4050) - JVS(53681) = -B(13441) -! JVS(53682) = Jac_FULL(5256,4051) - JVS(53682) = -B(10220) -! JVS(53683) = Jac_FULL(5256,4052) - JVS(53683) = -B(20301) -! JVS(53684) = Jac_FULL(5256,4054) - JVS(53684) = -B(13300) -! JVS(53685) = Jac_FULL(5256,4055) - JVS(53685) = -B(2778) -! JVS(53686) = Jac_FULL(5256,4056) - JVS(53686) = -B(2482) -! JVS(53687) = Jac_FULL(5256,4057) - JVS(53687) = -B(12797) -! JVS(53688) = Jac_FULL(5256,4058) - JVS(53688) = -B(15156) -! JVS(53689) = Jac_FULL(5256,4059) - JVS(53689) = -B(20890) -! JVS(53690) = Jac_FULL(5256,4060) - JVS(53690) = -B(10726) -! JVS(53691) = Jac_FULL(5256,4061) - JVS(53691) = -B(16318) -! JVS(53692) = Jac_FULL(5256,4063) - JVS(53692) = -B(9503) -! JVS(53693) = Jac_FULL(5256,4064) - JVS(53693) = -B(13359) -! JVS(53694) = Jac_FULL(5256,4065) - JVS(53694) = -B(12891) -! JVS(53695) = Jac_FULL(5256,4067) - JVS(53695) = -B(15472) -! JVS(53696) = Jac_FULL(5256,4068) - JVS(53696) = -B(2641) -! JVS(53697) = Jac_FULL(5256,4069) - JVS(53697) = -B(12962) -! JVS(53698) = Jac_FULL(5256,4070) - JVS(53698) = -B(10134) -! JVS(53699) = Jac_FULL(5256,4072) - JVS(53699) = -B(16373) -! JVS(53700) = Jac_FULL(5256,4073) - JVS(53700) = -B(12717) -! JVS(53701) = Jac_FULL(5256,4074) - JVS(53701) = -B(2818) -! JVS(53702) = Jac_FULL(5256,4075) - JVS(53702) = -B(9137) -! JVS(53703) = Jac_FULL(5256,4076) - JVS(53703) = -B(15859) -! JVS(53704) = Jac_FULL(5256,4077) - JVS(53704) = -B(19188) -! JVS(53705) = Jac_FULL(5256,4078) - JVS(53705) = -B(11170) -! JVS(53706) = Jac_FULL(5256,4079) - JVS(53706) = -B(12409) -! JVS(53707) = Jac_FULL(5256,4080) - JVS(53707) = -B(2855) -! JVS(53708) = Jac_FULL(5256,4082) - JVS(53708) = -B(9976) -! JVS(53709) = Jac_FULL(5256,4083) - JVS(53709) = -B(2525) -! JVS(53710) = Jac_FULL(5256,4085) - JVS(53710) = -B(10115) -! JVS(53711) = Jac_FULL(5256,4087) - JVS(53711) = -B(6880) -! JVS(53712) = Jac_FULL(5256,4088) - JVS(53712) = -B(14760) -! JVS(53713) = Jac_FULL(5256,4089) - JVS(53713) = -B(11108) -! JVS(53714) = Jac_FULL(5256,4090) - JVS(53714) = -B(3517) -! JVS(53715) = Jac_FULL(5256,4091) - JVS(53715) = -B(3455) -! JVS(53716) = Jac_FULL(5256,4092) - JVS(53716) = -B(14321) -! JVS(53717) = Jac_FULL(5256,4093) - JVS(53717) = -B(2668) -! JVS(53718) = Jac_FULL(5256,4094) - JVS(53718) = -B(2625) -! JVS(53719) = Jac_FULL(5256,4095) - JVS(53719) = -B(10898) -! JVS(53720) = Jac_FULL(5256,4097) - JVS(53720) = -B(3463) -! JVS(53721) = Jac_FULL(5256,4098) - JVS(53721) = -B(21969) -! JVS(53722) = Jac_FULL(5256,4099) - JVS(53722) = -B(1895) -! JVS(53723) = Jac_FULL(5256,4100) - JVS(53723) = -B(9170) -! JVS(53724) = Jac_FULL(5256,4101) - JVS(53724) = -B(18259) -! JVS(53725) = Jac_FULL(5256,4102) - JVS(53725) = -B(21396) -! JVS(53726) = Jac_FULL(5256,4105) - JVS(53726) = -B(10993) -! JVS(53727) = Jac_FULL(5256,4106) - JVS(53727) = -B(16784) -! JVS(53728) = Jac_FULL(5256,4107) - JVS(53728) = 0 -! JVS(53729) = Jac_FULL(5256,4108) - JVS(53729) = -B(4899) -! JVS(53730) = Jac_FULL(5256,4110) - JVS(53730) = -B(11860) -! JVS(53731) = Jac_FULL(5256,4111) - JVS(53731) = -B(3072) -! JVS(53732) = Jac_FULL(5256,4112) - JVS(53732) = -B(2066) -! JVS(53733) = Jac_FULL(5256,4113) - JVS(53733) = 0 -! JVS(53734) = Jac_FULL(5256,4114) - JVS(53734) = -B(5010) -! JVS(53735) = Jac_FULL(5256,4115) - JVS(53735) = -B(23715) -! JVS(53736) = Jac_FULL(5256,4116) - JVS(53736) = -B(23828) -! JVS(53737) = Jac_FULL(5256,4117) - JVS(53737) = -B(23370) -! JVS(53738) = Jac_FULL(5256,4118) - JVS(53738) = -B(10952) -! JVS(53739) = Jac_FULL(5256,4119) - JVS(53739) = -B(19147) -! JVS(53740) = Jac_FULL(5256,4120) - JVS(53740) = -B(23412) -! JVS(53741) = Jac_FULL(5256,4121) - JVS(53741) = -B(1809) -! JVS(53742) = Jac_FULL(5256,4123) - JVS(53742) = -B(20504) -! JVS(53743) = Jac_FULL(5256,4124) - JVS(53743) = -B(14230) -! JVS(53744) = Jac_FULL(5256,4126) - JVS(53744) = -B(10868) -! JVS(53745) = Jac_FULL(5256,4127) - JVS(53745) = -B(10759) -! JVS(53746) = Jac_FULL(5256,4128) - JVS(53746) = -B(15074) -! JVS(53747) = Jac_FULL(5256,4129) - JVS(53747) = -B(18746) -! JVS(53748) = Jac_FULL(5256,4130) - JVS(53748) = -B(22680) -! JVS(53749) = Jac_FULL(5256,4131) - JVS(53749) = -B(22405) -! JVS(53750) = Jac_FULL(5256,4132) - JVS(53750) = -B(6298) -! JVS(53751) = Jac_FULL(5256,4133) - JVS(53751) = -B(2735) -! JVS(53752) = Jac_FULL(5256,4134) - JVS(53752) = -B(16454) -! JVS(53753) = Jac_FULL(5256,4135) - JVS(53753) = -B(17158) -! JVS(53754) = Jac_FULL(5256,4136) - JVS(53754) = -B(23706) -! JVS(53755) = Jac_FULL(5256,4137) - JVS(53755) = -B(23208) -! JVS(53756) = Jac_FULL(5256,4138) - JVS(53756) = -B(21178) -! JVS(53757) = Jac_FULL(5256,4139) - JVS(53757) = -B(9713) -! JVS(53758) = Jac_FULL(5256,4140) - JVS(53758) = -B(2225) -! JVS(53759) = Jac_FULL(5256,4141) - JVS(53759) = -B(12999) -! JVS(53760) = Jac_FULL(5256,4142) - JVS(53760) = -B(21822) -! JVS(53761) = Jac_FULL(5256,4143) - JVS(53761) = -B(2173) -! JVS(53762) = Jac_FULL(5256,4144) - JVS(53762) = -B(7426) -! JVS(53763) = Jac_FULL(5256,4145) - JVS(53763) = -B(17149) -! JVS(53764) = Jac_FULL(5256,4146) - JVS(53764) = -B(3506) -! JVS(53765) = Jac_FULL(5256,4147) - JVS(53765) = -B(22740) -! JVS(53766) = Jac_FULL(5256,4148) - JVS(53766) = -B(7417) -! JVS(53767) = Jac_FULL(5256,4149) - JVS(53767) = -B(16263) -! JVS(53768) = Jac_FULL(5256,4150) - JVS(53768) = -B(20818) -! JVS(53769) = Jac_FULL(5256,4151) - JVS(53769) = -B(7326) -! JVS(53770) = Jac_FULL(5256,4152) - JVS(53770) = 0 -! JVS(53771) = Jac_FULL(5256,4153) - JVS(53771) = -B(16281) -! JVS(53772) = Jac_FULL(5256,4154) - JVS(53772) = -B(20232) -! JVS(53773) = Jac_FULL(5256,4155) - JVS(53773) = -B(5095) -! JVS(53774) = Jac_FULL(5256,4156) - JVS(53774) = -B(4331) -! JVS(53775) = Jac_FULL(5256,4157) - JVS(53775) = -B(23259) -! JVS(53776) = Jac_FULL(5256,4158) - JVS(53776) = -B(11016) -! JVS(53777) = Jac_FULL(5256,4159) - JVS(53777) = -B(10370) -! JVS(53778) = Jac_FULL(5256,4160) - JVS(53778) = -B(5049) -! JVS(53779) = Jac_FULL(5256,4161) - JVS(53779) = -B(1187) -! JVS(53780) = Jac_FULL(5256,4162) - JVS(53780) = -B(22694) -! JVS(53781) = Jac_FULL(5256,4163) - JVS(53781) = -B(15496) -! JVS(53782) = Jac_FULL(5256,4165) - JVS(53782) = -B(12905) -! JVS(53783) = Jac_FULL(5256,4166) - JVS(53783) = -B(19166) -! JVS(53784) = Jac_FULL(5256,4167) - JVS(53784) = -B(2974) -! JVS(53785) = Jac_FULL(5256,4168) - JVS(53785) = -B(10245) -! JVS(53786) = Jac_FULL(5256,4169) - JVS(53786) = -B(10859) -! JVS(53787) = Jac_FULL(5256,4170) - JVS(53787) = -B(10986) -! JVS(53788) = Jac_FULL(5256,4171) - JVS(53788) = -B(1990) -! JVS(53789) = Jac_FULL(5256,4172) - JVS(53789) = -B(22105) -! JVS(53790) = Jac_FULL(5256,4173) - JVS(53790) = -B(14346) -! JVS(53791) = Jac_FULL(5256,4174) - JVS(53791) = -B(4933) -! JVS(53792) = Jac_FULL(5256,4176) - JVS(53792) = -B(17334) -! JVS(53793) = Jac_FULL(5256,4180) - JVS(53793) = -B(16543) -! JVS(53794) = Jac_FULL(5256,4181) - JVS(53794) = -B(9807) -! JVS(53795) = Jac_FULL(5256,4182) - JVS(53795) = -B(18569) -! JVS(53796) = Jac_FULL(5256,4185) - JVS(53796) = -B(3496) -! JVS(53797) = Jac_FULL(5256,4186) - JVS(53797) = -B(7393) -! JVS(53798) = Jac_FULL(5256,4187) - JVS(53798) = -B(9260) -! JVS(53799) = Jac_FULL(5256,4188) - JVS(53799) = -B(18152) -! JVS(53800) = Jac_FULL(5256,4189) - JVS(53800) = -B(19072) -! JVS(53801) = Jac_FULL(5256,4190) - JVS(53801) = 0 -! JVS(53802) = Jac_FULL(5256,4191) - JVS(53802) = -B(20587) -! JVS(53803) = Jac_FULL(5256,4192) - JVS(53803) = -B(16244) -! JVS(53804) = Jac_FULL(5256,4193) - JVS(53804) = -B(16157) -! JVS(53805) = Jac_FULL(5256,4194) - JVS(53805) = -B(18435) -! JVS(53806) = Jac_FULL(5256,4195) - JVS(53806) = -B(15479) -! JVS(53807) = Jac_FULL(5256,4196) - JVS(53807) = -B(23158) -! JVS(53808) = Jac_FULL(5256,4197) - JVS(53808) = -B(17092) -! JVS(53809) = Jac_FULL(5256,4198) - JVS(53809) = -B(9926) -! JVS(53810) = Jac_FULL(5256,4200) - JVS(53810) = -B(15778) -! JVS(53811) = Jac_FULL(5256,4201) - JVS(53811) = -B(7259) -! JVS(53812) = Jac_FULL(5256,4202) - JVS(53812) = -B(19973) -! JVS(53813) = Jac_FULL(5256,4203) - JVS(53813) = -B(21493) -! JVS(53814) = Jac_FULL(5256,4204) - JVS(53814) = -B(18274) -! JVS(53815) = Jac_FULL(5256,4205) - JVS(53815) = -B(18368) -! JVS(53816) = Jac_FULL(5256,4206) - JVS(53816) = -B(7697) -! JVS(53817) = Jac_FULL(5256,4207) - JVS(53817) = -B(22148) -! JVS(53818) = Jac_FULL(5256,4208) - JVS(53818) = -B(16496) -! JVS(53819) = Jac_FULL(5256,4209) - JVS(53819) = -B(16470) -! JVS(53820) = Jac_FULL(5256,4210) - JVS(53820) = -B(16297) -! JVS(53821) = Jac_FULL(5256,4211) - JVS(53821) = -B(16756) -! JVS(53822) = Jac_FULL(5256,4212) - JVS(53822) = -B(16150) -! JVS(53823) = Jac_FULL(5256,4213) - JVS(53823) = B(13629) -! JVS(53824) = Jac_FULL(5256,4214) - JVS(53824) = -B(22260) -! JVS(53825) = Jac_FULL(5256,4215) - JVS(53825) = -B(8593) -! JVS(53826) = Jac_FULL(5256,4216) - JVS(53826) = -B(23435) -! JVS(53827) = Jac_FULL(5256,4217) - JVS(53827) = -B(15546) -! JVS(53828) = Jac_FULL(5256,4218) - JVS(53828) = -B(20147) -! JVS(53829) = Jac_FULL(5256,4219) - JVS(53829) = -B(10776) -! JVS(53830) = Jac_FULL(5256,4220) - JVS(53830) = -B(23550) -! JVS(53831) = Jac_FULL(5256,4221) - JVS(53831) = -B(19915) -! JVS(53832) = Jac_FULL(5256,4222) - JVS(53832) = -B(20562) -! JVS(53833) = Jac_FULL(5256,4224) - JVS(53833) = -B(21707) -! JVS(53834) = Jac_FULL(5256,4225) - JVS(53834) = -B(15838) -! JVS(53835) = Jac_FULL(5256,4226) - JVS(53835) = -B(23688) -! JVS(53836) = Jac_FULL(5256,4227) - JVS(53836) = -B(18472) -! JVS(53837) = Jac_FULL(5256,4228) - JVS(53837) = -B(18825) -! JVS(53838) = Jac_FULL(5256,4229) - JVS(53838) = -B(18814) -! JVS(53839) = Jac_FULL(5256,4230) - JVS(53839) = -B(20580) -! JVS(53840) = Jac_FULL(5256,4231) - JVS(53840) = -B(13934) -! JVS(53841) = Jac_FULL(5256,4232) - JVS(53841) = -B(18659) -! JVS(53842) = Jac_FULL(5256,4233) - JVS(53842) = -B(18405) -! JVS(53843) = Jac_FULL(5256,4234) - JVS(53843) = -B(23468) -! JVS(53844) = Jac_FULL(5256,4235) - JVS(53844) = -B(19691) -! JVS(53845) = Jac_FULL(5256,4236) - JVS(53845) = -B(19296) -! JVS(53846) = Jac_FULL(5256,4237) - JVS(53846) = -B(15971) -! JVS(53847) = Jac_FULL(5256,4238) - JVS(53847) = -B(15379) -! JVS(53848) = Jac_FULL(5256,4239) - JVS(53848) = -B(14024) -! JVS(53849) = Jac_FULL(5256,4240) - JVS(53849) = -B(7367) -! JVS(53850) = Jac_FULL(5256,4241) - JVS(53850) = -B(19962) -! JVS(53851) = Jac_FULL(5256,4242) - JVS(53851) = -B(21931) -! JVS(53852) = Jac_FULL(5256,4243) - JVS(53852) = -B(14847) -! JVS(53853) = Jac_FULL(5256,4244) - JVS(53853) = -B(11546) -! JVS(53854) = Jac_FULL(5256,4245) - JVS(53854) = -B(18624) -! JVS(53855) = Jac_FULL(5256,4246) - JVS(53855) = -B(15875) -! JVS(53856) = Jac_FULL(5256,4247) - JVS(53856) = B(16656) -! JVS(53857) = Jac_FULL(5256,4249) - JVS(53857) = -B(11375) -! JVS(53858) = Jac_FULL(5256,4250) - JVS(53858) = B(20536) -! JVS(53859) = Jac_FULL(5256,4251) - JVS(53859) = -B(15258) -! JVS(53860) = Jac_FULL(5256,4252) - JVS(53860) = -B(16347) -! JVS(53861) = Jac_FULL(5256,4253) - JVS(53861) = -B(20034) -! JVS(53862) = Jac_FULL(5256,4254) - JVS(53862) = -B(15351) -! JVS(53863) = Jac_FULL(5256,4255) - JVS(53863) = -B(6871) -! JVS(53864) = Jac_FULL(5256,4257) - JVS(53864) = -B(14312) -! JVS(53865) = Jac_FULL(5256,4258) - JVS(53865) = B(17325) -! JVS(53866) = Jac_FULL(5256,4259) - JVS(53866) = -B(10407) -! JVS(53867) = Jac_FULL(5256,4260) - JVS(53867) = -B(14858) -! JVS(53868) = Jac_FULL(5256,4261) - JVS(53868) = -B(11717) -! JVS(53869) = Jac_FULL(5256,4262) - JVS(53869) = -B(18309) -! JVS(53870) = Jac_FULL(5256,4263) - JVS(53870) = -B(14905) -! JVS(53871) = Jac_FULL(5256,4264) - JVS(53871) = B(14557) -! JVS(53872) = Jac_FULL(5256,4265) - JVS(53872) = -B(15539) -! JVS(53873) = Jac_FULL(5256,4266) - JVS(53873) = -B(11121) -! JVS(53874) = Jac_FULL(5256,4267) - JVS(53874) = -B(21290) -! JVS(53875) = Jac_FULL(5256,4268) - JVS(53875) = -B(20693) -! JVS(53876) = Jac_FULL(5256,4269) - JVS(53876) = -B(10658) -! JVS(53877) = Jac_FULL(5256,4270) - JVS(53877) = -B(15323) -! JVS(53878) = Jac_FULL(5256,4271) - JVS(53878) = -B(18066) -! JVS(53879) = Jac_FULL(5256,4272) - JVS(53879) = -B(2887) -! JVS(53880) = Jac_FULL(5256,4273) - JVS(53880) = -B(15486) -! JVS(53881) = Jac_FULL(5256,4274) - JVS(53881) = -B(21171) -! JVS(53882) = Jac_FULL(5256,4275) - JVS(53882) = -B(8472) -! JVS(53883) = Jac_FULL(5256,4276) - JVS(53883) = -B(18541) -! JVS(53884) = Jac_FULL(5256,4277) - JVS(53884) = -B(10275) -! JVS(53885) = Jac_FULL(5256,4278) - JVS(53885) = -B(21790) -! JVS(53886) = Jac_FULL(5256,4279) - JVS(53886) = -B(17639) -! JVS(53887) = Jac_FULL(5256,4280) - JVS(53887) = -B(15978) -! JVS(53888) = Jac_FULL(5256,4281) - JVS(53888) = -B(8529) -! JVS(53889) = Jac_FULL(5256,4282) - JVS(53889) = B(13595) -! JVS(53890) = Jac_FULL(5256,4283) - JVS(53890) = -B(8643) -! JVS(53891) = Jac_FULL(5256,4284) - JVS(53891) = -B(15420) -! JVS(53892) = Jac_FULL(5256,4285) - JVS(53892) = -B(18506) -! JVS(53893) = Jac_FULL(5256,4286) - JVS(53893) = B(6759) -! JVS(53894) = Jac_FULL(5256,4287) - JVS(53894) = -B(16402) -! JVS(53895) = Jac_FULL(5256,4288) - JVS(53895) = -B(14305) -! JVS(53896) = Jac_FULL(5256,4289) - JVS(53896) = -B(18587) -! JVS(53897) = Jac_FULL(5256,4290) - JVS(53897) = -B(19131) -! JVS(53898) = Jac_FULL(5256,4291) - JVS(53898) = -B(15689) -! JVS(53899) = Jac_FULL(5256,4292) - JVS(53899) = -B(15831) -! JVS(53900) = Jac_FULL(5256,4293) - JVS(53900) = -B(15682) -! JVS(53901) = Jac_FULL(5256,4295) - JVS(53901) = -B(22349) -! JVS(53902) = Jac_FULL(5256,4296) - JVS(53902) = -B(16080) -! JVS(53903) = Jac_FULL(5256,4297) - JVS(53903) = -B(16395) -! JVS(53904) = Jac_FULL(5256,4298) - JVS(53904) = -B(18166) -! JVS(53905) = Jac_FULL(5256,4299) - JVS(53905) = -B(20276) -! JVS(53906) = Jac_FULL(5256,4301) - JVS(53906) = -B(11183) -! JVS(53907) = Jac_FULL(5256,4302) - JVS(53907) = B(7378) -! JVS(53908) = Jac_FULL(5256,4303) - JVS(53908) = -B(15771) -! JVS(53909) = Jac_FULL(5256,4304) - JVS(53909) = -B(15882) -! JVS(53910) = Jac_FULL(5256,4305) - JVS(53910) = -B(18231) -! JVS(53911) = Jac_FULL(5256,4306) - JVS(53911) = -B(18115) -! JVS(53912) = Jac_FULL(5256,4307) - JVS(53912) = -B(16073) -! JVS(53913) = Jac_FULL(5256,4308) - JVS(53913) = -B(19901) -! JVS(53914) = Jac_FULL(5256,4309) - JVS(53914) = -B(17827) -! JVS(53915) = Jac_FULL(5256,4310) - JVS(53915) = -B(1065) -! JVS(53916) = Jac_FULL(5256,4311) - JVS(53916) = -B(6242) -! JVS(53917) = Jac_FULL(5256,4312) - JVS(53917) = -B(16340) -! JVS(53918) = Jac_FULL(5256,4313) - JVS(53918) = -B(11934) -! JVS(53919) = Jac_FULL(5256,4314) - JVS(53919) = -B(16304) -! JVS(53920) = Jac_FULL(5256,4315) - JVS(53920) = -B(22578) -! JVS(53921) = Jac_FULL(5256,4316) - JVS(53921) = -B(7769) -! JVS(53922) = Jac_FULL(5256,4317) - JVS(53922) = -B(16251) -! JVS(53923) = Jac_FULL(5256,4318) - JVS(53923) = -B(10979) -! JVS(53924) = Jac_FULL(5256,4319) - JVS(53924) = -B(22658) -! JVS(53925) = Jac_FULL(5256,4320) - JVS(53925) = B(5024) -! JVS(53926) = Jac_FULL(5256,4321) - JVS(53926) = -B(13651) -! JVS(53927) = Jac_FULL(5256,4322) - JVS(53927) = 0 -! JVS(53928) = Jac_FULL(5256,4323) - JVS(53928) = -B(16229) -! JVS(53929) = Jac_FULL(5256,4324) - JVS(53929) = -B(20206) -! JVS(53930) = Jac_FULL(5256,4326) - JVS(53930) = 0 -! JVS(53931) = Jac_FULL(5256,4327) - JVS(53931) = -B(15666) -! JVS(53932) = Jac_FULL(5256,4329) - JVS(53932) = -B(21331) -! JVS(53933) = Jac_FULL(5256,4330) - JVS(53933) = B(4276)+B(4278)+B(4280)+B(4282) -! JVS(53934) = Jac_FULL(5256,4332) - JVS(53934) = -B(489)-B(491) -! JVS(53935) = Jac_FULL(5256,4334) - JVS(53935) = -B(8164) -! JVS(53936) = Jac_FULL(5256,4335) - JVS(53936) = -B(6568) -! JVS(53937) = Jac_FULL(5256,4336) - JVS(53937) = -B(3350) -! JVS(53938) = Jac_FULL(5256,4337) - JVS(53938) = -B(6849) -! JVS(53939) = Jac_FULL(5256,4338) - JVS(53939) = -B(9028) -! JVS(53940) = Jac_FULL(5256,4339) - JVS(53940) = -B(13790) -! JVS(53941) = Jac_FULL(5256,4340) - JVS(53941) = -B(21690) -! JVS(53942) = Jac_FULL(5256,4341) - JVS(53942) = -B(10394) -! JVS(53943) = Jac_FULL(5256,4342) - JVS(53943) = -B(23400) -! JVS(53944) = Jac_FULL(5256,4343) - JVS(53944) = -B(23851) -! JVS(53945) = Jac_FULL(5256,4344) - JVS(53945) = -B(8543) -! JVS(53946) = Jac_FULL(5256,4345) - JVS(53946) = -B(8600) -! JVS(53947) = Jac_FULL(5256,4346) - JVS(53947) = -B(23586) -! JVS(53948) = Jac_FULL(5256,4347) - JVS(53948) = -B(12535) -! JVS(53949) = Jac_FULL(5256,4348) - JVS(53949) = -B(16793) -! JVS(53950) = Jac_FULL(5256,4349) - JVS(53950) = -B(17911) -! JVS(53951) = Jac_FULL(5256,4350) - JVS(53951) = -B(21799) -! JVS(53952) = Jac_FULL(5256,4351) - JVS(53952) = -B(2002) -! JVS(53953) = Jac_FULL(5256,4353) - JVS(53953) = -B(1592) -! JVS(53954) = Jac_FULL(5256,4354) - JVS(53954) = -B(11537) -! JVS(53955) = Jac_FULL(5256,4355) - JVS(53955) = -B(18015) -! JVS(53956) = Jac_FULL(5256,4356) - JVS(53956) = -B(3361) -! JVS(53957) = Jac_FULL(5256,4357) - JVS(53957) = -B(15115) -! JVS(53958) = Jac_FULL(5256,4358) - JVS(53958) = -B(8745) -! JVS(53959) = Jac_FULL(5256,4359) - JVS(53959) = -B(7706) -! JVS(53960) = Jac_FULL(5256,4360) - JVS(53960) = -B(15409) -! JVS(53961) = Jac_FULL(5256,4361) - JVS(53961) = -B(17971) -! JVS(53962) = Jac_FULL(5256,4362) - JVS(53962) = -B(23567) -! JVS(53963) = Jac_FULL(5256,4363) - JVS(53963) = -B(19524) -! JVS(53964) = Jac_FULL(5256,4364) - JVS(53964) = -B(1243) -! JVS(53965) = Jac_FULL(5256,4365) - JVS(53965) = -B(10959) -! JVS(53966) = Jac_FULL(5256,4367) - JVS(53966) = -B(3341) -! JVS(53967) = Jac_FULL(5256,4368) - JVS(53967) = -B(10789) -! JVS(53968) = Jac_FULL(5256,4369) - JVS(53968) = -B(17885) -! JVS(53969) = Jac_FULL(5256,4370) - JVS(53969) = -B(2011) -! JVS(53970) = Jac_FULL(5256,4371) - JVS(53970) = -B(21879) -! JVS(53971) = Jac_FULL(5256,4372) - JVS(53971) = -B(3083) -! JVS(53972) = Jac_FULL(5256,4373) - JVS(53972) = -B(6690) -! JVS(53973) = Jac_FULL(5256,4374) - JVS(53973) = -B(7622) -! JVS(53974) = Jac_FULL(5256,4375) - JVS(53974) = -B(9613) -! JVS(53975) = Jac_FULL(5256,4376) - JVS(53975) = -B(9003) -! JVS(53976) = Jac_FULL(5256,4377) - JVS(53976) = -B(5830) -! JVS(53977) = Jac_FULL(5256,4379) - JVS(53977) = 0 -! JVS(53978) = Jac_FULL(5256,4380) - JVS(53978) = -B(3819) -! JVS(53979) = Jac_FULL(5256,4381) - JVS(53979) = -B(15955) -! JVS(53980) = Jac_FULL(5256,4382) - JVS(53980) = -B(1463) -! JVS(53981) = Jac_FULL(5256,4384) - JVS(53981) = -B(21196) -! JVS(53982) = Jac_FULL(5256,4385) - JVS(53982) = -B(21035) -! JVS(53983) = Jac_FULL(5256,4387) - JVS(53983) = -B(2057) -! JVS(53984) = Jac_FULL(5256,4389) - JVS(53984) = -B(17941) -! JVS(53985) = Jac_FULL(5256,4390) - JVS(53985) = -B(3321) -! JVS(53986) = Jac_FULL(5256,4394) - JVS(53986) = -B(14778) -! JVS(53987) = Jac_FULL(5256,4395) - JVS(53987) = -B(749) -! JVS(53988) = Jac_FULL(5256,4396) - JVS(53988) = -B(2353) -! JVS(53989) = Jac_FULL(5256,4397) - JVS(53989) = -B(2363)-B(2365) -! JVS(53990) = Jac_FULL(5256,4399) - JVS(53990) = -B(2348) -! JVS(53991) = Jac_FULL(5256,4400) - JVS(53991) = -B(6468) -! JVS(53992) = Jac_FULL(5256,4402) - JVS(53992) = 0 -! JVS(53993) = Jac_FULL(5256,4404) - JVS(53993) = -B(20095) -! JVS(53994) = Jac_FULL(5256,4405) - JVS(53994) = -B(8449) -! JVS(53995) = Jac_FULL(5256,4407) - JVS(53995) = 0 -! JVS(53996) = Jac_FULL(5256,4408) - JVS(53996) = 0 -! JVS(53997) = Jac_FULL(5256,4409) - JVS(53997) = -B(22869) -! JVS(53998) = Jac_FULL(5256,4410) - JVS(53998) = -B(21771) -! JVS(53999) = Jac_FULL(5256,4411) - JVS(53999) = -B(1014) -! JVS(54000) = Jac_FULL(5256,4412) - JVS(54000) = -B(14959) -! JVS(54001) = Jac_FULL(5256,4413) - JVS(54001) = 0 -! JVS(54002) = Jac_FULL(5256,4414) - JVS(54002) = -B(10356) -! JVS(54003) = Jac_FULL(5256,4415) - JVS(54003) = -B(18159) -! JVS(54004) = Jac_FULL(5256,4416) - JVS(54004) = -B(13125) -! JVS(54005) = Jac_FULL(5256,4417) - JVS(54005) = -B(19869) -! JVS(54006) = Jac_FULL(5256,4418) - JVS(54006) = -B(21857) -! JVS(54007) = Jac_FULL(5256,4419) - JVS(54007) = -B(19684) -! JVS(54008) = Jac_FULL(5256,4421) - JVS(54008) = -B(21246) -! JVS(54009) = Jac_FULL(5256,4422) - JVS(54009) = -B(12559) -! JVS(54010) = Jac_FULL(5256,4423) - JVS(54010) = -B(22776) -! JVS(54011) = Jac_FULL(5256,4424) - JVS(54011) = -B(18469) -! JVS(54012) = Jac_FULL(5256,4425) - JVS(54012) = -B(18428) -! JVS(54013) = Jac_FULL(5256,4426) - JVS(54013) = -B(22792) -! JVS(54014) = Jac_FULL(5256,4427) - JVS(54014) = -B(8613) -! JVS(54015) = Jac_FULL(5256,4428) - JVS(54015) = -B(1551) -! JVS(54016) = Jac_FULL(5256,4429) - JVS(54016) = -B(21272) -! JVS(54017) = Jac_FULL(5256,4430) - JVS(54017) = -B(19790) -! JVS(54018) = Jac_FULL(5256,4431) - JVS(54018) = -B(19460) -! JVS(54019) = Jac_FULL(5256,4432) - JVS(54019) = -B(5378) -! JVS(54020) = Jac_FULL(5256,4433) - JVS(54020) = -B(8580) -! JVS(54021) = Jac_FULL(5256,4434) - JVS(54021) = -B(18617) -! JVS(54022) = Jac_FULL(5256,4435) - JVS(54022) = -B(21220) -! JVS(54023) = Jac_FULL(5256,4436) - JVS(54023) = -B(10436) -! JVS(54024) = Jac_FULL(5256,4437) - JVS(54024) = 0 -! JVS(54025) = Jac_FULL(5256,4438) - JVS(54025) = 0 -! JVS(54026) = Jac_FULL(5256,4439) - JVS(54026) = -B(21893) -! JVS(54027) = Jac_FULL(5256,4440) - JVS(54027) = -B(12543) -! JVS(54028) = Jac_FULL(5256,4441) - JVS(54028) = -B(20254) -! JVS(54029) = Jac_FULL(5256,4442) - JVS(54029) = -B(22614) -! JVS(54030) = Jac_FULL(5256,4443) - JVS(54030) = -B(19812) -! JVS(54031) = Jac_FULL(5256,4444) - JVS(54031) = 0 -! JVS(54032) = Jac_FULL(5256,4445) - JVS(54032) = -B(21510) -! JVS(54033) = Jac_FULL(5256,4446) - JVS(54033) = -B(10905) -! JVS(54034) = Jac_FULL(5256,4447) - JVS(54034) = -B(22876) -! JVS(54035) = Jac_FULL(5256,4448) - JVS(54035) = 0 -! JVS(54036) = Jac_FULL(5256,4449) - JVS(54036) = 0 -! JVS(54037) = Jac_FULL(5256,4450) - JVS(54037) = -B(19839) -! JVS(54038) = Jac_FULL(5256,4451) - JVS(54038) = -B(11530) -! JVS(54039) = Jac_FULL(5256,4452) - JVS(54039) = -B(8485) -! JVS(54040) = Jac_FULL(5256,4453) - JVS(54040) = 0 -! JVS(54041) = Jac_FULL(5256,4454) - JVS(54041) = 0 -! JVS(54042) = Jac_FULL(5256,4455) - JVS(54042) = -B(18652) -! JVS(54043) = Jac_FULL(5256,4456) - JVS(54043) = -B(23999) -! JVS(54044) = Jac_FULL(5256,4457) - JVS(54044) = 0 -! JVS(54045) = Jac_FULL(5256,4458) - JVS(54045) = -B(18108) -! JVS(54046) = Jac_FULL(5256,4459) - JVS(54046) = -B(23330) -! JVS(54047) = Jac_FULL(5256,4460) - JVS(54047) = -B(18717) -! JVS(54048) = Jac_FULL(5256,4461) - JVS(54048) = -B(21233) -! JVS(54049) = Jac_FULL(5256,4462) - JVS(54049) = -B(22297) -! JVS(54050) = Jac_FULL(5256,4463) - JVS(54050) = -B(18580) -! JVS(54051) = Jac_FULL(5256,4464) - JVS(54051) = -B(18302) -! JVS(54052) = Jac_FULL(5256,4465) - JVS(54052) = -B(23795) -! JVS(54053) = Jac_FULL(5256,4466) - JVS(54053) = 0 -! JVS(54054) = Jac_FULL(5256,4467) - JVS(54054) = -B(18059) -! JVS(54055) = Jac_FULL(5256,4468) - JVS(54055) = -B(21154) -! JVS(54056) = Jac_FULL(5256,4469) - JVS(54056) = -B(8196) -! JVS(54057) = Jac_FULL(5256,4470) - JVS(54057) = -B(8509) -! JVS(54058) = Jac_FULL(5256,4471) - JVS(54058) = 0 -! JVS(54059) = Jac_FULL(5256,4472) - JVS(54059) = -B(19936) -! JVS(54060) = Jac_FULL(5256,4473) - JVS(54060) = -B(1124) -! JVS(54061) = Jac_FULL(5256,4474) - JVS(54061) = -B(537)-B(539) -! JVS(54062) = Jac_FULL(5256,4475) - JVS(54062) = -B(501)-B(503) -! JVS(54063) = Jac_FULL(5256,4476) - JVS(54063) = -B(2155) -! JVS(54064) = Jac_FULL(5256,4477) - JVS(54064) = -B(23748) -! JVS(54065) = Jac_FULL(5256,4478) - JVS(54065) = 0 -! JVS(54066) = Jac_FULL(5256,4479) - JVS(54066) = 0 -! JVS(54067) = Jac_FULL(5256,4480) - JVS(54067) = -B(13140) -! JVS(54068) = Jac_FULL(5256,4481) - JVS(54068) = -B(13132) -! JVS(54069) = Jac_FULL(5256,4482) - JVS(54069) = -B(22784) -! JVS(54070) = Jac_FULL(5256,4483) - JVS(54070) = -B(5544) -! JVS(54071) = Jac_FULL(5256,4484) - JVS(54071) = -B(19180) -! JVS(54072) = Jac_FULL(5256,4485) - JVS(54072) = -B(21814) -! JVS(54073) = Jac_FULL(5256,4486) - JVS(54073) = -B(22931) -! JVS(54074) = Jac_FULL(5256,4487) - JVS(54074) = 0 -! JVS(54075) = Jac_FULL(5256,4488) - JVS(54075) = 0 -! JVS(54076) = Jac_FULL(5256,4489) - JVS(54076) = -B(21307) -! JVS(54077) = Jac_FULL(5256,4490) - JVS(54077) = 0 -! JVS(54078) = Jac_FULL(5256,4492) - JVS(54078) = -B(864)-B(866) -! JVS(54079) = Jac_FULL(5256,4493) - JVS(54079) = -B(19061) -! JVS(54080) = Jac_FULL(5256,4494) - JVS(54080) = 0 -! JVS(54081) = Jac_FULL(5256,4495) - JVS(54081) = 0 -! JVS(54082) = Jac_FULL(5256,4496) - JVS(54082) = -B(22341) -! JVS(54083) = Jac_FULL(5256,4497) - JVS(54083) = -B(23267) -! JVS(54084) = Jac_FULL(5256,4498) - JVS(54084) = -B(18224) -! JVS(54085) = Jac_FULL(5256,4499) - JVS(54085) = 0 -! JVS(54086) = Jac_FULL(5256,4500) - JVS(54086) = -B(15171) -! JVS(54087) = Jac_FULL(5256,4501) - JVS(54087) = -B(17729) -! JVS(54088) = Jac_FULL(5256,4502) - JVS(54088) = -B(18402) -! JVS(54089) = Jac_FULL(5256,4503) - JVS(54089) = -B(24006) -! JVS(54090) = Jac_FULL(5256,4504) - JVS(54090) = 0 -! JVS(54091) = Jac_FULL(5256,4505) - JVS(54091) = -B(9655) -! JVS(54092) = Jac_FULL(5256,4506) - JVS(54092) = -B(18267) -! JVS(54093) = Jac_FULL(5256,4508) - JVS(54093) = -B(525)-B(527) -! JVS(54094) = Jac_FULL(5256,4509) - JVS(54094) = 0 -! JVS(54095) = Jac_FULL(5256,4510) - JVS(54095) = -B(21128) -! JVS(54096) = Jac_FULL(5256,4511) - JVS(54096) = -B(18361) -! JVS(54097) = Jac_FULL(5256,4512) - JVS(54097) = -B(465)-B(467) -! JVS(54098) = Jac_FULL(5256,4513) - JVS(54098) = -B(5253) -! JVS(54099) = Jac_FULL(5256,4514) - JVS(54099) = 0 -! JVS(54100) = Jac_FULL(5256,4515) - JVS(54100) = -B(8144) -! JVS(54101) = Jac_FULL(5256,4516) - JVS(54101) = -B(10329) -! JVS(54102) = Jac_FULL(5256,4517) - JVS(54102) = -B(15051) -! JVS(54103) = Jac_FULL(5256,4518) - JVS(54103) = -B(18876) -! JVS(54104) = Jac_FULL(5256,4519) - JVS(54104) = -B(20346) -! JVS(54105) = Jac_FULL(5256,4520) - JVS(54105) = -B(23788) -! JVS(54106) = Jac_FULL(5256,4521) - JVS(54106) = -B(19768) -! JVS(54107) = Jac_FULL(5256,4522) - JVS(54107) = -B(8556) -! JVS(54108) = Jac_FULL(5256,4523) - JVS(54108) = -B(15185) -! JVS(54109) = Jac_FULL(5256,4525) - JVS(54109) = -B(23741) -! JVS(54110) = Jac_FULL(5256,4526) - JVS(54110) = B(14652) -! JVS(54111) = Jac_FULL(5256,4527) - JVS(54111) = -B(549)-B(551) -! JVS(54112) = Jac_FULL(5256,4529) - JVS(54112) = -B(2521) -! JVS(54113) = Jac_FULL(5256,4530) - JVS(54113) = -B(7894) -! JVS(54114) = Jac_FULL(5256,4531) - JVS(54114) = 0 -! JVS(54115) = Jac_FULL(5256,4532) - JVS(54115) = -B(21259) -! JVS(54116) = Jac_FULL(5256,4533) - JVS(54116) = 0 -! JVS(54117) = Jac_FULL(5256,4535) - JVS(54117) = -B(16380) -! JVS(54118) = Jac_FULL(5256,4536) - JVS(54118) = -B(20117) -! JVS(54119) = Jac_FULL(5256,4537) - JVS(54119) = -B(17856) -! JVS(54120) = Jac_FULL(5256,4538) - JVS(54120) = -B(20939) -! JVS(54121) = Jac_FULL(5256,4539) - JVS(54121) = -B(18797) -! JVS(54122) = Jac_FULL(5256,4540) - JVS(54122) = -B(11618) -! JVS(54123) = Jac_FULL(5256,4541) - JVS(54123) = -B(11325) -! JVS(54124) = Jac_FULL(5256,4542) - JVS(54124) = -B(14607) -! JVS(54125) = Jac_FULL(5256,4543) - JVS(54125) = -B(24040) -! JVS(54126) = Jac_FULL(5256,4544) - JVS(54126) = B(4909) -! JVS(54127) = Jac_FULL(5256,4545) - JVS(54127) = -B(17011) -! JVS(54128) = Jac_FULL(5256,4546) - JVS(54128) = -B(17582) -! JVS(54129) = Jac_FULL(5256,4547) - JVS(54129) = -B(5426) -! JVS(54130) = Jac_FULL(5256,4548) - JVS(54130) = -B(18735) -! JVS(54131) = Jac_FULL(5256,4549) - JVS(54131) = -B(19616) -! JVS(54132) = Jac_FULL(5256,4550) - JVS(54132) = -B(12664) -! JVS(54133) = Jac_FULL(5256,4551) - JVS(54133) = B(16530) -! JVS(54134) = Jac_FULL(5256,4552) - JVS(54134) = -B(16832) -! JVS(54135) = Jac_FULL(5256,4553) - JVS(54135) = -B(7791) -! JVS(54136) = Jac_FULL(5256,4554) - JVS(54136) = -B(1275) -! JVS(54137) = Jac_FULL(5256,4555) - JVS(54137) = -B(159)-B(161) -! JVS(54138) = Jac_FULL(5256,4556) - JVS(54138) = B(13872) -! JVS(54139) = Jac_FULL(5256,4557) - JVS(54139) = -B(7958) -! JVS(54140) = Jac_FULL(5256,4558) - JVS(54140) = -B(12625) -! JVS(54141) = Jac_FULL(5256,4559) - JVS(54141) = -B(4473) -! JVS(54142) = Jac_FULL(5256,4560) - JVS(54142) = -B(21743) -! JVS(54143) = Jac_FULL(5256,4561) - JVS(54143) = -B(14998) -! JVS(54144) = Jac_FULL(5256,4562) - JVS(54144) = -B(1102) -! JVS(54145) = Jac_FULL(5256,4563) - JVS(54145) = -B(7267) -! JVS(54146) = Jac_FULL(5256,4565) - JVS(54146) = -B(20497) -! JVS(54147) = Jac_FULL(5256,4566) - JVS(54147) = -B(17764) -! JVS(54148) = Jac_FULL(5256,4567) - JVS(54148) = -B(14472) -! JVS(54149) = Jac_FULL(5256,4568) - JVS(54149) = -B(6169) -! JVS(54150) = Jac_FULL(5256,4569) - JVS(54150) = -B(6155) -! JVS(54151) = Jac_FULL(5256,4571) - JVS(54151) = -B(1766) -! JVS(54152) = Jac_FULL(5256,4572) - JVS(54152) = -B(23083) -! JVS(54153) = Jac_FULL(5256,4573) - JVS(54153) = -B(17755) -! JVS(54154) = Jac_FULL(5256,4574) - JVS(54154) = -B(2033) -! JVS(54155) = Jac_FULL(5256,4575) - JVS(54155) = -B(6233) -! JVS(54156) = Jac_FULL(5256,4576) - JVS(54156) = -B(6222) -! JVS(54157) = Jac_FULL(5256,4577) - JVS(54157) = -B(8290) -! JVS(54158) = Jac_FULL(5256,4578) - JVS(54158) = -B(10385) -! JVS(54159) = Jac_FULL(5256,4579) - JVS(54159) = -B(2024) -! JVS(54160) = Jac_FULL(5256,4580) - JVS(54160) = -B(19123) -! JVS(54161) = Jac_FULL(5256,4581) - JVS(54161) = -B(3301) -! JVS(54162) = Jac_FULL(5256,4582) - JVS(54162) = -B(2261) -! JVS(54163) = Jac_FULL(5256,4583) - JVS(54163) = -B(3332) -! JVS(54164) = Jac_FULL(5256,4584) - JVS(54164) = -B(17773) -! JVS(54165) = Jac_FULL(5256,4585) - JVS(54165) = -B(1234) -! JVS(54166) = Jac_FULL(5256,4586) - JVS(54166) = -B(1905) -! JVS(54167) = Jac_FULL(5256,4587) - JVS(54167) = -B(2246) -! JVS(54168) = Jac_FULL(5256,4589) - JVS(54168) = -B(10314) -! JVS(54169) = Jac_FULL(5256,4590) - JVS(54169) = -B(8650) -! JVS(54170) = Jac_FULL(5256,4591) - JVS(54170) = -B(8908) -! JVS(54171) = Jac_FULL(5256,4592) - JVS(54171) = -B(8797) -! JVS(54172) = Jac_FULL(5256,4593) - JVS(54172) = -B(2087) -! JVS(54173) = Jac_FULL(5256,4594) - JVS(54173) = -B(3380) -! JVS(54174) = Jac_FULL(5256,4595) - JVS(54174) = -B(10746) -! JVS(54175) = Jac_FULL(5256,4596) - JVS(54175) = -B(1264) -! JVS(54176) = Jac_FULL(5256,4597) - JVS(54176) = -B(21734) -! JVS(54177) = Jac_FULL(5256,4598) - JVS(54177) = -B(2111) -! JVS(54178) = Jac_FULL(5256,4599) - JVS(54178) = -B(18916) -! JVS(54179) = Jac_FULL(5256,4600) - JVS(54179) = -B(878)-B(880) -! JVS(54180) = Jac_FULL(5256,4601) - JVS(54180) = -B(513)-B(515) -! JVS(54181) = Jac_FULL(5256,4603) - JVS(54181) = 0 -! JVS(54182) = Jac_FULL(5256,4604) - JVS(54182) = -B(561)-B(563) -! JVS(54183) = Jac_FULL(5256,4605) - JVS(54183) = -B(892) -! JVS(54184) = Jac_FULL(5256,4606) - JVS(54184) = -B(573)-B(575) -! JVS(54185) = Jac_FULL(5256,4607) - JVS(54185) = -B(2305) -! JVS(54186) = Jac_FULL(5256,4608) - JVS(54186) = -B(2316) -! JVS(54187) = Jac_FULL(5256,4609) - JVS(54187) = -B(3191) -! JVS(54188) = Jac_FULL(5256,4610) - JVS(54188) = -B(10802) -! JVS(54189) = Jac_FULL(5256,4611) - JVS(54189) = -B(10817) -! JVS(54190) = Jac_FULL(5256,4612) - JVS(54190) = -B(13975) -! JVS(54191) = Jac_FULL(5256,4613) - JVS(54191) = -B(16736) -! JVS(54192) = Jac_FULL(5256,4614) - JVS(54192) = -B(16747) -! JVS(54193) = Jac_FULL(5256,4616) - JVS(54193) = -B(3180) -! JVS(54194) = Jac_FULL(5256,4617) - JVS(54194) = -B(10576) -! JVS(54195) = Jac_FULL(5256,4619) - JVS(54195) = 0 -! JVS(54196) = Jac_FULL(5256,4620) - JVS(54196) = -B(21420) -! JVS(54197) = Jac_FULL(5256,4621) - JVS(54197) = B(15592) -! JVS(54198) = Jac_FULL(5256,4622) - JVS(54198) = -B(3017) -! JVS(54199) = Jac_FULL(5256,4623) - JVS(54199) = -B(14988) -! JVS(54200) = Jac_FULL(5256,4624) - JVS(54200) = -B(21786) -! JVS(54201) = Jac_FULL(5256,4625) - JVS(54201) = -B(22970) -! JVS(54202) = Jac_FULL(5256,4626) - JVS(54202) = -B(5355) -! JVS(54203) = Jac_FULL(5256,4627) - JVS(54203) = -B(10972) -! JVS(54204) = Jac_FULL(5256,4628) - JVS(54204) = -B(10267) -! JVS(54205) = Jac_FULL(5256,4629) - JVS(54205) = -B(15064) -! JVS(54206) = Jac_FULL(5256,4630) - JVS(54206) = -B(5990) -! JVS(54207) = Jac_FULL(5256,4631) - JVS(54207) = -B(19016) -! JVS(54208) = Jac_FULL(5256,4632) - JVS(54208) = 0 -! JVS(54209) = Jac_FULL(5256,4633) - JVS(54209) = -B(6370) -! JVS(54210) = Jac_FULL(5256,4634) - JVS(54210) = -B(3785) -! JVS(54211) = Jac_FULL(5256,4635) - JVS(54211) = -B(5904) -! JVS(54212) = Jac_FULL(5256,4636) - JVS(54212) = -B(22944) -! JVS(54213) = Jac_FULL(5256,4637) - JVS(54213) = -B(9428) -! JVS(54214) = Jac_FULL(5256,4638) - JVS(54214) = -B(19350) -! JVS(54215) = Jac_FULL(5256,4639) - JVS(54215) = 0 -! JVS(54216) = Jac_FULL(5256,4640) - JVS(54216) = -B(7837) -! JVS(54217) = Jac_FULL(5256,4641) - JVS(54217) = -B(5725) -! JVS(54218) = Jac_FULL(5256,4642) - JVS(54218) = -B(17669) -! JVS(54219) = Jac_FULL(5256,4643) - JVS(54219) = -B(18534) -! JVS(54220) = Jac_FULL(5256,4644) - JVS(54220) = -B(22486) -! JVS(54221) = Jac_FULL(5256,4645) - JVS(54221) = -B(971) -! JVS(54222) = Jac_FULL(5256,4646) - JVS(54222) = -B(10927) -! JVS(54223) = Jac_FULL(5256,4647) - JVS(54223) = -B(1157) -! JVS(54224) = Jac_FULL(5256,4648) - JVS(54224) = -B(21121) -! JVS(54225) = Jac_FULL(5256,4649) - JVS(54225) = -B(5225) -! JVS(54226) = Jac_FULL(5256,4650) - JVS(54226) = -B(9539) -! JVS(54227) = Jac_FULL(5256,4651) - JVS(54227) = -B(18037) -! JVS(54228) = Jac_FULL(5256,4652) - JVS(54228) = -B(22021) -! JVS(54229) = Jac_FULL(5256,4653) - JVS(54229) = -B(23308) -! JVS(54230) = Jac_FULL(5256,4654) - JVS(54230) = -B(6218) -! JVS(54231) = Jac_FULL(5256,4655) - JVS(54231) = -B(18499) -! JVS(54232) = Jac_FULL(5256,4656) - JVS(54232) = -B(6552) -! JVS(54233) = Jac_FULL(5256,4657) - JVS(54233) = -B(18892) -! JVS(54234) = Jac_FULL(5256,4658) - JVS(54234) = -B(18862) -! JVS(54235) = Jac_FULL(5256,4659) - JVS(54235) = -B(21850) -! JVS(54236) = Jac_FULL(5256,4660) - JVS(54236) = -B(20724) -! JVS(54237) = Jac_FULL(5256,4661) - JVS(54237) = -B(12823) -! JVS(54238) = Jac_FULL(5256,4662) - JVS(54238) = -B(17514) -! JVS(54239) = Jac_FULL(5256,4663) - JVS(54239) = 0 -! JVS(54240) = Jac_FULL(5256,4664) - JVS(54240) = -B(16992) -! JVS(54241) = Jac_FULL(5256,4665) - JVS(54241) = -B(15105) -! JVS(54242) = Jac_FULL(5256,4666) - JVS(54242) = -B(3025) -! JVS(54243) = Jac_FULL(5256,4667) - JVS(54243) = -B(5748) -! JVS(54244) = Jac_FULL(5256,4668) - JVS(54244) = B(13507) -! JVS(54245) = Jac_FULL(5256,4669) - JVS(54245) = -B(12550) -! JVS(54246) = Jac_FULL(5256,4670) - JVS(54246) = 0 -! JVS(54247) = Jac_FULL(5256,4671) - JVS(54247) = 0 -! JVS(54248) = Jac_FULL(5256,4672) - JVS(54248) = -B(22668) -! JVS(54249) = Jac_FULL(5256,4673) - JVS(54249) = -B(23192) -! JVS(54250) = Jac_FULL(5256,4674) - JVS(54250) = -B(13177) -! JVS(54251) = Jac_FULL(5256,4675) - JVS(54251) = -B(5927) -! JVS(54252) = Jac_FULL(5256,4676) - JVS(54252) = 0 -! JVS(54253) = Jac_FULL(5256,4677) - JVS(54253) = B(16520) -! JVS(54254) = Jac_FULL(5256,4678) - JVS(54254) = B(14805) -! JVS(54255) = Jac_FULL(5256,4679) - JVS(54255) = -B(19446) -! JVS(54256) = Jac_FULL(5256,4680) - JVS(54256) = -B(9863) -! JVS(54257) = Jac_FULL(5256,4681) - JVS(54257) = -B(22604) -! JVS(54258) = Jac_FULL(5256,4682) - JVS(54258) = 0 -! JVS(54259) = Jac_FULL(5256,4683) - JVS(54259) = -B(5839) -! JVS(54260) = Jac_FULL(5256,4684) - JVS(54260) = -B(9093) -! JVS(54261) = Jac_FULL(5256,4685) - JVS(54261) = -B(6456) -! JVS(54262) = Jac_FULL(5256,4686) - JVS(54262) = -B(23979) -! JVS(54263) = Jac_FULL(5256,4687) - JVS(54263) = -B(23986) -! JVS(54264) = Jac_FULL(5256,4688) - JVS(54264) = -B(13015) -! JVS(54265) = Jac_FULL(5256,4689) - JVS(54265) = -B(12921) -! JVS(54266) = Jac_FULL(5256,4690) - JVS(54266) = 0 -! JVS(54267) = Jac_FULL(5256,4691) - JVS(54267) = B(14795) -! JVS(54268) = Jac_FULL(5256,4692) - JVS(54268) = -B(5611) -! JVS(54269) = Jac_FULL(5256,4695) - JVS(54269) = -B(1583) -! JVS(54270) = Jac_FULL(5256,4696) - JVS(54270) = -B(1787) -! JVS(54271) = Jac_FULL(5256,4697) - JVS(54271) = -B(15123) -! JVS(54272) = Jac_FULL(5256,4698) - JVS(54272) = -B(1196) -! JVS(54273) = Jac_FULL(5256,4699) - JVS(54273) = -B(5621) -! JVS(54274) = Jac_FULL(5256,4700) - JVS(54274) = -B(2183) -! JVS(54275) = Jac_FULL(5256,4701) - JVS(54275) = -B(5739) -! JVS(54276) = Jac_FULL(5256,4702) - JVS(54276) = -B(2290) -! JVS(54277) = Jac_FULL(5256,4703) - JVS(54277) = -B(13335) -! JVS(54278) = Jac_FULL(5256,4704) - JVS(54278) = -B(15085) -! JVS(54279) = Jac_FULL(5256,4705) - JVS(54279) = -B(1349) -! JVS(54280) = Jac_FULL(5256,4706) - JVS(54280) = -B(12740) -! JVS(54281) = Jac_FULL(5256,4707) - JVS(54281) = -B(5437) -! JVS(54282) = Jac_FULL(5256,4709) - JVS(54282) = -B(15388) -! JVS(54283) = Jac_FULL(5256,4710) - JVS(54283) = -B(19816) -! JVS(54284) = Jac_FULL(5256,4711) - JVS(54284) = -B(13817) -! JVS(54285) = Jac_FULL(5256,4712) - JVS(54285) = -B(15332) -! JVS(54286) = Jac_FULL(5256,4713) - JVS(54286) = -B(15304) -! JVS(54287) = Jac_FULL(5256,4714) - JVS(54287) = -B(2131) -! JVS(54288) = Jac_FULL(5256,4715) - JVS(54288) = -B(15360) -! JVS(54289) = Jac_FULL(5256,4716) - JVS(54289) = -B(15283) -! JVS(54290) = Jac_FULL(5256,4717) - JVS(54290) = -B(7177) -! JVS(54291) = Jac_FULL(5256,4718) - JVS(54291) = -B(5535) -! JVS(54292) = Jac_FULL(5256,4719) - JVS(54292) = -B(8659) -! JVS(54293) = Jac_FULL(5256,4720) - JVS(54293) = -B(5244) -! JVS(54294) = Jac_FULL(5256,4721) - JVS(54294) = -B(5229) -! JVS(54295) = Jac_FULL(5256,4722) - JVS(54295) = -B(8273) -! JVS(54296) = Jac_FULL(5256,4723) - JVS(54296) = -B(2216) -! JVS(54297) = Jac_FULL(5256,4724) - JVS(54297) = -B(8458) -! JVS(54298) = Jac_FULL(5256,4725) - JVS(54298) = -B(6308) -! JVS(54299) = Jac_FULL(5256,4726) - JVS(54299) = -B(18527) -! JVS(54300) = Jac_FULL(5256,4727) - JVS(54300) = -B(6380) -! JVS(54301) = Jac_FULL(5256,4729) - JVS(54301) = -B(5524) -! JVS(54302) = Jac_FULL(5256,4730) - JVS(54302) = -B(10825) -! JVS(54303) = Jac_FULL(5256,4731) - JVS(54303) = -B(21476) -! JVS(54304) = Jac_FULL(5256,4732) - JVS(54304) = -B(10341) -! JVS(54305) = Jac_FULL(5256,4733) - JVS(54305) = -B(1744) -! JVS(54306) = Jac_FULL(5256,4734) - JVS(54306) = -B(21085) -! JVS(54307) = Jac_FULL(5256,4735) - JVS(54307) = -B(14968) -! JVS(54308) = Jac_FULL(5256,4736) - JVS(54308) = 0 -! JVS(54309) = Jac_FULL(5256,4737) - JVS(54309) = -B(3907) -! JVS(54310) = Jac_FULL(5256,4738) - JVS(54310) = -B(17306) -! JVS(54311) = Jac_FULL(5256,4739) - JVS(54311) = -B(20374) -! JVS(54312) = Jac_FULL(5256,4740) - JVS(54312) = -B(8952) -! JVS(54313) = Jac_FULL(5256,4741) - JVS(54313) = B(15617) -! JVS(54314) = Jac_FULL(5256,4742) - JVS(54314) = -B(18204) -! JVS(54315) = Jac_FULL(5256,4743) - JVS(54315) = 0 -! JVS(54316) = Jac_FULL(5256,4744) - JVS(54316) = -B(21438) -! JVS(54317) = Jac_FULL(5256,4745) - JVS(54317) = -B(14769) -! JVS(54318) = Jac_FULL(5256,4746) - JVS(54318) = -B(7550) -! JVS(54319) = Jac_FULL(5256,4748) - JVS(54319) = -B(21054) -! JVS(54320) = Jac_FULL(5256,4750) - JVS(54320) = -B(18692) -! JVS(54321) = Jac_FULL(5256,4751) - JVS(54321) = -B(21549) -! JVS(54322) = Jac_FULL(5256,4752) - JVS(54322) = -B(21906) -! JVS(54323) = Jac_FULL(5256,4753) - JVS(54323) = -B(20360) -! JVS(54324) = Jac_FULL(5256,4754) - JVS(54324) = -B(7515) -! JVS(54325) = Jac_FULL(5256,4755) - JVS(54325) = -B(1614) -! JVS(54326) = Jac_FULL(5256,4756) - JVS(54326) = -B(7524) -! JVS(54327) = Jac_FULL(5256,4757) - JVS(54327) = B(14697) -! JVS(54328) = Jac_FULL(5256,4758) - JVS(54328) = -B(10507) -! JVS(54329) = Jac_FULL(5256,4759) - JVS(54329) = -B(22810) -! JVS(54330) = Jac_FULL(5256,4760) - JVS(54330) = -B(8037) -! JVS(54331) = Jac_FULL(5256,4761) - JVS(54331) = -B(14598) -! JVS(54332) = Jac_FULL(5256,4762) - JVS(54332) = -B(14566) -! JVS(54333) = Jac_FULL(5256,4763) - JVS(54333) = -B(1394) -! JVS(54334) = Jac_FULL(5256,4764) - JVS(54334) = -B(19511) -! JVS(54335) = Jac_FULL(5256,4765) - JVS(54335) = -B(11025) -! JVS(54336) = Jac_FULL(5256,4766) - JVS(54336) = -B(1873) -! JVS(54337) = Jac_FULL(5256,4767) - JVS(54337) = -B(1048) -! JVS(54338) = Jac_FULL(5256,4768) - JVS(54338) = -B(16839) -! JVS(54339) = Jac_FULL(5256,4769) - JVS(54339) = -B(9934) -! JVS(54340) = Jac_FULL(5256,4770) - JVS(54340) = -B(19986) -! JVS(54341) = Jac_FULL(5256,4771) - JVS(54341) = -B(8220) -! JVS(54342) = Jac_FULL(5256,4772) - JVS(54342) = -B(20472) -! JVS(54343) = Jac_FULL(5256,4773) - JVS(54343) = -B(9071) -! JVS(54344) = Jac_FULL(5256,4774) - JVS(54344) = -B(6768) -! JVS(54345) = Jac_FULL(5256,4775) - JVS(54345) = -B(15988) -! JVS(54346) = Jac_FULL(5256,4776) - JVS(54346) = B(13562) -! JVS(54347) = Jac_FULL(5256,4777) - JVS(54347) = -B(2164) -! JVS(54348) = Jac_FULL(5256,4778) - JVS(54348) = -B(19602) -! JVS(54349) = Jac_FULL(5256,4779) - JVS(54349) = -B(23650) -! JVS(54350) = Jac_FULL(5256,4780) - JVS(54350) = -B(1176) -! JVS(54351) = Jac_FULL(5256,4781) - JVS(54351) = -B(14499) -! JVS(54352) = Jac_FULL(5256,4782) - JVS(54352) = -B(2140) -! JVS(54353) = Jac_FULL(5256,4783) - JVS(54353) = -B(1536) -! JVS(54354) = Jac_FULL(5256,4784) - JVS(54354) = -B(3312) -! JVS(54355) = Jac_FULL(5256,4785) - JVS(54355) = -B(7673) -! JVS(54356) = Jac_FULL(5256,4786) - JVS(54356) = 0 -! JVS(54357) = Jac_FULL(5256,4787) - JVS(54357) = -B(10283) -! JVS(54358) = Jac_FULL(5256,4788) - JVS(54358) = 0 -! JVS(54359) = Jac_FULL(5256,4789) - JVS(54359) = -B(14367) -! JVS(54360) = Jac_FULL(5256,4790) - JVS(54360) = 0 -! JVS(54361) = Jac_FULL(5256,4791) - JVS(54361) = 0 -! JVS(54362) = Jac_FULL(5256,4792) - JVS(54362) = -B(16024) -! JVS(54363) = Jac_FULL(5256,4793) - JVS(54363) = -B(10151) -! JVS(54364) = Jac_FULL(5256,4794) - JVS(54364) = -B(3135) -! JVS(54365) = Jac_FULL(5256,4795) - JVS(54365) = -B(17478) -! JVS(54366) = Jac_FULL(5256,4797) - JVS(54366) = 0 -! JVS(54367) = Jac_FULL(5256,4798) - JVS(54367) = 0 -! JVS(54368) = Jac_FULL(5256,4799) - JVS(54368) = 0 -! JVS(54369) = Jac_FULL(5256,4800) - JVS(54369) = 0 -! JVS(54370) = Jac_FULL(5256,4802) - JVS(54370) = -B(17819) -! JVS(54371) = Jac_FULL(5256,4803) - JVS(54371) = -B(6082) -! JVS(54372) = Jac_FULL(5256,4804) - JVS(54372) = -B(8621) -! JVS(54373) = Jac_FULL(5256,4805) - JVS(54373) = 0 -! JVS(54374) = Jac_FULL(5256,4806) - JVS(54374) = -B(20629) -! JVS(54375) = Jac_FULL(5256,4807) - JVS(54375) = -B(6151) -! JVS(54376) = Jac_FULL(5256,4808) - JVS(54376) = -B(20005) -! JVS(54377) = Jac_FULL(5256,4809) - JVS(54377) = -B(2074) -! JVS(54378) = Jac_FULL(5256,4810) - JVS(54378) = 0 -! JVS(54379) = Jac_FULL(5256,4811) - JVS(54379) = -B(17835) -! JVS(54380) = Jac_FULL(5256,4812) - JVS(54380) = -B(23133) -! JVS(54381) = Jac_FULL(5256,4813) - JVS(54381) = -B(6576) -! JVS(54382) = Jac_FULL(5256,4814) - JVS(54382) = -B(1167) -! JVS(54383) = Jac_FULL(5256,4815) - JVS(54383) = -B(16090) -! JVS(54384) = Jac_FULL(5256,4816) - JVS(54384) = -B(18937) -! JVS(54385) = Jac_FULL(5256,4817) - JVS(54385) = -B(8493) -! JVS(54386) = Jac_FULL(5256,4818) - JVS(54386) = -B(23322) -! JVS(54387) = Jac_FULL(5256,4819) - JVS(54387) = B(6643) -! JVS(54388) = Jac_FULL(5256,4820) - JVS(54388) = -B(23755) -! JVS(54389) = Jac_FULL(5256,4821) - JVS(54389) = -B(5369) -! JVS(54390) = Jac_FULL(5256,4822) - JVS(54390) = -B(8703) -! JVS(54391) = Jac_FULL(5256,4823) - JVS(54391) = -B(8711) -! JVS(54392) = Jac_FULL(5256,4824) - JVS(54392) = B(17167) -! JVS(54393) = Jac_FULL(5256,4825) - JVS(54393) = -B(22031) -! JVS(54394) = Jac_FULL(5256,4826) - JVS(54394) = -B(20333) -! JVS(54395) = Jac_FULL(5256,4827) - JVS(54395) = -B(10943) -! JVS(54396) = Jac_FULL(5256,4828) - JVS(54396) = B(15445) -! JVS(54397) = Jac_FULL(5256,4829) - JVS(54397) = -B(5816) -! JVS(54398) = Jac_FULL(5256,4830) - JVS(54398) = -B(14278) -! JVS(54399) = Jac_FULL(5256,4831) - JVS(54399) = -B(21542) -! JVS(54400) = Jac_FULL(5256,4832) - JVS(54400) = -B(13655) -! JVS(54401) = Jac_FULL(5256,4833) - JVS(54401) = -B(5422) -! JVS(54402) = Jac_FULL(5256,4834) - JVS(54402) = -B(11958) -! JVS(54403) = Jac_FULL(5256,4835) - JVS(54403) = -B(12472) -! JVS(54404) = Jac_FULL(5256,4836) - JVS(54404) = -B(11008) -! JVS(54405) = Jac_FULL(5256,4837) - JVS(54405) = -B(1076) -! JVS(54406) = Jac_FULL(5256,4838) - JVS(54406) = B(5118) -! JVS(54407) = Jac_FULL(5256,4839) - JVS(54407) = -B(23098) -! JVS(54408) = Jac_FULL(5256,4840) - JVS(54408) = -B(242)-B(244)-B(246) -! JVS(54409) = Jac_FULL(5256,4841) - JVS(54409) = -B(3280) -! JVS(54410) = Jac_FULL(5256,4842) - JVS(54410) = -B(17070) -! JVS(54411) = Jac_FULL(5256,4843) - JVS(54411) = B(7446) -! JVS(54412) = Jac_FULL(5256,4844) - JVS(54412) = -B(1092) -! JVS(54413) = Jac_FULL(5256,4845) - JVS(54413) = -B(4827) -! JVS(54414) = Jac_FULL(5256,4846) - JVS(54414) = -B(9677) -! JVS(54415) = Jac_FULL(5256,4847) - JVS(54415) = -B(11247) -! JVS(54416) = Jac_FULL(5256,4848) - JVS(54416) = -B(14942) -! JVS(54417) = Jac_FULL(5256,4849) - JVS(54417) = -B(17039) -! JVS(54418) = Jac_FULL(5256,4850) - JVS(54418) = -B(18007) -! JVS(54419) = Jac_FULL(5256,4851) - JVS(54419) = -B(13554) -! JVS(54420) = Jac_FULL(5256,4852) - JVS(54420) = -B(3260) -! JVS(54421) = Jac_FULL(5256,4853) - JVS(54421) = -B(23815) -! JVS(54422) = Jac_FULL(5256,4854) - JVS(54422) = -B(23294) -! JVS(54423) = Jac_FULL(5256,4855) - JVS(54423) = -B(14450) -! JVS(54424) = Jac_FULL(5256,4856) - JVS(54424) = -B(8518) -! JVS(54425) = Jac_FULL(5256,4857) - JVS(54425) = -B(12640) -! JVS(54426) = Jac_FULL(5256,4858) - JVS(54426) = -B(3251) -! JVS(54427) = Jac_FULL(5256,4859) - JVS(54427) = 0 -! JVS(54428) = Jac_FULL(5256,4860) - JVS(54428) = -B(8015) -! JVS(54429) = Jac_FULL(5256,4861) - JVS(54429) = -B(12464) -! JVS(54430) = Jac_FULL(5256,4862) - JVS(54430) = -B(7877) -! JVS(54431) = Jac_FULL(5256,4863) - JVS(54431) = -B(21068) -! JVS(54432) = Jac_FULL(5256,4864) - JVS(54432) = -B(16126) -! JVS(54433) = Jac_FULL(5256,4865) - JVS(54433) = 0 -! JVS(54434) = Jac_FULL(5256,4866) - JVS(54434) = -B(17544) -! JVS(54435) = Jac_FULL(5256,4867) - JVS(54435) = -B(22380) -! JVS(54436) = Jac_FULL(5256,4868) - JVS(54436) = B(5058) -! JVS(54437) = Jac_FULL(5256,4869) - JVS(54437) = B(11314) -! JVS(54438) = Jac_FULL(5256,4870) - JVS(54438) = -B(982) -! JVS(54439) = Jac_FULL(5256,4871) - JVS(54439) = -B(10936) -! JVS(54440) = Jac_FULL(5256,4872) - JVS(54440) = -B(3756) -! JVS(54441) = Jac_FULL(5256,4873) - JVS(54441) = -B(5142) -! JVS(54442) = Jac_FULL(5256,4874) - JVS(54442) = -B(19735) -! JVS(54443) = Jac_FULL(5256,4875) - JVS(54443) = -B(22817) -! JVS(54444) = Jac_FULL(5256,4876) - JVS(54444) = -B(1657) -! JVS(54445) = Jac_FULL(5256,4877) - JVS(54445) = -B(12807) -! JVS(54446) = Jac_FULL(5256,4878) - JVS(54446) = -B(1916) -! JVS(54447) = Jac_FULL(5256,4879) - JVS(54447) = -B(2237) -! JVS(54448) = Jac_FULL(5256,4880) - JVS(54448) = -B(8109) -! JVS(54449) = Jac_FULL(5256,4881) - JVS(54449) = -B(2192) -! JVS(54450) = Jac_FULL(5256,4882) - JVS(54450) = -B(7725) -! JVS(54451) = Jac_FULL(5256,4883) - JVS(54451) = 0 -! JVS(54452) = Jac_FULL(5256,4884) - JVS(54452) = -B(2281) -! JVS(54453) = Jac_FULL(5256,4885) - JVS(54453) = -B(10843) -! JVS(54454) = Jac_FULL(5256,4886) - JVS(54454) = -B(1862) -! JVS(54455) = Jac_FULL(5256,4887) - JVS(54455) = -B(5446) -! JVS(54456) = Jac_FULL(5256,4888) - JVS(54456) = -B(13091) -! JVS(54457) = Jac_FULL(5256,4889) - JVS(54457) = -B(8630) -! JVS(54458) = Jac_FULL(5256,4890) - JVS(54458) = -B(19744) -! JVS(54459) = Jac_FULL(5256,4891) - JVS(54459) = -B(14485) -! JVS(54460) = Jac_FULL(5256,4892) - JVS(54460) = -B(5520) -! JVS(54461) = Jac_FULL(5256,4893) - JVS(54461) = -B(5630) -! JVS(54462) = Jac_FULL(5256,4894) - JVS(54462) = -B(10646) -! JVS(54463) = Jac_FULL(5256,4895) - JVS(54463) = -B(9051) -! JVS(54464) = Jac_FULL(5256,4896) - JVS(54464) = -B(9307) -! JVS(54465) = Jac_FULL(5256,4897) - JVS(54465) = -B(6317) -! JVS(54466) = Jac_FULL(5256,4898) - JVS(54466) = -B(14286) -! JVS(54467) = Jac_FULL(5256,4899) - JVS(54467) = -B(6091) -! JVS(54468) = Jac_FULL(5256,4900) - JVS(54468) = -B(19205) -! JVS(54469) = Jac_FULL(5256,4901) - JVS(54469) = -B(1679) -! JVS(54470) = Jac_FULL(5256,4902) - JVS(54470) = -B(22311) -! JVS(54471) = Jac_FULL(5256,4903) - JVS(54471) = -B(15220) -! JVS(54472) = Jac_FULL(5256,4904) - JVS(54472) = -B(18216) -! JVS(54473) = Jac_FULL(5256,4905) - JVS(54473) = -B(6389) -! JVS(54474) = Jac_FULL(5256,4906) - JVS(54474) = B(6749) -! JVS(54475) = Jac_FULL(5256,4907) - JVS(54475) = -B(3146) -! JVS(54476) = Jac_FULL(5256,4908) - JVS(54476) = B(4031) -! JVS(54477) = Jac_FULL(5256,4910) - JVS(54477) = -B(14264) -! JVS(54478) = Jac_FULL(5256,4911) - JVS(54478) = -B(15038) -! JVS(54479) = Jac_FULL(5256,4912) - JVS(54479) = B(7276) -! JVS(54480) = Jac_FULL(5256,4913) - JVS(54480) = -B(9685) -! JVS(54481) = Jac_FULL(5256,4914) - JVS(54481) = -B(11095) -! JVS(54482) = Jac_FULL(5256,4915) - JVS(54482) = -B(7829) -! JVS(54483) = Jac_FULL(5256,4916) - JVS(54483) = -B(8680) -! JVS(54484) = Jac_FULL(5256,4917) - JVS(54484) = -B(9444) -! JVS(54485) = Jac_FULL(5256,4918) - JVS(54485) = -B(9411) -! JVS(54486) = Jac_FULL(5256,4919) - JVS(54486) = B(6588) -! JVS(54487) = Jac_FULL(5256,4920) - JVS(54487) = -B(13406) -! JVS(54488) = Jac_FULL(5256,4921) - JVS(54488) = -B(14581) -! JVS(54489) = Jac_FULL(5256,4922) - JVS(54489) = -B(1568) -! JVS(54490) = Jac_FULL(5256,4923) - JVS(54490) = -B(1559) -! JVS(54491) = Jac_FULL(5256,4924) - JVS(54491) = -B(4004) -! JVS(54492) = Jac_FULL(5256,4925) - JVS(54492) = -B(3419) -! JVS(54493) = Jac_FULL(5256,4926) - JVS(54493) = -B(16824) -! JVS(54494) = Jac_FULL(5256,4927) - JVS(54494) = -B(9057) -! JVS(54495) = Jac_FULL(5256,4928) - JVS(54495) = -B(5918) -! JVS(54496) = Jac_FULL(5256,4929) - JVS(54496) = -B(15585) -! JVS(54497) = Jac_FULL(5256,4930) - JVS(54497) = -B(9555) -! JVS(54498) = Jac_FULL(5256,4931) - JVS(54498) = -B(7662) -! JVS(54499) = Jac_FULL(5256,4932) - JVS(54499) = -B(1477) -! JVS(54500) = Jac_FULL(5256,4933) - JVS(54500) = -B(6556) -! JVS(54501) = Jac_FULL(5256,4934) - JVS(54501) = -B(15030) -! JVS(54502) = Jac_FULL(5256,4935) - JVS(54502) = -B(6177) -! JVS(54503) = Jac_FULL(5256,4936) - JVS(54503) = -B(1525) -! JVS(54504) = Jac_FULL(5256,4937) - JVS(54504) = 0 -! JVS(54505) = Jac_FULL(5256,4939) - JVS(54505) = -B(13895) -! JVS(54506) = Jac_FULL(5256,4940) - JVS(54506) = -B(14618) -! JVS(54507) = Jac_FULL(5256,4941) - JVS(54507) = B(4865) -! JVS(54508) = Jac_FULL(5256,4942) - JVS(54508) = -B(1711) -! JVS(54509) = Jac_FULL(5256,4943) - JVS(54509) = B(4353) -! JVS(54510) = Jac_FULL(5256,4944) - JVS(54510) = -B(1419) -! JVS(54511) = Jac_FULL(5256,4945) - JVS(54511) = 0 -! JVS(54512) = Jac_FULL(5256,4946) - JVS(54512) = -B(13383) -! JVS(54513) = Jac_FULL(5256,4947) - JVS(54513) = -B(8960) -! JVS(54514) = Jac_FULL(5256,4948) - JVS(54514) = -B(6072) -! JVS(54515) = Jac_FULL(5256,4949) - JVS(54515) = -B(7612) -! JVS(54516) = Jac_FULL(5256,4950) - JVS(54516) = 0 -! JVS(54517) = Jac_FULL(5256,4951) - JVS(54517) = -B(8664) -! JVS(54518) = Jac_FULL(5256,4952) - JVS(54518) = -B(8834) -! JVS(54519) = Jac_FULL(5256,4953) - JVS(54519) = -B(14464) -! JVS(54520) = Jac_FULL(5256,4954) - JVS(54520) = -B(1455) -! JVS(54521) = Jac_FULL(5256,4955) - JVS(54521) = -B(22542) -! JVS(54522) = Jac_FULL(5256,4956) - JVS(54522) = B(4944) -! JVS(54523) = Jac_FULL(5256,4957) - JVS(54523) = -B(17428) -! JVS(54524) = Jac_FULL(5256,4959) - JVS(54524) = -B(1135) -! JVS(54525) = Jac_FULL(5256,4960) - JVS(54525) = -B(23339) -! JVS(54526) = Jac_FULL(5256,4961) - JVS(54526) = -B(5070) -! JVS(54527) = Jac_FULL(5256,4962) - JVS(54527) = -B(14897) -! JVS(54528) = Jac_FULL(5256,4963) - JVS(54528) = B(10670) -! JVS(54529) = Jac_FULL(5256,4964) - JVS(54529) = -B(759) -! JVS(54530) = Jac_FULL(5256,4965) - JVS(54530) = 0 -! JVS(54531) = Jac_FULL(5256,4966) - JVS(54531) = -B(15926) -! JVS(54532) = Jac_FULL(5256,4967) - JVS(54532) = -B(15229) -! JVS(54533) = Jac_FULL(5256,4968) - JVS(54533) = -B(12523) -! JVS(54534) = Jac_FULL(5256,4969) - JVS(54534) = -B(20640) -! JVS(54535) = Jac_FULL(5256,4970) - JVS(54535) = 0 -! JVS(54536) = Jac_FULL(5256,4971) - JVS(54536) = -B(6002) -! JVS(54537) = Jac_FULL(5256,4972) - JVS(54537) = -B(2096) -! JVS(54538) = Jac_FULL(5256,4974) - JVS(54538) = -B(1755) -! JVS(54539) = Jac_FULL(5256,4975) - JVS(54539) = -B(11821) -! JVS(54540) = Jac_FULL(5256,4976) - JVS(54540) = -B(10511) -! JVS(54541) = Jac_FULL(5256,4977) - JVS(54541) = -B(20289) -! JVS(54542) = Jac_FULL(5256,4978) - JVS(54542) = -B(23518) -! JVS(54543) = Jac_FULL(5256,4979) - JVS(54543) = -B(17574) -! JVS(54544) = Jac_FULL(5256,4980) - JVS(54544) = -B(1700) -! JVS(54545) = Jac_FULL(5256,4981) - JVS(54545) = -B(1625) -! JVS(54546) = Jac_FULL(5256,4982) - JVS(54546) = -B(16618) -! JVS(54547) = Jac_FULL(5256,4984) - JVS(54547) = -B(19627) -! JVS(54548) = Jac_FULL(5256,4985) - JVS(54548) = -B(9826) -! JVS(54549) = Jac_FULL(5256,4986) - JVS(54549) = -B(8850) -! JVS(54550) = Jac_FULL(5256,4987) - JVS(54550) = -B(17025) -! JVS(54551) = Jac_FULL(5256,4988) - JVS(54551) = -B(904) -! JVS(54552) = Jac_FULL(5256,4989) - JVS(54552) = -B(14689) -! JVS(54553) = Jac_FULL(5256,4990) - JVS(54553) = -B(8081) -! JVS(54554) = Jac_FULL(5256,4991) - JVS(54554) = -B(10852) -! JVS(54555) = Jac_FULL(5256,4992) - JVS(54555) = -B(6476) -! JVS(54556) = Jac_FULL(5256,4993) - JVS(54556) = -B(12454) -! JVS(54557) = Jac_FULL(5256,4994) - JVS(54557) = -B(8245) -! JVS(54558) = Jac_FULL(5256,4995) - JVS(54558) = -B(938) -! JVS(54559) = Jac_FULL(5256,4996) - JVS(54559) = -B(14202) -! JVS(54560) = Jac_FULL(5256,4997) - JVS(54560) = B(9461) -! JVS(54561) = Jac_FULL(5256,4998) - JVS(54561) = B(9572) -! JVS(54562) = Jac_FULL(5256,4999) - JVS(54562) = B(13538) -! JVS(54563) = Jac_FULL(5256,5001) - JVS(54563) = -B(9101) -! JVS(54564) = Jac_FULL(5256,5002) - JVS(54564) = -B(10580) -! JVS(54565) = Jac_FULL(5256,5003) - JVS(54565) = -B(20420) -! JVS(54566) = Jac_FULL(5256,5004) - JVS(54566) = -B(20606) -! JVS(54567) = Jac_FULL(5256,5005) - JVS(54567) = -B(20406) -! JVS(54568) = Jac_FULL(5256,5006) - JVS(54568) = -B(19371) -! JVS(54569) = Jac_FULL(5256,5007) - JVS(54569) = -B(993) -! JVS(54570) = Jac_FULL(5256,5008) - JVS(54570) = -B(7721) -! JVS(54571) = Jac_FULL(5256,5009) - JVS(54571) = -B(4967) -! JVS(54572) = Jac_FULL(5256,5010) - JVS(54572) = 0 -! JVS(54573) = Jac_FULL(5256,5011) - JVS(54573) = -B(9871) -! JVS(54574) = Jac_FULL(5256,5012) - JVS(54574) = -B(3891) -! JVS(54575) = Jac_FULL(5256,5013) - JVS(54575) = 0 -! JVS(54576) = Jac_FULL(5256,5014) - JVS(54576) = -B(14675) -! JVS(54577) = Jac_FULL(5256,5015) - JVS(54577) = -B(10421) -! JVS(54578) = Jac_FULL(5256,5016) - JVS(54578) = -B(6740) -! JVS(54579) = Jac_FULL(5256,5017) - JVS(54579) = -B(19277) -! JVS(54580) = Jac_FULL(5256,5018) - JVS(54580) = -B(18134) -! JVS(54581) = Jac_FULL(5256,5019) - JVS(54581) = -B(20732) -! JVS(54582) = Jac_FULL(5256,5020) - JVS(54582) = -B(6729) -! JVS(54583) = Jac_FULL(5256,5021) - JVS(54583) = -B(19101) -! JVS(54584) = Jac_FULL(5256,5022) - JVS(54584) = -B(13839) -! JVS(54585) = Jac_FULL(5256,5023) - JVS(54585) = -B(4237) -! JVS(54586) = Jac_FULL(5256,5024) - JVS(54586) = -B(16718) -! JVS(54587) = Jac_FULL(5256,5025) - JVS(54587) = -B(13702) -! JVS(54588) = Jac_FULL(5256,5026) - JVS(54588) = -B(7087) -! JVS(54589) = Jac_FULL(5256,5027) - JVS(54589) = -B(23004) -! JVS(54590) = Jac_FULL(5256,5028) - JVS(54590) = -B(14589) -! JVS(54591) = Jac_FULL(5256,5029) - JVS(54591) = -B(11056) -! JVS(54592) = Jac_FULL(5256,5030) - JVS(54592) = 0 -! JVS(54593) = Jac_FULL(5256,5031) - JVS(54593) = 0 -! JVS(54594) = Jac_FULL(5256,5032) - JVS(54594) = -B(3372) -! JVS(54595) = Jac_FULL(5256,5033) - JVS(54595) = -B(13806) -! JVS(54596) = Jac_FULL(5256,5034) - JVS(54596) = -B(9323) -! JVS(54597) = Jac_FULL(5256,5035) - JVS(54597) = -B(13713) -! JVS(54598) = Jac_FULL(5256,5036) - JVS(54598) = -B(7946) -! JVS(54599) = Jac_FULL(5256,5037) - JVS(54599) = 0 -! JVS(54600) = Jac_FULL(5256,5038) - JVS(54600) = -B(7889) -! JVS(54601) = Jac_FULL(5256,5039) - JVS(54601) = -B(14643) -! JVS(54602) = Jac_FULL(5256,5040) - JVS(54602) = B(16569) -! JVS(54603) = Jac_FULL(5256,5041) - JVS(54603) = -B(7541) -! JVS(54604) = Jac_FULL(5256,5042) - JVS(54604) = -B(1055) -! JVS(54605) = Jac_FULL(5256,5043) - JVS(54605) = -B(2207) -! JVS(54606) = Jac_FULL(5256,5044) - JVS(54606) = -B(20952) -! JVS(54607) = Jac_FULL(5256,5045) - JVS(54607) = -B(1819) -! JVS(54608) = Jac_FULL(5256,5047) - JVS(54608) = B(18753) -! JVS(54609) = Jac_FULL(5256,5048) - JVS(54609) = B(3576) -! JVS(54610) = Jac_FULL(5256,5049) - JVS(54610) = -B(6657) -! JVS(54611) = Jac_FULL(5256,5050) - JVS(54611) = -B(6629) -! JVS(54612) = Jac_FULL(5256,5051) - JVS(54612) = -B(441)-B(443) -! JVS(54613) = Jac_FULL(5256,5052) - JVS(54613) = -B(19424) -! JVS(54614) = Jac_FULL(5256,5053) - JVS(54614) = -B(3231) -! JVS(54615) = Jac_FULL(5256,5054) - JVS(54615) = -B(23642) -! JVS(54616) = Jac_FULL(5256,5055) - JVS(54616) = -B(4139) -! JVS(54617) = Jac_FULL(5256,5056) - JVS(54617) = -B(1777) -! JVS(54618) = Jac_FULL(5256,5057) - JVS(54618) = -B(3866) -! JVS(54619) = Jac_FULL(5256,5058) - JVS(54619) = -B(5258) -! JVS(54620) = Jac_FULL(5256,5059) - JVS(54620) = -B(18050) -! JVS(54621) = Jac_FULL(5256,5060) - JVS(54621) = -B(1004) -! JVS(54622) = Jac_FULL(5256,5061) - JVS(54622) = -B(1798) -! JVS(54623) = Jac_FULL(5256,5062) - JVS(54623) = -B(1603) -! JVS(54624) = Jac_FULL(5256,5063) - JVS(54624) = -B(11898) -! JVS(54625) = Jac_FULL(5256,5064) - JVS(54625) = 0 -! JVS(54626) = Jac_FULL(5256,5065) - JVS(54626) = -B(1970) -! JVS(54627) = Jac_FULL(5256,5066) - JVS(54627) = -B(9416) -! JVS(54628) = Jac_FULL(5256,5067) - JVS(54628) = -B(4877) -! JVS(54629) = Jac_FULL(5256,5068) - JVS(54629) = -B(9526) -! JVS(54630) = Jac_FULL(5256,5069) - JVS(54630) = -B(6709) -! JVS(54631) = Jac_FULL(5256,5070) - JVS(54631) = B(9340) -! JVS(54632) = Jac_FULL(5256,5071) - JVS(54632) = -B(3730) -! JVS(54633) = Jac_FULL(5256,5072) - JVS(54633) = -B(22900)-B(22902) -! JVS(54634) = Jac_FULL(5256,5073) - JVS(54634) = -B(20831) -! JVS(54635) = Jac_FULL(5256,5074) - JVS(54635) = -B(13737) -! JVS(54636) = Jac_FULL(5256,5075) - JVS(54636) = -B(18843)-B(18845) -! JVS(54637) = Jac_FULL(5256,5076) - JVS(54637) = -B(8915) -! JVS(54638) = Jac_FULL(5256,5077) - JVS(54638) = -B(1841) -! JVS(54639) = Jac_FULL(5256,5078) - JVS(54639) = -B(1690) -! JVS(54640) = Jac_FULL(5256,5079) - JVS(54640) = -B(16810) -! JVS(54641) = Jac_FULL(5256,5081) - JVS(54641) = -B(3402) -! JVS(54642) = Jac_FULL(5256,5082) - JVS(54642) = -B(1830) -! JVS(54643) = Jac_FULL(5256,5083) - JVS(54643) = -B(14427)-B(14429) -! JVS(54644) = Jac_FULL(5256,5084) - JVS(54644) = -B(19287) -! JVS(54645) = Jac_FULL(5256,5085) - JVS(54645) = -B(20852) -! JVS(54646) = Jac_FULL(5256,5086) - JVS(54646) = -B(19105) -! JVS(54647) = Jac_FULL(5256,5087) - JVS(54647) = -B(1225) -! JVS(54648) = Jac_FULL(5256,5088) - JVS(54648) = -B(15273) -! JVS(54649) = Jac_FULL(5256,5089) - JVS(54649) = -B(9039) -! JVS(54650) = Jac_FULL(5256,5090) - JVS(54650) = -B(15146) -! JVS(54651) = Jac_FULL(5256,5091) - JVS(54651) = -B(13905) -! JVS(54652) = Jac_FULL(5256,5092) - JVS(54652) = B(3586) -! JVS(54653) = Jac_FULL(5256,5093) - JVS(54653) = 0 -! JVS(54654) = Jac_FULL(5256,5094) - JVS(54654) = 0 -! JVS(54655) = Jac_FULL(5256,5095) - JVS(54655) = -B(19316)-B(19318) -! JVS(54656) = Jac_FULL(5256,5096) - JVS(54656) = -B(2122) -! JVS(54657) = Jac_FULL(5256,5097) - JVS(54657) = -B(3290) -! JVS(54658) = Jac_FULL(5256,5098) - JVS(54658) = -B(3222) -! JVS(54659) = Jac_FULL(5256,5099) - JVS(54659) = -B(11271) -! JVS(54660) = Jac_FULL(5256,5100) - JVS(54660) = -B(7971) -! JVS(54661) = Jac_FULL(5256,5101) - JVS(54661) = -B(7686) -! JVS(54662) = Jac_FULL(5256,5102) - JVS(54662) = B(8867) -! JVS(54663) = Jac_FULL(5256,5103) - JVS(54663) = 0 -! JVS(54664) = Jac_FULL(5256,5104) - JVS(54664) = -B(21095) -! JVS(54665) = Jac_FULL(5256,5105) - JVS(54665) = -B(16776) -! JVS(54666) = Jac_FULL(5256,5106) - JVS(54666) = -B(1375) -! JVS(54667) = Jac_FULL(5256,5107) - JVS(54667) = -B(1948) -! JVS(54668) = Jac_FULL(5256,5108) - JVS(54668) = -B(8255) -! JVS(54669) = Jac_FULL(5256,5109) - JVS(54669) = -B(1722) -! JVS(54670) = Jac_FULL(5256,5110) - JVS(54670) = 0 -! JVS(54671) = Jac_FULL(5256,5111) - JVS(54671) = -B(20618) -! JVS(54672) = Jac_FULL(5256,5112) - JVS(54672) = -B(1937) -! JVS(54673) = Jac_FULL(5256,5113) - JVS(54673) = 0 -! JVS(54674) = Jac_FULL(5256,5114) - JVS(54674) = -B(17382) -! JVS(54675) = Jac_FULL(5256,5115) - JVS(54675) = -B(11785) -! JVS(54676) = Jac_FULL(5256,5116) - JVS(54676) = -B(1146) -! JVS(54677) = Jac_FULL(5256,5117) - JVS(54677) = -B(10883) -! JVS(54678) = Jac_FULL(5256,5118) - JVS(54678) = -B(6934) -! JVS(54679) = Jac_FULL(5256,5119) - JVS(54679) = -B(8301) -! JVS(54680) = Jac_FULL(5256,5120) - JVS(54680) = -B(15015) -! JVS(54681) = Jac_FULL(5256,5121) - JVS(54681) = -B(945) -! JVS(54682) = Jac_FULL(5256,5122) - JVS(54682) = -B(14706) -! JVS(54683) = Jac_FULL(5256,5123) - JVS(54683) = -B(8822) -! JVS(54684) = Jac_FULL(5256,5124) - JVS(54684) = -B(423) -! JVS(54685) = Jac_FULL(5256,5125) - JVS(54685) = -B(1339) -! JVS(54686) = Jac_FULL(5256,5126) - JVS(54686) = -B(9295) -! JVS(54687) = Jac_FULL(5256,5127) - JVS(54687) = -B(6900) -! JVS(54688) = Jac_FULL(5256,5128) - JVS(54688) = -B(1505) -! JVS(54689) = Jac_FULL(5256,5129) - JVS(54689) = -B(1025) -! JVS(54690) = Jac_FULL(5256,5130) - JVS(54690) = -B(23075) -! JVS(54691) = Jac_FULL(5256,5131) - JVS(54691) = -B(19410) -! JVS(54692) = Jac_FULL(5256,5132) - JVS(54692) = -B(3130) -! JVS(54693) = Jac_FULL(5256,5133) - JVS(54693) = -B(11652) -! JVS(54694) = Jac_FULL(5256,5134) - JVS(54694) = -B(13847) -! JVS(54695) = Jac_FULL(5256,5135) - JVS(54695) = -B(2272) -! JVS(54696) = Jac_FULL(5256,5136) - JVS(54696) = -B(7635) -! JVS(54697) = Jac_FULL(5256,5137) - JVS(54697) = -B(7852) -! JVS(54698) = Jac_FULL(5256,5138) - JVS(54698) = -B(1959) -! JVS(54699) = Jac_FULL(5256,5139) - JVS(54699) = -B(7025) -! JVS(54700) = Jac_FULL(5256,5140) - JVS(54700) = 0 -! JVS(54701) = Jac_FULL(5256,5141) - JVS(54701) = -B(10139) -! JVS(54702) = Jac_FULL(5256,5142) - JVS(54702) = -B(1324) -! JVS(54703) = Jac_FULL(5256,5143) - JVS(54703) = -B(4208) -! JVS(54704) = Jac_FULL(5256,5144) - JVS(54704) = -B(1926) -! JVS(54705) = Jac_FULL(5256,5145) - JVS(54705) = -B(1404) -! JVS(54706) = Jac_FULL(5256,5146) - JVS(54706) = -B(1884) -! JVS(54707) = Jac_FULL(5256,5147) - JVS(54707) = -B(1668) -! JVS(54708) = Jac_FULL(5256,5148) - JVS(54708) = -B(1113) -! JVS(54709) = Jac_FULL(5256,5149) - JVS(54709) = -B(2048) -! JVS(54710) = Jac_FULL(5256,5150) - JVS(54710) = -B(10916) -! JVS(54711) = Jac_FULL(5256,5151) - JVS(54711) = -B(3242) -! JVS(54712) = Jac_FULL(5256,5152) - JVS(54712) = -B(8435) -! JVS(54713) = Jac_FULL(5256,5153) - JVS(54713) = -B(763)-B(765) -! JVS(54714) = Jac_FULL(5256,5154) - JVS(54714) = 0 -! JVS(54715) = Jac_FULL(5256,5155) - JVS(54715) = -B(7932) -! JVS(54716) = Jac_FULL(5256,5156) - JVS(54716) = B(4288) -! JVS(54717) = Jac_FULL(5256,5157) - JVS(54717) = 0 -! JVS(54718) = Jac_FULL(5256,5158) - JVS(54718) = -B(7802) -! JVS(54719) = Jac_FULL(5256,5159) - JVS(54719) = -B(19134) -! JVS(54720) = Jac_FULL(5256,5161) - JVS(54720) = -B(3271) -! JVS(54721) = Jac_FULL(5256,5162) - JVS(54721) = -B(4489) -! JVS(54722) = Jac_FULL(5256,5163) - JVS(54722) = -B(1635) -! JVS(54723) = Jac_FULL(5256,5164) - JVS(54723) = -B(7815) -! JVS(54724) = Jac_FULL(5256,5165) - JVS(54724) = -B(206) -! JVS(54725) = Jac_FULL(5256,5166) - JVS(54725) = -B(777) -! JVS(54726) = Jac_FULL(5256,5167) - JVS(54726) = 0 -! JVS(54727) = Jac_FULL(5256,5168) - JVS(54727) = 0 -! JVS(54728) = Jac_FULL(5256,5169) - JVS(54728) = -B(11186)-B(11188) -! JVS(54729) = Jac_FULL(5256,5170) - JVS(54729) = B(4260) -! JVS(54730) = Jac_FULL(5256,5171) - JVS(54730) = -B(18986) -! JVS(54731) = Jac_FULL(5256,5172) - JVS(54731) = -B(18766) -! JVS(54732) = Jac_FULL(5256,5173) - JVS(54732) = -B(10634) -! JVS(54733) = Jac_FULL(5256,5174) - JVS(54733) = -B(13826) -! JVS(54734) = Jac_FULL(5256,5175) - JVS(54734) = -B(11251) -! JVS(54735) = Jac_FULL(5256,5176) - JVS(54735) = -B(14410) -! JVS(54736) = Jac_FULL(5256,5177) - JVS(54736) = -B(22519) -! JVS(54737) = Jac_FULL(5256,5178) - JVS(54737) = 0 -! JVS(54738) = Jac_FULL(5256,5179) - JVS(54738) = -B(17492) -! JVS(54739) = Jac_FULL(5256,5180) - JVS(54739) = -B(4815) -! JVS(54740) = Jac_FULL(5256,5181) - JVS(54740) = -B(1981) -! JVS(54741) = Jac_FULL(5256,5182) - JVS(54741) = -B(17414) -! JVS(54742) = Jac_FULL(5256,5183) - JVS(54742) = -B(1314) -! JVS(54743) = Jac_FULL(5256,5184) - JVS(54743) = -B(3649) -! JVS(54744) = Jac_FULL(5256,5185) - JVS(54744) = -B(1037) -! JVS(54745) = Jac_FULL(5256,5186) - JVS(54745) = -B(1733) -! JVS(54746) = Jac_FULL(5256,5187) - JVS(54746) = -B(22982)-B(22984) -! JVS(54747) = Jac_FULL(5256,5189) - JVS(54747) = -B(21950)-B(21952) -! JVS(54748) = Jac_FULL(5256,5190) - JVS(54748) = -B(477)-B(479) -! JVS(54749) = Jac_FULL(5256,5191) - JVS(54749) = -B(184) -! JVS(54750) = Jac_FULL(5256,5192) - JVS(54750) = -B(1646) -! JVS(54751) = Jac_FULL(5256,5193) - JVS(54751) = -B(178) -! JVS(54752) = Jac_FULL(5256,5194) - JVS(54752) = -B(213) -! JVS(54753) = Jac_FULL(5256,5195) - JVS(54753) = -B(927) -! JVS(54754) = Jac_FULL(5256,5196) - JVS(54754) = -B(17049) -! JVS(54755) = Jac_FULL(5256,5197) - JVS(54755) = -B(10834) -! JVS(54756) = Jac_FULL(5256,5198) - JVS(54756) = -B(7288) -! JVS(54757) = Jac_FULL(5256,5199) - JVS(54757) = -B(13305) -! JVS(54758) = Jac_FULL(5256,5200) - JVS(54758) = -B(429)-B(431) -! JVS(54759) = Jac_FULL(5256,5201) - JVS(54759) = B(54) -! JVS(54760) = Jac_FULL(5256,5202) - JVS(54760) = -B(960) -! JVS(54761) = Jac_FULL(5256,5203) - JVS(54761) = -B(197) -! JVS(54762) = Jac_FULL(5256,5204) - JVS(54762) = -B(6806) -! JVS(54763) = Jac_FULL(5256,5205) - JVS(54763) = -B(10527) -! JVS(54764) = Jac_FULL(5256,5206) - JVS(54764) = -B(7561) -! JVS(54765) = Jac_FULL(5256,5207) - JVS(54765) = -B(11386)-B(11388) -! JVS(54766) = Jac_FULL(5256,5208) - JVS(54766) = -B(1440) -! JVS(54767) = Jac_FULL(5256,5209) - JVS(54767) = -B(8805)-B(8807) -! JVS(54768) = Jac_FULL(5256,5210) - JVS(54768) = -B(4367) -! JVS(54769) = Jac_FULL(5256,5211) - JVS(54769) = -B(14928) -! JVS(54770) = Jac_FULL(5256,5212) - JVS(54770) = 0 -! JVS(54771) = Jac_FULL(5256,5213) - JVS(54771) = -B(11032) -! JVS(54772) = Jac_FULL(5256,5214) - JVS(54772) = -B(16852) -! JVS(54773) = Jac_FULL(5256,5215) - JVS(54773) = 0 -! JVS(54774) = Jac_FULL(5256,5216) - JVS(54774) = B(7906)-B(7908) -! JVS(54775) = Jac_FULL(5256,5217) - JVS(54775) = -B(6779) -! JVS(54776) = Jac_FULL(5256,5218) - JVS(54776) = -B(6922) -! JVS(54777) = Jac_FULL(5256,5219) - JVS(54777) = -B(6793) -! JVS(54778) = Jac_FULL(5256,5220) - JVS(54778) = -B(10596) -! JVS(54779) = Jac_FULL(5256,5221) - JVS(54779) = 0 -! JVS(54780) = Jac_FULL(5256,5222) - JVS(54780) = -B(1512) -! JVS(54781) = Jac_FULL(5256,5223) - JVS(54781) = B(4055) -! JVS(54782) = Jac_FULL(5256,5224) - JVS(54782) = -B(6820) -! JVS(54783) = Jac_FULL(5256,5225) - JVS(54783) = 0 -! JVS(54784) = Jac_FULL(5256,5226) - JVS(54784) = -B(230) -! JVS(54785) = Jac_FULL(5256,5227) - JVS(54785) = 0 -! JVS(54786) = Jac_FULL(5256,5228) - JVS(54786) = -B(1290) -! JVS(54787) = Jac_FULL(5256,5229) - JVS(54787) = -B(1360) -! JVS(54788) = Jac_FULL(5256,5230) - JVS(54788) = -B(189) -! JVS(54789) = Jac_FULL(5256,5231) - JVS(54789) = -B(173) -! JVS(54790) = Jac_FULL(5256,5232) - JVS(54790) = -B(3992) -! JVS(54791) = Jac_FULL(5256,5233) - JVS(54791) = -B(1485) -! JVS(54792) = Jac_FULL(5256,5234) - JVS(54792) = -B(1215) -! JVS(54793) = Jac_FULL(5256,5235) - JVS(54793) = -B(1299) -! JVS(54794) = Jac_FULL(5256,5236) - JVS(54794) = -B(7437) -! JVS(54795) = Jac_FULL(5256,5237) - JVS(54795) = -B(7598) -! JVS(54796) = Jac_FULL(5256,5238) - JVS(54796) = 0 -! JVS(54797) = Jac_FULL(5256,5239) - JVS(54797) = -B(3829) -! JVS(54798) = Jac_FULL(5256,5240) - JVS(54798) = -B(14737) -! JVS(54799) = Jac_FULL(5256,5241) - JVS(54799) = -B(3202) -! JVS(54800) = Jac_FULL(5256,5242) - JVS(54800) = -B(4133) -! JVS(54801) = Jac_FULL(5256,5243) - JVS(54801) = -B(4047) -! JVS(54802) = Jac_FULL(5256,5244) - JVS(54802) = -B(1211) -! JVS(54803) = Jac_FULL(5256,5245) - JVS(54803) = -B(22729) -! JVS(54804) = Jac_FULL(5256,5246) - JVS(54804) = -B(3213) -! JVS(54805) = Jac_FULL(5256,5247) - JVS(54805) = -B(19432) -! JVS(54806) = Jac_FULL(5256,5248) - JVS(54806) = -B(11285) -! JVS(54807) = Jac_FULL(5256,5249) - JVS(54807) = -B(11424) -! JVS(54808) = Jac_FULL(5256,5250) - JVS(54808) = -B(42)+B(55)+B(4231)+B(4279)+B(4281)+B(4283)+B(14925)+B(16553)+B(16633)+B(20311)+B(20394)+B(20491)& - &+B(20530)+B(21556)+B(21589)+B(21595)+B(21605)+B(22288) -! JVS(54809) = Jac_FULL(5256,5251) - JVS(54809) = 0 -! JVS(54810) = Jac_FULL(5256,5252) - JVS(54810) = -B(18) -! JVS(54811) = Jac_FULL(5256,5253) - JVS(54811) = B(11)+B(15)-B(20)-B(22)+B(3577)+B(3587)+B(4032)+B(4056)+B(4261)+B(4289)+B(4354)+B(4866)+B(4910)+B(4945)& - &+B(5025)+B(5059)+B(5119)+B(6589)+B(6644)+B(6750)+B(6760)+B(7277)+B(7379)+B(7447)+B(7907)+B(8868)+B(9341)& - &+B(9462)+B(9573)+B(10671)+B(11315)+B(13508)+B(13539)+B(13563)+B(13596)+B(13630)+B(13873)+B(14558)+B(14653)& - &+B(14698)+B(14796)+B(14806)+B(15446)+B(15593)+B(15618)+B(16521)+B(16531)+B(16570)+B(16657)+B(17168)& - &+B(17326)+B(18754)+B(20537) -! JVS(54812) = Jac_FULL(5256,5254) - JVS(54812) = 0 -! JVS(54813) = Jac_FULL(5256,5255) - JVS(54813) = -B(50) -! JVS(54814) = Jac_FULL(5256,5256) - JVS(54814) = -B(19)-B(21)-B(23)-B(43)-B(51)-B(68)-B(69)-B(160)-B(162)-B(174)-B(179)-B(185)-B(190)-B(198)-B(207)-B(214)& - &-B(231)-B(243)-B(245)-B(247)-B(424)-B(430)-B(432)-B(442)-B(444)-B(454)-B(460)-B(466)-B(468)-B(478)-B(480)& - &-B(490)-B(492)-B(502)-B(504)-B(514)-B(516)-B(526)-B(528)-B(538)-B(540)-B(550)-B(552)-B(562)-B(564)-B(574)& - &-B(576)-B(586)-B(610)-B(620)-B(630)-B(640)-B(650)-B(660)-B(670)-B(680)-B(690)-B(700)-B(710)-B(720)-B(730)& - &-B(740)-B(750)-B(760)-B(764)-B(766)-B(778)-B(802)-B(806)-B(865)-B(867)-B(879)-B(881)-B(893)-B(905)-B(928)& - &-B(939)-B(946)-B(961)-B(972)-B(983)-B(994)-B(1005)-B(1015)-B(1026)-B(1038)-B(1049)-B(1056)-B(1066)-B(1077)& - &-B(1081)-B(1093)-B(1103)-B(1114)-B(1125)-B(1136)-B(1147)-B(1158)-B(1168)-B(1177)-B(1188)-B(1197)-B(1212)& - &-B(1216)-B(1226)-B(1235)-B(1244)-B(1265)-B(1276)-B(1291)-B(1300)-B(1315)-B(1325)-B(1340)-B(1350)-B(1361)& - &-B(1376)-B(1386)-B(1395)-B(1405)-B(1420)-B(1430)-B(1441)-B(1456)-B(1464)-B(1478)-B(1486)-B(1506)-B(1513)& - &-B(1526)-B(1537)-B(1552)-B(1560)-B(1569)-B(1584)-B(1593)-B(1604)-B(1615)-B(1626)-B(1636)-B(1647)-B(1658)& - &-B(1669)-B(1680)-B(1691)-B(1701)-B(1712)-B(1723)-B(1734)-B(1745)-B(1756)-B(1767)-B(1778)-B(1788)-B(1799)& - &-B(1810)-B(1820)-B(1831)-B(1842)-B(1853)-B(1863)-B(1874)-B(1885)-B(1896)-B(1906)-B(1917)-B(1927)-B(1938)& - &-B(1949)-B(1960)-B(1971)-B(1982)-B(1991)-B(2003)-B(2012)-B(2025)-B(2034)-B(2049)-B(2058)-B(2067)-B(2075)& - &-B(2088)-B(2097)-B(2112)-B(2123)-B(2132)-B(2141)-B(2156)-B(2165)-B(2174)-B(2184)-B(2193)-B(2208)-B(2217)& - &-B(2226)-B(2238)-B(2247)-B(2262)-B(2273)-B(2282)-B(2291)-B(2306)-B(2317)-B(2326)-B(2337)-B(2349)-B(2354)& - &-B(2364)-B(2366)-B(2380)-B(2385)-B(2387)-B(2389)-B(2403)-B(2408)-B(2424)-B(2435)-B(2439)-B(2449)-B(2451)& - &-B(2453)-B(2467)-B(2478)-B(2483)-B(2493)-B(2495)-B(2497)-B(2511)-B(2522)-B(2526)-B(2536)-B(2538)-B(2540)& - &-B(2554)-B(2559)-B(2561)-B(2563)-B(2577)-B(2582)-B(2598)-B(2603)-B(2605)-B(2607)-B(2621)-B(2626)-B(2642)& - &-B(2646)-B(2648)-B(2650)-B(2664)-B(2669)-B(2685)-B(2690)-B(2692)-B(2694)-B(2708)-B(2725)-B(2736)-B(2740)& - &-B(2742)-B(2744)-B(2752)-B(2768)-B(2779)-B(2784)-B(2786)-B(2792)-B(2808)-B(2819)-B(2823)-B(2833)-B(2835)& - &-B(2837)-B(2851)-B(2856)-B(2866)-B(2868)-B(2870)-B(2884)-B(2888)-B(2898)-B(2900)-B(2902)-B(2916)-B(2927)& - &-B(2932)-B(2942)-B(2944)-B(2956)-B(2961)-B(2963)-B(2975)-B(2980)-B(2994)-B(3005)-B(3018)-B(3026)-B(3033)& - &-B(3044)-B(3062)-B(3073)-B(3084)-B(3095)-B(3131)-B(3136)-B(3147)-B(3168)-B(3181)-B(3192)-B(3203)-B(3214)& - &-B(3223)-B(3232)-B(3243)-B(3252)-B(3261)-B(3272)-B(3281)-B(3291)-B(3302)-B(3313)-B(3322)-B(3333)-B(3342)& - &-B(3351)-B(3362)-B(3373)-B(3381)-B(3392)-B(3403)-B(3412)-B(3420)-B(3435)-B(3445)-B(3456)-B(3464)-B(3472)& - &-B(3497)-B(3507)-B(3518)-B(3526)-B(3540)-B(3550)-B(3561)-B(3569)-B(3606)-B(3616)-B(3627)-B(3650)-B(3731)& - &-B(3757)-B(3786)-B(3820)-B(3830)-B(3867)-B(3892)-B(3908)-B(3970)-B(3993)-B(4005)-B(4048)-B(4134)-B(4140)& - &-B(4172)-B(4209)-B(4238)-B(4326)-B(4332)-B(4341)-B(4368)-B(4474)-B(4490)-B(4527)-B(4584)-B(4638)-B(4655)& - &-B(4683)-B(4816)-B(4828)-B(4878)-B(4900)-B(4934)-B(4968)-B(5011)-B(5050)-B(5071)-B(5096)-B(5143)-B(5226)& - &-B(5230)-B(5245)-B(5254)-B(5259)-B(5277)-B(5281)-B(5291)-B(5308)-B(5316)-B(5324)-B(5356)-B(5370)-B(5379)& - &-B(5391)-B(5423)-B(5427)-B(5438)-B(5447)-B(5455)-B(5467)-B(5471)-B(5484)-B(5521)-B(5525)-B(5536)-B(5545)& - &-B(5558)-B(5566)-B(5570)-B(5583)-B(5612)-B(5622)-B(5631)-B(5639)-B(5651)-B(5655)-B(5670)-B(5683)-B(5691)& - &-B(5695)-B(5726)-B(5740)-B(5749)-B(5770)-B(5782)-B(5786)-B(5817)-B(5831)-B(5840)-B(5862)-B(5870)-B(5874)& - &-B(5905)-B(5919)-B(5928)-B(5940)-B(5952)-B(5964)-B(5968)-B(5991)-B(6003)-B(6015)-B(6041)-B(6053)-B(6057)& - &-B(6073)-B(6083)-B(6092)-B(6103)-B(6128)-B(6138)-B(6152)-B(6156)-B(6170)-B(6178)-B(6219)-B(6223)-B(6234)& - &-B(6243)-B(6251)-B(6263)-B(6267)-B(6299)-B(6309)-B(6318)-B(6331)-B(6339)-B(6343)-B(6371)-B(6381)-B(6390)& - &-B(6398)-B(6410)-B(6414)-B(6457)-B(6469)-B(6477)-B(6488)-B(6496)-B(6518)-B(6526)-B(6553)-B(6557)-B(6569)& - &-B(6577)-B(6630)-B(6658)-B(6691)-B(6710)-B(6730)-B(6741)-B(6769)-B(6780)-B(6794)-B(6807)-B(6821)-B(6850)& - &-B(6861)-B(6872)-B(6881)-B(6888)-B(6901)-B(6912)-B(6923)-B(6935)-B(6976)-B(6978)-B(6986)-B(7026)-B(7088)& - &-B(7178)-B(7217)-B(7260)-B(7268)-B(7289)-B(7327)-B(7338)-B(7349)-B(7360)-B(7368)-B(7394)-B(7418)-B(7427)& - &-B(7438)-B(7480)-B(7482)-B(7516)-B(7525)-B(7542)-B(7551)-B(7562)-B(7599)-B(7613)-B(7623)-B(7636)-B(7663)& - &-B(7674)-B(7687)-B(7698)-B(7707)-B(7722)-B(7726)-B(7742)-B(7770)-B(7792)-B(7803)-B(7816)-B(7830)-B(7838)& - &-B(7853)-B(7863)-B(7878)-B(7890)-B(7895)-B(7909)-B(7933)-B(7947)-B(7959)-B(7972)-B(7981)-B(7992)-B(8003)& - &-B(8016)-B(8025)-B(8038)-B(8047)-B(8058)-B(8069)-B(8082)-B(8091)-B(8100)-B(8110)-B(8121)-B(8132)-B(8145)& - &-B(8154)-B(8165)-B(8174)-B(8184)-B(8197)-B(8206)-B(8221)-B(8231)-B(8246)-B(8256)-B(8265)-B(8274)-B(8282)& - &-B(8291)-B(8302)-B(8311)-B(8320)-B(8331)-B(8340)-B(8349)-B(8358)-B(8367)-B(8376)-B(8385)-B(8394)-B(8403)& - &-B(8412)-B(8421)-B(8436)-B(8450)-B(8459)-B(8473)-B(8486)-B(8494)-B(8510)-B(8519)-B(8530)-B(8537)-B(8544)& - &-B(8557)-B(8566)-B(8581)-B(8594)-B(8601)-B(8614)-B(8622)-B(8631)-B(8644)-B(8651)-B(8660)-B(8665)-B(8681)& - &-B(8704)-B(8712)-B(8746)-B(8751)-B(8790)-B(8798)-B(8806)-B(8808)-B(8823)-B(8835)-B(8851)-B(8909)-B(8916)& - &-B(8928)-B(8953)-B(8961)-B(8996)-B(9004)-B(9029)-B(9037)-B(9040)-B(9052)-B(9058)-B(9072)-B(9094)-B(9102)& - &-B(9130)-B(9138)-B(9171)-B(9179)-B(9228)-B(9236)-B(9261)-B(9265)-B(9273)-B(9296)-B(9308)-B(9324)-B(9376)& - &-B(9389)-B(9397)-B(9412)-B(9417)-B(9429)-B(9445)-B(9496)-B(9504)-B(9527)-B(9540)-B(9556)-B(9614)-B(9626)& - &-B(9634)-B(9648)-B(9656)-B(9662)-B(9678)-B(9686)-B(9714)-B(9722)-B(9741)-B(9749)-B(9808)-B(9816)-B(9827)& - &-B(9864)-B(9872)-B(9903)-B(9927)-B(9935)-B(9969)-B(9977)-B(10028)-B(10036)-B(10108)-B(10116)-B(10135)& - &-B(10140)-B(10152)-B(10208)-B(10221)-B(10246)-B(10268)-B(10276)-B(10284)-B(10315)-B(10330)-B(10342)& - &-B(10357)-B(10371)-B(10386)-B(10395)-B(10408)-B(10422)-B(10437)-B(10449)-B(10482)-B(10508)-B(10512)& - &-B(10528)-B(10577)-B(10581)-B(10597)-B(10635)-B(10647)-B(10659)-B(10727)-B(10738)-B(10747)-B(10760)& - &-B(10777)-B(10790)-B(10803)-B(10818)-B(10826)-B(10835)-B(10844)-B(10853)-B(10860)-B(10869)-B(10884)& - &-B(10892)-B(10899)-B(10906)-B(10917)-B(10928)-B(10937)-B(10944)-B(10953)-B(10960)-B(10973)-B(10980)& - &-B(10987)-B(10994)-B(11009)-B(11017)-B(11026)-B(11033)-B(11044)-B(11057)-B(11096)-B(11109)-B(11122)& - &-B(11171)-B(11184)-B(11187)-B(11189)-B(11248)-B(11252)-B(11272)-B(11280)-B(11286)-B(11305)-B(11326)& - &-B(11340)-B(11376)-B(11387)-B(11389)-B(11425)-B(11484)-B(11509)-B(11531)-B(11538)-B(11547)-B(11554)& - &-B(11619)-B(11653)-B(11718)-B(11736)-B(11786)-B(11822)-B(11844)-B(11861)-B(11899)-B(11935)-B(11959)& - &-B(11983)-B(12066)-B(12342)-B(12351)-B(12402)-B(12410)-B(12413)-B(12420)-B(12431)-B(12439)-B(12455)& - &-B(12465)-B(12473)-B(12482)-B(12491)-B(12524)-B(12536)-B(12544)-B(12551)-B(12560)-B(12594)-B(12598)& - &-B(12606)-B(12626)-B(12634)-B(12641)-B(12650)-B(12658)-B(12665)-B(12672)-B(12706)-B(12710)-B(12718)& - &-B(12741)-B(12753)-B(12757)-B(12765)-B(12786)-B(12790)-B(12798)-B(12808)-B(12817)-B(12824)-B(12833)& - &-B(12858)-B(12880)-B(12884)-B(12892)-B(12906)-B(12915)-B(12922)-B(12931)-B(12956)-B(12963)-B(12978)& - &-B(12982)-B(12990)-B(13000)-B(13009)-B(13016)-B(13025)-B(13050)-B(13071)-B(13079)-B(13092)-B(13100)& - &-B(13108)-B(13118)-B(13126)-B(13133)-B(13141)-B(13178)-B(13192)-B(13196)-B(13204)-B(13289)-B(13293)& - &-B(13301)-B(13306)-B(13317)-B(13321)-B(13329)-B(13336)-B(13348)-B(13352)-B(13360)-B(13384)-B(13392)& - &-B(13400)-B(13407)-B(13416)-B(13442)-B(13523)-B(13555)-B(13652)-B(13656)-B(13703)-B(13714)-B(13738)& - &-B(13762)-B(13791)-B(13807)-B(13818)-B(13827)-B(13840)-B(13848)-B(13896)-B(13906)-B(13935)-B(13948)& - &-B(13976)-B(14025)-B(14203)-B(14231)-B(14251)-B(14265)-B(14279)-B(14287)-B(14294)-B(14306)-B(14313)& - &-B(14322)-B(14347)-B(14357)-B(14368)-B(14381)-B(14406)-B(14411)-B(14424)-B(14428)-B(14430)-B(14451)& - &-B(14465)-B(14473)-B(14486)-B(14493)-B(14500)-B(14513)-B(14527)-B(14537)-B(14567)-B(14582)-B(14590)& - &-B(14599)-B(14608)-B(14619)-B(14644)-B(14676)-B(14690)-B(14707)-B(14726)-B(14734)-B(14738)-B(14751)& - &-B(14761)-B(14770)-B(14779)-B(14788)-B(14825)-B(14835)-B(14848)-B(14859)-B(14898)-B(14906)-B(14929)& - &-B(14943)-B(14948)-B(14960)-B(14969)-B(14975)-B(14989)-B(14999)-B(15004)-B(15016)-B(15031)-B(15039)& - &-B(15052)-B(15065)-B(15075)-B(15086)-B(15092)-B(15106)-B(15116)-B(15124)-B(15133)-B(15147)-B(15157)& - &-B(15172)-B(15186)-B(15205)-B(15212)-B(15221)-B(15230)-B(15250)-B(15259)-B(15274)-B(15284)-B(15296)& - &-B(15305)-B(15317)-B(15324)-B(15333)-B(15345)-B(15352)-B(15361)-B(15373)-B(15380)-B(15389)-B(15401)& - &-B(15410)-B(15421)-B(15465)-B(15473)-B(15480)-B(15487)-B(15497)-B(15504)-B(15513)-B(15520)-B(15525)& - &-B(15533)-B(15540)-B(15547)-B(15586)-B(15652)-B(15660)-B(15667)-B(15674)-B(15683)-B(15690)-B(15742)& - &-B(15750)-B(15757)-B(15764)-B(15772)-B(15779)-B(15802)-B(15810)-B(15817)-B(15824)-B(15832)-B(15839)& - &-B(15845)-B(15853)-B(15860)-B(15867)-B(15876)-B(15883)-B(15927)-B(15938)-B(15941)-B(15949)-B(15956)& - &-B(15963)-B(15972)-B(15979)-B(15989)-B(16025)-B(16038)-B(16043)-B(16051)-B(16058)-B(16065)-B(16074)& - &-B(16081)-B(16091)-B(16127)-B(16136)-B(16144)-B(16151)-B(16158)-B(16215)-B(16223)-B(16230)-B(16237)& - &-B(16245)-B(16252)-B(16264)-B(16267)-B(16275)-B(16282)-B(16289)-B(16298)-B(16305)-B(16311)-B(16319)& - &-B(16326)-B(16333)-B(16341)-B(16348)-B(16366)-B(16374)-B(16381)-B(16388)-B(16396)-B(16403)-B(16455)& - &-B(16459)-B(16471)-B(16497)-B(16501)-B(16544)-B(16602)-B(16619)-B(16719)-B(16737)-B(16748)-B(16757)& - &-B(16777)-B(16785)-B(16794)-B(16811)-B(16825)-B(16833)-B(16840)-B(16853)-B(16861)-B(16868)-B(16885)& - &-B(16976)-B(16993)-B(17012)-B(17026)-B(17040)-B(17050)-B(17067)-B(17071)-B(17083)-B(17093)-B(17150)& - &-B(17159)-B(17307)-B(17317)-B(17335)-B(17383)-B(17415)-B(17429)-B(17437)-B(17444)-B(17451)-B(17479)& - &-B(17493)-B(17515)-B(17545)-B(17575)-B(17583)-B(17640)-B(17670)-B(17730)-B(17756)-B(17765)-B(17774)& - &-B(17820)-B(17828)-B(17836)-B(17857)-B(17886)-B(17912)-B(17942)-B(17972)-B(18008)-B(18016)-B(18038)& - &-B(18051)-B(18060)-B(18067)-B(18109)-B(18116)-B(18130)-B(18135)-B(18153)-B(18160)-B(18167)-B(18196)& - &-B(18205)-B(18208)-B(18217)-B(18225)-B(18232)-B(18260)-B(18268)-B(18275)-B(18303)-B(18310)-B(18340)& - &-B(18362)-B(18369)-B(18403)-B(18406)-B(18411)-B(18429)-B(18436)-B(18470)-B(18473)-B(18478)-B(18492)& - &-B(18500)-B(18507)-B(18528)-B(18535)-B(18542)-B(18570)-B(18581)-B(18588)-B(18618)-B(18625)-B(18653)& - &-B(18660)-B(18684)-B(18693)-B(18718)-B(18736)-B(18747)-B(18767)-B(18798)-B(18815)-B(18826)-B(18844)& - &-B(18846)-B(18863)-B(18877)-B(18893)-B(18917)-B(18925)-B(18938)-B(18948)-B(18974)-B(18987)-B(19003)& - &-B(19017)-B(19062)-B(19073)-B(19087)-B(19102)-B(19106)-B(19115)-B(19124)-B(19132)-B(19135)-B(19148)& - &-B(19156)-B(19167)-B(19181)-B(19189)-B(19206)-B(19218)-B(19278)-B(19288)-B(19297)-B(19317)-B(19319)& - &-B(19336)-B(19351)-B(19359)-B(19372)-B(19411)-B(19425)-B(19433)-B(19447)-B(19461)-B(19473)-B(19512)& - &-B(19525)-B(19603)-B(19609)-B(19617)-B(19628)-B(19685)-B(19692)-B(19736)-B(19745)-B(19769)-B(19791)& - &-B(19813)-B(19817)-B(19840)-B(19870)-B(19902)-B(19916)-B(19937)-B(19963)-B(19974)-B(19987)-B(20006)& - &-B(20035)-B(20061)-B(20083)-B(20096)-B(20118)-B(20148)-B(20163)-B(20170)-B(20207)-B(20233)-B(20255)& - &-B(20277)-B(20290)-B(20302)-B(20334)-B(20347)-B(20361)-B(20375)-B(20407)-B(20421)-B(20443)-B(20473)& - &-B(20498)-B(20505)-B(20563)-B(20581)-B(20588)-B(20607)-B(20619)-B(20630)-B(20641)-B(20658)-B(20680)& - &-B(20694)-B(20725)-B(20733)-B(20806)-B(20810)-B(20819)-B(20832)-B(20853)-B(20870)-B(20881)-B(20891)& - &-B(20914)-B(20940)-B(20953)-B(20968)-B(21003)-B(21022)-B(21036)-B(21055)-B(21069)-B(21086)-B(21096)& - &-B(21114)-B(21122)-B(21129)-B(21143)-B(21155)-B(21172)-B(21179)-B(21197)-B(21221)-B(21234)-B(21247)& - &-B(21260)-B(21273)-B(21291)-B(21308)-B(21332)-B(21380)-B(21397)-B(21421)-B(21439)-B(21477)-B(21494)& - &-B(21511)-B(21543)-B(21550)-B(21665)-B(21681)-B(21691)-B(21708)-B(21723)-B(21735)-B(21744)-B(21772)& - &-B(21787)-B(21791)-B(21800)-B(21815)-B(21823)-B(21851)-B(21858)-B(21880)-B(21894)-B(21907)-B(21917)& - &-B(21932)-B(21951)-B(21953)-B(21970)-B(22022)-B(22032)-B(22089)-B(22106)-B(22149)-B(22177)-B(22218)& - &-B(22261)-B(22298)-B(22312)-B(22328)-B(22342)-B(22350)-B(22381)-B(22406)-B(22434)-B(22458)-B(22487)& - &-B(22520)-B(22543)-B(22551)-B(22562)-B(22579)-B(22590)-B(22605)-B(22615)-B(22631)-B(22659)-B(22669)& - &-B(22681)-B(22695)-B(22730)-B(22741)-B(22754)-B(22777)-B(22785)-B(22793)-B(22811)-B(22818)-B(22825)& - &-B(22850)-B(22870)-B(22877)-B(22889)-B(22901)-B(22903)-B(22932)-B(22945)-B(22971)-B(22983)-B(22985)& - &-B(23005)-B(23036)-B(23076)-B(23084)-B(23099)-B(23134)-B(23159)-B(23175)-B(23193)-B(23209)-B(23260)& - &-B(23268)-B(23295)-B(23309)-B(23323)-B(23331)-B(23340)-B(23371)-B(23375)-B(23386)-B(23401)-B(23413)& - &-B(23436)-B(23469)-B(23484)-B(23519)-B(23551)-B(23568)-B(23587)-B(23643)-B(23651)-B(23689)-B(23707)& - &-B(23716)-B(23742)-B(23749)-B(23756)-B(23771)-B(23778)-B(23789)-B(23796)-B(23816)-B(23829)-B(23852)& - &-B(23873)-B(23928)-B(23967)-B(23980)-B(23987)-B(24000)-B(24007)-B(24041) -! JVS(54815) = Jac_FULL(5256,5257) - JVS(54815) = -B(7481)-B(7483) -! JVS(54816) = Jac_FULL(5256,5258) - JVS(54816) = B(16)+B(4277) -! JVS(54817) = Jac_FULL(5257,624) - JVS(54817) = B(7577) -! JVS(54818) = Jac_FULL(5257,646) - JVS(54818) = B(7571) -! JVS(54819) = Jac_FULL(5257,797) - JVS(54819) = B(7477) -! JVS(54820) = Jac_FULL(5257,905) - JVS(54820) = B(7569) -! JVS(54821) = Jac_FULL(5257,2160) - JVS(54821) = 0 -! JVS(54822) = Jac_FULL(5257,2178) - JVS(54822) = 0 -! JVS(54823) = Jac_FULL(5257,2180) - JVS(54823) = 0 -! JVS(54824) = Jac_FULL(5257,3891) - JVS(54824) = 0 -! JVS(54825) = Jac_FULL(5257,3963) - JVS(54825) = 0 -! JVS(54826) = Jac_FULL(5257,3971) - JVS(54826) = 0 -! JVS(54827) = Jac_FULL(5257,4988) - JVS(54827) = 0 -! JVS(54828) = Jac_FULL(5257,5048) - JVS(54828) = B(3572)+B(3574)+B(3576)+B(3578)+B(3580) -! JVS(54829) = Jac_FULL(5257,5092) - JVS(54829) = B(3582)+B(3584)+B(3586)+B(3588) -! JVS(54830) = Jac_FULL(5257,5250) - JVS(54830) = -B(7488)-B(7490)-B(7492)-B(7494)-B(7496)+B(7570) -! JVS(54831) = Jac_FULL(5257,5251) - JVS(54831) = B(3573)+B(3583) -! JVS(54832) = Jac_FULL(5257,5252) - JVS(54832) = B(3575)+B(3585) -! JVS(54833) = Jac_FULL(5257,5253) - JVS(54833) = B(3577)+B(3587) -! JVS(54834) = Jac_FULL(5257,5254) - JVS(54834) = B(3579)+B(3589) -! JVS(54835) = Jac_FULL(5257,5255) - JVS(54835) = 0 -! JVS(54836) = Jac_FULL(5257,5256) - JVS(54836) = -B(7480)-B(7482) -! JVS(54837) = Jac_FULL(5257,5257) - JVS(54837) = -B(7481)-B(7483)-B(7484)-B(7486)-B(7489)-B(7491)-B(7493)-B(7495)-B(7497)-B(7498) -! JVS(54838) = Jac_FULL(5257,5258) - JVS(54838) = -B(7485)-B(7487) -! JVS(54839) = Jac_FULL(5258,3442) - JVS(54839) = -B(587) -! JVS(54840) = Jac_FULL(5258,3465) - JVS(54840) = -B(455) -! JVS(54841) = Jac_FULL(5258,3466) - JVS(54841) = -B(461) -! JVS(54842) = Jac_FULL(5258,3482) - JVS(54842) = -B(5969) -! JVS(54843) = Jac_FULL(5258,3494) - JVS(54843) = -B(6058) -! JVS(54844) = Jac_FULL(5258,3499) - JVS(54844) = -B(6344) -! JVS(54845) = Jac_FULL(5258,3506) - JVS(54845) = -B(6268) -! JVS(54846) = Jac_FULL(5258,3508) - JVS(54846) = -B(5472) -! JVS(54847) = Jac_FULL(5258,3512) - JVS(54847) = -B(5656) -! JVS(54848) = Jac_FULL(5258,3517) - JVS(54848) = -B(7529)-B(7531) -! JVS(54849) = Jac_FULL(5258,3519) - JVS(54849) = -B(8929) -! JVS(54850) = Jac_FULL(5258,3545) - JVS(54850) = -B(5325) -! JVS(54851) = Jac_FULL(5258,3551) - JVS(54851) = -B(6415) -! JVS(54852) = Jac_FULL(5258,3553) - JVS(54852) = -B(9663) -! JVS(54853) = Jac_FULL(5258,3560) - JVS(54853) = -B(5571) -! JVS(54854) = Jac_FULL(5258,3568) - JVS(54854) = B(3)-B(4) -! JVS(54855) = Jac_FULL(5258,3622) - JVS(54855) = -B(2712) -! JVS(54856) = Jac_FULL(5258,3646) - JVS(54856) = -B(7499)-B(7501) -! JVS(54857) = Jac_FULL(5258,3684) - JVS(54857) = -B(5875) -! JVS(54858) = Jac_FULL(5258,3701) - JVS(54858) = -B(5787) -! JVS(54859) = Jac_FULL(5258,3793) - JVS(54859) = -B(5321) -! JVS(54860) = Jac_FULL(5258,3830) - JVS(54860) = -B(5282) -! JVS(54861) = Jac_FULL(5258,3831) - JVS(54861) = -B(5696) -! JVS(54862) = Jac_FULL(5258,3832) - JVS(54862) = -B(9724)-B(9726) -! JVS(54863) = Jac_FULL(5258,3833) - JVS(54863) = -B(2824) -! JVS(54864) = Jac_FULL(5258,3834) - JVS(54864) = -B(2440) -! JVS(54865) = Jac_FULL(5258,3996) - JVS(54865) = -B(2793) -! JVS(54866) = Jac_FULL(5258,4010) - JVS(54866) = -B(2409) -! JVS(54867) = Jac_FULL(5258,4017) - JVS(54867) = -B(2981) -! JVS(54868) = Jac_FULL(5258,4018) - JVS(54868) = -B(2933) -! JVS(54869) = Jac_FULL(5258,4027) - JVS(54869) = -B(2753) -! JVS(54870) = Jac_FULL(5258,4032) - JVS(54870) = -B(2583) -! JVS(54871) = Jac_FULL(5258,4056) - JVS(54871) = -B(2484) -! JVS(54872) = Jac_FULL(5258,4080) - JVS(54872) = -B(2857) -! JVS(54873) = Jac_FULL(5258,4083) - JVS(54873) = -B(2527) -! JVS(54874) = Jac_FULL(5258,4093) - JVS(54874) = -B(2670) -! JVS(54875) = Jac_FULL(5258,4094) - JVS(54875) = -B(2627) -! JVS(54876) = Jac_FULL(5258,4096) - JVS(54876) = -B(6833)-B(6835) -! JVS(54877) = Jac_FULL(5258,4100) - JVS(54877) = B(9162) -! JVS(54878) = Jac_FULL(5258,4132) - JVS(54878) = B(6290) -! JVS(54879) = Jac_FULL(5258,4139) - JVS(54879) = B(9705) -! JVS(54880) = Jac_FULL(5258,4181) - JVS(54880) = B(9799) -! JVS(54881) = Jac_FULL(5258,4187) - JVS(54881) = B(9250) -! JVS(54882) = Jac_FULL(5258,4198) - JVS(54882) = B(9918) -! JVS(54883) = Jac_FULL(5258,4222) - JVS(54883) = B(20554) -! JVS(54884) = Jac_FULL(5258,4272) - JVS(54884) = -B(2889) -! JVS(54885) = Jac_FULL(5258,4330) - JVS(54885) = -B(4276) -! JVS(54886) = Jac_FULL(5258,4332) - JVS(54886) = -B(493)-B(495) -! JVS(54887) = Jac_FULL(5258,4338) - JVS(54887) = B(9020) -! JVS(54888) = Jac_FULL(5258,4375) - JVS(54888) = B(9605) -! JVS(54889) = Jac_FULL(5258,4380) - JVS(54889) = B(3809) -! JVS(54890) = Jac_FULL(5258,4395) - JVS(54890) = -B(751)-B(753) -! JVS(54891) = Jac_FULL(5258,4396) - JVS(54891) = -B(2355) -! JVS(54892) = Jac_FULL(5258,4397) - JVS(54892) = 0 -! JVS(54893) = Jac_FULL(5258,4402) - JVS(54893) = -B(10055) -! JVS(54894) = Jac_FULL(5258,4405) - JVS(54894) = B(8441) -! JVS(54895) = Jac_FULL(5258,4407) - JVS(54895) = -B(6046) -! JVS(54896) = Jac_FULL(5258,4408) - JVS(54896) = -B(5551) -! JVS(54897) = Jac_FULL(5258,4413) - JVS(54897) = -B(9988) -! JVS(54898) = Jac_FULL(5258,4414) - JVS(54898) = B(10346) -! JVS(54899) = Jac_FULL(5258,4427) - JVS(54899) = B(8605) -! JVS(54900) = Jac_FULL(5258,4428) - JVS(54900) = B(1543) -! JVS(54901) = Jac_FULL(5258,4431) - JVS(54901) = B(19450) -! JVS(54902) = Jac_FULL(5258,4433) - JVS(54902) = B(8570) -! JVS(54903) = Jac_FULL(5258,4436) - JVS(54903) = B(10426) -! JVS(54904) = Jac_FULL(5258,4437) - JVS(54904) = -B(6324) -! JVS(54905) = Jac_FULL(5258,4438) - JVS(54905) = -B(6256) -! JVS(54906) = Jac_FULL(5258,4444) - JVS(54906) = -B(9523) -! JVS(54907) = Jac_FULL(5258,4452) - JVS(54907) = B(8477) -! JVS(54908) = Jac_FULL(5258,4453) - JVS(54908) = -B(5676) -! JVS(54909) = Jac_FULL(5258,4454) - JVS(54909) = -B(9292) -! JVS(54910) = Jac_FULL(5258,4457) - JVS(54910) = -B(5855) -! JVS(54911) = Jac_FULL(5258,4460) - JVS(54911) = B(18707) -! JVS(54912) = Jac_FULL(5258,4466) - JVS(54912) = -B(9408) -! JVS(54913) = Jac_FULL(5258,4470) - JVS(54913) = B(8501) -! JVS(54914) = Jac_FULL(5258,4471) - JVS(54914) = -B(9015) -! JVS(54915) = Jac_FULL(5258,4474) - JVS(54915) = -B(541)-B(543) -! JVS(54916) = Jac_FULL(5258,4475) - JVS(54916) = -B(505)-B(507) -! JVS(54917) = Jac_FULL(5258,4478) - JVS(54917) = -B(5460) -! JVS(54918) = Jac_FULL(5258,4479) - JVS(54918) = -B(5775) -! JVS(54919) = Jac_FULL(5258,4484) - JVS(54919) = B(19170) -! JVS(54920) = Jac_FULL(5258,4485) - JVS(54920) = B(21804) -! JVS(54921) = Jac_FULL(5258,4487) - JVS(54921) = -B(9157) -! JVS(54922) = Jac_FULL(5258,4492) - JVS(54922) = -B(868)-B(870) -! JVS(54923) = Jac_FULL(5258,4494) - JVS(54923) = -B(5957) -! JVS(54924) = Jac_FULL(5258,4495) - JVS(54924) = -B(5644) -! JVS(54925) = Jac_FULL(5258,4496) - JVS(54925) = B(22335) -! JVS(54926) = Jac_FULL(5258,4499) - JVS(54926) = -B(10127) -! JVS(54927) = Jac_FULL(5258,4500) - JVS(54927) = B(15161) -! JVS(54928) = Jac_FULL(5258,4504) - JVS(54928) = -B(6403) -! JVS(54929) = Jac_FULL(5258,4505) - JVS(54929) = -B(9657) -! JVS(54930) = Jac_FULL(5258,4508) - JVS(54930) = -B(529)-B(531) -! JVS(54931) = Jac_FULL(5258,4509) - JVS(54931) = -B(9247) -! JVS(54932) = Jac_FULL(5258,4512) - JVS(54932) = -B(469)-B(471) -! JVS(54933) = Jac_FULL(5258,4514) - JVS(54933) = -B(8802) -! JVS(54934) = Jac_FULL(5258,4516) - JVS(54934) = B(10319) -! JVS(54935) = Jac_FULL(5258,4518) - JVS(54935) = B(18868) -! JVS(54936) = Jac_FULL(5258,4519) - JVS(54936) = B(20336) -! JVS(54937) = Jac_FULL(5258,4522) - JVS(54937) = B(8546) -! JVS(54938) = Jac_FULL(5258,4523) - JVS(54938) = B(15175) -! JVS(54939) = Jac_FULL(5258,4527) - JVS(54939) = -B(553)-B(555) -! JVS(54940) = Jac_FULL(5258,4531) - JVS(54940) = -B(8764) -! JVS(54941) = Jac_FULL(5258,4555) - JVS(54941) = -B(163)-B(165) -! JVS(54942) = Jac_FULL(5258,4570) - JVS(54942) = -B(13778)-B(13780) -! JVS(54943) = Jac_FULL(5258,4576) - JVS(54943) = 0 -! JVS(54944) = Jac_FULL(5258,4591) - JVS(54944) = B(8900) -! JVS(54945) = Jac_FULL(5258,4592) - JVS(54945) = 0 -! JVS(54946) = Jac_FULL(5258,4600) - JVS(54946) = -B(882)-B(884) -! JVS(54947) = Jac_FULL(5258,4601) - JVS(54947) = -B(517)-B(519) -! JVS(54948) = Jac_FULL(5258,4604) - JVS(54948) = -B(565)-B(567) -! JVS(54949) = Jac_FULL(5258,4605) - JVS(54949) = -B(894)-B(896) -! JVS(54950) = Jac_FULL(5258,4606) - JVS(54950) = -B(577)-B(579) -! JVS(54951) = Jac_FULL(5258,4610) - JVS(54951) = 0 -! JVS(54952) = Jac_FULL(5258,4611) - JVS(54952) = B(10807) -! JVS(54953) = Jac_FULL(5258,4615) - JVS(54953) = -B(10551)-B(10553) -! JVS(54954) = Jac_FULL(5258,4622) - JVS(54954) = B(3011) -! JVS(54955) = Jac_FULL(5258,4623) - JVS(54955) = B(14978) -! JVS(54956) = Jac_FULL(5258,4624) - JVS(54956) = B(21776) -! JVS(54957) = Jac_FULL(5258,4626) - JVS(54957) = B(5347) -! JVS(54958) = Jac_FULL(5258,4628) - JVS(54958) = B(10259) -! JVS(54959) = Jac_FULL(5258,4629) - JVS(54959) = B(15054) -! JVS(54960) = Jac_FULL(5258,4632) - JVS(54960) = -B(13311) -! JVS(54961) = Jac_FULL(5258,4633) - JVS(54961) = B(6362) -! JVS(54962) = Jac_FULL(5258,4634) - JVS(54962) = B(3775) -! JVS(54963) = Jac_FULL(5258,4635) - JVS(54963) = B(5896) -! JVS(54964) = Jac_FULL(5258,4636) - JVS(54964) = B(22934) -! JVS(54965) = Jac_FULL(5258,4637) - JVS(54965) = -B(9430) -! JVS(54966) = Jac_FULL(5258,4638) - JVS(54966) = B(19344) -! JVS(54967) = Jac_FULL(5258,4639) - JVS(54967) = -B(9644) -! JVS(54968) = Jac_FULL(5258,4641) - JVS(54968) = B(5717) -! JVS(54969) = Jac_FULL(5258,4642) - JVS(54969) = B(17659) -! JVS(54970) = Jac_FULL(5258,4649) - JVS(54970) = B(5215) -! JVS(54971) = Jac_FULL(5258,4650) - JVS(54971) = -B(9541) -! JVS(54972) = Jac_FULL(5258,4652) - JVS(54972) = B(22011) -! JVS(54973) = Jac_FULL(5258,4653) - JVS(54973) = B(23298) -! JVS(54974) = Jac_FULL(5258,4654) - JVS(54974) = B(6210) -! JVS(54975) = Jac_FULL(5258,4656) - JVS(54975) = B(6544) -! JVS(54976) = Jac_FULL(5258,4657) - JVS(54976) = B(18884) -! JVS(54977) = Jac_FULL(5258,4658) - JVS(54977) = B(18854) -! JVS(54978) = Jac_FULL(5258,4659) - JVS(54978) = B(21842) -! JVS(54979) = Jac_FULL(5258,4660) - JVS(54979) = B(20716) -! JVS(54980) = Jac_FULL(5258,4662) - JVS(54980) = B(17504) -! JVS(54981) = Jac_FULL(5258,4663) - JVS(54981) = -B(13342) -! JVS(54982) = Jac_FULL(5258,4664) - JVS(54982) = B(16982) -! JVS(54983) = Jac_FULL(5258,4665) - JVS(54983) = B(15095) -! JVS(54984) = Jac_FULL(5258,4670) - JVS(54984) = -B(9760) -! JVS(54985) = Jac_FULL(5258,4671) - JVS(54985) = -B(12700) -! JVS(54986) = Jac_FULL(5258,4673) - JVS(54986) = B(23182) -! JVS(54987) = Jac_FULL(5258,4676) - JVS(54987) = -B(12747) -! JVS(54988) = Jac_FULL(5258,4679) - JVS(54988) = B(19436) -! JVS(54989) = Jac_FULL(5258,4680) - JVS(54989) = B(9855) -! JVS(54990) = Jac_FULL(5258,4681) - JVS(54990) = B(22598) -! JVS(54991) = Jac_FULL(5258,4682) - JVS(54991) = -B(13283) -! JVS(54992) = Jac_FULL(5258,4684) - JVS(54992) = B(9085) -! JVS(54993) = Jac_FULL(5258,4685) - JVS(54993) = B(6448) -! JVS(54994) = Jac_FULL(5258,4690) - JVS(54994) = -B(12588) -! JVS(54995) = Jac_FULL(5258,4692) - JVS(54995) = B(5603) -! JVS(54996) = Jac_FULL(5258,4729) - JVS(54996) = 0 -! JVS(54997) = Jac_FULL(5258,4738) - JVS(54997) = B(17296) -! JVS(54998) = Jac_FULL(5258,4739) - JVS(54998) = B(20364) -! JVS(54999) = Jac_FULL(5258,4740) - JVS(54999) = B(8944) -! JVS(55000) = Jac_FULL(5258,4752) - JVS(55000) = B(21896) -! JVS(55001) = Jac_FULL(5258,4753) - JVS(55001) = B(20350) -! JVS(55002) = Jac_FULL(5258,4770) - JVS(55002) = B(19976) -! JVS(55003) = Jac_FULL(5258,4771) - JVS(55003) = B(8212) -! JVS(55004) = Jac_FULL(5258,4772) - JVS(55004) = B(20462) -! JVS(55005) = Jac_FULL(5258,4777) - JVS(55005) = 0 -! JVS(55006) = Jac_FULL(5258,4786) - JVS(55006) = -B(10618)-B(10620) -! JVS(55007) = Jac_FULL(5258,4788) - JVS(55007) = -B(13186) -! JVS(55008) = Jac_FULL(5258,4789) - JVS(55008) = 0 -! JVS(55009) = Jac_FULL(5258,4790) - JVS(55009) = -B(12969) -! JVS(55010) = Jac_FULL(5258,4791) - JVS(55010) = -B(12874) -! JVS(55011) = Jac_FULL(5258,4793) - JVS(55011) = -B(10153) -! JVS(55012) = Jac_FULL(5258,4794) - JVS(55012) = -B(3137)-B(3139) -! JVS(55013) = Jac_FULL(5258,4795) - JVS(55013) = B(17468) -! JVS(55014) = Jac_FULL(5258,4797) - JVS(55014) = -B(12777) -! JVS(55015) = Jac_FULL(5258,4798) - JVS(55015) = -B(12425) -! JVS(55016) = Jac_FULL(5258,4803) - JVS(55016) = 0 -! JVS(55017) = Jac_FULL(5258,4805) - JVS(55017) = -B(13677)-B(13679) -! JVS(55018) = Jac_FULL(5258,4807) - JVS(55018) = B(6143) -! JVS(55019) = Jac_FULL(5258,4808) - JVS(55019) = B(19995) -! JVS(55020) = Jac_FULL(5258,4809) - JVS(55020) = 0 -! JVS(55021) = Jac_FULL(5258,4810) - JVS(55021) = -B(13065) -! JVS(55022) = Jac_FULL(5258,4812) - JVS(55022) = B(23123) -! JVS(55023) = Jac_FULL(5258,4816) - JVS(55023) = B(18927) -! JVS(55024) = Jac_FULL(5258,4818) - JVS(55024) = B(23312) -! JVS(55025) = Jac_FULL(5258,4822) - JVS(55025) = B(8695) -! JVS(55026) = Jac_FULL(5258,4829) - JVS(55026) = B(5808) -! JVS(55027) = Jac_FULL(5258,4830) - JVS(55027) = B(14272) -! JVS(55028) = Jac_FULL(5258,4832) - JVS(55028) = -B(13657) -! JVS(55029) = Jac_FULL(5258,4833) - JVS(55029) = B(5414) -! JVS(55030) = Jac_FULL(5258,4834) - JVS(55030) = 0 -! JVS(55031) = Jac_FULL(5258,4836) - JVS(55031) = B(10998) -! JVS(55032) = Jac_FULL(5258,4839) - JVS(55032) = B(23088) -! JVS(55033) = Jac_FULL(5258,4840) - JVS(55033) = -B(248)-B(250) -! JVS(55034) = Jac_FULL(5258,4845) - JVS(55034) = 0 -! JVS(55035) = Jac_FULL(5258,4846) - JVS(55035) = B(9669) -! JVS(55036) = Jac_FULL(5258,4847) - JVS(55036) = B(11241) -! JVS(55037) = Jac_FULL(5258,4848) - JVS(55037) = B(14932) -! JVS(55038) = Jac_FULL(5258,4849) - JVS(55038) = B(17033) -! JVS(55039) = Jac_FULL(5258,4850) - JVS(55039) = B(17997) -! JVS(55040) = Jac_FULL(5258,4853) - JVS(55040) = B(23805) -! JVS(55041) = Jac_FULL(5258,4854) - JVS(55041) = B(23284) -! JVS(55042) = Jac_FULL(5258,4855) - JVS(55042) = B(14440) -! JVS(55043) = Jac_FULL(5258,4859) - JVS(55043) = -B(12399) -! JVS(55044) = Jac_FULL(5258,4862) - JVS(55044) = B(7869) -! JVS(55045) = Jac_FULL(5258,4863) - JVS(55045) = B(21058) -! JVS(55046) = Jac_FULL(5258,4866) - JVS(55046) = B(17534) -! JVS(55047) = Jac_FULL(5258,4867) - JVS(55047) = B(22370) -! JVS(55048) = Jac_FULL(5258,4879) - JVS(55048) = 0 -! JVS(55049) = Jac_FULL(5258,4881) - JVS(55049) = 0 -! JVS(55050) = Jac_FULL(5258,4886) - JVS(55050) = 0 -! JVS(55051) = Jac_FULL(5258,4888) - JVS(55051) = B(13083) -! JVS(55052) = Jac_FULL(5258,4892) - JVS(55052) = B(5512) -! JVS(55053) = Jac_FULL(5258,4895) - JVS(55053) = -B(9053) -! JVS(55054) = Jac_FULL(5258,4896) - JVS(55054) = -B(9309) -! JVS(55055) = Jac_FULL(5258,4907) - JVS(55055) = -B(3148)-B(3150) -! JVS(55056) = Jac_FULL(5258,4910) - JVS(55056) = B(14256) -! JVS(55057) = Jac_FULL(5258,4915) - JVS(55057) = B(7821) -! JVS(55058) = Jac_FULL(5258,4916) - JVS(55058) = B(8670) -! JVS(55059) = Jac_FULL(5258,4917) - JVS(55059) = B(9436) -! JVS(55060) = Jac_FULL(5258,4921) - JVS(55060) = B(14571) -! JVS(55061) = Jac_FULL(5258,4922) - JVS(55061) = 0 -! JVS(55062) = Jac_FULL(5258,4926) - JVS(55062) = B(16816) -! JVS(55063) = Jac_FULL(5258,4927) - JVS(55063) = -B(9059) -! JVS(55064) = Jac_FULL(5258,4928) - JVS(55064) = 0 -! JVS(55065) = Jac_FULL(5258,4930) - JVS(55065) = B(9547) -! JVS(55066) = Jac_FULL(5258,4932) - JVS(55066) = B(1469) -! JVS(55067) = Jac_FULL(5258,4933) - JVS(55067) = 0 -! JVS(55068) = Jac_FULL(5258,4934) - JVS(55068) = B(15020) -! JVS(55069) = Jac_FULL(5258,4937) - JVS(55069) = 0 -! JVS(55070) = Jac_FULL(5258,4944) - JVS(55070) = B(1411) -! JVS(55071) = Jac_FULL(5258,4945) - JVS(55071) = 0 -! JVS(55072) = Jac_FULL(5258,4946) - JVS(55072) = B(13375) -! JVS(55073) = Jac_FULL(5258,4948) - JVS(55073) = B(6064) -! JVS(55074) = Jac_FULL(5258,4949) - JVS(55074) = B(7602) -! JVS(55075) = Jac_FULL(5258,4950) - JVS(55075) = 0 -! JVS(55076) = Jac_FULL(5258,4951) - JVS(55076) = -B(8666) -! JVS(55077) = Jac_FULL(5258,4952) - JVS(55077) = -B(8836) -! JVS(55078) = Jac_FULL(5258,4953) - JVS(55078) = B(14456) -! JVS(55079) = Jac_FULL(5258,4954) - JVS(55079) = B(1445) -! JVS(55080) = Jac_FULL(5258,4955) - JVS(55080) = B(22532) -! JVS(55081) = Jac_FULL(5258,4957) - JVS(55081) = 0 -! JVS(55082) = Jac_FULL(5258,4962) - JVS(55082) = B(14889) -! JVS(55083) = Jac_FULL(5258,4964) - JVS(55083) = 0 -! JVS(55084) = Jac_FULL(5258,4965) - JVS(55084) = -B(5270) -! JVS(55085) = Jac_FULL(5258,4968) - JVS(55085) = B(12513) -! JVS(55086) = Jac_FULL(5258,4970) - JVS(55086) = -B(7505)-B(7507) -! JVS(55087) = Jac_FULL(5258,4971) - JVS(55087) = 0 -! JVS(55088) = Jac_FULL(5258,4972) - JVS(55088) = 0 -! JVS(55089) = Jac_FULL(5258,4975) - JVS(55089) = 0 -! JVS(55090) = Jac_FULL(5258,4976) - JVS(55090) = -B(10513)-B(10515) -! JVS(55091) = Jac_FULL(5258,4977) - JVS(55091) = B(20279) -! JVS(55092) = Jac_FULL(5258,4978) - JVS(55092) = 0 -! JVS(55093) = Jac_FULL(5258,4979) - JVS(55093) = B(17564) -! JVS(55094) = Jac_FULL(5258,4986) - JVS(55094) = B(8842) -! JVS(55095) = Jac_FULL(5258,4987) - JVS(55095) = 0 -! JVS(55096) = Jac_FULL(5258,4988) - JVS(55096) = -B(906)-B(908)-B(910)-B(912) -! JVS(55097) = Jac_FULL(5258,4989) - JVS(55097) = B(14681) -! JVS(55098) = Jac_FULL(5258,4993) - JVS(55098) = B(12446) -! JVS(55099) = Jac_FULL(5258,4994) - JVS(55099) = B(8237) -! JVS(55100) = Jac_FULL(5258,4996) - JVS(55100) = 0 -! JVS(55101) = Jac_FULL(5258,5002) - JVS(55101) = -B(10582)-B(10584) -! JVS(55102) = Jac_FULL(5258,5003) - JVS(55102) = B(20412) -! JVS(55103) = Jac_FULL(5258,5004) - JVS(55103) = B(20596) -! JVS(55104) = Jac_FULL(5258,5005) - JVS(55104) = B(20398) -! JVS(55105) = Jac_FULL(5258,5006) - JVS(55105) = B(19361) -! JVS(55106) = Jac_FULL(5258,5008) - JVS(55106) = B(7713) -! JVS(55107) = Jac_FULL(5258,5010) - JVS(55107) = 0 -! JVS(55108) = Jac_FULL(5258,5013) - JVS(55108) = -B(10497)-B(10499) -! JVS(55109) = Jac_FULL(5258,5014) - JVS(55109) = B(14665) -! JVS(55110) = Jac_FULL(5258,5015) - JVS(55110) = 0 -! JVS(55111) = Jac_FULL(5258,5017) - JVS(55111) = B(19267) -! JVS(55112) = Jac_FULL(5258,5019) - JVS(55112) = 0 -! JVS(55113) = Jac_FULL(5258,5021) - JVS(55113) = B(19095) -! JVS(55114) = Jac_FULL(5258,5022) - JVS(55114) = 0 -! JVS(55115) = Jac_FULL(5258,5024) - JVS(55115) = -B(16720)-B(16722) -! JVS(55116) = Jac_FULL(5258,5025) - JVS(55116) = B(13694) -! JVS(55117) = Jac_FULL(5258,5027) - JVS(55117) = B(22994) -! JVS(55118) = Jac_FULL(5258,5028) - JVS(55118) = 0 -! JVS(55119) = Jac_FULL(5258,5029) - JVS(55119) = B(11050) -! JVS(55120) = Jac_FULL(5258,5030) - JVS(55120) = 0 -! JVS(55121) = Jac_FULL(5258,5033) - JVS(55121) = B(13798) -! JVS(55122) = Jac_FULL(5258,5034) - JVS(55122) = B(9315) -! JVS(55123) = Jac_FULL(5258,5036) - JVS(55123) = B(7936) -! JVS(55124) = Jac_FULL(5258,5037) - JVS(55124) = -B(9181) -! JVS(55125) = Jac_FULL(5258,5041) - JVS(55125) = 0 -! JVS(55126) = Jac_FULL(5258,5042) - JVS(55126) = 0 -! JVS(55127) = Jac_FULL(5258,5044) - JVS(55127) = B(20944) -! JVS(55128) = Jac_FULL(5258,5045) - JVS(55128) = 0 -! JVS(55129) = Jac_FULL(5258,5048) - JVS(55129) = 0 -! JVS(55130) = Jac_FULL(5258,5049) - JVS(55130) = -B(6659)-B(6661) -! JVS(55131) = Jac_FULL(5258,5050) - JVS(55131) = -B(6631)-B(6633) -! JVS(55132) = Jac_FULL(5258,5051) - JVS(55132) = -B(445)-B(447) -! JVS(55133) = Jac_FULL(5258,5052) - JVS(55133) = B(19416) -! JVS(55134) = Jac_FULL(5258,5054) - JVS(55134) = B(23632) -! JVS(55135) = Jac_FULL(5258,5056) - JVS(55135) = 0 -! JVS(55136) = Jac_FULL(5258,5058) - JVS(55136) = -B(5260) -! JVS(55137) = Jac_FULL(5258,5061) - JVS(55137) = 0 -! JVS(55138) = Jac_FULL(5258,5063) - JVS(55138) = 0 -! JVS(55139) = Jac_FULL(5258,5064) - JVS(55139) = 0 -! JVS(55140) = Jac_FULL(5258,5065) - JVS(55140) = 0 -! JVS(55141) = Jac_FULL(5258,5066) - JVS(55141) = -B(9418)-B(9420) -! JVS(55142) = Jac_FULL(5258,5068) - JVS(55142) = -B(9528)-B(9530) -! JVS(55143) = Jac_FULL(5258,5069) - JVS(55143) = -B(6711)-B(6713) -! JVS(55144) = Jac_FULL(5258,5071) - JVS(55144) = 0 -! JVS(55145) = Jac_FULL(5258,5072) - JVS(55145) = 0 -! JVS(55146) = Jac_FULL(5258,5074) - JVS(55146) = 0 -! JVS(55147) = Jac_FULL(5258,5075) - JVS(55147) = B(18833) -! JVS(55148) = Jac_FULL(5258,5076) - JVS(55148) = -B(8917)-B(8919) -! JVS(55149) = Jac_FULL(5258,5077) - JVS(55149) = 0 -! JVS(55150) = Jac_FULL(5258,5079) - JVS(55150) = B(16800) -! JVS(55151) = Jac_FULL(5258,5081) - JVS(55151) = 0 -! JVS(55152) = Jac_FULL(5258,5082) - JVS(55152) = 0 -! JVS(55153) = Jac_FULL(5258,5083) - JVS(55153) = -B(14431)-B(14433) -! JVS(55154) = Jac_FULL(5258,5084) - JVS(55154) = 0 -! JVS(55155) = Jac_FULL(5258,5085) - JVS(55155) = 0 -! JVS(55156) = Jac_FULL(5258,5088) - JVS(55156) = B(15263) -! JVS(55157) = Jac_FULL(5258,5089) - JVS(55157) = -B(9041)-B(9043) -! JVS(55158) = Jac_FULL(5258,5090) - JVS(55158) = B(15136) -! JVS(55159) = Jac_FULL(5258,5091) - JVS(55159) = 0 -! JVS(55160) = Jac_FULL(5258,5092) - JVS(55160) = 0 -! JVS(55161) = Jac_FULL(5258,5093) - JVS(55161) = -B(6675)-B(6677) -! JVS(55162) = Jac_FULL(5258,5095) - JVS(55162) = -B(19320)-B(19322) -! JVS(55163) = Jac_FULL(5258,5097) - JVS(55163) = 0 -! JVS(55164) = Jac_FULL(5258,5099) - JVS(55164) = B(11261) -! JVS(55165) = Jac_FULL(5258,5103) - JVS(55165) = -B(10058)-B(10060) -! JVS(55166) = Jac_FULL(5258,5104) - JVS(55166) = 0 -! JVS(55167) = Jac_FULL(5258,5106) - JVS(55167) = B(1365) -! JVS(55168) = Jac_FULL(5258,5107) - JVS(55168) = 0 -! JVS(55169) = Jac_FULL(5258,5114) - JVS(55169) = 0 -! JVS(55170) = Jac_FULL(5258,5115) - JVS(55170) = 0 -! JVS(55171) = Jac_FULL(5258,5116) - JVS(55171) = 0 -! JVS(55172) = Jac_FULL(5258,5117) - JVS(55172) = B(10873) -! JVS(55173) = Jac_FULL(5258,5119) - JVS(55173) = 0 -! JVS(55174) = Jac_FULL(5258,5122) - JVS(55174) = 0 -! JVS(55175) = Jac_FULL(5258,5123) - JVS(55175) = -B(8824)-B(8826) -! JVS(55176) = Jac_FULL(5258,5124) - JVS(55176) = -B(425) -! JVS(55177) = Jac_FULL(5258,5125) - JVS(55177) = B(1329) -! JVS(55178) = Jac_FULL(5258,5126) - JVS(55178) = -B(9297)-B(9299) -! JVS(55179) = Jac_FULL(5258,5128) - JVS(55179) = B(1497) -! JVS(55180) = Jac_FULL(5258,5131) - JVS(55180) = B(19400) -! JVS(55181) = Jac_FULL(5258,5132) - JVS(55181) = 0 -! JVS(55182) = Jac_FULL(5258,5133) - JVS(55182) = B(11642) -! JVS(55183) = Jac_FULL(5258,5137) - JVS(55183) = B(7842) -! JVS(55184) = Jac_FULL(5258,5138) - JVS(55184) = 0 -! JVS(55185) = Jac_FULL(5258,5140) - JVS(55185) = 0 -! JVS(55186) = Jac_FULL(5258,5141) - JVS(55186) = -B(10141)-B(10143) -! JVS(55187) = Jac_FULL(5258,5143) - JVS(55187) = 0 -! JVS(55188) = Jac_FULL(5258,5144) - JVS(55188) = 0 -! JVS(55189) = Jac_FULL(5258,5146) - JVS(55189) = 0 -! JVS(55190) = Jac_FULL(5258,5147) - JVS(55190) = 0 -! JVS(55191) = Jac_FULL(5258,5152) - JVS(55191) = B(8427) -! JVS(55192) = Jac_FULL(5258,5153) - JVS(55192) = -B(767)-B(769) -! JVS(55193) = Jac_FULL(5258,5154) - JVS(55193) = 0 -! JVS(55194) = Jac_FULL(5258,5155) - JVS(55194) = B(7924) -! JVS(55195) = Jac_FULL(5258,5159) - JVS(55195) = 0 -! JVS(55196) = Jac_FULL(5258,5161) - JVS(55196) = 0 -! JVS(55197) = Jac_FULL(5258,5162) - JVS(55197) = 0 -! JVS(55198) = Jac_FULL(5258,5163) - JVS(55198) = 0 -! JVS(55199) = Jac_FULL(5258,5164) - JVS(55199) = B(7805) -! JVS(55200) = Jac_FULL(5258,5165) - JVS(55200) = 0 -! JVS(55201) = Jac_FULL(5258,5166) - JVS(55201) = -B(779)-B(781)-B(783)-B(785) -! JVS(55202) = Jac_FULL(5258,5167) - JVS(55202) = B(16690) -! JVS(55203) = Jac_FULL(5258,5168) - JVS(55203) = -B(6702)-B(6704) -! JVS(55204) = Jac_FULL(5258,5169) - JVS(55204) = -B(11190)-B(11192) -! JVS(55205) = Jac_FULL(5258,5173) - JVS(55205) = 0 -! JVS(55206) = Jac_FULL(5258,5174) - JVS(55206) = 0 -! JVS(55207) = Jac_FULL(5258,5175) - JVS(55207) = -B(11253)-B(11255) -! JVS(55208) = Jac_FULL(5258,5176) - JVS(55208) = 0 -! JVS(55209) = Jac_FULL(5258,5177) - JVS(55209) = 0 -! JVS(55210) = Jac_FULL(5258,5179) - JVS(55210) = B(17482) -! JVS(55211) = Jac_FULL(5258,5180) - JVS(55211) = 0 -! JVS(55212) = Jac_FULL(5258,5181) - JVS(55212) = 0 -! JVS(55213) = Jac_FULL(5258,5183) - JVS(55213) = B(1308) -! JVS(55214) = Jac_FULL(5258,5185) - JVS(55214) = 0 -! JVS(55215) = Jac_FULL(5258,5186) - JVS(55215) = 0 -! JVS(55216) = Jac_FULL(5258,5187) - JVS(55216) = -B(22986)-B(22988) -! JVS(55217) = Jac_FULL(5258,5189) - JVS(55217) = -B(21954)-B(21956) -! JVS(55218) = Jac_FULL(5258,5190) - JVS(55218) = -B(481)-B(483) -! JVS(55219) = Jac_FULL(5258,5191) - JVS(55219) = 0 -! JVS(55220) = Jac_FULL(5258,5192) - JVS(55220) = 0 -! JVS(55221) = Jac_FULL(5258,5194) - JVS(55221) = -B(224)-B(226) -! JVS(55222) = Jac_FULL(5258,5196) - JVS(55222) = 0 -! JVS(55223) = Jac_FULL(5258,5200) - JVS(55223) = -B(433)-B(435) -! JVS(55224) = Jac_FULL(5258,5203) - JVS(55224) = 0 -! JVS(55225) = Jac_FULL(5258,5204) - JVS(55225) = 0 -! JVS(55226) = Jac_FULL(5258,5205) - JVS(55226) = -B(10529)-B(10531) -! JVS(55227) = Jac_FULL(5258,5206) - JVS(55227) = 0 -! JVS(55228) = Jac_FULL(5258,5207) - JVS(55228) = -B(11390)-B(11392) -! JVS(55229) = Jac_FULL(5258,5208) - JVS(55229) = 0 -! JVS(55230) = Jac_FULL(5258,5209) - JVS(55230) = -B(8809)-B(8811) -! JVS(55231) = Jac_FULL(5258,5211) - JVS(55231) = 0 -! JVS(55232) = Jac_FULL(5258,5212) - JVS(55232) = 0 -! JVS(55233) = Jac_FULL(5258,5213) - JVS(55233) = 0 -! JVS(55234) = Jac_FULL(5258,5214) - JVS(55234) = B(16842) -! JVS(55235) = Jac_FULL(5258,5215) - JVS(55235) = 0 -! JVS(55236) = Jac_FULL(5258,5216) - JVS(55236) = B(7898) -! JVS(55237) = Jac_FULL(5258,5217) - JVS(55237) = 0 -! JVS(55238) = Jac_FULL(5258,5218) - JVS(55238) = 0 -! JVS(55239) = Jac_FULL(5258,5219) - JVS(55239) = 0 -! JVS(55240) = Jac_FULL(5258,5220) - JVS(55240) = -B(10598)-B(10600) -! JVS(55241) = Jac_FULL(5258,5221) - JVS(55241) = 0 -! JVS(55242) = Jac_FULL(5258,5224) - JVS(55242) = 0 -! JVS(55243) = Jac_FULL(5258,5225) - JVS(55243) = 0 -! JVS(55244) = Jac_FULL(5258,5226) - JVS(55244) = -B(232)-B(234) -! JVS(55245) = Jac_FULL(5258,5227) - JVS(55245) = -B(3104)-B(3106) -! JVS(55246) = Jac_FULL(5258,5229) - JVS(55246) = 0 -! JVS(55247) = Jac_FULL(5258,5230) - JVS(55247) = 0 -! JVS(55248) = Jac_FULL(5258,5232) - JVS(55248) = B(3984) -! JVS(55249) = Jac_FULL(5258,5233) - JVS(55249) = 0 -! JVS(55250) = Jac_FULL(5258,5234) - JVS(55250) = 0 -! JVS(55251) = Jac_FULL(5258,5235) - JVS(55251) = 0 -! JVS(55252) = Jac_FULL(5258,5236) - JVS(55252) = 0 -! JVS(55253) = Jac_FULL(5258,5237) - JVS(55253) = B(7588) -! JVS(55254) = Jac_FULL(5258,5238) - JVS(55254) = 0 -! JVS(55255) = Jac_FULL(5258,5239) - JVS(55255) = 0 -! JVS(55256) = Jac_FULL(5258,5240) - JVS(55256) = 0 -! JVS(55257) = Jac_FULL(5258,5243) - JVS(55257) = B(4039) -! JVS(55258) = Jac_FULL(5258,5244) - JVS(55258) = B(1201) -! JVS(55259) = Jac_FULL(5258,5245) - JVS(55259) = B(22719) -! JVS(55260) = Jac_FULL(5258,5246) - JVS(55260) = 0 -! JVS(55261) = Jac_FULL(5258,5247) - JVS(55261) = 0 -! JVS(55262) = Jac_FULL(5258,5248) - JVS(55262) = 0 -! JVS(55263) = Jac_FULL(5258,5249) - JVS(55263) = -B(11426)-B(11428)-B(11430)-B(11432) -! JVS(55264) = Jac_FULL(5258,5250) - JVS(55264) = -B(25) -! JVS(55265) = Jac_FULL(5258,5251) - JVS(55265) = 0 -! JVS(55266) = Jac_FULL(5258,5252) - JVS(55266) = -B(13) -! JVS(55267) = Jac_FULL(5258,5253) - JVS(55267) = -B(15) -! JVS(55268) = Jac_FULL(5258,5254) - JVS(55268) = 0 -! JVS(55269) = Jac_FULL(5258,5255) - JVS(55269) = -B(33)+B(1202)+B(1309)+B(1330)+B(1366)+B(1412)+B(1446)+B(1470)+B(1498)+B(1544)+B(3012)+B(3776)+B(3810)& - &+B(3985)+B(4040)+B(5216)+B(5348)+B(5415)+B(5513)+B(5604)+B(5718)+B(5809)+B(5897)+B(6065)+B(6144)+B(6211)& - &+B(6291)+B(6363)+B(6449)+B(6545)+B(7589)+B(7603)+B(7714)+B(7806)+B(7822)+B(7843)+B(7870)+B(7899)+B(7925)& - &+B(7937)+B(8213)+B(8238)+B(8428)+B(8442)+B(8478)+B(8502)+B(8547)+B(8571)+B(8606)+B(8671)+B(8696)+B(8843)& - &+B(8901)+B(8945)+B(9021)+B(9086)+B(9163)+B(9251)+B(9316)+B(9437)+B(9548)+B(9606)+B(9670)+B(9706)+B(9800)& - &+B(9856)+B(9919)+B(10260)+B(10320)+B(10347)+B(10427)+B(10808)+B(10874)+B(10999)+B(11051)+B(11242)+B(11262)& - &+B(11643)+B(12447)+B(12514)+B(13084)+B(13376)+B(13695)+B(13799)+B(14257)+B(14273)+B(14441)+B(14457)& - &+B(14572)+B(14666)+B(14682)+B(14890)+B(14933)+B(14979)+B(15021)+B(15055)+B(15096)+B(15137)+B(15162)& - &+B(15176)+B(15264)+B(16691)+B(16801)+B(16817)+B(16843)+B(16983)+B(17034)+B(17297)+B(17469)+B(17483)& - &+B(17505)+B(17535)+B(17565)+B(17660)+B(17998)+B(18708)+B(18834)+B(18855)+B(18869)+B(18885)+B(18928)& - &+B(19096)+B(19171)+B(19268)+B(19345)+B(19362)+B(19401)+B(19417)+B(19437)+B(19451)+B(19977)+B(19996)& - &+B(20280)+B(20337)+B(20351)+B(20365)+B(20399)+B(20413)+B(20463)+B(20555)+B(20597)+B(20717)+B(20945)& - &+B(21059)+B(21777)+B(21805)+B(21843)+B(21897)+B(22012)+B(22336)+B(22371)+B(22533)+B(22599)+B(22720)& - &+B(22935)+B(22995)+B(23089)+B(23124)+B(23183)+B(23285)+B(23299)+B(23313)+B(23633)+B(23806) -! JVS(55270) = Jac_FULL(5258,5256) - JVS(55270) = 0 -! JVS(55271) = Jac_FULL(5258,5257) - JVS(55271) = -B(7484)-B(7486) -! JVS(55272) = Jac_FULL(5258,5258) - JVS(55272) = -B(5)-B(14)-B(16)-B(26)-B(34)-B(64)-B(65)-B(164)-B(166)-B(225)-B(227)-B(233)-B(235)-B(249)-B(251)-B(426)& - &-B(434)-B(436)-B(446)-B(448)-B(456)-B(462)-B(470)-B(472)-B(482)-B(484)-B(494)-B(496)-B(506)-B(508)-B(518)& - &-B(520)-B(530)-B(532)-B(542)-B(544)-B(554)-B(556)-B(566)-B(568)-B(578)-B(580)-B(588)-B(752)-B(754)-B(768)& - &-B(770)-B(780)-B(782)-B(784)-B(786)-B(869)-B(871)-B(883)-B(885)-B(895)-B(897)-B(907)-B(909)-B(911)-B(913)& - &-B(2356)-B(2410)-B(2441)-B(2485)-B(2528)-B(2584)-B(2628)-B(2671)-B(2713)-B(2754)-B(2794)-B(2825)-B(2858)& - &-B(2890)-B(2934)-B(2982)-B(3105)-B(3107)-B(3138)-B(3140)-B(3149)-B(3151)-B(4277)-B(5261)-B(5271)-B(5283)& - &-B(5322)-B(5326)-B(5461)-B(5473)-B(5552)-B(5572)-B(5645)-B(5657)-B(5677)-B(5697)-B(5776)-B(5788)-B(5856)& - &-B(5876)-B(5958)-B(5970)-B(6047)-B(6059)-B(6257)-B(6269)-B(6325)-B(6345)-B(6404)-B(6416)-B(6632)-B(6634)& - &-B(6660)-B(6662)-B(6676)-B(6678)-B(6703)-B(6705)-B(6712)-B(6714)-B(6834)-B(6836)-B(7485)-B(7487)-B(7500)& - &-B(7502)-B(7506)-B(7508)-B(7530)-B(7532)-B(8667)-B(8765)-B(8803)-B(8810)-B(8812)-B(8825)-B(8827)-B(8837)& - &-B(8918)-B(8920)-B(8930)-B(9016)-B(9042)-B(9044)-B(9054)-B(9060)-B(9158)-B(9182)-B(9248)-B(9293)-B(9298)& - &-B(9300)-B(9310)-B(9409)-B(9419)-B(9421)-B(9431)-B(9524)-B(9529)-B(9531)-B(9542)-B(9645)-B(9658)-B(9664)& - &-B(9725)-B(9727)-B(9761)-B(9989)-B(10056)-B(10059)-B(10061)-B(10128)-B(10142)-B(10144)-B(10154)-B(10498)& - &-B(10500)-B(10514)-B(10516)-B(10530)-B(10532)-B(10552)-B(10554)-B(10583)-B(10585)-B(10599)-B(10601)& - &-B(10619)-B(10621)-B(11191)-B(11193)-B(11254)-B(11256)-B(11391)-B(11393)-B(11427)-B(11429)-B(11431)& - &-B(11433)-B(12400)-B(12426)-B(12589)-B(12701)-B(12748)-B(12778)-B(12875)-B(12970)-B(13066)-B(13187)& - &-B(13284)-B(13312)-B(13343)-B(13658)-B(13678)-B(13680)-B(13779)-B(13781)-B(14432)-B(14434)-B(16721)& - &-B(16723)-B(19321)-B(19323)-B(21955)-B(21957)-B(22987)-B(22989) - -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(137)+JVS(3)*UV(5201) - JUV(2) = JVS(4)*UV(2)+JVS(5)*UV(3) - JUV(3) = JVS(6)*UV(3)+JVS(7)*UV(5)+JVS(8)*UV(3568)+JVS(9)*UV(4213)+JVS(10)*UV(4247)+JVS(11)*UV(4250)+JVS(12)*UV(4258)& - &+JVS(13)*UV(4264)+JVS(14)*UV(4282)+JVS(15)*UV(4286)+JVS(16)*UV(4302)+JVS(17)*UV(4320)+JVS(18)*UV(4526)+JVS(19)& - &*UV(4544)+JVS(20)*UV(4551)+JVS(21)*UV(4556)+JVS(22)*UV(4621)+JVS(23)*UV(4668)+JVS(24)*UV(4677)+JVS(25)& - &*UV(4678)+JVS(26)*UV(4691)+JVS(27)*UV(4741)+JVS(28)*UV(4757)+JVS(29)*UV(4776)+JVS(30)*UV(4819)+JVS(31)& - &*UV(4824)+JVS(32)*UV(4828)+JVS(33)*UV(4838)+JVS(34)*UV(4843)+JVS(35)*UV(4868)+JVS(36)*UV(4869)+JVS(37)& - &*UV(4906)+JVS(38)*UV(4908)+JVS(39)*UV(4912)+JVS(40)*UV(4919)+JVS(41)*UV(4941)+JVS(42)*UV(4943)+JVS(43)& - &*UV(4956)+JVS(44)*UV(4963)+JVS(45)*UV(4997)+JVS(46)*UV(4998)+JVS(47)*UV(4999)+JVS(48)*UV(5040)+JVS(49)& - &*UV(5047)+JVS(50)*UV(5048)+JVS(51)*UV(5070)+JVS(52)*UV(5092)+JVS(53)*UV(5102)+JVS(54)*UV(5156)+JVS(55)& - &*UV(5170)+JVS(56)*UV(5223)+JVS(57)*UV(5254) - JUV(4) = JVS(58)*UV(4)+JVS(59)*UV(5258) - JUV(5) = JVS(60)*UV(5)+JVS(61)*UV(5250)+JVS(62)*UV(5254) - JUV(6) = JVS(63)*UV(6)+JVS(64)*UV(1916) - JUV(7) = JVS(65)*UV(7)+JVS(66)*UV(3432) - JUV(8) = JVS(67)*UV(8)+JVS(68)*UV(2478) - JUV(9) = JVS(69)*UV(9)+JVS(70)*UV(285)+JVS(71)*UV(5127)+JVS(72)*UV(5250) - JUV(10) = JVS(73)*UV(10)+JVS(74)*UV(4519)+JVS(75)*UV(5250)+JVS(76)*UV(5255) - JUV(11) = JVS(77)*UV(11)+JVS(78)*UV(4114) - JUV(12) = JVS(79)*UV(12)+JVS(80)*UV(4330)+JVS(81)*UV(5250) - JUV(13) = JVS(82)*UV(13)+JVS(83)*UV(3648)+JVS(84)*UV(5250) - JUV(14) = JVS(85)*UV(14)+JVS(86)*UV(518)+JVS(87)*UV(3699)+JVS(88)*UV(5252)+JVS(89)*UV(5256) - JUV(15) = JVS(90)*UV(15)+JVS(91)*UV(245)+JVS(92)*UV(5250) - JUV(16) = JVS(93)*UV(16)+JVS(94)*UV(1412)+JVS(95)*UV(3753)+JVS(96)*UV(5252)+JVS(97)*UV(5256) - JUV(17) = JVS(98)*UV(17)+JVS(99)*UV(3518)+JVS(100)*UV(5250) - JUV(18) = JVS(101)*UV(18)+JVS(102)*UV(3632)+JVS(103)*UV(5250) - JUV(19) = JVS(104)*UV(19)+JVS(105)*UV(5002)+JVS(106)*UV(5258) - JUV(20) = JVS(107)*UV(20)+JVS(108)*UV(5095)+JVS(109)*UV(5258) - JUV(21) = JVS(110)*UV(21)+JVS(111)*UV(3428)+JVS(112)*UV(5250) - JUV(22) = JVS(113)*UV(22)+JVS(114)*UV(3798)+JVS(115)*UV(5250) - JUV(23) = JVS(116)*UV(23)+JVS(117)*UV(2854)+JVS(118)*UV(5250) - JUV(24) = JVS(119)*UV(24)+JVS(120)*UV(4092)+JVS(121)*UV(5250) - JUV(25) = JVS(122)*UV(25)+JVS(123)*UV(1761)+JVS(124)*UV(4295)+JVS(125)*UV(5252)+JVS(126)*UV(5256) - JUV(26) = JVS(127)*UV(26)+JVS(128)*UV(4426)+JVS(129)*UV(5250) - JUV(27) = JVS(130)*UV(27)+JVS(131)*UV(5083)+JVS(132)*UV(5258) - JUV(28) = JVS(133)*UV(28)+JVS(134)*UV(3982)+JVS(135)*UV(5250) - JUV(29) = JVS(136)*UV(29)+JVS(137)*UV(4976)+JVS(138)*UV(5258) - JUV(30) = JVS(139)*UV(30)+JVS(140)*UV(5247)+JVS(141)*UV(5250) - JUV(31) = JVS(142)*UV(31)+JVS(143)*UV(3531)+JVS(144)*UV(5250) - JUV(32) = JVS(145)*UV(32)+JVS(146)*UV(3721)+JVS(147)*UV(5250) - JUV(33) = JVS(148)*UV(33)+JVS(149)*UV(3714)+JVS(150)*UV(5250) - JUV(34) = JVS(151)*UV(34)+JVS(152)*UV(4099)+JVS(153)*UV(5250) - JUV(35) = JVS(154)*UV(35)+JVS(155)*UV(1028)+JVS(156)*UV(3678)+JVS(157)*UV(5252)+JVS(158)*UV(5256) - JUV(36) = JVS(159)*UV(36)+JVS(160)*UV(865)+JVS(161)*UV(4244)+JVS(162)*UV(5252)+JVS(163)*UV(5256) - JUV(37) = JVS(164)*UV(37)+JVS(165)*UV(3442)+JVS(166)*UV(5258) - JUV(38) = JVS(167)*UV(38)+JVS(168)*UV(4480)+JVS(169)*UV(5250) - JUV(39) = JVS(170)*UV(39)+JVS(171)*UV(3788)+JVS(172)*UV(5250) - JUV(40) = JVS(173)*UV(40)+JVS(174)*UV(3694)+JVS(175)*UV(5250) - JUV(41) = JVS(176)*UV(41)+JVS(177)*UV(3705)+JVS(178)*UV(5250) - JUV(42) = JVS(179)*UV(42)+JVS(180)*UV(1043)+JVS(181)*UV(3745)+JVS(182)*UV(5252)+JVS(183)*UV(5256) - JUV(43) = JVS(184)*UV(43)+JVS(185)*UV(1534)+JVS(186)*UV(3704)+JVS(187)*UV(5252)+JVS(188)*UV(5256) - JUV(44) = JVS(189)*UV(44)+JVS(190)*UV(1279)+JVS(191)*UV(4015)+JVS(192)*UV(5252)+JVS(193)*UV(5256) - JUV(45) = JVS(194)*UV(45)+JVS(195)*UV(1202)+JVS(196)*UV(3784)+JVS(197)*UV(5252)+JVS(198)*UV(5256) - JUV(46) = JVS(199)*UV(46)+JVS(200)*UV(3725)+JVS(201)*UV(5250) - JUV(47) = JVS(202)*UV(47)+JVS(203)*UV(3562)+JVS(204)*UV(5250) - JUV(48) = JVS(205)*UV(48)+JVS(206)*UV(3428)+JVS(207)*UV(5250) - JUV(49) = JVS(208)*UV(49)+JVS(209)*UV(1203)+JVS(210)*UV(3761)+JVS(211)*UV(5252)+JVS(212)*UV(5256) - JUV(50) = JVS(213)*UV(50)+JVS(214)*UV(1416)+JVS(215)*UV(3781)+JVS(216)*UV(5252)+JVS(217)*UV(5256) - JUV(51) = JVS(218)*UV(51)+JVS(219)*UV(2260)+JVS(220)*UV(4595)+JVS(221)*UV(5252)+JVS(222)*UV(5256) - JUV(52) = JVS(223)*UV(52)+JVS(224)*UV(4133)+JVS(225)*UV(5250) - JUV(53) = JVS(226)*UV(53)+JVS(227)*UV(4904)+JVS(228)*UV(5250) - JUV(54) = JVS(229)*UV(54)+JVS(230)*UV(4074)+JVS(231)*UV(5250) - JUV(55) = JVS(232)*UV(55)+JVS(233)*UV(3939)+JVS(234)*UV(5250) - JUV(56) = JVS(235)*UV(56)+JVS(236)*UV(4621)+JVS(237)*UV(5250) - JUV(57) = JVS(238)*UV(57)+JVS(239)*UV(1062)+JVS(240)*UV(3771)+JVS(241)*UV(5252)+JVS(242)*UV(5256) - JUV(58) = JVS(243)*UV(58)+JVS(244)*UV(3695)+JVS(245)*UV(5250) - JUV(59) = JVS(246)*UV(59)+JVS(247)*UV(4764)+JVS(248)*UV(5250) - JUV(60) = JVS(249)*UV(60)+JVS(250)*UV(4234)+JVS(251)*UV(5250) - JUV(61) = JVS(252)*UV(61)+JVS(253)*UV(5187)+JVS(254)*UV(5258) - JUV(62) = JVS(255)*UV(62)+JVS(256)*UV(5174)+JVS(257)*UV(5250) - JUV(63) = JVS(258)*UV(63)+JVS(259)*UV(4481)+JVS(260)*UV(5250) - JUV(64) = JVS(261)*UV(64)+JVS(262)*UV(3894)+JVS(263)*UV(5250) - JUV(65) = JVS(264)*UV(65)+JVS(265)*UV(1497)+JVS(266)*UV(3769)+JVS(267)*UV(5252)+JVS(268)*UV(5256) - JUV(66) = JVS(269)*UV(66)+JVS(270)*UV(1410)+JVS(271)*UV(3766)+JVS(272)*UV(5252)+JVS(273)*UV(5256) - JUV(67) = JVS(274)*UV(67)+JVS(275)*UV(4570)+JVS(276)*UV(5258) - JUV(68) = JVS(277)*UV(68)+JVS(278)*UV(3627)+JVS(279)*UV(5250) - JUV(69) = JVS(280)*UV(69)+JVS(281)*UV(508)+JVS(282)*UV(3710)+JVS(283)*UV(5252)+JVS(284)*UV(5256) - JUV(70) = JVS(285)*UV(70)+JVS(286)*UV(4894)+JVS(287)*UV(5250) - JUV(71) = JVS(288)*UV(71)+JVS(289)*UV(3539)+JVS(290)*UV(5250) - JUV(72) = JVS(291)*UV(72)+JVS(292)*UV(3746)+JVS(293)*UV(5250) - JUV(73) = JVS(294)*UV(73)+JVS(295)*UV(4422)+JVS(296)*UV(5250) - JUV(74) = JVS(297)*UV(74)+JVS(298)*UV(3650)+JVS(299)*UV(5250) - JUV(75) = JVS(300)*UV(75)+JVS(301)*UV(422)+JVS(302)*UV(5250) - JUV(76) = JVS(303)*UV(76)+JVS(304)*UV(989)+JVS(305)*UV(3719)+JVS(306)*UV(5252)+JVS(307)*UV(5256) - JUV(77) = JVS(308)*UV(77)+JVS(309)*UV(2932)+JVS(310)*UV(5250) - JUV(78) = JVS(311)*UV(78)+JVS(312)*UV(1435)+JVS(313)*UV(3782)+JVS(314)*UV(5252)+JVS(315)*UV(5256) - JUV(79) = JVS(316)*UV(79)+JVS(317)*UV(3981)+JVS(318)*UV(5250) - JUV(80) = JVS(319)*UV(80)+JVS(320)*UV(992)+JVS(321)*UV(3717)+JVS(322)*UV(5252)+JVS(323)*UV(5256) - JUV(81) = JVS(324)*UV(81)+JVS(325)*UV(3817)+JVS(326)*UV(5250) - JUV(82) = JVS(327)*UV(82)+JVS(328)*UV(963)+JVS(329)*UV(3714)+JVS(330)*UV(5252)+JVS(331)*UV(5256) - JUV(83) = JVS(332)*UV(83)+JVS(333)*UV(4216)+JVS(334)*UV(5250) - JUV(84) = JVS(335)*UV(84)+JVS(336)*UV(3534)+JVS(337)*UV(5250) - JUV(85) = JVS(338)*UV(85)+JVS(339)*UV(4507)+JVS(340)*UV(5250) - JUV(86) = JVS(341)*UV(86)+JVS(342)*UV(5228)+JVS(343)*UV(5253) - JUV(87) = JVS(344)*UV(87)+JVS(345)*UV(4394)+JVS(346)*UV(5250) - JUV(88) = JVS(347)*UV(88)+JVS(348)*UV(594)+JVS(349)*UV(4077)+JVS(350)*UV(5252)+JVS(351)*UV(5256) - JUV(89) = JVS(352)*UV(89)+JVS(353)*UV(4068)+JVS(354)*UV(5250) - JUV(90) = JVS(355)*UV(90)+JVS(356)*UV(3771)+JVS(357)*UV(5250) - JUV(91) = JVS(358)*UV(91)+JVS(359)*UV(1282)+JVS(360)*UV(3674)+JVS(361)*UV(5252)+JVS(362)*UV(5256) - JUV(92) = JVS(363)*UV(92)+JVS(364)*UV(1359)+JVS(365)*UV(3983)+JVS(366)*UV(5252)+JVS(367)*UV(5256) - JUV(93) = JVS(368)*UV(93)+JVS(369)*UV(3782)+JVS(370)*UV(5250) - JUV(94) = JVS(371)*UV(94)+JVS(372)*UV(3786)+JVS(373)*UV(5250) - JUV(95) = JVS(374)*UV(95)+JVS(375)*UV(4091)+JVS(376)*UV(5250) - JUV(96) = JVS(377)*UV(96)+JVS(378)*UV(1397)+JVS(379)*UV(4042)+JVS(380)*UV(5252)+JVS(381)*UV(5256) - JUV(97) = JVS(382)*UV(97)+JVS(383)*UV(324)+JVS(384)*UV(3711)+JVS(385)*UV(5252)+JVS(386)*UV(5256) - JUV(98) = JVS(387)*UV(98)+JVS(388)*UV(4482)+JVS(389)*UV(5250) - JUV(99) = JVS(390)*UV(99)+JVS(391)*UV(5104)+JVS(392)*UV(5250) - JUV(100) = JVS(393)*UV(100)+JVS(394)*UV(3752)+JVS(395)*UV(5250) - JUV(101) = JVS(396)*UV(101)+JVS(397)*UV(4423)+JVS(398)*UV(5250) - JUV(102) = JVS(399)*UV(102)+JVS(400)*UV(4529)+JVS(401)*UV(5250) - JUV(103) = JVS(402)*UV(103)+JVS(403)*UV(3769)+JVS(404)*UV(5250) - JUV(104) = JVS(405)*UV(104)+JVS(406)*UV(4090)+JVS(407)*UV(5250) - JUV(105) = JVS(408)*UV(105)+JVS(409)*UV(5219)+JVS(410)*UV(5250) - JUV(106) = JVS(411)*UV(106)+JVS(412)*UV(3753)+JVS(413)*UV(5250) - JUV(107) = JVS(414)*UV(107)+JVS(415)*UV(459)+JVS(416)*UV(3770)+JVS(417)*UV(5252)+JVS(418)*UV(5256) - JUV(108) = JVS(419)*UV(108)+JVS(420)*UV(4748)+JVS(421)*UV(5250) - JUV(109) = JVS(422)*UV(109)+JVS(423)*UV(3491)+JVS(424)*UV(5250) - JUV(110) = JVS(425)*UV(110)+JVS(426)*UV(4828)+JVS(427)*UV(5250) - JUV(111) = JVS(428)*UV(111)+JVS(429)*UV(3489)+JVS(430)*UV(5250) - JUV(112) = JVS(431)*UV(112)+JVS(432)*UV(5189)+JVS(433)*UV(5258) - JUV(113) = JVS(434)*UV(113)+JVS(435)*UV(1333)+JVS(436)*UV(3951)+JVS(437)*UV(5252)+JVS(438)*UV(5256) - JUV(114) = JVS(439)*UV(114)+JVS(440)*UV(4963)+JVS(441)*UV(5250) - JUV(115) = JVS(442)*UV(115)+JVS(443)*UV(1956)+JVS(444)*UV(4687)+JVS(445)*UV(5252)+JVS(446)*UV(5256) - JUV(116) = JVS(447)*UV(116)+JVS(448)*UV(521)+JVS(449)*UV(3675)+JVS(450)*UV(5252)+JVS(451)*UV(5256) - JUV(117) = JVS(452)*UV(117)+JVS(453)*UV(1075)+JVS(454)*UV(3785)+JVS(455)*UV(5252)+JVS(456)*UV(5256) - JUV(118) = JVS(457)*UV(118)+JVS(458)*UV(4734)+JVS(459)*UV(5250) - JUV(119) = JVS(460)*UV(119)+JVS(461)*UV(3503)+JVS(462)*UV(5250) - JUV(120) = JVS(463)*UV(120)+JVS(464)*UV(398)+JVS(465)*UV(3697)+JVS(466)*UV(5252)+JVS(467)*UV(5256) - JUV(121) = JVS(468)*UV(121)+JVS(469)*UV(5084)+JVS(470)*UV(5250) - JUV(122) = JVS(471)*UV(23)+JVS(472)*UV(122)+JVS(474)*UV(5250) - JUV(123) = JVS(475)*UV(123)+JVS(476)*UV(3160)+JVS(477)*UV(5250) - JUV(124) = JVS(478)*UV(124)+JVS(479)*UV(3511)+JVS(480)*UV(5250) - JUV(125) = JVS(481)*UV(125)+JVS(482)*UV(1089)+JVS(483)*UV(3706)+JVS(484)*UV(5252)+JVS(485)*UV(5256) - JUV(126) = JVS(486)*UV(126)+JVS(487)*UV(4411)+JVS(488)*UV(5250) - JUV(127) = JVS(489)*UV(127)+JVS(490)*UV(3886)+JVS(491)*UV(5250) - JUV(128) = JVS(492)*UV(128)+JVS(493)*UV(4167)+JVS(494)*UV(5250) - JUV(129) = JVS(495)*UV(129)+JVS(496)*UV(3527)+JVS(497)*UV(5250) - JUV(130) = JVS(498)*UV(130)+JVS(499)*UV(491)+JVS(500)*UV(3740)+JVS(501)*UV(5252)+JVS(502)*UV(5256) - JUV(131) = JVS(503)*UV(131)+JVS(504)*UV(4805)+JVS(505)*UV(5258) - JUV(132) = JVS(506)*UV(132)+JVS(507)*UV(1032)+JVS(508)*UV(3730)+JVS(509)*UV(5252)+JVS(510)*UV(5256) - JUV(133) = JVS(511)*UV(133)+JVS(512)*UV(4121)+JVS(513)*UV(5250) - JUV(134) = JVS(514)*UV(134)+JVS(515)*UV(4319)+JVS(516)*UV(5250) - JUV(135) = JVS(517)*UV(135)+JVS(518)*UV(4028)+JVS(519)*UV(5250) - JUV(136) = JVS(520)*UV(136)+JVS(521)*UV(3538)+JVS(522)*UV(5250) - JUV(137) = JVS(523)*UV(137)+JVS(524)*UV(5253)+JVS(525)*UV(5256) - JUV(138) = JVS(526)*UV(138)+JVS(527)*UV(2143)+JVS(528)*UV(4257)+JVS(529)*UV(5252)+JVS(530)*UV(5256) - JUV(139) = JVS(531)*UV(139)+JVS(532)*UV(4878)+JVS(533)*UV(5250) - JUV(140) = JVS(534)*UV(140)+JVS(535)*UV(1374)+JVS(536)*UV(3768)+JVS(537)*UV(5252)+JVS(538)*UV(5256) - JUV(141) = JVS(539)*UV(141)+JVS(540)*UV(1192)+JVS(541)*UV(5059)+JVS(542)*UV(5252)+JVS(543)*UV(5256) - JUV(142) = JVS(544)*UV(142)+JVS(545)*UV(3478)+JVS(546)*UV(5250) - JUV(143) = JVS(547)*UV(143)+JVS(548)*UV(3554)+JVS(549)*UV(5250) - JUV(144) = JVS(550)*UV(144)+JVS(551)*UV(5056)+JVS(552)*UV(5250) - JUV(145) = JVS(553)*UV(145)+JVS(554)*UV(405)+JVS(555)*UV(4240)+JVS(556)*UV(5252)+JVS(557)*UV(5256) - JUV(146) = JVS(558)*UV(146)+JVS(559)*UV(1383)+JVS(560)*UV(4898)+JVS(561)*UV(5252)+JVS(562)*UV(5256) - JUV(147) = JVS(563)*UV(147)+JVS(564)*UV(640)+JVS(565)*UV(5250) - JUV(148) = JVS(566)*UV(148)+JVS(567)*UV(5169)+JVS(568)*UV(5258) - JUV(149) = JVS(569)*UV(149)+JVS(570)*UV(830)+JVS(571)*UV(1657)+JVS(572)*UV(4043)+JVS(573)*UV(5252)+JVS(574)*UV(5256) - JUV(150) = JVS(575)*UV(150)+JVS(576)*UV(1954)+JVS(577)*UV(3288)+JVS(578)*UV(4583)+JVS(579)*UV(5252)+JVS(580)*UV(5256) - JUV(151) = JVS(581)*UV(151)+JVS(582)*UV(1004)+JVS(583)*UV(2157)+JVS(584)*UV(3789)+JVS(585)*UV(5252)+JVS(586)*UV(5256) - JUV(152) = JVS(587)*UV(26)+JVS(588)*UV(152)+JVS(589)*UV(1464)+JVS(590)*UV(4426)+JVS(591)*UV(5250)+JVS(592)*UV(5252)& - &+JVS(593)*UV(5256) - JUV(153) = JVS(594)*UV(153)+JVS(595)*UV(1800)+JVS(596)*UV(2391)+JVS(597)*UV(5185)+JVS(598)*UV(5252)+JVS(599)*UV(5256) - JUV(154) = JVS(600)*UV(154)+JVS(601)*UV(736)+JVS(602)*UV(1057)+JVS(603)*UV(4078)+JVS(604)*UV(5252)+JVS(605)*UV(5256) - JUV(155) = JVS(606)*UV(155)+JVS(607)*UV(1987)+JVS(608)*UV(2416)+JVS(609)*UV(4942)+JVS(610)*UV(5252)+JVS(611)*UV(5256) - JUV(156) = JVS(612)*UV(156)+JVS(613)*UV(1178)+JVS(614)*UV(1771)+JVS(615)*UV(5041)+JVS(616)*UV(5252)+JVS(617)*UV(5256) - JUV(157) = JVS(618)*UV(157)+JVS(619)*UV(1339)+JVS(620)*UV(1883)+JVS(621)*UV(3743)+JVS(622)*UV(5252)+JVS(623)*UV(5256) - JUV(158) = JVS(624)*UV(158)+JVS(625)*UV(880)+JVS(626)*UV(1996)+JVS(627)*UV(5084)+JVS(628)*UV(5252)+JVS(629)*UV(5256) - JUV(159) = JVS(630)*UV(159)+JVS(631)*UV(949)+JVS(632)*UV(2079)+JVS(633)*UV(3901)+JVS(634)*UV(5252)+JVS(635)*UV(5256) - JUV(160) = JVS(636)*UV(160)+JVS(637)*UV(2227)+JVS(638)*UV(2285)+JVS(639)*UV(5163)+JVS(640)*UV(5252)+JVS(641)*UV(5256) - JUV(161) = JVS(642)*UV(161)+JVS(643)*UV(1267)+JVS(644)*UV(1919)+JVS(645)*UV(4766)+JVS(646)*UV(5252)+JVS(647)*UV(5256) - JUV(162) = JVS(648)*UV(162)+JVS(649)*UV(1135)+JVS(650)*UV(2352)+JVS(651)*UV(3962)+JVS(652)*UV(5252)+JVS(653)*UV(5256) - JUV(163) = JVS(654)*UV(101)+JVS(655)*UV(163)+JVS(656)*UV(973)+JVS(657)*UV(4423)+JVS(658)*UV(5250)+JVS(659)*UV(5252)& - &+JVS(660)*UV(5256) - JUV(164) = JVS(661)*UV(98)+JVS(662)*UV(164)+JVS(663)*UV(1357)+JVS(664)*UV(4482)+JVS(665)*UV(5250)+JVS(666)*UV(5252)& - &+JVS(667)*UV(5256) - JUV(165) = JVS(668)*UV(165)+JVS(669)*UV(1751)+JVS(670)*UV(2277)+JVS(671)*UV(4696)+JVS(672)*UV(5252)+JVS(673)*UV(5256) - JUV(166) = JVS(674)*UV(166)+JVS(675)*UV(1501)+JVS(676)*UV(1831)+JVS(677)*UV(4586)+JVS(678)*UV(5252)+JVS(679)*UV(5256) - JUV(167) = JVS(680)*UV(167)+JVS(681)*UV(2213)+JVS(682)*UV(2401)+JVS(683)*UV(4356)+JVS(684)*UV(5252)+JVS(685)*UV(5256) - JUV(168) = JVS(686)*UV(168)+JVS(687)*UV(1070)+JVS(688)*UV(2063)+JVS(689)*UV(3703)+JVS(690)*UV(5252)+JVS(691)*UV(5256) - JUV(169) = JVS(692)*UV(40)+JVS(693)*UV(169)+JVS(694)*UV(935)+JVS(695)*UV(3694)+JVS(696)*UV(5250)+JVS(697)*UV(5252)& - &+JVS(698)*UV(5256) - JUV(170) = JVS(699)*UV(53)+JVS(700)*UV(170)+JVS(701)*UV(994)+JVS(702)*UV(4904)+JVS(703)*UV(5250)+JVS(704)*UV(5252)& - &+JVS(705)*UV(5256) - JUV(171) = JVS(706)*UV(171)+JVS(707)*UV(2086)+JVS(708)*UV(2422)+JVS(709)*UV(5109)+JVS(710)*UV(5252)+JVS(711)*UV(5256) - JUV(172) = JVS(712)*UV(172)+JVS(713)*UV(1128)+JVS(714)*UV(2108)+JVS(715)*UV(5206)+JVS(716)*UV(5252)+JVS(717)*UV(5256) - JUV(173) = JVS(718)*UV(173)+JVS(719)*UV(1328)+JVS(720)*UV(2444)+JVS(721)*UV(3841)+JVS(722)*UV(5252)+JVS(723)*UV(5256) - JUV(174) = JVS(724)*UV(174)+JVS(725)*UV(1119)+JVS(726)*UV(1551)+JVS(727)*UV(3686)+JVS(728)*UV(5252)+JVS(729)*UV(5256) - JUV(175) = JVS(730)*UV(175)+JVS(731)*UV(2083)+JVS(732)*UV(2400)+JVS(733)*UV(5161)+JVS(734)*UV(5252)+JVS(735)*UV(5256) - JUV(176) = JVS(736)*UV(176)+JVS(737)*UV(653)+JVS(738)*UV(840)+JVS(739)*UV(3733)+JVS(740)*UV(5252)+JVS(741)*UV(5256) - JUV(177) = JVS(742)*UV(177)+JVS(743)*UV(1491)+JVS(744)*UV(2161)+JVS(745)*UV(5144)+JVS(746)*UV(5252)+JVS(747)*UV(5256) - JUV(178) = JVS(748)*UV(178)+JVS(749)*UV(872)+JVS(750)*UV(1972)+JVS(751)*UV(3698)+JVS(752)*UV(5252)+JVS(753)*UV(5256) - JUV(179) = JVS(754)*UV(179)+JVS(755)*UV(2365)+JVS(756)*UV(3222)+JVS(757)*UV(5151)+JVS(758)*UV(5252)+JVS(759)*UV(5256) - JUV(180) = JVS(760)*UV(180)+JVS(761)*UV(1237)+JVS(762)*UV(2155)+JVS(763)*UV(4197)+JVS(764)*UV(5252)+JVS(765)*UV(5256) - JUV(181) = JVS(766)*UV(181)+JVS(767)*UV(5250) - JUV(182) = JVS(768)*UV(182)+JVS(769)*UV(1260)+JVS(770)*UV(2458)+JVS(771)*UV(5196)+JVS(772)*UV(5252)+JVS(773)*UV(5256) - JUV(183) = JVS(774)*UV(183)+JVS(775)*UV(1195)+JVS(776)*UV(2250)+JVS(777)*UV(5114)+JVS(778)*UV(5252)+JVS(779)*UV(5256) - JUV(184) = JVS(780)*UV(184)+JVS(781)*UV(870)+JVS(782)*UV(2094)+JVS(783)*UV(5146)+JVS(784)*UV(5252)+JVS(785)*UV(5256) - JUV(185) = JVS(786)*UV(185)+JVS(787)*UV(1841)+JVS(788)*UV(2269)+JVS(789)*UV(4581)+JVS(790)*UV(5252)+JVS(791)*UV(5256) - JUV(186) = JVS(792)*UV(186)+JVS(793)*UV(1052)+JVS(794)*UV(2432)+JVS(795)*UV(5138)+JVS(796)*UV(5252)+JVS(797)*UV(5256) - JUV(187) = JVS(798)*UV(187)+JVS(799)*UV(1286)+JVS(800)*UV(1629)+JVS(801)*UV(4088)+JVS(802)*UV(5252)+JVS(803)*UV(5256) - JUV(188) = JVS(804)*UV(188)+JVS(805)*UV(1536)+JVS(806)*UV(1889)+JVS(807)*UV(3952)+JVS(808)*UV(5252)+JVS(809)*UV(5256) - JUV(189) = JVS(810)*UV(189)+JVS(811)*UV(1523)+JVS(812)*UV(2165)+JVS(813)*UV(4940)+JVS(814)*UV(5252)+JVS(815)*UV(5256) - JUV(190) = JVS(816)*UV(190)+JVS(817)*UV(1149)+JVS(818)*UV(1591)+JVS(819)*UV(3764)+JVS(820)*UV(5252)+JVS(821)*UV(5256) - JUV(191) = JVS(822)*UV(191)+JVS(823)*UV(1413)+JVS(824)*UV(1649)+JVS(825)*UV(3722)+JVS(826)*UV(5252)+JVS(827)*UV(5256) - JUV(192) = JVS(828)*UV(192)+JVS(829)*UV(1079)+JVS(830)*UV(1824)+JVS(831)*UV(5107)+JVS(832)*UV(5252)+JVS(833)*UV(5256) - JUV(193) = JVS(834)*UV(193)+JVS(835)*UV(879)+JVS(836)*UV(2328)+JVS(837)*UV(3858)+JVS(838)*UV(5252)+JVS(839)*UV(5256) - JUV(194) = JVS(840)*UV(194)+JVS(841)*UV(4107)+JVS(842)*UV(5013)+JVS(843)*UV(5218)+JVS(844)*UV(5252)+JVS(845)*UV(5256) - JUV(195) = JVS(846)*UV(195)+JVS(847)*UV(1262)+JVS(848)*UV(1980)+JVS(849)*UV(4880)+JVS(850)*UV(5252)+JVS(851)*UV(5256) - JUV(196) = JVS(852)*UV(196)+JVS(853)*UV(848)+JVS(854)*UV(2113)+JVS(855)*UV(5065)+JVS(856)*UV(5252)+JVS(857)*UV(5256) - JUV(197) = JVS(858)*UV(197)+JVS(859)*UV(1259)+JVS(860)*UV(2216)+JVS(861)*UV(5112)+JVS(862)*UV(5252)+JVS(863)*UV(5256) - JUV(198) = JVS(864)*UV(198)+JVS(865)*UV(5250) - JUV(199) = JVS(866)*UV(199)+JVS(867)*UV(1205)+JVS(868)*UV(2061)+JVS(869)*UV(5236)+JVS(870)*UV(5252)+JVS(871)*UV(5256) - JUV(200) = JVS(872)*UV(200)+JVS(873)*UV(1829)+JVS(874)*UV(2331)+JVS(875)*UV(4251)+JVS(876)*UV(5252)+JVS(877)*UV(5256) - JUV(201) = JVS(878)*UV(201)+JVS(879)*UV(562)+JVS(880)*UV(1284)+JVS(881)*UV(3720)+JVS(882)*UV(5252)+JVS(883)*UV(5256) - JUV(202) = JVS(884)*UV(202)+JVS(885)*UV(1966)+JVS(886)*UV(2168)+JVS(887)*UV(4733)+JVS(888)*UV(5252)+JVS(889)*UV(5256) - JUV(203) = JVS(890)*UV(203)+JVS(891)*UV(1463)+JVS(892)*UV(2224)+JVS(893)*UV(3908)+JVS(894)*UV(5252)+JVS(895)*UV(5256) - JUV(204) = JVS(896)*UV(72)+JVS(897)*UV(204)+JVS(898)*UV(1335)+JVS(899)*UV(3746)+JVS(900)*UV(5250)+JVS(901)*UV(5252)& - &+JVS(902)*UV(5256) - JUV(205) = JVS(903)*UV(205)+JVS(904)*UV(2169)+JVS(905)*UV(2264)+JVS(906)*UV(5082)+JVS(907)*UV(5252)+JVS(908)*UV(5256) - JUV(206) = JVS(909)*UV(30)+JVS(910)*UV(206)+JVS(911)*UV(871)+JVS(912)*UV(5247)+JVS(913)*UV(5250)+JVS(914)*UV(5252)& - &+JVS(915)*UV(5256) - JUV(207) = JVS(916)*UV(207)+JVS(917)*UV(4848)+JVS(918)*UV(5250)+JVS(919)*UV(5255) - JUV(208) = JVS(920)*UV(208)+JVS(921)*UV(4127)+JVS(922)*UV(5250) - JUV(209) = JVS(923)*UV(209)+JVS(924)*UV(4580)+JVS(925)*UV(5250) - JUV(210) = JVS(926)*UV(210)+JVS(927)*UV(4484)+JVS(928)*UV(5250)+JVS(929)*UV(5255) - JUV(211) = JVS(930)*UV(108)+JVS(931)*UV(211)+JVS(932)*UV(1331)+JVS(933)*UV(2195)+JVS(934)*UV(4748)+JVS(935)*UV(5250)& - &+JVS(936)*UV(5252)+JVS(937)*UV(5256) - JUV(212) = JVS(938)*UV(212)+JVS(939)*UV(3740)+JVS(940)*UV(5250) - JUV(213) = JVS(941)*UV(213)+JVS(942)*UV(3951)+JVS(943)*UV(5250) - JUV(214) = JVS(944)*UV(214)+JVS(945)*UV(3832)+JVS(946)*UV(5258) - JUV(215) = JVS(947)*UV(215)+JVS(948)*UV(4431)+JVS(949)*UV(5250)+JVS(950)*UV(5255) - JUV(216) = JVS(951)*UV(216)+JVS(952)*UV(3456)+JVS(953)*UV(5250)+JVS(954)*UV(5253) - JUV(217) = JVS(955)*UV(217)+JVS(956)*UV(3621)+JVS(957)*UV(5250) - JUV(218) = JVS(958)*UV(218)+JVS(959)*UV(3902)+JVS(960)*UV(5250) - JUV(219) = JVS(961)*UV(219)+JVS(962)*UV(4567)+JVS(963)*UV(5250) - JUV(220) = JVS(964)*UV(220)+JVS(965)*UV(4334)+JVS(966)*UV(5250) - JUV(221) = JVS(967)*UV(221)+JVS(968)*UV(5238)+JVS(969)*UV(5250) - JUV(222) = JVS(970)*UV(222)+JVS(971)*UV(4862)+JVS(972)*UV(5250)+JVS(973)*UV(5255) - JUV(223) = JVS(974)*UV(223)+JVS(975)*UV(3688)+JVS(976)*UV(5250) - JUV(224) = JVS(977)*UV(224)+JVS(978)*UV(5175)+JVS(979)*UV(5258) - JUV(225) = JVS(980)*UV(225)+JVS(981)*UV(3523)+JVS(982)*UV(5250) - JUV(226) = JVS(983)*UV(226)+JVS(984)*UV(5091)+JVS(985)*UV(5250) - JUV(227) = JVS(986)*UV(227)+JVS(987)*UV(4375)+JVS(988)*UV(5250)+JVS(989)*UV(5255) - JUV(228) = JVS(990)*UV(228)+JVS(991)*UV(5109)+JVS(992)*UV(5250) - JUV(229) = JVS(993)*UV(229)+JVS(994)*UV(3405)+JVS(995)*UV(5250) - JUV(230) = JVS(996)*UV(230)+JVS(997)*UV(4642)+JVS(998)*UV(5250)+JVS(999)*UV(5255) - JUV(231) = JVS(1000)*UV(231)+JVS(1001)*UV(3758)+JVS(1002)*UV(5250) - JUV(232) = JVS(1003)*UV(232)+JVS(1004)*UV(2010)+JVS(1005)*UV(4364)+JVS(1006)*UV(5250) - JUV(233) = JVS(1007)*UV(233)+JVS(1008)*UV(3669)+JVS(1009)*UV(5250) - JUV(234) = JVS(1010)*UV(234)+JVS(1011)*UV(4586)+JVS(1012)*UV(5250) - JUV(235) = JVS(1013)*UV(235)+JVS(1014)*UV(5238)+JVS(1015)*UV(5250) - JUV(236) = JVS(1016)*UV(236)+JVS(1017)*UV(5257)+JVS(1018)*UV(5258) - JUV(237) = JVS(1019)*UV(237)+JVS(1020)*UV(5237)+JVS(1021)*UV(5250)+JVS(1022)*UV(5255) - JUV(238) = JVS(1023)*UV(238)+JVS(1024)*UV(3670)+JVS(1025)*UV(5250) - JUV(239) = JVS(1026)*UV(239)+JVS(1027)*UV(4474)+JVS(1028)*UV(5258) - JUV(240) = JVS(1029)*UV(240)+JVS(1030)*UV(4629)+JVS(1031)*UV(5250)+JVS(1032)*UV(5255) - JUV(241) = JVS(1033)*UV(241)+JVS(1034)*UV(4638)+JVS(1035)*UV(5250)+JVS(1036)*UV(5255) - JUV(242) = JVS(1037)*UV(242)+JVS(1038)*UV(4733)+JVS(1039)*UV(5250) - JUV(243) = JVS(1040)*UV(243)+JVS(1041)*UV(3517)+JVS(1042)*UV(5258) - JUV(244) = JVS(1043)*UV(244)+JVS(1044)*UV(3380)+JVS(1045)*UV(5250) - JUV(245) = JVS(1046)*UV(245)+JVS(1047)*UV(2548)+JVS(1048)*UV(5250) - JUV(246) = JVS(1049)*UV(246)+JVS(1050)*UV(5059)+JVS(1051)*UV(5250) - JUV(247) = JVS(1052)*UV(247)+JVS(1053)*UV(4315)+JVS(1054)*UV(5250) - JUV(248) = JVS(1055)*UV(248)+JVS(1056)*UV(4088)+JVS(1057)*UV(5250) - JUV(249) = JVS(1058)*UV(249)+JVS(1059)*UV(5195)+JVS(1060)*UV(5250) - JUV(250) = JVS(1061)*UV(250)+JVS(1062)*UV(5250) - JUV(251) = JVS(1063)*UV(251)+JVS(1064)*UV(5014)+JVS(1065)*UV(5250)+JVS(1066)*UV(5255) - JUV(252) = JVS(1067)*UV(252)+JVS(1068)*UV(5027)+JVS(1069)*UV(5250)+JVS(1070)*UV(5255) - JUV(253) = JVS(1071)*UV(253)+JVS(1072)*UV(5238)+JVS(1073)*UV(5250) - JUV(254) = JVS(1074)*UV(28)+JVS(1075)*UV(254)+JVS(1076)*UV(1470)+JVS(1077)*UV(3034)+JVS(1078)*UV(3982)+JVS(1079)& - &*UV(5250)+JVS(1080)*UV(5252)+JVS(1081)*UV(5256) - JUV(255) = JVS(1082)*UV(255)+JVS(1083)*UV(4977)+JVS(1084)*UV(5250)+JVS(1085)*UV(5255) - JUV(256) = JVS(1086)*UV(256)+JVS(1087)*UV(4363)+JVS(1088)*UV(5250) - JUV(257) = JVS(1089)*UV(257)+JVS(1090)*UV(3686)+JVS(1091)*UV(5250) - JUV(258) = JVS(1092)*UV(258)+JVS(1093)*UV(4962)+JVS(1094)*UV(5250)+JVS(1095)*UV(5255) - JUV(259) = JVS(1096)*UV(259)+JVS(1097)*UV(3396)+JVS(1098)*UV(5250) - JUV(260) = JVS(1099)*UV(260)+JVS(1100)*UV(5231)+JVS(1101)*UV(5233)+JVS(1102)*UV(5250) - JUV(261) = JVS(1103)*UV(261)+JVS(1104)*UV(2590)+JVS(1105)*UV(5154)+JVS(1106)*UV(5252) - JUV(262) = JVS(1107)*UV(262)+JVS(1108)*UV(3507)+JVS(1109)*UV(5250) - JUV(263) = JVS(1110)*UV(263)+JVS(1111)*UV(3975)+JVS(1112)*UV(5250) - JUV(264) = JVS(1113)*UV(264)+JVS(1114)*UV(3305)+JVS(1115)*UV(5250)+JVS(1116)*UV(5253) - JUV(265) = JVS(1117)*UV(265)+JVS(1118)*UV(5021)+JVS(1119)*UV(5250)+JVS(1120)*UV(5255) - JUV(266) = JVS(1121)*UV(266)+JVS(1122)*UV(3764)+JVS(1123)*UV(5250) - JUV(267) = JVS(1124)*UV(267)+JVS(1125)*UV(3770)+JVS(1126)*UV(5250) - JUV(268) = JVS(1127)*UV(268)+JVS(1128)*UV(4019)+JVS(1129)*UV(5250) - JUV(269) = JVS(1130)*UV(269)+JVS(1131)*UV(5144)+JVS(1132)*UV(5250) - JUV(270) = JVS(1133)*UV(270)+JVS(1134)*UV(5238)+JVS(1135)*UV(5250) - JUV(271) = JVS(1136)*UV(271)+JVS(1137)*UV(599)+JVS(1138)*UV(2002)+JVS(1139)*UV(2313)+JVS(1140)*UV(5198)+JVS(1141)& - &*UV(5252)+JVS(1142)*UV(5256) - JUV(272) = JVS(1143)*UV(272)+JVS(1144)*UV(4222)+JVS(1145)*UV(5250)+JVS(1146)*UV(5255) - JUV(273) = JVS(1147)*UV(273)+JVS(1148)*UV(3675)+JVS(1149)*UV(5250) - JUV(274) = JVS(1150)*UV(274)+JVS(1151)*UV(3803)+JVS(1152)*UV(5250) - JUV(275) = JVS(1153)*UV(275)+JVS(1154)*UV(4679)+JVS(1155)*UV(5250)+JVS(1156)*UV(5255) - JUV(276) = JVS(1157)*UV(276)+JVS(1158)*UV(4187)+JVS(1159)*UV(5250)+JVS(1160)*UV(5255) - JUV(277) = JVS(1161)*UV(277)+JVS(1162)*UV(3481)+JVS(1163)*UV(5250) - JUV(278) = JVS(1164)*UV(278)+JVS(1165)*UV(4814)+JVS(1166)*UV(5250) - JUV(279) = JVS(1167)*UV(279)+JVS(1168)*UV(4131)+JVS(1169)*UV(5250) - JUV(280) = JVS(1170)*UV(280)+JVS(1171)*UV(5088)+JVS(1172)*UV(5250)+JVS(1173)*UV(5255) - JUV(281) = JVS(1174)*UV(281)+JVS(1175)*UV(4762)+JVS(1176)*UV(5250) - JUV(282) = JVS(1177)*UV(282)+JVS(1178)*UV(4979)+JVS(1179)*UV(5250)+JVS(1180)*UV(5255) - JUV(283) = JVS(1181)*UV(283)+JVS(1182)*UV(3794)+JVS(1183)*UV(5250) - JUV(284) = JVS(1184)*UV(284)+JVS(1185)*UV(4357)+JVS(1186)*UV(5250) - JUV(285) = JVS(1187)*UV(285)+JVS(1188)*UV(4778)+JVS(1189)*UV(5250) - JUV(286) = JVS(1190)*UV(286)+JVS(1191)*UV(5185)+JVS(1192)*UV(5250) - JUV(287) = JVS(1193)*UV(287)+JVS(1194)*UV(4808)+JVS(1195)*UV(5250)+JVS(1196)*UV(5255) - JUV(288) = JVS(1197)*UV(288)+JVS(1198)*UV(5238)+JVS(1199)*UV(5250) - JUV(289) = JVS(1200)*UV(289)+JVS(1201)*UV(5120)+JVS(1202)*UV(5250) - JUV(290) = JVS(1203)*UV(83)+JVS(1204)*UV(290)+JVS(1205)*UV(826)+JVS(1206)*UV(2257)+JVS(1207)*UV(4216)+JVS(1208)& - &*UV(5250)+JVS(1209)*UV(5252)+JVS(1210)*UV(5256) - JUV(291) = JVS(1211)*UV(291)+JVS(1212)*UV(4771)+JVS(1213)*UV(5250)+JVS(1214)*UV(5255) - JUV(292) = JVS(1215)*UV(292)+JVS(1216)*UV(4003)+JVS(1217)*UV(5250) - JUV(293) = JVS(1218)*UV(293)+JVS(1219)*UV(4492)+JVS(1220)*UV(5258) - JUV(294) = JVS(1221)*UV(294)+JVS(1222)*UV(4955)+JVS(1223)*UV(5250)+JVS(1224)*UV(5255) - JUV(295) = JVS(1225)*UV(295)+JVS(1226)*UV(3690)+JVS(1227)*UV(5250) - JUV(296) = JVS(1228)*UV(296)+JVS(1229)*UV(3882)+JVS(1230)*UV(5250) - JUV(297) = JVS(1231)*UV(134)+JVS(1232)*UV(297)+JVS(1233)*UV(1155)+JVS(1234)*UV(2327)+JVS(1235)*UV(4319)+JVS(1236)& - &*UV(5250)+JVS(1237)*UV(5252)+JVS(1238)*UV(5256) - JUV(298) = JVS(1239)*UV(298)+JVS(1240)*UV(4981)+JVS(1241)*UV(5250) - JUV(299) = JVS(1242)*UV(299)+JVS(1243)*UV(3697)+JVS(1244)*UV(5250) - JUV(300) = JVS(1245)*UV(300)+JVS(1246)*UV(454)+JVS(1247)*UV(1324)+JVS(1248)*UV(3741)+JVS(1249)*UV(5250)+JVS(1250)& - &*UV(5252)+JVS(1251)*UV(5256) - JUV(301) = JVS(1252)*UV(301)+JVS(1253)*UV(5179)+JVS(1254)*UV(5250)+JVS(1255)*UV(5255) - JUV(302) = JVS(1256)*UV(302)+JVS(1257)*UV(5022)+JVS(1258)*UV(5250) - JUV(303) = JVS(1259)*UV(303)+JVS(1260)*UV(3720)+JVS(1261)*UV(5250) - JUV(304) = JVS(1262)*UV(304)+JVS(1263)*UV(4980)+JVS(1264)*UV(5250) - JUV(305) = JVS(1265)*UV(305)+JVS(1266)*UV(4599)+JVS(1267)*UV(5250) - JUV(306) = JVS(1268)*UV(306)+JVS(1269)*UV(4251)+JVS(1270)*UV(5250) - JUV(307) = JVS(1271)*UV(307)+JVS(1272)*UV(3637)+JVS(1273)*UV(5250) - JUV(308) = JVS(1274)*UV(308)+JVS(1275)*UV(5077)+JVS(1276)*UV(5250) - JUV(309) = JVS(1277)*UV(309)+JVS(1278)*UV(4611)+JVS(1279)*UV(5250)+JVS(1280)*UV(5255) - JUV(310) = JVS(1281)*UV(310)+JVS(1282)*UV(3962)+JVS(1283)*UV(5250) - JUV(311) = JVS(1284)*UV(311)+JVS(1285)*UV(3840)+JVS(1286)*UV(5250) - JUV(312) = JVS(1287)*UV(312)+JVS(1288)*UV(3727)+JVS(1289)*UV(5250) - JUV(313) = JVS(1290)*UV(313)+JVS(1291)*UV(3698)+JVS(1292)*UV(5250) - JUV(314) = JVS(1293)*UV(314)+JVS(1294)*UV(5108)+JVS(1295)*UV(5250) - JUV(315) = JVS(1296)*UV(59)+JVS(1297)*UV(315)+JVS(1298)*UV(1245)+JVS(1299)*UV(2408)+JVS(1300)*UV(4764)+JVS(1301)& - &*UV(5250)+JVS(1302)*UV(5252)+JVS(1303)*UV(5256) - JUV(316) = JVS(1304)*UV(316)+JVS(1305)*UV(4571)+JVS(1306)*UV(5250) - JUV(317) = JVS(1307)*UV(317)+JVS(1308)*UV(3985)+JVS(1309)*UV(5250) - JUV(318) = JVS(1310)*UV(273)+JVS(1311)*UV(318)+JVS(1312)*UV(521)+JVS(1313)*UV(3675)+JVS(1314)*UV(5250) - JUV(319) = JVS(1315)*UV(319)+JVS(1316)*UV(4060)+JVS(1317)*UV(5250) - JUV(320) = JVS(1318)*UV(320)+JVS(1319)*UV(4196)+JVS(1320)*UV(5250) - JUV(321) = JVS(1321)*UV(321)+JVS(1322)*UV(4368)+JVS(1323)*UV(5250) - JUV(322) = JVS(1324)*UV(322)+JVS(1325)*UV(3711)+JVS(1326)*UV(5250) - JUV(323) = JVS(1327)*UV(322)+JVS(1328)*UV(323)+JVS(1329)*UV(324)+JVS(1330)*UV(3711)+JVS(1331)*UV(5250) - JUV(324) = JVS(1332)*UV(324)+JVS(1333)*UV(3711)+JVS(1334)*UV(5250)+JVS(1335)*UV(5255) - JUV(325) = JVS(1336)*UV(325)+JVS(1337)*UV(5041)+JVS(1338)*UV(5250) - JUV(326) = JVS(1339)*UV(87)+JVS(1340)*UV(326)+JVS(1341)*UV(970)+JVS(1342)*UV(2239)+JVS(1343)*UV(4394)+JVS(1344)& - &*UV(5250)+JVS(1345)*UV(5252)+JVS(1346)*UV(5256) - JUV(327) = JVS(1347)*UV(327)+JVS(1348)*UV(4512)+JVS(1349)*UV(5258) - JUV(328) = JVS(1350)*UV(328)+JVS(1351)*UV(3866)+JVS(1352)*UV(5250)+JVS(1353)*UV(5255) - JUV(329) = JVS(1354)*UV(329)+JVS(1355)*UV(4500)+JVS(1356)*UV(5250)+JVS(1357)*UV(5255) - JUV(330) = JVS(1358)*UV(330)+JVS(1359)*UV(5164)+JVS(1360)*UV(5250)+JVS(1361)*UV(5255) - JUV(331) = JVS(1362)*UV(331)+JVS(1363)*UV(3407)+JVS(1364)*UV(5250) - JUV(332) = JVS(1365)*UV(332)+JVS(1366)*UV(3509)+JVS(1367)*UV(5250) - JUV(333) = JVS(1368)*UV(333)+JVS(1369)*UV(3667)+JVS(1370)*UV(5250) - JUV(334) = JVS(1371)*UV(334)+JVS(1372)*UV(3841)+JVS(1373)*UV(5250) - JUV(335) = JVS(1374)*UV(335)+JVS(1375)*UV(5007)+JVS(1376)*UV(5250) - JUV(336) = JVS(1377)*UV(336)+JVS(1378)*UV(3852)+JVS(1379)*UV(5250) - JUV(337) = JVS(1380)*UV(337)+JVS(1381)*UV(5250)+JVS(1382)*UV(5252) - JUV(338) = JVS(1383)*UV(338)+JVS(1384)*UV(5082)+JVS(1385)*UV(5250) - JUV(339) = JVS(1386)*UV(339)+JVS(1387)*UV(4886)+JVS(1388)*UV(5250) - JUV(340) = JVS(1389)*UV(340)+JVS(1390)*UV(4857)+JVS(1391)*UV(5250) - JUV(341) = JVS(1392)*UV(341)+JVS(1393)*UV(4100)+JVS(1394)*UV(5250)+JVS(1395)*UV(5255) - JUV(342) = JVS(1396)*UV(342)+JVS(1397)*UV(5238)+JVS(1398)*UV(5250) - JUV(343) = JVS(1399)*UV(343)+JVS(1400)*UV(4949)+JVS(1401)*UV(5250)+JVS(1402)*UV(5255) - JUV(344) = JVS(1403)*UV(344)+JVS(1404)*UV(4078)+JVS(1405)*UV(5250) - JUV(345) = JVS(1406)*UV(345)+JVS(1407)*UV(5163)+JVS(1408)*UV(5250) - JUV(346) = JVS(1409)*UV(346)+JVS(1410)*UV(4058)+JVS(1411)*UV(5250) - JUV(347) = JVS(1412)*UV(347)+JVS(1413)*UV(4077)+JVS(1414)*UV(5250) - JUV(348) = JVS(1415)*UV(348)+JVS(1416)*UV(4348)+JVS(1417)*UV(5250) - JUV(349) = JVS(1418)*UV(349)+JVS(1419)*UV(4696)+JVS(1420)*UV(5250) - JUV(350) = JVS(1421)*UV(350)+JVS(1422)*UV(3853)+JVS(1423)*UV(5250) - JUV(351) = JVS(1424)*UV(351)+JVS(1425)*UV(4496)+JVS(1426)*UV(5250)+JVS(1427)*UV(5255) - JUV(352) = JVS(1428)*UV(352)+JVS(1429)*UV(4687)+JVS(1430)*UV(5250) - JUV(353) = JVS(1431)*UV(353)+JVS(1432)*UV(4766)+JVS(1433)*UV(5250) - JUV(354) = JVS(1434)*UV(354)+JVS(1435)*UV(3955)+JVS(1436)*UV(5250) - JUV(355) = JVS(1437)*UV(355)+JVS(1438)*UV(4359)+JVS(1439)*UV(5250) - JUV(356) = JVS(1440)*UV(356)+JVS(1441)*UV(3762)+JVS(1442)*UV(5250) - JUV(357) = JVS(1443)*UV(357)+JVS(1444)*UV(3855)+JVS(1445)*UV(5250) - JUV(358) = JVS(1446)*UV(358)+JVS(1447)*UV(4030)+JVS(1448)*UV(5250) - JUV(359) = JVS(1449)*UV(359)+JVS(1450)*UV(3710)+JVS(1451)*UV(5250) - JUV(360) = JVS(1452)*UV(360)+JVS(1453)*UV(4681)+JVS(1454)*UV(5250)+JVS(1455)*UV(5255) - JUV(361) = JVS(1456)*UV(361)+JVS(1457)*UV(3823)+JVS(1458)*UV(5250) - JUV(362) = JVS(1459)*UV(362)+JVS(1460)*UV(4970)+JVS(1461)*UV(5258) - JUV(363) = JVS(1462)*UV(363)+JVS(1463)*UV(4836)+JVS(1464)*UV(5250)+JVS(1465)*UV(5255) - JUV(364) = JVS(1466)*UV(364)+JVS(1467)*UV(5131)+JVS(1468)*UV(5250)+JVS(1469)*UV(5255) - JUV(365) = JVS(1470)*UV(365)+JVS(1471)*UV(4173)+JVS(1472)*UV(5250) - JUV(366) = JVS(1473)*UV(366)+JVS(1474)*UV(4124)+JVS(1475)*UV(5250) - JUV(367) = JVS(1476)*UV(367)+JVS(1477)*UV(5245)+JVS(1478)*UV(5250)+JVS(1479)*UV(5255) - JUV(368) = JVS(1480)*UV(368)+JVS(1481)*UV(4226)+JVS(1482)*UV(5250) - JUV(369) = JVS(1483)*UV(369)+JVS(1484)*UV(4201)+JVS(1485)*UV(5250) - JUV(370) = JVS(1486)*UV(369)+JVS(1487)*UV(370)+JVS(1488)*UV(1007)+JVS(1489)*UV(4201)+JVS(1490)*UV(5250)+JVS(1491)& - &*UV(5252)+JVS(1492)*UV(5256) - JUV(371) = JVS(1493)*UV(371)+JVS(1494)*UV(5122)+JVS(1495)*UV(5250) - JUV(372) = JVS(1496)*UV(372)+JVS(1497)*UV(3699)+JVS(1498)*UV(5250) - JUV(373) = JVS(1499)*UV(267)+JVS(1500)*UV(373)+JVS(1501)*UV(459)+JVS(1502)*UV(3770)+JVS(1503)*UV(5250) - JUV(374) = JVS(1504)*UV(374)+JVS(1505)*UV(4335)+JVS(1506)*UV(5250) - JUV(375) = JVS(1507)*UV(375)+JVS(1508)*UV(4752)+JVS(1509)*UV(5250)+JVS(1510)*UV(5255) - JUV(376) = JVS(1511)*UV(376)+JVS(1512)*UV(4623)+JVS(1513)*UV(5250)+JVS(1514)*UV(5255) - JUV(377) = JVS(1515)*UV(377)+JVS(1516)*UV(4176)+JVS(1517)*UV(5250) - JUV(378) = JVS(1518)*UV(378)+JVS(1519)*UV(4863)+JVS(1520)*UV(5250)+JVS(1521)*UV(5255) - JUV(379) = JVS(1522)*UV(379)+JVS(1523)*UV(4994)+JVS(1524)*UV(5250)+JVS(1525)*UV(5255) - JUV(380) = JVS(1526)*UV(380)+JVS(1527)*UV(5186)+JVS(1528)*UV(5250) - JUV(381) = JVS(1529)*UV(381)+JVS(1530)*UV(4610)+JVS(1531)*UV(5250) - JUV(382) = JVS(1532)*UV(382)+JVS(1533)*UV(4442)+JVS(1534)*UV(5250) - JUV(383) = JVS(1535)*UV(383)+JVS(1536)*UV(4942)+JVS(1537)*UV(5250) - JUV(384) = JVS(1538)*UV(384)+JVS(1539)*UV(4380)+JVS(1540)*UV(5250)+JVS(1541)*UV(5255) - JUV(385) = JVS(1542)*UV(385)+JVS(1543)*UV(4890)+JVS(1544)*UV(5250) - JUV(386) = JVS(1545)*UV(386)+JVS(1546)*UV(4832)+JVS(1547)*UV(5258) - JUV(387) = JVS(1548)*UV(387)+JVS(1549)*UV(3461)+JVS(1550)*UV(5250)+JVS(1551)*UV(5253) - JUV(388) = JVS(1552)*UV(388)+JVS(1553)*UV(4652)+JVS(1554)*UV(5250)+JVS(1555)*UV(5255) - JUV(389) = JVS(1556)*UV(389)+JVS(1557)*UV(4338)+JVS(1558)*UV(5250)+JVS(1559)*UV(5255) - JUV(390) = JVS(1560)*UV(390)+JVS(1561)*UV(4342)+JVS(1562)*UV(5250) - JUV(391) = JVS(1563)*UV(391)+JVS(1564)*UV(4107)+JVS(1565)*UV(5250) - JUV(392) = JVS(1566)*UV(392)+JVS(1567)*UV(4669)+JVS(1568)*UV(5250) - JUV(393) = JVS(1569)*UV(393)+JVS(1570)*UV(5008)+JVS(1571)*UV(5250)+JVS(1572)*UV(5255) - JUV(394) = JVS(1573)*UV(394)+JVS(1574)*UV(4162)+JVS(1575)*UV(5250) - JUV(395) = JVS(1576)*UV(395)+JVS(1577)*UV(3733)+JVS(1578)*UV(5250) - JUV(396) = JVS(1579)*UV(396)+JVS(1580)*UV(3521)+JVS(1581)*UV(5250) - JUV(397) = JVS(1582)*UV(299)+JVS(1583)*UV(397)+JVS(1584)*UV(398)+JVS(1585)*UV(3697)+JVS(1586)*UV(5250) - JUV(398) = JVS(1587)*UV(398)+JVS(1588)*UV(3697)+JVS(1589)*UV(5250)+JVS(1590)*UV(5255) - JUV(399) = JVS(1591)*UV(399)+JVS(1592)*UV(3858)+JVS(1593)*UV(5250) - JUV(400) = JVS(1594)*UV(400)+JVS(1595)*UV(4166)+JVS(1596)*UV(5250) - JUV(401) = JVS(1597)*UV(401)+JVS(1598)*UV(5236)+JVS(1599)*UV(5250) - JUV(402) = JVS(1600)*UV(402)+JVS(1601)*UV(4069)+JVS(1602)*UV(5250) - JUV(403) = JVS(1603)*UV(403)+JVS(1604)*UV(4240)+JVS(1605)*UV(5250) - JUV(404) = JVS(1606)*UV(403)+JVS(1607)*UV(404)+JVS(1608)*UV(405)+JVS(1609)*UV(4240)+JVS(1610)*UV(5250) - JUV(405) = JVS(1611)*UV(405)+JVS(1612)*UV(4240)+JVS(1613)*UV(5250)+JVS(1614)*UV(5255) - JUV(406) = JVS(1615)*UV(406)+JVS(1616)*UV(4130)+JVS(1617)*UV(5250) - JUV(407) = JVS(1618)*UV(365)+JVS(1619)*UV(407)+JVS(1620)*UV(1197)+JVS(1621)*UV(3081)+JVS(1622)*UV(4173)+JVS(1623)& - &*UV(5250)+JVS(1624)*UV(5252)+JVS(1625)*UV(5256) - JUV(408) = JVS(1626)*UV(408)+JVS(1627)*UV(4360)+JVS(1628)*UV(5250) - JUV(409) = JVS(1629)*UV(409)+JVS(1630)*UV(3789)+JVS(1631)*UV(5250) - JUV(410) = JVS(1632)*UV(410)+JVS(1633)*UV(3722)+JVS(1634)*UV(5250) - JUV(411) = JVS(1635)*UV(411)+JVS(1636)*UV(4147)+JVS(1637)*UV(5250) - JUV(412) = JVS(1638)*UV(412)+JVS(1639)*UV(5146)+JVS(1640)*UV(5250) - JUV(413) = JVS(1641)*UV(413)+JVS(1642)*UV(4940)+JVS(1643)*UV(5250) - JUV(414) = JVS(1644)*UV(414)+JVS(1645)*UV(4234)+JVS(1646)*UV(5250)+JVS(1647)*UV(5255) - JUV(415) = JVS(1648)*UV(415)+JVS(1649)*UV(4672)+JVS(1650)*UV(5250) - JUV(416) = JVS(1651)*UV(416)+JVS(1652)*UV(4995)+JVS(1653)*UV(5250) - JUV(417) = JVS(1654)*UV(417)+JVS(1655)*UV(4616)+JVS(1656)*UV(5250) - JUV(418) = JVS(1657)*UV(418)+JVS(1658)*UV(3845)+JVS(1659)*UV(5250) - JUV(419) = JVS(1660)*UV(419)+JVS(1661)*UV(4605)+JVS(1662)*UV(5258) - JUV(420) = JVS(1663)*UV(420)+JVS(1664)*UV(4662)+JVS(1665)*UV(5250)+JVS(1666)*UV(5255) - JUV(421) = JVS(1667)*UV(139)+JVS(1668)*UV(421)+JVS(1669)*UV(1082)+JVS(1670)*UV(2964)+JVS(1671)*UV(4878)+JVS(1672)& - &*UV(5250)+JVS(1673)*UV(5252)+JVS(1674)*UV(5256) - JUV(422) = JVS(1675)*UV(422)+JVS(1676)*UV(3541)+JVS(1677)*UV(5250) - JUV(423) = JVS(1678)*UV(423)+JVS(1679)*UV(4181)+JVS(1680)*UV(5250)+JVS(1681)*UV(5255) - JUV(424) = JVS(1682)*UV(424)+JVS(1683)*UV(4974)+JVS(1684)*UV(5250) - JUV(425) = JVS(1685)*UV(425)+JVS(1686)*UV(3778)+JVS(1687)*UV(5250) - JUV(426) = JVS(1688)*UV(426)+JVS(1689)*UV(5238)+JVS(1690)*UV(5250) - JUV(427) = JVS(1691)*UV(427)+JVS(1692)*UV(4789)+JVS(1693)*UV(5250) - JUV(428) = JVS(1694)*UV(428)+JVS(1695)*UV(3811)+JVS(1696)*UV(5250) - JUV(429) = JVS(1697)*UV(429)+JVS(1698)*UV(5065)+JVS(1699)*UV(5250) - JUV(430) = JVS(1700)*UV(430)+JVS(1701)*UV(4098)+JVS(1702)*UV(5250) - JUV(431) = JVS(1703)*UV(431)+JVS(1704)*UV(3492)+JVS(1705)*UV(5250) - JUV(432) = JVS(1706)*UV(432)+JVS(1707)*UV(3790)+JVS(1708)*UV(5250) - JUV(433) = JVS(1709)*UV(433)+JVS(1710)*UV(5054)+JVS(1711)*UV(5250)+JVS(1712)*UV(5255) - JUV(434) = JVS(1713)*UV(434)+JVS(1714)*UV(5079)+JVS(1715)*UV(5250)+JVS(1716)*UV(5255) - JUV(435) = JVS(1717)*UV(435)+JVS(1718)*UV(3869)+JVS(1719)*UV(3967)+JVS(1720)*UV(5250) - JUV(436) = JVS(1721)*UV(436)+JVS(1722)*UV(3804)+JVS(1723)*UV(5250) - JUV(437) = JVS(1724)*UV(437)+JVS(1725)*UV(3718)+JVS(1726)*UV(5250) - JUV(438) = JVS(1727)*UV(438)+JVS(1728)*UV(4634)+JVS(1729)*UV(5250)+JVS(1730)*UV(5255) - JUV(439) = JVS(1731)*UV(439)+JVS(1732)*UV(5206)+JVS(1733)*UV(5250) - JUV(440) = JVS(1734)*UV(440)+JVS(1735)*UV(5039)+JVS(1736)*UV(5250) - JUV(441) = JVS(1737)*UV(441)+JVS(1738)*UV(4172)+JVS(1739)*UV(5250) - JUV(442) = JVS(1740)*UV(442)+JVS(1741)*UV(4545)+JVS(1742)*UV(5250) - JUV(443) = JVS(1743)*UV(442)+JVS(1744)*UV(443)+JVS(1745)*UV(1093)+JVS(1746)*UV(2661)+JVS(1747)*UV(4545)+JVS(1748)& - &*UV(5250)+JVS(1749)*UV(5252)+JVS(1750)*UV(5256) - JUV(444) = JVS(1751)*UV(444)+JVS(1752)*UV(3776)+JVS(1753)*UV(5250) - JUV(445) = JVS(1754)*UV(34)+JVS(1755)*UV(445)+JVS(1756)*UV(1207)+JVS(1757)*UV(2534)+JVS(1758)*UV(4099)+JVS(1759)& - &*UV(5250)+JVS(1760)*UV(5252)+JVS(1761)*UV(5256) - JUV(446) = JVS(1762)*UV(446)+JVS(1763)*UV(3797)+JVS(1764)*UV(5250) - JUV(447) = JVS(1765)*UV(447)+JVS(1766)*UV(5238)+JVS(1767)*UV(5250) - JUV(448) = JVS(1768)*UV(448)+JVS(1769)*UV(3423)+JVS(1770)*UV(5250) - JUV(449) = JVS(1771)*UV(449)+JVS(1772)*UV(4665)+JVS(1773)*UV(5250)+JVS(1774)*UV(5255) - JUV(450) = JVS(1775)*UV(366)+JVS(1776)*UV(450)+JVS(1777)*UV(931)+JVS(1778)*UV(2892)+JVS(1779)*UV(4124)+JVS(1780)& - &*UV(5250)+JVS(1781)*UV(5252)+JVS(1782)*UV(5256) - JUV(451) = JVS(1783)*UV(451)+JVS(1784)*UV(3644)+JVS(1785)*UV(5250) - JUV(452) = JVS(1786)*UV(452)+JVS(1787)*UV(5114)+JVS(1788)*UV(5250) - JUV(453) = JVS(1789)*UV(453)+JVS(1790)*UV(5112)+JVS(1791)*UV(5250) - JUV(454) = JVS(1792)*UV(454)+JVS(1793)*UV(3741)+JVS(1794)*UV(5250) - JUV(455) = JVS(1795)*UV(372)+JVS(1796)*UV(455)+JVS(1797)*UV(518)+JVS(1798)*UV(3699)+JVS(1799)*UV(5250) - JUV(456) = JVS(1800)*UV(456)+JVS(1801)*UV(5090)+JVS(1802)*UV(5250)+JVS(1803)*UV(5255) - JUV(457) = JVS(1804)*UV(457)+JVS(1805)*UV(4953)+JVS(1806)*UV(5250)+JVS(1807)*UV(5255) - JUV(458) = JVS(1808)*UV(458)+JVS(1809)*UV(5173)+JVS(1810)*UV(5250) - JUV(459) = JVS(1811)*UV(459)+JVS(1812)*UV(3770)+JVS(1813)*UV(5250)+JVS(1814)*UV(5255) - JUV(460) = JVS(1815)*UV(460)+JVS(1816)*UV(5138)+JVS(1817)*UV(5250) - JUV(461) = JVS(1818)*UV(461)+JVS(1819)*UV(4591)+JVS(1820)*UV(5250)+JVS(1821)*UV(5255) - JUV(462) = JVS(1822)*UV(462)+JVS(1823)*UV(3901)+JVS(1824)*UV(5250) - JUV(463) = JVS(1825)*UV(463)+JVS(1826)*UV(5015)+JVS(1827)*UV(5250) - JUV(464) = JVS(1828)*UV(464)+JVS(1829)*UV(3807)+JVS(1830)*UV(5250) - JUV(465) = JVS(1831)*UV(465)+JVS(1832)*UV(4059)+JVS(1833)*UV(5250) - JUV(466) = JVS(1834)*UV(466)+JVS(1835)*UV(5045)+JVS(1836)*UV(5250) - JUV(467) = JVS(1837)*UV(467)+JVS(1838)*UV(4043)+JVS(1839)*UV(5250) - JUV(468) = JVS(1840)*UV(468)+JVS(1841)*UV(3751)+JVS(1842)*UV(5250) - JUV(469) = JVS(1843)*UV(469)+JVS(1844)*UV(3749)+JVS(1845)*UV(5250) - JUV(470) = JVS(1846)*UV(470)+JVS(1847)*UV(4839)+JVS(1848)*UV(5250)+JVS(1849)*UV(5255) - JUV(471) = JVS(1850)*UV(471)+JVS(1851)*UV(4219)+JVS(1852)*UV(5250) - JUV(472) = JVS(1853)*UV(359)+JVS(1854)*UV(472)+JVS(1855)*UV(508)+JVS(1856)*UV(3710)+JVS(1857)*UV(5250) - JUV(473) = JVS(1858)*UV(473)+JVS(1859)*UV(4614)+JVS(1860)*UV(5250) - JUV(474) = JVS(1861)*UV(474)+JVS(1862)*UV(4850)+JVS(1863)*UV(5250)+JVS(1864)*UV(5255) - JUV(475) = JVS(1865)*UV(475)+JVS(1866)*UV(4400)+JVS(1867)*UV(5250) - JUV(476) = JVS(1868)*UV(476)+JVS(1869)*UV(3743)+JVS(1870)*UV(5250) - JUV(477) = JVS(1871)*UV(477)+JVS(1872)*UV(4601)+JVS(1873)*UV(5258) - JUV(478) = JVS(1874)*UV(478)+JVS(1875)*UV(3703)+JVS(1876)*UV(5250) - JUV(479) = JVS(1877)*UV(479)+JVS(1878)*UV(4934)+JVS(1879)*UV(5250)+JVS(1880)*UV(5255) - JUV(480) = JVS(1881)*UV(480)+JVS(1882)*UV(3525)+JVS(1883)*UV(5250) - JUV(481) = JVS(1884)*UV(481)+JVS(1885)*UV(3908)+JVS(1886)*UV(5250) - JUV(482) = JVS(1887)*UV(482)+JVS(1888)*UV(4120)+JVS(1889)*UV(5250) - JUV(483) = JVS(1890)*UV(483)+JVS(1891)*UV(3474)+JVS(1892)*UV(5250)+JVS(1893)*UV(5253) - JUV(484) = JVS(1894)*UV(484)+JVS(1895)*UV(4382)+JVS(1896)*UV(4932)+JVS(1897)*UV(5250) - JUV(485) = JVS(1898)*UV(485)+JVS(1899)*UV(3696)+JVS(1900)*UV(5250) - JUV(486) = JVS(1901)*UV(486)+JVS(1902)*UV(5107)+JVS(1903)*UV(5250) - JUV(487) = JVS(1904)*UV(487)+JVS(1905)*UV(4568)+JVS(1906)*UV(5250) - JUV(488) = JVS(1907)*UV(488)+JVS(1908)*UV(3873)+JVS(1909)*UV(3989)+JVS(1910)*UV(5250) - JUV(489) = JVS(1911)*UV(489)+JVS(1912)*UV(5052)+JVS(1913)*UV(5250)+JVS(1914)*UV(5255) - JUV(490) = JVS(1915)*UV(212)+JVS(1916)*UV(490)+JVS(1917)*UV(491)+JVS(1918)*UV(3740)+JVS(1919)*UV(5250) - JUV(491) = JVS(1920)*UV(491)+JVS(1921)*UV(3740)+JVS(1922)*UV(5250)+JVS(1923)*UV(5255) - JUV(492) = JVS(1924)*UV(492)+JVS(1925)*UV(5006)+JVS(1926)*UV(5250)+JVS(1927)*UV(5255) - JUV(493) = JVS(1928)*UV(493)+JVS(1929)*UV(4119)+JVS(1930)*UV(5250) - JUV(494) = JVS(1931)*UV(494)+JVS(1932)*UV(4776)+JVS(1933)*UV(5250) - JUV(495) = JVS(1934)*UV(495)+JVS(1935)*UV(5192)+JVS(1936)*UV(5250) - JUV(496) = JVS(1937)*UV(496)+JVS(1938)*UV(4989)+JVS(1939)*UV(5250)+JVS(1940)*UV(5255) - JUV(497) = JVS(1941)*UV(497)+JVS(1942)*UV(4785)+JVS(1943)*UV(5250) - JUV(498) = JVS(1944)*UV(498)+JVS(1945)*UV(4374)+JVS(1946)*UV(5250) - JUV(499) = JVS(1947)*UV(499)+JVS(1948)*UV(4770)+JVS(1949)*UV(5250)+JVS(1950)*UV(5255) - JUV(500) = JVS(1951)*UV(500)+JVS(1952)*UV(4820)+JVS(1953)*UV(5250) - JUV(501) = JVS(1954)*UV(501)+JVS(1955)*UV(3952)+JVS(1956)*UV(5250) - JUV(502) = JVS(1957)*UV(502)+JVS(1958)*UV(3706)+JVS(1959)*UV(5250) - JUV(503) = JVS(1960)*UV(503)+JVS(1961)*UV(4139)+JVS(1962)*UV(5250)+JVS(1963)*UV(5255) - JUV(504) = JVS(1964)*UV(504)+JVS(1965)*UV(5061)+JVS(1966)*UV(5250) - JUV(505) = JVS(1967)*UV(505)+JVS(1968)*UV(3819)+JVS(1969)*UV(5250) - JUV(506) = JVS(1970)*UV(506)+JVS(1971)*UV(4636)+JVS(1972)*UV(5250)+JVS(1973)*UV(5255) - JUV(507) = JVS(1974)*UV(507)+JVS(1975)*UV(4738)+JVS(1976)*UV(5250)+JVS(1977)*UV(5255) - JUV(508) = JVS(1978)*UV(508)+JVS(1979)*UV(3710)+JVS(1980)*UV(5250)+JVS(1981)*UV(5255) - JUV(509) = JVS(1982)*UV(509)+JVS(1983)*UV(3983)+JVS(1984)*UV(5250) - JUV(510) = JVS(1985)*UV(509)+JVS(1986)*UV(510)+JVS(1987)*UV(1359)+JVS(1988)*UV(3983)+JVS(1989)*UV(5250) - JUV(511) = JVS(1990)*UV(511)+JVS(1991)*UV(3890)+JVS(1992)*UV(5250) - JUV(512) = JVS(1993)*UV(512)+JVS(1994)*UV(4612)+JVS(1995)*UV(5250) - JUV(513) = JVS(1996)*UV(513)+JVS(1997)*UV(4920)+JVS(1998)*UV(5250) - JUV(514) = JVS(1999)*UV(514)+JVS(2000)*UV(4794)+JVS(2001)*UV(5258) - JUV(515) = JVS(2002)*UV(515)+JVS(2003)*UV(5044)+JVS(2004)*UV(5250)+JVS(2005)*UV(5255) - JUV(516) = JVS(2006)*UV(516)+JVS(2007)*UV(4089)+JVS(2008)*UV(5250) - JUV(517) = JVS(2009)*UV(517)+JVS(2010)*UV(4399)+JVS(2011)*UV(5250) - JUV(518) = JVS(2012)*UV(518)+JVS(2013)*UV(3699)+JVS(2014)*UV(5250)+JVS(2015)*UV(5255) - JUV(519) = JVS(2016)*UV(519)+JVS(2017)*UV(4523)+JVS(2018)*UV(5250)+JVS(2019)*UV(5255) - JUV(520) = JVS(2020)*UV(520)+JVS(2021)*UV(4157)+JVS(2022)*UV(5250) - JUV(521) = JVS(2023)*UV(521)+JVS(2024)*UV(3675)+JVS(2025)*UV(5250)+JVS(2026)*UV(5255) - JUV(522) = JVS(2027)*UV(522)+JVS(2028)*UV(5207)+JVS(2029)*UV(5258) - JUV(523) = JVS(2030)*UV(523)+JVS(2031)*UV(4055)+JVS(2032)*UV(5250) - JUV(524) = JVS(2033)*UV(524)+JVS(2034)*UV(3691)+JVS(2035)*UV(5250) - JUV(525) = JVS(2036)*UV(525)+JVS(2037)*UV(3731)+JVS(2038)*UV(5250) - JUV(526) = JVS(2039)*UV(526)+JVS(2040)*UV(4189)+JVS(2041)*UV(5250) - JUV(527) = JVS(2042)*UV(527)+JVS(2043)*UV(3750)+JVS(2044)*UV(5250) - JUV(528) = JVS(2045)*UV(528)+JVS(2046)*UV(2411)+JVS(2047)*UV(3916)+JVS(2048)*UV(5252)+JVS(2049)*UV(5256) - JUV(529) = JVS(2050)*UV(529)+JVS(2051)*UV(5069)+JVS(2052)*UV(5258) - JUV(530) = JVS(2053)*UV(530)+JVS(2054)*UV(4117)+JVS(2055)*UV(5250) - JUV(531) = JVS(2056)*UV(531)+JVS(2057)*UV(4928)+JVS(2058)*UV(5250) - JUV(532) = JVS(2059)*UV(532)+JVS(2060)*UV(2693)+JVS(2061)*UV(4785)+JVS(2062)*UV(5252)+JVS(2063)*UV(5256) - JUV(533) = JVS(2064)*UV(533)+JVS(2065)*UV(3514)+JVS(2066)*UV(5016)+JVS(2067)*UV(5252)+JVS(2068)*UV(5256) - JUV(534) = JVS(2069)*UV(534)+JVS(2070)*UV(2016)+JVS(2071)*UV(3941)+JVS(2072)*UV(5252)+JVS(2073)*UV(5256) - JUV(535) = JVS(2074)*UV(535)+JVS(2075)*UV(1943)+JVS(2076)*UV(4163)+JVS(2077)*UV(5252)+JVS(2078)*UV(5256) - JUV(536) = JVS(2079)*UV(536)+JVS(2080)*UV(3990)+JVS(2081)*UV(5250) - JUV(537) = JVS(2082)*UV(537)+JVS(2083)*UV(1890)+JVS(2084)*UV(4226)+JVS(2085)*UV(5252)+JVS(2086)*UV(5256) - JUV(538) = JVS(2087)*UV(538)+JVS(2088)*UV(3701)+JVS(2089)*UV(5258) - JUV(539) = JVS(2090)*UV(539)+JVS(2091)*UV(2316)+JVS(2092)*UV(3977)+JVS(2093)*UV(5252)+JVS(2094)*UV(5256) - JUV(540) = JVS(2095)*UV(540)+JVS(2096)*UV(3994)+JVS(2097)*UV(5250) - JUV(541) = JVS(2098)*UV(541)+JVS(2099)*UV(2423)+JVS(2100)*UV(3905)+JVS(2101)*UV(5252)+JVS(2102)*UV(5256) - JUV(542) = JVS(2103)*UV(542)+JVS(2104)*UV(2482)+JVS(2105)*UV(5250) - JUV(543) = JVS(2106)*UV(543)+JVS(2107)*UV(3895)+JVS(2108)*UV(5250) - JUV(544) = JVS(2109)*UV(544)+JVS(2110)*UV(2437)+JVS(2111)*UV(4116)+JVS(2112)*UV(5252)+JVS(2113)*UV(5256) - JUV(545) = JVS(2114)*UV(545)+JVS(2115)*UV(1759)+JVS(2116)*UV(4274)+JVS(2117)*UV(5252)+JVS(2118)*UV(5256) - JUV(546) = JVS(2119)*UV(546)+JVS(2120)*UV(3885)+JVS(2121)*UV(5250) - JUV(547) = JVS(2122)*UV(547)+JVS(2123)*UV(5130)+JVS(2124)*UV(5250) - JUV(548) = JVS(2125)*UV(548)+JVS(2126)*UV(5238)+JVS(2127)*UV(5250) - JUV(549) = JVS(2128)*UV(549)+JVS(2129)*UV(2407)+JVS(2130)*UV(3872)+JVS(2131)*UV(5252)+JVS(2132)*UV(5256) - JUV(550) = JVS(2133)*UV(550)+JVS(2134)*UV(2267)+JVS(2135)*UV(3687)+JVS(2136)*UV(5252)+JVS(2137)*UV(5256) - JUV(551) = JVS(2138)*UV(551)+JVS(2139)*UV(2466)+JVS(2140)*UV(4889)+JVS(2141)*UV(5252)+JVS(2142)*UV(5256) - JUV(552) = JVS(2143)*UV(552)+JVS(2144)*UV(969)+JVS(2145)*UV(3636)+JVS(2146)*UV(5252)+JVS(2147)*UV(5256) - JUV(553) = JVS(2148)*UV(553)+JVS(2149)*UV(2017)+JVS(2150)*UV(4150)+JVS(2151)*UV(5252)+JVS(2152)*UV(5256) - JUV(554) = JVS(2153)*UV(554)+JVS(2154)*UV(4128)+JVS(2155)*UV(5250) - JUV(555) = JVS(2156)*UV(555)+JVS(2157)*UV(2091)+JVS(2158)*UV(4025)+JVS(2159)*UV(5252)+JVS(2160)*UV(5256) - JUV(556) = JVS(2161)*UV(556)+JVS(2162)*UV(3850)+JVS(2163)*UV(5250) - JUV(557) = JVS(2164)*UV(557)+JVS(2165)*UV(1935)+JVS(2166)*UV(4158)+JVS(2167)*UV(5252)+JVS(2168)*UV(5256) - JUV(558) = JVS(2169)*UV(558)+JVS(2170)*UV(4096)+JVS(2171)*UV(5258) - JUV(559) = JVS(2172)*UV(559)+JVS(2173)*UV(4346)+JVS(2174)*UV(5250) - JUV(560) = JVS(2175)*UV(560)+JVS(2176)*UV(3551)+JVS(2177)*UV(5258) - JUV(561) = JVS(2178)*UV(303)+JVS(2179)*UV(561)+JVS(2180)*UV(562)+JVS(2181)*UV(1284)+JVS(2182)*UV(3720)+JVS(2183)& - &*UV(5250) - JUV(562) = JVS(2184)*UV(562)+JVS(2185)*UV(3720)+JVS(2186)*UV(5250)+JVS(2187)*UV(5255) - JUV(563) = JVS(2188)*UV(563)+JVS(2189)*UV(5168)+JVS(2190)*UV(5258) - JUV(564) = JVS(2191)*UV(564)+JVS(2192)*UV(3078)+JVS(2193)*UV(4584)+JVS(2194)*UV(5252)+JVS(2195)*UV(5256) - JUV(565) = JVS(2196)*UV(565)+JVS(2197)*UV(4821)+JVS(2198)*UV(5250) - JUV(566) = JVS(2199)*UV(566)+JVS(2200)*UV(5238)+JVS(2201)*UV(5250) - JUV(567) = JVS(2202)*UV(567)+JVS(2203)*UV(4343)+JVS(2204)*UV(5250) - JUV(568) = JVS(2205)*UV(568)+JVS(2206)*UV(3831)+JVS(2207)*UV(5258) - JUV(569) = JVS(2208)*UV(569)+JVS(2209)*UV(3512)+JVS(2210)*UV(5258) - JUV(570) = JVS(2211)*UV(570)+JVS(2212)*UV(2121)+JVS(2213)*UV(4361)+JVS(2214)*UV(5252)+JVS(2215)*UV(5256) - JUV(571) = JVS(2216)*UV(571)+JVS(2217)*UV(2095)+JVS(2218)*UV(3871)+JVS(2219)*UV(5252)+JVS(2220)*UV(5256) - JUV(572) = JVS(2221)*UV(572)+JVS(2222)*UV(4277)+JVS(2223)*UV(5250) - JUV(573) = JVS(2224)*UV(573)+JVS(2225)*UV(2068)+JVS(2226)*UV(3671)+JVS(2227)*UV(5252)+JVS(2228)*UV(5256) - JUV(574) = JVS(2229)*UV(574)+JVS(2230)*UV(2205)+JVS(2231)*UV(3880)+JVS(2232)*UV(5252)+JVS(2233)*UV(5256) - JUV(575) = JVS(2234)*UV(575)+JVS(2235)*UV(2221)+JVS(2236)*UV(4355)+JVS(2237)*UV(5252)+JVS(2238)*UV(5256) - JUV(576) = JVS(2239)*UV(576)+JVS(2240)*UV(4703)+JVS(2241)*UV(5250) - JUV(577) = JVS(2242)*UV(577)+JVS(2243)*UV(3836)+JVS(2244)*UV(5250) - JUV(578) = JVS(2245)*UV(578)+JVS(2246)*UV(3198)+JVS(2247)*UV(3888)+JVS(2248)*UV(4585)+JVS(2249)*UV(5250) - JUV(579) = JVS(2250)*UV(579)+JVS(2251)*UV(3755)+JVS(2252)*UV(5250) - JUV(580) = JVS(2253)*UV(580)+JVS(2254)*UV(4541)+JVS(2255)*UV(5250) - JUV(581) = JVS(2256)*UV(581)+JVS(2257)*UV(2404)+JVS(2258)*UV(4560)+JVS(2259)*UV(5252)+JVS(2260)*UV(5256) - JUV(582) = JVS(2261)*UV(582)+JVS(2262)*UV(1888)+JVS(2263)*UV(4268)+JVS(2264)*UV(5252)+JVS(2265)*UV(5256) - JUV(583) = JVS(2266)*UV(583)+JVS(2267)*UV(4190)+JVS(2268)*UV(5250) - JUV(584) = JVS(2269)*UV(584)+JVS(2270)*UV(2417)+JVS(2271)*UV(4416)+JVS(2272)*UV(5252)+JVS(2273)*UV(5256) - JUV(585) = JVS(2274)*UV(585)+JVS(2275)*UV(1863)+JVS(2276)*UV(4761)+JVS(2277)*UV(5252)+JVS(2278)*UV(5256) - JUV(586) = JVS(2279)*UV(586)+JVS(2280)*UV(4646)+JVS(2281)*UV(5250) - JUV(587) = JVS(2282)*UV(587)+JVS(2283)*UV(3876)+JVS(2284)*UV(5250) - JUV(588) = JVS(2285)*UV(588)+JVS(2286)*UV(5238)+JVS(2287)*UV(5250) - JUV(589) = JVS(2288)*UV(589)+JVS(2289)*UV(2137)+JVS(2290)*UV(4813)+JVS(2291)*UV(5252)+JVS(2292)*UV(5256) - JUV(590) = JVS(2293)*UV(590)+JVS(2294)*UV(4735)+JVS(2295)*UV(5250) - JUV(591) = JVS(2296)*UV(591)+JVS(2297)*UV(3653)+JVS(2298)*UV(5250) - JUV(592) = JVS(2299)*UV(592)+JVS(2300)*UV(1854)+JVS(2301)*UV(4550)+JVS(2302)*UV(5252)+JVS(2303)*UV(5256) - JUV(593) = JVS(2304)*UV(347)+JVS(2305)*UV(593)+JVS(2306)*UV(594)+JVS(2307)*UV(2515)+JVS(2308)*UV(4077)+JVS(2309)& - &*UV(5250) - JUV(594) = JVS(2310)*UV(594)+JVS(2311)*UV(4077)+JVS(2312)*UV(5250)+JVS(2313)*UV(5255) - JUV(595) = JVS(2314)*UV(595)+JVS(2315)*UV(1917)+JVS(2316)*UV(4589)+JVS(2317)*UV(5252)+JVS(2318)*UV(5256) - JUV(596) = JVS(2319)*UV(596)+JVS(2320)*UV(1937)+JVS(2321)*UV(3912)+JVS(2322)*UV(5252)+JVS(2323)*UV(5256) - JUV(597) = JVS(2324)*UV(597)+JVS(2325)*UV(2368)+JVS(2326)*UV(4153)+JVS(2327)*UV(5252)+JVS(2328)*UV(5256) - JUV(598) = JVS(2329)*UV(598)+JVS(2330)*UV(5181)+JVS(2331)*UV(5250) - JUV(599) = JVS(2332)*UV(599)+JVS(2333)*UV(5198)+JVS(2334)*UV(5250) - JUV(600) = JVS(2335)*UV(600)+JVS(2336)*UV(2424)+JVS(2337)*UV(4169)+JVS(2338)*UV(5252)+JVS(2339)*UV(5256) - JUV(601) = JVS(2340)*UV(601)+JVS(2341)*UV(5238)+JVS(2342)*UV(5250) - JUV(602) = JVS(2343)*UV(602)+JVS(2344)*UV(3917)+JVS(2345)*UV(5250) - JUV(603) = JVS(2346)*UV(603)+JVS(2347)*UV(4862)+JVS(2348)*UV(5252)+JVS(2349)*UV(5255)+JVS(2350)*UV(5256) - JUV(604) = JVS(2351)*UV(604)+JVS(2352)*UV(4492)+JVS(2353)*UV(5258) - JUV(605) = JVS(2354)*UV(605)+JVS(2355)*UV(3214)+JVS(2356)*UV(4669)+JVS(2357)*UV(5252)+JVS(2358)*UV(5256) - JUV(606) = JVS(2359)*UV(606)+JVS(2360)*UV(5166)+JVS(2361)*UV(5218)+JVS(2362)*UV(5219)+JVS(2363)*UV(5250) - JUV(607) = JVS(2364)*UV(607)+JVS(2365)*UV(5118)+JVS(2366)*UV(5166)+JVS(2367)*UV(5224)+JVS(2368)*UV(5250) - JUV(608) = JVS(2369)*UV(608)+JVS(2370)*UV(4105)+JVS(2371)*UV(5250) - JUV(609) = JVS(2372)*UV(609)+JVS(2373)*UV(4164)+JVS(2374)*UV(5250) - JUV(610) = JVS(2375)*UV(610)+JVS(2376)*UV(2618)+JVS(2377)*UV(4095)+JVS(2378)*UV(5252)+JVS(2379)*UV(5256) - JUV(611) = JVS(2380)*UV(611)+JVS(2381)*UV(4838)+JVS(2382)*UV(4944)+JVS(2383)*UV(5250)+JVS(2384)*UV(5255) - JUV(612) = JVS(2385)*UV(612)+JVS(2386)*UV(5175)+JVS(2387)*UV(5258) - JUV(613) = JVS(2388)*UV(613)+JVS(2389)*UV(4622)+JVS(2390)*UV(4919)+JVS(2391)*UV(5250)+JVS(2392)*UV(5255) - JUV(614) = JVS(2393)*UV(614)+JVS(2394)*UV(3830)+JVS(2395)*UV(5258) - JUV(615) = JVS(2396)*UV(615)+JVS(2397)*UV(2503)+JVS(2398)*UV(5007)+JVS(2399)*UV(5252)+JVS(2400)*UV(5256) - JUV(616) = JVS(2401)*UV(616)+JVS(2402)*UV(4713)+JVS(2403)*UV(5250) - JUV(617) = JVS(2404)*UV(617)+JVS(2405)*UV(2217)+JVS(2406)*UV(3984)+JVS(2407)*UV(5252)+JVS(2408)*UV(5256) - JUV(618) = JVS(2409)*UV(618)+JVS(2410)*UV(1868)+JVS(2411)*UV(4176)+JVS(2412)*UV(5252)+JVS(2413)*UV(5256) - JUV(619) = JVS(2414)*UV(619)+JVS(2415)*UV(2022)+JVS(2416)*UV(4135)+JVS(2417)*UV(5252)+JVS(2418)*UV(5256) - JUV(620) = JVS(2419)*UV(620)+JVS(2420)*UV(1861)+JVS(2421)*UV(3696)+JVS(2422)*UV(5252)+JVS(2423)*UV(5256) - JUV(621) = JVS(2424)*UV(621)+JVS(2425)*UV(3988)+JVS(2426)*UV(5250) - JUV(622) = JVS(2427)*UV(622)+JVS(2428)*UV(4165)+JVS(2429)*UV(5250) - JUV(623) = JVS(2430)*UV(623)+JVS(2431)*UV(3702)+JVS(2432)*UV(4992)+JVS(2433)*UV(5252)+JVS(2434)*UV(5256) - JUV(624) = JVS(2435)*UV(624)+JVS(2436)*UV(2160)+JVS(2437)*UV(3963)+JVS(2438)*UV(5252)+JVS(2439)*UV(5256) - JUV(625) = JVS(2440)*UV(625)+JVS(2441)*UV(2312)+JVS(2442)*UV(4315)+JVS(2443)*UV(5252)+JVS(2444)*UV(5256) - JUV(626) = JVS(2445)*UV(626)+JVS(2446)*UV(2617)+JVS(2447)*UV(5250) - JUV(627) = JVS(2448)*UV(627)+JVS(2449)*UV(3219)+JVS(2450)*UV(5250)+JVS(2451)*UV(5255)+JVS(2452)*UV(5256) - JUV(628) = JVS(2453)*UV(628)+JVS(2454)*UV(3545)+JVS(2455)*UV(5258) - JUV(629) = JVS(2456)*UV(629)+JVS(2457)*UV(2342)+JVS(2458)*UV(4323)+JVS(2459)*UV(5252)+JVS(2460)*UV(5256) - JUV(630) = JVS(2461)*UV(630)+JVS(2462)*UV(3207)+JVS(2463)*UV(4698)+JVS(2464)*UV(5252)+JVS(2465)*UV(5256) - JUV(631) = JVS(2466)*UV(631)+JVS(2467)*UV(4868)+JVS(2468)*UV(5106)+JVS(2469)*UV(5250)+JVS(2470)*UV(5255) - JUV(632) = JVS(2471)*UV(632)+JVS(2472)*UV(2151)+JVS(2473)*UV(4290)+JVS(2474)*UV(5252)+JVS(2475)*UV(5256) - JUV(633) = JVS(2476)*UV(633)+JVS(2477)*UV(4597)+JVS(2478)*UV(5250) - JUV(634) = JVS(2479)*UV(634)+JVS(2480)*UV(3817)+JVS(2481)*UV(5250) - JUV(635) = JVS(2482)*UV(635)+JVS(2483)*UV(2065)+JVS(2484)*UV(3940)+JVS(2485)*UV(5252)+JVS(2486)*UV(5256) - JUV(636) = JVS(2487)*UV(636)+JVS(2488)*UV(4573)+JVS(2489)*UV(5250) - JUV(637) = JVS(2490)*UV(637)+JVS(2491)*UV(2080)+JVS(2492)*UV(4724)+JVS(2493)*UV(5252)+JVS(2494)*UV(5256) - JUV(638) = JVS(2495)*UV(638)+JVS(2496)*UV(2625)+JVS(2497)*UV(4811)+JVS(2498)*UV(5252)+JVS(2499)*UV(5256) - JUV(639) = JVS(2500)*UV(639)+JVS(2501)*UV(1911)+JVS(2502)*UV(3867)+JVS(2503)*UV(5252)+JVS(2504)*UV(5256) - JUV(640) = JVS(2505)*UV(640)+JVS(2506)*UV(4600)+JVS(2507)*UV(5258) - JUV(641) = JVS(2508)*UV(641)+JVS(2509)*UV(2923)+JVS(2510)*UV(4920)+JVS(2511)*UV(5252)+JVS(2512)*UV(5256) - JUV(642) = JVS(2513)*UV(642)+JVS(2514)*UV(4906)+JVS(2515)*UV(5128)+JVS(2516)*UV(5250)+JVS(2517)*UV(5255) - JUV(643) = JVS(2518)*UV(643)+JVS(2519)*UV(2153)+JVS(2520)*UV(4477)+JVS(2521)*UV(5252)+JVS(2522)*UV(5256) - JUV(644) = JVS(2523)*UV(644)+JVS(2524)*UV(2111)+JVS(2525)*UV(4497)+JVS(2526)*UV(5252)+JVS(2527)*UV(5256) - JUV(645) = JVS(2528)*UV(645)+JVS(2529)*UV(2289)+JVS(2530)*UV(3864)+JVS(2531)*UV(5252)+JVS(2532)*UV(5256) - JUV(646) = JVS(2533)*UV(646)+JVS(2534)*UV(2178)+JVS(2535)*UV(3971)+JVS(2536)*UV(5252)+JVS(2537)*UV(5256) - JUV(647) = JVS(2538)*UV(647)+JVS(2539)*UV(4575)+JVS(2540)*UV(5250) - JUV(648) = JVS(2541)*UV(648)+JVS(2542)*UV(1926)+JVS(2543)*UV(4343)+JVS(2544)*UV(5252)+JVS(2545)*UV(5256) - JUV(649) = JVS(2546)*UV(649)+JVS(2547)*UV(1990)+JVS(2548)*UV(3969)+JVS(2549)*UV(5252)+JVS(2550)*UV(5256) - JUV(650) = JVS(2551)*UV(650)+JVS(2552)*UV(3974)+JVS(2553)*UV(5250) - JUV(651) = JVS(2554)*UV(651)+JVS(2555)*UV(4704)+JVS(2556)*UV(5250) - JUV(652) = JVS(2557)*UV(395)+JVS(2558)*UV(652)+JVS(2559)*UV(653)+JVS(2560)*UV(840)+JVS(2561)*UV(3733)+JVS(2562)& - &*UV(5250) - JUV(653) = JVS(2563)*UV(653)+JVS(2564)*UV(3733)+JVS(2565)*UV(5250)+JVS(2566)*UV(5255) - JUV(654) = JVS(2567)*UV(654)+JVS(2568)*UV(2497)+JVS(2569)*UV(4774)+JVS(2570)*UV(5252)+JVS(2571)*UV(5256) - JUV(655) = JVS(2572)*UV(655)+JVS(2573)*UV(1784)+JVS(2574)*UV(4875)+JVS(2575)*UV(5252)+JVS(2576)*UV(5256) - JUV(656) = JVS(2577)*UV(656)+JVS(2578)*UV(2695)+JVS(2579)*UV(4341)+JVS(2580)*UV(5252)+JVS(2581)*UV(5256) - JUV(657) = JVS(2582)*UV(657)+JVS(2583)*UV(4142)+JVS(2584)*UV(5250) - JUV(658) = JVS(2585)*UV(658)+JVS(2586)*UV(1950)+JVS(2587)*UV(5028)+JVS(2588)*UV(5252)+JVS(2589)*UV(5256) - JUV(659) = JVS(2590)*UV(659)+JVS(2591)*UV(4141)+JVS(2592)*UV(5250) - JUV(660) = JVS(2593)*UV(660)+JVS(2594)*UV(2053)+JVS(2595)*UV(3739)+JVS(2596)*UV(5252)+JVS(2597)*UV(5256) - JUV(661) = JVS(2598)*UV(661)+JVS(2599)*UV(3898)+JVS(2600)*UV(5250) - JUV(662) = JVS(2601)*UV(662)+JVS(2602)*UV(3949)+JVS(2603)*UV(5250) - JUV(663) = JVS(2604)*UV(663)+JVS(2605)*UV(2266)+JVS(2606)*UV(3966)+JVS(2607)*UV(5252)+JVS(2608)*UV(5256) - JUV(664) = JVS(2609)*UV(664)+JVS(2610)*UV(4697)+JVS(2611)*UV(5250) - JUV(665) = JVS(2612)*UV(665)+JVS(2613)*UV(3049)+JVS(2614)*UV(4730)+JVS(2615)*UV(5252)+JVS(2616)*UV(5256) - JUV(666) = JVS(2617)*UV(666)+JVS(2618)*UV(3314)+JVS(2619)*UV(4594)+JVS(2620)*UV(5252)+JVS(2621)*UV(5256) - JUV(667) = JVS(2622)*UV(667)+JVS(2623)*UV(3883)+JVS(2624)*UV(5250) - JUV(668) = JVS(2625)*UV(668)+JVS(2626)*UV(5250)+JVS(2627)*UV(5256) - JUV(669) = JVS(2628)*UV(669)+JVS(2629)*UV(1999)+JVS(2630)*UV(4804)+JVS(2631)*UV(5252)+JVS(2632)*UV(5256) - JUV(670) = JVS(2633)*UV(670)+JVS(2634)*UV(1844)+JVS(2635)*UV(3943)+JVS(2636)*UV(5252)+JVS(2637)*UV(5256) - JUV(671) = JVS(2638)*UV(671)+JVS(2639)*UV(4712)+JVS(2640)*UV(5250) - JUV(672) = JVS(2641)*UV(672)+JVS(2642)*UV(2360)+JVS(2643)*UV(3954)+JVS(2644)*UV(5252)+JVS(2645)*UV(5256) - JUV(673) = JVS(2646)*UV(673)+JVS(2647)*UV(1862)+JVS(2648)*UV(3844)+JVS(2649)*UV(5252)+JVS(2650)*UV(5256) - JUV(674) = JVS(2651)*UV(674)+JVS(2652)*UV(2730)+JVS(2653)*UV(4911)+JVS(2654)*UV(5252)+JVS(2655)*UV(5256) - JUV(675) = JVS(2656)*UV(675)+JVS(2657)*UV(5119)+JVS(2658)*UV(5250) - JUV(676) = JVS(2659)*UV(676)+JVS(2660)*UV(3499)+JVS(2661)*UV(5258) - JUV(677) = JVS(2662)*UV(677)+JVS(2663)*UV(3244)+JVS(2664)*UV(5250)+JVS(2665)*UV(5255)+JVS(2666)*UV(5256) - JUV(678) = JVS(2667)*UV(678)+JVS(2668)*UV(4113)+JVS(2669)*UV(5250) - JUV(679) = JVS(2670)*UV(679)+JVS(2671)*UV(2305)+JVS(2672)*UV(4145)+JVS(2673)*UV(5252)+JVS(2674)*UV(5256) - JUV(680) = JVS(2675)*UV(198)+JVS(2676)*UV(680)+JVS(2677)*UV(1269)+JVS(2678)*UV(3344)+JVS(2679)*UV(5223)+JVS(2680)& - &*UV(5250) - JUV(681) = JVS(2681)*UV(681)+JVS(2682)*UV(4699)+JVS(2683)*UV(5250) - JUV(682) = JVS(2684)*UV(682)+JVS(2685)*UV(2428)+JVS(2686)*UV(4446)+JVS(2687)*UV(5252)+JVS(2688)*UV(5256) - JUV(683) = JVS(2689)*UV(683)+JVS(2690)*UV(4701)+JVS(2691)*UV(5250) - JUV(684) = JVS(2692)*UV(684)+JVS(2693)*UV(5226)+JVS(2694)*UV(5258) - JUV(685) = JVS(2695)*UV(685)+JVS(2696)*UV(5166)+JVS(2697)*UV(5258) - JUV(686) = JVS(2698)*UV(686)+JVS(2699)*UV(5153)+JVS(2700)*UV(5258) - JUV(687) = JVS(2701)*UV(687)+JVS(2702)*UV(3006)+JVS(2703)*UV(4371)+JVS(2704)*UV(5252)+JVS(2705)*UV(5256) - JUV(688) = JVS(2706)*UV(688)+JVS(2707)*UV(2836)+JVS(2708)*UV(4756)+JVS(2709)*UV(5252)+JVS(2710)*UV(5256) - JUV(689) = JVS(2711)*UV(689)+JVS(2712)*UV(3287)+JVS(2713)*UV(4126)+JVS(2714)*UV(5252)+JVS(2715)*UV(5256) - JUV(690) = JVS(2716)*UV(690)+JVS(2717)*UV(3848)+JVS(2718)*UV(5250) - JUV(691) = JVS(2719)*UV(691)+JVS(2720)*UV(4956)+JVS(2721)*UV(5125)+JVS(2722)*UV(5250)+JVS(2723)*UV(5255) - JUV(692) = JVS(2724)*UV(692)+JVS(2725)*UV(3928)+JVS(2726)*UV(5250) - JUV(693) = JVS(2727)*UV(693)+JVS(2728)*UV(2107)+JVS(2729)*UV(4929)+JVS(2730)*UV(5252)+JVS(2731)*UV(5256) - JUV(694) = JVS(2732)*UV(694)+JVS(2733)*UV(4249)+JVS(2734)*UV(5250) - JUV(695) = JVS(2735)*UV(695)+JVS(2736)*UV(2300)+JVS(2737)*UV(4820)+JVS(2738)*UV(5252)+JVS(2739)*UV(5256) - JUV(696) = JVS(2740)*UV(696)+JVS(2741)*UV(4350)+JVS(2742)*UV(5250) - JUV(697) = JVS(2743)*UV(697)+JVS(2744)*UV(2380)+JVS(2745)*UV(5019)+JVS(2746)*UV(5252)+JVS(2747)*UV(5256) - JUV(698) = JVS(2748)*UV(698)+JVS(2749)*UV(2059)+JVS(2750)*UV(4389)+JVS(2751)*UV(5252)+JVS(2752)*UV(5256) - JUV(699) = JVS(2753)*UV(699)+JVS(2754)*UV(4825)+JVS(2755)*UV(5250) - JUV(700) = JVS(2756)*UV(700)+JVS(2757)*UV(3684)+JVS(2758)*UV(5258) - JUV(701) = JVS(2759)*UV(701)+JVS(2760)*UV(5024)+JVS(2761)*UV(5258) - JUV(702) = JVS(2762)*UV(702)+JVS(2763)*UV(5166)+JVS(2764)*UV(5217)+JVS(2765)*UV(5219)+JVS(2766)*UV(5250) - JUV(703) = JVS(2767)*UV(703)+JVS(2768)*UV(2439)+JVS(2769)*UV(4762)+JVS(2770)*UV(5252)+JVS(2771)*UV(5256) - JUV(704) = JVS(2772)*UV(704)+JVS(2773)*UV(2062)+JVS(2774)*UV(4538)+JVS(2775)*UV(5252)+JVS(2776)*UV(5256) - JUV(705) = JVS(2777)*UV(705)+JVS(2778)*UV(3494)+JVS(2779)*UV(5258) - JUV(706) = JVS(2780)*UV(706)+JVS(2781)*UV(3231)+JVS(2782)*UV(4856)+JVS(2783)*UV(5252)+JVS(2784)*UV(5256) - JUV(707) = JVS(2785)*UV(707)+JVS(2786)*UV(3263)+JVS(2787)*UV(5250)+JVS(2788)*UV(5255)+JVS(2789)*UV(5256) - JUV(708) = JVS(2790)*UV(708)+JVS(2791)*UV(2727)+JVS(2792)*UV(4144)+JVS(2793)*UV(5252)+JVS(2794)*UV(5256) - JUV(709) = JVS(2795)*UV(709)+JVS(2796)*UV(4843)+JVS(2797)*UV(4847)+JVS(2798)*UV(5250)+JVS(2799)*UV(5255) - JUV(710) = JVS(2800)*UV(710)+JVS(2801)*UV(2920)+JVS(2802)*UV(4857)+JVS(2803)*UV(5252)+JVS(2804)*UV(5256) - JUV(711) = JVS(2805)*UV(711)+JVS(2806)*UV(3196)+JVS(2807)*UV(4558)+JVS(2808)*UV(5252)+JVS(2809)*UV(5256) - JUV(712) = JVS(2810)*UV(712)+JVS(2811)*UV(2454)+JVS(2812)*UV(3692)+JVS(2813)*UV(5252)+JVS(2814)*UV(5256) - JUV(713) = JVS(2815)*UV(713)+JVS(2816)*UV(3897)+JVS(2817)*UV(5250) - JUV(714) = JVS(2818)*UV(714)+JVS(2819)*UV(1932)+JVS(2820)*UV(4340)+JVS(2821)*UV(5252)+JVS(2822)*UV(5256) - JUV(715) = JVS(2823)*UV(715)+JVS(2824)*UV(5166)+JVS(2825)*UV(5204)+JVS(2826)*UV(5224)+JVS(2827)*UV(5250) - JUV(716) = JVS(2828)*UV(716)+JVS(2829)*UV(2446)+JVS(2830)*UV(3762)+JVS(2831)*UV(5252)+JVS(2832)*UV(5256) - JUV(717) = JVS(2833)*UV(717)+JVS(2834)*UV(2900)+JVS(2835)*UV(3810)+JVS(2836)*UV(5252)+JVS(2837)*UV(5256) - JUV(718) = JVS(2838)*UV(718)+JVS(2839)*UV(3506)+JVS(2840)*UV(5258) - JUV(719) = JVS(2841)*UV(719)+JVS(2842)*UV(4605)+JVS(2843)*UV(5258) - JUV(720) = JVS(2844)*UV(720)+JVS(2845)*UV(1836)+JVS(2846)*UV(4483)+JVS(2847)*UV(5252)+JVS(2848)*UV(5256) - JUV(721) = JVS(2849)*UV(721)+JVS(2850)*UV(1973)+JVS(2851)*UV(3927)+JVS(2852)*UV(5252)+JVS(2853)*UV(5256) - JUV(722) = JVS(2854)*UV(722)+JVS(2855)*UV(2052)+JVS(2856)*UV(4349)+JVS(2857)*UV(5252)+JVS(2858)*UV(5256) - JUV(723) = JVS(2859)*UV(723)+JVS(2860)*UV(3508)+JVS(2861)*UV(5258) - JUV(724) = JVS(2862)*UV(724)+JVS(2863)*UV(1900)+JVS(2864)*UV(5122)+JVS(2865)*UV(5252)+JVS(2866)*UV(5256) - JUV(725) = JVS(2867)*UV(725)+JVS(2868)*UV(4459)+JVS(2869)*UV(5250) - JUV(726) = JVS(2870)*UV(726)+JVS(2871)*UV(1373)+JVS(2872)*UV(5039)+JVS(2873)*UV(5252)+JVS(2874)*UV(5256) - JUV(727) = JVS(2875)*UV(727)+JVS(2876)*UV(2202)+JVS(2877)*UV(3688)+JVS(2878)*UV(5252)+JVS(2879)*UV(5256) - JUV(728) = JVS(2880)*UV(728)+JVS(2881)*UV(2071)+JVS(2882)*UV(4567)+JVS(2883)*UV(5252)+JVS(2884)*UV(5256) - JUV(729) = JVS(2885)*UV(729)+JVS(2886)*UV(1762)+JVS(2887)*UV(4552)+JVS(2888)*UV(5252)+JVS(2889)*UV(5256) - JUV(730) = JVS(2890)*UV(730)+JVS(2891)*UV(2098)+JVS(2892)*UV(3920)+JVS(2893)*UV(5252)+JVS(2894)*UV(5256) - JUV(731) = JVS(2895)*UV(731)+JVS(2896)*UV(2445)+JVS(2897)*UV(4644)+JVS(2898)*UV(5252)+JVS(2899)*UV(5256) - JUV(732) = JVS(2900)*UV(732)+JVS(2901)*UV(4377)+JVS(2902)*UV(5250) - JUV(733) = JVS(2903)*UV(733)+JVS(2904)*UV(2450)+JVS(2905)*UV(3724)+JVS(2906)*UV(5252)+JVS(2907)*UV(5256) - JUV(734) = JVS(2908)*UV(734)+JVS(2909)*UV(3528)+JVS(2910)*UV(4967)+JVS(2911)*UV(5252)+JVS(2912)*UV(5256) - JUV(735) = JVS(2913)*UV(344)+JVS(2914)*UV(735)+JVS(2915)*UV(736)+JVS(2916)*UV(1057)+JVS(2917)*UV(4078)+JVS(2918)& - &*UV(5250) - JUV(736) = JVS(2919)*UV(736)+JVS(2920)*UV(4078)+JVS(2921)*UV(5250)+JVS(2922)*UV(5255) - JUV(737) = JVS(2923)*UV(737)+JVS(2924)*UV(1802)+JVS(2925)*UV(4817)+JVS(2926)*UV(5252)+JVS(2927)*UV(5256) - JUV(738) = JVS(2928)*UV(738)+JVS(2929)*UV(3560)+JVS(2930)*UV(5258) - JUV(739) = JVS(2931)*UV(739)+JVS(2932)*UV(2018)+JVS(2933)*UV(4418)+JVS(2934)*UV(5252)+JVS(2935)*UV(5256) - JUV(740) = JVS(2936)*UV(740)+JVS(2937)*UV(2362)+JVS(2938)*UV(4148)+JVS(2939)*UV(5252)+JVS(2940)*UV(5256) - JUV(741) = JVS(2941)*UV(741)+JVS(2942)*UV(1757)+JVS(2943)*UV(4960)+JVS(2944)*UV(5252)+JVS(2945)*UV(5256) - JUV(742) = JVS(2946)*UV(742)+JVS(2947)*UV(4725)+JVS(2948)*UV(5250) - JUV(743) = JVS(2949)*UV(743)+JVS(2950)*UV(2294)+JVS(2951)*UV(3738)+JVS(2952)*UV(5252)+JVS(2953)*UV(5256) - JUV(744) = JVS(2954)*UV(744)+JVS(2955)*UV(1830)+JVS(2956)*UV(4381)+JVS(2957)*UV(5252)+JVS(2958)*UV(5256) - JUV(745) = JVS(2959)*UV(745)+JVS(2960)*UV(1839)+JVS(2961)*UV(4369)+JVS(2962)*UV(5252)+JVS(2963)*UV(5256) - JUV(746) = JVS(2964)*UV(746)+JVS(2965)*UV(2351)+JVS(2966)*UV(4076)+JVS(2967)*UV(5252)+JVS(2968)*UV(5256) - JUV(747) = JVS(2969)*UV(747)+JVS(2970)*UV(1850)+JVS(2971)*UV(3677)+JVS(2972)*UV(5252)+JVS(2973)*UV(5256) - JUV(748) = JVS(2974)*UV(748)+JVS(2975)*UV(2451)+JVS(2976)*UV(3863)+JVS(2977)*UV(5252)+JVS(2978)*UV(5256) - JUV(749) = JVS(2979)*UV(749)+JVS(2980)*UV(3473)+JVS(2981)*UV(4365)+JVS(2982)*UV(5252)+JVS(2983)*UV(5256) - JUV(750) = JVS(2984)*UV(750)+JVS(2985)*UV(2358)+JVS(2986)*UV(4787)+JVS(2987)*UV(5252)+JVS(2988)*UV(5256) - JUV(751) = JVS(2989)*UV(751)+JVS(2990)*UV(4941)+JVS(2991)*UV(5183)+JVS(2992)*UV(5250)+JVS(2993)*UV(5255) - JUV(752) = JVS(2994)*UV(752)+JVS(2995)*UV(3482)+JVS(2996)*UV(5258) - JUV(753) = JVS(2997)*UV(753)+JVS(2998)*UV(1979)+JVS(2999)*UV(3679)+JVS(3000)*UV(5252)+JVS(3001)*UV(5256) - JUV(754) = JVS(3002)*UV(754)+JVS(3003)*UV(4137)+JVS(3004)*UV(5250) - JUV(755) = JVS(3005)*UV(755)+JVS(3006)*UV(3469)+JVS(3007)*UV(4887)+JVS(3008)*UV(5252)+JVS(3009)*UV(5256) - JUV(756) = JVS(3010)*UV(756)+JVS(3011)*UV(3624)+JVS(3012)*UV(4935)+JVS(3013)*UV(5252)+JVS(3014)*UV(5256) - JUV(757) = JVS(3015)*UV(757)+JVS(3016)*UV(5062)+JVS(3017)*UV(5250) - JUV(758) = JVS(3018)*UV(758)+JVS(3019)*UV(4903)+JVS(3020)*UV(5250) - JUV(759) = JVS(3021)*UV(759)+JVS(3022)*UV(4951)+JVS(3023)*UV(5258) - JUV(760) = JVS(3024)*UV(60)+JVS(3025)*UV(760)+JVS(3026)*UV(4234)+JVS(3027)*UV(5250)+JVS(3028)*UV(5252)+JVS(3029)& - &*UV(5256) - JUV(761) = JVS(3030)*UV(761)+JVS(3031)*UV(2572)+JVS(3032)*UV(4367)+JVS(3033)*UV(5252)+JVS(3034)*UV(5256) - JUV(762) = JVS(3035)*UV(762)+JVS(3036)*UV(4709)+JVS(3037)*UV(5250) - JUV(763) = JVS(3038)*UV(763)+JVS(3039)*UV(5226)+JVS(3040)*UV(5258) - JUV(764) = JVS(3041)*UV(764)+JVS(3042)*UV(4707)+JVS(3043)*UV(5250) - JUV(765) = JVS(3044)*UV(765)+JVS(3045)*UV(3018)+JVS(3046)*UV(4814)+JVS(3047)*UV(5252)+JVS(3048)*UV(5256) - JUV(766) = JVS(3049)*UV(766)+JVS(3050)*UV(4474)+JVS(3051)*UV(5258) - JUV(767) = JVS(3052)*UV(767)+JVS(3053)*UV(3668)+JVS(3054)*UV(5250) - JUV(768) = JVS(3055)*UV(768)+JVS(3056)*UV(2089)+JVS(3057)*UV(3669)+JVS(3058)*UV(5252)+JVS(3059)*UV(5256) - JUV(769) = JVS(3060)*UV(769)+JVS(3061)*UV(4122)+JVS(3062)*UV(5250) - JUV(770) = JVS(3063)*UV(770)+JVS(3064)*UV(2469)+JVS(3065)*UV(4754)+JVS(3066)*UV(5252)+JVS(3067)*UV(5256) - JUV(771) = JVS(3068)*UV(771)+JVS(3069)*UV(4952)+JVS(3070)*UV(5258) - JUV(772) = JVS(3071)*UV(772)+JVS(3072)*UV(3715)+JVS(3073)*UV(5250) - JUV(773) = JVS(3074)*UV(773)+JVS(3075)*UV(1840)+JVS(3076)*UV(4069)+JVS(3077)*UV(5252)+JVS(3078)*UV(5256) - JUV(774) = JVS(3079)*UV(774)+JVS(3080)*UV(1958)+JVS(3081)*UV(4131)+JVS(3082)*UV(5252)+JVS(3083)*UV(5256) - JUV(775) = JVS(3084)*UV(775)+JVS(3085)*UV(1985)+JVS(3086)*UV(3838)+JVS(3087)*UV(5252)+JVS(3088)*UV(5256) - JUV(776) = JVS(3089)*UV(776)+JVS(3090)*UV(2298)+JVS(3091)*UV(3919)+JVS(3092)*UV(5252)+JVS(3093)*UV(5256) - JUV(777) = JVS(3094)*UV(777)+JVS(3095)*UV(1947)+JVS(3096)*UV(4284)+JVS(3097)*UV(5252)+JVS(3098)*UV(5256) - JUV(778) = JVS(3099)*UV(778)+JVS(3100)*UV(1908)+JVS(3101)*UV(4566)+JVS(3102)*UV(5252)+JVS(3103)*UV(5256) - JUV(779) = JVS(3104)*UV(779)+JVS(3105)*UV(4718)+JVS(3106)*UV(5250) - JUV(780) = JVS(3107)*UV(780)+JVS(3108)*UV(1783)+JVS(3109)*UV(4535)+JVS(3110)*UV(5252)+JVS(3111)*UV(5256) - JUV(781) = JVS(3112)*UV(781)+JVS(3113)*UV(2617)+JVS(3114)*UV(4129)+JVS(3115)*UV(5252)+JVS(3116)*UV(5256) - JUV(782) = JVS(3117)*UV(782)+JVS(3118)*UV(2047)+JVS(3119)*UV(3814)+JVS(3120)*UV(5252)+JVS(3121)*UV(5256) - JUV(783) = JVS(3122)*UV(783)+JVS(3123)*UV(2103)+JVS(3124)*UV(3921)+JVS(3125)*UV(5252)+JVS(3126)*UV(5256) - JUV(784) = JVS(3127)*UV(784)+JVS(3128)*UV(2058)+JVS(3129)*UV(3936)+JVS(3130)*UV(5252)+JVS(3131)*UV(5256) - JUV(785) = JVS(3132)*UV(785)+JVS(3133)*UV(4803)+JVS(3134)*UV(5250) - JUV(786) = JVS(3135)*UV(786)+JVS(3136)*UV(1901)+JVS(3137)*UV(4768)+JVS(3138)*UV(5252)+JVS(3139)*UV(5256) - JUV(787) = JVS(3140)*UV(787)+JVS(3141)*UV(2204)+JVS(3142)*UV(4030)+JVS(3143)*UV(5252)+JVS(3144)*UV(5256) - JUV(788) = JVS(3145)*UV(788)+JVS(3146)*UV(4720)+JVS(3147)*UV(5250) - JUV(789) = JVS(3148)*UV(789)+JVS(3149)*UV(4410)+JVS(3150)*UV(5250) - JUV(790) = JVS(3151)*UV(790)+JVS(3152)*UV(4786)+JVS(3153)*UV(5258) - JUV(791) = JVS(3154)*UV(791)+JVS(3155)*UV(2027)+JVS(3156)*UV(3881)+JVS(3157)*UV(5252)+JVS(3158)*UV(5256) - JUV(792) = JVS(3159)*UV(792)+JVS(3160)*UV(1898)+JVS(3161)*UV(3727)+JVS(3162)*UV(5252)+JVS(3163)*UV(5256) - JUV(793) = JVS(3164)*UV(793)+JVS(3165)*UV(3950)+JVS(3166)*UV(5250) - JUV(794) = JVS(3167)*UV(794)+JVS(3168)*UV(4179)+JVS(3169)*UV(5250) - JUV(795) = JVS(3170)*UV(795)+JVS(3171)*UV(2348)+JVS(3172)*UV(3976)+JVS(3173)*UV(5252)+JVS(3174)*UV(5256) - JUV(796) = JVS(3175)*UV(796)+JVS(3176)*UV(4167)+JVS(3177)*UV(5250) - JUV(797) = JVS(3178)*UV(797)+JVS(3179)*UV(2180)+JVS(3180)*UV(3891)+JVS(3181)*UV(5252)+JVS(3182)*UV(5256) - JUV(798) = JVS(3183)*UV(798)+JVS(3184)*UV(2389)+JVS(3185)*UV(3680)+JVS(3186)*UV(5252)+JVS(3187)*UV(5256) - JUV(799) = JVS(3188)*UV(799)+JVS(3189)*UV(4900)+JVS(3190)*UV(5250) - JUV(800) = JVS(3191)*UV(800)+JVS(3192)*UV(2152)+JVS(3193)*UV(4440)+JVS(3194)*UV(5252)+JVS(3195)*UV(5256) - JUV(801) = JVS(3196)*UV(801)+JVS(3197)*UV(2690)+JVS(3198)*UV(4070)+JVS(3199)*UV(5252)+JVS(3200)*UV(5256) - JUV(802) = JVS(3201)*UV(802)+JVS(3202)*UV(1793)+JVS(3203)*UV(4136)+JVS(3204)*UV(5252)+JVS(3205)*UV(5256) - JUV(803) = JVS(3206)*UV(803)+JVS(3207)*UV(4103)+JVS(3208)*UV(5250) - JUV(804) = JVS(3209)*UV(804)+JVS(3210)*UV(4715)+JVS(3211)*UV(5250) - JUV(805) = JVS(3212)*UV(805)+JVS(3213)*UV(3780)+JVS(3214)*UV(5250) - JUV(806) = JVS(3215)*UV(806)+JVS(3216)*UV(5078)+JVS(3217)*UV(5250) - JUV(807) = JVS(3218)*UV(807)+JVS(3219)*UV(4716)+JVS(3220)*UV(5250) - JUV(808) = JVS(3221)*UV(808)+JVS(3222)*UV(3446)+JVS(3223)*UV(4358)+JVS(3224)*UV(5252)+JVS(3225)*UV(5256) - JUV(809) = JVS(3226)*UV(809)+JVS(3227)*UV(2093)+JVS(3228)*UV(4327)+JVS(3229)*UV(5252)+JVS(3230)*UV(5256) - JUV(810) = JVS(3231)*UV(810)+JVS(3232)*UV(1871)+JVS(3233)*UV(4147)+JVS(3234)*UV(5252)+JVS(3235)*UV(5256) - JUV(811) = JVS(3236)*UV(811)+JVS(3237)*UV(4727)+JVS(3238)*UV(5250) - JUV(812) = JVS(3239)*UV(812)+JVS(3240)*UV(4971)+JVS(3241)*UV(5250) - JUV(813) = JVS(3242)*UV(813)+JVS(3243)*UV(4385)+JVS(3244)*UV(5250) - JUV(814) = JVS(3245)*UV(814)+JVS(3246)*UV(2262)+JVS(3247)*UV(3945)+JVS(3248)*UV(5252)+JVS(3249)*UV(5256) - JUV(815) = JVS(3250)*UV(815)+JVS(3251)*UV(2166)+JVS(3252)*UV(4590)+JVS(3253)*UV(5252)+JVS(3254)*UV(5256) - JUV(816) = JVS(3255)*UV(816)+JVS(3256)*UV(2046)+JVS(3257)*UV(3685)+JVS(3258)*UV(5252)+JVS(3259)*UV(5256) - JUV(817) = JVS(3260)*UV(817)+JVS(3261)*UV(2440)+JVS(3262)*UV(4130)+JVS(3263)*UV(5252)+JVS(3264)*UV(5256) - JUV(818) = JVS(3265)*UV(818)+JVS(3266)*UV(4943)+JVS(3267)*UV(5244)+JVS(3268)*UV(5250)+JVS(3269)*UV(5255) - JUV(819) = JVS(3270)*UV(819)+JVS(3271)*UV(5013)+JVS(3272)*UV(5258) - JUV(820) = JVS(3273)*UV(820)+JVS(3274)*UV(2115)+JVS(3275)*UV(4549)+JVS(3276)*UV(5252)+JVS(3277)*UV(5256) - JUV(821) = JVS(3278)*UV(821)+JVS(3279)*UV(5196)+JVS(3280)*UV(5250) - JUV(822) = JVS(3281)*UV(822)+JVS(3282)*UV(3997)+JVS(3283)*UV(5250)+JVS(3284)*UV(5255) - JUV(823) = JVS(3285)*UV(823)+JVS(3286)*UV(4659)+JVS(3287)*UV(5250)+JVS(3288)*UV(5255) - JUV(824) = JVS(3289)*UV(824)+JVS(3290)*UV(4853)+JVS(3291)*UV(5250)+JVS(3292)*UV(5255) - JUV(825) = JVS(3293)*UV(825)+JVS(3294)*UV(4262)+JVS(3295)*UV(5250)+JVS(3296)*UV(5255) - JUV(826) = JVS(3297)*UV(826)+JVS(3298)*UV(4216)+JVS(3299)*UV(5250)+JVS(3300)*UV(5255) - JUV(827) = JVS(3301)*UV(827)+JVS(3302)*UV(4653)+JVS(3303)*UV(5250)+JVS(3304)*UV(5255) - JUV(828) = JVS(3305)*UV(828)+JVS(3306)*UV(4771)+JVS(3307)*UV(5250)+JVS(3308)*UV(5255) - JUV(829) = JVS(3309)*UV(829)+JVS(3310)*UV(4344)+JVS(3311)*UV(5250)+JVS(3312)*UV(5255) - JUV(830) = JVS(3313)*UV(830)+JVS(3314)*UV(4043)+JVS(3315)*UV(5250)+JVS(3316)*UV(5255) - JUV(831) = JVS(3317)*UV(831)+JVS(3318)*UV(3932)+JVS(3319)*UV(5250)+JVS(3320)*UV(5255) - JUV(832) = JVS(3321)*UV(832)+JVS(3322)*UV(4994)+JVS(3323)*UV(5250)+JVS(3324)*UV(5255) - JUV(833) = JVS(3325)*UV(833)+JVS(3326)*UV(5158)+JVS(3327)*UV(5250)+JVS(3328)*UV(5255) - JUV(834) = JVS(3329)*UV(834)+JVS(3330)*UV(4427)+JVS(3331)*UV(5250)+JVS(3332)*UV(5255) - JUV(835) = JVS(3333)*UV(835)+JVS(3334)*UV(4306)+JVS(3335)*UV(5250)+JVS(3336)*UV(5255) - JUV(836) = JVS(3337)*UV(836)+JVS(3338)*UV(3718)+JVS(3339)*UV(5250)+JVS(3340)*UV(5255) - JUV(837) = JVS(3341)*UV(837)+JVS(3342)*UV(4626)+JVS(3343)*UV(5250)+JVS(3344)*UV(5255) - JUV(838) = JVS(3345)*UV(838)+JVS(3346)*UV(4422)+JVS(3347)*UV(5250)+JVS(3348)*UV(5255) - JUV(839) = JVS(3349)*UV(839)+JVS(3350)*UV(4658)+JVS(3351)*UV(5250)+JVS(3352)*UV(5255) - JUV(840) = JVS(3353)*UV(840)+JVS(3354)*UV(3733)+JVS(3355)*UV(5250)+JVS(3356)*UV(5252) - JUV(841) = JVS(3357)*UV(841)+JVS(3358)*UV(4111)+JVS(3359)*UV(5250)+JVS(3360)*UV(5255) - JUV(842) = JVS(3361)*UV(842)+JVS(3362)*UV(4439)+JVS(3363)*UV(5250)+JVS(3364)*UV(5255) - JUV(843) = JVS(3365)*UV(843)+JVS(3366)*UV(4008)+JVS(3367)*UV(5250)+JVS(3368)*UV(5255) - JUV(844) = JVS(3369)*UV(844)+JVS(3370)*UV(4035)+JVS(3371)*UV(5250)+JVS(3372)*UV(5255) - JUV(845) = JVS(3373)*UV(845)+JVS(3374)*UV(4629)+JVS(3375)*UV(5250)+JVS(3376)*UV(5255) - JUV(846) = JVS(3377)*UV(846)+JVS(3378)*UV(4821)+JVS(3379)*UV(5250)+JVS(3380)*UV(5255) - JUV(847) = JVS(3381)*UV(847)+JVS(3382)*UV(4645)+JVS(3383)*UV(5149)+JVS(3384)*UV(5250) - JUV(848) = JVS(3385)*UV(848)+JVS(3386)*UV(5065)+JVS(3387)*UV(5250)+JVS(3388)*UV(5255) - JUV(849) = JVS(3389)*UV(849)+JVS(3390)*UV(4624)+JVS(3391)*UV(5250)+JVS(3392)*UV(5255) - JUV(850) = JVS(3393)*UV(850)+JVS(3394)*UV(4521)+JVS(3395)*UV(5250)+JVS(3396)*UV(5255) - JUV(851) = JVS(3397)*UV(851)+JVS(3398)*UV(4377)+JVS(3399)*UV(5250)+JVS(3400)*UV(5255) - JUV(852) = JVS(3401)*UV(852)+JVS(3402)*UV(4085)+JVS(3403)*UV(5250)+JVS(3404)*UV(5255) - JUV(853) = JVS(3405)*UV(853)+JVS(3406)*UV(4469)+JVS(3407)*UV(5250)+JVS(3408)*UV(5255) - JUV(854) = JVS(3409)*UV(854)+JVS(3410)*UV(4001)+JVS(3411)*UV(5250)+JVS(3412)*UV(5255) - JUV(855) = JVS(3413)*UV(855)+JVS(3414)*UV(4981)+JVS(3415)*UV(5250)+JVS(3416)*UV(5255) - JUV(856) = JVS(3417)*UV(856)+JVS(3418)*UV(4673)+JVS(3419)*UV(5250)+JVS(3420)*UV(5255) - JUV(857) = JVS(3421)*UV(857)+JVS(3422)*UV(4061)+JVS(3423)*UV(5250)+JVS(3424)*UV(5255) - JUV(858) = JVS(3425)*UV(858)+JVS(3426)*UV(4115)+JVS(3427)*UV(5250)+JVS(3428)*UV(5255) - JUV(859) = JVS(3429)*UV(859)+JVS(3430)*UV(4664)+JVS(3431)*UV(5250)+JVS(3432)*UV(5255) - JUV(860) = JVS(3433)*UV(860)+JVS(3434)*UV(4280)+JVS(3435)*UV(5250)+JVS(3436)*UV(5255) - JUV(861) = JVS(3437)*UV(861)+JVS(3438)*UV(3798)+JVS(3439)*UV(5250)+JVS(3440)*UV(5255) - JUV(862) = JVS(3441)*UV(862)+JVS(3442)*UV(2936)+JVS(3443)*UV(4997)+JVS(3444)*UV(5250) - JUV(863) = JVS(3445)*UV(863)+JVS(3446)*UV(3846)+JVS(3447)*UV(5250)+JVS(3448)*UV(5255) - JUV(864) = JVS(3449)*UV(864)+JVS(3450)*UV(4910)+JVS(3451)*UV(5250)+JVS(3452)*UV(5255) - JUV(865) = JVS(3453)*UV(865)+JVS(3454)*UV(4244)+JVS(3455)*UV(5250)+JVS(3456)*UV(5255) - JUV(866) = JVS(3457)*UV(866)+JVS(3458)*UV(4543)+JVS(3459)*UV(5250)+JVS(3460)*UV(5255) - JUV(867) = JVS(3461)*UV(867)+JVS(3462)*UV(4187)+JVS(3463)*UV(5250)+JVS(3464)*UV(5255) - JUV(868) = JVS(3465)*UV(868)+JVS(3466)*UV(5237)+JVS(3467)*UV(5250)+JVS(3468)*UV(5255) - JUV(869) = JVS(3469)*UV(869)+JVS(3470)*UV(4655)+JVS(3471)*UV(5250)+JVS(3472)*UV(5255) - JUV(870) = JVS(3473)*UV(870)+JVS(3474)*UV(5146)+JVS(3475)*UV(5250)+JVS(3476)*UV(5255) - JUV(871) = JVS(3477)*UV(871)+JVS(3478)*UV(5247)+JVS(3479)*UV(5250)+JVS(3480)*UV(5255) - JUV(872) = JVS(3481)*UV(872)+JVS(3482)*UV(3698)+JVS(3483)*UV(5250)+JVS(3484)*UV(5255) - JUV(873) = JVS(3485)*UV(873)+JVS(3486)*UV(3980)+JVS(3487)*UV(5250)+JVS(3488)*UV(5255) - JUV(874) = JVS(3489)*UV(874)+JVS(3490)*UV(4837)+JVS(3491)*UV(4959)+JVS(3492)*UV(5250) - JUV(875) = JVS(3493)*UV(875)+JVS(3494)*UV(4382)+JVS(3495)*UV(5250)+JVS(3496)*UV(5255) - JUV(876) = JVS(3497)*UV(876)+JVS(3498)*UV(4990)+JVS(3499)*UV(5250)+JVS(3500)*UV(5255) - JUV(877) = JVS(3501)*UV(877)+JVS(3502)*UV(4149)+JVS(3503)*UV(5250)+JVS(3504)*UV(5255) - JUV(878) = JVS(3505)*UV(878)+JVS(3506)*UV(4296)+JVS(3507)*UV(5250)+JVS(3508)*UV(5255) - JUV(879) = JVS(3509)*UV(879)+JVS(3510)*UV(3858)+JVS(3511)*UV(5250)+JVS(3512)*UV(5255) - JUV(880) = JVS(3513)*UV(880)+JVS(3514)*UV(5084)+JVS(3515)*UV(5250)+JVS(3516)*UV(5255) - JUV(881) = JVS(3517)*UV(881)+JVS(3518)*UV(3898)+JVS(3519)*UV(5250)+JVS(3520)*UV(5255) - JUV(882) = JVS(3521)*UV(882)+JVS(3522)*UV(4825)+JVS(3523)*UV(5250)+JVS(3524)*UV(5255) - JUV(883) = JVS(3525)*UV(883)+JVS(3526)*UV(5104)+JVS(3527)*UV(5250)+JVS(3528)*UV(5255) - JUV(884) = JVS(3529)*UV(884)+JVS(3530)*UV(3627)+JVS(3531)*UV(5250)+JVS(3532)*UV(5255) - JUV(885) = JVS(3533)*UV(885)+JVS(3534)*UV(3988)+JVS(3535)*UV(5250)+JVS(3536)*UV(5255) - JUV(886) = JVS(3537)*UV(886)+JVS(3538)*UV(5111)+JVS(3539)*UV(5250)+JVS(3540)*UV(5255) - JUV(887) = JVS(3541)*UV(887)+JVS(3542)*UV(3839)+JVS(3543)*UV(5250)+JVS(3544)*UV(5255) - JUV(888) = JVS(3545)*UV(888)+JVS(3546)*UV(4643)+JVS(3547)*UV(5250)+JVS(3548)*UV(5255) - JUV(889) = JVS(3549)*UV(889)+JVS(3550)*UV(4860)+JVS(3551)*UV(5250)+JVS(3552)*UV(5255) - JUV(890) = JVS(3553)*UV(890)+JVS(3554)*UV(4657)+JVS(3555)*UV(5250)+JVS(3556)*UV(5255) - JUV(891) = JVS(3557)*UV(891)+JVS(3558)*UV(3860)+JVS(3559)*UV(5250)+JVS(3560)*UV(5255) - JUV(892) = JVS(3561)*UV(892)+JVS(3562)*UV(4011)+JVS(3563)*UV(5250)+JVS(3564)*UV(5255) - JUV(893) = JVS(3565)*UV(893)+JVS(3566)*UV(4518)+JVS(3567)*UV(5250)+JVS(3568)*UV(5255) - JUV(894) = JVS(3569)*UV(894)+JVS(3570)*UV(4808)+JVS(3571)*UV(5250)+JVS(3572)*UV(5255) - JUV(895) = JVS(3573)*UV(895)+JVS(3574)*UV(4577)+JVS(3575)*UV(4722)+JVS(3576)*UV(5250) - JUV(896) = JVS(3577)*UV(896)+JVS(3578)*UV(4844)+JVS(3579)*UV(5148)+JVS(3580)*UV(5250) - JUV(897) = JVS(3581)*UV(897)+JVS(3582)*UV(4097)+JVS(3583)*UV(5250)+JVS(3584)*UV(5255) - JUV(898) = JVS(3585)*UV(898)+JVS(3586)*UV(4656)+JVS(3587)*UV(5250)+JVS(3588)*UV(5255) - JUV(899) = JVS(3589)*UV(899)+JVS(3590)*UV(4613)+JVS(3591)*UV(5250)+JVS(3592)*UV(5255) - JUV(900) = JVS(3593)*UV(900)+JVS(3594)*UV(5014)+JVS(3595)*UV(5250)+JVS(3596)*UV(5255) - JUV(901) = JVS(3597)*UV(901)+JVS(3598)*UV(4977)+JVS(3599)*UV(5250)+JVS(3600)*UV(5255) - JUV(902) = JVS(3601)*UV(902)+JVS(3602)*UV(4510)+JVS(3603)*UV(5250)+JVS(3604)*UV(5255) - JUV(903) = JVS(3605)*UV(903)+JVS(3606)*UV(4853)+JVS(3607)*UV(5250)+JVS(3608)*UV(5255) - JUV(904) = JVS(3609)*UV(904)+JVS(3610)*UV(3852)+JVS(3611)*UV(5250)+JVS(3612)*UV(5255) - JUV(905) = JVS(3613)*UV(905)+JVS(3614)*UV(3971)+JVS(3615)*UV(5250)+JVS(3616)*UV(5252) - JUV(906) = JVS(3617)*UV(906)+JVS(3618)*UV(4867)+JVS(3619)*UV(5250)+JVS(3620)*UV(5255) - JUV(907) = JVS(3621)*UV(907)+JVS(3622)*UV(3998)+JVS(3623)*UV(5250)+JVS(3624)*UV(5255) - JUV(908) = JVS(3625)*UV(908)+JVS(3626)*UV(4211)+JVS(3627)*UV(5250)+JVS(3628)*UV(5255) - JUV(909) = JVS(3629)*UV(909)+JVS(3630)*UV(4263)+JVS(3631)*UV(5250)+JVS(3632)*UV(5255) - JUV(910) = JVS(3633)*UV(910)+JVS(3634)*UV(4635)+JVS(3635)*UV(5250)+JVS(3636)*UV(5255) - JUV(911) = JVS(3637)*UV(448)+JVS(3638)*UV(485)+JVS(3639)*UV(911)+JVS(3641)*UV(3696)+JVS(3642)*UV(5250) - JUV(912) = JVS(3643)*UV(912)+JVS(3644)*UV(4090)+JVS(3645)*UV(5250)+JVS(3646)*UV(5255) - JUV(913) = JVS(3647)*UV(913)+JVS(3648)*UV(4305)+JVS(3649)*UV(5250)+JVS(3650)*UV(5255) - JUV(914) = JVS(3651)*UV(914)+JVS(3652)*UV(4335)+JVS(3653)*UV(5250)+JVS(3654)*UV(5255) - JUV(915) = JVS(3655)*UV(915)+JVS(3656)*UV(4684)+JVS(3657)*UV(5250)+JVS(3658)*UV(5255) - JUV(916) = JVS(3659)*UV(916)+JVS(3660)*UV(4955)+JVS(3661)*UV(5250)+JVS(3662)*UV(5255) - JUV(917) = JVS(3663)*UV(917)+JVS(3664)*UV(4291)+JVS(3665)*UV(5250)+JVS(3666)*UV(5255) - JUV(918) = JVS(3667)*UV(918)+JVS(3668)*UV(5239)+JVS(3669)*UV(5250)+JVS(3670)*UV(5255) - JUV(919) = JVS(3671)*UV(919)+JVS(3672)*UV(4288)+JVS(3673)*UV(5250)+JVS(3674)*UV(5255) - JUV(920) = JVS(3675)*UV(920)+JVS(3676)*UV(4146)+JVS(3677)*UV(5250)+JVS(3678)*UV(5255) - JUV(921) = JVS(3679)*UV(921)+JVS(3680)*UV(4641)+JVS(3681)*UV(5250)+JVS(3682)*UV(5255) - JUV(922) = JVS(3683)*UV(922)+JVS(3684)*UV(3507)+JVS(3685)*UV(5250)+JVS(3686)*UV(5255) - JUV(923) = JVS(3687)*UV(923)+JVS(3688)*UV(4307)+JVS(3689)*UV(5250)+JVS(3690)*UV(5255) - JUV(924) = JVS(3691)*UV(924)+JVS(3692)*UV(4522)+JVS(3693)*UV(5250)+JVS(3694)*UV(5255) - JUV(925) = JVS(3695)*UV(925)+JVS(3696)*UV(5250)+JVS(3697)*UV(5253)+JVS(3698)*UV(5255) - JUV(926) = JVS(3699)*UV(926)+JVS(3700)*UV(4598)+JVS(3701)*UV(5096)+JVS(3702)*UV(5250) - JUV(927) = JVS(3703)*UV(927)+JVS(3704)*UV(3890)+JVS(3705)*UV(5250)+JVS(3706)*UV(5255) - JUV(928) = JVS(3707)*UV(928)+JVS(3708)*UV(4481)+JVS(3709)*UV(5250)+JVS(3710)*UV(5255) - JUV(929) = JVS(3711)*UV(929)+JVS(3712)*UV(4451)+JVS(3713)*UV(5250)+JVS(3714)*UV(5255) - JUV(930) = JVS(3715)*UV(930)+JVS(3716)*UV(4745)+JVS(3717)*UV(5250)+JVS(3718)*UV(5255) - JUV(931) = JVS(3719)*UV(931)+JVS(3720)*UV(4124)+JVS(3721)*UV(5250)+JVS(3722)*UV(5255) - JUV(932) = JVS(3723)*UV(932)+JVS(3724)*UV(3489)+JVS(3725)*UV(5250)+JVS(3726)*UV(5255) - JUV(933) = JVS(3727)*UV(933)+JVS(3728)*UV(4660)+JVS(3729)*UV(5250)+JVS(3730)*UV(5255) - JUV(934) = JVS(3731)*UV(934)+JVS(3732)*UV(4467)+JVS(3733)*UV(5250)+JVS(3734)*UV(5255) - JUV(935) = JVS(3735)*UV(935)+JVS(3736)*UV(3694)+JVS(3737)*UV(5250)+JVS(3738)*UV(5255) - JUV(936) = JVS(3739)*UV(936)+JVS(3740)*UV(4636)+JVS(3741)*UV(5250)+JVS(3742)*UV(5255) - JUV(937) = JVS(3743)*UV(937)+JVS(3744)*UV(4833)+JVS(3745)*UV(5250)+JVS(3746)*UV(5255) - JUV(938) = JVS(3747)*UV(938)+JVS(3748)*UV(3562)+JVS(3749)*UV(5250)+JVS(3750)*UV(5255) - JUV(939) = JVS(3751)*UV(939)+JVS(3752)*UV(3538)+JVS(3753)*UV(5250)+JVS(3754)*UV(5255) - JUV(940) = JVS(3755)*UV(940)+JVS(3756)*UV(4503)+JVS(3757)*UV(5250)+JVS(3758)*UV(5255) - JUV(941) = JVS(3759)*UV(941)+JVS(3760)*UV(4692)+JVS(3761)*UV(5250)+JVS(3762)*UV(5255) - JUV(942) = JVS(3763)*UV(942)+JVS(3764)*UV(3845)+JVS(3765)*UV(5250)+JVS(3766)*UV(5255) - JUV(943) = JVS(3767)*UV(943)+JVS(3768)*UV(4009)+JVS(3769)*UV(5250)+JVS(3770)*UV(5255) - JUV(944) = JVS(3771)*UV(944)+JVS(3772)*UV(3752)+JVS(3773)*UV(5250)+JVS(3774)*UV(5255) - JUV(945) = JVS(3775)*UV(945)+JVS(3776)*UV(4866)+JVS(3777)*UV(5250)+JVS(3778)*UV(5255) - JUV(946) = JVS(3779)*UV(946)+JVS(3780)*UV(4419)+JVS(3781)*UV(5250)+JVS(3782)*UV(5255) - JUV(947) = JVS(3783)*UV(947)+JVS(3784)*UV(4400)+JVS(3785)*UV(5250)+JVS(3786)*UV(5255) - JUV(948) = JVS(3787)*UV(948)+JVS(3788)*UV(4019)+JVS(3789)*UV(5250)+JVS(3790)*UV(5255) - JUV(949) = JVS(3791)*UV(949)+JVS(3792)*UV(3901)+JVS(3793)*UV(5250)+JVS(3794)*UV(5255) - JUV(950) = JVS(3795)*UV(950)+JVS(3796)*UV(4044)+JVS(3797)*UV(5250)+JVS(3798)*UV(5255) - JUV(951) = JVS(3799)*UV(951)+JVS(3800)*UV(4679)+JVS(3801)*UV(5250)+JVS(3802)*UV(5255) - JUV(952) = JVS(3803)*UV(952)+JVS(3804)*UV(4052)+JVS(3805)*UV(5250)+JVS(3806)*UV(5255) - JUV(953) = JVS(3807)*UV(953)+JVS(3808)*UV(4818)+JVS(3809)*UV(5250)+JVS(3810)*UV(5255) - JUV(954) = JVS(3811)*UV(954)+JVS(3812)*UV(4631)+JVS(3813)*UV(5250)+JVS(3814)*UV(5255) - JUV(955) = JVS(3815)*UV(955)+JVS(3816)*UV(4172)+JVS(3817)*UV(5250)+JVS(3818)*UV(5255) - JUV(956) = JVS(3819)*UV(956)+JVS(3820)*UV(3803)+JVS(3821)*UV(5250)+JVS(3822)*UV(5255) - JUV(957) = JVS(3823)*UV(957)+JVS(3824)*UV(4599)+JVS(3825)*UV(5250)+JVS(3826)*UV(5252) - JUV(958) = JVS(3827)*UV(958)+JVS(3828)*UV(4957)+JVS(3829)*UV(5250)+JVS(3830)*UV(5255) - JUV(959) = JVS(3831)*UV(959)+JVS(3832)*UV(3518)+JVS(3833)*UV(5250)+JVS(3834)*UV(5255) - JUV(960) = JVS(3835)*UV(960)+JVS(3836)*UV(4421)+JVS(3837)*UV(5250)+JVS(3838)*UV(5255) - JUV(961) = JVS(3839)*UV(961)+JVS(3840)*UV(4641)+JVS(3841)*UV(5250)+JVS(3842)*UV(5255) - JUV(962) = JVS(3843)*UV(962)+JVS(3844)*UV(4210)+JVS(3845)*UV(5250)+JVS(3846)*UV(5255) - JUV(963) = JVS(3847)*UV(963)+JVS(3848)*UV(3714)+JVS(3849)*UV(5250)+JVS(3850)*UV(5255) - JUV(964) = JVS(3851)*UV(964)+JVS(3852)*UV(5119)+JVS(3853)*UV(5250)+JVS(3854)*UV(5255) - JUV(965) = JVS(3855)*UV(965)+JVS(3856)*UV(4734)+JVS(3857)*UV(5250)+JVS(3858)*UV(5255) - JUV(966) = JVS(3859)*UV(966)+JVS(3860)*UV(3481)+JVS(3861)*UV(5250)+JVS(3862)*UV(5255) - JUV(967) = JVS(3863)*UV(967)+JVS(3864)*UV(4712)+JVS(3865)*UV(5250)+JVS(3866)*UV(5255) - JUV(968) = JVS(3867)*UV(968)+JVS(3868)*UV(5132)+JVS(3869)*UV(5250)+JVS(3870)*UV(5255) - JUV(969) = JVS(3871)*UV(969)+JVS(3872)*UV(3636)+JVS(3873)*UV(5250)+JVS(3874)*UV(5255) - JUV(970) = JVS(3875)*UV(970)+JVS(3876)*UV(4394)+JVS(3877)*UV(5250)+JVS(3878)*UV(5255) - JUV(971) = JVS(3879)*UV(971)+JVS(3880)*UV(3895)+JVS(3881)*UV(5250)+JVS(3882)*UV(5255) - JUV(972) = JVS(3883)*UV(972)+JVS(3884)*UV(4245)+JVS(3885)*UV(5250)+JVS(3886)*UV(5255) - JUV(973) = JVS(3887)*UV(973)+JVS(3888)*UV(4423)+JVS(3889)*UV(5250)+JVS(3890)*UV(5255) - JUV(974) = JVS(3891)*UV(974)+JVS(3892)*UV(3953)+JVS(3893)*UV(5250)+JVS(3894)*UV(5255) - JUV(975) = JVS(3895)*UV(975)+JVS(3896)*UV(4500)+JVS(3897)*UV(5250)+JVS(3898)*UV(5255) - JUV(976) = JVS(3899)*UV(976)+JVS(3900)*UV(4879)+JVS(3901)*UV(5250)+JVS(3902)*UV(5255) - JUV(977) = JVS(3903)*UV(977)+JVS(3904)*UV(4415)+JVS(3905)*UV(5250)+JVS(3906)*UV(5255) - JUV(978) = JVS(3907)*UV(978)+JVS(3908)*UV(4006)+JVS(3909)*UV(5250)+JVS(3910)*UV(5255) - JUV(979) = JVS(3911)*UV(979)+JVS(3912)*UV(4195)+JVS(3913)*UV(5250)+JVS(3914)*UV(5255) - JUV(980) = JVS(3915)*UV(980)+JVS(3916)*UV(4121)+JVS(3917)*UV(5250)+JVS(3918)*UV(5255) - JUV(981) = JVS(3919)*UV(981)+JVS(3920)*UV(5127)+JVS(3921)*UV(5250)+JVS(3922)*UV(5255) - JUV(982) = JVS(3923)*UV(982)+JVS(3924)*UV(3632)+JVS(3925)*UV(5250)+JVS(3926)*UV(5255) - JUV(983) = JVS(3927)*UV(983)+JVS(3928)*UV(4979)+JVS(3929)*UV(5250)+JVS(3930)*UV(5255) - JUV(984) = JVS(3931)*UV(984)+JVS(3932)*UV(3949)+JVS(3933)*UV(5250)+JVS(3934)*UV(5255) - JUV(985) = JVS(3935)*UV(985)+JVS(3936)*UV(4847)+JVS(3937)*UV(5250)+JVS(3938)*UV(5255) - JUV(986) = JVS(3939)*UV(986)+JVS(3940)*UV(4969)+JVS(3941)*UV(5250)+JVS(3942)*UV(5255) - JUV(987) = JVS(3943)*UV(987)+JVS(3944)*UV(5183)+JVS(3945)*UV(5250)+JVS(3946)*UV(5255) - JUV(988) = JVS(3947)*UV(988)+JVS(3948)*UV(4642)+JVS(3949)*UV(5250)+JVS(3950)*UV(5255) - JUV(989) = JVS(3951)*UV(989)+JVS(3952)*UV(3719)+JVS(3953)*UV(5250)+JVS(3954)*UV(5255) - JUV(990) = JVS(3955)*UV(990)+JVS(3956)*UV(4830)+JVS(3957)*UV(5250)+JVS(3958)*UV(5255) - JUV(991) = JVS(3959)*UV(991)+JVS(3960)*UV(4159)+JVS(3961)*UV(5250)+JVS(3962)*UV(5252) - JUV(992) = JVS(3963)*UV(992)+JVS(3964)*UV(3717)+JVS(3965)*UV(5250)+JVS(3966)*UV(5255) - JUV(993) = JVS(3967)*UV(993)+JVS(3968)*UV(5017)+JVS(3969)*UV(5250)+JVS(3970)*UV(5255) - JUV(994) = JVS(3971)*UV(994)+JVS(3972)*UV(4904)+JVS(3973)*UV(5250)+JVS(3974)*UV(5255) - JUV(995) = JVS(3975)*UV(995)+JVS(3976)*UV(4890)+JVS(3977)*UV(5250)+JVS(3978)*UV(5255) - JUV(996) = JVS(3979)*UV(996)+JVS(3980)*UV(3534)+JVS(3981)*UV(5250)+JVS(3982)*UV(5255) - JUV(997) = JVS(3983)*UV(997)+JVS(3984)*UV(4134)+JVS(3985)*UV(5250)+JVS(3986)*UV(5255) - JUV(998) = JVS(3987)*UV(998)+JVS(3988)*UV(4854)+JVS(3989)*UV(5250)+JVS(3990)*UV(5255) - JUV(999) = JVS(3991)*UV(999)+JVS(3992)*UV(4876)+JVS(3993)*UV(5250)+JVS(3994)*UV(5255) - JUV(1000) = JVS(3995)*UV(1000)+JVS(3996)*UV(3527)+JVS(3997)*UV(5250)+JVS(3998)*UV(5252) - JUV(1001) = JVS(3999)*UV(1001)+JVS(4000)*UV(3963)+JVS(4001)*UV(3971)+JVS(4002)*UV(5250) - JUV(1002) = JVS(4003)*UV(1002)+JVS(4004)*UV(4100)+JVS(4005)*UV(5250)+JVS(4006)*UV(5255) - JUV(1003) = JVS(4007)*UV(1003)+JVS(4008)*UV(4007)+JVS(4009)*UV(5250)+JVS(4010)*UV(5255) - JUV(1004) = JVS(4011)*UV(1004)+JVS(4012)*UV(3789)+JVS(4013)*UV(5250)+JVS(4014)*UV(5255) - JUV(1005) = JVS(4015)*UV(1005)+JVS(4016)*UV(4359)+JVS(4017)*UV(5250)+JVS(4018)*UV(5252) - JUV(1006) = JVS(4019)*UV(1006)+JVS(4020)*UV(4519)+JVS(4021)*UV(5250)+JVS(4022)*UV(5255) - JUV(1007) = JVS(4023)*UV(1007)+JVS(4024)*UV(4201)+JVS(4025)*UV(5250)+JVS(4026)*UV(5255) - JUV(1008) = JVS(4027)*UV(1008)+JVS(4028)*UV(4752)+JVS(4029)*UV(5250)+JVS(4030)*UV(5255) - JUV(1009) = JVS(4031)*UV(1009)+JVS(4032)*UV(3531)+JVS(4033)*UV(5250)+JVS(4034)*UV(5255) - JUV(1010) = JVS(4035)*UV(1010)+JVS(4036)*UV(4577)+JVS(4037)*UV(5250)+JVS(4038)*UV(5255) - JUV(1011) = JVS(4039)*UV(1011)+JVS(4040)*UV(4922)+JVS(4041)*UV(5252)+JVS(4042)*UV(5256) - JUV(1012) = JVS(4043)*UV(1012)+JVS(4044)*UV(3985)+JVS(4045)*UV(5250)+JVS(4046)*UV(5255) - JUV(1013) = JVS(4047)*UV(1013)+JVS(4048)*UV(2627)+JVS(4049)*UV(4932)+JVS(4050)*UV(5252) - JUV(1014) = JVS(4051)*UV(1014)+JVS(4052)*UV(4803)+JVS(4053)*UV(5250)+JVS(4054)*UV(5255) - JUV(1015) = JVS(4055)*UV(1015)+JVS(4056)*UV(5164)+JVS(4057)*UV(5250)+JVS(4058)*UV(5255) - JUV(1016) = JVS(4059)*UV(1016)+JVS(4060)*UV(4720)+JVS(4061)*UV(5250)+JVS(4062)*UV(5255) - JUV(1017) = JVS(4063)*UV(1017)+JVS(4064)*UV(4054)+JVS(4065)*UV(5250)+JVS(4066)*UV(5255) - JUV(1018) = JVS(4067)*UV(1018)+JVS(4068)*UV(4660)+JVS(4069)*UV(5250)+JVS(4070)*UV(5255) - JUV(1019) = JVS(4071)*UV(1019)+JVS(4072)*UV(4120)+JVS(4073)*UV(5250)+JVS(4074)*UV(5255) - JUV(1020) = JVS(4075)*UV(1020)+JVS(4076)*UV(3705)+JVS(4077)*UV(5250)+JVS(4078)*UV(5255) - JUV(1021) = JVS(4079)*UV(1021)+JVS(4080)*UV(3853)+JVS(4081)*UV(5250)+JVS(4082)*UV(5255) - JUV(1022) = JVS(4083)*UV(1022)+JVS(4084)*UV(4818)+JVS(4085)*UV(5250)+JVS(4086)*UV(5255) - JUV(1023) = JVS(4087)*UV(1023)+JVS(4088)*UV(3554)+JVS(4089)*UV(5250)+JVS(4090)*UV(5255) - JUV(1024) = JVS(4091)*UV(1024)+JVS(4092)*UV(3786)+JVS(4093)*UV(5250)+JVS(4094)*UV(5255) - JUV(1025) = JVS(4095)*UV(1025)+JVS(4096)*UV(4194)+JVS(4097)*UV(5250)+JVS(4098)*UV(5255) - JUV(1026) = JVS(4099)*UV(1026)+JVS(4100)*UV(4890)+JVS(4101)*UV(5250)+JVS(4102)*UV(5252) - JUV(1027) = JVS(4103)*UV(1027)+JVS(4104)*UV(3804)+JVS(4105)*UV(5250)+JVS(4106)*UV(5255) - JUV(1028) = JVS(4107)*UV(1028)+JVS(4108)*UV(3678)+JVS(4109)*UV(5250)+JVS(4110)*UV(5255) - JUV(1029) = JVS(4111)*UV(1029)+JVS(4112)*UV(4289)+JVS(4113)*UV(5250)+JVS(4114)*UV(5255) - JUV(1030) = JVS(4115)*UV(1030)+JVS(4116)*UV(4455)+JVS(4117)*UV(5250)+JVS(4118)*UV(5255) - JUV(1031) = JVS(4119)*UV(1031)+JVS(4120)*UV(4829)+JVS(4121)*UV(5250)+JVS(4122)*UV(5255) - JUV(1032) = JVS(4123)*UV(1032)+JVS(4124)*UV(3730)+JVS(4125)*UV(5250)+JVS(4126)*UV(5255) - JUV(1033) = JVS(4127)*UV(1033)+JVS(4128)*UV(3503)+JVS(4129)*UV(5250)+JVS(4130)*UV(5255) - JUV(1034) = JVS(4131)*UV(1034)+JVS(4132)*UV(4568)+JVS(4133)*UV(5250)+JVS(4134)*UV(5255) - JUV(1035) = JVS(4135)*UV(1035)+JVS(4136)*UV(4476)+JVS(4137)*UV(4767)+JVS(4138)*UV(5250) - JUV(1036) = JVS(4139)*UV(1036)+JVS(4140)*UV(3921)+JVS(4141)*UV(3936)+JVS(4142)*UV(5250) - JUV(1037) = JVS(4143)*UV(1037)+JVS(4144)*UV(5137)+JVS(4145)*UV(5250)+JVS(4146)*UV(5255) - JUV(1038) = JVS(4147)*UV(1038)+JVS(4148)*UV(4725)+JVS(4149)*UV(5250)+JVS(4150)*UV(5255) - JUV(1039) = JVS(4151)*UV(1039)+JVS(4152)*UV(3794)+JVS(4153)*UV(5250)+JVS(4154)*UV(5255) - JUV(1040) = JVS(4155)*UV(233)+JVS(4156)*UV(331)+JVS(4157)*UV(1040)+JVS(4159)*UV(3669)+JVS(4160)*UV(5250) - JUV(1041) = JVS(4161)*UV(1041)+JVS(4162)*UV(5079)+JVS(4163)*UV(5250)+JVS(4164)*UV(5255) - JUV(1042) = JVS(4165)*UV(1042)+JVS(4166)*UV(4848)+JVS(4167)*UV(5250)+JVS(4168)*UV(5255) - JUV(1043) = JVS(4169)*UV(1043)+JVS(4170)*UV(3745)+JVS(4171)*UV(5250)+JVS(4172)*UV(5255) - JUV(1044) = JVS(4173)*UV(1044)+JVS(4174)*UV(4486)+JVS(4175)*UV(5250)+JVS(4176)*UV(5255) - JUV(1045) = JVS(4177)*UV(1045)+JVS(4178)*UV(4463)+JVS(4179)*UV(5250)+JVS(4180)*UV(5255) - JUV(1046) = JVS(4181)*UV(1046)+JVS(4182)*UV(3848)+JVS(4183)*UV(5250)+JVS(4184)*UV(5255) - JUV(1047) = JVS(4185)*UV(1047)+JVS(4186)*UV(4855)+JVS(4187)*UV(5250)+JVS(4188)*UV(5255) - JUV(1048) = JVS(4189)*UV(1048)+JVS(4190)*UV(4915)+JVS(4191)*UV(5250)+JVS(4192)*UV(5255) - JUV(1049) = JVS(4193)*UV(1049)+JVS(4194)*UV(4707)+JVS(4195)*UV(5250)+JVS(4196)*UV(5255) - JUV(1050) = JVS(4197)*UV(1050)+JVS(4198)*UV(4310)+JVS(4199)*UV(5116)+JVS(4200)*UV(5250) - JUV(1051) = JVS(4201)*UV(1051)+JVS(4202)*UV(4212)+JVS(4203)*UV(5250)+JVS(4204)*UV(5255) - JUV(1052) = JVS(4205)*UV(1052)+JVS(4206)*UV(5138)+JVS(4207)*UV(5250)+JVS(4208)*UV(5255) - JUV(1053) = JVS(4209)*UV(1053)+JVS(4210)*UV(3713)+JVS(4211)*UV(5250)+JVS(4212)*UV(5255) - JUV(1054) = JVS(4213)*UV(1054)+JVS(4214)*UV(4111)+JVS(4215)*UV(4372)+JVS(4216)*UV(5250) - JUV(1055) = JVS(4217)*UV(1055)+JVS(4218)*UV(4662)+JVS(4219)*UV(5250)+JVS(4220)*UV(5255) - JUV(1056) = JVS(4221)*UV(1056)+JVS(4222)*UV(3920)+JVS(4223)*UV(3966)+JVS(4224)*UV(5250) - JUV(1057) = JVS(4225)*UV(1057)+JVS(4226)*UV(4078)+JVS(4227)*UV(5250)+JVS(4228)*UV(5252) - JUV(1058) = JVS(4229)*UV(1058)+JVS(4230)*UV(3863)+JVS(4231)*UV(5250)+JVS(4232)*UV(5252) - JUV(1059) = JVS(4233)*UV(1059)+JVS(4234)*UV(4089)+JVS(4235)*UV(5250)+JVS(4236)*UV(5255) - JUV(1060) = JVS(4237)*UV(1060)+JVS(4238)*UV(4162)+JVS(4239)*UV(5250)+JVS(4240)*UV(5255) - JUV(1061) = JVS(4241)*UV(1061)+JVS(4242)*UV(4034)+JVS(4243)*UV(5250)+JVS(4244)*UV(5255) - JUV(1062) = JVS(4245)*UV(1062)+JVS(4246)*UV(3771)+JVS(4247)*UV(5250)+JVS(4248)*UV(5255) - JUV(1063) = JVS(4249)*UV(1063)+JVS(4250)*UV(4574)+JVS(4251)*UV(5250)+JVS(4252)*UV(5255) - JUV(1064) = JVS(4253)*UV(1064)+JVS(4254)*UV(4611)+JVS(4255)*UV(5250)+JVS(4256)*UV(5255) - JUV(1065) = JVS(4257)*UV(1065)+JVS(4258)*UV(4928)+JVS(4259)*UV(5250)+JVS(4260)*UV(5255) - JUV(1066) = JVS(4261)*UV(1066)+JVS(4262)*UV(5244)+JVS(4263)*UV(5250)+JVS(4264)*UV(5255) - JUV(1067) = JVS(4265)*UV(1067)+JVS(4266)*UV(4822)+JVS(4267)*UV(5250)+JVS(4268)*UV(5255) - JUV(1068) = JVS(4269)*UV(1068)+JVS(4270)*UV(1642)+JVS(4271)*UV(5228)+JVS(4272)*UV(5250) - JUV(1069) = JVS(4273)*UV(1069)+JVS(4274)*UV(5078)+JVS(4275)*UV(5250)+JVS(4276)*UV(5255) - JUV(1070) = JVS(4277)*UV(1070)+JVS(4278)*UV(3703)+JVS(4279)*UV(5250)+JVS(4280)*UV(5255) - JUV(1071) = JVS(4281)*UV(1071)+JVS(4282)*UV(3840)+JVS(4283)*UV(5250)+JVS(4284)*UV(5255) - JUV(1072) = JVS(4285)*UV(1072)+JVS(4286)*UV(4140)+JVS(4287)*UV(5250)+JVS(4288)*UV(5255) - JUV(1073) = JVS(4289)*UV(1073)+JVS(4290)*UV(4829)+JVS(4291)*UV(5250)+JVS(4292)*UV(5255) - JUV(1074) = JVS(4293)*UV(1074)+JVS(4294)*UV(4412)+JVS(4295)*UV(5250)+JVS(4296)*UV(5255) - JUV(1075) = JVS(4297)*UV(1075)+JVS(4298)*UV(3785)+JVS(4299)*UV(5250)+JVS(4300)*UV(5255) - JUV(1076) = JVS(4301)*UV(1076)+JVS(4302)*UV(4051)+JVS(4303)*UV(5250)+JVS(4304)*UV(5255) - JUV(1077) = JVS(4305)*UV(1077)+JVS(4306)*UV(3855)+JVS(4307)*UV(5250)+JVS(4308)*UV(5255) - JUV(1078) = JVS(4309)*UV(1078)+JVS(4310)*UV(4452)+JVS(4311)*UV(5250)+JVS(4312)*UV(5255) - JUV(1079) = JVS(4313)*UV(1079)+JVS(4314)*UV(5107)+JVS(4315)*UV(5250)+JVS(4316)*UV(5255) - JUV(1080) = JVS(4317)*UV(1080)+JVS(4318)*UV(3888)+JVS(4319)*UV(5250)+JVS(4320)*UV(5255) - JUV(1081) = JVS(4321)*UV(1081)+JVS(4322)*UV(4161)+JVS(4323)*UV(5250)+JVS(4324)*UV(5252) - JUV(1082) = JVS(4325)*UV(1082)+JVS(4326)*UV(4878)+JVS(4327)*UV(5250)+JVS(4328)*UV(5255) - JUV(1083) = JVS(4329)*UV(1083)+JVS(4330)*UV(4167)+JVS(4331)*UV(5250)+JVS(4332)*UV(5252) - JUV(1084) = JVS(4333)*UV(1084)+JVS(4334)*UV(4684)+JVS(4335)*UV(5250)+JVS(4336)*UV(5255) - JUV(1085) = JVS(4337)*UV(1085)+JVS(4338)*UV(4759)+JVS(4339)*UV(5250)+JVS(4340)*UV(5255) - JUV(1086) = JVS(4341)*UV(1086)+JVS(4342)*UV(4740)+JVS(4343)*UV(5250)+JVS(4344)*UV(5253) - JUV(1087) = JVS(4345)*UV(1087)+JVS(4346)*UV(4855)+JVS(4347)*UV(5250)+JVS(4348)*UV(5255) - JUV(1088) = JVS(4349)*UV(1088)+JVS(4350)*UV(4141)+JVS(4351)*UV(5250)+JVS(4352)*UV(5255) - JUV(1089) = JVS(4353)*UV(1089)+JVS(4354)*UV(3706)+JVS(4355)*UV(5250)+JVS(4356)*UV(5255) - JUV(1090) = JVS(4357)*UV(1090)+JVS(4358)*UV(4934)+JVS(4359)*UV(5250)+JVS(4360)*UV(5255) - JUV(1091) = JVS(4361)*UV(1091)+JVS(4362)*UV(3999)+JVS(4363)*UV(5250)+JVS(4364)*UV(5255) - JUV(1092) = JVS(4365)*UV(1092)+JVS(4366)*UV(4703)+JVS(4367)*UV(5250)+JVS(4368)*UV(5255) - JUV(1093) = JVS(4369)*UV(1093)+JVS(4370)*UV(4545)+JVS(4371)*UV(5250)+JVS(4372)*UV(5255) - JUV(1094) = JVS(4373)*UV(1094)+JVS(4374)*UV(4410)+JVS(4375)*UV(5250)+JVS(4376)*UV(5255) - JUV(1095) = JVS(4377)*UV(1095)+JVS(4378)*UV(4622)+JVS(4379)*UV(5250)+JVS(4380)*UV(5255) - JUV(1096) = JVS(4381)*UV(1096)+JVS(4382)*UV(4265)+JVS(4383)*UV(5250)+JVS(4384)*UV(5255) - JUV(1097) = JVS(4385)*UV(1097)+JVS(4386)*UV(4915)+JVS(4387)*UV(5250)+JVS(4388)*UV(5255) - JUV(1098) = JVS(4389)*UV(1098)+JVS(4390)*UV(4159)+JVS(4391)*UV(5250)+JVS(4392)*UV(5255) - JUV(1099) = JVS(4393)*UV(1099)+JVS(4394)*UV(4991)+JVS(4395)*UV(5250)+JVS(4396)*UV(5255) - JUV(1100) = JVS(4397)*UV(1100)+JVS(4398)*UV(5137)+JVS(4399)*UV(5250)+JVS(4400)*UV(5255) - JUV(1101) = JVS(4401)*UV(1101)+JVS(4402)*UV(4297)+JVS(4403)*UV(5250)+JVS(4404)*UV(5255) - JUV(1102) = JVS(4405)*UV(1102)+JVS(4406)*UV(3496)+JVS(4407)*UV(5250)+JVS(4408)*UV(5255) - JUV(1103) = JVS(4409)*UV(1103)+JVS(4410)*UV(4575)+JVS(4411)*UV(5250)+JVS(4412)*UV(5255) - JUV(1104) = JVS(4413)*UV(1104)+JVS(4414)*UV(4293)+JVS(4415)*UV(5250)+JVS(4416)*UV(5255) - JUV(1105) = JVS(4417)*UV(1105)+JVS(4418)*UV(4273)+JVS(4419)*UV(5250)+JVS(4420)*UV(5255) - JUV(1106) = JVS(4421)*UV(1106)+JVS(4422)*UV(4380)+JVS(4423)*UV(5250)+JVS(4424)*UV(5255) - JUV(1107) = JVS(4425)*UV(1107)+JVS(4426)*UV(5027)+JVS(4427)*UV(5250)+JVS(4428)*UV(5255) - JUV(1108) = JVS(4429)*UV(1108)+JVS(4430)*UV(4310)+JVS(4431)*UV(5250)+JVS(4432)*UV(5255) - JUV(1109) = JVS(4433)*UV(1109)+JVS(4434)*UV(4986)+JVS(4435)*UV(5250)+JVS(4436)*UV(5255) - JUV(1110) = JVS(4437)*UV(1110)+JVS(4438)*UV(4405)+JVS(4439)*UV(5250)+JVS(4440)*UV(5255) - JUV(1111) = JVS(4441)*UV(1111)+JVS(4442)*UV(2927)+JVS(4443)*UV(4998)+JVS(4444)*UV(5250) - JUV(1112) = JVS(4445)*UV(1112)+JVS(4446)*UV(4971)+JVS(4447)*UV(5250)+JVS(4448)*UV(5255) - JUV(1113) = JVS(4449)*UV(1113)+JVS(4450)*UV(1673)+JVS(4451)*UV(1777)+JVS(4452)*UV(5250) - JUV(1114) = JVS(4453)*UV(1114)+JVS(4454)*UV(4850)+JVS(4455)*UV(5250)+JVS(4456)*UV(5255) - JUV(1115) = JVS(4457)*UV(1115)+JVS(4458)*UV(4270)+JVS(4459)*UV(5250)+JVS(4460)*UV(5255) - JUV(1116) = JVS(4461)*UV(1116)+JVS(4462)*UV(4465)+JVS(4463)*UV(5250)+JVS(4464)*UV(5255) - JUV(1117) = JVS(4465)*UV(1117)+JVS(4466)*UV(4188)+JVS(4467)*UV(5250)+JVS(4468)*UV(5255) - JUV(1118) = JVS(4469)*UV(1118)+JVS(4470)*UV(4425)+JVS(4471)*UV(5250)+JVS(4472)*UV(5255) - JUV(1119) = JVS(4473)*UV(1119)+JVS(4474)*UV(3686)+JVS(4475)*UV(5250)+JVS(4476)*UV(5255) - JUV(1120) = JVS(4477)*UV(1120)+JVS(4478)*UV(4554)+JVS(4479)*UV(4596)+JVS(4480)*UV(5250) - JUV(1121) = JVS(4481)*UV(1121)+JVS(4482)*UV(4607)+JVS(4483)*UV(4608)+JVS(4484)*UV(5250) - JUV(1122) = JVS(4485)*UV(1122)+JVS(4486)*UV(4254)+JVS(4487)*UV(5250)+JVS(4488)*UV(5255) - JUV(1123) = JVS(4489)*UV(1123)+JVS(4490)*UV(3774)+JVS(4491)*UV(5250)+JVS(4492)*UV(5255) - JUV(1124) = JVS(4493)*UV(1124)+JVS(4494)*UV(4473)+JVS(4495)*UV(4647)+JVS(4496)*UV(5250) - JUV(1125) = JVS(4497)*UV(1125)+JVS(4498)*UV(4079)+JVS(4499)*UV(5250)+JVS(4500)*UV(5255) - JUV(1126) = JVS(4501)*UV(1126)+JVS(4502)*UV(4059)+JVS(4503)*UV(5250)+JVS(4504)*UV(5255) - JUV(1127) = JVS(4505)*UV(1127)+JVS(4506)*UV(3728)+JVS(4507)*UV(5250)+JVS(4508)*UV(5255) - JUV(1128) = JVS(4509)*UV(1128)+JVS(4510)*UV(5206)+JVS(4511)*UV(5250)+JVS(4512)*UV(5255) - JUV(1129) = JVS(4513)*UV(1129)+JVS(4514)*UV(4480)+JVS(4515)*UV(5250)+JVS(4516)*UV(5255) - JUV(1130) = JVS(4517)*UV(1130)+JVS(4518)*UV(4459)+JVS(4519)*UV(5250)+JVS(4520)*UV(5255) - JUV(1131) = JVS(4521)*UV(1131)+JVS(4522)*UV(3790)+JVS(4523)*UV(5250)+JVS(4524)*UV(5255) - JUV(1132) = JVS(4525)*UV(1132)+JVS(4526)*UV(5097)+JVS(4527)*UV(5250)+JVS(4528)*UV(5255) - JUV(1133) = JVS(4529)*UV(259)+JVS(4530)*UV(312)+JVS(4531)*UV(1133)+JVS(4533)*UV(3727)+JVS(4534)*UV(5250) - JUV(1134) = JVS(4535)*UV(1134)+JVS(4536)*UV(5008)+JVS(4537)*UV(5250)+JVS(4538)*UV(5255) - JUV(1135) = JVS(4539)*UV(1135)+JVS(4540)*UV(3962)+JVS(4541)*UV(5250)+JVS(4542)*UV(5255) - JUV(1136) = JVS(4543)*UV(1136)+JVS(4544)*UV(4716)+JVS(4545)*UV(5250)+JVS(4546)*UV(5255) - JUV(1137) = JVS(4547)*UV(1137)+JVS(4548)*UV(4461)+JVS(4549)*UV(5250)+JVS(4550)*UV(5255) - JUV(1138) = JVS(4551)*UV(1138)+JVS(4552)*UV(5060)+JVS(4553)*UV(5250)+JVS(4554)*UV(5255) - JUV(1139) = JVS(4555)*UV(1139)+JVS(4556)*UV(4142)+JVS(4557)*UV(5250)+JVS(4558)*UV(5255) - JUV(1140) = JVS(4559)*UV(1140)+JVS(4560)*UV(4870)+JVS(4561)*UV(5150)+JVS(4562)*UV(5250) - JUV(1141) = JVS(4563)*UV(1141)+JVS(4564)*UV(4387)+JVS(4565)*UV(5250)+JVS(4566)*UV(5255) - JUV(1142) = JVS(4567)*UV(1142)+JVS(4568)*UV(4374)+JVS(4569)*UV(5250)+JVS(4570)*UV(5255) - JUV(1143) = JVS(4571)*UV(1143)+JVS(4572)*UV(4616)+JVS(4573)*UV(5250)+JVS(4574)*UV(5255) - JUV(1144) = JVS(4575)*UV(1144)+JVS(4576)*UV(4292)+JVS(4577)*UV(5250)+JVS(4578)*UV(5255) - JUV(1145) = JVS(4579)*UV(1145)+JVS(4580)*UV(4903)+JVS(4581)*UV(5250)+JVS(4582)*UV(5255) - JUV(1146) = JVS(4583)*UV(1146)+JVS(4584)*UV(4409)+JVS(4585)*UV(5250)+JVS(4586)*UV(5255) - JUV(1147) = JVS(4587)*UV(1147)+JVS(4588)*UV(4092)+JVS(4589)*UV(5250)+JVS(4590)*UV(5255) - JUV(1148) = JVS(4591)*UV(1148)+JVS(4592)*UV(4287)+JVS(4593)*UV(5250)+JVS(4594)*UV(5255) - JUV(1149) = JVS(4595)*UV(1149)+JVS(4596)*UV(3764)+JVS(4597)*UV(5250)+JVS(4598)*UV(5255) - JUV(1150) = JVS(4599)*UV(1150)+JVS(4600)*UV(3797)+JVS(4601)*UV(5250)+JVS(4602)*UV(5255) - JUV(1151) = JVS(4603)*UV(1151)+JVS(4604)*UV(3872)+JVS(4605)*UV(5250)+JVS(4606)*UV(5252) - JUV(1152) = JVS(4607)*UV(1152)+JVS(4608)*UV(4073)+JVS(4609)*UV(5250)+JVS(4610)*UV(5255) - JUV(1153) = JVS(4611)*UV(1153)+JVS(4612)*UV(5032)+JVS(4613)*UV(5250)+JVS(4614)*UV(5255) - JUV(1154) = JVS(4615)*UV(1154)+JVS(4616)*UV(4525)+JVS(4617)*UV(5250)+JVS(4618)*UV(5255) - JUV(1155) = JVS(4619)*UV(1155)+JVS(4620)*UV(4319)+JVS(4621)*UV(5250)+JVS(4622)*UV(5255) - JUV(1156) = JVS(4623)*UV(1156)+JVS(4624)*UV(4082)+JVS(4625)*UV(5250)+JVS(4626)*UV(5255) - JUV(1157) = JVS(4627)*UV(1157)+JVS(4628)*UV(3491)+JVS(4629)*UV(5250)+JVS(4630)*UV(5255) - JUV(1158) = JVS(4631)*UV(1158)+JVS(4632)*UV(4949)+JVS(4633)*UV(5250)+JVS(4634)*UV(5255) - JUV(1159) = JVS(4635)*UV(1159)+JVS(4636)*UV(4167)+JVS(4637)*UV(5250)+JVS(4638)*UV(5255) - JUV(1160) = JVS(4639)*UV(1160)+JVS(4640)*UV(4610)+JVS(4641)*UV(5250)+JVS(4642)*UV(5255) - JUV(1161) = JVS(4643)*UV(1161)+JVS(4644)*UV(4727)+JVS(4645)*UV(5250)+JVS(4646)*UV(5255) - JUV(1162) = JVS(4647)*UV(1162)+JVS(4648)*UV(4672)+JVS(4649)*UV(5250)+JVS(4650)*UV(5255) - JUV(1163) = JVS(4651)*UV(1163)+JVS(4652)*UV(4485)+JVS(4653)*UV(5250)+JVS(4654)*UV(5255) - JUV(1164) = JVS(4655)*UV(1164)+JVS(4656)*UV(3760)+JVS(4657)*UV(5250)+JVS(4658)*UV(5255) - JUV(1165) = JVS(4659)*UV(1165)+JVS(4660)*UV(3870)+JVS(4661)*UV(5250)+JVS(4662)*UV(5255) - JUV(1166) = JVS(4663)*UV(1166)+JVS(4664)*UV(4285)+JVS(4665)*UV(5250)+JVS(4666)*UV(5255) - JUV(1167) = JVS(4667)*UV(1167)+JVS(4668)*UV(4699)+JVS(4669)*UV(5250)+JVS(4670)*UV(5255) - JUV(1168) = JVS(4671)*UV(1168)+JVS(4672)*UV(3749)+JVS(4673)*UV(5250)+JVS(4674)*UV(5255) - JUV(1169) = JVS(4675)*UV(1169)+JVS(4676)*UV(4464)+JVS(4677)*UV(5250)+JVS(4678)*UV(5255) - JUV(1170) = JVS(4679)*UV(1170)+JVS(4680)*UV(3973)+JVS(4681)*UV(5250)+JVS(4682)*UV(5255) - JUV(1171) = JVS(4683)*UV(1171)+JVS(4684)*UV(3721)+JVS(4685)*UV(5250)+JVS(4686)*UV(5255) - JUV(1172) = JVS(4687)*UV(1172)+JVS(4688)*UV(4111)+JVS(4689)*UV(5250)+JVS(4690)*UV(5252) - JUV(1173) = JVS(4691)*UV(1173)+JVS(4692)*UV(4984)+JVS(4693)*UV(5250)+JVS(4694)*UV(5255) - JUV(1174) = JVS(4695)*UV(1174)+JVS(4696)*UV(4635)+JVS(4697)*UV(5250)+JVS(4698)*UV(5255) - JUV(1175) = JVS(4699)*UV(1175)+JVS(4700)*UV(4846)+JVS(4701)*UV(5250)+JVS(4702)*UV(5255) - JUV(1176) = JVS(4703)*UV(1176)+JVS(4704)*UV(4628)+JVS(4705)*UV(5250)+JVS(4706)*UV(5255) - JUV(1177) = JVS(4707)*UV(1177)+JVS(4708)*UV(3836)+JVS(4709)*UV(5250)+JVS(4710)*UV(5255) - JUV(1178) = JVS(4711)*UV(1178)+JVS(4712)*UV(5041)+JVS(4713)*UV(5250)+JVS(4714)*UV(5255) - JUV(1179) = JVS(4715)*UV(1179)+JVS(4716)*UV(3893)+JVS(4717)*UV(3932)+JVS(4718)*UV(5250) - JUV(1180) = JVS(4719)*UV(1180)+JVS(4720)*UV(4515)+JVS(4721)*UV(5250)+JVS(4722)*UV(5255) - JUV(1181) = JVS(4723)*UV(1181)+JVS(4724)*UV(4098)+JVS(4725)*UV(5250)+JVS(4726)*UV(5255) - JUV(1182) = JVS(4727)*UV(1182)+JVS(4728)*UV(4921)+JVS(4729)*UV(5250)+JVS(4730)*UV(5255) - JUV(1183) = JVS(4731)*UV(1183)+JVS(4732)*UV(3886)+JVS(4733)*UV(5250)+JVS(4734)*UV(5255) - JUV(1184) = JVS(4735)*UV(1184)+JVS(4736)*UV(4208)+JVS(4737)*UV(5250)+JVS(4738)*UV(5253) - JUV(1185) = JVS(4739)*UV(1185)+JVS(4740)*UV(4695)+JVS(4741)*UV(5250)+JVS(4742)*UV(5255) - JUV(1186) = JVS(4743)*UV(1186)+JVS(4744)*UV(4185)+JVS(4745)*UV(5250)+JVS(4746)*UV(5255) - JUV(1187) = JVS(4747)*UV(1187)+JVS(4748)*UV(4317)+JVS(4749)*UV(5250)+JVS(4750)*UV(5255) - JUV(1188) = JVS(4751)*UV(1188)+JVS(4752)*UV(4016)+JVS(4753)*UV(5250)+JVS(4754)*UV(5255) - JUV(1189) = JVS(4755)*UV(1189)+JVS(4756)*UV(4624)+JVS(4757)*UV(5250)+JVS(4758)*UV(5255) - JUV(1190) = JVS(4759)*UV(1190)+JVS(4760)*UV(4225)+JVS(4761)*UV(5250)+JVS(4762)*UV(5255) - JUV(1191) = JVS(4763)*UV(1191)+JVS(4764)*UV(4697)+JVS(4765)*UV(5250)+JVS(4766)*UV(5255) - JUV(1192) = JVS(4767)*UV(1192)+JVS(4768)*UV(5059)+JVS(4769)*UV(5250)+JVS(4770)*UV(5255) - JUV(1193) = JVS(4771)*UV(1193)+JVS(4772)*UV(4836)+JVS(4773)*UV(5250)+JVS(4774)*UV(5255) - JUV(1194) = JVS(4775)*UV(1194)+JVS(4776)*UV(4562)+JVS(4777)*UV(5043)+JVS(4778)*UV(5250) - JUV(1195) = JVS(4779)*UV(1195)+JVS(4780)*UV(5114)+JVS(4781)*UV(5250)+JVS(4782)*UV(5255) - JUV(1196) = JVS(4783)*UV(1196)+JVS(4784)*UV(5088)+JVS(4785)*UV(5250)+JVS(4786)*UV(5255) - JUV(1197) = JVS(4787)*UV(1197)+JVS(4788)*UV(4173)+JVS(4789)*UV(5250)+JVS(4790)*UV(5255) - JUV(1198) = JVS(4791)*UV(1198)+JVS(4792)*UV(4417)+JVS(4793)*UV(5250)+JVS(4794)*UV(5255) - JUV(1199) = JVS(4795)*UV(1199)+JVS(4796)*UV(5245)+JVS(4797)*UV(5250)+JVS(4798)*UV(5255) - JUV(1200) = JVS(4799)*UV(1200)+JVS(4800)*UV(3817)+JVS(4801)*UV(5250)+JVS(4802)*UV(5255) - JUV(1201) = JVS(4803)*UV(1201)+JVS(4804)*UV(5171)+JVS(4805)*UV(5250)+JVS(4806)*UV(5255) - JUV(1202) = JVS(4807)*UV(1202)+JVS(4808)*UV(3784)+JVS(4809)*UV(5250)+JVS(4810)*UV(5255) - JUV(1203) = JVS(4811)*UV(1203)+JVS(4812)*UV(3761)+JVS(4813)*UV(5250)+JVS(4814)*UV(5255) - JUV(1204) = JVS(4815)*UV(1204)+JVS(4816)*UV(4735)+JVS(4817)*UV(5250)+JVS(4818)*UV(5255) - JUV(1205) = JVS(4819)*UV(1205)+JVS(4820)*UV(5236)+JVS(4821)*UV(5250)+JVS(4822)*UV(5255) - JUV(1206) = JVS(4823)*UV(1206)+JVS(4824)*UV(4198)+JVS(4825)*UV(5250)+JVS(4826)*UV(5255) - JUV(1207) = JVS(4827)*UV(1207)+JVS(4828)*UV(4099)+JVS(4829)*UV(5250)+JVS(4830)*UV(5255) - JUV(1208) = JVS(4831)*UV(1208)+JVS(4832)*UV(4222)+JVS(4833)*UV(5250)+JVS(4834)*UV(5255) - JUV(1209) = JVS(4835)*UV(1209)+JVS(4836)*UV(4496)+JVS(4837)*UV(5250)+JVS(4838)*UV(5255) - JUV(1210) = JVS(4839)*UV(1210)+JVS(4840)*UV(4649)+JVS(4841)*UV(5250)+JVS(4842)*UV(5255) - JUV(1211) = JVS(4843)*UV(1211)+JVS(4844)*UV(3811)+JVS(4845)*UV(5250)+JVS(4846)*UV(5255) - JUV(1212) = JVS(4847)*UV(1212)+JVS(4848)*UV(3926)+JVS(4849)*UV(5250)+JVS(4850)*UV(5255) - JUV(1213) = JVS(4851)*UV(1213)+JVS(4852)*UV(4128)+JVS(4853)*UV(5250)+JVS(4854)*UV(5255) - JUV(1214) = JVS(4855)*UV(1214)+JVS(4856)*UV(4580)+JVS(4857)*UV(5250)+JVS(4858)*UV(5255) - JUV(1215) = JVS(4859)*UV(1215)+JVS(4860)*UV(4750)+JVS(4861)*UV(5250)+JVS(4862)*UV(5255) - JUV(1216) = JVS(4863)*UV(1216)+JVS(4864)*UV(3817)+JVS(4865)*UV(5250)+JVS(4866)*UV(5252) - JUV(1217) = JVS(4867)*UV(1217)+JVS(4868)*UV(4318)+JVS(4869)*UV(5250)+JVS(4870)*UV(5255) - JUV(1218) = JVS(4871)*UV(1218)+JVS(4872)*UV(3648)+JVS(4873)*UV(5250)+JVS(4874)*UV(5255) - JUV(1219) = JVS(4875)*UV(1219)+JVS(4876)*UV(4520)+JVS(4877)*UV(5250)+JVS(4878)*UV(5255) - JUV(1220) = JVS(4879)*UV(1220)+JVS(4880)*UV(4578)+JVS(4881)*UV(5250)+JVS(4882)*UV(5255) - JUV(1221) = JVS(4883)*UV(1221)+JVS(4884)*UV(4036)+JVS(4885)*UV(5250)+JVS(4886)*UV(5255) - JUV(1222) = JVS(4887)*UV(1222)+JVS(4888)*UV(4753)+JVS(4889)*UV(5250)+JVS(4890)*UV(5255) - JUV(1223) = JVS(4891)*UV(1223)+JVS(4892)*UV(4434)+JVS(4893)*UV(5250)+JVS(4894)*UV(5255) - JUV(1224) = JVS(4895)*UV(1224)+JVS(4896)*UV(4165)+JVS(4897)*UV(5250)+JVS(4898)*UV(5255) - JUV(1225) = JVS(4899)*UV(1225)+JVS(4900)*UV(3668)+JVS(4901)*UV(5250)+JVS(4902)*UV(5255) - JUV(1226) = JVS(4903)*UV(1226)+JVS(4904)*UV(4450)+JVS(4905)*UV(5250)+JVS(4906)*UV(5255) - JUV(1227) = JVS(4907)*UV(1227)+JVS(4908)*UV(4037)+JVS(4909)*UV(5250)+JVS(4910)*UV(5255) - JUV(1228) = JVS(4911)*UV(1228)+JVS(4912)*UV(4181)+JVS(4913)*UV(5250)+JVS(4914)*UV(5255) - JUV(1229) = JVS(4915)*UV(1229)+JVS(4916)*UV(5075)+JVS(4917)*UV(5250)+JVS(4918)*UV(5255) - JUV(1230) = JVS(4919)*UV(1230)+JVS(4920)*UV(4022)+JVS(4921)*UV(5250)+JVS(4922)*UV(5255) - JUV(1231) = JVS(4923)*UV(244)+JVS(4924)*UV(356)+JVS(4925)*UV(1231)+JVS(4927)*UV(3762)+JVS(4928)*UV(5250) - JUV(1232) = JVS(4929)*UV(1232)+JVS(4930)*UV(3539)+JVS(4931)*UV(5250)+JVS(4932)*UV(5255) - JUV(1233) = JVS(4933)*UV(1233)+JVS(4934)*UV(4431)+JVS(4935)*UV(5250)+JVS(4936)*UV(5255) - JUV(1234) = JVS(4937)*UV(1234)+JVS(4938)*UV(4874)+JVS(4939)*UV(5250)+JVS(4940)*UV(5255) - JUV(1235) = JVS(4941)*UV(1235)+JVS(4942)*UV(5181)+JVS(4943)*UV(5250)+JVS(4944)*UV(5255) - JUV(1236) = JVS(4945)*UV(1236)+JVS(4946)*UV(4468)+JVS(4947)*UV(5250)+JVS(4948)*UV(5255) - JUV(1237) = JVS(4949)*UV(1237)+JVS(4950)*UV(4197)+JVS(4951)*UV(5250)+JVS(4952)*UV(5255) - JUV(1238) = JVS(4953)*UV(1238)+JVS(4954)*UV(4812)+JVS(4955)*UV(5250)+JVS(4956)*UV(5255) - JUV(1239) = JVS(4957)*UV(1239)+JVS(4958)*UV(3637)+JVS(4959)*UV(5250)+JVS(4960)*UV(5255) - JUV(1240) = JVS(4961)*UV(1240)+JVS(4962)*UV(3866)+JVS(4963)*UV(5252)+JVS(4964)*UV(5256) - JUV(1241) = JVS(4965)*UV(1241)+JVS(4966)*UV(4091)+JVS(4967)*UV(5250)+JVS(4968)*UV(5255) - JUV(1242) = JVS(4969)*UV(1242)+JVS(4970)*UV(5033)+JVS(4971)*UV(5250)+JVS(4972)*UV(5255) - JUV(1243) = JVS(4973)*UV(1243)+JVS(4974)*UV(4033)+JVS(4975)*UV(5250)+JVS(4976)*UV(5255) - JUV(1244) = JVS(4977)*UV(1244)+JVS(4978)*UV(4430)+JVS(4979)*UV(5250)+JVS(4980)*UV(5255) - JUV(1245) = JVS(4981)*UV(1245)+JVS(4982)*UV(4764)+JVS(4983)*UV(5250)+JVS(4984)*UV(5255) - JUV(1246) = JVS(4985)*UV(1246)+JVS(4986)*UV(4617)+JVS(4987)*UV(5252)+JVS(4988)*UV(5256) - JUV(1247) = JVS(4989)*UV(1247)+JVS(4990)*UV(4638)+JVS(4991)*UV(5250)+JVS(4992)*UV(5255) - JUV(1248) = JVS(4993)*UV(1248)+JVS(4994)*UV(4472)+JVS(4995)*UV(5250)+JVS(4996)*UV(5255) - JUV(1249) = JVS(4997)*UV(1249)+JVS(4998)*UV(4548)+JVS(4999)*UV(5250)+JVS(5000)*UV(5255) - JUV(1250) = JVS(5001)*UV(1250)+JVS(5002)*UV(4681)+JVS(5003)*UV(5250)+JVS(5004)*UV(5255) - JUV(1251) = JVS(5005)*UV(1251)+JVS(5006)*UV(5099)+JVS(5007)*UV(5250)+JVS(5008)*UV(5255) - JUV(1252) = JVS(5009)*UV(1252)+JVS(5010)*UV(3725)+JVS(5011)*UV(5250)+JVS(5012)*UV(5255) - JUV(1253) = JVS(5013)*UV(1253)+JVS(5014)*UV(4246)+JVS(5015)*UV(5250)+JVS(5016)*UV(5255) - JUV(1254) = JVS(5017)*UV(1254)+JVS(5018)*UV(4633)+JVS(5019)*UV(5250)+JVS(5020)*UV(5255) - JUV(1255) = JVS(5021)*UV(1255)+JVS(5022)*UV(4303)+JVS(5023)*UV(5250)+JVS(5024)*UV(5255) - JUV(1256) = JVS(5025)*UV(1256)+JVS(5026)*UV(4628)+JVS(5027)*UV(5250)+JVS(5028)*UV(5255) - JUV(1257) = JVS(5029)*UV(368)+JVS(5030)*UV(1257)+JVS(5031)*UV(1890)+JVS(5032)*UV(4226)+JVS(5033)*UV(5250) - JUV(1258) = JVS(5034)*UV(1258)+JVS(5035)*UV(3634)+JVS(5036)*UV(5250)+JVS(5037)*UV(5255) - JUV(1259) = JVS(5038)*UV(1259)+JVS(5039)*UV(5112)+JVS(5040)*UV(5250)+JVS(5041)*UV(5255) - JUV(1260) = JVS(5042)*UV(1260)+JVS(5043)*UV(5196)+JVS(5044)*UV(5250)+JVS(5045)*UV(5255) - JUV(1261) = JVS(5046)*UV(1261)+JVS(5047)*UV(4433)+JVS(5048)*UV(5250)+JVS(5049)*UV(5255) - JUV(1262) = JVS(5050)*UV(1262)+JVS(5051)*UV(4880)+JVS(5052)*UV(5250)+JVS(5053)*UV(5255) - JUV(1263) = JVS(5054)*UV(1263)+JVS(5055)*UV(4157)+JVS(5056)*UV(5250)+JVS(5057)*UV(5255) - JUV(1264) = JVS(5058)*UV(1264)+JVS(5059)*UV(3715)+JVS(5060)*UV(5250)+JVS(5061)*UV(5255) - JUV(1265) = JVS(5062)*UV(1265)+JVS(5063)*UV(4844)+JVS(5064)*UV(5250)+JVS(5065)*UV(5255) - JUV(1266) = JVS(5066)*UV(1266)+JVS(5067)*UV(3981)+JVS(5068)*UV(5250)+JVS(5069)*UV(5255) - JUV(1267) = JVS(5070)*UV(1267)+JVS(5071)*UV(4766)+JVS(5072)*UV(5250)+JVS(5073)*UV(5255) - JUV(1268) = JVS(5074)*UV(1268)+JVS(5075)*UV(4435)+JVS(5076)*UV(5250)+JVS(5077)*UV(5255) - JUV(1269) = JVS(5078)*UV(1269)+JVS(5079)*UV(3448)+JVS(5080)*UV(4330)+JVS(5081)*UV(5250) - JUV(1270) = JVS(5082)*UV(1270)+JVS(5083)*UV(3819)+JVS(5084)*UV(5250)+JVS(5085)*UV(5255) - JUV(1271) = JVS(5086)*UV(1271)+JVS(5087)*UV(4532)+JVS(5088)*UV(5250)+JVS(5089)*UV(5255) - JUV(1272) = JVS(5090)*UV(1272)+JVS(5091)*UV(3950)+JVS(5092)*UV(5250)+JVS(5093)*UV(5255) - JUV(1273) = JVS(5094)*UV(1273)+JVS(5095)*UV(4276)+JVS(5096)*UV(5250)+JVS(5097)*UV(5255) - JUV(1274) = JVS(5098)*UV(1274)+JVS(5099)*UV(4656)+JVS(5100)*UV(5250)+JVS(5101)*UV(5255) - JUV(1275) = JVS(5102)*UV(1275)+JVS(5103)*UV(4806)+JVS(5104)*UV(5250)+JVS(5105)*UV(5255) - JUV(1276) = JVS(5106)*UV(1276)+JVS(5107)*UV(4003)+JVS(5108)*UV(5250)+JVS(5109)*UV(5255) - JUV(1277) = JVS(5110)*UV(1277)+JVS(5111)*UV(5021)+JVS(5112)*UV(5250)+JVS(5113)*UV(5255) - JUV(1278) = JVS(5114)*UV(1278)+JVS(5115)*UV(4204)+JVS(5116)*UV(5250)+JVS(5117)*UV(5255) - JUV(1279) = JVS(5118)*UV(1279)+JVS(5119)*UV(4015)+JVS(5120)*UV(5250)+JVS(5121)*UV(5255) - JUV(1280) = JVS(5122)*UV(1280)+JVS(5123)*UV(5132)+JVS(5124)*UV(5224)+JVS(5125)*UV(5250) - JUV(1281) = JVS(5126)*UV(1281)+JVS(5127)*UV(4334)+JVS(5128)*UV(5250)+JVS(5129)*UV(5255) - JUV(1282) = JVS(5130)*UV(1282)+JVS(5131)*UV(3674)+JVS(5132)*UV(5250)+JVS(5133)*UV(5255) - JUV(1283) = JVS(5134)*UV(1283)+JVS(5135)*UV(4338)+JVS(5136)*UV(5250)+JVS(5137)*UV(5255) - JUV(1284) = JVS(5138)*UV(1284)+JVS(5139)*UV(3720)+JVS(5140)*UV(5250)+JVS(5141)*UV(5252) - JUV(1285) = JVS(5142)*UV(1285)+JVS(5143)*UV(4255)+JVS(5144)*UV(5250)+JVS(5145)*UV(5255) - JUV(1286) = JVS(5146)*UV(1286)+JVS(5147)*UV(4088)+JVS(5148)*UV(5250)+JVS(5149)*UV(5255) - JUV(1287) = JVS(5150)*UV(1287)+JVS(5151)*UV(3523)+JVS(5152)*UV(5250)+JVS(5153)*UV(5255) - JUV(1288) = JVS(5154)*UV(1288)+JVS(5155)*UV(4112)+JVS(5156)*UV(5250)+JVS(5157)*UV(5255) - JUV(1289) = JVS(5158)*UV(1289)+JVS(5159)*UV(5020)+JVS(5160)*UV(5250)+JVS(5161)*UV(5255) - JUV(1290) = JVS(5162)*UV(1290)+JVS(5163)*UV(4760)+JVS(5164)*UV(5250)+JVS(5165)*UV(5255) - JUV(1291) = JVS(5166)*UV(1291)+JVS(5167)*UV(4665)+JVS(5168)*UV(5250)+JVS(5169)*UV(5255) - JUV(1292) = JVS(5170)*UV(1292)+JVS(5171)*UV(4170)+JVS(5172)*UV(5250)+JVS(5173)*UV(5255) - JUV(1293) = JVS(5174)*UV(1293)+JVS(5175)*UV(4031)+JVS(5176)*UV(5250)+JVS(5177)*UV(5255) - JUV(1294) = JVS(5178)*UV(1294)+JVS(5179)*UV(4057)+JVS(5180)*UV(5250)+JVS(5181)*UV(5255) - JUV(1295) = JVS(5182)*UV(1295)+JVS(5183)*UV(3902)+JVS(5184)*UV(5250)+JVS(5185)*UV(5255) - JUV(1296) = JVS(5186)*UV(1296)+JVS(5187)*UV(4892)+JVS(5188)*UV(5250)+JVS(5189)*UV(5255) - JUV(1297) = JVS(5190)*UV(1297)+JVS(5191)*UV(4146)+JVS(5192)*UV(4185)+JVS(5193)*UV(5250) - JUV(1298) = JVS(5194)*UV(1298)+JVS(5195)*UV(5186)+JVS(5196)*UV(5250)+JVS(5197)*UV(5255) - JUV(1299) = JVS(5198)*UV(1299)+JVS(5199)*UV(4685)+JVS(5200)*UV(5250)+JVS(5201)*UV(5255) - JUV(1300) = JVS(5202)*UV(1300)+JVS(5203)*UV(4809)+JVS(5204)*UV(5250)+JVS(5205)*UV(5255) - JUV(1301) = JVS(5206)*UV(1301)+JVS(5207)*UV(3937)+JVS(5208)*UV(5250)+JVS(5209)*UV(5255) - JUV(1302) = JVS(5210)*UV(1302)+JVS(5211)*UV(4579)+JVS(5212)*UV(5250)+JVS(5213)*UV(5255) - JUV(1303) = JVS(5214)*UV(1303)+JVS(5215)*UV(4063)+JVS(5216)*UV(5250)+JVS(5217)*UV(5255) - JUV(1304) = JVS(5218)*UV(1304)+JVS(5219)*UV(3731)+JVS(5220)*UV(5250)+JVS(5221)*UV(5255) - JUV(1305) = JVS(5222)*UV(1305)+JVS(5223)*UV(4609)+JVS(5224)*UV(5250)+JVS(5225)*UV(5255) - JUV(1306) = JVS(5226)*UV(1306)+JVS(5227)*UV(3865)+JVS(5228)*UV(5250)+JVS(5229)*UV(5255) - JUV(1307) = JVS(5230)*UV(1307)+JVS(5231)*UV(3823)+JVS(5232)*UV(5250)+JVS(5233)*UV(5255) - JUV(1308) = JVS(5234)*UV(1308)+JVS(5235)*UV(4021)+JVS(5236)*UV(5250)+JVS(5237)*UV(5255) - JUV(1309) = JVS(5238)*UV(1309)+JVS(5239)*UV(4511)+JVS(5240)*UV(5250)+JVS(5241)*UV(5255) - JUV(1310) = JVS(5242)*UV(1310)+JVS(5243)*UV(4055)+JVS(5244)*UV(5250)+JVS(5245)*UV(5255) - JUV(1311) = JVS(5246)*UV(1311)+JVS(5247)*UV(4092)+JVS(5248)*UV(5250)+JVS(5249)*UV(5252) - JUV(1312) = JVS(5250)*UV(1312)+JVS(5251)*UV(4350)+JVS(5252)*UV(5250)+JVS(5253)*UV(5255) - JUV(1313) = JVS(5254)*UV(1313)+JVS(5255)*UV(5081)+JVS(5256)*UV(5250)+JVS(5257)*UV(5255) - JUV(1314) = JVS(5258)*UV(1314)+JVS(5259)*UV(3883)+JVS(5260)*UV(5250)+JVS(5261)*UV(5255) - JUV(1315) = JVS(5262)*UV(1315)+JVS(5263)*UV(3807)+JVS(5264)*UV(5250)+JVS(5265)*UV(5255) - JUV(1316) = JVS(5266)*UV(1316)+JVS(5267)*UV(4626)+JVS(5268)*UV(5250)+JVS(5269)*UV(5255) - JUV(1317) = JVS(5270)*UV(1317)+JVS(5271)*UV(5006)+JVS(5272)*UV(5250)+JVS(5273)*UV(5255) - JUV(1318) = JVS(5274)*UV(1318)+JVS(5275)*UV(4781)+JVS(5276)*UV(5250)+JVS(5277)*UV(5255) - JUV(1319) = JVS(5278)*UV(1319)+JVS(5279)*UV(5214)+JVS(5280)*UV(5250)+JVS(5281)*UV(5255) - JUV(1320) = JVS(5282)*UV(1320)+JVS(5283)*UV(5004)+JVS(5284)*UV(5250)+JVS(5285)*UV(5255) - JUV(1321) = JVS(5286)*UV(1321)+JVS(5287)*UV(4348)+JVS(5288)*UV(5250)+JVS(5289)*UV(5252) - JUV(1322) = JVS(5290)*UV(1322)+JVS(5291)*UV(4217)+JVS(5292)*UV(5250)+JVS(5293)*UV(5255) - JUV(1323) = JVS(5294)*UV(1323)+JVS(5295)*UV(4704)+JVS(5296)*UV(5250)+JVS(5297)*UV(5255) - JUV(1324) = JVS(5298)*UV(1324)+JVS(5299)*UV(3741)+JVS(5300)*UV(5250)+JVS(5301)*UV(5255) - JUV(1325) = JVS(5302)*UV(1325)+JVS(5303)*UV(4953)+JVS(5304)*UV(5250)+JVS(5305)*UV(5255) - JUV(1326) = JVS(5306)*UV(1326)+JVS(5307)*UV(4722)+JVS(5308)*UV(5250)+JVS(5309)*UV(5255) - JUV(1327) = JVS(5310)*UV(1327)+JVS(5311)*UV(4517)+JVS(5312)*UV(5250)+JVS(5313)*UV(5255) - JUV(1328) = JVS(5314)*UV(1328)+JVS(5315)*UV(3841)+JVS(5316)*UV(5250)+JVS(5317)*UV(5255) - JUV(1329) = JVS(5318)*UV(1329)+JVS(5319)*UV(4237)+JVS(5320)*UV(5250)+JVS(5321)*UV(5255) - JUV(1330) = JVS(5322)*UV(1330)+JVS(5323)*UV(4685)+JVS(5324)*UV(5250)+JVS(5325)*UV(5255) - JUV(1331) = JVS(5326)*UV(1331)+JVS(5327)*UV(4748)+JVS(5328)*UV(5250)+JVS(5329)*UV(5255) - JUV(1332) = JVS(5330)*UV(1332)+JVS(5331)*UV(4944)+JVS(5332)*UV(5250)+JVS(5333)*UV(5255) - JUV(1333) = JVS(5334)*UV(1333)+JVS(5335)*UV(3951)+JVS(5336)*UV(5250)+JVS(5337)*UV(5255) - JUV(1334) = JVS(5338)*UV(1334)+JVS(5339)*UV(3920)+JVS(5340)*UV(5250)+JVS(5341)*UV(5252) - JUV(1335) = JVS(5342)*UV(1335)+JVS(5343)*UV(3746)+JVS(5344)*UV(5250)+JVS(5345)*UV(5255) - JUV(1336) = JVS(5346)*UV(1336)+JVS(5347)*UV(4652)+JVS(5348)*UV(5250)+JVS(5349)*UV(5255) - JUV(1337) = JVS(5350)*UV(1337)+JVS(5351)*UV(4646)+JVS(5352)*UV(5250)+JVS(5353)*UV(5255) - JUV(1338) = JVS(5354)*UV(1338)+JVS(5355)*UV(4429)+JVS(5356)*UV(5250)+JVS(5357)*UV(5255) - JUV(1339) = JVS(5358)*UV(1339)+JVS(5359)*UV(3743)+JVS(5360)*UV(5250)+JVS(5361)*UV(5255) - JUV(1340) = JVS(5362)*UV(1340)+JVS(5363)*UV(3989)+JVS(5364)*UV(5250)+JVS(5365)*UV(5255) - JUV(1341) = JVS(5366)*UV(1341)+JVS(5367)*UV(3776)+JVS(5368)*UV(5250)+JVS(5369)*UV(5255) - JUV(1342) = JVS(5370)*UV(1342)+JVS(5371)*UV(4498)+JVS(5372)*UV(5250)+JVS(5373)*UV(5255) - JUV(1343) = JVS(5374)*UV(1343)+JVS(5375)*UV(4833)+JVS(5376)*UV(5250)+JVS(5377)*UV(5255) - JUV(1344) = JVS(5378)*UV(1344)+JVS(5379)*UV(4854)+JVS(5380)*UV(5250)+JVS(5381)*UV(5255) - JUV(1345) = JVS(5382)*UV(1345)+JVS(5383)*UV(3975)+JVS(5384)*UV(5250)+JVS(5385)*UV(5255) - JUV(1346) = JVS(5386)*UV(1346)+JVS(5387)*UV(4758)+JVS(5388)*UV(5252)+JVS(5389)*UV(5256) - JUV(1347) = JVS(5390)*UV(1347)+JVS(5391)*UV(5054)+JVS(5392)*UV(5250)+JVS(5393)*UV(5255) - JUV(1348) = JVS(5394)*UV(1348)+JVS(5395)*UV(4659)+JVS(5396)*UV(5250)+JVS(5397)*UV(5255) - JUV(1349) = JVS(5398)*UV(1349)+JVS(5399)*UV(3690)+JVS(5400)*UV(5250)+JVS(5401)*UV(5255) - JUV(1350) = JVS(5402)*UV(1350)+JVS(5403)*UV(5073)+JVS(5404)*UV(5250)+JVS(5405)*UV(5255) - JUV(1351) = JVS(5406)*UV(1351)+JVS(5407)*UV(4987)+JVS(5408)*UV(5250)+JVS(5409)*UV(5255) - JUV(1352) = JVS(5410)*UV(1352)+JVS(5411)*UV(3670)+JVS(5412)*UV(5250)+JVS(5413)*UV(5255) - JUV(1353) = JVS(5414)*UV(1353)+JVS(5415)*UV(3955)+JVS(5416)*UV(5250)+JVS(5417)*UV(5255) - JUV(1354) = JVS(5418)*UV(1354)+JVS(5419)*UV(4892)+JVS(5420)*UV(5250)+JVS(5421)*UV(5255) - JUV(1355) = JVS(5422)*UV(1355)+JVS(5423)*UV(4375)+JVS(5424)*UV(5250)+JVS(5425)*UV(5255) - JUV(1356) = JVS(5426)*UV(1356)+JVS(5427)*UV(4822)+JVS(5428)*UV(5250)+JVS(5429)*UV(5255) - JUV(1357) = JVS(5430)*UV(1357)+JVS(5431)*UV(4482)+JVS(5432)*UV(5250)+JVS(5433)*UV(5255) - JUV(1358) = JVS(5434)*UV(1358)+JVS(5435)*UV(4314)+JVS(5436)*UV(5250)+JVS(5437)*UV(5255) - JUV(1359) = JVS(5438)*UV(1359)+JVS(5439)*UV(3983)+JVS(5440)*UV(5250)+JVS(5441)*UV(5255) - JUV(1360) = JVS(5442)*UV(1360)+JVS(5443)*UV(4191)+JVS(5444)*UV(5250)+JVS(5445)*UV(5255) - JUV(1361) = JVS(5446)*UV(1361)+JVS(5447)*UV(4023)+JVS(5448)*UV(5250)+JVS(5449)*UV(5255) - JUV(1362) = JVS(5450)*UV(1362)+JVS(5451)*UV(3806)+JVS(5452)*UV(5250)+JVS(5453)*UV(5255) - JUV(1363) = JVS(5454)*UV(1363)+JVS(5455)*UV(4470)+JVS(5456)*UV(5250)+JVS(5457)*UV(5255) - JUV(1364) = JVS(5458)*UV(1364)+JVS(5459)*UV(4337)+JVS(5460)*UV(5250)+JVS(5461)*UV(5255) - JUV(1365) = JVS(5462)*UV(1365)+JVS(5463)*UV(3658)+JVS(5464)*UV(5250)+JVS(5465)*UV(5255) - JUV(1366) = JVS(5466)*UV(1366)+JVS(5467)*UV(4039)+JVS(5468)*UV(5250)+JVS(5469)*UV(5255) - JUV(1367) = JVS(5470)*UV(1367)+JVS(5471)*UV(4119)+JVS(5472)*UV(5250)+JVS(5473)*UV(5255) - JUV(1368) = JVS(5474)*UV(1368)+JVS(5475)*UV(4198)+JVS(5476)*UV(5250)+JVS(5477)*UV(5253) - JUV(1369) = JVS(5478)*UV(1369)+JVS(5479)*UV(5060)+JVS(5480)*UV(5129)+JVS(5481)*UV(5250) - JUV(1370) = JVS(5482)*UV(1370)+JVS(5483)*UV(4654)+JVS(5484)*UV(5250)+JVS(5485)*UV(5255) - JUV(1371) = JVS(5486)*UV(1371)+JVS(5487)*UV(3850)+JVS(5488)*UV(5250)+JVS(5489)*UV(5255) - JUV(1372) = JVS(5490)*UV(440)+JVS(5491)*UV(1372)+JVS(5492)*UV(1373)+JVS(5493)*UV(5039)+JVS(5494)*UV(5250) - JUV(1373) = JVS(5495)*UV(1373)+JVS(5496)*UV(5039)+JVS(5497)*UV(5250)+JVS(5498)*UV(5255) - JUV(1374) = JVS(5499)*UV(1374)+JVS(5500)*UV(3768)+JVS(5501)*UV(5250)+JVS(5502)*UV(5255) - JUV(1375) = JVS(5503)*UV(1375)+JVS(5504)*UV(5108)+JVS(5505)*UV(5250)+JVS(5506)*UV(5255) - JUV(1376) = JVS(5507)*UV(1376)+JVS(5508)*UV(4458)+JVS(5509)*UV(5250)+JVS(5510)*UV(5255) - JUV(1377) = JVS(5511)*UV(1377)+JVS(5512)*UV(3987)+JVS(5513)*UV(5250)+JVS(5514)*UV(5255) - JUV(1378) = JVS(5515)*UV(1378)+JVS(5516)*UV(4680)+JVS(5517)*UV(5250)+JVS(5518)*UV(5255) - JUV(1379) = JVS(5519)*UV(1379)+JVS(5520)*UV(4200)+JVS(5521)*UV(5250)+JVS(5522)*UV(5255) - JUV(1380) = JVS(5523)*UV(1380)+JVS(5524)*UV(5101)+JVS(5525)*UV(5250)+JVS(5526)*UV(5255) - JUV(1381) = JVS(5527)*UV(1381)+JVS(5528)*UV(3974)+JVS(5529)*UV(5250)+JVS(5530)*UV(5255) - JUV(1382) = JVS(5531)*UV(1382)+JVS(5532)*UV(3688)+JVS(5533)*UV(5250)+JVS(5534)*UV(5255) - JUV(1383) = JVS(5535)*UV(1383)+JVS(5536)*UV(4898)+JVS(5537)*UV(5250)+JVS(5538)*UV(5255) - JUV(1384) = JVS(5539)*UV(1384)+JVS(5540)*UV(3872)+JVS(5541)*UV(3927)+JVS(5542)*UV(5250) - JUV(1385) = JVS(5543)*UV(1385)+JVS(5544)*UV(3492)+JVS(5545)*UV(5250)+JVS(5546)*UV(5255) - JUV(1386) = JVS(5547)*UV(1386)+JVS(5548)*UV(4582)+JVS(5549)*UV(5135)+JVS(5550)*UV(5250) - JUV(1387) = JVS(5551)*UV(1387)+JVS(5552)*UV(3691)+JVS(5553)*UV(5250)+JVS(5554)*UV(5255) - JUV(1388) = JVS(5555)*UV(1388)+JVS(5556)*UV(3772)+JVS(5557)*UV(5250)+JVS(5558)*UV(5255) - JUV(1389) = JVS(5559)*UV(1389)+JVS(5560)*UV(4198)+JVS(5561)*UV(5250)+JVS(5562)*UV(5255) - JUV(1390) = JVS(5563)*UV(1390)+JVS(5564)*UV(4166)+JVS(5565)*UV(5250)+JVS(5566)*UV(5255) - JUV(1391) = JVS(5567)*UV(1391)+JVS(5568)*UV(4143)+JVS(5569)*UV(5250)+JVS(5570)*UV(5255) - JUV(1392) = JVS(5571)*UV(1392)+JVS(5572)*UV(4751)+JVS(5573)*UV(5250)+JVS(5574)*UV(5255) - JUV(1393) = JVS(5575)*UV(1393)+JVS(5576)*UV(4182)+JVS(5577)*UV(5250)+JVS(5578)*UV(5255) - JUV(1394) = JVS(5579)*UV(1394)+JVS(5580)*UV(5017)+JVS(5581)*UV(5250)+JVS(5582)*UV(5255) - JUV(1395) = JVS(5583)*UV(1395)+JVS(5584)*UV(4372)+JVS(5585)*UV(5250)+JVS(5586)*UV(5255) - JUV(1396) = JVS(5587)*UV(1396)+JVS(5588)*UV(3650)+JVS(5589)*UV(5250)+JVS(5590)*UV(5255) - JUV(1397) = JVS(5591)*UV(1397)+JVS(5592)*UV(4042)+JVS(5593)*UV(5250)+JVS(5594)*UV(5255) - JUV(1398) = JVS(5595)*UV(1398)+JVS(5596)*UV(4238)+JVS(5597)*UV(5250)+JVS(5598)*UV(5255) - JUV(1399) = JVS(5599)*UV(1399)+JVS(5600)*UV(4312)+JVS(5601)*UV(5250)+JVS(5602)*UV(5255) - JUV(1400) = JVS(5603)*UV(1400)+JVS(5604)*UV(4814)+JVS(5605)*UV(5250)+JVS(5606)*UV(5252) - JUV(1401) = JVS(5607)*UV(1401)+JVS(5608)*UV(3751)+JVS(5609)*UV(5250)+JVS(5610)*UV(5255) - JUV(1402) = JVS(5611)*UV(1402)+JVS(5612)*UV(4485)+JVS(5613)*UV(5250)+JVS(5614)*UV(5255) - JUV(1403) = JVS(5615)*UV(1403)+JVS(5616)*UV(4692)+JVS(5617)*UV(5250)+JVS(5618)*UV(5255) - JUV(1404) = JVS(5619)*UV(1404)+JVS(5620)*UV(4846)+JVS(5621)*UV(5250)+JVS(5622)*UV(5255) - JUV(1405) = JVS(5623)*UV(1405)+JVS(5624)*UV(4132)+JVS(5625)*UV(5250)+JVS(5626)*UV(5255) - JUV(1406) = JVS(5627)*UV(1406)+JVS(5628)*UV(4871)+JVS(5629)*UV(5250)+JVS(5630)*UV(5255) - JUV(1407) = JVS(5631)*UV(1407)+JVS(5632)*UV(4989)+JVS(5633)*UV(5250)+JVS(5634)*UV(5255) - JUV(1408) = JVS(5635)*UV(1408)+JVS(5636)*UV(4653)+JVS(5637)*UV(5250)+JVS(5638)*UV(5255) - JUV(1409) = JVS(5639)*UV(1409)+JVS(5640)*UV(4654)+JVS(5641)*UV(5250)+JVS(5642)*UV(5255) - JUV(1410) = JVS(5643)*UV(1410)+JVS(5644)*UV(3766)+JVS(5645)*UV(5250)+JVS(5646)*UV(5255) - JUV(1411) = JVS(5647)*UV(1411)+JVS(5648)*UV(5130)+JVS(5649)*UV(5250)+JVS(5650)*UV(5255) - JUV(1412) = JVS(5651)*UV(1412)+JVS(5652)*UV(3753)+JVS(5653)*UV(5250)+JVS(5654)*UV(5255) - JUV(1413) = JVS(5655)*UV(1413)+JVS(5656)*UV(3722)+JVS(5657)*UV(5250)+JVS(5658)*UV(5255) - JUV(1414) = JVS(5659)*UV(1414)+JVS(5660)*UV(4597)+JVS(5661)*UV(5250)+JVS(5662)*UV(5255) - JUV(1415) = JVS(5663)*UV(1415)+JVS(5664)*UV(4718)+JVS(5665)*UV(5250)+JVS(5666)*UV(5255) - JUV(1416) = JVS(5667)*UV(1416)+JVS(5668)*UV(3781)+JVS(5669)*UV(5250)+JVS(5670)*UV(5255) - JUV(1417) = JVS(5671)*UV(1417)+JVS(5672)*UV(4649)+JVS(5673)*UV(5250)+JVS(5674)*UV(5255) - JUV(1418) = JVS(5675)*UV(1418)+JVS(5676)*UV(4443)+JVS(5677)*UV(5250)+JVS(5678)*UV(5255) - JUV(1419) = JVS(5679)*UV(1419)+JVS(5680)*UV(4075)+JVS(5681)*UV(5250)+JVS(5682)*UV(5255) - JUV(1420) = JVS(5683)*UV(1420)+JVS(5684)*UV(4298)+JVS(5685)*UV(5250)+JVS(5686)*UV(5255) - JUV(1421) = JVS(5687)*UV(1421)+JVS(5688)*UV(4002)+JVS(5689)*UV(5250)+JVS(5690)*UV(5255) - JUV(1422) = JVS(5691)*UV(1422)+JVS(5692)*UV(4837)+JVS(5693)*UV(5250)+JVS(5694)*UV(5255) - JUV(1423) = JVS(5695)*UV(1423)+JVS(5696)*UV(4232)+JVS(5697)*UV(5250)+JVS(5698)*UV(5255) - JUV(1424) = JVS(5699)*UV(1424)+JVS(5700)*UV(4849)+JVS(5701)*UV(5250)+JVS(5702)*UV(5255) - JUV(1425) = JVS(5703)*UV(1425)+JVS(5704)*UV(5167)+JVS(5705)*UV(5250)+JVS(5706)*UV(5255) - JUV(1426) = JVS(5707)*UV(1426)+JVS(5708)*UV(4101)+JVS(5709)*UV(5250)+JVS(5710)*UV(5255) - JUV(1427) = JVS(5711)*UV(1427)+JVS(5712)*UV(4067)+JVS(5713)*UV(5250)+JVS(5714)*UV(5255) - JUV(1428) = JVS(5715)*UV(1428)+JVS(5716)*UV(4900)+JVS(5717)*UV(5250)+JVS(5718)*UV(5255) - JUV(1429) = JVS(5719)*UV(1429)+JVS(5720)*UV(4049)+JVS(5721)*UV(5250)+JVS(5722)*UV(5255) - JUV(1430) = JVS(5723)*UV(1430)+JVS(5724)*UV(3979)+JVS(5725)*UV(5250)+JVS(5726)*UV(5255) - JUV(1431) = JVS(5727)*UV(1431)+JVS(5728)*UV(4068)+JVS(5729)*UV(5250)+JVS(5730)*UV(5255) - JUV(1432) = JVS(5731)*UV(1432)+JVS(5732)*UV(4680)+JVS(5733)*UV(5250)+JVS(5734)*UV(5255) - JUV(1433) = JVS(5735)*UV(1433)+JVS(5736)*UV(4816)+JVS(5737)*UV(5250)+JVS(5738)*UV(5255) - JUV(1434) = JVS(5739)*UV(1434)+JVS(5740)*UV(4399)+JVS(5741)*UV(5250)+JVS(5742)*UV(5255) - JUV(1435) = JVS(5743)*UV(1435)+JVS(5744)*UV(3782)+JVS(5745)*UV(5250)+JVS(5746)*UV(5255) - JUV(1436) = JVS(5747)*UV(1436)+JVS(5748)*UV(4862)+JVS(5749)*UV(5250)+JVS(5750)*UV(5255) - JUV(1437) = JVS(5751)*UV(1437)+JVS(5752)*UV(4830)+JVS(5753)*UV(5250)+JVS(5754)*UV(5255) - JUV(1438) = JVS(5755)*UV(1438)+JVS(5756)*UV(3939)+JVS(5757)*UV(5250)+JVS(5758)*UV(5255) - JUV(1439) = JVS(5759)*UV(1439)+JVS(5760)*UV(4342)+JVS(5761)*UV(5250)+JVS(5762)*UV(5255) - JUV(1440) = JVS(5763)*UV(1440)+JVS(5764)*UV(4866)+JVS(5765)*UV(5250)+JVS(5766)*UV(5255) - JUV(1441) = JVS(5767)*UV(1441)+JVS(5768)*UV(4573)+JVS(5769)*UV(5250)+JVS(5770)*UV(5255) - JUV(1442) = JVS(5771)*UV(1442)+JVS(5772)*UV(4664)+JVS(5773)*UV(5250)+JVS(5774)*UV(5255) - JUV(1443) = JVS(5775)*UV(1443)+JVS(5776)*UV(3695)+JVS(5777)*UV(5250)+JVS(5778)*UV(5255) - JUV(1444) = JVS(5779)*UV(1444)+JVS(5780)*UV(4363)+JVS(5781)*UV(5250)+JVS(5782)*UV(5255) - JUV(1445) = JVS(5783)*UV(1445)+JVS(5784)*UV(4087)+JVS(5785)*UV(5250)+JVS(5786)*UV(5255) - JUV(1446) = JVS(5787)*UV(1446)+JVS(5788)*UV(4713)+JVS(5789)*UV(5250)+JVS(5790)*UV(5255) - JUV(1447) = JVS(5791)*UV(1447)+JVS(5792)*UV(4891)+JVS(5793)*UV(5250)+JVS(5794)*UV(5255) - JUV(1448) = JVS(5795)*UV(1448)+JVS(5796)*UV(4623)+JVS(5797)*UV(5250)+JVS(5798)*UV(5255) - JUV(1449) = JVS(5799)*UV(1449)+JVS(5800)*UV(4219)+JVS(5801)*UV(5250)+JVS(5802)*UV(5255) - JUV(1450) = JVS(5803)*UV(1450)+JVS(5804)*UV(4064)+JVS(5805)*UV(5250)+JVS(5806)*UV(5255) - JUV(1451) = JVS(5807)*UV(1451)+JVS(5808)*UV(4028)+JVS(5809)*UV(5250)+JVS(5810)*UV(5255) - JUV(1452) = JVS(5811)*UV(1452)+JVS(5812)*UV(4040)+JVS(5813)*UV(5250)+JVS(5814)*UV(5255) - JUV(1453) = JVS(5815)*UV(1453)+JVS(5816)*UV(4072)+JVS(5817)*UV(5250)+JVS(5818)*UV(5255) - JUV(1454) = JVS(5819)*UV(1454)+JVS(5820)*UV(4738)+JVS(5821)*UV(5250)+JVS(5822)*UV(5255) - JUV(1455) = JVS(5823)*UV(1455)+JVS(5824)*UV(4726)+JVS(5825)*UV(5250)+JVS(5826)*UV(5255) - JUV(1456) = JVS(5827)*UV(1456)+JVS(5828)*UV(4591)+JVS(5829)*UV(5250)+JVS(5830)*UV(5255) - JUV(1457) = JVS(5831)*UV(1457)+JVS(5832)*UV(4460)+JVS(5833)*UV(5250)+JVS(5834)*UV(5255) - JUV(1458) = JVS(5835)*UV(1458)+JVS(5836)*UV(3525)+JVS(5837)*UV(5250)+JVS(5838)*UV(5255) - JUV(1459) = JVS(5839)*UV(1459)+JVS(5840)*UV(4192)+JVS(5841)*UV(5250)+JVS(5842)*UV(5255) - JUV(1460) = JVS(5843)*UV(1460)+JVS(5844)*UV(4770)+JVS(5845)*UV(5250)+JVS(5846)*UV(5255) - JUV(1461) = JVS(5847)*UV(1461)+JVS(5848)*UV(4456)+JVS(5849)*UV(5250)+JVS(5850)*UV(5255) - JUV(1462) = JVS(5851)*UV(1462)+JVS(5852)*UV(5029)+JVS(5853)*UV(5250)+JVS(5854)*UV(5255) - JUV(1463) = JVS(5855)*UV(1463)+JVS(5856)*UV(3908)+JVS(5857)*UV(5250)+JVS(5858)*UV(5255) - JUV(1464) = JVS(5859)*UV(1464)+JVS(5860)*UV(4426)+JVS(5861)*UV(5250)+JVS(5862)*UV(5255) - JUV(1465) = JVS(5863)*UV(1465)+JVS(5864)*UV(4807)+JVS(5865)*UV(5250)+JVS(5866)*UV(5255) - JUV(1466) = JVS(5867)*UV(1466)+JVS(5868)*UV(5106)+JVS(5869)*UV(5250)+JVS(5870)*UV(5255) - JUV(1467) = JVS(5871)*UV(1467)+JVS(5872)*UV(4539)+JVS(5873)*UV(5250)+JVS(5874)*UV(5255) - JUV(1468) = JVS(5875)*UV(1468)+JVS(5876)*UV(3994)+JVS(5877)*UV(5250)+JVS(5878)*UV(5255) - JUV(1469) = JVS(5879)*UV(1469)+JVS(5880)*UV(3894)+JVS(5881)*UV(5250)+JVS(5882)*UV(5255) - JUV(1470) = JVS(5883)*UV(1470)+JVS(5884)*UV(3982)+JVS(5885)*UV(5250)+JVS(5886)*UV(5255) - JUV(1471) = JVS(5887)*UV(1471)+JVS(5888)*UV(5179)+JVS(5889)*UV(5250)+JVS(5890)*UV(5255) - JUV(1472) = JVS(5891)*UV(1472)+JVS(5892)*UV(4506)+JVS(5893)*UV(5250)+JVS(5894)*UV(5255) - JUV(1473) = JVS(5895)*UV(1473)+JVS(5896)*UV(4132)+JVS(5897)*UV(5250)+JVS(5898)*UV(5255) - JUV(1474) = JVS(5899)*UV(1474)+JVS(5900)*UV(4686)+JVS(5901)*UV(5250)+JVS(5902)*UV(5255) - JUV(1475) = JVS(5903)*UV(1475)+JVS(5904)*UV(4962)+JVS(5905)*UV(5250)+JVS(5906)*UV(5255) - JUV(1476) = JVS(5907)*UV(1476)+JVS(5908)*UV(4020)+JVS(5909)*UV(5250)+JVS(5910)*UV(5255) - JUV(1477) = JVS(5911)*UV(1477)+JVS(5912)*UV(4523)+JVS(5913)*UV(5250)+JVS(5914)*UV(5255) - JUV(1478) = JVS(5915)*UV(1478)+JVS(5916)*UV(4360)+JVS(5917)*UV(5250)+JVS(5918)*UV(5255) - JUV(1479) = JVS(5919)*UV(1479)+JVS(5920)*UV(5131)+JVS(5921)*UV(5250)+JVS(5922)*UV(5255) - JUV(1480) = JVS(5923)*UV(1480)+JVS(5924)*UV(4863)+JVS(5925)*UV(5250)+JVS(5926)*UV(5255) - JUV(1481) = JVS(5927)*UV(1481)+JVS(5928)*UV(4633)+JVS(5929)*UV(5250)+JVS(5930)*UV(5255) - JUV(1482) = JVS(5931)*UV(1482)+JVS(5932)*UV(4778)+JVS(5933)*UV(5250)+JVS(5934)*UV(5252) - JUV(1483) = JVS(5935)*UV(246)+JVS(5936)*UV(1192)+JVS(5937)*UV(1483)+JVS(5938)*UV(5059)+JVS(5939)*UV(5250) - JUV(1484) = JVS(5941)*UV(1484)+JVS(5942)*UV(3509)+JVS(5943)*UV(5250)+JVS(5944)*UV(5255) - JUV(1485) = JVS(5945)*UV(1485)+JVS(5946)*UV(4572)+JVS(5947)*UV(5250)+JVS(5948)*UV(5255) - JUV(1486) = JVS(5949)*UV(1486)+JVS(5950)*UV(4133)+JVS(5951)*UV(5250)+JVS(5952)*UV(5255) - JUV(1487) = JVS(5953)*UV(1487)+JVS(5954)*UV(3907)+JVS(5955)*UV(5250)+JVS(5956)*UV(5255) - JUV(1488) = JVS(5957)*UV(1488)+JVS(5958)*UV(5056)+JVS(5959)*UV(5250)+JVS(5960)*UV(5255) - JUV(1489) = JVS(5961)*UV(1489)+JVS(5962)*UV(4910)+JVS(5963)*UV(5250)+JVS(5964)*UV(5255) - JUV(1490) = JVS(5965)*UV(1490)+JVS(5966)*UV(5120)+JVS(5967)*UV(5250)+JVS(5968)*UV(5255) - JUV(1491) = JVS(5969)*UV(1491)+JVS(5970)*UV(5144)+JVS(5971)*UV(5250)+JVS(5972)*UV(5255) - JUV(1492) = JVS(5973)*UV(1492)+JVS(5974)*UV(4789)+JVS(5975)*UV(5250)+JVS(5976)*UV(5255) - JUV(1493) = JVS(5977)*UV(247)+JVS(5978)*UV(1493)+JVS(5979)*UV(2312)+JVS(5980)*UV(4315)+JVS(5981)*UV(5250) - JUV(1494) = JVS(5982)*UV(1494)+JVS(5983)*UV(4739)+JVS(5984)*UV(5250)+JVS(5985)*UV(5255) - JUV(1495) = JVS(5986)*UV(1495)+JVS(5987)*UV(4118)+JVS(5988)*UV(5250)+JVS(5989)*UV(5255) - JUV(1496) = JVS(5990)*UV(1496)+JVS(5991)*UV(4189)+JVS(5992)*UV(5250)+JVS(5993)*UV(5255) - JUV(1497) = JVS(5994)*UV(1497)+JVS(5995)*UV(3769)+JVS(5996)*UV(5250)+JVS(5997)*UV(5255) - JUV(1498) = JVS(5998)*UV(1498)+JVS(5999)*UV(4627)+JVS(6000)*UV(5250)+JVS(6001)*UV(5255) - JUV(1499) = JVS(6002)*UV(1499)+JVS(6003)*UV(4357)+JVS(6004)*UV(5250)+JVS(6005)*UV(5255) - JUV(1500) = JVS(6006)*UV(1500)+JVS(6007)*UV(5125)+JVS(6008)*UV(5250)+JVS(6009)*UV(5255) - JUV(1501) = JVS(6010)*UV(1501)+JVS(6011)*UV(4586)+JVS(6012)*UV(5250)+JVS(6013)*UV(5255) - JUV(1502) = JVS(6014)*UV(1502)+JVS(6015)*UV(3928)+JVS(6016)*UV(5250)+JVS(6017)*UV(5255) - JUV(1503) = JVS(6018)*UV(1503)+JVS(6019)*UV(3511)+JVS(6020)*UV(5250)+JVS(6021)*UV(5255) - JUV(1504) = JVS(6022)*UV(1504)+JVS(6023)*UV(4205)+JVS(6024)*UV(5250)+JVS(6025)*UV(5255) - JUV(1505) = JVS(6026)*UV(1505)+JVS(6027)*UV(3882)+JVS(6028)*UV(5250)+JVS(6029)*UV(5255) - JUV(1506) = JVS(6030)*UV(1506)+JVS(6031)*UV(3967)+JVS(6032)*UV(5250)+JVS(6033)*UV(5255) - JUV(1507) = JVS(6034)*UV(1507)+JVS(6035)*UV(4839)+JVS(6036)*UV(5250)+JVS(6037)*UV(5255) - JUV(1508) = JVS(6038)*UV(1508)+JVS(6039)*UV(4271)+JVS(6040)*UV(5250)+JVS(6041)*UV(5255) - JUV(1509) = JVS(6042)*UV(1509)+JVS(6043)*UV(5052)+JVS(6044)*UV(5250)+JVS(6045)*UV(5255) - JUV(1510) = JVS(6046)*UV(1510)+JVS(6047)*UV(4701)+JVS(6048)*UV(5250)+JVS(6049)*UV(5255) - JUV(1511) = JVS(6050)*UV(1511)+JVS(6051)*UV(5044)+JVS(6052)*UV(5250)+JVS(6053)*UV(5255) - JUV(1512) = JVS(6054)*UV(1512)+JVS(6055)*UV(4304)+JVS(6056)*UV(5250)+JVS(6057)*UV(5255) - JUV(1513) = JVS(6058)*UV(1513)+JVS(6059)*UV(4807)+JVS(6060)*UV(5250)+JVS(6061)*UV(5255) - JUV(1514) = JVS(6062)*UV(1514)+JVS(6063)*UV(3889)+JVS(6064)*UV(5250)+JVS(6065)*UV(5255) - JUV(1515) = JVS(6066)*UV(1515)+JVS(6067)*UV(3964)+JVS(6068)*UV(5250)+JVS(6069)*UV(5255) - JUV(1516) = JVS(6070)*UV(1516)+JVS(6071)*UV(4634)+JVS(6072)*UV(5250)+JVS(6073)*UV(5255) - JUV(1517) = JVS(6074)*UV(1517)+JVS(6075)*UV(3876)+JVS(6076)*UV(5250)+JVS(6077)*UV(5255) - JUV(1518) = JVS(6078)*UV(1518)+JVS(6079)*UV(4658)+JVS(6080)*UV(5250)+JVS(6081)*UV(5255) - JUV(1519) = JVS(6082)*UV(1519)+JVS(6083)*UV(4196)+JVS(6084)*UV(5250)+JVS(6085)*UV(5255) - JUV(1520) = JVS(6086)*UV(1520)+JVS(6087)*UV(3863)+JVS(6088)*UV(3867)+JVS(6089)*UV(5250) - JUV(1521) = JVS(6090)*UV(1521)+JVS(6091)*UV(3870)+JVS(6092)*UV(3961)+JVS(6093)*UV(5250) - JUV(1522) = JVS(6094)*UV(1522)+JVS(6095)*UV(4447)+JVS(6096)*UV(5250)+JVS(6097)*UV(5255) - JUV(1523) = JVS(6098)*UV(1523)+JVS(6099)*UV(4940)+JVS(6100)*UV(5250)+JVS(6101)*UV(5255) - JUV(1524) = JVS(6102)*UV(1524)+JVS(6103)*UV(4252)+JVS(6104)*UV(5250)+JVS(6105)*UV(5255) - JUV(1525) = JVS(6106)*UV(1525)+JVS(6107)*UV(3527)+JVS(6108)*UV(5250)+JVS(6109)*UV(5255) - JUV(1526) = JVS(6110)*UV(1526)+JVS(6111)*UV(4715)+JVS(6112)*UV(5250)+JVS(6113)*UV(5255) - JUV(1527) = JVS(6114)*UV(1527)+JVS(6115)*UV(4117)+JVS(6116)*UV(5250)+JVS(6117)*UV(5255) - JUV(1528) = JVS(6118)*UV(1528)+JVS(6119)*UV(3750)+JVS(6120)*UV(5250)+JVS(6121)*UV(5255) - JUV(1529) = JVS(6122)*UV(1529)+JVS(6123)*UV(4578)+JVS(6124)*UV(5250)+JVS(6125)*UV(5252) - JUV(1530) = JVS(6126)*UV(1530)+JVS(6127)*UV(3788)+JVS(6128)*UV(5250)+JVS(6129)*UV(5255) - JUV(1531) = JVS(6130)*UV(1531)+JVS(6131)*UV(4785)+JVS(6132)*UV(5250)+JVS(6133)*UV(5252) - JUV(1532) = JVS(6134)*UV(1532)+JVS(6135)*UV(4193)+JVS(6136)*UV(5250)+JVS(6137)*UV(5255) - JUV(1533) = JVS(6138)*UV(1533)+JVS(6139)*UV(4529)+JVS(6140)*UV(5250)+JVS(6141)*UV(5255) - JUV(1534) = JVS(6142)*UV(1534)+JVS(6143)*UV(3704)+JVS(6144)*UV(5250)+JVS(6145)*UV(5255) - JUV(1535) = JVS(6146)*UV(1535)+JVS(6147)*UV(4074)+JVS(6148)*UV(5250)+JVS(6149)*UV(5255) - JUV(1536) = JVS(6150)*UV(1536)+JVS(6151)*UV(3952)+JVS(6152)*UV(5250)+JVS(6153)*UV(5255) - JUV(1537) = JVS(6154)*UV(1537)+JVS(6155)*UV(4139)+JVS(6156)*UV(5250)+JVS(6157)*UV(5255) - JUV(1538) = JVS(6158)*UV(1538)+JVS(6159)*UV(4346)+JVS(6160)*UV(5250)+JVS(6161)*UV(5255) - JUV(1539) = JVS(6162)*UV(1539)+JVS(6163)*UV(4065)+JVS(6164)*UV(5250)+JVS(6165)*UV(5255) - JUV(1540) = JVS(6166)*UV(1540)+JVS(6167)*UV(4484)+JVS(6168)*UV(5250)+JVS(6169)*UV(5255) - JUV(1541) = JVS(6170)*UV(1541)+JVS(6171)*UV(4867)+JVS(6172)*UV(5250)+JVS(6173)*UV(5255) - JUV(1542) = JVS(6174)*UV(1542)+JVS(6175)*UV(3521)+JVS(6176)*UV(5250)+JVS(6177)*UV(5255) - JUV(1543) = JVS(6178)*UV(1543)+JVS(6179)*UV(4709)+JVS(6180)*UV(5250)+JVS(6181)*UV(5255) - JUV(1544) = JVS(6182)*UV(1544)+JVS(6183)*UV(3874)+JVS(6184)*UV(5250)+JVS(6185)*UV(5255) - JUV(1545) = JVS(6186)*UV(1545)+JVS(6187)*UV(5136)+JVS(6188)*UV(5250)+JVS(6189)*UV(5255) - JUV(1546) = JVS(6190)*UV(1546)+JVS(6191)*UV(4442)+JVS(6192)*UV(5250)+JVS(6193)*UV(5255) - JUV(1547) = JVS(6194)*UV(1547)+JVS(6195)*UV(5090)+JVS(6196)*UV(5250)+JVS(6197)*UV(5255) - JUV(1548) = JVS(6198)*UV(1548)+JVS(6199)*UV(4566)+JVS(6200)*UV(5250) - JUV(1549) = JVS(6201)*UV(1549)+JVS(6202)*UV(3820)+JVS(6203)*UV(5250) - JUV(1550) = JVS(6204)*UV(257)+JVS(6205)*UV(1119)+JVS(6206)*UV(1550)+JVS(6207)*UV(1551)+JVS(6208)*UV(3011)+JVS(6209)& - &*UV(3686)+JVS(6210)*UV(5250) - JUV(1551) = JVS(6212)*UV(1551)+JVS(6213)*UV(3686)+JVS(6214)*UV(5250)+JVS(6215)*UV(5252) - JUV(1552) = JVS(6216)*UV(1552)+JVS(6217)*UV(1907)+JVS(6218)*UV(2419)+JVS(6219)*UV(4058)+JVS(6220)*UV(5252)+JVS(6221)& - &*UV(5256) - JUV(1553) = JVS(6222)*UV(1553)+JVS(6223)*UV(2672)+JVS(6224)*UV(2753)+JVS(6225)*UV(4127)+JVS(6226)*UV(5252)+JVS(6227)& - &*UV(5256) - JUV(1554) = JVS(6228)*UV(1554)+JVS(6229)*UV(3825)+JVS(6230)*UV(5250) - JUV(1555) = JVS(6231)*UV(1555)+JVS(6232)*UV(3791)+JVS(6233)*UV(5250) - JUV(1556) = JVS(6234)*UV(608)+JVS(6235)*UV(1556)+JVS(6236)*UV(3291)+JVS(6237)*UV(4105)+JVS(6239)*UV(5252)+JVS(6240)& - &*UV(5256) - JUV(1557) = JVS(6241)*UV(1557)+JVS(6242)*UV(4967)+JVS(6243)*UV(5250) - JUV(1558) = JVS(6244)*UV(1558)+JVS(6245)*UV(4976)+JVS(6246)*UV(5250) - JUV(1559) = JVS(6247)*UV(1559)+JVS(6248)*UV(1992)+JVS(6249)*UV(2218)+JVS(6250)*UV(3667)+JVS(6251)*UV(5252)+JVS(6252)& - &*UV(5256) - JUV(1560) = JVS(6253)*UV(1560)+JVS(6254)*UV(4897)+JVS(6255)*UV(5250) - JUV(1561) = JVS(6256)*UV(1561)+JVS(6257)*UV(4242)+JVS(6258)*UV(5250) - JUV(1562) = JVS(6259)*UV(1562)+JVS(6260)*UV(4817)+JVS(6261)*UV(5250) - JUV(1563) = JVS(6262)*UV(1563)+JVS(6263)*UV(2835)+JVS(6264)*UV(3046)+JVS(6265)*UV(3961)+JVS(6266)*UV(5252)+JVS(6267)& - &*UV(5256) - JUV(1564) = JVS(6268)*UV(1564)+JVS(6269)*UV(2543)+JVS(6270)*UV(2653)+JVS(6271)*UV(3869)+JVS(6272)*UV(5252)+JVS(6273)& - &*UV(5256) - JUV(1565) = JVS(6274)*UV(1036)+JVS(6275)*UV(1565)+JVS(6276)*UV(2023)+JVS(6277)*UV(2058)+JVS(6279)*UV(3936)+JVS(6280)& - &*UV(5250) - JUV(1566) = JVS(6281)*UV(1566)+JVS(6282)*UV(4446)+JVS(6283)*UV(5250) - JUV(1567) = JVS(6284)*UV(1567)+JVS(6285)*UV(3665)+JVS(6286)*UV(5250) - JUV(1568) = JVS(6287)*UV(1568)+JVS(6288)*UV(2235)+JVS(6289)*UV(2261)+JVS(6290)*UV(4411)+JVS(6291)*UV(5252)+JVS(6292)& - &*UV(5256) - JUV(1569) = JVS(6293)*UV(1569)+JVS(6294)*UV(5249)+JVS(6295)*UV(5258) - JUV(1570) = JVS(6296)*UV(1570)+JVS(6297)*UV(4358)+JVS(6298)*UV(5250) - JUV(1571) = JVS(6299)*UV(1571)+JVS(6300)*UV(4369)+JVS(6301)*UV(5250) - JUV(1572) = JVS(6302)*UV(24)+JVS(6303)*UV(1147)+JVS(6304)*UV(1572)+JVS(6305)*UV(4092)+JVS(6306)*UV(5250)+JVS(6307)& - &*UV(5252)+JVS(6309)*UV(5256) - JUV(1573) = JVS(6310)*UV(181)+JVS(6311)*UV(1573)+JVS(6312)*UV(5250)+JVS(6313)*UV(5256) - JUV(1574) = JVS(6314)*UV(1574)+JVS(6315)*UV(2774)+JVS(6316)*UV(3077)+JVS(6317)*UV(5053)+JVS(6318)*UV(5252)+JVS(6319)& - &*UV(5256) - JUV(1575) = JVS(6320)*UV(1575)+JVS(6321)*UV(3552)+JVS(6322)*UV(5250) - JUV(1576) = JVS(6323)*UV(1576)+JVS(6324)*UV(4813)+JVS(6325)*UV(5250) - JUV(1577) = JVS(6326)*UV(1577)+JVS(6327)*UV(4901)+JVS(6328)*UV(5250) - JUV(1578) = JVS(6329)*UV(1578)+JVS(6330)*UV(4674)+JVS(6331)*UV(5250) - JUV(1579) = JVS(6332)*UV(657)+JVS(6333)*UV(1139)+JVS(6334)*UV(1579)+JVS(6335)*UV(4142)+JVS(6337)*UV(5252)+JVS(6339)& - &*UV(5256) - JUV(1580) = JVS(6340)*UV(1580)+JVS(6341)*UV(5250)+JVS(6342)*UV(5256) - JUV(1581) = JVS(6343)*UV(1520)+JVS(6344)*UV(1581)+JVS(6345)*UV(1911)+JVS(6346)*UV(1915)+JVS(6348)*UV(3867)+JVS(6349)& - &*UV(5250) - JUV(1582) = JVS(6350)*UV(1582)+JVS(6351)*UV(4698)+JVS(6352)*UV(5250) - JUV(1583) = JVS(6353)*UV(1583)+JVS(6354)*UV(1584)+JVS(6355)*UV(1968)+JVS(6356)*UV(4311)+JVS(6357)*UV(5252)+JVS(6358)& - &*UV(5256) - JUV(1584) = JVS(6359)*UV(1584)+JVS(6360)*UV(4311)+JVS(6361)*UV(5250) - JUV(1585) = JVS(6362)*UV(1585)+JVS(6363)*UV(4148)+JVS(6364)*UV(5250) - JUV(1586) = JVS(6365)*UV(1586)+JVS(6366)*UV(4145)+JVS(6367)*UV(5250) - JUV(1587) = JVS(6368)*UV(1587)+JVS(6369)*UV(4594)+JVS(6370)*UV(5250) - JUV(1588) = JVS(6371)*UV(1588)+JVS(6372)*UV(4432)+JVS(6373)*UV(5250) - JUV(1589) = JVS(6374)*UV(1589)+JVS(6375)*UV(3641)+JVS(6376)*UV(5250) - JUV(1590) = JVS(6377)*UV(266)+JVS(6378)*UV(1149)+JVS(6379)*UV(1590)+JVS(6380)*UV(1591)+JVS(6381)*UV(2613)+JVS(6382)& - &*UV(3764)+JVS(6383)*UV(5250) - JUV(1591) = JVS(6385)*UV(1591)+JVS(6386)*UV(3764)+JVS(6387)*UV(5250)+JVS(6388)*UV(5252) - JUV(1592) = JVS(6389)*UV(1592)+JVS(6390)*UV(2715)+JVS(6391)*UV(3328)+JVS(6392)*UV(5098)+JVS(6393)*UV(5252)+JVS(6394)& - &*UV(5256) - JUV(1593) = JVS(6395)*UV(1593)+JVS(6396)*UV(2664)+JVS(6397)*UV(2810)+JVS(6398)*UV(4614)+JVS(6399)*UV(5252)+JVS(6400)& - &*UV(5256) - JUV(1594) = JVS(6401)*UV(1594)+JVS(6402)*UV(3631)+JVS(6403)*UV(5250) - JUV(1595) = JVS(6404)*UV(1595)+JVS(6405)*UV(3035)+JVS(6406)*UV(3409)+JVS(6407)*UV(4858)+JVS(6408)*UV(5252)+JVS(6409)& - &*UV(5256) - JUV(1596) = JVS(6410)*UV(1596)+JVS(6411)*UV(4876)+JVS(6412)*UV(5250) - JUV(1597) = JVS(6413)*UV(1597)+JVS(6414)*UV(2764)+JVS(6415)*UV(2976)+JVS(6416)*UV(4612)+JVS(6417)*UV(5252)+JVS(6418)& - &*UV(5256) - JUV(1598) = JVS(6419)*UV(1598)+JVS(6420)*UV(4667)+JVS(6421)*UV(5250) - JUV(1599) = JVS(6422)*UV(1599)+JVS(6423)*UV(4356)+JVS(6424)*UV(5250) - JUV(1600) = JVS(6425)*UV(1600)+JVS(6426)*UV(4935)+JVS(6427)*UV(5250) - JUV(1601) = JVS(6428)*UV(1601)+JVS(6429)*UV(4365)+JVS(6430)*UV(5250) - JUV(1602) = JVS(6431)*UV(1602)+JVS(6432)*UV(4861)+JVS(6433)*UV(5250) - JUV(1603) = JVS(6434)*UV(1603)+JVS(6435)*UV(4066)+JVS(6436)*UV(5250) - JUV(1604) = JVS(6437)*UV(336)+JVS(6438)*UV(904)+JVS(6439)*UV(1604)+JVS(6440)*UV(2296)+JVS(6441)*UV(3398)+JVS(6442)& - &*UV(3852)+JVS(6443)*UV(5250) - JUV(1605) = JVS(6445)*UV(457)+JVS(6446)*UV(1325)+JVS(6447)*UV(1605)+JVS(6448)*UV(4953)+JVS(6449)*UV(5250)+JVS(6450)& - &*UV(5252)+JVS(6451)*UV(5255)+JVS(6452)*UV(5256) - JUV(1606) = JVS(6453)*UV(58)+JVS(6454)*UV(1443)+JVS(6455)*UV(1606)+JVS(6456)*UV(3695)+JVS(6457)*UV(5250)+JVS(6458)& - &*UV(5252)+JVS(6460)*UV(5256) - JUV(1607) = JVS(6461)*UV(664)+JVS(6462)*UV(1191)+JVS(6463)*UV(1607)+JVS(6464)*UV(4697)+JVS(6466)*UV(5252)+JVS(6468)& - &*UV(5256) - JUV(1608) = JVS(6469)*UV(864)+JVS(6470)*UV(1489)+JVS(6471)*UV(1608)+JVS(6472)*UV(4910)+JVS(6473)*UV(5250)+JVS(6474)& - &*UV(5252)+JVS(6475)*UV(5255)+JVS(6476)*UV(5256) - JUV(1609) = JVS(6477)*UV(1609)+JVS(6478)*UV(4483)+JVS(6479)*UV(5250) - JUV(1610) = JVS(6480)*UV(1609)+JVS(6481)*UV(1610)+JVS(6482)*UV(1836)+JVS(6483)*UV(4483)+JVS(6484)*UV(5250) - JUV(1611) = JVS(6485)*UV(1611)+JVS(6486)*UV(4754)+JVS(6487)*UV(5250) - JUV(1612) = JVS(6488)*UV(1612)+JVS(6489)*UV(4746)+JVS(6490)*UV(5250) - JUV(1613) = JVS(6491)*UV(1613)+JVS(6492)*UV(3813)+JVS(6493)*UV(5250) - JUV(1614) = JVS(6494)*UV(1614)+JVS(6495)*UV(1801)+JVS(6496)*UV(2524)+JVS(6497)*UV(4385)+JVS(6498)*UV(5252)+JVS(6499)& - &*UV(5256) - JUV(1615) = JVS(6500)*UV(1615)+JVS(6501)*UV(4135)+JVS(6502)*UV(5250) - JUV(1616) = JVS(6503)*UV(1616)+JVS(6504)*UV(2761)+JVS(6505)*UV(2871)+JVS(6506)*UV(3885)+JVS(6507)*UV(5252)+JVS(6508)& - &*UV(5256) - JUV(1617) = JVS(6509)*UV(515)+JVS(6510)*UV(1511)+JVS(6511)*UV(1617)+JVS(6512)*UV(5044)+JVS(6513)*UV(5250)+JVS(6514)& - &*UV(5252)+JVS(6515)*UV(5255)+JVS(6516)*UV(5256) - JUV(1618) = JVS(6517)*UV(1618)+JVS(6518)*UV(4418)+JVS(6519)*UV(5250) - JUV(1619) = JVS(6520)*UV(1619)+JVS(6521)*UV(4542)+JVS(6522)*UV(5250) - JUV(1620) = JVS(6523)*UV(118)+JVS(6524)*UV(965)+JVS(6525)*UV(1620)+JVS(6526)*UV(4734)+JVS(6527)*UV(5250)+JVS(6528)& - &*UV(5252)+JVS(6530)*UV(5256) - JUV(1621) = JVS(6531)*UV(1621)+JVS(6532)*UV(4804)+JVS(6533)*UV(5250) - JUV(1622) = JVS(6534)*UV(38)+JVS(6535)*UV(1129)+JVS(6536)*UV(1622)+JVS(6537)*UV(4480)+JVS(6538)*UV(5250)+JVS(6539)& - &*UV(5252)+JVS(6541)*UV(5256) - JUV(1623) = JVS(6542)*UV(1623)+JVS(6543)*UV(4683)+JVS(6544)*UV(5250) - JUV(1624) = JVS(6545)*UV(496)+JVS(6546)*UV(1407)+JVS(6547)*UV(1624)+JVS(6548)*UV(4989)+JVS(6549)*UV(5250)+JVS(6550)& - &*UV(5252)+JVS(6551)*UV(5255)+JVS(6552)*UV(5256) - JUV(1625) = JVS(6553)*UV(1625)+JVS(6554)*UV(3625)+JVS(6555)*UV(5250) - JUV(1626) = JVS(6556)*UV(1626)+JVS(6557)*UV(4159)+JVS(6558)*UV(5250) - JUV(1627) = JVS(6559)*UV(1627)+JVS(6560)*UV(2633)+JVS(6561)*UV(2713)+JVS(6562)*UV(3859)+JVS(6563)*UV(5252)+JVS(6564)& - &*UV(5256) - JUV(1628) = JVS(6565)*UV(248)+JVS(6566)*UV(1286)+JVS(6567)*UV(1628)+JVS(6568)*UV(1629)+JVS(6569)*UV(2648)+JVS(6570)& - &*UV(4088)+JVS(6571)*UV(5250) - JUV(1629) = JVS(6573)*UV(1629)+JVS(6574)*UV(4088)+JVS(6575)*UV(5250)+JVS(6576)*UV(5252) - JUV(1630) = JVS(6577)*UV(1630)+JVS(6578)*UV(4236)+JVS(6579)*UV(5250) - JUV(1631) = JVS(6580)*UV(1630)+JVS(6581)*UV(1631)+JVS(6582)*UV(2386)+JVS(6583)*UV(4236)+JVS(6584)*UV(5250)+JVS(6585)& - &*UV(5252)+JVS(6586)*UV(5256) - JUV(1632) = JVS(6587)*UV(1632)+JVS(6588)*UV(4811)+JVS(6589)*UV(5250) - JUV(1633) = JVS(6590)*UV(1633)+JVS(6591)*UV(4802)+JVS(6592)*UV(5250) - JUV(1634) = JVS(6593)*UV(1634)+JVS(6594)*UV(2044)+JVS(6595)*UV(3394)+JVS(6596)*UV(5228)+JVS(6597)*UV(5252)+JVS(6598)& - &*UV(5256) - JUV(1635) = JVS(6599)*UV(1635)+JVS(6600)*UV(5238)+JVS(6601)*UV(5250) - JUV(1636) = JVS(6602)*UV(1636)+JVS(6603)*UV(4675)+JVS(6604)*UV(5250) - JUV(1637) = JVS(6605)*UV(1637)+JVS(6606)*UV(3948)+JVS(6607)*UV(5250) - JUV(1638) = JVS(6608)*UV(1638)+JVS(6609)*UV(2893)+JVS(6610)*UV(3418)+JVS(6611)*UV(4852)+JVS(6612)*UV(5252)+JVS(6613)& - &*UV(5256) - JUV(1639) = JVS(6614)*UV(1639)+JVS(6615)*UV(3601)+JVS(6616)*UV(5250) - JUV(1640) = JVS(6617)*UV(1560)+JVS(6618)*UV(1640)+JVS(6619)*UV(1873)+JVS(6620)*UV(4897)+JVS(6622)*UV(5252)+JVS(6623)& - &*UV(5256) - JUV(1641) = JVS(6624)*UV(1641)+JVS(6625)*UV(5238)+JVS(6626)*UV(5250) - JUV(1642) = JVS(6627)*UV(1642)+JVS(6628)*UV(5049)+JVS(6629)*UV(5258) - JUV(1643) = JVS(6630)*UV(1643)+JVS(6631)*UV(1731)+JVS(6632)*UV(2017)+JVS(6633)*UV(3338)+JVS(6634)*UV(4150)+JVS(6635)& - &*UV(5250) - JUV(1644) = JVS(6636)*UV(1644)+JVS(6637)*UV(4732)+JVS(6638)*UV(5250) - JUV(1645) = JVS(6639)*UV(1645)+JVS(6640)*UV(3385)+JVS(6641)*UV(4038)+JVS(6642)*UV(5252)+JVS(6643)*UV(5253)+JVS(6644)& - &*UV(5256) - JUV(1646) = JVS(6645)*UV(1646)+JVS(6646)*UV(4169)+JVS(6647)*UV(5250) - JUV(1647) = JVS(6648)*UV(1647)+JVS(6649)*UV(3663)+JVS(6650)*UV(5250) - JUV(1648) = JVS(6651)*UV(410)+JVS(6652)*UV(1413)+JVS(6653)*UV(1648)+JVS(6654)*UV(1649)+JVS(6655)*UV(2829)+JVS(6656)& - &*UV(3722)+JVS(6657)*UV(5250) - JUV(1649) = JVS(6659)*UV(1649)+JVS(6660)*UV(3722)+JVS(6661)*UV(5250)+JVS(6662)*UV(5252) - JUV(1650) = JVS(6663)*UV(1650)+JVS(6664)*UV(2129)+JVS(6665)*UV(2940)+JVS(6666)*UV(4827)+JVS(6667)*UV(5252)+JVS(6668)& - &*UV(5256) - JUV(1651) = JVS(6669)*UV(1651)+JVS(6670)*UV(3485)+JVS(6671)*UV(5250) - JUV(1652) = JVS(6672)*UV(725)+JVS(6673)*UV(1130)+JVS(6674)*UV(1652)+JVS(6675)*UV(4459)+JVS(6677)*UV(5252)+JVS(6679)& - &*UV(5256) - JUV(1653) = JVS(6680)*UV(1653)+JVS(6681)*UV(3944)+JVS(6682)*UV(5250) - JUV(1654) = JVS(6683)*UV(1653)+JVS(6684)*UV(1654)+JVS(6685)*UV(2244)+JVS(6686)*UV(3944)+JVS(6687)*UV(5250)+JVS(6688)& - &*UV(5252)+JVS(6689)*UV(5256) - JUV(1655) = JVS(6690)*UV(1655)+JVS(6691)*UV(4885)+JVS(6692)*UV(5250) - JUV(1656) = JVS(6693)*UV(467)+JVS(6694)*UV(830)+JVS(6695)*UV(1656)+JVS(6696)*UV(1657)+JVS(6697)*UV(2781)+JVS(6698)& - &*UV(4043)+JVS(6699)*UV(5250) - JUV(1657) = JVS(6701)*UV(1657)+JVS(6702)*UV(4043)+JVS(6703)*UV(5250)+JVS(6704)*UV(5252) - JUV(1658) = JVS(6705)*UV(1658)+JVS(6706)*UV(4126)+JVS(6707)*UV(5250) - JUV(1659) = JVS(6708)*UV(1659)+JVS(6709)*UV(4911)+JVS(6710)*UV(5250) - JUV(1660) = JVS(6711)*UV(382)+JVS(6712)*UV(1546)+JVS(6713)*UV(1660)+JVS(6714)*UV(2136)+JVS(6715)*UV(3613)+JVS(6716)& - &*UV(4442)+JVS(6717)*UV(5250) - JUV(1661) = JVS(6719)*UV(1661)+JVS(6720)*UV(4113)+JVS(6721)*UV(5118)+JVS(6722)*UV(5168)+JVS(6723)*UV(5252)+JVS(6724)& - &*UV(5256) - JUV(1662) = JVS(6725)*UV(1662)+JVS(6726)*UV(2126)+JVS(6727)*UV(2427)+JVS(6728)*UV(5145)+JVS(6729)*UV(5252)+JVS(6730)& - &*UV(5256) - JUV(1663) = JVS(6731)*UV(1663)+JVS(6732)*UV(2513)+JVS(6733)*UV(3038)+JVS(6734)*UV(3854)+JVS(6735)*UV(5252)+JVS(6736)& - &*UV(5256) - JUV(1664) = JVS(6737)*UV(1664)+JVS(6738)*UV(3796)+JVS(6739)*UV(5250) - JUV(1665) = JVS(6740)*UV(1665)+JVS(6741)*UV(4992)+JVS(6742)*UV(5250) - JUV(1666) = JVS(6743)*UV(1666)+JVS(6744)*UV(3814)+JVS(6745)*UV(5250) - JUV(1667) = JVS(6746)*UV(1667)+JVS(6747)*UV(2519)+JVS(6748)*UV(2785)+JVS(6749)*UV(3893)+JVS(6750)*UV(5252)+JVS(6751)& - &*UV(5256) - JUV(1668) = JVS(6752)*UV(1668)+JVS(6753)*UV(5028)+JVS(6754)*UV(5250) - JUV(1669) = JVS(6755)*UV(1669)+JVS(6756)*UV(3828)+JVS(6757)*UV(5250) - JUV(1670) = JVS(6758)*UV(1670)+JVS(6759)*UV(4889)+JVS(6760)*UV(5250) - JUV(1671) = JVS(6761)*UV(1671)+JVS(6762)*UV(4780)+JVS(6763)*UV(5250) - JUV(1672) = JVS(6764)*UV(1672)+JVS(6765)*UV(3799)+JVS(6766)*UV(5250) - JUV(1673) = JVS(6767)*UV(1673)+JVS(6768)*UV(5081)+JVS(6769)*UV(5250) - JUV(1674) = JVS(6770)*UV(1674)+JVS(6771)*UV(4355)+JVS(6772)*UV(5250) - JUV(1675) = JVS(6773)*UV(100)+JVS(6774)*UV(944)+JVS(6775)*UV(1675)+JVS(6776)*UV(3752)+JVS(6777)*UV(5250)+JVS(6778)& - &*UV(5252)+JVS(6780)*UV(5256) - JUV(1676) = JVS(6781)*UV(1676)+JVS(6782)*UV(4987)+JVS(6783)*UV(5250) - JUV(1677) = JVS(6784)*UV(1637)+JVS(6785)*UV(1677)+JVS(6786)*UV(2426)+JVS(6787)*UV(3948)+JVS(6788)*UV(5250)+JVS(6789)& - &*UV(5252)+JVS(6790)*UV(5256) - JUV(1678) = JVS(6791)*UV(1678)+JVS(6792)*UV(4136)+JVS(6793)*UV(5250) - JUV(1679) = JVS(6794)*UV(1679)+JVS(6795)*UV(2306)+JVS(6796)*UV(2456)+JVS(6797)*UV(4995)+JVS(6798)*UV(5252)+JVS(6799)& - &*UV(5256) - JUV(1680) = JVS(6800)*UV(46)+JVS(6801)*UV(1252)+JVS(6802)*UV(1680)+JVS(6803)*UV(3725)+JVS(6804)*UV(5250)+JVS(6805)& - &*UV(5252)+JVS(6807)*UV(5256) - JUV(1681) = JVS(6808)*UV(1681)+JVS(6809)*UV(4347)+JVS(6810)*UV(5250) - JUV(1682) = JVS(6811)*UV(1682)+JVS(6812)*UV(5002)+JVS(6813)*UV(5250) - JUV(1683) = JVS(6814)*UV(1683)+JVS(6815)*UV(4589)+JVS(6816)*UV(5250) - JUV(1684) = JVS(6817)*UV(1684)+JVS(6818)*UV(3550)+JVS(6819)*UV(3628)+JVS(6820)*UV(5134)+JVS(6821)*UV(5252)+JVS(6822)& - &*UV(5256) - JUV(1685) = JVS(6823)*UV(458)+JVS(6824)*UV(1685)+JVS(6826)*UV(5250) - JUV(1686) = JVS(6827)*UV(1686)+JVS(6828)*UV(5229)+JVS(6829)*UV(5250) - JUV(1687) = JVS(6830)*UV(1687)+JVS(6831)*UV(4761)+JVS(6832)*UV(5250) - JUV(1688) = JVS(6833)*UV(1688)+JVS(6834)*UV(5238)+JVS(6835)*UV(5250) - JUV(1689) = JVS(6836)*UV(1351)+JVS(6837)*UV(1676)+JVS(6838)*UV(1689)+JVS(6839)*UV(4987)+JVS(6841)*UV(5252)+JVS(6843)& - &*UV(5256) - JUV(1690) = JVS(6844)*UV(1690)+JVS(6845)*UV(4584)+JVS(6846)*UV(5250) - JUV(1691) = JVS(6847)*UV(1561)+JVS(6848)*UV(1691)+JVS(6849)*UV(1887)+JVS(6850)*UV(4242)+JVS(6851)*UV(5250)+JVS(6852)& - &*UV(5252)+JVS(6853)*UV(5256) - JUV(1692) = JVS(6854)*UV(1692)+JVS(6855)*UV(2182)+JVS(6856)*UV(2233)+JVS(6857)*UV(3778)+JVS(6858)*UV(5252)+JVS(6859)& - &*UV(5256) - JUV(1693) = JVS(6860)*UV(1693)+JVS(6861)*UV(4880)+JVS(6862)*UV(5250) - JUV(1694) = JVS(6863)*UV(1694)+JVS(6864)*UV(3889)+JVS(6865)*UV(5250) - JUV(1695) = JVS(6866)*UV(1695)+JVS(6867)*UV(1974)+JVS(6868)*UV(2292)+JVS(6869)*UV(5229)+JVS(6870)*UV(5252)+JVS(6871)& - &*UV(5256) - JUV(1696) = JVS(6872)*UV(502)+JVS(6873)*UV(1089)+JVS(6874)*UV(1696)+JVS(6875)*UV(2943)+JVS(6876)*UV(3034)+JVS(6877)& - &*UV(3706)+JVS(6878)*UV(5250) - JUV(1697) = JVS(6880)*UV(1697)+JVS(6881)*UV(5208)+JVS(6882)*UV(5250) - JUV(1698) = JVS(6883)*UV(1698)+JVS(6884)*UV(4513)+JVS(6885)*UV(5250) - JUV(1699) = JVS(6886)*UV(1699)+JVS(6887)*UV(2878)+JVS(6888)*UV(3376)+JVS(6889)*UV(4390)+JVS(6890)*UV(5252)+JVS(6891)& - &*UV(5256) - JUV(1700) = JVS(6892)*UV(1700)+JVS(6893)*UV(3808)+JVS(6894)*UV(5250) - JUV(1701) = JVS(6895)*UV(1701)+JVS(6896)*UV(4755)+JVS(6897)*UV(5250) - JUV(1702) = JVS(6898)*UV(1702)+JVS(6899)*UV(2338)+JVS(6900)*UV(2463)+JVS(6901)*UV(3847)+JVS(6902)*UV(5252)+JVS(6903)& - &*UV(5256) - JUV(1703) = JVS(6904)*UV(1703)+JVS(6905)*UV(3147)+JVS(6906)*UV(5250) - JUV(1704) = JVS(6907)*UV(1704)+JVS(6908)*UV(4583)+JVS(6909)*UV(5250) - JUV(1705) = JVS(6910)*UV(1705)+JVS(6911)*UV(4827)+JVS(6912)*UV(5250) - JUV(1706) = JVS(6913)*UV(1384)+JVS(6914)*UV(1706)+JVS(6915)*UV(1973)+JVS(6916)*UV(1995)+JVS(6918)*UV(3927)+JVS(6919)& - &*UV(5250) - JUV(1707) = JVS(6920)*UV(1707)+JVS(6921)*UV(4349)+JVS(6922)*UV(5250) - JUV(1708) = JVS(6923)*UV(1708)+JVS(6924)*UV(5238)+JVS(6925)*UV(5250) - JUV(1709) = JVS(6926)*UV(1709)+JVS(6927)*UV(5238)+JVS(6928)*UV(5250) - JUV(1710) = JVS(6929)*UV(63)+JVS(6930)*UV(928)+JVS(6931)*UV(1710)+JVS(6932)*UV(4481)+JVS(6933)*UV(5250)+JVS(6934)& - &*UV(5252)+JVS(6936)*UV(5256) - JUV(1711) = JVS(6937)*UV(1711)+JVS(6938)*UV(4367)+JVS(6939)*UV(5250) - JUV(1712) = JVS(6940)*UV(1711)+JVS(6941)*UV(1712)+JVS(6942)*UV(2572)+JVS(6943)*UV(4367)+JVS(6944)*UV(5250) - JUV(1713) = JVS(6945)*UV(41)+JVS(6946)*UV(1020)+JVS(6947)*UV(1713)+JVS(6948)*UV(3705)+JVS(6949)*UV(5250)+JVS(6950)& - &*UV(5252)+JVS(6952)*UV(5256) - JUV(1714) = JVS(6953)*UV(1514)+JVS(6954)*UV(1694)+JVS(6955)*UV(1714)+JVS(6956)*UV(3889)+JVS(6957)*UV(5250)+JVS(6958)& - &*UV(5252)+JVS(6960)*UV(5256) - JUV(1715) = JVS(6961)*UV(1715)+JVS(6962)*UV(2237)+JVS(6963)*UV(2339)+JVS(6964)*UV(4755)+JVS(6965)*UV(5252)+JVS(6966)& - &*UV(5256) - JUV(1716) = JVS(6967)*UV(1716)+JVS(6968)*UV(3810)+JVS(6969)*UV(5250) - JUV(1717) = JVS(6970)*UV(1717)+JVS(6971)*UV(3815)+JVS(6972)*UV(5250) - JUV(1718) = JVS(6973)*UV(1718)+JVS(6974)*UV(4144)+JVS(6975)*UV(5250) - JUV(1719) = JVS(6976)*UV(1719)+JVS(6977)*UV(4581)+JVS(6978)*UV(5250) - JUV(1720) = JVS(6979)*UV(1720)+JVS(6980)*UV(1902)+JVS(6981)*UV(2127)+JVS(6982)*UV(3758)+JVS(6983)*UV(5252)+JVS(6984)& - &*UV(5256) - JUV(1721) = JVS(6985)*UV(1721)+JVS(6986)*UV(2775)+JVS(6987)*UV(2934)+JVS(6988)*UV(3873)+JVS(6989)*UV(5252)+JVS(6990)& - &*UV(5256) - JUV(1722) = JVS(6991)*UV(1722)+JVS(6992)*UV(4309)+JVS(6993)*UV(5250) - JUV(1723) = JVS(6994)*UV(1722)+JVS(6995)*UV(1723)+JVS(6996)*UV(2084)+JVS(6997)*UV(4309)+JVS(6998)*UV(5250)+JVS(6999)& - &*UV(5252)+JVS(7000)*UV(5256) - JUV(1724) = JVS(7001)*UV(1724)+JVS(7002)*UV(2214)+JVS(7003)*UV(2942)+JVS(7004)*UV(4137)+JVS(7005)*UV(5252)+JVS(7006)& - &*UV(5256) - JUV(1725) = JVS(7007)*UV(1725)+JVS(7008)*UV(1880)+JVS(7009)*UV(2106)+JVS(7010)*UV(3884)+JVS(7011)*UV(5252)+JVS(7012)& - &*UV(5256) - JUV(1726) = JVS(7013)*UV(1726)+JVS(7014)*UV(4706)+JVS(7015)*UV(5250) - JUV(1727) = JVS(7016)*UV(73)+JVS(7017)*UV(838)+JVS(7018)*UV(1727)+JVS(7019)*UV(4422)+JVS(7020)*UV(5250)+JVS(7021)& - &*UV(5252)+JVS(7023)*UV(5256) - JUV(1728) = JVS(7024)*UV(208)+JVS(7025)*UV(1728)+JVS(7026)*UV(2672)+JVS(7027)*UV(2753)+JVS(7028)*UV(4127)+JVS(7029)& - &*UV(5250)+JVS(7030)*UV(5255) - JUV(1729) = JVS(7031)*UV(1729)+JVS(7032)*UV(3659)+JVS(7033)*UV(5250) - JUV(1730) = JVS(7034)*UV(1730)+JVS(7035)*UV(5147)+JVS(7036)*UV(5250) - JUV(1731) = JVS(7037)*UV(1731)+JVS(7038)*UV(4150)+JVS(7039)*UV(5250) - JUV(1732) = JVS(7040)*UV(789)+JVS(7041)*UV(1094)+JVS(7042)*UV(1732)+JVS(7043)*UV(4410)+JVS(7045)*UV(5252)+JVS(7047)& - &*UV(5256) - JUV(1733) = JVS(7048)*UV(1733)+JVS(7049)*UV(5142)+JVS(7050)*UV(5250) - JUV(1734) = JVS(7051)*UV(1734)+JVS(7052)*UV(4835)+JVS(7053)*UV(5250) - JUV(1735) = JVS(7054)*UV(1735)+JVS(7055)*UV(4070)+JVS(7056)*UV(5250) - JUV(1736) = JVS(7057)*UV(1001)+JVS(7058)*UV(1736)+JVS(7059)*UV(2160)+JVS(7060)*UV(2184)+JVS(7061)*UV(3963)+JVS(7063)& - &*UV(5250) - JUV(1737) = JVS(7064)*UV(1737)+JVS(7065)*UV(2558)+JVS(7066)*UV(3341)+JVS(7067)*UV(4336)+JVS(7068)*UV(5252)+JVS(7069)& - &*UV(5256) - JUV(1738) = JVS(7070)*UV(1056)+JVS(7071)*UV(1738)+JVS(7072)*UV(2266)+JVS(7073)*UV(2288)+JVS(7075)*UV(3966)+JVS(7076)& - &*UV(5250) - JUV(1739) = JVS(7077)*UV(489)+JVS(7078)*UV(1509)+JVS(7079)*UV(1739)+JVS(7080)*UV(5052)+JVS(7081)*UV(5250)+JVS(7082)& - &*UV(5252)+JVS(7083)*UV(5255)+JVS(7084)*UV(5256) - JUV(1740) = JVS(7085)*UV(1740)+JVS(7086)*UV(4361)+JVS(7087)*UV(5250) - JUV(1741) = JVS(7088)*UV(1741)+JVS(7089)*UV(2628)+JVS(7090)*UV(2913)+JVS(7091)*UV(4980)+JVS(7092)*UV(5252)+JVS(7093)& - &*UV(5256) - JUV(1742) = JVS(7094)*UV(1742)+JVS(7095)*UV(4756)+JVS(7096)*UV(5250) - JUV(1743) = JVS(7097)*UV(1743)+JVS(7098)*UV(2187)+JVS(7099)*UV(2375)+JVS(7100)*UV(3676)+JVS(7101)*UV(5252)+JVS(7102)& - &*UV(5256) - JUV(1744) = JVS(7103)*UV(1744)+JVS(7104)*UV(4389)+JVS(7105)*UV(5250) - JUV(1745) = JVS(7106)*UV(39)+JVS(7107)*UV(1530)+JVS(7108)*UV(1745)+JVS(7109)*UV(3788)+JVS(7110)*UV(5250)+JVS(7111)& - &*UV(5252)+JVS(7113)*UV(5256) - JUV(1746) = JVS(7114)*UV(1746)+JVS(7115)*UV(4988)+JVS(7116)*UV(5258) - JUV(1747) = JVS(7117)*UV(1747)+JVS(7118)*UV(3827)+JVS(7119)*UV(5250) - JUV(1748) = JVS(7120)*UV(1748)+JVS(7121)*UV(3625)+JVS(7122)*UV(5074)+JVS(7123)*UV(5252)+JVS(7124)*UV(5256) - JUV(1749) = JVS(7125)*UV(1749)+JVS(7126)*UV(5142)+JVS(7127)*UV(5250)+JVS(7128)*UV(5252) - JUV(1750) = JVS(7129)*UV(1733)+JVS(7130)*UV(1749)+JVS(7131)*UV(1750)+JVS(7132)*UV(2188)+JVS(7133)*UV(5142)+JVS(7134)& - &*UV(5250)+JVS(7135)*UV(5252)+JVS(7136)*UV(5256) - JUV(1751) = JVS(7137)*UV(1751)+JVS(7138)*UV(4696)+JVS(7139)*UV(5250)+JVS(7140)*UV(5255) - JUV(1752) = JVS(7141)*UV(1752)+JVS(7142)*UV(4363)+JVS(7143)*UV(5250)+JVS(7144)*UV(5252) - JUV(1753) = JVS(7145)*UV(1753)+JVS(7146)*UV(5061)+JVS(7147)*UV(5250)+JVS(7148)*UV(5255) - JUV(1754) = JVS(7149)*UV(32)+JVS(7150)*UV(1171)+JVS(7151)*UV(1754)+JVS(7152)*UV(3188)+JVS(7153)*UV(3721)+JVS(7154)& - &*UV(5250)+JVS(7155)*UV(5252)+JVS(7157)*UV(5256) - JUV(1755) = JVS(7158)*UV(1165)+JVS(7159)*UV(1755)+JVS(7160)*UV(2509)+JVS(7161)*UV(3870)+JVS(7163)*UV(5252)+JVS(7165)& - &*UV(5256) - JUV(1756) = JVS(7166)*UV(430)+JVS(7167)*UV(1181)+JVS(7168)*UV(1756)+JVS(7169)*UV(4098)+JVS(7170)*UV(5250) - JUV(1757) = JVS(7172)*UV(1757)+JVS(7173)*UV(4960)+JVS(7174)*UV(5250)+JVS(7175)*UV(5255) - JUV(1758) = JVS(7176)*UV(1758)+JVS(7177)*UV(3990)+JVS(7178)*UV(5250)+JVS(7179)*UV(5255) - JUV(1759) = JVS(7180)*UV(1759)+JVS(7181)*UV(4274)+JVS(7182)*UV(5250)+JVS(7183)*UV(5255) - JUV(1760) = JVS(7184)*UV(1760)+JVS(7185)*UV(3238)+JVS(7186)*UV(4667)+JVS(7187)*UV(5252)+JVS(7188)*UV(5256) - JUV(1761) = JVS(7189)*UV(1761)+JVS(7190)*UV(3327)+JVS(7191)*UV(4295)+JVS(7192)*UV(5250)+JVS(7193)*UV(5255) - JUV(1762) = JVS(7194)*UV(1762)+JVS(7195)*UV(4552)+JVS(7196)*UV(5250)+JVS(7197)*UV(5255) - JUV(1763) = JVS(7198)*UV(1763)+JVS(7199)*UV(3317)+JVS(7200)*UV(4666)+JVS(7201)*UV(5250)+JVS(7202)*UV(5255) - JUV(1764) = JVS(7203)*UV(1764)+JVS(7204)*UV(4999)+JVS(7205)*UV(5232)+JVS(7206)*UV(5250)+JVS(7207)*UV(5255) - JUV(1765) = JVS(7208)*UV(1765)+JVS(7209)*UV(3227)+JVS(7210)*UV(4740)+JVS(7211)*UV(5250)+JVS(7212)*UV(5255) - JUV(1766) = JVS(7213)*UV(1766)+JVS(7214)*UV(3974)+JVS(7215)*UV(5250)+JVS(7216)*UV(5252) - JUV(1767) = JVS(7217)*UV(1767)+JVS(7218)*UV(4607)+JVS(7219)*UV(5250)+JVS(7220)*UV(5255) - JUV(1768) = JVS(7221)*UV(1768)+JVS(7222)*UV(4661)+JVS(7223)*UV(5250)+JVS(7224)*UV(5255) - JUV(1769) = JVS(7225)*UV(1769)+JVS(7226)*UV(2737)+JVS(7227)*UV(4542)+JVS(7228)*UV(5252)+JVS(7229)*UV(5256) - JUV(1770) = JVS(7230)*UV(1770)+JVS(7231)*UV(4266)+JVS(7232)*UV(5250)+JVS(7233)*UV(5255) - JUV(1771) = JVS(7234)*UV(1771)+JVS(7235)*UV(5041)+JVS(7236)*UV(5250)+JVS(7237)*UV(5252) - JUV(1772) = JVS(7238)*UV(1772)+JVS(7239)*UV(3525)+JVS(7240)*UV(5250)+JVS(7241)*UV(5252) - JUV(1773) = JVS(7242)*UV(1458)+JVS(7243)*UV(1772)+JVS(7244)*UV(1773)+JVS(7245)*UV(3525)+JVS(7247)*UV(5252)+JVS(7249)& - &*UV(5256) - JUV(1774) = JVS(7250)*UV(1774)+JVS(7251)*UV(5135)+JVS(7252)*UV(5250)+JVS(7253)*UV(5255) - JUV(1775) = JVS(7254)*UV(1775)+JVS(7255)*UV(4603)+JVS(7256)*UV(5250)+JVS(7257)*UV(5256) - JUV(1776) = JVS(7258)*UV(1776)+JVS(7259)*UV(4555)+JVS(7260)*UV(5258) - JUV(1777) = JVS(7261)*UV(1777)+JVS(7262)*UV(4765)+JVS(7263)*UV(5250) - JUV(1778) = JVS(7264)*UV(1778)+JVS(7265)*UV(5096)+JVS(7266)*UV(5250)+JVS(7267)*UV(5255) - JUV(1779) = JVS(7268)*UV(1779)+JVS(7269)*UV(4778)+JVS(7270)*UV(5250)+JVS(7271)*UV(5255) - JUV(1780) = JVS(7272)*UV(1780)+JVS(7273)*UV(3751)+JVS(7274)*UV(5250)+JVS(7275)*UV(5252) - JUV(1781) = JVS(7276)*UV(1401)+JVS(7277)*UV(1780)+JVS(7278)*UV(1781)+JVS(7279)*UV(3751)+JVS(7281)*UV(5252)+JVS(7283)& - &*UV(5256) - JUV(1782) = JVS(7284)*UV(1782)+JVS(7285)*UV(4387)+JVS(7286)*UV(5007)+JVS(7287)*UV(5250)+JVS(7288)*UV(5252) - JUV(1783) = JVS(7289)*UV(1783)+JVS(7290)*UV(4535)+JVS(7291)*UV(5250)+JVS(7292)*UV(5255) - JUV(1784) = JVS(7293)*UV(1784)+JVS(7294)*UV(4875)+JVS(7295)*UV(5250)+JVS(7296)*UV(5255) - JUV(1785) = JVS(7297)*UV(1785)+JVS(7298)*UV(4579)+JVS(7299)*UV(5149)+JVS(7300)*UV(5250)+JVS(7301)*UV(5252) - JUV(1786) = JVS(7302)*UV(1786)+JVS(7303)*UV(4342)+JVS(7304)*UV(5250)+JVS(7305)*UV(5252) - JUV(1787) = JVS(7306)*UV(1787)+JVS(7307)*UV(3267)+JVS(7308)*UV(4565)+JVS(7309)*UV(5252)+JVS(7310)*UV(5256) - JUV(1788) = JVS(7311)*UV(1788)+JVS(7312)*UV(3894)+JVS(7313)*UV(5250)+JVS(7314)*UV(5252) - JUV(1789) = JVS(7315)*UV(64)+JVS(7316)*UV(1469)+JVS(7317)*UV(1788)+JVS(7318)*UV(1789)+JVS(7319)*UV(3894)+JVS(7320)& - &*UV(5250)+JVS(7321)*UV(5252)+JVS(7323)*UV(5256) - JUV(1790) = JVS(7324)*UV(1587)+JVS(7325)*UV(1790)+JVS(7326)*UV(3314)+JVS(7327)*UV(4594)+JVS(7328)*UV(5250) - JUV(1791) = JVS(7329)*UV(1742)+JVS(7330)*UV(1791)+JVS(7331)*UV(2836)+JVS(7332)*UV(4756)+JVS(7333)*UV(5250) - JUV(1792) = JVS(7334)*UV(1341)+JVS(7335)*UV(1792)+JVS(7336)*UV(1794)+JVS(7337)*UV(3776)+JVS(7339)*UV(5252)+JVS(7341)& - &*UV(5256) - JUV(1793) = JVS(7342)*UV(1793)+JVS(7343)*UV(4136)+JVS(7344)*UV(5250)+JVS(7345)*UV(5255) - JUV(1794) = JVS(7346)*UV(1794)+JVS(7347)*UV(3776)+JVS(7348)*UV(5250)+JVS(7349)*UV(5252) - JUV(1795) = JVS(7350)*UV(1795)+JVS(7351)*UV(5013)+JVS(7352)*UV(5205)+JVS(7353)*UV(5258) - JUV(1796) = JVS(7354)*UV(966)+JVS(7355)*UV(1796)+JVS(7356)*UV(2302)+JVS(7357)*UV(3481)+JVS(7359)*UV(5252)+JVS(7361)& - &*UV(5256) - JUV(1797) = JVS(7362)*UV(1797)+JVS(7363)*UV(2690)+JVS(7364)*UV(4070)+JVS(7365)*UV(5250) - JUV(1798) = JVS(7366)*UV(1798)+JVS(7367)*UV(3967)+JVS(7368)*UV(5250)+JVS(7369)*UV(5252) - JUV(1799) = JVS(7370)*UV(1506)+JVS(7371)*UV(1798)+JVS(7372)*UV(1799)+JVS(7373)*UV(3967)+JVS(7375)*UV(5252)+JVS(7377)& - &*UV(5256) - JUV(1800) = JVS(7378)*UV(1800)+JVS(7379)*UV(5185)+JVS(7380)*UV(5250)+JVS(7381)*UV(5252) - JUV(1801) = JVS(7382)*UV(1801)+JVS(7383)*UV(4385)+JVS(7384)*UV(5250)+JVS(7385)*UV(5255) - JUV(1802) = JVS(7386)*UV(1802)+JVS(7387)*UV(4817)+JVS(7388)*UV(5250)+JVS(7389)*UV(5255) - JUV(1803) = JVS(7390)*UV(400)+JVS(7391)*UV(1390)+JVS(7392)*UV(1803)+JVS(7393)*UV(2759)+JVS(7394)*UV(4166)+JVS(7395)& - &*UV(5250)+JVS(7396)*UV(5252)+JVS(7398)*UV(5256) - JUV(1804) = JVS(7399)*UV(1804)+JVS(7400)*UV(4518)+JVS(7401)*UV(5250)+JVS(7402)*UV(5255) - JUV(1805) = JVS(7403)*UV(1805)+JVS(7404)*UV(4045)+JVS(7405)*UV(5250)+JVS(7406)*UV(5256) - JUV(1806) = JVS(7407)*UV(1588)+JVS(7408)*UV(1806)+JVS(7409)*UV(2501)+JVS(7410)*UV(4432)+JVS(7411)*UV(5250) - JUV(1807) = JVS(7412)*UV(1807)+JVS(7413)*UV(3278)+JVS(7414)*UV(3909)+JVS(7415)*UV(5250) - JUV(1808) = JVS(7416)*UV(1808)+JVS(7417)*UV(3198)+JVS(7418)*UV(4585)+JVS(7419)*UV(5252)+JVS(7420)*UV(5256) - JUV(1809) = JVS(7421)*UV(1809)+JVS(7422)*UV(5195)+JVS(7423)*UV(5250)+JVS(7424)*UV(5255) - JUV(1810) = JVS(7425)*UV(1810)+JVS(7426)*UV(4125)+JVS(7427)*UV(5001)+JVS(7428)*UV(5252)+JVS(7429)*UV(5256) - JUV(1811) = JVS(7430)*UV(1811)+JVS(7431)*UV(3750)+JVS(7432)*UV(5250)+JVS(7433)*UV(5252) - JUV(1812) = JVS(7434)*UV(527)+JVS(7435)*UV(1528)+JVS(7436)*UV(1811)+JVS(7437)*UV(1812)+JVS(7438)*UV(3750)+JVS(7440)& - &*UV(5252)+JVS(7442)*UV(5256) - JUV(1813) = JVS(7443)*UV(1813)+JVS(7444)*UV(4162)+JVS(7445)*UV(5250)+JVS(7446)*UV(5252) - JUV(1814) = JVS(7447)*UV(1060)+JVS(7448)*UV(1813)+JVS(7449)*UV(1814)+JVS(7450)*UV(4162)+JVS(7452)*UV(5252)+JVS(7454)& - &*UV(5256) - JUV(1815) = JVS(7455)*UV(1815)+JVS(7456)*UV(3243)+JVS(7457)*UV(4596)+JVS(7458)*UV(5252)+JVS(7459)*UV(5256) - JUV(1816) = JVS(7460)*UV(1816)+JVS(7461)*UV(4229)+JVS(7462)*UV(5250)+JVS(7463)*UV(5255) - JUV(1817) = JVS(7464)*UV(1817)+JVS(7465)*UV(2487)+JVS(7466)*UV(5238)+JVS(7467)*UV(5250) - JUV(1818) = JVS(7468)*UV(547)+JVS(7469)*UV(1411)+JVS(7470)*UV(1818)+JVS(7471)*UV(2802)+JVS(7472)*UV(5130)+JVS(7473)& - &*UV(5250)+JVS(7474)*UV(5252)+JVS(7476)*UV(5256) - JUV(1819) = JVS(7477)*UV(1819)+JVS(7478)*UV(3509)+JVS(7479)*UV(5250)+JVS(7480)*UV(5252) - JUV(1820) = JVS(7481)*UV(1484)+JVS(7482)*UV(1819)+JVS(7483)*UV(1820)+JVS(7484)*UV(3509)+JVS(7486)*UV(5252)+JVS(7488)& - &*UV(5256) - JUV(1821) = JVS(7489)*UV(922)+JVS(7490)*UV(1821)+JVS(7491)*UV(2309)+JVS(7492)*UV(3507)+JVS(7494)*UV(5252)+JVS(7496)& - &*UV(5256) - JUV(1822) = JVS(7497)*UV(1131)+JVS(7498)*UV(1822)+JVS(7499)*UV(2078)+JVS(7500)*UV(3790)+JVS(7502)*UV(5252)+JVS(7504)& - &*UV(5256) - JUV(1823) = JVS(7505)*UV(1823)+JVS(7506)*UV(4900)+JVS(7507)*UV(5250)+JVS(7508)*UV(5252) - JUV(1824) = JVS(7509)*UV(1824)+JVS(7510)*UV(5107)+JVS(7511)*UV(5250)+JVS(7512)*UV(5252) - JUV(1825) = JVS(7513)*UV(1825)+JVS(7514)*UV(3708)+JVS(7515)*UV(5197)+JVS(7516)*UV(5252)+JVS(7517)*UV(5256) - JUV(1826) = JVS(7518)*UV(1557)+JVS(7519)*UV(1826)+JVS(7520)*UV(3528)+JVS(7521)*UV(4967)+JVS(7522)*UV(5250) - JUV(1827) = JVS(7523)*UV(1827)+JVS(7524)*UV(4582)+JVS(7525)*UV(4879)+JVS(7526)*UV(5250)+JVS(7527)*UV(5252) - JUV(1828) = JVS(7528)*UV(1619)+JVS(7529)*UV(1828)+JVS(7530)*UV(2737)+JVS(7531)*UV(4542)+JVS(7532)*UV(5250) - JUV(1829) = JVS(7533)*UV(1829)+JVS(7534)*UV(4251)+JVS(7535)*UV(5250)+JVS(7536)*UV(5252) - JUV(1830) = JVS(7537)*UV(1830)+JVS(7538)*UV(4381)+JVS(7539)*UV(5250)+JVS(7540)*UV(5255) - JUV(1831) = JVS(7541)*UV(1831)+JVS(7542)*UV(4586)+JVS(7543)*UV(5250)+JVS(7544)*UV(5252) - JUV(1832) = JVS(7545)*UV(1690)+JVS(7546)*UV(1832)+JVS(7547)*UV(3078)+JVS(7548)*UV(4584)+JVS(7549)*UV(5250) - JUV(1833) = JVS(7550)*UV(713)+JVS(7551)*UV(1833)+JVS(7552)*UV(3366)+JVS(7554)*UV(5011)+JVS(7556)*UV(5252)+JVS(7557)& - &*UV(5256) - JUV(1834) = JVS(7558)*UV(1611)+JVS(7559)*UV(1834)+JVS(7560)*UV(2469)+JVS(7561)*UV(4754)+JVS(7562)*UV(5250) - JUV(1835) = JVS(7563)*UV(1835)+JVS(7564)*UV(3850)+JVS(7565)*UV(5250)+JVS(7566)*UV(5252) - JUV(1836) = JVS(7567)*UV(1836)+JVS(7568)*UV(4483)+JVS(7569)*UV(5250)+JVS(7570)*UV(5255) - JUV(1837) = JVS(7571)*UV(1837)+JVS(7572)*UV(4835)+JVS(7573)*UV(5250)+JVS(7574)*UV(5255) - JUV(1838) = JVS(7575)*UV(1340)+JVS(7576)*UV(1838)+JVS(7577)*UV(2555)+JVS(7578)*UV(3989)+JVS(7580)*UV(5252)+JVS(7582)& - &*UV(5256) - JUV(1839) = JVS(7583)*UV(1839)+JVS(7584)*UV(4369)+JVS(7585)*UV(5250)+JVS(7586)*UV(5255) - JUV(1840) = JVS(7587)*UV(1840)+JVS(7588)*UV(4069)+JVS(7589)*UV(5250)+JVS(7590)*UV(5255) - JUV(1841) = JVS(7591)*UV(1841)+JVS(7592)*UV(4581)+JVS(7593)*UV(5250)+JVS(7594)*UV(5252) - JUV(1842) = JVS(7595)*UV(1842)+JVS(7596)*UV(5116)+JVS(7597)*UV(5250)+JVS(7598)*UV(5255) - JUV(1843) = JVS(7599)*UV(281)+JVS(7600)*UV(1843)+JVS(7601)*UV(2439)+JVS(7602)*UV(4762)+JVS(7603)*UV(5250) - JUV(1844) = JVS(7604)*UV(1844)+JVS(7605)*UV(3943)+JVS(7606)*UV(5250)+JVS(7607)*UV(5255) - JUV(1845) = JVS(7608)*UV(1845)+JVS(7609)*UV(4379)+JVS(7610)*UV(5250)+JVS(7611)*UV(5256) - JUV(1846) = JVS(7612)*UV(1846)+JVS(7613)*UV(4087)+JVS(7614)*UV(5250)+JVS(7615)*UV(5252) - JUV(1847) = JVS(7616)*UV(1445)+JVS(7617)*UV(1846)+JVS(7618)*UV(1847)+JVS(7619)*UV(4087)+JVS(7621)*UV(5252)+JVS(7623)& - &*UV(5256) - JUV(1848) = JVS(7624)*UV(1848)+JVS(7625)*UV(3449)+JVS(7626)*UV(4339)+JVS(7627)*UV(5252)+JVS(7628)*UV(5256) - JUV(1849) = JVS(7629)*UV(1849)+JVS(7630)*UV(4171)+JVS(7631)*UV(5250)+JVS(7632)*UV(5255) - JUV(1850) = JVS(7633)*UV(1850)+JVS(7634)*UV(3677)+JVS(7635)*UV(5250)+JVS(7636)*UV(5255) - JUV(1851) = JVS(7637)*UV(1851)+JVS(7638)*UV(4414)+JVS(7639)*UV(5250)+JVS(7640)*UV(5255) - JUV(1852) = JVS(7641)*UV(209)+JVS(7642)*UV(1214)+JVS(7643)*UV(1852)+JVS(7644)*UV(2701)+JVS(7645)*UV(4580)+JVS(7646)& - &*UV(5250)+JVS(7647)*UV(5252)+JVS(7649)*UV(5256) - JUV(1853) = JVS(7650)*UV(1853)+JVS(7651)*UV(4923)+JVS(7652)*UV(5250) - JUV(1854) = JVS(7653)*UV(1854)+JVS(7654)*UV(4550)+JVS(7655)*UV(5250)+JVS(7656)*UV(5255) - JUV(1855) = JVS(7657)*UV(1855)+JVS(7658)*UV(4974)+JVS(7659)*UV(5250)+JVS(7660)*UV(5255) - JUV(1856) = JVS(7661)*UV(1856)+JVS(7662)*UV(5150)+JVS(7663)*UV(5250)+JVS(7664)*UV(5252) - JUV(1857) = JVS(7665)*UV(1857)+JVS(7666)*UV(4905)+JVS(7667)*UV(5250) - JUV(1858) = JVS(7668)*UV(1718)+JVS(7669)*UV(1858)+JVS(7670)*UV(2727)+JVS(7671)*UV(4144)+JVS(7672)*UV(5250) - JUV(1859) = JVS(7673)*UV(1859)+JVS(7674)*UV(4351)+JVS(7675)*UV(5250)+JVS(7676)*UV(5255) - JUV(1860) = JVS(7677)*UV(1542)+JVS(7678)*UV(1860)+JVS(7679)*UV(1881)+JVS(7680)*UV(3521)+JVS(7682)*UV(5252)+JVS(7684)& - &*UV(5256) - JUV(1861) = JVS(7685)*UV(1861)+JVS(7686)*UV(3696)+JVS(7687)*UV(5250)+JVS(7688)*UV(5255) - JUV(1862) = JVS(7689)*UV(1862)+JVS(7690)*UV(3844)+JVS(7691)*UV(5250)+JVS(7692)*UV(5255) - JUV(1863) = JVS(7693)*UV(1863)+JVS(7694)*UV(4761)+JVS(7695)*UV(5250)+JVS(7696)*UV(5255) - JUV(1864) = JVS(7697)*UV(1864)+JVS(7698)*UV(4219)+JVS(7699)*UV(5250)+JVS(7700)*UV(5252) - JUV(1865) = JVS(7701)*UV(1449)+JVS(7702)*UV(1864)+JVS(7703)*UV(1865)+JVS(7704)*UV(4219)+JVS(7706)*UV(5252)+JVS(7708)& - &*UV(5256) - JUV(1866) = JVS(7709)*UV(1866)+JVS(7710)*UV(3462)+JVS(7711)*UV(4783)+JVS(7712)*UV(5252)+JVS(7713)*UV(5256) - JUV(1867) = JVS(7714)*UV(1305)+JVS(7715)*UV(1867)+JVS(7716)*UV(2817)+JVS(7717)*UV(4609)+JVS(7719)*UV(5252)+JVS(7721)& - &*UV(5256) - JUV(1868) = JVS(7722)*UV(1868)+JVS(7723)*UV(4176)+JVS(7724)*UV(5250)+JVS(7725)*UV(5255) - JUV(1869) = JVS(7726)*UV(1869)+JVS(7727)*UV(4368)+JVS(7728)*UV(5250)+JVS(7729)*UV(5255) - JUV(1870) = JVS(7730)*UV(321)+JVS(7731)*UV(1869)+JVS(7732)*UV(1870)+JVS(7733)*UV(2405)+JVS(7734)*UV(4368)+JVS(7735)& - &*UV(4595)+JVS(7736)*UV(5250)+JVS(7737)*UV(5255) - JUV(1871) = JVS(7738)*UV(1871)+JVS(7739)*UV(4147)+JVS(7740)*UV(5250)+JVS(7741)*UV(5255) - JUV(1872) = JVS(7742)*UV(1872)+JVS(7743)*UV(2805)+JVS(7744)*UV(4353)+JVS(7745)*UV(5252)+JVS(7746)*UV(5256) - JUV(1873) = JVS(7747)*UV(1873)+JVS(7748)*UV(4897)+JVS(7749)*UV(5250)+JVS(7750)*UV(5255) - JUV(1874) = JVS(7751)*UV(1874)+JVS(7752)*UV(4657)+JVS(7753)*UV(5250)+JVS(7754)*UV(5255) - JUV(1875) = JVS(7755)*UV(1875)+JVS(7756)*UV(4572)+JVS(7757)*UV(5250) - JUV(1876) = JVS(7758)*UV(1876)+JVS(7759)*UV(4784)+JVS(7760)*UV(5250)+JVS(7761)*UV(5255) - JUV(1877) = JVS(7762)*UV(1877)+JVS(7763)*UV(3289)+JVS(7764)*UV(4598)+JVS(7765)*UV(5252)+JVS(7766)*UV(5256) - JUV(1878) = JVS(7767)*UV(1878)+JVS(7768)*UV(3439)+JVS(7769)*UV(3440)+JVS(7770)*UV(5250) - JUV(1879) = JVS(7771)*UV(1879)+JVS(7772)*UV(4620)+JVS(7773)*UV(5250)+JVS(7774)*UV(5255) - JUV(1880) = JVS(7775)*UV(1880)+JVS(7776)*UV(3884)+JVS(7777)*UV(5250)+JVS(7778)*UV(5255) - JUV(1881) = JVS(7779)*UV(1881)+JVS(7780)*UV(3521)+JVS(7781)*UV(5250)+JVS(7782)*UV(5252) - JUV(1882) = JVS(7783)*UV(1882)+JVS(7784)*UV(3256)+JVS(7785)*UV(4554)+JVS(7786)*UV(5252)+JVS(7787)*UV(5256) - JUV(1883) = JVS(7788)*UV(1883)+JVS(7789)*UV(3743)+JVS(7790)*UV(5250)+JVS(7791)*UV(5252) - JUV(1884) = JVS(7792)*UV(1884)+JVS(7793)*UV(4348)+JVS(7794)*UV(5250)+JVS(7795)*UV(5255) - JUV(1885) = JVS(7796)*UV(1885)+JVS(7797)*UV(5147)+JVS(7798)*UV(5250)+JVS(7799)*UV(5255) - JUV(1886) = JVS(7800)*UV(1886)+JVS(7801)*UV(4645)+JVS(7802)*UV(5250)+JVS(7803)*UV(5255) - JUV(1887) = JVS(7804)*UV(1887)+JVS(7805)*UV(4242)+JVS(7806)*UV(5250)+JVS(7807)*UV(5255) - JUV(1888) = JVS(7808)*UV(1888)+JVS(7809)*UV(4268)+JVS(7810)*UV(5250)+JVS(7811)*UV(5255) - JUV(1889) = JVS(7812)*UV(1889)+JVS(7813)*UV(3952)+JVS(7814)*UV(5250)+JVS(7815)*UV(5252) - JUV(1890) = JVS(7816)*UV(1890)+JVS(7817)*UV(4226)+JVS(7818)*UV(5250)+JVS(7819)*UV(5255) - JUV(1891) = JVS(7820)*UV(1891)+JVS(7821)*UV(3618)+JVS(7822)*UV(4982)+JVS(7823)*UV(5252)+JVS(7824)*UV(5256) - JUV(1892) = JVS(7825)*UV(1892)+JVS(7826)*UV(3217)+JVS(7827)*UV(4123)+JVS(7828)*UV(5252)+JVS(7829)*UV(5256) - JUV(1893) = JVS(7830)*UV(1893)+JVS(7831)*UV(2868)+JVS(7832)*UV(4926)+JVS(7833)*UV(5250)+JVS(7834)*UV(5255) - JUV(1894) = JVS(7835)*UV(1894)+JVS(7836)*UV(4364)+JVS(7837)*UV(4596)+JVS(7838)*UV(5250)+JVS(7839)*UV(5252) - JUV(1895) = JVS(7840)*UV(1895)+JVS(7841)*UV(5246)+JVS(7842)*UV(5250)+JVS(7843)*UV(5252) - JUV(1896) = JVS(7844)*UV(1896)+JVS(7845)*UV(3798)+JVS(7846)*UV(5250)+JVS(7847)*UV(5252) - JUV(1897) = JVS(7848)*UV(1897)+JVS(7849)*UV(4161)+JVS(7850)*UV(5250)+JVS(7851)*UV(5255) - JUV(1898) = JVS(7852)*UV(1898)+JVS(7853)*UV(3727)+JVS(7854)*UV(5250)+JVS(7855)*UV(5255) - JUV(1899) = JVS(7856)*UV(1899)+JVS(7857)*UV(5121)+JVS(7858)*UV(5250)+JVS(7859)*UV(5255) - JUV(1900) = JVS(7860)*UV(1900)+JVS(7861)*UV(5122)+JVS(7862)*UV(5250)+JVS(7863)*UV(5255) - JUV(1901) = JVS(7864)*UV(1901)+JVS(7865)*UV(4768)+JVS(7866)*UV(5250)+JVS(7867)*UV(5255) - JUV(1902) = JVS(7868)*UV(1902)+JVS(7869)*UV(3758)+JVS(7870)*UV(5250)+JVS(7871)*UV(5252) - JUV(1903) = JVS(7872)*UV(1385)+JVS(7873)*UV(1903)+JVS(7874)*UV(2232)+JVS(7875)*UV(3492)+JVS(7877)*UV(5252)+JVS(7879)& - &*UV(5256) - JUV(1904) = JVS(7880)*UV(1904)+JVS(7881)*UV(4784)+JVS(7882)*UV(5250)+JVS(7883)*UV(5252) - JUV(1905) = JVS(7884)*UV(1905)+JVS(7885)*UV(3994)+JVS(7886)*UV(5250)+JVS(7887)*UV(5252) - JUV(1906) = JVS(7888)*UV(1108)+JVS(7889)*UV(1906)+JVS(7890)*UV(2198)+JVS(7891)*UV(4310)+JVS(7893)*UV(5252)+JVS(7895)& - &*UV(5256) - JUV(1907) = JVS(7896)*UV(1907)+JVS(7897)*UV(4058)+JVS(7898)*UV(5250)+JVS(7899)*UV(5255) - JUV(1908) = JVS(7900)*UV(1908)+JVS(7901)*UV(4566)+JVS(7902)*UV(5250)+JVS(7903)*UV(5255) - JUV(1909) = JVS(7904)*UV(1909)+JVS(7905)*UV(3496)+JVS(7906)*UV(5250)+JVS(7907)*UV(5252) - JUV(1910) = JVS(7908)*UV(1102)+JVS(7909)*UV(1909)+JVS(7910)*UV(1910)+JVS(7911)*UV(3496)+JVS(7913)*UV(5252)+JVS(7915)& - &*UV(5256) - JUV(1911) = JVS(7916)*UV(1911)+JVS(7917)*UV(3867)+JVS(7918)*UV(5250)+JVS(7919)*UV(5255) - JUV(1912) = JVS(7920)*UV(1912)+JVS(7921)*UV(3848)+JVS(7922)*UV(5250)+JVS(7923)*UV(5252) - JUV(1913) = JVS(7924)*UV(371)+JVS(7925)*UV(1900)+JVS(7926)*UV(1913)+JVS(7927)*UV(5122)+JVS(7928)*UV(5250) - JUV(1914) = JVS(7930)*UV(1914)+JVS(7931)*UV(4870)+JVS(7932)*UV(5250)+JVS(7933)*UV(5255) - JUV(1915) = JVS(7934)*UV(1915)+JVS(7935)*UV(3867)+JVS(7936)*UV(3940)+JVS(7937)*UV(5250)+JVS(7938)*UV(5252) - JUV(1916) = JVS(7939)*UV(1916)+JVS(7940)*UV(4724)+JVS(7941)*UV(5250) - JUV(1917) = JVS(7942)*UV(1917)+JVS(7943)*UV(4589)+JVS(7944)*UV(5250)+JVS(7945)*UV(5255) - JUV(1918) = JVS(7946)*UV(1918)+JVS(7947)*UV(3883)+JVS(7948)*UV(5250)+JVS(7949)*UV(5252) - JUV(1919) = JVS(7950)*UV(1919)+JVS(7951)*UV(4766)+JVS(7952)*UV(5250)+JVS(7953)*UV(5252) - JUV(1920) = JVS(7954)*UV(1920)+JVS(7955)*UV(4673)+JVS(7956)*UV(5250)+JVS(7957)*UV(5255) - JUV(1921) = JVS(7958)*UV(1921)+JVS(7959)*UV(5208)+JVS(7960)*UV(5250)+JVS(7961)*UV(5252) - JUV(1922) = JVS(7962)*UV(1922)+JVS(7963)*UV(3637)+JVS(7964)*UV(5250)+JVS(7965)*UV(5252) - JUV(1923) = JVS(7966)*UV(1239)+JVS(7967)*UV(1922)+JVS(7968)*UV(1923)+JVS(7969)*UV(3637)+JVS(7971)*UV(5252)+JVS(7973)& - &*UV(5256) - JUV(1924) = JVS(7974)*UV(1924)+JVS(7975)*UV(3444)+JVS(7976)*UV(4647)+JVS(7977)*UV(5252)+JVS(7978)*UV(5256) - JUV(1925) = JVS(7979)*UV(1925)+JVS(7980)*UV(3006)+JVS(7981)*UV(3436)+JVS(7982)*UV(5250) - JUV(1926) = JVS(7983)*UV(1926)+JVS(7984)*UV(4343)+JVS(7985)*UV(5250)+JVS(7986)*UV(5255) - JUV(1927) = JVS(7987)*UV(1927)+JVS(7988)*UV(3308)+JVS(7989)*UV(4582)+JVS(7990)*UV(5252)+JVS(7991)*UV(5256) - JUV(1928) = JVS(7992)*UV(1928)+JVS(7993)*UV(4199)+JVS(7994)*UV(5250) - JUV(1929) = JVS(7995)*UV(1929)+JVS(7996)*UV(3410)+JVS(7997)*UV(3447)+JVS(7998)*UV(3591)+JVS(7999)*UV(5250) - JUV(1930) = JVS(8000)*UV(1930)+JVS(8001)*UV(3902)+JVS(8002)*UV(5250)+JVS(8003)*UV(5252) - JUV(1931) = JVS(8004)*UV(1295)+JVS(8005)*UV(1930)+JVS(8006)*UV(1931)+JVS(8007)*UV(3902)+JVS(8009)*UV(5252)+JVS(8011)& - &*UV(5256) - JUV(1932) = JVS(8012)*UV(1932)+JVS(8013)*UV(4340)+JVS(8014)*UV(5250)+JVS(8015)*UV(5255) - JUV(1933) = JVS(8016)*UV(1933)+JVS(8017)*UV(4789)+JVS(8018)*UV(5250)+JVS(8019)*UV(5252) - JUV(1934) = JVS(8020)*UV(1934)+JVS(8021)*UV(5019)+JVS(8022)*UV(5250) - JUV(1935) = JVS(8023)*UV(1935)+JVS(8024)*UV(4158)+JVS(8025)*UV(5250)+JVS(8026)*UV(5255) - JUV(1936) = JVS(8027)*UV(1936)+JVS(8028)*UV(4326)+JVS(8029)*UV(5250)+JVS(8030)*UV(5256) - JUV(1937) = JVS(8031)*UV(1937)+JVS(8032)*UV(3912)+JVS(8033)*UV(5250)+JVS(8034)*UV(5255) - JUV(1938) = JVS(8035)*UV(1938)+JVS(8036)*UV(4885)+JVS(8037)*UV(5250)+JVS(8038)*UV(5255) - JUV(1939) = JVS(8039)*UV(1939)+JVS(8040)*UV(4658)+JVS(8041)*UV(5250)+JVS(8042)*UV(5253) - JUV(1940) = JVS(8043)*UV(1940)+JVS(8044)*UV(4702)+JVS(8045)*UV(5250)+JVS(8046)*UV(5255) - JUV(1941) = JVS(8047)*UV(1941)+JVS(8048)*UV(4019)+JVS(8049)*UV(5250)+JVS(8050)*UV(5252) - JUV(1942) = JVS(8051)*UV(948)+JVS(8052)*UV(1941)+JVS(8053)*UV(1942)+JVS(8054)*UV(4019)+JVS(8056)*UV(5252)+JVS(8058)& - &*UV(5256) - JUV(1943) = JVS(8059)*UV(1943)+JVS(8060)*UV(4163)+JVS(8061)*UV(5250)+JVS(8062)*UV(5255) - JUV(1944) = JVS(8063)*UV(1944)+JVS(8064)*UV(3299)+JVS(8065)*UV(5129)+JVS(8066)*UV(5252)+JVS(8067)*UV(5256) - JUV(1945) = JVS(8068)*UV(1375)+JVS(8069)*UV(1945)+JVS(8070)*UV(2917)+JVS(8071)*UV(5108)+JVS(8073)*UV(5252)+JVS(8075)& - &*UV(5256) - JUV(1946) = JVS(8076)*UV(1946)+JVS(8077)*UV(5062)+JVS(8078)*UV(5250)+JVS(8079)*UV(5252) - JUV(1947) = JVS(8080)*UV(1947)+JVS(8081)*UV(4284)+JVS(8082)*UV(5250)+JVS(8083)*UV(5255) - JUV(1948) = JVS(8084)*UV(1948)+JVS(8085)*UV(4473)+JVS(8086)*UV(5250)+JVS(8087)*UV(5255) - JUV(1949) = JVS(8088)*UV(1949)+JVS(8089)*UV(4688)+JVS(8090)*UV(5250)+JVS(8091)*UV(5255) - JUV(1950) = JVS(8092)*UV(1950)+JVS(8093)*UV(5028)+JVS(8094)*UV(5250)+JVS(8095)*UV(5255) - JUV(1951) = JVS(8096)*UV(1951)+JVS(8097)*UV(2601)+JVS(8098)*UV(4675)+JVS(8099)*UV(5252)+JVS(8100)*UV(5256) - JUV(1952) = JVS(8101)*UV(1952)+JVS(8102)*UV(4610)+JVS(8103)*UV(5250)+JVS(8104)*UV(5252) - JUV(1953) = JVS(8105)*UV(340)+JVS(8106)*UV(1953)+JVS(8107)*UV(2920)+JVS(8108)*UV(3315)+JVS(8109)*UV(4857)+JVS(8110)& - &*UV(5250) - JUV(1954) = JVS(8111)*UV(1954)+JVS(8112)*UV(4583)+JVS(8113)*UV(5250)+JVS(8114)*UV(5252) - JUV(1955) = JVS(8115)*UV(1955)+JVS(8116)*UV(3201)+JVS(8117)*UV(4711)+JVS(8118)*UV(5252)+JVS(8119)*UV(5256) - JUV(1956) = JVS(8120)*UV(1956)+JVS(8121)*UV(4687)+JVS(8122)*UV(5250)+JVS(8123)*UV(5255) - JUV(1957) = JVS(8124)*UV(1957)+JVS(8125)*UV(4143)+JVS(8126)*UV(4959)+JVS(8127)*UV(5250)+JVS(8128)*UV(5252) - JUV(1958) = JVS(8129)*UV(1958)+JVS(8130)*UV(4131)+JVS(8131)*UV(5250)+JVS(8132)*UV(5255) - JUV(1959) = JVS(8133)*UV(1959)+JVS(8134)*UV(5153)+JVS(8135)*UV(5258) - JUV(1960) = JVS(8136)*UV(1960)+JVS(8137)*UV(3453)+JVS(8138)*UV(4877)+JVS(8139)*UV(5252)+JVS(8140)*UV(5256) - JUV(1961) = JVS(8141)*UV(927)+JVS(8142)*UV(1961)+JVS(8143)*UV(2908)+JVS(8144)*UV(3890)+JVS(8146)*UV(5252)+JVS(8148)& - &*UV(5256) - JUV(1962) = JVS(8149)*UV(133)+JVS(8150)*UV(980)+JVS(8151)*UV(1962)+JVS(8152)*UV(2839)+JVS(8153)*UV(4121)+JVS(8154)& - &*UV(5250)+JVS(8155)*UV(5252)+JVS(8157)*UV(5256) - JUV(1963) = JVS(8158)*UV(1963)+JVS(8159)*UV(4573)+JVS(8160)*UV(5250)+JVS(8161)*UV(5252) - JUV(1964) = JVS(8162)*UV(1964)+JVS(8163)*UV(3811)+JVS(8164)*UV(5250)+JVS(8165)*UV(5252) - JUV(1965) = JVS(8166)*UV(1965)+JVS(8167)*UV(5192)+JVS(8168)*UV(5250)+JVS(8169)*UV(5252) - JUV(1966) = JVS(8170)*UV(1966)+JVS(8171)*UV(4733)+JVS(8172)*UV(5250)+JVS(8173)*UV(5255) - JUV(1967) = JVS(8174)*UV(1967)+JVS(8175)*UV(3273)+JVS(8176)*UV(3801)+JVS(8177)*UV(5252)+JVS(8178)*UV(5256) - JUV(1968) = JVS(8179)*UV(1968)+JVS(8180)*UV(4311)+JVS(8181)*UV(5250)+JVS(8182)*UV(5255) - JUV(1969) = JVS(8183)*UV(1969)+JVS(8184)*UV(4516)+JVS(8185)*UV(5250)+JVS(8186)*UV(5255) - JUV(1970) = JVS(8187)*UV(1970)+JVS(8188)*UV(4739)+JVS(8189)*UV(5250)+JVS(8190)*UV(5255) - JUV(1971) = JVS(8191)*UV(1352)+JVS(8192)*UV(1971)+JVS(8193)*UV(3102)+JVS(8194)*UV(3670)+JVS(8196)*UV(5252)+JVS(8198)& - &*UV(5256) - JUV(1972) = JVS(8199)*UV(1972)+JVS(8200)*UV(3698)+JVS(8201)*UV(5250)+JVS(8202)*UV(5252) - JUV(1973) = JVS(8203)*UV(1973)+JVS(8204)*UV(3927)+JVS(8205)*UV(5250)+JVS(8206)*UV(5255) - JUV(1974) = JVS(8207)*UV(1974)+JVS(8208)*UV(5229)+JVS(8209)*UV(5250)+JVS(8210)*UV(5252) - JUV(1975) = JVS(8211)*UV(104)+JVS(8212)*UV(912)+JVS(8213)*UV(1975)+JVS(8214)*UV(2888)+JVS(8215)*UV(4090)+JVS(8216)& - &*UV(5250)+JVS(8217)*UV(5252)+JVS(8219)*UV(5256) - JUV(1976) = JVS(8220)*UV(1976)+JVS(8221)*UV(4140)+JVS(8222)*UV(4473)+JVS(8223)*UV(5250)+JVS(8224)*UV(5252) - JUV(1977) = JVS(8225)*UV(1977)+JVS(8226)*UV(4562)+JVS(8227)*UV(4881)+JVS(8228)*UV(5250)+JVS(8229)*UV(5252) - JUV(1978) = JVS(8230)*UV(1978)+JVS(8231)*UV(5120)+JVS(8232)*UV(5250)+JVS(8233)*UV(5252) - JUV(1979) = JVS(8234)*UV(1979)+JVS(8235)*UV(3679)+JVS(8236)*UV(5250)+JVS(8237)*UV(5255) - JUV(1980) = JVS(8238)*UV(1980)+JVS(8239)*UV(4880)+JVS(8240)*UV(5250)+JVS(8241)*UV(5252) - JUV(1981) = JVS(8242)*UV(1981)+JVS(8243)*UV(4945)+JVS(8244)*UV(5250) - JUV(1982) = JVS(8245)*UV(1982)+JVS(8246)*UV(4102)+JVS(8247)*UV(5250)+JVS(8248)*UV(5255) - JUV(1983) = JVS(8249)*UV(1983)+JVS(8250)*UV(3444)+JVS(8251)*UV(4841)+JVS(8252)*UV(5250)+JVS(8253)*UV(5255) - JUV(1984) = JVS(8254)*UV(526)+JVS(8255)*UV(1496)+JVS(8256)*UV(1984)+JVS(8257)*UV(2812)+JVS(8258)*UV(4189)+JVS(8259)& - &*UV(5250)+JVS(8260)*UV(5252)+JVS(8262)*UV(5256) - JUV(1985) = JVS(8263)*UV(1985)+JVS(8264)*UV(3838)+JVS(8265)*UV(5250)+JVS(8266)*UV(5255) - JUV(1986) = JVS(8267)*UV(955)+JVS(8268)*UV(1986)+JVS(8269)*UV(2673)+JVS(8270)*UV(4172)+JVS(8272)*UV(5252)+JVS(8274)& - &*UV(5256) - JUV(1987) = JVS(8275)*UV(1987)+JVS(8276)*UV(4942)+JVS(8277)*UV(5250)+JVS(8278)*UV(5252) - JUV(1988) = JVS(8279)*UV(1988)+JVS(8280)*UV(4887)+JVS(8281)*UV(5250) - JUV(1989) = JVS(8282)*UV(520)+JVS(8283)*UV(1263)+JVS(8284)*UV(1989)+JVS(8285)*UV(3447)+JVS(8286)*UV(4157)+JVS(8287)& - &*UV(5250)+JVS(8288)*UV(5252)+JVS(8290)*UV(5256) - JUV(1990) = JVS(8291)*UV(1990)+JVS(8292)*UV(3969)+JVS(8293)*UV(5250)+JVS(8294)*UV(5255) - JUV(1991) = JVS(8295)*UV(1991)+JVS(8296)*UV(4066)+JVS(8297)*UV(5250) - JUV(1992) = JVS(8298)*UV(1992)+JVS(8299)*UV(3667)+JVS(8300)*UV(5250)+JVS(8301)*UV(5255) - JUV(1993) = JVS(8302)*UV(1993)+JVS(8303)*UV(4541)+JVS(8304)*UV(5250)+JVS(8305)*UV(5255) - JUV(1994) = JVS(8306)*UV(1994)+JVS(8307)*UV(5148)+JVS(8308)*UV(5250)+JVS(8309)*UV(5255) - JUV(1995) = JVS(8310)*UV(1995)+JVS(8311)*UV(3927)+JVS(8312)*UV(3969)+JVS(8313)*UV(5250)+JVS(8314)*UV(5252) - JUV(1996) = JVS(8315)*UV(1996)+JVS(8316)*UV(5084)+JVS(8317)*UV(5250)+JVS(8318)*UV(5252) - JUV(1997) = JVS(8319)*UV(1997)+JVS(8320)*UV(4405)+JVS(8321)*UV(5250)+JVS(8322)*UV(5255) - JUV(1998) = JVS(8323)*UV(1478)+JVS(8324)*UV(1998)+JVS(8325)*UV(3015)+JVS(8326)*UV(4360)+JVS(8328)*UV(5252)+JVS(8330)& - &*UV(5256) - JUV(1999) = JVS(8331)*UV(1999)+JVS(8332)*UV(4804)+JVS(8333)*UV(5250)+JVS(8334)*UV(5255) - JUV(2000) = JVS(8335)*UV(1562)+JVS(8336)*UV(1938)+JVS(8337)*UV(2000)+JVS(8339)*UV(4885)+JVS(8341)*UV(5252)+JVS(8343)& - &*UV(5256) - JUV(2001) = JVS(8344)*UV(2001)+JVS(8345)*UV(4161)+JVS(8346)*UV(4561)+JVS(8347)*UV(5250) - JUV(2002) = JVS(8348)*UV(2002)+JVS(8349)*UV(5198)+JVS(8350)*UV(5250)+JVS(8351)*UV(5255) - JUV(2003) = JVS(8352)*UV(2003)+JVS(8353)*UV(4519)+JVS(8354)*UV(5250)+JVS(8355)*UV(5253) - JUV(2004) = JVS(8356)*UV(2004)+JVS(8357)*UV(3330)+JVS(8358)*UV(4936)+JVS(8359)*UV(5252)+JVS(8360)*UV(5256) - JUV(2005) = JVS(8361)*UV(2005)+JVS(8362)*UV(3205)+JVS(8363)*UV(4359)+JVS(8364)*UV(5252)+JVS(8365)*UV(5256) - JUV(2006) = JVS(8366)*UV(2006)+JVS(8367)*UV(4562)+JVS(8368)*UV(5250)+JVS(8369)*UV(5255) - JUV(2007) = JVS(8370)*UV(2007)+JVS(8371)*UV(3950)+JVS(8372)*UV(5250)+JVS(8373)*UV(5252) - JUV(2008) = JVS(8374)*UV(2008)+JVS(8375)*UV(2373)+JVS(8376)*UV(4249)+JVS(8377)*UV(5252)+JVS(8378)*UV(5256) - JUV(2009) = JVS(8379)*UV(2009)+JVS(8380)*UV(4354)+JVS(8381)*UV(5250)+JVS(8382)*UV(5255) - JUV(2010) = JVS(8383)*UV(2010)+JVS(8384)*UV(4364)+JVS(8385)*UV(5250)+JVS(8386)*UV(5255) - JUV(2011) = JVS(8387)*UV(2011)+JVS(8388)*UV(4587)+JVS(8389)*UV(5135)+JVS(8390)*UV(5250)+JVS(8391)*UV(5252) - JUV(2012) = JVS(8392)*UV(2012)+JVS(8393)*UV(3208)+JVS(8394)*UV(5149)+JVS(8395)*UV(5252)+JVS(8396)*UV(5256) - JUV(2013) = JVS(8397)*UV(2013)+JVS(8398)*UV(5051)+JVS(8399)*UV(5258) - JUV(2014) = JVS(8400)*UV(2014)+JVS(8401)*UV(3523)+JVS(8402)*UV(5250)+JVS(8403)*UV(5252) - JUV(2015) = JVS(8404)*UV(1287)+JVS(8405)*UV(2014)+JVS(8406)*UV(2015)+JVS(8407)*UV(3523)+JVS(8409)*UV(5252)+JVS(8411)& - &*UV(5256) - JUV(2016) = JVS(8412)*UV(2016)+JVS(8413)*UV(3941)+JVS(8414)*UV(5250)+JVS(8415)*UV(5255) - JUV(2017) = JVS(8416)*UV(2017)+JVS(8417)*UV(4150)+JVS(8418)*UV(5250)+JVS(8419)*UV(5255) - JUV(2018) = JVS(8420)*UV(2018)+JVS(8421)*UV(4418)+JVS(8422)*UV(5250)+JVS(8423)*UV(5255) - JUV(2019) = JVS(8424)*UV(2019)+JVS(8425)*UV(4886)+JVS(8426)*UV(5250)+JVS(8427)*UV(5255) - JUV(2020) = JVS(8428)*UV(2020)+JVS(8429)*UV(5181)+JVS(8430)*UV(5250)+JVS(8431)*UV(5252) - JUV(2021) = JVS(8432)*UV(1896)+JVS(8433)*UV(2021)+JVS(8434)*UV(3798)+JVS(8435)*UV(5250) - JUV(2022) = JVS(8437)*UV(2022)+JVS(8438)*UV(4135)+JVS(8439)*UV(5250)+JVS(8440)*UV(5255) - JUV(2023) = JVS(8441)*UV(2023)+JVS(8442)*UV(3936)+JVS(8443)*UV(3943)+JVS(8444)*UV(5250)+JVS(8445)*UV(5252) - JUV(2024) = JVS(8446)*UV(2024)+JVS(8447)*UV(3274)+JVS(8448)*UV(4384)+JVS(8449)*UV(5252)+JVS(8450)*UV(5256) - JUV(2025) = JVS(8451)*UV(2025)+JVS(8452)*UV(4689)+JVS(8453)*UV(5250)+JVS(8454)*UV(5255) - JUV(2026) = JVS(8455)*UV(2026)+JVS(8456)*UV(4744)+JVS(8457)*UV(5250)+JVS(8458)*UV(5255) - JUV(2027) = JVS(8459)*UV(2027)+JVS(8460)*UV(3881)+JVS(8461)*UV(5250)+JVS(8462)*UV(5255) - JUV(2028) = JVS(8463)*UV(1621)+JVS(8464)*UV(2028)+JVS(8465)*UV(4804)+JVS(8466)*UV(5250) - JUV(2029) = JVS(8467)*UV(2029)+JVS(8468)*UV(3623)+JVS(8469)*UV(4780)+JVS(8470)*UV(5252)+JVS(8471)*UV(5256) - JUV(2030) = JVS(8472)*UV(836)+JVS(8473)*UV(2030)+JVS(8474)*UV(2189)+JVS(8475)*UV(3718)+JVS(8477)*UV(5252)+JVS(8479)& - &*UV(5256) - JUV(2031) = JVS(8480)*UV(1387)+JVS(8481)*UV(2031)+JVS(8482)*UV(2387)+JVS(8483)*UV(3691)+JVS(8485)*UV(5252)+JVS(8487)& - &*UV(5256) - JUV(2032) = JVS(8488)*UV(2032)+JVS(8489)*UV(3715)+JVS(8490)*UV(5250)+JVS(8491)*UV(5252) - JUV(2033) = JVS(8492)*UV(772)+JVS(8493)*UV(1264)+JVS(8494)*UV(2032)+JVS(8495)*UV(2033)+JVS(8496)*UV(3715)+JVS(8498)& - &*UV(5252)+JVS(8500)*UV(5256) - JUV(2034) = JVS(8501)*UV(2034)+JVS(8502)*UV(3668)+JVS(8503)*UV(5250)+JVS(8504)*UV(5252) - JUV(2035) = JVS(8505)*UV(767)+JVS(8506)*UV(1225)+JVS(8507)*UV(2034)+JVS(8508)*UV(2035)+JVS(8509)*UV(3668)+JVS(8511)& - &*UV(5252)+JVS(8513)*UV(5256) - JUV(2036) = JVS(8514)*UV(2036)+JVS(8515)*UV(4433)+JVS(8516)*UV(5250)+JVS(8517)*UV(5255) - JUV(2037) = JVS(8518)*UV(2037)+JVS(8519)*UV(4112)+JVS(8520)*UV(5129)+JVS(8521)*UV(5250)+JVS(8522)*UV(5252) - JUV(2038) = JVS(8523)*UV(2038)+JVS(8524)*UV(5024)+JVS(8525)*UV(5124)+JVS(8526)*UV(5258) - JUV(2039) = JVS(8527)*UV(2039)+JVS(8528)*UV(4329)+JVS(8529)*UV(5250)+JVS(8530)*UV(5255) - JUV(2040) = JVS(8531)*UV(2040)+JVS(8532)*UV(3634)+JVS(8533)*UV(5250)+JVS(8534)*UV(5252) - JUV(2041) = JVS(8535)*UV(1258)+JVS(8536)*UV(2040)+JVS(8537)*UV(2041)+JVS(8538)*UV(3634)+JVS(8540)*UV(5252)+JVS(8542)& - &*UV(5256) - JUV(2042) = JVS(8543)*UV(2042)+JVS(8544)*UV(5190)+JVS(8545)*UV(5258) - JUV(2043) = JVS(8546)*UV(2043)+JVS(8547)*UV(2695)+JVS(8548)*UV(4341)+JVS(8549)*UV(5250) - JUV(2044) = JVS(8550)*UV(2044)+JVS(8551)*UV(5228)+JVS(8552)*UV(5250)+JVS(8553)*UV(5255) - JUV(2045) = JVS(8554)*UV(2045)+JVS(8555)*UV(4334)+JVS(8556)*UV(5250)+JVS(8557)*UV(5252) - JUV(2046) = JVS(8558)*UV(2046)+JVS(8559)*UV(3685)+JVS(8560)*UV(5250)+JVS(8561)*UV(5255) - JUV(2047) = JVS(8562)*UV(2047)+JVS(8563)*UV(3814)+JVS(8564)*UV(5250)+JVS(8565)*UV(5255) - JUV(2048) = JVS(8566)*UV(2048)+JVS(8567)*UV(4322)+JVS(8568)*UV(5250)+JVS(8569)*UV(5256) - JUV(2049) = JVS(8570)*UV(2049)+JVS(8571)*UV(5119)+JVS(8572)*UV(5250)+JVS(8573)*UV(5252) - JUV(2050) = JVS(8574)*UV(964)+JVS(8575)*UV(2049)+JVS(8576)*UV(2050)+JVS(8577)*UV(5119)+JVS(8579)*UV(5252)+JVS(8581)& - &*UV(5256) - JUV(2051) = JVS(8582)*UV(2051)+JVS(8583)*UV(3487)+JVS(8584)*UV(4740)+JVS(8585)*UV(5250)+JVS(8586)*UV(5255) - JUV(2052) = JVS(8587)*UV(2052)+JVS(8588)*UV(4349)+JVS(8589)*UV(5250)+JVS(8590)*UV(5255) - JUV(2053) = JVS(8591)*UV(2053)+JVS(8592)*UV(3739)+JVS(8593)*UV(5250)+JVS(8594)*UV(5255) - JUV(2054) = JVS(8595)*UV(2054)+JVS(8596)*UV(4488)+JVS(8597)*UV(5250)+JVS(8598)*UV(5256) - JUV(2055) = JVS(8599)*UV(2055)+JVS(8600)*UV(4241)+JVS(8601)*UV(5250)+JVS(8602)*UV(5255) - JUV(2056) = JVS(8603)*UV(418)+JVS(8604)*UV(942)+JVS(8605)*UV(2056)+JVS(8606)*UV(2532)+JVS(8607)*UV(3845)+JVS(8608)& - &*UV(5250)+JVS(8609)*UV(5252)+JVS(8611)*UV(5256) - JUV(2057) = JVS(8612)*UV(2057)+JVS(8613)*UV(5192)+JVS(8614)*UV(5250)+JVS(8615)*UV(5255) - JUV(2058) = JVS(8616)*UV(2058)+JVS(8617)*UV(3936)+JVS(8618)*UV(5250)+JVS(8619)*UV(5255) - JUV(2059) = JVS(8620)*UV(2059)+JVS(8621)*UV(4389)+JVS(8622)*UV(5250)+JVS(8623)*UV(5255) - JUV(2060) = JVS(8624)*UV(1349)+JVS(8625)*UV(2060)+JVS(8626)*UV(2206)+JVS(8627)*UV(3690)+JVS(8629)*UV(5252)+JVS(8631)& - &*UV(5256) - JUV(2061) = JVS(8632)*UV(2061)+JVS(8633)*UV(5236)+JVS(8634)*UV(5250)+JVS(8635)*UV(5252) - JUV(2062) = JVS(8636)*UV(2062)+JVS(8637)*UV(4538)+JVS(8638)*UV(5250)+JVS(8639)*UV(5255) - JUV(2063) = JVS(8640)*UV(2063)+JVS(8641)*UV(3703)+JVS(8642)*UV(5250)+JVS(8643)*UV(5252) - JUV(2064) = JVS(8644)*UV(2064)+JVS(8645)*UV(4154)+JVS(8646)*UV(5250)+JVS(8647)*UV(5255) - JUV(2065) = JVS(8648)*UV(2065)+JVS(8649)*UV(3940)+JVS(8650)*UV(5250)+JVS(8651)*UV(5255) - JUV(2066) = JVS(8652)*UV(2066)+JVS(8653)*UV(3265)+JVS(8654)*UV(4767)+JVS(8655)*UV(5252)+JVS(8656)*UV(5256) - JUV(2067) = JVS(8657)*UV(2067)+JVS(8658)*UV(4608)+JVS(8659)*UV(4702)+JVS(8660)*UV(5250)+JVS(8661)*UV(5252) - JUV(2068) = JVS(8662)*UV(2068)+JVS(8663)*UV(3671)+JVS(8664)*UV(5250)+JVS(8665)*UV(5255) - JUV(2069) = JVS(8666)*UV(2069)+JVS(8667)*UV(4700)+JVS(8668)*UV(5250)+JVS(8669)*UV(5255) - JUV(2070) = JVS(8670)*UV(2070)+JVS(8671)*UV(5246)+JVS(8672)*UV(5250)+JVS(8673)*UV(5255) - JUV(2071) = JVS(8674)*UV(2071)+JVS(8675)*UV(4567)+JVS(8676)*UV(5250)+JVS(8677)*UV(5255) - JUV(2072) = JVS(8678)*UV(2072)+JVS(8679)*UV(4059)+JVS(8680)*UV(5250)+JVS(8681)*UV(5252) - JUV(2073) = JVS(8682)*UV(1126)+JVS(8683)*UV(2072)+JVS(8684)*UV(2073)+JVS(8685)*UV(4059)+JVS(8687)*UV(5252)+JVS(8689)& - &*UV(5256) - JUV(2074) = JVS(8690)*UV(2074)+JVS(8691)*UV(4374)+JVS(8692)*UV(5250)+JVS(8693)*UV(5252) - JUV(2075) = JVS(8694)*UV(2075)+JVS(8695)*UV(4616)+JVS(8696)*UV(5250)+JVS(8697)*UV(5252) - JUV(2076) = JVS(8698)*UV(1143)+JVS(8699)*UV(2075)+JVS(8700)*UV(2076)+JVS(8701)*UV(4616)+JVS(8703)*UV(5252)+JVS(8705)& - &*UV(5256) - JUV(2077) = JVS(8706)*UV(2077)+JVS(8707)*UV(4705)+JVS(8708)*UV(5250)+JVS(8709)*UV(5252) - JUV(2078) = JVS(8710)*UV(2078)+JVS(8711)*UV(3790)+JVS(8712)*UV(5250)+JVS(8713)*UV(5252) - JUV(2079) = JVS(8714)*UV(2079)+JVS(8715)*UV(3901)+JVS(8716)*UV(5250)+JVS(8717)*UV(5252) - JUV(2080) = JVS(8718)*UV(2080)+JVS(8719)*UV(4724)+JVS(8720)*UV(5250)+JVS(8721)*UV(5255) - JUV(2081) = JVS(8722)*UV(2081)+JVS(8723)*UV(5168)+JVS(8724)*UV(5220)+JVS(8725)*UV(5258) - JUV(2082) = JVS(8726)*UV(2082)+JVS(8727)*UV(4731)+JVS(8728)*UV(5250)+JVS(8729)*UV(5255) - JUV(2083) = JVS(8730)*UV(2083)+JVS(8731)*UV(5161)+JVS(8732)*UV(5250)+JVS(8733)*UV(5252) - JUV(2084) = JVS(8734)*UV(2084)+JVS(8735)*UV(4309)+JVS(8736)*UV(5250)+JVS(8737)*UV(5255) - JUV(2085) = JVS(8738)*UV(2085)+JVS(8739)*UV(3261)+JVS(8740)*UV(4180)+JVS(8741)*UV(5252)+JVS(8742)*UV(5256) - JUV(2086) = JVS(8743)*UV(2086)+JVS(8744)*UV(5109)+JVS(8745)*UV(5250)+JVS(8746)*UV(5252) - JUV(2087) = JVS(8747)*UV(2087)+JVS(8748)*UV(3797)+JVS(8749)*UV(5250)+JVS(8750)*UV(5252) - JUV(2088) = JVS(8751)*UV(1150)+JVS(8752)*UV(2087)+JVS(8753)*UV(2088)+JVS(8754)*UV(3797)+JVS(8756)*UV(5252)+JVS(8758)& - &*UV(5256) - JUV(2089) = JVS(8759)*UV(2089)+JVS(8760)*UV(3669)+JVS(8761)*UV(5250)+JVS(8762)*UV(5255) - JUV(2090) = JVS(8763)*UV(2090)+JVS(8764)*UV(3310)+JVS(8765)*UV(4959)+JVS(8766)*UV(5252)+JVS(8767)*UV(5256) - JUV(2091) = JVS(8768)*UV(2091)+JVS(8769)*UV(4025)+JVS(8770)*UV(5250)+JVS(8771)*UV(5255) - JUV(2092) = JVS(8772)*UV(2092)+JVS(8773)*UV(5097)+JVS(8774)*UV(5250)+JVS(8775)*UV(5252) - JUV(2093) = JVS(8776)*UV(2093)+JVS(8777)*UV(4327)+JVS(8778)*UV(5250)+JVS(8779)*UV(5255) - JUV(2094) = JVS(8780)*UV(2094)+JVS(8781)*UV(5146)+JVS(8782)*UV(5250)+JVS(8783)*UV(5252) - JUV(2095) = JVS(8784)*UV(2095)+JVS(8785)*UV(3871)+JVS(8786)*UV(5250)+JVS(8787)*UV(5255) - JUV(2096) = JVS(8788)*UV(2096)+JVS(8789)*UV(4171)+JVS(8790)*UV(5195)+JVS(8791)*UV(5250)+JVS(8792)*UV(5252) - JUV(2097) = JVS(8793)*UV(2097)+JVS(8794)*UV(5077)+JVS(8795)*UV(5250)+JVS(8796)*UV(5252) - JUV(2098) = JVS(8797)*UV(2098)+JVS(8798)*UV(3920)+JVS(8799)*UV(5250)+JVS(8800)*UV(5255) - JUV(2099) = JVS(8801)*UV(2099)+JVS(8802)*UV(3658)+JVS(8803)*UV(5250)+JVS(8804)*UV(5252) - JUV(2100) = JVS(8805)*UV(1365)+JVS(8806)*UV(2099)+JVS(8807)*UV(2100)+JVS(8808)*UV(3658)+JVS(8810)*UV(5252)+JVS(8812)& - &*UV(5256) - JUV(2101) = JVS(8813)*UV(2101)+JVS(8814)*UV(5074)+JVS(8815)*UV(5154)+JVS(8816)*UV(5250) - JUV(2102) = JVS(8817)*UV(2102)+JVS(8818)*UV(3229)+JVS(8819)*UV(4005)+JVS(8820)*UV(5250)+JVS(8821)*UV(5255) - JUV(2103) = JVS(8822)*UV(2103)+JVS(8823)*UV(3921)+JVS(8824)*UV(5250)+JVS(8825)*UV(5255) - JUV(2104) = JVS(8826)*UV(2104)+JVS(8827)*UV(5066)+JVS(8828)*UV(5258) - JUV(2105) = JVS(8829)*UV(2105)+JVS(8830)*UV(4208)+JVS(8831)*UV(5250)+JVS(8832)*UV(5255) - JUV(2106) = JVS(8833)*UV(2106)+JVS(8834)*UV(3884)+JVS(8835)*UV(5250)+JVS(8836)*UV(5252) - JUV(2107) = JVS(8837)*UV(2107)+JVS(8838)*UV(4929)+JVS(8839)*UV(5250)+JVS(8840)*UV(5255) - JUV(2108) = JVS(8841)*UV(2108)+JVS(8842)*UV(5206)+JVS(8843)*UV(5250)+JVS(8844)*UV(5252) - JUV(2109) = JVS(8845)*UV(2109)+JVS(8846)*UV(5174)+JVS(8847)*UV(5250)+JVS(8848)*UV(5255) - JUV(2110) = JVS(8849)*UV(2110)+JVS(8850)*UV(4553)+JVS(8851)*UV(5250)+JVS(8852)*UV(5255) - JUV(2111) = JVS(8853)*UV(2111)+JVS(8854)*UV(4497)+JVS(8855)*UV(5250)+JVS(8856)*UV(5255) - JUV(2112) = JVS(8857)*UV(2112)+JVS(8858)*UV(3459)+JVS(8859)*UV(4732)+JVS(8860)*UV(5252)+JVS(8861)*UV(5256) - JUV(2113) = JVS(8862)*UV(2113)+JVS(8863)*UV(5065)+JVS(8864)*UV(5250)+JVS(8865)*UV(5252) - JUV(2114) = JVS(8866)*UV(2114)+JVS(8867)*UV(4719)+JVS(8868)*UV(5250)+JVS(8869)*UV(5255) - JUV(2115) = JVS(8870)*UV(2115)+JVS(8871)*UV(4549)+JVS(8872)*UV(5250)+JVS(8873)*UV(5255) - JUV(2116) = JVS(8874)*UV(2116)+JVS(8875)*UV(4230)+JVS(8876)*UV(5250)+JVS(8877)*UV(5255) - JUV(2117) = JVS(8878)*UV(2117)+JVS(8879)*UV(2559)+JVS(8880)*UV(4683)+JVS(8881)*UV(5252)+JVS(8882)*UV(5256) - JUV(2118) = JVS(8883)*UV(2118)+JVS(8884)*UV(5032)+JVS(8885)*UV(5250) - JUV(2119) = JVS(8886)*UV(1668)+JVS(8887)*UV(1950)+JVS(8888)*UV(2119)+JVS(8889)*UV(5028)+JVS(8890)*UV(5250) - JUV(2120) = JVS(8892)*UV(2120)+JVS(8893)*UV(4424)+JVS(8894)*UV(5250)+JVS(8895)*UV(5255) - JUV(2121) = JVS(8896)*UV(2121)+JVS(8897)*UV(4361)+JVS(8898)*UV(5250)+JVS(8899)*UV(5255) - JUV(2122) = JVS(8900)*UV(1304)+JVS(8901)*UV(2122)+JVS(8902)*UV(2268)+JVS(8903)*UV(3731)+JVS(8905)*UV(5252)+JVS(8907)& - &*UV(5256) - JUV(2123) = JVS(8908)*UV(2123)+JVS(8909)*UV(4646)+JVS(8910)*UV(5250)+JVS(8911)*UV(5252) - JUV(2124) = JVS(8912)*UV(2124)+JVS(8913)*UV(4713)+JVS(8914)*UV(5250)+JVS(8915)*UV(5252) - JUV(2125) = JVS(8916)*UV(2125)+JVS(8917)*UV(4587)+JVS(8918)*UV(5250)+JVS(8919)*UV(5255) - JUV(2126) = JVS(8920)*UV(2126)+JVS(8921)*UV(5145)+JVS(8922)*UV(5250)+JVS(8923)*UV(5255) - JUV(2127) = JVS(8924)*UV(2127)+JVS(8925)*UV(3758)+JVS(8926)*UV(5250)+JVS(8927)*UV(5255) - JUV(2128) = JVS(8928)*UV(2128)+JVS(8929)*UV(4870)+JVS(8930)*UV(5250)+JVS(8931)*UV(5252) - JUV(2129) = JVS(8932)*UV(2129)+JVS(8933)*UV(4590)+JVS(8934)*UV(5250) - JUV(2130) = JVS(8935)*UV(2130)+JVS(8936)*UV(5204)+JVS(8937)*UV(5252)+JVS(8938)*UV(5256) - JUV(2131) = JVS(8939)*UV(2131)+JVS(8940)*UV(4557)+JVS(8941)*UV(5250)+JVS(8942)*UV(5255) - JUV(2132) = JVS(8943)*UV(1612)+JVS(8944)*UV(2132)+JVS(8945)*UV(3043)+JVS(8946)*UV(4746)+JVS(8947)*UV(5250) - JUV(2133) = JVS(8948)*UV(2133)+JVS(8949)*UV(4608)+JVS(8950)*UV(5250)+JVS(8951)*UV(5255) - JUV(2134) = JVS(8952)*UV(1716)+JVS(8953)*UV(2134)+JVS(8954)*UV(2900)+JVS(8955)*UV(3810)+JVS(8956)*UV(5250) - JUV(2135) = JVS(8957)*UV(2135)+JVS(8958)*UV(5043)+JVS(8959)*UV(5250)+JVS(8960)*UV(5255) - JUV(2136) = JVS(8961)*UV(2136)+JVS(8962)*UV(4442)+JVS(8963)*UV(5250)+JVS(8964)*UV(5252) - JUV(2137) = JVS(8965)*UV(2137)+JVS(8966)*UV(4813)+JVS(8967)*UV(5250)+JVS(8968)*UV(5255) - JUV(2138) = JVS(8969)*UV(2138)+JVS(8970)*UV(5025)+JVS(8971)*UV(5250)+JVS(8972)*UV(5255) - JUV(2139) = JVS(8973)*UV(2139)+JVS(8974)*UV(4812)+JVS(8975)*UV(5250)+JVS(8976)*UV(5255) - JUV(2140) = JVS(8977)*UV(2140)+JVS(8978)*UV(4912)+JVS(8979)*UV(5029)+JVS(8980)*UV(5250)+JVS(8981)*UV(5255) - JUV(2141) = JVS(8982)*UV(1615)+JVS(8983)*UV(2022)+JVS(8984)*UV(2141)+JVS(8985)*UV(4135)+JVS(8986)*UV(5250) - JUV(2142) = JVS(8988)*UV(2142)+JVS(8989)*UV(4220)+JVS(8990)*UV(5250)+JVS(8991)*UV(5255) - JUV(2143) = JVS(8992)*UV(2143)+JVS(8993)*UV(3307)+JVS(8994)*UV(4257)+JVS(8995)*UV(5250)+JVS(8996)*UV(5255) - JUV(2144) = JVS(8997)*UV(2144)+JVS(8998)*UV(4260)+JVS(8999)*UV(5250)+JVS(9000)*UV(5255) - JUV(2145) = JVS(9001)*UV(2145)+JVS(9002)*UV(2797)+JVS(9003)*UV(3992)+JVS(9004)*UV(5252)+JVS(9005)*UV(5256) - JUV(2146) = JVS(9006)*UV(2146)+JVS(9007)*UV(4301)+JVS(9008)*UV(5250)+JVS(9009)*UV(5255) - JUV(2147) = JVS(9010)*UV(2147)+JVS(9011)*UV(5015)+JVS(9012)*UV(5250)+JVS(9013)*UV(5255) - JUV(2148) = JVS(9014)*UV(2148)+JVS(9015)*UV(4094)+JVS(9016)*UV(5258) - JUV(2149) = JVS(9017)*UV(2149)+JVS(9018)*UV(5186)+JVS(9019)*UV(5250)+JVS(9020)*UV(5252) - JUV(2150) = JVS(9021)*UV(2150)+JVS(9022)*UV(5152)+JVS(9023)*UV(5250)+JVS(9024)*UV(5255) - JUV(2151) = JVS(9025)*UV(2151)+JVS(9026)*UV(4290)+JVS(9027)*UV(5250)+JVS(9028)*UV(5255) - JUV(2152) = JVS(9029)*UV(2152)+JVS(9030)*UV(4440)+JVS(9031)*UV(5250)+JVS(9032)*UV(5255) - JUV(2153) = JVS(9033)*UV(2153)+JVS(9034)*UV(4477)+JVS(9035)*UV(5250)+JVS(9036)*UV(5255) - JUV(2154) = JVS(9037)*UV(377)+JVS(9038)*UV(1868)+JVS(9039)*UV(2154)+JVS(9040)*UV(4176)+JVS(9041)*UV(5250) - JUV(2155) = JVS(9043)*UV(2155)+JVS(9044)*UV(4197)+JVS(9045)*UV(5250)+JVS(9046)*UV(5252) - JUV(2156) = JVS(9047)*UV(2156)+JVS(9048)*UV(4060)+JVS(9049)*UV(5250)+JVS(9050)*UV(5255) - JUV(2157) = JVS(9051)*UV(2157)+JVS(9052)*UV(3789)+JVS(9053)*UV(5250)+JVS(9054)*UV(5252) - JUV(2158) = JVS(9055)*UV(2158)+JVS(9056)*UV(3266)+JVS(9057)*UV(4476)+JVS(9058)*UV(5252)+JVS(9059)*UV(5256) - JUV(2159) = JVS(9060)*UV(2159)+JVS(9061)*UV(4214)+JVS(9062)*UV(5250)+JVS(9063)*UV(5255) - JUV(2160) = JVS(9064)*UV(2160)+JVS(9065)*UV(3963)+JVS(9066)*UV(5250)+JVS(9067)*UV(5255) - JUV(2161) = JVS(9068)*UV(2161)+JVS(9069)*UV(5144)+JVS(9070)*UV(5250)+JVS(9071)*UV(5252) - JUV(2162) = JVS(9072)*UV(2162)+JVS(9073)*UV(3552)+JVS(9074)*UV(5173)+JVS(9075)*UV(5252)+JVS(9076)*UV(5256) - JUV(2163) = JVS(9077)*UV(1217)+JVS(9078)*UV(2163)+JVS(9079)*UV(3399)+JVS(9080)*UV(4318)+JVS(9082)*UV(5252)+JVS(9084)& - &*UV(5256) - JUV(2164) = JVS(9085)*UV(2164)+JVS(9086)*UV(4672)+JVS(9087)*UV(5250)+JVS(9088)*UV(5252) - JUV(2165) = JVS(9089)*UV(2165)+JVS(9090)*UV(4940)+JVS(9091)*UV(5250)+JVS(9092)*UV(5252) - JUV(2166) = JVS(9093)*UV(2166)+JVS(9094)*UV(4590)+JVS(9095)*UV(5250)+JVS(9096)*UV(5255) - JUV(2167) = JVS(9097)*UV(2167)+JVS(9098)*UV(4012)+JVS(9099)*UV(5250)+JVS(9100)*UV(5256) - JUV(2168) = JVS(9101)*UV(2168)+JVS(9102)*UV(4733)+JVS(9103)*UV(5250)+JVS(9104)*UV(5252) - JUV(2169) = JVS(9105)*UV(2169)+JVS(9106)*UV(5082)+JVS(9107)*UV(5250)+JVS(9108)*UV(5252) - JUV(2170) = JVS(9109)*UV(2170)+JVS(9110)*UV(3043)+JVS(9111)*UV(4746)+JVS(9112)*UV(5252)+JVS(9113)*UV(5256) - JUV(2171) = JVS(9114)*UV(2171)+JVS(9115)*UV(4404)+JVS(9116)*UV(5250)+JVS(9117)*UV(5255) - JUV(2172) = JVS(9118)*UV(2172)+JVS(9119)*UV(3932)+JVS(9120)*UV(5250)+JVS(9121)*UV(5252) - JUV(2173) = JVS(9122)*UV(831)+JVS(9123)*UV(2172)+JVS(9124)*UV(2173)+JVS(9125)*UV(3932)+JVS(9127)*UV(5252)+JVS(9129)& - &*UV(5256) - JUV(2174) = JVS(9130)*UV(2174)+JVS(9131)*UV(4925)+JVS(9132)*UV(5250)+JVS(9133)*UV(5255) - JUV(2175) = JVS(9134)*UV(2175)+JVS(9135)*UV(3435)+JVS(9136)*UV(3445)+JVS(9137)*UV(5250) - JUV(2176) = JVS(9138)*UV(2176)+JVS(9139)*UV(4470)+JVS(9140)*UV(5250)+JVS(9141)*UV(5255) - JUV(2177) = JVS(9142)*UV(2177)+JVS(9143)*UV(3199)+JVS(9144)*UV(4376)+JVS(9145)*UV(5250)+JVS(9146)*UV(5255) - JUV(2178) = JVS(9147)*UV(2178)+JVS(9148)*UV(3971)+JVS(9149)*UV(5250)+JVS(9150)*UV(5255) - JUV(2179) = JVS(9151)*UV(2179)+JVS(9152)*UV(4972)+JVS(9153)*UV(5250)+JVS(9154)*UV(5255) - JUV(2180) = JVS(9155)*UV(2180)+JVS(9156)*UV(3891)+JVS(9157)*UV(5250)+JVS(9158)*UV(5255) - JUV(2181) = JVS(9159)*UV(2181)+JVS(9160)*UV(3921)+JVS(9161)*UV(4925)+JVS(9162)*UV(5250)+JVS(9163)*UV(5252) - JUV(2182) = JVS(9164)*UV(2182)+JVS(9165)*UV(3778)+JVS(9166)*UV(5250)+JVS(9167)*UV(5252) - JUV(2183) = JVS(9168)*UV(2183)+JVS(9169)*UV(4753)+JVS(9170)*UV(5250)+JVS(9171)*UV(5255) - JUV(2184) = JVS(9172)*UV(2184)+JVS(9173)*UV(3891)+JVS(9174)*UV(3963)+JVS(9175)*UV(5250)+JVS(9176)*UV(5252) - JUV(2185) = JVS(9177)*UV(2185)+JVS(9178)*UV(4716)+JVS(9179)*UV(5250)+JVS(9180)*UV(5252) - JUV(2186) = JVS(9181)*UV(2186)+JVS(9182)*UV(3055)+JVS(9183)*UV(4765)+JVS(9184)*UV(5252)+JVS(9185)*UV(5256) - JUV(2187) = JVS(9186)*UV(2187)+JVS(9187)*UV(3676)+JVS(9188)*UV(5250)+JVS(9189)*UV(5255) - JUV(2188) = JVS(9190)*UV(2188)+JVS(9191)*UV(5142)+JVS(9192)*UV(5250)+JVS(9193)*UV(5255) - JUV(2189) = JVS(9194)*UV(2189)+JVS(9195)*UV(3718)+JVS(9196)*UV(5250)+JVS(9197)*UV(5252) - JUV(2190) = JVS(9198)*UV(1212)+JVS(9199)*UV(1621)+JVS(9200)*UV(2190)+JVS(9201)*UV(3926)+JVS(9204)*UV(5252)+JVS(9206)& - &*UV(5256) - JUV(2191) = JVS(9207)*UV(2191)+JVS(9208)*UV(4436)+JVS(9209)*UV(5250)+JVS(9210)*UV(5255) - JUV(2192) = JVS(9211)*UV(2192)+JVS(9212)*UV(5077)+JVS(9213)*UV(5250)+JVS(9214)*UV(5255) - JUV(2193) = JVS(9215)*UV(2193)+JVS(9216)*UV(4901)+JVS(9217)*UV(5250)+JVS(9218)*UV(5252) - JUV(2194) = JVS(9219)*UV(2194)+JVS(9220)*UV(4571)+JVS(9221)*UV(5250)+JVS(9222)*UV(5252) - JUV(2195) = JVS(9223)*UV(2195)+JVS(9224)*UV(4748)+JVS(9225)*UV(5250)+JVS(9226)*UV(5252) - JUV(2196) = JVS(9227)*UV(2196)+JVS(9228)*UV(4876)+JVS(9229)*UV(5250)+JVS(9230)*UV(5252) - JUV(2197) = JVS(9231)*UV(1191)+JVS(9232)*UV(2197)+JVS(9233)*UV(4697)+JVS(9234)*UV(5250) - JUV(2198) = JVS(9236)*UV(2198)+JVS(9237)*UV(4310)+JVS(9238)*UV(5250)+JVS(9239)*UV(5252) - JUV(2199) = JVS(9240)*UV(2199)+JVS(9241)*UV(5045)+JVS(9242)*UV(5250)+JVS(9243)*UV(5252) - JUV(2200) = JVS(9244)*UV(2200)+JVS(9245)*UV(3022)+JVS(9246)*UV(4513)+JVS(9247)*UV(5252)+JVS(9248)*UV(5256) - JUV(2201) = JVS(9249)*UV(2201)+JVS(9250)*UV(2930)+JVS(9251)*UV(4138)+JVS(9252)*UV(5252)+JVS(9253)*UV(5256) - JUV(2202) = JVS(9254)*UV(2202)+JVS(9255)*UV(3688)+JVS(9256)*UV(5250)+JVS(9257)*UV(5252) - JUV(2203) = JVS(9258)*UV(2203)+JVS(9259)*UV(2723)+JVS(9260)*UV(4235)+JVS(9261)*UV(5252)+JVS(9262)*UV(5256) - JUV(2204) = JVS(9263)*UV(2204)+JVS(9264)*UV(4030)+JVS(9265)*UV(5250)+JVS(9266)*UV(5255) - JUV(2205) = JVS(9267)*UV(2205)+JVS(9268)*UV(3880)+JVS(9269)*UV(5250)+JVS(9270)*UV(5255) - JUV(2206) = JVS(9271)*UV(2206)+JVS(9272)*UV(3690)+JVS(9273)*UV(5250)+JVS(9274)*UV(5252) - JUV(2207) = JVS(9275)*UV(79)+JVS(9276)*UV(1266)+JVS(9277)*UV(2207)+JVS(9278)*UV(2943)+JVS(9279)*UV(3981)+JVS(9280)& - &*UV(5250)+JVS(9281)*UV(5252)+JVS(9283)*UV(5256) - JUV(2208) = JVS(9284)*UV(2208)+JVS(9285)*UV(4206)+JVS(9286)*UV(5250)+JVS(9287)*UV(5255) - JUV(2209) = JVS(9288)*UV(482)+JVS(9289)*UV(1019)+JVS(9290)*UV(2209)+JVS(9291)*UV(4120)+JVS(9292)*UV(5250) - JUV(2210) = JVS(9294)*UV(2210)+JVS(9295)*UV(2975)+JVS(9296)*UV(4648)+JVS(9297)*UV(5252)+JVS(9298)*UV(5256) - JUV(2211) = JVS(9299)*UV(2211)+JVS(9300)*UV(5243)+JVS(9301)*UV(5250)+JVS(9302)*UV(5255) - JUV(2212) = JVS(9303)*UV(2212)+JVS(9304)*UV(4508)+JVS(9305)*UV(5258) - JUV(2213) = JVS(9306)*UV(2213)+JVS(9307)*UV(4356)+JVS(9308)*UV(5250)+JVS(9309)*UV(5252) - JUV(2214) = JVS(9310)*UV(2214)+JVS(9311)*UV(4137)+JVS(9312)*UV(5250)+JVS(9313)*UV(5255) - JUV(2215) = JVS(9314)*UV(2215)+JVS(9315)*UV(5081)+JVS(9316)*UV(5250)+JVS(9317)*UV(5252) - JUV(2216) = JVS(9318)*UV(2216)+JVS(9319)*UV(5112)+JVS(9320)*UV(5250)+JVS(9321)*UV(5252) - JUV(2217) = JVS(9322)*UV(2217)+JVS(9323)*UV(3984)+JVS(9324)*UV(5250)+JVS(9325)*UV(5255) - JUV(2218) = JVS(9326)*UV(2218)+JVS(9327)*UV(3667)+JVS(9328)*UV(5250)+JVS(9329)*UV(5252) - JUV(2219) = JVS(9330)*UV(2219)+JVS(9331)*UV(4924)+JVS(9332)*UV(5250)+JVS(9333)*UV(5255) - JUV(2220) = JVS(9334)*UV(2220)+JVS(9335)*UV(5116)+JVS(9336)*UV(5250)+JVS(9337)*UV(5252) - JUV(2221) = JVS(9338)*UV(2221)+JVS(9339)*UV(4355)+JVS(9340)*UV(5250)+JVS(9341)*UV(5255) - JUV(2222) = JVS(9342)*UV(2222)+JVS(9343)*UV(3636)+JVS(9344)*UV(4372)+JVS(9345)*UV(5250)+JVS(9346)*UV(5252) - JUV(2223) = JVS(9347)*UV(2223)+JVS(9348)*UV(4901)+JVS(9349)*UV(5250)+JVS(9350)*UV(5255) - JUV(2224) = JVS(9351)*UV(2224)+JVS(9352)*UV(3908)+JVS(9353)*UV(5250)+JVS(9354)*UV(5252) - JUV(2225) = JVS(9355)*UV(2225)+JVS(9356)*UV(3318)+JVS(9357)*UV(4000)+JVS(9358)*UV(5250)+JVS(9359)*UV(5255) - JUV(2226) = JVS(9360)*UV(1505)+JVS(9361)*UV(2226)+JVS(9362)*UV(2855)+JVS(9363)*UV(3882)+JVS(9365)*UV(5252)+JVS(9367)& - &*UV(5256) - JUV(2227) = JVS(9368)*UV(2227)+JVS(9369)*UV(5163)+JVS(9370)*UV(5250)+JVS(9371)*UV(5255) - JUV(2228) = JVS(9372)*UV(2228)+JVS(9373)*UV(4502)+JVS(9374)*UV(5250)+JVS(9375)*UV(5255) - JUV(2229) = JVS(9376)*UV(2229)+JVS(9377)*UV(3277)+JVS(9378)*UV(5202)+JVS(9379)*UV(5252)+JVS(9380)*UV(5256) - JUV(2230) = JVS(9381)*UV(226)+JVS(9382)*UV(2230)+JVS(9383)*UV(3621)+JVS(9384)*UV(5091)+JVS(9385)*UV(5250) - JUV(2231) = JVS(9386)*UV(1585)+JVS(9387)*UV(2231)+JVS(9388)*UV(2362)+JVS(9389)*UV(4148)+JVS(9390)*UV(5250) - JUV(2232) = JVS(9391)*UV(2232)+JVS(9392)*UV(3492)+JVS(9393)*UV(5250)+JVS(9394)*UV(5252) - JUV(2233) = JVS(9395)*UV(2233)+JVS(9396)*UV(3778)+JVS(9397)*UV(5250)+JVS(9398)*UV(5255) - JUV(2234) = JVS(9399)*UV(2234)+JVS(9400)*UV(2501)+JVS(9401)*UV(4432)+JVS(9402)*UV(5252)+JVS(9403)*UV(5256) - JUV(2235) = JVS(9404)*UV(2235)+JVS(9405)*UV(4411)+JVS(9406)*UV(5250)+JVS(9407)*UV(5255) - JUV(2236) = JVS(9408)*UV(2236)+JVS(9409)*UV(4894)+JVS(9410)*UV(5250)+JVS(9411)*UV(5255) - JUV(2237) = JVS(9412)*UV(2237)+JVS(9413)*UV(4755)+JVS(9414)*UV(5250)+JVS(9415)*UV(5252) - JUV(2238) = JVS(9416)*UV(2238)+JVS(9417)*UV(2971)+JVS(9418)*UV(4277)+JVS(9419)*UV(5252)+JVS(9420)*UV(5256) - JUV(2239) = JVS(9421)*UV(2239)+JVS(9422)*UV(4394)+JVS(9423)*UV(5250)+JVS(9424)*UV(5252) - JUV(2240) = JVS(9425)*UV(2240)+JVS(9426)*UV(5036)+JVS(9427)*UV(5250)+JVS(9428)*UV(5253) - JUV(2241) = JVS(9429)*UV(2241)+JVS(9430)*UV(3803)+JVS(9431)*UV(5250)+JVS(9432)*UV(5252) - JUV(2242) = JVS(9433)*UV(2242)+JVS(9434)*UV(3898)+JVS(9435)*UV(5250)+JVS(9436)*UV(5252) - JUV(2243) = JVS(9437)*UV(2243)+JVS(9438)*UV(3160)+JVS(9439)*UV(3635)+JVS(9440)*UV(5250) - JUV(2244) = JVS(9441)*UV(2244)+JVS(9442)*UV(3944)+JVS(9443)*UV(5250)+JVS(9444)*UV(5255) - JUV(2245) = JVS(9445)*UV(2245)+JVS(9446)*UV(4712)+JVS(9447)*UV(5250)+JVS(9448)*UV(5252) - JUV(2246) = JVS(9449)*UV(2246)+JVS(9450)*UV(5061)+JVS(9451)*UV(5250)+JVS(9452)*UV(5252) - JUV(2247) = JVS(9453)*UV(2247)+JVS(9454)*UV(5150)+JVS(9455)*UV(5250)+JVS(9456)*UV(5255) - JUV(2248) = JVS(9457)*UV(2248)+JVS(9458)*UV(4202)+JVS(9459)*UV(5250)+JVS(9460)*UV(5255) - JUV(2249) = JVS(9461)*UV(2249)+JVS(9462)*UV(3240)+JVS(9463)*UV(4321)+JVS(9464)*UV(5252)+JVS(9465)*UV(5256) - JUV(2250) = JVS(9466)*UV(2250)+JVS(9467)*UV(5114)+JVS(9468)*UV(5250)+JVS(9469)*UV(5252) - JUV(2251) = JVS(9470)*UV(2251)+JVS(9471)*UV(4207)+JVS(9472)*UV(5250)+JVS(9473)*UV(5255) - JUV(2252) = JVS(9474)*UV(2252)+JVS(9475)*UV(5219)+JVS(9476)*UV(5250)+JVS(9477)*UV(5255) - JUV(2253) = JVS(9478)*UV(2253)+JVS(9479)*UV(4704)+JVS(9480)*UV(5250)+JVS(9481)*UV(5252) - JUV(2254) = JVS(9482)*UV(2254)+JVS(9483)*UV(4541)+JVS(9484)*UV(5250)+JVS(9485)*UV(5252) - JUV(2255) = JVS(9486)*UV(608)+JVS(9487)*UV(2255)+JVS(9488)*UV(3291)+JVS(9489)*UV(4105)+JVS(9490)*UV(5250) - JUV(2256) = JVS(9491)*UV(2256)+JVS(9492)*UV(4128)+JVS(9493)*UV(5250)+JVS(9494)*UV(5252) - JUV(2257) = JVS(9495)*UV(2257)+JVS(9496)*UV(4216)+JVS(9497)*UV(5250)+JVS(9498)*UV(5252) - JUV(2258) = JVS(9499)*UV(2258)+JVS(9500)*UV(5093)+JVS(9501)*UV(5258) - JUV(2259) = JVS(9502)*UV(2259)+JVS(9503)*UV(3854)+JVS(9504)*UV(3859)+JVS(9505)*UV(5250) - JUV(2260) = JVS(9506)*UV(2260)+JVS(9507)*UV(4595)+JVS(9508)*UV(5250)+JVS(9509)*UV(5255) - JUV(2261) = JVS(9510)*UV(2261)+JVS(9511)*UV(4411)+JVS(9512)*UV(5250)+JVS(9513)*UV(5252) - JUV(2262) = JVS(9514)*UV(2262)+JVS(9515)*UV(3945)+JVS(9516)*UV(5250)+JVS(9517)*UV(5255) - JUV(2263) = JVS(9518)*UV(2263)+JVS(9519)*UV(4441)+JVS(9520)*UV(5250)+JVS(9521)*UV(5255) - JUV(2264) = JVS(9522)*UV(2264)+JVS(9523)*UV(5082)+JVS(9524)*UV(5250)+JVS(9525)*UV(5255) - JUV(2265) = JVS(9526)*UV(1586)+JVS(9527)*UV(2265)+JVS(9528)*UV(2305)+JVS(9529)*UV(4145)+JVS(9530)*UV(5250) - JUV(2266) = JVS(9531)*UV(2266)+JVS(9532)*UV(3966)+JVS(9533)*UV(5250)+JVS(9534)*UV(5255) - JUV(2267) = JVS(9535)*UV(2267)+JVS(9536)*UV(3687)+JVS(9537)*UV(5250)+JVS(9538)*UV(5255) - JUV(2268) = JVS(9539)*UV(2268)+JVS(9540)*UV(3731)+JVS(9541)*UV(5250)+JVS(9542)*UV(5252) - JUV(2269) = JVS(9543)*UV(2269)+JVS(9544)*UV(4581)+JVS(9545)*UV(5250)+JVS(9546)*UV(5255) - JUV(2270) = JVS(9547)*UV(2270)+JVS(9548)*UV(4735)+JVS(9549)*UV(5250)+JVS(9550)*UV(5252) - JUV(2271) = JVS(9551)*UV(2271)+JVS(9552)*UV(4709)+JVS(9553)*UV(5250)+JVS(9554)*UV(5252) - JUV(2272) = JVS(9555)*UV(2272)+JVS(9556)*UV(3496)+JVS(9557)*UV(3653)+JVS(9558)*UV(5093)+JVS(9559)*UV(5250) - JUV(2273) = JVS(9560)*UV(219)+JVS(9561)*UV(2071)+JVS(9562)*UV(2273)+JVS(9563)*UV(4567)+JVS(9564)*UV(5250) - JUV(2274) = JVS(9566)*UV(2274)+JVS(9567)*UV(4619)+JVS(9568)*UV(5250)+JVS(9569)*UV(5256) - JUV(2275) = JVS(9570)*UV(2275)+JVS(9571)*UV(4196)+JVS(9572)*UV(5250)+JVS(9573)*UV(5252) - JUV(2276) = JVS(9574)*UV(2276)+JVS(9575)*UV(4554)+JVS(9576)*UV(4585)+JVS(9577)*UV(5250)+JVS(9578)*UV(5252) - JUV(2277) = JVS(9579)*UV(2277)+JVS(9580)*UV(4696)+JVS(9581)*UV(5250)+JVS(9582)*UV(5252) - JUV(2278) = JVS(9583)*UV(2278)+JVS(9584)*UV(4593)+JVS(9585)*UV(5096)+JVS(9586)*UV(5250)+JVS(9587)*UV(5252) - JUV(2279) = JVS(9588)*UV(2279)+JVS(9589)*UV(2556)+JVS(9590)*UV(3899)+JVS(9591)*UV(5252)+JVS(9592)*UV(5256) - JUV(2280) = JVS(9593)*UV(2280)+JVS(9594)*UV(4249)+JVS(9595)*UV(5250)+JVS(9596)*UV(5252) - JUV(2281) = JVS(9597)*UV(2281)+JVS(9598)*UV(4799)+JVS(9599)*UV(5250)+JVS(9600)*UV(5256) - JUV(2282) = JVS(9601)*UV(2282)+JVS(9602)*UV(4903)+JVS(9603)*UV(5250)+JVS(9604)*UV(5252) - JUV(2283) = JVS(9605)*UV(2283)+JVS(9606)*UV(3220)+JVS(9607)*UV(4592)+JVS(9608)*UV(5250)+JVS(9609)*UV(5255) - JUV(2284) = JVS(9610)*UV(1168)+JVS(9611)*UV(2284)+JVS(9612)*UV(2299)+JVS(9613)*UV(3749)+JVS(9615)*UV(5252)+JVS(9617)& - &*UV(5256) - JUV(2285) = JVS(9618)*UV(2285)+JVS(9619)*UV(5163)+JVS(9620)*UV(5250)+JVS(9621)*UV(5252) - JUV(2286) = JVS(9622)*UV(2286)+JVS(9623)*UV(5200)+JVS(9624)*UV(5258) - JUV(2287) = JVS(9625)*UV(2287)+JVS(9626)*UV(3451)+JVS(9627)*UV(4905)+JVS(9628)*UV(5252)+JVS(9629)*UV(5256) - JUV(2288) = JVS(9630)*UV(2288)+JVS(9631)*UV(3844)+JVS(9632)*UV(3966)+JVS(9633)*UV(5250)+JVS(9634)*UV(5252) - JUV(2289) = JVS(9635)*UV(2289)+JVS(9636)*UV(3864)+JVS(9637)*UV(5250)+JVS(9638)*UV(5255) - JUV(2290) = JVS(9639)*UV(2290)+JVS(9640)*UV(4427)+JVS(9641)*UV(5250)+JVS(9642)*UV(5255) - JUV(2291) = JVS(9643)*UV(2291)+JVS(9644)*UV(4577)+JVS(9645)*UV(5250)+JVS(9646)*UV(5252) - JUV(2292) = JVS(9647)*UV(2292)+JVS(9648)*UV(5229)+JVS(9649)*UV(5250)+JVS(9650)*UV(5255) - JUV(2293) = JVS(9651)*UV(99)+JVS(9652)*UV(883)+JVS(9653)*UV(2293)+JVS(9654)*UV(2621)+JVS(9655)*UV(5104)+JVS(9656)& - &*UV(5250)+JVS(9657)*UV(5252)+JVS(9659)*UV(5256) - JUV(2294) = JVS(9660)*UV(2294)+JVS(9661)*UV(3738)+JVS(9662)*UV(5250)+JVS(9663)*UV(5255) - JUV(2295) = JVS(9664)*UV(358)+JVS(9665)*UV(2204)+JVS(9666)*UV(2295)+JVS(9667)*UV(4030)+JVS(9668)*UV(5250) - JUV(2296) = JVS(9670)*UV(2296)+JVS(9671)*UV(3852)+JVS(9672)*UV(5250)+JVS(9673)*UV(5252) - JUV(2297) = JVS(9674)*UV(2297)+JVS(9675)*UV(4714)+JVS(9676)*UV(4767)+JVS(9677)*UV(5250)+JVS(9678)*UV(5252) - JUV(2298) = JVS(9679)*UV(2298)+JVS(9680)*UV(3919)+JVS(9681)*UV(5250)+JVS(9682)*UV(5255) - JUV(2299) = JVS(9683)*UV(2299)+JVS(9684)*UV(3749)+JVS(9685)*UV(5250)+JVS(9686)*UV(5252) - JUV(2300) = JVS(9687)*UV(2300)+JVS(9688)*UV(4820)+JVS(9689)*UV(5250)+JVS(9690)*UV(5255) - JUV(2301) = JVS(9691)*UV(2301)+JVS(9692)*UV(4215)+JVS(9693)*UV(5250)+JVS(9694)*UV(5255) - JUV(2302) = JVS(9695)*UV(2302)+JVS(9696)*UV(3481)+JVS(9697)*UV(5250)+JVS(9698)*UV(5252) - JUV(2303) = JVS(9699)*UV(2303)+JVS(9700)*UV(3855)+JVS(9701)*UV(5250)+JVS(9702)*UV(5252) - JUV(2304) = JVS(9703)*UV(1077)+JVS(9704)*UV(2303)+JVS(9705)*UV(2304)+JVS(9706)*UV(3855)+JVS(9708)*UV(5252)+JVS(9710)& - &*UV(5256) - JUV(2305) = JVS(9711)*UV(2305)+JVS(9712)*UV(4145)+JVS(9713)*UV(5250)+JVS(9714)*UV(5255) - JUV(2306) = JVS(9715)*UV(2306)+JVS(9716)*UV(4995)+JVS(9717)*UV(5250)+JVS(9718)*UV(5252) - JUV(2307) = JVS(9719)*UV(2307)+JVS(9720)*UV(4168)+JVS(9721)*UV(5250)+JVS(9722)*UV(5255) - JUV(2308) = JVS(9723)*UV(2308)+JVS(9724)*UV(5217)+JVS(9725)*UV(5252)+JVS(9726)*UV(5256) - JUV(2309) = JVS(9727)*UV(2309)+JVS(9728)*UV(3507)+JVS(9729)*UV(5250)+JVS(9730)*UV(5252) - JUV(2310) = JVS(9731)*UV(2310)+JVS(9732)*UV(3666)+JVS(9733)*UV(4152)+JVS(9734)*UV(5250) - JUV(2311) = JVS(9735)*UV(2311)+JVS(9736)*UV(4825)+JVS(9737)*UV(5250)+JVS(9738)*UV(5252) - JUV(2312) = JVS(9739)*UV(2312)+JVS(9740)*UV(4315)+JVS(9741)*UV(5250)+JVS(9742)*UV(5255) - JUV(2313) = JVS(9743)*UV(2313)+JVS(9744)*UV(5198)+JVS(9745)*UV(5250)+JVS(9746)*UV(5252) - JUV(2314) = JVS(9747)*UV(2314)+JVS(9748)*UV(4522)+JVS(9749)*UV(5250)+JVS(9750)*UV(5255) - JUV(2315) = JVS(9751)*UV(1687)+JVS(9752)*UV(1863)+JVS(9753)*UV(2315)+JVS(9754)*UV(4761)+JVS(9755)*UV(5250) - JUV(2316) = JVS(9757)*UV(2316)+JVS(9758)*UV(3977)+JVS(9759)*UV(5250)+JVS(9760)*UV(5255) - JUV(2317) = JVS(9761)*UV(2317)+JVS(9762)*UV(4003)+JVS(9763)*UV(5250)+JVS(9764)*UV(5252) - JUV(2318) = JVS(9765)*UV(2318)+JVS(9766)*UV(5208)+JVS(9767)*UV(5250)+JVS(9768)*UV(5255) - JUV(2319) = JVS(9769)*UV(2319)+JVS(9770)*UV(4243)+JVS(9771)*UV(5250)+JVS(9772)*UV(5255) - JUV(2320) = JVS(9773)*UV(2320)+JVS(9774)*UV(4209)+JVS(9775)*UV(5250)+JVS(9776)*UV(5255) - JUV(2321) = JVS(9777)*UV(2321)+JVS(9778)*UV(3807)+JVS(9779)*UV(5250)+JVS(9780)*UV(5252) - JUV(2322) = JVS(9781)*UV(1315)+JVS(9782)*UV(2321)+JVS(9783)*UV(2322)+JVS(9784)*UV(3807)+JVS(9786)*UV(5252)+JVS(9788)& - &*UV(5256) - JUV(2323) = JVS(9789)*UV(2323)+JVS(9790)*UV(2540)+JVS(9791)*UV(4563)+JVS(9792)*UV(5252)+JVS(9793)*UV(5256) - JUV(2324) = JVS(9794)*UV(1059)+JVS(9795)*UV(2324)+JVS(9796)*UV(2462)+JVS(9797)*UV(4089)+JVS(9799)*UV(5252)+JVS(9801)& - &*UV(5256) - JUV(2325) = JVS(9802)*UV(2325)+JVS(9803)*UV(3886)+JVS(9804)*UV(5250)+JVS(9805)*UV(5252) - JUV(2326) = JVS(9806)*UV(2326)+JVS(9807)*UV(4383)+JVS(9808)*UV(4909)+JVS(9809)*UV(5241)+JVS(9810)*UV(5252)+JVS(9811)& - &*UV(5255)+JVS(9812)*UV(5256) - JUV(2327) = JVS(9813)*UV(2327)+JVS(9814)*UV(4319)+JVS(9815)*UV(5250)+JVS(9816)*UV(5252) - JUV(2328) = JVS(9817)*UV(2328)+JVS(9818)*UV(3858)+JVS(9819)*UV(5250)+JVS(9820)*UV(5252) - JUV(2329) = JVS(9821)*UV(2329)+JVS(9822)*UV(4228)+JVS(9823)*UV(5250)+JVS(9824)*UV(5255) - JUV(2330) = JVS(9825)*UV(2330)+JVS(9826)*UV(4715)+JVS(9827)*UV(5250)+JVS(9828)*UV(5252) - JUV(2331) = JVS(9829)*UV(2331)+JVS(9830)*UV(4251)+JVS(9831)*UV(5250)+JVS(9832)*UV(5255) - JUV(2332) = JVS(9833)*UV(2332)+JVS(9834)*UV(4597)+JVS(9835)*UV(5250)+JVS(9836)*UV(5252) - JUV(2333) = JVS(9837)*UV(2333)+JVS(9838)*UV(3819)+JVS(9839)*UV(5250)+JVS(9840)*UV(5252) - JUV(2334) = JVS(9841)*UV(1270)+JVS(9842)*UV(2333)+JVS(9843)*UV(2334)+JVS(9844)*UV(3819)+JVS(9846)*UV(5252)+JVS(9848)& - &*UV(5256) - JUV(2335) = JVS(9849)*UV(2335)+JVS(9850)*UV(3154)+JVS(9851)*UV(3628)+JVS(9852)*UV(5250) - JUV(2336) = JVS(9853)*UV(2336)+JVS(9854)*UV(4184)+JVS(9855)*UV(5250) - JUV(2337) = JVS(9856)*UV(2337)+JVS(9857)*UV(5147)+JVS(9858)*UV(5250)+JVS(9859)*UV(5252) - JUV(2338) = JVS(9860)*UV(2338)+JVS(9861)*UV(3847)+JVS(9862)*UV(5250)+JVS(9863)*UV(5252) - JUV(2339) = JVS(9864)*UV(2339)+JVS(9865)*UV(4755)+JVS(9866)*UV(5250)+JVS(9867)*UV(5255) - JUV(2340) = JVS(9868)*UV(2340)+JVS(9869)*UV(4824)+JVS(9870)*UV(4849)+JVS(9871)*UV(5250)+JVS(9872)*UV(5255) - JUV(2341) = JVS(9873)*UV(2341)+JVS(9874)*UV(4399)+JVS(9875)*UV(5250)+JVS(9876)*UV(5252) - JUV(2342) = JVS(9877)*UV(2342)+JVS(9878)*UV(4323)+JVS(9879)*UV(5250)+JVS(9880)*UV(5255) - JUV(2343) = JVS(9881)*UV(2343)+JVS(9882)*UV(4097)+JVS(9883)*UV(4146)+JVS(9884)*UV(5250)+JVS(9885)*UV(5252) - JUV(2344) = JVS(9886)*UV(2344)+JVS(9887)*UV(4719)+JVS(9888)*UV(5250) - JUV(2345) = JVS(9889)*UV(2345)+JVS(9890)*UV(3620)+JVS(9891)*UV(5250) - JUV(2346) = JVS(9892)*UV(2346)+JVS(9893)*UV(4428)+JVS(9894)*UV(5250)+JVS(9895)*UV(5255) - JUV(2347) = JVS(9896)*UV(2347)+JVS(9897)*UV(3990)+JVS(9898)*UV(5250)+JVS(9899)*UV(5252) - JUV(2348) = JVS(9900)*UV(2348)+JVS(9901)*UV(3976)+JVS(9902)*UV(5250)+JVS(9903)*UV(5255) - JUV(2349) = JVS(9904)*UV(2349)+JVS(9905)*UV(4324)+JVS(9906)*UV(5250)+JVS(9907)*UV(5255) - JUV(2350) = JVS(9908)*UV(2350)+JVS(9909)*UV(4974)+JVS(9910)*UV(5250)+JVS(9911)*UV(5252) - JUV(2351) = JVS(9912)*UV(2351)+JVS(9913)*UV(4076)+JVS(9914)*UV(5250)+JVS(9915)*UV(5255) - JUV(2352) = JVS(9916)*UV(2352)+JVS(9917)*UV(3962)+JVS(9918)*UV(5250)+JVS(9919)*UV(5252) - JUV(2353) = JVS(9920)*UV(2353)+JVS(9921)*UV(3303)+JVS(9922)*UV(4050)+JVS(9923)*UV(5250)+JVS(9924)*UV(5255) - JUV(2354) = JVS(9925)*UV(2354)+JVS(9926)*UV(5091)+JVS(9927)*UV(5250)+JVS(9928)*UV(5252) - JUV(2355) = JVS(9929)*UV(2355)+JVS(9930)*UV(4571)+JVS(9931)*UV(5250)+JVS(9932)*UV(5255) - JUV(2356) = JVS(9933)*UV(2356)+JVS(9934)*UV(2357)+JVS(9935)*UV(3452)+JVS(9936)*UV(4899)+JVS(9937)*UV(5250)+JVS(9938)& - &*UV(5252)+JVS(9939)*UV(5256) - JUV(2357) = JVS(9940)*UV(2357)+JVS(9941)*UV(4899)+JVS(9942)*UV(5250) - JUV(2358) = JVS(9943)*UV(2358)+JVS(9944)*UV(4787)+JVS(9945)*UV(5250)+JVS(9946)*UV(5255) - JUV(2359) = JVS(9947)*UV(2359)+JVS(9948)*UV(5249)+JVS(9949)*UV(5258) - JUV(2360) = JVS(9950)*UV(2360)+JVS(9951)*UV(3954)+JVS(9952)*UV(5250)+JVS(9953)*UV(5255) - JUV(2361) = JVS(9954)*UV(1326)+JVS(9955)*UV(2361)+JVS(9956)*UV(3212)+JVS(9957)*UV(4722)+JVS(9959)*UV(5252)+JVS(9961)& - &*UV(5256) - JUV(2362) = JVS(9962)*UV(2362)+JVS(9963)*UV(4148)+JVS(9964)*UV(5250)+JVS(9965)*UV(5255) - JUV(2363) = JVS(9966)*UV(2363)+JVS(9967)*UV(4881)+JVS(9968)*UV(5250)+JVS(9969)*UV(5255) - JUV(2364) = JVS(9970)*UV(2364)+JVS(9971)*UV(4908)+JVS(9972)*UV(5243)+JVS(9973)*UV(5250)+JVS(9974)*UV(5255) - JUV(2365) = JVS(9975)*UV(2365)+JVS(9976)*UV(5151)+JVS(9977)*UV(5250)+JVS(9978)*UV(5252) - JUV(2366) = JVS(9979)*UV(2366)+JVS(9980)*UV(4723)+JVS(9981)*UV(5250)+JVS(9982)*UV(5255) - JUV(2367) = JVS(9983)*UV(2367)+JVS(9984)*UV(4574)+JVS(9985)*UV(4645)+JVS(9986)*UV(5250)+JVS(9987)*UV(5252) - JUV(2368) = JVS(9988)*UV(2368)+JVS(9989)*UV(4153)+JVS(9990)*UV(5250)+JVS(9991)*UV(5255) - JUV(2369) = JVS(9992)*UV(2369)+JVS(9993)*UV(4777)+JVS(9994)*UV(5250)+JVS(9995)*UV(5255) - JUV(2370) = JVS(9996)*UV(2370)+JVS(9997)*UV(4607)+JVS(9998)*UV(4884)+JVS(9999)*UV(5250)+JVS(10000)*UV(5252) - JUV(2371) = JVS(10001)*UV(2371)+JVS(10002)*UV(4283)+JVS(10003)*UV(5250)+JVS(10004)*UV(5255) - JUV(2372) = JVS(10005)*UV(2372)+JVS(10006)*UV(4055)+JVS(10007)*UV(5250)+JVS(10008)*UV(5252) - JUV(2373) = JVS(10009)*UV(2373)+JVS(10010)*UV(4249)+JVS(10011)*UV(5250)+JVS(10012)*UV(5255) - JUV(2374) = JVS(10013)*UV(1265)+JVS(10014)*UV(2374)+JVS(10015)*UV(2542)+JVS(10016)*UV(4844)+JVS(10018)*UV(5252)& - &+JVS(10020)*UV(5256) - JUV(2375) = JVS(10021)*UV(2375)+JVS(10022)*UV(3676)+JVS(10023)*UV(5250)+JVS(10024)*UV(5252) - JUV(2376) = JVS(10025)*UV(2376)+JVS(10026)*UV(2609)+JVS(10027)*UV(4823)+JVS(10028)*UV(5252)+JVS(10029)*UV(5256) - JUV(2377) = JVS(10030)*UV(821)+JVS(10031)*UV(1260)+JVS(10032)*UV(2377)+JVS(10033)*UV(2458)+JVS(10034)*UV(2533)& - &+JVS(10035)*UV(3335)+JVS(10036)*UV(5196)+JVS(10037)*UV(5250) - JUV(2378) = JVS(10039)*UV(2378)+JVS(10040)*UV(3985)+JVS(10041)*UV(5250)+JVS(10042)*UV(5252) - JUV(2379) = JVS(10043)*UV(2379)+JVS(10044)*UV(3232)+JVS(10045)*UV(4041)+JVS(10046)*UV(5250)+JVS(10047)*UV(5255) - JUV(2380) = JVS(10048)*UV(2380)+JVS(10049)*UV(5019)+JVS(10050)*UV(5250)+JVS(10051)*UV(5255) - JUV(2381) = JVS(10052)*UV(958)+JVS(10053)*UV(2381)+JVS(10054)*UV(4926)+JVS(10056)*UV(5250)+JVS(10057)*UV(5255) - JUV(2382) = JVS(10058)*UV(2382)+JVS(10059)*UV(3443)+JVS(10060)*UV(5250) - JUV(2383) = JVS(10061)*UV(2383)+JVS(10062)*UV(3823)+JVS(10063)*UV(5250)+JVS(10064)*UV(5252) - JUV(2384) = JVS(10065)*UV(2384)+JVS(10066)*UV(4275)+JVS(10067)*UV(5250)+JVS(10068)*UV(5255) - JUV(2385) = JVS(10069)*UV(2385)+JVS(10070)*UV(5238)+JVS(10071)*UV(5250) - JUV(2386) = JVS(10072)*UV(2386)+JVS(10073)*UV(4236)+JVS(10074)*UV(5250)+JVS(10075)*UV(5255) - JUV(2387) = JVS(10076)*UV(2387)+JVS(10077)*UV(3691)+JVS(10078)*UV(5250)+JVS(10079)*UV(5252) - JUV(2388) = JVS(10080)*UV(2388)+JVS(10081)*UV(4445)+JVS(10082)*UV(5250)+JVS(10083)*UV(5255) - JUV(2389) = JVS(10084)*UV(2389)+JVS(10085)*UV(3680)+JVS(10086)*UV(5250)+JVS(10087)*UV(5255) - JUV(2390) = JVS(10088)*UV(2390)+JVS(10089)*UV(4533)+JVS(10090)*UV(5250)+JVS(10091)*UV(5256) - JUV(2391) = JVS(10092)*UV(2391)+JVS(10093)*UV(5185)+JVS(10094)*UV(5250)+JVS(10095)*UV(5255) - JUV(2392) = JVS(10096)*UV(2392)+JVS(10097)*UV(5035)+JVS(10098)*UV(5250)+JVS(10099)*UV(5255) - JUV(2393) = JVS(10100)*UV(2393)+JVS(10101)*UV(5076)+JVS(10102)*UV(5258) - JUV(2394) = JVS(10103)*UV(2394)+JVS(10104)*UV(4593)+JVS(10105)*UV(5250)+JVS(10106)*UV(5255) - JUV(2395) = JVS(10107)*UV(1658)+JVS(10108)*UV(2395)+JVS(10109)*UV(3287)+JVS(10110)*UV(4126)+JVS(10111)*UV(5250) - JUV(2396) = JVS(10112)*UV(2396)+JVS(10113)*UV(4281)+JVS(10114)*UV(5250)+JVS(10115)*UV(5255) - JUV(2397) = JVS(10116)*UV(2397)+JVS(10117)*UV(5117)+JVS(10118)*UV(5250)+JVS(10119)*UV(5255) - JUV(2398) = JVS(10120)*UV(2398)+JVS(10121)*UV(4743)+JVS(10122)*UV(5250)+JVS(10123)*UV(5256) - JUV(2399) = JVS(10124)*UV(918)+JVS(10125)*UV(2399)+JVS(10126)*UV(3533)+JVS(10127)*UV(5239)+JVS(10129)*UV(5252)& - &+JVS(10131)*UV(5256) - JUV(2400) = JVS(10132)*UV(2400)+JVS(10133)*UV(5161)+JVS(10134)*UV(5250)+JVS(10135)*UV(5255) - JUV(2401) = JVS(10136)*UV(2401)+JVS(10137)*UV(4356)+JVS(10138)*UV(5250)+JVS(10139)*UV(5255) - JUV(2402) = JVS(10140)*UV(2402)+JVS(10141)*UV(4269)+JVS(10142)*UV(5250)+JVS(10143)*UV(5255) - JUV(2403) = JVS(10144)*UV(2403)+JVS(10145)*UV(4886)+JVS(10146)*UV(5250)+JVS(10147)*UV(5252) - JUV(2404) = JVS(10148)*UV(2404)+JVS(10149)*UV(4560)+JVS(10150)*UV(5250)+JVS(10151)*UV(5255) - JUV(2405) = JVS(10152)*UV(2405)+JVS(10153)*UV(4368)+JVS(10154)*UV(5250)+JVS(10155)*UV(5252) - JUV(2406) = JVS(10156)*UV(2406)+JVS(10157)*UV(3804)+JVS(10158)*UV(5250)+JVS(10159)*UV(5252) - JUV(2407) = JVS(10160)*UV(2407)+JVS(10161)*UV(3872)+JVS(10162)*UV(5250)+JVS(10163)*UV(5255) - JUV(2408) = JVS(10164)*UV(2408)+JVS(10165)*UV(4764)+JVS(10166)*UV(5250)+JVS(10167)*UV(5252) - JUV(2409) = JVS(10168)*UV(2409)+JVS(10169)*UV(5045)+JVS(10170)*UV(5250)+JVS(10171)*UV(5255) - JUV(2410) = JVS(10172)*UV(2410)+JVS(10173)*UV(5038)+JVS(10174)*UV(5250)+JVS(10175)*UV(5255) - JUV(2411) = JVS(10176)*UV(2411)+JVS(10177)*UV(3916)+JVS(10178)*UV(5250)+JVS(10179)*UV(5255) - JUV(2412) = JVS(10180)*UV(2412)+JVS(10181)*UV(5232)+JVS(10182)*UV(5250)+JVS(10183)*UV(5255) - JUV(2413) = JVS(10184)*UV(2413)+JVS(10185)*UV(4714)+JVS(10186)*UV(5250)+JVS(10187)*UV(5255) - JUV(2414) = JVS(10188)*UV(2414)+JVS(10189)*UV(4489)+JVS(10190)*UV(5250)+JVS(10191)*UV(5255) - JUV(2415) = JVS(10192)*UV(95)+JVS(10193)*UV(1241)+JVS(10194)*UV(2415)+JVS(10195)*UV(2626)+JVS(10196)*UV(4091)& - &+JVS(10197)*UV(5250)+JVS(10198)*UV(5252)+JVS(10200)*UV(5256) - JUV(2416) = JVS(10201)*UV(2416)+JVS(10202)*UV(4942)+JVS(10203)*UV(5250)+JVS(10204)*UV(5255) - JUV(2417) = JVS(10205)*UV(2417)+JVS(10206)*UV(4416)+JVS(10207)*UV(5250)+JVS(10208)*UV(5255) - JUV(2418) = JVS(10209)*UV(2418)+JVS(10210)*UV(3794)+JVS(10211)*UV(5250)+JVS(10212)*UV(5252) - JUV(2419) = JVS(10213)*UV(2419)+JVS(10214)*UV(4058)+JVS(10215)*UV(5250)+JVS(10216)*UV(5252) - JUV(2420) = JVS(10217)*UV(2420)+JVS(10218)*UV(4152)+JVS(10219)*UV(5250)+JVS(10220)*UV(5256) - JUV(2421) = JVS(10221)*UV(2421)+JVS(10222)*UV(5121)+JVS(10223)*UV(5202)+JVS(10224)*UV(5250) - JUV(2422) = JVS(10225)*UV(2422)+JVS(10226)*UV(5109)+JVS(10227)*UV(5250)+JVS(10228)*UV(5255) - JUV(2423) = JVS(10229)*UV(2423)+JVS(10230)*UV(3905)+JVS(10231)*UV(5250)+JVS(10232)*UV(5255) - JUV(2424) = JVS(10233)*UV(2424)+JVS(10234)*UV(4169)+JVS(10235)*UV(5250)+JVS(10236)*UV(5255) - JUV(2425) = JVS(10237)*UV(2425)+JVS(10238)*UV(4907)+JVS(10239)*UV(5258) - JUV(2426) = JVS(10240)*UV(2426)+JVS(10241)*UV(3948)+JVS(10242)*UV(5250)+JVS(10243)*UV(5255) - JUV(2427) = JVS(10244)*UV(2427)+JVS(10245)*UV(5145)+JVS(10246)*UV(5250)+JVS(10247)*UV(5252) - JUV(2428) = JVS(10248)*UV(2428)+JVS(10249)*UV(4446)+JVS(10250)*UV(5250)+JVS(10251)*UV(5255) - JUV(2429) = JVS(10252)*UV(2429)+JVS(10253)*UV(4460)+JVS(10254)*UV(5250)+JVS(10255)*UV(5255) - JUV(2430) = JVS(10256)*UV(2430)+JVS(10257)*UV(2769)+JVS(10258)*UV(4742)+JVS(10259)*UV(5252)+JVS(10260)*UV(5256) - JUV(2431) = JVS(10261)*UV(2431)+JVS(10262)*UV(4259)+JVS(10263)*UV(5250)+JVS(10264)*UV(5255) - JUV(2432) = JVS(10265)*UV(2432)+JVS(10266)*UV(5138)+JVS(10267)*UV(5250)+JVS(10268)*UV(5252) - JUV(2433) = JVS(10269)*UV(2433)+JVS(10270)*UV(4370)+JVS(10271)*UV(5202)+JVS(10272)*UV(5250)+JVS(10273)*UV(5252) - JUV(2434) = JVS(10274)*UV(2434)+JVS(10275)*UV(4316)+JVS(10276)*UV(5250)+JVS(10277)*UV(5255) - JUV(2435) = JVS(10278)*UV(2435)+JVS(10279)*UV(5062)+JVS(10280)*UV(5250)+JVS(10281)*UV(5255) - JUV(2436) = JVS(10282)*UV(2436)+JVS(10283)*UV(5127)+JVS(10284)*UV(5250)+JVS(10285)*UV(5252) - JUV(2437) = JVS(10286)*UV(2437)+JVS(10287)*UV(4116)+JVS(10288)*UV(5250)+JVS(10289)*UV(5255) - JUV(2438) = JVS(10290)*UV(1671)+JVS(10291)*UV(2438)+JVS(10292)*UV(3623)+JVS(10293)*UV(4780)+JVS(10294)*UV(5250) - JUV(2439) = JVS(10295)*UV(2439)+JVS(10296)*UV(4762)+JVS(10297)*UV(5250)+JVS(10298)*UV(5255) - JUV(2440) = JVS(10299)*UV(2440)+JVS(10300)*UV(4130)+JVS(10301)*UV(5250)+JVS(10302)*UV(5255) - JUV(2441) = JVS(10303)*UV(2441)+JVS(10304)*UV(4598)+JVS(10305)*UV(4972)+JVS(10306)*UV(5250)+JVS(10307)*UV(5252) - JUV(2442) = JVS(10308)*UV(2442)+JVS(10309)*UV(4370)+JVS(10310)*UV(5250)+JVS(10311)*UV(5255) - JUV(2443) = JVS(10312)*UV(2443)+JVS(10313)*UV(4253)+JVS(10314)*UV(5250)+JVS(10315)*UV(5255) - JUV(2444) = JVS(10316)*UV(2444)+JVS(10317)*UV(3841)+JVS(10318)*UV(5250)+JVS(10319)*UV(5252) - JUV(2445) = JVS(10320)*UV(2445)+JVS(10321)*UV(4644)+JVS(10322)*UV(5250)+JVS(10323)*UV(5255) - JUV(2446) = JVS(10324)*UV(2446)+JVS(10325)*UV(3762)+JVS(10326)*UV(5250)+JVS(10327)*UV(5255) - JUV(2447) = JVS(10328)*UV(2447)+JVS(10329)*UV(4476)+JVS(10330)*UV(4782)+JVS(10331)*UV(5250)+JVS(10332)*UV(5252) - JUV(2448) = JVS(10333)*UV(1698)+JVS(10334)*UV(2448)+JVS(10335)*UV(3022)+JVS(10336)*UV(4513)+JVS(10337)*UV(5250) - JUV(2449) = JVS(10338)*UV(2449)+JVS(10339)*UV(4782)+JVS(10340)*UV(5250)+JVS(10341)*UV(5255) - JUV(2450) = JVS(10342)*UV(2450)+JVS(10343)*UV(3724)+JVS(10344)*UV(5250)+JVS(10345)*UV(5255) - JUV(2451) = JVS(10346)*UV(2451)+JVS(10347)*UV(3863)+JVS(10348)*UV(5250)+JVS(10349)*UV(5255) - JUV(2452) = JVS(10350)*UV(354)+JVS(10351)*UV(1353)+JVS(10352)*UV(2452)+JVS(10353)*UV(2742)+JVS(10354)*UV(3955)& - &+JVS(10355)*UV(5250)+JVS(10356)*UV(5252)+JVS(10358)*UV(5256) - JUV(2453) = JVS(10359)*UV(2453)+JVS(10360)*UV(3836)+JVS(10361)*UV(5250)+JVS(10362)*UV(5252) - JUV(2454) = JVS(10363)*UV(2454)+JVS(10364)*UV(3692)+JVS(10365)*UV(5250)+JVS(10366)*UV(5255) - JUV(2455) = JVS(10367)*UV(2455)+JVS(10368)*UV(4884)+JVS(10369)*UV(5250)+JVS(10370)*UV(5255) - JUV(2456) = JVS(10371)*UV(2456)+JVS(10372)*UV(4995)+JVS(10373)*UV(5250)+JVS(10374)*UV(5255) - JUV(2457) = JVS(10375)*UV(493)+JVS(10376)*UV(1367)+JVS(10377)*UV(2457)+JVS(10378)*UV(2629)+JVS(10379)*UV(4119)& - &+JVS(10380)*UV(5250)+JVS(10381)*UV(5252)+JVS(10383)*UV(5256) - JUV(2458) = JVS(10384)*UV(2458)+JVS(10385)*UV(5196)+JVS(10386)*UV(5250)+JVS(10387)*UV(5252) - JUV(2459) = JVS(10388)*UV(2459)+JVS(10389)*UV(5148)+JVS(10390)*UV(5250)+JVS(10391)*UV(5252) - JUV(2460) = JVS(10392)*UV(2460)+JVS(10393)*UV(4452)+JVS(10394)*UV(5250)+JVS(10395)*UV(5255) - JUV(2461) = JVS(10396)*UV(2461)+JVS(10397)*UV(4060)+JVS(10398)*UV(5250)+JVS(10399)*UV(5252) - JUV(2462) = JVS(10400)*UV(2462)+JVS(10401)*UV(4089)+JVS(10402)*UV(5250)+JVS(10403)*UV(5252) - JUV(2463) = JVS(10404)*UV(2463)+JVS(10405)*UV(3847)+JVS(10406)*UV(5250)+JVS(10407)*UV(5255) - JUV(2464) = JVS(10408)*UV(2464)+JVS(10409)*UV(4448)+JVS(10410)*UV(5250)+JVS(10411)*UV(5256) - JUV(2465) = JVS(10412)*UV(298)+JVS(10413)*UV(855)+JVS(10414)*UV(2465)+JVS(10415)*UV(2687)+JVS(10416)*UV(4981)& - &+JVS(10417)*UV(5250)+JVS(10418)*UV(5252)+JVS(10420)*UV(5256) - JUV(2466) = JVS(10421)*UV(2466)+JVS(10422)*UV(4889)+JVS(10423)*UV(5250)+JVS(10424)*UV(5255) - JUV(2467) = JVS(10425)*UV(392)+JVS(10426)*UV(2467)+JVS(10427)*UV(3214)+JVS(10428)*UV(4669)+JVS(10429)*UV(5250) - JUV(2468) = JVS(10430)*UV(2468)+JVS(10431)*UV(3903)+JVS(10432)*UV(5250) - JUV(2469) = JVS(10433)*UV(2469)+JVS(10434)*UV(4754)+JVS(10435)*UV(5250)+JVS(10436)*UV(5255) - JUV(2470) = JVS(10437)*UV(2470)+JVS(10438)*UV(4988)+JVS(10439)*UV(5258) - JUV(2471) = JVS(10440)*UV(142)+JVS(10441)*UV(2471)+JVS(10443)*UV(3712)+JVS(10444)*UV(4029)+JVS(10445)*UV(4062)& - &+JVS(10446)*UV(4071)+JVS(10447)*UV(4086)+JVS(10448)*UV(5250) - JUV(2472) = JVS(10449)*UV(2472)+JVS(10450)*UV(4393)+JVS(10451)*UV(5250) - JUV(2473) = JVS(10452)*UV(578)+JVS(10453)*UV(1080)+JVS(10454)*UV(2473)+JVS(10456)*UV(3888)+JVS(10458)*UV(5250)& - &+JVS(10459)*UV(5252)+JVS(10461)*UV(5256) - JUV(2474) = JVS(10462)*UV(2474)+JVS(10463)*UV(4388)+JVS(10464)*UV(5250) - JUV(2475) = JVS(10465)*UV(2475)+JVS(10466)*UV(4625)+JVS(10467)*UV(5250) - JUV(2476) = JVS(10468)*UV(2476)+JVS(10469)*UV(5166)+JVS(10470)*UV(5258) - JUV(2477) = JVS(10471)*UV(2477)+JVS(10472)*UV(4893)+JVS(10473)*UV(5250) - JUV(2478) = JVS(10474)*UV(1562)+JVS(10475)*UV(2478)+JVS(10476)*UV(4817)+JVS(10477)*UV(5250) - JUV(2479) = JVS(10478)*UV(2479)+JVS(10479)*UV(5227)+JVS(10480)*UV(5258) - JUV(2480) = JVS(10481)*UV(516)+JVS(10482)*UV(1059)+JVS(10483)*UV(2324)+JVS(10484)*UV(2462)+JVS(10485)*UV(2480)& - &+JVS(10486)*UV(2626)+JVS(10487)*UV(2888)+JVS(10488)*UV(4089)+JVS(10489)*UV(5250) - JUV(2481) = JVS(10493)*UV(2481)+JVS(10494)*UV(5050)+JVS(10495)*UV(5258) - JUV(2482) = JVS(10496)*UV(2482)+JVS(10497)*UV(4558)+JVS(10498)*UV(5250) - JUV(2483) = JVS(10499)*UV(2483)+JVS(10500)*UV(4779)+JVS(10501)*UV(5250) - JUV(2484) = JVS(10502)*UV(2484)+JVS(10503)*UV(4897)+JVS(10504)*UV(5250) - JUV(2485) = JVS(10505)*UV(2485)+JVS(10506)*UV(4877)+JVS(10507)*UV(5250) - JUV(2486) = JVS(10508)*UV(305)+JVS(10509)*UV(2486)+JVS(10511)*UV(5250) - JUV(2487) = JVS(10512)*UV(2487)+JVS(10513)*UV(4527)+JVS(10514)*UV(5258) - JUV(2488) = JVS(10515)*UV(85)+JVS(10516)*UV(2488)+JVS(10517)*UV(3582)+JVS(10518)*UV(3723)+JVS(10519)*UV(3765)& - &+JVS(10520)*UV(4024)+JVS(10521)*UV(4328)+JVS(10523)*UV(5250) - JUV(2489) = JVS(10524)*UV(2489)+JVS(10525)*UV(4615)+JVS(10526)*UV(5258) - JUV(2490) = JVS(10527)*UV(1069)+JVS(10528)*UV(2490)+JVS(10529)*UV(3076)+JVS(10530)*UV(4980)+JVS(10531)*UV(5078)& - &+JVS(10533)*UV(5252)+JVS(10535)*UV(5256) - JUV(2491) = JVS(10536)*UV(2491)+JVS(10537)*UV(4378)+JVS(10538)*UV(5250) - JUV(2492) = JVS(10539)*UV(622)+JVS(10540)*UV(1224)+JVS(10541)*UV(2492)+JVS(10542)*UV(4165)+JVS(10544)*UV(5252)& - &+JVS(10546)*UV(5256) - JUV(2493) = JVS(10547)*UV(1672)+JVS(10548)*UV(2493)+JVS(10549)*UV(3319)+JVS(10550)*UV(3799)+JVS(10551)*UV(5250)& - &+JVS(10552)*UV(5252)+JVS(10553)*UV(5256) - JUV(2494) = JVS(10554)*UV(2494)+JVS(10555)*UV(4414)+JVS(10556)*UV(5250)+JVS(10557)*UV(5255) - JUV(2495) = JVS(10558)*UV(311)+JVS(10559)*UV(1071)+JVS(10560)*UV(2495)+JVS(10561)*UV(3840)+JVS(10562)*UV(5250)& - &+JVS(10563)*UV(5252)+JVS(10565)*UV(5256) - JUV(2496) = JVS(10566)*UV(2496)+JVS(10567)*UV(5088)+JVS(10568)*UV(5250)+JVS(10569)*UV(5253) - JUV(2497) = JVS(10570)*UV(2497)+JVS(10571)*UV(4774)+JVS(10572)*UV(5250)+JVS(10573)*UV(5255) - JUV(2498) = JVS(10574)*UV(2498)+JVS(10575)*UV(4209)+JVS(10576)*UV(5250)+JVS(10577)*UV(5253) - JUV(2499) = JVS(10578)*UV(2499)+JVS(10579)*UV(3791)+JVS(10580)*UV(5250)+JVS(10581)*UV(5255) - JUV(2500) = JVS(10582)*UV(2500)+JVS(10583)*UV(5152)+JVS(10584)*UV(5250)+JVS(10585)*UV(5253) - JUV(2501) = JVS(10586)*UV(2501)+JVS(10587)*UV(4432)+JVS(10588)*UV(5250)+JVS(10589)*UV(5255) - JUV(2502) = JVS(10590)*UV(1288)+JVS(10591)*UV(2502)+JVS(10592)*UV(4112)+JVS(10594)*UV(5252)+JVS(10596)*UV(5256) - JUV(2503) = JVS(10597)*UV(2503)+JVS(10598)*UV(5007)+JVS(10599)*UV(5250)+JVS(10600)*UV(5255) - JUV(2504) = JVS(10601)*UV(2504)+JVS(10602)*UV(4968)+JVS(10603)*UV(5250)+JVS(10604)*UV(5253) - JUV(2505) = JVS(10605)*UV(2505)+JVS(10606)*UV(4218)+JVS(10607)*UV(5250)+JVS(10608)*UV(5253) - JUV(2506) = JVS(10609)*UV(1747)+JVS(10610)*UV(2506)+JVS(10611)*UV(3253)+JVS(10612)*UV(3827)+JVS(10613)*UV(5250)& - &+JVS(10614)*UV(5252)+JVS(10615)*UV(5256) - JUV(2507) = JVS(10616)*UV(2507)+JVS(10617)*UV(4831)+JVS(10618)*UV(5250)+JVS(10619)*UV(5255) - JUV(2508) = JVS(10620)*UV(1468)+JVS(10621)*UV(2508)+JVS(10622)*UV(3994)+JVS(10624)*UV(5252)+JVS(10626)*UV(5256) - JUV(2509) = JVS(10627)*UV(2509)+JVS(10628)*UV(3870)+JVS(10629)*UV(5250)+JVS(10630)*UV(5252) - JUV(2510) = JVS(10631)*UV(2510)+JVS(10632)*UV(4759)+JVS(10633)*UV(5250)+JVS(10634)*UV(5253) - JUV(2511) = JVS(10635)*UV(2511)+JVS(10636)*UV(5038)+JVS(10637)*UV(5250)+JVS(10638)*UV(5253) - JUV(2512) = JVS(10639)*UV(317)+JVS(10640)*UV(1012)+JVS(10641)*UV(2512)+JVS(10642)*UV(3985)+JVS(10643)*UV(5250)& - &+JVS(10644)*UV(5252)+JVS(10646)*UV(5256) - JUV(2513) = JVS(10647)*UV(2513)+JVS(10648)*UV(3854)+JVS(10649)*UV(5250)+JVS(10650)*UV(5252) - JUV(2514) = JVS(10651)*UV(2514)+JVS(10652)*UV(4357)+JVS(10653)*UV(5250)+JVS(10654)*UV(5252) - JUV(2515) = JVS(10655)*UV(2515)+JVS(10656)*UV(4484)+JVS(10657)*UV(5250)+JVS(10658)*UV(5253) - JUV(2516) = JVS(10659)*UV(920)+JVS(10660)*UV(2516)+JVS(10661)*UV(4146)+JVS(10663)*UV(5252)+JVS(10665)*UV(5256) - JUV(2517) = JVS(10666)*UV(2517)+JVS(10667)*UV(4222)+JVS(10668)*UV(5250)+JVS(10669)*UV(5253) - JUV(2518) = JVS(10670)*UV(2518)+JVS(10671)*UV(4846)+JVS(10672)*UV(5250)+JVS(10673)*UV(5253) - JUV(2519) = JVS(10674)*UV(2519)+JVS(10675)*UV(3893)+JVS(10676)*UV(5250)+JVS(10677)*UV(5252) - JUV(2520) = JVS(10678)*UV(2520)+JVS(10679)*UV(3813)+JVS(10680)*UV(5250)+JVS(10681)*UV(5255) - JUV(2521) = JVS(10682)*UV(350)+JVS(10683)*UV(1021)+JVS(10684)*UV(2521)+JVS(10685)*UV(3853)+JVS(10686)*UV(5250)& - &+JVS(10687)*UV(5252)+JVS(10689)*UV(5256) - JUV(2522) = JVS(10690)*UV(2522)+JVS(10691)*UV(4452)+JVS(10692)*UV(5250)+JVS(10693)*UV(5253) - JUV(2523) = JVS(10694)*UV(2523)+JVS(10695)*UV(4659)+JVS(10696)*UV(5250)+JVS(10697)*UV(5253) - JUV(2524) = JVS(10698)*UV(2524)+JVS(10699)*UV(4385)+JVS(10700)*UV(5250)+JVS(10701)*UV(5252) - JUV(2525) = JVS(10702)*UV(2525)+JVS(10703)*UV(5164)+JVS(10704)*UV(5250)+JVS(10705)*UV(5253) - JUV(2526) = JVS(10706)*UV(875)+JVS(10707)*UV(2526)+JVS(10708)*UV(4382)+JVS(10710)*UV(5252)+JVS(10712)*UV(5256) - JUV(2527) = JVS(10713)*UV(2527)+JVS(10714)*UV(4660)+JVS(10715)*UV(5250)+JVS(10716)*UV(5253) - JUV(2528) = JVS(10717)*UV(586)+JVS(10718)*UV(1337)+JVS(10719)*UV(2123)+JVS(10720)*UV(2528)+JVS(10721)*UV(4646)& - &+JVS(10723)*UV(5252)+JVS(10725)*UV(5256) - JUV(2529) = JVS(10726)*UV(2529)+JVS(10727)*UV(4267)+JVS(10728)*UV(5250)+JVS(10729)*UV(5253) - JUV(2530) = JVS(10730)*UV(2530)+JVS(10731)*UV(4220)+JVS(10732)*UV(5250)+JVS(10733)*UV(5253) - JUV(2531) = JVS(10734)*UV(2531)+JVS(10735)*UV(4516)+JVS(10736)*UV(5250)+JVS(10737)*UV(5253) - JUV(2532) = JVS(10738)*UV(2532)+JVS(10739)*UV(3845)+JVS(10740)*UV(5250)+JVS(10741)*UV(5252) - JUV(2533) = JVS(10742)*UV(2533)+JVS(10743)*UV(4849)+JVS(10744)*UV(5250)+JVS(10745)*UV(5253) - JUV(2534) = JVS(10746)*UV(2534)+JVS(10747)*UV(4099)+JVS(10748)*UV(5250)+JVS(10749)*UV(5252) - JUV(2535) = JVS(10750)*UV(979)+JVS(10751)*UV(2535)+JVS(10752)*UV(4195)+JVS(10754)*UV(5252)+JVS(10756)*UV(5256) - JUV(2536) = JVS(10757)*UV(1096)+JVS(10758)*UV(2536)+JVS(10759)*UV(4265)+JVS(10761)*UV(5252)+JVS(10763)*UV(5256) - JUV(2537) = JVS(10764)*UV(2537)+JVS(10765)*UV(5125)+JVS(10766)*UV(5250)+JVS(10767)*UV(5253) - JUV(2538) = JVS(10768)*UV(2538)+JVS(10769)*UV(4502)+JVS(10770)*UV(5250)+JVS(10771)*UV(5253) - JUV(2539) = JVS(10772)*UV(1895)+JVS(10773)*UV(2070)+JVS(10774)*UV(2539)+JVS(10775)*UV(5246)+JVS(10777)*UV(5252)& - &+JVS(10779)*UV(5256) - JUV(2540) = JVS(10780)*UV(2540)+JVS(10781)*UV(4563)+JVS(10782)*UV(5250)+JVS(10783)*UV(5255) - JUV(2541) = JVS(10784)*UV(2541)+JVS(10785)*UV(4046)+JVS(10786)*UV(5250)+JVS(10787)*UV(5255) - JUV(2542) = JVS(10788)*UV(2542)+JVS(10789)*UV(4844)+JVS(10790)*UV(5250)+JVS(10791)*UV(5252) - JUV(2543) = JVS(10792)*UV(2543)+JVS(10793)*UV(3869)+JVS(10794)*UV(5250)+JVS(10795)*UV(5255) - JUV(2544) = JVS(10796)*UV(2544)+JVS(10797)*UV(5224)+JVS(10798)*UV(5250)+JVS(10799)*UV(5255) - JUV(2545) = JVS(10800)*UV(55)+JVS(10801)*UV(1438)+JVS(10802)*UV(2545)+JVS(10803)*UV(3939)+JVS(10804)*UV(5250)& - &+JVS(10805)*UV(5252)+JVS(10807)*UV(5256) - JUV(2546) = JVS(10808)*UV(2546)+JVS(10809)*UV(4957)+JVS(10810)*UV(5250)+JVS(10811)*UV(5253) - JUV(2547) = JVS(10812)*UV(2129)+JVS(10813)*UV(2166)+JVS(10814)*UV(2547)+JVS(10815)*UV(4590)+JVS(10816)*UV(5250) - JUV(2548) = JVS(10818)*UV(2548)+JVS(10819)*UV(3361)+JVS(10820)*UV(3421)+JVS(10821)*UV(3574)+JVS(10822)*UV(3579)& - &+JVS(10823)*UV(5250) - JUV(2549) = JVS(10824)*UV(1778)+JVS(10825)*UV(2549)+JVS(10826)*UV(5096)+JVS(10828)*UV(5252)+JVS(10830)*UV(5256) - JUV(2550) = JVS(10831)*UV(1897)+JVS(10832)*UV(2550)+JVS(10833)*UV(4161)+JVS(10835)*UV(5252)+JVS(10837)*UV(5256) - JUV(2551) = JVS(10838)*UV(1187)+JVS(10839)*UV(2551)+JVS(10840)*UV(4317)+JVS(10842)*UV(5252)+JVS(10844)*UV(5256) - JUV(2552) = JVS(10845)*UV(2552)+JVS(10846)*UV(4808)+JVS(10847)*UV(5250)+JVS(10848)*UV(5253) - JUV(2553) = JVS(10849)*UV(2553)+JVS(10850)*UV(4561)+JVS(10851)*UV(5250)+JVS(10852)*UV(5255) - JUV(2554) = JVS(10853)*UV(2554)+JVS(10854)*UV(5033)+JVS(10855)*UV(5250)+JVS(10856)*UV(5255) - JUV(2555) = JVS(10857)*UV(2555)+JVS(10858)*UV(3989)+JVS(10859)*UV(5250)+JVS(10860)*UV(5252) - JUV(2556) = JVS(10861)*UV(2556)+JVS(10862)*UV(3899)+JVS(10863)*UV(5250)+JVS(10864)*UV(5255) - JUV(2557) = JVS(10865)*UV(1459)+JVS(10866)*UV(2557)+JVS(10867)*UV(4192)+JVS(10869)*UV(5252)+JVS(10871)*UV(5256) - JUV(2558) = JVS(10872)*UV(2558)+JVS(10873)*UV(4336)+JVS(10874)*UV(5250)+JVS(10875)*UV(5255) - JUV(2559) = JVS(10876)*UV(2559)+JVS(10877)*UV(4683)+JVS(10878)*UV(5250)+JVS(10879)*UV(5255) - JUV(2560) = JVS(10880)*UV(2560)+JVS(10881)*UV(4627)+JVS(10882)*UV(5250)+JVS(10883)*UV(5253) - JUV(2561) = JVS(10884)*UV(1272)+JVS(10885)*UV(2561)+JVS(10886)*UV(3950)+JVS(10888)*UV(5252)+JVS(10890)*UV(5256) - JUV(2562) = JVS(10891)*UV(762)+JVS(10892)*UV(1543)+JVS(10893)*UV(2271)+JVS(10894)*UV(2562)+JVS(10895)*UV(4709)& - &+JVS(10897)*UV(5252)+JVS(10899)*UV(5256) - JUV(2563) = JVS(10900)*UV(1554)+JVS(10901)*UV(2563)+JVS(10902)*UV(3279)+JVS(10903)*UV(3825)+JVS(10904)*UV(5250)& - &+JVS(10905)*UV(5252)+JVS(10906)*UV(5256) - JUV(2564) = JVS(10907)*UV(2564)+JVS(10908)*UV(4624)+JVS(10909)*UV(5250)+JVS(10910)*UV(5253) - JUV(2565) = JVS(10911)*UV(2565)+JVS(10912)*UV(3808)+JVS(10913)*UV(5250)+JVS(10914)*UV(5255) - JUV(2566) = JVS(10915)*UV(962)+JVS(10916)*UV(2566)+JVS(10917)*UV(4210)+JVS(10919)*UV(5252)+JVS(10921)*UV(5256) - JUV(2567) = JVS(10922)*UV(2567)+JVS(10923)*UV(4525)+JVS(10924)*UV(5250)+JVS(10925)*UV(5253) - JUV(2568) = JVS(10926)*UV(2568)+JVS(10927)*UV(3217)+JVS(10928)*UV(3837)+JVS(10929)*UV(5250) - JUV(2569) = JVS(10930)*UV(2569)+JVS(10931)*UV(4692)+JVS(10932)*UV(5250)+JVS(10933)*UV(5253) - JUV(2570) = JVS(10934)*UV(2570)+JVS(10935)*UV(5167)+JVS(10936)*UV(5250)+JVS(10937)*UV(5255) - JUV(2571) = JVS(10938)*UV(2571)+JVS(10939)*UV(4673)+JVS(10940)*UV(5250)+JVS(10941)*UV(5253) - JUV(2572) = JVS(10942)*UV(2572)+JVS(10943)*UV(4367)+JVS(10944)*UV(5250)+JVS(10945)*UV(5255) - JUV(2573) = JVS(10946)*UV(2573)+JVS(10947)*UV(4409)+JVS(10948)*UV(5250)+JVS(10949)*UV(5253) - JUV(2574) = JVS(10950)*UV(307)+JVS(10951)*UV(1239)+JVS(10952)*UV(1922)+JVS(10953)*UV(1923)+JVS(10954)*UV(2574)& - &+JVS(10955)*UV(3637)+JVS(10956)*UV(5250)+JVS(10958)*UV(5255) - JUV(2575) = JVS(10960)*UV(1148)+JVS(10961)*UV(2575)+JVS(10962)*UV(4287)+JVS(10964)*UV(5252)+JVS(10966)*UV(5256) - JUV(2576) = JVS(10967)*UV(2576)+JVS(10968)*UV(4269)+JVS(10969)*UV(5250)+JVS(10970)*UV(5253) - JUV(2577) = JVS(10971)*UV(1508)+JVS(10972)*UV(2577)+JVS(10973)*UV(4271)+JVS(10975)*UV(5252)+JVS(10977)*UV(5256) - JUV(2578) = JVS(10978)*UV(1527)+JVS(10979)*UV(2578)+JVS(10980)*UV(4117)+JVS(10982)*UV(5252)+JVS(10984)*UV(5256) - JUV(2579) = JVS(10985)*UV(2579)+JVS(10986)*UV(4405)+JVS(10987)*UV(5250)+JVS(10988)*UV(5253) - JUV(2580) = JVS(10989)*UV(2580)+JVS(10990)*UV(4772)+JVS(10991)*UV(5250)+JVS(10992)*UV(5255) - JUV(2581) = JVS(10993)*UV(1170)+JVS(10994)*UV(2581)+JVS(10995)*UV(3973)+JVS(10997)*UV(5252)+JVS(10999)*UV(5256) - JUV(2582) = JVS(11000)*UV(2582)+JVS(11001)*UV(5034)+JVS(11002)*UV(5250)+JVS(11003)*UV(5253) - JUV(2583) = JVS(11004)*UV(2583)+JVS(11005)*UV(4470)+JVS(11006)*UV(5250)+JVS(11007)*UV(5253) - JUV(2584) = JVS(11008)*UV(2584)+JVS(11009)*UV(4439)+JVS(11010)*UV(5250)+JVS(11011)*UV(5253) - JUV(2585) = JVS(11012)*UV(2585)+JVS(11013)*UV(3641)+JVS(11014)*UV(5250)+JVS(11015)*UV(5255) - JUV(2586) = JVS(11016)*UV(1532)+JVS(11017)*UV(2586)+JVS(11018)*UV(4193)+JVS(11020)*UV(5252)+JVS(11022)*UV(5256) - JUV(2587) = JVS(11023)*UV(2587)+JVS(11024)*UV(5099)+JVS(11025)*UV(5250)+JVS(11026)*UV(5253) - JUV(2588) = JVS(11027)*UV(1253)+JVS(11028)*UV(2588)+JVS(11029)*UV(4246)+JVS(11031)*UV(5252)+JVS(11033)*UV(5256) - JUV(2589) = JVS(11034)*UV(590)+JVS(11035)*UV(1204)+JVS(11036)*UV(2270)+JVS(11037)*UV(2589)+JVS(11038)*UV(4735)& - &+JVS(11040)*UV(5252)+JVS(11042)*UV(5256) - JUV(2590) = JVS(11043)*UV(2590)+JVS(11044)*UV(5154)+JVS(11045)*UV(5250)+JVS(11046)*UV(5255) - JUV(2591) = JVS(11047)*UV(1381)+JVS(11048)*UV(2591)+JVS(11049)*UV(3974)+JVS(11051)*UV(5252)+JVS(11053)*UV(5256) - JUV(2592) = JVS(11054)*UV(1602)+JVS(11055)*UV(2592)+JVS(11056)*UV(3693)+JVS(11057)*UV(4861)+JVS(11058)*UV(5250)& - &+JVS(11059)*UV(5252)+JVS(11060)*UV(5256) - JUV(2593) = JVS(11061)*UV(2593)+JVS(11062)*UV(4847)+JVS(11063)*UV(5250)+JVS(11064)*UV(5253) - JUV(2594) = JVS(11065)*UV(671)+JVS(11066)*UV(967)+JVS(11067)*UV(2245)+JVS(11068)*UV(2594)+JVS(11069)*UV(4712)& - &+JVS(11071)*UV(5252)+JVS(11073)*UV(5256) - JUV(2595) = JVS(11074)*UV(1700)+JVS(11075)*UV(2565)+JVS(11076)*UV(2595)+JVS(11077)*UV(3808)+JVS(11078)*UV(5250)& - &+JVS(11079)*UV(5252)+JVS(11081)*UV(5256) - JUV(2596) = JVS(11082)*UV(1220)+JVS(11083)*UV(2596)+JVS(11084)*UV(4578)+JVS(11086)*UV(5252)+JVS(11088)*UV(5256) - JUV(2597) = JVS(11089)*UV(2597)+JVS(11090)*UV(4638)+JVS(11091)*UV(5250)+JVS(11092)*UV(5253) - JUV(2598) = JVS(11093)*UV(1029)+JVS(11094)*UV(2598)+JVS(11095)*UV(4289)+JVS(11097)*UV(5252)+JVS(11099)*UV(5256) - JUV(2599) = JVS(11100)*UV(1524)+JVS(11101)*UV(2599)+JVS(11102)*UV(4252)+JVS(11104)*UV(5252)+JVS(11106)*UV(5256) - JUV(2600) = JVS(11107)*UV(2600)+JVS(11108)*UV(5111)+JVS(11109)*UV(5250)+JVS(11110)*UV(5253) - JUV(2601) = JVS(11111)*UV(2601)+JVS(11112)*UV(4675)+JVS(11113)*UV(5250)+JVS(11114)*UV(5255) - JUV(2602) = JVS(11115)*UV(2602)+JVS(11116)*UV(4347)+JVS(11117)*UV(5250)+JVS(11118)*UV(5255) - JUV(2603) = JVS(11119)*UV(2603)+JVS(11120)*UV(4985)+JVS(11121)*UV(5250)+JVS(11122)*UV(5255) - JUV(2604) = JVS(11123)*UV(1512)+JVS(11124)*UV(2604)+JVS(11125)*UV(4304)+JVS(11127)*UV(5252)+JVS(11129)*UV(5256) - JUV(2605) = JVS(11130)*UV(2605)+JVS(11131)*UV(4133)+JVS(11132)*UV(5250)+JVS(11133)*UV(5252) - JUV(2606) = JVS(11134)*UV(2606)+JVS(11135)*UV(5167)+JVS(11136)*UV(5250)+JVS(11137)*UV(5253) - JUV(2607) = JVS(11138)*UV(1116)+JVS(11139)*UV(2607)+JVS(11140)*UV(4465)+JVS(11142)*UV(5252)+JVS(11144)*UV(5256) - JUV(2608) = JVS(11145)*UV(2608)+JVS(11146)*UV(4214)+JVS(11147)*UV(5250)+JVS(11148)*UV(5253) - JUV(2609) = JVS(11149)*UV(2609)+JVS(11150)*UV(4823)+JVS(11151)*UV(5250)+JVS(11152)*UV(5255) - JUV(2610) = JVS(11153)*UV(2610)+JVS(11154)*UV(5056)+JVS(11155)*UV(5250)+JVS(11156)*UV(5252) - JUV(2611) = JVS(11157)*UV(2611)+JVS(11158)*UV(4944)+JVS(11159)*UV(5250)+JVS(11160)*UV(5253) - JUV(2612) = JVS(11161)*UV(2612)+JVS(11162)*UV(5106)+JVS(11163)*UV(5250)+JVS(11164)*UV(5253) - JUV(2613) = JVS(11165)*UV(2613)+JVS(11166)*UV(4431)+JVS(11167)*UV(5250)+JVS(11168)*UV(5253) - JUV(2614) = JVS(11169)*UV(1132)+JVS(11170)*UV(2092)+JVS(11171)*UV(2614)+JVS(11172)*UV(5097)+JVS(11174)*UV(5252)& - &+JVS(11176)*UV(5256) - JUV(2615) = JVS(11177)*UV(2615)+JVS(11178)*UV(4324)+JVS(11179)*UV(5250)+JVS(11180)*UV(5253) - JUV(2616) = JVS(11181)*UV(2616)+JVS(11182)*UV(5025)+JVS(11183)*UV(5250)+JVS(11184)*UV(5255) - JUV(2617) = JVS(11185)*UV(2617)+JVS(11186)*UV(4129)+JVS(11187)*UV(5250)+JVS(11188)*UV(5255) - JUV(2618) = JVS(11189)*UV(2618)+JVS(11190)*UV(4095)+JVS(11191)*UV(5250)+JVS(11192)*UV(5255) - JUV(2619) = JVS(11193)*UV(2619)+JVS(11194)*UV(4456)+JVS(11195)*UV(5250)+JVS(11196)*UV(5253) - JUV(2620) = JVS(11197)*UV(2620)+JVS(11198)*UV(4206)+JVS(11199)*UV(5250)+JVS(11200)*UV(5253) - JUV(2621) = JVS(11201)*UV(2621)+JVS(11202)*UV(5104)+JVS(11203)*UV(5250)+JVS(11204)*UV(5252) - JUV(2622) = JVS(11205)*UV(2622)+JVS(11206)*UV(5171)+JVS(11207)*UV(5250)+JVS(11208)*UV(5253) - JUV(2623) = JVS(11209)*UV(968)+JVS(11210)*UV(2623)+JVS(11211)*UV(5132)+JVS(11213)*UV(5252)+JVS(11215)*UV(5256) - JUV(2624) = JVS(11216)*UV(2624)+JVS(11217)*UV(3665)+JVS(11218)*UV(5250)+JVS(11219)*UV(5255) - JUV(2625) = JVS(11220)*UV(2625)+JVS(11221)*UV(4811)+JVS(11222)*UV(5250)+JVS(11223)*UV(5255) - JUV(2626) = JVS(11224)*UV(2626)+JVS(11225)*UV(4091)+JVS(11226)*UV(5250)+JVS(11227)*UV(5252) - JUV(2627) = JVS(11228)*UV(2627)+JVS(11229)*UV(4932)+JVS(11230)*UV(5250)+JVS(11231)*UV(5255) - JUV(2628) = JVS(11232)*UV(2628)+JVS(11233)*UV(4980)+JVS(11234)*UV(5250)+JVS(11235)*UV(5255) - JUV(2629) = JVS(11236)*UV(2629)+JVS(11237)*UV(4119)+JVS(11238)*UV(5250)+JVS(11239)*UV(5252) - JUV(2630) = JVS(11240)*UV(2630)+JVS(11241)*UV(4628)+JVS(11242)*UV(5250)+JVS(11243)*UV(5253) - JUV(2631) = JVS(11244)*UV(2631)+JVS(11245)*UV(4013)+JVS(11246)*UV(5250)+JVS(11247)*UV(5253) - JUV(2632) = JVS(11248)*UV(2632)+JVS(11249)*UV(4633)+JVS(11250)*UV(5250)+JVS(11251)*UV(5253) - JUV(2633) = JVS(11252)*UV(2633)+JVS(11253)*UV(3859)+JVS(11254)*UV(5250)+JVS(11255)*UV(5255) - JUV(2634) = JVS(11256)*UV(577)+JVS(11257)*UV(1177)+JVS(11258)*UV(2453)+JVS(11259)*UV(2634)+JVS(11260)*UV(3836)& - &+JVS(11262)*UV(5252)+JVS(11264)*UV(5256) - JUV(2635) = JVS(11265)*UV(2635)+JVS(11266)*UV(4772)+JVS(11267)*UV(5250)+JVS(11268)*UV(5253) - JUV(2636) = JVS(11269)*UV(2636)+JVS(11270)*UV(4664)+JVS(11271)*UV(5250)+JVS(11272)*UV(5253) - JUV(2637) = JVS(11273)*UV(2637)+JVS(11274)*UV(5027)+JVS(11275)*UV(5250)+JVS(11276)*UV(5253) - JUV(2638) = JVS(11277)*UV(804)+JVS(11278)*UV(1526)+JVS(11279)*UV(2330)+JVS(11280)*UV(2638)+JVS(11281)*UV(4715)& - &+JVS(11283)*UV(5252)+JVS(11285)*UV(5256) - JUV(2639) = JVS(11286)*UV(1899)+JVS(11287)*UV(2639)+JVS(11288)*UV(5121)+JVS(11290)*UV(5252)+JVS(11292)*UV(5256) - JUV(2640) = JVS(11293)*UV(2640)+JVS(11294)*UV(4641)+JVS(11295)*UV(5250)+JVS(11296)*UV(5253) - JUV(2641) = JVS(11297)*UV(917)+JVS(11298)*UV(2641)+JVS(11299)*UV(4291)+JVS(11301)*UV(5252)+JVS(11303)*UV(5256) - JUV(2642) = JVS(11304)*UV(616)+JVS(11305)*UV(1446)+JVS(11306)*UV(2124)+JVS(11307)*UV(2642)+JVS(11308)*UV(4713)& - &+JVS(11310)*UV(5252)+JVS(11312)*UV(5256) - JUV(2643) = JVS(11313)*UV(2643)+JVS(11314)*UV(4202)+JVS(11315)*UV(5250)+JVS(11316)*UV(5253) - JUV(2644) = JVS(11317)*UV(284)+JVS(11318)*UV(1499)+JVS(11319)*UV(2514)+JVS(11320)*UV(2644)+JVS(11321)*UV(4357)& - &+JVS(11322)*UV(5250)+JVS(11323)*UV(5252)+JVS(11325)*UV(5256) - JUV(2645) = JVS(11326)*UV(1623)+JVS(11327)*UV(2559)+JVS(11328)*UV(2645)+JVS(11329)*UV(4683)+JVS(11330)*UV(5250) - JUV(2646) = JVS(11332)*UV(1490)+JVS(11333)*UV(1978)+JVS(11334)*UV(2646)+JVS(11335)*UV(5120)+JVS(11337)*UV(5252)& - &+JVS(11339)*UV(5256) - JUV(2647) = JVS(11340)*UV(1842)+JVS(11341)*UV(2220)+JVS(11342)*UV(2647)+JVS(11343)*UV(5116)+JVS(11345)*UV(5252)& - &+JVS(11347)*UV(5256) - JUV(2648) = JVS(11348)*UV(2648)+JVS(11349)*UV(5014)+JVS(11350)*UV(5250)+JVS(11351)*UV(5253) - JUV(2649) = JVS(11352)*UV(2649)+JVS(11353)*UV(3828)+JVS(11354)*UV(5250)+JVS(11355)*UV(5255) - JUV(2650) = JVS(11356)*UV(2650)+JVS(11357)*UV(4656)+JVS(11358)*UV(5250)+JVS(11359)*UV(5253) - JUV(2651) = JVS(11360)*UV(2651)+JVS(11361)*UV(5006)+JVS(11362)*UV(5250)+JVS(11363)*UV(5253) - JUV(2652) = JVS(11364)*UV(2652)+JVS(11365)*UV(4026)+JVS(11366)*UV(5250)+JVS(11367)*UV(5255) - JUV(2653) = JVS(11368)*UV(2653)+JVS(11369)*UV(3869)+JVS(11370)*UV(5250)+JVS(11371)*UV(5252) - JUV(2654) = JVS(11372)*UV(2654)+JVS(11373)*UV(4536)+JVS(11374)*UV(5250)+JVS(11375)*UV(5255) - JUV(2655) = JVS(11376)*UV(2655)+JVS(11377)*UV(4548)+JVS(11378)*UV(5250)+JVS(11379)*UV(5253) - JUV(2656) = JVS(11380)*UV(2656)+JVS(11381)*UV(4829)+JVS(11382)*UV(5250)+JVS(11383)*UV(5253) - JUV(2657) = JVS(11384)*UV(2657)+JVS(11385)*UV(5244)+JVS(11386)*UV(5250)+JVS(11387)*UV(5253) - JUV(2658) = JVS(11388)*UV(2658)+JVS(11389)*UV(5021)+JVS(11390)*UV(5250)+JVS(11391)*UV(5253) - JUV(2659) = JVS(11392)*UV(1681)+JVS(11393)*UV(2602)+JVS(11394)*UV(2659)+JVS(11395)*UV(4347)+JVS(11396)*UV(5250)& - &+JVS(11397)*UV(5252)+JVS(11399)*UV(5256) - JUV(2660) = JVS(11400)*UV(2660)+JVS(11401)*UV(4867)+JVS(11402)*UV(5250)+JVS(11403)*UV(5253) - JUV(2661) = JVS(11404)*UV(2661)+JVS(11405)*UV(4545)+JVS(11406)*UV(5250)+JVS(11407)*UV(5252) - JUV(2662) = JVS(11408)*UV(62)+JVS(11409)*UV(2109)+JVS(11410)*UV(2662)+JVS(11411)*UV(5174)+JVS(11412)*UV(5250)& - &+JVS(11413)*UV(5252)+JVS(11415)*UV(5256) - JUV(2663) = JVS(11416)*UV(2663)+JVS(11417)*UV(4613)+JVS(11418)*UV(5250)+JVS(11419)*UV(5253) - JUV(2664) = JVS(11420)*UV(2664)+JVS(11421)*UV(4614)+JVS(11422)*UV(5250)+JVS(11423)*UV(5252) - JUV(2665) = JVS(11424)*UV(286)+JVS(11425)*UV(2665)+JVS(11426)*UV(5161)+JVS(11428)*UV(5250) - JUV(2666) = JVS(11429)*UV(2666)+JVS(11430)*UV(4679)+JVS(11431)*UV(5250)+JVS(11432)*UV(5253) - JUV(2667) = JVS(11433)*UV(1522)+JVS(11434)*UV(2667)+JVS(11435)*UV(4447)+JVS(11437)*UV(5252)+JVS(11439)*UV(5256) - JUV(2668) = JVS(11440)*UV(1255)+JVS(11441)*UV(2668)+JVS(11442)*UV(4303)+JVS(11444)*UV(5252)+JVS(11446)*UV(5256) - JUV(2669) = JVS(11447)*UV(2669)+JVS(11448)*UV(4500)+JVS(11449)*UV(5250)+JVS(11450)*UV(5253) - JUV(2670) = JVS(11451)*UV(2670)+JVS(11452)*UV(4436)+JVS(11453)*UV(5250)+JVS(11454)*UV(5253) - JUV(2671) = JVS(11455)*UV(2671)+JVS(11456)*UV(4680)+JVS(11457)*UV(5250)+JVS(11458)*UV(5253) - JUV(2672) = JVS(11459)*UV(2672)+JVS(11460)*UV(4127)+JVS(11461)*UV(5250)+JVS(11462)*UV(5252) - JUV(2673) = JVS(11463)*UV(2673)+JVS(11464)*UV(4172)+JVS(11465)*UV(5250)+JVS(11466)*UV(5252) - JUV(2674) = JVS(11467)*UV(2674)+JVS(11468)*UV(4451)+JVS(11469)*UV(5250)+JVS(11470)*UV(5253) - JUV(2675) = JVS(11471)*UV(2675)+JVS(11472)*UV(5101)+JVS(11473)*UV(5250)+JVS(11474)*UV(5253) - JUV(2676) = JVS(11475)*UV(1398)+JVS(11476)*UV(2676)+JVS(11477)*UV(4238)+JVS(11479)*UV(5252)+JVS(11481)*UV(5256) - JUV(2677) = JVS(11482)*UV(2677)+JVS(11483)*UV(4260)+JVS(11484)*UV(5250)+JVS(11485)*UV(5253) - JUV(2678) = JVS(11486)*UV(2678)+JVS(11487)*UV(4243)+JVS(11488)*UV(5250)+JVS(11489)*UV(5253) - JUV(2679) = JVS(11490)*UV(1099)+JVS(11491)*UV(2679)+JVS(11492)*UV(4991)+JVS(11494)*UV(5252)+JVS(11496)*UV(5256) - JUV(2680) = JVS(11497)*UV(500)+JVS(11498)*UV(2300)+JVS(11499)*UV(2680)+JVS(11500)*UV(4820)+JVS(11501)*UV(5250) - JUV(2681) = JVS(11503)*UV(2681)+JVS(11504)*UV(4168)+JVS(11505)*UV(5250)+JVS(11506)*UV(5253) - JUV(2682) = JVS(11507)*UV(1144)+JVS(11508)*UV(2682)+JVS(11509)*UV(4292)+JVS(11511)*UV(5252)+JVS(11513)*UV(5256) - JUV(2683) = JVS(11514)*UV(2683)+JVS(11515)*UV(4241)+JVS(11516)*UV(5250)+JVS(11517)*UV(5253) - JUV(2684) = JVS(11518)*UV(2684)+JVS(11519)*UV(5008)+JVS(11520)*UV(5250)+JVS(11521)*UV(5253) - JUV(2685) = JVS(11522)*UV(2685)+JVS(11523)*UV(4989)+JVS(11524)*UV(5250)+JVS(11525)*UV(5253) - JUV(2686) = JVS(11526)*UV(2686)+JVS(11527)*UV(4674)+JVS(11528)*UV(5250)+JVS(11529)*UV(5255) - JUV(2687) = JVS(11530)*UV(2687)+JVS(11531)*UV(4981)+JVS(11532)*UV(5250)+JVS(11533)*UV(5252) - JUV(2688) = JVS(11534)*UV(2688)+JVS(11535)*UV(5044)+JVS(11536)*UV(5250)+JVS(11537)*UV(5253) - JUV(2689) = JVS(11538)*UV(2689)+JVS(11539)*UV(4917)+JVS(11540)*UV(5250)+JVS(11541)*UV(5253) - JUV(2690) = JVS(11542)*UV(2690)+JVS(11543)*UV(4070)+JVS(11544)*UV(5250)+JVS(11545)*UV(5255) - JUV(2691) = JVS(11546)*UV(2691)+JVS(11547)*UV(5137)+JVS(11548)*UV(5250)+JVS(11549)*UV(5253) - JUV(2692) = JVS(11550)*UV(1495)+JVS(11551)*UV(2692)+JVS(11552)*UV(4118)+JVS(11554)*UV(5252)+JVS(11556)*UV(5256) - JUV(2693) = JVS(11557)*UV(2693)+JVS(11558)*UV(4785)+JVS(11559)*UV(5250)+JVS(11560)*UV(5255) - JUV(2694) = JVS(11561)*UV(863)+JVS(11562)*UV(2694)+JVS(11563)*UV(3846)+JVS(11565)*UV(5252)+JVS(11567)*UV(5256) - JUV(2695) = JVS(11568)*UV(2695)+JVS(11569)*UV(4341)+JVS(11570)*UV(5250)+JVS(11571)*UV(5255) - JUV(2696) = JVS(11572)*UV(2696)+JVS(11573)*UV(4966)+JVS(11574)*UV(5250)+JVS(11575)*UV(5253) - JUV(2697) = JVS(11576)*UV(758)+JVS(11577)*UV(1145)+JVS(11578)*UV(2282)+JVS(11579)*UV(2697)+JVS(11580)*UV(4903)& - &+JVS(11582)*UV(5252)+JVS(11584)*UV(5256) - JUV(2698) = JVS(11585)*UV(2698)+JVS(11586)*UV(4275)+JVS(11587)*UV(5250)+JVS(11588)*UV(5253) - JUV(2699) = JVS(11589)*UV(1965)+JVS(11590)*UV(2057)+JVS(11591)*UV(2699)+JVS(11592)*UV(5192)+JVS(11594)*UV(5252)& - &+JVS(11596)*UV(5256) - JUV(2700) = JVS(11597)*UV(2700)+JVS(11598)*UV(4731)+JVS(11599)*UV(5250)+JVS(11600)*UV(5253) - JUV(2701) = JVS(11601)*UV(2701)+JVS(11602)*UV(4580)+JVS(11603)*UV(5250)+JVS(11604)*UV(5252) - JUV(2702) = JVS(11605)*UV(2702)+JVS(11606)*UV(4522)+JVS(11607)*UV(5250)+JVS(11608)*UV(5253) - JUV(2703) = JVS(11609)*UV(2703)+JVS(11610)*UV(5054)+JVS(11611)*UV(5250)+JVS(11612)*UV(5253) - JUV(2704) = JVS(11613)*UV(2704)+JVS(11614)*UV(5052)+JVS(11615)*UV(5250)+JVS(11616)*UV(5253) - JUV(2705) = JVS(11617)*UV(2705)+JVS(11618)*UV(4460)+JVS(11619)*UV(5250)+JVS(11620)*UV(5253) - JUV(2706) = JVS(11621)*UV(1395)+JVS(11622)*UV(2706)+JVS(11623)*UV(4372)+JVS(11625)*UV(5252)+JVS(11627)*UV(5256) - JUV(2707) = JVS(11628)*UV(1809)+JVS(11629)*UV(2707)+JVS(11630)*UV(5195)+JVS(11632)*UV(5252)+JVS(11634)*UV(5256) - JUV(2708) = JVS(11635)*UV(2708)+JVS(11636)*UV(5017)+JVS(11637)*UV(5250)+JVS(11638)*UV(5253) - JUV(2709) = JVS(11639)*UV(2709)+JVS(11640)*UV(3815)+JVS(11641)*UV(5250)+JVS(11642)*UV(5255) - JUV(2710) = JVS(11643)*UV(1298)+JVS(11644)*UV(2149)+JVS(11645)*UV(2710)+JVS(11646)*UV(5186)+JVS(11648)*UV(5252)& - &+JVS(11650)*UV(5256) - JUV(2711) = JVS(11651)*UV(1683)+JVS(11652)*UV(1917)+JVS(11653)*UV(2711)+JVS(11654)*UV(4589)+JVS(11655)*UV(5250) - JUV(2712) = JVS(11657)*UV(2712)+JVS(11658)*UV(4822)+JVS(11659)*UV(5250)+JVS(11660)*UV(5253) - JUV(2713) = JVS(11661)*UV(2713)+JVS(11662)*UV(3859)+JVS(11663)*UV(5250)+JVS(11664)*UV(5252) - JUV(2714) = JVS(11665)*UV(1598)+JVS(11666)*UV(2714)+JVS(11667)*UV(3238)+JVS(11668)*UV(4667)+JVS(11669)*UV(5250) - JUV(2715) = JVS(11670)*UV(2715)+JVS(11671)*UV(5098)+JVS(11672)*UV(5250)+JVS(11673)*UV(5255) - JUV(2716) = JVS(11674)*UV(381)+JVS(11675)*UV(1160)+JVS(11676)*UV(1952)+JVS(11677)*UV(2716)+JVS(11678)*UV(3676)& - &+JVS(11679)*UV(4610)+JVS(11680)*UV(5250)+JVS(11682)*UV(5255) - JUV(2717) = JVS(11683)*UV(2147)+JVS(11684)*UV(2717)+JVS(11685)*UV(5015)+JVS(11687)*UV(5252)+JVS(11689)*UV(5256) - JUV(2718) = JVS(11690)*UV(2718)+JVS(11691)*UV(4419)+JVS(11692)*UV(5250)+JVS(11693)*UV(5253) - JUV(2719) = JVS(11694)*UV(357)+JVS(11695)*UV(1077)+JVS(11696)*UV(2303)+JVS(11697)*UV(2327)+JVS(11698)*UV(2719)& - &+JVS(11699)*UV(3855)+JVS(11701)*UV(5250) - JUV(2720) = JVS(11704)*UV(1886)+JVS(11705)*UV(2720)+JVS(11706)*UV(4645)+JVS(11708)*UV(5252)+JVS(11710)*UV(5256) - JUV(2721) = JVS(11711)*UV(2721)+JVS(11712)*UV(4620)+JVS(11713)*UV(5250)+JVS(11714)*UV(5253) - JUV(2722) = JVS(11715)*UV(1492)+JVS(11716)*UV(1933)+JVS(11717)*UV(2722)+JVS(11718)*UV(4789)+JVS(11720)*UV(5252)& - &+JVS(11722)*UV(5256) - JUV(2723) = JVS(11723)*UV(2723)+JVS(11724)*UV(4235)+JVS(11725)*UV(5250)+JVS(11726)*UV(5255) - JUV(2724) = JVS(11727)*UV(902)+JVS(11728)*UV(2724)+JVS(11729)*UV(4510)+JVS(11731)*UV(5252)+JVS(11733)*UV(5256) - JUV(2725) = JVS(11734)*UV(2725)+JVS(11735)*UV(4308)+JVS(11736)*UV(5250)+JVS(11737)*UV(5253) - JUV(2726) = JVS(11738)*UV(2726)+JVS(11739)*UV(4850)+JVS(11740)*UV(5250)+JVS(11741)*UV(5253) - JUV(2727) = JVS(11742)*UV(2727)+JVS(11743)*UV(4144)+JVS(11744)*UV(5250)+JVS(11745)*UV(5255) - JUV(2728) = JVS(11746)*UV(1594)+JVS(11747)*UV(2728)+JVS(11748)*UV(3295)+JVS(11749)*UV(3631)+JVS(11750)*UV(5250)& - &+JVS(11751)*UV(5252)+JVS(11752)*UV(5256) - JUV(2729) = JVS(11753)*UV(2729)+JVS(11754)*UV(4520)+JVS(11755)*UV(5250)+JVS(11756)*UV(5253) - JUV(2730) = JVS(11757)*UV(2730)+JVS(11758)*UV(4911)+JVS(11759)*UV(5250)+JVS(11760)*UV(5255) - JUV(2731) = JVS(11761)*UV(1105)+JVS(11762)*UV(2731)+JVS(11763)*UV(4273)+JVS(11765)*UV(5252)+JVS(11767)*UV(5256) - JUV(2732) = JVS(11768)*UV(1729)+JVS(11769)*UV(2732)+JVS(11770)*UV(3235)+JVS(11771)*UV(3659)+JVS(11772)*UV(5250)& - &+JVS(11773)*UV(5252)+JVS(11774)*UV(5256) - JUV(2733) = JVS(11775)*UV(1278)+JVS(11776)*UV(2733)+JVS(11777)*UV(4204)+JVS(11779)*UV(5252)+JVS(11781)*UV(5256) - JUV(2734) = JVS(11782)*UV(2734)+JVS(11783)*UV(3654)+JVS(11784)*UV(3660)+JVS(11785)*UV(4923)+JVS(11786)*UV(5252)& - &+JVS(11787)*UV(5256) - JUV(2735) = JVS(11788)*UV(2735)+JVS(11789)*UV(5075)+JVS(11790)*UV(5250)+JVS(11791)*UV(5253) - JUV(2736) = JVS(11792)*UV(1166)+JVS(11793)*UV(2736)+JVS(11794)*UV(4285)+JVS(11796)*UV(5252)+JVS(11798)*UV(5256) - JUV(2737) = JVS(11799)*UV(2737)+JVS(11800)*UV(4542)+JVS(11801)*UV(5250)+JVS(11802)*UV(5255) - JUV(2738) = JVS(11803)*UV(2738)+JVS(11804)*UV(4281)+JVS(11805)*UV(5250)+JVS(11806)*UV(5253) - JUV(2739) = JVS(11807)*UV(1117)+JVS(11808)*UV(2739)+JVS(11809)*UV(4188)+JVS(11811)*UV(5252)+JVS(11813)*UV(5256) - JUV(2740) = JVS(11814)*UV(2740)+JVS(11815)*UV(3663)+JVS(11816)*UV(5250)+JVS(11817)*UV(5255) - JUV(2741) = JVS(11818)*UV(1190)+JVS(11819)*UV(2741)+JVS(11820)*UV(4225)+JVS(11822)*UV(5252)+JVS(11824)*UV(5256) - JUV(2742) = JVS(11825)*UV(2742)+JVS(11826)*UV(3955)+JVS(11827)*UV(5250)+JVS(11828)*UV(5252) - JUV(2743) = JVS(11829)*UV(2743)+JVS(11830)*UV(4380)+JVS(11831)*UV(5250)+JVS(11832)*UV(5253) - JUV(2744) = JVS(11833)*UV(1758)+JVS(11834)*UV(2744)+JVS(11835)*UV(3990)+JVS(11837)*UV(5252)+JVS(11839)*UV(5256) - JUV(2745) = JVS(11840)*UV(1142)+JVS(11841)*UV(2074)+JVS(11842)*UV(2745)+JVS(11843)*UV(4374)+JVS(11845)*UV(5252)& - &+JVS(11847)*UV(5256) - JUV(2746) = JVS(11848)*UV(127)+JVS(11849)*UV(1183)+JVS(11850)*UV(2746)+JVS(11851)*UV(3886)+JVS(11852)*UV(5250)& - &+JVS(11853)*UV(5252)+JVS(11855)*UV(5256) - JUV(2747) = JVS(11856)*UV(2006)+JVS(11857)*UV(2747)+JVS(11858)*UV(4562)+JVS(11860)*UV(5252)+JVS(11862)*UV(5256) - JUV(2748) = JVS(11863)*UV(2748)+JVS(11864)*UV(4840)+JVS(11865)*UV(5194)+JVS(11866)*UV(5258) - JUV(2749) = JVS(11867)*UV(1485)+JVS(11868)*UV(2749)+JVS(11869)*UV(4572)+JVS(11871)*UV(5252)+JVS(11873)*UV(5256) - JUV(2750) = JVS(11874)*UV(984)+JVS(11875)*UV(2750)+JVS(11876)*UV(3949)+JVS(11878)*UV(5252)+JVS(11880)*UV(5256) - JUV(2751) = JVS(11881)*UV(960)+JVS(11882)*UV(2751)+JVS(11883)*UV(4421)+JVS(11885)*UV(5252)+JVS(11887)*UV(5256) - JUV(2752) = JVS(11888)*UV(1837)+JVS(11889)*UV(2752)+JVS(11890)*UV(4835)+JVS(11892)*UV(5252)+JVS(11894)*UV(5256) - JUV(2753) = JVS(11895)*UV(2753)+JVS(11896)*UV(4127)+JVS(11897)*UV(5250)+JVS(11898)*UV(5255) - JUV(2754) = JVS(11899)*UV(2754)+JVS(11900)*UV(4299)+JVS(11901)*UV(5250)+JVS(11902)*UV(5255) - JUV(2755) = JVS(11903)*UV(2755)+JVS(11904)*UV(4990)+JVS(11905)*UV(5250)+JVS(11906)*UV(5253) - JUV(2756) = JVS(11907)*UV(2756)+JVS(11908)*UV(4854)+JVS(11909)*UV(5250)+JVS(11910)*UV(5253) - JUV(2757) = JVS(11911)*UV(2757)+JVS(11912)*UV(4611)+JVS(11913)*UV(5250)+JVS(11914)*UV(5253) - JUV(2758) = JVS(11915)*UV(1293)+JVS(11916)*UV(2758)+JVS(11917)*UV(4031)+JVS(11919)*UV(5252)+JVS(11921)*UV(5256) - JUV(2759) = JVS(11922)*UV(2759)+JVS(11923)*UV(4166)+JVS(11924)*UV(5250)+JVS(11925)*UV(5252) - JUV(2760) = JVS(11926)*UV(1115)+JVS(11927)*UV(2760)+JVS(11928)*UV(4270)+JVS(11930)*UV(5252)+JVS(11932)*UV(5256) - JUV(2761) = JVS(11933)*UV(2761)+JVS(11934)*UV(3885)+JVS(11935)*UV(5250)+JVS(11936)*UV(5252) - JUV(2762) = JVS(11937)*UV(1664)+JVS(11938)*UV(2762)+JVS(11939)*UV(3320)+JVS(11940)*UV(3796)+JVS(11941)*UV(5250)& - &+JVS(11942)*UV(5252)+JVS(11943)*UV(5256) - JUV(2763) = JVS(11944)*UV(2763)+JVS(11945)*UV(4267)+JVS(11946)*UV(5250)+JVS(11947)*UV(5255) - JUV(2764) = JVS(11948)*UV(2764)+JVS(11949)*UV(4612)+JVS(11950)*UV(5250)+JVS(11951)*UV(5252) - JUV(2765) = JVS(11952)*UV(2765)+JVS(11953)*UV(4046)+JVS(11954)*UV(5250)+JVS(11955)*UV(5253) - JUV(2766) = JVS(11956)*UV(2766)+JVS(11957)*UV(4888)+JVS(11958)*UV(5250)+JVS(11959)*UV(5255) - JUV(2767) = JVS(11960)*UV(2019)+JVS(11961)*UV(2403)+JVS(11962)*UV(2767)+JVS(11963)*UV(4886)+JVS(11965)*UV(5252)& - &+JVS(11967)*UV(5256) - JUV(2768) = JVS(11968)*UV(1393)+JVS(11969)*UV(2768)+JVS(11970)*UV(4182)+JVS(11972)*UV(5252)+JVS(11974)*UV(5256) - JUV(2769) = JVS(11975)*UV(2769)+JVS(11976)*UV(4742)+JVS(11977)*UV(5250)+JVS(11978)*UV(5255) - JUV(2770) = JVS(11979)*UV(2354)+JVS(11980)*UV(2770)+JVS(11981)*UV(3621)+JVS(11982)*UV(5091)+JVS(11984)*UV(5252)& - &+JVS(11985)*UV(5256) - JUV(2771) = JVS(11986)*UV(841)+JVS(11987)*UV(2771)+JVS(11988)*UV(4111)+JVS(11990)*UV(5252)+JVS(11992)*UV(5256) - JUV(2772) = JVS(11993)*UV(2772)+JVS(11994)*UV(4752)+JVS(11995)*UV(5250)+JVS(11996)*UV(5253) - JUV(2773) = JVS(11997)*UV(313)+JVS(11998)*UV(872)+JVS(11999)*UV(1972)+JVS(12000)*UV(2773)+JVS(12001)*UV(3313)& - &+JVS(12002)*UV(3698)+JVS(12003)*UV(5250) - JUV(2774) = JVS(12006)*UV(2774)+JVS(12007)*UV(5053)+JVS(12008)*UV(5250)+JVS(12009)*UV(5255) - JUV(2775) = JVS(12010)*UV(2775)+JVS(12011)*UV(3873)+JVS(12012)*UV(5250)+JVS(12013)*UV(5255) - JUV(2776) = JVS(12014)*UV(1669)+JVS(12015)*UV(2649)+JVS(12016)*UV(2776)+JVS(12017)*UV(3828)+JVS(12018)*UV(5250)& - &+JVS(12019)*UV(5252)+JVS(12021)*UV(5256) - JUV(2777) = JVS(12022)*UV(2777)+JVS(12023)*UV(4636)+JVS(12024)*UV(5250)+JVS(12025)*UV(5253) - JUV(2778) = JVS(12026)*UV(2778)+JVS(12027)*UV(4523)+JVS(12028)*UV(5250)+JVS(12029)*UV(5253) - JUV(2779) = JVS(12030)*UV(2779)+JVS(12031)*UV(4686)+JVS(12032)*UV(5250)+JVS(12033)*UV(5253) - JUV(2780) = JVS(12034)*UV(2780)+JVS(12035)*UV(4187)+JVS(12036)*UV(5250)+JVS(12037)*UV(5253) - JUV(2781) = JVS(12038)*UV(2781)+JVS(12039)*UV(4738)+JVS(12040)*UV(5250)+JVS(12041)*UV(5253) - JUV(2782) = JVS(12042)*UV(2782)+JVS(12043)*UV(4529)+JVS(12044)*UV(5250)+JVS(12045)*UV(5252) - JUV(2783) = JVS(12046)*UV(2783)+JVS(12047)*UV(4668)+JVS(12048)*UV(4677)+JVS(12049)*UV(5152)+JVS(12050)*UV(5250)& - &+JVS(12051)*UV(5255) - JUV(2784) = JVS(12052)*UV(2784)+JVS(12053)*UV(4230)+JVS(12054)*UV(5250)+JVS(12055)*UV(5253) - JUV(2785) = JVS(12056)*UV(2785)+JVS(12057)*UV(3893)+JVS(12058)*UV(5250)+JVS(12059)*UV(5255) - JUV(2786) = JVS(12060)*UV(2786)+JVS(12061)*UV(4962)+JVS(12062)*UV(5250)+JVS(12063)*UV(5253) - JUV(2787) = JVS(12064)*UV(2787)+JVS(12065)*UV(4642)+JVS(12066)*UV(5250)+JVS(12067)*UV(5253) - JUV(2788) = JVS(12068)*UV(866)+JVS(12069)*UV(2788)+JVS(12070)*UV(4543)+JVS(12072)*UV(5252)+JVS(12074)*UV(5256) - JUV(2789) = JVS(12075)*UV(1555)+JVS(12076)*UV(2499)+JVS(12077)*UV(2789)+JVS(12078)*UV(3791)+JVS(12079)*UV(5250)& - &+JVS(12080)*UV(5252)+JVS(12082)*UV(5256) - JUV(2790) = JVS(12083)*UV(2790)+JVS(12084)*UV(4949)+JVS(12085)*UV(5250)+JVS(12086)*UV(5253) - JUV(2791) = JVS(12087)*UV(2791)+JVS(12088)*UV(4255)+JVS(12089)*UV(5250)+JVS(12090)*UV(5253) - JUV(2792) = JVS(12091)*UV(2792)+JVS(12092)*UV(5243)+JVS(12093)*UV(5250)+JVS(12094)*UV(5253) - JUV(2793) = JVS(12095)*UV(2793)+JVS(12096)*UV(5100)+JVS(12097)*UV(5250)+JVS(12098)*UV(5253) - JUV(2794) = JVS(12099)*UV(2794)+JVS(12100)*UV(4536)+JVS(12101)*UV(5250)+JVS(12102)*UV(5253) - JUV(2795) = JVS(12103)*UV(1185)+JVS(12104)*UV(2795)+JVS(12105)*UV(4695)+JVS(12107)*UV(5252)+JVS(12109)*UV(5256) - JUV(2796) = JVS(12110)*UV(2796)+JVS(12111)*UV(4414)+JVS(12112)*UV(5250)+JVS(12113)*UV(5253) - JUV(2797) = JVS(12114)*UV(2797)+JVS(12115)*UV(3992)+JVS(12116)*UV(5250)+JVS(12117)*UV(5255) - JUV(2798) = JVS(12118)*UV(2468)+JVS(12119)*UV(2798)+JVS(12120)*UV(2799)+JVS(12121)*UV(3903)+JVS(12122)*UV(5250)& - &+JVS(12123)*UV(5252)+JVS(12124)*UV(5256) - JUV(2799) = JVS(12125)*UV(2799)+JVS(12126)*UV(3903)+JVS(12127)*UV(5250)+JVS(12128)*UV(5255) - JUV(2800) = JVS(12129)*UV(2800)+JVS(12130)*UV(4207)+JVS(12131)*UV(5250)+JVS(12132)*UV(5253) - JUV(2801) = JVS(12133)*UV(2801)+JVS(12134)*UV(4259)+JVS(12135)*UV(5250)+JVS(12136)*UV(5253) - JUV(2802) = JVS(12137)*UV(2802)+JVS(12138)*UV(5130)+JVS(12139)*UV(5250)+JVS(12140)*UV(5252) - JUV(2803) = JVS(12141)*UV(2803)+JVS(12142)*UV(3759)+JVS(12143)*UV(4053)+JVS(12144)*UV(5250) - JUV(2804) = JVS(12145)*UV(2804)+JVS(12146)*UV(5214)+JVS(12147)*UV(5250)+JVS(12148)*UV(5253) - JUV(2805) = JVS(12149)*UV(2805)+JVS(12150)*UV(4353)+JVS(12151)*UV(5250)+JVS(12152)*UV(5255) - JUV(2806) = JVS(12153)*UV(1549)+JVS(12154)*UV(2806)+JVS(12155)*UV(3321)+JVS(12156)*UV(3820)+JVS(12157)*UV(5250)& - &+JVS(12158)*UV(5252)+JVS(12159)*UV(5256) - JUV(2807) = JVS(12160)*UV(2807)+JVS(12161)*UV(2828)+JVS(12162)*UV(4640)+JVS(12163)*UV(4845)+JVS(12164)*UV(5252)& - &+JVS(12165)*UV(5256) - JUV(2808) = JVS(12166)*UV(2808)+JVS(12167)*UV(4930)+JVS(12168)*UV(5250)+JVS(12169)*UV(5253) - JUV(2809) = JVS(12170)*UV(1485)+JVS(12171)*UV(1875)+JVS(12172)*UV(2809)+JVS(12173)*UV(4572)+JVS(12174)*UV(5250) - JUV(2810) = JVS(12176)*UV(2810)+JVS(12177)*UV(4614)+JVS(12178)*UV(5250)+JVS(12179)*UV(5255) - JUV(2811) = JVS(12180)*UV(2811)+JVS(12181)*UV(4428)+JVS(12182)*UV(5250)+JVS(12183)*UV(5253) - JUV(2812) = JVS(12184)*UV(2812)+JVS(12185)*UV(4189)+JVS(12186)*UV(5250)+JVS(12187)*UV(5252) - JUV(2813) = JVS(12188)*UV(2813)+JVS(12189)*UV(5245)+JVS(12190)*UV(5250)+JVS(12191)*UV(5253) - JUV(2814) = JVS(12192)*UV(2814)+JVS(12193)*UV(4561)+JVS(12194)*UV(5250)+JVS(12195)*UV(5252) - JUV(2815) = JVS(12196)*UV(2815)+JVS(12197)*UV(4316)+JVS(12198)*UV(5250)+JVS(12199)*UV(5253) - JUV(2816) = JVS(12200)*UV(1098)+JVS(12201)*UV(2816)+JVS(12202)*UV(4159)+JVS(12204)*UV(5252)+JVS(12206)*UV(5256) - JUV(2817) = JVS(12207)*UV(2817)+JVS(12208)*UV(4609)+JVS(12209)*UV(5250)+JVS(12210)*UV(5252) - JUV(2818) = JVS(12211)*UV(1399)+JVS(12212)*UV(2818)+JVS(12213)*UV(4312)+JVS(12215)*UV(5252)+JVS(12217)*UV(5256) - JUV(2819) = JVS(12218)*UV(877)+JVS(12219)*UV(2819)+JVS(12220)*UV(4149)+JVS(12222)*UV(5252)+JVS(12224)*UV(5256) - JUV(2820) = JVS(12225)*UV(1215)+JVS(12226)*UV(2820)+JVS(12227)*UV(4750)+JVS(12229)*UV(5252)+JVS(12231)*UV(5256) - JUV(2821) = JVS(12232)*UV(1306)+JVS(12233)*UV(2821)+JVS(12234)*UV(3865)+JVS(12236)*UV(5252)+JVS(12238)*UV(5256) - JUV(2822) = JVS(12239)*UV(2822)+JVS(12240)*UV(4979)+JVS(12241)*UV(5250)+JVS(12242)*UV(5253) - JUV(2823) = JVS(12243)*UV(2823)+JVS(12244)*UV(4539)+JVS(12245)*UV(5250)+JVS(12246)*UV(5253) - JUV(2824) = JVS(12247)*UV(2824)+JVS(12248)*UV(4516)+JVS(12249)*UV(5250)+JVS(12250)*UV(5255) - JUV(2825) = JVS(12251)*UV(2825)+JVS(12252)*UV(5237)+JVS(12253)*UV(5250)+JVS(12254)*UV(5253) - JUV(2826) = JVS(12255)*UV(636)+JVS(12256)*UV(1441)+JVS(12257)*UV(1963)+JVS(12258)*UV(2826)+JVS(12259)*UV(4573)& - &+JVS(12261)*UV(5252)+JVS(12263)*UV(5256) - JUV(2827) = JVS(12264)*UV(908)+JVS(12265)*UV(2827)+JVS(12266)*UV(4211)+JVS(12268)*UV(5252)+JVS(12270)*UV(5256) - JUV(2828) = JVS(12271)*UV(2828)+JVS(12272)*UV(4640)+JVS(12273)*UV(5250)+JVS(12274)*UV(5255) - JUV(2829) = JVS(12275)*UV(2829)+JVS(12276)*UV(4863)+JVS(12277)*UV(5250)+JVS(12278)*UV(5253) - JUV(2830) = JVS(12279)*UV(2830)+JVS(12280)*UV(4773)+JVS(12281)*UV(5250)+JVS(12282)*UV(5253) - JUV(2831) = JVS(12283)*UV(1072)+JVS(12284)*UV(2831)+JVS(12285)*UV(4140)+JVS(12287)*UV(5252)+JVS(12289)*UV(5256) - JUV(2832) = JVS(12290)*UV(1502)+JVS(12291)*UV(2832)+JVS(12292)*UV(3928)+JVS(12294)*UV(5252)+JVS(12296)*UV(5256) - JUV(2833) = JVS(12297)*UV(2833)+JVS(12298)*UV(4445)+JVS(12299)*UV(5250)+JVS(12300)*UV(5253) - JUV(2834) = JVS(12301)*UV(2834)+JVS(12302)*UV(3980)+JVS(12303)*UV(5250)+JVS(12304)*UV(5252) - JUV(2835) = JVS(12305)*UV(2835)+JVS(12306)*UV(3961)+JVS(12307)*UV(5250)+JVS(12308)*UV(5252) - JUV(2836) = JVS(12309)*UV(2836)+JVS(12310)*UV(4756)+JVS(12311)*UV(5250)+JVS(12312)*UV(5255) - JUV(2837) = JVS(12313)*UV(2477)+JVS(12314)*UV(2837)+JVS(12315)*UV(3468)+JVS(12316)*UV(4893)+JVS(12317)*UV(5250)& - &+JVS(12318)*UV(5252)+JVS(12319)*UV(5256) - JUV(2838) = JVS(12320)*UV(2838)+JVS(12321)*UV(4013)+JVS(12322)*UV(5250)+JVS(12323)*UV(5255) - JUV(2839) = JVS(12324)*UV(2839)+JVS(12325)*UV(4121)+JVS(12326)*UV(5250)+JVS(12327)*UV(5252) - JUV(2840) = JVS(12328)*UV(1138)+JVS(12329)*UV(2840)+JVS(12330)*UV(5060)+JVS(12332)*UV(5252)+JVS(12334)*UV(5256) - JUV(2841) = JVS(12335)*UV(2841)+JVS(12336)*UV(4760)+JVS(12337)*UV(5250)+JVS(12338)*UV(5253) - JUV(2842) = JVS(12339)*UV(2842)+JVS(12340)*UV(4866)+JVS(12341)*UV(5250)+JVS(12342)*UV(5253) - JUV(2843) = JVS(12343)*UV(2843)+JVS(12344)*UV(4623)+JVS(12345)*UV(5250)+JVS(12346)*UV(5253) - JUV(2844) = JVS(12347)*UV(2844)+JVS(12348)*UV(4517)+JVS(12349)*UV(5250)+JVS(12350)*UV(5253) - JUV(2845) = JVS(12351)*UV(2845)+JVS(12352)*UV(4468)+JVS(12353)*UV(5250)+JVS(12354)*UV(5253) - JUV(2846) = JVS(12355)*UV(2846)+JVS(12356)*UV(4934)+JVS(12357)*UV(5250)+JVS(12358)*UV(5253) - JUV(2847) = JVS(12359)*UV(1589)+JVS(12360)*UV(2585)+JVS(12361)*UV(2847)+JVS(12362)*UV(3641)+JVS(12363)*UV(5250)& - &+JVS(12364)*UV(5252)+JVS(12366)*UV(5256) - JUV(2848) = JVS(12367)*UV(2848)+JVS(12368)*UV(4629)+JVS(12369)*UV(5250)+JVS(12370)*UV(5253) - JUV(2849) = JVS(12371)*UV(2133)+JVS(12372)*UV(2849)+JVS(12373)*UV(4608)+JVS(12375)*UV(5252)+JVS(12377)*UV(5256) - JUV(2850) = JVS(12378)*UV(2850)+JVS(12379)*UV(4830)+JVS(12380)*UV(5250)+JVS(12381)*UV(5253) - JUV(2851) = JVS(12382)*UV(1391)+JVS(12383)*UV(2851)+JVS(12384)*UV(4143)+JVS(12386)*UV(5252)+JVS(12388)*UV(5256) - JUV(2852) = JVS(12389)*UV(2852)+JVS(12390)*UV(4977)+JVS(12391)*UV(5250)+JVS(12392)*UV(5253) - JUV(2853) = JVS(12393)*UV(1271)+JVS(12394)*UV(2853)+JVS(12395)*UV(4532)+JVS(12397)*UV(5252)+JVS(12399)*UV(5256) - JUV(2854) = JVS(12400)*UV(2854)+JVS(12401)*UV(3395)+JVS(12402)*UV(3414)+JVS(12403)*UV(3596)+JVS(12404)*UV(3597)& - &+JVS(12405)*UV(5250) - JUV(2855) = JVS(12406)*UV(2855)+JVS(12407)*UV(3882)+JVS(12408)*UV(5250)+JVS(12409)*UV(5252) - JUV(2856) = JVS(12410)*UV(296)+JVS(12411)*UV(1505)+JVS(12412)*UV(2257)+JVS(12413)*UV(2855)+JVS(12414)*UV(2856)& - &+JVS(12415)*UV(3882)+JVS(12417)*UV(5250) - JUV(2857) = JVS(12420)*UV(2857)+JVS(12421)*UV(4654)+JVS(12422)*UV(5250)+JVS(12423)*UV(5253) - JUV(2858) = JVS(12424)*UV(1515)+JVS(12425)*UV(2858)+JVS(12426)*UV(3964)+JVS(12428)*UV(5252)+JVS(12430)*UV(5256) - JUV(2859) = JVS(12431)*UV(2859)+JVS(12432)*UV(4489)+JVS(12433)*UV(5250)+JVS(12434)*UV(5253) - JUV(2860) = JVS(12435)*UV(2860)+JVS(12436)*UV(4921)+JVS(12437)*UV(5250)+JVS(12438)*UV(5253) - JUV(2861) = JVS(12439)*UV(2861)+JVS(12440)*UV(4420)+JVS(12441)*UV(5180)+JVS(12442)*UV(5235)+JVS(12443)*UV(5252)& - &+JVS(12444)*UV(5256) - JUV(2862) = JVS(12445)*UV(2862)+JVS(12446)*UV(4218)+JVS(12447)*UV(5250)+JVS(12448)*UV(5255) - JUV(2863) = JVS(12449)*UV(2863)+JVS(12450)*UV(4253)+JVS(12451)*UV(5250)+JVS(12452)*UV(5253) - JUV(2864) = JVS(12453)*UV(2864)+JVS(12454)*UV(4853)+JVS(12455)*UV(5250)+JVS(12456)*UV(5253) - JUV(2865) = JVS(12457)*UV(909)+JVS(12458)*UV(2865)+JVS(12459)*UV(4263)+JVS(12461)*UV(5252)+JVS(12463)*UV(5256) - JUV(2866) = JVS(12464)*UV(2866)+JVS(12465)*UV(4441)+JVS(12466)*UV(5250)+JVS(12467)*UV(5253) - JUV(2867) = JVS(12468)*UV(2867)+JVS(12469)*UV(4806)+JVS(12470)*UV(5250)+JVS(12471)*UV(5253) - JUV(2868) = JVS(12472)*UV(2868)+JVS(12473)*UV(4957)+JVS(12474)*UV(5250)+JVS(12475)*UV(5255) - JUV(2869) = JVS(12476)*UV(2010)+JVS(12477)*UV(2869)+JVS(12478)*UV(4364)+JVS(12480)*UV(5252)+JVS(12482)*UV(5256) - JUV(2870) = JVS(12483)*UV(2870)+JVS(12484)*UV(4772)+JVS(12485)*UV(5250)+JVS(12486)*UV(5255) - JUV(2871) = JVS(12487)*UV(2871)+JVS(12488)*UV(3885)+JVS(12489)*UV(5250)+JVS(12490)*UV(5255) - JUV(2872) = JVS(12491)*UV(2872)+JVS(12492)*UV(4433)+JVS(12493)*UV(5250)+JVS(12494)*UV(5253) - JUV(2873) = JVS(12495)*UV(2873)+JVS(12496)*UV(4428)+JVS(12497)*UV(5250)+JVS(12498)*UV(5255) - JUV(2874) = JVS(12499)*UV(1122)+JVS(12500)*UV(2874)+JVS(12501)*UV(4254)+JVS(12503)*UV(5252)+JVS(12505)*UV(5256) - JUV(2875) = JVS(12506)*UV(1636)+JVS(12507)*UV(2601)+JVS(12508)*UV(2875)+JVS(12509)*UV(4675)+JVS(12510)*UV(5250) - JUV(2876) = JVS(12512)*UV(2876)+JVS(12513)*UV(4986)+JVS(12514)*UV(5250)+JVS(12515)*UV(5253) - JUV(2877) = JVS(12516)*UV(2877)+JVS(12517)*UV(4874)+JVS(12518)*UV(5250)+JVS(12519)*UV(5253) - JUV(2878) = JVS(12520)*UV(2878)+JVS(12521)*UV(4390)+JVS(12522)*UV(5250)+JVS(12523)*UV(5255) - JUV(2879) = JVS(12524)*UV(2879)+JVS(12525)*UV(4855)+JVS(12526)*UV(5250)+JVS(12527)*UV(5253) - JUV(2880) = JVS(12528)*UV(2880)+JVS(12529)*UV(5136)+JVS(12530)*UV(5250)+JVS(12531)*UV(5253) - JUV(2881) = JVS(12532)*UV(1292)+JVS(12533)*UV(2881)+JVS(12534)*UV(4170)+JVS(12536)*UV(5252)+JVS(12538)*UV(5256) - JUV(2882) = JVS(12539)*UV(2882)+JVS(12540)*UV(4634)+JVS(12541)*UV(5250)+JVS(12542)*UV(5253) - JUV(2883) = JVS(12543)*UV(2883)+JVS(12544)*UV(5117)+JVS(12545)*UV(5250)+JVS(12546)*UV(5253) - JUV(2884) = JVS(12547)*UV(2884)+JVS(12548)*UV(4848)+JVS(12549)*UV(5250)+JVS(12550)*UV(5253) - JUV(2885) = JVS(12551)*UV(2885)+JVS(12552)*UV(4412)+JVS(12553)*UV(5250)+JVS(12554)*UV(5253) - JUV(2886) = JVS(12555)*UV(2886)+JVS(12556)*UV(5179)+JVS(12557)*UV(5250)+JVS(12558)*UV(5253) - JUV(2887) = JVS(12559)*UV(2887)+JVS(12560)*UV(4557)+JVS(12561)*UV(5250)+JVS(12562)*UV(5253) - JUV(2888) = JVS(12563)*UV(2888)+JVS(12564)*UV(4090)+JVS(12565)*UV(5250)+JVS(12566)*UV(5252) - JUV(2889) = JVS(12567)*UV(1281)+JVS(12568)*UV(2045)+JVS(12569)*UV(2889)+JVS(12570)*UV(4334)+JVS(12572)*UV(5252)& - &+JVS(12574)*UV(5256) - JUV(2890) = JVS(12575)*UV(1181)+JVS(12576)*UV(2890)+JVS(12577)*UV(4098)+JVS(12579)*UV(5252)+JVS(12581)*UV(5256) - JUV(2891) = JVS(12582)*UV(1994)+JVS(12583)*UV(2459)+JVS(12584)*UV(2891)+JVS(12585)*UV(5148)+JVS(12587)*UV(5252)& - &+JVS(12589)*UV(5256) - JUV(2892) = JVS(12590)*UV(2892)+JVS(12591)*UV(4124)+JVS(12592)*UV(5250)+JVS(12593)*UV(5252) - JUV(2893) = JVS(12594)*UV(2893)+JVS(12595)*UV(4852)+JVS(12596)*UV(5250)+JVS(12597)*UV(5255) - JUV(2894) = JVS(12598)*UV(1019)+JVS(12599)*UV(2894)+JVS(12600)*UV(4120)+JVS(12602)*UV(5252)+JVS(12604)*UV(5256) - JUV(2895) = JVS(12605)*UV(2895)+JVS(12606)*UV(3736)+JVS(12607)*UV(3737)+JVS(12608)*UV(5250) - JUV(2896) = JVS(12609)*UV(2896)+JVS(12610)*UV(4283)+JVS(12611)*UV(5250)+JVS(12612)*UV(5253) - JUV(2897) = JVS(12613)*UV(891)+JVS(12614)*UV(2897)+JVS(12615)*UV(3860)+JVS(12617)*UV(5252)+JVS(12619)*UV(5256) - JUV(2898) = JVS(12620)*UV(2898)+JVS(12621)*UV(4266)+JVS(12622)*UV(5250)+JVS(12623)*UV(5253) - JUV(2899) = JVS(12624)*UV(2899)+JVS(12625)*UV(4203)+JVS(12626)*UV(5250)+JVS(12627)*UV(5255) - JUV(2900) = JVS(12628)*UV(2900)+JVS(12629)*UV(3810)+JVS(12630)*UV(5250)+JVS(12631)*UV(5255) - JUV(2901) = JVS(12632)*UV(2901)+JVS(12633)*UV(4102)+JVS(12634)*UV(5250)+JVS(12635)*UV(5253) - JUV(2902) = JVS(12636)*UV(1186)+JVS(12637)*UV(2902)+JVS(12638)*UV(4185)+JVS(12640)*UV(5252)+JVS(12642)*UV(5256) - JUV(2903) = JVS(12643)*UV(825)+JVS(12644)*UV(2903)+JVS(12645)*UV(4262)+JVS(12647)*UV(5252)+JVS(12649)*UV(5256) - JUV(2904) = JVS(12650)*UV(2904)+JVS(12651)*UV(4684)+JVS(12652)*UV(5250)+JVS(12653)*UV(5253) - JUV(2905) = JVS(12654)*UV(997)+JVS(12655)*UV(2905)+JVS(12656)*UV(4134)+JVS(12658)*UV(5252)+JVS(12660)*UV(5256) - JUV(2906) = JVS(12661)*UV(2097)+JVS(12662)*UV(2192)+JVS(12663)*UV(2906)+JVS(12664)*UV(5077)+JVS(12666)*UV(5252)& - &+JVS(12668)*UV(5256) - JUV(2907) = JVS(12669)*UV(2907)+JVS(12670)*UV(4739)+JVS(12671)*UV(5250)+JVS(12672)*UV(5253) - JUV(2908) = JVS(12673)*UV(2908)+JVS(12674)*UV(3890)+JVS(12675)*UV(5250)+JVS(12676)*UV(5252) - JUV(2909) = JVS(12677)*UV(462)+JVS(12678)*UV(511)+JVS(12679)*UV(927)+JVS(12680)*UV(949)+JVS(12681)*UV(2079)+JVS(12682)& - &*UV(2908)+JVS(12683)*UV(2909)+JVS(12684)*UV(3890)+JVS(12686)*UV(5250) - JUV(2910) = JVS(12689)*UV(1632)+JVS(12690)*UV(2625)+JVS(12691)*UV(2910)+JVS(12692)*UV(4811)+JVS(12693)*UV(5250) - JUV(2911) = JVS(12695)*UV(2911)+JVS(12696)*UV(4308)+JVS(12697)*UV(5250)+JVS(12698)*UV(5255) - JUV(2912) = JVS(12699)*UV(1767)+JVS(12700)*UV(2912)+JVS(12701)*UV(4607)+JVS(12703)*UV(5252)+JVS(12705)*UV(5256) - JUV(2913) = JVS(12706)*UV(2913)+JVS(12707)*UV(4980)+JVS(12708)*UV(5250)+JVS(12709)*UV(5252) - JUV(2914) = JVS(12710)*UV(2286)+JVS(12711)*UV(2914)+JVS(12712)*UV(4333)+JVS(12714)*UV(5238)+JVS(12715)*UV(5250) - JUV(2915) = JVS(12717)*UV(2915)+JVS(12718)*UV(4635)+JVS(12719)*UV(5250)+JVS(12720)*UV(5253) - JUV(2916) = JVS(12721)*UV(971)+JVS(12722)*UV(2916)+JVS(12723)*UV(3895)+JVS(12725)*UV(5252)+JVS(12727)*UV(5256) - JUV(2917) = JVS(12728)*UV(2917)+JVS(12729)*UV(5108)+JVS(12730)*UV(5250)+JVS(12731)*UV(5252) - JUV(2918) = JVS(12732)*UV(1104)+JVS(12733)*UV(2918)+JVS(12734)*UV(4293)+JVS(12736)*UV(5252)+JVS(12738)*UV(5256) - JUV(2919) = JVS(12739)*UV(1301)+JVS(12740)*UV(2919)+JVS(12741)*UV(3937)+JVS(12743)*UV(5252)+JVS(12745)*UV(5256) - JUV(2920) = JVS(12746)*UV(2920)+JVS(12747)*UV(4857)+JVS(12748)*UV(5250)+JVS(12749)*UV(5255) - JUV(2921) = JVS(12750)*UV(2921)+JVS(12751)*UV(4862)+JVS(12752)*UV(5250)+JVS(12753)*UV(5253) - JUV(2922) = JVS(12754)*UV(1235)+JVS(12755)*UV(2020)+JVS(12756)*UV(2922)+JVS(12757)*UV(5181)+JVS(12759)*UV(5252)& - &+JVS(12761)*UV(5256) - JUV(2923) = JVS(12762)*UV(2923)+JVS(12763)*UV(4920)+JVS(12764)*UV(5250)+JVS(12765)*UV(5255) - JUV(2924) = JVS(12766)*UV(2924)+JVS(12767)*UV(4916)+JVS(12768)*UV(5250)+JVS(12769)*UV(5253) - JUV(2925) = JVS(12770)*UV(2925)+JVS(12771)*UV(4518)+JVS(12772)*UV(5250)+JVS(12773)*UV(5253) - JUV(2926) = JVS(12774)*UV(1921)+JVS(12775)*UV(2318)+JVS(12776)*UV(2926)+JVS(12777)*UV(5208)+JVS(12779)*UV(5252)& - &+JVS(12781)*UV(5256) - JUV(2927) = JVS(12782)*UV(700)+JVS(12783)*UV(2927)+JVS(12785)*UV(5250) - JUV(2928) = JVS(12787)*UV(2928)+JVS(12788)*UV(4753)+JVS(12789)*UV(5250)+JVS(12790)*UV(5253) - JUV(2929) = JVS(12791)*UV(2929)+JVS(12792)*UV(4424)+JVS(12793)*UV(5250)+JVS(12794)*UV(5253) - JUV(2930) = JVS(12795)*UV(2930)+JVS(12796)*UV(4138)+JVS(12797)*UV(5250)+JVS(12798)*UV(5255) - JUV(2931) = JVS(12799)*UV(1046)+JVS(12800)*UV(2931)+JVS(12801)*UV(3848)+JVS(12803)*UV(5252)+JVS(12805)*UV(5256) - JUV(2932) = JVS(12806)*UV(1601)+JVS(12807)*UV(2932)+JVS(12808)*UV(3473)+JVS(12809)*UV(4365)+JVS(12810)*UV(5250) - JUV(2933) = JVS(12811)*UV(144)+JVS(12812)*UV(1488)+JVS(12813)*UV(2610)+JVS(12814)*UV(2933)+JVS(12815)*UV(5056)& - &+JVS(12816)*UV(5250)+JVS(12817)*UV(5252)+JVS(12819)*UV(5256) - JUV(2934) = JVS(12820)*UV(2934)+JVS(12821)*UV(3873)+JVS(12822)*UV(5250)+JVS(12823)*UV(5252) - JUV(2935) = JVS(12824)*UV(1420)+JVS(12825)*UV(2935)+JVS(12826)*UV(4298)+JVS(12828)*UV(5252)+JVS(12830)*UV(5256) - JUV(2936) = JVS(12831)*UV(538)+JVS(12832)*UV(2936)+JVS(12834)*UV(5250) - JUV(2937) = JVS(12836)*UV(1423)+JVS(12837)*UV(2937)+JVS(12838)*UV(4232)+JVS(12840)*UV(5252)+JVS(12842)*UV(5256) - JUV(2938) = JVS(12843)*UV(320)+JVS(12844)*UV(1519)+JVS(12845)*UV(2275)+JVS(12846)*UV(2938)+JVS(12847)*UV(3424)& - &+JVS(12848)*UV(4196)+JVS(12849)*UV(5250) - JUV(2939) = JVS(12852)*UV(1856)+JVS(12853)*UV(2247)+JVS(12854)*UV(2939)+JVS(12855)*UV(5150)+JVS(12857)*UV(5252)& - &+JVS(12859)*UV(5256) - JUV(2940) = JVS(12860)*UV(2940)+JVS(12861)*UV(4827)+JVS(12862)*UV(5250)+JVS(12863)*UV(5255) - JUV(2941) = JVS(12864)*UV(2941)+JVS(12865)*UV(4812)+JVS(12866)*UV(5250)+JVS(12867)*UV(5253) - JUV(2942) = JVS(12868)*UV(2942)+JVS(12869)*UV(4137)+JVS(12870)*UV(5250)+JVS(12871)*UV(5252) - JUV(2943) = JVS(12872)*UV(2943)+JVS(12873)*UV(3981)+JVS(12874)*UV(5250)+JVS(12875)*UV(5252) - JUV(2944) = JVS(12876)*UV(1774)+JVS(12877)*UV(2944)+JVS(12878)*UV(5135)+JVS(12880)*UV(5252)+JVS(12882)*UV(5256) - JUV(2945) = JVS(12883)*UV(2945)+JVS(12884)*UV(4924)+JVS(12885)*UV(5250)+JVS(12886)*UV(5253) - JUV(2946) = JVS(12887)*UV(995)+JVS(12888)*UV(2946)+JVS(12889)*UV(4890)+JVS(12891)*UV(5252)+JVS(12893)*UV(5256) - JUV(2947) = JVS(12894)*UV(2947)+JVS(12895)*UV(4891)+JVS(12896)*UV(5250)+JVS(12897)*UV(5253) - JUV(2948) = JVS(12898)*UV(2948)+JVS(12899)*UV(4685)+JVS(12900)*UV(5250)+JVS(12901)*UV(5253) - JUV(2949) = JVS(12902)*UV(659)+JVS(12903)*UV(1088)+JVS(12904)*UV(2949)+JVS(12905)*UV(4141)+JVS(12907)*UV(5252)& - &+JVS(12909)*UV(5256) - JUV(2950) = JVS(12910)*UV(2950)+JVS(12911)*UV(4132)+JVS(12912)*UV(5250)+JVS(12913)*UV(5253) - JUV(2951) = JVS(12914)*UV(2951)+JVS(12915)*UV(5029)+JVS(12916)*UV(5250)+JVS(12917)*UV(5253) - JUV(2952) = JVS(12918)*UV(1273)+JVS(12919)*UV(2952)+JVS(12920)*UV(4276)+JVS(12922)*UV(5252)+JVS(12924)*UV(5256) - JUV(2953) = JVS(12925)*UV(633)+JVS(12926)*UV(1414)+JVS(12927)*UV(2332)+JVS(12928)*UV(2953)+JVS(12929)*UV(4597)& - &+JVS(12931)*UV(5252)+JVS(12933)*UV(5256) - JUV(2954) = JVS(12934)*UV(1869)+JVS(12935)*UV(2405)+JVS(12936)*UV(2954)+JVS(12937)*UV(4368)+JVS(12939)*UV(5252)& - &+JVS(12941)*UV(5256) - JUV(2955) = JVS(12942)*UV(2955)+JVS(12943)*UV(4649)+JVS(12944)*UV(5250)+JVS(12945)*UV(5253) - JUV(2956) = JVS(12946)*UV(2956)+JVS(12947)*UV(4338)+JVS(12948)*UV(5250)+JVS(12949)*UV(5253) - JUV(2957) = JVS(12950)*UV(2957)+JVS(12951)*UV(3998)+JVS(12952)*UV(5250)+JVS(12953)*UV(5253) - JUV(2958) = JVS(12954)*UV(2958)+JVS(12955)*UV(4953)+JVS(12956)*UV(5250)+JVS(12957)*UV(5253) - JUV(2959) = JVS(12958)*UV(1362)+JVS(12959)*UV(2959)+JVS(12960)*UV(3806)+JVS(12962)*UV(5252)+JVS(12964)*UV(5256) - JUV(2960) = JVS(12965)*UV(1268)+JVS(12966)*UV(2960)+JVS(12967)*UV(4435)+JVS(12969)*UV(5252)+JVS(12971)*UV(5256) - JUV(2961) = JVS(12972)*UV(881)+JVS(12973)*UV(2961)+JVS(12974)*UV(3898)+JVS(12976)*UV(5252)+JVS(12978)*UV(5256) - JUV(2962) = JVS(12979)*UV(1517)+JVS(12980)*UV(2962)+JVS(12981)*UV(3876)+JVS(12983)*UV(5252)+JVS(12985)*UV(5256) - JUV(2963) = JVS(12986)*UV(1379)+JVS(12987)*UV(2963)+JVS(12988)*UV(4200)+JVS(12990)*UV(5252)+JVS(12992)*UV(5256) - JUV(2964) = JVS(12993)*UV(2964)+JVS(12994)*UV(4878)+JVS(12995)*UV(5250)+JVS(12996)*UV(5252) - JUV(2965) = JVS(12997)*UV(213)+JVS(12998)*UV(218)+JVS(12999)*UV(1295)+JVS(13000)*UV(1333)+JVS(13001)*UV(1930)& - &+JVS(13002)*UV(2965)+JVS(13003)*UV(3902)+JVS(13005)*UV(5250) - JUV(2966) = JVS(13008)*UV(957)+JVS(13009)*UV(2966)+JVS(13011)*UV(5250) - JUV(2967) = JVS(13013)*UV(263)+JVS(13014)*UV(1345)+JVS(13015)*UV(2967)+JVS(13016)*UV(3975)+JVS(13017)*UV(5250)& - &+JVS(13018)*UV(5252)+JVS(13020)*UV(5256) - JUV(2968) = JVS(13021)*UV(940)+JVS(13022)*UV(2968)+JVS(13023)*UV(4503)+JVS(13025)*UV(5252)+JVS(13027)*UV(5256) - JUV(2969) = JVS(13028)*UV(2969)+JVS(13029)*UV(4864)+JVS(13030)*UV(5250)+JVS(13031)*UV(5253) - JUV(2970) = JVS(13032)*UV(2970)+JVS(13033)*UV(4329)+JVS(13034)*UV(5250)+JVS(13035)*UV(5253) - JUV(2971) = JVS(13036)*UV(2971)+JVS(13037)*UV(4277)+JVS(13038)*UV(5250)+JVS(13039)*UV(5255) - JUV(2972) = JVS(13040)*UV(1884)+JVS(13041)*UV(2972)+JVS(13042)*UV(4348)+JVS(13044)*UV(5252)+JVS(13046)*UV(5256) - JUV(2973) = JVS(13047)*UV(2013)+JVS(13048)*UV(2973)+JVS(13049)*UV(3297)+JVS(13051)*UV(5238)+JVS(13052)*UV(5250) - JUV(2974) = JVS(13054)*UV(1855)+JVS(13055)*UV(2350)+JVS(13056)*UV(2974)+JVS(13057)*UV(4974)+JVS(13059)*UV(5252)& - &+JVS(13061)*UV(5256) - JUV(2975) = JVS(13062)*UV(2975)+JVS(13063)*UV(4648)+JVS(13064)*UV(5250)+JVS(13065)*UV(5255) - JUV(2976) = JVS(13066)*UV(2976)+JVS(13067)*UV(4612)+JVS(13068)*UV(5250)+JVS(13069)*UV(5255) - JUV(2977) = JVS(13070)*UV(2977)+JVS(13071)*UV(4969)+JVS(13072)*UV(5250)+JVS(13073)*UV(5253) - JUV(2978) = JVS(13074)*UV(2978)+JVS(13075)*UV(4662)+JVS(13076)*UV(5250)+JVS(13077)*UV(5253) - JUV(2979) = JVS(13078)*UV(476)+JVS(13079)*UV(1339)+JVS(13080)*UV(1883)+JVS(13081)*UV(2979)+JVS(13082)*UV(3323)& - &+JVS(13083)*UV(3743)+JVS(13084)*UV(5250) - JUV(2980) = JVS(13087)*UV(2980)+JVS(13088)*UV(4653)+JVS(13089)*UV(5250)+JVS(13090)*UV(5253) - JUV(2981) = JVS(13091)*UV(2981)+JVS(13092)*UV(4802)+JVS(13093)*UV(5250)+JVS(13094)*UV(5255) - JUV(2982) = JVS(13095)*UV(651)+JVS(13096)*UV(1323)+JVS(13097)*UV(2253)+JVS(13098)*UV(2982)+JVS(13099)*UV(4704)& - &+JVS(13101)*UV(5252)+JVS(13103)*UV(5256) - JUV(2983) = JVS(13104)*UV(1422)+JVS(13105)*UV(2983)+JVS(13106)*UV(4837)+JVS(13108)*UV(5252)+JVS(13110)*UV(5256) - JUV(2984) = JVS(13111)*UV(2984)+JVS(13112)*UV(4485)+JVS(13113)*UV(5250)+JVS(13114)*UV(5253) - JUV(2985) = JVS(13115)*UV(2985)+JVS(13116)*UV(5036)+JVS(13117)*UV(5250)+JVS(13118)*UV(5255) - JUV(2986) = JVS(13119)*UV(913)+JVS(13120)*UV(2986)+JVS(13121)*UV(4305)+JVS(13123)*UV(5252)+JVS(13125)*UV(5256) - JUV(2987) = JVS(13126)*UV(2987)+JVS(13127)*UV(4984)+JVS(13128)*UV(5250)+JVS(13129)*UV(5253) - JUV(2988) = JVS(13130)*UV(2988)+JVS(13131)*UV(4427)+JVS(13132)*UV(5250)+JVS(13133)*UV(5253) - JUV(2989) = JVS(13134)*UV(1360)+JVS(13135)*UV(2989)+JVS(13136)*UV(4191)+JVS(13138)*UV(5252)+JVS(13140)*UV(5256) - JUV(2990) = JVS(13141)*UV(1753)+JVS(13142)*UV(2246)+JVS(13143)*UV(2990)+JVS(13144)*UV(5061)+JVS(13146)*UV(5252)& - &+JVS(13148)*UV(5256) - JUV(2991) = JVS(13149)*UV(2991)+JVS(13150)*UV(4221)+JVS(13151)*UV(5250)+JVS(13152)*UV(5255) - JUV(2992) = JVS(13153)*UV(2992)+JVS(13154)*UV(2993)+JVS(13155)*UV(4108)+JVS(13156)*UV(4763)+JVS(13157)*UV(5252)& - &+JVS(13158)*UV(5256) - JUV(2993) = JVS(13159)*UV(2993)+JVS(13160)*UV(4763)+JVS(13161)*UV(5250)+JVS(13162)*UV(5255) - JUV(2994) = JVS(13163)*UV(1647)+JVS(13164)*UV(2740)+JVS(13165)*UV(2994)+JVS(13166)*UV(3663)+JVS(13167)*UV(5250)& - &+JVS(13168)*UV(5252)+JVS(13170)*UV(5256) - JUV(2995) = JVS(13171)*UV(972)+JVS(13172)*UV(2995)+JVS(13173)*UV(4245)+JVS(13175)*UV(5252)+JVS(13177)*UV(5256) - JUV(2996) = JVS(13178)*UV(981)+JVS(13179)*UV(2436)+JVS(13180)*UV(2996)+JVS(13181)*UV(5127)+JVS(13183)*UV(5252)& - &+JVS(13185)*UV(5256) - JUV(2997) = JVS(13186)*UV(1371)+JVS(13187)*UV(2997)+JVS(13188)*UV(3850)+JVS(13190)*UV(5252)+JVS(13192)*UV(5256) - JUV(2998) = JVS(13193)*UV(2998)+JVS(13194)*UV(4026)+JVS(13195)*UV(5250)+JVS(13196)*UV(5253) - JUV(2999) = JVS(13197)*UV(2999)+JVS(13198)*UV(4802)+JVS(13199)*UV(5250)+JVS(13200)*UV(5252) - JUV(3000) = JVS(13201)*UV(1633)+JVS(13202)*UV(2981)+JVS(13203)*UV(2999)+JVS(13204)*UV(3000)+JVS(13205)*UV(4802)& - &+JVS(13206)*UV(5250)+JVS(13207)*UV(5252)+JVS(13209)*UV(5256) - JUV(3001) = JVS(13210)*UV(1322)+JVS(13211)*UV(3001)+JVS(13212)*UV(4217)+JVS(13214)*UV(5252)+JVS(13216)*UV(5256) - JUV(3002) = JVS(13217)*UV(3002)+JVS(13218)*UV(4879)+JVS(13219)*UV(5252)+JVS(13220)*UV(5256) - JUV(3003) = JVS(13221)*UV(3003)+JVS(13222)*UV(5183)+JVS(13223)*UV(5250)+JVS(13224)*UV(5253) - JUV(3004) = JVS(13225)*UV(1358)+JVS(13226)*UV(3004)+JVS(13227)*UV(4314)+JVS(13229)*UV(5252)+JVS(13231)*UV(5256) - JUV(3005) = JVS(13232)*UV(3005)+JVS(13233)*UV(4946)+JVS(13234)*UV(5250)+JVS(13235)*UV(5255) - JUV(3006) = JVS(13236)*UV(3006)+JVS(13237)*UV(4371)+JVS(13238)*UV(5250)+JVS(13239)*UV(5255) - JUV(3007) = JVS(13240)*UV(3007)+JVS(13241)*UV(4521)+JVS(13242)*UV(5250)+JVS(13243)*UV(5253) - JUV(3008) = JVS(13244)*UV(3008)+JVS(13245)*UV(5004)+JVS(13246)*UV(5250)+JVS(13247)*UV(5253) - JUV(3009) = JVS(13248)*UV(807)+JVS(13249)*UV(1136)+JVS(13250)*UV(2185)+JVS(13251)*UV(3009)+JVS(13252)*UV(4716)& - &+JVS(13254)*UV(5252)+JVS(13256)*UV(5256) - JUV(3010) = JVS(13257)*UV(3010)+JVS(13258)*UV(4955)+JVS(13259)*UV(5250)+JVS(13260)*UV(5253) - JUV(3011) = JVS(13261)*UV(3011)+JVS(13262)*UV(5131)+JVS(13263)*UV(5250)+JVS(13264)*UV(5253) - JUV(3012) = JVS(13265)*UV(3012)+JVS(13266)*UV(4792)+JVS(13267)*UV(5250)+JVS(13268)*UV(5253) - JUV(3013) = JVS(13269)*UV(554)+JVS(13270)*UV(1213)+JVS(13271)*UV(2256)+JVS(13272)*UV(3013)+JVS(13273)*UV(4128)& - &+JVS(13275)*UV(5252)+JVS(13277)*UV(5256) - JUV(3014) = JVS(13278)*UV(3014)+JVS(13279)*UV(4203)+JVS(13280)*UV(5250)+JVS(13281)*UV(5253) - JUV(3015) = JVS(13282)*UV(3015)+JVS(13283)*UV(4360)+JVS(13284)*UV(5250)+JVS(13285)*UV(5252) - JUV(3016) = JVS(13286)*UV(1051)+JVS(13287)*UV(3016)+JVS(13288)*UV(4212)+JVS(13290)*UV(5252)+JVS(13292)*UV(5256) - JUV(3017) = JVS(13293)*UV(3017)+JVS(13294)*UV(4301)+JVS(13295)*UV(5250)+JVS(13296)*UV(5253) - JUV(3018) = JVS(13297)*UV(3018)+JVS(13298)*UV(4814)+JVS(13299)*UV(5250)+JVS(13300)*UV(5255) - JUV(3019) = JVS(13301)*UV(3019)+JVS(13302)*UV(4154)+JVS(13303)*UV(5250)+JVS(13304)*UV(5253) - JUV(3020) = JVS(13305)*UV(3020)+JVS(13306)*UV(4553)+JVS(13307)*UV(5250)+JVS(13308)*UV(5253) - JUV(3021) = JVS(13309)*UV(3021)+JVS(13310)*UV(5158)+JVS(13311)*UV(5250)+JVS(13312)*UV(5253) - JUV(3022) = JVS(13313)*UV(3022)+JVS(13314)*UV(4513)+JVS(13315)*UV(5250)+JVS(13316)*UV(5255) - JUV(3023) = JVS(13317)*UV(3023)+JVS(13318)*UV(4994)+JVS(13319)*UV(5250)+JVS(13320)*UV(5253) - JUV(3024) = JVS(13321)*UV(3024)+JVS(13322)*UV(4515)+JVS(13323)*UV(5250)+JVS(13324)*UV(5253) - JUV(3025) = JVS(13325)*UV(3025)+JVS(13326)*UV(4665)+JVS(13327)*UV(5250)+JVS(13328)*UV(5253) - JUV(3026) = JVS(13329)*UV(3026)+JVS(13330)*UV(4469)+JVS(13331)*UV(5250)+JVS(13332)*UV(5253) - JUV(3027) = JVS(13333)*UV(1717)+JVS(13334)*UV(2709)+JVS(13335)*UV(3027)+JVS(13336)*UV(3815)+JVS(13337)*UV(5250)& - &+JVS(13338)*UV(5252)+JVS(13340)*UV(5256) - JUV(3028) = JVS(13341)*UV(974)+JVS(13342)*UV(3028)+JVS(13343)*UV(3953)+JVS(13345)*UV(5252)+JVS(13347)*UV(5256) - JUV(3029) = JVS(13348)*UV(3029)+JVS(13349)*UV(4839)+JVS(13350)*UV(5250)+JVS(13351)*UV(5253) - JUV(3030) = JVS(13352)*UV(897)+JVS(13353)*UV(3030)+JVS(13354)*UV(4097)+JVS(13356)*UV(5252)+JVS(13358)*UV(5256) - JUV(3031) = JVS(13359)*UV(3031)+JVS(13360)*UV(5117)+JVS(13361)*UV(5250)+JVS(13362)*UV(5255) - JUV(3032) = JVS(13363)*UV(1885)+JVS(13364)*UV(2337)+JVS(13365)*UV(3032)+JVS(13366)*UV(5147)+JVS(13368)*UV(5252)& - &+JVS(13370)*UV(5256) - JUV(3033) = JVS(13371)*UV(3033)+JVS(13372)*UV(4436)+JVS(13373)*UV(5250)+JVS(13374)*UV(5255) - JUV(3034) = JVS(13375)*UV(3034)+JVS(13376)*UV(3982)+JVS(13377)*UV(5250)+JVS(13378)*UV(5252) - JUV(3035) = JVS(13379)*UV(3035)+JVS(13380)*UV(4858)+JVS(13381)*UV(5250)+JVS(13382)*UV(5255) - JUV(3036) = JVS(13383)*UV(835)+JVS(13384)*UV(3036)+JVS(13385)*UV(4306)+JVS(13387)*UV(5252)+JVS(13389)*UV(5256) - JUV(3037) = JVS(13390)*UV(1993)+JVS(13391)*UV(3037)+JVS(13392)*UV(4541)+JVS(13394)*UV(5252)+JVS(13396)*UV(5256) - JUV(3038) = JVS(13397)*UV(3038)+JVS(13398)*UV(3854)+JVS(13399)*UV(5250)+JVS(13400)*UV(5255) - JUV(3039) = JVS(13401)*UV(1314)+JVS(13402)*UV(3039)+JVS(13403)*UV(3883)+JVS(13405)*UV(5252)+JVS(13407)*UV(5256) - JUV(3040) = JVS(13408)*UV(3040)+JVS(13409)*UV(4221)+JVS(13410)*UV(5250)+JVS(13411)*UV(5253) - JUV(3041) = JVS(13412)*UV(559)+JVS(13413)*UV(1538)+JVS(13414)*UV(3041)+JVS(13415)*UV(4346)+JVS(13417)*UV(5252)& - &+JVS(13419)*UV(5256) - JUV(3042) = JVS(13420)*UV(3042)+JVS(13421)*UV(4229)+JVS(13422)*UV(5250)+JVS(13423)*UV(5253) - JUV(3043) = JVS(13424)*UV(3043)+JVS(13425)*UV(4746)+JVS(13426)*UV(5250)+JVS(13427)*UV(5255) - JUV(3044) = JVS(13428)*UV(3044)+JVS(13429)*UV(4353)+JVS(13430)*UV(4695)+JVS(13431)*UV(5250) - JUV(3045) = JVS(13432)*UV(3045)+JVS(13433)*UV(4228)+JVS(13434)*UV(5250)+JVS(13435)*UV(5253) - JUV(3046) = JVS(13436)*UV(3046)+JVS(13437)*UV(3961)+JVS(13438)*UV(5250)+JVS(13439)*UV(5255) - JUV(3047) = JVS(13440)*UV(3047)+JVS(13441)*UV(5232)+JVS(13442)*UV(5250)+JVS(13443)*UV(5253) - JUV(3048) = JVS(13444)*UV(873)+JVS(13445)*UV(2834)+JVS(13446)*UV(3048)+JVS(13447)*UV(3980)+JVS(13449)*UV(5252)& - &+JVS(13451)*UV(5256) - JUV(3049) = JVS(13452)*UV(3049)+JVS(13453)*UV(4730)+JVS(13454)*UV(5250)+JVS(13455)*UV(5255) - JUV(3050) = JVS(13456)*UV(1613)+JVS(13457)*UV(2520)+JVS(13458)*UV(3050)+JVS(13459)*UV(3813)+JVS(13460)*UV(5250)& - &+JVS(13461)*UV(5252)+JVS(13463)*UV(5256) - JUV(3051) = JVS(13464)*UV(3051)+JVS(13465)*UV(4215)+JVS(13466)*UV(5250)+JVS(13467)*UV(5253) - JUV(3052) = JVS(13468)*UV(3052)+JVS(13469)*UV(4299)+JVS(13470)*UV(5250)+JVS(13471)*UV(5253) - JUV(3053) = JVS(13472)*UV(3053)+JVS(13473)*UV(4631)+JVS(13474)*UV(5250)+JVS(13475)*UV(5253) - JUV(3054) = JVS(13476)*UV(1430)+JVS(13477)*UV(3054)+JVS(13478)*UV(3979)+JVS(13480)*UV(5252)+JVS(13482)*UV(5256) - JUV(3055) = JVS(13483)*UV(3055)+JVS(13484)*UV(4765)+JVS(13485)*UV(5250)+JVS(13486)*UV(5255) - JUV(3056) = JVS(13487)*UV(3056)+JVS(13488)*UV(4915)+JVS(13489)*UV(5250)+JVS(13490)*UV(5253) - JUV(3057) = JVS(13491)*UV(1659)+JVS(13492)*UV(2730)+JVS(13493)*UV(3057)+JVS(13494)*UV(4911)+JVS(13495)*UV(5250) - JUV(3058) = JVS(13497)*UV(1338)+JVS(13498)*UV(3058)+JVS(13499)*UV(4429)+JVS(13501)*UV(5252)+JVS(13503)*UV(5256) - JUV(3059) = JVS(13504)*UV(3059)+JVS(13505)*UV(5155)+JVS(13506)*UV(5250)+JVS(13507)*UV(5253) - JUV(3060) = JVS(13508)*UV(3060)+JVS(13509)*UV(4626)+JVS(13510)*UV(5250)+JVS(13511)*UV(5253) - JUV(3061) = JVS(13512)*UV(3061)+JVS(13513)*UV(4744)+JVS(13514)*UV(5250)+JVS(13515)*UV(5253) - JUV(3062) = JVS(13516)*UV(858)+JVS(13517)*UV(3062)+JVS(13518)*UV(4115)+JVS(13520)*UV(5252)+JVS(13522)*UV(5256) - JUV(3063) = JVS(13523)*UV(3063)+JVS(13524)*UV(4404)+JVS(13525)*UV(5250)+JVS(13526)*UV(5253) - JUV(3064) = JVS(13527)*UV(2392)+JVS(13528)*UV(3064)+JVS(13529)*UV(5035)+JVS(13531)*UV(5252)+JVS(13533)*UV(5256) - JUV(3065) = JVS(13534)*UV(1101)+JVS(13535)*UV(3065)+JVS(13536)*UV(4297)+JVS(13538)*UV(5252)+JVS(13540)*UV(5256) - JUV(3066) = JVS(13541)*UV(1313)+JVS(13542)*UV(2215)+JVS(13543)*UV(3066)+JVS(13544)*UV(5081)+JVS(13546)*UV(5252)& - &+JVS(13548)*UV(5256) - JUV(3067) = JVS(13549)*UV(1044)+JVS(13550)*UV(3067)+JVS(13551)*UV(4486)+JVS(13553)*UV(5252)+JVS(13555)*UV(5256) - JUV(3068) = JVS(13556)*UV(3068)+JVS(13557)*UV(5032)+JVS(13558)*UV(5250)+JVS(13559)*UV(5252) - JUV(3069) = JVS(13560)*UV(1153)+JVS(13561)*UV(3068)+JVS(13562)*UV(3069)+JVS(13563)*UV(5032)+JVS(13565)*UV(5252)& - &+JVS(13567)*UV(5256) - JUV(3070) = JVS(13568)*UV(3070)+JVS(13569)*UV(4430)+JVS(13570)*UV(5250)+JVS(13571)*UV(5253) - JUV(3071) = JVS(13572)*UV(1392)+JVS(13573)*UV(3071)+JVS(13574)*UV(4751)+JVS(13576)*UV(5252)+JVS(13578)*UV(5256) - JUV(3072) = JVS(13579)*UV(1377)+JVS(13580)*UV(3072)+JVS(13581)*UV(3987)+JVS(13583)*UV(5252)+JVS(13585)*UV(5256) - JUV(3073) = JVS(13586)*UV(1137)+JVS(13587)*UV(3073)+JVS(13588)*UV(4461)+JVS(13590)*UV(5252)+JVS(13592)*UV(5256) - JUV(3074) = JVS(13593)*UV(885)+JVS(13594)*UV(3074)+JVS(13595)*UV(3988)+JVS(13597)*UV(5252)+JVS(13599)*UV(5256) - JUV(3075) = JVS(13600)*UV(3075)+JVS(13601)*UV(4472)+JVS(13602)*UV(5250)+JVS(13603)*UV(5253) - JUV(3076) = JVS(13604)*UV(3076)+JVS(13605)*UV(5078)+JVS(13606)*UV(5250)+JVS(13607)*UV(5252) - JUV(3077) = JVS(13608)*UV(3077)+JVS(13609)*UV(3942)+JVS(13610)*UV(4579)+JVS(13611)*UV(5250) - JUV(3078) = JVS(13612)*UV(3078)+JVS(13613)*UV(4584)+JVS(13614)*UV(5250)+JVS(13615)*UV(5255) - JUV(3079) = JVS(13616)*UV(1779)+JVS(13617)*UV(3079)+JVS(13618)*UV(4778)+JVS(13620)*UV(5252)+JVS(13622)*UV(5256) - JUV(3080) = JVS(13623)*UV(70)+JVS(13624)*UV(2236)+JVS(13625)*UV(3080)+JVS(13626)*UV(4894)+JVS(13627)*UV(5250)& - &+JVS(13628)*UV(5252)+JVS(13630)*UV(5256) - JUV(3081) = JVS(13631)*UV(3081)+JVS(13632)*UV(4173)+JVS(13633)*UV(5250)+JVS(13634)*UV(5252) - JUV(3082) = JVS(13635)*UV(523)+JVS(13636)*UV(1310)+JVS(13637)*UV(2372)+JVS(13638)*UV(3082)+JVS(13639)*UV(4055)& - &+JVS(13640)*UV(5250) - JUV(3083) = JVS(13643)*UV(1776)+JVS(13644)*UV(3083)+JVS(13646)*UV(5145)+JVS(13647)*UV(5250) - JUV(3084) = JVS(13649)*UV(3084)+JVS(13650)*UV(5250)+JVS(13651)*UV(5256) - JUV(3085) = JVS(13652)*UV(3085)+JVS(13653)*UV(4407)+JVS(13654)*UV(5250)+JVS(13655)*UV(5253)+JVS(13656)*UV(5256) - JUV(3086) = JVS(13657)*UV(1571)+JVS(13658)*UV(1839)+JVS(13659)*UV(3086)+JVS(13660)*UV(3504)+JVS(13661)*UV(4369)& - &+JVS(13662)*UV(5250) - JUV(3087) = JVS(13664)*UV(3087)+JVS(13665)*UV(4499)+JVS(13666)*UV(5250)+JVS(13667)*UV(5253)+JVS(13668)*UV(5256) - JUV(3088) = JVS(13669)*UV(3088)+JVS(13670)*UV(4798)+JVS(13671)*UV(5250)+JVS(13672)*UV(5253)+JVS(13673)*UV(5256) - JUV(3089) = JVS(13674)*UV(428)+JVS(13675)*UV(1211)+JVS(13676)*UV(1964)+JVS(13677)*UV(3089)+JVS(13678)*UV(3811)& - &+JVS(13679)*UV(5250) - JUV(3090) = JVS(13682)*UV(2174)+JVS(13683)*UV(3090)+JVS(13684)*UV(3744)+JVS(13685)*UV(4925)+JVS(13686)*UV(5250) - JUV(3091) = JVS(13688)*UV(460)+JVS(13689)*UV(1052)+JVS(13690)*UV(2432)+JVS(13691)*UV(3091)+JVS(13692)*UV(5138)& - &+JVS(13693)*UV(5250) - JUV(3092) = JVS(13696)*UV(3092)+JVS(13697)*UV(4531)+JVS(13698)*UV(5250)+JVS(13699)*UV(5253)+JVS(13700)*UV(5256) - JUV(3093) = JVS(13701)*UV(3093)+JVS(13702)*UV(4453)+JVS(13703)*UV(5250)+JVS(13704)*UV(5253)+JVS(13705)*UV(5256) - JUV(3094) = JVS(13706)*UV(3094)+JVS(13707)*UV(3455)+JVS(13708)*UV(4706)+JVS(13709)*UV(5252)+JVS(13710)*UV(5256) - JUV(3095) = JVS(13711)*UV(3095)+JVS(13712)*UV(4471)+JVS(13713)*UV(5250)+JVS(13714)*UV(5253)+JVS(13715)*UV(5256) - JUV(3096) = JVS(13716)*UV(3096)+JVS(13717)*UV(5250)+JVS(13718)*UV(5256) - JUV(3097) = JVS(13719)*UV(3097)+JVS(13720)*UV(5250)+JVS(13721)*UV(5256) - JUV(3098) = JVS(13722)*UV(3098)+JVS(13723)*UV(4504)+JVS(13724)*UV(5250)+JVS(13725)*UV(5253)+JVS(13726)*UV(5256) - JUV(3099) = JVS(13727)*UV(3099)+JVS(13728)*UV(4819)+JVS(13729)*UV(4954)+JVS(13730)*UV(5250)+JVS(13731)*UV(5255) - JUV(3100) = JVS(13732)*UV(3100)+JVS(13733)*UV(4444)+JVS(13734)*UV(5250)+JVS(13735)*UV(5253)+JVS(13736)*UV(5256) - JUV(3101) = JVS(13737)*UV(3101)+JVS(13738)*UV(4437)+JVS(13739)*UV(5250)+JVS(13740)*UV(5253)+JVS(13741)*UV(5256) - JUV(3102) = JVS(13742)*UV(3102)+JVS(13743)*UV(3658)+JVS(13744)*UV(3670)+JVS(13745)*UV(5250)+JVS(13746)*UV(5252) - JUV(3103) = JVS(13747)*UV(274)+JVS(13748)*UV(956)+JVS(13749)*UV(2241)+JVS(13750)*UV(3103)+JVS(13751)*UV(3803)& - &+JVS(13752)*UV(5250) - JUV(3104) = JVS(13755)*UV(1983)+JVS(13756)*UV(3104)+JVS(13757)*UV(3364)+JVS(13759)*UV(3536)+JVS(13760)*UV(4841)& - &+JVS(13761)*UV(5250)+JVS(13762)*UV(5252)+JVS(13764)*UV(5256) - JUV(3105) = JVS(13765)*UV(3105)+JVS(13766)*UV(5250)+JVS(13767)*UV(5256) - JUV(3106) = JVS(13768)*UV(3106)+JVS(13769)*UV(4777)+JVS(13770)*UV(4837)+JVS(13771)*UV(5250)+JVS(13772)*UV(5252) - JUV(3107) = JVS(13773)*UV(647)+JVS(13774)*UV(1103)+JVS(13775)*UV(3107)+JVS(13776)*UV(3108)+JVS(13777)*UV(4575)& - &+JVS(13778)*UV(5250) - JUV(3108) = JVS(13780)*UV(3108)+JVS(13781)*UV(4575)+JVS(13782)*UV(5250)+JVS(13783)*UV(5252) - JUV(3109) = JVS(13784)*UV(234)+JVS(13785)*UV(1501)+JVS(13786)*UV(1831)+JVS(13787)*UV(3109)+JVS(13788)*UV(4586)& - &+JVS(13789)*UV(5250) - JUV(3110) = JVS(13792)*UV(429)+JVS(13793)*UV(848)+JVS(13794)*UV(2113)+JVS(13795)*UV(3110)+JVS(13796)*UV(5065)& - &+JVS(13797)*UV(5250) - JUV(3111) = JVS(13800)*UV(3111)+JVS(13801)*UV(4494)+JVS(13802)*UV(5250)+JVS(13803)*UV(5253)+JVS(13804)*UV(5256) - JUV(3112) = JVS(13805)*UV(3112)+JVS(13806)*UV(4509)+JVS(13807)*UV(5250)+JVS(13808)*UV(5253)+JVS(13809)*UV(5256) - JUV(3113) = JVS(13810)*UV(3113)+JVS(13811)*UV(5250)+JVS(13812)*UV(5256) - JUV(3114) = JVS(13813)*UV(3114)+JVS(13814)*UV(4639)+JVS(13815)*UV(5250)+JVS(13816)*UV(5253)+JVS(13817)*UV(5256) - JUV(3115) = JVS(13818)*UV(2540)+JVS(13819)*UV(3115)+JVS(13820)*UV(3559)+JVS(13821)*UV(4563)+JVS(13822)*UV(5250) - JUV(3116) = JVS(13824)*UV(3116)+JVS(13825)*UV(4402)+JVS(13826)*UV(5250)+JVS(13827)*UV(5253)+JVS(13828)*UV(5256) - JUV(3117) = JVS(13829)*UV(453)+JVS(13830)*UV(1259)+JVS(13831)*UV(2216)+JVS(13832)*UV(3117)+JVS(13833)*UV(5112)& - &+JVS(13834)*UV(5250) - JUV(3118) = JVS(13837)*UV(353)+JVS(13838)*UV(1267)+JVS(13839)*UV(1919)+JVS(13840)*UV(3118)+JVS(13841)*UV(4766)& - &+JVS(13842)*UV(5250) - JUV(3119) = JVS(13845)*UV(3119)+JVS(13846)*UV(4487)+JVS(13847)*UV(5250)+JVS(13848)*UV(5253)+JVS(13849)*UV(5256) - JUV(3120) = JVS(13850)*UV(3120)+JVS(13851)*UV(4671)+JVS(13852)*UV(5250)+JVS(13853)*UV(5253)+JVS(13854)*UV(5256) - JUV(3121) = JVS(13855)*UV(517)+JVS(13856)*UV(1434)+JVS(13857)*UV(2341)+JVS(13858)*UV(3121)+JVS(13859)*UV(4399)& - &+JVS(13860)*UV(5250) - JUV(3122) = JVS(13863)*UV(283)+JVS(13864)*UV(1039)+JVS(13865)*UV(2418)+JVS(13866)*UV(3122)+JVS(13867)*UV(3794)& - &+JVS(13868)*UV(5250) - JUV(3123) = JVS(13871)*UV(3123)+JVS(13872)*UV(4466)+JVS(13873)*UV(5250)+JVS(13874)*UV(5253)+JVS(13875)*UV(5256) - JUV(3124) = JVS(13876)*UV(1548)+JVS(13877)*UV(1908)+JVS(13878)*UV(3124)+JVS(13879)*UV(3537)+JVS(13880)*UV(4566)& - &+JVS(13881)*UV(5250) - JUV(3125) = JVS(13883)*UV(3125)+JVS(13884)*UV(4408)+JVS(13885)*UV(5250)+JVS(13886)*UV(5253)+JVS(13887)*UV(5256) - JUV(3126) = JVS(13888)*UV(758)+JVS(13889)*UV(1145)+JVS(13890)*UV(2282)+JVS(13891)*UV(3126)+JVS(13892)*UV(4903)& - &+JVS(13893)*UV(5250) - JUV(3127) = JVS(13896)*UV(3127)+JVS(13897)*UV(4413)+JVS(13898)*UV(5250)+JVS(13899)*UV(5253)+JVS(13900)*UV(5256) - JUV(3128) = JVS(13901)*UV(473)+JVS(13902)*UV(512)+JVS(13903)*UV(2663)+JVS(13904)*UV(2664)+JVS(13905)*UV(2764)& - &+JVS(13906)*UV(2810)+JVS(13907)*UV(2976)+JVS(13908)*UV(3075)+JVS(13909)*UV(3128)+JVS(13911)*UV(4612)& - &+JVS(13913)*UV(4614)+JVS(13914)*UV(5250)+JVS(13917)*UV(5255) - JUV(3129) = JVS(13918)*UV(3129)+JVS(13919)*UV(5250)+JVS(13920)*UV(5256) - JUV(3130) = JVS(13921)*UV(3129)+JVS(13922)*UV(3130)+JVS(13923)*UV(5250)+JVS(13924)*UV(5256) - JUV(3131) = JVS(13925)*UV(3096)+JVS(13926)*UV(3131)+JVS(13927)*UV(5250)+JVS(13928)*UV(5256) - JUV(3132) = JVS(13929)*UV(1666)+JVS(13930)*UV(1735)+JVS(13931)*UV(2047)+JVS(13932)*UV(3132)+JVS(13933)*UV(3814)& - &+JVS(13935)*UV(5250) - JUV(3133) = JVS(13937)*UV(3133)+JVS(13938)*UV(3832)+JVS(13939)*UV(3996)+JVS(13940)*UV(5089)+JVS(13941)*UV(5258) - JUV(3134) = JVS(13942)*UV(3134)+JVS(13943)*UV(5250)+JVS(13944)*UV(5256) - JUV(3135) = JVS(13945)*UV(3134)+JVS(13946)*UV(3135)+JVS(13947)*UV(5250)+JVS(13948)*UV(5256) - JUV(3136) = JVS(13949)*UV(3105)+JVS(13950)*UV(3136)+JVS(13951)*UV(5250)+JVS(13952)*UV(5256) - JUV(3137) = JVS(13953)*UV(3137)+JVS(13954)*UV(4788)+JVS(13955)*UV(5250)+JVS(13956)*UV(5253)+JVS(13957)*UV(5256) - JUV(3138) = JVS(13958)*UV(3138)+JVS(13959)*UV(5250)+JVS(13960)*UV(5256) - JUV(3139) = JVS(13961)*UV(3138)+JVS(13962)*UV(3139)+JVS(13963)*UV(5250)+JVS(13964)*UV(5256) - JUV(3140) = JVS(13965)*UV(3140)+JVS(13966)*UV(4479)+JVS(13967)*UV(5250)+JVS(13968)*UV(5253)+JVS(13969)*UV(5256) - JUV(3141) = JVS(13970)*UV(3141)+JVS(13971)*UV(3806)+JVS(13972)*UV(4185)+JVS(13973)*UV(5250)+JVS(13974)*UV(5252) - JUV(3142) = JVS(13975)*UV(3142)+JVS(13976)*UV(4670)+JVS(13977)*UV(5250)+JVS(13978)*UV(5253)+JVS(13979)*UV(5256) - JUV(3143) = JVS(13980)*UV(3143)+JVS(13981)*UV(4682)+JVS(13982)*UV(5250)+JVS(13983)*UV(5253)+JVS(13984)*UV(5256) - JUV(3144) = JVS(13985)*UV(3144)+JVS(13986)*UV(5250)+JVS(13987)*UV(5256) - JUV(3145) = JVS(13988)*UV(3145)+JVS(13989)*UV(5250)+JVS(13990)*UV(5256) - JUV(3146) = JVS(13991)*UV(3146)+JVS(13992)*UV(4859)+JVS(13993)*UV(5250)+JVS(13994)*UV(5253)+JVS(13995)*UV(5256) - JUV(3147) = JVS(13996)*UV(3147)+JVS(13997)*UV(4395)+JVS(13998)*UV(5258) - JUV(3148) = JVS(13999)*UV(269)+JVS(14000)*UV(1491)+JVS(14001)*UV(2161)+JVS(14002)*UV(3148)+JVS(14003)*UV(5144)& - &+JVS(14004)*UV(5250) - JUV(3149) = JVS(14007)*UV(3144)+JVS(14008)*UV(3149)+JVS(14009)*UV(5250)+JVS(14010)*UV(5256) - JUV(3150) = JVS(14011)*UV(3150)+JVS(14012)*UV(4495)+JVS(14013)*UV(5250)+JVS(14014)*UV(5253)+JVS(14015)*UV(5256) - JUV(3151) = JVS(14016)*UV(1707)+JVS(14017)*UV(2052)+JVS(14018)*UV(3151)+JVS(14019)*UV(3522)+JVS(14020)*UV(4349)& - &+JVS(14021)*UV(5250) - JUV(3152) = JVS(14023)*UV(3152)+JVS(14024)*UV(4663)+JVS(14025)*UV(5250)+JVS(14026)*UV(5253)+JVS(14027)*UV(5256) - JUV(3153) = JVS(14028)*UV(3153)+JVS(14029)*UV(4438)+JVS(14030)*UV(5250)+JVS(14031)*UV(5253)+JVS(14032)*UV(5256) - JUV(3154) = JVS(14033)*UV(3154)+JVS(14034)*UV(3835)+JVS(14035)*UV(5250) - JUV(3155) = JVS(14036)*UV(3155)+JVS(14037)*UV(5166)+JVS(14038)*UV(5258) - JUV(3156) = JVS(14039)*UV(417)+JVS(14040)*UV(1143)+JVS(14041)*UV(2075)+JVS(14042)*UV(3156)+JVS(14043)*UV(4616)& - &+JVS(14044)*UV(5250)+JVS(14046)*UV(5255) - JUV(3157) = JVS(14047)*UV(250)+JVS(14048)*UV(3157)+JVS(14049)*UV(5250)+JVS(14050)*UV(5256) - JUV(3158) = JVS(14051)*UV(3145)+JVS(14052)*UV(3158)+JVS(14053)*UV(5250)+JVS(14054)*UV(5256) - JUV(3159) = JVS(14055)*UV(3159)+JVS(14056)*UV(4647)+JVS(14057)*UV(4723)+JVS(14058)*UV(5250)+JVS(14059)*UV(5252) - JUV(3160) = JVS(14060)*UV(3160)+JVS(14061)*UV(4945)+JVS(14062)*UV(5250) - JUV(3161) = JVS(14063)*UV(3161)+JVS(14064)*UV(4965)+JVS(14065)*UV(5250)+JVS(14066)*UV(5253)+JVS(14067)*UV(5256) - JUV(3162) = JVS(14068)*UV(3162)+JVS(14069)*UV(4454)+JVS(14070)*UV(5250)+JVS(14071)*UV(5253)+JVS(14072)*UV(5256) - JUV(3163) = JVS(14073)*UV(3163)+JVS(14074)*UV(4690)+JVS(14075)*UV(5250)+JVS(14076)*UV(5253)+JVS(14077)*UV(5256) - JUV(3164) = JVS(14078)*UV(3113)+JVS(14079)*UV(3164)+JVS(14080)*UV(5250)+JVS(14081)*UV(5256) - JUV(3165) = JVS(14082)*UV(3165)+JVS(14083)*UV(4457)+JVS(14084)*UV(5250)+JVS(14085)*UV(5253)+JVS(14086)*UV(5256) - JUV(3166) = JVS(14087)*UV(486)+JVS(14088)*UV(1079)+JVS(14089)*UV(1824)+JVS(14090)*UV(3166)+JVS(14091)*UV(5107)& - &+JVS(14092)*UV(5250) - JUV(3167) = JVS(14095)*UV(3167)+JVS(14096)*UV(4514)+JVS(14097)*UV(5250)+JVS(14098)*UV(5253)+JVS(14099)*UV(5256) - JUV(3168) = JVS(14100)*UV(412)+JVS(14101)*UV(870)+JVS(14102)*UV(2094)+JVS(14103)*UV(3168)+JVS(14104)*UV(5146)& - &+JVS(14105)*UV(5250) - JUV(3169) = JVS(14108)*UV(3169)+JVS(14109)*UV(5250)+JVS(14110)*UV(5256) - JUV(3170) = JVS(14111)*UV(3170)+JVS(14112)*UV(4478)+JVS(14113)*UV(5250)+JVS(14114)*UV(5253)+JVS(14115)*UV(5256) - JUV(3171) = JVS(14116)*UV(1853)+JVS(14117)*UV(2805)+JVS(14118)*UV(3171)+JVS(14119)*UV(4353)+JVS(14121)*UV(5250) - JUV(3172) = JVS(14123)*UV(3084)+JVS(14124)*UV(3172)+JVS(14125)*UV(5250)+JVS(14126)*UV(5256) - JUV(3173) = JVS(14127)*UV(3173)+JVS(14128)*UV(4809)+JVS(14129)*UV(5060)+JVS(14130)*UV(5250)+JVS(14131)*UV(5252) - JUV(3174) = JVS(14132)*UV(436)+JVS(14133)*UV(1027)+JVS(14134)*UV(2406)+JVS(14135)*UV(3174)+JVS(14136)*UV(3804)& - &+JVS(14137)*UV(5250) - JUV(3175) = JVS(14140)*UV(3175)+JVS(14141)*UV(4700)+JVS(14142)*UV(5043)+JVS(14143)*UV(5250)+JVS(14144)*UV(5252) - JUV(3176) = JVS(14145)*UV(764)+JVS(14146)*UV(1049)+JVS(14147)*UV(3176)+JVS(14148)*UV(3177)+JVS(14149)*UV(4707)& - &+JVS(14150)*UV(5250) - JUV(3177) = JVS(14152)*UV(3177)+JVS(14153)*UV(4707)+JVS(14154)*UV(5250)+JVS(14155)*UV(5252) - JUV(3178) = JVS(14156)*UV(3178)+JVS(14157)*UV(4790)+JVS(14158)*UV(5250)+JVS(14159)*UV(5253)+JVS(14160)*UV(5256) - JUV(3179) = JVS(14161)*UV(3179)+JVS(14162)*UV(5250)+JVS(14163)*UV(5256) - JUV(3180) = JVS(14164)*UV(3179)+JVS(14165)*UV(3180)+JVS(14166)*UV(5250)+JVS(14167)*UV(5256) - JUV(3181) = JVS(14168)*UV(3181)+JVS(14169)*UV(4797)+JVS(14170)*UV(5250)+JVS(14171)*UV(5253)+JVS(14172)*UV(5256) - JUV(3182) = JVS(14173)*UV(3182)+JVS(14174)*UV(5250)+JVS(14175)*UV(5256) - JUV(3183) = JVS(14176)*UV(1744)+JVS(14177)*UV(2059)+JVS(14178)*UV(3183)+JVS(14179)*UV(3544)+JVS(14180)*UV(4389)& - &+JVS(14181)*UV(5250) - JUV(3184) = JVS(14183)*UV(1740)+JVS(14184)*UV(2121)+JVS(14185)*UV(3184)+JVS(14186)*UV(3493)+JVS(14187)*UV(4361)& - &+JVS(14188)*UV(5250) - JUV(3185) = JVS(14190)*UV(1674)+JVS(14191)*UV(2221)+JVS(14192)*UV(3185)+JVS(14193)*UV(3548)+JVS(14194)*UV(4355)& - &+JVS(14195)*UV(5250) - JUV(3186) = JVS(14197)*UV(3186)+JVS(14198)*UV(4017)+JVS(14199)*UV(4018)+JVS(14200)*UV(5141)+JVS(14201)*UV(5258) - JUV(3187) = JVS(14202)*UV(3187)+JVS(14203)*UV(4791)+JVS(14204)*UV(5250)+JVS(14205)*UV(5253)+JVS(14206)*UV(5256) - JUV(3188) = JVS(14207)*UV(3188)+JVS(14208)*UV(3671)+JVS(14209)*UV(3721)+JVS(14210)*UV(5250)+JVS(14211)*UV(5252) - JUV(3189) = JVS(14212)*UV(3189)+JVS(14213)*UV(4676)+JVS(14214)*UV(5250)+JVS(14215)*UV(5253)+JVS(14216)*UV(5256) - JUV(3190) = JVS(14217)*UV(3190)+JVS(14218)*UV(4632)+JVS(14219)*UV(5250)+JVS(14220)*UV(5253)+JVS(14221)*UV(5256) - JUV(3191) = JVS(14222)*UV(3191)+JVS(14223)*UV(4810)+JVS(14224)*UV(5250)+JVS(14225)*UV(5253)+JVS(14226)*UV(5256) - JUV(3192) = JVS(14227)*UV(3192)+JVS(14228)*UV(5250)+JVS(14229)*UV(5256) - JUV(3193) = JVS(14230)*UV(3192)+JVS(14231)*UV(3193)+JVS(14232)*UV(5250)+JVS(14233)*UV(5256) - JUV(3194) = JVS(14234)*UV(2544)+JVS(14235)*UV(3194)+JVS(14236)*UV(4786)+JVS(14237)*UV(5224)+JVS(14239)*UV(5252)& - &+JVS(14241)*UV(5256) - JUV(3195) = JVS(14242)*UV(68)+JVS(14243)*UV(884)+JVS(14244)*UV(1647)+JVS(14245)*UV(2740)+JVS(14246)*UV(3195)& - &+JVS(14247)*UV(3627)+JVS(14249)*UV(5250)+JVS(14250)*UV(5252)+JVS(14252)*UV(5256) - JUV(3196) = JVS(14253)*UV(3196)+JVS(14254)*UV(4558)+JVS(14255)*UV(5250)+JVS(14256)*UV(5255) - JUV(3197) = JVS(14257)*UV(3197)+JVS(14258)*UV(5033)+JVS(14259)*UV(5250)+JVS(14260)*UV(5253) - JUV(3198) = JVS(14261)*UV(3198)+JVS(14262)*UV(4585)+JVS(14263)*UV(5250)+JVS(14264)*UV(5255) - JUV(3199) = JVS(14265)*UV(3199)+JVS(14266)*UV(4375)+JVS(14267)*UV(5250)+JVS(14268)*UV(5253) - JUV(3200) = JVS(14269)*UV(1576)+JVS(14270)*UV(2137)+JVS(14271)*UV(3200)+JVS(14272)*UV(4813)+JVS(14273)*UV(5250) - JUV(3201) = JVS(14275)*UV(3201)+JVS(14276)*UV(4711)+JVS(14277)*UV(5250)+JVS(14278)*UV(5255) - JUV(3202) = JVS(14279)*UV(3202)+JVS(14280)*UV(4604)+JVS(14281)*UV(4606)+JVS(14282)*UV(5258) - JUV(3203) = JVS(14283)*UV(3203)+JVS(14284)*UV(5036)+JVS(14285)*UV(5250)+JVS(14286)*UV(5255) - JUV(3204) = JVS(14287)*UV(3204)+JVS(14288)*UV(5025)+JVS(14289)*UV(5250)+JVS(14290)*UV(5253) - JUV(3205) = JVS(14291)*UV(3205)+JVS(14292)*UV(4359)+JVS(14293)*UV(5250)+JVS(14294)*UV(5255) - JUV(3206) = JVS(14295)*UV(3206)+JVS(14296)*UV(4892)+JVS(14297)*UV(5250)+JVS(14298)*UV(5253) - JUV(3207) = JVS(14299)*UV(3207)+JVS(14300)*UV(4698)+JVS(14301)*UV(5250)+JVS(14302)*UV(5255) - JUV(3208) = JVS(14303)*UV(3208)+JVS(14304)*UV(5149)+JVS(14305)*UV(5250)+JVS(14306)*UV(5255) - JUV(3209) = JVS(14307)*UV(3209)+JVS(14308)*UV(4968)+JVS(14309)*UV(5250)+JVS(14310)*UV(5255) - JUV(3210) = JVS(14311)*UV(3210)+JVS(14312)*UV(4093)+JVS(14313)*UV(5068)+JVS(14314)*UV(5258) - JUV(3211) = JVS(14315)*UV(3211)+JVS(14316)*UV(4826)+JVS(14317)*UV(5250)+JVS(14318)*UV(5255) - JUV(3212) = JVS(14319)*UV(3212)+JVS(14320)*UV(4722)+JVS(14321)*UV(5250)+JVS(14322)*UV(5252) - JUV(3213) = JVS(14323)*UV(409)+JVS(14324)*UV(1004)+JVS(14325)*UV(2157)+JVS(14326)*UV(2666)+JVS(14327)*UV(3213)& - &+JVS(14328)*UV(3789)+JVS(14330)*UV(5250) - JUV(3214) = JVS(14334)*UV(3214)+JVS(14335)*UV(4669)+JVS(14336)*UV(5250)+JVS(14337)*UV(5255) - JUV(3215) = JVS(14338)*UV(2568)+JVS(14339)*UV(3215)+JVS(14340)*UV(3216)+JVS(14342)*UV(3837)+JVS(14343)*UV(5250)& - &+JVS(14344)*UV(5252)+JVS(14345)*UV(5256) - JUV(3216) = JVS(14346)*UV(3216)+JVS(14347)*UV(3837)+JVS(14348)*UV(5250)+JVS(14349)*UV(5255) - JUV(3217) = JVS(14350)*UV(3217)+JVS(14351)*UV(4123)+JVS(14352)*UV(5250)+JVS(14353)*UV(5255) - JUV(3218) = JVS(14354)*UV(3218)+JVS(14355)*UV(4443)+JVS(14356)*UV(5250)+JVS(14357)*UV(5253) - JUV(3219) = JVS(14358)*UV(627)+JVS(14359)*UV(3169)+JVS(14360)*UV(3219)+JVS(14361)*UV(5250)+JVS(14362)*UV(5255)& - &+JVS(14363)*UV(5256) - JUV(3220) = JVS(14364)*UV(3220)+JVS(14365)*UV(4591)+JVS(14366)*UV(5250)+JVS(14367)*UV(5253) - JUV(3221) = JVS(14368)*UV(3221)+JVS(14369)*UV(4888)+JVS(14370)*UV(5250)+JVS(14371)*UV(5253) - JUV(3222) = JVS(14372)*UV(3222)+JVS(14373)*UV(5151)+JVS(14374)*UV(5250)+JVS(14375)*UV(5255) - JUV(3223) = JVS(14376)*UV(3223)+JVS(14377)*UV(4910)+JVS(14378)*UV(5250)+JVS(14379)*UV(5253) - JUV(3224) = JVS(14380)*UV(3224)+JVS(14381)*UV(4826)+JVS(14382)*UV(5250)+JVS(14383)*UV(5253) - JUV(3225) = JVS(14384)*UV(3225)+JVS(14385)*UV(4917)+JVS(14386)*UV(5250)+JVS(14387)*UV(5255) - JUV(3226) = JVS(14388)*UV(3226)+JVS(14389)*UV(4930)+JVS(14390)*UV(5250)+JVS(14391)*UV(5255) - JUV(3227) = JVS(14392)*UV(3227)+JVS(14393)*UV(4948)+JVS(14394)*UV(5250)+JVS(14395)*UV(5255) - JUV(3228) = JVS(14396)*UV(968)+JVS(14397)*UV(3228)+JVS(14398)*UV(5132)+JVS(14399)*UV(5250) - JUV(3229) = JVS(14401)*UV(3229)+JVS(14402)*UV(4100)+JVS(14403)*UV(5250)+JVS(14404)*UV(5253) - JUV(3230) = JVS(14405)*UV(568)+JVS(14406)*UV(3230)+JVS(14408)*UV(5250) - JUV(3231) = JVS(14410)*UV(3231)+JVS(14411)*UV(4856)+JVS(14412)*UV(5250)+JVS(14413)*UV(5255) - JUV(3232) = JVS(14414)*UV(3232)+JVS(14415)*UV(4181)+JVS(14416)*UV(5250)+JVS(14417)*UV(5253) - JUV(3233) = JVS(14418)*UV(2226)+JVS(14419)*UV(2304)+JVS(14420)*UV(2719)+JVS(14422)*UV(2856)+JVS(14423)*UV(3233)& - &+JVS(14428)*UV(5004)+JVS(14429)*UV(5250)+JVS(14431)*UV(5255) - JUV(3234) = JVS(14433)*UV(1289)+JVS(14434)*UV(3234)+JVS(14435)*UV(4958)+JVS(14436)*UV(5020)+JVS(14438)*UV(5252)& - &+JVS(14440)*UV(5256) - JUV(3235) = JVS(14441)*UV(3235)+JVS(14442)*UV(3659)+JVS(14443)*UV(5250)+JVS(14444)*UV(5255) - JUV(3236) = JVS(14445)*UV(3236)+JVS(14446)*UV(4657)+JVS(14447)*UV(5250)+JVS(14448)*UV(5253) - JUV(3237) = JVS(14449)*UV(3237)+JVS(14450)*UV(4966)+JVS(14451)*UV(5250)+JVS(14452)*UV(5255) - JUV(3238) = JVS(14453)*UV(3238)+JVS(14454)*UV(4667)+JVS(14455)*UV(5250)+JVS(14456)*UV(5255) - JUV(3239) = JVS(14457)*UV(3239)+JVS(14458)*UV(4836)+JVS(14459)*UV(5250)+JVS(14460)*UV(5253) - JUV(3240) = JVS(14461)*UV(3240)+JVS(14462)*UV(4321)+JVS(14463)*UV(5250)+JVS(14464)*UV(5252) - JUV(3241) = JVS(14465)*UV(105)+JVS(14466)*UV(2252)+JVS(14467)*UV(3241)+JVS(14468)*UV(4615)+JVS(14469)*UV(5219)& - &+JVS(14470)*UV(5250)+JVS(14471)*UV(5252)+JVS(14473)*UV(5256) - JUV(3242) = JVS(14474)*UV(413)+JVS(14475)*UV(1523)+JVS(14476)*UV(1619)+JVS(14477)*UV(1769)+JVS(14478)*UV(2165)& - &+JVS(14479)*UV(2737)+JVS(14480)*UV(2860)+JVS(14481)*UV(3242)+JVS(14482)*UV(3564)+JVS(14485)*UV(4940)& - &+JVS(14486)*UV(5250) - JUV(3243) = JVS(14491)*UV(3243)+JVS(14492)*UV(4596)+JVS(14493)*UV(5250)+JVS(14494)*UV(5255) - JUV(3244) = JVS(14495)*UV(677)+JVS(14496)*UV(3182)+JVS(14497)*UV(3244)+JVS(14498)*UV(5250)+JVS(14499)*UV(5255)& - &+JVS(14500)*UV(5256) - JUV(3245) = JVS(14501)*UV(2489)+JVS(14502)*UV(3245)+JVS(14503)*UV(4351)+JVS(14505)*UV(5121)+JVS(14506)*UV(5250)& - &+JVS(14507)*UV(5252) - JUV(3246) = JVS(14509)*UV(13)+JVS(14510)*UV(1218)+JVS(14511)*UV(1589)+JVS(14512)*UV(2585)+JVS(14513)*UV(3246)& - &+JVS(14515)*UV(3648)+JVS(14516)*UV(5250)+JVS(14517)*UV(5252)+JVS(14519)*UV(5256) - JUV(3247) = JVS(14520)*UV(726)+JVS(14521)*UV(1372)+JVS(14523)*UV(3247)+JVS(14525)*UV(5214)+JVS(14526)*UV(5250)& - &+JVS(14528)*UV(5255) - JUV(3248) = JVS(14530)*UV(3248)+JVS(14531)*UV(3913)+JVS(14532)*UV(5250)+JVS(14533)*UV(5256) - JUV(3249) = JVS(14534)*UV(3249)+JVS(14535)*UV(4946)+JVS(14536)*UV(5250)+JVS(14537)*UV(5253) - JUV(3250) = JVS(14538)*UV(3250)+JVS(14539)*UV(3501)+JVS(14540)*UV(3550)+JVS(14541)*UV(5250) - JUV(3251) = JVS(14542)*UV(1600)+JVS(14543)*UV(3251)+JVS(14544)*UV(3624)+JVS(14545)*UV(4935)+JVS(14546)*UV(5250) - JUV(3252) = JVS(14547)*UV(1949)+JVS(14548)*UV(3252)+JVS(14549)*UV(4160)+JVS(14550)*UV(4688)+JVS(14552)*UV(5252)& - &+JVS(14554)*UV(5256) - JUV(3253) = JVS(14555)*UV(3253)+JVS(14556)*UV(3827)+JVS(14557)*UV(5250)+JVS(14558)*UV(5255) - JUV(3254) = JVS(14559)*UV(3254)+JVS(14560)*UV(4954)+JVS(14561)*UV(5250)+JVS(14562)*UV(5253) - JUV(3255) = JVS(14563)*UV(3255)+JVS(14564)*UV(3336)+JVS(14565)*UV(3547)+JVS(14566)*UV(4546)+JVS(14567)*UV(5250)& - &+JVS(14568)*UV(5252)+JVS(14569)*UV(5256) - JUV(3256) = JVS(14570)*UV(3256)+JVS(14571)*UV(4554)+JVS(14572)*UV(5250)+JVS(14573)*UV(5255) - JUV(3257) = JVS(14574)*UV(3257)+JVS(14575)*UV(4831)+JVS(14576)*UV(5250)+JVS(14577)*UV(5253) - JUV(3258) = JVS(14578)*UV(3258)+JVS(14579)*UV(4807)+JVS(14580)*UV(5250)+JVS(14581)*UV(5253) - JUV(3259) = JVS(14582)*UV(3259)+JVS(14583)*UV(4106)+JVS(14584)*UV(5250)+JVS(14585)*UV(5255) - JUV(3260) = JVS(14586)*UV(3260)+JVS(14587)*UV(4860)+JVS(14588)*UV(5250)+JVS(14589)*UV(5253) - JUV(3261) = JVS(14590)*UV(3261)+JVS(14591)*UV(4180)+JVS(14592)*UV(5250)+JVS(14593)*UV(5255) - JUV(3262) = JVS(14594)*UV(1665)+JVS(14595)*UV(3262)+JVS(14596)*UV(3702)+JVS(14597)*UV(4992)+JVS(14598)*UV(5250) - JUV(3263) = JVS(14599)*UV(707)+JVS(14600)*UV(3097)+JVS(14601)*UV(3263)+JVS(14602)*UV(5250)+JVS(14603)*UV(5255)& - &+JVS(14604)*UV(5256) - JUV(3264) = JVS(14605)*UV(3264)+JVS(14606)*UV(4803)+JVS(14607)*UV(5250)+JVS(14608)*UV(5252) - JUV(3265) = JVS(14609)*UV(3265)+JVS(14610)*UV(4767)+JVS(14611)*UV(5250)+JVS(14612)*UV(5255) - JUV(3266) = JVS(14613)*UV(3266)+JVS(14614)*UV(4476)+JVS(14615)*UV(5250)+JVS(14616)*UV(5255) - JUV(3267) = JVS(14617)*UV(3267)+JVS(14618)*UV(4565)+JVS(14619)*UV(5250)+JVS(14620)*UV(5255) - JUV(3268) = JVS(14621)*UV(2135)+JVS(14622)*UV(3175)+JVS(14623)*UV(3268)+JVS(14625)*UV(5043)+JVS(14627)*UV(5252)& - &+JVS(14629)*UV(5256) - JUV(3269) = JVS(14630)*UV(2025)+JVS(14631)*UV(3269)+JVS(14632)*UV(4174)+JVS(14633)*UV(4689)+JVS(14635)*UV(5252)& - &+JVS(14637)*UV(5256) - JUV(3270) = JVS(14638)*UV(478)+JVS(14639)*UV(1070)+JVS(14640)*UV(2063)+JVS(14641)*UV(2597)+JVS(14642)*UV(3270)& - &+JVS(14643)*UV(3703)+JVS(14645)*UV(5250) - JUV(3271) = JVS(14649)*UV(3271)+JVS(14650)*UV(4727)+JVS(14651)*UV(5250)+JVS(14652)*UV(5252) - JUV(3272) = JVS(14653)*UV(3272)+JVS(14654)*UV(5075)+JVS(14655)*UV(5250)+JVS(14656)*UV(5255) - JUV(3273) = JVS(14657)*UV(3273)+JVS(14658)*UV(3801)+JVS(14659)*UV(5250)+JVS(14660)*UV(5252) - JUV(3274) = JVS(14661)*UV(3274)+JVS(14662)*UV(4384)+JVS(14663)*UV(5250)+JVS(14664)*UV(5255) - JUV(3275) = JVS(14665)*UV(3275)+JVS(14666)*UV(5079)+JVS(14667)*UV(5250)+JVS(14668)*UV(5253) - JUV(3276) = JVS(14669)*UV(3276)+JVS(14670)*UV(4816)+JVS(14671)*UV(5250)+JVS(14672)*UV(5255) - JUV(3277) = JVS(14673)*UV(3277)+JVS(14674)*UV(5202)+JVS(14675)*UV(5250)+JVS(14676)*UV(5255) - JUV(3278) = JVS(14677)*UV(3278)+JVS(14678)*UV(4345)+JVS(14679)*UV(5250)+JVS(14680)*UV(5255) - JUV(3279) = JVS(14681)*UV(3279)+JVS(14682)*UV(3825)+JVS(14683)*UV(5250)+JVS(14684)*UV(5255) - JUV(3280) = JVS(14685)*UV(3280)+JVS(14686)*UV(4993)+JVS(14687)*UV(5250)+JVS(14688)*UV(5255) - JUV(3281) = JVS(14689)*UV(3259)+JVS(14690)*UV(3281)+JVS(14691)*UV(4106)+JVS(14692)*UV(4325)+JVS(14693)*UV(5250)& - &+JVS(14694)*UV(5252)+JVS(14696)*UV(5256) - JUV(3282) = JVS(14697)*UV(3282)+JVS(14698)*UV(4417)+JVS(14699)*UV(5250)+JVS(14700)*UV(5253) - JUV(3283) = JVS(14701)*UV(74)+JVS(14702)*UV(1396)+JVS(14703)*UV(1729)+JVS(14704)*UV(3235)+JVS(14705)*UV(3283)& - &+JVS(14706)*UV(3650)+JVS(14708)*UV(5250)+JVS(14709)*UV(5252)+JVS(14711)*UV(5256) - JUV(3284) = JVS(14712)*UV(2001)+JVS(14713)*UV(2553)+JVS(14714)*UV(2814)+JVS(14715)*UV(3284)+JVS(14717)*UV(4561)& - &+JVS(14719)*UV(5252)+JVS(14721)*UV(5256) - JUV(3285) = JVS(14722)*UV(3285)+JVS(14723)*UV(4720)+JVS(14724)*UV(5250)+JVS(14725)*UV(5252) - JUV(3286) = JVS(14726)*UV(3286)+JVS(14727)*UV(3801)+JVS(14728)*UV(5250)+JVS(14729)*UV(5255) - JUV(3287) = JVS(14730)*UV(3287)+JVS(14731)*UV(4126)+JVS(14732)*UV(5250)+JVS(14733)*UV(5255) - JUV(3288) = JVS(14734)*UV(3288)+JVS(14735)*UV(4583)+JVS(14736)*UV(5250)+JVS(14737)*UV(5255) - JUV(3289) = JVS(14738)*UV(3289)+JVS(14739)*UV(4598)+JVS(14740)*UV(5250)+JVS(14741)*UV(5255) - JUV(3290) = JVS(14742)*UV(3290)+JVS(14743)*UV(4993)+JVS(14744)*UV(5250)+JVS(14745)*UV(5253) - JUV(3291) = JVS(14746)*UV(3291)+JVS(14747)*UV(4105)+JVS(14748)*UV(5250)+JVS(14749)*UV(5255) - JUV(3292) = JVS(14750)*UV(3292)+JVS(14751)*UV(4833)+JVS(14752)*UV(5250)+JVS(14753)*UV(5253) - JUV(3293) = JVS(14754)*UV(3293)+JVS(14755)*UV(4818)+JVS(14756)*UV(5250)+JVS(14757)*UV(5253) - JUV(3294) = JVS(14758)*UV(3294)+JVS(14759)*UV(4954)+JVS(14760)*UV(5250)+JVS(14761)*UV(5255) - JUV(3295) = JVS(14762)*UV(3295)+JVS(14763)*UV(3631)+JVS(14764)*UV(5250)+JVS(14765)*UV(5255) - JUV(3296) = JVS(14766)*UV(18)+JVS(14767)*UV(982)+JVS(14768)*UV(1594)+JVS(14769)*UV(3295)+JVS(14770)*UV(3296)& - &+JVS(14772)*UV(3632)+JVS(14773)*UV(5250)+JVS(14774)*UV(5252)+JVS(14776)*UV(5256) - JUV(3297) = JVS(14777)*UV(3297)+JVS(14778)*UV(4332)+JVS(14779)*UV(4475)+JVS(14780)*UV(5258) - JUV(3298) = JVS(14781)*UV(3298)+JVS(14782)*UV(3822)+JVS(14783)*UV(4800)+JVS(14784)*UV(5250) - JUV(3299) = JVS(14785)*UV(3299)+JVS(14786)*UV(5129)+JVS(14787)*UV(5250)+JVS(14788)*UV(5255) - JUV(3300) = JVS(14789)*UV(3300)+JVS(14790)*UV(4985)+JVS(14791)*UV(5250)+JVS(14792)*UV(5253) - JUV(3301) = JVS(14793)*UV(1768)+JVS(14794)*UV(3301)+JVS(14795)*UV(3302)+JVS(14796)*UV(4661)+JVS(14798)*UV(5252)& - &+JVS(14800)*UV(5256) - JUV(3302) = JVS(14801)*UV(3302)+JVS(14802)*UV(3934)+JVS(14803)*UV(4574)+JVS(14804)*UV(5250) - JUV(3303) = JVS(14805)*UV(3303)+JVS(14806)*UV(4051)+JVS(14807)*UV(5250)+JVS(14808)*UV(5253) - JUV(3304) = JVS(14809)*UV(3304)+JVS(14810)*UV(4971)+JVS(14811)*UV(5250)+JVS(14812)*UV(5252) - JUV(3305) = JVS(14813)*UV(2225)+JVS(14814)*UV(3305)+JVS(14816)*UV(4000)+JVS(14818)*UV(5252)+JVS(14819)*UV(5253) - JUV(3306) = JVS(14821)*UV(3306)+JVS(14822)*UV(4450)+JVS(14823)*UV(5250)+JVS(14824)*UV(5253) - JUV(3307) = JVS(14825)*UV(3307)+JVS(14826)*UV(4288)+JVS(14827)*UV(5250)+JVS(14828)*UV(5253) - JUV(3308) = JVS(14829)*UV(3308)+JVS(14830)*UV(4582)+JVS(14831)*UV(5250)+JVS(14832)*UV(5255) - JUV(3309) = JVS(14833)*UV(789)+JVS(14834)*UV(1094)+JVS(14835)*UV(3309)+JVS(14836)*UV(4410)+JVS(14837)*UV(5250) - JUV(3310) = JVS(14839)*UV(3310)+JVS(14840)*UV(4959)+JVS(14841)*UV(5250)+JVS(14842)*UV(5255) - JUV(3311) = JVS(14843)*UV(3311)+JVS(14844)*UV(5090)+JVS(14845)*UV(5250)+JVS(14846)*UV(5253) - JUV(3312) = JVS(14847)*UV(3312)+JVS(14848)*UV(4771)+JVS(14849)*UV(5250)+JVS(14850)*UV(5253) - JUV(3313) = JVS(14851)*UV(3313)+JVS(14852)*UV(4652)+JVS(14853)*UV(5250)+JVS(14854)*UV(5253) - JUV(3314) = JVS(14855)*UV(3314)+JVS(14856)*UV(4594)+JVS(14857)*UV(5250)+JVS(14858)*UV(5255) - JUV(3315) = JVS(14859)*UV(3315)+JVS(14860)*UV(4770)+JVS(14861)*UV(5250)+JVS(14862)*UV(5253) - JUV(3316) = JVS(14863)*UV(3316)+JVS(14864)*UV(4948)+JVS(14865)*UV(5250)+JVS(14866)*UV(5253) - JUV(3317) = JVS(14867)*UV(3317)+JVS(14868)*UV(4622)+JVS(14869)*UV(5250)+JVS(14870)*UV(5253) - JUV(3318) = JVS(14871)*UV(3318)+JVS(14872)*UV(4139)+JVS(14873)*UV(5250)+JVS(14874)*UV(5253) - JUV(3319) = JVS(14875)*UV(3319)+JVS(14876)*UV(3799)+JVS(14877)*UV(5250)+JVS(14878)*UV(5255) - JUV(3320) = JVS(14879)*UV(3320)+JVS(14880)*UV(3796)+JVS(14881)*UV(5250)+JVS(14882)*UV(5255) - JUV(3321) = JVS(14883)*UV(3321)+JVS(14884)*UV(3820)+JVS(14885)*UV(5250)+JVS(14886)*UV(5255) - JUV(3322) = JVS(14887)*UV(3322)+JVS(14888)*UV(4725)+JVS(14889)*UV(5250)+JVS(14890)*UV(5252) - JUV(3323) = JVS(14891)*UV(3323)+JVS(14892)*UV(4681)+JVS(14893)*UV(5250)+JVS(14894)*UV(5253) - JUV(3324) = JVS(14895)*UV(3324)+JVS(14896)*UV(4816)+JVS(14897)*UV(5250)+JVS(14898)*UV(5253) - JUV(3325) = JVS(14899)*UV(3325)+JVS(14900)*UV(4916)+JVS(14901)*UV(5250)+JVS(14902)*UV(5255) - JUV(3326) = JVS(14903)*UV(3326)+JVS(14904)*UV(5155)+JVS(14905)*UV(5250)+JVS(14906)*UV(5255) - JUV(3327) = JVS(14907)*UV(3327)+JVS(14908)*UV(4496)+JVS(14909)*UV(5250)+JVS(14910)*UV(5253) - JUV(3328) = JVS(14911)*UV(1141)+JVS(14912)*UV(3328)+JVS(14913)*UV(3767)+JVS(14914)*UV(4387)+JVS(14915)*UV(5250) - JUV(3329) = JVS(14917)*UV(1169)+JVS(14918)*UV(3329)+JVS(14919)*UV(4464)+JVS(14921)*UV(5252)+JVS(14923)*UV(5256) - JUV(3330) = JVS(14924)*UV(3273)+JVS(14925)*UV(3286)+JVS(14926)*UV(3330)+JVS(14927)*UV(3801)+JVS(14928)*UV(4936)& - &+JVS(14929)*UV(5250)+JVS(14931)*UV(5255) - JUV(3331) = JVS(14932)*UV(446)+JVS(14933)*UV(1150)+JVS(14934)*UV(2087)+JVS(14935)*UV(2088)+JVS(14936)*UV(3331)& - &+JVS(14937)*UV(3797)+JVS(14938)*UV(5250) - JUV(3332) = JVS(14942)*UV(1310)+JVS(14943)*UV(2372)+JVS(14944)*UV(3332)+JVS(14945)*UV(4055)+JVS(14947)*UV(5252)& - &+JVS(14949)*UV(5256) - JUV(3333) = JVS(14950)*UV(2199)+JVS(14951)*UV(2409)+JVS(14952)*UV(3333)+JVS(14953)*UV(5045)+JVS(14955)*UV(5252)& - &+JVS(14957)*UV(5256) - JUV(3334) = JVS(14958)*UV(3334)+JVS(14959)*UV(5040)+JVS(14960)*UV(5155)+JVS(14961)*UV(5250)+JVS(14962)*UV(5255) - JUV(3335) = JVS(14963)*UV(1487)+JVS(14964)*UV(3335)+JVS(14965)*UV(3907)+JVS(14967)*UV(5252)+JVS(14969)*UV(5256) - JUV(3336) = JVS(14970)*UV(2553)+JVS(14971)*UV(3336)+JVS(14972)*UV(4546)+JVS(14974)*UV(5250)+JVS(14975)*UV(5255) - JUV(3337) = JVS(14976)*UV(1618)+JVS(14977)*UV(2018)+JVS(14978)*UV(2523)+JVS(14979)*UV(3337)+JVS(14980)*UV(4418)& - &+JVS(14982)*UV(5250) - JUV(3338) = JVS(14985)*UV(887)+JVS(14986)*UV(3338)+JVS(14987)*UV(3839)+JVS(14989)*UV(5252)+JVS(14991)*UV(5256) - JUV(3339) = JVS(14992)*UV(681)+JVS(14993)*UV(1167)+JVS(14994)*UV(3339)+JVS(14995)*UV(3340)+JVS(14996)*UV(4699)& - &+JVS(14997)*UV(5250) - JUV(3340) = JVS(14999)*UV(3340)+JVS(15000)*UV(4699)+JVS(15001)*UV(5250)+JVS(15002)*UV(5252) - JUV(3341) = JVS(15003)*UV(2455)+JVS(15004)*UV(3341)+JVS(15005)*UV(3910)+JVS(15006)*UV(4884)+JVS(15007)*UV(5250) - JUV(3342) = JVS(15009)*UV(1434)+JVS(15010)*UV(2341)+JVS(15011)*UV(3342)+JVS(15012)*UV(4399)+JVS(15014)*UV(5252)& - &+JVS(15016)*UV(5256) - JUV(3343) = JVS(15017)*UV(432)+JVS(15018)*UV(1131)+JVS(15019)*UV(1822)+JVS(15020)*UV(2078)+JVS(15021)*UV(3343)& - &+JVS(15022)*UV(3790)+JVS(15023)*UV(5250) - JUV(3344) = JVS(15027)*UV(2156)+JVS(15028)*UV(2461)+JVS(15029)*UV(3344)+JVS(15030)*UV(4060)+JVS(15032)*UV(5252)& - &+JVS(15034)*UV(5256) - JUV(3345) = JVS(15035)*UV(811)+JVS(15036)*UV(1161)+JVS(15037)*UV(3271)+JVS(15038)*UV(3345)+JVS(15039)*UV(4727)& - &+JVS(15040)*UV(5250) - JUV(3346) = JVS(15043)*UV(1406)+JVS(15044)*UV(3346)+JVS(15045)*UV(4871)+JVS(15047)*UV(5252)+JVS(15049)*UV(5256) - JUV(3347) = JVS(15050)*UV(1472)+JVS(15051)*UV(3347)+JVS(15052)*UV(4506)+JVS(15054)*UV(5252)+JVS(15056)*UV(5256) - JUV(3348) = JVS(15057)*UV(1934)+JVS(15058)*UV(2380)+JVS(15059)*UV(2527)+JVS(15060)*UV(3348)+JVS(15062)*UV(5019)& - &+JVS(15063)*UV(5250) - JUV(3349) = JVS(15066)*UV(2125)+JVS(15067)*UV(3349)+JVS(15068)*UV(3925)+JVS(15069)*UV(4587)+JVS(15070)*UV(5250) - JUV(3350) = JVS(15072)*UV(2043)+JVS(15074)*UV(2729)+JVS(15075)*UV(3350)+JVS(15078)*UV(5250) - JUV(3351) = JVS(15081)*UV(1849)+JVS(15082)*UV(3351)+JVS(15083)*UV(4171)+JVS(15085)*UV(5252)+JVS(15087)*UV(5256) - JUV(3352) = JVS(15088)*UV(531)+JVS(15089)*UV(1065)+JVS(15090)*UV(3352)+JVS(15091)*UV(3353)+JVS(15092)*UV(4928)& - &+JVS(15093)*UV(5250) - JUV(3353) = JVS(15095)*UV(3353)+JVS(15096)*UV(4928)+JVS(15097)*UV(5250)+JVS(15098)*UV(5252) - JUV(3354) = JVS(15099)*UV(2114)+JVS(15100)*UV(2344)+JVS(15101)*UV(3354)+JVS(15102)*UV(3904)+JVS(15103)*UV(4719)& - &+JVS(15104)*UV(5250) - JUV(3355) = JVS(15106)*UV(1522)+JVS(15107)*UV(2573)+JVS(15108)*UV(3355)+JVS(15111)*UV(5250) - JUV(3356) = JVS(15114)*UV(683)+JVS(15115)*UV(1510)+JVS(15116)*UV(3356)+JVS(15117)*UV(3357)+JVS(15118)*UV(4701)& - &+JVS(15119)*UV(5250) - JUV(3357) = JVS(15121)*UV(3357)+JVS(15122)*UV(4701)+JVS(15123)*UV(5250)+JVS(15124)*UV(5252) - JUV(3358) = JVS(15125)*UV(3358)+JVS(15126)*UV(3529)+JVS(15127)*UV(5172)+JVS(15128)*UV(5250)+JVS(15129)*UV(5253) - JUV(3359) = JVS(15130)*UV(779)+JVS(15131)*UV(1415)+JVS(15132)*UV(3359)+JVS(15133)*UV(3360)+JVS(15134)*UV(4718)& - &+JVS(15135)*UV(5250) - JUV(3360) = JVS(15137)*UV(3360)+JVS(15138)*UV(4718)+JVS(15139)*UV(5250)+JVS(15140)*UV(5252) - JUV(3361) = JVS(15141)*UV(1504)+JVS(15142)*UV(3361)+JVS(15143)*UV(4205)+JVS(15145)*UV(5252)+JVS(15147)*UV(5256) - JUV(3362) = JVS(15148)*UV(1045)+JVS(15149)*UV(3362)+JVS(15150)*UV(4463)+JVS(15152)*UV(5252)+JVS(15154)*UV(5256) - JUV(3363) = JVS(15155)*UV(869)+JVS(15156)*UV(3363)+JVS(15157)*UV(4655)+JVS(15159)*UV(5252)+JVS(15161)*UV(5256) - JUV(3364) = JVS(15162)*UV(2366)+JVS(15163)*UV(3364)+JVS(15164)*UV(3970)+JVS(15165)*UV(4723)+JVS(15166)*UV(5250) - JUV(3365) = JVS(15168)*UV(279)+JVS(15169)*UV(1958)+JVS(15170)*UV(2564)+JVS(15171)*UV(3365)+JVS(15172)*UV(4131)& - &+JVS(15174)*UV(5250) - JUV(3366) = JVS(15177)*UV(3366)+JVS(15178)*UV(3624)+JVS(15179)*UV(3702)+JVS(15180)*UV(5011)+JVS(15181)*UV(5250)& - &+JVS(15182)*UV(5255) - JUV(3367) = JVS(15183)*UV(1876)+JVS(15184)*UV(1904)+JVS(15185)*UV(3367)+JVS(15186)*UV(4784)+JVS(15188)*UV(5252)& - &+JVS(15190)*UV(5256) - JUV(3368) = JVS(15191)*UV(464)+JVS(15192)*UV(1315)+JVS(15193)*UV(2321)+JVS(15194)*UV(2322)+JVS(15195)*UV(3368)& - &+JVS(15196)*UV(3807)+JVS(15197)*UV(5250) - JUV(3369) = JVS(15201)*UV(466)+JVS(15202)*UV(2199)+JVS(15203)*UV(2409)+JVS(15204)*UV(3333)+JVS(15205)*UV(3369)& - &+JVS(15206)*UV(5045)+JVS(15207)*UV(5250) - JUV(3370) = JVS(15211)*UV(934)+JVS(15212)*UV(3370)+JVS(15213)*UV(4467)+JVS(15215)*UV(5252)+JVS(15217)*UV(5256) - JUV(3371) = JVS(15218)*UV(1342)+JVS(15219)*UV(3371)+JVS(15220)*UV(4498)+JVS(15222)*UV(5252)+JVS(15224)*UV(5256) - JUV(3372) = JVS(15225)*UV(361)+JVS(15226)*UV(1307)+JVS(15227)*UV(2383)+JVS(15228)*UV(2782)+JVS(15229)*UV(3372)& - &+JVS(15230)*UV(3823)+JVS(15232)*UV(5250) - JUV(3373) = JVS(15235)*UV(394)+JVS(15236)*UV(1060)+JVS(15237)*UV(1813)+JVS(15238)*UV(2195)+JVS(15239)*UV(3373)& - &+JVS(15240)*UV(4162)+JVS(15242)*UV(5250) - JUV(3374) = JVS(15245)*UV(699)+JVS(15246)*UV(882)+JVS(15247)*UV(2311)+JVS(15248)*UV(3374)+JVS(15249)*UV(3957)& - &+JVS(15250)*UV(4825)+JVS(15251)*UV(5250) - JUV(3375) = JVS(15254)*UV(1376)+JVS(15255)*UV(3375)+JVS(15256)*UV(4458)+JVS(15258)*UV(5252)+JVS(15260)*UV(5256) - JUV(3376) = JVS(15261)*UV(1940)+JVS(15262)*UV(3376)+JVS(15263)*UV(3842)+JVS(15264)*UV(4702)+JVS(15265)*UV(5250) - JUV(3377) = JVS(15267)*UV(999)+JVS(15268)*UV(2196)+JVS(15269)*UV(3377)+JVS(15270)*UV(4876)+JVS(15272)*UV(5252)& - &+JVS(15274)*UV(5256) - JUV(3378) = JVS(15275)*UV(565)+JVS(15276)*UV(846)+JVS(15277)*UV(3378)+JVS(15278)*UV(3379)+JVS(15279)*UV(4821)& - &+JVS(15280)*UV(5250) - JUV(3379) = JVS(15282)*UV(3379)+JVS(15283)*UV(4821)+JVS(15284)*UV(5250)+JVS(15285)*UV(5252) - JUV(3380) = JVS(15286)*UV(1123)+JVS(15287)*UV(3380)+JVS(15288)*UV(3774)+JVS(15290)*UV(5252)+JVS(15292)*UV(5256) - JUV(3381) = JVS(15293)*UV(888)+JVS(15294)*UV(3381)+JVS(15295)*UV(4643)+JVS(15297)*UV(5252)+JVS(15299)*UV(5256) - JUV(3382) = JVS(15300)*UV(1375)+JVS(15301)*UV(2917)+JVS(15302)*UV(3382)+JVS(15303)*UV(5108)+JVS(15304)*UV(5250) - JUV(3383) = JVS(15307)*UV(2077)+JVS(15308)*UV(3383)+JVS(15309)*UV(3540)+JVS(15310)*UV(4705)+JVS(15312)*UV(5252)& - &+JVS(15313)*UV(5256) - JUV(3384) = JVS(15314)*UV(220)+JVS(15315)*UV(1281)+JVS(15316)*UV(2045)+JVS(15317)*UV(2889)+JVS(15318)*UV(3384)& - &+JVS(15319)*UV(4334)+JVS(15320)*UV(5250) - JUV(3385) = JVS(15324)*UV(2956)+JVS(15325)*UV(3385)+JVS(15326)*UV(4038)+JVS(15328)*UV(5250)+JVS(15330)*UV(5255) - JUV(3386) = JVS(15331)*UV(1914)+JVS(15332)*UV(2128)+JVS(15333)*UV(3386)+JVS(15334)*UV(4870)+JVS(15336)*UV(5252)& - &+JVS(15338)*UV(5256) - JUV(3387) = JVS(15339)*UV(2985)+JVS(15340)*UV(3387)+JVS(15341)*UV(4795)+JVS(15343)*UV(5250)+JVS(15344)*UV(5255) - JUV(3388) = JVS(15345)*UV(1030)+JVS(15346)*UV(3388)+JVS(15347)*UV(4455)+JVS(15349)*UV(5252)+JVS(15351)*UV(5256) - JUV(3389) = JVS(15352)*UV(1777)+JVS(15353)*UV(2186)+JVS(15354)*UV(3055)+JVS(15355)*UV(3389)+JVS(15356)*UV(4765)& - &+JVS(15357)*UV(5250) - JUV(3390) = JVS(15361)*UV(1318)+JVS(15362)*UV(3390)+JVS(15363)*UV(4781)+JVS(15365)*UV(5252)+JVS(15367)*UV(5256) - JUV(3391) = JVS(15368)*UV(385)+JVS(15369)*UV(995)+JVS(15370)*UV(1026)+JVS(15371)*UV(3391)+JVS(15372)*UV(4890)& - &+JVS(15373)*UV(5250) - JUV(3392) = JVS(15376)*UV(2735)+JVS(15377)*UV(3392)+JVS(15378)*UV(5003)+JVS(15380)*UV(5250)+JVS(15381)*UV(5253) - JUV(3393) = JVS(15382)*UV(1010)+JVS(15383)*UV(2291)+JVS(15384)*UV(3393)+JVS(15385)*UV(4577)+JVS(15387)*UV(5252)& - &+JVS(15389)*UV(5256) - JUV(3394) = JVS(15390)*UV(2481)+JVS(15391)*UV(3394)+JVS(15393)*UV(5228)+JVS(15394)*UV(5250)+JVS(15395)*UV(5252) - JUV(3395) = JVS(15397)*UV(923)+JVS(15398)*UV(3395)+JVS(15399)*UV(4307)+JVS(15401)*UV(5252)+JVS(15403)*UV(5256) - JUV(3396) = JVS(15404)*UV(1053)+JVS(15405)*UV(3396)+JVS(15406)*UV(3713)+JVS(15408)*UV(5252)+JVS(15410)*UV(5256) - JUV(3397) = JVS(15411)*UV(406)+JVS(15412)*UV(813)+JVS(15413)*UV(1801)+JVS(15414)*UV(2440)+JVS(15415)*UV(2524)& - &+JVS(15416)*UV(3397)+JVS(15417)*UV(4130)+JVS(15419)*UV(5250) - JUV(3398) = JVS(15422)*UV(904)+JVS(15423)*UV(2296)+JVS(15424)*UV(3398)+JVS(15425)*UV(3852)+JVS(15427)*UV(5252)& - &+JVS(15429)*UV(5256) - JUV(3399) = JVS(15430)*UV(2394)+JVS(15431)*UV(3399)+JVS(15432)*UV(3878)+JVS(15433)*UV(4593)+JVS(15434)*UV(5250) - JUV(3400) = JVS(15436)*UV(1426)+JVS(15437)*UV(3400)+JVS(15438)*UV(4101)+JVS(15440)*UV(5252)+JVS(15442)*UV(5256) - JUV(3401) = JVS(15443)*UV(2240)+JVS(15444)*UV(3401)+JVS(15445)*UV(4795)+JVS(15447)*UV(5250)+JVS(15448)*UV(5253) - JUV(3402) = JVS(15449)*UV(977)+JVS(15450)*UV(3402)+JVS(15451)*UV(4415)+JVS(15453)*UV(5252)+JVS(15455)*UV(5256) - JUV(3403) = JVS(15456)*UV(128)+JVS(15457)*UV(1083)+JVS(15458)*UV(1159)+JVS(15459)*UV(3403)+JVS(15460)*UV(4167)& - &+JVS(15461)*UV(5250)+JVS(15462)*UV(5252)+JVS(15464)*UV(5256) - JUV(3404) = JVS(15465)*UV(2193)+JVS(15466)*UV(2223)+JVS(15467)*UV(3404)+JVS(15468)*UV(4901)+JVS(15470)*UV(5252)& - &+JVS(15472)*UV(5256) - JUV(3405) = JVS(15473)*UV(1160)+JVS(15474)*UV(1952)+JVS(15475)*UV(3405)+JVS(15476)*UV(4610)+JVS(15478)*UV(5252)& - &+JVS(15480)*UV(5256) - JUV(3406) = JVS(15481)*UV(1455)+JVS(15482)*UV(3406)+JVS(15483)*UV(4726)+JVS(15485)*UV(5252)+JVS(15487)*UV(5256) - JUV(3407) = JVS(15488)*UV(1127)+JVS(15489)*UV(3407)+JVS(15490)*UV(3728)+JVS(15492)*UV(5252)+JVS(15494)*UV(5256) - JUV(3408) = JVS(15495)*UV(2546)+JVS(15496)*UV(3408)+JVS(15497)*UV(4926)+JVS(15499)*UV(5250)+JVS(15500)*UV(5253) - JUV(3409) = JVS(15501)*UV(2449)+JVS(15502)*UV(3409)+JVS(15503)*UV(3922)+JVS(15504)*UV(4782)+JVS(15505)*UV(5250) - JUV(3410) = JVS(15507)*UV(1544)+JVS(15508)*UV(3410)+JVS(15509)*UV(3874)+JVS(15511)*UV(5252)+JVS(15513)*UV(5256) - JUV(3411) = JVS(15514)*UV(742)+JVS(15515)*UV(1038)+JVS(15516)*UV(3322)+JVS(15517)*UV(3411)+JVS(15518)*UV(4725)& - &+JVS(15519)*UV(5250) - JUV(3412) = JVS(15522)*UV(505)+JVS(15523)*UV(1270)+JVS(15524)*UV(2333)+JVS(15525)*UV(2334)+JVS(15526)*UV(3412)& - &+JVS(15527)*UV(3819)+JVS(15528)*UV(5250) - JUV(3413) = JVS(15532)*UV(3413)+JVS(15533)*UV(5118)+JVS(15534)*UV(5204)+JVS(15535)*UV(5217)+JVS(15536)*UV(5218)& - &+JVS(15537)*UV(5250) - JUV(3414) = JVS(15538)*UV(1025)+JVS(15539)*UV(3414)+JVS(15540)*UV(4194)+JVS(15542)*UV(5252)+JVS(15544)*UV(5256) - JUV(3415) = JVS(15545)*UV(2009)+JVS(15546)*UV(3415)+JVS(15547)*UV(4354)+JVS(15549)*UV(5252)+JVS(15551)*UV(5256) - JUV(3416) = JVS(15552)*UV(788)+JVS(15553)*UV(1016)+JVS(15554)*UV(3285)+JVS(15555)*UV(3416)+JVS(15556)*UV(4720)& - &+JVS(15557)*UV(5250) - JUV(3417) = JVS(15560)*UV(1223)+JVS(15561)*UV(3417)+JVS(15562)*UV(4434)+JVS(15564)*UV(5252)+JVS(15566)*UV(5256) - JUV(3418) = JVS(15567)*UV(2413)+JVS(15568)*UV(3418)+JVS(15569)*UV(3956)+JVS(15570)*UV(4714)+JVS(15571)*UV(5250) - JUV(3419) = JVS(15573)*UV(3419)+JVS(15574)*UV(3441)+JVS(15575)*UV(4769)+JVS(15576)*UV(5252)+JVS(15577)*UV(5256) - JUV(3420) = JVS(15578)*UV(441)+JVS(15579)*UV(955)+JVS(15580)*UV(2408)+JVS(15581)*UV(2673)+JVS(15582)*UV(3420)& - &+JVS(15583)*UV(4172)+JVS(15585)*UV(5250) - JUV(3421) = JVS(15588)*UV(1329)+JVS(15589)*UV(3421)+JVS(15590)*UV(4237)+JVS(15592)*UV(5252)+JVS(15594)*UV(5256) - JUV(3422) = JVS(15595)*UV(1948)+JVS(15596)*UV(3422)+JVS(15597)*UV(4473)+JVS(15599)*UV(5252)+JVS(15601)*UV(5256) - JUV(3423) = JVS(15602)*UV(1388)+JVS(15603)*UV(3423)+JVS(15604)*UV(3772)+JVS(15606)*UV(5252)+JVS(15608)*UV(5256) - JUV(3424) = JVS(15609)*UV(1519)+JVS(15610)*UV(2275)+JVS(15611)*UV(3424)+JVS(15612)*UV(4196)+JVS(15614)*UV(5252)& - &+JVS(15616)*UV(5256) - JUV(3425) = JVS(15617)*UV(1444)+JVS(15618)*UV(1752)+JVS(15619)*UV(3425)+JVS(15620)*UV(4363)+JVS(15622)*UV(5252)& - &+JVS(15624)*UV(5256) - JUV(3426) = JVS(15625)*UV(732)+JVS(15626)*UV(851)+JVS(15627)*UV(3426)+JVS(15628)*UV(3427)+JVS(15629)*UV(4377)& - &+JVS(15630)*UV(5250) - JUV(3427) = JVS(15632)*UV(3427)+JVS(15633)*UV(4377)+JVS(15634)*UV(5250)+JVS(15635)*UV(5252) - JUV(3428) = JVS(15636)*UV(2252)+JVS(15637)*UV(2544)+JVS(15638)*UV(3428)+JVS(15641)*UV(5250) - JUV(3429) = JVS(15643)*UV(1946)+JVS(15644)*UV(2435)+JVS(15645)*UV(3429)+JVS(15646)*UV(5062)+JVS(15648)*UV(5252)& - &+JVS(15650)*UV(5256) - JUV(3430) = JVS(15651)*UV(1439)+JVS(15652)*UV(1786)+JVS(15653)*UV(3430)+JVS(15654)*UV(4342)+JVS(15656)*UV(5252)& - &+JVS(15658)*UV(5256) - JUV(3431) = JVS(15659)*UV(411)+JVS(15660)*UV(1871)+JVS(15661)*UV(2621)+JVS(15662)*UV(3431)+JVS(15663)*UV(4147)& - &+JVS(15665)*UV(5250) - JUV(3432) = JVS(15668)*UV(2069)+JVS(15669)*UV(3432)+JVS(15670)*UV(3887)+JVS(15671)*UV(4700)+JVS(15672)*UV(5250) - JUV(3433) = JVS(15674)*UV(785)+JVS(15675)*UV(1014)+JVS(15676)*UV(3264)+JVS(15677)*UV(3433)+JVS(15678)*UV(4803)& - &+JVS(15679)*UV(5250) - JUV(3434) = JVS(15682)*UV(513)+JVS(15683)*UV(2852)+JVS(15684)*UV(2923)+JVS(15685)*UV(3434)+JVS(15686)*UV(4920)& - &+JVS(15688)*UV(5250) - JUV(3435) = JVS(15691)*UV(3435)+JVS(15692)*UV(4028)+JVS(15693)*UV(5250)+JVS(15694)*UV(5252) - JUV(3436) = JVS(15695)*UV(3436)+JVS(15696)*UV(5073)+JVS(15697)*UV(5250)+JVS(15698)*UV(5253) - JUV(3437) = JVS(15699)*UV(3437)+JVS(15700)*UV(4937)+JVS(15701)*UV(5250)+JVS(15702)*UV(5256) - JUV(3438) = JVS(15703)*UV(3438)+JVS(15704)*UV(4568)+JVS(15705)*UV(5250)+JVS(15706)*UV(5252) - JUV(3439) = JVS(15707)*UV(3439)+JVS(15708)*UV(4068)+JVS(15709)*UV(5250)+JVS(15710)*UV(5252) - JUV(3440) = JVS(15711)*UV(89)+JVS(15712)*UV(1431)+JVS(15713)*UV(3439)+JVS(15714)*UV(3440)+JVS(15715)*UV(4068)& - &+JVS(15716)*UV(5250)+JVS(15717)*UV(5252)+JVS(15719)*UV(5256) - JUV(3441) = JVS(15720)*UV(3441)+JVS(15721)*UV(4769)+JVS(15722)*UV(5250)+JVS(15723)*UV(5255) - JUV(3442) = JVS(15724)*UV(3442)+JVS(15725)*UV(5250)+JVS(15726)*UV(5256)+JVS(15727)*UV(5258) - JUV(3443) = JVS(15728)*UV(3443)+JVS(15729)*UV(5035)+JVS(15730)*UV(5250)+JVS(15731)*UV(5252) - JUV(3444) = JVS(15732)*UV(3444)+JVS(15733)*UV(4647)+JVS(15734)*UV(5250)+JVS(15735)*UV(5255) - JUV(3445) = JVS(15736)*UV(3445)+JVS(15737)*UV(4074)+JVS(15738)*UV(5250)+JVS(15739)*UV(5252) - JUV(3446) = JVS(15740)*UV(3446)+JVS(15741)*UV(4358)+JVS(15742)*UV(5250)+JVS(15743)*UV(5255) - JUV(3447) = JVS(15744)*UV(3447)+JVS(15745)*UV(4157)+JVS(15746)*UV(5250)+JVS(15747)*UV(5252) - JUV(3448) = JVS(15748)*UV(3448)+JVS(15749)*UV(5128)+JVS(15750)*UV(5250)+JVS(15751)*UV(5255) - JUV(3449) = JVS(15752)*UV(3449)+JVS(15753)*UV(4339)+JVS(15754)*UV(5250)+JVS(15755)*UV(5255) - JUV(3450) = JVS(15756)*UV(1988)+JVS(15757)*UV(2357)+JVS(15758)*UV(3450)+JVS(15761)*UV(5250) - JUV(3451) = JVS(15762)*UV(3451)+JVS(15763)*UV(4905)+JVS(15764)*UV(5250)+JVS(15765)*UV(5255) - JUV(3452) = JVS(15766)*UV(3452)+JVS(15767)*UV(4899)+JVS(15768)*UV(5250)+JVS(15769)*UV(5255) - JUV(3453) = JVS(15770)*UV(3453)+JVS(15771)*UV(4877)+JVS(15772)*UV(5250)+JVS(15773)*UV(5255) - JUV(3454) = JVS(15774)*UV(678)+JVS(15775)*UV(3454)+JVS(15777)*UV(5250)+JVS(15778)*UV(5256) - JUV(3455) = JVS(15779)*UV(3455)+JVS(15780)*UV(4706)+JVS(15781)*UV(5250)+JVS(15782)*UV(5255) - JUV(3456) = JVS(15783)*UV(2102)+JVS(15785)*UV(3456)+JVS(15786)*UV(4005)+JVS(15789)*UV(5252)+JVS(15790)*UV(5253)& - &+JVS(15792)*UV(5256) - JUV(3457) = JVS(15793)*UV(3457)+JVS(15794)*UV(4400)+JVS(15795)*UV(5250)+JVS(15796)*UV(5252) - JUV(3458) = JVS(15797)*UV(3458)+JVS(15798)*UV(5034)+JVS(15799)*UV(5250)+JVS(15800)*UV(5255) - JUV(3459) = JVS(15801)*UV(3459)+JVS(15802)*UV(4732)+JVS(15803)*UV(5250)+JVS(15804)*UV(5255) - JUV(3460) = JVS(15805)*UV(3460)+JVS(15806)*UV(4335)+JVS(15807)*UV(5250)+JVS(15808)*UV(5252) - JUV(3461) = JVS(15809)*UV(2353)+JVS(15811)*UV(3461)+JVS(15812)*UV(4050)+JVS(15815)*UV(5252)+JVS(15816)*UV(5253)& - &+JVS(15818)*UV(5256) - JUV(3462) = JVS(15819)*UV(3462)+JVS(15820)*UV(4783)+JVS(15821)*UV(5250)+JVS(15822)*UV(5255) - JUV(3463) = JVS(15823)*UV(3463)+JVS(15824)*UV(4864)+JVS(15825)*UV(5250)+JVS(15826)*UV(5255) - JUV(3464) = JVS(15827)*UV(3464)+JVS(15828)*UV(3707)+JVS(15829)*UV(4758)+JVS(15830)*UV(5250) - JUV(3465) = JVS(15831)*UV(3465)+JVS(15832)*UV(5250)+JVS(15833)*UV(5256)+JVS(15834)*UV(5258) - JUV(3466) = JVS(15835)*UV(3466)+JVS(15836)*UV(5250)+JVS(15837)*UV(5256)+JVS(15838)*UV(5258) - JUV(3467) = JVS(15839)*UV(3467)+JVS(15840)*UV(4792)+JVS(15841)*UV(5250)+JVS(15842)*UV(5255) - JUV(3468) = JVS(15843)*UV(3468)+JVS(15844)*UV(4893)+JVS(15845)*UV(5250)+JVS(15846)*UV(5255) - JUV(3469) = JVS(15847)*UV(3469)+JVS(15848)*UV(4887)+JVS(15849)*UV(5250)+JVS(15850)*UV(5255) - JUV(3470) = JVS(15851)*UV(391)+JVS(15852)*UV(3470)+JVS(15854)*UV(5250)+JVS(15855)*UV(5256) - JUV(3471) = JVS(15856)*UV(3471)+JVS(15857)*UV(5064)+JVS(15858)*UV(5250)+JVS(15859)*UV(5256) - JUV(3472) = JVS(15860)*UV(3472)+JVS(15861)*UV(4609)+JVS(15862)*UV(5250)+JVS(15863)*UV(5256) - JUV(3473) = JVS(15864)*UV(3473)+JVS(15865)*UV(4365)+JVS(15866)*UV(5250)+JVS(15867)*UV(5255) - JUV(3474) = JVS(15868)*UV(2379)+JVS(15870)*UV(3474)+JVS(15871)*UV(4041)+JVS(15874)*UV(5252)+JVS(15875)*UV(5253)& - &+JVS(15877)*UV(5256) - JUV(3475) = JVS(15878)*UV(3475)+JVS(15879)*UV(4773)+JVS(15880)*UV(5250)+JVS(15881)*UV(5255) - JUV(3476) = JVS(15882)*UV(3476)+JVS(15883)*UV(3618)+JVS(15884)*UV(5100)+JVS(15885)*UV(5250)+JVS(15886)*UV(5255) - JUV(3477) = JVS(15887)*UV(1229)+JVS(15888)*UV(3477)+JVS(15889)*UV(5003)+JVS(15891)*UV(5250)+JVS(15892)*UV(5255) - JUV(3478) = JVS(15893)*UV(2535)+JVS(15894)*UV(2577)+JVS(15895)*UV(2731)+JVS(15896)*UV(3370)+JVS(15897)*UV(3478)& - &+JVS(15902)*UV(5250) - JUV(3479) = JVS(15906)*UV(3479)+JVS(15907)*UV(4096)+JVS(15908)*UV(4512)+JVS(15909)*UV(4601)+JVS(15910)*UV(4786)& - &+JVS(15911)*UV(4794)+JVS(15912)*UV(5258) - JUV(3480) = JVS(15913)*UV(3480)+JVS(15914)*UV(4779)+JVS(15915)*UV(5250)+JVS(15916)*UV(5255) - JUV(3481) = JVS(15917)*UV(3105)+JVS(15918)*UV(3481)+JVS(15919)*UV(5250)+JVS(15920)*UV(5252)+JVS(15921)*UV(5255)& - &+JVS(15922)*UV(5256) - JUV(3482) = JVS(15923)*UV(3180)+JVS(15924)*UV(3482)+JVS(15925)*UV(5250)+JVS(15926)*UV(5256)+JVS(15927)*UV(5258) - JUV(3483) = JVS(15928)*UV(1644)+JVS(15929)*UV(3459)+JVS(15930)*UV(3483)+JVS(15931)*UV(4732)+JVS(15932)*UV(5250)& - &+JVS(15934)*UV(5256) - JUV(3484) = JVS(15935)*UV(3484)+JVS(15936)*UV(4449)+JVS(15937)*UV(4490)+JVS(15938)*UV(5250)+JVS(15939)*UV(5256) - JUV(3485) = JVS(15940)*UV(3485)+JVS(15941)*UV(5022)+JVS(15942)*UV(5250)+JVS(15943)*UV(5255) - JUV(3486) = JVS(15944)*UV(812)+JVS(15945)*UV(1112)+JVS(15946)*UV(3304)+JVS(15947)*UV(3486)+JVS(15948)*UV(4971)& - &+JVS(15949)*UV(5250) - JUV(3487) = JVS(15952)*UV(3487)+JVS(15953)*UV(4948)+JVS(15954)*UV(5250)+JVS(15955)*UV(5255) - JUV(3488) = JVS(15956)*UV(2497)+JVS(15957)*UV(3488)+JVS(15958)*UV(4774)+JVS(15959)*UV(5250)+JVS(15961)*UV(5256) - JUV(3489) = JVS(15962)*UV(932)+JVS(15963)*UV(3130)+JVS(15964)*UV(3489)+JVS(15965)*UV(5250)+JVS(15966)*UV(5252)& - &+JVS(15967)*UV(5255)+JVS(15968)*UV(5256) - JUV(3490) = JVS(15969)*UV(3490)+JVS(15970)*UV(3620)+JVS(15971)*UV(4599)+JVS(15972)*UV(5252)+JVS(15973)*UV(5256) - JUV(3491) = JVS(15974)*UV(1157)+JVS(15975)*UV(3158)+JVS(15976)*UV(3491)+JVS(15977)*UV(5250)+JVS(15978)*UV(5252)& - &+JVS(15979)*UV(5255)+JVS(15980)*UV(5256) - JUV(3492) = JVS(15981)*UV(3097)+JVS(15982)*UV(3492)+JVS(15983)*UV(5250)+JVS(15984)*UV(5252)+JVS(15985)*UV(5255)& - &+JVS(15986)*UV(5256) - JUV(3493) = JVS(15987)*UV(804)+JVS(15988)*UV(1526)+JVS(15989)*UV(2330)+JVS(15990)*UV(3493)+JVS(15991)*UV(4715)& - &+JVS(15992)*UV(5250) - JUV(3494) = JVS(15995)*UV(3139)+JVS(15996)*UV(3494)+JVS(15997)*UV(5250)+JVS(15998)*UV(5256)+JVS(15999)*UV(5258) - JUV(3495) = JVS(16000)*UV(3495)+JVS(16001)*UV(4625)+JVS(16002)*UV(5250)+JVS(16003)*UV(5255) - JUV(3496) = JVS(16004)*UV(3496)+JVS(16005)*UV(4907)+JVS(16006)*UV(5252)+JVS(16007)*UV(5255)+JVS(16008)*UV(5256) - JUV(3497) = JVS(16009)*UV(256)+JVS(16010)*UV(1444)+JVS(16011)*UV(1752)+JVS(16012)*UV(2239)+JVS(16013)*UV(3425)& - &+JVS(16014)*UV(3497)+JVS(16015)*UV(4363)+JVS(16017)*UV(5250) - JUV(3498) = JVS(16021)*UV(2558)+JVS(16022)*UV(2878)+JVS(16023)*UV(3498)+JVS(16024)*UV(3757)+JVS(16025)*UV(4223)& - &+JVS(16026)*UV(4336)+JVS(16027)*UV(4390)+JVS(16028)*UV(5250) - JUV(3499) = JVS(16030)*UV(3164)+JVS(16031)*UV(3499)+JVS(16032)*UV(5250)+JVS(16033)*UV(5256)+JVS(16034)*UV(5258) - JUV(3500) = JVS(16035)*UV(1425)+JVS(16036)*UV(3500)+JVS(16037)*UV(5005)+JVS(16039)*UV(5250)+JVS(16040)*UV(5255) - JUV(3501) = JVS(16041)*UV(3501)+JVS(16042)*UV(4321)+JVS(16043)*UV(5250)+JVS(16044)*UV(5255) - JUV(3502) = JVS(16045)*UV(3326)+JVS(16046)*UV(3502)+JVS(16047)*UV(5133)+JVS(16049)*UV(5250)+JVS(16050)*UV(5255) - JUV(3503) = JVS(16051)*UV(1033)+JVS(16052)*UV(3193)+JVS(16053)*UV(3503)+JVS(16054)*UV(5250)+JVS(16055)*UV(5252)& - &+JVS(16056)*UV(5255)+JVS(16057)*UV(5256) - JUV(3504) = JVS(16058)*UV(807)+JVS(16059)*UV(1136)+JVS(16060)*UV(2185)+JVS(16061)*UV(3504)+JVS(16062)*UV(4716)& - &+JVS(16063)*UV(5250) - JUV(3505) = JVS(16066)*UV(228)+JVS(16067)*UV(2086)+JVS(16068)*UV(2422)+JVS(16069)*UV(3505)+JVS(16070)*UV(5109)& - &+JVS(16071)*UV(5250) - JUV(3506) = JVS(16074)*UV(3193)+JVS(16075)*UV(3506)+JVS(16076)*UV(5250)+JVS(16077)*UV(5256)+JVS(16078)*UV(5258) - JUV(3507) = JVS(16079)*UV(3134)+JVS(16080)*UV(3507)+JVS(16081)*UV(5250)+JVS(16082)*UV(5252)+JVS(16083)*UV(5255)& - &+JVS(16084)*UV(5256) - JUV(3508) = JVS(16085)*UV(3158)+JVS(16086)*UV(3508)+JVS(16087)*UV(5250)+JVS(16088)*UV(5256)+JVS(16089)*UV(5258) - JUV(3509) = JVS(16090)*UV(3096)+JVS(16091)*UV(3509)+JVS(16092)*UV(5250)+JVS(16093)*UV(5252)+JVS(16094)*UV(5255)& - &+JVS(16095)*UV(5256) - JUV(3510) = JVS(16096)*UV(2260)+JVS(16097)*UV(3510)+JVS(16098)*UV(4595)+JVS(16099)*UV(5250)+JVS(16101)*UV(5256) - JUV(3511) = JVS(16102)*UV(1503)+JVS(16103)*UV(3164)+JVS(16104)*UV(3511)+JVS(16105)*UV(5250)+JVS(16106)*UV(5252)& - &+JVS(16107)*UV(5255)+JVS(16108)*UV(5256) - JUV(3512) = JVS(16109)*UV(3135)+JVS(16110)*UV(3512)+JVS(16111)*UV(5250)+JVS(16112)*UV(5256)+JVS(16113)*UV(5258) - JUV(3513) = JVS(16114)*UV(3057)+JVS(16115)*UV(3513)+JVS(16117)*UV(5250)+JVS(16119)*UV(5256) - JUV(3514) = JVS(16120)*UV(3201)+JVS(16121)*UV(3240)+JVS(16122)*UV(3501)+JVS(16123)*UV(3514)+JVS(16124)*UV(4321)& - &+JVS(16126)*UV(5016)+JVS(16127)*UV(5250)+JVS(16129)*UV(5255) - JUV(3515) = JVS(16130)*UV(3203)+JVS(16131)*UV(3515)+JVS(16132)*UV(4795)+JVS(16134)*UV(5250)+JVS(16135)*UV(5255) - JUV(3516) = JVS(16136)*UV(694)+JVS(16137)*UV(2008)+JVS(16138)*UV(2280)+JVS(16139)*UV(2359)+JVS(16140)*UV(2373)& - &+JVS(16141)*UV(3516)+JVS(16142)*UV(3517)+JVS(16144)*UV(4757)+JVS(16146)*UV(5250)+JVS(16147)*UV(5251)& - &+JVS(16148)*UV(5252)+JVS(16149)*UV(5253)+JVS(16150)*UV(5254)+JVS(16153)*UV(5258) - JUV(3517) = JVS(16154)*UV(2470)+JVS(16155)*UV(3517)+JVS(16157)*UV(5250)+JVS(16158)*UV(5258) - JUV(3518) = JVS(16159)*UV(959)+JVS(16160)*UV(3139)+JVS(16161)*UV(3518)+JVS(16162)*UV(5250)+JVS(16163)*UV(5252)& - &+JVS(16164)*UV(5255)+JVS(16165)*UV(5256) - JUV(3519) = JVS(16166)*UV(3519)+JVS(16167)*UV(4950)+JVS(16168)*UV(5250)+JVS(16169)*UV(5256)+JVS(16170)*UV(5258) - JUV(3520) = JVS(16171)*UV(3520)+JVS(16172)*UV(4695)+JVS(16173)*UV(4922)+JVS(16174)*UV(5250)+JVS(16175)*UV(5252) - JUV(3521) = JVS(16176)*UV(3179)+JVS(16177)*UV(3521)+JVS(16178)*UV(5250)+JVS(16179)*UV(5252)+JVS(16180)*UV(5255)& - &+JVS(16181)*UV(5256) - JUV(3522) = JVS(16182)*UV(616)+JVS(16183)*UV(1446)+JVS(16184)*UV(2124)+JVS(16185)*UV(3522)+JVS(16186)*UV(4713)& - &+JVS(16187)*UV(5250) - JUV(3523) = JVS(16190)*UV(3145)+JVS(16191)*UV(3523)+JVS(16192)*UV(5250)+JVS(16193)*UV(5252)+JVS(16194)*UV(5255)& - &+JVS(16195)*UV(5256) - JUV(3524) = JVS(16196)*UV(3524)+JVS(16197)*UV(4617)+JVS(16198)*UV(5250)+JVS(16199)*UV(5255) - JUV(3525) = JVS(16200)*UV(3138)+JVS(16201)*UV(3525)+JVS(16202)*UV(5250)+JVS(16203)*UV(5252)+JVS(16204)*UV(5255)& - &+JVS(16205)*UV(5256) - JUV(3526) = JVS(16206)*UV(2711)+JVS(16207)*UV(3526)+JVS(16209)*UV(5250)+JVS(16211)*UV(5256) - JUV(3527) = JVS(16212)*UV(1525)+JVS(16213)*UV(3129)+JVS(16214)*UV(3527)+JVS(16215)*UV(5250)+JVS(16216)*UV(5252)& - &+JVS(16217)*UV(5255)+JVS(16218)*UV(5256) - JUV(3528) = JVS(16219)*UV(3528)+JVS(16220)*UV(4967)+JVS(16221)*UV(5250)+JVS(16222)*UV(5255) - JUV(3529) = JVS(16223)*UV(3059)+JVS(16224)*UV(3529)+JVS(16225)*UV(5133)+JVS(16227)*UV(5250)+JVS(16228)*UV(5253) - JUV(3530) = JVS(16229)*UV(1876)+JVS(16230)*UV(1904)+JVS(16231)*UV(3367)+JVS(16232)*UV(3530)+JVS(16233)*UV(4300)& - &+JVS(16234)*UV(4784)+JVS(16235)*UV(5250) - JUV(3531) = JVS(16239)*UV(1009)+JVS(16240)*UV(3131)+JVS(16241)*UV(3531)+JVS(16242)*UV(5250)+JVS(16243)*UV(5252)& - &+JVS(16244)*UV(5255)+JVS(16245)*UV(5256) - JUV(3532) = JVS(16246)*UV(2606)+JVS(16247)*UV(3532)+JVS(16248)*UV(5005)+JVS(16250)*UV(5250)+JVS(16251)*UV(5253) - JUV(3533) = JVS(16252)*UV(3533)+JVS(16253)*UV(5239)+JVS(16254)*UV(5250)+JVS(16255)*UV(5252) - JUV(3534) = JVS(16256)*UV(996)+JVS(16257)*UV(3135)+JVS(16258)*UV(3534)+JVS(16259)*UV(5250)+JVS(16260)*UV(5252)& - &+JVS(16261)*UV(5255)+JVS(16262)*UV(5256) - JUV(3535) = JVS(16263)*UV(800)+JVS(16264)*UV(1727)+JVS(16266)*UV(3535)+JVS(16269)*UV(5250) - JUV(3536) = JVS(16273)*UV(1124)+JVS(16274)*UV(1948)+JVS(16275)*UV(1976)+JVS(16276)*UV(3422)+JVS(16277)*UV(3536)& - &+JVS(16279)*UV(4473)+JVS(16281)*UV(4841)+JVS(16282)*UV(5250) - JUV(3537) = JVS(16286)*UV(636)+JVS(16287)*UV(1441)+JVS(16288)*UV(1963)+JVS(16289)*UV(3537)+JVS(16290)*UV(4573)& - &+JVS(16291)*UV(5250) - JUV(3538) = JVS(16294)*UV(939)+JVS(16295)*UV(3157)+JVS(16296)*UV(3538)+JVS(16297)*UV(5250)+JVS(16298)*UV(5252)& - &+JVS(16299)*UV(5255)+JVS(16300)*UV(5256) - JUV(3539) = JVS(16301)*UV(1232)+JVS(16302)*UV(3172)+JVS(16303)*UV(3539)+JVS(16304)*UV(5250)+JVS(16305)*UV(5252)& - &+JVS(16306)*UV(5255)+JVS(16307)*UV(5256) - JUV(3540) = JVS(16308)*UV(3540)+JVS(16309)*UV(4705)+JVS(16310)*UV(5250)+JVS(16311)*UV(5255) - JUV(3541) = JVS(16312)*UV(2588)+JVS(16313)*UV(2604)+JVS(16314)*UV(2903)+JVS(16315)*UV(3329)+JVS(16316)*UV(3541)& - &+JVS(16321)*UV(5250) - JUV(3542) = JVS(16325)*UV(1386)+JVS(16326)*UV(1827)+JVS(16327)*UV(3308)+JVS(16328)*UV(3542)+JVS(16329)*UV(4582)& - &+JVS(16332)*UV(5250) - JUV(3543) = JVS(16335)*UV(402)+JVS(16336)*UV(1840)+JVS(16337)*UV(3543)+JVS(16338)*UV(4069)+JVS(16339)*UV(5250)& - &+JVS(16341)*UV(5256) - JUV(3544) = JVS(16342)*UV(671)+JVS(16343)*UV(967)+JVS(16344)*UV(2245)+JVS(16345)*UV(3544)+JVS(16346)*UV(4712)& - &+JVS(16347)*UV(5250) - JUV(3545) = JVS(16350)*UV(3157)+JVS(16351)*UV(3545)+JVS(16352)*UV(5250)+JVS(16353)*UV(5256)+JVS(16354)*UV(5258) - JUV(3546) = JVS(16355)*UV(2552)+JVS(16356)*UV(3546)+JVS(16358)*UV(5250)+JVS(16360)*UV(5256) - JUV(3547) = JVS(16361)*UV(1081)+JVS(16362)*UV(1897)+JVS(16363)*UV(2001)+JVS(16364)*UV(3547)+JVS(16365)*UV(4161)& - &+JVS(16366)*UV(4546)+JVS(16368)*UV(5250) - JUV(3548) = JVS(16371)*UV(762)+JVS(16372)*UV(1543)+JVS(16373)*UV(2271)+JVS(16374)*UV(3548)+JVS(16375)*UV(4709)& - &+JVS(16376)*UV(5250) - JUV(3549) = JVS(16379)*UV(302)+JVS(16380)*UV(3549)+JVS(16381)*UV(4711)+JVS(16383)*UV(5250)+JVS(16384)*UV(5252) - JUV(3550) = JVS(16385)*UV(3550)+JVS(16386)*UV(5134)+JVS(16387)*UV(5250)+JVS(16388)*UV(5255) - JUV(3551) = JVS(16389)*UV(3130)+JVS(16390)*UV(3551)+JVS(16391)*UV(5250)+JVS(16392)*UV(5256)+JVS(16393)*UV(5258) - JUV(3552) = JVS(16394)*UV(3552)+JVS(16395)*UV(5173)+JVS(16396)*UV(5250)+JVS(16397)*UV(5255) - JUV(3553) = JVS(16398)*UV(3437)+JVS(16399)*UV(3553)+JVS(16400)*UV(4937)+JVS(16401)*UV(5250)+JVS(16402)*UV(5256)& - &+JVS(16403)*UV(5258) - JUV(3554) = JVS(16404)*UV(1023)+JVS(16405)*UV(3149)+JVS(16406)*UV(3554)+JVS(16407)*UV(5250)+JVS(16408)*UV(5252)& - &+JVS(16409)*UV(5255)+JVS(16410)*UV(5256) - JUV(3555) = JVS(16411)*UV(2570)+JVS(16412)*UV(3555)+JVS(16413)*UV(5005)+JVS(16415)*UV(5250)+JVS(16416)*UV(5255) - JUV(3556) = JVS(16417)*UV(584)+JVS(16418)*UV(1622)+JVS(16420)*UV(3556)+JVS(16423)*UV(5250) - JUV(3557) = JVS(16427)*UV(657)+JVS(16428)*UV(1139)+JVS(16429)*UV(1678)+JVS(16430)*UV(1793)+JVS(16431)*UV(2802)& - &+JVS(16432)*UV(3557)+JVS(16433)*UV(4136)+JVS(16434)*UV(4142)+JVS(16436)*UV(5250) - JUV(3558) = JVS(16439)*UV(3558)+JVS(16440)*UV(5047)+JVS(16441)*UV(5250)+JVS(16442)*UV(5251)+JVS(16443)*UV(5252)& - &+JVS(16444)*UV(5253)+JVS(16445)*UV(5254) - JUV(3559) = JVS(16446)*UV(2850)+JVS(16447)*UV(3559)+JVS(16448)*UV(4563)+JVS(16450)*UV(5250) - JUV(3560) = JVS(16452)*UV(3131)+JVS(16453)*UV(3560)+JVS(16454)*UV(5250)+JVS(16455)*UV(5256)+JVS(16456)*UV(5258) - JUV(3561) = JVS(16457)*UV(926)+JVS(16458)*UV(2441)+JVS(16459)*UV(3289)+JVS(16460)*UV(3561)+JVS(16461)*UV(4598)& - &+JVS(16464)*UV(5250) - JUV(3562) = JVS(16467)*UV(938)+JVS(16468)*UV(3136)+JVS(16469)*UV(3562)+JVS(16470)*UV(5250)+JVS(16471)*UV(5252)& - &+JVS(16472)*UV(5255)+JVS(16473)*UV(5256) - JUV(3563) = JVS(16474)*UV(3272)+JVS(16475)*UV(3563)+JVS(16476)*UV(5003)+JVS(16478)*UV(5250)+JVS(16479)*UV(5255) - JUV(3564) = JVS(16480)*UV(930)+JVS(16481)*UV(3564)+JVS(16482)*UV(4183)+JVS(16483)*UV(4745)+JVS(16485)*UV(5252)& - &+JVS(16487)*UV(5256) - JUV(3565) = JVS(16488)*UV(576)+JVS(16489)*UV(1092)+JVS(16490)*UV(3565)+JVS(16491)*UV(4703)+JVS(16493)*UV(5252)& - &+JVS(16495)*UV(5256) - JUV(3566) = JVS(16496)*UV(3566)+JVS(16497)*UV(3965)+JVS(16498)*UV(4156)+JVS(16499)*UV(4913)+JVS(16500)*UV(5252)& - &+JVS(16501)*UV(5256) - JUV(3567) = JVS(16502)*UV(812)+JVS(16503)*UV(1112)+JVS(16504)*UV(3567)+JVS(16505)*UV(4971)+JVS(16507)*UV(5252)& - &+JVS(16509)*UV(5256) - JUV(3568) = JVS(16510)*UV(4)+JVS(16511)*UV(3568)+JVS(16512)*UV(5252)+JVS(16513)*UV(5253)+JVS(16514)*UV(5254)& - &+JVS(16515)*UV(5256)+JVS(16516)*UV(5258) - JUV(3569) = JVS(16517)*UV(487)+JVS(16518)*UV(1034)+JVS(16519)*UV(3569)+JVS(16520)*UV(4568)+JVS(16521)*UV(5250)& - &+JVS(16522)*UV(5252)+JVS(16524)*UV(5256) - JUV(3570) = JVS(16525)*UV(811)+JVS(16526)*UV(1161)+JVS(16527)*UV(3570)+JVS(16528)*UV(4727)+JVS(16530)*UV(5252)& - &+JVS(16532)*UV(5256) - JUV(3571) = JVS(16533)*UV(535)+JVS(16535)*UV(3571)+JVS(16537)*UV(5250) - JUV(3572) = JVS(16541)*UV(2179)+JVS(16542)*UV(3572)+JVS(16543)*UV(4972)+JVS(16545)*UV(5252)+JVS(16547)*UV(5256) - JUV(3573) = JVS(16548)*UV(764)+JVS(16549)*UV(1049)+JVS(16550)*UV(3573)+JVS(16551)*UV(4707)+JVS(16553)*UV(5252)& - &+JVS(16555)*UV(5256) - JUV(3574) = JVS(16556)*UV(1309)+JVS(16557)*UV(3574)+JVS(16558)*UV(4511)+JVS(16560)*UV(5252)+JVS(16562)*UV(5256) - JUV(3575) = JVS(16563)*UV(2363)+JVS(16564)*UV(3575)+JVS(16565)*UV(4881)+JVS(16567)*UV(5252)+JVS(16569)*UV(5256) - JUV(3576) = JVS(16570)*UV(788)+JVS(16571)*UV(1016)+JVS(16572)*UV(3576)+JVS(16573)*UV(4720)+JVS(16575)*UV(5252)& - &+JVS(16577)*UV(5256) - JUV(3577) = JVS(16578)*UV(2442)+JVS(16579)*UV(3577)+JVS(16580)*UV(4370)+JVS(16582)*UV(5252)+JVS(16584)*UV(5256) - JUV(3578) = JVS(16585)*UV(1578)+JVS(16586)*UV(2686)+JVS(16587)*UV(3578)+JVS(16588)*UV(4674)+JVS(16589)*UV(5250)& - &+JVS(16590)*UV(5252)+JVS(16592)*UV(5256) - JUV(3579) = JVS(16593)*UV(860)+JVS(16594)*UV(3579)+JVS(16595)*UV(4280)+JVS(16597)*UV(5252)+JVS(16599)*UV(5256) - JUV(3580) = JVS(16600)*UV(408)+JVS(16601)*UV(1478)+JVS(16602)*UV(3015)+JVS(16603)*UV(3580)+JVS(16604)*UV(4158)& - &+JVS(16605)*UV(4360)+JVS(16606)*UV(5250) - JUV(3581) = JVS(16609)*UV(475)+JVS(16610)*UV(947)+JVS(16611)*UV(3581)+JVS(16612)*UV(4400)+JVS(16613)*UV(5250)& - &+JVS(16614)*UV(5252)+JVS(16616)*UV(5256) - JUV(3582) = JVS(16617)*UV(3475)+JVS(16618)*UV(3582)+JVS(16619)*UV(4773)+JVS(16621)*UV(5252)+JVS(16622)*UV(5255)& - &+JVS(16623)*UV(5256) - JUV(3583) = JVS(16624)*UV(424)+JVS(16625)*UV(1855)+JVS(16626)*UV(2350)+JVS(16627)*UV(2974)+JVS(16628)*UV(3583)& - &+JVS(16629)*UV(4974)+JVS(16630)*UV(5250) - JUV(3584) = JVS(16634)*UV(785)+JVS(16635)*UV(1014)+JVS(16636)*UV(3584)+JVS(16637)*UV(4803)+JVS(16639)*UV(5252)& - &+JVS(16641)*UV(5256) - JUV(3585) = JVS(16642)*UV(1859)+JVS(16643)*UV(3585)+JVS(16644)*UV(4351)+JVS(16646)*UV(5252)+JVS(16648)*UV(5256) - JUV(3586) = JVS(16649)*UV(1364)+JVS(16650)*UV(3586)+JVS(16651)*UV(4337)+JVS(16653)*UV(5252)+JVS(16655)*UV(5256) - JUV(3587) = JVS(16656)*UV(1644)+JVS(16657)*UV(3587)+JVS(16659)*UV(4932)+JVS(16660)*UV(5250)+JVS(16661)*UV(5252)& - &+JVS(16662)*UV(5256) - JUV(3588) = JVS(16663)*UV(683)+JVS(16664)*UV(1510)+JVS(16665)*UV(3588)+JVS(16666)*UV(4701)+JVS(16668)*UV(5252)& - &+JVS(16670)*UV(5256) - JUV(3589) = JVS(16671)*UV(565)+JVS(16672)*UV(846)+JVS(16673)*UV(3589)+JVS(16674)*UV(4821)+JVS(16676)*UV(5252)& - &+JVS(16678)*UV(5256) - JUV(3590) = JVS(16679)*UV(560)+JVS(16680)*UV(569)+JVS(16681)*UV(628)+JVS(16685)*UV(3590)+JVS(16686)*UV(4993)& - &+JVS(16687)*UV(5250)+JVS(16688)*UV(5255) - JUV(3591) = JVS(16691)*UV(799)+JVS(16692)*UV(1428)+JVS(16693)*UV(1823)+JVS(16694)*UV(3591)+JVS(16695)*UV(4900)& - &+JVS(16697)*UV(5252)+JVS(16699)*UV(5256) - JUV(3592) = JVS(16700)*UV(2369)+JVS(16701)*UV(3592)+JVS(16702)*UV(4777)+JVS(16704)*UV(5252)+JVS(16706)*UV(5256) - JUV(3593) = JVS(16707)*UV(629)+JVS(16709)*UV(3593)+JVS(16711)*UV(5250) - JUV(3594) = JVS(16715)*UV(504)+JVS(16716)*UV(1753)+JVS(16717)*UV(2246)+JVS(16718)*UV(2990)+JVS(16719)*UV(3594)& - &+JVS(16720)*UV(5061)+JVS(16721)*UV(5250) - JUV(3595) = JVS(16725)*UV(555)+JVS(16727)*UV(3595)+JVS(16729)*UV(5250) - JUV(3596) = JVS(16733)*UV(1118)+JVS(16734)*UV(3596)+JVS(16735)*UV(4425)+JVS(16737)*UV(5252)+JVS(16739)*UV(5256) - JUV(3597) = JVS(16740)*UV(878)+JVS(16741)*UV(3597)+JVS(16742)*UV(4296)+JVS(16744)*UV(5252)+JVS(16746)*UV(5256) - JUV(3598) = JVS(16747)*UV(1300)+JVS(16748)*UV(3598)+JVS(16749)*UV(4809)+JVS(16751)*UV(5252)+JVS(16753)*UV(5256) - JUV(3599) = JVS(16754)*UV(292)+JVS(16755)*UV(1276)+JVS(16756)*UV(2317)+JVS(16757)*UV(2605)+JVS(16758)*UV(3599)& - &+JVS(16759)*UV(4003)+JVS(16761)*UV(5250) - JUV(3600) = JVS(16764)*UV(374)+JVS(16765)*UV(914)+JVS(16766)*UV(3600)+JVS(16767)*UV(4335)+JVS(16768)*UV(5250)& - &+JVS(16769)*UV(5252)+JVS(16771)*UV(5256) - JUV(3601) = JVS(16772)*UV(2345)+JVS(16773)*UV(2486)+JVS(16774)*UV(2966)+JVS(16775)*UV(3490)+JVS(16776)*UV(3601)& - &+JVS(16779)*UV(5250) - JUV(3602) = JVS(16782)*UV(498)+JVS(16783)*UV(1142)+JVS(16784)*UV(2074)+JVS(16785)*UV(3602)+JVS(16786)*UV(4116)& - &+JVS(16787)*UV(4374)+JVS(16788)*UV(5250) - JUV(3603) = JVS(16791)*UV(2276)+JVS(16792)*UV(3256)+JVS(16793)*UV(3603)+JVS(16794)*UV(4554)+JVS(16796)*UV(5250) - JUV(3604) = JVS(16799)*UV(352)+JVS(16800)*UV(1956)+JVS(16801)*UV(2779)+JVS(16802)*UV(3604)+JVS(16804)*UV(4687)& - &+JVS(16805)*UV(5250) - JUV(3605) = JVS(16808)*UV(681)+JVS(16809)*UV(1167)+JVS(16810)*UV(3605)+JVS(16811)*UV(4699)+JVS(16813)*UV(5252)& - &+JVS(16815)*UV(5256) - JUV(3606) = JVS(16816)*UV(647)+JVS(16817)*UV(1103)+JVS(16818)*UV(3606)+JVS(16819)*UV(4575)+JVS(16821)*UV(5252)& - &+JVS(16823)*UV(5256) - JUV(3607) = JVS(16824)*UV(1313)+JVS(16825)*UV(1673)+JVS(16826)*UV(2215)+JVS(16827)*UV(3066)+JVS(16828)*UV(3607)& - &+JVS(16829)*UV(5081)+JVS(16830)*UV(5250) - JUV(3608) = JVS(16834)*UV(3267)+JVS(16835)*UV(3608)+JVS(16836)*UV(4341)+JVS(16838)*UV(4578)+JVS(16839)*UV(5250) - JUV(3609) = JVS(16841)*UV(999)+JVS(16842)*UV(1596)+JVS(16843)*UV(2196)+JVS(16844)*UV(3377)+JVS(16845)*UV(3609)& - &+JVS(16846)*UV(4876)+JVS(16847)*UV(5250) - JUV(3610) = JVS(16851)*UV(742)+JVS(16852)*UV(1038)+JVS(16853)*UV(3610)+JVS(16854)*UV(4725)+JVS(16856)*UV(5252)& - &+JVS(16858)*UV(5256) - JUV(3611) = JVS(16859)*UV(2475)+JVS(16860)*UV(3495)+JVS(16861)*UV(3611)+JVS(16862)*UV(4625)+JVS(16863)*UV(5250)& - &+JVS(16864)*UV(5252)+JVS(16866)*UV(5256) - JUV(3612) = JVS(16867)*UV(2210)+JVS(16868)*UV(2975)+JVS(16869)*UV(3612)+JVS(16871)*UV(5250) - JUV(3613) = JVS(16875)*UV(1546)+JVS(16876)*UV(2136)+JVS(16877)*UV(3613)+JVS(16878)*UV(4442)+JVS(16880)*UV(5252)& - &+JVS(16882)*UV(5256) - JUV(3614) = JVS(16883)*UV(779)+JVS(16884)*UV(1415)+JVS(16885)*UV(3614)+JVS(16886)*UV(4718)+JVS(16888)*UV(5252)& - &+JVS(16890)*UV(5256) - JUV(3615) = JVS(16891)*UV(2483)+JVS(16892)*UV(3480)+JVS(16893)*UV(3615)+JVS(16894)*UV(4779)+JVS(16895)*UV(5250)& - &+JVS(16896)*UV(5252)+JVS(16898)*UV(5256) - JUV(3616) = JVS(16899)*UV(586)+JVS(16900)*UV(1337)+JVS(16901)*UV(1705)+JVS(16902)*UV(2123)+JVS(16903)*UV(3616)& - &+JVS(16904)*UV(4646)+JVS(16906)*UV(5250) - JUV(3617) = JVS(16909)*UV(580)+JVS(16910)*UV(1993)+JVS(16911)*UV(2254)+JVS(16912)*UV(3037)+JVS(16913)*UV(3617)& - &+JVS(16914)*UV(3646)+JVS(16916)*UV(4678)+JVS(16917)*UV(4691)+JVS(16918)*UV(4869)+JVS(16919)*UV(5250)& - &+JVS(16920)*UV(5251)+JVS(16921)*UV(5252)+JVS(16922)*UV(5253)+JVS(16923)*UV(5254)+JVS(16926)*UV(5258) - JUV(3618) = JVS(16927)*UV(3618)+JVS(16928)*UV(4982)+JVS(16929)*UV(5250)+JVS(16930)*UV(5255) - JUV(3619) = JVS(16931)*UV(471)+JVS(16932)*UV(1449)+JVS(16933)*UV(1864)+JVS(16934)*UV(1865)+JVS(16935)*UV(2076)& - &+JVS(16936)*UV(2757)+JVS(16937)*UV(2954)+JVS(16938)*UV(3619)+JVS(16939)*UV(4219)+JVS(16943)*UV(5250)& - &+JVS(16946)*UV(5255) - JUV(3620) = JVS(16948)*UV(3620)+JVS(16949)*UV(4599)+JVS(16950)*UV(5250)+JVS(16951)*UV(5255) - JUV(3621) = JVS(16952)*UV(3621)+JVS(16953)*UV(5091)+JVS(16954)*UV(5250)+JVS(16955)*UV(5255) - JUV(3622) = JVS(16956)*UV(3179)+JVS(16957)*UV(3622)+JVS(16958)*UV(5250)+JVS(16960)*UV(5258) - JUV(3623) = JVS(16961)*UV(3623)+JVS(16962)*UV(4780)+JVS(16963)*UV(5250)+JVS(16964)*UV(5255) - JUV(3624) = JVS(16965)*UV(3624)+JVS(16966)*UV(4935)+JVS(16967)*UV(5250)+JVS(16968)*UV(5255) - JUV(3625) = JVS(16969)*UV(3625)+JVS(16970)*UV(5074)+JVS(16971)*UV(5250)+JVS(16972)*UV(5255) - JUV(3626) = JVS(16973)*UV(319)+JVS(16974)*UV(2156)+JVS(16975)*UV(2461)+JVS(16976)*UV(2507)+JVS(16977)*UV(2517)& - &+JVS(16978)*UV(3071)+JVS(16979)*UV(3257)+JVS(16980)*UV(3344)+JVS(16981)*UV(3626)+JVS(16982)*UV(4060)& - &+JVS(16985)*UV(4831)+JVS(16986)*UV(5250)+JVS(16987)*UV(5252)+JVS(16989)*UV(5255)+JVS(16990)*UV(5256) - JUV(3627) = JVS(16991)*UV(884)+JVS(16992)*UV(3180)+JVS(16993)*UV(3627)+JVS(16994)*UV(5250)+JVS(16995)*UV(5252)& - &+JVS(16996)*UV(5255)+JVS(16997)*UV(5256) - JUV(3628) = JVS(16998)*UV(463)+JVS(16999)*UV(2147)+JVS(17000)*UV(3628)+JVS(17001)*UV(3835)+JVS(17002)*UV(5015)& - &+JVS(17003)*UV(5250) - JUV(3629) = JVS(17005)*UV(1318)+JVS(17006)*UV(2947)+JVS(17007)*UV(3390)+JVS(17008)*UV(3629)+JVS(17011)*UV(5250) - JUV(3630) = JVS(17016)*UV(3630)+JVS(17017)*UV(4805)+JVS(17018)*UV(5002)+JVS(17019)*UV(5069)+JVS(17020)*UV(5076)& - &+JVS(17021)*UV(5205)+JVS(17022)*UV(5209)+JVS(17023)*UV(5258) - JUV(3631) = JVS(17024)*UV(3244)+JVS(17025)*UV(3295)+JVS(17026)*UV(3631)+JVS(17027)*UV(5250)+JVS(17028)*UV(5252)& - &+JVS(17029)*UV(5255)+JVS(17030)*UV(5256) - JUV(3632) = JVS(17031)*UV(982)+JVS(17032)*UV(3244)+JVS(17033)*UV(3632)+JVS(17034)*UV(5250)+JVS(17035)*UV(5252)& - &+JVS(17036)*UV(5255)+JVS(17037)*UV(5256) - JUV(3633) = JVS(17038)*UV(2680)+JVS(17039)*UV(3633)+JVS(17041)*UV(5250)+JVS(17043)*UV(5256) - JUV(3634) = JVS(17044)*UV(3634)+JVS(17045)*UV(5166)+JVS(17046)*UV(5252)+JVS(17047)*UV(5255)+JVS(17048)*UV(5256) - JUV(3635) = JVS(17049)*UV(2101)+JVS(17050)*UV(3625)+JVS(17051)*UV(3635)+JVS(17052)*UV(5074)+JVS(17054)*UV(5250) - JUV(3636) = JVS(17056)*UV(3636)+JVS(17057)*UV(5153)+JVS(17058)*UV(5252)+JVS(17059)*UV(5255)+JVS(17060)*UV(5256) - JUV(3637) = JVS(17061)*UV(668)+JVS(17062)*UV(3637)+JVS(17063)*UV(5250)+JVS(17064)*UV(5252)+JVS(17065)*UV(5255)& - &+JVS(17066)*UV(5256) - JUV(3638) = JVS(17067)*UV(536)+JVS(17068)*UV(1569)+JVS(17069)*UV(1758)+JVS(17070)*UV(2347)+JVS(17071)*UV(2744)& - &+JVS(17072)*UV(3638)+JVS(17074)*UV(4526)+JVS(17075)*UV(4678)+JVS(17076)*UV(4921)+JVS(17077)*UV(4970)& - &+JVS(17079)*UV(5250)+JVS(17080)*UV(5251)+JVS(17081)*UV(5252)+JVS(17082)*UV(5253)+JVS(17083)*UV(5254)& - &+JVS(17084)*UV(5255)+JVS(17086)*UV(5258) - JUV(3639) = JVS(17087)*UV(559)+JVS(17088)*UV(725)+JVS(17089)*UV(1130)+JVS(17090)*UV(1538)+JVS(17091)*UV(2756)& - &+JVS(17092)*UV(2980)+JVS(17093)*UV(3639)+JVS(17094)*UV(4346)+JVS(17095)*UV(4459)+JVS(17098)*UV(5250) - JUV(3640) = JVS(17101)*UV(332)+JVS(17102)*UV(1484)+JVS(17103)*UV(1819)+JVS(17104)*UV(1820)+JVS(17105)*UV(3509)& - &+JVS(17106)*UV(3640)+JVS(17107)*UV(5250)+JVS(17110)*UV(5256) - JUV(3641) = JVS(17111)*UV(2585)+JVS(17112)*UV(3263)+JVS(17113)*UV(3641)+JVS(17114)*UV(5250)+JVS(17115)*UV(5252)& - &+JVS(17116)*UV(5255)+JVS(17117)*UV(5256) - JUV(3642) = JVS(17118)*UV(390)+JVS(17119)*UV(1439)+JVS(17120)*UV(1786)+JVS(17121)*UV(2637)+JVS(17122)*UV(3430)& - &+JVS(17123)*UV(3642)+JVS(17124)*UV(4342)+JVS(17126)*UV(5250) - JUV(3643) = JVS(17131)*UV(225)+JVS(17132)*UV(1287)+JVS(17133)*UV(2014)+JVS(17134)*UV(2015)+JVS(17135)*UV(3523)& - &+JVS(17136)*UV(3643)+JVS(17137)*UV(5250)+JVS(17140)*UV(5256) - JUV(3644) = JVS(17141)*UV(1570)+JVS(17142)*UV(2725)+JVS(17143)*UV(2911)+JVS(17144)*UV(3446)+JVS(17145)*UV(3644)& - &+JVS(17146)*UV(4308)+JVS(17147)*UV(4358)+JVS(17148)*UV(5250)+JVS(17149)*UV(5252)+JVS(17151)*UV(5255)& - &+JVS(17152)*UV(5256) - JUV(3645) = JVS(17153)*UV(431)+JVS(17154)*UV(1385)+JVS(17155)*UV(1903)+JVS(17156)*UV(2232)+JVS(17157)*UV(3492)& - &+JVS(17158)*UV(3645)+JVS(17159)*UV(5250)+JVS(17162)*UV(5256) - JUV(3646) = JVS(17163)*UV(3646)+JVS(17164)*UV(5048)+JVS(17165)*UV(5092)+JVS(17166)*UV(5250)+JVS(17167)*UV(5258) - JUV(3647) = JVS(17168)*UV(3647)+JVS(17169)*UV(4570)+JVS(17170)*UV(4976)+JVS(17171)*UV(5089)+JVS(17172)*UV(5141)& - &+JVS(17173)*UV(5209)+JVS(17174)*UV(5220)+JVS(17175)*UV(5258) - JUV(3648) = JVS(17176)*UV(1218)+JVS(17177)*UV(3263)+JVS(17178)*UV(3648)+JVS(17179)*UV(5250)+JVS(17180)*UV(5252)& - &+JVS(17181)*UV(5255)+JVS(17182)*UV(5256) - JUV(3649) = JVS(17183)*UV(277)+JVS(17184)*UV(966)+JVS(17185)*UV(1796)+JVS(17186)*UV(2302)+JVS(17187)*UV(3481)& - &+JVS(17188)*UV(3649)+JVS(17189)*UV(5250)+JVS(17192)*UV(5256) - JUV(3650) = JVS(17193)*UV(1396)+JVS(17194)*UV(3219)+JVS(17195)*UV(3650)+JVS(17196)*UV(5250)+JVS(17197)*UV(5252)& - &+JVS(17198)*UV(5255)+JVS(17199)*UV(5256) - JUV(3651) = JVS(17200)*UV(2042)+JVS(17201)*UV(2212)+JVS(17202)*UV(3202)+JVS(17203)*UV(3651)+JVS(17208)*UV(5238)& - &+JVS(17209)*UV(5250) - JUV(3652) = JVS(17211)*UV(642)+JVS(17212)*UV(3448)+JVS(17213)*UV(3652)+JVS(17215)*UV(5128)+JVS(17216)*UV(5226)& - &+JVS(17217)*UV(5250)+JVS(17218)*UV(5252)+JVS(17219)*UV(5255)+JVS(17220)*UV(5256) - JUV(3653) = JVS(17221)*UV(278)+JVS(17222)*UV(1400)+JVS(17223)*UV(3018)+JVS(17224)*UV(3653)+JVS(17225)*UV(4814)& - &+JVS(17226)*UV(5250) - JUV(3654) = JVS(17229)*UV(3654)+JVS(17230)*UV(4922)+JVS(17231)*UV(5250)+JVS(17232)*UV(5255)+JVS(17233)*UV(5256) - JUV(3655) = JVS(17234)*UV(480)+JVS(17235)*UV(1458)+JVS(17236)*UV(1772)+JVS(17237)*UV(1773)+JVS(17238)*UV(3525)& - &+JVS(17239)*UV(3655)+JVS(17240)*UV(5250)+JVS(17243)*UV(5256) - JUV(3656) = JVS(17244)*UV(1035)+JVS(17245)*UV(2447)+JVS(17246)*UV(3266)+JVS(17247)*UV(3656)+JVS(17248)*UV(4476)& - &+JVS(17251)*UV(4852)+JVS(17252)*UV(5250) - JUV(3657) = JVS(17255)*UV(262)+JVS(17256)*UV(922)+JVS(17257)*UV(1821)+JVS(17258)*UV(2309)+JVS(17259)*UV(3507)& - &+JVS(17260)*UV(3657)+JVS(17261)*UV(5250)+JVS(17264)*UV(5256) - JUV(3658) = JVS(17265)*UV(3658)+JVS(17266)*UV(5153)+JVS(17267)*UV(5252)+JVS(17268)*UV(5255)+JVS(17269)*UV(5256) - JUV(3659) = JVS(17270)*UV(3219)+JVS(17271)*UV(3235)+JVS(17272)*UV(3659)+JVS(17273)*UV(5250)+JVS(17274)*UV(5252)& - &+JVS(17275)*UV(5255)+JVS(17276)*UV(5256) - JUV(3660) = JVS(17277)*UV(3660)+JVS(17278)*UV(4923)+JVS(17279)*UV(5250)+JVS(17280)*UV(5255)+JVS(17281)*UV(5256) - JUV(3661) = JVS(17282)*UV(396)+JVS(17283)*UV(1542)+JVS(17284)*UV(1860)+JVS(17285)*UV(1881)+JVS(17286)*UV(3521)& - &+JVS(17287)*UV(3661)+JVS(17288)*UV(5250)+JVS(17291)*UV(5256) - JUV(3662) = JVS(17292)*UV(3662)+JVS(17293)*UV(5115)+JVS(17294)*UV(5140)+JVS(17295)*UV(5250)+JVS(17296)*UV(5256) - JUV(3663) = JVS(17297)*UV(2740)+JVS(17298)*UV(3180)+JVS(17299)*UV(3663)+JVS(17300)*UV(5250)+JVS(17301)*UV(5252)& - &+JVS(17302)*UV(5255)+JVS(17303)*UV(5256) - JUV(3664) = JVS(17304)*UV(2994)+JVS(17305)*UV(3195)+JVS(17308)*UV(3664)+JVS(17309)*UV(4888)+JVS(17310)*UV(5250)& - &+JVS(17312)*UV(5255) - JUV(3665) = JVS(17314)*UV(2624)+JVS(17315)*UV(3193)+JVS(17316)*UV(3665)+JVS(17317)*UV(5250)+JVS(17318)*UV(5252)& - &+JVS(17319)*UV(5255)+JVS(17320)*UV(5256) - JUV(3666) = JVS(17321)*UV(1567)+JVS(17322)*UV(2624)+JVS(17323)*UV(3665)+JVS(17324)*UV(3666)+JVS(17325)*UV(5250)& - &+JVS(17326)*UV(5252)+JVS(17328)*UV(5256) - JUV(3667) = JVS(17329)*UV(1992)+JVS(17330)*UV(2767)+JVS(17331)*UV(3667)+JVS(17333)*UV(5250)+JVS(17334)*UV(5252)& - &+JVS(17335)*UV(5255)+JVS(17336)*UV(5256) - JUV(3668) = JVS(17337)*UV(2452)+JVS(17339)*UV(3668)+JVS(17342)*UV(5252)+JVS(17343)*UV(5255)+JVS(17344)*UV(5256) - JUV(3669) = JVS(17345)*UV(2089)+JVS(17346)*UV(3669)+JVS(17347)*UV(4951)+JVS(17348)*UV(5250)+JVS(17349)*UV(5252)& - &+JVS(17350)*UV(5255)+JVS(17351)*UV(5256) - JUV(3670) = JVS(17352)*UV(3670)+JVS(17353)*UV(5153)+JVS(17354)*UV(5250)+JVS(17355)*UV(5252)+JVS(17356)*UV(5255)& - &+JVS(17357)*UV(5256) - JUV(3671) = JVS(17358)*UV(2068)+JVS(17359)*UV(3442)+JVS(17360)*UV(3671)+JVS(17361)*UV(5250)+JVS(17362)*UV(5252)& - &+JVS(17363)*UV(5255)+JVS(17364)*UV(5256) - JUV(3672) = JVS(17366)*UV(3334)+JVS(17367)*UV(3672)+JVS(17369)*UV(5133)+JVS(17371)*UV(5250)+JVS(17372)*UV(5255) - JUV(3673) = JVS(17373)*UV(744)+JVS(17375)*UV(3673)+JVS(17377)*UV(5250) - JUV(3674) = JVS(17381)*UV(1282)+JVS(17382)*UV(3168)+JVS(17383)*UV(3674)+JVS(17385)*UV(5250)+JVS(17386)*UV(5252)& - &+JVS(17387)*UV(5255)+JVS(17388)*UV(5256) - JUV(3675) = JVS(17389)*UV(1805)+JVS(17390)*UV(3675)+JVS(17392)*UV(5250)+JVS(17393)*UV(5252)+JVS(17394)*UV(5255)& - &+JVS(17395)*UV(5256) - JUV(3676) = JVS(17396)*UV(2187)+JVS(17397)*UV(3156)+JVS(17398)*UV(3676)+JVS(17400)*UV(5250)+JVS(17401)*UV(5252)& - &+JVS(17402)*UV(5255)+JVS(17403)*UV(5256) - JUV(3677) = JVS(17404)*UV(1850)+JVS(17405)*UV(3677)+JVS(17406)*UV(4927)+JVS(17407)*UV(5250)+JVS(17408)*UV(5252)& - &+JVS(17409)*UV(5255)+JVS(17410)*UV(5256) - JUV(3678) = JVS(17411)*UV(1028)+JVS(17412)*UV(3091)+JVS(17413)*UV(3678)+JVS(17415)*UV(5250)+JVS(17416)*UV(5252)& - &+JVS(17417)*UV(5255)+JVS(17418)*UV(5256) - JUV(3679) = JVS(17419)*UV(1979)+JVS(17420)*UV(2464)+JVS(17421)*UV(3679)+JVS(17423)*UV(5250)+JVS(17424)*UV(5252)& - &+JVS(17425)*UV(5255)+JVS(17426)*UV(5256) - JUV(3680) = JVS(17427)*UV(2281)+JVS(17428)*UV(2389)+JVS(17429)*UV(3680)+JVS(17431)*UV(5250)+JVS(17432)*UV(5252)& - &+JVS(17433)*UV(5255)+JVS(17434)*UV(5256) - JUV(3681) = JVS(17435)*UV(780)+JVS(17437)*UV(3681)+JVS(17439)*UV(5250) - JUV(3682) = JVS(17443)*UV(1620)+JVS(17444)*UV(3682)+JVS(17445)*UV(4730)+JVS(17447)*UV(5250) - JUV(3683) = JVS(17451)*UV(737)+JVS(17453)*UV(1938)+JVS(17454)*UV(3683)+JVS(17456)*UV(4885)+JVS(17457)*UV(5250) - JUV(3684) = JVS(17461)*UV(3172)+JVS(17462)*UV(3684)+JVS(17463)*UV(5250)+JVS(17464)*UV(5256)+JVS(17465)*UV(5258) - JUV(3685) = JVS(17466)*UV(2046)+JVS(17467)*UV(2054)+JVS(17468)*UV(3685)+JVS(17470)*UV(5250)+JVS(17471)*UV(5252)& - &+JVS(17472)*UV(5255)+JVS(17473)*UV(5256) - JUV(3686) = JVS(17474)*UV(364)+JVS(17475)*UV(1479)+JVS(17476)*UV(3686)+JVS(17477)*UV(5131)+JVS(17478)*UV(5250)& - &+JVS(17479)*UV(5252)+JVS(17480)*UV(5255)+JVS(17481)*UV(5256) - JUV(3687) = JVS(17482)*UV(2267)+JVS(17483)*UV(3687)+JVS(17484)*UV(4793)+JVS(17485)*UV(5250)+JVS(17486)*UV(5252)& - &+JVS(17487)*UV(5255)+JVS(17488)*UV(5256) - JUV(3688) = JVS(17489)*UV(421)+JVS(17491)*UV(1382)+JVS(17493)*UV(3688)+JVS(17495)*UV(5250)+JVS(17496)*UV(5252)& - &+JVS(17497)*UV(5255)+JVS(17498)*UV(5256) - JUV(3689) = JVS(17499)*UV(598)+JVS(17500)*UV(1235)+JVS(17501)*UV(2020)+JVS(17502)*UV(2922)+JVS(17503)*UV(3689)& - &+JVS(17504)*UV(5181)+JVS(17505)*UV(5250) - JUV(3690) = JVS(17509)*UV(186)+JVS(17512)*UV(3690)+JVS(17515)*UV(5252)+JVS(17516)*UV(5255)+JVS(17517)*UV(5256) - JUV(3691) = JVS(17518)*UV(196)+JVS(17521)*UV(3691)+JVS(17524)*UV(5252)+JVS(17525)*UV(5255)+JVS(17526)*UV(5256) - JUV(3692) = JVS(17527)*UV(2454)+JVS(17528)*UV(3692)+JVS(17529)*UV(4952)+JVS(17530)*UV(5250)+JVS(17531)*UV(5252)& - &+JVS(17532)*UV(5255)+JVS(17533)*UV(5256) - JUV(3693) = JVS(17534)*UV(2236)+JVS(17535)*UV(3693)+JVS(17536)*UV(4861)+JVS(17538)*UV(4976)+JVS(17539)*UV(5250)& - &+JVS(17540)*UV(5255) - JUV(3694) = JVS(17541)*UV(193)+JVS(17543)*UV(935)+JVS(17545)*UV(3694)+JVS(17547)*UV(5250)+JVS(17548)*UV(5252)& - &+JVS(17549)*UV(5255)+JVS(17550)*UV(5256) - JUV(3695) = JVS(17551)*UV(1443)+JVS(17552)*UV(3695)+JVS(17553)*UV(4927)+JVS(17554)*UV(5250)+JVS(17555)*UV(5252)& - &+JVS(17556)*UV(5255)+JVS(17557)*UV(5256) - JUV(3696) = JVS(17558)*UV(1861)+JVS(17559)*UV(3696)+JVS(17560)*UV(4637)+JVS(17561)*UV(5250)+JVS(17562)*UV(5252)& - &+JVS(17563)*UV(5255)+JVS(17564)*UV(5256) - JUV(3697) = JVS(17565)*UV(1936)+JVS(17566)*UV(3697)+JVS(17568)*UV(5250)+JVS(17569)*UV(5252)+JVS(17570)*UV(5255)& - &+JVS(17571)*UV(5256) - JUV(3698) = JVS(17572)*UV(388)+JVS(17573)*UV(1336)+JVS(17574)*UV(3698)+JVS(17575)*UV(4652)+JVS(17576)*UV(5250)& - &+JVS(17577)*UV(5252)+JVS(17578)*UV(5255)+JVS(17579)*UV(5256) - JUV(3699) = JVS(17580)*UV(2054)+JVS(17581)*UV(3699)+JVS(17583)*UV(5250)+JVS(17584)*UV(5252)+JVS(17585)*UV(5255)& - &+JVS(17586)*UV(5256) - JUV(3700) = JVS(17587)*UV(3485)+JVS(17588)*UV(3700)+JVS(17589)*UV(5022)+JVS(17591)*UV(5252)+JVS(17593)*UV(5256) - JUV(3701) = JVS(17594)*UV(3149)+JVS(17595)*UV(3701)+JVS(17596)*UV(5250)+JVS(17597)*UV(5256)+JVS(17598)*UV(5258) - JUV(3702) = JVS(17599)*UV(3702)+JVS(17600)*UV(4992)+JVS(17601)*UV(5250)+JVS(17602)*UV(5255) - JUV(3703) = JVS(17603)*UV(241)+JVS(17604)*UV(1247)+JVS(17605)*UV(3703)+JVS(17606)*UV(4638)+JVS(17607)*UV(5250)& - &+JVS(17608)*UV(5252)+JVS(17609)*UV(5255)+JVS(17610)*UV(5256) - JUV(3704) = JVS(17611)*UV(1534)+JVS(17612)*UV(3110)+JVS(17613)*UV(3704)+JVS(17615)*UV(5250)+JVS(17616)*UV(5252)& - &+JVS(17617)*UV(5255)+JVS(17618)*UV(5256) - JUV(3705) = JVS(17619)*UV(1020)+JVS(17620)*UV(3705)+JVS(17621)*UV(4895)+JVS(17622)*UV(5250)+JVS(17623)*UV(5252)& - &+JVS(17624)*UV(5255)+JVS(17625)*UV(5256) - JUV(3706) = JVS(17626)*UV(2207)+JVS(17628)*UV(3706)+JVS(17631)*UV(5252)+JVS(17632)*UV(5255)+JVS(17633)*UV(5256) - JUV(3707) = JVS(17634)*UV(3707)+JVS(17635)*UV(4758)+JVS(17636)*UV(5250)+JVS(17637)*UV(5255) - JUV(3708) = JVS(17638)*UV(3464)+JVS(17640)*UV(3708)+JVS(17642)*UV(5197)+JVS(17643)*UV(5250)+JVS(17644)*UV(5255) - JUV(3709) = JVS(17645)*UV(597)+JVS(17647)*UV(3709)+JVS(17649)*UV(5250) - JUV(3710) = JVS(17653)*UV(201)+JVS(17654)*UV(561)+JVS(17657)*UV(3710)+JVS(17659)*UV(5250)+JVS(17660)*UV(5252)& - &+JVS(17661)*UV(5255)+JVS(17662)*UV(5256) - JUV(3711) = JVS(17663)*UV(2274)+JVS(17664)*UV(3711)+JVS(17666)*UV(5250)+JVS(17667)*UV(5252)+JVS(17668)*UV(5255)& - &+JVS(17669)*UV(5256) - JUV(3712) = JVS(17670)*UV(3325)+JVS(17671)*UV(3712)+JVS(17672)*UV(4398)+JVS(17673)*UV(4916)+JVS(17674)*UV(5250)& - &+JVS(17675)*UV(5252)+JVS(17676)*UV(5255)+JVS(17677)*UV(5256) - JUV(3713) = JVS(17678)*UV(1053)+JVS(17679)*UV(3713)+JVS(17680)*UV(4896)+JVS(17681)*UV(5250)+JVS(17682)*UV(5252)& - &+JVS(17683)*UV(5255)+JVS(17684)*UV(5256) - JUV(3714) = JVS(17685)*UV(963)+JVS(17686)*UV(2464)+JVS(17687)*UV(3714)+JVS(17689)*UV(5250)+JVS(17690)*UV(5252)& - &+JVS(17691)*UV(5255)+JVS(17692)*UV(5256) - JUV(3715) = JVS(17693)*UV(1163)+JVS(17694)*UV(1402)+JVS(17695)*UV(3715)+JVS(17696)*UV(4485)+JVS(17697)*UV(5250)& - &+JVS(17698)*UV(5252)+JVS(17699)*UV(5255)+JVS(17700)*UV(5256) - JUV(3716) = JVS(17701)*UV(1194)+JVS(17702)*UV(1977)+JVS(17703)*UV(2006)+JVS(17704)*UV(3716)+JVS(17705)*UV(4562)& - &+JVS(17708)*UV(5250) - JUV(3717) = JVS(17711)*UV(992)+JVS(17712)*UV(3389)+JVS(17713)*UV(3717)+JVS(17715)*UV(5250)+JVS(17716)*UV(5252)& - &+JVS(17717)*UV(5255)+JVS(17718)*UV(5256) - JUV(3718) = JVS(17719)*UV(171)+JVS(17722)*UV(3718)+JVS(17725)*UV(5252)+JVS(17726)*UV(5255)+JVS(17727)*UV(5256) - JUV(3719) = JVS(17728)*UV(583)+JVS(17729)*UV(989)+JVS(17730)*UV(3719)+JVS(17732)*UV(5250)+JVS(17733)*UV(5252)& - &+JVS(17734)*UV(5255)+JVS(17735)*UV(5256) - JUV(3720) = JVS(17736)*UV(1604)+JVS(17739)*UV(3720)+JVS(17741)*UV(5250)+JVS(17742)*UV(5252)+JVS(17743)*UV(5255)& - &+JVS(17744)*UV(5256) - JUV(3721) = JVS(17745)*UV(1171)+JVS(17746)*UV(3442)+JVS(17747)*UV(3721)+JVS(17748)*UV(5250)+JVS(17749)*UV(5252)& - &+JVS(17750)*UV(5255)+JVS(17751)*UV(5256) - JUV(3722) = JVS(17753)*UV(378)+JVS(17754)*UV(1480)+JVS(17755)*UV(3722)+JVS(17756)*UV(4863)+JVS(17757)*UV(5250)& - &+JVS(17758)*UV(5252)+JVS(17759)*UV(5255)+JVS(17760)*UV(5256) - JUV(3723) = JVS(17761)*UV(3005)+JVS(17762)*UV(3723)+JVS(17763)*UV(4178)+JVS(17764)*UV(4946)+JVS(17765)*UV(5250)& - &+JVS(17766)*UV(5252)+JVS(17767)*UV(5255)+JVS(17768)*UV(5256) - JUV(3724) = JVS(17769)*UV(644)+JVS(17771)*UV(2450)+JVS(17772)*UV(3724)+JVS(17774)*UV(5250)+JVS(17775)*UV(5252)& - &+JVS(17776)*UV(5255)+JVS(17777)*UV(5256) - JUV(3725) = JVS(17778)*UV(1252)+JVS(17779)*UV(3725)+JVS(17780)*UV(4505)+JVS(17781)*UV(5250)+JVS(17782)*UV(5252)& - &+JVS(17783)*UV(5255)+JVS(17784)*UV(5256) - JUV(3726) = JVS(17785)*UV(814)+JVS(17786)*UV(1680)+JVS(17789)*UV(3726)+JVS(17791)*UV(4505)+JVS(17792)*UV(5250)& - &+JVS(17796)*UV(5258) - JUV(3727) = JVS(17797)*UV(1898)+JVS(17798)*UV(3727)+JVS(17799)*UV(4896)+JVS(17800)*UV(5250)+JVS(17801)*UV(5252)& - &+JVS(17802)*UV(5255)+JVS(17803)*UV(5256) - JUV(3728) = JVS(17804)*UV(1127)+JVS(17805)*UV(3728)+JVS(17806)*UV(4951)+JVS(17807)*UV(5250)+JVS(17808)*UV(5252)& - &+JVS(17809)*UV(5255)+JVS(17810)*UV(5256) - JUV(3729) = JVS(17811)*UV(809)+JVS(17813)*UV(3729)+JVS(17815)*UV(5250) - JUV(3730) = JVS(17819)*UV(1032)+JVS(17820)*UV(3109)+JVS(17821)*UV(3730)+JVS(17823)*UV(5250)+JVS(17824)*UV(5252)& - &+JVS(17825)*UV(5255)+JVS(17826)*UV(5256) - JUV(3731) = JVS(17827)*UV(192)+JVS(17830)*UV(3731)+JVS(17833)*UV(5252)+JVS(17834)*UV(5255)+JVS(17835)*UV(5256) - JUV(3732) = JVS(17836)*UV(746)+JVS(17838)*UV(3732)+JVS(17840)*UV(5250) - JUV(3733) = JVS(17844)*UV(3733)+JVS(17845)*UV(5215)+JVS(17846)*UV(5250)+JVS(17847)*UV(5252)+JVS(17848)*UV(5255)& - &+JVS(17849)*UV(5256) - JUV(3734) = JVS(17850)*UV(1280)+JVS(17851)*UV(2544)+JVS(17852)*UV(3010)+JVS(17853)*UV(3734)+JVS(17856)*UV(5224)& - &+JVS(17857)*UV(5250) - JUV(3735) = JVS(17860)*UV(2297)+JVS(17861)*UV(3265)+JVS(17862)*UV(3735)+JVS(17864)*UV(4767)+JVS(17865)*UV(4858)& - &+JVS(17866)*UV(5250) - JUV(3736) = JVS(17869)*UV(415)+JVS(17870)*UV(1162)+JVS(17871)*UV(2164)+JVS(17872)*UV(3736)+JVS(17873)*UV(3737)& - &+JVS(17874)*UV(4672)+JVS(17875)*UV(5250) - JUV(3737) = JVS(17878)*UV(1162)+JVS(17879)*UV(2164)+JVS(17880)*UV(3737)+JVS(17881)*UV(4672)+JVS(17883)*UV(5252)& - &+JVS(17885)*UV(5256) - JUV(3738) = JVS(17886)*UV(2294)+JVS(17887)*UV(2398)+JVS(17888)*UV(3738)+JVS(17890)*UV(5250)+JVS(17891)*UV(5252)& - &+JVS(17892)*UV(5255)+JVS(17893)*UV(5256) - JUV(3739) = JVS(17894)*UV(2053)+JVS(17895)*UV(3739)+JVS(17896)*UV(4895)+JVS(17897)*UV(5250)+JVS(17898)*UV(5252)& - &+JVS(17899)*UV(5255)+JVS(17900)*UV(5256) - JUV(3740) = JVS(17901)*UV(1775)+JVS(17902)*UV(3740)+JVS(17904)*UV(5250)+JVS(17905)*UV(5252)+JVS(17906)*UV(5255)& - &+JVS(17907)*UV(5256) - JUV(3741) = JVS(17908)*UV(271)+JVS(17910)*UV(1324)+JVS(17913)*UV(3741)+JVS(17915)*UV(5250)+JVS(17916)*UV(5252)& - &+JVS(17917)*UV(5255)+JVS(17918)*UV(5256) - JUV(3742) = JVS(17919)*UV(753)+JVS(17922)*UV(3742)+JVS(17924)*UV(5250) - JUV(3743) = JVS(17928)*UV(360)+JVS(17929)*UV(1250)+JVS(17930)*UV(3743)+JVS(17931)*UV(4681)+JVS(17932)*UV(5250)& - &+JVS(17933)*UV(5252)+JVS(17934)*UV(5255)+JVS(17935)*UV(5256) - JUV(3744) = JVS(17936)*UV(2174)+JVS(17937)*UV(3744)+JVS(17938)*UV(4925)+JVS(17940)*UV(5252)+JVS(17942)*UV(5256) - JUV(3745) = JVS(17943)*UV(1043)+JVS(17944)*UV(3090)+JVS(17946)*UV(3745)+JVS(17948)*UV(5250)+JVS(17949)*UV(5252)& - &+JVS(17950)*UV(5255)+JVS(17951)*UV(5256) - JUV(3746) = JVS(17952)*UV(1335)+JVS(17953)*UV(1845)+JVS(17954)*UV(3746)+JVS(17956)*UV(5250)+JVS(17957)*UV(5252)& - &+JVS(17958)*UV(5255)+JVS(17959)*UV(5256) - JUV(3747) = JVS(17960)*UV(895)+JVS(17961)*UV(1010)+JVS(17962)*UV(2291)+JVS(17963)*UV(2361)+JVS(17965)*UV(3393)& - &+JVS(17966)*UV(3747)+JVS(17967)*UV(4577)+JVS(17969)*UV(5250) - JUV(3748) = JVS(17973)*UV(792)+JVS(17974)*UV(1133)+JVS(17976)*UV(3396)+JVS(17979)*UV(3748)+JVS(17981)*UV(5250)& - &+JVS(17984)*UV(5256) - JUV(3749) = JVS(17985)*UV(177)+JVS(17988)*UV(3749)+JVS(17991)*UV(5252)+JVS(17992)*UV(5255)+JVS(17993)*UV(5256) - JUV(3750) = JVS(17994)*UV(2056)+JVS(17996)*UV(3750)+JVS(17999)*UV(5252)+JVS(18000)*UV(5255)+JVS(18001)*UV(5256) - JUV(3751) = JVS(18002)*UV(197)+JVS(18005)*UV(3751)+JVS(18008)*UV(5252)+JVS(18009)*UV(5255)+JVS(18010)*UV(5256) - JUV(3752) = JVS(18011)*UV(944)+JVS(18012)*UV(3752)+JVS(18013)*UV(4952)+JVS(18014)*UV(5250)+JVS(18015)*UV(5252)& - &+JVS(18016)*UV(5255)+JVS(18017)*UV(5256) - JUV(3753) = JVS(18018)*UV(1412)+JVS(18019)*UV(2390)+JVS(18020)*UV(3753)+JVS(18022)*UV(5250)+JVS(18023)*UV(5252)& - &+JVS(18024)*UV(5255)+JVS(18025)*UV(5256) - JUV(3754) = JVS(18026)*UV(102)+JVS(18027)*UV(1533)+JVS(18028)*UV(2782)+JVS(18029)*UV(3754)+JVS(18030)*UV(4529)& - &+JVS(18031)*UV(5250)+JVS(18032)*UV(5252)+JVS(18034)*UV(5256) - JUV(3755) = JVS(18035)*UV(1120)+JVS(18036)*UV(1894)+JVS(18037)*UV(3243)+JVS(18038)*UV(3755)+JVS(18041)*UV(4596)& - &+JVS(18042)*UV(5250) - JUV(3756) = JVS(18045)*UV(815)+JVS(18047)*UV(2940)+JVS(18048)*UV(3756)+JVS(18050)*UV(4827)+JVS(18051)*UV(5250) - JUV(3757) = JVS(18055)*UV(1767)+JVS(18056)*UV(2370)+JVS(18057)*UV(3757)+JVS(18058)*UV(4390)+JVS(18059)*UV(4607)& - &+JVS(18061)*UV(5250) - JUV(3758) = JVS(18064)*UV(2127)+JVS(18065)*UV(2926)+JVS(18066)*UV(3758)+JVS(18068)*UV(5250)+JVS(18069)*UV(5252)& - &+JVS(18070)*UV(5255)+JVS(18071)*UV(5256) - JUV(3759) = JVS(18072)*UV(590)+JVS(18073)*UV(1204)+JVS(18074)*UV(1670)+JVS(18075)*UV(2270)+JVS(18076)*UV(2466)& - &+JVS(18077)*UV(3759)+JVS(18078)*UV(4735)+JVS(18079)*UV(4889)+JVS(18080)*UV(5250) - JUV(3760) = JVS(18083)*UV(541)+JVS(18084)*UV(1164)+JVS(18086)*UV(3760)+JVS(18088)*UV(5250)+JVS(18089)*UV(5252)& - &+JVS(18090)*UV(5255)+JVS(18091)*UV(5256) - JUV(3761) = JVS(18092)*UV(146)+JVS(18093)*UV(1203)+JVS(18095)*UV(3761)+JVS(18097)*UV(5250)+JVS(18098)*UV(5252)& - &+JVS(18099)*UV(5255)+JVS(18100)*UV(5256) - JUV(3762) = JVS(18101)*UV(2446)+JVS(18102)*UV(3762)+JVS(18103)*UV(4650)+JVS(18104)*UV(5250)+JVS(18105)*UV(5252)& - &+JVS(18106)*UV(5255)+JVS(18107)*UV(5256) - JUV(3763) = JVS(18108)*UV(552)+JVS(18109)*UV(969)+JVS(18110)*UV(3636)+JVS(18111)*UV(3763)+JVS(18113)*UV(5250) - JUV(3764) = JVS(18117)*UV(215)+JVS(18118)*UV(1233)+JVS(18119)*UV(3764)+JVS(18120)*UV(4431)+JVS(18121)*UV(5250)& - &+JVS(18122)*UV(5252)+JVS(18123)*UV(5255)+JVS(18124)*UV(5256) - JUV(3765) = JVS(18125)*UV(2603)+JVS(18126)*UV(3765)+JVS(18127)*UV(4694)+JVS(18128)*UV(4985)+JVS(18129)*UV(5250)& - &+JVS(18130)*UV(5252)+JVS(18131)*UV(5255)+JVS(18132)*UV(5256) - JUV(3766) = JVS(18133)*UV(1410)+JVS(18134)*UV(3166)+JVS(18135)*UV(3766)+JVS(18137)*UV(5250)+JVS(18138)*UV(5252)& - &+JVS(18139)*UV(5255)+JVS(18140)*UV(5256) - JUV(3767) = JVS(18141)*UV(1141)+JVS(18142)*UV(3767)+JVS(18143)*UV(4387)+JVS(18145)*UV(5252)+JVS(18147)*UV(5256) - JUV(3768) = JVS(18148)*UV(1374)+JVS(18149)*UV(3117)+JVS(18150)*UV(3768)+JVS(18152)*UV(5250)+JVS(18153)*UV(5252)& - &+JVS(18154)*UV(5255)+JVS(18155)*UV(5256) - JUV(3769) = JVS(18156)*UV(1497)+JVS(18157)*UV(2167)+JVS(18158)*UV(3769)+JVS(18160)*UV(5250)+JVS(18161)*UV(5252)& - &+JVS(18162)*UV(5255)+JVS(18163)*UV(5256) - JUV(3770) = JVS(18164)*UV(2420)+JVS(18165)*UV(3770)+JVS(18167)*UV(5250)+JVS(18168)*UV(5252)+JVS(18169)*UV(5255)& - &+JVS(18170)*UV(5256) - JUV(3771) = JVS(18171)*UV(1062)+JVS(18172)*UV(2048)+JVS(18173)*UV(3771)+JVS(18175)*UV(5250)+JVS(18176)*UV(5252)& - &+JVS(18177)*UV(5255)+JVS(18178)*UV(5256) - JUV(3772) = JVS(18179)*UV(1388)+JVS(18180)*UV(3772)+JVS(18181)*UV(4637)+JVS(18182)*UV(5250)+JVS(18183)*UV(5252)& - &+JVS(18184)*UV(5255)+JVS(18185)*UV(5256) - JUV(3773) = JVS(18186)*UV(620)+JVS(18187)*UV(911)+JVS(18189)*UV(3423)+JVS(18192)*UV(3773)+JVS(18194)*UV(5250)& - &+JVS(18197)*UV(5256) - JUV(3774) = JVS(18198)*UV(1123)+JVS(18199)*UV(3774)+JVS(18200)*UV(4650)+JVS(18201)*UV(5250)+JVS(18202)*UV(5252)& - &+JVS(18203)*UV(5255)+JVS(18204)*UV(5256) - JUV(3775) = JVS(18205)*UV(716)+JVS(18206)*UV(1231)+JVS(18208)*UV(3380)+JVS(18211)*UV(3775)+JVS(18213)*UV(5250)& - &+JVS(18216)*UV(5256) - JUV(3776) = JVS(18217)*UV(250)+JVS(18218)*UV(276)+JVS(18219)*UV(867)+JVS(18220)*UV(3649)+JVS(18221)*UV(3776)& - &+JVS(18222)*UV(4187)+JVS(18223)*UV(5250)+JVS(18224)*UV(5252)+JVS(18225)*UV(5255)+JVS(18226)*UV(5256) - JUV(3777) = JVS(18227)*UV(314)+JVS(18228)*UV(1945)+JVS(18230)*UV(3777)+JVS(18232)*UV(5250) - JUV(3778) = JVS(18236)*UV(2233)+JVS(18237)*UV(2933)+JVS(18238)*UV(3778)+JVS(18240)*UV(5250)+JVS(18241)*UV(5252)& - &+JVS(18242)*UV(5255)+JVS(18243)*UV(5256) - JUV(3779) = JVS(18244)*UV(2194)+JVS(18245)*UV(2355)+JVS(18246)*UV(3779)+JVS(18247)*UV(4571)+JVS(18249)*UV(5252)& - &+JVS(18251)*UV(5256) - JUV(3780) = JVS(18252)*UV(651)+JVS(18253)*UV(664)+JVS(18254)*UV(1323)+JVS(18255)*UV(2253)+JVS(18256)*UV(3780)& - &+JVS(18258)*UV(4704)+JVS(18259)*UV(5250) - JUV(3781) = JVS(18262)*UV(1416)+JVS(18263)*UV(3148)+JVS(18264)*UV(3781)+JVS(18266)*UV(5250)+JVS(18267)*UV(5252)& - &+JVS(18268)*UV(5255)+JVS(18269)*UV(5256) - JUV(3782) = JVS(18270)*UV(1435)+JVS(18271)*UV(2281)+JVS(18272)*UV(3782)+JVS(18274)*UV(5250)+JVS(18275)*UV(5252)& - &+JVS(18276)*UV(5255)+JVS(18277)*UV(5256) - JUV(3783) = JVS(18278)*UV(816)+JVS(18281)*UV(3783)+JVS(18283)*UV(5250) - JUV(3784) = JVS(18287)*UV(591)+JVS(18288)*UV(1202)+JVS(18290)*UV(3784)+JVS(18292)*UV(5250)+JVS(18293)*UV(5252)& - &+JVS(18294)*UV(5255)+JVS(18295)*UV(5256) - JUV(3785) = JVS(18296)*UV(1075)+JVS(18297)*UV(3118)+JVS(18298)*UV(3785)+JVS(18300)*UV(5250)+JVS(18301)*UV(5252)& - &+JVS(18302)*UV(5255)+JVS(18303)*UV(5256) - JUV(3786) = JVS(18304)*UV(1024)+JVS(18305)*UV(3786)+JVS(18306)*UV(4397)+JVS(18307)*UV(5250)+JVS(18308)*UV(5252)& - &+JVS(18309)*UV(5255)+JVS(18310)*UV(5256) - JUV(3787) = JVS(18311)*UV(743)+JVS(18314)*UV(3787)+JVS(18316)*UV(5250) - JUV(3788) = JVS(18320)*UV(1530)+JVS(18321)*UV(3788)+JVS(18322)*UV(4793)+JVS(18323)*UV(5250)+JVS(18324)*UV(5252)& - &+JVS(18325)*UV(5255)+JVS(18326)*UV(5256) - JUV(3789) = JVS(18327)*UV(275)+JVS(18328)*UV(951)+JVS(18329)*UV(3789)+JVS(18330)*UV(4679)+JVS(18331)*UV(5250)& - &+JVS(18332)*UV(5252)+JVS(18333)*UV(5255)+JVS(18334)*UV(5256) - JUV(3790) = JVS(18335)*UV(3169)+JVS(18336)*UV(3790)+JVS(18337)*UV(5250)+JVS(18338)*UV(5252)+JVS(18339)*UV(5255)& - &+JVS(18340)*UV(5256) - JUV(3791) = JVS(18341)*UV(2499)+JVS(18342)*UV(3164)+JVS(18343)*UV(3791)+JVS(18344)*UV(5250)+JVS(18345)*UV(5252)& - &+JVS(18346)*UV(5255)+JVS(18347)*UV(5256) - JUV(3792) = JVS(18348)*UV(3792)+JVS(18349)*UV(4975)+JVS(18350)*UV(5010)+JVS(18351)*UV(5250)+JVS(18352)*UV(5256) - JUV(3793) = JVS(18353)*UV(2283)+JVS(18354)*UV(3157)+JVS(18356)*UV(3793)+JVS(18358)*UV(4592)+JVS(18359)*UV(5250)& - &+JVS(18360)*UV(5252)+JVS(18361)*UV(5253)+JVS(18363)*UV(5256)+JVS(18364)*UV(5258) - JUV(3794) = JVS(18365)*UV(3084)+JVS(18366)*UV(3794)+JVS(18367)*UV(5250)+JVS(18368)*UV(5252)+JVS(18369)*UV(5255)& - &+JVS(18370)*UV(5256) - JUV(3795) = JVS(18371)*UV(1039)+JVS(18372)*UV(2418)+JVS(18373)*UV(3794)+JVS(18374)*UV(3795)+JVS(18376)*UV(5252)& - &+JVS(18378)*UV(5256) - JUV(3796) = JVS(18379)*UV(3131)+JVS(18380)*UV(3320)+JVS(18381)*UV(3796)+JVS(18382)*UV(5250)+JVS(18383)*UV(5252)& - &+JVS(18384)*UV(5255)+JVS(18385)*UV(5256) - JUV(3797) = JVS(18386)*UV(3113)+JVS(18387)*UV(3129)+JVS(18388)*UV(3192)+JVS(18389)*UV(3797)+JVS(18390)*UV(5250)& - &+JVS(18391)*UV(5252)+JVS(18392)*UV(5255)+JVS(18393)*UV(5256) - JUV(3798) = JVS(18394)*UV(861)+JVS(18395)*UV(3113)+JVS(18396)*UV(3798)+JVS(18397)*UV(5250)+JVS(18398)*UV(5252)& - &+JVS(18399)*UV(5255)+JVS(18400)*UV(5256) - JUV(3799) = JVS(18401)*UV(3149)+JVS(18402)*UV(3319)+JVS(18403)*UV(3799)+JVS(18404)*UV(5250)+JVS(18405)*UV(5252)& - &+JVS(18406)*UV(5255)+JVS(18407)*UV(5256) - JUV(3800) = JVS(18408)*UV(2493)+JVS(18411)*UV(3800)+JVS(18412)*UV(4619)+JVS(18413)*UV(4917)+JVS(18414)*UV(5250)& - &+JVS(18416)*UV(5255) - JUV(3801) = JVS(18418)*UV(2130)+JVS(18419)*UV(3801)+JVS(18421)*UV(5252)+JVS(18422)*UV(5255)+JVS(18423)*UV(5256) - JUV(3802) = JVS(18424)*UV(129)+JVS(18425)*UV(1000)+JVS(18426)*UV(1525)+JVS(18427)*UV(3527)+JVS(18428)*UV(3802)& - &+JVS(18429)*UV(5250)+JVS(18430)*UV(5252)+JVS(18432)*UV(5256) - JUV(3803) = JVS(18433)*UV(3179)+JVS(18434)*UV(3803)+JVS(18435)*UV(5250)+JVS(18436)*UV(5252)+JVS(18437)*UV(5255)& - &+JVS(18438)*UV(5256) - JUV(3804) = JVS(18439)*UV(3144)+JVS(18440)*UV(3804)+JVS(18441)*UV(5250)+JVS(18442)*UV(5252)+JVS(18443)*UV(5255)& - &+JVS(18444)*UV(5256) - JUV(3805) = JVS(18445)*UV(1027)+JVS(18446)*UV(2406)+JVS(18447)*UV(3804)+JVS(18448)*UV(3805)+JVS(18450)*UV(5252)& - &+JVS(18452)*UV(5256) - JUV(3806) = JVS(18453)*UV(3806)+JVS(18454)*UV(4600)+JVS(18455)*UV(5252)+JVS(18456)*UV(5255)+JVS(18457)*UV(5256) - JUV(3807) = JVS(18458)*UV(3144)+JVS(18459)*UV(3807)+JVS(18460)*UV(5250)+JVS(18461)*UV(5252)+JVS(18462)*UV(5255)& - &+JVS(18463)*UV(5256) - JUV(3808) = JVS(18464)*UV(2565)+JVS(18465)*UV(3135)+JVS(18466)*UV(3808)+JVS(18467)*UV(5250)+JVS(18468)*UV(5252)& - &+JVS(18469)*UV(5255)+JVS(18470)*UV(5256) - JUV(3809) = JVS(18471)*UV(655)+JVS(18473)*UV(1928)+JVS(18474)*UV(3809)+JVS(18477)*UV(5199)+JVS(18478)*UV(5233)& - &+JVS(18479)*UV(5250)+JVS(18482)*UV(5256) - JUV(3810) = JVS(18483)*UV(3343)+JVS(18485)*UV(3810)+JVS(18486)*UV(5250)+JVS(18487)*UV(5252)+JVS(18488)*UV(5255)& - &+JVS(18489)*UV(5256) - JUV(3811) = JVS(18490)*UV(3105)+JVS(18491)*UV(3811)+JVS(18492)*UV(5250)+JVS(18493)*UV(5252)+JVS(18494)*UV(5255)& - &+JVS(18495)*UV(5256) - JUV(3812) = JVS(18496)*UV(1211)+JVS(18497)*UV(1964)+JVS(18498)*UV(3811)+JVS(18499)*UV(3812)+JVS(18501)*UV(5252)& - &+JVS(18503)*UV(5256) - JUV(3813) = JVS(18504)*UV(2520)+JVS(18505)*UV(3136)+JVS(18506)*UV(3813)+JVS(18507)*UV(5250)+JVS(18508)*UV(5252)& - &+JVS(18509)*UV(5255)+JVS(18510)*UV(5256) - JUV(3814) = JVS(18511)*UV(3331)+JVS(18513)*UV(3814)+JVS(18514)*UV(5250)+JVS(18515)*UV(5252)+JVS(18516)*UV(5255)& - &+JVS(18517)*UV(5256) - JUV(3815) = JVS(18518)*UV(2709)+JVS(18519)*UV(3172)+JVS(18520)*UV(3815)+JVS(18521)*UV(5250)+JVS(18522)*UV(5252)& - &+JVS(18523)*UV(5255)+JVS(18524)*UV(5256) - JUV(3816) = JVS(18525)*UV(3027)+JVS(18527)*UV(3816)+JVS(18528)*UV(4743)+JVS(18529)*UV(4930)+JVS(18530)*UV(5250)& - &+JVS(18532)*UV(5255) - JUV(3817) = JVS(18534)*UV(1200)+JVS(18535)*UV(3182)+JVS(18536)*UV(3817)+JVS(18537)*UV(5250)+JVS(18538)*UV(5252)& - &+JVS(18539)*UV(5255)+JVS(18540)*UV(5256) - JUV(3818) = JVS(18541)*UV(81)+JVS(18542)*UV(1200)+JVS(18543)*UV(1216)+JVS(18544)*UV(3817)+JVS(18545)*UV(3818)& - &+JVS(18546)*UV(5250)+JVS(18547)*UV(5252)+JVS(18549)*UV(5256) - JUV(3819) = JVS(18550)*UV(3182)+JVS(18551)*UV(3819)+JVS(18552)*UV(5250)+JVS(18553)*UV(5252)+JVS(18554)*UV(5255)& - &+JVS(18555)*UV(5256) - JUV(3820) = JVS(18556)*UV(3158)+JVS(18557)*UV(3321)+JVS(18558)*UV(3820)+JVS(18559)*UV(5250)+JVS(18560)*UV(5252)& - &+JVS(18561)*UV(5255)+JVS(18562)*UV(5256) - JUV(3821) = JVS(18563)*UV(752)+JVS(18564)*UV(2806)+JVS(18566)*UV(3406)+JVS(18569)*UV(3821)+JVS(18570)*UV(4326)& - &+JVS(18572)*UV(4968)+JVS(18573)*UV(5250)+JVS(18575)*UV(5255) - JUV(3822) = JVS(18578)*UV(675)+JVS(18579)*UV(964)+JVS(18580)*UV(2049)+JVS(18581)*UV(3822)+JVS(18582)*UV(5119)& - &+JVS(18583)*UV(5250) - JUV(3823) = JVS(18586)*UV(250)+JVS(18587)*UV(3823)+JVS(18588)*UV(5250)+JVS(18589)*UV(5252)+JVS(18590)*UV(5255)& - &+JVS(18591)*UV(5256) - JUV(3824) = JVS(18592)*UV(1307)+JVS(18593)*UV(2383)+JVS(18594)*UV(3823)+JVS(18595)*UV(3824)+JVS(18597)*UV(5252)& - &+JVS(18599)*UV(5256) - JUV(3825) = JVS(18600)*UV(3130)+JVS(18601)*UV(3279)+JVS(18602)*UV(3825)+JVS(18603)*UV(5250)+JVS(18604)*UV(5252)& - &+JVS(18605)*UV(5255)+JVS(18606)*UV(5256) - JUV(3826) = JVS(18607)*UV(22)+JVS(18608)*UV(861)+JVS(18609)*UV(1896)+JVS(18610)*UV(3798)+JVS(18611)*UV(3826)& - &+JVS(18612)*UV(5250)+JVS(18613)*UV(5252)+JVS(18615)*UV(5256) - JUV(3827) = JVS(18616)*UV(3157)+JVS(18617)*UV(3253)+JVS(18618)*UV(3827)+JVS(18619)*UV(5250)+JVS(18620)*UV(5252)& - &+JVS(18621)*UV(5255)+JVS(18622)*UV(5256) - JUV(3828) = JVS(18623)*UV(2649)+JVS(18624)*UV(3139)+JVS(18625)*UV(3828)+JVS(18626)*UV(5250)+JVS(18627)*UV(5252)& - &+JVS(18628)*UV(5255)+JVS(18629)*UV(5256) - JUV(3829) = JVS(18630)*UV(2776)+JVS(18632)*UV(3829)+JVS(18633)*UV(4322)+JVS(18634)*UV(5250) - JUV(3830) = JVS(18638)*UV(3830)+JVS(18639)*UV(4397)+JVS(18640)*UV(5250)+JVS(18641)*UV(5256)+JVS(18642)*UV(5258) - JUV(3831) = JVS(18643)*UV(3136)+JVS(18644)*UV(3831)+JVS(18645)*UV(5250)+JVS(18646)*UV(5256)+JVS(18647)*UV(5258) - JUV(3832) = JVS(18648)*UV(3832)+JVS(18649)*UV(5030)+JVS(18650)*UV(5250)+JVS(18651)*UV(5258) - JUV(3833) = JVS(18652)*UV(3192)+JVS(18653)*UV(3833)+JVS(18654)*UV(5250)+JVS(18655)*UV(5256)+JVS(18656)*UV(5258) - JUV(3834) = JVS(18657)*UV(3145)+JVS(18658)*UV(3834)+JVS(18659)*UV(5250)+JVS(18660)*UV(5256)+JVS(18661)*UV(5258) - JUV(3835) = JVS(18662)*UV(3835)+JVS(18663)*UV(5015)+JVS(18664)*UV(5250)+JVS(18665)*UV(5252) - JUV(3836) = JVS(18666)*UV(3369)+JVS(18667)*UV(3836)+JVS(18669)*UV(5250)+JVS(18670)*UV(5252)+JVS(18671)*UV(5255)& - &+JVS(18672)*UV(5256) - JUV(3837) = JVS(18673)*UV(3216)+JVS(18674)*UV(3837)+JVS(18675)*UV(5024)+JVS(18676)*UV(5250)+JVS(18677)*UV(5252)& - &+JVS(18678)*UV(5255)+JVS(18679)*UV(5256) - JUV(3838) = JVS(18680)*UV(49)+JVS(18682)*UV(1985)+JVS(18684)*UV(3838)+JVS(18686)*UV(5250)+JVS(18687)*UV(5252)& - &+JVS(18688)*UV(5255)+JVS(18689)*UV(5256) - JUV(3839) = JVS(18690)*UV(887)+JVS(18691)*UV(2273)+JVS(18692)*UV(3839)+JVS(18694)*UV(5250)+JVS(18695)*UV(5252)& - &+JVS(18696)*UV(5255)+JVS(18697)*UV(5256) - JUV(3840) = JVS(18698)*UV(1071)+JVS(18699)*UV(3840)+JVS(18700)*UV(5083)+JVS(18701)*UV(5250)+JVS(18702)*UV(5252)& - &+JVS(18703)*UV(5255)+JVS(18704)*UV(5256) - JUV(3841) = JVS(18705)*UV(367)+JVS(18706)*UV(1199)+JVS(18707)*UV(3841)+JVS(18708)*UV(5245)+JVS(18709)*UV(5250)& - &+JVS(18710)*UV(5252)+JVS(18711)*UV(5255)+JVS(18712)*UV(5256) - JUV(3842) = JVS(18713)*UV(1940)+JVS(18714)*UV(3842)+JVS(18715)*UV(4702)+JVS(18717)*UV(5252)+JVS(18719)*UV(5256) - JUV(3843) = JVS(18720)*UV(380)+JVS(18721)*UV(1298)+JVS(18722)*UV(2149)+JVS(18723)*UV(2710)+JVS(18724)*UV(3843)& - &+JVS(18725)*UV(5186)+JVS(18726)*UV(5250) - JUV(3844) = JVS(18730)*UV(1862)+JVS(18731)*UV(3844)+JVS(18732)*UV(5249)+JVS(18733)*UV(5250)+JVS(18734)*UV(5252)& - &+JVS(18735)*UV(5255)+JVS(18736)*UV(5256) - JUV(3845) = JVS(18737)*UV(443)+JVS(18738)*UV(942)+JVS(18741)*UV(3845)+JVS(18743)*UV(5250)+JVS(18744)*UV(5252)& - &+JVS(18745)*UV(5255)+JVS(18746)*UV(5256) - JUV(3846) = JVS(18747)*UV(775)+JVS(18748)*UV(863)+JVS(18751)*UV(3846)+JVS(18753)*UV(5250)+JVS(18754)*UV(5252)& - &+JVS(18755)*UV(5255)+JVS(18756)*UV(5256) - JUV(3847) = JVS(18757)*UV(2463)+JVS(18758)*UV(3847)+JVS(18759)*UV(5203)+JVS(18760)*UV(5250)+JVS(18761)*UV(5252)& - &+JVS(18762)*UV(5255)+JVS(18763)*UV(5256) - JUV(3848) = JVS(18764)*UV(1046)+JVS(18765)*UV(3848)+JVS(18766)*UV(5187)+JVS(18767)*UV(5250)+JVS(18768)*UV(5252)& - &+JVS(18769)*UV(5255)+JVS(18770)*UV(5256) - JUV(3849) = JVS(18771)*UV(530)+JVS(18772)*UV(690)+JVS(18773)*UV(1912)+JVS(18774)*UV(2578)+JVS(18775)*UV(2894)& - &+JVS(18776)*UV(2931)+JVS(18778)*UV(3849)+JVS(18781)*UV(5187)+JVS(18782)*UV(5250)+JVS(18785)*UV(5256)& - &+JVS(18786)*UV(5258) - JUV(3850) = JVS(18787)*UV(1371)+JVS(18788)*UV(3850)+JVS(18789)*UV(5169)+JVS(18790)*UV(5250)+JVS(18791)*UV(5252)& - &+JVS(18792)*UV(5255)+JVS(18793)*UV(5256) - JUV(3851) = JVS(18794)*UV(349)+JVS(18795)*UV(1751)+JVS(18796)*UV(2277)+JVS(18797)*UV(3851)+JVS(18798)*UV(4696)& - &+JVS(18799)*UV(5250)+JVS(18802)*UV(5256) - JUV(3852) = JVS(18803)*UV(3852)+JVS(18804)*UV(5215)+JVS(18805)*UV(5250)+JVS(18806)*UV(5252)+JVS(18807)*UV(5255)& - &+JVS(18808)*UV(5256) - JUV(3853) = JVS(18809)*UV(1021)+JVS(18810)*UV(3853)+JVS(18811)*UV(5141)+JVS(18812)*UV(5250)+JVS(18813)*UV(5252)& - &+JVS(18814)*UV(5255)+JVS(18815)*UV(5256) - JUV(3854) = JVS(18816)*UV(205)+JVS(18819)*UV(3038)+JVS(18820)*UV(3854)+JVS(18822)*UV(5250)+JVS(18823)*UV(5252)& - &+JVS(18824)*UV(5255)+JVS(18825)*UV(5256) - JUV(3855) = JVS(18826)*UV(297)+JVS(18829)*UV(3855)+JVS(18832)*UV(5252)+JVS(18833)*UV(5255)+JVS(18834)*UV(5256) - JUV(3856) = JVS(18835)*UV(338)+JVS(18836)*UV(2169)+JVS(18837)*UV(2264)+JVS(18838)*UV(3856)+JVS(18839)*UV(5082)& - &+JVS(18840)*UV(5250)+JVS(18843)*UV(5256) - JUV(3857) = JVS(18844)*UV(1262)+JVS(18845)*UV(1693)+JVS(18846)*UV(1980)+JVS(18847)*UV(3857)+JVS(18848)*UV(4880)& - &+JVS(18849)*UV(5250)+JVS(18852)*UV(5256) - JUV(3858) = JVS(18853)*UV(265)+JVS(18854)*UV(1277)+JVS(18855)*UV(3858)+JVS(18856)*UV(5021)+JVS(18857)*UV(5250)& - &+JVS(18858)*UV(5252)+JVS(18859)*UV(5255)+JVS(18860)*UV(5256) - JUV(3859) = JVS(18861)*UV(2633)+JVS(18862)*UV(2906)+JVS(18863)*UV(3859)+JVS(18865)*UV(5250)+JVS(18866)*UV(5252)& - &+JVS(18867)*UV(5255)+JVS(18868)*UV(5256) - JUV(3860) = JVS(18869)*UV(891)+JVS(18870)*UV(2714)+JVS(18872)*UV(3860)+JVS(18874)*UV(5250)+JVS(18875)*UV(5252)& - &+JVS(18876)*UV(5255)+JVS(18877)*UV(5256) - JUV(3861) = JVS(18878)*UV(348)+JVS(18879)*UV(1321)+JVS(18880)*UV(1884)+JVS(18881)*UV(3861)+JVS(18882)*UV(4348)& - &+JVS(18883)*UV(5250)+JVS(18886)*UV(5256) - JUV(3862) = JVS(18887)*UV(1676)+JVS(18888)*UV(1689)+JVS(18889)*UV(3862)+JVS(18891)*UV(5250)+JVS(18894)*UV(5256) - JUV(3863) = JVS(18895)*UV(2451)+JVS(18896)*UV(3863)+JVS(18897)*UV(4605)+JVS(18898)*UV(5250)+JVS(18899)*UV(5252)& - &+JVS(18900)*UV(5255)+JVS(18901)*UV(5256) - JUV(3864) = JVS(18902)*UV(2230)+JVS(18903)*UV(2289)+JVS(18905)*UV(3864)+JVS(18907)*UV(5250)+JVS(18908)*UV(5252)& - &+JVS(18909)*UV(5255)+JVS(18910)*UV(5256) - JUV(3865) = JVS(18911)*UV(1306)+JVS(18912)*UV(3865)+JVS(18913)*UV(4907)+JVS(18914)*UV(5250)+JVS(18915)*UV(5252)& - &+JVS(18916)*UV(5255)+JVS(18917)*UV(5256) - JUV(3866) = JVS(18918)*UV(328)+JVS(18919)*UV(3866)+JVS(18920)*UV(4395)+JVS(18921)*UV(5250)+JVS(18922)*UV(5252)& - &+JVS(18923)*UV(5255)+JVS(18924)*UV(5256) - JUV(3867) = JVS(18925)*UV(3867)+JVS(18926)*UV(4605)+JVS(18927)*UV(5250)+JVS(18928)*UV(5252)+JVS(18929)*UV(5255)& - &+JVS(18930)*UV(5256) - JUV(3868) = JVS(18931)*UV(1577)+JVS(18932)*UV(2193)+JVS(18933)*UV(2223)+JVS(18934)*UV(3023)+JVS(18935)*UV(3404)& - &+JVS(18936)*UV(3868)+JVS(18937)*UV(4901)+JVS(18939)*UV(5250) - JUV(3869) = JVS(18944)*UV(2543)+JVS(18945)*UV(2974)+JVS(18946)*UV(3869)+JVS(18948)*UV(5250)+JVS(18949)*UV(5252)& - &+JVS(18950)*UV(5255)+JVS(18951)*UV(5256) - JUV(3870) = JVS(18952)*UV(155)+JVS(18955)*UV(3870)+JVS(18958)*UV(5252)+JVS(18959)*UV(5255)+JVS(18960)*UV(5256) - JUV(3871) = JVS(18961)*UV(132)+JVS(18963)*UV(2095)+JVS(18965)*UV(3871)+JVS(18967)*UV(5250)+JVS(18968)*UV(5252)& - &+JVS(18969)*UV(5255)+JVS(18970)*UV(5256) - JUV(3872) = JVS(18971)*UV(2407)+JVS(18972)*UV(3872)+JVS(18973)*UV(5175)+JVS(18974)*UV(5250)+JVS(18975)*UV(5252)& - &+JVS(18976)*UV(5255)+JVS(18977)*UV(5256) - JUV(3873) = JVS(18978)*UV(2775)+JVS(18979)*UV(2990)+JVS(18980)*UV(3873)+JVS(18982)*UV(5250)+JVS(18983)*UV(5252)& - &+JVS(18984)*UV(5255)+JVS(18985)*UV(5256) - JUV(3874) = JVS(18986)*UV(1544)+JVS(18987)*UV(1989)+JVS(18989)*UV(3874)+JVS(18991)*UV(5250)+JVS(18992)*UV(5252)& - &+JVS(18993)*UV(5255)+JVS(18994)*UV(5256) - JUV(3875) = JVS(18995)*UV(242)+JVS(18996)*UV(1966)+JVS(18997)*UV(2168)+JVS(18998)*UV(3875)+JVS(18999)*UV(4733)& - &+JVS(19000)*UV(5250)+JVS(19003)*UV(5256) - JUV(3876) = JVS(19004)*UV(1517)+JVS(19005)*UV(3876)+JVS(19006)*UV(5169)+JVS(19007)*UV(5250)+JVS(19008)*UV(5252)& - &+JVS(19009)*UV(5255)+JVS(19010)*UV(5256) - JUV(3877) = JVS(19011)*UV(339)+JVS(19012)*UV(2019)+JVS(19013)*UV(2403)+JVS(19014)*UV(2767)+JVS(19015)*UV(3877)& - &+JVS(19016)*UV(4886)+JVS(19017)*UV(5250)+JVS(19020)*UV(5256) - JUV(3878) = JVS(19021)*UV(2394)+JVS(19022)*UV(3878)+JVS(19023)*UV(4593)+JVS(19025)*UV(5252)+JVS(19027)*UV(5256) - JUV(3879) = JVS(19028)*UV(577)+JVS(19029)*UV(1177)+JVS(19030)*UV(2453)+JVS(19031)*UV(2634)+JVS(19032)*UV(3836)& - &+JVS(19033)*UV(3879)+JVS(19035)*UV(5250)+JVS(19038)*UV(5256) - JUV(3880) = JVS(19039)*UV(43)+JVS(19041)*UV(2205)+JVS(19043)*UV(3880)+JVS(19045)*UV(5250)+JVS(19046)*UV(5252)& - &+JVS(19047)*UV(5255)+JVS(19048)*UV(5256) - JUV(3881) = JVS(19049)*UV(140)+JVS(19051)*UV(2027)+JVS(19053)*UV(3881)+JVS(19055)*UV(5250)+JVS(19056)*UV(5252)& - &+JVS(19057)*UV(5255)+JVS(19058)*UV(5256) - JUV(3882) = JVS(19059)*UV(290)+JVS(19062)*UV(3882)+JVS(19065)*UV(5252)+JVS(19066)*UV(5255)+JVS(19067)*UV(5256) - JUV(3883) = JVS(19068)*UV(1314)+JVS(19069)*UV(3883)+JVS(19070)*UV(5250)+JVS(19071)*UV(5252)+JVS(19072)*UV(5255)& - &+JVS(19073)*UV(5256)+JVS(19074)*UV(5257) - JUV(3884) = JVS(19075)*UV(1880)+JVS(19076)*UV(3884)+JVS(19077)*UV(5165)+JVS(19078)*UV(5250)+JVS(19079)*UV(5252)& - &+JVS(19080)*UV(5255)+JVS(19081)*UV(5256) - JUV(3885) = JVS(19082)*UV(2871)+JVS(19083)*UV(3032)+JVS(19084)*UV(3885)+JVS(19086)*UV(5250)+JVS(19087)*UV(5252)& - &+JVS(19088)*UV(5255)+JVS(19089)*UV(5256) - JUV(3886) = JVS(19090)*UV(1183)+JVS(19091)*UV(3886)+JVS(19092)*UV(5207)+JVS(19093)*UV(5250)+JVS(19094)*UV(5252)& - &+JVS(19095)*UV(5255)+JVS(19096)*UV(5256) - JUV(3887) = JVS(19097)*UV(2069)+JVS(19098)*UV(3887)+JVS(19099)*UV(4700)+JVS(19101)*UV(5252)+JVS(19103)*UV(5256) - JUV(3888) = JVS(19104)*UV(1080)+JVS(19105)*UV(3432)+JVS(19107)*UV(3888)+JVS(19109)*UV(5250)+JVS(19110)*UV(5252)& - &+JVS(19111)*UV(5255)+JVS(19112)*UV(5256) - JUV(3889) = JVS(19113)*UV(1514)+JVS(19114)*UV(3594)+JVS(19115)*UV(3889)+JVS(19117)*UV(5250)+JVS(19118)*UV(5252)& - &+JVS(19119)*UV(5255)+JVS(19120)*UV(5256) - JUV(3890) = JVS(19121)*UV(159)+JVS(19124)*UV(3890)+JVS(19127)*UV(5252)+JVS(19128)*UV(5255)+JVS(19129)*UV(5256) - JUV(3891) = JVS(19130)*UV(2180)+JVS(19131)*UV(3891)+JVS(19132)*UV(4988)+JVS(19133)*UV(5250)+JVS(19134)*UV(5252)& - &+JVS(19135)*UV(5255)+JVS(19136)*UV(5256) - JUV(3892) = JVS(19137)*UV(1582)+JVS(19138)*UV(2987)+JVS(19139)*UV(3892)+JVS(19140)*UV(4698)+JVS(19142)*UV(5250)& - &+JVS(19144)*UV(5256) - JUV(3893) = JVS(19145)*UV(2699)+JVS(19146)*UV(2785)+JVS(19147)*UV(3893)+JVS(19149)*UV(5250)+JVS(19150)*UV(5252)& - &+JVS(19151)*UV(5255)+JVS(19152)*UV(5256) - JUV(3894) = JVS(19153)*UV(566)+JVS(19154)*UV(1469)+JVS(19155)*UV(3894)+JVS(19156)*UV(5238)+JVS(19157)*UV(5250)& - &+JVS(19158)*UV(5252)+JVS(19159)*UV(5255)+JVS(19160)*UV(5256) - JUV(3895) = JVS(19161)*UV(971)+JVS(19162)*UV(3895)+JVS(19163)*UV(5189)+JVS(19164)*UV(5250)+JVS(19165)*UV(5252)& - &+JVS(19166)*UV(5255)+JVS(19167)*UV(5256) - JUV(3896) = JVS(19168)*UV(550)+JVS(19169)*UV(1745)+JVS(19173)*UV(3896)+JVS(19175)*UV(5250)+JVS(19178)*UV(5256) - JUV(3897) = JVS(19179)*UV(829)+JVS(19180)*UV(3897)+JVS(19181)*UV(4344)+JVS(19183)*UV(5252)+JVS(19185)*UV(5256) - JUV(3898) = JVS(19186)*UV(881)+JVS(19187)*UV(3898)+JVS(19188)*UV(4988)+JVS(19189)*UV(5250)+JVS(19190)*UV(5252)& - &+JVS(19191)*UV(5255)+JVS(19192)*UV(5256) - JUV(3899) = JVS(19193)*UV(2556)+JVS(19194)*UV(3391)+JVS(19195)*UV(3899)+JVS(19197)*UV(5250)+JVS(19198)*UV(5252)& - &+JVS(19199)*UV(5255)+JVS(19200)*UV(5256) - JUV(3900) = JVS(19201)*UV(1305)+JVS(19202)*UV(2817)+JVS(19203)*UV(3472)+JVS(19204)*UV(3900)+JVS(19205)*UV(4609)& - &+JVS(19206)*UV(5250)+JVS(19209)*UV(5256) - JUV(3901) = JVS(19210)*UV(156)+JVS(19213)*UV(3901)+JVS(19216)*UV(5252)+JVS(19217)*UV(5255)+JVS(19218)*UV(5256) - JUV(3902) = JVS(19219)*UV(113)+JVS(19221)*UV(3902)+JVS(19224)*UV(5252)+JVS(19225)*UV(5255)+JVS(19226)*UV(5256) - JUV(3903) = JVS(19227)*UV(2799)+JVS(19228)*UV(3903)+JVS(19229)*UV(4397)+JVS(19230)*UV(5250)+JVS(19231)*UV(5252)& - &+JVS(19232)*UV(5255)+JVS(19233)*UV(5256) - JUV(3904) = JVS(19234)*UV(2114)+JVS(19235)*UV(3904)+JVS(19236)*UV(4719)+JVS(19238)*UV(5252)+JVS(19240)*UV(5256) - JUV(3905) = JVS(19241)*UV(42)+JVS(19243)*UV(2423)+JVS(19245)*UV(3905)+JVS(19247)*UV(5250)+JVS(19248)*UV(5252)& - &+JVS(19249)*UV(5255)+JVS(19250)*UV(5256) - JUV(3906) = JVS(19251)*UV(3382)+JVS(19252)*UV(3777)+JVS(19253)*UV(3906)+JVS(19255)*UV(5250) - JUV(3907) = JVS(19259)*UV(1487)+JVS(19260)*UV(3907)+JVS(19261)*UV(5212)+JVS(19262)*UV(5250)+JVS(19263)*UV(5252)& - &+JVS(19264)*UV(5255)+JVS(19265)*UV(5256) - JUV(3908) = JVS(19266)*UV(1617)+JVS(19267)*UV(3908)+JVS(19270)*UV(5252)+JVS(19271)*UV(5255)+JVS(19272)*UV(5256) - JUV(3909) = JVS(19273)*UV(3278)+JVS(19274)*UV(3909)+JVS(19275)*UV(4345)+JVS(19277)*UV(5252)+JVS(19279)*UV(5256) - JUV(3910) = JVS(19280)*UV(2455)+JVS(19281)*UV(3910)+JVS(19282)*UV(4884)+JVS(19284)*UV(5252)+JVS(19286)*UV(5256) - JUV(3911) = JVS(19287)*UV(747)+JVS(19288)*UV(1606)+JVS(19292)*UV(3911)+JVS(19294)*UV(5250)+JVS(19297)*UV(5256) - JUV(3912) = JVS(19298)*UV(117)+JVS(19300)*UV(1937)+JVS(19302)*UV(3912)+JVS(19304)*UV(5250)+JVS(19305)*UV(5252)& - &+JVS(19306)*UV(5255)+JVS(19307)*UV(5256) - JUV(3913) = JVS(19308)*UV(696)+JVS(19309)*UV(1312)+JVS(19310)*UV(3913)+JVS(19311)*UV(4350)+JVS(19313)*UV(5252)& - &+JVS(19315)*UV(5256) - JUV(3914) = JVS(19316)*UV(660)+JVS(19317)*UV(1713)+JVS(19321)*UV(3914)+JVS(19323)*UV(5250)+JVS(19326)*UV(5256) - JUV(3915) = JVS(19327)*UV(546)+JVS(19328)*UV(1616)+JVS(19332)*UV(3915)+JVS(19334)*UV(5250)+JVS(19337)*UV(5256) - JUV(3916) = JVS(19338)*UV(35)+JVS(19340)*UV(2411)+JVS(19342)*UV(3916)+JVS(19344)*UV(5250)+JVS(19345)*UV(5252)& - &+JVS(19346)*UV(5255)+JVS(19347)*UV(5256) - JUV(3917) = JVS(19348)*UV(469)+JVS(19349)*UV(1168)+JVS(19350)*UV(2284)+JVS(19351)*UV(2299)+JVS(19352)*UV(3749)& - &+JVS(19353)*UV(3917)+JVS(19355)*UV(5250) - JUV(3918) = JVS(19359)*UV(1578)+JVS(19360)*UV(2482)+JVS(19361)*UV(2686)+JVS(19362)*UV(3196)+JVS(19363)*UV(3438)& - &+JVS(19364)*UV(3569)+JVS(19365)*UV(3578)+JVS(19366)*UV(3918)+JVS(19370)*UV(5250) - JUV(3919) = JVS(19374)*UV(66)+JVS(19376)*UV(2298)+JVS(19378)*UV(3919)+JVS(19380)*UV(5250)+JVS(19381)*UV(5252)& - &+JVS(19382)*UV(5255)+JVS(19383)*UV(5256) - JUV(3920) = JVS(19384)*UV(2098)+JVS(19385)*UV(3920)+JVS(19386)*UV(5249)+JVS(19387)*UV(5250)+JVS(19388)*UV(5252)& - &+JVS(19389)*UV(5255)+JVS(19390)*UV(5256) - JUV(3921) = JVS(19391)*UV(2103)+JVS(19392)*UV(3921)+JVS(19393)*UV(4492)+JVS(19394)*UV(5250)+JVS(19395)*UV(5252)& - &+JVS(19396)*UV(5255)+JVS(19397)*UV(5256) - JUV(3922) = JVS(19398)*UV(2449)+JVS(19399)*UV(3922)+JVS(19400)*UV(4782)+JVS(19402)*UV(5252)+JVS(19404)*UV(5256) - JUV(3923) = JVS(19405)*UV(546)+JVS(19406)*UV(2761)+JVS(19407)*UV(2871)+JVS(19408)*UV(3885)+JVS(19409)*UV(3923)& - &+JVS(19411)*UV(5250)+JVS(19414)*UV(5256) - JUV(3924) = JVS(19415)*UV(308)+JVS(19416)*UV(2097)+JVS(19417)*UV(2192)+JVS(19418)*UV(2906)+JVS(19419)*UV(3924)& - &+JVS(19420)*UV(5077)+JVS(19421)*UV(5250)+JVS(19424)*UV(5256) - JUV(3925) = JVS(19425)*UV(2125)+JVS(19426)*UV(3925)+JVS(19427)*UV(4587)+JVS(19429)*UV(5252)+JVS(19431)*UV(5256) - JUV(3926) = JVS(19432)*UV(185)+JVS(19433)*UV(1212)+JVS(19436)*UV(3926)+JVS(19438)*UV(5250)+JVS(19439)*UV(5252)& - &+JVS(19440)*UV(5255)+JVS(19441)*UV(5256) - JUV(3927) = JVS(19442)*UV(3927)+JVS(19443)*UV(5175)+JVS(19444)*UV(5250)+JVS(19445)*UV(5252)+JVS(19446)*UV(5255)& - &+JVS(19447)*UV(5256) - JUV(3928) = JVS(19448)*UV(1502)+JVS(19449)*UV(3928)+JVS(19450)*UV(5207)+JVS(19451)*UV(5250)+JVS(19452)*UV(5252)& - &+JVS(19453)*UV(5255)+JVS(19454)*UV(5256) - JUV(3929) = JVS(19455)*UV(1457)+JVS(19456)*UV(2429)+JVS(19457)*UV(2705)+JVS(19458)*UV(3929)+JVS(19459)*UV(4460)& - &+JVS(19460)*UV(4783)+JVS(19461)*UV(5250)+JVS(19462)*UV(5252)+JVS(19464)*UV(5255)+JVS(19465)*UV(5256) - JUV(3930) = JVS(19466)*UV(3450)+JVS(19467)*UV(3930)+JVS(19468)*UV(3931)+JVS(19471)*UV(4947)+JVS(19472)*UV(5250)& - &+JVS(19473)*UV(5252)+JVS(19474)*UV(5256) - JUV(3931) = JVS(19475)*UV(3452)+JVS(19476)*UV(3469)+JVS(19477)*UV(3931)+JVS(19480)*UV(4947)+JVS(19481)*UV(5250)& - &+JVS(19482)*UV(5255) - JUV(3932) = JVS(19483)*UV(160)+JVS(19486)*UV(3932)+JVS(19489)*UV(5252)+JVS(19490)*UV(5255)+JVS(19491)*UV(5256) - JUV(3933) = JVS(19492)*UV(3224)+JVS(19493)*UV(3933)+JVS(19494)*UV(4826)+JVS(19495)*UV(5225)+JVS(19496)*UV(5250)& - &+JVS(19497)*UV(5252)+JVS(19499)*UV(5255)+JVS(19500)*UV(5256) - JUV(3934) = JVS(19501)*UV(1063)+JVS(19502)*UV(3934)+JVS(19503)*UV(4574)+JVS(19505)*UV(5252)+JVS(19507)*UV(5256) - JUV(3935) = JVS(19508)*UV(497)+JVS(19509)*UV(1531)+JVS(19510)*UV(2693)+JVS(19511)*UV(3935)+JVS(19512)*UV(4785)& - &+JVS(19513)*UV(5250)+JVS(19516)*UV(5256) - JUV(3936) = JVS(19517)*UV(3936)+JVS(19518)*UV(4492)+JVS(19519)*UV(5250)+JVS(19520)*UV(5252)+JVS(19521)*UV(5255)& - &+JVS(19522)*UV(5256) - JUV(3937) = JVS(19523)*UV(1301)+JVS(19524)*UV(1845)+JVS(19525)*UV(3937)+JVS(19527)*UV(5250)+JVS(19528)*UV(5252)& - &+JVS(19529)*UV(5255)+JVS(19530)*UV(5256) - JUV(3938) = JVS(19531)*UV(1482)+JVS(19532)*UV(1779)+JVS(19533)*UV(3938)+JVS(19534)*UV(4778)+JVS(19535)*UV(5250)& - &+JVS(19538)*UV(5256) - JUV(3939) = JVS(19539)*UV(1438)+JVS(19540)*UV(3939)+JVS(19541)*UV(5069)+JVS(19542)*UV(5250)+JVS(19543)*UV(5252)& - &+JVS(19544)*UV(5255)+JVS(19545)*UV(5256) - JUV(3940) = JVS(19546)*UV(2065)+JVS(19547)*UV(3940)+JVS(19548)*UV(4605)+JVS(19549)*UV(5250)+JVS(19550)*UV(5252)& - &+JVS(19551)*UV(5255)+JVS(19552)*UV(5256) - JUV(3941) = JVS(19553)*UV(91)+JVS(19555)*UV(2016)+JVS(19557)*UV(3941)+JVS(19559)*UV(5250)+JVS(19560)*UV(5252)& - &+JVS(19561)*UV(5255)+JVS(19562)*UV(5256) - JUV(3942) = JVS(19563)*UV(1302)+JVS(19564)*UV(3942)+JVS(19565)*UV(4579)+JVS(19567)*UV(5252)+JVS(19569)*UV(5256) - JUV(3943) = JVS(19570)*UV(1844)+JVS(19571)*UV(3943)+JVS(19572)*UV(4492)+JVS(19573)*UV(5250)+JVS(19574)*UV(5252)& - &+JVS(19575)*UV(5255)+JVS(19576)*UV(5256) - JUV(3944) = JVS(19577)*UV(2244)+JVS(19578)*UV(3944)+JVS(19579)*UV(4736)+JVS(19580)*UV(5250)+JVS(19581)*UV(5252)& - &+JVS(19582)*UV(5255)+JVS(19583)*UV(5256) - JUV(3945) = JVS(19584)*UV(2262)+JVS(19585)*UV(3945)+JVS(19586)*UV(4505)+JVS(19587)*UV(5250)+JVS(19588)*UV(5252)& - &+JVS(19589)*UV(5255)+JVS(19590)*UV(5256) - JUV(3946) = JVS(19591)*UV(223)+JVS(19592)*UV(727)+JVS(19593)*UV(1382)+JVS(19594)*UV(2202)+JVS(19595)*UV(3688)& - &+JVS(19596)*UV(3946)+JVS(19598)*UV(5250)+JVS(19601)*UV(5256) - JUV(3947) = JVS(19602)*UV(427)+JVS(19603)*UV(1492)+JVS(19604)*UV(1933)+JVS(19605)*UV(2722)+JVS(19606)*UV(3947)& - &+JVS(19607)*UV(4789)+JVS(19608)*UV(5250)+JVS(19611)*UV(5256) - JUV(3948) = JVS(19612)*UV(2426)+JVS(19613)*UV(3384)+JVS(19614)*UV(3948)+JVS(19616)*UV(5250)+JVS(19617)*UV(5252)& - &+JVS(19618)*UV(5255)+JVS(19619)*UV(5256) - JUV(3949) = JVS(19620)*UV(984)+JVS(19621)*UV(3949)+JVS(19622)*UV(5095)+JVS(19623)*UV(5250)+JVS(19624)*UV(5252)& - &+JVS(19625)*UV(5255)+JVS(19626)*UV(5256) - JUV(3950) = JVS(19627)*UV(1272)+JVS(19628)*UV(3950)+JVS(19629)*UV(5095)+JVS(19630)*UV(5250)+JVS(19631)*UV(5252)& - &+JVS(19632)*UV(5255)+JVS(19633)*UV(5256) - JUV(3951) = JVS(19634)*UV(183)+JVS(19637)*UV(3951)+JVS(19640)*UV(5252)+JVS(19641)*UV(5255)+JVS(19642)*UV(5256) - JUV(3952) = JVS(19643)*UV(2922)+JVS(19644)*UV(3952)+JVS(19647)*UV(5252)+JVS(19648)*UV(5255)+JVS(19649)*UV(5256) - JUV(3953) = JVS(19650)*UV(974)+JVS(19651)*UV(2875)+JVS(19652)*UV(3953)+JVS(19654)*UV(5250)+JVS(19655)*UV(5252)& - &+JVS(19656)*UV(5255)+JVS(19657)*UV(5256) - JUV(3954) = JVS(19658)*UV(2186)+JVS(19659)*UV(2360)+JVS(19661)*UV(3954)+JVS(19663)*UV(5250)+JVS(19664)*UV(5252)& - &+JVS(19665)*UV(5255)+JVS(19666)*UV(5256) - JUV(3955) = JVS(19667)*UV(370)+JVS(19669)*UV(1353)+JVS(19670)*UV(3955)+JVS(19672)*UV(5250)+JVS(19673)*UV(5252)& - &+JVS(19674)*UV(5255)+JVS(19675)*UV(5256) - JUV(3956) = JVS(19676)*UV(2413)+JVS(19677)*UV(3956)+JVS(19678)*UV(4714)+JVS(19680)*UV(5252)+JVS(19682)*UV(5256) - JUV(3957) = JVS(19683)*UV(699)+JVS(19684)*UV(882)+JVS(19685)*UV(2311)+JVS(19686)*UV(3957)+JVS(19687)*UV(4825)& - &+JVS(19689)*UV(5252)+JVS(19691)*UV(5256) - JUV(3958) = JVS(19692)*UV(643)+JVS(19693)*UV(2153)+JVS(19694)*UV(2567)+JVS(19695)*UV(3958)+JVS(19698)*UV(5250) - JUV(3959) = JVS(19703)*UV(847)+JVS(19704)*UV(1886)+JVS(19705)*UV(2367)+JVS(19706)*UV(3959)+JVS(19708)*UV(4645)& - &+JVS(19709)*UV(5053)+JVS(19711)*UV(5250) - JUV(3960) = JVS(19714)*UV(3041)+JVS(19715)*UV(3960)+JVS(19717)*UV(5250)+JVS(19720)*UV(5256) - JUV(3961) = JVS(19721)*UV(2710)+JVS(19722)*UV(3046)+JVS(19723)*UV(3961)+JVS(19725)*UV(5250)+JVS(19726)*UV(5252)& - &+JVS(19727)*UV(5255)+JVS(19728)*UV(5256) - JUV(3962) = JVS(19729)*UV(1605)+JVS(19730)*UV(3962)+JVS(19733)*UV(5252)+JVS(19734)*UV(5255)+JVS(19735)*UV(5256) - JUV(3963) = JVS(19736)*UV(3963)+JVS(19737)*UV(4988)+JVS(19738)*UV(5250)+JVS(19739)*UV(5252)+JVS(19740)*UV(5255)& - &+JVS(19741)*UV(5256) - JUV(3964) = JVS(19742)*UV(1515)+JVS(19743)*UV(3418)+JVS(19745)*UV(3964)+JVS(19747)*UV(5250)+JVS(19748)*UV(5252)& - &+JVS(19749)*UV(5255)+JVS(19750)*UV(5256) - JUV(3965) = JVS(19751)*UV(3464)+JVS(19752)*UV(3524)+JVS(19754)*UV(3965)+JVS(19757)*UV(4913)+JVS(19758)*UV(5250)& - &+JVS(19759)*UV(5255) - JUV(3966) = JVS(19760)*UV(3966)+JVS(19761)*UV(5249)+JVS(19762)*UV(5250)+JVS(19763)*UV(5252)+JVS(19764)*UV(5255)& - &+JVS(19765)*UV(5256) - JUV(3967) = JVS(19766)*UV(202)+JVS(19769)*UV(3967)+JVS(19772)*UV(5252)+JVS(19773)*UV(5255)+JVS(19774)*UV(5256) - JUV(3968) = JVS(19775)*UV(798)+JVS(19778)*UV(3968)+JVS(19780)*UV(5250) - JUV(3969) = JVS(19784)*UV(1990)+JVS(19785)*UV(3969)+JVS(19786)*UV(5175)+JVS(19787)*UV(5250)+JVS(19788)*UV(5252)& - &+JVS(19789)*UV(5255)+JVS(19790)*UV(5256) - JUV(3970) = JVS(19791)*UV(2366)+JVS(19792)*UV(3970)+JVS(19793)*UV(4723)+JVS(19795)*UV(5252)+JVS(19797)*UV(5256) - JUV(3971) = JVS(19798)*UV(2178)+JVS(19799)*UV(3971)+JVS(19800)*UV(4988)+JVS(19801)*UV(5250)+JVS(19802)*UV(5252)& - &+JVS(19803)*UV(5255)+JVS(19804)*UV(5256) - JUV(3972) = JVS(19805)*UV(229)+JVS(19807)*UV(3972)+JVS(19809)*UV(5250)+JVS(19812)*UV(5256) - JUV(3973) = JVS(19813)*UV(1170)+JVS(19814)*UV(2645)+JVS(19815)*UV(3973)+JVS(19817)*UV(5250)+JVS(19818)*UV(5252)& - &+JVS(19819)*UV(5255)+JVS(19820)*UV(5256) - JUV(3974) = JVS(19821)*UV(1381)+JVS(19822)*UV(3974)+JVS(19823)*UV(5189)+JVS(19824)*UV(5250)+JVS(19825)*UV(5252)& - &+JVS(19826)*UV(5255)+JVS(19827)*UV(5256) - JUV(3975) = JVS(19828)*UV(1345)+JVS(19829)*UV(3437)+JVS(19830)*UV(3975)+JVS(19832)*UV(5250)+JVS(19833)*UV(5252)& - &+JVS(19834)*UV(5255)+JVS(19835)*UV(5256) - JUV(3976) = JVS(19836)*UV(1275)+JVS(19837)*UV(2348)+JVS(19838)*UV(3976)+JVS(19839)*UV(4806)+JVS(19840)*UV(5250)& - &+JVS(19841)*UV(5252)+JVS(19842)*UV(5255)+JVS(19843)*UV(5256) - JUV(3977) = JVS(19844)*UV(50)+JVS(19846)*UV(2316)+JVS(19848)*UV(3977)+JVS(19850)*UV(5250)+JVS(19851)*UV(5252)& - &+JVS(19852)*UV(5255)+JVS(19853)*UV(5256) - JUV(3978) = JVS(19854)*UV(495)+JVS(19855)*UV(1965)+JVS(19856)*UV(2057)+JVS(19857)*UV(2699)+JVS(19858)*UV(2755)& - &+JVS(19859)*UV(3978)+JVS(19861)*UV(5192)+JVS(19862)*UV(5250) - JUV(3979) = JVS(19867)*UV(1430)+JVS(19868)*UV(2438)+JVS(19870)*UV(3979)+JVS(19872)*UV(5250)+JVS(19873)*UV(5252)& - &+JVS(19874)*UV(5255)+JVS(19875)*UV(5256) - JUV(3980) = JVS(19876)*UV(873)+JVS(19877)*UV(3980)+JVS(19878)*UV(4794)+JVS(19879)*UV(5250)+JVS(19880)*UV(5252)& - &+JVS(19881)*UV(5255)+JVS(19882)*UV(5256) - JUV(3981) = JVS(19883)*UV(254)+JVS(19884)*UV(1266)+JVS(19887)*UV(3981)+JVS(19889)*UV(5250)+JVS(19890)*UV(5252)& - &+JVS(19891)*UV(5255)+JVS(19892)*UV(5256) - JUV(3982) = JVS(19893)*UV(1470)+JVS(19894)*UV(3982)+JVS(19895)*UV(5215)+JVS(19896)*UV(5250)+JVS(19897)*UV(5252)& - &+JVS(19898)*UV(5255)+JVS(19899)*UV(5256) - JUV(3983) = JVS(19900)*UV(2398)+JVS(19901)*UV(3983)+JVS(19903)*UV(5250)+JVS(19904)*UV(5252)+JVS(19905)*UV(5255)& - &+JVS(19906)*UV(5256) - JUV(3984) = JVS(19907)*UV(986)+JVS(19908)*UV(2217)+JVS(19909)*UV(3984)+JVS(19910)*UV(4969)+JVS(19911)*UV(5250)& - &+JVS(19912)*UV(5252)+JVS(19913)*UV(5255)+JVS(19914)*UV(5256) - JUV(3985) = JVS(19915)*UV(1012)+JVS(19916)*UV(3985)+JVS(19917)*UV(5083)+JVS(19918)*UV(5250)+JVS(19919)*UV(5252)& - &+JVS(19920)*UV(5255)+JVS(19921)*UV(5256) - JUV(3986) = JVS(19922)*UV(333)+JVS(19923)*UV(1559)+JVS(19924)*UV(1992)+JVS(19925)*UV(2218)+JVS(19926)*UV(3667)& - &+JVS(19927)*UV(3986)+JVS(19929)*UV(5250)+JVS(19932)*UV(5256) - JUV(3987) = JVS(19933)*UV(1377)+JVS(19934)*UV(3987)+JVS(19935)*UV(4395)+JVS(19936)*UV(5250)+JVS(19937)*UV(5252)& - &+JVS(19938)*UV(5255)+JVS(19939)*UV(5256) - JUV(3988) = JVS(19940)*UV(885)+JVS(19941)*UV(3988)+JVS(19942)*UV(5250)+JVS(19943)*UV(5252)+JVS(19944)*UV(5255)& - &+JVS(19945)*UV(5256)+JVS(19946)*UV(5257) - JUV(3989) = JVS(19947)*UV(165)+JVS(19950)*UV(3989)+JVS(19953)*UV(5252)+JVS(19954)*UV(5255)+JVS(19955)*UV(5256) - JUV(3990) = JVS(19956)*UV(3990)+JVS(19957)*UV(4970)+JVS(19958)*UV(5250)+JVS(19959)*UV(5252)+JVS(19960)*UV(5255)& - &+JVS(19961)*UV(5256) - JUV(3991) = JVS(19962)*UV(355)+JVS(19963)*UV(1005)+JVS(19964)*UV(3205)+JVS(19965)*UV(3991)+JVS(19966)*UV(4359)& - &+JVS(19967)*UV(5250)+JVS(19970)*UV(5256) - JUV(3992) = JVS(19971)*UV(36)+JVS(19973)*UV(2797)+JVS(19974)*UV(3992)+JVS(19976)*UV(5250)+JVS(19977)*UV(5252)& - &+JVS(19978)*UV(5255)+JVS(19979)*UV(5256) - JUV(3993) = JVS(19980)*UV(2392)+JVS(19981)*UV(2616)+JVS(19982)*UV(3204)+JVS(19983)*UV(3993)+JVS(19984)*UV(4783)& - &+JVS(19985)*UV(4936)+JVS(19987)*UV(5035)+JVS(19988)*UV(5250) - JUV(3994) = JVS(19991)*UV(1468)+JVS(19992)*UV(3994)+JVS(19993)*UV(4605)+JVS(19994)*UV(5250)+JVS(19995)*UV(5252)& - &+JVS(19996)*UV(5255)+JVS(19997)*UV(5256) - JUV(3995) = JVS(19998)*UV(1702)+JVS(19999)*UV(2338)+JVS(20000)*UV(2463)+JVS(20001)*UV(3847)+JVS(20002)*UV(3995)& - &+JVS(20004)*UV(5250)+JVS(20007)*UV(5256) - JUV(3996) = JVS(20008)*UV(3097)+JVS(20009)*UV(3996)+JVS(20010)*UV(5250)+JVS(20011)*UV(5256)+JVS(20012)*UV(5258) - JUV(3997) = JVS(20013)*UV(822)+JVS(20014)*UV(3997)+JVS(20015)*UV(4444)+JVS(20016)*UV(5250)+JVS(20017)*UV(5252)& - &+JVS(20018)*UV(5255)+JVS(20019)*UV(5256)+JVS(20020)*UV(5258) - JUV(3998) = JVS(20021)*UV(907)+JVS(20022)*UV(1651)+JVS(20023)*UV(2957)+JVS(20025)*UV(3998)+JVS(20027)*UV(5250)& - &+JVS(20028)*UV(5252)+JVS(20029)*UV(5253)+JVS(20030)*UV(5255)+JVS(20031)*UV(5256) - JUV(3999) = JVS(20032)*UV(1091)+JVS(20033)*UV(3999)+JVS(20034)*UV(4791)+JVS(20035)*UV(5250)+JVS(20036)*UV(5252)& - &+JVS(20037)*UV(5255)+JVS(20038)*UV(5256)+JVS(20039)*UV(5258) - JUV(4000) = JVS(20040)*UV(503)+JVS(20041)*UV(1537)+JVS(20042)*UV(2225)+JVS(20044)*UV(3655)+JVS(20045)*UV(4000)& - &+JVS(20046)*UV(4139)+JVS(20047)*UV(5250)+JVS(20048)*UV(5252)+JVS(20050)*UV(5255)+JVS(20051)*UV(5256) - JUV(4001) = JVS(20052)*UV(854)+JVS(20053)*UV(4001)+JVS(20054)*UV(4495)+JVS(20055)*UV(5250)+JVS(20056)*UV(5252)& - &+JVS(20057)*UV(5255)+JVS(20058)*UV(5256)+JVS(20059)*UV(5258) - JUV(4002) = JVS(20060)*UV(1421)+JVS(20061)*UV(4002)+JVS(20062)*UV(4509)+JVS(20063)*UV(5250)+JVS(20064)*UV(5252)& - &+JVS(20065)*UV(5255)+JVS(20066)*UV(5256)+JVS(20067)*UV(5258) - JUV(4003) = JVS(20068)*UV(3096)+JVS(20069)*UV(4003)+JVS(20070)*UV(5250)+JVS(20071)*UV(5252)+JVS(20072)*UV(5255)& - &+JVS(20073)*UV(5256) - JUV(4004) = JVS(20074)*UV(1276)+JVS(20075)*UV(2317)+JVS(20076)*UV(4003)+JVS(20077)*UV(4004)+JVS(20079)*UV(5252)& - &+JVS(20081)*UV(5256) - JUV(4005) = JVS(20082)*UV(341)+JVS(20083)*UV(1002)+JVS(20084)*UV(2102)+JVS(20086)*UV(3657)+JVS(20087)*UV(4005)& - &+JVS(20088)*UV(4100)+JVS(20089)*UV(5250)+JVS(20090)*UV(5252)+JVS(20092)*UV(5255)+JVS(20093)*UV(5256) - JUV(4006) = JVS(20094)*UV(978)+JVS(20095)*UV(4006)+JVS(20096)*UV(4690)+JVS(20097)*UV(5250)+JVS(20098)*UV(5252)& - &+JVS(20099)*UV(5255)+JVS(20100)*UV(5256)+JVS(20101)*UV(5258) - JUV(4007) = JVS(20102)*UV(1003)+JVS(20103)*UV(4007)+JVS(20104)*UV(4670)+JVS(20105)*UV(5250)+JVS(20106)*UV(5252)& - &+JVS(20107)*UV(5255)+JVS(20108)*UV(5256)+JVS(20109)*UV(5258) - JUV(4008) = JVS(20110)*UV(843)+JVS(20111)*UV(4008)+JVS(20112)*UV(4437)+JVS(20113)*UV(5250)+JVS(20114)*UV(5252)& - &+JVS(20115)*UV(5255)+JVS(20116)*UV(5256)+JVS(20117)*UV(5258) - JUV(4009) = JVS(20118)*UV(943)+JVS(20119)*UV(4009)+JVS(20120)*UV(4407)+JVS(20121)*UV(5250)+JVS(20122)*UV(5252)& - &+JVS(20123)*UV(5255)+JVS(20124)*UV(5256)+JVS(20125)*UV(5258) - JUV(4010) = JVS(20126)*UV(250)+JVS(20127)*UV(4010)+JVS(20128)*UV(5250)+JVS(20129)*UV(5256)+JVS(20130)*UV(5258) - JUV(4011) = JVS(20131)*UV(892)+JVS(20132)*UV(4011)+JVS(20133)*UV(4671)+JVS(20134)*UV(5250)+JVS(20135)*UV(5252)& - &+JVS(20136)*UV(5255)+JVS(20137)*UV(5256)+JVS(20138)*UV(5258) - JUV(4012) = JVS(20139)*UV(84)+JVS(20140)*UV(996)+JVS(20141)*UV(1700)+JVS(20142)*UV(2565)+JVS(20143)*UV(3534)& - &+JVS(20145)*UV(4012)+JVS(20146)*UV(5250)+JVS(20147)*UV(5252)+JVS(20149)*UV(5256) - JUV(4013) = JVS(20150)*UV(65)+JVS(20151)*UV(103)+JVS(20153)*UV(2631)+JVS(20154)*UV(2838)+JVS(20157)*UV(4013)& - &+JVS(20158)*UV(5250)+JVS(20159)*UV(5252)+JVS(20160)*UV(5253)+JVS(20161)*UV(5255)+JVS(20162)*UV(5256) - JUV(4014) = JVS(20163)*UV(676)+JVS(20164)*UV(738)+JVS(20165)*UV(2563)+JVS(20166)*UV(2595)+JVS(20172)*UV(4012)& - &+JVS(20173)*UV(4014)+JVS(20174)*UV(4533)+JVS(20175)*UV(5250) - JUV(4015) = JVS(20180)*UV(1279)+JVS(20181)*UV(2868)+JVS(20182)*UV(4015)+JVS(20183)*UV(4883)+JVS(20184)*UV(4957)& - &+JVS(20185)*UV(5250)+JVS(20186)*UV(5252)+JVS(20187)*UV(5255)+JVS(20188)*UV(5256) - JUV(4016) = JVS(20189)*UV(1188)+JVS(20190)*UV(4016)+JVS(20191)*UV(4479)+JVS(20192)*UV(5250)+JVS(20193)*UV(5252)& - &+JVS(20194)*UV(5255)+JVS(20195)*UV(5256)+JVS(20196)*UV(5258) - JUV(4017) = JVS(20197)*UV(3169)+JVS(20198)*UV(4017)+JVS(20199)*UV(5250)+JVS(20200)*UV(5256)+JVS(20201)*UV(5258) - JUV(4018) = JVS(20202)*UV(3182)+JVS(20203)*UV(4018)+JVS(20204)*UV(5250)+JVS(20205)*UV(5256)+JVS(20206)*UV(5258) - JUV(4019) = JVS(20207)*UV(375)+JVS(20208)*UV(1008)+JVS(20209)*UV(4019)+JVS(20210)*UV(4752)+JVS(20211)*UV(5085)& - &+JVS(20212)*UV(5250)+JVS(20213)*UV(5252)+JVS(20214)*UV(5255)+JVS(20215)*UV(5256) - JUV(4020) = JVS(20216)*UV(1476)+JVS(20217)*UV(4020)+JVS(20218)*UV(4453)+JVS(20219)*UV(5250)+JVS(20220)*UV(5252)& - &+JVS(20221)*UV(5255)+JVS(20222)*UV(5256)+JVS(20223)*UV(5258) - JUV(4021) = JVS(20224)*UV(1308)+JVS(20225)*UV(4021)+JVS(20226)*UV(4790)+JVS(20227)*UV(5250)+JVS(20228)*UV(5252)& - &+JVS(20229)*UV(5255)+JVS(20230)*UV(5256)+JVS(20231)*UV(5258) - JUV(4022) = JVS(20232)*UV(1230)+JVS(20233)*UV(4022)+JVS(20234)*UV(4798)+JVS(20235)*UV(5250)+JVS(20236)*UV(5252)& - &+JVS(20237)*UV(5255)+JVS(20238)*UV(5256)+JVS(20239)*UV(5258) - JUV(4023) = JVS(20240)*UV(1361)+JVS(20241)*UV(4023)+JVS(20242)*UV(4639)+JVS(20243)*UV(5250)+JVS(20244)*UV(5252)& - &+JVS(20245)*UV(5255)+JVS(20246)*UV(5256)+JVS(20247)*UV(5258) - JUV(4024) = JVS(20248)*UV(3280)+JVS(20249)*UV(3590)+JVS(20250)*UV(4024)+JVS(20251)*UV(4993)+JVS(20252)*UV(5250)& - &+JVS(20253)*UV(5252)+JVS(20254)*UV(5255)+JVS(20255)*UV(5256) - JUV(4025) = JVS(20257)*UV(2091)+JVS(20258)*UV(2167)+JVS(20260)*UV(4025)+JVS(20261)*UV(5250)+JVS(20262)*UV(5252)& - &+JVS(20263)*UV(5255)+JVS(20264)*UV(5256) - JUV(4026) = JVS(20265)*UV(2652)+JVS(20266)*UV(2998)+JVS(20267)*UV(3595)+JVS(20269)*UV(4026)+JVS(20270)*UV(5250)& - &+JVS(20271)*UV(5252)+JVS(20272)*UV(5253)+JVS(20273)*UV(5255)+JVS(20274)*UV(5256) - JUV(4027) = JVS(20275)*UV(3138)+JVS(20276)*UV(4027)+JVS(20277)*UV(5250)+JVS(20278)*UV(5256)+JVS(20279)*UV(5258) - JUV(4028) = JVS(20280)*UV(1451)+JVS(20281)*UV(3145)+JVS(20282)*UV(4028)+JVS(20283)*UV(5250)+JVS(20284)*UV(5252)& - &+JVS(20285)*UV(5255)+JVS(20286)*UV(5256) - JUV(4029) = JVS(20287)*UV(3225)+JVS(20288)*UV(3800)+JVS(20289)*UV(4029)+JVS(20291)*UV(4917)+JVS(20292)*UV(5250)& - &+JVS(20293)*UV(5252)+JVS(20294)*UV(5255)+JVS(20295)*UV(5256) - JUV(4030) = JVS(20296)*UV(3368)+JVS(20298)*UV(4030)+JVS(20299)*UV(5250)+JVS(20300)*UV(5252)+JVS(20301)*UV(5255)& - &+JVS(20302)*UV(5256) - JUV(4031) = JVS(20303)*UV(1293)+JVS(20304)*UV(2295)+JVS(20306)*UV(4031)+JVS(20307)*UV(5250)+JVS(20308)*UV(5252)& - &+JVS(20309)*UV(5255)+JVS(20310)*UV(5256) - JUV(4032) = JVS(20311)*UV(3105)+JVS(20312)*UV(4032)+JVS(20313)*UV(5250)+JVS(20314)*UV(5256)+JVS(20315)*UV(5258) - JUV(4033) = JVS(20316)*UV(1243)+JVS(20317)*UV(4033)+JVS(20318)*UV(4471)+JVS(20319)*UV(5250)+JVS(20320)*UV(5252)& - &+JVS(20321)*UV(5255)+JVS(20322)*UV(5256)+JVS(20323)*UV(5258) - JUV(4034) = JVS(20324)*UV(1061)+JVS(20325)*UV(4034)+JVS(20326)*UV(4810)+JVS(20327)*UV(5250)+JVS(20328)*UV(5252)& - &+JVS(20329)*UV(5255)+JVS(20330)*UV(5256)+JVS(20331)*UV(5258) - JUV(4035) = JVS(20332)*UV(844)+JVS(20333)*UV(4035)+JVS(20334)*UV(4402)+JVS(20335)*UV(5250)+JVS(20336)*UV(5252)& - &+JVS(20337)*UV(5255)+JVS(20338)*UV(5256)+JVS(20339)*UV(5258) - JUV(4036) = JVS(20340)*UV(1221)+JVS(20341)*UV(4036)+JVS(20342)*UV(4797)+JVS(20343)*UV(5250)+JVS(20344)*UV(5252)& - &+JVS(20345)*UV(5255)+JVS(20346)*UV(5256)+JVS(20347)*UV(5258) - JUV(4037) = JVS(20348)*UV(1227)+JVS(20349)*UV(4037)+JVS(20350)*UV(4494)+JVS(20351)*UV(5250)+JVS(20352)*UV(5252)& - &+JVS(20353)*UV(5255)+JVS(20354)*UV(5256)+JVS(20355)*UV(5258) - JUV(4038) = JVS(20356)*UV(389)+JVS(20357)*UV(1283)+JVS(20358)*UV(3385)+JVS(20359)*UV(3640)+JVS(20360)*UV(4038)& - &+JVS(20361)*UV(4338)+JVS(20362)*UV(5250)+JVS(20363)*UV(5252)+JVS(20365)*UV(5255)+JVS(20366)*UV(5256) - JUV(4039) = JVS(20367)*UV(1366)+JVS(20368)*UV(4039)+JVS(20369)*UV(4676)+JVS(20370)*UV(5250)+JVS(20371)*UV(5252)& - &+JVS(20372)*UV(5255)+JVS(20373)*UV(5256)+JVS(20374)*UV(5258) - JUV(4040) = JVS(20375)*UV(1452)+JVS(20376)*UV(4040)+JVS(20377)*UV(4682)+JVS(20378)*UV(5250)+JVS(20379)*UV(5252)& - &+JVS(20380)*UV(5255)+JVS(20381)*UV(5256)+JVS(20382)*UV(5258) - JUV(4041) = JVS(20383)*UV(423)+JVS(20384)*UV(1228)+JVS(20385)*UV(2379)+JVS(20387)*UV(3645)+JVS(20388)*UV(4041)& - &+JVS(20389)*UV(4181)+JVS(20390)*UV(5250)+JVS(20391)*UV(5252)+JVS(20393)*UV(5255)+JVS(20394)*UV(5256) - JUV(4042) = JVS(20395)*UV(45)+JVS(20397)*UV(1397)+JVS(20398)*UV(1724)+JVS(20402)*UV(4042)+JVS(20405)*UV(5250)& - &+JVS(20406)*UV(5252)+JVS(20407)*UV(5255)+JVS(20408)*UV(5256) - JUV(4043) = JVS(20409)*UV(507)+JVS(20410)*UV(1454)+JVS(20411)*UV(4043)+JVS(20412)*UV(4738)+JVS(20413)*UV(5240)& - &+JVS(20414)*UV(5250)+JVS(20415)*UV(5252)+JVS(20416)*UV(5255)+JVS(20417)*UV(5256) - JUV(4044) = JVS(20418)*UV(950)+JVS(20419)*UV(4044)+JVS(20420)*UV(4788)+JVS(20421)*UV(5250)+JVS(20422)*UV(5252)& - &+JVS(20423)*UV(5255)+JVS(20424)*UV(5256)+JVS(20425)*UV(5258) - JUV(4045) = JVS(20426)*UV(47)+JVS(20427)*UV(938)+JVS(20428)*UV(1613)+JVS(20429)*UV(2520)+JVS(20430)*UV(3562)& - &+JVS(20432)*UV(4045)+JVS(20433)*UV(5250)+JVS(20434)*UV(5252)+JVS(20436)*UV(5256) - JUV(4046) = JVS(20437)*UV(116)+JVS(20438)*UV(318)+JVS(20440)*UV(2541)+JVS(20441)*UV(2765)+JVS(20444)*UV(4046)& - &+JVS(20445)*UV(5250)+JVS(20446)*UV(5252)+JVS(20447)*UV(5253)+JVS(20448)*UV(5255)+JVS(20449)*UV(5256) - JUV(4047) = JVS(20450)*UV(2789)+JVS(20451)*UV(3050)+JVS(20454)*UV(4045)+JVS(20455)*UV(4047)+JVS(20456)*UV(4799)& - &+JVS(20457)*UV(5034)+JVS(20458)*UV(5250)+JVS(20460)*UV(5255) - JUV(4048) = JVS(20462)*UV(1645)+JVS(20464)*UV(3793)+JVS(20466)*UV(4048)+JVS(20470)*UV(5250)+JVS(20472)*UV(5253)& - &+JVS(20474)*UV(5256) - JUV(4049) = JVS(20476)*UV(1429)+JVS(20477)*UV(4049)+JVS(20478)*UV(4514)+JVS(20479)*UV(5250)+JVS(20480)*UV(5252)& - &+JVS(20481)*UV(5255)+JVS(20482)*UV(5256)+JVS(20483)*UV(5258) - JUV(4050) = JVS(20484)*UV(1076)+JVS(20485)*UV(2353)+JVS(20487)*UV(4050)+JVS(20488)*UV(4051)+JVS(20489)*UV(5250)& - &+JVS(20490)*UV(5252)+JVS(20492)*UV(5255)+JVS(20493)*UV(5256) - JUV(4051) = JVS(20494)*UV(717)+JVS(20495)*UV(1076)+JVS(20496)*UV(1716)+JVS(20497)*UV(2134)+JVS(20498)*UV(2900)& - &+JVS(20499)*UV(3303)+JVS(20500)*UV(3343)+JVS(20503)*UV(4051)+JVS(20504)*UV(5250)+JVS(20505)*UV(5252)& - &+JVS(20506)*UV(5253)+JVS(20507)*UV(5255)+JVS(20508)*UV(5256) - JUV(4052) = JVS(20509)*UV(387)+JVS(20510)*UV(952)+JVS(20514)*UV(4052)+JVS(20515)*UV(5250)+JVS(20516)*UV(5252)& - &+JVS(20518)*UV(5255)+JVS(20519)*UV(5256) - JUV(4053) = JVS(20520)*UV(551)+JVS(20521)*UV(669)+JVS(20524)*UV(4053)+JVS(20527)*UV(5250) - JUV(4054) = JVS(20531)*UV(1017)+JVS(20532)*UV(4054)+JVS(20533)*UV(4413)+JVS(20534)*UV(5250)+JVS(20535)*UV(5252)& - &+JVS(20536)*UV(5255)+JVS(20537)*UV(5256)+JVS(20538)*UV(5258) - JUV(4055) = JVS(20539)*UV(3097)+JVS(20540)*UV(4055)+JVS(20541)*UV(5250)+JVS(20542)*UV(5252)+JVS(20543)*UV(5255)& - &+JVS(20544)*UV(5256) - JUV(4056) = JVS(20545)*UV(3096)+JVS(20546)*UV(4056)+JVS(20547)*UV(5250)+JVS(20548)*UV(5256)+JVS(20549)*UV(5258) - JUV(4057) = JVS(20550)*UV(1294)+JVS(20551)*UV(4057)+JVS(20552)*UV(4454)+JVS(20553)*UV(5250)+JVS(20554)*UV(5252)& - &+JVS(20555)*UV(5255)+JVS(20556)*UV(5256)+JVS(20557)*UV(5258) - JUV(4058) = JVS(20558)*UV(329)+JVS(20559)*UV(975)+JVS(20560)*UV(1907)+JVS(20561)*UV(4058)+JVS(20562)*UV(4500)& - &+JVS(20563)*UV(4834)+JVS(20564)*UV(5250)+JVS(20565)*UV(5252)+JVS(20566)*UV(5255)+JVS(20567)*UV(5256) - JUV(4059) = JVS(20568)*UV(492)+JVS(20569)*UV(1317)+JVS(20570)*UV(4059)+JVS(20571)*UV(5006)+JVS(20572)*UV(5095)& - &+JVS(20573)*UV(5250)+JVS(20574)*UV(5252)+JVS(20575)*UV(5255)+JVS(20576)*UV(5256) - JUV(4060) = JVS(20577)*UV(272)+JVS(20578)*UV(1208)+JVS(20579)*UV(2156)+JVS(20580)*UV(2574)+JVS(20582)*UV(3972)& - &+JVS(20583)*UV(4060)+JVS(20584)*UV(4222)+JVS(20586)*UV(5250)+JVS(20587)*UV(5252)+JVS(20588)*UV(5255)& - &+JVS(20589)*UV(5256) - JUV(4061) = JVS(20590)*UV(857)+JVS(20591)*UV(4061)+JVS(20592)*UV(4632)+JVS(20593)*UV(5250)+JVS(20594)*UV(5252)& - &+JVS(20595)*UV(5255)+JVS(20596)*UV(5256)+JVS(20597)*UV(5258) - JUV(4062) = JVS(20598)*UV(3458)+JVS(20599)*UV(4047)+JVS(20600)*UV(4062)+JVS(20602)*UV(5034)+JVS(20603)*UV(5250)& - &+JVS(20604)*UV(5252)+JVS(20605)*UV(5255)+JVS(20606)*UV(5256) - JUV(4063) = JVS(20607)*UV(1303)+JVS(20608)*UV(4063)+JVS(20609)*UV(4457)+JVS(20610)*UV(5250)+JVS(20611)*UV(5252)& - &+JVS(20612)*UV(5255)+JVS(20613)*UV(5256)+JVS(20614)*UV(5258) - JUV(4064) = JVS(20615)*UV(1450)+JVS(20616)*UV(4064)+JVS(20617)*UV(4499)+JVS(20618)*UV(5250)+JVS(20619)*UV(5252)& - &+JVS(20620)*UV(5255)+JVS(20621)*UV(5256)+JVS(20622)*UV(5258) - JUV(4065) = JVS(20623)*UV(1539)+JVS(20624)*UV(4065)+JVS(20625)*UV(4466)+JVS(20626)*UV(5250)+JVS(20627)*UV(5252)& - &+JVS(20628)*UV(5255)+JVS(20629)*UV(5256)+JVS(20630)*UV(5258) - JUV(4066) = JVS(20631)*UV(4066)+JVS(20632)*UV(5022)+JVS(20633)*UV(5074)+JVS(20634)*UV(5250)+JVS(20635)*UV(5252) - JUV(4067) = JVS(20636)*UV(1427)+JVS(20637)*UV(4067)+JVS(20638)*UV(4859)+JVS(20639)*UV(5250)+JVS(20640)*UV(5252)& - &+JVS(20641)*UV(5255)+JVS(20642)*UV(5256)+JVS(20643)*UV(5258) - JUV(4068) = JVS(20644)*UV(1431)+JVS(20645)*UV(3084)+JVS(20646)*UV(4068)+JVS(20647)*UV(5250)+JVS(20648)*UV(5252)& - &+JVS(20649)*UV(5255)+JVS(20650)*UV(5256) - JUV(4069) = JVS(20651)*UV(1878)+JVS(20655)*UV(4069)+JVS(20656)*UV(5250)+JVS(20657)*UV(5252)+JVS(20658)*UV(5255)& - &+JVS(20659)*UV(5256) - JUV(4070) = JVS(20660)*UV(3412)+JVS(20662)*UV(4070)+JVS(20663)*UV(5250)+JVS(20664)*UV(5252)+JVS(20665)*UV(5255)& - &+JVS(20666)*UV(5256) - JUV(4071) = JVS(20667)*UV(1109)+JVS(20668)*UV(4071)+JVS(20669)*UV(4491)+JVS(20670)*UV(4986)+JVS(20671)*UV(5250)& - &+JVS(20672)*UV(5252)+JVS(20673)*UV(5255)+JVS(20674)*UV(5256) - JUV(4072) = JVS(20675)*UV(1453)+JVS(20676)*UV(4072)+JVS(20677)*UV(4663)+JVS(20678)*UV(5250)+JVS(20679)*UV(5252)& - &+JVS(20680)*UV(5255)+JVS(20681)*UV(5256)+JVS(20682)*UV(5258) - JUV(4073) = JVS(20683)*UV(1152)+JVS(20684)*UV(4073)+JVS(20685)*UV(4487)+JVS(20686)*UV(5250)+JVS(20687)*UV(5252)& - &+JVS(20688)*UV(5255)+JVS(20689)*UV(5256)+JVS(20690)*UV(5258) - JUV(4074) = JVS(20691)*UV(1535)+JVS(20692)*UV(3192)+JVS(20693)*UV(4074)+JVS(20694)*UV(5250)+JVS(20695)*UV(5252)& - &+JVS(20696)*UV(5255)+JVS(20697)*UV(5256) - JUV(4075) = JVS(20698)*UV(1419)+JVS(20699)*UV(4075)+JVS(20700)*UV(4408)+JVS(20701)*UV(5250)+JVS(20702)*UV(5252)& - &+JVS(20703)*UV(5255)+JVS(20704)*UV(5256)+JVS(20705)*UV(5258) - JUV(4076) = JVS(20706)*UV(1805)+JVS(20707)*UV(2351)+JVS(20709)*UV(4076)+JVS(20710)*UV(5250)+JVS(20711)*UV(5252)& - &+JVS(20712)*UV(5255)+JVS(20713)*UV(5256) - JUV(4077) = JVS(20714)*UV(210)+JVS(20715)*UV(1540)+JVS(20716)*UV(3947)+JVS(20717)*UV(4077)+JVS(20718)*UV(4484)& - &+JVS(20720)*UV(5250)+JVS(20721)*UV(5252)+JVS(20722)*UV(5255)+JVS(20723)*UV(5256) - JUV(4078) = JVS(20724)*UV(147)+JVS(20726)*UV(4078)+JVS(20728)*UV(5250)+JVS(20729)*UV(5252)+JVS(20730)*UV(5255)& - &+JVS(20731)*UV(5256) - JUV(4079) = JVS(20733)*UV(1125)+JVS(20734)*UV(4079)+JVS(20735)*UV(4531)+JVS(20736)*UV(5250)+JVS(20737)*UV(5252)& - &+JVS(20738)*UV(5255)+JVS(20739)*UV(5256)+JVS(20740)*UV(5258) - JUV(4080) = JVS(20741)*UV(3113)+JVS(20742)*UV(4080)+JVS(20743)*UV(5250)+JVS(20744)*UV(5256)+JVS(20745)*UV(5258) - JUV(4081) = JVS(20746)*UV(4032)+JVS(20747)*UV(4080)+JVS(20748)*UV(4081)+JVS(20749)*UV(4272)+JVS(20750)*UV(5103)& - &+JVS(20751)*UV(5126)+JVS(20754)*UV(5258) - JUV(4082) = JVS(20755)*UV(1156)+JVS(20756)*UV(4082)+JVS(20757)*UV(4438)+JVS(20758)*UV(5250)+JVS(20759)*UV(5252)& - &+JVS(20760)*UV(5255)+JVS(20761)*UV(5256)+JVS(20762)*UV(5258) - JUV(4083) = JVS(20763)*UV(3134)+JVS(20764)*UV(4083)+JVS(20765)*UV(5250)+JVS(20766)*UV(5256)+JVS(20767)*UV(5258) - JUV(4084) = JVS(20768)*UV(3622)+JVS(20769)*UV(4010)+JVS(20770)*UV(4027)+JVS(20771)*UV(4056)+JVS(20772)*UV(4083)& - &+JVS(20773)*UV(4084)+JVS(20774)*UV(5037)+JVS(20775)*UV(5103)+JVS(20776)*UV(5123)+JVS(20779)*UV(5258) - JUV(4085) = JVS(20780)*UV(852)+JVS(20781)*UV(4085)+JVS(20782)*UV(4504)+JVS(20783)*UV(5250)+JVS(20784)*UV(5252)& - &+JVS(20785)*UV(5255)+JVS(20786)*UV(5256)+JVS(20787)*UV(5258) - JUV(4086) = JVS(20788)*UV(3226)+JVS(20789)*UV(3816)+JVS(20790)*UV(4086)+JVS(20792)*UV(4930)+JVS(20793)*UV(5250)& - &+JVS(20794)*UV(5252)+JVS(20795)*UV(5255)+JVS(20796)*UV(5256) - JUV(4087) = JVS(20797)*UV(1285)+JVS(20798)*UV(4087)+JVS(20799)*UV(4255)+JVS(20800)*UV(4794)+JVS(20802)*UV(5252)& - &+JVS(20803)*UV(5255)+JVS(20804)*UV(5256) - JUV(4088) = JVS(20805)*UV(251)+JVS(20806)*UV(900)+JVS(20807)*UV(4088)+JVS(20808)*UV(5014)+JVS(20809)*UV(5207)& - &+JVS(20810)*UV(5250)+JVS(20811)*UV(5252)+JVS(20812)*UV(5255)+JVS(20813)*UV(5256) - JUV(4089) = JVS(20814)*UV(1975)+JVS(20815)*UV(2415)+JVS(20818)*UV(4089)+JVS(20822)*UV(5252)+JVS(20823)*UV(5255)& - &+JVS(20824)*UV(5256) - JUV(4090) = JVS(20825)*UV(912)+JVS(20826)*UV(4090)+JVS(20827)*UV(4600)+JVS(20828)*UV(5250)+JVS(20829)*UV(5252)& - &+JVS(20830)*UV(5255)+JVS(20831)*UV(5256) - JUV(4091) = JVS(20832)*UV(1241)+JVS(20833)*UV(4091)+JVS(20834)*UV(4492)+JVS(20835)*UV(5250)+JVS(20836)*UV(5252)& - &+JVS(20837)*UV(5255)+JVS(20838)*UV(5256) - JUV(4092) = JVS(20839)*UV(1147)+JVS(20840)*UV(2480)+JVS(20846)*UV(4092)+JVS(20849)*UV(5250)+JVS(20850)*UV(5252)& - &+JVS(20851)*UV(5255)+JVS(20852)*UV(5256) - JUV(4093) = JVS(20853)*UV(3084)+JVS(20854)*UV(4093)+JVS(20855)*UV(5250)+JVS(20856)*UV(5256)+JVS(20857)*UV(5258) - JUV(4094) = JVS(20858)*UV(3144)+JVS(20859)*UV(4094)+JVS(20860)*UV(5250)+JVS(20861)*UV(5256)+JVS(20862)*UV(5258) - JUV(4095) = JVS(20863)*UV(2618)+JVS(20864)*UV(4095)+JVS(20865)*UV(5157)+JVS(20866)*UV(5250)+JVS(20867)*UV(5252)& - &+JVS(20868)*UV(5255)+JVS(20869)*UV(5256) - JUV(4096) = JVS(20870)*UV(4096)+JVS(20871)*UV(5132)+JVS(20872)*UV(5250)+JVS(20873)*UV(5252)+JVS(20874)*UV(5258) - JUV(4097) = JVS(20875)*UV(897)+JVS(20876)*UV(4097)+JVS(20877)*UV(4600)+JVS(20878)*UV(5250)+JVS(20879)*UV(5252)& - &+JVS(20880)*UV(5255)+JVS(20881)*UV(5256) - JUV(4098) = JVS(20882)*UV(162)+JVS(20886)*UV(4098)+JVS(20889)*UV(5252)+JVS(20890)*UV(5255)+JVS(20891)*UV(5256) - JUV(4099) = JVS(20892)*UV(588)+JVS(20893)*UV(1207)+JVS(20894)*UV(4099)+JVS(20895)*UV(5238)+JVS(20896)*UV(5250)& - &+JVS(20897)*UV(5252)+JVS(20898)*UV(5255)+JVS(20899)*UV(5256) - JUV(4100) = JVS(20900)*UV(1002)+JVS(20901)*UV(3229)+JVS(20902)*UV(3657)+JVS(20903)*UV(4100)+JVS(20904)*UV(5250)& - &+JVS(20905)*UV(5252)+JVS(20906)*UV(5253)+JVS(20907)*UV(5255)+JVS(20908)*UV(5256) - JUV(4101) = JVS(20909)*UV(216)+JVS(20910)*UV(1426)+JVS(20914)*UV(4101)+JVS(20915)*UV(5250)+JVS(20916)*UV(5252)& - &+JVS(20918)*UV(5255)+JVS(20919)*UV(5256) - JUV(4102) = JVS(20920)*UV(1982)+JVS(20921)*UV(2901)+JVS(20922)*UV(3732)+JVS(20924)*UV(4102)+JVS(20925)*UV(5250)& - &+JVS(20926)*UV(5252)+JVS(20927)*UV(5253)+JVS(20928)*UV(5255)+JVS(20929)*UV(5256) - JUV(4103) = JVS(20930)*UV(468)+JVS(20931)*UV(1401)+JVS(20932)*UV(1780)+JVS(20933)*UV(1781)+JVS(20934)*UV(3751)& - &+JVS(20935)*UV(4103)+JVS(20937)*UV(5250) - JUV(4104) = JVS(20941)*UV(633)+JVS(20942)*UV(731)+JVS(20943)*UV(1414)+JVS(20944)*UV(1934)+JVS(20945)*UV(2332)& - &+JVS(20947)*UV(2701)+JVS(20948)*UV(4104)+JVS(20950)*UV(4597)+JVS(20953)*UV(5250) - JUV(4105) = JVS(20957)*UV(2634)+JVS(20958)*UV(3291)+JVS(20960)*UV(4105)+JVS(20962)*UV(5250)+JVS(20963)*UV(5252)& - &+JVS(20964)*UV(5255)+JVS(20965)*UV(5256) - JUV(4106) = JVS(20966)*UV(3259)+JVS(20967)*UV(4106)+JVS(20968)*UV(5110)+JVS(20969)*UV(5250)+JVS(20970)*UV(5252)& - &+JVS(20971)*UV(5255)+JVS(20972)*UV(5256) - JUV(4107) = JVS(20973)*UV(4107)+JVS(20974)*UV(5217)+JVS(20975)*UV(5218)+JVS(20976)*UV(5250)+JVS(20977)*UV(5255) - JUV(4108) = JVS(20978)*UV(3598)+JVS(20979)*UV(4108)+JVS(20980)*UV(4809)+JVS(20981)*UV(5250)+JVS(20984)*UV(5256) - JUV(4109) = JVS(20985)*UV(9)+JVS(20987)*UV(706)+JVS(20988)*UV(981)+JVS(20989)*UV(1655)+JVS(20990)*UV(2436)+JVS(20992)& - &*UV(4109)+JVS(20996)*UV(5127)+JVS(20997)*UV(5250) - JUV(4110) = JVS(21001)*UV(425)+JVS(21002)*UV(1692)+JVS(21003)*UV(2182)+JVS(21004)*UV(2233)+JVS(21005)*UV(3778)& - &+JVS(21006)*UV(4110)+JVS(21008)*UV(5250)+JVS(21011)*UV(5256) - JUV(4111) = JVS(21012)*UV(4111)+JVS(21013)*UV(5153)+JVS(21014)*UV(5250)+JVS(21015)*UV(5252)+JVS(21016)*UV(5255)& - &+JVS(21017)*UV(5256) - JUV(4112) = JVS(21018)*UV(1288)+JVS(21019)*UV(4112)+JVS(21020)*UV(4512)+JVS(21021)*UV(5250)+JVS(21022)*UV(5252)& - &+JVS(21023)*UV(5255)+JVS(21024)*UV(5256) - JUV(4113) = JVS(21025)*UV(4113)+JVS(21026)*UV(5118)+JVS(21027)*UV(5204)+JVS(21028)*UV(5250)+JVS(21029)*UV(5255) - JUV(4114) = JVS(21030)*UV(2369)+JVS(21031)*UV(3592)+JVS(21032)*UV(4114)+JVS(21033)*UV(4777)+JVS(21034)*UV(5250)& - &+JVS(21037)*UV(5256) - JUV(4115) = JVS(21038)*UV(858)+JVS(21039)*UV(2809)+JVS(21040)*UV(4115)+JVS(21042)*UV(5250)+JVS(21043)*UV(5252)& - &+JVS(21044)*UV(5255)+JVS(21045)*UV(5256) - JUV(4116) = JVS(21046)*UV(433)+JVS(21047)*UV(1347)+JVS(21048)*UV(4116)+JVS(21049)*UV(5054)+JVS(21050)*UV(5250)& - &+JVS(21051)*UV(5252)+JVS(21052)*UV(5255)+JVS(21053)*UV(5256) - JUV(4117) = JVS(21054)*UV(1527)+JVS(21055)*UV(4117)+JVS(21056)*UV(5187)+JVS(21057)*UV(5250)+JVS(21058)*UV(5252)& - &+JVS(21059)*UV(5255)+JVS(21060)*UV(5256) - JUV(4118) = JVS(21061)*UV(1495)+JVS(21062)*UV(1712)+JVS(21064)*UV(4118)+JVS(21066)*UV(5250)+JVS(21067)*UV(5252)& - &+JVS(21068)*UV(5255)+JVS(21069)*UV(5256) - JUV(4119) = JVS(21070)*UV(407)+JVS(21072)*UV(1367)+JVS(21074)*UV(4119)+JVS(21076)*UV(5250)+JVS(21077)*UV(5252)& - &+JVS(21078)*UV(5255)+JVS(21079)*UV(5256) - JUV(4120) = JVS(21080)*UV(203)+JVS(21084)*UV(4120)+JVS(21087)*UV(5252)+JVS(21088)*UV(5255)+JVS(21089)*UV(5256) - JUV(4121) = JVS(21090)*UV(980)+JVS(21091)*UV(1641)+JVS(21092)*UV(4121)+JVS(21093)*UV(5238)+JVS(21094)*UV(5250)& - &+JVS(21095)*UV(5252)+JVS(21096)*UV(5255)+JVS(21097)*UV(5256) - JUV(4122) = JVS(21098)*UV(525)+JVS(21099)*UV(1304)+JVS(21100)*UV(2122)+JVS(21101)*UV(2268)+JVS(21102)*UV(3731)& - &+JVS(21103)*UV(4122)+JVS(21105)*UV(5250) - JUV(4123) = JVS(21109)*UV(217)+JVS(21111)*UV(4123)+JVS(21113)*UV(5250)+JVS(21114)*UV(5252)+JVS(21115)*UV(5255)& - &+JVS(21116)*UV(5256) - JUV(4124) = JVS(21117)*UV(931)+JVS(21118)*UV(4124)+JVS(21119)*UV(5213)+JVS(21120)*UV(5250)+JVS(21121)*UV(5252)& - &+JVS(21122)*UV(5255)+JVS(21123)*UV(5256) - JUV(4125) = JVS(21124)*UV(3451)+JVS(21125)*UV(3468)+JVS(21126)*UV(3618)+JVS(21127)*UV(3707)+JVS(21128)*UV(4125)& - &+JVS(21129)*UV(4749)+JVS(21134)*UV(5001)+JVS(21135)*UV(5250)+JVS(21136)*UV(5255) - JUV(4126) = JVS(21137)*UV(2614)+JVS(21138)*UV(3287)+JVS(21139)*UV(4126)+JVS(21141)*UV(5250)+JVS(21142)*UV(5252)& - &+JVS(21143)*UV(5255)+JVS(21144)*UV(5256) - JUV(4127) = JVS(21145)*UV(2753)+JVS(21146)*UV(3156)+JVS(21147)*UV(4127)+JVS(21149)*UV(5250)+JVS(21150)*UV(5252)& - &+JVS(21151)*UV(5255)+JVS(21152)*UV(5256) - JUV(4128) = JVS(21153)*UV(4110)+JVS(21154)*UV(4128)+JVS(21156)*UV(5250)+JVS(21157)*UV(5252)+JVS(21158)*UV(5255)& - &+JVS(21159)*UV(5256) - JUV(4129) = JVS(21160)*UV(386)+JVS(21161)*UV(4129)+JVS(21163)*UV(5252)+JVS(21164)*UV(5255)+JVS(21165)*UV(5256) - JUV(4130) = JVS(21167)*UV(1614)+JVS(21170)*UV(4130)+JVS(21173)*UV(5252)+JVS(21174)*UV(5255)+JVS(21175)*UV(5256) - JUV(4131) = JVS(21176)*UV(849)+JVS(21177)*UV(1189)+JVS(21178)*UV(4131)+JVS(21179)*UV(4624)+JVS(21180)*UV(5250)& - &+JVS(21181)*UV(5252)+JVS(21182)*UV(5255)+JVS(21183)*UV(5256) - JUV(4132) = JVS(21184)*UV(1473)+JVS(21185)*UV(2950)+JVS(21186)*UV(4080)+JVS(21187)*UV(4132)+JVS(21188)*UV(5250)& - &+JVS(21189)*UV(5253)+JVS(21190)*UV(5255)+JVS(21191)*UV(5256) - JUV(4133) = JVS(21193)*UV(1486)+JVS(21194)*UV(3138)+JVS(21195)*UV(4133)+JVS(21196)*UV(5250)+JVS(21197)*UV(5252)& - &+JVS(21198)*UV(5255)+JVS(21199)*UV(5256) - JUV(4134) = JVS(21200)*UV(997)+JVS(21201)*UV(4134)+JVS(21202)*UV(4865)+JVS(21203)*UV(5250)+JVS(21204)*UV(5252)& - &+JVS(21205)*UV(5255)+JVS(21206)*UV(5256) - JUV(4135) = JVS(21207)*UV(224)+JVS(21208)*UV(4135)+JVS(21210)*UV(5252)+JVS(21211)*UV(5255)+JVS(21212)*UV(5256) - JUV(4136) = JVS(21214)*UV(1818)+JVS(21216)*UV(4136)+JVS(21219)*UV(5252)+JVS(21220)*UV(5255)+JVS(21221)*UV(5256) - JUV(4137) = JVS(21222)*UV(1931)+JVS(21223)*UV(2965)+JVS(21226)*UV(4137)+JVS(21228)*UV(5250)+JVS(21229)*UV(5252)& - &+JVS(21230)*UV(5255)+JVS(21231)*UV(5256) - JUV(4138) = JVS(21232)*UV(1832)+JVS(21233)*UV(2930)+JVS(21235)*UV(4138)+JVS(21237)*UV(5250)+JVS(21238)*UV(5252)& - &+JVS(21239)*UV(5255)+JVS(21240)*UV(5256) - JUV(4139) = JVS(21241)*UV(1537)+JVS(21242)*UV(3318)+JVS(21243)*UV(3655)+JVS(21244)*UV(4139)+JVS(21245)*UV(5250)& - &+JVS(21246)*UV(5252)+JVS(21247)*UV(5253)+JVS(21248)*UV(5255)+JVS(21249)*UV(5256) - JUV(4140) = JVS(21250)*UV(1072)+JVS(21251)*UV(4140)+JVS(21252)*UV(4474)+JVS(21253)*UV(5250)+JVS(21254)*UV(5252)& - &+JVS(21255)*UV(5255)+JVS(21256)*UV(5256) - JUV(4141) = JVS(21257)*UV(4141)+JVS(21258)*UV(5068)+JVS(21259)*UV(5250)+JVS(21260)*UV(5252)+JVS(21261)*UV(5255)& - &+JVS(21262)*UV(5256) - JUV(4142) = JVS(21263)*UV(3591)+JVS(21264)*UV(4142)+JVS(21267)*UV(5252)+JVS(21268)*UV(5255)+JVS(21269)*UV(5256) - JUV(4143) = JVS(21270)*UV(1391)+JVS(21271)*UV(4143)+JVS(21272)*UV(4601)+JVS(21273)*UV(5250)+JVS(21274)*UV(5252)& - &+JVS(21275)*UV(5255)+JVS(21276)*UV(5256) - JUV(4144) = JVS(21277)*UV(419)+JVS(21278)*UV(4144)+JVS(21280)*UV(5252)+JVS(21281)*UV(5255)+JVS(21282)*UV(5256) - JUV(4145) = JVS(21284)*UV(224)+JVS(21285)*UV(4145)+JVS(21287)*UV(5252)+JVS(21288)*UV(5255)+JVS(21289)*UV(5256) - JUV(4146) = JVS(21291)*UV(4146)+JVS(21292)*UV(4600)+JVS(21293)*UV(5250)+JVS(21294)*UV(5252)+JVS(21295)*UV(5255)& - &+JVS(21296)*UV(5256) - JUV(4147) = JVS(21297)*UV(2293)+JVS(21299)*UV(4147)+JVS(21302)*UV(5252)+JVS(21303)*UV(5255)+JVS(21304)*UV(5256) - JUV(4148) = JVS(21305)*UV(419)+JVS(21306)*UV(4148)+JVS(21308)*UV(5252)+JVS(21309)*UV(5255)+JVS(21310)*UV(5256) - JUV(4149) = JVS(21312)*UV(877)+JVS(21313)*UV(4149)+JVS(21314)*UV(5031)+JVS(21315)*UV(5250)+JVS(21316)*UV(5252)& - &+JVS(21317)*UV(5255)+JVS(21318)*UV(5256) - JUV(4150) = JVS(21319)*UV(182)+JVS(21320)*UV(821)+JVS(21323)*UV(4150)+JVS(21326)*UV(5252)+JVS(21327)*UV(5255)& - &+JVS(21328)*UV(5256) - JUV(4151) = JVS(21329)*UV(1362)+JVS(21330)*UV(3806)+JVS(21331)*UV(4151)+JVS(21333)*UV(5250)+JVS(21336)*UV(5256) - JUV(4152) = JVS(21337)*UV(119)+JVS(21338)*UV(1033)+JVS(21339)*UV(1567)+JVS(21340)*UV(2624)+JVS(21341)*UV(3503)& - &+JVS(21343)*UV(4152)+JVS(21344)*UV(5250)+JVS(21345)*UV(5252)+JVS(21347)*UV(5256) - JUV(4153) = JVS(21348)*UV(2368)+JVS(21349)*UV(2420)+JVS(21351)*UV(4153)+JVS(21352)*UV(5250)+JVS(21353)*UV(5252)& - &+JVS(21354)*UV(5255)+JVS(21355)*UV(5256) - JUV(4154) = JVS(21356)*UV(107)+JVS(21357)*UV(373)+JVS(21359)*UV(2064)+JVS(21360)*UV(3019)+JVS(21363)*UV(4154)& - &+JVS(21364)*UV(5250)+JVS(21365)*UV(5252)+JVS(21366)*UV(5253)+JVS(21367)*UV(5255)+JVS(21368)*UV(5256) - JUV(4155) = JVS(21369)*UV(976)+JVS(21370)*UV(3002)+JVS(21371)*UV(4155)+JVS(21372)*UV(4879)+JVS(21373)*UV(5250)& - &+JVS(21376)*UV(5256) - JUV(4156) = JVS(21377)*UV(4156)+JVS(21378)*UV(4922)+JVS(21379)*UV(4923)+JVS(21380)*UV(5250)+JVS(21381)*UV(5256) - JUV(4157) = JVS(21382)*UV(169)+JVS(21384)*UV(1263)+JVS(21387)*UV(4157)+JVS(21389)*UV(5250)+JVS(21390)*UV(5252)& - &+JVS(21391)*UV(5255)+JVS(21392)*UV(5256) - JUV(4158) = JVS(21393)*UV(1935)+JVS(21394)*UV(3066)+JVS(21395)*UV(4158)+JVS(21397)*UV(5250)+JVS(21398)*UV(5252)& - &+JVS(21399)*UV(5255)+JVS(21400)*UV(5256) - JUV(4159) = JVS(21401)*UV(4159)+JVS(21402)*UV(5049)+JVS(21403)*UV(5250)+JVS(21404)*UV(5252)+JVS(21405)*UV(5255)& - &+JVS(21406)*UV(5256) - JUV(4160) = JVS(21407)*UV(2363)+JVS(21408)*UV(3575)+JVS(21409)*UV(4160)+JVS(21410)*UV(4881)+JVS(21411)*UV(5250)& - &+JVS(21414)*UV(5256) - JUV(4161) = JVS(21415)*UV(1897)+JVS(21416)*UV(2118)+JVS(21417)*UV(4161)+JVS(21419)*UV(5250)+JVS(21420)*UV(5252)& - &+JVS(21421)*UV(5255)+JVS(21422)*UV(5256) - JUV(4162) = JVS(21423)*UV(211)+JVS(21426)*UV(4162)+JVS(21429)*UV(5252)+JVS(21430)*UV(5255)+JVS(21431)*UV(5256) - JUV(4163) = JVS(21432)*UV(1775)+JVS(21433)*UV(1943)+JVS(21434)*UV(4163)+JVS(21436)*UV(5250)+JVS(21437)*UV(5252)& - &+JVS(21438)*UV(5255)+JVS(21439)*UV(5256) - JUV(4164) = JVS(21440)*UV(524)+JVS(21441)*UV(1387)+JVS(21442)*UV(2031)+JVS(21443)*UV(2387)+JVS(21444)*UV(3691)& - &+JVS(21445)*UV(4164)+JVS(21447)*UV(5250) - JUV(4165) = JVS(21451)*UV(4165)+JVS(21452)*UV(5066)+JVS(21453)*UV(5250)+JVS(21454)*UV(5252)+JVS(21455)*UV(5255)& - &+JVS(21456)*UV(5256) - JUV(4166) = JVS(21457)*UV(1390)+JVS(21458)*UV(2722)+JVS(21459)*UV(4166)+JVS(21461)*UV(5250)+JVS(21462)*UV(5252)& - &+JVS(21463)*UV(5255)+JVS(21464)*UV(5256) - JUV(4167) = JVS(21465)*UV(1159)+JVS(21466)*UV(3169)+JVS(21467)*UV(4167)+JVS(21468)*UV(5250)+JVS(21469)*UV(5252)& - &+JVS(21470)*UV(5255)+JVS(21471)*UV(5256) - JUV(4168) = JVS(21472)*UV(796)+JVS(21473)*UV(2307)+JVS(21474)*UV(2681)+JVS(21476)*UV(4168)+JVS(21477)*UV(5250)& - &+JVS(21478)*UV(5252)+JVS(21479)*UV(5253)+JVS(21480)*UV(5255)+JVS(21481)*UV(5256) - JUV(4169) = JVS(21482)*UV(175)+JVS(21485)*UV(2424)+JVS(21486)*UV(4169)+JVS(21488)*UV(5250)+JVS(21489)*UV(5252)& - &+JVS(21490)*UV(5255)+JVS(21491)*UV(5256) - JUV(4170) = JVS(21492)*UV(1292)+JVS(21493)*UV(1790)+JVS(21495)*UV(4170)+JVS(21497)*UV(5250)+JVS(21498)*UV(5252)& - &+JVS(21499)*UV(5255)+JVS(21500)*UV(5256) - JUV(4171) = JVS(21501)*UV(1849)+JVS(21502)*UV(4171)+JVS(21503)*UV(5124)+JVS(21504)*UV(5250)+JVS(21505)*UV(5252)& - &+JVS(21506)*UV(5255)+JVS(21507)*UV(5256) - JUV(4172) = JVS(21508)*UV(315)+JVS(21511)*UV(4172)+JVS(21514)*UV(5252)+JVS(21515)*UV(5255)+JVS(21516)*UV(5256) - JUV(4173) = JVS(21517)*UV(1197)+JVS(21518)*UV(3398)+JVS(21520)*UV(4173)+JVS(21522)*UV(5250)+JVS(21523)*UV(5252)& - &+JVS(21524)*UV(5255)+JVS(21525)*UV(5256) - JUV(4174) = JVS(21526)*UV(2179)+JVS(21527)*UV(3572)+JVS(21528)*UV(4174)+JVS(21529)*UV(4972)+JVS(21530)*UV(5250)& - &+JVS(21533)*UV(5256) - JUV(4175) = JVS(21534)*UV(2082)+JVS(21535)*UV(2700)+JVS(21536)*UV(3053)+JVS(21537)*UV(3681)+JVS(21538)*UV(3709)& - &+JVS(21540)*UV(4175)+JVS(21543)*UV(4731)+JVS(21544)*UV(5250)+JVS(21545)*UV(5252)+JVS(21547)*UV(5255)& - &+JVS(21548)*UV(5256) - JUV(4176) = JVS(21549)*UV(522)+JVS(21550)*UV(4176)+JVS(21552)*UV(5252)+JVS(21553)*UV(5255)+JVS(21554)*UV(5256) - JUV(4177) = JVS(21556)*UV(54)+JVS(21557)*UV(1535)+JVS(21558)*UV(3445)+JVS(21559)*UV(4074)+JVS(21560)*UV(4177)& - &+JVS(21561)*UV(5250)+JVS(21562)*UV(5252)+JVS(21564)*UV(5256) - JUV(4178) = JVS(21565)*UV(2732)+JVS(21567)*UV(3283)+JVS(21570)*UV(4178)+JVS(21571)*UV(4946)+JVS(21572)*UV(5250)& - &+JVS(21574)*UV(5255) - JUV(4179) = JVS(21576)*UV(295)+JVS(21577)*UV(1349)+JVS(21578)*UV(2060)+JVS(21579)*UV(2206)+JVS(21580)*UV(3690)& - &+JVS(21581)*UV(4179)+JVS(21583)*UV(5250) - JUV(4180) = JVS(21587)*UV(3261)+JVS(21588)*UV(4180)+JVS(21589)*UV(4805)+JVS(21590)*UV(5250)+JVS(21591)*UV(5252)& - &+JVS(21592)*UV(5255)+JVS(21593)*UV(5256) - JUV(4181) = JVS(21594)*UV(801)+JVS(21595)*UV(1228)+JVS(21596)*UV(1735)+JVS(21597)*UV(1797)+JVS(21598)*UV(2690)& - &+JVS(21599)*UV(3232)+JVS(21600)*UV(3412)+JVS(21601)*UV(3645)+JVS(21604)*UV(4181)+JVS(21605)*UV(5250)& - &+JVS(21606)*UV(5252)+JVS(21607)*UV(5253)+JVS(21608)*UV(5255)+JVS(21609)*UV(5256) - JUV(4182) = JVS(21610)*UV(483)+JVS(21611)*UV(1393)+JVS(21615)*UV(4182)+JVS(21616)*UV(5250)+JVS(21617)*UV(5252)& - &+JVS(21619)*UV(5255)+JVS(21620)*UV(5256) - JUV(4183) = JVS(21621)*UV(439)+JVS(21622)*UV(1128)+JVS(21623)*UV(1612)+JVS(21624)*UV(2108)+JVS(21625)*UV(2170)& - &+JVS(21626)*UV(2587)+JVS(21627)*UV(3043)+JVS(21628)*UV(4183)+JVS(21631)*UV(5206)+JVS(21632)*UV(5250) - JUV(4184) = JVS(21637)*UV(952)+JVS(21638)*UV(4052)+JVS(21639)*UV(4184)+JVS(21641)*UV(5252)+JVS(21644)*UV(5256) - JUV(4185) = JVS(21645)*UV(1186)+JVS(21646)*UV(4185)+JVS(21647)*UV(4600)+JVS(21648)*UV(5250)+JVS(21649)*UV(5252)& - &+JVS(21650)*UV(5255)+JVS(21651)*UV(5256) - JUV(4186) = JVS(21652)*UV(920)+JVS(21653)*UV(1297)+JVS(21654)*UV(2343)+JVS(21656)*UV(4146)+JVS(21658)*UV(4186)& - &+JVS(21660)*UV(5250)+JVS(21663)*UV(5256) - JUV(4187) = JVS(21664)*UV(867)+JVS(21665)*UV(2780)+JVS(21666)*UV(3649)+JVS(21667)*UV(4187)+JVS(21668)*UV(5250)& - &+JVS(21669)*UV(5252)+JVS(21670)*UV(5253)+JVS(21671)*UV(5255)+JVS(21672)*UV(5256) - JUV(4188) = JVS(21673)*UV(1117)+JVS(21674)*UV(2467)+JVS(21676)*UV(4188)+JVS(21678)*UV(5250)+JVS(21679)*UV(5252)& - &+JVS(21680)*UV(5255)+JVS(21681)*UV(5256) - JUV(4189) = JVS(21682)*UV(450)+JVS(21684)*UV(1496)+JVS(21687)*UV(4189)+JVS(21689)*UV(5250)+JVS(21690)*UV(5252)& - &+JVS(21691)*UV(5255)+JVS(21692)*UV(5256) - JUV(4190) = JVS(21693)*UV(1164)+JVS(21694)*UV(3760)+JVS(21696)*UV(4190)+JVS(21699)*UV(5252)+JVS(21701)*UV(5256) - JUV(4191) = JVS(21702)*UV(954)+JVS(21703)*UV(1360)+JVS(21704)*UV(4191)+JVS(21705)*UV(4631)+JVS(21706)*UV(5250)& - &+JVS(21707)*UV(5252)+JVS(21708)*UV(5255)+JVS(21709)*UV(5256) - JUV(4192) = JVS(21710)*UV(1459)+JVS(21711)*UV(3142)+JVS(21712)*UV(4192)+JVS(21714)*UV(5250)+JVS(21715)*UV(5252)& - &+JVS(21717)*UV(5255)+JVS(21718)*UV(5256) - JUV(4193) = JVS(21719)*UV(1532)+JVS(21720)*UV(3114)+JVS(21721)*UV(4193)+JVS(21723)*UV(5250)+JVS(21724)*UV(5252)& - &+JVS(21726)*UV(5255)+JVS(21727)*UV(5256) - JUV(4194) = JVS(21728)*UV(1025)+JVS(21729)*UV(3178)+JVS(21730)*UV(4194)+JVS(21732)*UV(5250)+JVS(21733)*UV(5252)& - &+JVS(21735)*UV(5255)+JVS(21736)*UV(5256) - JUV(4195) = JVS(21737)*UV(979)+JVS(21738)*UV(3092)+JVS(21739)*UV(4195)+JVS(21741)*UV(5250)+JVS(21742)*UV(5252)& - &+JVS(21744)*UV(5255)+JVS(21745)*UV(5256) - JUV(4196) = JVS(21746)*UV(191)+JVS(21748)*UV(1648)+JVS(21752)*UV(4196)+JVS(21754)*UV(5250)+JVS(21755)*UV(5252)& - &+JVS(21757)*UV(5255)+JVS(21758)*UV(5256) - JUV(4197) = JVS(21759)*UV(1047)+JVS(21760)*UV(1087)+JVS(21761)*UV(4197)+JVS(21762)*UV(4855)+JVS(21763)*UV(5083)& - &+JVS(21764)*UV(5250)+JVS(21765)*UV(5252)+JVS(21766)*UV(5255)+JVS(21767)*UV(5256) - JUV(4198) = JVS(21768)*UV(1206)+JVS(21769)*UV(1368)+JVS(21770)*UV(4198)+JVS(21771)*UV(4576)+JVS(21772)*UV(5250)& - &+JVS(21773)*UV(5252)+JVS(21774)*UV(5253)+JVS(21775)*UV(5255)+JVS(21776)*UV(5256) - JUV(4199) = JVS(21777)*UV(2064)+JVS(21778)*UV(2485)+JVS(21779)*UV(2541)+JVS(21780)*UV(2765)+JVS(21781)*UV(3019)& - &+JVS(21782)*UV(4046)+JVS(21783)*UV(4154)+JVS(21784)*UV(4199)+JVS(21785)*UV(4877)+JVS(21786)*UV(5250)& - &+JVS(21787)*UV(5252)+JVS(21789)*UV(5255)+JVS(21790)*UV(5256) - JUV(4200) = JVS(21791)*UV(1379)+JVS(21792)*UV(3119)+JVS(21793)*UV(4200)+JVS(21795)*UV(5250)+JVS(21796)*UV(5252)& - &+JVS(21798)*UV(5255)+JVS(21799)*UV(5256) - JUV(4201) = JVS(21800)*UV(293)+JVS(21801)*UV(1007)+JVS(21802)*UV(4201)+JVS(21804)*UV(5250)+JVS(21805)*UV(5252)& - &+JVS(21806)*UV(5255)+JVS(21807)*UV(5256) - JUV(4202) = JVS(21809)*UV(542)+JVS(21810)*UV(2248)+JVS(21812)*UV(2643)+JVS(21813)*UV(4202)+JVS(21815)*UV(5250)& - &+JVS(21816)*UV(5252)+JVS(21817)*UV(5253)+JVS(21818)*UV(5255)+JVS(21819)*UV(5256) - JUV(4203) = JVS(21820)*UV(2899)+JVS(21821)*UV(3014)+JVS(21822)*UV(3968)+JVS(21823)*UV(4203)+JVS(21825)*UV(5250)& - &+JVS(21826)*UV(5252)+JVS(21827)*UV(5253)+JVS(21828)*UV(5255)+JVS(21829)*UV(5256) - JUV(4204) = JVS(21830)*UV(1278)+JVS(21831)*UV(3189)+JVS(21832)*UV(4204)+JVS(21834)*UV(5250)+JVS(21835)*UV(5252)& - &+JVS(21837)*UV(5255)+JVS(21838)*UV(5256) - JUV(4205) = JVS(21839)*UV(1504)+JVS(21840)*UV(3187)+JVS(21841)*UV(4205)+JVS(21843)*UV(5250)+JVS(21844)*UV(5252)& - &+JVS(21846)*UV(5255)+JVS(21847)*UV(5256) - JUV(4206) = JVS(21848)*UV(2208)+JVS(21849)*UV(2620)+JVS(21850)*UV(4206)+JVS(21851)*UV(5012)+JVS(21852)*UV(5250)& - &+JVS(21853)*UV(5252)+JVS(21854)*UV(5253)+JVS(21855)*UV(5255)+JVS(21856)*UV(5256) - JUV(4207) = JVS(21857)*UV(2251)+JVS(21858)*UV(2800)+JVS(21859)*UV(3938)+JVS(21860)*UV(4207)+JVS(21862)*UV(5250)& - &+JVS(21863)*UV(5252)+JVS(21864)*UV(5253)+JVS(21865)*UV(5255)+JVS(21866)*UV(5256) - JUV(4208) = JVS(21867)*UV(1184)+JVS(21868)*UV(2105)+JVS(21869)*UV(3933)+JVS(21870)*UV(4208)+JVS(21873)*UV(5250)& - &+JVS(21874)*UV(5252)+JVS(21875)*UV(5253)+JVS(21876)*UV(5255)+JVS(21877)*UV(5256) - JUV(4209) = JVS(21878)*UV(2320)+JVS(21879)*UV(2498)+JVS(21880)*UV(4209)+JVS(21881)*UV(4851)+JVS(21882)*UV(5250)& - &+JVS(21883)*UV(5252)+JVS(21884)*UV(5253)+JVS(21885)*UV(5255)+JVS(21886)*UV(5256) - JUV(4210) = JVS(21887)*UV(962)+JVS(21888)*UV(3127)+JVS(21889)*UV(4210)+JVS(21891)*UV(5250)+JVS(21892)*UV(5252)& - &+JVS(21894)*UV(5255)+JVS(21895)*UV(5256) - JUV(4211) = JVS(21896)*UV(908)+JVS(21897)*UV(1870)+JVS(21899)*UV(4211)+JVS(21902)*UV(5250)+JVS(21903)*UV(5252)& - &+JVS(21904)*UV(5255)+JVS(21905)*UV(5256) - JUV(4212) = JVS(21906)*UV(1051)+JVS(21907)*UV(3114)+JVS(21908)*UV(4212)+JVS(21910)*UV(5250)+JVS(21911)*UV(5252)& - &+JVS(21913)*UV(5255)+JVS(21914)*UV(5256) - JUV(4213) = JVS(21915)*UV(529)+JVS(21916)*UV(4213)+JVS(21918)*UV(5251)+JVS(21919)*UV(5252)+JVS(21920)*UV(5253)& - &+JVS(21921)*UV(5254) - JUV(4214) = JVS(21923)*UV(204)+JVS(21925)*UV(2159)+JVS(21926)*UV(2608)+JVS(21928)*UV(4214)+JVS(21930)*UV(5250)& - &+JVS(21931)*UV(5252)+JVS(21932)*UV(5253)+JVS(21933)*UV(5255)+JVS(21934)*UV(5256) - JUV(4215) = JVS(21935)*UV(2301)+JVS(21936)*UV(3051)+JVS(21937)*UV(4215)+JVS(21938)*UV(4961)+JVS(21939)*UV(5250)& - &+JVS(21940)*UV(5252)+JVS(21941)*UV(5253)+JVS(21942)*UV(5255)+JVS(21943)*UV(5256) - JUV(4216) = JVS(21944)*UV(178)+JVS(21945)*UV(826)+JVS(21948)*UV(2773)+JVS(21951)*UV(4216)+JVS(21953)*UV(5250)& - &+JVS(21954)*UV(5252)+JVS(21956)*UV(5255)+JVS(21957)*UV(5256) - JUV(4217) = JVS(21958)*UV(1322)+JVS(21959)*UV(3167)+JVS(21960)*UV(4217)+JVS(21962)*UV(5250)+JVS(21963)*UV(5252)& - &+JVS(21965)*UV(5255)+JVS(21966)*UV(5256) - JUV(4218) = JVS(21967)*UV(510)+JVS(21969)*UV(2505)+JVS(21970)*UV(2862)+JVS(21972)*UV(4218)+JVS(21974)*UV(5250)& - &+JVS(21975)*UV(5252)+JVS(21976)*UV(5253)+JVS(21977)*UV(5255)+JVS(21978)*UV(5256) - JUV(4219) = JVS(21979)*UV(309)+JVS(21980)*UV(1064)+JVS(21981)*UV(1867)+JVS(21983)*UV(3900)+JVS(21984)*UV(4219)& - &+JVS(21986)*UV(4611)+JVS(21987)*UV(5250)+JVS(21988)*UV(5252)+JVS(21989)*UV(5255)+JVS(21990)*UV(5256) - JUV(4220) = JVS(21991)*UV(76)+JVS(21993)*UV(2142)+JVS(21994)*UV(2530)+JVS(21997)*UV(4220)+JVS(21999)*UV(5250)& - &+JVS(22000)*UV(5252)+JVS(22001)*UV(5253)+JVS(22002)*UV(5255)+JVS(22003)*UV(5256) - JUV(4221) = JVS(22004)*UV(14)+JVS(22005)*UV(455)+JVS(22007)*UV(2991)+JVS(22008)*UV(3040)+JVS(22010)*UV(4221)& - &+JVS(22012)*UV(5250)+JVS(22013)*UV(5252)+JVS(22014)*UV(5253)+JVS(22015)*UV(5255)+JVS(22016)*UV(5256) - JUV(4222) = JVS(22017)*UV(1208)+JVS(22018)*UV(2517)+JVS(22019)*UV(3972)+JVS(22020)*UV(4222)+JVS(22022)*UV(5250)& - &+JVS(22023)*UV(5252)+JVS(22024)*UV(5253)+JVS(22025)*UV(5255)+JVS(22026)*UV(5256) - JUV(4223) = JVS(22027)*UV(1121)+JVS(22028)*UV(2067)+JVS(22029)*UV(2133)+JVS(22030)*UV(4223)+JVS(22031)*UV(4336)& - &+JVS(22033)*UV(4608)+JVS(22035)*UV(5250) - JUV(4224) = JVS(22038)*UV(399)+JVS(22039)*UV(879)+JVS(22040)*UV(2328)+JVS(22041)*UV(2658)+JVS(22042)*UV(3858)& - &+JVS(22043)*UV(4224)+JVS(22045)*UV(5250)+JVS(22049)*UV(5256) - JUV(4225) = JVS(22050)*UV(1190)+JVS(22051)*UV(3112)+JVS(22052)*UV(4225)+JVS(22054)*UV(5250)+JVS(22055)*UV(5252)& - &+JVS(22057)*UV(5255)+JVS(22058)*UV(5256) - JUV(4226) = JVS(22059)*UV(157)+JVS(22062)*UV(2979)+JVS(22065)*UV(4226)+JVS(22067)*UV(5250)+JVS(22068)*UV(5252)& - &+JVS(22070)*UV(5255)+JVS(22071)*UV(5256) - JUV(4227) = JVS(22072)*UV(2120)+JVS(22073)*UV(2929)+JVS(22074)*UV(4227)+JVS(22075)*UV(4424)+JVS(22076)*UV(4815)& - &+JVS(22077)*UV(5250)+JVS(22078)*UV(5252)+JVS(22080)*UV(5255)+JVS(22081)*UV(5256) - JUV(4228) = JVS(22082)*UV(2329)+JVS(22083)*UV(3045)+JVS(22084)*UV(3549)+JVS(22085)*UV(4228)+JVS(22088)*UV(5250)& - &+JVS(22089)*UV(5252)+JVS(22090)*UV(5253)+JVS(22091)*UV(5255)+JVS(22092)*UV(5256) - JUV(4229) = JVS(22093)*UV(1816)+JVS(22094)*UV(3042)+JVS(22095)*UV(3449)+JVS(22096)*UV(4229)+JVS(22098)*UV(5250)& - &+JVS(22099)*UV(5252)+JVS(22100)*UV(5253)+JVS(22101)*UV(5255)+JVS(22102)*UV(5256) - JUV(4230) = JVS(22103)*UV(2116)+JVS(22104)*UV(2784)+JVS(22105)*UV(3861)+JVS(22106)*UV(4230)+JVS(22108)*UV(5250)& - &+JVS(22109)*UV(5252)+JVS(22110)*UV(5253)+JVS(22111)*UV(5255)+JVS(22112)*UV(5256) - JUV(4231) = JVS(22113)*UV(1743)+JVS(22114)*UV(2187)+JVS(22115)*UV(2375)+JVS(22116)*UV(2716)+JVS(22117)*UV(3676)& - &+JVS(22118)*UV(4231)+JVS(22121)*UV(5250)+JVS(22124)*UV(5256) - JUV(4232) = JVS(22125)*UV(1423)+JVS(22126)*UV(3152)+JVS(22127)*UV(4232)+JVS(22129)*UV(5250)+JVS(22130)*UV(5252)& - &+JVS(22132)*UV(5255)+JVS(22133)*UV(5256) - JUV(4233) = JVS(22134)*UV(2228)+JVS(22135)*UV(2538)+JVS(22136)*UV(4233)+JVS(22137)*UV(4502)+JVS(22138)*UV(4775)& - &+JVS(22139)*UV(5250)+JVS(22140)*UV(5252)+JVS(22142)*UV(5255)+JVS(22143)*UV(5256) - JUV(4234) = JVS(22144)*UV(414)+JVS(22145)*UV(470)+JVS(22146)*UV(1507)+JVS(22147)*UV(4234)+JVS(22148)*UV(4839)& - &+JVS(22149)*UV(4978)+JVS(22150)*UV(5250)+JVS(22151)*UV(5252)+JVS(22152)*UV(5255)+JVS(22153)*UV(5256) - JUV(4235) = JVS(22154)*UV(1826)+JVS(22155)*UV(2723)+JVS(22156)*UV(3126)+JVS(22158)*UV(4235)+JVS(22161)*UV(5250)& - &+JVS(22162)*UV(5252)+JVS(22163)*UV(5255)+JVS(22164)*UV(5256) - JUV(4236) = JVS(22165)*UV(27)+JVS(22166)*UV(2386)+JVS(22167)*UV(4236)+JVS(22169)*UV(5250)+JVS(22170)*UV(5252)& - &+JVS(22171)*UV(5255)+JVS(22172)*UV(5256) - JUV(4237) = JVS(22174)*UV(1329)+JVS(22175)*UV(3123)+JVS(22176)*UV(4237)+JVS(22178)*UV(5250)+JVS(22179)*UV(5252)& - &+JVS(22181)*UV(5255)+JVS(22182)*UV(5256) - JUV(4238) = JVS(22183)*UV(1198)+JVS(22184)*UV(1398)+JVS(22185)*UV(4164)+JVS(22186)*UV(4238)+JVS(22187)*UV(4417)& - &+JVS(22189)*UV(5250)+JVS(22190)*UV(5252)+JVS(22191)*UV(5255)+JVS(22192)*UV(5256) - JUV(4239) = JVS(22193)*UV(2483)+JVS(22194)*UV(3049)+JVS(22195)*UV(3480)+JVS(22196)*UV(3615)+JVS(22197)*UV(3682)& - &+JVS(22198)*UV(4239)+JVS(22199)*UV(4730)+JVS(22202)*UV(5250)+JVS(22205)*UV(5256) - JUV(4240) = JVS(22206)*UV(640)+JVS(22207)*UV(4240)+JVS(22209)*UV(5215)+JVS(22210)*UV(5250)+JVS(22211)*UV(5252)& - &+JVS(22212)*UV(5255)+JVS(22213)*UV(5256) - JUV(4241) = JVS(22215)*UV(120)+JVS(22216)*UV(397)+JVS(22218)*UV(2055)+JVS(22219)*UV(2683)+JVS(22221)*UV(4241)& - &+JVS(22223)*UV(5250)+JVS(22224)*UV(5252)+JVS(22225)*UV(5253)+JVS(22226)*UV(5255)+JVS(22227)*UV(5256) - JUV(4242) = JVS(22228)*UV(20)+JVS(22229)*UV(1887)+JVS(22230)*UV(4242)+JVS(22232)*UV(5250)+JVS(22233)*UV(5252)& - &+JVS(22234)*UV(5255)+JVS(22235)*UV(5256) - JUV(4243) = JVS(22237)*UV(2319)+JVS(22238)*UV(2678)+JVS(22239)*UV(3935)+JVS(22240)*UV(4243)+JVS(22242)*UV(5250)& - &+JVS(22243)*UV(5252)+JVS(22244)*UV(5253)+JVS(22245)*UV(5255)+JVS(22246)*UV(5256) - JUV(4244) = JVS(22247)*UV(865)+JVS(22248)*UV(929)+JVS(22249)*UV(4244)+JVS(22250)*UV(4451)+JVS(22251)*UV(4882)& - &+JVS(22252)*UV(5250)+JVS(22253)*UV(5252)+JVS(22254)*UV(5255)+JVS(22255)*UV(5256) - JUV(4245) = JVS(22256)*UV(972)+JVS(22257)*UV(3190)+JVS(22258)*UV(4245)+JVS(22260)*UV(5250)+JVS(22261)*UV(5252)& - &+JVS(22263)*UV(5255)+JVS(22264)*UV(5256) - JUV(4246) = JVS(22265)*UV(1253)+JVS(22266)*UV(3162)+JVS(22267)*UV(4246)+JVS(22269)*UV(5250)+JVS(22270)*UV(5252)& - &+JVS(22272)*UV(5255)+JVS(22273)*UV(5256) - JUV(4247) = JVS(22274)*UV(790)+JVS(22275)*UV(4247)+JVS(22277)*UV(5251)+JVS(22278)*UV(5252)+JVS(22279)*UV(5253)& - &+JVS(22280)*UV(5254) - JUV(4248) = JVS(22282)*UV(532)+JVS(22283)*UV(831)+JVS(22284)*UV(1179)+JVS(22285)*UV(1667)+JVS(22286)*UV(2172)& - &+JVS(22291)*UV(3932)+JVS(22292)*UV(4248)+JVS(22296)*UV(5250) - JUV(4249) = JVS(22300)*UV(3517)+JVS(22301)*UV(4249)+JVS(22303)*UV(5250)+JVS(22304)*UV(5252)+JVS(22305)*UV(5255)& - &+JVS(22306)*UV(5256) - JUV(4250) = JVS(22308)*UV(701)+JVS(22309)*UV(4250)+JVS(22311)*UV(5251)+JVS(22312)*UV(5252)+JVS(22313)*UV(5253)& - &+JVS(22314)*UV(5254) - JUV(4251) = JVS(22316)*UV(280)+JVS(22317)*UV(1196)+JVS(22318)*UV(2331)+JVS(22319)*UV(3946)+JVS(22320)*UV(4251)& - &+JVS(22322)*UV(5088)+JVS(22323)*UV(5250)+JVS(22324)*UV(5252)+JVS(22325)*UV(5255)+JVS(22326)*UV(5256) - JUV(4252) = JVS(22327)*UV(1524)+JVS(22328)*UV(3116)+JVS(22329)*UV(4252)+JVS(22331)*UV(5250)+JVS(22332)*UV(5252)& - &+JVS(22334)*UV(5255)+JVS(22335)*UV(5256) - JUV(4253) = JVS(22336)*UV(33)+JVS(22337)*UV(82)+JVS(22339)*UV(2443)+JVS(22340)*UV(2863)+JVS(22342)*UV(4253)+JVS(22344)& - &*UV(5250)+JVS(22345)*UV(5252)+JVS(22346)*UV(5253)+JVS(22347)*UV(5255)+JVS(22348)*UV(5256) - JUV(4254) = JVS(22349)*UV(1122)+JVS(22350)*UV(1226)+JVS(22351)*UV(4179)+JVS(22352)*UV(4254)+JVS(22353)*UV(4450)& - &+JVS(22355)*UV(5250)+JVS(22356)*UV(5252)+JVS(22357)*UV(5255)+JVS(22358)*UV(5256) - JUV(4255) = JVS(22359)*UV(1285)+JVS(22360)*UV(2791)+JVS(22361)*UV(4255)+JVS(22362)*UV(4794)+JVS(22363)*UV(5250)& - &+JVS(22364)*UV(5252)+JVS(22365)*UV(5253)+JVS(22366)*UV(5255)+JVS(22367)*UV(5256) - JUV(4256) = JVS(22368)*UV(2101)+JVS(22369)*UV(2590)+JVS(22370)*UV(4256)+JVS(22371)*UV(4894)+JVS(22372)*UV(4945)& - &+JVS(22374)*UV(5154)+JVS(22375)*UV(5250)+JVS(22376)*UV(5252) - JUV(4257) = JVS(22378)*UV(919)+JVS(22379)*UV(2143)+JVS(22381)*UV(4257)+JVS(22382)*UV(4288)+JVS(22383)*UV(4914)& - &+JVS(22384)*UV(5250)+JVS(22385)*UV(5252)+JVS(22387)*UV(5255)+JVS(22388)*UV(5256) - JUV(4258) = JVS(22389)*UV(522)+JVS(22390)*UV(4258)+JVS(22392)*UV(5251)+JVS(22393)*UV(5252)+JVS(22394)*UV(5253)& - &+JVS(22395)*UV(5254) - JUV(4259) = JVS(22397)*UV(2431)+JVS(22398)*UV(2801)+JVS(22399)*UV(4259)+JVS(22400)*UV(4373)+JVS(22401)*UV(5250)& - &+JVS(22402)*UV(5252)+JVS(22403)*UV(5253)+JVS(22404)*UV(5255)+JVS(22405)*UV(5256) - JUV(4260) = JVS(22406)*UV(2144)+JVS(22407)*UV(2677)+JVS(22408)*UV(3991)+JVS(22409)*UV(4260)+JVS(22411)*UV(5250)& - &+JVS(22412)*UV(5252)+JVS(22413)*UV(5253)+JVS(22414)*UV(5255)+JVS(22415)*UV(5256) - JUV(4261) = JVS(22416)*UV(2173)+JVS(22417)*UV(2519)+JVS(22418)*UV(2785)+JVS(22419)*UV(3893)+JVS(22421)*UV(4261)& - &+JVS(22424)*UV(5250)+JVS(22427)*UV(5256) - JUV(4262) = JVS(22428)*UV(825)+JVS(22429)*UV(3181)+JVS(22430)*UV(4262)+JVS(22432)*UV(5250)+JVS(22433)*UV(5252)& - &+JVS(22435)*UV(5255)+JVS(22436)*UV(5256) - JUV(4263) = JVS(22437)*UV(222)+JVS(22438)*UV(909)+JVS(22439)*UV(1436)+JVS(22440)*UV(3612)+JVS(22441)*UV(4263)& - &+JVS(22444)*UV(5250)+JVS(22445)*UV(5252)+JVS(22446)*UV(5255)+JVS(22447)*UV(5256) - JUV(4264) = JVS(22448)*UV(236)+JVS(22449)*UV(4264)+JVS(22450)*UV(5251)+JVS(22451)*UV(5252)+JVS(22452)*UV(5253)& - &+JVS(22453)*UV(5254) - JUV(4265) = JVS(22456)*UV(1096)+JVS(22457)*UV(3167)+JVS(22458)*UV(4265)+JVS(22460)*UV(5250)+JVS(22461)*UV(5252)& - &+JVS(22463)*UV(5255)+JVS(22464)*UV(5256) - JUV(4266) = JVS(22465)*UV(1770)+JVS(22466)*UV(2898)+JVS(22467)*UV(4151)+JVS(22468)*UV(4266)+JVS(22470)*UV(5250)& - &+JVS(22471)*UV(5252)+JVS(22472)*UV(5253)+JVS(22473)*UV(5255)+JVS(22474)*UV(5256) - JUV(4267) = JVS(22475)*UV(2529)+JVS(22476)*UV(2763)+JVS(22477)*UV(3571)+JVS(22479)*UV(4267)+JVS(22481)*UV(5250)& - &+JVS(22482)*UV(5252)+JVS(22483)*UV(5253)+JVS(22484)*UV(5255)+JVS(22485)*UV(5256) - JUV(4268) = JVS(22486)*UV(886)+JVS(22487)*UV(1888)+JVS(22488)*UV(4268)+JVS(22489)*UV(5086)+JVS(22490)*UV(5111)& - &+JVS(22491)*UV(5250)+JVS(22492)*UV(5252)+JVS(22493)*UV(5255)+JVS(22494)*UV(5256) - JUV(4269) = JVS(22495)*UV(2402)+JVS(22496)*UV(2576)+JVS(22497)*UV(3228)+JVS(22498)*UV(4269)+JVS(22500)*UV(5250)& - &+JVS(22501)*UV(5252)+JVS(22502)*UV(5253)+JVS(22503)*UV(5255)+JVS(22504)*UV(5256) - JUV(4270) = JVS(22505)*UV(1115)+JVS(22506)*UV(1418)+JVS(22507)*UV(4122)+JVS(22508)*UV(4270)+JVS(22509)*UV(4443)& - &+JVS(22511)*UV(5250)+JVS(22512)*UV(5252)+JVS(22513)*UV(5255)+JVS(22514)*UV(5256) - JUV(4271) = JVS(22515)*UV(1508)+JVS(22516)*UV(3146)+JVS(22517)*UV(4271)+JVS(22519)*UV(5250)+JVS(22520)*UV(5252)& - &+JVS(22522)*UV(5255)+JVS(22523)*UV(5256) - JUV(4272) = JVS(22524)*UV(3129)+JVS(22525)*UV(4272)+JVS(22526)*UV(5250)+JVS(22527)*UV(5256)+JVS(22528)*UV(5258) - JUV(4273) = JVS(22529)*UV(1105)+JVS(22530)*UV(3092)+JVS(22531)*UV(4273)+JVS(22533)*UV(5250)+JVS(22534)*UV(5252)& - &+JVS(22536)*UV(5255)+JVS(22537)*UV(5256) - JUV(4274) = JVS(22538)*UV(1759)+JVS(22539)*UV(3124)+JVS(22541)*UV(4274)+JVS(22544)*UV(5250)+JVS(22545)*UV(5252)& - &+JVS(22546)*UV(5255)+JVS(22547)*UV(5256) - JUV(4275) = JVS(22548)*UV(2384)+JVS(22549)*UV(2698)+JVS(22550)*UV(4275)+JVS(22551)*UV(5067)+JVS(22552)*UV(5250)& - &+JVS(22553)*UV(5252)+JVS(22554)*UV(5253)+JVS(22555)*UV(5255)+JVS(22556)*UV(5256) - JUV(4276) = JVS(22557)*UV(1273)+JVS(22558)*UV(3137)+JVS(22559)*UV(4276)+JVS(22561)*UV(5250)+JVS(22562)*UV(5252)& - &+JVS(22564)*UV(5255)+JVS(22565)*UV(5256) - JUV(4277) = JVS(22566)*UV(2971)+JVS(22567)*UV(3460)+JVS(22568)*UV(3600)+JVS(22569)*UV(4277)+JVS(22571)*UV(4933)& - &+JVS(22572)*UV(5250)+JVS(22573)*UV(5252)+JVS(22574)*UV(5255)+JVS(22575)*UV(5256) - JUV(4278) = JVS(22576)*UV(696)+JVS(22577)*UV(754)+JVS(22578)*UV(1312)+JVS(22579)*UV(2214)+JVS(22580)*UV(2759)& - &+JVS(22581)*UV(2942)+JVS(22584)*UV(4278)+JVS(22585)*UV(4350)+JVS(22588)*UV(5250)+JVS(22591)*UV(5256) - JUV(4279) = JVS(22592)*UV(554)+JVS(22593)*UV(1213)+JVS(22594)*UV(2256)+JVS(22595)*UV(4128)+JVS(22596)*UV(4279)& - &+JVS(22597)*UV(4960)+JVS(22599)*UV(5250)+JVS(22602)*UV(5256) - JUV(4280) = JVS(22603)*UV(860)+JVS(22604)*UV(3123)+JVS(22605)*UV(4280)+JVS(22607)*UV(5250)+JVS(22608)*UV(5252)& - &+JVS(22610)*UV(5255)+JVS(22611)*UV(5256) - JUV(4281) = JVS(22612)*UV(2396)+JVS(22613)*UV(2738)+JVS(22614)*UV(4281)+JVS(22615)*UV(5009)+JVS(22616)*UV(5250)& - &+JVS(22617)*UV(5252)+JVS(22618)*UV(5253)+JVS(22619)*UV(5255)+JVS(22620)*UV(5256) - JUV(4282) = JVS(22621)*UV(563)+JVS(22622)*UV(4282)+JVS(22624)*UV(5251)+JVS(22625)*UV(5252)+JVS(22626)*UV(5253)& - &+JVS(22627)*UV(5254) - JUV(4283) = JVS(22629)*UV(2371)+JVS(22630)*UV(2896)+JVS(22631)*UV(4283)+JVS(22632)*UV(4873)+JVS(22633)*UV(5250)& - &+JVS(22634)*UV(5252)+JVS(22635)*UV(5253)+JVS(22636)*UV(5255)+JVS(22637)*UV(5256) - JUV(4284) = JVS(22638)*UV(1947)+JVS(22639)*UV(2028)+JVS(22640)*UV(2478)+JVS(22641)*UV(4284)+JVS(22644)*UV(5250)& - &+JVS(22645)*UV(5252)+JVS(22646)*UV(5255)+JVS(22647)*UV(5256) - JUV(4285) = JVS(22648)*UV(1166)+JVS(22649)*UV(3191)+JVS(22650)*UV(4285)+JVS(22652)*UV(5250)+JVS(22653)*UV(5252)& - &+JVS(22655)*UV(5255)+JVS(22656)*UV(5256) - JUV(4286) = JVS(22657)*UV(3155)+JVS(22658)*UV(4286)+JVS(22660)*UV(5251)+JVS(22661)*UV(5252)+JVS(22662)*UV(5253)& - &+JVS(22663)*UV(5254) - JUV(4287) = JVS(22665)*UV(1148)+JVS(22666)*UV(3087)+JVS(22667)*UV(4287)+JVS(22669)*UV(5250)+JVS(22670)*UV(5252)& - &+JVS(22672)*UV(5255)+JVS(22673)*UV(5256) - JUV(4288) = JVS(22674)*UV(919)+JVS(22675)*UV(3307)+JVS(22676)*UV(4288)+JVS(22677)*UV(4914)+JVS(22678)*UV(5250)& - &+JVS(22679)*UV(5252)+JVS(22680)*UV(5253)+JVS(22681)*UV(5255)+JVS(22682)*UV(5256) - JUV(4289) = JVS(22683)*UV(1029)+JVS(22684)*UV(3143)+JVS(22685)*UV(4289)+JVS(22687)*UV(5250)+JVS(22688)*UV(5252)& - &+JVS(22690)*UV(5255)+JVS(22691)*UV(5256) - JUV(4290) = JVS(22692)*UV(138)+JVS(22694)*UV(2151)+JVS(22698)*UV(4290)+JVS(22700)*UV(5250)+JVS(22701)*UV(5252)& - &+JVS(22703)*UV(5255)+JVS(22704)*UV(5256) - JUV(4291) = JVS(22705)*UV(917)+JVS(22706)*UV(3095)+JVS(22707)*UV(4291)+JVS(22709)*UV(5250)+JVS(22710)*UV(5252)& - &+JVS(22712)*UV(5255)+JVS(22713)*UV(5256) - JUV(4292) = JVS(22714)*UV(1144)+JVS(22715)*UV(3112)+JVS(22716)*UV(4292)+JVS(22718)*UV(5250)+JVS(22719)*UV(5252)& - &+JVS(22721)*UV(5255)+JVS(22722)*UV(5256) - JUV(4293) = JVS(22723)*UV(1104)+JVS(22724)*UV(3095)+JVS(22725)*UV(4293)+JVS(22727)*UV(5250)+JVS(22728)*UV(5252)& - &+JVS(22730)*UV(5255)+JVS(22731)*UV(5256) - JUV(4294) = JVS(22732)*UV(2085)+JVS(22733)*UV(2870)+JVS(22734)*UV(3211)+JVS(22736)*UV(3280)+JVS(22737)*UV(3502)& - &+JVS(22738)*UV(3563)+JVS(22740)*UV(4294)+JVS(22742)*UV(4805)+JVS(22749)*UV(5172)+JVS(22750)*UV(5250)& - &+JVS(22752)*UV(5255)+JVS(22754)*UV(5258) - JUV(4295) = JVS(22755)*UV(351)+JVS(22756)*UV(1209)+JVS(22757)*UV(1761)+JVS(22759)*UV(4224)+JVS(22760)*UV(4295)& - &+JVS(22761)*UV(4496)+JVS(22763)*UV(5250)+JVS(22764)*UV(5252)+JVS(22766)*UV(5255)+JVS(22767)*UV(5256) - JUV(4296) = JVS(22768)*UV(878)+JVS(22769)*UV(3100)+JVS(22770)*UV(4296)+JVS(22772)*UV(5250)+JVS(22773)*UV(5252)& - &+JVS(22775)*UV(5255)+JVS(22776)*UV(5256) - JUV(4297) = JVS(22777)*UV(1101)+JVS(22778)*UV(3087)+JVS(22779)*UV(4297)+JVS(22781)*UV(5250)+JVS(22782)*UV(5252)& - &+JVS(22784)*UV(5255)+JVS(22785)*UV(5256) - JUV(4298) = JVS(22786)*UV(1420)+JVS(22787)*UV(3163)+JVS(22788)*UV(4298)+JVS(22790)*UV(5250)+JVS(22791)*UV(5252)& - &+JVS(22793)*UV(5255)+JVS(22794)*UV(5256) - JUV(4299) = JVS(22795)*UV(16)+JVS(22796)*UV(106)+JVS(22798)*UV(2754)+JVS(22799)*UV(3052)+JVS(22801)*UV(4299)& - &+JVS(22803)*UV(5250)+JVS(22804)*UV(5252)+JVS(22805)*UV(5253)+JVS(22806)*UV(5255)+JVS(22807)*UV(5256) - JUV(4300) = JVS(22808)*UV(437)+JVS(22809)*UV(836)+JVS(22810)*UV(2030)+JVS(22811)*UV(2189)+JVS(22812)*UV(3718)& - &+JVS(22813)*UV(4300)+JVS(22814)*UV(4784)+JVS(22816)*UV(5250) - JUV(4301) = JVS(22820)*UV(2146)+JVS(22821)*UV(3017)+JVS(22822)*UV(4186)+JVS(22823)*UV(4301)+JVS(22825)*UV(5250)& - &+JVS(22826)*UV(5252)+JVS(22827)*UV(5253)+JVS(22828)*UV(5255)+JVS(22829)*UV(5256) - JUV(4302) = JVS(22830)*UV(640)+JVS(22831)*UV(4302)+JVS(22833)*UV(5251)+JVS(22834)*UV(5252)+JVS(22835)*UV(5253)& - &+JVS(22836)*UV(5254) - JUV(4303) = JVS(22838)*UV(1255)+JVS(22839)*UV(3119)+JVS(22840)*UV(4303)+JVS(22842)*UV(5250)+JVS(22843)*UV(5252)& - &+JVS(22845)*UV(5255)+JVS(22846)*UV(5256) - JUV(4304) = JVS(22847)*UV(1512)+JVS(22848)*UV(3162)+JVS(22849)*UV(4304)+JVS(22851)*UV(5250)+JVS(22852)*UV(5252)& - &+JVS(22854)*UV(5255)+JVS(22855)*UV(5256) - JUV(4305) = JVS(22856)*UV(913)+JVS(22857)*UV(3120)+JVS(22858)*UV(4305)+JVS(22860)*UV(5250)+JVS(22861)*UV(5252)& - &+JVS(22863)*UV(5255)+JVS(22864)*UV(5256) - JUV(4306) = JVS(22865)*UV(835)+JVS(22866)*UV(3088)+JVS(22867)*UV(4306)+JVS(22869)*UV(5250)+JVS(22870)*UV(5252)& - &+JVS(22872)*UV(5255)+JVS(22873)*UV(5256) - JUV(4307) = JVS(22874)*UV(923)+JVS(22875)*UV(3100)+JVS(22876)*UV(4307)+JVS(22878)*UV(5250)+JVS(22879)*UV(5252)& - &+JVS(22881)*UV(5255)+JVS(22882)*UV(5256) - JUV(4308) = JVS(22883)*UV(130)+JVS(22884)*UV(490)+JVS(22886)*UV(2725)+JVS(22887)*UV(2911)+JVS(22889)*UV(4308)& - &+JVS(22891)*UV(5250)+JVS(22892)*UV(5252)+JVS(22893)*UV(5253)+JVS(22894)*UV(5255)+JVS(22895)*UV(5256) - JUV(4309) = JVS(22896)*UV(2084)+JVS(22897)*UV(3298)+JVS(22899)*UV(4309)+JVS(22902)*UV(5250)+JVS(22903)*UV(5252)& - &+JVS(22904)*UV(5255)+JVS(22905)*UV(5256) - JUV(4310) = JVS(22906)*UV(519)+JVS(22907)*UV(1477)+JVS(22908)*UV(1730)+JVS(22909)*UV(3986)+JVS(22910)*UV(4310)& - &+JVS(22911)*UV(4523)+JVS(22914)*UV(5250)+JVS(22915)*UV(5252)+JVS(22916)*UV(5255)+JVS(22917)*UV(5256) - JUV(4311) = JVS(22918)*UV(1370)+JVS(22919)*UV(1409)+JVS(22920)*UV(1968)+JVS(22921)*UV(3833)+JVS(22922)*UV(4311)& - &+JVS(22923)*UV(4654)+JVS(22924)*UV(5250)+JVS(22925)*UV(5252)+JVS(22926)*UV(5255)+JVS(22927)*UV(5256) - JUV(4312) = JVS(22929)*UV(1399)+JVS(22930)*UV(3116)+JVS(22931)*UV(4312)+JVS(22933)*UV(5250)+JVS(22934)*UV(5252)& - &+JVS(22936)*UV(5255)+JVS(22937)*UV(5256) - JUV(4313) = JVS(22938)*UV(1627)+JVS(22939)*UV(2259)+JVS(22940)*UV(2513)+JVS(22943)*UV(3038)+JVS(22944)*UV(3854)& - &+JVS(22946)*UV(4313)+JVS(22949)*UV(5250)+JVS(22952)*UV(5256) - JUV(4314) = JVS(22953)*UV(1358)+JVS(22954)*UV(3127)+JVS(22955)*UV(4314)+JVS(22957)*UV(5250)+JVS(22958)*UV(5252)& - &+JVS(22960)*UV(5255)+JVS(22961)*UV(5256) - JUV(4315) = JVS(22962)*UV(168)+JVS(22965)*UV(3270)+JVS(22967)*UV(4315)+JVS(22969)*UV(5250)+JVS(22970)*UV(5252)& - &+JVS(22972)*UV(5255)+JVS(22973)*UV(5256) - JUV(4316) = JVS(22974)*UV(232)+JVS(22976)*UV(2434)+JVS(22977)*UV(2815)+JVS(22978)*UV(4316)+JVS(22980)*UV(5250)& - &+JVS(22981)*UV(5252)+JVS(22982)*UV(5253)+JVS(22983)*UV(5255)+JVS(22984)*UV(5256) - JUV(4317) = JVS(22985)*UV(1187)+JVS(22986)*UV(3142)+JVS(22987)*UV(4317)+JVS(22989)*UV(5250)+JVS(22990)*UV(5252)& - &+JVS(22992)*UV(5255)+JVS(22993)*UV(5256) - JUV(4318) = JVS(22994)*UV(1217)+JVS(22995)*UV(1498)+JVS(22996)*UV(4318)+JVS(22997)*UV(4627)+JVS(22998)*UV(4717)& - &+JVS(22999)*UV(5250)+JVS(23000)*UV(5252)+JVS(23001)*UV(5255)+JVS(23002)*UV(5256) - JUV(4319) = JVS(23003)*UV(151)+JVS(23005)*UV(1155)+JVS(23007)*UV(3213)+JVS(23009)*UV(4319)+JVS(23011)*UV(5250)& - &+JVS(23012)*UV(5252)+JVS(23014)*UV(5255)+JVS(23015)*UV(5256) - JUV(4320) = JVS(23016)*UV(477)+JVS(23017)*UV(4320)+JVS(23019)*UV(5251)+JVS(23020)*UV(5252)+JVS(23021)*UV(5253)& - &+JVS(23022)*UV(5254) - JUV(4321) = JVS(23024)*UV(2308)+JVS(23025)*UV(4321)+JVS(23027)*UV(5252)+JVS(23028)*UV(5255)+JVS(23029)*UV(5256) - JUV(4322) = JVS(23030)*UV(17)+JVS(23031)*UV(959)+JVS(23032)*UV(1669)+JVS(23033)*UV(2649)+JVS(23034)*UV(3518)& - &+JVS(23036)*UV(4322)+JVS(23037)*UV(5250)+JVS(23038)*UV(5252)+JVS(23040)*UV(5256) - JUV(4323) = JVS(23041)*UV(2048)+JVS(23042)*UV(2342)+JVS(23044)*UV(4323)+JVS(23045)*UV(5250)+JVS(23046)*UV(5252)& - &+JVS(23047)*UV(5255)+JVS(23048)*UV(5256) - JUV(4324) = JVS(23049)*UV(57)+JVS(23050)*UV(90)+JVS(23052)*UV(2349)+JVS(23053)*UV(2615)+JVS(23056)*UV(4324)+JVS(23057)& - &*UV(5250)+JVS(23058)*UV(5252)+JVS(23059)*UV(5253)+JVS(23060)*UV(5255)+JVS(23061)*UV(5256) - JUV(4325) = JVS(23062)*UV(1726)+JVS(23063)*UV(2349)+JVS(23064)*UV(2615)+JVS(23065)*UV(2631)+JVS(23066)*UV(2838)& - &+JVS(23067)*UV(3455)+JVS(23068)*UV(4013)+JVS(23069)*UV(4324)+JVS(23070)*UV(4325)+JVS(23071)*UV(4706)& - &+JVS(23072)*UV(5250)+JVS(23073)*UV(5252)+JVS(23075)*UV(5255)+JVS(23076)*UV(5256) - JUV(4326) = JVS(23077)*UV(109)+JVS(23078)*UV(1157)+JVS(23079)*UV(1549)+JVS(23080)*UV(3321)+JVS(23081)*UV(3491)& - &+JVS(23083)*UV(4326)+JVS(23084)*UV(5250)+JVS(23085)*UV(5252)+JVS(23087)*UV(5256) - JUV(4327) = JVS(23088)*UV(1936)+JVS(23089)*UV(2093)+JVS(23091)*UV(4327)+JVS(23092)*UV(5250)+JVS(23093)*UV(5252)& - &+JVS(23094)*UV(5255)+JVS(23095)*UV(5256) - JUV(4328) = JVS(23096)*UV(3209)+JVS(23097)*UV(3821)+JVS(23099)*UV(4328)+JVS(23101)*UV(4968)+JVS(23102)*UV(5250)& - &+JVS(23103)*UV(5252)+JVS(23104)*UV(5255)+JVS(23105)*UV(5256) - JUV(4329) = JVS(23107)*UV(2039)+JVS(23108)*UV(2082)+JVS(23109)*UV(2970)+JVS(23110)*UV(3593)+JVS(23111)*UV(3729)& - &+JVS(23114)*UV(4329)+JVS(23116)*UV(5250)+JVS(23117)*UV(5252)+JVS(23118)*UV(5253)+JVS(23119)*UV(5255)& - &+JVS(23120)*UV(5256) - JUV(4330) = JVS(23121)*UV(4330)+JVS(23122)*UV(5128)+JVS(23123)*UV(5250)+JVS(23124)*UV(5253)+JVS(23125)*UV(5258) - JUV(4331) = JVS(23126)*UV(2551)+JVS(23127)*UV(2557)+JVS(23128)*UV(2586)+JVS(23129)*UV(2736)+JVS(23130)*UV(2952)& - &+JVS(23131)*UV(3016)+JVS(23132)*UV(3363)+JVS(23133)*UV(3381)+JVS(23140)*UV(4331)+JVS(23147)*UV(5250) - JUV(4332) = JVS(23152)*UV(4332)+JVS(23153)*UV(5250)+JVS(23154)*UV(5256)+JVS(23155)*UV(5258) - JUV(4333) = JVS(23156)*UV(3465)+JVS(23157)*UV(3466)+JVS(23158)*UV(4332)+JVS(23159)*UV(4333)+JVS(23160)*UV(4475)& - &+JVS(23161)*UV(4604)+JVS(23162)*UV(4606)+JVS(23163)*UV(4840)+JVS(23166)*UV(5258) - JUV(4334) = JVS(23167)*UV(3594)+JVS(23168)*UV(4334)+JVS(23170)*UV(5250)+JVS(23171)*UV(5252)+JVS(23172)*UV(5255)& - &+JVS(23173)*UV(5256) - JUV(4335) = JVS(23174)*UV(914)+JVS(23175)*UV(4017)+JVS(23176)*UV(4335)+JVS(23177)*UV(5250)+JVS(23178)*UV(5252)& - &+JVS(23179)*UV(5255)+JVS(23180)*UV(5256) - JUV(4336) = JVS(23182)*UV(2558)+JVS(23183)*UV(3843)+JVS(23184)*UV(4336)+JVS(23186)*UV(5250)+JVS(23187)*UV(5252)& - &+JVS(23188)*UV(5255)+JVS(23189)*UV(5256) - JUV(4337) = JVS(23190)*UV(1364)+JVS(23191)*UV(4337)+JVS(23192)*UV(4794)+JVS(23193)*UV(5250)+JVS(23194)*UV(5252)& - &+JVS(23195)*UV(5255)+JVS(23196)*UV(5256) - JUV(4338) = JVS(23197)*UV(1283)+JVS(23198)*UV(2956)+JVS(23199)*UV(3640)+JVS(23200)*UV(4338)+JVS(23201)*UV(5250)& - &+JVS(23202)*UV(5252)+JVS(23203)*UV(5253)+JVS(23204)*UV(5255)+JVS(23205)*UV(5256) - JUV(4339) = JVS(23206)*UV(4339)+JVS(23207)*UV(5002)+JVS(23208)*UV(5250)+JVS(23209)*UV(5252)+JVS(23210)*UV(5255)& - &+JVS(23211)*UV(5256) - JUV(4340) = JVS(23212)*UV(1984)+JVS(23215)*UV(4340)+JVS(23218)*UV(5252)+JVS(23219)*UV(5255)+JVS(23220)*UV(5256) - JUV(4341) = JVS(23221)*UV(4341)+JVS(23222)*UV(5093)+JVS(23223)*UV(5250)+JVS(23224)*UV(5252)+JVS(23225)*UV(5255)& - &+JVS(23226)*UV(5256) - JUV(4342) = JVS(23227)*UV(252)+JVS(23228)*UV(1107)+JVS(23229)*UV(4342)+JVS(23230)*UV(5027)+JVS(23231)*UV(5250)& - &+JVS(23232)*UV(5252)+JVS(23233)*UV(5255)+JVS(23234)*UV(5256) - JUV(4343) = JVS(23235)*UV(1926)+JVS(23236)*UV(3642)+JVS(23238)*UV(4343)+JVS(23240)*UV(5250)+JVS(23241)*UV(5252)& - &+JVS(23243)*UV(5255)+JVS(23244)*UV(5256) - JUV(4344) = JVS(23245)*UV(829)+JVS(23246)*UV(3409)+JVS(23248)*UV(4344)+JVS(23250)*UV(5250)+JVS(23251)*UV(5252)& - &+JVS(23252)*UV(5255)+JVS(23253)*UV(5256) - JUV(4345) = JVS(23254)*UV(3278)+JVS(23255)*UV(3364)+JVS(23257)*UV(4345)+JVS(23259)*UV(5250)+JVS(23260)*UV(5252)& - &+JVS(23261)*UV(5255)+JVS(23262)*UV(5256) - JUV(4346) = JVS(23263)*UV(998)+JVS(23264)*UV(1344)+JVS(23265)*UV(4346)+JVS(23266)*UV(4854)+JVS(23267)*UV(5250)& - &+JVS(23268)*UV(5252)+JVS(23269)*UV(5255)+JVS(23270)*UV(5256) - JUV(4347) = JVS(23271)*UV(2602)+JVS(23272)*UV(4347)+JVS(23273)*UV(5076)+JVS(23274)*UV(5250)+JVS(23275)*UV(5252)& - &+JVS(23276)*UV(5255)+JVS(23277)*UV(5256) - JUV(4348) = JVS(23278)*UV(1884)+JVS(23279)*UV(2939)+JVS(23280)*UV(4348)+JVS(23282)*UV(5250)+JVS(23283)*UV(5252)& - &+JVS(23284)*UV(5255)+JVS(23285)*UV(5256) - JUV(4349) = JVS(23286)*UV(803)+JVS(23288)*UV(4349)+JVS(23290)*UV(5250)+JVS(23291)*UV(5252)+JVS(23292)*UV(5255)& - &+JVS(23293)*UV(5256) - JUV(4350) = JVS(23294)*UV(1803)+JVS(23297)*UV(4350)+JVS(23300)*UV(5252)+JVS(23301)*UV(5255)+JVS(23302)*UV(5256) - JUV(4351) = JVS(23303)*UV(1859)+JVS(23304)*UV(4351)+JVS(23305)*UV(5200)+JVS(23306)*UV(5250)+JVS(23307)*UV(5252)& - &+JVS(23308)*UV(5255)+JVS(23309)*UV(5256) - JUV(4352) = JVS(23310)*UV(558)+JVS(23311)*UV(1916)+JVS(23312)*UV(2580)+JVS(23313)*UV(2635)+JVS(23315)*UV(4352)& - &+JVS(23316)*UV(4724)+JVS(23317)*UV(4772)+JVS(23319)*UV(5250)+JVS(23320)*UV(5252)+JVS(23322)*UV(5255)& - &+JVS(23323)*UV(5256) - JUV(4353) = JVS(23325)*UV(4353)+JVS(23326)*UV(4840)+JVS(23327)*UV(5250)+JVS(23328)*UV(5252)+JVS(23329)*UV(5255)& - &+JVS(23330)*UV(5256) - JUV(4354) = JVS(23331)*UV(2009)+JVS(23332)*UV(4354)+JVS(23333)*UV(4882)+JVS(23334)*UV(5250)+JVS(23335)*UV(5252)& - &+JVS(23336)*UV(5255)+JVS(23337)*UV(5256) - JUV(4355) = JVS(23338)*UV(609)+JVS(23340)*UV(4355)+JVS(23342)*UV(5250)+JVS(23343)*UV(5252)+JVS(23344)*UV(5255)& - &+JVS(23345)*UV(5256) - JUV(4356) = JVS(23346)*UV(2401)+JVS(23347)*UV(3843)+JVS(23348)*UV(4356)+JVS(23350)*UV(5250)+JVS(23351)*UV(5252)& - &+JVS(23352)*UV(5255)+JVS(23353)*UV(5256) - JUV(4357) = JVS(23354)*UV(1499)+JVS(23355)*UV(4357)+JVS(23356)*UV(5063)+JVS(23357)*UV(5250)+JVS(23358)*UV(5252)& - &+JVS(23359)*UV(5255)+JVS(23360)*UV(5256) - JUV(4358) = JVS(23361)*UV(3446)+JVS(23362)*UV(4358)+JVS(23363)*UV(5058)+JVS(23364)*UV(5250)+JVS(23365)*UV(5252)& - &+JVS(23366)*UV(5255)+JVS(23367)*UV(5256) - JUV(4359) = JVS(23368)*UV(2647)+JVS(23369)*UV(3205)+JVS(23370)*UV(4359)+JVS(23372)*UV(5250)+JVS(23373)*UV(5252)& - &+JVS(23374)*UV(5255)+JVS(23375)*UV(5256) - JUV(4360) = JVS(23376)*UV(188)+JVS(23380)*UV(4360)+JVS(23383)*UV(5252)+JVS(23384)*UV(5255)+JVS(23385)*UV(5256) - JUV(4361) = JVS(23386)*UV(794)+JVS(23388)*UV(4361)+JVS(23390)*UV(5250)+JVS(23391)*UV(5252)+JVS(23392)*UV(5255)& - &+JVS(23393)*UV(5256) - JUV(4362) = JVS(23394)*UV(2694)+JVS(23396)*UV(4362)+JVS(23398)*UV(5250)+JVS(23401)*UV(5256) - JUV(4363) = JVS(23402)*UV(326)+JVS(23405)*UV(4363)+JVS(23408)*UV(5252)+JVS(23409)*UV(5255)+JVS(23410)*UV(5256) - JUV(4364) = JVS(23411)*UV(2010)+JVS(23412)*UV(4364)+JVS(23413)*UV(4555)+JVS(23414)*UV(5250)+JVS(23415)*UV(5252)& - &+JVS(23416)*UV(5255)+JVS(23417)*UV(5256) - JUV(4365) = JVS(23418)*UV(167)+JVS(23421)*UV(3473)+JVS(23423)*UV(4365)+JVS(23425)*UV(5250)+JVS(23426)*UV(5252)& - &+JVS(23427)*UV(5255)+JVS(23428)*UV(5256) - JUV(4366) = JVS(23429)*UV(645)+JVS(23430)*UV(1892)+JVS(23432)*UV(2568)+JVS(23433)*UV(3215)+JVS(23434)*UV(3216)& - &+JVS(23436)*UV(3276)+JVS(23437)*UV(3324)+JVS(23438)*UV(3490)+JVS(23440)*UV(3837)+JVS(23443)*UV(4366)& - &+JVS(23448)*UV(5250) - JUV(4367) = JVS(23453)*UV(2572)+JVS(23454)*UV(3843)+JVS(23455)*UV(4367)+JVS(23457)*UV(5250)+JVS(23458)*UV(5252)& - &+JVS(23459)*UV(5255)+JVS(23460)*UV(5256) - JUV(4368) = JVS(23461)*UV(3472)+JVS(23462)*UV(4368)+JVS(23464)*UV(5250)+JVS(23465)*UV(5252)+JVS(23466)*UV(5255)& - &+JVS(23467)*UV(5256) - JUV(4369) = JVS(23468)*UV(602)+JVS(23470)*UV(4369)+JVS(23472)*UV(5250)+JVS(23473)*UV(5252)+JVS(23474)*UV(5255)& - &+JVS(23475)*UV(5256) - JUV(4370) = JVS(23476)*UV(2442)+JVS(23477)*UV(4370)+JVS(23478)*UV(5200)+JVS(23479)*UV(5250)+JVS(23480)*UV(5252)& - &+JVS(23481)*UV(5255)+JVS(23482)*UV(5256) - JUV(4371) = JVS(23483)*UV(1350)+JVS(23484)*UV(4371)+JVS(23485)*UV(5073)+JVS(23487)*UV(5252)+JVS(23488)*UV(5255)& - &+JVS(23489)*UV(5256) - JUV(4372) = JVS(23490)*UV(4372)+JVS(23491)*UV(5153)+JVS(23492)*UV(5250)+JVS(23493)*UV(5252)+JVS(23494)*UV(5255)& - &+JVS(23495)*UV(5256) - JUV(4373) = JVS(23496)*UV(1395)+JVS(23497)*UV(2222)+JVS(23499)*UV(4372)+JVS(23500)*UV(4373)+JVS(23502)*UV(5250)& - &+JVS(23505)*UV(5256) - JUV(4374) = JVS(23506)*UV(153)+JVS(23509)*UV(4374)+JVS(23512)*UV(5252)+JVS(23513)*UV(5255)+JVS(23514)*UV(5256) - JUV(4375) = JVS(23515)*UV(1355)+JVS(23516)*UV(3199)+JVS(23517)*UV(3661)+JVS(23518)*UV(4375)+JVS(23519)*UV(5250)& - &+JVS(23520)*UV(5252)+JVS(23521)*UV(5253)+JVS(23522)*UV(5255)+JVS(23523)*UV(5256) - JUV(4376) = JVS(23524)*UV(227)+JVS(23525)*UV(1355)+JVS(23526)*UV(2177)+JVS(23528)*UV(3661)+JVS(23529)*UV(4375)& - &+JVS(23530)*UV(4376)+JVS(23531)*UV(4478)+JVS(23532)*UV(5250)+JVS(23533)*UV(5252)+JVS(23535)*UV(5255)& - &+JVS(23536)*UV(5256)+JVS(23537)*UV(5258) - JUV(4377) = JVS(23538)*UV(4094)+JVS(23539)*UV(4377)+JVS(23540)*UV(5250)+JVS(23541)*UV(5252)+JVS(23542)*UV(5255)& - &+JVS(23543)*UV(5256) - JUV(4378) = JVS(23545)*UV(261)+JVS(23547)*UV(4378)+JVS(23549)*UV(5174)+JVS(23550)*UV(5250)+JVS(23551)*UV(5252) - JUV(4379) = JVS(23553)*UV(2766)+JVS(23554)*UV(3664)+JVS(23555)*UV(4379)+JVS(23556)*UV(4888)+JVS(23557)*UV(5250)& - &+JVS(23558)*UV(5252)+JVS(23559)*UV(5255)+JVS(23560)*UV(5256) - JUV(4380) = JVS(23561)*UV(1106)+JVS(23562)*UV(1573)+JVS(23563)*UV(2743)+JVS(23564)*UV(4380)+JVS(23565)*UV(5250)& - &+JVS(23566)*UV(5252)+JVS(23567)*UV(5253)+JVS(23568)*UV(5255)+JVS(23569)*UV(5256) - JUV(4381) = JVS(23570)*UV(1830)+JVS(23571)*UV(2274)+JVS(23572)*UV(4381)+JVS(23574)*UV(5250)+JVS(23575)*UV(5252)& - &+JVS(23576)*UV(5255)+JVS(23577)*UV(5256) - JUV(4382) = JVS(23578)*UV(4382)+JVS(23579)*UV(5194)+JVS(23580)*UV(5250)+JVS(23581)*UV(5252)+JVS(23582)*UV(5255)& - &+JVS(23583)*UV(5256) - JUV(4383) = JVS(23584)*UV(1246)+JVS(23585)*UV(1848)+JVS(23587)*UV(3524)+JVS(23589)*UV(4383)+JVS(23591)*UV(4749)& - &+JVS(23592)*UV(5002)+JVS(23593)*UV(5241)+JVS(23594)*UV(5250)+JVS(23596)*UV(5255)+JVS(23598)*UV(5258) - JUV(4384) = JVS(23599)*UV(2910)+JVS(23600)*UV(3274)+JVS(23601)*UV(4384)+JVS(23603)*UV(5250)+JVS(23604)*UV(5252)& - &+JVS(23605)*UV(5255)+JVS(23606)*UV(5256) - JUV(4385) = JVS(23607)*UV(1961)+JVS(23609)*UV(2909)+JVS(23612)*UV(4385)+JVS(23614)*UV(5250)+JVS(23615)*UV(5252)& - &+JVS(23616)*UV(5255)+JVS(23617)*UV(5256) - JUV(4386) = JVS(23618)*UV(335)+JVS(23619)*UV(1782)+JVS(23620)*UV(2503)+JVS(23621)*UV(2684)+JVS(23622)*UV(2999)& - &+JVS(23623)*UV(4386)+JVS(23626)*UV(5007)+JVS(23628)*UV(5098)+JVS(23629)*UV(5250) - JUV(4387) = JVS(23633)*UV(3465)+JVS(23634)*UV(3466)+JVS(23635)*UV(4387)+JVS(23637)*UV(5252)+JVS(23638)*UV(5255)& - &+JVS(23639)*UV(5256) - JUV(4388) = JVS(23641)*UV(732)+JVS(23642)*UV(851)+JVS(23643)*UV(4377)+JVS(23644)*UV(4388)+JVS(23646)*UV(5252)& - &+JVS(23648)*UV(5256) - JUV(4389) = JVS(23650)*UV(769)+JVS(23652)*UV(4389)+JVS(23654)*UV(5250)+JVS(23655)*UV(5252)+JVS(23656)*UV(5255)& - &+JVS(23657)*UV(5256) - JUV(4390) = JVS(23658)*UV(2878)+JVS(23659)*UV(3505)+JVS(23660)*UV(4390)+JVS(23662)*UV(5250)+JVS(23663)*UV(5252)& - &+JVS(23664)*UV(5255)+JVS(23665)*UV(5256) - JUV(4391) = JVS(23666)*UV(289)+JVS(23667)*UV(1490)+JVS(23668)*UV(1633)+JVS(23669)*UV(1978)+JVS(23670)*UV(2646)& - &+JVS(23671)*UV(2846)+JVS(23672)*UV(2981)+JVS(23673)*UV(4391)+JVS(23676)*UV(5120)+JVS(23677)*UV(5151)& - &+JVS(23678)*UV(5250) - JUV(4392) = JVS(23683)*UV(1646)+JVS(23684)*UV(2437)+JVS(23685)*UV(2483)+JVS(23686)*UV(2703)+JVS(23687)*UV(3480)& - &+JVS(23688)*UV(3602)+JVS(23689)*UV(3615)+JVS(23690)*UV(4116)+JVS(23691)*UV(4169)+JVS(23693)*UV(4392)& - &+JVS(23698)*UV(5250) - JUV(4393) = JVS(23703)*UV(531)+JVS(23704)*UV(1065)+JVS(23705)*UV(4393)+JVS(23706)*UV(4928)+JVS(23708)*UV(5252)& - &+JVS(23710)*UV(5256) - JUV(4394) = JVS(23711)*UV(172)+JVS(23712)*UV(970)+JVS(23715)*UV(4394)+JVS(23717)*UV(5250)+JVS(23718)*UV(5252)& - &+JVS(23719)*UV(5255)+JVS(23720)*UV(5256) - JUV(4395) = JVS(23721)*UV(4395)+JVS(23722)*UV(5250)+JVS(23723)*UV(5256)+JVS(23724)*UV(5258) - JUV(4396) = JVS(23725)*UV(1703)+JVS(23728)*UV(4396)+JVS(23729)*UV(5250)+JVS(23730)*UV(5256)+JVS(23731)*UV(5258) - JUV(4397) = JVS(23732)*UV(1703)+JVS(23735)*UV(4397)+JVS(23736)*UV(5250)+JVS(23737)*UV(5256) - JUV(4398) = JVS(23739)*UV(614)+JVS(23740)*UV(2468)+JVS(23741)*UV(2798)+JVS(23742)*UV(2799)+JVS(23746)*UV(4398)& - &+JVS(23747)*UV(4603)+JVS(23748)*UV(4916)+JVS(23749)*UV(5250)+JVS(23751)*UV(5255) - JUV(4399) = JVS(23754)*UV(1703)+JVS(23757)*UV(4399)+JVS(23758)*UV(5250)+JVS(23759)*UV(5252)+JVS(23760)*UV(5255)& - &+JVS(23761)*UV(5256) - JUV(4400) = JVS(23763)*UV(947)+JVS(23764)*UV(4018)+JVS(23765)*UV(4400)+JVS(23766)*UV(5250)+JVS(23767)*UV(5252)& - &+JVS(23768)*UV(5255)+JVS(23769)*UV(5256) - JUV(4401) = JVS(23771)*UV(3457)+JVS(23772)*UV(3460)+JVS(23773)*UV(3581)+JVS(23774)*UV(3600)+JVS(23777)*UV(4401)& - &+JVS(23778)*UV(4787)+JVS(23779)*UV(5250) - JUV(4402) = JVS(23784)*UV(844)+JVS(23785)*UV(3499)+JVS(23786)*UV(4035)+JVS(23787)*UV(4402)+JVS(23788)*UV(5250)& - &+JVS(23789)*UV(5252)+JVS(23790)*UV(5253)+JVS(23792)*UV(5256)+JVS(23793)*UV(5258) - JUV(4403) = JVS(23794)*UV(560)+JVS(23795)*UV(676)+JVS(23796)*UV(718)+JVS(23797)*UV(2566)+JVS(23798)*UV(2575)& - &+JVS(23799)*UV(2598)+JVS(23800)*UV(2599)+JVS(23801)*UV(2818)+JVS(23802)*UV(2937)+JVS(23803)*UV(2995)& - &+JVS(23804)*UV(3004)+JVS(23805)*UV(3065)+JVS(23806)*UV(3230)+JVS(23807)*UV(3362)+JVS(23808)*UV(3388)& - &+JVS(23809)*UV(3417)+JVS(23824)*UV(4403)+JVS(23833)*UV(5070)+JVS(23834)*UV(5250) - JUV(4404) = JVS(23840)*UV(1928)+JVS(23841)*UV(2171)+JVS(23842)*UV(3063)+JVS(23844)*UV(4404)+JVS(23846)*UV(5250)& - &+JVS(23847)*UV(5252)+JVS(23848)*UV(5253)+JVS(23849)*UV(5255)+JVS(23850)*UV(5256) - JUV(4405) = JVS(23851)*UV(1997)+JVS(23852)*UV(2579)+JVS(23853)*UV(4405)+JVS(23854)*UV(4845)+JVS(23855)*UV(5250)& - &+JVS(23856)*UV(5252)+JVS(23857)*UV(5253)+JVS(23858)*UV(5255)+JVS(23859)*UV(5256) - JUV(4406) = JVS(23860)*UV(3500)+JVS(23861)*UV(3532)+JVS(23862)*UV(4406)+JVS(23863)*UV(5005)+JVS(23865)*UV(5221)& - &+JVS(23866)*UV(5250)+JVS(23867)*UV(5252)+JVS(23869)*UV(5255)+JVS(23870)*UV(5256) - JUV(4407) = JVS(23871)*UV(943)+JVS(23872)*UV(3139)+JVS(23873)*UV(4009)+JVS(23874)*UV(4407)+JVS(23875)*UV(5250)& - &+JVS(23876)*UV(5252)+JVS(23877)*UV(5253)+JVS(23879)*UV(5256)+JVS(23880)*UV(5258) - JUV(4408) = JVS(23881)*UV(1419)+JVS(23882)*UV(3131)+JVS(23883)*UV(4075)+JVS(23884)*UV(4408)+JVS(23885)*UV(5250)& - &+JVS(23886)*UV(5252)+JVS(23887)*UV(5253)+JVS(23889)*UV(5256)+JVS(23890)*UV(5258) - JUV(4409) = JVS(23891)*UV(1146)+JVS(23892)*UV(2573)+JVS(23893)*UV(3309)+JVS(23894)*UV(4409)+JVS(23896)*UV(5250)& - &+JVS(23897)*UV(5252)+JVS(23898)*UV(5253)+JVS(23899)*UV(5255)+JVS(23900)*UV(5256) - JUV(4410) = JVS(23901)*UV(2457)+JVS(23905)*UV(4410)+JVS(23908)*UV(5252)+JVS(23909)*UV(5255)+JVS(23910)*UV(5256) - JUV(4411) = JVS(23911)*UV(1701)+JVS(23912)*UV(2235)+JVS(23913)*UV(3923)+JVS(23914)*UV(4411)+JVS(23915)*UV(4412)& - &+JVS(23917)*UV(5010)+JVS(23919)*UV(5250)+JVS(23920)*UV(5252)+JVS(23921)*UV(5255)+JVS(23922)*UV(5256) - JUV(4412) = JVS(23923)*UV(1074)+JVS(23924)*UV(2885)+JVS(23925)*UV(3923)+JVS(23926)*UV(4412)+JVS(23928)*UV(5250)& - &+JVS(23929)*UV(5252)+JVS(23930)*UV(5253)+JVS(23931)*UV(5255)+JVS(23932)*UV(5256) - JUV(4413) = JVS(23933)*UV(1017)+JVS(23934)*UV(3506)+JVS(23935)*UV(4054)+JVS(23936)*UV(4413)+JVS(23937)*UV(5250)& - &+JVS(23938)*UV(5252)+JVS(23939)*UV(5253)+JVS(23941)*UV(5256)+JVS(23942)*UV(5258) - JUV(4414) = JVS(23943)*UV(2494)+JVS(23944)*UV(2796)+JVS(23945)*UV(4414)+JVS(23946)*UV(5049)+JVS(23947)*UV(5250)& - &+JVS(23948)*UV(5252)+JVS(23949)*UV(5253)+JVS(23950)*UV(5255)+JVS(23951)*UV(5256) - JUV(4415) = JVS(23952)*UV(977)+JVS(23953)*UV(3163)+JVS(23954)*UV(4415)+JVS(23956)*UV(5250)+JVS(23957)*UV(5252)& - &+JVS(23959)*UV(5255)+JVS(23960)*UV(5256) - JUV(4416) = JVS(23961)*UV(2417)+JVS(23962)*UV(3553)+JVS(23963)*UV(4416)+JVS(23965)*UV(5250)+JVS(23966)*UV(5252)& - &+JVS(23967)*UV(5255)+JVS(23968)*UV(5256) - JUV(4417) = JVS(23970)*UV(574)+JVS(23971)*UV(1198)+JVS(23973)*UV(3282)+JVS(23975)*UV(4417)+JVS(23977)*UV(5250)& - &+JVS(23978)*UV(5252)+JVS(23979)*UV(5253)+JVS(23980)*UV(5255)+JVS(23981)*UV(5256) - JUV(4418) = JVS(23982)*UV(823)+JVS(23983)*UV(1348)+JVS(23984)*UV(3862)+JVS(23985)*UV(4418)+JVS(23986)*UV(4659)& - &+JVS(23988)*UV(5250)+JVS(23989)*UV(5252)+JVS(23990)*UV(5255)+JVS(23991)*UV(5256) - JUV(4419) = JVS(23992)*UV(534)+JVS(23993)*UV(946)+JVS(23995)*UV(2718)+JVS(23997)*UV(4419)+JVS(23999)*UV(5250)& - &+JVS(24000)*UV(5252)+JVS(24001)*UV(5253)+JVS(24002)*UV(5255)+JVS(24003)*UV(5256) - JUV(4420) = JVS(24004)*UV(1346)+JVS(24005)*UV(3464)+JVS(24006)*UV(3707)+JVS(24007)*UV(4420)+JVS(24009)*UV(4976)& - &+JVS(24010)*UV(5235)+JVS(24011)*UV(5250)+JVS(24013)*UV(5255)+JVS(24015)*UV(5258) - JUV(4421) = JVS(24016)*UV(960)+JVS(24017)*UV(3183)+JVS(24020)*UV(4421)+JVS(24023)*UV(5250)+JVS(24024)*UV(5252)& - &+JVS(24025)*UV(5255)+JVS(24026)*UV(5256) - JUV(4422) = JVS(24027)*UV(838)+JVS(24028)*UV(3519)+JVS(24029)*UV(4422)+JVS(24031)*UV(5250)+JVS(24032)*UV(5252)& - &+JVS(24033)*UV(5255)+JVS(24034)*UV(5256) - JUV(4423) = JVS(24036)*UV(75)+JVS(24038)*UV(973)+JVS(24043)*UV(4423)+JVS(24047)*UV(5250)+JVS(24048)*UV(5252)& - &+JVS(24050)*UV(5255)+JVS(24051)*UV(5256) - JUV(4424) = JVS(24052)*UV(2120)+JVS(24053)*UV(2929)+JVS(24054)*UV(4424)+JVS(24055)*UV(4815)+JVS(24056)*UV(5250)& - &+JVS(24057)*UV(5252)+JVS(24058)*UV(5253)+JVS(24059)*UV(5255)+JVS(24060)*UV(5256) - JUV(4425) = JVS(24061)*UV(1118)+JVS(24062)*UV(3178)+JVS(24063)*UV(4425)+JVS(24065)*UV(5250)+JVS(24066)*UV(5252)& - &+JVS(24068)*UV(5255)+JVS(24069)*UV(5256) - JUV(4426) = JVS(24070)*UV(122)+JVS(24071)*UV(1464)+JVS(24081)*UV(4426)+JVS(24084)*UV(5250)+JVS(24085)*UV(5252)& - &+JVS(24087)*UV(5255)+JVS(24088)*UV(5256) - JUV(4427) = JVS(24089)*UV(2290)+JVS(24090)*UV(2988)+JVS(24091)*UV(4155)+JVS(24092)*UV(4427)+JVS(24094)*UV(5250)& - &+JVS(24095)*UV(5252)+JVS(24096)*UV(5253)+JVS(24097)*UV(5255)+JVS(24098)*UV(5256) - JUV(4428) = JVS(24099)*UV(2811)+JVS(24100)*UV(2873)+JVS(24101)*UV(4428)+JVS(24102)*UV(4840)+JVS(24103)*UV(5250)& - &+JVS(24104)*UV(5252)+JVS(24105)*UV(5253)+JVS(24106)*UV(5255)+JVS(24107)*UV(5256) - JUV(4429) = JVS(24108)*UV(1338)+JVS(24109)*UV(3185)+JVS(24112)*UV(4429)+JVS(24115)*UV(5250)+JVS(24116)*UV(5252)& - &+JVS(24117)*UV(5255)+JVS(24118)*UV(5256) - JUV(4430) = JVS(24119)*UV(791)+JVS(24120)*UV(1244)+JVS(24122)*UV(3070)+JVS(24124)*UV(4430)+JVS(24126)*UV(5250)& - &+JVS(24127)*UV(5252)+JVS(24128)*UV(5253)+JVS(24129)*UV(5255)+JVS(24130)*UV(5256) - JUV(4431) = JVS(24131)*UV(724)+JVS(24132)*UV(1233)+JVS(24134)*UV(1913)+JVS(24135)*UV(2613)+JVS(24136)*UV(4431)& - &+JVS(24138)*UV(5250)+JVS(24139)*UV(5252)+JVS(24140)*UV(5253)+JVS(24141)*UV(5255)+JVS(24142)*UV(5256) - JUV(4432) = JVS(24143)*UV(837)+JVS(24144)*UV(1316)+JVS(24145)*UV(4010)+JVS(24146)*UV(4432)+JVS(24147)*UV(4626)& - &+JVS(24148)*UV(5250)+JVS(24149)*UV(5252)+JVS(24150)*UV(5255)+JVS(24151)*UV(5256) - JUV(4433) = JVS(24153)*UV(2036)+JVS(24154)*UV(2872)+JVS(24155)*UV(4160)+JVS(24156)*UV(4433)+JVS(24158)*UV(5250)& - &+JVS(24159)*UV(5252)+JVS(24160)*UV(5253)+JVS(24161)*UV(5255)+JVS(24162)*UV(5256) - JUV(4434) = JVS(24163)*UV(1223)+JVS(24164)*UV(3190)+JVS(24165)*UV(4434)+JVS(24167)*UV(5250)+JVS(24168)*UV(5252)& - &+JVS(24170)*UV(5255)+JVS(24171)*UV(5256) - JUV(4435) = JVS(24172)*UV(1268)+JVS(24173)*UV(3086)+JVS(24176)*UV(4435)+JVS(24179)*UV(5250)+JVS(24180)*UV(5252)& - &+JVS(24181)*UV(5255)+JVS(24182)*UV(5256) - JUV(4436) = JVS(24183)*UV(2670)+JVS(24184)*UV(3033)+JVS(24185)*UV(4436)+JVS(24186)*UV(5069)+JVS(24187)*UV(5250)& - &+JVS(24188)*UV(5252)+JVS(24189)*UV(5253)+JVS(24190)*UV(5255)+JVS(24191)*UV(5256) - JUV(4437) = JVS(24192)*UV(843)+JVS(24193)*UV(3164)+JVS(24194)*UV(4008)+JVS(24195)*UV(4437)+JVS(24196)*UV(5250)& - &+JVS(24197)*UV(5252)+JVS(24198)*UV(5253)+JVS(24200)*UV(5256)+JVS(24201)*UV(5258) - JUV(4438) = JVS(24202)*UV(1156)+JVS(24203)*UV(3193)+JVS(24204)*UV(4082)+JVS(24205)*UV(4438)+JVS(24206)*UV(5250)& - &+JVS(24207)*UV(5252)+JVS(24208)*UV(5253)+JVS(24210)*UV(5256)+JVS(24211)*UV(5258) - JUV(4439) = JVS(24212)*UV(121)+JVS(24213)*UV(842)+JVS(24214)*UV(2584)+JVS(24215)*UV(4439)+JVS(24217)*UV(5250)& - &+JVS(24218)*UV(5252)+JVS(24219)*UV(5253)+JVS(24220)*UV(5255)+JVS(24221)*UV(5256) - JUV(4440) = JVS(24222)*UV(2152)+JVS(24223)*UV(3519)+JVS(24224)*UV(4440)+JVS(24226)*UV(5250)+JVS(24227)*UV(5252)& - &+JVS(24228)*UV(5255)+JVS(24229)*UV(5256) - JUV(4441) = JVS(24231)*UV(78)+JVS(24232)*UV(93)+JVS(24234)*UV(2263)+JVS(24235)*UV(2866)+JVS(24237)*UV(4441)+JVS(24239)& - &*UV(5250)+JVS(24240)*UV(5252)+JVS(24241)*UV(5253)+JVS(24242)*UV(5255)+JVS(24243)*UV(5256) - JUV(4442) = JVS(24244)*UV(174)+JVS(24246)*UV(1550)+JVS(24250)*UV(4442)+JVS(24252)*UV(5250)+JVS(24253)*UV(5252)& - &+JVS(24255)*UV(5255)+JVS(24256)*UV(5256) - JUV(4443) = JVS(24257)*UV(776)+JVS(24258)*UV(1418)+JVS(24260)*UV(3218)+JVS(24262)*UV(4443)+JVS(24264)*UV(5250)& - &+JVS(24265)*UV(5252)+JVS(24266)*UV(5253)+JVS(24267)*UV(5255)+JVS(24268)*UV(5256) - JUV(4444) = JVS(24269)*UV(822)+JVS(24270)*UV(3684)+JVS(24271)*UV(3997)+JVS(24272)*UV(4444)+JVS(24273)*UV(5250)& - &+JVS(24274)*UV(5252)+JVS(24275)*UV(5253)+JVS(24277)*UV(5256)+JVS(24278)*UV(5258) - JUV(4445) = JVS(24279)*UV(2388)+JVS(24280)*UV(2833)+JVS(24281)*UV(3681)+JVS(24282)*UV(4445)+JVS(24284)*UV(5250)& - &+JVS(24285)*UV(5252)+JVS(24286)*UV(5253)+JVS(24287)*UV(5255)+JVS(24288)*UV(5256) - JUV(4446) = JVS(24289)*UV(3530)+JVS(24291)*UV(4446)+JVS(24294)*UV(5250)+JVS(24295)*UV(5252)+JVS(24296)*UV(5255)& - &+JVS(24297)*UV(5256) - JUV(4447) = JVS(24298)*UV(1146)+JVS(24299)*UV(3309)+JVS(24300)*UV(4409)+JVS(24302)*UV(4447)+JVS(24305)*UV(5252)& - &+JVS(24307)*UV(5255)+JVS(24308)*UV(5256) - JUV(4448) = JVS(24309)*UV(31)+JVS(24310)*UV(1009)+JVS(24311)*UV(1664)+JVS(24312)*UV(3320)+JVS(24313)*UV(3531)& - &+JVS(24315)*UV(4448)+JVS(24316)*UV(5250)+JVS(24317)*UV(5252)+JVS(24319)*UV(5256) - JUV(4449) = JVS(24320)*UV(2263)+JVS(24321)*UV(2443)+JVS(24322)*UV(2863)+JVS(24323)*UV(2866)+JVS(24324)*UV(4253)& - &+JVS(24325)*UV(4441)+JVS(24327)*UV(4449)+JVS(24329)*UV(5250)+JVS(24330)*UV(5252)+JVS(24332)*UV(5255)& - &+JVS(24333)*UV(5256) - JUV(4450) = JVS(24334)*UV(528)+JVS(24335)*UV(1226)+JVS(24337)*UV(3306)+JVS(24339)*UV(4450)+JVS(24341)*UV(5250)& - &+JVS(24342)*UV(5252)+JVS(24343)*UV(5253)+JVS(24344)*UV(5255)+JVS(24345)*UV(5256) - JUV(4451) = JVS(24346)*UV(929)+JVS(24347)*UV(2674)+JVS(24348)*UV(4451)+JVS(24349)*UV(4882)+JVS(24350)*UV(5250)& - &+JVS(24351)*UV(5252)+JVS(24352)*UV(5253)+JVS(24353)*UV(5255)+JVS(24354)*UV(5256) - JUV(4452) = JVS(24355)*UV(2460)+JVS(24356)*UV(2522)+JVS(24357)*UV(4108)+JVS(24358)*UV(4452)+JVS(24360)*UV(5250)& - &+JVS(24361)*UV(5252)+JVS(24362)*UV(5253)+JVS(24363)*UV(5255)+JVS(24364)*UV(5256) - JUV(4453) = JVS(24365)*UV(1476)+JVS(24366)*UV(3136)+JVS(24367)*UV(4020)+JVS(24368)*UV(4453)+JVS(24369)*UV(5250)& - &+JVS(24370)*UV(5252)+JVS(24371)*UV(5253)+JVS(24373)*UV(5256)+JVS(24374)*UV(5258) - JUV(4454) = JVS(24375)*UV(1294)+JVS(24376)*UV(3831)+JVS(24377)*UV(4057)+JVS(24378)*UV(4454)+JVS(24379)*UV(5250)& - &+JVS(24380)*UV(5252)+JVS(24381)*UV(5253)+JVS(24383)*UV(5256)+JVS(24384)*UV(5258) - JUV(4455) = JVS(24385)*UV(1030)+JVS(24386)*UV(3152)+JVS(24387)*UV(4455)+JVS(24389)*UV(5250)+JVS(24390)*UV(5252)& - &+JVS(24392)*UV(5255)+JVS(24393)*UV(5256) - JUV(4456) = JVS(24394)*UV(1461)+JVS(24395)*UV(2619)+JVS(24396)*UV(3633)+JVS(24397)*UV(4456)+JVS(24399)*UV(5250)& - &+JVS(24400)*UV(5252)+JVS(24401)*UV(5253)+JVS(24402)*UV(5255)+JVS(24403)*UV(5256) - JUV(4457) = JVS(24404)*UV(1303)+JVS(24405)*UV(3172)+JVS(24406)*UV(4063)+JVS(24407)*UV(4457)+JVS(24408)*UV(5250)& - &+JVS(24409)*UV(5252)+JVS(24410)*UV(5253)+JVS(24412)*UV(5256)+JVS(24413)*UV(5258) - JUV(4458) = JVS(24414)*UV(1376)+JVS(24415)*UV(3088)+JVS(24416)*UV(4458)+JVS(24418)*UV(5250)+JVS(24419)*UV(5252)& - &+JVS(24421)*UV(5255)+JVS(24422)*UV(5256) - JUV(4459) = JVS(24423)*UV(827)+JVS(24424)*UV(1408)+JVS(24425)*UV(4459)+JVS(24426)*UV(4653)+JVS(24427)*UV(5072)& - &+JVS(24428)*UV(5250)+JVS(24429)*UV(5252)+JVS(24430)*UV(5255)+JVS(24431)*UV(5256) - JUV(4460) = JVS(24432)*UV(2429)+JVS(24433)*UV(2705)+JVS(24434)*UV(3154)+JVS(24436)*UV(4460)+JVS(24438)*UV(5250)& - &+JVS(24439)*UV(5252)+JVS(24440)*UV(5253)+JVS(24441)*UV(5255)+JVS(24442)*UV(5256) - JUV(4461) = JVS(24443)*UV(1137)+JVS(24444)*UV(3151)+JVS(24447)*UV(4461)+JVS(24450)*UV(5250)+JVS(24451)*UV(5252)& - &+JVS(24452)*UV(5255)+JVS(24453)*UV(5256) - JUV(4462) = JVS(24454)*UV(2600)+JVS(24455)*UV(2867)+JVS(24456)*UV(4462)+JVS(24459)*UV(5113)+JVS(24460)*UV(5250)& - &+JVS(24462)*UV(5256) - JUV(4463) = JVS(24463)*UV(1045)+JVS(24464)*UV(3143)+JVS(24465)*UV(4463)+JVS(24467)*UV(5250)+JVS(24468)*UV(5252)& - &+JVS(24470)*UV(5255)+JVS(24471)*UV(5256) - JUV(4464) = JVS(24472)*UV(1169)+JVS(24473)*UV(3181)+JVS(24474)*UV(4464)+JVS(24476)*UV(5250)+JVS(24477)*UV(5252)& - &+JVS(24479)*UV(5255)+JVS(24480)*UV(5256) - JUV(4465) = JVS(24481)*UV(1116)+JVS(24482)*UV(1219)+JVS(24483)*UV(4362)+JVS(24484)*UV(4465)+JVS(24485)*UV(4520)& - &+JVS(24487)*UV(5250)+JVS(24488)*UV(5252)+JVS(24489)*UV(5255)+JVS(24490)*UV(5256) - JUV(4466) = JVS(24491)*UV(1539)+JVS(24492)*UV(3701)+JVS(24493)*UV(4065)+JVS(24494)*UV(4466)+JVS(24495)*UV(5250)& - &+JVS(24496)*UV(5252)+JVS(24497)*UV(5253)+JVS(24499)*UV(5256)+JVS(24500)*UV(5258) - JUV(4467) = JVS(24501)*UV(934)+JVS(24502)*UV(3146)+JVS(24503)*UV(4467)+JVS(24505)*UV(5250)+JVS(24506)*UV(5252)& - &+JVS(24508)*UV(5255)+JVS(24509)*UV(5256) - JUV(4468) = JVS(24510)*UV(1236)+JVS(24511)*UV(2845)+JVS(24512)*UV(3513)+JVS(24513)*UV(4468)+JVS(24515)*UV(5250)& - &+JVS(24516)*UV(5252)+JVS(24517)*UV(5253)+JVS(24518)*UV(5255)+JVS(24519)*UV(5256) - JUV(4469) = JVS(24520)*UV(853)+JVS(24521)*UV(3026)+JVS(24522)*UV(3856)+JVS(24523)*UV(4469)+JVS(24525)*UV(5250)& - &+JVS(24526)*UV(5252)+JVS(24527)*UV(5253)+JVS(24528)*UV(5255)+JVS(24529)*UV(5256) - JUV(4470) = JVS(24530)*UV(2176)+JVS(24531)*UV(2583)+JVS(24532)*UV(4174)+JVS(24533)*UV(4470)+JVS(24535)*UV(5250)& - &+JVS(24536)*UV(5252)+JVS(24537)*UV(5253)+JVS(24538)*UV(5255)+JVS(24539)*UV(5256) - JUV(4471) = JVS(24540)*UV(1243)+JVS(24541)*UV(3508)+JVS(24542)*UV(4033)+JVS(24543)*UV(4471)+JVS(24544)*UV(5250)& - &+JVS(24545)*UV(5252)+JVS(24546)*UV(5253)+JVS(24548)*UV(5256)+JVS(24549)*UV(5258) - JUV(4472) = JVS(24550)*UV(1248)+JVS(24551)*UV(3075)+JVS(24552)*UV(4472)+JVS(24553)*UV(5018)+JVS(24554)*UV(5250)& - &+JVS(24555)*UV(5252)+JVS(24556)*UV(5253)+JVS(24557)*UV(5255)+JVS(24558)*UV(5256) - JUV(4473) = JVS(24559)*UV(806)+JVS(24560)*UV(1948)+JVS(24561)*UV(4473)+JVS(24562)*UV(4474)+JVS(24564)*UV(5250)& - &+JVS(24565)*UV(5252)+JVS(24566)*UV(5255)+JVS(24567)*UV(5256) - JUV(4474) = JVS(24568)*UV(4474)+JVS(24569)*UV(5250)+JVS(24570)*UV(5256)+JVS(24571)*UV(5258) - JUV(4475) = JVS(24572)*UV(4475)+JVS(24573)*UV(5250)+JVS(24574)*UV(5256)+JVS(24575)*UV(5258) - JUV(4476) = JVS(24576)*UV(3266)+JVS(24577)*UV(4332)+JVS(24578)*UV(4475)+JVS(24579)*UV(4476)+JVS(24580)*UV(5250)& - &+JVS(24581)*UV(5252)+JVS(24582)*UV(5255)+JVS(24583)*UV(5256) - JUV(4477) = JVS(24585)*UV(1154)+JVS(24586)*UV(2153)+JVS(24587)*UV(2895)+JVS(24590)*UV(4477)+JVS(24591)*UV(4525)& - &+JVS(24593)*UV(5250)+JVS(24594)*UV(5252)+JVS(24595)*UV(5255)+JVS(24596)*UV(5256) - JUV(4478) = JVS(24597)*UV(2177)+JVS(24598)*UV(3158)+JVS(24601)*UV(4376)+JVS(24602)*UV(4478)+JVS(24603)*UV(5250)& - &+JVS(24604)*UV(5252)+JVS(24605)*UV(5253)+JVS(24607)*UV(5256)+JVS(24608)*UV(5258) - JUV(4479) = JVS(24609)*UV(1188)+JVS(24610)*UV(3149)+JVS(24611)*UV(4016)+JVS(24612)*UV(4479)+JVS(24613)*UV(5250)& - &+JVS(24614)*UV(5252)+JVS(24615)*UV(5253)+JVS(24617)*UV(5256)+JVS(24618)*UV(5258) - JUV(4480) = JVS(24619)*UV(1129)+JVS(24620)*UV(3553)+JVS(24621)*UV(4480)+JVS(24623)*UV(5250)+JVS(24624)*UV(5252)& - &+JVS(24625)*UV(5255)+JVS(24626)*UV(5256) - JUV(4481) = JVS(24628)*UV(928)+JVS(24629)*UV(3553)+JVS(24630)*UV(3556)+JVS(24633)*UV(4481)+JVS(24635)*UV(5250)& - &+JVS(24636)*UV(5252)+JVS(24637)*UV(5255)+JVS(24638)*UV(5256)+JVS(24639)*UV(5258) - JUV(4482) = JVS(24640)*UV(15)+JVS(24642)*UV(1357)+JVS(24652)*UV(4482)+JVS(24655)*UV(5250)+JVS(24656)*UV(5252)& - &+JVS(24658)*UV(5255)+JVS(24659)*UV(5256) - JUV(4483) = JVS(24661)*UV(1296)+JVS(24662)*UV(1354)+JVS(24663)*UV(3622)+JVS(24664)*UV(4056)+JVS(24665)*UV(4483)& - &+JVS(24666)*UV(4892)+JVS(24667)*UV(5250)+JVS(24668)*UV(5252)+JVS(24669)*UV(5255)+JVS(24670)*UV(5256) - JUV(4484) = JVS(24672)*UV(1540)+JVS(24673)*UV(2515)+JVS(24674)*UV(3947)+JVS(24675)*UV(4484)+JVS(24677)*UV(5250)& - &+JVS(24678)*UV(5252)+JVS(24679)*UV(5253)+JVS(24680)*UV(5255)+JVS(24681)*UV(5256) - JUV(4485) = JVS(24682)*UV(88)+JVS(24683)*UV(593)+JVS(24685)*UV(1402)+JVS(24687)*UV(2984)+JVS(24690)*UV(4485)& - &+JVS(24692)*UV(5250)+JVS(24693)*UV(5252)+JVS(24694)*UV(5253)+JVS(24695)*UV(5255)+JVS(24696)*UV(5256) - JUV(4486) = JVS(24697)*UV(1044)+JVS(24698)*UV(1925)+JVS(24702)*UV(4486)+JVS(24704)*UV(5250)+JVS(24705)*UV(5252)& - &+JVS(24707)*UV(5255)+JVS(24708)*UV(5256) - JUV(4487) = JVS(24709)*UV(1152)+JVS(24710)*UV(3560)+JVS(24711)*UV(4073)+JVS(24712)*UV(4487)+JVS(24713)*UV(5250)& - &+JVS(24714)*UV(5252)+JVS(24715)*UV(5253)+JVS(24717)*UV(5256)+JVS(24718)*UV(5258) - JUV(4488) = JVS(24719)*UV(136)+JVS(24720)*UV(939)+JVS(24721)*UV(1747)+JVS(24722)*UV(3253)+JVS(24723)*UV(3538)& - &+JVS(24725)*UV(4488)+JVS(24726)*UV(5250)+JVS(24727)*UV(5252)+JVS(24729)*UV(5256) - JUV(4489) = JVS(24730)*UV(2414)+JVS(24731)*UV(2859)+JVS(24732)*UV(3742)+JVS(24733)*UV(3783)+JVS(24736)*UV(4489)& - &+JVS(24737)*UV(5250)+JVS(24738)*UV(5252)+JVS(24739)*UV(5253)+JVS(24740)*UV(5255)+JVS(24741)*UV(5256) - JUV(4490) = JVS(24742)*UV(1734)+JVS(24743)*UV(1837)+JVS(24744)*UV(2055)+JVS(24745)*UV(2683)+JVS(24746)*UV(2991)& - &+JVS(24747)*UV(3040)+JVS(24748)*UV(4221)+JVS(24749)*UV(4241)+JVS(24752)*UV(4490)+JVS(24753)*UV(4835)& - &+JVS(24754)*UV(5250)+JVS(24755)*UV(5252)+JVS(24757)*UV(5255)+JVS(24758)*UV(5256) - JUV(4491) = JVS(24759)*UV(718)+JVS(24760)*UV(723)+JVS(24761)*UV(2506)+JVS(24762)*UV(2762)+JVS(24769)*UV(4448)& - &+JVS(24770)*UV(4488)+JVS(24771)*UV(4491)+JVS(24772)*UV(4986)+JVS(24773)*UV(5250)+JVS(24775)*UV(5255) - JUV(4492) = JVS(24778)*UV(4492)+JVS(24779)*UV(5250)+JVS(24780)*UV(5256)+JVS(24781)*UV(5258) - JUV(4493) = JVS(24782)*UV(767)+JVS(24783)*UV(1225)+JVS(24784)*UV(1932)+JVS(24785)*UV(2034)+JVS(24786)*UV(2035)& - &+JVS(24787)*UV(2742)+JVS(24788)*UV(2812)+JVS(24789)*UV(2892)+JVS(24790)*UV(3668)+JVS(24794)*UV(4190)& - &+JVS(24796)*UV(4340)+JVS(24798)*UV(4493)+JVS(24800)*UV(5159)+JVS(24802)*UV(5250)+JVS(24805)*UV(5256) - JUV(4494) = JVS(24807)*UV(1227)+JVS(24808)*UV(3180)+JVS(24809)*UV(4037)+JVS(24810)*UV(4494)+JVS(24811)*UV(5250)& - &+JVS(24812)*UV(5252)+JVS(24813)*UV(5253)+JVS(24815)*UV(5256)+JVS(24816)*UV(5258) - JUV(4495) = JVS(24817)*UV(854)+JVS(24818)*UV(3135)+JVS(24819)*UV(4001)+JVS(24820)*UV(4495)+JVS(24821)*UV(5250)& - &+JVS(24822)*UV(5252)+JVS(24823)*UV(5253)+JVS(24825)*UV(5256)+JVS(24826)*UV(5258) - JUV(4496) = JVS(24827)*UV(1209)+JVS(24828)*UV(3327)+JVS(24829)*UV(4224)+JVS(24830)*UV(4496)+JVS(24832)*UV(5250)& - &+JVS(24833)*UV(5252)+JVS(24834)*UV(5253)+JVS(24835)*UV(5255)+JVS(24836)*UV(5256) - JUV(4497) = JVS(24837)*UV(25)+JVS(24839)*UV(2111)+JVS(24843)*UV(4497)+JVS(24845)*UV(5250)+JVS(24846)*UV(5252)& - &+JVS(24848)*UV(5255)+JVS(24849)*UV(5256) - JUV(4498) = JVS(24850)*UV(1342)+JVS(24851)*UV(3120)+JVS(24852)*UV(4498)+JVS(24854)*UV(5250)+JVS(24855)*UV(5252)& - &+JVS(24857)*UV(5255)+JVS(24858)*UV(5256) - JUV(4499) = JVS(24859)*UV(1450)+JVS(24860)*UV(3551)+JVS(24861)*UV(4064)+JVS(24862)*UV(4499)+JVS(24863)*UV(5250)& - &+JVS(24864)*UV(5252)+JVS(24865)*UV(5253)+JVS(24867)*UV(5256)+JVS(24868)*UV(5258) - JUV(4500) = JVS(24869)*UV(975)+JVS(24870)*UV(2669)+JVS(24871)*UV(4500)+JVS(24872)*UV(4834)+JVS(24873)*UV(5250)& - &+JVS(24874)*UV(5252)+JVS(24875)*UV(5253)+JVS(24876)*UV(5255)+JVS(24877)*UV(5256) - JUV(4501) = JVS(24878)*UV(346)+JVS(24879)*UV(1552)+JVS(24880)*UV(1907)+JVS(24881)*UV(2419)+JVS(24882)*UV(2669)& - &+JVS(24883)*UV(4058)+JVS(24885)*UV(4501)+JVS(24887)*UV(5250)+JVS(24891)*UV(5256) - JUV(4502) = JVS(24892)*UV(2228)+JVS(24893)*UV(2538)+JVS(24894)*UV(4502)+JVS(24895)*UV(4775)+JVS(24896)*UV(5250)& - &+JVS(24897)*UV(5252)+JVS(24898)*UV(5253)+JVS(24899)*UV(5255)+JVS(24900)*UV(5256) - JUV(4503) = JVS(24901)*UV(940)+JVS(24902)*UV(1461)+JVS(24903)*UV(3633)+JVS(24904)*UV(4456)+JVS(24905)*UV(4503)& - &+JVS(24907)*UV(5250)+JVS(24908)*UV(5252)+JVS(24910)*UV(5255)+JVS(24911)*UV(5256) - JUV(4504) = JVS(24912)*UV(852)+JVS(24913)*UV(3130)+JVS(24914)*UV(4085)+JVS(24915)*UV(4504)+JVS(24916)*UV(5250)& - &+JVS(24917)*UV(5252)+JVS(24918)*UV(5253)+JVS(24920)*UV(5256)+JVS(24921)*UV(5258) - JUV(4505) = JVS(24922)*UV(4505)+JVS(24923)*UV(4937)+JVS(24924)*UV(5030)+JVS(24925)*UV(5076)+JVS(24926)*UV(5250)& - &+JVS(24927)*UV(5256)+JVS(24928)*UV(5258) - JUV(4506) = JVS(24929)*UV(1472)+JVS(24930)*UV(3189)+JVS(24931)*UV(4506)+JVS(24933)*UV(5250)+JVS(24934)*UV(5252)& - &+JVS(24936)*UV(5255)+JVS(24937)*UV(5256) - JUV(4507) = JVS(24938)*UV(2536)+JVS(24939)*UV(2566)+JVS(24940)*UV(2575)+JVS(24941)*UV(2598)+JVS(24942)*UV(2599)& - &+JVS(24943)*UV(2641)+JVS(24944)*UV(2668)+JVS(24945)*UV(2682)+JVS(24946)*UV(2733)+JVS(24947)*UV(2741)& - &+JVS(24948)*UV(2818)+JVS(24949)*UV(2918)+JVS(24950)*UV(2935)+JVS(24951)*UV(2937)+JVS(24952)*UV(2963)& - &+JVS(24953)*UV(2986)+JVS(24954)*UV(2995)+JVS(24955)*UV(3001)+JVS(24956)*UV(3004)+JVS(24957)*UV(3036)& - &+JVS(24958)*UV(3065)+JVS(24959)*UV(3347)+JVS(24960)*UV(3362)+JVS(24961)*UV(3371)+JVS(24962)*UV(3375)& - &+JVS(24963)*UV(3388)+JVS(24964)*UV(3402)+JVS(24965)*UV(3417)+JVS(24999)*UV(4507)+JVS(25009)*UV(5250) - JUV(4508) = JVS(25015)*UV(4508)+JVS(25016)*UV(5250)+JVS(25017)*UV(5256)+JVS(25018)*UV(5258) - JUV(4509) = JVS(25019)*UV(1421)+JVS(25020)*UV(3512)+JVS(25021)*UV(4002)+JVS(25022)*UV(4509)+JVS(25023)*UV(5250)& - &+JVS(25024)*UV(5252)+JVS(25025)*UV(5253)+JVS(25027)*UV(5256)+JVS(25028)*UV(5258) - JUV(4510) = JVS(25029)*UV(96)+JVS(25030)*UV(902)+JVS(25034)*UV(4510)+JVS(25037)*UV(5250)+JVS(25038)*UV(5252)& - &+JVS(25039)*UV(5255)+JVS(25040)*UV(5256) - JUV(4511) = JVS(25041)*UV(1309)+JVS(25042)*UV(3187)+JVS(25043)*UV(4511)+JVS(25045)*UV(5250)+JVS(25046)*UV(5252)& - &+JVS(25048)*UV(5255)+JVS(25049)*UV(5256) - JUV(4512) = JVS(25050)*UV(4512)+JVS(25051)*UV(5250)+JVS(25052)*UV(5256)+JVS(25053)*UV(5258) - JUV(4513) = JVS(25054)*UV(1210)+JVS(25055)*UV(1417)+JVS(25056)*UV(4396)+JVS(25057)*UV(4513)+JVS(25058)*UV(4649)& - &+JVS(25059)*UV(5250)+JVS(25060)*UV(5252)+JVS(25061)*UV(5255)+JVS(25062)*UV(5256) - JUV(4514) = JVS(25064)*UV(1429)+JVS(25065)*UV(3545)+JVS(25066)*UV(4049)+JVS(25067)*UV(4514)+JVS(25068)*UV(5250)& - &+JVS(25069)*UV(5252)+JVS(25070)*UV(5253)+JVS(25072)*UV(5256)+JVS(25073)*UV(5258) - JUV(4515) = JVS(25074)*UV(1180)+JVS(25075)*UV(3024)+JVS(25076)*UV(3851)+JVS(25077)*UV(4515)+JVS(25079)*UV(5250)& - &+JVS(25080)*UV(5252)+JVS(25081)*UV(5253)+JVS(25082)*UV(5255)+JVS(25083)*UV(5256) - JUV(4516) = JVS(25084)*UV(2531)+JVS(25085)*UV(2824)+JVS(25086)*UV(4516)+JVS(25087)*UV(5050)+JVS(25088)*UV(5250)& - &+JVS(25089)*UV(5252)+JVS(25090)*UV(5253)+JVS(25091)*UV(5255)+JVS(25092)*UV(5256) - JUV(4517) = JVS(25093)*UV(1327)+JVS(25094)*UV(2844)+JVS(25095)*UV(3857)+JVS(25096)*UV(4517)+JVS(25098)*UV(5250)& - &+JVS(25099)*UV(5252)+JVS(25100)*UV(5253)+JVS(25101)*UV(5255)+JVS(25102)*UV(5256) - JUV(4518) = JVS(25103)*UV(1804)+JVS(25104)*UV(1981)+JVS(25105)*UV(2925)+JVS(25106)*UV(4518)+JVS(25108)*UV(5250)& - &+JVS(25109)*UV(5252)+JVS(25110)*UV(5253)+JVS(25111)*UV(5255)+JVS(25112)*UV(5256) - JUV(4519) = JVS(25113)*UV(1006)+JVS(25114)*UV(1625)+JVS(25115)*UV(2003)+JVS(25117)*UV(4519)+JVS(25119)*UV(5250)& - &+JVS(25120)*UV(5252)+JVS(25121)*UV(5253)+JVS(25122)*UV(5255)+JVS(25123)*UV(5256) - JUV(4520) = JVS(25124)*UV(1219)+JVS(25125)*UV(2729)+JVS(25126)*UV(4362)+JVS(25127)*UV(4520)+JVS(25129)*UV(5250)& - &+JVS(25130)*UV(5252)+JVS(25131)*UV(5253)+JVS(25132)*UV(5255)+JVS(25133)*UV(5256) - JUV(4521) = JVS(25134)*UV(539)+JVS(25135)*UV(850)+JVS(25137)*UV(3007)+JVS(25139)*UV(4521)+JVS(25141)*UV(5250)& - &+JVS(25142)*UV(5252)+JVS(25143)*UV(5253)+JVS(25144)*UV(5255)+JVS(25145)*UV(5256) - JUV(4522) = JVS(25146)*UV(2314)+JVS(25147)*UV(2702)+JVS(25148)*UV(4114)+JVS(25149)*UV(4522)+JVS(25151)*UV(5250)& - &+JVS(25152)*UV(5252)+JVS(25153)*UV(5253)+JVS(25154)*UV(5255)+JVS(25155)*UV(5256) - JUV(4523) = JVS(25156)*UV(1477)+JVS(25157)*UV(2778)+JVS(25158)*UV(3986)+JVS(25159)*UV(4523)+JVS(25161)*UV(5250)& - &+JVS(25162)*UV(5252)+JVS(25163)*UV(5253)+JVS(25164)*UV(5255)+JVS(25165)*UV(5256) - JUV(4524) = JVS(25166)*UV(1050)+JVS(25167)*UV(1108)+JVS(25168)*UV(1906)+JVS(25169)*UV(2198)+JVS(25170)*UV(2778)& - &+JVS(25171)*UV(4310)+JVS(25173)*UV(4524)+JVS(25175)*UV(5097)+JVS(25178)*UV(5250) - JUV(4525) = JVS(25183)*UV(1154)+JVS(25184)*UV(2567)+JVS(25185)*UV(2895)+JVS(25188)*UV(4525)+JVS(25190)*UV(5250)& - &+JVS(25191)*UV(5252)+JVS(25192)*UV(5253)+JVS(25193)*UV(5255)+JVS(25194)*UV(5256) - JUV(4526) = JVS(25195)*UV(362)+JVS(25196)*UV(4526)+JVS(25198)*UV(5251)+JVS(25199)*UV(5252)+JVS(25200)*UV(5253)& - &+JVS(25201)*UV(5254) - JUV(4527) = JVS(25203)*UV(4527)+JVS(25204)*UV(5250)+JVS(25205)*UV(5256)+JVS(25206)*UV(5258) - JUV(4528) = JVS(25207)*UV(4395)+JVS(25208)*UV(4508)+JVS(25209)*UV(4527)+JVS(25210)*UV(4528)+JVS(25211)*UV(4555)& - &+JVS(25212)*UV(4615)+JVS(25213)*UV(4907)+JVS(25214)*UV(5051)+JVS(25215)*UV(5093)+JVS(25216)*UV(5190)& - &+JVS(25217)*UV(5194)+JVS(25218)*UV(5200)+JVS(25219)*UV(5227)+JVS(25222)*UV(5258) - JUV(4529) = JVS(25223)*UV(1533)+JVS(25224)*UV(3134)+JVS(25225)*UV(4529)+JVS(25226)*UV(5250)+JVS(25227)*UV(5252)& - &+JVS(25228)*UV(5255)+JVS(25229)*UV(5256) - JUV(4530) = JVS(25230)*UV(3459)+JVS(25231)*UV(3483)+JVS(25232)*UV(3587)+JVS(25233)*UV(4530)+JVS(25236)*UV(5250)& - &+JVS(25239)*UV(5256) - JUV(4531) = JVS(25240)*UV(1125)+JVS(25241)*UV(3830)+JVS(25242)*UV(4079)+JVS(25244)*UV(4531)+JVS(25245)*UV(5250)& - &+JVS(25246)*UV(5252)+JVS(25247)*UV(5253)+JVS(25249)*UV(5256)+JVS(25250)*UV(5258) - JUV(4532) = JVS(25251)*UV(1271)+JVS(25252)*UV(3184)+JVS(25255)*UV(4532)+JVS(25258)*UV(5250)+JVS(25259)*UV(5252)& - &+JVS(25260)*UV(5255)+JVS(25261)*UV(5256) - JUV(4533) = JVS(25262)*UV(111)+JVS(25263)*UV(932)+JVS(25264)*UV(1554)+JVS(25265)*UV(3279)+JVS(25266)*UV(3489)& - &+JVS(25268)*UV(4533)+JVS(25269)*UV(5250)+JVS(25270)*UV(5252)+JVS(25272)*UV(5256) - JUV(4534) = JVS(25273)*UV(576)+JVS(25274)*UV(1092)+JVS(25275)*UV(2754)+JVS(25276)*UV(3052)+JVS(25277)*UV(4299)& - &+JVS(25279)*UV(4534)+JVS(25280)*UV(4703)+JVS(25281)*UV(5250)+JVS(25282)*UV(5252)+JVS(25284)*UV(5255)& - &+JVS(25285)*UV(5256) - JUV(4535) = JVS(25286)*UV(1783)+JVS(25287)*UV(2390)+JVS(25289)*UV(4535)+JVS(25290)*UV(5250)+JVS(25291)*UV(5252)& - &+JVS(25292)*UV(5255)+JVS(25293)*UV(5256) - JUV(4536) = JVS(25294)*UV(92)+JVS(25295)*UV(97)+JVS(25296)*UV(323)+JVS(25299)*UV(2654)+JVS(25300)*UV(2794)+JVS(25303)& - &*UV(4536)+JVS(25306)*UV(5250)+JVS(25307)*UV(5252)+JVS(25308)*UV(5253)+JVS(25309)*UV(5255)+JVS(25310)& - &*UV(5256) - JUV(4537) = JVS(25311)*UV(306)+JVS(25312)*UV(1829)+JVS(25313)*UV(2331)+JVS(25314)*UV(2496)+JVS(25315)*UV(4251)& - &+JVS(25316)*UV(4537)+JVS(25319)*UV(5250)+JVS(25323)*UV(5256) - JUV(4538) = JVS(25324)*UV(2062)+JVS(25325)*UV(3629)+JVS(25326)*UV(4538)+JVS(25329)*UV(5250)+JVS(25330)*UV(5252)& - &+JVS(25332)*UV(5255)+JVS(25333)*UV(5256) - JUV(4539) = JVS(25334)*UV(1467)+JVS(25335)*UV(2823)+JVS(25336)*UV(3454)+JVS(25338)*UV(4539)+JVS(25341)*UV(5250)& - &+JVS(25342)*UV(5252)+JVS(25343)*UV(5253)+JVS(25344)*UV(5255)+JVS(25345)*UV(5256) - JUV(4540) = JVS(25346)*UV(231)+JVS(25347)*UV(1720)+JVS(25348)*UV(1902)+JVS(25349)*UV(2127)+JVS(25350)*UV(2145)& - &+JVS(25351)*UV(2797)+JVS(25352)*UV(3758)+JVS(25356)*UV(4540)+JVS(25359)*UV(5250)+JVS(25363)*UV(5256) - JUV(4541) = JVS(25364)*UV(3646)+JVS(25365)*UV(4541)+JVS(25368)*UV(5250)+JVS(25369)*UV(5252)+JVS(25370)*UV(5255)& - &+JVS(25371)*UV(5256) - JUV(4542) = JVS(25373)*UV(1569)+JVS(25374)*UV(4542)+JVS(25375)*UV(5248)+JVS(25377)*UV(5250)+JVS(25378)*UV(5252)& - &+JVS(25379)*UV(5255)+JVS(25380)*UV(5256) - JUV(4543) = JVS(25382)*UV(866)+JVS(25383)*UV(3604)+JVS(25384)*UV(4543)+JVS(25387)*UV(5250)+JVS(25388)*UV(5252)& - &+JVS(25390)*UV(5255)+JVS(25391)*UV(5256) - JUV(4544) = JVS(25392)*UV(239)+JVS(25393)*UV(327)+JVS(25396)*UV(4544)+JVS(25398)*UV(5251)+JVS(25399)*UV(5252)& - &+JVS(25400)*UV(5253)+JVS(25401)*UV(5254) - JUV(4545) = JVS(25404)*UV(154)+JVS(25405)*UV(735)+JVS(25408)*UV(1093)+JVS(25409)*UV(1608)+JVS(25411)*UV(4545)& - &+JVS(25414)*UV(5250)+JVS(25415)*UV(5252)+JVS(25416)*UV(5255)+JVS(25417)*UV(5256) - JUV(4546) = JVS(25419)*UV(3336)+JVS(25420)*UV(3792)+JVS(25421)*UV(4546)+JVS(25425)*UV(5250)+JVS(25426)*UV(5252)& - &+JVS(25427)*UV(5255)+JVS(25428)*UV(5256) - JUV(4547) = JVS(25429)*UV(3176)+JVS(25430)*UV(3177)+JVS(25431)*UV(3264)+JVS(25432)*UV(3573)+JVS(25433)*UV(3584)& - &+JVS(25434)*UV(3834)+JVS(25435)*UV(4027)+JVS(25436)*UV(4547)+JVS(25439)*UV(5250)+JVS(25442)*UV(5256)& - &+JVS(25443)*UV(5258) - JUV(4548) = JVS(25444)*UV(1249)+JVS(25445)*UV(2655)+JVS(25446)*UV(3470)+JVS(25448)*UV(4548)+JVS(25451)*UV(5250)& - &+JVS(25452)*UV(5252)+JVS(25453)*UV(5253)+JVS(25454)*UV(5255)+JVS(25455)*UV(5256) - JUV(4549) = JVS(25456)*UV(1173)+JVS(25457)*UV(2115)+JVS(25458)*UV(4279)+JVS(25459)*UV(4549)+JVS(25461)*UV(4984)& - &+JVS(25463)*UV(5250)+JVS(25464)*UV(5252)+JVS(25465)*UV(5255)+JVS(25466)*UV(5256) - JUV(4550) = JVS(25467)*UV(287)+JVS(25468)*UV(894)+JVS(25469)*UV(1854)+JVS(25470)*UV(3911)+JVS(25471)*UV(4550)& - &+JVS(25472)*UV(4808)+JVS(25473)*UV(4927)+JVS(25474)*UV(5250)+JVS(25475)*UV(5252)+JVS(25476)*UV(5255)& - &+JVS(25477)*UV(5256)+JVS(25478)*UV(5258) - JUV(4551) = JVS(25479)*UV(1795)+JVS(25480)*UV(4551)+JVS(25483)*UV(5251)+JVS(25484)*UV(5252)+JVS(25485)*UV(5253)& - &+JVS(25486)*UV(5254) - JUV(4552) = JVS(25488)*UV(1762)+JVS(25489)*UV(1893)+JVS(25490)*UV(2381)+JVS(25492)*UV(4552)+JVS(25493)*UV(4926)& - &+JVS(25495)*UV(4996)+JVS(25496)*UV(5250)+JVS(25497)*UV(5252)+JVS(25498)*UV(5255)+JVS(25499)*UV(5256) - JUV(4553) = JVS(25500)*UV(2110)+JVS(25501)*UV(3020)+JVS(25502)*UV(3603)+JVS(25503)*UV(4553)+JVS(25506)*UV(5250)& - &+JVS(25507)*UV(5252)+JVS(25508)*UV(5253)+JVS(25509)*UV(5255)+JVS(25510)*UV(5256) - JUV(4554) = JVS(25511)*UV(3256)+JVS(25512)*UV(4554)+JVS(25513)*UV(4555)+JVS(25514)*UV(5250)+JVS(25515)*UV(5252)& - &+JVS(25516)*UV(5255)+JVS(25517)*UV(5256) - JUV(4555) = JVS(25518)*UV(4555)+JVS(25519)*UV(5250)+JVS(25520)*UV(5256)+JVS(25521)*UV(5258) - JUV(4556) = JVS(25522)*UV(558)+JVS(25524)*UV(4556)+JVS(25527)*UV(5251)+JVS(25528)*UV(5252)+JVS(25529)*UV(5253)& - &+JVS(25530)*UV(5254) - JUV(4557) = JVS(25532)*UV(542)+JVS(25533)*UV(2131)+JVS(25535)*UV(2887)+JVS(25536)*UV(4557)+JVS(25538)*UV(5094)& - &+JVS(25539)*UV(5250)+JVS(25540)*UV(5252)+JVS(25541)*UV(5253)+JVS(25542)*UV(5255)+JVS(25543)*UV(5256) - JUV(4558) = JVS(25544)*UV(3196)+JVS(25545)*UV(4558)+JVS(25546)*UV(5089)+JVS(25547)*UV(5250)+JVS(25548)*UV(5252)& - &+JVS(25549)*UV(5255)+JVS(25550)*UV(5256) - JUV(4559) = JVS(25551)*UV(304)+JVS(25552)*UV(2628)+JVS(25553)*UV(2913)+JVS(25554)*UV(3026)+JVS(25556)*UV(4559)& - &+JVS(25557)*UV(4980)+JVS(25559)*UV(5250)+JVS(25563)*UV(5256) - JUV(4560) = JVS(25564)*UV(632)+JVS(25565)*UV(842)+JVS(25567)*UV(2404)+JVS(25569)*UV(4439)+JVS(25570)*UV(4560)& - &+JVS(25573)*UV(5250)+JVS(25574)*UV(5252)+JVS(25576)*UV(5255)+JVS(25577)*UV(5256) - JUV(4561) = JVS(25578)*UV(2553)+JVS(25579)*UV(4561)+JVS(25580)*UV(5010)+JVS(25581)*UV(5250)+JVS(25582)*UV(5252)& - &+JVS(25583)*UV(5255)+JVS(25584)*UV(5256) - JUV(4562) = JVS(25585)*UV(181)+JVS(25586)*UV(2006)+JVS(25587)*UV(4508)+JVS(25588)*UV(4562)+JVS(25589)*UV(5250)& - &+JVS(25590)*UV(5252)+JVS(25591)*UV(5255)+JVS(25592)*UV(5256) - JUV(4563) = JVS(25594)*UV(293)+JVS(25596)*UV(4563)+JVS(25598)*UV(5252)+JVS(25599)*UV(5255)+JVS(25600)*UV(5256) - JUV(4564) = JVS(25602)*UV(2109)+JVS(25603)*UV(2554)+JVS(25604)*UV(3197)+JVS(25605)*UV(3272)+JVS(25606)*UV(4564)& - &+JVS(25607)*UV(5016)+JVS(25608)*UV(5020)+JVS(25610)*UV(5075)+JVS(25611)*UV(5174)+JVS(25612)*UV(5250)& - &+JVS(25613)*UV(5252)+JVS(25615)*UV(5255)+JVS(25616)*UV(5256) - JUV(4565) = JVS(25617)*UV(217)+JVS(25619)*UV(4565)+JVS(25621)*UV(5250)+JVS(25622)*UV(5252)+JVS(25623)*UV(5255)& - &+JVS(25624)*UV(5256) - JUV(4566) = JVS(25625)*UV(3906)+JVS(25626)*UV(4566)+JVS(25628)*UV(5250)+JVS(25629)*UV(5252)+JVS(25630)*UV(5255)& - &+JVS(25631)*UV(5256) - JUV(4567) = JVS(25632)*UV(199)+JVS(25635)*UV(4567)+JVS(25638)*UV(5252)+JVS(25639)*UV(5255)+JVS(25640)*UV(5256) - JUV(4568) = JVS(25641)*UV(1034)+JVS(25642)*UV(3996)+JVS(25643)*UV(4568)+JVS(25644)*UV(5250)+JVS(25645)*UV(5252)& - &+JVS(25646)*UV(5255)+JVS(25647)*UV(5256) - JUV(4569) = JVS(25649)*UV(3438)+JVS(25650)*UV(3457)+JVS(25651)*UV(3569)+JVS(25652)*UV(3581)+JVS(25653)*UV(3996)& - &+JVS(25654)*UV(4018)+JVS(25657)*UV(4569)+JVS(25658)*UV(5250)+JVS(25661)*UV(5256)+JVS(25662)*UV(5258) - JUV(4570) = JVS(25663)*UV(4570)+JVS(25664)*UV(5002)+JVS(25665)*UV(5025)+JVS(25666)*UV(5250)+JVS(25667)*UV(5256)& - &+JVS(25668)*UV(5258) - JUV(4571) = JVS(25669)*UV(2355)+JVS(25670)*UV(2385)+JVS(25671)*UV(4571)+JVS(25672)*UV(5238)+JVS(25673)*UV(5250)& - &+JVS(25674)*UV(5252)+JVS(25675)*UV(5255)+JVS(25676)*UV(5256) - JUV(4572) = JVS(25677)*UV(3374)+JVS(25679)*UV(4572)+JVS(25681)*UV(5250)+JVS(25682)*UV(5252)+JVS(25683)*UV(5255)& - &+JVS(25684)*UV(5256) - JUV(4573) = JVS(25685)*UV(3777)+JVS(25686)*UV(4573)+JVS(25688)*UV(5250)+JVS(25689)*UV(5252)+JVS(25690)*UV(5255)& - &+JVS(25691)*UV(5256) - JUV(4574) = JVS(25692)*UV(1063)+JVS(25693)*UV(4574)+JVS(25694)*UV(5051)+JVS(25695)*UV(5250)+JVS(25696)*UV(5252)& - &+JVS(25697)*UV(5255)+JVS(25698)*UV(5256) - JUV(4575) = JVS(25699)*UV(3833)+JVS(25700)*UV(4575)+JVS(25701)*UV(5250)+JVS(25702)*UV(5252)+JVS(25703)*UV(5255)& - &+JVS(25704)*UV(5256) - JUV(4576) = JVS(25706)*UV(3107)+JVS(25707)*UV(3108)+JVS(25708)*UV(3606)+JVS(25709)*UV(3833)+JVS(25711)*UV(4576)& - &+JVS(25712)*UV(5250)+JVS(25715)*UV(5256)+JVS(25716)*UV(5258) - JUV(4577) = JVS(25717)*UV(445)+JVS(25721)*UV(4577)+JVS(25724)*UV(5252)+JVS(25725)*UV(5255)+JVS(25726)*UV(5256) - JUV(4578) = JVS(25727)*UV(4578)+JVS(25728)*UV(5093)+JVS(25729)*UV(5250)+JVS(25730)*UV(5252)+JVS(25731)*UV(5255)& - &+JVS(25732)*UV(5256) - JUV(4579) = JVS(25733)*UV(1302)+JVS(25734)*UV(4579)+JVS(25735)*UV(5051)+JVS(25736)*UV(5250)+JVS(25737)*UV(5252)& - &+JVS(25738)*UV(5255)+JVS(25739)*UV(5256) - JUV(4580) = JVS(25740)*UV(300)+JVS(25742)*UV(1214)+JVS(25745)*UV(4580)+JVS(25747)*UV(5250)+JVS(25748)*UV(5252)& - &+JVS(25749)*UV(5255)+JVS(25750)*UV(5256) - JUV(4581) = JVS(25751)*UV(2269)+JVS(25752)*UV(3505)+JVS(25753)*UV(4581)+JVS(25755)*UV(5250)+JVS(25756)*UV(5252)& - &+JVS(25757)*UV(5255)+JVS(25758)*UV(5256) - JUV(4582) = JVS(25759)*UV(3308)+JVS(25760)*UV(4527)+JVS(25761)*UV(4582)+JVS(25762)*UV(5250)+JVS(25763)*UV(5252)& - &+JVS(25764)*UV(5255)+JVS(25765)*UV(5256) - JUV(4583) = JVS(25767)*UV(3288)+JVS(25768)*UV(3843)+JVS(25769)*UV(4583)+JVS(25771)*UV(5250)+JVS(25772)*UV(5252)& - &+JVS(25773)*UV(5255)+JVS(25774)*UV(5256) - JUV(4584) = JVS(25775)*UV(3906)+JVS(25776)*UV(4584)+JVS(25778)*UV(5250)+JVS(25779)*UV(5252)+JVS(25780)*UV(5255)& - &+JVS(25781)*UV(5256) - JUV(4585) = JVS(25782)*UV(3198)+JVS(25783)*UV(4555)+JVS(25784)*UV(4585)+JVS(25785)*UV(5250)+JVS(25786)*UV(5252)& - &+JVS(25787)*UV(5255)+JVS(25788)*UV(5256) - JUV(4586) = JVS(25790)*UV(548)+JVS(25791)*UV(4586)+JVS(25792)*UV(5238)+JVS(25793)*UV(5250)+JVS(25794)*UV(5252)& - &+JVS(25795)*UV(5255)+JVS(25796)*UV(5256) - JUV(4587) = JVS(25797)*UV(2125)+JVS(25798)*UV(4527)+JVS(25799)*UV(4587)+JVS(25800)*UV(5250)+JVS(25801)*UV(5252)& - &+JVS(25802)*UV(5255)+JVS(25803)*UV(5256) - JUV(4588) = JVS(25805)*UV(3833)+JVS(25806)*UV(3834)+JVS(25807)*UV(4396)+JVS(25808)*UV(4588)+JVS(25809)*UV(5049)& - &+JVS(25810)*UV(5050)+JVS(25811)*UV(5058)+JVS(25812)*UV(5066)+JVS(25813)*UV(5068)+JVS(25814)*UV(5123)& - &+JVS(25815)*UV(5126)+JVS(25818)*UV(5258) - JUV(4589) = JVS(25819)*UV(3763)+JVS(25820)*UV(4589)+JVS(25822)*UV(5250)+JVS(25823)*UV(5252)+JVS(25824)*UV(5255)& - &+JVS(25825)*UV(5256) - JUV(4590) = JVS(25826)*UV(3341)+JVS(25828)*UV(4590)+JVS(25830)*UV(5250)+JVS(25831)*UV(5252)+JVS(25832)*UV(5255)& - &+JVS(25833)*UV(5256) - JUV(4591) = JVS(25834)*UV(782)+JVS(25835)*UV(1456)+JVS(25836)*UV(1666)+JVS(25837)*UV(2047)+JVS(25838)*UV(3132)& - &+JVS(25839)*UV(3220)+JVS(25840)*UV(3331)+JVS(25841)*UV(3643)+JVS(25845)*UV(4591)+JVS(25846)*UV(5250)& - &+JVS(25847)*UV(5252)+JVS(25848)*UV(5253)+JVS(25849)*UV(5255)+JVS(25850)*UV(5256) - JUV(4592) = JVS(25851)*UV(461)+JVS(25852)*UV(1456)+JVS(25853)*UV(2283)+JVS(25855)*UV(3643)+JVS(25856)*UV(3793)& - &+JVS(25857)*UV(4591)+JVS(25858)*UV(4592)+JVS(25859)*UV(5250)+JVS(25860)*UV(5252)+JVS(25862)*UV(5255)& - &+JVS(25863)*UV(5256)+JVS(25864)*UV(5258) - JUV(4593) = JVS(25865)*UV(2394)+JVS(25866)*UV(4593)+JVS(25867)*UV(5190)+JVS(25868)*UV(5250)+JVS(25869)*UV(5252)& - &+JVS(25870)*UV(5255)+JVS(25871)*UV(5256) - JUV(4594) = JVS(25872)*UV(3314)+JVS(25873)*UV(3583)+JVS(25874)*UV(4594)+JVS(25876)*UV(5250)+JVS(25877)*UV(5252)& - &+JVS(25878)*UV(5255)+JVS(25879)*UV(5256) - JUV(4595) = JVS(25880)*UV(2260)+JVS(25881)*UV(3156)+JVS(25882)*UV(4595)+JVS(25884)*UV(5250)+JVS(25885)*UV(5252)& - &+JVS(25886)*UV(5255)+JVS(25887)*UV(5256) - JUV(4596) = JVS(25888)*UV(3243)+JVS(25889)*UV(4555)+JVS(25890)*UV(4596)+JVS(25891)*UV(5250)+JVS(25892)*UV(5252)& - &+JVS(25893)*UV(5255)+JVS(25894)*UV(5256) - JUV(4597) = JVS(25896)*UV(1852)+JVS(25899)*UV(4597)+JVS(25902)*UV(5252)+JVS(25903)*UV(5255)+JVS(25904)*UV(5256) - JUV(4598) = JVS(25905)*UV(3289)+JVS(25906)*UV(4598)+JVS(25907)*UV(5190)+JVS(25908)*UV(5250)+JVS(25909)*UV(5252)& - &+JVS(25910)*UV(5255)+JVS(25911)*UV(5256) - JUV(4599) = JVS(25912)*UV(2354)+JVS(25913)*UV(3620)+JVS(25914)*UV(4599)+JVS(25916)*UV(5250)+JVS(25917)*UV(5252)& - &+JVS(25918)*UV(5255)+JVS(25919)*UV(5256) - JUV(4600) = JVS(25920)*UV(4600)+JVS(25921)*UV(5250)+JVS(25922)*UV(5256)+JVS(25923)*UV(5258) - JUV(4601) = JVS(25924)*UV(4601)+JVS(25925)*UV(5250)+JVS(25926)*UV(5256)+JVS(25927)*UV(5258) - JUV(4602) = JVS(25928)*UV(1879)+JVS(25929)*UV(1982)+JVS(25930)*UV(2026)+JVS(25931)*UV(2414)+JVS(25932)*UV(2510)& - &+JVS(25933)*UV(2529)+JVS(25934)*UV(2581)+JVS(25935)*UV(2609)+JVS(25936)*UV(2712)+JVS(25937)*UV(2721)& - &+JVS(25938)*UV(2763)+JVS(25939)*UV(2859)+JVS(25940)*UV(2897)+JVS(25941)*UV(2901)+JVS(25942)*UV(3028)& - &+JVS(25943)*UV(3061)+JVS(25944)*UV(3571)+JVS(25945)*UV(3673)+JVS(25946)*UV(3732)+JVS(25947)*UV(3783)& - &+JVS(25948)*UV(3787)+JVS(25951)*UV(3968)+JVS(25954)*UV(4102)+JVS(25956)*UV(4267)+JVS(25958)*UV(4449)& - &+JVS(25960)*UV(4489)+JVS(25961)*UV(4602)+JVS(25964)*UV(4620)+JVS(25969)*UV(4744)+JVS(25973)*UV(4823)& - &+JVS(25974)*UV(5250)+JVS(25975)*UV(5252)+JVS(25977)*UV(5255)+JVS(25978)*UV(5256) - JUV(4603) = JVS(25979)*UV(94)+JVS(25980)*UV(1024)+JVS(25981)*UV(3786)+JVS(25983)*UV(4603)+JVS(25984)*UV(5250)& - &+JVS(25985)*UV(5252)+JVS(25987)*UV(5256) - JUV(4604) = JVS(25989)*UV(4604)+JVS(25990)*UV(5250)+JVS(25991)*UV(5256)+JVS(25992)*UV(5258) - JUV(4605) = JVS(25993)*UV(4605)+JVS(25994)*UV(5250)+JVS(25995)*UV(5256)+JVS(25996)*UV(5258) - JUV(4606) = JVS(25997)*UV(4606)+JVS(25998)*UV(5250)+JVS(25999)*UV(5256)+JVS(26000)*UV(5258) - JUV(4607) = JVS(26001)*UV(1767)+JVS(26002)*UV(4604)+JVS(26003)*UV(4606)+JVS(26004)*UV(4607)+JVS(26005)*UV(5250)& - &+JVS(26006)*UV(5252)+JVS(26007)*UV(5255)+JVS(26008)*UV(5256) - JUV(4608) = JVS(26010)*UV(2133)+JVS(26011)*UV(4604)+JVS(26012)*UV(4606)+JVS(26013)*UV(4608)+JVS(26014)*UV(5250)& - &+JVS(26015)*UV(5252)+JVS(26016)*UV(5255)+JVS(26017)*UV(5256) - JUV(4609) = JVS(26019)*UV(1580)+JVS(26020)*UV(4609)+JVS(26021)*UV(5250)+JVS(26022)*UV(5252)+JVS(26023)*UV(5255)& - &+JVS(26024)*UV(5256) - JUV(4610) = JVS(26025)*UV(3472)+JVS(26027)*UV(4610)+JVS(26028)*UV(5250)+JVS(26029)*UV(5252)+JVS(26030)*UV(5255)& - &+JVS(26031)*UV(5256) - JUV(4611) = JVS(26032)*UV(1064)+JVS(26033)*UV(2757)+JVS(26034)*UV(3900)+JVS(26036)*UV(4611)+JVS(26037)*UV(5250)& - &+JVS(26038)*UV(5252)+JVS(26039)*UV(5253)+JVS(26040)*UV(5255)+JVS(26041)*UV(5256) - JUV(4612) = JVS(26042)*UV(2976)+JVS(26043)*UV(3619)+JVS(26048)*UV(4612)+JVS(26050)*UV(5250)+JVS(26051)*UV(5252)& - &+JVS(26053)*UV(5255)+JVS(26054)*UV(5256) - JUV(4613) = JVS(26055)*UV(899)+JVS(26056)*UV(2663)+JVS(26057)*UV(4231)+JVS(26059)*UV(4613)+JVS(26061)*UV(5250)& - &+JVS(26062)*UV(5252)+JVS(26063)*UV(5253)+JVS(26064)*UV(5255)+JVS(26065)*UV(5256) - JUV(4614) = JVS(26066)*UV(899)+JVS(26067)*UV(2810)+JVS(26068)*UV(4231)+JVS(26070)*UV(4613)+JVS(26071)*UV(4614)& - &+JVS(26073)*UV(5250)+JVS(26074)*UV(5252)+JVS(26076)*UV(5255)+JVS(26077)*UV(5256) - JUV(4615) = JVS(26078)*UV(4615)+JVS(26079)*UV(5219)+JVS(26080)*UV(5250)+JVS(26081)*UV(5252)+JVS(26082)*UV(5258) - JUV(4616) = JVS(26083)*UV(1580)+JVS(26084)*UV(4616)+JVS(26085)*UV(5250)+JVS(26086)*UV(5252)+JVS(26087)*UV(5255)& - &+JVS(26088)*UV(5256) - JUV(4617) = JVS(26089)*UV(4617)+JVS(26090)*UV(5204)+JVS(26091)*UV(5252)+JVS(26092)*UV(5255)+JVS(26093)*UV(5256) - JUV(4618) = JVS(26094)*UV(2310)+JVS(26095)*UV(2844)+JVS(26096)*UV(2893)+JVS(26097)*UV(3035)+JVS(26098)*UV(3419)& - &+JVS(26099)*UV(3441)+JVS(26100)*UV(3656)+JVS(26102)*UV(3735)+JVS(26104)*UV(4177)+JVS(26107)*UV(4618)& - &+JVS(26112)*UV(4852)+JVS(26113)*UV(4858)+JVS(26115)*UV(5250) - JUV(4619) = JVS(26121)*UV(143)+JVS(26122)*UV(1023)+JVS(26123)*UV(1672)+JVS(26124)*UV(3319)+JVS(26125)*UV(3554)& - &+JVS(26127)*UV(4619)+JVS(26128)*UV(5250)+JVS(26129)*UV(5252)+JVS(26131)*UV(5256) - JUV(4620) = JVS(26132)*UV(1879)+JVS(26133)*UV(2026)+JVS(26134)*UV(2721)+JVS(26135)*UV(3673)+JVS(26138)*UV(4620)& - &+JVS(26140)*UV(5250)+JVS(26141)*UV(5252)+JVS(26142)*UV(5253)+JVS(26143)*UV(5255)+JVS(26144)*UV(5256) - JUV(4621) = JVS(26145)*UV(771)+JVS(26146)*UV(4621)+JVS(26148)*UV(5251)+JVS(26149)*UV(5252)+JVS(26150)*UV(5253)& - &+JVS(26151)*UV(5254) - JUV(4622) = JVS(26153)*UV(773)+JVS(26154)*UV(787)+JVS(26155)*UV(1095)+JVS(26157)*UV(1878)+JVS(26159)*UV(2295)& - &+JVS(26160)*UV(2758)+JVS(26161)*UV(3317)+JVS(26162)*UV(3368)+JVS(26165)*UV(3543)+JVS(26171)*UV(4622)& - &+JVS(26172)*UV(4964)+JVS(26173)*UV(5250)+JVS(26174)*UV(5252)+JVS(26175)*UV(5253)+JVS(26176)*UV(5255)& - &+JVS(26177)*UV(5256) - JUV(4623) = JVS(26178)*UV(1448)+JVS(26179)*UV(2843)+JVS(26180)*UV(4623)+JVS(26181)*UV(5115)+JVS(26182)*UV(5250)& - &+JVS(26183)*UV(5252)+JVS(26184)*UV(5253)+JVS(26185)*UV(5255)+JVS(26186)*UV(5256) - JUV(4624) = JVS(26187)*UV(69)+JVS(26188)*UV(472)+JVS(26190)*UV(849)+JVS(26191)*UV(2564)+JVS(26195)*UV(4624)+JVS(26197)& - &*UV(5250)+JVS(26198)*UV(5252)+JVS(26199)*UV(5253)+JVS(26200)*UV(5255)+JVS(26201)*UV(5256) - JUV(4625) = JVS(26202)*UV(112)+JVS(26203)*UV(3495)+JVS(26204)*UV(4625)+JVS(26206)*UV(5250)+JVS(26207)*UV(5252)& - &+JVS(26208)*UV(5255)+JVS(26209)*UV(5256) - JUV(4626) = JVS(26211)*UV(837)+JVS(26212)*UV(3060)+JVS(26213)*UV(4010)+JVS(26214)*UV(4626)+JVS(26215)*UV(5250)& - &+JVS(26216)*UV(5252)+JVS(26217)*UV(5253)+JVS(26218)*UV(5255)+JVS(26219)*UV(5256) - JUV(4627) = JVS(26221)*UV(1498)+JVS(26222)*UV(2560)+JVS(26223)*UV(4627)+JVS(26224)*UV(4717)+JVS(26225)*UV(5250)& - &+JVS(26226)*UV(5252)+JVS(26227)*UV(5253)+JVS(26228)*UV(5255)+JVS(26229)*UV(5256) - JUV(4628) = JVS(26230)*UV(1176)+JVS(26231)*UV(2630)+JVS(26232)*UV(4628)+JVS(26233)*UV(4933)+JVS(26234)*UV(5250)& - &+JVS(26235)*UV(5252)+JVS(26236)*UV(5253)+JVS(26237)*UV(5255)+JVS(26238)*UV(5256) - JUV(4629) = JVS(26239)*UV(845)+JVS(26240)*UV(2848)+JVS(26241)*UV(4110)+JVS(26242)*UV(4629)+JVS(26244)*UV(5250)& - &+JVS(26245)*UV(5252)+JVS(26246)*UV(5253)+JVS(26247)*UV(5255)+JVS(26248)*UV(5256) - JUV(4630) = JVS(26249)*UV(3304)+JVS(26250)*UV(3567)+JVS(26251)*UV(3622)+JVS(26252)*UV(4630)+JVS(26254)*UV(5250)& - &+JVS(26257)*UV(5256)+JVS(26258)*UV(5258) - JUV(4631) = JVS(26259)*UV(77)+JVS(26260)*UV(954)+JVS(26262)*UV(3053)+JVS(26265)*UV(4631)+JVS(26267)*UV(5250)& - &+JVS(26268)*UV(5252)+JVS(26269)*UV(5253)+JVS(26270)*UV(5255)+JVS(26271)*UV(5256) - JUV(4632) = JVS(26272)*UV(857)+JVS(26273)*UV(3101)+JVS(26274)*UV(4061)+JVS(26276)*UV(4632)+JVS(26277)*UV(5250)& - &+JVS(26278)*UV(5252)+JVS(26279)*UV(5253)+JVS(26281)*UV(5256)+JVS(26282)*UV(5258) - JUV(4633) = JVS(26283)*UV(1254)+JVS(26284)*UV(2632)+JVS(26285)*UV(4272)+JVS(26286)*UV(4633)+JVS(26287)*UV(5250)& - &+JVS(26288)*UV(5252)+JVS(26289)*UV(5253)+JVS(26290)*UV(5255)+JVS(26291)*UV(5256) - JUV(4634) = JVS(26293)*UV(1516)+JVS(26294)*UV(2882)+JVS(26295)*UV(4634)+JVS(26296)*UV(5042)+JVS(26297)*UV(5250)& - &+JVS(26298)*UV(5252)+JVS(26299)*UV(5253)+JVS(26300)*UV(5255)+JVS(26301)*UV(5256) - JUV(4635) = JVS(26302)*UV(910)+JVS(26303)*UV(2915)+JVS(26304)*UV(4093)+JVS(26305)*UV(4635)+JVS(26306)*UV(5250)& - &+JVS(26307)*UV(5252)+JVS(26308)*UV(5253)+JVS(26309)*UV(5255)+JVS(26310)*UV(5256) - JUV(4636) = JVS(26312)*UV(936)+JVS(26313)*UV(2777)+JVS(26314)*UV(4636)+JVS(26315)*UV(5177)+JVS(26316)*UV(5250)& - &+JVS(26317)*UV(5252)+JVS(26318)*UV(5253)+JVS(26319)*UV(5255)+JVS(26320)*UV(5256) - JUV(4637) = JVS(26321)*UV(3805)+JVS(26322)*UV(4637)+JVS(26323)*UV(5066)+JVS(26324)*UV(5250)+JVS(26327)*UV(5256)& - &+JVS(26328)*UV(5258) - JUV(4638) = JVS(26329)*UV(1247)+JVS(26330)*UV(1605)+JVS(26331)*UV(2597)+JVS(26332)*UV(4638)+JVS(26334)*UV(5250)& - &+JVS(26335)*UV(5252)+JVS(26336)*UV(5253)+JVS(26337)*UV(5255)+JVS(26338)*UV(5256) - JUV(4639) = JVS(26339)*UV(1361)+JVS(26340)*UV(3482)+JVS(26341)*UV(4023)+JVS(26342)*UV(4639)+JVS(26343)*UV(5250)& - &+JVS(26344)*UV(5252)+JVS(26345)*UV(5253)+JVS(26347)*UV(5256)+JVS(26348)*UV(5258) - JUV(4640) = JVS(26349)*UV(1048)+JVS(26350)*UV(1097)+JVS(26351)*UV(3995)+JVS(26352)*UV(4640)+JVS(26353)*UV(4915)& - &+JVS(26355)*UV(5250)+JVS(26356)*UV(5252)+JVS(26357)*UV(5255)+JVS(26358)*UV(5256) - JUV(4641) = JVS(26359)*UV(921)+JVS(26360)*UV(2640)+JVS(26361)*UV(4032)+JVS(26362)*UV(4641)+JVS(26363)*UV(5250)& - &+JVS(26364)*UV(5252)+JVS(26365)*UV(5253)+JVS(26366)*UV(5255)+JVS(26367)*UV(5256) - JUV(4642) = JVS(26369)*UV(988)+JVS(26370)*UV(2787)+JVS(26371)*UV(3471)+JVS(26372)*UV(4642)+JVS(26374)*UV(5250)& - &+JVS(26375)*UV(5252)+JVS(26376)*UV(5253)+JVS(26377)*UV(5255)+JVS(26378)*UV(5256) - JUV(4643) = JVS(26379)*UV(888)+JVS(26380)*UV(3137)+JVS(26381)*UV(4643)+JVS(26383)*UV(5250)+JVS(26384)*UV(5252)& - &+JVS(26386)*UV(5255)+JVS(26387)*UV(5256) - JUV(4644) = JVS(26388)*UV(1643)+JVS(26391)*UV(2445)+JVS(26396)*UV(4644)+JVS(26399)*UV(5250)+JVS(26400)*UV(5252)& - &+JVS(26401)*UV(5255)+JVS(26402)*UV(5256) - JUV(4645) = JVS(26403)*UV(1697)+JVS(26404)*UV(1886)+JVS(26405)*UV(4645)+JVS(26406)*UV(5051)+JVS(26408)*UV(5250)& - &+JVS(26409)*UV(5252)+JVS(26410)*UV(5255)+JVS(26411)*UV(5256) - JUV(4646) = JVS(26412)*UV(4300)+JVS(26413)*UV(4646)+JVS(26416)*UV(5250)+JVS(26417)*UV(5252)+JVS(26418)*UV(5255)& - &+JVS(26419)*UV(5256) - JUV(4647) = JVS(26420)*UV(1577)+JVS(26421)*UV(3444)+JVS(26422)*UV(4474)+JVS(26423)*UV(4647)+JVS(26425)*UV(5250)& - &+JVS(26426)*UV(5252)+JVS(26427)*UV(5255)+JVS(26428)*UV(5256) - JUV(4648) = JVS(26430)*UV(44)+JVS(26432)*UV(2975)+JVS(26434)*UV(4648)+JVS(26437)*UV(5250)+JVS(26438)*UV(5252)& - &+JVS(26439)*UV(5255)+JVS(26440)*UV(5256) - JUV(4649) = JVS(26441)*UV(1417)+JVS(26442)*UV(2955)+JVS(26443)*UV(4396)+JVS(26444)*UV(4649)+JVS(26445)*UV(5250)& - &+JVS(26446)*UV(5252)+JVS(26447)*UV(5253)+JVS(26448)*UV(5255)+JVS(26449)*UV(5256) - JUV(4650) = JVS(26451)*UV(3795)+JVS(26452)*UV(4650)+JVS(26453)*UV(5068)+JVS(26454)*UV(5250)+JVS(26457)*UV(5256)& - &+JVS(26458)*UV(5258) - JUV(4651) = JVS(26459)*UV(768)+JVS(26460)*UV(1040)+JVS(26462)*UV(3407)+JVS(26465)*UV(4651)+JVS(26466)*UV(4828)& - &+JVS(26468)*UV(5250)+JVS(26469)*UV(5251)+JVS(26470)*UV(5252)+JVS(26471)*UV(5253)+JVS(26472)*UV(5254)& - &+JVS(26474)*UV(5256) - JUV(4652) = JVS(26475)*UV(1336)+JVS(26476)*UV(1739)+JVS(26477)*UV(3313)+JVS(26478)*UV(4652)+JVS(26480)*UV(5250)& - &+JVS(26481)*UV(5252)+JVS(26482)*UV(5253)+JVS(26483)*UV(5255)+JVS(26484)*UV(5256) - JUV(4653) = JVS(26485)*UV(1408)+JVS(26486)*UV(2980)+JVS(26487)*UV(4653)+JVS(26488)*UV(5072)+JVS(26489)*UV(5250)& - &+JVS(26490)*UV(5252)+JVS(26491)*UV(5253)+JVS(26492)*UV(5255)+JVS(26493)*UV(5256) - JUV(4654) = JVS(26494)*UV(1370)+JVS(26495)*UV(2857)+JVS(26496)*UV(3833)+JVS(26497)*UV(4654)+JVS(26498)*UV(5250)& - &+JVS(26499)*UV(5252)+JVS(26500)*UV(5253)+JVS(26501)*UV(5255)+JVS(26502)*UV(5256) - JUV(4655) = JVS(26504)*UV(869)+JVS(26505)*UV(3191)+JVS(26506)*UV(4655)+JVS(26508)*UV(5250)+JVS(26509)*UV(5252)& - &+JVS(26511)*UV(5255)+JVS(26512)*UV(5256) - JUV(4656) = JVS(26513)*UV(1274)+JVS(26514)*UV(2650)+JVS(26515)*UV(4017)+JVS(26516)*UV(4656)+JVS(26517)*UV(5250)& - &+JVS(26518)*UV(5252)+JVS(26519)*UV(5253)+JVS(26520)*UV(5255)+JVS(26521)*UV(5256) - JUV(4657) = JVS(26523)*UV(1685)+JVS(26524)*UV(1874)+JVS(26525)*UV(4657)+JVS(26527)*UV(5250)+JVS(26528)*UV(5252)& - &+JVS(26529)*UV(5253)+JVS(26530)*UV(5255)+JVS(26531)*UV(5256) - JUV(4658) = JVS(26532)*UV(1518)+JVS(26533)*UV(1575)+JVS(26534)*UV(1939)+JVS(26535)*UV(3236)+JVS(26538)*UV(4658)& - &+JVS(26540)*UV(5250)+JVS(26541)*UV(5252)+JVS(26542)*UV(5253)+JVS(26543)*UV(5255)+JVS(26544)*UV(5256) - JUV(4659) = JVS(26545)*UV(1348)+JVS(26546)*UV(2523)+JVS(26547)*UV(3862)+JVS(26548)*UV(4659)+JVS(26550)*UV(5250)& - &+JVS(26551)*UV(5252)+JVS(26552)*UV(5253)+JVS(26553)*UV(5255)+JVS(26554)*UV(5256) - JUV(4660) = JVS(26555)*UV(1018)+JVS(26556)*UV(2527)+JVS(26557)*UV(4660)+JVS(26558)*UV(5159)+JVS(26559)*UV(5250)& - &+JVS(26560)*UV(5252)+JVS(26561)*UV(5253)+JVS(26562)*UV(5255)+JVS(26563)*UV(5256) - JUV(4661) = JVS(26564)*UV(1768)+JVS(26565)*UV(3748)+JVS(26566)*UV(4661)+JVS(26567)*UV(4896)+JVS(26568)*UV(5250)& - &+JVS(26569)*UV(5252)+JVS(26570)*UV(5255)+JVS(26571)*UV(5256)+JVS(26572)*UV(5258) - JUV(4662) = JVS(26573)*UV(1055)+JVS(26574)*UV(2978)+JVS(26575)*UV(3915)+JVS(26576)*UV(4662)+JVS(26578)*UV(5250)& - &+JVS(26579)*UV(5252)+JVS(26580)*UV(5253)+JVS(26581)*UV(5255)+JVS(26582)*UV(5256) - JUV(4663) = JVS(26583)*UV(1453)+JVS(26584)*UV(3098)+JVS(26585)*UV(4072)+JVS(26587)*UV(4663)+JVS(26588)*UV(5250)& - &+JVS(26589)*UV(5252)+JVS(26590)*UV(5253)+JVS(26592)*UV(5256)+JVS(26593)*UV(5258) - JUV(4664) = JVS(26594)*UV(125)+JVS(26595)*UV(859)+JVS(26597)*UV(1696)+JVS(26598)*UV(2636)+JVS(26604)*UV(4664)& - &+JVS(26606)*UV(5250)+JVS(26607)*UV(5252)+JVS(26608)*UV(5253)+JVS(26609)*UV(5255)+JVS(26610)*UV(5256) - JUV(4665) = JVS(26611)*UV(1291)+JVS(26612)*UV(3025)+JVS(26613)*UV(4665)+JVS(26614)*UV(5063)+JVS(26615)*UV(5250)& - &+JVS(26616)*UV(5252)+JVS(26617)*UV(5253)+JVS(26618)*UV(5255)+JVS(26619)*UV(5256) - JUV(4666) = JVS(26620)*UV(613)+JVS(26621)*UV(1095)+JVS(26622)*UV(1763)+JVS(26623)*UV(3147)+JVS(26626)*UV(4622)& - &+JVS(26627)*UV(4666)+JVS(26629)*UV(4964)+JVS(26630)*UV(4965)+JVS(26631)*UV(5250)+JVS(26632)*UV(5252)& - &+JVS(26634)*UV(5255)+JVS(26635)*UV(5256)+JVS(26636)*UV(5258) - JUV(4667) = JVS(26637)*UV(921)+JVS(26638)*UV(961)+JVS(26639)*UV(4032)+JVS(26640)*UV(4641)+JVS(26641)*UV(4667)& - &+JVS(26642)*UV(5250)+JVS(26643)*UV(5252)+JVS(26645)*UV(5255)+JVS(26646)*UV(5256) - JUV(4668) = JVS(26648)*UV(2481)+JVS(26649)*UV(4668)+JVS(26651)*UV(5251)+JVS(26652)*UV(5252)+JVS(26653)*UV(5253)& - &+JVS(26654)*UV(5254) - JUV(4669) = JVS(26656)*UV(3214)+JVS(26657)*UV(3519)+JVS(26658)*UV(3535)+JVS(26661)*UV(4669)+JVS(26663)*UV(5250)& - &+JVS(26664)*UV(5252)+JVS(26665)*UV(5255)+JVS(26666)*UV(5256)+JVS(26667)*UV(5258) - JUV(4670) = JVS(26668)*UV(1003)+JVS(26669)*UV(3494)+JVS(26670)*UV(4007)+JVS(26671)*UV(4670)+JVS(26672)*UV(5250)& - &+JVS(26673)*UV(5252)+JVS(26674)*UV(5253)+JVS(26676)*UV(5256)+JVS(26677)*UV(5258) - JUV(4671) = JVS(26678)*UV(892)+JVS(26679)*UV(3125)+JVS(26680)*UV(4011)+JVS(26682)*UV(4671)+JVS(26683)*UV(5250)& - &+JVS(26684)*UV(5252)+JVS(26685)*UV(5253)+JVS(26687)*UV(5256)+JVS(26688)*UV(5258) - JUV(4672) = JVS(26689)*UV(190)+JVS(26691)*UV(1590)+JVS(26696)*UV(4672)+JVS(26698)*UV(5250)+JVS(26699)*UV(5252)& - &+JVS(26701)*UV(5255)+JVS(26702)*UV(5256) - JUV(4673) = JVS(26703)*UV(810)+JVS(26705)*UV(1920)+JVS(26706)*UV(2571)+JVS(26707)*UV(3431)+JVS(26709)*UV(4673)& - &+JVS(26711)*UV(5250)+JVS(26712)*UV(5252)+JVS(26713)*UV(5253)+JVS(26714)*UV(5255)+JVS(26715)*UV(5256) - JUV(4674) = JVS(26716)*UV(2686)+JVS(26717)*UV(3832)+JVS(26718)*UV(4674)+JVS(26720)*UV(5250)+JVS(26721)*UV(5252)& - &+JVS(26722)*UV(5255)+JVS(26723)*UV(5256) - JUV(4675) = JVS(26725)*UV(910)+JVS(26726)*UV(1174)+JVS(26727)*UV(4093)+JVS(26728)*UV(4635)+JVS(26729)*UV(4675)& - &+JVS(26730)*UV(5250)+JVS(26731)*UV(5252)+JVS(26733)*UV(5255)+JVS(26734)*UV(5256) - JUV(4676) = JVS(26736)*UV(1366)+JVS(26737)*UV(3150)+JVS(26738)*UV(4039)+JVS(26740)*UV(4676)+JVS(26741)*UV(5250)& - &+JVS(26742)*UV(5252)+JVS(26743)*UV(5253)+JVS(26745)*UV(5256)+JVS(26746)*UV(5258) - JUV(4677) = JVS(26747)*UV(819)+JVS(26748)*UV(4677)+JVS(26750)*UV(5251)+JVS(26751)*UV(5252)+JVS(26752)*UV(5253)& - &+JVS(26753)*UV(5254) - JUV(4678) = JVS(26755)*UV(4678)+JVS(26756)*UV(5249)+JVS(26757)*UV(5251)+JVS(26758)*UV(5252)+JVS(26759)*UV(5253)& - &+JVS(26760)*UV(5254)+JVS(26761)*UV(5258) - JUV(4679) = JVS(26762)*UV(951)+JVS(26763)*UV(1624)+JVS(26764)*UV(2666)+JVS(26765)*UV(4679)+JVS(26767)*UV(5250)& - &+JVS(26768)*UV(5252)+JVS(26769)*UV(5253)+JVS(26770)*UV(5255)+JVS(26771)*UV(5256) - JUV(4680) = JVS(26772)*UV(1378)+JVS(26773)*UV(2671)+JVS(26774)*UV(4569)+JVS(26775)*UV(4680)+JVS(26776)*UV(5250)& - &+JVS(26777)*UV(5252)+JVS(26778)*UV(5253)+JVS(26779)*UV(5255)+JVS(26780)*UV(5256) - JUV(4681) = JVS(26782)*UV(1250)+JVS(26783)*UV(1617)+JVS(26784)*UV(3323)+JVS(26785)*UV(4681)+JVS(26787)*UV(5250)& - &+JVS(26788)*UV(5252)+JVS(26789)*UV(5253)+JVS(26790)*UV(5255)+JVS(26791)*UV(5256) - JUV(4682) = JVS(26792)*UV(1452)+JVS(26793)*UV(3153)+JVS(26794)*UV(4040)+JVS(26796)*UV(4682)+JVS(26797)*UV(5250)& - &+JVS(26798)*UV(5252)+JVS(26799)*UV(5253)+JVS(26801)*UV(5256)+JVS(26802)*UV(5258) - JUV(4683) = JVS(26803)*UV(1031)+JVS(26804)*UV(1073)+JVS(26805)*UV(4094)+JVS(26806)*UV(4683)+JVS(26807)*UV(4829)& - &+JVS(26808)*UV(5250)+JVS(26809)*UV(5252)+JVS(26810)*UV(5255)+JVS(26811)*UV(5256) - JUV(4684) = JVS(26813)*UV(915)+JVS(26814)*UV(2904)+JVS(26815)*UV(4684)+JVS(26816)*UV(4729)+JVS(26817)*UV(5250)& - &+JVS(26818)*UV(5252)+JVS(26819)*UV(5253)+JVS(26820)*UV(5255)+JVS(26821)*UV(5256) - JUV(4685) = JVS(26822)*UV(1299)+JVS(26823)*UV(2948)+JVS(26824)*UV(4018)+JVS(26825)*UV(4685)+JVS(26826)*UV(5250)& - &+JVS(26827)*UV(5252)+JVS(26828)*UV(5253)+JVS(26829)*UV(5255)+JVS(26830)*UV(5256) - JUV(4686) = JVS(26832)*UV(1474)+JVS(26833)*UV(2779)+JVS(26834)*UV(3958)+JVS(26838)*UV(4686)+JVS(26840)*UV(5250)& - &+JVS(26841)*UV(5252)+JVS(26842)*UV(5253)+JVS(26843)*UV(5255)+JVS(26844)*UV(5256) - JUV(4687) = JVS(26845)*UV(1474)+JVS(26846)*UV(1956)+JVS(26847)*UV(3958)+JVS(26851)*UV(4686)+JVS(26852)*UV(4687)& - &+JVS(26854)*UV(5250)+JVS(26855)*UV(5252)+JVS(26857)*UV(5255)+JVS(26858)*UV(5256) - JUV(4688) = JVS(26859)*UV(1949)+JVS(26860)*UV(3775)+JVS(26861)*UV(4650)+JVS(26862)*UV(4688)+JVS(26864)*UV(5250)& - &+JVS(26865)*UV(5252)+JVS(26866)*UV(5255)+JVS(26867)*UV(5256)+JVS(26868)*UV(5258) - JUV(4689) = JVS(26869)*UV(2025)+JVS(26870)*UV(3773)+JVS(26871)*UV(4637)+JVS(26872)*UV(4689)+JVS(26874)*UV(5250)& - &+JVS(26875)*UV(5252)+JVS(26876)*UV(5255)+JVS(26877)*UV(5256)+JVS(26878)*UV(5258) - JUV(4690) = JVS(26879)*UV(978)+JVS(26880)*UV(3170)+JVS(26881)*UV(4006)+JVS(26883)*UV(4690)+JVS(26884)*UV(5250)& - &+JVS(26885)*UV(5252)+JVS(26886)*UV(5253)+JVS(26888)*UV(5256)+JVS(26889)*UV(5258) - JUV(4691) = JVS(26890)*UV(4691)+JVS(26891)*UV(5249)+JVS(26892)*UV(5251)+JVS(26893)*UV(5252)+JVS(26894)*UV(5253)& - &+JVS(26895)*UV(5254)+JVS(26896)*UV(5258) - JUV(4692) = JVS(26897)*UV(941)+JVS(26898)*UV(2569)+JVS(26899)*UV(4083)+JVS(26900)*UV(4692)+JVS(26901)*UV(5250)& - &+JVS(26902)*UV(5252)+JVS(26903)*UV(5253)+JVS(26904)*UV(5255)+JVS(26905)*UV(5256) - JUV(4693) = JVS(26907)*UV(569)+JVS(26908)*UV(705)+JVS(26909)*UV(723)+JVS(26910)*UV(738)+JVS(26911)*UV(752)+JVS(26912)& - &*UV(2551)+JVS(26913)*UV(2557)+JVS(26914)*UV(2580)+JVS(26915)*UV(2586)+JVS(26916)*UV(2641)+JVS(26917)& - &*UV(2668)+JVS(26918)*UV(2682)+JVS(26919)*UV(2733)+JVS(26920)*UV(2736)+JVS(26921)*UV(2741)+JVS(26922)& - &*UV(2918)+JVS(26923)*UV(2935)+JVS(26924)*UV(2952)+JVS(26925)*UV(2963)+JVS(26926)*UV(2986)+JVS(26927)& - &*UV(3016)+JVS(26928)*UV(3347)+JVS(26929)*UV(3363)+JVS(26930)*UV(3371)+JVS(26931)*UV(3381)+JVS(26932)& - &*UV(3402)+JVS(26933)*UV(3477)+JVS(26939)*UV(3590)+JVS(26940)*UV(3672)+JVS(26941)*UV(3829)+JVS(26942)& - &*UV(4178)+JVS(26972)*UV(4693)+JVS(26973)*UV(4694)+JVS(26982)*UV(5102)+JVS(26985)*UV(5250) - JUV(4694) = JVS(26991)*UV(705)+JVS(26992)*UV(2728)+JVS(26993)*UV(2768)+JVS(26994)*UV(2847)+JVS(26995)*UV(3246)& - &+JVS(26997)*UV(3296)+JVS(27004)*UV(4694)+JVS(27005)*UV(4985)+JVS(27006)*UV(5250) - JUV(4695) = JVS(27012)*UV(4695)+JVS(27013)*UV(4840)+JVS(27014)*UV(5250)+JVS(27015)*UV(5252)+JVS(27016)*UV(5255)& - &+JVS(27017)*UV(5256) - JUV(4696) = JVS(27018)*UV(1641)+JVS(27019)*UV(1751)+JVS(27020)*UV(4696)+JVS(27021)*UV(5238)+JVS(27022)*UV(5250)& - &+JVS(27023)*UV(5252)+JVS(27024)*UV(5255)+JVS(27025)*UV(5256) - JUV(4697) = JVS(27026)*UV(2889)+JVS(27028)*UV(4697)+JVS(27031)*UV(5252)+JVS(27032)*UV(5255)+JVS(27033)*UV(5256) - JUV(4698) = JVS(27034)*UV(2118)+JVS(27035)*UV(3069)+JVS(27036)*UV(3207)+JVS(27037)*UV(4698)+JVS(27039)*UV(5250)& - &+JVS(27040)*UV(5252)+JVS(27041)*UV(5255)+JVS(27042)*UV(5256) - JUV(4699) = JVS(27043)*UV(4083)+JVS(27044)*UV(4699)+JVS(27045)*UV(5250)+JVS(27046)*UV(5252)+JVS(27047)*UV(5255)& - &+JVS(27048)*UV(5256) - JUV(4700) = JVS(27050)*UV(2069)+JVS(27051)*UV(4508)+JVS(27052)*UV(4700)+JVS(27053)*UV(5250)+JVS(27054)*UV(5252)& - &+JVS(27055)*UV(5255)+JVS(27056)*UV(5256) - JUV(4701) = JVS(27058)*UV(4032)+JVS(27059)*UV(4701)+JVS(27060)*UV(5250)+JVS(27061)*UV(5252)+JVS(27062)*UV(5255)& - &+JVS(27063)*UV(5256) - JUV(4702) = JVS(27065)*UV(1940)+JVS(27066)*UV(4604)+JVS(27067)*UV(4606)+JVS(27068)*UV(4702)+JVS(27069)*UV(5250)& - &+JVS(27070)*UV(5252)+JVS(27071)*UV(5255)+JVS(27072)*UV(5256) - JUV(4703) = JVS(27074)*UV(4703)+JVS(27075)*UV(5103)+JVS(27076)*UV(5250)+JVS(27077)*UV(5252)+JVS(27078)*UV(5255)& - &+JVS(27079)*UV(5256) - JUV(4704) = JVS(27080)*UV(4704)+JVS(27081)*UV(5064)+JVS(27082)*UV(5250)+JVS(27083)*UV(5252)+JVS(27084)*UV(5255)& - &+JVS(27085)*UV(5256) - JUV(4705) = JVS(27086)*UV(3540)+JVS(27087)*UV(4705)+JVS(27088)*UV(5230)+JVS(27089)*UV(5250)+JVS(27090)*UV(5252)& - &+JVS(27091)*UV(5255)+JVS(27092)*UV(5256) - JUV(4706) = JVS(27093)*UV(3455)+JVS(27094)*UV(4706)+JVS(27095)*UV(5037)+JVS(27096)*UV(5250)+JVS(27097)*UV(5252)& - &+JVS(27098)*UV(5255)+JVS(27099)*UV(5256) - JUV(4707) = JVS(27100)*UV(3834)+JVS(27101)*UV(4707)+JVS(27102)*UV(5250)+JVS(27103)*UV(5252)+JVS(27104)*UV(5255)& - &+JVS(27105)*UV(5256) - JUV(4708) = JVS(27107)*UV(1570)+JVS(27108)*UV(2485)+JVS(27109)*UV(3446)+JVS(27110)*UV(3453)+JVS(27111)*UV(3573)& - &+JVS(27112)*UV(3576)+JVS(27113)*UV(3606)+JVS(27117)*UV(4708)+JVS(27119)*UV(4823)+JVS(27121)*UV(4932)& - &+JVS(27123)*UV(5250)+JVS(27125)*UV(5255) - JUV(4709) = JVS(27128)*UV(4164)+JVS(27129)*UV(4709)+JVS(27131)*UV(5250)+JVS(27132)*UV(5252)+JVS(27133)*UV(5255)& - &+JVS(27134)*UV(5256) - JUV(4710) = JVS(27135)*UV(2562)+JVS(27136)*UV(2676)+JVS(27137)*UV(2874)+JVS(27138)*UV(3282)+JVS(27139)*UV(3306)& - &+JVS(27140)*UV(3548)+JVS(27146)*UV(4710)+JVS(27149)*UV(5250)+JVS(27153)*UV(5256) - JUV(4711) = JVS(27154)*UV(4711)+JVS(27155)*UV(5220)+JVS(27156)*UV(5250)+JVS(27157)*UV(5252)+JVS(27158)*UV(5255)& - &+JVS(27159)*UV(5256) - JUV(4712) = JVS(27160)*UV(4122)+JVS(27161)*UV(4712)+JVS(27163)*UV(5250)+JVS(27164)*UV(5252)+JVS(27165)*UV(5255)& - &+JVS(27166)*UV(5256) - JUV(4713) = JVS(27167)*UV(4103)+JVS(27168)*UV(4713)+JVS(27170)*UV(5250)+JVS(27171)*UV(5252)+JVS(27172)*UV(5255)& - &+JVS(27173)*UV(5256) - JUV(4714) = JVS(27174)*UV(2413)+JVS(27175)*UV(4332)+JVS(27176)*UV(4475)+JVS(27177)*UV(4714)+JVS(27178)*UV(5250)& - &+JVS(27179)*UV(5252)+JVS(27180)*UV(5255)+JVS(27181)*UV(5256) - JUV(4715) = JVS(27183)*UV(4179)+JVS(27184)*UV(4715)+JVS(27186)*UV(5250)+JVS(27187)*UV(5252)+JVS(27188)*UV(5255)& - &+JVS(27189)*UV(5256) - JUV(4716) = JVS(27190)*UV(3917)+JVS(27191)*UV(4716)+JVS(27193)*UV(5250)+JVS(27194)*UV(5252)+JVS(27195)*UV(5255)& - &+JVS(27196)*UV(5256) - JUV(4717) = JVS(27197)*UV(1599)+JVS(27198)*UV(2213)+JVS(27199)*UV(2401)+JVS(27200)*UV(4356)+JVS(27201)*UV(4717)& - &+JVS(27203)*UV(5250)+JVS(27206)*UV(5256) - JUV(4718) = JVS(27207)*UV(4056)+JVS(27208)*UV(4718)+JVS(27209)*UV(5250)+JVS(27210)*UV(5252)+JVS(27211)*UV(5255)& - &+JVS(27212)*UV(5256) - JUV(4719) = JVS(27214)*UV(2114)+JVS(27215)*UV(3376)+JVS(27218)*UV(4719)+JVS(27219)*UV(5250)+JVS(27220)*UV(5252)& - &+JVS(27221)*UV(5255)+JVS(27222)*UV(5256) - JUV(4720) = JVS(27224)*UV(4396)+JVS(27225)*UV(4720)+JVS(27226)*UV(5250)+JVS(27227)*UV(5252)+JVS(27228)*UV(5255)& - &+JVS(27229)*UV(5256) - JUV(4721) = JVS(27231)*UV(3285)+JVS(27232)*UV(3352)+JVS(27233)*UV(3353)+JVS(27234)*UV(3356)+JVS(27235)*UV(3357)& - &+JVS(27236)*UV(3378)+JVS(27237)*UV(3379)+JVS(27238)*UV(3426)+JVS(27239)*UV(3427)+JVS(27240)*UV(3576)& - &+JVS(27241)*UV(3588)+JVS(27242)*UV(3589)+JVS(27243)*UV(4010)+JVS(27244)*UV(4032)+JVS(27245)*UV(4093)& - &+JVS(27246)*UV(4094)+JVS(27248)*UV(4388)+JVS(27249)*UV(4393)+JVS(27250)*UV(4396)+JVS(27253)*UV(4721)& - &+JVS(27256)*UV(5250)+JVS(27259)*UV(5256)+JVS(27260)*UV(5258) - JUV(4722) = JVS(27261)*UV(184)+JVS(27263)*UV(1326)+JVS(27265)*UV(4722)+JVS(27267)*UV(5250)+JVS(27268)*UV(5252)& - &+JVS(27269)*UV(5255)+JVS(27270)*UV(5256) - JUV(4723) = JVS(27271)*UV(2366)+JVS(27272)*UV(4474)+JVS(27273)*UV(4723)+JVS(27274)*UV(5250)+JVS(27275)*UV(5252)& - &+JVS(27276)*UV(5255)+JVS(27277)*UV(5256) - JUV(4724) = JVS(27279)*UV(2080)+JVS(27280)*UV(3077)+JVS(27283)*UV(4724)+JVS(27285)*UV(5250)+JVS(27286)*UV(5252)& - &+JVS(27287)*UV(5255)+JVS(27288)*UV(5256) - JUV(4725) = JVS(27289)*UV(4080)+JVS(27290)*UV(4725)+JVS(27291)*UV(5250)+JVS(27292)*UV(5252)+JVS(27293)*UV(5255)& - &+JVS(27294)*UV(5256) - JUV(4726) = JVS(27296)*UV(264)+JVS(27297)*UV(1455)+JVS(27302)*UV(4726)+JVS(27303)*UV(5250)+JVS(27304)*UV(5252)& - &+JVS(27306)*UV(5255)+JVS(27307)*UV(5256) - JUV(4727) = JVS(27308)*UV(4272)+JVS(27309)*UV(4727)+JVS(27310)*UV(5250)+JVS(27311)*UV(5252)+JVS(27312)*UV(5255)& - &+JVS(27313)*UV(5256) - JUV(4728) = JVS(27315)*UV(2485)+JVS(27316)*UV(3565)+JVS(27317)*UV(3570)+JVS(27318)*UV(3588)+JVS(27319)*UV(3610)& - &+JVS(27324)*UV(4728)+JVS(27327)*UV(5250) - JUV(4729) = JVS(27332)*UV(3271)+JVS(27333)*UV(3322)+JVS(27334)*UV(3339)+JVS(27335)*UV(3340)+JVS(27336)*UV(3345)& - &+JVS(27337)*UV(3359)+JVS(27338)*UV(3360)+JVS(27339)*UV(3411)+JVS(27340)*UV(3570)+JVS(27341)*UV(3605)& - &+JVS(27342)*UV(3610)+JVS(27343)*UV(3614)+JVS(27344)*UV(4056)+JVS(27345)*UV(4080)+JVS(27346)*UV(4083)& - &+JVS(27347)*UV(4272)+JVS(27352)*UV(4729)+JVS(27353)*UV(5250)+JVS(27356)*UV(5256)+JVS(27357)*UV(5258) - JUV(4730) = JVS(27358)*UV(2539)+JVS(27359)*UV(3049)+JVS(27360)*UV(4730)+JVS(27362)*UV(5250)+JVS(27363)*UV(5252)& - &+JVS(27364)*UV(5255)+JVS(27365)*UV(5256) - JUV(4731) = JVS(27366)*UV(2700)+JVS(27367)*UV(3709)+JVS(27369)*UV(4731)+JVS(27371)*UV(5252)+JVS(27372)*UV(5253)& - &+JVS(27373)*UV(5255)+JVS(27374)*UV(5256) - JUV(4732) = JVS(27375)*UV(4732)+JVS(27376)*UV(5050)+JVS(27377)*UV(5250)+JVS(27378)*UV(5252)+JVS(27379)*UV(5255)& - &+JVS(27380)*UV(5256) - JUV(4733) = JVS(27381)*UV(1966)+JVS(27382)*UV(2385)+JVS(27383)*UV(4733)+JVS(27384)*UV(5238)+JVS(27385)*UV(5250)& - &+JVS(27386)*UV(5252)+JVS(27387)*UV(5255)+JVS(27388)*UV(5256) - JUV(4734) = JVS(27389)*UV(965)+JVS(27390)*UV(3497)+JVS(27393)*UV(4734)+JVS(27395)*UV(5250)+JVS(27396)*UV(5252)& - &+JVS(27397)*UV(5255)+JVS(27398)*UV(5256) - JUV(4735) = JVS(27399)*UV(4735)+JVS(27400)*UV(5140)+JVS(27401)*UV(5250)+JVS(27402)*UV(5252)+JVS(27403)*UV(5255)& - &+JVS(27404)*UV(5256) - JUV(4736) = JVS(27405)*UV(316)+JVS(27406)*UV(2194)+JVS(27407)*UV(2355)+JVS(27408)*UV(3779)+JVS(27409)*UV(4571)& - &+JVS(27410)*UV(4736)+JVS(27412)*UV(5250) - JUV(4737) = JVS(27416)*UV(1842)+JVS(27417)*UV(2220)+JVS(27418)*UV(2647)+JVS(27419)*UV(3025)+JVS(27421)*UV(4737)& - &+JVS(27423)*UV(5116)+JVS(27424)*UV(5250)+JVS(27428)*UV(5256) - JUV(4738) = JVS(27429)*UV(1454)+JVS(27430)*UV(2119)+JVS(27431)*UV(2781)+JVS(27432)*UV(4738)+JVS(27434)*UV(5240)& - &+JVS(27435)*UV(5250)+JVS(27436)*UV(5252)+JVS(27437)*UV(5253)+JVS(27438)*UV(5255)+JVS(27439)*UV(5256) - JUV(4739) = JVS(27440)*UV(1970)+JVS(27441)*UV(1991)+JVS(27442)*UV(2907)+JVS(27444)*UV(4739)+JVS(27447)*UV(5250)& - &+JVS(27448)*UV(5252)+JVS(27449)*UV(5253)+JVS(27450)*UV(5255)+JVS(27451)*UV(5256) - JUV(4740) = JVS(27452)*UV(1086)+JVS(27453)*UV(2051)+JVS(27454)*UV(3433)+JVS(27456)*UV(4547)+JVS(27458)*UV(4740)& - &+JVS(27461)*UV(5250)+JVS(27462)*UV(5252)+JVS(27463)*UV(5253)+JVS(27464)*UV(5255)+JVS(27465)*UV(5256) - JUV(4741) = JVS(27467)*UV(214)+JVS(27468)*UV(2393)+JVS(27470)*UV(4741)+JVS(27474)*UV(5251)+JVS(27475)*UV(5252)& - &+JVS(27476)*UV(5253)+JVS(27477)*UV(5254) - JUV(4742) = JVS(27479)*UV(1953)+JVS(27480)*UV(2769)+JVS(27483)*UV(4742)+JVS(27486)*UV(5250)+JVS(27487)*UV(5252)& - &+JVS(27489)*UV(5255)+JVS(27490)*UV(5256) - JUV(4743) = JVS(27491)*UV(71)+JVS(27492)*UV(1232)+JVS(27493)*UV(1717)+JVS(27494)*UV(2709)+JVS(27495)*UV(3539)& - &+JVS(27497)*UV(4743)+JVS(27498)*UV(5250)+JVS(27499)*UV(5252)+JVS(27501)*UV(5256) - JUV(4744) = JVS(27502)*UV(3061)+JVS(27503)*UV(3787)+JVS(27505)*UV(4744)+JVS(27507)*UV(5252)+JVS(27508)*UV(5253)& - &+JVS(27509)*UV(5255)+JVS(27510)*UV(5256) - JUV(4745) = JVS(27511)*UV(930)+JVS(27512)*UV(2132)+JVS(27514)*UV(4183)+JVS(27515)*UV(4745)+JVS(27519)*UV(5250)& - &+JVS(27520)*UV(5252)+JVS(27522)*UV(5255)+JVS(27523)*UV(5256) - JUV(4746) = JVS(27524)*UV(1746)+JVS(27525)*UV(4746)+JVS(27527)*UV(5250)+JVS(27528)*UV(5252)+JVS(27529)*UV(5255)& - &+JVS(27530)*UV(5256)+JVS(27531)*UV(5257) - JUV(4747) = JVS(27533)*UV(3517)+JVS(27534)*UV(3646)+JVS(27535)*UV(4600)+JVS(27536)*UV(4747)+JVS(27537)*UV(4970)& - &+JVS(27540)*UV(5083)+JVS(27542)*UV(5095)+JVS(27543)*UV(5169)+JVS(27544)*UV(5187)+JVS(27545)*UV(5189)& - &+JVS(27546)*UV(5207)+JVS(27549)*UV(5257)+JVS(27550)*UV(5258) - JUV(4748) = JVS(27551)*UV(149)+JVS(27553)*UV(1331)+JVS(27554)*UV(1656)+JVS(27559)*UV(4748)+JVS(27562)*UV(5250)& - &+JVS(27563)*UV(5252)+JVS(27565)*UV(5255)+JVS(27566)*UV(5256) - JUV(4749) = JVS(27567)*UV(1816)+JVS(27568)*UV(3042)+JVS(27569)*UV(3449)+JVS(27570)*UV(3524)+JVS(27571)*UV(4229)& - &+JVS(27573)*UV(4617)+JVS(27574)*UV(4749)+JVS(27577)*UV(5250)+JVS(27578)*UV(5252)+JVS(27580)*UV(5255)& - &+JVS(27581)*UV(5256) - JUV(4750) = JVS(27582)*UV(1215)+JVS(27583)*UV(3434)+JVS(27584)*UV(4750)+JVS(27587)*UV(5250)+JVS(27588)*UV(5252)& - &+JVS(27590)*UV(5255)+JVS(27591)*UV(5256) - JUV(4751) = JVS(27592)*UV(1392)+JVS(27593)*UV(3558)+JVS(27594)*UV(4751)+JVS(27596)*UV(5250)+JVS(27598)*UV(5252)& - &+JVS(27601)*UV(5255)+JVS(27602)*UV(5256) - JUV(4752) = JVS(27603)*UV(1008)+JVS(27604)*UV(1257)+JVS(27606)*UV(2772)+JVS(27609)*UV(4752)+JVS(27611)*UV(5085)& - &+JVS(27612)*UV(5250)+JVS(27613)*UV(5252)+JVS(27614)*UV(5253)+JVS(27615)*UV(5255)+JVS(27616)*UV(5256) - JUV(4753) = JVS(27617)*UV(1603)+JVS(27618)*UV(2183)+JVS(27619)*UV(2928)+JVS(27621)*UV(4753)+JVS(27624)*UV(5250)& - &+JVS(27625)*UV(5252)+JVS(27626)*UV(5253)+JVS(27627)*UV(5255)+JVS(27628)*UV(5256) - JUV(4754) = JVS(27629)*UV(2470)+JVS(27630)*UV(4754)+JVS(27632)*UV(5250)+JVS(27633)*UV(5252)+JVS(27634)*UV(5255)& - &+JVS(27635)*UV(5256)+JVS(27636)*UV(5257) - JUV(4755) = JVS(27638)*UV(384)+JVS(27639)*UV(601)+JVS(27640)*UV(1106)+JVS(27641)*UV(2339)+JVS(27642)*UV(3583)& - &+JVS(27643)*UV(4380)+JVS(27644)*UV(4755)+JVS(27646)*UV(5238)+JVS(27647)*UV(5250)+JVS(27648)*UV(5252)& - &+JVS(27650)*UV(5255)+JVS(27651)*UV(5256) - JUV(4756) = JVS(27652)*UV(2470)+JVS(27653)*UV(4756)+JVS(27655)*UV(5250)+JVS(27656)*UV(5252)+JVS(27657)*UV(5255)& - &+JVS(27658)*UV(5256)+JVS(27659)*UV(5257) - JUV(4757) = JVS(27661)*UV(243)+JVS(27663)*UV(4757)+JVS(27666)*UV(5251)+JVS(27667)*UV(5252)+JVS(27668)*UV(5253)& - &+JVS(27669)*UV(5254) - JUV(4758) = JVS(27671)*UV(4758)+JVS(27672)*UV(5217)+JVS(27673)*UV(5252)+JVS(27674)*UV(5255)+JVS(27675)*UV(5256) - JUV(4759) = JVS(27676)*UV(795)+JVS(27677)*UV(1085)+JVS(27679)*UV(2510)+JVS(27681)*UV(4462)+JVS(27682)*UV(4759)& - &+JVS(27686)*UV(5250)+JVS(27687)*UV(5252)+JVS(27688)*UV(5253)+JVS(27689)*UV(5255)+JVS(27690)*UV(5256) - JUV(4760) = JVS(27691)*UV(570)+JVS(27692)*UV(794)+JVS(27693)*UV(1290)+JVS(27694)*UV(1740)+JVS(27695)*UV(2121)& - &+JVS(27696)*UV(2841)+JVS(27697)*UV(2853)+JVS(27698)*UV(3184)+JVS(27704)*UV(4760)+JVS(27706)*UV(5162)& - &+JVS(27707)*UV(5250)+JVS(27708)*UV(5252)+JVS(27709)*UV(5253)+JVS(27710)*UV(5255)+JVS(27711)*UV(5256) - JUV(4761) = JVS(27712)*UV(2359)+JVS(27713)*UV(4761)+JVS(27714)*UV(5248)+JVS(27716)*UV(5250)+JVS(27717)*UV(5252)& - &+JVS(27718)*UV(5255)+JVS(27719)*UV(5256) - JUV(4762) = JVS(27721)*UV(236)+JVS(27722)*UV(4762)+JVS(27723)*UV(5248)+JVS(27724)*UV(5250)+JVS(27725)*UV(5252)& - &+JVS(27726)*UV(5255)+JVS(27727)*UV(5256) - JUV(4763) = JVS(27730)*UV(824)+JVS(27731)*UV(903)+JVS(27732)*UV(2993)+JVS(27733)*UV(3960)+JVS(27735)*UV(4763)& - &+JVS(27736)*UV(4853)+JVS(27738)*UV(5203)+JVS(27739)*UV(5250)+JVS(27740)*UV(5252)+JVS(27741)*UV(5255)& - &+JVS(27742)*UV(5256) - JUV(4764) = JVS(27743)*UV(187)+JVS(27744)*UV(1245)+JVS(27746)*UV(1628)+JVS(27750)*UV(4764)+JVS(27753)*UV(5250)& - &+JVS(27754)*UV(5252)+JVS(27756)*UV(5255)+JVS(27757)*UV(5256) - JUV(4765) = JVS(27758)*UV(3055)+JVS(27759)*UV(3607)+JVS(27760)*UV(4765)+JVS(27762)*UV(5250)+JVS(27763)*UV(5252)& - &+JVS(27764)*UV(5255)+JVS(27765)*UV(5256) - JUV(4766) = JVS(27766)*UV(447)+JVS(27767)*UV(3166)+JVS(27768)*UV(4766)+JVS(27770)*UV(5238)+JVS(27771)*UV(5250)& - &+JVS(27772)*UV(5252)+JVS(27773)*UV(5255)+JVS(27774)*UV(5256) - JUV(4767) = JVS(27775)*UV(1596)+JVS(27776)*UV(3265)+JVS(27777)*UV(4332)+JVS(27778)*UV(4475)+JVS(27779)*UV(4767)& - &+JVS(27781)*UV(5250)+JVS(27782)*UV(5252)+JVS(27783)*UV(5255)+JVS(27784)*UV(5256) - JUV(4768) = JVS(27786)*UV(1320)+JVS(27787)*UV(1901)+JVS(27788)*UV(3233)+JVS(27789)*UV(3415)+JVS(27797)*UV(4768)& - &+JVS(27800)*UV(4996)+JVS(27801)*UV(5004)+JVS(27803)*UV(5250)+JVS(27804)*UV(5252)+JVS(27806)*UV(5255)& - &+JVS(27807)*UV(5256) - JUV(4769) = JVS(27808)*UV(1206)+JVS(27809)*UV(1389)+JVS(27810)*UV(3441)+JVS(27811)*UV(3606)+JVS(27812)*UV(4198)& - &+JVS(27814)*UV(4576)+JVS(27815)*UV(4769)+JVS(27816)*UV(5250)+JVS(27817)*UV(5252)+JVS(27819)*UV(5255)& - &+JVS(27820)*UV(5256) - JUV(4770) = JVS(27822)*UV(1460)+JVS(27823)*UV(3315)+JVS(27824)*UV(3914)+JVS(27825)*UV(4770)+JVS(27827)*UV(5250)& - &+JVS(27828)*UV(5252)+JVS(27829)*UV(5253)+JVS(27830)*UV(5255)+JVS(27831)*UV(5256) - JUV(4771) = JVS(27832)*UV(828)+JVS(27833)*UV(3312)+JVS(27834)*UV(3924)+JVS(27835)*UV(4771)+JVS(27837)*UV(5250)& - &+JVS(27838)*UV(5252)+JVS(27839)*UV(5253)+JVS(27840)*UV(5255)+JVS(27841)*UV(5256) - JUV(4772) = JVS(27842)*UV(123)+JVS(27843)*UV(2635)+JVS(27844)*UV(2870)+JVS(27846)*UV(4772)+JVS(27848)*UV(5250)& - &+JVS(27849)*UV(5252)+JVS(27850)*UV(5253)+JVS(27851)*UV(5255)+JVS(27852)*UV(5256) - JUV(4773) = JVS(27853)*UV(2830)+JVS(27854)*UV(3475)+JVS(27855)*UV(3599)+JVS(27858)*UV(4773)+JVS(27859)*UV(5209)& - &+JVS(27860)*UV(5250)+JVS(27861)*UV(5252)+JVS(27862)*UV(5253)+JVS(27863)*UV(5255)+JVS(27864)*UV(5256) - JUV(4774) = JVS(27865)*UV(2497)+JVS(27866)*UV(3155)+JVS(27867)*UV(4774)+JVS(27869)*UV(5250)+JVS(27870)*UV(5252)& - &+JVS(27871)*UV(5255)+JVS(27872)*UV(5256) - JUV(4775) = JVS(27874)*UV(622)+JVS(27875)*UV(1224)+JVS(27876)*UV(2654)+JVS(27877)*UV(2794)+JVS(27878)*UV(4165)& - &+JVS(27879)*UV(4536)+JVS(27882)*UV(4775)+JVS(27884)*UV(5250)+JVS(27885)*UV(5252)+JVS(27887)*UV(5255)& - &+JVS(27888)*UV(5256) - JUV(4776) = JVS(27889)*UV(2258)+JVS(27890)*UV(4776)+JVS(27892)*UV(5251)+JVS(27893)*UV(5252)+JVS(27894)*UV(5253)& - &+JVS(27895)*UV(5254) - JUV(4777) = JVS(27897)*UV(2369)+JVS(27898)*UV(4601)+JVS(27899)*UV(4777)+JVS(27900)*UV(5250)+JVS(27901)*UV(5252)& - &+JVS(27902)*UV(5255)+JVS(27903)*UV(5256) - JUV(4778) = JVS(27905)*UV(1779)+JVS(27906)*UV(2646)+JVS(27907)*UV(4778)+JVS(27909)*UV(5250)+JVS(27910)*UV(5252)& - &+JVS(27911)*UV(5255)+JVS(27912)*UV(5256) - JUV(4779) = JVS(27913)*UV(61)+JVS(27914)*UV(3480)+JVS(27915)*UV(4779)+JVS(27917)*UV(5250)+JVS(27918)*UV(5252)& - &+JVS(27919)*UV(5255)+JVS(27920)*UV(5256) - JUV(4780) = JVS(27922)*UV(2118)+JVS(27923)*UV(3623)+JVS(27924)*UV(4780)+JVS(27926)*UV(5250)+JVS(27927)*UV(5252)& - &+JVS(27928)*UV(5255)+JVS(27929)*UV(5256) - JUV(4781) = JVS(27930)*UV(1447)+JVS(27931)*UV(4781)+JVS(27932)*UV(4891)+JVS(27933)*UV(5212)+JVS(27935)*UV(5252)& - &+JVS(27936)*UV(5255)+JVS(27937)*UV(5256) - JUV(4782) = JVS(27938)*UV(2449)+JVS(27939)*UV(4332)+JVS(27940)*UV(4475)+JVS(27941)*UV(4782)+JVS(27942)*UV(5250)& - &+JVS(27943)*UV(5252)+JVS(27944)*UV(5255)+JVS(27945)*UV(5256) - JUV(4783) = JVS(27947)*UV(4783)+JVS(27948)*UV(5226)+JVS(27949)*UV(5250)+JVS(27950)*UV(5252)+JVS(27951)*UV(5255)& - &+JVS(27952)*UV(5256) - JUV(4784) = JVS(27953)*UV(1876)+JVS(27954)*UV(3505)+JVS(27955)*UV(4784)+JVS(27957)*UV(5250)+JVS(27958)*UV(5252)& - &+JVS(27959)*UV(5255)+JVS(27960)*UV(5256) - JUV(4785) = JVS(27961)*UV(2693)+JVS(27962)*UV(2891)+JVS(27963)*UV(4785)+JVS(27965)*UV(5250)+JVS(27966)*UV(5252)& - &+JVS(27967)*UV(5255)+JVS(27968)*UV(5256) - JUV(4786) = JVS(27969)*UV(4786)+JVS(27970)*UV(5224)+JVS(27971)*UV(5250)+JVS(27972)*UV(5252)+JVS(27973)*UV(5258) - JUV(4787) = JVS(27974)*UV(1176)+JVS(27975)*UV(1256)+JVS(27976)*UV(4628)+JVS(27977)*UV(4787)+JVS(27978)*UV(4933)& - &+JVS(27979)*UV(5250)+JVS(27980)*UV(5252)+JVS(27982)*UV(5255)+JVS(27983)*UV(5256) - JUV(4788) = JVS(27984)*UV(950)+JVS(27985)*UV(3085)+JVS(27986)*UV(4044)+JVS(27988)*UV(4788)+JVS(27989)*UV(5250)& - &+JVS(27990)*UV(5252)+JVS(27991)*UV(5253)+JVS(27993)*UV(5256)+JVS(27994)*UV(5258) - JUV(4789) = JVS(27995)*UV(176)+JVS(27996)*UV(652)+JVS(28000)*UV(4789)+JVS(28002)*UV(5250)+JVS(28003)*UV(5252)& - &+JVS(28004)*UV(5255)+JVS(28005)*UV(5256) - JUV(4790) = JVS(28006)*UV(1308)+JVS(28007)*UV(3165)+JVS(28008)*UV(4021)+JVS(28010)*UV(4790)+JVS(28011)*UV(5250)& - &+JVS(28012)*UV(5252)+JVS(28013)*UV(5253)+JVS(28015)*UV(5256)+JVS(28016)*UV(5258) - JUV(4791) = JVS(28017)*UV(1091)+JVS(28018)*UV(3140)+JVS(28019)*UV(3999)+JVS(28021)*UV(4791)+JVS(28022)*UV(5250)& - &+JVS(28023)*UV(5252)+JVS(28024)*UV(5253)+JVS(28026)*UV(5256)+JVS(28027)*UV(5258) - JUV(4792) = JVS(28028)*UV(164)+JVS(28030)*UV(2474)+JVS(28031)*UV(3012)+JVS(28032)*UV(3467)+JVS(28037)*UV(4792)& - &+JVS(28038)*UV(5250)+JVS(28039)*UV(5252)+JVS(28040)*UV(5253)+JVS(28041)*UV(5255)+JVS(28042)*UV(5256) - JUV(4793) = JVS(28044)*UV(3403)+JVS(28045)*UV(3818)+JVS(28047)*UV(4793)+JVS(28048)*UV(5141)+JVS(28049)*UV(5250)& - &+JVS(28052)*UV(5256)+JVS(28053)*UV(5258) - JUV(4794) = JVS(28054)*UV(4794)+JVS(28055)*UV(5166)+JVS(28056)*UV(5250)+JVS(28057)*UV(5256)+JVS(28058)*UV(5258) - JUV(4795) = JVS(28059)*UV(3401)+JVS(28060)*UV(3515)+JVS(28061)*UV(4795)+JVS(28063)*UV(5250)+JVS(28064)*UV(5252)& - &+JVS(28065)*UV(5253)+JVS(28066)*UV(5255)+JVS(28067)*UV(5256) - JUV(4796) = JVS(28068)*UV(538)+JVS(28069)*UV(568)+JVS(28070)*UV(614)+JVS(28071)*UV(628)+JVS(28072)*UV(700)+JVS(28073)& - &*UV(2336)+JVS(28074)*UV(2535)+JVS(28075)*UV(2536)+JVS(28076)*UV(2577)+JVS(28077)*UV(2588)+JVS(28078)& - &*UV(2604)+JVS(28079)*UV(2731)+JVS(28080)*UV(2903)+JVS(28081)*UV(3001)+JVS(28082)*UV(3036)+JVS(28083)& - &*UV(3361)+JVS(28084)*UV(3387)+JVS(28085)*UV(3395)+JVS(28086)*UV(3414)+JVS(28087)*UV(3421)+JVS(28088)& - &*UV(3500)+JVS(28090)*UV(3579)+JVS(28091)*UV(3597)+JVS(28094)*UV(3821)+JVS(28097)*UV(4014)+JVS(28098)& - &*UV(4047)+JVS(28117)*UV(4398)+JVS(28121)*UV(4491)+JVS(28130)*UV(4796)+JVS(28142)*UV(5170)+JVS(28143)& - &*UV(5216)+JVS(28144)*UV(5250)+JVS(28147)*UV(5255) - JUV(4797) = JVS(28150)*UV(1221)+JVS(28151)*UV(3093)+JVS(28152)*UV(4036)+JVS(28154)*UV(4797)+JVS(28155)*UV(5250)& - &+JVS(28156)*UV(5252)+JVS(28157)*UV(5253)+JVS(28159)*UV(5256)+JVS(28160)*UV(5258) - JUV(4798) = JVS(28161)*UV(1230)+JVS(28162)*UV(4022)+JVS(28163)*UV(4048)+JVS(28167)*UV(4798)+JVS(28168)*UV(5250)& - &+JVS(28169)*UV(5252)+JVS(28170)*UV(5253)+JVS(28172)*UV(5256)+JVS(28173)*UV(5258) - JUV(4799) = JVS(28174)*UV(124)+JVS(28175)*UV(1503)+JVS(28176)*UV(1555)+JVS(28177)*UV(2499)+JVS(28178)*UV(3511)& - &+JVS(28180)*UV(4799)+JVS(28181)*UV(5250)+JVS(28182)*UV(5252)+JVS(28184)*UV(5256) - JUV(4800) = JVS(28185)*UV(675)+JVS(28186)*UV(2050)+JVS(28187)*UV(4800)+JVS(28189)*UV(5250) - JUV(4801) = JVS(28193)*UV(1722)+JVS(28194)*UV(1723)+JVS(28195)*UV(2084)+JVS(28196)*UV(2365)+JVS(28197)*UV(2550)& - &+JVS(28198)*UV(2822)+JVS(28199)*UV(3000)+JVS(28200)*UV(3222)+JVS(28201)*UV(3255)+JVS(28202)*UV(3284)& - &+JVS(28203)*UV(3336)+JVS(28204)*UV(3547)+JVS(28207)*UV(4391)+JVS(28211)*UV(4801)+JVS(28220)*UV(5151)& - &+JVS(28221)*UV(5250) - JUV(4802) = JVS(28226)*UV(2981)+JVS(28227)*UV(4800)+JVS(28228)*UV(4802)+JVS(28230)*UV(5250)+JVS(28231)*UV(5252)& - &+JVS(28232)*UV(5255)+JVS(28233)*UV(5256) - JUV(4803) = JVS(28234)*UV(4027)+JVS(28235)*UV(4803)+JVS(28236)*UV(5250)+JVS(28237)*UV(5252)+JVS(28238)*UV(5255)& - &+JVS(28239)*UV(5256) - JUV(4804) = JVS(28241)*UV(1999)+JVS(28242)*UV(3349)+JVS(28245)*UV(4804)+JVS(28246)*UV(5250)+JVS(28247)*UV(5252)& - &+JVS(28248)*UV(5255)+JVS(28249)*UV(5256) - JUV(4805) = JVS(28251)*UV(4805)+JVS(28252)*UV(4976)+JVS(28253)*UV(5033)+JVS(28254)*UV(5250)+JVS(28255)*UV(5256)& - &+JVS(28256)*UV(5258) - JUV(4806) = JVS(28257)*UV(80)+JVS(28259)*UV(1275)+JVS(28260)*UV(2867)+JVS(28263)*UV(4806)+JVS(28265)*UV(5250)& - &+JVS(28266)*UV(5252)+JVS(28267)*UV(5253)+JVS(28268)*UV(5255)+JVS(28269)*UV(5256) - JUV(4807) = JVS(28270)*UV(1465)+JVS(28271)*UV(3258)+JVS(28272)*UV(3996)+JVS(28273)*UV(4807)+JVS(28274)*UV(5250)& - &+JVS(28275)*UV(5252)+JVS(28276)*UV(5253)+JVS(28277)*UV(5255)+JVS(28278)*UV(5256) - JUV(4808) = JVS(28280)*UV(894)+JVS(28281)*UV(2552)+JVS(28282)*UV(3911)+JVS(28283)*UV(4808)+JVS(28285)*UV(5250)& - &+JVS(28286)*UV(5252)+JVS(28287)*UV(5253)+JVS(28288)*UV(5255)+JVS(28289)*UV(5256) - JUV(4809) = JVS(28290)*UV(1300)+JVS(28291)*UV(3533)+JVS(28292)*UV(4512)+JVS(28293)*UV(4809)+JVS(28295)*UV(5250)& - &+JVS(28296)*UV(5252)+JVS(28297)*UV(5255)+JVS(28298)*UV(5256) - JUV(4810) = JVS(28300)*UV(1061)+JVS(28301)*UV(3111)+JVS(28302)*UV(4034)+JVS(28304)*UV(4810)+JVS(28305)*UV(5250)& - &+JVS(28306)*UV(5252)+JVS(28307)*UV(5253)+JVS(28309)*UV(5256)+JVS(28310)*UV(5258) - JUV(4811) = JVS(28311)*UV(2625)+JVS(28312)*UV(3298)+JVS(28315)*UV(4811)+JVS(28317)*UV(5250)+JVS(28318)*UV(5252)& - &+JVS(28319)*UV(5255)+JVS(28320)*UV(5256) - JUV(4812) = JVS(28321)*UV(817)+JVS(28322)*UV(2139)+JVS(28324)*UV(2941)+JVS(28325)*UV(3397)+JVS(28328)*UV(4812)& - &+JVS(28330)*UV(5250)+JVS(28331)*UV(5252)+JVS(28332)*UV(5253)+JVS(28333)*UV(5255)+JVS(28334)*UV(5256) - JUV(4813) = JVS(28335)*UV(898)+JVS(28336)*UV(1274)+JVS(28337)*UV(4017)+JVS(28338)*UV(4656)+JVS(28339)*UV(4813)& - &+JVS(28340)*UV(5250)+JVS(28341)*UV(5252)+JVS(28343)*UV(5255)+JVS(28344)*UV(5256) - JUV(4814) = JVS(28346)*UV(598)+JVS(28347)*UV(3018)+JVS(28348)*UV(4814)+JVS(28350)*UV(5250)+JVS(28351)*UV(5252)& - &+JVS(28352)*UV(5255)+JVS(28353)*UV(5256) - JUV(4815) = JVS(28354)*UV(659)+JVS(28355)*UV(1088)+JVS(28356)*UV(2505)+JVS(28357)*UV(2862)+JVS(28358)*UV(4141)& - &+JVS(28359)*UV(4218)+JVS(28361)*UV(4815)+JVS(28363)*UV(5250)+JVS(28364)*UV(5252)+JVS(28366)*UV(5255)& - &+JVS(28367)*UV(5256) - JUV(4816) = JVS(28368)*UV(3276)+JVS(28369)*UV(3324)+JVS(28370)*UV(4816)+JVS(28371)*UV(5024)+JVS(28372)*UV(5250)& - &+JVS(28373)*UV(5252)+JVS(28374)*UV(5253)+JVS(28375)*UV(5255)+JVS(28376)*UV(5256) - JUV(4817) = JVS(28377)*UV(1802)+JVS(28378)*UV(3399)+JVS(28381)*UV(4817)+JVS(28383)*UV(5250)+JVS(28384)*UV(5252)& - &+JVS(28385)*UV(5255)+JVS(28386)*UV(5256) - JUV(4818) = JVS(28387)*UV(1022)+JVS(28388)*UV(3293)+JVS(28389)*UV(4818)+JVS(28390)*UV(5072)+JVS(28391)*UV(5250)& - &+JVS(28392)*UV(5252)+JVS(28393)*UV(5253)+JVS(28394)*UV(5255)+JVS(28395)*UV(5256) - JUV(4819) = JVS(28396)*UV(1959)+JVS(28397)*UV(4819)+JVS(28399)*UV(5251)+JVS(28400)*UV(5252)+JVS(28401)*UV(5253)& - &+JVS(28402)*UV(5254) - JUV(4820) = JVS(28404)*UV(173)+JVS(28408)*UV(4820)+JVS(28411)*UV(5252)+JVS(28412)*UV(5255)+JVS(28413)*UV(5256) - JUV(4821) = JVS(28414)*UV(4010)+JVS(28415)*UV(4821)+JVS(28416)*UV(5250)+JVS(28417)*UV(5252)+JVS(28418)*UV(5255)& - &+JVS(28419)*UV(5256) - JUV(4822) = JVS(28421)*UV(1067)+JVS(28422)*UV(2712)+JVS(28423)*UV(3416)+JVS(28425)*UV(4721)+JVS(28427)*UV(4822)& - &+JVS(28429)*UV(5250)+JVS(28430)*UV(5252)+JVS(28431)*UV(5253)+JVS(28432)*UV(5255)+JVS(28433)*UV(5256) - JUV(4823) = JVS(28435)*UV(1067)+JVS(28436)*UV(1356)+JVS(28437)*UV(3416)+JVS(28438)*UV(3576)+JVS(28439)*UV(3588)& - &+JVS(28440)*UV(3589)+JVS(28441)*UV(4388)+JVS(28442)*UV(4393)+JVS(28445)*UV(4721)+JVS(28447)*UV(4822)& - &+JVS(28448)*UV(4823)+JVS(28450)*UV(5250)+JVS(28451)*UV(5252)+JVS(28453)*UV(5255)+JVS(28454)*UV(5256) - JUV(4824) = JVS(28456)*UV(612)+JVS(28457)*UV(4824)+JVS(28459)*UV(5251)+JVS(28460)*UV(5252)+JVS(28461)*UV(5253)& - &+JVS(28462)*UV(5254) - JUV(4825) = JVS(28464)*UV(206)+JVS(28466)*UV(4825)+JVS(28469)*UV(5252)+JVS(28470)*UV(5255)+JVS(28471)*UV(5256) - JUV(4826) = JVS(28472)*UV(2382)+JVS(28473)*UV(3211)+JVS(28474)*UV(3224)+JVS(28476)*UV(4826)+JVS(28478)*UV(5250)& - &+JVS(28479)*UV(5252)+JVS(28480)*UV(5253)+JVS(28481)*UV(5255)+JVS(28482)*UV(5256) - JUV(4827) = JVS(28483)*UV(150)+JVS(28485)*UV(2940)+JVS(28488)*UV(4827)+JVS(28490)*UV(5250)+JVS(28491)*UV(5252)& - &+JVS(28492)*UV(5255)+JVS(28493)*UV(5256) - JUV(4828) = JVS(28494)*UV(759)+JVS(28495)*UV(4828)+JVS(28497)*UV(5251)+JVS(28498)*UV(5252)+JVS(28499)*UV(5253)& - &+JVS(28500)*UV(5254) - JUV(4829) = JVS(28502)*UV(1031)+JVS(28503)*UV(2656)+JVS(28504)*UV(4094)+JVS(28505)*UV(4829)+JVS(28506)*UV(5250)& - &+JVS(28507)*UV(5252)+JVS(28508)*UV(5253)+JVS(28509)*UV(5255)+JVS(28510)*UV(5256) - JUV(4830) = JVS(28512)*UV(1437)+JVS(28513)*UV(2323)+JVS(28515)*UV(2850)+JVS(28517)*UV(4830)+JVS(28518)*UV(5250)& - &+JVS(28519)*UV(5252)+JVS(28520)*UV(5253)+JVS(28521)*UV(5255)+JVS(28522)*UV(5256) - JUV(4831) = JVS(28524)*UV(626)+JVS(28525)*UV(781)+JVS(28526)*UV(2507)+JVS(28528)*UV(3257)+JVS(28529)*UV(3558)& - &+JVS(28531)*UV(4831)+JVS(28534)*UV(5250)+JVS(28536)*UV(5252)+JVS(28537)*UV(5253)+JVS(28539)*UV(5255)& - &+JVS(28540)*UV(5256) - JUV(4832) = JVS(28542)*UV(2130)+JVS(28543)*UV(2308)+JVS(28544)*UV(4832)+JVS(28547)*UV(5250)+JVS(28549)*UV(5256)& - &+JVS(28550)*UV(5258) - JUV(4833) = JVS(28551)*UV(937)+JVS(28552)*UV(3292)+JVS(28553)*UV(3834)+JVS(28554)*UV(4833)+JVS(28555)*UV(5250)& - &+JVS(28556)*UV(5252)+JVS(28557)*UV(5253)+JVS(28558)*UV(5255)+JVS(28559)*UV(5256) - JUV(4834) = JVS(28561)*UV(1663)+JVS(28562)*UV(2259)+JVS(28564)*UV(2633)+JVS(28565)*UV(2713)+JVS(28568)*UV(3859)& - &+JVS(28569)*UV(4834)+JVS(28572)*UV(5250)+JVS(28575)*UV(5256) - JUV(4835) = JVS(28576)*UV(1837)+JVS(28577)*UV(4835)+JVS(28578)*UV(5123)+JVS(28579)*UV(5250)+JVS(28580)*UV(5252)& - &+JVS(28581)*UV(5255)+JVS(28582)*UV(5256) - JUV(4836) = JVS(28583)*UV(1193)+JVS(28584)*UV(3239)+JVS(28585)*UV(3879)+JVS(28586)*UV(4836)+JVS(28588)*UV(5250)& - &+JVS(28589)*UV(5252)+JVS(28590)*UV(5253)+JVS(28591)*UV(5255)+JVS(28592)*UV(5256) - JUV(4837) = JVS(28593)*UV(1422)+JVS(28594)*UV(1730)+JVS(28595)*UV(4601)+JVS(28596)*UV(4837)+JVS(28598)*UV(5250)& - &+JVS(28599)*UV(5252)+JVS(28600)*UV(5255)+JVS(28601)*UV(5256) - JUV(4838) = JVS(28603)*UV(2487)+JVS(28605)*UV(4838)+JVS(28607)*UV(5251)+JVS(28608)*UV(5252)+JVS(28609)*UV(5253)& - &+JVS(28610)*UV(5254) - JUV(4839) = JVS(28613)*UV(1507)+JVS(28614)*UV(2809)+JVS(28615)*UV(3029)+JVS(28616)*UV(3062)+JVS(28617)*UV(3374)& - &+JVS(28622)*UV(4839)+JVS(28623)*UV(4978)+JVS(28625)*UV(5250)+JVS(28626)*UV(5252)+JVS(28627)*UV(5253)& - &+JVS(28628)*UV(5255)+JVS(28629)*UV(5256) - JUV(4840) = JVS(28630)*UV(4840)+JVS(28631)*UV(5250)+JVS(28632)*UV(5256)+JVS(28633)*UV(5258) - JUV(4841) = JVS(28634)*UV(363)+JVS(28635)*UV(1193)+JVS(28636)*UV(1983)+JVS(28638)*UV(3868)+JVS(28640)*UV(4836)& - &+JVS(28641)*UV(4841)+JVS(28645)*UV(5250)+JVS(28646)*UV(5252)+JVS(28648)*UV(5255)+JVS(28649)*UV(5256) - JUV(4842) = JVS(28651)*UV(481)+JVS(28652)*UV(679)+JVS(28653)*UV(1463)+JVS(28654)*UV(1586)+JVS(28655)*UV(2224)& - &+JVS(28656)*UV(2265)+JVS(28657)*UV(2305)+JVS(28658)*UV(2378)+JVS(28659)*UV(2495)+JVS(28660)*UV(2512)& - &+JVS(28661)*UV(2688)+JVS(28663)*UV(3908)+JVS(28666)*UV(4842)+JVS(28668)*UV(5083)+JVS(28670)*UV(5250)& - &+JVS(28674)*UV(5256)+JVS(28675)*UV(5258) - JUV(4843) = JVS(28676)*UV(719)+JVS(28678)*UV(4843)+JVS(28680)*UV(5251)+JVS(28681)*UV(5252)+JVS(28682)*UV(5253)& - &+JVS(28683)*UV(5254) - JUV(4844) = JVS(28686)*UV(181)+JVS(28687)*UV(456)+JVS(28688)*UV(1265)+JVS(28689)*UV(1547)+JVS(28690)*UV(4313)& - &+JVS(28691)*UV(4844)+JVS(28694)*UV(5090)+JVS(28695)*UV(5250)+JVS(28696)*UV(5252)+JVS(28697)*UV(5255)& - &+JVS(28698)*UV(5256) - JUV(4845) = JVS(28699)*UV(1859)+JVS(28700)*UV(3520)+JVS(28701)*UV(3585)+JVS(28702)*UV(4351)+JVS(28705)*UV(4845)& - &+JVS(28708)*UV(5250)+JVS(28711)*UV(5256) - JUV(4846) = JVS(28713)*UV(1404)+JVS(28714)*UV(2518)+JVS(28715)*UV(3486)+JVS(28716)*UV(4630)+JVS(28717)*UV(4846)& - &+JVS(28719)*UV(5250)+JVS(28720)*UV(5252)+JVS(28721)*UV(5253)+JVS(28722)*UV(5255)+JVS(28723)*UV(5256) - JUV(4847) = JVS(28725)*UV(985)+JVS(28726)*UV(1581)+JVS(28729)*UV(2593)+JVS(28734)*UV(4847)+JVS(28735)*UV(5169)& - &+JVS(28736)*UV(5250)+JVS(28737)*UV(5252)+JVS(28738)*UV(5253)+JVS(28739)*UV(5255)+JVS(28740)*UV(5256) - JUV(4848) = JVS(28742)*UV(1042)+JVS(28743)*UV(2884)+JVS(28744)*UV(4261)+JVS(28745)*UV(4848)+JVS(28748)*UV(5250)& - &+JVS(28749)*UV(5252)+JVS(28750)*UV(5253)+JVS(28751)*UV(5255)+JVS(28752)*UV(5256) - JUV(4849) = JVS(28753)*UV(1424)+JVS(28754)*UV(1706)+JVS(28757)*UV(2533)+JVS(28761)*UV(4849)+JVS(28763)*UV(5176)& - &+JVS(28764)*UV(5250)+JVS(28765)*UV(5252)+JVS(28766)*UV(5253)+JVS(28767)*UV(5255)+JVS(28768)*UV(5256) - JUV(4850) = JVS(28769)*UV(575)+JVS(28770)*UV(609)+JVS(28771)*UV(1114)+JVS(28772)*UV(1674)+JVS(28773)*UV(2221)& - &+JVS(28774)*UV(2726)+JVS(28775)*UV(3058)+JVS(28776)*UV(3185)+JVS(28782)*UV(4710)+JVS(28783)*UV(4850)& - &+JVS(28786)*UV(5250)+JVS(28787)*UV(5252)+JVS(28788)*UV(5253)+JVS(28789)*UV(5255)+JVS(28790)*UV(5256) - JUV(4851) = JVS(28791)*UV(991)+JVS(28792)*UV(1098)+JVS(28793)*UV(1220)+JVS(28794)*UV(1529)+JVS(28795)*UV(1626)& - &+JVS(28796)*UV(3608)+JVS(28797)*UV(4159)+JVS(28800)*UV(4578)+JVS(28801)*UV(4851)+JVS(28805)*UV(5250)& - &+JVS(28808)*UV(5256) - JUV(4852) = JVS(28809)*UV(1327)+JVS(28810)*UV(2893)+JVS(28811)*UV(3609)+JVS(28812)*UV(3857)+JVS(28813)*UV(4517)& - &+JVS(28814)*UV(4852)+JVS(28817)*UV(5250)+JVS(28818)*UV(5252)+JVS(28820)*UV(5255)+JVS(28821)*UV(5256) - JUV(4853) = JVS(28822)*UV(824)+JVS(28823)*UV(1652)+JVS(28824)*UV(2864)+JVS(28825)*UV(3639)+JVS(28826)*UV(3960)& - &+JVS(28830)*UV(4853)+JVS(28833)*UV(5250)+JVS(28834)*UV(5252)+JVS(28835)*UV(5253)+JVS(28836)*UV(5255)& - &+JVS(28837)*UV(5256) - JUV(4854) = JVS(28838)*UV(774)+JVS(28839)*UV(998)+JVS(28841)*UV(2756)+JVS(28842)*UV(3365)+JVS(28845)*UV(4854)& - &+JVS(28847)*UV(5250)+JVS(28848)*UV(5252)+JVS(28849)*UV(5253)+JVS(28850)*UV(5255)+JVS(28851)*UV(5256) - JUV(4855) = JVS(28852)*UV(1047)+JVS(28853)*UV(2231)+JVS(28855)*UV(2879)+JVS(28858)*UV(4855)+JVS(28859)*UV(5083)& - &+JVS(28860)*UV(5250)+JVS(28861)*UV(5252)+JVS(28862)*UV(5253)+JVS(28863)*UV(5255)+JVS(28864)*UV(5256) - JUV(4856) = JVS(28866)*UV(3231)+JVS(28867)*UV(3561)+JVS(28869)*UV(4856)+JVS(28873)*UV(5250)+JVS(28874)*UV(5252)& - &+JVS(28875)*UV(5255)+JVS(28876)*UV(5256) - JUV(4857) = JVS(28877)*UV(499)+JVS(28878)*UV(1460)+JVS(28879)*UV(2920)+JVS(28880)*UV(3914)+JVS(28881)*UV(4770)& - &+JVS(28882)*UV(4857)+JVS(28883)*UV(4895)+JVS(28884)*UV(5250)+JVS(28885)*UV(5252)+JVS(28887)*UV(5255)& - &+JVS(28888)*UV(5256)+JVS(28889)*UV(5258) - JUV(4858) = JVS(28890)*UV(3035)+JVS(28891)*UV(3978)+JVS(28892)*UV(4858)+JVS(28895)*UV(5250)+JVS(28896)*UV(5252)& - &+JVS(28898)*UV(5255)+JVS(28899)*UV(5256) - JUV(4859) = JVS(28900)*UV(1427)+JVS(28901)*UV(3161)+JVS(28902)*UV(4067)+JVS(28903)*UV(4859)+JVS(28905)*UV(5250)& - &+JVS(28906)*UV(5252)+JVS(28907)*UV(5253)+JVS(28909)*UV(5256)+JVS(28910)*UV(5258) - JUV(4860) = JVS(28911)*UV(889)+JVS(28912)*UV(3260)+JVS(28913)*UV(4559)+JVS(28914)*UV(4860)+JVS(28917)*UV(5250)& - &+JVS(28918)*UV(5252)+JVS(28919)*UV(5253)+JVS(28920)*UV(5255)+JVS(28921)*UV(5256) - JUV(4861) = JVS(28922)*UV(21)+JVS(28923)*UV(48)+JVS(28925)*UV(4861)+JVS(28926)*UV(5209)+JVS(28929)*UV(5250)+JVS(28930)& - &*UV(5252)+JVS(28931)*UV(5255)+JVS(28932)*UV(5256) - JUV(4862) = JVS(28933)*UV(484)+JVS(28934)*UV(1436)+JVS(28935)*UV(2921)+JVS(28937)*UV(4862)+JVS(28940)*UV(5250)& - &+JVS(28941)*UV(5252)+JVS(28942)*UV(5253)+JVS(28943)*UV(5255)+JVS(28944)*UV(5256) - JUV(4863) = JVS(28945)*UV(618)+JVS(28946)*UV(1480)+JVS(28948)*UV(2154)+JVS(28949)*UV(2829)+JVS(28951)*UV(4863)& - &+JVS(28953)*UV(5250)+JVS(28954)*UV(5252)+JVS(28955)*UV(5253)+JVS(28956)*UV(5255)+JVS(28957)*UV(5256) - JUV(4864) = JVS(28959)*UV(152)+JVS(28961)*UV(2472)+JVS(28962)*UV(2969)+JVS(28963)*UV(3463)+JVS(28968)*UV(4864)& - &+JVS(28970)*UV(5250)+JVS(28971)*UV(5252)+JVS(28972)*UV(5253)+JVS(28973)*UV(5255)+JVS(28974)*UV(5256) - JUV(4865) = JVS(28976)*UV(2358)+JVS(28977)*UV(2899)+JVS(28978)*UV(3014)+JVS(28979)*UV(3200)+JVS(28980)*UV(3354)& - &+JVS(28982)*UV(4203)+JVS(28983)*UV(4401)+JVS(28985)*UV(4787)+JVS(28988)*UV(4865)+JVS(28990)*UV(5250)& - &+JVS(28991)*UV(5252)+JVS(28993)*UV(5255)+JVS(28994)*UV(5256) - JUV(4866) = JVS(28996)*UV(945)+JVS(28997)*UV(2842)+JVS(28998)*UV(3662)+JVS(28999)*UV(4866)+JVS(29002)*UV(5250)& - &+JVS(29003)*UV(5252)+JVS(29004)*UV(5253)+JVS(29005)*UV(5255)+JVS(29006)*UV(5256) - JUV(4867) = JVS(29007)*UV(697)+JVS(29008)*UV(1541)+JVS(29010)*UV(2660)+JVS(29011)*UV(3348)+JVS(29013)*UV(4867)& - &+JVS(29016)*UV(5250)+JVS(29017)*UV(5252)+JVS(29018)*UV(5253)+JVS(29019)*UV(5255)+JVS(29020)*UV(5256) - JUV(4868) = JVS(29021)*UV(2212)+JVS(29023)*UV(4868)+JVS(29025)*UV(5251)+JVS(29026)*UV(5252)+JVS(29027)*UV(5253)& - &+JVS(29028)*UV(5254) - JUV(4869) = JVS(29031)*UV(3646)+JVS(29032)*UV(4869)+JVS(29036)*UV(5251)+JVS(29037)*UV(5252)+JVS(29038)*UV(5253)& - &+JVS(29039)*UV(5254)+JVS(29040)*UV(5258) - JUV(4870) = JVS(29041)*UV(420)+JVS(29042)*UV(1055)+JVS(29043)*UV(1697)+JVS(29044)*UV(1914)+JVS(29045)*UV(3915)& - &+JVS(29046)*UV(4662)+JVS(29047)*UV(4870)+JVS(29048)*UV(5064)+JVS(29051)*UV(5250)+JVS(29052)*UV(5252)& - &+JVS(29054)*UV(5255)+JVS(29055)*UV(5256) - JUV(4871) = JVS(29056)*UV(1406)+JVS(29057)*UV(3498)+JVS(29065)*UV(4871)+JVS(29069)*UV(5250)+JVS(29070)*UV(5252)& - &+JVS(29071)*UV(5255)+JVS(29072)*UV(5256) - JUV(4872) = JVS(29074)*UV(1800)+JVS(29075)*UV(2391)+JVS(29076)*UV(2843)+JVS(29077)*UV(3884)+JVS(29079)*UV(4872)& - &+JVS(29082)*UV(5185)+JVS(29083)*UV(5250)+JVS(29087)*UV(5256) - JUV(4873) = JVS(29088)*UV(1774)+JVS(29089)*UV(2011)+JVS(29090)*UV(3070)+JVS(29093)*UV(4873)+JVS(29095)*UV(5135)& - &+JVS(29096)*UV(5250)+JVS(29100)*UV(5256) - JUV(4874) = JVS(29102)*UV(571)+JVS(29103)*UV(1234)+JVS(29105)*UV(2877)+JVS(29107)*UV(4537)+JVS(29109)*UV(4874)& - &+JVS(29113)*UV(5250)+JVS(29114)*UV(5252)+JVS(29115)*UV(5253)+JVS(29116)*UV(5255)+JVS(29117)*UV(5256) - JUV(4875) = JVS(29118)*UV(1085)+JVS(29119)*UV(1784)+JVS(29120)*UV(4462)+JVS(29121)*UV(4759)+JVS(29123)*UV(4875)& - &+JVS(29127)*UV(5250)+JVS(29128)*UV(5252)+JVS(29130)*UV(5255)+JVS(29131)*UV(5256) - JUV(4876) = JVS(29132)*UV(1708)+JVS(29133)*UV(4876)+JVS(29134)*UV(5238)+JVS(29135)*UV(5250)+JVS(29136)*UV(5252)& - &+JVS(29137)*UV(5255)+JVS(29138)*UV(5256) - JUV(4877) = JVS(29139)*UV(3453)+JVS(29140)*UV(4877)+JVS(29141)*UV(5126)+JVS(29142)*UV(5250)+JVS(29143)*UV(5252)& - &+JVS(29144)*UV(5255)+JVS(29145)*UV(5256) - JUV(4878) = JVS(29146)*UV(548)+JVS(29147)*UV(1082)+JVS(29148)*UV(4878)+JVS(29149)*UV(5238)+JVS(29150)*UV(5250)& - &+JVS(29151)*UV(5252)+JVS(29152)*UV(5255)+JVS(29153)*UV(5256) - JUV(4879) = JVS(29154)*UV(976)+JVS(29155)*UV(4527)+JVS(29156)*UV(4879)+JVS(29157)*UV(5250)+JVS(29158)*UV(5252)& - &+JVS(29159)*UV(5255)+JVS(29160)*UV(5256) - JUV(4880) = JVS(29162)*UV(4736)+JVS(29163)*UV(4880)+JVS(29165)*UV(5250)+JVS(29166)*UV(5252)+JVS(29167)*UV(5255)& - &+JVS(29168)*UV(5256) - JUV(4881) = JVS(29169)*UV(2363)+JVS(29170)*UV(4508)+JVS(29171)*UV(4881)+JVS(29172)*UV(5250)+JVS(29173)*UV(5252)& - &+JVS(29174)*UV(5255)+JVS(29175)*UV(5256) - JUV(4882) = JVS(29177)*UV(501)+JVS(29178)*UV(765)+JVS(29179)*UV(1536)+JVS(29180)*UV(1889)+JVS(29182)*UV(3952)& - &+JVS(29184)*UV(4882)+JVS(29186)*UV(5250)+JVS(29189)*UV(5256) - JUV(4883) = JVS(29190)*UV(1998)+JVS(29192)*UV(4354)+JVS(29195)*UV(4883)+JVS(29197)*UV(5250) - JUV(4884) = JVS(29201)*UV(2455)+JVS(29202)*UV(4604)+JVS(29203)*UV(4606)+JVS(29204)*UV(4884)+JVS(29205)*UV(5250)& - &+JVS(29206)*UV(5252)+JVS(29207)*UV(5255)+JVS(29208)*UV(5256) - JUV(4885) = JVS(29210)*UV(179)+JVS(29211)*UV(1938)+JVS(29214)*UV(4885)+JVS(29216)*UV(5250)+JVS(29217)*UV(5252)& - &+JVS(29218)*UV(5255)+JVS(29219)*UV(5256) - JUV(4886) = JVS(29220)*UV(566)+JVS(29221)*UV(2019)+JVS(29222)*UV(4886)+JVS(29223)*UV(5238)+JVS(29224)*UV(5250)& - &+JVS(29225)*UV(5252)+JVS(29226)*UV(5255)+JVS(29227)*UV(5256) - JUV(4887) = JVS(29228)*UV(937)+JVS(29229)*UV(1343)+JVS(29230)*UV(3469)+JVS(29231)*UV(3834)+JVS(29232)*UV(4833)& - &+JVS(29233)*UV(4887)+JVS(29234)*UV(5250)+JVS(29235)*UV(5252)+JVS(29237)*UV(5255)+JVS(29238)*UV(5256) - JUV(4888) = JVS(29240)*UV(2766)+JVS(29241)*UV(3221)+JVS(29242)*UV(3437)+JVS(29243)*UV(4888)+JVS(29245)*UV(5250)& - &+JVS(29246)*UV(5252)+JVS(29247)*UV(5253)+JVS(29248)*UV(5255)+JVS(29249)*UV(5256) - JUV(4889) = JVS(29250)*UV(3542)+JVS(29253)*UV(4889)+JVS(29255)*UV(5250)+JVS(29256)*UV(5252)+JVS(29257)*UV(5255)& - &+JVS(29258)*UV(5256) - JUV(4890) = JVS(29260)*UV(200)+JVS(29265)*UV(4890)+JVS(29269)*UV(5252)+JVS(29270)*UV(5255)+JVS(29271)*UV(5256) - JUV(4891) = JVS(29272)*UV(1447)+JVS(29273)*UV(2947)+JVS(29274)*UV(4891)+JVS(29275)*UV(5212)+JVS(29276)*UV(5250)& - &+JVS(29277)*UV(5252)+JVS(29278)*UV(5253)+JVS(29279)*UV(5255)+JVS(29280)*UV(5256) - JUV(4892) = JVS(29281)*UV(1296)+JVS(29282)*UV(3206)+JVS(29283)*UV(4056)+JVS(29284)*UV(4892)+JVS(29285)*UV(5250)& - &+JVS(29286)*UV(5252)+JVS(29287)*UV(5253)+JVS(29288)*UV(5255)+JVS(29289)*UV(5256) - JUV(4893) = JVS(29291)*UV(941)+JVS(29292)*UV(1403)+JVS(29293)*UV(3468)+JVS(29294)*UV(4083)+JVS(29295)*UV(4692)& - &+JVS(29296)*UV(4893)+JVS(29297)*UV(5250)+JVS(29298)*UV(5252)+JVS(29300)*UV(5255)+JVS(29301)*UV(5256) - JUV(4894) = JVS(29303)*UV(3228)+JVS(29304)*UV(4894)+JVS(29306)*UV(5205)+JVS(29307)*UV(5250)+JVS(29308)*UV(5252)& - &+JVS(29309)*UV(5255)+JVS(29310)*UV(5256) - JUV(4895) = JVS(29311)*UV(3332)+JVS(29312)*UV(3818)+JVS(29313)*UV(4004)+JVS(29315)*UV(4895)+JVS(29316)*UV(5089)& - &+JVS(29317)*UV(5250)+JVS(29320)*UV(5256)+JVS(29321)*UV(5258) - JUV(4896) = JVS(29322)*UV(3802)+JVS(29323)*UV(3812)+JVS(29324)*UV(3826)+JVS(29325)*UV(4177)+JVS(29326)*UV(4896)& - &+JVS(29327)*UV(5126)+JVS(29328)*UV(5250)+JVS(29331)*UV(5256)+JVS(29332)*UV(5258) - JUV(4897) = JVS(29333)*UV(1405)+JVS(29334)*UV(1473)+JVS(29335)*UV(1873)+JVS(29336)*UV(4080)+JVS(29337)*UV(4132)& - &+JVS(29338)*UV(4897)+JVS(29339)*UV(5250)+JVS(29340)*UV(5252)+JVS(29341)*UV(5253)+JVS(29342)*UV(5255)& - &+JVS(29343)*UV(5256) - JUV(4898) = JVS(29345)*UV(990)+JVS(29346)*UV(1383)+JVS(29347)*UV(1437)+JVS(29348)*UV(3559)+JVS(29350)*UV(4830)& - &+JVS(29351)*UV(4898)+JVS(29352)*UV(5250)+JVS(29353)*UV(5252)+JVS(29355)*UV(5255)+JVS(29356)*UV(5256) - JUV(4899) = JVS(29358)*UV(3227)+JVS(29359)*UV(3452)+JVS(29360)*UV(3487)+JVS(29361)*UV(4027)+JVS(29362)*UV(4899)& - &+JVS(29363)*UV(4948)+JVS(29364)*UV(5250)+JVS(29365)*UV(5252)+JVS(29366)*UV(5255)+JVS(29367)*UV(5256) - JUV(4900) = JVS(29369)*UV(859)+JVS(29370)*UV(1442)+JVS(29371)*UV(4664)+JVS(29372)*UV(4900)+JVS(29374)*UV(5250)& - &+JVS(29375)*UV(5252)+JVS(29377)*UV(5255)+JVS(29378)*UV(5256) - JUV(4901) = JVS(29379)*UV(379)+JVS(29380)*UV(832)+JVS(29381)*UV(1635)+JVS(29382)*UV(2223)+JVS(29383)*UV(3877)& - &+JVS(29385)*UV(4901)+JVS(29386)*UV(4994)+JVS(29387)*UV(5238)+JVS(29388)*UV(5250)+JVS(29389)*UV(5252)& - &+JVS(29390)*UV(5255)+JVS(29391)*UV(5256) - JUV(4902) = JVS(29392)*UV(2142)+JVS(29393)*UV(2530)+JVS(29394)*UV(2977)+JVS(29395)*UV(4104)+JVS(29396)*UV(4220)& - &+JVS(29400)*UV(4902)+JVS(29407)*UV(5250)+JVS(29408)*UV(5252)+JVS(29410)*UV(5255)+JVS(29411)*UV(5256) - JUV(4903) = JVS(29412)*UV(3747)+JVS(29415)*UV(4903)+JVS(29418)*UV(5250)+JVS(29419)*UV(5252)+JVS(29420)*UV(5255)& - &+JVS(29421)*UV(5256) - JUV(4904) = JVS(29422)*UV(994)+JVS(29423)*UV(2488)+JVS(29443)*UV(4904)+JVS(29449)*UV(5250)+JVS(29450)*UV(5252)& - &+JVS(29452)*UV(5255)+JVS(29453)*UV(5256) - JUV(4905) = JVS(29455)*UV(1254)+JVS(29456)*UV(1481)+JVS(29457)*UV(3451)+JVS(29458)*UV(4272)+JVS(29459)*UV(4633)& - &+JVS(29460)*UV(4905)+JVS(29461)*UV(5250)+JVS(29462)*UV(5252)+JVS(29464)*UV(5255)+JVS(29465)*UV(5256) - JUV(4906) = JVS(29467)*UV(2476)+JVS(29468)*UV(4906)+JVS(29470)*UV(5251)+JVS(29471)*UV(5252)+JVS(29472)*UV(5253)& - &+JVS(29473)*UV(5254) - JUV(4907) = JVS(29475)*UV(4907)+JVS(29476)*UV(5166)+JVS(29477)*UV(5250)+JVS(29478)*UV(5256)+JVS(29479)*UV(5258) - JUV(4908) = JVS(29480)*UV(1776)+JVS(29482)*UV(4908)+JVS(29484)*UV(5251)+JVS(29485)*UV(5252)+JVS(29486)*UV(5253)& - &+JVS(29487)*UV(5254) - JUV(4909) = JVS(29490)*UV(2191)+JVS(29491)*UV(2442)+JVS(29492)*UV(2545)+JVS(29493)*UV(2670)+JVS(29494)*UV(2717)& - &+JVS(29495)*UV(2985)+JVS(29496)*UV(3033)+JVS(29497)*UV(3154)+JVS(29498)*UV(3203)+JVS(29499)*UV(3577)& - &+JVS(29500)*UV(3586)+JVS(29501)*UV(3835)+JVS(29503)*UV(4213)+JVS(29504)*UV(4282)+JVS(29506)*UV(4370)& - &+JVS(29507)*UV(4436)+JVS(29509)*UV(4909)+JVS(29511)*UV(5036)+JVS(29512)*UV(5069)+JVS(29514)*UV(5168)& - &+JVS(29516)*UV(5250)+JVS(29517)*UV(5251)+JVS(29518)*UV(5252)+JVS(29519)*UV(5253)+JVS(29520)*UV(5254)& - &+JVS(29521)*UV(5255)+JVS(29522)*UV(5256)+JVS(29523)*UV(5258) - JUV(4910) = JVS(29524)*UV(145)+JVS(29525)*UV(404)+JVS(29527)*UV(864)+JVS(29528)*UV(2323)+JVS(29529)*UV(2540)& - &+JVS(29530)*UV(3115)+JVS(29531)*UV(3223)+JVS(29532)*UV(3559)+JVS(29537)*UV(4910)+JVS(29539)*UV(5250)& - &+JVS(29540)*UV(5252)+JVS(29541)*UV(5253)+JVS(29542)*UV(5255)+JVS(29543)*UV(5256) - JUV(4911) = JVS(29545)*UV(195)+JVS(29548)*UV(2730)+JVS(29550)*UV(4911)+JVS(29552)*UV(5250)+JVS(29553)*UV(5252)& - &+JVS(29554)*UV(5255)+JVS(29555)*UV(5256) - JUV(4912) = JVS(29556)*UV(604)+JVS(29558)*UV(4912)+JVS(29560)*UV(5251)+JVS(29561)*UV(5252)+JVS(29562)*UV(5253)& - &+JVS(29563)*UV(5254) - JUV(4913) = JVS(29566)*UV(514)+JVS(29567)*UV(2425)+JVS(29568)*UV(3570)+JVS(29569)*UV(3605)+JVS(29570)*UV(4630)& - &+JVS(29575)*UV(4913)+JVS(29579)*UV(5252)+JVS(29580)*UV(5255)+JVS(29581)*UV(5256) - JUV(4914) = JVS(29583)*UV(599)+JVS(29584)*UV(2002)+JVS(29585)*UV(2313)+JVS(29586)*UV(2951)+JVS(29587)*UV(4914)& - &+JVS(29589)*UV(5198)+JVS(29590)*UV(5250)+JVS(29594)*UV(5256) - JUV(4915) = JVS(29595)*UV(1048)+JVS(29596)*UV(3056)+JVS(29597)*UV(3513)+JVS(29598)*UV(3995)+JVS(29600)*UV(4915)& - &+JVS(29603)*UV(5250)+JVS(29604)*UV(5252)+JVS(29605)*UV(5253)+JVS(29606)*UV(5255)+JVS(29607)*UV(5256) - JUV(4916) = JVS(29608)*UV(2175)+JVS(29609)*UV(2448)+JVS(29610)*UV(2924)+JVS(29612)*UV(3121)+JVS(29613)*UV(3325)& - &+JVS(29621)*UV(4916)+JVS(29622)*UV(5058)+JVS(29623)*UV(5250)+JVS(29624)*UV(5252)+JVS(29625)*UV(5253)& - &+JVS(29626)*UV(5255)+JVS(29627)*UV(5256) - JUV(4917) = JVS(29629)*UV(2645)+JVS(29630)*UV(2689)+JVS(29631)*UV(3174)+JVS(29632)*UV(3225)+JVS(29636)*UV(4917)& - &+JVS(29637)*UV(5066)+JVS(29638)*UV(5250)+JVS(29639)*UV(5252)+JVS(29640)*UV(5253)+JVS(29641)*UV(5255)& - &+JVS(29642)*UV(5256) - JUV(4918) = JVS(29644)*UV(2025)+JVS(29645)*UV(2474)+JVS(29646)*UV(2492)+JVS(29647)*UV(2560)+JVS(29648)*UV(2581)& - &+JVS(29649)*UV(2689)+JVS(29650)*UV(3012)+JVS(29651)*UV(3225)+JVS(29652)*UV(3467)+JVS(29653)*UV(3800)& - &+JVS(29654)*UV(3805)+JVS(29656)*UV(4029)+JVS(29658)*UV(4388)+JVS(29662)*UV(4689)+JVS(29664)*UV(4792)& - &+JVS(29667)*UV(4918)+JVS(29668)*UV(4997)+JVS(29669)*UV(5066)+JVS(29671)*UV(5250)+JVS(29672)*UV(5251)& - &+JVS(29673)*UV(5252)+JVS(29674)*UV(5253)+JVS(29675)*UV(5254)+JVS(29676)*UV(5255)+JVS(29677)*UV(5256)& - &+JVS(29678)*UV(5258) - JUV(4919) = JVS(29679)*UV(3147)+JVS(29681)*UV(4919)+JVS(29683)*UV(5251)+JVS(29684)*UV(5252)+JVS(29685)*UV(5253)& - &+JVS(29686)*UV(5254) - JUV(4920) = JVS(29689)*UV(255)+JVS(29690)*UV(901)+JVS(29691)*UV(2923)+JVS(29692)*UV(3896)+JVS(29693)*UV(4793)& - &+JVS(29694)*UV(4920)+JVS(29695)*UV(4977)+JVS(29697)*UV(5250)+JVS(29698)*UV(5252)+JVS(29699)*UV(5255)& - &+JVS(29700)*UV(5256)+JVS(29701)*UV(5258) - JUV(4921) = JVS(29702)*UV(1182)+JVS(29703)*UV(1738)+JVS(29706)*UV(2860)+JVS(29710)*UV(4921)+JVS(29711)*UV(5248)& - &+JVS(29713)*UV(5250)+JVS(29714)*UV(5252)+JVS(29715)*UV(5253)+JVS(29716)*UV(5255)+JVS(29717)*UV(5256) - JUV(4922) = JVS(29718)*UV(3654)+JVS(29719)*UV(4840)+JVS(29720)*UV(4922)+JVS(29721)*UV(5250)+JVS(29722)*UV(5252)& - &+JVS(29723)*UV(5255)+JVS(29724)*UV(5256) - JUV(4923) = JVS(29726)*UV(3660)+JVS(29727)*UV(4156)+JVS(29728)*UV(4840)+JVS(29730)*UV(4923)+JVS(29731)*UV(5250)& - &+JVS(29732)*UV(5252)+JVS(29733)*UV(5255)+JVS(29734)*UV(5256) - JUV(4924) = JVS(29736)*UV(6)+JVS(29737)*UV(1705)+JVS(29739)*UV(2219)+JVS(29740)*UV(2945)+JVS(29741)*UV(3171)& - &+JVS(29747)*UV(4924)+JVS(29749)*UV(5087)+JVS(29751)*UV(5250)+JVS(29752)*UV(5252)+JVS(29753)*UV(5253)& - &+JVS(29754)*UV(5255)+JVS(29755)*UV(5256) - JUV(4925) = JVS(29757)*UV(2174)+JVS(29758)*UV(4492)+JVS(29759)*UV(4925)+JVS(29760)*UV(5250)+JVS(29761)*UV(5252)& - &+JVS(29762)*UV(5255)+JVS(29763)*UV(5256) - JUV(4926) = JVS(29765)*UV(1893)+JVS(29767)*UV(3408)+JVS(29768)*UV(4926)+JVS(29770)*UV(4996)+JVS(29771)*UV(5250)& - &+JVS(29772)*UV(5252)+JVS(29773)*UV(5253)+JVS(29774)*UV(5255)+JVS(29775)*UV(5256) - JUV(4927) = JVS(29776)*UV(3754)+JVS(29777)*UV(4004)+JVS(29779)*UV(4927)+JVS(29780)*UV(5030)+JVS(29781)*UV(5209)& - &+JVS(29782)*UV(5250)+JVS(29785)*UV(5256)+JVS(29786)*UV(5258) - JUV(4928) = JVS(29787)*UV(4093)+JVS(29788)*UV(4928)+JVS(29789)*UV(5250)+JVS(29790)*UV(5252)+JVS(29791)*UV(5255)& - &+JVS(29792)*UV(5256) - JUV(4929) = JVS(29794)*UV(56)+JVS(29795)*UV(771)+JVS(29796)*UV(1248)+JVS(29797)*UV(1728)+JVS(29798)*UV(2107)& - &+JVS(29802)*UV(4472)+JVS(29805)*UV(4929)+JVS(29807)*UV(5018)+JVS(29808)*UV(5250)+JVS(29810)*UV(5252)& - &+JVS(29813)*UV(5255)+JVS(29814)*UV(5256) - JUV(4930) = JVS(29816)*UV(2808)+JVS(29817)*UV(2875)+JVS(29818)*UV(3122)+JVS(29819)*UV(3226)+JVS(29822)*UV(4930)& - &+JVS(29823)*UV(5068)+JVS(29824)*UV(5250)+JVS(29825)*UV(5252)+JVS(29826)*UV(5253)+JVS(29827)*UV(5255)& - &+JVS(29828)*UV(5256) - JUV(4931) = JVS(29830)*UV(1949)+JVS(29831)*UV(2472)+JVS(29832)*UV(2808)+JVS(29833)*UV(2949)+JVS(29834)*UV(2969)& - &+JVS(29835)*UV(3028)+JVS(29836)*UV(3226)+JVS(29837)*UV(3463)+JVS(29838)*UV(3716)+JVS(29839)*UV(3795)& - &+JVS(29840)*UV(3816)+JVS(29842)*UV(4086)+JVS(29844)*UV(4393)+JVS(29847)*UV(4688)+JVS(29849)*UV(4864)& - &+JVS(29853)*UV(4931)+JVS(29854)*UV(4998)+JVS(29856)*UV(5068)+JVS(29857)*UV(5250)+JVS(29858)*UV(5251)& - &+JVS(29859)*UV(5252)+JVS(29860)*UV(5253)+JVS(29861)*UV(5254)+JVS(29862)*UV(5255)+JVS(29863)*UV(5256)& - &+JVS(29864)*UV(5258) - JUV(4932) = JVS(29865)*UV(2627)+JVS(29866)*UV(4932)+JVS(29867)*UV(5194)+JVS(29868)*UV(5250)+JVS(29869)*UV(5252)& - &+JVS(29870)*UV(5255)+JVS(29871)*UV(5256) - JUV(4933) = JVS(29872)*UV(3460)+JVS(29873)*UV(3600)+JVS(29874)*UV(4017)+JVS(29876)*UV(4933)+JVS(29877)*UV(5250)& - &+JVS(29880)*UV(5256)+JVS(29881)*UV(5258) - JUV(4934) = JVS(29882)*UV(1090)+JVS(29883)*UV(2846)+JVS(29884)*UV(4934)+JVS(29885)*UV(4975)+JVS(29886)*UV(5250)& - &+JVS(29887)*UV(5252)+JVS(29888)*UV(5253)+JVS(29889)*UV(5255)+JVS(29890)*UV(5256) - JUV(4935) = JVS(29891)*UV(1465)+JVS(29892)*UV(1513)+JVS(29893)*UV(3996)+JVS(29894)*UV(4807)+JVS(29895)*UV(4935)& - &+JVS(29896)*UV(5250)+JVS(29897)*UV(5252)+JVS(29899)*UV(5255)+JVS(29900)*UV(5256) - JUV(4936) = JVS(29902)*UV(1467)+JVS(29903)*UV(2823)+JVS(29904)*UV(3454)+JVS(29906)*UV(4539)+JVS(29907)*UV(4936)& - &+JVS(29910)*UV(5226)+JVS(29911)*UV(5250)+JVS(29912)*UV(5252)+JVS(29914)*UV(5255)+JVS(29915)*UV(5256) - JUV(4937) = JVS(29916)*UV(956)+JVS(29917)*UV(2241)+JVS(29918)*UV(3803)+JVS(29919)*UV(4937)+JVS(29921)*UV(5252)& - &+JVS(29923)*UV(5256) - JUV(4938) = JVS(29924)*UV(1637)+JVS(29925)*UV(1677)+JVS(29926)*UV(1710)+JVS(29927)*UV(2024)+JVS(29928)*UV(2159)& - &+JVS(29929)*UV(2279)+JVS(29930)*UV(2426)+JVS(29931)*UV(2504)+JVS(29932)*UV(2518)+JVS(29933)*UV(2556)& - &+JVS(29934)*UV(2608)+JVS(29935)*UV(2659)+JVS(29936)*UV(2715)+JVS(29937)*UV(2766)+JVS(29938)*UV(2883)& - &+JVS(29939)*UV(2919)+JVS(29940)*UV(2967)+JVS(29941)*UV(3103)+JVS(29942)*UV(3221)+JVS(29943)*UV(3239)& - &+JVS(29945)*UV(3328)+JVS(29946)*UV(3450)+JVS(29947)*UV(3578)+JVS(29948)*UV(3664)+JVS(29951)*UV(3832)& - &+JVS(29953)*UV(3909)+JVS(29954)*UV(3930)+JVS(29955)*UV(3931)+JVS(29959)*UV(4214)+JVS(29960)*UV(4328)& - &+JVS(29961)*UV(4331)+JVS(29965)*UV(4379)+JVS(29967)*UV(4386)+JVS(29977)*UV(4741)+JVS(29988)*UV(4937)& - &+JVS(29989)*UV(4938)+JVS(29992)*UV(4950)+JVS(29997)*UV(5030)+JVS(30000)*UV(5076)+JVS(30002)*UV(5098)& - &+JVS(30006)*UV(5250)+JVS(30007)*UV(5251)+JVS(30008)*UV(5252)+JVS(30009)*UV(5253)+JVS(30010)*UV(5254)& - &+JVS(30011)*UV(5255)+JVS(30012)*UV(5256)+JVS(30013)*UV(5258) - JUV(4939) = JVS(30014)*UV(2478)+JVS(30015)*UV(2619)+JVS(30016)*UV(3683)+JVS(30017)*UV(4109)+JVS(30024)*UV(4939)& - &+JVS(30032)*UV(5250)+JVS(30036)*UV(5256) - JUV(4940) = JVS(30037)*UV(1182)+JVS(30038)*UV(1569)+JVS(30039)*UV(3617)+JVS(30045)*UV(4921)+JVS(30046)*UV(4940)& - &+JVS(30049)*UV(5248)+JVS(30051)*UV(5250)+JVS(30053)*UV(5252)+JVS(30056)*UV(5255)+JVS(30057)*UV(5256) - JUV(4941) = JVS(30059)*UV(2013)+JVS(30060)*UV(3297)+JVS(30063)*UV(4941)+JVS(30066)*UV(5251)+JVS(30067)*UV(5252)& - &+JVS(30068)*UV(5253)+JVS(30069)*UV(5254) - JUV(4942) = JVS(30072)*UV(474)+JVS(30073)*UV(1114)+JVS(30074)*UV(1709)+JVS(30075)*UV(2416)+JVS(30076)*UV(3117)& - &+JVS(30077)*UV(4710)+JVS(30078)*UV(4850)+JVS(30079)*UV(4942)+JVS(30083)*UV(5238)+JVS(30084)*UV(5250)& - &+JVS(30085)*UV(5252)+JVS(30087)*UV(5255)+JVS(30088)*UV(5256) - JUV(4943) = JVS(30089)*UV(766)+JVS(30090)*UV(2286)+JVS(30091)*UV(4333)+JVS(30097)*UV(4943)+JVS(30100)*UV(5251)& - &+JVS(30101)*UV(5252)+JVS(30102)*UV(5253)+JVS(30103)*UV(5254) - JUV(4944) = JVS(30106)*UV(698)+JVS(30107)*UV(769)+JVS(30108)*UV(1332)+JVS(30109)*UV(1744)+JVS(30110)*UV(2059)& - &+JVS(30111)*UV(2611)+JVS(30112)*UV(2751)+JVS(30113)*UV(3183)+JVS(30114)*UV(3349)+JVS(30122)*UV(4944)& - &+JVS(30124)*UV(5165)+JVS(30125)*UV(5250)+JVS(30126)*UV(5252)+JVS(30127)*UV(5253)+JVS(30128)*UV(5255)& - &+JVS(30129)*UV(5256) - JUV(4945) = JVS(30131)*UV(4945)+JVS(30132)*UV(5154)+JVS(30133)*UV(5173)+JVS(30134)*UV(5250)+JVS(30135)*UV(5252) - JUV(4946) = JVS(30136)*UV(3005)+JVS(30137)*UV(3249)+JVS(30138)*UV(4946)+JVS(30139)*UV(5141)+JVS(30140)*UV(5250)& - &+JVS(30141)*UV(5252)+JVS(30142)*UV(5253)+JVS(30143)*UV(5255)+JVS(30144)*UV(5256) - JUV(4947) = JVS(30145)*UV(1175)+JVS(30146)*UV(1404)+JVS(30147)*UV(1765)+JVS(30148)*UV(2051)+JVS(30150)*UV(3433)& - &+JVS(30151)*UV(3486)+JVS(30153)*UV(3567)+JVS(30154)*UV(3573)+JVS(30155)*UV(3584)+JVS(30156)*UV(3931)& - &+JVS(30157)*UV(4547)+JVS(30158)*UV(4630)+JVS(30160)*UV(4740)+JVS(30162)*UV(4846)+JVS(30165)*UV(4947)& - &+JVS(30168)*UV(5250)+JVS(30169)*UV(5252)+JVS(30171)*UV(5255)+JVS(30172)*UV(5256) - JUV(4948) = JVS(30174)*UV(3316)+JVS(30175)*UV(3487)+JVS(30176)*UV(4027)+JVS(30177)*UV(4948)+JVS(30178)*UV(5250)& - &+JVS(30179)*UV(5252)+JVS(30180)*UV(5253)+JVS(30181)*UV(5255)+JVS(30182)*UV(5256) - JUV(4949) = JVS(30184)*UV(674)+JVS(30185)*UV(689)+JVS(30186)*UV(1158)+JVS(30187)*UV(1658)+JVS(30188)*UV(1659)& - &+JVS(30189)*UV(2395)+JVS(30190)*UV(2730)+JVS(30191)*UV(2790)+JVS(30192)*UV(3287)+JVS(30195)*UV(4949)& - &+JVS(30196)*UV(5071)+JVS(30199)*UV(5250)+JVS(30200)*UV(5252)+JVS(30201)*UV(5253)+JVS(30202)*UV(5255)& - &+JVS(30203)*UV(5256) - JUV(4950) = JVS(30204)*UV(135)+JVS(30205)*UV(1451)+JVS(30206)*UV(3435)+JVS(30207)*UV(4028)+JVS(30208)*UV(4950)& - &+JVS(30209)*UV(5250)+JVS(30210)*UV(5252)+JVS(30212)*UV(5256) - JUV(4951) = JVS(30213)*UV(3342)+JVS(30214)*UV(3795)+JVS(30215)*UV(3805)+JVS(30216)*UV(3812)+JVS(30217)*UV(3824)& - &+JVS(30218)*UV(4177)+JVS(30220)*UV(4950)+JVS(30221)*UV(4951)+JVS(30222)*UV(5058)+JVS(30223)*UV(5250)& - &+JVS(30226)*UV(5256)+JVS(30227)*UV(5258) - JUV(4952) = JVS(30228)*UV(3802)+JVS(30229)*UV(3824)+JVS(30230)*UV(3826)+JVS(30231)*UV(4177)+JVS(30232)*UV(4937)& - &+JVS(30233)*UV(4950)+JVS(30234)*UV(4952)+JVS(30235)*UV(5123)+JVS(30236)*UV(5250)+JVS(30239)*UV(5256)& - &+JVS(30240)*UV(5258) - JUV(4953) = JVS(30241)*UV(708)+JVS(30242)*UV(1325)+JVS(30243)*UV(1718)+JVS(30244)*UV(1858)+JVS(30245)*UV(2727)& - &+JVS(30246)*UV(2958)+JVS(30249)*UV(4953)+JVS(30250)*UV(5250)+JVS(30251)*UV(5252)+JVS(30252)*UV(5253)& - &+JVS(30253)*UV(5255)+JVS(30254)*UV(5256) - JUV(4954) = JVS(30256)*UV(654)+JVS(30257)*UV(2497)+JVS(30258)*UV(3254)+JVS(30259)*UV(3294)+JVS(30260)*UV(3488)& - &+JVS(30262)*UV(4954)+JVS(30264)*UV(5194)+JVS(30265)*UV(5250)+JVS(30266)*UV(5252)+JVS(30267)*UV(5253)& - &+JVS(30268)*UV(5255)+JVS(30269)*UV(5256) - JUV(4955) = JVS(30271)*UV(916)+JVS(30272)*UV(3010)+JVS(30273)*UV(4955)+JVS(30274)*UV(5189)+JVS(30275)*UV(5250)& - &+JVS(30276)*UV(5252)+JVS(30277)*UV(5253)+JVS(30278)*UV(5255)+JVS(30279)*UV(5256) - JUV(4956) = JVS(30280)*UV(2042)+JVS(30281)*UV(3202)+JVS(30284)*UV(4956)+JVS(30287)*UV(5251)+JVS(30288)*UV(5252)& - &+JVS(30289)*UV(5253)+JVS(30290)*UV(5254) - JUV(4957) = JVS(30293)*UV(2546)+JVS(30294)*UV(4883)+JVS(30295)*UV(4957)+JVS(30297)*UV(5250)+JVS(30298)*UV(5252)& - &+JVS(30299)*UV(5253)+JVS(30300)*UV(5255)+JVS(30301)*UV(5256) - JUV(4958) = JVS(30302)*UV(839)+JVS(30303)*UV(890)+JVS(30304)*UV(893)+JVS(30305)*UV(1518)+JVS(30306)*UV(1575)& - &+JVS(30307)*UV(1685)+JVS(30308)*UV(1804)+JVS(30309)*UV(1874)+JVS(30310)*UV(1939)+JVS(30311)*UV(1981)& - &+JVS(30312)*UV(2925)+JVS(30313)*UV(3236)+JVS(30315)*UV(4096)+JVS(30316)*UV(4518)+JVS(30317)*UV(4556)& - &+JVS(30318)*UV(4657)+JVS(30319)*UV(4658)+JVS(30320)*UV(4945)+JVS(30321)*UV(4958)+JVS(30322)*UV(5020)& - &+JVS(30326)*UV(5250)+JVS(30327)*UV(5251)+JVS(30328)*UV(5252)+JVS(30329)*UV(5253)+JVS(30330)*UV(5254)& - &+JVS(30331)*UV(5255)+JVS(30332)*UV(5256)+JVS(30333)*UV(5258) - JUV(4959) = JVS(30334)*UV(806)+JVS(30335)*UV(1234)+JVS(30336)*UV(3310)+JVS(30337)*UV(4537)+JVS(30338)*UV(4601)& - &+JVS(30339)*UV(4874)+JVS(30341)*UV(4959)+JVS(30345)*UV(5250)+JVS(30346)*UV(5252)+JVS(30348)*UV(5255)& - &+JVS(30349)*UV(5256) - JUV(4960) = JVS(30351)*UV(953)+JVS(30352)*UV(1022)+JVS(30353)*UV(1757)+JVS(30354)*UV(4818)+JVS(30355)*UV(4960)& - &+JVS(30356)*UV(5072)+JVS(30357)*UV(5250)+JVS(30358)*UV(5252)+JVS(30360)*UV(5255)+JVS(30361)*UV(5256) - JUV(4961) = JVS(30362)*UV(2135)+JVS(30363)*UV(2718)+JVS(30364)*UV(3175)+JVS(30366)*UV(4688)+JVS(30368)*UV(4961)& - &+JVS(30369)*UV(5043)+JVS(30372)*UV(5250)+JVS(30376)*UV(5256) - JUV(4962) = JVS(30378)*UV(1475)+JVS(30379)*UV(2786)+JVS(30380)*UV(4540)+JVS(30382)*UV(4962)+JVS(30383)*UV(5140)& - &+JVS(30386)*UV(5250)+JVS(30387)*UV(5252)+JVS(30388)*UV(5253)+JVS(30389)*UV(5255)+JVS(30390)*UV(5256) - JUV(4963) = JVS(30391)*UV(514)+JVS(30392)*UV(2425)+JVS(30395)*UV(4963)+JVS(30398)*UV(5251)+JVS(30399)*UV(5252)& - &+JVS(30400)*UV(5253)+JVS(30401)*UV(5254) - JUV(4964) = JVS(30404)*UV(444)+JVS(30405)*UV(1240)+JVS(30406)*UV(1341)+JVS(30407)*UV(1792)+JVS(30408)*UV(1794)& - &+JVS(30409)*UV(2780)+JVS(30410)*UV(3072)+JVS(30411)*UV(3776)+JVS(30415)*UV(4395)+JVS(30416)*UV(4919)& - &+JVS(30417)*UV(4964)+JVS(30418)*UV(5250)+JVS(30419)*UV(5251)+JVS(30420)*UV(5252)+JVS(30421)*UV(5253)& - &+JVS(30422)*UV(5254)+JVS(30424)*UV(5256)+JVS(30425)*UV(5258) - JUV(4965) = JVS(30426)*UV(1763)+JVS(30428)*UV(4397)+JVS(30430)*UV(4666)+JVS(30433)*UV(4965)+JVS(30434)*UV(5250)& - &+JVS(30436)*UV(5252)+JVS(30437)*UV(5253)+JVS(30440)*UV(5256)+JVS(30441)*UV(5258) - JUV(4966) = JVS(30442)*UV(163)+JVS(30444)*UV(2696)+JVS(30445)*UV(3237)+JVS(30449)*UV(4728)+JVS(30452)*UV(4966)& - &+JVS(30455)*UV(5250)+JVS(30456)*UV(5252)+JVS(30457)*UV(5253)+JVS(30458)*UV(5255)+JVS(30459)*UV(5256) - JUV(4967) = JVS(30461)*UV(3528)+JVS(30462)*UV(3747)+JVS(30465)*UV(4967)+JVS(30468)*UV(5250)+JVS(30469)*UV(5252)& - &+JVS(30470)*UV(5255)+JVS(30471)*UV(5256) - JUV(4968) = JVS(30472)*UV(2504)+JVS(30473)*UV(3209)+JVS(30474)*UV(4968)+JVS(30475)*UV(5076)+JVS(30476)*UV(5250)& - &+JVS(30477)*UV(5252)+JVS(30478)*UV(5253)+JVS(30479)*UV(5255)+JVS(30480)*UV(5256) - JUV(4969) = JVS(30481)*UV(583)+JVS(30482)*UV(986)+JVS(30483)*UV(2977)+JVS(30485)*UV(4493)+JVS(30487)*UV(4969)& - &+JVS(30490)*UV(5250)+JVS(30491)*UV(5252)+JVS(30492)*UV(5253)+JVS(30493)*UV(5255)+JVS(30494)*UV(5256) - JUV(4970) = JVS(30496)*UV(1746)+JVS(30497)*UV(4970)+JVS(30499)*UV(5092)+JVS(30500)*UV(5099)+JVS(30501)*UV(5250)& - &+JVS(30502)*UV(5255)+JVS(30503)*UV(5258) - JUV(4971) = JVS(30504)*UV(3622)+JVS(30505)*UV(4971)+JVS(30506)*UV(5250)+JVS(30507)*UV(5252)+JVS(30508)*UV(5255)& - &+JVS(30509)*UV(5256) - JUV(4972) = JVS(30511)*UV(2179)+JVS(30512)*UV(4972)+JVS(30513)*UV(5190)+JVS(30514)*UV(5250)+JVS(30515)*UV(5252)& - &+JVS(30516)*UV(5255)+JVS(30517)*UV(5256) - JUV(4973) = JVS(30518)*UV(1140)+JVS(30519)*UV(1914)+JVS(30520)*UV(2128)+JVS(30521)*UV(2319)+JVS(30522)*UV(2514)& - &+JVS(30523)*UV(2678)+JVS(30524)*UV(2946)+JVS(30525)*UV(2978)+JVS(30526)*UV(3311)+JVS(30527)*UV(3386)& - &+JVS(30528)*UV(3935)+JVS(30529)*UV(4243)+JVS(30533)*UV(4870)+JVS(30535)*UV(4973)+JVS(30545)*UV(5246)& - &+JVS(30546)*UV(5250)+JVS(30547)*UV(5252)+JVS(30549)*UV(5255)+JVS(30550)*UV(5256) - JUV(4974) = JVS(30551)*UV(1855)+JVS(30552)*UV(2385)+JVS(30553)*UV(4974)+JVS(30554)*UV(5238)+JVS(30555)*UV(5250)& - &+JVS(30556)*UV(5252)+JVS(30557)*UV(5255)+JVS(30558)*UV(5256) - JUV(4975) = JVS(30559)*UV(1799)+JVS(30560)*UV(2543)+JVS(30561)*UV(2653)+JVS(30562)*UV(3869)+JVS(30566)*UV(4975)& - &+JVS(30568)*UV(5250)+JVS(30571)*UV(5256) - JUV(4976) = JVS(30572)*UV(4976)+JVS(30573)*UV(5217)+JVS(30574)*UV(5250)+JVS(30575)*UV(5256)+JVS(30576)*UV(5258) - JUV(4977) = JVS(30577)*UV(901)+JVS(30578)*UV(2852)+JVS(30579)*UV(3896)+JVS(30581)*UV(4977)+JVS(30583)*UV(5250)& - &+JVS(30584)*UV(5252)+JVS(30585)*UV(5253)+JVS(30586)*UV(5255)+JVS(30587)*UV(5256) - JUV(4978) = JVS(30589)*UV(334)+JVS(30590)*UV(1328)+JVS(30591)*UV(1875)+JVS(30592)*UV(2444)+JVS(30593)*UV(2749)& - &+JVS(30594)*UV(2813)+JVS(30595)*UV(3841)+JVS(30598)*UV(4978)+JVS(30601)*UV(5250)+JVS(30605)*UV(5256) - JUV(4979) = JVS(30606)*UV(983)+JVS(30607)*UV(2822)+JVS(30608)*UV(3792)+JVS(30610)*UV(4979)+JVS(30613)*UV(5250)& - &+JVS(30614)*UV(5252)+JVS(30615)*UV(5253)+JVS(30616)*UV(5255)+JVS(30617)*UV(5256) - JUV(4980) = JVS(30618)*UV(288)+JVS(30619)*UV(853)+JVS(30620)*UV(2628)+JVS(30621)*UV(3856)+JVS(30622)*UV(4469)& - &+JVS(30623)*UV(4980)+JVS(30625)*UV(5238)+JVS(30626)*UV(5250)+JVS(30627)*UV(5252)+JVS(30629)*UV(5255)& - &+JVS(30630)*UV(5256) - JUV(4981) = JVS(30631)*UV(601)+JVS(30632)*UV(855)+JVS(30633)*UV(889)+JVS(30634)*UV(1741)+JVS(30637)*UV(3333)& - &+JVS(30638)*UV(3369)+JVS(30639)*UV(4559)+JVS(30640)*UV(4860)+JVS(30642)*UV(4981)+JVS(30645)*UV(5238)& - &+JVS(30646)*UV(5250)+JVS(30647)*UV(5252)+JVS(30649)*UV(5255)+JVS(30650)*UV(5256) - JUV(4982) = JVS(30651)*UV(3618)+JVS(30652)*UV(4570)+JVS(30653)*UV(4982)+JVS(30656)*UV(5250)+JVS(30657)*UV(5252)& - &+JVS(30658)*UV(5255)+JVS(30659)*UV(5256) - JUV(4983) = JVS(30661)*UV(1891)+JVS(30662)*UV(3209)+JVS(30663)*UV(3237)+JVS(30664)*UV(3325)+JVS(30665)*UV(3458)& - &+JVS(30666)*UV(3463)+JVS(30667)*UV(3467)+JVS(30668)*UV(3475)+JVS(30669)*UV(3476)+JVS(30670)*UV(3515)& - &+JVS(30671)*UV(3555)+JVS(30673)*UV(4570)+JVS(30683)*UV(4983)+JVS(30696)*UV(5216)+JVS(30697)*UV(5250)& - &+JVS(30700)*UV(5255)+JVS(30702)*UV(5258) - JUV(4984) = JVS(30703)*UV(1173)+JVS(30704)*UV(2987)+JVS(30705)*UV(4279)+JVS(30707)*UV(4984)+JVS(30710)*UV(5250)& - &+JVS(30711)*UV(5252)+JVS(30712)*UV(5253)+JVS(30713)*UV(5255)+JVS(30714)*UV(5256) - JUV(4985) = JVS(30715)*UV(634)+JVS(30716)*UV(2603)+JVS(30717)*UV(3082)+JVS(30718)*UV(3251)+JVS(30719)*UV(3300)& - &+JVS(30724)*UV(4985)+JVS(30725)*UV(5089)+JVS(30726)*UV(5250)+JVS(30727)*UV(5252)+JVS(30728)*UV(5253)& - &+JVS(30729)*UV(5255)+JVS(30730)*UV(5256) - JUV(4986) = JVS(30732)*UV(1109)+JVS(30733)*UV(1610)+JVS(30734)*UV(1806)+JVS(30736)*UV(2021)+JVS(30738)*UV(2876)& - &+JVS(30739)*UV(3103)+JVS(30740)*UV(3372)+JVS(30741)*UV(3599)+JVS(30752)*UV(4986)+JVS(30753)*UV(5123)& - &+JVS(30754)*UV(5250)+JVS(30755)*UV(5252)+JVS(30756)*UV(5253)+JVS(30757)*UV(5255)+JVS(30758)*UV(5256) - JUV(4987) = JVS(30760)*UV(148)+JVS(30761)*UV(1351)+JVS(30762)*UV(4987)+JVS(30764)*UV(5176)+JVS(30765)*UV(5250)& - &+JVS(30766)*UV(5252)+JVS(30767)*UV(5255)+JVS(30768)*UV(5256) - JUV(4988) = JVS(30770)*UV(4988)+JVS(30771)*UV(5250)+JVS(30772)*UV(5256)+JVS(30773)*UV(5258) - JUV(4989) = JVS(30774)*UV(688)+JVS(30775)*UV(1407)+JVS(30776)*UV(1742)+JVS(30777)*UV(1791)+JVS(30778)*UV(2685)& - &+JVS(30779)*UV(2836)+JVS(30782)*UV(4989)+JVS(30783)*UV(5250)+JVS(30784)*UV(5252)+JVS(30785)*UV(5253)& - &+JVS(30786)*UV(5255)+JVS(30787)*UV(5256) - JUV(4990) = JVS(30790)*UV(876)+JVS(30791)*UV(2755)+JVS(30792)*UV(3875)+JVS(30794)*UV(4990)+JVS(30796)*UV(5250)& - &+JVS(30797)*UV(5252)+JVS(30798)*UV(5253)+JVS(30799)*UV(5255)+JVS(30800)*UV(5256) - JUV(4991) = JVS(30801)*UV(1099)+JVS(30802)*UV(1236)+JVS(30803)*UV(2910)+JVS(30804)*UV(4468)+JVS(30805)*UV(4618)& - &+JVS(30817)*UV(4991)+JVS(30821)*UV(5250)+JVS(30822)*UV(5252)+JVS(30824)*UV(5255)+JVS(30825)*UV(5256) - JUV(4992) = JVS(30827)*UV(1299)+JVS(30828)*UV(1330)+JVS(30829)*UV(4018)+JVS(30830)*UV(4685)+JVS(30831)*UV(4992)& - &+JVS(30832)*UV(5250)+JVS(30833)*UV(5252)+JVS(30835)*UV(5255)+JVS(30836)*UV(5256) - JUV(4993) = JVS(30838)*UV(3280)+JVS(30839)*UV(3290)+JVS(30840)*UV(4993)+JVS(30841)*UV(5209)+JVS(30842)*UV(5250)& - &+JVS(30843)*UV(5252)+JVS(30844)*UV(5253)+JVS(30845)*UV(5255)+JVS(30846)*UV(5256) - JUV(4994) = JVS(30847)*UV(832)+JVS(30848)*UV(3023)+JVS(30849)*UV(3877)+JVS(30851)*UV(4994)+JVS(30853)*UV(5250)& - &+JVS(30854)*UV(5252)+JVS(30855)*UV(5253)+JVS(30856)*UV(5255)+JVS(30857)*UV(5256) - JUV(4995) = JVS(30858)*UV(258)+JVS(30859)*UV(1475)+JVS(30860)*UV(1686)+JVS(30861)*UV(2456)+JVS(30862)*UV(3580)& - &+JVS(30864)*UV(4248)+JVS(30866)*UV(4540)+JVS(30869)*UV(4962)+JVS(30870)*UV(4995)+JVS(30872)*UV(5140)& - &+JVS(30879)*UV(5250)+JVS(30880)*UV(5252)+JVS(30882)*UV(5255)+JVS(30883)*UV(5256) - JUV(4996) = JVS(30884)*UV(557)+JVS(30886)*UV(2009)+JVS(30887)*UV(3415)+JVS(30888)*UV(3580)+JVS(30889)*UV(4158)& - &+JVS(30890)*UV(4354)+JVS(30893)*UV(4883)+JVS(30894)*UV(4996)+JVS(30897)*UV(5250)+JVS(30900)*UV(5256) - JUV(4997) = JVS(30901)*UV(2104)+JVS(30902)*UV(2148)+JVS(30904)*UV(4997)+JVS(30907)*UV(5251)+JVS(30908)*UV(5252)& - &+JVS(30909)*UV(5253)+JVS(30910)*UV(5254) - JUV(4998) = JVS(30913)*UV(3210)+JVS(30915)*UV(4998)+JVS(30918)*UV(5251)+JVS(30919)*UV(5252)+JVS(30920)*UV(5253)& - &+JVS(30921)*UV(5254) - JUV(4999) = JVS(30924)*UV(1642)+JVS(30925)*UV(2081)+JVS(30926)*UV(4999)+JVS(30930)*UV(5251)+JVS(30931)*UV(5252)& - &+JVS(30932)*UV(5253)+JVS(30933)*UV(5254) - JUV(5000) = JVS(30935)*UV(1369)+JVS(30936)*UV(1671)+JVS(30937)*UV(1882)+JVS(30938)*UV(2037)+JVS(30939)*UV(2110)& - &+JVS(30940)*UV(2434)+JVS(30941)*UV(2675)+JVS(30942)*UV(2815)+JVS(30943)*UV(2869)+JVS(30944)*UV(3020)& - &+JVS(30946)*UV(3299)+JVS(30947)*UV(3462)+JVS(30948)*UV(3603)+JVS(30949)*UV(3623)+JVS(30951)*UV(4316)& - &+JVS(30954)*UV(4553)+JVS(30956)*UV(4555)+JVS(30958)*UV(4763)+JVS(30963)*UV(4908)+JVS(30964)*UV(5000)& - &+JVS(30969)*UV(5129)+JVS(30973)*UV(5250)+JVS(30974)*UV(5251)+JVS(30975)*UV(5252)+JVS(30976)*UV(5253)& - &+JVS(30977)*UV(5254)+JVS(30978)*UV(5255)+JVS(30979)*UV(5256)+JVS(30980)*UV(5258) - JUV(5001) = JVS(30981)*UV(915)+JVS(30982)*UV(1084)+JVS(30983)*UV(3438)+JVS(30984)*UV(3457)+JVS(30985)*UV(3569)& - &+JVS(30986)*UV(3581)+JVS(30987)*UV(3610)+JVS(30988)*UV(3614)+JVS(30989)*UV(4125)+JVS(30992)*UV(4569)& - &+JVS(30993)*UV(4684)+JVS(30996)*UV(4729)+JVS(31002)*UV(5001)+JVS(31007)*UV(5250)+JVS(31008)*UV(5252)& - &+JVS(31010)*UV(5255)+JVS(31011)*UV(5256) - JUV(5002) = JVS(31013)*UV(5002)+JVS(31014)*UV(5204)+JVS(31015)*UV(5250)+JVS(31016)*UV(5256)+JVS(31017)*UV(5258) - JUV(5003) = JVS(31018)*UV(2491)+JVS(31019)*UV(3392)+JVS(31020)*UV(3563)+JVS(31022)*UV(5003)+JVS(31026)*UV(5250)& - &+JVS(31027)*UV(5252)+JVS(31028)*UV(5253)+JVS(31029)*UV(5255)+JVS(31030)*UV(5256) - JUV(5004) = JVS(31031)*UV(729)+JVS(31032)*UV(1238)+JVS(31033)*UV(1320)+JVS(31035)*UV(2139)+JVS(31036)*UV(3008)& - &+JVS(31037)*UV(3248)+JVS(31038)*UV(3913)+JVS(31039)*UV(4278)+JVS(31043)*UV(4812)+JVS(31047)*UV(5004)& - &+JVS(31053)*UV(5250)+JVS(31054)*UV(5252)+JVS(31055)*UV(5253)+JVS(31056)*UV(5255)+JVS(31057)*UV(5256) - JUV(5005) = JVS(31058)*UV(2491)+JVS(31059)*UV(3532)+JVS(31060)*UV(3555)+JVS(31062)*UV(5005)+JVS(31066)*UV(5250)& - &+JVS(31067)*UV(5252)+JVS(31068)*UV(5253)+JVS(31069)*UV(5255)+JVS(31070)*UV(5256) - JUV(5006) = JVS(31071)*UV(158)+JVS(31072)*UV(180)+JVS(31075)*UV(1317)+JVS(31076)*UV(1493)+JVS(31079)*UV(2273)& - &+JVS(31081)*UV(2651)+JVS(31088)*UV(5006)+JVS(31091)*UV(5095)+JVS(31093)*UV(5250)+JVS(31094)*UV(5252)& - &+JVS(31095)*UV(5253)+JVS(31096)*UV(5255)+JVS(31097)*UV(5256) - JUV(5007) = JVS(31099)*UV(393)+JVS(31100)*UV(757)+JVS(31101)*UV(1134)+JVS(31102)*UV(2503)+JVS(31103)*UV(3465)& - &+JVS(31104)*UV(3466)+JVS(31105)*UV(4737)+JVS(31106)*UV(5007)+JVS(31107)*UV(5008)+JVS(31111)*UV(5250)& - &+JVS(31112)*UV(5252)+JVS(31114)*UV(5255)+JVS(31115)*UV(5256) - JUV(5008) = JVS(31117)*UV(1134)+JVS(31118)*UV(1607)+JVS(31119)*UV(2197)+JVS(31120)*UV(2684)+JVS(31122)*UV(4737)& - &+JVS(31123)*UV(5008)+JVS(31127)*UV(5250)+JVS(31128)*UV(5252)+JVS(31129)*UV(5253)+JVS(31130)*UV(5255)& - &+JVS(31131)*UV(5256) - JUV(5009) = JVS(31132)*UV(1778)+JVS(31133)*UV(2278)+JVS(31134)*UV(3007)+JVS(31137)*UV(4689)+JVS(31138)*UV(5009)& - &+JVS(31140)*UV(5096)+JVS(31143)*UV(5250)+JVS(31147)*UV(5256) - JUV(5010) = JVS(31149)*UV(435)+JVS(31150)*UV(1506)+JVS(31151)*UV(1564)+JVS(31152)*UV(1798)+JVS(31156)*UV(3967)& - &+JVS(31159)*UV(5010)+JVS(31161)*UV(5250) - JUV(5011) = JVS(31165)*UV(1378)+JVS(31166)*UV(1432)+JVS(31167)*UV(3366)+JVS(31170)*UV(4569)+JVS(31171)*UV(4680)& - &+JVS(31172)*UV(4801)+JVS(31180)*UV(5011)+JVS(31186)*UV(5250)+JVS(31187)*UV(5252)+JVS(31189)*UV(5255)& - &+JVS(31190)*UV(5256) - JUV(5012) = JVS(31192)*UV(874)+JVS(31193)*UV(1957)+JVS(31194)*UV(2877)+JVS(31195)*UV(3310)+JVS(31201)*UV(4959)& - &+JVS(31202)*UV(5012)+JVS(31207)*UV(5250)+JVS(31211)*UV(5256) - JUV(5013) = JVS(31213)*UV(5013)+JVS(31214)*UV(5217)+JVS(31215)*UV(5218)+JVS(31216)*UV(5250)+JVS(31217)*UV(5252)& - &+JVS(31218)*UV(5258) - JUV(5014) = JVS(31219)*UV(900)+JVS(31220)*UV(1834)+JVS(31222)*UV(2648)+JVS(31225)*UV(5014)+JVS(31226)*UV(5207)& - &+JVS(31227)*UV(5250)+JVS(31228)*UV(5252)+JVS(31229)*UV(5253)+JVS(31230)*UV(5255)+JVS(31231)*UV(5256) - JUV(5015) = JVS(31234)*UV(2147)+JVS(31235)*UV(5015)+JVS(31236)*UV(5168)+JVS(31237)*UV(5250)+JVS(31238)*UV(5252)& - &+JVS(31239)*UV(5255)+JVS(31240)*UV(5256) - JUV(5016) = JVS(31241)*UV(506)+JVS(31242)*UV(936)+JVS(31243)*UV(1249)+JVS(31244)*UV(2655)+JVS(31245)*UV(3470)& - &+JVS(31247)*UV(4548)+JVS(31248)*UV(4636)+JVS(31249)*UV(5016)+JVS(31250)*UV(5177)+JVS(31253)*UV(5227)& - &+JVS(31254)*UV(5250)+JVS(31255)*UV(5252)+JVS(31257)*UV(5255)+JVS(31258)*UV(5256) - JUV(5017) = JVS(31259)*UV(993)+JVS(31260)*UV(2265)+JVS(31262)*UV(2708)+JVS(31264)*UV(4842)+JVS(31265)*UV(5017)& - &+JVS(31269)*UV(5250)+JVS(31270)*UV(5252)+JVS(31271)*UV(5253)+JVS(31272)*UV(5255)+JVS(31273)*UV(5256) - JUV(5018) = JVS(31275)*UV(712)+JVS(31276)*UV(1675)+JVS(31280)*UV(4621)+JVS(31282)*UV(5018)+JVS(31284)*UV(5250)& - &+JVS(31285)*UV(5251)+JVS(31286)*UV(5252)+JVS(31287)*UV(5253)+JVS(31288)*UV(5254)+JVS(31290)*UV(5256) - JUV(5019) = JVS(31292)*UV(933)+JVS(31293)*UV(1018)+JVS(31294)*UV(4660)+JVS(31295)*UV(5019)+JVS(31296)*UV(5159)& - &+JVS(31297)*UV(5250)+JVS(31298)*UV(5252)+JVS(31300)*UV(5255)+JVS(31301)*UV(5256) - JUV(5020) = JVS(31302)*UV(906)+JVS(31303)*UV(1541)+JVS(31304)*UV(1934)+JVS(31305)*UV(4867)+JVS(31307)*UV(5020)& - &+JVS(31309)*UV(5227)+JVS(31310)*UV(5250)+JVS(31311)*UV(5252)+JVS(31313)*UV(5255)+JVS(31314)*UV(5256) - JUV(5021) = JVS(31315)*UV(1277)+JVS(31316)*UV(1608)+JVS(31317)*UV(2658)+JVS(31319)*UV(5021)+JVS(31321)*UV(5250)& - &+JVS(31322)*UV(5252)+JVS(31323)*UV(5253)+JVS(31324)*UV(5255)+JVS(31325)*UV(5256) - JUV(5022) = JVS(31327)*UV(3485)+JVS(31328)*UV(4786)+JVS(31329)*UV(5022)+JVS(31331)*UV(5250)+JVS(31332)*UV(5252)& - &+JVS(31333)*UV(5255)+JVS(31334)*UV(5256) - JUV(5023) = JVS(31336)*UV(875)+JVS(31337)*UV(1787)+JVS(31338)*UV(2320)+JVS(31339)*UV(2345)+JVS(31340)*UV(2475)& - &+JVS(31341)*UV(2486)+JVS(31342)*UV(2498)+JVS(31343)*UV(2596)+JVS(31345)*UV(3495)+JVS(31346)*UV(3611)& - &+JVS(31348)*UV(4209)+JVS(31349)*UV(4250)+JVS(31350)*UV(4366)+JVS(31351)*UV(4382)+JVS(31356)*UV(4776)& - &+JVS(31359)*UV(5023)+JVS(31360)*UV(5024)+JVS(31363)*UV(5093)+JVS(31366)*UV(5250)+JVS(31367)*UV(5251)& - &+JVS(31368)*UV(5252)+JVS(31369)*UV(5253)+JVS(31370)*UV(5254)+JVS(31371)*UV(5255)+JVS(31372)*UV(5256)& - &+JVS(31373)*UV(5258) - JUV(5024) = JVS(31374)*UV(2770)+JVS(31376)*UV(5024)+JVS(31377)*UV(5091)+JVS(31378)*UV(5250)+JVS(31381)*UV(5256)& - &+JVS(31382)*UV(5258) - JUV(5025) = JVS(31383)*UV(3204)+JVS(31384)*UV(5025)+JVS(31385)*UV(5205)+JVS(31386)*UV(5250)+JVS(31387)*UV(5252)& - &+JVS(31388)*UV(5253)+JVS(31389)*UV(5255)+JVS(31390)*UV(5256) - JUV(5026) = JVS(31391)*UV(638)+JVS(31392)*UV(1132)+JVS(31393)*UV(1632)+JVS(31394)*UV(2092)+JVS(31395)*UV(2614)& - &+JVS(31396)*UV(2625)+JVS(31397)*UV(2787)+JVS(31398)*UV(2982)+JVS(31399)*UV(4524)+JVS(31402)*UV(4737)& - &+JVS(31405)*UV(5026)+JVS(31408)*UV(5097)+JVS(31413)*UV(5250)+JVS(31417)*UV(5256) - JUV(5027) = JVS(31418)*UV(1107)+JVS(31419)*UV(1756)+JVS(31420)*UV(2637)+JVS(31423)*UV(5027)+JVS(31424)*UV(5187)& - &+JVS(31425)*UV(5250)+JVS(31426)*UV(5252)+JVS(31427)*UV(5253)+JVS(31428)*UV(5255)+JVS(31429)*UV(5256) - JUV(5028) = JVS(31431)*UV(2359)+JVS(31432)*UV(5028)+JVS(31433)*UV(5248)+JVS(31435)*UV(5250)+JVS(31436)*UV(5252)& - &+JVS(31437)*UV(5255)+JVS(31438)*UV(5256) - JUV(5029) = JVS(31440)*UV(1462)+JVS(31441)*UV(1565)+JVS(31444)*UV(2951)+JVS(31445)*UV(3090)+JVS(31452)*UV(5029)& - &+JVS(31453)*UV(5213)+JVS(31454)*UV(5250)+JVS(31455)*UV(5252)+JVS(31456)*UV(5253)+JVS(31457)*UV(5255)& - &+JVS(31458)*UV(5256) - JUV(5030) = JVS(31460)*UV(52)+JVS(31461)*UV(1486)+JVS(31462)*UV(2605)+JVS(31463)*UV(4133)+JVS(31464)*UV(5030)& - &+JVS(31465)*UV(5250)+JVS(31466)*UV(5252)+JVS(31468)*UV(5256) - JUV(5031) = JVS(31469)*UV(713)+JVS(31470)*UV(2248)+JVS(31471)*UV(2643)+JVS(31472)*UV(2671)+JVS(31473)*UV(2845)& - &+JVS(31474)*UV(3054)+JVS(31475)*UV(3251)+JVS(31476)*UV(3262)+JVS(31477)*UV(3274)+JVS(31478)*UV(3593)& - &+JVS(31481)*UV(3742)+JVS(31483)*UV(3918)+JVS(31485)*UV(4202)+JVS(31502)*UV(5031)+JVS(31507)*UV(5250)& - &+JVS(31508)*UV(5252)+JVS(31510)*UV(5255)+JVS(31511)*UV(5256) - JUV(5032) = JVS(31513)*UV(1153)+JVS(31514)*UV(3583)+JVS(31516)*UV(5032)+JVS(31518)*UV(5250)+JVS(31519)*UV(5252)& - &+JVS(31520)*UV(5255)+JVS(31521)*UV(5256) - JUV(5033) = JVS(31522)*UV(3197)+JVS(31523)*UV(5033)+JVS(31524)*UV(5220)+JVS(31525)*UV(5250)+JVS(31526)*UV(5252)& - &+JVS(31527)*UV(5253)+JVS(31528)*UV(5255)+JVS(31529)*UV(5256) - JUV(5034) = JVS(31530)*UV(2484)+JVS(31531)*UV(2582)+JVS(31532)*UV(2714)+JVS(31533)*UV(3089)+JVS(31535)*UV(3458)& - &+JVS(31539)*UV(5034)+JVS(31540)*UV(5126)+JVS(31541)*UV(5250)+JVS(31542)*UV(5252)+JVS(31543)*UV(5253)& - &+JVS(31544)*UV(5255)+JVS(31545)*UV(5256) - JUV(5035) = JVS(31547)*UV(3428)+JVS(31548)*UV(5035)+JVS(31549)*UV(5205)+JVS(31552)*UV(5250)+JVS(31553)*UV(5252)& - &+JVS(31554)*UV(5255)+JVS(31555)*UV(5256) - JUV(5036) = JVS(31556)*UV(2240)+JVS(31557)*UV(2335)+JVS(31559)*UV(3203)+JVS(31562)*UV(3929)+JVS(31566)*UV(5036)& - &+JVS(31569)*UV(5250)+JVS(31570)*UV(5252)+JVS(31571)*UV(5253)+JVS(31572)*UV(5255)+JVS(31573)*UV(5256) - JUV(5037) = JVS(31574)*UV(2356)+JVS(31575)*UV(2357)+JVS(31576)*UV(2477)+JVS(31577)*UV(2569)+JVS(31578)*UV(2837)& - &+JVS(31579)*UV(3316)+JVS(31580)*UV(3452)+JVS(31581)*UV(3468)+JVS(31582)*UV(3754)+JVS(31588)*UV(5030)& - &+JVS(31589)*UV(5037)+JVS(31590)*UV(5250)+JVS(31595)*UV(5258) - JUV(5038) = JVS(31596)*UV(141)+JVS(31598)*UV(2410)+JVS(31599)*UV(2511)+JVS(31600)*UV(3416)+JVS(31601)*UV(3644)& - &+JVS(31602)*UV(4199)+JVS(31606)*UV(4708)+JVS(31608)*UV(4775)+JVS(31609)*UV(4815)+JVS(31614)*UV(5038)& - &+JVS(31621)*UV(5250)+JVS(31622)*UV(5252)+JVS(31623)*UV(5253)+JVS(31624)*UV(5255)+JVS(31625)*UV(5256) - JUV(5039) = JVS(31627)*UV(362)+JVS(31628)*UV(3638)+JVS(31635)*UV(5039)+JVS(31640)*UV(5250)+JVS(31642)*UV(5252)& - &+JVS(31645)*UV(5255)+JVS(31646)*UV(5256) - JUV(5040) = JVS(31648)*UV(2489)+JVS(31650)*UV(5040)+JVS(31653)*UV(5251)+JVS(31654)*UV(5252)+JVS(31655)*UV(5253)& - &+JVS(31656)*UV(5254) - JUV(5041) = JVS(31658)*UV(1624)+JVS(31659)*UV(2470)+JVS(31662)*UV(5041)+JVS(31664)*UV(5252)+JVS(31666)*UV(5255)& - &+JVS(31667)*UV(5256) - JUV(5042) = JVS(31670)*UV(1730)+JVS(31671)*UV(1885)+JVS(31672)*UV(2337)+JVS(31673)*UV(3024)+JVS(31674)*UV(3032)& - &+JVS(31677)*UV(5042)+JVS(31678)*UV(5147)+JVS(31680)*UV(5250)+JVS(31684)*UV(5256) - JUV(5043) = JVS(31685)*UV(946)+JVS(31686)*UV(2135)+JVS(31687)*UV(4419)+JVS(31688)*UV(4508)+JVS(31689)*UV(5043)& - &+JVS(31691)*UV(5250)+JVS(31692)*UV(5252)+JVS(31694)*UV(5255)+JVS(31695)*UV(5256) - JUV(5044) = JVS(31697)*UV(619)+JVS(31698)*UV(1511)+JVS(31699)*UV(1615)+JVS(31700)*UV(2022)+JVS(31701)*UV(2141)& - &+JVS(31702)*UV(2688)+JVS(31704)*UV(5044)+JVS(31706)*UV(5250)+JVS(31707)*UV(5252)+JVS(31708)*UV(5253)& - &+JVS(31709)*UV(5255)+JVS(31710)*UV(5256) - JUV(5045) = JVS(31712)*UV(1688)+JVS(31713)*UV(2409)+JVS(31714)*UV(5045)+JVS(31715)*UV(5238)+JVS(31716)*UV(5250)& - &+JVS(31717)*UV(5252)+JVS(31718)*UV(5255)+JVS(31719)*UV(5256) - JUV(5046) = JVS(31720)*UV(4213)+JVS(31721)*UV(4247)+JVS(31722)*UV(4250)+JVS(31723)*UV(4258)+JVS(31724)*UV(4264)& - &+JVS(31725)*UV(4282)+JVS(31726)*UV(4286)+JVS(31727)*UV(4302)+JVS(31728)*UV(4320)+JVS(31729)*UV(4526)& - &+JVS(31730)*UV(4544)+JVS(31731)*UV(4551)+JVS(31732)*UV(4556)+JVS(31735)*UV(4621)+JVS(31736)*UV(4668)& - &+JVS(31737)*UV(4677)+JVS(31738)*UV(4691)+JVS(31739)*UV(4741)+JVS(31740)*UV(4757)+JVS(31741)*UV(4776)& - &+JVS(31743)*UV(4819)+JVS(31744)*UV(4824)+JVS(31745)*UV(4828)+JVS(31746)*UV(4838)+JVS(31747)*UV(4843)& - &+JVS(31748)*UV(4868)+JVS(31749)*UV(4869)+JVS(31750)*UV(4906)+JVS(31751)*UV(4908)+JVS(31752)*UV(4912)& - &+JVS(31753)*UV(4919)+JVS(31754)*UV(4941)+JVS(31755)*UV(4943)+JVS(31758)*UV(4956)+JVS(31759)*UV(4963)& - &+JVS(31762)*UV(4997)+JVS(31763)*UV(4998)+JVS(31764)*UV(4999)+JVS(31768)*UV(5040)+JVS(31769)*UV(5046)& - &+JVS(31770)*UV(5047)+JVS(31771)*UV(5048)+JVS(31779)*UV(5070)+JVS(31785)*UV(5102)+JVS(31789)*UV(5156)& - &+JVS(31792)*UV(5170)+JVS(31802)*UV(5223)+JVS(31805)*UV(5250)+JVS(31810)*UV(5255) - JUV(5047) = JVS(31814)*UV(386)+JVS(31816)*UV(5047)+JVS(31820)*UV(5251)+JVS(31821)*UV(5252)+JVS(31822)*UV(5253)& - &+JVS(31823)*UV(5254) - JUV(5048) = JVS(31826)*UV(4988)+JVS(31827)*UV(5048)+JVS(31829)*UV(5251)+JVS(31830)*UV(5252)+JVS(31831)*UV(5253)& - &+JVS(31832)*UV(5254)+JVS(31834)*UV(5258) - JUV(5049) = JVS(31835)*UV(238)+JVS(31836)*UV(1352)+JVS(31837)*UV(1971)+JVS(31838)*UV(3102)+JVS(31840)*UV(3670)& - &+JVS(31841)*UV(5049)+JVS(31843)*UV(5250)+JVS(31846)*UV(5256)+JVS(31847)*UV(5258) - JUV(5050) = JVS(31848)*UV(1365)+JVS(31849)*UV(2099)+JVS(31850)*UV(2100)+JVS(31851)*UV(3658)+JVS(31852)*UV(5050)& - &+JVS(31854)*UV(5250)+JVS(31857)*UV(5256)+JVS(31858)*UV(5258) - JUV(5051) = JVS(31859)*UV(5051)+JVS(31860)*UV(5162)+JVS(31861)*UV(5250)+JVS(31862)*UV(5256)+JVS(31863)*UV(5258) - JUV(5052) = JVS(31864)*UV(585)+JVS(31865)*UV(1509)+JVS(31866)*UV(1687)+JVS(31867)*UV(1863)+JVS(31868)*UV(2315)& - &+JVS(31869)*UV(2704)+JVS(31871)*UV(5052)+JVS(31874)*UV(5250)+JVS(31875)*UV(5252)+JVS(31876)*UV(5253)& - &+JVS(31877)*UV(5255)+JVS(31878)*UV(5256) - JUV(5053) = JVS(31880)*UV(1037)+JVS(31881)*UV(1100)+JVS(31882)*UV(2774)+JVS(31883)*UV(2803)+JVS(31884)*UV(3759)& - &+JVS(31889)*UV(5053)+JVS(31891)*UV(5137)+JVS(31893)*UV(5143)+JVS(31894)*UV(5157)+JVS(31895)*UV(5178)& - &+JVS(31896)*UV(5250)+JVS(31897)*UV(5252)+JVS(31898)*UV(5255)+JVS(31899)*UV(5256) - JUV(5054) = JVS(31901)*UV(1347)+JVS(31902)*UV(2209)+JVS(31903)*UV(2703)+JVS(31904)*UV(3849)+JVS(31908)*UV(5054)& - &+JVS(31911)*UV(5250)+JVS(31912)*UV(5252)+JVS(31913)*UV(5253)+JVS(31914)*UV(5255)+JVS(31915)*UV(5256) - JUV(5055) = JVS(31917)*UV(1856)+JVS(31918)*UV(2247)+JVS(31919)*UV(2251)+JVS(31920)*UV(2800)+JVS(31921)*UV(2884)& - &+JVS(31922)*UV(2939)+JVS(31923)*UV(3079)+JVS(31924)*UV(3212)+JVS(31925)*UV(3938)+JVS(31926)*UV(4207)& - &+JVS(31927)*UV(4705)+JVS(31931)*UV(5055)+JVS(31934)*UV(5150)+JVS(31938)*UV(5250)+JVS(31939)*UV(5252)& - &+JVS(31941)*UV(5255)+JVS(31942)*UV(5256) - JUV(5056) = JVS(31943)*UV(1488)+JVS(31944)*UV(2385)+JVS(31945)*UV(5056)+JVS(31946)*UV(5238)+JVS(31947)*UV(5250)& - &+JVS(31948)*UV(5252)+JVS(31949)*UV(5255)+JVS(31950)*UV(5256) - JUV(5057) = JVS(31951)*UV(896)+JVS(31952)*UV(1557)+JVS(31953)*UV(1994)+JVS(31954)*UV(2459)+JVS(31955)*UV(2848)& - &+JVS(31956)*UV(2891)+JVS(31957)*UV(3528)+JVS(31962)*UV(5057)+JVS(31967)*UV(5148)+JVS(31969)*UV(5239)& - &+JVS(31970)*UV(5250)+JVS(31974)*UV(5256) - JUV(5058) = JVS(31975)*UV(1698)+JVS(31976)*UV(2200)+JVS(31977)*UV(2955)+JVS(31978)*UV(3022)+JVS(31979)*UV(3342)& - &+JVS(31980)*UV(3795)+JVS(31981)*UV(3805)+JVS(31982)*UV(3812)+JVS(31983)*UV(3824)+JVS(31984)*UV(4177)& - &+JVS(31985)*UV(4396)+JVS(31989)*UV(4950)+JVS(31990)*UV(5058)+JVS(31991)*UV(5250)+JVS(31995)*UV(5256)& - &+JVS(31996)*UV(5258) - JUV(5059) = JVS(31997)*UV(2471)+JVS(32023)*UV(5059)+JVS(32028)*UV(5250)+JVS(32030)*UV(5252)+JVS(32033)*UV(5255)& - &+JVS(32034)*UV(5256) - JUV(5060) = JVS(32036)*UV(434)+JVS(32037)*UV(1041)+JVS(32038)*UV(1138)+JVS(32039)*UV(1701)+JVS(32040)*UV(4501)& - &+JVS(32041)*UV(4512)+JVS(32045)*UV(5060)+JVS(32047)*UV(5079)+JVS(32050)*UV(5250)+JVS(32051)*UV(5252)& - &+JVS(32053)*UV(5255)+JVS(32054)*UV(5256) - JUV(5061) = JVS(32056)*UV(1641)+JVS(32057)*UV(1753)+JVS(32058)*UV(5061)+JVS(32059)*UV(5238)+JVS(32060)*UV(5250)& - &+JVS(32061)*UV(5252)+JVS(32062)*UV(5255)+JVS(32063)*UV(5256) - JUV(5062) = JVS(32064)*UV(438)+JVS(32065)*UV(1074)+JVS(32066)*UV(1516)+JVS(32067)*UV(1817)+JVS(32068)*UV(2435)& - &+JVS(32070)*UV(3594)+JVS(32071)*UV(4412)+JVS(32073)*UV(4634)+JVS(32074)*UV(5042)+JVS(32076)*UV(5062)& - &+JVS(32078)*UV(5238)+JVS(32079)*UV(5250)+JVS(32080)*UV(5252)+JVS(32082)*UV(5255)+JVS(32083)*UV(5256) - JUV(5063) = JVS(32085)*UV(1838)+JVS(32087)*UV(2775)+JVS(32088)*UV(2934)+JVS(32089)*UV(3873)+JVS(32093)*UV(5063)& - &+JVS(32095)*UV(5250)+JVS(32098)*UV(5256) - JUV(5064) = JVS(32099)*UV(488)+JVS(32100)*UV(1340)+JVS(32101)*UV(1721)+JVS(32102)*UV(2555)+JVS(32106)*UV(3989)& - &+JVS(32109)*UV(5064)+JVS(32111)*UV(5250) - JUV(5065) = JVS(32115)*UV(253)+JVS(32116)*UV(5065)+JVS(32117)*UV(5238)+JVS(32118)*UV(5250)+JVS(32119)*UV(5252)& - &+JVS(32120)*UV(5255)+JVS(32121)*UV(5256) - JUV(5066) = JVS(32122)*UV(1623)+JVS(32123)*UV(2117)+JVS(32124)*UV(2559)+JVS(32125)*UV(2656)+JVS(32126)*UV(3805)& - &+JVS(32129)*UV(5066)+JVS(32130)*UV(5250)+JVS(32134)*UV(5256)+JVS(32135)*UV(5258) - JUV(5067) = JVS(32136)*UV(1785)+JVS(32137)*UV(2344)+JVS(32138)*UV(2880)+JVS(32139)*UV(3208)+JVS(32141)*UV(4661)& - &+JVS(32145)*UV(5067)+JVS(32148)*UV(5149)+JVS(32150)*UV(5250)+JVS(32154)*UV(5256) - JUV(5068) = JVS(32156)*UV(1636)+JVS(32157)*UV(1951)+JVS(32158)*UV(2601)+JVS(32159)*UV(2915)+JVS(32160)*UV(3795)& - &+JVS(32163)*UV(5068)+JVS(32164)*UV(5250)+JVS(32168)*UV(5256)+JVS(32169)*UV(5258) - JUV(5069) = JVS(32170)*UV(1258)+JVS(32171)*UV(2040)+JVS(32172)*UV(2041)+JVS(32173)*UV(3634)+JVS(32174)*UV(5069)& - &+JVS(32176)*UV(5250)+JVS(32179)*UV(5256)+JVS(32180)*UV(5258) - JUV(5070) = JVS(32181)*UV(3186)+JVS(32184)*UV(4081)+JVS(32186)*UV(5070)+JVS(32191)*UV(5251)+JVS(32192)*UV(5252)& - &+JVS(32193)*UV(5253)+JVS(32194)*UV(5254) - JUV(5071) = JVS(32197)*UV(126)+JVS(32198)*UV(1568)+JVS(32199)*UV(2005)+JVS(32200)*UV(2144)+JVS(32201)*UV(2235)& - &+JVS(32202)*UV(2261)+JVS(32203)*UV(2677)+JVS(32204)*UV(2885)+JVS(32206)*UV(3847)+JVS(32207)*UV(3991)& - &+JVS(32208)*UV(4260)+JVS(32210)*UV(4411)+JVS(32215)*UV(5071)+JVS(32220)*UV(5250)+JVS(32221)*UV(5252)& - &+JVS(32223)*UV(5255)+JVS(32224)*UV(5256) - JUV(5072) = JVS(32225)*UV(772)+JVS(32226)*UV(1264)+JVS(32227)*UV(2032)+JVS(32228)*UV(2033)+JVS(32229)*UV(2984)& - &+JVS(32230)*UV(3715)+JVS(32233)*UV(5072)+JVS(32235)*UV(5250)+JVS(32239)*UV(5256) - JUV(5073) = JVS(32240)*UV(1350)+JVS(32241)*UV(2377)+JVS(32245)*UV(3436)+JVS(32248)*UV(5073)+JVS(32253)*UV(5250)& - &+JVS(32254)*UV(5252)+JVS(32255)*UV(5253)+JVS(32256)*UV(5255)+JVS(32257)*UV(5256) - JUV(5074) = JVS(32258)*UV(3625)+JVS(32259)*UV(4615)+JVS(32260)*UV(5074)+JVS(32262)*UV(5250)+JVS(32263)*UV(5252)& - &+JVS(32264)*UV(5255)+JVS(32265)*UV(5256) - JUV(5075) = JVS(32267)*UV(2735)+JVS(32268)*UV(3272)+JVS(32269)*UV(4378)+JVS(32270)*UV(5075)+JVS(32273)*UV(5250)& - &+JVS(32274)*UV(5252)+JVS(32275)*UV(5253)+JVS(32276)*UV(5255)+JVS(32277)*UV(5256) - JUV(5076) = JVS(32278)*UV(4937)+JVS(32279)*UV(4950)+JVS(32280)*UV(5030)+JVS(32281)*UV(5076)+JVS(32282)*UV(5250)& - &+JVS(32285)*UV(5256)+JVS(32286)*UV(5258) - JUV(5077) = JVS(32287)*UV(1688)+JVS(32288)*UV(2192)+JVS(32289)*UV(5077)+JVS(32290)*UV(5238)+JVS(32291)*UV(5250)& - &+JVS(32292)*UV(5252)+JVS(32293)*UV(5255)+JVS(32294)*UV(5256) - JUV(5078) = JVS(32295)*UV(291)+JVS(32296)*UV(828)+JVS(32297)*UV(1069)+JVS(32298)*UV(1635)+JVS(32299)*UV(3924)& - &+JVS(32300)*UV(4771)+JVS(32302)*UV(5078)+JVS(32303)*UV(5238)+JVS(32304)*UV(5250)+JVS(32305)*UV(5252)& - &+JVS(32307)*UV(5255)+JVS(32308)*UV(5256) - JUV(5079) = JVS(32309)*UV(695)+JVS(32310)*UV(1041)+JVS(32311)*UV(1556)+JVS(32312)*UV(2255)+JVS(32314)*UV(2680)& - &+JVS(32315)*UV(3275)+JVS(32318)*UV(4501)+JVS(32323)*UV(5079)+JVS(32327)*UV(5250)+JVS(32328)*UV(5252)& - &+JVS(32329)*UV(5253)+JVS(32330)*UV(5255)+JVS(32331)*UV(5256) - JUV(5080) = JVS(32332)*UV(790)+JVS(32333)*UV(2475)+JVS(32334)*UV(2777)+JVS(32335)*UV(3250)+JVS(32336)*UV(3495)& - &+JVS(32338)*UV(3514)+JVS(32340)*UV(3611)+JVS(32342)*UV(4564)+JVS(32347)*UV(5016)+JVS(32351)*UV(5080)& - &+JVS(32358)*UV(5197)+JVS(32363)*UV(5225)+JVS(32365)*UV(5250) - JUV(5081) = JVS(32371)*UV(3689)+JVS(32372)*UV(5081)+JVS(32374)*UV(5250)+JVS(32375)*UV(5252)+JVS(32376)*UV(5255)& - &+JVS(32377)*UV(5256) - JUV(5082) = JVS(32378)*UV(1688)+JVS(32379)*UV(2264)+JVS(32380)*UV(5082)+JVS(32381)*UV(5238)+JVS(32382)*UV(5250)& - &+JVS(32383)*UV(5252)+JVS(32384)*UV(5255)+JVS(32385)*UV(5256) - JUV(5083) = JVS(32386)*UV(310)+JVS(32387)*UV(740)+JVS(32388)*UV(1135)+JVS(32389)*UV(1585)+JVS(32390)*UV(2231)& - &+JVS(32391)*UV(2352)+JVS(32392)*UV(2362)+JVS(32393)*UV(2958)+JVS(32394)*UV(3962)+JVS(32398)*UV(5083)& - &+JVS(32399)*UV(5250)+JVS(32403)*UV(5256)+JVS(32404)*UV(5258) - JUV(5084) = JVS(32405)*UV(993)+JVS(32406)*UV(1394)+JVS(32407)*UV(4842)+JVS(32408)*UV(5017)+JVS(32411)*UV(5084)& - &+JVS(32413)*UV(5250)+JVS(32414)*UV(5252)+JVS(32416)*UV(5255)+JVS(32417)*UV(5256) - JUV(5085) = JVS(32419)*UV(537)+JVS(32420)*UV(553)+JVS(32421)*UV(662)+JVS(32422)*UV(793)+JVS(32423)*UV(880)+JVS(32424)& - &*UV(1731)+JVS(32426)*UV(1996)+JVS(32427)*UV(2007)+JVS(32428)*UV(2017)+JVS(32429)*UV(2561)+JVS(32430)& - &*UV(2708)+JVS(32431)*UV(2750)+JVS(32440)*UV(5084)+JVS(32441)*UV(5085)+JVS(32442)*UV(5095)+JVS(32445)& - &*UV(5250)+JVS(32449)*UV(5256)+JVS(32450)*UV(5258) - JUV(5086) = JVS(32451)*UV(527)+JVS(32452)*UV(714)+JVS(32453)*UV(799)+JVS(32454)*UV(1428)+JVS(32455)*UV(1528)& - &+JVS(32456)*UV(1630)+JVS(32457)*UV(1631)+JVS(32458)*UV(1811)+JVS(32459)*UV(1812)+JVS(32460)*UV(1823)& - &+JVS(32462)*UV(2386)+JVS(32463)*UV(2532)+JVS(32464)*UV(2636)+JVS(32465)*UV(2661)+JVS(32466)*UV(3223)& - &+JVS(32467)*UV(3408)+JVS(32468)*UV(3750)+JVS(32475)*UV(4900)+JVS(32482)*UV(5086)+JVS(32486)*UV(5250)& - &+JVS(32490)*UV(5256) - JUV(5087) = JVS(32492)*UV(1853)+JVS(32493)*UV(1872)+JVS(32494)*UV(2421)+JVS(32495)*UV(2433)+JVS(32496)*UV(2525)& - &+JVS(32497)*UV(2805)+JVS(32498)*UV(3044)+JVS(32499)*UV(3277)+JVS(32502)*UV(4640)+JVS(32507)*UV(5087)& - &+JVS(32511)*UV(5202)+JVS(32514)*UV(5250)+JVS(32518)*UV(5256) - JUV(5088) = JVS(32520)*UV(1196)+JVS(32521)*UV(2496)+JVS(32522)*UV(3946)+JVS(32524)*UV(5088)+JVS(32526)*UV(5250)& - &+JVS(32527)*UV(5252)+JVS(32528)*UV(5253)+JVS(32529)*UV(5255)+JVS(32530)*UV(5256) - JUV(5089) = JVS(32531)*UV(756)+JVS(32532)*UV(1600)+JVS(32533)*UV(3258)+JVS(32534)*UV(3332)+JVS(32535)*UV(3624)& - &+JVS(32536)*UV(3818)+JVS(32537)*UV(4004)+JVS(32541)*UV(5089)+JVS(32542)*UV(5250)+JVS(32546)*UV(5256)& - &+JVS(32547)*UV(5258) - JUV(5090) = JVS(32548)*UV(1547)+JVS(32549)*UV(3311)+JVS(32550)*UV(4313)+JVS(32553)*UV(5090)+JVS(32555)*UV(5250)& - &+JVS(32556)*UV(5252)+JVS(32557)*UV(5253)+JVS(32558)*UV(5255)+JVS(32559)*UV(5256) - JUV(5091) = JVS(32560)*UV(194)+JVS(32561)*UV(3621)+JVS(32564)*UV(5091)+JVS(32567)*UV(5250)+JVS(32568)*UV(5252)& - &+JVS(32569)*UV(5255)+JVS(32570)*UV(5256) - JUV(5092) = JVS(32572)*UV(4988)+JVS(32573)*UV(5092)+JVS(32575)*UV(5251)+JVS(32576)*UV(5252)+JVS(32577)*UV(5253)& - &+JVS(32578)*UV(5254)+JVS(32580)*UV(5258) - JUV(5093) = JVS(32581)*UV(841)+JVS(32582)*UV(1054)+JVS(32583)*UV(1172)+JVS(32584)*UV(4111)+JVS(32586)*UV(4774)& - &+JVS(32587)*UV(5093)+JVS(32590)*UV(5250)+JVS(32594)*UV(5258) - JUV(5094) = JVS(32595)*UV(1682)+JVS(32596)*UV(1857)+JVS(32597)*UV(2477)+JVS(32598)*UV(3462)+JVS(32599)*UV(3929)& - &+JVS(32600)*UV(3993)+JVS(32602)*UV(4783)+JVS(32606)*UV(5001)+JVS(32611)*UV(5094)+JVS(32620)*UV(5250) - JUV(5095) = JVS(32626)*UV(625)+JVS(32627)*UV(728)+JVS(32628)*UV(1237)+JVS(32630)*UV(2155)+JVS(32632)*UV(2879)& - &+JVS(32633)*UV(4197)+JVS(32640)*UV(5095)+JVS(32642)*UV(5250)+JVS(32646)*UV(5256)+JVS(32647)*UV(5258) - JUV(5096) = JVS(32648)*UV(850)+JVS(32649)*UV(1778)+JVS(32650)*UV(4521)+JVS(32651)*UV(5096)+JVS(32653)*UV(5190)& - &+JVS(32654)*UV(5250)+JVS(32655)*UV(5252)+JVS(32657)*UV(5255)+JVS(32658)*UV(5256) - JUV(5097) = JVS(32659)*UV(230)+JVS(32660)*UV(988)+JVS(32661)*UV(3298)+JVS(32662)*UV(3471)+JVS(32664)*UV(3868)& - &+JVS(32665)*UV(3879)+JVS(32666)*UV(4642)+JVS(32672)*UV(5097)+JVS(32675)*UV(5250)+JVS(32676)*UV(5252)& - &+JVS(32678)*UV(5255)+JVS(32679)*UV(5256) - JUV(5098) = JVS(32680)*UV(477)+JVS(32681)*UV(2397)+JVS(32682)*UV(2715)+JVS(32683)*UV(3031)+JVS(32684)*UV(3384)& - &+JVS(32685)*UV(3556)+JVS(32686)*UV(3726)+JVS(32687)*UV(3780)+JVS(32697)*UV(5026)+JVS(32704)*UV(5098)& - &+JVS(32706)*UV(5117)+JVS(32709)*UV(5178)+JVS(32711)*UV(5250)+JVS(32712)*UV(5252)+JVS(32714)*UV(5255)& - &+JVS(32715)*UV(5256) - JUV(5099) = JVS(32717)*UV(1251)+JVS(32718)*UV(1736)+JVS(32721)*UV(2587)+JVS(32726)*UV(5099)+JVS(32727)*UV(5250)& - &+JVS(32728)*UV(5252)+JVS(32729)*UV(5253)+JVS(32730)*UV(5255)+JVS(32731)*UV(5256)+JVS(32732)*UV(5257) - JUV(5100) = JVS(32734)*UV(170)+JVS(32736)*UV(2793)+JVS(32737)*UV(3433)+JVS(32738)*UV(3476)+JVS(32739)*UV(3486)& - &+JVS(32741)*UV(4325)+JVS(32756)*UV(5100)+JVS(32761)*UV(5210)+JVS(32762)*UV(5250)+JVS(32763)*UV(5252)& - &+JVS(32764)*UV(5253)+JVS(32765)*UV(5255)+JVS(32766)*UV(5256) - JUV(5101) = JVS(32768)*UV(547)+JVS(32769)*UV(630)+JVS(32770)*UV(1380)+JVS(32771)*UV(1826)+JVS(32772)*UV(2675)& - &+JVS(32775)*UV(3892)+JVS(32781)*UV(5057)+JVS(32786)*UV(5101)+JVS(32793)*UV(5250)+JVS(32794)*UV(5252)& - &+JVS(32795)*UV(5253)+JVS(32796)*UV(5255)+JVS(32797)*UV(5256) - JUV(5102) = JVS(32798)*UV(2479)+JVS(32799)*UV(3133)+JVS(32802)*UV(4084)+JVS(32806)*UV(5102)+JVS(32811)*UV(5251)& - &+JVS(32812)*UV(5252)+JVS(32813)*UV(5253)+JVS(32814)*UV(5254) - JUV(5103) = JVS(32818)*UV(1857)+JVS(32819)*UV(2287)+JVS(32820)*UV(2632)+JVS(32821)*UV(3451)+JVS(32822)*UV(3802)& - &+JVS(32825)*UV(5103)+JVS(32826)*UV(5250)+JVS(32831)*UV(5258) - JUV(5104) = JVS(32832)*UV(883)+JVS(32833)*UV(1986)+JVS(32834)*UV(2304)+JVS(32836)*UV(2719)+JVS(32837)*UV(3420)& - &+JVS(32838)*UV(3425)+JVS(32839)*UV(3497)+JVS(32849)*UV(5104)+JVS(32852)*UV(5250)+JVS(32853)*UV(5252)& - &+JVS(32855)*UV(5255)+JVS(32856)*UV(5256) - JUV(5105) = JVS(32859)*UV(2584)+JVS(32860)*UV(2953)+JVS(32861)*UV(4392)+JVS(32867)*UV(5105)+JVS(32873)*UV(5250)& - &+JVS(32877)*UV(5256) - JUV(5106) = JVS(32879)*UV(7)+JVS(32880)*UV(1111)+JVS(32881)*UV(1466)+JVS(32882)*UV(1790)+JVS(32883)*UV(2026)& - &+JVS(32884)*UV(2472)+JVS(32885)*UV(2612)+JVS(32886)*UV(2927)+JVS(32887)*UV(3057)+JVS(32888)*UV(3210)& - &+JVS(32890)*UV(3352)+JVS(32891)*UV(3353)+JVS(32894)*UV(3787)+JVS(32896)*UV(4093)+JVS(32897)*UV(4227)& - &+JVS(32902)*UV(4736)+JVS(32904)*UV(4744)+JVS(32905)*UV(4815)+JVS(32908)*UV(4931)+JVS(32912)*UV(5068)& - &+JVS(32913)*UV(5106)+JVS(32915)*UV(5203)+JVS(32917)*UV(5250)+JVS(32919)*UV(5252)+JVS(32920)*UV(5253)& - &+JVS(32922)*UV(5255)+JVS(32923)*UV(5256) - JUV(5107) = JVS(32925)*UV(342)+JVS(32926)*UV(5107)+JVS(32927)*UV(5238)+JVS(32928)*UV(5250)+JVS(32929)*UV(5252)& - &+JVS(32930)*UV(5255)+JVS(32931)*UV(5256) - JUV(5108) = JVS(32932)*UV(161)+JVS(32937)*UV(5108)+JVS(32940)*UV(5252)+JVS(32941)*UV(5255)+JVS(32942)*UV(5256) - JUV(5109) = JVS(32943)*UV(1709)+JVS(32944)*UV(2422)+JVS(32945)*UV(5109)+JVS(32946)*UV(5238)+JVS(32947)*UV(5250)& - &+JVS(32948)*UV(5252)+JVS(32949)*UV(5255)+JVS(32950)*UV(5256) - JUV(5110) = JVS(32951)*UV(1566)+JVS(32952)*UV(2203)+JVS(32953)*UV(2428)+JVS(32954)*UV(2547)+JVS(32955)*UV(2618)& - &+JVS(32956)*UV(2723)+JVS(32957)*UV(3346)+JVS(32958)*UV(3616)+JVS(32959)*UV(3756)+JVS(32962)*UV(4446)& - &+JVS(32972)*UV(5110)+JVS(32977)*UV(5250) - JUV(5111) = JVS(32982)*UV(672)+JVS(32983)*UV(886)+JVS(32985)*UV(2600)+JVS(32987)*UV(4493)+JVS(32991)*UV(5086)& - &+JVS(32992)*UV(5111)+JVS(32997)*UV(5250)+JVS(32998)*UV(5252)+JVS(32999)*UV(5253)+JVS(33000)*UV(5255)& - &+JVS(33001)*UV(5256) - JUV(5112) = JVS(33003)*UV(270)+JVS(33004)*UV(3110)+JVS(33006)*UV(5112)+JVS(33007)*UV(5238)+JVS(33008)*UV(5250)& - &+JVS(33009)*UV(5252)+JVS(33010)*UV(5255)+JVS(33011)*UV(5256) - JUV(5113) = JVS(33012)*UV(1561)+JVS(33013)*UV(1691)+JVS(33014)*UV(1887)+JVS(33015)*UV(3612)+JVS(33021)*UV(5113)& - &+JVS(33024)*UV(5250) - JUV(5114) = JVS(33030)*UV(1739)+JVS(33031)*UV(2359)+JVS(33033)*UV(5114)+JVS(33037)*UV(5252)+JVS(33039)*UV(5255)& - &+JVS(33040)*UV(5256) - JUV(5115) = JVS(33042)*UV(1755)+JVS(33044)*UV(2835)+JVS(33045)*UV(3046)+JVS(33047)*UV(3961)+JVS(33051)*UV(5115)& - &+JVS(33055)*UV(5250)+JVS(33059)*UV(5256) - JUV(5116) = JVS(33060)*UV(449)+JVS(33061)*UV(1291)+JVS(33062)*UV(1577)+JVS(33063)*UV(1842)+JVS(33064)*UV(4665)& - &+JVS(33065)*UV(4800)+JVS(33068)*UV(5063)+JVS(33069)*UV(5116)+JVS(33072)*UV(5250)+JVS(33073)*UV(5252)& - &+JVS(33075)*UV(5255)+JVS(33076)*UV(5256) - JUV(5117) = JVS(33077)*UV(805)+JVS(33078)*UV(2883)+JVS(33079)*UV(2910)+JVS(33080)*UV(3031)+JVS(33085)*UV(5026)& - &+JVS(33091)*UV(5117)+JVS(33095)*UV(5250)+JVS(33096)*UV(5252)+JVS(33097)*UV(5253)+JVS(33098)*UV(5255)& - &+JVS(33099)*UV(5256) - JUV(5118) = JVS(33100)*UV(607)+JVS(33101)*UV(4113)+JVS(33102)*UV(5118)+JVS(33106)*UV(5250)+JVS(33107)*UV(5252)& - &+JVS(33108)*UV(5255)+JVS(33109)*UV(5256) - JUV(5119) = JVS(33110)*UV(166)+JVS(33114)*UV(5119)+JVS(33117)*UV(5252)+JVS(33118)*UV(5255)+JVS(33119)*UV(5256) - JUV(5120) = JVS(33120)*UV(479)+JVS(33121)*UV(1090)+JVS(33122)*UV(3822)+JVS(33123)*UV(4934)+JVS(33124)*UV(4975)& - &+JVS(33126)*UV(5120)+JVS(33128)*UV(5250)+JVS(33129)*UV(5252)+JVS(33131)*UV(5255)+JVS(33132)*UV(5256) - JUV(5121) = JVS(33133)*UV(343)+JVS(33134)*UV(1158)+JVS(33135)*UV(1686)+JVS(33136)*UV(1693)+JVS(33137)*UV(1899)& - &+JVS(33138)*UV(4524)+JVS(33141)*UV(4949)+JVS(33142)*UV(5071)+JVS(33146)*UV(5121)+JVS(33148)*UV(5200)& - &+JVS(33152)*UV(5250)+JVS(33153)*UV(5252)+JVS(33155)*UV(5255)+JVS(33156)*UV(5256) - JUV(5122) = JVS(33157)*UV(243)+JVS(33158)*UV(3516)+JVS(33163)*UV(5122)+JVS(33165)*UV(5250)+JVS(33167)*UV(5252)& - &+JVS(33170)*UV(5255)+JVS(33171)*UV(5256) - JUV(5123) = JVS(33173)*UV(720)+JVS(33174)*UV(755)+JVS(33175)*UV(1583)+JVS(33176)*UV(1584)+JVS(33177)*UV(1588)& - &+JVS(33178)*UV(1609)+JVS(33180)*UV(1968)+JVS(33181)*UV(1988)+JVS(33182)*UV(2234)+JVS(33183)*UV(2501)& - &+JVS(33184)*UV(2857)+JVS(33185)*UV(3060)+JVS(33186)*UV(3206)+JVS(33187)*UV(3292)+JVS(33188)*UV(3469)& - &+JVS(33189)*UV(3824)+JVS(33190)*UV(3826)+JVS(33191)*UV(4004)+JVS(33192)*UV(4177)+JVS(33201)*UV(4937)& - &+JVS(33202)*UV(4950)+JVS(33203)*UV(5123)+JVS(33204)*UV(5250)+JVS(33208)*UV(5256)+JVS(33209)*UV(5258) - JUV(5124) = JVS(33210)*UV(1959)+JVS(33211)*UV(3607)+JVS(33212)*UV(3653)+JVS(33213)*UV(3689)+JVS(33216)*UV(5124)& - &+JVS(33219)*UV(5194)+JVS(33220)*UV(5230)+JVS(33221)*UV(5250)+JVS(33224)*UV(5256)+JVS(33225)*UV(5258) - JUV(5125) = JVS(33226)*UV(722)+JVS(33227)*UV(803)+JVS(33228)*UV(862)+JVS(33229)*UV(1500)+JVS(33230)*UV(1707)& - &+JVS(33231)*UV(1737)+JVS(33232)*UV(1879)+JVS(33233)*UV(2052)+JVS(33234)*UV(2104)+JVS(33235)*UV(2148)& - &+JVS(33236)*UV(2163)+JVS(33237)*UV(2474)+JVS(33238)*UV(2537)+JVS(33239)*UV(2558)+JVS(33240)*UV(2936)& - &+JVS(33241)*UV(3073)+JVS(33242)*UV(3151)+JVS(33245)*UV(3426)+JVS(33246)*UV(3427)+JVS(33247)*UV(3463)& - &+JVS(33248)*UV(3467)+JVS(33249)*UV(3498)+JVS(33251)*UV(3673)+JVS(33256)*UV(4094)+JVS(33258)*UV(4223)& - &+JVS(33259)*UV(4233)+JVS(33273)*UV(4620)+JVS(33277)*UV(4717)+JVS(33279)*UV(4775)+JVS(33283)*UV(4918)& - &+JVS(33289)*UV(5125)+JVS(33292)*UV(5230)+JVS(33294)*UV(5250)+JVS(33296)*UV(5252)+JVS(33297)*UV(5253)& - &+JVS(33299)*UV(5255)+JVS(33300)*UV(5256) - JUV(5126) = JVS(33302)*UV(1560)+JVS(33303)*UV(1598)+JVS(33304)*UV(1640)+JVS(33305)*UV(1760)+JVS(33306)*UV(1873)& - &+JVS(33307)*UV(2640)+JVS(33308)*UV(2950)+JVS(33309)*UV(3238)+JVS(33310)*UV(3812)+JVS(33311)*UV(3826)& - &+JVS(33313)*UV(4177)+JVS(33317)*UV(5126)+JVS(33318)*UV(5250)+JVS(33322)*UV(5256)+JVS(33323)*UV(5258) - JUV(5127) = JVS(33324)*UV(4248)+JVS(33326)*UV(4907)+JVS(33327)*UV(5127)+JVS(33332)*UV(5250)+JVS(33333)*UV(5252)& - &+JVS(33334)*UV(5255)+JVS(33335)*UV(5256) - JUV(5128) = JVS(33337)*UV(3448)+JVS(33338)*UV(3629)+JVS(33339)*UV(3642)+JVS(33340)*UV(4330)+JVS(33345)*UV(5128)& - &+JVS(33348)*UV(5226)+JVS(33349)*UV(5250)+JVS(33350)*UV(5252)+JVS(33351)*UV(5253)+JVS(33352)*UV(5255)& - &+JVS(33353)*UV(5256) - JUV(5129) = JVS(33355)*UV(298)+JVS(33356)*UV(734)+JVS(33357)*UV(1380)+JVS(33358)*UV(1582)+JVS(33359)*UV(2118)& - &+JVS(33360)*UV(3207)+JVS(33361)*UV(3299)+JVS(33363)*UV(3892)+JVS(33364)*UV(4512)+JVS(33372)*UV(5057)& - &+JVS(33377)*UV(5101)+JVS(33378)*UV(5129)+JVS(33385)*UV(5250)+JVS(33386)*UV(5252)+JVS(33388)*UV(5255)& - &+JVS(33389)*UV(5256) - JUV(5130) = JVS(33391)*UV(1411)+JVS(33392)*UV(1814)+JVS(33393)*UV(2226)+JVS(33395)*UV(2856)+JVS(33396)*UV(3373)& - &+JVS(33398)*UV(3957)+JVS(33406)*UV(5130)+JVS(33411)*UV(5250)+JVS(33412)*UV(5252)+JVS(33414)*UV(5255)& - &+JVS(33415)*UV(5256) - JUV(5131) = JVS(33417)*UV(703)+JVS(33418)*UV(726)+JVS(33419)*UV(1372)+JVS(33421)*UV(1479)+JVS(33422)*UV(1843)& - &+JVS(33424)*UV(3011)+JVS(33429)*UV(5131)+JVS(33432)*UV(5250)+JVS(33434)*UV(5252)+JVS(33435)*UV(5253)& - &+JVS(33437)*UV(5255)+JVS(33438)*UV(5256) - JUV(5132) = JVS(33441)*UV(5132)+JVS(33442)*UV(5166)+JVS(33443)*UV(5250)+JVS(33444)*UV(5252)+JVS(33445)*UV(5255)& - &+JVS(33446)*UV(5256) - JUV(5133) = JVS(33447)*UV(3502)+JVS(33448)*UV(3529)+JVS(33449)*UV(4406)+JVS(33451)*UV(5133)+JVS(33457)*UV(5250)& - &+JVS(33458)*UV(5252)+JVS(33459)*UV(5253)+JVS(33460)*UV(5255)+JVS(33461)*UV(5256) - JUV(5134) = JVS(33462)*UV(678)+JVS(33463)*UV(3428)+JVS(33464)*UV(3550)+JVS(33465)*UV(3734)+JVS(33470)*UV(5134)& - &+JVS(33476)*UV(5250)+JVS(33477)*UV(5252)+JVS(33479)*UV(5255)+JVS(33480)*UV(5256) - JUV(5135) = JVS(33481)*UV(1244)+JVS(33482)*UV(1774)+JVS(33483)*UV(4103)+JVS(33484)*UV(4430)+JVS(33485)*UV(4527)& - &+JVS(33487)*UV(5135)+JVS(33489)*UV(5250)+JVS(33490)*UV(5252)+JVS(33492)*UV(5255)+JVS(33493)*UV(5256) - JUV(5136) = JVS(33495)*UV(596)+JVS(33496)*UV(1545)+JVS(33497)*UV(1937)+JVS(33498)*UV(2190)+JVS(33499)*UV(2880)& - &+JVS(33502)*UV(4053)+JVS(33506)*UV(4872)+JVS(33512)*UV(5136)+JVS(33518)*UV(5250)+JVS(33519)*UV(5252)& - &+JVS(33520)*UV(5253)+JVS(33521)*UV(5255)+JVS(33522)*UV(5256) - JUV(5137) = JVS(33524)*UV(1100)+JVS(33525)*UV(2028)+JVS(33526)*UV(2691)+JVS(33527)*UV(2803)+JVS(33528)*UV(3086)& - &+JVS(33529)*UV(3124)+JVS(33530)*UV(3151)+JVS(33531)*UV(3183)+JVS(33532)*UV(3184)+JVS(33533)*UV(3185)& - &+JVS(33534)*UV(3493)+JVS(33535)*UV(3504)+JVS(33536)*UV(3522)+JVS(33537)*UV(3537)+JVS(33538)*UV(3544)& - &+JVS(33539)*UV(3548)+JVS(33562)*UV(5137)+JVS(33565)*UV(5143)+JVS(33568)*UV(5250)+JVS(33569)*UV(5252)& - &+JVS(33570)*UV(5253)+JVS(33571)*UV(5255)+JVS(33572)*UV(5256) - JUV(5138) = JVS(33574)*UV(426)+JVS(33575)*UV(5138)+JVS(33576)*UV(5238)+JVS(33577)*UV(5250)+JVS(33578)*UV(5252)& - &+JVS(33579)*UV(5255)+JVS(33580)*UV(5256) - JUV(5139) = JVS(33581)*UV(572)+JVS(33582)*UV(634)+JVS(33583)*UV(1768)+JVS(33584)*UV(1960)+JVS(33585)*UV(2021)& - &+JVS(33586)*UV(2238)+JVS(33587)*UV(2307)+JVS(33588)*UV(2336)+JVS(33589)*UV(2521)+JVS(33590)*UV(2563)& - &+JVS(33591)*UV(2582)+JVS(33592)*UV(2681)+JVS(33593)*UV(2691)+JVS(33594)*UV(2696)+JVS(33595)*UV(2728)& - &+JVS(33596)*UV(2732)+JVS(33597)*UV(2751)+JVS(33598)*UV(2774)+JVS(33599)*UV(2853)+JVS(33600)*UV(2897)& - &+JVS(33601)*UV(2960)+JVS(33602)*UV(2971)+JVS(33603)*UV(3005)+JVS(33604)*UV(3058)+JVS(33605)*UV(3073)& - &+JVS(33606)*UV(3200)+JVS(33608)*UV(3237)+JVS(33609)*UV(3249)+JVS(33610)*UV(3262)+JVS(33612)*UV(3283)& - &+JVS(33614)*UV(3296)+JVS(33615)*UV(3302)+JVS(33616)*UV(3403)+JVS(33617)*UV(3419)+JVS(33618)*UV(3441)& - &+JVS(33620)*UV(3457)+JVS(33621)*UV(3460)+JVS(33622)*UV(3565)+JVS(33623)*UV(3570)+JVS(33624)*UV(3581)& - &+JVS(33625)*UV(3588)+JVS(33626)*UV(3600)+JVS(33627)*UV(3610)+JVS(33633)*UV(3723)+JVS(33635)*UV(3802)& - &+JVS(33636)*UV(3812)+JVS(33638)*UV(3818)+JVS(33640)*UV(3826)+JVS(33644)*UV(3959)+JVS(33645)*UV(4062)& - &+JVS(33647)*UV(4168)+JVS(33648)*UV(4177)+JVS(33649)*UV(4178)+JVS(33654)*UV(4401)+JVS(33660)*UV(4533)& - &+JVS(33661)*UV(4534)+JVS(33664)*UV(4661)+JVS(33675)*UV(4728)+JVS(33684)*UV(4966)+JVS(33688)*UV(5053)& - &+JVS(33690)*UV(5070)+JVS(33691)*UV(5103)+JVS(33694)*UV(5126)+JVS(33698)*UV(5139)+JVS(33700)*UV(5141)& - &+JVS(33709)*UV(5250)+JVS(33710)*UV(5251)+JVS(33711)*UV(5252)+JVS(33712)*UV(5253)+JVS(33713)*UV(5254)& - &+JVS(33714)*UV(5255)+JVS(33715)*UV(5256)+JVS(33716)*UV(5258) - JUV(5140) = JVS(33717)*UV(1165)+JVS(33718)*UV(1521)+JVS(33719)*UV(1563)+JVS(33720)*UV(2509)+JVS(33723)*UV(3870)& - &+JVS(33729)*UV(5140)+JVS(33732)*UV(5250) - JUV(5141) = JVS(33737)*UV(589)+JVS(33738)*UV(623)+JVS(33739)*UV(1576)+JVS(33740)*UV(1665)+JVS(33741)*UV(2137)& - &+JVS(33742)*UV(2650)+JVS(33743)*UV(2948)+JVS(33744)*UV(3403)+JVS(33745)*UV(3702)+JVS(33746)*UV(3818)& - &+JVS(33752)*UV(5141)+JVS(33753)*UV(5250)+JVS(33757)*UV(5256)+JVS(33758)*UV(5258) - JUV(5142) = JVS(33759)*UV(51)+JVS(33760)*UV(751)+JVS(33761)*UV(987)+JVS(33762)*UV(1962)+JVS(33763)*UV(2013)+JVS(33764)& - &*UV(2188)+JVS(33766)*UV(2397)+JVS(33767)*UV(2490)+JVS(33769)*UV(2973)+JVS(33771)*UV(3297)+JVS(33772)& - &*UV(3368)+JVS(33773)*UV(3377)+JVS(33774)*UV(3429)+JVS(33775)*UV(3445)+JVS(33776)*UV(3510)+JVS(33777)& - &*UV(3609)+JVS(33778)*UV(3619)+JVS(33779)*UV(3723)+JVS(33780)*UV(3779)+JVS(33782)*UV(4062)+JVS(33785)& - &*UV(4175)+JVS(33799)*UV(4736)+JVS(33813)*UV(5140)+JVS(33815)*UV(5142)+JVS(33818)*UV(5178)+JVS(33819)& - &*UV(5183)+JVS(33821)*UV(5191)+JVS(33822)*UV(5238)+JVS(33823)*UV(5250)+JVS(33825)*UV(5252)+JVS(33828)& - &*UV(5255)+JVS(33829)*UV(5256) - JUV(5143) = JVS(33831)*UV(570)+JVS(33832)*UV(575)+JVS(33833)*UV(698)+JVS(33834)*UV(722)+JVS(33835)*UV(745)+JVS(33836)& - &*UV(778)+JVS(33837)*UV(1548)+JVS(33838)*UV(1571)+JVS(33839)*UV(1674)+JVS(33840)*UV(1707)+JVS(33841)& - &*UV(1725)+JVS(33842)*UV(1740)+JVS(33843)*UV(1744)+JVS(33844)*UV(1839)+JVS(33845)*UV(1880)+JVS(33846)& - &*UV(1908)+JVS(33847)*UV(2052)+JVS(33848)*UV(2059)+JVS(33849)*UV(2083)+JVS(33850)*UV(2106)+JVS(33851)& - &*UV(2121)+JVS(33852)*UV(2221)+JVS(33853)*UV(2400)+JVS(33854)*UV(2562)+JVS(33855)*UV(2589)+JVS(33856)& - &*UV(2594)+JVS(33857)*UV(2638)+JVS(33858)*UV(2642)+JVS(33859)*UV(2665)+JVS(33860)*UV(2826)+JVS(33861)& - &*UV(2842)+JVS(33862)*UV(3009)+JVS(33863)*UV(3884)+JVS(33878)*UV(4872)+JVS(33886)*UV(5143)+JVS(33888)& - &*UV(5161)+JVS(33893)*UV(5250)+JVS(33897)*UV(5256) - JUV(5144) = JVS(33898)*UV(221)+JVS(33899)*UV(3091)+JVS(33901)*UV(5144)+JVS(33902)*UV(5238)+JVS(33903)*UV(5250)& - &+JVS(33904)*UV(5252)+JVS(33905)*UV(5255)+JVS(33906)*UV(5256) - JUV(5145) = JVS(33907)*UV(631)+JVS(33908)*UV(1466)+JVS(33909)*UV(1789)+JVS(33910)*UV(2126)+JVS(33911)*UV(2212)& - &+JVS(33912)*UV(3222)+JVS(33913)*UV(3231)+JVS(33914)*UV(3288)+JVS(33915)*UV(3404)+JVS(33916)*UV(3540)& - &+JVS(33917)*UV(3651)+JVS(33918)*UV(3716)+JVS(33919)*UV(3779)+JVS(33920)*UV(3868)+JVS(33922)*UV(4086)& - &+JVS(33930)*UV(4736)+JVS(33942)*UV(5106)+JVS(33944)*UV(5145)+JVS(33949)*UV(5203)+JVS(33951)*UV(5238)& - &+JVS(33952)*UV(5250)+JVS(33954)*UV(5252)+JVS(33957)*UV(5255)+JVS(33958)*UV(5256) - JUV(5146) = JVS(33960)*UV(588)+JVS(33961)*UV(5146)+JVS(33962)*UV(5238)+JVS(33963)*UV(5250)+JVS(33964)*UV(5252)& - &+JVS(33965)*UV(5255)+JVS(33966)*UV(5256) - JUV(5147) = JVS(33967)*UV(1180)+JVS(33968)*UV(1635)+JVS(33969)*UV(1885)+JVS(33970)*UV(3109)+JVS(33971)*UV(3168)& - &+JVS(33972)*UV(3851)+JVS(33973)*UV(4515)+JVS(33977)*UV(5147)+JVS(33978)*UV(5238)+JVS(33979)*UV(5250)& - &+JVS(33980)*UV(5252)+JVS(33982)*UV(5255)+JVS(33983)*UV(5256) - JUV(5148) = JVS(33984)*UV(240)+JVS(33985)*UV(806)+JVS(33986)*UV(845)+JVS(33987)*UV(1994)+JVS(33988)*UV(3393)& - &+JVS(33989)*UV(3747)+JVS(33990)*UV(4110)+JVS(33992)*UV(4629)+JVS(33997)*UV(5148)+JVS(33999)*UV(5250)& - &+JVS(34000)*UV(5252)+JVS(34002)*UV(5255)+JVS(34003)*UV(5256) - JUV(5149) = JVS(34004)*UV(1545)+JVS(34005)*UV(1670)+JVS(34006)*UV(1719)+JVS(34007)*UV(3208)+JVS(34009)*UV(4872)& - &+JVS(34011)*UV(5051)+JVS(34015)*UV(5136)+JVS(34017)*UV(5149)+JVS(34023)*UV(5250)+JVS(34024)*UV(5252)& - &+JVS(34026)*UV(5255)+JVS(34027)*UV(5256) - JUV(5150) = JVS(34029)*UV(207)+JVS(34030)*UV(1042)+JVS(34031)*UV(2247)+JVS(34032)*UV(3777)+JVS(34033)*UV(4261)& - &+JVS(34034)*UV(4300)+JVS(34036)*UV(4848)+JVS(34039)*UV(5150)+JVS(34043)*UV(5250)+JVS(34044)*UV(5252)& - &+JVS(34046)*UV(5255)+JVS(34047)*UV(5256) - JUV(5151) = JVS(34048)*UV(282)+JVS(34049)*UV(983)+JVS(34050)*UV(3222)+JVS(34051)*UV(3298)+JVS(34052)*UV(3792)& - &+JVS(34054)*UV(3978)+JVS(34057)*UV(4979)+JVS(34061)*UV(5151)+JVS(34064)*UV(5250)+JVS(34065)*UV(5252)& - &+JVS(34067)*UV(5255)+JVS(34068)*UV(5256) - JUV(5152) = JVS(34069)*UV(595)+JVS(34070)*UV(637)+JVS(34071)*UV(777)+JVS(34072)*UV(1683)+JVS(34073)*UV(1917)& - &+JVS(34076)*UV(2150)+JVS(34077)*UV(2473)+JVS(34078)*UV(2500)+JVS(34079)*UV(2580)+JVS(34080)*UV(2711)& - &+JVS(34081)*UV(2870)+JVS(34082)*UV(3160)+JVS(34084)*UV(3526)+JVS(34085)*UV(3763)+JVS(34088)*UV(4352)& - &+JVS(34089)*UV(4530)+JVS(34103)*UV(5152)+JVS(34109)*UV(5180)+JVS(34112)*UV(5250)+JVS(34113)*UV(5252)& - &+JVS(34114)*UV(5253)+JVS(34115)*UV(5255)+JVS(34116)*UV(5256) - JUV(5153) = JVS(34118)*UV(591)+JVS(34121)*UV(5153)+JVS(34123)*UV(5250)+JVS(34126)*UV(5256)+JVS(34127)*UV(5258) - JUV(5154) = JVS(34128)*UV(2590)+JVS(34129)*UV(4615)+JVS(34130)*UV(5154)+JVS(34132)*UV(5250)+JVS(34133)*UV(5252)& - &+JVS(34134)*UV(5255) - JUV(5155) = JVS(34136)*UV(2243)+JVS(34137)*UV(3059)+JVS(34139)*UV(3326)+JVS(34144)*UV(5155)+JVS(34147)*UV(5221)& - &+JVS(34148)*UV(5250)+JVS(34149)*UV(5252)+JVS(34150)*UV(5253)+JVS(34151)*UV(5255)+JVS(34152)*UV(5256) - JUV(5156) = JVS(34154)*UV(763)+JVS(34155)*UV(3647)+JVS(34162)*UV(5156)+JVS(34170)*UV(5251)+JVS(34171)*UV(5252)& - &+JVS(34172)*UV(5253)+JVS(34173)*UV(5254) - JUV(5157) = JVS(34177)*UV(1704)+JVS(34178)*UV(1719)+JVS(34179)*UV(1841)+JVS(34180)*UV(1954)+JVS(34181)*UV(2269)& - &+JVS(34182)*UV(2630)+JVS(34183)*UV(3288)+JVS(34184)*UV(4581)+JVS(34185)*UV(4583)+JVS(34189)*UV(5157)& - &+JVS(34192)*UV(5250) - JUV(5158) = JVS(34198)*UV(8)+JVS(34199)*UV(610)+JVS(34200)*UV(833)+JVS(34201)*UV(1832)+JVS(34202)*UV(2000)+JVS(34203)& - &*UV(2201)+JVS(34205)*UV(2547)+JVS(34206)*UV(2618)+JVS(34207)*UV(2680)+JVS(34208)*UV(2930)+JVS(34209)& - &*UV(2968)+JVS(34210)*UV(3021)+JVS(34212)*UV(3616)+JVS(34225)*UV(4939)+JVS(34230)*UV(5110)+JVS(34238)& - &*UV(5158)+JVS(34245)*UV(5242)+JVS(34247)*UV(5250)+JVS(34248)*UV(5252)+JVS(34249)*UV(5253)+JVS(34250)& - &*UV(5255)+JVS(34251)*UV(5256) - JUV(5159) = JVS(34253)*UV(1311)+JVS(34254)*UV(1572)+JVS(34256)*UV(4340)+JVS(34259)*UV(5159)+JVS(34261)*UV(5250)& - &+JVS(34264)*UV(5256) - JUV(5160) = JVS(34266)*UV(541)+JVS(34267)*UV(573)+JVS(34268)*UV(632)+JVS(34269)*UV(644)+JVS(34270)*UV(741)+JVS(34271)& - &*UV(754)+JVS(34272)*UV(760)+JVS(34273)*UV(775)+JVS(34274)*UV(813)+JVS(34275)*UV(1078)+JVS(34276)*UV(1614)& - &+JVS(34277)*UV(1653)+JVS(34278)*UV(1654)+JVS(34279)*UV(1662)+JVS(34280)*UV(1724)+JVS(34281)*UV(1754)& - &+JVS(34283)*UV(1776)+JVS(34284)*UV(1788)+JVS(34285)*UV(1789)+JVS(34286)*UV(1801)+JVS(34287)*UV(1803)& - &+JVS(34288)*UV(1808)+JVS(34289)*UV(1815)+JVS(34290)*UV(1818)+JVS(34291)*UV(1852)+JVS(34292)*UV(1924)& - &+JVS(34293)*UV(1944)+JVS(34294)*UV(1975)+JVS(34295)*UV(1984)+JVS(34297)*UV(1989)+JVS(34298)*UV(2029)& - &+JVS(34299)*UV(2056)+JVS(34302)*UV(2126)+JVS(34304)*UV(2207)+JVS(34305)*UV(2211)+JVS(34306)*UV(2214)& - &+JVS(34307)*UV(2244)+JVS(34308)*UV(2293)+JVS(34309)*UV(2364)+JVS(34310)*UV(2374)+JVS(34311)*UV(2393)& - &+JVS(34312)*UV(2399)+JVS(34313)*UV(2415)+JVS(34315)*UV(2425)+JVS(34316)*UV(2427)+JVS(34317)*UV(2452)& - &+JVS(34318)*UV(2457)+JVS(34319)*UV(2460)+JVS(34320)*UV(2465)+JVS(34321)*UV(2473)+JVS(34322)*UV(2490)& - &+JVS(34323)*UV(2502)+JVS(34324)*UV(2522)+JVS(34325)*UV(2524)+JVS(34326)*UV(2532)+JVS(34327)*UV(2534)& - &+JVS(34328)*UV(2542)+JVS(34329)*UV(2610)+JVS(34330)*UV(2612)+JVS(34331)*UV(2619)+JVS(34332)*UV(2621)& - &+JVS(34333)*UV(2626)+JVS(34334)*UV(2629)+JVS(34335)*UV(2661)+JVS(34336)*UV(2687)+JVS(34337)*UV(2697)& - &+JVS(34338)*UV(2701)+JVS(34339)*UV(2742)+JVS(34340)*UV(2759)+JVS(34341)*UV(2792)+JVS(34342)*UV(2802)& - &+JVS(34343)*UV(2812)+JVS(34344)*UV(2831)+JVS(34345)*UV(2840)+JVS(34346)*UV(2864)+JVS(34347)*UV(2881)& - &+JVS(34348)*UV(2888)+JVS(34349)*UV(2892)+JVS(34350)*UV(2933)+JVS(34351)*UV(2942)+JVS(34352)*UV(2943)& - &+JVS(34353)*UV(2968)+JVS(34354)*UV(2992)+JVS(34355)*UV(2993)+JVS(34356)*UV(3013)+JVS(34357)*UV(3029)& - &+JVS(34358)*UV(3034)+JVS(34359)*UV(3068)+JVS(34360)*UV(3069)+JVS(34361)*UV(3076)+JVS(34362)*UV(3081)& - &+JVS(34363)*UV(3083)+JVS(34364)*UV(3104)+JVS(34365)*UV(3159)+JVS(34366)*UV(3173)+JVS(34369)*UV(3212)& - &+JVS(34370)*UV(3223)+JVS(34372)*UV(3260)+JVS(34373)*UV(3293)+JVS(34376)*UV(3422)+JVS(34377)*UV(3442)& - &+JVS(34379)*UV(3447)+JVS(34380)*UV(3533)+JVS(34382)*UV(3598)+JVS(34393)*UV(3970)+JVS(34399)*UV(4108)& - &+JVS(34415)*UV(4452)+JVS(34418)*UV(4474)+JVS(34422)*UV(4512)+JVS(34423)*UV(4544)+JVS(34462)*UV(5000)& - &+JVS(34483)*UV(5145)+JVS(34487)*UV(5160)+JVS(34503)*UV(5243)+JVS(34508)*UV(5250)+JVS(34509)*UV(5251)& - &+JVS(34510)*UV(5252)+JVS(34511)*UV(5253)+JVS(34512)*UV(5254)+JVS(34513)*UV(5255)+JVS(34514)*UV(5256)& - &+JVS(34516)*UV(5258) - JUV(5161) = JVS(34517)*UV(602)+JVS(34518)*UV(609)+JVS(34519)*UV(769)+JVS(34520)*UV(794)+JVS(34521)*UV(803)+JVS(34522)& - &*UV(945)+JVS(34523)*UV(1440)+JVS(34524)*UV(2400)+JVS(34525)*UV(3609)+JVS(34526)*UV(3662)+JVS(34527)& - &*UV(3906)+JVS(34533)*UV(4866)+JVS(34543)*UV(5161)+JVS(34546)*UV(5250)+JVS(34547)*UV(5252)+JVS(34549)& - &*UV(5255)+JVS(34550)*UV(5256) - JUV(5162) = JVS(34551)*UV(383)+JVS(34552)*UV(1987)+JVS(34553)*UV(2416)+JVS(34554)*UV(2638)+JVS(34555)*UV(2726)& - &+JVS(34556)*UV(2760)+JVS(34557)*UV(3218)+JVS(34558)*UV(3493)+JVS(34563)*UV(4942)+JVS(34568)*UV(5162)& - &+JVS(34570)*UV(5250)+JVS(34574)*UV(5256) - JUV(5163) = JVS(34575)*UV(1290)+JVS(34576)*UV(1708)+JVS(34577)*UV(2227)+JVS(34578)*UV(3148)+JVS(34579)*UV(4760)& - &+JVS(34582)*UV(5162)+JVS(34583)*UV(5163)+JVS(34584)*UV(5238)+JVS(34585)*UV(5250)+JVS(34586)*UV(5252)& - &+JVS(34588)*UV(5255)+JVS(34589)*UV(5256) - JUV(5164) = JVS(34590)*UV(1015)+JVS(34591)*UV(1650)+JVS(34593)*UV(2525)+JVS(34595)*UV(3683)+JVS(34596)*UV(3756)& - &+JVS(34602)*UV(5055)+JVS(34608)*UV(5164)+JVS(34614)*UV(5250)+JVS(34615)*UV(5252)+JVS(34616)*UV(5253)& - &+JVS(34617)*UV(5255)+JVS(34618)*UV(5256) - JUV(5165) = JVS(34620)*UV(345)+JVS(34621)*UV(834)+JVS(34622)*UV(1927)+JVS(34623)*UV(2227)+JVS(34624)*UV(2285)& - &+JVS(34625)*UV(2290)+JVS(34626)*UV(2371)+JVS(34627)*UV(2594)+JVS(34628)*UV(2841)+JVS(34629)*UV(2896)& - &+JVS(34630)*UV(2944)+JVS(34631)*UV(2988)+JVS(34632)*UV(3002)+JVS(34634)*UV(3544)+JVS(34635)*UV(3925)& - &+JVS(34636)*UV(4155)+JVS(34637)*UV(4283)+JVS(34638)*UV(4427)+JVS(34639)*UV(4527)+JVS(34644)*UV(4838)& - &+JVS(34645)*UV(4873)+JVS(34652)*UV(5163)+JVS(34653)*UV(5165)+JVS(34655)*UV(5250)+JVS(34656)*UV(5251)& - &+JVS(34657)*UV(5252)+JVS(34658)*UV(5253)+JVS(34659)*UV(5254)+JVS(34660)*UV(5255)+JVS(34661)*UV(5256)& - &+JVS(34662)*UV(5258) - JUV(5166) = JVS(34663)*UV(5166)+JVS(34664)*UV(5250)+JVS(34665)*UV(5256)+JVS(34666)*UV(5258) - JUV(5167) = JVS(34667)*UV(2570)+JVS(34668)*UV(2606)+JVS(34669)*UV(4256)+JVS(34676)*UV(5167)+JVS(34680)*UV(5250)& - &+JVS(34681)*UV(5252)+JVS(34682)*UV(5253)+JVS(34683)*UV(5255) - JUV(5168) = JVS(34686)*UV(3634)+JVS(34687)*UV(5118)+JVS(34689)*UV(5168)+JVS(34690)*UV(5204)+JVS(34692)*UV(5250)& - &+JVS(34693)*UV(5252)+JVS(34696)*UV(5258) - JUV(5169) = JVS(34697)*UV(635)+JVS(34698)*UV(639)+JVS(34699)*UV(748)+JVS(34700)*UV(1058)+JVS(34708)*UV(4843)& - &+JVS(34709)*UV(5169)+JVS(34710)*UV(5250)+JVS(34711)*UV(5251)+JVS(34712)*UV(5252)+JVS(34713)*UV(5253)& - &+JVS(34714)*UV(5254)+JVS(34716)*UV(5256)+JVS(34717)*UV(5258) - JUV(5170) = JVS(34718)*UV(2748)+JVS(34719)*UV(3630)+JVS(34720)*UV(4588)+JVS(34737)*UV(5170)+JVS(34746)*UV(5251)& - &+JVS(34747)*UV(5252)+JVS(34748)*UV(5253)+JVS(34749)*UV(5254) - JUV(5171) = JVS(34753)*UV(545)+JVS(34754)*UV(617)+JVS(34755)*UV(1201)+JVS(34756)*UV(1759)+JVS(34758)*UV(2622)& - &+JVS(34763)*UV(4902)+JVS(34767)*UV(5105)+JVS(34771)*UV(5171)+JVS(34781)*UV(5250)+JVS(34782)*UV(5252)& - &+JVS(34783)*UV(5253)+JVS(34784)*UV(5255)+JVS(34785)*UV(5256) - JUV(5172) = JVS(34787)*UV(131)+JVS(34788)*UV(3358)+JVS(34790)*UV(4294)+JVS(34805)*UV(5172)+JVS(34815)*UV(5250)& - &+JVS(34816)*UV(5252)+JVS(34817)*UV(5253)+JVS(34818)*UV(5255)+JVS(34819)*UV(5256) - JUV(5173) = JVS(34821)*UV(3552)+JVS(34822)*UV(4096)+JVS(34823)*UV(5013)+JVS(34826)*UV(5173)+JVS(34829)*UV(5250)& - &+JVS(34830)*UV(5252)+JVS(34831)*UV(5255)+JVS(34832)*UV(5256) - JUV(5174) = JVS(34834)*UV(3428)+JVS(34835)*UV(5174)+JVS(34837)*UV(5220)+JVS(34839)*UV(5250)+JVS(34840)*UV(5252)& - &+JVS(34841)*UV(5255)+JVS(34842)*UV(5256) - JUV(5175) = JVS(34843)*UV(540)+JVS(34844)*UV(1905)+JVS(34845)*UV(2508)+JVS(34848)*UV(5175)+JVS(34849)*UV(5250)& - &+JVS(34852)*UV(5256)+JVS(34853)*UV(5258) - JUV(5176) = JVS(34854)*UV(549)+JVS(34855)*UV(556)+JVS(34856)*UV(587)+JVS(34857)*UV(649)+JVS(34858)*UV(721)+JVS(34859)& - &*UV(1151)+JVS(34860)*UV(1835)+JVS(34864)*UV(2962)+JVS(34865)*UV(2997)+JVS(34871)*UV(4824)+JVS(34872)& - &*UV(5169)+JVS(34874)*UV(5176)+JVS(34875)*UV(5250)+JVS(34876)*UV(5251)+JVS(34877)*UV(5252)+JVS(34878)& - &*UV(5253)+JVS(34879)*UV(5254)+JVS(34881)*UV(5256)+JVS(34882)*UV(5258) - JUV(5177) = JVS(34883)*UV(268)+JVS(34884)*UV(543)+JVS(34885)*UV(650)+JVS(34886)*UV(948)+JVS(34887)*UV(1766)+JVS(34888)& - &*UV(1941)+JVS(34889)*UV(1942)+JVS(34890)*UV(2591)+JVS(34891)*UV(2772)+JVS(34892)*UV(2916)+JVS(34895)& - &*UV(4019)+JVS(34901)*UV(5177)+JVS(34902)*UV(5189)+JVS(34905)*UV(5250)+JVS(34909)*UV(5256)+JVS(34910)& - &*UV(5258) - JUV(5178) = JVS(34911)*UV(11)+JVS(34912)*UV(757)+JVS(34913)*UV(924)+JVS(34914)*UV(1694)+JVS(34915)*UV(1714)+JVS(34916)& - &*UV(1946)+JVS(34917)*UV(1962)+JVS(34918)*UV(2090)+JVS(34919)*UV(2208)+JVS(34920)*UV(2314)+JVS(34921)& - &*UV(2435)+JVS(34922)*UV(2620)+JVS(34923)*UV(2702)+JVS(34924)*UV(2839)+JVS(34925)*UV(2851)+JVS(34926)& - &*UV(2882)+JVS(34927)*UV(2964)+JVS(34928)*UV(2983)+JVS(34930)*UV(3312)+JVS(34931)*UV(3429)+JVS(34932)& - &*UV(3592)+JVS(34934)*UV(4114)+JVS(34937)*UV(4206)+JVS(34938)*UV(4320)+JVS(34939)*UV(4522)+JVS(34940)& - &*UV(4601)+JVS(34947)*UV(5012)+JVS(34950)*UV(5062)+JVS(34955)*UV(5178)+JVS(34957)*UV(5250)+JVS(34958)& - &*UV(5251)+JVS(34959)*UV(5252)+JVS(34960)*UV(5253)+JVS(34961)*UV(5254)+JVS(34962)*UV(5255)+JVS(34963)& - &*UV(5256)+JVS(34964)*UV(5258) - JUV(5179) = JVS(34965)*UV(704)+JVS(34966)*UV(739)+JVS(34967)*UV(760)+JVS(34968)*UV(1471)+JVS(34969)*UV(1618)& - &+JVS(34970)*UV(1925)+JVS(34971)*UV(2018)+JVS(34973)*UV(2886)+JVS(34975)*UV(3337)+JVS(34977)*UV(3497)& - &+JVS(34994)*UV(5179)+JVS(34997)*UV(5211)+JVS(35001)*UV(5250)+JVS(35003)*UV(5252)+JVS(35004)*UV(5253)& - &+JVS(35006)*UV(5255)+JVS(35007)*UV(5256) - JUV(5180) = JVS(35009)*UV(1808)+JVS(35010)*UV(1849)+JVS(35011)*UV(1969)+JVS(35012)*UV(2112)+JVS(35013)*UV(2162)& - &+JVS(35014)*UV(2531)+JVS(35015)*UV(2824)+JVS(35017)*UV(3351)+JVS(35020)*UV(3587)+JVS(35021)*UV(4171)& - &+JVS(35022)*UV(4516)+JVS(35024)*UV(4668)+JVS(35025)*UV(4677)+JVS(35028)*UV(4945)+JVS(35029)*UV(5013)& - &+JVS(35030)*UV(5050)+JVS(35035)*UV(5180)+JVS(35042)*UV(5250)+JVS(35043)*UV(5251)+JVS(35044)*UV(5252)& - &+JVS(35045)*UV(5253)+JVS(35046)*UV(5254)+JVS(35047)*UV(5255)+JVS(35048)*UV(5256)+JVS(35049)*UV(5258) - JUV(5181) = JVS(35050)*UV(235)+JVS(35051)*UV(5181)+JVS(35052)*UV(5238)+JVS(35053)*UV(5250)+JVS(35054)*UV(5252)& - &+JVS(35055)*UV(5255)+JVS(35056)*UV(5256) - JUV(5182) = JVS(35057)*UV(581)+JVS(35058)*UV(618)+JVS(35059)*UV(703)+JVS(35060)*UV(724)+JVS(35061)*UV(733)+JVS(35062)& - &*UV(786)+JVS(35063)*UV(1732)+JVS(35064)*UV(1814)+JVS(35065)*UV(1843)+JVS(35069)*UV(1913)+JVS(35070)& - &*UV(1986)+JVS(35071)*UV(2154)+JVS(35075)*UV(2629)+JVS(35077)*UV(2724)+JVS(35078)*UV(2938)+JVS(35079)& - &*UV(2941)+JVS(35080)*UV(3008)+JVS(35081)*UV(3013)+JVS(35082)*UV(3081)+JVS(35083)*UV(3293)+JVS(35084)& - &*UV(3373)+JVS(35085)*UV(3415)+JVS(35086)*UV(3420)+JVS(35087)*UV(3424)+JVS(35128)*UV(5182)+JVS(35137)& - &*UV(5250)+JVS(35143)*UV(5256) - JUV(5183) = JVS(35146)*UV(564)+JVS(35147)*UV(589)+JVS(35148)*UV(602)+JVS(35149)*UV(745)+JVS(35150)*UV(750)+JVS(35151)& - &*UV(761)+JVS(35152)*UV(987)+JVS(35153)*UV(1571)+JVS(35154)*UV(1574)+JVS(35155)*UV(1576)+JVS(35156)*UV(1583)& - &+JVS(35157)*UV(1584)+JVS(35158)*UV(1638)+JVS(35159)*UV(1653)+JVS(35160)*UV(1654)+JVS(35161)*UV(1690)& - &+JVS(35162)*UV(1693)+JVS(35163)*UV(1704)+JVS(35164)*UV(1711)+JVS(35165)*UV(1712)+JVS(35166)*UV(1832)& - &+JVS(35167)*UV(1839)+JVS(35168)*UV(1857)+JVS(35169)*UV(1928)+JVS(35170)*UV(1968)+JVS(35171)*UV(1982)& - &+JVS(35172)*UV(2028)+JVS(35173)*UV(2137)+JVS(35174)*UV(2171)+JVS(35175)*UV(2244)+JVS(35176)*UV(2263)& - &+JVS(35177)*UV(2307)+JVS(35178)*UV(2336)+JVS(35179)*UV(2358)+JVS(35180)*UV(2388)+JVS(35181)*UV(2484)& - &+JVS(35182)*UV(2485)+JVS(35183)*UV(2572)+JVS(35184)*UV(2665)+JVS(35185)*UV(2692)+JVS(35186)*UV(2774)& - &+JVS(35187)*UV(2893)+JVS(35188)*UV(2932)+JVS(35189)*UV(2960)+JVS(35190)*UV(2989)+JVS(35191)*UV(3003)& - &+JVS(35192)*UV(3031)+JVS(35194)*UV(3078)+JVS(35195)*UV(3086)+JVS(35196)*UV(3091)+JVS(35197)*UV(3110)& - &+JVS(35198)*UV(3117)+JVS(35199)*UV(3118)+JVS(35200)*UV(3148)+JVS(35201)*UV(3166)+JVS(35202)*UV(3186)& - &+JVS(35203)*UV(3200)+JVS(35204)*UV(3230)+JVS(35205)*UV(3237)+JVS(35206)*UV(3262)+JVS(35207)*UV(3271)& - &+JVS(35208)*UV(3288)+JVS(35209)*UV(3322)+JVS(35210)*UV(3345)+JVS(35211)*UV(3354)+JVS(35212)*UV(3356)& - &+JVS(35213)*UV(3357)+JVS(35214)*UV(3411)+JVS(35216)*UV(3434)+JVS(35217)*UV(3451)+JVS(35218)*UV(3453)& - &+JVS(35219)*UV(3458)+JVS(35222)*UV(3609)+JVS(35223)*UV(3656)+JVS(35224)*UV(3702)+JVS(35225)*UV(3732)& - &+JVS(35226)*UV(3777)+JVS(35228)*UV(3843)+JVS(35230)*UV(3906)+JVS(35231)*UV(3917)+JVS(35235)*UV(3959)& - &+JVS(35236)*UV(3968)+JVS(35237)*UV(4017)+JVS(35238)*UV(4018)+JVS(35239)*UV(4032)+JVS(35240)*UV(4047)& - &+JVS(35242)*UV(4080)+JVS(35243)*UV(4081)+JVS(35244)*UV(4102)+JVS(35245)*UV(4103)+JVS(35247)*UV(4122)& - &+JVS(35248)*UV(4164)+JVS(35249)*UV(4168)+JVS(35250)*UV(4175)+JVS(35251)*UV(4179)+JVS(35254)*UV(4199)& - &+JVS(35255)*UV(4272)+JVS(35260)*UV(4401)+JVS(35261)*UV(4403)+JVS(35262)*UV(4404)+JVS(35266)*UV(4441)& - &+JVS(35267)*UV(4445)+JVS(35272)*UV(4534)+JVS(35278)*UV(4618)+JVS(35292)*UV(4728)+JVS(35294)*UV(4736)& - &+JVS(35305)*UV(4865)+JVS(35322)*UV(5103)+JVS(35332)*UV(5139)+JVS(35333)*UV(5140)+JVS(35339)*UV(5157)& - &+JVS(35344)*UV(5183)+JVS(35347)*UV(5191)+JVS(35351)*UV(5250)+JVS(35353)*UV(5252)+JVS(35354)*UV(5253)& - &+JVS(35356)*UV(5255)+JVS(35357)*UV(5256) - JUV(5184) = JVS(35359)*UV(416)+JVS(35360)*UV(544)+JVS(35361)*UV(1679)+JVS(35362)*UV(1931)+JVS(35363)*UV(1961)& - &+JVS(35364)*UV(2116)+JVS(35365)*UV(2306)+JVS(35366)*UV(2437)+JVS(35367)*UV(2456)+JVS(35368)*UV(2571)& - &+JVS(35369)*UV(2745)+JVS(35370)*UV(2784)+JVS(35371)*UV(2786)+JVS(35373)*UV(2909)+JVS(35374)*UV(2965)& - &+JVS(35375)*UV(2972)+JVS(35376)*UV(3602)+JVS(35377)*UV(3861)+JVS(35383)*UV(4230)+JVS(35388)*UV(4995)& - &+JVS(35400)*UV(5184)+JVS(35412)*UV(5250)+JVS(35413)*UV(5252)+JVS(35415)*UV(5255)+JVS(35416)*UV(5256) - JUV(5185) = JVS(35419)*UV(376)+JVS(35420)*UV(1448)+JVS(35421)*UV(1596)+JVS(35422)*UV(2391)+JVS(35423)*UV(3382)& - &+JVS(35424)*UV(3917)+JVS(35425)*UV(4623)+JVS(35428)*UV(5115)+JVS(35431)*UV(5185)+JVS(35434)*UV(5250)& - &+JVS(35435)*UV(5252)+JVS(35437)*UV(5255)+JVS(35438)*UV(5256) - JUV(5186) = JVS(35439)*UV(1709)+JVS(35440)*UV(5186)+JVS(35441)*UV(5238)+JVS(35442)*UV(5250)+JVS(35443)*UV(5252)& - &+JVS(35444)*UV(5255)+JVS(35445)*UV(5256) - JUV(5187) = JVS(35446)*UV(2890)+JVS(35449)*UV(5187)+JVS(35450)*UV(5250)+JVS(35454)*UV(5256)+JVS(35455)*UV(5258) - JUV(5188) = JVS(35456)*UV(567)+JVS(35457)*UV(648)+JVS(35458)*UV(704)+JVS(35459)*UV(1603)+JVS(35460)*UV(1625)& - &+JVS(35461)*UV(1684)+JVS(35462)*UV(1748)+JVS(35463)*UV(1899)+JVS(35464)*UV(1926)+JVS(35465)*UV(1967)& - &+JVS(35466)*UV(2004)+JVS(35468)*UV(2138)+JVS(35469)*UV(2162)+JVS(35470)*UV(2421)+JVS(35471)*UV(2489)& - &+JVS(35472)*UV(2616)+JVS(35473)*UV(2790)+JVS(35474)*UV(2814)+JVS(35475)*UV(3064)+JVS(35476)*UV(3080)& - &+JVS(35477)*UV(3106)+JVS(35478)*UV(3160)+JVS(35479)*UV(3245)+JVS(35481)*UV(3275)+JVS(35482)*UV(3286)& - &+JVS(35483)*UV(3326)+JVS(35484)*UV(3330)+JVS(35485)*UV(3334)+JVS(35486)*UV(3443)+JVS(35487)*UV(3448)& - &+JVS(35488)*UV(3550)+JVS(35492)*UV(3635)+JVS(35493)*UV(3700)+JVS(35496)*UV(3993)+JVS(35498)*UV(4256)& - &+JVS(35499)*UV(4330)+JVS(35503)*UV(4551)+JVS(35512)*UV(4936)+JVS(35513)*UV(4945)+JVS(35515)*UV(5002)& - &+JVS(35517)*UV(5013)+JVS(35520)*UV(5025)+JVS(35532)*UV(5121)+JVS(35538)*UV(5155)+JVS(35543)*UV(5188)& - &+JVS(35549)*UV(5205)+JVS(35554)*UV(5221)+JVS(35559)*UV(5241)+JVS(35561)*UV(5250)+JVS(35562)*UV(5251)& - &+JVS(35563)*UV(5252)+JVS(35564)*UV(5253)+JVS(35565)*UV(5254)+JVS(35566)*UV(5255)+JVS(35567)*UV(5256)& - &+JVS(35568)*UV(5258) - JUV(5189) = JVS(35569)*UV(465)+JVS(35570)*UV(1126)+JVS(35571)*UV(2072)+JVS(35572)*UV(2073)+JVS(35573)*UV(2651)& - &+JVS(35574)*UV(4059)+JVS(35580)*UV(5189)+JVS(35582)*UV(5250)+JVS(35586)*UV(5256)+JVS(35587)*UV(5258) - JUV(5190) = JVS(35588)*UV(3689)+JVS(35590)*UV(5190)+JVS(35592)*UV(5250)+JVS(35595)*UV(5256)+JVS(35596)*UV(5258) - JUV(5191) = JVS(35597)*UV(641)+JVS(35598)*UV(749)+JVS(35599)*UV(761)+JVS(35600)*UV(1595)+JVS(35601)*UV(1601)& - &+JVS(35602)*UV(1686)+JVS(35603)*UV(1695)+JVS(35604)*UV(1711)+JVS(35605)*UV(1974)+JVS(35606)*UV(2012)& - &+JVS(35607)*UV(2066)+JVS(35608)*UV(2158)+JVS(35609)*UV(2292)+JVS(35610)*UV(2384)+JVS(35611)*UV(2537)& - &+JVS(35612)*UV(2572)+JVS(35613)*UV(2610)+JVS(35614)*UV(2650)+JVS(35615)*UV(2681)+JVS(35616)*UV(2698)& - &+JVS(35617)*UV(2720)+JVS(35618)*UV(2833)+JVS(35619)*UV(2857)+JVS(35620)*UV(2866)+JVS(35621)*UV(2901)& - &+JVS(35623)*UV(2964)+JVS(35624)*UV(3009)+JVS(35625)*UV(3035)+JVS(35629)*UV(3301)+JVS(35630)*UV(3302)& - &+JVS(35631)*UV(3377)+JVS(35633)*UV(3473)+JVS(35634)*UV(3504)+JVS(35635)*UV(3735)+JVS(35636)*UV(3779)& - &+JVS(35637)*UV(3904)+JVS(35638)*UV(3922)+JVS(35639)*UV(3934)+JVS(35640)*UV(3942)+JVS(35641)*UV(3956)& - &+JVS(35642)*UV(4081)+JVS(35646)*UV(4275)+JVS(35647)*UV(4332)+JVS(35652)*UV(4475)+JVS(35673)*UV(4941)& - &+JVS(35676)*UV(5051)+JVS(35678)*UV(5067)+JVS(35692)*UV(5191)+JVS(35695)*UV(5229)+JVS(35698)*UV(5250)& - &+JVS(35699)*UV(5251)+JVS(35700)*UV(5252)+JVS(35701)*UV(5253)+JVS(35702)*UV(5254)+JVS(35703)*UV(5255)& - &+JVS(35704)*UV(5256)+JVS(35705)*UV(5258) - JUV(5192) = JVS(35706)*UV(876)+JVS(35707)*UV(1708)+JVS(35708)*UV(2057)+JVS(35709)*UV(3875)+JVS(35711)*UV(4990)& - &+JVS(35712)*UV(5192)+JVS(35713)*UV(5238)+JVS(35714)*UV(5250)+JVS(35715)*UV(5252)+JVS(35717)*UV(5255)& - &+JVS(35718)*UV(5256) - JUV(5193) = JVS(35719)*UV(528)+JVS(35720)*UV(539)+JVS(35721)*UV(545)+JVS(35722)*UV(574)+JVS(35723)*UV(596)+JVS(35724)& - &*UV(600)+JVS(35725)*UV(610)+JVS(35726)*UV(615)+JVS(35727)*UV(637)+JVS(35728)*UV(674)+JVS(35729)*UV(710)& - &+JVS(35730)*UV(776)+JVS(35731)*UV(787)+JVS(35732)*UV(791)+JVS(35733)*UV(1011)+JVS(35734)*UV(1110)& - &+JVS(35735)*UV(1553)+JVS(35736)*UV(1592)+JVS(35737)*UV(1597)+JVS(35738)*UV(1638)+JVS(35739)*UV(1646)& - &+JVS(35740)*UV(1650)+JVS(35741)*UV(1659)+JVS(35742)*UV(1733)+JVS(35743)*UV(1737)+JVS(35744)*UV(1749)& - &+JVS(35745)*UV(1750)+JVS(35746)*UV(1759)+JVS(35747)*UV(1924)+JVS(35748)*UV(1937)+JVS(35749)*UV(1997)& - &+JVS(35751)*UV(2066)+JVS(35754)*UV(2158)+JVS(35755)*UV(2188)+JVS(35756)*UV(2201)+JVS(35759)*UV(2219)& - &+JVS(35760)*UV(2229)+JVS(35763)*UV(2346)+JVS(35765)*UV(2424)+JVS(35766)*UV(2479)+JVS(35768)*UV(2528)& - &+JVS(35769)*UV(2547)+JVS(35770)*UV(2558)+JVS(35771)*UV(2579)+JVS(35772)*UV(2618)+JVS(35773)*UV(2639)& - &+JVS(35774)*UV(2644)+JVS(35776)*UV(2676)+JVS(35777)*UV(2679)+JVS(35778)*UV(2692)+JVS(35779)*UV(2700)& - &+JVS(35780)*UV(2715)+JVS(35781)*UV(2730)+JVS(35782)*UV(2734)+JVS(35783)*UV(2745)+JVS(35786)*UV(2795)& - &+JVS(35787)*UV(2807)+JVS(35788)*UV(2811)+JVS(35789)*UV(2820)+JVS(35790)*UV(2826)+JVS(35791)*UV(2827)& - &+JVS(35792)*UV(2828)+JVS(35793)*UV(2831)+JVS(35794)*UV(2839)+JVS(35795)*UV(2849)+JVS(35796)*UV(2858)& - &+JVS(35797)*UV(2859)+JVS(35798)*UV(2873)+JVS(35799)*UV(2893)+JVS(35800)*UV(2905)+JVS(35801)*UV(2912)& - &+JVS(35803)*UV(2930)+JVS(35805)*UV(2945)+JVS(35806)*UV(2946)+JVS(35807)*UV(2948)+JVS(35808)*UV(2950)& - &+JVS(35810)*UV(3000)+JVS(35811)*UV(3003)+JVS(35812)*UV(3019)+JVS(35813)*UV(3063)+JVS(35814)*UV(3076)& - &+JVS(35815)*UV(3106)+JVS(35816)*UV(3159)+JVS(35820)*UV(3282)+JVS(35822)*UV(3333)+JVS(35824)*UV(3346)& - &+JVS(35825)*UV(3367)+JVS(35826)*UV(3383)+JVS(35827)*UV(3386)+JVS(35828)*UV(3393)+JVS(35829)*UV(3404)& - &+JVS(35831)*UV(3422)+JVS(35832)*UV(3429)+JVS(35834)*UV(3465)+JVS(35835)*UV(3466)+JVS(35836)*UV(3537)& - &+JVS(35838)*UV(3577)+JVS(35839)*UV(3585)+JVS(35840)*UV(3616)+JVS(35841)*UV(3654)+JVS(35842)*UV(3656)& - &+JVS(35844)*UV(3767)+JVS(35845)*UV(3842)+JVS(35848)*UV(3897)+JVS(35849)*UV(3910)+JVS(35853)*UV(3922)& - &+JVS(35854)*UV(3956)+JVS(35856)*UV(3970)+JVS(35859)*UV(4084)+JVS(35871)*UV(4223)+JVS(35874)*UV(4332)& - &+JVS(35883)*UV(4386)+JVS(35886)*UV(4405)+JVS(35888)*UV(4428)+JVS(35890)*UV(4474)+JVS(35891)*UV(4475)& - &+JVS(35900)*UV(4604)+JVS(35901)*UV(4606)+JVS(35927)*UV(4840)+JVS(35946)*UV(4924)+JVS(35948)*UV(4943)& - &+JVS(35955)*UV(5042)+JVS(35964)*UV(5087)+JVS(35981)*UV(5142)+JVS(35986)*UV(5162)+JVS(35995)*UV(5193)& - &+JVS(35996)*UV(5200)+JVS(36002)*UV(5230)+JVS(36004)*UV(5250)+JVS(36005)*UV(5251)+JVS(36006)*UV(5252)& - &+JVS(36007)*UV(5253)+JVS(36008)*UV(5254)+JVS(36009)*UV(5255)+JVS(36010)*UV(5256)+JVS(36011)*UV(5258) - JUV(5194) = JVS(36012)*UV(1102)+JVS(36013)*UV(1777)+JVS(36014)*UV(1909)+JVS(36015)*UV(1910)+JVS(36016)*UV(2272)& - &+JVS(36017)*UV(2431)+JVS(36018)*UV(2706)+JVS(36019)*UV(2771)+JVS(36020)*UV(2801)+JVS(36021)*UV(3496)& - &+JVS(36022)*UV(3607)+JVS(36025)*UV(4259)+JVS(36027)*UV(4373)+JVS(36030)*UV(4819)+JVS(36034)*UV(5153)& - &+JVS(36037)*UV(5194)+JVS(36039)*UV(5250)+JVS(36040)*UV(5251)+JVS(36041)*UV(5252)+JVS(36042)*UV(5253)& - &+JVS(36043)*UV(5254)+JVS(36044)*UV(5255)+JVS(36045)*UV(5256)+JVS(36046)*UV(5258) - JUV(5195) = JVS(36047)*UV(237)+JVS(36048)*UV(868)+JVS(36049)*UV(1733)+JVS(36050)*UV(1809)+JVS(36051)*UV(2374)& - &+JVS(36053)*UV(2665)+JVS(36054)*UV(3386)+JVS(36055)*UV(3430)+JVS(36056)*UV(3642)+JVS(36057)*UV(3682)& - &+JVS(36063)*UV(4973)+JVS(36071)*UV(5124)+JVS(36083)*UV(5184)+JVS(36090)*UV(5195)+JVS(36096)*UV(5237)& - &+JVS(36101)*UV(5250)+JVS(36103)*UV(5252)+JVS(36106)*UV(5255)+JVS(36107)*UV(5256) - JUV(5196) = JVS(36110)*UV(612)+JVS(36111)*UV(1424)+JVS(36112)*UV(2340)+JVS(36114)*UV(4849)+JVS(36116)*UV(5176)& - &+JVS(36117)*UV(5196)+JVS(36118)*UV(5250)+JVS(36120)*UV(5252)+JVS(36123)*UV(5255)+JVS(36124)*UV(5256) - JUV(5197) = JVS(36126)*UV(214)+JVS(36127)*UV(1201)+JVS(36128)*UV(2393)+JVS(36129)*UV(3346)+JVS(36130)*UV(3708)& - &+JVS(36132)*UV(4104)+JVS(36139)*UV(4938)+JVS(36156)*UV(5105)+JVS(36164)*UV(5171)+JVS(36171)*UV(5197)& - &+JVS(36177)*UV(5250)+JVS(36179)*UV(5252)+JVS(36182)*UV(5255)+JVS(36183)*UV(5256) - JUV(5198) = JVS(36185)*UV(604)+JVS(36186)*UV(1462)+JVS(36187)*UV(2002)+JVS(36188)*UV(2140)+JVS(36191)*UV(5029)& - &+JVS(36192)*UV(5198)+JVS(36193)*UV(5213)+JVS(36194)*UV(5250)+JVS(36196)*UV(5252)+JVS(36199)*UV(5255)& - &+JVS(36200)*UV(5256) - JUV(5199) = JVS(36202)*UV(2039)+JVS(36203)*UV(2388)+JVS(36204)*UV(2484)+JVS(36205)*UV(2622)+JVS(36206)*UV(2652)& - &+JVS(36207)*UV(2833)+JVS(36208)*UV(2970)+JVS(36209)*UV(2998)+JVS(36210)*UV(3595)+JVS(36211)*UV(3708)& - &+JVS(36212)*UV(3729)+JVS(36213)*UV(3965)+JVS(36215)*UV(4026)+JVS(36216)*UV(4325)+JVS(36218)*UV(4329)& - &+JVS(36219)*UV(4352)+JVS(36220)*UV(4445)+JVS(36221)*UV(4490)+JVS(36236)*UV(5080)+JVS(36254)*UV(5197)& - &+JVS(36256)*UV(5199)+JVS(36268)*UV(5250)+JVS(36270)*UV(5252)+JVS(36273)*UV(5255)+JVS(36274)*UV(5256) - JUV(5200) = JVS(36276)*UV(1673)+JVS(36277)*UV(2476)+JVS(36278)*UV(3155)+JVS(36279)*UV(3389)+JVS(36280)*UV(3689)& - &+JVS(36282)*UV(5042)+JVS(36287)*UV(5200)+JVS(36288)*UV(5227)+JVS(36290)*UV(5250)+JVS(36294)*UV(5256)& - &+JVS(36295)*UV(5258) - JUV(5201) = JVS(36296)*UV(668)+JVS(36297)*UV(1573)+JVS(36298)*UV(1580)+JVS(36299)*UV(3084)+JVS(36300)*UV(3085)& - &+JVS(36301)*UV(3093)+JVS(36302)*UV(3096)+JVS(36303)*UV(3097)+JVS(36304)*UV(3098)+JVS(36305)*UV(3101)& - &+JVS(36306)*UV(3105)+JVS(36307)*UV(3111)+JVS(36308)*UV(3113)+JVS(36309)*UV(3125)+JVS(36310)*UV(3129)& - &+JVS(36311)*UV(3130)+JVS(36312)*UV(3131)+JVS(36313)*UV(3134)+JVS(36314)*UV(3135)+JVS(36315)*UV(3136)& - &+JVS(36316)*UV(3138)+JVS(36317)*UV(3139)+JVS(36318)*UV(3140)+JVS(36319)*UV(3144)+JVS(36320)*UV(3145)& - &+JVS(36321)*UV(3149)+JVS(36322)*UV(3150)+JVS(36323)*UV(3153)+JVS(36324)*UV(3157)+JVS(36325)*UV(3158)& - &+JVS(36326)*UV(3161)+JVS(36327)*UV(3164)+JVS(36328)*UV(3165)+JVS(36329)*UV(3169)+JVS(36330)*UV(3170)& - &+JVS(36331)*UV(3172)+JVS(36332)*UV(3179)+JVS(36333)*UV(3180)+JVS(36334)*UV(3182)+JVS(36335)*UV(3192)& - &+JVS(36336)*UV(3193)+JVS(36337)*UV(3219)+JVS(36338)*UV(3244)+JVS(36339)*UV(3248)+JVS(36340)*UV(3263)& - &+JVS(36341)*UV(3329)+JVS(36342)*UV(3347)+JVS(36343)*UV(3362)+JVS(36344)*UV(3363)+JVS(36345)*UV(3370)& - &+JVS(36346)*UV(3371)+JVS(36347)*UV(3375)+JVS(36348)*UV(3381)+JVS(36349)*UV(3388)+JVS(36350)*UV(3402)& - &+JVS(36351)*UV(3417)+JVS(36352)*UV(3437)+JVS(36353)*UV(3454)+JVS(36354)*UV(3470)+JVS(36355)*UV(3471)& - &+JVS(36356)*UV(3472)+JVS(36357)*UV(3482)+JVS(36358)*UV(3483)+JVS(36359)*UV(3484)+JVS(36360)*UV(3488)& - &+JVS(36361)*UV(3494)+JVS(36362)*UV(3499)+JVS(36363)*UV(3506)+JVS(36364)*UV(3508)+JVS(36365)*UV(3510)& - &+JVS(36366)*UV(3512)+JVS(36367)*UV(3513)+JVS(36368)*UV(3526)+JVS(36369)*UV(3543)+JVS(36370)*UV(3545)& - &+JVS(36371)*UV(3546)+JVS(36372)*UV(3551)+JVS(36373)*UV(3560)+JVS(36374)*UV(3574)+JVS(36375)*UV(3596)& - &+JVS(36376)*UV(3633)+JVS(36377)*UV(3640)+JVS(36378)*UV(3643)+JVS(36379)*UV(3645)+JVS(36380)*UV(3649)& - &+JVS(36381)*UV(3654)+JVS(36382)*UV(3655)+JVS(36383)*UV(3657)+JVS(36384)*UV(3660)+JVS(36385)*UV(3662)& - &+JVS(36386)*UV(3684)+JVS(36387)*UV(3701)+JVS(36388)*UV(3748)+JVS(36389)*UV(3773)+JVS(36390)*UV(3775)& - &+JVS(36391)*UV(3792)+JVS(36392)*UV(3830)+JVS(36393)*UV(3831)+JVS(36394)*UV(3833)+JVS(36395)*UV(3834)& - &+JVS(36396)*UV(3849)+JVS(36397)*UV(3851)+JVS(36398)*UV(3856)+JVS(36399)*UV(3857)+JVS(36400)*UV(3861)& - &+JVS(36401)*UV(3862)+JVS(36402)*UV(3875)+JVS(36403)*UV(3877)+JVS(36404)*UV(3879)+JVS(36405)*UV(3892)& - &+JVS(36406)*UV(3896)+JVS(36407)*UV(3900)+JVS(36408)*UV(3911)+JVS(36410)*UV(3914)+JVS(36411)*UV(3915)& - &+JVS(36412)*UV(3923)+JVS(36413)*UV(3924)+JVS(36414)*UV(3935)+JVS(36415)*UV(3938)+JVS(36416)*UV(3946)& - &+JVS(36417)*UV(3947)+JVS(36418)*UV(3960)+JVS(36419)*UV(3972)+JVS(36420)*UV(3986)+JVS(36421)*UV(3991)& - &+JVS(36422)*UV(3995)+JVS(36423)*UV(3996)+JVS(36424)*UV(4010)+JVS(36425)*UV(4017)+JVS(36426)*UV(4018)& - &+JVS(36427)*UV(4027)+JVS(36428)*UV(4032)+JVS(36429)*UV(4048)+JVS(36430)*UV(4056)+JVS(36432)*UV(4080)& - &+JVS(36433)*UV(4083)+JVS(36434)*UV(4093)+JVS(36435)*UV(4094)+JVS(36437)*UV(4108)+JVS(36438)*UV(4110)& - &+JVS(36440)*UV(4114)+JVS(36443)*UV(4151)+JVS(36444)*UV(4155)+JVS(36445)*UV(4156)+JVS(36446)*UV(4160)& - &+JVS(36447)*UV(4174)+JVS(36448)*UV(4186)+JVS(36449)*UV(4224)+JVS(36450)*UV(4227)+JVS(36451)*UV(4231)& - &+JVS(36452)*UV(4233)+JVS(36453)*UV(4239)+JVS(36454)*UV(4261)+JVS(36455)*UV(4272)+JVS(36456)*UV(4278)& - &+JVS(36457)*UV(4279)+JVS(36458)*UV(4313)+JVS(36464)*UV(4362)+JVS(36465)*UV(4373)+JVS(36466)*UV(4396)& - &+JVS(36467)*UV(4397)+JVS(36481)*UV(4462)+JVS(36488)*UV(4493)+JVS(36492)*UV(4501)+JVS(36497)*UV(4530)& - &+JVS(36498)*UV(4537)+JVS(36499)*UV(4540)+JVS(36500)*UV(4547)+JVS(36501)*UV(4559)+JVS(36502)*UV(4569)& - &+JVS(36503)*UV(4576)+JVS(36512)*UV(4630)+JVS(36517)*UV(4651)+JVS(36527)*UV(4710)+JVS(36528)*UV(4717)& - &+JVS(36529)*UV(4721)+JVS(36530)*UV(4729)+JVS(36535)*UV(4737)+JVS(36537)*UV(4775)+JVS(36555)*UV(4815)& - &+JVS(36559)*UV(4834)+JVS(36561)*UV(4840)+JVS(36562)*UV(4842)+JVS(36563)*UV(4845)+JVS(36564)*UV(4851)& - &+JVS(36567)*UV(4872)+JVS(36568)*UV(4873)+JVS(36573)*UV(4882)+JVS(36578)*UV(4902)+JVS(36580)*UV(4914)& - &+JVS(36581)*UV(4918)+JVS(36587)*UV(4931)+JVS(36589)*UV(4933)+JVS(36591)*UV(4939)+JVS(36594)*UV(4961)& - &+JVS(36595)*UV(4964)+JVS(36600)*UV(4975)+JVS(36601)*UV(4976)+JVS(36602)*UV(4978)+JVS(36606)*UV(4996)& - &+JVS(36609)*UV(5002)+JVS(36610)*UV(5009)+JVS(36612)*UV(5012)+JVS(36613)*UV(5018)+JVS(36616)*UV(5023)& - &+JVS(36617)*UV(5024)+JVS(36618)*UV(5026)+JVS(36622)*UV(5042)+JVS(36626)*UV(5049)+JVS(36627)*UV(5050)& - &+JVS(36628)*UV(5055)+JVS(36630)*UV(5057)+JVS(36631)*UV(5058)+JVS(36632)*UV(5063)+JVS(36635)*UV(5066)& - &+JVS(36636)*UV(5067)+JVS(36637)*UV(5068)+JVS(36638)*UV(5069)+JVS(36639)*UV(5071)+JVS(36640)*UV(5072)& - &+JVS(36641)*UV(5076)+JVS(36646)*UV(5083)+JVS(36647)*UV(5085)+JVS(36648)*UV(5086)+JVS(36649)*UV(5087)& - &+JVS(36651)*UV(5089)+JVS(36655)*UV(5095)+JVS(36658)*UV(5105)+JVS(36663)*UV(5115)+JVS(36669)*UV(5123)& - &+JVS(36670)*UV(5126)+JVS(36675)*UV(5139)+JVS(36677)*UV(5141)+JVS(36678)*UV(5143)+JVS(36688)*UV(5159)& - &+JVS(36690)*UV(5162)+JVS(36693)*UV(5165)+JVS(36695)*UV(5169)+JVS(36697)*UV(5176)+JVS(36698)*UV(5177)& - &+JVS(36700)*UV(5180)+JVS(36702)*UV(5182)+JVS(36703)*UV(5184)+JVS(36706)*UV(5187)+JVS(36707)*UV(5189)& - &+JVS(36709)*UV(5191)+JVS(36711)*UV(5193)+JVS(36712)*UV(5194)+JVS(36715)*UV(5199)+JVS(36717)*UV(5201)& - &+JVS(36719)*UV(5203)+JVS(36721)*UV(5205)+JVS(36723)*UV(5207)+JVS(36725)*UV(5209)+JVS(36726)*UV(5210)& - &+JVS(36727)*UV(5211)+JVS(36728)*UV(5213)+JVS(36733)*UV(5220)+JVS(36734)*UV(5222)+JVS(36737)*UV(5226)& - &+JVS(36740)*UV(5230)+JVS(36741)*UV(5231)+JVS(36742)*UV(5233)+JVS(36743)*UV(5234)+JVS(36747)*UV(5240)& - &+JVS(36748)*UV(5242)+JVS(36752)*UV(5248)+JVS(36754)*UV(5250)+JVS(36757)*UV(5253)+JVS(36760)*UV(5256)& - &+JVS(36761)*UV(5257) - JUV(5202) = JVS(36763)*UV(330)+JVS(36764)*UV(1015)+JVS(36765)*UV(1655)+JVS(36766)*UV(1704)+JVS(36767)*UV(1705)& - &+JVS(36768)*UV(3083)+JVS(36769)*UV(3277)+JVS(36770)*UV(4391)+JVS(36778)*UV(5055)+JVS(36786)*UV(5164)& - &+JVS(36790)*UV(5200)+JVS(36791)*UV(5202)+JVS(36796)*UV(5250)+JVS(36798)*UV(5252)+JVS(36801)*UV(5255)& - &+JVS(36802)*UV(5256) - JUV(5203) = JVS(36804)*UV(666)+JVS(36805)*UV(1261)+JVS(36806)*UV(1587)+JVS(36807)*UV(1701)+JVS(36808)*UV(1715)& - &+JVS(36809)*UV(2036)+JVS(36810)*UV(2237)+JVS(36811)*UV(2301)+JVS(36812)*UV(2339)+JVS(36813)*UV(2743)& - &+JVS(36814)*UV(2747)+JVS(36815)*UV(2872)+JVS(36816)*UV(3051)+JVS(36817)*UV(3061)+JVS(36818)*UV(3210)& - &+JVS(36819)*UV(3252)+JVS(36820)*UV(3268)+JVS(36821)*UV(3314)+JVS(36822)*UV(3575)+JVS(36823)*UV(3779)& - &+JVS(36824)*UV(3887)+JVS(36827)*UV(4215)+JVS(36829)*UV(4433)+JVS(36830)*UV(4508)+JVS(36837)*UV(4755)& - &+JVS(36838)*UV(4868)+JVS(36840)*UV(4961)+JVS(36845)*UV(5203)+JVS(36847)*UV(5250)+JVS(36848)*UV(5251)& - &+JVS(36849)*UV(5252)+JVS(36850)*UV(5253)+JVS(36851)*UV(5254)+JVS(36852)*UV(5255)+JVS(36853)*UV(5256)& - &+JVS(36854)*UV(5258) - JUV(5204) = JVS(36855)*UV(715)+JVS(36857)*UV(5204)+JVS(36860)*UV(5252)+JVS(36861)*UV(5255)+JVS(36862)*UV(5256) - JUV(5205) = JVS(36864)*UV(2130)+JVS(36865)*UV(3413)+JVS(36866)*UV(4107)+JVS(36870)*UV(5205)+JVS(36871)*UV(5217)& - &+JVS(36872)*UV(5218)+JVS(36874)*UV(5250)+JVS(36877)*UV(5256)+JVS(36878)*UV(5258) - JUV(5206) = JVS(36879)*UV(1251)+JVS(36880)*UV(1746)+JVS(36882)*UV(5099)+JVS(36883)*UV(5206)+JVS(36885)*UV(5252)& - &+JVS(36887)*UV(5255)+JVS(36888)*UV(5256)+JVS(36889)*UV(5257) - JUV(5207) = JVS(36891)*UV(325)+JVS(36892)*UV(770)+JVS(36893)*UV(1178)+JVS(36894)*UV(1611)+JVS(36895)*UV(1771)& - &+JVS(36896)*UV(1834)+JVS(36897)*UV(2469)+JVS(36898)*UV(2685)+JVS(36902)*UV(5041)+JVS(36903)*UV(5207)& - &+JVS(36904)*UV(5250)+JVS(36908)*UV(5256)+JVS(36910)*UV(5258) - JUV(5208) = JVS(36911)*UV(611)+JVS(36912)*UV(1332)+JVS(36913)*UV(1817)+JVS(36914)*UV(2318)+JVS(36915)*UV(2487)& - &+JVS(36916)*UV(3118)+JVS(36917)*UV(3505)+JVS(36918)*UV(3542)+JVS(36924)*UV(4944)+JVS(36928)*UV(5165)& - &+JVS(36929)*UV(5208)+JVS(36930)*UV(5238)+JVS(36931)*UV(5250)+JVS(36933)*UV(5252)+JVS(36936)*UV(5255)& - &+JVS(36937)*UV(5256) - JUV(5209) = JVS(36939)*UV(3754)+JVS(36940)*UV(3802)+JVS(36941)*UV(3824)+JVS(36942)*UV(3826)+JVS(36943)*UV(4004)& - &+JVS(36945)*UV(4832)+JVS(36946)*UV(4976)+JVS(36947)*UV(5002)+JVS(36948)*UV(5030)+JVS(36949)*UV(5069)& - &+JVS(36952)*UV(5205)+JVS(36953)*UV(5209)+JVS(36956)*UV(5220)+JVS(36958)*UV(5250)+JVS(36961)*UV(5256)& - &+JVS(36962)*UV(5258) - JUV(5210) = JVS(36963)*UV(1185)+JVS(36964)*UV(1289)+JVS(36965)*UV(1558)+JVS(36966)*UV(1602)+JVS(36967)*UV(1681)& - &+JVS(36968)*UV(1726)+JVS(36969)*UV(1734)+JVS(36970)*UV(2602)+JVS(36971)*UV(2660)+JVS(36972)*UV(3044)& - &+JVS(36973)*UV(3094)+JVS(36974)*UV(3261)+JVS(36975)*UV(3392)+JVS(36976)*UV(3400)+JVS(36977)*UV(3455)& - &+JVS(36978)*UV(3477)+JVS(36979)*UV(3520)+JVS(36980)*UV(3567)+JVS(36981)*UV(3584)+JVS(36982)*UV(3589)& - &+JVS(36983)*UV(3605)+JVS(36984)*UV(3614)+JVS(36985)*UV(3693)+JVS(36990)*UV(4695)+JVS(37003)*UV(4958)& - &+JVS(37006)*UV(5003)+JVS(37008)*UV(5020)+JVS(37022)*UV(5210)+JVS(37030)*UV(5250)+JVS(37032)*UV(5252)& - &+JVS(37035)*UV(5255)+JVS(37036)*UV(5256) - JUV(5211) = JVS(37038)*UV(687)+JVS(37039)*UV(2674)+JVS(37041)*UV(3029)+JVS(37042)*UV(3425)+JVS(37043)*UV(3613)& - &+JVS(37044)*UV(3957)+JVS(37045)*UV(4248)+JVS(37066)*UV(5211)+JVS(37073)*UV(5250)+JVS(37079)*UV(5256) - JUV(5212) = JVS(37082)*UV(401)+JVS(37083)*UV(1205)+JVS(37084)*UV(2061)+JVS(37085)*UV(2593)+JVS(37088)*UV(5212)& - &+JVS(37089)*UV(5236)+JVS(37090)*UV(5250) - JUV(5213) = JVS(37098)*UV(670)+JVS(37099)*UV(783)+JVS(37100)*UV(784)+JVS(37104)*UV(2181)+JVS(37105)*UV(3744)& - &+JVS(37110)*UV(4912)+JVS(37112)*UV(5213)+JVS(37113)*UV(5250)+JVS(37114)*UV(5251)+JVS(37115)*UV(5252)& - &+JVS(37116)*UV(5253)+JVS(37117)*UV(5254)+JVS(37119)*UV(5256) - JUV(5214) = JVS(37121)*UV(582)+JVS(37122)*UV(741)+JVS(37123)*UV(1319)+JVS(37124)*UV(1732)+JVS(37126)*UV(1843)& - &+JVS(37128)*UV(1913)+JVS(37129)*UV(1929)+JVS(37130)*UV(2154)+JVS(37132)*UV(2667)+JVS(37133)*UV(2804)& - &+JVS(37134)*UV(3309)+JVS(37135)*UV(3355)+JVS(37136)*UV(3373)+JVS(37138)*UV(3420)+JVS(37140)*UV(3580)& - &+JVS(37150)*UV(4362)+JVS(37154)*UV(4462)+JVS(37162)*UV(4996)+JVS(37169)*UV(5105)+JVS(37177)*UV(5182)& - &+JVS(37184)*UV(5214)+JVS(37191)*UV(5250)+JVS(37193)*UV(5252)+JVS(37194)*UV(5253)+JVS(37196)*UV(5255)& - &+JVS(37197)*UV(5256) - JUV(5215) = JVS(37200)*UV(1770)+JVS(37201)*UV(2146)+JVS(37202)*UV(2516)+JVS(37203)*UV(2898)+JVS(37204)*UV(2902)& - &+JVS(37205)*UV(2959)+JVS(37206)*UV(3017)+JVS(37207)*UV(3030)+JVS(37208)*UV(3141)+JVS(37212)*UV(4151)& - &+JVS(37214)*UV(4186)+JVS(37215)*UV(4266)+JVS(37216)*UV(4301)+JVS(37217)*UV(4302)+JVS(37218)*UV(4600)& - &+JVS(37219)*UV(5215)+JVS(37220)*UV(5250)+JVS(37221)*UV(5251)+JVS(37222)*UV(5252)+JVS(37223)*UV(5253)& - &+JVS(37224)*UV(5254)+JVS(37225)*UV(5255)+JVS(37226)*UV(5256)+JVS(37227)*UV(5258) - JUV(5216) = JVS(37228)*UV(67)+JVS(37229)*UV(3809)+JVS(37234)*UV(4983)+JVS(37263)*UV(5216)+JVS(37275)*UV(5250)& - &+JVS(37277)*UV(5252)+JVS(37278)*UV(5253)+JVS(37280)*UV(5255)+JVS(37281)*UV(5256) - JUV(5217) = JVS(37283)*UV(702)+JVS(37285)*UV(5217)+JVS(37288)*UV(5252)+JVS(37289)*UV(5255)+JVS(37290)*UV(5256) - JUV(5218) = JVS(37292)*UV(606)+JVS(37293)*UV(4107)+JVS(37296)*UV(5218)+JVS(37298)*UV(5250)+JVS(37299)*UV(5252)& - &+JVS(37300)*UV(5255)+JVS(37301)*UV(5256) - JUV(5219) = JVS(37303)*UV(606)+JVS(37304)*UV(702)+JVS(37305)*UV(2252)+JVS(37309)*UV(5219)+JVS(37310)*UV(5250)& - &+JVS(37311)*UV(5252)+JVS(37312)*UV(5255)+JVS(37313)*UV(5256) - JUV(5220) = JVS(37315)*UV(1661)+JVS(37316)*UV(2308)+JVS(37317)*UV(3413)+JVS(37318)*UV(4113)+JVS(37319)*UV(5118)& - &+JVS(37322)*UV(5204)+JVS(37326)*UV(5220)+JVS(37328)*UV(5250)+JVS(37331)*UV(5256)+JVS(37332)*UV(5258) - JUV(5221) = JVS(37333)*UV(10)+JVS(37334)*UV(1006)+JVS(37335)*UV(1222)+JVS(37336)*UV(2003)+JVS(37337)*UV(2183)& - &+JVS(37338)*UV(2570)+JVS(37339)*UV(2928)+JVS(37340)*UV(4519)+JVS(37341)*UV(4615)+JVS(37342)*UV(4753)& - &+JVS(37343)*UV(4936)+JVS(37345)*UV(5040)+JVS(37347)*UV(5075)+JVS(37351)*UV(5167)+JVS(37360)*UV(5221)& - &+JVS(37363)*UV(5250)+JVS(37364)*UV(5251)+JVS(37365)*UV(5252)+JVS(37366)*UV(5253)+JVS(37367)*UV(5254)& - &+JVS(37368)*UV(5255)+JVS(37369)*UV(5256)+JVS(37370)*UV(5258) - JUV(5222) = JVS(37371)*UV(19)+JVS(37372)*UV(529)+JVS(37373)*UV(563)+JVS(37374)*UV(605)+JVS(37375)*UV(711)+JVS(37376)& - &*UV(734)+JVS(37377)*UV(750)+JVS(37378)*UV(796)+JVS(37379)*UV(1346)+JVS(37380)*UV(1651)+JVS(37381)*UV(1682)& - &+JVS(37382)*UV(1795)+JVS(37383)*UV(1807)+JVS(37384)*UV(1810)+JVS(37385)*UV(1833)+JVS(37386)*UV(1866)& - &+JVS(37387)*UV(1891)+JVS(37388)*UV(1955)+JVS(37389)*UV(2029)+JVS(37390)*UV(2105)+JVS(37391)*UV(2131)& - &+JVS(37392)*UV(2175)+JVS(37393)*UV(2249)+JVS(37394)*UV(2358)+JVS(37395)*UV(2382)+JVS(37396)*UV(2491)& - &+JVS(37397)*UV(2521)+JVS(37398)*UV(2592)+JVS(37399)*UV(2595)+JVS(37400)*UV(2603)+JVS(37401)*UV(2662)& - &+JVS(37402)*UV(2752)+JVS(37403)*UV(2762)+JVS(37404)*UV(2776)+JVS(37405)*UV(2789)+JVS(37406)*UV(2793)& - &+JVS(37407)*UV(2814)+JVS(37408)*UV(2828)+JVS(37409)*UV(2830)+JVS(37410)*UV(2847)+JVS(37411)*UV(2876)& - &+JVS(37412)*UV(2887)+JVS(37413)*UV(2904)+JVS(37414)*UV(2967)+JVS(37415)*UV(2999)+JVS(37416)*UV(3021)& - &+JVS(37417)*UV(3056)+JVS(37418)*UV(3068)+JVS(37419)*UV(3071)+JVS(37420)*UV(3082)+JVS(37421)*UV(3094)& - &+JVS(37425)*UV(3234)+JVS(37427)*UV(3246)+JVS(37428)*UV(3250)+JVS(37429)*UV(3259)+JVS(37430)*UV(3264)& - &+JVS(37432)*UV(3281)+JVS(37433)*UV(3300)+JVS(37434)*UV(3304)+JVS(37436)*UV(3332)+JVS(37437)*UV(3354)& - &+JVS(37438)*UV(3366)+JVS(37439)*UV(3433)+JVS(37441)*UV(3438)+JVS(37444)*UV(3450)+JVS(37447)*UV(3464)& - &+JVS(37448)*UV(3476)+JVS(37450)*UV(3486)+JVS(37451)*UV(3500)+JVS(37452)*UV(3501)+JVS(37454)*UV(3549)& - &+JVS(37456)*UV(3555)+JVS(37457)*UV(3565)+JVS(37458)*UV(3566)+JVS(37459)*UV(3567)+JVS(37460)*UV(3569)& - &+JVS(37461)*UV(3578)+JVS(37462)*UV(3582)+JVS(37463)*UV(3584)+JVS(37464)*UV(3589)+JVS(37465)*UV(3599)& - &+JVS(37466)*UV(3605)+JVS(37467)*UV(3614)+JVS(37473)*UV(3672)+JVS(37476)*UV(3707)+JVS(37477)*UV(3754)& - &+JVS(37478)*UV(3765)+JVS(37481)*UV(3802)+JVS(37483)*UV(3818)+JVS(37484)*UV(3824)+JVS(37485)*UV(3826)& - &+JVS(37487)*UV(3829)+JVS(37488)*UV(3832)+JVS(37490)*UV(3897)+JVS(37491)*UV(3904)+JVS(37493)*UV(3918)& - &+JVS(37494)*UV(3930)+JVS(37495)*UV(3931)+JVS(37496)*UV(3965)+JVS(37499)*UV(4004)+JVS(37500)*UV(4012)& - &+JVS(37501)*UV(4014)+JVS(37504)*UV(4071)+JVS(37507)*UV(4125)+JVS(37511)*UV(4177)+JVS(37512)*UV(4208)& - &+JVS(37514)*UV(4322)+JVS(37518)*UV(4378)+JVS(37519)*UV(4383)+JVS(37520)*UV(4401)+JVS(37521)*UV(4406)& - &+JVS(37522)*UV(4448)+JVS(37526)*UV(4534)+JVS(37527)*UV(4557)+JVS(37531)*UV(4570)+JVS(37533)*UV(4640)& - &+JVS(37546)*UV(4749)+JVS(37554)*UV(4799)+JVS(37566)*UV(4909)+JVS(37573)*UV(4937)+JVS(37576)*UV(4950)& - &+JVS(37580)*UV(4976)+JVS(37595)*UV(5030)+JVS(37599)*UV(5037)+JVS(37603)*UV(5089)+JVS(37604)*UV(5094)& - &+JVS(37605)*UV(5100)+JVS(37606)*UV(5102)+JVS(37607)*UV(5103)+JVS(37609)*UV(5113)+JVS(37613)*UV(5123)& - &+JVS(37615)*UV(5133)+JVS(37617)*UV(5141)+JVS(37622)*UV(5156)+JVS(37634)*UV(5188)+JVS(37643)*UV(5209)& - &+JVS(37644)*UV(5210)+JVS(37650)*UV(5220)+JVS(37652)*UV(5222)+JVS(37655)*UV(5226)+JVS(37656)*UV(5227)& - &+JVS(37661)*UV(5241)+JVS(37664)*UV(5250)+JVS(37665)*UV(5251)+JVS(37666)*UV(5252)+JVS(37667)*UV(5253)& - &+JVS(37668)*UV(5254)+JVS(37669)*UV(5255)+JVS(37670)*UV(5256)+JVS(37671)*UV(5258) - JUV(5223) = JVS(37672)*UV(684)+JVS(37673)*UV(685)+JVS(37674)*UV(686)+JVS(37675)*UV(2038)+JVS(37676)*UV(3479)& - &+JVS(37679)*UV(4528)+JVS(37683)*UV(4747)+JVS(37714)*UV(5223)+JVS(37722)*UV(5251)+JVS(37723)*UV(5252)& - &+JVS(37724)*UV(5253)+JVS(37725)*UV(5254) - JUV(5224) = JVS(37730)*UV(294)+JVS(37731)*UV(607)+JVS(37732)*UV(715)+JVS(37733)*UV(916)+JVS(37734)*UV(2544)+JVS(37735)& - &*UV(4955)+JVS(37738)*UV(5189)+JVS(37740)*UV(5224)+JVS(37742)*UV(5250)+JVS(37743)*UV(5252)+JVS(37745)& - &*UV(5255)+JVS(37746)*UV(5256) - JUV(5225) = JVS(37748)*UV(907)+JVS(37749)*UV(1494)+JVS(37750)*UV(1970)+JVS(37751)*UV(1991)+JVS(37752)*UV(2329)& - &+JVS(37753)*UV(2907)+JVS(37754)*UV(2957)+JVS(37755)*UV(3045)+JVS(37756)*UV(3700)+JVS(37757)*UV(3998)& - &+JVS(37759)*UV(4228)+JVS(37760)*UV(4247)+JVS(37762)*UV(4739)+JVS(37763)*UV(4786)+JVS(37764)*UV(5016)& - &+JVS(37775)*UV(5225)+JVS(37778)*UV(5250)+JVS(37779)*UV(5251)+JVS(37780)*UV(5252)+JVS(37781)*UV(5253)& - &+JVS(37782)*UV(5254)+JVS(37783)*UV(5255)+JVS(37784)*UV(5256)+JVS(37785)*UV(5258) - JUV(5226) = JVS(37786)*UV(1445)+JVS(37787)*UV(1846)+JVS(37788)*UV(1847)+JVS(37789)*UV(2402)+JVS(37790)*UV(2576)& - &+JVS(37791)*UV(2623)+JVS(37792)*UV(2791)+JVS(37793)*UV(3194)+JVS(37794)*UV(3228)+JVS(37795)*UV(3390)& - &+JVS(37796)*UV(3430)+JVS(37799)*UV(4269)+JVS(37805)*UV(4906)+JVS(37808)*UV(5166)+JVS(37811)*UV(5224)& - &+JVS(37812)*UV(5226)+JVS(37814)*UV(5250)+JVS(37815)*UV(5251)+JVS(37816)*UV(5252)+JVS(37817)*UV(5253)& - &+JVS(37818)*UV(5254)+JVS(37819)*UV(5255)+JVS(37820)*UV(5256)+JVS(37821)*UV(5258) - JUV(5227) = JVS(37822)*UV(3241)+JVS(37823)*UV(4286)+JVS(37825)*UV(5166)+JVS(37826)*UV(5219)+JVS(37827)*UV(5227)& - &+JVS(37828)*UV(5250)+JVS(37829)*UV(5251)+JVS(37830)*UV(5252)+JVS(37831)*UV(5253)+JVS(37832)*UV(5254)& - &+JVS(37835)*UV(5258) - JUV(5228) = JVS(37836)*UV(86)+JVS(37837)*UV(115)+JVS(37838)*UV(766)+JVS(37839)*UV(818)+JVS(37840)*UV(1066)+JVS(37841)& - &*UV(1553)+JVS(37842)*UV(1593)+JVS(37843)*UV(1878)+JVS(37845)*UV(2044)+JVS(37846)*UV(2076)+JVS(37847)& - &*UV(2286)+JVS(37848)*UV(2359)+JVS(37849)*UV(2393)+JVS(37850)*UV(2465)+JVS(37851)*UV(2470)+JVS(37852)& - &*UV(2574)+JVS(37853)*UV(2605)+JVS(37858)*UV(2782)+JVS(37860)*UV(2914)+JVS(37861)*UV(3155)+JVS(37862)& - &*UV(3206)+JVS(37863)*UV(3258)+JVS(37864)*UV(3292)+JVS(37865)*UV(3316)+JVS(37866)*UV(3331)+JVS(37867)& - &*UV(3343)+JVS(37868)*UV(3405)+JVS(37869)*UV(3412)+JVS(37870)*UV(3435)+JVS(37872)*UV(3440)+JVS(37873)& - &*UV(3558)+JVS(37874)*UV(3604)+JVS(37876)*UV(3652)+JVS(37877)*UV(3765)+JVS(37881)*UV(4014)+JVS(37882)& - &*UV(4024)+JVS(37885)*UV(4071)+JVS(37888)*UV(4184)+JVS(37889)*UV(4328)+JVS(37890)*UV(4333)+JVS(37891)& - &*UV(4379)+JVS(37929)*UV(5160)+JVS(37935)*UV(5193)+JVS(37955)*UV(5228)+JVS(37959)*UV(5238)+JVS(37963)& - &*UV(5244)+JVS(37968)*UV(5250)+JVS(37970)*UV(5252)+JVS(37971)*UV(5253)+JVS(37973)*UV(5255)+JVS(37974)& - &*UV(5256) - JUV(5229) = JVS(37977)*UV(691)+JVS(37978)*UV(1500)+JVS(37979)*UV(1599)+JVS(37980)*UV(2042)+JVS(37981)*UV(2292)& - &+JVS(37982)*UV(2933)+JVS(37983)*UV(3202)+JVS(37984)*UV(3561)+JVS(37985)*UV(3651)+JVS(37986)*UV(3843)& - &+JVS(37987)*UV(3978)+JVS(37988)*UV(4029)+JVS(38002)*UV(5125)+JVS(38007)*UV(5229)+JVS(38008)*UV(5230)& - &+JVS(38009)*UV(5238)+JVS(38010)*UV(5250)+JVS(38012)*UV(5252)+JVS(38015)*UV(5255)+JVS(38016)*UV(5256) - JUV(5230) = JVS(38018)*UV(1363)+JVS(38019)*UV(1697)+JVS(38020)*UV(1699)+JVS(38021)*UV(1877)+JVS(38022)*UV(1921)& - &+JVS(38023)*UV(2104)+JVS(38024)*UV(2148)+JVS(38025)*UV(2176)+JVS(38026)*UV(2318)+JVS(38027)*UV(2396)& - &+JVS(38028)*UV(2534)+JVS(38029)*UV(2549)+JVS(38030)*UV(2583)+JVS(38031)*UV(2611)+JVS(38032)*UV(2642)& - &+JVS(38033)*UV(2721)+JVS(38034)*UV(2738)+JVS(38035)*UV(2849)+JVS(38036)*UV(2878)+JVS(38037)*UV(2912)& - &+JVS(38038)*UV(2926)+JVS(38039)*UV(3269)+JVS(38042)*UV(3522)+JVS(38043)*UV(3572)+JVS(38044)*UV(3757)& - &+JVS(38045)*UV(3842)+JVS(38046)*UV(3878)+JVS(38047)*UV(3910)+JVS(38051)*UV(4281)+JVS(38053)*UV(4470)& - &+JVS(38056)*UV(4604)+JVS(38057)*UV(4606)+JVS(38067)*UV(4956)+JVS(38069)*UV(5009)+JVS(38077)*UV(5190)& - &+JVS(38078)*UV(5208)+JVS(38079)*UV(5230)+JVS(38081)*UV(5250)+JVS(38082)*UV(5251)+JVS(38083)*UV(5252)& - &+JVS(38084)*UV(5253)+JVS(38085)*UV(5254)+JVS(38086)*UV(5255)+JVS(38087)*UV(5256)+JVS(38088)*UV(5258) - JUV(5231) = JVS(38089)*UV(6)+JVS(38090)*UV(7)+JVS(38091)*UV(8)+JVS(38092)*UV(530)+JVS(38093)*UV(534)+JVS(38094)& - &*UV(536)+JVS(38095)*UV(540)+JVS(38096)*UV(543)+JVS(38097)*UV(556)+JVS(38098)*UV(571)+JVS(38099)*UV(580)& - &+JVS(38100)*UV(582)+JVS(38101)*UV(585)+JVS(38102)*UV(587)+JVS(38103)*UV(592)+JVS(38104)*UV(617)+JVS(38105)& - &*UV(619)+JVS(38106)*UV(621)+JVS(38107)*UV(630)+JVS(38108)*UV(650)+JVS(38109)*UV(654)+JVS(38110)*UV(655)& - &+JVS(38111)*UV(661)+JVS(38112)*UV(662)+JVS(38113)*UV(665)+JVS(38114)*UV(667)+JVS(38115)*UV(672)+JVS(38116)& - &*UV(688)+JVS(38117)*UV(689)+JVS(38118)*UV(690)+JVS(38119)*UV(692)+JVS(38120)*UV(693)+JVS(38121)*UV(694)& - &+JVS(38122)*UV(697)+JVS(38123)*UV(708)+JVS(38124)*UV(717)+JVS(38125)*UV(729)+JVS(38126)*UV(739)+JVS(38127)& - &*UV(773)+JVS(38128)*UV(774)+JVS(38129)*UV(777)+JVS(38130)*UV(781)+JVS(38131)*UV(782)+JVS(38132)*UV(793)& - &+JVS(38133)*UV(795)+JVS(38134)*UV(801)+JVS(38135)*UV(810)+JVS(38136)*UV(817)+JVS(38137)*UV(820)+JVS(38138)& - &*UV(856)+JVS(38139)*UV(1013)+JVS(38140)*UV(1068)+JVS(38141)*UV(1238)+JVS(38142)*UV(1240)+JVS(38143)& - &*UV(1433)+JVS(38144)*UV(1556)+JVS(38145)*UV(1574)+JVS(38146)*UV(1593)+JVS(38147)*UV(1607)+JVS(38148)& - &*UV(1615)+JVS(38149)*UV(1618)+JVS(38150)*UV(1634)+JVS(38151)*UV(1642)+JVS(38152)*UV(1652)+JVS(38153)& - &*UV(1658)+JVS(38154)*UV(1666)+JVS(38155)*UV(1687)+JVS(38156)*UV(1716)+JVS(38157)*UV(1718)+JVS(38158)& - &*UV(1735)+JVS(38159)*UV(1741)+JVS(38160)*UV(1742)+JVS(38161)*UV(1758)+JVS(38163)*UV(1764)+JVS(38164)& - &*UV(1766)+JVS(38166)*UV(1825)+JVS(38167)*UV(1835)+JVS(38169)*UV(1854)+JVS(38170)*UV(1863)+JVS(38171)& - &*UV(1866)+JVS(38172)*UV(1867)+JVS(38174)*UV(1877)+JVS(38175)*UV(1882)+JVS(38177)*UV(1905)+JVS(38178)& - &*UV(1912)+JVS(38180)*UV(1918)+JVS(38181)*UV(1920)+JVS(38182)*UV(1927)+JVS(38183)*UV(1944)+JVS(38186)& - &*UV(1959)+JVS(38187)*UV(1993)+JVS(38188)*UV(2000)+JVS(38189)*UV(2005)+JVS(38190)*UV(2007)+JVS(38191)& - &*UV(2008)+JVS(38192)*UV(2012)+JVS(38194)*UV(2018)+JVS(38195)*UV(2022)+JVS(38196)*UV(2028)+JVS(38197)& - &*UV(2044)+JVS(38198)*UV(2047)+JVS(38199)*UV(2090)+JVS(38203)*UV(2139)+JVS(38204)*UV(2150)+JVS(38205)& - &*UV(2163)+JVS(38206)*UV(2190)+JVS(38207)*UV(2203)+JVS(38209)*UV(2229)+JVS(38210)*UV(2230)+JVS(38211)& - &*UV(2242)+JVS(38212)*UV(2254)+JVS(38213)*UV(2280)+JVS(38214)*UV(2323)+JVS(38215)*UV(2325)+JVS(38216)& - &*UV(2326)+JVS(38217)*UV(2347)+JVS(38220)*UV(2373)+JVS(38221)*UV(2378)+JVS(38223)*UV(2412)+JVS(38224)& - &*UV(2430)+JVS(38226)*UV(2476)+JVS(38228)*UV(2479)+JVS(38229)*UV(2481)+JVS(38230)*UV(2495)+JVS(38231)& - &*UV(2497)+JVS(38232)*UV(2500)+JVS(38233)*UV(2502)+JVS(38234)*UV(2508)+JVS(38235)*UV(2512)+JVS(38236)& - &*UV(2516)+JVS(38237)*UV(2540)+JVS(38238)*UV(2549)+JVS(38239)*UV(2550)+JVS(38240)*UV(2561)+JVS(38241)& - &*UV(2571)+JVS(38242)*UV(2578)+JVS(38243)*UV(2589)+JVS(38244)*UV(2591)+JVS(38245)*UV(2596)+JVS(38246)& - &*UV(2607)+JVS(38248)*UV(2623)+JVS(38251)*UV(2639)+JVS(38252)*UV(2657)+JVS(38254)*UV(2667)+JVS(38255)& - &*UV(2687)+JVS(38256)*UV(2690)+JVS(38257)*UV(2694)+JVS(38258)*UV(2706)+JVS(38259)*UV(2707)+JVS(38260)& - &*UV(2720)+JVS(38261)*UV(2723)+JVS(38262)*UV(2727)+JVS(38263)*UV(2739)+JVS(38264)*UV(2744)+JVS(38265)& - &*UV(2746)+JVS(38266)*UV(2747)+JVS(38267)*UV(2748)+JVS(38268)*UV(2750)+JVS(38269)*UV(2758)+JVS(38270)& - &*UV(2760)+JVS(38271)*UV(2769)+JVS(38272)*UV(2770)+JVS(38273)*UV(2771)+JVS(38274)*UV(2774)+JVS(38275)& - &*UV(2783)+JVS(38276)*UV(2788)+JVS(38279)*UV(2819)+JVS(38280)*UV(2821)+JVS(38281)*UV(2827)+JVS(38282)& - &*UV(2832)+JVS(38283)*UV(2834)+JVS(38284)*UV(2836)+JVS(38285)*UV(2840)+JVS(38286)*UV(2851)+JVS(38287)& - &*UV(2861)+JVS(38288)*UV(2865)+JVS(38289)*UV(2869)+JVS(38290)*UV(2874)+JVS(38291)*UV(2900)+JVS(38292)& - &*UV(2902)+JVS(38294)*UV(2916)+JVS(38295)*UV(2931)+JVS(38296)*UV(2944)+JVS(38297)*UV(2953)+JVS(38298)& - &*UV(2954)+JVS(38299)*UV(2959)+JVS(38300)*UV(2961)+JVS(38301)*UV(2962)+JVS(38302)*UV(2972)+JVS(38303)& - &*UV(2982)+JVS(38304)*UV(2983)+JVS(38305)*UV(2989)+JVS(38306)*UV(2996)+JVS(38307)*UV(2997)+JVS(38308)& - &*UV(3002)+JVS(38309)*UV(3030)+JVS(38310)*UV(3037)+JVS(38311)*UV(3039)+JVS(38312)*UV(3047)+JVS(38313)& - &*UV(3048)+JVS(38315)*UV(3054)+JVS(38316)*UV(3072)+JVS(38317)*UV(3074)+JVS(38319)*UV(3079)+JVS(38320)& - &*UV(3099)+JVS(38321)*UV(3141)+JVS(38322)*UV(3155)+JVS(38323)*UV(3173)+JVS(38324)*UV(3194)+JVS(38326)& - &*UV(3207)+JVS(38328)*UV(3218)+JVS(38329)*UV(3221)+JVS(38330)*UV(3234)+JVS(38331)*UV(3239)+JVS(38332)& - &*UV(3241)+JVS(38333)*UV(3249)+JVS(38335)*UV(3260)+JVS(38336)*UV(3268)+JVS(38337)*UV(3275)+JVS(38338)& - &*UV(3276)+JVS(38340)*UV(3284)+JVS(38341)*UV(3287)+JVS(38343)*UV(3290)+JVS(38345)*UV(3294)+JVS(38347)& - &*UV(3300)+JVS(38348)*UV(3306)+JVS(38351)*UV(3311)+JVS(38352)*UV(3312)+JVS(38353)*UV(3335)+JVS(38354)& - &*UV(3338)+JVS(38355)*UV(3349)+JVS(38356)*UV(3351)+JVS(38357)*UV(3358)+JVS(38358)*UV(3394)+JVS(38360)& - &*UV(3410)+JVS(38362)*UV(3439)+JVS(38363)*UV(3447)+JVS(38365)*UV(3464)+JVS(38366)*UV(3490)+JVS(38367)& - &*UV(3517)+JVS(38368)*UV(3524)+JVS(38370)*UV(3559)+JVS(38371)*UV(3564)+JVS(38372)*UV(3572)+JVS(38373)& - &*UV(3575)+JVS(38374)*UV(3577)+JVS(38375)*UV(3585)+JVS(38376)*UV(3586)+JVS(38377)*UV(3591)+JVS(38378)& - &*UV(3592)+JVS(38379)*UV(3598)+JVS(38382)*UV(3646)+JVS(38383)*UV(3652)+JVS(38384)*UV(3700)+JVS(38385)& - &*UV(3707)+JVS(38387)*UV(3734)+JVS(38388)*UV(3755)+JVS(38389)*UV(3763)+JVS(38403)*UV(3878)+JVS(38406)& - &*UV(3887)+JVS(38410)*UV(3909)+JVS(38411)*UV(3925)+JVS(38414)*UV(3934)+JVS(38416)*UV(3942)+JVS(38420)& - &*UV(3959)+JVS(38435)*UV(4096)+JVS(38467)*UV(4330)+JVS(38474)*UV(4366)+JVS(38478)*UV(4383)+JVS(38480)& - &*UV(4395)+JVS(38482)*UV(4420)+JVS(38488)*UV(4508)+JVS(38489)*UV(4512)+JVS(38491)*UV(4527)+JVS(38492)& - &*UV(4530)+JVS(38499)*UV(4555)+JVS(38511)*UV(4588)+JVS(38518)*UV(4600)+JVS(38519)*UV(4601)+JVS(38523)& - &*UV(4615)+JVS(38535)*UV(4673)+JVS(38552)*UV(4749)+JVS(38564)*UV(4786)+JVS(38565)*UV(4794)+JVS(38570)& - &*UV(4812)+JVS(38571)*UV(4816)+JVS(38593)*UV(4907)+JVS(38600)*UV(4945)+JVS(38604)*UV(4954)+JVS(38612)& - &*UV(4970)+JVS(38633)*UV(5024)+JVS(38644)*UV(5051)+JVS(38652)*UV(5067)+JVS(38661)*UV(5083)+JVS(38666)& - &*UV(5091)+JVS(38668)*UV(5093)+JVS(38669)*UV(5095)+JVS(38684)*UV(5124)+JVS(38706)*UV(5152)+JVS(38707)& - &*UV(5153)+JVS(38716)*UV(5166)+JVS(38719)*UV(5169)+JVS(38730)*UV(5187)+JVS(38731)*UV(5188)+JVS(38732)& - &*UV(5189)+JVS(38733)*UV(5190)+JVS(38735)*UV(5194)+JVS(38739)*UV(5200)+JVS(38745)*UV(5207)+JVS(38753)& - &*UV(5219)+JVS(38756)*UV(5223)+JVS(38757)*UV(5224)+JVS(38758)*UV(5226)+JVS(38759)*UV(5227)+JVS(38760)& - &*UV(5228)+JVS(38763)*UV(5231)+JVS(38764)*UV(5232)+JVS(38765)*UV(5233)+JVS(38766)*UV(5234)+JVS(38774)& - &*UV(5242)+JVS(38782)*UV(5250)+JVS(38783)*UV(5251)+JVS(38784)*UV(5252)+JVS(38785)*UV(5253)+JVS(38786)& - &*UV(5254)+JVS(38787)*UV(5255)+JVS(38788)*UV(5256)+JVS(38789)*UV(5257)+JVS(38790)*UV(5258) - JUV(5232) = JVS(38791)*UV(494)+JVS(38792)*UV(645)+JVS(38793)*UV(656)+JVS(38794)*UV(701)+JVS(38795)*UV(1433)+JVS(38796)& - &*UV(1582)+JVS(38797)*UV(1655)+JVS(38798)*UV(1670)+JVS(38799)*UV(1678)+JVS(38800)*UV(1684)+JVS(38801)& - &*UV(1934)+JVS(38802)*UV(2043)+JVS(38803)*UV(2230)+JVS(38804)*UV(2258)+JVS(38806)*UV(2412)+JVS(38807)& - &*UV(2607)+JVS(38808)*UV(2695)+JVS(38809)*UV(2711)+JVS(38810)*UV(2724)+JVS(38811)*UV(3047)+JVS(38812)& - &*UV(3231)+JVS(38813)*UV(3250)+JVS(38814)*UV(3276)+JVS(38815)*UV(3350)+JVS(38817)*UV(3542)+JVS(38818)& - &*UV(3550)+JVS(38819)*UV(3561)+JVS(38820)*UV(3608)+JVS(38823)*UV(3635)+JVS(38824)*UV(3682)+JVS(38825)& - &*UV(3716)+JVS(38826)*UV(3734)+JVS(38827)*UV(3759)+JVS(38828)*UV(3780)+JVS(38831)*UV(4104)+JVS(38832)& - &*UV(4109)+JVS(38836)*UV(4362)+JVS(38837)*UV(4366)+JVS(38860)*UV(4816)+JVS(38871)*UV(5023)+JVS(38879)& - &*UV(5080)+JVS(38881)*UV(5093)+JVS(38883)*UV(5113)+JVS(38923)*UV(5232)+JVS(38924)*UV(5234)+JVS(38932)& - &*UV(5250)+JVS(38934)*UV(5252)+JVS(38935)*UV(5253)+JVS(38937)*UV(5255)+JVS(38938)*UV(5256) - JUV(5233) = JVS(38941)*UV(29)+JVS(38942)*UV(198)+JVS(38943)*UV(808)+JVS(38944)*UV(819)+JVS(38945)*UV(1011)+JVS(38946)& - &*UV(1013)+JVS(38947)*UV(1246)+JVS(38948)*UV(1558)+JVS(38949)*UV(1579)+JVS(38950)*UV(1603)+JVS(38951)& - &*UV(1625)+JVS(38952)*UV(1626)+JVS(38953)*UV(1848)+JVS(38954)*UV(1892)+JVS(38955)*UV(1960)+JVS(38956)& - &*UV(1967)+JVS(38957)*UV(2081)+JVS(38958)*UV(2085)+JVS(38959)*UV(2112)+JVS(38960)*UV(2376)+JVS(38961)& - &*UV(2382)+JVS(38962)*UV(2410)+JVS(38963)*UV(2468)+JVS(38964)*UV(2472)+JVS(38965)*UV(2474)+JVS(38966)& - &*UV(2491)+JVS(38967)*UV(2492)+JVS(38968)*UV(2493)+JVS(38969)*UV(2506)+JVS(38970)*UV(2511)+JVS(38971)& - &*UV(2514)+JVS(38972)*UV(2545)+JVS(38973)*UV(2592)+JVS(38974)*UV(2609)+JVS(38976)*UV(2659)+JVS(38977)& - &*UV(2734)+JVS(38978)*UV(2752)+JVS(38979)*UV(2795)+JVS(38980)*UV(2798)+JVS(38981)*UV(2799)+JVS(38982)& - &*UV(2804)+JVS(38983)*UV(2806)+JVS(38984)*UV(2816)+JVS(38985)*UV(2924)+JVS(38986)*UV(2927)+JVS(38987)& - &*UV(2936)+JVS(38988)*UV(2949)+JVS(38989)*UV(2994)+JVS(38990)*UV(3027)+JVS(38991)*UV(3050)+JVS(38992)& - &*UV(3064)+JVS(38993)*UV(3080)+JVS(38994)*UV(3089)+JVS(38995)*UV(3121)+JVS(38996)*UV(3122)+JVS(38997)& - &*UV(3154)+JVS(38998)*UV(3174)+JVS(38999)*UV(3195)+JVS(39000)*UV(3211)+JVS(39002)*UV(3230)+JVS(39006)& - &*UV(3285)+JVS(39007)*UV(3286)+JVS(39008)*UV(3290)+JVS(39011)*UV(3342)+JVS(39012)*UV(3372)+JVS(39013)& - &*UV(3387)+JVS(39014)*UV(3401)+JVS(39015)*UV(3416)+JVS(39016)*UV(3443)+JVS(39021)*UV(3477)+JVS(39022)& - &*UV(3515)+JVS(39023)*UV(3524)+JVS(39024)*UV(3533)+JVS(39025)*UV(3563)+JVS(39026)*UV(3566)+JVS(39027)& - &*UV(3573)+JVS(39028)*UV(3576)+JVS(39029)*UV(3606)+JVS(39032)*UV(3654)+JVS(39035)*UV(3666)+JVS(39039)& - &*UV(3712)+JVS(39040)*UV(3754)+JVS(39042)*UV(3795)+JVS(39045)*UV(3802)+JVS(39047)*UV(3805)+JVS(39049)& - &*UV(3812)+JVS(39054)*UV(3824)+JVS(39059)*UV(3913)+JVS(39060)*UV(3933)+JVS(39062)*UV(3965)+JVS(39063)& - &*UV(4004)+JVS(39064)*UV(4024)+JVS(39065)*UV(4045)+JVS(39070)*UV(4152)+JVS(39075)*UV(4256)+JVS(39076)& - &*UV(4326)+JVS(39088)*UV(4420)+JVS(39089)*UV(4488)+JVS(39092)*UV(4603)+JVS(39094)*UV(4619)+JVS(39097)& - &*UV(4708)+JVS(39099)*UV(4728)+JVS(39101)*UV(4743)+JVS(39103)*UV(4775)+JVS(39105)*UV(4795)+JVS(39106)& - &*UV(4805)+JVS(39107)*UV(4815)+JVS(39111)*UV(4840)+JVS(39122)*UV(4937)+JVS(39124)*UV(4950)+JVS(39128)& - &*UV(5002)+JVS(39133)*UV(5030)+JVS(39137)*UV(5038)+JVS(39138)*UV(5049)+JVS(39139)*UV(5050)+JVS(39140)& - &*UV(5058)+JVS(39143)*UV(5066)+JVS(39144)*UV(5068)+JVS(39145)*UV(5069)+JVS(39148)*UV(5076)+JVS(39151)& - &*UV(5123)+JVS(39152)*UV(5126)+JVS(39158)*UV(5170)+JVS(39162)*UV(5194)+JVS(39164)*UV(5205)+JVS(39165)& - &*UV(5209)+JVS(39176)*UV(5233)+JVS(39177)*UV(5234)+JVS(39178)*UV(5235)+JVS(39185)*UV(5250)+JVS(39186)& - &*UV(5251)+JVS(39187)*UV(5252)+JVS(39188)*UV(5253)+JVS(39189)*UV(5254)+JVS(39190)*UV(5255)+JVS(39191)& - &*UV(5256)+JVS(39193)*UV(5258) - JUV(5234) = JVS(39194)*UV(249)+JVS(39195)*UV(533)+JVS(39196)*UV(595)+JVS(39197)*UV(603)+JVS(39198)*UV(656)+JVS(39199)& - &*UV(1113)+JVS(39200)*UV(1242)+JVS(39201)*UV(1626)+JVS(39202)*UV(1639)+JVS(39203)*UV(1651)+JVS(39205)& - &*UV(1683)+JVS(39206)*UV(1748)+JVS(39208)*UV(1787)+JVS(39209)*UV(1809)+JVS(39210)*UV(1815)+JVS(39211)& - &*UV(1851)+JVS(39212)*UV(1917)+JVS(39213)*UV(1955)+JVS(39214)*UV(2096)+JVS(39215)*UV(2249)+JVS(39216)& - &*UV(2258)+JVS(39217)*UV(2279)+JVS(39218)*UV(2345)+JVS(39219)*UV(2486)+JVS(39220)*UV(2494)+JVS(39221)& - &*UV(2526)+JVS(39222)*UV(2542)+JVS(39223)*UV(2554)+JVS(39224)*UV(2556)+JVS(39225)*UV(2662)+JVS(39226)& - &*UV(2695)+JVS(39227)*UV(2707)+JVS(39228)*UV(2717)+JVS(39229)*UV(2796)+JVS(39230)*UV(2816)+JVS(39231)& - &*UV(2825)+JVS(39232)*UV(2865)+JVS(39233)*UV(2921)+JVS(39234)*UV(3062)+JVS(39238)*UV(3254)+JVS(39240)& - &*UV(3294)+JVS(39242)*UV(3490)+JVS(39243)*UV(3501)+JVS(39245)*UV(3549)+JVS(39246)*UV(3601)+JVS(39247)& - &*UV(3608)+JVS(39250)*UV(3700)+JVS(39251)*UV(3835)+JVS(39259)*UV(4378)+JVS(39260)*UV(4382)+JVS(39261)& - &*UV(4414)+JVS(39262)*UV(4564)+JVS(39274)*UV(4851)+JVS(39281)*UV(4976)+JVS(39282)*UV(4999)+JVS(39287)& - &*UV(5033)+JVS(39288)*UV(5049)+JVS(39303)*UV(5168)+JVS(39309)*UV(5195)+JVS(39319)*UV(5220)+JVS(39321)& - &*UV(5225)+JVS(39325)*UV(5234)+JVS(39326)*UV(5235)+JVS(39334)*UV(5250)+JVS(39335)*UV(5251)+JVS(39336)& - &*UV(5252)+JVS(39337)*UV(5253)+JVS(39338)*UV(5254)+JVS(39339)*UV(5255)+JVS(39340)*UV(5256)+JVS(39342)& - &*UV(5258) - JUV(5235) = JVS(39343)*UV(110)+JVS(39344)*UV(759)+JVS(39345)*UV(1319)+JVS(39346)*UV(2399)+JVS(39347)*UV(3247)& - &+JVS(39348)*UV(3383)+JVS(39351)*UV(3586)+JVS(39353)*UV(4420)+JVS(39354)*UV(4651)+JVS(39356)*UV(4717)& - &+JVS(39366)*UV(5113)+JVS(39369)*UV(5182)+JVS(39371)*UV(5193)+JVS(39379)*UV(5214)+JVS(39386)*UV(5235)& - &+JVS(39393)*UV(5250)+JVS(39395)*UV(5252)+JVS(39398)*UV(5255)+JVS(39399)*UV(5256) - JUV(5236) = JVS(39402)*UV(709)+JVS(39403)*UV(719)+JVS(39404)*UV(985)+JVS(39407)*UV(4847)+JVS(39408)*UV(5169)& - &+JVS(39409)*UV(5236)+JVS(39410)*UV(5250)+JVS(39412)*UV(5252)+JVS(39415)*UV(5255)+JVS(39416)*UV(5256) - JUV(5237) = JVS(39418)*UV(547)+JVS(39419)*UV(567)+JVS(39420)*UV(600)+JVS(39421)*UV(648)+JVS(39422)*UV(665)+JVS(39423)& - &*UV(749)+JVS(39424)*UV(802)+JVS(39425)*UV(856)+JVS(39426)*UV(868)+JVS(39427)*UV(1579)+JVS(39428)*UV(1599)& - &+JVS(39429)*UV(1601)+JVS(39430)*UV(1646)+JVS(39431)*UV(1678)+JVS(39433)*UV(1875)+JVS(39434)*UV(1920)& - &+JVS(39435)*UV(1926)+JVS(39436)*UV(2424)+JVS(39437)*UV(2749)+JVS(39438)*UV(2809)+JVS(39439)*UV(2825)& - &+JVS(39440)*UV(2932)+JVS(39442)*UV(3374)+JVS(39443)*UV(3473)+JVS(39444)*UV(3557)+JVS(39449)*UV(4239)& - &+JVS(39453)*UV(4392)+JVS(39455)*UV(4673)+JVS(39467)*UV(5184)+JVS(39478)*UV(5237)+JVS(39485)*UV(5250)& - &+JVS(39487)*UV(5252)+JVS(39488)*UV(5253)+JVS(39490)*UV(5255)+JVS(39491)*UV(5256) - JUV(5238) = JVS(39494)*UV(221)+JVS(39495)*UV(235)+JVS(39496)*UV(253)+JVS(39497)*UV(270)+JVS(39498)*UV(288)+JVS(39499)& - &*UV(342)+JVS(39500)*UV(426)+JVS(39501)*UV(447)+JVS(39502)*UV(548)+JVS(39503)*UV(566)+JVS(39504)*UV(588)& - &+JVS(39505)*UV(601)+JVS(39506)*UV(1635)+JVS(39507)*UV(1641)+JVS(39508)*UV(1688)+JVS(39509)*UV(1708)& - &+JVS(39510)*UV(1709)+JVS(39511)*UV(1817)+JVS(39512)*UV(2385)+JVS(39514)*UV(2914)+JVS(39515)*UV(2973)& - &+JVS(39517)*UV(3651)+JVS(39531)*UV(5238) - JUV(5239) = JVS(39540)*UV(918)+JVS(39541)*UV(1573)+JVS(39542)*UV(2938)+JVS(39543)*UV(3424)+JVS(39544)*UV(3613)& - &+JVS(39545)*UV(3736)+JVS(39546)*UV(3737)+JVS(39554)*UV(5239)+JVS(39557)*UV(5250)+JVS(39559)*UV(5252)& - &+JVS(39562)*UV(5255)+JVS(39563)*UV(5256) - JUV(5240) = JVS(39566)*UV(452)+JVS(39567)*UV(658)+JVS(39568)*UV(692)+JVS(39569)*UV(1195)+JVS(39570)*UV(1668)& - &+JVS(39571)*UV(1950)+JVS(39572)*UV(2119)+JVS(39573)*UV(2250)+JVS(39574)*UV(2325)+JVS(39575)*UV(2704)& - &+JVS(39576)*UV(2746)+JVS(39577)*UV(2832)+JVS(39580)*UV(4258)+JVS(39583)*UV(5114)+JVS(39584)*UV(5207)& - &+JVS(39585)*UV(5240)+JVS(39588)*UV(5250)+JVS(39589)*UV(5251)+JVS(39590)*UV(5252)+JVS(39591)*UV(5253)& - &+JVS(39592)*UV(5254)+JVS(39594)*UV(5256)+JVS(39596)*UV(5258) - JUV(5241) = JVS(39597)*UV(12)+JVS(39598)*UV(37)+JVS(39599)*UV(114)+JVS(39600)*UV(239)+JVS(39601)*UV(327)+JVS(39602)& - &*UV(833)+JVS(39603)*UV(1633)+JVS(39604)*UV(2425)+JVS(39605)*UV(2981)+JVS(39606)*UV(3069)+JVS(39607)& - &*UV(3126)+JVS(39609)*UV(3535)+JVS(39610)*UV(4109)+JVS(39612)*UV(4383)+JVS(39620)*UV(4801)+JVS(39636)& - &*UV(5110)+JVS(39645)*UV(5157)+JVS(39646)*UV(5158)+JVS(39647)*UV(5160)+JVS(39669)*UV(5241)+JVS(39670)& - &*UV(5242)+JVS(39676)*UV(5250)+JVS(39678)*UV(5252)+JVS(39681)*UV(5255)+JVS(39682)*UV(5256) - JUV(5242) = JVS(39685)*UV(564)+JVS(39686)*UV(682)+JVS(39687)*UV(695)+JVS(39688)*UV(1566)+JVS(39689)*UV(1690)& - &+JVS(39690)*UV(1895)+JVS(39691)*UV(2070)+JVS(39692)*UV(2077)+JVS(39694)*UV(2428)+JVS(39695)*UV(2528)& - &+JVS(39696)*UV(2539)+JVS(39697)*UV(2644)+JVS(39698)*UV(2697)+JVS(39699)*UV(2821)+JVS(39700)*UV(2834)& - &+JVS(39701)*UV(2886)+JVS(39702)*UV(2996)+JVS(39703)*UV(3048)+JVS(39704)*UV(3067)+JVS(39705)*UV(3078)& - &+JVS(39706)*UV(3383)+JVS(39707)*UV(3391)+JVS(39708)*UV(3540)+JVS(39709)*UV(3586)+JVS(39718)*UV(4705)& - &+JVS(39720)*UV(4794)+JVS(39724)*UV(4907)+JVS(39725)*UV(4963)+JVS(39726)*UV(4973)+JVS(39727)*UV(5055)& - &+JVS(39755)*UV(5242)+JVS(39757)*UV(5246)+JVS(39761)*UV(5250)+JVS(39762)*UV(5251)+JVS(39763)*UV(5252)& - &+JVS(39764)*UV(5253)+JVS(39765)*UV(5254)+JVS(39767)*UV(5256)+JVS(39769)*UV(5258) - JUV(5243) = JVS(39770)*UV(579)+JVS(39771)*UV(820)+JVS(39773)*UV(2211)+JVS(39774)*UV(2438)+JVS(39775)*UV(2792)& - &+JVS(39776)*UV(3126)+JVS(39778)*UV(3755)+JVS(39788)*UV(5000)+JVS(39808)*UV(5243)+JVS(39813)*UV(5250)& - &+JVS(39815)*UV(5252)+JVS(39816)*UV(5253)+JVS(39818)*UV(5255)+JVS(39819)*UV(5256) - JUV(5244) = JVS(39822)*UV(533)+JVS(39823)*UV(542)+JVS(39824)*UV(544)+JVS(39825)*UV(553)+JVS(39826)*UV(581)+JVS(39827)& - &*UV(592)+JVS(39828)*UV(605)+JVS(39829)*UV(623)+JVS(39830)*UV(638)+JVS(39831)*UV(641)+JVS(39832)*UV(658)& - &+JVS(39833)*UV(666)+JVS(39834)*UV(679)+JVS(39835)*UV(682)+JVS(39836)*UV(687)+JVS(39837)*UV(693)+JVS(39838)& - &*UV(710)+JVS(39839)*UV(714)+JVS(39840)*UV(720)+JVS(39841)*UV(728)+JVS(39842)*UV(731)+JVS(39843)*UV(740)& - &+JVS(39844)*UV(755)+JVS(39845)*UV(756)+JVS(39846)*UV(763)+JVS(39847)*UV(770)+JVS(39848)*UV(778)+JVS(39849)& - &*UV(1066)+JVS(39850)*UV(1242)+JVS(39851)*UV(1269)+JVS(39852)*UV(1548)+JVS(39853)*UV(1557)+JVS(39854)& - &*UV(1558)+JVS(39855)*UV(1560)+JVS(39856)*UV(1561)+JVS(39857)*UV(1566)+JVS(39858)*UV(1578)+JVS(39859)& - &*UV(1585)+JVS(39860)*UV(1586)+JVS(39861)*UV(1587)+JVS(39862)*UV(1592)+JVS(39863)*UV(1595)+JVS(39864)& - &*UV(1600)+JVS(39865)*UV(1609)+JVS(39866)*UV(1610)+JVS(39867)*UV(1611)+JVS(39868)*UV(1630)+JVS(39869)& - &*UV(1631)+JVS(39870)*UV(1632)+JVS(39871)*UV(1637)+JVS(39872)*UV(1640)+JVS(39873)*UV(1665)+JVS(39874)& - &*UV(1668)+JVS(39875)*UV(1671)+JVS(39876)*UV(1676)+JVS(39877)*UV(1677)+JVS(39878)*UV(1681)+JVS(39879)& - &*UV(1689)+JVS(39880)*UV(1691)+JVS(39881)*UV(1694)+JVS(39882)*UV(1699)+JVS(39883)*UV(1710)+JVS(39884)& - &*UV(1714)+JVS(39885)*UV(1719)+JVS(39886)*UV(1722)+JVS(39887)*UV(1723)+JVS(39888)*UV(1726)+JVS(39889)& - &*UV(1731)+JVS(39890)*UV(1790)+JVS(39891)*UV(1807)+JVS(39892)*UV(1825)+JVS(39893)*UV(1826)+JVS(39894)& - &*UV(1833)+JVS(39895)*UV(1834)+JVS(39897)*UV(1854)+JVS(39898)*UV(1873)+JVS(39899)*UV(1887)+JVS(39900)& - &*UV(1908)+JVS(39901)*UV(1925)+JVS(39903)*UV(1950)+JVS(39904)*UV(1953)+JVS(39905)*UV(1988)+JVS(39906)& - &*UV(2017)+JVS(39907)*UV(2024)+JVS(39908)*UV(2039)+JVS(39909)*UV(2055)+JVS(39910)*UV(2064)+JVS(39912)& - &*UV(2082)+JVS(39913)*UV(2084)+JVS(39915)*UV(2118)+JVS(39916)*UV(2119)+JVS(39917)*UV(2231)+JVS(39918)& - &*UV(2265)+JVS(39919)*UV(2273)+JVS(39920)*UV(2295)+JVS(39921)*UV(2305)+JVS(39922)*UV(2326)+JVS(39923)& - &*UV(2344)+JVS(39924)*UV(2349)+JVS(39925)*UV(2356)+JVS(39926)*UV(2357)+JVS(39927)*UV(2362)+JVS(39928)& - &*UV(2386)+JVS(39929)*UV(2393)+JVS(39930)*UV(2397)+JVS(39932)*UV(2414)+JVS(39933)*UV(2426)+JVS(39934)& - &*UV(2428)+JVS(39935)*UV(2430)+JVS(39936)*UV(2437)+JVS(39937)*UV(2438)+JVS(39938)*UV(2443)+JVS(39940)& - &*UV(2467)+JVS(39941)*UV(2469)+JVS(39942)*UV(2475)+JVS(39943)*UV(2476)+JVS(39944)*UV(2477)+JVS(39945)& - &*UV(2478)+JVS(39946)*UV(2479)+JVS(39948)*UV(2483)+JVS(39949)*UV(2484)+JVS(39950)*UV(2554)+JVS(39951)& - &*UV(2602)+JVS(39952)*UV(2603)+JVS(39953)*UV(2625)+JVS(39954)*UV(2657)+JVS(39955)*UV(2679)+JVS(39956)& - &*UV(2683)+JVS(39957)*UV(2686)+JVS(39958)*UV(2715)+JVS(39959)*UV(2739)+JVS(39960)*UV(2766)+JVS(39961)& - &*UV(2769)+JVS(39962)*UV(2819)+JVS(39963)*UV(2820)+JVS(39964)*UV(2863)+JVS(39965)*UV(2878)+JVS(39966)& - &*UV(2881)+JVS(39967)*UV(2905)+JVS(39968)*UV(2910)+JVS(39971)*UV(2970)+JVS(39972)*UV(3005)+JVS(39974)& - &*UV(3031)+JVS(39975)*UV(3035)+JVS(39976)*UV(3057)+JVS(39977)*UV(3067)+JVS(39978)*UV(3094)+JVS(39979)& - &*UV(3104)+JVS(39980)*UV(3109)+JVS(39981)*UV(3124)+JVS(39982)*UV(3128)+JVS(39983)*UV(3133)+JVS(39984)& - &*UV(3168)+JVS(39985)*UV(3209)+JVS(39987)*UV(3222)+JVS(39988)*UV(3227)+JVS(39989)*UV(3251)+JVS(39990)& - &*UV(3259)+JVS(39991)*UV(3274)+JVS(39993)*UV(3281)+JVS(39994)*UV(3298)+JVS(39995)*UV(3314)+JVS(39998)& - &*UV(3339)+JVS(39999)*UV(3340)+JVS(40000)*UV(3359)+JVS(40001)*UV(3360)+JVS(40003)*UV(3366)+JVS(40004)& - &*UV(3369)+JVS(40006)*UV(3378)+JVS(40007)*UV(3379)+JVS(40008)*UV(3382)+JVS(40009)*UV(3384)+JVS(40010)& - &*UV(3391)+JVS(40012)*UV(3419)+JVS(40013)*UV(3434)+JVS(40015)*UV(3441)+JVS(40018)*UV(3450)+JVS(40019)& - &*UV(3452)+JVS(40020)*UV(3455)+JVS(40021)*UV(3464)+JVS(40022)*UV(3468)+JVS(40023)*UV(3469)+JVS(40024)& - &*UV(3475)+JVS(40025)*UV(3476)+JVS(40026)*UV(3480)+JVS(40027)*UV(3484)+JVS(40028)*UV(3487)+JVS(40029)& - &*UV(3495)+JVS(40030)*UV(3498)+JVS(40031)*UV(3505)+JVS(40032)*UV(3513)+JVS(40034)*UV(3528)+JVS(40035)& - &*UV(3530)+JVS(40036)*UV(3535)+JVS(40039)*UV(3546)+JVS(40040)*UV(3556)+JVS(40041)*UV(3565)+JVS(40042)& - &*UV(3566)+JVS(40043)*UV(3578)+JVS(40044)*UV(3583)+JVS(40045)*UV(3593)+JVS(40046)*UV(3594)+JVS(40047)& - &*UV(3595)+JVS(40048)*UV(3602)+JVS(40049)*UV(3611)+JVS(40050)*UV(3615)+JVS(40052)*UV(3622)+JVS(40053)& - &*UV(3623)+JVS(40054)*UV(3624)+JVS(40055)*UV(3647)+JVS(40056)*UV(3652)+JVS(40057)*UV(3664)+JVS(40058)& - &*UV(3681)+JVS(40059)*UV(3702)+JVS(40062)*UV(3709)+JVS(40063)*UV(3723)+JVS(40064)*UV(3729)+JVS(40065)& - &*UV(3734)+JVS(40066)*UV(3735)+JVS(40067)*UV(3742)+JVS(40068)*UV(3747)+JVS(40069)*UV(3756)+JVS(40070)& - &*UV(3757)+JVS(40071)*UV(3765)+JVS(40073)*UV(3783)+JVS(40074)*UV(3821)+JVS(40075)*UV(3822)+JVS(40076)& - &*UV(3829)+JVS(40077)*UV(3832)+JVS(40079)*UV(3868)+JVS(40082)*UV(3906)+JVS(40084)*UV(3918)+JVS(40086)& - &*UV(3930)+JVS(40087)*UV(3931)+JVS(40088)*UV(3933)+JVS(40090)*UV(3965)+JVS(40091)*UV(3968)+JVS(40093)& - &*UV(3978)+JVS(40094)*UV(3996)+JVS(40095)*UV(4010)+JVS(40097)*UV(4027)+JVS(40099)*UV(4056)+JVS(40100)& - &*UV(4083)+JVS(40101)*UV(4084)+JVS(40111)*UV(4154)+JVS(40114)*UV(4178)+JVS(40118)*UV(4241)+JVS(40120)& - &*UV(4248)+JVS(40121)*UV(4253)+JVS(40122)*UV(4272)+JVS(40123)*UV(4294)+JVS(40124)*UV(4300)+JVS(40129)& - &*UV(4324)+JVS(40130)*UV(4325)+JVS(40133)*UV(4329)+JVS(40134)*UV(4330)+JVS(40141)*UV(4352)+JVS(40144)& - &*UV(4379)+JVS(40145)*UV(4383)+JVS(40147)*UV(4386)+JVS(40150)*UV(4391)+JVS(40151)*UV(4392)+JVS(40152)& - &*UV(4401)+JVS(40158)*UV(4449)+JVS(40167)*UV(4489)+JVS(40169)*UV(4491)+JVS(40170)*UV(4493)+JVS(40171)& - &*UV(4524)+JVS(40172)*UV(4534)+JVS(40177)*UV(4564)+JVS(40181)*UV(4569)+JVS(40197)*UV(4618)+JVS(40199)& - &*UV(4630)+JVS(40204)*UV(4693)+JVS(40205)*UV(4694)+JVS(40218)*UV(4731)+JVS(40237)*UV(4800)+JVS(40238)& - &*UV(4801)+JVS(40240)*UV(4805)+JVS(40253)*UV(4865)+JVS(40268)*UV(4907)+JVS(40279)*UV(4933)+JVS(40283)& - &*UV(4938)+JVS(40294)*UV(4973)+JVS(40297)*UV(4976)+JVS(40314)*UV(5010)+JVS(40324)*UV(5031)+JVS(40326)& - &*UV(5033)+JVS(40329)*UV(5037)+JVS(40337)*UV(5064)+JVS(40343)*UV(5080)+JVS(40354)*UV(5103)+JVS(40355)& - &*UV(5105)+JVS(40358)*UV(5110)+JVS(40376)*UV(5157)+JVS(40378)*UV(5160)+JVS(40386)*UV(5172)+JVS(40392)& - &*UV(5178)+JVS(40396)*UV(5188)+JVS(40400)*UV(5193)+JVS(40404)*UV(5199)+JVS(40421)*UV(5220)+JVS(40423)& - &*UV(5222)+JVS(40425)*UV(5225)+JVS(40427)*UV(5227)+JVS(40437)*UV(5244)+JVS(40443)*UV(5250)+JVS(40445)& - &*UV(5252)+JVS(40446)*UV(5253)+JVS(40448)*UV(5255)+JVS(40449)*UV(5256)+JVS(40451)*UV(5258) - JUV(5245) = JVS(40452)*UV(1199)+JVS(40453)*UV(1620)+JVS(40454)*UV(1660)+JVS(40456)*UV(2813)+JVS(40462)*UV(5245)& - &+JVS(40465)*UV(5250)+JVS(40467)*UV(5252)+JVS(40468)*UV(5253)+JVS(40470)*UV(5255)+JVS(40471)*UV(5256) - JUV(5246) = JVS(40474)*UV(301)+JVS(40475)*UV(1471)+JVS(40476)*UV(2070)+JVS(40477)*UV(3367)+JVS(40478)*UV(3390)& - &+JVS(40479)*UV(3530)+JVS(40480)*UV(3629)+JVS(40481)*UV(3906)+JVS(40488)*UV(5178)+JVS(40489)*UV(5179)& - &+JVS(40492)*UV(5211)+JVS(40497)*UV(5246)+JVS(40501)*UV(5250)+JVS(40503)*UV(5252)+JVS(40506)*UV(5255)& - &+JVS(40507)*UV(5256) - JUV(5247) = JVS(40510)*UV(189)+JVS(40511)*UV(871)+JVS(40513)*UV(1828)+JVS(40516)*UV(3242)+JVS(40529)*UV(5247)& - &+JVS(40532)*UV(5250)+JVS(40534)*UV(5252)+JVS(40537)*UV(5255)+JVS(40538)*UV(5256) - JUV(5248) = JVS(40541)*UV(621)+JVS(40542)*UV(663)+JVS(40543)*UV(667)+JVS(40544)*UV(673)+JVS(40545)*UV(730)+JVS(40546)& - &*UV(1334)+JVS(40548)*UV(1918)+JVS(40551)*UV(3039)+JVS(40552)*UV(3074)+JVS(40558)*UV(4264)+JVS(40559)& - &*UV(4691)+JVS(40560)*UV(5248)+JVS(40562)*UV(5250)+JVS(40563)*UV(5251)+JVS(40564)*UV(5252)+JVS(40565)& - &*UV(5253)+JVS(40566)*UV(5254)+JVS(40568)*UV(5256)+JVS(40569)*UV(5257)+JVS(40570)*UV(5258) - JUV(5249) = JVS(40571)*UV(661)+JVS(40572)*UV(2242)+JVS(40573)*UV(2961)+JVS(40575)*UV(4678)+JVS(40577)*UV(5249)& - &+JVS(40578)*UV(5250)+JVS(40579)*UV(5251)+JVS(40580)*UV(5252)+JVS(40581)*UV(5253)+JVS(40582)*UV(5254)& - &+JVS(40584)*UV(5256)+JVS(40585)*UV(5258) - JUV(5250) = JVS(40586)*UV(4)+JVS(40587)*UV(12)+JVS(40588)*UV(13)+JVS(40589)*UV(15)+JVS(40590)*UV(17)+JVS(40591)*UV(18)& - &+JVS(40592)*UV(19)+JVS(40593)*UV(20)+JVS(40594)*UV(21)+JVS(40595)*UV(22)+JVS(40596)*UV(24)+JVS(40597)& - &*UV(26)+JVS(40598)*UV(27)+JVS(40599)*UV(28)+JVS(40600)*UV(29)+JVS(40601)*UV(30)+JVS(40602)*UV(31)& - &+JVS(40603)*UV(32)+JVS(40604)*UV(33)+JVS(40605)*UV(34)+JVS(40606)*UV(37)+JVS(40607)*UV(38)+JVS(40608)& - &*UV(39)+JVS(40609)*UV(40)+JVS(40610)*UV(41)+JVS(40611)*UV(46)+JVS(40612)*UV(47)+JVS(40613)*UV(48)& - &+JVS(40614)*UV(52)+JVS(40615)*UV(53)+JVS(40616)*UV(54)+JVS(40617)*UV(55)+JVS(40618)*UV(56)+JVS(40619)& - &*UV(58)+JVS(40620)*UV(59)+JVS(40621)*UV(60)+JVS(40622)*UV(61)+JVS(40623)*UV(62)+JVS(40624)*UV(63)& - &+JVS(40625)*UV(64)+JVS(40626)*UV(67)+JVS(40627)*UV(68)+JVS(40628)*UV(70)+JVS(40629)*UV(71)+JVS(40630)& - &*UV(72)+JVS(40631)*UV(73)+JVS(40632)*UV(74)+JVS(40633)*UV(75)+JVS(40634)*UV(77)+JVS(40635)*UV(79)& - &+JVS(40636)*UV(81)+JVS(40637)*UV(83)+JVS(40638)*UV(84)+JVS(40639)*UV(87)+JVS(40640)*UV(89)+JVS(40641)& - &*UV(90)+JVS(40642)*UV(93)+JVS(40643)*UV(94)+JVS(40644)*UV(95)+JVS(40645)*UV(98)+JVS(40646)*UV(99)& - &+JVS(40647)*UV(100)+JVS(40648)*UV(101)+JVS(40649)*UV(102)+JVS(40650)*UV(103)+JVS(40651)*UV(104)+JVS(40652)& - &*UV(105)+JVS(40653)*UV(106)+JVS(40654)*UV(108)+JVS(40655)*UV(109)+JVS(40656)*UV(110)+JVS(40657)*UV(111)& - &+JVS(40658)*UV(112)+JVS(40659)*UV(114)+JVS(40660)*UV(118)+JVS(40661)*UV(119)+JVS(40662)*UV(121)+JVS(40663)& - &*UV(122)+JVS(40664)*UV(123)+JVS(40665)*UV(124)+JVS(40666)*UV(126)+JVS(40667)*UV(127)+JVS(40668)*UV(128)& - &+JVS(40669)*UV(129)+JVS(40670)*UV(131)+JVS(40671)*UV(133)+JVS(40672)*UV(134)+JVS(40673)*UV(135)+JVS(40674)& - &*UV(136)+JVS(40675)*UV(139)+JVS(40676)*UV(143)+JVS(40677)*UV(144)+JVS(40678)*UV(147)+JVS(40679)*UV(148)& - &+JVS(40680)*UV(181)+JVS(40681)*UV(198)+JVS(40682)*UV(207)+JVS(40683)*UV(208)+JVS(40684)*UV(209)+JVS(40685)& - &*UV(210)+JVS(40686)*UV(212)+JVS(40687)*UV(213)+JVS(40688)*UV(214)+JVS(40689)*UV(215)+JVS(40690)*UV(216)& - &+JVS(40691)*UV(217)+JVS(40692)*UV(218)+JVS(40693)*UV(219)+JVS(40694)*UV(220)+JVS(40695)*UV(221)+JVS(40696)& - &*UV(222)+JVS(40697)*UV(223)+JVS(40698)*UV(224)+JVS(40699)*UV(225)+JVS(40700)*UV(226)+JVS(40701)*UV(227)& - &+JVS(40702)*UV(228)+JVS(40703)*UV(229)+JVS(40704)*UV(230)+JVS(40705)*UV(231)+JVS(40706)*UV(232)+JVS(40707)& - &*UV(233)+JVS(40708)*UV(234)+JVS(40709)*UV(235)+JVS(40710)*UV(236)+JVS(40711)*UV(237)+JVS(40712)*UV(238)& - &+JVS(40713)*UV(239)+JVS(40714)*UV(240)+JVS(40715)*UV(241)+JVS(40716)*UV(242)+JVS(40717)*UV(243)+JVS(40718)& - &*UV(244)+JVS(40720)*UV(246)+JVS(40721)*UV(247)+JVS(40722)*UV(248)+JVS(40723)*UV(249)+JVS(40724)*UV(250)& - &+JVS(40725)*UV(251)+JVS(40726)*UV(252)+JVS(40727)*UV(253)+JVS(40728)*UV(255)+JVS(40729)*UV(256)+JVS(40730)& - &*UV(257)+JVS(40731)*UV(258)+JVS(40732)*UV(259)+JVS(40733)*UV(260)+JVS(40734)*UV(262)+JVS(40735)*UV(263)& - &+JVS(40736)*UV(264)+JVS(40737)*UV(265)+JVS(40738)*UV(266)+JVS(40739)*UV(267)+JVS(40740)*UV(268)+JVS(40741)& - &*UV(269)+JVS(40742)*UV(270)+JVS(40743)*UV(272)+JVS(40744)*UV(273)+JVS(40745)*UV(274)+JVS(40746)*UV(275)& - &+JVS(40747)*UV(276)+JVS(40748)*UV(277)+JVS(40749)*UV(278)+JVS(40750)*UV(279)+JVS(40751)*UV(280)+JVS(40752)& - &*UV(281)+JVS(40753)*UV(282)+JVS(40754)*UV(283)+JVS(40755)*UV(284)+JVS(40756)*UV(285)+JVS(40757)*UV(286)& - &+JVS(40758)*UV(287)+JVS(40759)*UV(288)+JVS(40760)*UV(289)+JVS(40761)*UV(291)+JVS(40762)*UV(292)+JVS(40763)& - &*UV(293)+JVS(40764)*UV(294)+JVS(40765)*UV(295)+JVS(40766)*UV(296)+JVS(40767)*UV(298)+JVS(40768)*UV(299)& - &+JVS(40769)*UV(301)+JVS(40770)*UV(302)+JVS(40771)*UV(303)+JVS(40772)*UV(304)+JVS(40773)*UV(305)+JVS(40774)& - &*UV(306)+JVS(40775)*UV(307)+JVS(40776)*UV(308)+JVS(40777)*UV(309)+JVS(40778)*UV(310)+JVS(40779)*UV(311)& - &+JVS(40780)*UV(312)+JVS(40781)*UV(313)+JVS(40782)*UV(314)+JVS(40783)*UV(316)+JVS(40784)*UV(317)+JVS(40785)& - &*UV(318)+JVS(40786)*UV(319)+JVS(40787)*UV(320)+JVS(40788)*UV(321)+JVS(40789)*UV(322)+JVS(40790)*UV(323)& - &+JVS(40791)*UV(324)+JVS(40792)*UV(325)+JVS(40793)*UV(327)+JVS(40794)*UV(328)+JVS(40795)*UV(329)+JVS(40796)& - &*UV(330)+JVS(40797)*UV(331)+JVS(40798)*UV(332)+JVS(40799)*UV(333)+JVS(40800)*UV(334)+JVS(40801)*UV(335)& - &+JVS(40802)*UV(336)+JVS(40803)*UV(337)+JVS(40804)*UV(338)+JVS(40805)*UV(339)+JVS(40806)*UV(340)+JVS(40807)& - &*UV(341)+JVS(40808)*UV(342)+JVS(40809)*UV(343)+JVS(40810)*UV(344)+JVS(40811)*UV(345)+JVS(40812)*UV(346)& - &+JVS(40813)*UV(347)+JVS(40814)*UV(348)+JVS(40815)*UV(349)+JVS(40816)*UV(350)+JVS(40817)*UV(351)+JVS(40818)& - &*UV(352)+JVS(40819)*UV(353)+JVS(40820)*UV(354)+JVS(40821)*UV(355)+JVS(40822)*UV(356)+JVS(40823)*UV(357)& - &+JVS(40824)*UV(358)+JVS(40825)*UV(359)+JVS(40826)*UV(360)+JVS(40827)*UV(361)+JVS(40828)*UV(362)+JVS(40829)& - &*UV(363)+JVS(40830)*UV(364)+JVS(40831)*UV(365)+JVS(40832)*UV(366)+JVS(40833)*UV(367)+JVS(40834)*UV(368)& - &+JVS(40835)*UV(369)+JVS(40836)*UV(371)+JVS(40837)*UV(372)+JVS(40838)*UV(373)+JVS(40839)*UV(374)+JVS(40840)& - &*UV(375)+JVS(40841)*UV(376)+JVS(40842)*UV(377)+JVS(40843)*UV(378)+JVS(40844)*UV(379)+JVS(40845)*UV(380)& - &+JVS(40846)*UV(381)+JVS(40847)*UV(382)+JVS(40848)*UV(383)+JVS(40849)*UV(384)+JVS(40850)*UV(385)+JVS(40851)& - &*UV(386)+JVS(40852)*UV(387)+JVS(40853)*UV(388)+JVS(40854)*UV(389)+JVS(40855)*UV(390)+JVS(40856)*UV(391)& - &+JVS(40857)*UV(392)+JVS(40858)*UV(393)+JVS(40859)*UV(394)+JVS(40860)*UV(395)+JVS(40861)*UV(396)+JVS(40862)& - &*UV(397)+JVS(40863)*UV(398)+JVS(40864)*UV(399)+JVS(40865)*UV(400)+JVS(40866)*UV(401)+JVS(40867)*UV(402)& - &+JVS(40868)*UV(403)+JVS(40869)*UV(404)+JVS(40870)*UV(405)+JVS(40871)*UV(406)+JVS(40872)*UV(408)+JVS(40873)& - &*UV(409)+JVS(40874)*UV(410)+JVS(40875)*UV(411)+JVS(40876)*UV(412)+JVS(40877)*UV(413)+JVS(40878)*UV(414)& - &+JVS(40879)*UV(415)+JVS(40880)*UV(416)+JVS(40881)*UV(417)+JVS(40882)*UV(418)+JVS(40883)*UV(419)+JVS(40884)& - &*UV(420)+JVS(40886)*UV(423)+JVS(40887)*UV(424)+JVS(40888)*UV(425)+JVS(40889)*UV(426)+JVS(40890)*UV(427)& - &+JVS(40891)*UV(428)+JVS(40892)*UV(429)+JVS(40893)*UV(430)+JVS(40894)*UV(431)+JVS(40895)*UV(432)+JVS(40896)& - &*UV(433)+JVS(40897)*UV(434)+JVS(40898)*UV(435)+JVS(40899)*UV(436)+JVS(40900)*UV(437)+JVS(40901)*UV(438)& - &+JVS(40902)*UV(439)+JVS(40903)*UV(440)+JVS(40904)*UV(441)+JVS(40905)*UV(442)+JVS(40906)*UV(444)+JVS(40907)& - &*UV(446)+JVS(40908)*UV(447)+JVS(40909)*UV(448)+JVS(40910)*UV(449)+JVS(40911)*UV(451)+JVS(40912)*UV(452)& - &+JVS(40913)*UV(453)+JVS(40914)*UV(454)+JVS(40915)*UV(455)+JVS(40916)*UV(456)+JVS(40917)*UV(457)+JVS(40918)& - &*UV(458)+JVS(40919)*UV(459)+JVS(40920)*UV(460)+JVS(40921)*UV(461)+JVS(40922)*UV(462)+JVS(40923)*UV(463)& - &+JVS(40924)*UV(464)+JVS(40925)*UV(465)+JVS(40926)*UV(466)+JVS(40927)*UV(467)+JVS(40928)*UV(468)+JVS(40929)& - &*UV(469)+JVS(40930)*UV(470)+JVS(40931)*UV(471)+JVS(40932)*UV(472)+JVS(40933)*UV(473)+JVS(40934)*UV(474)& - &+JVS(40935)*UV(475)+JVS(40936)*UV(476)+JVS(40937)*UV(477)+JVS(40938)*UV(478)+JVS(40939)*UV(479)+JVS(40940)& - &*UV(480)+JVS(40941)*UV(481)+JVS(40942)*UV(482)+JVS(40943)*UV(483)+JVS(40944)*UV(484)+JVS(40945)*UV(485)& - &+JVS(40946)*UV(486)+JVS(40947)*UV(487)+JVS(40948)*UV(488)+JVS(40949)*UV(489)+JVS(40950)*UV(490)+JVS(40951)& - &*UV(491)+JVS(40952)*UV(492)+JVS(40953)*UV(493)+JVS(40954)*UV(494)+JVS(40955)*UV(495)+JVS(40956)*UV(496)& - &+JVS(40957)*UV(497)+JVS(40958)*UV(498)+JVS(40959)*UV(499)+JVS(40960)*UV(500)+JVS(40961)*UV(501)+JVS(40962)& - &*UV(502)+JVS(40963)*UV(503)+JVS(40964)*UV(504)+JVS(40965)*UV(505)+JVS(40966)*UV(506)+JVS(40967)*UV(507)& - &+JVS(40968)*UV(508)+JVS(40969)*UV(509)+JVS(40970)*UV(510)+JVS(40971)*UV(511)+JVS(40972)*UV(512)+JVS(40973)& - &*UV(513)+JVS(40974)*UV(514)+JVS(40975)*UV(515)+JVS(40976)*UV(516)+JVS(40977)*UV(517)+JVS(40978)*UV(518)& - &+JVS(40979)*UV(519)+JVS(40980)*UV(520)+JVS(40981)*UV(521)+JVS(40982)*UV(522)+JVS(40983)*UV(523)+JVS(40984)& - &*UV(524)+JVS(40985)*UV(525)+JVS(40986)*UV(526)+JVS(40987)*UV(527)+JVS(40988)*UV(529)+JVS(40989)*UV(530)& - &+JVS(40990)*UV(531)+JVS(40991)*UV(536)+JVS(40992)*UV(538)+JVS(40993)*UV(540)+JVS(40994)*UV(542)+JVS(40995)& - &*UV(543)+JVS(40996)*UV(546)+JVS(40997)*UV(547)+JVS(40998)*UV(548)+JVS(40999)*UV(554)+JVS(41000)*UV(556)& - &+JVS(41001)*UV(558)+JVS(41002)*UV(559)+JVS(41003)*UV(560)+JVS(41004)*UV(561)+JVS(41005)*UV(562)+JVS(41006)& - &*UV(563)+JVS(41007)*UV(565)+JVS(41008)*UV(566)+JVS(41009)*UV(567)+JVS(41010)*UV(568)+JVS(41011)*UV(569)& - &+JVS(41012)*UV(572)+JVS(41013)*UV(576)+JVS(41014)*UV(577)+JVS(41015)*UV(578)+JVS(41016)*UV(579)+JVS(41017)& - &*UV(580)+JVS(41018)*UV(583)+JVS(41019)*UV(586)+JVS(41020)*UV(587)+JVS(41021)*UV(588)+JVS(41022)*UV(590)& - &+JVS(41023)*UV(591)+JVS(41024)*UV(593)+JVS(41025)*UV(594)+JVS(41026)*UV(598)+JVS(41027)*UV(599)+JVS(41028)& - &*UV(601)+JVS(41029)*UV(602)+JVS(41030)*UV(604)+JVS(41031)*UV(608)+JVS(41032)*UV(609)+JVS(41033)*UV(611)& - &+JVS(41034)*UV(612)+JVS(41035)*UV(613)+JVS(41036)*UV(614)+JVS(41037)*UV(616)+JVS(41038)*UV(621)+JVS(41039)& - &*UV(622)+JVS(41040)*UV(626)+JVS(41041)*UV(628)+JVS(41042)*UV(631)+JVS(41043)*UV(633)+JVS(41044)*UV(634)& - &+JVS(41045)*UV(636)+JVS(41046)*UV(640)+JVS(41047)*UV(642)+JVS(41048)*UV(647)+JVS(41049)*UV(650)+JVS(41050)& - &*UV(651)+JVS(41051)*UV(652)+JVS(41052)*UV(653)+JVS(41053)*UV(657)+JVS(41054)*UV(659)+JVS(41055)*UV(661)& - &+JVS(41056)*UV(662)+JVS(41057)*UV(664)+JVS(41058)*UV(667)+JVS(41059)*UV(668)+JVS(41060)*UV(671)+JVS(41061)& - &*UV(675)+JVS(41062)*UV(676)+JVS(41063)*UV(678)+JVS(41064)*UV(680)+JVS(41065)*UV(681)+JVS(41066)*UV(683)& - &+JVS(41067)*UV(684)+JVS(41068)*UV(685)+JVS(41069)*UV(686)+JVS(41070)*UV(690)+JVS(41071)*UV(691)+JVS(41072)& - &*UV(692)+JVS(41073)*UV(694)+JVS(41074)*UV(696)+JVS(41075)*UV(699)+JVS(41076)*UV(700)+JVS(41077)*UV(705)& - &+JVS(41078)*UV(709)+JVS(41079)*UV(713)+JVS(41080)*UV(718)+JVS(41081)*UV(719)+JVS(41082)*UV(723)+JVS(41083)& - &*UV(725)+JVS(41084)*UV(732)+JVS(41085)*UV(735)+JVS(41086)*UV(736)+JVS(41087)*UV(738)+JVS(41088)*UV(742)& - &+JVS(41089)*UV(751)+JVS(41090)*UV(752)+JVS(41091)*UV(754)+JVS(41092)*UV(757)+JVS(41093)*UV(758)+JVS(41094)& - &*UV(759)+JVS(41095)*UV(762)+JVS(41096)*UV(763)+JVS(41097)*UV(764)+JVS(41098)*UV(766)+JVS(41099)*UV(767)& - &+JVS(41100)*UV(769)+JVS(41101)*UV(771)+JVS(41102)*UV(772)+JVS(41103)*UV(779)+JVS(41104)*UV(785)+JVS(41105)& - &*UV(788)+JVS(41106)*UV(789)+JVS(41107)*UV(790)+JVS(41108)*UV(793)+JVS(41109)*UV(794)+JVS(41110)*UV(796)& - &+JVS(41111)*UV(799)+JVS(41112)*UV(803)+JVS(41113)*UV(804)+JVS(41114)*UV(805)+JVS(41115)*UV(806)+JVS(41116)& - &*UV(807)+JVS(41117)*UV(811)+JVS(41118)*UV(812)+JVS(41119)*UV(813)+JVS(41120)*UV(818)+JVS(41121)*UV(819)& - &+JVS(41122)*UV(821)+JVS(41123)*UV(822)+JVS(41124)*UV(823)+JVS(41125)*UV(824)+JVS(41126)*UV(825)+JVS(41127)& - &*UV(826)+JVS(41128)*UV(827)+JVS(41129)*UV(828)+JVS(41130)*UV(829)+JVS(41131)*UV(830)+JVS(41132)*UV(831)& - &+JVS(41133)*UV(832)+JVS(41134)*UV(833)+JVS(41135)*UV(834)+JVS(41136)*UV(835)+JVS(41137)*UV(836)+JVS(41138)& - &*UV(837)+JVS(41139)*UV(838)+JVS(41140)*UV(839)+JVS(41141)*UV(840)+JVS(41142)*UV(841)+JVS(41143)*UV(842)& - &+JVS(41144)*UV(843)+JVS(41145)*UV(844)+JVS(41146)*UV(845)+JVS(41147)*UV(846)+JVS(41148)*UV(847)+JVS(41149)& - &*UV(848)+JVS(41150)*UV(849)+JVS(41151)*UV(850)+JVS(41152)*UV(851)+JVS(41153)*UV(852)+JVS(41154)*UV(853)& - &+JVS(41155)*UV(854)+JVS(41156)*UV(855)+JVS(41157)*UV(856)+JVS(41158)*UV(857)+JVS(41159)*UV(858)+JVS(41160)& - &*UV(859)+JVS(41161)*UV(860)+JVS(41162)*UV(861)+JVS(41163)*UV(862)+JVS(41164)*UV(863)+JVS(41165)*UV(864)& - &+JVS(41166)*UV(865)+JVS(41167)*UV(866)+JVS(41168)*UV(867)+JVS(41169)*UV(868)+JVS(41170)*UV(869)+JVS(41171)& - &*UV(870)+JVS(41172)*UV(871)+JVS(41173)*UV(872)+JVS(41174)*UV(873)+JVS(41175)*UV(874)+JVS(41176)*UV(875)& - &+JVS(41177)*UV(876)+JVS(41178)*UV(877)+JVS(41179)*UV(878)+JVS(41180)*UV(879)+JVS(41181)*UV(880)+JVS(41182)& - &*UV(881)+JVS(41183)*UV(882)+JVS(41184)*UV(883)+JVS(41185)*UV(884)+JVS(41186)*UV(885)+JVS(41187)*UV(886)& - &+JVS(41188)*UV(887)+JVS(41189)*UV(888)+JVS(41190)*UV(889)+JVS(41191)*UV(890)+JVS(41192)*UV(891)+JVS(41193)& - &*UV(892)+JVS(41194)*UV(893)+JVS(41195)*UV(894)+JVS(41196)*UV(895)+JVS(41197)*UV(896)+JVS(41198)*UV(897)& - &+JVS(41199)*UV(898)+JVS(41200)*UV(899)+JVS(41201)*UV(900)+JVS(41202)*UV(901)+JVS(41203)*UV(902)+JVS(41204)& - &*UV(903)+JVS(41205)*UV(904)+JVS(41206)*UV(905)+JVS(41207)*UV(906)+JVS(41208)*UV(907)+JVS(41209)*UV(908)& - &+JVS(41210)*UV(909)+JVS(41211)*UV(910)+JVS(41212)*UV(911)+JVS(41213)*UV(912)+JVS(41214)*UV(913)+JVS(41215)& - &*UV(914)+JVS(41216)*UV(915)+JVS(41217)*UV(916)+JVS(41218)*UV(917)+JVS(41219)*UV(918)+JVS(41220)*UV(919)& - &+JVS(41221)*UV(920)+JVS(41222)*UV(921)+JVS(41223)*UV(922)+JVS(41224)*UV(923)+JVS(41225)*UV(924)+JVS(41226)& - &*UV(925)+JVS(41227)*UV(926)+JVS(41228)*UV(927)+JVS(41229)*UV(928)+JVS(41230)*UV(929)+JVS(41231)*UV(930)& - &+JVS(41232)*UV(931)+JVS(41233)*UV(932)+JVS(41234)*UV(933)+JVS(41235)*UV(934)+JVS(41236)*UV(935)+JVS(41237)& - &*UV(936)+JVS(41238)*UV(937)+JVS(41239)*UV(938)+JVS(41240)*UV(939)+JVS(41241)*UV(940)+JVS(41242)*UV(941)& - &+JVS(41243)*UV(942)+JVS(41244)*UV(943)+JVS(41245)*UV(944)+JVS(41246)*UV(945)+JVS(41247)*UV(946)+JVS(41248)& - &*UV(947)+JVS(41249)*UV(948)+JVS(41250)*UV(949)+JVS(41251)*UV(950)+JVS(41252)*UV(951)+JVS(41253)*UV(952)& - &+JVS(41254)*UV(953)+JVS(41255)*UV(954)+JVS(41256)*UV(955)+JVS(41257)*UV(956)+JVS(41258)*UV(957)+JVS(41259)& - &*UV(958)+JVS(41260)*UV(959)+JVS(41261)*UV(960)+JVS(41262)*UV(961)+JVS(41263)*UV(962)+JVS(41264)*UV(963)& - &+JVS(41265)*UV(964)+JVS(41266)*UV(965)+JVS(41267)*UV(966)+JVS(41268)*UV(967)+JVS(41269)*UV(968)+JVS(41270)& - &*UV(969)+JVS(41271)*UV(970)+JVS(41272)*UV(971)+JVS(41273)*UV(972)+JVS(41274)*UV(973)+JVS(41275)*UV(974)& - &+JVS(41276)*UV(975)+JVS(41277)*UV(976)+JVS(41278)*UV(977)+JVS(41279)*UV(978)+JVS(41280)*UV(979)+JVS(41281)& - &*UV(980)+JVS(41282)*UV(981)+JVS(41283)*UV(982)+JVS(41284)*UV(983)+JVS(41285)*UV(984)+JVS(41286)*UV(985)& - &+JVS(41287)*UV(986)+JVS(41288)*UV(987)+JVS(41289)*UV(988)+JVS(41290)*UV(989)+JVS(41291)*UV(990)+JVS(41292)& - &*UV(991)+JVS(41293)*UV(992)+JVS(41294)*UV(993)+JVS(41295)*UV(994)+JVS(41296)*UV(995)+JVS(41297)*UV(996)& - &+JVS(41298)*UV(997)+JVS(41299)*UV(998)+JVS(41300)*UV(999)+JVS(41301)*UV(1000)+JVS(41302)*UV(1001)& - &+JVS(41303)*UV(1002)+JVS(41304)*UV(1003)+JVS(41305)*UV(1004)+JVS(41306)*UV(1005)+JVS(41307)*UV(1006)& - &+JVS(41308)*UV(1007)+JVS(41309)*UV(1008)+JVS(41310)*UV(1009)+JVS(41311)*UV(1010)+JVS(41312)*UV(1012)& - &+JVS(41313)*UV(1014)+JVS(41314)*UV(1015)+JVS(41315)*UV(1016)+JVS(41316)*UV(1017)+JVS(41317)*UV(1018)& - &+JVS(41318)*UV(1019)+JVS(41319)*UV(1020)+JVS(41320)*UV(1021)+JVS(41321)*UV(1022)+JVS(41322)*UV(1023)& - &+JVS(41323)*UV(1024)+JVS(41324)*UV(1025)+JVS(41325)*UV(1026)+JVS(41326)*UV(1027)+JVS(41327)*UV(1028)& - &+JVS(41328)*UV(1029)+JVS(41329)*UV(1030)+JVS(41330)*UV(1031)+JVS(41331)*UV(1032)+JVS(41332)*UV(1033)& - &+JVS(41333)*UV(1034)+JVS(41334)*UV(1035)+JVS(41335)*UV(1036)+JVS(41336)*UV(1037)+JVS(41337)*UV(1038)& - &+JVS(41338)*UV(1039)+JVS(41339)*UV(1040)+JVS(41340)*UV(1041)+JVS(41341)*UV(1042)+JVS(41342)*UV(1043)& - &+JVS(41343)*UV(1044)+JVS(41344)*UV(1045)+JVS(41345)*UV(1046)+JVS(41346)*UV(1047)+JVS(41347)*UV(1048)& - &+JVS(41348)*UV(1049)+JVS(41349)*UV(1050)+JVS(41350)*UV(1051)+JVS(41351)*UV(1052)+JVS(41352)*UV(1053)& - &+JVS(41353)*UV(1054)+JVS(41354)*UV(1055)+JVS(41355)*UV(1056)+JVS(41356)*UV(1057)+JVS(41357)*UV(1058)& - &+JVS(41358)*UV(1059)+JVS(41359)*UV(1060)+JVS(41360)*UV(1061)+JVS(41361)*UV(1062)+JVS(41362)*UV(1063)& - &+JVS(41363)*UV(1064)+JVS(41364)*UV(1065)+JVS(41365)*UV(1066)+JVS(41366)*UV(1067)+JVS(41367)*UV(1068)& - &+JVS(41368)*UV(1069)+JVS(41369)*UV(1070)+JVS(41370)*UV(1071)+JVS(41371)*UV(1072)+JVS(41372)*UV(1073)& - &+JVS(41373)*UV(1074)+JVS(41374)*UV(1075)+JVS(41375)*UV(1076)+JVS(41376)*UV(1077)+JVS(41377)*UV(1078)& - &+JVS(41378)*UV(1079)+JVS(41379)*UV(1080)+JVS(41380)*UV(1081)+JVS(41381)*UV(1082)+JVS(41382)*UV(1083)& - &+JVS(41383)*UV(1084)+JVS(41384)*UV(1085)+JVS(41385)*UV(1086)+JVS(41386)*UV(1087)+JVS(41387)*UV(1088)& - &+JVS(41388)*UV(1089)+JVS(41389)*UV(1090)+JVS(41390)*UV(1091)+JVS(41391)*UV(1092)+JVS(41392)*UV(1093)& - &+JVS(41393)*UV(1094)+JVS(41394)*UV(1095)+JVS(41395)*UV(1096)+JVS(41396)*UV(1097)+JVS(41397)*UV(1098)& - &+JVS(41398)*UV(1099)+JVS(41399)*UV(1100)+JVS(41400)*UV(1101)+JVS(41401)*UV(1102)+JVS(41402)*UV(1103)& - &+JVS(41403)*UV(1104)+JVS(41404)*UV(1105)+JVS(41405)*UV(1106)+JVS(41406)*UV(1107)+JVS(41407)*UV(1108)& - &+JVS(41408)*UV(1109)+JVS(41409)*UV(1110)+JVS(41410)*UV(1111)+JVS(41411)*UV(1112)+JVS(41412)*UV(1113)& - &+JVS(41413)*UV(1114)+JVS(41414)*UV(1115)+JVS(41415)*UV(1116)+JVS(41416)*UV(1117)+JVS(41417)*UV(1118)& - &+JVS(41418)*UV(1119)+JVS(41419)*UV(1120)+JVS(41420)*UV(1121)+JVS(41421)*UV(1122)+JVS(41422)*UV(1123)& - &+JVS(41423)*UV(1124)+JVS(41424)*UV(1125)+JVS(41425)*UV(1126)+JVS(41426)*UV(1127)+JVS(41427)*UV(1128)& - &+JVS(41428)*UV(1129)+JVS(41429)*UV(1130)+JVS(41430)*UV(1131)+JVS(41431)*UV(1132)+JVS(41432)*UV(1133)& - &+JVS(41433)*UV(1134)+JVS(41434)*UV(1135)+JVS(41435)*UV(1136)+JVS(41436)*UV(1137)+JVS(41437)*UV(1138)& - &+JVS(41438)*UV(1139)+JVS(41439)*UV(1140)+JVS(41440)*UV(1141)+JVS(41441)*UV(1142)+JVS(41442)*UV(1143)& - &+JVS(41443)*UV(1144)+JVS(41444)*UV(1145)+JVS(41445)*UV(1146)+JVS(41446)*UV(1147)+JVS(41447)*UV(1148)& - &+JVS(41448)*UV(1149)+JVS(41449)*UV(1150)+JVS(41450)*UV(1151)+JVS(41451)*UV(1152)+JVS(41452)*UV(1153)& - &+JVS(41453)*UV(1154)+JVS(41454)*UV(1155)+JVS(41455)*UV(1156)+JVS(41456)*UV(1157)+JVS(41457)*UV(1158)& - &+JVS(41458)*UV(1159)+JVS(41459)*UV(1160)+JVS(41460)*UV(1161)+JVS(41461)*UV(1162)+JVS(41462)*UV(1163)& - &+JVS(41463)*UV(1164)+JVS(41464)*UV(1165)+JVS(41465)*UV(1166)+JVS(41466)*UV(1167)+JVS(41467)*UV(1168)& - &+JVS(41468)*UV(1169)+JVS(41469)*UV(1170)+JVS(41470)*UV(1171)+JVS(41471)*UV(1172)+JVS(41472)*UV(1173)& - &+JVS(41473)*UV(1174)+JVS(41474)*UV(1175)+JVS(41475)*UV(1176)+JVS(41476)*UV(1177)+JVS(41477)*UV(1178)& - &+JVS(41478)*UV(1179)+JVS(41479)*UV(1180)+JVS(41480)*UV(1181)+JVS(41481)*UV(1182)+JVS(41482)*UV(1183)& - &+JVS(41483)*UV(1184)+JVS(41484)*UV(1185)+JVS(41485)*UV(1186)+JVS(41486)*UV(1187)+JVS(41487)*UV(1188)& - &+JVS(41488)*UV(1189)+JVS(41489)*UV(1190)+JVS(41490)*UV(1191)+JVS(41491)*UV(1192)+JVS(41492)*UV(1193)& - &+JVS(41493)*UV(1194)+JVS(41494)*UV(1195)+JVS(41495)*UV(1196)+JVS(41496)*UV(1197)+JVS(41497)*UV(1198)& - &+JVS(41498)*UV(1199)+JVS(41499)*UV(1200)+JVS(41500)*UV(1201)+JVS(41501)*UV(1202)+JVS(41502)*UV(1203)& - &+JVS(41503)*UV(1204)+JVS(41504)*UV(1205)+JVS(41505)*UV(1206)+JVS(41506)*UV(1207)+JVS(41507)*UV(1208)& - &+JVS(41508)*UV(1209)+JVS(41509)*UV(1210)+JVS(41510)*UV(1211)+JVS(41511)*UV(1212)+JVS(41512)*UV(1213)& - &+JVS(41513)*UV(1214)+JVS(41514)*UV(1215)+JVS(41515)*UV(1216)+JVS(41516)*UV(1217)+JVS(41517)*UV(1218)& - &+JVS(41518)*UV(1219)+JVS(41519)*UV(1220)+JVS(41520)*UV(1221)+JVS(41521)*UV(1222)+JVS(41522)*UV(1223)& - &+JVS(41523)*UV(1224)+JVS(41524)*UV(1225)+JVS(41525)*UV(1226)+JVS(41526)*UV(1227)+JVS(41527)*UV(1228)& - &+JVS(41528)*UV(1229)+JVS(41529)*UV(1230)+JVS(41530)*UV(1231)+JVS(41531)*UV(1232)+JVS(41532)*UV(1233)& - &+JVS(41533)*UV(1234)+JVS(41534)*UV(1235)+JVS(41535)*UV(1236)+JVS(41536)*UV(1237)+JVS(41537)*UV(1238)& - &+JVS(41538)*UV(1239)+JVS(41539)*UV(1241)+JVS(41540)*UV(1242)+JVS(41541)*UV(1243)+JVS(41542)*UV(1244)& - &+JVS(41543)*UV(1245)+JVS(41544)*UV(1246)+JVS(41545)*UV(1247)+JVS(41546)*UV(1248)+JVS(41547)*UV(1249)& - &+JVS(41548)*UV(1250)+JVS(41549)*UV(1251)+JVS(41550)*UV(1252)+JVS(41551)*UV(1253)+JVS(41552)*UV(1254)& - &+JVS(41553)*UV(1255)+JVS(41554)*UV(1256)+JVS(41555)*UV(1257)+JVS(41556)*UV(1258)+JVS(41557)*UV(1259)& - &+JVS(41558)*UV(1260)+JVS(41559)*UV(1261)+JVS(41560)*UV(1262)+JVS(41561)*UV(1263)+JVS(41562)*UV(1264)& - &+JVS(41563)*UV(1265)+JVS(41564)*UV(1266)+JVS(41565)*UV(1267)+JVS(41566)*UV(1268)+JVS(41567)*UV(1269)& - &+JVS(41568)*UV(1270)+JVS(41569)*UV(1271)+JVS(41570)*UV(1272)+JVS(41571)*UV(1273)+JVS(41572)*UV(1274)& - &+JVS(41573)*UV(1275)+JVS(41574)*UV(1276)+JVS(41575)*UV(1277)+JVS(41576)*UV(1278)+JVS(41577)*UV(1279)& - &+JVS(41578)*UV(1280)+JVS(41579)*UV(1281)+JVS(41580)*UV(1282)+JVS(41581)*UV(1283)+JVS(41582)*UV(1284)& - &+JVS(41583)*UV(1285)+JVS(41584)*UV(1286)+JVS(41585)*UV(1287)+JVS(41586)*UV(1288)+JVS(41587)*UV(1289)& - &+JVS(41588)*UV(1290)+JVS(41589)*UV(1291)+JVS(41590)*UV(1292)+JVS(41591)*UV(1293)+JVS(41592)*UV(1294)& - &+JVS(41593)*UV(1295)+JVS(41594)*UV(1296)+JVS(41595)*UV(1297)+JVS(41596)*UV(1298)+JVS(41597)*UV(1299)& - &+JVS(41598)*UV(1300)+JVS(41599)*UV(1301)+JVS(41600)*UV(1302)+JVS(41601)*UV(1303)+JVS(41602)*UV(1304)& - &+JVS(41603)*UV(1305)+JVS(41604)*UV(1306)+JVS(41605)*UV(1307)+JVS(41606)*UV(1308)+JVS(41607)*UV(1309)& - &+JVS(41608)*UV(1310)+JVS(41609)*UV(1311)+JVS(41610)*UV(1312)+JVS(41611)*UV(1313)+JVS(41612)*UV(1314)& - &+JVS(41613)*UV(1315)+JVS(41614)*UV(1316)+JVS(41615)*UV(1317)+JVS(41616)*UV(1318)+JVS(41617)*UV(1319)& - &+JVS(41618)*UV(1320)+JVS(41619)*UV(1321)+JVS(41620)*UV(1322)+JVS(41621)*UV(1323)+JVS(41622)*UV(1324)& - &+JVS(41623)*UV(1325)+JVS(41624)*UV(1326)+JVS(41625)*UV(1327)+JVS(41626)*UV(1328)+JVS(41627)*UV(1329)& - &+JVS(41628)*UV(1330)+JVS(41629)*UV(1331)+JVS(41630)*UV(1332)+JVS(41631)*UV(1333)+JVS(41632)*UV(1334)& - &+JVS(41633)*UV(1335)+JVS(41634)*UV(1336)+JVS(41635)*UV(1337)+JVS(41636)*UV(1338)+JVS(41637)*UV(1339)& - &+JVS(41638)*UV(1340)+JVS(41639)*UV(1341)+JVS(41640)*UV(1342)+JVS(41641)*UV(1343)+JVS(41642)*UV(1344)& - &+JVS(41643)*UV(1345)+JVS(41644)*UV(1346)+JVS(41645)*UV(1347)+JVS(41646)*UV(1348)+JVS(41647)*UV(1349)& - &+JVS(41648)*UV(1350)+JVS(41649)*UV(1351)+JVS(41650)*UV(1352)+JVS(41651)*UV(1353)+JVS(41652)*UV(1354)& - &+JVS(41653)*UV(1355)+JVS(41654)*UV(1356)+JVS(41655)*UV(1357)+JVS(41656)*UV(1358)+JVS(41657)*UV(1359)& - &+JVS(41658)*UV(1360)+JVS(41659)*UV(1361)+JVS(41660)*UV(1362)+JVS(41661)*UV(1363)+JVS(41662)*UV(1364)& - &+JVS(41663)*UV(1365)+JVS(41664)*UV(1366)+JVS(41665)*UV(1367)+JVS(41666)*UV(1368)+JVS(41667)*UV(1369)& - &+JVS(41668)*UV(1370)+JVS(41669)*UV(1371)+JVS(41670)*UV(1372)+JVS(41671)*UV(1373)+JVS(41672)*UV(1374)& - &+JVS(41673)*UV(1375)+JVS(41674)*UV(1376)+JVS(41675)*UV(1377)+JVS(41676)*UV(1378)+JVS(41677)*UV(1379)& - &+JVS(41678)*UV(1380)+JVS(41679)*UV(1381)+JVS(41680)*UV(1382)+JVS(41681)*UV(1383)+JVS(41682)*UV(1384)& - &+JVS(41683)*UV(1385)+JVS(41684)*UV(1386)+JVS(41685)*UV(1387)+JVS(41686)*UV(1388)+JVS(41687)*UV(1389)& - &+JVS(41688)*UV(1390)+JVS(41689)*UV(1391)+JVS(41690)*UV(1392)+JVS(41691)*UV(1393)+JVS(41692)*UV(1394)& - &+JVS(41693)*UV(1395)+JVS(41694)*UV(1396)+JVS(41695)*UV(1397)+JVS(41696)*UV(1398)+JVS(41697)*UV(1399)& - &+JVS(41698)*UV(1400)+JVS(41699)*UV(1401)+JVS(41700)*UV(1402)+JVS(41701)*UV(1403)+JVS(41702)*UV(1404)& - &+JVS(41703)*UV(1405)+JVS(41704)*UV(1406)+JVS(41705)*UV(1407)+JVS(41706)*UV(1408)+JVS(41707)*UV(1409)& - &+JVS(41708)*UV(1410)+JVS(41709)*UV(1411)+JVS(41710)*UV(1412)+JVS(41711)*UV(1413)+JVS(41712)*UV(1414)& - &+JVS(41713)*UV(1415)+JVS(41714)*UV(1416)+JVS(41715)*UV(1417)+JVS(41716)*UV(1418)+JVS(41717)*UV(1419)& - &+JVS(41718)*UV(1420)+JVS(41719)*UV(1421)+JVS(41720)*UV(1422)+JVS(41721)*UV(1423)+JVS(41722)*UV(1424)& - &+JVS(41723)*UV(1425)+JVS(41724)*UV(1426)+JVS(41725)*UV(1427)+JVS(41726)*UV(1428)+JVS(41727)*UV(1429)& - &+JVS(41728)*UV(1430)+JVS(41729)*UV(1431)+JVS(41730)*UV(1432)+JVS(41731)*UV(1433)+JVS(41732)*UV(1434)& - &+JVS(41733)*UV(1435)+JVS(41734)*UV(1436)+JVS(41735)*UV(1437)+JVS(41736)*UV(1438)+JVS(41737)*UV(1439)& - &+JVS(41738)*UV(1440)+JVS(41739)*UV(1441)+JVS(41740)*UV(1442)+JVS(41741)*UV(1443)+JVS(41742)*UV(1444)& - &+JVS(41743)*UV(1445)+JVS(41744)*UV(1446)+JVS(41745)*UV(1447)+JVS(41746)*UV(1448)+JVS(41747)*UV(1449)& - &+JVS(41748)*UV(1450)+JVS(41749)*UV(1451)+JVS(41750)*UV(1452)+JVS(41751)*UV(1453)+JVS(41752)*UV(1454)& - &+JVS(41753)*UV(1455)+JVS(41754)*UV(1456)+JVS(41755)*UV(1457)+JVS(41756)*UV(1458)+JVS(41757)*UV(1459)& - &+JVS(41758)*UV(1460)+JVS(41759)*UV(1461)+JVS(41760)*UV(1462)+JVS(41761)*UV(1463)+JVS(41762)*UV(1464)& - &+JVS(41763)*UV(1465)+JVS(41764)*UV(1466)+JVS(41765)*UV(1467)+JVS(41766)*UV(1468)+JVS(41767)*UV(1469)& - &+JVS(41768)*UV(1470)+JVS(41769)*UV(1471)+JVS(41770)*UV(1472)+JVS(41771)*UV(1473)+JVS(41772)*UV(1474)& - &+JVS(41773)*UV(1475)+JVS(41774)*UV(1476)+JVS(41775)*UV(1477)+JVS(41776)*UV(1478)+JVS(41777)*UV(1479)& - &+JVS(41778)*UV(1480)+JVS(41779)*UV(1481)+JVS(41780)*UV(1482)+JVS(41781)*UV(1483)+JVS(41782)*UV(1484)& - &+JVS(41783)*UV(1485)+JVS(41784)*UV(1486)+JVS(41785)*UV(1487)+JVS(41786)*UV(1488)+JVS(41787)*UV(1489)& - &+JVS(41788)*UV(1490)+JVS(41789)*UV(1491)+JVS(41790)*UV(1492)+JVS(41791)*UV(1493)+JVS(41792)*UV(1494)& - &+JVS(41793)*UV(1495)+JVS(41794)*UV(1496)+JVS(41795)*UV(1497)+JVS(41796)*UV(1498)+JVS(41797)*UV(1499)& - &+JVS(41798)*UV(1500)+JVS(41799)*UV(1501)+JVS(41800)*UV(1502)+JVS(41801)*UV(1503)+JVS(41802)*UV(1504)& - &+JVS(41803)*UV(1505)+JVS(41804)*UV(1506)+JVS(41805)*UV(1507)+JVS(41806)*UV(1508)+JVS(41807)*UV(1509)& - &+JVS(41808)*UV(1510)+JVS(41809)*UV(1511)+JVS(41810)*UV(1512)+JVS(41811)*UV(1513)+JVS(41812)*UV(1514)& - &+JVS(41813)*UV(1515)+JVS(41814)*UV(1516)+JVS(41815)*UV(1517)+JVS(41816)*UV(1518)+JVS(41817)*UV(1519)& - &+JVS(41818)*UV(1520)+JVS(41819)*UV(1521)+JVS(41820)*UV(1522)+JVS(41821)*UV(1523)+JVS(41822)*UV(1524)& - &+JVS(41823)*UV(1525)+JVS(41824)*UV(1526)+JVS(41825)*UV(1527)+JVS(41826)*UV(1528)+JVS(41827)*UV(1529)& - &+JVS(41828)*UV(1530)+JVS(41829)*UV(1531)+JVS(41830)*UV(1532)+JVS(41831)*UV(1533)+JVS(41832)*UV(1534)& - &+JVS(41833)*UV(1535)+JVS(41834)*UV(1536)+JVS(41835)*UV(1537)+JVS(41836)*UV(1538)+JVS(41837)*UV(1539)& - &+JVS(41838)*UV(1540)+JVS(41839)*UV(1541)+JVS(41840)*UV(1542)+JVS(41841)*UV(1543)+JVS(41842)*UV(1544)& - &+JVS(41843)*UV(1545)+JVS(41844)*UV(1546)+JVS(41845)*UV(1547)+JVS(41846)*UV(1548)+JVS(41847)*UV(1549)& - &+JVS(41848)*UV(1550)+JVS(41849)*UV(1551)+JVS(41850)*UV(1554)+JVS(41851)*UV(1555)+JVS(41852)*UV(1557)& - &+JVS(41853)*UV(1558)+JVS(41854)*UV(1560)+JVS(41855)*UV(1561)+JVS(41856)*UV(1562)+JVS(41857)*UV(1565)& - &+JVS(41858)*UV(1566)+JVS(41859)*UV(1567)+JVS(41860)*UV(1569)+JVS(41861)*UV(1570)+JVS(41862)*UV(1571)& - &+JVS(41863)*UV(1573)+JVS(41864)*UV(1575)+JVS(41865)*UV(1576)+JVS(41866)*UV(1577)+JVS(41867)*UV(1578)& - &+JVS(41868)*UV(1580)+JVS(41869)*UV(1581)+JVS(41870)*UV(1582)+JVS(41871)*UV(1584)+JVS(41872)*UV(1585)& - &+JVS(41873)*UV(1586)+JVS(41874)*UV(1587)+JVS(41875)*UV(1588)+JVS(41876)*UV(1589)+JVS(41877)*UV(1590)& - &+JVS(41878)*UV(1591)+JVS(41879)*UV(1594)+JVS(41880)*UV(1596)+JVS(41881)*UV(1598)+JVS(41882)*UV(1599)& - &+JVS(41883)*UV(1600)+JVS(41884)*UV(1601)+JVS(41885)*UV(1602)+JVS(41886)*UV(1603)+JVS(41887)*UV(1604)& - &+JVS(41888)*UV(1609)+JVS(41889)*UV(1610)+JVS(41890)*UV(1611)+JVS(41891)*UV(1612)+JVS(41892)*UV(1613)& - &+JVS(41893)*UV(1615)+JVS(41894)*UV(1618)+JVS(41895)*UV(1619)+JVS(41896)*UV(1621)+JVS(41897)*UV(1623)& - &+JVS(41898)*UV(1625)+JVS(41899)*UV(1626)+JVS(41900)*UV(1628)+JVS(41901)*UV(1629)+JVS(41902)*UV(1630)& - &+JVS(41903)*UV(1632)+JVS(41904)*UV(1633)+JVS(41905)*UV(1635)+JVS(41906)*UV(1636)+JVS(41907)*UV(1637)& - &+JVS(41908)*UV(1639)+JVS(41909)*UV(1641)+JVS(41910)*UV(1642)+JVS(41911)*UV(1643)+JVS(41912)*UV(1644)& - &+JVS(41913)*UV(1646)+JVS(41914)*UV(1647)+JVS(41915)*UV(1648)+JVS(41916)*UV(1649)+JVS(41917)*UV(1651)& - &+JVS(41918)*UV(1653)+JVS(41919)*UV(1655)+JVS(41920)*UV(1656)+JVS(41921)*UV(1657)+JVS(41922)*UV(1658)& - &+JVS(41923)*UV(1659)+JVS(41924)*UV(1660)+JVS(41925)*UV(1664)+JVS(41926)*UV(1665)+JVS(41927)*UV(1666)& - &+JVS(41928)*UV(1668)+JVS(41929)*UV(1669)+JVS(41930)*UV(1670)+JVS(41931)*UV(1671)+JVS(41932)*UV(1672)& - &+JVS(41933)*UV(1673)+JVS(41934)*UV(1674)+JVS(41935)*UV(1676)+JVS(41936)*UV(1678)+JVS(41937)*UV(1681)& - &+JVS(41938)*UV(1682)+JVS(41939)*UV(1683)+JVS(41940)*UV(1685)+JVS(41941)*UV(1686)+JVS(41942)*UV(1687)& - &+JVS(41943)*UV(1688)+JVS(41944)*UV(1690)+JVS(41945)*UV(1693)+JVS(41946)*UV(1694)+JVS(41947)*UV(1696)& - &+JVS(41948)*UV(1697)+JVS(41949)*UV(1698)+JVS(41950)*UV(1700)+JVS(41951)*UV(1701)+JVS(41952)*UV(1703)& - &+JVS(41953)*UV(1704)+JVS(41954)*UV(1705)+JVS(41955)*UV(1706)+JVS(41956)*UV(1707)+JVS(41957)*UV(1708)& - &+JVS(41958)*UV(1709)+JVS(41959)*UV(1711)+JVS(41960)*UV(1712)+JVS(41961)*UV(1716)+JVS(41962)*UV(1717)& - &+JVS(41963)*UV(1718)+JVS(41964)*UV(1719)+JVS(41965)*UV(1722)+JVS(41966)*UV(1726)+JVS(41967)*UV(1728)& - &+JVS(41968)*UV(1729)+JVS(41969)*UV(1730)+JVS(41970)*UV(1731)+JVS(41971)*UV(1733)+JVS(41972)*UV(1734)& - &+JVS(41973)*UV(1735)+JVS(41974)*UV(1736)+JVS(41975)*UV(1738)+JVS(41976)*UV(1740)+JVS(41977)*UV(1742)& - &+JVS(41978)*UV(1744)+JVS(41979)*UV(1746)+JVS(41980)*UV(1747)+JVS(41981)*UV(1749)+JVS(41982)*UV(1751)& - &+JVS(41983)*UV(1752)+JVS(41984)*UV(1753)+JVS(41985)*UV(1756)+JVS(41986)*UV(1757)+JVS(41987)*UV(1758)& - &+JVS(41988)*UV(1759)+JVS(41989)*UV(1761)+JVS(41990)*UV(1762)+JVS(41991)*UV(1763)+JVS(41992)*UV(1764)& - &+JVS(41993)*UV(1765)+JVS(41994)*UV(1766)+JVS(41995)*UV(1767)+JVS(41996)*UV(1768)+JVS(41997)*UV(1770)& - &+JVS(41998)*UV(1771)+JVS(41999)*UV(1772)+JVS(42000)*UV(1774)+JVS(42001)*UV(1775)+JVS(42002)*UV(1776)& - &+JVS(42003)*UV(1777)+JVS(42004)*UV(1778)+JVS(42005)*UV(1779)+JVS(42006)*UV(1780)+JVS(42007)*UV(1782)& - &+JVS(42008)*UV(1783)+JVS(42009)*UV(1784)+JVS(42010)*UV(1785)+JVS(42011)*UV(1786)+JVS(42012)*UV(1788)& - &+JVS(42013)*UV(1790)+JVS(42014)*UV(1791)+JVS(42015)*UV(1793)+JVS(42016)*UV(1794)+JVS(42017)*UV(1795)& - &+JVS(42018)*UV(1797)+JVS(42019)*UV(1798)+JVS(42020)*UV(1800)+JVS(42021)*UV(1801)+JVS(42022)*UV(1802)& - &+JVS(42023)*UV(1804)+JVS(42024)*UV(1805)+JVS(42025)*UV(1806)+JVS(42026)*UV(1807)+JVS(42027)*UV(1809)& - &+JVS(42028)*UV(1811)+JVS(42029)*UV(1813)+JVS(42030)*UV(1816)+JVS(42031)*UV(1817)+JVS(42032)*UV(1819)& - &+JVS(42033)*UV(1823)+JVS(42034)*UV(1824)+JVS(42035)*UV(1826)+JVS(42036)*UV(1827)+JVS(42037)*UV(1828)& - &+JVS(42038)*UV(1829)+JVS(42039)*UV(1830)+JVS(42040)*UV(1831)+JVS(42041)*UV(1832)+JVS(42042)*UV(1834)& - &+JVS(42043)*UV(1835)+JVS(42044)*UV(1836)+JVS(42045)*UV(1837)+JVS(42046)*UV(1839)+JVS(42047)*UV(1840)& - &+JVS(42048)*UV(1841)+JVS(42049)*UV(1842)+JVS(42050)*UV(1843)+JVS(42051)*UV(1844)+JVS(42052)*UV(1845)& - &+JVS(42053)*UV(1846)+JVS(42054)*UV(1849)+JVS(42055)*UV(1850)+JVS(42056)*UV(1851)+JVS(42057)*UV(1853)& - &+JVS(42058)*UV(1854)+JVS(42059)*UV(1855)+JVS(42060)*UV(1856)+JVS(42061)*UV(1857)+JVS(42062)*UV(1858)& - &+JVS(42063)*UV(1859)+JVS(42064)*UV(1861)+JVS(42065)*UV(1862)+JVS(42066)*UV(1863)+JVS(42067)*UV(1864)& - &+JVS(42068)*UV(1868)+JVS(42069)*UV(1869)+JVS(42070)*UV(1870)+JVS(42071)*UV(1871)+JVS(42072)*UV(1873)& - &+JVS(42073)*UV(1874)+JVS(42074)*UV(1875)+JVS(42075)*UV(1876)+JVS(42076)*UV(1878)+JVS(42077)*UV(1879)& - &+JVS(42078)*UV(1880)+JVS(42079)*UV(1881)+JVS(42080)*UV(1883)+JVS(42081)*UV(1884)+JVS(42082)*UV(1885)& - &+JVS(42083)*UV(1886)+JVS(42084)*UV(1887)+JVS(42085)*UV(1888)+JVS(42086)*UV(1889)+JVS(42087)*UV(1890)& - &+JVS(42088)*UV(1893)+JVS(42089)*UV(1894)+JVS(42090)*UV(1895)+JVS(42091)*UV(1896)+JVS(42092)*UV(1897)& - &+JVS(42093)*UV(1898)+JVS(42094)*UV(1899)+JVS(42095)*UV(1900)+JVS(42096)*UV(1901)+JVS(42097)*UV(1902)& - &+JVS(42098)*UV(1904)+JVS(42099)*UV(1905)+JVS(42100)*UV(1907)+JVS(42101)*UV(1908)+JVS(42102)*UV(1909)& - &+JVS(42103)*UV(1911)+JVS(42104)*UV(1912)+JVS(42105)*UV(1913)+JVS(42106)*UV(1914)+JVS(42107)*UV(1915)& - &+JVS(42108)*UV(1916)+JVS(42109)*UV(1917)+JVS(42110)*UV(1918)+JVS(42111)*UV(1919)+JVS(42112)*UV(1920)& - &+JVS(42113)*UV(1921)+JVS(42114)*UV(1922)+JVS(42115)*UV(1925)+JVS(42116)*UV(1926)+JVS(42117)*UV(1928)& - &+JVS(42118)*UV(1929)+JVS(42119)*UV(1930)+JVS(42120)*UV(1932)+JVS(42121)*UV(1933)+JVS(42122)*UV(1934)& - &+JVS(42123)*UV(1935)+JVS(42124)*UV(1936)+JVS(42125)*UV(1937)+JVS(42126)*UV(1938)+JVS(42127)*UV(1940)& - &+JVS(42128)*UV(1941)+JVS(42129)*UV(1943)+JVS(42130)*UV(1946)+JVS(42131)*UV(1947)+JVS(42132)*UV(1948)& - &+JVS(42133)*UV(1949)+JVS(42134)*UV(1950)+JVS(42135)*UV(1952)+JVS(42136)*UV(1953)+JVS(42137)*UV(1954)& - &+JVS(42138)*UV(1956)+JVS(42139)*UV(1957)+JVS(42140)*UV(1958)+JVS(42141)*UV(1959)+JVS(42142)*UV(1963)& - &+JVS(42143)*UV(1964)+JVS(42144)*UV(1965)+JVS(42145)*UV(1966)+JVS(42146)*UV(1967)+JVS(42147)*UV(1968)& - &+JVS(42148)*UV(1969)+JVS(42149)*UV(1970)+JVS(42150)*UV(1972)+JVS(42151)*UV(1973)+JVS(42152)*UV(1974)& - &+JVS(42153)*UV(1976)+JVS(42154)*UV(1977)+JVS(42155)*UV(1978)+JVS(42156)*UV(1979)+JVS(42157)*UV(1980)& - &+JVS(42158)*UV(1981)+JVS(42159)*UV(1982)+JVS(42160)*UV(1983)+JVS(42161)*UV(1985)+JVS(42162)*UV(1987)& - &+JVS(42163)*UV(1988)+JVS(42164)*UV(1990)+JVS(42165)*UV(1991)+JVS(42166)*UV(1992)+JVS(42167)*UV(1993)& - &+JVS(42168)*UV(1994)+JVS(42169)*UV(1995)+JVS(42170)*UV(1996)+JVS(42171)*UV(1997)+JVS(42172)*UV(1999)& - &+JVS(42173)*UV(2001)+JVS(42174)*UV(2002)+JVS(42175)*UV(2006)+JVS(42176)*UV(2007)+JVS(42177)*UV(2009)& - &+JVS(42178)*UV(2010)+JVS(42179)*UV(2011)+JVS(42180)*UV(2013)+JVS(42181)*UV(2014)+JVS(42182)*UV(2016)& - &+JVS(42183)*UV(2017)+JVS(42184)*UV(2018)+JVS(42185)*UV(2019)+JVS(42186)*UV(2020)+JVS(42187)*UV(2021)& - &+JVS(42188)*UV(2022)+JVS(42189)*UV(2023)+JVS(42190)*UV(2025)+JVS(42191)*UV(2026)+JVS(42192)*UV(2027)& - &+JVS(42193)*UV(2028)+JVS(42194)*UV(2032)+JVS(42195)*UV(2034)+JVS(42196)*UV(2036)+JVS(42197)*UV(2037)& - &+JVS(42198)*UV(2038)+JVS(42199)*UV(2039)+JVS(42200)*UV(2040)+JVS(42201)*UV(2042)+JVS(42202)*UV(2043)& - &+JVS(42203)*UV(2044)+JVS(42204)*UV(2045)+JVS(42205)*UV(2046)+JVS(42206)*UV(2047)+JVS(42207)*UV(2048)& - &+JVS(42208)*UV(2049)+JVS(42209)*UV(2051)+JVS(42210)*UV(2052)+JVS(42211)*UV(2053)+JVS(42212)*UV(2054)& - &+JVS(42213)*UV(2055)+JVS(42214)*UV(2057)+JVS(42215)*UV(2058)+JVS(42216)*UV(2059)+JVS(42217)*UV(2061)& - &+JVS(42218)*UV(2062)+JVS(42219)*UV(2063)+JVS(42220)*UV(2064)+JVS(42221)*UV(2065)+JVS(42222)*UV(2067)& - &+JVS(42223)*UV(2068)+JVS(42224)*UV(2069)+JVS(42225)*UV(2070)+JVS(42226)*UV(2071)+JVS(42227)*UV(2072)& - &+JVS(42228)*UV(2074)+JVS(42229)*UV(2075)+JVS(42230)*UV(2077)+JVS(42231)*UV(2078)+JVS(42232)*UV(2079)& - &+JVS(42233)*UV(2080)+JVS(42234)*UV(2081)+JVS(42235)*UV(2082)+JVS(42236)*UV(2083)+JVS(42237)*UV(2084)& - &+JVS(42238)*UV(2086)+JVS(42239)*UV(2087)+JVS(42240)*UV(2089)+JVS(42241)*UV(2091)+JVS(42242)*UV(2092)& - &+JVS(42243)*UV(2093)+JVS(42244)*UV(2094)+JVS(42245)*UV(2095)+JVS(42246)*UV(2096)+JVS(42247)*UV(2097)& - &+JVS(42248)*UV(2098)+JVS(42249)*UV(2099)+JVS(42250)*UV(2101)+JVS(42251)*UV(2102)+JVS(42252)*UV(2103)& - &+JVS(42253)*UV(2104)+JVS(42254)*UV(2105)+JVS(42255)*UV(2106)+JVS(42256)*UV(2107)+JVS(42257)*UV(2108)& - &+JVS(42258)*UV(2109)+JVS(42259)*UV(2110)+JVS(42260)*UV(2111)+JVS(42261)*UV(2113)+JVS(42262)*UV(2114)& - &+JVS(42263)*UV(2115)+JVS(42264)*UV(2116)+JVS(42265)*UV(2118)+JVS(42266)*UV(2119)+JVS(42267)*UV(2120)& - &+JVS(42268)*UV(2121)+JVS(42269)*UV(2123)+JVS(42270)*UV(2124)+JVS(42271)*UV(2125)+JVS(42272)*UV(2126)& - &+JVS(42273)*UV(2127)+JVS(42274)*UV(2128)+JVS(42275)*UV(2129)+JVS(42276)*UV(2131)+JVS(42277)*UV(2132)& - &+JVS(42278)*UV(2133)+JVS(42279)*UV(2134)+JVS(42280)*UV(2135)+JVS(42281)*UV(2136)+JVS(42282)*UV(2137)& - &+JVS(42283)*UV(2138)+JVS(42284)*UV(2139)+JVS(42285)*UV(2140)+JVS(42286)*UV(2141)+JVS(42287)*UV(2142)& - &+JVS(42288)*UV(2143)+JVS(42289)*UV(2144)+JVS(42290)*UV(2146)+JVS(42291)*UV(2147)+JVS(42292)*UV(2148)& - &+JVS(42293)*UV(2149)+JVS(42294)*UV(2150)+JVS(42295)*UV(2151)+JVS(42296)*UV(2152)+JVS(42297)*UV(2153)& - &+JVS(42298)*UV(2154)+JVS(42299)*UV(2155)+JVS(42300)*UV(2156)+JVS(42301)*UV(2157)+JVS(42302)*UV(2159)& - &+JVS(42303)*UV(2160)+JVS(42304)*UV(2161)+JVS(42305)*UV(2164)+JVS(42306)*UV(2165)+JVS(42307)*UV(2166)& - &+JVS(42308)*UV(2167)+JVS(42309)*UV(2168)+JVS(42310)*UV(2169)+JVS(42311)*UV(2171)+JVS(42312)*UV(2172)& - &+JVS(42313)*UV(2174)+JVS(42314)*UV(2175)+JVS(42315)*UV(2176)+JVS(42316)*UV(2177)+JVS(42317)*UV(2178)& - &+JVS(42318)*UV(2179)+JVS(42319)*UV(2180)+JVS(42320)*UV(2181)+JVS(42321)*UV(2182)+JVS(42322)*UV(2183)& - &+JVS(42323)*UV(2184)+JVS(42324)*UV(2185)+JVS(42325)*UV(2187)+JVS(42326)*UV(2188)+JVS(42327)*UV(2189)& - &+JVS(42328)*UV(2191)+JVS(42329)*UV(2192)+JVS(42330)*UV(2193)+JVS(42331)*UV(2194)+JVS(42332)*UV(2195)& - &+JVS(42333)*UV(2196)+JVS(42334)*UV(2197)+JVS(42335)*UV(2198)+JVS(42336)*UV(2199)+JVS(42337)*UV(2202)& - &+JVS(42338)*UV(2204)+JVS(42339)*UV(2205)+JVS(42340)*UV(2206)+JVS(42341)*UV(2208)+JVS(42342)*UV(2209)& - &+JVS(42343)*UV(2211)+JVS(42344)*UV(2212)+JVS(42345)*UV(2213)+JVS(42346)*UV(2214)+JVS(42347)*UV(2215)& - &+JVS(42348)*UV(2216)+JVS(42349)*UV(2217)+JVS(42350)*UV(2218)+JVS(42351)*UV(2219)+JVS(42352)*UV(2220)& - &+JVS(42353)*UV(2221)+JVS(42354)*UV(2222)+JVS(42355)*UV(2223)+JVS(42356)*UV(2224)+JVS(42357)*UV(2225)& - &+JVS(42358)*UV(2227)+JVS(42359)*UV(2228)+JVS(42360)*UV(2230)+JVS(42361)*UV(2231)+JVS(42362)*UV(2232)& - &+JVS(42363)*UV(2233)+JVS(42364)*UV(2235)+JVS(42365)*UV(2236)+JVS(42366)*UV(2237)+JVS(42367)*UV(2239)& - &+JVS(42368)*UV(2240)+JVS(42369)*UV(2241)+JVS(42370)*UV(2242)+JVS(42371)*UV(2243)+JVS(42372)*UV(2244)& - &+JVS(42373)*UV(2245)+JVS(42374)*UV(2246)+JVS(42375)*UV(2247)+JVS(42376)*UV(2248)+JVS(42377)*UV(2249)& - &+JVS(42378)*UV(2250)+JVS(42379)*UV(2251)+JVS(42380)*UV(2252)+JVS(42381)*UV(2253)+JVS(42382)*UV(2254)& - &+JVS(42383)*UV(2255)+JVS(42384)*UV(2256)+JVS(42385)*UV(2257)+JVS(42386)*UV(2258)+JVS(42387)*UV(2259)& - &+JVS(42388)*UV(2260)+JVS(42389)*UV(2261)+JVS(42390)*UV(2262)+JVS(42391)*UV(2263)+JVS(42392)*UV(2264)& - &+JVS(42393)*UV(2265)+JVS(42394)*UV(2266)+JVS(42395)*UV(2267)+JVS(42396)*UV(2268)+JVS(42397)*UV(2269)& - &+JVS(42398)*UV(2270)+JVS(42399)*UV(2271)+JVS(42400)*UV(2272)+JVS(42401)*UV(2273)+JVS(42402)*UV(2274)& - &+JVS(42403)*UV(2275)+JVS(42404)*UV(2276)+JVS(42405)*UV(2277)+JVS(42406)*UV(2278)+JVS(42407)*UV(2280)& - &+JVS(42408)*UV(2281)+JVS(42409)*UV(2282)+JVS(42410)*UV(2283)+JVS(42411)*UV(2285)+JVS(42412)*UV(2286)& - &+JVS(42413)*UV(2288)+JVS(42414)*UV(2289)+JVS(42415)*UV(2290)+JVS(42416)*UV(2291)+JVS(42417)*UV(2292)& - &+JVS(42418)*UV(2294)+JVS(42419)*UV(2295)+JVS(42420)*UV(2296)+JVS(42421)*UV(2297)+JVS(42422)*UV(2298)& - &+JVS(42423)*UV(2299)+JVS(42424)*UV(2300)+JVS(42425)*UV(2301)+JVS(42426)*UV(2302)+JVS(42427)*UV(2303)& - &+JVS(42428)*UV(2305)+JVS(42429)*UV(2306)+JVS(42430)*UV(2307)+JVS(42431)*UV(2309)+JVS(42432)*UV(2310)& - &+JVS(42433)*UV(2311)+JVS(42434)*UV(2312)+JVS(42435)*UV(2313)+JVS(42436)*UV(2314)+JVS(42437)*UV(2315)& - &+JVS(42438)*UV(2316)+JVS(42439)*UV(2317)+JVS(42440)*UV(2318)+JVS(42441)*UV(2319)+JVS(42442)*UV(2320)& - &+JVS(42443)*UV(2321)+JVS(42444)*UV(2325)+JVS(42445)*UV(2327)+JVS(42446)*UV(2328)+JVS(42447)*UV(2329)& - &+JVS(42448)*UV(2330)+JVS(42449)*UV(2331)+JVS(42450)*UV(2332)+JVS(42451)*UV(2333)+JVS(42452)*UV(2335)& - &+JVS(42453)*UV(2336)+JVS(42454)*UV(2337)+JVS(42455)*UV(2338)+JVS(42456)*UV(2339)+JVS(42457)*UV(2340)& - &+JVS(42458)*UV(2341)+JVS(42459)*UV(2342)+JVS(42460)*UV(2343)+JVS(42461)*UV(2344)+JVS(42462)*UV(2345)& - &+JVS(42463)*UV(2346)+JVS(42464)*UV(2347)+JVS(42465)*UV(2348)+JVS(42466)*UV(2349)+JVS(42467)*UV(2350)& - &+JVS(42468)*UV(2351)+JVS(42469)*UV(2352)+JVS(42470)*UV(2353)+JVS(42471)*UV(2354)+JVS(42472)*UV(2355)& - &+JVS(42473)*UV(2357)+JVS(42474)*UV(2358)+JVS(42475)*UV(2359)+JVS(42476)*UV(2360)+JVS(42477)*UV(2362)& - &+JVS(42478)*UV(2363)+JVS(42479)*UV(2364)+JVS(42480)*UV(2365)+JVS(42481)*UV(2366)+JVS(42482)*UV(2367)& - &+JVS(42483)*UV(2368)+JVS(42484)*UV(2369)+JVS(42485)*UV(2370)+JVS(42486)*UV(2371)+JVS(42487)*UV(2372)& - &+JVS(42488)*UV(2373)+JVS(42489)*UV(2375)+JVS(42490)*UV(2377)+JVS(42491)*UV(2378)+JVS(42492)*UV(2379)& - &+JVS(42493)*UV(2380)+JVS(42494)*UV(2381)+JVS(42495)*UV(2382)+JVS(42496)*UV(2383)+JVS(42497)*UV(2384)& - &+JVS(42498)*UV(2385)+JVS(42499)*UV(2386)+JVS(42500)*UV(2387)+JVS(42501)*UV(2388)+JVS(42502)*UV(2389)& - &+JVS(42503)*UV(2390)+JVS(42504)*UV(2391)+JVS(42505)*UV(2392)+JVS(42506)*UV(2393)+JVS(42507)*UV(2394)& - &+JVS(42508)*UV(2395)+JVS(42509)*UV(2396)+JVS(42510)*UV(2397)+JVS(42511)*UV(2398)+JVS(42512)*UV(2400)& - &+JVS(42513)*UV(2401)+JVS(42514)*UV(2402)+JVS(42515)*UV(2403)+JVS(42516)*UV(2404)+JVS(42517)*UV(2405)& - &+JVS(42518)*UV(2406)+JVS(42519)*UV(2407)+JVS(42520)*UV(2408)+JVS(42521)*UV(2409)+JVS(42522)*UV(2410)& - &+JVS(42523)*UV(2411)+JVS(42524)*UV(2412)+JVS(42525)*UV(2413)+JVS(42526)*UV(2414)+JVS(42527)*UV(2416)& - &+JVS(42528)*UV(2417)+JVS(42529)*UV(2418)+JVS(42530)*UV(2419)+JVS(42531)*UV(2420)+JVS(42532)*UV(2421)& - &+JVS(42533)*UV(2422)+JVS(42534)*UV(2423)+JVS(42535)*UV(2424)+JVS(42536)*UV(2425)+JVS(42537)*UV(2426)& - &+JVS(42538)*UV(2427)+JVS(42539)*UV(2428)+JVS(42540)*UV(2429)+JVS(42541)*UV(2431)+JVS(42542)*UV(2432)& - &+JVS(42543)*UV(2433)+JVS(42544)*UV(2434)+JVS(42545)*UV(2435)+JVS(42546)*UV(2436)+JVS(42547)*UV(2437)& - &+JVS(42548)*UV(2438)+JVS(42549)*UV(2439)+JVS(42550)*UV(2440)+JVS(42551)*UV(2441)+JVS(42552)*UV(2442)& - &+JVS(42553)*UV(2443)+JVS(42554)*UV(2444)+JVS(42555)*UV(2445)+JVS(42556)*UV(2446)+JVS(42557)*UV(2447)& - &+JVS(42558)*UV(2448)+JVS(42559)*UV(2449)+JVS(42560)*UV(2450)+JVS(42561)*UV(2451)+JVS(42562)*UV(2453)& - &+JVS(42563)*UV(2454)+JVS(42564)*UV(2455)+JVS(42565)*UV(2456)+JVS(42566)*UV(2458)+JVS(42567)*UV(2459)& - &+JVS(42568)*UV(2460)+JVS(42569)*UV(2461)+JVS(42570)*UV(2462)+JVS(42571)*UV(2463)+JVS(42572)*UV(2464)& - &+JVS(42573)*UV(2466)+JVS(42574)*UV(2467)+JVS(42575)*UV(2468)+JVS(42576)*UV(2469)+JVS(42577)*UV(2470)& - &+JVS(42578)*UV(2471)+JVS(42579)*UV(2472)+JVS(42580)*UV(2474)+JVS(42581)*UV(2475)+JVS(42582)*UV(2476)& - &+JVS(42583)*UV(2477)+JVS(42584)*UV(2478)+JVS(42585)*UV(2479)+JVS(42586)*UV(2480)+JVS(42587)*UV(2481)& - &+JVS(42588)*UV(2482)+JVS(42589)*UV(2483)+JVS(42590)*UV(2484)+JVS(42591)*UV(2485)+JVS(42592)*UV(2486)& - &+JVS(42593)*UV(2487)+JVS(42594)*UV(2488)+JVS(42595)*UV(2489)+JVS(42596)*UV(2491)+JVS(42597)*UV(2494)& - &+JVS(42598)*UV(2496)+JVS(42599)*UV(2497)+JVS(42600)*UV(2498)+JVS(42601)*UV(2499)+JVS(42602)*UV(2500)& - &+JVS(42603)*UV(2501)+JVS(42604)*UV(2503)+JVS(42605)*UV(2504)+JVS(42606)*UV(2505)+JVS(42607)*UV(2507)& - &+JVS(42608)*UV(2509)+JVS(42609)*UV(2510)+JVS(42610)*UV(2511)+JVS(42611)*UV(2513)+JVS(42612)*UV(2514)& - &+JVS(42613)*UV(2515)+JVS(42614)*UV(2517)+JVS(42615)*UV(2518)+JVS(42616)*UV(2519)+JVS(42617)*UV(2520)& - &+JVS(42618)*UV(2522)+JVS(42619)*UV(2523)+JVS(42620)*UV(2524)+JVS(42621)*UV(2525)+JVS(42622)*UV(2527)& - &+JVS(42623)*UV(2529)+JVS(42624)*UV(2530)+JVS(42625)*UV(2531)+JVS(42626)*UV(2532)+JVS(42627)*UV(2533)& - &+JVS(42628)*UV(2534)+JVS(42629)*UV(2537)+JVS(42630)*UV(2538)+JVS(42631)*UV(2540)+JVS(42632)*UV(2541)& - &+JVS(42633)*UV(2542)+JVS(42634)*UV(2543)+JVS(42635)*UV(2544)+JVS(42636)*UV(2546)+JVS(42637)*UV(2547)& - &+JVS(42638)*UV(2548)+JVS(42639)*UV(2552)+JVS(42640)*UV(2553)+JVS(42641)*UV(2554)+JVS(42642)*UV(2555)& - &+JVS(42643)*UV(2556)+JVS(42644)*UV(2558)+JVS(42645)*UV(2559)+JVS(42646)*UV(2560)+JVS(42647)*UV(2564)& - &+JVS(42648)*UV(2565)+JVS(42649)*UV(2567)+JVS(42650)*UV(2568)+JVS(42651)*UV(2569)+JVS(42652)*UV(2570)& - &+JVS(42653)*UV(2571)+JVS(42654)*UV(2572)+JVS(42655)*UV(2573)+JVS(42656)*UV(2574)+JVS(42657)*UV(2576)& - &+JVS(42658)*UV(2579)+JVS(42659)*UV(2580)+JVS(42660)*UV(2582)+JVS(42661)*UV(2583)+JVS(42662)*UV(2584)& - &+JVS(42663)*UV(2585)+JVS(42664)*UV(2587)+JVS(42665)*UV(2590)+JVS(42666)*UV(2593)+JVS(42667)*UV(2597)& - &+JVS(42668)*UV(2600)+JVS(42669)*UV(2601)+JVS(42670)*UV(2602)+JVS(42671)*UV(2603)+JVS(42672)*UV(2605)& - &+JVS(42673)*UV(2606)+JVS(42674)*UV(2608)+JVS(42675)*UV(2609)+JVS(42676)*UV(2610)+JVS(42677)*UV(2611)& - &+JVS(42678)*UV(2612)+JVS(42679)*UV(2613)+JVS(42680)*UV(2615)+JVS(42681)*UV(2616)+JVS(42682)*UV(2617)& - &+JVS(42683)*UV(2618)+JVS(42684)*UV(2619)+JVS(42685)*UV(2620)+JVS(42686)*UV(2621)+JVS(42687)*UV(2622)& - &+JVS(42688)*UV(2624)+JVS(42689)*UV(2625)+JVS(42690)*UV(2626)+JVS(42691)*UV(2627)+JVS(42692)*UV(2628)& - &+JVS(42693)*UV(2629)+JVS(42694)*UV(2630)+JVS(42695)*UV(2631)+JVS(42696)*UV(2632)+JVS(42697)*UV(2633)& - &+JVS(42698)*UV(2635)+JVS(42699)*UV(2636)+JVS(42700)*UV(2637)+JVS(42701)*UV(2640)+JVS(42702)*UV(2643)& - &+JVS(42703)*UV(2645)+JVS(42704)*UV(2648)+JVS(42705)*UV(2649)+JVS(42706)*UV(2650)+JVS(42707)*UV(2651)& - &+JVS(42708)*UV(2652)+JVS(42709)*UV(2653)+JVS(42710)*UV(2654)+JVS(42711)*UV(2655)+JVS(42712)*UV(2656)& - &+JVS(42713)*UV(2657)+JVS(42714)*UV(2658)+JVS(42715)*UV(2660)+JVS(42716)*UV(2661)+JVS(42717)*UV(2663)& - &+JVS(42718)*UV(2664)+JVS(42719)*UV(2665)+JVS(42720)*UV(2666)+JVS(42721)*UV(2669)+JVS(42722)*UV(2670)& - &+JVS(42723)*UV(2671)+JVS(42724)*UV(2672)+JVS(42725)*UV(2673)+JVS(42726)*UV(2674)+JVS(42727)*UV(2675)& - &+JVS(42728)*UV(2677)+JVS(42729)*UV(2678)+JVS(42730)*UV(2680)+JVS(42731)*UV(2681)+JVS(42732)*UV(2683)& - &+JVS(42733)*UV(2684)+JVS(42734)*UV(2685)+JVS(42735)*UV(2686)+JVS(42736)*UV(2687)+JVS(42737)*UV(2688)& - &+JVS(42738)*UV(2689)+JVS(42739)*UV(2690)+JVS(42740)*UV(2691)+JVS(42741)*UV(2693)+JVS(42742)*UV(2695)& - &+JVS(42743)*UV(2696)+JVS(42744)*UV(2698)+JVS(42745)*UV(2700)+JVS(42746)*UV(2701)+JVS(42747)*UV(2702)& - &+JVS(42748)*UV(2703)+JVS(42749)*UV(2704)+JVS(42750)*UV(2705)+JVS(42751)*UV(2708)+JVS(42752)*UV(2709)& - &+JVS(42753)*UV(2711)+JVS(42754)*UV(2712)+JVS(42755)*UV(2713)+JVS(42756)*UV(2714)+JVS(42757)*UV(2715)& - &+JVS(42758)*UV(2716)+JVS(42759)*UV(2718)+JVS(42760)*UV(2719)+JVS(42761)*UV(2721)+JVS(42762)*UV(2723)& - &+JVS(42763)*UV(2725)+JVS(42764)*UV(2726)+JVS(42765)*UV(2727)+JVS(42766)*UV(2729)+JVS(42767)*UV(2730)& - &+JVS(42768)*UV(2735)+JVS(42769)*UV(2737)+JVS(42770)*UV(2738)+JVS(42771)*UV(2740)+JVS(42772)*UV(2742)& - &+JVS(42773)*UV(2743)+JVS(42774)*UV(2748)+JVS(42775)*UV(2753)+JVS(42776)*UV(2754)+JVS(42777)*UV(2755)& - &+JVS(42778)*UV(2756)+JVS(42779)*UV(2757)+JVS(42780)*UV(2759)+JVS(42781)*UV(2761)+JVS(42782)*UV(2763)& - &+JVS(42783)*UV(2764)+JVS(42784)*UV(2765)+JVS(42785)*UV(2766)+JVS(42786)*UV(2769)+JVS(42787)*UV(2772)& - &+JVS(42788)*UV(2773)+JVS(42789)*UV(2774)+JVS(42790)*UV(2775)+JVS(42791)*UV(2777)+JVS(42792)*UV(2778)& - &+JVS(42793)*UV(2779)+JVS(42794)*UV(2780)+JVS(42795)*UV(2781)+JVS(42796)*UV(2782)+JVS(42797)*UV(2783)& - &+JVS(42798)*UV(2784)+JVS(42799)*UV(2785)+JVS(42800)*UV(2786)+JVS(42801)*UV(2787)+JVS(42802)*UV(2790)& - &+JVS(42803)*UV(2791)+JVS(42804)*UV(2792)+JVS(42805)*UV(2793)+JVS(42806)*UV(2794)+JVS(42807)*UV(2796)& - &+JVS(42808)*UV(2797)+JVS(42809)*UV(2799)+JVS(42810)*UV(2800)+JVS(42811)*UV(2801)+JVS(42812)*UV(2802)& - &+JVS(42813)*UV(2803)+JVS(42814)*UV(2804)+JVS(42815)*UV(2805)+JVS(42816)*UV(2808)+JVS(42817)*UV(2809)& - &+JVS(42818)*UV(2810)+JVS(42819)*UV(2811)+JVS(42820)*UV(2812)+JVS(42821)*UV(2813)+JVS(42822)*UV(2814)& - &+JVS(42823)*UV(2815)+JVS(42824)*UV(2817)+JVS(42825)*UV(2822)+JVS(42826)*UV(2823)+JVS(42827)*UV(2824)& - &+JVS(42828)*UV(2825)+JVS(42829)*UV(2828)+JVS(42830)*UV(2829)+JVS(42831)*UV(2830)+JVS(42832)*UV(2833)& - &+JVS(42833)*UV(2834)+JVS(42834)*UV(2835)+JVS(42835)*UV(2836)+JVS(42836)*UV(2838)+JVS(42837)*UV(2839)& - &+JVS(42838)*UV(2841)+JVS(42839)*UV(2842)+JVS(42840)*UV(2843)+JVS(42841)*UV(2844)+JVS(42842)*UV(2845)& - &+JVS(42843)*UV(2846)+JVS(42844)*UV(2848)+JVS(42845)*UV(2850)+JVS(42846)*UV(2852)+JVS(42847)*UV(2854)& - &+JVS(42848)*UV(2855)+JVS(42849)*UV(2856)+JVS(42850)*UV(2857)+JVS(42851)*UV(2859)+JVS(42852)*UV(2860)& - &+JVS(42853)*UV(2862)+JVS(42854)*UV(2863)+JVS(42855)*UV(2864)+JVS(42856)*UV(2866)+JVS(42857)*UV(2867)& - &+JVS(42858)*UV(2868)+JVS(42859)*UV(2870)+JVS(42860)*UV(2871)+JVS(42861)*UV(2872)+JVS(42862)*UV(2873)& - &+JVS(42863)*UV(2875)+JVS(42864)*UV(2876)+JVS(42865)*UV(2877)+JVS(42866)*UV(2878)+JVS(42867)*UV(2879)& - &+JVS(42868)*UV(2880)+JVS(42869)*UV(2882)+JVS(42870)*UV(2883)+JVS(42871)*UV(2884)+JVS(42872)*UV(2885)& - &+JVS(42873)*UV(2886)+JVS(42874)*UV(2887)+JVS(42875)*UV(2888)+JVS(42876)*UV(2892)+JVS(42877)*UV(2893)& - &+JVS(42878)*UV(2895)+JVS(42879)*UV(2896)+JVS(42880)*UV(2898)+JVS(42881)*UV(2899)+JVS(42882)*UV(2900)& - &+JVS(42883)*UV(2901)+JVS(42884)*UV(2904)+JVS(42885)*UV(2907)+JVS(42886)*UV(2908)+JVS(42887)*UV(2909)& - &+JVS(42888)*UV(2910)+JVS(42889)*UV(2911)+JVS(42890)*UV(2913)+JVS(42891)*UV(2914)+JVS(42892)*UV(2915)& - &+JVS(42893)*UV(2917)+JVS(42894)*UV(2920)+JVS(42895)*UV(2921)+JVS(42896)*UV(2923)+JVS(42897)*UV(2924)& - &+JVS(42898)*UV(2925)+JVS(42899)*UV(2927)+JVS(42900)*UV(2928)+JVS(42901)*UV(2929)+JVS(42902)*UV(2930)& - &+JVS(42903)*UV(2932)+JVS(42904)*UV(2934)+JVS(42905)*UV(2936)+JVS(42906)*UV(2938)+JVS(42907)*UV(2940)& - &+JVS(42908)*UV(2941)+JVS(42909)*UV(2942)+JVS(42910)*UV(2943)+JVS(42911)*UV(2945)+JVS(42912)*UV(2947)& - &+JVS(42913)*UV(2948)+JVS(42914)*UV(2950)+JVS(42915)*UV(2951)+JVS(42916)*UV(2955)+JVS(42917)*UV(2956)& - &+JVS(42918)*UV(2957)+JVS(42919)*UV(2958)+JVS(42920)*UV(2964)+JVS(42921)*UV(2965)+JVS(42922)*UV(2966)& - &+JVS(42923)*UV(2969)+JVS(42924)*UV(2970)+JVS(42925)*UV(2971)+JVS(42926)*UV(2973)+JVS(42927)*UV(2975)& - &+JVS(42928)*UV(2976)+JVS(42929)*UV(2977)+JVS(42930)*UV(2978)+JVS(42931)*UV(2979)+JVS(42932)*UV(2980)& - &+JVS(42933)*UV(2981)+JVS(42934)*UV(2984)+JVS(42935)*UV(2985)+JVS(42936)*UV(2987)+JVS(42937)*UV(2988)& - &+JVS(42938)*UV(2991)+JVS(42939)*UV(2993)+JVS(42940)*UV(2998)+JVS(42941)*UV(2999)+JVS(42942)*UV(3003)& - &+JVS(42943)*UV(3005)+JVS(42944)*UV(3006)+JVS(42945)*UV(3007)+JVS(42946)*UV(3008)+JVS(42947)*UV(3010)& - &+JVS(42948)*UV(3011)+JVS(42949)*UV(3012)+JVS(42950)*UV(3014)+JVS(42951)*UV(3015)+JVS(42952)*UV(3017)& - &+JVS(42953)*UV(3018)+JVS(42954)*UV(3019)+JVS(42955)*UV(3020)+JVS(42956)*UV(3021)+JVS(42957)*UV(3022)& - &+JVS(42958)*UV(3023)+JVS(42959)*UV(3024)+JVS(42960)*UV(3025)+JVS(42961)*UV(3026)+JVS(42962)*UV(3029)& - &+JVS(42963)*UV(3031)+JVS(42964)*UV(3033)+JVS(42965)*UV(3034)+JVS(42966)*UV(3035)+JVS(42967)*UV(3038)& - &+JVS(42968)*UV(3040)+JVS(42969)*UV(3042)+JVS(42970)*UV(3043)+JVS(42971)*UV(3044)+JVS(42972)*UV(3045)& - &+JVS(42973)*UV(3046)+JVS(42974)*UV(3047)+JVS(42975)*UV(3049)+JVS(42976)*UV(3051)+JVS(42977)*UV(3052)& - &+JVS(42978)*UV(3053)+JVS(42979)*UV(3055)+JVS(42980)*UV(3056)+JVS(42981)*UV(3057)+JVS(42982)*UV(3059)& - &+JVS(42983)*UV(3060)+JVS(42984)*UV(3061)+JVS(42985)*UV(3063)+JVS(42986)*UV(3068)+JVS(42987)*UV(3070)& - &+JVS(42988)*UV(3075)+JVS(42989)*UV(3076)+JVS(42990)*UV(3077)+JVS(42991)*UV(3078)+JVS(42992)*UV(3081)& - &+JVS(42993)*UV(3082)+JVS(42994)*UV(3083)+JVS(42995)*UV(3084)+JVS(42996)*UV(3085)+JVS(42997)*UV(3086)& - &+JVS(42998)*UV(3087)+JVS(42999)*UV(3088)+JVS(43000)*UV(3089)+JVS(43001)*UV(3090)+JVS(43002)*UV(3091)& - &+JVS(43003)*UV(3092)+JVS(43004)*UV(3093)+JVS(43005)*UV(3095)+JVS(43006)*UV(3096)+JVS(43007)*UV(3097)& - &+JVS(43008)*UV(3098)+JVS(43009)*UV(3099)+JVS(43010)*UV(3100)+JVS(43011)*UV(3101)+JVS(43012)*UV(3102)& - &+JVS(43013)*UV(3103)+JVS(43014)*UV(3105)+JVS(43015)*UV(3106)+JVS(43016)*UV(3107)+JVS(43017)*UV(3108)& - &+JVS(43018)*UV(3109)+JVS(43019)*UV(3110)+JVS(43020)*UV(3111)+JVS(43021)*UV(3112)+JVS(43022)*UV(3113)& - &+JVS(43023)*UV(3114)+JVS(43024)*UV(3115)+JVS(43025)*UV(3116)+JVS(43026)*UV(3117)+JVS(43027)*UV(3118)& - &+JVS(43028)*UV(3119)+JVS(43029)*UV(3120)+JVS(43030)*UV(3121)+JVS(43031)*UV(3122)+JVS(43032)*UV(3123)& - &+JVS(43033)*UV(3124)+JVS(43034)*UV(3125)+JVS(43035)*UV(3126)+JVS(43036)*UV(3127)+JVS(43037)*UV(3128)& - &+JVS(43038)*UV(3129)+JVS(43039)*UV(3130)+JVS(43040)*UV(3131)+JVS(43041)*UV(3132)+JVS(43042)*UV(3133)& - &+JVS(43043)*UV(3134)+JVS(43044)*UV(3135)+JVS(43045)*UV(3136)+JVS(43046)*UV(3137)+JVS(43047)*UV(3138)& - &+JVS(43048)*UV(3139)+JVS(43049)*UV(3140)+JVS(43050)*UV(3141)+JVS(43051)*UV(3142)+JVS(43052)*UV(3143)& - &+JVS(43053)*UV(3144)+JVS(43054)*UV(3145)+JVS(43055)*UV(3146)+JVS(43056)*UV(3147)+JVS(43057)*UV(3148)& - &+JVS(43058)*UV(3149)+JVS(43059)*UV(3150)+JVS(43060)*UV(3151)+JVS(43061)*UV(3152)+JVS(43062)*UV(3153)& - &+JVS(43063)*UV(3154)+JVS(43064)*UV(3155)+JVS(43065)*UV(3156)+JVS(43066)*UV(3157)+JVS(43067)*UV(3158)& - &+JVS(43068)*UV(3159)+JVS(43069)*UV(3160)+JVS(43070)*UV(3161)+JVS(43071)*UV(3162)+JVS(43072)*UV(3163)& - &+JVS(43073)*UV(3164)+JVS(43074)*UV(3165)+JVS(43075)*UV(3166)+JVS(43076)*UV(3167)+JVS(43077)*UV(3168)& - &+JVS(43078)*UV(3169)+JVS(43079)*UV(3170)+JVS(43080)*UV(3171)+JVS(43081)*UV(3172)+JVS(43082)*UV(3173)& - &+JVS(43083)*UV(3174)+JVS(43084)*UV(3175)+JVS(43085)*UV(3176)+JVS(43086)*UV(3177)+JVS(43087)*UV(3178)& - &+JVS(43088)*UV(3179)+JVS(43089)*UV(3180)+JVS(43090)*UV(3181)+JVS(43091)*UV(3182)+JVS(43092)*UV(3183)& - &+JVS(43093)*UV(3184)+JVS(43094)*UV(3185)+JVS(43095)*UV(3186)+JVS(43096)*UV(3187)+JVS(43097)*UV(3188)& - &+JVS(43098)*UV(3189)+JVS(43099)*UV(3190)+JVS(43100)*UV(3191)+JVS(43101)*UV(3192)+JVS(43102)*UV(3193)& - &+JVS(43103)*UV(3196)+JVS(43104)*UV(3197)+JVS(43105)*UV(3198)+JVS(43106)*UV(3199)+JVS(43107)*UV(3200)& - &+JVS(43108)*UV(3201)+JVS(43109)*UV(3202)+JVS(43110)*UV(3203)+JVS(43111)*UV(3204)+JVS(43112)*UV(3205)& - &+JVS(43113)*UV(3206)+JVS(43114)*UV(3207)+JVS(43115)*UV(3208)+JVS(43116)*UV(3209)+JVS(43117)*UV(3210)& - &+JVS(43118)*UV(3211)+JVS(43119)*UV(3212)+JVS(43120)*UV(3213)+JVS(43121)*UV(3214)+JVS(43122)*UV(3216)& - &+JVS(43123)*UV(3217)+JVS(43124)*UV(3218)+JVS(43125)*UV(3219)+JVS(43126)*UV(3220)+JVS(43127)*UV(3221)& - &+JVS(43128)*UV(3222)+JVS(43129)*UV(3223)+JVS(43130)*UV(3224)+JVS(43131)*UV(3225)+JVS(43132)*UV(3226)& - &+JVS(43133)*UV(3227)+JVS(43134)*UV(3228)+JVS(43135)*UV(3229)+JVS(43136)*UV(3230)+JVS(43137)*UV(3231)& - &+JVS(43138)*UV(3232)+JVS(43139)*UV(3233)+JVS(43140)*UV(3235)+JVS(43141)*UV(3236)+JVS(43142)*UV(3237)& - &+JVS(43143)*UV(3238)+JVS(43144)*UV(3239)+JVS(43145)*UV(3240)+JVS(43146)*UV(3242)+JVS(43147)*UV(3243)& - &+JVS(43148)*UV(3244)+JVS(43149)*UV(3245)+JVS(43150)*UV(3247)+JVS(43151)*UV(3248)+JVS(43152)*UV(3249)& - &+JVS(43153)*UV(3250)+JVS(43154)*UV(3251)+JVS(43155)*UV(3253)+JVS(43156)*UV(3254)+JVS(43157)*UV(3256)& - &+JVS(43158)*UV(3257)+JVS(43159)*UV(3258)+JVS(43160)*UV(3259)+JVS(43161)*UV(3260)+JVS(43162)*UV(3261)& - &+JVS(43163)*UV(3262)+JVS(43164)*UV(3263)+JVS(43165)*UV(3264)+JVS(43166)*UV(3265)+JVS(43167)*UV(3266)& - &+JVS(43168)*UV(3267)+JVS(43169)*UV(3270)+JVS(43170)*UV(3271)+JVS(43171)*UV(3272)+JVS(43172)*UV(3273)& - &+JVS(43173)*UV(3274)+JVS(43174)*UV(3275)+JVS(43175)*UV(3276)+JVS(43176)*UV(3277)+JVS(43177)*UV(3278)& - &+JVS(43178)*UV(3279)+JVS(43179)*UV(3280)+JVS(43180)*UV(3282)+JVS(43181)*UV(3285)+JVS(43182)*UV(3286)& - &+JVS(43183)*UV(3287)+JVS(43184)*UV(3288)+JVS(43185)*UV(3289)+JVS(43186)*UV(3290)+JVS(43187)*UV(3291)& - &+JVS(43188)*UV(3292)+JVS(43189)*UV(3293)+JVS(43190)*UV(3294)+JVS(43191)*UV(3295)+JVS(43192)*UV(3297)& - &+JVS(43193)*UV(3298)+JVS(43194)*UV(3299)+JVS(43195)*UV(3300)+JVS(43196)*UV(3302)+JVS(43197)*UV(3303)& - &+JVS(43198)*UV(3304)+JVS(43200)*UV(3306)+JVS(43201)*UV(3307)+JVS(43202)*UV(3308)+JVS(43203)*UV(3309)& - &+JVS(43204)*UV(3310)+JVS(43205)*UV(3311)+JVS(43206)*UV(3312)+JVS(43207)*UV(3313)+JVS(43208)*UV(3314)& - &+JVS(43209)*UV(3315)+JVS(43210)*UV(3316)+JVS(43211)*UV(3317)+JVS(43212)*UV(3318)+JVS(43213)*UV(3319)& - &+JVS(43214)*UV(3320)+JVS(43215)*UV(3321)+JVS(43216)*UV(3322)+JVS(43217)*UV(3323)+JVS(43218)*UV(3324)& - &+JVS(43219)*UV(3325)+JVS(43220)*UV(3326)+JVS(43221)*UV(3327)+JVS(43222)*UV(3328)+JVS(43223)*UV(3330)& - &+JVS(43224)*UV(3331)+JVS(43225)*UV(3334)+JVS(43227)*UV(3336)+JVS(43228)*UV(3337)+JVS(43230)*UV(3339)& - &+JVS(43231)*UV(3340)+JVS(43232)*UV(3341)+JVS(43233)*UV(3343)+JVS(43235)*UV(3345)+JVS(43236)*UV(3348)& - &+JVS(43237)*UV(3349)+JVS(43238)*UV(3350)+JVS(43239)*UV(3352)+JVS(43240)*UV(3353)+JVS(43241)*UV(3354)& - &+JVS(43242)*UV(3355)+JVS(43243)*UV(3356)+JVS(43244)*UV(3357)+JVS(43245)*UV(3358)+JVS(43246)*UV(3359)& - &+JVS(43247)*UV(3360)+JVS(43249)*UV(3364)+JVS(43250)*UV(3365)+JVS(43251)*UV(3366)+JVS(43252)*UV(3368)& - &+JVS(43253)*UV(3369)+JVS(43254)*UV(3372)+JVS(43255)*UV(3373)+JVS(43256)*UV(3374)+JVS(43257)*UV(3376)& - &+JVS(43258)*UV(3378)+JVS(43259)*UV(3379)+JVS(43261)*UV(3382)+JVS(43262)*UV(3384)+JVS(43263)*UV(3385)& - &+JVS(43264)*UV(3387)+JVS(43265)*UV(3389)+JVS(43266)*UV(3391)+JVS(43267)*UV(3392)+JVS(43268)*UV(3394)& - &+JVS(43271)*UV(3397)+JVS(43273)*UV(3399)+JVS(43274)*UV(3401)+JVS(43277)*UV(3408)+JVS(43278)*UV(3409)& - &+JVS(43280)*UV(3411)+JVS(43281)*UV(3412)+JVS(43282)*UV(3413)+JVS(43284)*UV(3416)+JVS(43285)*UV(3418)& - &+JVS(43286)*UV(3420)+JVS(43290)*UV(3426)+JVS(43291)*UV(3427)+JVS(43292)*UV(3428)+JVS(43293)*UV(3431)& - &+JVS(43294)*UV(3432)+JVS(43295)*UV(3433)+JVS(43296)*UV(3434)+JVS(43297)*UV(3435)+JVS(43298)*UV(3436)& - &+JVS(43299)*UV(3437)+JVS(43300)*UV(3438)+JVS(43301)*UV(3439)+JVS(43303)*UV(3441)+JVS(43304)*UV(3442)& - &+JVS(43305)*UV(3443)+JVS(43306)*UV(3444)+JVS(43307)*UV(3445)+JVS(43308)*UV(3446)+JVS(43309)*UV(3447)& - &+JVS(43310)*UV(3448)+JVS(43311)*UV(3449)+JVS(43312)*UV(3450)+JVS(43313)*UV(3451)+JVS(43314)*UV(3452)& - &+JVS(43315)*UV(3453)+JVS(43316)*UV(3454)+JVS(43317)*UV(3455)+JVS(43319)*UV(3457)+JVS(43320)*UV(3458)& - &+JVS(43321)*UV(3459)+JVS(43322)*UV(3460)+JVS(43324)*UV(3462)+JVS(43325)*UV(3463)+JVS(43326)*UV(3464)& - &+JVS(43327)*UV(3465)+JVS(43328)*UV(3466)+JVS(43329)*UV(3467)+JVS(43330)*UV(3468)+JVS(43331)*UV(3469)& - &+JVS(43332)*UV(3470)+JVS(43333)*UV(3471)+JVS(43334)*UV(3472)+JVS(43335)*UV(3473)+JVS(43337)*UV(3475)& - &+JVS(43338)*UV(3476)+JVS(43339)*UV(3477)+JVS(43340)*UV(3478)+JVS(43341)*UV(3479)+JVS(43342)*UV(3480)& - &+JVS(43344)*UV(3482)+JVS(43345)*UV(3483)+JVS(43346)*UV(3484)+JVS(43347)*UV(3485)+JVS(43348)*UV(3486)& - &+JVS(43349)*UV(3487)+JVS(43350)*UV(3488)+JVS(43354)*UV(3493)+JVS(43355)*UV(3494)+JVS(43356)*UV(3495)& - &+JVS(43358)*UV(3497)+JVS(43359)*UV(3498)+JVS(43360)*UV(3499)+JVS(43361)*UV(3500)+JVS(43362)*UV(3501)& - &+JVS(43363)*UV(3502)+JVS(43365)*UV(3504)+JVS(43366)*UV(3505)+JVS(43367)*UV(3506)+JVS(43369)*UV(3508)& - &+JVS(43371)*UV(3510)+JVS(43373)*UV(3512)+JVS(43374)*UV(3513)+JVS(43375)*UV(3514)+JVS(43376)*UV(3515)& - &+JVS(43377)*UV(3516)+JVS(43378)*UV(3517)+JVS(43380)*UV(3519)+JVS(43381)*UV(3520)+JVS(43383)*UV(3522)& - &+JVS(43385)*UV(3524)+JVS(43387)*UV(3526)+JVS(43389)*UV(3528)+JVS(43390)*UV(3529)+JVS(43391)*UV(3530)& - &+JVS(43393)*UV(3532)+JVS(43394)*UV(3533)+JVS(43396)*UV(3535)+JVS(43397)*UV(3536)+JVS(43398)*UV(3537)& - &+JVS(43401)*UV(3540)+JVS(43402)*UV(3541)+JVS(43403)*UV(3542)+JVS(43404)*UV(3543)+JVS(43405)*UV(3544)& - &+JVS(43406)*UV(3545)+JVS(43407)*UV(3546)+JVS(43408)*UV(3547)+JVS(43409)*UV(3548)+JVS(43410)*UV(3549)& - &+JVS(43411)*UV(3550)+JVS(43412)*UV(3551)+JVS(43413)*UV(3552)+JVS(43414)*UV(3553)+JVS(43416)*UV(3555)& - &+JVS(43417)*UV(3556)+JVS(43418)*UV(3557)+JVS(43419)*UV(3558)+JVS(43420)*UV(3559)+JVS(43421)*UV(3560)& - &+JVS(43422)*UV(3561)+JVS(43424)*UV(3563)+JVS(43426)*UV(3571)+JVS(43429)*UV(3580)+JVS(43431)*UV(3583)& - &+JVS(43432)*UV(3587)+JVS(43433)*UV(3590)+JVS(43435)*UV(3593)+JVS(43436)*UV(3594)+JVS(43437)*UV(3595)& - &+JVS(43440)*UV(3599)+JVS(43441)*UV(3601)+JVS(43442)*UV(3602)+JVS(43443)*UV(3603)+JVS(43444)*UV(3604)& - &+JVS(43445)*UV(3607)+JVS(43446)*UV(3608)+JVS(43447)*UV(3609)+JVS(43448)*UV(3612)+JVS(43450)*UV(3616)& - &+JVS(43451)*UV(3617)+JVS(43452)*UV(3618)+JVS(43453)*UV(3619)+JVS(43454)*UV(3620)+JVS(43455)*UV(3621)& - &+JVS(43456)*UV(3622)+JVS(43457)*UV(3623)+JVS(43458)*UV(3624)+JVS(43459)*UV(3625)+JVS(43460)*UV(3626)& - &+JVS(43462)*UV(3628)+JVS(43463)*UV(3629)+JVS(43464)*UV(3630)+JVS(43467)*UV(3633)+JVS(43469)*UV(3635)& - &+JVS(43472)*UV(3638)+JVS(43473)*UV(3639)+JVS(43474)*UV(3640)+JVS(43476)*UV(3642)+JVS(43477)*UV(3643)& - &+JVS(43478)*UV(3644)+JVS(43479)*UV(3645)+JVS(43480)*UV(3646)+JVS(43481)*UV(3647)+JVS(43483)*UV(3649)& - &+JVS(43485)*UV(3651)+JVS(43486)*UV(3653)+JVS(43487)*UV(3654)+JVS(43488)*UV(3655)+JVS(43489)*UV(3656)& - &+JVS(43490)*UV(3657)+JVS(43493)*UV(3660)+JVS(43494)*UV(3661)+JVS(43495)*UV(3662)+JVS(43497)*UV(3664)& - &+JVS(43505)*UV(3672)+JVS(43506)*UV(3673)+JVS(43514)*UV(3681)+JVS(43515)*UV(3682)+JVS(43516)*UV(3683)& - &+JVS(43517)*UV(3684)+JVS(43522)*UV(3689)+JVS(43526)*UV(3693)+JVS(43533)*UV(3701)+JVS(43534)*UV(3702)& - &+JVS(43539)*UV(3707)+JVS(43540)*UV(3708)+JVS(43541)*UV(3709)+JVS(43548)*UV(3716)+JVS(43558)*UV(3726)& - &+JVS(43561)*UV(3729)+JVS(43564)*UV(3732)+JVS(43566)*UV(3734)+JVS(43567)*UV(3735)+JVS(43568)*UV(3736)& - &+JVS(43574)*UV(3742)+JVS(43579)*UV(3747)+JVS(43580)*UV(3748)+JVS(43586)*UV(3755)+JVS(43587)*UV(3756)& - &+JVS(43588)*UV(3757)+JVS(43590)*UV(3759)+JVS(43594)*UV(3763)+JVS(43604)*UV(3773)+JVS(43606)*UV(3775)& - &+JVS(43608)*UV(3777)+JVS(43610)*UV(3780)+JVS(43613)*UV(3783)+JVS(43617)*UV(3787)+JVS(43622)*UV(3792)& - &+JVS(43628)*UV(3800)+JVS(43629)*UV(3801)+JVS(43635)*UV(3809)+JVS(43641)*UV(3816)+JVS(43645)*UV(3821)& - &+JVS(43646)*UV(3822)+JVS(43651)*UV(3829)+JVS(43652)*UV(3830)+JVS(43653)*UV(3831)+JVS(43654)*UV(3832)& - &+JVS(43655)*UV(3833)+JVS(43656)*UV(3834)+JVS(43657)*UV(3835)+JVS(43659)*UV(3837)+JVS(43665)*UV(3843)& - &+JVS(43671)*UV(3849)+JVS(43673)*UV(3851)+JVS(43678)*UV(3856)+JVS(43679)*UV(3857)+JVS(43683)*UV(3861)& - &+JVS(43684)*UV(3862)+JVS(43690)*UV(3868)+JVS(43697)*UV(3875)+JVS(43699)*UV(3877)+JVS(43701)*UV(3879)& - &+JVS(43714)*UV(3892)+JVS(43718)*UV(3896)+JVS(43722)*UV(3900)+JVS(43728)*UV(3906)+JVS(43733)*UV(3911)& - &+JVS(43736)*UV(3914)+JVS(43737)*UV(3915)+JVS(43739)*UV(3917)+JVS(43740)*UV(3918)+JVS(43745)*UV(3923)& - &+JVS(43746)*UV(3924)+JVS(43751)*UV(3929)+JVS(43752)*UV(3931)+JVS(43754)*UV(3933)+JVS(43756)*UV(3935)& - &+JVS(43759)*UV(3938)+JVS(43767)*UV(3946)+JVS(43768)*UV(3947)+JVS(43779)*UV(3958)+JVS(43780)*UV(3959)& - &+JVS(43781)*UV(3960)+JVS(43786)*UV(3965)+JVS(43789)*UV(3968)+JVS(43793)*UV(3972)+JVS(43799)*UV(3978)& - &+JVS(43807)*UV(3986)+JVS(43812)*UV(3991)+JVS(43814)*UV(3993)+JVS(43816)*UV(3995)+JVS(43817)*UV(3996)& - &+JVS(43819)*UV(3998)+JVS(43830)*UV(4010)+JVS(43833)*UV(4013)+JVS(43834)*UV(4014)+JVS(43837)*UV(4017)& - &+JVS(43838)*UV(4018)+JVS(43846)*UV(4026)+JVS(43847)*UV(4027)+JVS(43852)*UV(4032)+JVS(43866)*UV(4046)& - &+JVS(43867)*UV(4047)+JVS(43868)*UV(4048)+JVS(43871)*UV(4051)+JVS(43873)*UV(4053)+JVS(43876)*UV(4056)& - &+JVS(43886)*UV(4066)+JVS(43900)*UV(4080)+JVS(43901)*UV(4081)+JVS(43903)*UV(4083)+JVS(43904)*UV(4084)& - &+JVS(43913)*UV(4093)+JVS(43914)*UV(4094)+JVS(43916)*UV(4096)+JVS(43920)*UV(4100)+JVS(43922)*UV(4102)& - &+JVS(43923)*UV(4103)+JVS(43924)*UV(4104)+JVS(43927)*UV(4107)+JVS(43928)*UV(4108)+JVS(43929)*UV(4109)& - &+JVS(43930)*UV(4110)+JVS(43933)*UV(4113)+JVS(43934)*UV(4114)+JVS(43942)*UV(4122)+JVS(43945)*UV(4125)& - &+JVS(43952)*UV(4132)+JVS(43959)*UV(4139)+JVS(43971)*UV(4151)+JVS(43974)*UV(4154)+JVS(43975)*UV(4155)& - &+JVS(43976)*UV(4156)+JVS(43980)*UV(4160)+JVS(43984)*UV(4164)+JVS(43988)*UV(4168)+JVS(43994)*UV(4174)& - &+JVS(43995)*UV(4175)+JVS(43997)*UV(4178)+JVS(43998)*UV(4179)+JVS(44000)*UV(4181)+JVS(44002)*UV(4183)& - &+JVS(44005)*UV(4186)+JVS(44006)*UV(4187)+JVS(44017)*UV(4198)+JVS(44018)*UV(4199)+JVS(44021)*UV(4202)& - &+JVS(44022)*UV(4203)+JVS(44025)*UV(4206)+JVS(44026)*UV(4207)+JVS(44027)*UV(4208)+JVS(44028)*UV(4209)& - &+JVS(44032)*UV(4214)+JVS(44033)*UV(4215)+JVS(44036)*UV(4218)+JVS(44038)*UV(4220)+JVS(44039)*UV(4221)& - &+JVS(44040)*UV(4222)+JVS(44041)*UV(4223)+JVS(44042)*UV(4224)+JVS(44045)*UV(4227)+JVS(44046)*UV(4228)& - &+JVS(44047)*UV(4229)+JVS(44048)*UV(4230)+JVS(44049)*UV(4231)+JVS(44051)*UV(4233)+JVS(44057)*UV(4239)& - &+JVS(44059)*UV(4241)+JVS(44061)*UV(4243)+JVS(44065)*UV(4248)+JVS(44069)*UV(4253)+JVS(44071)*UV(4255)& - &+JVS(44072)*UV(4256)+JVS(44074)*UV(4259)+JVS(44075)*UV(4260)+JVS(44076)*UV(4261)+JVS(44080)*UV(4266)& - &+JVS(44081)*UV(4267)+JVS(44083)*UV(4269)+JVS(44086)*UV(4272)+JVS(44089)*UV(4275)+JVS(44092)*UV(4278)& - &+JVS(44093)*UV(4279)+JVS(44095)*UV(4281)+JVS(44096)*UV(4283)+JVS(44100)*UV(4288)+JVS(44106)*UV(4294)& - &+JVS(44111)*UV(4299)+JVS(44112)*UV(4300)+JVS(44113)*UV(4301)+JVS(44119)*UV(4308)+JVS(44124)*UV(4313)& - &+JVS(44127)*UV(4316)+JVS(44131)*UV(4321)+JVS(44134)*UV(4324)+JVS(44135)*UV(4325)+JVS(44139)*UV(4329)& - &+JVS(44140)*UV(4330)+JVS(44141)*UV(4331)+JVS(44142)*UV(4332)+JVS(44143)*UV(4333)+JVS(44148)*UV(4338)& - &+JVS(44162)*UV(4352)+JVS(44172)*UV(4362)+JVS(44176)*UV(4366)+JVS(44183)*UV(4373)+JVS(44185)*UV(4375)& - &+JVS(44188)*UV(4378)+JVS(44190)*UV(4380)+JVS(44192)*UV(4382)+JVS(44193)*UV(4383)+JVS(44196)*UV(4386)& - &+JVS(44201)*UV(4391)+JVS(44202)*UV(4392)+JVS(44205)*UV(4395)+JVS(44206)*UV(4396)+JVS(44207)*UV(4397)& - &+JVS(44208)*UV(4398)+JVS(44211)*UV(4401)+JVS(44213)*UV(4403)+JVS(44214)*UV(4404)+JVS(44215)*UV(4405)& - &+JVS(44216)*UV(4406)+JVS(44219)*UV(4409)+JVS(44222)*UV(4412)+JVS(44224)*UV(4414)+JVS(44227)*UV(4417)& - &+JVS(44229)*UV(4419)+JVS(44230)*UV(4420)+JVS(44234)*UV(4424)+JVS(44237)*UV(4427)+JVS(44238)*UV(4428)& - &+JVS(44240)*UV(4430)+JVS(44241)*UV(4431)+JVS(44243)*UV(4433)+JVS(44246)*UV(4436)+JVS(44249)*UV(4439)& - &+JVS(44251)*UV(4441)+JVS(44253)*UV(4443)+JVS(44255)*UV(4445)+JVS(44259)*UV(4449)+JVS(44260)*UV(4450)& - &+JVS(44261)*UV(4451)+JVS(44262)*UV(4452)+JVS(44266)*UV(4456)+JVS(44270)*UV(4460)+JVS(44272)*UV(4462)& - &+JVS(44278)*UV(4468)+JVS(44279)*UV(4469)+JVS(44280)*UV(4470)+JVS(44282)*UV(4472)+JVS(44284)*UV(4474)& - &+JVS(44285)*UV(4475)+JVS(44294)*UV(4484)+JVS(44295)*UV(4485)+JVS(44299)*UV(4489)+JVS(44300)*UV(4490)& - &+JVS(44301)*UV(4491)+JVS(44302)*UV(4492)+JVS(44303)*UV(4493)+JVS(44306)*UV(4496)+JVS(44310)*UV(4500)& - &+JVS(44311)*UV(4501)+JVS(44312)*UV(4502)+JVS(44315)*UV(4505)+JVS(44317)*UV(4507)+JVS(44318)*UV(4508)& - &+JVS(44322)*UV(4512)+JVS(44325)*UV(4515)+JVS(44326)*UV(4516)+JVS(44327)*UV(4517)+JVS(44328)*UV(4518)& - &+JVS(44329)*UV(4519)+JVS(44330)*UV(4520)+JVS(44331)*UV(4521)+JVS(44332)*UV(4522)+JVS(44333)*UV(4523)& - &+JVS(44334)*UV(4524)+JVS(44335)*UV(4525)+JVS(44337)*UV(4527)+JVS(44338)*UV(4528)+JVS(44340)*UV(4530)& - &+JVS(44344)*UV(4534)+JVS(44346)*UV(4536)+JVS(44347)*UV(4537)+JVS(44349)*UV(4539)+JVS(44350)*UV(4540)& - &+JVS(44356)*UV(4547)+JVS(44357)*UV(4548)+JVS(44361)*UV(4553)+JVS(44363)*UV(4555)+JVS(44364)*UV(4557)& - &+JVS(44366)*UV(4559)+JVS(44371)*UV(4564)+JVS(44376)*UV(4569)+JVS(44377)*UV(4570)+JVS(44383)*UV(4576)& - &+JVS(44395)*UV(4588)+JVS(44398)*UV(4591)+JVS(44407)*UV(4600)+JVS(44408)*UV(4601)+JVS(44409)*UV(4602)& - &+JVS(44411)*UV(4604)+JVS(44412)*UV(4605)+JVS(44413)*UV(4606)+JVS(44418)*UV(4611)+JVS(44420)*UV(4613)& - &+JVS(44422)*UV(4615)+JVS(44424)*UV(4617)+JVS(44425)*UV(4618)+JVS(44427)*UV(4620)+JVS(44429)*UV(4622)& - &+JVS(44430)*UV(4623)+JVS(44431)*UV(4624)+JVS(44433)*UV(4626)+JVS(44434)*UV(4627)+JVS(44435)*UV(4628)& - &+JVS(44436)*UV(4629)+JVS(44437)*UV(4630)+JVS(44438)*UV(4631)+JVS(44440)*UV(4633)+JVS(44441)*UV(4634)& - &+JVS(44442)*UV(4635)+JVS(44443)*UV(4636)+JVS(44444)*UV(4637)+JVS(44445)*UV(4638)+JVS(44448)*UV(4641)& - &+JVS(44449)*UV(4642)+JVS(44456)*UV(4649)+JVS(44457)*UV(4650)+JVS(44458)*UV(4651)+JVS(44459)*UV(4652)& - &+JVS(44460)*UV(4653)+JVS(44461)*UV(4654)+JVS(44463)*UV(4656)+JVS(44464)*UV(4657)+JVS(44465)*UV(4658)& - &+JVS(44466)*UV(4659)+JVS(44467)*UV(4660)+JVS(44469)*UV(4662)+JVS(44471)*UV(4664)+JVS(44472)*UV(4665)& - &+JVS(44480)*UV(4673)+JVS(44486)*UV(4679)+JVS(44487)*UV(4680)+JVS(44488)*UV(4681)+JVS(44491)*UV(4684)& - &+JVS(44492)*UV(4685)+JVS(44493)*UV(4686)+JVS(44499)*UV(4692)+JVS(44500)*UV(4693)+JVS(44501)*UV(4694)& - &+JVS(44515)*UV(4708)+JVS(44517)*UV(4710)+JVS(44524)*UV(4717)+JVS(44528)*UV(4721)+JVS(44535)*UV(4728)& - &+JVS(44536)*UV(4729)+JVS(44538)*UV(4731)+JVS(44543)*UV(4736)+JVS(44544)*UV(4737)+JVS(44545)*UV(4738)& - &+JVS(44546)*UV(4739)+JVS(44547)*UV(4740)+JVS(44550)*UV(4744)+JVS(44553)*UV(4747)+JVS(44555)*UV(4749)& - &+JVS(44558)*UV(4752)+JVS(44559)*UV(4753)+JVS(44564)*UV(4758)+JVS(44565)*UV(4759)+JVS(44566)*UV(4760)& - &+JVS(44576)*UV(4770)+JVS(44577)*UV(4771)+JVS(44578)*UV(4772)+JVS(44579)*UV(4773)+JVS(44581)*UV(4775)& - &+JVS(44592)*UV(4786)+JVS(44598)*UV(4792)+JVS(44599)*UV(4793)+JVS(44600)*UV(4794)+JVS(44601)*UV(4795)& - &+JVS(44602)*UV(4796)+JVS(44606)*UV(4800)+JVS(44607)*UV(4801)+JVS(44611)*UV(4805)+JVS(44612)*UV(4806)& - &+JVS(44613)*UV(4807)+JVS(44614)*UV(4808)+JVS(44618)*UV(4812)+JVS(44621)*UV(4815)+JVS(44622)*UV(4816)& - &+JVS(44624)*UV(4818)+JVS(44628)*UV(4822)+JVS(44632)*UV(4826)+JVS(44635)*UV(4829)+JVS(44636)*UV(4830)& - &+JVS(44637)*UV(4831)+JVS(44638)*UV(4832)+JVS(44639)*UV(4833)+JVS(44640)*UV(4834)+JVS(44642)*UV(4836)& - &+JVS(44645)*UV(4839)+JVS(44646)*UV(4840)+JVS(44648)*UV(4842)+JVS(44651)*UV(4845)+JVS(44652)*UV(4846)& - &+JVS(44653)*UV(4847)+JVS(44654)*UV(4848)+JVS(44655)*UV(4849)+JVS(44656)*UV(4850)+JVS(44657)*UV(4851)& - &+JVS(44659)*UV(4853)+JVS(44660)*UV(4854)+JVS(44661)*UV(4855)+JVS(44666)*UV(4860)+JVS(44668)*UV(4862)& - &+JVS(44669)*UV(4863)+JVS(44670)*UV(4864)+JVS(44671)*UV(4865)+JVS(44672)*UV(4866)+JVS(44673)*UV(4867)& - &+JVS(44678)*UV(4872)+JVS(44679)*UV(4873)+JVS(44680)*UV(4874)+JVS(44688)*UV(4882)+JVS(44689)*UV(4883)& - &+JVS(44694)*UV(4888)+JVS(44697)*UV(4891)+JVS(44698)*UV(4892)+JVS(44701)*UV(4895)+JVS(44702)*UV(4896)& - &+JVS(44708)*UV(4902)+JVS(44713)*UV(4907)+JVS(44715)*UV(4909)+JVS(44716)*UV(4910)+JVS(44720)*UV(4914)& - &+JVS(44721)*UV(4915)+JVS(44722)*UV(4916)+JVS(44723)*UV(4917)+JVS(44724)*UV(4918)+JVS(44727)*UV(4921)& - &+JVS(44730)*UV(4924)+JVS(44732)*UV(4926)+JVS(44733)*UV(4927)+JVS(44736)*UV(4930)+JVS(44737)*UV(4931)& - &+JVS(44739)*UV(4933)+JVS(44740)*UV(4934)+JVS(44742)*UV(4936)+JVS(44744)*UV(4938)+JVS(44745)*UV(4939)& - &+JVS(44750)*UV(4944)+JVS(44751)*UV(4945)+JVS(44752)*UV(4946)+JVS(44754)*UV(4948)+JVS(44755)*UV(4949)& - &+JVS(44757)*UV(4951)+JVS(44758)*UV(4952)+JVS(44759)*UV(4953)+JVS(44760)*UV(4954)+JVS(44761)*UV(4955)& - &+JVS(44763)*UV(4957)+JVS(44764)*UV(4958)+JVS(44767)*UV(4961)+JVS(44768)*UV(4962)+JVS(44770)*UV(4964)& - &+JVS(44772)*UV(4966)+JVS(44774)*UV(4968)+JVS(44775)*UV(4969)+JVS(44776)*UV(4970)+JVS(44779)*UV(4973)& - &+JVS(44781)*UV(4975)+JVS(44782)*UV(4976)+JVS(44783)*UV(4977)+JVS(44784)*UV(4978)+JVS(44785)*UV(4979)& - &+JVS(44789)*UV(4983)+JVS(44790)*UV(4984)+JVS(44791)*UV(4985)+JVS(44792)*UV(4986)+JVS(44794)*UV(4988)& - &+JVS(44795)*UV(4989)+JVS(44796)*UV(4990)+JVS(44799)*UV(4993)+JVS(44800)*UV(4994)+JVS(44802)*UV(4996)& - &+JVS(44806)*UV(5000)+JVS(44808)*UV(5002)+JVS(44809)*UV(5003)+JVS(44810)*UV(5004)+JVS(44811)*UV(5005)& - &+JVS(44812)*UV(5006)+JVS(44814)*UV(5008)+JVS(44815)*UV(5009)+JVS(44816)*UV(5010)+JVS(44818)*UV(5012)& - &+JVS(44819)*UV(5013)+JVS(44820)*UV(5014)+JVS(44823)*UV(5017)+JVS(44824)*UV(5018)+JVS(44827)*UV(5021)& - &+JVS(44829)*UV(5023)+JVS(44830)*UV(5024)+JVS(44831)*UV(5025)+JVS(44832)*UV(5026)+JVS(44833)*UV(5027)& - &+JVS(44835)*UV(5029)+JVS(44837)*UV(5031)+JVS(44839)*UV(5033)+JVS(44840)*UV(5034)+JVS(44841)*UV(5035)& - &+JVS(44842)*UV(5036)+JVS(44843)*UV(5037)+JVS(44844)*UV(5038)+JVS(44848)*UV(5042)+JVS(44850)*UV(5044)& - &+JVS(44852)*UV(5046)+JVS(44855)*UV(5049)+JVS(44856)*UV(5050)+JVS(44857)*UV(5051)+JVS(44858)*UV(5052)& - &+JVS(44860)*UV(5054)+JVS(44861)*UV(5055)+JVS(44863)*UV(5057)+JVS(44864)*UV(5058)+JVS(44869)*UV(5063)& - &+JVS(44870)*UV(5064)+JVS(44872)*UV(5066)+JVS(44873)*UV(5067)+JVS(44874)*UV(5068)+JVS(44875)*UV(5069)& - &+JVS(44877)*UV(5071)+JVS(44878)*UV(5072)+JVS(44879)*UV(5073)+JVS(44881)*UV(5075)+JVS(44882)*UV(5076)& - &+JVS(44885)*UV(5079)+JVS(44886)*UV(5080)+JVS(44889)*UV(5083)+JVS(44891)*UV(5085)+JVS(44892)*UV(5086)& - &+JVS(44893)*UV(5087)+JVS(44894)*UV(5088)+JVS(44895)*UV(5089)+JVS(44896)*UV(5090)+JVS(44897)*UV(5091)& - &+JVS(44899)*UV(5093)+JVS(44900)*UV(5094)+JVS(44901)*UV(5095)+JVS(44905)*UV(5099)+JVS(44906)*UV(5100)& - &+JVS(44907)*UV(5101)+JVS(44909)*UV(5103)+JVS(44911)*UV(5105)+JVS(44912)*UV(5106)+JVS(44916)*UV(5110)& - &+JVS(44917)*UV(5111)+JVS(44919)*UV(5113)+JVS(44921)*UV(5115)+JVS(44923)*UV(5117)+JVS(44929)*UV(5123)& - &+JVS(44930)*UV(5124)+JVS(44931)*UV(5125)+JVS(44932)*UV(5126)+JVS(44934)*UV(5128)+JVS(44937)*UV(5131)& - &+JVS(44939)*UV(5133)+JVS(44942)*UV(5136)+JVS(44943)*UV(5137)+JVS(44945)*UV(5139)+JVS(44946)*UV(5140)& - &+JVS(44947)*UV(5141)+JVS(44949)*UV(5143)+JVS(44958)*UV(5152)+JVS(44959)*UV(5153)+JVS(44961)*UV(5155)& - &+JVS(44963)*UV(5157)+JVS(44964)*UV(5158)+JVS(44965)*UV(5159)+JVS(44966)*UV(5160)+JVS(44968)*UV(5162)& - &+JVS(44970)*UV(5164)+JVS(44971)*UV(5165)+JVS(44972)*UV(5166)+JVS(44973)*UV(5167)+JVS(44974)*UV(5168)& - &+JVS(44975)*UV(5169)+JVS(44977)*UV(5171)+JVS(44978)*UV(5172)+JVS(44980)*UV(5174)+JVS(44981)*UV(5175)& - &+JVS(44982)*UV(5176)+JVS(44983)*UV(5177)+JVS(44984)*UV(5178)+JVS(44985)*UV(5179)+JVS(44986)*UV(5180)& - &+JVS(44988)*UV(5182)+JVS(44989)*UV(5183)+JVS(44990)*UV(5184)+JVS(44993)*UV(5187)+JVS(44994)*UV(5188)& - &+JVS(44995)*UV(5189)+JVS(44996)*UV(5190)+JVS(44997)*UV(5191)+JVS(44999)*UV(5193)+JVS(45000)*UV(5194)& - &+JVS(45005)*UV(5199)+JVS(45006)*UV(5200)+JVS(45007)*UV(5201)+JVS(45009)*UV(5203)+JVS(45011)*UV(5205)& - &+JVS(45013)*UV(5207)+JVS(45015)*UV(5209)+JVS(45016)*UV(5210)+JVS(45017)*UV(5211)+JVS(45018)*UV(5212)& - &+JVS(45019)*UV(5213)+JVS(45020)*UV(5214)+JVS(45021)*UV(5215)+JVS(45022)*UV(5216)+JVS(45025)*UV(5219)& - &+JVS(45026)*UV(5220)+JVS(45027)*UV(5221)+JVS(45028)*UV(5222)+JVS(45030)*UV(5224)+JVS(45031)*UV(5225)& - &+JVS(45032)*UV(5226)+JVS(45033)*UV(5227)+JVS(45036)*UV(5230)+JVS(45037)*UV(5231)+JVS(45038)*UV(5232)& - &+JVS(45039)*UV(5233)+JVS(45040)*UV(5234)+JVS(45043)*UV(5237)+JVS(45046)*UV(5240)+JVS(45047)*UV(5241)& - &+JVS(45048)*UV(5242)+JVS(45049)*UV(5243)+JVS(45050)*UV(5244)+JVS(45051)*UV(5245)+JVS(45054)*UV(5248)& - &+JVS(45055)*UV(5249)+JVS(45056)*UV(5250)+JVS(45057)*UV(5251)+JVS(45058)*UV(5252)+JVS(45059)*UV(5253)& - &+JVS(45060)*UV(5254)+JVS(45061)*UV(5255)+JVS(45062)*UV(5256)+JVS(45063)*UV(5257)+JVS(45064)*UV(5258) - JUV(5251) = JVS(45065)*UV(11)+JVS(45066)*UV(198)+JVS(45067)*UV(451)+JVS(45068)*UV(572)+JVS(45069)*UV(579)+JVS(45070)& - &*UV(591)+JVS(45071)*UV(604)+JVS(45072)*UV(612)+JVS(45073)*UV(626)+JVS(45074)*UV(684)+JVS(45075)*UV(685)& - &+JVS(45076)*UV(686)+JVS(45077)*UV(701)+JVS(45078)*UV(719)+JVS(45079)*UV(759)+JVS(45080)*UV(763)+JVS(45081)& - &*UV(766)+JVS(45082)*UV(771)+JVS(45083)*UV(802)+JVS(45084)*UV(805)+JVS(45085)*UV(1483)+JVS(45086)*UV(1570)& - &+JVS(45087)*UV(1575)+JVS(45088)*UV(1588)+JVS(45089)*UV(1598)+JVS(45090)*UV(1602)+JVS(45091)*UV(1612)& - &+JVS(45092)*UV(1619)+JVS(45093)*UV(1623)+JVS(45094)*UV(1636)+JVS(45095)*UV(1639)+JVS(45096)*UV(1642)& - &+JVS(45097)*UV(1644)+JVS(45098)*UV(1682)+JVS(45099)*UV(1685)+JVS(45100)*UV(1698)+JVS(45101)*UV(1734)& - &+JVS(45102)*UV(1756)+JVS(45103)*UV(1760)+JVS(45104)*UV(1769)+JVS(45105)*UV(1776)+JVS(45106)*UV(1777)& - &+JVS(45107)*UV(1791)+JVS(45109)*UV(1797)+JVS(45110)*UV(1806)+JVS(45111)*UV(1810)+JVS(45112)*UV(1825)& - &+JVS(45113)*UV(1828)+JVS(45114)*UV(1851)+JVS(45115)*UV(1853)+JVS(45116)*UV(1857)+JVS(45117)*UV(1858)& - &+JVS(45118)*UV(1872)+JVS(45119)*UV(1875)+JVS(45120)*UV(1928)+JVS(45121)*UV(1939)+JVS(45122)*UV(1951)& - &+JVS(45123)*UV(1959)+JVS(45124)*UV(1969)+JVS(45125)*UV(1981)+JVS(45126)*UV(1988)+JVS(45127)*UV(1991)& - &+JVS(45128)*UV(2003)+JVS(45129)*UV(2004)+JVS(45130)*UV(2013)+JVS(45131)*UV(2024)+JVS(45132)*UV(2038)& - &+JVS(45133)*UV(2042)+JVS(45134)*UV(2104)+JVS(45135)*UV(2109)+JVS(45136)*UV(2117)+JVS(45137)*UV(2132)& - &+JVS(45138)*UV(2134)+JVS(45139)*UV(2138)+JVS(45140)*UV(2141)+JVS(45141)*UV(2145)+JVS(45142)*UV(2148)& - &+JVS(45143)*UV(2170)+JVS(45144)*UV(2171)+JVS(45145)*UV(2191)+JVS(45146)*UV(2197)+JVS(45147)*UV(2200)& - &+JVS(45148)*UV(2201)+JVS(45149)*UV(2209)+JVS(45150)*UV(2210)+JVS(45151)*UV(2212)+JVS(45152)*UV(2234)& - &+JVS(45153)*UV(2238)+JVS(45154)*UV(2243)+JVS(45155)*UV(2255)+JVS(45156)*UV(2258)+JVS(45157)*UV(2286)& - &+JVS(45158)*UV(2287)+JVS(45159)*UV(2310)+JVS(45160)*UV(2315)+JVS(45161)*UV(2335)+JVS(45162)*UV(2336)& - &+JVS(45163)*UV(2345)+JVS(45164)*UV(2346)+JVS(45165)*UV(2357)+JVS(45166)*UV(2376)+JVS(45167)*UV(2392)& - &+JVS(45168)*UV(2395)+JVS(45169)*UV(2430)+JVS(45170)*UV(2448)+JVS(45171)*UV(2467)+JVS(45172)*UV(2472)& - &+JVS(45173)*UV(2474)+JVS(45174)*UV(2475)+JVS(45175)*UV(2476)+JVS(45176)*UV(2477)+JVS(45177)*UV(2479)& - &+JVS(45178)*UV(2481)+JVS(45179)*UV(2482)+JVS(45180)*UV(2483)+JVS(45181)*UV(2484)+JVS(45182)*UV(2485)& - &+JVS(45183)*UV(2486)+JVS(45184)*UV(2487)+JVS(45185)*UV(2489)+JVS(45186)*UV(2494)+JVS(45187)*UV(2496)& - &+JVS(45188)*UV(2498)+JVS(45189)*UV(2500)+JVS(45190)*UV(2501)+JVS(45191)*UV(2504)+JVS(45192)*UV(2505)& - &+JVS(45193)*UV(2507)+JVS(45194)*UV(2510)+JVS(45195)*UV(2511)+JVS(45196)*UV(2515)+JVS(45197)*UV(2517)& - &+JVS(45198)*UV(2518)+JVS(45199)*UV(2522)+JVS(45200)*UV(2523)+JVS(45201)*UV(2525)+JVS(45202)*UV(2526)& - &+JVS(45203)*UV(2527)+JVS(45204)*UV(2529)+JVS(45205)*UV(2530)+JVS(45206)*UV(2531)+JVS(45207)*UV(2533)& - &+JVS(45208)*UV(2537)+JVS(45209)*UV(2538)+JVS(45210)*UV(2541)+JVS(45211)*UV(2552)+JVS(45212)*UV(2554)& - &+JVS(45213)*UV(2559)+JVS(45214)*UV(2560)+JVS(45215)*UV(2564)+JVS(45216)*UV(2567)+JVS(45217)*UV(2568)& - &+JVS(45218)*UV(2569)+JVS(45219)*UV(2573)+JVS(45220)*UV(2576)+JVS(45221)*UV(2579)+JVS(45222)*UV(2582)& - &+JVS(45223)*UV(2583)+JVS(45224)*UV(2584)+JVS(45225)*UV(2587)+JVS(45226)*UV(2593)+JVS(45227)*UV(2597)& - &+JVS(45228)*UV(2600)+JVS(45229)*UV(2601)+JVS(45230)*UV(2607)+JVS(45231)*UV(2608)+JVS(45232)*UV(2609)& - &+JVS(45233)*UV(2611)+JVS(45234)*UV(2612)+JVS(45235)*UV(2613)+JVS(45236)*UV(2615)+JVS(45237)*UV(2616)& - &+JVS(45239)*UV(2620)+JVS(45240)*UV(2622)+JVS(45241)*UV(2630)+JVS(45242)*UV(2631)+JVS(45243)*UV(2632)& - &+JVS(45244)*UV(2636)+JVS(45245)*UV(2637)+JVS(45246)*UV(2640)+JVS(45247)*UV(2643)+JVS(45248)*UV(2645)& - &+JVS(45249)*UV(2648)+JVS(45250)*UV(2651)+JVS(45251)*UV(2652)+JVS(45252)*UV(2654)+JVS(45253)*UV(2655)& - &+JVS(45254)*UV(2656)+JVS(45255)*UV(2657)+JVS(45256)*UV(2658)+JVS(45257)*UV(2660)+JVS(45258)*UV(2663)& - &+JVS(45259)*UV(2666)+JVS(45260)*UV(2667)+JVS(45261)*UV(2669)+JVS(45262)*UV(2670)+JVS(45263)*UV(2671)& - &+JVS(45264)*UV(2674)+JVS(45265)*UV(2675)+JVS(45266)*UV(2677)+JVS(45267)*UV(2678)+JVS(45268)*UV(2679)& - &+JVS(45269)*UV(2684)+JVS(45270)*UV(2685)+JVS(45271)*UV(2688)+JVS(45272)*UV(2689)+JVS(45274)*UV(2691)& - &+JVS(45275)*UV(2692)+JVS(45276)*UV(2696)+JVS(45277)*UV(2698)+JVS(45278)*UV(2702)+JVS(45279)*UV(2703)& - &+JVS(45280)*UV(2704)+JVS(45281)*UV(2708)+JVS(45282)*UV(2712)+JVS(45283)*UV(2714)+JVS(45284)*UV(2718)& - &+JVS(45285)*UV(2724)+JVS(45286)*UV(2725)+JVS(45287)*UV(2726)+JVS(45289)*UV(2729)+JVS(45290)*UV(2737)& - &+JVS(45291)*UV(2738)+JVS(45292)*UV(2739)+JVS(45293)*UV(2743)+JVS(45294)*UV(2748)+JVS(45295)*UV(2749)& - &+JVS(45296)*UV(2751)+JVS(45297)*UV(2754)+JVS(45298)*UV(2755)+JVS(45299)*UV(2756)+JVS(45300)*UV(2757)& - &+JVS(45301)*UV(2758)+JVS(45302)*UV(2763)+JVS(45303)*UV(2765)+JVS(45304)*UV(2768)+JVS(45305)*UV(2769)& - &+JVS(45306)*UV(2772)+JVS(45307)*UV(2777)+JVS(45308)*UV(2778)+JVS(45309)*UV(2779)+JVS(45310)*UV(2780)& - &+JVS(45311)*UV(2781)+JVS(45312)*UV(2784)+JVS(45313)*UV(2786)+JVS(45314)*UV(2787)+JVS(45315)*UV(2788)& - &+JVS(45316)*UV(2790)+JVS(45317)*UV(2791)+JVS(45318)*UV(2792)+JVS(45319)*UV(2793)+JVS(45320)*UV(2794)& - &+JVS(45321)*UV(2796)+JVS(45322)*UV(2797)+JVS(45323)*UV(2800)+JVS(45324)*UV(2801)+JVS(45325)*UV(2803)& - &+JVS(45326)*UV(2804)+JVS(45327)*UV(2805)+JVS(45328)*UV(2807)+JVS(45329)*UV(2808)+JVS(45330)*UV(2809)& - &+JVS(45331)*UV(2811)+JVS(45332)*UV(2813)+JVS(45333)*UV(2815)+JVS(45334)*UV(2819)+JVS(45335)*UV(2820)& - &+JVS(45336)*UV(2822)+JVS(45337)*UV(2823)+JVS(45338)*UV(2824)+JVS(45339)*UV(2825)+JVS(45340)*UV(2828)& - &+JVS(45341)*UV(2829)+JVS(45342)*UV(2830)+JVS(45344)*UV(2837)+JVS(45345)*UV(2838)+JVS(45346)*UV(2841)& - &+JVS(45347)*UV(2842)+JVS(45348)*UV(2843)+JVS(45349)*UV(2844)+JVS(45350)*UV(2845)+JVS(45351)*UV(2846)& - &+JVS(45352)*UV(2848)+JVS(45353)*UV(2850)+JVS(45354)*UV(2852)+JVS(45355)*UV(2853)+JVS(45356)*UV(2858)& - &+JVS(45357)*UV(2860)+JVS(45358)*UV(2861)+JVS(45359)*UV(2862)+JVS(45360)*UV(2864)+JVS(45361)*UV(2867)& - &+JVS(45362)*UV(2872)+JVS(45363)*UV(2873)+JVS(45364)*UV(2875)+JVS(45365)*UV(2876)+JVS(45366)*UV(2877)& - &+JVS(45367)*UV(2879)+JVS(45368)*UV(2880)+JVS(45369)*UV(2881)+JVS(45370)*UV(2882)+JVS(45371)*UV(2883)& - &+JVS(45372)*UV(2884)+JVS(45373)*UV(2885)+JVS(45374)*UV(2886)+JVS(45375)*UV(2887)+JVS(45376)*UV(2890)& - &+JVS(45377)*UV(2894)+JVS(45378)*UV(2895)+JVS(45379)*UV(2896)+JVS(45380)*UV(2898)+JVS(45381)*UV(2899)& - &+JVS(45383)*UV(2904)+JVS(45384)*UV(2905)+JVS(45385)*UV(2907)+JVS(45386)*UV(2911)+JVS(45387)*UV(2915)& - &+JVS(45388)*UV(2919)+JVS(45389)*UV(2921)+JVS(45390)*UV(2924)+JVS(45391)*UV(2925)+JVS(45392)*UV(2927)& - &+JVS(45393)*UV(2928)+JVS(45394)*UV(2929)+JVS(45395)*UV(2930)+JVS(45396)*UV(2936)+JVS(45397)*UV(2941)& - &+JVS(45398)*UV(2945)+JVS(45399)*UV(2947)+JVS(45400)*UV(2951)+JVS(45401)*UV(2955)+JVS(45402)*UV(2956)& - &+JVS(45403)*UV(2958)+JVS(45404)*UV(2960)+JVS(45405)*UV(2966)+JVS(45406)*UV(2968)+JVS(45407)*UV(2969)& - &+JVS(45408)*UV(2971)+JVS(45409)*UV(2975)+JVS(45410)*UV(2977)+JVS(45411)*UV(2978)+JVS(45412)*UV(2980)& - &+JVS(45413)*UV(2984)+JVS(45414)*UV(2987)+JVS(45415)*UV(2988)+JVS(45416)*UV(2989)+JVS(45417)*UV(2991)& - &+JVS(45418)*UV(2992)+JVS(45419)*UV(2993)+JVS(45420)*UV(2998)+JVS(45421)*UV(3003)+JVS(45422)*UV(3007)& - &+JVS(45423)*UV(3008)+JVS(45424)*UV(3010)+JVS(45425)*UV(3011)+JVS(45426)*UV(3012)+JVS(45427)*UV(3014)& - &+JVS(45428)*UV(3017)+JVS(45429)*UV(3020)+JVS(45430)*UV(3021)+JVS(45431)*UV(3022)+JVS(45432)*UV(3023)& - &+JVS(45433)*UV(3024)+JVS(45434)*UV(3025)+JVS(45435)*UV(3026)+JVS(45436)*UV(3033)+JVS(45437)*UV(3040)& - &+JVS(45438)*UV(3041)+JVS(45439)*UV(3042)+JVS(45440)*UV(3043)+JVS(45441)*UV(3044)+JVS(45442)*UV(3047)& - &+JVS(45443)*UV(3051)+JVS(45444)*UV(3052)+JVS(45445)*UV(3053)+JVS(45446)*UV(3056)+JVS(45447)*UV(3058)& - &+JVS(45448)*UV(3060)+JVS(45449)*UV(3062)+JVS(45450)*UV(3063)+JVS(45451)*UV(3067)+JVS(45452)*UV(3070)& - &+JVS(45453)*UV(3073)+JVS(45454)*UV(3075)+JVS(45455)*UV(3099)+JVS(45456)*UV(3107)+JVS(45457)*UV(3108)& - &+JVS(45458)*UV(3115)+JVS(45459)*UV(3132)+JVS(45460)*UV(3133)+JVS(45461)*UV(3147)+JVS(45463)*UV(3155)& - &+JVS(45465)*UV(3171)+JVS(45466)*UV(3176)+JVS(45467)*UV(3177)+JVS(45468)*UV(3186)+JVS(45469)*UV(3196)& - &+JVS(45470)*UV(3197)+JVS(45471)*UV(3199)+JVS(45472)*UV(3200)+JVS(45473)*UV(3201)+JVS(45474)*UV(3202)& - &+JVS(45475)*UV(3204)+JVS(45476)*UV(3206)+JVS(45477)*UV(3207)+JVS(45478)*UV(3210)+JVS(45480)*UV(3215)& - &+JVS(45481)*UV(3216)+JVS(45482)*UV(3217)+JVS(45483)*UV(3218)+JVS(45484)*UV(3220)+JVS(45485)*UV(3221)& - &+JVS(45486)*UV(3223)+JVS(45487)*UV(3224)+JVS(45488)*UV(3225)+JVS(45489)*UV(3226)+JVS(45490)*UV(3227)& - &+JVS(45491)*UV(3228)+JVS(45492)*UV(3229)+JVS(45493)*UV(3230)+JVS(45494)*UV(3232)+JVS(45495)*UV(3236)& - &+JVS(45496)*UV(3238)+JVS(45497)*UV(3239)+JVS(45498)*UV(3240)+JVS(45499)*UV(3248)+JVS(45500)*UV(3249)& - &+JVS(45501)*UV(3250)+JVS(45502)*UV(3251)+JVS(45503)*UV(3252)+JVS(45504)*UV(3254)+JVS(45505)*UV(3255)& - &+JVS(45506)*UV(3257)+JVS(45507)*UV(3258)+JVS(45508)*UV(3259)+JVS(45509)*UV(3260)+JVS(45510)*UV(3262)& - &+JVS(45511)*UV(3267)+JVS(45512)*UV(3269)+JVS(45513)*UV(3273)+JVS(45515)*UV(3275)+JVS(45516)*UV(3276)& - &+JVS(45517)*UV(3280)+JVS(45518)*UV(3281)+JVS(45519)*UV(3282)+JVS(45520)*UV(3286)+JVS(45522)*UV(3290)& - &+JVS(45524)*UV(3292)+JVS(45525)*UV(3293)+JVS(45526)*UV(3294)+JVS(45527)*UV(3297)+JVS(45528)*UV(3300)& - &+JVS(45529)*UV(3301)+JVS(45530)*UV(3302)+JVS(45531)*UV(3303)+JVS(45532)*UV(3306)+JVS(45533)*UV(3307)& - &+JVS(45534)*UV(3309)+JVS(45535)*UV(3311)+JVS(45536)*UV(3312)+JVS(45537)*UV(3313)+JVS(45538)*UV(3315)& - &+JVS(45539)*UV(3316)+JVS(45540)*UV(3317)+JVS(45541)*UV(3318)+JVS(45542)*UV(3323)+JVS(45543)*UV(3324)& - &+JVS(45544)*UV(3325)+JVS(45545)*UV(3327)+JVS(45546)*UV(3329)+JVS(45547)*UV(3330)+JVS(45548)*UV(3336)& - &+JVS(45549)*UV(3337)+JVS(45550)*UV(3339)+JVS(45551)*UV(3340)+JVS(45552)*UV(3344)+JVS(45553)*UV(3345)& - &+JVS(45554)*UV(3348)+JVS(45555)*UV(3350)+JVS(45556)*UV(3352)+JVS(45557)*UV(3353)+JVS(45558)*UV(3355)& - &+JVS(45559)*UV(3356)+JVS(45560)*UV(3357)+JVS(45561)*UV(3358)+JVS(45562)*UV(3359)+JVS(45563)*UV(3360)& - &+JVS(45564)*UV(3365)+JVS(45565)*UV(3370)+JVS(45566)*UV(3375)+JVS(45567)*UV(3378)+JVS(45568)*UV(3379)& - &+JVS(45569)*UV(3387)+JVS(45570)*UV(3389)+JVS(45571)*UV(3397)+JVS(45572)*UV(3400)+JVS(45573)*UV(3406)& - &+JVS(45574)*UV(3408)+JVS(45575)*UV(3411)+JVS(45576)*UV(3419)+JVS(45577)*UV(3426)+JVS(45578)*UV(3427)& - &+JVS(45579)*UV(3431)+JVS(45580)*UV(3436)+JVS(45581)*UV(3441)+JVS(45582)*UV(3446)+JVS(45583)*UV(3448)& - &+JVS(45584)*UV(3449)+JVS(45585)*UV(3450)+JVS(45586)*UV(3451)+JVS(45587)*UV(3452)+JVS(45588)*UV(3454)& - &+JVS(45589)*UV(3458)+JVS(45590)*UV(3459)+JVS(45591)*UV(3462)+JVS(45592)*UV(3463)+JVS(45593)*UV(3467)& - &+JVS(45594)*UV(3468)+JVS(45595)*UV(3469)+JVS(45596)*UV(3470)+JVS(45597)*UV(3471)+JVS(45598)*UV(3475)& - &+JVS(45599)*UV(3479)+JVS(45600)*UV(3480)+JVS(45601)*UV(3483)+JVS(45602)*UV(3484)+JVS(45603)*UV(3487)& - &+JVS(45604)*UV(3488)+JVS(45605)*UV(3495)+JVS(45606)*UV(3501)+JVS(45607)*UV(3502)+JVS(45608)*UV(3510)& - &+JVS(45609)*UV(3515)+JVS(45610)*UV(3520)+JVS(45611)*UV(3524)+JVS(45612)*UV(3526)+JVS(45613)*UV(3529)& - &+JVS(45614)*UV(3533)+JVS(45615)*UV(3540)+JVS(45616)*UV(3543)+JVS(45617)*UV(3546)+JVS(45618)*UV(3547)& - &+JVS(45621)*UV(3557)+JVS(45622)*UV(3559)+JVS(45623)*UV(3566)+JVS(45624)*UV(3571)+JVS(45625)*UV(3574)& - &+JVS(45626)*UV(3582)+JVS(45627)*UV(3587)+JVS(45628)*UV(3590)+JVS(45629)*UV(3593)+JVS(45630)*UV(3595)& - &+JVS(45631)*UV(3596)+JVS(45632)*UV(3601)+JVS(45633)*UV(3603)+JVS(45634)*UV(3604)+JVS(45635)*UV(3607)& - &+JVS(45636)*UV(3611)+JVS(45637)*UV(3612)+JVS(45638)*UV(3615)+JVS(45639)*UV(3618)+JVS(45641)*UV(3622)& - &+JVS(45642)*UV(3624)+JVS(45643)*UV(3626)+JVS(45645)*UV(3630)+JVS(45646)*UV(3633)+JVS(45648)*UV(3639)& - &+JVS(45649)*UV(3640)+JVS(45650)*UV(3643)+JVS(45651)*UV(3644)+JVS(45652)*UV(3645)+JVS(45653)*UV(3647)& - &+JVS(45654)*UV(3649)+JVS(45655)*UV(3652)+JVS(45656)*UV(3653)+JVS(45657)*UV(3655)+JVS(45658)*UV(3657)& - &+JVS(45659)*UV(3661)+JVS(45660)*UV(3662)+JVS(45662)*UV(3672)+JVS(45663)*UV(3673)+JVS(45664)*UV(3681)& - &+JVS(45665)*UV(3683)+JVS(45667)*UV(3689)+JVS(45668)*UV(3693)+JVS(45670)*UV(3702)+JVS(45671)*UV(3707)& - &+JVS(45673)*UV(3709)+JVS(45674)*UV(3712)+JVS(45675)*UV(3726)+JVS(45676)*UV(3729)+JVS(45677)*UV(3732)& - &+JVS(45680)*UV(3742)+JVS(45681)*UV(3748)+JVS(45684)*UV(3763)+JVS(45685)*UV(3773)+JVS(45686)*UV(3775)& - &+JVS(45688)*UV(3783)+JVS(45689)*UV(3787)+JVS(45690)*UV(3792)+JVS(45691)*UV(3800)+JVS(45692)*UV(3801)& - &+JVS(45693)*UV(3809)+JVS(45696)*UV(3816)+JVS(45697)*UV(3829)+JVS(45699)*UV(3832)+JVS(45700)*UV(3833)& - &+JVS(45701)*UV(3834)+JVS(45703)*UV(3837)+JVS(45704)*UV(3851)+JVS(45705)*UV(3856)+JVS(45706)*UV(3857)& - &+JVS(45707)*UV(3861)+JVS(45708)*UV(3862)+JVS(45709)*UV(3875)+JVS(45710)*UV(3877)+JVS(45711)*UV(3879)& - &+JVS(45712)*UV(3892)+JVS(45713)*UV(3896)+JVS(45714)*UV(3900)+JVS(45715)*UV(3911)+JVS(45716)*UV(3913)& - &+JVS(45717)*UV(3914)+JVS(45718)*UV(3915)+JVS(45719)*UV(3923)+JVS(45720)*UV(3924)+JVS(45721)*UV(3930)& - &+JVS(45722)*UV(3931)+JVS(45724)*UV(3935)+JVS(45726)*UV(3938)+JVS(45728)*UV(3946)+JVS(45729)*UV(3947)& - &+JVS(45730)*UV(3958)+JVS(45731)*UV(3960)+JVS(45733)*UV(3965)+JVS(45734)*UV(3968)+JVS(45735)*UV(3972)& - &+JVS(45736)*UV(3986)+JVS(45737)*UV(3991)+JVS(45739)*UV(3993)+JVS(45740)*UV(3995)+JVS(45741)*UV(3996)& - &+JVS(45742)*UV(4010)+JVS(45743)*UV(4013)+JVS(45744)*UV(4014)+JVS(45745)*UV(4017)+JVS(45746)*UV(4018)& - &+JVS(45747)*UV(4024)+JVS(45749)*UV(4026)+JVS(45750)*UV(4027)+JVS(45751)*UV(4029)+JVS(45753)*UV(4032)& - &+JVS(45754)*UV(4046)+JVS(45755)*UV(4047)+JVS(45757)*UV(4053)+JVS(45758)*UV(4056)+JVS(45760)*UV(4062)& - &+JVS(45764)*UV(4071)+JVS(45766)*UV(4080)+JVS(45767)*UV(4081)+JVS(45768)*UV(4083)+JVS(45769)*UV(4084)& - &+JVS(45770)*UV(4086)+JVS(45771)*UV(4093)+JVS(45772)*UV(4094)+JVS(45780)*UV(4108)+JVS(45781)*UV(4110)& - &+JVS(45783)*UV(4114)+JVS(45788)*UV(4125)+JVS(45802)*UV(4151)+JVS(45805)*UV(4155)+JVS(45806)*UV(4156)& - &+JVS(45812)*UV(4175)+JVS(45813)*UV(4178)+JVS(45816)*UV(4184)+JVS(45817)*UV(4186)+JVS(45823)*UV(4203)& - &+JVS(45827)*UV(4213)+JVS(45830)*UV(4218)+JVS(45832)*UV(4221)+JVS(45834)*UV(4224)+JVS(45835)*UV(4227)& - &+JVS(45838)*UV(4231)+JVS(45839)*UV(4233)+JVS(45840)*UV(4239)+JVS(45843)*UV(4247)+JVS(45844)*UV(4250)& - &+JVS(45846)*UV(4258)+JVS(45849)*UV(4261)+JVS(45850)*UV(4264)+JVS(45852)*UV(4267)+JVS(45854)*UV(4272)& - &+JVS(45857)*UV(4278)+JVS(45858)*UV(4279)+JVS(45860)*UV(4282)+JVS(45862)*UV(4286)+JVS(45864)*UV(4299)& - &+JVS(45866)*UV(4302)+JVS(45867)*UV(4308)+JVS(45868)*UV(4313)+JVS(45870)*UV(4320)+JVS(45871)*UV(4321)& - &+JVS(45877)*UV(4328)+JVS(45878)*UV(4330)+JVS(45879)*UV(4331)+JVS(45881)*UV(4333)+JVS(45892)*UV(4362)& - &+JVS(45895)*UV(4373)+JVS(45901)*UV(4382)+JVS(45907)*UV(4396)+JVS(45908)*UV(4398)+JVS(45909)*UV(4404)& - &+JVS(45911)*UV(4406)+JVS(45915)*UV(4414)+JVS(45919)*UV(4420)+JVS(45924)*UV(4428)+JVS(45931)*UV(4436)& - &+JVS(45943)*UV(4462)+JVS(45958)*UV(4490)+JVS(45959)*UV(4491)+JVS(45963)*UV(4501)+JVS(45973)*UV(4516)& - &+JVS(45982)*UV(4526)+JVS(45984)*UV(4528)+JVS(45985)*UV(4530)+JVS(45988)*UV(4534)+JVS(45990)*UV(4536)& - &+JVS(45991)*UV(4537)+JVS(45993)*UV(4540)+JVS(45996)*UV(4544)+JVS(45998)*UV(4547)+JVS(46000)*UV(4551)& - &+JVS(46004)*UV(4556)+JVS(46007)*UV(4559)+JVS(46011)*UV(4569)+JVS(46012)*UV(4570)+JVS(46016)*UV(4576)& - &+JVS(46019)*UV(4588)+JVS(46028)*UV(4602)+JVS(46039)*UV(4617)+JVS(46042)*UV(4621)+JVS(46051)*UV(4630)& - &+JVS(46057)*UV(4637)+JVS(46066)*UV(4650)+JVS(46067)*UV(4651)+JVS(46080)*UV(4668)+JVS(46085)*UV(4677)& - &+JVS(46086)*UV(4678)+JVS(46096)*UV(4691)+JVS(46098)*UV(4694)+JVS(46110)*UV(4708)+JVS(46112)*UV(4710)& - &+JVS(46119)*UV(4717)+JVS(46122)*UV(4721)+JVS(46126)*UV(4728)+JVS(46127)*UV(4729)+JVS(46134)*UV(4737)& - &+JVS(46137)*UV(4741)+JVS(46142)*UV(4747)+JVS(46143)*UV(4749)+JVS(46149)*UV(4757)+JVS(46150)*UV(4758)& - &+JVS(46161)*UV(4775)+JVS(46162)*UV(4776)+JVS(46173)*UV(4792)+JVS(46174)*UV(4793)+JVS(46175)*UV(4794)& - &+JVS(46177)*UV(4796)+JVS(46193)*UV(4815)+JVS(46197)*UV(4819)+JVS(46202)*UV(4824)+JVS(46205)*UV(4828)& - &+JVS(46208)*UV(4831)+JVS(46211)*UV(4834)+JVS(46214)*UV(4838)+JVS(46215)*UV(4840)+JVS(46216)*UV(4842)& - &+JVS(46217)*UV(4843)+JVS(46224)*UV(4851)+JVS(46234)*UV(4864)+JVS(46235)*UV(4865)+JVS(46238)*UV(4868)& - &+JVS(46239)*UV(4869)+JVS(46240)*UV(4872)+JVS(46241)*UV(4873)+JVS(46249)*UV(4882)+JVS(46250)*UV(4883)& - &+JVS(46260)*UV(4895)+JVS(46261)*UV(4896)+JVS(46266)*UV(4902)+JVS(46268)*UV(4906)+JVS(46270)*UV(4908)& - &+JVS(46273)*UV(4912)+JVS(46275)*UV(4914)+JVS(46279)*UV(4918)+JVS(46280)*UV(4919)+JVS(46288)*UV(4927)& - &+JVS(46291)*UV(4931)+JVS(46293)*UV(4933)+JVS(46296)*UV(4936)+JVS(46298)*UV(4939)+JVS(46299)*UV(4941)& - &+JVS(46300)*UV(4943)+JVS(46311)*UV(4954)+JVS(46313)*UV(4956)+JVS(46316)*UV(4961)+JVS(46318)*UV(4963)& - &+JVS(46319)*UV(4964)+JVS(46321)*UV(4966)+JVS(46328)*UV(4975)+JVS(46329)*UV(4976)+JVS(46331)*UV(4978)& - &+JVS(46335)*UV(4983)+JVS(46347)*UV(4996)+JVS(46348)*UV(4997)+JVS(46349)*UV(4998)+JVS(46350)*UV(4999)& - &+JVS(46351)*UV(5000)+JVS(46353)*UV(5002)+JVS(46358)*UV(5009)+JVS(46360)*UV(5012)+JVS(46365)*UV(5018)& - &+JVS(46369)*UV(5023)+JVS(46371)*UV(5025)+JVS(46372)*UV(5026)+JVS(46377)*UV(5031)+JVS(46381)*UV(5035)& - &+JVS(46383)*UV(5037)+JVS(46385)*UV(5040)+JVS(46387)*UV(5042)+JVS(46391)*UV(5047)+JVS(46392)*UV(5048)& - &+JVS(46393)*UV(5049)+JVS(46394)*UV(5050)+JVS(46398)*UV(5055)+JVS(46400)*UV(5057)+JVS(46405)*UV(5063)& - &+JVS(46410)*UV(5068)+JVS(46412)*UV(5070)+JVS(46413)*UV(5071)+JVS(46414)*UV(5072)+JVS(46423)*UV(5083)& - &+JVS(46425)*UV(5085)+JVS(46426)*UV(5086)+JVS(46427)*UV(5087)+JVS(46432)*UV(5092)+JVS(46433)*UV(5093)& - &+JVS(46434)*UV(5094)+JVS(46435)*UV(5095)+JVS(46441)*UV(5102)+JVS(46442)*UV(5103)+JVS(46444)*UV(5105)& - &+JVS(46448)*UV(5110)+JVS(46451)*UV(5113)+JVS(46453)*UV(5115)+JVS(46464)*UV(5126)+JVS(46477)*UV(5139)& - &+JVS(46480)*UV(5143)+JVS(46492)*UV(5156)+JVS(46495)*UV(5159)+JVS(46497)*UV(5162)+JVS(46500)*UV(5165)& - &+JVS(46504)*UV(5169)+JVS(46505)*UV(5170)+JVS(46509)*UV(5174)+JVS(46511)*UV(5176)+JVS(46512)*UV(5177)& - &+JVS(46517)*UV(5182)+JVS(46519)*UV(5184)+JVS(46523)*UV(5189)+JVS(46525)*UV(5191)+JVS(46527)*UV(5193)& - &+JVS(46528)*UV(5194)+JVS(46532)*UV(5199)+JVS(46535)*UV(5203)+JVS(46537)*UV(5205)+JVS(46539)*UV(5207)& - &+JVS(46541)*UV(5209)+JVS(46542)*UV(5210)+JVS(46543)*UV(5211)+JVS(46544)*UV(5212)+JVS(46545)*UV(5213)& - &+JVS(46548)*UV(5216)+JVS(46552)*UV(5220)+JVS(46553)*UV(5221)+JVS(46554)*UV(5222)+JVS(46555)*UV(5223)& - &+JVS(46558)*UV(5226)+JVS(46559)*UV(5227)+JVS(46561)*UV(5230)+JVS(46562)*UV(5231)+JVS(46564)*UV(5233)& - &+JVS(46565)*UV(5234)+JVS(46571)*UV(5240)+JVS(46579)*UV(5248)+JVS(46581)*UV(5250)+JVS(46582)*UV(5251)& - &+JVS(46583)*UV(5252)+JVS(46584)*UV(5253)+JVS(46586)*UV(5255)+JVS(46587)*UV(5256)+JVS(46588)*UV(5257)& - &+JVS(46589)*UV(5258) - JUV(5252) = JVS(46590)*UV(337)+JVS(46591)*UV(3481)+JVS(46592)*UV(3489)+JVS(46593)*UV(3491)+JVS(46594)*UV(3492)& - &+JVS(46595)*UV(3496)+JVS(46596)*UV(3503)+JVS(46597)*UV(3507)+JVS(46598)*UV(3509)+JVS(46599)*UV(3511)& - &+JVS(46600)*UV(3518)+JVS(46601)*UV(3521)+JVS(46602)*UV(3523)+JVS(46603)*UV(3525)+JVS(46604)*UV(3527)& - &+JVS(46605)*UV(3531)+JVS(46606)*UV(3534)+JVS(46607)*UV(3538)+JVS(46608)*UV(3539)+JVS(46609)*UV(3554)& - &+JVS(46610)*UV(3562)+JVS(46611)*UV(3568)+JVS(46612)*UV(3627)+JVS(46613)*UV(3631)+JVS(46614)*UV(3632)& - &+JVS(46615)*UV(3634)+JVS(46616)*UV(3636)+JVS(46617)*UV(3637)+JVS(46618)*UV(3641)+JVS(46619)*UV(3648)& - &+JVS(46620)*UV(3650)+JVS(46621)*UV(3658)+JVS(46622)*UV(3659)+JVS(46623)*UV(3663)+JVS(46624)*UV(3665)& - &+JVS(46625)*UV(3667)+JVS(46626)*UV(3668)+JVS(46627)*UV(3669)+JVS(46628)*UV(3670)+JVS(46629)*UV(3671)& - &+JVS(46630)*UV(3674)+JVS(46631)*UV(3675)+JVS(46632)*UV(3676)+JVS(46633)*UV(3677)+JVS(46634)*UV(3678)& - &+JVS(46635)*UV(3679)+JVS(46636)*UV(3680)+JVS(46637)*UV(3685)+JVS(46638)*UV(3686)+JVS(46639)*UV(3687)& - &+JVS(46640)*UV(3688)+JVS(46641)*UV(3690)+JVS(46642)*UV(3691)+JVS(46643)*UV(3692)+JVS(46644)*UV(3694)& - &+JVS(46645)*UV(3695)+JVS(46646)*UV(3696)+JVS(46647)*UV(3697)+JVS(46648)*UV(3698)+JVS(46649)*UV(3699)& - &+JVS(46650)*UV(3703)+JVS(46651)*UV(3704)+JVS(46652)*UV(3705)+JVS(46653)*UV(3706)+JVS(46654)*UV(3710)& - &+JVS(46655)*UV(3711)+JVS(46656)*UV(3713)+JVS(46657)*UV(3714)+JVS(46658)*UV(3715)+JVS(46659)*UV(3717)& - &+JVS(46660)*UV(3718)+JVS(46661)*UV(3719)+JVS(46662)*UV(3720)+JVS(46663)*UV(3721)+JVS(46664)*UV(3722)& - &+JVS(46665)*UV(3724)+JVS(46666)*UV(3725)+JVS(46667)*UV(3727)+JVS(46668)*UV(3728)+JVS(46669)*UV(3730)& - &+JVS(46670)*UV(3731)+JVS(46671)*UV(3733)+JVS(46672)*UV(3738)+JVS(46673)*UV(3739)+JVS(46674)*UV(3740)& - &+JVS(46675)*UV(3741)+JVS(46676)*UV(3743)+JVS(46677)*UV(3745)+JVS(46678)*UV(3746)+JVS(46679)*UV(3749)& - &+JVS(46680)*UV(3750)+JVS(46681)*UV(3751)+JVS(46682)*UV(3752)+JVS(46683)*UV(3753)+JVS(46684)*UV(3758)& - &+JVS(46685)*UV(3760)+JVS(46686)*UV(3761)+JVS(46687)*UV(3762)+JVS(46688)*UV(3764)+JVS(46689)*UV(3766)& - &+JVS(46690)*UV(3768)+JVS(46691)*UV(3769)+JVS(46692)*UV(3770)+JVS(46693)*UV(3771)+JVS(46694)*UV(3772)& - &+JVS(46695)*UV(3774)+JVS(46696)*UV(3776)+JVS(46697)*UV(3778)+JVS(46698)*UV(3781)+JVS(46699)*UV(3782)& - &+JVS(46700)*UV(3784)+JVS(46701)*UV(3785)+JVS(46702)*UV(3786)+JVS(46703)*UV(3788)+JVS(46704)*UV(3789)& - &+JVS(46705)*UV(3790)+JVS(46706)*UV(3791)+JVS(46707)*UV(3794)+JVS(46708)*UV(3796)+JVS(46709)*UV(3797)& - &+JVS(46710)*UV(3798)+JVS(46711)*UV(3799)+JVS(46712)*UV(3801)+JVS(46713)*UV(3803)+JVS(46714)*UV(3804)& - &+JVS(46715)*UV(3806)+JVS(46716)*UV(3807)+JVS(46717)*UV(3808)+JVS(46718)*UV(3810)+JVS(46719)*UV(3811)& - &+JVS(46720)*UV(3813)+JVS(46721)*UV(3814)+JVS(46722)*UV(3815)+JVS(46723)*UV(3817)+JVS(46724)*UV(3819)& - &+JVS(46725)*UV(3820)+JVS(46726)*UV(3823)+JVS(46727)*UV(3825)+JVS(46728)*UV(3827)+JVS(46729)*UV(3828)& - &+JVS(46730)*UV(3836)+JVS(46731)*UV(3837)+JVS(46732)*UV(3838)+JVS(46733)*UV(3839)+JVS(46734)*UV(3840)& - &+JVS(46735)*UV(3841)+JVS(46736)*UV(3844)+JVS(46737)*UV(3845)+JVS(46738)*UV(3846)+JVS(46739)*UV(3847)& - &+JVS(46740)*UV(3848)+JVS(46741)*UV(3850)+JVS(46742)*UV(3852)+JVS(46743)*UV(3853)+JVS(46744)*UV(3854)& - &+JVS(46745)*UV(3855)+JVS(46746)*UV(3858)+JVS(46747)*UV(3859)+JVS(46748)*UV(3860)+JVS(46749)*UV(3863)& - &+JVS(46750)*UV(3864)+JVS(46751)*UV(3865)+JVS(46752)*UV(3866)+JVS(46753)*UV(3867)+JVS(46754)*UV(3869)& - &+JVS(46755)*UV(3870)+JVS(46756)*UV(3871)+JVS(46757)*UV(3872)+JVS(46758)*UV(3873)+JVS(46759)*UV(3874)& - &+JVS(46760)*UV(3876)+JVS(46761)*UV(3880)+JVS(46762)*UV(3881)+JVS(46763)*UV(3882)+JVS(46764)*UV(3883)& - &+JVS(46765)*UV(3884)+JVS(46766)*UV(3885)+JVS(46767)*UV(3886)+JVS(46768)*UV(3888)+JVS(46769)*UV(3889)& - &+JVS(46770)*UV(3890)+JVS(46771)*UV(3891)+JVS(46772)*UV(3893)+JVS(46773)*UV(3894)+JVS(46774)*UV(3895)& - &+JVS(46775)*UV(3898)+JVS(46776)*UV(3899)+JVS(46777)*UV(3901)+JVS(46778)*UV(3902)+JVS(46779)*UV(3903)& - &+JVS(46780)*UV(3905)+JVS(46781)*UV(3907)+JVS(46782)*UV(3908)+JVS(46783)*UV(3912)+JVS(46784)*UV(3916)& - &+JVS(46785)*UV(3919)+JVS(46786)*UV(3920)+JVS(46787)*UV(3921)+JVS(46788)*UV(3926)+JVS(46789)*UV(3927)& - &+JVS(46790)*UV(3928)+JVS(46791)*UV(3932)+JVS(46792)*UV(3936)+JVS(46793)*UV(3937)+JVS(46794)*UV(3939)& - &+JVS(46795)*UV(3940)+JVS(46796)*UV(3941)+JVS(46797)*UV(3943)+JVS(46798)*UV(3944)+JVS(46799)*UV(3945)& - &+JVS(46800)*UV(3948)+JVS(46801)*UV(3949)+JVS(46802)*UV(3950)+JVS(46803)*UV(3951)+JVS(46804)*UV(3952)& - &+JVS(46805)*UV(3953)+JVS(46806)*UV(3954)+JVS(46807)*UV(3955)+JVS(46808)*UV(3961)+JVS(46809)*UV(3962)& - &+JVS(46810)*UV(3963)+JVS(46811)*UV(3964)+JVS(46812)*UV(3966)+JVS(46813)*UV(3967)+JVS(46814)*UV(3969)& - &+JVS(46815)*UV(3971)+JVS(46816)*UV(3973)+JVS(46817)*UV(3974)+JVS(46818)*UV(3975)+JVS(46819)*UV(3976)& - &+JVS(46820)*UV(3977)+JVS(46821)*UV(3979)+JVS(46822)*UV(3980)+JVS(46823)*UV(3981)+JVS(46824)*UV(3982)& - &+JVS(46825)*UV(3983)+JVS(46826)*UV(3984)+JVS(46827)*UV(3985)+JVS(46828)*UV(3987)+JVS(46829)*UV(3988)& - &+JVS(46830)*UV(3989)+JVS(46831)*UV(3990)+JVS(46832)*UV(3992)+JVS(46833)*UV(3994)+JVS(46834)*UV(3997)& - &+JVS(46835)*UV(3998)+JVS(46836)*UV(3999)+JVS(46837)*UV(4000)+JVS(46838)*UV(4001)+JVS(46839)*UV(4002)& - &+JVS(46840)*UV(4003)+JVS(46841)*UV(4005)+JVS(46842)*UV(4006)+JVS(46843)*UV(4007)+JVS(46844)*UV(4008)& - &+JVS(46845)*UV(4009)+JVS(46846)*UV(4011)+JVS(46848)*UV(4013)+JVS(46849)*UV(4015)+JVS(46850)*UV(4016)& - &+JVS(46851)*UV(4019)+JVS(46852)*UV(4020)+JVS(46853)*UV(4021)+JVS(46854)*UV(4022)+JVS(46855)*UV(4023)& - &+JVS(46856)*UV(4025)+JVS(46857)*UV(4026)+JVS(46858)*UV(4028)+JVS(46859)*UV(4030)+JVS(46860)*UV(4031)& - &+JVS(46861)*UV(4033)+JVS(46862)*UV(4034)+JVS(46863)*UV(4035)+JVS(46864)*UV(4036)+JVS(46865)*UV(4037)& - &+JVS(46866)*UV(4038)+JVS(46867)*UV(4039)+JVS(46868)*UV(4040)+JVS(46869)*UV(4041)+JVS(46870)*UV(4042)& - &+JVS(46871)*UV(4043)+JVS(46872)*UV(4044)+JVS(46874)*UV(4046)+JVS(46875)*UV(4049)+JVS(46876)*UV(4050)& - &+JVS(46877)*UV(4051)+JVS(46878)*UV(4052)+JVS(46879)*UV(4054)+JVS(46880)*UV(4055)+JVS(46881)*UV(4057)& - &+JVS(46882)*UV(4058)+JVS(46883)*UV(4059)+JVS(46884)*UV(4060)+JVS(46885)*UV(4061)+JVS(46886)*UV(4063)& - &+JVS(46887)*UV(4064)+JVS(46888)*UV(4065)+JVS(46889)*UV(4067)+JVS(46890)*UV(4068)+JVS(46891)*UV(4069)& - &+JVS(46892)*UV(4070)+JVS(46893)*UV(4072)+JVS(46894)*UV(4073)+JVS(46895)*UV(4074)+JVS(46896)*UV(4075)& - &+JVS(46897)*UV(4076)+JVS(46898)*UV(4077)+JVS(46899)*UV(4078)+JVS(46900)*UV(4079)+JVS(46901)*UV(4082)& - &+JVS(46902)*UV(4085)+JVS(46903)*UV(4087)+JVS(46904)*UV(4088)+JVS(46905)*UV(4089)+JVS(46906)*UV(4090)& - &+JVS(46907)*UV(4091)+JVS(46908)*UV(4092)+JVS(46909)*UV(4095)+JVS(46910)*UV(4097)+JVS(46911)*UV(4098)& - &+JVS(46912)*UV(4099)+JVS(46913)*UV(4100)+JVS(46914)*UV(4101)+JVS(46915)*UV(4102)+JVS(46916)*UV(4105)& - &+JVS(46917)*UV(4106)+JVS(46918)*UV(4111)+JVS(46919)*UV(4112)+JVS(46920)*UV(4115)+JVS(46921)*UV(4116)& - &+JVS(46922)*UV(4117)+JVS(46923)*UV(4118)+JVS(46924)*UV(4119)+JVS(46925)*UV(4120)+JVS(46926)*UV(4121)& - &+JVS(46927)*UV(4123)+JVS(46928)*UV(4124)+JVS(46929)*UV(4126)+JVS(46930)*UV(4127)+JVS(46931)*UV(4128)& - &+JVS(46932)*UV(4129)+JVS(46933)*UV(4130)+JVS(46934)*UV(4131)+JVS(46935)*UV(4133)+JVS(46936)*UV(4134)& - &+JVS(46937)*UV(4135)+JVS(46938)*UV(4136)+JVS(46939)*UV(4137)+JVS(46940)*UV(4138)+JVS(46941)*UV(4139)& - &+JVS(46942)*UV(4140)+JVS(46943)*UV(4141)+JVS(46944)*UV(4142)+JVS(46945)*UV(4143)+JVS(46946)*UV(4144)& - &+JVS(46947)*UV(4145)+JVS(46948)*UV(4146)+JVS(46949)*UV(4147)+JVS(46950)*UV(4148)+JVS(46951)*UV(4149)& - &+JVS(46952)*UV(4150)+JVS(46954)*UV(4153)+JVS(46955)*UV(4154)+JVS(46956)*UV(4157)+JVS(46957)*UV(4158)& - &+JVS(46958)*UV(4159)+JVS(46959)*UV(4161)+JVS(46960)*UV(4162)+JVS(46961)*UV(4163)+JVS(46962)*UV(4165)& - &+JVS(46963)*UV(4166)+JVS(46964)*UV(4167)+JVS(46965)*UV(4168)+JVS(46966)*UV(4169)+JVS(46967)*UV(4170)& - &+JVS(46968)*UV(4171)+JVS(46969)*UV(4172)+JVS(46970)*UV(4173)+JVS(46971)*UV(4176)+JVS(46972)*UV(4180)& - &+JVS(46973)*UV(4181)+JVS(46974)*UV(4182)+JVS(46975)*UV(4185)+JVS(46976)*UV(4187)+JVS(46977)*UV(4188)& - &+JVS(46978)*UV(4189)+JVS(46980)*UV(4191)+JVS(46981)*UV(4192)+JVS(46982)*UV(4193)+JVS(46983)*UV(4194)& - &+JVS(46984)*UV(4195)+JVS(46985)*UV(4196)+JVS(46986)*UV(4197)+JVS(46987)*UV(4198)+JVS(46988)*UV(4200)& - &+JVS(46989)*UV(4201)+JVS(46990)*UV(4202)+JVS(46991)*UV(4203)+JVS(46992)*UV(4204)+JVS(46993)*UV(4205)& - &+JVS(46994)*UV(4206)+JVS(46995)*UV(4207)+JVS(46996)*UV(4208)+JVS(46997)*UV(4209)+JVS(46998)*UV(4210)& - &+JVS(46999)*UV(4211)+JVS(47000)*UV(4212)+JVS(47001)*UV(4213)+JVS(47002)*UV(4214)+JVS(47003)*UV(4215)& - &+JVS(47004)*UV(4216)+JVS(47005)*UV(4217)+JVS(47006)*UV(4218)+JVS(47007)*UV(4219)+JVS(47008)*UV(4220)& - &+JVS(47009)*UV(4221)+JVS(47010)*UV(4222)+JVS(47011)*UV(4225)+JVS(47012)*UV(4226)+JVS(47013)*UV(4228)& - &+JVS(47014)*UV(4229)+JVS(47015)*UV(4230)+JVS(47016)*UV(4232)+JVS(47017)*UV(4234)+JVS(47018)*UV(4235)& - &+JVS(47019)*UV(4236)+JVS(47020)*UV(4237)+JVS(47021)*UV(4238)+JVS(47022)*UV(4240)+JVS(47023)*UV(4241)& - &+JVS(47024)*UV(4242)+JVS(47025)*UV(4243)+JVS(47026)*UV(4244)+JVS(47027)*UV(4245)+JVS(47028)*UV(4246)& - &+JVS(47029)*UV(4247)+JVS(47030)*UV(4249)+JVS(47031)*UV(4250)+JVS(47032)*UV(4251)+JVS(47033)*UV(4252)& - &+JVS(47034)*UV(4253)+JVS(47035)*UV(4254)+JVS(47036)*UV(4255)+JVS(47037)*UV(4257)+JVS(47038)*UV(4258)& - &+JVS(47039)*UV(4259)+JVS(47040)*UV(4260)+JVS(47041)*UV(4262)+JVS(47042)*UV(4263)+JVS(47043)*UV(4264)& - &+JVS(47044)*UV(4265)+JVS(47045)*UV(4266)+JVS(47046)*UV(4267)+JVS(47047)*UV(4268)+JVS(47048)*UV(4269)& - &+JVS(47049)*UV(4270)+JVS(47050)*UV(4271)+JVS(47051)*UV(4273)+JVS(47052)*UV(4274)+JVS(47053)*UV(4275)& - &+JVS(47054)*UV(4276)+JVS(47055)*UV(4277)+JVS(47056)*UV(4280)+JVS(47057)*UV(4281)+JVS(47058)*UV(4282)& - &+JVS(47059)*UV(4283)+JVS(47060)*UV(4284)+JVS(47061)*UV(4285)+JVS(47062)*UV(4286)+JVS(47063)*UV(4287)& - &+JVS(47064)*UV(4288)+JVS(47065)*UV(4289)+JVS(47066)*UV(4290)+JVS(47067)*UV(4291)+JVS(47068)*UV(4292)& - &+JVS(47069)*UV(4293)+JVS(47070)*UV(4295)+JVS(47071)*UV(4296)+JVS(47072)*UV(4297)+JVS(47073)*UV(4298)& - &+JVS(47074)*UV(4299)+JVS(47075)*UV(4301)+JVS(47076)*UV(4302)+JVS(47077)*UV(4303)+JVS(47078)*UV(4304)& - &+JVS(47079)*UV(4305)+JVS(47080)*UV(4306)+JVS(47081)*UV(4307)+JVS(47082)*UV(4308)+JVS(47083)*UV(4309)& - &+JVS(47084)*UV(4310)+JVS(47085)*UV(4311)+JVS(47086)*UV(4312)+JVS(47087)*UV(4314)+JVS(47088)*UV(4315)& - &+JVS(47089)*UV(4316)+JVS(47090)*UV(4317)+JVS(47091)*UV(4318)+JVS(47092)*UV(4319)+JVS(47093)*UV(4320)& - &+JVS(47094)*UV(4321)+JVS(47096)*UV(4323)+JVS(47097)*UV(4324)+JVS(47099)*UV(4327)+JVS(47100)*UV(4329)& - &+JVS(47101)*UV(4334)+JVS(47102)*UV(4335)+JVS(47103)*UV(4336)+JVS(47104)*UV(4337)+JVS(47105)*UV(4338)& - &+JVS(47106)*UV(4339)+JVS(47107)*UV(4340)+JVS(47108)*UV(4341)+JVS(47109)*UV(4342)+JVS(47110)*UV(4343)& - &+JVS(47111)*UV(4344)+JVS(47112)*UV(4345)+JVS(47113)*UV(4346)+JVS(47114)*UV(4347)+JVS(47115)*UV(4348)& - &+JVS(47116)*UV(4349)+JVS(47117)*UV(4350)+JVS(47118)*UV(4351)+JVS(47119)*UV(4353)+JVS(47120)*UV(4354)& - &+JVS(47121)*UV(4355)+JVS(47122)*UV(4356)+JVS(47123)*UV(4357)+JVS(47124)*UV(4358)+JVS(47125)*UV(4359)& - &+JVS(47126)*UV(4360)+JVS(47127)*UV(4361)+JVS(47128)*UV(4363)+JVS(47129)*UV(4364)+JVS(47130)*UV(4365)& - &+JVS(47131)*UV(4367)+JVS(47132)*UV(4368)+JVS(47133)*UV(4369)+JVS(47134)*UV(4370)+JVS(47135)*UV(4371)& - &+JVS(47136)*UV(4372)+JVS(47138)*UV(4374)+JVS(47139)*UV(4375)+JVS(47140)*UV(4376)+JVS(47141)*UV(4377)& - &+JVS(47143)*UV(4380)+JVS(47144)*UV(4381)+JVS(47145)*UV(4382)+JVS(47146)*UV(4384)+JVS(47147)*UV(4385)& - &+JVS(47148)*UV(4387)+JVS(47149)*UV(4389)+JVS(47150)*UV(4390)+JVS(47151)*UV(4394)+JVS(47154)*UV(4399)& - &+JVS(47155)*UV(4400)+JVS(47157)*UV(4404)+JVS(47158)*UV(4405)+JVS(47161)*UV(4409)+JVS(47162)*UV(4410)& - &+JVS(47163)*UV(4411)+JVS(47164)*UV(4412)+JVS(47166)*UV(4414)+JVS(47167)*UV(4415)+JVS(47168)*UV(4416)& - &+JVS(47169)*UV(4417)+JVS(47170)*UV(4418)+JVS(47171)*UV(4419)+JVS(47172)*UV(4421)+JVS(47173)*UV(4422)& - &+JVS(47174)*UV(4423)+JVS(47175)*UV(4424)+JVS(47176)*UV(4425)+JVS(47177)*UV(4426)+JVS(47178)*UV(4427)& - &+JVS(47179)*UV(4428)+JVS(47180)*UV(4429)+JVS(47181)*UV(4430)+JVS(47182)*UV(4431)+JVS(47183)*UV(4432)& - &+JVS(47184)*UV(4433)+JVS(47185)*UV(4434)+JVS(47186)*UV(4435)+JVS(47187)*UV(4436)+JVS(47190)*UV(4439)& - &+JVS(47191)*UV(4440)+JVS(47192)*UV(4441)+JVS(47193)*UV(4442)+JVS(47194)*UV(4443)+JVS(47196)*UV(4445)& - &+JVS(47197)*UV(4446)+JVS(47198)*UV(4447)+JVS(47200)*UV(4450)+JVS(47201)*UV(4451)+JVS(47202)*UV(4452)& - &+JVS(47205)*UV(4455)+JVS(47206)*UV(4456)+JVS(47208)*UV(4458)+JVS(47209)*UV(4459)+JVS(47210)*UV(4460)& - &+JVS(47211)*UV(4461)+JVS(47212)*UV(4463)+JVS(47213)*UV(4464)+JVS(47214)*UV(4465)+JVS(47216)*UV(4467)& - &+JVS(47217)*UV(4468)+JVS(47218)*UV(4469)+JVS(47219)*UV(4470)+JVS(47221)*UV(4472)+JVS(47222)*UV(4473)& - &+JVS(47224)*UV(4476)+JVS(47225)*UV(4477)+JVS(47228)*UV(4480)+JVS(47229)*UV(4481)+JVS(47230)*UV(4482)& - &+JVS(47231)*UV(4483)+JVS(47232)*UV(4484)+JVS(47233)*UV(4485)+JVS(47234)*UV(4486)+JVS(47237)*UV(4489)& - &+JVS(47241)*UV(4496)+JVS(47242)*UV(4497)+JVS(47243)*UV(4498)+JVS(47245)*UV(4500)+JVS(47246)*UV(4502)& - &+JVS(47247)*UV(4503)+JVS(47250)*UV(4506)+JVS(47252)*UV(4510)+JVS(47253)*UV(4511)+JVS(47255)*UV(4513)& - &+JVS(47257)*UV(4515)+JVS(47258)*UV(4516)+JVS(47259)*UV(4517)+JVS(47260)*UV(4518)+JVS(47261)*UV(4519)& - &+JVS(47262)*UV(4520)+JVS(47263)*UV(4521)+JVS(47264)*UV(4522)+JVS(47265)*UV(4523)+JVS(47266)*UV(4525)& - &+JVS(47267)*UV(4526)+JVS(47268)*UV(4529)+JVS(47270)*UV(4532)+JVS(47272)*UV(4535)+JVS(47273)*UV(4536)& - &+JVS(47274)*UV(4538)+JVS(47275)*UV(4539)+JVS(47276)*UV(4541)+JVS(47277)*UV(4542)+JVS(47278)*UV(4543)& - &+JVS(47279)*UV(4544)+JVS(47280)*UV(4545)+JVS(47281)*UV(4546)+JVS(47282)*UV(4548)+JVS(47283)*UV(4549)& - &+JVS(47284)*UV(4550)+JVS(47285)*UV(4551)+JVS(47286)*UV(4552)+JVS(47287)*UV(4553)+JVS(47288)*UV(4554)& - &+JVS(47290)*UV(4556)+JVS(47291)*UV(4557)+JVS(47292)*UV(4558)+JVS(47293)*UV(4560)+JVS(47294)*UV(4561)& - &+JVS(47295)*UV(4562)+JVS(47296)*UV(4563)+JVS(47297)*UV(4565)+JVS(47298)*UV(4566)+JVS(47299)*UV(4567)& - &+JVS(47300)*UV(4568)+JVS(47301)*UV(4571)+JVS(47302)*UV(4572)+JVS(47303)*UV(4573)+JVS(47304)*UV(4574)& - &+JVS(47305)*UV(4575)+JVS(47307)*UV(4577)+JVS(47308)*UV(4578)+JVS(47309)*UV(4579)+JVS(47310)*UV(4580)& - &+JVS(47311)*UV(4581)+JVS(47312)*UV(4582)+JVS(47313)*UV(4583)+JVS(47314)*UV(4584)+JVS(47315)*UV(4585)& - &+JVS(47316)*UV(4586)+JVS(47317)*UV(4587)+JVS(47318)*UV(4589)+JVS(47319)*UV(4590)+JVS(47320)*UV(4591)& - &+JVS(47321)*UV(4592)+JVS(47322)*UV(4593)+JVS(47323)*UV(4594)+JVS(47324)*UV(4595)+JVS(47325)*UV(4596)& - &+JVS(47326)*UV(4597)+JVS(47327)*UV(4598)+JVS(47328)*UV(4599)+JVS(47333)*UV(4607)+JVS(47334)*UV(4608)& - &+JVS(47335)*UV(4609)+JVS(47336)*UV(4610)+JVS(47337)*UV(4611)+JVS(47338)*UV(4612)+JVS(47339)*UV(4613)& - &+JVS(47340)*UV(4614)+JVS(47341)*UV(4616)+JVS(47342)*UV(4617)+JVS(47344)*UV(4620)+JVS(47345)*UV(4621)& - &+JVS(47346)*UV(4622)+JVS(47347)*UV(4623)+JVS(47348)*UV(4624)+JVS(47349)*UV(4625)+JVS(47350)*UV(4626)& - &+JVS(47351)*UV(4627)+JVS(47352)*UV(4628)+JVS(47353)*UV(4629)+JVS(47354)*UV(4631)+JVS(47356)*UV(4633)& - &+JVS(47357)*UV(4634)+JVS(47358)*UV(4635)+JVS(47359)*UV(4636)+JVS(47361)*UV(4638)+JVS(47363)*UV(4640)& - &+JVS(47364)*UV(4641)+JVS(47365)*UV(4642)+JVS(47366)*UV(4643)+JVS(47367)*UV(4644)+JVS(47368)*UV(4645)& - &+JVS(47369)*UV(4646)+JVS(47370)*UV(4647)+JVS(47371)*UV(4648)+JVS(47372)*UV(4649)+JVS(47374)*UV(4652)& - &+JVS(47375)*UV(4653)+JVS(47376)*UV(4654)+JVS(47377)*UV(4655)+JVS(47378)*UV(4656)+JVS(47379)*UV(4657)& - &+JVS(47380)*UV(4658)+JVS(47381)*UV(4659)+JVS(47382)*UV(4660)+JVS(47383)*UV(4661)+JVS(47384)*UV(4662)& - &+JVS(47386)*UV(4664)+JVS(47387)*UV(4665)+JVS(47388)*UV(4666)+JVS(47389)*UV(4667)+JVS(47390)*UV(4668)& - &+JVS(47391)*UV(4669)+JVS(47394)*UV(4672)+JVS(47395)*UV(4673)+JVS(47396)*UV(4674)+JVS(47397)*UV(4675)& - &+JVS(47399)*UV(4677)+JVS(47400)*UV(4678)+JVS(47401)*UV(4679)+JVS(47402)*UV(4680)+JVS(47403)*UV(4681)& - &+JVS(47405)*UV(4683)+JVS(47406)*UV(4684)+JVS(47407)*UV(4685)+JVS(47408)*UV(4686)+JVS(47409)*UV(4687)& - &+JVS(47410)*UV(4688)+JVS(47411)*UV(4689)+JVS(47413)*UV(4691)+JVS(47414)*UV(4692)+JVS(47415)*UV(4695)& - &+JVS(47416)*UV(4696)+JVS(47417)*UV(4697)+JVS(47418)*UV(4698)+JVS(47419)*UV(4699)+JVS(47420)*UV(4700)& - &+JVS(47421)*UV(4701)+JVS(47422)*UV(4702)+JVS(47423)*UV(4703)+JVS(47424)*UV(4704)+JVS(47425)*UV(4705)& - &+JVS(47426)*UV(4706)+JVS(47427)*UV(4707)+JVS(47428)*UV(4709)+JVS(47429)*UV(4711)+JVS(47430)*UV(4712)& - &+JVS(47431)*UV(4713)+JVS(47432)*UV(4714)+JVS(47433)*UV(4715)+JVS(47434)*UV(4716)+JVS(47436)*UV(4718)& - &+JVS(47437)*UV(4719)+JVS(47438)*UV(4720)+JVS(47439)*UV(4722)+JVS(47440)*UV(4723)+JVS(47441)*UV(4724)& - &+JVS(47442)*UV(4725)+JVS(47443)*UV(4726)+JVS(47444)*UV(4727)+JVS(47446)*UV(4730)+JVS(47447)*UV(4731)& - &+JVS(47448)*UV(4732)+JVS(47449)*UV(4733)+JVS(47450)*UV(4734)+JVS(47451)*UV(4735)+JVS(47453)*UV(4738)& - &+JVS(47454)*UV(4739)+JVS(47455)*UV(4740)+JVS(47456)*UV(4741)+JVS(47457)*UV(4742)+JVS(47459)*UV(4744)& - &+JVS(47460)*UV(4745)+JVS(47461)*UV(4746)+JVS(47462)*UV(4748)+JVS(47463)*UV(4750)+JVS(47464)*UV(4751)& - &+JVS(47465)*UV(4752)+JVS(47466)*UV(4753)+JVS(47467)*UV(4754)+JVS(47468)*UV(4755)+JVS(47469)*UV(4756)& - &+JVS(47470)*UV(4757)+JVS(47471)*UV(4758)+JVS(47472)*UV(4759)+JVS(47473)*UV(4760)+JVS(47474)*UV(4761)& - &+JVS(47475)*UV(4762)+JVS(47476)*UV(4763)+JVS(47477)*UV(4764)+JVS(47478)*UV(4765)+JVS(47479)*UV(4766)& - &+JVS(47480)*UV(4767)+JVS(47481)*UV(4768)+JVS(47482)*UV(4769)+JVS(47483)*UV(4770)+JVS(47484)*UV(4771)& - &+JVS(47485)*UV(4772)+JVS(47486)*UV(4773)+JVS(47487)*UV(4774)+JVS(47489)*UV(4776)+JVS(47490)*UV(4777)& - &+JVS(47491)*UV(4778)+JVS(47492)*UV(4779)+JVS(47493)*UV(4780)+JVS(47494)*UV(4781)+JVS(47495)*UV(4782)& - &+JVS(47496)*UV(4783)+JVS(47497)*UV(4784)+JVS(47498)*UV(4785)+JVS(47500)*UV(4787)+JVS(47502)*UV(4789)& - &+JVS(47505)*UV(4792)+JVS(47508)*UV(4795)+JVS(47513)*UV(4802)+JVS(47514)*UV(4803)+JVS(47515)*UV(4804)& - &+JVS(47517)*UV(4806)+JVS(47518)*UV(4807)+JVS(47519)*UV(4808)+JVS(47520)*UV(4809)+JVS(47522)*UV(4811)& - &+JVS(47523)*UV(4812)+JVS(47524)*UV(4813)+JVS(47525)*UV(4814)+JVS(47527)*UV(4816)+JVS(47528)*UV(4817)& - &+JVS(47529)*UV(4818)+JVS(47530)*UV(4819)+JVS(47531)*UV(4820)+JVS(47532)*UV(4821)+JVS(47533)*UV(4822)& - &+JVS(47534)*UV(4823)+JVS(47535)*UV(4824)+JVS(47536)*UV(4825)+JVS(47537)*UV(4826)+JVS(47538)*UV(4827)& - &+JVS(47539)*UV(4828)+JVS(47540)*UV(4829)+JVS(47541)*UV(4830)+JVS(47542)*UV(4831)+JVS(47544)*UV(4833)& - &+JVS(47546)*UV(4835)+JVS(47547)*UV(4836)+JVS(47548)*UV(4837)+JVS(47549)*UV(4838)+JVS(47550)*UV(4839)& - &+JVS(47552)*UV(4841)+JVS(47553)*UV(4843)+JVS(47554)*UV(4844)+JVS(47556)*UV(4846)+JVS(47557)*UV(4847)& - &+JVS(47558)*UV(4848)+JVS(47559)*UV(4849)+JVS(47560)*UV(4850)+JVS(47562)*UV(4852)+JVS(47563)*UV(4853)& - &+JVS(47564)*UV(4854)+JVS(47565)*UV(4855)+JVS(47566)*UV(4856)+JVS(47567)*UV(4857)+JVS(47568)*UV(4858)& - &+JVS(47570)*UV(4860)+JVS(47571)*UV(4861)+JVS(47572)*UV(4862)+JVS(47573)*UV(4863)+JVS(47574)*UV(4864)& - &+JVS(47576)*UV(4866)+JVS(47577)*UV(4867)+JVS(47578)*UV(4868)+JVS(47579)*UV(4869)+JVS(47580)*UV(4870)& - &+JVS(47581)*UV(4871)+JVS(47583)*UV(4874)+JVS(47584)*UV(4875)+JVS(47585)*UV(4876)+JVS(47586)*UV(4877)& - &+JVS(47587)*UV(4878)+JVS(47588)*UV(4879)+JVS(47589)*UV(4880)+JVS(47590)*UV(4881)+JVS(47593)*UV(4884)& - &+JVS(47594)*UV(4885)+JVS(47595)*UV(4886)+JVS(47596)*UV(4887)+JVS(47597)*UV(4888)+JVS(47598)*UV(4889)& - &+JVS(47599)*UV(4890)+JVS(47600)*UV(4891)+JVS(47601)*UV(4892)+JVS(47602)*UV(4893)+JVS(47603)*UV(4894)& - &+JVS(47606)*UV(4897)+JVS(47607)*UV(4898)+JVS(47608)*UV(4899)+JVS(47609)*UV(4900)+JVS(47610)*UV(4901)& - &+JVS(47611)*UV(4903)+JVS(47612)*UV(4904)+JVS(47613)*UV(4905)+JVS(47614)*UV(4906)+JVS(47616)*UV(4908)& - &+JVS(47617)*UV(4910)+JVS(47618)*UV(4911)+JVS(47619)*UV(4912)+JVS(47620)*UV(4913)+JVS(47622)*UV(4915)& - &+JVS(47623)*UV(4916)+JVS(47624)*UV(4917)+JVS(47625)*UV(4919)+JVS(47626)*UV(4920)+JVS(47627)*UV(4921)& - &+JVS(47628)*UV(4922)+JVS(47629)*UV(4923)+JVS(47630)*UV(4924)+JVS(47631)*UV(4925)+JVS(47632)*UV(4926)& - &+JVS(47634)*UV(4928)+JVS(47635)*UV(4929)+JVS(47636)*UV(4930)+JVS(47637)*UV(4932)+JVS(47639)*UV(4934)& - &+JVS(47640)*UV(4935)+JVS(47641)*UV(4936)+JVS(47643)*UV(4940)+JVS(47644)*UV(4941)+JVS(47645)*UV(4942)& - &+JVS(47646)*UV(4943)+JVS(47647)*UV(4944)+JVS(47649)*UV(4946)+JVS(47650)*UV(4947)+JVS(47651)*UV(4948)& - &+JVS(47652)*UV(4949)+JVS(47656)*UV(4953)+JVS(47657)*UV(4954)+JVS(47658)*UV(4955)+JVS(47659)*UV(4956)& - &+JVS(47660)*UV(4957)+JVS(47661)*UV(4959)+JVS(47662)*UV(4960)+JVS(47664)*UV(4962)+JVS(47665)*UV(4963)& - &+JVS(47668)*UV(4966)+JVS(47669)*UV(4967)+JVS(47670)*UV(4968)+JVS(47671)*UV(4969)+JVS(47673)*UV(4971)& - &+JVS(47674)*UV(4972)+JVS(47675)*UV(4974)+JVS(47678)*UV(4977)+JVS(47680)*UV(4979)+JVS(47681)*UV(4980)& - &+JVS(47682)*UV(4981)+JVS(47683)*UV(4982)+JVS(47684)*UV(4984)+JVS(47685)*UV(4985)+JVS(47686)*UV(4986)& - &+JVS(47687)*UV(4987)+JVS(47689)*UV(4989)+JVS(47690)*UV(4990)+JVS(47691)*UV(4991)+JVS(47692)*UV(4992)& - &+JVS(47693)*UV(4993)+JVS(47694)*UV(4994)+JVS(47695)*UV(4995)+JVS(47697)*UV(4997)+JVS(47698)*UV(4998)& - &+JVS(47699)*UV(4999)+JVS(47700)*UV(5001)+JVS(47702)*UV(5003)+JVS(47703)*UV(5004)+JVS(47704)*UV(5005)& - &+JVS(47705)*UV(5006)+JVS(47706)*UV(5007)+JVS(47707)*UV(5008)+JVS(47710)*UV(5011)+JVS(47713)*UV(5014)& - &+JVS(47714)*UV(5015)+JVS(47715)*UV(5016)+JVS(47716)*UV(5017)+JVS(47718)*UV(5019)+JVS(47719)*UV(5020)& - &+JVS(47720)*UV(5021)+JVS(47721)*UV(5022)+JVS(47723)*UV(5025)+JVS(47724)*UV(5027)+JVS(47725)*UV(5028)& - &+JVS(47726)*UV(5029)+JVS(47729)*UV(5032)+JVS(47730)*UV(5033)+JVS(47731)*UV(5034)+JVS(47732)*UV(5035)& - &+JVS(47733)*UV(5036)+JVS(47735)*UV(5038)+JVS(47736)*UV(5039)+JVS(47737)*UV(5040)+JVS(47738)*UV(5041)& - &+JVS(47740)*UV(5043)+JVS(47741)*UV(5044)+JVS(47742)*UV(5045)+JVS(47743)*UV(5047)+JVS(47744)*UV(5048)& - &+JVS(47748)*UV(5052)+JVS(47749)*UV(5053)+JVS(47750)*UV(5054)+JVS(47751)*UV(5056)+JVS(47753)*UV(5059)& - &+JVS(47754)*UV(5060)+JVS(47755)*UV(5061)+JVS(47756)*UV(5062)+JVS(47759)*UV(5065)+JVS(47764)*UV(5070)& - &+JVS(47767)*UV(5073)+JVS(47768)*UV(5074)+JVS(47769)*UV(5075)+JVS(47771)*UV(5077)+JVS(47772)*UV(5078)& - &+JVS(47773)*UV(5079)+JVS(47774)*UV(5081)+JVS(47775)*UV(5082)+JVS(47777)*UV(5084)+JVS(47781)*UV(5088)& - &+JVS(47783)*UV(5090)+JVS(47784)*UV(5091)+JVS(47785)*UV(5092)+JVS(47789)*UV(5096)+JVS(47790)*UV(5097)& - &+JVS(47791)*UV(5098)+JVS(47792)*UV(5099)+JVS(47793)*UV(5100)+JVS(47794)*UV(5101)+JVS(47795)*UV(5102)& - &+JVS(47797)*UV(5104)+JVS(47798)*UV(5106)+JVS(47799)*UV(5107)+JVS(47800)*UV(5108)+JVS(47801)*UV(5109)& - &+JVS(47803)*UV(5111)+JVS(47804)*UV(5112)+JVS(47806)*UV(5114)+JVS(47808)*UV(5116)+JVS(47809)*UV(5117)& - &+JVS(47810)*UV(5118)+JVS(47811)*UV(5119)+JVS(47812)*UV(5120)+JVS(47813)*UV(5121)+JVS(47814)*UV(5122)& - &+JVS(47817)*UV(5125)+JVS(47819)*UV(5127)+JVS(47820)*UV(5128)+JVS(47821)*UV(5129)+JVS(47822)*UV(5130)& - &+JVS(47823)*UV(5131)+JVS(47824)*UV(5132)+JVS(47825)*UV(5133)+JVS(47826)*UV(5134)+JVS(47827)*UV(5135)& - &+JVS(47828)*UV(5136)+JVS(47829)*UV(5137)+JVS(47830)*UV(5138)+JVS(47833)*UV(5142)+JVS(47835)*UV(5144)& - &+JVS(47836)*UV(5145)+JVS(47837)*UV(5146)+JVS(47838)*UV(5147)+JVS(47839)*UV(5148)+JVS(47840)*UV(5149)& - &+JVS(47841)*UV(5150)+JVS(47842)*UV(5151)+JVS(47843)*UV(5152)+JVS(47845)*UV(5154)+JVS(47846)*UV(5155)& - &+JVS(47847)*UV(5156)+JVS(47849)*UV(5158)+JVS(47851)*UV(5161)+JVS(47853)*UV(5163)+JVS(47854)*UV(5164)& - &+JVS(47857)*UV(5167)+JVS(47860)*UV(5170)+JVS(47861)*UV(5171)+JVS(47862)*UV(5172)+JVS(47863)*UV(5173)& - &+JVS(47864)*UV(5174)+JVS(47869)*UV(5179)+JVS(47871)*UV(5181)+JVS(47872)*UV(5183)+JVS(47873)*UV(5185)& - &+JVS(47874)*UV(5186)+JVS(47879)*UV(5192)+JVS(47881)*UV(5195)+JVS(47882)*UV(5196)+JVS(47883)*UV(5197)& - &+JVS(47884)*UV(5198)+JVS(47886)*UV(5202)+JVS(47888)*UV(5204)+JVS(47890)*UV(5206)+JVS(47892)*UV(5208)& - &+JVS(47898)*UV(5214)+JVS(47900)*UV(5216)+JVS(47901)*UV(5217)+JVS(47902)*UV(5218)+JVS(47903)*UV(5219)& - &+JVS(47906)*UV(5223)+JVS(47907)*UV(5224)+JVS(47911)*UV(5228)+JVS(47912)*UV(5229)+JVS(47914)*UV(5232)& - &+JVS(47917)*UV(5235)+JVS(47918)*UV(5236)+JVS(47919)*UV(5237)+JVS(47921)*UV(5239)+JVS(47923)*UV(5241)& - &+JVS(47925)*UV(5243)+JVS(47926)*UV(5244)+JVS(47927)*UV(5245)+JVS(47928)*UV(5246)+JVS(47929)*UV(5247)& - &+JVS(47932)*UV(5250)+JVS(47934)*UV(5252)+JVS(47935)*UV(5253)+JVS(47937)*UV(5255)+JVS(47938)*UV(5256)& - &+JVS(47940)*UV(5258) - JUV(5253) = JVS(47941)*UV(23)+JVS(47942)*UV(85)+JVS(47943)*UV(86)+JVS(47944)*UV(137)+JVS(47945)*UV(142)+JVS(47946)& - &*UV(244)+JVS(47947)*UV(245)+JVS(47948)*UV(259)+JVS(47949)*UV(331)+JVS(47950)*UV(337)+JVS(47951)*UV(422)& - &+JVS(47952)*UV(448)+JVS(47953)*UV(529)+JVS(47954)*UV(530)+JVS(47955)*UV(535)+JVS(47956)*UV(543)+JVS(47957)& - &*UV(550)+JVS(47958)*UV(555)+JVS(47959)*UV(563)+JVS(47960)*UV(573)+JVS(47961)*UV(583)+JVS(47962)*UV(584)& - &+JVS(47963)*UV(587)+JVS(47964)*UV(597)+JVS(47965)*UV(621)+JVS(47966)*UV(629)+JVS(47967)*UV(635)+JVS(47968)& - &*UV(649)+JVS(47969)*UV(660)+JVS(47970)*UV(662)+JVS(47971)*UV(669)+JVS(47972)*UV(670)+JVS(47973)*UV(673)& - &+JVS(47974)*UV(692)+JVS(47975)*UV(712)+JVS(47976)*UV(713)+JVS(47977)*UV(737)+JVS(47978)*UV(743)+JVS(47979)& - &*UV(744)+JVS(47980)*UV(746)+JVS(47981)*UV(747)+JVS(47982)*UV(753)+JVS(47983)*UV(780)+JVS(47984)*UV(790)& - &+JVS(47985)*UV(797)+JVS(47986)*UV(798)+JVS(47987)*UV(800)+JVS(47988)*UV(809)+JVS(47989)*UV(814)+JVS(47990)& - &*UV(815)+JVS(47991)*UV(816)+JVS(47992)*UV(819)+JVS(47993)*UV(834)+JVS(47994)*UV(840)+JVS(47995)*UV(893)& - &+JVS(47996)*UV(905)+JVS(47997)*UV(924)+JVS(47998)*UV(925)+JVS(47999)*UV(991)+JVS(48000)*UV(1000)+JVS(48001)& - &*UV(1005)+JVS(48002)*UV(1011)+JVS(48003)*UV(1026)+JVS(48004)*UV(1057)+JVS(48005)*UV(1058)+JVS(48006)& - &*UV(1078)+JVS(48007)*UV(1081)+JVS(48008)*UV(1083)+JVS(48009)*UV(1086)+JVS(48010)*UV(1110)+JVS(48011)& - &*UV(1151)+JVS(48012)*UV(1172)+JVS(48013)*UV(1184)+JVS(48014)*UV(1216)+JVS(48015)*UV(1222)+JVS(48016)& - &*UV(1240)+JVS(48017)*UV(1261)+JVS(48018)*UV(1284)+JVS(48019)*UV(1311)+JVS(48020)*UV(1321)+JVS(48021)& - &*UV(1334)+JVS(48022)*UV(1363)+JVS(48023)*UV(1368)+JVS(48024)*UV(1400)+JVS(48025)*UV(1457)+JVS(48026)& - &*UV(1482)+JVS(48027)*UV(1494)+JVS(48028)*UV(1529)+JVS(48029)*UV(1531)+JVS(48030)*UV(1549)+JVS(48031)& - &*UV(1551)+JVS(48032)*UV(1554)+JVS(48033)*UV(1555)+JVS(48034)*UV(1562)+JVS(48035)*UV(1567)+JVS(48036)& - &*UV(1589)+JVS(48037)*UV(1591)+JVS(48038)*UV(1594)+JVS(48039)*UV(1603)+JVS(48040)*UV(1613)+JVS(48041)& - &*UV(1621)+JVS(48042)*UV(1625)+JVS(48043)*UV(1629)+JVS(48044)*UV(1639)+JVS(48045)*UV(1645)+JVS(48046)& - &*UV(1647)+JVS(48047)*UV(1649)+JVS(48048)*UV(1651)+JVS(48049)*UV(1657)+JVS(48050)*UV(1664)+JVS(48051)& - &*UV(1669)+JVS(48052)*UV(1672)+JVS(48053)*UV(1700)+JVS(48054)*UV(1717)+JVS(48055)*UV(1729)+JVS(48056)& - &*UV(1747)+JVS(48057)*UV(1748)+JVS(48058)*UV(1749)+JVS(48059)*UV(1752)+JVS(48060)*UV(1766)+JVS(48061)& - &*UV(1770)+JVS(48062)*UV(1771)+JVS(48063)*UV(1772)+JVS(48064)*UV(1780)+JVS(48065)*UV(1782)+JVS(48067)& - &*UV(1785)+JVS(48068)*UV(1786)+JVS(48069)*UV(1788)+JVS(48070)*UV(1794)+JVS(48071)*UV(1798)+JVS(48072)& - &*UV(1800)+JVS(48074)*UV(1804)+JVS(48075)*UV(1807)+JVS(48076)*UV(1811)+JVS(48077)*UV(1813)+JVS(48078)& - &*UV(1819)+JVS(48079)*UV(1823)+JVS(48080)*UV(1824)+JVS(48081)*UV(1827)+JVS(48082)*UV(1829)+JVS(48084)& - &*UV(1831)+JVS(48085)*UV(1835)+JVS(48086)*UV(1841)+JVS(48088)*UV(1846)+JVS(48090)*UV(1853)+JVS(48091)& - &*UV(1856)+JVS(48093)*UV(1864)+JVS(48094)*UV(1881)+JVS(48095)*UV(1883)+JVS(48096)*UV(1889)+JVS(48097)& - &*UV(1894)+JVS(48098)*UV(1895)+JVS(48099)*UV(1896)+JVS(48100)*UV(1902)+JVS(48101)*UV(1904)+JVS(48102)& - &*UV(1905)+JVS(48103)*UV(1909)+JVS(48104)*UV(1912)+JVS(48105)*UV(1915)+JVS(48106)*UV(1916)+JVS(48107)& - &*UV(1918)+JVS(48108)*UV(1919)+JVS(48109)*UV(1921)+JVS(48110)*UV(1922)+JVS(48111)*UV(1930)+JVS(48112)& - &*UV(1933)+JVS(48113)*UV(1939)+JVS(48114)*UV(1941)+JVS(48116)*UV(1946)+JVS(48117)*UV(1952)+JVS(48118)& - &*UV(1954)+JVS(48119)*UV(1957)+JVS(48120)*UV(1963)+JVS(48121)*UV(1964)+JVS(48122)*UV(1965)+JVS(48123)& - &*UV(1970)+JVS(48124)*UV(1972)+JVS(48125)*UV(1974)+JVS(48126)*UV(1976)+JVS(48127)*UV(1977)+JVS(48128)& - &*UV(1978)+JVS(48130)*UV(1980)+JVS(48131)*UV(1981)+JVS(48132)*UV(1987)+JVS(48134)*UV(1991)+JVS(48135)& - &*UV(1995)+JVS(48136)*UV(1996)+JVS(48137)*UV(1997)+JVS(48139)*UV(2003)+JVS(48140)*UV(2007)+JVS(48141)& - &*UV(2011)+JVS(48142)*UV(2014)+JVS(48143)*UV(2020)+JVS(48144)*UV(2023)+JVS(48145)*UV(2028)+JVS(48146)& - &*UV(2032)+JVS(48147)*UV(2034)+JVS(48148)*UV(2036)+JVS(48149)*UV(2037)+JVS(48150)*UV(2040)+JVS(48151)& - &*UV(2045)+JVS(48153)*UV(2049)+JVS(48155)*UV(2061)+JVS(48156)*UV(2063)+JVS(48158)*UV(2067)+JVS(48160)& - &*UV(2072)+JVS(48161)*UV(2074)+JVS(48162)*UV(2075)+JVS(48163)*UV(2077)+JVS(48164)*UV(2078)+JVS(48165)& - &*UV(2079)+JVS(48166)*UV(2083)+JVS(48167)*UV(2086)+JVS(48168)*UV(2087)+JVS(48170)*UV(2092)+JVS(48172)& - &*UV(2094)+JVS(48173)*UV(2096)+JVS(48174)*UV(2097)+JVS(48175)*UV(2099)+JVS(48176)*UV(2105)+JVS(48177)& - &*UV(2106)+JVS(48178)*UV(2108)+JVS(48179)*UV(2113)+JVS(48180)*UV(2123)+JVS(48181)*UV(2124)+JVS(48182)& - &*UV(2128)+JVS(48183)*UV(2129)+JVS(48184)*UV(2136)+JVS(48185)*UV(2142)+JVS(48186)*UV(2149)+JVS(48187)& - &*UV(2150)+JVS(48189)*UV(2155)+JVS(48190)*UV(2157)+JVS(48191)*UV(2161)+JVS(48192)*UV(2164)+JVS(48193)& - &*UV(2165)+JVS(48195)*UV(2168)+JVS(48196)*UV(2169)+JVS(48197)*UV(2172)+JVS(48198)*UV(2176)+JVS(48200)& - &*UV(2181)+JVS(48201)*UV(2182)+JVS(48202)*UV(2183)+JVS(48203)*UV(2184)+JVS(48204)*UV(2185)+JVS(48205)& - &*UV(2189)+JVS(48206)*UV(2193)+JVS(48207)*UV(2194)+JVS(48208)*UV(2195)+JVS(48209)*UV(2196)+JVS(48210)& - &*UV(2198)+JVS(48211)*UV(2199)+JVS(48212)*UV(2202)+JVS(48213)*UV(2206)+JVS(48214)*UV(2213)+JVS(48215)& - &*UV(2215)+JVS(48216)*UV(2216)+JVS(48217)*UV(2218)+JVS(48218)*UV(2220)+JVS(48219)*UV(2222)+JVS(48220)& - &*UV(2224)+JVS(48221)*UV(2232)+JVS(48222)*UV(2237)+JVS(48223)*UV(2239)+JVS(48224)*UV(2240)+JVS(48225)& - &*UV(2241)+JVS(48226)*UV(2242)+JVS(48227)*UV(2245)+JVS(48228)*UV(2246)+JVS(48229)*UV(2250)+JVS(48230)& - &*UV(2253)+JVS(48231)*UV(2254)+JVS(48232)*UV(2256)+JVS(48233)*UV(2257)+JVS(48234)*UV(2261)+JVS(48237)& - &*UV(2268)+JVS(48238)*UV(2270)+JVS(48239)*UV(2271)+JVS(48240)*UV(2275)+JVS(48241)*UV(2276)+JVS(48242)& - &*UV(2277)+JVS(48243)*UV(2278)+JVS(48244)*UV(2280)+JVS(48245)*UV(2282)+JVS(48246)*UV(2285)+JVS(48247)& - &*UV(2288)+JVS(48248)*UV(2290)+JVS(48249)*UV(2291)+JVS(48251)*UV(2296)+JVS(48252)*UV(2297)+JVS(48253)& - &*UV(2299)+JVS(48254)*UV(2302)+JVS(48255)*UV(2303)+JVS(48256)*UV(2306)+JVS(48257)*UV(2309)+JVS(48258)& - &*UV(2311)+JVS(48259)*UV(2313)+JVS(48260)*UV(2314)+JVS(48261)*UV(2317)+JVS(48262)*UV(2321)+JVS(48263)& - &*UV(2325)+JVS(48264)*UV(2327)+JVS(48265)*UV(2328)+JVS(48266)*UV(2330)+JVS(48267)*UV(2332)+JVS(48268)& - &*UV(2333)+JVS(48269)*UV(2337)+JVS(48270)*UV(2338)+JVS(48271)*UV(2341)+JVS(48273)*UV(2343)+JVS(48274)& - &*UV(2344)+JVS(48275)*UV(2345)+JVS(48276)*UV(2347)+JVS(48277)*UV(2350)+JVS(48279)*UV(2352)+JVS(48280)& - &*UV(2354)+JVS(48281)*UV(2365)+JVS(48282)*UV(2367)+JVS(48284)*UV(2370)+JVS(48285)*UV(2372)+JVS(48286)& - &*UV(2375)+JVS(48287)*UV(2378)+JVS(48288)*UV(2382)+JVS(48289)*UV(2383)+JVS(48290)*UV(2387)+JVS(48292)& - &*UV(2403)+JVS(48293)*UV(2405)+JVS(48294)*UV(2406)+JVS(48295)*UV(2408)+JVS(48297)*UV(2418)+JVS(48298)& - &*UV(2419)+JVS(48299)*UV(2427)+JVS(48300)*UV(2429)+JVS(48301)*UV(2432)+JVS(48302)*UV(2433)+JVS(48303)& - &*UV(2434)+JVS(48304)*UV(2436)+JVS(48305)*UV(2441)+JVS(48306)*UV(2444)+JVS(48307)*UV(2447)+JVS(48308)& - &*UV(2453)+JVS(48310)*UV(2458)+JVS(48311)*UV(2459)+JVS(48312)*UV(2460)+JVS(48313)*UV(2461)+JVS(48314)& - &*UV(2462)+JVS(48315)*UV(2468)+JVS(48316)*UV(2478)+JVS(48317)*UV(2481)+JVS(48318)*UV(2486)+JVS(48319)& - &*UV(2489)+JVS(48320)*UV(2491)+JVS(48321)*UV(2493)+JVS(48322)*UV(2495)+JVS(48323)*UV(2496)+JVS(48324)& - &*UV(2498)+JVS(48325)*UV(2499)+JVS(48326)*UV(2500)+JVS(48327)*UV(2502)+JVS(48328)*UV(2504)+JVS(48329)& - &*UV(2505)+JVS(48330)*UV(2506)+JVS(48331)*UV(2509)+JVS(48332)*UV(2510)+JVS(48333)*UV(2511)+JVS(48334)& - &*UV(2513)+JVS(48335)*UV(2514)+JVS(48336)*UV(2515)+JVS(48337)*UV(2517)+JVS(48338)*UV(2518)+JVS(48339)& - &*UV(2519)+JVS(48340)*UV(2520)+JVS(48341)*UV(2522)+JVS(48342)*UV(2523)+JVS(48343)*UV(2524)+JVS(48344)& - &*UV(2525)+JVS(48345)*UV(2527)+JVS(48346)*UV(2529)+JVS(48347)*UV(2530)+JVS(48348)*UV(2531)+JVS(48349)& - &*UV(2532)+JVS(48350)*UV(2533)+JVS(48351)*UV(2534)+JVS(48352)*UV(2535)+JVS(48353)*UV(2536)+JVS(48354)& - &*UV(2537)+JVS(48355)*UV(2538)+JVS(48356)*UV(2542)+JVS(48357)*UV(2546)+JVS(48358)*UV(2547)+JVS(48360)& - &*UV(2552)+JVS(48361)*UV(2555)+JVS(48362)*UV(2557)+JVS(48363)*UV(2560)+JVS(48364)*UV(2563)+JVS(48365)& - &*UV(2564)+JVS(48366)*UV(2565)+JVS(48367)*UV(2566)+JVS(48368)*UV(2567)+JVS(48369)*UV(2569)+JVS(48370)& - &*UV(2571)+JVS(48371)*UV(2573)+JVS(48372)*UV(2576)+JVS(48373)*UV(2577)+JVS(48374)*UV(2578)+JVS(48375)& - &*UV(2579)+JVS(48376)*UV(2580)+JVS(48377)*UV(2582)+JVS(48378)*UV(2583)+JVS(48379)*UV(2584)+JVS(48380)& - &*UV(2585)+JVS(48381)*UV(2587)+JVS(48382)*UV(2588)+JVS(48383)*UV(2593)+JVS(48384)*UV(2595)+JVS(48385)& - &*UV(2597)+JVS(48386)*UV(2598)+JVS(48387)*UV(2600)+JVS(48388)*UV(2605)+JVS(48389)*UV(2606)+JVS(48390)& - &*UV(2608)+JVS(48391)*UV(2610)+JVS(48392)*UV(2611)+JVS(48393)*UV(2612)+JVS(48394)*UV(2613)+JVS(48395)& - &*UV(2615)+JVS(48396)*UV(2619)+JVS(48397)*UV(2620)+JVS(48398)*UV(2621)+JVS(48399)*UV(2622)+JVS(48400)& - &*UV(2624)+JVS(48401)*UV(2626)+JVS(48402)*UV(2629)+JVS(48403)*UV(2630)+JVS(48404)*UV(2631)+JVS(48405)& - &*UV(2632)+JVS(48406)*UV(2635)+JVS(48407)*UV(2636)+JVS(48408)*UV(2637)+JVS(48409)*UV(2640)+JVS(48410)& - &*UV(2643)+JVS(48411)*UV(2648)+JVS(48412)*UV(2649)+JVS(48413)*UV(2650)+JVS(48414)*UV(2651)+JVS(48415)& - &*UV(2653)+JVS(48416)*UV(2655)+JVS(48417)*UV(2656)+JVS(48418)*UV(2657)+JVS(48419)*UV(2658)+JVS(48420)& - &*UV(2660)+JVS(48421)*UV(2661)+JVS(48422)*UV(2663)+JVS(48423)*UV(2664)+JVS(48424)*UV(2666)+JVS(48425)& - &*UV(2668)+JVS(48426)*UV(2669)+JVS(48427)*UV(2670)+JVS(48428)*UV(2671)+JVS(48429)*UV(2672)+JVS(48430)& - &*UV(2673)+JVS(48431)*UV(2674)+JVS(48432)*UV(2675)+JVS(48433)*UV(2677)+JVS(48434)*UV(2678)+JVS(48435)& - &*UV(2681)+JVS(48436)*UV(2682)+JVS(48437)*UV(2683)+JVS(48438)*UV(2684)+JVS(48439)*UV(2685)+JVS(48440)& - &*UV(2687)+JVS(48441)*UV(2688)+JVS(48442)*UV(2689)+JVS(48443)*UV(2691)+JVS(48444)*UV(2696)+JVS(48445)& - &*UV(2698)+JVS(48446)*UV(2700)+JVS(48447)*UV(2701)+JVS(48448)*UV(2702)+JVS(48449)*UV(2703)+JVS(48450)& - &*UV(2704)+JVS(48451)*UV(2705)+JVS(48452)*UV(2708)+JVS(48453)*UV(2709)+JVS(48454)*UV(2712)+JVS(48455)& - &*UV(2713)+JVS(48456)*UV(2718)+JVS(48457)*UV(2721)+JVS(48458)*UV(2725)+JVS(48459)*UV(2726)+JVS(48460)& - &*UV(2728)+JVS(48461)*UV(2729)+JVS(48462)*UV(2732)+JVS(48463)*UV(2733)+JVS(48464)*UV(2734)+JVS(48465)& - &*UV(2735)+JVS(48466)*UV(2736)+JVS(48467)*UV(2738)+JVS(48468)*UV(2740)+JVS(48469)*UV(2742)+JVS(48470)& - &*UV(2743)+JVS(48471)*UV(2750)+JVS(48472)*UV(2755)+JVS(48473)*UV(2756)+JVS(48474)*UV(2757)+JVS(48475)& - &*UV(2759)+JVS(48476)*UV(2761)+JVS(48477)*UV(2762)+JVS(48478)*UV(2764)+JVS(48479)*UV(2765)+JVS(48480)& - &*UV(2768)+JVS(48481)*UV(2772)+JVS(48482)*UV(2776)+JVS(48483)*UV(2777)+JVS(48484)*UV(2778)+JVS(48485)& - &*UV(2779)+JVS(48486)*UV(2780)+JVS(48487)*UV(2781)+JVS(48488)*UV(2782)+JVS(48489)*UV(2783)+JVS(48490)& - &*UV(2784)+JVS(48491)*UV(2786)+JVS(48492)*UV(2787)+JVS(48493)*UV(2789)+JVS(48494)*UV(2790)+JVS(48495)& - &*UV(2791)+JVS(48496)*UV(2792)+JVS(48497)*UV(2793)+JVS(48498)*UV(2794)+JVS(48499)*UV(2796)+JVS(48500)& - &*UV(2798)+JVS(48501)*UV(2799)+JVS(48502)*UV(2800)+JVS(48503)*UV(2801)+JVS(48504)*UV(2802)+JVS(48505)& - &*UV(2804)+JVS(48506)*UV(2806)+JVS(48507)*UV(2808)+JVS(48508)*UV(2811)+JVS(48509)*UV(2812)+JVS(48510)& - &*UV(2813)+JVS(48511)*UV(2814)+JVS(48512)*UV(2815)+JVS(48513)*UV(2817)+JVS(48514)*UV(2818)+JVS(48515)& - &*UV(2821)+JVS(48516)*UV(2822)+JVS(48517)*UV(2823)+JVS(48518)*UV(2825)+JVS(48519)*UV(2829)+JVS(48520)& - &*UV(2830)+JVS(48521)*UV(2831)+JVS(48522)*UV(2832)+JVS(48523)*UV(2833)+JVS(48524)*UV(2834)+JVS(48525)& - &*UV(2835)+JVS(48526)*UV(2839)+JVS(48527)*UV(2841)+JVS(48528)*UV(2842)+JVS(48529)*UV(2843)+JVS(48530)& - &*UV(2844)+JVS(48531)*UV(2845)+JVS(48532)*UV(2846)+JVS(48533)*UV(2847)+JVS(48534)*UV(2848)+JVS(48535)& - &*UV(2850)+JVS(48536)*UV(2851)+JVS(48537)*UV(2852)+JVS(48539)*UV(2855)+JVS(48540)*UV(2857)+JVS(48541)& - &*UV(2858)+JVS(48542)*UV(2859)+JVS(48543)*UV(2860)+JVS(48544)*UV(2863)+JVS(48545)*UV(2864)+JVS(48546)& - &*UV(2866)+JVS(48547)*UV(2867)+JVS(48548)*UV(2869)+JVS(48549)*UV(2870)+JVS(48550)*UV(2872)+JVS(48551)& - &*UV(2876)+JVS(48552)*UV(2877)+JVS(48553)*UV(2879)+JVS(48554)*UV(2880)+JVS(48555)*UV(2882)+JVS(48556)& - &*UV(2883)+JVS(48557)*UV(2884)+JVS(48558)*UV(2885)+JVS(48559)*UV(2886)+JVS(48560)*UV(2887)+JVS(48561)& - &*UV(2888)+JVS(48562)*UV(2892)+JVS(48563)*UV(2896)+JVS(48564)*UV(2898)+JVS(48565)*UV(2901)+JVS(48566)& - &*UV(2903)+JVS(48567)*UV(2904)+JVS(48568)*UV(2907)+JVS(48569)*UV(2908)+JVS(48570)*UV(2913)+JVS(48571)& - &*UV(2915)+JVS(48572)*UV(2916)+JVS(48573)*UV(2917)+JVS(48574)*UV(2918)+JVS(48575)*UV(2919)+JVS(48576)& - &*UV(2921)+JVS(48577)*UV(2924)+JVS(48578)*UV(2925)+JVS(48579)*UV(2928)+JVS(48580)*UV(2929)+JVS(48581)& - &*UV(2934)+JVS(48582)*UV(2935)+JVS(48583)*UV(2937)+JVS(48584)*UV(2941)+JVS(48585)*UV(2942)+JVS(48586)& - &*UV(2943)+JVS(48587)*UV(2945)+JVS(48588)*UV(2947)+JVS(48589)*UV(2948)+JVS(48590)*UV(2950)+JVS(48591)& - &*UV(2951)+JVS(48592)*UV(2952)+JVS(48593)*UV(2955)+JVS(48594)*UV(2956)+JVS(48595)*UV(2957)+JVS(48596)& - &*UV(2958)+JVS(48597)*UV(2959)+JVS(48598)*UV(2962)+JVS(48599)*UV(2964)+JVS(48600)*UV(2966)+JVS(48601)& - &*UV(2969)+JVS(48602)*UV(2970)+JVS(48603)*UV(2977)+JVS(48604)*UV(2978)+JVS(48605)*UV(2980)+JVS(48606)& - &*UV(2984)+JVS(48607)*UV(2985)+JVS(48608)*UV(2986)+JVS(48609)*UV(2987)+JVS(48610)*UV(2988)+JVS(48611)& - &*UV(2994)+JVS(48612)*UV(2995)+JVS(48613)*UV(2998)+JVS(48614)*UV(2999)+JVS(48615)*UV(3002)+JVS(48616)& - &*UV(3003)+JVS(48617)*UV(3007)+JVS(48618)*UV(3008)+JVS(48619)*UV(3010)+JVS(48620)*UV(3011)+JVS(48621)& - &*UV(3012)+JVS(48622)*UV(3014)+JVS(48623)*UV(3015)+JVS(48624)*UV(3016)+JVS(48625)*UV(3017)+JVS(48626)& - &*UV(3019)+JVS(48627)*UV(3020)+JVS(48628)*UV(3021)+JVS(48629)*UV(3023)+JVS(48630)*UV(3024)+JVS(48631)& - &*UV(3025)+JVS(48632)*UV(3026)+JVS(48633)*UV(3027)+JVS(48634)*UV(3029)+JVS(48635)*UV(3030)+JVS(48636)& - &*UV(3034)+JVS(48637)*UV(3036)+JVS(48638)*UV(3040)+JVS(48639)*UV(3042)+JVS(48640)*UV(3045)+JVS(48641)& - &*UV(3047)+JVS(48642)*UV(3050)+JVS(48643)*UV(3051)+JVS(48644)*UV(3052)+JVS(48645)*UV(3053)+JVS(48646)& - &*UV(3056)+JVS(48647)*UV(3059)+JVS(48648)*UV(3060)+JVS(48649)*UV(3061)+JVS(48650)*UV(3063)+JVS(48651)& - &*UV(3065)+JVS(48652)*UV(3068)+JVS(48653)*UV(3070)+JVS(48654)*UV(3074)+JVS(48655)*UV(3075)+JVS(48656)& - &*UV(3076)+JVS(48657)*UV(3077)+JVS(48658)*UV(3081)+JVS(48659)*UV(3090)+JVS(48660)*UV(3102)+JVS(48661)& - &*UV(3106)+JVS(48662)*UV(3108)+JVS(48663)*UV(3141)+JVS(48664)*UV(3154)+JVS(48665)*UV(3159)+JVS(48666)& - &*UV(3160)+JVS(48667)*UV(3173)+JVS(48668)*UV(3175)+JVS(48669)*UV(3177)+JVS(48670)*UV(3188)+JVS(48671)& - &*UV(3197)+JVS(48672)*UV(3199)+JVS(48673)*UV(3203)+JVS(48674)*UV(3204)+JVS(48675)*UV(3206)+JVS(48676)& - &*UV(3211)+JVS(48677)*UV(3212)+JVS(48678)*UV(3218)+JVS(48679)*UV(3220)+JVS(48680)*UV(3221)+JVS(48681)& - &*UV(3223)+JVS(48682)*UV(3224)+JVS(48683)*UV(3229)+JVS(48684)*UV(3232)+JVS(48685)*UV(3235)+JVS(48686)& - &*UV(3236)+JVS(48687)*UV(3239)+JVS(48688)*UV(3240)+JVS(48689)*UV(3245)+JVS(48690)*UV(3249)+JVS(48691)& - &*UV(3253)+JVS(48692)*UV(3254)+JVS(48693)*UV(3257)+JVS(48694)*UV(3258)+JVS(48695)*UV(3260)+JVS(48696)& - &*UV(3264)+JVS(48697)*UV(3271)+JVS(48698)*UV(3272)+JVS(48699)*UV(3273)+JVS(48700)*UV(3275)+JVS(48702)& - &*UV(3279)+JVS(48703)*UV(3282)+JVS(48704)*UV(3285)+JVS(48705)*UV(3290)+JVS(48706)*UV(3292)+JVS(48707)& - &*UV(3293)+JVS(48708)*UV(3295)+JVS(48709)*UV(3300)+JVS(48710)*UV(3302)+JVS(48711)*UV(3303)+JVS(48712)& - &*UV(3304)+JVS(48713)*UV(3305)+JVS(48714)*UV(3306)+JVS(48715)*UV(3307)+JVS(48716)*UV(3311)+JVS(48717)& - &*UV(3312)+JVS(48718)*UV(3313)+JVS(48719)*UV(3315)+JVS(48720)*UV(3316)+JVS(48721)*UV(3317)+JVS(48722)& - &*UV(3318)+JVS(48723)*UV(3319)+JVS(48724)*UV(3320)+JVS(48725)*UV(3321)+JVS(48726)*UV(3322)+JVS(48727)& - &*UV(3323)+JVS(48728)*UV(3324)+JVS(48729)*UV(3326)+JVS(48730)*UV(3327)+JVS(48731)*UV(3328)+JVS(48732)& - &*UV(3329)+JVS(48733)*UV(3334)+JVS(48734)*UV(3340)+JVS(48735)*UV(3341)+JVS(48736)*UV(3347)+JVS(48737)& - &*UV(3349)+JVS(48738)*UV(3351)+JVS(48739)*UV(3353)+JVS(48740)*UV(3354)+JVS(48741)*UV(3357)+JVS(48742)& - &*UV(3358)+JVS(48743)*UV(3360)+JVS(48744)*UV(3361)+JVS(48745)*UV(3362)+JVS(48746)*UV(3363)+JVS(48747)& - &*UV(3364)+JVS(48748)*UV(3370)+JVS(48749)*UV(3371)+JVS(48750)*UV(3375)+JVS(48751)*UV(3376)+JVS(48752)& - &*UV(3379)+JVS(48753)*UV(3380)+JVS(48754)*UV(3381)+JVS(48756)*UV(3388)+JVS(48757)*UV(3392)+JVS(48758)& - &*UV(3394)+JVS(48759)*UV(3395)+JVS(48760)*UV(3396)+JVS(48761)*UV(3399)+JVS(48762)*UV(3400)+JVS(48763)& - &*UV(3401)+JVS(48764)*UV(3402)+JVS(48765)*UV(3406)+JVS(48766)*UV(3407)+JVS(48767)*UV(3408)+JVS(48768)& - &*UV(3409)+JVS(48769)*UV(3414)+JVS(48770)*UV(3417)+JVS(48771)*UV(3418)+JVS(48772)*UV(3421)+JVS(48773)& - &*UV(3423)+JVS(48774)*UV(3427)+JVS(48775)*UV(3432)+JVS(48776)*UV(3435)+JVS(48777)*UV(3436)+JVS(48778)& - &*UV(3438)+JVS(48779)*UV(3439)+JVS(48780)*UV(3443)+JVS(48781)*UV(3445)+JVS(48782)*UV(3447)+JVS(48783)& - &*UV(3456)+JVS(48784)*UV(3457)+JVS(48785)*UV(3460)+JVS(48786)*UV(3461)+JVS(48787)*UV(3474)+JVS(48788)& - &*UV(3477)+JVS(48790)*UV(3481)+JVS(48792)*UV(3489)+JVS(48793)*UV(3490)+JVS(48794)*UV(3491)+JVS(48795)& - &*UV(3492)+JVS(48796)*UV(3496)+JVS(48797)*UV(3500)+JVS(48798)*UV(3502)+JVS(48799)*UV(3503)+JVS(48800)& - &*UV(3507)+JVS(48801)*UV(3509)+JVS(48802)*UV(3511)+JVS(48803)*UV(3518)+JVS(48804)*UV(3520)+JVS(48805)& - &*UV(3521)+JVS(48806)*UV(3523)+JVS(48807)*UV(3525)+JVS(48808)*UV(3527)+JVS(48809)*UV(3529)+JVS(48810)& - &*UV(3531)+JVS(48811)*UV(3532)+JVS(48812)*UV(3533)+JVS(48813)*UV(3534)+JVS(48814)*UV(3538)+JVS(48815)& - &*UV(3539)+JVS(48817)*UV(3549)+JVS(48818)*UV(3554)+JVS(48819)*UV(3555)+JVS(48820)*UV(3562)+JVS(48821)& - &*UV(3563)+JVS(48822)*UV(3568)+JVS(48823)*UV(3572)+JVS(48824)*UV(3574)+JVS(48825)*UV(3575)+JVS(48826)& - &*UV(3577)+JVS(48828)*UV(3585)+JVS(48829)*UV(3586)+JVS(48830)*UV(3592)+JVS(48831)*UV(3596)+JVS(48833)& - &*UV(3598)+JVS(48834)*UV(3601)+JVS(48837)*UV(3627)+JVS(48838)*UV(3628)+JVS(48839)*UV(3631)+JVS(48840)& - &*UV(3632)+JVS(48841)*UV(3634)+JVS(48842)*UV(3635)+JVS(48843)*UV(3636)+JVS(48844)*UV(3637)+JVS(48845)& - &*UV(3641)+JVS(48846)*UV(3648)+JVS(48847)*UV(3650)+JVS(48848)*UV(3654)+JVS(48849)*UV(3658)+JVS(48850)& - &*UV(3659)+JVS(48852)*UV(3661)+JVS(48853)*UV(3663)+JVS(48854)*UV(3665)+JVS(48855)*UV(3666)+JVS(48856)& - &*UV(3667)+JVS(48857)*UV(3668)+JVS(48858)*UV(3669)+JVS(48859)*UV(3670)+JVS(48860)*UV(3671)+JVS(48861)& - &*UV(3672)+JVS(48862)*UV(3674)+JVS(48863)*UV(3675)+JVS(48864)*UV(3676)+JVS(48865)*UV(3677)+JVS(48866)& - &*UV(3678)+JVS(48867)*UV(3679)+JVS(48868)*UV(3680)+JVS(48869)*UV(3685)+JVS(48870)*UV(3686)+JVS(48871)& - &*UV(3687)+JVS(48872)*UV(3688)+JVS(48873)*UV(3690)+JVS(48874)*UV(3691)+JVS(48875)*UV(3692)+JVS(48876)& - &*UV(3694)+JVS(48877)*UV(3695)+JVS(48878)*UV(3696)+JVS(48879)*UV(3697)+JVS(48880)*UV(3698)+JVS(48881)& - &*UV(3699)+JVS(48882)*UV(3700)+JVS(48883)*UV(3703)+JVS(48884)*UV(3704)+JVS(48885)*UV(3705)+JVS(48886)& - &*UV(3706)+JVS(48887)*UV(3710)+JVS(48888)*UV(3711)+JVS(48889)*UV(3713)+JVS(48890)*UV(3714)+JVS(48891)& - &*UV(3715)+JVS(48892)*UV(3717)+JVS(48893)*UV(3718)+JVS(48894)*UV(3719)+JVS(48895)*UV(3720)+JVS(48896)& - &*UV(3721)+JVS(48897)*UV(3722)+JVS(48898)*UV(3724)+JVS(48899)*UV(3725)+JVS(48900)*UV(3727)+JVS(48901)& - &*UV(3728)+JVS(48902)*UV(3730)+JVS(48903)*UV(3731)+JVS(48904)*UV(3733)+JVS(48905)*UV(3738)+JVS(48906)& - &*UV(3739)+JVS(48907)*UV(3740)+JVS(48908)*UV(3741)+JVS(48909)*UV(3743)+JVS(48910)*UV(3744)+JVS(48911)& - &*UV(3745)+JVS(48912)*UV(3746)+JVS(48913)*UV(3749)+JVS(48914)*UV(3750)+JVS(48915)*UV(3751)+JVS(48916)& - &*UV(3752)+JVS(48917)*UV(3753)+JVS(48918)*UV(3758)+JVS(48919)*UV(3760)+JVS(48920)*UV(3761)+JVS(48921)& - &*UV(3762)+JVS(48922)*UV(3764)+JVS(48923)*UV(3766)+JVS(48924)*UV(3767)+JVS(48925)*UV(3768)+JVS(48926)& - &*UV(3769)+JVS(48927)*UV(3770)+JVS(48928)*UV(3771)+JVS(48929)*UV(3772)+JVS(48930)*UV(3774)+JVS(48931)& - &*UV(3776)+JVS(48932)*UV(3778)+JVS(48933)*UV(3781)+JVS(48934)*UV(3782)+JVS(48935)*UV(3784)+JVS(48936)& - &*UV(3785)+JVS(48937)*UV(3786)+JVS(48938)*UV(3788)+JVS(48939)*UV(3789)+JVS(48940)*UV(3790)+JVS(48941)& - &*UV(3791)+JVS(48942)*UV(3793)+JVS(48943)*UV(3794)+JVS(48944)*UV(3796)+JVS(48945)*UV(3797)+JVS(48946)& - &*UV(3798)+JVS(48947)*UV(3799)+JVS(48948)*UV(3801)+JVS(48949)*UV(3803)+JVS(48950)*UV(3804)+JVS(48951)& - &*UV(3806)+JVS(48952)*UV(3807)+JVS(48953)*UV(3808)+JVS(48954)*UV(3810)+JVS(48955)*UV(3811)+JVS(48956)& - &*UV(3813)+JVS(48957)*UV(3814)+JVS(48958)*UV(3815)+JVS(48959)*UV(3817)+JVS(48960)*UV(3819)+JVS(48961)& - &*UV(3820)+JVS(48962)*UV(3823)+JVS(48963)*UV(3825)+JVS(48964)*UV(3827)+JVS(48965)*UV(3828)+JVS(48966)& - &*UV(3835)+JVS(48967)*UV(3836)+JVS(48968)*UV(3837)+JVS(48969)*UV(3838)+JVS(48970)*UV(3839)+JVS(48971)& - &*UV(3840)+JVS(48972)*UV(3841)+JVS(48973)*UV(3842)+JVS(48974)*UV(3844)+JVS(48975)*UV(3845)+JVS(48976)& - &*UV(3846)+JVS(48977)*UV(3847)+JVS(48978)*UV(3848)+JVS(48979)*UV(3850)+JVS(48980)*UV(3852)+JVS(48981)& - &*UV(3853)+JVS(48982)*UV(3854)+JVS(48983)*UV(3855)+JVS(48984)*UV(3858)+JVS(48985)*UV(3859)+JVS(48986)& - &*UV(3860)+JVS(48987)*UV(3863)+JVS(48988)*UV(3864)+JVS(48989)*UV(3865)+JVS(48990)*UV(3866)+JVS(48991)& - &*UV(3867)+JVS(48992)*UV(3869)+JVS(48993)*UV(3870)+JVS(48994)*UV(3871)+JVS(48995)*UV(3872)+JVS(48996)& - &*UV(3873)+JVS(48997)*UV(3874)+JVS(48998)*UV(3876)+JVS(48999)*UV(3878)+JVS(49000)*UV(3880)+JVS(49001)& - &*UV(3881)+JVS(49002)*UV(3882)+JVS(49003)*UV(3883)+JVS(49004)*UV(3884)+JVS(49005)*UV(3885)+JVS(49006)& - &*UV(3886)+JVS(49007)*UV(3887)+JVS(49008)*UV(3888)+JVS(49009)*UV(3889)+JVS(49010)*UV(3890)+JVS(49011)& - &*UV(3891)+JVS(49012)*UV(3893)+JVS(49013)*UV(3894)+JVS(49014)*UV(3895)+JVS(49015)*UV(3897)+JVS(49016)& - &*UV(3898)+JVS(49017)*UV(3899)+JVS(49018)*UV(3901)+JVS(49019)*UV(3902)+JVS(49020)*UV(3903)+JVS(49021)& - &*UV(3904)+JVS(49022)*UV(3905)+JVS(49023)*UV(3907)+JVS(49024)*UV(3908)+JVS(49025)*UV(3909)+JVS(49026)& - &*UV(3910)+JVS(49027)*UV(3912)+JVS(49028)*UV(3916)+JVS(49029)*UV(3919)+JVS(49030)*UV(3920)+JVS(49031)& - &*UV(3921)+JVS(49032)*UV(3922)+JVS(49033)*UV(3925)+JVS(49034)*UV(3926)+JVS(49035)*UV(3927)+JVS(49036)& - &*UV(3928)+JVS(49037)*UV(3929)+JVS(49038)*UV(3932)+JVS(49039)*UV(3933)+JVS(49040)*UV(3934)+JVS(49041)& - &*UV(3936)+JVS(49042)*UV(3937)+JVS(49043)*UV(3939)+JVS(49044)*UV(3940)+JVS(49045)*UV(3941)+JVS(49046)& - &*UV(3942)+JVS(49047)*UV(3943)+JVS(49048)*UV(3944)+JVS(49049)*UV(3945)+JVS(49050)*UV(3948)+JVS(49051)& - &*UV(3949)+JVS(49052)*UV(3950)+JVS(49053)*UV(3951)+JVS(49054)*UV(3952)+JVS(49055)*UV(3953)+JVS(49056)& - &*UV(3954)+JVS(49057)*UV(3955)+JVS(49058)*UV(3956)+JVS(49059)*UV(3961)+JVS(49060)*UV(3962)+JVS(49061)& - &*UV(3963)+JVS(49062)*UV(3964)+JVS(49063)*UV(3966)+JVS(49064)*UV(3967)+JVS(49065)*UV(3969)+JVS(49066)& - &*UV(3970)+JVS(49067)*UV(3971)+JVS(49068)*UV(3973)+JVS(49069)*UV(3974)+JVS(49070)*UV(3975)+JVS(49071)& - &*UV(3976)+JVS(49072)*UV(3977)+JVS(49073)*UV(3979)+JVS(49074)*UV(3980)+JVS(49075)*UV(3981)+JVS(49076)& - &*UV(3982)+JVS(49077)*UV(3983)+JVS(49078)*UV(3984)+JVS(49079)*UV(3985)+JVS(49080)*UV(3987)+JVS(49081)& - &*UV(3988)+JVS(49082)*UV(3989)+JVS(49083)*UV(3990)+JVS(49084)*UV(3992)+JVS(49085)*UV(3994)+JVS(49086)& - &*UV(3997)+JVS(49087)*UV(3998)+JVS(49088)*UV(3999)+JVS(49089)*UV(4000)+JVS(49090)*UV(4001)+JVS(49091)& - &*UV(4002)+JVS(49092)*UV(4003)+JVS(49093)*UV(4005)+JVS(49094)*UV(4006)+JVS(49095)*UV(4007)+JVS(49096)& - &*UV(4008)+JVS(49097)*UV(4009)+JVS(49098)*UV(4011)+JVS(49100)*UV(4013)+JVS(49101)*UV(4015)+JVS(49102)& - &*UV(4016)+JVS(49103)*UV(4019)+JVS(49104)*UV(4020)+JVS(49105)*UV(4021)+JVS(49106)*UV(4022)+JVS(49107)& - &*UV(4023)+JVS(49108)*UV(4025)+JVS(49109)*UV(4026)+JVS(49110)*UV(4028)+JVS(49111)*UV(4030)+JVS(49112)& - &*UV(4031)+JVS(49113)*UV(4033)+JVS(49114)*UV(4034)+JVS(49115)*UV(4035)+JVS(49116)*UV(4036)+JVS(49117)& - &*UV(4037)+JVS(49118)*UV(4038)+JVS(49119)*UV(4039)+JVS(49120)*UV(4040)+JVS(49121)*UV(4041)+JVS(49122)& - &*UV(4042)+JVS(49123)*UV(4043)+JVS(49124)*UV(4044)+JVS(49126)*UV(4046)+JVS(49127)*UV(4049)+JVS(49128)& - &*UV(4050)+JVS(49129)*UV(4051)+JVS(49130)*UV(4052)+JVS(49131)*UV(4054)+JVS(49132)*UV(4055)+JVS(49133)& - &*UV(4057)+JVS(49134)*UV(4058)+JVS(49135)*UV(4059)+JVS(49136)*UV(4060)+JVS(49137)*UV(4061)+JVS(49138)& - &*UV(4063)+JVS(49139)*UV(4064)+JVS(49140)*UV(4065)+JVS(49142)*UV(4067)+JVS(49143)*UV(4068)+JVS(49144)& - &*UV(4069)+JVS(49145)*UV(4070)+JVS(49146)*UV(4072)+JVS(49147)*UV(4073)+JVS(49148)*UV(4074)+JVS(49149)& - &*UV(4075)+JVS(49150)*UV(4076)+JVS(49151)*UV(4077)+JVS(49152)*UV(4078)+JVS(49153)*UV(4079)+JVS(49154)& - &*UV(4082)+JVS(49155)*UV(4085)+JVS(49156)*UV(4087)+JVS(49157)*UV(4088)+JVS(49158)*UV(4089)+JVS(49159)& - &*UV(4090)+JVS(49160)*UV(4091)+JVS(49161)*UV(4092)+JVS(49162)*UV(4095)+JVS(49163)*UV(4097)+JVS(49164)& - &*UV(4098)+JVS(49165)*UV(4099)+JVS(49166)*UV(4100)+JVS(49167)*UV(4101)+JVS(49168)*UV(4102)+JVS(49169)& - &*UV(4105)+JVS(49170)*UV(4106)+JVS(49171)*UV(4108)+JVS(49172)*UV(4111)+JVS(49173)*UV(4112)+JVS(49174)& - &*UV(4114)+JVS(49175)*UV(4115)+JVS(49176)*UV(4116)+JVS(49177)*UV(4117)+JVS(49178)*UV(4118)+JVS(49179)& - &*UV(4119)+JVS(49180)*UV(4120)+JVS(49181)*UV(4121)+JVS(49182)*UV(4123)+JVS(49183)*UV(4124)+JVS(49184)& - &*UV(4126)+JVS(49185)*UV(4127)+JVS(49186)*UV(4128)+JVS(49187)*UV(4129)+JVS(49188)*UV(4130)+JVS(49189)& - &*UV(4131)+JVS(49190)*UV(4132)+JVS(49191)*UV(4133)+JVS(49192)*UV(4134)+JVS(49193)*UV(4135)+JVS(49194)& - &*UV(4136)+JVS(49195)*UV(4137)+JVS(49196)*UV(4138)+JVS(49197)*UV(4139)+JVS(49198)*UV(4140)+JVS(49199)& - &*UV(4141)+JVS(49200)*UV(4142)+JVS(49201)*UV(4143)+JVS(49202)*UV(4144)+JVS(49203)*UV(4145)+JVS(49204)& - &*UV(4146)+JVS(49205)*UV(4147)+JVS(49206)*UV(4148)+JVS(49207)*UV(4149)+JVS(49208)*UV(4150)+JVS(49209)& - &*UV(4151)+JVS(49211)*UV(4153)+JVS(49212)*UV(4154)+JVS(49213)*UV(4155)+JVS(49214)*UV(4156)+JVS(49215)& - &*UV(4157)+JVS(49216)*UV(4158)+JVS(49217)*UV(4159)+JVS(49218)*UV(4160)+JVS(49219)*UV(4161)+JVS(49220)& - &*UV(4162)+JVS(49221)*UV(4163)+JVS(49222)*UV(4165)+JVS(49223)*UV(4166)+JVS(49224)*UV(4167)+JVS(49225)& - &*UV(4168)+JVS(49226)*UV(4169)+JVS(49227)*UV(4170)+JVS(49228)*UV(4171)+JVS(49229)*UV(4172)+JVS(49230)& - &*UV(4173)+JVS(49231)*UV(4174)+JVS(49232)*UV(4176)+JVS(49233)*UV(4180)+JVS(49234)*UV(4181)+JVS(49235)& - &*UV(4182)+JVS(49236)*UV(4184)+JVS(49237)*UV(4185)+JVS(49238)*UV(4187)+JVS(49239)*UV(4188)+JVS(49240)& - &*UV(4189)+JVS(49241)*UV(4190)+JVS(49242)*UV(4191)+JVS(49243)*UV(4192)+JVS(49244)*UV(4193)+JVS(49245)& - &*UV(4194)+JVS(49246)*UV(4195)+JVS(49247)*UV(4196)+JVS(49248)*UV(4197)+JVS(49249)*UV(4198)+JVS(49250)& - &*UV(4200)+JVS(49251)*UV(4201)+JVS(49252)*UV(4202)+JVS(49253)*UV(4203)+JVS(49254)*UV(4204)+JVS(49255)& - &*UV(4205)+JVS(49256)*UV(4206)+JVS(49257)*UV(4207)+JVS(49258)*UV(4208)+JVS(49259)*UV(4209)+JVS(49260)& - &*UV(4210)+JVS(49261)*UV(4211)+JVS(49262)*UV(4212)+JVS(49263)*UV(4213)+JVS(49264)*UV(4214)+JVS(49265)& - &*UV(4215)+JVS(49266)*UV(4216)+JVS(49267)*UV(4217)+JVS(49268)*UV(4218)+JVS(49269)*UV(4219)+JVS(49270)& - &*UV(4220)+JVS(49271)*UV(4221)+JVS(49272)*UV(4222)+JVS(49273)*UV(4225)+JVS(49274)*UV(4226)+JVS(49275)& - &*UV(4228)+JVS(49276)*UV(4229)+JVS(49277)*UV(4230)+JVS(49278)*UV(4232)+JVS(49279)*UV(4234)+JVS(49280)& - &*UV(4235)+JVS(49281)*UV(4236)+JVS(49282)*UV(4237)+JVS(49283)*UV(4238)+JVS(49284)*UV(4240)+JVS(49285)& - &*UV(4241)+JVS(49286)*UV(4242)+JVS(49287)*UV(4243)+JVS(49288)*UV(4244)+JVS(49289)*UV(4245)+JVS(49290)& - &*UV(4246)+JVS(49291)*UV(4247)+JVS(49292)*UV(4249)+JVS(49293)*UV(4250)+JVS(49294)*UV(4251)+JVS(49295)& - &*UV(4252)+JVS(49296)*UV(4253)+JVS(49297)*UV(4254)+JVS(49298)*UV(4255)+JVS(49299)*UV(4256)+JVS(49300)& - &*UV(4257)+JVS(49301)*UV(4258)+JVS(49302)*UV(4259)+JVS(49303)*UV(4260)+JVS(49304)*UV(4262)+JVS(49305)& - &*UV(4263)+JVS(49306)*UV(4264)+JVS(49307)*UV(4265)+JVS(49308)*UV(4266)+JVS(49309)*UV(4267)+JVS(49310)& - &*UV(4268)+JVS(49311)*UV(4269)+JVS(49312)*UV(4270)+JVS(49313)*UV(4271)+JVS(49314)*UV(4273)+JVS(49315)& - &*UV(4274)+JVS(49316)*UV(4275)+JVS(49317)*UV(4276)+JVS(49318)*UV(4277)+JVS(49319)*UV(4280)+JVS(49320)& - &*UV(4281)+JVS(49321)*UV(4282)+JVS(49322)*UV(4283)+JVS(49323)*UV(4284)+JVS(49324)*UV(4285)+JVS(49325)& - &*UV(4286)+JVS(49326)*UV(4287)+JVS(49327)*UV(4288)+JVS(49328)*UV(4289)+JVS(49329)*UV(4290)+JVS(49330)& - &*UV(4291)+JVS(49331)*UV(4292)+JVS(49332)*UV(4293)+JVS(49333)*UV(4295)+JVS(49334)*UV(4296)+JVS(49335)& - &*UV(4297)+JVS(49336)*UV(4298)+JVS(49337)*UV(4299)+JVS(49338)*UV(4301)+JVS(49339)*UV(4302)+JVS(49340)& - &*UV(4303)+JVS(49341)*UV(4304)+JVS(49342)*UV(4305)+JVS(49343)*UV(4306)+JVS(49344)*UV(4307)+JVS(49345)& - &*UV(4308)+JVS(49346)*UV(4309)+JVS(49347)*UV(4310)+JVS(49348)*UV(4311)+JVS(49349)*UV(4312)+JVS(49350)& - &*UV(4314)+JVS(49351)*UV(4315)+JVS(49352)*UV(4316)+JVS(49353)*UV(4317)+JVS(49354)*UV(4318)+JVS(49355)& - &*UV(4319)+JVS(49356)*UV(4320)+JVS(49357)*UV(4321)+JVS(49359)*UV(4323)+JVS(49360)*UV(4324)+JVS(49362)& - &*UV(4327)+JVS(49363)*UV(4329)+JVS(49364)*UV(4330)+JVS(49365)*UV(4331)+JVS(49366)*UV(4334)+JVS(49367)& - &*UV(4335)+JVS(49368)*UV(4336)+JVS(49369)*UV(4337)+JVS(49370)*UV(4338)+JVS(49371)*UV(4339)+JVS(49372)& - &*UV(4340)+JVS(49373)*UV(4341)+JVS(49374)*UV(4342)+JVS(49375)*UV(4343)+JVS(49376)*UV(4344)+JVS(49377)& - &*UV(4345)+JVS(49378)*UV(4346)+JVS(49379)*UV(4347)+JVS(49380)*UV(4348)+JVS(49381)*UV(4349)+JVS(49382)& - &*UV(4350)+JVS(49383)*UV(4351)+JVS(49384)*UV(4352)+JVS(49385)*UV(4353)+JVS(49386)*UV(4354)+JVS(49387)& - &*UV(4355)+JVS(49388)*UV(4356)+JVS(49389)*UV(4357)+JVS(49390)*UV(4358)+JVS(49391)*UV(4359)+JVS(49392)& - &*UV(4360)+JVS(49393)*UV(4361)+JVS(49394)*UV(4363)+JVS(49395)*UV(4364)+JVS(49396)*UV(4365)+JVS(49397)& - &*UV(4367)+JVS(49398)*UV(4368)+JVS(49399)*UV(4369)+JVS(49400)*UV(4370)+JVS(49401)*UV(4371)+JVS(49402)& - &*UV(4372)+JVS(49404)*UV(4374)+JVS(49405)*UV(4375)+JVS(49406)*UV(4376)+JVS(49407)*UV(4377)+JVS(49408)& - &*UV(4378)+JVS(49410)*UV(4380)+JVS(49411)*UV(4381)+JVS(49412)*UV(4382)+JVS(49413)*UV(4384)+JVS(49414)& - &*UV(4385)+JVS(49415)*UV(4387)+JVS(49416)*UV(4389)+JVS(49417)*UV(4390)+JVS(49418)*UV(4394)+JVS(49421)& - &*UV(4399)+JVS(49422)*UV(4400)+JVS(49423)*UV(4402)+JVS(49424)*UV(4404)+JVS(49425)*UV(4405)+JVS(49426)& - &*UV(4406)+JVS(49427)*UV(4407)+JVS(49428)*UV(4408)+JVS(49429)*UV(4409)+JVS(49430)*UV(4410)+JVS(49431)& - &*UV(4411)+JVS(49432)*UV(4412)+JVS(49433)*UV(4413)+JVS(49434)*UV(4414)+JVS(49435)*UV(4415)+JVS(49436)& - &*UV(4416)+JVS(49437)*UV(4417)+JVS(49438)*UV(4418)+JVS(49439)*UV(4419)+JVS(49440)*UV(4421)+JVS(49441)& - &*UV(4422)+JVS(49442)*UV(4423)+JVS(49443)*UV(4424)+JVS(49444)*UV(4425)+JVS(49445)*UV(4426)+JVS(49446)& - &*UV(4427)+JVS(49447)*UV(4428)+JVS(49448)*UV(4429)+JVS(49449)*UV(4430)+JVS(49450)*UV(4431)+JVS(49451)& - &*UV(4432)+JVS(49452)*UV(4433)+JVS(49453)*UV(4434)+JVS(49454)*UV(4435)+JVS(49455)*UV(4436)+JVS(49456)& - &*UV(4437)+JVS(49457)*UV(4438)+JVS(49458)*UV(4439)+JVS(49459)*UV(4440)+JVS(49460)*UV(4441)+JVS(49461)& - &*UV(4442)+JVS(49462)*UV(4443)+JVS(49463)*UV(4444)+JVS(49464)*UV(4445)+JVS(49465)*UV(4446)+JVS(49466)& - &*UV(4447)+JVS(49468)*UV(4450)+JVS(49469)*UV(4451)+JVS(49470)*UV(4452)+JVS(49471)*UV(4453)+JVS(49472)& - &*UV(4454)+JVS(49473)*UV(4455)+JVS(49474)*UV(4456)+JVS(49475)*UV(4457)+JVS(49476)*UV(4458)+JVS(49477)& - &*UV(4459)+JVS(49478)*UV(4460)+JVS(49479)*UV(4461)+JVS(49480)*UV(4463)+JVS(49481)*UV(4464)+JVS(49482)& - &*UV(4465)+JVS(49483)*UV(4466)+JVS(49484)*UV(4467)+JVS(49485)*UV(4468)+JVS(49486)*UV(4469)+JVS(49487)& - &*UV(4470)+JVS(49488)*UV(4471)+JVS(49489)*UV(4472)+JVS(49490)*UV(4473)+JVS(49492)*UV(4476)+JVS(49493)& - &*UV(4477)+JVS(49494)*UV(4478)+JVS(49495)*UV(4479)+JVS(49496)*UV(4480)+JVS(49497)*UV(4481)+JVS(49498)& - &*UV(4482)+JVS(49499)*UV(4483)+JVS(49500)*UV(4484)+JVS(49501)*UV(4485)+JVS(49502)*UV(4486)+JVS(49503)& - &*UV(4487)+JVS(49505)*UV(4489)+JVS(49507)*UV(4494)+JVS(49508)*UV(4495)+JVS(49509)*UV(4496)+JVS(49510)& - &*UV(4497)+JVS(49511)*UV(4498)+JVS(49512)*UV(4499)+JVS(49513)*UV(4500)+JVS(49514)*UV(4502)+JVS(49515)& - &*UV(4503)+JVS(49516)*UV(4504)+JVS(49518)*UV(4506)+JVS(49520)*UV(4509)+JVS(49521)*UV(4510)+JVS(49522)& - &*UV(4511)+JVS(49524)*UV(4513)+JVS(49525)*UV(4514)+JVS(49526)*UV(4515)+JVS(49527)*UV(4516)+JVS(49528)& - &*UV(4517)+JVS(49529)*UV(4518)+JVS(49530)*UV(4519)+JVS(49531)*UV(4520)+JVS(49532)*UV(4521)+JVS(49533)& - &*UV(4522)+JVS(49534)*UV(4523)+JVS(49535)*UV(4525)+JVS(49536)*UV(4526)+JVS(49537)*UV(4529)+JVS(49538)& - &*UV(4530)+JVS(49539)*UV(4531)+JVS(49540)*UV(4532)+JVS(49542)*UV(4535)+JVS(49543)*UV(4536)+JVS(49544)& - &*UV(4538)+JVS(49545)*UV(4539)+JVS(49547)*UV(4542)+JVS(49548)*UV(4543)+JVS(49549)*UV(4544)+JVS(49550)& - &*UV(4545)+JVS(49551)*UV(4546)+JVS(49552)*UV(4548)+JVS(49553)*UV(4549)+JVS(49554)*UV(4550)+JVS(49555)& - &*UV(4551)+JVS(49556)*UV(4552)+JVS(49557)*UV(4553)+JVS(49558)*UV(4554)+JVS(49560)*UV(4556)+JVS(49561)& - &*UV(4557)+JVS(49562)*UV(4558)+JVS(49563)*UV(4560)+JVS(49564)*UV(4561)+JVS(49565)*UV(4562)+JVS(49566)& - &*UV(4563)+JVS(49567)*UV(4565)+JVS(49568)*UV(4566)+JVS(49569)*UV(4567)+JVS(49570)*UV(4568)+JVS(49571)& - &*UV(4571)+JVS(49572)*UV(4572)+JVS(49573)*UV(4573)+JVS(49574)*UV(4574)+JVS(49575)*UV(4575)+JVS(49577)& - &*UV(4577)+JVS(49578)*UV(4578)+JVS(49579)*UV(4579)+JVS(49580)*UV(4580)+JVS(49581)*UV(4581)+JVS(49582)& - &*UV(4582)+JVS(49583)*UV(4583)+JVS(49584)*UV(4584)+JVS(49585)*UV(4585)+JVS(49586)*UV(4586)+JVS(49587)& - &*UV(4587)+JVS(49588)*UV(4589)+JVS(49589)*UV(4590)+JVS(49590)*UV(4591)+JVS(49591)*UV(4592)+JVS(49592)& - &*UV(4593)+JVS(49593)*UV(4594)+JVS(49594)*UV(4595)+JVS(49595)*UV(4596)+JVS(49596)*UV(4597)+JVS(49597)& - &*UV(4598)+JVS(49598)*UV(4599)+JVS(49603)*UV(4607)+JVS(49604)*UV(4608)+JVS(49605)*UV(4609)+JVS(49606)& - &*UV(4610)+JVS(49607)*UV(4611)+JVS(49608)*UV(4612)+JVS(49609)*UV(4613)+JVS(49610)*UV(4614)+JVS(49611)& - &*UV(4615)+JVS(49612)*UV(4616)+JVS(49613)*UV(4617)+JVS(49615)*UV(4620)+JVS(49616)*UV(4621)+JVS(49617)& - &*UV(4622)+JVS(49618)*UV(4623)+JVS(49619)*UV(4624)+JVS(49620)*UV(4625)+JVS(49621)*UV(4626)+JVS(49622)& - &*UV(4627)+JVS(49623)*UV(4628)+JVS(49624)*UV(4629)+JVS(49625)*UV(4631)+JVS(49626)*UV(4632)+JVS(49627)& - &*UV(4633)+JVS(49628)*UV(4634)+JVS(49629)*UV(4635)+JVS(49630)*UV(4636)+JVS(49632)*UV(4638)+JVS(49633)& - &*UV(4639)+JVS(49634)*UV(4640)+JVS(49635)*UV(4641)+JVS(49636)*UV(4642)+JVS(49637)*UV(4643)+JVS(49638)& - &*UV(4644)+JVS(49639)*UV(4645)+JVS(49640)*UV(4646)+JVS(49641)*UV(4647)+JVS(49642)*UV(4648)+JVS(49643)& - &*UV(4649)+JVS(49645)*UV(4652)+JVS(49646)*UV(4653)+JVS(49647)*UV(4654)+JVS(49648)*UV(4655)+JVS(49649)& - &*UV(4656)+JVS(49650)*UV(4657)+JVS(49651)*UV(4658)+JVS(49652)*UV(4659)+JVS(49653)*UV(4660)+JVS(49654)& - &*UV(4661)+JVS(49655)*UV(4662)+JVS(49656)*UV(4663)+JVS(49657)*UV(4664)+JVS(49658)*UV(4665)+JVS(49659)& - &*UV(4666)+JVS(49660)*UV(4667)+JVS(49661)*UV(4668)+JVS(49662)*UV(4669)+JVS(49663)*UV(4670)+JVS(49664)& - &*UV(4671)+JVS(49665)*UV(4672)+JVS(49666)*UV(4673)+JVS(49667)*UV(4674)+JVS(49668)*UV(4675)+JVS(49669)& - &*UV(4676)+JVS(49670)*UV(4677)+JVS(49671)*UV(4678)+JVS(49672)*UV(4679)+JVS(49673)*UV(4680)+JVS(49674)& - &*UV(4681)+JVS(49675)*UV(4682)+JVS(49676)*UV(4683)+JVS(49677)*UV(4684)+JVS(49678)*UV(4685)+JVS(49679)& - &*UV(4686)+JVS(49680)*UV(4687)+JVS(49681)*UV(4688)+JVS(49682)*UV(4689)+JVS(49683)*UV(4690)+JVS(49684)& - &*UV(4691)+JVS(49685)*UV(4692)+JVS(49686)*UV(4695)+JVS(49687)*UV(4696)+JVS(49688)*UV(4697)+JVS(49689)& - &*UV(4698)+JVS(49690)*UV(4699)+JVS(49691)*UV(4700)+JVS(49692)*UV(4701)+JVS(49693)*UV(4702)+JVS(49694)& - &*UV(4703)+JVS(49695)*UV(4704)+JVS(49696)*UV(4705)+JVS(49697)*UV(4706)+JVS(49698)*UV(4707)+JVS(49699)& - &*UV(4709)+JVS(49700)*UV(4711)+JVS(49701)*UV(4712)+JVS(49702)*UV(4713)+JVS(49703)*UV(4714)+JVS(49704)& - &*UV(4715)+JVS(49705)*UV(4716)+JVS(49707)*UV(4718)+JVS(49708)*UV(4719)+JVS(49709)*UV(4720)+JVS(49710)& - &*UV(4722)+JVS(49711)*UV(4723)+JVS(49712)*UV(4724)+JVS(49713)*UV(4725)+JVS(49714)*UV(4726)+JVS(49715)& - &*UV(4727)+JVS(49717)*UV(4730)+JVS(49718)*UV(4731)+JVS(49719)*UV(4732)+JVS(49720)*UV(4733)+JVS(49721)& - &*UV(4734)+JVS(49722)*UV(4735)+JVS(49724)*UV(4738)+JVS(49725)*UV(4739)+JVS(49726)*UV(4740)+JVS(49727)& - &*UV(4741)+JVS(49728)*UV(4742)+JVS(49730)*UV(4744)+JVS(49731)*UV(4745)+JVS(49732)*UV(4746)+JVS(49733)& - &*UV(4748)+JVS(49734)*UV(4750)+JVS(49735)*UV(4751)+JVS(49736)*UV(4752)+JVS(49737)*UV(4753)+JVS(49738)& - &*UV(4754)+JVS(49739)*UV(4755)+JVS(49740)*UV(4756)+JVS(49741)*UV(4757)+JVS(49742)*UV(4758)+JVS(49743)& - &*UV(4759)+JVS(49744)*UV(4760)+JVS(49745)*UV(4761)+JVS(49746)*UV(4762)+JVS(49747)*UV(4763)+JVS(49748)& - &*UV(4764)+JVS(49749)*UV(4765)+JVS(49750)*UV(4766)+JVS(49751)*UV(4767)+JVS(49752)*UV(4768)+JVS(49753)& - &*UV(4769)+JVS(49754)*UV(4770)+JVS(49755)*UV(4771)+JVS(49756)*UV(4772)+JVS(49757)*UV(4773)+JVS(49758)& - &*UV(4774)+JVS(49760)*UV(4776)+JVS(49761)*UV(4777)+JVS(49762)*UV(4778)+JVS(49763)*UV(4779)+JVS(49764)& - &*UV(4780)+JVS(49765)*UV(4781)+JVS(49766)*UV(4782)+JVS(49767)*UV(4783)+JVS(49768)*UV(4784)+JVS(49769)& - &*UV(4785)+JVS(49770)*UV(4786)+JVS(49771)*UV(4787)+JVS(49772)*UV(4788)+JVS(49773)*UV(4789)+JVS(49774)& - &*UV(4790)+JVS(49775)*UV(4791)+JVS(49776)*UV(4792)+JVS(49779)*UV(4795)+JVS(49780)*UV(4797)+JVS(49781)& - &*UV(4798)+JVS(49784)*UV(4802)+JVS(49785)*UV(4803)+JVS(49786)*UV(4804)+JVS(49788)*UV(4806)+JVS(49789)& - &*UV(4807)+JVS(49790)*UV(4808)+JVS(49791)*UV(4809)+JVS(49792)*UV(4810)+JVS(49793)*UV(4811)+JVS(49794)& - &*UV(4812)+JVS(49795)*UV(4813)+JVS(49796)*UV(4814)+JVS(49798)*UV(4816)+JVS(49799)*UV(4817)+JVS(49800)& - &*UV(4818)+JVS(49801)*UV(4819)+JVS(49802)*UV(4820)+JVS(49803)*UV(4821)+JVS(49804)*UV(4822)+JVS(49805)& - &*UV(4823)+JVS(49806)*UV(4824)+JVS(49807)*UV(4825)+JVS(49808)*UV(4826)+JVS(49809)*UV(4827)+JVS(49810)& - &*UV(4828)+JVS(49811)*UV(4829)+JVS(49812)*UV(4830)+JVS(49813)*UV(4831)+JVS(49814)*UV(4832)+JVS(49815)& - &*UV(4833)+JVS(49817)*UV(4835)+JVS(49818)*UV(4836)+JVS(49819)*UV(4837)+JVS(49820)*UV(4838)+JVS(49821)& - &*UV(4839)+JVS(49823)*UV(4841)+JVS(49824)*UV(4843)+JVS(49825)*UV(4844)+JVS(49826)*UV(4845)+JVS(49827)& - &*UV(4846)+JVS(49828)*UV(4847)+JVS(49829)*UV(4848)+JVS(49830)*UV(4849)+JVS(49831)*UV(4850)+JVS(49833)& - &*UV(4852)+JVS(49834)*UV(4853)+JVS(49835)*UV(4854)+JVS(49836)*UV(4855)+JVS(49837)*UV(4856)+JVS(49838)& - &*UV(4857)+JVS(49839)*UV(4858)+JVS(49840)*UV(4859)+JVS(49841)*UV(4860)+JVS(49842)*UV(4861)+JVS(49843)& - &*UV(4862)+JVS(49844)*UV(4863)+JVS(49845)*UV(4864)+JVS(49847)*UV(4866)+JVS(49848)*UV(4867)+JVS(49849)& - &*UV(4868)+JVS(49850)*UV(4869)+JVS(49851)*UV(4870)+JVS(49852)*UV(4871)+JVS(49854)*UV(4874)+JVS(49855)& - &*UV(4875)+JVS(49856)*UV(4876)+JVS(49857)*UV(4877)+JVS(49858)*UV(4878)+JVS(49859)*UV(4879)+JVS(49860)& - &*UV(4880)+JVS(49861)*UV(4881)+JVS(49864)*UV(4884)+JVS(49865)*UV(4885)+JVS(49866)*UV(4886)+JVS(49867)& - &*UV(4887)+JVS(49868)*UV(4888)+JVS(49869)*UV(4889)+JVS(49870)*UV(4890)+JVS(49871)*UV(4891)+JVS(49872)& - &*UV(4892)+JVS(49873)*UV(4893)+JVS(49874)*UV(4894)+JVS(49877)*UV(4897)+JVS(49878)*UV(4898)+JVS(49879)& - &*UV(4899)+JVS(49880)*UV(4900)+JVS(49881)*UV(4901)+JVS(49882)*UV(4903)+JVS(49883)*UV(4904)+JVS(49884)& - &*UV(4905)+JVS(49885)*UV(4906)+JVS(49887)*UV(4908)+JVS(49888)*UV(4909)+JVS(49889)*UV(4910)+JVS(49890)& - &*UV(4911)+JVS(49891)*UV(4912)+JVS(49892)*UV(4913)+JVS(49894)*UV(4915)+JVS(49895)*UV(4916)+JVS(49896)& - &*UV(4917)+JVS(49897)*UV(4919)+JVS(49898)*UV(4920)+JVS(49899)*UV(4921)+JVS(49900)*UV(4922)+JVS(49901)& - &*UV(4923)+JVS(49902)*UV(4924)+JVS(49903)*UV(4925)+JVS(49904)*UV(4926)+JVS(49906)*UV(4928)+JVS(49907)& - &*UV(4929)+JVS(49908)*UV(4930)+JVS(49909)*UV(4932)+JVS(49911)*UV(4934)+JVS(49912)*UV(4935)+JVS(49913)& - &*UV(4936)+JVS(49915)*UV(4940)+JVS(49916)*UV(4941)+JVS(49917)*UV(4942)+JVS(49918)*UV(4943)+JVS(49919)& - &*UV(4944)+JVS(49920)*UV(4945)+JVS(49921)*UV(4946)+JVS(49922)*UV(4947)+JVS(49923)*UV(4948)+JVS(49924)& - &*UV(4949)+JVS(49928)*UV(4953)+JVS(49929)*UV(4954)+JVS(49930)*UV(4955)+JVS(49931)*UV(4956)+JVS(49932)& - &*UV(4957)+JVS(49933)*UV(4958)+JVS(49934)*UV(4959)+JVS(49935)*UV(4960)+JVS(49937)*UV(4962)+JVS(49938)& - &*UV(4963)+JVS(49940)*UV(4965)+JVS(49941)*UV(4966)+JVS(49942)*UV(4967)+JVS(49943)*UV(4968)+JVS(49944)& - &*UV(4969)+JVS(49946)*UV(4971)+JVS(49947)*UV(4972)+JVS(49948)*UV(4974)+JVS(49951)*UV(4977)+JVS(49953)& - &*UV(4979)+JVS(49954)*UV(4980)+JVS(49955)*UV(4981)+JVS(49956)*UV(4982)+JVS(49957)*UV(4984)+JVS(49958)& - &*UV(4985)+JVS(49959)*UV(4986)+JVS(49960)*UV(4987)+JVS(49962)*UV(4989)+JVS(49963)*UV(4990)+JVS(49964)& - &*UV(4991)+JVS(49965)*UV(4992)+JVS(49966)*UV(4993)+JVS(49967)*UV(4994)+JVS(49968)*UV(4995)+JVS(49970)& - &*UV(4997)+JVS(49971)*UV(4998)+JVS(49972)*UV(4999)+JVS(49973)*UV(5001)+JVS(49975)*UV(5003)+JVS(49976)& - &*UV(5004)+JVS(49977)*UV(5005)+JVS(49978)*UV(5006)+JVS(49979)*UV(5007)+JVS(49980)*UV(5008)+JVS(49983)& - &*UV(5011)+JVS(49985)*UV(5013)+JVS(49986)*UV(5014)+JVS(49987)*UV(5015)+JVS(49988)*UV(5016)+JVS(49989)& - &*UV(5017)+JVS(49991)*UV(5019)+JVS(49992)*UV(5020)+JVS(49993)*UV(5021)+JVS(49994)*UV(5022)+JVS(49996)& - &*UV(5025)+JVS(49997)*UV(5027)+JVS(49998)*UV(5028)+JVS(49999)*UV(5029)+JVS(50002)*UV(5032)+JVS(50003)& - &*UV(5033)+JVS(50004)*UV(5034)+JVS(50005)*UV(5035)+JVS(50006)*UV(5036)+JVS(50008)*UV(5038)+JVS(50009)& - &*UV(5039)+JVS(50010)*UV(5040)+JVS(50011)*UV(5041)+JVS(50013)*UV(5043)+JVS(50014)*UV(5044)+JVS(50015)& - &*UV(5045)+JVS(50016)*UV(5047)+JVS(50017)*UV(5048)+JVS(50021)*UV(5052)+JVS(50022)*UV(5053)+JVS(50023)& - &*UV(5054)+JVS(50024)*UV(5056)+JVS(50026)*UV(5059)+JVS(50027)*UV(5060)+JVS(50028)*UV(5061)+JVS(50029)& - &*UV(5062)+JVS(50032)*UV(5065)+JVS(50036)*UV(5069)+JVS(50037)*UV(5070)+JVS(50040)*UV(5073)+JVS(50041)& - &*UV(5074)+JVS(50042)*UV(5075)+JVS(50044)*UV(5077)+JVS(50045)*UV(5078)+JVS(50046)*UV(5079)+JVS(50047)& - &*UV(5081)+JVS(50048)*UV(5082)+JVS(50050)*UV(5084)+JVS(50054)*UV(5088)+JVS(50056)*UV(5090)+JVS(50057)& - &*UV(5091)+JVS(50058)*UV(5092)+JVS(50062)*UV(5096)+JVS(50063)*UV(5097)+JVS(50064)*UV(5098)+JVS(50065)& - &*UV(5099)+JVS(50066)*UV(5100)+JVS(50067)*UV(5101)+JVS(50068)*UV(5102)+JVS(50070)*UV(5104)+JVS(50071)& - &*UV(5106)+JVS(50072)*UV(5107)+JVS(50073)*UV(5108)+JVS(50074)*UV(5109)+JVS(50076)*UV(5111)+JVS(50077)& - &*UV(5112)+JVS(50079)*UV(5114)+JVS(50081)*UV(5116)+JVS(50082)*UV(5117)+JVS(50083)*UV(5118)+JVS(50084)& - &*UV(5119)+JVS(50085)*UV(5120)+JVS(50086)*UV(5121)+JVS(50087)*UV(5122)+JVS(50090)*UV(5125)+JVS(50092)& - &*UV(5127)+JVS(50093)*UV(5128)+JVS(50094)*UV(5129)+JVS(50095)*UV(5130)+JVS(50096)*UV(5131)+JVS(50097)& - &*UV(5132)+JVS(50098)*UV(5133)+JVS(50099)*UV(5134)+JVS(50100)*UV(5135)+JVS(50101)*UV(5136)+JVS(50102)& - &*UV(5137)+JVS(50103)*UV(5138)+JVS(50106)*UV(5142)+JVS(50108)*UV(5144)+JVS(50109)*UV(5145)+JVS(50110)& - &*UV(5146)+JVS(50111)*UV(5147)+JVS(50112)*UV(5148)+JVS(50113)*UV(5149)+JVS(50114)*UV(5150)+JVS(50115)& - &*UV(5151)+JVS(50116)*UV(5152)+JVS(50118)*UV(5154)+JVS(50119)*UV(5155)+JVS(50120)*UV(5156)+JVS(50122)& - &*UV(5158)+JVS(50124)*UV(5161)+JVS(50126)*UV(5163)+JVS(50127)*UV(5164)+JVS(50130)*UV(5167)+JVS(50131)& - &*UV(5168)+JVS(50133)*UV(5170)+JVS(50134)*UV(5171)+JVS(50135)*UV(5172)+JVS(50136)*UV(5173)+JVS(50137)& - &*UV(5174)+JVS(50142)*UV(5179)+JVS(50143)*UV(5180)+JVS(50144)*UV(5181)+JVS(50145)*UV(5183)+JVS(50146)& - &*UV(5185)+JVS(50147)*UV(5186)+JVS(50152)*UV(5192)+JVS(50154)*UV(5195)+JVS(50155)*UV(5196)+JVS(50156)& - &*UV(5197)+JVS(50157)*UV(5198)+JVS(50159)*UV(5201)+JVS(50160)*UV(5202)+JVS(50162)*UV(5204)+JVS(50164)& - &*UV(5206)+JVS(50166)*UV(5208)+JVS(50172)*UV(5214)+JVS(50174)*UV(5216)+JVS(50175)*UV(5217)+JVS(50176)& - &*UV(5218)+JVS(50177)*UV(5219)+JVS(50179)*UV(5221)+JVS(50181)*UV(5223)+JVS(50182)*UV(5224)+JVS(50183)& - &*UV(5225)+JVS(50186)*UV(5228)+JVS(50187)*UV(5229)+JVS(50190)*UV(5232)+JVS(50193)*UV(5235)+JVS(50194)& - &*UV(5236)+JVS(50195)*UV(5237)+JVS(50197)*UV(5239)+JVS(50199)*UV(5241)+JVS(50201)*UV(5243)+JVS(50202)& - &*UV(5244)+JVS(50203)*UV(5245)+JVS(50204)*UV(5246)+JVS(50205)*UV(5247)+JVS(50208)*UV(5250)+JVS(50210)& - &*UV(5252)+JVS(50211)*UV(5253)+JVS(50213)*UV(5255)+JVS(50214)*UV(5256)+JVS(50216)*UV(5258) - JUV(5254) = JVS(50217)*UV(3568)+JVS(50218)*UV(4213)+JVS(50219)*UV(4247)+JVS(50220)*UV(4250)+JVS(50221)*UV(4258)& - &+JVS(50222)*UV(4264)+JVS(50223)*UV(4282)+JVS(50224)*UV(4286)+JVS(50225)*UV(4302)+JVS(50226)*UV(4320)& - &+JVS(50227)*UV(4526)+JVS(50228)*UV(4544)+JVS(50229)*UV(4551)+JVS(50230)*UV(4556)+JVS(50233)*UV(4621)& - &+JVS(50234)*UV(4668)+JVS(50235)*UV(4677)+JVS(50236)*UV(4678)+JVS(50237)*UV(4691)+JVS(50238)*UV(4741)& - &+JVS(50239)*UV(4757)+JVS(50240)*UV(4776)+JVS(50242)*UV(4819)+JVS(50243)*UV(4824)+JVS(50244)*UV(4828)& - &+JVS(50245)*UV(4838)+JVS(50246)*UV(4843)+JVS(50247)*UV(4868)+JVS(50248)*UV(4869)+JVS(50249)*UV(4906)& - &+JVS(50250)*UV(4908)+JVS(50251)*UV(4912)+JVS(50252)*UV(4919)+JVS(50253)*UV(4941)+JVS(50254)*UV(4943)& - &+JVS(50257)*UV(4956)+JVS(50258)*UV(4963)+JVS(50261)*UV(4997)+JVS(50262)*UV(4998)+JVS(50263)*UV(4999)& - &+JVS(50267)*UV(5040)+JVS(50268)*UV(5047)+JVS(50269)*UV(5048)+JVS(50277)*UV(5070)+JVS(50280)*UV(5092)& - &+JVS(50283)*UV(5102)+JVS(50290)*UV(5156)+JVS(50294)*UV(5170)+JVS(50308)*UV(5223)+JVS(50316)*UV(5250)& - &+JVS(50320)*UV(5254) - JUV(5255) = JVS(50325)*UV(5)+JVS(50326)*UV(11)+JVS(50327)*UV(181)+JVS(50328)*UV(198)+JVS(50329)*UV(208)+JVS(50330)& - &*UV(209)+JVS(50331)*UV(212)+JVS(50332)*UV(213)+JVS(50333)*UV(218)+JVS(50334)*UV(219)+JVS(50335)*UV(220)& - &+JVS(50336)*UV(223)+JVS(50337)*UV(225)+JVS(50338)*UV(226)+JVS(50339)*UV(228)+JVS(50340)*UV(229)+JVS(50341)& - &*UV(231)+JVS(50342)*UV(233)+JVS(50343)*UV(234)+JVS(50344)*UV(238)+JVS(50345)*UV(242)+JVS(50346)*UV(246)& - &+JVS(50347)*UV(247)+JVS(50348)*UV(248)+JVS(50349)*UV(249)+JVS(50350)*UV(250)+JVS(50351)*UV(256)+JVS(50352)& - &*UV(257)+JVS(50353)*UV(260)+JVS(50354)*UV(261)+JVS(50355)*UV(262)+JVS(50356)*UV(263)+JVS(50357)*UV(266)& - &+JVS(50358)*UV(267)+JVS(50359)*UV(268)+JVS(50360)*UV(269)+JVS(50361)*UV(273)+JVS(50362)*UV(274)+JVS(50363)& - &*UV(277)+JVS(50364)*UV(278)+JVS(50365)*UV(279)+JVS(50366)*UV(281)+JVS(50367)*UV(283)+JVS(50368)*UV(284)& - &+JVS(50369)*UV(285)+JVS(50370)*UV(286)+JVS(50371)*UV(289)+JVS(50372)*UV(292)+JVS(50373)*UV(295)+JVS(50374)& - &*UV(296)+JVS(50375)*UV(299)+JVS(50376)*UV(302)+JVS(50377)*UV(303)+JVS(50378)*UV(304)+JVS(50379)*UV(305)& - &+JVS(50380)*UV(306)+JVS(50381)*UV(307)+JVS(50382)*UV(308)+JVS(50383)*UV(310)+JVS(50384)*UV(311)+JVS(50385)& - &*UV(312)+JVS(50386)*UV(313)+JVS(50387)*UV(314)+JVS(50388)*UV(316)+JVS(50389)*UV(317)+JVS(50390)*UV(319)& - &+JVS(50391)*UV(320)+JVS(50392)*UV(321)+JVS(50393)*UV(322)+JVS(50394)*UV(325)+JVS(50395)*UV(332)+JVS(50396)& - &*UV(333)+JVS(50397)*UV(334)+JVS(50398)*UV(335)+JVS(50399)*UV(336)+JVS(50400)*UV(338)+JVS(50401)*UV(339)& - &+JVS(50402)*UV(340)+JVS(50403)*UV(344)+JVS(50404)*UV(345)+JVS(50405)*UV(346)+JVS(50406)*UV(347)+JVS(50407)& - &*UV(348)+JVS(50408)*UV(349)+JVS(50409)*UV(350)+JVS(50410)*UV(352)+JVS(50411)*UV(353)+JVS(50412)*UV(354)& - &+JVS(50413)*UV(355)+JVS(50414)*UV(356)+JVS(50415)*UV(357)+JVS(50416)*UV(358)+JVS(50417)*UV(359)+JVS(50418)& - &*UV(361)+JVS(50419)*UV(365)+JVS(50420)*UV(366)+JVS(50421)*UV(368)+JVS(50422)*UV(369)+JVS(50423)*UV(371)& - &+JVS(50424)*UV(372)+JVS(50425)*UV(374)+JVS(50426)*UV(377)+JVS(50427)*UV(380)+JVS(50428)*UV(381)+JVS(50429)& - &*UV(382)+JVS(50430)*UV(383)+JVS(50431)*UV(385)+JVS(50432)*UV(390)+JVS(50433)*UV(391)+JVS(50434)*UV(392)& - &+JVS(50435)*UV(394)+JVS(50436)*UV(395)+JVS(50437)*UV(396)+JVS(50438)*UV(399)+JVS(50439)*UV(400)+JVS(50440)& - &*UV(401)+JVS(50441)*UV(402)+JVS(50442)*UV(403)+JVS(50443)*UV(406)+JVS(50444)*UV(408)+JVS(50445)*UV(409)& - &+JVS(50446)*UV(410)+JVS(50447)*UV(411)+JVS(50448)*UV(412)+JVS(50449)*UV(413)+JVS(50450)*UV(415)+JVS(50451)& - &*UV(416)+JVS(50452)*UV(417)+JVS(50453)*UV(418)+JVS(50454)*UV(424)+JVS(50455)*UV(425)+JVS(50456)*UV(427)& - &+JVS(50457)*UV(428)+JVS(50458)*UV(429)+JVS(50459)*UV(430)+JVS(50460)*UV(431)+JVS(50461)*UV(432)+JVS(50462)& - &*UV(436)+JVS(50463)*UV(437)+JVS(50464)*UV(439)+JVS(50465)*UV(440)+JVS(50466)*UV(441)+JVS(50467)*UV(442)& - &+JVS(50468)*UV(444)+JVS(50469)*UV(446)+JVS(50470)*UV(451)+JVS(50471)*UV(452)+JVS(50472)*UV(453)+JVS(50473)& - &*UV(454)+JVS(50474)*UV(458)+JVS(50475)*UV(460)+JVS(50476)*UV(462)+JVS(50477)*UV(463)+JVS(50478)*UV(464)& - &+JVS(50479)*UV(465)+JVS(50480)*UV(466)+JVS(50481)*UV(467)+JVS(50482)*UV(468)+JVS(50483)*UV(469)+JVS(50484)& - &*UV(471)+JVS(50485)*UV(473)+JVS(50486)*UV(475)+JVS(50487)*UV(476)+JVS(50488)*UV(478)+JVS(50489)*UV(480)& - &+JVS(50490)*UV(481)+JVS(50491)*UV(482)+JVS(50492)*UV(485)+JVS(50493)*UV(486)+JVS(50494)*UV(487)+JVS(50495)& - &*UV(493)+JVS(50496)*UV(494)+JVS(50497)*UV(495)+JVS(50498)*UV(497)+JVS(50499)*UV(498)+JVS(50500)*UV(500)& - &+JVS(50501)*UV(501)+JVS(50502)*UV(502)+JVS(50503)*UV(504)+JVS(50504)*UV(505)+JVS(50505)*UV(509)+JVS(50506)& - &*UV(511)+JVS(50507)*UV(512)+JVS(50508)*UV(513)+JVS(50509)*UV(516)+JVS(50510)*UV(517)+JVS(50511)*UV(520)& - &+JVS(50512)*UV(523)+JVS(50513)*UV(524)+JVS(50514)*UV(525)+JVS(50515)*UV(526)+JVS(50516)*UV(527)+JVS(50517)& - &*UV(531)+JVS(50518)*UV(532)+JVS(50519)*UV(536)+JVS(50520)*UV(537)+JVS(50521)*UV(538)+JVS(50522)*UV(540)& - &+JVS(50523)*UV(546)+JVS(50524)*UV(549)+JVS(50525)*UV(551)+JVS(50526)*UV(552)+JVS(50527)*UV(554)+JVS(50528)& - &*UV(556)+JVS(50529)*UV(557)+JVS(50530)*UV(558)+JVS(50531)*UV(559)+JVS(50532)*UV(560)+JVS(50533)*UV(565)& - &+JVS(50534)*UV(567)+JVS(50535)*UV(568)+JVS(50536)*UV(569)+JVS(50537)*UV(572)+JVS(50538)*UV(576)+JVS(50539)& - &*UV(577)+JVS(50540)*UV(579)+JVS(50541)*UV(580)+JVS(50542)*UV(586)+JVS(50543)*UV(590)+JVS(50544)*UV(598)& - &+JVS(50545)*UV(599)+JVS(50546)*UV(603)+JVS(50547)*UV(608)+JVS(50548)*UV(614)+JVS(50549)*UV(615)+JVS(50550)& - &*UV(616)+JVS(50551)*UV(620)+JVS(50552)*UV(622)+JVS(50553)*UV(624)+JVS(50554)*UV(625)+JVS(50555)*UV(626)& - &+JVS(50556)*UV(627)+JVS(50557)*UV(628)+JVS(50558)*UV(633)+JVS(50559)*UV(634)+JVS(50560)*UV(636)+JVS(50561)& - &*UV(639)+JVS(50562)*UV(643)+JVS(50563)*UV(646)+JVS(50564)*UV(647)+JVS(50565)*UV(650)+JVS(50566)*UV(651)& - &+JVS(50567)*UV(657)+JVS(50568)*UV(659)+JVS(50569)*UV(661)+JVS(50570)*UV(663)+JVS(50571)*UV(664)+JVS(50572)& - &*UV(667)+JVS(50573)*UV(671)+JVS(50574)*UV(675)+JVS(50575)*UV(676)+JVS(50576)*UV(677)+JVS(50577)*UV(678)& - &+JVS(50578)*UV(680)+JVS(50579)*UV(681)+JVS(50580)*UV(683)+JVS(50581)*UV(684)+JVS(50582)*UV(685)+JVS(50583)& - &*UV(686)+JVS(50584)*UV(690)+JVS(50585)*UV(694)+JVS(50586)*UV(696)+JVS(50587)*UV(699)+JVS(50588)*UV(700)& - &+JVS(50589)*UV(701)+JVS(50590)*UV(705)+JVS(50591)*UV(706)+JVS(50592)*UV(707)+JVS(50593)*UV(711)+JVS(50594)& - &*UV(716)+JVS(50595)*UV(718)+JVS(50596)*UV(721)+JVS(50597)*UV(723)+JVS(50598)*UV(725)+JVS(50599)*UV(727)& - &+JVS(50600)*UV(730)+JVS(50601)*UV(732)+JVS(50602)*UV(733)+JVS(50603)*UV(738)+JVS(50604)*UV(742)+JVS(50605)& - &*UV(748)+JVS(50606)*UV(752)+JVS(50607)*UV(754)+JVS(50608)*UV(757)+JVS(50609)*UV(758)+JVS(50610)*UV(762)& - &+JVS(50611)*UV(764)+JVS(50612)*UV(765)+JVS(50613)*UV(767)+JVS(50614)*UV(768)+JVS(50615)*UV(772)+JVS(50616)& - &*UV(779)+JVS(50617)*UV(783)+JVS(50618)*UV(784)+JVS(50619)*UV(785)+JVS(50620)*UV(786)+JVS(50621)*UV(788)& - &+JVS(50622)*UV(789)+JVS(50623)*UV(792)+JVS(50624)*UV(793)+JVS(50625)*UV(796)+JVS(50626)*UV(799)+JVS(50627)& - &*UV(804)+JVS(50628)*UV(805)+JVS(50629)*UV(807)+JVS(50630)*UV(808)+JVS(50631)*UV(811)+JVS(50632)*UV(812)& - &+JVS(50633)*UV(813)+JVS(50634)*UV(821)+JVS(50635)*UV(823)+JVS(50636)*UV(827)+JVS(50637)*UV(839)+JVS(50638)& - &*UV(847)+JVS(50639)*UV(862)+JVS(50640)*UV(874)+JVS(50641)*UV(890)+JVS(50642)*UV(895)+JVS(50643)*UV(896)& - &+JVS(50644)*UV(898)+JVS(50645)*UV(903)+JVS(50646)*UV(906)+JVS(50647)*UV(911)+JVS(50648)*UV(925)+JVS(50649)& - &*UV(926)+JVS(50650)*UV(933)+JVS(50651)*UV(953)+JVS(50652)*UV(957)+JVS(50653)*UV(958)+JVS(50654)*UV(961)& - &+JVS(50656)*UV(990)+JVS(50657)*UV(1001)+JVS(50658)*UV(1013)+JVS(50659)*UV(1035)+JVS(50660)*UV(1036)& - &+JVS(50661)*UV(1037)+JVS(50662)*UV(1040)+JVS(50663)*UV(1050)+JVS(50664)*UV(1054)+JVS(50665)*UV(1056)& - &+JVS(50666)*UV(1068)+JVS(50667)*UV(1073)+JVS(50668)*UV(1084)+JVS(50669)*UV(1087)+JVS(50670)*UV(1097)& - &+JVS(50671)*UV(1111)+JVS(50672)*UV(1113)+JVS(50673)*UV(1120)+JVS(50674)*UV(1121)+JVS(50675)*UV(1124)& - &+JVS(50676)*UV(1133)+JVS(50677)*UV(1140)+JVS(50678)*UV(1163)+JVS(50679)*UV(1174)+JVS(50680)*UV(1175)& - &+JVS(50681)*UV(1179)+JVS(50682)*UV(1189)+JVS(50683)*UV(1194)+JVS(50684)*UV(1210)+JVS(50685)*UV(1229)& - &+JVS(50686)*UV(1231)+JVS(50687)*UV(1256)+JVS(50688)*UV(1257)+JVS(50690)*UV(1280)+JVS(50691)*UV(1297)& - &+JVS(50692)*UV(1316)+JVS(50693)*UV(1330)+JVS(50694)*UV(1343)+JVS(50695)*UV(1344)+JVS(50696)*UV(1354)& - &+JVS(50697)*UV(1356)+JVS(50698)*UV(1369)+JVS(50699)*UV(1384)+JVS(50700)*UV(1386)+JVS(50701)*UV(1389)& - &+JVS(50702)*UV(1394)+JVS(50703)*UV(1403)+JVS(50704)*UV(1405)+JVS(50705)*UV(1409)+JVS(50706)*UV(1425)& - &+JVS(50707)*UV(1432)+JVS(50708)*UV(1440)+JVS(50709)*UV(1442)+JVS(50710)*UV(1481)+JVS(50711)*UV(1483)& - &+JVS(50712)*UV(1489)+JVS(50713)*UV(1493)+JVS(50714)*UV(1513)+JVS(50715)*UV(1520)+JVS(50716)*UV(1521)& - &+JVS(50717)*UV(1548)+JVS(50718)*UV(1549)+JVS(50719)*UV(1552)+JVS(50720)*UV(1554)+JVS(50721)*UV(1555)& - &+JVS(50722)*UV(1557)+JVS(50723)*UV(1558)+JVS(50724)*UV(1559)+JVS(50725)*UV(1560)+JVS(50726)*UV(1561)& - &+JVS(50727)*UV(1562)+JVS(50728)*UV(1563)+JVS(50729)*UV(1564)+JVS(50730)*UV(1566)+JVS(50731)*UV(1567)& - &+JVS(50732)*UV(1568)+JVS(50733)*UV(1569)+JVS(50734)*UV(1570)+JVS(50735)*UV(1571)+JVS(50736)*UV(1572)& - &+JVS(50737)*UV(1575)+JVS(50738)*UV(1576)+JVS(50739)*UV(1577)+JVS(50740)*UV(1578)+JVS(50741)*UV(1582)& - &+JVS(50742)*UV(1584)+JVS(50743)*UV(1585)+JVS(50744)*UV(1586)+JVS(50745)*UV(1587)+JVS(50746)*UV(1588)& - &+JVS(50747)*UV(1589)+JVS(50748)*UV(1594)+JVS(50749)*UV(1596)+JVS(50750)*UV(1597)+JVS(50751)*UV(1598)& - &+JVS(50752)*UV(1599)+JVS(50753)*UV(1600)+JVS(50754)*UV(1601)+JVS(50755)*UV(1602)+JVS(50756)*UV(1606)& - &+JVS(50757)*UV(1609)+JVS(50758)*UV(1611)+JVS(50759)*UV(1612)+JVS(50760)*UV(1613)+JVS(50761)*UV(1615)& - &+JVS(50762)*UV(1616)+JVS(50763)*UV(1618)+JVS(50764)*UV(1619)+JVS(50765)*UV(1621)+JVS(50766)*UV(1622)& - &+JVS(50767)*UV(1623)+JVS(50768)*UV(1626)+JVS(50769)*UV(1627)+JVS(50770)*UV(1630)+JVS(50771)*UV(1632)& - &+JVS(50772)*UV(1633)+JVS(50773)*UV(1634)+JVS(50774)*UV(1636)+JVS(50775)*UV(1637)+JVS(50776)*UV(1639)& - &+JVS(50777)*UV(1642)+JVS(50778)*UV(1644)+JVS(50779)*UV(1646)+JVS(50780)*UV(1647)+JVS(50781)*UV(1653)& - &+JVS(50782)*UV(1655)+JVS(50783)*UV(1658)+JVS(50784)*UV(1659)+JVS(50785)*UV(1661)+JVS(50786)*UV(1662)& - &+JVS(50787)*UV(1663)+JVS(50788)*UV(1664)+JVS(50789)*UV(1665)+JVS(50790)*UV(1666)+JVS(50791)*UV(1667)& - &+JVS(50792)*UV(1668)+JVS(50793)*UV(1669)+JVS(50794)*UV(1670)+JVS(50795)*UV(1671)+JVS(50796)*UV(1672)& - &+JVS(50797)*UV(1673)+JVS(50798)*UV(1674)+JVS(50799)*UV(1675)+JVS(50800)*UV(1676)+JVS(50801)*UV(1678)& - &+JVS(50802)*UV(1679)+JVS(50803)*UV(1680)+JVS(50804)*UV(1681)+JVS(50805)*UV(1682)+JVS(50806)*UV(1683)& - &+JVS(50807)*UV(1685)+JVS(50808)*UV(1686)+JVS(50809)*UV(1687)+JVS(50810)*UV(1690)+JVS(50811)*UV(1692)& - &+JVS(50812)*UV(1693)+JVS(50813)*UV(1694)+JVS(50814)*UV(1695)+JVS(50815)*UV(1697)+JVS(50816)*UV(1698)& - &+JVS(50817)*UV(1700)+JVS(50818)*UV(1701)+JVS(50819)*UV(1702)+JVS(50820)*UV(1703)+JVS(50821)*UV(1704)& - &+JVS(50822)*UV(1705)+JVS(50823)*UV(1707)+JVS(50824)*UV(1711)+JVS(50825)*UV(1713)+JVS(50826)*UV(1715)& - &+JVS(50827)*UV(1716)+JVS(50828)*UV(1717)+JVS(50829)*UV(1718)+JVS(50830)*UV(1719)+JVS(50831)*UV(1720)& - &+JVS(50832)*UV(1721)+JVS(50833)*UV(1722)+JVS(50834)*UV(1725)+JVS(50835)*UV(1726)+JVS(50836)*UV(1727)& - &+JVS(50837)*UV(1729)+JVS(50838)*UV(1730)+JVS(50839)*UV(1731)+JVS(50840)*UV(1733)+JVS(50841)*UV(1734)& - &+JVS(50842)*UV(1735)+JVS(50843)*UV(1740)+JVS(50844)*UV(1742)+JVS(50845)*UV(1743)+JVS(50846)*UV(1744)& - &+JVS(50847)*UV(1745)+JVS(50848)*UV(1746)+JVS(50849)*UV(1747)+JVS(50850)*UV(1750)+JVS(50851)*UV(1754)& - &+JVS(50852)*UV(1755)+JVS(50853)*UV(1756)+JVS(50854)*UV(1760)+JVS(50855)*UV(1764)+JVS(50856)*UV(1765)& - &+JVS(50857)*UV(1769)+JVS(50858)*UV(1773)+JVS(50859)*UV(1776)+JVS(50860)*UV(1777)+JVS(50861)*UV(1781)& - &+JVS(50862)*UV(1787)+JVS(50863)*UV(1791)+JVS(50864)*UV(1792)+JVS(50866)*UV(1795)+JVS(50867)*UV(1796)& - &+JVS(50868)*UV(1797)+JVS(50869)*UV(1799)+JVS(50870)*UV(1806)+JVS(50871)*UV(1808)+JVS(50872)*UV(1810)& - &+JVS(50873)*UV(1812)+JVS(50874)*UV(1815)+JVS(50875)*UV(1816)+JVS(50876)*UV(1820)+JVS(50877)*UV(1821)& - &+JVS(50878)*UV(1822)+JVS(50879)*UV(1828)+JVS(50880)*UV(1838)+JVS(50881)*UV(1847)+JVS(50882)*UV(1848)& - &+JVS(50883)*UV(1851)+JVS(50884)*UV(1853)+JVS(50885)*UV(1857)+JVS(50886)*UV(1858)+JVS(50887)*UV(1860)& - &+JVS(50889)*UV(1865)+JVS(50890)*UV(1866)+JVS(50891)*UV(1869)+JVS(50892)*UV(1872)+JVS(50893)*UV(1874)& - &+JVS(50894)*UV(1875)+JVS(50895)*UV(1877)+JVS(50898)*UV(1882)+JVS(50900)*UV(1891)+JVS(50901)*UV(1892)& - &+JVS(50905)*UV(1903)+JVS(50906)*UV(1906)+JVS(50908)*UV(1910)+JVS(50910)*UV(1916)+JVS(50911)*UV(1923)& - &+JVS(50912)*UV(1924)+JVS(50913)*UV(1927)+JVS(50914)*UV(1928)+JVS(50915)*UV(1929)+JVS(50916)*UV(1934)& - &+JVS(50918)*UV(1942)+JVS(50919)*UV(1944)+JVS(50920)*UV(1945)+JVS(50921)*UV(1951)+JVS(50922)*UV(1955)& - &+JVS(50923)*UV(1959)+JVS(50924)*UV(1960)+JVS(50925)*UV(1969)+JVS(50926)*UV(1971)+JVS(50929)*UV(1981)& - &+JVS(50930)*UV(1988)+JVS(50931)*UV(1991)+JVS(50933)*UV(1998)+JVS(50934)*UV(2001)+JVS(50935)*UV(2004)& - &+JVS(50936)*UV(2005)+JVS(50937)*UV(2008)+JVS(50938)*UV(2012)+JVS(50939)*UV(2013)+JVS(50940)*UV(2015)& - &+JVS(50941)*UV(2021)+JVS(50942)*UV(2029)+JVS(50943)*UV(2030)+JVS(50944)*UV(2031)+JVS(50945)*UV(2033)& - &+JVS(50946)*UV(2035)+JVS(50947)*UV(2038)+JVS(50948)*UV(2041)+JVS(50949)*UV(2042)+JVS(50950)*UV(2043)& - &+JVS(50952)*UV(2050)+JVS(50954)*UV(2060)+JVS(50955)*UV(2066)+JVS(50956)*UV(2073)+JVS(50958)*UV(2081)& - &+JVS(50959)*UV(2085)+JVS(50960)*UV(2088)+JVS(50962)*UV(2090)+JVS(50964)*UV(2100)+JVS(50965)*UV(2101)& - &+JVS(50967)*UV(2104)+JVS(50969)*UV(2110)+JVS(50970)*UV(2112)+JVS(50971)*UV(2116)+JVS(50972)*UV(2117)& - &+JVS(50973)*UV(2120)+JVS(50974)*UV(2122)+JVS(50977)*UV(2129)+JVS(50978)*UV(2130)+JVS(50979)*UV(2131)& - &+JVS(50980)*UV(2132)+JVS(50981)*UV(2134)+JVS(50982)*UV(2138)+JVS(50983)*UV(2140)+JVS(50984)*UV(2141)& - &+JVS(50985)*UV(2144)+JVS(50986)*UV(2145)+JVS(50987)*UV(2146)+JVS(50988)*UV(2148)+JVS(50990)*UV(2158)& - &+JVS(50991)*UV(2159)+JVS(50993)*UV(2162)+JVS(50994)*UV(2170)+JVS(50995)*UV(2173)+JVS(50996)*UV(2175)& - &+JVS(50999)*UV(2186)+JVS(51003)*UV(2191)+JVS(51004)*UV(2197)+JVS(51006)*UV(2200)+JVS(51008)*UV(2203)& - &+JVS(51010)*UV(2208)+JVS(51011)*UV(2209)+JVS(51012)*UV(2210)+JVS(51013)*UV(2211)+JVS(51014)*UV(2212)& - &+JVS(51016)*UV(2219)+JVS(51017)*UV(2228)+JVS(51018)*UV(2229)+JVS(51021)*UV(2234)+JVS(51023)*UV(2236)& - &+JVS(51025)*UV(2238)+JVS(51026)*UV(2243)+JVS(51027)*UV(2248)+JVS(51028)*UV(2251)+JVS(51029)*UV(2255)& - &+JVS(51030)*UV(2258)+JVS(51031)*UV(2259)+JVS(51035)*UV(2272)+JVS(51036)*UV(2279)+JVS(51037)*UV(2284)& - &+JVS(51038)*UV(2286)+JVS(51039)*UV(2287)+JVS(51042)*UV(2301)+JVS(51045)*UV(2308)+JVS(51047)*UV(2310)& - &+JVS(51049)*UV(2315)+JVS(51050)*UV(2319)+JVS(51051)*UV(2320)+JVS(51052)*UV(2322)+JVS(51053)*UV(2324)& - &+JVS(51054)*UV(2329)+JVS(51055)*UV(2334)+JVS(51056)*UV(2335)+JVS(51057)*UV(2336)+JVS(51060)*UV(2340)& - &+JVS(51061)*UV(2344)+JVS(51062)*UV(2346)+JVS(51063)*UV(2357)+JVS(51064)*UV(2361)+JVS(51065)*UV(2364)& - &+JVS(51066)*UV(2371)+JVS(51069)*UV(2376)+JVS(51070)*UV(2381)+JVS(51071)*UV(2382)+JVS(51072)*UV(2384)& - &+JVS(51074)*UV(2395)+JVS(51075)*UV(2396)+JVS(51076)*UV(2402)+JVS(51078)*UV(2410)+JVS(51079)*UV(2412)& - &+JVS(51081)*UV(2421)+JVS(51082)*UV(2425)+JVS(51084)*UV(2431)+JVS(51086)*UV(2448)+JVS(51093)*UV(2468)& - &+JVS(51094)*UV(2472)+JVS(51095)*UV(2474)+JVS(51096)*UV(2475)+JVS(51097)*UV(2476)+JVS(51098)*UV(2477)& - &+JVS(51099)*UV(2479)+JVS(51100)*UV(2481)+JVS(51101)*UV(2482)+JVS(51102)*UV(2483)+JVS(51103)*UV(2484)& - &+JVS(51104)*UV(2485)+JVS(51105)*UV(2486)+JVS(51106)*UV(2487)+JVS(51107)*UV(2489)+JVS(51108)*UV(2491)& - &+JVS(51109)*UV(2492)+JVS(51110)*UV(2494)+JVS(51111)*UV(2501)+JVS(51113)*UV(2507)+JVS(51114)*UV(2508)& - &+JVS(51116)*UV(2512)+JVS(51118)*UV(2516)+JVS(51120)*UV(2521)+JVS(51121)*UV(2526)+JVS(51122)*UV(2528)& - &+JVS(51123)*UV(2539)+JVS(51124)*UV(2541)+JVS(51126)*UV(2545)+JVS(51127)*UV(2546)+JVS(51128)*UV(2549)& - &+JVS(51129)*UV(2550)+JVS(51130)*UV(2551)+JVS(51131)*UV(2553)+JVS(51133)*UV(2556)+JVS(51134)*UV(2559)& - &+JVS(51135)*UV(2561)+JVS(51136)*UV(2562)+JVS(51137)*UV(2568)+JVS(51138)*UV(2570)+JVS(51139)*UV(2575)& - &+JVS(51140)*UV(2581)+JVS(51141)*UV(2586)+JVS(51142)*UV(2589)+JVS(51144)*UV(2591)+JVS(51145)*UV(2592)& - &+JVS(51146)*UV(2594)+JVS(51147)*UV(2596)+JVS(51148)*UV(2599)+JVS(51149)*UV(2601)+JVS(51150)*UV(2604)& - &+JVS(51151)*UV(2606)+JVS(51152)*UV(2609)+JVS(51153)*UV(2614)+JVS(51154)*UV(2616)+JVS(51156)*UV(2623)& - &+JVS(51159)*UV(2634)+JVS(51160)*UV(2638)+JVS(51161)*UV(2639)+JVS(51162)*UV(2641)+JVS(51163)*UV(2642)& - &+JVS(51164)*UV(2644)+JVS(51165)*UV(2645)+JVS(51166)*UV(2646)+JVS(51167)*UV(2647)+JVS(51168)*UV(2652)& - &+JVS(51170)*UV(2654)+JVS(51171)*UV(2659)+JVS(51172)*UV(2662)+JVS(51173)*UV(2665)+JVS(51174)*UV(2676)& - &+JVS(51175)*UV(2680)+JVS(51178)*UV(2694)+JVS(51180)*UV(2697)+JVS(51181)*UV(2699)+JVS(51182)*UV(2706)& - &+JVS(51183)*UV(2707)+JVS(51184)*UV(2710)+JVS(51185)*UV(2711)+JVS(51187)*UV(2714)+JVS(51188)*UV(2716)& - &+JVS(51189)*UV(2717)+JVS(51190)*UV(2720)+JVS(51191)*UV(2722)+JVS(51194)*UV(2731)+JVS(51195)*UV(2735)& - &+JVS(51196)*UV(2737)+JVS(51197)*UV(2741)+JVS(51198)*UV(2744)+JVS(51199)*UV(2745)+JVS(51200)*UV(2746)& - &+JVS(51201)*UV(2747)+JVS(51202)*UV(2748)+JVS(51203)*UV(2752)+JVS(51204)*UV(2754)+JVS(51205)*UV(2760)& - &+JVS(51207)*UV(2763)+JVS(51209)*UV(2767)+JVS(51210)*UV(2770)+JVS(51211)*UV(2771)+JVS(51212)*UV(2773)& - &+JVS(51215)*UV(2788)+JVS(51216)*UV(2795)+JVS(51217)*UV(2797)+JVS(51218)*UV(2803)+JVS(51219)*UV(2805)& - &+JVS(51220)*UV(2807)+JVS(51221)*UV(2816)+JVS(51222)*UV(2824)+JVS(51223)*UV(2826)+JVS(51224)*UV(2827)& - &+JVS(51225)*UV(2828)+JVS(51228)*UV(2837)+JVS(51229)*UV(2838)+JVS(51230)*UV(2840)+JVS(51231)*UV(2849)& - &+JVS(51232)*UV(2861)+JVS(51233)*UV(2862)+JVS(51234)*UV(2865)+JVS(51235)*UV(2868)+JVS(51237)*UV(2873)& - &+JVS(51238)*UV(2874)+JVS(51239)*UV(2875)+JVS(51240)*UV(2889)+JVS(51241)*UV(2890)+JVS(51242)*UV(2891)& - &+JVS(51243)*UV(2894)+JVS(51244)*UV(2895)+JVS(51245)*UV(2897)+JVS(51246)*UV(2899)+JVS(51248)*UV(2902)& - &+JVS(51249)*UV(2906)+JVS(51250)*UV(2911)+JVS(51251)*UV(2912)+JVS(51253)*UV(2922)+JVS(51254)*UV(2926)& - &+JVS(51255)*UV(2927)+JVS(51256)*UV(2931)+JVS(51257)*UV(2932)+JVS(51259)*UV(2936)+JVS(51260)*UV(2939)& - &+JVS(51261)*UV(2944)+JVS(51262)*UV(2946)+JVS(51263)*UV(2949)+JVS(51264)*UV(2953)+JVS(51265)*UV(2954)& - &+JVS(51266)*UV(2961)+JVS(51267)*UV(2963)+JVS(51268)*UV(2966)+JVS(51269)*UV(2967)+JVS(51270)*UV(2971)& - &+JVS(51271)*UV(2972)+JVS(51272)*UV(2974)+JVS(51273)*UV(2975)+JVS(51275)*UV(2979)+JVS(51276)*UV(2982)& - &+JVS(51277)*UV(2983)+JVS(51278)*UV(2985)+JVS(51279)*UV(2990)+JVS(51280)*UV(2991)+JVS(51281)*UV(2992)& - &+JVS(51282)*UV(2993)+JVS(51283)*UV(2996)+JVS(51284)*UV(2997)+JVS(51285)*UV(3000)+JVS(51286)*UV(3001)& - &+JVS(51287)*UV(3002)+JVS(51288)*UV(3004)+JVS(51289)*UV(3009)+JVS(51290)*UV(3013)+JVS(51293)*UV(3022)& - &+JVS(51294)*UV(3028)+JVS(51295)*UV(3032)+JVS(51296)*UV(3033)+JVS(51297)*UV(3037)+JVS(51299)*UV(3039)& - &+JVS(51300)*UV(3041)+JVS(51301)*UV(3043)+JVS(51302)*UV(3044)+JVS(51304)*UV(3048)+JVS(51305)*UV(3054)& - &+JVS(51307)*UV(3057)+JVS(51308)*UV(3059)+JVS(51309)*UV(3064)+JVS(51310)*UV(3066)+JVS(51311)*UV(3071)& - &+JVS(51312)*UV(3072)+JVS(51313)*UV(3079)+JVS(51314)*UV(3080)+JVS(51315)*UV(3082)+JVS(51316)*UV(3083)& - &+JVS(51317)*UV(3084)+JVS(51318)*UV(3089)+JVS(51319)*UV(3094)+JVS(51320)*UV(3096)+JVS(51321)*UV(3097)& - &+JVS(51322)*UV(3099)+JVS(51324)*UV(3103)+JVS(51325)*UV(3105)+JVS(51326)*UV(3107)+JVS(51327)*UV(3108)& - &+JVS(51328)*UV(3113)+JVS(51329)*UV(3115)+JVS(51330)*UV(3121)+JVS(51331)*UV(3122)+JVS(51332)*UV(3129)& - &+JVS(51333)*UV(3130)+JVS(51334)*UV(3131)+JVS(51335)*UV(3132)+JVS(51336)*UV(3134)+JVS(51337)*UV(3135)& - &+JVS(51338)*UV(3136)+JVS(51339)*UV(3138)+JVS(51340)*UV(3139)+JVS(51341)*UV(3144)+JVS(51342)*UV(3145)& - &+JVS(51343)*UV(3147)+JVS(51344)*UV(3149)+JVS(51345)*UV(3154)+JVS(51346)*UV(3155)+JVS(51347)*UV(3157)& - &+JVS(51348)*UV(3158)+JVS(51349)*UV(3160)+JVS(51350)*UV(3164)+JVS(51351)*UV(3169)+JVS(51352)*UV(3171)& - &+JVS(51353)*UV(3172)+JVS(51354)*UV(3174)+JVS(51355)*UV(3176)+JVS(51356)*UV(3177)+JVS(51357)*UV(3179)& - &+JVS(51358)*UV(3180)+JVS(51359)*UV(3182)+JVS(51361)*UV(3192)+JVS(51362)*UV(3193)+JVS(51363)*UV(3194)& - &+JVS(51364)*UV(3195)+JVS(51365)*UV(3196)+JVS(51367)*UV(3200)+JVS(51368)*UV(3201)+JVS(51369)*UV(3202)& - &+JVS(51370)*UV(3203)+JVS(51373)*UV(3209)+JVS(51374)*UV(3210)+JVS(51375)*UV(3211)+JVS(51377)*UV(3213)& - &+JVS(51378)*UV(3215)+JVS(51379)*UV(3216)+JVS(51380)*UV(3217)+JVS(51382)*UV(3225)+JVS(51383)*UV(3226)& - &+JVS(51384)*UV(3227)+JVS(51385)*UV(3228)+JVS(51386)*UV(3230)+JVS(51388)*UV(3234)+JVS(51389)*UV(3236)& - &+JVS(51390)*UV(3237)+JVS(51391)*UV(3238)+JVS(51392)*UV(3241)+JVS(51395)*UV(3246)+JVS(51396)*UV(3247)& - &+JVS(51397)*UV(3248)+JVS(51398)*UV(3250)+JVS(51399)*UV(3251)+JVS(51400)*UV(3252)+JVS(51401)*UV(3255)& - &+JVS(51404)*UV(3262)+JVS(51406)*UV(3264)+JVS(51409)*UV(3267)+JVS(51410)*UV(3268)+JVS(51411)*UV(3269)& - &+JVS(51412)*UV(3270)+JVS(51413)*UV(3271)+JVS(51414)*UV(3272)+JVS(51416)*UV(3280)+JVS(51417)*UV(3283)& - &+JVS(51418)*UV(3284)+JVS(51419)*UV(3285)+JVS(51420)*UV(3286)+JVS(51424)*UV(3294)+JVS(51425)*UV(3296)& - &+JVS(51426)*UV(3297)+JVS(51428)*UV(3301)+JVS(51429)*UV(3302)+JVS(51430)*UV(3304)+JVS(51432)*UV(3309)& - &+JVS(51435)*UV(3322)+JVS(51437)*UV(3325)+JVS(51438)*UV(3326)+JVS(51439)*UV(3330)+JVS(51440)*UV(3332)& - &+JVS(51441)*UV(3333)+JVS(51442)*UV(3334)+JVS(51443)*UV(3335)+JVS(51444)*UV(3336)+JVS(51445)*UV(3337)& - &+JVS(51446)*UV(3338)+JVS(51447)*UV(3339)+JVS(51448)*UV(3340)+JVS(51449)*UV(3342)+JVS(51450)*UV(3344)& - &+JVS(51451)*UV(3345)+JVS(51452)*UV(3346)+JVS(51453)*UV(3348)+JVS(51454)*UV(3350)+JVS(51455)*UV(3351)& - &+JVS(51456)*UV(3352)+JVS(51457)*UV(3353)+JVS(51458)*UV(3355)+JVS(51459)*UV(3356)+JVS(51460)*UV(3357)& - &+JVS(51461)*UV(3359)+JVS(51462)*UV(3360)+JVS(51463)*UV(3365)+JVS(51464)*UV(3367)+JVS(51465)*UV(3372)& - &+JVS(51466)*UV(3377)+JVS(51467)*UV(3378)+JVS(51468)*UV(3379)+JVS(51469)*UV(3380)+JVS(51470)*UV(3382)& - &+JVS(51471)*UV(3383)+JVS(51472)*UV(3386)+JVS(51473)*UV(3387)+JVS(51474)*UV(3390)+JVS(51475)*UV(3391)& - &+JVS(51476)*UV(3393)+JVS(51478)*UV(3396)+JVS(51479)*UV(3397)+JVS(51480)*UV(3398)+JVS(51481)*UV(3400)& - &+JVS(51482)*UV(3403)+JVS(51483)*UV(3404)+JVS(51485)*UV(3406)+JVS(51486)*UV(3407)+JVS(51487)*UV(3410)& - &+JVS(51488)*UV(3411)+JVS(51489)*UV(3413)+JVS(51490)*UV(3415)+JVS(51491)*UV(3419)+JVS(51492)*UV(3422)& - &+JVS(51493)*UV(3423)+JVS(51494)*UV(3424)+JVS(51495)*UV(3425)+JVS(51496)*UV(3426)+JVS(51497)*UV(3427)& - &+JVS(51498)*UV(3429)+JVS(51499)*UV(3430)+JVS(51500)*UV(3431)+JVS(51502)*UV(3437)+JVS(51503)*UV(3438)& - &+JVS(51504)*UV(3441)+JVS(51505)*UV(3443)+JVS(51506)*UV(3444)+JVS(51508)*UV(3446)+JVS(51511)*UV(3449)& - &+JVS(51512)*UV(3450)+JVS(51513)*UV(3451)+JVS(51514)*UV(3452)+JVS(51516)*UV(3454)+JVS(51518)*UV(3457)& - &+JVS(51519)*UV(3458)+JVS(51520)*UV(3459)+JVS(51521)*UV(3460)+JVS(51522)*UV(3462)+JVS(51523)*UV(3463)& - &+JVS(51524)*UV(3467)+JVS(51525)*UV(3468)+JVS(51526)*UV(3469)+JVS(51527)*UV(3470)+JVS(51528)*UV(3471)& - &+JVS(51529)*UV(3472)+JVS(51531)*UV(3475)+JVS(51532)*UV(3476)+JVS(51533)*UV(3477)+JVS(51534)*UV(3479)& - &+JVS(51535)*UV(3480)+JVS(51536)*UV(3481)+JVS(51538)*UV(3483)+JVS(51539)*UV(3484)+JVS(51540)*UV(3485)& - &+JVS(51541)*UV(3486)+JVS(51542)*UV(3487)+JVS(51543)*UV(3488)+JVS(51544)*UV(3489)+JVS(51545)*UV(3490)& - &+JVS(51546)*UV(3491)+JVS(51547)*UV(3492)+JVS(51548)*UV(3493)+JVS(51550)*UV(3495)+JVS(51551)*UV(3496)& - &+JVS(51553)*UV(3500)+JVS(51554)*UV(3501)+JVS(51555)*UV(3502)+JVS(51556)*UV(3503)+JVS(51557)*UV(3504)& - &+JVS(51559)*UV(3507)+JVS(51561)*UV(3509)+JVS(51562)*UV(3510)+JVS(51563)*UV(3511)+JVS(51565)*UV(3515)& - &+JVS(51566)*UV(3518)+JVS(51567)*UV(3520)+JVS(51568)*UV(3521)+JVS(51569)*UV(3522)+JVS(51570)*UV(3523)& - &+JVS(51571)*UV(3524)+JVS(51572)*UV(3525)+JVS(51573)*UV(3526)+JVS(51574)*UV(3527)+JVS(51575)*UV(3531)& - &+JVS(51576)*UV(3532)+JVS(51577)*UV(3533)+JVS(51578)*UV(3534)+JVS(51579)*UV(3537)+JVS(51580)*UV(3538)& - &+JVS(51581)*UV(3539)+JVS(51582)*UV(3540)+JVS(51583)*UV(3543)+JVS(51584)*UV(3544)+JVS(51586)*UV(3546)& - &+JVS(51587)*UV(3547)+JVS(51588)*UV(3548)+JVS(51589)*UV(3549)+JVS(51590)*UV(3550)+JVS(51592)*UV(3552)& - &+JVS(51593)*UV(3554)+JVS(51594)*UV(3555)+JVS(51595)*UV(3557)+JVS(51596)*UV(3559)+JVS(51598)*UV(3562)& - &+JVS(51599)*UV(3563)+JVS(51600)*UV(3564)+JVS(51601)*UV(3565)+JVS(51602)*UV(3566)+JVS(51603)*UV(3567)& - &+JVS(51604)*UV(3569)+JVS(51605)*UV(3570)+JVS(51606)*UV(3571)+JVS(51607)*UV(3572)+JVS(51608)*UV(3573)& - &+JVS(51609)*UV(3575)+JVS(51610)*UV(3576)+JVS(51611)*UV(3577)+JVS(51612)*UV(3578)+JVS(51613)*UV(3579)& - &+JVS(51614)*UV(3580)+JVS(51615)*UV(3581)+JVS(51616)*UV(3582)+JVS(51617)*UV(3584)+JVS(51618)*UV(3585)& - &+JVS(51619)*UV(3587)+JVS(51620)*UV(3588)+JVS(51621)*UV(3589)+JVS(51622)*UV(3590)+JVS(51623)*UV(3591)& - &+JVS(51624)*UV(3592)+JVS(51625)*UV(3597)+JVS(51626)*UV(3598)+JVS(51627)*UV(3599)+JVS(51628)*UV(3600)& - &+JVS(51629)*UV(3601)+JVS(51630)*UV(3602)+JVS(51631)*UV(3603)+JVS(51632)*UV(3604)+JVS(51633)*UV(3605)& - &+JVS(51634)*UV(3606)+JVS(51635)*UV(3608)+JVS(51636)*UV(3610)+JVS(51637)*UV(3611)+JVS(51638)*UV(3612)& - &+JVS(51639)*UV(3613)+JVS(51640)*UV(3614)+JVS(51641)*UV(3615)+JVS(51642)*UV(3616)+JVS(51643)*UV(3618)& - &+JVS(51644)*UV(3620)+JVS(51646)*UV(3622)+JVS(51648)*UV(3624)+JVS(51649)*UV(3625)+JVS(51650)*UV(3626)& - &+JVS(51651)*UV(3627)+JVS(51652)*UV(3628)+JVS(51653)*UV(3630)+JVS(51654)*UV(3631)+JVS(51655)*UV(3632)& - &+JVS(51656)*UV(3633)+JVS(51657)*UV(3634)+JVS(51658)*UV(3635)+JVS(51659)*UV(3636)+JVS(51660)*UV(3637)& - &+JVS(51661)*UV(3639)+JVS(51662)*UV(3640)+JVS(51663)*UV(3641)+JVS(51664)*UV(3643)+JVS(51665)*UV(3644)& - &+JVS(51666)*UV(3645)+JVS(51667)*UV(3648)+JVS(51668)*UV(3649)+JVS(51669)*UV(3650)+JVS(51670)*UV(3653)& - &+JVS(51671)*UV(3655)+JVS(51672)*UV(3657)+JVS(51673)*UV(3658)+JVS(51674)*UV(3659)+JVS(51675)*UV(3661)& - &+JVS(51676)*UV(3662)+JVS(51677)*UV(3663)+JVS(51678)*UV(3664)+JVS(51679)*UV(3665)+JVS(51681)*UV(3667)& - &+JVS(51682)*UV(3668)+JVS(51683)*UV(3669)+JVS(51684)*UV(3670)+JVS(51685)*UV(3671)+JVS(51686)*UV(3672)& - &+JVS(51687)*UV(3673)+JVS(51688)*UV(3674)+JVS(51689)*UV(3675)+JVS(51690)*UV(3676)+JVS(51691)*UV(3677)& - &+JVS(51692)*UV(3678)+JVS(51693)*UV(3679)+JVS(51694)*UV(3680)+JVS(51695)*UV(3681)+JVS(51696)*UV(3682)& - &+JVS(51697)*UV(3683)+JVS(51699)*UV(3685)+JVS(51700)*UV(3686)+JVS(51701)*UV(3687)+JVS(51702)*UV(3688)& - &+JVS(51703)*UV(3690)+JVS(51704)*UV(3691)+JVS(51705)*UV(3692)+JVS(51706)*UV(3693)+JVS(51707)*UV(3694)& - &+JVS(51708)*UV(3695)+JVS(51709)*UV(3696)+JVS(51710)*UV(3697)+JVS(51711)*UV(3698)+JVS(51712)*UV(3699)& - &+JVS(51713)*UV(3700)+JVS(51715)*UV(3702)+JVS(51716)*UV(3703)+JVS(51717)*UV(3704)+JVS(51718)*UV(3705)& - &+JVS(51719)*UV(3706)+JVS(51720)*UV(3707)+JVS(51721)*UV(3709)+JVS(51722)*UV(3710)+JVS(51723)*UV(3711)& - &+JVS(51724)*UV(3712)+JVS(51725)*UV(3713)+JVS(51726)*UV(3714)+JVS(51727)*UV(3715)+JVS(51728)*UV(3716)& - &+JVS(51729)*UV(3717)+JVS(51730)*UV(3718)+JVS(51731)*UV(3719)+JVS(51732)*UV(3720)+JVS(51733)*UV(3721)& - &+JVS(51734)*UV(3722)+JVS(51735)*UV(3724)+JVS(51736)*UV(3725)+JVS(51737)*UV(3726)+JVS(51738)*UV(3727)& - &+JVS(51739)*UV(3728)+JVS(51740)*UV(3729)+JVS(51741)*UV(3730)+JVS(51742)*UV(3731)+JVS(51743)*UV(3732)& - &+JVS(51744)*UV(3733)+JVS(51745)*UV(3735)+JVS(51747)*UV(3737)+JVS(51748)*UV(3738)+JVS(51749)*UV(3739)& - &+JVS(51750)*UV(3740)+JVS(51751)*UV(3741)+JVS(51752)*UV(3742)+JVS(51753)*UV(3743)+JVS(51754)*UV(3744)& - &+JVS(51755)*UV(3745)+JVS(51756)*UV(3746)+JVS(51757)*UV(3748)+JVS(51758)*UV(3749)+JVS(51759)*UV(3750)& - &+JVS(51760)*UV(3751)+JVS(51761)*UV(3752)+JVS(51762)*UV(3753)+JVS(51763)*UV(3754)+JVS(51764)*UV(3755)& - &+JVS(51765)*UV(3756)+JVS(51766)*UV(3758)+JVS(51767)*UV(3759)+JVS(51768)*UV(3760)+JVS(51769)*UV(3761)& - &+JVS(51770)*UV(3762)+JVS(51771)*UV(3763)+JVS(51772)*UV(3764)+JVS(51773)*UV(3766)+JVS(51774)*UV(3767)& - &+JVS(51775)*UV(3768)+JVS(51776)*UV(3769)+JVS(51777)*UV(3770)+JVS(51778)*UV(3771)+JVS(51779)*UV(3772)& - &+JVS(51780)*UV(3773)+JVS(51781)*UV(3774)+JVS(51782)*UV(3775)+JVS(51783)*UV(3776)+JVS(51784)*UV(3777)& - &+JVS(51785)*UV(3778)+JVS(51786)*UV(3779)+JVS(51787)*UV(3780)+JVS(51788)*UV(3781)+JVS(51789)*UV(3782)& - &+JVS(51790)*UV(3783)+JVS(51791)*UV(3784)+JVS(51792)*UV(3785)+JVS(51793)*UV(3786)+JVS(51794)*UV(3787)& - &+JVS(51795)*UV(3788)+JVS(51796)*UV(3789)+JVS(51797)*UV(3790)+JVS(51798)*UV(3791)+JVS(51799)*UV(3792)& - &+JVS(51800)*UV(3794)+JVS(51801)*UV(3795)+JVS(51802)*UV(3796)+JVS(51803)*UV(3797)+JVS(51804)*UV(3798)& - &+JVS(51805)*UV(3799)+JVS(51806)*UV(3800)+JVS(51807)*UV(3801)+JVS(51808)*UV(3802)+JVS(51809)*UV(3803)& - &+JVS(51810)*UV(3804)+JVS(51811)*UV(3805)+JVS(51812)*UV(3806)+JVS(51813)*UV(3807)+JVS(51814)*UV(3808)& - &+JVS(51815)*UV(3809)+JVS(51816)*UV(3810)+JVS(51817)*UV(3811)+JVS(51818)*UV(3812)+JVS(51819)*UV(3813)& - &+JVS(51820)*UV(3814)+JVS(51821)*UV(3815)+JVS(51822)*UV(3816)+JVS(51823)*UV(3817)+JVS(51824)*UV(3818)& - &+JVS(51825)*UV(3819)+JVS(51826)*UV(3820)+JVS(51827)*UV(3822)+JVS(51828)*UV(3823)+JVS(51829)*UV(3824)& - &+JVS(51830)*UV(3825)+JVS(51831)*UV(3826)+JVS(51832)*UV(3827)+JVS(51833)*UV(3828)+JVS(51834)*UV(3829)& - &+JVS(51837)*UV(3832)+JVS(51838)*UV(3833)+JVS(51839)*UV(3834)+JVS(51840)*UV(3835)+JVS(51841)*UV(3836)& - &+JVS(51842)*UV(3837)+JVS(51843)*UV(3838)+JVS(51844)*UV(3839)+JVS(51845)*UV(3840)+JVS(51846)*UV(3841)& - &+JVS(51847)*UV(3842)+JVS(51848)*UV(3844)+JVS(51849)*UV(3845)+JVS(51850)*UV(3846)+JVS(51851)*UV(3847)& - &+JVS(51852)*UV(3848)+JVS(51853)*UV(3850)+JVS(51854)*UV(3851)+JVS(51855)*UV(3852)+JVS(51856)*UV(3853)& - &+JVS(51857)*UV(3854)+JVS(51858)*UV(3855)+JVS(51859)*UV(3856)+JVS(51860)*UV(3857)+JVS(51861)*UV(3858)& - &+JVS(51862)*UV(3859)+JVS(51863)*UV(3860)+JVS(51864)*UV(3861)+JVS(51865)*UV(3862)+JVS(51866)*UV(3863)& - &+JVS(51867)*UV(3864)+JVS(51868)*UV(3865)+JVS(51869)*UV(3866)+JVS(51870)*UV(3867)+JVS(51871)*UV(3869)& - &+JVS(51872)*UV(3870)+JVS(51873)*UV(3871)+JVS(51874)*UV(3872)+JVS(51875)*UV(3873)+JVS(51876)*UV(3874)& - &+JVS(51877)*UV(3875)+JVS(51878)*UV(3876)+JVS(51879)*UV(3877)+JVS(51880)*UV(3878)+JVS(51881)*UV(3879)& - &+JVS(51882)*UV(3880)+JVS(51883)*UV(3881)+JVS(51884)*UV(3882)+JVS(51885)*UV(3883)+JVS(51886)*UV(3884)& - &+JVS(51887)*UV(3885)+JVS(51888)*UV(3886)+JVS(51889)*UV(3887)+JVS(51890)*UV(3888)+JVS(51891)*UV(3889)& - &+JVS(51892)*UV(3890)+JVS(51893)*UV(3891)+JVS(51894)*UV(3892)+JVS(51895)*UV(3893)+JVS(51896)*UV(3894)& - &+JVS(51897)*UV(3895)+JVS(51898)*UV(3896)+JVS(51899)*UV(3897)+JVS(51900)*UV(3898)+JVS(51901)*UV(3899)& - &+JVS(51902)*UV(3900)+JVS(51903)*UV(3901)+JVS(51904)*UV(3902)+JVS(51905)*UV(3903)+JVS(51906)*UV(3904)& - &+JVS(51907)*UV(3905)+JVS(51908)*UV(3907)+JVS(51909)*UV(3908)+JVS(51910)*UV(3909)+JVS(51911)*UV(3910)& - &+JVS(51912)*UV(3911)+JVS(51913)*UV(3912)+JVS(51914)*UV(3913)+JVS(51915)*UV(3914)+JVS(51916)*UV(3915)& - &+JVS(51917)*UV(3916)+JVS(51918)*UV(3917)+JVS(51919)*UV(3918)+JVS(51920)*UV(3919)+JVS(51921)*UV(3920)& - &+JVS(51922)*UV(3921)+JVS(51923)*UV(3922)+JVS(51924)*UV(3923)+JVS(51925)*UV(3924)+JVS(51926)*UV(3925)& - &+JVS(51927)*UV(3926)+JVS(51928)*UV(3927)+JVS(51929)*UV(3928)+JVS(51930)*UV(3929)+JVS(51931)*UV(3930)& - &+JVS(51932)*UV(3931)+JVS(51933)*UV(3932)+JVS(51934)*UV(3934)+JVS(51935)*UV(3935)+JVS(51936)*UV(3936)& - &+JVS(51937)*UV(3937)+JVS(51938)*UV(3938)+JVS(51939)*UV(3939)+JVS(51940)*UV(3940)+JVS(51941)*UV(3941)& - &+JVS(51942)*UV(3942)+JVS(51943)*UV(3943)+JVS(51944)*UV(3944)+JVS(51945)*UV(3945)+JVS(51946)*UV(3946)& - &+JVS(51947)*UV(3947)+JVS(51948)*UV(3948)+JVS(51949)*UV(3949)+JVS(51950)*UV(3950)+JVS(51951)*UV(3951)& - &+JVS(51952)*UV(3952)+JVS(51953)*UV(3953)+JVS(51954)*UV(3954)+JVS(51955)*UV(3955)+JVS(51956)*UV(3956)& - &+JVS(51957)*UV(3957)+JVS(51958)*UV(3958)+JVS(51959)*UV(3959)+JVS(51960)*UV(3960)+JVS(51961)*UV(3961)& - &+JVS(51962)*UV(3962)+JVS(51963)*UV(3963)+JVS(51964)*UV(3964)+JVS(51965)*UV(3965)+JVS(51966)*UV(3966)& - &+JVS(51967)*UV(3967)+JVS(51968)*UV(3968)+JVS(51969)*UV(3969)+JVS(51970)*UV(3970)+JVS(51971)*UV(3971)& - &+JVS(51972)*UV(3972)+JVS(51973)*UV(3973)+JVS(51974)*UV(3974)+JVS(51975)*UV(3975)+JVS(51976)*UV(3976)& - &+JVS(51977)*UV(3977)+JVS(51978)*UV(3979)+JVS(51979)*UV(3980)+JVS(51980)*UV(3981)+JVS(51981)*UV(3982)& - &+JVS(51982)*UV(3983)+JVS(51983)*UV(3984)+JVS(51984)*UV(3985)+JVS(51985)*UV(3986)+JVS(51986)*UV(3987)& - &+JVS(51987)*UV(3988)+JVS(51988)*UV(3989)+JVS(51989)*UV(3990)+JVS(51990)*UV(3991)+JVS(51991)*UV(3992)& - &+JVS(51992)*UV(3993)+JVS(51993)*UV(3994)+JVS(51994)*UV(3995)+JVS(51995)*UV(3996)+JVS(51996)*UV(3997)& - &+JVS(51997)*UV(3998)+JVS(51998)*UV(3999)+JVS(51999)*UV(4000)+JVS(52000)*UV(4001)+JVS(52001)*UV(4002)& - &+JVS(52002)*UV(4003)+JVS(52003)*UV(4004)+JVS(52004)*UV(4005)+JVS(52005)*UV(4006)+JVS(52006)*UV(4007)& - &+JVS(52007)*UV(4008)+JVS(52008)*UV(4009)+JVS(52009)*UV(4010)+JVS(52010)*UV(4011)+JVS(52011)*UV(4012)& - &+JVS(52012)*UV(4013)+JVS(52013)*UV(4014)+JVS(52014)*UV(4015)+JVS(52015)*UV(4016)+JVS(52016)*UV(4017)& - &+JVS(52017)*UV(4018)+JVS(52018)*UV(4019)+JVS(52019)*UV(4020)+JVS(52020)*UV(4021)+JVS(52021)*UV(4022)& - &+JVS(52022)*UV(4023)+JVS(52023)*UV(4024)+JVS(52024)*UV(4025)+JVS(52025)*UV(4026)+JVS(52026)*UV(4027)& - &+JVS(52027)*UV(4028)+JVS(52028)*UV(4029)+JVS(52029)*UV(4030)+JVS(52030)*UV(4031)+JVS(52031)*UV(4032)& - &+JVS(52032)*UV(4033)+JVS(52033)*UV(4034)+JVS(52034)*UV(4035)+JVS(52035)*UV(4036)+JVS(52036)*UV(4037)& - &+JVS(52037)*UV(4038)+JVS(52038)*UV(4039)+JVS(52039)*UV(4040)+JVS(52040)*UV(4041)+JVS(52041)*UV(4042)& - &+JVS(52042)*UV(4043)+JVS(52043)*UV(4044)+JVS(52044)*UV(4045)+JVS(52045)*UV(4046)+JVS(52046)*UV(4047)& - &+JVS(52047)*UV(4049)+JVS(52048)*UV(4050)+JVS(52049)*UV(4051)+JVS(52050)*UV(4052)+JVS(52051)*UV(4053)& - &+JVS(52052)*UV(4054)+JVS(52053)*UV(4055)+JVS(52054)*UV(4056)+JVS(52055)*UV(4057)+JVS(52056)*UV(4058)& - &+JVS(52057)*UV(4059)+JVS(52058)*UV(4060)+JVS(52059)*UV(4061)+JVS(52060)*UV(4062)+JVS(52061)*UV(4063)& - &+JVS(52062)*UV(4064)+JVS(52063)*UV(4065)+JVS(52064)*UV(4066)+JVS(52065)*UV(4067)+JVS(52066)*UV(4068)& - &+JVS(52067)*UV(4069)+JVS(52068)*UV(4070)+JVS(52069)*UV(4071)+JVS(52070)*UV(4072)+JVS(52071)*UV(4073)& - &+JVS(52072)*UV(4074)+JVS(52073)*UV(4075)+JVS(52074)*UV(4076)+JVS(52075)*UV(4077)+JVS(52076)*UV(4078)& - &+JVS(52077)*UV(4079)+JVS(52078)*UV(4080)+JVS(52079)*UV(4081)+JVS(52080)*UV(4082)+JVS(52081)*UV(4083)& - &+JVS(52082)*UV(4084)+JVS(52083)*UV(4085)+JVS(52084)*UV(4086)+JVS(52085)*UV(4087)+JVS(52086)*UV(4088)& - &+JVS(52087)*UV(4089)+JVS(52088)*UV(4090)+JVS(52089)*UV(4091)+JVS(52090)*UV(4092)+JVS(52091)*UV(4093)& - &+JVS(52092)*UV(4094)+JVS(52093)*UV(4095)+JVS(52095)*UV(4097)+JVS(52096)*UV(4098)+JVS(52097)*UV(4099)& - &+JVS(52098)*UV(4100)+JVS(52099)*UV(4101)+JVS(52100)*UV(4102)+JVS(52101)*UV(4103)+JVS(52102)*UV(4104)& - &+JVS(52103)*UV(4105)+JVS(52104)*UV(4106)+JVS(52106)*UV(4108)+JVS(52107)*UV(4109)+JVS(52108)*UV(4110)& - &+JVS(52109)*UV(4111)+JVS(52110)*UV(4112)+JVS(52112)*UV(4114)+JVS(52113)*UV(4115)+JVS(52114)*UV(4116)& - &+JVS(52115)*UV(4117)+JVS(52116)*UV(4118)+JVS(52117)*UV(4119)+JVS(52118)*UV(4120)+JVS(52119)*UV(4121)& - &+JVS(52120)*UV(4122)+JVS(52121)*UV(4123)+JVS(52122)*UV(4124)+JVS(52123)*UV(4125)+JVS(52124)*UV(4126)& - &+JVS(52125)*UV(4127)+JVS(52126)*UV(4128)+JVS(52127)*UV(4129)+JVS(52128)*UV(4130)+JVS(52129)*UV(4131)& - &+JVS(52130)*UV(4132)+JVS(52131)*UV(4133)+JVS(52132)*UV(4134)+JVS(52133)*UV(4135)+JVS(52134)*UV(4136)& - &+JVS(52135)*UV(4137)+JVS(52136)*UV(4138)+JVS(52137)*UV(4139)+JVS(52138)*UV(4140)+JVS(52139)*UV(4141)& - &+JVS(52140)*UV(4142)+JVS(52141)*UV(4143)+JVS(52142)*UV(4144)+JVS(52143)*UV(4145)+JVS(52144)*UV(4146)& - &+JVS(52145)*UV(4147)+JVS(52146)*UV(4148)+JVS(52147)*UV(4149)+JVS(52148)*UV(4150)+JVS(52149)*UV(4151)& - &+JVS(52150)*UV(4152)+JVS(52151)*UV(4153)+JVS(52152)*UV(4154)+JVS(52153)*UV(4155)+JVS(52154)*UV(4156)& - &+JVS(52155)*UV(4157)+JVS(52156)*UV(4158)+JVS(52157)*UV(4159)+JVS(52159)*UV(4161)+JVS(52160)*UV(4162)& - &+JVS(52161)*UV(4163)+JVS(52162)*UV(4164)+JVS(52163)*UV(4165)+JVS(52164)*UV(4166)+JVS(52165)*UV(4167)& - &+JVS(52166)*UV(4168)+JVS(52167)*UV(4169)+JVS(52168)*UV(4170)+JVS(52169)*UV(4171)+JVS(52170)*UV(4172)& - &+JVS(52171)*UV(4173)+JVS(52173)*UV(4175)+JVS(52174)*UV(4176)+JVS(52175)*UV(4177)+JVS(52176)*UV(4178)& - &+JVS(52177)*UV(4179)+JVS(52178)*UV(4180)+JVS(52179)*UV(4181)+JVS(52180)*UV(4182)+JVS(52181)*UV(4183)& - &+JVS(52183)*UV(4185)+JVS(52184)*UV(4186)+JVS(52185)*UV(4187)+JVS(52186)*UV(4188)+JVS(52187)*UV(4189)& - &+JVS(52188)*UV(4190)+JVS(52189)*UV(4191)+JVS(52190)*UV(4192)+JVS(52191)*UV(4193)+JVS(52192)*UV(4194)& - &+JVS(52193)*UV(4195)+JVS(52194)*UV(4196)+JVS(52195)*UV(4197)+JVS(52196)*UV(4198)+JVS(52197)*UV(4199)& - &+JVS(52198)*UV(4200)+JVS(52199)*UV(4201)+JVS(52200)*UV(4202)+JVS(52201)*UV(4203)+JVS(52202)*UV(4204)& - &+JVS(52203)*UV(4205)+JVS(52204)*UV(4206)+JVS(52205)*UV(4207)+JVS(52206)*UV(4208)+JVS(52207)*UV(4209)& - &+JVS(52208)*UV(4210)+JVS(52209)*UV(4211)+JVS(52210)*UV(4212)+JVS(52211)*UV(4214)+JVS(52212)*UV(4215)& - &+JVS(52213)*UV(4216)+JVS(52214)*UV(4217)+JVS(52215)*UV(4218)+JVS(52216)*UV(4219)+JVS(52217)*UV(4220)& - &+JVS(52218)*UV(4221)+JVS(52219)*UV(4222)+JVS(52220)*UV(4223)+JVS(52221)*UV(4224)+JVS(52222)*UV(4225)& - &+JVS(52223)*UV(4226)+JVS(52224)*UV(4227)+JVS(52225)*UV(4228)+JVS(52226)*UV(4229)+JVS(52227)*UV(4230)& - &+JVS(52228)*UV(4231)+JVS(52229)*UV(4232)+JVS(52230)*UV(4233)+JVS(52231)*UV(4234)+JVS(52232)*UV(4235)& - &+JVS(52233)*UV(4236)+JVS(52234)*UV(4237)+JVS(52235)*UV(4238)+JVS(52236)*UV(4239)+JVS(52237)*UV(4240)& - &+JVS(52238)*UV(4241)+JVS(52239)*UV(4242)+JVS(52240)*UV(4243)+JVS(52241)*UV(4244)+JVS(52242)*UV(4245)& - &+JVS(52243)*UV(4246)+JVS(52244)*UV(4248)+JVS(52245)*UV(4249)+JVS(52246)*UV(4251)+JVS(52247)*UV(4252)& - &+JVS(52248)*UV(4253)+JVS(52249)*UV(4254)+JVS(52250)*UV(4255)+JVS(52251)*UV(4256)+JVS(52252)*UV(4257)& - &+JVS(52253)*UV(4259)+JVS(52254)*UV(4260)+JVS(52255)*UV(4261)+JVS(52256)*UV(4262)+JVS(52257)*UV(4263)& - &+JVS(52258)*UV(4265)+JVS(52259)*UV(4266)+JVS(52260)*UV(4267)+JVS(52261)*UV(4268)+JVS(52262)*UV(4269)& - &+JVS(52263)*UV(4270)+JVS(52264)*UV(4271)+JVS(52265)*UV(4272)+JVS(52266)*UV(4273)+JVS(52267)*UV(4274)& - &+JVS(52268)*UV(4275)+JVS(52269)*UV(4276)+JVS(52270)*UV(4277)+JVS(52271)*UV(4278)+JVS(52272)*UV(4279)& - &+JVS(52273)*UV(4280)+JVS(52274)*UV(4281)+JVS(52275)*UV(4283)+JVS(52276)*UV(4284)+JVS(52277)*UV(4285)& - &+JVS(52278)*UV(4287)+JVS(52279)*UV(4288)+JVS(52280)*UV(4289)+JVS(52281)*UV(4290)+JVS(52282)*UV(4291)& - &+JVS(52283)*UV(4292)+JVS(52284)*UV(4293)+JVS(52285)*UV(4295)+JVS(52286)*UV(4296)+JVS(52287)*UV(4297)& - &+JVS(52288)*UV(4298)+JVS(52289)*UV(4299)+JVS(52290)*UV(4300)+JVS(52291)*UV(4301)+JVS(52292)*UV(4303)& - &+JVS(52293)*UV(4304)+JVS(52294)*UV(4305)+JVS(52295)*UV(4306)+JVS(52296)*UV(4307)+JVS(52297)*UV(4308)& - &+JVS(52298)*UV(4309)+JVS(52299)*UV(4310)+JVS(52300)*UV(4311)+JVS(52301)*UV(4312)+JVS(52302)*UV(4313)& - &+JVS(52303)*UV(4314)+JVS(52304)*UV(4315)+JVS(52305)*UV(4316)+JVS(52306)*UV(4317)+JVS(52307)*UV(4318)& - &+JVS(52308)*UV(4319)+JVS(52309)*UV(4321)+JVS(52310)*UV(4322)+JVS(52311)*UV(4323)+JVS(52312)*UV(4324)& - &+JVS(52313)*UV(4325)+JVS(52314)*UV(4326)+JVS(52315)*UV(4327)+JVS(52316)*UV(4328)+JVS(52317)*UV(4329)& - &+JVS(52320)*UV(4333)+JVS(52321)*UV(4334)+JVS(52322)*UV(4335)+JVS(52323)*UV(4336)+JVS(52324)*UV(4337)& - &+JVS(52325)*UV(4338)+JVS(52326)*UV(4339)+JVS(52327)*UV(4340)+JVS(52328)*UV(4341)+JVS(52329)*UV(4342)& - &+JVS(52330)*UV(4343)+JVS(52331)*UV(4344)+JVS(52332)*UV(4345)+JVS(52333)*UV(4346)+JVS(52334)*UV(4347)& - &+JVS(52335)*UV(4348)+JVS(52336)*UV(4349)+JVS(52337)*UV(4350)+JVS(52338)*UV(4351)+JVS(52339)*UV(4353)& - &+JVS(52340)*UV(4354)+JVS(52341)*UV(4355)+JVS(52342)*UV(4356)+JVS(52343)*UV(4357)+JVS(52344)*UV(4358)& - &+JVS(52345)*UV(4359)+JVS(52346)*UV(4360)+JVS(52347)*UV(4361)+JVS(52348)*UV(4362)+JVS(52349)*UV(4363)& - &+JVS(52350)*UV(4364)+JVS(52351)*UV(4365)+JVS(52352)*UV(4366)+JVS(52353)*UV(4367)+JVS(52354)*UV(4368)& - &+JVS(52355)*UV(4369)+JVS(52356)*UV(4370)+JVS(52357)*UV(4371)+JVS(52358)*UV(4372)+JVS(52359)*UV(4373)& - &+JVS(52360)*UV(4374)+JVS(52361)*UV(4375)+JVS(52362)*UV(4376)+JVS(52363)*UV(4377)+JVS(52364)*UV(4378)& - &+JVS(52366)*UV(4380)+JVS(52367)*UV(4381)+JVS(52368)*UV(4382)+JVS(52369)*UV(4384)+JVS(52370)*UV(4385)& - &+JVS(52371)*UV(4386)+JVS(52372)*UV(4387)+JVS(52373)*UV(4388)+JVS(52374)*UV(4389)+JVS(52375)*UV(4390)& - &+JVS(52376)*UV(4391)+JVS(52377)*UV(4392)+JVS(52378)*UV(4393)+JVS(52379)*UV(4394)+JVS(52381)*UV(4396)& - &+JVS(52382)*UV(4397)+JVS(52383)*UV(4398)+JVS(52384)*UV(4399)+JVS(52385)*UV(4400)+JVS(52386)*UV(4401)& - &+JVS(52388)*UV(4403)+JVS(52389)*UV(4404)+JVS(52390)*UV(4405)+JVS(52391)*UV(4406)+JVS(52394)*UV(4409)& - &+JVS(52395)*UV(4410)+JVS(52396)*UV(4411)+JVS(52397)*UV(4412)+JVS(52399)*UV(4414)+JVS(52400)*UV(4415)& - &+JVS(52401)*UV(4416)+JVS(52402)*UV(4417)+JVS(52403)*UV(4418)+JVS(52404)*UV(4419)+JVS(52405)*UV(4420)& - &+JVS(52406)*UV(4421)+JVS(52407)*UV(4422)+JVS(52408)*UV(4423)+JVS(52409)*UV(4424)+JVS(52410)*UV(4425)& - &+JVS(52411)*UV(4426)+JVS(52412)*UV(4427)+JVS(52413)*UV(4428)+JVS(52414)*UV(4429)+JVS(52415)*UV(4430)& - &+JVS(52416)*UV(4431)+JVS(52417)*UV(4432)+JVS(52418)*UV(4433)+JVS(52419)*UV(4434)+JVS(52420)*UV(4435)& - &+JVS(52421)*UV(4436)+JVS(52424)*UV(4439)+JVS(52425)*UV(4440)+JVS(52426)*UV(4441)+JVS(52427)*UV(4442)& - &+JVS(52428)*UV(4443)+JVS(52430)*UV(4445)+JVS(52431)*UV(4446)+JVS(52432)*UV(4447)+JVS(52433)*UV(4448)& - &+JVS(52434)*UV(4449)+JVS(52435)*UV(4450)+JVS(52436)*UV(4451)+JVS(52437)*UV(4452)+JVS(52440)*UV(4455)& - &+JVS(52441)*UV(4456)+JVS(52443)*UV(4458)+JVS(52444)*UV(4459)+JVS(52445)*UV(4460)+JVS(52446)*UV(4461)& - &+JVS(52447)*UV(4462)+JVS(52448)*UV(4463)+JVS(52449)*UV(4464)+JVS(52450)*UV(4465)+JVS(52452)*UV(4467)& - &+JVS(52453)*UV(4468)+JVS(52454)*UV(4469)+JVS(52455)*UV(4470)+JVS(52457)*UV(4472)+JVS(52458)*UV(4473)& - &+JVS(52461)*UV(4476)+JVS(52462)*UV(4477)+JVS(52465)*UV(4480)+JVS(52466)*UV(4481)+JVS(52467)*UV(4482)& - &+JVS(52468)*UV(4483)+JVS(52469)*UV(4484)+JVS(52470)*UV(4485)+JVS(52471)*UV(4486)+JVS(52473)*UV(4488)& - &+JVS(52474)*UV(4489)+JVS(52475)*UV(4490)+JVS(52476)*UV(4491)+JVS(52480)*UV(4496)+JVS(52481)*UV(4497)& - &+JVS(52482)*UV(4498)+JVS(52484)*UV(4500)+JVS(52485)*UV(4501)+JVS(52486)*UV(4502)+JVS(52487)*UV(4503)& - &+JVS(52490)*UV(4506)+JVS(52493)*UV(4510)+JVS(52494)*UV(4511)+JVS(52496)*UV(4513)+JVS(52498)*UV(4515)& - &+JVS(52499)*UV(4516)+JVS(52500)*UV(4517)+JVS(52501)*UV(4518)+JVS(52502)*UV(4519)+JVS(52503)*UV(4520)& - &+JVS(52504)*UV(4521)+JVS(52505)*UV(4522)+JVS(52506)*UV(4523)+JVS(52507)*UV(4524)+JVS(52508)*UV(4525)& - &+JVS(52510)*UV(4528)+JVS(52511)*UV(4529)+JVS(52512)*UV(4530)+JVS(52514)*UV(4532)+JVS(52515)*UV(4533)& - &+JVS(52516)*UV(4534)+JVS(52517)*UV(4535)+JVS(52518)*UV(4536)+JVS(52519)*UV(4537)+JVS(52520)*UV(4538)& - &+JVS(52521)*UV(4539)+JVS(52522)*UV(4540)+JVS(52523)*UV(4541)+JVS(52524)*UV(4542)+JVS(52525)*UV(4543)& - &+JVS(52526)*UV(4545)+JVS(52527)*UV(4546)+JVS(52528)*UV(4547)+JVS(52529)*UV(4548)+JVS(52530)*UV(4549)& - &+JVS(52531)*UV(4550)+JVS(52532)*UV(4552)+JVS(52533)*UV(4553)+JVS(52534)*UV(4554)+JVS(52536)*UV(4557)& - &+JVS(52537)*UV(4558)+JVS(52538)*UV(4559)+JVS(52539)*UV(4560)+JVS(52540)*UV(4561)+JVS(52541)*UV(4562)& - &+JVS(52542)*UV(4563)+JVS(52543)*UV(4564)+JVS(52544)*UV(4565)+JVS(52545)*UV(4566)+JVS(52546)*UV(4567)& - &+JVS(52547)*UV(4568)+JVS(52548)*UV(4569)+JVS(52549)*UV(4570)+JVS(52550)*UV(4571)+JVS(52551)*UV(4572)& - &+JVS(52552)*UV(4573)+JVS(52553)*UV(4574)+JVS(52554)*UV(4575)+JVS(52555)*UV(4576)+JVS(52556)*UV(4577)& - &+JVS(52557)*UV(4578)+JVS(52558)*UV(4579)+JVS(52559)*UV(4580)+JVS(52560)*UV(4581)+JVS(52561)*UV(4582)& - &+JVS(52562)*UV(4583)+JVS(52563)*UV(4584)+JVS(52564)*UV(4585)+JVS(52565)*UV(4586)+JVS(52566)*UV(4587)& - &+JVS(52567)*UV(4588)+JVS(52568)*UV(4589)+JVS(52569)*UV(4590)+JVS(52570)*UV(4591)+JVS(52571)*UV(4592)& - &+JVS(52572)*UV(4593)+JVS(52573)*UV(4594)+JVS(52574)*UV(4595)+JVS(52575)*UV(4596)+JVS(52576)*UV(4597)& - &+JVS(52577)*UV(4598)+JVS(52578)*UV(4599)+JVS(52581)*UV(4602)+JVS(52582)*UV(4603)+JVS(52586)*UV(4607)& - &+JVS(52587)*UV(4608)+JVS(52588)*UV(4609)+JVS(52589)*UV(4610)+JVS(52590)*UV(4611)+JVS(52591)*UV(4612)& - &+JVS(52592)*UV(4613)+JVS(52593)*UV(4614)+JVS(52595)*UV(4616)+JVS(52596)*UV(4617)+JVS(52597)*UV(4619)& - &+JVS(52598)*UV(4620)+JVS(52599)*UV(4622)+JVS(52600)*UV(4623)+JVS(52601)*UV(4624)+JVS(52602)*UV(4625)& - &+JVS(52603)*UV(4626)+JVS(52604)*UV(4627)+JVS(52605)*UV(4628)+JVS(52606)*UV(4629)+JVS(52607)*UV(4630)& - &+JVS(52608)*UV(4631)+JVS(52610)*UV(4633)+JVS(52611)*UV(4634)+JVS(52612)*UV(4635)+JVS(52613)*UV(4636)& - &+JVS(52615)*UV(4638)+JVS(52617)*UV(4640)+JVS(52618)*UV(4641)+JVS(52619)*UV(4642)+JVS(52620)*UV(4643)& - &+JVS(52621)*UV(4644)+JVS(52622)*UV(4645)+JVS(52623)*UV(4646)+JVS(52624)*UV(4647)+JVS(52625)*UV(4648)& - &+JVS(52626)*UV(4649)+JVS(52628)*UV(4651)+JVS(52629)*UV(4652)+JVS(52630)*UV(4653)+JVS(52631)*UV(4654)& - &+JVS(52632)*UV(4655)+JVS(52633)*UV(4656)+JVS(52634)*UV(4657)+JVS(52635)*UV(4658)+JVS(52636)*UV(4659)& - &+JVS(52637)*UV(4660)+JVS(52638)*UV(4661)+JVS(52639)*UV(4662)+JVS(52641)*UV(4664)+JVS(52642)*UV(4665)& - &+JVS(52643)*UV(4666)+JVS(52644)*UV(4667)+JVS(52645)*UV(4669)+JVS(52648)*UV(4672)+JVS(52649)*UV(4673)& - &+JVS(52650)*UV(4674)+JVS(52651)*UV(4675)+JVS(52653)*UV(4679)+JVS(52654)*UV(4680)+JVS(52655)*UV(4681)& - &+JVS(52657)*UV(4683)+JVS(52658)*UV(4684)+JVS(52659)*UV(4685)+JVS(52660)*UV(4686)+JVS(52661)*UV(4687)& - &+JVS(52662)*UV(4688)+JVS(52663)*UV(4689)+JVS(52665)*UV(4692)+JVS(52666)*UV(4693)+JVS(52667)*UV(4694)& - &+JVS(52668)*UV(4695)+JVS(52669)*UV(4696)+JVS(52670)*UV(4697)+JVS(52671)*UV(4698)+JVS(52672)*UV(4699)& - &+JVS(52673)*UV(4700)+JVS(52674)*UV(4701)+JVS(52675)*UV(4702)+JVS(52676)*UV(4703)+JVS(52677)*UV(4704)& - &+JVS(52678)*UV(4705)+JVS(52679)*UV(4706)+JVS(52680)*UV(4707)+JVS(52681)*UV(4708)+JVS(52682)*UV(4709)& - &+JVS(52683)*UV(4710)+JVS(52684)*UV(4711)+JVS(52685)*UV(4712)+JVS(52686)*UV(4713)+JVS(52687)*UV(4714)& - &+JVS(52688)*UV(4715)+JVS(52689)*UV(4716)+JVS(52690)*UV(4717)+JVS(52691)*UV(4718)+JVS(52692)*UV(4719)& - &+JVS(52693)*UV(4720)+JVS(52694)*UV(4721)+JVS(52695)*UV(4722)+JVS(52696)*UV(4723)+JVS(52697)*UV(4724)& - &+JVS(52698)*UV(4725)+JVS(52699)*UV(4726)+JVS(52700)*UV(4727)+JVS(52701)*UV(4728)+JVS(52702)*UV(4729)& - &+JVS(52703)*UV(4730)+JVS(52704)*UV(4731)+JVS(52705)*UV(4732)+JVS(52706)*UV(4733)+JVS(52707)*UV(4734)& - &+JVS(52708)*UV(4735)+JVS(52710)*UV(4737)+JVS(52711)*UV(4738)+JVS(52712)*UV(4739)+JVS(52713)*UV(4740)& - &+JVS(52714)*UV(4742)+JVS(52715)*UV(4743)+JVS(52716)*UV(4744)+JVS(52717)*UV(4745)+JVS(52718)*UV(4746)& - &+JVS(52719)*UV(4747)+JVS(52720)*UV(4748)+JVS(52721)*UV(4749)+JVS(52722)*UV(4750)+JVS(52723)*UV(4751)& - &+JVS(52724)*UV(4752)+JVS(52725)*UV(4753)+JVS(52726)*UV(4754)+JVS(52727)*UV(4755)+JVS(52728)*UV(4756)& - &+JVS(52729)*UV(4758)+JVS(52730)*UV(4759)+JVS(52731)*UV(4760)+JVS(52732)*UV(4761)+JVS(52733)*UV(4762)& - &+JVS(52734)*UV(4763)+JVS(52735)*UV(4764)+JVS(52736)*UV(4765)+JVS(52737)*UV(4766)+JVS(52738)*UV(4767)& - &+JVS(52739)*UV(4768)+JVS(52740)*UV(4769)+JVS(52741)*UV(4770)+JVS(52742)*UV(4771)+JVS(52743)*UV(4772)& - &+JVS(52744)*UV(4773)+JVS(52745)*UV(4774)+JVS(52746)*UV(4775)+JVS(52748)*UV(4777)+JVS(52749)*UV(4778)& - &+JVS(52750)*UV(4779)+JVS(52751)*UV(4780)+JVS(52752)*UV(4781)+JVS(52753)*UV(4782)+JVS(52754)*UV(4783)& - &+JVS(52755)*UV(4784)+JVS(52756)*UV(4785)+JVS(52758)*UV(4787)+JVS(52760)*UV(4789)+JVS(52763)*UV(4792)& - &+JVS(52765)*UV(4794)+JVS(52766)*UV(4795)+JVS(52767)*UV(4796)+JVS(52770)*UV(4799)+JVS(52771)*UV(4800)& - &+JVS(52772)*UV(4802)+JVS(52773)*UV(4803)+JVS(52774)*UV(4804)+JVS(52776)*UV(4806)+JVS(52777)*UV(4807)& - &+JVS(52778)*UV(4808)+JVS(52779)*UV(4809)+JVS(52781)*UV(4811)+JVS(52782)*UV(4812)+JVS(52783)*UV(4813)& - &+JVS(52784)*UV(4814)+JVS(52785)*UV(4815)+JVS(52786)*UV(4816)+JVS(52787)*UV(4817)+JVS(52788)*UV(4818)& - &+JVS(52790)*UV(4820)+JVS(52791)*UV(4821)+JVS(52792)*UV(4822)+JVS(52793)*UV(4823)+JVS(52795)*UV(4825)& - &+JVS(52796)*UV(4826)+JVS(52797)*UV(4827)+JVS(52799)*UV(4829)+JVS(52800)*UV(4830)+JVS(52801)*UV(4831)& - &+JVS(52802)*UV(4832)+JVS(52803)*UV(4833)+JVS(52804)*UV(4834)+JVS(52805)*UV(4835)+JVS(52806)*UV(4836)& - &+JVS(52807)*UV(4837)+JVS(52808)*UV(4839)+JVS(52809)*UV(4840)+JVS(52810)*UV(4841)+JVS(52811)*UV(4842)& - &+JVS(52812)*UV(4844)+JVS(52814)*UV(4846)+JVS(52815)*UV(4847)+JVS(52816)*UV(4848)+JVS(52817)*UV(4849)& - &+JVS(52818)*UV(4850)+JVS(52819)*UV(4851)+JVS(52820)*UV(4852)+JVS(52821)*UV(4853)+JVS(52822)*UV(4854)& - &+JVS(52823)*UV(4855)+JVS(52824)*UV(4856)+JVS(52825)*UV(4857)+JVS(52826)*UV(4858)+JVS(52828)*UV(4860)& - &+JVS(52829)*UV(4861)+JVS(52830)*UV(4862)+JVS(52831)*UV(4863)+JVS(52832)*UV(4864)+JVS(52834)*UV(4866)& - &+JVS(52835)*UV(4867)+JVS(52836)*UV(4870)+JVS(52837)*UV(4871)+JVS(52838)*UV(4872)+JVS(52839)*UV(4873)& - &+JVS(52840)*UV(4874)+JVS(52841)*UV(4875)+JVS(52842)*UV(4876)+JVS(52843)*UV(4877)+JVS(52844)*UV(4878)& - &+JVS(52845)*UV(4879)+JVS(52846)*UV(4880)+JVS(52847)*UV(4881)+JVS(52848)*UV(4882)+JVS(52849)*UV(4883)& - &+JVS(52850)*UV(4884)+JVS(52851)*UV(4885)+JVS(52852)*UV(4886)+JVS(52853)*UV(4887)+JVS(52854)*UV(4888)& - &+JVS(52855)*UV(4889)+JVS(52856)*UV(4890)+JVS(52857)*UV(4891)+JVS(52858)*UV(4892)+JVS(52859)*UV(4893)& - &+JVS(52860)*UV(4894)+JVS(52863)*UV(4897)+JVS(52864)*UV(4898)+JVS(52865)*UV(4899)+JVS(52866)*UV(4900)& - &+JVS(52867)*UV(4901)+JVS(52868)*UV(4902)+JVS(52869)*UV(4903)+JVS(52870)*UV(4904)+JVS(52871)*UV(4905)& - &+JVS(52874)*UV(4910)+JVS(52875)*UV(4911)+JVS(52877)*UV(4913)+JVS(52878)*UV(4914)+JVS(52879)*UV(4915)& - &+JVS(52880)*UV(4916)+JVS(52881)*UV(4917)+JVS(52882)*UV(4918)+JVS(52884)*UV(4920)+JVS(52885)*UV(4921)& - &+JVS(52886)*UV(4922)+JVS(52887)*UV(4923)+JVS(52888)*UV(4924)+JVS(52889)*UV(4925)+JVS(52890)*UV(4926)& - &+JVS(52892)*UV(4928)+JVS(52893)*UV(4929)+JVS(52894)*UV(4930)+JVS(52895)*UV(4931)+JVS(52896)*UV(4932)& - &+JVS(52897)*UV(4933)+JVS(52898)*UV(4934)+JVS(52899)*UV(4935)+JVS(52900)*UV(4936)+JVS(52901)*UV(4937)& - &+JVS(52902)*UV(4939)+JVS(52903)*UV(4940)+JVS(52904)*UV(4942)+JVS(52905)*UV(4944)+JVS(52906)*UV(4945)& - &+JVS(52907)*UV(4946)+JVS(52908)*UV(4947)+JVS(52909)*UV(4948)+JVS(52910)*UV(4949)+JVS(52911)*UV(4950)& - &+JVS(52914)*UV(4953)+JVS(52915)*UV(4954)+JVS(52916)*UV(4955)+JVS(52917)*UV(4957)+JVS(52919)*UV(4959)& - &+JVS(52920)*UV(4960)+JVS(52921)*UV(4961)+JVS(52922)*UV(4962)+JVS(52923)*UV(4964)+JVS(52925)*UV(4966)& - &+JVS(52926)*UV(4967)+JVS(52927)*UV(4968)+JVS(52928)*UV(4969)+JVS(52930)*UV(4971)+JVS(52931)*UV(4972)& - &+JVS(52932)*UV(4973)+JVS(52933)*UV(4974)+JVS(52934)*UV(4975)+JVS(52936)*UV(4977)+JVS(52937)*UV(4978)& - &+JVS(52938)*UV(4979)+JVS(52939)*UV(4980)+JVS(52940)*UV(4981)+JVS(52941)*UV(4982)+JVS(52942)*UV(4983)& - &+JVS(52943)*UV(4984)+JVS(52944)*UV(4985)+JVS(52945)*UV(4986)+JVS(52946)*UV(4987)+JVS(52948)*UV(4989)& - &+JVS(52949)*UV(4990)+JVS(52950)*UV(4991)+JVS(52951)*UV(4992)+JVS(52952)*UV(4993)+JVS(52953)*UV(4994)& - &+JVS(52954)*UV(4995)+JVS(52955)*UV(4996)+JVS(52959)*UV(5000)+JVS(52960)*UV(5001)+JVS(52961)*UV(5002)& - &+JVS(52962)*UV(5003)+JVS(52963)*UV(5004)+JVS(52964)*UV(5005)+JVS(52965)*UV(5006)+JVS(52966)*UV(5007)& - &+JVS(52967)*UV(5008)+JVS(52968)*UV(5009)+JVS(52969)*UV(5010)+JVS(52970)*UV(5011)+JVS(52971)*UV(5012)& - &+JVS(52973)*UV(5014)+JVS(52974)*UV(5015)+JVS(52975)*UV(5016)+JVS(52976)*UV(5017)+JVS(52977)*UV(5018)& - &+JVS(52978)*UV(5019)+JVS(52979)*UV(5020)+JVS(52980)*UV(5021)+JVS(52981)*UV(5022)+JVS(52982)*UV(5023)& - &+JVS(52984)*UV(5025)+JVS(52985)*UV(5026)+JVS(52986)*UV(5027)+JVS(52987)*UV(5028)+JVS(52988)*UV(5029)& - &+JVS(52989)*UV(5030)+JVS(52991)*UV(5032)+JVS(52992)*UV(5033)+JVS(52993)*UV(5034)+JVS(52994)*UV(5035)& - &+JVS(52995)*UV(5036)+JVS(52996)*UV(5037)+JVS(52997)*UV(5038)+JVS(52998)*UV(5039)+JVS(53000)*UV(5041)& - &+JVS(53001)*UV(5042)+JVS(53002)*UV(5043)+JVS(53003)*UV(5044)+JVS(53004)*UV(5045)+JVS(53005)*UV(5046)& - &+JVS(53008)*UV(5049)+JVS(53009)*UV(5050)+JVS(53011)*UV(5052)+JVS(53012)*UV(5053)+JVS(53013)*UV(5054)& - &+JVS(53014)*UV(5055)+JVS(53015)*UV(5056)+JVS(53016)*UV(5057)+JVS(53017)*UV(5058)+JVS(53018)*UV(5059)& - &+JVS(53019)*UV(5060)+JVS(53020)*UV(5061)+JVS(53021)*UV(5062)+JVS(53022)*UV(5063)+JVS(53023)*UV(5064)& - &+JVS(53024)*UV(5065)+JVS(53025)*UV(5066)+JVS(53026)*UV(5067)+JVS(53027)*UV(5068)+JVS(53028)*UV(5069)& - &+JVS(53030)*UV(5071)+JVS(53031)*UV(5072)+JVS(53032)*UV(5073)+JVS(53033)*UV(5074)+JVS(53034)*UV(5075)& - &+JVS(53035)*UV(5076)+JVS(53036)*UV(5077)+JVS(53037)*UV(5078)+JVS(53038)*UV(5079)+JVS(53039)*UV(5080)& - &+JVS(53040)*UV(5081)+JVS(53041)*UV(5082)+JVS(53042)*UV(5083)+JVS(53043)*UV(5084)+JVS(53044)*UV(5085)& - &+JVS(53045)*UV(5086)+JVS(53046)*UV(5087)+JVS(53047)*UV(5088)+JVS(53048)*UV(5089)+JVS(53049)*UV(5090)& - &+JVS(53050)*UV(5091)+JVS(53052)*UV(5093)+JVS(53053)*UV(5094)+JVS(53054)*UV(5095)+JVS(53055)*UV(5096)& - &+JVS(53056)*UV(5097)+JVS(53057)*UV(5098)+JVS(53058)*UV(5099)+JVS(53059)*UV(5100)+JVS(53060)*UV(5101)& - &+JVS(53062)*UV(5103)+JVS(53063)*UV(5104)+JVS(53064)*UV(5105)+JVS(53065)*UV(5106)+JVS(53066)*UV(5107)& - &+JVS(53067)*UV(5108)+JVS(53068)*UV(5109)+JVS(53070)*UV(5111)+JVS(53071)*UV(5112)+JVS(53072)*UV(5113)& - &+JVS(53073)*UV(5114)+JVS(53074)*UV(5115)+JVS(53075)*UV(5116)+JVS(53076)*UV(5117)+JVS(53077)*UV(5118)& - &+JVS(53078)*UV(5119)+JVS(53079)*UV(5120)+JVS(53080)*UV(5121)+JVS(53081)*UV(5122)+JVS(53082)*UV(5123)& - &+JVS(53084)*UV(5125)+JVS(53085)*UV(5126)+JVS(53086)*UV(5127)+JVS(53087)*UV(5128)+JVS(53088)*UV(5129)& - &+JVS(53089)*UV(5130)+JVS(53090)*UV(5131)+JVS(53091)*UV(5132)+JVS(53092)*UV(5133)+JVS(53093)*UV(5134)& - &+JVS(53094)*UV(5135)+JVS(53095)*UV(5136)+JVS(53096)*UV(5137)+JVS(53097)*UV(5138)+JVS(53098)*UV(5139)& - &+JVS(53099)*UV(5140)+JVS(53100)*UV(5141)+JVS(53101)*UV(5142)+JVS(53102)*UV(5143)+JVS(53103)*UV(5144)& - &+JVS(53104)*UV(5145)+JVS(53105)*UV(5146)+JVS(53106)*UV(5147)+JVS(53107)*UV(5148)+JVS(53108)*UV(5149)& - &+JVS(53109)*UV(5150)+JVS(53110)*UV(5151)+JVS(53111)*UV(5152)+JVS(53113)*UV(5154)+JVS(53114)*UV(5155)& - &+JVS(53117)*UV(5158)+JVS(53118)*UV(5159)+JVS(53119)*UV(5161)+JVS(53120)*UV(5162)+JVS(53121)*UV(5163)& - &+JVS(53122)*UV(5164)+JVS(53123)*UV(5165)+JVS(53124)*UV(5166)+JVS(53125)*UV(5167)+JVS(53127)*UV(5169)& - &+JVS(53129)*UV(5171)+JVS(53130)*UV(5172)+JVS(53131)*UV(5173)+JVS(53132)*UV(5174)+JVS(53134)*UV(5176)& - &+JVS(53135)*UV(5177)+JVS(53137)*UV(5179)+JVS(53139)*UV(5181)+JVS(53140)*UV(5182)+JVS(53141)*UV(5183)& - &+JVS(53142)*UV(5184)+JVS(53143)*UV(5185)+JVS(53144)*UV(5186)+JVS(53146)*UV(5188)+JVS(53147)*UV(5189)& - &+JVS(53149)*UV(5191)+JVS(53150)*UV(5192)+JVS(53151)*UV(5193)+JVS(53152)*UV(5194)+JVS(53153)*UV(5195)& - &+JVS(53154)*UV(5196)+JVS(53155)*UV(5197)+JVS(53156)*UV(5198)+JVS(53157)*UV(5199)+JVS(53159)*UV(5202)& - &+JVS(53160)*UV(5203)+JVS(53161)*UV(5204)+JVS(53162)*UV(5205)+JVS(53163)*UV(5206)+JVS(53164)*UV(5207)& - &+JVS(53165)*UV(5208)+JVS(53166)*UV(5209)+JVS(53167)*UV(5210)+JVS(53168)*UV(5211)+JVS(53169)*UV(5212)& - &+JVS(53170)*UV(5213)+JVS(53171)*UV(5214)+JVS(53173)*UV(5216)+JVS(53174)*UV(5217)+JVS(53175)*UV(5218)& - &+JVS(53176)*UV(5219)+JVS(53177)*UV(5220)+JVS(53178)*UV(5221)+JVS(53179)*UV(5222)+JVS(53181)*UV(5224)& - &+JVS(53182)*UV(5225)+JVS(53183)*UV(5226)+JVS(53184)*UV(5227)+JVS(53185)*UV(5228)+JVS(53186)*UV(5229)& - &+JVS(53187)*UV(5230)+JVS(53188)*UV(5231)+JVS(53189)*UV(5232)+JVS(53190)*UV(5233)+JVS(53191)*UV(5234)& - &+JVS(53192)*UV(5235)+JVS(53193)*UV(5236)+JVS(53194)*UV(5237)+JVS(53196)*UV(5239)+JVS(53197)*UV(5240)& - &+JVS(53198)*UV(5241)+JVS(53200)*UV(5243)+JVS(53201)*UV(5244)+JVS(53202)*UV(5245)+JVS(53203)*UV(5246)& - &+JVS(53204)*UV(5247)+JVS(53205)*UV(5248)+JVS(53207)*UV(5250)+JVS(53208)*UV(5251)+JVS(53209)*UV(5252)& - &+JVS(53210)*UV(5253)+JVS(53212)*UV(5255)+JVS(53213)*UV(5256)+JVS(53214)*UV(5257)+JVS(53215)*UV(5258) - JUV(5256) = JVS(53216)*UV(137)+JVS(53217)*UV(668)+JVS(53218)*UV(1573)+JVS(53219)*UV(1580)+JVS(53220)*UV(1775)& - &+JVS(53221)*UV(1805)+JVS(53222)*UV(1845)+JVS(53223)*UV(1936)+JVS(53224)*UV(2048)+JVS(53225)*UV(2054)& - &+JVS(53226)*UV(2167)+JVS(53227)*UV(2274)+JVS(53228)*UV(2281)+JVS(53229)*UV(2390)+JVS(53230)*UV(2398)& - &+JVS(53231)*UV(2420)+JVS(53232)*UV(2464)+JVS(53233)*UV(2635)+JVS(53234)*UV(2705)+JVS(53235)*UV(2957)& - &+JVS(53236)*UV(3045)+JVS(53237)*UV(3084)+JVS(53238)*UV(3085)+JVS(53239)*UV(3087)+JVS(53240)*UV(3088)& - &+JVS(53241)*UV(3092)+JVS(53242)*UV(3093)+JVS(53243)*UV(3095)+JVS(53244)*UV(3096)+JVS(53245)*UV(3097)& - &+JVS(53246)*UV(3098)+JVS(53247)*UV(3100)+JVS(53248)*UV(3101)+JVS(53249)*UV(3105)+JVS(53250)*UV(3111)& - &+JVS(53251)*UV(3112)+JVS(53252)*UV(3113)+JVS(53253)*UV(3114)+JVS(53254)*UV(3116)+JVS(53255)*UV(3119)& - &+JVS(53256)*UV(3120)+JVS(53257)*UV(3123)+JVS(53258)*UV(3125)+JVS(53259)*UV(3127)+JVS(53260)*UV(3129)& - &+JVS(53261)*UV(3130)+JVS(53262)*UV(3131)+JVS(53263)*UV(3134)+JVS(53264)*UV(3135)+JVS(53265)*UV(3136)& - &+JVS(53266)*UV(3137)+JVS(53267)*UV(3138)+JVS(53268)*UV(3139)+JVS(53269)*UV(3140)+JVS(53270)*UV(3142)& - &+JVS(53271)*UV(3143)+JVS(53272)*UV(3144)+JVS(53273)*UV(3145)+JVS(53274)*UV(3146)+JVS(53275)*UV(3149)& - &+JVS(53276)*UV(3150)+JVS(53277)*UV(3152)+JVS(53278)*UV(3153)+JVS(53279)*UV(3157)+JVS(53280)*UV(3158)& - &+JVS(53281)*UV(3161)+JVS(53282)*UV(3162)+JVS(53283)*UV(3163)+JVS(53284)*UV(3164)+JVS(53285)*UV(3165)& - &+JVS(53286)*UV(3167)+JVS(53287)*UV(3169)+JVS(53288)*UV(3170)+JVS(53289)*UV(3172)+JVS(53290)*UV(3178)& - &+JVS(53291)*UV(3179)+JVS(53292)*UV(3180)+JVS(53293)*UV(3181)+JVS(53294)*UV(3182)+JVS(53295)*UV(3187)& - &+JVS(53296)*UV(3189)+JVS(53297)*UV(3190)+JVS(53298)*UV(3191)+JVS(53299)*UV(3192)+JVS(53300)*UV(3193)& - &+JVS(53301)*UV(3197)+JVS(53302)*UV(3204)+JVS(53303)*UV(3219)+JVS(53304)*UV(3224)+JVS(53305)*UV(3244)& - &+JVS(53306)*UV(3248)+JVS(53307)*UV(3254)+JVS(53308)*UV(3257)+JVS(53309)*UV(3263)+JVS(53310)*UV(3324)& - &+JVS(53311)*UV(3392)+JVS(53312)*UV(3401)+JVS(53313)*UV(3437)+JVS(53314)*UV(3442)+JVS(53315)*UV(3454)& - &+JVS(53316)*UV(3465)+JVS(53317)*UV(3466)+JVS(53318)*UV(3470)+JVS(53319)*UV(3471)+JVS(53320)*UV(3472)& - &+JVS(53321)*UV(3481)+JVS(53322)*UV(3482)+JVS(53323)*UV(3483)+JVS(53324)*UV(3484)+JVS(53325)*UV(3488)& - &+JVS(53326)*UV(3489)+JVS(53327)*UV(3491)+JVS(53328)*UV(3492)+JVS(53329)*UV(3494)+JVS(53330)*UV(3496)& - &+JVS(53331)*UV(3499)+JVS(53332)*UV(3503)+JVS(53333)*UV(3506)+JVS(53334)*UV(3507)+JVS(53335)*UV(3508)& - &+JVS(53336)*UV(3509)+JVS(53337)*UV(3510)+JVS(53338)*UV(3511)+JVS(53339)*UV(3512)+JVS(53340)*UV(3513)& - &+JVS(53341)*UV(3518)+JVS(53342)*UV(3519)+JVS(53343)*UV(3521)+JVS(53344)*UV(3523)+JVS(53345)*UV(3525)& - &+JVS(53346)*UV(3526)+JVS(53347)*UV(3527)+JVS(53348)*UV(3531)+JVS(53349)*UV(3532)+JVS(53350)*UV(3534)& - &+JVS(53351)*UV(3538)+JVS(53352)*UV(3539)+JVS(53353)*UV(3543)+JVS(53354)*UV(3545)+JVS(53355)*UV(3546)& - &+JVS(53356)*UV(3551)+JVS(53357)*UV(3553)+JVS(53358)*UV(3554)+JVS(53359)*UV(3560)+JVS(53360)*UV(3562)& - &+JVS(53361)*UV(3568)+JVS(53362)*UV(3627)+JVS(53363)*UV(3631)+JVS(53364)*UV(3632)+JVS(53365)*UV(3633)& - &+JVS(53366)*UV(3634)+JVS(53367)*UV(3636)+JVS(53368)*UV(3637)+JVS(53369)*UV(3640)+JVS(53370)*UV(3641)& - &+JVS(53371)*UV(3643)+JVS(53372)*UV(3645)+JVS(53373)*UV(3648)+JVS(53374)*UV(3649)+JVS(53375)*UV(3650)& - &+JVS(53376)*UV(3654)+JVS(53377)*UV(3655)+JVS(53378)*UV(3657)+JVS(53379)*UV(3658)+JVS(53380)*UV(3659)& - &+JVS(53381)*UV(3660)+JVS(53382)*UV(3661)+JVS(53383)*UV(3662)+JVS(53384)*UV(3663)+JVS(53385)*UV(3665)& - &+JVS(53386)*UV(3667)+JVS(53387)*UV(3668)+JVS(53388)*UV(3669)+JVS(53389)*UV(3670)+JVS(53390)*UV(3671)& - &+JVS(53391)*UV(3674)+JVS(53392)*UV(3675)+JVS(53393)*UV(3676)+JVS(53394)*UV(3677)+JVS(53395)*UV(3678)& - &+JVS(53396)*UV(3679)+JVS(53397)*UV(3680)+JVS(53398)*UV(3684)+JVS(53399)*UV(3685)+JVS(53400)*UV(3686)& - &+JVS(53401)*UV(3687)+JVS(53402)*UV(3688)+JVS(53403)*UV(3690)+JVS(53404)*UV(3691)+JVS(53405)*UV(3692)& - &+JVS(53406)*UV(3694)+JVS(53407)*UV(3695)+JVS(53408)*UV(3696)+JVS(53409)*UV(3697)+JVS(53410)*UV(3698)& - &+JVS(53411)*UV(3699)+JVS(53412)*UV(3701)+JVS(53413)*UV(3703)+JVS(53414)*UV(3704)+JVS(53415)*UV(3705)& - &+JVS(53416)*UV(3706)+JVS(53417)*UV(3710)+JVS(53418)*UV(3711)+JVS(53419)*UV(3713)+JVS(53420)*UV(3714)& - &+JVS(53421)*UV(3715)+JVS(53422)*UV(3717)+JVS(53423)*UV(3718)+JVS(53424)*UV(3719)+JVS(53425)*UV(3720)& - &+JVS(53426)*UV(3721)+JVS(53427)*UV(3722)+JVS(53428)*UV(3724)+JVS(53429)*UV(3725)+JVS(53430)*UV(3727)& - &+JVS(53431)*UV(3728)+JVS(53432)*UV(3730)+JVS(53433)*UV(3731)+JVS(53434)*UV(3733)+JVS(53435)*UV(3738)& - &+JVS(53436)*UV(3739)+JVS(53437)*UV(3740)+JVS(53438)*UV(3741)+JVS(53439)*UV(3743)+JVS(53440)*UV(3745)& - &+JVS(53441)*UV(3746)+JVS(53442)*UV(3748)+JVS(53443)*UV(3749)+JVS(53444)*UV(3750)+JVS(53445)*UV(3751)& - &+JVS(53446)*UV(3752)+JVS(53447)*UV(3753)+JVS(53448)*UV(3758)+JVS(53449)*UV(3760)+JVS(53450)*UV(3761)& - &+JVS(53451)*UV(3762)+JVS(53452)*UV(3764)+JVS(53453)*UV(3766)+JVS(53454)*UV(3768)+JVS(53455)*UV(3769)& - &+JVS(53456)*UV(3770)+JVS(53457)*UV(3771)+JVS(53458)*UV(3772)+JVS(53459)*UV(3773)+JVS(53460)*UV(3774)& - &+JVS(53461)*UV(3775)+JVS(53462)*UV(3776)+JVS(53463)*UV(3778)+JVS(53464)*UV(3781)+JVS(53465)*UV(3782)& - &+JVS(53466)*UV(3784)+JVS(53467)*UV(3785)+JVS(53468)*UV(3786)+JVS(53469)*UV(3788)+JVS(53470)*UV(3789)& - &+JVS(53471)*UV(3790)+JVS(53472)*UV(3791)+JVS(53473)*UV(3792)+JVS(53474)*UV(3794)+JVS(53475)*UV(3796)& - &+JVS(53476)*UV(3797)+JVS(53477)*UV(3798)+JVS(53478)*UV(3799)+JVS(53479)*UV(3801)+JVS(53480)*UV(3803)& - &+JVS(53481)*UV(3804)+JVS(53482)*UV(3806)+JVS(53483)*UV(3807)+JVS(53484)*UV(3808)+JVS(53485)*UV(3810)& - &+JVS(53486)*UV(3811)+JVS(53487)*UV(3813)+JVS(53488)*UV(3814)+JVS(53489)*UV(3815)+JVS(53490)*UV(3817)& - &+JVS(53491)*UV(3819)+JVS(53492)*UV(3820)+JVS(53493)*UV(3823)+JVS(53494)*UV(3825)+JVS(53495)*UV(3827)& - &+JVS(53496)*UV(3828)+JVS(53497)*UV(3830)+JVS(53498)*UV(3831)+JVS(53499)*UV(3833)+JVS(53500)*UV(3834)& - &+JVS(53501)*UV(3836)+JVS(53502)*UV(3837)+JVS(53503)*UV(3838)+JVS(53504)*UV(3839)+JVS(53505)*UV(3840)& - &+JVS(53506)*UV(3841)+JVS(53507)*UV(3844)+JVS(53508)*UV(3845)+JVS(53509)*UV(3846)+JVS(53510)*UV(3847)& - &+JVS(53511)*UV(3848)+JVS(53512)*UV(3849)+JVS(53513)*UV(3850)+JVS(53514)*UV(3851)+JVS(53515)*UV(3852)& - &+JVS(53516)*UV(3853)+JVS(53517)*UV(3854)+JVS(53518)*UV(3855)+JVS(53519)*UV(3856)+JVS(53520)*UV(3857)& - &+JVS(53521)*UV(3858)+JVS(53522)*UV(3859)+JVS(53523)*UV(3860)+JVS(53524)*UV(3861)+JVS(53525)*UV(3862)& - &+JVS(53526)*UV(3863)+JVS(53527)*UV(3864)+JVS(53528)*UV(3865)+JVS(53529)*UV(3866)+JVS(53530)*UV(3867)& - &+JVS(53531)*UV(3869)+JVS(53532)*UV(3870)+JVS(53533)*UV(3871)+JVS(53534)*UV(3872)+JVS(53535)*UV(3873)& - &+JVS(53536)*UV(3874)+JVS(53537)*UV(3875)+JVS(53538)*UV(3876)+JVS(53539)*UV(3877)+JVS(53540)*UV(3879)& - &+JVS(53541)*UV(3880)+JVS(53542)*UV(3881)+JVS(53543)*UV(3882)+JVS(53544)*UV(3883)+JVS(53545)*UV(3884)& - &+JVS(53546)*UV(3885)+JVS(53547)*UV(3886)+JVS(53548)*UV(3888)+JVS(53549)*UV(3889)+JVS(53550)*UV(3890)& - &+JVS(53551)*UV(3891)+JVS(53552)*UV(3892)+JVS(53553)*UV(3893)+JVS(53554)*UV(3894)+JVS(53555)*UV(3895)& - &+JVS(53556)*UV(3896)+JVS(53557)*UV(3898)+JVS(53558)*UV(3899)+JVS(53559)*UV(3900)+JVS(53560)*UV(3901)& - &+JVS(53561)*UV(3902)+JVS(53562)*UV(3903)+JVS(53563)*UV(3905)+JVS(53564)*UV(3907)+JVS(53565)*UV(3908)& - &+JVS(53566)*UV(3911)+JVS(53567)*UV(3912)+JVS(53569)*UV(3914)+JVS(53570)*UV(3915)+JVS(53571)*UV(3916)& - &+JVS(53572)*UV(3919)+JVS(53573)*UV(3920)+JVS(53574)*UV(3921)+JVS(53575)*UV(3923)+JVS(53576)*UV(3924)& - &+JVS(53577)*UV(3926)+JVS(53578)*UV(3927)+JVS(53579)*UV(3928)+JVS(53580)*UV(3932)+JVS(53581)*UV(3935)& - &+JVS(53582)*UV(3936)+JVS(53583)*UV(3937)+JVS(53584)*UV(3938)+JVS(53585)*UV(3939)+JVS(53586)*UV(3940)& - &+JVS(53587)*UV(3941)+JVS(53588)*UV(3943)+JVS(53589)*UV(3944)+JVS(53590)*UV(3945)+JVS(53591)*UV(3946)& - &+JVS(53592)*UV(3947)+JVS(53593)*UV(3948)+JVS(53594)*UV(3949)+JVS(53595)*UV(3950)+JVS(53596)*UV(3951)& - &+JVS(53597)*UV(3952)+JVS(53598)*UV(3953)+JVS(53599)*UV(3954)+JVS(53600)*UV(3955)+JVS(53601)*UV(3960)& - &+JVS(53602)*UV(3961)+JVS(53603)*UV(3962)+JVS(53604)*UV(3963)+JVS(53605)*UV(3964)+JVS(53606)*UV(3966)& - &+JVS(53607)*UV(3967)+JVS(53608)*UV(3969)+JVS(53609)*UV(3971)+JVS(53610)*UV(3972)+JVS(53611)*UV(3973)& - &+JVS(53612)*UV(3974)+JVS(53613)*UV(3975)+JVS(53614)*UV(3976)+JVS(53615)*UV(3977)+JVS(53616)*UV(3979)& - &+JVS(53617)*UV(3980)+JVS(53618)*UV(3981)+JVS(53619)*UV(3982)+JVS(53620)*UV(3983)+JVS(53621)*UV(3984)& - &+JVS(53622)*UV(3985)+JVS(53623)*UV(3986)+JVS(53624)*UV(3987)+JVS(53625)*UV(3988)+JVS(53626)*UV(3989)& - &+JVS(53627)*UV(3990)+JVS(53628)*UV(3991)+JVS(53629)*UV(3992)+JVS(53630)*UV(3994)+JVS(53631)*UV(3995)& - &+JVS(53632)*UV(3996)+JVS(53633)*UV(3997)+JVS(53634)*UV(3998)+JVS(53635)*UV(3999)+JVS(53636)*UV(4000)& - &+JVS(53637)*UV(4001)+JVS(53638)*UV(4002)+JVS(53639)*UV(4003)+JVS(53640)*UV(4005)+JVS(53641)*UV(4006)& - &+JVS(53642)*UV(4007)+JVS(53643)*UV(4008)+JVS(53644)*UV(4009)+JVS(53645)*UV(4010)+JVS(53646)*UV(4011)& - &+JVS(53648)*UV(4013)+JVS(53649)*UV(4015)+JVS(53650)*UV(4016)+JVS(53651)*UV(4017)+JVS(53652)*UV(4018)& - &+JVS(53653)*UV(4019)+JVS(53654)*UV(4020)+JVS(53655)*UV(4021)+JVS(53656)*UV(4022)+JVS(53657)*UV(4023)& - &+JVS(53658)*UV(4025)+JVS(53659)*UV(4026)+JVS(53660)*UV(4027)+JVS(53661)*UV(4028)+JVS(53662)*UV(4030)& - &+JVS(53663)*UV(4031)+JVS(53664)*UV(4032)+JVS(53665)*UV(4033)+JVS(53666)*UV(4034)+JVS(53667)*UV(4035)& - &+JVS(53668)*UV(4036)+JVS(53669)*UV(4037)+JVS(53670)*UV(4038)+JVS(53671)*UV(4039)+JVS(53672)*UV(4040)& - &+JVS(53673)*UV(4041)+JVS(53674)*UV(4042)+JVS(53675)*UV(4043)+JVS(53676)*UV(4044)+JVS(53678)*UV(4046)& - &+JVS(53679)*UV(4048)+JVS(53680)*UV(4049)+JVS(53681)*UV(4050)+JVS(53682)*UV(4051)+JVS(53683)*UV(4052)& - &+JVS(53684)*UV(4054)+JVS(53685)*UV(4055)+JVS(53686)*UV(4056)+JVS(53687)*UV(4057)+JVS(53688)*UV(4058)& - &+JVS(53689)*UV(4059)+JVS(53690)*UV(4060)+JVS(53691)*UV(4061)+JVS(53692)*UV(4063)+JVS(53693)*UV(4064)& - &+JVS(53694)*UV(4065)+JVS(53695)*UV(4067)+JVS(53696)*UV(4068)+JVS(53697)*UV(4069)+JVS(53698)*UV(4070)& - &+JVS(53699)*UV(4072)+JVS(53700)*UV(4073)+JVS(53701)*UV(4074)+JVS(53702)*UV(4075)+JVS(53703)*UV(4076)& - &+JVS(53704)*UV(4077)+JVS(53705)*UV(4078)+JVS(53706)*UV(4079)+JVS(53707)*UV(4080)+JVS(53708)*UV(4082)& - &+JVS(53709)*UV(4083)+JVS(53710)*UV(4085)+JVS(53711)*UV(4087)+JVS(53712)*UV(4088)+JVS(53713)*UV(4089)& - &+JVS(53714)*UV(4090)+JVS(53715)*UV(4091)+JVS(53716)*UV(4092)+JVS(53717)*UV(4093)+JVS(53718)*UV(4094)& - &+JVS(53719)*UV(4095)+JVS(53720)*UV(4097)+JVS(53721)*UV(4098)+JVS(53722)*UV(4099)+JVS(53723)*UV(4100)& - &+JVS(53724)*UV(4101)+JVS(53725)*UV(4102)+JVS(53726)*UV(4105)+JVS(53727)*UV(4106)+JVS(53729)*UV(4108)& - &+JVS(53730)*UV(4110)+JVS(53731)*UV(4111)+JVS(53732)*UV(4112)+JVS(53734)*UV(4114)+JVS(53735)*UV(4115)& - &+JVS(53736)*UV(4116)+JVS(53737)*UV(4117)+JVS(53738)*UV(4118)+JVS(53739)*UV(4119)+JVS(53740)*UV(4120)& - &+JVS(53741)*UV(4121)+JVS(53742)*UV(4123)+JVS(53743)*UV(4124)+JVS(53744)*UV(4126)+JVS(53745)*UV(4127)& - &+JVS(53746)*UV(4128)+JVS(53747)*UV(4129)+JVS(53748)*UV(4130)+JVS(53749)*UV(4131)+JVS(53750)*UV(4132)& - &+JVS(53751)*UV(4133)+JVS(53752)*UV(4134)+JVS(53753)*UV(4135)+JVS(53754)*UV(4136)+JVS(53755)*UV(4137)& - &+JVS(53756)*UV(4138)+JVS(53757)*UV(4139)+JVS(53758)*UV(4140)+JVS(53759)*UV(4141)+JVS(53760)*UV(4142)& - &+JVS(53761)*UV(4143)+JVS(53762)*UV(4144)+JVS(53763)*UV(4145)+JVS(53764)*UV(4146)+JVS(53765)*UV(4147)& - &+JVS(53766)*UV(4148)+JVS(53767)*UV(4149)+JVS(53768)*UV(4150)+JVS(53769)*UV(4151)+JVS(53771)*UV(4153)& - &+JVS(53772)*UV(4154)+JVS(53773)*UV(4155)+JVS(53774)*UV(4156)+JVS(53775)*UV(4157)+JVS(53776)*UV(4158)& - &+JVS(53777)*UV(4159)+JVS(53778)*UV(4160)+JVS(53779)*UV(4161)+JVS(53780)*UV(4162)+JVS(53781)*UV(4163)& - &+JVS(53782)*UV(4165)+JVS(53783)*UV(4166)+JVS(53784)*UV(4167)+JVS(53785)*UV(4168)+JVS(53786)*UV(4169)& - &+JVS(53787)*UV(4170)+JVS(53788)*UV(4171)+JVS(53789)*UV(4172)+JVS(53790)*UV(4173)+JVS(53791)*UV(4174)& - &+JVS(53792)*UV(4176)+JVS(53793)*UV(4180)+JVS(53794)*UV(4181)+JVS(53795)*UV(4182)+JVS(53796)*UV(4185)& - &+JVS(53797)*UV(4186)+JVS(53798)*UV(4187)+JVS(53799)*UV(4188)+JVS(53800)*UV(4189)+JVS(53802)*UV(4191)& - &+JVS(53803)*UV(4192)+JVS(53804)*UV(4193)+JVS(53805)*UV(4194)+JVS(53806)*UV(4195)+JVS(53807)*UV(4196)& - &+JVS(53808)*UV(4197)+JVS(53809)*UV(4198)+JVS(53810)*UV(4200)+JVS(53811)*UV(4201)+JVS(53812)*UV(4202)& - &+JVS(53813)*UV(4203)+JVS(53814)*UV(4204)+JVS(53815)*UV(4205)+JVS(53816)*UV(4206)+JVS(53817)*UV(4207)& - &+JVS(53818)*UV(4208)+JVS(53819)*UV(4209)+JVS(53820)*UV(4210)+JVS(53821)*UV(4211)+JVS(53822)*UV(4212)& - &+JVS(53823)*UV(4213)+JVS(53824)*UV(4214)+JVS(53825)*UV(4215)+JVS(53826)*UV(4216)+JVS(53827)*UV(4217)& - &+JVS(53828)*UV(4218)+JVS(53829)*UV(4219)+JVS(53830)*UV(4220)+JVS(53831)*UV(4221)+JVS(53832)*UV(4222)& - &+JVS(53833)*UV(4224)+JVS(53834)*UV(4225)+JVS(53835)*UV(4226)+JVS(53836)*UV(4227)+JVS(53837)*UV(4228)& - &+JVS(53838)*UV(4229)+JVS(53839)*UV(4230)+JVS(53840)*UV(4231)+JVS(53841)*UV(4232)+JVS(53842)*UV(4233)& - &+JVS(53843)*UV(4234)+JVS(53844)*UV(4235)+JVS(53845)*UV(4236)+JVS(53846)*UV(4237)+JVS(53847)*UV(4238)& - &+JVS(53848)*UV(4239)+JVS(53849)*UV(4240)+JVS(53850)*UV(4241)+JVS(53851)*UV(4242)+JVS(53852)*UV(4243)& - &+JVS(53853)*UV(4244)+JVS(53854)*UV(4245)+JVS(53855)*UV(4246)+JVS(53856)*UV(4247)+JVS(53857)*UV(4249)& - &+JVS(53858)*UV(4250)+JVS(53859)*UV(4251)+JVS(53860)*UV(4252)+JVS(53861)*UV(4253)+JVS(53862)*UV(4254)& - &+JVS(53863)*UV(4255)+JVS(53864)*UV(4257)+JVS(53865)*UV(4258)+JVS(53866)*UV(4259)+JVS(53867)*UV(4260)& - &+JVS(53868)*UV(4261)+JVS(53869)*UV(4262)+JVS(53870)*UV(4263)+JVS(53871)*UV(4264)+JVS(53872)*UV(4265)& - &+JVS(53873)*UV(4266)+JVS(53874)*UV(4267)+JVS(53875)*UV(4268)+JVS(53876)*UV(4269)+JVS(53877)*UV(4270)& - &+JVS(53878)*UV(4271)+JVS(53879)*UV(4272)+JVS(53880)*UV(4273)+JVS(53881)*UV(4274)+JVS(53882)*UV(4275)& - &+JVS(53883)*UV(4276)+JVS(53884)*UV(4277)+JVS(53885)*UV(4278)+JVS(53886)*UV(4279)+JVS(53887)*UV(4280)& - &+JVS(53888)*UV(4281)+JVS(53889)*UV(4282)+JVS(53890)*UV(4283)+JVS(53891)*UV(4284)+JVS(53892)*UV(4285)& - &+JVS(53893)*UV(4286)+JVS(53894)*UV(4287)+JVS(53895)*UV(4288)+JVS(53896)*UV(4289)+JVS(53897)*UV(4290)& - &+JVS(53898)*UV(4291)+JVS(53899)*UV(4292)+JVS(53900)*UV(4293)+JVS(53901)*UV(4295)+JVS(53902)*UV(4296)& - &+JVS(53903)*UV(4297)+JVS(53904)*UV(4298)+JVS(53905)*UV(4299)+JVS(53906)*UV(4301)+JVS(53907)*UV(4302)& - &+JVS(53908)*UV(4303)+JVS(53909)*UV(4304)+JVS(53910)*UV(4305)+JVS(53911)*UV(4306)+JVS(53912)*UV(4307)& - &+JVS(53913)*UV(4308)+JVS(53914)*UV(4309)+JVS(53915)*UV(4310)+JVS(53916)*UV(4311)+JVS(53917)*UV(4312)& - &+JVS(53918)*UV(4313)+JVS(53919)*UV(4314)+JVS(53920)*UV(4315)+JVS(53921)*UV(4316)+JVS(53922)*UV(4317)& - &+JVS(53923)*UV(4318)+JVS(53924)*UV(4319)+JVS(53925)*UV(4320)+JVS(53926)*UV(4321)+JVS(53928)*UV(4323)& - &+JVS(53929)*UV(4324)+JVS(53931)*UV(4327)+JVS(53932)*UV(4329)+JVS(53933)*UV(4330)+JVS(53934)*UV(4332)& - &+JVS(53935)*UV(4334)+JVS(53936)*UV(4335)+JVS(53937)*UV(4336)+JVS(53938)*UV(4337)+JVS(53939)*UV(4338)& - &+JVS(53940)*UV(4339)+JVS(53941)*UV(4340)+JVS(53942)*UV(4341)+JVS(53943)*UV(4342)+JVS(53944)*UV(4343)& - &+JVS(53945)*UV(4344)+JVS(53946)*UV(4345)+JVS(53947)*UV(4346)+JVS(53948)*UV(4347)+JVS(53949)*UV(4348)& - &+JVS(53950)*UV(4349)+JVS(53951)*UV(4350)+JVS(53952)*UV(4351)+JVS(53953)*UV(4353)+JVS(53954)*UV(4354)& - &+JVS(53955)*UV(4355)+JVS(53956)*UV(4356)+JVS(53957)*UV(4357)+JVS(53958)*UV(4358)+JVS(53959)*UV(4359)& - &+JVS(53960)*UV(4360)+JVS(53961)*UV(4361)+JVS(53962)*UV(4362)+JVS(53963)*UV(4363)+JVS(53964)*UV(4364)& - &+JVS(53965)*UV(4365)+JVS(53966)*UV(4367)+JVS(53967)*UV(4368)+JVS(53968)*UV(4369)+JVS(53969)*UV(4370)& - &+JVS(53970)*UV(4371)+JVS(53971)*UV(4372)+JVS(53972)*UV(4373)+JVS(53973)*UV(4374)+JVS(53974)*UV(4375)& - &+JVS(53975)*UV(4376)+JVS(53976)*UV(4377)+JVS(53978)*UV(4380)+JVS(53979)*UV(4381)+JVS(53980)*UV(4382)& - &+JVS(53981)*UV(4384)+JVS(53982)*UV(4385)+JVS(53983)*UV(4387)+JVS(53984)*UV(4389)+JVS(53985)*UV(4390)& - &+JVS(53986)*UV(4394)+JVS(53987)*UV(4395)+JVS(53988)*UV(4396)+JVS(53989)*UV(4397)+JVS(53990)*UV(4399)& - &+JVS(53991)*UV(4400)+JVS(53993)*UV(4404)+JVS(53994)*UV(4405)+JVS(53997)*UV(4409)+JVS(53998)*UV(4410)& - &+JVS(53999)*UV(4411)+JVS(54000)*UV(4412)+JVS(54002)*UV(4414)+JVS(54003)*UV(4415)+JVS(54004)*UV(4416)& - &+JVS(54005)*UV(4417)+JVS(54006)*UV(4418)+JVS(54007)*UV(4419)+JVS(54008)*UV(4421)+JVS(54009)*UV(4422)& - &+JVS(54010)*UV(4423)+JVS(54011)*UV(4424)+JVS(54012)*UV(4425)+JVS(54013)*UV(4426)+JVS(54014)*UV(4427)& - &+JVS(54015)*UV(4428)+JVS(54016)*UV(4429)+JVS(54017)*UV(4430)+JVS(54018)*UV(4431)+JVS(54019)*UV(4432)& - &+JVS(54020)*UV(4433)+JVS(54021)*UV(4434)+JVS(54022)*UV(4435)+JVS(54023)*UV(4436)+JVS(54026)*UV(4439)& - &+JVS(54027)*UV(4440)+JVS(54028)*UV(4441)+JVS(54029)*UV(4442)+JVS(54030)*UV(4443)+JVS(54032)*UV(4445)& - &+JVS(54033)*UV(4446)+JVS(54034)*UV(4447)+JVS(54037)*UV(4450)+JVS(54038)*UV(4451)+JVS(54039)*UV(4452)& - &+JVS(54042)*UV(4455)+JVS(54043)*UV(4456)+JVS(54045)*UV(4458)+JVS(54046)*UV(4459)+JVS(54047)*UV(4460)& - &+JVS(54048)*UV(4461)+JVS(54049)*UV(4462)+JVS(54050)*UV(4463)+JVS(54051)*UV(4464)+JVS(54052)*UV(4465)& - &+JVS(54054)*UV(4467)+JVS(54055)*UV(4468)+JVS(54056)*UV(4469)+JVS(54057)*UV(4470)+JVS(54059)*UV(4472)& - &+JVS(54060)*UV(4473)+JVS(54061)*UV(4474)+JVS(54062)*UV(4475)+JVS(54063)*UV(4476)+JVS(54064)*UV(4477)& - &+JVS(54067)*UV(4480)+JVS(54068)*UV(4481)+JVS(54069)*UV(4482)+JVS(54070)*UV(4483)+JVS(54071)*UV(4484)& - &+JVS(54072)*UV(4485)+JVS(54073)*UV(4486)+JVS(54076)*UV(4489)+JVS(54078)*UV(4492)+JVS(54079)*UV(4493)& - &+JVS(54082)*UV(4496)+JVS(54083)*UV(4497)+JVS(54084)*UV(4498)+JVS(54086)*UV(4500)+JVS(54087)*UV(4501)& - &+JVS(54088)*UV(4502)+JVS(54089)*UV(4503)+JVS(54091)*UV(4505)+JVS(54092)*UV(4506)+JVS(54093)*UV(4508)& - &+JVS(54095)*UV(4510)+JVS(54096)*UV(4511)+JVS(54097)*UV(4512)+JVS(54098)*UV(4513)+JVS(54100)*UV(4515)& - &+JVS(54101)*UV(4516)+JVS(54102)*UV(4517)+JVS(54103)*UV(4518)+JVS(54104)*UV(4519)+JVS(54105)*UV(4520)& - &+JVS(54106)*UV(4521)+JVS(54107)*UV(4522)+JVS(54108)*UV(4523)+JVS(54109)*UV(4525)+JVS(54110)*UV(4526)& - &+JVS(54111)*UV(4527)+JVS(54112)*UV(4529)+JVS(54113)*UV(4530)+JVS(54115)*UV(4532)+JVS(54117)*UV(4535)& - &+JVS(54118)*UV(4536)+JVS(54119)*UV(4537)+JVS(54120)*UV(4538)+JVS(54121)*UV(4539)+JVS(54122)*UV(4540)& - &+JVS(54123)*UV(4541)+JVS(54124)*UV(4542)+JVS(54125)*UV(4543)+JVS(54126)*UV(4544)+JVS(54127)*UV(4545)& - &+JVS(54128)*UV(4546)+JVS(54129)*UV(4547)+JVS(54130)*UV(4548)+JVS(54131)*UV(4549)+JVS(54132)*UV(4550)& - &+JVS(54133)*UV(4551)+JVS(54134)*UV(4552)+JVS(54135)*UV(4553)+JVS(54136)*UV(4554)+JVS(54137)*UV(4555)& - &+JVS(54138)*UV(4556)+JVS(54139)*UV(4557)+JVS(54140)*UV(4558)+JVS(54141)*UV(4559)+JVS(54142)*UV(4560)& - &+JVS(54143)*UV(4561)+JVS(54144)*UV(4562)+JVS(54145)*UV(4563)+JVS(54146)*UV(4565)+JVS(54147)*UV(4566)& - &+JVS(54148)*UV(4567)+JVS(54149)*UV(4568)+JVS(54150)*UV(4569)+JVS(54151)*UV(4571)+JVS(54152)*UV(4572)& - &+JVS(54153)*UV(4573)+JVS(54154)*UV(4574)+JVS(54155)*UV(4575)+JVS(54156)*UV(4576)+JVS(54157)*UV(4577)& - &+JVS(54158)*UV(4578)+JVS(54159)*UV(4579)+JVS(54160)*UV(4580)+JVS(54161)*UV(4581)+JVS(54162)*UV(4582)& - &+JVS(54163)*UV(4583)+JVS(54164)*UV(4584)+JVS(54165)*UV(4585)+JVS(54166)*UV(4586)+JVS(54167)*UV(4587)& - &+JVS(54168)*UV(4589)+JVS(54169)*UV(4590)+JVS(54170)*UV(4591)+JVS(54171)*UV(4592)+JVS(54172)*UV(4593)& - &+JVS(54173)*UV(4594)+JVS(54174)*UV(4595)+JVS(54175)*UV(4596)+JVS(54176)*UV(4597)+JVS(54177)*UV(4598)& - &+JVS(54178)*UV(4599)+JVS(54179)*UV(4600)+JVS(54180)*UV(4601)+JVS(54182)*UV(4604)+JVS(54183)*UV(4605)& - &+JVS(54184)*UV(4606)+JVS(54185)*UV(4607)+JVS(54186)*UV(4608)+JVS(54187)*UV(4609)+JVS(54188)*UV(4610)& - &+JVS(54189)*UV(4611)+JVS(54190)*UV(4612)+JVS(54191)*UV(4613)+JVS(54192)*UV(4614)+JVS(54193)*UV(4616)& - &+JVS(54194)*UV(4617)+JVS(54196)*UV(4620)+JVS(54197)*UV(4621)+JVS(54198)*UV(4622)+JVS(54199)*UV(4623)& - &+JVS(54200)*UV(4624)+JVS(54201)*UV(4625)+JVS(54202)*UV(4626)+JVS(54203)*UV(4627)+JVS(54204)*UV(4628)& - &+JVS(54205)*UV(4629)+JVS(54206)*UV(4630)+JVS(54207)*UV(4631)+JVS(54209)*UV(4633)+JVS(54210)*UV(4634)& - &+JVS(54211)*UV(4635)+JVS(54212)*UV(4636)+JVS(54213)*UV(4637)+JVS(54214)*UV(4638)+JVS(54216)*UV(4640)& - &+JVS(54217)*UV(4641)+JVS(54218)*UV(4642)+JVS(54219)*UV(4643)+JVS(54220)*UV(4644)+JVS(54221)*UV(4645)& - &+JVS(54222)*UV(4646)+JVS(54223)*UV(4647)+JVS(54224)*UV(4648)+JVS(54225)*UV(4649)+JVS(54226)*UV(4650)& - &+JVS(54227)*UV(4651)+JVS(54228)*UV(4652)+JVS(54229)*UV(4653)+JVS(54230)*UV(4654)+JVS(54231)*UV(4655)& - &+JVS(54232)*UV(4656)+JVS(54233)*UV(4657)+JVS(54234)*UV(4658)+JVS(54235)*UV(4659)+JVS(54236)*UV(4660)& - &+JVS(54237)*UV(4661)+JVS(54238)*UV(4662)+JVS(54240)*UV(4664)+JVS(54241)*UV(4665)+JVS(54242)*UV(4666)& - &+JVS(54243)*UV(4667)+JVS(54244)*UV(4668)+JVS(54245)*UV(4669)+JVS(54248)*UV(4672)+JVS(54249)*UV(4673)& - &+JVS(54250)*UV(4674)+JVS(54251)*UV(4675)+JVS(54253)*UV(4677)+JVS(54254)*UV(4678)+JVS(54255)*UV(4679)& - &+JVS(54256)*UV(4680)+JVS(54257)*UV(4681)+JVS(54259)*UV(4683)+JVS(54260)*UV(4684)+JVS(54261)*UV(4685)& - &+JVS(54262)*UV(4686)+JVS(54263)*UV(4687)+JVS(54264)*UV(4688)+JVS(54265)*UV(4689)+JVS(54267)*UV(4691)& - &+JVS(54268)*UV(4692)+JVS(54269)*UV(4695)+JVS(54270)*UV(4696)+JVS(54271)*UV(4697)+JVS(54272)*UV(4698)& - &+JVS(54273)*UV(4699)+JVS(54274)*UV(4700)+JVS(54275)*UV(4701)+JVS(54276)*UV(4702)+JVS(54277)*UV(4703)& - &+JVS(54278)*UV(4704)+JVS(54279)*UV(4705)+JVS(54280)*UV(4706)+JVS(54281)*UV(4707)+JVS(54282)*UV(4709)& - &+JVS(54283)*UV(4710)+JVS(54284)*UV(4711)+JVS(54285)*UV(4712)+JVS(54286)*UV(4713)+JVS(54287)*UV(4714)& - &+JVS(54288)*UV(4715)+JVS(54289)*UV(4716)+JVS(54290)*UV(4717)+JVS(54291)*UV(4718)+JVS(54292)*UV(4719)& - &+JVS(54293)*UV(4720)+JVS(54294)*UV(4721)+JVS(54295)*UV(4722)+JVS(54296)*UV(4723)+JVS(54297)*UV(4724)& - &+JVS(54298)*UV(4725)+JVS(54299)*UV(4726)+JVS(54300)*UV(4727)+JVS(54301)*UV(4729)+JVS(54302)*UV(4730)& - &+JVS(54303)*UV(4731)+JVS(54304)*UV(4732)+JVS(54305)*UV(4733)+JVS(54306)*UV(4734)+JVS(54307)*UV(4735)& - &+JVS(54309)*UV(4737)+JVS(54310)*UV(4738)+JVS(54311)*UV(4739)+JVS(54312)*UV(4740)+JVS(54313)*UV(4741)& - &+JVS(54314)*UV(4742)+JVS(54316)*UV(4744)+JVS(54317)*UV(4745)+JVS(54318)*UV(4746)+JVS(54319)*UV(4748)& - &+JVS(54320)*UV(4750)+JVS(54321)*UV(4751)+JVS(54322)*UV(4752)+JVS(54323)*UV(4753)+JVS(54324)*UV(4754)& - &+JVS(54325)*UV(4755)+JVS(54326)*UV(4756)+JVS(54327)*UV(4757)+JVS(54328)*UV(4758)+JVS(54329)*UV(4759)& - &+JVS(54330)*UV(4760)+JVS(54331)*UV(4761)+JVS(54332)*UV(4762)+JVS(54333)*UV(4763)+JVS(54334)*UV(4764)& - &+JVS(54335)*UV(4765)+JVS(54336)*UV(4766)+JVS(54337)*UV(4767)+JVS(54338)*UV(4768)+JVS(54339)*UV(4769)& - &+JVS(54340)*UV(4770)+JVS(54341)*UV(4771)+JVS(54342)*UV(4772)+JVS(54343)*UV(4773)+JVS(54344)*UV(4774)& - &+JVS(54345)*UV(4775)+JVS(54346)*UV(4776)+JVS(54347)*UV(4777)+JVS(54348)*UV(4778)+JVS(54349)*UV(4779)& - &+JVS(54350)*UV(4780)+JVS(54351)*UV(4781)+JVS(54352)*UV(4782)+JVS(54353)*UV(4783)+JVS(54354)*UV(4784)& - &+JVS(54355)*UV(4785)+JVS(54357)*UV(4787)+JVS(54359)*UV(4789)+JVS(54362)*UV(4792)+JVS(54363)*UV(4793)& - &+JVS(54364)*UV(4794)+JVS(54365)*UV(4795)+JVS(54370)*UV(4802)+JVS(54371)*UV(4803)+JVS(54372)*UV(4804)& - &+JVS(54374)*UV(4806)+JVS(54375)*UV(4807)+JVS(54376)*UV(4808)+JVS(54377)*UV(4809)+JVS(54379)*UV(4811)& - &+JVS(54380)*UV(4812)+JVS(54381)*UV(4813)+JVS(54382)*UV(4814)+JVS(54383)*UV(4815)+JVS(54384)*UV(4816)& - &+JVS(54385)*UV(4817)+JVS(54386)*UV(4818)+JVS(54387)*UV(4819)+JVS(54388)*UV(4820)+JVS(54389)*UV(4821)& - &+JVS(54390)*UV(4822)+JVS(54391)*UV(4823)+JVS(54392)*UV(4824)+JVS(54393)*UV(4825)+JVS(54394)*UV(4826)& - &+JVS(54395)*UV(4827)+JVS(54396)*UV(4828)+JVS(54397)*UV(4829)+JVS(54398)*UV(4830)+JVS(54399)*UV(4831)& - &+JVS(54400)*UV(4832)+JVS(54401)*UV(4833)+JVS(54402)*UV(4834)+JVS(54403)*UV(4835)+JVS(54404)*UV(4836)& - &+JVS(54405)*UV(4837)+JVS(54406)*UV(4838)+JVS(54407)*UV(4839)+JVS(54408)*UV(4840)+JVS(54409)*UV(4841)& - &+JVS(54410)*UV(4842)+JVS(54411)*UV(4843)+JVS(54412)*UV(4844)+JVS(54413)*UV(4845)+JVS(54414)*UV(4846)& - &+JVS(54415)*UV(4847)+JVS(54416)*UV(4848)+JVS(54417)*UV(4849)+JVS(54418)*UV(4850)+JVS(54419)*UV(4851)& - &+JVS(54420)*UV(4852)+JVS(54421)*UV(4853)+JVS(54422)*UV(4854)+JVS(54423)*UV(4855)+JVS(54424)*UV(4856)& - &+JVS(54425)*UV(4857)+JVS(54426)*UV(4858)+JVS(54428)*UV(4860)+JVS(54429)*UV(4861)+JVS(54430)*UV(4862)& - &+JVS(54431)*UV(4863)+JVS(54432)*UV(4864)+JVS(54434)*UV(4866)+JVS(54435)*UV(4867)+JVS(54436)*UV(4868)& - &+JVS(54437)*UV(4869)+JVS(54438)*UV(4870)+JVS(54439)*UV(4871)+JVS(54440)*UV(4872)+JVS(54441)*UV(4873)& - &+JVS(54442)*UV(4874)+JVS(54443)*UV(4875)+JVS(54444)*UV(4876)+JVS(54445)*UV(4877)+JVS(54446)*UV(4878)& - &+JVS(54447)*UV(4879)+JVS(54448)*UV(4880)+JVS(54449)*UV(4881)+JVS(54450)*UV(4882)+JVS(54452)*UV(4884)& - &+JVS(54453)*UV(4885)+JVS(54454)*UV(4886)+JVS(54455)*UV(4887)+JVS(54456)*UV(4888)+JVS(54457)*UV(4889)& - &+JVS(54458)*UV(4890)+JVS(54459)*UV(4891)+JVS(54460)*UV(4892)+JVS(54461)*UV(4893)+JVS(54462)*UV(4894)& - &+JVS(54463)*UV(4895)+JVS(54464)*UV(4896)+JVS(54465)*UV(4897)+JVS(54466)*UV(4898)+JVS(54467)*UV(4899)& - &+JVS(54468)*UV(4900)+JVS(54469)*UV(4901)+JVS(54470)*UV(4902)+JVS(54471)*UV(4903)+JVS(54472)*UV(4904)& - &+JVS(54473)*UV(4905)+JVS(54474)*UV(4906)+JVS(54475)*UV(4907)+JVS(54476)*UV(4908)+JVS(54477)*UV(4910)& - &+JVS(54478)*UV(4911)+JVS(54479)*UV(4912)+JVS(54480)*UV(4913)+JVS(54481)*UV(4914)+JVS(54482)*UV(4915)& - &+JVS(54483)*UV(4916)+JVS(54484)*UV(4917)+JVS(54485)*UV(4918)+JVS(54486)*UV(4919)+JVS(54487)*UV(4920)& - &+JVS(54488)*UV(4921)+JVS(54489)*UV(4922)+JVS(54490)*UV(4923)+JVS(54491)*UV(4924)+JVS(54492)*UV(4925)& - &+JVS(54493)*UV(4926)+JVS(54494)*UV(4927)+JVS(54495)*UV(4928)+JVS(54496)*UV(4929)+JVS(54497)*UV(4930)& - &+JVS(54498)*UV(4931)+JVS(54499)*UV(4932)+JVS(54500)*UV(4933)+JVS(54501)*UV(4934)+JVS(54502)*UV(4935)& - &+JVS(54503)*UV(4936)+JVS(54505)*UV(4939)+JVS(54506)*UV(4940)+JVS(54507)*UV(4941)+JVS(54508)*UV(4942)& - &+JVS(54509)*UV(4943)+JVS(54510)*UV(4944)+JVS(54512)*UV(4946)+JVS(54513)*UV(4947)+JVS(54514)*UV(4948)& - &+JVS(54515)*UV(4949)+JVS(54517)*UV(4951)+JVS(54518)*UV(4952)+JVS(54519)*UV(4953)+JVS(54520)*UV(4954)& - &+JVS(54521)*UV(4955)+JVS(54522)*UV(4956)+JVS(54523)*UV(4957)+JVS(54524)*UV(4959)+JVS(54525)*UV(4960)& - &+JVS(54526)*UV(4961)+JVS(54527)*UV(4962)+JVS(54528)*UV(4963)+JVS(54529)*UV(4964)+JVS(54531)*UV(4966)& - &+JVS(54532)*UV(4967)+JVS(54533)*UV(4968)+JVS(54534)*UV(4969)+JVS(54536)*UV(4971)+JVS(54537)*UV(4972)& - &+JVS(54538)*UV(4974)+JVS(54539)*UV(4975)+JVS(54540)*UV(4976)+JVS(54541)*UV(4977)+JVS(54542)*UV(4978)& - &+JVS(54543)*UV(4979)+JVS(54544)*UV(4980)+JVS(54545)*UV(4981)+JVS(54546)*UV(4982)+JVS(54547)*UV(4984)& - &+JVS(54548)*UV(4985)+JVS(54549)*UV(4986)+JVS(54550)*UV(4987)+JVS(54551)*UV(4988)+JVS(54552)*UV(4989)& - &+JVS(54553)*UV(4990)+JVS(54554)*UV(4991)+JVS(54555)*UV(4992)+JVS(54556)*UV(4993)+JVS(54557)*UV(4994)& - &+JVS(54558)*UV(4995)+JVS(54559)*UV(4996)+JVS(54560)*UV(4997)+JVS(54561)*UV(4998)+JVS(54562)*UV(4999)& - &+JVS(54563)*UV(5001)+JVS(54564)*UV(5002)+JVS(54565)*UV(5003)+JVS(54566)*UV(5004)+JVS(54567)*UV(5005)& - &+JVS(54568)*UV(5006)+JVS(54569)*UV(5007)+JVS(54570)*UV(5008)+JVS(54571)*UV(5009)+JVS(54573)*UV(5011)& - &+JVS(54574)*UV(5012)+JVS(54576)*UV(5014)+JVS(54577)*UV(5015)+JVS(54578)*UV(5016)+JVS(54579)*UV(5017)& - &+JVS(54580)*UV(5018)+JVS(54581)*UV(5019)+JVS(54582)*UV(5020)+JVS(54583)*UV(5021)+JVS(54584)*UV(5022)& - &+JVS(54585)*UV(5023)+JVS(54586)*UV(5024)+JVS(54587)*UV(5025)+JVS(54588)*UV(5026)+JVS(54589)*UV(5027)& - &+JVS(54590)*UV(5028)+JVS(54591)*UV(5029)+JVS(54594)*UV(5032)+JVS(54595)*UV(5033)+JVS(54596)*UV(5034)& - &+JVS(54597)*UV(5035)+JVS(54598)*UV(5036)+JVS(54600)*UV(5038)+JVS(54601)*UV(5039)+JVS(54602)*UV(5040)& - &+JVS(54603)*UV(5041)+JVS(54604)*UV(5042)+JVS(54605)*UV(5043)+JVS(54606)*UV(5044)+JVS(54607)*UV(5045)& - &+JVS(54608)*UV(5047)+JVS(54609)*UV(5048)+JVS(54610)*UV(5049)+JVS(54611)*UV(5050)+JVS(54612)*UV(5051)& - &+JVS(54613)*UV(5052)+JVS(54614)*UV(5053)+JVS(54615)*UV(5054)+JVS(54616)*UV(5055)+JVS(54617)*UV(5056)& - &+JVS(54618)*UV(5057)+JVS(54619)*UV(5058)+JVS(54620)*UV(5059)+JVS(54621)*UV(5060)+JVS(54622)*UV(5061)& - &+JVS(54623)*UV(5062)+JVS(54624)*UV(5063)+JVS(54626)*UV(5065)+JVS(54627)*UV(5066)+JVS(54628)*UV(5067)& - &+JVS(54629)*UV(5068)+JVS(54630)*UV(5069)+JVS(54631)*UV(5070)+JVS(54632)*UV(5071)+JVS(54633)*UV(5072)& - &+JVS(54634)*UV(5073)+JVS(54635)*UV(5074)+JVS(54636)*UV(5075)+JVS(54637)*UV(5076)+JVS(54638)*UV(5077)& - &+JVS(54639)*UV(5078)+JVS(54640)*UV(5079)+JVS(54641)*UV(5081)+JVS(54642)*UV(5082)+JVS(54643)*UV(5083)& - &+JVS(54644)*UV(5084)+JVS(54645)*UV(5085)+JVS(54646)*UV(5086)+JVS(54647)*UV(5087)+JVS(54648)*UV(5088)& - &+JVS(54649)*UV(5089)+JVS(54650)*UV(5090)+JVS(54651)*UV(5091)+JVS(54652)*UV(5092)+JVS(54655)*UV(5095)& - &+JVS(54656)*UV(5096)+JVS(54657)*UV(5097)+JVS(54658)*UV(5098)+JVS(54659)*UV(5099)+JVS(54660)*UV(5100)& - &+JVS(54661)*UV(5101)+JVS(54662)*UV(5102)+JVS(54664)*UV(5104)+JVS(54665)*UV(5105)+JVS(54666)*UV(5106)& - &+JVS(54667)*UV(5107)+JVS(54668)*UV(5108)+JVS(54669)*UV(5109)+JVS(54671)*UV(5111)+JVS(54672)*UV(5112)& - &+JVS(54674)*UV(5114)+JVS(54675)*UV(5115)+JVS(54676)*UV(5116)+JVS(54677)*UV(5117)+JVS(54678)*UV(5118)& - &+JVS(54679)*UV(5119)+JVS(54680)*UV(5120)+JVS(54681)*UV(5121)+JVS(54682)*UV(5122)+JVS(54683)*UV(5123)& - &+JVS(54684)*UV(5124)+JVS(54685)*UV(5125)+JVS(54686)*UV(5126)+JVS(54687)*UV(5127)+JVS(54688)*UV(5128)& - &+JVS(54689)*UV(5129)+JVS(54690)*UV(5130)+JVS(54691)*UV(5131)+JVS(54692)*UV(5132)+JVS(54693)*UV(5133)& - &+JVS(54694)*UV(5134)+JVS(54695)*UV(5135)+JVS(54696)*UV(5136)+JVS(54697)*UV(5137)+JVS(54698)*UV(5138)& - &+JVS(54699)*UV(5139)+JVS(54701)*UV(5141)+JVS(54702)*UV(5142)+JVS(54703)*UV(5143)+JVS(54704)*UV(5144)& - &+JVS(54705)*UV(5145)+JVS(54706)*UV(5146)+JVS(54707)*UV(5147)+JVS(54708)*UV(5148)+JVS(54709)*UV(5149)& - &+JVS(54710)*UV(5150)+JVS(54711)*UV(5151)+JVS(54712)*UV(5152)+JVS(54713)*UV(5153)+JVS(54715)*UV(5155)& - &+JVS(54716)*UV(5156)+JVS(54718)*UV(5158)+JVS(54719)*UV(5159)+JVS(54720)*UV(5161)+JVS(54721)*UV(5162)& - &+JVS(54722)*UV(5163)+JVS(54723)*UV(5164)+JVS(54724)*UV(5165)+JVS(54725)*UV(5166)+JVS(54728)*UV(5169)& - &+JVS(54729)*UV(5170)+JVS(54730)*UV(5171)+JVS(54731)*UV(5172)+JVS(54732)*UV(5173)+JVS(54733)*UV(5174)& - &+JVS(54734)*UV(5175)+JVS(54735)*UV(5176)+JVS(54736)*UV(5177)+JVS(54738)*UV(5179)+JVS(54739)*UV(5180)& - &+JVS(54740)*UV(5181)+JVS(54741)*UV(5182)+JVS(54742)*UV(5183)+JVS(54743)*UV(5184)+JVS(54744)*UV(5185)& - &+JVS(54745)*UV(5186)+JVS(54746)*UV(5187)+JVS(54747)*UV(5189)+JVS(54748)*UV(5190)+JVS(54749)*UV(5191)& - &+JVS(54750)*UV(5192)+JVS(54751)*UV(5193)+JVS(54752)*UV(5194)+JVS(54753)*UV(5195)+JVS(54754)*UV(5196)& - &+JVS(54755)*UV(5197)+JVS(54756)*UV(5198)+JVS(54757)*UV(5199)+JVS(54758)*UV(5200)+JVS(54759)*UV(5201)& - &+JVS(54760)*UV(5202)+JVS(54761)*UV(5203)+JVS(54762)*UV(5204)+JVS(54763)*UV(5205)+JVS(54764)*UV(5206)& - &+JVS(54765)*UV(5207)+JVS(54766)*UV(5208)+JVS(54767)*UV(5209)+JVS(54768)*UV(5210)+JVS(54769)*UV(5211)& - &+JVS(54771)*UV(5213)+JVS(54772)*UV(5214)+JVS(54774)*UV(5216)+JVS(54775)*UV(5217)+JVS(54776)*UV(5218)& - &+JVS(54777)*UV(5219)+JVS(54778)*UV(5220)+JVS(54780)*UV(5222)+JVS(54781)*UV(5223)+JVS(54782)*UV(5224)& - &+JVS(54784)*UV(5226)+JVS(54786)*UV(5228)+JVS(54787)*UV(5229)+JVS(54788)*UV(5230)+JVS(54789)*UV(5231)& - &+JVS(54790)*UV(5232)+JVS(54791)*UV(5233)+JVS(54792)*UV(5234)+JVS(54793)*UV(5235)+JVS(54794)*UV(5236)& - &+JVS(54795)*UV(5237)+JVS(54797)*UV(5239)+JVS(54798)*UV(5240)+JVS(54799)*UV(5241)+JVS(54800)*UV(5242)& - &+JVS(54801)*UV(5243)+JVS(54802)*UV(5244)+JVS(54803)*UV(5245)+JVS(54804)*UV(5246)+JVS(54805)*UV(5247)& - &+JVS(54806)*UV(5248)+JVS(54807)*UV(5249)+JVS(54808)*UV(5250)+JVS(54810)*UV(5252)+JVS(54811)*UV(5253)& - &+JVS(54813)*UV(5255)+JVS(54814)*UV(5256)+JVS(54815)*UV(5257)+JVS(54816)*UV(5258) - JUV(5257) = JVS(54817)*UV(624)+JVS(54818)*UV(646)+JVS(54819)*UV(797)+JVS(54820)*UV(905)+JVS(54828)*UV(5048)+JVS(54829)& - &*UV(5092)+JVS(54830)*UV(5250)+JVS(54831)*UV(5251)+JVS(54832)*UV(5252)+JVS(54833)*UV(5253)+JVS(54834)& - &*UV(5254)+JVS(54836)*UV(5256)+JVS(54837)*UV(5257)+JVS(54838)*UV(5258) - JUV(5258) = JVS(54839)*UV(3442)+JVS(54840)*UV(3465)+JVS(54841)*UV(3466)+JVS(54842)*UV(3482)+JVS(54843)*UV(3494)& - &+JVS(54844)*UV(3499)+JVS(54845)*UV(3506)+JVS(54846)*UV(3508)+JVS(54847)*UV(3512)+JVS(54848)*UV(3517)& - &+JVS(54849)*UV(3519)+JVS(54850)*UV(3545)+JVS(54851)*UV(3551)+JVS(54852)*UV(3553)+JVS(54853)*UV(3560)& - &+JVS(54854)*UV(3568)+JVS(54855)*UV(3622)+JVS(54856)*UV(3646)+JVS(54857)*UV(3684)+JVS(54858)*UV(3701)& - &+JVS(54859)*UV(3793)+JVS(54860)*UV(3830)+JVS(54861)*UV(3831)+JVS(54862)*UV(3832)+JVS(54863)*UV(3833)& - &+JVS(54864)*UV(3834)+JVS(54865)*UV(3996)+JVS(54866)*UV(4010)+JVS(54867)*UV(4017)+JVS(54868)*UV(4018)& - &+JVS(54869)*UV(4027)+JVS(54870)*UV(4032)+JVS(54871)*UV(4056)+JVS(54872)*UV(4080)+JVS(54873)*UV(4083)& - &+JVS(54874)*UV(4093)+JVS(54875)*UV(4094)+JVS(54876)*UV(4096)+JVS(54877)*UV(4100)+JVS(54878)*UV(4132)& - &+JVS(54879)*UV(4139)+JVS(54880)*UV(4181)+JVS(54881)*UV(4187)+JVS(54882)*UV(4198)+JVS(54883)*UV(4222)& - &+JVS(54884)*UV(4272)+JVS(54885)*UV(4330)+JVS(54886)*UV(4332)+JVS(54887)*UV(4338)+JVS(54888)*UV(4375)& - &+JVS(54889)*UV(4380)+JVS(54890)*UV(4395)+JVS(54891)*UV(4396)+JVS(54893)*UV(4402)+JVS(54894)*UV(4405)& - &+JVS(54895)*UV(4407)+JVS(54896)*UV(4408)+JVS(54897)*UV(4413)+JVS(54898)*UV(4414)+JVS(54899)*UV(4427)& - &+JVS(54900)*UV(4428)+JVS(54901)*UV(4431)+JVS(54902)*UV(4433)+JVS(54903)*UV(4436)+JVS(54904)*UV(4437)& - &+JVS(54905)*UV(4438)+JVS(54906)*UV(4444)+JVS(54907)*UV(4452)+JVS(54908)*UV(4453)+JVS(54909)*UV(4454)& - &+JVS(54910)*UV(4457)+JVS(54911)*UV(4460)+JVS(54912)*UV(4466)+JVS(54913)*UV(4470)+JVS(54914)*UV(4471)& - &+JVS(54915)*UV(4474)+JVS(54916)*UV(4475)+JVS(54917)*UV(4478)+JVS(54918)*UV(4479)+JVS(54919)*UV(4484)& - &+JVS(54920)*UV(4485)+JVS(54921)*UV(4487)+JVS(54922)*UV(4492)+JVS(54923)*UV(4494)+JVS(54924)*UV(4495)& - &+JVS(54925)*UV(4496)+JVS(54926)*UV(4499)+JVS(54927)*UV(4500)+JVS(54928)*UV(4504)+JVS(54929)*UV(4505)& - &+JVS(54930)*UV(4508)+JVS(54931)*UV(4509)+JVS(54932)*UV(4512)+JVS(54933)*UV(4514)+JVS(54934)*UV(4516)& - &+JVS(54935)*UV(4518)+JVS(54936)*UV(4519)+JVS(54937)*UV(4522)+JVS(54938)*UV(4523)+JVS(54939)*UV(4527)& - &+JVS(54940)*UV(4531)+JVS(54941)*UV(4555)+JVS(54942)*UV(4570)+JVS(54944)*UV(4591)+JVS(54946)*UV(4600)& - &+JVS(54947)*UV(4601)+JVS(54948)*UV(4604)+JVS(54949)*UV(4605)+JVS(54950)*UV(4606)+JVS(54952)*UV(4611)& - &+JVS(54953)*UV(4615)+JVS(54954)*UV(4622)+JVS(54955)*UV(4623)+JVS(54956)*UV(4624)+JVS(54957)*UV(4626)& - &+JVS(54958)*UV(4628)+JVS(54959)*UV(4629)+JVS(54960)*UV(4632)+JVS(54961)*UV(4633)+JVS(54962)*UV(4634)& - &+JVS(54963)*UV(4635)+JVS(54964)*UV(4636)+JVS(54965)*UV(4637)+JVS(54966)*UV(4638)+JVS(54967)*UV(4639)& - &+JVS(54968)*UV(4641)+JVS(54969)*UV(4642)+JVS(54970)*UV(4649)+JVS(54971)*UV(4650)+JVS(54972)*UV(4652)& - &+JVS(54973)*UV(4653)+JVS(54974)*UV(4654)+JVS(54975)*UV(4656)+JVS(54976)*UV(4657)+JVS(54977)*UV(4658)& - &+JVS(54978)*UV(4659)+JVS(54979)*UV(4660)+JVS(54980)*UV(4662)+JVS(54981)*UV(4663)+JVS(54982)*UV(4664)& - &+JVS(54983)*UV(4665)+JVS(54984)*UV(4670)+JVS(54985)*UV(4671)+JVS(54986)*UV(4673)+JVS(54987)*UV(4676)& - &+JVS(54988)*UV(4679)+JVS(54989)*UV(4680)+JVS(54990)*UV(4681)+JVS(54991)*UV(4682)+JVS(54992)*UV(4684)& - &+JVS(54993)*UV(4685)+JVS(54994)*UV(4690)+JVS(54995)*UV(4692)+JVS(54997)*UV(4738)+JVS(54998)*UV(4739)& - &+JVS(54999)*UV(4740)+JVS(55000)*UV(4752)+JVS(55001)*UV(4753)+JVS(55002)*UV(4770)+JVS(55003)*UV(4771)& - &+JVS(55004)*UV(4772)+JVS(55006)*UV(4786)+JVS(55007)*UV(4788)+JVS(55009)*UV(4790)+JVS(55010)*UV(4791)& - &+JVS(55011)*UV(4793)+JVS(55012)*UV(4794)+JVS(55013)*UV(4795)+JVS(55014)*UV(4797)+JVS(55015)*UV(4798)& - &+JVS(55017)*UV(4805)+JVS(55018)*UV(4807)+JVS(55019)*UV(4808)+JVS(55021)*UV(4810)+JVS(55022)*UV(4812)& - &+JVS(55023)*UV(4816)+JVS(55024)*UV(4818)+JVS(55025)*UV(4822)+JVS(55026)*UV(4829)+JVS(55027)*UV(4830)& - &+JVS(55028)*UV(4832)+JVS(55029)*UV(4833)+JVS(55031)*UV(4836)+JVS(55032)*UV(4839)+JVS(55033)*UV(4840)& - &+JVS(55035)*UV(4846)+JVS(55036)*UV(4847)+JVS(55037)*UV(4848)+JVS(55038)*UV(4849)+JVS(55039)*UV(4850)& - &+JVS(55040)*UV(4853)+JVS(55041)*UV(4854)+JVS(55042)*UV(4855)+JVS(55043)*UV(4859)+JVS(55044)*UV(4862)& - &+JVS(55045)*UV(4863)+JVS(55046)*UV(4866)+JVS(55047)*UV(4867)+JVS(55051)*UV(4888)+JVS(55052)*UV(4892)& - &+JVS(55053)*UV(4895)+JVS(55054)*UV(4896)+JVS(55055)*UV(4907)+JVS(55056)*UV(4910)+JVS(55057)*UV(4915)& - &+JVS(55058)*UV(4916)+JVS(55059)*UV(4917)+JVS(55060)*UV(4921)+JVS(55062)*UV(4926)+JVS(55063)*UV(4927)& - &+JVS(55065)*UV(4930)+JVS(55066)*UV(4932)+JVS(55068)*UV(4934)+JVS(55070)*UV(4944)+JVS(55072)*UV(4946)& - &+JVS(55073)*UV(4948)+JVS(55074)*UV(4949)+JVS(55076)*UV(4951)+JVS(55077)*UV(4952)+JVS(55078)*UV(4953)& - &+JVS(55079)*UV(4954)+JVS(55080)*UV(4955)+JVS(55082)*UV(4962)+JVS(55084)*UV(4965)+JVS(55085)*UV(4968)& - &+JVS(55086)*UV(4970)+JVS(55090)*UV(4976)+JVS(55091)*UV(4977)+JVS(55093)*UV(4979)+JVS(55094)*UV(4986)& - &+JVS(55096)*UV(4988)+JVS(55097)*UV(4989)+JVS(55098)*UV(4993)+JVS(55099)*UV(4994)+JVS(55101)*UV(5002)& - &+JVS(55102)*UV(5003)+JVS(55103)*UV(5004)+JVS(55104)*UV(5005)+JVS(55105)*UV(5006)+JVS(55106)*UV(5008)& - &+JVS(55108)*UV(5013)+JVS(55109)*UV(5014)+JVS(55111)*UV(5017)+JVS(55113)*UV(5021)+JVS(55115)*UV(5024)& - &+JVS(55116)*UV(5025)+JVS(55117)*UV(5027)+JVS(55119)*UV(5029)+JVS(55121)*UV(5033)+JVS(55122)*UV(5034)& - &+JVS(55123)*UV(5036)+JVS(55124)*UV(5037)+JVS(55127)*UV(5044)+JVS(55130)*UV(5049)+JVS(55131)*UV(5050)& - &+JVS(55132)*UV(5051)+JVS(55133)*UV(5052)+JVS(55134)*UV(5054)+JVS(55136)*UV(5058)+JVS(55141)*UV(5066)& - &+JVS(55142)*UV(5068)+JVS(55143)*UV(5069)+JVS(55147)*UV(5075)+JVS(55148)*UV(5076)+JVS(55150)*UV(5079)& - &+JVS(55153)*UV(5083)+JVS(55156)*UV(5088)+JVS(55157)*UV(5089)+JVS(55158)*UV(5090)+JVS(55161)*UV(5093)& - &+JVS(55162)*UV(5095)+JVS(55164)*UV(5099)+JVS(55165)*UV(5103)+JVS(55167)*UV(5106)+JVS(55172)*UV(5117)& - &+JVS(55175)*UV(5123)+JVS(55176)*UV(5124)+JVS(55177)*UV(5125)+JVS(55178)*UV(5126)+JVS(55179)*UV(5128)& - &+JVS(55180)*UV(5131)+JVS(55182)*UV(5133)+JVS(55183)*UV(5137)+JVS(55186)*UV(5141)+JVS(55191)*UV(5152)& - &+JVS(55192)*UV(5153)+JVS(55194)*UV(5155)+JVS(55199)*UV(5164)+JVS(55201)*UV(5166)+JVS(55202)*UV(5167)& - &+JVS(55203)*UV(5168)+JVS(55204)*UV(5169)+JVS(55207)*UV(5175)+JVS(55210)*UV(5179)+JVS(55213)*UV(5183)& - &+JVS(55216)*UV(5187)+JVS(55217)*UV(5189)+JVS(55218)*UV(5190)+JVS(55221)*UV(5194)+JVS(55223)*UV(5200)& - &+JVS(55226)*UV(5205)+JVS(55228)*UV(5207)+JVS(55230)*UV(5209)+JVS(55234)*UV(5214)+JVS(55236)*UV(5216)& - &+JVS(55240)*UV(5220)+JVS(55244)*UV(5226)+JVS(55245)*UV(5227)+JVS(55248)*UV(5232)+JVS(55253)*UV(5237)& - &+JVS(55257)*UV(5243)+JVS(55258)*UV(5244)+JVS(55259)*UV(5245)+JVS(55263)*UV(5249)+JVS(55264)*UV(5250)& - &+JVS(55266)*UV(5252)+JVS(55267)*UV(5253)+JVS(55269)*UV(5255)+JVS(55271)*UV(5257)+JVS(55272)*UV(5258) - -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(4)*UV(2) - JTUV(3) = JVS(5)*UV(2)+JVS(6)*UV(3) - JTUV(4) = JVS(58)*UV(4)+JVS(16510)*UV(3568)+JVS(40586)*UV(5250) - JTUV(5) = JVS(7)*UV(3)+JVS(60)*UV(5)+JVS(50325)*UV(5255) - JTUV(6) = JVS(63)*UV(6)+JVS(29736)*UV(4924)+JVS(38089)*UV(5231) - JTUV(7) = JVS(65)*UV(7)+JVS(32879)*UV(5106)+JVS(38090)*UV(5231) - JTUV(8) = JVS(67)*UV(8)+JVS(34198)*UV(5158)+JVS(38091)*UV(5231) - JTUV(9) = JVS(69)*UV(9)+JVS(20985)*UV(4109) - JTUV(10) = JVS(73)*UV(10)+JVS(37333)*UV(5221) - JTUV(11) = JVS(77)*UV(11)+JVS(34911)*UV(5178)+JVS(45065)*UV(5251)+JVS(50326)*UV(5255) - JTUV(12) = JVS(79)*UV(12)+JVS(39597)*UV(5241)+JVS(40587)*UV(5250) - JTUV(13) = JVS(82)*UV(13)+JVS(14509)*UV(3246)+JVS(40588)*UV(5250) - JTUV(14) = JVS(85)*UV(14)+JVS(22004)*UV(4221) - JTUV(15) = JVS(90)*UV(15)+JVS(24640)*UV(4482)+JVS(40589)*UV(5250) - JTUV(16) = JVS(93)*UV(16)+JVS(22795)*UV(4299) - JTUV(17) = JVS(98)*UV(17)+JVS(23030)*UV(4322)+JVS(40590)*UV(5250) - JTUV(18) = JVS(101)*UV(18)+JVS(14766)*UV(3296)+JVS(40591)*UV(5250) - JTUV(19) = JVS(104)*UV(19)+JVS(37371)*UV(5222)+JVS(40592)*UV(5250) - JTUV(20) = JVS(107)*UV(20)+JVS(22228)*UV(4242)+JVS(40593)*UV(5250) - JTUV(21) = JVS(110)*UV(21)+JVS(28922)*UV(4861)+JVS(40594)*UV(5250) - JTUV(22) = JVS(113)*UV(22)+JVS(18607)*UV(3826)+JVS(40595)*UV(5250) - JTUV(23) = JVS(116)*UV(23)+JVS(471)*UV(122)+JVS(47941)*UV(5253) - JTUV(24) = JVS(119)*UV(24)+JVS(6302)*UV(1572)+JVS(40596)*UV(5250) - JTUV(25) = JVS(122)*UV(25)+JVS(24837)*UV(4497) - JTUV(26) = JVS(127)*UV(26)+JVS(587)*UV(152)+JVS(40597)*UV(5250) - JTUV(27) = JVS(130)*UV(27)+JVS(22165)*UV(4236)+JVS(40598)*UV(5250) - JTUV(28) = JVS(133)*UV(28)+JVS(1074)*UV(254)+JVS(40599)*UV(5250) - JTUV(29) = JVS(136)*UV(29)+JVS(38941)*UV(5233)+JVS(40600)*UV(5250) - JTUV(30) = JVS(139)*UV(30)+JVS(909)*UV(206)+JVS(40601)*UV(5250) - JTUV(31) = JVS(142)*UV(31)+JVS(24309)*UV(4448)+JVS(40602)*UV(5250) - JTUV(32) = JVS(145)*UV(32)+JVS(7149)*UV(1754)+JVS(40603)*UV(5250) - JTUV(33) = JVS(148)*UV(33)+JVS(22336)*UV(4253)+JVS(40604)*UV(5250) - JTUV(34) = JVS(151)*UV(34)+JVS(1754)*UV(445)+JVS(40605)*UV(5250) - JTUV(35) = JVS(154)*UV(35)+JVS(19338)*UV(3916) - JTUV(36) = JVS(159)*UV(36)+JVS(19971)*UV(3992) - JTUV(37) = JVS(164)*UV(37)+JVS(39598)*UV(5241)+JVS(40606)*UV(5250) - JTUV(38) = JVS(167)*UV(38)+JVS(6534)*UV(1622)+JVS(40607)*UV(5250) - JTUV(39) = JVS(170)*UV(39)+JVS(7106)*UV(1745)+JVS(40608)*UV(5250) - JTUV(40) = JVS(173)*UV(40)+JVS(692)*UV(169)+JVS(40609)*UV(5250) - JTUV(41) = JVS(176)*UV(41)+JVS(6945)*UV(1713)+JVS(40610)*UV(5250) - JTUV(42) = JVS(179)*UV(42)+JVS(19241)*UV(3905) - JTUV(43) = JVS(184)*UV(43)+JVS(19039)*UV(3880) - JTUV(44) = JVS(189)*UV(44)+JVS(26430)*UV(4648) - JTUV(45) = JVS(194)*UV(45)+JVS(20395)*UV(4042) - JTUV(46) = JVS(199)*UV(46)+JVS(6800)*UV(1680)+JVS(40611)*UV(5250) - JTUV(47) = JVS(202)*UV(47)+JVS(20426)*UV(4045)+JVS(40612)*UV(5250) - JTUV(48) = JVS(205)*UV(48)+JVS(28923)*UV(4861)+JVS(40613)*UV(5250) - JTUV(49) = JVS(208)*UV(49)+JVS(18680)*UV(3838) - JTUV(50) = JVS(213)*UV(50)+JVS(19844)*UV(3977) - JTUV(51) = JVS(218)*UV(51)+JVS(33759)*UV(5142) - JTUV(52) = JVS(223)*UV(52)+JVS(31460)*UV(5030)+JVS(40614)*UV(5250) - JTUV(53) = JVS(226)*UV(53)+JVS(699)*UV(170)+JVS(40615)*UV(5250) - JTUV(54) = JVS(229)*UV(54)+JVS(21556)*UV(4177)+JVS(40616)*UV(5250) - JTUV(55) = JVS(232)*UV(55)+JVS(10800)*UV(2545)+JVS(40617)*UV(5250) - JTUV(56) = JVS(235)*UV(56)+JVS(29794)*UV(4929)+JVS(40618)*UV(5250) - JTUV(57) = JVS(238)*UV(57)+JVS(23049)*UV(4324) - JTUV(58) = JVS(243)*UV(58)+JVS(6453)*UV(1606)+JVS(40619)*UV(5250) - JTUV(59) = JVS(246)*UV(59)+JVS(1296)*UV(315)+JVS(40620)*UV(5250) - JTUV(60) = JVS(249)*UV(60)+JVS(3024)*UV(760)+JVS(40621)*UV(5250) - JTUV(61) = JVS(252)*UV(61)+JVS(27913)*UV(4779)+JVS(40622)*UV(5250) - JTUV(62) = JVS(255)*UV(62)+JVS(11408)*UV(2662)+JVS(40623)*UV(5250) - JTUV(63) = JVS(258)*UV(63)+JVS(6929)*UV(1710)+JVS(40624)*UV(5250) - JTUV(64) = JVS(261)*UV(64)+JVS(7315)*UV(1789)+JVS(40625)*UV(5250) - JTUV(65) = JVS(264)*UV(65)+JVS(20150)*UV(4013) - JTUV(66) = JVS(269)*UV(66)+JVS(19374)*UV(3919) - JTUV(67) = JVS(274)*UV(67)+JVS(37228)*UV(5216)+JVS(40626)*UV(5250) - JTUV(68) = JVS(277)*UV(68)+JVS(14242)*UV(3195)+JVS(40627)*UV(5250) - JTUV(69) = JVS(280)*UV(69)+JVS(26187)*UV(4624) - JTUV(70) = JVS(285)*UV(70)+JVS(13623)*UV(3080)+JVS(40628)*UV(5250) - JTUV(71) = JVS(288)*UV(71)+JVS(27491)*UV(4743)+JVS(40629)*UV(5250) - JTUV(72) = JVS(291)*UV(72)+JVS(896)*UV(204)+JVS(40630)*UV(5250) - JTUV(73) = JVS(294)*UV(73)+JVS(7016)*UV(1727)+JVS(40631)*UV(5250) - JTUV(74) = JVS(297)*UV(74)+JVS(14701)*UV(3283)+JVS(40632)*UV(5250) - JTUV(75) = JVS(300)*UV(75)+JVS(24036)*UV(4423)+JVS(40633)*UV(5250) - JTUV(76) = JVS(303)*UV(76)+JVS(21991)*UV(4220) - JTUV(77) = JVS(308)*UV(77)+JVS(26259)*UV(4631)+JVS(40634)*UV(5250) - JTUV(78) = JVS(311)*UV(78)+JVS(24231)*UV(4441) - JTUV(79) = JVS(316)*UV(79)+JVS(9275)*UV(2207)+JVS(40635)*UV(5250) - JTUV(80) = JVS(319)*UV(80)+JVS(28257)*UV(4806) - JTUV(81) = JVS(324)*UV(81)+JVS(18541)*UV(3818)+JVS(40636)*UV(5250) - JTUV(82) = JVS(327)*UV(82)+JVS(22337)*UV(4253) - JTUV(83) = JVS(332)*UV(83)+JVS(1203)*UV(290)+JVS(40637)*UV(5250) - JTUV(84) = JVS(335)*UV(84)+JVS(20139)*UV(4012)+JVS(40638)*UV(5250) - JTUV(85) = JVS(338)*UV(85)+JVS(10515)*UV(2488)+JVS(47942)*UV(5253) - JTUV(86) = JVS(341)*UV(86)+JVS(37836)*UV(5228)+JVS(47943)*UV(5253) - JTUV(87) = JVS(344)*UV(87)+JVS(1339)*UV(326)+JVS(40639)*UV(5250) - JTUV(88) = JVS(347)*UV(88)+JVS(24682)*UV(4485) - JTUV(89) = JVS(352)*UV(89)+JVS(15711)*UV(3440)+JVS(40640)*UV(5250) - JTUV(90) = JVS(355)*UV(90)+JVS(23050)*UV(4324)+JVS(40641)*UV(5250) - JTUV(91) = JVS(358)*UV(91)+JVS(19553)*UV(3941) - JTUV(92) = JVS(363)*UV(92)+JVS(25294)*UV(4536) - JTUV(93) = JVS(368)*UV(93)+JVS(24232)*UV(4441)+JVS(40642)*UV(5250) - JTUV(94) = JVS(371)*UV(94)+JVS(25979)*UV(4603)+JVS(40643)*UV(5250) - JTUV(95) = JVS(374)*UV(95)+JVS(10192)*UV(2415)+JVS(40644)*UV(5250) - JTUV(96) = JVS(377)*UV(96)+JVS(25029)*UV(4510) - JTUV(97) = JVS(382)*UV(97)+JVS(25295)*UV(4536) - JTUV(98) = JVS(387)*UV(98)+JVS(661)*UV(164)+JVS(40645)*UV(5250) - JTUV(99) = JVS(390)*UV(99)+JVS(9651)*UV(2293)+JVS(40646)*UV(5250) - JTUV(100) = JVS(393)*UV(100)+JVS(6773)*UV(1675)+JVS(40647)*UV(5250) - JTUV(101) = JVS(396)*UV(101)+JVS(654)*UV(163)+JVS(40648)*UV(5250) - JTUV(102) = JVS(399)*UV(102)+JVS(18026)*UV(3754)+JVS(40649)*UV(5250) - JTUV(103) = JVS(402)*UV(103)+JVS(20151)*UV(4013)+JVS(40650)*UV(5250) - JTUV(104) = JVS(405)*UV(104)+JVS(8211)*UV(1975)+JVS(40651)*UV(5250) - JTUV(105) = JVS(408)*UV(105)+JVS(14465)*UV(3241)+JVS(40652)*UV(5250) - JTUV(106) = JVS(411)*UV(106)+JVS(22796)*UV(4299)+JVS(40653)*UV(5250) - JTUV(107) = JVS(414)*UV(107)+JVS(21356)*UV(4154) - JTUV(108) = JVS(419)*UV(108)+JVS(930)*UV(211)+JVS(40654)*UV(5250) - JTUV(109) = JVS(422)*UV(109)+JVS(23077)*UV(4326)+JVS(40655)*UV(5250) - JTUV(110) = JVS(425)*UV(110)+JVS(39343)*UV(5235)+JVS(40656)*UV(5250) - JTUV(111) = JVS(428)*UV(111)+JVS(25262)*UV(4533)+JVS(40657)*UV(5250) - JTUV(112) = JVS(431)*UV(112)+JVS(26202)*UV(4625)+JVS(40658)*UV(5250) - JTUV(113) = JVS(434)*UV(113)+JVS(19219)*UV(3902) - JTUV(114) = JVS(439)*UV(114)+JVS(39599)*UV(5241)+JVS(40659)*UV(5250) - JTUV(115) = JVS(442)*UV(115)+JVS(37837)*UV(5228) - JTUV(116) = JVS(447)*UV(116)+JVS(20437)*UV(4046) - JTUV(117) = JVS(452)*UV(117)+JVS(19298)*UV(3912) - JTUV(118) = JVS(457)*UV(118)+JVS(6523)*UV(1620)+JVS(40660)*UV(5250) - JTUV(119) = JVS(460)*UV(119)+JVS(21337)*UV(4152)+JVS(40661)*UV(5250) - JTUV(120) = JVS(463)*UV(120)+JVS(22215)*UV(4241) - JTUV(121) = JVS(468)*UV(121)+JVS(24212)*UV(4439)+JVS(40662)*UV(5250) - JTUV(122) = JVS(472)*UV(122)+JVS(24070)*UV(4426)+JVS(40663)*UV(5250) - JTUV(123) = JVS(475)*UV(123)+JVS(27842)*UV(4772)+JVS(40664)*UV(5250) - JTUV(124) = JVS(478)*UV(124)+JVS(28174)*UV(4799)+JVS(40665)*UV(5250) - JTUV(125) = JVS(481)*UV(125)+JVS(26594)*UV(4664) - JTUV(126) = JVS(486)*UV(126)+JVS(32197)*UV(5071)+JVS(40666)*UV(5250) - JTUV(127) = JVS(489)*UV(127)+JVS(11848)*UV(2746)+JVS(40667)*UV(5250) - JTUV(128) = JVS(492)*UV(128)+JVS(15456)*UV(3403)+JVS(40668)*UV(5250) - JTUV(129) = JVS(495)*UV(129)+JVS(18424)*UV(3802)+JVS(40669)*UV(5250) - JTUV(130) = JVS(498)*UV(130)+JVS(22883)*UV(4308) - JTUV(131) = JVS(503)*UV(131)+JVS(34787)*UV(5172)+JVS(40670)*UV(5250) - JTUV(132) = JVS(506)*UV(132)+JVS(18961)*UV(3871) - JTUV(133) = JVS(511)*UV(133)+JVS(8149)*UV(1962)+JVS(40671)*UV(5250) - JTUV(134) = JVS(514)*UV(134)+JVS(1231)*UV(297)+JVS(40672)*UV(5250) - JTUV(135) = JVS(517)*UV(135)+JVS(30204)*UV(4950)+JVS(40673)*UV(5250) - JTUV(136) = JVS(520)*UV(136)+JVS(24719)*UV(4488)+JVS(40674)*UV(5250) - JTUV(137) = JVS(2)*UV(1)+JVS(523)*UV(137)+JVS(47944)*UV(5253)+JVS(53216)*UV(5256) - JTUV(138) = JVS(526)*UV(138)+JVS(22692)*UV(4290) - JTUV(139) = JVS(531)*UV(139)+JVS(1667)*UV(421)+JVS(40675)*UV(5250) - JTUV(140) = JVS(534)*UV(140)+JVS(19049)*UV(3881) - JTUV(141) = JVS(539)*UV(141)+JVS(31596)*UV(5038) - JTUV(142) = JVS(544)*UV(142)+JVS(10440)*UV(2471)+JVS(47945)*UV(5253) - JTUV(143) = JVS(547)*UV(143)+JVS(26121)*UV(4619)+JVS(40676)*UV(5250) - JTUV(144) = JVS(550)*UV(144)+JVS(12811)*UV(2933)+JVS(40677)*UV(5250) - JTUV(145) = JVS(553)*UV(145)+JVS(29524)*UV(4910) - JTUV(146) = JVS(558)*UV(146)+JVS(18092)*UV(3761) - JTUV(147) = JVS(563)*UV(147)+JVS(20724)*UV(4078)+JVS(40678)*UV(5250) - JTUV(148) = JVS(566)*UV(148)+JVS(30760)*UV(4987)+JVS(40679)*UV(5250) - JTUV(149) = JVS(569)*UV(149)+JVS(27551)*UV(4748) - JTUV(150) = JVS(575)*UV(150)+JVS(28483)*UV(4827) - JTUV(151) = JVS(581)*UV(151)+JVS(23003)*UV(4319) - JTUV(152) = JVS(588)*UV(152)+JVS(28959)*UV(4864) - JTUV(153) = JVS(594)*UV(153)+JVS(23506)*UV(4374) - JTUV(154) = JVS(600)*UV(154)+JVS(25404)*UV(4545) - JTUV(155) = JVS(606)*UV(155)+JVS(18952)*UV(3870) - JTUV(156) = JVS(612)*UV(156)+JVS(19210)*UV(3901) - JTUV(157) = JVS(618)*UV(157)+JVS(22059)*UV(4226) - JTUV(158) = JVS(624)*UV(158)+JVS(31071)*UV(5006) - JTUV(159) = JVS(630)*UV(159)+JVS(19121)*UV(3890) - JTUV(160) = JVS(636)*UV(160)+JVS(19483)*UV(3932) - JTUV(161) = JVS(642)*UV(161)+JVS(32932)*UV(5108) - JTUV(162) = JVS(648)*UV(162)+JVS(20882)*UV(4098) - JTUV(163) = JVS(655)*UV(163)+JVS(30442)*UV(4966) - JTUV(164) = JVS(662)*UV(164)+JVS(28028)*UV(4792) - JTUV(165) = JVS(668)*UV(165)+JVS(19947)*UV(3989) - JTUV(166) = JVS(674)*UV(166)+JVS(33110)*UV(5119) - JTUV(167) = JVS(680)*UV(167)+JVS(23418)*UV(4365) - JTUV(168) = JVS(686)*UV(168)+JVS(22962)*UV(4315) - JTUV(169) = JVS(693)*UV(169)+JVS(21382)*UV(4157) - JTUV(170) = JVS(700)*UV(170)+JVS(32734)*UV(5100) - JTUV(171) = JVS(706)*UV(171)+JVS(17719)*UV(3718) - JTUV(172) = JVS(712)*UV(172)+JVS(23711)*UV(4394) - JTUV(173) = JVS(718)*UV(173)+JVS(28404)*UV(4820) - JTUV(174) = JVS(724)*UV(174)+JVS(24244)*UV(4442) - JTUV(175) = JVS(730)*UV(175)+JVS(21482)*UV(4169) - JTUV(176) = JVS(736)*UV(176)+JVS(27995)*UV(4789) - JTUV(177) = JVS(742)*UV(177)+JVS(17985)*UV(3749) - JTUV(178) = JVS(748)*UV(178)+JVS(21944)*UV(4216) - JTUV(179) = JVS(754)*UV(179)+JVS(29210)*UV(4885) - JTUV(180) = JVS(760)*UV(180)+JVS(31072)*UV(5006) - JTUV(181) = JVS(766)*UV(181)+JVS(6310)*UV(1573)+JVS(25585)*UV(4562)+JVS(28686)*UV(4844)+JVS(40680)*UV(5250)+JVS(50327)& - &*UV(5255) - JTUV(182) = JVS(768)*UV(182)+JVS(21319)*UV(4150) - JTUV(183) = JVS(774)*UV(183)+JVS(19634)*UV(3951) - JTUV(184) = JVS(780)*UV(184)+JVS(27261)*UV(4722) - JTUV(185) = JVS(786)*UV(185)+JVS(19432)*UV(3926) - JTUV(186) = JVS(792)*UV(186)+JVS(17509)*UV(3690) - JTUV(187) = JVS(798)*UV(187)+JVS(27743)*UV(4764) - JTUV(188) = JVS(804)*UV(188)+JVS(23376)*UV(4360) - JTUV(189) = JVS(810)*UV(189)+JVS(40510)*UV(5247) - JTUV(190) = JVS(816)*UV(190)+JVS(26689)*UV(4672) - JTUV(191) = JVS(822)*UV(191)+JVS(21746)*UV(4196) - JTUV(192) = JVS(828)*UV(192)+JVS(17827)*UV(3731) - JTUV(193) = JVS(834)*UV(193)+JVS(17541)*UV(3694) - JTUV(194) = JVS(840)*UV(194)+JVS(32560)*UV(5091) - JTUV(195) = JVS(846)*UV(195)+JVS(29545)*UV(4911) - JTUV(196) = JVS(852)*UV(196)+JVS(17518)*UV(3691) - JTUV(197) = JVS(858)*UV(197)+JVS(18002)*UV(3751) - JTUV(198) = JVS(864)*UV(198)+JVS(2675)*UV(680)+JVS(38942)*UV(5233)+JVS(40681)*UV(5250)+JVS(45066)*UV(5251)+JVS(50328)& - &*UV(5255) - JTUV(199) = JVS(866)*UV(199)+JVS(25632)*UV(4567) - JTUV(200) = JVS(872)*UV(200)+JVS(29260)*UV(4890) - JTUV(201) = JVS(878)*UV(201)+JVS(17653)*UV(3710) - JTUV(202) = JVS(884)*UV(202)+JVS(19766)*UV(3967) - JTUV(203) = JVS(890)*UV(203)+JVS(21080)*UV(4120) - JTUV(204) = JVS(897)*UV(204)+JVS(21923)*UV(4214) - JTUV(205) = JVS(903)*UV(205)+JVS(18816)*UV(3854) - JTUV(206) = JVS(910)*UV(206)+JVS(28464)*UV(4825) - JTUV(207) = JVS(916)*UV(207)+JVS(34029)*UV(5150)+JVS(40682)*UV(5250) - JTUV(208) = JVS(920)*UV(208)+JVS(7024)*UV(1728)+JVS(40683)*UV(5250)+JVS(50329)*UV(5255) - JTUV(209) = JVS(923)*UV(209)+JVS(7641)*UV(1852)+JVS(40684)*UV(5250)+JVS(50330)*UV(5255) - JTUV(210) = JVS(926)*UV(210)+JVS(20714)*UV(4077)+JVS(40685)*UV(5250) - JTUV(211) = JVS(931)*UV(211)+JVS(21423)*UV(4162) - JTUV(212) = JVS(938)*UV(212)+JVS(1915)*UV(490)+JVS(40686)*UV(5250)+JVS(50331)*UV(5255) - JTUV(213) = JVS(941)*UV(213)+JVS(12997)*UV(2965)+JVS(40687)*UV(5250)+JVS(50332)*UV(5255) - JTUV(214) = JVS(944)*UV(214)+JVS(27467)*UV(4741)+JVS(36126)*UV(5197)+JVS(40688)*UV(5250) - JTUV(215) = JVS(947)*UV(215)+JVS(18117)*UV(3764)+JVS(40689)*UV(5250) - JTUV(216) = JVS(951)*UV(216)+JVS(20909)*UV(4101)+JVS(40690)*UV(5250) - JTUV(217) = JVS(955)*UV(217)+JVS(21109)*UV(4123)+JVS(25617)*UV(4565)+JVS(40691)*UV(5250) - JTUV(218) = JVS(958)*UV(218)+JVS(12998)*UV(2965)+JVS(40692)*UV(5250)+JVS(50333)*UV(5255) - JTUV(219) = JVS(961)*UV(219)+JVS(9560)*UV(2273)+JVS(40693)*UV(5250)+JVS(50334)*UV(5255) - JTUV(220) = JVS(964)*UV(220)+JVS(15314)*UV(3384)+JVS(40694)*UV(5250)+JVS(50335)*UV(5255) - JTUV(221) = JVS(967)*UV(221)+JVS(33898)*UV(5144)+JVS(39494)*UV(5238)+JVS(40695)*UV(5250) - JTUV(222) = JVS(970)*UV(222)+JVS(22437)*UV(4263)+JVS(40696)*UV(5250) - JTUV(223) = JVS(974)*UV(223)+JVS(19591)*UV(3946)+JVS(40697)*UV(5250)+JVS(50336)*UV(5255) - JTUV(224) = JVS(977)*UV(224)+JVS(21207)*UV(4135)+JVS(21284)*UV(4145)+JVS(40698)*UV(5250) - JTUV(225) = JVS(980)*UV(225)+JVS(17131)*UV(3643)+JVS(40699)*UV(5250)+JVS(50337)*UV(5255) - JTUV(226) = JVS(983)*UV(226)+JVS(9381)*UV(2230)+JVS(40700)*UV(5250)+JVS(50338)*UV(5255) - JTUV(227) = JVS(986)*UV(227)+JVS(23524)*UV(4376)+JVS(40701)*UV(5250) - JTUV(228) = JVS(990)*UV(228)+JVS(16066)*UV(3505)+JVS(40702)*UV(5250)+JVS(50339)*UV(5255) - JTUV(229) = JVS(993)*UV(229)+JVS(19805)*UV(3972)+JVS(40703)*UV(5250)+JVS(50340)*UV(5255) - JTUV(230) = JVS(996)*UV(230)+JVS(32659)*UV(5097)+JVS(40704)*UV(5250) - JTUV(231) = JVS(1000)*UV(231)+JVS(25346)*UV(4540)+JVS(40705)*UV(5250)+JVS(50341)*UV(5255) - JTUV(232) = JVS(1003)*UV(232)+JVS(22974)*UV(4316)+JVS(40706)*UV(5250) - JTUV(233) = JVS(1007)*UV(233)+JVS(4155)*UV(1040)+JVS(40707)*UV(5250)+JVS(50342)*UV(5255) - JTUV(234) = JVS(1010)*UV(234)+JVS(13784)*UV(3109)+JVS(40708)*UV(5250)+JVS(50343)*UV(5255) - JTUV(235) = JVS(1013)*UV(235)+JVS(35050)*UV(5181)+JVS(39495)*UV(5238)+JVS(40709)*UV(5250) - JTUV(236) = JVS(1016)*UV(236)+JVS(22448)*UV(4264)+JVS(27721)*UV(4762)+JVS(40710)*UV(5250) - JTUV(237) = JVS(1019)*UV(237)+JVS(36047)*UV(5195)+JVS(40711)*UV(5250) - JTUV(238) = JVS(1023)*UV(238)+JVS(31835)*UV(5049)+JVS(40712)*UV(5250)+JVS(50344)*UV(5255) - JTUV(239) = JVS(1026)*UV(239)+JVS(25392)*UV(4544)+JVS(39600)*UV(5241)+JVS(40713)*UV(5250) - JTUV(240) = JVS(1029)*UV(240)+JVS(33984)*UV(5148)+JVS(40714)*UV(5250) - JTUV(241) = JVS(1033)*UV(241)+JVS(17603)*UV(3703)+JVS(40715)*UV(5250) - JTUV(242) = JVS(1037)*UV(242)+JVS(18995)*UV(3875)+JVS(40716)*UV(5250)+JVS(50345)*UV(5255) - JTUV(243) = JVS(1040)*UV(243)+JVS(27661)*UV(4757)+JVS(33157)*UV(5122)+JVS(40717)*UV(5250) - JTUV(244) = JVS(1043)*UV(244)+JVS(4923)*UV(1231)+JVS(40718)*UV(5250)+JVS(47946)*UV(5253) - JTUV(245) = JVS(91)*UV(15)+JVS(1046)*UV(245)+JVS(47947)*UV(5253) - JTUV(246) = JVS(1049)*UV(246)+JVS(5935)*UV(1483)+JVS(40720)*UV(5250)+JVS(50346)*UV(5255) - JTUV(247) = JVS(1052)*UV(247)+JVS(5977)*UV(1493)+JVS(40721)*UV(5250)+JVS(50347)*UV(5255) - JTUV(248) = JVS(1055)*UV(248)+JVS(6565)*UV(1628)+JVS(40722)*UV(5250)+JVS(50348)*UV(5255) - JTUV(249) = JVS(1058)*UV(249)+JVS(39194)*UV(5234)+JVS(40723)*UV(5250)+JVS(50349)*UV(5255) - JTUV(250) = JVS(1061)*UV(250)+JVS(14047)*UV(3157)+JVS(18217)*UV(3776)+JVS(18586)*UV(3823)+JVS(20126)*UV(4010)& - &+JVS(40724)*UV(5250)+JVS(50350)*UV(5255) - JTUV(251) = JVS(1063)*UV(251)+JVS(20805)*UV(4088)+JVS(40725)*UV(5250) - JTUV(252) = JVS(1067)*UV(252)+JVS(23227)*UV(4342)+JVS(40726)*UV(5250) - JTUV(253) = JVS(1071)*UV(253)+JVS(32115)*UV(5065)+JVS(39496)*UV(5238)+JVS(40727)*UV(5250) - JTUV(254) = JVS(1075)*UV(254)+JVS(19883)*UV(3981) - JTUV(255) = JVS(1082)*UV(255)+JVS(29689)*UV(4920)+JVS(40728)*UV(5250) - JTUV(256) = JVS(1086)*UV(256)+JVS(16009)*UV(3497)+JVS(40729)*UV(5250)+JVS(50351)*UV(5255) - JTUV(257) = JVS(1089)*UV(257)+JVS(6204)*UV(1550)+JVS(40730)*UV(5250)+JVS(50352)*UV(5255) - JTUV(258) = JVS(1092)*UV(258)+JVS(30858)*UV(4995)+JVS(40731)*UV(5250) - JTUV(259) = JVS(1096)*UV(259)+JVS(4529)*UV(1133)+JVS(40732)*UV(5250)+JVS(47948)*UV(5253) - JTUV(260) = JVS(1099)*UV(260)+JVS(40733)*UV(5250)+JVS(50353)*UV(5255) - JTUV(261) = JVS(1103)*UV(261)+JVS(23545)*UV(4378)+JVS(50354)*UV(5255) - JTUV(262) = JVS(1107)*UV(262)+JVS(17255)*UV(3657)+JVS(40734)*UV(5250)+JVS(50355)*UV(5255) - JTUV(263) = JVS(1110)*UV(263)+JVS(13013)*UV(2967)+JVS(40735)*UV(5250)+JVS(50356)*UV(5255) - JTUV(264) = JVS(1113)*UV(264)+JVS(27296)*UV(4726)+JVS(40736)*UV(5250) - JTUV(265) = JVS(1117)*UV(265)+JVS(18853)*UV(3858)+JVS(40737)*UV(5250) - JTUV(266) = JVS(1121)*UV(266)+JVS(6377)*UV(1590)+JVS(40738)*UV(5250)+JVS(50357)*UV(5255) - JTUV(267) = JVS(1124)*UV(267)+JVS(1499)*UV(373)+JVS(40739)*UV(5250)+JVS(50358)*UV(5255) - JTUV(268) = JVS(1127)*UV(268)+JVS(34883)*UV(5177)+JVS(40740)*UV(5250)+JVS(50359)*UV(5255) - JTUV(269) = JVS(1130)*UV(269)+JVS(13999)*UV(3148)+JVS(40741)*UV(5250)+JVS(50360)*UV(5255) - JTUV(270) = JVS(1133)*UV(270)+JVS(33003)*UV(5112)+JVS(39497)*UV(5238)+JVS(40742)*UV(5250) - JTUV(271) = JVS(1136)*UV(271)+JVS(17908)*UV(3741) - JTUV(272) = JVS(1143)*UV(272)+JVS(20577)*UV(4060)+JVS(40743)*UV(5250) - JTUV(273) = JVS(1147)*UV(273)+JVS(1310)*UV(318)+JVS(40744)*UV(5250)+JVS(50361)*UV(5255) - JTUV(274) = JVS(1150)*UV(274)+JVS(13747)*UV(3103)+JVS(40745)*UV(5250)+JVS(50362)*UV(5255) - JTUV(275) = JVS(1153)*UV(275)+JVS(18327)*UV(3789)+JVS(40746)*UV(5250) - JTUV(276) = JVS(1157)*UV(276)+JVS(18218)*UV(3776)+JVS(40747)*UV(5250) - JTUV(277) = JVS(1161)*UV(277)+JVS(17183)*UV(3649)+JVS(40748)*UV(5250)+JVS(50363)*UV(5255) - JTUV(278) = JVS(1164)*UV(278)+JVS(17221)*UV(3653)+JVS(40749)*UV(5250)+JVS(50364)*UV(5255) - JTUV(279) = JVS(1167)*UV(279)+JVS(15168)*UV(3365)+JVS(40750)*UV(5250)+JVS(50365)*UV(5255) - JTUV(280) = JVS(1170)*UV(280)+JVS(22316)*UV(4251)+JVS(40751)*UV(5250) - JTUV(281) = JVS(1174)*UV(281)+JVS(7599)*UV(1843)+JVS(40752)*UV(5250)+JVS(50366)*UV(5255) - JTUV(282) = JVS(1177)*UV(282)+JVS(34048)*UV(5151)+JVS(40753)*UV(5250) - JTUV(283) = JVS(1181)*UV(283)+JVS(13863)*UV(3122)+JVS(40754)*UV(5250)+JVS(50367)*UV(5255) - JTUV(284) = JVS(1184)*UV(284)+JVS(11317)*UV(2644)+JVS(40755)*UV(5250)+JVS(50368)*UV(5255) - JTUV(285) = JVS(70)*UV(9)+JVS(1187)*UV(285)+JVS(40756)*UV(5250)+JVS(50369)*UV(5255) - JTUV(286) = JVS(1190)*UV(286)+JVS(11424)*UV(2665)+JVS(40757)*UV(5250)+JVS(50370)*UV(5255) - JTUV(287) = JVS(1193)*UV(287)+JVS(25467)*UV(4550)+JVS(40758)*UV(5250) - JTUV(288) = JVS(1197)*UV(288)+JVS(30618)*UV(4980)+JVS(39498)*UV(5238)+JVS(40759)*UV(5250) - JTUV(289) = JVS(1200)*UV(289)+JVS(23666)*UV(4391)+JVS(40760)*UV(5250)+JVS(50371)*UV(5255) - JTUV(290) = JVS(1204)*UV(290)+JVS(19059)*UV(3882) - JTUV(291) = JVS(1211)*UV(291)+JVS(32295)*UV(5078)+JVS(40761)*UV(5250) - JTUV(292) = JVS(1215)*UV(292)+JVS(16754)*UV(3599)+JVS(40762)*UV(5250)+JVS(50372)*UV(5255) - JTUV(293) = JVS(1218)*UV(293)+JVS(21800)*UV(4201)+JVS(25594)*UV(4563)+JVS(40763)*UV(5250) - JTUV(294) = JVS(1221)*UV(294)+JVS(37730)*UV(5224)+JVS(40764)*UV(5250) - JTUV(295) = JVS(1225)*UV(295)+JVS(21576)*UV(4179)+JVS(40765)*UV(5250)+JVS(50373)*UV(5255) - JTUV(296) = JVS(1228)*UV(296)+JVS(12410)*UV(2856)+JVS(40766)*UV(5250)+JVS(50374)*UV(5255) - JTUV(297) = JVS(1232)*UV(297)+JVS(18826)*UV(3855) - JTUV(298) = JVS(1239)*UV(298)+JVS(10412)*UV(2465)+JVS(33355)*UV(5129)+JVS(40767)*UV(5250) - JTUV(299) = JVS(1242)*UV(299)+JVS(1582)*UV(397)+JVS(40768)*UV(5250)+JVS(50375)*UV(5255) - JTUV(300) = JVS(1245)*UV(300)+JVS(25740)*UV(4580) - JTUV(301) = JVS(1252)*UV(301)+JVS(40474)*UV(5246)+JVS(40769)*UV(5250) - JTUV(302) = JVS(1256)*UV(302)+JVS(16379)*UV(3549)+JVS(40770)*UV(5250)+JVS(50376)*UV(5255) - JTUV(303) = JVS(1259)*UV(303)+JVS(2178)*UV(561)+JVS(40771)*UV(5250)+JVS(50377)*UV(5255) - JTUV(304) = JVS(1262)*UV(304)+JVS(25551)*UV(4559)+JVS(40772)*UV(5250)+JVS(50378)*UV(5255) - JTUV(305) = JVS(1265)*UV(305)+JVS(10508)*UV(2486)+JVS(40773)*UV(5250)+JVS(50379)*UV(5255) - JTUV(306) = JVS(1268)*UV(306)+JVS(25311)*UV(4537)+JVS(40774)*UV(5250)+JVS(50380)*UV(5255) - JTUV(307) = JVS(1271)*UV(307)+JVS(10950)*UV(2574)+JVS(40775)*UV(5250)+JVS(50381)*UV(5255) - JTUV(308) = JVS(1274)*UV(308)+JVS(19415)*UV(3924)+JVS(40776)*UV(5250)+JVS(50382)*UV(5255) - JTUV(309) = JVS(1277)*UV(309)+JVS(21979)*UV(4219)+JVS(40777)*UV(5250) - JTUV(310) = JVS(1281)*UV(310)+JVS(32386)*UV(5083)+JVS(40778)*UV(5250)+JVS(50383)*UV(5255) - JTUV(311) = JVS(1284)*UV(311)+JVS(10558)*UV(2495)+JVS(40779)*UV(5250)+JVS(50384)*UV(5255) - JTUV(312) = JVS(1287)*UV(312)+JVS(4530)*UV(1133)+JVS(40780)*UV(5250)+JVS(50385)*UV(5255) - JTUV(313) = JVS(1290)*UV(313)+JVS(11997)*UV(2773)+JVS(40781)*UV(5250)+JVS(50386)*UV(5255) - JTUV(314) = JVS(1293)*UV(314)+JVS(18227)*UV(3777)+JVS(40782)*UV(5250)+JVS(50387)*UV(5255) - JTUV(315) = JVS(1297)*UV(315)+JVS(21508)*UV(4172) - JTUV(316) = JVS(1304)*UV(316)+JVS(27405)*UV(4736)+JVS(40783)*UV(5250)+JVS(50388)*UV(5255) - JTUV(317) = JVS(1307)*UV(317)+JVS(10639)*UV(2512)+JVS(40784)*UV(5250)+JVS(50389)*UV(5255) - JTUV(318) = JVS(1311)*UV(318)+JVS(20438)*UV(4046)+JVS(40785)*UV(5250) - JTUV(319) = JVS(1315)*UV(319)+JVS(16973)*UV(3626)+JVS(40786)*UV(5250)+JVS(50390)*UV(5255) - JTUV(320) = JVS(1318)*UV(320)+JVS(12843)*UV(2938)+JVS(40787)*UV(5250)+JVS(50391)*UV(5255) - JTUV(321) = JVS(1321)*UV(321)+JVS(7730)*UV(1870)+JVS(40788)*UV(5250)+JVS(50392)*UV(5255) - JTUV(322) = JVS(1324)*UV(322)+JVS(1327)*UV(323)+JVS(40789)*UV(5250)+JVS(50393)*UV(5255) - JTUV(323) = JVS(1328)*UV(323)+JVS(25296)*UV(4536)+JVS(40790)*UV(5250) - JTUV(324) = JVS(383)*UV(97)+JVS(1329)*UV(323)+JVS(1332)*UV(324)+JVS(40791)*UV(5250) - JTUV(325) = JVS(1336)*UV(325)+JVS(36891)*UV(5207)+JVS(40792)*UV(5250)+JVS(50394)*UV(5255) - JTUV(326) = JVS(1340)*UV(326)+JVS(23402)*UV(4363) - JTUV(327) = JVS(1347)*UV(327)+JVS(25393)*UV(4544)+JVS(39601)*UV(5241)+JVS(40793)*UV(5250) - JTUV(328) = JVS(1350)*UV(328)+JVS(18918)*UV(3866)+JVS(40794)*UV(5250) - JTUV(329) = JVS(1354)*UV(329)+JVS(20558)*UV(4058)+JVS(40795)*UV(5250) - JTUV(330) = JVS(1358)*UV(330)+JVS(36763)*UV(5202)+JVS(40796)*UV(5250) - JTUV(331) = JVS(1362)*UV(331)+JVS(4156)*UV(1040)+JVS(40797)*UV(5250)+JVS(47949)*UV(5253) - JTUV(332) = JVS(1365)*UV(332)+JVS(17101)*UV(3640)+JVS(40798)*UV(5250)+JVS(50395)*UV(5255) - JTUV(333) = JVS(1368)*UV(333)+JVS(19922)*UV(3986)+JVS(40799)*UV(5250)+JVS(50396)*UV(5255) - JTUV(334) = JVS(1371)*UV(334)+JVS(30589)*UV(4978)+JVS(40800)*UV(5250)+JVS(50397)*UV(5255) - JTUV(335) = JVS(1374)*UV(335)+JVS(23618)*UV(4386)+JVS(40801)*UV(5250)+JVS(50398)*UV(5255) - JTUV(336) = JVS(1377)*UV(336)+JVS(6437)*UV(1604)+JVS(40802)*UV(5250)+JVS(50399)*UV(5255) - JTUV(337) = JVS(1380)*UV(337)+JVS(40803)*UV(5250)+JVS(46590)*UV(5252)+JVS(47950)*UV(5253) - JTUV(338) = JVS(1383)*UV(338)+JVS(18835)*UV(3856)+JVS(40804)*UV(5250)+JVS(50400)*UV(5255) - JTUV(339) = JVS(1386)*UV(339)+JVS(19011)*UV(3877)+JVS(40805)*UV(5250)+JVS(50401)*UV(5255) - JTUV(340) = JVS(1389)*UV(340)+JVS(8105)*UV(1953)+JVS(40806)*UV(5250)+JVS(50402)*UV(5255) - JTUV(341) = JVS(1392)*UV(341)+JVS(20082)*UV(4005)+JVS(40807)*UV(5250) - JTUV(342) = JVS(1396)*UV(342)+JVS(32925)*UV(5107)+JVS(39499)*UV(5238)+JVS(40808)*UV(5250) - JTUV(343) = JVS(1399)*UV(343)+JVS(33133)*UV(5121)+JVS(40809)*UV(5250) - JTUV(344) = JVS(1403)*UV(344)+JVS(2913)*UV(735)+JVS(40810)*UV(5250)+JVS(50403)*UV(5255) - JTUV(345) = JVS(1406)*UV(345)+JVS(34620)*UV(5165)+JVS(40811)*UV(5250)+JVS(50404)*UV(5255) - JTUV(346) = JVS(1409)*UV(346)+JVS(24878)*UV(4501)+JVS(40812)*UV(5250)+JVS(50405)*UV(5255) - JTUV(347) = JVS(1412)*UV(347)+JVS(2304)*UV(593)+JVS(40813)*UV(5250)+JVS(50406)*UV(5255) - JTUV(348) = JVS(1415)*UV(348)+JVS(18878)*UV(3861)+JVS(40814)*UV(5250)+JVS(50407)*UV(5255) - JTUV(349) = JVS(1418)*UV(349)+JVS(18794)*UV(3851)+JVS(40815)*UV(5250)+JVS(50408)*UV(5255) - JTUV(350) = JVS(1421)*UV(350)+JVS(10682)*UV(2521)+JVS(40816)*UV(5250)+JVS(50409)*UV(5255) - JTUV(351) = JVS(1424)*UV(351)+JVS(22755)*UV(4295)+JVS(40817)*UV(5250) - JTUV(352) = JVS(1428)*UV(352)+JVS(16799)*UV(3604)+JVS(40818)*UV(5250)+JVS(50410)*UV(5255) - JTUV(353) = JVS(1431)*UV(353)+JVS(13837)*UV(3118)+JVS(40819)*UV(5250)+JVS(50411)*UV(5255) - JTUV(354) = JVS(1434)*UV(354)+JVS(10350)*UV(2452)+JVS(40820)*UV(5250)+JVS(50412)*UV(5255) - JTUV(355) = JVS(1437)*UV(355)+JVS(19962)*UV(3991)+JVS(40821)*UV(5250)+JVS(50413)*UV(5255) - JTUV(356) = JVS(1440)*UV(356)+JVS(4924)*UV(1231)+JVS(40822)*UV(5250)+JVS(50414)*UV(5255) - JTUV(357) = JVS(1443)*UV(357)+JVS(11694)*UV(2719)+JVS(40823)*UV(5250)+JVS(50415)*UV(5255) - JTUV(358) = JVS(1446)*UV(358)+JVS(9664)*UV(2295)+JVS(40824)*UV(5250)+JVS(50416)*UV(5255) - JTUV(359) = JVS(1449)*UV(359)+JVS(1853)*UV(472)+JVS(40825)*UV(5250)+JVS(50417)*UV(5255) - JTUV(360) = JVS(1452)*UV(360)+JVS(17928)*UV(3743)+JVS(40826)*UV(5250) - JTUV(361) = JVS(1456)*UV(361)+JVS(15225)*UV(3372)+JVS(40827)*UV(5250)+JVS(50418)*UV(5255) - JTUV(362) = JVS(1459)*UV(362)+JVS(25195)*UV(4526)+JVS(31627)*UV(5039)+JVS(40828)*UV(5250) - JTUV(363) = JVS(1462)*UV(363)+JVS(28634)*UV(4841)+JVS(40829)*UV(5250) - JTUV(364) = JVS(1466)*UV(364)+JVS(17474)*UV(3686)+JVS(40830)*UV(5250) - JTUV(365) = JVS(1470)*UV(365)+JVS(1618)*UV(407)+JVS(40831)*UV(5250)+JVS(50419)*UV(5255) - JTUV(366) = JVS(1473)*UV(366)+JVS(1775)*UV(450)+JVS(40832)*UV(5250)+JVS(50420)*UV(5255) - JTUV(367) = JVS(1476)*UV(367)+JVS(18705)*UV(3841)+JVS(40833)*UV(5250) - JTUV(368) = JVS(1480)*UV(368)+JVS(5029)*UV(1257)+JVS(40834)*UV(5250)+JVS(50421)*UV(5255) - JTUV(369) = JVS(1483)*UV(369)+JVS(1486)*UV(370)+JVS(40835)*UV(5250)+JVS(50422)*UV(5255) - JTUV(370) = JVS(1487)*UV(370)+JVS(19667)*UV(3955) - JTUV(371) = JVS(1493)*UV(371)+JVS(7924)*UV(1913)+JVS(40836)*UV(5250)+JVS(50423)*UV(5255) - JTUV(372) = JVS(1496)*UV(372)+JVS(1795)*UV(455)+JVS(40837)*UV(5250)+JVS(50424)*UV(5255) - JTUV(373) = JVS(1500)*UV(373)+JVS(21357)*UV(4154)+JVS(40838)*UV(5250) - JTUV(374) = JVS(1504)*UV(374)+JVS(16764)*UV(3600)+JVS(40839)*UV(5250)+JVS(50425)*UV(5255) - JTUV(375) = JVS(1507)*UV(375)+JVS(20207)*UV(4019)+JVS(40840)*UV(5250) - JTUV(376) = JVS(1511)*UV(376)+JVS(35419)*UV(5185)+JVS(40841)*UV(5250) - JTUV(377) = JVS(1515)*UV(377)+JVS(9037)*UV(2154)+JVS(40842)*UV(5250)+JVS(50426)*UV(5255) - JTUV(378) = JVS(1518)*UV(378)+JVS(17753)*UV(3722)+JVS(40843)*UV(5250) - JTUV(379) = JVS(1522)*UV(379)+JVS(29379)*UV(4901)+JVS(40844)*UV(5250) - JTUV(380) = JVS(1526)*UV(380)+JVS(18720)*UV(3843)+JVS(40845)*UV(5250)+JVS(50427)*UV(5255) - JTUV(381) = JVS(1529)*UV(381)+JVS(11674)*UV(2716)+JVS(40846)*UV(5250)+JVS(50428)*UV(5255) - JTUV(382) = JVS(1532)*UV(382)+JVS(6711)*UV(1660)+JVS(40847)*UV(5250)+JVS(50429)*UV(5255) - JTUV(383) = JVS(1535)*UV(383)+JVS(34551)*UV(5162)+JVS(40848)*UV(5250)+JVS(50430)*UV(5255) - JTUV(384) = JVS(1538)*UV(384)+JVS(27638)*UV(4755)+JVS(40849)*UV(5250) - JTUV(385) = JVS(1542)*UV(385)+JVS(15368)*UV(3391)+JVS(40850)*UV(5250)+JVS(50431)*UV(5255) - JTUV(386) = JVS(1545)*UV(386)+JVS(21160)*UV(4129)+JVS(31814)*UV(5047)+JVS(40851)*UV(5250) - JTUV(387) = JVS(1548)*UV(387)+JVS(20509)*UV(4052)+JVS(40852)*UV(5250) - JTUV(388) = JVS(1552)*UV(388)+JVS(17572)*UV(3698)+JVS(40853)*UV(5250) - JTUV(389) = JVS(1556)*UV(389)+JVS(20356)*UV(4038)+JVS(40854)*UV(5250) - JTUV(390) = JVS(1560)*UV(390)+JVS(17118)*UV(3642)+JVS(40855)*UV(5250)+JVS(50432)*UV(5255) - JTUV(391) = JVS(1563)*UV(391)+JVS(15851)*UV(3470)+JVS(40856)*UV(5250)+JVS(50433)*UV(5255) - JTUV(392) = JVS(1566)*UV(392)+JVS(10425)*UV(2467)+JVS(40857)*UV(5250)+JVS(50434)*UV(5255) - JTUV(393) = JVS(1569)*UV(393)+JVS(31099)*UV(5007)+JVS(40858)*UV(5250) - JTUV(394) = JVS(1573)*UV(394)+JVS(15235)*UV(3373)+JVS(40859)*UV(5250)+JVS(50435)*UV(5255) - JTUV(395) = JVS(1576)*UV(395)+JVS(2557)*UV(652)+JVS(40860)*UV(5250)+JVS(50436)*UV(5255) - JTUV(396) = JVS(1579)*UV(396)+JVS(17282)*UV(3661)+JVS(40861)*UV(5250)+JVS(50437)*UV(5255) - JTUV(397) = JVS(1583)*UV(397)+JVS(22216)*UV(4241)+JVS(40862)*UV(5250) - JTUV(398) = JVS(464)*UV(120)+JVS(1584)*UV(397)+JVS(1587)*UV(398)+JVS(40863)*UV(5250) - JTUV(399) = JVS(1591)*UV(399)+JVS(22038)*UV(4224)+JVS(40864)*UV(5250)+JVS(50438)*UV(5255) - JTUV(400) = JVS(1594)*UV(400)+JVS(7390)*UV(1803)+JVS(40865)*UV(5250)+JVS(50439)*UV(5255) - JTUV(401) = JVS(1597)*UV(401)+JVS(37082)*UV(5212)+JVS(40866)*UV(5250)+JVS(50440)*UV(5255) - JTUV(402) = JVS(1600)*UV(402)+JVS(16335)*UV(3543)+JVS(40867)*UV(5250)+JVS(50441)*UV(5255) - JTUV(403) = JVS(1603)*UV(403)+JVS(1606)*UV(404)+JVS(40868)*UV(5250)+JVS(50442)*UV(5255) - JTUV(404) = JVS(1607)*UV(404)+JVS(29525)*UV(4910)+JVS(40869)*UV(5250) - JTUV(405) = JVS(554)*UV(145)+JVS(1608)*UV(404)+JVS(1611)*UV(405)+JVS(40870)*UV(5250) - JTUV(406) = JVS(1615)*UV(406)+JVS(15411)*UV(3397)+JVS(40871)*UV(5250)+JVS(50443)*UV(5255) - JTUV(407) = JVS(1619)*UV(407)+JVS(21070)*UV(4119) - JTUV(408) = JVS(1626)*UV(408)+JVS(16600)*UV(3580)+JVS(40872)*UV(5250)+JVS(50444)*UV(5255) - JTUV(409) = JVS(1629)*UV(409)+JVS(14323)*UV(3213)+JVS(40873)*UV(5250)+JVS(50445)*UV(5255) - JTUV(410) = JVS(1632)*UV(410)+JVS(6651)*UV(1648)+JVS(40874)*UV(5250)+JVS(50446)*UV(5255) - JTUV(411) = JVS(1635)*UV(411)+JVS(15659)*UV(3431)+JVS(40875)*UV(5250)+JVS(50447)*UV(5255) - JTUV(412) = JVS(1638)*UV(412)+JVS(14100)*UV(3168)+JVS(40876)*UV(5250)+JVS(50448)*UV(5255) - JTUV(413) = JVS(1641)*UV(413)+JVS(14474)*UV(3242)+JVS(40877)*UV(5250)+JVS(50449)*UV(5255) - JTUV(414) = JVS(1644)*UV(414)+JVS(22144)*UV(4234)+JVS(40878)*UV(5250) - JTUV(415) = JVS(1648)*UV(415)+JVS(17869)*UV(3736)+JVS(40879)*UV(5250)+JVS(50450)*UV(5255) - JTUV(416) = JVS(1651)*UV(416)+JVS(35359)*UV(5184)+JVS(40880)*UV(5250)+JVS(50451)*UV(5255) - JTUV(417) = JVS(1654)*UV(417)+JVS(14039)*UV(3156)+JVS(40881)*UV(5250)+JVS(50452)*UV(5255) - JTUV(418) = JVS(1657)*UV(418)+JVS(8603)*UV(2056)+JVS(40882)*UV(5250)+JVS(50453)*UV(5255) - JTUV(419) = JVS(1660)*UV(419)+JVS(21277)*UV(4144)+JVS(21305)*UV(4148)+JVS(40883)*UV(5250) - JTUV(420) = JVS(1663)*UV(420)+JVS(29041)*UV(4870)+JVS(40884)*UV(5250) - JTUV(421) = JVS(1668)*UV(421)+JVS(17489)*UV(3688) - JTUV(422) = JVS(301)*UV(75)+JVS(1675)*UV(422)+JVS(47951)*UV(5253) - JTUV(423) = JVS(1678)*UV(423)+JVS(20383)*UV(4041)+JVS(40886)*UV(5250) - JTUV(424) = JVS(1682)*UV(424)+JVS(16624)*UV(3583)+JVS(40887)*UV(5250)+JVS(50454)*UV(5255) - JTUV(425) = JVS(1685)*UV(425)+JVS(21001)*UV(4110)+JVS(40888)*UV(5250)+JVS(50455)*UV(5255) - JTUV(426) = JVS(1688)*UV(426)+JVS(33574)*UV(5138)+JVS(39500)*UV(5238)+JVS(40889)*UV(5250) - JTUV(427) = JVS(1691)*UV(427)+JVS(19602)*UV(3947)+JVS(40890)*UV(5250)+JVS(50456)*UV(5255) - JTUV(428) = JVS(1694)*UV(428)+JVS(13674)*UV(3089)+JVS(40891)*UV(5250)+JVS(50457)*UV(5255) - JTUV(429) = JVS(1697)*UV(429)+JVS(13792)*UV(3110)+JVS(40892)*UV(5250)+JVS(50458)*UV(5255) - JTUV(430) = JVS(1700)*UV(430)+JVS(7166)*UV(1756)+JVS(40893)*UV(5250)+JVS(50459)*UV(5255) - JTUV(431) = JVS(1703)*UV(431)+JVS(17153)*UV(3645)+JVS(40894)*UV(5250)+JVS(50460)*UV(5255) - JTUV(432) = JVS(1706)*UV(432)+JVS(15017)*UV(3343)+JVS(40895)*UV(5250)+JVS(50461)*UV(5255) - JTUV(433) = JVS(1709)*UV(433)+JVS(21046)*UV(4116)+JVS(40896)*UV(5250) - JTUV(434) = JVS(1713)*UV(434)+JVS(32036)*UV(5060)+JVS(40897)*UV(5250) - JTUV(435) = JVS(1717)*UV(435)+JVS(31149)*UV(5010)+JVS(40898)*UV(5250) - JTUV(436) = JVS(1721)*UV(436)+JVS(14132)*UV(3174)+JVS(40899)*UV(5250)+JVS(50462)*UV(5255) - JTUV(437) = JVS(1724)*UV(437)+JVS(22808)*UV(4300)+JVS(40900)*UV(5250)+JVS(50463)*UV(5255) - JTUV(438) = JVS(1727)*UV(438)+JVS(32064)*UV(5062)+JVS(40901)*UV(5250) - JTUV(439) = JVS(1731)*UV(439)+JVS(21621)*UV(4183)+JVS(40902)*UV(5250)+JVS(50464)*UV(5255) - JTUV(440) = JVS(1734)*UV(440)+JVS(5490)*UV(1372)+JVS(40903)*UV(5250)+JVS(50465)*UV(5255) - JTUV(441) = JVS(1737)*UV(441)+JVS(15578)*UV(3420)+JVS(40904)*UV(5250)+JVS(50466)*UV(5255) - JTUV(442) = JVS(1740)*UV(442)+JVS(1743)*UV(443)+JVS(40905)*UV(5250)+JVS(50467)*UV(5255) - JTUV(443) = JVS(1744)*UV(443)+JVS(18737)*UV(3845) - JTUV(444) = JVS(1751)*UV(444)+JVS(30404)*UV(4964)+JVS(40906)*UV(5250)+JVS(50468)*UV(5255) - JTUV(445) = JVS(1755)*UV(445)+JVS(25717)*UV(4577) - JTUV(446) = JVS(1762)*UV(446)+JVS(14932)*UV(3331)+JVS(40907)*UV(5250)+JVS(50469)*UV(5255) - JTUV(447) = JVS(1765)*UV(447)+JVS(27766)*UV(4766)+JVS(39501)*UV(5238)+JVS(40908)*UV(5250) - JTUV(448) = JVS(1768)*UV(448)+JVS(3637)*UV(911)+JVS(40909)*UV(5250)+JVS(47952)*UV(5253) - JTUV(449) = JVS(1771)*UV(449)+JVS(33060)*UV(5116)+JVS(40910)*UV(5250) - JTUV(450) = JVS(1776)*UV(450)+JVS(21682)*UV(4189) - JTUV(451) = JVS(1783)*UV(451)+JVS(40911)*UV(5250)+JVS(45067)*UV(5251)+JVS(50470)*UV(5255) - JTUV(452) = JVS(1786)*UV(452)+JVS(39566)*UV(5240)+JVS(40912)*UV(5250)+JVS(50471)*UV(5255) - JTUV(453) = JVS(1789)*UV(453)+JVS(13829)*UV(3117)+JVS(40913)*UV(5250)+JVS(50472)*UV(5255) - JTUV(454) = JVS(1246)*UV(300)+JVS(1792)*UV(454)+JVS(40914)*UV(5250)+JVS(50473)*UV(5255) - JTUV(455) = JVS(1796)*UV(455)+JVS(22005)*UV(4221)+JVS(40915)*UV(5250) - JTUV(456) = JVS(1800)*UV(456)+JVS(28687)*UV(4844)+JVS(40916)*UV(5250) - JTUV(457) = JVS(1804)*UV(457)+JVS(6445)*UV(1605)+JVS(40917)*UV(5250) - JTUV(458) = JVS(1808)*UV(458)+JVS(6823)*UV(1685)+JVS(40918)*UV(5250)+JVS(50474)*UV(5255) - JTUV(459) = JVS(415)*UV(107)+JVS(1501)*UV(373)+JVS(1811)*UV(459)+JVS(40919)*UV(5250) - JTUV(460) = JVS(1815)*UV(460)+JVS(13688)*UV(3091)+JVS(40920)*UV(5250)+JVS(50475)*UV(5255) - JTUV(461) = JVS(1818)*UV(461)+JVS(25851)*UV(4592)+JVS(40921)*UV(5250) - JTUV(462) = JVS(1822)*UV(462)+JVS(12677)*UV(2909)+JVS(40922)*UV(5250)+JVS(50476)*UV(5255) - JTUV(463) = JVS(1825)*UV(463)+JVS(16998)*UV(3628)+JVS(40923)*UV(5250)+JVS(50477)*UV(5255) - JTUV(464) = JVS(1828)*UV(464)+JVS(15191)*UV(3368)+JVS(40924)*UV(5250)+JVS(50478)*UV(5255) - JTUV(465) = JVS(1831)*UV(465)+JVS(35569)*UV(5189)+JVS(40925)*UV(5250)+JVS(50479)*UV(5255) - JTUV(466) = JVS(1834)*UV(466)+JVS(15201)*UV(3369)+JVS(40926)*UV(5250)+JVS(50480)*UV(5255) - JTUV(467) = JVS(1837)*UV(467)+JVS(6693)*UV(1656)+JVS(40927)*UV(5250)+JVS(50481)*UV(5255) - JTUV(468) = JVS(1840)*UV(468)+JVS(20930)*UV(4103)+JVS(40928)*UV(5250)+JVS(50482)*UV(5255) - JTUV(469) = JVS(1843)*UV(469)+JVS(19348)*UV(3917)+JVS(40929)*UV(5250)+JVS(50483)*UV(5255) - JTUV(470) = JVS(1846)*UV(470)+JVS(22145)*UV(4234)+JVS(40930)*UV(5250) - JTUV(471) = JVS(1850)*UV(471)+JVS(16931)*UV(3619)+JVS(40931)*UV(5250)+JVS(50484)*UV(5255) - JTUV(472) = JVS(1854)*UV(472)+JVS(26188)*UV(4624)+JVS(40932)*UV(5250) - JTUV(473) = JVS(1858)*UV(473)+JVS(13901)*UV(3128)+JVS(40933)*UV(5250)+JVS(50485)*UV(5255) - JTUV(474) = JVS(1861)*UV(474)+JVS(30072)*UV(4942)+JVS(40934)*UV(5250) - JTUV(475) = JVS(1865)*UV(475)+JVS(16609)*UV(3581)+JVS(40935)*UV(5250)+JVS(50486)*UV(5255) - JTUV(476) = JVS(1868)*UV(476)+JVS(13078)*UV(2979)+JVS(40936)*UV(5250)+JVS(50487)*UV(5255) - JTUV(477) = JVS(1871)*UV(477)+JVS(23016)*UV(4320)+JVS(32680)*UV(5098)+JVS(40937)*UV(5250) - JTUV(478) = JVS(1874)*UV(478)+JVS(14638)*UV(3270)+JVS(40938)*UV(5250)+JVS(50488)*UV(5255) - JTUV(479) = JVS(1877)*UV(479)+JVS(33120)*UV(5120)+JVS(40939)*UV(5250) - JTUV(480) = JVS(1881)*UV(480)+JVS(17234)*UV(3655)+JVS(40940)*UV(5250)+JVS(50489)*UV(5255) - JTUV(481) = JVS(1884)*UV(481)+JVS(28651)*UV(4842)+JVS(40941)*UV(5250)+JVS(50490)*UV(5255) - JTUV(482) = JVS(1887)*UV(482)+JVS(9288)*UV(2209)+JVS(40942)*UV(5250)+JVS(50491)*UV(5255) - JTUV(483) = JVS(1890)*UV(483)+JVS(21610)*UV(4182)+JVS(40943)*UV(5250) - JTUV(484) = JVS(1894)*UV(484)+JVS(28933)*UV(4862)+JVS(40944)*UV(5250) - JTUV(485) = JVS(1898)*UV(485)+JVS(3638)*UV(911)+JVS(40945)*UV(5250)+JVS(50492)*UV(5255) - JTUV(486) = JVS(1901)*UV(486)+JVS(14087)*UV(3166)+JVS(40946)*UV(5250)+JVS(50493)*UV(5255) - JTUV(487) = JVS(1904)*UV(487)+JVS(16517)*UV(3569)+JVS(40947)*UV(5250)+JVS(50494)*UV(5255) - JTUV(488) = JVS(1907)*UV(488)+JVS(32099)*UV(5064)+JVS(40948)*UV(5250) - JTUV(489) = JVS(1911)*UV(489)+JVS(7077)*UV(1739)+JVS(40949)*UV(5250) - JTUV(490) = JVS(1916)*UV(490)+JVS(22884)*UV(4308)+JVS(40950)*UV(5250) - JTUV(491) = JVS(499)*UV(130)+JVS(1917)*UV(490)+JVS(1920)*UV(491)+JVS(40951)*UV(5250) - JTUV(492) = JVS(1924)*UV(492)+JVS(20568)*UV(4059)+JVS(40952)*UV(5250) - JTUV(493) = JVS(1928)*UV(493)+JVS(10375)*UV(2457)+JVS(40953)*UV(5250)+JVS(50495)*UV(5255) - JTUV(494) = JVS(1931)*UV(494)+JVS(38791)*UV(5232)+JVS(40954)*UV(5250)+JVS(50496)*UV(5255) - JTUV(495) = JVS(1934)*UV(495)+JVS(19854)*UV(3978)+JVS(40955)*UV(5250)+JVS(50497)*UV(5255) - JTUV(496) = JVS(1937)*UV(496)+JVS(6545)*UV(1624)+JVS(40956)*UV(5250) - JTUV(497) = JVS(1941)*UV(497)+JVS(19508)*UV(3935)+JVS(40957)*UV(5250)+JVS(50498)*UV(5255) - JTUV(498) = JVS(1944)*UV(498)+JVS(16782)*UV(3602)+JVS(40958)*UV(5250)+JVS(50499)*UV(5255) - JTUV(499) = JVS(1947)*UV(499)+JVS(28877)*UV(4857)+JVS(40959)*UV(5250) - JTUV(500) = JVS(1951)*UV(500)+JVS(11497)*UV(2680)+JVS(40960)*UV(5250)+JVS(50500)*UV(5255) - JTUV(501) = JVS(1954)*UV(501)+JVS(29177)*UV(4882)+JVS(40961)*UV(5250)+JVS(50501)*UV(5255) - JTUV(502) = JVS(1957)*UV(502)+JVS(6872)*UV(1696)+JVS(40962)*UV(5250)+JVS(50502)*UV(5255) - JTUV(503) = JVS(1960)*UV(503)+JVS(20040)*UV(4000)+JVS(40963)*UV(5250) - JTUV(504) = JVS(1964)*UV(504)+JVS(16715)*UV(3594)+JVS(40964)*UV(5250)+JVS(50503)*UV(5255) - JTUV(505) = JVS(1967)*UV(505)+JVS(15522)*UV(3412)+JVS(40965)*UV(5250)+JVS(50504)*UV(5255) - JTUV(506) = JVS(1970)*UV(506)+JVS(31241)*UV(5016)+JVS(40966)*UV(5250) - JTUV(507) = JVS(1974)*UV(507)+JVS(20409)*UV(4043)+JVS(40967)*UV(5250) - JTUV(508) = JVS(281)*UV(69)+JVS(1855)*UV(472)+JVS(1978)*UV(508)+JVS(40968)*UV(5250) - JTUV(509) = JVS(1982)*UV(509)+JVS(1985)*UV(510)+JVS(40969)*UV(5250)+JVS(50505)*UV(5255) - JTUV(510) = JVS(1986)*UV(510)+JVS(21967)*UV(4218)+JVS(40970)*UV(5250) - JTUV(511) = JVS(1990)*UV(511)+JVS(12678)*UV(2909)+JVS(40971)*UV(5250)+JVS(50506)*UV(5255) - JTUV(512) = JVS(1993)*UV(512)+JVS(13902)*UV(3128)+JVS(40972)*UV(5250)+JVS(50507)*UV(5255) - JTUV(513) = JVS(1996)*UV(513)+JVS(15682)*UV(3434)+JVS(40973)*UV(5250)+JVS(50508)*UV(5255) - JTUV(514) = JVS(1999)*UV(514)+JVS(29566)*UV(4913)+JVS(30391)*UV(4963)+JVS(40974)*UV(5250) - JTUV(515) = JVS(2002)*UV(515)+JVS(6509)*UV(1617)+JVS(40975)*UV(5250) - JTUV(516) = JVS(2006)*UV(516)+JVS(10481)*UV(2480)+JVS(40976)*UV(5250)+JVS(50509)*UV(5255) - JTUV(517) = JVS(2009)*UV(517)+JVS(13855)*UV(3121)+JVS(40977)*UV(5250)+JVS(50510)*UV(5255) - JTUV(518) = JVS(86)*UV(14)+JVS(1797)*UV(455)+JVS(2012)*UV(518)+JVS(40978)*UV(5250) - JTUV(519) = JVS(2016)*UV(519)+JVS(22906)*UV(4310)+JVS(40979)*UV(5250) - JTUV(520) = JVS(2020)*UV(520)+JVS(8282)*UV(1989)+JVS(40980)*UV(5250)+JVS(50511)*UV(5255) - JTUV(521) = JVS(448)*UV(116)+JVS(1312)*UV(318)+JVS(2023)*UV(521)+JVS(40981)*UV(5250) - JTUV(522) = JVS(2027)*UV(522)+JVS(21549)*UV(4176)+JVS(22389)*UV(4258)+JVS(40982)*UV(5250) - JTUV(523) = JVS(2030)*UV(523)+JVS(13635)*UV(3082)+JVS(40983)*UV(5250)+JVS(50512)*UV(5255) - JTUV(524) = JVS(2033)*UV(524)+JVS(21440)*UV(4164)+JVS(40984)*UV(5250)+JVS(50513)*UV(5255) - JTUV(525) = JVS(2036)*UV(525)+JVS(21098)*UV(4122)+JVS(40985)*UV(5250)+JVS(50514)*UV(5255) - JTUV(526) = JVS(2039)*UV(526)+JVS(8254)*UV(1984)+JVS(40986)*UV(5250)+JVS(50515)*UV(5255) - JTUV(527) = JVS(2042)*UV(527)+JVS(7434)*UV(1812)+JVS(32451)*UV(5086)+JVS(40987)*UV(5250)+JVS(50516)*UV(5255) - JTUV(528) = JVS(2045)*UV(528)+JVS(24334)*UV(4450)+JVS(35719)*UV(5193) - JTUV(529) = JVS(2050)*UV(529)+JVS(21915)*UV(4213)+JVS(37372)*UV(5222)+JVS(40988)*UV(5250)+JVS(47953)*UV(5253) - JTUV(530) = JVS(2053)*UV(530)+JVS(18771)*UV(3849)+JVS(38092)*UV(5231)+JVS(40989)*UV(5250)+JVS(47954)*UV(5253) - JTUV(531) = JVS(2056)*UV(531)+JVS(15088)*UV(3352)+JVS(23703)*UV(4393)+JVS(40990)*UV(5250)+JVS(50517)*UV(5255) - JTUV(532) = JVS(2059)*UV(532)+JVS(22282)*UV(4248)+JVS(50518)*UV(5255) - JTUV(533) = JVS(2064)*UV(533)+JVS(39195)*UV(5234)+JVS(39822)*UV(5244) - JTUV(534) = JVS(2069)*UV(534)+JVS(23992)*UV(4419)+JVS(38093)*UV(5231) - JTUV(535) = JVS(2074)*UV(535)+JVS(16533)*UV(3571)+JVS(47955)*UV(5253) - JTUV(536) = JVS(2079)*UV(536)+JVS(17067)*UV(3638)+JVS(38094)*UV(5231)+JVS(40991)*UV(5250)+JVS(50519)*UV(5255) - JTUV(537) = JVS(2082)*UV(537)+JVS(32419)*UV(5085)+JVS(50520)*UV(5255) - JTUV(538) = JVS(2087)*UV(538)+JVS(12831)*UV(2936)+JVS(28068)*UV(4796)+JVS(40992)*UV(5250)+JVS(50521)*UV(5255) - JTUV(539) = JVS(2090)*UV(539)+JVS(25134)*UV(4521)+JVS(35720)*UV(5193) - JTUV(540) = JVS(2095)*UV(540)+JVS(34843)*UV(5175)+JVS(38095)*UV(5231)+JVS(40993)*UV(5250)+JVS(50522)*UV(5255) - JTUV(541) = JVS(2098)*UV(541)+JVS(18083)*UV(3760)+JVS(34266)*UV(5160) - JTUV(542) = JVS(2103)*UV(542)+JVS(21809)*UV(4202)+JVS(25532)*UV(4557)+JVS(39823)*UV(5244)+JVS(40994)*UV(5250) - JTUV(543) = JVS(2106)*UV(543)+JVS(34884)*UV(5177)+JVS(38096)*UV(5231)+JVS(40995)*UV(5250)+JVS(47956)*UV(5253) - JTUV(544) = JVS(2109)*UV(544)+JVS(35360)*UV(5184)+JVS(39824)*UV(5244) - JTUV(545) = JVS(2114)*UV(545)+JVS(34753)*UV(5171)+JVS(35721)*UV(5193) - JTUV(546) = JVS(2119)*UV(546)+JVS(19327)*UV(3915)+JVS(19405)*UV(3923)+JVS(40996)*UV(5250)+JVS(50523)*UV(5255) - JTUV(547) = JVS(2122)*UV(547)+JVS(7468)*UV(1818)+JVS(32768)*UV(5101)+JVS(39418)*UV(5237)+JVS(40997)*UV(5250) - JTUV(548) = JVS(2125)*UV(548)+JVS(25790)*UV(4586)+JVS(29146)*UV(4878)+JVS(39502)*UV(5238)+JVS(40998)*UV(5250) - JTUV(549) = JVS(2128)*UV(549)+JVS(34854)*UV(5176)+JVS(50524)*UV(5255) - JTUV(550) = JVS(2133)*UV(550)+JVS(19168)*UV(3896)+JVS(47957)*UV(5253) - JTUV(551) = JVS(2138)*UV(551)+JVS(20520)*UV(4053)+JVS(50525)*UV(5255) - JTUV(552) = JVS(2143)*UV(552)+JVS(18108)*UV(3763)+JVS(50526)*UV(5255) - JTUV(553) = JVS(2148)*UV(553)+JVS(32420)*UV(5085)+JVS(39825)*UV(5244) - JTUV(554) = JVS(2153)*UV(554)+JVS(13269)*UV(3013)+JVS(22592)*UV(4279)+JVS(40999)*UV(5250)+JVS(50527)*UV(5255) - JTUV(555) = JVS(2156)*UV(555)+JVS(16725)*UV(3595)+JVS(47958)*UV(5253) - JTUV(556) = JVS(2161)*UV(556)+JVS(34855)*UV(5176)+JVS(38097)*UV(5231)+JVS(41000)*UV(5250)+JVS(50528)*UV(5255) - JTUV(557) = JVS(2164)*UV(557)+JVS(30884)*UV(4996)+JVS(50529)*UV(5255) - JTUV(558) = JVS(2169)*UV(558)+JVS(23310)*UV(4352)+JVS(25522)*UV(4556)+JVS(41001)*UV(5250)+JVS(50530)*UV(5255) - JTUV(559) = JVS(2172)*UV(559)+JVS(13412)*UV(3041)+JVS(17087)*UV(3639)+JVS(41002)*UV(5250)+JVS(50531)*UV(5255) - JTUV(560) = JVS(2175)*UV(560)+JVS(16679)*UV(3590)+JVS(23794)*UV(4403)+JVS(41003)*UV(5250)+JVS(50532)*UV(5255) - JTUV(561) = JVS(2179)*UV(561)+JVS(17654)*UV(3710)+JVS(41004)*UV(5250) - JTUV(562) = JVS(879)*UV(201)+JVS(2180)*UV(561)+JVS(2184)*UV(562)+JVS(41005)*UV(5250) - JTUV(563) = JVS(2188)*UV(563)+JVS(22621)*UV(4282)+JVS(37373)*UV(5222)+JVS(41006)*UV(5250)+JVS(47959)*UV(5253) - JTUV(564) = JVS(2191)*UV(564)+JVS(35146)*UV(5183)+JVS(39685)*UV(5242) - JTUV(565) = JVS(2196)*UV(565)+JVS(15275)*UV(3378)+JVS(16671)*UV(3589)+JVS(41007)*UV(5250)+JVS(50533)*UV(5255) - JTUV(566) = JVS(2199)*UV(566)+JVS(19153)*UV(3894)+JVS(29220)*UV(4886)+JVS(39503)*UV(5238)+JVS(41008)*UV(5250) - JTUV(567) = JVS(2202)*UV(567)+JVS(35456)*UV(5188)+JVS(39419)*UV(5237)+JVS(41009)*UV(5250)+JVS(50534)*UV(5255) - JTUV(568) = JVS(2205)*UV(568)+JVS(14405)*UV(3230)+JVS(28069)*UV(4796)+JVS(41010)*UV(5250)+JVS(50535)*UV(5255) - JTUV(569) = JVS(2208)*UV(569)+JVS(16680)*UV(3590)+JVS(26907)*UV(4693)+JVS(41011)*UV(5250)+JVS(50536)*UV(5255) - JTUV(570) = JVS(2211)*UV(570)+JVS(27691)*UV(4760)+JVS(33831)*UV(5143) - JTUV(571) = JVS(2216)*UV(571)+JVS(29102)*UV(4874)+JVS(38098)*UV(5231) - JTUV(572) = JVS(2221)*UV(572)+JVS(33581)*UV(5139)+JVS(41012)*UV(5250)+JVS(45068)*UV(5251)+JVS(50537)*UV(5255) - JTUV(573) = JVS(2224)*UV(573)+JVS(34267)*UV(5160)+JVS(47960)*UV(5253) - JTUV(574) = JVS(2229)*UV(574)+JVS(23970)*UV(4417)+JVS(35722)*UV(5193) - JTUV(575) = JVS(2234)*UV(575)+JVS(28769)*UV(4850)+JVS(33832)*UV(5143) - JTUV(576) = JVS(2239)*UV(576)+JVS(16488)*UV(3565)+JVS(25273)*UV(4534)+JVS(41013)*UV(5250)+JVS(50538)*UV(5255) - JTUV(577) = JVS(2242)*UV(577)+JVS(11256)*UV(2634)+JVS(19028)*UV(3879)+JVS(41014)*UV(5250)+JVS(50539)*UV(5255) - JTUV(578) = JVS(2245)*UV(578)+JVS(10452)*UV(2473)+JVS(41015)*UV(5250) - JTUV(579) = JVS(2250)*UV(579)+JVS(39770)*UV(5243)+JVS(41016)*UV(5250)+JVS(45069)*UV(5251)+JVS(50540)*UV(5255) - JTUV(580) = JVS(2253)*UV(580)+JVS(16909)*UV(3617)+JVS(38099)*UV(5231)+JVS(41017)*UV(5250)+JVS(50541)*UV(5255) - JTUV(581) = JVS(2256)*UV(581)+JVS(35057)*UV(5182)+JVS(39826)*UV(5244) - JTUV(582) = JVS(2261)*UV(582)+JVS(37121)*UV(5214)+JVS(38100)*UV(5231) - JTUV(583) = JVS(2266)*UV(583)+JVS(17728)*UV(3719)+JVS(30481)*UV(4969)+JVS(41018)*UV(5250)+JVS(47961)*UV(5253) - JTUV(584) = JVS(2269)*UV(584)+JVS(16417)*UV(3556)+JVS(47962)*UV(5253) - JTUV(585) = JVS(2274)*UV(585)+JVS(31864)*UV(5052)+JVS(38101)*UV(5231) - JTUV(586) = JVS(2279)*UV(586)+JVS(10717)*UV(2528)+JVS(16899)*UV(3616)+JVS(41019)*UV(5250)+JVS(50542)*UV(5255) - JTUV(587) = JVS(2282)*UV(587)+JVS(34856)*UV(5176)+JVS(38102)*UV(5231)+JVS(41020)*UV(5250)+JVS(47963)*UV(5253) - JTUV(588) = JVS(2285)*UV(588)+JVS(20892)*UV(4099)+JVS(33960)*UV(5146)+JVS(39504)*UV(5238)+JVS(41021)*UV(5250) - JTUV(589) = JVS(2288)*UV(589)+JVS(33737)*UV(5141)+JVS(35147)*UV(5183) - JTUV(590) = JVS(2293)*UV(590)+JVS(11034)*UV(2589)+JVS(18072)*UV(3759)+JVS(41022)*UV(5250)+JVS(50543)*UV(5255) - JTUV(591) = JVS(2296)*UV(591)+JVS(18287)*UV(3784)+JVS(34118)*UV(5153)+JVS(41023)*UV(5250)+JVS(45070)*UV(5251) - JTUV(592) = JVS(2299)*UV(592)+JVS(38103)*UV(5231)+JVS(39827)*UV(5244) - JTUV(593) = JVS(2305)*UV(593)+JVS(24683)*UV(4485)+JVS(41024)*UV(5250) - JTUV(594) = JVS(348)*UV(88)+JVS(2306)*UV(593)+JVS(2310)*UV(594)+JVS(41025)*UV(5250) - JTUV(595) = JVS(2314)*UV(595)+JVS(34069)*UV(5152)+JVS(39196)*UV(5234) - JTUV(596) = JVS(2319)*UV(596)+JVS(33495)*UV(5136)+JVS(35723)*UV(5193) - JTUV(597) = JVS(2324)*UV(597)+JVS(17645)*UV(3709)+JVS(47964)*UV(5253) - JTUV(598) = JVS(2329)*UV(598)+JVS(17499)*UV(3689)+JVS(28346)*UV(4814)+JVS(41026)*UV(5250)+JVS(50544)*UV(5255) - JTUV(599) = JVS(1137)*UV(271)+JVS(2332)*UV(599)+JVS(29583)*UV(4914)+JVS(41027)*UV(5250)+JVS(50545)*UV(5255) - JTUV(600) = JVS(2335)*UV(600)+JVS(35724)*UV(5193)+JVS(39420)*UV(5237) - JTUV(601) = JVS(2340)*UV(601)+JVS(27639)*UV(4755)+JVS(30631)*UV(4981)+JVS(39505)*UV(5238)+JVS(41028)*UV(5250) - JTUV(602) = JVS(2343)*UV(602)+JVS(23468)*UV(4369)+JVS(34517)*UV(5161)+JVS(35148)*UV(5183)+JVS(41029)*UV(5250) - JTUV(603) = JVS(2346)*UV(603)+JVS(39197)*UV(5234)+JVS(50546)*UV(5255) - JTUV(604) = JVS(2351)*UV(604)+JVS(29556)*UV(4912)+JVS(36185)*UV(5198)+JVS(41030)*UV(5250)+JVS(45071)*UV(5251) - JTUV(605) = JVS(2354)*UV(605)+JVS(37374)*UV(5222)+JVS(39828)*UV(5244) - JTUV(606) = JVS(2359)*UV(606)+JVS(37292)*UV(5218)+JVS(37303)*UV(5219) - JTUV(607) = JVS(2364)*UV(607)+JVS(33100)*UV(5118)+JVS(37731)*UV(5224) - JTUV(608) = JVS(2369)*UV(608)+JVS(6234)*UV(1556)+JVS(9486)*UV(2255)+JVS(41031)*UV(5250)+JVS(50547)*UV(5255) - JTUV(609) = JVS(2372)*UV(609)+JVS(23338)*UV(4355)+JVS(28770)*UV(4850)+JVS(34518)*UV(5161)+JVS(41032)*UV(5250) - JTUV(610) = JVS(2375)*UV(610)+JVS(34199)*UV(5158)+JVS(35725)*UV(5193) - JTUV(611) = JVS(2380)*UV(611)+JVS(36911)*UV(5208)+JVS(41033)*UV(5250) - JTUV(612) = JVS(2385)*UV(612)+JVS(28456)*UV(4824)+JVS(36110)*UV(5196)+JVS(41034)*UV(5250)+JVS(45072)*UV(5251) - JTUV(613) = JVS(2388)*UV(613)+JVS(26620)*UV(4666)+JVS(41035)*UV(5250) - JTUV(614) = JVS(2393)*UV(614)+JVS(23739)*UV(4398)+JVS(28070)*UV(4796)+JVS(41036)*UV(5250)+JVS(50548)*UV(5255) - JTUV(615) = JVS(2396)*UV(615)+JVS(35726)*UV(5193)+JVS(50549)*UV(5255) - JTUV(616) = JVS(2401)*UV(616)+JVS(11304)*UV(2642)+JVS(16182)*UV(3522)+JVS(41037)*UV(5250)+JVS(50550)*UV(5255) - JTUV(617) = JVS(2404)*UV(617)+JVS(34754)*UV(5171)+JVS(38104)*UV(5231) - JTUV(618) = JVS(2409)*UV(618)+JVS(28945)*UV(4863)+JVS(35058)*UV(5182) - JTUV(619) = JVS(2414)*UV(619)+JVS(31697)*UV(5044)+JVS(38105)*UV(5231) - JTUV(620) = JVS(2419)*UV(620)+JVS(18186)*UV(3773)+JVS(50551)*UV(5255) - JTUV(621) = JVS(2424)*UV(621)+JVS(38106)*UV(5231)+JVS(40541)*UV(5248)+JVS(41038)*UV(5250)+JVS(47965)*UV(5253) - JTUV(622) = JVS(2427)*UV(622)+JVS(10539)*UV(2492)+JVS(27874)*UV(4775)+JVS(41039)*UV(5250)+JVS(50552)*UV(5255) - JTUV(623) = JVS(2430)*UV(623)+JVS(33738)*UV(5141)+JVS(39829)*UV(5244) - JTUV(624) = JVS(2435)*UV(624)+JVS(50553)*UV(5255)+JVS(54817)*UV(5257) - JTUV(625) = JVS(2440)*UV(625)+JVS(32626)*UV(5095)+JVS(50554)*UV(5255) - JTUV(626) = JVS(2445)*UV(626)+JVS(28524)*UV(4831)+JVS(41040)*UV(5250)+JVS(45073)*UV(5251)+JVS(50555)*UV(5255) - JTUV(627) = JVS(2448)*UV(627)+JVS(14358)*UV(3219)+JVS(50556)*UV(5255) - JTUV(628) = JVS(2453)*UV(628)+JVS(16681)*UV(3590)+JVS(28071)*UV(4796)+JVS(41041)*UV(5250)+JVS(50557)*UV(5255) - JTUV(629) = JVS(2456)*UV(629)+JVS(16707)*UV(3593)+JVS(47966)*UV(5253) - JTUV(630) = JVS(2461)*UV(630)+JVS(32769)*UV(5101)+JVS(38107)*UV(5231) - JTUV(631) = JVS(2466)*UV(631)+JVS(33907)*UV(5145)+JVS(41042)*UV(5250) - JTUV(632) = JVS(2471)*UV(632)+JVS(25564)*UV(4560)+JVS(34268)*UV(5160) - JTUV(633) = JVS(2476)*UV(633)+JVS(12925)*UV(2953)+JVS(20941)*UV(4104)+JVS(41043)*UV(5250)+JVS(50558)*UV(5255) - JTUV(634) = JVS(2479)*UV(634)+JVS(30715)*UV(4985)+JVS(33582)*UV(5139)+JVS(41044)*UV(5250)+JVS(50559)*UV(5255) - JTUV(635) = JVS(2482)*UV(635)+JVS(34697)*UV(5169)+JVS(47967)*UV(5253) - JTUV(636) = JVS(2487)*UV(636)+JVS(12255)*UV(2826)+JVS(16286)*UV(3537)+JVS(41045)*UV(5250)+JVS(50560)*UV(5255) - JTUV(637) = JVS(2490)*UV(637)+JVS(34070)*UV(5152)+JVS(35727)*UV(5193) - JTUV(638) = JVS(2495)*UV(638)+JVS(31391)*UV(5026)+JVS(39830)*UV(5244) - JTUV(639) = JVS(2500)*UV(639)+JVS(34698)*UV(5169)+JVS(50561)*UV(5255) - JTUV(640) = JVS(564)*UV(147)+JVS(2505)*UV(640)+JVS(22206)*UV(4240)+JVS(22830)*UV(4302)+JVS(41046)*UV(5250) - JTUV(641) = JVS(2508)*UV(641)+JVS(35597)*UV(5191)+JVS(39831)*UV(5244) - JTUV(642) = JVS(2513)*UV(642)+JVS(17211)*UV(3652)+JVS(41047)*UV(5250) - JTUV(643) = JVS(2518)*UV(643)+JVS(19692)*UV(3958)+JVS(50562)*UV(5255) - JTUV(644) = JVS(2523)*UV(644)+JVS(17769)*UV(3724)+JVS(34269)*UV(5160) - JTUV(645) = JVS(2528)*UV(645)+JVS(23429)*UV(4366)+JVS(38792)*UV(5232) - JTUV(646) = JVS(2533)*UV(646)+JVS(50563)*UV(5255)+JVS(54818)*UV(5257) - JTUV(647) = JVS(2538)*UV(647)+JVS(13773)*UV(3107)+JVS(16816)*UV(3606)+JVS(41048)*UV(5250)+JVS(50564)*UV(5255) - JTUV(648) = JVS(2541)*UV(648)+JVS(35457)*UV(5188)+JVS(39421)*UV(5237) - JTUV(649) = JVS(2546)*UV(649)+JVS(34857)*UV(5176)+JVS(47968)*UV(5253) - JTUV(650) = JVS(2551)*UV(650)+JVS(34885)*UV(5177)+JVS(38108)*UV(5231)+JVS(41049)*UV(5250)+JVS(50565)*UV(5255) - JTUV(651) = JVS(2554)*UV(651)+JVS(13095)*UV(2982)+JVS(18252)*UV(3780)+JVS(41050)*UV(5250)+JVS(50566)*UV(5255) - JTUV(652) = JVS(2558)*UV(652)+JVS(27996)*UV(4789)+JVS(41051)*UV(5250) - JTUV(653) = JVS(737)*UV(176)+JVS(2559)*UV(652)+JVS(2563)*UV(653)+JVS(41052)*UV(5250) - JTUV(654) = JVS(2567)*UV(654)+JVS(30256)*UV(4954)+JVS(38109)*UV(5231) - JTUV(655) = JVS(2572)*UV(655)+JVS(18471)*UV(3809)+JVS(38110)*UV(5231) - JTUV(656) = JVS(2577)*UV(656)+JVS(38793)*UV(5232)+JVS(39198)*UV(5234) - JTUV(657) = JVS(2582)*UV(657)+JVS(6332)*UV(1579)+JVS(16427)*UV(3557)+JVS(41053)*UV(5250)+JVS(50567)*UV(5255) - JTUV(658) = JVS(2585)*UV(658)+JVS(39567)*UV(5240)+JVS(39832)*UV(5244) - JTUV(659) = JVS(2590)*UV(659)+JVS(12902)*UV(2949)+JVS(28354)*UV(4815)+JVS(41054)*UV(5250)+JVS(50568)*UV(5255) - JTUV(660) = JVS(2593)*UV(660)+JVS(19316)*UV(3914)+JVS(47969)*UV(5253) - JTUV(661) = JVS(2598)*UV(661)+JVS(38111)*UV(5231)+JVS(40571)*UV(5249)+JVS(41055)*UV(5250)+JVS(50569)*UV(5255) - JTUV(662) = JVS(2601)*UV(662)+JVS(32421)*UV(5085)+JVS(38112)*UV(5231)+JVS(41056)*UV(5250)+JVS(47970)*UV(5253) - JTUV(663) = JVS(2604)*UV(663)+JVS(40542)*UV(5248)+JVS(50570)*UV(5255) - JTUV(664) = JVS(2609)*UV(664)+JVS(6461)*UV(1607)+JVS(18253)*UV(3780)+JVS(41057)*UV(5250)+JVS(50571)*UV(5255) - JTUV(665) = JVS(2612)*UV(665)+JVS(38113)*UV(5231)+JVS(39422)*UV(5237) - JTUV(666) = JVS(2617)*UV(666)+JVS(36804)*UV(5203)+JVS(39833)*UV(5244) - JTUV(667) = JVS(2622)*UV(667)+JVS(38114)*UV(5231)+JVS(40543)*UV(5248)+JVS(41058)*UV(5250)+JVS(50572)*UV(5255) - JTUV(668) = JVS(2625)*UV(668)+JVS(17061)*UV(3637)+JVS(36296)*UV(5201)+JVS(41059)*UV(5250)+JVS(53217)*UV(5256) - JTUV(669) = JVS(2628)*UV(669)+JVS(20521)*UV(4053)+JVS(47971)*UV(5253) - JTUV(670) = JVS(2633)*UV(670)+JVS(37098)*UV(5213)+JVS(47972)*UV(5253) - JTUV(671) = JVS(2638)*UV(671)+JVS(11065)*UV(2594)+JVS(16342)*UV(3544)+JVS(41060)*UV(5250)+JVS(50573)*UV(5255) - JTUV(672) = JVS(2641)*UV(672)+JVS(32982)*UV(5111)+JVS(38115)*UV(5231) - JTUV(673) = JVS(2646)*UV(673)+JVS(40544)*UV(5248)+JVS(47973)*UV(5253) - JTUV(674) = JVS(2651)*UV(674)+JVS(30184)*UV(4949)+JVS(35728)*UV(5193) - JTUV(675) = JVS(2656)*UV(675)+JVS(18578)*UV(3822)+JVS(28185)*UV(4800)+JVS(41061)*UV(5250)+JVS(50574)*UV(5255) - JTUV(676) = JVS(2659)*UV(676)+JVS(20163)*UV(4014)+JVS(23795)*UV(4403)+JVS(41062)*UV(5250)+JVS(50575)*UV(5255) - JTUV(677) = JVS(2662)*UV(677)+JVS(14495)*UV(3244)+JVS(50576)*UV(5255) - JTUV(678) = JVS(2667)*UV(678)+JVS(15774)*UV(3454)+JVS(33462)*UV(5134)+JVS(41063)*UV(5250)+JVS(50577)*UV(5255) - JTUV(679) = JVS(2670)*UV(679)+JVS(28652)*UV(4842)+JVS(39834)*UV(5244) - JTUV(680) = JVS(2676)*UV(680)+JVS(41064)*UV(5250)+JVS(50578)*UV(5255) - JTUV(681) = JVS(2681)*UV(681)+JVS(14992)*UV(3339)+JVS(16808)*UV(3605)+JVS(41065)*UV(5250)+JVS(50579)*UV(5255) - JTUV(682) = JVS(2684)*UV(682)+JVS(39686)*UV(5242)+JVS(39835)*UV(5244) - JTUV(683) = JVS(2689)*UV(683)+JVS(15114)*UV(3356)+JVS(16663)*UV(3588)+JVS(41066)*UV(5250)+JVS(50580)*UV(5255) - JTUV(684) = JVS(2692)*UV(684)+JVS(37672)*UV(5223)+JVS(41067)*UV(5250)+JVS(45074)*UV(5251)+JVS(50581)*UV(5255) - JTUV(685) = JVS(2695)*UV(685)+JVS(37673)*UV(5223)+JVS(41068)*UV(5250)+JVS(45075)*UV(5251)+JVS(50582)*UV(5255) - JTUV(686) = JVS(2698)*UV(686)+JVS(37674)*UV(5223)+JVS(41069)*UV(5250)+JVS(45076)*UV(5251)+JVS(50583)*UV(5255) - JTUV(687) = JVS(2701)*UV(687)+JVS(37038)*UV(5211)+JVS(39836)*UV(5244) - JTUV(688) = JVS(2706)*UV(688)+JVS(30774)*UV(4989)+JVS(38116)*UV(5231) - JTUV(689) = JVS(2711)*UV(689)+JVS(30185)*UV(4949)+JVS(38117)*UV(5231) - JTUV(690) = JVS(2716)*UV(690)+JVS(18772)*UV(3849)+JVS(38118)*UV(5231)+JVS(41070)*UV(5250)+JVS(50584)*UV(5255) - JTUV(691) = JVS(2719)*UV(691)+JVS(37977)*UV(5229)+JVS(41071)*UV(5250) - JTUV(692) = JVS(2724)*UV(692)+JVS(38119)*UV(5231)+JVS(39568)*UV(5240)+JVS(41072)*UV(5250)+JVS(47974)*UV(5253) - JTUV(693) = JVS(2727)*UV(693)+JVS(38120)*UV(5231)+JVS(39837)*UV(5244) - JTUV(694) = JVS(2732)*UV(694)+JVS(16136)*UV(3516)+JVS(38121)*UV(5231)+JVS(41073)*UV(5250)+JVS(50585)*UV(5255) - JTUV(695) = JVS(2735)*UV(695)+JVS(32309)*UV(5079)+JVS(39687)*UV(5242) - JTUV(696) = JVS(2740)*UV(696)+JVS(19308)*UV(3913)+JVS(22576)*UV(4278)+JVS(41074)*UV(5250)+JVS(50586)*UV(5255) - JTUV(697) = JVS(2743)*UV(697)+JVS(29007)*UV(4867)+JVS(38122)*UV(5231) - JTUV(698) = JVS(2748)*UV(698)+JVS(30106)*UV(4944)+JVS(33833)*UV(5143) - JTUV(699) = JVS(2753)*UV(699)+JVS(15245)*UV(3374)+JVS(19683)*UV(3957)+JVS(41075)*UV(5250)+JVS(50587)*UV(5255) - JTUV(700) = JVS(2756)*UV(700)+JVS(12782)*UV(2927)+JVS(28072)*UV(4796)+JVS(41076)*UV(5250)+JVS(50588)*UV(5255) - JTUV(701) = JVS(2759)*UV(701)+JVS(22308)*UV(4250)+JVS(38794)*UV(5232)+JVS(45077)*UV(5251)+JVS(50589)*UV(5255) - JTUV(702) = JVS(2762)*UV(702)+JVS(37283)*UV(5217)+JVS(37304)*UV(5219) - JTUV(703) = JVS(2767)*UV(703)+JVS(33417)*UV(5131)+JVS(35059)*UV(5182) - JTUV(704) = JVS(2772)*UV(704)+JVS(34965)*UV(5179)+JVS(35458)*UV(5188) - JTUV(705) = JVS(2777)*UV(705)+JVS(26908)*UV(4693)+JVS(26991)*UV(4694)+JVS(41077)*UV(5250)+JVS(50590)*UV(5255) - JTUV(706) = JVS(2780)*UV(706)+JVS(20987)*UV(4109)+JVS(50591)*UV(5255) - JTUV(707) = JVS(2785)*UV(707)+JVS(14599)*UV(3263)+JVS(50592)*UV(5255) - JTUV(708) = JVS(2790)*UV(708)+JVS(30241)*UV(4953)+JVS(38123)*UV(5231) - JTUV(709) = JVS(2795)*UV(709)+JVS(39402)*UV(5236)+JVS(41078)*UV(5250) - JTUV(710) = JVS(2800)*UV(710)+JVS(35729)*UV(5193)+JVS(39838)*UV(5244) - JTUV(711) = JVS(2805)*UV(711)+JVS(37375)*UV(5222)+JVS(50593)*UV(5255) - JTUV(712) = JVS(2810)*UV(712)+JVS(31275)*UV(5018)+JVS(47975)*UV(5253) - JTUV(713) = JVS(2815)*UV(713)+JVS(7550)*UV(1833)+JVS(31469)*UV(5031)+JVS(41079)*UV(5250)+JVS(47976)*UV(5253) - JTUV(714) = JVS(2818)*UV(714)+JVS(32452)*UV(5086)+JVS(39839)*UV(5244) - JTUV(715) = JVS(2823)*UV(715)+JVS(36855)*UV(5204)+JVS(37732)*UV(5224) - JTUV(716) = JVS(2828)*UV(716)+JVS(18205)*UV(3775)+JVS(50594)*UV(5255) - JTUV(717) = JVS(2833)*UV(717)+JVS(20494)*UV(4051)+JVS(38124)*UV(5231) - JTUV(718) = JVS(2838)*UV(718)+JVS(23796)*UV(4403)+JVS(24759)*UV(4491)+JVS(41080)*UV(5250)+JVS(50595)*UV(5255) - JTUV(719) = JVS(2841)*UV(719)+JVS(28676)*UV(4843)+JVS(39403)*UV(5236)+JVS(41081)*UV(5250)+JVS(45078)*UV(5251) - JTUV(720) = JVS(2844)*UV(720)+JVS(33173)*UV(5123)+JVS(39840)*UV(5244) - JTUV(721) = JVS(2849)*UV(721)+JVS(34858)*UV(5176)+JVS(50596)*UV(5255) - JTUV(722) = JVS(2854)*UV(722)+JVS(33226)*UV(5125)+JVS(33834)*UV(5143) - JTUV(723) = JVS(2859)*UV(723)+JVS(24760)*UV(4491)+JVS(26909)*UV(4693)+JVS(41082)*UV(5250)+JVS(50597)*UV(5255) - JTUV(724) = JVS(2862)*UV(724)+JVS(24131)*UV(4431)+JVS(35060)*UV(5182) - JTUV(725) = JVS(2867)*UV(725)+JVS(6672)*UV(1652)+JVS(17088)*UV(3639)+JVS(41083)*UV(5250)+JVS(50598)*UV(5255) - JTUV(726) = JVS(2870)*UV(726)+JVS(14520)*UV(3247)+JVS(33418)*UV(5131) - JTUV(727) = JVS(2875)*UV(727)+JVS(19592)*UV(3946)+JVS(50599)*UV(5255) - JTUV(728) = JVS(2880)*UV(728)+JVS(32627)*UV(5095)+JVS(39841)*UV(5244) - JTUV(729) = JVS(2885)*UV(729)+JVS(31031)*UV(5004)+JVS(38125)*UV(5231) - JTUV(730) = JVS(2890)*UV(730)+JVS(40545)*UV(5248)+JVS(50600)*UV(5255) - JTUV(731) = JVS(2895)*UV(731)+JVS(20942)*UV(4104)+JVS(39842)*UV(5244) - JTUV(732) = JVS(2900)*UV(732)+JVS(15625)*UV(3426)+JVS(23641)*UV(4388)+JVS(41084)*UV(5250)+JVS(50601)*UV(5255) - JTUV(733) = JVS(2903)*UV(733)+JVS(35061)*UV(5182)+JVS(50602)*UV(5255) - JTUV(734) = JVS(2908)*UV(734)+JVS(33356)*UV(5129)+JVS(37376)*UV(5222) - JTUV(735) = JVS(2914)*UV(735)+JVS(25405)*UV(4545)+JVS(41085)*UV(5250) - JTUV(736) = JVS(601)*UV(154)+JVS(2915)*UV(735)+JVS(2919)*UV(736)+JVS(41086)*UV(5250) - JTUV(737) = JVS(2923)*UV(737)+JVS(17451)*UV(3683)+JVS(47977)*UV(5253) - JTUV(738) = JVS(2928)*UV(738)+JVS(20164)*UV(4014)+JVS(26910)*UV(4693)+JVS(41087)*UV(5250)+JVS(50603)*UV(5255) - JTUV(739) = JVS(2931)*UV(739)+JVS(34966)*UV(5179)+JVS(38126)*UV(5231) - JTUV(740) = JVS(2936)*UV(740)+JVS(32387)*UV(5083)+JVS(39843)*UV(5244) - JTUV(741) = JVS(2941)*UV(741)+JVS(34270)*UV(5160)+JVS(37122)*UV(5214) - JTUV(742) = JVS(2946)*UV(742)+JVS(15514)*UV(3411)+JVS(16851)*UV(3610)+JVS(41088)*UV(5250)+JVS(50604)*UV(5255) - JTUV(743) = JVS(2949)*UV(743)+JVS(18311)*UV(3787)+JVS(47978)*UV(5253) - JTUV(744) = JVS(2954)*UV(744)+JVS(17373)*UV(3673)+JVS(47979)*UV(5253) - JTUV(745) = JVS(2959)*UV(745)+JVS(33835)*UV(5143)+JVS(35149)*UV(5183) - JTUV(746) = JVS(2964)*UV(746)+JVS(17836)*UV(3732)+JVS(47980)*UV(5253) - JTUV(747) = JVS(2969)*UV(747)+JVS(19287)*UV(3911)+JVS(47981)*UV(5253) - JTUV(748) = JVS(2974)*UV(748)+JVS(34699)*UV(5169)+JVS(50605)*UV(5255) - JTUV(749) = JVS(2979)*UV(749)+JVS(35598)*UV(5191)+JVS(39423)*UV(5237) - JTUV(750) = JVS(2984)*UV(750)+JVS(35150)*UV(5183)+JVS(37377)*UV(5222) - JTUV(751) = JVS(2989)*UV(751)+JVS(33760)*UV(5142)+JVS(41089)*UV(5250) - JTUV(752) = JVS(2994)*UV(752)+JVS(18563)*UV(3821)+JVS(26911)*UV(4693)+JVS(41090)*UV(5250)+JVS(50606)*UV(5255) - JTUV(753) = JVS(2997)*UV(753)+JVS(17919)*UV(3742)+JVS(47982)*UV(5253) - JTUV(754) = JVS(3002)*UV(754)+JVS(22577)*UV(4278)+JVS(34271)*UV(5160)+JVS(41091)*UV(5250)+JVS(50607)*UV(5255) - JTUV(755) = JVS(3005)*UV(755)+JVS(33174)*UV(5123)+JVS(39844)*UV(5244) - JTUV(756) = JVS(3010)*UV(756)+JVS(32531)*UV(5089)+JVS(39845)*UV(5244) - JTUV(757) = JVS(3015)*UV(757)+JVS(31100)*UV(5007)+JVS(34912)*UV(5178)+JVS(41092)*UV(5250)+JVS(50608)*UV(5255) - JTUV(758) = JVS(3018)*UV(758)+JVS(11576)*UV(2697)+JVS(13888)*UV(3126)+JVS(41093)*UV(5250)+JVS(50609)*UV(5255) - JTUV(759) = JVS(3021)*UV(759)+JVS(28494)*UV(4828)+JVS(39344)*UV(5235)+JVS(41094)*UV(5250)+JVS(45079)*UV(5251) - JTUV(760) = JVS(3025)*UV(760)+JVS(34272)*UV(5160)+JVS(34967)*UV(5179) - JTUV(761) = JVS(3030)*UV(761)+JVS(35151)*UV(5183)+JVS(35599)*UV(5191) - JTUV(762) = JVS(3035)*UV(762)+JVS(10891)*UV(2562)+JVS(16371)*UV(3548)+JVS(41095)*UV(5250)+JVS(50610)*UV(5255) - JTUV(763) = JVS(3038)*UV(763)+JVS(34154)*UV(5156)+JVS(39846)*UV(5244)+JVS(41096)*UV(5250)+JVS(45080)*UV(5251) - JTUV(764) = JVS(3041)*UV(764)+JVS(14145)*UV(3176)+JVS(16548)*UV(3573)+JVS(41097)*UV(5250)+JVS(50611)*UV(5255) - JTUV(765) = JVS(3044)*UV(765)+JVS(29178)*UV(4882)+JVS(50612)*UV(5255) - JTUV(766) = JVS(3049)*UV(766)+JVS(30089)*UV(4943)+JVS(37838)*UV(5228)+JVS(41098)*UV(5250)+JVS(45081)*UV(5251) - JTUV(767) = JVS(3052)*UV(767)+JVS(8505)*UV(2035)+JVS(24782)*UV(4493)+JVS(41099)*UV(5250)+JVS(50613)*UV(5255) - JTUV(768) = JVS(3055)*UV(768)+JVS(26459)*UV(4651)+JVS(50614)*UV(5255) - JTUV(769) = JVS(3060)*UV(769)+JVS(23650)*UV(4389)+JVS(30107)*UV(4944)+JVS(34519)*UV(5161)+JVS(41100)*UV(5250) - JTUV(770) = JVS(3063)*UV(770)+JVS(36892)*UV(5207)+JVS(39847)*UV(5244) - JTUV(771) = JVS(3068)*UV(771)+JVS(26145)*UV(4621)+JVS(29795)*UV(4929)+JVS(41101)*UV(5250)+JVS(45082)*UV(5251) - JTUV(772) = JVS(3071)*UV(772)+JVS(8492)*UV(2033)+JVS(32225)*UV(5072)+JVS(41102)*UV(5250)+JVS(50615)*UV(5255) - JTUV(773) = JVS(3074)*UV(773)+JVS(26153)*UV(4622)+JVS(38127)*UV(5231) - JTUV(774) = JVS(3079)*UV(774)+JVS(28838)*UV(4854)+JVS(38128)*UV(5231) - JTUV(775) = JVS(3084)*UV(775)+JVS(18747)*UV(3846)+JVS(34273)*UV(5160) - JTUV(776) = JVS(3089)*UV(776)+JVS(24257)*UV(4443)+JVS(35730)*UV(5193) - JTUV(777) = JVS(3094)*UV(777)+JVS(34071)*UV(5152)+JVS(38129)*UV(5231) - JTUV(778) = JVS(3099)*UV(778)+JVS(33836)*UV(5143)+JVS(39848)*UV(5244) - JTUV(779) = JVS(3104)*UV(779)+JVS(15130)*UV(3359)+JVS(16883)*UV(3614)+JVS(41103)*UV(5250)+JVS(50616)*UV(5255) - JTUV(780) = JVS(3107)*UV(780)+JVS(17435)*UV(3681)+JVS(47983)*UV(5253) - JTUV(781) = JVS(3112)*UV(781)+JVS(28525)*UV(4831)+JVS(38130)*UV(5231) - JTUV(782) = JVS(3117)*UV(782)+JVS(25834)*UV(4591)+JVS(38131)*UV(5231) - JTUV(783) = JVS(3122)*UV(783)+JVS(37099)*UV(5213)+JVS(50617)*UV(5255) - JTUV(784) = JVS(3127)*UV(784)+JVS(37100)*UV(5213)+JVS(50618)*UV(5255) - JTUV(785) = JVS(3132)*UV(785)+JVS(15674)*UV(3433)+JVS(16634)*UV(3584)+JVS(41104)*UV(5250)+JVS(50619)*UV(5255) - JTUV(786) = JVS(3135)*UV(786)+JVS(35062)*UV(5182)+JVS(50620)*UV(5255) - JTUV(787) = JVS(3140)*UV(787)+JVS(26154)*UV(4622)+JVS(35731)*UV(5193) - JTUV(788) = JVS(3145)*UV(788)+JVS(15552)*UV(3416)+JVS(16570)*UV(3576)+JVS(41105)*UV(5250)+JVS(50621)*UV(5255) - JTUV(789) = JVS(3148)*UV(789)+JVS(7040)*UV(1732)+JVS(14833)*UV(3309)+JVS(41106)*UV(5250)+JVS(50622)*UV(5255) - JTUV(790) = JVS(3151)*UV(790)+JVS(22274)*UV(4247)+JVS(32332)*UV(5080)+JVS(41107)*UV(5250)+JVS(47984)*UV(5253) - JTUV(791) = JVS(3154)*UV(791)+JVS(24119)*UV(4430)+JVS(35732)*UV(5193) - JTUV(792) = JVS(3159)*UV(792)+JVS(17973)*UV(3748)+JVS(50623)*UV(5255) - JTUV(793) = JVS(3164)*UV(793)+JVS(32422)*UV(5085)+JVS(38132)*UV(5231)+JVS(41108)*UV(5250)+JVS(50624)*UV(5255) - JTUV(794) = JVS(3167)*UV(794)+JVS(23386)*UV(4361)+JVS(27692)*UV(4760)+JVS(34520)*UV(5161)+JVS(41109)*UV(5250) - JTUV(795) = JVS(3170)*UV(795)+JVS(27676)*UV(4759)+JVS(38133)*UV(5231) - JTUV(796) = JVS(3175)*UV(796)+JVS(21472)*UV(4168)+JVS(37378)*UV(5222)+JVS(41110)*UV(5250)+JVS(50625)*UV(5255) - JTUV(797) = JVS(3178)*UV(797)+JVS(47985)*UV(5253)+JVS(54819)*UV(5257) - JTUV(798) = JVS(3183)*UV(798)+JVS(19775)*UV(3968)+JVS(47986)*UV(5253) - JTUV(799) = JVS(3188)*UV(799)+JVS(16691)*UV(3591)+JVS(32453)*UV(5086)+JVS(41111)*UV(5250)+JVS(50626)*UV(5255) - JTUV(800) = JVS(3191)*UV(800)+JVS(16263)*UV(3535)+JVS(47987)*UV(5253) - JTUV(801) = JVS(3196)*UV(801)+JVS(21594)*UV(4181)+JVS(38134)*UV(5231) - JTUV(802) = JVS(3201)*UV(802)+JVS(39424)*UV(5237)+JVS(45083)*UV(5251) - JTUV(803) = JVS(3206)*UV(803)+JVS(23286)*UV(4349)+JVS(33227)*UV(5125)+JVS(34521)*UV(5161)+JVS(41112)*UV(5250) - JTUV(804) = JVS(3209)*UV(804)+JVS(11277)*UV(2638)+JVS(15987)*UV(3493)+JVS(41113)*UV(5250)+JVS(50627)*UV(5255) - JTUV(805) = JVS(3212)*UV(805)+JVS(33077)*UV(5117)+JVS(41114)*UV(5250)+JVS(45084)*UV(5251)+JVS(50628)*UV(5255) - JTUV(806) = JVS(3215)*UV(806)+JVS(24559)*UV(4473)+JVS(30334)*UV(4959)+JVS(33985)*UV(5148)+JVS(41115)*UV(5250) - JTUV(807) = JVS(3218)*UV(807)+JVS(13248)*UV(3009)+JVS(16058)*UV(3504)+JVS(41116)*UV(5250)+JVS(50629)*UV(5255) - JTUV(808) = JVS(3221)*UV(808)+JVS(38943)*UV(5233)+JVS(50630)*UV(5255) - JTUV(809) = JVS(3226)*UV(809)+JVS(17811)*UV(3729)+JVS(47988)*UV(5253) - JTUV(810) = JVS(3231)*UV(810)+JVS(26703)*UV(4673)+JVS(38135)*UV(5231) - JTUV(811) = JVS(3236)*UV(811)+JVS(15035)*UV(3345)+JVS(16525)*UV(3570)+JVS(41117)*UV(5250)+JVS(50631)*UV(5255) - JTUV(812) = JVS(3239)*UV(812)+JVS(15944)*UV(3486)+JVS(16502)*UV(3567)+JVS(41118)*UV(5250)+JVS(50632)*UV(5255) - JTUV(813) = JVS(3242)*UV(813)+JVS(15412)*UV(3397)+JVS(34274)*UV(5160)+JVS(41119)*UV(5250)+JVS(50633)*UV(5255) - JTUV(814) = JVS(3245)*UV(814)+JVS(17785)*UV(3726)+JVS(47989)*UV(5253) - JTUV(815) = JVS(3250)*UV(815)+JVS(18045)*UV(3756)+JVS(47990)*UV(5253) - JTUV(816) = JVS(3255)*UV(816)+JVS(18278)*UV(3783)+JVS(47991)*UV(5253) - JTUV(817) = JVS(3260)*UV(817)+JVS(28321)*UV(4812)+JVS(38136)*UV(5231) - JTUV(818) = JVS(3265)*UV(818)+JVS(37839)*UV(5228)+JVS(41120)*UV(5250) - JTUV(819) = JVS(3270)*UV(819)+JVS(26747)*UV(4677)+JVS(38944)*UV(5233)+JVS(41121)*UV(5250)+JVS(47992)*UV(5253) - JTUV(820) = JVS(3273)*UV(820)+JVS(38137)*UV(5231)+JVS(39771)*UV(5243) - JTUV(821) = JVS(3278)*UV(821)+JVS(10030)*UV(2377)+JVS(21320)*UV(4150)+JVS(41122)*UV(5250)+JVS(50634)*UV(5255) - JTUV(822) = JVS(3281)*UV(822)+JVS(20013)*UV(3997)+JVS(24269)*UV(4444)+JVS(41123)*UV(5250) - JTUV(823) = JVS(3285)*UV(823)+JVS(23982)*UV(4418)+JVS(41124)*UV(5250)+JVS(50635)*UV(5255) - JTUV(824) = JVS(3289)*UV(824)+JVS(27730)*UV(4763)+JVS(28822)*UV(4853)+JVS(41125)*UV(5250) - JTUV(825) = JVS(3293)*UV(825)+JVS(12643)*UV(2903)+JVS(22428)*UV(4262)+JVS(41126)*UV(5250) - JTUV(826) = JVS(1205)*UV(290)+JVS(3297)*UV(826)+JVS(21945)*UV(4216)+JVS(41127)*UV(5250) - JTUV(827) = JVS(3301)*UV(827)+JVS(24423)*UV(4459)+JVS(41128)*UV(5250)+JVS(50636)*UV(5255) - JTUV(828) = JVS(3305)*UV(828)+JVS(27832)*UV(4771)+JVS(32296)*UV(5078)+JVS(41129)*UV(5250) - JTUV(829) = JVS(3309)*UV(829)+JVS(19179)*UV(3897)+JVS(23245)*UV(4344)+JVS(41130)*UV(5250) - JTUV(830) = JVS(570)*UV(149)+JVS(3313)*UV(830)+JVS(6694)*UV(1656)+JVS(41131)*UV(5250) - JTUV(831) = JVS(3317)*UV(831)+JVS(9122)*UV(2173)+JVS(22283)*UV(4248)+JVS(41132)*UV(5250) - JTUV(832) = JVS(3321)*UV(832)+JVS(29380)*UV(4901)+JVS(30847)*UV(4994)+JVS(41133)*UV(5250) - JTUV(833) = JVS(3325)*UV(833)+JVS(34200)*UV(5158)+JVS(39602)*UV(5241)+JVS(41134)*UV(5250) - JTUV(834) = JVS(3329)*UV(834)+JVS(34621)*UV(5165)+JVS(41135)*UV(5250)+JVS(47993)*UV(5253) - JTUV(835) = JVS(3333)*UV(835)+JVS(13383)*UV(3036)+JVS(22865)*UV(4306)+JVS(41136)*UV(5250) - JTUV(836) = JVS(3337)*UV(836)+JVS(8472)*UV(2030)+JVS(22809)*UV(4300)+JVS(41137)*UV(5250) - JTUV(837) = JVS(3341)*UV(837)+JVS(24143)*UV(4432)+JVS(26211)*UV(4626)+JVS(41138)*UV(5250) - JTUV(838) = JVS(3345)*UV(838)+JVS(7017)*UV(1727)+JVS(24027)*UV(4422)+JVS(41139)*UV(5250) - JTUV(839) = JVS(3349)*UV(839)+JVS(30302)*UV(4958)+JVS(41140)*UV(5250)+JVS(50637)*UV(5255) - JTUV(840) = JVS(738)*UV(176)+JVS(2560)*UV(652)+JVS(3353)*UV(840)+JVS(41141)*UV(5250)+JVS(47994)*UV(5253) - JTUV(841) = JVS(3357)*UV(841)+JVS(11986)*UV(2771)+JVS(32581)*UV(5093)+JVS(41142)*UV(5250) - JTUV(842) = JVS(3361)*UV(842)+JVS(24213)*UV(4439)+JVS(25565)*UV(4560)+JVS(41143)*UV(5250) - JTUV(843) = JVS(3365)*UV(843)+JVS(20110)*UV(4008)+JVS(24192)*UV(4437)+JVS(41144)*UV(5250) - JTUV(844) = JVS(3369)*UV(844)+JVS(20332)*UV(4035)+JVS(23784)*UV(4402)+JVS(41145)*UV(5250) - JTUV(845) = JVS(3373)*UV(845)+JVS(26239)*UV(4629)+JVS(33986)*UV(5148)+JVS(41146)*UV(5250) - JTUV(846) = JVS(3377)*UV(846)+JVS(15276)*UV(3378)+JVS(16672)*UV(3589)+JVS(41147)*UV(5250) - JTUV(847) = JVS(3381)*UV(847)+JVS(19703)*UV(3959)+JVS(41148)*UV(5250)+JVS(50638)*UV(5255) - JTUV(848) = JVS(853)*UV(196)+JVS(3385)*UV(848)+JVS(13793)*UV(3110)+JVS(41149)*UV(5250) - JTUV(849) = JVS(3389)*UV(849)+JVS(21176)*UV(4131)+JVS(26190)*UV(4624)+JVS(41150)*UV(5250) - JTUV(850) = JVS(3393)*UV(850)+JVS(25135)*UV(4521)+JVS(32648)*UV(5096)+JVS(41151)*UV(5250) - JTUV(851) = JVS(3397)*UV(851)+JVS(15626)*UV(3426)+JVS(23642)*UV(4388)+JVS(41152)*UV(5250) - JTUV(852) = JVS(3401)*UV(852)+JVS(20780)*UV(4085)+JVS(24912)*UV(4504)+JVS(41153)*UV(5250) - JTUV(853) = JVS(3405)*UV(853)+JVS(24520)*UV(4469)+JVS(30619)*UV(4980)+JVS(41154)*UV(5250) - JTUV(854) = JVS(3409)*UV(854)+JVS(20052)*UV(4001)+JVS(24817)*UV(4495)+JVS(41155)*UV(5250) - JTUV(855) = JVS(3413)*UV(855)+JVS(10413)*UV(2465)+JVS(30632)*UV(4981)+JVS(41156)*UV(5250) - JTUV(856) = JVS(3417)*UV(856)+JVS(38138)*UV(5231)+JVS(39425)*UV(5237)+JVS(41157)*UV(5250) - JTUV(857) = JVS(3421)*UV(857)+JVS(20590)*UV(4061)+JVS(26272)*UV(4632)+JVS(41158)*UV(5250) - JTUV(858) = JVS(3425)*UV(858)+JVS(13516)*UV(3062)+JVS(21038)*UV(4115)+JVS(41159)*UV(5250) - JTUV(859) = JVS(3429)*UV(859)+JVS(26595)*UV(4664)+JVS(29369)*UV(4900)+JVS(41160)*UV(5250) - JTUV(860) = JVS(3433)*UV(860)+JVS(16593)*UV(3579)+JVS(22603)*UV(4280)+JVS(41161)*UV(5250) - JTUV(861) = JVS(3437)*UV(861)+JVS(18394)*UV(3798)+JVS(18608)*UV(3826)+JVS(41162)*UV(5250) - JTUV(862) = JVS(3441)*UV(862)+JVS(33228)*UV(5125)+JVS(41163)*UV(5250)+JVS(50639)*UV(5255) - JTUV(863) = JVS(3445)*UV(863)+JVS(11561)*UV(2694)+JVS(18748)*UV(3846)+JVS(41164)*UV(5250) - JTUV(864) = JVS(3449)*UV(864)+JVS(6469)*UV(1608)+JVS(29527)*UV(4910)+JVS(41165)*UV(5250) - JTUV(865) = JVS(160)*UV(36)+JVS(3453)*UV(865)+JVS(22247)*UV(4244)+JVS(41166)*UV(5250) - JTUV(866) = JVS(3457)*UV(866)+JVS(12068)*UV(2788)+JVS(25382)*UV(4543)+JVS(41167)*UV(5250) - JTUV(867) = JVS(3461)*UV(867)+JVS(18219)*UV(3776)+JVS(21664)*UV(4187)+JVS(41168)*UV(5250) - JTUV(868) = JVS(3465)*UV(868)+JVS(36048)*UV(5195)+JVS(39426)*UV(5237)+JVS(41169)*UV(5250) - JTUV(869) = JVS(3469)*UV(869)+JVS(15155)*UV(3363)+JVS(26504)*UV(4655)+JVS(41170)*UV(5250) - JTUV(870) = JVS(781)*UV(184)+JVS(3473)*UV(870)+JVS(14101)*UV(3168)+JVS(41171)*UV(5250) - JTUV(871) = JVS(911)*UV(206)+JVS(3477)*UV(871)+JVS(40511)*UV(5247)+JVS(41172)*UV(5250) - JTUV(872) = JVS(749)*UV(178)+JVS(3481)*UV(872)+JVS(11998)*UV(2773)+JVS(41173)*UV(5250) - JTUV(873) = JVS(3485)*UV(873)+JVS(13444)*UV(3048)+JVS(19876)*UV(3980)+JVS(41174)*UV(5250) - JTUV(874) = JVS(3489)*UV(874)+JVS(31192)*UV(5012)+JVS(41175)*UV(5250)+JVS(50640)*UV(5255) - JTUV(875) = JVS(3493)*UV(875)+JVS(10706)*UV(2526)+JVS(31336)*UV(5023)+JVS(41176)*UV(5250) - JTUV(876) = JVS(3497)*UV(876)+JVS(30790)*UV(4990)+JVS(35706)*UV(5192)+JVS(41177)*UV(5250) - JTUV(877) = JVS(3501)*UV(877)+JVS(12218)*UV(2819)+JVS(21312)*UV(4149)+JVS(41178)*UV(5250) - JTUV(878) = JVS(3505)*UV(878)+JVS(16740)*UV(3597)+JVS(22768)*UV(4296)+JVS(41179)*UV(5250) - JTUV(879) = JVS(835)*UV(193)+JVS(3509)*UV(879)+JVS(22039)*UV(4224)+JVS(41180)*UV(5250) - JTUV(880) = JVS(625)*UV(158)+JVS(3513)*UV(880)+JVS(32423)*UV(5085)+JVS(41181)*UV(5250) - JTUV(881) = JVS(3517)*UV(881)+JVS(12972)*UV(2961)+JVS(19186)*UV(3898)+JVS(41182)*UV(5250) - JTUV(882) = JVS(3521)*UV(882)+JVS(15246)*UV(3374)+JVS(19684)*UV(3957)+JVS(41183)*UV(5250) - JTUV(883) = JVS(3525)*UV(883)+JVS(9652)*UV(2293)+JVS(32832)*UV(5104)+JVS(41184)*UV(5250) - JTUV(884) = JVS(3529)*UV(884)+JVS(14243)*UV(3195)+JVS(16991)*UV(3627)+JVS(41185)*UV(5250) - JTUV(885) = JVS(3533)*UV(885)+JVS(13593)*UV(3074)+JVS(19940)*UV(3988)+JVS(41186)*UV(5250) - JTUV(886) = JVS(3537)*UV(886)+JVS(22486)*UV(4268)+JVS(32983)*UV(5111)+JVS(41187)*UV(5250) - JTUV(887) = JVS(3541)*UV(887)+JVS(14985)*UV(3338)+JVS(18690)*UV(3839)+JVS(41188)*UV(5250) - JTUV(888) = JVS(3545)*UV(888)+JVS(15293)*UV(3381)+JVS(26379)*UV(4643)+JVS(41189)*UV(5250) - JTUV(889) = JVS(3549)*UV(889)+JVS(28911)*UV(4860)+JVS(30633)*UV(4981)+JVS(41190)*UV(5250) - JTUV(890) = JVS(3553)*UV(890)+JVS(30303)*UV(4958)+JVS(41191)*UV(5250)+JVS(50641)*UV(5255) - JTUV(891) = JVS(3557)*UV(891)+JVS(12613)*UV(2897)+JVS(18869)*UV(3860)+JVS(41192)*UV(5250) - JTUV(892) = JVS(3561)*UV(892)+JVS(20131)*UV(4011)+JVS(26678)*UV(4671)+JVS(41193)*UV(5250) - JTUV(893) = JVS(3565)*UV(893)+JVS(30304)*UV(4958)+JVS(41194)*UV(5250)+JVS(47995)*UV(5253) - JTUV(894) = JVS(3569)*UV(894)+JVS(25468)*UV(4550)+JVS(28280)*UV(4808)+JVS(41195)*UV(5250) - JTUV(895) = JVS(3573)*UV(895)+JVS(17960)*UV(3747)+JVS(41196)*UV(5250)+JVS(50642)*UV(5255) - JTUV(896) = JVS(3577)*UV(896)+JVS(31951)*UV(5057)+JVS(41197)*UV(5250)+JVS(50643)*UV(5255) - JTUV(897) = JVS(3581)*UV(897)+JVS(13352)*UV(3030)+JVS(20875)*UV(4097)+JVS(41198)*UV(5250) - JTUV(898) = JVS(3585)*UV(898)+JVS(28335)*UV(4813)+JVS(41199)*UV(5250)+JVS(50644)*UV(5255) - JTUV(899) = JVS(3589)*UV(899)+JVS(26055)*UV(4613)+JVS(26066)*UV(4614)+JVS(41200)*UV(5250) - JTUV(900) = JVS(3593)*UV(900)+JVS(20806)*UV(4088)+JVS(31219)*UV(5014)+JVS(41201)*UV(5250) - JTUV(901) = JVS(3597)*UV(901)+JVS(29690)*UV(4920)+JVS(30577)*UV(4977)+JVS(41202)*UV(5250) - JTUV(902) = JVS(3601)*UV(902)+JVS(11727)*UV(2724)+JVS(25030)*UV(4510)+JVS(41203)*UV(5250) - JTUV(903) = JVS(3605)*UV(903)+JVS(27731)*UV(4763)+JVS(41204)*UV(5250)+JVS(50645)*UV(5255) - JTUV(904) = JVS(3609)*UV(904)+JVS(6438)*UV(1604)+JVS(15422)*UV(3398)+JVS(41205)*UV(5250) - JTUV(905) = JVS(3613)*UV(905)+JVS(41206)*UV(5250)+JVS(47996)*UV(5253)+JVS(54820)*UV(5257) - JTUV(906) = JVS(3617)*UV(906)+JVS(31302)*UV(5020)+JVS(41207)*UV(5250)+JVS(50646)*UV(5255) - JTUV(907) = JVS(3621)*UV(907)+JVS(20021)*UV(3998)+JVS(37748)*UV(5225)+JVS(41208)*UV(5250) - JTUV(908) = JVS(3625)*UV(908)+JVS(12264)*UV(2827)+JVS(21896)*UV(4211)+JVS(41209)*UV(5250) - JTUV(909) = JVS(3629)*UV(909)+JVS(12457)*UV(2865)+JVS(22438)*UV(4263)+JVS(41210)*UV(5250) - JTUV(910) = JVS(3633)*UV(910)+JVS(26302)*UV(4635)+JVS(26725)*UV(4675)+JVS(41211)*UV(5250) - JTUV(911) = JVS(3639)*UV(911)+JVS(18187)*UV(3773)+JVS(41212)*UV(5250)+JVS(50647)*UV(5255) - JTUV(912) = JVS(3643)*UV(912)+JVS(8212)*UV(1975)+JVS(20825)*UV(4090)+JVS(41213)*UV(5250) - JTUV(913) = JVS(3647)*UV(913)+JVS(13119)*UV(2986)+JVS(22856)*UV(4305)+JVS(41214)*UV(5250) - JTUV(914) = JVS(3651)*UV(914)+JVS(16765)*UV(3600)+JVS(23174)*UV(4335)+JVS(41215)*UV(5250) - JTUV(915) = JVS(3655)*UV(915)+JVS(26813)*UV(4684)+JVS(30981)*UV(5001)+JVS(41216)*UV(5250) - JTUV(916) = JVS(3659)*UV(916)+JVS(30271)*UV(4955)+JVS(37733)*UV(5224)+JVS(41217)*UV(5250) - JTUV(917) = JVS(3663)*UV(917)+JVS(11297)*UV(2641)+JVS(22705)*UV(4291)+JVS(41218)*UV(5250) - JTUV(918) = JVS(3667)*UV(918)+JVS(10124)*UV(2399)+JVS(39540)*UV(5239)+JVS(41219)*UV(5250) - JTUV(919) = JVS(3671)*UV(919)+JVS(22378)*UV(4257)+JVS(22674)*UV(4288)+JVS(41220)*UV(5250) - JTUV(920) = JVS(3675)*UV(920)+JVS(10659)*UV(2516)+JVS(21652)*UV(4186)+JVS(41221)*UV(5250) - JTUV(921) = JVS(3679)*UV(921)+JVS(26359)*UV(4641)+JVS(26637)*UV(4667)+JVS(41222)*UV(5250) - JTUV(922) = JVS(3683)*UV(922)+JVS(7489)*UV(1821)+JVS(17256)*UV(3657)+JVS(41223)*UV(5250) - JTUV(923) = JVS(3687)*UV(923)+JVS(15397)*UV(3395)+JVS(22874)*UV(4307)+JVS(41224)*UV(5250) - JTUV(924) = JVS(3691)*UV(924)+JVS(34913)*UV(5178)+JVS(41225)*UV(5250)+JVS(47997)*UV(5253) - JTUV(925) = JVS(3695)*UV(925)+JVS(41226)*UV(5250)+JVS(47998)*UV(5253)+JVS(50648)*UV(5255) - JTUV(926) = JVS(3699)*UV(926)+JVS(16457)*UV(3561)+JVS(41227)*UV(5250)+JVS(50649)*UV(5255) - JTUV(927) = JVS(3703)*UV(927)+JVS(8141)*UV(1961)+JVS(12679)*UV(2909)+JVS(41228)*UV(5250) - JTUV(928) = JVS(3707)*UV(928)+JVS(6930)*UV(1710)+JVS(24628)*UV(4481)+JVS(41229)*UV(5250) - JTUV(929) = JVS(3711)*UV(929)+JVS(22248)*UV(4244)+JVS(24346)*UV(4451)+JVS(41230)*UV(5250) - JTUV(930) = JVS(3715)*UV(930)+JVS(16480)*UV(3564)+JVS(27511)*UV(4745)+JVS(41231)*UV(5250) - JTUV(931) = JVS(1777)*UV(450)+JVS(3719)*UV(931)+JVS(21117)*UV(4124)+JVS(41232)*UV(5250) - JTUV(932) = JVS(3723)*UV(932)+JVS(15962)*UV(3489)+JVS(25263)*UV(4533)+JVS(41233)*UV(5250) - JTUV(933) = JVS(3727)*UV(933)+JVS(31292)*UV(5019)+JVS(41234)*UV(5250)+JVS(50650)*UV(5255) - JTUV(934) = JVS(3731)*UV(934)+JVS(15211)*UV(3370)+JVS(24501)*UV(4467)+JVS(41235)*UV(5250) - JTUV(935) = JVS(694)*UV(169)+JVS(3735)*UV(935)+JVS(17543)*UV(3694)+JVS(41236)*UV(5250) - JTUV(936) = JVS(3739)*UV(936)+JVS(26312)*UV(4636)+JVS(31242)*UV(5016)+JVS(41237)*UV(5250) - JTUV(937) = JVS(3743)*UV(937)+JVS(28551)*UV(4833)+JVS(29228)*UV(4887)+JVS(41238)*UV(5250) - JTUV(938) = JVS(3747)*UV(938)+JVS(16467)*UV(3562)+JVS(20427)*UV(4045)+JVS(41239)*UV(5250) - JTUV(939) = JVS(3751)*UV(939)+JVS(16294)*UV(3538)+JVS(24720)*UV(4488)+JVS(41240)*UV(5250) - JTUV(940) = JVS(3755)*UV(940)+JVS(13021)*UV(2968)+JVS(24901)*UV(4503)+JVS(41241)*UV(5250) - JTUV(941) = JVS(3759)*UV(941)+JVS(26897)*UV(4692)+JVS(29291)*UV(4893)+JVS(41242)*UV(5250) - JTUV(942) = JVS(3763)*UV(942)+JVS(8604)*UV(2056)+JVS(18738)*UV(3845)+JVS(41243)*UV(5250) - JTUV(943) = JVS(3767)*UV(943)+JVS(20118)*UV(4009)+JVS(23871)*UV(4407)+JVS(41244)*UV(5250) - JTUV(944) = JVS(3771)*UV(944)+JVS(6774)*UV(1675)+JVS(18011)*UV(3752)+JVS(41245)*UV(5250) - JTUV(945) = JVS(3775)*UV(945)+JVS(28996)*UV(4866)+JVS(34522)*UV(5161)+JVS(41246)*UV(5250) - JTUV(946) = JVS(3779)*UV(946)+JVS(23993)*UV(4419)+JVS(31685)*UV(5043)+JVS(41247)*UV(5250) - JTUV(947) = JVS(3783)*UV(947)+JVS(16610)*UV(3581)+JVS(23763)*UV(4400)+JVS(41248)*UV(5250) - JTUV(948) = JVS(3787)*UV(948)+JVS(8051)*UV(1942)+JVS(34886)*UV(5177)+JVS(41249)*UV(5250) - JTUV(949) = JVS(631)*UV(159)+JVS(3791)*UV(949)+JVS(12680)*UV(2909)+JVS(41250)*UV(5250) - JTUV(950) = JVS(3795)*UV(950)+JVS(20418)*UV(4044)+JVS(27984)*UV(4788)+JVS(41251)*UV(5250) - JTUV(951) = JVS(3799)*UV(951)+JVS(18328)*UV(3789)+JVS(26762)*UV(4679)+JVS(41252)*UV(5250) - JTUV(952) = JVS(3803)*UV(952)+JVS(20510)*UV(4052)+JVS(21637)*UV(4184)+JVS(41253)*UV(5250) - JTUV(953) = JVS(3807)*UV(953)+JVS(30351)*UV(4960)+JVS(41254)*UV(5250)+JVS(50651)*UV(5255) - JTUV(954) = JVS(3811)*UV(954)+JVS(21702)*UV(4191)+JVS(26260)*UV(4631)+JVS(41255)*UV(5250) - JTUV(955) = JVS(3815)*UV(955)+JVS(8267)*UV(1986)+JVS(15579)*UV(3420)+JVS(41256)*UV(5250) - JTUV(956) = JVS(3819)*UV(956)+JVS(13748)*UV(3103)+JVS(29916)*UV(4937)+JVS(41257)*UV(5250) - JTUV(957) = JVS(3823)*UV(957)+JVS(13008)*UV(2966)+JVS(41258)*UV(5250)+JVS(50652)*UV(5255) - JTUV(958) = JVS(3827)*UV(958)+JVS(10052)*UV(2381)+JVS(41259)*UV(5250)+JVS(50653)*UV(5255) - JTUV(959) = JVS(3831)*UV(959)+JVS(16159)*UV(3518)+JVS(23031)*UV(4322)+JVS(41260)*UV(5250) - JTUV(960) = JVS(3835)*UV(960)+JVS(11881)*UV(2751)+JVS(24016)*UV(4421)+JVS(41261)*UV(5250) - JTUV(961) = JVS(3839)*UV(961)+JVS(26638)*UV(4667)+JVS(41262)*UV(5250)+JVS(50654)*UV(5255) - JTUV(962) = JVS(3843)*UV(962)+JVS(10915)*UV(2566)+JVS(21887)*UV(4210)+JVS(41263)*UV(5250) - JTUV(963) = JVS(328)*UV(82)+JVS(3847)*UV(963)+JVS(17685)*UV(3714)+JVS(41264)*UV(5250) - JTUV(964) = JVS(3851)*UV(964)+JVS(8574)*UV(2050)+JVS(18579)*UV(3822)+JVS(41265)*UV(5250) - JTUV(965) = JVS(3855)*UV(965)+JVS(6524)*UV(1620)+JVS(27389)*UV(4734)+JVS(41266)*UV(5250) - JTUV(966) = JVS(3859)*UV(966)+JVS(7354)*UV(1796)+JVS(17184)*UV(3649)+JVS(41267)*UV(5250) - JTUV(967) = JVS(3863)*UV(967)+JVS(11066)*UV(2594)+JVS(16343)*UV(3544)+JVS(41268)*UV(5250) - JTUV(968) = JVS(3867)*UV(968)+JVS(11209)*UV(2623)+JVS(14396)*UV(3228)+JVS(41269)*UV(5250) - JTUV(969) = JVS(2144)*UV(552)+JVS(3871)*UV(969)+JVS(18109)*UV(3763)+JVS(41270)*UV(5250) - JTUV(970) = JVS(1341)*UV(326)+JVS(3875)*UV(970)+JVS(23712)*UV(4394)+JVS(41271)*UV(5250) - JTUV(971) = JVS(3879)*UV(971)+JVS(12721)*UV(2916)+JVS(19161)*UV(3895)+JVS(41272)*UV(5250) - JTUV(972) = JVS(3883)*UV(972)+JVS(13171)*UV(2995)+JVS(22256)*UV(4245)+JVS(41273)*UV(5250) - JTUV(973) = JVS(656)*UV(163)+JVS(3887)*UV(973)+JVS(24038)*UV(4423)+JVS(41274)*UV(5250) - JTUV(974) = JVS(3891)*UV(974)+JVS(13341)*UV(3028)+JVS(19650)*UV(3953)+JVS(41275)*UV(5250) - JTUV(975) = JVS(3895)*UV(975)+JVS(20559)*UV(4058)+JVS(24869)*UV(4500)+JVS(41276)*UV(5250) - JTUV(976) = JVS(3899)*UV(976)+JVS(21369)*UV(4155)+JVS(29154)*UV(4879)+JVS(41277)*UV(5250) - JTUV(977) = JVS(3903)*UV(977)+JVS(15449)*UV(3402)+JVS(23952)*UV(4415)+JVS(41278)*UV(5250) - JTUV(978) = JVS(3907)*UV(978)+JVS(20094)*UV(4006)+JVS(26879)*UV(4690)+JVS(41279)*UV(5250) - JTUV(979) = JVS(3911)*UV(979)+JVS(10750)*UV(2535)+JVS(21737)*UV(4195)+JVS(41280)*UV(5250) - JTUV(980) = JVS(3915)*UV(980)+JVS(8150)*UV(1962)+JVS(21090)*UV(4121)+JVS(41281)*UV(5250) - JTUV(981) = JVS(3919)*UV(981)+JVS(13178)*UV(2996)+JVS(20988)*UV(4109)+JVS(41282)*UV(5250) - JTUV(982) = JVS(3923)*UV(982)+JVS(14767)*UV(3296)+JVS(17031)*UV(3632)+JVS(41283)*UV(5250) - JTUV(983) = JVS(3927)*UV(983)+JVS(30606)*UV(4979)+JVS(34049)*UV(5151)+JVS(41284)*UV(5250) - JTUV(984) = JVS(3931)*UV(984)+JVS(11874)*UV(2750)+JVS(19620)*UV(3949)+JVS(41285)*UV(5250) - JTUV(985) = JVS(3935)*UV(985)+JVS(28725)*UV(4847)+JVS(39404)*UV(5236)+JVS(41286)*UV(5250) - JTUV(986) = JVS(3939)*UV(986)+JVS(19907)*UV(3984)+JVS(30482)*UV(4969)+JVS(41287)*UV(5250) - JTUV(987) = JVS(3943)*UV(987)+JVS(33761)*UV(5142)+JVS(35152)*UV(5183)+JVS(41288)*UV(5250) - JTUV(988) = JVS(3947)*UV(988)+JVS(26369)*UV(4642)+JVS(32660)*UV(5097)+JVS(41289)*UV(5250) - JTUV(989) = JVS(304)*UV(76)+JVS(3951)*UV(989)+JVS(17729)*UV(3719)+JVS(41290)*UV(5250) - JTUV(990) = JVS(3955)*UV(990)+JVS(29345)*UV(4898)+JVS(41291)*UV(5250)+JVS(50656)*UV(5255) - JTUV(991) = JVS(3959)*UV(991)+JVS(28791)*UV(4851)+JVS(41292)*UV(5250)+JVS(47999)*UV(5253) - JTUV(992) = JVS(320)*UV(80)+JVS(3963)*UV(992)+JVS(17711)*UV(3717)+JVS(41293)*UV(5250) - JTUV(993) = JVS(3967)*UV(993)+JVS(31259)*UV(5017)+JVS(32405)*UV(5084)+JVS(41294)*UV(5250) - JTUV(994) = JVS(701)*UV(170)+JVS(3971)*UV(994)+JVS(29422)*UV(4904)+JVS(41295)*UV(5250) - JTUV(995) = JVS(3975)*UV(995)+JVS(12887)*UV(2946)+JVS(15369)*UV(3391)+JVS(41296)*UV(5250) - JTUV(996) = JVS(3979)*UV(996)+JVS(16256)*UV(3534)+JVS(20140)*UV(4012)+JVS(41297)*UV(5250) - JTUV(997) = JVS(3983)*UV(997)+JVS(12654)*UV(2905)+JVS(21200)*UV(4134)+JVS(41298)*UV(5250) - JTUV(998) = JVS(3987)*UV(998)+JVS(23263)*UV(4346)+JVS(28839)*UV(4854)+JVS(41299)*UV(5250) - JTUV(999) = JVS(3991)*UV(999)+JVS(15267)*UV(3377)+JVS(16841)*UV(3609)+JVS(41300)*UV(5250) - JTUV(1000) = JVS(3995)*UV(1000)+JVS(18425)*UV(3802)+JVS(41301)*UV(5250)+JVS(48000)*UV(5253) - JTUV(1001) = JVS(3999)*UV(1001)+JVS(7057)*UV(1736)+JVS(41302)*UV(5250)+JVS(50657)*UV(5255) - JTUV(1002) = JVS(4003)*UV(1002)+JVS(20083)*UV(4005)+JVS(20900)*UV(4100)+JVS(41303)*UV(5250) - JTUV(1003) = JVS(4007)*UV(1003)+JVS(20102)*UV(4007)+JVS(26668)*UV(4670)+JVS(41304)*UV(5250) - JTUV(1004) = JVS(582)*UV(151)+JVS(4011)*UV(1004)+JVS(14324)*UV(3213)+JVS(41305)*UV(5250) - JTUV(1005) = JVS(4015)*UV(1005)+JVS(19963)*UV(3991)+JVS(41306)*UV(5250)+JVS(48001)*UV(5253) - JTUV(1006) = JVS(4019)*UV(1006)+JVS(25113)*UV(4519)+JVS(37334)*UV(5221)+JVS(41307)*UV(5250) - JTUV(1007) = JVS(1488)*UV(370)+JVS(4023)*UV(1007)+JVS(21801)*UV(4201)+JVS(41308)*UV(5250) - JTUV(1008) = JVS(4027)*UV(1008)+JVS(20208)*UV(4019)+JVS(27603)*UV(4752)+JVS(41309)*UV(5250) - JTUV(1009) = JVS(4031)*UV(1009)+JVS(16239)*UV(3531)+JVS(24310)*UV(4448)+JVS(41310)*UV(5250) - JTUV(1010) = JVS(4035)*UV(1010)+JVS(15382)*UV(3393)+JVS(17961)*UV(3747)+JVS(41311)*UV(5250) - JTUV(1011) = JVS(4039)*UV(1011)+JVS(35733)*UV(5193)+JVS(38945)*UV(5233)+JVS(48002)*UV(5253) - JTUV(1012) = JVS(4043)*UV(1012)+JVS(10640)*UV(2512)+JVS(19915)*UV(3985)+JVS(41312)*UV(5250) - JTUV(1013) = JVS(4047)*UV(1013)+JVS(38139)*UV(5231)+JVS(38946)*UV(5233)+JVS(50658)*UV(5255) - JTUV(1014) = JVS(4051)*UV(1014)+JVS(15675)*UV(3433)+JVS(16635)*UV(3584)+JVS(41313)*UV(5250) - JTUV(1015) = JVS(4055)*UV(1015)+JVS(34590)*UV(5164)+JVS(36764)*UV(5202)+JVS(41314)*UV(5250) - JTUV(1016) = JVS(4059)*UV(1016)+JVS(15553)*UV(3416)+JVS(16571)*UV(3576)+JVS(41315)*UV(5250) - JTUV(1017) = JVS(4063)*UV(1017)+JVS(20531)*UV(4054)+JVS(23933)*UV(4413)+JVS(41316)*UV(5250) - JTUV(1018) = JVS(4067)*UV(1018)+JVS(26555)*UV(4660)+JVS(31293)*UV(5019)+JVS(41317)*UV(5250) - JTUV(1019) = JVS(4071)*UV(1019)+JVS(9289)*UV(2209)+JVS(12598)*UV(2894)+JVS(41318)*UV(5250) - JTUV(1020) = JVS(4075)*UV(1020)+JVS(6946)*UV(1713)+JVS(17619)*UV(3705)+JVS(41319)*UV(5250) - JTUV(1021) = JVS(4079)*UV(1021)+JVS(10683)*UV(2521)+JVS(18809)*UV(3853)+JVS(41320)*UV(5250) - JTUV(1022) = JVS(4083)*UV(1022)+JVS(28387)*UV(4818)+JVS(30352)*UV(4960)+JVS(41321)*UV(5250) - JTUV(1023) = JVS(4087)*UV(1023)+JVS(16404)*UV(3554)+JVS(26122)*UV(4619)+JVS(41322)*UV(5250) - JTUV(1024) = JVS(4091)*UV(1024)+JVS(18304)*UV(3786)+JVS(25980)*UV(4603)+JVS(41323)*UV(5250) - JTUV(1025) = JVS(4095)*UV(1025)+JVS(15538)*UV(3414)+JVS(21728)*UV(4194)+JVS(41324)*UV(5250) - JTUV(1026) = JVS(4099)*UV(1026)+JVS(15370)*UV(3391)+JVS(41325)*UV(5250)+JVS(48003)*UV(5253) - JTUV(1027) = JVS(4103)*UV(1027)+JVS(14133)*UV(3174)+JVS(18445)*UV(3805)+JVS(41326)*UV(5250) - JTUV(1028) = JVS(155)*UV(35)+JVS(4107)*UV(1028)+JVS(17411)*UV(3678)+JVS(41327)*UV(5250) - JTUV(1029) = JVS(4111)*UV(1029)+JVS(11093)*UV(2598)+JVS(22683)*UV(4289)+JVS(41328)*UV(5250) - JTUV(1030) = JVS(4115)*UV(1030)+JVS(15345)*UV(3388)+JVS(24385)*UV(4455)+JVS(41329)*UV(5250) - JTUV(1031) = JVS(4119)*UV(1031)+JVS(26803)*UV(4683)+JVS(28502)*UV(4829)+JVS(41330)*UV(5250) - JTUV(1032) = JVS(507)*UV(132)+JVS(4123)*UV(1032)+JVS(17819)*UV(3730)+JVS(41331)*UV(5250) - JTUV(1033) = JVS(4127)*UV(1033)+JVS(16051)*UV(3503)+JVS(21338)*UV(4152)+JVS(41332)*UV(5250) - JTUV(1034) = JVS(4131)*UV(1034)+JVS(16518)*UV(3569)+JVS(25641)*UV(4568)+JVS(41333)*UV(5250) - JTUV(1035) = JVS(4135)*UV(1035)+JVS(17244)*UV(3656)+JVS(41334)*UV(5250)+JVS(50659)*UV(5255) - JTUV(1036) = JVS(4139)*UV(1036)+JVS(6274)*UV(1565)+JVS(41335)*UV(5250)+JVS(50660)*UV(5255) - JTUV(1037) = JVS(4143)*UV(1037)+JVS(31880)*UV(5053)+JVS(41336)*UV(5250)+JVS(50661)*UV(5255) - JTUV(1038) = JVS(4147)*UV(1038)+JVS(15515)*UV(3411)+JVS(16852)*UV(3610)+JVS(41337)*UV(5250) - JTUV(1039) = JVS(4151)*UV(1039)+JVS(13864)*UV(3122)+JVS(18371)*UV(3795)+JVS(41338)*UV(5250) - JTUV(1040) = JVS(4157)*UV(1040)+JVS(26460)*UV(4651)+JVS(41339)*UV(5250)+JVS(50662)*UV(5255) - JTUV(1041) = JVS(4161)*UV(1041)+JVS(32037)*UV(5060)+JVS(32310)*UV(5079)+JVS(41340)*UV(5250) - JTUV(1042) = JVS(4165)*UV(1042)+JVS(28742)*UV(4848)+JVS(34030)*UV(5150)+JVS(41341)*UV(5250) - JTUV(1043) = JVS(180)*UV(42)+JVS(4169)*UV(1043)+JVS(17943)*UV(3745)+JVS(41342)*UV(5250) - JTUV(1044) = JVS(4173)*UV(1044)+JVS(13549)*UV(3067)+JVS(24697)*UV(4486)+JVS(41343)*UV(5250) - JTUV(1045) = JVS(4177)*UV(1045)+JVS(15148)*UV(3362)+JVS(24463)*UV(4463)+JVS(41344)*UV(5250) - JTUV(1046) = JVS(4181)*UV(1046)+JVS(12799)*UV(2931)+JVS(18764)*UV(3848)+JVS(41345)*UV(5250) - JTUV(1047) = JVS(4185)*UV(1047)+JVS(21759)*UV(4197)+JVS(28852)*UV(4855)+JVS(41346)*UV(5250) - JTUV(1048) = JVS(4189)*UV(1048)+JVS(26349)*UV(4640)+JVS(29595)*UV(4915)+JVS(41347)*UV(5250) - JTUV(1049) = JVS(4193)*UV(1049)+JVS(14146)*UV(3176)+JVS(16549)*UV(3573)+JVS(41348)*UV(5250) - JTUV(1050) = JVS(4197)*UV(1050)+JVS(25166)*UV(4524)+JVS(41349)*UV(5250)+JVS(50663)*UV(5255) - JTUV(1051) = JVS(4201)*UV(1051)+JVS(13286)*UV(3016)+JVS(21906)*UV(4212)+JVS(41350)*UV(5250) - JTUV(1052) = JVS(793)*UV(186)+JVS(4205)*UV(1052)+JVS(13689)*UV(3091)+JVS(41351)*UV(5250) - JTUV(1053) = JVS(4209)*UV(1053)+JVS(15404)*UV(3396)+JVS(17678)*UV(3713)+JVS(41352)*UV(5250) - JTUV(1054) = JVS(4213)*UV(1054)+JVS(32582)*UV(5093)+JVS(41353)*UV(5250)+JVS(50664)*UV(5255) - JTUV(1055) = JVS(4217)*UV(1055)+JVS(26573)*UV(4662)+JVS(29042)*UV(4870)+JVS(41354)*UV(5250) - JTUV(1056) = JVS(4221)*UV(1056)+JVS(7070)*UV(1738)+JVS(41355)*UV(5250)+JVS(50665)*UV(5255) - JTUV(1057) = JVS(602)*UV(154)+JVS(2916)*UV(735)+JVS(4225)*UV(1057)+JVS(41356)*UV(5250)+JVS(48004)*UV(5253) - JTUV(1058) = JVS(4229)*UV(1058)+JVS(34700)*UV(5169)+JVS(41357)*UV(5250)+JVS(48005)*UV(5253) - JTUV(1059) = JVS(4233)*UV(1059)+JVS(9794)*UV(2324)+JVS(10482)*UV(2480)+JVS(41358)*UV(5250) - JTUV(1060) = JVS(4237)*UV(1060)+JVS(7447)*UV(1814)+JVS(15236)*UV(3373)+JVS(41359)*UV(5250) - JTUV(1061) = JVS(4241)*UV(1061)+JVS(20324)*UV(4034)+JVS(28300)*UV(4810)+JVS(41360)*UV(5250) - JTUV(1062) = JVS(239)*UV(57)+JVS(4245)*UV(1062)+JVS(18171)*UV(3771)+JVS(41361)*UV(5250) - JTUV(1063) = JVS(4249)*UV(1063)+JVS(19501)*UV(3934)+JVS(25692)*UV(4574)+JVS(41362)*UV(5250) - JTUV(1064) = JVS(4253)*UV(1064)+JVS(21980)*UV(4219)+JVS(26032)*UV(4611)+JVS(41363)*UV(5250) - JTUV(1065) = JVS(4257)*UV(1065)+JVS(15089)*UV(3352)+JVS(23704)*UV(4393)+JVS(41364)*UV(5250) - JTUV(1066) = JVS(4261)*UV(1066)+JVS(37840)*UV(5228)+JVS(39849)*UV(5244)+JVS(41365)*UV(5250) - JTUV(1067) = JVS(4265)*UV(1067)+JVS(28421)*UV(4822)+JVS(28435)*UV(4823)+JVS(41366)*UV(5250) - JTUV(1068) = JVS(4269)*UV(1068)+JVS(38140)*UV(5231)+JVS(41367)*UV(5250)+JVS(50666)*UV(5255) - JTUV(1069) = JVS(4273)*UV(1069)+JVS(10527)*UV(2490)+JVS(32297)*UV(5078)+JVS(41368)*UV(5250) - JTUV(1070) = JVS(687)*UV(168)+JVS(4277)*UV(1070)+JVS(14639)*UV(3270)+JVS(41369)*UV(5250) - JTUV(1071) = JVS(4281)*UV(1071)+JVS(10559)*UV(2495)+JVS(18698)*UV(3840)+JVS(41370)*UV(5250) - JTUV(1072) = JVS(4285)*UV(1072)+JVS(12283)*UV(2831)+JVS(21250)*UV(4140)+JVS(41371)*UV(5250) - JTUV(1073) = JVS(4289)*UV(1073)+JVS(26804)*UV(4683)+JVS(41372)*UV(5250)+JVS(50667)*UV(5255) - JTUV(1074) = JVS(4293)*UV(1074)+JVS(23923)*UV(4412)+JVS(32065)*UV(5062)+JVS(41373)*UV(5250) - JTUV(1075) = JVS(453)*UV(117)+JVS(4297)*UV(1075)+JVS(18296)*UV(3785)+JVS(41374)*UV(5250) - JTUV(1076) = JVS(4301)*UV(1076)+JVS(20484)*UV(4050)+JVS(20495)*UV(4051)+JVS(41375)*UV(5250) - JTUV(1077) = JVS(4305)*UV(1077)+JVS(9703)*UV(2304)+JVS(11695)*UV(2719)+JVS(41376)*UV(5250) - JTUV(1078) = JVS(4309)*UV(1078)+JVS(34275)*UV(5160)+JVS(41377)*UV(5250)+JVS(48006)*UV(5253) - JTUV(1079) = JVS(829)*UV(192)+JVS(4313)*UV(1079)+JVS(14088)*UV(3166)+JVS(41378)*UV(5250) - JTUV(1080) = JVS(4317)*UV(1080)+JVS(10453)*UV(2473)+JVS(19104)*UV(3888)+JVS(41379)*UV(5250) - JTUV(1081) = JVS(4321)*UV(1081)+JVS(16361)*UV(3547)+JVS(41380)*UV(5250)+JVS(48007)*UV(5253) - JTUV(1082) = JVS(1669)*UV(421)+JVS(4325)*UV(1082)+JVS(29147)*UV(4878)+JVS(41381)*UV(5250) - JTUV(1083) = JVS(4329)*UV(1083)+JVS(15457)*UV(3403)+JVS(41382)*UV(5250)+JVS(48008)*UV(5253) - JTUV(1084) = JVS(4333)*UV(1084)+JVS(30982)*UV(5001)+JVS(41383)*UV(5250)+JVS(50668)*UV(5255) - JTUV(1085) = JVS(4337)*UV(1085)+JVS(27677)*UV(4759)+JVS(29118)*UV(4875)+JVS(41384)*UV(5250) - JTUV(1086) = JVS(4341)*UV(1086)+JVS(27452)*UV(4740)+JVS(41385)*UV(5250)+JVS(48009)*UV(5253) - JTUV(1087) = JVS(4345)*UV(1087)+JVS(21760)*UV(4197)+JVS(41386)*UV(5250)+JVS(50669)*UV(5255) - JTUV(1088) = JVS(4349)*UV(1088)+JVS(12903)*UV(2949)+JVS(28355)*UV(4815)+JVS(41387)*UV(5250) - JTUV(1089) = JVS(482)*UV(125)+JVS(4353)*UV(1089)+JVS(6873)*UV(1696)+JVS(41388)*UV(5250) - JTUV(1090) = JVS(4357)*UV(1090)+JVS(29882)*UV(4934)+JVS(33121)*UV(5120)+JVS(41389)*UV(5250) - JTUV(1091) = JVS(4361)*UV(1091)+JVS(20032)*UV(3999)+JVS(28017)*UV(4791)+JVS(41390)*UV(5250) - JTUV(1092) = JVS(4365)*UV(1092)+JVS(16489)*UV(3565)+JVS(25274)*UV(4534)+JVS(41391)*UV(5250) - JTUV(1093) = JVS(1745)*UV(443)+JVS(4369)*UV(1093)+JVS(25408)*UV(4545)+JVS(41392)*UV(5250) - JTUV(1094) = JVS(4373)*UV(1094)+JVS(7041)*UV(1732)+JVS(14834)*UV(3309)+JVS(41393)*UV(5250) - JTUV(1095) = JVS(4377)*UV(1095)+JVS(26155)*UV(4622)+JVS(26621)*UV(4666)+JVS(41394)*UV(5250) - JTUV(1096) = JVS(4381)*UV(1096)+JVS(10757)*UV(2536)+JVS(22456)*UV(4265)+JVS(41395)*UV(5250) - JTUV(1097) = JVS(4385)*UV(1097)+JVS(26350)*UV(4640)+JVS(41396)*UV(5250)+JVS(50670)*UV(5255) - JTUV(1098) = JVS(4389)*UV(1098)+JVS(12200)*UV(2816)+JVS(28792)*UV(4851)+JVS(41397)*UV(5250) - JTUV(1099) = JVS(4393)*UV(1099)+JVS(11490)*UV(2679)+JVS(30801)*UV(4991)+JVS(41398)*UV(5250) - JTUV(1100) = JVS(4397)*UV(1100)+JVS(31881)*UV(5053)+JVS(33524)*UV(5137)+JVS(41399)*UV(5250) - JTUV(1101) = JVS(4401)*UV(1101)+JVS(13534)*UV(3065)+JVS(22777)*UV(4297)+JVS(41400)*UV(5250) - JTUV(1102) = JVS(4405)*UV(1102)+JVS(7908)*UV(1910)+JVS(36012)*UV(5194)+JVS(41401)*UV(5250) - JTUV(1103) = JVS(4409)*UV(1103)+JVS(13774)*UV(3107)+JVS(16817)*UV(3606)+JVS(41402)*UV(5250) - JTUV(1104) = JVS(4413)*UV(1104)+JVS(12732)*UV(2918)+JVS(22723)*UV(4293)+JVS(41403)*UV(5250) - JTUV(1105) = JVS(4417)*UV(1105)+JVS(11761)*UV(2731)+JVS(22529)*UV(4273)+JVS(41404)*UV(5250) - JTUV(1106) = JVS(4421)*UV(1106)+JVS(23561)*UV(4380)+JVS(27640)*UV(4755)+JVS(41405)*UV(5250) - JTUV(1107) = JVS(4425)*UV(1107)+JVS(23228)*UV(4342)+JVS(31418)*UV(5027)+JVS(41406)*UV(5250) - JTUV(1108) = JVS(4429)*UV(1108)+JVS(7888)*UV(1906)+JVS(25167)*UV(4524)+JVS(41407)*UV(5250) - JTUV(1109) = JVS(4433)*UV(1109)+JVS(20667)*UV(4071)+JVS(30732)*UV(4986)+JVS(41408)*UV(5250) - JTUV(1110) = JVS(4437)*UV(1110)+JVS(35734)*UV(5193)+JVS(41409)*UV(5250)+JVS(48010)*UV(5253) - JTUV(1111) = JVS(4441)*UV(1111)+JVS(32880)*UV(5106)+JVS(41410)*UV(5250)+JVS(50671)*UV(5255) - JTUV(1112) = JVS(4445)*UV(1112)+JVS(15945)*UV(3486)+JVS(16503)*UV(3567)+JVS(41411)*UV(5250) - JTUV(1113) = JVS(4449)*UV(1113)+JVS(39199)*UV(5234)+JVS(41412)*UV(5250)+JVS(50672)*UV(5255) - JTUV(1114) = JVS(4453)*UV(1114)+JVS(28771)*UV(4850)+JVS(30073)*UV(4942)+JVS(41413)*UV(5250) - JTUV(1115) = JVS(4457)*UV(1115)+JVS(11926)*UV(2760)+JVS(22505)*UV(4270)+JVS(41414)*UV(5250) - JTUV(1116) = JVS(4461)*UV(1116)+JVS(11138)*UV(2607)+JVS(24481)*UV(4465)+JVS(41415)*UV(5250) - JTUV(1117) = JVS(4465)*UV(1117)+JVS(11807)*UV(2739)+JVS(21673)*UV(4188)+JVS(41416)*UV(5250) - JTUV(1118) = JVS(4469)*UV(1118)+JVS(16733)*UV(3596)+JVS(24061)*UV(4425)+JVS(41417)*UV(5250) - JTUV(1119) = JVS(725)*UV(174)+JVS(4473)*UV(1119)+JVS(6205)*UV(1550)+JVS(41418)*UV(5250) - JTUV(1120) = JVS(4477)*UV(1120)+JVS(18035)*UV(3755)+JVS(41419)*UV(5250)+JVS(50673)*UV(5255) - JTUV(1121) = JVS(4481)*UV(1121)+JVS(22027)*UV(4223)+JVS(41420)*UV(5250)+JVS(50674)*UV(5255) - JTUV(1122) = JVS(4485)*UV(1122)+JVS(12499)*UV(2874)+JVS(22349)*UV(4254)+JVS(41421)*UV(5250) - JTUV(1123) = JVS(4489)*UV(1123)+JVS(15286)*UV(3380)+JVS(18198)*UV(3774)+JVS(41422)*UV(5250) - JTUV(1124) = JVS(4493)*UV(1124)+JVS(16273)*UV(3536)+JVS(41423)*UV(5250)+JVS(50675)*UV(5255) - JTUV(1125) = JVS(4497)*UV(1125)+JVS(20733)*UV(4079)+JVS(25240)*UV(4531)+JVS(41424)*UV(5250) - JTUV(1126) = JVS(4501)*UV(1126)+JVS(8682)*UV(2073)+JVS(35570)*UV(5189)+JVS(41425)*UV(5250) - JTUV(1127) = JVS(4505)*UV(1127)+JVS(15488)*UV(3407)+JVS(17804)*UV(3728)+JVS(41426)*UV(5250) - JTUV(1128) = JVS(713)*UV(172)+JVS(4509)*UV(1128)+JVS(21622)*UV(4183)+JVS(41427)*UV(5250) - JTUV(1129) = JVS(4513)*UV(1129)+JVS(6535)*UV(1622)+JVS(24619)*UV(4480)+JVS(41428)*UV(5250) - JTUV(1130) = JVS(4517)*UV(1130)+JVS(6673)*UV(1652)+JVS(17089)*UV(3639)+JVS(41429)*UV(5250) - JTUV(1131) = JVS(4521)*UV(1131)+JVS(7497)*UV(1822)+JVS(15018)*UV(3343)+JVS(41430)*UV(5250) - JTUV(1132) = JVS(4525)*UV(1132)+JVS(11169)*UV(2614)+JVS(31392)*UV(5026)+JVS(41431)*UV(5250) - JTUV(1133) = JVS(4531)*UV(1133)+JVS(17974)*UV(3748)+JVS(41432)*UV(5250)+JVS(50676)*UV(5255) - JTUV(1134) = JVS(4535)*UV(1134)+JVS(31101)*UV(5007)+JVS(31117)*UV(5008)+JVS(41433)*UV(5250) - JTUV(1135) = JVS(649)*UV(162)+JVS(4539)*UV(1135)+JVS(32388)*UV(5083)+JVS(41434)*UV(5250) - JTUV(1136) = JVS(4543)*UV(1136)+JVS(13249)*UV(3009)+JVS(16059)*UV(3504)+JVS(41435)*UV(5250) - JTUV(1137) = JVS(4547)*UV(1137)+JVS(13586)*UV(3073)+JVS(24443)*UV(4461)+JVS(41436)*UV(5250) - JTUV(1138) = JVS(4551)*UV(1138)+JVS(12328)*UV(2840)+JVS(32038)*UV(5060)+JVS(41437)*UV(5250) - JTUV(1139) = JVS(4555)*UV(1139)+JVS(6333)*UV(1579)+JVS(16428)*UV(3557)+JVS(41438)*UV(5250) - JTUV(1140) = JVS(4559)*UV(1140)+JVS(30518)*UV(4973)+JVS(41439)*UV(5250)+JVS(50677)*UV(5255) - JTUV(1141) = JVS(4563)*UV(1141)+JVS(14911)*UV(3328)+JVS(18141)*UV(3767)+JVS(41440)*UV(5250) - JTUV(1142) = JVS(4567)*UV(1142)+JVS(11840)*UV(2745)+JVS(16783)*UV(3602)+JVS(41441)*UV(5250) - JTUV(1143) = JVS(4571)*UV(1143)+JVS(8698)*UV(2076)+JVS(14040)*UV(3156)+JVS(41442)*UV(5250) - JTUV(1144) = JVS(4575)*UV(1144)+JVS(11507)*UV(2682)+JVS(22714)*UV(4292)+JVS(41443)*UV(5250) - JTUV(1145) = JVS(4579)*UV(1145)+JVS(11577)*UV(2697)+JVS(13889)*UV(3126)+JVS(41444)*UV(5250) - JTUV(1146) = JVS(4583)*UV(1146)+JVS(23891)*UV(4409)+JVS(24298)*UV(4447)+JVS(41445)*UV(5250) - JTUV(1147) = JVS(4587)*UV(1147)+JVS(6303)*UV(1572)+JVS(20839)*UV(4092)+JVS(41446)*UV(5250) - JTUV(1148) = JVS(4591)*UV(1148)+JVS(10960)*UV(2575)+JVS(22665)*UV(4287)+JVS(41447)*UV(5250) - JTUV(1149) = JVS(817)*UV(190)+JVS(4595)*UV(1149)+JVS(6378)*UV(1590)+JVS(41448)*UV(5250) - JTUV(1150) = JVS(4599)*UV(1150)+JVS(8751)*UV(2088)+JVS(14933)*UV(3331)+JVS(41449)*UV(5250) - JTUV(1151) = JVS(4603)*UV(1151)+JVS(34859)*UV(5176)+JVS(41450)*UV(5250)+JVS(48011)*UV(5253) - JTUV(1152) = JVS(4607)*UV(1152)+JVS(20683)*UV(4073)+JVS(24709)*UV(4487)+JVS(41451)*UV(5250) - JTUV(1153) = JVS(4611)*UV(1153)+JVS(13560)*UV(3069)+JVS(31513)*UV(5032)+JVS(41452)*UV(5250) - JTUV(1154) = JVS(4615)*UV(1154)+JVS(24585)*UV(4477)+JVS(25183)*UV(4525)+JVS(41453)*UV(5250) - JTUV(1155) = JVS(1233)*UV(297)+JVS(4619)*UV(1155)+JVS(23005)*UV(4319)+JVS(41454)*UV(5250) - JTUV(1156) = JVS(4623)*UV(1156)+JVS(20755)*UV(4082)+JVS(24202)*UV(4438)+JVS(41455)*UV(5250) - JTUV(1157) = JVS(4627)*UV(1157)+JVS(15974)*UV(3491)+JVS(23078)*UV(4326)+JVS(41456)*UV(5250) - JTUV(1158) = JVS(4631)*UV(1158)+JVS(30186)*UV(4949)+JVS(33134)*UV(5121)+JVS(41457)*UV(5250) - JTUV(1159) = JVS(4635)*UV(1159)+JVS(15458)*UV(3403)+JVS(21465)*UV(4167)+JVS(41458)*UV(5250) - JTUV(1160) = JVS(4639)*UV(1160)+JVS(11675)*UV(2716)+JVS(15473)*UV(3405)+JVS(41459)*UV(5250) - JTUV(1161) = JVS(4643)*UV(1161)+JVS(15036)*UV(3345)+JVS(16526)*UV(3570)+JVS(41460)*UV(5250) - JTUV(1162) = JVS(4647)*UV(1162)+JVS(17870)*UV(3736)+JVS(17878)*UV(3737)+JVS(41461)*UV(5250) - JTUV(1163) = JVS(4651)*UV(1163)+JVS(17693)*UV(3715)+JVS(41462)*UV(5250)+JVS(50678)*UV(5255) - JTUV(1164) = JVS(4655)*UV(1164)+JVS(18084)*UV(3760)+JVS(21693)*UV(4190)+JVS(41463)*UV(5250) - JTUV(1165) = JVS(4659)*UV(1165)+JVS(7158)*UV(1755)+JVS(33717)*UV(5140)+JVS(41464)*UV(5250) - JTUV(1166) = JVS(4663)*UV(1166)+JVS(11792)*UV(2736)+JVS(22648)*UV(4285)+JVS(41465)*UV(5250) - JTUV(1167) = JVS(4667)*UV(1167)+JVS(14993)*UV(3339)+JVS(16809)*UV(3605)+JVS(41466)*UV(5250) - JTUV(1168) = JVS(4671)*UV(1168)+JVS(9610)*UV(2284)+JVS(19349)*UV(3917)+JVS(41467)*UV(5250) - JTUV(1169) = JVS(4675)*UV(1169)+JVS(14917)*UV(3329)+JVS(24472)*UV(4464)+JVS(41468)*UV(5250) - JTUV(1170) = JVS(4679)*UV(1170)+JVS(10993)*UV(2581)+JVS(19813)*UV(3973)+JVS(41469)*UV(5250) - JTUV(1171) = JVS(4683)*UV(1171)+JVS(7150)*UV(1754)+JVS(17745)*UV(3721)+JVS(41470)*UV(5250) - JTUV(1172) = JVS(4687)*UV(1172)+JVS(32583)*UV(5093)+JVS(41471)*UV(5250)+JVS(48012)*UV(5253) - JTUV(1173) = JVS(4691)*UV(1173)+JVS(25456)*UV(4549)+JVS(30703)*UV(4984)+JVS(41472)*UV(5250) - JTUV(1174) = JVS(4695)*UV(1174)+JVS(26726)*UV(4675)+JVS(41473)*UV(5250)+JVS(50679)*UV(5255) - JTUV(1175) = JVS(4699)*UV(1175)+JVS(30145)*UV(4947)+JVS(41474)*UV(5250)+JVS(50680)*UV(5255) - JTUV(1176) = JVS(4703)*UV(1176)+JVS(26230)*UV(4628)+JVS(27974)*UV(4787)+JVS(41475)*UV(5250) - JTUV(1177) = JVS(4707)*UV(1177)+JVS(11257)*UV(2634)+JVS(19029)*UV(3879)+JVS(41476)*UV(5250) - JTUV(1178) = JVS(613)*UV(156)+JVS(4711)*UV(1178)+JVS(36893)*UV(5207)+JVS(41477)*UV(5250) - JTUV(1179) = JVS(4715)*UV(1179)+JVS(22284)*UV(4248)+JVS(41478)*UV(5250)+JVS(50681)*UV(5255) - JTUV(1180) = JVS(4719)*UV(1180)+JVS(25074)*UV(4515)+JVS(33967)*UV(5147)+JVS(41479)*UV(5250) - JTUV(1181) = JVS(4723)*UV(1181)+JVS(7167)*UV(1756)+JVS(12575)*UV(2890)+JVS(41480)*UV(5250) - JTUV(1182) = JVS(4727)*UV(1182)+JVS(29702)*UV(4921)+JVS(30037)*UV(4940)+JVS(41481)*UV(5250) - JTUV(1183) = JVS(4731)*UV(1183)+JVS(11849)*UV(2746)+JVS(19090)*UV(3886)+JVS(41482)*UV(5250) - JTUV(1184) = JVS(4735)*UV(1184)+JVS(21867)*UV(4208)+JVS(41483)*UV(5250)+JVS(48013)*UV(5253) - JTUV(1185) = JVS(4739)*UV(1185)+JVS(12103)*UV(2795)+JVS(36963)*UV(5210)+JVS(41484)*UV(5250) - JTUV(1186) = JVS(4743)*UV(1186)+JVS(12636)*UV(2902)+JVS(21645)*UV(4185)+JVS(41485)*UV(5250) - JTUV(1187) = JVS(4747)*UV(1187)+JVS(10838)*UV(2551)+JVS(22985)*UV(4317)+JVS(41486)*UV(5250) - JTUV(1188) = JVS(4751)*UV(1188)+JVS(20189)*UV(4016)+JVS(24609)*UV(4479)+JVS(41487)*UV(5250) - JTUV(1189) = JVS(4755)*UV(1189)+JVS(21177)*UV(4131)+JVS(41488)*UV(5250)+JVS(50682)*UV(5255) - JTUV(1190) = JVS(4759)*UV(1190)+JVS(11818)*UV(2741)+JVS(22050)*UV(4225)+JVS(41489)*UV(5250) - JTUV(1191) = JVS(4763)*UV(1191)+JVS(6462)*UV(1607)+JVS(9231)*UV(2197)+JVS(41490)*UV(5250) - JTUV(1192) = JVS(540)*UV(141)+JVS(4767)*UV(1192)+JVS(5936)*UV(1483)+JVS(41491)*UV(5250) - JTUV(1193) = JVS(4771)*UV(1193)+JVS(28583)*UV(4836)+JVS(28635)*UV(4841)+JVS(41492)*UV(5250) - JTUV(1194) = JVS(4775)*UV(1194)+JVS(17701)*UV(3716)+JVS(41493)*UV(5250)+JVS(50683)*UV(5255) - JTUV(1195) = JVS(775)*UV(183)+JVS(4779)*UV(1195)+JVS(39569)*UV(5240)+JVS(41494)*UV(5250) - JTUV(1196) = JVS(4783)*UV(1196)+JVS(22317)*UV(4251)+JVS(32520)*UV(5088)+JVS(41495)*UV(5250) - JTUV(1197) = JVS(1620)*UV(407)+JVS(4787)*UV(1197)+JVS(21517)*UV(4173)+JVS(41496)*UV(5250) - JTUV(1198) = JVS(4791)*UV(1198)+JVS(22183)*UV(4238)+JVS(23971)*UV(4417)+JVS(41497)*UV(5250) - JTUV(1199) = JVS(4795)*UV(1199)+JVS(18706)*UV(3841)+JVS(40452)*UV(5245)+JVS(41498)*UV(5250) - JTUV(1200) = JVS(4799)*UV(1200)+JVS(18534)*UV(3817)+JVS(18542)*UV(3818)+JVS(41499)*UV(5250) - JTUV(1201) = JVS(4803)*UV(1201)+JVS(34755)*UV(5171)+JVS(36127)*UV(5197)+JVS(41500)*UV(5250) - JTUV(1202) = JVS(195)*UV(45)+JVS(4807)*UV(1202)+JVS(18288)*UV(3784)+JVS(41501)*UV(5250) - JTUV(1203) = JVS(209)*UV(49)+JVS(4811)*UV(1203)+JVS(18093)*UV(3761)+JVS(41502)*UV(5250) - JTUV(1204) = JVS(4815)*UV(1204)+JVS(11035)*UV(2589)+JVS(18073)*UV(3759)+JVS(41503)*UV(5250) - JTUV(1205) = JVS(867)*UV(199)+JVS(4819)*UV(1205)+JVS(37083)*UV(5212)+JVS(41504)*UV(5250) - JTUV(1206) = JVS(4823)*UV(1206)+JVS(21768)*UV(4198)+JVS(27808)*UV(4769)+JVS(41505)*UV(5250) - JTUV(1207) = JVS(1756)*UV(445)+JVS(4827)*UV(1207)+JVS(20893)*UV(4099)+JVS(41506)*UV(5250) - JTUV(1208) = JVS(4831)*UV(1208)+JVS(20578)*UV(4060)+JVS(22017)*UV(4222)+JVS(41507)*UV(5250) - JTUV(1209) = JVS(4835)*UV(1209)+JVS(22756)*UV(4295)+JVS(24827)*UV(4496)+JVS(41508)*UV(5250) - JTUV(1210) = JVS(4839)*UV(1210)+JVS(25054)*UV(4513)+JVS(41509)*UV(5250)+JVS(50684)*UV(5255) - JTUV(1211) = JVS(4843)*UV(1211)+JVS(13675)*UV(3089)+JVS(18496)*UV(3812)+JVS(41510)*UV(5250) - JTUV(1212) = JVS(4847)*UV(1212)+JVS(9198)*UV(2190)+JVS(19433)*UV(3926)+JVS(41511)*UV(5250) - JTUV(1213) = JVS(4851)*UV(1213)+JVS(13270)*UV(3013)+JVS(22593)*UV(4279)+JVS(41512)*UV(5250) - JTUV(1214) = JVS(4855)*UV(1214)+JVS(7642)*UV(1852)+JVS(25742)*UV(4580)+JVS(41513)*UV(5250) - JTUV(1215) = JVS(4859)*UV(1215)+JVS(12225)*UV(2820)+JVS(27582)*UV(4750)+JVS(41514)*UV(5250) - JTUV(1216) = JVS(4863)*UV(1216)+JVS(18543)*UV(3818)+JVS(41515)*UV(5250)+JVS(48014)*UV(5253) - JTUV(1217) = JVS(4867)*UV(1217)+JVS(9077)*UV(2163)+JVS(22994)*UV(4318)+JVS(41516)*UV(5250) - JTUV(1218) = JVS(4871)*UV(1218)+JVS(14510)*UV(3246)+JVS(17176)*UV(3648)+JVS(41517)*UV(5250) - JTUV(1219) = JVS(4875)*UV(1219)+JVS(24482)*UV(4465)+JVS(25124)*UV(4520)+JVS(41518)*UV(5250) - JTUV(1220) = JVS(4879)*UV(1220)+JVS(11082)*UV(2596)+JVS(28793)*UV(4851)+JVS(41519)*UV(5250) - JTUV(1221) = JVS(4883)*UV(1221)+JVS(20340)*UV(4036)+JVS(28150)*UV(4797)+JVS(41520)*UV(5250) - JTUV(1222) = JVS(4887)*UV(1222)+JVS(37335)*UV(5221)+JVS(41521)*UV(5250)+JVS(48015)*UV(5253) - JTUV(1223) = JVS(4891)*UV(1223)+JVS(15560)*UV(3417)+JVS(24163)*UV(4434)+JVS(41522)*UV(5250) - JTUV(1224) = JVS(4895)*UV(1224)+JVS(10540)*UV(2492)+JVS(27875)*UV(4775)+JVS(41523)*UV(5250) - JTUV(1225) = JVS(4899)*UV(1225)+JVS(8506)*UV(2035)+JVS(24783)*UV(4493)+JVS(41524)*UV(5250) - JTUV(1226) = JVS(4903)*UV(1226)+JVS(22350)*UV(4254)+JVS(24335)*UV(4450)+JVS(41525)*UV(5250) - JTUV(1227) = JVS(4907)*UV(1227)+JVS(20348)*UV(4037)+JVS(24807)*UV(4494)+JVS(41526)*UV(5250) - JTUV(1228) = JVS(4911)*UV(1228)+JVS(20384)*UV(4041)+JVS(21595)*UV(4181)+JVS(41527)*UV(5250) - JTUV(1229) = JVS(4915)*UV(1229)+JVS(15887)*UV(3477)+JVS(41528)*UV(5250)+JVS(50685)*UV(5255) - JTUV(1230) = JVS(4919)*UV(1230)+JVS(20232)*UV(4022)+JVS(28161)*UV(4798)+JVS(41529)*UV(5250) - JTUV(1231) = JVS(4925)*UV(1231)+JVS(18206)*UV(3775)+JVS(41530)*UV(5250)+JVS(50686)*UV(5255) - JTUV(1232) = JVS(4929)*UV(1232)+JVS(16301)*UV(3539)+JVS(27492)*UV(4743)+JVS(41531)*UV(5250) - JTUV(1233) = JVS(4933)*UV(1233)+JVS(18118)*UV(3764)+JVS(24132)*UV(4431)+JVS(41532)*UV(5250) - JTUV(1234) = JVS(4937)*UV(1234)+JVS(29103)*UV(4874)+JVS(30335)*UV(4959)+JVS(41533)*UV(5250) - JTUV(1235) = JVS(4941)*UV(1235)+JVS(12754)*UV(2922)+JVS(17500)*UV(3689)+JVS(41534)*UV(5250) - JTUV(1236) = JVS(4945)*UV(1236)+JVS(24510)*UV(4468)+JVS(30802)*UV(4991)+JVS(41535)*UV(5250) - JTUV(1237) = JVS(761)*UV(180)+JVS(4949)*UV(1237)+JVS(32628)*UV(5095)+JVS(41536)*UV(5250) - JTUV(1238) = JVS(4953)*UV(1238)+JVS(31032)*UV(5004)+JVS(38141)*UV(5231)+JVS(41537)*UV(5250) - JTUV(1239) = JVS(4957)*UV(1239)+JVS(7966)*UV(1923)+JVS(10951)*UV(2574)+JVS(41538)*UV(5250) - JTUV(1240) = JVS(4961)*UV(1240)+JVS(30405)*UV(4964)+JVS(38142)*UV(5231)+JVS(48016)*UV(5253) - JTUV(1241) = JVS(4965)*UV(1241)+JVS(10193)*UV(2415)+JVS(20832)*UV(4091)+JVS(41539)*UV(5250) - JTUV(1242) = JVS(4969)*UV(1242)+JVS(39200)*UV(5234)+JVS(39850)*UV(5244)+JVS(41540)*UV(5250) - JTUV(1243) = JVS(4973)*UV(1243)+JVS(20316)*UV(4033)+JVS(24540)*UV(4471)+JVS(41541)*UV(5250) - JTUV(1244) = JVS(4977)*UV(1244)+JVS(24120)*UV(4430)+JVS(33481)*UV(5135)+JVS(41542)*UV(5250) - JTUV(1245) = JVS(1298)*UV(315)+JVS(4981)*UV(1245)+JVS(27744)*UV(4764)+JVS(41543)*UV(5250) - JTUV(1246) = JVS(4985)*UV(1246)+JVS(23584)*UV(4383)+JVS(38947)*UV(5233)+JVS(41544)*UV(5250) - JTUV(1247) = JVS(4989)*UV(1247)+JVS(17604)*UV(3703)+JVS(26329)*UV(4638)+JVS(41545)*UV(5250) - JTUV(1248) = JVS(4993)*UV(1248)+JVS(24550)*UV(4472)+JVS(29796)*UV(4929)+JVS(41546)*UV(5250) - JTUV(1249) = JVS(4997)*UV(1249)+JVS(25444)*UV(4548)+JVS(31243)*UV(5016)+JVS(41547)*UV(5250) - JTUV(1250) = JVS(5001)*UV(1250)+JVS(17929)*UV(3743)+JVS(26782)*UV(4681)+JVS(41548)*UV(5250) - JTUV(1251) = JVS(5005)*UV(1251)+JVS(32717)*UV(5099)+JVS(36879)*UV(5206)+JVS(41549)*UV(5250) - JTUV(1252) = JVS(5009)*UV(1252)+JVS(6801)*UV(1680)+JVS(17778)*UV(3725)+JVS(41550)*UV(5250) - JTUV(1253) = JVS(5013)*UV(1253)+JVS(11027)*UV(2588)+JVS(22265)*UV(4246)+JVS(41551)*UV(5250) - JTUV(1254) = JVS(5017)*UV(1254)+JVS(26283)*UV(4633)+JVS(29455)*UV(4905)+JVS(41552)*UV(5250) - JTUV(1255) = JVS(5021)*UV(1255)+JVS(11440)*UV(2668)+JVS(22838)*UV(4303)+JVS(41553)*UV(5250) - JTUV(1256) = JVS(5025)*UV(1256)+JVS(27975)*UV(4787)+JVS(41554)*UV(5250)+JVS(50687)*UV(5255) - JTUV(1257) = JVS(5030)*UV(1257)+JVS(27604)*UV(4752)+JVS(41555)*UV(5250)+JVS(50688)*UV(5255) - JTUV(1258) = JVS(5034)*UV(1258)+JVS(8535)*UV(2041)+JVS(32170)*UV(5069)+JVS(41556)*UV(5250) - JTUV(1259) = JVS(859)*UV(197)+JVS(5038)*UV(1259)+JVS(13830)*UV(3117)+JVS(41557)*UV(5250) - JTUV(1260) = JVS(769)*UV(182)+JVS(5042)*UV(1260)+JVS(10031)*UV(2377)+JVS(41558)*UV(5250) - JTUV(1261) = JVS(5046)*UV(1261)+JVS(36805)*UV(5203)+JVS(41559)*UV(5250)+JVS(48017)*UV(5253) - JTUV(1262) = JVS(847)*UV(195)+JVS(5050)*UV(1262)+JVS(18844)*UV(3857)+JVS(41560)*UV(5250) - JTUV(1263) = JVS(5054)*UV(1263)+JVS(8283)*UV(1989)+JVS(21384)*UV(4157)+JVS(41561)*UV(5250) - JTUV(1264) = JVS(5058)*UV(1264)+JVS(8493)*UV(2033)+JVS(32226)*UV(5072)+JVS(41562)*UV(5250) - JTUV(1265) = JVS(5062)*UV(1265)+JVS(10013)*UV(2374)+JVS(28688)*UV(4844)+JVS(41563)*UV(5250) - JTUV(1266) = JVS(5066)*UV(1266)+JVS(9276)*UV(2207)+JVS(19884)*UV(3981)+JVS(41564)*UV(5250) - JTUV(1267) = JVS(643)*UV(161)+JVS(5070)*UV(1267)+JVS(13838)*UV(3118)+JVS(41565)*UV(5250) - JTUV(1268) = JVS(5074)*UV(1268)+JVS(12965)*UV(2960)+JVS(24172)*UV(4435)+JVS(41566)*UV(5250) - JTUV(1269) = JVS(2677)*UV(680)+JVS(5078)*UV(1269)+JVS(39851)*UV(5244)+JVS(41567)*UV(5250) - JTUV(1270) = JVS(5082)*UV(1270)+JVS(9841)*UV(2334)+JVS(15523)*UV(3412)+JVS(41568)*UV(5250) - JTUV(1271) = JVS(5086)*UV(1271)+JVS(12393)*UV(2853)+JVS(25251)*UV(4532)+JVS(41569)*UV(5250) - JTUV(1272) = JVS(5090)*UV(1272)+JVS(10884)*UV(2561)+JVS(19627)*UV(3950)+JVS(41570)*UV(5250) - JTUV(1273) = JVS(5094)*UV(1273)+JVS(12918)*UV(2952)+JVS(22557)*UV(4276)+JVS(41571)*UV(5250) - JTUV(1274) = JVS(5098)*UV(1274)+JVS(26513)*UV(4656)+JVS(28336)*UV(4813)+JVS(41572)*UV(5250) - JTUV(1275) = JVS(5102)*UV(1275)+JVS(19836)*UV(3976)+JVS(28259)*UV(4806)+JVS(41573)*UV(5250) - JTUV(1276) = JVS(5106)*UV(1276)+JVS(16755)*UV(3599)+JVS(20074)*UV(4004)+JVS(41574)*UV(5250) - JTUV(1277) = JVS(5110)*UV(1277)+JVS(18854)*UV(3858)+JVS(31315)*UV(5021)+JVS(41575)*UV(5250) - JTUV(1278) = JVS(5114)*UV(1278)+JVS(11775)*UV(2733)+JVS(21830)*UV(4204)+JVS(41576)*UV(5250) - JTUV(1279) = JVS(190)*UV(44)+JVS(5118)*UV(1279)+JVS(20180)*UV(4015)+JVS(41577)*UV(5250) - JTUV(1280) = JVS(5122)*UV(1280)+JVS(17850)*UV(3734)+JVS(41578)*UV(5250)+JVS(50690)*UV(5255) - JTUV(1281) = JVS(5126)*UV(1281)+JVS(12567)*UV(2889)+JVS(15315)*UV(3384)+JVS(41579)*UV(5250) - JTUV(1282) = JVS(359)*UV(91)+JVS(5130)*UV(1282)+JVS(17381)*UV(3674)+JVS(41580)*UV(5250) - JTUV(1283) = JVS(5134)*UV(1283)+JVS(20357)*UV(4038)+JVS(23197)*UV(4338)+JVS(41581)*UV(5250) - JTUV(1284) = JVS(880)*UV(201)+JVS(2181)*UV(561)+JVS(5138)*UV(1284)+JVS(41582)*UV(5250)+JVS(48018)*UV(5253) - JTUV(1285) = JVS(5142)*UV(1285)+JVS(20797)*UV(4087)+JVS(22359)*UV(4255)+JVS(41583)*UV(5250) - JTUV(1286) = JVS(799)*UV(187)+JVS(5146)*UV(1286)+JVS(6566)*UV(1628)+JVS(41584)*UV(5250) - JTUV(1287) = JVS(5150)*UV(1287)+JVS(8404)*UV(2015)+JVS(17132)*UV(3643)+JVS(41585)*UV(5250) - JTUV(1288) = JVS(5154)*UV(1288)+JVS(10590)*UV(2502)+JVS(21018)*UV(4112)+JVS(41586)*UV(5250) - JTUV(1289) = JVS(5158)*UV(1289)+JVS(14433)*UV(3234)+JVS(36964)*UV(5210)+JVS(41587)*UV(5250) - JTUV(1290) = JVS(5162)*UV(1290)+JVS(27693)*UV(4760)+JVS(34575)*UV(5163)+JVS(41588)*UV(5250) - JTUV(1291) = JVS(5166)*UV(1291)+JVS(26611)*UV(4665)+JVS(33061)*UV(5116)+JVS(41589)*UV(5250) - JTUV(1292) = JVS(5170)*UV(1292)+JVS(12532)*UV(2881)+JVS(21492)*UV(4170)+JVS(41590)*UV(5250) - JTUV(1293) = JVS(5174)*UV(1293)+JVS(11915)*UV(2758)+JVS(20303)*UV(4031)+JVS(41591)*UV(5250) - JTUV(1294) = JVS(5178)*UV(1294)+JVS(20550)*UV(4057)+JVS(24375)*UV(4454)+JVS(41592)*UV(5250) - JTUV(1295) = JVS(5182)*UV(1295)+JVS(8004)*UV(1931)+JVS(12999)*UV(2965)+JVS(41593)*UV(5250) - JTUV(1296) = JVS(5186)*UV(1296)+JVS(24661)*UV(4483)+JVS(29281)*UV(4892)+JVS(41594)*UV(5250) - JTUV(1297) = JVS(5190)*UV(1297)+JVS(21653)*UV(4186)+JVS(41595)*UV(5250)+JVS(50691)*UV(5255) - JTUV(1298) = JVS(5194)*UV(1298)+JVS(11643)*UV(2710)+JVS(18721)*UV(3843)+JVS(41596)*UV(5250) - JTUV(1299) = JVS(5198)*UV(1299)+JVS(26822)*UV(4685)+JVS(30827)*UV(4992)+JVS(41597)*UV(5250) - JTUV(1300) = JVS(5202)*UV(1300)+JVS(16747)*UV(3598)+JVS(28290)*UV(4809)+JVS(41598)*UV(5250) - JTUV(1301) = JVS(5206)*UV(1301)+JVS(12739)*UV(2919)+JVS(19523)*UV(3937)+JVS(41599)*UV(5250) - JTUV(1302) = JVS(5210)*UV(1302)+JVS(19563)*UV(3942)+JVS(25733)*UV(4579)+JVS(41600)*UV(5250) - JTUV(1303) = JVS(5214)*UV(1303)+JVS(20607)*UV(4063)+JVS(24404)*UV(4457)+JVS(41601)*UV(5250) - JTUV(1304) = JVS(5218)*UV(1304)+JVS(8900)*UV(2122)+JVS(21099)*UV(4122)+JVS(41602)*UV(5250) - JTUV(1305) = JVS(5222)*UV(1305)+JVS(7714)*UV(1867)+JVS(19201)*UV(3900)+JVS(41603)*UV(5250) - JTUV(1306) = JVS(5226)*UV(1306)+JVS(12232)*UV(2821)+JVS(18911)*UV(3865)+JVS(41604)*UV(5250) - JTUV(1307) = JVS(5230)*UV(1307)+JVS(15226)*UV(3372)+JVS(18592)*UV(3824)+JVS(41605)*UV(5250) - JTUV(1308) = JVS(5234)*UV(1308)+JVS(20224)*UV(4021)+JVS(28006)*UV(4790)+JVS(41606)*UV(5250) - JTUV(1309) = JVS(5238)*UV(1309)+JVS(16556)*UV(3574)+JVS(25041)*UV(4511)+JVS(41607)*UV(5250) - JTUV(1310) = JVS(5242)*UV(1310)+JVS(13636)*UV(3082)+JVS(14942)*UV(3332)+JVS(41608)*UV(5250) - JTUV(1311) = JVS(5246)*UV(1311)+JVS(34253)*UV(5159)+JVS(41609)*UV(5250)+JVS(48019)*UV(5253) - JTUV(1312) = JVS(5250)*UV(1312)+JVS(19309)*UV(3913)+JVS(22578)*UV(4278)+JVS(41610)*UV(5250) - JTUV(1313) = JVS(5254)*UV(1313)+JVS(13541)*UV(3066)+JVS(16824)*UV(3607)+JVS(41611)*UV(5250) - JTUV(1314) = JVS(5258)*UV(1314)+JVS(13401)*UV(3039)+JVS(19068)*UV(3883)+JVS(41612)*UV(5250) - JTUV(1315) = JVS(5262)*UV(1315)+JVS(9781)*UV(2322)+JVS(15192)*UV(3368)+JVS(41613)*UV(5250) - JTUV(1316) = JVS(5266)*UV(1316)+JVS(24144)*UV(4432)+JVS(41614)*UV(5250)+JVS(50692)*UV(5255) - JTUV(1317) = JVS(5270)*UV(1317)+JVS(20569)*UV(4059)+JVS(31075)*UV(5006)+JVS(41615)*UV(5250) - JTUV(1318) = JVS(5274)*UV(1318)+JVS(15361)*UV(3390)+JVS(17005)*UV(3629)+JVS(41616)*UV(5250) - JTUV(1319) = JVS(5278)*UV(1319)+JVS(37123)*UV(5214)+JVS(39345)*UV(5235)+JVS(41617)*UV(5250) - JTUV(1320) = JVS(5282)*UV(1320)+JVS(27786)*UV(4768)+JVS(31033)*UV(5004)+JVS(41618)*UV(5250) - JTUV(1321) = JVS(5286)*UV(1321)+JVS(18879)*UV(3861)+JVS(41619)*UV(5250)+JVS(48020)*UV(5253) - JTUV(1322) = JVS(5290)*UV(1322)+JVS(13210)*UV(3001)+JVS(21958)*UV(4217)+JVS(41620)*UV(5250) - JTUV(1323) = JVS(5294)*UV(1323)+JVS(13096)*UV(2982)+JVS(18254)*UV(3780)+JVS(41621)*UV(5250) - JTUV(1324) = JVS(1247)*UV(300)+JVS(5298)*UV(1324)+JVS(17910)*UV(3741)+JVS(41622)*UV(5250) - JTUV(1325) = JVS(5302)*UV(1325)+JVS(6446)*UV(1605)+JVS(30242)*UV(4953)+JVS(41623)*UV(5250) - JTUV(1326) = JVS(5306)*UV(1326)+JVS(9954)*UV(2361)+JVS(27263)*UV(4722)+JVS(41624)*UV(5250) - JTUV(1327) = JVS(5310)*UV(1327)+JVS(25093)*UV(4517)+JVS(28809)*UV(4852)+JVS(41625)*UV(5250) - JTUV(1328) = JVS(719)*UV(173)+JVS(5314)*UV(1328)+JVS(30590)*UV(4978)+JVS(41626)*UV(5250) - JTUV(1329) = JVS(5318)*UV(1329)+JVS(15588)*UV(3421)+JVS(22174)*UV(4237)+JVS(41627)*UV(5250) - JTUV(1330) = JVS(5322)*UV(1330)+JVS(30828)*UV(4992)+JVS(41628)*UV(5250)+JVS(50693)*UV(5255) - JTUV(1331) = JVS(932)*UV(211)+JVS(5326)*UV(1331)+JVS(27553)*UV(4748)+JVS(41629)*UV(5250) - JTUV(1332) = JVS(5330)*UV(1332)+JVS(30108)*UV(4944)+JVS(36912)*UV(5208)+JVS(41630)*UV(5250) - JTUV(1333) = JVS(435)*UV(113)+JVS(5334)*UV(1333)+JVS(13000)*UV(2965)+JVS(41631)*UV(5250) - JTUV(1334) = JVS(5338)*UV(1334)+JVS(40546)*UV(5248)+JVS(41632)*UV(5250)+JVS(48021)*UV(5253) - JTUV(1335) = JVS(898)*UV(204)+JVS(5342)*UV(1335)+JVS(17952)*UV(3746)+JVS(41633)*UV(5250) - JTUV(1336) = JVS(5346)*UV(1336)+JVS(17573)*UV(3698)+JVS(26475)*UV(4652)+JVS(41634)*UV(5250) - JTUV(1337) = JVS(5350)*UV(1337)+JVS(10718)*UV(2528)+JVS(16900)*UV(3616)+JVS(41635)*UV(5250) - JTUV(1338) = JVS(5354)*UV(1338)+JVS(13497)*UV(3058)+JVS(24108)*UV(4429)+JVS(41636)*UV(5250) - JTUV(1339) = JVS(619)*UV(157)+JVS(5358)*UV(1339)+JVS(13079)*UV(2979)+JVS(41637)*UV(5250) - JTUV(1340) = JVS(5362)*UV(1340)+JVS(7575)*UV(1838)+JVS(32100)*UV(5064)+JVS(41638)*UV(5250) - JTUV(1341) = JVS(5366)*UV(1341)+JVS(7334)*UV(1792)+JVS(30406)*UV(4964)+JVS(41639)*UV(5250) - JTUV(1342) = JVS(5370)*UV(1342)+JVS(15218)*UV(3371)+JVS(24850)*UV(4498)+JVS(41640)*UV(5250) - JTUV(1343) = JVS(5374)*UV(1343)+JVS(29229)*UV(4887)+JVS(41641)*UV(5250)+JVS(50694)*UV(5255) - JTUV(1344) = JVS(5378)*UV(1344)+JVS(23264)*UV(4346)+JVS(41642)*UV(5250)+JVS(50695)*UV(5255) - JTUV(1345) = JVS(5382)*UV(1345)+JVS(13014)*UV(2967)+JVS(19828)*UV(3975)+JVS(41643)*UV(5250) - JTUV(1346) = JVS(5386)*UV(1346)+JVS(24004)*UV(4420)+JVS(37379)*UV(5222)+JVS(41644)*UV(5250) - JTUV(1347) = JVS(5390)*UV(1347)+JVS(21047)*UV(4116)+JVS(31901)*UV(5054)+JVS(41645)*UV(5250) - JTUV(1348) = JVS(5394)*UV(1348)+JVS(23983)*UV(4418)+JVS(26545)*UV(4659)+JVS(41646)*UV(5250) - JTUV(1349) = JVS(5398)*UV(1349)+JVS(8624)*UV(2060)+JVS(21577)*UV(4179)+JVS(41647)*UV(5250) - JTUV(1350) = JVS(5402)*UV(1350)+JVS(23483)*UV(4371)+JVS(32240)*UV(5073)+JVS(41648)*UV(5250) - JTUV(1351) = JVS(5406)*UV(1351)+JVS(6836)*UV(1689)+JVS(30761)*UV(4987)+JVS(41649)*UV(5250) - JTUV(1352) = JVS(5410)*UV(1352)+JVS(8191)*UV(1971)+JVS(31836)*UV(5049)+JVS(41650)*UV(5250) - JTUV(1353) = JVS(5414)*UV(1353)+JVS(10351)*UV(2452)+JVS(19669)*UV(3955)+JVS(41651)*UV(5250) - JTUV(1354) = JVS(5418)*UV(1354)+JVS(24662)*UV(4483)+JVS(41652)*UV(5250)+JVS(50696)*UV(5255) - JTUV(1355) = JVS(5422)*UV(1355)+JVS(23515)*UV(4375)+JVS(23525)*UV(4376)+JVS(41653)*UV(5250) - JTUV(1356) = JVS(5426)*UV(1356)+JVS(28436)*UV(4823)+JVS(41654)*UV(5250)+JVS(50697)*UV(5255) - JTUV(1357) = JVS(663)*UV(164)+JVS(5430)*UV(1357)+JVS(24642)*UV(4482)+JVS(41655)*UV(5250) - JTUV(1358) = JVS(5434)*UV(1358)+JVS(13225)*UV(3004)+JVS(22953)*UV(4314)+JVS(41656)*UV(5250) - JTUV(1359) = JVS(364)*UV(92)+JVS(1987)*UV(510)+JVS(5438)*UV(1359)+JVS(41657)*UV(5250) - JTUV(1360) = JVS(5442)*UV(1360)+JVS(13134)*UV(2989)+JVS(21703)*UV(4191)+JVS(41658)*UV(5250) - JTUV(1361) = JVS(5446)*UV(1361)+JVS(20240)*UV(4023)+JVS(26339)*UV(4639)+JVS(41659)*UV(5250) - JTUV(1362) = JVS(5450)*UV(1362)+JVS(12958)*UV(2959)+JVS(21329)*UV(4151)+JVS(41660)*UV(5250) - JTUV(1363) = JVS(5454)*UV(1363)+JVS(38018)*UV(5230)+JVS(41661)*UV(5250)+JVS(48022)*UV(5253) - JTUV(1364) = JVS(5458)*UV(1364)+JVS(16649)*UV(3586)+JVS(23190)*UV(4337)+JVS(41662)*UV(5250) - JTUV(1365) = JVS(5462)*UV(1365)+JVS(8805)*UV(2100)+JVS(31848)*UV(5050)+JVS(41663)*UV(5250) - JTUV(1366) = JVS(5466)*UV(1366)+JVS(20367)*UV(4039)+JVS(26736)*UV(4676)+JVS(41664)*UV(5250) - JTUV(1367) = JVS(5470)*UV(1367)+JVS(10376)*UV(2457)+JVS(21072)*UV(4119)+JVS(41665)*UV(5250) - JTUV(1368) = JVS(5474)*UV(1368)+JVS(21769)*UV(4198)+JVS(41666)*UV(5250)+JVS(48023)*UV(5253) - JTUV(1369) = JVS(5478)*UV(1369)+JVS(30935)*UV(5000)+JVS(41667)*UV(5250)+JVS(50698)*UV(5255) - JTUV(1370) = JVS(5482)*UV(1370)+JVS(22918)*UV(4311)+JVS(26494)*UV(4654)+JVS(41668)*UV(5250) - JTUV(1371) = JVS(5486)*UV(1371)+JVS(13186)*UV(2997)+JVS(18787)*UV(3850)+JVS(41669)*UV(5250) - JTUV(1372) = JVS(5491)*UV(1372)+JVS(14521)*UV(3247)+JVS(33419)*UV(5131)+JVS(41670)*UV(5250) - JTUV(1373) = JVS(2871)*UV(726)+JVS(5492)*UV(1372)+JVS(5495)*UV(1373)+JVS(41671)*UV(5250) - JTUV(1374) = JVS(535)*UV(140)+JVS(5499)*UV(1374)+JVS(18148)*UV(3768)+JVS(41672)*UV(5250) - JTUV(1375) = JVS(5503)*UV(1375)+JVS(8068)*UV(1945)+JVS(15300)*UV(3382)+JVS(41673)*UV(5250) - JTUV(1376) = JVS(5507)*UV(1376)+JVS(15254)*UV(3375)+JVS(24414)*UV(4458)+JVS(41674)*UV(5250) - JTUV(1377) = JVS(5511)*UV(1377)+JVS(13579)*UV(3072)+JVS(19933)*UV(3987)+JVS(41675)*UV(5250) - JTUV(1378) = JVS(5515)*UV(1378)+JVS(26772)*UV(4680)+JVS(31165)*UV(5011)+JVS(41676)*UV(5250) - JTUV(1379) = JVS(5519)*UV(1379)+JVS(12986)*UV(2963)+JVS(21791)*UV(4200)+JVS(41677)*UV(5250) - JTUV(1380) = JVS(5523)*UV(1380)+JVS(32770)*UV(5101)+JVS(33357)*UV(5129)+JVS(41678)*UV(5250) - JTUV(1381) = JVS(5527)*UV(1381)+JVS(11047)*UV(2591)+JVS(19821)*UV(3974)+JVS(41679)*UV(5250) - JTUV(1382) = JVS(5531)*UV(1382)+JVS(17491)*UV(3688)+JVS(19593)*UV(3946)+JVS(41680)*UV(5250) - JTUV(1383) = JVS(559)*UV(146)+JVS(5535)*UV(1383)+JVS(29346)*UV(4898)+JVS(41681)*UV(5250) - JTUV(1384) = JVS(5539)*UV(1384)+JVS(6913)*UV(1706)+JVS(41682)*UV(5250)+JVS(50699)*UV(5255) - JTUV(1385) = JVS(5543)*UV(1385)+JVS(7872)*UV(1903)+JVS(17154)*UV(3645)+JVS(41683)*UV(5250) - JTUV(1386) = JVS(5547)*UV(1386)+JVS(16325)*UV(3542)+JVS(41684)*UV(5250)+JVS(50700)*UV(5255) - JTUV(1387) = JVS(5551)*UV(1387)+JVS(8480)*UV(2031)+JVS(21441)*UV(4164)+JVS(41685)*UV(5250) - JTUV(1388) = JVS(5555)*UV(1388)+JVS(15602)*UV(3423)+JVS(18179)*UV(3772)+JVS(41686)*UV(5250) - JTUV(1389) = JVS(5559)*UV(1389)+JVS(27809)*UV(4769)+JVS(41687)*UV(5250)+JVS(50701)*UV(5255) - JTUV(1390) = JVS(5563)*UV(1390)+JVS(7391)*UV(1803)+JVS(21457)*UV(4166)+JVS(41688)*UV(5250) - JTUV(1391) = JVS(5567)*UV(1391)+JVS(12382)*UV(2851)+JVS(21270)*UV(4143)+JVS(41689)*UV(5250) - JTUV(1392) = JVS(5571)*UV(1392)+JVS(13572)*UV(3071)+JVS(27592)*UV(4751)+JVS(41690)*UV(5250) - JTUV(1393) = JVS(5575)*UV(1393)+JVS(11968)*UV(2768)+JVS(21611)*UV(4182)+JVS(41691)*UV(5250) - JTUV(1394) = JVS(5579)*UV(1394)+JVS(32406)*UV(5084)+JVS(41692)*UV(5250)+JVS(50702)*UV(5255) - JTUV(1395) = JVS(5583)*UV(1395)+JVS(11621)*UV(2706)+JVS(23496)*UV(4373)+JVS(41693)*UV(5250) - JTUV(1396) = JVS(5587)*UV(1396)+JVS(14702)*UV(3283)+JVS(17193)*UV(3650)+JVS(41694)*UV(5250) - JTUV(1397) = JVS(378)*UV(96)+JVS(5591)*UV(1397)+JVS(20397)*UV(4042)+JVS(41695)*UV(5250) - JTUV(1398) = JVS(5595)*UV(1398)+JVS(11475)*UV(2676)+JVS(22184)*UV(4238)+JVS(41696)*UV(5250) - JTUV(1399) = JVS(5599)*UV(1399)+JVS(12211)*UV(2818)+JVS(22929)*UV(4312)+JVS(41697)*UV(5250) - JTUV(1400) = JVS(5603)*UV(1400)+JVS(17222)*UV(3653)+JVS(41698)*UV(5250)+JVS(48024)*UV(5253) - JTUV(1401) = JVS(5607)*UV(1401)+JVS(7276)*UV(1781)+JVS(20931)*UV(4103)+JVS(41699)*UV(5250) - JTUV(1402) = JVS(5611)*UV(1402)+JVS(17694)*UV(3715)+JVS(24685)*UV(4485)+JVS(41700)*UV(5250) - JTUV(1403) = JVS(5615)*UV(1403)+JVS(29292)*UV(4893)+JVS(41701)*UV(5250)+JVS(50703)*UV(5255) - JTUV(1404) = JVS(5619)*UV(1404)+JVS(28713)*UV(4846)+JVS(30146)*UV(4947)+JVS(41702)*UV(5250) - JTUV(1405) = JVS(5623)*UV(1405)+JVS(29333)*UV(4897)+JVS(41703)*UV(5250)+JVS(50704)*UV(5255) - JTUV(1406) = JVS(5627)*UV(1406)+JVS(15043)*UV(3346)+JVS(29056)*UV(4871)+JVS(41704)*UV(5250) - JTUV(1407) = JVS(5631)*UV(1407)+JVS(6546)*UV(1624)+JVS(30775)*UV(4989)+JVS(41705)*UV(5250) - JTUV(1408) = JVS(5635)*UV(1408)+JVS(24424)*UV(4459)+JVS(26485)*UV(4653)+JVS(41706)*UV(5250) - JTUV(1409) = JVS(5639)*UV(1409)+JVS(22919)*UV(4311)+JVS(41707)*UV(5250)+JVS(50705)*UV(5255) - JTUV(1410) = JVS(270)*UV(66)+JVS(5643)*UV(1410)+JVS(18133)*UV(3766)+JVS(41708)*UV(5250) - JTUV(1411) = JVS(5647)*UV(1411)+JVS(7469)*UV(1818)+JVS(33391)*UV(5130)+JVS(41709)*UV(5250) - JTUV(1412) = JVS(94)*UV(16)+JVS(5651)*UV(1412)+JVS(18018)*UV(3753)+JVS(41710)*UV(5250) - JTUV(1413) = JVS(823)*UV(191)+JVS(5655)*UV(1413)+JVS(6652)*UV(1648)+JVS(41711)*UV(5250) - JTUV(1414) = JVS(5659)*UV(1414)+JVS(12926)*UV(2953)+JVS(20943)*UV(4104)+JVS(41712)*UV(5250) - JTUV(1415) = JVS(5663)*UV(1415)+JVS(15131)*UV(3359)+JVS(16884)*UV(3614)+JVS(41713)*UV(5250) - JTUV(1416) = JVS(214)*UV(50)+JVS(5667)*UV(1416)+JVS(18262)*UV(3781)+JVS(41714)*UV(5250) - JTUV(1417) = JVS(5671)*UV(1417)+JVS(25055)*UV(4513)+JVS(26441)*UV(4649)+JVS(41715)*UV(5250) - JTUV(1418) = JVS(5675)*UV(1418)+JVS(22506)*UV(4270)+JVS(24258)*UV(4443)+JVS(41716)*UV(5250) - JTUV(1419) = JVS(5679)*UV(1419)+JVS(20698)*UV(4075)+JVS(23881)*UV(4408)+JVS(41717)*UV(5250) - JTUV(1420) = JVS(5683)*UV(1420)+JVS(12824)*UV(2935)+JVS(22786)*UV(4298)+JVS(41718)*UV(5250) - JTUV(1421) = JVS(5687)*UV(1421)+JVS(20060)*UV(4002)+JVS(25019)*UV(4509)+JVS(41719)*UV(5250) - JTUV(1422) = JVS(5691)*UV(1422)+JVS(13104)*UV(2983)+JVS(28593)*UV(4837)+JVS(41720)*UV(5250) - JTUV(1423) = JVS(5695)*UV(1423)+JVS(12836)*UV(2937)+JVS(22125)*UV(4232)+JVS(41721)*UV(5250) - JTUV(1424) = JVS(5699)*UV(1424)+JVS(28753)*UV(4849)+JVS(36111)*UV(5196)+JVS(41722)*UV(5250) - JTUV(1425) = JVS(5703)*UV(1425)+JVS(16035)*UV(3500)+JVS(41723)*UV(5250)+JVS(50706)*UV(5255) - JTUV(1426) = JVS(5707)*UV(1426)+JVS(15436)*UV(3400)+JVS(20910)*UV(4101)+JVS(41724)*UV(5250) - JTUV(1427) = JVS(5711)*UV(1427)+JVS(20636)*UV(4067)+JVS(28900)*UV(4859)+JVS(41725)*UV(5250) - JTUV(1428) = JVS(5715)*UV(1428)+JVS(16692)*UV(3591)+JVS(32454)*UV(5086)+JVS(41726)*UV(5250) - JTUV(1429) = JVS(5719)*UV(1429)+JVS(20476)*UV(4049)+JVS(25064)*UV(4514)+JVS(41727)*UV(5250) - JTUV(1430) = JVS(5723)*UV(1430)+JVS(13476)*UV(3054)+JVS(19867)*UV(3979)+JVS(41728)*UV(5250) - JTUV(1431) = JVS(5727)*UV(1431)+JVS(15712)*UV(3440)+JVS(20644)*UV(4068)+JVS(41729)*UV(5250) - JTUV(1432) = JVS(5731)*UV(1432)+JVS(31166)*UV(5011)+JVS(41730)*UV(5250)+JVS(50707)*UV(5255) - JTUV(1433) = JVS(5735)*UV(1433)+JVS(38143)*UV(5231)+JVS(38795)*UV(5232)+JVS(41731)*UV(5250) - JTUV(1434) = JVS(5739)*UV(1434)+JVS(13856)*UV(3121)+JVS(15009)*UV(3342)+JVS(41732)*UV(5250) - JTUV(1435) = JVS(312)*UV(78)+JVS(5743)*UV(1435)+JVS(18270)*UV(3782)+JVS(41733)*UV(5250) - JTUV(1436) = JVS(5747)*UV(1436)+JVS(22439)*UV(4263)+JVS(28934)*UV(4862)+JVS(41734)*UV(5250) - JTUV(1437) = JVS(5751)*UV(1437)+JVS(28512)*UV(4830)+JVS(29347)*UV(4898)+JVS(41735)*UV(5250) - JTUV(1438) = JVS(5755)*UV(1438)+JVS(10801)*UV(2545)+JVS(19539)*UV(3939)+JVS(41736)*UV(5250) - JTUV(1439) = JVS(5759)*UV(1439)+JVS(15651)*UV(3430)+JVS(17119)*UV(3642)+JVS(41737)*UV(5250) - JTUV(1440) = JVS(5763)*UV(1440)+JVS(34523)*UV(5161)+JVS(41738)*UV(5250)+JVS(50708)*UV(5255) - JTUV(1441) = JVS(5767)*UV(1441)+JVS(12256)*UV(2826)+JVS(16287)*UV(3537)+JVS(41739)*UV(5250) - JTUV(1442) = JVS(5771)*UV(1442)+JVS(29370)*UV(4900)+JVS(41740)*UV(5250)+JVS(50709)*UV(5255) - JTUV(1443) = JVS(5775)*UV(1443)+JVS(6454)*UV(1606)+JVS(17551)*UV(3695)+JVS(41741)*UV(5250) - JTUV(1444) = JVS(5779)*UV(1444)+JVS(15617)*UV(3425)+JVS(16010)*UV(3497)+JVS(41742)*UV(5250) - JTUV(1445) = JVS(5783)*UV(1445)+JVS(7616)*UV(1847)+JVS(37786)*UV(5226)+JVS(41743)*UV(5250) - JTUV(1446) = JVS(5787)*UV(1446)+JVS(11305)*UV(2642)+JVS(16183)*UV(3522)+JVS(41744)*UV(5250) - JTUV(1447) = JVS(5791)*UV(1447)+JVS(27930)*UV(4781)+JVS(29272)*UV(4891)+JVS(41745)*UV(5250) - JTUV(1448) = JVS(5795)*UV(1448)+JVS(26178)*UV(4623)+JVS(35420)*UV(5185)+JVS(41746)*UV(5250) - JTUV(1449) = JVS(5799)*UV(1449)+JVS(7701)*UV(1865)+JVS(16932)*UV(3619)+JVS(41747)*UV(5250) - JTUV(1450) = JVS(5803)*UV(1450)+JVS(20615)*UV(4064)+JVS(24859)*UV(4499)+JVS(41748)*UV(5250) - JTUV(1451) = JVS(5807)*UV(1451)+JVS(20280)*UV(4028)+JVS(30205)*UV(4950)+JVS(41749)*UV(5250) - JTUV(1452) = JVS(5811)*UV(1452)+JVS(20375)*UV(4040)+JVS(26792)*UV(4682)+JVS(41750)*UV(5250) - JTUV(1453) = JVS(5815)*UV(1453)+JVS(20675)*UV(4072)+JVS(26583)*UV(4663)+JVS(41751)*UV(5250) - JTUV(1454) = JVS(5819)*UV(1454)+JVS(20410)*UV(4043)+JVS(27429)*UV(4738)+JVS(41752)*UV(5250) - JTUV(1455) = JVS(5823)*UV(1455)+JVS(15481)*UV(3406)+JVS(27297)*UV(4726)+JVS(41753)*UV(5250) - JTUV(1456) = JVS(5827)*UV(1456)+JVS(25835)*UV(4591)+JVS(25852)*UV(4592)+JVS(41754)*UV(5250) - JTUV(1457) = JVS(5831)*UV(1457)+JVS(19455)*UV(3929)+JVS(41755)*UV(5250)+JVS(48025)*UV(5253) - JTUV(1458) = JVS(5835)*UV(1458)+JVS(7242)*UV(1773)+JVS(17235)*UV(3655)+JVS(41756)*UV(5250) - JTUV(1459) = JVS(5839)*UV(1459)+JVS(10865)*UV(2557)+JVS(21710)*UV(4192)+JVS(41757)*UV(5250) - JTUV(1460) = JVS(5843)*UV(1460)+JVS(27822)*UV(4770)+JVS(28878)*UV(4857)+JVS(41758)*UV(5250) - JTUV(1461) = JVS(5847)*UV(1461)+JVS(24394)*UV(4456)+JVS(24902)*UV(4503)+JVS(41759)*UV(5250) - JTUV(1462) = JVS(5851)*UV(1462)+JVS(31440)*UV(5029)+JVS(36186)*UV(5198)+JVS(41760)*UV(5250) - JTUV(1463) = JVS(891)*UV(203)+JVS(5855)*UV(1463)+JVS(28653)*UV(4842)+JVS(41761)*UV(5250) - JTUV(1464) = JVS(589)*UV(152)+JVS(5859)*UV(1464)+JVS(24071)*UV(4426)+JVS(41762)*UV(5250) - JTUV(1465) = JVS(5863)*UV(1465)+JVS(28270)*UV(4807)+JVS(29891)*UV(4935)+JVS(41763)*UV(5250) - JTUV(1466) = JVS(5867)*UV(1466)+JVS(32881)*UV(5106)+JVS(33908)*UV(5145)+JVS(41764)*UV(5250) - JTUV(1467) = JVS(5871)*UV(1467)+JVS(25334)*UV(4539)+JVS(29902)*UV(4936)+JVS(41765)*UV(5250) - JTUV(1468) = JVS(5875)*UV(1468)+JVS(10620)*UV(2508)+JVS(19991)*UV(3994)+JVS(41766)*UV(5250) - JTUV(1469) = JVS(5879)*UV(1469)+JVS(7316)*UV(1789)+JVS(19154)*UV(3894)+JVS(41767)*UV(5250) - JTUV(1470) = JVS(1076)*UV(254)+JVS(5883)*UV(1470)+JVS(19893)*UV(3982)+JVS(41768)*UV(5250) - JTUV(1471) = JVS(5887)*UV(1471)+JVS(34968)*UV(5179)+JVS(40475)*UV(5246)+JVS(41769)*UV(5250) - JTUV(1472) = JVS(5891)*UV(1472)+JVS(15050)*UV(3347)+JVS(24929)*UV(4506)+JVS(41770)*UV(5250) - JTUV(1473) = JVS(5895)*UV(1473)+JVS(21184)*UV(4132)+JVS(29334)*UV(4897)+JVS(41771)*UV(5250) - JTUV(1474) = JVS(5899)*UV(1474)+JVS(26832)*UV(4686)+JVS(26845)*UV(4687)+JVS(41772)*UV(5250) - JTUV(1475) = JVS(5903)*UV(1475)+JVS(30378)*UV(4962)+JVS(30859)*UV(4995)+JVS(41773)*UV(5250) - JTUV(1476) = JVS(5907)*UV(1476)+JVS(20216)*UV(4020)+JVS(24365)*UV(4453)+JVS(41774)*UV(5250) - JTUV(1477) = JVS(5911)*UV(1477)+JVS(22907)*UV(4310)+JVS(25156)*UV(4523)+JVS(41775)*UV(5250) - JTUV(1478) = JVS(5915)*UV(1478)+JVS(8323)*UV(1998)+JVS(16601)*UV(3580)+JVS(41776)*UV(5250) - JTUV(1479) = JVS(5919)*UV(1479)+JVS(17475)*UV(3686)+JVS(33421)*UV(5131)+JVS(41777)*UV(5250) - JTUV(1480) = JVS(5923)*UV(1480)+JVS(17754)*UV(3722)+JVS(28946)*UV(4863)+JVS(41778)*UV(5250) - JTUV(1481) = JVS(5927)*UV(1481)+JVS(29456)*UV(4905)+JVS(41779)*UV(5250)+JVS(50710)*UV(5255) - JTUV(1482) = JVS(5931)*UV(1482)+JVS(19531)*UV(3938)+JVS(41780)*UV(5250)+JVS(48026)*UV(5253) - JTUV(1483) = JVS(5937)*UV(1483)+JVS(41781)*UV(5250)+JVS(45085)*UV(5251)+JVS(50711)*UV(5255) - JTUV(1484) = JVS(5941)*UV(1484)+JVS(7481)*UV(1820)+JVS(17102)*UV(3640)+JVS(41782)*UV(5250) - JTUV(1485) = JVS(5945)*UV(1485)+JVS(11867)*UV(2749)+JVS(12170)*UV(2809)+JVS(41783)*UV(5250) - JTUV(1486) = JVS(5949)*UV(1486)+JVS(21193)*UV(4133)+JVS(31461)*UV(5030)+JVS(41784)*UV(5250) - JTUV(1487) = JVS(5953)*UV(1487)+JVS(14963)*UV(3335)+JVS(19259)*UV(3907)+JVS(41785)*UV(5250) - JTUV(1488) = JVS(5957)*UV(1488)+JVS(12812)*UV(2933)+JVS(31943)*UV(5056)+JVS(41786)*UV(5250) - JTUV(1489) = JVS(5961)*UV(1489)+JVS(6470)*UV(1608)+JVS(41787)*UV(5250)+JVS(50712)*UV(5255) - JTUV(1490) = JVS(5965)*UV(1490)+JVS(11332)*UV(2646)+JVS(23667)*UV(4391)+JVS(41788)*UV(5250) - JTUV(1491) = JVS(743)*UV(177)+JVS(5969)*UV(1491)+JVS(14000)*UV(3148)+JVS(41789)*UV(5250) - JTUV(1492) = JVS(5973)*UV(1492)+JVS(11715)*UV(2722)+JVS(19603)*UV(3947)+JVS(41790)*UV(5250) - JTUV(1493) = JVS(5978)*UV(1493)+JVS(31076)*UV(5006)+JVS(41791)*UV(5250)+JVS(50713)*UV(5255) - JTUV(1494) = JVS(5982)*UV(1494)+JVS(37749)*UV(5225)+JVS(41792)*UV(5250)+JVS(48027)*UV(5253) - JTUV(1495) = JVS(5986)*UV(1495)+JVS(11550)*UV(2692)+JVS(21061)*UV(4118)+JVS(41793)*UV(5250) - JTUV(1496) = JVS(5990)*UV(1496)+JVS(8255)*UV(1984)+JVS(21684)*UV(4189)+JVS(41794)*UV(5250) - JTUV(1497) = JVS(265)*UV(65)+JVS(5994)*UV(1497)+JVS(18156)*UV(3769)+JVS(41795)*UV(5250) - JTUV(1498) = JVS(5998)*UV(1498)+JVS(22995)*UV(4318)+JVS(26221)*UV(4627)+JVS(41796)*UV(5250) - JTUV(1499) = JVS(6002)*UV(1499)+JVS(11318)*UV(2644)+JVS(23354)*UV(4357)+JVS(41797)*UV(5250) - JTUV(1500) = JVS(6006)*UV(1500)+JVS(33229)*UV(5125)+JVS(37978)*UV(5229)+JVS(41798)*UV(5250) - JTUV(1501) = JVS(675)*UV(166)+JVS(6010)*UV(1501)+JVS(13785)*UV(3109)+JVS(41799)*UV(5250) - JTUV(1502) = JVS(6014)*UV(1502)+JVS(12290)*UV(2832)+JVS(19448)*UV(3928)+JVS(41800)*UV(5250) - JTUV(1503) = JVS(6018)*UV(1503)+JVS(16102)*UV(3511)+JVS(28175)*UV(4799)+JVS(41801)*UV(5250) - JTUV(1504) = JVS(6022)*UV(1504)+JVS(15141)*UV(3361)+JVS(21839)*UV(4205)+JVS(41802)*UV(5250) - JTUV(1505) = JVS(6026)*UV(1505)+JVS(9360)*UV(2226)+JVS(12411)*UV(2856)+JVS(41803)*UV(5250) - JTUV(1506) = JVS(6030)*UV(1506)+JVS(7370)*UV(1799)+JVS(31150)*UV(5010)+JVS(41804)*UV(5250) - JTUV(1507) = JVS(6034)*UV(1507)+JVS(22146)*UV(4234)+JVS(28613)*UV(4839)+JVS(41805)*UV(5250) - JTUV(1508) = JVS(6038)*UV(1508)+JVS(10971)*UV(2577)+JVS(22515)*UV(4271)+JVS(41806)*UV(5250) - JTUV(1509) = JVS(6042)*UV(1509)+JVS(7078)*UV(1739)+JVS(31865)*UV(5052)+JVS(41807)*UV(5250) - JTUV(1510) = JVS(6046)*UV(1510)+JVS(15115)*UV(3356)+JVS(16664)*UV(3588)+JVS(41808)*UV(5250) - JTUV(1511) = JVS(6050)*UV(1511)+JVS(6510)*UV(1617)+JVS(31698)*UV(5044)+JVS(41809)*UV(5250) - JTUV(1512) = JVS(6054)*UV(1512)+JVS(11123)*UV(2604)+JVS(22847)*UV(4304)+JVS(41810)*UV(5250) - JTUV(1513) = JVS(6058)*UV(1513)+JVS(29892)*UV(4935)+JVS(41811)*UV(5250)+JVS(50714)*UV(5255) - JTUV(1514) = JVS(6062)*UV(1514)+JVS(6953)*UV(1714)+JVS(19113)*UV(3889)+JVS(41812)*UV(5250) - JTUV(1515) = JVS(6066)*UV(1515)+JVS(12424)*UV(2858)+JVS(19742)*UV(3964)+JVS(41813)*UV(5250) - JTUV(1516) = JVS(6070)*UV(1516)+JVS(26293)*UV(4634)+JVS(32066)*UV(5062)+JVS(41814)*UV(5250) - JTUV(1517) = JVS(6074)*UV(1517)+JVS(12979)*UV(2962)+JVS(19004)*UV(3876)+JVS(41815)*UV(5250) - JTUV(1518) = JVS(6078)*UV(1518)+JVS(26532)*UV(4658)+JVS(30305)*UV(4958)+JVS(41816)*UV(5250) - JTUV(1519) = JVS(6082)*UV(1519)+JVS(12844)*UV(2938)+JVS(15609)*UV(3424)+JVS(41817)*UV(5250) - JTUV(1520) = JVS(6086)*UV(1520)+JVS(6343)*UV(1581)+JVS(41818)*UV(5250)+JVS(50715)*UV(5255) - JTUV(1521) = JVS(6090)*UV(1521)+JVS(33718)*UV(5140)+JVS(41819)*UV(5250)+JVS(50716)*UV(5255) - JTUV(1522) = JVS(6094)*UV(1522)+JVS(11433)*UV(2667)+JVS(15106)*UV(3355)+JVS(41820)*UV(5250) - JTUV(1523) = JVS(811)*UV(189)+JVS(6098)*UV(1523)+JVS(14475)*UV(3242)+JVS(41821)*UV(5250) - JTUV(1524) = JVS(6102)*UV(1524)+JVS(11100)*UV(2599)+JVS(22327)*UV(4252)+JVS(41822)*UV(5250) - JTUV(1525) = JVS(6106)*UV(1525)+JVS(16212)*UV(3527)+JVS(18426)*UV(3802)+JVS(41823)*UV(5250) - JTUV(1526) = JVS(6110)*UV(1526)+JVS(11278)*UV(2638)+JVS(15988)*UV(3493)+JVS(41824)*UV(5250) - JTUV(1527) = JVS(6114)*UV(1527)+JVS(10978)*UV(2578)+JVS(21054)*UV(4117)+JVS(41825)*UV(5250) - JTUV(1528) = JVS(6118)*UV(1528)+JVS(7435)*UV(1812)+JVS(32455)*UV(5086)+JVS(41826)*UV(5250) - JTUV(1529) = JVS(6122)*UV(1529)+JVS(28794)*UV(4851)+JVS(41827)*UV(5250)+JVS(48028)*UV(5253) - JTUV(1530) = JVS(6126)*UV(1530)+JVS(7107)*UV(1745)+JVS(18320)*UV(3788)+JVS(41828)*UV(5250) - JTUV(1531) = JVS(6130)*UV(1531)+JVS(19509)*UV(3935)+JVS(41829)*UV(5250)+JVS(48029)*UV(5253) - JTUV(1532) = JVS(6134)*UV(1532)+JVS(11016)*UV(2586)+JVS(21719)*UV(4193)+JVS(41830)*UV(5250) - JTUV(1533) = JVS(6138)*UV(1533)+JVS(18027)*UV(3754)+JVS(25223)*UV(4529)+JVS(41831)*UV(5250) - JTUV(1534) = JVS(185)*UV(43)+JVS(6142)*UV(1534)+JVS(17611)*UV(3704)+JVS(41832)*UV(5250) - JTUV(1535) = JVS(6146)*UV(1535)+JVS(20691)*UV(4074)+JVS(21557)*UV(4177)+JVS(41833)*UV(5250) - JTUV(1536) = JVS(805)*UV(188)+JVS(6150)*UV(1536)+JVS(29179)*UV(4882)+JVS(41834)*UV(5250) - JTUV(1537) = JVS(6154)*UV(1537)+JVS(20041)*UV(4000)+JVS(21241)*UV(4139)+JVS(41835)*UV(5250) - JTUV(1538) = JVS(6158)*UV(1538)+JVS(13413)*UV(3041)+JVS(17090)*UV(3639)+JVS(41836)*UV(5250) - JTUV(1539) = JVS(6162)*UV(1539)+JVS(20623)*UV(4065)+JVS(24491)*UV(4466)+JVS(41837)*UV(5250) - JTUV(1540) = JVS(6166)*UV(1540)+JVS(20715)*UV(4077)+JVS(24672)*UV(4484)+JVS(41838)*UV(5250) - JTUV(1541) = JVS(6170)*UV(1541)+JVS(29008)*UV(4867)+JVS(31303)*UV(5020)+JVS(41839)*UV(5250) - JTUV(1542) = JVS(6174)*UV(1542)+JVS(7677)*UV(1860)+JVS(17283)*UV(3661)+JVS(41840)*UV(5250) - JTUV(1543) = JVS(6178)*UV(1543)+JVS(10892)*UV(2562)+JVS(16372)*UV(3548)+JVS(41841)*UV(5250) - JTUV(1544) = JVS(6182)*UV(1544)+JVS(15507)*UV(3410)+JVS(18986)*UV(3874)+JVS(41842)*UV(5250) - JTUV(1545) = JVS(6186)*UV(1545)+JVS(33496)*UV(5136)+JVS(34004)*UV(5149)+JVS(41843)*UV(5250) - JTUV(1546) = JVS(6190)*UV(1546)+JVS(6712)*UV(1660)+JVS(16875)*UV(3613)+JVS(41844)*UV(5250) - JTUV(1547) = JVS(6194)*UV(1547)+JVS(28689)*UV(4844)+JVS(32548)*UV(5090)+JVS(41845)*UV(5250) - JTUV(1548) = JVS(6198)*UV(1548)+JVS(13876)*UV(3124)+JVS(33837)*UV(5143)+JVS(39852)*UV(5244)+JVS(41846)*UV(5250)& - &+JVS(50717)*UV(5255) - JTUV(1549) = JVS(6201)*UV(1549)+JVS(12153)*UV(2806)+JVS(23079)*UV(4326)+JVS(41847)*UV(5250)+JVS(48030)*UV(5253)& - &+JVS(50718)*UV(5255) - JTUV(1550) = JVS(6206)*UV(1550)+JVS(24246)*UV(4442)+JVS(41848)*UV(5250) - JTUV(1551) = JVS(726)*UV(174)+JVS(6207)*UV(1550)+JVS(6212)*UV(1551)+JVS(41849)*UV(5250)+JVS(48031)*UV(5253) - JTUV(1552) = JVS(6216)*UV(1552)+JVS(24879)*UV(4501)+JVS(50719)*UV(5255) - JTUV(1553) = JVS(6222)*UV(1553)+JVS(35735)*UV(5193)+JVS(37841)*UV(5228) - JTUV(1554) = JVS(6228)*UV(1554)+JVS(10900)*UV(2563)+JVS(25264)*UV(4533)+JVS(41850)*UV(5250)+JVS(48032)*UV(5253)& - &+JVS(50720)*UV(5255) - JTUV(1555) = JVS(6231)*UV(1555)+JVS(12075)*UV(2789)+JVS(28176)*UV(4799)+JVS(41851)*UV(5250)+JVS(48033)*UV(5253)& - &+JVS(50721)*UV(5255) - JTUV(1556) = JVS(6235)*UV(1556)+JVS(32311)*UV(5079)+JVS(38144)*UV(5231) - JTUV(1557) = JVS(6241)*UV(1557)+JVS(7518)*UV(1826)+JVS(31952)*UV(5057)+JVS(39853)*UV(5244)+JVS(41852)*UV(5250)& - &+JVS(50722)*UV(5255) - JTUV(1558) = JVS(6244)*UV(1558)+JVS(36965)*UV(5210)+JVS(38948)*UV(5233)+JVS(39854)*UV(5244)+JVS(41853)*UV(5250)& - &+JVS(50723)*UV(5255) - JTUV(1559) = JVS(6247)*UV(1559)+JVS(19923)*UV(3986)+JVS(50724)*UV(5255) - JTUV(1560) = JVS(6253)*UV(1560)+JVS(6617)*UV(1640)+JVS(33302)*UV(5126)+JVS(39855)*UV(5244)+JVS(41854)*UV(5250)& - &+JVS(50725)*UV(5255) - JTUV(1561) = JVS(6256)*UV(1561)+JVS(6847)*UV(1691)+JVS(33012)*UV(5113)+JVS(39856)*UV(5244)+JVS(41855)*UV(5250)& - &+JVS(50726)*UV(5255) - JTUV(1562) = JVS(6259)*UV(1562)+JVS(8335)*UV(2000)+JVS(10474)*UV(2478)+JVS(41856)*UV(5250)+JVS(48034)*UV(5253)& - &+JVS(50727)*UV(5255) - JTUV(1563) = JVS(6262)*UV(1563)+JVS(33719)*UV(5140)+JVS(50728)*UV(5255) - JTUV(1564) = JVS(6268)*UV(1564)+JVS(31151)*UV(5010)+JVS(50729)*UV(5255) - JTUV(1565) = JVS(6275)*UV(1565)+JVS(31441)*UV(5029)+JVS(41857)*UV(5250) - JTUV(1566) = JVS(6281)*UV(1566)+JVS(32951)*UV(5110)+JVS(39688)*UV(5242)+JVS(39857)*UV(5244)+JVS(41858)*UV(5250)& - &+JVS(50730)*UV(5255) - JTUV(1567) = JVS(6284)*UV(1567)+JVS(17321)*UV(3666)+JVS(21339)*UV(4152)+JVS(41859)*UV(5250)+JVS(48035)*UV(5253)& - &+JVS(50731)*UV(5255) - JTUV(1568) = JVS(6287)*UV(1568)+JVS(32198)*UV(5071)+JVS(50732)*UV(5255) - JTUV(1569) = JVS(6293)*UV(1569)+JVS(17068)*UV(3638)+JVS(25373)*UV(4542)+JVS(30038)*UV(4940)+JVS(41860)*UV(5250)& - &+JVS(50733)*UV(5255) - JTUV(1570) = JVS(6296)*UV(1570)+JVS(17141)*UV(3644)+JVS(27107)*UV(4708)+JVS(41861)*UV(5250)+JVS(45086)*UV(5251)& - &+JVS(50734)*UV(5255) - JTUV(1571) = JVS(6299)*UV(1571)+JVS(13657)*UV(3086)+JVS(33838)*UV(5143)+JVS(35153)*UV(5183)+JVS(41862)*UV(5250)& - &+JVS(50735)*UV(5255) - JTUV(1572) = JVS(6304)*UV(1572)+JVS(34254)*UV(5159)+JVS(50736)*UV(5255) - JTUV(1573) = JVS(6311)*UV(1573)+JVS(23562)*UV(4380)+JVS(36297)*UV(5201)+JVS(39541)*UV(5239)+JVS(41863)*UV(5250)& - &+JVS(53218)*UV(5256) - JTUV(1574) = JVS(6314)*UV(1574)+JVS(35154)*UV(5183)+JVS(38145)*UV(5231) - JTUV(1575) = JVS(6320)*UV(1575)+JVS(26533)*UV(4658)+JVS(30306)*UV(4958)+JVS(41864)*UV(5250)+JVS(45087)*UV(5251)& - &+JVS(50737)*UV(5255) - JTUV(1576) = JVS(6323)*UV(1576)+JVS(14269)*UV(3200)+JVS(33739)*UV(5141)+JVS(35155)*UV(5183)+JVS(41865)*UV(5250)& - &+JVS(50738)*UV(5255) - JTUV(1577) = JVS(6326)*UV(1577)+JVS(18931)*UV(3868)+JVS(26420)*UV(4647)+JVS(33062)*UV(5116)+JVS(41866)*UV(5250)& - &+JVS(50739)*UV(5255) - JTUV(1578) = JVS(6329)*UV(1578)+JVS(16585)*UV(3578)+JVS(19359)*UV(3918)+JVS(39858)*UV(5244)+JVS(41867)*UV(5250)& - &+JVS(50740)*UV(5255) - JTUV(1579) = JVS(6334)*UV(1579)+JVS(38949)*UV(5233)+JVS(39427)*UV(5237) - JTUV(1580) = JVS(6340)*UV(1580)+JVS(26019)*UV(4609)+JVS(26083)*UV(4616)+JVS(36298)*UV(5201)+JVS(41868)*UV(5250)& - &+JVS(53219)*UV(5256) - JTUV(1581) = JVS(6344)*UV(1581)+JVS(28726)*UV(4847)+JVS(41869)*UV(5250) - JTUV(1582) = JVS(6350)*UV(1582)+JVS(19137)*UV(3892)+JVS(33358)*UV(5129)+JVS(38796)*UV(5232)+JVS(41870)*UV(5250)& - &+JVS(50741)*UV(5255) - JTUV(1583) = JVS(6353)*UV(1583)+JVS(33175)*UV(5123)+JVS(35156)*UV(5183) - JTUV(1584) = JVS(6354)*UV(1583)+JVS(6359)*UV(1584)+JVS(33176)*UV(5123)+JVS(35157)*UV(5183)+JVS(41871)*UV(5250)& - &+JVS(50742)*UV(5255) - JTUV(1585) = JVS(6362)*UV(1585)+JVS(9386)*UV(2231)+JVS(32389)*UV(5083)+JVS(39859)*UV(5244)+JVS(41872)*UV(5250)& - &+JVS(50743)*UV(5255) - JTUV(1586) = JVS(6365)*UV(1586)+JVS(9526)*UV(2265)+JVS(28654)*UV(4842)+JVS(39860)*UV(5244)+JVS(41873)*UV(5250)& - &+JVS(50744)*UV(5255) - JTUV(1587) = JVS(6368)*UV(1587)+JVS(7324)*UV(1790)+JVS(36806)*UV(5203)+JVS(39861)*UV(5244)+JVS(41874)*UV(5250)& - &+JVS(50745)*UV(5255) - JTUV(1588) = JVS(6371)*UV(1588)+JVS(7407)*UV(1806)+JVS(33177)*UV(5123)+JVS(41875)*UV(5250)+JVS(45088)*UV(5251)& - &+JVS(50746)*UV(5255) - JTUV(1589) = JVS(6374)*UV(1589)+JVS(12359)*UV(2847)+JVS(14511)*UV(3246)+JVS(41876)*UV(5250)+JVS(48036)*UV(5253)& - &+JVS(50747)*UV(5255) - JTUV(1590) = JVS(6379)*UV(1590)+JVS(26691)*UV(4672)+JVS(41877)*UV(5250) - JTUV(1591) = JVS(818)*UV(190)+JVS(6380)*UV(1590)+JVS(6385)*UV(1591)+JVS(41878)*UV(5250)+JVS(48037)*UV(5253) - JTUV(1592) = JVS(6389)*UV(1592)+JVS(35736)*UV(5193)+JVS(39862)*UV(5244) - JTUV(1593) = JVS(6395)*UV(1593)+JVS(37842)*UV(5228)+JVS(38146)*UV(5231) - JTUV(1594) = JVS(6401)*UV(1594)+JVS(11746)*UV(2728)+JVS(14768)*UV(3296)+JVS(41879)*UV(5250)+JVS(48038)*UV(5253)& - &+JVS(50748)*UV(5255) - JTUV(1595) = JVS(6404)*UV(1595)+JVS(35600)*UV(5191)+JVS(39863)*UV(5244) - JTUV(1596) = JVS(6410)*UV(1596)+JVS(16842)*UV(3609)+JVS(27775)*UV(4767)+JVS(35421)*UV(5185)+JVS(41880)*UV(5250)& - &+JVS(50749)*UV(5255) - JTUV(1597) = JVS(6413)*UV(1597)+JVS(35737)*UV(5193)+JVS(50750)*UV(5255) - JTUV(1598) = JVS(6419)*UV(1598)+JVS(11665)*UV(2714)+JVS(33303)*UV(5126)+JVS(41881)*UV(5250)+JVS(45089)*UV(5251)& - &+JVS(50751)*UV(5255) - JTUV(1599) = JVS(6422)*UV(1599)+JVS(27197)*UV(4717)+JVS(37979)*UV(5229)+JVS(39428)*UV(5237)+JVS(41882)*UV(5250)& - &+JVS(50752)*UV(5255) - JTUV(1600) = JVS(6425)*UV(1600)+JVS(14542)*UV(3251)+JVS(32532)*UV(5089)+JVS(39864)*UV(5244)+JVS(41883)*UV(5250)& - &+JVS(50753)*UV(5255) - JTUV(1601) = JVS(6428)*UV(1601)+JVS(12806)*UV(2932)+JVS(35601)*UV(5191)+JVS(39429)*UV(5237)+JVS(41884)*UV(5250)& - &+JVS(50754)*UV(5255) - JTUV(1602) = JVS(6431)*UV(1602)+JVS(11054)*UV(2592)+JVS(36966)*UV(5210)+JVS(41885)*UV(5250)+JVS(45090)*UV(5251)& - &+JVS(50755)*UV(5255) - JTUV(1603) = JVS(6434)*UV(1603)+JVS(27617)*UV(4753)+JVS(35459)*UV(5188)+JVS(38950)*UV(5233)+JVS(41886)*UV(5250)& - &+JVS(48039)*UV(5253) - JTUV(1604) = JVS(6439)*UV(1604)+JVS(17736)*UV(3720)+JVS(41887)*UV(5250) - JTUV(1605) = JVS(6447)*UV(1605)+JVS(19729)*UV(3962)+JVS(26330)*UV(4638) - JTUV(1606) = JVS(6455)*UV(1606)+JVS(19288)*UV(3911)+JVS(50756)*UV(5255) - JTUV(1607) = JVS(6463)*UV(1607)+JVS(31118)*UV(5008)+JVS(38147)*UV(5231) - JTUV(1608) = JVS(6471)*UV(1608)+JVS(25409)*UV(4545)+JVS(31316)*UV(5021) - JTUV(1609) = JVS(6477)*UV(1609)+JVS(6480)*UV(1610)+JVS(33178)*UV(5123)+JVS(39865)*UV(5244)+JVS(41888)*UV(5250)& - &+JVS(50757)*UV(5255) - JTUV(1610) = JVS(6481)*UV(1610)+JVS(30733)*UV(4986)+JVS(39866)*UV(5244)+JVS(41889)*UV(5250) - JTUV(1611) = JVS(6485)*UV(1611)+JVS(7558)*UV(1834)+JVS(36894)*UV(5207)+JVS(39867)*UV(5244)+JVS(41890)*UV(5250)& - &+JVS(50758)*UV(5255) - JTUV(1612) = JVS(6488)*UV(1612)+JVS(8943)*UV(2132)+JVS(21623)*UV(4183)+JVS(41891)*UV(5250)+JVS(45091)*UV(5251)& - &+JVS(50759)*UV(5255) - JTUV(1613) = JVS(6491)*UV(1613)+JVS(13456)*UV(3050)+JVS(20428)*UV(4045)+JVS(41892)*UV(5250)+JVS(48040)*UV(5253)& - &+JVS(50760)*UV(5255) - JTUV(1614) = JVS(6494)*UV(1614)+JVS(21167)*UV(4130)+JVS(34276)*UV(5160) - JTUV(1615) = JVS(6500)*UV(1615)+JVS(8982)*UV(2141)+JVS(31699)*UV(5044)+JVS(38148)*UV(5231)+JVS(41893)*UV(5250)& - &+JVS(50761)*UV(5255) - JTUV(1616) = JVS(6503)*UV(1616)+JVS(19328)*UV(3915)+JVS(50762)*UV(5255) - JTUV(1617) = JVS(6511)*UV(1617)+JVS(19266)*UV(3908)+JVS(26783)*UV(4681) - JTUV(1618) = JVS(6517)*UV(1618)+JVS(14976)*UV(3337)+JVS(34969)*UV(5179)+JVS(38149)*UV(5231)+JVS(41894)*UV(5250)& - &+JVS(50763)*UV(5255) - JTUV(1619) = JVS(6520)*UV(1619)+JVS(7528)*UV(1828)+JVS(14476)*UV(3242)+JVS(41895)*UV(5250)+JVS(45092)*UV(5251)& - &+JVS(50764)*UV(5255) - JTUV(1620) = JVS(6525)*UV(1620)+JVS(17443)*UV(3682)+JVS(40453)*UV(5245) - JTUV(1621) = JVS(6531)*UV(1621)+JVS(8463)*UV(2028)+JVS(9199)*UV(2190)+JVS(41896)*UV(5250)+JVS(48041)*UV(5253)& - &+JVS(50765)*UV(5255) - JTUV(1622) = JVS(6536)*UV(1622)+JVS(16418)*UV(3556)+JVS(50766)*UV(5255) - JTUV(1623) = JVS(6542)*UV(1623)+JVS(11326)*UV(2645)+JVS(32122)*UV(5066)+JVS(41897)*UV(5250)+JVS(45093)*UV(5251)& - &+JVS(50767)*UV(5255) - JTUV(1624) = JVS(6547)*UV(1624)+JVS(26763)*UV(4679)+JVS(31658)*UV(5041) - JTUV(1625) = JVS(6553)*UV(1625)+JVS(25114)*UV(4519)+JVS(35460)*UV(5188)+JVS(38951)*UV(5233)+JVS(41898)*UV(5250)& - &+JVS(48042)*UV(5253) - JTUV(1626) = JVS(6556)*UV(1626)+JVS(28795)*UV(4851)+JVS(38952)*UV(5233)+JVS(39201)*UV(5234)+JVS(41899)*UV(5250)& - &+JVS(50768)*UV(5255) - JTUV(1627) = JVS(6559)*UV(1627)+JVS(22938)*UV(4313)+JVS(50769)*UV(5255) - JTUV(1628) = JVS(6567)*UV(1628)+JVS(27746)*UV(4764)+JVS(41900)*UV(5250) - JTUV(1629) = JVS(800)*UV(187)+JVS(6568)*UV(1628)+JVS(6573)*UV(1629)+JVS(41901)*UV(5250)+JVS(48043)*UV(5253) - JTUV(1630) = JVS(6577)*UV(1630)+JVS(6580)*UV(1631)+JVS(32456)*UV(5086)+JVS(39868)*UV(5244)+JVS(41902)*UV(5250)& - &+JVS(50770)*UV(5255) - JTUV(1631) = JVS(6581)*UV(1631)+JVS(32457)*UV(5086)+JVS(39869)*UV(5244) - JTUV(1632) = JVS(6587)*UV(1632)+JVS(12689)*UV(2910)+JVS(31393)*UV(5026)+JVS(39870)*UV(5244)+JVS(41903)*UV(5250)& - &+JVS(50771)*UV(5255) - JTUV(1633) = JVS(6590)*UV(1633)+JVS(13201)*UV(3000)+JVS(23668)*UV(4391)+JVS(39603)*UV(5241)+JVS(41904)*UV(5250)& - &+JVS(50772)*UV(5255) - JTUV(1634) = JVS(6593)*UV(1634)+JVS(38150)*UV(5231)+JVS(50773)*UV(5255) - JTUV(1635) = JVS(6599)*UV(1635)+JVS(29381)*UV(4901)+JVS(32298)*UV(5078)+JVS(33968)*UV(5147)+JVS(39506)*UV(5238)& - &+JVS(41905)*UV(5250) - JTUV(1636) = JVS(6602)*UV(1636)+JVS(12506)*UV(2875)+JVS(32156)*UV(5068)+JVS(41906)*UV(5250)+JVS(45094)*UV(5251)& - &+JVS(50774)*UV(5255) - JTUV(1637) = JVS(6605)*UV(1637)+JVS(6784)*UV(1677)+JVS(29924)*UV(4938)+JVS(39871)*UV(5244)+JVS(41907)*UV(5250)& - &+JVS(50775)*UV(5255) - JTUV(1638) = JVS(6608)*UV(1638)+JVS(35158)*UV(5183)+JVS(35738)*UV(5193) - JTUV(1639) = JVS(6614)*UV(1639)+JVS(39202)*UV(5234)+JVS(41908)*UV(5250)+JVS(45095)*UV(5251)+JVS(48044)*UV(5253)& - &+JVS(50776)*UV(5255) - JTUV(1640) = JVS(6618)*UV(1640)+JVS(33304)*UV(5126)+JVS(39872)*UV(5244) - JTUV(1641) = JVS(6624)*UV(1641)+JVS(21091)*UV(4121)+JVS(27018)*UV(4696)+JVS(32056)*UV(5061)+JVS(39507)*UV(5238)& - &+JVS(41909)*UV(5250) - JTUV(1642) = JVS(4270)*UV(1068)+JVS(6627)*UV(1642)+JVS(30924)*UV(4999)+JVS(38151)*UV(5231)+JVS(41910)*UV(5250)& - &+JVS(45096)*UV(5251)+JVS(50777)*UV(5255) - JTUV(1643) = JVS(6630)*UV(1643)+JVS(26388)*UV(4644)+JVS(41911)*UV(5250) - JTUV(1644) = JVS(6636)*UV(1644)+JVS(15928)*UV(3483)+JVS(16656)*UV(3587)+JVS(41912)*UV(5250)+JVS(45097)*UV(5251)& - &+JVS(50778)*UV(5255) - JTUV(1645) = JVS(6639)*UV(1645)+JVS(20462)*UV(4048)+JVS(48045)*UV(5253) - JTUV(1646) = JVS(6645)*UV(1646)+JVS(23683)*UV(4392)+JVS(35739)*UV(5193)+JVS(39430)*UV(5237)+JVS(41913)*UV(5250)& - &+JVS(50779)*UV(5255) - JTUV(1647) = JVS(6648)*UV(1647)+JVS(13163)*UV(2994)+JVS(14244)*UV(3195)+JVS(41914)*UV(5250)+JVS(48046)*UV(5253)& - &+JVS(50780)*UV(5255) - JTUV(1648) = JVS(6653)*UV(1648)+JVS(21748)*UV(4196)+JVS(41915)*UV(5250) - JTUV(1649) = JVS(824)*UV(191)+JVS(6654)*UV(1648)+JVS(6659)*UV(1649)+JVS(41916)*UV(5250)+JVS(48047)*UV(5253) - JTUV(1650) = JVS(6663)*UV(1650)+JVS(34591)*UV(5164)+JVS(35740)*UV(5193) - JTUV(1651) = JVS(6669)*UV(1651)+JVS(20022)*UV(3998)+JVS(37380)*UV(5222)+JVS(39203)*UV(5234)+JVS(41917)*UV(5250)& - &+JVS(48048)*UV(5253) - JTUV(1652) = JVS(6674)*UV(1652)+JVS(28823)*UV(4853)+JVS(38152)*UV(5231) - JTUV(1653) = JVS(6680)*UV(1653)+JVS(6683)*UV(1654)+JVS(34277)*UV(5160)+JVS(35159)*UV(5183)+JVS(41918)*UV(5250)& - &+JVS(50781)*UV(5255) - JTUV(1654) = JVS(6684)*UV(1654)+JVS(34278)*UV(5160)+JVS(35160)*UV(5183) - JTUV(1655) = JVS(6690)*UV(1655)+JVS(20989)*UV(4109)+JVS(36765)*UV(5202)+JVS(38797)*UV(5232)+JVS(41919)*UV(5250)& - &+JVS(50782)*UV(5255) - JTUV(1656) = JVS(6695)*UV(1656)+JVS(27554)*UV(4748)+JVS(41920)*UV(5250) - JTUV(1657) = JVS(571)*UV(149)+JVS(6696)*UV(1656)+JVS(6701)*UV(1657)+JVS(41921)*UV(5250)+JVS(48049)*UV(5253) - JTUV(1658) = JVS(6705)*UV(1658)+JVS(10107)*UV(2395)+JVS(30187)*UV(4949)+JVS(38153)*UV(5231)+JVS(41922)*UV(5250)& - &+JVS(50783)*UV(5255) - JTUV(1659) = JVS(6708)*UV(1659)+JVS(13491)*UV(3057)+JVS(30188)*UV(4949)+JVS(35741)*UV(5193)+JVS(41923)*UV(5250)& - &+JVS(50784)*UV(5255) - JTUV(1660) = JVS(6713)*UV(1660)+JVS(40454)*UV(5245)+JVS(41924)*UV(5250) - JTUV(1661) = JVS(6719)*UV(1661)+JVS(37315)*UV(5220)+JVS(50785)*UV(5255) - JTUV(1662) = JVS(6725)*UV(1662)+JVS(34279)*UV(5160)+JVS(50786)*UV(5255) - JTUV(1663) = JVS(6731)*UV(1663)+JVS(28561)*UV(4834)+JVS(50787)*UV(5255) - JTUV(1664) = JVS(6737)*UV(1664)+JVS(11937)*UV(2762)+JVS(24311)*UV(4448)+JVS(41925)*UV(5250)+JVS(48050)*UV(5253)& - &+JVS(50788)*UV(5255) - JTUV(1665) = JVS(6740)*UV(1665)+JVS(14594)*UV(3262)+JVS(33740)*UV(5141)+JVS(39873)*UV(5244)+JVS(41926)*UV(5250)& - &+JVS(50789)*UV(5255) - JTUV(1666) = JVS(6743)*UV(1666)+JVS(13929)*UV(3132)+JVS(25836)*UV(4591)+JVS(38154)*UV(5231)+JVS(41927)*UV(5250)& - &+JVS(50790)*UV(5255) - JTUV(1667) = JVS(6746)*UV(1667)+JVS(22285)*UV(4248)+JVS(50791)*UV(5255) - JTUV(1668) = JVS(6752)*UV(1668)+JVS(8886)*UV(2119)+JVS(39570)*UV(5240)+JVS(39874)*UV(5244)+JVS(41928)*UV(5250)& - &+JVS(50792)*UV(5255) - JTUV(1669) = JVS(6755)*UV(1669)+JVS(12014)*UV(2776)+JVS(23032)*UV(4322)+JVS(41929)*UV(5250)+JVS(48051)*UV(5253)& - &+JVS(50793)*UV(5255) - JTUV(1670) = JVS(6758)*UV(1670)+JVS(18074)*UV(3759)+JVS(34005)*UV(5149)+JVS(38798)*UV(5232)+JVS(41930)*UV(5250)& - &+JVS(50794)*UV(5255) - JTUV(1671) = JVS(6761)*UV(1671)+JVS(10290)*UV(2438)+JVS(30936)*UV(5000)+JVS(39875)*UV(5244)+JVS(41931)*UV(5250)& - &+JVS(50795)*UV(5255) - JTUV(1672) = JVS(6764)*UV(1672)+JVS(10547)*UV(2493)+JVS(26123)*UV(4619)+JVS(41932)*UV(5250)+JVS(48052)*UV(5253)& - &+JVS(50796)*UV(5255) - JTUV(1673) = JVS(4450)*UV(1113)+JVS(6767)*UV(1673)+JVS(16825)*UV(3607)+JVS(36276)*UV(5200)+JVS(41933)*UV(5250)& - &+JVS(50797)*UV(5255) - JTUV(1674) = JVS(6770)*UV(1674)+JVS(14190)*UV(3185)+JVS(28772)*UV(4850)+JVS(33839)*UV(5143)+JVS(41934)*UV(5250)& - &+JVS(50798)*UV(5255) - JTUV(1675) = JVS(6775)*UV(1675)+JVS(31276)*UV(5018)+JVS(50799)*UV(5255) - JTUV(1676) = JVS(6781)*UV(1676)+JVS(6837)*UV(1689)+JVS(18887)*UV(3862)+JVS(39876)*UV(5244)+JVS(41935)*UV(5250)& - &+JVS(50800)*UV(5255) - JTUV(1677) = JVS(6785)*UV(1677)+JVS(29925)*UV(4938)+JVS(39877)*UV(5244) - JTUV(1678) = JVS(6791)*UV(1678)+JVS(16429)*UV(3557)+JVS(38799)*UV(5232)+JVS(39431)*UV(5237)+JVS(41936)*UV(5250)& - &+JVS(50801)*UV(5255) - JTUV(1679) = JVS(6794)*UV(1679)+JVS(35361)*UV(5184)+JVS(50802)*UV(5255) - JTUV(1680) = JVS(6802)*UV(1680)+JVS(17786)*UV(3726)+JVS(50803)*UV(5255) - JTUV(1681) = JVS(6808)*UV(1681)+JVS(11392)*UV(2659)+JVS(36967)*UV(5210)+JVS(39878)*UV(5244)+JVS(41937)*UV(5250)& - &+JVS(50804)*UV(5255) - JTUV(1682) = JVS(6811)*UV(1682)+JVS(32595)*UV(5094)+JVS(37381)*UV(5222)+JVS(41938)*UV(5250)+JVS(45098)*UV(5251)& - &+JVS(50805)*UV(5255) - JTUV(1683) = JVS(6814)*UV(1683)+JVS(11651)*UV(2711)+JVS(34072)*UV(5152)+JVS(39205)*UV(5234)+JVS(41939)*UV(5250)& - &+JVS(50806)*UV(5255) - JTUV(1684) = JVS(6817)*UV(1684)+JVS(35461)*UV(5188)+JVS(38800)*UV(5232) - JTUV(1685) = JVS(6824)*UV(1685)+JVS(26523)*UV(4657)+JVS(30307)*UV(4958)+JVS(41940)*UV(5250)+JVS(45099)*UV(5251)& - &+JVS(50807)*UV(5255) - JTUV(1686) = JVS(6827)*UV(1686)+JVS(30860)*UV(4995)+JVS(33135)*UV(5121)+JVS(35602)*UV(5191)+JVS(41941)*UV(5250)& - &+JVS(50808)*UV(5255) - JTUV(1687) = JVS(6830)*UV(1687)+JVS(9751)*UV(2315)+JVS(31866)*UV(5052)+JVS(38155)*UV(5231)+JVS(41942)*UV(5250)& - &+JVS(50809)*UV(5255) - JTUV(1688) = JVS(6833)*UV(1688)+JVS(31712)*UV(5045)+JVS(32287)*UV(5077)+JVS(32378)*UV(5082)+JVS(39508)*UV(5238)& - &+JVS(41943)*UV(5250) - JTUV(1689) = JVS(6838)*UV(1689)+JVS(18888)*UV(3862)+JVS(39879)*UV(5244) - JTUV(1690) = JVS(6844)*UV(1690)+JVS(7545)*UV(1832)+JVS(35161)*UV(5183)+JVS(39689)*UV(5242)+JVS(41944)*UV(5250)& - &+JVS(50810)*UV(5255) - JTUV(1691) = JVS(6848)*UV(1691)+JVS(33013)*UV(5113)+JVS(39880)*UV(5244) - JTUV(1692) = JVS(6854)*UV(1692)+JVS(21002)*UV(4110)+JVS(50811)*UV(5255) - JTUV(1693) = JVS(6860)*UV(1693)+JVS(18845)*UV(3857)+JVS(33136)*UV(5121)+JVS(35162)*UV(5183)+JVS(41945)*UV(5250)& - &+JVS(50812)*UV(5255) - JTUV(1694) = JVS(6863)*UV(1694)+JVS(6954)*UV(1714)+JVS(34914)*UV(5178)+JVS(39881)*UV(5244)+JVS(41946)*UV(5250)& - &+JVS(50813)*UV(5255) - JTUV(1695) = JVS(6866)*UV(1695)+JVS(35603)*UV(5191)+JVS(50814)*UV(5255) - JTUV(1696) = JVS(6874)*UV(1696)+JVS(26597)*UV(4664)+JVS(41947)*UV(5250) - JTUV(1697) = JVS(6880)*UV(1697)+JVS(26403)*UV(4645)+JVS(29043)*UV(4870)+JVS(38019)*UV(5230)+JVS(41948)*UV(5250)& - &+JVS(50815)*UV(5255) - JTUV(1698) = JVS(6883)*UV(1698)+JVS(10333)*UV(2448)+JVS(31975)*UV(5058)+JVS(41949)*UV(5250)+JVS(45100)*UV(5251)& - &+JVS(50816)*UV(5255) - JTUV(1699) = JVS(6886)*UV(1699)+JVS(38020)*UV(5230)+JVS(39882)*UV(5244) - JTUV(1700) = JVS(6892)*UV(1700)+JVS(11074)*UV(2595)+JVS(20141)*UV(4012)+JVS(41950)*UV(5250)+JVS(48053)*UV(5253)& - &+JVS(50817)*UV(5255) - JTUV(1701) = JVS(6895)*UV(1701)+JVS(23911)*UV(4411)+JVS(32039)*UV(5060)+JVS(36807)*UV(5203)+JVS(41951)*UV(5250)& - &+JVS(50818)*UV(5255) - JTUV(1702) = JVS(6898)*UV(1702)+JVS(19998)*UV(3995)+JVS(50819)*UV(5255) - JTUV(1703) = JVS(6904)*UV(1703)+JVS(23725)*UV(4396)+JVS(23732)*UV(4397)+JVS(23754)*UV(4399)+JVS(41952)*UV(5250)& - &+JVS(50820)*UV(5255) - JTUV(1704) = JVS(6907)*UV(1704)+JVS(34177)*UV(5157)+JVS(35163)*UV(5183)+JVS(36766)*UV(5202)+JVS(41953)*UV(5250)& - &+JVS(50821)*UV(5255) - JTUV(1705) = JVS(6910)*UV(1705)+JVS(16901)*UV(3616)+JVS(29737)*UV(4924)+JVS(36767)*UV(5202)+JVS(41954)*UV(5250)& - &+JVS(50822)*UV(5255) - JTUV(1706) = JVS(6914)*UV(1706)+JVS(28754)*UV(4849)+JVS(41955)*UV(5250) - JTUV(1707) = JVS(6920)*UV(1707)+JVS(14016)*UV(3151)+JVS(33230)*UV(5125)+JVS(33840)*UV(5143)+JVS(41956)*UV(5250)& - &+JVS(50823)*UV(5255) - JTUV(1708) = JVS(6923)*UV(1708)+JVS(29132)*UV(4876)+JVS(34576)*UV(5163)+JVS(35707)*UV(5192)+JVS(39509)*UV(5238)& - &+JVS(41957)*UV(5250) - JTUV(1709) = JVS(6926)*UV(1709)+JVS(30074)*UV(4942)+JVS(32943)*UV(5109)+JVS(35439)*UV(5186)+JVS(39510)*UV(5238)& - &+JVS(41958)*UV(5250) - JTUV(1710) = JVS(6931)*UV(1710)+JVS(29926)*UV(4938)+JVS(39883)*UV(5244) - JTUV(1711) = JVS(6937)*UV(1711)+JVS(6940)*UV(1712)+JVS(35164)*UV(5183)+JVS(35604)*UV(5191)+JVS(41959)*UV(5250)& - &+JVS(50824)*UV(5255) - JTUV(1712) = JVS(6941)*UV(1712)+JVS(21062)*UV(4118)+JVS(35165)*UV(5183)+JVS(41960)*UV(5250) - JTUV(1713) = JVS(6947)*UV(1713)+JVS(19317)*UV(3914)+JVS(50825)*UV(5255) - JTUV(1714) = JVS(6955)*UV(1714)+JVS(34915)*UV(5178)+JVS(39884)*UV(5244) - JTUV(1715) = JVS(6961)*UV(1715)+JVS(36808)*UV(5203)+JVS(50826)*UV(5255) - JTUV(1716) = JVS(6967)*UV(1716)+JVS(8952)*UV(2134)+JVS(20496)*UV(4051)+JVS(38156)*UV(5231)+JVS(41961)*UV(5250)& - &+JVS(50827)*UV(5255) - JTUV(1717) = JVS(6970)*UV(1717)+JVS(13333)*UV(3027)+JVS(27493)*UV(4743)+JVS(41962)*UV(5250)+JVS(48054)*UV(5253)& - &+JVS(50828)*UV(5255) - JTUV(1718) = JVS(6973)*UV(1718)+JVS(7668)*UV(1858)+JVS(30243)*UV(4953)+JVS(38157)*UV(5231)+JVS(41963)*UV(5250)& - &+JVS(50829)*UV(5255) - JTUV(1719) = JVS(6976)*UV(1719)+JVS(34006)*UV(5149)+JVS(34178)*UV(5157)+JVS(39885)*UV(5244)+JVS(41964)*UV(5250)& - &+JVS(50830)*UV(5255) - JTUV(1720) = JVS(6979)*UV(1720)+JVS(25347)*UV(4540)+JVS(50831)*UV(5255) - JTUV(1721) = JVS(6985)*UV(1721)+JVS(32101)*UV(5064)+JVS(50832)*UV(5255) - JTUV(1722) = JVS(6991)*UV(1722)+JVS(6994)*UV(1723)+JVS(28193)*UV(4801)+JVS(39886)*UV(5244)+JVS(41965)*UV(5250)& - &+JVS(50833)*UV(5255) - JTUV(1723) = JVS(6995)*UV(1723)+JVS(28194)*UV(4801)+JVS(39887)*UV(5244) - JTUV(1724) = JVS(7001)*UV(1724)+JVS(20398)*UV(4042)+JVS(34280)*UV(5160) - JTUV(1725) = JVS(7007)*UV(1725)+JVS(33841)*UV(5143)+JVS(50834)*UV(5255) - JTUV(1726) = JVS(7013)*UV(1726)+JVS(23062)*UV(4325)+JVS(36968)*UV(5210)+JVS(39888)*UV(5244)+JVS(41966)*UV(5250)& - &+JVS(50835)*UV(5255) - JTUV(1727) = JVS(7018)*UV(1727)+JVS(16264)*UV(3535)+JVS(50836)*UV(5255) - JTUV(1728) = JVS(7025)*UV(1728)+JVS(29797)*UV(4929)+JVS(41967)*UV(5250) - JTUV(1729) = JVS(7031)*UV(1729)+JVS(11768)*UV(2732)+JVS(14703)*UV(3283)+JVS(41968)*UV(5250)+JVS(48055)*UV(5253)& - &+JVS(50837)*UV(5255) - JTUV(1730) = JVS(7034)*UV(1730)+JVS(22908)*UV(4310)+JVS(28594)*UV(4837)+JVS(31670)*UV(5042)+JVS(41969)*UV(5250)& - &+JVS(50838)*UV(5255) - JTUV(1731) = JVS(6631)*UV(1643)+JVS(7037)*UV(1731)+JVS(32424)*UV(5085)+JVS(39889)*UV(5244)+JVS(41970)*UV(5250)& - &+JVS(50839)*UV(5255) - JTUV(1732) = JVS(7042)*UV(1732)+JVS(35063)*UV(5182)+JVS(37124)*UV(5214) - JTUV(1733) = JVS(7048)*UV(1733)+JVS(7129)*UV(1750)+JVS(35742)*UV(5193)+JVS(36049)*UV(5195)+JVS(41971)*UV(5250)& - &+JVS(50840)*UV(5255) - JTUV(1734) = JVS(7051)*UV(1734)+JVS(24742)*UV(4490)+JVS(36969)*UV(5210)+JVS(41972)*UV(5250)+JVS(45101)*UV(5251)& - &+JVS(50841)*UV(5255) - JTUV(1735) = JVS(7054)*UV(1735)+JVS(13930)*UV(3132)+JVS(21596)*UV(4181)+JVS(38158)*UV(5231)+JVS(41973)*UV(5250)& - &+JVS(50842)*UV(5255) - JTUV(1736) = JVS(7058)*UV(1736)+JVS(32718)*UV(5099)+JVS(41974)*UV(5250) - JTUV(1737) = JVS(7064)*UV(1737)+JVS(33231)*UV(5125)+JVS(35743)*UV(5193) - JTUV(1738) = JVS(7071)*UV(1738)+JVS(29703)*UV(4921)+JVS(41975)*UV(5250) - JTUV(1739) = JVS(7079)*UV(1739)+JVS(26476)*UV(4652)+JVS(33030)*UV(5114) - JTUV(1740) = JVS(7085)*UV(1740)+JVS(14183)*UV(3184)+JVS(27694)*UV(4760)+JVS(33842)*UV(5143)+JVS(41976)*UV(5250)& - &+JVS(50843)*UV(5255) - JTUV(1741) = JVS(7088)*UV(1741)+JVS(30634)*UV(4981)+JVS(38159)*UV(5231) - JTUV(1742) = JVS(7094)*UV(1742)+JVS(7329)*UV(1791)+JVS(30776)*UV(4989)+JVS(38160)*UV(5231)+JVS(41977)*UV(5250)& - &+JVS(50844)*UV(5255) - JTUV(1743) = JVS(7097)*UV(1743)+JVS(22113)*UV(4231)+JVS(50845)*UV(5255) - JTUV(1744) = JVS(7103)*UV(1744)+JVS(14176)*UV(3183)+JVS(30109)*UV(4944)+JVS(33843)*UV(5143)+JVS(41978)*UV(5250)& - &+JVS(50846)*UV(5255) - JTUV(1745) = JVS(7108)*UV(1745)+JVS(19169)*UV(3896)+JVS(50847)*UV(5255) - JTUV(1746) = JVS(7114)*UV(1746)+JVS(27524)*UV(4746)+JVS(30496)*UV(4970)+JVS(36880)*UV(5206)+JVS(41979)*UV(5250)& - &+JVS(50848)*UV(5255) - JTUV(1747) = JVS(7117)*UV(1747)+JVS(10609)*UV(2506)+JVS(24721)*UV(4488)+JVS(41980)*UV(5250)+JVS(48056)*UV(5253)& - &+JVS(50849)*UV(5255) - JTUV(1748) = JVS(7120)*UV(1748)+JVS(35462)*UV(5188)+JVS(39206)*UV(5234)+JVS(48057)*UV(5253) - JTUV(1749) = JVS(7125)*UV(1749)+JVS(7130)*UV(1750)+JVS(35744)*UV(5193)+JVS(41981)*UV(5250)+JVS(48058)*UV(5253) - JTUV(1750) = JVS(7131)*UV(1750)+JVS(35745)*UV(5193)+JVS(50850)*UV(5255) - JTUV(1751) = JVS(669)*UV(165)+JVS(7137)*UV(1751)+JVS(18795)*UV(3851)+JVS(27019)*UV(4696)+JVS(41982)*UV(5250) - JTUV(1752) = JVS(7141)*UV(1752)+JVS(15618)*UV(3425)+JVS(16011)*UV(3497)+JVS(41983)*UV(5250)+JVS(48059)*UV(5253) - JTUV(1753) = JVS(7145)*UV(1753)+JVS(13141)*UV(2990)+JVS(16716)*UV(3594)+JVS(32057)*UV(5061)+JVS(41984)*UV(5250) - JTUV(1754) = JVS(7151)*UV(1754)+JVS(34281)*UV(5160)+JVS(50851)*UV(5255) - JTUV(1755) = JVS(7159)*UV(1755)+JVS(33042)*UV(5115)+JVS(50852)*UV(5255) - JTUV(1756) = JVS(7168)*UV(1756)+JVS(31419)*UV(5027)+JVS(41985)*UV(5250)+JVS(45102)*UV(5251)+JVS(50853)*UV(5255) - JTUV(1757) = JVS(2942)*UV(741)+JVS(7172)*UV(1757)+JVS(30353)*UV(4960)+JVS(41986)*UV(5250) - JTUV(1758) = JVS(7176)*UV(1758)+JVS(11833)*UV(2744)+JVS(17069)*UV(3638)+JVS(38161)*UV(5231)+JVS(41987)*UV(5250) - JTUV(1759) = JVS(2115)*UV(545)+JVS(7180)*UV(1759)+JVS(22538)*UV(4274)+JVS(34756)*UV(5171)+JVS(35746)*UV(5193)& - &+JVS(41988)*UV(5250) - JTUV(1760) = JVS(7184)*UV(1760)+JVS(33305)*UV(5126)+JVS(45103)*UV(5251)+JVS(50854)*UV(5255) - JTUV(1761) = JVS(123)*UV(25)+JVS(7189)*UV(1761)+JVS(22757)*UV(4295)+JVS(41989)*UV(5250) - JTUV(1762) = JVS(2886)*UV(729)+JVS(7194)*UV(1762)+JVS(25488)*UV(4552)+JVS(41990)*UV(5250) - JTUV(1763) = JVS(7198)*UV(1763)+JVS(26622)*UV(4666)+JVS(30426)*UV(4965)+JVS(41991)*UV(5250) - JTUV(1764) = JVS(7203)*UV(1764)+JVS(38163)*UV(5231)+JVS(41992)*UV(5250)+JVS(50855)*UV(5255) - JTUV(1765) = JVS(7208)*UV(1765)+JVS(30147)*UV(4947)+JVS(41993)*UV(5250)+JVS(50856)*UV(5255) - JTUV(1766) = JVS(7213)*UV(1766)+JVS(34887)*UV(5177)+JVS(38164)*UV(5231)+JVS(41994)*UV(5250)+JVS(48060)*UV(5253) - JTUV(1767) = JVS(7217)*UV(1767)+JVS(12699)*UV(2912)+JVS(18055)*UV(3757)+JVS(26001)*UV(4607)+JVS(41995)*UV(5250) - JTUV(1768) = JVS(7221)*UV(1768)+JVS(14793)*UV(3301)+JVS(26564)*UV(4661)+JVS(33583)*UV(5139)+JVS(41996)*UV(5250) - JTUV(1769) = JVS(7225)*UV(1769)+JVS(14477)*UV(3242)+JVS(45104)*UV(5251)+JVS(50857)*UV(5255) - JTUV(1770) = JVS(7230)*UV(1770)+JVS(22465)*UV(4266)+JVS(37200)*UV(5215)+JVS(41997)*UV(5250)+JVS(48061)*UV(5253) - JTUV(1771) = JVS(614)*UV(156)+JVS(7234)*UV(1771)+JVS(36895)*UV(5207)+JVS(41998)*UV(5250)+JVS(48062)*UV(5253) - JTUV(1772) = JVS(7238)*UV(1772)+JVS(7243)*UV(1773)+JVS(17236)*UV(3655)+JVS(41999)*UV(5250)+JVS(48063)*UV(5253) - JTUV(1773) = JVS(7244)*UV(1773)+JVS(17237)*UV(3655)+JVS(50858)*UV(5255) - JTUV(1774) = JVS(7250)*UV(1774)+JVS(12876)*UV(2944)+JVS(29088)*UV(4873)+JVS(33482)*UV(5135)+JVS(42000)*UV(5250) - JTUV(1775) = JVS(7254)*UV(1775)+JVS(17901)*UV(3740)+JVS(21432)*UV(4163)+JVS(42001)*UV(5250)+JVS(53220)*UV(5256) - JTUV(1776) = JVS(7258)*UV(1776)+JVS(13643)*UV(3083)+JVS(29480)*UV(4908)+JVS(34283)*UV(5160)+JVS(42002)*UV(5250)& - &+JVS(45105)*UV(5251)+JVS(50859)*UV(5255) - JTUV(1777) = JVS(4451)*UV(1113)+JVS(7261)*UV(1777)+JVS(15352)*UV(3389)+JVS(36013)*UV(5194)+JVS(42003)*UV(5250)& - &+JVS(45106)*UV(5251)+JVS(50860)*UV(5255) - JTUV(1778) = JVS(7264)*UV(1778)+JVS(10824)*UV(2549)+JVS(31132)*UV(5009)+JVS(32649)*UV(5096)+JVS(42004)*UV(5250) - JTUV(1779) = JVS(7268)*UV(1779)+JVS(13616)*UV(3079)+JVS(19532)*UV(3938)+JVS(27905)*UV(4778)+JVS(42005)*UV(5250) - JTUV(1780) = JVS(7272)*UV(1780)+JVS(7277)*UV(1781)+JVS(20932)*UV(4103)+JVS(42006)*UV(5250)+JVS(48064)*UV(5253) - JTUV(1781) = JVS(7278)*UV(1781)+JVS(20933)*UV(4103)+JVS(50861)*UV(5255) - JTUV(1782) = JVS(7284)*UV(1782)+JVS(23619)*UV(4386)+JVS(42007)*UV(5250)+JVS(48065)*UV(5253) - JTUV(1783) = JVS(3108)*UV(780)+JVS(7289)*UV(1783)+JVS(25286)*UV(4535)+JVS(42008)*UV(5250) - JTUV(1784) = JVS(2573)*UV(655)+JVS(7293)*UV(1784)+JVS(29119)*UV(4875)+JVS(42009)*UV(5250) - JTUV(1785) = JVS(7297)*UV(1785)+JVS(32136)*UV(5067)+JVS(42010)*UV(5250)+JVS(48067)*UV(5253) - JTUV(1786) = JVS(7302)*UV(1786)+JVS(15652)*UV(3430)+JVS(17120)*UV(3642)+JVS(42011)*UV(5250)+JVS(48068)*UV(5253) - JTUV(1787) = JVS(7306)*UV(1787)+JVS(31337)*UV(5023)+JVS(39208)*UV(5234)+JVS(50862)*UV(5255) - JTUV(1788) = JVS(7311)*UV(1788)+JVS(7317)*UV(1789)+JVS(34284)*UV(5160)+JVS(42012)*UV(5250)+JVS(48069)*UV(5253) - JTUV(1789) = JVS(7318)*UV(1789)+JVS(33909)*UV(5145)+JVS(34285)*UV(5160) - JTUV(1790) = JVS(7325)*UV(1790)+JVS(21493)*UV(4170)+JVS(32882)*UV(5106)+JVS(39890)*UV(5244)+JVS(42013)*UV(5250) - JTUV(1791) = JVS(7330)*UV(1791)+JVS(30777)*UV(4989)+JVS(42014)*UV(5250)+JVS(45107)*UV(5251)+JVS(50863)*UV(5255) - JTUV(1792) = JVS(7335)*UV(1792)+JVS(30407)*UV(4964)+JVS(50864)*UV(5255) - JTUV(1793) = JVS(3202)*UV(802)+JVS(7342)*UV(1793)+JVS(16430)*UV(3557)+JVS(42015)*UV(5250) - JTUV(1794) = JVS(7336)*UV(1792)+JVS(7346)*UV(1794)+JVS(30408)*UV(4964)+JVS(42016)*UV(5250)+JVS(48070)*UV(5253) - JTUV(1795) = JVS(7350)*UV(1795)+JVS(25479)*UV(4551)+JVS(37382)*UV(5222)+JVS(42017)*UV(5250)+JVS(50866)*UV(5255) - JTUV(1796) = JVS(7355)*UV(1796)+JVS(17185)*UV(3649)+JVS(50867)*UV(5255) - JTUV(1797) = JVS(7362)*UV(1797)+JVS(21597)*UV(4181)+JVS(42018)*UV(5250)+JVS(45109)*UV(5251)+JVS(50868)*UV(5255) - JTUV(1798) = JVS(7366)*UV(1798)+JVS(7371)*UV(1799)+JVS(31152)*UV(5010)+JVS(42019)*UV(5250)+JVS(48071)*UV(5253) - JTUV(1799) = JVS(7372)*UV(1799)+JVS(30559)*UV(4975)+JVS(50869)*UV(5255) - JTUV(1800) = JVS(595)*UV(153)+JVS(7378)*UV(1800)+JVS(29074)*UV(4872)+JVS(42020)*UV(5250)+JVS(48072)*UV(5253) - JTUV(1801) = JVS(6495)*UV(1614)+JVS(7382)*UV(1801)+JVS(15413)*UV(3397)+JVS(34286)*UV(5160)+JVS(42021)*UV(5250) - JTUV(1802) = JVS(2924)*UV(737)+JVS(7386)*UV(1802)+JVS(28377)*UV(4817)+JVS(42022)*UV(5250) - JTUV(1803) = JVS(7392)*UV(1803)+JVS(23294)*UV(4350)+JVS(34287)*UV(5160) - JTUV(1804) = JVS(7399)*UV(1804)+JVS(25103)*UV(4518)+JVS(30308)*UV(4958)+JVS(42023)*UV(5250)+JVS(48074)*UV(5253) - JTUV(1805) = JVS(7403)*UV(1805)+JVS(17389)*UV(3675)+JVS(20706)*UV(4076)+JVS(42024)*UV(5250)+JVS(53221)*UV(5256) - JTUV(1806) = JVS(7408)*UV(1806)+JVS(30734)*UV(4986)+JVS(42025)*UV(5250)+JVS(45110)*UV(5251)+JVS(50870)*UV(5255) - JTUV(1807) = JVS(7412)*UV(1807)+JVS(37383)*UV(5222)+JVS(39891)*UV(5244)+JVS(42026)*UV(5250)+JVS(48075)*UV(5253) - JTUV(1808) = JVS(7416)*UV(1808)+JVS(34288)*UV(5160)+JVS(35009)*UV(5180)+JVS(50871)*UV(5255) - JTUV(1809) = JVS(7421)*UV(1809)+JVS(11628)*UV(2707)+JVS(36050)*UV(5195)+JVS(39209)*UV(5234)+JVS(42027)*UV(5250) - JTUV(1810) = JVS(7425)*UV(1810)+JVS(37384)*UV(5222)+JVS(45111)*UV(5251)+JVS(50872)*UV(5255) - JTUV(1811) = JVS(7430)*UV(1811)+JVS(7436)*UV(1812)+JVS(32458)*UV(5086)+JVS(42028)*UV(5250)+JVS(48076)*UV(5253) - JTUV(1812) = JVS(7437)*UV(1812)+JVS(32459)*UV(5086)+JVS(50873)*UV(5255) - JTUV(1813) = JVS(7443)*UV(1813)+JVS(7448)*UV(1814)+JVS(15237)*UV(3373)+JVS(42029)*UV(5250)+JVS(48077)*UV(5253) - JTUV(1814) = JVS(7449)*UV(1814)+JVS(33392)*UV(5130)+JVS(35064)*UV(5182) - JTUV(1815) = JVS(7455)*UV(1815)+JVS(34289)*UV(5160)+JVS(39210)*UV(5234)+JVS(50874)*UV(5255) - JTUV(1816) = JVS(7460)*UV(1816)+JVS(22093)*UV(4229)+JVS(27567)*UV(4749)+JVS(42030)*UV(5250)+JVS(50875)*UV(5255) - JTUV(1817) = JVS(7464)*UV(1817)+JVS(32067)*UV(5062)+JVS(36913)*UV(5208)+JVS(39511)*UV(5238)+JVS(42031)*UV(5250) - JTUV(1818) = JVS(7470)*UV(1818)+JVS(21214)*UV(4136)+JVS(34290)*UV(5160) - JTUV(1819) = JVS(7477)*UV(1819)+JVS(7482)*UV(1820)+JVS(17103)*UV(3640)+JVS(42032)*UV(5250)+JVS(48078)*UV(5253) - JTUV(1820) = JVS(7483)*UV(1820)+JVS(17104)*UV(3640)+JVS(50876)*UV(5255) - JTUV(1821) = JVS(7490)*UV(1821)+JVS(17257)*UV(3657)+JVS(50877)*UV(5255) - JTUV(1822) = JVS(7498)*UV(1822)+JVS(15019)*UV(3343)+JVS(50878)*UV(5255) - JTUV(1823) = JVS(7505)*UV(1823)+JVS(16693)*UV(3591)+JVS(32460)*UV(5086)+JVS(42033)*UV(5250)+JVS(48079)*UV(5253) - JTUV(1824) = JVS(830)*UV(192)+JVS(7509)*UV(1824)+JVS(14089)*UV(3166)+JVS(42034)*UV(5250)+JVS(48080)*UV(5253) - JTUV(1825) = JVS(7513)*UV(1825)+JVS(38166)*UV(5231)+JVS(39892)*UV(5244)+JVS(45112)*UV(5251) - JTUV(1826) = JVS(7519)*UV(1826)+JVS(22154)*UV(4235)+JVS(32771)*UV(5101)+JVS(39893)*UV(5244)+JVS(42035)*UV(5250) - JTUV(1827) = JVS(7523)*UV(1827)+JVS(16326)*UV(3542)+JVS(42036)*UV(5250)+JVS(48081)*UV(5253) - JTUV(1828) = JVS(7529)*UV(1828)+JVS(40513)*UV(5247)+JVS(42037)*UV(5250)+JVS(45113)*UV(5251)+JVS(50879)*UV(5255) - JTUV(1829) = JVS(873)*UV(200)+JVS(7533)*UV(1829)+JVS(25312)*UV(4537)+JVS(42038)*UV(5250)+JVS(48082)*UV(5253) - JTUV(1830) = JVS(2955)*UV(744)+JVS(7537)*UV(1830)+JVS(23570)*UV(4381)+JVS(42039)*UV(5250) - JTUV(1831) = JVS(676)*UV(166)+JVS(7541)*UV(1831)+JVS(13786)*UV(3109)+JVS(42040)*UV(5250)+JVS(48084)*UV(5253) - JTUV(1832) = JVS(7546)*UV(1832)+JVS(21232)*UV(4138)+JVS(34201)*UV(5158)+JVS(35166)*UV(5183)+JVS(42041)*UV(5250) - JTUV(1833) = JVS(7551)*UV(1833)+JVS(37385)*UV(5222)+JVS(39894)*UV(5244) - JTUV(1834) = JVS(7559)*UV(1834)+JVS(31220)*UV(5014)+JVS(36896)*UV(5207)+JVS(39895)*UV(5244)+JVS(42042)*UV(5250) - JTUV(1835) = JVS(7563)*UV(1835)+JVS(34860)*UV(5176)+JVS(38167)*UV(5231)+JVS(42043)*UV(5250)+JVS(48085)*UV(5253) - JTUV(1836) = JVS(2845)*UV(720)+JVS(6482)*UV(1610)+JVS(7567)*UV(1836)+JVS(42044)*UV(5250) - JTUV(1837) = JVS(7571)*UV(1837)+JVS(11888)*UV(2752)+JVS(24743)*UV(4490)+JVS(28576)*UV(4835)+JVS(42045)*UV(5250) - JTUV(1838) = JVS(7576)*UV(1838)+JVS(32085)*UV(5063)+JVS(50880)*UV(5255) - JTUV(1839) = JVS(2960)*UV(745)+JVS(7583)*UV(1839)+JVS(13658)*UV(3086)+JVS(33844)*UV(5143)+JVS(35167)*UV(5183)& - &+JVS(42046)*UV(5250) - JTUV(1840) = JVS(3075)*UV(773)+JVS(7587)*UV(1840)+JVS(16336)*UV(3543)+JVS(42047)*UV(5250) - JTUV(1841) = JVS(787)*UV(185)+JVS(7591)*UV(1841)+JVS(34179)*UV(5157)+JVS(42048)*UV(5250)+JVS(48086)*UV(5253) - JTUV(1842) = JVS(7595)*UV(1842)+JVS(11340)*UV(2647)+JVS(27416)*UV(4737)+JVS(33063)*UV(5116)+JVS(42049)*UV(5250) - JTUV(1843) = JVS(7600)*UV(1843)+JVS(33422)*UV(5131)+JVS(35065)*UV(5182)+JVS(37126)*UV(5214)+JVS(42050)*UV(5250) - JTUV(1844) = JVS(2634)*UV(670)+JVS(7604)*UV(1844)+JVS(19570)*UV(3943)+JVS(42051)*UV(5250) - JTUV(1845) = JVS(7608)*UV(1845)+JVS(17953)*UV(3746)+JVS(19524)*UV(3937)+JVS(42052)*UV(5250)+JVS(53222)*UV(5256) - JTUV(1846) = JVS(7612)*UV(1846)+JVS(7617)*UV(1847)+JVS(37787)*UV(5226)+JVS(42053)*UV(5250)+JVS(48088)*UV(5253) - JTUV(1847) = JVS(7618)*UV(1847)+JVS(37788)*UV(5226)+JVS(50881)*UV(5255) - JTUV(1848) = JVS(7624)*UV(1848)+JVS(23585)*UV(4383)+JVS(38953)*UV(5233)+JVS(50882)*UV(5255) - JTUV(1849) = JVS(7629)*UV(1849)+JVS(15081)*UV(3351)+JVS(21501)*UV(4171)+JVS(35010)*UV(5180)+JVS(42054)*UV(5250) - JTUV(1850) = JVS(2970)*UV(747)+JVS(7633)*UV(1850)+JVS(17404)*UV(3677)+JVS(42055)*UV(5250) - JTUV(1851) = JVS(7637)*UV(1851)+JVS(39211)*UV(5234)+JVS(42056)*UV(5250)+JVS(45114)*UV(5251)+JVS(50883)*UV(5255) - JTUV(1852) = JVS(7643)*UV(1852)+JVS(25896)*UV(4597)+JVS(34291)*UV(5160) - JTUV(1853) = JVS(7650)*UV(1853)+JVS(14116)*UV(3171)+JVS(32492)*UV(5087)+JVS(42057)*UV(5250)+JVS(45115)*UV(5251)& - &+JVS(48090)*UV(5253)+JVS(50884)*UV(5255) - JTUV(1854) = JVS(2300)*UV(592)+JVS(7653)*UV(1854)+JVS(25469)*UV(4550)+JVS(38169)*UV(5231)+JVS(39897)*UV(5244)& - &+JVS(42058)*UV(5250) - JTUV(1855) = JVS(7657)*UV(1855)+JVS(13054)*UV(2974)+JVS(16625)*UV(3583)+JVS(30551)*UV(4974)+JVS(42059)*UV(5250) - JTUV(1856) = JVS(7661)*UV(1856)+JVS(12852)*UV(2939)+JVS(31917)*UV(5055)+JVS(42060)*UV(5250)+JVS(48091)*UV(5253) - JTUV(1857) = JVS(7665)*UV(1857)+JVS(32596)*UV(5094)+JVS(32818)*UV(5103)+JVS(35168)*UV(5183)+JVS(42061)*UV(5250)& - &+JVS(45116)*UV(5251)+JVS(50885)*UV(5255) - JTUV(1858) = JVS(7669)*UV(1858)+JVS(30244)*UV(4953)+JVS(42062)*UV(5250)+JVS(45117)*UV(5251)+JVS(50886)*UV(5255) - JTUV(1859) = JVS(7673)*UV(1859)+JVS(16642)*UV(3585)+JVS(23303)*UV(4351)+JVS(28699)*UV(4845)+JVS(42063)*UV(5250) - JTUV(1860) = JVS(7678)*UV(1860)+JVS(17284)*UV(3661)+JVS(50887)*UV(5255) - JTUV(1861) = JVS(2420)*UV(620)+JVS(7685)*UV(1861)+JVS(17558)*UV(3696)+JVS(42064)*UV(5250) - JTUV(1862) = JVS(2647)*UV(673)+JVS(7689)*UV(1862)+JVS(18730)*UV(3844)+JVS(42065)*UV(5250) - JTUV(1863) = JVS(2275)*UV(585)+JVS(7693)*UV(1863)+JVS(9752)*UV(2315)+JVS(31867)*UV(5052)+JVS(38170)*UV(5231)& - &+JVS(42066)*UV(5250) - JTUV(1864) = JVS(7697)*UV(1864)+JVS(7702)*UV(1865)+JVS(16933)*UV(3619)+JVS(42067)*UV(5250)+JVS(48093)*UV(5253) - JTUV(1865) = JVS(7703)*UV(1865)+JVS(16934)*UV(3619)+JVS(50889)*UV(5255) - JTUV(1866) = JVS(7709)*UV(1866)+JVS(37386)*UV(5222)+JVS(38171)*UV(5231)+JVS(50890)*UV(5255) - JTUV(1867) = JVS(7715)*UV(1867)+JVS(21981)*UV(4219)+JVS(38172)*UV(5231) - JTUV(1868) = JVS(2410)*UV(618)+JVS(7722)*UV(1868)+JVS(9038)*UV(2154)+JVS(42068)*UV(5250) - JTUV(1869) = JVS(7726)*UV(1869)+JVS(7731)*UV(1870)+JVS(12934)*UV(2954)+JVS(42069)*UV(5250)+JVS(50891)*UV(5255) - JTUV(1870) = JVS(7732)*UV(1870)+JVS(21897)*UV(4211)+JVS(42070)*UV(5250) - JTUV(1871) = JVS(3232)*UV(810)+JVS(7738)*UV(1871)+JVS(15660)*UV(3431)+JVS(42071)*UV(5250) - JTUV(1872) = JVS(7742)*UV(1872)+JVS(32493)*UV(5087)+JVS(45118)*UV(5251)+JVS(50892)*UV(5255) - JTUV(1873) = JVS(6619)*UV(1640)+JVS(7747)*UV(1873)+JVS(29335)*UV(4897)+JVS(33306)*UV(5126)+JVS(39898)*UV(5244)& - &+JVS(42072)*UV(5250) - JTUV(1874) = JVS(7751)*UV(1874)+JVS(26524)*UV(4657)+JVS(30309)*UV(4958)+JVS(42073)*UV(5250)+JVS(50893)*UV(5255) - JTUV(1875) = JVS(7755)*UV(1875)+JVS(12171)*UV(2809)+JVS(30591)*UV(4978)+JVS(39433)*UV(5237)+JVS(42074)*UV(5250)& - &+JVS(45119)*UV(5251)+JVS(50894)*UV(5255) - JTUV(1876) = JVS(7758)*UV(1876)+JVS(15183)*UV(3367)+JVS(16229)*UV(3530)+JVS(27953)*UV(4784)+JVS(42075)*UV(5250) - JTUV(1877) = JVS(7762)*UV(1877)+JVS(38021)*UV(5230)+JVS(38174)*UV(5231)+JVS(50895)*UV(5255) - JTUV(1878) = JVS(7767)*UV(1878)+JVS(20651)*UV(4069)+JVS(26157)*UV(4622)+JVS(37843)*UV(5228)+JVS(42076)*UV(5250) - JTUV(1879) = JVS(7771)*UV(1879)+JVS(25928)*UV(4602)+JVS(26132)*UV(4620)+JVS(33232)*UV(5125)+JVS(42077)*UV(5250) - JTUV(1880) = JVS(7008)*UV(1725)+JVS(7775)*UV(1880)+JVS(19075)*UV(3884)+JVS(33845)*UV(5143)+JVS(42078)*UV(5250) - JTUV(1881) = JVS(7679)*UV(1860)+JVS(7779)*UV(1881)+JVS(17285)*UV(3661)+JVS(42079)*UV(5250)+JVS(48094)*UV(5253) - JTUV(1882) = JVS(7783)*UV(1882)+JVS(30937)*UV(5000)+JVS(38175)*UV(5231)+JVS(50898)*UV(5255) - JTUV(1883) = JVS(620)*UV(157)+JVS(7788)*UV(1883)+JVS(13080)*UV(2979)+JVS(42080)*UV(5250)+JVS(48095)*UV(5253) - JTUV(1884) = JVS(7792)*UV(1884)+JVS(13040)*UV(2972)+JVS(18880)*UV(3861)+JVS(23278)*UV(4348)+JVS(42081)*UV(5250) - JTUV(1885) = JVS(7796)*UV(1885)+JVS(13363)*UV(3032)+JVS(31671)*UV(5042)+JVS(33969)*UV(5147)+JVS(42082)*UV(5250) - JTUV(1886) = JVS(7800)*UV(1886)+JVS(11704)*UV(2720)+JVS(19704)*UV(3959)+JVS(26404)*UV(4645)+JVS(42083)*UV(5250) - JTUV(1887) = JVS(6849)*UV(1691)+JVS(7804)*UV(1887)+JVS(22229)*UV(4242)+JVS(33014)*UV(5113)+JVS(39899)*UV(5244)& - &+JVS(42084)*UV(5250) - JTUV(1888) = JVS(2262)*UV(582)+JVS(7808)*UV(1888)+JVS(22487)*UV(4268)+JVS(42085)*UV(5250) - JTUV(1889) = JVS(806)*UV(188)+JVS(7812)*UV(1889)+JVS(29180)*UV(4882)+JVS(42086)*UV(5250)+JVS(48096)*UV(5253) - JTUV(1890) = JVS(2083)*UV(537)+JVS(5031)*UV(1257)+JVS(7816)*UV(1890)+JVS(42087)*UV(5250) - JTUV(1891) = JVS(7820)*UV(1891)+JVS(30661)*UV(4983)+JVS(37387)*UV(5222)+JVS(50900)*UV(5255) - JTUV(1892) = JVS(7825)*UV(1892)+JVS(23430)*UV(4366)+JVS(38954)*UV(5233)+JVS(50901)*UV(5255) - JTUV(1893) = JVS(7830)*UV(1893)+JVS(25489)*UV(4552)+JVS(29765)*UV(4926)+JVS(42088)*UV(5250) - JTUV(1894) = JVS(7835)*UV(1894)+JVS(18036)*UV(3755)+JVS(42089)*UV(5250)+JVS(48097)*UV(5253) - JTUV(1895) = JVS(7840)*UV(1895)+JVS(10772)*UV(2539)+JVS(39690)*UV(5242)+JVS(42090)*UV(5250)+JVS(48098)*UV(5253) - JTUV(1896) = JVS(7844)*UV(1896)+JVS(8432)*UV(2021)+JVS(18609)*UV(3826)+JVS(42091)*UV(5250)+JVS(48099)*UV(5253) - JTUV(1897) = JVS(7848)*UV(1897)+JVS(10831)*UV(2550)+JVS(16362)*UV(3547)+JVS(21415)*UV(4161)+JVS(42092)*UV(5250) - JTUV(1898) = JVS(3160)*UV(792)+JVS(7852)*UV(1898)+JVS(17797)*UV(3727)+JVS(42093)*UV(5250) - JTUV(1899) = JVS(7856)*UV(1899)+JVS(11286)*UV(2639)+JVS(33137)*UV(5121)+JVS(35463)*UV(5188)+JVS(42094)*UV(5250) - JTUV(1900) = JVS(2863)*UV(724)+JVS(7860)*UV(1900)+JVS(7925)*UV(1913)+JVS(42095)*UV(5250) - JTUV(1901) = JVS(3136)*UV(786)+JVS(7864)*UV(1901)+JVS(27787)*UV(4768)+JVS(42096)*UV(5250) - JTUV(1902) = JVS(6980)*UV(1720)+JVS(7868)*UV(1902)+JVS(25348)*UV(4540)+JVS(42097)*UV(5250)+JVS(48100)*UV(5253) - JTUV(1903) = JVS(7873)*UV(1903)+JVS(17155)*UV(3645)+JVS(50905)*UV(5255) - JTUV(1904) = JVS(7880)*UV(1904)+JVS(15184)*UV(3367)+JVS(16230)*UV(3530)+JVS(42098)*UV(5250)+JVS(48101)*UV(5253) - JTUV(1905) = JVS(7884)*UV(1905)+JVS(34844)*UV(5175)+JVS(38177)*UV(5231)+JVS(42099)*UV(5250)+JVS(48102)*UV(5253) - JTUV(1906) = JVS(7889)*UV(1906)+JVS(25168)*UV(4524)+JVS(50906)*UV(5255) - JTUV(1907) = JVS(6217)*UV(1552)+JVS(7896)*UV(1907)+JVS(20560)*UV(4058)+JVS(24880)*UV(4501)+JVS(42100)*UV(5250) - JTUV(1908) = JVS(3100)*UV(778)+JVS(7900)*UV(1908)+JVS(13877)*UV(3124)+JVS(33846)*UV(5143)+JVS(39900)*UV(5244)& - &+JVS(42101)*UV(5250) - JTUV(1909) = JVS(7904)*UV(1909)+JVS(7909)*UV(1910)+JVS(36014)*UV(5194)+JVS(42102)*UV(5250)+JVS(48103)*UV(5253) - JTUV(1910) = JVS(7910)*UV(1910)+JVS(36015)*UV(5194)+JVS(50908)*UV(5255) - JTUV(1911) = JVS(2501)*UV(639)+JVS(6345)*UV(1581)+JVS(7916)*UV(1911)+JVS(42103)*UV(5250) - JTUV(1912) = JVS(7920)*UV(1912)+JVS(18773)*UV(3849)+JVS(38178)*UV(5231)+JVS(42104)*UV(5250)+JVS(48104)*UV(5253) - JTUV(1913) = JVS(7926)*UV(1913)+JVS(24134)*UV(4431)+JVS(35069)*UV(5182)+JVS(37128)*UV(5214)+JVS(42105)*UV(5250) - JTUV(1914) = JVS(7930)*UV(1914)+JVS(15331)*UV(3386)+JVS(29044)*UV(4870)+JVS(30519)*UV(4973)+JVS(42106)*UV(5250) - JTUV(1915) = JVS(6346)*UV(1581)+JVS(7934)*UV(1915)+JVS(42107)*UV(5250)+JVS(48105)*UV(5253) - JTUV(1916) = JVS(64)*UV(6)+JVS(7939)*UV(1916)+JVS(23311)*UV(4352)+JVS(42108)*UV(5250)+JVS(48106)*UV(5253)+JVS(50910)& - &*UV(5255) - JTUV(1917) = JVS(2315)*UV(595)+JVS(7942)*UV(1917)+JVS(11652)*UV(2711)+JVS(34073)*UV(5152)+JVS(39212)*UV(5234)& - &+JVS(42109)*UV(5250) - JTUV(1918) = JVS(7946)*UV(1918)+JVS(38180)*UV(5231)+JVS(40548)*UV(5248)+JVS(42110)*UV(5250)+JVS(48107)*UV(5253) - JTUV(1919) = JVS(644)*UV(161)+JVS(7950)*UV(1919)+JVS(13839)*UV(3118)+JVS(42111)*UV(5250)+JVS(48108)*UV(5253) - JTUV(1920) = JVS(7954)*UV(1920)+JVS(26705)*UV(4673)+JVS(38181)*UV(5231)+JVS(39434)*UV(5237)+JVS(42112)*UV(5250) - JTUV(1921) = JVS(7958)*UV(1921)+JVS(12774)*UV(2926)+JVS(38022)*UV(5230)+JVS(42113)*UV(5250)+JVS(48109)*UV(5253) - JTUV(1922) = JVS(7962)*UV(1922)+JVS(7967)*UV(1923)+JVS(10952)*UV(2574)+JVS(42114)*UV(5250)+JVS(48110)*UV(5253) - JTUV(1923) = JVS(7968)*UV(1923)+JVS(10953)*UV(2574)+JVS(50911)*UV(5255) - JTUV(1924) = JVS(7974)*UV(1924)+JVS(34292)*UV(5160)+JVS(35747)*UV(5193)+JVS(50912)*UV(5255) - JTUV(1925) = JVS(7979)*UV(1925)+JVS(24698)*UV(4486)+JVS(34970)*UV(5179)+JVS(39901)*UV(5244)+JVS(42115)*UV(5250) - JTUV(1926) = JVS(2542)*UV(648)+JVS(7983)*UV(1926)+JVS(23235)*UV(4343)+JVS(35464)*UV(5188)+JVS(39435)*UV(5237)& - &+JVS(42116)*UV(5250) - JTUV(1927) = JVS(7987)*UV(1927)+JVS(34622)*UV(5165)+JVS(38182)*UV(5231)+JVS(50913)*UV(5255) - JTUV(1928) = JVS(7992)*UV(1928)+JVS(18473)*UV(3809)+JVS(23840)*UV(4404)+JVS(35169)*UV(5183)+JVS(42117)*UV(5250)& - &+JVS(45120)*UV(5251)+JVS(50914)*UV(5255) - JTUV(1929) = JVS(7995)*UV(1929)+JVS(37129)*UV(5214)+JVS(42118)*UV(5250)+JVS(50915)*UV(5255) - JTUV(1930) = JVS(8000)*UV(1930)+JVS(8005)*UV(1931)+JVS(13001)*UV(2965)+JVS(42119)*UV(5250)+JVS(48111)*UV(5253) - JTUV(1931) = JVS(8006)*UV(1931)+JVS(21222)*UV(4137)+JVS(35362)*UV(5184) - JTUV(1932) = JVS(2819)*UV(714)+JVS(8012)*UV(1932)+JVS(24784)*UV(4493)+JVS(42120)*UV(5250) - JTUV(1933) = JVS(8016)*UV(1933)+JVS(11716)*UV(2722)+JVS(19604)*UV(3947)+JVS(42121)*UV(5250)+JVS(48112)*UV(5253) - JTUV(1934) = JVS(8020)*UV(1934)+JVS(15057)*UV(3348)+JVS(20944)*UV(4104)+JVS(31304)*UV(5020)+JVS(38801)*UV(5232)& - &+JVS(42122)*UV(5250)+JVS(50916)*UV(5255) - JTUV(1935) = JVS(2165)*UV(557)+JVS(8023)*UV(1935)+JVS(21393)*UV(4158)+JVS(42123)*UV(5250) - JTUV(1936) = JVS(8027)*UV(1936)+JVS(17565)*UV(3697)+JVS(23088)*UV(4327)+JVS(42124)*UV(5250)+JVS(53223)*UV(5256) - JTUV(1937) = JVS(2320)*UV(596)+JVS(8031)*UV(1937)+JVS(19300)*UV(3912)+JVS(33497)*UV(5136)+JVS(35748)*UV(5193)& - &+JVS(42125)*UV(5250) - JTUV(1938) = JVS(8035)*UV(1938)+JVS(8336)*UV(2000)+JVS(17453)*UV(3683)+JVS(29211)*UV(4885)+JVS(42126)*UV(5250) - JTUV(1939) = JVS(8039)*UV(1939)+JVS(26534)*UV(4658)+JVS(30310)*UV(4958)+JVS(45121)*UV(5251)+JVS(48113)*UV(5253) - JTUV(1940) = JVS(8043)*UV(1940)+JVS(15261)*UV(3376)+JVS(18713)*UV(3842)+JVS(27065)*UV(4702)+JVS(42127)*UV(5250) - JTUV(1941) = JVS(8047)*UV(1941)+JVS(8052)*UV(1942)+JVS(34888)*UV(5177)+JVS(42128)*UV(5250)+JVS(48114)*UV(5253) - JTUV(1942) = JVS(8053)*UV(1942)+JVS(34889)*UV(5177)+JVS(50918)*UV(5255) - JTUV(1943) = JVS(2075)*UV(535)+JVS(8059)*UV(1943)+JVS(21433)*UV(4163)+JVS(42129)*UV(5250) - JTUV(1944) = JVS(8063)*UV(1944)+JVS(34293)*UV(5160)+JVS(38183)*UV(5231)+JVS(50919)*UV(5255) - JTUV(1945) = JVS(8069)*UV(1945)+JVS(18228)*UV(3777)+JVS(50920)*UV(5255) - JTUV(1946) = JVS(8076)*UV(1946)+JVS(15643)*UV(3429)+JVS(34916)*UV(5178)+JVS(42130)*UV(5250)+JVS(48116)*UV(5253) - JTUV(1947) = JVS(3095)*UV(777)+JVS(8080)*UV(1947)+JVS(22638)*UV(4284)+JVS(42131)*UV(5250) - JTUV(1948) = JVS(8084)*UV(1948)+JVS(15595)*UV(3422)+JVS(16274)*UV(3536)+JVS(24560)*UV(4473)+JVS(42132)*UV(5250) - JTUV(1949) = JVS(8088)*UV(1949)+JVS(14547)*UV(3252)+JVS(26859)*UV(4688)+JVS(29830)*UV(4931)+JVS(42133)*UV(5250) - JTUV(1950) = JVS(2586)*UV(658)+JVS(8092)*UV(1950)+JVS(8887)*UV(2119)+JVS(39571)*UV(5240)+JVS(39903)*UV(5244)& - &+JVS(42134)*UV(5250) - JTUV(1951) = JVS(8096)*UV(1951)+JVS(32157)*UV(5068)+JVS(45122)*UV(5251)+JVS(50921)*UV(5255) - JTUV(1952) = JVS(8101)*UV(1952)+JVS(11676)*UV(2716)+JVS(15474)*UV(3405)+JVS(42135)*UV(5250)+JVS(48117)*UV(5253) - JTUV(1953) = JVS(8106)*UV(1953)+JVS(27479)*UV(4742)+JVS(39904)*UV(5244)+JVS(42136)*UV(5250) - JTUV(1954) = JVS(576)*UV(150)+JVS(8111)*UV(1954)+JVS(34180)*UV(5157)+JVS(42137)*UV(5250)+JVS(48118)*UV(5253) - JTUV(1955) = JVS(8115)*UV(1955)+JVS(37388)*UV(5222)+JVS(39213)*UV(5234)+JVS(50922)*UV(5255) - JTUV(1956) = JVS(443)*UV(115)+JVS(8120)*UV(1956)+JVS(16800)*UV(3604)+JVS(26846)*UV(4687)+JVS(42138)*UV(5250) - JTUV(1957) = JVS(8124)*UV(1957)+JVS(31193)*UV(5012)+JVS(42139)*UV(5250)+JVS(48119)*UV(5253) - JTUV(1958) = JVS(3080)*UV(774)+JVS(8129)*UV(1958)+JVS(15169)*UV(3365)+JVS(42140)*UV(5250) - JTUV(1959) = JVS(8133)*UV(1959)+JVS(28396)*UV(4819)+JVS(33210)*UV(5124)+JVS(38186)*UV(5231)+JVS(42141)*UV(5250)& - &+JVS(45123)*UV(5251)+JVS(50923)*UV(5255) - JTUV(1960) = JVS(8136)*UV(1960)+JVS(33584)*UV(5139)+JVS(38955)*UV(5233)+JVS(50924)*UV(5255) - JTUV(1961) = JVS(8142)*UV(1961)+JVS(23607)*UV(4385)+JVS(35363)*UV(5184) - JTUV(1962) = JVS(8151)*UV(1962)+JVS(33762)*UV(5142)+JVS(34917)*UV(5178) - JTUV(1963) = JVS(8158)*UV(1963)+JVS(12257)*UV(2826)+JVS(16288)*UV(3537)+JVS(42142)*UV(5250)+JVS(48120)*UV(5253) - JTUV(1964) = JVS(8162)*UV(1964)+JVS(13676)*UV(3089)+JVS(18497)*UV(3812)+JVS(42143)*UV(5250)+JVS(48121)*UV(5253) - JTUV(1965) = JVS(8166)*UV(1965)+JVS(11589)*UV(2699)+JVS(19855)*UV(3978)+JVS(42144)*UV(5250)+JVS(48122)*UV(5253) - JTUV(1966) = JVS(885)*UV(202)+JVS(8170)*UV(1966)+JVS(18996)*UV(3875)+JVS(27381)*UV(4733)+JVS(42145)*UV(5250) - JTUV(1967) = JVS(8174)*UV(1967)+JVS(35465)*UV(5188)+JVS(38956)*UV(5233)+JVS(42146)*UV(5250) - JTUV(1968) = JVS(6355)*UV(1583)+JVS(8179)*UV(1968)+JVS(22920)*UV(4311)+JVS(33180)*UV(5123)+JVS(35170)*UV(5183)& - &+JVS(42147)*UV(5250) - JTUV(1969) = JVS(8183)*UV(1969)+JVS(35011)*UV(5180)+JVS(42148)*UV(5250)+JVS(45124)*UV(5251)+JVS(50925)*UV(5255) - JTUV(1970) = JVS(8187)*UV(1970)+JVS(27440)*UV(4739)+JVS(37750)*UV(5225)+JVS(42149)*UV(5250)+JVS(48123)*UV(5253) - JTUV(1971) = JVS(8192)*UV(1971)+JVS(31837)*UV(5049)+JVS(50926)*UV(5255) - JTUV(1972) = JVS(750)*UV(178)+JVS(8199)*UV(1972)+JVS(11999)*UV(2773)+JVS(42150)*UV(5250)+JVS(48124)*UV(5253) - JTUV(1973) = JVS(2850)*UV(721)+JVS(6915)*UV(1706)+JVS(8203)*UV(1973)+JVS(42151)*UV(5250) - JTUV(1974) = JVS(6867)*UV(1695)+JVS(8207)*UV(1974)+JVS(35605)*UV(5191)+JVS(42152)*UV(5250)+JVS(48125)*UV(5253) - JTUV(1975) = JVS(8213)*UV(1975)+JVS(20814)*UV(4089)+JVS(34294)*UV(5160) - JTUV(1976) = JVS(8220)*UV(1976)+JVS(16275)*UV(3536)+JVS(42153)*UV(5250)+JVS(48126)*UV(5253) - JTUV(1977) = JVS(8225)*UV(1977)+JVS(17702)*UV(3716)+JVS(42154)*UV(5250)+JVS(48127)*UV(5253) - JTUV(1978) = JVS(8230)*UV(1978)+JVS(11333)*UV(2646)+JVS(23669)*UV(4391)+JVS(42155)*UV(5250)+JVS(48128)*UV(5253) - JTUV(1979) = JVS(2998)*UV(753)+JVS(8234)*UV(1979)+JVS(17419)*UV(3679)+JVS(42156)*UV(5250) - JTUV(1980) = JVS(848)*UV(195)+JVS(8238)*UV(1980)+JVS(18846)*UV(3857)+JVS(42157)*UV(5250)+JVS(48130)*UV(5253) - JTUV(1981) = JVS(8242)*UV(1981)+JVS(25104)*UV(4518)+JVS(30311)*UV(4958)+JVS(42158)*UV(5250)+JVS(45125)*UV(5251)& - &+JVS(48131)*UV(5253)+JVS(50929)*UV(5255) - JTUV(1982) = JVS(8245)*UV(1982)+JVS(20920)*UV(4102)+JVS(25929)*UV(4602)+JVS(35171)*UV(5183)+JVS(42159)*UV(5250) - JTUV(1983) = JVS(8249)*UV(1983)+JVS(13755)*UV(3104)+JVS(28636)*UV(4841)+JVS(42160)*UV(5250) - JTUV(1984) = JVS(8256)*UV(1984)+JVS(23212)*UV(4340)+JVS(34295)*UV(5160) - JTUV(1985) = JVS(3085)*UV(775)+JVS(8263)*UV(1985)+JVS(18682)*UV(3838)+JVS(42161)*UV(5250) - JTUV(1986) = JVS(8268)*UV(1986)+JVS(32833)*UV(5104)+JVS(35070)*UV(5182) - JTUV(1987) = JVS(607)*UV(155)+JVS(8275)*UV(1987)+JVS(34552)*UV(5162)+JVS(42162)*UV(5250)+JVS(48132)*UV(5253) - JTUV(1988) = JVS(8279)*UV(1988)+JVS(15756)*UV(3450)+JVS(33181)*UV(5123)+JVS(39905)*UV(5244)+JVS(42163)*UV(5250)& - &+JVS(45126)*UV(5251)+JVS(50930)*UV(5255) - JTUV(1989) = JVS(8284)*UV(1989)+JVS(18987)*UV(3874)+JVS(34297)*UV(5160) - JTUV(1990) = JVS(2547)*UV(649)+JVS(8291)*UV(1990)+JVS(19784)*UV(3969)+JVS(42164)*UV(5250) - JTUV(1991) = JVS(8295)*UV(1991)+JVS(27441)*UV(4739)+JVS(37751)*UV(5225)+JVS(42165)*UV(5250)+JVS(45127)*UV(5251)& - &+JVS(48134)*UV(5253)+JVS(50931)*UV(5255) - JTUV(1992) = JVS(6248)*UV(1559)+JVS(8298)*UV(1992)+JVS(17329)*UV(3667)+JVS(19924)*UV(3986)+JVS(42166)*UV(5250) - JTUV(1993) = JVS(8302)*UV(1993)+JVS(13390)*UV(3037)+JVS(16910)*UV(3617)+JVS(38187)*UV(5231)+JVS(42167)*UV(5250) - JTUV(1994) = JVS(8306)*UV(1994)+JVS(12582)*UV(2891)+JVS(31953)*UV(5057)+JVS(33987)*UV(5148)+JVS(42168)*UV(5250) - JTUV(1995) = JVS(6916)*UV(1706)+JVS(8310)*UV(1995)+JVS(42169)*UV(5250)+JVS(48135)*UV(5253) - JTUV(1996) = JVS(626)*UV(158)+JVS(8315)*UV(1996)+JVS(32426)*UV(5085)+JVS(42170)*UV(5250)+JVS(48136)*UV(5253) - JTUV(1997) = JVS(8319)*UV(1997)+JVS(23851)*UV(4405)+JVS(35749)*UV(5193)+JVS(42171)*UV(5250)+JVS(48137)*UV(5253) - JTUV(1998) = JVS(8324)*UV(1998)+JVS(29190)*UV(4883)+JVS(50933)*UV(5255) - JTUV(1999) = JVS(2629)*UV(669)+JVS(8331)*UV(1999)+JVS(28241)*UV(4804)+JVS(42172)*UV(5250) - JTUV(2000) = JVS(8337)*UV(2000)+JVS(34202)*UV(5158)+JVS(38188)*UV(5231) - JTUV(2001) = JVS(8344)*UV(2001)+JVS(14712)*UV(3284)+JVS(16363)*UV(3547)+JVS(42173)*UV(5250)+JVS(50934)*UV(5255) - JTUV(2002) = JVS(1138)*UV(271)+JVS(8348)*UV(2002)+JVS(29584)*UV(4914)+JVS(36187)*UV(5198)+JVS(42174)*UV(5250) - JTUV(2003) = JVS(8352)*UV(2003)+JVS(25115)*UV(4519)+JVS(37336)*UV(5221)+JVS(45128)*UV(5251)+JVS(48139)*UV(5253) - JTUV(2004) = JVS(8356)*UV(2004)+JVS(35466)*UV(5188)+JVS(45129)*UV(5251)+JVS(50935)*UV(5255) - JTUV(2005) = JVS(8361)*UV(2005)+JVS(32199)*UV(5071)+JVS(38189)*UV(5231)+JVS(50936)*UV(5255) - JTUV(2006) = JVS(8366)*UV(2006)+JVS(11856)*UV(2747)+JVS(17703)*UV(3716)+JVS(25586)*UV(4562)+JVS(42175)*UV(5250) - JTUV(2007) = JVS(8370)*UV(2007)+JVS(32427)*UV(5085)+JVS(38190)*UV(5231)+JVS(42176)*UV(5250)+JVS(48140)*UV(5253) - JTUV(2008) = JVS(8374)*UV(2008)+JVS(16137)*UV(3516)+JVS(38191)*UV(5231)+JVS(50937)*UV(5255) - JTUV(2009) = JVS(8379)*UV(2009)+JVS(15545)*UV(3415)+JVS(23331)*UV(4354)+JVS(30886)*UV(4996)+JVS(42177)*UV(5250) - JTUV(2010) = JVS(1004)*UV(232)+JVS(8383)*UV(2010)+JVS(12476)*UV(2869)+JVS(23411)*UV(4364)+JVS(42178)*UV(5250) - JTUV(2011) = JVS(8387)*UV(2011)+JVS(29089)*UV(4873)+JVS(42179)*UV(5250)+JVS(48141)*UV(5253) - JTUV(2012) = JVS(8392)*UV(2012)+JVS(35606)*UV(5191)+JVS(38192)*UV(5231)+JVS(50938)*UV(5255) - JTUV(2013) = JVS(8397)*UV(2013)+JVS(13047)*UV(2973)+JVS(30059)*UV(4941)+JVS(33763)*UV(5142)+JVS(42180)*UV(5250)& - &+JVS(45130)*UV(5251)+JVS(50939)*UV(5255) - JTUV(2014) = JVS(8400)*UV(2014)+JVS(8405)*UV(2015)+JVS(17133)*UV(3643)+JVS(42181)*UV(5250)+JVS(48142)*UV(5253) - JTUV(2015) = JVS(8406)*UV(2015)+JVS(17134)*UV(3643)+JVS(50940)*UV(5255) - JTUV(2016) = JVS(2070)*UV(534)+JVS(8412)*UV(2016)+JVS(19555)*UV(3941)+JVS(42182)*UV(5250) - JTUV(2017) = JVS(2149)*UV(553)+JVS(6632)*UV(1643)+JVS(8416)*UV(2017)+JVS(32428)*UV(5085)+JVS(39906)*UV(5244)& - &+JVS(42183)*UV(5250) - JTUV(2018) = JVS(2932)*UV(739)+JVS(8420)*UV(2018)+JVS(14977)*UV(3337)+JVS(34971)*UV(5179)+JVS(38194)*UV(5231)& - &+JVS(42184)*UV(5250) - JTUV(2019) = JVS(8424)*UV(2019)+JVS(11960)*UV(2767)+JVS(19012)*UV(3877)+JVS(29221)*UV(4886)+JVS(42185)*UV(5250) - JTUV(2020) = JVS(8428)*UV(2020)+JVS(12755)*UV(2922)+JVS(17501)*UV(3689)+JVS(42186)*UV(5250)+JVS(48143)*UV(5253) - JTUV(2021) = JVS(8433)*UV(2021)+JVS(30736)*UV(4986)+JVS(33585)*UV(5139)+JVS(42187)*UV(5250)+JVS(50941)*UV(5255) - JTUV(2022) = JVS(2415)*UV(619)+JVS(8437)*UV(2022)+JVS(8983)*UV(2141)+JVS(31700)*UV(5044)+JVS(38195)*UV(5231)& - &+JVS(42188)*UV(5250) - JTUV(2023) = JVS(6276)*UV(1565)+JVS(8441)*UV(2023)+JVS(42189)*UV(5250)+JVS(48144)*UV(5253) - JTUV(2024) = JVS(8446)*UV(2024)+JVS(29927)*UV(4938)+JVS(39907)*UV(5244)+JVS(45131)*UV(5251) - JTUV(2025) = JVS(8451)*UV(2025)+JVS(14630)*UV(3269)+JVS(26869)*UV(4689)+JVS(29644)*UV(4918)+JVS(42190)*UV(5250) - JTUV(2026) = JVS(8455)*UV(2026)+JVS(25930)*UV(4602)+JVS(26133)*UV(4620)+JVS(32883)*UV(5106)+JVS(42191)*UV(5250) - JTUV(2027) = JVS(3155)*UV(791)+JVS(8459)*UV(2027)+JVS(19051)*UV(3881)+JVS(42192)*UV(5250) - JTUV(2028) = JVS(8464)*UV(2028)+JVS(22639)*UV(4284)+JVS(33525)*UV(5137)+JVS(35172)*UV(5183)+JVS(38196)*UV(5231)& - &+JVS(42193)*UV(5250)+JVS(48145)*UV(5253) - JTUV(2029) = JVS(8467)*UV(2029)+JVS(34298)*UV(5160)+JVS(37389)*UV(5222)+JVS(50942)*UV(5255) - JTUV(2030) = JVS(8473)*UV(2030)+JVS(22810)*UV(4300)+JVS(50943)*UV(5255) - JTUV(2031) = JVS(8481)*UV(2031)+JVS(21442)*UV(4164)+JVS(50944)*UV(5255) - JTUV(2032) = JVS(8488)*UV(2032)+JVS(8494)*UV(2033)+JVS(32227)*UV(5072)+JVS(42194)*UV(5250)+JVS(48146)*UV(5253) - JTUV(2033) = JVS(8495)*UV(2033)+JVS(32228)*UV(5072)+JVS(50945)*UV(5255) - JTUV(2034) = JVS(8501)*UV(2034)+JVS(8507)*UV(2035)+JVS(24785)*UV(4493)+JVS(42195)*UV(5250)+JVS(48147)*UV(5253) - JTUV(2035) = JVS(8508)*UV(2035)+JVS(24786)*UV(4493)+JVS(50946)*UV(5255) - JTUV(2036) = JVS(8514)*UV(2036)+JVS(24153)*UV(4433)+JVS(36809)*UV(5203)+JVS(42196)*UV(5250)+JVS(48148)*UV(5253) - JTUV(2037) = JVS(8518)*UV(2037)+JVS(30938)*UV(5000)+JVS(42197)*UV(5250)+JVS(48149)*UV(5253) - JTUV(2038) = JVS(8523)*UV(2038)+JVS(37675)*UV(5223)+JVS(42198)*UV(5250)+JVS(45132)*UV(5251)+JVS(50947)*UV(5255) - JTUV(2039) = JVS(8527)*UV(2039)+JVS(23107)*UV(4329)+JVS(36202)*UV(5199)+JVS(39908)*UV(5244)+JVS(42199)*UV(5250) - JTUV(2040) = JVS(8531)*UV(2040)+JVS(8536)*UV(2041)+JVS(32171)*UV(5069)+JVS(42200)*UV(5250)+JVS(48150)*UV(5253) - JTUV(2041) = JVS(8537)*UV(2041)+JVS(32172)*UV(5069)+JVS(50948)*UV(5255) - JTUV(2042) = JVS(8543)*UV(2042)+JVS(17200)*UV(3651)+JVS(30280)*UV(4956)+JVS(37980)*UV(5229)+JVS(42201)*UV(5250)& - &+JVS(45133)*UV(5251)+JVS(50949)*UV(5255) - JTUV(2043) = JVS(8546)*UV(2043)+JVS(15072)*UV(3350)+JVS(38802)*UV(5232)+JVS(42202)*UV(5250)+JVS(50950)*UV(5255) - JTUV(2044) = JVS(6594)*UV(1634)+JVS(8550)*UV(2044)+JVS(37845)*UV(5228)+JVS(38197)*UV(5231)+JVS(42203)*UV(5250) - JTUV(2045) = JVS(8554)*UV(2045)+JVS(12568)*UV(2889)+JVS(15316)*UV(3384)+JVS(42204)*UV(5250)+JVS(48151)*UV(5253) - JTUV(2046) = JVS(3256)*UV(816)+JVS(8558)*UV(2046)+JVS(17466)*UV(3685)+JVS(42205)*UV(5250) - JTUV(2047) = JVS(3118)*UV(782)+JVS(8562)*UV(2047)+JVS(13931)*UV(3132)+JVS(25837)*UV(4591)+JVS(38198)*UV(5231)& - &+JVS(42206)*UV(5250) - JTUV(2048) = JVS(8566)*UV(2048)+JVS(18172)*UV(3771)+JVS(23041)*UV(4323)+JVS(42207)*UV(5250)+JVS(53224)*UV(5256) - JTUV(2049) = JVS(8570)*UV(2049)+JVS(8575)*UV(2050)+JVS(18580)*UV(3822)+JVS(42208)*UV(5250)+JVS(48153)*UV(5253) - JTUV(2050) = JVS(8576)*UV(2050)+JVS(28186)*UV(4800)+JVS(50952)*UV(5255) - JTUV(2051) = JVS(8582)*UV(2051)+JVS(27453)*UV(4740)+JVS(30148)*UV(4947)+JVS(42209)*UV(5250) - JTUV(2052) = JVS(2855)*UV(722)+JVS(8587)*UV(2052)+JVS(14017)*UV(3151)+JVS(33233)*UV(5125)+JVS(33847)*UV(5143)& - &+JVS(42210)*UV(5250) - JTUV(2053) = JVS(2594)*UV(660)+JVS(8591)*UV(2053)+JVS(17894)*UV(3739)+JVS(42211)*UV(5250) - JTUV(2054) = JVS(8595)*UV(2054)+JVS(17467)*UV(3685)+JVS(17580)*UV(3699)+JVS(42212)*UV(5250)+JVS(53225)*UV(5256) - JTUV(2055) = JVS(8599)*UV(2055)+JVS(22218)*UV(4241)+JVS(24744)*UV(4490)+JVS(39909)*UV(5244)+JVS(42213)*UV(5250) - JTUV(2056) = JVS(8605)*UV(2056)+JVS(17994)*UV(3750)+JVS(34299)*UV(5160) - JTUV(2057) = JVS(8612)*UV(2057)+JVS(11590)*UV(2699)+JVS(19856)*UV(3978)+JVS(35708)*UV(5192)+JVS(42214)*UV(5250) - JTUV(2058) = JVS(3128)*UV(784)+JVS(6277)*UV(1565)+JVS(8616)*UV(2058)+JVS(42215)*UV(5250) - JTUV(2059) = JVS(2749)*UV(698)+JVS(8620)*UV(2059)+JVS(14177)*UV(3183)+JVS(30110)*UV(4944)+JVS(33848)*UV(5143)& - &+JVS(42216)*UV(5250) - JTUV(2060) = JVS(8625)*UV(2060)+JVS(21578)*UV(4179)+JVS(50954)*UV(5255) - JTUV(2061) = JVS(868)*UV(199)+JVS(8632)*UV(2061)+JVS(37084)*UV(5212)+JVS(42217)*UV(5250)+JVS(48155)*UV(5253) - JTUV(2062) = JVS(2773)*UV(704)+JVS(8636)*UV(2062)+JVS(25324)*UV(4538)+JVS(42218)*UV(5250) - JTUV(2063) = JVS(688)*UV(168)+JVS(8640)*UV(2063)+JVS(14640)*UV(3270)+JVS(42219)*UV(5250)+JVS(48156)*UV(5253) - JTUV(2064) = JVS(8644)*UV(2064)+JVS(21359)*UV(4154)+JVS(21777)*UV(4199)+JVS(39910)*UV(5244)+JVS(42220)*UV(5250) - JTUV(2065) = JVS(2483)*UV(635)+JVS(8648)*UV(2065)+JVS(19546)*UV(3940)+JVS(42221)*UV(5250) - JTUV(2066) = JVS(8652)*UV(2066)+JVS(35607)*UV(5191)+JVS(35751)*UV(5193)+JVS(50955)*UV(5255) - JTUV(2067) = JVS(8657)*UV(2067)+JVS(22028)*UV(4223)+JVS(42222)*UV(5250)+JVS(48158)*UV(5253) - JTUV(2068) = JVS(2225)*UV(573)+JVS(8662)*UV(2068)+JVS(17358)*UV(3671)+JVS(42223)*UV(5250) - JTUV(2069) = JVS(8666)*UV(2069)+JVS(15668)*UV(3432)+JVS(19097)*UV(3887)+JVS(27050)*UV(4700)+JVS(42224)*UV(5250) - JTUV(2070) = JVS(8670)*UV(2070)+JVS(10773)*UV(2539)+JVS(39691)*UV(5242)+JVS(40476)*UV(5246)+JVS(42225)*UV(5250) - JTUV(2071) = JVS(2881)*UV(728)+JVS(8674)*UV(2071)+JVS(9561)*UV(2273)+JVS(42226)*UV(5250) - JTUV(2072) = JVS(8678)*UV(2072)+JVS(8683)*UV(2073)+JVS(35571)*UV(5189)+JVS(42227)*UV(5250)+JVS(48160)*UV(5253) - JTUV(2073) = JVS(8684)*UV(2073)+JVS(35572)*UV(5189)+JVS(50956)*UV(5255) - JTUV(2074) = JVS(8690)*UV(2074)+JVS(11841)*UV(2745)+JVS(16784)*UV(3602)+JVS(42228)*UV(5250)+JVS(48161)*UV(5253) - JTUV(2075) = JVS(8694)*UV(2075)+JVS(8699)*UV(2076)+JVS(14041)*UV(3156)+JVS(42229)*UV(5250)+JVS(48162)*UV(5253) - JTUV(2076) = JVS(8700)*UV(2076)+JVS(16935)*UV(3619)+JVS(37846)*UV(5228) - JTUV(2077) = JVS(8706)*UV(2077)+JVS(15307)*UV(3383)+JVS(39692)*UV(5242)+JVS(42230)*UV(5250)+JVS(48163)*UV(5253) - JTUV(2078) = JVS(7499)*UV(1822)+JVS(8710)*UV(2078)+JVS(15020)*UV(3343)+JVS(42231)*UV(5250)+JVS(48164)*UV(5253) - JTUV(2079) = JVS(632)*UV(159)+JVS(8714)*UV(2079)+JVS(12681)*UV(2909)+JVS(42232)*UV(5250)+JVS(48165)*UV(5253) - JTUV(2080) = JVS(2491)*UV(637)+JVS(8718)*UV(2080)+JVS(27279)*UV(4724)+JVS(42233)*UV(5250) - JTUV(2081) = JVS(8722)*UV(2081)+JVS(30925)*UV(4999)+JVS(38957)*UV(5233)+JVS(42234)*UV(5250)+JVS(50958)*UV(5255) - JTUV(2082) = JVS(8726)*UV(2082)+JVS(21534)*UV(4175)+JVS(23108)*UV(4329)+JVS(39912)*UV(5244)+JVS(42235)*UV(5250) - JTUV(2083) = JVS(731)*UV(175)+JVS(8730)*UV(2083)+JVS(33849)*UV(5143)+JVS(42236)*UV(5250)+JVS(48166)*UV(5253) - JTUV(2084) = JVS(6996)*UV(1723)+JVS(8734)*UV(2084)+JVS(22896)*UV(4309)+JVS(28195)*UV(4801)+JVS(39913)*UV(5244)& - &+JVS(42237)*UV(5250) - JTUV(2085) = JVS(8738)*UV(2085)+JVS(22732)*UV(4294)+JVS(38958)*UV(5233)+JVS(50959)*UV(5255) - JTUV(2086) = JVS(707)*UV(171)+JVS(8743)*UV(2086)+JVS(16067)*UV(3505)+JVS(42238)*UV(5250)+JVS(48167)*UV(5253) - JTUV(2087) = JVS(8747)*UV(2087)+JVS(8752)*UV(2088)+JVS(14934)*UV(3331)+JVS(42239)*UV(5250)+JVS(48168)*UV(5253) - JTUV(2088) = JVS(8753)*UV(2088)+JVS(14935)*UV(3331)+JVS(50960)*UV(5255) - JTUV(2089) = JVS(3056)*UV(768)+JVS(8759)*UV(2089)+JVS(17345)*UV(3669)+JVS(42240)*UV(5250) - JTUV(2090) = JVS(8763)*UV(2090)+JVS(34918)*UV(5178)+JVS(38199)*UV(5231)+JVS(50962)*UV(5255) - JTUV(2091) = JVS(2157)*UV(555)+JVS(8768)*UV(2091)+JVS(20257)*UV(4025)+JVS(42241)*UV(5250) - JTUV(2092) = JVS(8772)*UV(2092)+JVS(11170)*UV(2614)+JVS(31394)*UV(5026)+JVS(42242)*UV(5250)+JVS(48170)*UV(5253) - JTUV(2093) = JVS(3227)*UV(809)+JVS(8776)*UV(2093)+JVS(23089)*UV(4327)+JVS(42243)*UV(5250) - JTUV(2094) = JVS(782)*UV(184)+JVS(8780)*UV(2094)+JVS(14102)*UV(3168)+JVS(42244)*UV(5250)+JVS(48172)*UV(5253) - JTUV(2095) = JVS(2217)*UV(571)+JVS(8784)*UV(2095)+JVS(18963)*UV(3871)+JVS(42245)*UV(5250) - JTUV(2096) = JVS(8788)*UV(2096)+JVS(39214)*UV(5234)+JVS(42246)*UV(5250)+JVS(48173)*UV(5253) - JTUV(2097) = JVS(8793)*UV(2097)+JVS(12661)*UV(2906)+JVS(19416)*UV(3924)+JVS(42247)*UV(5250)+JVS(48174)*UV(5253) - JTUV(2098) = JVS(2891)*UV(730)+JVS(8797)*UV(2098)+JVS(19384)*UV(3920)+JVS(42248)*UV(5250) - JTUV(2099) = JVS(8801)*UV(2099)+JVS(8806)*UV(2100)+JVS(31849)*UV(5050)+JVS(42249)*UV(5250)+JVS(48175)*UV(5253) - JTUV(2100) = JVS(8807)*UV(2100)+JVS(31850)*UV(5050)+JVS(50964)*UV(5255) - JTUV(2101) = JVS(8813)*UV(2101)+JVS(17049)*UV(3635)+JVS(22368)*UV(4256)+JVS(42250)*UV(5250)+JVS(50965)*UV(5255) - JTUV(2102) = JVS(8817)*UV(2102)+JVS(15783)*UV(3456)+JVS(20084)*UV(4005)+JVS(42251)*UV(5250) - JTUV(2103) = JVS(3123)*UV(783)+JVS(8822)*UV(2103)+JVS(19391)*UV(3921)+JVS(42252)*UV(5250) - JTUV(2104) = JVS(8826)*UV(2104)+JVS(30901)*UV(4997)+JVS(33234)*UV(5125)+JVS(38023)*UV(5230)+JVS(42253)*UV(5250)& - &+JVS(45134)*UV(5251)+JVS(50967)*UV(5255) - JTUV(2105) = JVS(8829)*UV(2105)+JVS(21868)*UV(4208)+JVS(37390)*UV(5222)+JVS(42254)*UV(5250)+JVS(48176)*UV(5253) - JTUV(2106) = JVS(7009)*UV(1725)+JVS(8833)*UV(2106)+JVS(33850)*UV(5143)+JVS(42255)*UV(5250)+JVS(48177)*UV(5253) - JTUV(2107) = JVS(2728)*UV(693)+JVS(8837)*UV(2107)+JVS(29798)*UV(4929)+JVS(42256)*UV(5250) - JTUV(2108) = JVS(714)*UV(172)+JVS(8841)*UV(2108)+JVS(21624)*UV(4183)+JVS(42257)*UV(5250)+JVS(48178)*UV(5253) - JTUV(2109) = JVS(8845)*UV(2109)+JVS(11409)*UV(2662)+JVS(25602)*UV(4564)+JVS(42258)*UV(5250)+JVS(45135)*UV(5251) - JTUV(2110) = JVS(8849)*UV(2110)+JVS(25500)*UV(4553)+JVS(30939)*UV(5000)+JVS(42259)*UV(5250)+JVS(50969)*UV(5255) - JTUV(2111) = JVS(2524)*UV(644)+JVS(8853)*UV(2111)+JVS(24839)*UV(4497)+JVS(42260)*UV(5250) - JTUV(2112) = JVS(8857)*UV(2112)+JVS(35012)*UV(5180)+JVS(38959)*UV(5233)+JVS(50970)*UV(5255) - JTUV(2113) = JVS(854)*UV(196)+JVS(8862)*UV(2113)+JVS(13794)*UV(3110)+JVS(42261)*UV(5250)+JVS(48179)*UV(5253) - JTUV(2114) = JVS(8866)*UV(2114)+JVS(15099)*UV(3354)+JVS(19234)*UV(3904)+JVS(27214)*UV(4719)+JVS(42262)*UV(5250) - JTUV(2115) = JVS(3274)*UV(820)+JVS(8870)*UV(2115)+JVS(25457)*UV(4549)+JVS(42263)*UV(5250) - JTUV(2116) = JVS(8874)*UV(2116)+JVS(22103)*UV(4230)+JVS(35364)*UV(5184)+JVS(42264)*UV(5250)+JVS(50971)*UV(5255) - JTUV(2117) = JVS(8878)*UV(2117)+JVS(32123)*UV(5066)+JVS(45136)*UV(5251)+JVS(50972)*UV(5255) - JTUV(2118) = JVS(8883)*UV(2118)+JVS(21416)*UV(4161)+JVS(27034)*UV(4698)+JVS(27922)*UV(4780)+JVS(33359)*UV(5129)& - &+JVS(39915)*UV(5244)+JVS(42265)*UV(5250) - JTUV(2119) = JVS(8888)*UV(2119)+JVS(27430)*UV(4738)+JVS(39572)*UV(5240)+JVS(39916)*UV(5244)+JVS(42266)*UV(5250) - JTUV(2120) = JVS(8892)*UV(2120)+JVS(22072)*UV(4227)+JVS(24052)*UV(4424)+JVS(42267)*UV(5250)+JVS(50973)*UV(5255) - JTUV(2121) = JVS(2212)*UV(570)+JVS(8896)*UV(2121)+JVS(14184)*UV(3184)+JVS(27695)*UV(4760)+JVS(33851)*UV(5143)& - &+JVS(42268)*UV(5250) - JTUV(2122) = JVS(8901)*UV(2122)+JVS(21100)*UV(4122)+JVS(50974)*UV(5255) - JTUV(2123) = JVS(8908)*UV(2123)+JVS(10719)*UV(2528)+JVS(16902)*UV(3616)+JVS(42269)*UV(5250)+JVS(48180)*UV(5253) - JTUV(2124) = JVS(8912)*UV(2124)+JVS(11306)*UV(2642)+JVS(16184)*UV(3522)+JVS(42270)*UV(5250)+JVS(48181)*UV(5253) - JTUV(2125) = JVS(8916)*UV(2125)+JVS(15066)*UV(3349)+JVS(19425)*UV(3925)+JVS(25797)*UV(4587)+JVS(42271)*UV(5250) - JTUV(2126) = JVS(6726)*UV(1662)+JVS(8920)*UV(2126)+JVS(33910)*UV(5145)+JVS(34302)*UV(5160)+JVS(42272)*UV(5250) - JTUV(2127) = JVS(6981)*UV(1720)+JVS(8924)*UV(2127)+JVS(18064)*UV(3758)+JVS(25349)*UV(4540)+JVS(42273)*UV(5250) - JTUV(2128) = JVS(8928)*UV(2128)+JVS(15332)*UV(3386)+JVS(30520)*UV(4973)+JVS(42274)*UV(5250)+JVS(48182)*UV(5253) - JTUV(2129) = JVS(6664)*UV(1650)+JVS(8932)*UV(2129)+JVS(10812)*UV(2547)+JVS(42275)*UV(5250)+JVS(48183)*UV(5253)& - &+JVS(50977)*UV(5255) - JTUV(2130) = JVS(8935)*UV(2130)+JVS(18418)*UV(3801)+JVS(28542)*UV(4832)+JVS(36864)*UV(5205)+JVS(50978)*UV(5255) - JTUV(2131) = JVS(8939)*UV(2131)+JVS(25533)*UV(4557)+JVS(37391)*UV(5222)+JVS(42276)*UV(5250)+JVS(50979)*UV(5255) - JTUV(2132) = JVS(8944)*UV(2132)+JVS(27512)*UV(4745)+JVS(42277)*UV(5250)+JVS(45137)*UV(5251)+JVS(50980)*UV(5255) - JTUV(2133) = JVS(8948)*UV(2133)+JVS(12371)*UV(2849)+JVS(22029)*UV(4223)+JVS(26010)*UV(4608)+JVS(42278)*UV(5250) - JTUV(2134) = JVS(8953)*UV(2134)+JVS(20497)*UV(4051)+JVS(42279)*UV(5250)+JVS(45138)*UV(5251)+JVS(50981)*UV(5255) - JTUV(2135) = JVS(8957)*UV(2135)+JVS(14621)*UV(3268)+JVS(30362)*UV(4961)+JVS(31686)*UV(5043)+JVS(42280)*UV(5250) - JTUV(2136) = JVS(6714)*UV(1660)+JVS(8961)*UV(2136)+JVS(16876)*UV(3613)+JVS(42281)*UV(5250)+JVS(48184)*UV(5253) - JTUV(2137) = JVS(2289)*UV(589)+JVS(8965)*UV(2137)+JVS(14270)*UV(3200)+JVS(33741)*UV(5141)+JVS(35173)*UV(5183)& - &+JVS(42282)*UV(5250) - JTUV(2138) = JVS(8969)*UV(2138)+JVS(35468)*UV(5188)+JVS(42283)*UV(5250)+JVS(45139)*UV(5251)+JVS(50982)*UV(5255) - JTUV(2139) = JVS(8973)*UV(2139)+JVS(28322)*UV(4812)+JVS(31035)*UV(5004)+JVS(38203)*UV(5231)+JVS(42284)*UV(5250) - JTUV(2140) = JVS(8977)*UV(2140)+JVS(36188)*UV(5198)+JVS(42285)*UV(5250)+JVS(50983)*UV(5255) - JTUV(2141) = JVS(8984)*UV(2141)+JVS(31701)*UV(5044)+JVS(42286)*UV(5250)+JVS(45140)*UV(5251)+JVS(50984)*UV(5255) - JTUV(2142) = JVS(8988)*UV(2142)+JVS(21993)*UV(4220)+JVS(29392)*UV(4902)+JVS(42287)*UV(5250)+JVS(48185)*UV(5253) - JTUV(2143) = JVS(527)*UV(138)+JVS(8992)*UV(2143)+JVS(22379)*UV(4257)+JVS(42288)*UV(5250) - JTUV(2144) = JVS(8997)*UV(2144)+JVS(22406)*UV(4260)+JVS(32200)*UV(5071)+JVS(42289)*UV(5250)+JVS(50985)*UV(5255) - JTUV(2145) = JVS(9001)*UV(2145)+JVS(25350)*UV(4540)+JVS(45141)*UV(5251)+JVS(50986)*UV(5255) - JTUV(2146) = JVS(9006)*UV(2146)+JVS(22820)*UV(4301)+JVS(37201)*UV(5215)+JVS(42290)*UV(5250)+JVS(50987)*UV(5255) - JTUV(2147) = JVS(9010)*UV(2147)+JVS(11683)*UV(2717)+JVS(16999)*UV(3628)+JVS(31234)*UV(5015)+JVS(42291)*UV(5250) - JTUV(2148) = JVS(9014)*UV(2148)+JVS(30902)*UV(4997)+JVS(33235)*UV(5125)+JVS(38024)*UV(5230)+JVS(42292)*UV(5250)& - &+JVS(45142)*UV(5251)+JVS(50988)*UV(5255) - JTUV(2149) = JVS(9017)*UV(2149)+JVS(11644)*UV(2710)+JVS(18722)*UV(3843)+JVS(42293)*UV(5250)+JVS(48186)*UV(5253) - JTUV(2150) = JVS(9021)*UV(2150)+JVS(34076)*UV(5152)+JVS(38204)*UV(5231)+JVS(42294)*UV(5250)+JVS(48187)*UV(5253) - JTUV(2151) = JVS(2472)*UV(632)+JVS(9025)*UV(2151)+JVS(22694)*UV(4290)+JVS(42295)*UV(5250) - JTUV(2152) = JVS(3192)*UV(800)+JVS(9029)*UV(2152)+JVS(24222)*UV(4440)+JVS(42296)*UV(5250) - JTUV(2153) = JVS(2519)*UV(643)+JVS(9033)*UV(2153)+JVS(19693)*UV(3958)+JVS(24586)*UV(4477)+JVS(42297)*UV(5250) - JTUV(2154) = JVS(9039)*UV(2154)+JVS(28948)*UV(4863)+JVS(35071)*UV(5182)+JVS(37130)*UV(5214)+JVS(42298)*UV(5250) - JTUV(2155) = JVS(762)*UV(180)+JVS(9043)*UV(2155)+JVS(32630)*UV(5095)+JVS(42299)*UV(5250)+JVS(48189)*UV(5253) - JTUV(2156) = JVS(9047)*UV(2156)+JVS(15027)*UV(3344)+JVS(16974)*UV(3626)+JVS(20579)*UV(4060)+JVS(42300)*UV(5250) - JTUV(2157) = JVS(583)*UV(151)+JVS(9051)*UV(2157)+JVS(14325)*UV(3213)+JVS(42301)*UV(5250)+JVS(48190)*UV(5253) - JTUV(2158) = JVS(9055)*UV(2158)+JVS(35608)*UV(5191)+JVS(35754)*UV(5193)+JVS(50990)*UV(5255) - JTUV(2159) = JVS(9060)*UV(2159)+JVS(21925)*UV(4214)+JVS(29928)*UV(4938)+JVS(42302)*UV(5250)+JVS(50991)*UV(5255) - JTUV(2160) = JVS(2436)*UV(624)+JVS(7059)*UV(1736)+JVS(9064)*UV(2160)+JVS(42303)*UV(5250) - JTUV(2161) = JVS(744)*UV(177)+JVS(9068)*UV(2161)+JVS(14001)*UV(3148)+JVS(42304)*UV(5250)+JVS(48191)*UV(5253) - JTUV(2162) = JVS(9072)*UV(2162)+JVS(35013)*UV(5180)+JVS(35469)*UV(5188)+JVS(50993)*UV(5255) - JTUV(2163) = JVS(9078)*UV(2163)+JVS(33236)*UV(5125)+JVS(38205)*UV(5231) - JTUV(2164) = JVS(9085)*UV(2164)+JVS(17871)*UV(3736)+JVS(17879)*UV(3737)+JVS(42305)*UV(5250)+JVS(48192)*UV(5253) - JTUV(2165) = JVS(812)*UV(189)+JVS(9089)*UV(2165)+JVS(14478)*UV(3242)+JVS(42306)*UV(5250)+JVS(48193)*UV(5253) - JTUV(2166) = JVS(3251)*UV(815)+JVS(9093)*UV(2166)+JVS(10813)*UV(2547)+JVS(42307)*UV(5250) - JTUV(2167) = JVS(9097)*UV(2167)+JVS(18157)*UV(3769)+JVS(20258)*UV(4025)+JVS(42308)*UV(5250)+JVS(53226)*UV(5256) - JTUV(2168) = JVS(886)*UV(202)+JVS(9101)*UV(2168)+JVS(18997)*UV(3875)+JVS(42309)*UV(5250)+JVS(48195)*UV(5253) - JTUV(2169) = JVS(904)*UV(205)+JVS(9105)*UV(2169)+JVS(18836)*UV(3856)+JVS(42310)*UV(5250)+JVS(48196)*UV(5253) - JTUV(2170) = JVS(9109)*UV(2170)+JVS(21625)*UV(4183)+JVS(45143)*UV(5251)+JVS(50994)*UV(5255) - JTUV(2171) = JVS(9114)*UV(2171)+JVS(23841)*UV(4404)+JVS(35174)*UV(5183)+JVS(42311)*UV(5250)+JVS(45144)*UV(5251) - JTUV(2172) = JVS(9118)*UV(2172)+JVS(9123)*UV(2173)+JVS(22286)*UV(4248)+JVS(42312)*UV(5250)+JVS(48197)*UV(5253) - JTUV(2173) = JVS(9124)*UV(2173)+JVS(22416)*UV(4261)+JVS(50995)*UV(5255) - JTUV(2174) = JVS(9130)*UV(2174)+JVS(13682)*UV(3090)+JVS(17936)*UV(3744)+JVS(29757)*UV(4925)+JVS(42313)*UV(5250) - JTUV(2175) = JVS(9134)*UV(2175)+JVS(29608)*UV(4916)+JVS(37392)*UV(5222)+JVS(42314)*UV(5250)+JVS(50996)*UV(5255) - JTUV(2176) = JVS(9138)*UV(2176)+JVS(24530)*UV(4470)+JVS(38025)*UV(5230)+JVS(42315)*UV(5250)+JVS(48198)*UV(5253) - JTUV(2177) = JVS(9142)*UV(2177)+JVS(23526)*UV(4376)+JVS(24597)*UV(4478)+JVS(42316)*UV(5250) - JTUV(2178) = JVS(2534)*UV(646)+JVS(9147)*UV(2178)+JVS(19798)*UV(3971)+JVS(42317)*UV(5250) - JTUV(2179) = JVS(9151)*UV(2179)+JVS(16541)*UV(3572)+JVS(21526)*UV(4174)+JVS(30511)*UV(4972)+JVS(42318)*UV(5250) - JTUV(2180) = JVS(3179)*UV(797)+JVS(9155)*UV(2180)+JVS(19130)*UV(3891)+JVS(42319)*UV(5250) - JTUV(2181) = JVS(9159)*UV(2181)+JVS(37104)*UV(5213)+JVS(42320)*UV(5250)+JVS(48200)*UV(5253) - JTUV(2182) = JVS(6855)*UV(1692)+JVS(9164)*UV(2182)+JVS(21003)*UV(4110)+JVS(42321)*UV(5250)+JVS(48201)*UV(5253) - JTUV(2183) = JVS(9168)*UV(2183)+JVS(27618)*UV(4753)+JVS(37337)*UV(5221)+JVS(42322)*UV(5250)+JVS(48202)*UV(5253) - JTUV(2184) = JVS(7060)*UV(1736)+JVS(9172)*UV(2184)+JVS(42323)*UV(5250)+JVS(48203)*UV(5253) - JTUV(2185) = JVS(9177)*UV(2185)+JVS(13250)*UV(3009)+JVS(16060)*UV(3504)+JVS(42324)*UV(5250)+JVS(48204)*UV(5253) - JTUV(2186) = JVS(9181)*UV(2186)+JVS(15353)*UV(3389)+JVS(19658)*UV(3954)+JVS(50999)*UV(5255) - JTUV(2187) = JVS(7098)*UV(1743)+JVS(9186)*UV(2187)+JVS(17396)*UV(3676)+JVS(22114)*UV(4231)+JVS(42325)*UV(5250) - JTUV(2188) = JVS(7132)*UV(1750)+JVS(9190)*UV(2188)+JVS(33764)*UV(5142)+JVS(35755)*UV(5193)+JVS(42326)*UV(5250) - JTUV(2189) = JVS(8474)*UV(2030)+JVS(9194)*UV(2189)+JVS(22811)*UV(4300)+JVS(42327)*UV(5250)+JVS(48205)*UV(5253) - JTUV(2190) = JVS(9200)*UV(2190)+JVS(33498)*UV(5136)+JVS(38206)*UV(5231) - JTUV(2191) = JVS(9207)*UV(2191)+JVS(29490)*UV(4909)+JVS(42328)*UV(5250)+JVS(45145)*UV(5251)+JVS(51003)*UV(5255) - JTUV(2192) = JVS(9211)*UV(2192)+JVS(12662)*UV(2906)+JVS(19417)*UV(3924)+JVS(32288)*UV(5077)+JVS(42329)*UV(5250) - JTUV(2193) = JVS(9215)*UV(2193)+JVS(15465)*UV(3404)+JVS(18932)*UV(3868)+JVS(42330)*UV(5250)+JVS(48206)*UV(5253) - JTUV(2194) = JVS(9219)*UV(2194)+JVS(18244)*UV(3779)+JVS(27406)*UV(4736)+JVS(42331)*UV(5250)+JVS(48207)*UV(5253) - JTUV(2195) = JVS(933)*UV(211)+JVS(9223)*UV(2195)+JVS(15238)*UV(3373)+JVS(42332)*UV(5250)+JVS(48208)*UV(5253) - JTUV(2196) = JVS(9227)*UV(2196)+JVS(15268)*UV(3377)+JVS(16843)*UV(3609)+JVS(42333)*UV(5250)+JVS(48209)*UV(5253) - JTUV(2197) = JVS(9232)*UV(2197)+JVS(31119)*UV(5008)+JVS(42334)*UV(5250)+JVS(45146)*UV(5251)+JVS(51004)*UV(5255) - JTUV(2198) = JVS(7890)*UV(1906)+JVS(9236)*UV(2198)+JVS(25169)*UV(4524)+JVS(42335)*UV(5250)+JVS(48210)*UV(5253) - JTUV(2199) = JVS(9240)*UV(2199)+JVS(14950)*UV(3333)+JVS(15202)*UV(3369)+JVS(42336)*UV(5250)+JVS(48211)*UV(5253) - JTUV(2200) = JVS(9244)*UV(2200)+JVS(31976)*UV(5058)+JVS(45147)*UV(5251)+JVS(51006)*UV(5255) - JTUV(2201) = JVS(9249)*UV(2201)+JVS(34203)*UV(5158)+JVS(35756)*UV(5193)+JVS(45148)*UV(5251) - JTUV(2202) = JVS(2876)*UV(727)+JVS(9254)*UV(2202)+JVS(19594)*UV(3946)+JVS(42337)*UV(5250)+JVS(48212)*UV(5253) - JTUV(2203) = JVS(9258)*UV(2203)+JVS(32952)*UV(5110)+JVS(38207)*UV(5231)+JVS(51008)*UV(5255) - JTUV(2204) = JVS(3141)*UV(787)+JVS(9263)*UV(2204)+JVS(9665)*UV(2295)+JVS(42338)*UV(5250) - JTUV(2205) = JVS(2230)*UV(574)+JVS(9267)*UV(2205)+JVS(19041)*UV(3880)+JVS(42339)*UV(5250) - JTUV(2206) = JVS(8626)*UV(2060)+JVS(9271)*UV(2206)+JVS(21579)*UV(4179)+JVS(42340)*UV(5250)+JVS(48213)*UV(5253) - JTUV(2207) = JVS(9277)*UV(2207)+JVS(17626)*UV(3706)+JVS(34304)*UV(5160) - JTUV(2208) = JVS(9284)*UV(2208)+JVS(21848)*UV(4206)+JVS(34919)*UV(5178)+JVS(42341)*UV(5250)+JVS(51010)*UV(5255) - JTUV(2209) = JVS(9290)*UV(2209)+JVS(31902)*UV(5054)+JVS(42342)*UV(5250)+JVS(45149)*UV(5251)+JVS(51011)*UV(5255) - JTUV(2210) = JVS(9294)*UV(2210)+JVS(16867)*UV(3612)+JVS(45150)*UV(5251)+JVS(51012)*UV(5255) - JTUV(2211) = JVS(9299)*UV(2211)+JVS(34305)*UV(5160)+JVS(39773)*UV(5243)+JVS(42343)*UV(5250)+JVS(51013)*UV(5255) - JTUV(2212) = JVS(9303)*UV(2212)+JVS(17201)*UV(3651)+JVS(29021)*UV(4868)+JVS(33911)*UV(5145)+JVS(42344)*UV(5250)& - &+JVS(45151)*UV(5251)+JVS(51014)*UV(5255) - JTUV(2213) = JVS(681)*UV(167)+JVS(9306)*UV(2213)+JVS(27198)*UV(4717)+JVS(42345)*UV(5250)+JVS(48214)*UV(5253) - JTUV(2214) = JVS(7002)*UV(1724)+JVS(9310)*UV(2214)+JVS(22579)*UV(4278)+JVS(34306)*UV(5160)+JVS(42346)*UV(5250) - JTUV(2215) = JVS(9314)*UV(2215)+JVS(13542)*UV(3066)+JVS(16826)*UV(3607)+JVS(42347)*UV(5250)+JVS(48215)*UV(5253) - JTUV(2216) = JVS(860)*UV(197)+JVS(9318)*UV(2216)+JVS(13831)*UV(3117)+JVS(42348)*UV(5250)+JVS(48216)*UV(5253) - JTUV(2217) = JVS(2405)*UV(617)+JVS(9322)*UV(2217)+JVS(19908)*UV(3984)+JVS(42349)*UV(5250) - JTUV(2218) = JVS(6249)*UV(1559)+JVS(9326)*UV(2218)+JVS(19925)*UV(3986)+JVS(42350)*UV(5250)+JVS(48217)*UV(5253) - JTUV(2219) = JVS(9330)*UV(2219)+JVS(29739)*UV(4924)+JVS(35759)*UV(5193)+JVS(42351)*UV(5250)+JVS(51016)*UV(5255) - JTUV(2220) = JVS(9334)*UV(2220)+JVS(11341)*UV(2647)+JVS(27417)*UV(4737)+JVS(42352)*UV(5250)+JVS(48218)*UV(5253) - JTUV(2221) = JVS(2235)*UV(575)+JVS(9338)*UV(2221)+JVS(14191)*UV(3185)+JVS(28773)*UV(4850)+JVS(33852)*UV(5143)& - &+JVS(42353)*UV(5250) - JTUV(2222) = JVS(9342)*UV(2222)+JVS(23497)*UV(4373)+JVS(42354)*UV(5250)+JVS(48219)*UV(5253) - JTUV(2223) = JVS(9347)*UV(2223)+JVS(15466)*UV(3404)+JVS(18933)*UV(3868)+JVS(29382)*UV(4901)+JVS(42355)*UV(5250) - JTUV(2224) = JVS(892)*UV(203)+JVS(9351)*UV(2224)+JVS(28655)*UV(4842)+JVS(42356)*UV(5250)+JVS(48220)*UV(5253) - JTUV(2225) = JVS(9355)*UV(2225)+JVS(14813)*UV(3305)+JVS(20042)*UV(4000)+JVS(42357)*UV(5250) - JTUV(2226) = JVS(9361)*UV(2226)+JVS(14418)*UV(3233)+JVS(33393)*UV(5130) - JTUV(2227) = JVS(637)*UV(160)+JVS(9368)*UV(2227)+JVS(34577)*UV(5163)+JVS(34623)*UV(5165)+JVS(42358)*UV(5250) - JTUV(2228) = JVS(9372)*UV(2228)+JVS(22134)*UV(4233)+JVS(24892)*UV(4502)+JVS(42359)*UV(5250)+JVS(51017)*UV(5255) - JTUV(2229) = JVS(9376)*UV(2229)+JVS(35760)*UV(5193)+JVS(38209)*UV(5231)+JVS(51018)*UV(5255) - JTUV(2230) = JVS(9382)*UV(2230)+JVS(18902)*UV(3864)+JVS(38210)*UV(5231)+JVS(38803)*UV(5232)+JVS(42360)*UV(5250) - JTUV(2231) = JVS(9387)*UV(2231)+JVS(28853)*UV(4855)+JVS(32390)*UV(5083)+JVS(39917)*UV(5244)+JVS(42361)*UV(5250) - JTUV(2232) = JVS(7874)*UV(1903)+JVS(9391)*UV(2232)+JVS(17156)*UV(3645)+JVS(42362)*UV(5250)+JVS(48221)*UV(5253) - JTUV(2233) = JVS(6856)*UV(1692)+JVS(9395)*UV(2233)+JVS(18236)*UV(3778)+JVS(21004)*UV(4110)+JVS(42363)*UV(5250) - JTUV(2234) = JVS(9399)*UV(2234)+JVS(33182)*UV(5123)+JVS(45152)*UV(5251)+JVS(51021)*UV(5255) - JTUV(2235) = JVS(6288)*UV(1568)+JVS(9404)*UV(2235)+JVS(23912)*UV(4411)+JVS(32201)*UV(5071)+JVS(42364)*UV(5250) - JTUV(2236) = JVS(9408)*UV(2236)+JVS(13624)*UV(3080)+JVS(17534)*UV(3693)+JVS(42365)*UV(5250)+JVS(51023)*UV(5255) - JTUV(2237) = JVS(6962)*UV(1715)+JVS(9412)*UV(2237)+JVS(36810)*UV(5203)+JVS(42366)*UV(5250)+JVS(48222)*UV(5253) - JTUV(2238) = JVS(9416)*UV(2238)+JVS(33586)*UV(5139)+JVS(45153)*UV(5251)+JVS(51025)*UV(5255) - JTUV(2239) = JVS(1342)*UV(326)+JVS(9421)*UV(2239)+JVS(16012)*UV(3497)+JVS(42367)*UV(5250)+JVS(48223)*UV(5253) - JTUV(2240) = JVS(9425)*UV(2240)+JVS(15443)*UV(3401)+JVS(31556)*UV(5036)+JVS(42368)*UV(5250)+JVS(48224)*UV(5253) - JTUV(2241) = JVS(9429)*UV(2241)+JVS(13749)*UV(3103)+JVS(29917)*UV(4937)+JVS(42369)*UV(5250)+JVS(48225)*UV(5253) - JTUV(2242) = JVS(9433)*UV(2242)+JVS(38211)*UV(5231)+JVS(40572)*UV(5249)+JVS(42370)*UV(5250)+JVS(48226)*UV(5253) - JTUV(2243) = JVS(9437)*UV(2243)+JVS(34136)*UV(5155)+JVS(42371)*UV(5250)+JVS(45154)*UV(5251)+JVS(51026)*UV(5255) - JTUV(2244) = JVS(6685)*UV(1654)+JVS(9441)*UV(2244)+JVS(19577)*UV(3944)+JVS(34307)*UV(5160)+JVS(35175)*UV(5183)& - &+JVS(42372)*UV(5250) - JTUV(2245) = JVS(9445)*UV(2245)+JVS(11067)*UV(2594)+JVS(16344)*UV(3544)+JVS(42373)*UV(5250)+JVS(48227)*UV(5253) - JTUV(2246) = JVS(9449)*UV(2246)+JVS(13142)*UV(2990)+JVS(16717)*UV(3594)+JVS(42374)*UV(5250)+JVS(48228)*UV(5253) - JTUV(2247) = JVS(9453)*UV(2247)+JVS(12853)*UV(2939)+JVS(31918)*UV(5055)+JVS(34031)*UV(5150)+JVS(42375)*UV(5250) - JTUV(2248) = JVS(9457)*UV(2248)+JVS(21810)*UV(4202)+JVS(31470)*UV(5031)+JVS(42376)*UV(5250)+JVS(51027)*UV(5255) - JTUV(2249) = JVS(9461)*UV(2249)+JVS(37393)*UV(5222)+JVS(39215)*UV(5234)+JVS(42377)*UV(5250) - JTUV(2250) = JVS(776)*UV(183)+JVS(9466)*UV(2250)+JVS(39573)*UV(5240)+JVS(42378)*UV(5250)+JVS(48229)*UV(5253) - JTUV(2251) = JVS(9470)*UV(2251)+JVS(21857)*UV(4207)+JVS(31919)*UV(5055)+JVS(42379)*UV(5250)+JVS(51028)*UV(5255) - JTUV(2252) = JVS(9474)*UV(2252)+JVS(14466)*UV(3241)+JVS(15636)*UV(3428)+JVS(37305)*UV(5219)+JVS(42380)*UV(5250) - JTUV(2253) = JVS(9478)*UV(2253)+JVS(13097)*UV(2982)+JVS(18255)*UV(3780)+JVS(42381)*UV(5250)+JVS(48230)*UV(5253) - JTUV(2254) = JVS(9482)*UV(2254)+JVS(16911)*UV(3617)+JVS(38212)*UV(5231)+JVS(42382)*UV(5250)+JVS(48231)*UV(5253) - JTUV(2255) = JVS(9487)*UV(2255)+JVS(32312)*UV(5079)+JVS(42383)*UV(5250)+JVS(45155)*UV(5251)+JVS(51029)*UV(5255) - JTUV(2256) = JVS(9491)*UV(2256)+JVS(13271)*UV(3013)+JVS(22594)*UV(4279)+JVS(42384)*UV(5250)+JVS(48232)*UV(5253) - JTUV(2257) = JVS(1206)*UV(290)+JVS(9495)*UV(2257)+JVS(12412)*UV(2856)+JVS(42385)*UV(5250)+JVS(48233)*UV(5253) - JTUV(2258) = JVS(9499)*UV(2258)+JVS(27889)*UV(4776)+JVS(38804)*UV(5232)+JVS(39216)*UV(5234)+JVS(42386)*UV(5250)& - &+JVS(45156)*UV(5251)+JVS(51030)*UV(5255) - JTUV(2259) = JVS(9502)*UV(2259)+JVS(22939)*UV(4313)+JVS(28562)*UV(4834)+JVS(42387)*UV(5250)+JVS(51031)*UV(5255) - JTUV(2260) = JVS(219)*UV(51)+JVS(9506)*UV(2260)+JVS(16096)*UV(3510)+JVS(25880)*UV(4595)+JVS(42388)*UV(5250) - JTUV(2261) = JVS(6289)*UV(1568)+JVS(9510)*UV(2261)+JVS(32202)*UV(5071)+JVS(42389)*UV(5250)+JVS(48234)*UV(5253) - JTUV(2262) = JVS(3246)*UV(814)+JVS(9514)*UV(2262)+JVS(19584)*UV(3945)+JVS(42390)*UV(5250) - JTUV(2263) = JVS(9518)*UV(2263)+JVS(24234)*UV(4441)+JVS(24320)*UV(4449)+JVS(35176)*UV(5183)+JVS(42391)*UV(5250) - JTUV(2264) = JVS(905)*UV(205)+JVS(9522)*UV(2264)+JVS(18837)*UV(3856)+JVS(32379)*UV(5082)+JVS(42392)*UV(5250) - JTUV(2265) = JVS(9527)*UV(2265)+JVS(28656)*UV(4842)+JVS(31260)*UV(5017)+JVS(39918)*UV(5244)+JVS(42393)*UV(5250) - JTUV(2266) = JVS(2605)*UV(663)+JVS(7072)*UV(1738)+JVS(9531)*UV(2266)+JVS(42394)*UV(5250) - JTUV(2267) = JVS(2134)*UV(550)+JVS(9535)*UV(2267)+JVS(17482)*UV(3687)+JVS(42395)*UV(5250) - JTUV(2268) = JVS(8902)*UV(2122)+JVS(9539)*UV(2268)+JVS(21101)*UV(4122)+JVS(42396)*UV(5250)+JVS(48237)*UV(5253) - JTUV(2269) = JVS(788)*UV(185)+JVS(9543)*UV(2269)+JVS(25751)*UV(4581)+JVS(34181)*UV(5157)+JVS(42397)*UV(5250) - JTUV(2270) = JVS(9547)*UV(2270)+JVS(11036)*UV(2589)+JVS(18075)*UV(3759)+JVS(42398)*UV(5250)+JVS(48238)*UV(5253) - JTUV(2271) = JVS(9551)*UV(2271)+JVS(10893)*UV(2562)+JVS(16373)*UV(3548)+JVS(42399)*UV(5250)+JVS(48239)*UV(5253) - JTUV(2272) = JVS(9555)*UV(2272)+JVS(36016)*UV(5194)+JVS(42400)*UV(5250)+JVS(51035)*UV(5255) - JTUV(2273) = JVS(9562)*UV(2273)+JVS(18691)*UV(3839)+JVS(31079)*UV(5006)+JVS(39919)*UV(5244)+JVS(42401)*UV(5250) - JTUV(2274) = JVS(9566)*UV(2274)+JVS(17663)*UV(3711)+JVS(23571)*UV(4381)+JVS(42402)*UV(5250)+JVS(53227)*UV(5256) - JTUV(2275) = JVS(9570)*UV(2275)+JVS(12845)*UV(2938)+JVS(15610)*UV(3424)+JVS(42403)*UV(5250)+JVS(48240)*UV(5253) - JTUV(2276) = JVS(9574)*UV(2276)+JVS(16791)*UV(3603)+JVS(42404)*UV(5250)+JVS(48241)*UV(5253) - JTUV(2277) = JVS(670)*UV(165)+JVS(9579)*UV(2277)+JVS(18796)*UV(3851)+JVS(42405)*UV(5250)+JVS(48242)*UV(5253) - JTUV(2278) = JVS(9583)*UV(2278)+JVS(31133)*UV(5009)+JVS(42406)*UV(5250)+JVS(48243)*UV(5253) - JTUV(2279) = JVS(9588)*UV(2279)+JVS(29929)*UV(4938)+JVS(39217)*UV(5234)+JVS(51036)*UV(5255) - JTUV(2280) = JVS(9593)*UV(2280)+JVS(16138)*UV(3516)+JVS(38213)*UV(5231)+JVS(42407)*UV(5250)+JVS(48244)*UV(5253) - JTUV(2281) = JVS(9597)*UV(2281)+JVS(17427)*UV(3680)+JVS(18271)*UV(3782)+JVS(42408)*UV(5250)+JVS(53228)*UV(5256) - JTUV(2282) = JVS(9601)*UV(2282)+JVS(11578)*UV(2697)+JVS(13890)*UV(3126)+JVS(42409)*UV(5250)+JVS(48245)*UV(5253) - JTUV(2283) = JVS(9605)*UV(2283)+JVS(18353)*UV(3793)+JVS(25853)*UV(4592)+JVS(42410)*UV(5250) - JTUV(2284) = JVS(9611)*UV(2284)+JVS(19350)*UV(3917)+JVS(51037)*UV(5255) - JTUV(2285) = JVS(638)*UV(160)+JVS(9618)*UV(2285)+JVS(34624)*UV(5165)+JVS(42411)*UV(5250)+JVS(48246)*UV(5253) - JTUV(2286) = JVS(9622)*UV(2286)+JVS(12710)*UV(2914)+JVS(30090)*UV(4943)+JVS(37847)*UV(5228)+JVS(42412)*UV(5250)& - &+JVS(45157)*UV(5251)+JVS(51038)*UV(5255) - JTUV(2287) = JVS(9625)*UV(2287)+JVS(32819)*UV(5103)+JVS(45158)*UV(5251)+JVS(51039)*UV(5255) - JTUV(2288) = JVS(7073)*UV(1738)+JVS(9630)*UV(2288)+JVS(42413)*UV(5250)+JVS(48247)*UV(5253) - JTUV(2289) = JVS(2529)*UV(645)+JVS(9635)*UV(2289)+JVS(18903)*UV(3864)+JVS(42414)*UV(5250) - JTUV(2290) = JVS(9639)*UV(2290)+JVS(24089)*UV(4427)+JVS(34625)*UV(5165)+JVS(42415)*UV(5250)+JVS(48248)*UV(5253) - JTUV(2291) = JVS(9643)*UV(2291)+JVS(15383)*UV(3393)+JVS(17962)*UV(3747)+JVS(42416)*UV(5250)+JVS(48249)*UV(5253) - JTUV(2292) = JVS(6868)*UV(1695)+JVS(9647)*UV(2292)+JVS(35609)*UV(5191)+JVS(37981)*UV(5229)+JVS(42417)*UV(5250) - JTUV(2293) = JVS(9653)*UV(2293)+JVS(21297)*UV(4147)+JVS(34308)*UV(5160) - JTUV(2294) = JVS(2950)*UV(743)+JVS(9660)*UV(2294)+JVS(17886)*UV(3738)+JVS(42418)*UV(5250) - JTUV(2295) = JVS(9666)*UV(2295)+JVS(20304)*UV(4031)+JVS(26159)*UV(4622)+JVS(39920)*UV(5244)+JVS(42419)*UV(5250) - JTUV(2296) = JVS(6440)*UV(1604)+JVS(9670)*UV(2296)+JVS(15423)*UV(3398)+JVS(42420)*UV(5250)+JVS(48251)*UV(5253) - JTUV(2297) = JVS(9674)*UV(2297)+JVS(17860)*UV(3735)+JVS(42421)*UV(5250)+JVS(48252)*UV(5253) - JTUV(2298) = JVS(3090)*UV(776)+JVS(9679)*UV(2298)+JVS(19376)*UV(3919)+JVS(42422)*UV(5250) - JTUV(2299) = JVS(9612)*UV(2284)+JVS(9683)*UV(2299)+JVS(19351)*UV(3917)+JVS(42423)*UV(5250)+JVS(48253)*UV(5253) - JTUV(2300) = JVS(2736)*UV(695)+JVS(9687)*UV(2300)+JVS(11498)*UV(2680)+JVS(42424)*UV(5250) - JTUV(2301) = JVS(9691)*UV(2301)+JVS(21935)*UV(4215)+JVS(36811)*UV(5203)+JVS(42425)*UV(5250)+JVS(51042)*UV(5255) - JTUV(2302) = JVS(7356)*UV(1796)+JVS(9695)*UV(2302)+JVS(17186)*UV(3649)+JVS(42426)*UV(5250)+JVS(48254)*UV(5253) - JTUV(2303) = JVS(9699)*UV(2303)+JVS(9704)*UV(2304)+JVS(11696)*UV(2719)+JVS(42427)*UV(5250)+JVS(48255)*UV(5253) - JTUV(2304) = JVS(9705)*UV(2304)+JVS(14419)*UV(3233)+JVS(32834)*UV(5104) - JTUV(2305) = JVS(2671)*UV(679)+JVS(9528)*UV(2265)+JVS(9711)*UV(2305)+JVS(28657)*UV(4842)+JVS(39921)*UV(5244)& - &+JVS(42428)*UV(5250) - JTUV(2306) = JVS(6795)*UV(1679)+JVS(9715)*UV(2306)+JVS(35365)*UV(5184)+JVS(42429)*UV(5250)+JVS(48256)*UV(5253) - JTUV(2307) = JVS(9719)*UV(2307)+JVS(21473)*UV(4168)+JVS(33587)*UV(5139)+JVS(35177)*UV(5183)+JVS(42430)*UV(5250) - JTUV(2308) = JVS(9723)*UV(2308)+JVS(23024)*UV(4321)+JVS(28543)*UV(4832)+JVS(37316)*UV(5220)+JVS(51045)*UV(5255) - JTUV(2309) = JVS(7491)*UV(1821)+JVS(9727)*UV(2309)+JVS(17258)*UV(3657)+JVS(42431)*UV(5250)+JVS(48257)*UV(5253) - JTUV(2310) = JVS(9731)*UV(2310)+JVS(26094)*UV(4618)+JVS(42432)*UV(5250)+JVS(45159)*UV(5251)+JVS(51047)*UV(5255) - JTUV(2311) = JVS(9735)*UV(2311)+JVS(15247)*UV(3374)+JVS(19685)*UV(3957)+JVS(42433)*UV(5250)+JVS(48258)*UV(5253) - JTUV(2312) = JVS(2441)*UV(625)+JVS(5979)*UV(1493)+JVS(9739)*UV(2312)+JVS(42434)*UV(5250) - JTUV(2313) = JVS(1139)*UV(271)+JVS(9743)*UV(2313)+JVS(29585)*UV(4914)+JVS(42435)*UV(5250)+JVS(48259)*UV(5253) - JTUV(2314) = JVS(9747)*UV(2314)+JVS(25146)*UV(4522)+JVS(34920)*UV(5178)+JVS(42436)*UV(5250)+JVS(48260)*UV(5253) - JTUV(2315) = JVS(9753)*UV(2315)+JVS(31868)*UV(5052)+JVS(42437)*UV(5250)+JVS(45160)*UV(5251)+JVS(51049)*UV(5255) - JTUV(2316) = JVS(2091)*UV(539)+JVS(9757)*UV(2316)+JVS(19846)*UV(3977)+JVS(42438)*UV(5250) - JTUV(2317) = JVS(9761)*UV(2317)+JVS(16756)*UV(3599)+JVS(20075)*UV(4004)+JVS(42439)*UV(5250)+JVS(48261)*UV(5253) - JTUV(2318) = JVS(9765)*UV(2318)+JVS(12775)*UV(2926)+JVS(36914)*UV(5208)+JVS(38026)*UV(5230)+JVS(42440)*UV(5250) - JTUV(2319) = JVS(9769)*UV(2319)+JVS(22237)*UV(4243)+JVS(30521)*UV(4973)+JVS(42441)*UV(5250)+JVS(51050)*UV(5255) - JTUV(2320) = JVS(9773)*UV(2320)+JVS(21878)*UV(4209)+JVS(31338)*UV(5023)+JVS(42442)*UV(5250)+JVS(51051)*UV(5255) - JTUV(2321) = JVS(9777)*UV(2321)+JVS(9782)*UV(2322)+JVS(15193)*UV(3368)+JVS(42443)*UV(5250)+JVS(48262)*UV(5253) - JTUV(2322) = JVS(9783)*UV(2322)+JVS(15194)*UV(3368)+JVS(51052)*UV(5255) - JTUV(2323) = JVS(9789)*UV(2323)+JVS(28513)*UV(4830)+JVS(29528)*UV(4910)+JVS(38214)*UV(5231) - JTUV(2324) = JVS(9795)*UV(2324)+JVS(10483)*UV(2480)+JVS(51053)*UV(5255) - JTUV(2325) = JVS(9802)*UV(2325)+JVS(38215)*UV(5231)+JVS(39574)*UV(5240)+JVS(42444)*UV(5250)+JVS(48263)*UV(5253) - JTUV(2326) = JVS(9806)*UV(2326)+JVS(38216)*UV(5231)+JVS(39922)*UV(5244) - JTUV(2327) = JVS(1234)*UV(297)+JVS(9813)*UV(2327)+JVS(11697)*UV(2719)+JVS(42445)*UV(5250)+JVS(48264)*UV(5253) - JTUV(2328) = JVS(836)*UV(193)+JVS(9817)*UV(2328)+JVS(22040)*UV(4224)+JVS(42446)*UV(5250)+JVS(48265)*UV(5253) - JTUV(2329) = JVS(9821)*UV(2329)+JVS(22082)*UV(4228)+JVS(37752)*UV(5225)+JVS(42447)*UV(5250)+JVS(51054)*UV(5255) - JTUV(2330) = JVS(9825)*UV(2330)+JVS(11279)*UV(2638)+JVS(15989)*UV(3493)+JVS(42448)*UV(5250)+JVS(48266)*UV(5253) - JTUV(2331) = JVS(874)*UV(200)+JVS(9829)*UV(2331)+JVS(22318)*UV(4251)+JVS(25313)*UV(4537)+JVS(42449)*UV(5250) - JTUV(2332) = JVS(9833)*UV(2332)+JVS(12927)*UV(2953)+JVS(20945)*UV(4104)+JVS(42450)*UV(5250)+JVS(48267)*UV(5253) - JTUV(2333) = JVS(9837)*UV(2333)+JVS(9842)*UV(2334)+JVS(15524)*UV(3412)+JVS(42451)*UV(5250)+JVS(48268)*UV(5253) - JTUV(2334) = JVS(9843)*UV(2334)+JVS(15525)*UV(3412)+JVS(51055)*UV(5255) - JTUV(2335) = JVS(9849)*UV(2335)+JVS(31557)*UV(5036)+JVS(42452)*UV(5250)+JVS(45161)*UV(5251)+JVS(51056)*UV(5255) - JTUV(2336) = JVS(9853)*UV(2336)+JVS(28073)*UV(4796)+JVS(33588)*UV(5139)+JVS(35178)*UV(5183)+JVS(42453)*UV(5250)& - &+JVS(45162)*UV(5251)+JVS(51057)*UV(5255) - JTUV(2337) = JVS(9856)*UV(2337)+JVS(13364)*UV(3032)+JVS(31672)*UV(5042)+JVS(42454)*UV(5250)+JVS(48269)*UV(5253) - JTUV(2338) = JVS(6899)*UV(1702)+JVS(9860)*UV(2338)+JVS(19999)*UV(3995)+JVS(42455)*UV(5250)+JVS(48270)*UV(5253) - JTUV(2339) = JVS(6963)*UV(1715)+JVS(9864)*UV(2339)+JVS(27641)*UV(4755)+JVS(36812)*UV(5203)+JVS(42456)*UV(5250) - JTUV(2340) = JVS(9868)*UV(2340)+JVS(36112)*UV(5196)+JVS(42457)*UV(5250)+JVS(51060)*UV(5255) - JTUV(2341) = JVS(9873)*UV(2341)+JVS(13857)*UV(3121)+JVS(15010)*UV(3342)+JVS(42458)*UV(5250)+JVS(48271)*UV(5253) - JTUV(2342) = JVS(2457)*UV(629)+JVS(9877)*UV(2342)+JVS(23042)*UV(4323)+JVS(42459)*UV(5250) - JTUV(2343) = JVS(9881)*UV(2343)+JVS(21654)*UV(4186)+JVS(42460)*UV(5250)+JVS(48273)*UV(5253) - JTUV(2344) = JVS(9886)*UV(2344)+JVS(15100)*UV(3354)+JVS(32137)*UV(5067)+JVS(39923)*UV(5244)+JVS(42461)*UV(5250)& - &+JVS(48274)*UV(5253)+JVS(51061)*UV(5255) - JTUV(2345) = JVS(9889)*UV(2345)+JVS(16772)*UV(3601)+JVS(31339)*UV(5023)+JVS(39218)*UV(5234)+JVS(42462)*UV(5250)& - &+JVS(45163)*UV(5251)+JVS(48275)*UV(5253) - JTUV(2346) = JVS(9892)*UV(2346)+JVS(35763)*UV(5193)+JVS(42463)*UV(5250)+JVS(45164)*UV(5251)+JVS(51062)*UV(5255) - JTUV(2347) = JVS(9896)*UV(2347)+JVS(17070)*UV(3638)+JVS(38217)*UV(5231)+JVS(42464)*UV(5250)+JVS(48276)*UV(5253) - JTUV(2348) = JVS(3171)*UV(795)+JVS(9900)*UV(2348)+JVS(19837)*UV(3976)+JVS(42465)*UV(5250) - JTUV(2349) = JVS(9904)*UV(2349)+JVS(23052)*UV(4324)+JVS(23063)*UV(4325)+JVS(39924)*UV(5244)+JVS(42466)*UV(5250) - JTUV(2350) = JVS(9908)*UV(2350)+JVS(13055)*UV(2974)+JVS(16626)*UV(3583)+JVS(42467)*UV(5250)+JVS(48277)*UV(5253) - JTUV(2351) = JVS(2965)*UV(746)+JVS(9912)*UV(2351)+JVS(20707)*UV(4076)+JVS(42468)*UV(5250) - JTUV(2352) = JVS(650)*UV(162)+JVS(9916)*UV(2352)+JVS(32391)*UV(5083)+JVS(42469)*UV(5250)+JVS(48279)*UV(5253) - JTUV(2353) = JVS(9920)*UV(2353)+JVS(15809)*UV(3461)+JVS(20485)*UV(4050)+JVS(42470)*UV(5250) - JTUV(2354) = JVS(9925)*UV(2354)+JVS(11979)*UV(2770)+JVS(25912)*UV(4599)+JVS(42471)*UV(5250)+JVS(48280)*UV(5253) - JTUV(2355) = JVS(9929)*UV(2355)+JVS(18245)*UV(3779)+JVS(25669)*UV(4571)+JVS(27407)*UV(4736)+JVS(42472)*UV(5250) - JTUV(2356) = JVS(9933)*UV(2356)+JVS(31574)*UV(5037)+JVS(39925)*UV(5244) - JTUV(2357) = JVS(9934)*UV(2356)+JVS(9940)*UV(2357)+JVS(15757)*UV(3450)+JVS(31575)*UV(5037)+JVS(39926)*UV(5244)& - &+JVS(42473)*UV(5250)+JVS(45165)*UV(5251)+JVS(51063)*UV(5255) - JTUV(2358) = JVS(2985)*UV(750)+JVS(9943)*UV(2358)+JVS(28976)*UV(4865)+JVS(35179)*UV(5183)+JVS(37394)*UV(5222)& - &+JVS(42474)*UV(5250) - JTUV(2359) = JVS(9947)*UV(2359)+JVS(16139)*UV(3516)+JVS(27712)*UV(4761)+JVS(31431)*UV(5028)+JVS(33031)*UV(5114)& - &+JVS(37848)*UV(5228)+JVS(42475)*UV(5250) - JTUV(2360) = JVS(2642)*UV(672)+JVS(9950)*UV(2360)+JVS(19659)*UV(3954)+JVS(42476)*UV(5250) - JTUV(2361) = JVS(9955)*UV(2361)+JVS(17963)*UV(3747)+JVS(51064)*UV(5255) - JTUV(2362) = JVS(2937)*UV(740)+JVS(9388)*UV(2231)+JVS(9962)*UV(2362)+JVS(32392)*UV(5083)+JVS(39927)*UV(5244)& - &+JVS(42477)*UV(5250) - JTUV(2363) = JVS(9966)*UV(2363)+JVS(16563)*UV(3575)+JVS(21407)*UV(4160)+JVS(29169)*UV(4881)+JVS(42478)*UV(5250) - JTUV(2364) = JVS(9970)*UV(2364)+JVS(34309)*UV(5160)+JVS(42479)*UV(5250)+JVS(51065)*UV(5255) - JTUV(2365) = JVS(755)*UV(179)+JVS(9975)*UV(2365)+JVS(28196)*UV(4801)+JVS(42480)*UV(5250)+JVS(48281)*UV(5253) - JTUV(2366) = JVS(9979)*UV(2366)+JVS(15162)*UV(3364)+JVS(19791)*UV(3970)+JVS(27271)*UV(4723)+JVS(42481)*UV(5250) - JTUV(2367) = JVS(9983)*UV(2367)+JVS(19705)*UV(3959)+JVS(42482)*UV(5250)+JVS(48282)*UV(5253) - JTUV(2368) = JVS(2325)*UV(597)+JVS(9988)*UV(2368)+JVS(21348)*UV(4153)+JVS(42483)*UV(5250) - JTUV(2369) = JVS(9992)*UV(2369)+JVS(16700)*UV(3592)+JVS(21030)*UV(4114)+JVS(27897)*UV(4777)+JVS(42484)*UV(5250) - JTUV(2370) = JVS(9996)*UV(2370)+JVS(18056)*UV(3757)+JVS(42485)*UV(5250)+JVS(48284)*UV(5253) - JTUV(2371) = JVS(10001)*UV(2371)+JVS(22629)*UV(4283)+JVS(34626)*UV(5165)+JVS(42486)*UV(5250)+JVS(51066)*UV(5255) - JTUV(2372) = JVS(10005)*UV(2372)+JVS(13637)*UV(3082)+JVS(14943)*UV(3332)+JVS(42487)*UV(5250)+JVS(48285)*UV(5253) - JTUV(2373) = JVS(8375)*UV(2008)+JVS(10009)*UV(2373)+JVS(16140)*UV(3516)+JVS(38220)*UV(5231)+JVS(42488)*UV(5250) - JTUV(2374) = JVS(10014)*UV(2374)+JVS(34310)*UV(5160)+JVS(36051)*UV(5195) - JTUV(2375) = JVS(7099)*UV(1743)+JVS(10021)*UV(2375)+JVS(22115)*UV(4231)+JVS(42489)*UV(5250)+JVS(48286)*UV(5253) - JTUV(2376) = JVS(10025)*UV(2376)+JVS(38960)*UV(5233)+JVS(45166)*UV(5251)+JVS(51069)*UV(5255) - JTUV(2377) = JVS(10032)*UV(2377)+JVS(32241)*UV(5073)+JVS(42490)*UV(5250) - JTUV(2378) = JVS(10039)*UV(2378)+JVS(28658)*UV(4842)+JVS(38221)*UV(5231)+JVS(42491)*UV(5250)+JVS(48287)*UV(5253) - JTUV(2379) = JVS(10043)*UV(2379)+JVS(15868)*UV(3474)+JVS(20385)*UV(4041)+JVS(42492)*UV(5250) - JTUV(2380) = JVS(2744)*UV(697)+JVS(10048)*UV(2380)+JVS(15058)*UV(3348)+JVS(42493)*UV(5250) - JTUV(2381) = JVS(10053)*UV(2381)+JVS(25490)*UV(4552)+JVS(42494)*UV(5250)+JVS(51070)*UV(5255) - JTUV(2382) = JVS(10058)*UV(2382)+JVS(28472)*UV(4826)+JVS(37395)*UV(5222)+JVS(38961)*UV(5233)+JVS(42495)*UV(5250)& - &+JVS(48288)*UV(5253)+JVS(51071)*UV(5255) - JTUV(2383) = JVS(10061)*UV(2383)+JVS(15227)*UV(3372)+JVS(18593)*UV(3824)+JVS(42496)*UV(5250)+JVS(48289)*UV(5253) - JTUV(2384) = JVS(10065)*UV(2384)+JVS(22548)*UV(4275)+JVS(35610)*UV(5191)+JVS(42497)*UV(5250)+JVS(51072)*UV(5255) - JTUV(2385) = JVS(10069)*UV(2385)+JVS(25670)*UV(4571)+JVS(27382)*UV(4733)+JVS(30552)*UV(4974)+JVS(31944)*UV(5056)& - &+JVS(39512)*UV(5238)+JVS(42498)*UV(5250) - JTUV(2386) = JVS(6582)*UV(1631)+JVS(10072)*UV(2386)+JVS(22166)*UV(4236)+JVS(32462)*UV(5086)+JVS(39928)*UV(5244)& - &+JVS(42499)*UV(5250) - JTUV(2387) = JVS(8482)*UV(2031)+JVS(10076)*UV(2387)+JVS(21443)*UV(4164)+JVS(42500)*UV(5250)+JVS(48290)*UV(5253) - JTUV(2388) = JVS(10080)*UV(2388)+JVS(24279)*UV(4445)+JVS(35180)*UV(5183)+JVS(36203)*UV(5199)+JVS(42501)*UV(5250) - JTUV(2389) = JVS(3184)*UV(798)+JVS(10084)*UV(2389)+JVS(17428)*UV(3680)+JVS(42502)*UV(5250) - JTUV(2390) = JVS(10088)*UV(2390)+JVS(18019)*UV(3753)+JVS(25287)*UV(4535)+JVS(42503)*UV(5250)+JVS(53229)*UV(5256) - JTUV(2391) = JVS(596)*UV(153)+JVS(10092)*UV(2391)+JVS(29075)*UV(4872)+JVS(35422)*UV(5185)+JVS(42504)*UV(5250) - JTUV(2392) = JVS(10096)*UV(2392)+JVS(13527)*UV(3064)+JVS(19980)*UV(3993)+JVS(42505)*UV(5250)+JVS(45167)*UV(5251) - JTUV(2393) = JVS(10100)*UV(2393)+JVS(27468)*UV(4741)+JVS(34311)*UV(5160)+JVS(36128)*UV(5197)+JVS(37849)*UV(5228)& - &+JVS(39929)*UV(5244)+JVS(42506)*UV(5250) - JTUV(2394) = JVS(10103)*UV(2394)+JVS(15430)*UV(3399)+JVS(19021)*UV(3878)+JVS(25865)*UV(4593)+JVS(42507)*UV(5250) - JTUV(2395) = JVS(10108)*UV(2395)+JVS(30189)*UV(4949)+JVS(42508)*UV(5250)+JVS(45168)*UV(5251)+JVS(51074)*UV(5255) - JTUV(2396) = JVS(10112)*UV(2396)+JVS(22612)*UV(4281)+JVS(38027)*UV(5230)+JVS(42509)*UV(5250)+JVS(51075)*UV(5255) - JTUV(2397) = JVS(10116)*UV(2397)+JVS(32681)*UV(5098)+JVS(33766)*UV(5142)+JVS(39930)*UV(5244)+JVS(42510)*UV(5250) - JTUV(2398) = JVS(10120)*UV(2398)+JVS(17887)*UV(3738)+JVS(19900)*UV(3983)+JVS(42511)*UV(5250)+JVS(53230)*UV(5256) - JTUV(2399) = JVS(10125)*UV(2399)+JVS(34312)*UV(5160)+JVS(39346)*UV(5235) - JTUV(2400) = JVS(732)*UV(175)+JVS(10132)*UV(2400)+JVS(33853)*UV(5143)+JVS(34524)*UV(5161)+JVS(42512)*UV(5250) - JTUV(2401) = JVS(682)*UV(167)+JVS(10136)*UV(2401)+JVS(23346)*UV(4356)+JVS(27199)*UV(4717)+JVS(42513)*UV(5250) - JTUV(2402) = JVS(10140)*UV(2402)+JVS(22495)*UV(4269)+JVS(37789)*UV(5226)+JVS(42514)*UV(5250)+JVS(51076)*UV(5255) - JTUV(2403) = JVS(10144)*UV(2403)+JVS(11961)*UV(2767)+JVS(19013)*UV(3877)+JVS(42515)*UV(5250)+JVS(48292)*UV(5253) - JTUV(2404) = JVS(2257)*UV(581)+JVS(10148)*UV(2404)+JVS(25567)*UV(4560)+JVS(42516)*UV(5250) - JTUV(2405) = JVS(7733)*UV(1870)+JVS(10152)*UV(2405)+JVS(12935)*UV(2954)+JVS(42517)*UV(5250)+JVS(48293)*UV(5253) - JTUV(2406) = JVS(10156)*UV(2406)+JVS(14134)*UV(3174)+JVS(18446)*UV(3805)+JVS(42518)*UV(5250)+JVS(48294)*UV(5253) - JTUV(2407) = JVS(2129)*UV(549)+JVS(10160)*UV(2407)+JVS(18971)*UV(3872)+JVS(42519)*UV(5250) - JTUV(2408) = JVS(1299)*UV(315)+JVS(10164)*UV(2408)+JVS(15580)*UV(3420)+JVS(42520)*UV(5250)+JVS(48295)*UV(5253) - JTUV(2409) = JVS(10168)*UV(2409)+JVS(14951)*UV(3333)+JVS(15203)*UV(3369)+JVS(31713)*UV(5045)+JVS(42521)*UV(5250) - JTUV(2410) = JVS(10172)*UV(2410)+JVS(31598)*UV(5038)+JVS(38962)*UV(5233)+JVS(42522)*UV(5250)+JVS(51078)*UV(5255) - JTUV(2411) = JVS(2046)*UV(528)+JVS(10176)*UV(2411)+JVS(19340)*UV(3916)+JVS(42523)*UV(5250) - JTUV(2412) = JVS(10180)*UV(2412)+JVS(38223)*UV(5231)+JVS(38806)*UV(5232)+JVS(42524)*UV(5250)+JVS(51079)*UV(5255) - JTUV(2413) = JVS(10184)*UV(2413)+JVS(15567)*UV(3418)+JVS(19676)*UV(3956)+JVS(27174)*UV(4714)+JVS(42525)*UV(5250) - JTUV(2414) = JVS(10188)*UV(2414)+JVS(24730)*UV(4489)+JVS(25931)*UV(4602)+JVS(39932)*UV(5244)+JVS(42526)*UV(5250) - JTUV(2415) = JVS(10194)*UV(2415)+JVS(20815)*UV(4089)+JVS(34313)*UV(5160) - JTUV(2416) = JVS(608)*UV(155)+JVS(10201)*UV(2416)+JVS(30075)*UV(4942)+JVS(34553)*UV(5162)+JVS(42527)*UV(5250) - JTUV(2417) = JVS(2270)*UV(584)+JVS(10205)*UV(2417)+JVS(23961)*UV(4416)+JVS(42528)*UV(5250) - JTUV(2418) = JVS(10209)*UV(2418)+JVS(13865)*UV(3122)+JVS(18372)*UV(3795)+JVS(42529)*UV(5250)+JVS(48297)*UV(5253) - JTUV(2419) = JVS(6218)*UV(1552)+JVS(10213)*UV(2419)+JVS(24881)*UV(4501)+JVS(42530)*UV(5250)+JVS(48298)*UV(5253) - JTUV(2420) = JVS(10217)*UV(2420)+JVS(18164)*UV(3770)+JVS(21349)*UV(4153)+JVS(42531)*UV(5250)+JVS(53231)*UV(5256) - JTUV(2421) = JVS(10221)*UV(2421)+JVS(32494)*UV(5087)+JVS(35470)*UV(5188)+JVS(42532)*UV(5250)+JVS(51081)*UV(5255) - JTUV(2422) = JVS(708)*UV(171)+JVS(10225)*UV(2422)+JVS(16068)*UV(3505)+JVS(32944)*UV(5109)+JVS(42533)*UV(5250) - JTUV(2423) = JVS(2099)*UV(541)+JVS(10229)*UV(2423)+JVS(19243)*UV(3905)+JVS(42534)*UV(5250) - JTUV(2424) = JVS(2336)*UV(600)+JVS(10233)*UV(2424)+JVS(21485)*UV(4169)+JVS(35765)*UV(5193)+JVS(39436)*UV(5237)& - &+JVS(42535)*UV(5250) - JTUV(2425) = JVS(10237)*UV(2425)+JVS(29567)*UV(4913)+JVS(30392)*UV(4963)+JVS(34315)*UV(5160)+JVS(39604)*UV(5241)& - &+JVS(42536)*UV(5250)+JVS(51082)*UV(5255) - JTUV(2426) = JVS(6786)*UV(1677)+JVS(10240)*UV(2426)+JVS(19612)*UV(3948)+JVS(29930)*UV(4938)+JVS(39933)*UV(5244)& - &+JVS(42537)*UV(5250) - JTUV(2427) = JVS(6727)*UV(1662)+JVS(10244)*UV(2427)+JVS(34316)*UV(5160)+JVS(42538)*UV(5250)+JVS(48299)*UV(5253) - JTUV(2428) = JVS(2685)*UV(682)+JVS(10248)*UV(2428)+JVS(32953)*UV(5110)+JVS(39694)*UV(5242)+JVS(39934)*UV(5244)& - &+JVS(42539)*UV(5250) - JTUV(2429) = JVS(10252)*UV(2429)+JVS(19456)*UV(3929)+JVS(24432)*UV(4460)+JVS(42540)*UV(5250)+JVS(48300)*UV(5253) - JTUV(2430) = JVS(10256)*UV(2430)+JVS(38224)*UV(5231)+JVS(39935)*UV(5244)+JVS(45169)*UV(5251) - JTUV(2431) = JVS(10261)*UV(2431)+JVS(22397)*UV(4259)+JVS(36017)*UV(5194)+JVS(42541)*UV(5250)+JVS(51084)*UV(5255) - JTUV(2432) = JVS(794)*UV(186)+JVS(10265)*UV(2432)+JVS(13690)*UV(3091)+JVS(42542)*UV(5250)+JVS(48301)*UV(5253) - JTUV(2433) = JVS(10269)*UV(2433)+JVS(32495)*UV(5087)+JVS(42543)*UV(5250)+JVS(48302)*UV(5253) - JTUV(2434) = JVS(10274)*UV(2434)+JVS(22976)*UV(4316)+JVS(30940)*UV(5000)+JVS(42544)*UV(5250)+JVS(48303)*UV(5253) - JTUV(2435) = JVS(10278)*UV(2435)+JVS(15644)*UV(3429)+JVS(32068)*UV(5062)+JVS(34921)*UV(5178)+JVS(42545)*UV(5250) - JTUV(2436) = JVS(10282)*UV(2436)+JVS(13179)*UV(2996)+JVS(20990)*UV(4109)+JVS(42546)*UV(5250)+JVS(48304)*UV(5253) - JTUV(2437) = JVS(2110)*UV(544)+JVS(10286)*UV(2437)+JVS(23684)*UV(4392)+JVS(35366)*UV(5184)+JVS(39936)*UV(5244)& - &+JVS(42547)*UV(5250) - JTUV(2438) = JVS(10291)*UV(2438)+JVS(19868)*UV(3979)+JVS(39774)*UV(5243)+JVS(39937)*UV(5244)+JVS(42548)*UV(5250) - JTUV(2439) = JVS(2768)*UV(703)+JVS(7601)*UV(1843)+JVS(10295)*UV(2439)+JVS(42549)*UV(5250) - JTUV(2440) = JVS(3261)*UV(817)+JVS(10299)*UV(2440)+JVS(15414)*UV(3397)+JVS(42550)*UV(5250) - JTUV(2441) = JVS(10303)*UV(2441)+JVS(16458)*UV(3561)+JVS(42551)*UV(5250)+JVS(48305)*UV(5253) - JTUV(2442) = JVS(10308)*UV(2442)+JVS(16578)*UV(3577)+JVS(23476)*UV(4370)+JVS(29491)*UV(4909)+JVS(42552)*UV(5250) - JTUV(2443) = JVS(10312)*UV(2443)+JVS(22339)*UV(4253)+JVS(24321)*UV(4449)+JVS(39938)*UV(5244)+JVS(42553)*UV(5250) - JTUV(2444) = JVS(720)*UV(173)+JVS(10316)*UV(2444)+JVS(30592)*UV(4978)+JVS(42554)*UV(5250)+JVS(48306)*UV(5253) - JTUV(2445) = JVS(2896)*UV(731)+JVS(10320)*UV(2445)+JVS(26391)*UV(4644)+JVS(42555)*UV(5250) - JTUV(2446) = JVS(2829)*UV(716)+JVS(10324)*UV(2446)+JVS(18101)*UV(3762)+JVS(42556)*UV(5250) - JTUV(2447) = JVS(10328)*UV(2447)+JVS(17245)*UV(3656)+JVS(42557)*UV(5250)+JVS(48307)*UV(5253) - JTUV(2448) = JVS(10334)*UV(2448)+JVS(29609)*UV(4916)+JVS(42558)*UV(5250)+JVS(45170)*UV(5251)+JVS(51086)*UV(5255) - JTUV(2449) = JVS(10338)*UV(2449)+JVS(15501)*UV(3409)+JVS(19398)*UV(3922)+JVS(27938)*UV(4782)+JVS(42559)*UV(5250) - JTUV(2450) = JVS(2904)*UV(733)+JVS(10342)*UV(2450)+JVS(17771)*UV(3724)+JVS(42560)*UV(5250) - JTUV(2451) = JVS(2975)*UV(748)+JVS(10346)*UV(2451)+JVS(18895)*UV(3863)+JVS(42561)*UV(5250) - JTUV(2452) = JVS(10352)*UV(2452)+JVS(17337)*UV(3668)+JVS(34317)*UV(5160) - JTUV(2453) = JVS(10359)*UV(2453)+JVS(11258)*UV(2634)+JVS(19030)*UV(3879)+JVS(42562)*UV(5250)+JVS(48308)*UV(5253) - JTUV(2454) = JVS(2811)*UV(712)+JVS(10363)*UV(2454)+JVS(17527)*UV(3692)+JVS(42563)*UV(5250) - JTUV(2455) = JVS(10367)*UV(2455)+JVS(15003)*UV(3341)+JVS(19280)*UV(3910)+JVS(29201)*UV(4884)+JVS(42564)*UV(5250) - JTUV(2456) = JVS(6796)*UV(1679)+JVS(10371)*UV(2456)+JVS(30861)*UV(4995)+JVS(35367)*UV(5184)+JVS(42565)*UV(5250) - JTUV(2457) = JVS(10377)*UV(2457)+JVS(23901)*UV(4410)+JVS(34318)*UV(5160) - JTUV(2458) = JVS(770)*UV(182)+JVS(10033)*UV(2377)+JVS(10384)*UV(2458)+JVS(42566)*UV(5250)+JVS(48310)*UV(5253) - JTUV(2459) = JVS(10388)*UV(2459)+JVS(12583)*UV(2891)+JVS(31954)*UV(5057)+JVS(42567)*UV(5250)+JVS(48311)*UV(5253) - JTUV(2460) = JVS(10392)*UV(2460)+JVS(24355)*UV(4452)+JVS(34319)*UV(5160)+JVS(42568)*UV(5250)+JVS(48312)*UV(5253) - JTUV(2461) = JVS(10396)*UV(2461)+JVS(15028)*UV(3344)+JVS(16975)*UV(3626)+JVS(42569)*UV(5250)+JVS(48313)*UV(5253) - JTUV(2462) = JVS(9796)*UV(2324)+JVS(10400)*UV(2462)+JVS(10484)*UV(2480)+JVS(42570)*UV(5250)+JVS(48314)*UV(5253) - JTUV(2463) = JVS(6900)*UV(1702)+JVS(10404)*UV(2463)+JVS(18757)*UV(3847)+JVS(20000)*UV(3995)+JVS(42571)*UV(5250) - JTUV(2464) = JVS(10408)*UV(2464)+JVS(17420)*UV(3679)+JVS(17686)*UV(3714)+JVS(42572)*UV(5250)+JVS(53232)*UV(5256) - JTUV(2465) = JVS(10414)*UV(2465)+JVS(34320)*UV(5160)+JVS(37850)*UV(5228) - JTUV(2466) = JVS(2139)*UV(551)+JVS(10421)*UV(2466)+JVS(18076)*UV(3759)+JVS(42573)*UV(5250) - JTUV(2467) = JVS(10426)*UV(2467)+JVS(21674)*UV(4188)+JVS(39940)*UV(5244)+JVS(42574)*UV(5250)+JVS(45171)*UV(5251) - JTUV(2468) = JVS(10430)*UV(2468)+JVS(12118)*UV(2798)+JVS(23740)*UV(4398)+JVS(38963)*UV(5233)+JVS(42575)*UV(5250)& - &+JVS(48315)*UV(5253)+JVS(51093)*UV(5255) - JTUV(2469) = JVS(3064)*UV(770)+JVS(7560)*UV(1834)+JVS(10433)*UV(2469)+JVS(36897)*UV(5207)+JVS(39941)*UV(5244)& - &+JVS(42576)*UV(5250) - JTUV(2470) = JVS(10437)*UV(2470)+JVS(16154)*UV(3517)+JVS(27629)*UV(4754)+JVS(27652)*UV(4756)+JVS(31659)*UV(5041)& - &+JVS(37851)*UV(5228)+JVS(42577)*UV(5250) - JTUV(2471) = JVS(10441)*UV(2471)+JVS(31997)*UV(5059)+JVS(42578)*UV(5250) - JTUV(2472) = JVS(10449)*UV(2472)+JVS(28961)*UV(4864)+JVS(29831)*UV(4931)+JVS(32884)*UV(5106)+JVS(38964)*UV(5233)& - &+JVS(42579)*UV(5250)+JVS(45172)*UV(5251)+JVS(51094)*UV(5255) - JTUV(2473) = JVS(10454)*UV(2473)+JVS(34077)*UV(5152)+JVS(34321)*UV(5160) - JTUV(2474) = JVS(10462)*UV(2474)+JVS(28030)*UV(4792)+JVS(29645)*UV(4918)+JVS(33237)*UV(5125)+JVS(38965)*UV(5233)& - &+JVS(42580)*UV(5250)+JVS(45173)*UV(5251)+JVS(51095)*UV(5255) - JTUV(2475) = JVS(10465)*UV(2475)+JVS(16859)*UV(3611)+JVS(31340)*UV(5023)+JVS(32333)*UV(5080)+JVS(39942)*UV(5244)& - &+JVS(42581)*UV(5250)+JVS(45174)*UV(5251)+JVS(51096)*UV(5255) - JTUV(2476) = JVS(10468)*UV(2476)+JVS(29467)*UV(4906)+JVS(36277)*UV(5200)+JVS(38226)*UV(5231)+JVS(39943)*UV(5244)& - &+JVS(42582)*UV(5250)+JVS(45175)*UV(5251)+JVS(51097)*UV(5255) - JTUV(2477) = JVS(10471)*UV(2477)+JVS(12313)*UV(2837)+JVS(31576)*UV(5037)+JVS(32597)*UV(5094)+JVS(39944)*UV(5244)& - &+JVS(42583)*UV(5250)+JVS(45176)*UV(5251)+JVS(51098)*UV(5255) - JTUV(2478) = JVS(68)*UV(8)+JVS(10475)*UV(2478)+JVS(22640)*UV(4284)+JVS(30014)*UV(4939)+JVS(39945)*UV(5244)+JVS(42584)& - &*UV(5250)+JVS(48316)*UV(5253) - JTUV(2479) = JVS(10478)*UV(2479)+JVS(32798)*UV(5102)+JVS(35766)*UV(5193)+JVS(38228)*UV(5231)+JVS(39946)*UV(5244)& - &+JVS(42585)*UV(5250)+JVS(45177)*UV(5251)+JVS(51099)*UV(5255) - JTUV(2480) = JVS(10485)*UV(2480)+JVS(20840)*UV(4092)+JVS(42586)*UV(5250) - JTUV(2481) = JVS(10493)*UV(2481)+JVS(15390)*UV(3394)+JVS(26648)*UV(4668)+JVS(38229)*UV(5231)+JVS(42587)*UV(5250)& - &+JVS(45178)*UV(5251)+JVS(48317)*UV(5253)+JVS(51100)*UV(5255) - JTUV(2482) = JVS(2104)*UV(542)+JVS(10496)*UV(2482)+JVS(19360)*UV(3918)+JVS(42588)*UV(5250)+JVS(45179)*UV(5251)& - &+JVS(51101)*UV(5255) - JTUV(2483) = JVS(10499)*UV(2483)+JVS(16891)*UV(3615)+JVS(22193)*UV(4239)+JVS(23685)*UV(4392)+JVS(39948)*UV(5244)& - &+JVS(42589)*UV(5250)+JVS(45180)*UV(5251)+JVS(51102)*UV(5255) - JTUV(2484) = JVS(10502)*UV(2484)+JVS(31530)*UV(5034)+JVS(35181)*UV(5183)+JVS(36204)*UV(5199)+JVS(39949)*UV(5244)& - &+JVS(42590)*UV(5250)+JVS(45181)*UV(5251)+JVS(51103)*UV(5255) - JTUV(2485) = JVS(10505)*UV(2485)+JVS(21778)*UV(4199)+JVS(27108)*UV(4708)+JVS(27315)*UV(4728)+JVS(35182)*UV(5183)& - &+JVS(42591)*UV(5250)+JVS(45182)*UV(5251)+JVS(51104)*UV(5255) - JTUV(2486) = JVS(10509)*UV(2486)+JVS(16773)*UV(3601)+JVS(31341)*UV(5023)+JVS(39219)*UV(5234)+JVS(42592)*UV(5250)& - &+JVS(45183)*UV(5251)+JVS(48318)*UV(5253)+JVS(51105)*UV(5255) - JTUV(2487) = JVS(7465)*UV(1817)+JVS(10512)*UV(2487)+JVS(28603)*UV(4838)+JVS(36915)*UV(5208)+JVS(42593)*UV(5250)& - &+JVS(45184)*UV(5251)+JVS(51106)*UV(5255) - JTUV(2488) = JVS(10516)*UV(2488)+JVS(29423)*UV(4904)+JVS(42594)*UV(5250) - JTUV(2489) = JVS(10524)*UV(2489)+JVS(14501)*UV(3245)+JVS(31648)*UV(5040)+JVS(35471)*UV(5188)+JVS(42595)*UV(5250)& - &+JVS(45185)*UV(5251)+JVS(48319)*UV(5253)+JVS(51107)*UV(5255) - JTUV(2490) = JVS(10528)*UV(2490)+JVS(33767)*UV(5142)+JVS(34322)*UV(5160) - JTUV(2491) = JVS(10536)*UV(2491)+JVS(31018)*UV(5003)+JVS(31058)*UV(5005)+JVS(37396)*UV(5222)+JVS(38966)*UV(5233)& - &+JVS(42596)*UV(5250)+JVS(48320)*UV(5253)+JVS(51108)*UV(5255) - JTUV(2492) = JVS(10541)*UV(2492)+JVS(29646)*UV(4918)+JVS(38967)*UV(5233)+JVS(51109)*UV(5255) - JTUV(2493) = JVS(10548)*UV(2493)+JVS(18408)*UV(3800)+JVS(38968)*UV(5233)+JVS(48321)*UV(5253) - JTUV(2494) = JVS(10554)*UV(2494)+JVS(23943)*UV(4414)+JVS(39220)*UV(5234)+JVS(42597)*UV(5250)+JVS(45186)*UV(5251)& - &+JVS(51110)*UV(5255) - JTUV(2495) = JVS(10560)*UV(2495)+JVS(28659)*UV(4842)+JVS(38230)*UV(5231)+JVS(48322)*UV(5253) - JTUV(2496) = JVS(10566)*UV(2496)+JVS(25314)*UV(4537)+JVS(32521)*UV(5088)+JVS(42598)*UV(5250)+JVS(45187)*UV(5251)& - &+JVS(48323)*UV(5253) - JTUV(2497) = JVS(2568)*UV(654)+JVS(10570)*UV(2497)+JVS(15956)*UV(3488)+JVS(27865)*UV(4774)+JVS(30257)*UV(4954)& - &+JVS(38231)*UV(5231)+JVS(42599)*UV(5250) - JTUV(2498) = JVS(10574)*UV(2498)+JVS(21879)*UV(4209)+JVS(31342)*UV(5023)+JVS(42600)*UV(5250)+JVS(45188)*UV(5251)& - &+JVS(48324)*UV(5253) - JTUV(2499) = JVS(10578)*UV(2499)+JVS(12076)*UV(2789)+JVS(18341)*UV(3791)+JVS(28177)*UV(4799)+JVS(42601)*UV(5250)& - &+JVS(48325)*UV(5253) - JTUV(2500) = JVS(10582)*UV(2500)+JVS(34078)*UV(5152)+JVS(38232)*UV(5231)+JVS(42602)*UV(5250)+JVS(45189)*UV(5251)& - &+JVS(48326)*UV(5253) - JTUV(2501) = JVS(7409)*UV(1806)+JVS(9400)*UV(2234)+JVS(10586)*UV(2501)+JVS(33183)*UV(5123)+JVS(42603)*UV(5250)& - &+JVS(45190)*UV(5251)+JVS(51111)*UV(5255) - JTUV(2502) = JVS(10591)*UV(2502)+JVS(34323)*UV(5160)+JVS(38233)*UV(5231)+JVS(48327)*UV(5253) - JTUV(2503) = JVS(2397)*UV(615)+JVS(10597)*UV(2503)+JVS(23620)*UV(4386)+JVS(31102)*UV(5007)+JVS(42604)*UV(5250) - JTUV(2504) = JVS(10601)*UV(2504)+JVS(29931)*UV(4938)+JVS(30472)*UV(4968)+JVS(42605)*UV(5250)+JVS(45191)*UV(5251)& - &+JVS(48328)*UV(5253) - JTUV(2505) = JVS(10605)*UV(2505)+JVS(21969)*UV(4218)+JVS(28356)*UV(4815)+JVS(42606)*UV(5250)+JVS(45192)*UV(5251)& - &+JVS(48329)*UV(5253) - JTUV(2506) = JVS(10610)*UV(2506)+JVS(24761)*UV(4491)+JVS(38969)*UV(5233)+JVS(48330)*UV(5253) - JTUV(2507) = JVS(10616)*UV(2507)+JVS(16976)*UV(3626)+JVS(28526)*UV(4831)+JVS(42607)*UV(5250)+JVS(45193)*UV(5251)& - &+JVS(51113)*UV(5255) - JTUV(2508) = JVS(10621)*UV(2508)+JVS(34845)*UV(5175)+JVS(38234)*UV(5231)+JVS(51114)*UV(5255) - JTUV(2509) = JVS(7160)*UV(1755)+JVS(10627)*UV(2509)+JVS(33720)*UV(5140)+JVS(42608)*UV(5250)+JVS(48331)*UV(5253) - JTUV(2510) = JVS(10631)*UV(2510)+JVS(25932)*UV(4602)+JVS(27679)*UV(4759)+JVS(42609)*UV(5250)+JVS(45194)*UV(5251)& - &+JVS(48332)*UV(5253) - JTUV(2511) = JVS(10635)*UV(2511)+JVS(31599)*UV(5038)+JVS(38970)*UV(5233)+JVS(42610)*UV(5250)+JVS(45195)*UV(5251)& - &+JVS(48333)*UV(5253) - JTUV(2512) = JVS(10641)*UV(2512)+JVS(28660)*UV(4842)+JVS(38235)*UV(5231)+JVS(51116)*UV(5255) - JTUV(2513) = JVS(6732)*UV(1663)+JVS(10647)*UV(2513)+JVS(22940)*UV(4313)+JVS(42611)*UV(5250)+JVS(48334)*UV(5253) - JTUV(2514) = JVS(10651)*UV(2514)+JVS(11319)*UV(2644)+JVS(30522)*UV(4973)+JVS(38971)*UV(5233)+JVS(42612)*UV(5250)& - &+JVS(48335)*UV(5253) - JTUV(2515) = JVS(2307)*UV(593)+JVS(10655)*UV(2515)+JVS(24673)*UV(4484)+JVS(42613)*UV(5250)+JVS(45196)*UV(5251)& - &+JVS(48336)*UV(5253) - JTUV(2516) = JVS(10660)*UV(2516)+JVS(37202)*UV(5215)+JVS(38236)*UV(5231)+JVS(51118)*UV(5255) - JTUV(2517) = JVS(10666)*UV(2517)+JVS(16977)*UV(3626)+JVS(22018)*UV(4222)+JVS(42614)*UV(5250)+JVS(45197)*UV(5251)& - &+JVS(48337)*UV(5253) - JTUV(2518) = JVS(10670)*UV(2518)+JVS(28714)*UV(4846)+JVS(29932)*UV(4938)+JVS(42615)*UV(5250)+JVS(45198)*UV(5251)& - &+JVS(48338)*UV(5253) - JTUV(2519) = JVS(6747)*UV(1667)+JVS(10674)*UV(2519)+JVS(22417)*UV(4261)+JVS(42616)*UV(5250)+JVS(48339)*UV(5253) - JTUV(2520) = JVS(10678)*UV(2520)+JVS(13457)*UV(3050)+JVS(18504)*UV(3813)+JVS(20429)*UV(4045)+JVS(42617)*UV(5250)& - &+JVS(48340)*UV(5253) - JTUV(2521) = JVS(10684)*UV(2521)+JVS(33589)*UV(5139)+JVS(37397)*UV(5222)+JVS(51120)*UV(5255) - JTUV(2522) = JVS(10690)*UV(2522)+JVS(24356)*UV(4452)+JVS(34324)*UV(5160)+JVS(42618)*UV(5250)+JVS(45199)*UV(5251)& - &+JVS(48341)*UV(5253) - JTUV(2523) = JVS(10694)*UV(2523)+JVS(14978)*UV(3337)+JVS(26546)*UV(4659)+JVS(42619)*UV(5250)+JVS(45200)*UV(5251)& - &+JVS(48342)*UV(5253) - JTUV(2524) = JVS(6496)*UV(1614)+JVS(10698)*UV(2524)+JVS(15415)*UV(3397)+JVS(34325)*UV(5160)+JVS(42620)*UV(5250)& - &+JVS(48343)*UV(5253) - JTUV(2525) = JVS(10702)*UV(2525)+JVS(32496)*UV(5087)+JVS(34593)*UV(5164)+JVS(42621)*UV(5250)+JVS(45201)*UV(5251)& - &+JVS(48344)*UV(5253) - JTUV(2526) = JVS(10707)*UV(2526)+JVS(39221)*UV(5234)+JVS(45202)*UV(5251)+JVS(51121)*UV(5255) - JTUV(2527) = JVS(10713)*UV(2527)+JVS(15059)*UV(3348)+JVS(26556)*UV(4660)+JVS(42622)*UV(5250)+JVS(45203)*UV(5251)& - &+JVS(48345)*UV(5253) - JTUV(2528) = JVS(10720)*UV(2528)+JVS(35768)*UV(5193)+JVS(39695)*UV(5242)+JVS(51122)*UV(5255) - JTUV(2529) = JVS(10726)*UV(2529)+JVS(22475)*UV(4267)+JVS(25933)*UV(4602)+JVS(42623)*UV(5250)+JVS(45204)*UV(5251)& - &+JVS(48346)*UV(5253) - JTUV(2530) = JVS(10730)*UV(2530)+JVS(21994)*UV(4220)+JVS(29393)*UV(4902)+JVS(42624)*UV(5250)+JVS(45205)*UV(5251)& - &+JVS(48347)*UV(5253) - JTUV(2531) = JVS(10734)*UV(2531)+JVS(25084)*UV(4516)+JVS(35014)*UV(5180)+JVS(42625)*UV(5250)+JVS(45206)*UV(5251)& - &+JVS(48348)*UV(5253) - JTUV(2532) = JVS(8606)*UV(2056)+JVS(10738)*UV(2532)+JVS(32463)*UV(5086)+JVS(34326)*UV(5160)+JVS(42626)*UV(5250)& - &+JVS(48349)*UV(5253) - JTUV(2533) = JVS(10034)*UV(2377)+JVS(10742)*UV(2533)+JVS(28757)*UV(4849)+JVS(42627)*UV(5250)+JVS(45207)*UV(5251)& - &+JVS(48350)*UV(5253) - JTUV(2534) = JVS(1757)*UV(445)+JVS(10746)*UV(2534)+JVS(34327)*UV(5160)+JVS(38028)*UV(5230)+JVS(42628)*UV(5250)& - &+JVS(48351)*UV(5253) - JTUV(2535) = JVS(10751)*UV(2535)+JVS(15893)*UV(3478)+JVS(28074)*UV(4796)+JVS(48352)*UV(5253) - JTUV(2536) = JVS(10758)*UV(2536)+JVS(24938)*UV(4507)+JVS(28075)*UV(4796)+JVS(48353)*UV(5253) - JTUV(2537) = JVS(10764)*UV(2537)+JVS(33238)*UV(5125)+JVS(35611)*UV(5191)+JVS(42629)*UV(5250)+JVS(45208)*UV(5251)& - &+JVS(48354)*UV(5253) - JTUV(2538) = JVS(10768)*UV(2538)+JVS(22135)*UV(4233)+JVS(24893)*UV(4502)+JVS(42630)*UV(5250)+JVS(45209)*UV(5251)& - &+JVS(48355)*UV(5253) - JTUV(2539) = JVS(10774)*UV(2539)+JVS(27358)*UV(4730)+JVS(39696)*UV(5242)+JVS(51123)*UV(5255) - JTUV(2540) = JVS(9790)*UV(2323)+JVS(10780)*UV(2540)+JVS(13818)*UV(3115)+JVS(29529)*UV(4910)+JVS(38237)*UV(5231)& - &+JVS(42631)*UV(5250) - JTUV(2541) = JVS(10784)*UV(2541)+JVS(20440)*UV(4046)+JVS(21779)*UV(4199)+JVS(42632)*UV(5250)+JVS(45210)*UV(5251)& - &+JVS(51124)*UV(5255) - JTUV(2542) = JVS(10015)*UV(2374)+JVS(10788)*UV(2542)+JVS(34328)*UV(5160)+JVS(39222)*UV(5234)+JVS(42633)*UV(5250)& - &+JVS(48356)*UV(5253) - JTUV(2543) = JVS(6269)*UV(1564)+JVS(10792)*UV(2543)+JVS(18944)*UV(3869)+JVS(30560)*UV(4975)+JVS(42634)*UV(5250) - JTUV(2544) = JVS(10796)*UV(2544)+JVS(14234)*UV(3194)+JVS(15637)*UV(3428)+JVS(17851)*UV(3734)+JVS(37734)*UV(5224)& - &+JVS(42635)*UV(5250) - JTUV(2545) = JVS(10802)*UV(2545)+JVS(29492)*UV(4909)+JVS(38972)*UV(5233)+JVS(51126)*UV(5255) - JTUV(2546) = JVS(10808)*UV(2546)+JVS(15495)*UV(3408)+JVS(30293)*UV(4957)+JVS(42636)*UV(5250)+JVS(48357)*UV(5253)& - &+JVS(51127)*UV(5255) - JTUV(2547) = JVS(10814)*UV(2547)+JVS(32954)*UV(5110)+JVS(34205)*UV(5158)+JVS(35769)*UV(5193)+JVS(42637)*UV(5250)& - &+JVS(48358)*UV(5253) - JTUV(2548) = JVS(1047)*UV(245)+JVS(10818)*UV(2548)+JVS(42638)*UV(5250) - JTUV(2549) = JVS(10825)*UV(2549)+JVS(38029)*UV(5230)+JVS(38238)*UV(5231)+JVS(51128)*UV(5255) - JTUV(2550) = JVS(10832)*UV(2550)+JVS(28197)*UV(4801)+JVS(38239)*UV(5231)+JVS(51129)*UV(5255) - JTUV(2551) = JVS(10839)*UV(2551)+JVS(23126)*UV(4331)+JVS(26912)*UV(4693)+JVS(51130)*UV(5255) - JTUV(2552) = JVS(10845)*UV(2552)+JVS(16355)*UV(3546)+JVS(28281)*UV(4808)+JVS(42639)*UV(5250)+JVS(45211)*UV(5251)& - &+JVS(48360)*UV(5253) - JTUV(2553) = JVS(10849)*UV(2553)+JVS(14713)*UV(3284)+JVS(14970)*UV(3336)+JVS(25578)*UV(4561)+JVS(42640)*UV(5250)& - &+JVS(51131)*UV(5255) - JTUV(2554) = JVS(10853)*UV(2554)+JVS(25603)*UV(4564)+JVS(39223)*UV(5234)+JVS(39950)*UV(5244)+JVS(42641)*UV(5250)& - &+JVS(45212)*UV(5251) - JTUV(2555) = JVS(7577)*UV(1838)+JVS(10857)*UV(2555)+JVS(32102)*UV(5064)+JVS(42642)*UV(5250)+JVS(48361)*UV(5253) - JTUV(2556) = JVS(9589)*UV(2279)+JVS(10861)*UV(2556)+JVS(19193)*UV(3899)+JVS(29933)*UV(4938)+JVS(39224)*UV(5234)& - &+JVS(42643)*UV(5250)+JVS(51133)*UV(5255) - JTUV(2557) = JVS(10866)*UV(2557)+JVS(23127)*UV(4331)+JVS(26913)*UV(4693)+JVS(48362)*UV(5253) - JTUV(2558) = JVS(7065)*UV(1737)+JVS(10872)*UV(2558)+JVS(16021)*UV(3498)+JVS(23182)*UV(4336)+JVS(33239)*UV(5125)& - &+JVS(35770)*UV(5193)+JVS(42644)*UV(5250) - JTUV(2559) = JVS(8879)*UV(2117)+JVS(10876)*UV(2559)+JVS(11327)*UV(2645)+JVS(32124)*UV(5066)+JVS(42645)*UV(5250)& - &+JVS(45213)*UV(5251)+JVS(51134)*UV(5255) - JTUV(2560) = JVS(10880)*UV(2560)+JVS(26222)*UV(4627)+JVS(29647)*UV(4918)+JVS(42646)*UV(5250)+JVS(45214)*UV(5251)& - &+JVS(48363)*UV(5253) - JTUV(2561) = JVS(10885)*UV(2561)+JVS(32429)*UV(5085)+JVS(38240)*UV(5231)+JVS(51135)*UV(5255) - JTUV(2562) = JVS(10894)*UV(2562)+JVS(27135)*UV(4710)+JVS(33854)*UV(5143)+JVS(51136)*UV(5255) - JTUV(2563) = JVS(10901)*UV(2563)+JVS(20165)*UV(4014)+JVS(33590)*UV(5139)+JVS(48364)*UV(5253) - JTUV(2564) = JVS(10907)*UV(2564)+JVS(15170)*UV(3365)+JVS(26191)*UV(4624)+JVS(42647)*UV(5250)+JVS(45215)*UV(5251)& - &+JVS(48365)*UV(5253) - JTUV(2565) = JVS(10911)*UV(2565)+JVS(11075)*UV(2595)+JVS(18464)*UV(3808)+JVS(20142)*UV(4012)+JVS(42648)*UV(5250)& - &+JVS(48366)*UV(5253) - JTUV(2566) = JVS(10916)*UV(2566)+JVS(23797)*UV(4403)+JVS(24939)*UV(4507)+JVS(48367)*UV(5253) - JTUV(2567) = JVS(10922)*UV(2567)+JVS(19694)*UV(3958)+JVS(25184)*UV(4525)+JVS(42649)*UV(5250)+JVS(45216)*UV(5251)& - &+JVS(48368)*UV(5253) - JTUV(2568) = JVS(10926)*UV(2568)+JVS(14338)*UV(3215)+JVS(23432)*UV(4366)+JVS(42650)*UV(5250)+JVS(45217)*UV(5251)& - &+JVS(51137)*UV(5255) - JTUV(2569) = JVS(10930)*UV(2569)+JVS(26898)*UV(4692)+JVS(31577)*UV(5037)+JVS(42651)*UV(5250)+JVS(45218)*UV(5251)& - &+JVS(48369)*UV(5253) - JTUV(2570) = JVS(10934)*UV(2570)+JVS(16411)*UV(3555)+JVS(34667)*UV(5167)+JVS(37338)*UV(5221)+JVS(42652)*UV(5250)& - &+JVS(51138)*UV(5255) - JTUV(2571) = JVS(10938)*UV(2571)+JVS(26706)*UV(4673)+JVS(35368)*UV(5184)+JVS(38241)*UV(5231)+JVS(42653)*UV(5250)& - &+JVS(48370)*UV(5253) - JTUV(2572) = JVS(3031)*UV(761)+JVS(6942)*UV(1712)+JVS(10942)*UV(2572)+JVS(23453)*UV(4367)+JVS(35183)*UV(5183)& - &+JVS(35612)*UV(5191)+JVS(42654)*UV(5250) - JTUV(2573) = JVS(10946)*UV(2573)+JVS(15107)*UV(3355)+JVS(23892)*UV(4409)+JVS(42655)*UV(5250)+JVS(45219)*UV(5251)& - &+JVS(48371)*UV(5253) - JTUV(2574) = JVS(10954)*UV(2574)+JVS(20580)*UV(4060)+JVS(37852)*UV(5228)+JVS(42656)*UV(5250) - JTUV(2575) = JVS(10961)*UV(2575)+JVS(23798)*UV(4403)+JVS(24940)*UV(4507)+JVS(51139)*UV(5255) - JTUV(2576) = JVS(10967)*UV(2576)+JVS(22496)*UV(4269)+JVS(37790)*UV(5226)+JVS(42657)*UV(5250)+JVS(45220)*UV(5251)& - &+JVS(48372)*UV(5253) - JTUV(2577) = JVS(10972)*UV(2577)+JVS(15894)*UV(3478)+JVS(28076)*UV(4796)+JVS(48373)*UV(5253) - JTUV(2578) = JVS(10979)*UV(2578)+JVS(18774)*UV(3849)+JVS(38242)*UV(5231)+JVS(48374)*UV(5253) - JTUV(2579) = JVS(10985)*UV(2579)+JVS(23852)*UV(4405)+JVS(35771)*UV(5193)+JVS(42658)*UV(5250)+JVS(45221)*UV(5251)& - &+JVS(48375)*UV(5253) - JTUV(2580) = JVS(10989)*UV(2580)+JVS(23312)*UV(4352)+JVS(26914)*UV(4693)+JVS(34079)*UV(5152)+JVS(42659)*UV(5250)& - &+JVS(48376)*UV(5253) - JTUV(2581) = JVS(10994)*UV(2581)+JVS(25934)*UV(4602)+JVS(29648)*UV(4918)+JVS(51140)*UV(5255) - JTUV(2582) = JVS(11000)*UV(2582)+JVS(31531)*UV(5034)+JVS(33591)*UV(5139)+JVS(42660)*UV(5250)+JVS(45222)*UV(5251)& - &+JVS(48377)*UV(5253) - JTUV(2583) = JVS(11004)*UV(2583)+JVS(24531)*UV(4470)+JVS(38030)*UV(5230)+JVS(42661)*UV(5250)+JVS(45223)*UV(5251)& - &+JVS(48378)*UV(5253) - JTUV(2584) = JVS(11008)*UV(2584)+JVS(24214)*UV(4439)+JVS(32859)*UV(5105)+JVS(42662)*UV(5250)+JVS(45224)*UV(5251)& - &+JVS(48379)*UV(5253) - JTUV(2585) = JVS(11012)*UV(2585)+JVS(12360)*UV(2847)+JVS(14512)*UV(3246)+JVS(17111)*UV(3641)+JVS(42663)*UV(5250)& - &+JVS(48380)*UV(5253) - JTUV(2586) = JVS(11017)*UV(2586)+JVS(23128)*UV(4331)+JVS(26915)*UV(4693)+JVS(51141)*UV(5255) - JTUV(2587) = JVS(11023)*UV(2587)+JVS(21626)*UV(4183)+JVS(32721)*UV(5099)+JVS(42664)*UV(5250)+JVS(45225)*UV(5251)& - &+JVS(48381)*UV(5253) - JTUV(2588) = JVS(11028)*UV(2588)+JVS(16312)*UV(3541)+JVS(28077)*UV(4796)+JVS(48382)*UV(5253) - JTUV(2589) = JVS(11037)*UV(2589)+JVS(33855)*UV(5143)+JVS(38243)*UV(5231)+JVS(51142)*UV(5255) - JTUV(2590) = JVS(1104)*UV(261)+JVS(11043)*UV(2590)+JVS(22369)*UV(4256)+JVS(34128)*UV(5154)+JVS(42665)*UV(5250) - JTUV(2591) = JVS(11048)*UV(2591)+JVS(34890)*UV(5177)+JVS(38244)*UV(5231)+JVS(51144)*UV(5255) - JTUV(2592) = JVS(11055)*UV(2592)+JVS(37398)*UV(5222)+JVS(38973)*UV(5233)+JVS(51145)*UV(5255) - JTUV(2593) = JVS(11061)*UV(2593)+JVS(28729)*UV(4847)+JVS(37085)*UV(5212)+JVS(42666)*UV(5250)+JVS(45226)*UV(5251)& - &+JVS(48383)*UV(5253) - JTUV(2594) = JVS(11068)*UV(2594)+JVS(33856)*UV(5143)+JVS(34627)*UV(5165)+JVS(51146)*UV(5255) - JTUV(2595) = JVS(11076)*UV(2595)+JVS(20166)*UV(4014)+JVS(37399)*UV(5222)+JVS(48384)*UV(5253) - JTUV(2596) = JVS(11083)*UV(2596)+JVS(31343)*UV(5023)+JVS(38245)*UV(5231)+JVS(51147)*UV(5255) - JTUV(2597) = JVS(11089)*UV(2597)+JVS(14641)*UV(3270)+JVS(26331)*UV(4638)+JVS(42667)*UV(5250)+JVS(45227)*UV(5251)& - &+JVS(48385)*UV(5253) - JTUV(2598) = JVS(11094)*UV(2598)+JVS(23799)*UV(4403)+JVS(24941)*UV(4507)+JVS(48386)*UV(5253) - JTUV(2599) = JVS(11101)*UV(2599)+JVS(23800)*UV(4403)+JVS(24942)*UV(4507)+JVS(51148)*UV(5255) - JTUV(2600) = JVS(11107)*UV(2600)+JVS(24454)*UV(4462)+JVS(32985)*UV(5111)+JVS(42668)*UV(5250)+JVS(45228)*UV(5251)& - &+JVS(48387)*UV(5253) - JTUV(2601) = JVS(8097)*UV(1951)+JVS(11111)*UV(2601)+JVS(12507)*UV(2875)+JVS(32158)*UV(5068)+JVS(42669)*UV(5250)& - &+JVS(45229)*UV(5251)+JVS(51149)*UV(5255) - JTUV(2602) = JVS(11115)*UV(2602)+JVS(11393)*UV(2659)+JVS(23271)*UV(4347)+JVS(36970)*UV(5210)+JVS(39951)*UV(5244)& - &+JVS(42670)*UV(5250) - JTUV(2603) = JVS(11119)*UV(2603)+JVS(18125)*UV(3765)+JVS(30716)*UV(4985)+JVS(37400)*UV(5222)+JVS(39952)*UV(5244)& - &+JVS(42671)*UV(5250) - JTUV(2604) = JVS(11124)*UV(2604)+JVS(16313)*UV(3541)+JVS(28078)*UV(4796)+JVS(51150)*UV(5255) - JTUV(2605) = JVS(11130)*UV(2605)+JVS(16757)*UV(3599)+JVS(31462)*UV(5030)+JVS(37853)*UV(5228)+JVS(42672)*UV(5250)& - &+JVS(48388)*UV(5253) - JTUV(2606) = JVS(11134)*UV(2606)+JVS(16246)*UV(3532)+JVS(34668)*UV(5167)+JVS(42673)*UV(5250)+JVS(48389)*UV(5253)& - &+JVS(51151)*UV(5255) - JTUV(2607) = JVS(11139)*UV(2607)+JVS(38246)*UV(5231)+JVS(38807)*UV(5232)+JVS(45230)*UV(5251) - JTUV(2608) = JVS(11145)*UV(2608)+JVS(21926)*UV(4214)+JVS(29934)*UV(4938)+JVS(42674)*UV(5250)+JVS(45231)*UV(5251)& - &+JVS(48390)*UV(5253) - JTUV(2609) = JVS(10026)*UV(2376)+JVS(11149)*UV(2609)+JVS(25935)*UV(4602)+JVS(38974)*UV(5233)+JVS(42675)*UV(5250)& - &+JVS(45232)*UV(5251)+JVS(51152)*UV(5255) - JTUV(2610) = JVS(11153)*UV(2610)+JVS(12813)*UV(2933)+JVS(34329)*UV(5160)+JVS(35613)*UV(5191)+JVS(42676)*UV(5250)& - &+JVS(48391)*UV(5253) - JTUV(2611) = JVS(11157)*UV(2611)+JVS(30111)*UV(4944)+JVS(38031)*UV(5230)+JVS(42677)*UV(5250)+JVS(45233)*UV(5251)& - &+JVS(48392)*UV(5253) - JTUV(2612) = JVS(11161)*UV(2612)+JVS(32885)*UV(5106)+JVS(34330)*UV(5160)+JVS(42678)*UV(5250)+JVS(45234)*UV(5251)& - &+JVS(48393)*UV(5253) - JTUV(2613) = JVS(6381)*UV(1590)+JVS(11165)*UV(2613)+JVS(24135)*UV(4431)+JVS(42679)*UV(5250)+JVS(45235)*UV(5251)& - &+JVS(48394)*UV(5253) - JTUV(2614) = JVS(11171)*UV(2614)+JVS(21137)*UV(4126)+JVS(31395)*UV(5026)+JVS(51153)*UV(5255) - JTUV(2615) = JVS(11177)*UV(2615)+JVS(23053)*UV(4324)+JVS(23064)*UV(4325)+JVS(42680)*UV(5250)+JVS(45236)*UV(5251)& - &+JVS(48395)*UV(5253) - JTUV(2616) = JVS(11181)*UV(2616)+JVS(19981)*UV(3993)+JVS(35472)*UV(5188)+JVS(42681)*UV(5250)+JVS(45237)*UV(5251)& - &+JVS(51154)*UV(5255) - JTUV(2617) = JVS(2446)*UV(626)+JVS(3113)*UV(781)+JVS(11185)*UV(2617)+JVS(42682)*UV(5250) - JTUV(2618) = JVS(2376)*UV(610)+JVS(11189)*UV(2618)+JVS(20863)*UV(4095)+JVS(32955)*UV(5110)+JVS(34206)*UV(5158)& - &+JVS(35772)*UV(5193)+JVS(42683)*UV(5250) - JTUV(2619) = JVS(11193)*UV(2619)+JVS(24395)*UV(4456)+JVS(30015)*UV(4939)+JVS(34331)*UV(5160)+JVS(42684)*UV(5250)& - &+JVS(48396)*UV(5253) - JTUV(2620) = JVS(11197)*UV(2620)+JVS(21849)*UV(4206)+JVS(34922)*UV(5178)+JVS(42685)*UV(5250)+JVS(45239)*UV(5251)& - &+JVS(48397)*UV(5253) - JTUV(2621) = JVS(9654)*UV(2293)+JVS(11201)*UV(2621)+JVS(15661)*UV(3431)+JVS(34332)*UV(5160)+JVS(42686)*UV(5250)& - &+JVS(48398)*UV(5253) - JTUV(2622) = JVS(11205)*UV(2622)+JVS(34758)*UV(5171)+JVS(36205)*UV(5199)+JVS(42687)*UV(5250)+JVS(45240)*UV(5251)& - &+JVS(48399)*UV(5253) - JTUV(2623) = JVS(11210)*UV(2623)+JVS(37791)*UV(5226)+JVS(38248)*UV(5231)+JVS(51156)*UV(5255) - JTUV(2624) = JVS(11216)*UV(2624)+JVS(17314)*UV(3665)+JVS(17322)*UV(3666)+JVS(21340)*UV(4152)+JVS(42688)*UV(5250)& - &+JVS(48400)*UV(5253) - JTUV(2625) = JVS(2496)*UV(638)+JVS(11220)*UV(2625)+JVS(12690)*UV(2910)+JVS(28311)*UV(4811)+JVS(31396)*UV(5026)& - &+JVS(39953)*UV(5244)+JVS(42689)*UV(5250) - JTUV(2626) = JVS(10195)*UV(2415)+JVS(10486)*UV(2480)+JVS(11224)*UV(2626)+JVS(34333)*UV(5160)+JVS(42690)*UV(5250)& - &+JVS(48401)*UV(5253) - JTUV(2627) = JVS(4048)*UV(1013)+JVS(11228)*UV(2627)+JVS(29865)*UV(4932)+JVS(42691)*UV(5250) - JTUV(2628) = JVS(7089)*UV(1741)+JVS(11232)*UV(2628)+JVS(25552)*UV(4559)+JVS(30620)*UV(4980)+JVS(42692)*UV(5250) - JTUV(2629) = JVS(10378)*UV(2457)+JVS(11236)*UV(2629)+JVS(34334)*UV(5160)+JVS(35075)*UV(5182)+JVS(42693)*UV(5250)& - &+JVS(48402)*UV(5253) - JTUV(2630) = JVS(11240)*UV(2630)+JVS(26231)*UV(4628)+JVS(34182)*UV(5157)+JVS(42694)*UV(5250)+JVS(45241)*UV(5251)& - &+JVS(48403)*UV(5253) - JTUV(2631) = JVS(11244)*UV(2631)+JVS(20153)*UV(4013)+JVS(23065)*UV(4325)+JVS(42695)*UV(5250)+JVS(45242)*UV(5251)& - &+JVS(48404)*UV(5253) - JTUV(2632) = JVS(11248)*UV(2632)+JVS(26284)*UV(4633)+JVS(32820)*UV(5103)+JVS(42696)*UV(5250)+JVS(45243)*UV(5251)& - &+JVS(48405)*UV(5253) - JTUV(2633) = JVS(6560)*UV(1627)+JVS(11252)*UV(2633)+JVS(18861)*UV(3859)+JVS(28564)*UV(4834)+JVS(42697)*UV(5250) - JTUV(2634) = JVS(11259)*UV(2634)+JVS(19031)*UV(3879)+JVS(20957)*UV(4105)+JVS(51159)*UV(5255) - JTUV(2635) = JVS(11265)*UV(2635)+JVS(23313)*UV(4352)+JVS(27843)*UV(4772)+JVS(42698)*UV(5250)+JVS(48406)*UV(5253)& - &+JVS(53233)*UV(5256) - JTUV(2636) = JVS(11269)*UV(2636)+JVS(26598)*UV(4664)+JVS(32464)*UV(5086)+JVS(42699)*UV(5250)+JVS(45244)*UV(5251)& - &+JVS(48407)*UV(5253) - JTUV(2637) = JVS(11273)*UV(2637)+JVS(17121)*UV(3642)+JVS(31420)*UV(5027)+JVS(42700)*UV(5250)+JVS(45245)*UV(5251)& - &+JVS(48408)*UV(5253) - JTUV(2638) = JVS(11280)*UV(2638)+JVS(33857)*UV(5143)+JVS(34554)*UV(5162)+JVS(51160)*UV(5255) - JTUV(2639) = JVS(11287)*UV(2639)+JVS(35773)*UV(5193)+JVS(38251)*UV(5231)+JVS(51161)*UV(5255) - JTUV(2640) = JVS(11293)*UV(2640)+JVS(26360)*UV(4641)+JVS(33307)*UV(5126)+JVS(42701)*UV(5250)+JVS(45246)*UV(5251)& - &+JVS(48409)*UV(5253) - JTUV(2641) = JVS(11298)*UV(2641)+JVS(24943)*UV(4507)+JVS(26916)*UV(4693)+JVS(51162)*UV(5255) - JTUV(2642) = JVS(11307)*UV(2642)+JVS(33858)*UV(5143)+JVS(38032)*UV(5230)+JVS(51163)*UV(5255) - JTUV(2643) = JVS(11313)*UV(2643)+JVS(21812)*UV(4202)+JVS(31471)*UV(5031)+JVS(42702)*UV(5250)+JVS(45247)*UV(5251)& - &+JVS(48410)*UV(5253) - JTUV(2644) = JVS(11320)*UV(2644)+JVS(35774)*UV(5193)+JVS(39697)*UV(5242)+JVS(51164)*UV(5255) - JTUV(2645) = JVS(11328)*UV(2645)+JVS(19814)*UV(3973)+JVS(29629)*UV(4917)+JVS(42703)*UV(5250)+JVS(45248)*UV(5251)& - &+JVS(51165)*UV(5255) - JTUV(2646) = JVS(11334)*UV(2646)+JVS(23670)*UV(4391)+JVS(27906)*UV(4778)+JVS(51166)*UV(5255) - JTUV(2647) = JVS(11342)*UV(2647)+JVS(23368)*UV(4359)+JVS(27418)*UV(4737)+JVS(51167)*UV(5255) - JTUV(2648) = JVS(6569)*UV(1628)+JVS(11348)*UV(2648)+JVS(31222)*UV(5014)+JVS(42704)*UV(5250)+JVS(45249)*UV(5251)& - &+JVS(48411)*UV(5253) - JTUV(2649) = JVS(11352)*UV(2649)+JVS(12015)*UV(2776)+JVS(18623)*UV(3828)+JVS(23033)*UV(4322)+JVS(42705)*UV(5250)& - &+JVS(48412)*UV(5253) - JTUV(2650) = JVS(11356)*UV(2650)+JVS(26514)*UV(4656)+JVS(33742)*UV(5141)+JVS(35614)*UV(5191)+JVS(42706)*UV(5250)& - &+JVS(48413)*UV(5253) - JTUV(2651) = JVS(11360)*UV(2651)+JVS(31081)*UV(5006)+JVS(35573)*UV(5189)+JVS(42707)*UV(5250)+JVS(45250)*UV(5251)& - &+JVS(48414)*UV(5253) - JTUV(2652) = JVS(11364)*UV(2652)+JVS(20265)*UV(4026)+JVS(36206)*UV(5199)+JVS(42708)*UV(5250)+JVS(45251)*UV(5251)& - &+JVS(51168)*UV(5255) - JTUV(2653) = JVS(6270)*UV(1564)+JVS(11368)*UV(2653)+JVS(30561)*UV(4975)+JVS(42709)*UV(5250)+JVS(48415)*UV(5253) - JTUV(2654) = JVS(11372)*UV(2654)+JVS(25299)*UV(4536)+JVS(27876)*UV(4775)+JVS(42710)*UV(5250)+JVS(45252)*UV(5251)& - &+JVS(51170)*UV(5255) - JTUV(2655) = JVS(11376)*UV(2655)+JVS(25445)*UV(4548)+JVS(31244)*UV(5016)+JVS(42711)*UV(5250)+JVS(45253)*UV(5251)& - &+JVS(48416)*UV(5253) - JTUV(2656) = JVS(11380)*UV(2656)+JVS(28503)*UV(4829)+JVS(32125)*UV(5066)+JVS(42712)*UV(5250)+JVS(45254)*UV(5251)& - &+JVS(48417)*UV(5253) - JTUV(2657) = JVS(11384)*UV(2657)+JVS(38252)*UV(5231)+JVS(39954)*UV(5244)+JVS(42713)*UV(5250)+JVS(45255)*UV(5251)& - &+JVS(48418)*UV(5253) - JTUV(2658) = JVS(11388)*UV(2658)+JVS(22041)*UV(4224)+JVS(31317)*UV(5021)+JVS(42714)*UV(5250)+JVS(45256)*UV(5251)& - &+JVS(48419)*UV(5253) - JTUV(2659) = JVS(11394)*UV(2659)+JVS(29935)*UV(4938)+JVS(38976)*UV(5233)+JVS(51171)*UV(5255) - JTUV(2660) = JVS(11400)*UV(2660)+JVS(29010)*UV(4867)+JVS(36971)*UV(5210)+JVS(42715)*UV(5250)+JVS(45257)*UV(5251)& - &+JVS(48420)*UV(5253) - JTUV(2661) = JVS(1746)*UV(443)+JVS(11404)*UV(2661)+JVS(32465)*UV(5086)+JVS(34335)*UV(5160)+JVS(42716)*UV(5250)& - &+JVS(48421)*UV(5253) - JTUV(2662) = JVS(11410)*UV(2662)+JVS(37401)*UV(5222)+JVS(39225)*UV(5234)+JVS(51172)*UV(5255) - JTUV(2663) = JVS(11416)*UV(2663)+JVS(13903)*UV(3128)+JVS(26056)*UV(4613)+JVS(42717)*UV(5250)+JVS(45258)*UV(5251)& - &+JVS(48422)*UV(5253) - JTUV(2664) = JVS(6396)*UV(1593)+JVS(11420)*UV(2664)+JVS(13904)*UV(3128)+JVS(42718)*UV(5250)+JVS(48423)*UV(5253) - JTUV(2665) = JVS(11425)*UV(2665)+JVS(33859)*UV(5143)+JVS(35184)*UV(5183)+JVS(36053)*UV(5195)+JVS(42719)*UV(5250)& - &+JVS(51173)*UV(5255) - JTUV(2666) = JVS(11429)*UV(2666)+JVS(14326)*UV(3213)+JVS(26764)*UV(4679)+JVS(42720)*UV(5250)+JVS(45259)*UV(5251)& - &+JVS(48424)*UV(5253) - JTUV(2667) = JVS(11434)*UV(2667)+JVS(37132)*UV(5214)+JVS(38254)*UV(5231)+JVS(45260)*UV(5251) - JTUV(2668) = JVS(11441)*UV(2668)+JVS(24944)*UV(4507)+JVS(26917)*UV(4693)+JVS(48425)*UV(5253) - JTUV(2669) = JVS(11447)*UV(2669)+JVS(24870)*UV(4500)+JVS(24882)*UV(4501)+JVS(42721)*UV(5250)+JVS(45261)*UV(5251)& - &+JVS(48426)*UV(5253) - JTUV(2670) = JVS(11451)*UV(2670)+JVS(24183)*UV(4436)+JVS(29493)*UV(4909)+JVS(42722)*UV(5250)+JVS(45262)*UV(5251)& - &+JVS(48427)*UV(5253) - JTUV(2671) = JVS(11455)*UV(2671)+JVS(26773)*UV(4680)+JVS(31472)*UV(5031)+JVS(42723)*UV(5250)+JVS(45263)*UV(5251)& - &+JVS(48428)*UV(5253) - JTUV(2672) = JVS(6223)*UV(1553)+JVS(7026)*UV(1728)+JVS(11459)*UV(2672)+JVS(42724)*UV(5250)+JVS(48429)*UV(5253) - JTUV(2673) = JVS(8269)*UV(1986)+JVS(11463)*UV(2673)+JVS(15581)*UV(3420)+JVS(42725)*UV(5250)+JVS(48430)*UV(5253) - JTUV(2674) = JVS(11467)*UV(2674)+JVS(24347)*UV(4451)+JVS(37039)*UV(5211)+JVS(42726)*UV(5250)+JVS(45264)*UV(5251)& - &+JVS(48431)*UV(5253) - JTUV(2675) = JVS(11471)*UV(2675)+JVS(30941)*UV(5000)+JVS(32772)*UV(5101)+JVS(42727)*UV(5250)+JVS(45265)*UV(5251)& - &+JVS(48432)*UV(5253) - JTUV(2676) = JVS(11476)*UV(2676)+JVS(27136)*UV(4710)+JVS(35776)*UV(5193)+JVS(51174)*UV(5255) - JTUV(2677) = JVS(11482)*UV(2677)+JVS(22407)*UV(4260)+JVS(32203)*UV(5071)+JVS(42728)*UV(5250)+JVS(45266)*UV(5251)& - &+JVS(48433)*UV(5253) - JTUV(2678) = JVS(11486)*UV(2678)+JVS(22238)*UV(4243)+JVS(30523)*UV(4973)+JVS(42729)*UV(5250)+JVS(45267)*UV(5251)& - &+JVS(48434)*UV(5253) - JTUV(2679) = JVS(11491)*UV(2679)+JVS(35777)*UV(5193)+JVS(39955)*UV(5244)+JVS(45268)*UV(5251) - JTUV(2680) = JVS(11499)*UV(2680)+JVS(17038)*UV(3633)+JVS(32314)*UV(5079)+JVS(34207)*UV(5158)+JVS(42730)*UV(5250)& - &+JVS(51175)*UV(5255) - JTUV(2681) = JVS(11503)*UV(2681)+JVS(21474)*UV(4168)+JVS(33592)*UV(5139)+JVS(35615)*UV(5191)+JVS(42731)*UV(5250)& - &+JVS(48435)*UV(5253) - JTUV(2682) = JVS(11508)*UV(2682)+JVS(24945)*UV(4507)+JVS(26918)*UV(4693)+JVS(48436)*UV(5253) - JTUV(2683) = JVS(11514)*UV(2683)+JVS(22219)*UV(4241)+JVS(24745)*UV(4490)+JVS(39956)*UV(5244)+JVS(42732)*UV(5250)& - &+JVS(48437)*UV(5253) - JTUV(2684) = JVS(11518)*UV(2684)+JVS(23621)*UV(4386)+JVS(31120)*UV(5008)+JVS(42733)*UV(5250)+JVS(45269)*UV(5251)& - &+JVS(48438)*UV(5253) - JTUV(2685) = JVS(11522)*UV(2685)+JVS(30778)*UV(4989)+JVS(36898)*UV(5207)+JVS(42734)*UV(5250)+JVS(45270)*UV(5251)& - &+JVS(48439)*UV(5253) - JTUV(2686) = JVS(11526)*UV(2686)+JVS(16586)*UV(3578)+JVS(19361)*UV(3918)+JVS(26716)*UV(4674)+JVS(39957)*UV(5244)& - &+JVS(42735)*UV(5250) - JTUV(2687) = JVS(10415)*UV(2465)+JVS(11530)*UV(2687)+JVS(34336)*UV(5160)+JVS(38255)*UV(5231)+JVS(42736)*UV(5250)& - &+JVS(48440)*UV(5253) - JTUV(2688) = JVS(11534)*UV(2688)+JVS(28661)*UV(4842)+JVS(31702)*UV(5044)+JVS(42737)*UV(5250)+JVS(45271)*UV(5251)& - &+JVS(48441)*UV(5253) - JTUV(2689) = JVS(11538)*UV(2689)+JVS(29630)*UV(4917)+JVS(29649)*UV(4918)+JVS(42738)*UV(5250)+JVS(45272)*UV(5251)& - &+JVS(48442)*UV(5253) - JTUV(2690) = JVS(3197)*UV(801)+JVS(7363)*UV(1797)+JVS(11542)*UV(2690)+JVS(21598)*UV(4181)+JVS(38256)*UV(5231)& - &+JVS(42739)*UV(5250) - JTUV(2691) = JVS(11546)*UV(2691)+JVS(33526)*UV(5137)+JVS(33593)*UV(5139)+JVS(42740)*UV(5250)+JVS(45274)*UV(5251)& - &+JVS(48443)*UV(5253) - JTUV(2692) = JVS(11551)*UV(2692)+JVS(35185)*UV(5183)+JVS(35778)*UV(5193)+JVS(45275)*UV(5251) - JTUV(2693) = JVS(2060)*UV(532)+JVS(11557)*UV(2693)+JVS(19510)*UV(3935)+JVS(27961)*UV(4785)+JVS(42741)*UV(5250) - JTUV(2694) = JVS(11562)*UV(2694)+JVS(23394)*UV(4362)+JVS(38257)*UV(5231)+JVS(51178)*UV(5255) - JTUV(2695) = JVS(2578)*UV(656)+JVS(8547)*UV(2043)+JVS(11568)*UV(2695)+JVS(38808)*UV(5232)+JVS(39226)*UV(5234)& - &+JVS(42742)*UV(5250) - JTUV(2696) = JVS(11572)*UV(2696)+JVS(30444)*UV(4966)+JVS(33594)*UV(5139)+JVS(42743)*UV(5250)+JVS(45276)*UV(5251)& - &+JVS(48444)*UV(5253) - JTUV(2697) = JVS(11579)*UV(2697)+JVS(34337)*UV(5160)+JVS(39698)*UV(5242)+JVS(51180)*UV(5255) - JTUV(2698) = JVS(11585)*UV(2698)+JVS(22549)*UV(4275)+JVS(35616)*UV(5191)+JVS(42744)*UV(5250)+JVS(45277)*UV(5251)& - &+JVS(48445)*UV(5253) - JTUV(2699) = JVS(11591)*UV(2699)+JVS(19145)*UV(3893)+JVS(19857)*UV(3978)+JVS(51181)*UV(5255) - JTUV(2700) = JVS(11597)*UV(2700)+JVS(21535)*UV(4175)+JVS(27366)*UV(4731)+JVS(35779)*UV(5193)+JVS(42745)*UV(5250)& - &+JVS(48446)*UV(5253) - JTUV(2701) = JVS(7644)*UV(1852)+JVS(11601)*UV(2701)+JVS(20947)*UV(4104)+JVS(34338)*UV(5160)+JVS(42746)*UV(5250)& - &+JVS(48447)*UV(5253) - JTUV(2702) = JVS(11605)*UV(2702)+JVS(25147)*UV(4522)+JVS(34923)*UV(5178)+JVS(42747)*UV(5250)+JVS(45278)*UV(5251)& - &+JVS(48448)*UV(5253) - JTUV(2703) = JVS(11609)*UV(2703)+JVS(23686)*UV(4392)+JVS(31903)*UV(5054)+JVS(42748)*UV(5250)+JVS(45279)*UV(5251)& - &+JVS(48449)*UV(5253) - JTUV(2704) = JVS(11613)*UV(2704)+JVS(31869)*UV(5052)+JVS(39575)*UV(5240)+JVS(42749)*UV(5250)+JVS(45280)*UV(5251)& - &+JVS(48450)*UV(5253) - JTUV(2705) = JVS(11617)*UV(2705)+JVS(19457)*UV(3929)+JVS(24433)*UV(4460)+JVS(42750)*UV(5250)+JVS(48451)*UV(5253)& - &+JVS(53234)*UV(5256) - JTUV(2706) = JVS(11622)*UV(2706)+JVS(36018)*UV(5194)+JVS(38258)*UV(5231)+JVS(51182)*UV(5255) - JTUV(2707) = JVS(11629)*UV(2707)+JVS(38259)*UV(5231)+JVS(39227)*UV(5234)+JVS(51183)*UV(5255) - JTUV(2708) = JVS(11635)*UV(2708)+JVS(31262)*UV(5017)+JVS(32430)*UV(5085)+JVS(42751)*UV(5250)+JVS(45281)*UV(5251)& - &+JVS(48452)*UV(5253) - JTUV(2709) = JVS(11639)*UV(2709)+JVS(13334)*UV(3027)+JVS(18518)*UV(3815)+JVS(27494)*UV(4743)+JVS(42752)*UV(5250)& - &+JVS(48453)*UV(5253) - JTUV(2710) = JVS(11645)*UV(2710)+JVS(18723)*UV(3843)+JVS(19721)*UV(3961)+JVS(51184)*UV(5255) - JTUV(2711) = JVS(11653)*UV(2711)+JVS(16206)*UV(3526)+JVS(34080)*UV(5152)+JVS(38809)*UV(5232)+JVS(42753)*UV(5250)& - &+JVS(51185)*UV(5255) - JTUV(2712) = JVS(11657)*UV(2712)+JVS(25936)*UV(4602)+JVS(28422)*UV(4822)+JVS(42754)*UV(5250)+JVS(45282)*UV(5251)& - &+JVS(48454)*UV(5253) - JTUV(2713) = JVS(6561)*UV(1627)+JVS(11661)*UV(2713)+JVS(28565)*UV(4834)+JVS(42755)*UV(5250)+JVS(48455)*UV(5253) - JTUV(2714) = JVS(11666)*UV(2714)+JVS(18870)*UV(3860)+JVS(31532)*UV(5034)+JVS(42756)*UV(5250)+JVS(45283)*UV(5251)& - &+JVS(51187)*UV(5255) - JTUV(2715) = JVS(6390)*UV(1592)+JVS(11670)*UV(2715)+JVS(29936)*UV(4938)+JVS(32682)*UV(5098)+JVS(35780)*UV(5193)& - &+JVS(39958)*UV(5244)+JVS(42757)*UV(5250) - JTUV(2716) = JVS(11677)*UV(2716)+JVS(22116)*UV(4231)+JVS(42758)*UV(5250)+JVS(51188)*UV(5255) - JTUV(2717) = JVS(11684)*UV(2717)+JVS(29494)*UV(4909)+JVS(39228)*UV(5234)+JVS(51189)*UV(5255) - JTUV(2718) = JVS(11690)*UV(2718)+JVS(23995)*UV(4419)+JVS(30363)*UV(4961)+JVS(42759)*UV(5250)+JVS(45284)*UV(5251)& - &+JVS(48456)*UV(5253) - JTUV(2719) = JVS(11698)*UV(2719)+JVS(14420)*UV(3233)+JVS(32836)*UV(5104)+JVS(42760)*UV(5250) - JTUV(2720) = JVS(11705)*UV(2720)+JVS(35617)*UV(5191)+JVS(38260)*UV(5231)+JVS(51190)*UV(5255) - JTUV(2721) = JVS(11711)*UV(2721)+JVS(25937)*UV(4602)+JVS(26134)*UV(4620)+JVS(38033)*UV(5230)+JVS(42761)*UV(5250)& - &+JVS(48457)*UV(5253) - JTUV(2722) = JVS(11717)*UV(2722)+JVS(19605)*UV(3947)+JVS(21458)*UV(4166)+JVS(51191)*UV(5255) - JTUV(2723) = JVS(9259)*UV(2203)+JVS(11723)*UV(2723)+JVS(22155)*UV(4235)+JVS(32956)*UV(5110)+JVS(38261)*UV(5231)& - &+JVS(42762)*UV(5250) - JTUV(2724) = JVS(11728)*UV(2724)+JVS(35077)*UV(5182)+JVS(38810)*UV(5232)+JVS(45285)*UV(5251) - JTUV(2725) = JVS(11734)*UV(2725)+JVS(17142)*UV(3644)+JVS(22886)*UV(4308)+JVS(42763)*UV(5250)+JVS(45286)*UV(5251)& - &+JVS(48458)*UV(5253) - JTUV(2726) = JVS(11738)*UV(2726)+JVS(28774)*UV(4850)+JVS(34555)*UV(5162)+JVS(42764)*UV(5250)+JVS(45287)*UV(5251)& - &+JVS(48459)*UV(5253) - JTUV(2727) = JVS(2791)*UV(708)+JVS(7670)*UV(1858)+JVS(11742)*UV(2727)+JVS(30245)*UV(4953)+JVS(38262)*UV(5231)& - &+JVS(42765)*UV(5250) - JTUV(2728) = JVS(11747)*UV(2728)+JVS(26992)*UV(4694)+JVS(33595)*UV(5139)+JVS(48460)*UV(5253) - JTUV(2729) = JVS(11753)*UV(2729)+JVS(15074)*UV(3350)+JVS(25125)*UV(4520)+JVS(42766)*UV(5250)+JVS(45289)*UV(5251)& - &+JVS(48461)*UV(5253) - JTUV(2730) = JVS(2652)*UV(674)+JVS(11757)*UV(2730)+JVS(13492)*UV(3057)+JVS(29548)*UV(4911)+JVS(30190)*UV(4949)& - &+JVS(35781)*UV(5193)+JVS(42767)*UV(5250) - JTUV(2731) = JVS(11762)*UV(2731)+JVS(15895)*UV(3478)+JVS(28079)*UV(4796)+JVS(51194)*UV(5255) - JTUV(2732) = JVS(11769)*UV(2732)+JVS(21565)*UV(4178)+JVS(33596)*UV(5139)+JVS(48462)*UV(5253) - JTUV(2733) = JVS(11776)*UV(2733)+JVS(24946)*UV(4507)+JVS(26919)*UV(4693)+JVS(48463)*UV(5253) - JTUV(2734) = JVS(11782)*UV(2734)+JVS(35782)*UV(5193)+JVS(38977)*UV(5233)+JVS(48464)*UV(5253) - JTUV(2735) = JVS(11788)*UV(2735)+JVS(15376)*UV(3392)+JVS(32267)*UV(5075)+JVS(42768)*UV(5250)+JVS(48465)*UV(5253)& - &+JVS(51195)*UV(5255) - JTUV(2736) = JVS(11793)*UV(2736)+JVS(23129)*UV(4331)+JVS(26920)*UV(4693)+JVS(48466)*UV(5253) - JTUV(2737) = JVS(7226)*UV(1769)+JVS(7530)*UV(1828)+JVS(11799)*UV(2737)+JVS(14479)*UV(3242)+JVS(42769)*UV(5250)& - &+JVS(45290)*UV(5251)+JVS(51196)*UV(5255) - JTUV(2738) = JVS(11803)*UV(2738)+JVS(22613)*UV(4281)+JVS(38034)*UV(5230)+JVS(42770)*UV(5250)+JVS(45291)*UV(5251)& - &+JVS(48467)*UV(5253) - JTUV(2739) = JVS(11808)*UV(2739)+JVS(38263)*UV(5231)+JVS(39959)*UV(5244)+JVS(45292)*UV(5251) - JTUV(2740) = JVS(11814)*UV(2740)+JVS(13164)*UV(2994)+JVS(14245)*UV(3195)+JVS(17297)*UV(3663)+JVS(42771)*UV(5250)& - &+JVS(48468)*UV(5253) - JTUV(2741) = JVS(11819)*UV(2741)+JVS(24947)*UV(4507)+JVS(26921)*UV(4693)+JVS(51197)*UV(5255) - JTUV(2742) = JVS(10353)*UV(2452)+JVS(11825)*UV(2742)+JVS(24787)*UV(4493)+JVS(34339)*UV(5160)+JVS(42772)*UV(5250)& - &+JVS(48469)*UV(5253) - JTUV(2743) = JVS(11829)*UV(2743)+JVS(23563)*UV(4380)+JVS(36813)*UV(5203)+JVS(42773)*UV(5250)+JVS(45293)*UV(5251)& - &+JVS(48470)*UV(5253) - JTUV(2744) = JVS(11834)*UV(2744)+JVS(17071)*UV(3638)+JVS(38264)*UV(5231)+JVS(51198)*UV(5255) - JTUV(2745) = JVS(11842)*UV(2745)+JVS(35369)*UV(5184)+JVS(35783)*UV(5193)+JVS(51199)*UV(5255) - JTUV(2746) = JVS(11850)*UV(2746)+JVS(38265)*UV(5231)+JVS(39576)*UV(5240)+JVS(51200)*UV(5255) - JTUV(2747) = JVS(11857)*UV(2747)+JVS(36814)*UV(5203)+JVS(38266)*UV(5231)+JVS(51201)*UV(5255) - JTUV(2748) = JVS(11863)*UV(2748)+JVS(34718)*UV(5170)+JVS(38267)*UV(5231)+JVS(42774)*UV(5250)+JVS(45294)*UV(5251)& - &+JVS(51202)*UV(5255) - JTUV(2749) = JVS(11868)*UV(2749)+JVS(30593)*UV(4978)+JVS(39437)*UV(5237)+JVS(45295)*UV(5251) - JTUV(2750) = JVS(11875)*UV(2750)+JVS(32431)*UV(5085)+JVS(38268)*UV(5231)+JVS(48471)*UV(5253) - JTUV(2751) = JVS(11882)*UV(2751)+JVS(30112)*UV(4944)+JVS(33597)*UV(5139)+JVS(45296)*UV(5251) - JTUV(2752) = JVS(11889)*UV(2752)+JVS(37402)*UV(5222)+JVS(38978)*UV(5233)+JVS(51203)*UV(5255) - JTUV(2753) = JVS(6224)*UV(1553)+JVS(7027)*UV(1728)+JVS(11895)*UV(2753)+JVS(21145)*UV(4127)+JVS(42775)*UV(5250) - JTUV(2754) = JVS(11899)*UV(2754)+JVS(22798)*UV(4299)+JVS(25275)*UV(4534)+JVS(42776)*UV(5250)+JVS(45297)*UV(5251)& - &+JVS(51204)*UV(5255) - JTUV(2755) = JVS(11903)*UV(2755)+JVS(19858)*UV(3978)+JVS(30791)*UV(4990)+JVS(42777)*UV(5250)+JVS(45298)*UV(5251)& - &+JVS(48472)*UV(5253) - JTUV(2756) = JVS(11907)*UV(2756)+JVS(17091)*UV(3639)+JVS(28841)*UV(4854)+JVS(42778)*UV(5250)+JVS(45299)*UV(5251)& - &+JVS(48473)*UV(5253) - JTUV(2757) = JVS(11911)*UV(2757)+JVS(16936)*UV(3619)+JVS(26033)*UV(4611)+JVS(42779)*UV(5250)+JVS(45300)*UV(5251)& - &+JVS(48474)*UV(5253) - JTUV(2758) = JVS(11916)*UV(2758)+JVS(26160)*UV(4622)+JVS(38269)*UV(5231)+JVS(45301)*UV(5251) - JTUV(2759) = JVS(7393)*UV(1803)+JVS(11922)*UV(2759)+JVS(22580)*UV(4278)+JVS(34340)*UV(5160)+JVS(42780)*UV(5250)& - &+JVS(48475)*UV(5253) - JTUV(2760) = JVS(11927)*UV(2760)+JVS(34556)*UV(5162)+JVS(38270)*UV(5231)+JVS(51205)*UV(5255) - JTUV(2761) = JVS(6504)*UV(1616)+JVS(11933)*UV(2761)+JVS(19406)*UV(3923)+JVS(42781)*UV(5250)+JVS(48476)*UV(5253) - JTUV(2762) = JVS(11938)*UV(2762)+JVS(24762)*UV(4491)+JVS(37403)*UV(5222)+JVS(48477)*UV(5253) - JTUV(2763) = JVS(11944)*UV(2763)+JVS(22476)*UV(4267)+JVS(25938)*UV(4602)+JVS(42782)*UV(5250)+JVS(45302)*UV(5251)& - &+JVS(51207)*UV(5255) - JTUV(2764) = JVS(6414)*UV(1597)+JVS(11948)*UV(2764)+JVS(13905)*UV(3128)+JVS(42783)*UV(5250)+JVS(48478)*UV(5253) - JTUV(2765) = JVS(11952)*UV(2765)+JVS(20441)*UV(4046)+JVS(21780)*UV(4199)+JVS(42784)*UV(5250)+JVS(45303)*UV(5251)& - &+JVS(48479)*UV(5253) - JTUV(2766) = JVS(11956)*UV(2766)+JVS(23553)*UV(4379)+JVS(29240)*UV(4888)+JVS(29937)*UV(4938)+JVS(39960)*UV(5244)& - &+JVS(42785)*UV(5250) - JTUV(2767) = JVS(11962)*UV(2767)+JVS(17330)*UV(3667)+JVS(19014)*UV(3877)+JVS(51209)*UV(5255) - JTUV(2768) = JVS(11969)*UV(2768)+JVS(26993)*UV(4694)+JVS(45304)*UV(5251)+JVS(48480)*UV(5253) - JTUV(2769) = JVS(10257)*UV(2430)+JVS(11975)*UV(2769)+JVS(27480)*UV(4742)+JVS(38271)*UV(5231)+JVS(39961)*UV(5244)& - &+JVS(42786)*UV(5250)+JVS(45305)*UV(5251) - JTUV(2770) = JVS(11980)*UV(2770)+JVS(31374)*UV(5024)+JVS(38272)*UV(5231)+JVS(51210)*UV(5255) - JTUV(2771) = JVS(11987)*UV(2771)+JVS(36019)*UV(5194)+JVS(38273)*UV(5231)+JVS(51211)*UV(5255) - JTUV(2772) = JVS(11993)*UV(2772)+JVS(27606)*UV(4752)+JVS(34891)*UV(5177)+JVS(42787)*UV(5250)+JVS(45306)*UV(5251)& - &+JVS(48481)*UV(5253) - JTUV(2773) = JVS(12000)*UV(2773)+JVS(21948)*UV(4216)+JVS(42788)*UV(5250)+JVS(51212)*UV(5255) - JTUV(2774) = JVS(6315)*UV(1574)+JVS(12006)*UV(2774)+JVS(31882)*UV(5053)+JVS(33598)*UV(5139)+JVS(35186)*UV(5183)& - &+JVS(38274)*UV(5231)+JVS(42789)*UV(5250) - JTUV(2775) = JVS(6986)*UV(1721)+JVS(12010)*UV(2775)+JVS(18978)*UV(3873)+JVS(32087)*UV(5063)+JVS(42790)*UV(5250) - JTUV(2776) = JVS(12016)*UV(2776)+JVS(18630)*UV(3829)+JVS(37404)*UV(5222)+JVS(48482)*UV(5253) - JTUV(2777) = JVS(12022)*UV(2777)+JVS(26313)*UV(4636)+JVS(32334)*UV(5080)+JVS(42791)*UV(5250)+JVS(45307)*UV(5251)& - &+JVS(48483)*UV(5253) - JTUV(2778) = JVS(12026)*UV(2778)+JVS(25157)*UV(4523)+JVS(25170)*UV(4524)+JVS(42792)*UV(5250)+JVS(45308)*UV(5251)& - &+JVS(48484)*UV(5253) - JTUV(2779) = JVS(12030)*UV(2779)+JVS(16801)*UV(3604)+JVS(26833)*UV(4686)+JVS(42793)*UV(5250)+JVS(45309)*UV(5251)& - &+JVS(48485)*UV(5253) - JTUV(2780) = JVS(12034)*UV(2780)+JVS(21665)*UV(4187)+JVS(30409)*UV(4964)+JVS(42794)*UV(5250)+JVS(45310)*UV(5251)& - &+JVS(48486)*UV(5253) - JTUV(2781) = JVS(6697)*UV(1656)+JVS(12038)*UV(2781)+JVS(27431)*UV(4738)+JVS(42795)*UV(5250)+JVS(45311)*UV(5251)& - &+JVS(48487)*UV(5253) - JTUV(2782) = JVS(12042)*UV(2782)+JVS(15228)*UV(3372)+JVS(18028)*UV(3754)+JVS(37858)*UV(5228)+JVS(42796)*UV(5250)& - &+JVS(48488)*UV(5253) - JTUV(2783) = JVS(12046)*UV(2783)+JVS(38275)*UV(5231)+JVS(42797)*UV(5250)+JVS(48489)*UV(5253) - JTUV(2784) = JVS(12052)*UV(2784)+JVS(22104)*UV(4230)+JVS(35370)*UV(5184)+JVS(42798)*UV(5250)+JVS(45312)*UV(5251)& - &+JVS(48490)*UV(5253) - JTUV(2785) = JVS(6748)*UV(1667)+JVS(12056)*UV(2785)+JVS(19146)*UV(3893)+JVS(22418)*UV(4261)+JVS(42799)*UV(5250) - JTUV(2786) = JVS(12060)*UV(2786)+JVS(30379)*UV(4962)+JVS(35371)*UV(5184)+JVS(42800)*UV(5250)+JVS(45313)*UV(5251)& - &+JVS(48491)*UV(5253) - JTUV(2787) = JVS(12064)*UV(2787)+JVS(26370)*UV(4642)+JVS(31397)*UV(5026)+JVS(42801)*UV(5250)+JVS(45314)*UV(5251)& - &+JVS(48492)*UV(5253) - JTUV(2788) = JVS(12069)*UV(2788)+JVS(38276)*UV(5231)+JVS(45315)*UV(5251)+JVS(51215)*UV(5255) - JTUV(2789) = JVS(12077)*UV(2789)+JVS(20450)*UV(4047)+JVS(37405)*UV(5222)+JVS(48493)*UV(5253) - JTUV(2790) = JVS(12083)*UV(2790)+JVS(30191)*UV(4949)+JVS(35473)*UV(5188)+JVS(42802)*UV(5250)+JVS(45316)*UV(5251)& - &+JVS(48494)*UV(5253) - JTUV(2791) = JVS(12087)*UV(2791)+JVS(22360)*UV(4255)+JVS(37792)*UV(5226)+JVS(42803)*UV(5250)+JVS(45317)*UV(5251)& - &+JVS(48495)*UV(5253) - JTUV(2792) = JVS(12091)*UV(2792)+JVS(34341)*UV(5160)+JVS(39775)*UV(5243)+JVS(42804)*UV(5250)+JVS(45318)*UV(5251)& - &+JVS(48496)*UV(5253) - JTUV(2793) = JVS(12095)*UV(2793)+JVS(32736)*UV(5100)+JVS(37406)*UV(5222)+JVS(42805)*UV(5250)+JVS(45319)*UV(5251)& - &+JVS(48497)*UV(5253) - JTUV(2794) = JVS(12099)*UV(2794)+JVS(25300)*UV(4536)+JVS(27877)*UV(4775)+JVS(42806)*UV(5250)+JVS(45320)*UV(5251)& - &+JVS(48498)*UV(5253) - JTUV(2795) = JVS(12104)*UV(2795)+JVS(35786)*UV(5193)+JVS(38979)*UV(5233)+JVS(51216)*UV(5255) - JTUV(2796) = JVS(12110)*UV(2796)+JVS(23944)*UV(4414)+JVS(39229)*UV(5234)+JVS(42807)*UV(5250)+JVS(45321)*UV(5251)& - &+JVS(48499)*UV(5253) - JTUV(2797) = JVS(9002)*UV(2145)+JVS(12114)*UV(2797)+JVS(19973)*UV(3992)+JVS(25351)*UV(4540)+JVS(42808)*UV(5250)& - &+JVS(45322)*UV(5251)+JVS(51217)*UV(5255) - JTUV(2798) = JVS(12119)*UV(2798)+JVS(23741)*UV(4398)+JVS(38980)*UV(5233)+JVS(48500)*UV(5253) - JTUV(2799) = JVS(12120)*UV(2798)+JVS(12125)*UV(2799)+JVS(19227)*UV(3903)+JVS(23742)*UV(4398)+JVS(38981)*UV(5233)& - &+JVS(42809)*UV(5250)+JVS(48501)*UV(5253) - JTUV(2800) = JVS(12129)*UV(2800)+JVS(21858)*UV(4207)+JVS(31920)*UV(5055)+JVS(42810)*UV(5250)+JVS(45323)*UV(5251)& - &+JVS(48502)*UV(5253) - JTUV(2801) = JVS(12133)*UV(2801)+JVS(22398)*UV(4259)+JVS(36020)*UV(5194)+JVS(42811)*UV(5250)+JVS(45324)*UV(5251)& - &+JVS(48503)*UV(5253) - JTUV(2802) = JVS(7471)*UV(1818)+JVS(12137)*UV(2802)+JVS(16431)*UV(3557)+JVS(34342)*UV(5160)+JVS(42812)*UV(5250)& - &+JVS(48504)*UV(5253) - JTUV(2803) = JVS(12141)*UV(2803)+JVS(31883)*UV(5053)+JVS(33527)*UV(5137)+JVS(42813)*UV(5250)+JVS(45325)*UV(5251)& - &+JVS(51218)*UV(5255) - JTUV(2804) = JVS(12145)*UV(2804)+JVS(37133)*UV(5214)+JVS(38982)*UV(5233)+JVS(42814)*UV(5250)+JVS(45326)*UV(5251)& - &+JVS(48505)*UV(5253) - JTUV(2805) = JVS(7743)*UV(1872)+JVS(12149)*UV(2805)+JVS(14117)*UV(3171)+JVS(32497)*UV(5087)+JVS(42815)*UV(5250)& - &+JVS(45327)*UV(5251)+JVS(51219)*UV(5255) - JTUV(2806) = JVS(12154)*UV(2806)+JVS(18564)*UV(3821)+JVS(38983)*UV(5233)+JVS(48506)*UV(5253) - JTUV(2807) = JVS(12160)*UV(2807)+JVS(35787)*UV(5193)+JVS(45328)*UV(5251)+JVS(51220)*UV(5255) - JTUV(2808) = JVS(12166)*UV(2808)+JVS(29816)*UV(4930)+JVS(29832)*UV(4931)+JVS(42816)*UV(5250)+JVS(45329)*UV(5251)& - &+JVS(48507)*UV(5253) - JTUV(2809) = JVS(12172)*UV(2809)+JVS(21039)*UV(4115)+JVS(28614)*UV(4839)+JVS(39438)*UV(5237)+JVS(42817)*UV(5250)& - &+JVS(45330)*UV(5251) - JTUV(2810) = JVS(6397)*UV(1593)+JVS(12176)*UV(2810)+JVS(13906)*UV(3128)+JVS(26067)*UV(4614)+JVS(42818)*UV(5250) - JTUV(2811) = JVS(12180)*UV(2811)+JVS(24099)*UV(4428)+JVS(35788)*UV(5193)+JVS(42819)*UV(5250)+JVS(45331)*UV(5251)& - &+JVS(48508)*UV(5253) - JTUV(2812) = JVS(8257)*UV(1984)+JVS(12184)*UV(2812)+JVS(24788)*UV(4493)+JVS(34343)*UV(5160)+JVS(42820)*UV(5250)& - &+JVS(48509)*UV(5253) - JTUV(2813) = JVS(12188)*UV(2813)+JVS(30594)*UV(4978)+JVS(40456)*UV(5245)+JVS(42821)*UV(5250)+JVS(45332)*UV(5251)& - &+JVS(48510)*UV(5253) - JTUV(2814) = JVS(12192)*UV(2814)+JVS(14714)*UV(3284)+JVS(35474)*UV(5188)+JVS(37407)*UV(5222)+JVS(42822)*UV(5250)& - &+JVS(48511)*UV(5253) - JTUV(2815) = JVS(12196)*UV(2815)+JVS(22977)*UV(4316)+JVS(30942)*UV(5000)+JVS(42823)*UV(5250)+JVS(45333)*UV(5251)& - &+JVS(48512)*UV(5253) - JTUV(2816) = JVS(12201)*UV(2816)+JVS(38984)*UV(5233)+JVS(39230)*UV(5234)+JVS(51221)*UV(5255) - JTUV(2817) = JVS(7716)*UV(1867)+JVS(12207)*UV(2817)+JVS(19202)*UV(3900)+JVS(42824)*UV(5250)+JVS(48513)*UV(5253) - JTUV(2818) = JVS(12212)*UV(2818)+JVS(23801)*UV(4403)+JVS(24948)*UV(4507)+JVS(48514)*UV(5253) - JTUV(2819) = JVS(12219)*UV(2819)+JVS(38279)*UV(5231)+JVS(39962)*UV(5244)+JVS(45334)*UV(5251) - JTUV(2820) = JVS(12226)*UV(2820)+JVS(35789)*UV(5193)+JVS(39963)*UV(5244)+JVS(45335)*UV(5251) - JTUV(2821) = JVS(12233)*UV(2821)+JVS(38280)*UV(5231)+JVS(39699)*UV(5242)+JVS(48515)*UV(5253) - JTUV(2822) = JVS(12239)*UV(2822)+JVS(28198)*UV(4801)+JVS(30607)*UV(4979)+JVS(42825)*UV(5250)+JVS(45336)*UV(5251)& - &+JVS(48516)*UV(5253) - JTUV(2823) = JVS(12243)*UV(2823)+JVS(25335)*UV(4539)+JVS(29903)*UV(4936)+JVS(42826)*UV(5250)+JVS(45337)*UV(5251)& - &+JVS(48517)*UV(5253) - JTUV(2824) = JVS(12247)*UV(2824)+JVS(25085)*UV(4516)+JVS(35015)*UV(5180)+JVS(42827)*UV(5250)+JVS(45338)*UV(5251)& - &+JVS(51222)*UV(5255) - JTUV(2825) = JVS(12251)*UV(2825)+JVS(39231)*UV(5234)+JVS(39439)*UV(5237)+JVS(42828)*UV(5250)+JVS(45339)*UV(5251)& - &+JVS(48518)*UV(5253) - JTUV(2826) = JVS(12258)*UV(2826)+JVS(33860)*UV(5143)+JVS(35790)*UV(5193)+JVS(51223)*UV(5255) - JTUV(2827) = JVS(12265)*UV(2827)+JVS(35791)*UV(5193)+JVS(38281)*UV(5231)+JVS(51224)*UV(5255) - JTUV(2828) = JVS(12161)*UV(2807)+JVS(12271)*UV(2828)+JVS(35792)*UV(5193)+JVS(37408)*UV(5222)+JVS(42829)*UV(5250)& - &+JVS(45340)*UV(5251)+JVS(51225)*UV(5255) - JTUV(2829) = JVS(6655)*UV(1648)+JVS(12275)*UV(2829)+JVS(28949)*UV(4863)+JVS(42830)*UV(5250)+JVS(45341)*UV(5251)& - &+JVS(48519)*UV(5253) - JTUV(2830) = JVS(12279)*UV(2830)+JVS(27853)*UV(4773)+JVS(37409)*UV(5222)+JVS(42831)*UV(5250)+JVS(45342)*UV(5251)& - &+JVS(48520)*UV(5253) - JTUV(2831) = JVS(12284)*UV(2831)+JVS(34344)*UV(5160)+JVS(35793)*UV(5193)+JVS(48521)*UV(5253) - JTUV(2832) = JVS(12291)*UV(2832)+JVS(38282)*UV(5231)+JVS(39577)*UV(5240)+JVS(48522)*UV(5253) - JTUV(2833) = JVS(12297)*UV(2833)+JVS(24280)*UV(4445)+JVS(35618)*UV(5191)+JVS(36207)*UV(5199)+JVS(42832)*UV(5250)& - &+JVS(48523)*UV(5253) - JTUV(2834) = JVS(12301)*UV(2834)+JVS(13445)*UV(3048)+JVS(38283)*UV(5231)+JVS(39700)*UV(5242)+JVS(42833)*UV(5250)& - &+JVS(48524)*UV(5253) - JTUV(2835) = JVS(6263)*UV(1563)+JVS(12305)*UV(2835)+JVS(33044)*UV(5115)+JVS(42834)*UV(5250)+JVS(48525)*UV(5253) - JTUV(2836) = JVS(2707)*UV(688)+JVS(7331)*UV(1791)+JVS(12309)*UV(2836)+JVS(30779)*UV(4989)+JVS(38284)*UV(5231)& - &+JVS(42835)*UV(5250) - JTUV(2837) = JVS(12314)*UV(2837)+JVS(31578)*UV(5037)+JVS(45344)*UV(5251)+JVS(51228)*UV(5255) - JTUV(2838) = JVS(12320)*UV(2838)+JVS(20154)*UV(4013)+JVS(23066)*UV(4325)+JVS(42836)*UV(5250)+JVS(45345)*UV(5251)& - &+JVS(51229)*UV(5255) - JTUV(2839) = JVS(8152)*UV(1962)+JVS(12324)*UV(2839)+JVS(34924)*UV(5178)+JVS(35794)*UV(5193)+JVS(42837)*UV(5250)& - &+JVS(48526)*UV(5253) - JTUV(2840) = JVS(12329)*UV(2840)+JVS(34345)*UV(5160)+JVS(38285)*UV(5231)+JVS(51230)*UV(5255) - JTUV(2841) = JVS(12335)*UV(2841)+JVS(27696)*UV(4760)+JVS(34628)*UV(5165)+JVS(42838)*UV(5250)+JVS(45346)*UV(5251)& - &+JVS(48527)*UV(5253) - JTUV(2842) = JVS(12339)*UV(2842)+JVS(28997)*UV(4866)+JVS(33861)*UV(5143)+JVS(42839)*UV(5250)+JVS(45347)*UV(5251)& - &+JVS(48528)*UV(5253) - JTUV(2843) = JVS(12343)*UV(2843)+JVS(26179)*UV(4623)+JVS(29076)*UV(4872)+JVS(42840)*UV(5250)+JVS(45348)*UV(5251)& - &+JVS(48529)*UV(5253) - JTUV(2844) = JVS(12347)*UV(2844)+JVS(25094)*UV(4517)+JVS(26095)*UV(4618)+JVS(42841)*UV(5250)+JVS(45349)*UV(5251)& - &+JVS(48530)*UV(5253) - JTUV(2845) = JVS(12351)*UV(2845)+JVS(24511)*UV(4468)+JVS(31473)*UV(5031)+JVS(42842)*UV(5250)+JVS(45350)*UV(5251)& - &+JVS(48531)*UV(5253) - JTUV(2846) = JVS(12355)*UV(2846)+JVS(23671)*UV(4391)+JVS(29883)*UV(4934)+JVS(42843)*UV(5250)+JVS(45351)*UV(5251)& - &+JVS(48532)*UV(5253) - JTUV(2847) = JVS(12361)*UV(2847)+JVS(26994)*UV(4694)+JVS(37410)*UV(5222)+JVS(48533)*UV(5253) - JTUV(2848) = JVS(12367)*UV(2848)+JVS(26240)*UV(4629)+JVS(31955)*UV(5057)+JVS(42844)*UV(5250)+JVS(45352)*UV(5251)& - &+JVS(48534)*UV(5253) - JTUV(2849) = JVS(12372)*UV(2849)+JVS(35795)*UV(5193)+JVS(38035)*UV(5230)+JVS(51231)*UV(5255) - JTUV(2850) = JVS(12378)*UV(2850)+JVS(16446)*UV(3559)+JVS(28515)*UV(4830)+JVS(42845)*UV(5250)+JVS(45353)*UV(5251)& - &+JVS(48535)*UV(5253) - JTUV(2851) = JVS(12383)*UV(2851)+JVS(34925)*UV(5178)+JVS(38286)*UV(5231)+JVS(48536)*UV(5253) - JTUV(2852) = JVS(12389)*UV(2852)+JVS(15683)*UV(3434)+JVS(30578)*UV(4977)+JVS(42846)*UV(5250)+JVS(45354)*UV(5251)& - &+JVS(48537)*UV(5253) - JTUV(2853) = JVS(12394)*UV(2853)+JVS(27697)*UV(4760)+JVS(33599)*UV(5139)+JVS(45355)*UV(5251) - JTUV(2854) = JVS(117)*UV(23)+JVS(12400)*UV(2854)+JVS(42847)*UV(5250) - JTUV(2855) = JVS(9362)*UV(2226)+JVS(12406)*UV(2855)+JVS(12413)*UV(2856)+JVS(42848)*UV(5250)+JVS(48539)*UV(5253) - JTUV(2856) = JVS(12414)*UV(2856)+JVS(14422)*UV(3233)+JVS(33395)*UV(5130)+JVS(42849)*UV(5250) - JTUV(2857) = JVS(12420)*UV(2857)+JVS(26495)*UV(4654)+JVS(33184)*UV(5123)+JVS(35619)*UV(5191)+JVS(42850)*UV(5250)& - &+JVS(48540)*UV(5253) - JTUV(2858) = JVS(12425)*UV(2858)+JVS(35796)*UV(5193)+JVS(45356)*UV(5251)+JVS(48541)*UV(5253) - JTUV(2859) = JVS(12431)*UV(2859)+JVS(24731)*UV(4489)+JVS(25939)*UV(4602)+JVS(35797)*UV(5193)+JVS(42851)*UV(5250)& - &+JVS(48542)*UV(5253) - JTUV(2860) = JVS(12435)*UV(2860)+JVS(14480)*UV(3242)+JVS(29706)*UV(4921)+JVS(42852)*UV(5250)+JVS(45357)*UV(5251)& - &+JVS(48543)*UV(5253) - JTUV(2861) = JVS(12439)*UV(2861)+JVS(38287)*UV(5231)+JVS(45358)*UV(5251)+JVS(51232)*UV(5255) - JTUV(2862) = JVS(12445)*UV(2862)+JVS(21970)*UV(4218)+JVS(28357)*UV(4815)+JVS(42853)*UV(5250)+JVS(45359)*UV(5251)& - &+JVS(51233)*UV(5255) - JTUV(2863) = JVS(12449)*UV(2863)+JVS(22340)*UV(4253)+JVS(24322)*UV(4449)+JVS(39964)*UV(5244)+JVS(42854)*UV(5250)& - &+JVS(48544)*UV(5253) - JTUV(2864) = JVS(12453)*UV(2864)+JVS(28824)*UV(4853)+JVS(34346)*UV(5160)+JVS(42855)*UV(5250)+JVS(45360)*UV(5251)& - &+JVS(48545)*UV(5253) - JTUV(2865) = JVS(12458)*UV(2865)+JVS(38288)*UV(5231)+JVS(39232)*UV(5234)+JVS(51234)*UV(5255) - JTUV(2866) = JVS(12464)*UV(2866)+JVS(24235)*UV(4441)+JVS(24323)*UV(4449)+JVS(35620)*UV(5191)+JVS(42856)*UV(5250)& - &+JVS(48546)*UV(5253) - JTUV(2867) = JVS(12468)*UV(2867)+JVS(24455)*UV(4462)+JVS(28260)*UV(4806)+JVS(42857)*UV(5250)+JVS(45361)*UV(5251)& - &+JVS(48547)*UV(5253) - JTUV(2868) = JVS(7831)*UV(1893)+JVS(12472)*UV(2868)+JVS(20181)*UV(4015)+JVS(42858)*UV(5250)+JVS(51235)*UV(5255) - JTUV(2869) = JVS(12477)*UV(2869)+JVS(30943)*UV(5000)+JVS(38289)*UV(5231)+JVS(48548)*UV(5253) - JTUV(2870) = JVS(12483)*UV(2870)+JVS(22733)*UV(4294)+JVS(27844)*UV(4772)+JVS(34081)*UV(5152)+JVS(42859)*UV(5250)& - &+JVS(48549)*UV(5253) - JTUV(2871) = JVS(6505)*UV(1616)+JVS(12487)*UV(2871)+JVS(19082)*UV(3885)+JVS(19407)*UV(3923)+JVS(42860)*UV(5250) - JTUV(2872) = JVS(12491)*UV(2872)+JVS(24154)*UV(4433)+JVS(36815)*UV(5203)+JVS(42861)*UV(5250)+JVS(45362)*UV(5251)& - &+JVS(48550)*UV(5253) - JTUV(2873) = JVS(12495)*UV(2873)+JVS(24100)*UV(4428)+JVS(35798)*UV(5193)+JVS(42862)*UV(5250)+JVS(45363)*UV(5251)& - &+JVS(51237)*UV(5255) - JTUV(2874) = JVS(12500)*UV(2874)+JVS(27137)*UV(4710)+JVS(38290)*UV(5231)+JVS(51238)*UV(5255) - JTUV(2875) = JVS(12508)*UV(2875)+JVS(19651)*UV(3953)+JVS(29817)*UV(4930)+JVS(42863)*UV(5250)+JVS(45364)*UV(5251)& - &+JVS(51239)*UV(5255) - JTUV(2876) = JVS(12512)*UV(2876)+JVS(30738)*UV(4986)+JVS(37411)*UV(5222)+JVS(42864)*UV(5250)+JVS(45365)*UV(5251)& - &+JVS(48551)*UV(5253) - JTUV(2877) = JVS(12516)*UV(2877)+JVS(29105)*UV(4874)+JVS(31194)*UV(5012)+JVS(42865)*UV(5250)+JVS(45366)*UV(5251)& - &+JVS(48552)*UV(5253) - JTUV(2878) = JVS(6887)*UV(1699)+JVS(12520)*UV(2878)+JVS(16022)*UV(3498)+JVS(23658)*UV(4390)+JVS(38036)*UV(5230)& - &+JVS(39965)*UV(5244)+JVS(42866)*UV(5250) - JTUV(2879) = JVS(12524)*UV(2879)+JVS(28855)*UV(4855)+JVS(32632)*UV(5095)+JVS(42867)*UV(5250)+JVS(45367)*UV(5251)& - &+JVS(48553)*UV(5253) - JTUV(2880) = JVS(12528)*UV(2880)+JVS(32138)*UV(5067)+JVS(33499)*UV(5136)+JVS(42868)*UV(5250)+JVS(45368)*UV(5251)& - &+JVS(48554)*UV(5253) - JTUV(2881) = JVS(12533)*UV(2881)+JVS(34347)*UV(5160)+JVS(39966)*UV(5244)+JVS(45369)*UV(5251) - JTUV(2882) = JVS(12539)*UV(2882)+JVS(26294)*UV(4634)+JVS(34926)*UV(5178)+JVS(42869)*UV(5250)+JVS(45370)*UV(5251)& - &+JVS(48555)*UV(5253) - JTUV(2883) = JVS(12543)*UV(2883)+JVS(29938)*UV(4938)+JVS(33078)*UV(5117)+JVS(42870)*UV(5250)+JVS(45371)*UV(5251)& - &+JVS(48556)*UV(5253) - JTUV(2884) = JVS(12547)*UV(2884)+JVS(28743)*UV(4848)+JVS(31921)*UV(5055)+JVS(42871)*UV(5250)+JVS(45372)*UV(5251)& - &+JVS(48557)*UV(5253) - JTUV(2885) = JVS(12551)*UV(2885)+JVS(23924)*UV(4412)+JVS(32204)*UV(5071)+JVS(42872)*UV(5250)+JVS(45373)*UV(5251)& - &+JVS(48558)*UV(5253) - JTUV(2886) = JVS(12555)*UV(2886)+JVS(34973)*UV(5179)+JVS(39701)*UV(5242)+JVS(42873)*UV(5250)+JVS(45374)*UV(5251)& - &+JVS(48559)*UV(5253) - JTUV(2887) = JVS(12559)*UV(2887)+JVS(25535)*UV(4557)+JVS(37412)*UV(5222)+JVS(42874)*UV(5250)+JVS(45375)*UV(5251)& - &+JVS(48560)*UV(5253) - JTUV(2888) = JVS(8214)*UV(1975)+JVS(10487)*UV(2480)+JVS(12563)*UV(2888)+JVS(34348)*UV(5160)+JVS(42875)*UV(5250)& - &+JVS(48561)*UV(5253) - JTUV(2889) = JVS(12569)*UV(2889)+JVS(15317)*UV(3384)+JVS(27026)*UV(4697)+JVS(51240)*UV(5255) - JTUV(2890) = JVS(12576)*UV(2890)+JVS(35446)*UV(5187)+JVS(45376)*UV(5251)+JVS(51241)*UV(5255) - JTUV(2891) = JVS(12584)*UV(2891)+JVS(27962)*UV(4785)+JVS(31956)*UV(5057)+JVS(51242)*UV(5255) - JTUV(2892) = JVS(1778)*UV(450)+JVS(12590)*UV(2892)+JVS(24789)*UV(4493)+JVS(34349)*UV(5160)+JVS(42876)*UV(5250)& - &+JVS(48562)*UV(5253) - JTUV(2893) = JVS(6609)*UV(1638)+JVS(12594)*UV(2893)+JVS(26096)*UV(4618)+JVS(28810)*UV(4852)+JVS(35187)*UV(5183)& - &+JVS(35799)*UV(5193)+JVS(42877)*UV(5250) - JTUV(2894) = JVS(12599)*UV(2894)+JVS(18775)*UV(3849)+JVS(45377)*UV(5251)+JVS(51243)*UV(5255) - JTUV(2895) = JVS(12605)*UV(2895)+JVS(24587)*UV(4477)+JVS(25185)*UV(4525)+JVS(42878)*UV(5250)+JVS(45378)*UV(5251)& - &+JVS(51244)*UV(5255) - JTUV(2896) = JVS(12609)*UV(2896)+JVS(22630)*UV(4283)+JVS(34629)*UV(5165)+JVS(42879)*UV(5250)+JVS(45379)*UV(5251)& - &+JVS(48563)*UV(5253) - JTUV(2897) = JVS(12614)*UV(2897)+JVS(25940)*UV(4602)+JVS(33600)*UV(5139)+JVS(51245)*UV(5255) - JTUV(2898) = JVS(12620)*UV(2898)+JVS(22466)*UV(4266)+JVS(37203)*UV(5215)+JVS(42880)*UV(5250)+JVS(45380)*UV(5251)& - &+JVS(48564)*UV(5253) - JTUV(2899) = JVS(12624)*UV(2899)+JVS(21820)*UV(4203)+JVS(28977)*UV(4865)+JVS(42881)*UV(5250)+JVS(45381)*UV(5251)& - &+JVS(51246)*UV(5255) - JTUV(2900) = JVS(2834)*UV(717)+JVS(8954)*UV(2134)+JVS(12628)*UV(2900)+JVS(20498)*UV(4051)+JVS(38291)*UV(5231)& - &+JVS(42882)*UV(5250) - JTUV(2901) = JVS(12632)*UV(2901)+JVS(20921)*UV(4102)+JVS(25941)*UV(4602)+JVS(35621)*UV(5191)+JVS(42883)*UV(5250)& - &+JVS(48565)*UV(5253) - JTUV(2902) = JVS(12637)*UV(2902)+JVS(37204)*UV(5215)+JVS(38292)*UV(5231)+JVS(51248)*UV(5255) - JTUV(2903) = JVS(12644)*UV(2903)+JVS(16314)*UV(3541)+JVS(28080)*UV(4796)+JVS(48566)*UV(5253) - JTUV(2904) = JVS(12650)*UV(2904)+JVS(26814)*UV(4684)+JVS(37413)*UV(5222)+JVS(42884)*UV(5250)+JVS(45383)*UV(5251)& - &+JVS(48567)*UV(5253) - JTUV(2905) = JVS(12655)*UV(2905)+JVS(35800)*UV(5193)+JVS(39967)*UV(5244)+JVS(45384)*UV(5251) - JTUV(2906) = JVS(12663)*UV(2906)+JVS(18862)*UV(3859)+JVS(19418)*UV(3924)+JVS(51249)*UV(5255) - JTUV(2907) = JVS(12669)*UV(2907)+JVS(27442)*UV(4739)+JVS(37753)*UV(5225)+JVS(42885)*UV(5250)+JVS(45385)*UV(5251)& - &+JVS(48568)*UV(5253) - JTUV(2908) = JVS(8143)*UV(1961)+JVS(12673)*UV(2908)+JVS(12682)*UV(2909)+JVS(42886)*UV(5250)+JVS(48569)*UV(5253) - JTUV(2909) = JVS(12683)*UV(2909)+JVS(23609)*UV(4385)+JVS(35373)*UV(5184)+JVS(42887)*UV(5250) - JTUV(2910) = JVS(12691)*UV(2910)+JVS(23599)*UV(4384)+JVS(30803)*UV(4991)+JVS(33079)*UV(5117)+JVS(39968)*UV(5244)& - &+JVS(42888)*UV(5250) - JTUV(2911) = JVS(12695)*UV(2911)+JVS(17143)*UV(3644)+JVS(22887)*UV(4308)+JVS(42889)*UV(5250)+JVS(45386)*UV(5251)& - &+JVS(51250)*UV(5255) - JTUV(2912) = JVS(12700)*UV(2912)+JVS(35801)*UV(5193)+JVS(38037)*UV(5230)+JVS(51251)*UV(5255) - JTUV(2913) = JVS(7090)*UV(1741)+JVS(12706)*UV(2913)+JVS(25553)*UV(4559)+JVS(42890)*UV(5250)+JVS(48570)*UV(5253) - JTUV(2914) = JVS(12711)*UV(2914)+JVS(37860)*UV(5228)+JVS(39514)*UV(5238)+JVS(42891)*UV(5250) - JTUV(2915) = JVS(12717)*UV(2915)+JVS(26303)*UV(4635)+JVS(32159)*UV(5068)+JVS(42892)*UV(5250)+JVS(45387)*UV(5251)& - &+JVS(48571)*UV(5253) - JTUV(2916) = JVS(12722)*UV(2916)+JVS(34892)*UV(5177)+JVS(38294)*UV(5231)+JVS(48572)*UV(5253) - JTUV(2917) = JVS(8070)*UV(1945)+JVS(12728)*UV(2917)+JVS(15301)*UV(3382)+JVS(42893)*UV(5250)+JVS(48573)*UV(5253) - JTUV(2918) = JVS(12733)*UV(2918)+JVS(24949)*UV(4507)+JVS(26922)*UV(4693)+JVS(48574)*UV(5253) - JTUV(2919) = JVS(12740)*UV(2919)+JVS(29939)*UV(4938)+JVS(45388)*UV(5251)+JVS(48575)*UV(5253) - JTUV(2920) = JVS(2801)*UV(710)+JVS(8107)*UV(1953)+JVS(12746)*UV(2920)+JVS(28879)*UV(4857)+JVS(42894)*UV(5250) - JTUV(2921) = JVS(12750)*UV(2921)+JVS(28935)*UV(4862)+JVS(39233)*UV(5234)+JVS(42895)*UV(5250)+JVS(45389)*UV(5251)& - &+JVS(48576)*UV(5253) - JTUV(2922) = JVS(12756)*UV(2922)+JVS(17502)*UV(3689)+JVS(19643)*UV(3952)+JVS(51253)*UV(5255) - JTUV(2923) = JVS(2509)*UV(641)+JVS(12762)*UV(2923)+JVS(15684)*UV(3434)+JVS(29691)*UV(4920)+JVS(42896)*UV(5250) - JTUV(2924) = JVS(12766)*UV(2924)+JVS(29610)*UV(4916)+JVS(38985)*UV(5233)+JVS(42897)*UV(5250)+JVS(45390)*UV(5251)& - &+JVS(48577)*UV(5253) - JTUV(2925) = JVS(12770)*UV(2925)+JVS(25105)*UV(4518)+JVS(30312)*UV(4958)+JVS(42898)*UV(5250)+JVS(45391)*UV(5251)& - &+JVS(48578)*UV(5253) - JTUV(2926) = JVS(12776)*UV(2926)+JVS(18065)*UV(3758)+JVS(38038)*UV(5230)+JVS(51254)*UV(5255) - JTUV(2927) = JVS(4442)*UV(1111)+JVS(12783)*UV(2927)+JVS(32886)*UV(5106)+JVS(38986)*UV(5233)+JVS(42899)*UV(5250)& - &+JVS(45392)*UV(5251)+JVS(51255)*UV(5255) - JTUV(2928) = JVS(12787)*UV(2928)+JVS(27619)*UV(4753)+JVS(37339)*UV(5221)+JVS(42900)*UV(5250)+JVS(45393)*UV(5251)& - &+JVS(48579)*UV(5253) - JTUV(2929) = JVS(12791)*UV(2929)+JVS(22073)*UV(4227)+JVS(24053)*UV(4424)+JVS(42901)*UV(5250)+JVS(45394)*UV(5251)& - &+JVS(48580)*UV(5253) - JTUV(2930) = JVS(9250)*UV(2201)+JVS(12795)*UV(2930)+JVS(21233)*UV(4138)+JVS(34208)*UV(5158)+JVS(35803)*UV(5193)& - &+JVS(42902)*UV(5250)+JVS(45395)*UV(5251) - JTUV(2931) = JVS(12800)*UV(2931)+JVS(18776)*UV(3849)+JVS(38295)*UV(5231)+JVS(51256)*UV(5255) - JTUV(2932) = JVS(309)*UV(77)+JVS(12807)*UV(2932)+JVS(35188)*UV(5183)+JVS(39440)*UV(5237)+JVS(42903)*UV(5250)& - &+JVS(51257)*UV(5255) - JTUV(2933) = JVS(12814)*UV(2933)+JVS(18237)*UV(3778)+JVS(34350)*UV(5160)+JVS(37982)*UV(5229) - JTUV(2934) = JVS(6987)*UV(1721)+JVS(12820)*UV(2934)+JVS(32088)*UV(5063)+JVS(42904)*UV(5250)+JVS(48581)*UV(5253) - JTUV(2935) = JVS(12825)*UV(2935)+JVS(24950)*UV(4507)+JVS(26923)*UV(4693)+JVS(48582)*UV(5253) - JTUV(2936) = JVS(3442)*UV(862)+JVS(12832)*UV(2936)+JVS(33240)*UV(5125)+JVS(38987)*UV(5233)+JVS(42905)*UV(5250)& - &+JVS(45396)*UV(5251)+JVS(51259)*UV(5255) - JTUV(2937) = JVS(12837)*UV(2937)+JVS(23802)*UV(4403)+JVS(24951)*UV(4507)+JVS(48583)*UV(5253) - JTUV(2938) = JVS(12846)*UV(2938)+JVS(35078)*UV(5182)+JVS(39542)*UV(5239)+JVS(42906)*UV(5250) - JTUV(2939) = JVS(12854)*UV(2939)+JVS(23279)*UV(4348)+JVS(31922)*UV(5055)+JVS(51260)*UV(5255) - JTUV(2940) = JVS(6665)*UV(1650)+JVS(12860)*UV(2940)+JVS(18047)*UV(3756)+JVS(28485)*UV(4827)+JVS(42907)*UV(5250) - JTUV(2941) = JVS(12864)*UV(2941)+JVS(28324)*UV(4812)+JVS(35079)*UV(5182)+JVS(42908)*UV(5250)+JVS(45397)*UV(5251)& - &+JVS(48584)*UV(5253) - JTUV(2942) = JVS(7003)*UV(1724)+JVS(12868)*UV(2942)+JVS(22581)*UV(4278)+JVS(34351)*UV(5160)+JVS(42909)*UV(5250)& - &+JVS(48585)*UV(5253) - JTUV(2943) = JVS(6875)*UV(1696)+JVS(9278)*UV(2207)+JVS(12872)*UV(2943)+JVS(34352)*UV(5160)+JVS(42910)*UV(5250)& - &+JVS(48586)*UV(5253) - JTUV(2944) = JVS(12877)*UV(2944)+JVS(34630)*UV(5165)+JVS(38296)*UV(5231)+JVS(51261)*UV(5255) - JTUV(2945) = JVS(12883)*UV(2945)+JVS(29740)*UV(4924)+JVS(35805)*UV(5193)+JVS(42911)*UV(5250)+JVS(45398)*UV(5251)& - &+JVS(48587)*UV(5253) - JTUV(2946) = JVS(12888)*UV(2946)+JVS(30524)*UV(4973)+JVS(35806)*UV(5193)+JVS(51262)*UV(5255) - JTUV(2947) = JVS(12894)*UV(2947)+JVS(17006)*UV(3629)+JVS(29273)*UV(4891)+JVS(42912)*UV(5250)+JVS(45399)*UV(5251)& - &+JVS(48588)*UV(5253) - JTUV(2948) = JVS(12898)*UV(2948)+JVS(26823)*UV(4685)+JVS(33743)*UV(5141)+JVS(35807)*UV(5193)+JVS(42913)*UV(5250)& - &+JVS(48589)*UV(5253) - JTUV(2949) = JVS(12904)*UV(2949)+JVS(29833)*UV(4931)+JVS(38988)*UV(5233)+JVS(51263)*UV(5255) - JTUV(2950) = JVS(12910)*UV(2950)+JVS(21185)*UV(4132)+JVS(33308)*UV(5126)+JVS(35808)*UV(5193)+JVS(42914)*UV(5250)& - &+JVS(48590)*UV(5253) - JTUV(2951) = JVS(12914)*UV(2951)+JVS(29586)*UV(4914)+JVS(31444)*UV(5029)+JVS(42915)*UV(5250)+JVS(45400)*UV(5251)& - &+JVS(48591)*UV(5253) - JTUV(2952) = JVS(12919)*UV(2952)+JVS(23130)*UV(4331)+JVS(26924)*UV(4693)+JVS(48592)*UV(5253) - JTUV(2953) = JVS(12928)*UV(2953)+JVS(32860)*UV(5105)+JVS(38297)*UV(5231)+JVS(51264)*UV(5255) - JTUV(2954) = JVS(12936)*UV(2954)+JVS(16937)*UV(3619)+JVS(38298)*UV(5231)+JVS(51265)*UV(5255) - JTUV(2955) = JVS(12942)*UV(2955)+JVS(26442)*UV(4649)+JVS(31977)*UV(5058)+JVS(42916)*UV(5250)+JVS(45401)*UV(5251)& - &+JVS(48593)*UV(5253) - JTUV(2956) = JVS(12946)*UV(2956)+JVS(15324)*UV(3385)+JVS(23198)*UV(4338)+JVS(42917)*UV(5250)+JVS(45402)*UV(5251)& - &+JVS(48594)*UV(5253) - JTUV(2957) = JVS(12950)*UV(2957)+JVS(20023)*UV(3998)+JVS(37754)*UV(5225)+JVS(42918)*UV(5250)+JVS(48595)*UV(5253)& - &+JVS(53235)*UV(5256) - JTUV(2958) = JVS(12954)*UV(2958)+JVS(30246)*UV(4953)+JVS(32393)*UV(5083)+JVS(42919)*UV(5250)+JVS(45403)*UV(5251)& - &+JVS(48596)*UV(5253) - JTUV(2959) = JVS(12959)*UV(2959)+JVS(37205)*UV(5215)+JVS(38299)*UV(5231)+JVS(48597)*UV(5253) - JTUV(2960) = JVS(12966)*UV(2960)+JVS(33601)*UV(5139)+JVS(35189)*UV(5183)+JVS(45404)*UV(5251) - JTUV(2961) = JVS(12973)*UV(2961)+JVS(38300)*UV(5231)+JVS(40573)*UV(5249)+JVS(51266)*UV(5255) - JTUV(2962) = JVS(12980)*UV(2962)+JVS(34864)*UV(5176)+JVS(38301)*UV(5231)+JVS(48598)*UV(5253) - JTUV(2963) = JVS(12987)*UV(2963)+JVS(24952)*UV(4507)+JVS(26925)*UV(4693)+JVS(51267)*UV(5255) - JTUV(2964) = JVS(1670)*UV(421)+JVS(12993)*UV(2964)+JVS(34927)*UV(5178)+JVS(35623)*UV(5191)+JVS(42920)*UV(5250)& - &+JVS(48599)*UV(5253) - JTUV(2965) = JVS(13002)*UV(2965)+JVS(21223)*UV(4137)+JVS(35374)*UV(5184)+JVS(42921)*UV(5250) - JTUV(2966) = JVS(13009)*UV(2966)+JVS(16774)*UV(3601)+JVS(42922)*UV(5250)+JVS(45405)*UV(5251)+JVS(48600)*UV(5253)& - &+JVS(51268)*UV(5255) - JTUV(2967) = JVS(13015)*UV(2967)+JVS(29940)*UV(4938)+JVS(37414)*UV(5222)+JVS(51269)*UV(5255) - JTUV(2968) = JVS(13022)*UV(2968)+JVS(34209)*UV(5158)+JVS(34353)*UV(5160)+JVS(45406)*UV(5251) - JTUV(2969) = JVS(13028)*UV(2969)+JVS(28962)*UV(4864)+JVS(29834)*UV(4931)+JVS(42923)*UV(5250)+JVS(45407)*UV(5251)& - &+JVS(48601)*UV(5253) - JTUV(2970) = JVS(13032)*UV(2970)+JVS(23109)*UV(4329)+JVS(36208)*UV(5199)+JVS(39971)*UV(5244)+JVS(42924)*UV(5250)& - &+JVS(48602)*UV(5253) - JTUV(2971) = JVS(9417)*UV(2238)+JVS(13036)*UV(2971)+JVS(22566)*UV(4277)+JVS(33602)*UV(5139)+JVS(42925)*UV(5250)& - &+JVS(45408)*UV(5251)+JVS(51270)*UV(5255) - JTUV(2972) = JVS(13041)*UV(2972)+JVS(35375)*UV(5184)+JVS(38302)*UV(5231)+JVS(51271)*UV(5255) - JTUV(2973) = JVS(13048)*UV(2973)+JVS(33769)*UV(5142)+JVS(39515)*UV(5238)+JVS(42926)*UV(5250) - JTUV(2974) = JVS(13056)*UV(2974)+JVS(16627)*UV(3583)+JVS(18945)*UV(3869)+JVS(51272)*UV(5255) - JTUV(2975) = JVS(9295)*UV(2210)+JVS(13062)*UV(2975)+JVS(16868)*UV(3612)+JVS(26432)*UV(4648)+JVS(42927)*UV(5250)& - &+JVS(45409)*UV(5251)+JVS(51273)*UV(5255) - JTUV(2976) = JVS(6415)*UV(1597)+JVS(13066)*UV(2976)+JVS(13907)*UV(3128)+JVS(26042)*UV(4612)+JVS(42928)*UV(5250) - JTUV(2977) = JVS(13070)*UV(2977)+JVS(29394)*UV(4902)+JVS(30483)*UV(4969)+JVS(42929)*UV(5250)+JVS(45410)*UV(5251)& - &+JVS(48603)*UV(5253) - JTUV(2978) = JVS(13074)*UV(2978)+JVS(26574)*UV(4662)+JVS(30525)*UV(4973)+JVS(42930)*UV(5250)+JVS(45411)*UV(5251)& - &+JVS(48604)*UV(5253) - JTUV(2979) = JVS(13081)*UV(2979)+JVS(22062)*UV(4226)+JVS(42931)*UV(5250)+JVS(51275)*UV(5255) - JTUV(2980) = JVS(13087)*UV(2980)+JVS(17092)*UV(3639)+JVS(26486)*UV(4653)+JVS(42932)*UV(5250)+JVS(45412)*UV(5251)& - &+JVS(48605)*UV(5253) - JTUV(2981) = JVS(13091)*UV(2981)+JVS(13202)*UV(3000)+JVS(23672)*UV(4391)+JVS(28226)*UV(4802)+JVS(39605)*UV(5241)& - &+JVS(42933)*UV(5250) - JTUV(2982) = JVS(13098)*UV(2982)+JVS(31398)*UV(5026)+JVS(38303)*UV(5231)+JVS(51276)*UV(5255) - JTUV(2983) = JVS(13105)*UV(2983)+JVS(34928)*UV(5178)+JVS(38304)*UV(5231)+JVS(51277)*UV(5255) - JTUV(2984) = JVS(13111)*UV(2984)+JVS(24687)*UV(4485)+JVS(32229)*UV(5072)+JVS(42934)*UV(5250)+JVS(45413)*UV(5251)& - &+JVS(48606)*UV(5253) - JTUV(2985) = JVS(13115)*UV(2985)+JVS(15339)*UV(3387)+JVS(29495)*UV(4909)+JVS(42935)*UV(5250)+JVS(48607)*UV(5253)& - &+JVS(51278)*UV(5255) - JTUV(2986) = JVS(13120)*UV(2986)+JVS(24953)*UV(4507)+JVS(26926)*UV(4693)+JVS(48608)*UV(5253) - JTUV(2987) = JVS(13126)*UV(2987)+JVS(19138)*UV(3892)+JVS(30704)*UV(4984)+JVS(42936)*UV(5250)+JVS(45414)*UV(5251)& - &+JVS(48609)*UV(5253) - JTUV(2988) = JVS(13130)*UV(2988)+JVS(24090)*UV(4427)+JVS(34631)*UV(5165)+JVS(42937)*UV(5250)+JVS(45415)*UV(5251)& - &+JVS(48610)*UV(5253) - JTUV(2989) = JVS(13135)*UV(2989)+JVS(35190)*UV(5183)+JVS(38305)*UV(5231)+JVS(45416)*UV(5251) - JTUV(2990) = JVS(13143)*UV(2990)+JVS(16718)*UV(3594)+JVS(18979)*UV(3873)+JVS(51279)*UV(5255) - JTUV(2991) = JVS(13149)*UV(2991)+JVS(22007)*UV(4221)+JVS(24746)*UV(4490)+JVS(42938)*UV(5250)+JVS(45417)*UV(5251)& - &+JVS(51280)*UV(5255) - JTUV(2992) = JVS(13153)*UV(2992)+JVS(34354)*UV(5160)+JVS(45418)*UV(5251)+JVS(51281)*UV(5255) - JTUV(2993) = JVS(13154)*UV(2992)+JVS(13159)*UV(2993)+JVS(27732)*UV(4763)+JVS(34355)*UV(5160)+JVS(42939)*UV(5250)& - &+JVS(45419)*UV(5251)+JVS(51282)*UV(5255) - JTUV(2994) = JVS(13165)*UV(2994)+JVS(17304)*UV(3664)+JVS(38989)*UV(5233)+JVS(48611)*UV(5253) - JTUV(2995) = JVS(13172)*UV(2995)+JVS(23803)*UV(4403)+JVS(24954)*UV(4507)+JVS(48612)*UV(5253) - JTUV(2996) = JVS(13180)*UV(2996)+JVS(38306)*UV(5231)+JVS(39702)*UV(5242)+JVS(51283)*UV(5255) - JTUV(2997) = JVS(13187)*UV(2997)+JVS(34865)*UV(5176)+JVS(38307)*UV(5231)+JVS(51284)*UV(5255) - JTUV(2998) = JVS(13193)*UV(2998)+JVS(20266)*UV(4026)+JVS(36209)*UV(5199)+JVS(42940)*UV(5250)+JVS(45420)*UV(5251)& - &+JVS(48613)*UV(5253) - JTUV(2999) = JVS(13197)*UV(2999)+JVS(13203)*UV(3000)+JVS(23622)*UV(4386)+JVS(37415)*UV(5222)+JVS(42941)*UV(5250)& - &+JVS(48614)*UV(5253) - JTUV(3000) = JVS(13204)*UV(3000)+JVS(28199)*UV(4801)+JVS(35810)*UV(5193)+JVS(51285)*UV(5255) - JTUV(3001) = JVS(13211)*UV(3001)+JVS(24955)*UV(4507)+JVS(28081)*UV(4796)+JVS(51286)*UV(5255) - JTUV(3002) = JVS(13217)*UV(3002)+JVS(21370)*UV(4155)+JVS(34632)*UV(5165)+JVS(38308)*UV(5231)+JVS(48615)*UV(5253)& - &+JVS(51287)*UV(5255) - JTUV(3003) = JVS(13221)*UV(3003)+JVS(35191)*UV(5183)+JVS(35811)*UV(5193)+JVS(42942)*UV(5250)+JVS(45421)*UV(5251)& - &+JVS(48616)*UV(5253) - JTUV(3004) = JVS(13226)*UV(3004)+JVS(23804)*UV(4403)+JVS(24956)*UV(4507)+JVS(51288)*UV(5255) - JTUV(3005) = JVS(13232)*UV(3005)+JVS(17761)*UV(3723)+JVS(30136)*UV(4946)+JVS(33603)*UV(5139)+JVS(39972)*UV(5244)& - &+JVS(42943)*UV(5250) - JTUV(3006) = JVS(2702)*UV(687)+JVS(7980)*UV(1925)+JVS(13236)*UV(3006)+JVS(42944)*UV(5250) - JTUV(3007) = JVS(13240)*UV(3007)+JVS(25137)*UV(4521)+JVS(31134)*UV(5009)+JVS(42945)*UV(5250)+JVS(45422)*UV(5251)& - &+JVS(48617)*UV(5253) - JTUV(3008) = JVS(13244)*UV(3008)+JVS(31036)*UV(5004)+JVS(35080)*UV(5182)+JVS(42946)*UV(5250)+JVS(45423)*UV(5251)& - &+JVS(48618)*UV(5253) - JTUV(3009) = JVS(13251)*UV(3009)+JVS(33862)*UV(5143)+JVS(35624)*UV(5191)+JVS(51289)*UV(5255) - JTUV(3010) = JVS(13257)*UV(3010)+JVS(17852)*UV(3734)+JVS(30272)*UV(4955)+JVS(42947)*UV(5250)+JVS(45424)*UV(5251)& - &+JVS(48619)*UV(5253) - JTUV(3011) = JVS(6208)*UV(1550)+JVS(13261)*UV(3011)+JVS(33424)*UV(5131)+JVS(42948)*UV(5250)+JVS(45425)*UV(5251)& - &+JVS(48620)*UV(5253) - JTUV(3012) = JVS(13265)*UV(3012)+JVS(28031)*UV(4792)+JVS(29650)*UV(4918)+JVS(42949)*UV(5250)+JVS(45426)*UV(5251)& - &+JVS(48621)*UV(5253) - JTUV(3013) = JVS(13272)*UV(3013)+JVS(34356)*UV(5160)+JVS(35081)*UV(5182)+JVS(51290)*UV(5255) - JTUV(3014) = JVS(13278)*UV(3014)+JVS(21821)*UV(4203)+JVS(28978)*UV(4865)+JVS(42950)*UV(5250)+JVS(45427)*UV(5251)& - &+JVS(48622)*UV(5253) - JTUV(3015) = JVS(8325)*UV(1998)+JVS(13282)*UV(3015)+JVS(16602)*UV(3580)+JVS(42951)*UV(5250)+JVS(48623)*UV(5253) - JTUV(3016) = JVS(13287)*UV(3016)+JVS(23131)*UV(4331)+JVS(26927)*UV(4693)+JVS(48624)*UV(5253) - JTUV(3017) = JVS(13293)*UV(3017)+JVS(22821)*UV(4301)+JVS(37206)*UV(5215)+JVS(42952)*UV(5250)+JVS(45428)*UV(5251)& - &+JVS(48625)*UV(5253) - JTUV(3018) = JVS(3045)*UV(765)+JVS(13297)*UV(3018)+JVS(17223)*UV(3653)+JVS(28347)*UV(4814)+JVS(42953)*UV(5250) - JTUV(3019) = JVS(13301)*UV(3019)+JVS(21360)*UV(4154)+JVS(21781)*UV(4199)+JVS(35812)*UV(5193)+JVS(42954)*UV(5250)& - &+JVS(48626)*UV(5253) - JTUV(3020) = JVS(13305)*UV(3020)+JVS(25501)*UV(4553)+JVS(30944)*UV(5000)+JVS(42955)*UV(5250)+JVS(45429)*UV(5251)& - &+JVS(48627)*UV(5253) - JTUV(3021) = JVS(13309)*UV(3021)+JVS(34210)*UV(5158)+JVS(37416)*UV(5222)+JVS(42956)*UV(5250)+JVS(45430)*UV(5251)& - &+JVS(48628)*UV(5253) - JTUV(3022) = JVS(9245)*UV(2200)+JVS(10335)*UV(2448)+JVS(13313)*UV(3022)+JVS(31978)*UV(5058)+JVS(42957)*UV(5250)& - &+JVS(45431)*UV(5251)+JVS(51293)*UV(5255) - JTUV(3023) = JVS(13317)*UV(3023)+JVS(18934)*UV(3868)+JVS(30848)*UV(4994)+JVS(42958)*UV(5250)+JVS(45432)*UV(5251)& - &+JVS(48629)*UV(5253) - JTUV(3024) = JVS(13321)*UV(3024)+JVS(25075)*UV(4515)+JVS(31673)*UV(5042)+JVS(42959)*UV(5250)+JVS(45433)*UV(5251)& - &+JVS(48630)*UV(5253) - JTUV(3025) = JVS(13325)*UV(3025)+JVS(26612)*UV(4665)+JVS(27419)*UV(4737)+JVS(42960)*UV(5250)+JVS(45434)*UV(5251)& - &+JVS(48631)*UV(5253) - JTUV(3026) = JVS(13329)*UV(3026)+JVS(24521)*UV(4469)+JVS(25554)*UV(4559)+JVS(42961)*UV(5250)+JVS(45435)*UV(5251)& - &+JVS(48632)*UV(5253) - JTUV(3027) = JVS(13335)*UV(3027)+JVS(18525)*UV(3816)+JVS(38990)*UV(5233)+JVS(48633)*UV(5253) - JTUV(3028) = JVS(13342)*UV(3028)+JVS(25942)*UV(4602)+JVS(29835)*UV(4931)+JVS(51294)*UV(5255) - JTUV(3029) = JVS(13348)*UV(3029)+JVS(28615)*UV(4839)+JVS(34357)*UV(5160)+JVS(37041)*UV(5211)+JVS(42962)*UV(5250)& - &+JVS(48634)*UV(5253) - JTUV(3030) = JVS(13353)*UV(3030)+JVS(37207)*UV(5215)+JVS(38309)*UV(5231)+JVS(48635)*UV(5253) - JTUV(3031) = JVS(13359)*UV(3031)+JVS(32683)*UV(5098)+JVS(33080)*UV(5117)+JVS(35192)*UV(5183)+JVS(39974)*UV(5244)& - &+JVS(42963)*UV(5250) - JTUV(3032) = JVS(13365)*UV(3032)+JVS(19083)*UV(3885)+JVS(31674)*UV(5042)+JVS(51295)*UV(5255) - JTUV(3033) = JVS(13371)*UV(3033)+JVS(24184)*UV(4436)+JVS(29496)*UV(4909)+JVS(42964)*UV(5250)+JVS(45436)*UV(5251)& - &+JVS(51296)*UV(5255) - JTUV(3034) = JVS(1077)*UV(254)+JVS(6876)*UV(1696)+JVS(13375)*UV(3034)+JVS(34358)*UV(5160)+JVS(42965)*UV(5250)& - &+JVS(48636)*UV(5253) - JTUV(3035) = JVS(6405)*UV(1595)+JVS(13379)*UV(3035)+JVS(26097)*UV(4618)+JVS(28890)*UV(4858)+JVS(35625)*UV(5191)& - &+JVS(39975)*UV(5244)+JVS(42966)*UV(5250) - JTUV(3036) = JVS(13384)*UV(3036)+JVS(24957)*UV(4507)+JVS(28082)*UV(4796)+JVS(48637)*UV(5253) - JTUV(3037) = JVS(13391)*UV(3037)+JVS(16912)*UV(3617)+JVS(38310)*UV(5231)+JVS(51297)*UV(5255) - JTUV(3038) = JVS(6733)*UV(1663)+JVS(13397)*UV(3038)+JVS(18819)*UV(3854)+JVS(22943)*UV(4313)+JVS(42967)*UV(5250) - JTUV(3039) = JVS(13402)*UV(3039)+JVS(38311)*UV(5231)+JVS(40551)*UV(5248)+JVS(51299)*UV(5255) - JTUV(3040) = JVS(13408)*UV(3040)+JVS(22008)*UV(4221)+JVS(24747)*UV(4490)+JVS(42968)*UV(5250)+JVS(45437)*UV(5251)& - &+JVS(48638)*UV(5253) - JTUV(3041) = JVS(13414)*UV(3041)+JVS(19714)*UV(3960)+JVS(45438)*UV(5251)+JVS(51300)*UV(5255) - JTUV(3042) = JVS(13420)*UV(3042)+JVS(22094)*UV(4229)+JVS(27568)*UV(4749)+JVS(42969)*UV(5250)+JVS(45439)*UV(5251)& - &+JVS(48639)*UV(5253) - JTUV(3043) = JVS(8945)*UV(2132)+JVS(9110)*UV(2170)+JVS(13424)*UV(3043)+JVS(21627)*UV(4183)+JVS(42970)*UV(5250)& - &+JVS(45440)*UV(5251)+JVS(51301)*UV(5255) - JTUV(3044) = JVS(13428)*UV(3044)+JVS(32498)*UV(5087)+JVS(36972)*UV(5210)+JVS(42971)*UV(5250)+JVS(45441)*UV(5251)& - &+JVS(51302)*UV(5255) - JTUV(3045) = JVS(13432)*UV(3045)+JVS(22083)*UV(4228)+JVS(37755)*UV(5225)+JVS(42972)*UV(5250)+JVS(48640)*UV(5253)& - &+JVS(53236)*UV(5256) - JTUV(3046) = JVS(6264)*UV(1563)+JVS(13436)*UV(3046)+JVS(19722)*UV(3961)+JVS(33045)*UV(5115)+JVS(42973)*UV(5250) - JTUV(3047) = JVS(13440)*UV(3047)+JVS(38312)*UV(5231)+JVS(38811)*UV(5232)+JVS(42974)*UV(5250)+JVS(45442)*UV(5251)& - &+JVS(48641)*UV(5253) - JTUV(3048) = JVS(13446)*UV(3048)+JVS(38313)*UV(5231)+JVS(39703)*UV(5242)+JVS(51304)*UV(5255) - JTUV(3049) = JVS(2613)*UV(665)+JVS(13452)*UV(3049)+JVS(22194)*UV(4239)+JVS(27359)*UV(4730)+JVS(42975)*UV(5250) - JTUV(3050) = JVS(13458)*UV(3050)+JVS(20451)*UV(4047)+JVS(38991)*UV(5233)+JVS(48642)*UV(5253) - JTUV(3051) = JVS(13464)*UV(3051)+JVS(21936)*UV(4215)+JVS(36816)*UV(5203)+JVS(42976)*UV(5250)+JVS(45443)*UV(5251)& - &+JVS(48643)*UV(5253) - JTUV(3052) = JVS(13468)*UV(3052)+JVS(22799)*UV(4299)+JVS(25276)*UV(4534)+JVS(42977)*UV(5250)+JVS(45444)*UV(5251)& - &+JVS(48644)*UV(5253) - JTUV(3053) = JVS(13472)*UV(3053)+JVS(21536)*UV(4175)+JVS(26262)*UV(4631)+JVS(42978)*UV(5250)+JVS(45445)*UV(5251)& - &+JVS(48645)*UV(5253) - JTUV(3054) = JVS(13477)*UV(3054)+JVS(31474)*UV(5031)+JVS(38315)*UV(5231)+JVS(51305)*UV(5255) - JTUV(3055) = JVS(9182)*UV(2186)+JVS(13483)*UV(3055)+JVS(15354)*UV(3389)+JVS(27758)*UV(4765)+JVS(42979)*UV(5250) - JTUV(3056) = JVS(13487)*UV(3056)+JVS(29596)*UV(4915)+JVS(37417)*UV(5222)+JVS(42980)*UV(5250)+JVS(45446)*UV(5251)& - &+JVS(48646)*UV(5253) - JTUV(3057) = JVS(13493)*UV(3057)+JVS(16114)*UV(3513)+JVS(32887)*UV(5106)+JVS(39976)*UV(5244)+JVS(42981)*UV(5250)& - &+JVS(51307)*UV(5255) - JTUV(3058) = JVS(13498)*UV(3058)+JVS(28775)*UV(4850)+JVS(33604)*UV(5139)+JVS(45447)*UV(5251) - JTUV(3059) = JVS(13504)*UV(3059)+JVS(16223)*UV(3529)+JVS(34137)*UV(5155)+JVS(42982)*UV(5250)+JVS(48647)*UV(5253)& - &+JVS(51308)*UV(5255) - JTUV(3060) = JVS(13508)*UV(3060)+JVS(26212)*UV(4626)+JVS(33185)*UV(5123)+JVS(42983)*UV(5250)+JVS(45448)*UV(5251)& - &+JVS(48648)*UV(5253) - JTUV(3061) = JVS(13512)*UV(3061)+JVS(25943)*UV(4602)+JVS(27502)*UV(4744)+JVS(36817)*UV(5203)+JVS(42984)*UV(5250)& - &+JVS(48649)*UV(5253) - JTUV(3062) = JVS(13517)*UV(3062)+JVS(28616)*UV(4839)+JVS(39234)*UV(5234)+JVS(45449)*UV(5251) - JTUV(3063) = JVS(13523)*UV(3063)+JVS(23842)*UV(4404)+JVS(35813)*UV(5193)+JVS(42985)*UV(5250)+JVS(45450)*UV(5251)& - &+JVS(48650)*UV(5253) - JTUV(3064) = JVS(13528)*UV(3064)+JVS(35475)*UV(5188)+JVS(38992)*UV(5233)+JVS(51309)*UV(5255) - JTUV(3065) = JVS(13535)*UV(3065)+JVS(23805)*UV(4403)+JVS(24958)*UV(4507)+JVS(48651)*UV(5253) - JTUV(3066) = JVS(13543)*UV(3066)+JVS(16827)*UV(3607)+JVS(21394)*UV(4158)+JVS(51310)*UV(5255) - JTUV(3067) = JVS(13550)*UV(3067)+JVS(39704)*UV(5242)+JVS(39977)*UV(5244)+JVS(45451)*UV(5251) - JTUV(3068) = JVS(13556)*UV(3068)+JVS(13561)*UV(3069)+JVS(34359)*UV(5160)+JVS(37418)*UV(5222)+JVS(42986)*UV(5250)& - &+JVS(48652)*UV(5253) - JTUV(3069) = JVS(13562)*UV(3069)+JVS(27035)*UV(4698)+JVS(34360)*UV(5160)+JVS(39606)*UV(5241) - JTUV(3070) = JVS(13568)*UV(3070)+JVS(24122)*UV(4430)+JVS(29090)*UV(4873)+JVS(42987)*UV(5250)+JVS(45452)*UV(5251)& - &+JVS(48653)*UV(5253) - JTUV(3071) = JVS(13573)*UV(3071)+JVS(16978)*UV(3626)+JVS(37419)*UV(5222)+JVS(51311)*UV(5255) - JTUV(3072) = JVS(13580)*UV(3072)+JVS(30410)*UV(4964)+JVS(38316)*UV(5231)+JVS(51312)*UV(5255) - JTUV(3073) = JVS(13587)*UV(3073)+JVS(33241)*UV(5125)+JVS(33605)*UV(5139)+JVS(45453)*UV(5251) - JTUV(3074) = JVS(13594)*UV(3074)+JVS(38317)*UV(5231)+JVS(40552)*UV(5248)+JVS(48654)*UV(5253) - JTUV(3075) = JVS(13600)*UV(3075)+JVS(13908)*UV(3128)+JVS(24551)*UV(4472)+JVS(42988)*UV(5250)+JVS(45454)*UV(5251)& - &+JVS(48655)*UV(5253) - JTUV(3076) = JVS(10529)*UV(2490)+JVS(13604)*UV(3076)+JVS(34361)*UV(5160)+JVS(35814)*UV(5193)+JVS(42989)*UV(5250)& - &+JVS(48656)*UV(5253) - JTUV(3077) = JVS(6316)*UV(1574)+JVS(13608)*UV(3077)+JVS(27280)*UV(4724)+JVS(42990)*UV(5250)+JVS(48657)*UV(5253) - JTUV(3078) = JVS(2192)*UV(564)+JVS(7547)*UV(1832)+JVS(13612)*UV(3078)+JVS(35194)*UV(5183)+JVS(39705)*UV(5242)& - &+JVS(42991)*UV(5250) - JTUV(3079) = JVS(13617)*UV(3079)+JVS(31923)*UV(5055)+JVS(38319)*UV(5231)+JVS(51313)*UV(5255) - JTUV(3080) = JVS(13625)*UV(3080)+JVS(35476)*UV(5188)+JVS(38993)*UV(5233)+JVS(51314)*UV(5255) - JTUV(3081) = JVS(1621)*UV(407)+JVS(13631)*UV(3081)+JVS(34362)*UV(5160)+JVS(35082)*UV(5182)+JVS(42992)*UV(5250)& - &+JVS(48658)*UV(5253) - JTUV(3082) = JVS(13638)*UV(3082)+JVS(30717)*UV(4985)+JVS(37420)*UV(5222)+JVS(42993)*UV(5250)+JVS(51315)*UV(5255) - JTUV(3083) = JVS(13644)*UV(3083)+JVS(34363)*UV(5160)+JVS(36768)*UV(5202)+JVS(42994)*UV(5250)+JVS(51316)*UV(5255) - JTUV(3084) = JVS(13649)*UV(3084)+JVS(14123)*UV(3172)+JVS(18365)*UV(3794)+JVS(20645)*UV(4068)+JVS(20853)*UV(4093)& - &+JVS(36299)*UV(5201)+JVS(42995)*UV(5250)+JVS(51317)*UV(5255)+JVS(53237)*UV(5256) - JTUV(3085) = JVS(13652)*UV(3085)+JVS(27985)*UV(4788)+JVS(36300)*UV(5201)+JVS(42996)*UV(5250)+JVS(53238)*UV(5256) - JTUV(3086) = JVS(13659)*UV(3086)+JVS(24173)*UV(4435)+JVS(33528)*UV(5137)+JVS(35195)*UV(5183)+JVS(42997)*UV(5250) - JTUV(3087) = JVS(13664)*UV(3087)+JVS(22666)*UV(4287)+JVS(22778)*UV(4297)+JVS(42998)*UV(5250)+JVS(53239)*UV(5256) - JTUV(3088) = JVS(13669)*UV(3088)+JVS(22866)*UV(4306)+JVS(24415)*UV(4458)+JVS(42999)*UV(5250)+JVS(53240)*UV(5256) - JTUV(3089) = JVS(13677)*UV(3089)+JVS(31533)*UV(5034)+JVS(38994)*UV(5233)+JVS(43000)*UV(5250)+JVS(51318)*UV(5255) - JTUV(3090) = JVS(13683)*UV(3090)+JVS(17944)*UV(3745)+JVS(31445)*UV(5029)+JVS(43001)*UV(5250)+JVS(48659)*UV(5253) - JTUV(3091) = JVS(13691)*UV(3091)+JVS(17412)*UV(3678)+JVS(33899)*UV(5144)+JVS(35196)*UV(5183)+JVS(43002)*UV(5250) - JTUV(3092) = JVS(13696)*UV(3092)+JVS(21738)*UV(4195)+JVS(22530)*UV(4273)+JVS(43003)*UV(5250)+JVS(53241)*UV(5256) - JTUV(3093) = JVS(13701)*UV(3093)+JVS(28151)*UV(4797)+JVS(36301)*UV(5201)+JVS(43004)*UV(5250)+JVS(53242)*UV(5256) - JTUV(3094) = JVS(13706)*UV(3094)+JVS(36973)*UV(5210)+JVS(37421)*UV(5222)+JVS(39978)*UV(5244)+JVS(51319)*UV(5255) - JTUV(3095) = JVS(13711)*UV(3095)+JVS(22706)*UV(4291)+JVS(22724)*UV(4293)+JVS(43005)*UV(5250)+JVS(53243)*UV(5256) - JTUV(3096) = JVS(13716)*UV(3096)+JVS(13925)*UV(3131)+JVS(16090)*UV(3509)+JVS(20068)*UV(4003)+JVS(20545)*UV(4056)& - &+JVS(36302)*UV(5201)+JVS(43006)*UV(5250)+JVS(51320)*UV(5255)+JVS(53244)*UV(5256) - JTUV(3097) = JVS(13719)*UV(3097)+JVS(14600)*UV(3263)+JVS(15981)*UV(3492)+JVS(20008)*UV(3996)+JVS(20539)*UV(4055)& - &+JVS(36303)*UV(5201)+JVS(43007)*UV(5250)+JVS(51321)*UV(5255)+JVS(53245)*UV(5256) - JTUV(3098) = JVS(13722)*UV(3098)+JVS(26584)*UV(4663)+JVS(36304)*UV(5201)+JVS(43008)*UV(5250)+JVS(53246)*UV(5256) - JTUV(3099) = JVS(13727)*UV(3099)+JVS(38320)*UV(5231)+JVS(43009)*UV(5250)+JVS(45455)*UV(5251)+JVS(51322)*UV(5255) - JTUV(3100) = JVS(13732)*UV(3100)+JVS(22769)*UV(4296)+JVS(22875)*UV(4307)+JVS(43010)*UV(5250)+JVS(53247)*UV(5256) - JTUV(3101) = JVS(13737)*UV(3101)+JVS(26273)*UV(4632)+JVS(36305)*UV(5201)+JVS(43011)*UV(5250)+JVS(53248)*UV(5256) - JTUV(3102) = JVS(8193)*UV(1971)+JVS(13742)*UV(3102)+JVS(31838)*UV(5049)+JVS(43012)*UV(5250)+JVS(48660)*UV(5253) - JTUV(3103) = JVS(13750)*UV(3103)+JVS(29941)*UV(4938)+JVS(30739)*UV(4986)+JVS(43013)*UV(5250)+JVS(51324)*UV(5255) - JTUV(3104) = JVS(13756)*UV(3104)+JVS(34364)*UV(5160)+JVS(39979)*UV(5244) - JTUV(3105) = JVS(13765)*UV(3105)+JVS(13949)*UV(3136)+JVS(15917)*UV(3481)+JVS(18490)*UV(3811)+JVS(20311)*UV(4032)& - &+JVS(36306)*UV(5201)+JVS(43014)*UV(5250)+JVS(51325)*UV(5255)+JVS(53249)*UV(5256) - JTUV(3106) = JVS(13768)*UV(3106)+JVS(35477)*UV(5188)+JVS(35815)*UV(5193)+JVS(43015)*UV(5250)+JVS(48661)*UV(5253) - JTUV(3107) = JVS(13775)*UV(3107)+JVS(25706)*UV(4576)+JVS(43016)*UV(5250)+JVS(45456)*UV(5251)+JVS(51326)*UV(5255) - JTUV(3108) = JVS(13776)*UV(3107)+JVS(13780)*UV(3108)+JVS(25707)*UV(4576)+JVS(43017)*UV(5250)+JVS(45457)*UV(5251)& - &+JVS(48662)*UV(5253)+JVS(51327)*UV(5255) - JTUV(3109) = JVS(13787)*UV(3109)+JVS(17820)*UV(3730)+JVS(33970)*UV(5147)+JVS(39980)*UV(5244)+JVS(43018)*UV(5250) - JTUV(3110) = JVS(13795)*UV(3110)+JVS(17612)*UV(3704)+JVS(33004)*UV(5112)+JVS(35197)*UV(5183)+JVS(43019)*UV(5250) - JTUV(3111) = JVS(13800)*UV(3111)+JVS(28301)*UV(4810)+JVS(36307)*UV(5201)+JVS(43020)*UV(5250)+JVS(53250)*UV(5256) - JTUV(3112) = JVS(13805)*UV(3112)+JVS(22051)*UV(4225)+JVS(22715)*UV(4292)+JVS(43021)*UV(5250)+JVS(53251)*UV(5256) - JTUV(3113) = JVS(13810)*UV(3113)+JVS(14078)*UV(3164)+JVS(18386)*UV(3797)+JVS(18395)*UV(3798)+JVS(20741)*UV(4080)& - &+JVS(36308)*UV(5201)+JVS(43022)*UV(5250)+JVS(51328)*UV(5255)+JVS(53252)*UV(5256) - JTUV(3114) = JVS(13813)*UV(3114)+JVS(21720)*UV(4193)+JVS(21907)*UV(4212)+JVS(43023)*UV(5250)+JVS(53253)*UV(5256) - JTUV(3115) = JVS(13819)*UV(3115)+JVS(29530)*UV(4910)+JVS(43024)*UV(5250)+JVS(45458)*UV(5251)+JVS(51329)*UV(5255) - JTUV(3116) = JVS(13824)*UV(3116)+JVS(22328)*UV(4252)+JVS(22930)*UV(4312)+JVS(43025)*UV(5250)+JVS(53254)*UV(5256) - JTUV(3117) = JVS(13832)*UV(3117)+JVS(18149)*UV(3768)+JVS(30076)*UV(4942)+JVS(35198)*UV(5183)+JVS(43026)*UV(5250) - JTUV(3118) = JVS(13840)*UV(3118)+JVS(18297)*UV(3785)+JVS(35199)*UV(5183)+JVS(36916)*UV(5208)+JVS(43027)*UV(5250) - JTUV(3119) = JVS(13845)*UV(3119)+JVS(21792)*UV(4200)+JVS(22839)*UV(4303)+JVS(43028)*UV(5250)+JVS(53255)*UV(5256) - JTUV(3120) = JVS(13850)*UV(3120)+JVS(22857)*UV(4305)+JVS(24851)*UV(4498)+JVS(43029)*UV(5250)+JVS(53256)*UV(5256) - JTUV(3121) = JVS(13858)*UV(3121)+JVS(29612)*UV(4916)+JVS(38995)*UV(5233)+JVS(43030)*UV(5250)+JVS(51330)*UV(5255) - JTUV(3122) = JVS(13866)*UV(3122)+JVS(29818)*UV(4930)+JVS(38996)*UV(5233)+JVS(43031)*UV(5250)+JVS(51331)*UV(5255) - JTUV(3123) = JVS(13871)*UV(3123)+JVS(22175)*UV(4237)+JVS(22604)*UV(4280)+JVS(43032)*UV(5250)+JVS(53257)*UV(5256) - JTUV(3124) = JVS(13878)*UV(3124)+JVS(22539)*UV(4274)+JVS(33529)*UV(5137)+JVS(39981)*UV(5244)+JVS(43033)*UV(5250) - JTUV(3125) = JVS(13883)*UV(3125)+JVS(26679)*UV(4671)+JVS(36309)*UV(5201)+JVS(43034)*UV(5250)+JVS(53258)*UV(5256) - JTUV(3126) = JVS(13891)*UV(3126)+JVS(22156)*UV(4235)+JVS(39607)*UV(5241)+JVS(39776)*UV(5243)+JVS(43035)*UV(5250) - JTUV(3127) = JVS(13896)*UV(3127)+JVS(21888)*UV(4210)+JVS(22954)*UV(4314)+JVS(43036)*UV(5250)+JVS(53259)*UV(5256) - JTUV(3128) = JVS(13909)*UV(3128)+JVS(39982)*UV(5244)+JVS(43037)*UV(5250) - JTUV(3129) = JVS(13918)*UV(3129)+JVS(13921)*UV(3130)+JVS(16213)*UV(3527)+JVS(18387)*UV(3797)+JVS(22524)*UV(4272)& - &+JVS(36310)*UV(5201)+JVS(43038)*UV(5250)+JVS(51332)*UV(5255)+JVS(53260)*UV(5256) - JTUV(3130) = JVS(13922)*UV(3130)+JVS(15963)*UV(3489)+JVS(16389)*UV(3551)+JVS(18600)*UV(3825)+JVS(24913)*UV(4504)& - &+JVS(36311)*UV(5201)+JVS(43039)*UV(5250)+JVS(51333)*UV(5255)+JVS(53261)*UV(5256) - JTUV(3131) = JVS(13926)*UV(3131)+JVS(16240)*UV(3531)+JVS(16452)*UV(3560)+JVS(18379)*UV(3796)+JVS(23882)*UV(4408)& - &+JVS(36312)*UV(5201)+JVS(43040)*UV(5250)+JVS(51334)*UV(5255)+JVS(53262)*UV(5256) - JTUV(3132) = JVS(13932)*UV(3132)+JVS(25838)*UV(4591)+JVS(43041)*UV(5250)+JVS(45459)*UV(5251)+JVS(51335)*UV(5255) - JTUV(3133) = JVS(13937)*UV(3133)+JVS(32799)*UV(5102)+JVS(39983)*UV(5244)+JVS(43042)*UV(5250)+JVS(45460)*UV(5251) - JTUV(3134) = JVS(13942)*UV(3134)+JVS(13945)*UV(3135)+JVS(16079)*UV(3507)+JVS(20763)*UV(4083)+JVS(25224)*UV(4529)& - &+JVS(36313)*UV(5201)+JVS(43043)*UV(5250)+JVS(51336)*UV(5255)+JVS(53263)*UV(5256) - JTUV(3135) = JVS(13946)*UV(3135)+JVS(16109)*UV(3512)+JVS(16257)*UV(3534)+JVS(18465)*UV(3808)+JVS(24818)*UV(4495)& - &+JVS(36314)*UV(5201)+JVS(43044)*UV(5250)+JVS(51337)*UV(5255)+JVS(53264)*UV(5256) - JTUV(3136) = JVS(13950)*UV(3136)+JVS(16468)*UV(3562)+JVS(18505)*UV(3813)+JVS(18643)*UV(3831)+JVS(24366)*UV(4453)& - &+JVS(36315)*UV(5201)+JVS(43045)*UV(5250)+JVS(51338)*UV(5255)+JVS(53265)*UV(5256) - JTUV(3137) = JVS(13953)*UV(3137)+JVS(22558)*UV(4276)+JVS(26380)*UV(4643)+JVS(43046)*UV(5250)+JVS(53266)*UV(5256) - JTUV(3138) = JVS(13958)*UV(3138)+JVS(13961)*UV(3139)+JVS(16200)*UV(3525)+JVS(20275)*UV(4027)+JVS(21194)*UV(4133)& - &+JVS(36316)*UV(5201)+JVS(43047)*UV(5250)+JVS(51339)*UV(5255)+JVS(53267)*UV(5256) - JTUV(3139) = JVS(13962)*UV(3139)+JVS(15995)*UV(3494)+JVS(16160)*UV(3518)+JVS(18624)*UV(3828)+JVS(23872)*UV(4407)& - &+JVS(36317)*UV(5201)+JVS(43048)*UV(5250)+JVS(51340)*UV(5255)+JVS(53268)*UV(5256) - JTUV(3140) = JVS(13965)*UV(3140)+JVS(28018)*UV(4791)+JVS(36318)*UV(5201)+JVS(43049)*UV(5250)+JVS(53269)*UV(5256) - JTUV(3141) = JVS(13970)*UV(3141)+JVS(37208)*UV(5215)+JVS(38321)*UV(5231)+JVS(43050)*UV(5250)+JVS(48663)*UV(5253) - JTUV(3142) = JVS(13975)*UV(3142)+JVS(21711)*UV(4192)+JVS(22986)*UV(4317)+JVS(43051)*UV(5250)+JVS(53270)*UV(5256) - JTUV(3143) = JVS(13980)*UV(3143)+JVS(22684)*UV(4289)+JVS(24464)*UV(4463)+JVS(43052)*UV(5250)+JVS(53271)*UV(5256) - JTUV(3144) = JVS(13985)*UV(3144)+JVS(14007)*UV(3149)+JVS(18439)*UV(3804)+JVS(18458)*UV(3807)+JVS(20858)*UV(4094)& - &+JVS(36319)*UV(5201)+JVS(43053)*UV(5250)+JVS(51341)*UV(5255)+JVS(53272)*UV(5256) - JTUV(3145) = JVS(13988)*UV(3145)+JVS(14051)*UV(3158)+JVS(16190)*UV(3523)+JVS(18657)*UV(3834)+JVS(20281)*UV(4028)& - &+JVS(36320)*UV(5201)+JVS(43054)*UV(5250)+JVS(51342)*UV(5255)+JVS(53273)*UV(5256) - JTUV(3146) = JVS(13991)*UV(3146)+JVS(22516)*UV(4271)+JVS(24502)*UV(4467)+JVS(43055)*UV(5250)+JVS(53274)*UV(5256) - JTUV(3147) = JVS(6905)*UV(1703)+JVS(13996)*UV(3147)+JVS(26623)*UV(4666)+JVS(29679)*UV(4919)+JVS(43056)*UV(5250)& - &+JVS(45461)*UV(5251)+JVS(51343)*UV(5255) - JTUV(3148) = JVS(14002)*UV(3148)+JVS(18263)*UV(3781)+JVS(34578)*UV(5163)+JVS(35200)*UV(5183)+JVS(43057)*UV(5250) - JTUV(3149) = JVS(14008)*UV(3149)+JVS(16405)*UV(3554)+JVS(17594)*UV(3701)+JVS(18401)*UV(3799)+JVS(24610)*UV(4479)& - &+JVS(36321)*UV(5201)+JVS(43058)*UV(5250)+JVS(51344)*UV(5255)+JVS(53275)*UV(5256) - JTUV(3150) = JVS(14011)*UV(3150)+JVS(26737)*UV(4676)+JVS(36322)*UV(5201)+JVS(43059)*UV(5250)+JVS(53276)*UV(5256) - JTUV(3151) = JVS(14018)*UV(3151)+JVS(24444)*UV(4461)+JVS(33242)*UV(5125)+JVS(33530)*UV(5137)+JVS(43060)*UV(5250) - JTUV(3152) = JVS(14023)*UV(3152)+JVS(22126)*UV(4232)+JVS(24386)*UV(4455)+JVS(43061)*UV(5250)+JVS(53277)*UV(5256) - JTUV(3153) = JVS(14028)*UV(3153)+JVS(26793)*UV(4682)+JVS(36323)*UV(5201)+JVS(43062)*UV(5250)+JVS(53278)*UV(5256) - JTUV(3154) = JVS(9850)*UV(2335)+JVS(14033)*UV(3154)+JVS(24434)*UV(4460)+JVS(29497)*UV(4909)+JVS(38997)*UV(5233)& - &+JVS(43063)*UV(5250)+JVS(48664)*UV(5253)+JVS(51345)*UV(5255) - JTUV(3155) = JVS(14036)*UV(3155)+JVS(22657)*UV(4286)+JVS(27866)*UV(4774)+JVS(36278)*UV(5200)+JVS(37861)*UV(5228)& - &+JVS(38322)*UV(5231)+JVS(43064)*UV(5250)+JVS(45463)*UV(5251)+JVS(51346)*UV(5255) - JTUV(3156) = JVS(14042)*UV(3156)+JVS(17397)*UV(3676)+JVS(21146)*UV(4127)+JVS(25881)*UV(4595)+JVS(43065)*UV(5250) - JTUV(3157) = JVS(14048)*UV(3157)+JVS(16295)*UV(3538)+JVS(16350)*UV(3545)+JVS(18354)*UV(3793)+JVS(18616)*UV(3827)& - &+JVS(36324)*UV(5201)+JVS(43066)*UV(5250)+JVS(51347)*UV(5255)+JVS(53279)*UV(5256) - JTUV(3158) = JVS(14052)*UV(3158)+JVS(15975)*UV(3491)+JVS(16085)*UV(3508)+JVS(18556)*UV(3820)+JVS(24598)*UV(4478)& - &+JVS(36325)*UV(5201)+JVS(43067)*UV(5250)+JVS(51348)*UV(5255)+JVS(53280)*UV(5256) - JTUV(3159) = JVS(14055)*UV(3159)+JVS(34365)*UV(5160)+JVS(35816)*UV(5193)+JVS(43068)*UV(5250)+JVS(48665)*UV(5253) - JTUV(3160) = JVS(476)*UV(123)+JVS(9438)*UV(2243)+JVS(14060)*UV(3160)+JVS(34082)*UV(5152)+JVS(35478)*UV(5188)& - &+JVS(43069)*UV(5250)+JVS(48666)*UV(5253)+JVS(51349)*UV(5255) - JTUV(3161) = JVS(14063)*UV(3161)+JVS(28901)*UV(4859)+JVS(36326)*UV(5201)+JVS(43070)*UV(5250)+JVS(53281)*UV(5256) - JTUV(3162) = JVS(14068)*UV(3162)+JVS(22266)*UV(4246)+JVS(22848)*UV(4304)+JVS(43071)*UV(5250)+JVS(53282)*UV(5256) - JTUV(3163) = JVS(14073)*UV(3163)+JVS(22787)*UV(4298)+JVS(23953)*UV(4415)+JVS(43072)*UV(5250)+JVS(53283)*UV(5256) - JTUV(3164) = JVS(14079)*UV(3164)+JVS(16030)*UV(3499)+JVS(16103)*UV(3511)+JVS(18342)*UV(3791)+JVS(24193)*UV(4437)& - &+JVS(36327)*UV(5201)+JVS(43073)*UV(5250)+JVS(51350)*UV(5255)+JVS(53284)*UV(5256) - JTUV(3165) = JVS(14082)*UV(3165)+JVS(28007)*UV(4790)+JVS(36328)*UV(5201)+JVS(43074)*UV(5250)+JVS(53285)*UV(5256) - JTUV(3166) = JVS(14090)*UV(3166)+JVS(18134)*UV(3766)+JVS(27767)*UV(4766)+JVS(35201)*UV(5183)+JVS(43075)*UV(5250) - JTUV(3167) = JVS(14095)*UV(3167)+JVS(21959)*UV(4217)+JVS(22457)*UV(4265)+JVS(43076)*UV(5250)+JVS(53286)*UV(5256) - JTUV(3168) = JVS(14103)*UV(3168)+JVS(17382)*UV(3674)+JVS(33971)*UV(5147)+JVS(39984)*UV(5244)+JVS(43077)*UV(5250) - JTUV(3169) = JVS(14108)*UV(3169)+JVS(14359)*UV(3219)+JVS(18335)*UV(3790)+JVS(20197)*UV(4017)+JVS(21466)*UV(4167)& - &+JVS(36329)*UV(5201)+JVS(43078)*UV(5250)+JVS(51351)*UV(5255)+JVS(53287)*UV(5256) - JTUV(3170) = JVS(14111)*UV(3170)+JVS(26880)*UV(4690)+JVS(36330)*UV(5201)+JVS(43079)*UV(5250)+JVS(53288)*UV(5256) - JTUV(3171) = JVS(14118)*UV(3171)+JVS(29741)*UV(4924)+JVS(43080)*UV(5250)+JVS(45465)*UV(5251)+JVS(51352)*UV(5255) - JTUV(3172) = JVS(14124)*UV(3172)+JVS(16302)*UV(3539)+JVS(17461)*UV(3684)+JVS(18519)*UV(3815)+JVS(24405)*UV(4457)& - &+JVS(36331)*UV(5201)+JVS(43081)*UV(5250)+JVS(51353)*UV(5255)+JVS(53289)*UV(5256) - JTUV(3173) = JVS(14127)*UV(3173)+JVS(34366)*UV(5160)+JVS(38323)*UV(5231)+JVS(43082)*UV(5250)+JVS(48667)*UV(5253) - JTUV(3174) = JVS(14135)*UV(3174)+JVS(29631)*UV(4917)+JVS(38998)*UV(5233)+JVS(43083)*UV(5250)+JVS(51354)*UV(5255) - JTUV(3175) = JVS(14140)*UV(3175)+JVS(14622)*UV(3268)+JVS(30364)*UV(4961)+JVS(43084)*UV(5250)+JVS(48668)*UV(5253) - JTUV(3176) = JVS(14147)*UV(3176)+JVS(25429)*UV(4547)+JVS(43085)*UV(5250)+JVS(45466)*UV(5251)+JVS(51355)*UV(5255) - JTUV(3177) = JVS(14148)*UV(3176)+JVS(14152)*UV(3177)+JVS(25430)*UV(4547)+JVS(43086)*UV(5250)+JVS(45467)*UV(5251)& - &+JVS(48669)*UV(5253)+JVS(51356)*UV(5255) - JTUV(3178) = JVS(14156)*UV(3178)+JVS(21729)*UV(4194)+JVS(24062)*UV(4425)+JVS(43087)*UV(5250)+JVS(53290)*UV(5256) - JTUV(3179) = JVS(14161)*UV(3179)+JVS(14164)*UV(3180)+JVS(16176)*UV(3521)+JVS(16956)*UV(3622)+JVS(18433)*UV(3803)& - &+JVS(36332)*UV(5201)+JVS(43088)*UV(5250)+JVS(51357)*UV(5255)+JVS(53291)*UV(5256) - JTUV(3180) = JVS(14165)*UV(3180)+JVS(15923)*UV(3482)+JVS(16992)*UV(3627)+JVS(17298)*UV(3663)+JVS(24808)*UV(4494)& - &+JVS(36333)*UV(5201)+JVS(43089)*UV(5250)+JVS(51358)*UV(5255)+JVS(53292)*UV(5256) - JTUV(3181) = JVS(14168)*UV(3181)+JVS(22429)*UV(4262)+JVS(24473)*UV(4464)+JVS(43090)*UV(5250)+JVS(53293)*UV(5256) - JTUV(3182) = JVS(14173)*UV(3182)+JVS(14496)*UV(3244)+JVS(18535)*UV(3817)+JVS(18550)*UV(3819)+JVS(20202)*UV(4018)& - &+JVS(36334)*UV(5201)+JVS(43091)*UV(5250)+JVS(51359)*UV(5255)+JVS(53294)*UV(5256) - JTUV(3183) = JVS(14178)*UV(3183)+JVS(24017)*UV(4421)+JVS(30113)*UV(4944)+JVS(33531)*UV(5137)+JVS(43092)*UV(5250) - JTUV(3184) = JVS(14185)*UV(3184)+JVS(25252)*UV(4532)+JVS(27698)*UV(4760)+JVS(33532)*UV(5137)+JVS(43093)*UV(5250) - JTUV(3185) = JVS(14192)*UV(3185)+JVS(24109)*UV(4429)+JVS(28776)*UV(4850)+JVS(33533)*UV(5137)+JVS(43094)*UV(5250) - JTUV(3186) = JVS(14197)*UV(3186)+JVS(32181)*UV(5070)+JVS(35202)*UV(5183)+JVS(43095)*UV(5250)+JVS(45468)*UV(5251) - JTUV(3187) = JVS(14202)*UV(3187)+JVS(21840)*UV(4205)+JVS(25042)*UV(4511)+JVS(43096)*UV(5250)+JVS(53295)*UV(5256) - JTUV(3188) = JVS(7152)*UV(1754)+JVS(14207)*UV(3188)+JVS(43097)*UV(5250)+JVS(48670)*UV(5253) - JTUV(3189) = JVS(14212)*UV(3189)+JVS(21831)*UV(4204)+JVS(24930)*UV(4506)+JVS(43098)*UV(5250)+JVS(53296)*UV(5256) - JTUV(3190) = JVS(14217)*UV(3190)+JVS(22257)*UV(4245)+JVS(24164)*UV(4434)+JVS(43099)*UV(5250)+JVS(53297)*UV(5256) - JTUV(3191) = JVS(14222)*UV(3191)+JVS(22649)*UV(4285)+JVS(26505)*UV(4655)+JVS(43100)*UV(5250)+JVS(53298)*UV(5256) - JTUV(3192) = JVS(14227)*UV(3192)+JVS(14230)*UV(3193)+JVS(18388)*UV(3797)+JVS(18652)*UV(3833)+JVS(20692)*UV(4074)& - &+JVS(36335)*UV(5201)+JVS(43101)*UV(5250)+JVS(51361)*UV(5255)+JVS(53299)*UV(5256) - JTUV(3193) = JVS(14231)*UV(3193)+JVS(16052)*UV(3503)+JVS(16074)*UV(3506)+JVS(17315)*UV(3665)+JVS(24203)*UV(4438)& - &+JVS(36336)*UV(5201)+JVS(43102)*UV(5250)+JVS(51362)*UV(5255)+JVS(53300)*UV(5256) - JTUV(3194) = JVS(14235)*UV(3194)+JVS(37793)*UV(5226)+JVS(38324)*UV(5231)+JVS(51363)*UV(5255) - JTUV(3195) = JVS(14246)*UV(3195)+JVS(17305)*UV(3664)+JVS(38999)*UV(5233)+JVS(51364)*UV(5255) - JTUV(3196) = JVS(2806)*UV(711)+JVS(14253)*UV(3196)+JVS(19362)*UV(3918)+JVS(25544)*UV(4558)+JVS(43103)*UV(5250)& - &+JVS(45469)*UV(5251)+JVS(51365)*UV(5255) - JTUV(3197) = JVS(14257)*UV(3197)+JVS(25604)*UV(4564)+JVS(31522)*UV(5033)+JVS(43104)*UV(5250)+JVS(45470)*UV(5251)& - &+JVS(48671)*UV(5253)+JVS(53301)*UV(5256) - JTUV(3198) = JVS(2246)*UV(578)+JVS(7417)*UV(1808)+JVS(14261)*UV(3198)+JVS(25782)*UV(4585)+JVS(43105)*UV(5250) - JTUV(3199) = JVS(9143)*UV(2177)+JVS(14265)*UV(3199)+JVS(23516)*UV(4375)+JVS(43106)*UV(5250)+JVS(45471)*UV(5251)& - &+JVS(48672)*UV(5253) - JTUV(3200) = JVS(14271)*UV(3200)+JVS(28979)*UV(4865)+JVS(33606)*UV(5139)+JVS(35203)*UV(5183)+JVS(43107)*UV(5250)& - &+JVS(45472)*UV(5251)+JVS(51367)*UV(5255) - JTUV(3201) = JVS(8116)*UV(1955)+JVS(14275)*UV(3201)+JVS(16120)*UV(3514)+JVS(43108)*UV(5250)+JVS(45473)*UV(5251)& - &+JVS(51368)*UV(5255) - JTUV(3202) = JVS(14279)*UV(3202)+JVS(17202)*UV(3651)+JVS(30281)*UV(4956)+JVS(37983)*UV(5229)+JVS(43109)*UV(5250)& - &+JVS(45474)*UV(5251)+JVS(51369)*UV(5255) - JTUV(3203) = JVS(14283)*UV(3203)+JVS(16130)*UV(3515)+JVS(29498)*UV(4909)+JVS(31559)*UV(5036)+JVS(43110)*UV(5250)& - &+JVS(48673)*UV(5253)+JVS(51370)*UV(5255) - JTUV(3204) = JVS(14287)*UV(3204)+JVS(19982)*UV(3993)+JVS(31383)*UV(5025)+JVS(43111)*UV(5250)+JVS(45475)*UV(5251)& - &+JVS(48674)*UV(5253)+JVS(53302)*UV(5256) - JTUV(3205) = JVS(8362)*UV(2005)+JVS(14291)*UV(3205)+JVS(19964)*UV(3991)+JVS(23369)*UV(4359)+JVS(43112)*UV(5250) - JTUV(3206) = JVS(14295)*UV(3206)+JVS(29282)*UV(4892)+JVS(33186)*UV(5123)+JVS(37862)*UV(5228)+JVS(43113)*UV(5250)& - &+JVS(45476)*UV(5251)+JVS(48675)*UV(5253) - JTUV(3207) = JVS(2462)*UV(630)+JVS(14299)*UV(3207)+JVS(27036)*UV(4698)+JVS(33360)*UV(5129)+JVS(38326)*UV(5231)& - &+JVS(43114)*UV(5250)+JVS(45477)*UV(5251) - JTUV(3208) = JVS(8393)*UV(2012)+JVS(14303)*UV(3208)+JVS(32139)*UV(5067)+JVS(34007)*UV(5149)+JVS(43115)*UV(5250) - JTUV(3209) = JVS(14307)*UV(3209)+JVS(23096)*UV(4328)+JVS(30473)*UV(4968)+JVS(30662)*UV(4983)+JVS(39985)*UV(5244)& - &+JVS(43116)*UV(5250)+JVS(51373)*UV(5255) - JTUV(3210) = JVS(14311)*UV(3210)+JVS(30913)*UV(4998)+JVS(32888)*UV(5106)+JVS(36818)*UV(5203)+JVS(43117)*UV(5250)& - &+JVS(45478)*UV(5251)+JVS(51374)*UV(5255) - JTUV(3211) = JVS(14315)*UV(3211)+JVS(22734)*UV(4294)+JVS(28473)*UV(4826)+JVS(39000)*UV(5233)+JVS(43118)*UV(5250)& - &+JVS(48676)*UV(5253)+JVS(51375)*UV(5255) - JTUV(3212) = JVS(9956)*UV(2361)+JVS(14319)*UV(3212)+JVS(31924)*UV(5055)+JVS(34369)*UV(5160)+JVS(43119)*UV(5250)& - &+JVS(48677)*UV(5253) - JTUV(3213) = JVS(14327)*UV(3213)+JVS(23007)*UV(4319)+JVS(43120)*UV(5250)+JVS(51377)*UV(5255) - JTUV(3214) = JVS(2355)*UV(605)+JVS(10427)*UV(2467)+JVS(14334)*UV(3214)+JVS(26656)*UV(4669)+JVS(43121)*UV(5250) - JTUV(3215) = JVS(14339)*UV(3215)+JVS(23433)*UV(4366)+JVS(45480)*UV(5251)+JVS(51378)*UV(5255) - JTUV(3216) = JVS(14340)*UV(3215)+JVS(14346)*UV(3216)+JVS(18673)*UV(3837)+JVS(23434)*UV(4366)+JVS(43122)*UV(5250)& - &+JVS(45481)*UV(5251)+JVS(51379)*UV(5255) - JTUV(3217) = JVS(7826)*UV(1892)+JVS(10927)*UV(2568)+JVS(14350)*UV(3217)+JVS(43123)*UV(5250)+JVS(45482)*UV(5251)& - &+JVS(51380)*UV(5255) - JTUV(3218) = JVS(14354)*UV(3218)+JVS(24260)*UV(4443)+JVS(34557)*UV(5162)+JVS(38328)*UV(5231)+JVS(43124)*UV(5250)& - &+JVS(45483)*UV(5251)+JVS(48678)*UV(5253) - JTUV(3219) = JVS(2449)*UV(627)+JVS(14360)*UV(3219)+JVS(17194)*UV(3650)+JVS(17270)*UV(3659)+JVS(36337)*UV(5201)& - &+JVS(43125)*UV(5250)+JVS(53303)*UV(5256) - JTUV(3220) = JVS(9606)*UV(2283)+JVS(14364)*UV(3220)+JVS(25839)*UV(4591)+JVS(43126)*UV(5250)+JVS(45484)*UV(5251)& - &+JVS(48679)*UV(5253) - JTUV(3221) = JVS(14368)*UV(3221)+JVS(29241)*UV(4888)+JVS(29942)*UV(4938)+JVS(38329)*UV(5231)+JVS(43127)*UV(5250)& - &+JVS(45485)*UV(5251)+JVS(48680)*UV(5253) - JTUV(3222) = JVS(756)*UV(179)+JVS(14372)*UV(3222)+JVS(28200)*UV(4801)+JVS(33912)*UV(5145)+JVS(34050)*UV(5151)& - &+JVS(39987)*UV(5244)+JVS(43128)*UV(5250) - JTUV(3223) = JVS(14376)*UV(3223)+JVS(29531)*UV(4910)+JVS(32466)*UV(5086)+JVS(34370)*UV(5160)+JVS(43129)*UV(5250)& - &+JVS(45486)*UV(5251)+JVS(48681)*UV(5253) - JTUV(3224) = JVS(14380)*UV(3224)+JVS(19492)*UV(3933)+JVS(28474)*UV(4826)+JVS(43130)*UV(5250)+JVS(45487)*UV(5251)& - &+JVS(48682)*UV(5253)+JVS(53304)*UV(5256) - JTUV(3225) = JVS(14384)*UV(3225)+JVS(20287)*UV(4029)+JVS(29632)*UV(4917)+JVS(29651)*UV(4918)+JVS(43131)*UV(5250)& - &+JVS(45488)*UV(5251)+JVS(51382)*UV(5255) - JTUV(3226) = JVS(14388)*UV(3226)+JVS(20788)*UV(4086)+JVS(29819)*UV(4930)+JVS(29836)*UV(4931)+JVS(43132)*UV(5250)& - &+JVS(45489)*UV(5251)+JVS(51383)*UV(5255) - JTUV(3227) = JVS(7209)*UV(1765)+JVS(14392)*UV(3227)+JVS(29358)*UV(4899)+JVS(39988)*UV(5244)+JVS(43133)*UV(5250)& - &+JVS(45490)*UV(5251)+JVS(51384)*UV(5255) - JTUV(3228) = JVS(14397)*UV(3228)+JVS(22497)*UV(4269)+JVS(29303)*UV(4894)+JVS(37794)*UV(5226)+JVS(43134)*UV(5250)& - &+JVS(45491)*UV(5251)+JVS(51385)*UV(5255) - JTUV(3229) = JVS(8818)*UV(2102)+JVS(14401)*UV(3229)+JVS(20901)*UV(4100)+JVS(43135)*UV(5250)+JVS(45492)*UV(5251)& - &+JVS(48683)*UV(5253) - JTUV(3230) = JVS(14406)*UV(3230)+JVS(23806)*UV(4403)+JVS(35204)*UV(5183)+JVS(39002)*UV(5233)+JVS(43136)*UV(5250)& - &+JVS(45493)*UV(5251)+JVS(51386)*UV(5255) - JTUV(3231) = JVS(2781)*UV(706)+JVS(14410)*UV(3231)+JVS(28866)*UV(4856)+JVS(33913)*UV(5145)+JVS(38812)*UV(5232)& - &+JVS(43137)*UV(5250) - JTUV(3232) = JVS(10044)*UV(2379)+JVS(14414)*UV(3232)+JVS(21599)*UV(4181)+JVS(43138)*UV(5250)+JVS(45494)*UV(5251)& - &+JVS(48684)*UV(5253) - JTUV(3233) = JVS(14423)*UV(3233)+JVS(27788)*UV(4768)+JVS(43139)*UV(5250) - JTUV(3234) = JVS(14434)*UV(3234)+JVS(37425)*UV(5222)+JVS(38330)*UV(5231)+JVS(51388)*UV(5255) - JTUV(3235) = JVS(11770)*UV(2732)+JVS(14441)*UV(3235)+JVS(14704)*UV(3283)+JVS(17271)*UV(3659)+JVS(43140)*UV(5250)& - &+JVS(48685)*UV(5253) - JTUV(3236) = JVS(14445)*UV(3236)+JVS(26535)*UV(4658)+JVS(30313)*UV(4958)+JVS(43141)*UV(5250)+JVS(45495)*UV(5251)& - &+JVS(48686)*UV(5253)+JVS(51389)*UV(5255) - JTUV(3237) = JVS(14449)*UV(3237)+JVS(30445)*UV(4966)+JVS(30663)*UV(4983)+JVS(33608)*UV(5139)+JVS(35205)*UV(5183)& - &+JVS(43142)*UV(5250)+JVS(51390)*UV(5255) - JTUV(3238) = JVS(7185)*UV(1760)+JVS(11667)*UV(2714)+JVS(14453)*UV(3238)+JVS(33309)*UV(5126)+JVS(43143)*UV(5250)& - &+JVS(45496)*UV(5251)+JVS(51391)*UV(5255) - JTUV(3239) = JVS(14457)*UV(3239)+JVS(28584)*UV(4836)+JVS(29943)*UV(4938)+JVS(38331)*UV(5231)+JVS(43144)*UV(5250)& - &+JVS(45497)*UV(5251)+JVS(48687)*UV(5253) - JTUV(3240) = JVS(9462)*UV(2249)+JVS(14461)*UV(3240)+JVS(16121)*UV(3514)+JVS(43145)*UV(5250)+JVS(45498)*UV(5251)& - &+JVS(48688)*UV(5253) - JTUV(3241) = JVS(14467)*UV(3241)+JVS(37822)*UV(5227)+JVS(38332)*UV(5231)+JVS(51392)*UV(5255) - JTUV(3242) = JVS(14481)*UV(3242)+JVS(40516)*UV(5247)+JVS(43146)*UV(5250) - JTUV(3243) = JVS(7456)*UV(1815)+JVS(14491)*UV(3243)+JVS(18037)*UV(3755)+JVS(25888)*UV(4596)+JVS(43147)*UV(5250) - JTUV(3244) = JVS(2663)*UV(677)+JVS(14497)*UV(3244)+JVS(17024)*UV(3631)+JVS(17032)*UV(3632)+JVS(36338)*UV(5201)& - &+JVS(43148)*UV(5250)+JVS(53305)*UV(5256) - JTUV(3245) = JVS(14502)*UV(3245)+JVS(35479)*UV(5188)+JVS(43149)*UV(5250)+JVS(48689)*UV(5253) - JTUV(3246) = JVS(14513)*UV(3246)+JVS(26995)*UV(4694)+JVS(37427)*UV(5222)+JVS(51395)*UV(5255) - JTUV(3247) = JVS(14523)*UV(3247)+JVS(39347)*UV(5235)+JVS(43150)*UV(5250)+JVS(51396)*UV(5255) - JTUV(3248) = JVS(14530)*UV(3248)+JVS(31037)*UV(5004)+JVS(36339)*UV(5201)+JVS(43151)*UV(5250)+JVS(45499)*UV(5251)& - &+JVS(51397)*UV(5255)+JVS(53306)*UV(5256) - JTUV(3249) = JVS(14534)*UV(3249)+JVS(30137)*UV(4946)+JVS(33609)*UV(5139)+JVS(38333)*UV(5231)+JVS(43152)*UV(5250)& - &+JVS(45500)*UV(5251)+JVS(48690)*UV(5253) - JTUV(3250) = JVS(14538)*UV(3250)+JVS(32335)*UV(5080)+JVS(37428)*UV(5222)+JVS(38813)*UV(5232)+JVS(43153)*UV(5250)& - &+JVS(45501)*UV(5251)+JVS(51398)*UV(5255) - JTUV(3251) = JVS(14543)*UV(3251)+JVS(30718)*UV(4985)+JVS(31475)*UV(5031)+JVS(39989)*UV(5244)+JVS(43154)*UV(5250)& - &+JVS(45502)*UV(5251)+JVS(51399)*UV(5255) - JTUV(3252) = JVS(14548)*UV(3252)+JVS(36819)*UV(5203)+JVS(45503)*UV(5251)+JVS(51400)*UV(5255) - JTUV(3253) = JVS(10611)*UV(2506)+JVS(14555)*UV(3253)+JVS(18617)*UV(3827)+JVS(24722)*UV(4488)+JVS(43155)*UV(5250)& - &+JVS(48691)*UV(5253) - JTUV(3254) = JVS(14559)*UV(3254)+JVS(30258)*UV(4954)+JVS(39238)*UV(5234)+JVS(43156)*UV(5250)+JVS(45504)*UV(5251)& - &+JVS(48692)*UV(5253)+JVS(53307)*UV(5256) - JTUV(3255) = JVS(14563)*UV(3255)+JVS(28201)*UV(4801)+JVS(45505)*UV(5251)+JVS(51401)*UV(5255) - JTUV(3256) = JVS(7784)*UV(1882)+JVS(14570)*UV(3256)+JVS(16792)*UV(3603)+JVS(25511)*UV(4554)+JVS(43157)*UV(5250) - JTUV(3257) = JVS(14574)*UV(3257)+JVS(16979)*UV(3626)+JVS(28528)*UV(4831)+JVS(43158)*UV(5250)+JVS(45506)*UV(5251)& - &+JVS(48693)*UV(5253)+JVS(53308)*UV(5256) - JTUV(3258) = JVS(14578)*UV(3258)+JVS(28271)*UV(4807)+JVS(32533)*UV(5089)+JVS(37863)*UV(5228)+JVS(43159)*UV(5250)& - &+JVS(45507)*UV(5251)+JVS(48694)*UV(5253) - JTUV(3259) = JVS(14582)*UV(3259)+JVS(14689)*UV(3281)+JVS(20966)*UV(4106)+JVS(37429)*UV(5222)+JVS(39990)*UV(5244)& - &+JVS(43160)*UV(5250)+JVS(45508)*UV(5251) - JTUV(3260) = JVS(14586)*UV(3260)+JVS(28912)*UV(4860)+JVS(34372)*UV(5160)+JVS(38335)*UV(5231)+JVS(43161)*UV(5250)& - &+JVS(45509)*UV(5251)+JVS(48695)*UV(5253) - JTUV(3261) = JVS(8739)*UV(2085)+JVS(14590)*UV(3261)+JVS(21587)*UV(4180)+JVS(36974)*UV(5210)+JVS(43162)*UV(5250) - JTUV(3262) = JVS(14595)*UV(3262)+JVS(31476)*UV(5031)+JVS(33610)*UV(5139)+JVS(35206)*UV(5183)+JVS(43163)*UV(5250)& - &+JVS(45510)*UV(5251)+JVS(51404)*UV(5255) - JTUV(3263) = JVS(2786)*UV(707)+JVS(14601)*UV(3263)+JVS(17112)*UV(3641)+JVS(17177)*UV(3648)+JVS(36340)*UV(5201)& - &+JVS(43164)*UV(5250)+JVS(53309)*UV(5256) - JTUV(3264) = JVS(14605)*UV(3264)+JVS(15676)*UV(3433)+JVS(25431)*UV(4547)+JVS(37430)*UV(5222)+JVS(43165)*UV(5250)& - &+JVS(48696)*UV(5253)+JVS(51406)*UV(5255) - JTUV(3265) = JVS(8653)*UV(2066)+JVS(14609)*UV(3265)+JVS(17861)*UV(3735)+JVS(27776)*UV(4767)+JVS(43166)*UV(5250) - JTUV(3266) = JVS(9056)*UV(2158)+JVS(14613)*UV(3266)+JVS(17246)*UV(3656)+JVS(24576)*UV(4476)+JVS(43167)*UV(5250) - JTUV(3267) = JVS(7307)*UV(1787)+JVS(14617)*UV(3267)+JVS(16834)*UV(3608)+JVS(43168)*UV(5250)+JVS(45511)*UV(5251)& - &+JVS(51409)*UV(5255) - JTUV(3268) = JVS(14623)*UV(3268)+JVS(36820)*UV(5203)+JVS(38336)*UV(5231)+JVS(51410)*UV(5255) - JTUV(3269) = JVS(14631)*UV(3269)+JVS(38039)*UV(5230)+JVS(45512)*UV(5251)+JVS(51411)*UV(5255) - JTUV(3270) = JVS(14642)*UV(3270)+JVS(22965)*UV(4315)+JVS(43169)*UV(5250)+JVS(51412)*UV(5255) - JTUV(3271) = JVS(14649)*UV(3271)+JVS(15037)*UV(3345)+JVS(27332)*UV(4729)+JVS(35207)*UV(5183)+JVS(43170)*UV(5250)& - &+JVS(48697)*UV(5253)+JVS(51413)*UV(5255) - JTUV(3272) = JVS(14653)*UV(3272)+JVS(16474)*UV(3563)+JVS(25605)*UV(4564)+JVS(32268)*UV(5075)+JVS(43171)*UV(5250)& - &+JVS(48698)*UV(5253)+JVS(51414)*UV(5255) - JTUV(3273) = JVS(8175)*UV(1967)+JVS(14657)*UV(3273)+JVS(14924)*UV(3330)+JVS(43172)*UV(5250)+JVS(45513)*UV(5251)& - &+JVS(48699)*UV(5253) - JTUV(3274) = JVS(8447)*UV(2024)+JVS(14661)*UV(3274)+JVS(23600)*UV(4384)+JVS(31477)*UV(5031)+JVS(39991)*UV(5244)& - &+JVS(43173)*UV(5250) - JTUV(3275) = JVS(14665)*UV(3275)+JVS(32315)*UV(5079)+JVS(35481)*UV(5188)+JVS(38337)*UV(5231)+JVS(43174)*UV(5250)& - &+JVS(45515)*UV(5251)+JVS(48700)*UV(5253) - JTUV(3276) = JVS(14669)*UV(3276)+JVS(23436)*UV(4366)+JVS(28368)*UV(4816)+JVS(38338)*UV(5231)+JVS(38814)*UV(5232)& - &+JVS(43175)*UV(5250)+JVS(45516)*UV(5251) - JTUV(3277) = JVS(9377)*UV(2229)+JVS(14673)*UV(3277)+JVS(32499)*UV(5087)+JVS(36769)*UV(5202)+JVS(43176)*UV(5250) - JTUV(3278) = JVS(7413)*UV(1807)+JVS(14677)*UV(3278)+JVS(19273)*UV(3909)+JVS(23254)*UV(4345)+JVS(43177)*UV(5250) - JTUV(3279) = JVS(10902)*UV(2563)+JVS(14681)*UV(3279)+JVS(18601)*UV(3825)+JVS(25265)*UV(4533)+JVS(43178)*UV(5250)& - &+JVS(48702)*UV(5253) - JTUV(3280) = JVS(14685)*UV(3280)+JVS(20248)*UV(4024)+JVS(22736)*UV(4294)+JVS(30838)*UV(4993)+JVS(43179)*UV(5250)& - &+JVS(45517)*UV(5251)+JVS(51416)*UV(5255) - JTUV(3281) = JVS(14690)*UV(3281)+JVS(37432)*UV(5222)+JVS(39993)*UV(5244)+JVS(45518)*UV(5251) - JTUV(3282) = JVS(14697)*UV(3282)+JVS(23973)*UV(4417)+JVS(27138)*UV(4710)+JVS(35820)*UV(5193)+JVS(43180)*UV(5250)& - &+JVS(45519)*UV(5251)+JVS(48703)*UV(5253) - JTUV(3283) = JVS(14705)*UV(3283)+JVS(21567)*UV(4178)+JVS(33612)*UV(5139)+JVS(51417)*UV(5255) - JTUV(3284) = JVS(14715)*UV(3284)+JVS(28202)*UV(4801)+JVS(38340)*UV(5231)+JVS(51418)*UV(5255) - JTUV(3285) = JVS(14722)*UV(3285)+JVS(15554)*UV(3416)+JVS(27231)*UV(4721)+JVS(39006)*UV(5233)+JVS(43181)*UV(5250)& - &+JVS(48704)*UV(5253)+JVS(51419)*UV(5255) - JTUV(3286) = JVS(14726)*UV(3286)+JVS(14925)*UV(3330)+JVS(35482)*UV(5188)+JVS(39007)*UV(5233)+JVS(43182)*UV(5250)& - &+JVS(45520)*UV(5251)+JVS(51420)*UV(5255) - JTUV(3287) = JVS(2712)*UV(689)+JVS(10109)*UV(2395)+JVS(14730)*UV(3287)+JVS(21138)*UV(4126)+JVS(30192)*UV(4949)& - &+JVS(38341)*UV(5231)+JVS(43183)*UV(5250) - JTUV(3288) = JVS(577)*UV(150)+JVS(14734)*UV(3288)+JVS(25767)*UV(4583)+JVS(33914)*UV(5145)+JVS(34183)*UV(5157)& - &+JVS(35208)*UV(5183)+JVS(43184)*UV(5250) - JTUV(3289) = JVS(7763)*UV(1877)+JVS(14738)*UV(3289)+JVS(16459)*UV(3561)+JVS(25905)*UV(4598)+JVS(43185)*UV(5250) - JTUV(3290) = JVS(14742)*UV(3290)+JVS(30839)*UV(4993)+JVS(38343)*UV(5231)+JVS(39008)*UV(5233)+JVS(43186)*UV(5250)& - &+JVS(45522)*UV(5251)+JVS(48705)*UV(5253) - JTUV(3291) = JVS(6236)*UV(1556)+JVS(9488)*UV(2255)+JVS(14746)*UV(3291)+JVS(20958)*UV(4105)+JVS(43187)*UV(5250) - JTUV(3292) = JVS(14750)*UV(3292)+JVS(28552)*UV(4833)+JVS(33187)*UV(5123)+JVS(37864)*UV(5228)+JVS(43188)*UV(5250)& - &+JVS(45524)*UV(5251)+JVS(48706)*UV(5253) - JTUV(3293) = JVS(14754)*UV(3293)+JVS(28388)*UV(4818)+JVS(34373)*UV(5160)+JVS(35083)*UV(5182)+JVS(43189)*UV(5250)& - &+JVS(45525)*UV(5251)+JVS(48707)*UV(5253) - JTUV(3294) = JVS(14758)*UV(3294)+JVS(30259)*UV(4954)+JVS(38345)*UV(5231)+JVS(39240)*UV(5234)+JVS(43190)*UV(5250)& - &+JVS(45526)*UV(5251)+JVS(51424)*UV(5255) - JTUV(3295) = JVS(11748)*UV(2728)+JVS(14762)*UV(3295)+JVS(14769)*UV(3296)+JVS(17025)*UV(3631)+JVS(43191)*UV(5250)& - &+JVS(48708)*UV(5253) - JTUV(3296) = JVS(14770)*UV(3296)+JVS(26997)*UV(4694)+JVS(33614)*UV(5139)+JVS(51425)*UV(5255) - JTUV(3297) = JVS(13049)*UV(2973)+JVS(14777)*UV(3297)+JVS(30060)*UV(4941)+JVS(33771)*UV(5142)+JVS(43192)*UV(5250)& - &+JVS(45527)*UV(5251)+JVS(51426)*UV(5255) - JTUV(3298) = JVS(14781)*UV(3298)+JVS(22897)*UV(4309)+JVS(28312)*UV(4811)+JVS(32661)*UV(5097)+JVS(34051)*UV(5151)& - &+JVS(39994)*UV(5244)+JVS(43193)*UV(5250) - JTUV(3299) = JVS(8064)*UV(1944)+JVS(14785)*UV(3299)+JVS(30946)*UV(5000)+JVS(33361)*UV(5129)+JVS(43194)*UV(5250) - JTUV(3300) = JVS(14789)*UV(3300)+JVS(30719)*UV(4985)+JVS(37433)*UV(5222)+JVS(38347)*UV(5231)+JVS(43195)*UV(5250)& - &+JVS(45528)*UV(5251)+JVS(48709)*UV(5253) - JTUV(3301) = JVS(14794)*UV(3301)+JVS(35629)*UV(5191)+JVS(45529)*UV(5251)+JVS(51428)*UV(5255) - JTUV(3302) = JVS(14795)*UV(3301)+JVS(14801)*UV(3302)+JVS(33615)*UV(5139)+JVS(35630)*UV(5191)+JVS(43196)*UV(5250)& - &+JVS(45530)*UV(5251)+JVS(48710)*UV(5253)+JVS(51429)*UV(5255) - JTUV(3303) = JVS(9921)*UV(2353)+JVS(14805)*UV(3303)+JVS(20499)*UV(4051)+JVS(43197)*UV(5250)+JVS(45531)*UV(5251)& - &+JVS(48711)*UV(5253) - JTUV(3304) = JVS(14809)*UV(3304)+JVS(15946)*UV(3486)+JVS(26249)*UV(4630)+JVS(37434)*UV(5222)+JVS(43198)*UV(5250)& - &+JVS(48712)*UV(5253)+JVS(51430)*UV(5255) - JTUV(3305) = JVS(1114)*UV(264)+JVS(14814)*UV(3305)+JVS(48713)*UV(5253) - JTUV(3306) = JVS(14821)*UV(3306)+JVS(24337)*UV(4450)+JVS(27139)*UV(4710)+JVS(38348)*UV(5231)+JVS(43200)*UV(5250)& - &+JVS(45532)*UV(5251)+JVS(48714)*UV(5253) - JTUV(3307) = JVS(8993)*UV(2143)+JVS(14825)*UV(3307)+JVS(22675)*UV(4288)+JVS(43201)*UV(5250)+JVS(45533)*UV(5251)& - &+JVS(48715)*UV(5253) - JTUV(3308) = JVS(7988)*UV(1927)+JVS(14829)*UV(3308)+JVS(16327)*UV(3542)+JVS(25759)*UV(4582)+JVS(43202)*UV(5250) - JTUV(3309) = JVS(14835)*UV(3309)+JVS(23893)*UV(4409)+JVS(24299)*UV(4447)+JVS(37134)*UV(5214)+JVS(43203)*UV(5250)& - &+JVS(45534)*UV(5251)+JVS(51432)*UV(5255) - JTUV(3310) = JVS(8764)*UV(2090)+JVS(14839)*UV(3310)+JVS(30336)*UV(4959)+JVS(31195)*UV(5012)+JVS(43204)*UV(5250) - JTUV(3311) = JVS(14843)*UV(3311)+JVS(30526)*UV(4973)+JVS(32549)*UV(5090)+JVS(38351)*UV(5231)+JVS(43205)*UV(5250)& - &+JVS(45535)*UV(5251)+JVS(48716)*UV(5253) - JTUV(3312) = JVS(14847)*UV(3312)+JVS(27833)*UV(4771)+JVS(34930)*UV(5178)+JVS(38352)*UV(5231)+JVS(43206)*UV(5250)& - &+JVS(45536)*UV(5251)+JVS(48717)*UV(5253) - JTUV(3313) = JVS(12001)*UV(2773)+JVS(14851)*UV(3313)+JVS(26477)*UV(4652)+JVS(43207)*UV(5250)+JVS(45537)*UV(5251)& - &+JVS(48718)*UV(5253) - JTUV(3314) = JVS(2618)*UV(666)+JVS(7326)*UV(1790)+JVS(14855)*UV(3314)+JVS(25872)*UV(4594)+JVS(36821)*UV(5203)& - &+JVS(39995)*UV(5244)+JVS(43208)*UV(5250) - JTUV(3315) = JVS(8108)*UV(1953)+JVS(14859)*UV(3315)+JVS(27823)*UV(4770)+JVS(43209)*UV(5250)+JVS(45538)*UV(5251)& - &+JVS(48719)*UV(5253) - JTUV(3316) = JVS(14863)*UV(3316)+JVS(30174)*UV(4948)+JVS(31579)*UV(5037)+JVS(37865)*UV(5228)+JVS(43210)*UV(5250)& - &+JVS(45539)*UV(5251)+JVS(48720)*UV(5253) - JTUV(3317) = JVS(7199)*UV(1763)+JVS(14867)*UV(3317)+JVS(26161)*UV(4622)+JVS(43211)*UV(5250)+JVS(45540)*UV(5251)& - &+JVS(48721)*UV(5253) - JTUV(3318) = JVS(9356)*UV(2225)+JVS(14871)*UV(3318)+JVS(21242)*UV(4139)+JVS(43212)*UV(5250)+JVS(45541)*UV(5251)& - &+JVS(48722)*UV(5253) - JTUV(3319) = JVS(10549)*UV(2493)+JVS(14875)*UV(3319)+JVS(18402)*UV(3799)+JVS(26124)*UV(4619)+JVS(43213)*UV(5250)& - &+JVS(48723)*UV(5253) - JTUV(3320) = JVS(11939)*UV(2762)+JVS(14879)*UV(3320)+JVS(18380)*UV(3796)+JVS(24312)*UV(4448)+JVS(43214)*UV(5250)& - &+JVS(48724)*UV(5253) - JTUV(3321) = JVS(12155)*UV(2806)+JVS(14883)*UV(3321)+JVS(18557)*UV(3820)+JVS(23080)*UV(4326)+JVS(43215)*UV(5250)& - &+JVS(48725)*UV(5253) - JTUV(3322) = JVS(14887)*UV(3322)+JVS(15516)*UV(3411)+JVS(27333)*UV(4729)+JVS(35209)*UV(5183)+JVS(43216)*UV(5250)& - &+JVS(48726)*UV(5253)+JVS(51435)*UV(5255) - JTUV(3323) = JVS(13082)*UV(2979)+JVS(14891)*UV(3323)+JVS(26784)*UV(4681)+JVS(43217)*UV(5250)+JVS(45542)*UV(5251)& - &+JVS(48727)*UV(5253) - JTUV(3324) = JVS(14895)*UV(3324)+JVS(23437)*UV(4366)+JVS(28369)*UV(4816)+JVS(43218)*UV(5250)+JVS(45543)*UV(5251)& - &+JVS(48728)*UV(5253)+JVS(53310)*UV(5256) - JTUV(3325) = JVS(14899)*UV(3325)+JVS(17670)*UV(3712)+JVS(29613)*UV(4916)+JVS(30664)*UV(4983)+JVS(43219)*UV(5250)& - &+JVS(45544)*UV(5251)+JVS(51437)*UV(5255) - JTUV(3326) = JVS(14903)*UV(3326)+JVS(16045)*UV(3502)+JVS(34139)*UV(5155)+JVS(35483)*UV(5188)+JVS(43220)*UV(5250)& - &+JVS(48729)*UV(5253)+JVS(51438)*UV(5255) - JTUV(3327) = JVS(7190)*UV(1761)+JVS(14907)*UV(3327)+JVS(24828)*UV(4496)+JVS(43221)*UV(5250)+JVS(45545)*UV(5251)& - &+JVS(48730)*UV(5253) - JTUV(3328) = JVS(6391)*UV(1592)+JVS(14912)*UV(3328)+JVS(29945)*UV(4938)+JVS(43222)*UV(5250)+JVS(48731)*UV(5253) - JTUV(3329) = JVS(14918)*UV(3329)+JVS(16315)*UV(3541)+JVS(36341)*UV(5201)+JVS(45546)*UV(5251)+JVS(48732)*UV(5253) - JTUV(3330) = JVS(8357)*UV(2004)+JVS(14926)*UV(3330)+JVS(35484)*UV(5188)+JVS(43223)*UV(5250)+JVS(45547)*UV(5251)& - &+JVS(51439)*UV(5255) - JTUV(3331) = JVS(14936)*UV(3331)+JVS(18511)*UV(3814)+JVS(25840)*UV(4591)+JVS(37866)*UV(5228)+JVS(43224)*UV(5250) - JTUV(3332) = JVS(14944)*UV(3332)+JVS(29311)*UV(4895)+JVS(32534)*UV(5089)+JVS(37436)*UV(5222)+JVS(51440)*UV(5255) - JTUV(3333) = JVS(14952)*UV(3333)+JVS(15204)*UV(3369)+JVS(30637)*UV(4981)+JVS(35822)*UV(5193)+JVS(51441)*UV(5255) - JTUV(3334) = JVS(14958)*UV(3334)+JVS(17366)*UV(3672)+JVS(35485)*UV(5188)+JVS(43225)*UV(5250)+JVS(48733)*UV(5253)& - &+JVS(51442)*UV(5255) - JTUV(3335) = JVS(10035)*UV(2377)+JVS(14964)*UV(3335)+JVS(38353)*UV(5231)+JVS(51443)*UV(5255) - JTUV(3336) = JVS(14564)*UV(3255)+JVS(14971)*UV(3336)+JVS(25419)*UV(4546)+JVS(28203)*UV(4801)+JVS(43227)*UV(5250)& - &+JVS(45548)*UV(5251)+JVS(51444)*UV(5255) - JTUV(3337) = JVS(14979)*UV(3337)+JVS(34975)*UV(5179)+JVS(43228)*UV(5250)+JVS(45549)*UV(5251)+JVS(51445)*UV(5255) - JTUV(3338) = JVS(6633)*UV(1643)+JVS(14986)*UV(3338)+JVS(38354)*UV(5231)+JVS(51446)*UV(5255) - JTUV(3339) = JVS(14994)*UV(3339)+JVS(27334)*UV(4729)+JVS(39998)*UV(5244)+JVS(43230)*UV(5250)+JVS(45550)*UV(5251)& - &+JVS(51447)*UV(5255) - JTUV(3340) = JVS(14995)*UV(3339)+JVS(14999)*UV(3340)+JVS(27335)*UV(4729)+JVS(39999)*UV(5244)+JVS(43231)*UV(5250)& - &+JVS(45551)*UV(5251)+JVS(48734)*UV(5253)+JVS(51448)*UV(5255) - JTUV(3341) = JVS(7066)*UV(1737)+JVS(15004)*UV(3341)+JVS(25826)*UV(4590)+JVS(43232)*UV(5250)+JVS(48735)*UV(5253) - JTUV(3342) = JVS(15011)*UV(3342)+JVS(30213)*UV(4951)+JVS(31979)*UV(5058)+JVS(39011)*UV(5233)+JVS(51449)*UV(5255) - JTUV(3343) = JVS(15021)*UV(3343)+JVS(18483)*UV(3810)+JVS(20500)*UV(4051)+JVS(37867)*UV(5228)+JVS(43233)*UV(5250) - JTUV(3344) = JVS(2678)*UV(680)+JVS(15029)*UV(3344)+JVS(16980)*UV(3626)+JVS(45552)*UV(5251)+JVS(51450)*UV(5255) - JTUV(3345) = JVS(15038)*UV(3345)+JVS(27336)*UV(4729)+JVS(35210)*UV(5183)+JVS(43235)*UV(5250)+JVS(45553)*UV(5251)& - &+JVS(51451)*UV(5255) - JTUV(3346) = JVS(15044)*UV(3346)+JVS(32957)*UV(5110)+JVS(35824)*UV(5193)+JVS(36129)*UV(5197)+JVS(51452)*UV(5255) - JTUV(3347) = JVS(15051)*UV(3347)+JVS(24959)*UV(4507)+JVS(26928)*UV(4693)+JVS(36342)*UV(5201)+JVS(48736)*UV(5253) - JTUV(3348) = JVS(15060)*UV(3348)+JVS(29011)*UV(4867)+JVS(43236)*UV(5250)+JVS(45554)*UV(5251)+JVS(51453)*UV(5255) - JTUV(3349) = JVS(15067)*UV(3349)+JVS(28242)*UV(4804)+JVS(30114)*UV(4944)+JVS(38355)*UV(5231)+JVS(43237)*UV(5250)& - &+JVS(48737)*UV(5253) - JTUV(3350) = JVS(15075)*UV(3350)+JVS(38815)*UV(5232)+JVS(43238)*UV(5250)+JVS(45555)*UV(5251)+JVS(51454)*UV(5255) - JTUV(3351) = JVS(15082)*UV(3351)+JVS(35017)*UV(5180)+JVS(38356)*UV(5231)+JVS(48738)*UV(5253)+JVS(51455)*UV(5255) - JTUV(3352) = JVS(15090)*UV(3352)+JVS(27232)*UV(4721)+JVS(32890)*UV(5106)+JVS(43239)*UV(5250)+JVS(45556)*UV(5251)& - &+JVS(51456)*UV(5255) - JTUV(3353) = JVS(15091)*UV(3352)+JVS(15095)*UV(3353)+JVS(27233)*UV(4721)+JVS(32891)*UV(5106)+JVS(43240)*UV(5250)& - &+JVS(45557)*UV(5251)+JVS(48739)*UV(5253)+JVS(51457)*UV(5255) - JTUV(3354) = JVS(15101)*UV(3354)+JVS(28980)*UV(4865)+JVS(35211)*UV(5183)+JVS(37437)*UV(5222)+JVS(43241)*UV(5250)& - &+JVS(48740)*UV(5253) - JTUV(3355) = JVS(15108)*UV(3355)+JVS(37135)*UV(5214)+JVS(43242)*UV(5250)+JVS(45558)*UV(5251)+JVS(51458)*UV(5255) - JTUV(3356) = JVS(15116)*UV(3356)+JVS(27234)*UV(4721)+JVS(35212)*UV(5183)+JVS(43243)*UV(5250)+JVS(45559)*UV(5251)& - &+JVS(51459)*UV(5255) - JTUV(3357) = JVS(15117)*UV(3356)+JVS(15121)*UV(3357)+JVS(27235)*UV(4721)+JVS(35213)*UV(5183)+JVS(43244)*UV(5250)& - &+JVS(45560)*UV(5251)+JVS(48741)*UV(5253)+JVS(51460)*UV(5255) - JTUV(3358) = JVS(15125)*UV(3358)+JVS(34788)*UV(5172)+JVS(38357)*UV(5231)+JVS(43245)*UV(5250)+JVS(45561)*UV(5251)& - &+JVS(48742)*UV(5253) - JTUV(3359) = JVS(15132)*UV(3359)+JVS(27337)*UV(4729)+JVS(40000)*UV(5244)+JVS(43246)*UV(5250)+JVS(45562)*UV(5251)& - &+JVS(51461)*UV(5255) - JTUV(3360) = JVS(15133)*UV(3359)+JVS(15137)*UV(3360)+JVS(27338)*UV(4729)+JVS(40001)*UV(5244)+JVS(43247)*UV(5250)& - &+JVS(45563)*UV(5251)+JVS(48743)*UV(5253)+JVS(51462)*UV(5255) - JTUV(3361) = JVS(10819)*UV(2548)+JVS(15142)*UV(3361)+JVS(28083)*UV(4796)+JVS(48744)*UV(5253) - JTUV(3362) = JVS(15149)*UV(3362)+JVS(23807)*UV(4403)+JVS(24960)*UV(4507)+JVS(36343)*UV(5201)+JVS(48745)*UV(5253) - JTUV(3363) = JVS(15156)*UV(3363)+JVS(23132)*UV(4331)+JVS(26929)*UV(4693)+JVS(36344)*UV(5201)+JVS(48746)*UV(5253) - JTUV(3364) = JVS(13757)*UV(3104)+JVS(15163)*UV(3364)+JVS(23255)*UV(4345)+JVS(43249)*UV(5250)+JVS(48747)*UV(5253) - JTUV(3365) = JVS(15171)*UV(3365)+JVS(28842)*UV(4854)+JVS(43250)*UV(5250)+JVS(45564)*UV(5251)+JVS(51463)*UV(5255) - JTUV(3366) = JVS(7552)*UV(1833)+JVS(15177)*UV(3366)+JVS(31167)*UV(5011)+JVS(37438)*UV(5222)+JVS(40003)*UV(5244)& - &+JVS(43251)*UV(5250) - JTUV(3367) = JVS(15185)*UV(3367)+JVS(16231)*UV(3530)+JVS(35825)*UV(5193)+JVS(40477)*UV(5246)+JVS(51464)*UV(5255) - JTUV(3368) = JVS(15195)*UV(3368)+JVS(20296)*UV(4030)+JVS(26162)*UV(4622)+JVS(33772)*UV(5142)+JVS(43252)*UV(5250) - JTUV(3369) = JVS(15205)*UV(3369)+JVS(18666)*UV(3836)+JVS(30638)*UV(4981)+JVS(40004)*UV(5244)+JVS(43253)*UV(5250) - JTUV(3370) = JVS(15212)*UV(3370)+JVS(15896)*UV(3478)+JVS(36345)*UV(5201)+JVS(45565)*UV(5251)+JVS(48748)*UV(5253) - JTUV(3371) = JVS(15219)*UV(3371)+JVS(24961)*UV(4507)+JVS(26930)*UV(4693)+JVS(36346)*UV(5201)+JVS(48749)*UV(5253) - JTUV(3372) = JVS(15229)*UV(3372)+JVS(30740)*UV(4986)+JVS(39012)*UV(5233)+JVS(43254)*UV(5250)+JVS(51465)*UV(5255) - JTUV(3373) = JVS(15239)*UV(3373)+JVS(33396)*UV(5130)+JVS(35084)*UV(5182)+JVS(37136)*UV(5214)+JVS(43255)*UV(5250) - JTUV(3374) = JVS(15248)*UV(3374)+JVS(25677)*UV(4572)+JVS(28617)*UV(4839)+JVS(39442)*UV(5237)+JVS(43256)*UV(5250) - JTUV(3375) = JVS(15255)*UV(3375)+JVS(24962)*UV(4507)+JVS(36347)*UV(5201)+JVS(45566)*UV(5251)+JVS(48750)*UV(5253) - JTUV(3376) = JVS(6888)*UV(1699)+JVS(15262)*UV(3376)+JVS(27215)*UV(4719)+JVS(43257)*UV(5250)+JVS(48751)*UV(5253) - JTUV(3377) = JVS(15269)*UV(3377)+JVS(16844)*UV(3609)+JVS(33773)*UV(5142)+JVS(35631)*UV(5191)+JVS(51466)*UV(5255) - JTUV(3378) = JVS(15277)*UV(3378)+JVS(27236)*UV(4721)+JVS(40006)*UV(5244)+JVS(43258)*UV(5250)+JVS(45567)*UV(5251)& - &+JVS(51467)*UV(5255) - JTUV(3379) = JVS(15278)*UV(3378)+JVS(15282)*UV(3379)+JVS(27237)*UV(4721)+JVS(40007)*UV(5244)+JVS(43259)*UV(5250)& - &+JVS(45568)*UV(5251)+JVS(48752)*UV(5253)+JVS(51468)*UV(5255) - JTUV(3380) = JVS(1044)*UV(244)+JVS(15287)*UV(3380)+JVS(18208)*UV(3775)+JVS(48753)*UV(5253)+JVS(51469)*UV(5255) - JTUV(3381) = JVS(15294)*UV(3381)+JVS(23133)*UV(4331)+JVS(26931)*UV(4693)+JVS(36348)*UV(5201)+JVS(48754)*UV(5253) - JTUV(3382) = JVS(15302)*UV(3382)+JVS(19251)*UV(3906)+JVS(35423)*UV(5185)+JVS(40008)*UV(5244)+JVS(43261)*UV(5250)& - &+JVS(51470)*UV(5255) - JTUV(3383) = JVS(15308)*UV(3383)+JVS(35826)*UV(5193)+JVS(39348)*UV(5235)+JVS(39706)*UV(5242)+JVS(51471)*UV(5255) - JTUV(3384) = JVS(15318)*UV(3384)+JVS(19613)*UV(3948)+JVS(32684)*UV(5098)+JVS(40009)*UV(5244)+JVS(43262)*UV(5250) - JTUV(3385) = JVS(6640)*UV(1645)+JVS(15325)*UV(3385)+JVS(20358)*UV(4038)+JVS(43263)*UV(5250) - JTUV(3386) = JVS(15333)*UV(3386)+JVS(30527)*UV(4973)+JVS(35827)*UV(5193)+JVS(36054)*UV(5195)+JVS(51472)*UV(5255) - JTUV(3387) = JVS(15340)*UV(3387)+JVS(28084)*UV(4796)+JVS(39013)*UV(5233)+JVS(43264)*UV(5250)+JVS(45569)*UV(5251)& - &+JVS(51473)*UV(5255) - JTUV(3388) = JVS(15346)*UV(3388)+JVS(23808)*UV(4403)+JVS(24963)*UV(4507)+JVS(36349)*UV(5201)+JVS(48756)*UV(5253) - JTUV(3389) = JVS(15355)*UV(3389)+JVS(17712)*UV(3717)+JVS(36279)*UV(5200)+JVS(43265)*UV(5250)+JVS(45570)*UV(5251) - JTUV(3390) = JVS(15362)*UV(3390)+JVS(17007)*UV(3629)+JVS(37795)*UV(5226)+JVS(40478)*UV(5246)+JVS(51474)*UV(5255) - JTUV(3391) = JVS(15371)*UV(3391)+JVS(19194)*UV(3899)+JVS(39707)*UV(5242)+JVS(40010)*UV(5244)+JVS(43266)*UV(5250)& - &+JVS(51475)*UV(5255) - JTUV(3392) = JVS(15377)*UV(3392)+JVS(31019)*UV(5003)+JVS(36975)*UV(5210)+JVS(43267)*UV(5250)+JVS(48757)*UV(5253)& - &+JVS(53311)*UV(5256) - JTUV(3393) = JVS(15384)*UV(3393)+JVS(17965)*UV(3747)+JVS(33988)*UV(5148)+JVS(35828)*UV(5193)+JVS(51476)*UV(5255) - JTUV(3394) = JVS(6595)*UV(1634)+JVS(15391)*UV(3394)+JVS(38358)*UV(5231)+JVS(43268)*UV(5250)+JVS(48758)*UV(5253) - JTUV(3395) = JVS(12401)*UV(2854)+JVS(15398)*UV(3395)+JVS(28085)*UV(4796)+JVS(48759)*UV(5253) - JTUV(3396) = JVS(1097)*UV(259)+JVS(15405)*UV(3396)+JVS(17976)*UV(3748)+JVS(48760)*UV(5253)+JVS(51478)*UV(5255) - JTUV(3397) = JVS(15416)*UV(3397)+JVS(28325)*UV(4812)+JVS(43271)*UV(5250)+JVS(45571)*UV(5251)+JVS(51479)*UV(5255) - JTUV(3398) = JVS(6441)*UV(1604)+JVS(15424)*UV(3398)+JVS(21518)*UV(4173)+JVS(51480)*UV(5255) - JTUV(3399) = JVS(9079)*UV(2163)+JVS(15431)*UV(3399)+JVS(28378)*UV(4817)+JVS(43273)*UV(5250)+JVS(48761)*UV(5253) - JTUV(3400) = JVS(15437)*UV(3400)+JVS(36976)*UV(5210)+JVS(45572)*UV(5251)+JVS(48762)*UV(5253)+JVS(51481)*UV(5255) - JTUV(3401) = JVS(15444)*UV(3401)+JVS(28059)*UV(4795)+JVS(39014)*UV(5233)+JVS(43274)*UV(5250)+JVS(48763)*UV(5253)& - &+JVS(53312)*UV(5256) - JTUV(3402) = JVS(15450)*UV(3402)+JVS(24964)*UV(4507)+JVS(26932)*UV(4693)+JVS(36350)*UV(5201)+JVS(48764)*UV(5253) - JTUV(3403) = JVS(15459)*UV(3403)+JVS(28044)*UV(4793)+JVS(33616)*UV(5139)+JVS(33744)*UV(5141)+JVS(51482)*UV(5255) - JTUV(3404) = JVS(15467)*UV(3404)+JVS(18935)*UV(3868)+JVS(33915)*UV(5145)+JVS(35829)*UV(5193)+JVS(51483)*UV(5255) - JTUV(3405) = JVS(994)*UV(229)+JVS(15475)*UV(3405)+JVS(37868)*UV(5228) - JTUV(3406) = JVS(15482)*UV(3406)+JVS(18566)*UV(3821)+JVS(45573)*UV(5251)+JVS(48765)*UV(5253)+JVS(51485)*UV(5255) - JTUV(3407) = JVS(1363)*UV(331)+JVS(15489)*UV(3407)+JVS(26462)*UV(4651)+JVS(48766)*UV(5253)+JVS(51486)*UV(5255) - JTUV(3408) = JVS(15496)*UV(3408)+JVS(29767)*UV(4926)+JVS(32467)*UV(5086)+JVS(43277)*UV(5250)+JVS(45574)*UV(5251)& - &+JVS(48767)*UV(5253) - JTUV(3409) = JVS(6406)*UV(1595)+JVS(15502)*UV(3409)+JVS(23246)*UV(4344)+JVS(43278)*UV(5250)+JVS(48768)*UV(5253) - JTUV(3410) = JVS(7996)*UV(1929)+JVS(15508)*UV(3410)+JVS(38360)*UV(5231)+JVS(51487)*UV(5255) - JTUV(3411) = JVS(15517)*UV(3411)+JVS(27339)*UV(4729)+JVS(35214)*UV(5183)+JVS(43280)*UV(5250)+JVS(45575)*UV(5251)& - &+JVS(51488)*UV(5255) - JTUV(3412) = JVS(15526)*UV(3412)+JVS(20660)*UV(4070)+JVS(21600)*UV(4181)+JVS(37869)*UV(5228)+JVS(43281)*UV(5250) - JTUV(3413) = JVS(15532)*UV(3413)+JVS(36865)*UV(5205)+JVS(37317)*UV(5220)+JVS(43282)*UV(5250)+JVS(51489)*UV(5255) - JTUV(3414) = JVS(12402)*UV(2854)+JVS(15539)*UV(3414)+JVS(28086)*UV(4796)+JVS(48769)*UV(5253) - JTUV(3415) = JVS(15546)*UV(3415)+JVS(27789)*UV(4768)+JVS(30887)*UV(4996)+JVS(35085)*UV(5182)+JVS(51490)*UV(5255) - JTUV(3416) = JVS(15555)*UV(3416)+JVS(28423)*UV(4822)+JVS(28437)*UV(4823)+JVS(31600)*UV(5038)+JVS(39015)*UV(5233)& - &+JVS(43284)*UV(5250) - JTUV(3417) = JVS(15561)*UV(3417)+JVS(23809)*UV(4403)+JVS(24965)*UV(4507)+JVS(36351)*UV(5201)+JVS(48770)*UV(5253) - JTUV(3418) = JVS(6610)*UV(1638)+JVS(15568)*UV(3418)+JVS(19743)*UV(3964)+JVS(43285)*UV(5250)+JVS(48771)*UV(5253) - JTUV(3419) = JVS(15573)*UV(3419)+JVS(26098)*UV(4618)+JVS(33617)*UV(5139)+JVS(40012)*UV(5244)+JVS(45576)*UV(5251)& - &+JVS(51491)*UV(5255) - JTUV(3420) = JVS(15582)*UV(3420)+JVS(32837)*UV(5104)+JVS(35086)*UV(5182)+JVS(37138)*UV(5214)+JVS(43286)*UV(5250) - JTUV(3421) = JVS(10820)*UV(2548)+JVS(15589)*UV(3421)+JVS(28087)*UV(4796)+JVS(48772)*UV(5253) - JTUV(3422) = JVS(15596)*UV(3422)+JVS(16276)*UV(3536)+JVS(34376)*UV(5160)+JVS(35831)*UV(5193)+JVS(51492)*UV(5255) - JTUV(3423) = JVS(1769)*UV(448)+JVS(15603)*UV(3423)+JVS(18189)*UV(3773)+JVS(48773)*UV(5253)+JVS(51493)*UV(5255) - JTUV(3424) = JVS(12847)*UV(2938)+JVS(15611)*UV(3424)+JVS(35087)*UV(5182)+JVS(39543)*UV(5239)+JVS(51494)*UV(5255) - JTUV(3425) = JVS(15619)*UV(3425)+JVS(16013)*UV(3497)+JVS(32838)*UV(5104)+JVS(37042)*UV(5211)+JVS(51495)*UV(5255) - JTUV(3426) = JVS(15627)*UV(3426)+JVS(27238)*UV(4721)+JVS(33245)*UV(5125)+JVS(43290)*UV(5250)+JVS(45577)*UV(5251)& - &+JVS(51496)*UV(5255) - JTUV(3427) = JVS(15628)*UV(3426)+JVS(15632)*UV(3427)+JVS(27239)*UV(4721)+JVS(33246)*UV(5125)+JVS(43291)*UV(5250)& - &+JVS(45578)*UV(5251)+JVS(48774)*UV(5253)+JVS(51497)*UV(5255) - JTUV(3428) = JVS(111)*UV(21)+JVS(206)*UV(48)+JVS(15638)*UV(3428)+JVS(31547)*UV(5035)+JVS(33463)*UV(5134)+JVS(34834)& - &*UV(5174)+JVS(43292)*UV(5250) - JTUV(3429) = JVS(15645)*UV(3429)+JVS(33774)*UV(5142)+JVS(34931)*UV(5178)+JVS(35832)*UV(5193)+JVS(51498)*UV(5255) - JTUV(3430) = JVS(15653)*UV(3430)+JVS(17122)*UV(3642)+JVS(36055)*UV(5195)+JVS(37796)*UV(5226)+JVS(51499)*UV(5255) - JTUV(3431) = JVS(15662)*UV(3431)+JVS(26707)*UV(4673)+JVS(43293)*UV(5250)+JVS(45579)*UV(5251)+JVS(51500)*UV(5255) - JTUV(3432) = JVS(66)*UV(7)+JVS(15669)*UV(3432)+JVS(19105)*UV(3888)+JVS(43294)*UV(5250)+JVS(48775)*UV(5253) - JTUV(3433) = JVS(15677)*UV(3433)+JVS(27454)*UV(4740)+JVS(30150)*UV(4947)+JVS(32737)*UV(5100)+JVS(37439)*UV(5222)& - &+JVS(43295)*UV(5250) - JTUV(3434) = JVS(15685)*UV(3434)+JVS(27583)*UV(4750)+JVS(35216)*UV(5183)+JVS(40013)*UV(5244)+JVS(43296)*UV(5250) - JTUV(3435) = JVS(9135)*UV(2175)+JVS(15691)*UV(3435)+JVS(30206)*UV(4950)+JVS(37870)*UV(5228)+JVS(43297)*UV(5250)& - &+JVS(48776)*UV(5253) - JTUV(3436) = JVS(7981)*UV(1925)+JVS(15695)*UV(3436)+JVS(32245)*UV(5073)+JVS(43298)*UV(5250)+JVS(45580)*UV(5251)& - &+JVS(48777)*UV(5253) - JTUV(3437) = JVS(15699)*UV(3437)+JVS(16398)*UV(3553)+JVS(19829)*UV(3975)+JVS(29242)*UV(4888)+JVS(36352)*UV(5201)& - &+JVS(43299)*UV(5250)+JVS(51502)*UV(5255)+JVS(53313)*UV(5256) - JTUV(3438) = JVS(15703)*UV(3438)+JVS(19363)*UV(3918)+JVS(25649)*UV(4569)+JVS(30983)*UV(5001)+JVS(37441)*UV(5222)& - &+JVS(43300)*UV(5250)+JVS(48778)*UV(5253)+JVS(51503)*UV(5255) - JTUV(3439) = JVS(7768)*UV(1878)+JVS(15707)*UV(3439)+JVS(15713)*UV(3440)+JVS(38362)*UV(5231)+JVS(43301)*UV(5250)& - &+JVS(48779)*UV(5253) - JTUV(3440) = JVS(7769)*UV(1878)+JVS(15714)*UV(3440)+JVS(37872)*UV(5228) - JTUV(3441) = JVS(15574)*UV(3419)+JVS(15720)*UV(3441)+JVS(26099)*UV(4618)+JVS(27810)*UV(4769)+JVS(33618)*UV(5139)& - &+JVS(40015)*UV(5244)+JVS(43303)*UV(5250)+JVS(45581)*UV(5251)+JVS(51504)*UV(5255) - JTUV(3442) = JVS(165)*UV(37)+JVS(15724)*UV(3442)+JVS(17359)*UV(3671)+JVS(17746)*UV(3721)+JVS(34377)*UV(5160)& - &+JVS(43304)*UV(5250)+JVS(53314)*UV(5256)+JVS(54839)*UV(5258) - JTUV(3443) = JVS(10059)*UV(2382)+JVS(15728)*UV(3443)+JVS(35486)*UV(5188)+JVS(39016)*UV(5233)+JVS(43305)*UV(5250)& - &+JVS(48780)*UV(5253)+JVS(51505)*UV(5255) - JTUV(3444) = JVS(7975)*UV(1924)+JVS(8250)*UV(1983)+JVS(15732)*UV(3444)+JVS(26421)*UV(4647)+JVS(43306)*UV(5250)& - &+JVS(51506)*UV(5255) - JTUV(3445) = JVS(9136)*UV(2175)+JVS(15736)*UV(3445)+JVS(21558)*UV(4177)+JVS(33775)*UV(5142)+JVS(43307)*UV(5250)& - &+JVS(48781)*UV(5253) - JTUV(3446) = JVS(3222)*UV(808)+JVS(15740)*UV(3446)+JVS(17144)*UV(3644)+JVS(23361)*UV(4358)+JVS(27109)*UV(4708)& - &+JVS(43308)*UV(5250)+JVS(45582)*UV(5251)+JVS(51508)*UV(5255) - JTUV(3447) = JVS(7997)*UV(1929)+JVS(8285)*UV(1989)+JVS(15744)*UV(3447)+JVS(34379)*UV(5160)+JVS(38363)*UV(5231)& - &+JVS(43309)*UV(5250)+JVS(48782)*UV(5253) - JTUV(3448) = JVS(5079)*UV(1269)+JVS(15748)*UV(3448)+JVS(17212)*UV(3652)+JVS(33337)*UV(5128)+JVS(35487)*UV(5188)& - &+JVS(43310)*UV(5250)+JVS(45583)*UV(5251) - JTUV(3449) = JVS(7625)*UV(1848)+JVS(15752)*UV(3449)+JVS(22095)*UV(4229)+JVS(27569)*UV(4749)+JVS(43311)*UV(5250)& - &+JVS(45584)*UV(5251)+JVS(51511)*UV(5255) - JTUV(3450) = JVS(15758)*UV(3450)+JVS(19466)*UV(3930)+JVS(29946)*UV(4938)+JVS(37444)*UV(5222)+JVS(40018)*UV(5244)& - &+JVS(43312)*UV(5250)+JVS(45585)*UV(5251)+JVS(51512)*UV(5255) - JTUV(3451) = JVS(9626)*UV(2287)+JVS(15762)*UV(3451)+JVS(21124)*UV(4125)+JVS(29457)*UV(4905)+JVS(32821)*UV(5103)& - &+JVS(35217)*UV(5183)+JVS(43313)*UV(5250)+JVS(45586)*UV(5251)+JVS(51513)*UV(5255) - JTUV(3452) = JVS(9935)*UV(2356)+JVS(15766)*UV(3452)+JVS(19475)*UV(3931)+JVS(29359)*UV(4899)+JVS(31580)*UV(5037)& - &+JVS(40019)*UV(5244)+JVS(43314)*UV(5250)+JVS(45587)*UV(5251)+JVS(51514)*UV(5255) - JTUV(3453) = JVS(8137)*UV(1960)+JVS(15770)*UV(3453)+JVS(27110)*UV(4708)+JVS(29139)*UV(4877)+JVS(35218)*UV(5183)& - &+JVS(43315)*UV(5250) - JTUV(3454) = JVS(15775)*UV(3454)+JVS(25336)*UV(4539)+JVS(29904)*UV(4936)+JVS(36353)*UV(5201)+JVS(43316)*UV(5250)& - &+JVS(45588)*UV(5251)+JVS(51516)*UV(5255)+JVS(53315)*UV(5256) - JTUV(3455) = JVS(13707)*UV(3094)+JVS(15779)*UV(3455)+JVS(23067)*UV(4325)+JVS(27093)*UV(4706)+JVS(36977)*UV(5210)& - &+JVS(40020)*UV(5244)+JVS(43317)*UV(5250) - JTUV(3456) = JVS(952)*UV(216)+JVS(15785)*UV(3456)+JVS(48783)*UV(5253) - JTUV(3457) = JVS(15793)*UV(3457)+JVS(23771)*UV(4401)+JVS(25650)*UV(4569)+JVS(30984)*UV(5001)+JVS(33620)*UV(5139)& - &+JVS(43319)*UV(5250)+JVS(48784)*UV(5253)+JVS(51518)*UV(5255) - JTUV(3458) = JVS(15797)*UV(3458)+JVS(20598)*UV(4062)+JVS(30665)*UV(4983)+JVS(31535)*UV(5034)+JVS(35219)*UV(5183)& - &+JVS(43320)*UV(5250)+JVS(45589)*UV(5251)+JVS(51519)*UV(5255) - JTUV(3459) = JVS(8858)*UV(2112)+JVS(15801)*UV(3459)+JVS(15929)*UV(3483)+JVS(25230)*UV(4530)+JVS(43321)*UV(5250)& - &+JVS(45590)*UV(5251)+JVS(51520)*UV(5255) - JTUV(3460) = JVS(15805)*UV(3460)+JVS(22567)*UV(4277)+JVS(23772)*UV(4401)+JVS(29872)*UV(4933)+JVS(33621)*UV(5139)& - &+JVS(43322)*UV(5250)+JVS(48785)*UV(5253)+JVS(51521)*UV(5255) - JTUV(3461) = JVS(1549)*UV(387)+JVS(15811)*UV(3461)+JVS(48786)*UV(5253) - JTUV(3462) = JVS(7710)*UV(1866)+JVS(15819)*UV(3462)+JVS(30947)*UV(5000)+JVS(32598)*UV(5094)+JVS(43324)*UV(5250)& - &+JVS(45591)*UV(5251)+JVS(51522)*UV(5255) - JTUV(3463) = JVS(15823)*UV(3463)+JVS(28963)*UV(4864)+JVS(29837)*UV(4931)+JVS(30666)*UV(4983)+JVS(33247)*UV(5125)& - &+JVS(43325)*UV(5250)+JVS(45592)*UV(5251)+JVS(51523)*UV(5255) - JTUV(3464) = JVS(15827)*UV(3464)+JVS(17638)*UV(3708)+JVS(19751)*UV(3965)+JVS(24005)*UV(4420)+JVS(37447)*UV(5222)& - &+JVS(38365)*UV(5231)+JVS(40021)*UV(5244)+JVS(43326)*UV(5250) - JTUV(3465) = JVS(15831)*UV(3465)+JVS(23156)*UV(4333)+JVS(23633)*UV(4387)+JVS(31103)*UV(5007)+JVS(35834)*UV(5193)& - &+JVS(43327)*UV(5250)+JVS(53316)*UV(5256)+JVS(54840)*UV(5258) - JTUV(3466) = JVS(15835)*UV(3466)+JVS(23157)*UV(4333)+JVS(23634)*UV(4387)+JVS(31104)*UV(5007)+JVS(35835)*UV(5193)& - &+JVS(43328)*UV(5250)+JVS(53317)*UV(5256)+JVS(54841)*UV(5258) - JTUV(3467) = JVS(15839)*UV(3467)+JVS(28032)*UV(4792)+JVS(29652)*UV(4918)+JVS(30667)*UV(4983)+JVS(33248)*UV(5125)& - &+JVS(43329)*UV(5250)+JVS(45593)*UV(5251)+JVS(51524)*UV(5255) - JTUV(3468) = JVS(12315)*UV(2837)+JVS(15843)*UV(3468)+JVS(21125)*UV(4125)+JVS(29293)*UV(4893)+JVS(31581)*UV(5037)& - &+JVS(40022)*UV(5244)+JVS(43330)*UV(5250)+JVS(45594)*UV(5251)+JVS(51525)*UV(5255) - JTUV(3469) = JVS(3006)*UV(755)+JVS(15847)*UV(3469)+JVS(19476)*UV(3931)+JVS(29230)*UV(4887)+JVS(33188)*UV(5123)& - &+JVS(40023)*UV(5244)+JVS(43331)*UV(5250)+JVS(45595)*UV(5251)+JVS(51526)*UV(5255) - JTUV(3470) = JVS(15852)*UV(3470)+JVS(25446)*UV(4548)+JVS(31245)*UV(5016)+JVS(36354)*UV(5201)+JVS(43332)*UV(5250)& - &+JVS(45596)*UV(5251)+JVS(51527)*UV(5255)+JVS(53318)*UV(5256) - JTUV(3471) = JVS(15856)*UV(3471)+JVS(26371)*UV(4642)+JVS(32662)*UV(5097)+JVS(36355)*UV(5201)+JVS(43333)*UV(5250)& - &+JVS(45597)*UV(5251)+JVS(51528)*UV(5255)+JVS(53319)*UV(5256) - JTUV(3472) = JVS(15860)*UV(3472)+JVS(19203)*UV(3900)+JVS(23461)*UV(4368)+JVS(26025)*UV(4610)+JVS(36356)*UV(5201)& - &+JVS(43334)*UV(5250)+JVS(51529)*UV(5255)+JVS(53320)*UV(5256) - JTUV(3473) = JVS(2980)*UV(749)+JVS(12808)*UV(2932)+JVS(15864)*UV(3473)+JVS(23421)*UV(4365)+JVS(35633)*UV(5191)& - &+JVS(39443)*UV(5237)+JVS(43335)*UV(5250) - JTUV(3474) = JVS(1891)*UV(483)+JVS(15870)*UV(3474)+JVS(48787)*UV(5253) - JTUV(3475) = JVS(15878)*UV(3475)+JVS(16617)*UV(3582)+JVS(27854)*UV(4773)+JVS(30668)*UV(4983)+JVS(40024)*UV(5244)& - &+JVS(43337)*UV(5250)+JVS(45598)*UV(5251)+JVS(51531)*UV(5255) - JTUV(3476) = JVS(15882)*UV(3476)+JVS(30669)*UV(4983)+JVS(32738)*UV(5100)+JVS(37448)*UV(5222)+JVS(40025)*UV(5244)& - &+JVS(43338)*UV(5250)+JVS(51532)*UV(5255) - JTUV(3477) = JVS(15888)*UV(3477)+JVS(26933)*UV(4693)+JVS(36978)*UV(5210)+JVS(39021)*UV(5233)+JVS(43339)*UV(5250)& - &+JVS(48788)*UV(5253)+JVS(51533)*UV(5255) - JTUV(3478) = JVS(545)*UV(142)+JVS(15897)*UV(3478)+JVS(43340)*UV(5250) - JTUV(3479) = JVS(15906)*UV(3479)+JVS(37676)*UV(5223)+JVS(43341)*UV(5250)+JVS(45599)*UV(5251)+JVS(51534)*UV(5255) - JTUV(3480) = JVS(15913)*UV(3480)+JVS(16892)*UV(3615)+JVS(22195)*UV(4239)+JVS(23687)*UV(4392)+JVS(27914)*UV(4779)& - &+JVS(40026)*UV(5244)+JVS(43342)*UV(5250)+JVS(45600)*UV(5251)+JVS(51535)*UV(5255) - JTUV(3481) = JVS(1162)*UV(277)+JVS(3860)*UV(966)+JVS(7357)*UV(1796)+JVS(9696)*UV(2302)+JVS(15918)*UV(3481)+JVS(17187)& - &*UV(3649)+JVS(46591)*UV(5252)+JVS(48790)*UV(5253)+JVS(51536)*UV(5255)+JVS(53321)*UV(5256) - JTUV(3482) = JVS(2995)*UV(752)+JVS(15924)*UV(3482)+JVS(26340)*UV(4639)+JVS(36357)*UV(5201)+JVS(43344)*UV(5250)& - &+JVS(53322)*UV(5256)+JVS(54842)*UV(5258) - JTUV(3483) = JVS(15930)*UV(3483)+JVS(25231)*UV(4530)+JVS(36358)*UV(5201)+JVS(43345)*UV(5250)+JVS(45601)*UV(5251)& - &+JVS(51538)*UV(5255)+JVS(53323)*UV(5256) - JTUV(3484) = JVS(15935)*UV(3484)+JVS(36359)*UV(5201)+JVS(40027)*UV(5244)+JVS(43346)*UV(5250)+JVS(45602)*UV(5251)& - &+JVS(51539)*UV(5255)+JVS(53324)*UV(5256) - JTUV(3485) = JVS(6670)*UV(1651)+JVS(15940)*UV(3485)+JVS(17587)*UV(3700)+JVS(31327)*UV(5022)+JVS(43347)*UV(5250)& - &+JVS(51540)*UV(5255) - JTUV(3486) = JVS(15947)*UV(3486)+JVS(28715)*UV(4846)+JVS(30151)*UV(4947)+JVS(32739)*UV(5100)+JVS(37450)*UV(5222)& - &+JVS(43348)*UV(5250)+JVS(51541)*UV(5255) - JTUV(3487) = JVS(8583)*UV(2051)+JVS(15952)*UV(3487)+JVS(29360)*UV(4899)+JVS(30175)*UV(4948)+JVS(40028)*UV(5244)& - &+JVS(43349)*UV(5250)+JVS(45603)*UV(5251)+JVS(51542)*UV(5255) - JTUV(3488) = JVS(15957)*UV(3488)+JVS(30260)*UV(4954)+JVS(36360)*UV(5201)+JVS(43350)*UV(5250)+JVS(45604)*UV(5251)& - &+JVS(51543)*UV(5255)+JVS(53325)*UV(5256) - JTUV(3489) = JVS(429)*UV(111)+JVS(3724)*UV(932)+JVS(15964)*UV(3489)+JVS(25266)*UV(4533)+JVS(46592)*UV(5252)+JVS(48792)& - &*UV(5253)+JVS(51544)*UV(5255)+JVS(53326)*UV(5256) - JTUV(3490) = JVS(15969)*UV(3490)+JVS(16775)*UV(3601)+JVS(23438)*UV(4366)+JVS(38366)*UV(5231)+JVS(39242)*UV(5234)& - &+JVS(48793)*UV(5253)+JVS(51545)*UV(5255) - JTUV(3491) = JVS(423)*UV(109)+JVS(4628)*UV(1157)+JVS(15976)*UV(3491)+JVS(23081)*UV(4326)+JVS(46593)*UV(5252)& - &+JVS(48794)*UV(5253)+JVS(51546)*UV(5255)+JVS(53327)*UV(5256) - JTUV(3492) = JVS(1704)*UV(431)+JVS(5544)*UV(1385)+JVS(7875)*UV(1903)+JVS(9392)*UV(2232)+JVS(15982)*UV(3492)+JVS(17157)& - &*UV(3645)+JVS(46594)*UV(5252)+JVS(48795)*UV(5253)+JVS(51547)*UV(5255)+JVS(53328)*UV(5256) - JTUV(3493) = JVS(14186)*UV(3184)+JVS(15990)*UV(3493)+JVS(33534)*UV(5137)+JVS(34558)*UV(5162)+JVS(43354)*UV(5250)& - &+JVS(51548)*UV(5255) - JTUV(3494) = JVS(2778)*UV(705)+JVS(15996)*UV(3494)+JVS(26669)*UV(4670)+JVS(36361)*UV(5201)+JVS(43355)*UV(5250)& - &+JVS(53329)*UV(5256)+JVS(54843)*UV(5258) - JTUV(3495) = JVS(16000)*UV(3495)+JVS(16860)*UV(3611)+JVS(26203)*UV(4625)+JVS(31345)*UV(5023)+JVS(32336)*UV(5080)& - &+JVS(40029)*UV(5244)+JVS(43356)*UV(5250)+JVS(45605)*UV(5251)+JVS(51550)*UV(5255) - JTUV(3496) = JVS(4406)*UV(1102)+JVS(7905)*UV(1909)+JVS(7911)*UV(1910)+JVS(9556)*UV(2272)+JVS(16004)*UV(3496)& - &+JVS(36021)*UV(5194)+JVS(46595)*UV(5252)+JVS(48796)*UV(5253)+JVS(51551)*UV(5255)+JVS(53330)*UV(5256) - JTUV(3497) = JVS(16014)*UV(3497)+JVS(27390)*UV(4734)+JVS(32839)*UV(5104)+JVS(34977)*UV(5179)+JVS(43358)*UV(5250) - JTUV(3498) = JVS(16023)*UV(3498)+JVS(29057)*UV(4871)+JVS(33249)*UV(5125)+JVS(40030)*UV(5244)+JVS(43359)*UV(5250) - JTUV(3499) = JVS(2660)*UV(676)+JVS(16031)*UV(3499)+JVS(23785)*UV(4402)+JVS(36362)*UV(5201)+JVS(43360)*UV(5250)& - &+JVS(53331)*UV(5256)+JVS(54844)*UV(5258) - JTUV(3500) = JVS(16036)*UV(3500)+JVS(23860)*UV(4406)+JVS(28088)*UV(4796)+JVS(37451)*UV(5222)+JVS(43361)*UV(5250)& - &+JVS(48797)*UV(5253)+JVS(51553)*UV(5255) - JTUV(3501) = JVS(14539)*UV(3250)+JVS(16041)*UV(3501)+JVS(16122)*UV(3514)+JVS(37452)*UV(5222)+JVS(39243)*UV(5234)& - &+JVS(43362)*UV(5250)+JVS(45606)*UV(5251)+JVS(51554)*UV(5255) - JTUV(3502) = JVS(16046)*UV(3502)+JVS(22737)*UV(4294)+JVS(33447)*UV(5133)+JVS(43363)*UV(5250)+JVS(45607)*UV(5251)& - &+JVS(48798)*UV(5253)+JVS(51555)*UV(5255) - JTUV(3503) = JVS(461)*UV(119)+JVS(4128)*UV(1033)+JVS(16053)*UV(3503)+JVS(21341)*UV(4152)+JVS(46596)*UV(5252)& - &+JVS(48799)*UV(5253)+JVS(51556)*UV(5255)+JVS(53332)*UV(5256) - JTUV(3504) = JVS(13660)*UV(3086)+JVS(16061)*UV(3504)+JVS(33535)*UV(5137)+JVS(35634)*UV(5191)+JVS(43365)*UV(5250)& - &+JVS(51557)*UV(5255) - JTUV(3505) = JVS(16069)*UV(3505)+JVS(23659)*UV(4390)+JVS(25752)*UV(4581)+JVS(27954)*UV(4784)+JVS(36917)*UV(5208)& - &+JVS(40031)*UV(5244)+JVS(43366)*UV(5250) - JTUV(3506) = JVS(2839)*UV(718)+JVS(16075)*UV(3506)+JVS(23934)*UV(4413)+JVS(36363)*UV(5201)+JVS(43367)*UV(5250)& - &+JVS(53333)*UV(5256)+JVS(54845)*UV(5258) - JTUV(3507) = JVS(1108)*UV(262)+JVS(3684)*UV(922)+JVS(7492)*UV(1821)+JVS(9728)*UV(2309)+JVS(16080)*UV(3507)+JVS(17259)& - &*UV(3657)+JVS(46597)*UV(5252)+JVS(48800)*UV(5253)+JVS(51559)*UV(5255)+JVS(53334)*UV(5256) - JTUV(3508) = JVS(2860)*UV(723)+JVS(16086)*UV(3508)+JVS(24541)*UV(4471)+JVS(36364)*UV(5201)+JVS(43369)*UV(5250)& - &+JVS(53335)*UV(5256)+JVS(54846)*UV(5258) - JTUV(3509) = JVS(1366)*UV(332)+JVS(5942)*UV(1484)+JVS(7478)*UV(1819)+JVS(7484)*UV(1820)+JVS(16091)*UV(3509)+JVS(17105)& - &*UV(3640)+JVS(46598)*UV(5252)+JVS(48801)*UV(5253)+JVS(51561)*UV(5255)+JVS(53336)*UV(5256) - JTUV(3510) = JVS(16097)*UV(3510)+JVS(33776)*UV(5142)+JVS(36365)*UV(5201)+JVS(43371)*UV(5250)+JVS(45608)*UV(5251)& - &+JVS(51562)*UV(5255)+JVS(53337)*UV(5256) - JTUV(3511) = JVS(479)*UV(124)+JVS(6019)*UV(1503)+JVS(16104)*UV(3511)+JVS(28178)*UV(4799)+JVS(46599)*UV(5252)& - &+JVS(48802)*UV(5253)+JVS(51563)*UV(5255)+JVS(53338)*UV(5256) - JTUV(3512) = JVS(2209)*UV(569)+JVS(16110)*UV(3512)+JVS(25020)*UV(4509)+JVS(36366)*UV(5201)+JVS(43373)*UV(5250)& - &+JVS(53339)*UV(5256)+JVS(54847)*UV(5258) - JTUV(3513) = JVS(16115)*UV(3513)+JVS(24512)*UV(4468)+JVS(29597)*UV(4915)+JVS(36367)*UV(5201)+JVS(40032)*UV(5244)& - &+JVS(43374)*UV(5250)+JVS(53340)*UV(5256) - JTUV(3514) = JVS(2065)*UV(533)+JVS(16123)*UV(3514)+JVS(32338)*UV(5080)+JVS(43375)*UV(5250) - JTUV(3515) = JVS(16131)*UV(3515)+JVS(28060)*UV(4795)+JVS(30670)*UV(4983)+JVS(39022)*UV(5233)+JVS(43376)*UV(5250)& - &+JVS(45609)*UV(5251)+JVS(51565)*UV(5255) - JTUV(3516) = JVS(16141)*UV(3516)+JVS(33158)*UV(5122)+JVS(43377)*UV(5250) - JTUV(3517) = JVS(1041)*UV(243)+JVS(16142)*UV(3516)+JVS(16155)*UV(3517)+JVS(22300)*UV(4249)+JVS(27533)*UV(4747)& - &+JVS(38367)*UV(5231)+JVS(43378)*UV(5250)+JVS(54848)*UV(5258) - JTUV(3518) = JVS(99)*UV(17)+JVS(3832)*UV(959)+JVS(16161)*UV(3518)+JVS(23034)*UV(4322)+JVS(46600)*UV(5252)+JVS(48803)& - &*UV(5253)+JVS(51566)*UV(5255)+JVS(53341)*UV(5256) - JTUV(3519) = JVS(16166)*UV(3519)+JVS(24028)*UV(4422)+JVS(24223)*UV(4440)+JVS(26657)*UV(4669)+JVS(43380)*UV(5250)& - &+JVS(53342)*UV(5256)+JVS(54849)*UV(5258) - JTUV(3520) = JVS(16171)*UV(3520)+JVS(28700)*UV(4845)+JVS(36979)*UV(5210)+JVS(43381)*UV(5250)+JVS(45610)*UV(5251)& - &+JVS(48804)*UV(5253)+JVS(51567)*UV(5255) - JTUV(3521) = JVS(1580)*UV(396)+JVS(6175)*UV(1542)+JVS(7680)*UV(1860)+JVS(7780)*UV(1881)+JVS(16177)*UV(3521)+JVS(17286)& - &*UV(3661)+JVS(46601)*UV(5252)+JVS(48805)*UV(5253)+JVS(51568)*UV(5255)+JVS(53343)*UV(5256) - JTUV(3522) = JVS(14019)*UV(3151)+JVS(16185)*UV(3522)+JVS(33536)*UV(5137)+JVS(38042)*UV(5230)+JVS(43383)*UV(5250)& - &+JVS(51569)*UV(5255) - JTUV(3523) = JVS(981)*UV(225)+JVS(5151)*UV(1287)+JVS(8401)*UV(2014)+JVS(8407)*UV(2015)+JVS(16191)*UV(3523)+JVS(17135)& - &*UV(3643)+JVS(46602)*UV(5252)+JVS(48806)*UV(5253)+JVS(51570)*UV(5255)+JVS(53344)*UV(5256) - JTUV(3524) = JVS(16196)*UV(3524)+JVS(19752)*UV(3965)+JVS(23587)*UV(4383)+JVS(27570)*UV(4749)+JVS(38368)*UV(5231)& - &+JVS(39023)*UV(5233)+JVS(43385)*UV(5250)+JVS(45611)*UV(5251)+JVS(51571)*UV(5255) - JTUV(3525) = JVS(1882)*UV(480)+JVS(5836)*UV(1458)+JVS(7239)*UV(1772)+JVS(7245)*UV(1773)+JVS(16201)*UV(3525)+JVS(17238)& - &*UV(3655)+JVS(46603)*UV(5252)+JVS(48807)*UV(5253)+JVS(51572)*UV(5255)+JVS(53345)*UV(5256) - JTUV(3526) = JVS(16207)*UV(3526)+JVS(34084)*UV(5152)+JVS(36368)*UV(5201)+JVS(43387)*UV(5250)+JVS(45612)*UV(5251)& - &+JVS(51573)*UV(5255)+JVS(53346)*UV(5256) - JTUV(3527) = JVS(496)*UV(129)+JVS(3996)*UV(1000)+JVS(6107)*UV(1525)+JVS(16214)*UV(3527)+JVS(18427)*UV(3802)+JVS(46604)& - &*UV(5252)+JVS(48808)*UV(5253)+JVS(51574)*UV(5255)+JVS(53347)*UV(5256) - JTUV(3528) = JVS(2909)*UV(734)+JVS(7520)*UV(1826)+JVS(16219)*UV(3528)+JVS(30461)*UV(4967)+JVS(31957)*UV(5057)& - &+JVS(40034)*UV(5244)+JVS(43389)*UV(5250) - JTUV(3529) = JVS(15126)*UV(3358)+JVS(16224)*UV(3529)+JVS(33448)*UV(5133)+JVS(43390)*UV(5250)+JVS(45613)*UV(5251)& - &+JVS(48809)*UV(5253) - JTUV(3530) = JVS(16232)*UV(3530)+JVS(24289)*UV(4446)+JVS(40035)*UV(5244)+JVS(40479)*UV(5246)+JVS(43391)*UV(5250) - JTUV(3531) = JVS(143)*UV(31)+JVS(4032)*UV(1009)+JVS(16241)*UV(3531)+JVS(24313)*UV(4448)+JVS(46605)*UV(5252)+JVS(48810)& - &*UV(5253)+JVS(51575)*UV(5255)+JVS(53348)*UV(5256) - JTUV(3532) = JVS(16247)*UV(3532)+JVS(23861)*UV(4406)+JVS(31059)*UV(5005)+JVS(43393)*UV(5250)+JVS(48811)*UV(5253)& - &+JVS(51576)*UV(5255)+JVS(53349)*UV(5256) - JTUV(3533) = JVS(10126)*UV(2399)+JVS(16252)*UV(3533)+JVS(28291)*UV(4809)+JVS(34380)*UV(5160)+JVS(39024)*UV(5233)& - &+JVS(43394)*UV(5250)+JVS(45614)*UV(5251)+JVS(48812)*UV(5253)+JVS(51577)*UV(5255) - JTUV(3534) = JVS(336)*UV(84)+JVS(3980)*UV(996)+JVS(16258)*UV(3534)+JVS(20143)*UV(4012)+JVS(46606)*UV(5252)+JVS(48813)& - &*UV(5253)+JVS(51578)*UV(5255)+JVS(53350)*UV(5256) - JTUV(3535) = JVS(16266)*UV(3535)+JVS(26658)*UV(4669)+JVS(39609)*UV(5241)+JVS(40036)*UV(5244)+JVS(43396)*UV(5250) - JTUV(3536) = JVS(13759)*UV(3104)+JVS(16277)*UV(3536)+JVS(43397)*UV(5250) - JTUV(3537) = JVS(13879)*UV(3124)+JVS(16289)*UV(3537)+JVS(33537)*UV(5137)+JVS(35836)*UV(5193)+JVS(43398)*UV(5250)& - &+JVS(51579)*UV(5255) - JTUV(3538) = JVS(521)*UV(136)+JVS(3752)*UV(939)+JVS(16296)*UV(3538)+JVS(24723)*UV(4488)+JVS(46607)*UV(5252)+JVS(48814)& - &*UV(5253)+JVS(51580)*UV(5255)+JVS(53351)*UV(5256) - JTUV(3539) = JVS(289)*UV(71)+JVS(4930)*UV(1232)+JVS(16303)*UV(3539)+JVS(27495)*UV(4743)+JVS(46608)*UV(5252)+JVS(48815)& - &*UV(5253)+JVS(51581)*UV(5255)+JVS(53352)*UV(5256) - JTUV(3540) = JVS(15309)*UV(3383)+JVS(16308)*UV(3540)+JVS(27086)*UV(4705)+JVS(33916)*UV(5145)+JVS(39708)*UV(5242)& - &+JVS(43401)*UV(5250)+JVS(45615)*UV(5251)+JVS(51582)*UV(5255) - JTUV(3541) = JVS(1676)*UV(422)+JVS(16316)*UV(3541)+JVS(43402)*UV(5250) - JTUV(3542) = JVS(16328)*UV(3542)+JVS(29250)*UV(4889)+JVS(36918)*UV(5208)+JVS(38817)*UV(5232)+JVS(43403)*UV(5250) - JTUV(3543) = JVS(16337)*UV(3543)+JVS(26165)*UV(4622)+JVS(36369)*UV(5201)+JVS(43404)*UV(5250)+JVS(45616)*UV(5251)& - &+JVS(51583)*UV(5255)+JVS(53353)*UV(5256) - JTUV(3544) = JVS(14179)*UV(3183)+JVS(16345)*UV(3544)+JVS(33538)*UV(5137)+JVS(34634)*UV(5165)+JVS(43405)*UV(5250)& - &+JVS(51584)*UV(5255) - JTUV(3545) = JVS(2454)*UV(628)+JVS(16351)*UV(3545)+JVS(25065)*UV(4514)+JVS(36370)*UV(5201)+JVS(43406)*UV(5250)& - &+JVS(53354)*UV(5256)+JVS(54850)*UV(5258) - JTUV(3546) = JVS(16356)*UV(3546)+JVS(36371)*UV(5201)+JVS(40039)*UV(5244)+JVS(43407)*UV(5250)+JVS(45617)*UV(5251)& - &+JVS(51586)*UV(5255)+JVS(53355)*UV(5256) - JTUV(3547) = JVS(14565)*UV(3255)+JVS(16364)*UV(3547)+JVS(28204)*UV(4801)+JVS(43408)*UV(5250)+JVS(45618)*UV(5251)& - &+JVS(51587)*UV(5255) - JTUV(3548) = JVS(14193)*UV(3185)+JVS(16374)*UV(3548)+JVS(27140)*UV(4710)+JVS(33539)*UV(5137)+JVS(43409)*UV(5250)& - &+JVS(51588)*UV(5255) - JTUV(3549) = JVS(16380)*UV(3549)+JVS(22084)*UV(4228)+JVS(37454)*UV(5222)+JVS(39245)*UV(5234)+JVS(43410)*UV(5250)& - &+JVS(48817)*UV(5253)+JVS(51589)*UV(5255) - JTUV(3550) = JVS(6818)*UV(1684)+JVS(14540)*UV(3250)+JVS(16385)*UV(3550)+JVS(33464)*UV(5134)+JVS(35488)*UV(5188)& - &+JVS(38818)*UV(5232)+JVS(43411)*UV(5250)+JVS(51590)*UV(5255) - JTUV(3551) = JVS(2176)*UV(560)+JVS(16390)*UV(3551)+JVS(24860)*UV(4499)+JVS(36372)*UV(5201)+JVS(43412)*UV(5250)& - &+JVS(53356)*UV(5256)+JVS(54851)*UV(5258) - JTUV(3552) = JVS(6321)*UV(1575)+JVS(9073)*UV(2162)+JVS(16394)*UV(3552)+JVS(34821)*UV(5173)+JVS(43413)*UV(5250)& - &+JVS(51592)*UV(5255) - JTUV(3553) = JVS(16399)*UV(3553)+JVS(23962)*UV(4416)+JVS(24620)*UV(4480)+JVS(24629)*UV(4481)+JVS(43414)*UV(5250)& - &+JVS(53357)*UV(5256)+JVS(54852)*UV(5258) - JTUV(3554) = JVS(548)*UV(143)+JVS(4088)*UV(1023)+JVS(16406)*UV(3554)+JVS(26125)*UV(4619)+JVS(46609)*UV(5252)& - &+JVS(48818)*UV(5253)+JVS(51593)*UV(5255)+JVS(53358)*UV(5256) - JTUV(3555) = JVS(16412)*UV(3555)+JVS(30671)*UV(4983)+JVS(31060)*UV(5005)+JVS(37456)*UV(5222)+JVS(43416)*UV(5250)& - &+JVS(48819)*UV(5253)+JVS(51594)*UV(5255) - JTUV(3556) = JVS(16420)*UV(3556)+JVS(24630)*UV(4481)+JVS(32685)*UV(5098)+JVS(40040)*UV(5244)+JVS(43417)*UV(5250) - JTUV(3557) = JVS(16432)*UV(3557)+JVS(39444)*UV(5237)+JVS(43418)*UV(5250)+JVS(45621)*UV(5251)+JVS(51595)*UV(5255) - JTUV(3558) = JVS(16439)*UV(3558)+JVS(27593)*UV(4751)+JVS(28529)*UV(4831)+JVS(37873)*UV(5228)+JVS(43419)*UV(5250) - JTUV(3559) = JVS(13820)*UV(3115)+JVS(16447)*UV(3559)+JVS(29348)*UV(4898)+JVS(29532)*UV(4910)+JVS(38370)*UV(5231)& - &+JVS(43420)*UV(5250)+JVS(45622)*UV(5251)+JVS(51596)*UV(5255) - JTUV(3560) = JVS(2929)*UV(738)+JVS(16453)*UV(3560)+JVS(24710)*UV(4487)+JVS(36373)*UV(5201)+JVS(43421)*UV(5250)& - &+JVS(53359)*UV(5256)+JVS(54853)*UV(5258) - JTUV(3561) = JVS(16460)*UV(3561)+JVS(28867)*UV(4856)+JVS(37984)*UV(5229)+JVS(38819)*UV(5232)+JVS(43422)*UV(5250) - JTUV(3562) = JVS(203)*UV(47)+JVS(3748)*UV(938)+JVS(16469)*UV(3562)+JVS(20430)*UV(4045)+JVS(46610)*UV(5252)+JVS(48820)& - &*UV(5253)+JVS(51598)*UV(5255)+JVS(53360)*UV(5256) - JTUV(3563) = JVS(16475)*UV(3563)+JVS(22738)*UV(4294)+JVS(31020)*UV(5003)+JVS(39025)*UV(5233)+JVS(43424)*UV(5250)& - &+JVS(48821)*UV(5253)+JVS(51599)*UV(5255) - JTUV(3564) = JVS(14482)*UV(3242)+JVS(16481)*UV(3564)+JVS(38371)*UV(5231)+JVS(51600)*UV(5255) - JTUV(3565) = JVS(16490)*UV(3565)+JVS(27316)*UV(4728)+JVS(33622)*UV(5139)+JVS(37457)*UV(5222)+JVS(40041)*UV(5244)& - &+JVS(51601)*UV(5255) - JTUV(3566) = JVS(16496)*UV(3566)+JVS(37458)*UV(5222)+JVS(39026)*UV(5233)+JVS(40042)*UV(5244)+JVS(45623)*UV(5251)& - &+JVS(51602)*UV(5255) - JTUV(3567) = JVS(16504)*UV(3567)+JVS(26250)*UV(4630)+JVS(30153)*UV(4947)+JVS(36980)*UV(5210)+JVS(37459)*UV(5222)& - &+JVS(51603)*UV(5255) - JTUV(3568) = JVS(8)*UV(3)+JVS(16511)*UV(3568)+JVS(46611)*UV(5252)+JVS(48822)*UV(5253)+JVS(50217)*UV(5254)+JVS(53361)& - &*UV(5256)+JVS(54854)*UV(5258) - JTUV(3569) = JVS(16519)*UV(3569)+JVS(19364)*UV(3918)+JVS(25651)*UV(4569)+JVS(30985)*UV(5001)+JVS(37460)*UV(5222)& - &+JVS(51604)*UV(5255) - JTUV(3570) = JVS(16527)*UV(3570)+JVS(27317)*UV(4728)+JVS(27340)*UV(4729)+JVS(29568)*UV(4913)+JVS(33623)*UV(5139)& - &+JVS(51605)*UV(5255) - JTUV(3571) = JVS(16535)*UV(3571)+JVS(22477)*UV(4267)+JVS(25944)*UV(4602)+JVS(43426)*UV(5250)+JVS(45624)*UV(5251)& - &+JVS(51606)*UV(5255) - JTUV(3572) = JVS(16542)*UV(3572)+JVS(21527)*UV(4174)+JVS(38043)*UV(5230)+JVS(38372)*UV(5231)+JVS(48823)*UV(5253)& - &+JVS(51607)*UV(5255) - JTUV(3573) = JVS(16550)*UV(3573)+JVS(25432)*UV(4547)+JVS(27111)*UV(4708)+JVS(30154)*UV(4947)+JVS(39027)*UV(5233)& - &+JVS(51608)*UV(5255) - JTUV(3574) = JVS(10821)*UV(2548)+JVS(16557)*UV(3574)+JVS(36374)*UV(5201)+JVS(45625)*UV(5251)+JVS(48824)*UV(5253) - JTUV(3575) = JVS(16564)*UV(3575)+JVS(21408)*UV(4160)+JVS(36822)*UV(5203)+JVS(38373)*UV(5231)+JVS(48825)*UV(5253)& - &+JVS(51609)*UV(5255) - JTUV(3576) = JVS(16572)*UV(3576)+JVS(27112)*UV(4708)+JVS(27240)*UV(4721)+JVS(28438)*UV(4823)+JVS(39028)*UV(5233)& - &+JVS(51610)*UV(5255) - JTUV(3577) = JVS(16579)*UV(3577)+JVS(29499)*UV(4909)+JVS(35838)*UV(5193)+JVS(38374)*UV(5231)+JVS(48826)*UV(5253)& - &+JVS(51611)*UV(5255) - JTUV(3578) = JVS(16587)*UV(3578)+JVS(19365)*UV(3918)+JVS(29947)*UV(4938)+JVS(37461)*UV(5222)+JVS(40043)*UV(5244)& - &+JVS(51612)*UV(5255) - JTUV(3579) = JVS(10822)*UV(2548)+JVS(16594)*UV(3579)+JVS(28090)*UV(4796)+JVS(51613)*UV(5255) - JTUV(3580) = JVS(16603)*UV(3580)+JVS(30862)*UV(4995)+JVS(30888)*UV(4996)+JVS(37140)*UV(5214)+JVS(43429)*UV(5250)& - &+JVS(51614)*UV(5255) - JTUV(3581) = JVS(16611)*UV(3581)+JVS(23773)*UV(4401)+JVS(25652)*UV(4569)+JVS(30986)*UV(5001)+JVS(33624)*UV(5139)& - &+JVS(51615)*UV(5255) - JTUV(3582) = JVS(10517)*UV(2488)+JVS(16618)*UV(3582)+JVS(37462)*UV(5222)+JVS(45626)*UV(5251)+JVS(51616)*UV(5255) - JTUV(3583) = JVS(16628)*UV(3583)+JVS(25873)*UV(4594)+JVS(27642)*UV(4755)+JVS(31514)*UV(5032)+JVS(40044)*UV(5244)& - &+JVS(43431)*UV(5250) - JTUV(3584) = JVS(16636)*UV(3584)+JVS(25433)*UV(4547)+JVS(30155)*UV(4947)+JVS(36981)*UV(5210)+JVS(37463)*UV(5222)& - &+JVS(51617)*UV(5255) - JTUV(3585) = JVS(16643)*UV(3585)+JVS(28701)*UV(4845)+JVS(35839)*UV(5193)+JVS(38375)*UV(5231)+JVS(48828)*UV(5253)& - &+JVS(51618)*UV(5255) - JTUV(3586) = JVS(16650)*UV(3586)+JVS(29500)*UV(4909)+JVS(38376)*UV(5231)+JVS(39351)*UV(5235)+JVS(39709)*UV(5242)& - &+JVS(48829)*UV(5253) - JTUV(3587) = JVS(16657)*UV(3587)+JVS(25232)*UV(4530)+JVS(35020)*UV(5180)+JVS(43432)*UV(5250)+JVS(45627)*UV(5251)& - &+JVS(51619)*UV(5255) - JTUV(3588) = JVS(16665)*UV(3588)+JVS(27241)*UV(4721)+JVS(27318)*UV(4728)+JVS(28439)*UV(4823)+JVS(33625)*UV(5139)& - &+JVS(51620)*UV(5255) - JTUV(3589) = JVS(16673)*UV(3589)+JVS(27242)*UV(4721)+JVS(28440)*UV(4823)+JVS(36982)*UV(5210)+JVS(37464)*UV(5222)& - &+JVS(51621)*UV(5255) - JTUV(3590) = JVS(16685)*UV(3590)+JVS(20249)*UV(4024)+JVS(26939)*UV(4693)+JVS(43433)*UV(5250)+JVS(45628)*UV(5251)& - &+JVS(51622)*UV(5255) - JTUV(3591) = JVS(7998)*UV(1929)+JVS(16694)*UV(3591)+JVS(21263)*UV(4142)+JVS(38377)*UV(5231)+JVS(51623)*UV(5255) - JTUV(3592) = JVS(16701)*UV(3592)+JVS(21031)*UV(4114)+JVS(34932)*UV(5178)+JVS(38378)*UV(5231)+JVS(48830)*UV(5253)& - &+JVS(51624)*UV(5255) - JTUV(3593) = JVS(16709)*UV(3593)+JVS(23110)*UV(4329)+JVS(31478)*UV(5031)+JVS(40045)*UV(5244)+JVS(43435)*UV(5250)& - &+JVS(45629)*UV(5251) - JTUV(3594) = JVS(16719)*UV(3594)+JVS(19114)*UV(3889)+JVS(23167)*UV(4334)+JVS(32070)*UV(5062)+JVS(40046)*UV(5244)& - &+JVS(43436)*UV(5250) - JTUV(3595) = JVS(16727)*UV(3595)+JVS(20267)*UV(4026)+JVS(36210)*UV(5199)+JVS(40047)*UV(5244)+JVS(43437)*UV(5250)& - &+JVS(45630)*UV(5251) - JTUV(3596) = JVS(12403)*UV(2854)+JVS(16734)*UV(3596)+JVS(36375)*UV(5201)+JVS(45631)*UV(5251)+JVS(48831)*UV(5253) - JTUV(3597) = JVS(12404)*UV(2854)+JVS(16741)*UV(3597)+JVS(28091)*UV(4796)+JVS(51625)*UV(5255) - JTUV(3598) = JVS(16748)*UV(3598)+JVS(20978)*UV(4108)+JVS(34382)*UV(5160)+JVS(38379)*UV(5231)+JVS(48833)*UV(5253)& - &+JVS(51626)*UV(5255) - JTUV(3599) = JVS(16758)*UV(3599)+JVS(27855)*UV(4773)+JVS(30741)*UV(4986)+JVS(37465)*UV(5222)+JVS(43440)*UV(5250)& - &+JVS(51627)*UV(5255) - JTUV(3600) = JVS(16766)*UV(3600)+JVS(22568)*UV(4277)+JVS(23774)*UV(4401)+JVS(29873)*UV(4933)+JVS(33626)*UV(5139)& - &+JVS(51628)*UV(5255) - JTUV(3601) = JVS(6615)*UV(1639)+JVS(16776)*UV(3601)+JVS(39246)*UV(5234)+JVS(43441)*UV(5250)+JVS(45632)*UV(5251)& - &+JVS(48834)*UV(5253)+JVS(51629)*UV(5255) - JTUV(3602) = JVS(16785)*UV(3602)+JVS(23688)*UV(4392)+JVS(35376)*UV(5184)+JVS(40048)*UV(5244)+JVS(43442)*UV(5250)& - &+JVS(51630)*UV(5255) - JTUV(3603) = JVS(16793)*UV(3603)+JVS(25502)*UV(4553)+JVS(30948)*UV(5000)+JVS(43443)*UV(5250)+JVS(45633)*UV(5251)& - &+JVS(51631)*UV(5255) - JTUV(3604) = JVS(16802)*UV(3604)+JVS(25383)*UV(4543)+JVS(37874)*UV(5228)+JVS(43444)*UV(5250)+JVS(45634)*UV(5251)& - &+JVS(51632)*UV(5255) - JTUV(3605) = JVS(16810)*UV(3605)+JVS(27341)*UV(4729)+JVS(29569)*UV(4913)+JVS(36983)*UV(5210)+JVS(37466)*UV(5222)& - &+JVS(51633)*UV(5255) - JTUV(3606) = JVS(16818)*UV(3606)+JVS(25708)*UV(4576)+JVS(27113)*UV(4708)+JVS(27811)*UV(4769)+JVS(39029)*UV(5233)& - &+JVS(51634)*UV(5255) - JTUV(3607) = JVS(16828)*UV(3607)+JVS(27759)*UV(4765)+JVS(33211)*UV(5124)+JVS(36022)*UV(5194)+JVS(43445)*UV(5250)& - &+JVS(45635)*UV(5251) - JTUV(3608) = JVS(16835)*UV(3608)+JVS(28796)*UV(4851)+JVS(38820)*UV(5232)+JVS(39247)*UV(5234)+JVS(43446)*UV(5250)& - &+JVS(51635)*UV(5255) - JTUV(3609) = JVS(16845)*UV(3609)+JVS(28811)*UV(4852)+JVS(33777)*UV(5142)+JVS(34525)*UV(5161)+JVS(35222)*UV(5183)& - &+JVS(43447)*UV(5250) - JTUV(3610) = JVS(16853)*UV(3610)+JVS(27319)*UV(4728)+JVS(27342)*UV(4729)+JVS(30987)*UV(5001)+JVS(33627)*UV(5139)& - &+JVS(51636)*UV(5255) - JTUV(3611) = JVS(16861)*UV(3611)+JVS(31346)*UV(5023)+JVS(32340)*UV(5080)+JVS(40049)*UV(5244)+JVS(45636)*UV(5251)& - &+JVS(51637)*UV(5255) - JTUV(3612) = JVS(16869)*UV(3612)+JVS(22440)*UV(4263)+JVS(33015)*UV(5113)+JVS(43448)*UV(5250)+JVS(45637)*UV(5251)& - &+JVS(51638)*UV(5255) - JTUV(3613) = JVS(6715)*UV(1660)+JVS(16877)*UV(3613)+JVS(37043)*UV(5211)+JVS(39544)*UV(5239)+JVS(51639)*UV(5255) - JTUV(3614) = JVS(16885)*UV(3614)+JVS(27343)*UV(4729)+JVS(30988)*UV(5001)+JVS(36984)*UV(5210)+JVS(37467)*UV(5222)& - &+JVS(51640)*UV(5255) - JTUV(3615) = JVS(16893)*UV(3615)+JVS(22196)*UV(4239)+JVS(23689)*UV(4392)+JVS(40050)*UV(5244)+JVS(45638)*UV(5251)& - &+JVS(51641)*UV(5255) - JTUV(3616) = JVS(16903)*UV(3616)+JVS(32958)*UV(5110)+JVS(34212)*UV(5158)+JVS(35840)*UV(5193)+JVS(43450)*UV(5250)& - &+JVS(51642)*UV(5255) - JTUV(3617) = JVS(16913)*UV(3617)+JVS(30039)*UV(4940)+JVS(43451)*UV(5250) - JTUV(3618) = JVS(7821)*UV(1891)+JVS(15883)*UV(3476)+JVS(16927)*UV(3618)+JVS(21126)*UV(4125)+JVS(30651)*UV(4982)& - &+JVS(43452)*UV(5250)+JVS(45639)*UV(5251)+JVS(51643)*UV(5255) - JTUV(3619) = JVS(16938)*UV(3619)+JVS(26043)*UV(4612)+JVS(33778)*UV(5142)+JVS(43453)*UV(5250) - JTUV(3620) = JVS(9890)*UV(2345)+JVS(15970)*UV(3490)+JVS(16948)*UV(3620)+JVS(25913)*UV(4599)+JVS(43454)*UV(5250)& - &+JVS(51644)*UV(5255) - JTUV(3621) = JVS(956)*UV(217)+JVS(9383)*UV(2230)+JVS(11981)*UV(2770)+JVS(16952)*UV(3621)+JVS(32561)*UV(5091)& - &+JVS(43455)*UV(5250) - JTUV(3622) = JVS(16957)*UV(3622)+JVS(20768)*UV(4084)+JVS(24663)*UV(4483)+JVS(26251)*UV(4630)+JVS(30504)*UV(4971)& - &+JVS(40052)*UV(5244)+JVS(43456)*UV(5250)+JVS(45641)*UV(5251)+JVS(51646)*UV(5255)+JVS(54855)*UV(5258) - JTUV(3623) = JVS(8468)*UV(2029)+JVS(10292)*UV(2438)+JVS(16961)*UV(3623)+JVS(27923)*UV(4780)+JVS(30949)*UV(5000)& - &+JVS(40053)*UV(5244)+JVS(43457)*UV(5250) - JTUV(3624) = JVS(3011)*UV(756)+JVS(14544)*UV(3251)+JVS(15178)*UV(3366)+JVS(16965)*UV(3624)+JVS(32535)*UV(5089)& - &+JVS(40054)*UV(5244)+JVS(43458)*UV(5250)+JVS(45642)*UV(5251)+JVS(51648)*UV(5255) - JTUV(3625) = JVS(6554)*UV(1625)+JVS(7121)*UV(1748)+JVS(16969)*UV(3625)+JVS(17050)*UV(3635)+JVS(32258)*UV(5074)& - &+JVS(43459)*UV(5250)+JVS(51649)*UV(5255) - JTUV(3626) = JVS(16981)*UV(3626)+JVS(43460)*UV(5250)+JVS(45643)*UV(5251)+JVS(51650)*UV(5255) - JTUV(3627) = JVS(278)*UV(68)+JVS(3530)*UV(884)+JVS(14247)*UV(3195)+JVS(16993)*UV(3627)+JVS(46612)*UV(5252)+JVS(48837)& - &*UV(5253)+JVS(51651)*UV(5255)+JVS(53362)*UV(5256) - JTUV(3628) = JVS(6819)*UV(1684)+JVS(9851)*UV(2335)+JVS(17000)*UV(3628)+JVS(43462)*UV(5250)+JVS(48838)*UV(5253)& - &+JVS(51652)*UV(5255) - JTUV(3629) = JVS(17008)*UV(3629)+JVS(25325)*UV(4538)+JVS(33338)*UV(5128)+JVS(40480)*UV(5246)+JVS(43463)*UV(5250) - JTUV(3630) = JVS(17016)*UV(3630)+JVS(34719)*UV(5170)+JVS(43464)*UV(5250)+JVS(45645)*UV(5251)+JVS(51653)*UV(5255) - JTUV(3631) = JVS(6402)*UV(1594)+JVS(11749)*UV(2728)+JVS(14763)*UV(3295)+JVS(17026)*UV(3631)+JVS(46613)*UV(5252)& - &+JVS(48839)*UV(5253)+JVS(51654)*UV(5255)+JVS(53363)*UV(5256) - JTUV(3632) = JVS(102)*UV(18)+JVS(3924)*UV(982)+JVS(14772)*UV(3296)+JVS(17033)*UV(3632)+JVS(46614)*UV(5252)+JVS(48840)& - &*UV(5253)+JVS(51655)*UV(5255)+JVS(53364)*UV(5256) - JTUV(3633) = JVS(17039)*UV(3633)+JVS(24396)*UV(4456)+JVS(24903)*UV(4503)+JVS(36376)*UV(5201)+JVS(43467)*UV(5250)& - &+JVS(45646)*UV(5251)+JVS(51656)*UV(5255)+JVS(53365)*UV(5256) - JTUV(3634) = JVS(5035)*UV(1258)+JVS(8532)*UV(2040)+JVS(8538)*UV(2041)+JVS(17044)*UV(3634)+JVS(32173)*UV(5069)& - &+JVS(34686)*UV(5168)+JVS(46615)*UV(5252)+JVS(48841)*UV(5253)+JVS(51657)*UV(5255)+JVS(53366)*UV(5256) - JTUV(3635) = JVS(9439)*UV(2243)+JVS(17051)*UV(3635)+JVS(35492)*UV(5188)+JVS(38823)*UV(5232)+JVS(43469)*UV(5250)& - &+JVS(48842)*UV(5253)+JVS(51658)*UV(5255) - JTUV(3636) = JVS(2145)*UV(552)+JVS(3872)*UV(969)+JVS(9343)*UV(2222)+JVS(17056)*UV(3636)+JVS(18110)*UV(3763)+JVS(46616)& - &*UV(5252)+JVS(48843)*UV(5253)+JVS(51659)*UV(5255)+JVS(53367)*UV(5256) - JTUV(3637) = JVS(1272)*UV(307)+JVS(4958)*UV(1239)+JVS(7963)*UV(1922)+JVS(7969)*UV(1923)+JVS(10955)*UV(2574)+JVS(17062)& - &*UV(3637)+JVS(46617)*UV(5252)+JVS(48844)*UV(5253)+JVS(51660)*UV(5255)+JVS(53368)*UV(5256) - JTUV(3638) = JVS(17072)*UV(3638)+JVS(31628)*UV(5039)+JVS(43472)*UV(5250) - JTUV(3639) = JVS(17093)*UV(3639)+JVS(28825)*UV(4853)+JVS(43473)*UV(5250)+JVS(45648)*UV(5251)+JVS(51661)*UV(5255) - JTUV(3640) = JVS(17106)*UV(3640)+JVS(20359)*UV(4038)+JVS(23199)*UV(4338)+JVS(36377)*UV(5201)+JVS(43474)*UV(5250)& - &+JVS(45649)*UV(5251)+JVS(51662)*UV(5255)+JVS(53369)*UV(5256) - JTUV(3641) = JVS(6375)*UV(1589)+JVS(11013)*UV(2585)+JVS(12362)*UV(2847)+JVS(17113)*UV(3641)+JVS(46618)*UV(5252)& - &+JVS(48845)*UV(5253)+JVS(51663)*UV(5255)+JVS(53370)*UV(5256) - JTUV(3642) = JVS(17123)*UV(3642)+JVS(23236)*UV(4343)+JVS(33339)*UV(5128)+JVS(36056)*UV(5195)+JVS(43476)*UV(5250) - JTUV(3643) = JVS(17136)*UV(3643)+JVS(25841)*UV(4591)+JVS(25855)*UV(4592)+JVS(36378)*UV(5201)+JVS(43477)*UV(5250)& - &+JVS(45650)*UV(5251)+JVS(51664)*UV(5255)+JVS(53371)*UV(5256) - JTUV(3644) = JVS(1784)*UV(451)+JVS(17145)*UV(3644)+JVS(31601)*UV(5038)+JVS(43478)*UV(5250)+JVS(45651)*UV(5251)& - &+JVS(51665)*UV(5255) - JTUV(3645) = JVS(17158)*UV(3645)+JVS(20387)*UV(4041)+JVS(21601)*UV(4181)+JVS(36379)*UV(5201)+JVS(43479)*UV(5250)& - &+JVS(45652)*UV(5251)+JVS(51666)*UV(5255)+JVS(53372)*UV(5256) - JTUV(3646) = JVS(16914)*UV(3617)+JVS(17163)*UV(3646)+JVS(25364)*UV(4541)+JVS(27534)*UV(4747)+JVS(29031)*UV(4869)& - &+JVS(38382)*UV(5231)+JVS(43480)*UV(5250)+JVS(54856)*UV(5258) - JTUV(3647) = JVS(17168)*UV(3647)+JVS(34155)*UV(5156)+JVS(40055)*UV(5244)+JVS(43481)*UV(5250)+JVS(45653)*UV(5251) - JTUV(3648) = JVS(83)*UV(13)+JVS(4872)*UV(1218)+JVS(14515)*UV(3246)+JVS(17178)*UV(3648)+JVS(46619)*UV(5252)+JVS(48846)& - &*UV(5253)+JVS(51667)*UV(5255)+JVS(53373)*UV(5256) - JTUV(3649) = JVS(17188)*UV(3649)+JVS(18220)*UV(3776)+JVS(21666)*UV(4187)+JVS(36380)*UV(5201)+JVS(43483)*UV(5250)& - &+JVS(45654)*UV(5251)+JVS(51668)*UV(5255)+JVS(53374)*UV(5256) - JTUV(3650) = JVS(298)*UV(74)+JVS(5588)*UV(1396)+JVS(14706)*UV(3283)+JVS(17195)*UV(3650)+JVS(46620)*UV(5252)+JVS(48847)& - &*UV(5253)+JVS(51669)*UV(5255)+JVS(53375)*UV(5256) - JTUV(3651) = JVS(17203)*UV(3651)+JVS(33917)*UV(5145)+JVS(37985)*UV(5229)+JVS(39517)*UV(5238)+JVS(43485)*UV(5250) - JTUV(3652) = JVS(17213)*UV(3652)+JVS(37876)*UV(5228)+JVS(38383)*UV(5231)+JVS(40056)*UV(5244)+JVS(45655)*UV(5251) - JTUV(3653) = JVS(2297)*UV(591)+JVS(9557)*UV(2272)+JVS(17224)*UV(3653)+JVS(33212)*UV(5124)+JVS(43486)*UV(5250)& - &+JVS(45656)*UV(5251)+JVS(51670)*UV(5255) - JTUV(3654) = JVS(11783)*UV(2734)+JVS(17229)*UV(3654)+JVS(29718)*UV(4922)+JVS(35841)*UV(5193)+JVS(36381)*UV(5201)& - &+JVS(39032)*UV(5233)+JVS(43487)*UV(5250)+JVS(48848)*UV(5253)+JVS(53376)*UV(5256) - JTUV(3655) = JVS(17239)*UV(3655)+JVS(20044)*UV(4000)+JVS(21243)*UV(4139)+JVS(36382)*UV(5201)+JVS(43488)*UV(5250)& - &+JVS(45657)*UV(5251)+JVS(51671)*UV(5255)+JVS(53377)*UV(5256) - JTUV(3656) = JVS(17247)*UV(3656)+JVS(26100)*UV(4618)+JVS(35223)*UV(5183)+JVS(35842)*UV(5193)+JVS(43489)*UV(5250) - JTUV(3657) = JVS(17260)*UV(3657)+JVS(20086)*UV(4005)+JVS(20902)*UV(4100)+JVS(36383)*UV(5201)+JVS(43490)*UV(5250)& - &+JVS(45658)*UV(5251)+JVS(51672)*UV(5255)+JVS(53378)*UV(5256) - JTUV(3658) = JVS(5463)*UV(1365)+JVS(8802)*UV(2099)+JVS(8808)*UV(2100)+JVS(13743)*UV(3102)+JVS(17265)*UV(3658)& - &+JVS(31851)*UV(5050)+JVS(46621)*UV(5252)+JVS(48849)*UV(5253)+JVS(51673)*UV(5255)+JVS(53379)*UV(5256) - JTUV(3659) = JVS(7032)*UV(1729)+JVS(11771)*UV(2732)+JVS(14442)*UV(3235)+JVS(17272)*UV(3659)+JVS(46622)*UV(5252)& - &+JVS(48850)*UV(5253)+JVS(51674)*UV(5255)+JVS(53380)*UV(5256) - JTUV(3660) = JVS(11784)*UV(2734)+JVS(17277)*UV(3660)+JVS(29726)*UV(4923)+JVS(36384)*UV(5201)+JVS(43493)*UV(5250)& - &+JVS(53381)*UV(5256) - JTUV(3661) = JVS(17287)*UV(3661)+JVS(23517)*UV(4375)+JVS(23528)*UV(4376)+JVS(43494)*UV(5250)+JVS(45659)*UV(5251)& - &+JVS(48852)*UV(5253)+JVS(51675)*UV(5255)+JVS(53382)*UV(5256) - JTUV(3662) = JVS(17292)*UV(3662)+JVS(28998)*UV(4866)+JVS(34526)*UV(5161)+JVS(36385)*UV(5201)+JVS(43495)*UV(5250)& - &+JVS(45660)*UV(5251)+JVS(51676)*UV(5255)+JVS(53383)*UV(5256) - JTUV(3663) = JVS(6649)*UV(1647)+JVS(11815)*UV(2740)+JVS(13166)*UV(2994)+JVS(17299)*UV(3663)+JVS(46623)*UV(5252)& - &+JVS(48853)*UV(5253)+JVS(51677)*UV(5255)+JVS(53384)*UV(5256) - JTUV(3664) = JVS(17308)*UV(3664)+JVS(23554)*UV(4379)+JVS(29948)*UV(4938)+JVS(40057)*UV(5244)+JVS(43497)*UV(5250)& - &+JVS(51678)*UV(5255) - JTUV(3665) = JVS(6285)*UV(1567)+JVS(11217)*UV(2624)+JVS(17316)*UV(3665)+JVS(17323)*UV(3666)+JVS(46624)*UV(5252)& - &+JVS(48854)*UV(5253)+JVS(51679)*UV(5255)+JVS(53385)*UV(5256) - JTUV(3666) = JVS(9732)*UV(2310)+JVS(17324)*UV(3666)+JVS(39035)*UV(5233)+JVS(48855)*UV(5253) - JTUV(3667) = JVS(1369)*UV(333)+JVS(6250)*UV(1559)+JVS(8299)*UV(1992)+JVS(9327)*UV(2218)+JVS(17331)*UV(3667)+JVS(19926)& - &*UV(3986)+JVS(46625)*UV(5252)+JVS(48856)*UV(5253)+JVS(51681)*UV(5255)+JVS(53386)*UV(5256) - JTUV(3668) = JVS(3053)*UV(767)+JVS(4900)*UV(1225)+JVS(8502)*UV(2034)+JVS(8509)*UV(2035)+JVS(17339)*UV(3668)+JVS(24790)& - &*UV(4493)+JVS(46626)*UV(5252)+JVS(48857)*UV(5253)+JVS(51682)*UV(5255)+JVS(53387)*UV(5256) - JTUV(3669) = JVS(1008)*UV(233)+JVS(3057)*UV(768)+JVS(4159)*UV(1040)+JVS(8760)*UV(2089)+JVS(17346)*UV(3669)+JVS(46627)& - &*UV(5252)+JVS(48858)*UV(5253)+JVS(51683)*UV(5255)+JVS(53388)*UV(5256) - JTUV(3670) = JVS(1024)*UV(238)+JVS(5411)*UV(1352)+JVS(8194)*UV(1971)+JVS(13744)*UV(3102)+JVS(17352)*UV(3670)& - &+JVS(31840)*UV(5049)+JVS(46628)*UV(5252)+JVS(48859)*UV(5253)+JVS(51684)*UV(5255)+JVS(53389)*UV(5256) - JTUV(3671) = JVS(2226)*UV(573)+JVS(8663)*UV(2068)+JVS(14208)*UV(3188)+JVS(17360)*UV(3671)+JVS(46629)*UV(5252)& - &+JVS(48860)*UV(5253)+JVS(51685)*UV(5255)+JVS(53390)*UV(5256) - JTUV(3672) = JVS(17367)*UV(3672)+JVS(26940)*UV(4693)+JVS(37473)*UV(5222)+JVS(43505)*UV(5250)+JVS(45662)*UV(5251)& - &+JVS(48861)*UV(5253)+JVS(51686)*UV(5255) - JTUV(3673) = JVS(17375)*UV(3673)+JVS(25945)*UV(4602)+JVS(26135)*UV(4620)+JVS(33251)*UV(5125)+JVS(43506)*UV(5250)& - &+JVS(45663)*UV(5251)+JVS(51687)*UV(5255) - JTUV(3674) = JVS(360)*UV(91)+JVS(5131)*UV(1282)+JVS(17383)*UV(3674)+JVS(46630)*UV(5252)+JVS(48862)*UV(5253)+JVS(51688)& - &*UV(5255)+JVS(53391)*UV(5256) - JTUV(3675) = JVS(449)*UV(116)+JVS(1148)*UV(273)+JVS(1313)*UV(318)+JVS(2024)*UV(521)+JVS(17390)*UV(3675)+JVS(46631)& - &*UV(5252)+JVS(48863)*UV(5253)+JVS(51689)*UV(5255)+JVS(53392)*UV(5256) - JTUV(3676) = JVS(7100)*UV(1743)+JVS(9187)*UV(2187)+JVS(10022)*UV(2375)+JVS(11678)*UV(2716)+JVS(17398)*UV(3676)& - &+JVS(22117)*UV(4231)+JVS(46632)*UV(5252)+JVS(48864)*UV(5253)+JVS(51690)*UV(5255)+JVS(53393)*UV(5256) - JTUV(3677) = JVS(2971)*UV(747)+JVS(7634)*UV(1850)+JVS(17405)*UV(3677)+JVS(46633)*UV(5252)+JVS(48865)*UV(5253)& - &+JVS(51691)*UV(5255)+JVS(53394)*UV(5256) - JTUV(3678) = JVS(156)*UV(35)+JVS(4108)*UV(1028)+JVS(17413)*UV(3678)+JVS(46634)*UV(5252)+JVS(48866)*UV(5253)+JVS(51692)& - &*UV(5255)+JVS(53395)*UV(5256) - JTUV(3679) = JVS(2999)*UV(753)+JVS(8235)*UV(1979)+JVS(17421)*UV(3679)+JVS(46635)*UV(5252)+JVS(48867)*UV(5253)& - &+JVS(51693)*UV(5255)+JVS(53396)*UV(5256) - JTUV(3680) = JVS(3185)*UV(798)+JVS(10085)*UV(2389)+JVS(17429)*UV(3680)+JVS(46636)*UV(5252)+JVS(48868)*UV(5253)& - &+JVS(51694)*UV(5255)+JVS(53397)*UV(5256) - JTUV(3681) = JVS(17437)*UV(3681)+JVS(21537)*UV(4175)+JVS(24281)*UV(4445)+JVS(40058)*UV(5244)+JVS(43514)*UV(5250)& - &+JVS(45664)*UV(5251)+JVS(51695)*UV(5255) - JTUV(3682) = JVS(17444)*UV(3682)+JVS(22197)*UV(4239)+JVS(36057)*UV(5195)+JVS(38824)*UV(5232)+JVS(43515)*UV(5250)& - &+JVS(51696)*UV(5255) - JTUV(3683) = JVS(17454)*UV(3683)+JVS(30016)*UV(4939)+JVS(34595)*UV(5164)+JVS(43516)*UV(5250)+JVS(45665)*UV(5251)& - &+JVS(51697)*UV(5255) - JTUV(3684) = JVS(2757)*UV(700)+JVS(17462)*UV(3684)+JVS(24270)*UV(4444)+JVS(36386)*UV(5201)+JVS(43517)*UV(5250)& - &+JVS(53398)*UV(5256)+JVS(54857)*UV(5258) - JTUV(3685) = JVS(3257)*UV(816)+JVS(8559)*UV(2046)+JVS(17468)*UV(3685)+JVS(46637)*UV(5252)+JVS(48869)*UV(5253)& - &+JVS(51699)*UV(5255)+JVS(53399)*UV(5256) - JTUV(3686) = JVS(727)*UV(174)+JVS(1090)*UV(257)+JVS(4474)*UV(1119)+JVS(6209)*UV(1550)+JVS(6213)*UV(1551)+JVS(17476)& - &*UV(3686)+JVS(46638)*UV(5252)+JVS(48870)*UV(5253)+JVS(51700)*UV(5255)+JVS(53400)*UV(5256) - JTUV(3687) = JVS(2135)*UV(550)+JVS(9536)*UV(2267)+JVS(17483)*UV(3687)+JVS(46639)*UV(5252)+JVS(48871)*UV(5253)& - &+JVS(51701)*UV(5255)+JVS(53401)*UV(5256) - JTUV(3688) = JVS(975)*UV(223)+JVS(2877)*UV(727)+JVS(5532)*UV(1382)+JVS(9255)*UV(2202)+JVS(17493)*UV(3688)+JVS(19595)& - &*UV(3946)+JVS(46640)*UV(5252)+JVS(48872)*UV(5253)+JVS(51702)*UV(5255)+JVS(53402)*UV(5256) - JTUV(3689) = JVS(17503)*UV(3689)+JVS(32371)*UV(5081)+JVS(33213)*UV(5124)+JVS(35588)*UV(5190)+JVS(36280)*UV(5200)& - &+JVS(43522)*UV(5250)+JVS(45667)*UV(5251) - JTUV(3690) = JVS(1226)*UV(295)+JVS(5399)*UV(1349)+JVS(8627)*UV(2060)+JVS(9272)*UV(2206)+JVS(17512)*UV(3690)+JVS(21580)& - &*UV(4179)+JVS(46641)*UV(5252)+JVS(48873)*UV(5253)+JVS(51703)*UV(5255)+JVS(53403)*UV(5256) - JTUV(3691) = JVS(2034)*UV(524)+JVS(5552)*UV(1387)+JVS(8483)*UV(2031)+JVS(10077)*UV(2387)+JVS(17521)*UV(3691)& - &+JVS(21444)*UV(4164)+JVS(46642)*UV(5252)+JVS(48874)*UV(5253)+JVS(51704)*UV(5255)+JVS(53404)*UV(5256) - JTUV(3692) = JVS(2812)*UV(712)+JVS(10364)*UV(2454)+JVS(17528)*UV(3692)+JVS(46643)*UV(5252)+JVS(48875)*UV(5253)& - &+JVS(51705)*UV(5255)+JVS(53405)*UV(5256) - JTUV(3693) = JVS(11056)*UV(2592)+JVS(17535)*UV(3693)+JVS(36985)*UV(5210)+JVS(43526)*UV(5250)+JVS(45668)*UV(5251)& - &+JVS(51706)*UV(5255) - JTUV(3694) = JVS(174)*UV(40)+JVS(695)*UV(169)+JVS(3736)*UV(935)+JVS(17545)*UV(3694)+JVS(46644)*UV(5252)+JVS(48876)& - &*UV(5253)+JVS(51707)*UV(5255)+JVS(53406)*UV(5256) - JTUV(3695) = JVS(244)*UV(58)+JVS(5776)*UV(1443)+JVS(6456)*UV(1606)+JVS(17552)*UV(3695)+JVS(46645)*UV(5252)+JVS(48877)& - &*UV(5253)+JVS(51708)*UV(5255)+JVS(53407)*UV(5256) - JTUV(3696) = JVS(1899)*UV(485)+JVS(2421)*UV(620)+JVS(3641)*UV(911)+JVS(7686)*UV(1861)+JVS(17559)*UV(3696)+JVS(46646)& - &*UV(5252)+JVS(48878)*UV(5253)+JVS(51709)*UV(5255)+JVS(53408)*UV(5256) - JTUV(3697) = JVS(465)*UV(120)+JVS(1243)*UV(299)+JVS(1585)*UV(397)+JVS(1588)*UV(398)+JVS(17566)*UV(3697)+JVS(46647)& - &*UV(5252)+JVS(48879)*UV(5253)+JVS(51710)*UV(5255)+JVS(53409)*UV(5256) - JTUV(3698) = JVS(751)*UV(178)+JVS(1291)*UV(313)+JVS(3482)*UV(872)+JVS(8200)*UV(1972)+JVS(12002)*UV(2773)+JVS(17574)& - &*UV(3698)+JVS(46648)*UV(5252)+JVS(48880)*UV(5253)+JVS(51711)*UV(5255)+JVS(53410)*UV(5256) - JTUV(3699) = JVS(87)*UV(14)+JVS(1497)*UV(372)+JVS(1798)*UV(455)+JVS(2013)*UV(518)+JVS(17581)*UV(3699)+JVS(46649)& - &*UV(5252)+JVS(48881)*UV(5253)+JVS(51712)*UV(5255)+JVS(53411)*UV(5256) - JTUV(3700) = JVS(17588)*UV(3700)+JVS(35493)*UV(5188)+JVS(37756)*UV(5225)+JVS(38384)*UV(5231)+JVS(39250)*UV(5234)& - &+JVS(48882)*UV(5253)+JVS(51713)*UV(5255) - JTUV(3701) = JVS(2088)*UV(538)+JVS(17595)*UV(3701)+JVS(24492)*UV(4466)+JVS(36387)*UV(5201)+JVS(43533)*UV(5250)& - &+JVS(53412)*UV(5256)+JVS(54858)*UV(5258) - JTUV(3702) = JVS(2431)*UV(623)+JVS(14596)*UV(3262)+JVS(15179)*UV(3366)+JVS(17599)*UV(3702)+JVS(33745)*UV(5141)& - &+JVS(35224)*UV(5183)+JVS(40059)*UV(5244)+JVS(43534)*UV(5250)+JVS(45670)*UV(5251)+JVS(51715)*UV(5255) - JTUV(3703) = JVS(689)*UV(168)+JVS(1875)*UV(478)+JVS(4278)*UV(1070)+JVS(8641)*UV(2063)+JVS(14643)*UV(3270)+JVS(17605)& - &*UV(3703)+JVS(46650)*UV(5252)+JVS(48883)*UV(5253)+JVS(51716)*UV(5255)+JVS(53413)*UV(5256) - JTUV(3704) = JVS(186)*UV(43)+JVS(6143)*UV(1534)+JVS(17613)*UV(3704)+JVS(46651)*UV(5252)+JVS(48884)*UV(5253)+JVS(51717)& - &*UV(5255)+JVS(53414)*UV(5256) - JTUV(3705) = JVS(177)*UV(41)+JVS(4076)*UV(1020)+JVS(6948)*UV(1713)+JVS(17620)*UV(3705)+JVS(46652)*UV(5252)+JVS(48885)& - &*UV(5253)+JVS(51718)*UV(5255)+JVS(53415)*UV(5256) - JTUV(3706) = JVS(483)*UV(125)+JVS(1958)*UV(502)+JVS(4354)*UV(1089)+JVS(6877)*UV(1696)+JVS(17628)*UV(3706)+JVS(46653)& - &*UV(5252)+JVS(48886)*UV(5253)+JVS(51719)*UV(5255)+JVS(53416)*UV(5256) - JTUV(3707) = JVS(15828)*UV(3464)+JVS(17634)*UV(3707)+JVS(21127)*UV(4125)+JVS(24006)*UV(4420)+JVS(37476)*UV(5222)& - &+JVS(38385)*UV(5231)+JVS(43539)*UV(5250)+JVS(45671)*UV(5251)+JVS(51720)*UV(5255) - JTUV(3708) = JVS(7514)*UV(1825)+JVS(17640)*UV(3708)+JVS(36130)*UV(5197)+JVS(36211)*UV(5199)+JVS(43540)*UV(5250) - JTUV(3709) = JVS(17647)*UV(3709)+JVS(21538)*UV(4175)+JVS(27367)*UV(4731)+JVS(40062)*UV(5244)+JVS(43541)*UV(5250)& - &+JVS(45673)*UV(5251)+JVS(51721)*UV(5255) - JTUV(3710) = JVS(282)*UV(69)+JVS(1450)*UV(359)+JVS(1856)*UV(472)+JVS(1979)*UV(508)+JVS(17657)*UV(3710)+JVS(46654)& - &*UV(5252)+JVS(48887)*UV(5253)+JVS(51722)*UV(5255)+JVS(53417)*UV(5256) - JTUV(3711) = JVS(384)*UV(97)+JVS(1325)*UV(322)+JVS(1330)*UV(323)+JVS(1333)*UV(324)+JVS(17664)*UV(3711)+JVS(46655)& - &*UV(5252)+JVS(48888)*UV(5253)+JVS(51723)*UV(5255)+JVS(53418)*UV(5256) - JTUV(3712) = JVS(10443)*UV(2471)+JVS(17671)*UV(3712)+JVS(39039)*UV(5233)+JVS(45674)*UV(5251)+JVS(51724)*UV(5255) - JTUV(3713) = JVS(4210)*UV(1053)+JVS(15406)*UV(3396)+JVS(17679)*UV(3713)+JVS(46656)*UV(5252)+JVS(48889)*UV(5253)& - &+JVS(51725)*UV(5255)+JVS(53419)*UV(5256) - JTUV(3714) = JVS(149)*UV(33)+JVS(329)*UV(82)+JVS(3848)*UV(963)+JVS(17687)*UV(3714)+JVS(46657)*UV(5252)+JVS(48890)& - &*UV(5253)+JVS(51726)*UV(5255)+JVS(53420)*UV(5256) - JTUV(3715) = JVS(3072)*UV(772)+JVS(5059)*UV(1264)+JVS(8489)*UV(2032)+JVS(8496)*UV(2033)+JVS(17695)*UV(3715)+JVS(32230)& - &*UV(5072)+JVS(46658)*UV(5252)+JVS(48891)*UV(5253)+JVS(51727)*UV(5255)+JVS(53421)*UV(5256) - JTUV(3716) = JVS(17704)*UV(3716)+JVS(29838)*UV(4931)+JVS(33918)*UV(5145)+JVS(38825)*UV(5232)+JVS(43548)*UV(5250)& - &+JVS(51728)*UV(5255) - JTUV(3717) = JVS(321)*UV(80)+JVS(3964)*UV(992)+JVS(17713)*UV(3717)+JVS(46659)*UV(5252)+JVS(48892)*UV(5253)+JVS(51729)& - &*UV(5255)+JVS(53422)*UV(5256) - JTUV(3718) = JVS(1725)*UV(437)+JVS(3338)*UV(836)+JVS(8475)*UV(2030)+JVS(9195)*UV(2189)+JVS(17722)*UV(3718)+JVS(22812)& - &*UV(4300)+JVS(46660)*UV(5252)+JVS(48893)*UV(5253)+JVS(51730)*UV(5255)+JVS(53423)*UV(5256) - JTUV(3719) = JVS(305)*UV(76)+JVS(3952)*UV(989)+JVS(17730)*UV(3719)+JVS(46661)*UV(5252)+JVS(48894)*UV(5253)+JVS(51731)& - &*UV(5255)+JVS(53424)*UV(5256) - JTUV(3720) = JVS(881)*UV(201)+JVS(1260)*UV(303)+JVS(2182)*UV(561)+JVS(2185)*UV(562)+JVS(5139)*UV(1284)+JVS(17739)& - &*UV(3720)+JVS(46662)*UV(5252)+JVS(48895)*UV(5253)+JVS(51732)*UV(5255)+JVS(53425)*UV(5256) - JTUV(3721) = JVS(146)*UV(32)+JVS(4684)*UV(1171)+JVS(7153)*UV(1754)+JVS(14209)*UV(3188)+JVS(17747)*UV(3721)+JVS(46663)& - &*UV(5252)+JVS(48896)*UV(5253)+JVS(51733)*UV(5255)+JVS(53426)*UV(5256) - JTUV(3722) = JVS(825)*UV(191)+JVS(1633)*UV(410)+JVS(5656)*UV(1413)+JVS(6656)*UV(1648)+JVS(6660)*UV(1649)+JVS(17755)& - &*UV(3722)+JVS(46664)*UV(5252)+JVS(48897)*UV(5253)+JVS(51734)*UV(5255)+JVS(53427)*UV(5256) - JTUV(3723) = JVS(10518)*UV(2488)+JVS(17762)*UV(3723)+JVS(33633)*UV(5139)+JVS(33779)*UV(5142)+JVS(40063)*UV(5244) - JTUV(3724) = JVS(2905)*UV(733)+JVS(10343)*UV(2450)+JVS(17772)*UV(3724)+JVS(46665)*UV(5252)+JVS(48898)*UV(5253)& - &+JVS(51735)*UV(5255)+JVS(53428)*UV(5256) - JTUV(3725) = JVS(200)*UV(46)+JVS(5010)*UV(1252)+JVS(6803)*UV(1680)+JVS(17779)*UV(3725)+JVS(46666)*UV(5252)+JVS(48899)& - &*UV(5253)+JVS(51736)*UV(5255)+JVS(53429)*UV(5256) - JTUV(3726) = JVS(17789)*UV(3726)+JVS(32686)*UV(5098)+JVS(43558)*UV(5250)+JVS(45675)*UV(5251)+JVS(51737)*UV(5255) - JTUV(3727) = JVS(1288)*UV(312)+JVS(3161)*UV(792)+JVS(4533)*UV(1133)+JVS(7853)*UV(1898)+JVS(17798)*UV(3727)+JVS(46667)& - &*UV(5252)+JVS(48900)*UV(5253)+JVS(51738)*UV(5255)+JVS(53430)*UV(5256) - JTUV(3728) = JVS(4506)*UV(1127)+JVS(15490)*UV(3407)+JVS(17805)*UV(3728)+JVS(46668)*UV(5252)+JVS(48901)*UV(5253)& - &+JVS(51739)*UV(5255)+JVS(53431)*UV(5256) - JTUV(3729) = JVS(17813)*UV(3729)+JVS(23111)*UV(4329)+JVS(36212)*UV(5199)+JVS(40064)*UV(5244)+JVS(43561)*UV(5250)& - &+JVS(45676)*UV(5251)+JVS(51740)*UV(5255) - JTUV(3730) = JVS(508)*UV(132)+JVS(4124)*UV(1032)+JVS(17821)*UV(3730)+JVS(46669)*UV(5252)+JVS(48902)*UV(5253)& - &+JVS(51741)*UV(5255)+JVS(53432)*UV(5256) - JTUV(3731) = JVS(2037)*UV(525)+JVS(5219)*UV(1304)+JVS(8903)*UV(2122)+JVS(9540)*UV(2268)+JVS(17830)*UV(3731)+JVS(21102)& - &*UV(4122)+JVS(46670)*UV(5252)+JVS(48903)*UV(5253)+JVS(51742)*UV(5255)+JVS(53433)*UV(5256) - JTUV(3732) = JVS(17838)*UV(3732)+JVS(20922)*UV(4102)+JVS(25946)*UV(4602)+JVS(35225)*UV(5183)+JVS(43564)*UV(5250)& - &+JVS(45677)*UV(5251)+JVS(51743)*UV(5255) - JTUV(3733) = JVS(739)*UV(176)+JVS(1577)*UV(395)+JVS(2561)*UV(652)+JVS(2564)*UV(653)+JVS(3354)*UV(840)+JVS(17844)& - &*UV(3733)+JVS(46671)*UV(5252)+JVS(48904)*UV(5253)+JVS(51744)*UV(5255)+JVS(53434)*UV(5256) - JTUV(3734) = JVS(17853)*UV(3734)+JVS(33465)*UV(5134)+JVS(38387)*UV(5231)+JVS(38826)*UV(5232)+JVS(40065)*UV(5244)& - &+JVS(43566)*UV(5250) - JTUV(3735) = JVS(17862)*UV(3735)+JVS(26102)*UV(4618)+JVS(35635)*UV(5191)+JVS(40066)*UV(5244)+JVS(43567)*UV(5250)& - &+JVS(51745)*UV(5255) - JTUV(3736) = JVS(12606)*UV(2895)+JVS(17872)*UV(3736)+JVS(39545)*UV(5239)+JVS(43568)*UV(5250) - JTUV(3737) = JVS(12607)*UV(2895)+JVS(17873)*UV(3736)+JVS(17880)*UV(3737)+JVS(39546)*UV(5239)+JVS(51747)*UV(5255) - JTUV(3738) = JVS(2951)*UV(743)+JVS(9661)*UV(2294)+JVS(17888)*UV(3738)+JVS(46672)*UV(5252)+JVS(48905)*UV(5253)& - &+JVS(51748)*UV(5255)+JVS(53435)*UV(5256) - JTUV(3739) = JVS(2595)*UV(660)+JVS(8592)*UV(2053)+JVS(17895)*UV(3739)+JVS(46673)*UV(5252)+JVS(48906)*UV(5253)& - &+JVS(51749)*UV(5255)+JVS(53436)*UV(5256) - JTUV(3740) = JVS(500)*UV(130)+JVS(939)*UV(212)+JVS(1918)*UV(490)+JVS(1921)*UV(491)+JVS(17902)*UV(3740)+JVS(46674)& - &*UV(5252)+JVS(48907)*UV(5253)+JVS(51750)*UV(5255)+JVS(53437)*UV(5256) - JTUV(3741) = JVS(1248)*UV(300)+JVS(1793)*UV(454)+JVS(5299)*UV(1324)+JVS(17913)*UV(3741)+JVS(46675)*UV(5252)+JVS(48908)& - &*UV(5253)+JVS(51751)*UV(5255)+JVS(53438)*UV(5256) - JTUV(3742) = JVS(17922)*UV(3742)+JVS(24732)*UV(4489)+JVS(31481)*UV(5031)+JVS(40067)*UV(5244)+JVS(43574)*UV(5250)& - &+JVS(45680)*UV(5251)+JVS(51752)*UV(5255) - JTUV(3743) = JVS(621)*UV(157)+JVS(1869)*UV(476)+JVS(5359)*UV(1339)+JVS(7789)*UV(1883)+JVS(13083)*UV(2979)+JVS(17930)& - &*UV(3743)+JVS(46676)*UV(5252)+JVS(48909)*UV(5253)+JVS(51753)*UV(5255)+JVS(53439)*UV(5256) - JTUV(3744) = JVS(13684)*UV(3090)+JVS(17937)*UV(3744)+JVS(37105)*UV(5213)+JVS(48910)*UV(5253)+JVS(51754)*UV(5255) - JTUV(3745) = JVS(181)*UV(42)+JVS(4170)*UV(1043)+JVS(17946)*UV(3745)+JVS(46677)*UV(5252)+JVS(48911)*UV(5253)+JVS(51755)& - &*UV(5255)+JVS(53440)*UV(5256) - JTUV(3746) = JVS(292)*UV(72)+JVS(899)*UV(204)+JVS(5343)*UV(1335)+JVS(17954)*UV(3746)+JVS(46678)*UV(5252)+JVS(48912)& - &*UV(5253)+JVS(51756)*UV(5255)+JVS(53441)*UV(5256) - JTUV(3747) = JVS(17966)*UV(3747)+JVS(29412)*UV(4903)+JVS(30462)*UV(4967)+JVS(33989)*UV(5148)+JVS(40068)*UV(5244)& - &+JVS(43579)*UV(5250) - JTUV(3748) = JVS(17979)*UV(3748)+JVS(26565)*UV(4661)+JVS(36388)*UV(5201)+JVS(43580)*UV(5250)+JVS(45681)*UV(5251)& - &+JVS(51757)*UV(5255)+JVS(53442)*UV(5256) - JTUV(3749) = JVS(1844)*UV(469)+JVS(4672)*UV(1168)+JVS(9613)*UV(2284)+JVS(9684)*UV(2299)+JVS(17988)*UV(3749)+JVS(19352)& - &*UV(3917)+JVS(46679)*UV(5252)+JVS(48913)*UV(5253)+JVS(51758)*UV(5255)+JVS(53443)*UV(5256) - JTUV(3750) = JVS(2043)*UV(527)+JVS(6119)*UV(1528)+JVS(7431)*UV(1811)+JVS(7438)*UV(1812)+JVS(17996)*UV(3750)+JVS(32468)& - &*UV(5086)+JVS(46680)*UV(5252)+JVS(48914)*UV(5253)+JVS(51759)*UV(5255)+JVS(53444)*UV(5256) - JTUV(3751) = JVS(1841)*UV(468)+JVS(5608)*UV(1401)+JVS(7273)*UV(1780)+JVS(7279)*UV(1781)+JVS(18005)*UV(3751)+JVS(20934)& - &*UV(4103)+JVS(46681)*UV(5252)+JVS(48915)*UV(5253)+JVS(51760)*UV(5255)+JVS(53445)*UV(5256) - JTUV(3752) = JVS(394)*UV(100)+JVS(3772)*UV(944)+JVS(6776)*UV(1675)+JVS(18012)*UV(3752)+JVS(46682)*UV(5252)+JVS(48916)& - &*UV(5253)+JVS(51761)*UV(5255)+JVS(53446)*UV(5256) - JTUV(3753) = JVS(95)*UV(16)+JVS(412)*UV(106)+JVS(5652)*UV(1412)+JVS(18020)*UV(3753)+JVS(46683)*UV(5252)+JVS(48917)& - &*UV(5253)+JVS(51762)*UV(5255)+JVS(53447)*UV(5256) - JTUV(3754) = JVS(18029)*UV(3754)+JVS(29776)*UV(4927)+JVS(31582)*UV(5037)+JVS(36939)*UV(5209)+JVS(37477)*UV(5222)& - &+JVS(39040)*UV(5233)+JVS(51763)*UV(5255) - JTUV(3755) = JVS(2251)*UV(579)+JVS(18038)*UV(3755)+JVS(38388)*UV(5231)+JVS(39778)*UV(5243)+JVS(43586)*UV(5250)& - &+JVS(51764)*UV(5255) - JTUV(3756) = JVS(18048)*UV(3756)+JVS(32959)*UV(5110)+JVS(34596)*UV(5164)+JVS(40069)*UV(5244)+JVS(43587)*UV(5250)& - &+JVS(51765)*UV(5255) - JTUV(3757) = JVS(16024)*UV(3498)+JVS(18057)*UV(3757)+JVS(38044)*UV(5230)+JVS(40070)*UV(5244)+JVS(43588)*UV(5250) - JTUV(3758) = JVS(1001)*UV(231)+JVS(6982)*UV(1720)+JVS(7869)*UV(1902)+JVS(8925)*UV(2127)+JVS(18066)*UV(3758)+JVS(25352)& - &*UV(4540)+JVS(46684)*UV(5252)+JVS(48918)*UV(5253)+JVS(51766)*UV(5255)+JVS(53448)*UV(5256) - JTUV(3759) = JVS(12142)*UV(2803)+JVS(18077)*UV(3759)+JVS(31884)*UV(5053)+JVS(38827)*UV(5232)+JVS(43590)*UV(5250)& - &+JVS(51767)*UV(5255) - JTUV(3760) = JVS(4656)*UV(1164)+JVS(18086)*UV(3760)+JVS(21694)*UV(4190)+JVS(46685)*UV(5252)+JVS(48919)*UV(5253)& - &+JVS(51768)*UV(5255)+JVS(53449)*UV(5256) - JTUV(3761) = JVS(210)*UV(49)+JVS(4812)*UV(1203)+JVS(18095)*UV(3761)+JVS(46686)*UV(5252)+JVS(48920)*UV(5253)+JVS(51769)& - &*UV(5255)+JVS(53450)*UV(5256) - JTUV(3762) = JVS(1441)*UV(356)+JVS(2830)*UV(716)+JVS(4927)*UV(1231)+JVS(10325)*UV(2446)+JVS(18102)*UV(3762)+JVS(46687)& - &*UV(5252)+JVS(48921)*UV(5253)+JVS(51770)*UV(5255)+JVS(53451)*UV(5256) - JTUV(3763) = JVS(18111)*UV(3763)+JVS(25819)*UV(4589)+JVS(34085)*UV(5152)+JVS(38389)*UV(5231)+JVS(43594)*UV(5250)& - &+JVS(45684)*UV(5251)+JVS(51771)*UV(5255) - JTUV(3764) = JVS(819)*UV(190)+JVS(1122)*UV(266)+JVS(4596)*UV(1149)+JVS(6382)*UV(1590)+JVS(6386)*UV(1591)+JVS(18119)& - &*UV(3764)+JVS(46688)*UV(5252)+JVS(48922)*UV(5253)+JVS(51772)*UV(5255)+JVS(53452)*UV(5256) - JTUV(3765) = JVS(10519)*UV(2488)+JVS(18126)*UV(3765)+JVS(37478)*UV(5222)+JVS(37877)*UV(5228)+JVS(40071)*UV(5244) - JTUV(3766) = JVS(271)*UV(66)+JVS(5644)*UV(1410)+JVS(18135)*UV(3766)+JVS(46689)*UV(5252)+JVS(48923)*UV(5253)+JVS(51773)& - &*UV(5255)+JVS(53453)*UV(5256) - JTUV(3767) = JVS(14913)*UV(3328)+JVS(18142)*UV(3767)+JVS(35844)*UV(5193)+JVS(48924)*UV(5253)+JVS(51774)*UV(5255) - JTUV(3768) = JVS(536)*UV(140)+JVS(5500)*UV(1374)+JVS(18150)*UV(3768)+JVS(46690)*UV(5252)+JVS(48925)*UV(5253)& - &+JVS(51775)*UV(5255)+JVS(53454)*UV(5256) - JTUV(3769) = JVS(266)*UV(65)+JVS(403)*UV(103)+JVS(5995)*UV(1497)+JVS(18158)*UV(3769)+JVS(46691)*UV(5252)+JVS(48926)& - &*UV(5253)+JVS(51776)*UV(5255)+JVS(53455)*UV(5256) - JTUV(3770) = JVS(416)*UV(107)+JVS(1125)*UV(267)+JVS(1502)*UV(373)+JVS(1812)*UV(459)+JVS(18165)*UV(3770)+JVS(46692)& - &*UV(5252)+JVS(48927)*UV(5253)+JVS(51777)*UV(5255)+JVS(53456)*UV(5256) - JTUV(3771) = JVS(240)*UV(57)+JVS(356)*UV(90)+JVS(4246)*UV(1062)+JVS(18173)*UV(3771)+JVS(46693)*UV(5252)+JVS(48928)& - &*UV(5253)+JVS(51778)*UV(5255)+JVS(53457)*UV(5256) - JTUV(3772) = JVS(5556)*UV(1388)+JVS(15604)*UV(3423)+JVS(18180)*UV(3772)+JVS(46694)*UV(5252)+JVS(48929)*UV(5253)& - &+JVS(51779)*UV(5255)+JVS(53458)*UV(5256) - JTUV(3773) = JVS(18192)*UV(3773)+JVS(26870)*UV(4689)+JVS(36389)*UV(5201)+JVS(43604)*UV(5250)+JVS(45685)*UV(5251)& - &+JVS(51780)*UV(5255)+JVS(53459)*UV(5256) - JTUV(3774) = JVS(4490)*UV(1123)+JVS(15288)*UV(3380)+JVS(18199)*UV(3774)+JVS(46695)*UV(5252)+JVS(48930)*UV(5253)& - &+JVS(51781)*UV(5255)+JVS(53460)*UV(5256) - JTUV(3775) = JVS(18211)*UV(3775)+JVS(26860)*UV(4688)+JVS(36390)*UV(5201)+JVS(43606)*UV(5250)+JVS(45686)*UV(5251)& - &+JVS(51782)*UV(5255)+JVS(53461)*UV(5256) - JTUV(3776) = JVS(1752)*UV(444)+JVS(5367)*UV(1341)+JVS(7337)*UV(1792)+JVS(7347)*UV(1794)+JVS(18221)*UV(3776)+JVS(30411)& - &*UV(4964)+JVS(46696)*UV(5252)+JVS(48931)*UV(5253)+JVS(51783)*UV(5255)+JVS(53462)*UV(5256) - JTUV(3777) = JVS(18230)*UV(3777)+JVS(19252)*UV(3906)+JVS(25685)*UV(4573)+JVS(34032)*UV(5150)+JVS(35226)*UV(5183)& - &+JVS(43608)*UV(5250)+JVS(51784)*UV(5255) - JTUV(3778) = JVS(1686)*UV(425)+JVS(6857)*UV(1692)+JVS(9165)*UV(2182)+JVS(9396)*UV(2233)+JVS(18238)*UV(3778)+JVS(21005)& - &*UV(4110)+JVS(46697)*UV(5252)+JVS(48932)*UV(5253)+JVS(51785)*UV(5255)+JVS(53463)*UV(5256) - JTUV(3779) = JVS(18246)*UV(3779)+JVS(27408)*UV(4736)+JVS(33780)*UV(5142)+JVS(33919)*UV(5145)+JVS(35636)*UV(5191)& - &+JVS(36823)*UV(5203)+JVS(51786)*UV(5255) - JTUV(3780) = JVS(3213)*UV(805)+JVS(18256)*UV(3780)+JVS(32687)*UV(5098)+JVS(38828)*UV(5232)+JVS(43610)*UV(5250)& - &+JVS(51787)*UV(5255) - JTUV(3781) = JVS(215)*UV(50)+JVS(5668)*UV(1416)+JVS(18264)*UV(3781)+JVS(46698)*UV(5252)+JVS(48933)*UV(5253)+JVS(51788)& - &*UV(5255)+JVS(53464)*UV(5256) - JTUV(3782) = JVS(313)*UV(78)+JVS(369)*UV(93)+JVS(5744)*UV(1435)+JVS(18272)*UV(3782)+JVS(46699)*UV(5252)+JVS(48934)& - &*UV(5253)+JVS(51789)*UV(5255)+JVS(53465)*UV(5256) - JTUV(3783) = JVS(18281)*UV(3783)+JVS(24733)*UV(4489)+JVS(25947)*UV(4602)+JVS(40073)*UV(5244)+JVS(43613)*UV(5250)& - &+JVS(45688)*UV(5251)+JVS(51790)*UV(5255) - JTUV(3784) = JVS(196)*UV(45)+JVS(4808)*UV(1202)+JVS(18290)*UV(3784)+JVS(46700)*UV(5252)+JVS(48935)*UV(5253)+JVS(51791)& - &*UV(5255)+JVS(53466)*UV(5256) - JTUV(3785) = JVS(454)*UV(117)+JVS(4298)*UV(1075)+JVS(18298)*UV(3785)+JVS(46701)*UV(5252)+JVS(48936)*UV(5253)& - &+JVS(51792)*UV(5255)+JVS(53467)*UV(5256) - JTUV(3786) = JVS(372)*UV(94)+JVS(4092)*UV(1024)+JVS(18305)*UV(3786)+JVS(25981)*UV(4603)+JVS(46702)*UV(5252)+JVS(48937)& - &*UV(5253)+JVS(51793)*UV(5255)+JVS(53468)*UV(5256) - JTUV(3787) = JVS(18314)*UV(3787)+JVS(25948)*UV(4602)+JVS(27503)*UV(4744)+JVS(32894)*UV(5106)+JVS(43617)*UV(5250)& - &+JVS(45689)*UV(5251)+JVS(51794)*UV(5255) - JTUV(3788) = JVS(171)*UV(39)+JVS(6127)*UV(1530)+JVS(7109)*UV(1745)+JVS(18321)*UV(3788)+JVS(46703)*UV(5252)+JVS(48938)& - &*UV(5253)+JVS(51795)*UV(5255)+JVS(53469)*UV(5256) - JTUV(3789) = JVS(584)*UV(151)+JVS(1630)*UV(409)+JVS(4012)*UV(1004)+JVS(9052)*UV(2157)+JVS(14328)*UV(3213)+JVS(18329)& - &*UV(3789)+JVS(46704)*UV(5252)+JVS(48939)*UV(5253)+JVS(51796)*UV(5255)+JVS(53470)*UV(5256) - JTUV(3790) = JVS(1707)*UV(432)+JVS(4522)*UV(1131)+JVS(7500)*UV(1822)+JVS(8711)*UV(2078)+JVS(15022)*UV(3343)+JVS(18336)& - &*UV(3790)+JVS(46705)*UV(5252)+JVS(48940)*UV(5253)+JVS(51797)*UV(5255)+JVS(53471)*UV(5256) - JTUV(3791) = JVS(6232)*UV(1555)+JVS(10579)*UV(2499)+JVS(12078)*UV(2789)+JVS(18343)*UV(3791)+JVS(46706)*UV(5252)& - &+JVS(48941)*UV(5253)+JVS(51798)*UV(5255)+JVS(53472)*UV(5256) - JTUV(3792) = JVS(18348)*UV(3792)+JVS(25420)*UV(4546)+JVS(30608)*UV(4979)+JVS(34052)*UV(5151)+JVS(36391)*UV(5201)& - &+JVS(43622)*UV(5250)+JVS(45690)*UV(5251)+JVS(51799)*UV(5255)+JVS(53473)*UV(5256) - JTUV(3793) = JVS(18356)*UV(3793)+JVS(20464)*UV(4048)+JVS(25856)*UV(4592)+JVS(48942)*UV(5253)+JVS(54859)*UV(5258) - JTUV(3794) = JVS(1182)*UV(283)+JVS(4152)*UV(1039)+JVS(10210)*UV(2418)+JVS(13867)*UV(3122)+JVS(18366)*UV(3794)& - &+JVS(18373)*UV(3795)+JVS(46707)*UV(5252)+JVS(48943)*UV(5253)+JVS(51800)*UV(5255)+JVS(53474)*UV(5256) - JTUV(3795) = JVS(18374)*UV(3795)+JVS(26451)*UV(4650)+JVS(29839)*UV(4931)+JVS(30214)*UV(4951)+JVS(31980)*UV(5058)& - &+JVS(32160)*UV(5068)+JVS(39042)*UV(5233)+JVS(51801)*UV(5255) - JTUV(3796) = JVS(6738)*UV(1664)+JVS(11940)*UV(2762)+JVS(14880)*UV(3320)+JVS(18381)*UV(3796)+JVS(46708)*UV(5252)& - &+JVS(48944)*UV(5253)+JVS(51802)*UV(5255)+JVS(53475)*UV(5256) - JTUV(3797) = JVS(1763)*UV(446)+JVS(4600)*UV(1150)+JVS(8748)*UV(2087)+JVS(8754)*UV(2088)+JVS(14937)*UV(3331)+JVS(18389)& - &*UV(3797)+JVS(46709)*UV(5252)+JVS(48945)*UV(5253)+JVS(51803)*UV(5255)+JVS(53476)*UV(5256) - JTUV(3798) = JVS(114)*UV(22)+JVS(3438)*UV(861)+JVS(7845)*UV(1896)+JVS(8434)*UV(2021)+JVS(18396)*UV(3798)+JVS(18610)& - &*UV(3826)+JVS(46710)*UV(5252)+JVS(48946)*UV(5253)+JVS(51804)*UV(5255)+JVS(53477)*UV(5256) - JTUV(3799) = JVS(6765)*UV(1672)+JVS(10550)*UV(2493)+JVS(14876)*UV(3319)+JVS(18403)*UV(3799)+JVS(46711)*UV(5252)& - &+JVS(48947)*UV(5253)+JVS(51805)*UV(5255)+JVS(53478)*UV(5256) - JTUV(3800) = JVS(18411)*UV(3800)+JVS(20288)*UV(4029)+JVS(29653)*UV(4918)+JVS(43628)*UV(5250)+JVS(45691)*UV(5251)& - &+JVS(51806)*UV(5255) - JTUV(3801) = JVS(8176)*UV(1967)+JVS(14658)*UV(3273)+JVS(14727)*UV(3286)+JVS(14927)*UV(3330)+JVS(18419)*UV(3801)& - &+JVS(43629)*UV(5250)+JVS(45692)*UV(5251)+JVS(46712)*UV(5252)+JVS(48948)*UV(5253)+JVS(51807)*UV(5255)& - &+JVS(53479)*UV(5256) - JTUV(3802) = JVS(18428)*UV(3802)+JVS(29322)*UV(4896)+JVS(30228)*UV(4952)+JVS(32822)*UV(5103)+JVS(33635)*UV(5139)& - &+JVS(36940)*UV(5209)+JVS(37481)*UV(5222)+JVS(39045)*UV(5233)+JVS(51808)*UV(5255) - JTUV(3803) = JVS(1151)*UV(274)+JVS(3820)*UV(956)+JVS(9430)*UV(2241)+JVS(13751)*UV(3103)+JVS(18434)*UV(3803)+JVS(29918)& - &*UV(4937)+JVS(46713)*UV(5252)+JVS(48949)*UV(5253)+JVS(51809)*UV(5255)+JVS(53480)*UV(5256) - JTUV(3804) = JVS(1722)*UV(436)+JVS(4104)*UV(1027)+JVS(10157)*UV(2406)+JVS(14136)*UV(3174)+JVS(18440)*UV(3804)& - &+JVS(18447)*UV(3805)+JVS(46714)*UV(5252)+JVS(48950)*UV(5253)+JVS(51810)*UV(5255)+JVS(53481)*UV(5256) - JTUV(3805) = JVS(18448)*UV(3805)+JVS(26321)*UV(4637)+JVS(29654)*UV(4918)+JVS(30215)*UV(4951)+JVS(31981)*UV(5058)& - &+JVS(32126)*UV(5066)+JVS(39047)*UV(5233)+JVS(51811)*UV(5255) - JTUV(3806) = JVS(5451)*UV(1362)+JVS(12960)*UV(2959)+JVS(13971)*UV(3141)+JVS(18453)*UV(3806)+JVS(21330)*UV(4151)& - &+JVS(46715)*UV(5252)+JVS(48951)*UV(5253)+JVS(51812)*UV(5255)+JVS(53482)*UV(5256) - JTUV(3807) = JVS(1829)*UV(464)+JVS(5263)*UV(1315)+JVS(9778)*UV(2321)+JVS(9784)*UV(2322)+JVS(15196)*UV(3368)+JVS(18459)& - &*UV(3807)+JVS(46716)*UV(5252)+JVS(48952)*UV(5253)+JVS(51813)*UV(5255)+JVS(53483)*UV(5256) - JTUV(3808) = JVS(6893)*UV(1700)+JVS(10912)*UV(2565)+JVS(11077)*UV(2595)+JVS(18466)*UV(3808)+JVS(46717)*UV(5252)& - &+JVS(48953)*UV(5253)+JVS(51814)*UV(5255)+JVS(53484)*UV(5256) - JTUV(3809) = JVS(18474)*UV(3809)+JVS(37229)*UV(5216)+JVS(43635)*UV(5250)+JVS(45693)*UV(5251)+JVS(51815)*UV(5255) - JTUV(3810) = JVS(2835)*UV(717)+JVS(6968)*UV(1716)+JVS(8955)*UV(2134)+JVS(12629)*UV(2900)+JVS(18485)*UV(3810)& - &+JVS(46718)*UV(5252)+JVS(48954)*UV(5253)+JVS(51816)*UV(5255)+JVS(53485)*UV(5256) - JTUV(3811) = JVS(1695)*UV(428)+JVS(4844)*UV(1211)+JVS(8163)*UV(1964)+JVS(13678)*UV(3089)+JVS(18491)*UV(3811)& - &+JVS(18498)*UV(3812)+JVS(46719)*UV(5252)+JVS(48955)*UV(5253)+JVS(51817)*UV(5255)+JVS(53486)*UV(5256) - JTUV(3812) = JVS(18499)*UV(3812)+JVS(29323)*UV(4896)+JVS(30216)*UV(4951)+JVS(31982)*UV(5058)+JVS(33310)*UV(5126)& - &+JVS(33636)*UV(5139)+JVS(39049)*UV(5233)+JVS(51818)*UV(5255) - JTUV(3813) = JVS(6492)*UV(1613)+JVS(10679)*UV(2520)+JVS(13459)*UV(3050)+JVS(18506)*UV(3813)+JVS(46720)*UV(5252)& - &+JVS(48956)*UV(5253)+JVS(51819)*UV(5255)+JVS(53487)*UV(5256) - JTUV(3814) = JVS(3119)*UV(782)+JVS(6744)*UV(1666)+JVS(8563)*UV(2047)+JVS(13933)*UV(3132)+JVS(18513)*UV(3814)& - &+JVS(46721)*UV(5252)+JVS(48957)*UV(5253)+JVS(51820)*UV(5255)+JVS(53488)*UV(5256) - JTUV(3815) = JVS(6971)*UV(1717)+JVS(11640)*UV(2709)+JVS(13336)*UV(3027)+JVS(18520)*UV(3815)+JVS(46722)*UV(5252)& - &+JVS(48958)*UV(5253)+JVS(51821)*UV(5255)+JVS(53489)*UV(5256) - JTUV(3816) = JVS(18527)*UV(3816)+JVS(20789)*UV(4086)+JVS(29840)*UV(4931)+JVS(43641)*UV(5250)+JVS(45696)*UV(5251)& - &+JVS(51822)*UV(5255) - JTUV(3817) = JVS(325)*UV(81)+JVS(2480)*UV(634)+JVS(4800)*UV(1200)+JVS(4864)*UV(1216)+JVS(18536)*UV(3817)+JVS(18544)& - &*UV(3818)+JVS(46723)*UV(5252)+JVS(48959)*UV(5253)+JVS(51823)*UV(5255)+JVS(53490)*UV(5256) - JTUV(3818) = JVS(18545)*UV(3818)+JVS(28045)*UV(4793)+JVS(29312)*UV(4895)+JVS(32536)*UV(5089)+JVS(33638)*UV(5139)& - &+JVS(33746)*UV(5141)+JVS(37483)*UV(5222)+JVS(51824)*UV(5255) - JTUV(3819) = JVS(1968)*UV(505)+JVS(5083)*UV(1270)+JVS(9838)*UV(2333)+JVS(9844)*UV(2334)+JVS(15527)*UV(3412)+JVS(18551)& - &*UV(3819)+JVS(46724)*UV(5252)+JVS(48960)*UV(5253)+JVS(51825)*UV(5255)+JVS(53491)*UV(5256) - JTUV(3820) = JVS(6202)*UV(1549)+JVS(12156)*UV(2806)+JVS(14884)*UV(3321)+JVS(18558)*UV(3820)+JVS(46725)*UV(5252)& - &+JVS(48961)*UV(5253)+JVS(51826)*UV(5255)+JVS(53492)*UV(5256) - JTUV(3821) = JVS(18569)*UV(3821)+JVS(23097)*UV(4328)+JVS(28094)*UV(4796)+JVS(40074)*UV(5244)+JVS(43645)*UV(5250) - JTUV(3822) = JVS(14782)*UV(3298)+JVS(18581)*UV(3822)+JVS(33122)*UV(5120)+JVS(40075)*UV(5244)+JVS(43646)*UV(5250)& - &+JVS(51827)*UV(5255) - JTUV(3823) = JVS(1457)*UV(361)+JVS(5231)*UV(1307)+JVS(10062)*UV(2383)+JVS(15230)*UV(3372)+JVS(18587)*UV(3823)& - &+JVS(18594)*UV(3824)+JVS(46726)*UV(5252)+JVS(48962)*UV(5253)+JVS(51828)*UV(5255)+JVS(53493)*UV(5256) - JTUV(3824) = JVS(18595)*UV(3824)+JVS(30217)*UV(4951)+JVS(30229)*UV(4952)+JVS(31983)*UV(5058)+JVS(33189)*UV(5123)& - &+JVS(36941)*UV(5209)+JVS(37484)*UV(5222)+JVS(39054)*UV(5233)+JVS(51829)*UV(5255) - JTUV(3825) = JVS(6229)*UV(1554)+JVS(10903)*UV(2563)+JVS(14682)*UV(3279)+JVS(18602)*UV(3825)+JVS(46727)*UV(5252)& - &+JVS(48963)*UV(5253)+JVS(51830)*UV(5255)+JVS(53494)*UV(5256) - JTUV(3826) = JVS(18611)*UV(3826)+JVS(29324)*UV(4896)+JVS(30230)*UV(4952)+JVS(33190)*UV(5123)+JVS(33311)*UV(5126)& - &+JVS(33640)*UV(5139)+JVS(36942)*UV(5209)+JVS(37485)*UV(5222)+JVS(51831)*UV(5255) - JTUV(3827) = JVS(7118)*UV(1747)+JVS(10612)*UV(2506)+JVS(14556)*UV(3253)+JVS(18618)*UV(3827)+JVS(46728)*UV(5252)& - &+JVS(48964)*UV(5253)+JVS(51832)*UV(5255)+JVS(53495)*UV(5256) - JTUV(3828) = JVS(6756)*UV(1669)+JVS(11353)*UV(2649)+JVS(12017)*UV(2776)+JVS(18625)*UV(3828)+JVS(46729)*UV(5252)& - &+JVS(48965)*UV(5253)+JVS(51833)*UV(5255)+JVS(53496)*UV(5256) - JTUV(3829) = JVS(18632)*UV(3829)+JVS(26941)*UV(4693)+JVS(37487)*UV(5222)+JVS(40076)*UV(5244)+JVS(43651)*UV(5250)& - &+JVS(45697)*UV(5251)+JVS(51834)*UV(5255) - JTUV(3830) = JVS(2394)*UV(614)+JVS(18638)*UV(3830)+JVS(25241)*UV(4531)+JVS(36392)*UV(5201)+JVS(43652)*UV(5250)& - &+JVS(53497)*UV(5256)+JVS(54860)*UV(5258) - JTUV(3831) = JVS(2206)*UV(568)+JVS(18644)*UV(3831)+JVS(24376)*UV(4454)+JVS(36393)*UV(5201)+JVS(43653)*UV(5250)& - &+JVS(53498)*UV(5256)+JVS(54861)*UV(5258) - JTUV(3832) = JVS(945)*UV(214)+JVS(13938)*UV(3133)+JVS(18648)*UV(3832)+JVS(26717)*UV(4674)+JVS(29951)*UV(4938)& - &+JVS(37488)*UV(5222)+JVS(40077)*UV(5244)+JVS(43654)*UV(5250)+JVS(45699)*UV(5251)+JVS(51837)*UV(5255)& - &+JVS(54862)*UV(5258) - JTUV(3833) = JVS(18653)*UV(3833)+JVS(22921)*UV(4311)+JVS(25699)*UV(4575)+JVS(25709)*UV(4576)+JVS(25805)*UV(4588)& - &+JVS(26496)*UV(4654)+JVS(36394)*UV(5201)+JVS(43655)*UV(5250)+JVS(45700)*UV(5251)+JVS(51838)*UV(5255)& - &+JVS(53499)*UV(5256)+JVS(54863)*UV(5258) - JTUV(3834) = JVS(18658)*UV(3834)+JVS(25434)*UV(4547)+JVS(25806)*UV(4588)+JVS(27100)*UV(4707)+JVS(28553)*UV(4833)& - &+JVS(29231)*UV(4887)+JVS(36395)*UV(5201)+JVS(43656)*UV(5250)+JVS(45701)*UV(5251)+JVS(51839)*UV(5255)& - &+JVS(53500)*UV(5256)+JVS(54864)*UV(5258) - JTUV(3835) = JVS(14034)*UV(3154)+JVS(17001)*UV(3628)+JVS(18662)*UV(3835)+JVS(29501)*UV(4909)+JVS(39251)*UV(5234)& - &+JVS(43657)*UV(5250)+JVS(48966)*UV(5253)+JVS(51840)*UV(5255) - JTUV(3836) = JVS(2243)*UV(577)+JVS(4708)*UV(1177)+JVS(10360)*UV(2453)+JVS(11260)*UV(2634)+JVS(18667)*UV(3836)& - &+JVS(19032)*UV(3879)+JVS(46730)*UV(5252)+JVS(48967)*UV(5253)+JVS(51841)*UV(5255)+JVS(53501)*UV(5256) - JTUV(3837) = JVS(10928)*UV(2568)+JVS(14342)*UV(3215)+JVS(14347)*UV(3216)+JVS(18674)*UV(3837)+JVS(23440)*UV(4366)& - &+JVS(43659)*UV(5250)+JVS(45703)*UV(5251)+JVS(46731)*UV(5252)+JVS(48968)*UV(5253)+JVS(51842)*UV(5255)& - &+JVS(53502)*UV(5256) - JTUV(3838) = JVS(3086)*UV(775)+JVS(8264)*UV(1985)+JVS(18684)*UV(3838)+JVS(46732)*UV(5252)+JVS(48969)*UV(5253)& - &+JVS(51843)*UV(5255)+JVS(53503)*UV(5256) - JTUV(3839) = JVS(3542)*UV(887)+JVS(14987)*UV(3338)+JVS(18692)*UV(3839)+JVS(46733)*UV(5252)+JVS(48970)*UV(5253)& - &+JVS(51844)*UV(5255)+JVS(53504)*UV(5256) - JTUV(3840) = JVS(1285)*UV(311)+JVS(4282)*UV(1071)+JVS(10561)*UV(2495)+JVS(18699)*UV(3840)+JVS(46734)*UV(5252)& - &+JVS(48971)*UV(5253)+JVS(51845)*UV(5255)+JVS(53505)*UV(5256) - JTUV(3841) = JVS(721)*UV(173)+JVS(1372)*UV(334)+JVS(5315)*UV(1328)+JVS(10317)*UV(2444)+JVS(18707)*UV(3841)+JVS(30595)& - &*UV(4978)+JVS(46735)*UV(5252)+JVS(48972)*UV(5253)+JVS(51846)*UV(5255)+JVS(53506)*UV(5256) - JTUV(3842) = JVS(15263)*UV(3376)+JVS(18714)*UV(3842)+JVS(35845)*UV(5193)+JVS(38045)*UV(5230)+JVS(48973)*UV(5253)& - &+JVS(51847)*UV(5255) - JTUV(3843) = JVS(18724)*UV(3843)+JVS(23183)*UV(4336)+JVS(23347)*UV(4356)+JVS(23454)*UV(4367)+JVS(25768)*UV(4583)& - &+JVS(35228)*UV(5183)+JVS(37986)*UV(5229)+JVS(43665)*UV(5250) - JTUV(3844) = JVS(2648)*UV(673)+JVS(7690)*UV(1862)+JVS(9631)*UV(2288)+JVS(18731)*UV(3844)+JVS(46736)*UV(5252)& - &+JVS(48974)*UV(5253)+JVS(51848)*UV(5255)+JVS(53507)*UV(5256) - JTUV(3845) = JVS(1658)*UV(418)+JVS(3764)*UV(942)+JVS(8607)*UV(2056)+JVS(10739)*UV(2532)+JVS(18741)*UV(3845)+JVS(46737)& - &*UV(5252)+JVS(48975)*UV(5253)+JVS(51849)*UV(5255)+JVS(53508)*UV(5256) - JTUV(3846) = JVS(3446)*UV(863)+JVS(11563)*UV(2694)+JVS(18751)*UV(3846)+JVS(46738)*UV(5252)+JVS(48976)*UV(5253)& - &+JVS(51850)*UV(5255)+JVS(53509)*UV(5256) - JTUV(3847) = JVS(6901)*UV(1702)+JVS(9861)*UV(2338)+JVS(10405)*UV(2463)+JVS(18758)*UV(3847)+JVS(20001)*UV(3995)& - &+JVS(32206)*UV(5071)+JVS(46739)*UV(5252)+JVS(48977)*UV(5253)+JVS(51851)*UV(5255)+JVS(53510)*UV(5256) - JTUV(3848) = JVS(2717)*UV(690)+JVS(4182)*UV(1046)+JVS(7921)*UV(1912)+JVS(12801)*UV(2931)+JVS(18765)*UV(3848)& - &+JVS(46740)*UV(5252)+JVS(48978)*UV(5253)+JVS(51852)*UV(5255)+JVS(53511)*UV(5256) - JTUV(3849) = JVS(18778)*UV(3849)+JVS(31904)*UV(5054)+JVS(36396)*UV(5201)+JVS(43671)*UV(5250)+JVS(53512)*UV(5256) - JTUV(3850) = JVS(2162)*UV(556)+JVS(5487)*UV(1371)+JVS(7564)*UV(1835)+JVS(13188)*UV(2997)+JVS(18788)*UV(3850)& - &+JVS(46741)*UV(5252)+JVS(48979)*UV(5253)+JVS(51853)*UV(5255)+JVS(53513)*UV(5256) - JTUV(3851) = JVS(18797)*UV(3851)+JVS(25076)*UV(4515)+JVS(33972)*UV(5147)+JVS(36397)*UV(5201)+JVS(43673)*UV(5250)& - &+JVS(45704)*UV(5251)+JVS(51854)*UV(5255)+JVS(53514)*UV(5256) - JTUV(3852) = JVS(1378)*UV(336)+JVS(3610)*UV(904)+JVS(6442)*UV(1604)+JVS(9671)*UV(2296)+JVS(15425)*UV(3398)+JVS(18803)& - &*UV(3852)+JVS(46742)*UV(5252)+JVS(48980)*UV(5253)+JVS(51855)*UV(5255)+JVS(53515)*UV(5256) - JTUV(3853) = JVS(1422)*UV(350)+JVS(4080)*UV(1021)+JVS(10685)*UV(2521)+JVS(18810)*UV(3853)+JVS(46743)*UV(5252)& - &+JVS(48981)*UV(5253)+JVS(51856)*UV(5255)+JVS(53516)*UV(5256) - JTUV(3854) = JVS(6734)*UV(1663)+JVS(9503)*UV(2259)+JVS(10648)*UV(2513)+JVS(13398)*UV(3038)+JVS(18820)*UV(3854)& - &+JVS(22944)*UV(4313)+JVS(46744)*UV(5252)+JVS(48982)*UV(5253)+JVS(51857)*UV(5255)+JVS(53517)*UV(5256) - JTUV(3855) = JVS(1444)*UV(357)+JVS(4306)*UV(1077)+JVS(9700)*UV(2303)+JVS(9706)*UV(2304)+JVS(11699)*UV(2719)+JVS(18829)& - &*UV(3855)+JVS(46745)*UV(5252)+JVS(48983)*UV(5253)+JVS(51858)*UV(5255)+JVS(53518)*UV(5256) - JTUV(3856) = JVS(18838)*UV(3856)+JVS(24522)*UV(4469)+JVS(30621)*UV(4980)+JVS(36398)*UV(5201)+JVS(43678)*UV(5250)& - &+JVS(45705)*UV(5251)+JVS(51859)*UV(5255)+JVS(53519)*UV(5256) - JTUV(3857) = JVS(18847)*UV(3857)+JVS(25095)*UV(4517)+JVS(28812)*UV(4852)+JVS(36399)*UV(5201)+JVS(43679)*UV(5250)& - &+JVS(45706)*UV(5251)+JVS(51860)*UV(5255)+JVS(53520)*UV(5256) - JTUV(3858) = JVS(837)*UV(193)+JVS(1592)*UV(399)+JVS(3510)*UV(879)+JVS(9818)*UV(2328)+JVS(18855)*UV(3858)+JVS(22042)& - &*UV(4224)+JVS(46746)*UV(5252)+JVS(48984)*UV(5253)+JVS(51861)*UV(5255)+JVS(53521)*UV(5256) - JTUV(3859) = JVS(6562)*UV(1627)+JVS(9504)*UV(2259)+JVS(11253)*UV(2633)+JVS(11662)*UV(2713)+JVS(18863)*UV(3859)& - &+JVS(28568)*UV(4834)+JVS(46747)*UV(5252)+JVS(48985)*UV(5253)+JVS(51862)*UV(5255)+JVS(53522)*UV(5256) - JTUV(3860) = JVS(3558)*UV(891)+JVS(12615)*UV(2897)+JVS(18872)*UV(3860)+JVS(46748)*UV(5252)+JVS(48986)*UV(5253)& - &+JVS(51863)*UV(5255)+JVS(53523)*UV(5256) - JTUV(3861) = JVS(18881)*UV(3861)+JVS(22105)*UV(4230)+JVS(35377)*UV(5184)+JVS(36400)*UV(5201)+JVS(43683)*UV(5250)& - &+JVS(45707)*UV(5251)+JVS(51864)*UV(5255)+JVS(53524)*UV(5256) - JTUV(3862) = JVS(18889)*UV(3862)+JVS(23984)*UV(4418)+JVS(26547)*UV(4659)+JVS(36401)*UV(5201)+JVS(43684)*UV(5250)& - &+JVS(45708)*UV(5251)+JVS(51865)*UV(5255)+JVS(53525)*UV(5256) - JTUV(3863) = JVS(2976)*UV(748)+JVS(4230)*UV(1058)+JVS(6087)*UV(1520)+JVS(10347)*UV(2451)+JVS(18896)*UV(3863)& - &+JVS(46749)*UV(5252)+JVS(48987)*UV(5253)+JVS(51866)*UV(5255)+JVS(53526)*UV(5256) - JTUV(3864) = JVS(2530)*UV(645)+JVS(9636)*UV(2289)+JVS(18905)*UV(3864)+JVS(46750)*UV(5252)+JVS(48988)*UV(5253)& - &+JVS(51867)*UV(5255)+JVS(53527)*UV(5256) - JTUV(3865) = JVS(5227)*UV(1306)+JVS(12234)*UV(2821)+JVS(18912)*UV(3865)+JVS(46751)*UV(5252)+JVS(48989)*UV(5253)& - &+JVS(51868)*UV(5255)+JVS(53528)*UV(5256) - JTUV(3866) = JVS(1351)*UV(328)+JVS(4962)*UV(1240)+JVS(18919)*UV(3866)+JVS(46752)*UV(5252)+JVS(48990)*UV(5253)& - &+JVS(51869)*UV(5255)+JVS(53529)*UV(5256) - JTUV(3867) = JVS(2502)*UV(639)+JVS(6088)*UV(1520)+JVS(6348)*UV(1581)+JVS(7917)*UV(1911)+JVS(7935)*UV(1915)+JVS(18925)& - &*UV(3867)+JVS(46753)*UV(5252)+JVS(48991)*UV(5253)+JVS(51870)*UV(5255)+JVS(53530)*UV(5256) - JTUV(3868) = JVS(18936)*UV(3868)+JVS(28638)*UV(4841)+JVS(32664)*UV(5097)+JVS(33920)*UV(5145)+JVS(40079)*UV(5244)& - &+JVS(43690)*UV(5250) - JTUV(3869) = JVS(1718)*UV(435)+JVS(6271)*UV(1564)+JVS(10793)*UV(2543)+JVS(11369)*UV(2653)+JVS(18946)*UV(3869)& - &+JVS(30562)*UV(4975)+JVS(46754)*UV(5252)+JVS(48992)*UV(5253)+JVS(51871)*UV(5255)+JVS(53531)*UV(5256) - JTUV(3870) = JVS(4660)*UV(1165)+JVS(6091)*UV(1521)+JVS(7161)*UV(1755)+JVS(10628)*UV(2509)+JVS(18955)*UV(3870)& - &+JVS(33723)*UV(5140)+JVS(46755)*UV(5252)+JVS(48993)*UV(5253)+JVS(51872)*UV(5255)+JVS(53532)*UV(5256) - JTUV(3871) = JVS(2218)*UV(571)+JVS(8785)*UV(2095)+JVS(18965)*UV(3871)+JVS(46756)*UV(5252)+JVS(48994)*UV(5253)& - &+JVS(51873)*UV(5255)+JVS(53533)*UV(5256) - JTUV(3872) = JVS(2130)*UV(549)+JVS(4604)*UV(1151)+JVS(5540)*UV(1384)+JVS(10161)*UV(2407)+JVS(18972)*UV(3872)& - &+JVS(46757)*UV(5252)+JVS(48995)*UV(5253)+JVS(51874)*UV(5255)+JVS(53534)*UV(5256) - JTUV(3873) = JVS(1908)*UV(488)+JVS(6988)*UV(1721)+JVS(12011)*UV(2775)+JVS(12821)*UV(2934)+JVS(18980)*UV(3873)& - &+JVS(32089)*UV(5063)+JVS(46758)*UV(5252)+JVS(48996)*UV(5253)+JVS(51875)*UV(5255)+JVS(53535)*UV(5256) - JTUV(3874) = JVS(6183)*UV(1544)+JVS(15509)*UV(3410)+JVS(18989)*UV(3874)+JVS(46759)*UV(5252)+JVS(48997)*UV(5253)& - &+JVS(51876)*UV(5255)+JVS(53536)*UV(5256) - JTUV(3875) = JVS(18998)*UV(3875)+JVS(30792)*UV(4990)+JVS(35709)*UV(5192)+JVS(36402)*UV(5201)+JVS(43697)*UV(5250)& - &+JVS(45709)*UV(5251)+JVS(51877)*UV(5255)+JVS(53537)*UV(5256) - JTUV(3876) = JVS(2283)*UV(587)+JVS(6075)*UV(1517)+JVS(12981)*UV(2962)+JVS(19005)*UV(3876)+JVS(46760)*UV(5252)& - &+JVS(48998)*UV(5253)+JVS(51878)*UV(5255)+JVS(53538)*UV(5256) - JTUV(3877) = JVS(19015)*UV(3877)+JVS(29383)*UV(4901)+JVS(30849)*UV(4994)+JVS(36403)*UV(5201)+JVS(43699)*UV(5250)& - &+JVS(45710)*UV(5251)+JVS(51879)*UV(5255)+JVS(53539)*UV(5256) - JTUV(3878) = JVS(15432)*UV(3399)+JVS(19022)*UV(3878)+JVS(38046)*UV(5230)+JVS(38403)*UV(5231)+JVS(48999)*UV(5253)& - &+JVS(51880)*UV(5255) - JTUV(3879) = JVS(19033)*UV(3879)+JVS(28585)*UV(4836)+JVS(32665)*UV(5097)+JVS(36404)*UV(5201)+JVS(43701)*UV(5250)& - &+JVS(45711)*UV(5251)+JVS(51881)*UV(5255)+JVS(53540)*UV(5256) - JTUV(3880) = JVS(2231)*UV(574)+JVS(9268)*UV(2205)+JVS(19043)*UV(3880)+JVS(46761)*UV(5252)+JVS(49000)*UV(5253)& - &+JVS(51882)*UV(5255)+JVS(53541)*UV(5256) - JTUV(3881) = JVS(3156)*UV(791)+JVS(8460)*UV(2027)+JVS(19053)*UV(3881)+JVS(46762)*UV(5252)+JVS(49001)*UV(5253)& - &+JVS(51883)*UV(5255)+JVS(53542)*UV(5256) - JTUV(3882) = JVS(1229)*UV(296)+JVS(6027)*UV(1505)+JVS(9363)*UV(2226)+JVS(12407)*UV(2855)+JVS(12415)*UV(2856)& - &+JVS(19062)*UV(3882)+JVS(46763)*UV(5252)+JVS(49002)*UV(5253)+JVS(51884)*UV(5255)+JVS(53543)*UV(5256) - JTUV(3883) = JVS(2623)*UV(667)+JVS(5259)*UV(1314)+JVS(7947)*UV(1918)+JVS(13403)*UV(3039)+JVS(19069)*UV(3883)& - &+JVS(46764)*UV(5252)+JVS(49003)*UV(5253)+JVS(51885)*UV(5255)+JVS(53544)*UV(5256) - JTUV(3884) = JVS(7010)*UV(1725)+JVS(7776)*UV(1880)+JVS(8834)*UV(2106)+JVS(19076)*UV(3884)+JVS(29077)*UV(4872)& - &+JVS(33863)*UV(5143)+JVS(46765)*UV(5252)+JVS(49004)*UV(5253)+JVS(51886)*UV(5255)+JVS(53545)*UV(5256) - JTUV(3885) = JVS(2120)*UV(546)+JVS(6506)*UV(1616)+JVS(11934)*UV(2761)+JVS(12488)*UV(2871)+JVS(19084)*UV(3885)& - &+JVS(19408)*UV(3923)+JVS(46766)*UV(5252)+JVS(49005)*UV(5253)+JVS(51887)*UV(5255)+JVS(53546)*UV(5256) - JTUV(3886) = JVS(490)*UV(127)+JVS(4732)*UV(1183)+JVS(9803)*UV(2325)+JVS(11851)*UV(2746)+JVS(19091)*UV(3886)+JVS(46767)& - &*UV(5252)+JVS(49006)*UV(5253)+JVS(51888)*UV(5255)+JVS(53547)*UV(5256) - JTUV(3887) = JVS(15670)*UV(3432)+JVS(19098)*UV(3887)+JVS(36824)*UV(5203)+JVS(38406)*UV(5231)+JVS(49007)*UV(5253)& - &+JVS(51889)*UV(5255) - JTUV(3888) = JVS(2247)*UV(578)+JVS(4318)*UV(1080)+JVS(10456)*UV(2473)+JVS(19107)*UV(3888)+JVS(46768)*UV(5252)& - &+JVS(49008)*UV(5253)+JVS(51890)*UV(5255)+JVS(53548)*UV(5256) - JTUV(3889) = JVS(6063)*UV(1514)+JVS(6864)*UV(1694)+JVS(6956)*UV(1714)+JVS(19115)*UV(3889)+JVS(46769)*UV(5252)& - &+JVS(49009)*UV(5253)+JVS(51891)*UV(5255)+JVS(53549)*UV(5256) - JTUV(3890) = JVS(1991)*UV(511)+JVS(3704)*UV(927)+JVS(8144)*UV(1961)+JVS(12674)*UV(2908)+JVS(12684)*UV(2909)+JVS(19124)& - &*UV(3890)+JVS(46770)*UV(5252)+JVS(49010)*UV(5253)+JVS(51892)*UV(5255)+JVS(53550)*UV(5256) - JTUV(3891) = JVS(3180)*UV(797)+JVS(9156)*UV(2180)+JVS(9173)*UV(2184)+JVS(19131)*UV(3891)+JVS(46771)*UV(5252)& - &+JVS(49011)*UV(5253)+JVS(51893)*UV(5255)+JVS(53551)*UV(5256) - JTUV(3892) = JVS(19139)*UV(3892)+JVS(32775)*UV(5101)+JVS(33363)*UV(5129)+JVS(36405)*UV(5201)+JVS(43714)*UV(5250)& - &+JVS(45712)*UV(5251)+JVS(51894)*UV(5255)+JVS(53552)*UV(5256) - JTUV(3893) = JVS(4716)*UV(1179)+JVS(6749)*UV(1667)+JVS(10675)*UV(2519)+JVS(12057)*UV(2785)+JVS(19147)*UV(3893)& - &+JVS(22419)*UV(4261)+JVS(46772)*UV(5252)+JVS(49012)*UV(5253)+JVS(51895)*UV(5255)+JVS(53553)*UV(5256) - JTUV(3894) = JVS(262)*UV(64)+JVS(5880)*UV(1469)+JVS(7312)*UV(1788)+JVS(7319)*UV(1789)+JVS(19155)*UV(3894)+JVS(46773)& - &*UV(5252)+JVS(49013)*UV(5253)+JVS(51896)*UV(5255)+JVS(53554)*UV(5256) - JTUV(3895) = JVS(2107)*UV(543)+JVS(3880)*UV(971)+JVS(12723)*UV(2916)+JVS(19162)*UV(3895)+JVS(46774)*UV(5252)& - &+JVS(49014)*UV(5253)+JVS(51897)*UV(5255)+JVS(53555)*UV(5256) - JTUV(3896) = JVS(19173)*UV(3896)+JVS(29692)*UV(4920)+JVS(30579)*UV(4977)+JVS(36406)*UV(5201)+JVS(43718)*UV(5250)& - &+JVS(45713)*UV(5251)+JVS(51898)*UV(5255)+JVS(53556)*UV(5256) - JTUV(3897) = JVS(2816)*UV(713)+JVS(19180)*UV(3897)+JVS(35848)*UV(5193)+JVS(37490)*UV(5222)+JVS(49015)*UV(5253)& - &+JVS(51899)*UV(5255) - JTUV(3898) = JVS(2599)*UV(661)+JVS(3518)*UV(881)+JVS(9434)*UV(2242)+JVS(12974)*UV(2961)+JVS(19187)*UV(3898)+JVS(46775)& - &*UV(5252)+JVS(49016)*UV(5253)+JVS(51900)*UV(5255)+JVS(53557)*UV(5256) - JTUV(3899) = JVS(9590)*UV(2279)+JVS(10862)*UV(2556)+JVS(19195)*UV(3899)+JVS(46776)*UV(5252)+JVS(49017)*UV(5253)& - &+JVS(51901)*UV(5255)+JVS(53558)*UV(5256) - JTUV(3900) = JVS(19204)*UV(3900)+JVS(21983)*UV(4219)+JVS(26034)*UV(4611)+JVS(36407)*UV(5201)+JVS(43722)*UV(5250)& - &+JVS(45714)*UV(5251)+JVS(51902)*UV(5255)+JVS(53559)*UV(5256) - JTUV(3901) = JVS(633)*UV(159)+JVS(1823)*UV(462)+JVS(3792)*UV(949)+JVS(8715)*UV(2079)+JVS(19213)*UV(3901)+JVS(46777)& - &*UV(5252)+JVS(49018)*UV(5253)+JVS(51903)*UV(5255)+JVS(53560)*UV(5256) - JTUV(3902) = JVS(959)*UV(218)+JVS(5183)*UV(1295)+JVS(8001)*UV(1930)+JVS(8007)*UV(1931)+JVS(13003)*UV(2965)+JVS(19221)& - &*UV(3902)+JVS(46778)*UV(5252)+JVS(49019)*UV(5253)+JVS(51904)*UV(5255)+JVS(53561)*UV(5256) - JTUV(3903) = JVS(10431)*UV(2468)+JVS(12121)*UV(2798)+JVS(12126)*UV(2799)+JVS(19228)*UV(3903)+JVS(46779)*UV(5252)& - &+JVS(49020)*UV(5253)+JVS(51905)*UV(5255)+JVS(53562)*UV(5256) - JTUV(3904) = JVS(15102)*UV(3354)+JVS(19235)*UV(3904)+JVS(35637)*UV(5191)+JVS(37491)*UV(5222)+JVS(49021)*UV(5253)& - &+JVS(51906)*UV(5255) - JTUV(3905) = JVS(2100)*UV(541)+JVS(10230)*UV(2423)+JVS(19245)*UV(3905)+JVS(46780)*UV(5252)+JVS(49022)*UV(5253)& - &+JVS(51907)*UV(5255)+JVS(53563)*UV(5256) - JTUV(3906) = JVS(19253)*UV(3906)+JVS(25625)*UV(4566)+JVS(25775)*UV(4584)+JVS(34527)*UV(5161)+JVS(35230)*UV(5183)& - &+JVS(40082)*UV(5244)+JVS(40481)*UV(5246)+JVS(43728)*UV(5250) - JTUV(3907) = JVS(5954)*UV(1487)+JVS(14965)*UV(3335)+JVS(19260)*UV(3907)+JVS(46781)*UV(5252)+JVS(49023)*UV(5253)& - &+JVS(51908)*UV(5255)+JVS(53564)*UV(5256) - JTUV(3908) = JVS(893)*UV(203)+JVS(1885)*UV(481)+JVS(5856)*UV(1463)+JVS(9352)*UV(2224)+JVS(19267)*UV(3908)+JVS(28663)& - &*UV(4842)+JVS(46782)*UV(5252)+JVS(49024)*UV(5253)+JVS(51909)*UV(5255)+JVS(53565)*UV(5256) - JTUV(3909) = JVS(7414)*UV(1807)+JVS(19274)*UV(3909)+JVS(29953)*UV(4938)+JVS(38410)*UV(5231)+JVS(49025)*UV(5253)& - &+JVS(51910)*UV(5255) - JTUV(3910) = JVS(15005)*UV(3341)+JVS(19281)*UV(3910)+JVS(35849)*UV(5193)+JVS(38047)*UV(5230)+JVS(49026)*UV(5253)& - &+JVS(51911)*UV(5255) - JTUV(3911) = JVS(19292)*UV(3911)+JVS(25470)*UV(4550)+JVS(28282)*UV(4808)+JVS(36408)*UV(5201)+JVS(43733)*UV(5250)& - &+JVS(45715)*UV(5251)+JVS(51912)*UV(5255)+JVS(53566)*UV(5256) - JTUV(3912) = JVS(2321)*UV(596)+JVS(8032)*UV(1937)+JVS(19302)*UV(3912)+JVS(46783)*UV(5252)+JVS(49027)*UV(5253)& - &+JVS(51913)*UV(5255)+JVS(53567)*UV(5256) - JTUV(3913) = JVS(14531)*UV(3248)+JVS(19310)*UV(3913)+JVS(31038)*UV(5004)+JVS(39059)*UV(5233)+JVS(45716)*UV(5251)& - &+JVS(51914)*UV(5255) - JTUV(3914) = JVS(19321)*UV(3914)+JVS(27824)*UV(4770)+JVS(28880)*UV(4857)+JVS(36410)*UV(5201)+JVS(43736)*UV(5250)& - &+JVS(45717)*UV(5251)+JVS(51915)*UV(5255)+JVS(53569)*UV(5256) - JTUV(3915) = JVS(19332)*UV(3915)+JVS(26575)*UV(4662)+JVS(29045)*UV(4870)+JVS(36411)*UV(5201)+JVS(43737)*UV(5250)& - &+JVS(45718)*UV(5251)+JVS(51916)*UV(5255)+JVS(53570)*UV(5256) - JTUV(3916) = JVS(2047)*UV(528)+JVS(10177)*UV(2411)+JVS(19342)*UV(3916)+JVS(46784)*UV(5252)+JVS(49028)*UV(5253)& - &+JVS(51917)*UV(5255)+JVS(53571)*UV(5256) - JTUV(3917) = JVS(2344)*UV(602)+JVS(19353)*UV(3917)+JVS(27190)*UV(4716)+JVS(35231)*UV(5183)+JVS(35424)*UV(5185)& - &+JVS(43739)*UV(5250)+JVS(51918)*UV(5255) - JTUV(3918) = JVS(19366)*UV(3918)+JVS(31483)*UV(5031)+JVS(37493)*UV(5222)+JVS(40084)*UV(5244)+JVS(43740)*UV(5250)& - &+JVS(51919)*UV(5255) - JTUV(3919) = JVS(3091)*UV(776)+JVS(9680)*UV(2298)+JVS(19378)*UV(3919)+JVS(46785)*UV(5252)+JVS(49029)*UV(5253)& - &+JVS(51920)*UV(5255)+JVS(53572)*UV(5256) - JTUV(3920) = JVS(2892)*UV(730)+JVS(4222)*UV(1056)+JVS(5339)*UV(1334)+JVS(8798)*UV(2098)+JVS(19385)*UV(3920)+JVS(46786)& - &*UV(5252)+JVS(49030)*UV(5253)+JVS(51921)*UV(5255)+JVS(53573)*UV(5256) - JTUV(3921) = JVS(3124)*UV(783)+JVS(4140)*UV(1036)+JVS(8823)*UV(2103)+JVS(9160)*UV(2181)+JVS(19392)*UV(3921)+JVS(46787)& - &*UV(5252)+JVS(49031)*UV(5253)+JVS(51922)*UV(5255)+JVS(53574)*UV(5256) - JTUV(3922) = JVS(15503)*UV(3409)+JVS(19399)*UV(3922)+JVS(35638)*UV(5191)+JVS(35853)*UV(5193)+JVS(49032)*UV(5253)& - &+JVS(51923)*UV(5255) - JTUV(3923) = JVS(19409)*UV(3923)+JVS(23913)*UV(4411)+JVS(23925)*UV(4412)+JVS(36412)*UV(5201)+JVS(43745)*UV(5250)& - &+JVS(45719)*UV(5251)+JVS(51924)*UV(5255)+JVS(53575)*UV(5256) - JTUV(3924) = JVS(19419)*UV(3924)+JVS(27834)*UV(4771)+JVS(32299)*UV(5078)+JVS(36413)*UV(5201)+JVS(43746)*UV(5250)& - &+JVS(45720)*UV(5251)+JVS(51925)*UV(5255)+JVS(53576)*UV(5256) - JTUV(3925) = JVS(15068)*UV(3349)+JVS(19426)*UV(3925)+JVS(34635)*UV(5165)+JVS(38411)*UV(5231)+JVS(49033)*UV(5253)& - &+JVS(51926)*UV(5255) - JTUV(3926) = JVS(4848)*UV(1212)+JVS(9201)*UV(2190)+JVS(19436)*UV(3926)+JVS(46788)*UV(5252)+JVS(49034)*UV(5253)& - &+JVS(51927)*UV(5255)+JVS(53577)*UV(5256) - JTUV(3927) = JVS(2851)*UV(721)+JVS(5541)*UV(1384)+JVS(6918)*UV(1706)+JVS(8204)*UV(1973)+JVS(8311)*UV(1995)+JVS(19442)& - &*UV(3927)+JVS(46789)*UV(5252)+JVS(49035)*UV(5253)+JVS(51928)*UV(5255)+JVS(53578)*UV(5256) - JTUV(3928) = JVS(2725)*UV(692)+JVS(6015)*UV(1502)+JVS(12292)*UV(2832)+JVS(19449)*UV(3928)+JVS(46790)*UV(5252)& - &+JVS(49036)*UV(5253)+JVS(51929)*UV(5255)+JVS(53579)*UV(5256) - JTUV(3929) = JVS(19458)*UV(3929)+JVS(31562)*UV(5036)+JVS(32599)*UV(5094)+JVS(43751)*UV(5250)+JVS(49037)*UV(5253)& - &+JVS(51930)*UV(5255) - JTUV(3930) = JVS(19467)*UV(3930)+JVS(29954)*UV(4938)+JVS(37494)*UV(5222)+JVS(40086)*UV(5244)+JVS(45721)*UV(5251)& - &+JVS(51931)*UV(5255) - JTUV(3931) = JVS(19468)*UV(3930)+JVS(19477)*UV(3931)+JVS(29955)*UV(4938)+JVS(30156)*UV(4947)+JVS(37495)*UV(5222)& - &+JVS(40087)*UV(5244)+JVS(43752)*UV(5250)+JVS(45722)*UV(5251)+JVS(51932)*UV(5255) - JTUV(3932) = JVS(3318)*UV(831)+JVS(4717)*UV(1179)+JVS(9119)*UV(2172)+JVS(9125)*UV(2173)+JVS(19486)*UV(3932)+JVS(22291)& - &*UV(4248)+JVS(46791)*UV(5252)+JVS(49038)*UV(5253)+JVS(51933)*UV(5255)+JVS(53580)*UV(5256) - JTUV(3933) = JVS(19493)*UV(3933)+JVS(21869)*UV(4208)+JVS(39060)*UV(5233)+JVS(40088)*UV(5244)+JVS(43754)*UV(5250)& - &+JVS(49039)*UV(5253) - JTUV(3934) = JVS(14802)*UV(3302)+JVS(19502)*UV(3934)+JVS(35639)*UV(5191)+JVS(38414)*UV(5231)+JVS(49040)*UV(5253)& - &+JVS(51934)*UV(5255) - JTUV(3935) = JVS(19511)*UV(3935)+JVS(22239)*UV(4243)+JVS(30528)*UV(4973)+JVS(36414)*UV(5201)+JVS(43756)*UV(5250)& - &+JVS(45724)*UV(5251)+JVS(51935)*UV(5255)+JVS(53581)*UV(5256) - JTUV(3936) = JVS(3129)*UV(784)+JVS(4141)*UV(1036)+JVS(6279)*UV(1565)+JVS(8442)*UV(2023)+JVS(8617)*UV(2058)+JVS(19517)& - &*UV(3936)+JVS(46792)*UV(5252)+JVS(49041)*UV(5253)+JVS(51936)*UV(5255)+JVS(53582)*UV(5256) - JTUV(3937) = JVS(5207)*UV(1301)+JVS(12741)*UV(2919)+JVS(19525)*UV(3937)+JVS(46793)*UV(5252)+JVS(49042)*UV(5253)& - &+JVS(51937)*UV(5255)+JVS(53583)*UV(5256) - JTUV(3938) = JVS(19533)*UV(3938)+JVS(21859)*UV(4207)+JVS(31925)*UV(5055)+JVS(36415)*UV(5201)+JVS(43759)*UV(5250)& - &+JVS(45726)*UV(5251)+JVS(51938)*UV(5255)+JVS(53584)*UV(5256) - JTUV(3939) = JVS(233)*UV(55)+JVS(5756)*UV(1438)+JVS(10803)*UV(2545)+JVS(19540)*UV(3939)+JVS(46794)*UV(5252)+JVS(49043)& - &*UV(5253)+JVS(51939)*UV(5255)+JVS(53585)*UV(5256) - JTUV(3940) = JVS(2484)*UV(635)+JVS(7936)*UV(1915)+JVS(8649)*UV(2065)+JVS(19547)*UV(3940)+JVS(46795)*UV(5252)& - &+JVS(49044)*UV(5253)+JVS(51940)*UV(5255)+JVS(53586)*UV(5256) - JTUV(3941) = JVS(2071)*UV(534)+JVS(8413)*UV(2016)+JVS(19557)*UV(3941)+JVS(46796)*UV(5252)+JVS(49045)*UV(5253)& - &+JVS(51941)*UV(5255)+JVS(53587)*UV(5256) - JTUV(3942) = JVS(13609)*UV(3077)+JVS(19564)*UV(3942)+JVS(35640)*UV(5191)+JVS(38416)*UV(5231)+JVS(49046)*UV(5253)& - &+JVS(51942)*UV(5255) - JTUV(3943) = JVS(2635)*UV(670)+JVS(7605)*UV(1844)+JVS(8443)*UV(2023)+JVS(19571)*UV(3943)+JVS(46797)*UV(5252)& - &+JVS(49047)*UV(5253)+JVS(51943)*UV(5255)+JVS(53588)*UV(5256) - JTUV(3944) = JVS(6681)*UV(1653)+JVS(6686)*UV(1654)+JVS(9442)*UV(2244)+JVS(19578)*UV(3944)+JVS(46798)*UV(5252)& - &+JVS(49048)*UV(5253)+JVS(51944)*UV(5255)+JVS(53589)*UV(5256) - JTUV(3945) = JVS(3247)*UV(814)+JVS(9515)*UV(2262)+JVS(19585)*UV(3945)+JVS(46799)*UV(5252)+JVS(49049)*UV(5253)& - &+JVS(51945)*UV(5255)+JVS(53590)*UV(5256) - JTUV(3946) = JVS(19596)*UV(3946)+JVS(22319)*UV(4251)+JVS(32522)*UV(5088)+JVS(36416)*UV(5201)+JVS(43767)*UV(5250)& - &+JVS(45728)*UV(5251)+JVS(51946)*UV(5255)+JVS(53591)*UV(5256) - JTUV(3947) = JVS(19606)*UV(3947)+JVS(20716)*UV(4077)+JVS(24674)*UV(4484)+JVS(36417)*UV(5201)+JVS(43768)*UV(5250)& - &+JVS(45729)*UV(5251)+JVS(51947)*UV(5255)+JVS(53592)*UV(5256) - JTUV(3948) = JVS(6606)*UV(1637)+JVS(6787)*UV(1677)+JVS(10241)*UV(2426)+JVS(19614)*UV(3948)+JVS(46800)*UV(5252)& - &+JVS(49050)*UV(5253)+JVS(51948)*UV(5255)+JVS(53593)*UV(5256) - JTUV(3949) = JVS(2602)*UV(662)+JVS(3932)*UV(984)+JVS(11876)*UV(2750)+JVS(19621)*UV(3949)+JVS(46801)*UV(5252)& - &+JVS(49051)*UV(5253)+JVS(51949)*UV(5255)+JVS(53594)*UV(5256) - JTUV(3950) = JVS(3165)*UV(793)+JVS(5091)*UV(1272)+JVS(8371)*UV(2007)+JVS(10886)*UV(2561)+JVS(19628)*UV(3950)& - &+JVS(46802)*UV(5252)+JVS(49052)*UV(5253)+JVS(51950)*UV(5255)+JVS(53595)*UV(5256) - JTUV(3951) = JVS(436)*UV(113)+JVS(942)*UV(213)+JVS(5335)*UV(1333)+JVS(19637)*UV(3951)+JVS(46803)*UV(5252)+JVS(49053)& - &*UV(5253)+JVS(51951)*UV(5255)+JVS(53596)*UV(5256) - JTUV(3952) = JVS(807)*UV(188)+JVS(1955)*UV(501)+JVS(6151)*UV(1536)+JVS(7813)*UV(1889)+JVS(19644)*UV(3952)+JVS(29182)& - &*UV(4882)+JVS(46804)*UV(5252)+JVS(49054)*UV(5253)+JVS(51952)*UV(5255)+JVS(53597)*UV(5256) - JTUV(3953) = JVS(3892)*UV(974)+JVS(13343)*UV(3028)+JVS(19652)*UV(3953)+JVS(46805)*UV(5252)+JVS(49055)*UV(5253)& - &+JVS(51953)*UV(5255)+JVS(53598)*UV(5256) - JTUV(3954) = JVS(2643)*UV(672)+JVS(9951)*UV(2360)+JVS(19661)*UV(3954)+JVS(46806)*UV(5252)+JVS(49056)*UV(5253)& - &+JVS(51954)*UV(5255)+JVS(53599)*UV(5256) - JTUV(3955) = JVS(1435)*UV(354)+JVS(5415)*UV(1353)+JVS(10354)*UV(2452)+JVS(11826)*UV(2742)+JVS(19670)*UV(3955)& - &+JVS(46807)*UV(5252)+JVS(49057)*UV(5253)+JVS(51955)*UV(5255)+JVS(53600)*UV(5256) - JTUV(3956) = JVS(15569)*UV(3418)+JVS(19677)*UV(3956)+JVS(35641)*UV(5191)+JVS(35854)*UV(5193)+JVS(49058)*UV(5253)& - &+JVS(51956)*UV(5255) - JTUV(3957) = JVS(15249)*UV(3374)+JVS(19686)*UV(3957)+JVS(33398)*UV(5130)+JVS(37044)*UV(5211)+JVS(51957)*UV(5255) - JTUV(3958) = JVS(19695)*UV(3958)+JVS(26834)*UV(4686)+JVS(26847)*UV(4687)+JVS(43779)*UV(5250)+JVS(45730)*UV(5251)& - &+JVS(51958)*UV(5255) - JTUV(3959) = JVS(19706)*UV(3959)+JVS(33644)*UV(5139)+JVS(35235)*UV(5183)+JVS(38420)*UV(5231)+JVS(43780)*UV(5250)& - &+JVS(51959)*UV(5255) - JTUV(3960) = JVS(19715)*UV(3960)+JVS(27733)*UV(4763)+JVS(28826)*UV(4853)+JVS(36418)*UV(5201)+JVS(43781)*UV(5250)& - &+JVS(45731)*UV(5251)+JVS(51960)*UV(5255)+JVS(53601)*UV(5256) - JTUV(3961) = JVS(6092)*UV(1521)+JVS(6265)*UV(1563)+JVS(12306)*UV(2835)+JVS(13437)*UV(3046)+JVS(19723)*UV(3961)& - &+JVS(33047)*UV(5115)+JVS(46808)*UV(5252)+JVS(49059)*UV(5253)+JVS(51961)*UV(5255)+JVS(53602)*UV(5256) - JTUV(3962) = JVS(651)*UV(162)+JVS(1282)*UV(310)+JVS(4540)*UV(1135)+JVS(9917)*UV(2352)+JVS(19730)*UV(3962)+JVS(32394)& - &*UV(5083)+JVS(46809)*UV(5252)+JVS(49060)*UV(5253)+JVS(51962)*UV(5255)+JVS(53603)*UV(5256) - JTUV(3963) = JVS(2437)*UV(624)+JVS(4000)*UV(1001)+JVS(7061)*UV(1736)+JVS(9065)*UV(2160)+JVS(9174)*UV(2184)+JVS(19736)& - &*UV(3963)+JVS(46810)*UV(5252)+JVS(49061)*UV(5253)+JVS(51963)*UV(5255)+JVS(53604)*UV(5256) - JTUV(3964) = JVS(6067)*UV(1515)+JVS(12426)*UV(2858)+JVS(19745)*UV(3964)+JVS(46811)*UV(5252)+JVS(49062)*UV(5253)& - &+JVS(51964)*UV(5255)+JVS(53605)*UV(5256) - JTUV(3965) = JVS(16497)*UV(3566)+JVS(19754)*UV(3965)+JVS(36213)*UV(5199)+JVS(37496)*UV(5222)+JVS(39062)*UV(5233)& - &+JVS(40090)*UV(5244)+JVS(43786)*UV(5250)+JVS(45733)*UV(5251)+JVS(51965)*UV(5255) - JTUV(3966) = JVS(2606)*UV(663)+JVS(4223)*UV(1056)+JVS(7075)*UV(1738)+JVS(9532)*UV(2266)+JVS(9632)*UV(2288)+JVS(19760)& - &*UV(3966)+JVS(46812)*UV(5252)+JVS(49063)*UV(5253)+JVS(51966)*UV(5255)+JVS(53606)*UV(5256) - JTUV(3967) = JVS(1719)*UV(435)+JVS(6031)*UV(1506)+JVS(7367)*UV(1798)+JVS(7373)*UV(1799)+JVS(19769)*UV(3967)+JVS(31156)& - &*UV(5010)+JVS(46813)*UV(5252)+JVS(49064)*UV(5253)+JVS(51967)*UV(5255)+JVS(53607)*UV(5256) - JTUV(3968) = JVS(19778)*UV(3968)+JVS(21822)*UV(4203)+JVS(25951)*UV(4602)+JVS(35236)*UV(5183)+JVS(40091)*UV(5244)& - &+JVS(43789)*UV(5250)+JVS(45734)*UV(5251)+JVS(51968)*UV(5255) - JTUV(3969) = JVS(2548)*UV(649)+JVS(8292)*UV(1990)+JVS(8312)*UV(1995)+JVS(19785)*UV(3969)+JVS(46814)*UV(5252)& - &+JVS(49065)*UV(5253)+JVS(51969)*UV(5255)+JVS(53608)*UV(5256) - JTUV(3970) = JVS(15164)*UV(3364)+JVS(19792)*UV(3970)+JVS(34393)*UV(5160)+JVS(35856)*UV(5193)+JVS(49066)*UV(5253)& - &+JVS(51970)*UV(5255) - JTUV(3971) = JVS(2535)*UV(646)+JVS(3614)*UV(905)+JVS(4001)*UV(1001)+JVS(9148)*UV(2178)+JVS(19799)*UV(3971)+JVS(46815)& - &*UV(5252)+JVS(49067)*UV(5253)+JVS(51971)*UV(5255)+JVS(53609)*UV(5256) - JTUV(3972) = JVS(19807)*UV(3972)+JVS(20582)*UV(4060)+JVS(22019)*UV(4222)+JVS(36419)*UV(5201)+JVS(43793)*UV(5250)& - &+JVS(45735)*UV(5251)+JVS(51972)*UV(5255)+JVS(53610)*UV(5256) - JTUV(3973) = JVS(4680)*UV(1170)+JVS(10995)*UV(2581)+JVS(19815)*UV(3973)+JVS(46816)*UV(5252)+JVS(49068)*UV(5253)& - &+JVS(51973)*UV(5255)+JVS(53611)*UV(5256) - JTUV(3974) = JVS(2552)*UV(650)+JVS(5528)*UV(1381)+JVS(7214)*UV(1766)+JVS(11049)*UV(2591)+JVS(19822)*UV(3974)& - &+JVS(46817)*UV(5252)+JVS(49069)*UV(5253)+JVS(51974)*UV(5255)+JVS(53612)*UV(5256) - JTUV(3975) = JVS(1111)*UV(263)+JVS(5383)*UV(1345)+JVS(13016)*UV(2967)+JVS(19830)*UV(3975)+JVS(46818)*UV(5252)& - &+JVS(49070)*UV(5253)+JVS(51975)*UV(5255)+JVS(53613)*UV(5256) - JTUV(3976) = JVS(3172)*UV(795)+JVS(9901)*UV(2348)+JVS(19838)*UV(3976)+JVS(46819)*UV(5252)+JVS(49071)*UV(5253)& - &+JVS(51976)*UV(5255)+JVS(53614)*UV(5256) - JTUV(3977) = JVS(2092)*UV(539)+JVS(9758)*UV(2316)+JVS(19848)*UV(3977)+JVS(46820)*UV(5252)+JVS(49072)*UV(5253)& - &+JVS(51977)*UV(5255)+JVS(53615)*UV(5256) - JTUV(3978) = JVS(19859)*UV(3978)+JVS(28891)*UV(4858)+JVS(34054)*UV(5151)+JVS(37987)*UV(5229)+JVS(40093)*UV(5244)& - &+JVS(43799)*UV(5250) - JTUV(3979) = JVS(5724)*UV(1430)+JVS(13478)*UV(3054)+JVS(19870)*UV(3979)+JVS(46821)*UV(5252)+JVS(49073)*UV(5253)& - &+JVS(51978)*UV(5255)+JVS(53616)*UV(5256) - JTUV(3980) = JVS(3486)*UV(873)+JVS(12302)*UV(2834)+JVS(13447)*UV(3048)+JVS(19877)*UV(3980)+JVS(46822)*UV(5252)& - &+JVS(49074)*UV(5253)+JVS(51979)*UV(5255)+JVS(53617)*UV(5256) - JTUV(3981) = JVS(317)*UV(79)+JVS(5067)*UV(1266)+JVS(9279)*UV(2207)+JVS(12873)*UV(2943)+JVS(19887)*UV(3981)+JVS(46823)& - &*UV(5252)+JVS(49075)*UV(5253)+JVS(51980)*UV(5255)+JVS(53618)*UV(5256) - JTUV(3982) = JVS(134)*UV(28)+JVS(1078)*UV(254)+JVS(5884)*UV(1470)+JVS(13376)*UV(3034)+JVS(19894)*UV(3982)+JVS(46824)& - &*UV(5252)+JVS(49076)*UV(5253)+JVS(51981)*UV(5255)+JVS(53619)*UV(5256) - JTUV(3983) = JVS(365)*UV(92)+JVS(1983)*UV(509)+JVS(1988)*UV(510)+JVS(5439)*UV(1359)+JVS(19901)*UV(3983)+JVS(46825)& - &*UV(5252)+JVS(49077)*UV(5253)+JVS(51982)*UV(5255)+JVS(53620)*UV(5256) - JTUV(3984) = JVS(2406)*UV(617)+JVS(9323)*UV(2217)+JVS(19909)*UV(3984)+JVS(46826)*UV(5252)+JVS(49078)*UV(5253)& - &+JVS(51983)*UV(5255)+JVS(53621)*UV(5256) - JTUV(3985) = JVS(1308)*UV(317)+JVS(4044)*UV(1012)+JVS(10040)*UV(2378)+JVS(10642)*UV(2512)+JVS(19916)*UV(3985)& - &+JVS(46827)*UV(5252)+JVS(49079)*UV(5253)+JVS(51984)*UV(5255)+JVS(53622)*UV(5256) - JTUV(3986) = JVS(19927)*UV(3986)+JVS(22909)*UV(4310)+JVS(25158)*UV(4523)+JVS(36420)*UV(5201)+JVS(43807)*UV(5250)& - &+JVS(45736)*UV(5251)+JVS(51985)*UV(5255)+JVS(53623)*UV(5256) - JTUV(3987) = JVS(5512)*UV(1377)+JVS(13581)*UV(3072)+JVS(19934)*UV(3987)+JVS(46828)*UV(5252)+JVS(49080)*UV(5253)& - &+JVS(51986)*UV(5255)+JVS(53624)*UV(5256) - JTUV(3988) = JVS(2425)*UV(621)+JVS(3534)*UV(885)+JVS(13595)*UV(3074)+JVS(19941)*UV(3988)+JVS(46829)*UV(5252)& - &+JVS(49081)*UV(5253)+JVS(51987)*UV(5255)+JVS(53625)*UV(5256) - JTUV(3989) = JVS(1909)*UV(488)+JVS(5363)*UV(1340)+JVS(7578)*UV(1838)+JVS(10858)*UV(2555)+JVS(19950)*UV(3989)& - &+JVS(32106)*UV(5064)+JVS(46830)*UV(5252)+JVS(49082)*UV(5253)+JVS(51988)*UV(5255)+JVS(53626)*UV(5256) - JTUV(3990) = JVS(2080)*UV(536)+JVS(7177)*UV(1758)+JVS(9897)*UV(2347)+JVS(11835)*UV(2744)+JVS(19956)*UV(3990)& - &+JVS(46831)*UV(5252)+JVS(49083)*UV(5253)+JVS(51989)*UV(5255)+JVS(53627)*UV(5256) - JTUV(3991) = JVS(19965)*UV(3991)+JVS(22408)*UV(4260)+JVS(32207)*UV(5071)+JVS(36421)*UV(5201)+JVS(43812)*UV(5250)& - &+JVS(45737)*UV(5251)+JVS(51990)*UV(5255)+JVS(53628)*UV(5256) - JTUV(3992) = JVS(9003)*UV(2145)+JVS(12115)*UV(2797)+JVS(19974)*UV(3992)+JVS(46832)*UV(5252)+JVS(49084)*UV(5253)& - &+JVS(51991)*UV(5255)+JVS(53629)*UV(5256) - JTUV(3993) = JVS(19983)*UV(3993)+JVS(32600)*UV(5094)+JVS(35496)*UV(5188)+JVS(43814)*UV(5250)+JVS(45739)*UV(5251)& - &+JVS(51992)*UV(5255) - JTUV(3994) = JVS(2096)*UV(540)+JVS(5876)*UV(1468)+JVS(7885)*UV(1905)+JVS(10622)*UV(2508)+JVS(19992)*UV(3994)& - &+JVS(46833)*UV(5252)+JVS(49085)*UV(5253)+JVS(51993)*UV(5255)+JVS(53630)*UV(5256) - JTUV(3995) = JVS(20002)*UV(3995)+JVS(26351)*UV(4640)+JVS(29598)*UV(4915)+JVS(36422)*UV(5201)+JVS(43816)*UV(5250)& - &+JVS(45740)*UV(5251)+JVS(51994)*UV(5255)+JVS(53631)*UV(5256) - JTUV(3996) = JVS(13939)*UV(3133)+JVS(20009)*UV(3996)+JVS(25642)*UV(4568)+JVS(25653)*UV(4569)+JVS(28272)*UV(4807)& - &+JVS(29893)*UV(4935)+JVS(36423)*UV(5201)+JVS(40094)*UV(5244)+JVS(43817)*UV(5250)+JVS(45741)*UV(5251)& - &+JVS(51995)*UV(5255)+JVS(53632)*UV(5256)+JVS(54865)*UV(5258) - JTUV(3997) = JVS(3282)*UV(822)+JVS(20014)*UV(3997)+JVS(24271)*UV(4444)+JVS(46834)*UV(5252)+JVS(49086)*UV(5253)& - &+JVS(51996)*UV(5255)+JVS(53633)*UV(5256) - JTUV(3998) = JVS(3622)*UV(907)+JVS(12951)*UV(2957)+JVS(20025)*UV(3998)+JVS(37757)*UV(5225)+JVS(43819)*UV(5250)& - &+JVS(46835)*UV(5252)+JVS(49087)*UV(5253)+JVS(51997)*UV(5255)+JVS(53634)*UV(5256) - JTUV(3999) = JVS(4362)*UV(1091)+JVS(20033)*UV(3999)+JVS(28019)*UV(4791)+JVS(46836)*UV(5252)+JVS(49088)*UV(5253)& - &+JVS(51998)*UV(5255)+JVS(53635)*UV(5256) - JTUV(4000) = JVS(9357)*UV(2225)+JVS(14816)*UV(3305)+JVS(20045)*UV(4000)+JVS(46837)*UV(5252)+JVS(49089)*UV(5253)& - &+JVS(51999)*UV(5255)+JVS(53636)*UV(5256) - JTUV(4001) = JVS(3410)*UV(854)+JVS(20053)*UV(4001)+JVS(24819)*UV(4495)+JVS(46838)*UV(5252)+JVS(49090)*UV(5253)& - &+JVS(52000)*UV(5255)+JVS(53637)*UV(5256) - JTUV(4002) = JVS(5688)*UV(1421)+JVS(20061)*UV(4002)+JVS(25021)*UV(4509)+JVS(46839)*UV(5252)+JVS(49091)*UV(5253)& - &+JVS(52001)*UV(5255)+JVS(53638)*UV(5256) - JTUV(4003) = JVS(1216)*UV(292)+JVS(5107)*UV(1276)+JVS(9762)*UV(2317)+JVS(16759)*UV(3599)+JVS(20069)*UV(4003)& - &+JVS(20076)*UV(4004)+JVS(46840)*UV(5252)+JVS(49092)*UV(5253)+JVS(52002)*UV(5255)+JVS(53639)*UV(5256) - JTUV(4004) = JVS(20077)*UV(4004)+JVS(29313)*UV(4895)+JVS(29777)*UV(4927)+JVS(32537)*UV(5089)+JVS(33191)*UV(5123)& - &+JVS(36943)*UV(5209)+JVS(37499)*UV(5222)+JVS(39063)*UV(5233)+JVS(52003)*UV(5255) - JTUV(4005) = JVS(8819)*UV(2102)+JVS(15786)*UV(3456)+JVS(20087)*UV(4005)+JVS(46841)*UV(5252)+JVS(49093)*UV(5253)& - &+JVS(52004)*UV(5255)+JVS(53640)*UV(5256) - JTUV(4006) = JVS(3908)*UV(978)+JVS(20095)*UV(4006)+JVS(26881)*UV(4690)+JVS(46842)*UV(5252)+JVS(49094)*UV(5253)& - &+JVS(52005)*UV(5255)+JVS(53641)*UV(5256) - JTUV(4007) = JVS(4008)*UV(1003)+JVS(20103)*UV(4007)+JVS(26670)*UV(4670)+JVS(46843)*UV(5252)+JVS(49095)*UV(5253)& - &+JVS(52006)*UV(5255)+JVS(53642)*UV(5256) - JTUV(4008) = JVS(3366)*UV(843)+JVS(20111)*UV(4008)+JVS(24194)*UV(4437)+JVS(46844)*UV(5252)+JVS(49096)*UV(5253)& - &+JVS(52007)*UV(5255)+JVS(53643)*UV(5256) - JTUV(4009) = JVS(3768)*UV(943)+JVS(20119)*UV(4009)+JVS(23873)*UV(4407)+JVS(46845)*UV(5252)+JVS(49097)*UV(5253)& - &+JVS(52008)*UV(5255)+JVS(53644)*UV(5256) - JTUV(4010) = JVS(20127)*UV(4010)+JVS(20769)*UV(4084)+JVS(24145)*UV(4432)+JVS(26213)*UV(4626)+JVS(27243)*UV(4721)& - &+JVS(28414)*UV(4821)+JVS(36424)*UV(5201)+JVS(40095)*UV(5244)+JVS(43830)*UV(5250)+JVS(45742)*UV(5251)& - &+JVS(52009)*UV(5255)+JVS(53645)*UV(5256)+JVS(54866)*UV(5258) - JTUV(4011) = JVS(3562)*UV(892)+JVS(20132)*UV(4011)+JVS(26680)*UV(4671)+JVS(46846)*UV(5252)+JVS(49098)*UV(5253)& - &+JVS(52010)*UV(5255)+JVS(53646)*UV(5256) - JTUV(4012) = JVS(9098)*UV(2167)+JVS(20145)*UV(4012)+JVS(20172)*UV(4014)+JVS(37500)*UV(5222)+JVS(52011)*UV(5255) - JTUV(4013) = JVS(11245)*UV(2631)+JVS(12321)*UV(2838)+JVS(20157)*UV(4013)+JVS(23068)*UV(4325)+JVS(43833)*UV(5250)& - &+JVS(45743)*UV(5251)+JVS(46848)*UV(5252)+JVS(49100)*UV(5253)+JVS(52012)*UV(5255)+JVS(53648)*UV(5256) - JTUV(4014) = JVS(20173)*UV(4014)+JVS(28097)*UV(4796)+JVS(37501)*UV(5222)+JVS(37881)*UV(5228)+JVS(43834)*UV(5250)& - &+JVS(45744)*UV(5251)+JVS(52013)*UV(5255) - JTUV(4015) = JVS(191)*UV(44)+JVS(5119)*UV(1279)+JVS(20182)*UV(4015)+JVS(46849)*UV(5252)+JVS(49101)*UV(5253)+JVS(52014)& - &*UV(5255)+JVS(53649)*UV(5256) - JTUV(4016) = JVS(4752)*UV(1188)+JVS(20190)*UV(4016)+JVS(24611)*UV(4479)+JVS(46850)*UV(5252)+JVS(49102)*UV(5253)& - &+JVS(52015)*UV(5255)+JVS(53650)*UV(5256) - JTUV(4017) = JVS(14198)*UV(3186)+JVS(20198)*UV(4017)+JVS(23175)*UV(4335)+JVS(26515)*UV(4656)+JVS(28337)*UV(4813)& - &+JVS(29874)*UV(4933)+JVS(35237)*UV(5183)+JVS(36425)*UV(5201)+JVS(43837)*UV(5250)+JVS(45745)*UV(5251)& - &+JVS(52016)*UV(5255)+JVS(53651)*UV(5256)+JVS(54867)*UV(5258) - JTUV(4018) = JVS(14199)*UV(3186)+JVS(20203)*UV(4018)+JVS(23764)*UV(4400)+JVS(25654)*UV(4569)+JVS(26824)*UV(4685)& - &+JVS(30829)*UV(4992)+JVS(35238)*UV(5183)+JVS(36426)*UV(5201)+JVS(43838)*UV(5250)+JVS(45746)*UV(5251)& - &+JVS(52017)*UV(5255)+JVS(53652)*UV(5256)+JVS(54868)*UV(5258) - JTUV(4019) = JVS(1128)*UV(268)+JVS(3788)*UV(948)+JVS(8048)*UV(1941)+JVS(8054)*UV(1942)+JVS(20209)*UV(4019)+JVS(34895)& - &*UV(5177)+JVS(46851)*UV(5252)+JVS(49103)*UV(5253)+JVS(52018)*UV(5255)+JVS(53653)*UV(5256) - JTUV(4020) = JVS(5908)*UV(1476)+JVS(20217)*UV(4020)+JVS(24367)*UV(4453)+JVS(46852)*UV(5252)+JVS(49104)*UV(5253)& - &+JVS(52019)*UV(5255)+JVS(53654)*UV(5256) - JTUV(4021) = JVS(5235)*UV(1308)+JVS(20225)*UV(4021)+JVS(28008)*UV(4790)+JVS(46853)*UV(5252)+JVS(49105)*UV(5253)& - &+JVS(52020)*UV(5255)+JVS(53655)*UV(5256) - JTUV(4022) = JVS(4920)*UV(1230)+JVS(20233)*UV(4022)+JVS(28162)*UV(4798)+JVS(46854)*UV(5252)+JVS(49106)*UV(5253)& - &+JVS(52021)*UV(5255)+JVS(53656)*UV(5256) - JTUV(4023) = JVS(5447)*UV(1361)+JVS(20241)*UV(4023)+JVS(26341)*UV(4639)+JVS(46855)*UV(5252)+JVS(49107)*UV(5253)& - &+JVS(52022)*UV(5255)+JVS(53657)*UV(5256) - JTUV(4024) = JVS(10520)*UV(2488)+JVS(20250)*UV(4024)+JVS(37882)*UV(5228)+JVS(39064)*UV(5233)+JVS(45747)*UV(5251)& - &+JVS(52023)*UV(5255) - JTUV(4025) = JVS(2158)*UV(555)+JVS(8769)*UV(2091)+JVS(20260)*UV(4025)+JVS(46856)*UV(5252)+JVS(49108)*UV(5253)& - &+JVS(52024)*UV(5255)+JVS(53658)*UV(5256) - JTUV(4026) = JVS(11365)*UV(2652)+JVS(13194)*UV(2998)+JVS(20269)*UV(4026)+JVS(36215)*UV(5199)+JVS(43846)*UV(5250)& - &+JVS(45749)*UV(5251)+JVS(46857)*UV(5252)+JVS(49109)*UV(5253)+JVS(52025)*UV(5255)+JVS(53659)*UV(5256) - JTUV(4027) = JVS(20276)*UV(4027)+JVS(20770)*UV(4084)+JVS(25435)*UV(4547)+JVS(28234)*UV(4803)+JVS(29361)*UV(4899)& - &+JVS(30176)*UV(4948)+JVS(36427)*UV(5201)+JVS(40097)*UV(5244)+JVS(43847)*UV(5250)+JVS(45750)*UV(5251)& - &+JVS(52026)*UV(5255)+JVS(53660)*UV(5256)+JVS(54869)*UV(5258) - JTUV(4028) = JVS(518)*UV(135)+JVS(5808)*UV(1451)+JVS(15692)*UV(3435)+JVS(20282)*UV(4028)+JVS(30207)*UV(4950)& - &+JVS(46858)*UV(5252)+JVS(49110)*UV(5253)+JVS(52027)*UV(5255)+JVS(53661)*UV(5256) - JTUV(4029) = JVS(10444)*UV(2471)+JVS(20289)*UV(4029)+JVS(29656)*UV(4918)+JVS(37988)*UV(5229)+JVS(45751)*UV(5251)& - &+JVS(52028)*UV(5255) - JTUV(4030) = JVS(1447)*UV(358)+JVS(3142)*UV(787)+JVS(9264)*UV(2204)+JVS(9667)*UV(2295)+JVS(20298)*UV(4030)+JVS(46859)& - &*UV(5252)+JVS(49111)*UV(5253)+JVS(52029)*UV(5255)+JVS(53662)*UV(5256) - JTUV(4031) = JVS(5175)*UV(1293)+JVS(11917)*UV(2758)+JVS(20306)*UV(4031)+JVS(46860)*UV(5252)+JVS(49112)*UV(5253)& - &+JVS(52030)*UV(5255)+JVS(53663)*UV(5256) - JTUV(4032) = JVS(20312)*UV(4032)+JVS(20746)*UV(4081)+JVS(26361)*UV(4641)+JVS(26639)*UV(4667)+JVS(27058)*UV(4701)& - &+JVS(27244)*UV(4721)+JVS(35239)*UV(5183)+JVS(36428)*UV(5201)+JVS(43852)*UV(5250)+JVS(45753)*UV(5251)& - &+JVS(52031)*UV(5255)+JVS(53664)*UV(5256)+JVS(54870)*UV(5258) - JTUV(4033) = JVS(4974)*UV(1243)+JVS(20317)*UV(4033)+JVS(24542)*UV(4471)+JVS(46861)*UV(5252)+JVS(49113)*UV(5253)& - &+JVS(52032)*UV(5255)+JVS(53665)*UV(5256) - JTUV(4034) = JVS(4242)*UV(1061)+JVS(20325)*UV(4034)+JVS(28302)*UV(4810)+JVS(46862)*UV(5252)+JVS(49114)*UV(5253)& - &+JVS(52033)*UV(5255)+JVS(53666)*UV(5256) - JTUV(4035) = JVS(3370)*UV(844)+JVS(20333)*UV(4035)+JVS(23786)*UV(4402)+JVS(46863)*UV(5252)+JVS(49115)*UV(5253)& - &+JVS(52034)*UV(5255)+JVS(53667)*UV(5256) - JTUV(4036) = JVS(4884)*UV(1221)+JVS(20341)*UV(4036)+JVS(28152)*UV(4797)+JVS(46864)*UV(5252)+JVS(49116)*UV(5253)& - &+JVS(52035)*UV(5255)+JVS(53668)*UV(5256) - JTUV(4037) = JVS(4908)*UV(1227)+JVS(20349)*UV(4037)+JVS(24809)*UV(4494)+JVS(46865)*UV(5252)+JVS(49117)*UV(5253)& - &+JVS(52036)*UV(5255)+JVS(53669)*UV(5256) - JTUV(4038) = JVS(6641)*UV(1645)+JVS(15326)*UV(3385)+JVS(20360)*UV(4038)+JVS(46866)*UV(5252)+JVS(49118)*UV(5253)& - &+JVS(52037)*UV(5255)+JVS(53670)*UV(5256) - JTUV(4039) = JVS(5467)*UV(1366)+JVS(20368)*UV(4039)+JVS(26738)*UV(4676)+JVS(46867)*UV(5252)+JVS(49119)*UV(5253)& - &+JVS(52038)*UV(5255)+JVS(53671)*UV(5256) - JTUV(4040) = JVS(5812)*UV(1452)+JVS(20376)*UV(4040)+JVS(26794)*UV(4682)+JVS(46868)*UV(5252)+JVS(49120)*UV(5253)& - &+JVS(52039)*UV(5255)+JVS(53672)*UV(5256) - JTUV(4041) = JVS(10045)*UV(2379)+JVS(15871)*UV(3474)+JVS(20388)*UV(4041)+JVS(46869)*UV(5252)+JVS(49121)*UV(5253)& - &+JVS(52040)*UV(5255)+JVS(53673)*UV(5256) - JTUV(4042) = JVS(379)*UV(96)+JVS(5592)*UV(1397)+JVS(20402)*UV(4042)+JVS(46870)*UV(5252)+JVS(49122)*UV(5253)+JVS(52041)& - &*UV(5255)+JVS(53674)*UV(5256) - JTUV(4043) = JVS(572)*UV(149)+JVS(1838)*UV(467)+JVS(3314)*UV(830)+JVS(6698)*UV(1656)+JVS(6702)*UV(1657)+JVS(20411)& - &*UV(4043)+JVS(46871)*UV(5252)+JVS(49123)*UV(5253)+JVS(52042)*UV(5255)+JVS(53675)*UV(5256) - JTUV(4044) = JVS(3796)*UV(950)+JVS(20419)*UV(4044)+JVS(27986)*UV(4788)+JVS(46872)*UV(5252)+JVS(49124)*UV(5253)& - &+JVS(52043)*UV(5255)+JVS(53676)*UV(5256) - JTUV(4045) = JVS(7404)*UV(1805)+JVS(20432)*UV(4045)+JVS(20454)*UV(4047)+JVS(39065)*UV(5233)+JVS(52044)*UV(5255) - JTUV(4046) = JVS(10785)*UV(2541)+JVS(11953)*UV(2765)+JVS(20444)*UV(4046)+JVS(21782)*UV(4199)+JVS(43866)*UV(5250)& - &+JVS(45754)*UV(5251)+JVS(46874)*UV(5252)+JVS(49126)*UV(5253)+JVS(52045)*UV(5255)+JVS(53678)*UV(5256) - JTUV(4047) = JVS(20455)*UV(4047)+JVS(20599)*UV(4062)+JVS(28098)*UV(4796)+JVS(35240)*UV(5183)+JVS(43867)*UV(5250)& - &+JVS(45755)*UV(5251)+JVS(52046)*UV(5255) - JTUV(4048) = JVS(20466)*UV(4048)+JVS(28163)*UV(4798)+JVS(36429)*UV(5201)+JVS(43868)*UV(5250)+JVS(53679)*UV(5256) - JTUV(4049) = JVS(5720)*UV(1429)+JVS(20477)*UV(4049)+JVS(25066)*UV(4514)+JVS(46875)*UV(5252)+JVS(49127)*UV(5253)& - &+JVS(52047)*UV(5255)+JVS(53680)*UV(5256) - JTUV(4050) = JVS(9922)*UV(2353)+JVS(15812)*UV(3461)+JVS(20487)*UV(4050)+JVS(46876)*UV(5252)+JVS(49128)*UV(5253)& - &+JVS(52048)*UV(5255)+JVS(53681)*UV(5256) - JTUV(4051) = JVS(4302)*UV(1076)+JVS(14806)*UV(3303)+JVS(20488)*UV(4050)+JVS(20503)*UV(4051)+JVS(43871)*UV(5250)& - &+JVS(46877)*UV(5252)+JVS(49129)*UV(5253)+JVS(52049)*UV(5255)+JVS(53682)*UV(5256) - JTUV(4052) = JVS(3804)*UV(952)+JVS(20514)*UV(4052)+JVS(21638)*UV(4184)+JVS(46878)*UV(5252)+JVS(49130)*UV(5253)& - &+JVS(52050)*UV(5255)+JVS(53683)*UV(5256) - JTUV(4053) = JVS(12143)*UV(2803)+JVS(20524)*UV(4053)+JVS(33502)*UV(5136)+JVS(43873)*UV(5250)+JVS(45757)*UV(5251)& - &+JVS(52051)*UV(5255) - JTUV(4054) = JVS(4064)*UV(1017)+JVS(20532)*UV(4054)+JVS(23935)*UV(4413)+JVS(46879)*UV(5252)+JVS(49131)*UV(5253)& - &+JVS(52052)*UV(5255)+JVS(53684)*UV(5256) - JTUV(4055) = JVS(2031)*UV(523)+JVS(5243)*UV(1310)+JVS(10006)*UV(2372)+JVS(13639)*UV(3082)+JVS(14945)*UV(3332)& - &+JVS(20540)*UV(4055)+JVS(46880)*UV(5252)+JVS(49132)*UV(5253)+JVS(52053)*UV(5255)+JVS(53685)*UV(5256) - JTUV(4056) = JVS(20546)*UV(4056)+JVS(20771)*UV(4084)+JVS(24664)*UV(4483)+JVS(27207)*UV(4718)+JVS(27344)*UV(4729)& - &+JVS(29283)*UV(4892)+JVS(36430)*UV(5201)+JVS(40099)*UV(5244)+JVS(43876)*UV(5250)+JVS(45758)*UV(5251)& - &+JVS(52054)*UV(5255)+JVS(53686)*UV(5256)+JVS(54871)*UV(5258) - JTUV(4057) = JVS(5179)*UV(1294)+JVS(20551)*UV(4057)+JVS(24377)*UV(4454)+JVS(46881)*UV(5252)+JVS(49133)*UV(5253)& - &+JVS(52055)*UV(5255)+JVS(53687)*UV(5256) - JTUV(4058) = JVS(1410)*UV(346)+JVS(6219)*UV(1552)+JVS(7897)*UV(1907)+JVS(10214)*UV(2419)+JVS(20561)*UV(4058)& - &+JVS(24883)*UV(4501)+JVS(46882)*UV(5252)+JVS(49134)*UV(5253)+JVS(52056)*UV(5255)+JVS(53688)*UV(5256) - JTUV(4059) = JVS(1832)*UV(465)+JVS(4502)*UV(1126)+JVS(8679)*UV(2072)+JVS(8685)*UV(2073)+JVS(20570)*UV(4059)+JVS(35574)& - &*UV(5189)+JVS(46883)*UV(5252)+JVS(49135)*UV(5253)+JVS(52057)*UV(5255)+JVS(53689)*UV(5256) - JTUV(4060) = JVS(1316)*UV(319)+JVS(9048)*UV(2156)+JVS(10397)*UV(2461)+JVS(15030)*UV(3344)+JVS(16982)*UV(3626)& - &+JVS(20583)*UV(4060)+JVS(46884)*UV(5252)+JVS(49136)*UV(5253)+JVS(52058)*UV(5255)+JVS(53690)*UV(5256) - JTUV(4061) = JVS(3422)*UV(857)+JVS(20591)*UV(4061)+JVS(26274)*UV(4632)+JVS(46885)*UV(5252)+JVS(49137)*UV(5253)& - &+JVS(52059)*UV(5255)+JVS(53691)*UV(5256) - JTUV(4062) = JVS(10445)*UV(2471)+JVS(20600)*UV(4062)+JVS(33645)*UV(5139)+JVS(33782)*UV(5142)+JVS(45760)*UV(5251)& - &+JVS(52060)*UV(5255) - JTUV(4063) = JVS(5215)*UV(1303)+JVS(20608)*UV(4063)+JVS(24406)*UV(4457)+JVS(46886)*UV(5252)+JVS(49138)*UV(5253)& - &+JVS(52061)*UV(5255)+JVS(53692)*UV(5256) - JTUV(4064) = JVS(5804)*UV(1450)+JVS(20616)*UV(4064)+JVS(24861)*UV(4499)+JVS(46887)*UV(5252)+JVS(49139)*UV(5253)& - &+JVS(52062)*UV(5255)+JVS(53693)*UV(5256) - JTUV(4065) = JVS(6163)*UV(1539)+JVS(20624)*UV(4065)+JVS(24493)*UV(4466)+JVS(46888)*UV(5252)+JVS(49140)*UV(5253)& - &+JVS(52063)*UV(5255)+JVS(53694)*UV(5256) - JTUV(4066) = JVS(6435)*UV(1603)+JVS(8296)*UV(1991)+JVS(20631)*UV(4066)+JVS(43886)*UV(5250)+JVS(52064)*UV(5255) - JTUV(4067) = JVS(5712)*UV(1427)+JVS(20637)*UV(4067)+JVS(28902)*UV(4859)+JVS(46889)*UV(5252)+JVS(49142)*UV(5253)& - &+JVS(52065)*UV(5255)+JVS(53695)*UV(5256) - JTUV(4068) = JVS(353)*UV(89)+JVS(5728)*UV(1431)+JVS(15708)*UV(3439)+JVS(15715)*UV(3440)+JVS(20646)*UV(4068)+JVS(46890)& - &*UV(5252)+JVS(49143)*UV(5253)+JVS(52066)*UV(5255)+JVS(53696)*UV(5256) - JTUV(4069) = JVS(1601)*UV(402)+JVS(3076)*UV(773)+JVS(7588)*UV(1840)+JVS(16338)*UV(3543)+JVS(20655)*UV(4069)+JVS(46891)& - &*UV(5252)+JVS(49144)*UV(5253)+JVS(52067)*UV(5255)+JVS(53697)*UV(5256) - JTUV(4070) = JVS(3198)*UV(801)+JVS(7055)*UV(1735)+JVS(7364)*UV(1797)+JVS(11543)*UV(2690)+JVS(20662)*UV(4070)& - &+JVS(46892)*UV(5252)+JVS(49145)*UV(5253)+JVS(52068)*UV(5255)+JVS(53698)*UV(5256) - JTUV(4071) = JVS(10446)*UV(2471)+JVS(20668)*UV(4071)+JVS(37504)*UV(5222)+JVS(37885)*UV(5228)+JVS(45764)*UV(5251)& - &+JVS(52069)*UV(5255) - JTUV(4072) = JVS(5816)*UV(1453)+JVS(20676)*UV(4072)+JVS(26585)*UV(4663)+JVS(46893)*UV(5252)+JVS(49146)*UV(5253)& - &+JVS(52070)*UV(5255)+JVS(53699)*UV(5256) - JTUV(4073) = JVS(4608)*UV(1152)+JVS(20684)*UV(4073)+JVS(24711)*UV(4487)+JVS(46894)*UV(5252)+JVS(49147)*UV(5253)& - &+JVS(52071)*UV(5255)+JVS(53700)*UV(5256) - JTUV(4074) = JVS(230)*UV(54)+JVS(6147)*UV(1535)+JVS(15737)*UV(3445)+JVS(20693)*UV(4074)+JVS(21559)*UV(4177)+JVS(46895)& - &*UV(5252)+JVS(49148)*UV(5253)+JVS(52072)*UV(5255)+JVS(53701)*UV(5256) - JTUV(4075) = JVS(5680)*UV(1419)+JVS(20699)*UV(4075)+JVS(23883)*UV(4408)+JVS(46896)*UV(5252)+JVS(49149)*UV(5253)& - &+JVS(52073)*UV(5255)+JVS(53702)*UV(5256) - JTUV(4076) = JVS(2966)*UV(746)+JVS(9913)*UV(2351)+JVS(20709)*UV(4076)+JVS(46897)*UV(5252)+JVS(49150)*UV(5253)& - &+JVS(52074)*UV(5255)+JVS(53703)*UV(5256) - JTUV(4077) = JVS(349)*UV(88)+JVS(1413)*UV(347)+JVS(2308)*UV(593)+JVS(2311)*UV(594)+JVS(20717)*UV(4077)+JVS(46898)& - &*UV(5252)+JVS(49151)*UV(5253)+JVS(52075)*UV(5255)+JVS(53704)*UV(5256) - JTUV(4078) = JVS(603)*UV(154)+JVS(1404)*UV(344)+JVS(2917)*UV(735)+JVS(2920)*UV(736)+JVS(4226)*UV(1057)+JVS(20726)& - &*UV(4078)+JVS(46899)*UV(5252)+JVS(49152)*UV(5253)+JVS(52076)*UV(5255)+JVS(53705)*UV(5256) - JTUV(4079) = JVS(4498)*UV(1125)+JVS(20734)*UV(4079)+JVS(25242)*UV(4531)+JVS(46900)*UV(5252)+JVS(49153)*UV(5253)& - &+JVS(52077)*UV(5255)+JVS(53706)*UV(5256) - JTUV(4080) = JVS(20742)*UV(4080)+JVS(20747)*UV(4081)+JVS(21186)*UV(4132)+JVS(27289)*UV(4725)+JVS(27345)*UV(4729)& - &+JVS(29336)*UV(4897)+JVS(35242)*UV(5183)+JVS(36432)*UV(5201)+JVS(43900)*UV(5250)+JVS(45766)*UV(5251)& - &+JVS(52078)*UV(5255)+JVS(53707)*UV(5256)+JVS(54872)*UV(5258) - JTUV(4081) = JVS(20748)*UV(4081)+JVS(32184)*UV(5070)+JVS(35243)*UV(5183)+JVS(35642)*UV(5191)+JVS(43901)*UV(5250)& - &+JVS(45767)*UV(5251)+JVS(52079)*UV(5255) - JTUV(4082) = JVS(4624)*UV(1156)+JVS(20756)*UV(4082)+JVS(24204)*UV(4438)+JVS(46901)*UV(5252)+JVS(49154)*UV(5253)& - &+JVS(52080)*UV(5255)+JVS(53708)*UV(5256) - JTUV(4083) = JVS(20764)*UV(4083)+JVS(20772)*UV(4084)+JVS(26899)*UV(4692)+JVS(27043)*UV(4699)+JVS(27346)*UV(4729)& - &+JVS(29294)*UV(4893)+JVS(36433)*UV(5201)+JVS(40100)*UV(5244)+JVS(43903)*UV(5250)+JVS(45768)*UV(5251)& - &+JVS(52081)*UV(5255)+JVS(53709)*UV(5256)+JVS(54873)*UV(5258) - JTUV(4084) = JVS(20773)*UV(4084)+JVS(32802)*UV(5102)+JVS(35859)*UV(5193)+JVS(40101)*UV(5244)+JVS(43904)*UV(5250)& - &+JVS(45769)*UV(5251)+JVS(52082)*UV(5255) - JTUV(4085) = JVS(3402)*UV(852)+JVS(20781)*UV(4085)+JVS(24914)*UV(4504)+JVS(46902)*UV(5252)+JVS(49155)*UV(5253)& - &+JVS(52083)*UV(5255)+JVS(53710)*UV(5256) - JTUV(4086) = JVS(10447)*UV(2471)+JVS(20790)*UV(4086)+JVS(29842)*UV(4931)+JVS(33922)*UV(5145)+JVS(45770)*UV(5251)& - &+JVS(52084)*UV(5255) - JTUV(4087) = JVS(5784)*UV(1445)+JVS(7613)*UV(1846)+JVS(7619)*UV(1847)+JVS(20798)*UV(4087)+JVS(46903)*UV(5252)& - &+JVS(49156)*UV(5253)+JVS(52085)*UV(5255)+JVS(53711)*UV(5256) - JTUV(4088) = JVS(801)*UV(187)+JVS(1056)*UV(248)+JVS(5147)*UV(1286)+JVS(6570)*UV(1628)+JVS(6574)*UV(1629)+JVS(20807)& - &*UV(4088)+JVS(46904)*UV(5252)+JVS(49157)*UV(5253)+JVS(52086)*UV(5255)+JVS(53712)*UV(5256) - JTUV(4089) = JVS(2007)*UV(516)+JVS(4234)*UV(1059)+JVS(9797)*UV(2324)+JVS(10401)*UV(2462)+JVS(10488)*UV(2480)& - &+JVS(20818)*UV(4089)+JVS(46905)*UV(5252)+JVS(49158)*UV(5253)+JVS(52087)*UV(5255)+JVS(53713)*UV(5256) - JTUV(4090) = JVS(406)*UV(104)+JVS(3644)*UV(912)+JVS(8215)*UV(1975)+JVS(12564)*UV(2888)+JVS(20826)*UV(4090)+JVS(46906)& - &*UV(5252)+JVS(49159)*UV(5253)+JVS(52088)*UV(5255)+JVS(53714)*UV(5256) - JTUV(4091) = JVS(375)*UV(95)+JVS(4966)*UV(1241)+JVS(10196)*UV(2415)+JVS(11225)*UV(2626)+JVS(20833)*UV(4091)+JVS(46907)& - &*UV(5252)+JVS(49160)*UV(5253)+JVS(52089)*UV(5255)+JVS(53715)*UV(5256) - JTUV(4092) = JVS(120)*UV(24)+JVS(4588)*UV(1147)+JVS(5247)*UV(1311)+JVS(6305)*UV(1572)+JVS(20846)*UV(4092)+JVS(46908)& - &*UV(5252)+JVS(49161)*UV(5253)+JVS(52090)*UV(5255)+JVS(53716)*UV(5256) - JTUV(4093) = JVS(14312)*UV(3210)+JVS(20854)*UV(4093)+JVS(26304)*UV(4635)+JVS(26727)*UV(4675)+JVS(27245)*UV(4721)& - &+JVS(29787)*UV(4928)+JVS(32896)*UV(5106)+JVS(36434)*UV(5201)+JVS(43913)*UV(5250)+JVS(45771)*UV(5251)& - &+JVS(52091)*UV(5255)+JVS(53717)*UV(5256)+JVS(54874)*UV(5258) - JTUV(4094) = JVS(9015)*UV(2148)+JVS(20859)*UV(4094)+JVS(23538)*UV(4377)+JVS(26805)*UV(4683)+JVS(27246)*UV(4721)& - &+JVS(28504)*UV(4829)+JVS(33256)*UV(5125)+JVS(36435)*UV(5201)+JVS(43914)*UV(5250)+JVS(45772)*UV(5251)& - &+JVS(52092)*UV(5255)+JVS(53718)*UV(5256)+JVS(54875)*UV(5258) - JTUV(4095) = JVS(2377)*UV(610)+JVS(11190)*UV(2618)+JVS(20864)*UV(4095)+JVS(46909)*UV(5252)+JVS(49162)*UV(5253)& - &+JVS(52093)*UV(5255)+JVS(53719)*UV(5256) - JTUV(4096) = JVS(2170)*UV(558)+JVS(15907)*UV(3479)+JVS(20870)*UV(4096)+JVS(30315)*UV(4958)+JVS(34822)*UV(5173)& - &+JVS(38435)*UV(5231)+JVS(43916)*UV(5250)+JVS(54876)*UV(5258) - JTUV(4097) = JVS(3582)*UV(897)+JVS(9882)*UV(2343)+JVS(13354)*UV(3030)+JVS(20876)*UV(4097)+JVS(46910)*UV(5252)& - &+JVS(49163)*UV(5253)+JVS(52095)*UV(5255)+JVS(53720)*UV(5256) - JTUV(4098) = JVS(1701)*UV(430)+JVS(4724)*UV(1181)+JVS(7169)*UV(1756)+JVS(12577)*UV(2890)+JVS(20886)*UV(4098)& - &+JVS(46911)*UV(5252)+JVS(49164)*UV(5253)+JVS(52096)*UV(5255)+JVS(53721)*UV(5256) - JTUV(4099) = JVS(152)*UV(34)+JVS(1758)*UV(445)+JVS(4828)*UV(1207)+JVS(10747)*UV(2534)+JVS(20894)*UV(4099)+JVS(46912)& - &*UV(5252)+JVS(49165)*UV(5253)+JVS(52097)*UV(5255)+JVS(53722)*UV(5256) - JTUV(4100) = JVS(1393)*UV(341)+JVS(4004)*UV(1002)+JVS(14402)*UV(3229)+JVS(20088)*UV(4005)+JVS(20903)*UV(4100)& - &+JVS(43920)*UV(5250)+JVS(46913)*UV(5252)+JVS(49166)*UV(5253)+JVS(52098)*UV(5255)+JVS(53723)*UV(5256)& - &+JVS(54877)*UV(5258) - JTUV(4101) = JVS(5708)*UV(1426)+JVS(15438)*UV(3400)+JVS(20914)*UV(4101)+JVS(46914)*UV(5252)+JVS(49167)*UV(5253)& - &+JVS(52099)*UV(5255)+JVS(53724)*UV(5256) - JTUV(4102) = JVS(8246)*UV(1982)+JVS(12633)*UV(2901)+JVS(20924)*UV(4102)+JVS(25954)*UV(4602)+JVS(35244)*UV(5183)& - &+JVS(43922)*UV(5250)+JVS(46915)*UV(5252)+JVS(49168)*UV(5253)+JVS(52100)*UV(5255)+JVS(53725)*UV(5256) - JTUV(4103) = JVS(3207)*UV(803)+JVS(20935)*UV(4103)+JVS(27167)*UV(4713)+JVS(33483)*UV(5135)+JVS(35245)*UV(5183)& - &+JVS(43923)*UV(5250)+JVS(52101)*UV(5255) - JTUV(4104) = JVS(20948)*UV(4104)+JVS(29395)*UV(4902)+JVS(36132)*UV(5197)+JVS(38831)*UV(5232)+JVS(43924)*UV(5250)& - &+JVS(52102)*UV(5255) - JTUV(4105) = JVS(2370)*UV(608)+JVS(6237)*UV(1556)+JVS(9489)*UV(2255)+JVS(14747)*UV(3291)+JVS(20960)*UV(4105)& - &+JVS(46916)*UV(5252)+JVS(49169)*UV(5253)+JVS(52103)*UV(5255)+JVS(53726)*UV(5256) - JTUV(4106) = JVS(14583)*UV(3259)+JVS(14691)*UV(3281)+JVS(20967)*UV(4106)+JVS(46917)*UV(5252)+JVS(49170)*UV(5253)& - &+JVS(52104)*UV(5255)+JVS(53727)*UV(5256) - JTUV(4107) = JVS(841)*UV(194)+JVS(1564)*UV(391)+JVS(20973)*UV(4107)+JVS(36866)*UV(5205)+JVS(37293)*UV(5218)+JVS(43927)& - &*UV(5250) - JTUV(4108) = JVS(13155)*UV(2992)+JVS(20979)*UV(4108)+JVS(24357)*UV(4452)+JVS(34399)*UV(5160)+JVS(36437)*UV(5201)& - &+JVS(43928)*UV(5250)+JVS(45780)*UV(5251)+JVS(49171)*UV(5253)+JVS(52106)*UV(5255)+JVS(53729)*UV(5256) - JTUV(4109) = JVS(20992)*UV(4109)+JVS(30017)*UV(4939)+JVS(38832)*UV(5232)+JVS(39610)*UV(5241)+JVS(43929)*UV(5250)& - &+JVS(52107)*UV(5255) - JTUV(4110) = JVS(21006)*UV(4110)+JVS(21153)*UV(4128)+JVS(26241)*UV(4629)+JVS(33990)*UV(5148)+JVS(36438)*UV(5201)& - &+JVS(43930)*UV(5250)+JVS(45781)*UV(5251)+JVS(52108)*UV(5255)+JVS(53730)*UV(5256) - JTUV(4111) = JVS(3358)*UV(841)+JVS(4214)*UV(1054)+JVS(4688)*UV(1172)+JVS(11988)*UV(2771)+JVS(21012)*UV(4111)& - &+JVS(32584)*UV(5093)+JVS(46918)*UV(5252)+JVS(49172)*UV(5253)+JVS(52109)*UV(5255)+JVS(53731)*UV(5256) - JTUV(4112) = JVS(5155)*UV(1288)+JVS(8519)*UV(2037)+JVS(10592)*UV(2502)+JVS(21019)*UV(4112)+JVS(46919)*UV(5252)& - &+JVS(49173)*UV(5253)+JVS(52110)*UV(5255)+JVS(53732)*UV(5256) - JTUV(4113) = JVS(2668)*UV(678)+JVS(6720)*UV(1661)+JVS(21025)*UV(4113)+JVS(33101)*UV(5118)+JVS(37318)*UV(5220)& - &+JVS(43933)*UV(5250) - JTUV(4114) = JVS(78)*UV(11)+JVS(21032)*UV(4114)+JVS(25148)*UV(4522)+JVS(34934)*UV(5178)+JVS(36440)*UV(5201)+JVS(43934)& - &*UV(5250)+JVS(45783)*UV(5251)+JVS(49174)*UV(5253)+JVS(52112)*UV(5255)+JVS(53734)*UV(5256) - JTUV(4115) = JVS(3426)*UV(858)+JVS(13518)*UV(3062)+JVS(21040)*UV(4115)+JVS(46920)*UV(5252)+JVS(49175)*UV(5253)& - &+JVS(52113)*UV(5255)+JVS(53735)*UV(5256) - JTUV(4116) = JVS(2111)*UV(544)+JVS(10287)*UV(2437)+JVS(16786)*UV(3602)+JVS(21048)*UV(4116)+JVS(23690)*UV(4392)& - &+JVS(46921)*UV(5252)+JVS(49176)*UV(5253)+JVS(52114)*UV(5255)+JVS(53736)*UV(5256) - JTUV(4117) = JVS(2054)*UV(530)+JVS(6115)*UV(1527)+JVS(10980)*UV(2578)+JVS(21055)*UV(4117)+JVS(46922)*UV(5252)& - &+JVS(49177)*UV(5253)+JVS(52115)*UV(5255)+JVS(53737)*UV(5256) - JTUV(4118) = JVS(5987)*UV(1495)+JVS(11552)*UV(2692)+JVS(21064)*UV(4118)+JVS(46923)*UV(5252)+JVS(49178)*UV(5253)& - &+JVS(52116)*UV(5255)+JVS(53738)*UV(5256) - JTUV(4119) = JVS(1929)*UV(493)+JVS(5471)*UV(1367)+JVS(10379)*UV(2457)+JVS(11237)*UV(2629)+JVS(21074)*UV(4119)& - &+JVS(46924)*UV(5252)+JVS(49179)*UV(5253)+JVS(52117)*UV(5255)+JVS(53739)*UV(5256) - JTUV(4120) = JVS(1888)*UV(482)+JVS(4072)*UV(1019)+JVS(9291)*UV(2209)+JVS(12600)*UV(2894)+JVS(21084)*UV(4120)& - &+JVS(46925)*UV(5252)+JVS(49180)*UV(5253)+JVS(52118)*UV(5255)+JVS(53740)*UV(5256) - JTUV(4121) = JVS(512)*UV(133)+JVS(3916)*UV(980)+JVS(8153)*UV(1962)+JVS(12325)*UV(2839)+JVS(21092)*UV(4121)+JVS(46926)& - &*UV(5252)+JVS(49181)*UV(5253)+JVS(52119)*UV(5255)+JVS(53741)*UV(5256) - JTUV(4122) = JVS(3061)*UV(769)+JVS(21103)*UV(4122)+JVS(22507)*UV(4270)+JVS(27160)*UV(4712)+JVS(35247)*UV(5183)& - &+JVS(43942)*UV(5250)+JVS(52120)*UV(5255) - JTUV(4123) = JVS(7827)*UV(1892)+JVS(14351)*UV(3217)+JVS(21111)*UV(4123)+JVS(46927)*UV(5252)+JVS(49182)*UV(5253)& - &+JVS(52121)*UV(5255)+JVS(53742)*UV(5256) - JTUV(4124) = JVS(1474)*UV(366)+JVS(1779)*UV(450)+JVS(3720)*UV(931)+JVS(12591)*UV(2892)+JVS(21118)*UV(4124)+JVS(46928)& - &*UV(5252)+JVS(49183)*UV(5253)+JVS(52122)*UV(5255)+JVS(53743)*UV(5256) - JTUV(4125) = JVS(7426)*UV(1810)+JVS(21128)*UV(4125)+JVS(30989)*UV(5001)+JVS(37507)*UV(5222)+JVS(43945)*UV(5250)& - &+JVS(45788)*UV(5251)+JVS(52123)*UV(5255) - JTUV(4126) = JVS(2713)*UV(689)+JVS(6706)*UV(1658)+JVS(10110)*UV(2395)+JVS(14731)*UV(3287)+JVS(21139)*UV(4126)& - &+JVS(46929)*UV(5252)+JVS(49184)*UV(5253)+JVS(52124)*UV(5255)+JVS(53744)*UV(5256) - JTUV(4127) = JVS(921)*UV(208)+JVS(6225)*UV(1553)+JVS(7028)*UV(1728)+JVS(11460)*UV(2672)+JVS(11896)*UV(2753)+JVS(21147)& - &*UV(4127)+JVS(46930)*UV(5252)+JVS(49185)*UV(5253)+JVS(52125)*UV(5255)+JVS(53745)*UV(5256) - JTUV(4128) = JVS(2154)*UV(554)+JVS(4852)*UV(1213)+JVS(9492)*UV(2256)+JVS(13273)*UV(3013)+JVS(21154)*UV(4128)& - &+JVS(22595)*UV(4279)+JVS(46931)*UV(5252)+JVS(49186)*UV(5253)+JVS(52126)*UV(5255)+JVS(53746)*UV(5256) - JTUV(4129) = JVS(3114)*UV(781)+JVS(11186)*UV(2617)+JVS(21161)*UV(4129)+JVS(46932)*UV(5252)+JVS(49187)*UV(5253)& - &+JVS(52127)*UV(5255)+JVS(53747)*UV(5256) - JTUV(4130) = JVS(1616)*UV(406)+JVS(3262)*UV(817)+JVS(10300)*UV(2440)+JVS(15417)*UV(3397)+JVS(21170)*UV(4130)& - &+JVS(46933)*UV(5252)+JVS(49188)*UV(5253)+JVS(52128)*UV(5255)+JVS(53748)*UV(5256) - JTUV(4131) = JVS(1168)*UV(279)+JVS(3081)*UV(774)+JVS(8130)*UV(1958)+JVS(15172)*UV(3365)+JVS(21178)*UV(4131)+JVS(46934)& - &*UV(5252)+JVS(49189)*UV(5253)+JVS(52129)*UV(5255)+JVS(53749)*UV(5256) - JTUV(4132) = JVS(5624)*UV(1405)+JVS(5896)*UV(1473)+JVS(12911)*UV(2950)+JVS(21187)*UV(4132)+JVS(29337)*UV(4897)& - &+JVS(43952)*UV(5250)+JVS(49190)*UV(5253)+JVS(52130)*UV(5255)+JVS(53750)*UV(5256)+JVS(54878)*UV(5258) - JTUV(4133) = JVS(224)*UV(52)+JVS(5950)*UV(1486)+JVS(11131)*UV(2605)+JVS(21195)*UV(4133)+JVS(31463)*UV(5030)+JVS(46935)& - &*UV(5252)+JVS(49191)*UV(5253)+JVS(52131)*UV(5255)+JVS(53751)*UV(5256) - JTUV(4134) = JVS(3984)*UV(997)+JVS(12656)*UV(2905)+JVS(21201)*UV(4134)+JVS(46936)*UV(5252)+JVS(49192)*UV(5253)& - &+JVS(52132)*UV(5255)+JVS(53752)*UV(5256) - JTUV(4135) = JVS(2416)*UV(619)+JVS(6501)*UV(1615)+JVS(8438)*UV(2022)+JVS(8985)*UV(2141)+JVS(21208)*UV(4135)+JVS(46937)& - &*UV(5252)+JVS(49193)*UV(5253)+JVS(52133)*UV(5255)+JVS(53753)*UV(5256) - JTUV(4136) = JVS(3203)*UV(802)+JVS(6792)*UV(1678)+JVS(7343)*UV(1793)+JVS(16433)*UV(3557)+JVS(21216)*UV(4136)& - &+JVS(46938)*UV(5252)+JVS(49194)*UV(5253)+JVS(52134)*UV(5255)+JVS(53754)*UV(5256) - JTUV(4137) = JVS(3003)*UV(754)+JVS(7004)*UV(1724)+JVS(9311)*UV(2214)+JVS(12869)*UV(2942)+JVS(21226)*UV(4137)& - &+JVS(46939)*UV(5252)+JVS(49195)*UV(5253)+JVS(52135)*UV(5255)+JVS(53755)*UV(5256) - JTUV(4138) = JVS(9251)*UV(2201)+JVS(12796)*UV(2930)+JVS(21235)*UV(4138)+JVS(46940)*UV(5252)+JVS(49196)*UV(5253)& - &+JVS(52136)*UV(5255)+JVS(53756)*UV(5256) - JTUV(4139) = JVS(1961)*UV(503)+JVS(6155)*UV(1537)+JVS(14872)*UV(3318)+JVS(20046)*UV(4000)+JVS(21244)*UV(4139)& - &+JVS(43959)*UV(5250)+JVS(46941)*UV(5252)+JVS(49197)*UV(5253)+JVS(52137)*UV(5255)+JVS(53757)*UV(5256)& - &+JVS(54879)*UV(5258) - JTUV(4140) = JVS(4286)*UV(1072)+JVS(8221)*UV(1976)+JVS(12285)*UV(2831)+JVS(21251)*UV(4140)+JVS(46942)*UV(5252)& - &+JVS(49198)*UV(5253)+JVS(52138)*UV(5255)+JVS(53758)*UV(5256) - JTUV(4141) = JVS(2591)*UV(659)+JVS(4350)*UV(1088)+JVS(12905)*UV(2949)+JVS(21257)*UV(4141)+JVS(28358)*UV(4815)& - &+JVS(46943)*UV(5252)+JVS(49199)*UV(5253)+JVS(52139)*UV(5255)+JVS(53759)*UV(5256) - JTUV(4142) = JVS(2583)*UV(657)+JVS(4556)*UV(1139)+JVS(6335)*UV(1579)+JVS(16434)*UV(3557)+JVS(21264)*UV(4142)& - &+JVS(46944)*UV(5252)+JVS(49200)*UV(5253)+JVS(52140)*UV(5255)+JVS(53760)*UV(5256) - JTUV(4143) = JVS(5568)*UV(1391)+JVS(8125)*UV(1957)+JVS(12384)*UV(2851)+JVS(21271)*UV(4143)+JVS(46945)*UV(5252)& - &+JVS(49201)*UV(5253)+JVS(52141)*UV(5255)+JVS(53761)*UV(5256) - JTUV(4144) = JVS(2792)*UV(708)+JVS(6974)*UV(1718)+JVS(7671)*UV(1858)+JVS(11743)*UV(2727)+JVS(21278)*UV(4144)& - &+JVS(46946)*UV(5252)+JVS(49202)*UV(5253)+JVS(52142)*UV(5255)+JVS(53762)*UV(5256) - JTUV(4145) = JVS(2672)*UV(679)+JVS(6366)*UV(1586)+JVS(9529)*UV(2265)+JVS(9712)*UV(2305)+JVS(21285)*UV(4145)+JVS(46947)& - &*UV(5252)+JVS(49203)*UV(5253)+JVS(52143)*UV(5255)+JVS(53763)*UV(5256) - JTUV(4146) = JVS(3676)*UV(920)+JVS(5191)*UV(1297)+JVS(9883)*UV(2343)+JVS(10661)*UV(2516)+JVS(21291)*UV(4146)& - &+JVS(21656)*UV(4186)+JVS(46948)*UV(5252)+JVS(49204)*UV(5253)+JVS(52144)*UV(5255)+JVS(53764)*UV(5256) - JTUV(4147) = JVS(1636)*UV(411)+JVS(3233)*UV(810)+JVS(7739)*UV(1871)+JVS(15663)*UV(3431)+JVS(21299)*UV(4147)+JVS(46949)& - &*UV(5252)+JVS(49205)*UV(5253)+JVS(52145)*UV(5255)+JVS(53765)*UV(5256) - JTUV(4148) = JVS(2938)*UV(740)+JVS(6363)*UV(1585)+JVS(9389)*UV(2231)+JVS(9963)*UV(2362)+JVS(21306)*UV(4148)+JVS(46950)& - &*UV(5252)+JVS(49206)*UV(5253)+JVS(52146)*UV(5255)+JVS(53766)*UV(5256) - JTUV(4149) = JVS(3502)*UV(877)+JVS(12220)*UV(2819)+JVS(21313)*UV(4149)+JVS(46951)*UV(5252)+JVS(49207)*UV(5253)& - &+JVS(52147)*UV(5255)+JVS(53767)*UV(5256) - JTUV(4150) = JVS(2150)*UV(553)+JVS(6634)*UV(1643)+JVS(7038)*UV(1731)+JVS(8417)*UV(2017)+JVS(21323)*UV(4150)+JVS(46952)& - &*UV(5252)+JVS(49208)*UV(5253)+JVS(52148)*UV(5255)+JVS(53768)*UV(5256) - JTUV(4151) = JVS(21331)*UV(4151)+JVS(22467)*UV(4266)+JVS(36443)*UV(5201)+JVS(37212)*UV(5215)+JVS(43971)*UV(5250)& - &+JVS(45802)*UV(5251)+JVS(49209)*UV(5253)+JVS(52149)*UV(5255)+JVS(53769)*UV(5256) - JTUV(4152) = JVS(9733)*UV(2310)+JVS(10218)*UV(2420)+JVS(21343)*UV(4152)+JVS(39070)*UV(5233)+JVS(52150)*UV(5255) - JTUV(4153) = JVS(2326)*UV(597)+JVS(9989)*UV(2368)+JVS(21351)*UV(4153)+JVS(46954)*UV(5252)+JVS(49211)*UV(5253)& - &+JVS(52151)*UV(5255)+JVS(53771)*UV(5256) - JTUV(4154) = JVS(8645)*UV(2064)+JVS(13302)*UV(3019)+JVS(21363)*UV(4154)+JVS(21783)*UV(4199)+JVS(40111)*UV(5244)& - &+JVS(43974)*UV(5250)+JVS(46955)*UV(5252)+JVS(49212)*UV(5253)+JVS(52152)*UV(5255)+JVS(53772)*UV(5256) - JTUV(4155) = JVS(21371)*UV(4155)+JVS(24091)*UV(4427)+JVS(34636)*UV(5165)+JVS(36444)*UV(5201)+JVS(43975)*UV(5250)& - &+JVS(45805)*UV(5251)+JVS(49213)*UV(5253)+JVS(52153)*UV(5255)+JVS(53773)*UV(5256) - JTUV(4156) = JVS(16498)*UV(3566)+JVS(21377)*UV(4156)+JVS(29727)*UV(4923)+JVS(36445)*UV(5201)+JVS(43976)*UV(5250)& - &+JVS(45806)*UV(5251)+JVS(49214)*UV(5253)+JVS(52154)*UV(5255)+JVS(53774)*UV(5256) - JTUV(4157) = JVS(2021)*UV(520)+JVS(5055)*UV(1263)+JVS(8286)*UV(1989)+JVS(15745)*UV(3447)+JVS(21387)*UV(4157)& - &+JVS(46956)*UV(5252)+JVS(49215)*UV(5253)+JVS(52155)*UV(5255)+JVS(53775)*UV(5256) - JTUV(4158) = JVS(2166)*UV(557)+JVS(8024)*UV(1935)+JVS(16604)*UV(3580)+JVS(21395)*UV(4158)+JVS(30889)*UV(4996)& - &+JVS(46957)*UV(5252)+JVS(49216)*UV(5253)+JVS(52156)*UV(5255)+JVS(53776)*UV(5256) - JTUV(4159) = JVS(3960)*UV(991)+JVS(4390)*UV(1098)+JVS(6557)*UV(1626)+JVS(12202)*UV(2816)+JVS(21401)*UV(4159)& - &+JVS(28797)*UV(4851)+JVS(46958)*UV(5252)+JVS(49217)*UV(5253)+JVS(52157)*UV(5255)+JVS(53777)*UV(5256) - JTUV(4160) = JVS(14549)*UV(3252)+JVS(21409)*UV(4160)+JVS(24155)*UV(4433)+JVS(36446)*UV(5201)+JVS(43980)*UV(5250)& - &+JVS(49218)*UV(5253)+JVS(53778)*UV(5256) - JTUV(4161) = JVS(4322)*UV(1081)+JVS(7849)*UV(1897)+JVS(8345)*UV(2001)+JVS(10833)*UV(2550)+JVS(16365)*UV(3547)& - &+JVS(21417)*UV(4161)+JVS(46959)*UV(5252)+JVS(49219)*UV(5253)+JVS(52159)*UV(5255)+JVS(53779)*UV(5256) - JTUV(4162) = JVS(1574)*UV(394)+JVS(4238)*UV(1060)+JVS(7444)*UV(1813)+JVS(7450)*UV(1814)+JVS(15240)*UV(3373)+JVS(21426)& - &*UV(4162)+JVS(46960)*UV(5252)+JVS(49220)*UV(5253)+JVS(52160)*UV(5255)+JVS(53780)*UV(5256) - JTUV(4163) = JVS(2076)*UV(535)+JVS(8060)*UV(1943)+JVS(21434)*UV(4163)+JVS(46961)*UV(5252)+JVS(49221)*UV(5253)& - &+JVS(52161)*UV(5255)+JVS(53781)*UV(5256) - JTUV(4164) = JVS(2373)*UV(609)+JVS(21445)*UV(4164)+JVS(22185)*UV(4238)+JVS(27128)*UV(4709)+JVS(35248)*UV(5183)& - &+JVS(43984)*UV(5250)+JVS(52162)*UV(5255) - JTUV(4165) = JVS(2428)*UV(622)+JVS(4896)*UV(1224)+JVS(10542)*UV(2492)+JVS(21451)*UV(4165)+JVS(27878)*UV(4775)& - &+JVS(46962)*UV(5252)+JVS(49222)*UV(5253)+JVS(52163)*UV(5255)+JVS(53782)*UV(5256) - JTUV(4166) = JVS(1595)*UV(400)+JVS(5564)*UV(1390)+JVS(7394)*UV(1803)+JVS(11923)*UV(2759)+JVS(21459)*UV(4166)& - &+JVS(46963)*UV(5252)+JVS(49223)*UV(5253)+JVS(52164)*UV(5255)+JVS(53783)*UV(5256) - JTUV(4167) = JVS(493)*UV(128)+JVS(3176)*UV(796)+JVS(4330)*UV(1083)+JVS(4636)*UV(1159)+JVS(15460)*UV(3403)+JVS(21467)& - &*UV(4167)+JVS(46964)*UV(5252)+JVS(49224)*UV(5253)+JVS(52165)*UV(5255)+JVS(53784)*UV(5256) - JTUV(4168) = JVS(9720)*UV(2307)+JVS(11504)*UV(2681)+JVS(21476)*UV(4168)+JVS(33647)*UV(5139)+JVS(35249)*UV(5183)& - &+JVS(43988)*UV(5250)+JVS(46965)*UV(5252)+JVS(49225)*UV(5253)+JVS(52166)*UV(5255)+JVS(53785)*UV(5256) - JTUV(4169) = JVS(2337)*UV(600)+JVS(6646)*UV(1646)+JVS(10234)*UV(2424)+JVS(21486)*UV(4169)+JVS(23691)*UV(4392)& - &+JVS(46966)*UV(5252)+JVS(49226)*UV(5253)+JVS(52167)*UV(5255)+JVS(53786)*UV(5256) - JTUV(4170) = JVS(5171)*UV(1292)+JVS(12534)*UV(2881)+JVS(21495)*UV(4170)+JVS(46967)*UV(5252)+JVS(49227)*UV(5253)& - &+JVS(52168)*UV(5255)+JVS(53787)*UV(5256) - JTUV(4171) = JVS(7630)*UV(1849)+JVS(8789)*UV(2096)+JVS(15083)*UV(3351)+JVS(21502)*UV(4171)+JVS(35021)*UV(5180)& - &+JVS(46968)*UV(5252)+JVS(49228)*UV(5253)+JVS(52169)*UV(5255)+JVS(53788)*UV(5256) - JTUV(4172) = JVS(1738)*UV(441)+JVS(3816)*UV(955)+JVS(8270)*UV(1986)+JVS(11464)*UV(2673)+JVS(15583)*UV(3420)+JVS(21511)& - &*UV(4172)+JVS(46969)*UV(5252)+JVS(49229)*UV(5253)+JVS(52170)*UV(5255)+JVS(53789)*UV(5256) - JTUV(4173) = JVS(1471)*UV(365)+JVS(1622)*UV(407)+JVS(4788)*UV(1197)+JVS(13632)*UV(3081)+JVS(21520)*UV(4173)+JVS(46970)& - &*UV(5252)+JVS(49230)*UV(5253)+JVS(52171)*UV(5255)+JVS(53790)*UV(5256) - JTUV(4174) = JVS(14632)*UV(3269)+JVS(21528)*UV(4174)+JVS(24532)*UV(4470)+JVS(36447)*UV(5201)+JVS(43994)*UV(5250)& - &+JVS(49231)*UV(5253)+JVS(53791)*UV(5256) - JTUV(4175) = JVS(21540)*UV(4175)+JVS(33785)*UV(5142)+JVS(35250)*UV(5183)+JVS(43995)*UV(5250)+JVS(45812)*UV(5251)& - &+JVS(52173)*UV(5255) - JTUV(4176) = JVS(1516)*UV(377)+JVS(2411)*UV(618)+JVS(7723)*UV(1868)+JVS(9040)*UV(2154)+JVS(21550)*UV(4176)+JVS(46971)& - &*UV(5252)+JVS(49232)*UV(5253)+JVS(52174)*UV(5255)+JVS(53792)*UV(5256) - JTUV(4177) = JVS(21560)*UV(4177)+JVS(26104)*UV(4618)+JVS(29325)*UV(4896)+JVS(30218)*UV(4951)+JVS(30231)*UV(4952)& - &+JVS(31984)*UV(5058)+JVS(33192)*UV(5123)+JVS(33313)*UV(5126)+JVS(33648)*UV(5139)+JVS(37511)*UV(5222)& - &+JVS(52175)*UV(5255) - JTUV(4178) = JVS(17763)*UV(3723)+JVS(21570)*UV(4178)+JVS(26942)*UV(4693)+JVS(33649)*UV(5139)+JVS(40114)*UV(5244)& - &+JVS(43997)*UV(5250)+JVS(45813)*UV(5251)+JVS(52176)*UV(5255) - JTUV(4179) = JVS(3168)*UV(794)+JVS(21581)*UV(4179)+JVS(22351)*UV(4254)+JVS(27183)*UV(4715)+JVS(35251)*UV(5183)& - &+JVS(43998)*UV(5250)+JVS(52177)*UV(5255) - JTUV(4180) = JVS(8740)*UV(2085)+JVS(14591)*UV(3261)+JVS(21588)*UV(4180)+JVS(46972)*UV(5252)+JVS(49233)*UV(5253)& - &+JVS(52178)*UV(5255)+JVS(53793)*UV(5256) - JTUV(4181) = JVS(1679)*UV(423)+JVS(4912)*UV(1228)+JVS(14415)*UV(3232)+JVS(20389)*UV(4041)+JVS(21604)*UV(4181)& - &+JVS(44000)*UV(5250)+JVS(46973)*UV(5252)+JVS(49234)*UV(5253)+JVS(52179)*UV(5255)+JVS(53794)*UV(5256)& - &+JVS(54880)*UV(5258) - JTUV(4182) = JVS(5576)*UV(1393)+JVS(11970)*UV(2768)+JVS(21615)*UV(4182)+JVS(46974)*UV(5252)+JVS(49235)*UV(5253)& - &+JVS(52180)*UV(5255)+JVS(53795)*UV(5256) - JTUV(4183) = JVS(16482)*UV(3564)+JVS(21628)*UV(4183)+JVS(27514)*UV(4745)+JVS(44002)*UV(5250)+JVS(52181)*UV(5255) - JTUV(4184) = JVS(9854)*UV(2336)+JVS(21639)*UV(4184)+JVS(37888)*UV(5228)+JVS(45816)*UV(5251)+JVS(49236)*UV(5253) - JTUV(4185) = JVS(4744)*UV(1186)+JVS(5192)*UV(1297)+JVS(12638)*UV(2902)+JVS(13972)*UV(3141)+JVS(21646)*UV(4185)& - &+JVS(46975)*UV(5252)+JVS(49237)*UV(5253)+JVS(52183)*UV(5255)+JVS(53796)*UV(5256) - JTUV(4186) = JVS(21658)*UV(4186)+JVS(22822)*UV(4301)+JVS(36448)*UV(5201)+JVS(37214)*UV(5215)+JVS(44005)*UV(5250)& - &+JVS(45817)*UV(5251)+JVS(52184)*UV(5255)+JVS(53797)*UV(5256) - JTUV(4187) = JVS(1158)*UV(276)+JVS(3462)*UV(867)+JVS(12035)*UV(2780)+JVS(18222)*UV(3776)+JVS(21667)*UV(4187)& - &+JVS(44006)*UV(5250)+JVS(46976)*UV(5252)+JVS(49238)*UV(5253)+JVS(52185)*UV(5255)+JVS(53798)*UV(5256)& - &+JVS(54881)*UV(5258) - JTUV(4188) = JVS(4466)*UV(1117)+JVS(11809)*UV(2739)+JVS(21676)*UV(4188)+JVS(46977)*UV(5252)+JVS(49239)*UV(5253)& - &+JVS(52186)*UV(5255)+JVS(53799)*UV(5256) - JTUV(4189) = JVS(2040)*UV(526)+JVS(5991)*UV(1496)+JVS(8258)*UV(1984)+JVS(12185)*UV(2812)+JVS(21687)*UV(4189)& - &+JVS(46978)*UV(5252)+JVS(49240)*UV(5253)+JVS(52187)*UV(5255)+JVS(53800)*UV(5256) - JTUV(4190) = JVS(2267)*UV(583)+JVS(21696)*UV(4190)+JVS(24794)*UV(4493)+JVS(49241)*UV(5253)+JVS(52188)*UV(5255) - JTUV(4191) = JVS(5443)*UV(1360)+JVS(13136)*UV(2989)+JVS(21704)*UV(4191)+JVS(46980)*UV(5252)+JVS(49242)*UV(5253)& - &+JVS(52189)*UV(5255)+JVS(53802)*UV(5256) - JTUV(4192) = JVS(5840)*UV(1459)+JVS(10867)*UV(2557)+JVS(21712)*UV(4192)+JVS(46981)*UV(5252)+JVS(49243)*UV(5253)& - &+JVS(52190)*UV(5255)+JVS(53803)*UV(5256) - JTUV(4193) = JVS(6135)*UV(1532)+JVS(11018)*UV(2586)+JVS(21721)*UV(4193)+JVS(46982)*UV(5252)+JVS(49244)*UV(5253)& - &+JVS(52191)*UV(5255)+JVS(53804)*UV(5256) - JTUV(4194) = JVS(4096)*UV(1025)+JVS(15540)*UV(3414)+JVS(21730)*UV(4194)+JVS(46983)*UV(5252)+JVS(49245)*UV(5253)& - &+JVS(52192)*UV(5255)+JVS(53805)*UV(5256) - JTUV(4195) = JVS(3912)*UV(979)+JVS(10752)*UV(2535)+JVS(21739)*UV(4195)+JVS(46984)*UV(5252)+JVS(49246)*UV(5253)& - &+JVS(52193)*UV(5255)+JVS(53806)*UV(5256) - JTUV(4196) = JVS(1319)*UV(320)+JVS(6083)*UV(1519)+JVS(9571)*UV(2275)+JVS(12848)*UV(2938)+JVS(15612)*UV(3424)& - &+JVS(21752)*UV(4196)+JVS(46985)*UV(5252)+JVS(49247)*UV(5253)+JVS(52194)*UV(5255)+JVS(53807)*UV(5256) - JTUV(4197) = JVS(763)*UV(180)+JVS(4950)*UV(1237)+JVS(9044)*UV(2155)+JVS(21761)*UV(4197)+JVS(32633)*UV(5095)+JVS(46986)& - &*UV(5252)+JVS(49248)*UV(5253)+JVS(52195)*UV(5255)+JVS(53808)*UV(5256) - JTUV(4198) = JVS(4824)*UV(1206)+JVS(5475)*UV(1368)+JVS(5560)*UV(1389)+JVS(21770)*UV(4198)+JVS(27812)*UV(4769)& - &+JVS(44017)*UV(5250)+JVS(46987)*UV(5252)+JVS(49249)*UV(5253)+JVS(52196)*UV(5255)+JVS(53809)*UV(5256)& - &+JVS(54882)*UV(5258) - JTUV(4199) = JVS(7993)*UV(1928)+JVS(21784)*UV(4199)+JVS(31602)*UV(5038)+JVS(35254)*UV(5183)+JVS(44018)*UV(5250)& - &+JVS(52197)*UV(5255) - JTUV(4200) = JVS(5520)*UV(1379)+JVS(12988)*UV(2963)+JVS(21793)*UV(4200)+JVS(46988)*UV(5252)+JVS(49250)*UV(5253)& - &+JVS(52198)*UV(5255)+JVS(53810)*UV(5256) - JTUV(4201) = JVS(1484)*UV(369)+JVS(1489)*UV(370)+JVS(4024)*UV(1007)+JVS(21802)*UV(4201)+JVS(46989)*UV(5252)+JVS(49251)& - &*UV(5253)+JVS(52199)*UV(5255)+JVS(53811)*UV(5256) - JTUV(4202) = JVS(9458)*UV(2248)+JVS(11314)*UV(2643)+JVS(21813)*UV(4202)+JVS(31485)*UV(5031)+JVS(44021)*UV(5250)& - &+JVS(46990)*UV(5252)+JVS(49252)*UV(5253)+JVS(52200)*UV(5255)+JVS(53812)*UV(5256) - JTUV(4203) = JVS(12625)*UV(2899)+JVS(13279)*UV(3014)+JVS(21823)*UV(4203)+JVS(28982)*UV(4865)+JVS(44022)*UV(5250)& - &+JVS(45823)*UV(5251)+JVS(46991)*UV(5252)+JVS(49253)*UV(5253)+JVS(52201)*UV(5255)+JVS(53813)*UV(5256) - JTUV(4204) = JVS(5115)*UV(1278)+JVS(11777)*UV(2733)+JVS(21832)*UV(4204)+JVS(46992)*UV(5252)+JVS(49254)*UV(5253)& - &+JVS(52202)*UV(5255)+JVS(53814)*UV(5256) - JTUV(4205) = JVS(6023)*UV(1504)+JVS(15143)*UV(3361)+JVS(21841)*UV(4205)+JVS(46993)*UV(5252)+JVS(49255)*UV(5253)& - &+JVS(52203)*UV(5255)+JVS(53815)*UV(5256) - JTUV(4206) = JVS(9285)*UV(2208)+JVS(11198)*UV(2620)+JVS(21850)*UV(4206)+JVS(34937)*UV(5178)+JVS(44025)*UV(5250)& - &+JVS(46994)*UV(5252)+JVS(49256)*UV(5253)+JVS(52204)*UV(5255)+JVS(53816)*UV(5256) - JTUV(4207) = JVS(9471)*UV(2251)+JVS(12130)*UV(2800)+JVS(21860)*UV(4207)+JVS(31926)*UV(5055)+JVS(44026)*UV(5250)& - &+JVS(46995)*UV(5252)+JVS(49257)*UV(5253)+JVS(52205)*UV(5255)+JVS(53817)*UV(5256) - JTUV(4208) = JVS(4736)*UV(1184)+JVS(8830)*UV(2105)+JVS(21870)*UV(4208)+JVS(37512)*UV(5222)+JVS(44027)*UV(5250)& - &+JVS(46996)*UV(5252)+JVS(49258)*UV(5253)+JVS(52206)*UV(5255)+JVS(53818)*UV(5256) - JTUV(4209) = JVS(9774)*UV(2320)+JVS(10575)*UV(2498)+JVS(21880)*UV(4209)+JVS(31348)*UV(5023)+JVS(44028)*UV(5250)& - &+JVS(46997)*UV(5252)+JVS(49259)*UV(5253)+JVS(52207)*UV(5255)+JVS(53819)*UV(5256) - JTUV(4210) = JVS(3844)*UV(962)+JVS(10917)*UV(2566)+JVS(21889)*UV(4210)+JVS(46998)*UV(5252)+JVS(49260)*UV(5253)& - &+JVS(52208)*UV(5255)+JVS(53820)*UV(5256) - JTUV(4211) = JVS(3626)*UV(908)+JVS(12266)*UV(2827)+JVS(21899)*UV(4211)+JVS(46999)*UV(5252)+JVS(49261)*UV(5253)& - &+JVS(52209)*UV(5255)+JVS(53821)*UV(5256) - JTUV(4212) = JVS(4202)*UV(1051)+JVS(13288)*UV(3016)+JVS(21908)*UV(4212)+JVS(47000)*UV(5252)+JVS(49262)*UV(5253)& - &+JVS(52210)*UV(5255)+JVS(53822)*UV(5256) - JTUV(4213) = JVS(9)*UV(3)+JVS(21916)*UV(4213)+JVS(29503)*UV(4909)+JVS(31720)*UV(5046)+JVS(45827)*UV(5251)+JVS(47001)& - &*UV(5252)+JVS(49263)*UV(5253)+JVS(50218)*UV(5254)+JVS(53823)*UV(5256) - JTUV(4214) = JVS(9061)*UV(2159)+JVS(11146)*UV(2608)+JVS(21928)*UV(4214)+JVS(29959)*UV(4938)+JVS(44032)*UV(5250)& - &+JVS(47002)*UV(5252)+JVS(49264)*UV(5253)+JVS(52211)*UV(5255)+JVS(53824)*UV(5256) - JTUV(4215) = JVS(9692)*UV(2301)+JVS(13465)*UV(3051)+JVS(21937)*UV(4215)+JVS(36827)*UV(5203)+JVS(44033)*UV(5250)& - &+JVS(47003)*UV(5252)+JVS(49265)*UV(5253)+JVS(52212)*UV(5255)+JVS(53825)*UV(5256) - JTUV(4216) = JVS(333)*UV(83)+JVS(1207)*UV(290)+JVS(3298)*UV(826)+JVS(9496)*UV(2257)+JVS(21951)*UV(4216)+JVS(47004)& - &*UV(5252)+JVS(49266)*UV(5253)+JVS(52213)*UV(5255)+JVS(53826)*UV(5256) - JTUV(4217) = JVS(5291)*UV(1322)+JVS(13212)*UV(3001)+JVS(21960)*UV(4217)+JVS(47005)*UV(5252)+JVS(49267)*UV(5253)& - &+JVS(52214)*UV(5255)+JVS(53827)*UV(5256) - JTUV(4218) = JVS(10606)*UV(2505)+JVS(12446)*UV(2862)+JVS(21972)*UV(4218)+JVS(28359)*UV(4815)+JVS(44036)*UV(5250)& - &+JVS(45830)*UV(5251)+JVS(47006)*UV(5252)+JVS(49268)*UV(5253)+JVS(52215)*UV(5255)+JVS(53828)*UV(5256) - JTUV(4219) = JVS(1851)*UV(471)+JVS(5800)*UV(1449)+JVS(7698)*UV(1864)+JVS(7704)*UV(1865)+JVS(16939)*UV(3619)+JVS(21984)& - &*UV(4219)+JVS(47007)*UV(5252)+JVS(49269)*UV(5253)+JVS(52216)*UV(5255)+JVS(53829)*UV(5256) - JTUV(4220) = JVS(8989)*UV(2142)+JVS(10731)*UV(2530)+JVS(21997)*UV(4220)+JVS(29396)*UV(4902)+JVS(44038)*UV(5250)& - &+JVS(47008)*UV(5252)+JVS(49270)*UV(5253)+JVS(52217)*UV(5255)+JVS(53830)*UV(5256) - JTUV(4221) = JVS(13150)*UV(2991)+JVS(13409)*UV(3040)+JVS(22010)*UV(4221)+JVS(24748)*UV(4490)+JVS(44039)*UV(5250)& - &+JVS(45832)*UV(5251)+JVS(47009)*UV(5252)+JVS(49271)*UV(5253)+JVS(52218)*UV(5255)+JVS(53831)*UV(5256) - JTUV(4222) = JVS(1144)*UV(272)+JVS(4832)*UV(1208)+JVS(10667)*UV(2517)+JVS(20584)*UV(4060)+JVS(22020)*UV(4222)& - &+JVS(44040)*UV(5250)+JVS(47010)*UV(5252)+JVS(49272)*UV(5253)+JVS(52219)*UV(5255)+JVS(53832)*UV(5256)& - &+JVS(54883)*UV(5258) - JTUV(4223) = JVS(16025)*UV(3498)+JVS(22030)*UV(4223)+JVS(33258)*UV(5125)+JVS(35871)*UV(5193)+JVS(44041)*UV(5250)& - &+JVS(52220)*UV(5255) - JTUV(4224) = JVS(22043)*UV(4224)+JVS(22759)*UV(4295)+JVS(24829)*UV(4496)+JVS(36449)*UV(5201)+JVS(44042)*UV(5250)& - &+JVS(45834)*UV(5251)+JVS(52221)*UV(5255)+JVS(53833)*UV(5256) - JTUV(4225) = JVS(4760)*UV(1190)+JVS(11820)*UV(2741)+JVS(22052)*UV(4225)+JVS(47011)*UV(5252)+JVS(49273)*UV(5253)& - &+JVS(52222)*UV(5255)+JVS(53834)*UV(5256) - JTUV(4226) = JVS(1481)*UV(368)+JVS(2084)*UV(537)+JVS(5032)*UV(1257)+JVS(7817)*UV(1890)+JVS(22065)*UV(4226)+JVS(47012)& - &*UV(5252)+JVS(49274)*UV(5253)+JVS(52223)*UV(5255)+JVS(53835)*UV(5256) - JTUV(4227) = JVS(22074)*UV(4227)+JVS(32897)*UV(5106)+JVS(36450)*UV(5201)+JVS(44045)*UV(5250)+JVS(45835)*UV(5251)& - &+JVS(52224)*UV(5255)+JVS(53836)*UV(5256) - JTUV(4228) = JVS(9822)*UV(2329)+JVS(13433)*UV(3045)+JVS(22085)*UV(4228)+JVS(37759)*UV(5225)+JVS(44046)*UV(5250)& - &+JVS(47013)*UV(5252)+JVS(49275)*UV(5253)+JVS(52225)*UV(5255)+JVS(53837)*UV(5256) - JTUV(4229) = JVS(7461)*UV(1816)+JVS(13421)*UV(3042)+JVS(22096)*UV(4229)+JVS(27571)*UV(4749)+JVS(44047)*UV(5250)& - &+JVS(47014)*UV(5252)+JVS(49276)*UV(5253)+JVS(52226)*UV(5255)+JVS(53838)*UV(5256) - JTUV(4230) = JVS(8875)*UV(2116)+JVS(12053)*UV(2784)+JVS(22106)*UV(4230)+JVS(35383)*UV(5184)+JVS(44048)*UV(5250)& - &+JVS(47015)*UV(5252)+JVS(49277)*UV(5253)+JVS(52227)*UV(5255)+JVS(53839)*UV(5256) - JTUV(4231) = JVS(22118)*UV(4231)+JVS(26057)*UV(4613)+JVS(26068)*UV(4614)+JVS(36451)*UV(5201)+JVS(44049)*UV(5250)& - &+JVS(45838)*UV(5251)+JVS(52228)*UV(5255)+JVS(53840)*UV(5256) - JTUV(4232) = JVS(5696)*UV(1423)+JVS(12838)*UV(2937)+JVS(22127)*UV(4232)+JVS(47016)*UV(5252)+JVS(49278)*UV(5253)& - &+JVS(52229)*UV(5255)+JVS(53841)*UV(5256) - JTUV(4233) = JVS(22136)*UV(4233)+JVS(33259)*UV(5125)+JVS(36452)*UV(5201)+JVS(44051)*UV(5250)+JVS(45839)*UV(5251)& - &+JVS(52230)*UV(5255)+JVS(53842)*UV(5256) - JTUV(4234) = JVS(250)*UV(60)+JVS(1645)*UV(414)+JVS(3026)*UV(760)+JVS(22147)*UV(4234)+JVS(47017)*UV(5252)+JVS(49279)& - &*UV(5253)+JVS(52231)*UV(5255)+JVS(53843)*UV(5256) - JTUV(4235) = JVS(9260)*UV(2203)+JVS(11724)*UV(2723)+JVS(22158)*UV(4235)+JVS(47018)*UV(5252)+JVS(49280)*UV(5253)& - &+JVS(52232)*UV(5255)+JVS(53844)*UV(5256) - JTUV(4236) = JVS(6578)*UV(1630)+JVS(6583)*UV(1631)+JVS(10073)*UV(2386)+JVS(22167)*UV(4236)+JVS(47019)*UV(5252)& - &+JVS(49281)*UV(5253)+JVS(52233)*UV(5255)+JVS(53845)*UV(5256) - JTUV(4237) = JVS(5319)*UV(1329)+JVS(15590)*UV(3421)+JVS(22176)*UV(4237)+JVS(47020)*UV(5252)+JVS(49282)*UV(5253)& - &+JVS(52234)*UV(5255)+JVS(53846)*UV(5256) - JTUV(4238) = JVS(5596)*UV(1398)+JVS(11477)*UV(2676)+JVS(22186)*UV(4238)+JVS(47021)*UV(5252)+JVS(49283)*UV(5253)& - &+JVS(52235)*UV(5255)+JVS(53847)*UV(5256) - JTUV(4239) = JVS(22198)*UV(4239)+JVS(36453)*UV(5201)+JVS(39449)*UV(5237)+JVS(44057)*UV(5250)+JVS(45840)*UV(5251)& - &+JVS(52236)*UV(5255)+JVS(53848)*UV(5256) - JTUV(4240) = JVS(555)*UV(145)+JVS(1604)*UV(403)+JVS(1609)*UV(404)+JVS(1612)*UV(405)+JVS(22207)*UV(4240)+JVS(47022)& - &*UV(5252)+JVS(49284)*UV(5253)+JVS(52237)*UV(5255)+JVS(53849)*UV(5256) - JTUV(4241) = JVS(8600)*UV(2055)+JVS(11515)*UV(2683)+JVS(22221)*UV(4241)+JVS(24749)*UV(4490)+JVS(40118)*UV(5244)& - &+JVS(44059)*UV(5250)+JVS(47023)*UV(5252)+JVS(49285)*UV(5253)+JVS(52238)*UV(5255)+JVS(53850)*UV(5256) - JTUV(4242) = JVS(6257)*UV(1561)+JVS(6850)*UV(1691)+JVS(7805)*UV(1887)+JVS(22230)*UV(4242)+JVS(47024)*UV(5252)& - &+JVS(49286)*UV(5253)+JVS(52239)*UV(5255)+JVS(53851)*UV(5256) - JTUV(4243) = JVS(9770)*UV(2319)+JVS(11487)*UV(2678)+JVS(22240)*UV(4243)+JVS(30529)*UV(4973)+JVS(44061)*UV(5250)& - &+JVS(47025)*UV(5252)+JVS(49287)*UV(5253)+JVS(52240)*UV(5255)+JVS(53852)*UV(5256) - JTUV(4244) = JVS(161)*UV(36)+JVS(3454)*UV(865)+JVS(22249)*UV(4244)+JVS(47026)*UV(5252)+JVS(49288)*UV(5253)+JVS(52241)& - &*UV(5255)+JVS(53853)*UV(5256) - JTUV(4245) = JVS(3884)*UV(972)+JVS(13173)*UV(2995)+JVS(22258)*UV(4245)+JVS(47027)*UV(5252)+JVS(49289)*UV(5253)& - &+JVS(52242)*UV(5255)+JVS(53854)*UV(5256) - JTUV(4246) = JVS(5014)*UV(1253)+JVS(11029)*UV(2588)+JVS(22267)*UV(4246)+JVS(47028)*UV(5252)+JVS(49290)*UV(5253)& - &+JVS(52243)*UV(5255)+JVS(53855)*UV(5256) - JTUV(4247) = JVS(10)*UV(3)+JVS(22275)*UV(4247)+JVS(31721)*UV(5046)+JVS(37760)*UV(5225)+JVS(45843)*UV(5251)+JVS(47029)& - &*UV(5252)+JVS(49291)*UV(5253)+JVS(50219)*UV(5254)+JVS(53856)*UV(5256) - JTUV(4248) = JVS(22292)*UV(4248)+JVS(30864)*UV(4995)+JVS(33324)*UV(5127)+JVS(37045)*UV(5211)+JVS(40120)*UV(5244)& - &+JVS(44065)*UV(5250)+JVS(52244)*UV(5255) - JTUV(4249) = JVS(2733)*UV(694)+JVS(8376)*UV(2008)+JVS(9594)*UV(2280)+JVS(10010)*UV(2373)+JVS(22301)*UV(4249)& - &+JVS(47030)*UV(5252)+JVS(49292)*UV(5253)+JVS(52245)*UV(5255)+JVS(53857)*UV(5256) - JTUV(4250) = JVS(11)*UV(3)+JVS(22309)*UV(4250)+JVS(31349)*UV(5023)+JVS(31722)*UV(5046)+JVS(45844)*UV(5251)+JVS(47031)& - &*UV(5252)+JVS(49293)*UV(5253)+JVS(50220)*UV(5254)+JVS(53858)*UV(5256) - JTUV(4251) = JVS(875)*UV(200)+JVS(1269)*UV(306)+JVS(7534)*UV(1829)+JVS(9830)*UV(2331)+JVS(22320)*UV(4251)+JVS(25315)& - &*UV(4537)+JVS(47032)*UV(5252)+JVS(49294)*UV(5253)+JVS(52246)*UV(5255)+JVS(53859)*UV(5256) - JTUV(4252) = JVS(6103)*UV(1524)+JVS(11102)*UV(2599)+JVS(22329)*UV(4252)+JVS(47033)*UV(5252)+JVS(49295)*UV(5253)& - &+JVS(52247)*UV(5255)+JVS(53860)*UV(5256) - JTUV(4253) = JVS(10313)*UV(2443)+JVS(12450)*UV(2863)+JVS(22342)*UV(4253)+JVS(24324)*UV(4449)+JVS(40121)*UV(5244)& - &+JVS(44069)*UV(5250)+JVS(47034)*UV(5252)+JVS(49296)*UV(5253)+JVS(52248)*UV(5255)+JVS(53861)*UV(5256) - JTUV(4254) = JVS(4486)*UV(1122)+JVS(12501)*UV(2874)+JVS(22352)*UV(4254)+JVS(47035)*UV(5252)+JVS(49297)*UV(5253)& - &+JVS(52249)*UV(5255)+JVS(53862)*UV(5256) - JTUV(4255) = JVS(5143)*UV(1285)+JVS(12088)*UV(2791)+JVS(20799)*UV(4087)+JVS(22361)*UV(4255)+JVS(44071)*UV(5250)& - &+JVS(47036)*UV(5252)+JVS(49298)*UV(5253)+JVS(52250)*UV(5255)+JVS(53863)*UV(5256) - JTUV(4256) = JVS(22370)*UV(4256)+JVS(34669)*UV(5167)+JVS(35498)*UV(5188)+JVS(39075)*UV(5233)+JVS(44072)*UV(5250)& - &+JVS(49299)*UV(5253)+JVS(52251)*UV(5255) - JTUV(4257) = JVS(528)*UV(138)+JVS(8994)*UV(2143)+JVS(22381)*UV(4257)+JVS(47037)*UV(5252)+JVS(49300)*UV(5253)& - &+JVS(52252)*UV(5255)+JVS(53864)*UV(5256) - JTUV(4258) = JVS(12)*UV(3)+JVS(22390)*UV(4258)+JVS(31723)*UV(5046)+JVS(39580)*UV(5240)+JVS(45846)*UV(5251)+JVS(47038)& - &*UV(5252)+JVS(49301)*UV(5253)+JVS(50221)*UV(5254)+JVS(53865)*UV(5256) - JTUV(4259) = JVS(10262)*UV(2431)+JVS(12134)*UV(2801)+JVS(22399)*UV(4259)+JVS(36025)*UV(5194)+JVS(44074)*UV(5250)& - &+JVS(47039)*UV(5252)+JVS(49302)*UV(5253)+JVS(52253)*UV(5255)+JVS(53866)*UV(5256) - JTUV(4260) = JVS(8998)*UV(2144)+JVS(11483)*UV(2677)+JVS(22409)*UV(4260)+JVS(32208)*UV(5071)+JVS(44075)*UV(5250)& - &+JVS(47040)*UV(5252)+JVS(49303)*UV(5253)+JVS(52254)*UV(5255)+JVS(53867)*UV(5256) - JTUV(4261) = JVS(22421)*UV(4261)+JVS(28744)*UV(4848)+JVS(34033)*UV(5150)+JVS(36454)*UV(5201)+JVS(44076)*UV(5250)& - &+JVS(45849)*UV(5251)+JVS(52255)*UV(5255)+JVS(53868)*UV(5256) - JTUV(4262) = JVS(3294)*UV(825)+JVS(12645)*UV(2903)+JVS(22430)*UV(4262)+JVS(47041)*UV(5252)+JVS(49304)*UV(5253)& - &+JVS(52256)*UV(5255)+JVS(53869)*UV(5256) - JTUV(4263) = JVS(3630)*UV(909)+JVS(12459)*UV(2865)+JVS(22441)*UV(4263)+JVS(47042)*UV(5252)+JVS(49305)*UV(5253)& - &+JVS(52257)*UV(5255)+JVS(53870)*UV(5256) - JTUV(4264) = JVS(13)*UV(3)+JVS(22449)*UV(4264)+JVS(31724)*UV(5046)+JVS(40558)*UV(5248)+JVS(45850)*UV(5251)+JVS(47043)& - &*UV(5252)+JVS(49306)*UV(5253)+JVS(50222)*UV(5254)+JVS(53871)*UV(5256) - JTUV(4265) = JVS(4382)*UV(1096)+JVS(10759)*UV(2536)+JVS(22458)*UV(4265)+JVS(47044)*UV(5252)+JVS(49307)*UV(5253)& - &+JVS(52258)*UV(5255)+JVS(53872)*UV(5256) - JTUV(4266) = JVS(7231)*UV(1770)+JVS(12621)*UV(2898)+JVS(22468)*UV(4266)+JVS(37215)*UV(5215)+JVS(44080)*UV(5250)& - &+JVS(47045)*UV(5252)+JVS(49308)*UV(5253)+JVS(52259)*UV(5255)+JVS(53873)*UV(5256) - JTUV(4267) = JVS(10727)*UV(2529)+JVS(11945)*UV(2763)+JVS(22479)*UV(4267)+JVS(25956)*UV(4602)+JVS(44081)*UV(5250)& - &+JVS(45852)*UV(5251)+JVS(47046)*UV(5252)+JVS(49309)*UV(5253)+JVS(52260)*UV(5255)+JVS(53874)*UV(5256) - JTUV(4268) = JVS(2263)*UV(582)+JVS(7809)*UV(1888)+JVS(22488)*UV(4268)+JVS(47047)*UV(5252)+JVS(49310)*UV(5253)& - &+JVS(52261)*UV(5255)+JVS(53875)*UV(5256) - JTUV(4269) = JVS(10141)*UV(2402)+JVS(10968)*UV(2576)+JVS(22498)*UV(4269)+JVS(37799)*UV(5226)+JVS(44083)*UV(5250)& - &+JVS(47048)*UV(5252)+JVS(49311)*UV(5253)+JVS(52262)*UV(5255)+JVS(53876)*UV(5256) - JTUV(4270) = JVS(4458)*UV(1115)+JVS(11928)*UV(2760)+JVS(22508)*UV(4270)+JVS(47049)*UV(5252)+JVS(49312)*UV(5253)& - &+JVS(52263)*UV(5255)+JVS(53877)*UV(5256) - JTUV(4271) = JVS(6039)*UV(1508)+JVS(10973)*UV(2577)+JVS(22517)*UV(4271)+JVS(47050)*UV(5252)+JVS(49313)*UV(5253)& - &+JVS(52264)*UV(5255)+JVS(53878)*UV(5256) - JTUV(4272) = JVS(20749)*UV(4081)+JVS(22525)*UV(4272)+JVS(26285)*UV(4633)+JVS(27308)*UV(4727)+JVS(27347)*UV(4729)& - &+JVS(29458)*UV(4905)+JVS(35255)*UV(5183)+JVS(36455)*UV(5201)+JVS(40122)*UV(5244)+JVS(44086)*UV(5250)& - &+JVS(45854)*UV(5251)+JVS(52265)*UV(5255)+JVS(53879)*UV(5256)+JVS(54884)*UV(5258) - JTUV(4273) = JVS(4418)*UV(1105)+JVS(11763)*UV(2731)+JVS(22531)*UV(4273)+JVS(47051)*UV(5252)+JVS(49314)*UV(5253)& - &+JVS(52266)*UV(5255)+JVS(53880)*UV(5256) - JTUV(4274) = JVS(2116)*UV(545)+JVS(7181)*UV(1759)+JVS(22541)*UV(4274)+JVS(47052)*UV(5252)+JVS(49315)*UV(5253)& - &+JVS(52267)*UV(5255)+JVS(53881)*UV(5256) - JTUV(4275) = JVS(10066)*UV(2384)+JVS(11586)*UV(2698)+JVS(22550)*UV(4275)+JVS(35646)*UV(5191)+JVS(44089)*UV(5250)& - &+JVS(47053)*UV(5252)+JVS(49316)*UV(5253)+JVS(52268)*UV(5255)+JVS(53882)*UV(5256) - JTUV(4276) = JVS(5095)*UV(1273)+JVS(12920)*UV(2952)+JVS(22559)*UV(4276)+JVS(47054)*UV(5252)+JVS(49317)*UV(5253)& - &+JVS(52269)*UV(5255)+JVS(53883)*UV(5256) - JTUV(4277) = JVS(2222)*UV(572)+JVS(9418)*UV(2238)+JVS(13037)*UV(2971)+JVS(22569)*UV(4277)+JVS(47055)*UV(5252)& - &+JVS(49318)*UV(5253)+JVS(52270)*UV(5255)+JVS(53884)*UV(5256) - JTUV(4278) = JVS(22584)*UV(4278)+JVS(31039)*UV(5004)+JVS(36456)*UV(5201)+JVS(44092)*UV(5250)+JVS(45857)*UV(5251)& - &+JVS(52271)*UV(5255)+JVS(53885)*UV(5256) - JTUV(4279) = JVS(22596)*UV(4279)+JVS(25458)*UV(4549)+JVS(30705)*UV(4984)+JVS(36457)*UV(5201)+JVS(44093)*UV(5250)& - &+JVS(45858)*UV(5251)+JVS(52272)*UV(5255)+JVS(53886)*UV(5256) - JTUV(4280) = JVS(3434)*UV(860)+JVS(16595)*UV(3579)+JVS(22605)*UV(4280)+JVS(47056)*UV(5252)+JVS(49319)*UV(5253)& - &+JVS(52273)*UV(5255)+JVS(53887)*UV(5256) - JTUV(4281) = JVS(10113)*UV(2396)+JVS(11804)*UV(2738)+JVS(22614)*UV(4281)+JVS(38051)*UV(5230)+JVS(44095)*UV(5250)& - &+JVS(47057)*UV(5252)+JVS(49320)*UV(5253)+JVS(52274)*UV(5255)+JVS(53888)*UV(5256) - JTUV(4282) = JVS(14)*UV(3)+JVS(22622)*UV(4282)+JVS(29504)*UV(4909)+JVS(31725)*UV(5046)+JVS(45860)*UV(5251)+JVS(47058)& - &*UV(5252)+JVS(49321)*UV(5253)+JVS(50223)*UV(5254)+JVS(53889)*UV(5256) - JTUV(4283) = JVS(10002)*UV(2371)+JVS(12610)*UV(2896)+JVS(22631)*UV(4283)+JVS(34637)*UV(5165)+JVS(44096)*UV(5250)& - &+JVS(47059)*UV(5252)+JVS(49322)*UV(5253)+JVS(52275)*UV(5255)+JVS(53890)*UV(5256) - JTUV(4284) = JVS(3096)*UV(777)+JVS(8081)*UV(1947)+JVS(22641)*UV(4284)+JVS(47060)*UV(5252)+JVS(49323)*UV(5253)& - &+JVS(52276)*UV(5255)+JVS(53891)*UV(5256) - JTUV(4285) = JVS(4664)*UV(1166)+JVS(11794)*UV(2736)+JVS(22650)*UV(4285)+JVS(47061)*UV(5252)+JVS(49324)*UV(5253)& - &+JVS(52277)*UV(5255)+JVS(53892)*UV(5256) - JTUV(4286) = JVS(15)*UV(3)+JVS(22658)*UV(4286)+JVS(31726)*UV(5046)+JVS(37823)*UV(5227)+JVS(45862)*UV(5251)+JVS(47062)& - &*UV(5252)+JVS(49325)*UV(5253)+JVS(50224)*UV(5254)+JVS(53893)*UV(5256) - JTUV(4287) = JVS(4592)*UV(1148)+JVS(10962)*UV(2575)+JVS(22667)*UV(4287)+JVS(47063)*UV(5252)+JVS(49326)*UV(5253)& - &+JVS(52278)*UV(5255)+JVS(53894)*UV(5256) - JTUV(4288) = JVS(3672)*UV(919)+JVS(14826)*UV(3307)+JVS(22382)*UV(4257)+JVS(22676)*UV(4288)+JVS(44100)*UV(5250)& - &+JVS(47064)*UV(5252)+JVS(49327)*UV(5253)+JVS(52279)*UV(5255)+JVS(53895)*UV(5256) - JTUV(4289) = JVS(4112)*UV(1029)+JVS(11095)*UV(2598)+JVS(22685)*UV(4289)+JVS(47065)*UV(5252)+JVS(49328)*UV(5253)& - &+JVS(52280)*UV(5255)+JVS(53896)*UV(5256) - JTUV(4290) = JVS(2473)*UV(632)+JVS(9026)*UV(2151)+JVS(22698)*UV(4290)+JVS(47066)*UV(5252)+JVS(49329)*UV(5253)& - &+JVS(52281)*UV(5255)+JVS(53897)*UV(5256) - JTUV(4291) = JVS(3664)*UV(917)+JVS(11299)*UV(2641)+JVS(22707)*UV(4291)+JVS(47067)*UV(5252)+JVS(49330)*UV(5253)& - &+JVS(52282)*UV(5255)+JVS(53898)*UV(5256) - JTUV(4292) = JVS(4576)*UV(1144)+JVS(11509)*UV(2682)+JVS(22716)*UV(4292)+JVS(47068)*UV(5252)+JVS(49331)*UV(5253)& - &+JVS(52283)*UV(5255)+JVS(53899)*UV(5256) - JTUV(4293) = JVS(4414)*UV(1104)+JVS(12734)*UV(2918)+JVS(22725)*UV(4293)+JVS(47069)*UV(5252)+JVS(49332)*UV(5253)& - &+JVS(52284)*UV(5255)+JVS(53900)*UV(5256) - JTUV(4294) = JVS(22740)*UV(4294)+JVS(34790)*UV(5172)+JVS(40123)*UV(5244)+JVS(44106)*UV(5250) - JTUV(4295) = JVS(124)*UV(25)+JVS(7191)*UV(1761)+JVS(22760)*UV(4295)+JVS(47070)*UV(5252)+JVS(49333)*UV(5253)+JVS(52285)& - &*UV(5255)+JVS(53901)*UV(5256) - JTUV(4296) = JVS(3506)*UV(878)+JVS(16742)*UV(3597)+JVS(22770)*UV(4296)+JVS(47071)*UV(5252)+JVS(49334)*UV(5253)& - &+JVS(52286)*UV(5255)+JVS(53902)*UV(5256) - JTUV(4297) = JVS(4402)*UV(1101)+JVS(13536)*UV(3065)+JVS(22779)*UV(4297)+JVS(47072)*UV(5252)+JVS(49335)*UV(5253)& - &+JVS(52287)*UV(5255)+JVS(53903)*UV(5256) - JTUV(4298) = JVS(5684)*UV(1420)+JVS(12826)*UV(2935)+JVS(22788)*UV(4298)+JVS(47073)*UV(5252)+JVS(49336)*UV(5253)& - &+JVS(52288)*UV(5255)+JVS(53904)*UV(5256) - JTUV(4299) = JVS(11900)*UV(2754)+JVS(13469)*UV(3052)+JVS(22801)*UV(4299)+JVS(25277)*UV(4534)+JVS(44111)*UV(5250)& - &+JVS(45864)*UV(5251)+JVS(47074)*UV(5252)+JVS(49337)*UV(5253)+JVS(52289)*UV(5255)+JVS(53905)*UV(5256) - JTUV(4300) = JVS(16233)*UV(3530)+JVS(22813)*UV(4300)+JVS(26412)*UV(4646)+JVS(34034)*UV(5150)+JVS(40124)*UV(5244)& - &+JVS(44112)*UV(5250)+JVS(52290)*UV(5255) - JTUV(4301) = JVS(9007)*UV(2146)+JVS(13294)*UV(3017)+JVS(22823)*UV(4301)+JVS(37216)*UV(5215)+JVS(44113)*UV(5250)& - &+JVS(47075)*UV(5252)+JVS(49338)*UV(5253)+JVS(52291)*UV(5255)+JVS(53906)*UV(5256) - JTUV(4302) = JVS(16)*UV(3)+JVS(22831)*UV(4302)+JVS(31727)*UV(5046)+JVS(37217)*UV(5215)+JVS(45866)*UV(5251)+JVS(47076)& - &*UV(5252)+JVS(49339)*UV(5253)+JVS(50225)*UV(5254)+JVS(53907)*UV(5256) - JTUV(4303) = JVS(5022)*UV(1255)+JVS(11442)*UV(2668)+JVS(22840)*UV(4303)+JVS(47077)*UV(5252)+JVS(49340)*UV(5253)& - &+JVS(52292)*UV(5255)+JVS(53908)*UV(5256) - JTUV(4304) = JVS(6055)*UV(1512)+JVS(11125)*UV(2604)+JVS(22849)*UV(4304)+JVS(47078)*UV(5252)+JVS(49341)*UV(5253)& - &+JVS(52293)*UV(5255)+JVS(53909)*UV(5256) - JTUV(4305) = JVS(3648)*UV(913)+JVS(13121)*UV(2986)+JVS(22858)*UV(4305)+JVS(47079)*UV(5252)+JVS(49342)*UV(5253)& - &+JVS(52294)*UV(5255)+JVS(53910)*UV(5256) - JTUV(4306) = JVS(3334)*UV(835)+JVS(13385)*UV(3036)+JVS(22867)*UV(4306)+JVS(47080)*UV(5252)+JVS(49343)*UV(5253)& - &+JVS(52295)*UV(5255)+JVS(53911)*UV(5256) - JTUV(4307) = JVS(3688)*UV(923)+JVS(15399)*UV(3395)+JVS(22876)*UV(4307)+JVS(47081)*UV(5252)+JVS(49344)*UV(5253)& - &+JVS(52296)*UV(5255)+JVS(53912)*UV(5256) - JTUV(4308) = JVS(11735)*UV(2725)+JVS(12696)*UV(2911)+JVS(17146)*UV(3644)+JVS(22889)*UV(4308)+JVS(44119)*UV(5250)& - &+JVS(45867)*UV(5251)+JVS(47082)*UV(5252)+JVS(49345)*UV(5253)+JVS(52297)*UV(5255)+JVS(53913)*UV(5256) - JTUV(4309) = JVS(6992)*UV(1722)+JVS(6997)*UV(1723)+JVS(8735)*UV(2084)+JVS(22899)*UV(4309)+JVS(47083)*UV(5252)& - &+JVS(49346)*UV(5253)+JVS(52298)*UV(5255)+JVS(53914)*UV(5256) - JTUV(4310) = JVS(4198)*UV(1050)+JVS(4430)*UV(1108)+JVS(7891)*UV(1906)+JVS(9237)*UV(2198)+JVS(22910)*UV(4310)& - &+JVS(25171)*UV(4524)+JVS(47084)*UV(5252)+JVS(49347)*UV(5253)+JVS(52299)*UV(5255)+JVS(53915)*UV(5256) - JTUV(4311) = JVS(6356)*UV(1583)+JVS(6360)*UV(1584)+JVS(8180)*UV(1968)+JVS(22922)*UV(4311)+JVS(47085)*UV(5252)& - &+JVS(49348)*UV(5253)+JVS(52300)*UV(5255)+JVS(53916)*UV(5256) - JTUV(4312) = JVS(5600)*UV(1399)+JVS(12213)*UV(2818)+JVS(22931)*UV(4312)+JVS(47086)*UV(5252)+JVS(49349)*UV(5253)& - &+JVS(52301)*UV(5255)+JVS(53917)*UV(5256) - JTUV(4313) = JVS(22946)*UV(4313)+JVS(28690)*UV(4844)+JVS(32550)*UV(5090)+JVS(36458)*UV(5201)+JVS(44124)*UV(5250)& - &+JVS(45868)*UV(5251)+JVS(52302)*UV(5255)+JVS(53918)*UV(5256) - JTUV(4314) = JVS(5435)*UV(1358)+JVS(13227)*UV(3004)+JVS(22955)*UV(4314)+JVS(47087)*UV(5252)+JVS(49350)*UV(5253)& - &+JVS(52303)*UV(5255)+JVS(53919)*UV(5256) - JTUV(4315) = JVS(1053)*UV(247)+JVS(2442)*UV(625)+JVS(5980)*UV(1493)+JVS(9740)*UV(2312)+JVS(22967)*UV(4315)+JVS(47088)& - &*UV(5252)+JVS(49351)*UV(5253)+JVS(52304)*UV(5255)+JVS(53920)*UV(5256) - JTUV(4316) = JVS(10275)*UV(2434)+JVS(12197)*UV(2815)+JVS(22978)*UV(4316)+JVS(30951)*UV(5000)+JVS(44127)*UV(5250)& - &+JVS(47089)*UV(5252)+JVS(49352)*UV(5253)+JVS(52305)*UV(5255)+JVS(53921)*UV(5256) - JTUV(4317) = JVS(4748)*UV(1187)+JVS(10840)*UV(2551)+JVS(22987)*UV(4317)+JVS(47090)*UV(5252)+JVS(49353)*UV(5253)& - &+JVS(52306)*UV(5255)+JVS(53922)*UV(5256) - JTUV(4318) = JVS(4868)*UV(1217)+JVS(9080)*UV(2163)+JVS(22996)*UV(4318)+JVS(47091)*UV(5252)+JVS(49354)*UV(5253)& - &+JVS(52307)*UV(5255)+JVS(53923)*UV(5256) - JTUV(4319) = JVS(515)*UV(134)+JVS(1235)*UV(297)+JVS(4620)*UV(1155)+JVS(9814)*UV(2327)+JVS(23009)*UV(4319)+JVS(47092)& - &*UV(5252)+JVS(49355)*UV(5253)+JVS(52308)*UV(5255)+JVS(53924)*UV(5256) - JTUV(4320) = JVS(17)*UV(3)+JVS(23017)*UV(4320)+JVS(31728)*UV(5046)+JVS(34938)*UV(5178)+JVS(45870)*UV(5251)+JVS(47093)& - &*UV(5252)+JVS(49356)*UV(5253)+JVS(50226)*UV(5254)+JVS(53925)*UV(5256) - JTUV(4321) = JVS(9463)*UV(2249)+JVS(14462)*UV(3240)+JVS(16042)*UV(3501)+JVS(16124)*UV(3514)+JVS(23025)*UV(4321)& - &+JVS(44131)*UV(5250)+JVS(45871)*UV(5251)+JVS(47094)*UV(5252)+JVS(49357)*UV(5253)+JVS(52309)*UV(5255)& - &+JVS(53926)*UV(5256) - JTUV(4322) = JVS(8567)*UV(2048)+JVS(18633)*UV(3829)+JVS(23036)*UV(4322)+JVS(37514)*UV(5222)+JVS(52310)*UV(5255) - JTUV(4323) = JVS(2458)*UV(629)+JVS(9878)*UV(2342)+JVS(23044)*UV(4323)+JVS(47096)*UV(5252)+JVS(49359)*UV(5253)& - &+JVS(52311)*UV(5255)+JVS(53928)*UV(5256) - JTUV(4324) = JVS(9905)*UV(2349)+JVS(11178)*UV(2615)+JVS(23056)*UV(4324)+JVS(23069)*UV(4325)+JVS(40129)*UV(5244)& - &+JVS(44134)*UV(5250)+JVS(47097)*UV(5252)+JVS(49360)*UV(5253)+JVS(52312)*UV(5255)+JVS(53929)*UV(5256) - JTUV(4325) = JVS(14692)*UV(3281)+JVS(23070)*UV(4325)+JVS(32741)*UV(5100)+JVS(36216)*UV(5199)+JVS(40130)*UV(5244)& - &+JVS(44135)*UV(5250)+JVS(52313)*UV(5255) - JTUV(4326) = JVS(8028)*UV(1936)+JVS(18570)*UV(3821)+JVS(23083)*UV(4326)+JVS(39076)*UV(5233)+JVS(52314)*UV(5255) - JTUV(4327) = JVS(3228)*UV(809)+JVS(8777)*UV(2093)+JVS(23091)*UV(4327)+JVS(47099)*UV(5252)+JVS(49362)*UV(5253)& - &+JVS(52315)*UV(5255)+JVS(53931)*UV(5256) - JTUV(4328) = JVS(10521)*UV(2488)+JVS(23099)*UV(4328)+JVS(29960)*UV(4938)+JVS(37889)*UV(5228)+JVS(45877)*UV(5251)& - &+JVS(52316)*UV(5255) - JTUV(4329) = JVS(8528)*UV(2039)+JVS(13033)*UV(2970)+JVS(23114)*UV(4329)+JVS(36218)*UV(5199)+JVS(40133)*UV(5244)& - &+JVS(44139)*UV(5250)+JVS(47100)*UV(5252)+JVS(49363)*UV(5253)+JVS(52317)*UV(5255)+JVS(53932)*UV(5256) - JTUV(4330) = JVS(80)*UV(12)+JVS(5080)*UV(1269)+JVS(23121)*UV(4330)+JVS(33340)*UV(5128)+JVS(35499)*UV(5188)+JVS(38467)& - &*UV(5231)+JVS(40134)*UV(5244)+JVS(44140)*UV(5250)+JVS(45878)*UV(5251)+JVS(49364)*UV(5253)+JVS(53933)& - &*UV(5256)+JVS(54885)*UV(5258) - JTUV(4331) = JVS(23140)*UV(4331)+JVS(29961)*UV(4938)+JVS(44141)*UV(5250)+JVS(45879)*UV(5251)+JVS(49365)*UV(5253) - JTUV(4332) = JVS(14778)*UV(3297)+JVS(23152)*UV(4332)+JVS(23158)*UV(4333)+JVS(24577)*UV(4476)+JVS(27175)*UV(4714)& - &+JVS(27777)*UV(4767)+JVS(27939)*UV(4782)+JVS(35647)*UV(5191)+JVS(35874)*UV(5193)+JVS(44142)*UV(5250)& - &+JVS(53934)*UV(5256)+JVS(54886)*UV(5258) - JTUV(4333) = JVS(12712)*UV(2914)+JVS(23159)*UV(4333)+JVS(30091)*UV(4943)+JVS(37890)*UV(5228)+JVS(44143)*UV(5250)& - &+JVS(45881)*UV(5251)+JVS(52320)*UV(5255) - JTUV(4334) = JVS(965)*UV(220)+JVS(5127)*UV(1281)+JVS(8555)*UV(2045)+JVS(12570)*UV(2889)+JVS(15319)*UV(3384)+JVS(23168)& - &*UV(4334)+JVS(47101)*UV(5252)+JVS(49366)*UV(5253)+JVS(52321)*UV(5255)+JVS(53935)*UV(5256) - JTUV(4335) = JVS(1505)*UV(374)+JVS(3652)*UV(914)+JVS(15806)*UV(3460)+JVS(16767)*UV(3600)+JVS(23176)*UV(4335)& - &+JVS(47102)*UV(5252)+JVS(49367)*UV(5253)+JVS(52322)*UV(5255)+JVS(53936)*UV(5256) - JTUV(4336) = JVS(7067)*UV(1737)+JVS(10873)*UV(2558)+JVS(16026)*UV(3498)+JVS(22031)*UV(4223)+JVS(23184)*UV(4336)& - &+JVS(47103)*UV(5252)+JVS(49368)*UV(5253)+JVS(52323)*UV(5255)+JVS(53937)*UV(5256) - JTUV(4337) = JVS(5459)*UV(1364)+JVS(16651)*UV(3586)+JVS(23191)*UV(4337)+JVS(47104)*UV(5252)+JVS(49369)*UV(5253)& - &+JVS(52324)*UV(5255)+JVS(53938)*UV(5256) - JTUV(4338) = JVS(1557)*UV(389)+JVS(5135)*UV(1283)+JVS(12947)*UV(2956)+JVS(20361)*UV(4038)+JVS(23200)*UV(4338)& - &+JVS(44148)*UV(5250)+JVS(47105)*UV(5252)+JVS(49370)*UV(5253)+JVS(52325)*UV(5255)+JVS(53939)*UV(5256)& - &+JVS(54887)*UV(5258) - JTUV(4339) = JVS(7626)*UV(1848)+JVS(15753)*UV(3449)+JVS(23206)*UV(4339)+JVS(47106)*UV(5252)+JVS(49371)*UV(5253)& - &+JVS(52326)*UV(5255)+JVS(53940)*UV(5256) - JTUV(4340) = JVS(2820)*UV(714)+JVS(8013)*UV(1932)+JVS(23215)*UV(4340)+JVS(24796)*UV(4493)+JVS(34256)*UV(5159)& - &+JVS(47107)*UV(5252)+JVS(49372)*UV(5253)+JVS(52327)*UV(5255)+JVS(53941)*UV(5256) - JTUV(4341) = JVS(2579)*UV(656)+JVS(8548)*UV(2043)+JVS(11569)*UV(2695)+JVS(16836)*UV(3608)+JVS(23221)*UV(4341)& - &+JVS(47108)*UV(5252)+JVS(49373)*UV(5253)+JVS(52328)*UV(5255)+JVS(53942)*UV(5256) - JTUV(4342) = JVS(1561)*UV(390)+JVS(5760)*UV(1439)+JVS(7303)*UV(1786)+JVS(15654)*UV(3430)+JVS(17124)*UV(3642)& - &+JVS(23229)*UV(4342)+JVS(47109)*UV(5252)+JVS(49374)*UV(5253)+JVS(52329)*UV(5255)+JVS(53943)*UV(5256) - JTUV(4343) = JVS(2203)*UV(567)+JVS(2543)*UV(648)+JVS(7984)*UV(1926)+JVS(23238)*UV(4343)+JVS(47110)*UV(5252)+JVS(49375)& - &*UV(5253)+JVS(52330)*UV(5255)+JVS(53944)*UV(5256) - JTUV(4344) = JVS(3310)*UV(829)+JVS(19181)*UV(3897)+JVS(23248)*UV(4344)+JVS(47111)*UV(5252)+JVS(49376)*UV(5253)& - &+JVS(52331)*UV(5255)+JVS(53945)*UV(5256) - JTUV(4345) = JVS(14678)*UV(3278)+JVS(19275)*UV(3909)+JVS(23257)*UV(4345)+JVS(47112)*UV(5252)+JVS(49377)*UV(5253)& - &+JVS(52332)*UV(5255)+JVS(53946)*UV(5256) - JTUV(4346) = JVS(2173)*UV(559)+JVS(6159)*UV(1538)+JVS(13415)*UV(3041)+JVS(17094)*UV(3639)+JVS(23265)*UV(4346)& - &+JVS(47113)*UV(5252)+JVS(49378)*UV(5253)+JVS(52333)*UV(5255)+JVS(53947)*UV(5256) - JTUV(4347) = JVS(6809)*UV(1681)+JVS(11116)*UV(2602)+JVS(11395)*UV(2659)+JVS(23272)*UV(4347)+JVS(47114)*UV(5252)& - &+JVS(49379)*UV(5253)+JVS(52334)*UV(5255)+JVS(53948)*UV(5256) - JTUV(4348) = JVS(1416)*UV(348)+JVS(5287)*UV(1321)+JVS(7793)*UV(1884)+JVS(13042)*UV(2972)+JVS(18882)*UV(3861)& - &+JVS(23280)*UV(4348)+JVS(47115)*UV(5252)+JVS(49380)*UV(5253)+JVS(52335)*UV(5255)+JVS(53949)*UV(5256) - JTUV(4349) = JVS(2856)*UV(722)+JVS(6921)*UV(1707)+JVS(8588)*UV(2052)+JVS(14020)*UV(3151)+JVS(23288)*UV(4349)& - &+JVS(47116)*UV(5252)+JVS(49381)*UV(5253)+JVS(52336)*UV(5255)+JVS(53950)*UV(5256) - JTUV(4350) = JVS(2741)*UV(696)+JVS(5251)*UV(1312)+JVS(19311)*UV(3913)+JVS(22585)*UV(4278)+JVS(23297)*UV(4350)& - &+JVS(47117)*UV(5252)+JVS(49382)*UV(5253)+JVS(52337)*UV(5255)+JVS(53951)*UV(5256) - JTUV(4351) = JVS(7674)*UV(1859)+JVS(14503)*UV(3245)+JVS(16644)*UV(3585)+JVS(23304)*UV(4351)+JVS(28702)*UV(4845)& - &+JVS(47118)*UV(5252)+JVS(49383)*UV(5253)+JVS(52338)*UV(5255)+JVS(53952)*UV(5256) - JTUV(4352) = JVS(23315)*UV(4352)+JVS(34088)*UV(5152)+JVS(36219)*UV(5199)+JVS(40141)*UV(5244)+JVS(44162)*UV(5250)& - &+JVS(49384)*UV(5253) - JTUV(4353) = JVS(7744)*UV(1872)+JVS(12150)*UV(2805)+JVS(13429)*UV(3044)+JVS(14119)*UV(3171)+JVS(23325)*UV(4353)& - &+JVS(47119)*UV(5252)+JVS(49385)*UV(5253)+JVS(52339)*UV(5255)+JVS(53953)*UV(5256) - JTUV(4354) = JVS(8380)*UV(2009)+JVS(15547)*UV(3415)+JVS(23332)*UV(4354)+JVS(29192)*UV(4883)+JVS(30890)*UV(4996)& - &+JVS(47120)*UV(5252)+JVS(49386)*UV(5253)+JVS(52340)*UV(5255)+JVS(53954)*UV(5256) - JTUV(4355) = JVS(2236)*UV(575)+JVS(6771)*UV(1674)+JVS(9339)*UV(2221)+JVS(14194)*UV(3185)+JVS(23340)*UV(4355)& - &+JVS(47121)*UV(5252)+JVS(49387)*UV(5253)+JVS(52341)*UV(5255)+JVS(53955)*UV(5256) - JTUV(4356) = JVS(683)*UV(167)+JVS(6423)*UV(1599)+JVS(9307)*UV(2213)+JVS(10137)*UV(2401)+JVS(23348)*UV(4356)+JVS(27200)& - &*UV(4717)+JVS(47122)*UV(5252)+JVS(49388)*UV(5253)+JVS(52342)*UV(5255)+JVS(53956)*UV(5256) - JTUV(4357) = JVS(1185)*UV(284)+JVS(6003)*UV(1499)+JVS(10652)*UV(2514)+JVS(11321)*UV(2644)+JVS(23355)*UV(4357)& - &+JVS(47123)*UV(5252)+JVS(49389)*UV(5253)+JVS(52343)*UV(5255)+JVS(53957)*UV(5256) - JTUV(4358) = JVS(3223)*UV(808)+JVS(6297)*UV(1570)+JVS(15741)*UV(3446)+JVS(17147)*UV(3644)+JVS(23362)*UV(4358)& - &+JVS(47124)*UV(5252)+JVS(49390)*UV(5253)+JVS(52344)*UV(5255)+JVS(53958)*UV(5256) - JTUV(4359) = JVS(1438)*UV(355)+JVS(4016)*UV(1005)+JVS(8363)*UV(2005)+JVS(14292)*UV(3205)+JVS(19966)*UV(3991)& - &+JVS(23370)*UV(4359)+JVS(47125)*UV(5252)+JVS(49391)*UV(5253)+JVS(52345)*UV(5255)+JVS(53959)*UV(5256) - JTUV(4360) = JVS(1627)*UV(408)+JVS(5916)*UV(1478)+JVS(8326)*UV(1998)+JVS(13283)*UV(3015)+JVS(16605)*UV(3580)& - &+JVS(23380)*UV(4360)+JVS(47126)*UV(5252)+JVS(49392)*UV(5253)+JVS(52346)*UV(5255)+JVS(53960)*UV(5256) - JTUV(4361) = JVS(2213)*UV(570)+JVS(7086)*UV(1740)+JVS(8897)*UV(2121)+JVS(14187)*UV(3184)+JVS(23388)*UV(4361)& - &+JVS(47127)*UV(5252)+JVS(49393)*UV(5253)+JVS(52347)*UV(5255)+JVS(53961)*UV(5256) - JTUV(4362) = JVS(23396)*UV(4362)+JVS(24483)*UV(4465)+JVS(25126)*UV(4520)+JVS(36464)*UV(5201)+JVS(37150)*UV(5214)& - &+JVS(38836)*UV(5232)+JVS(44172)*UV(5250)+JVS(45892)*UV(5251)+JVS(52348)*UV(5255)+JVS(53962)*UV(5256) - JTUV(4363) = JVS(1087)*UV(256)+JVS(5780)*UV(1444)+JVS(7142)*UV(1752)+JVS(15620)*UV(3425)+JVS(16015)*UV(3497)& - &+JVS(23405)*UV(4363)+JVS(47128)*UV(5252)+JVS(49394)*UV(5253)+JVS(52349)*UV(5255)+JVS(53963)*UV(5256) - JTUV(4364) = JVS(1005)*UV(232)+JVS(7836)*UV(1894)+JVS(8384)*UV(2010)+JVS(12478)*UV(2869)+JVS(23412)*UV(4364)& - &+JVS(47129)*UV(5252)+JVS(49395)*UV(5253)+JVS(52350)*UV(5255)+JVS(53964)*UV(5256) - JTUV(4365) = JVS(2981)*UV(749)+JVS(6429)*UV(1601)+JVS(12809)*UV(2932)+JVS(15865)*UV(3473)+JVS(23423)*UV(4365)& - &+JVS(47130)*UV(5252)+JVS(49396)*UV(5253)+JVS(52351)*UV(5255)+JVS(53965)*UV(5256) - JTUV(4366) = JVS(23443)*UV(4366)+JVS(31350)*UV(5023)+JVS(38474)*UV(5231)+JVS(38837)*UV(5232)+JVS(44176)*UV(5250)& - &+JVS(52352)*UV(5255) - JTUV(4367) = JVS(3032)*UV(761)+JVS(6938)*UV(1711)+JVS(6943)*UV(1712)+JVS(10943)*UV(2572)+JVS(23455)*UV(4367)& - &+JVS(47131)*UV(5252)+JVS(49397)*UV(5253)+JVS(52353)*UV(5255)+JVS(53966)*UV(5256) - JTUV(4368) = JVS(1322)*UV(321)+JVS(7727)*UV(1869)+JVS(7734)*UV(1870)+JVS(10153)*UV(2405)+JVS(12937)*UV(2954)& - &+JVS(23462)*UV(4368)+JVS(47132)*UV(5252)+JVS(49398)*UV(5253)+JVS(52354)*UV(5255)+JVS(53967)*UV(5256) - JTUV(4369) = JVS(2961)*UV(745)+JVS(6300)*UV(1571)+JVS(7584)*UV(1839)+JVS(13661)*UV(3086)+JVS(23470)*UV(4369)& - &+JVS(47133)*UV(5252)+JVS(49399)*UV(5253)+JVS(52355)*UV(5255)+JVS(53968)*UV(5256) - JTUV(4370) = JVS(10270)*UV(2433)+JVS(10309)*UV(2442)+JVS(16580)*UV(3577)+JVS(23477)*UV(4370)+JVS(29506)*UV(4909)& - &+JVS(47134)*UV(5252)+JVS(49400)*UV(5253)+JVS(52356)*UV(5255)+JVS(53969)*UV(5256) - JTUV(4371) = JVS(2703)*UV(687)+JVS(13237)*UV(3006)+JVS(23484)*UV(4371)+JVS(47135)*UV(5252)+JVS(49401)*UV(5253)& - &+JVS(52357)*UV(5255)+JVS(53970)*UV(5256) - JTUV(4372) = JVS(4215)*UV(1054)+JVS(5584)*UV(1395)+JVS(9344)*UV(2222)+JVS(11623)*UV(2706)+JVS(23490)*UV(4372)& - &+JVS(23499)*UV(4373)+JVS(47136)*UV(5252)+JVS(49402)*UV(5253)+JVS(52358)*UV(5255)+JVS(53971)*UV(5256) - JTUV(4373) = JVS(22400)*UV(4259)+JVS(23500)*UV(4373)+JVS(36027)*UV(5194)+JVS(36465)*UV(5201)+JVS(44183)*UV(5250)& - &+JVS(45895)*UV(5251)+JVS(52359)*UV(5255)+JVS(53972)*UV(5256) - JTUV(4374) = JVS(1945)*UV(498)+JVS(4568)*UV(1142)+JVS(8691)*UV(2074)+JVS(11843)*UV(2745)+JVS(16787)*UV(3602)& - &+JVS(23509)*UV(4374)+JVS(47138)*UV(5252)+JVS(49404)*UV(5253)+JVS(52360)*UV(5255)+JVS(53973)*UV(5256) - JTUV(4375) = JVS(987)*UV(227)+JVS(5423)*UV(1355)+JVS(14266)*UV(3199)+JVS(23518)*UV(4375)+JVS(23529)*UV(4376)& - &+JVS(44185)*UV(5250)+JVS(47139)*UV(5252)+JVS(49405)*UV(5253)+JVS(52361)*UV(5255)+JVS(53974)*UV(5256)& - &+JVS(54888)*UV(5258) - JTUV(4376) = JVS(9144)*UV(2177)+JVS(23530)*UV(4376)+JVS(24601)*UV(4478)+JVS(47140)*UV(5252)+JVS(49406)*UV(5253)& - &+JVS(52362)*UV(5255)+JVS(53975)*UV(5256) - JTUV(4377) = JVS(2901)*UV(732)+JVS(3398)*UV(851)+JVS(15629)*UV(3426)+JVS(15633)*UV(3427)+JVS(23539)*UV(4377)& - &+JVS(23643)*UV(4388)+JVS(47141)*UV(5252)+JVS(49407)*UV(5253)+JVS(52363)*UV(5255)+JVS(53976)*UV(5256) - JTUV(4378) = JVS(10537)*UV(2491)+JVS(23547)*UV(4378)+JVS(32269)*UV(5075)+JVS(37518)*UV(5222)+JVS(39259)*UV(5234)& - &+JVS(44188)*UV(5250)+JVS(49408)*UV(5253)+JVS(52364)*UV(5255) - JTUV(4379) = JVS(7609)*UV(1845)+JVS(23555)*UV(4379)+JVS(29965)*UV(4938)+JVS(37891)*UV(5228)+JVS(40144)*UV(5244) - JTUV(4380) = JVS(1539)*UV(384)+JVS(4422)*UV(1106)+JVS(11830)*UV(2743)+JVS(23564)*UV(4380)+JVS(27643)*UV(4755)& - &+JVS(44190)*UV(5250)+JVS(47143)*UV(5252)+JVS(49410)*UV(5253)+JVS(52366)*UV(5255)+JVS(53978)*UV(5256)& - &+JVS(54889)*UV(5258) - JTUV(4381) = JVS(2956)*UV(744)+JVS(7538)*UV(1830)+JVS(23572)*UV(4381)+JVS(47144)*UV(5252)+JVS(49411)*UV(5253)& - &+JVS(52367)*UV(5255)+JVS(53979)*UV(5256) - JTUV(4382) = JVS(1895)*UV(484)+JVS(3494)*UV(875)+JVS(10708)*UV(2526)+JVS(23578)*UV(4382)+JVS(31351)*UV(5023)& - &+JVS(39260)*UV(5234)+JVS(44192)*UV(5250)+JVS(45901)*UV(5251)+JVS(47145)*UV(5252)+JVS(49412)*UV(5253)& - &+JVS(52368)*UV(5255)+JVS(53980)*UV(5256) - JTUV(4383) = JVS(9807)*UV(2326)+JVS(23589)*UV(4383)+JVS(37519)*UV(5222)+JVS(38478)*UV(5231)+JVS(39612)*UV(5241)& - &+JVS(40145)*UV(5244)+JVS(44193)*UV(5250) - JTUV(4384) = JVS(8448)*UV(2024)+JVS(14662)*UV(3274)+JVS(23601)*UV(4384)+JVS(47146)*UV(5252)+JVS(49413)*UV(5253)& - &+JVS(52369)*UV(5255)+JVS(53981)*UV(5256) - JTUV(4385) = JVS(3243)*UV(813)+JVS(6497)*UV(1614)+JVS(7383)*UV(1801)+JVS(10699)*UV(2524)+JVS(23612)*UV(4385)& - &+JVS(47147)*UV(5252)+JVS(49414)*UV(5253)+JVS(52370)*UV(5255)+JVS(53982)*UV(5256) - JTUV(4386) = JVS(23623)*UV(4386)+JVS(29967)*UV(4938)+JVS(35883)*UV(5193)+JVS(40147)*UV(5244)+JVS(44196)*UV(5250)& - &+JVS(52371)*UV(5255) - JTUV(4387) = JVS(4564)*UV(1141)+JVS(7285)*UV(1782)+JVS(14914)*UV(3328)+JVS(18143)*UV(3767)+JVS(23635)*UV(4387)& - &+JVS(47148)*UV(5252)+JVS(49415)*UV(5253)+JVS(52372)*UV(5255)+JVS(53983)*UV(5256) - JTUV(4388) = JVS(10463)*UV(2474)+JVS(23644)*UV(4388)+JVS(27248)*UV(4721)+JVS(28441)*UV(4823)+JVS(29658)*UV(4918)& - &+JVS(52373)*UV(5255) - JTUV(4389) = JVS(2750)*UV(698)+JVS(7104)*UV(1744)+JVS(8621)*UV(2059)+JVS(14180)*UV(3183)+JVS(23652)*UV(4389)& - &+JVS(47149)*UV(5252)+JVS(49416)*UV(5253)+JVS(52374)*UV(5255)+JVS(53984)*UV(5256) - JTUV(4390) = JVS(6889)*UV(1699)+JVS(12521)*UV(2878)+JVS(16027)*UV(3498)+JVS(18058)*UV(3757)+JVS(23660)*UV(4390)& - &+JVS(47150)*UV(5252)+JVS(49417)*UV(5253)+JVS(52375)*UV(5255)+JVS(53985)*UV(5256) - JTUV(4391) = JVS(23673)*UV(4391)+JVS(28207)*UV(4801)+JVS(36770)*UV(5202)+JVS(40150)*UV(5244)+JVS(44201)*UV(5250)& - &+JVS(52376)*UV(5255) - JTUV(4392) = JVS(23693)*UV(4392)+JVS(32861)*UV(5105)+JVS(39453)*UV(5237)+JVS(40151)*UV(5244)+JVS(44202)*UV(5250)& - &+JVS(52377)*UV(5255) - JTUV(4393) = JVS(10450)*UV(2472)+JVS(23705)*UV(4393)+JVS(27249)*UV(4721)+JVS(28442)*UV(4823)+JVS(29844)*UV(4931)& - &+JVS(52378)*UV(5255) - JTUV(4394) = JVS(345)*UV(87)+JVS(1343)*UV(326)+JVS(3876)*UV(970)+JVS(9422)*UV(2239)+JVS(23715)*UV(4394)+JVS(47151)& - &*UV(5252)+JVS(49418)*UV(5253)+JVS(52379)*UV(5255)+JVS(53986)*UV(5256) - JTUV(4395) = JVS(13997)*UV(3147)+JVS(18920)*UV(3866)+JVS(19935)*UV(3987)+JVS(23721)*UV(4395)+JVS(25207)*UV(4528)& - &+JVS(30415)*UV(4964)+JVS(38480)*UV(5231)+JVS(44205)*UV(5250)+JVS(53987)*UV(5256)+JVS(54890)*UV(5258) - JTUV(4396) = JVS(23728)*UV(4396)+JVS(25056)*UV(4513)+JVS(25807)*UV(4588)+JVS(26443)*UV(4649)+JVS(27224)*UV(4720)& - &+JVS(27250)*UV(4721)+JVS(31985)*UV(5058)+JVS(36466)*UV(5201)+JVS(44206)*UV(5250)+JVS(45907)*UV(5251)& - &+JVS(52381)*UV(5255)+JVS(53988)*UV(5256)+JVS(54891)*UV(5258) - JTUV(4397) = JVS(18306)*UV(3786)+JVS(18639)*UV(3830)+JVS(19229)*UV(3903)+JVS(23735)*UV(4397)+JVS(30428)*UV(4965)& - &+JVS(36467)*UV(5201)+JVS(44207)*UV(5250)+JVS(52382)*UV(5255)+JVS(53989)*UV(5256) - JTUV(4398) = JVS(17672)*UV(3712)+JVS(23746)*UV(4398)+JVS(28117)*UV(4796)+JVS(44208)*UV(5250)+JVS(45908)*UV(5251)& - &+JVS(52383)*UV(5255) - JTUV(4399) = JVS(2010)*UV(517)+JVS(5740)*UV(1434)+JVS(9874)*UV(2341)+JVS(13859)*UV(3121)+JVS(15012)*UV(3342)& - &+JVS(23757)*UV(4399)+JVS(47154)*UV(5252)+JVS(49421)*UV(5253)+JVS(52384)*UV(5255)+JVS(53990)*UV(5256) - JTUV(4400) = JVS(1866)*UV(475)+JVS(3784)*UV(947)+JVS(15794)*UV(3457)+JVS(16612)*UV(3581)+JVS(23765)*UV(4400)& - &+JVS(47155)*UV(5252)+JVS(49422)*UV(5253)+JVS(52385)*UV(5255)+JVS(53991)*UV(5256) - JTUV(4401) = JVS(23777)*UV(4401)+JVS(28983)*UV(4865)+JVS(33654)*UV(5139)+JVS(35260)*UV(5183)+JVS(37520)*UV(5222)& - &+JVS(40152)*UV(5244)+JVS(44211)*UV(5250)+JVS(52386)*UV(5255) - JTUV(4402) = JVS(13825)*UV(3116)+JVS(20334)*UV(4035)+JVS(23787)*UV(4402)+JVS(49423)*UV(5253)+JVS(54893)*UV(5258) - JTUV(4403) = JVS(23824)*UV(4403)+JVS(35261)*UV(5183)+JVS(44213)*UV(5250)+JVS(52388)*UV(5255) - JTUV(4404) = JVS(9115)*UV(2171)+JVS(13524)*UV(3063)+JVS(23844)*UV(4404)+JVS(35262)*UV(5183)+JVS(44214)*UV(5250)& - &+JVS(45909)*UV(5251)+JVS(47157)*UV(5252)+JVS(49424)*UV(5253)+JVS(52389)*UV(5255)+JVS(53993)*UV(5256) - JTUV(4405) = JVS(4438)*UV(1110)+JVS(8320)*UV(1997)+JVS(10986)*UV(2579)+JVS(23853)*UV(4405)+JVS(35886)*UV(5193)& - &+JVS(44215)*UV(5250)+JVS(47158)*UV(5252)+JVS(49425)*UV(5253)+JVS(52390)*UV(5255)+JVS(53994)*UV(5256)& - &+JVS(54894)*UV(5258) - JTUV(4406) = JVS(23862)*UV(4406)+JVS(33449)*UV(5133)+JVS(37521)*UV(5222)+JVS(44216)*UV(5250)+JVS(45911)*UV(5251)& - &+JVS(49426)*UV(5253)+JVS(52391)*UV(5255) - JTUV(4407) = JVS(13653)*UV(3085)+JVS(20120)*UV(4009)+JVS(23874)*UV(4407)+JVS(49427)*UV(5253)+JVS(54895)*UV(5258) - JTUV(4408) = JVS(13884)*UV(3125)+JVS(20700)*UV(4075)+JVS(23884)*UV(4408)+JVS(49428)*UV(5253)+JVS(54896)*UV(5258) - JTUV(4409) = JVS(4584)*UV(1146)+JVS(10947)*UV(2573)+JVS(23894)*UV(4409)+JVS(24300)*UV(4447)+JVS(44219)*UV(5250)& - &+JVS(47161)*UV(5252)+JVS(49429)*UV(5253)+JVS(52394)*UV(5255)+JVS(53997)*UV(5256) - JTUV(4410) = JVS(3149)*UV(789)+JVS(4374)*UV(1094)+JVS(7043)*UV(1732)+JVS(14836)*UV(3309)+JVS(23905)*UV(4410)& - &+JVS(47162)*UV(5252)+JVS(49430)*UV(5253)+JVS(52395)*UV(5255)+JVS(53998)*UV(5256) - JTUV(4411) = JVS(487)*UV(126)+JVS(6290)*UV(1568)+JVS(9405)*UV(2235)+JVS(9511)*UV(2261)+JVS(23914)*UV(4411)+JVS(32210)& - &*UV(5071)+JVS(47163)*UV(5252)+JVS(49431)*UV(5253)+JVS(52396)*UV(5255)+JVS(53999)*UV(5256) - JTUV(4412) = JVS(4294)*UV(1074)+JVS(12552)*UV(2885)+JVS(23915)*UV(4411)+JVS(23926)*UV(4412)+JVS(32071)*UV(5062)& - &+JVS(44222)*UV(5250)+JVS(47164)*UV(5252)+JVS(49432)*UV(5253)+JVS(52397)*UV(5255)+JVS(54000)*UV(5256) - JTUV(4413) = JVS(13897)*UV(3127)+JVS(20533)*UV(4054)+JVS(23936)*UV(4413)+JVS(49433)*UV(5253)+JVS(54897)*UV(5258) - JTUV(4414) = JVS(7638)*UV(1851)+JVS(10555)*UV(2494)+JVS(12111)*UV(2796)+JVS(23945)*UV(4414)+JVS(39261)*UV(5234)& - &+JVS(44224)*UV(5250)+JVS(45915)*UV(5251)+JVS(47166)*UV(5252)+JVS(49434)*UV(5253)+JVS(52399)*UV(5255)& - &+JVS(54002)*UV(5256)+JVS(54898)*UV(5258) - JTUV(4415) = JVS(3904)*UV(977)+JVS(15451)*UV(3402)+JVS(23954)*UV(4415)+JVS(47167)*UV(5252)+JVS(49435)*UV(5253)& - &+JVS(52400)*UV(5255)+JVS(54003)*UV(5256) - JTUV(4416) = JVS(2271)*UV(584)+JVS(10206)*UV(2417)+JVS(23963)*UV(4416)+JVS(47168)*UV(5252)+JVS(49436)*UV(5253)& - &+JVS(52401)*UV(5255)+JVS(54004)*UV(5256) - JTUV(4417) = JVS(4792)*UV(1198)+JVS(14698)*UV(3282)+JVS(22187)*UV(4238)+JVS(23975)*UV(4417)+JVS(44227)*UV(5250)& - &+JVS(47169)*UV(5252)+JVS(49437)*UV(5253)+JVS(52402)*UV(5255)+JVS(54005)*UV(5256) - JTUV(4418) = JVS(2933)*UV(739)+JVS(6518)*UV(1618)+JVS(8421)*UV(2018)+JVS(14980)*UV(3337)+JVS(23985)*UV(4418)& - &+JVS(47170)*UV(5252)+JVS(49438)*UV(5253)+JVS(52403)*UV(5255)+JVS(54006)*UV(5256) - JTUV(4419) = JVS(3780)*UV(946)+JVS(11691)*UV(2718)+JVS(23997)*UV(4419)+JVS(31687)*UV(5043)+JVS(44229)*UV(5250)& - &+JVS(47171)*UV(5252)+JVS(49439)*UV(5253)+JVS(52404)*UV(5255)+JVS(54007)*UV(5256) - JTUV(4420) = JVS(12440)*UV(2861)+JVS(24007)*UV(4420)+JVS(38482)*UV(5231)+JVS(39088)*UV(5233)+JVS(39353)*UV(5235)& - &+JVS(44230)*UV(5250)+JVS(45919)*UV(5251)+JVS(52405)*UV(5255) - JTUV(4421) = JVS(3836)*UV(960)+JVS(11883)*UV(2751)+JVS(24020)*UV(4421)+JVS(47172)*UV(5252)+JVS(49440)*UV(5253)& - &+JVS(52406)*UV(5255)+JVS(54008)*UV(5256) - JTUV(4422) = JVS(295)*UV(73)+JVS(3346)*UV(838)+JVS(7019)*UV(1727)+JVS(24029)*UV(4422)+JVS(47173)*UV(5252)+JVS(49441)& - &*UV(5253)+JVS(52407)*UV(5255)+JVS(54009)*UV(5256) - JTUV(4423) = JVS(397)*UV(101)+JVS(657)*UV(163)+JVS(3888)*UV(973)+JVS(24043)*UV(4423)+JVS(47174)*UV(5252)+JVS(49442)& - &*UV(5253)+JVS(52408)*UV(5255)+JVS(54010)*UV(5256) - JTUV(4424) = JVS(8893)*UV(2120)+JVS(12792)*UV(2929)+JVS(22075)*UV(4227)+JVS(24054)*UV(4424)+JVS(44234)*UV(5250)& - &+JVS(47175)*UV(5252)+JVS(49443)*UV(5253)+JVS(52409)*UV(5255)+JVS(54011)*UV(5256) - JTUV(4425) = JVS(4470)*UV(1118)+JVS(16735)*UV(3596)+JVS(24063)*UV(4425)+JVS(47176)*UV(5252)+JVS(49444)*UV(5253)& - &+JVS(52410)*UV(5255)+JVS(54012)*UV(5256) - JTUV(4426) = JVS(128)*UV(26)+JVS(590)*UV(152)+JVS(5860)*UV(1464)+JVS(24081)*UV(4426)+JVS(47177)*UV(5252)+JVS(49445)& - &*UV(5253)+JVS(52411)*UV(5255)+JVS(54013)*UV(5256) - JTUV(4427) = JVS(3330)*UV(834)+JVS(9640)*UV(2290)+JVS(13131)*UV(2988)+JVS(24092)*UV(4427)+JVS(34638)*UV(5165)& - &+JVS(44237)*UV(5250)+JVS(47178)*UV(5252)+JVS(49446)*UV(5253)+JVS(52412)*UV(5255)+JVS(54014)*UV(5256)& - &+JVS(54899)*UV(5258) - JTUV(4428) = JVS(9893)*UV(2346)+JVS(12181)*UV(2811)+JVS(12496)*UV(2873)+JVS(24101)*UV(4428)+JVS(35888)*UV(5193)& - &+JVS(44238)*UV(5250)+JVS(45924)*UV(5251)+JVS(47179)*UV(5252)+JVS(49447)*UV(5253)+JVS(52413)*UV(5255)& - &+JVS(54015)*UV(5256)+JVS(54900)*UV(5258) - JTUV(4429) = JVS(5355)*UV(1338)+JVS(13499)*UV(3058)+JVS(24112)*UV(4429)+JVS(47180)*UV(5252)+JVS(49448)*UV(5253)& - &+JVS(52414)*UV(5255)+JVS(54016)*UV(5256) - JTUV(4430) = JVS(4978)*UV(1244)+JVS(13569)*UV(3070)+JVS(24124)*UV(4430)+JVS(33484)*UV(5135)+JVS(44240)*UV(5250)& - &+JVS(47181)*UV(5252)+JVS(49449)*UV(5253)+JVS(52415)*UV(5255)+JVS(54017)*UV(5256) - JTUV(4431) = JVS(948)*UV(215)+JVS(4934)*UV(1233)+JVS(11166)*UV(2613)+JVS(18120)*UV(3764)+JVS(24136)*UV(4431)& - &+JVS(44241)*UV(5250)+JVS(47182)*UV(5252)+JVS(49450)*UV(5253)+JVS(52416)*UV(5255)+JVS(54018)*UV(5256)& - &+JVS(54901)*UV(5258) - JTUV(4432) = JVS(6372)*UV(1588)+JVS(7410)*UV(1806)+JVS(9401)*UV(2234)+JVS(10587)*UV(2501)+JVS(24146)*UV(4432)& - &+JVS(47183)*UV(5252)+JVS(49451)*UV(5253)+JVS(52417)*UV(5255)+JVS(54019)*UV(5256) - JTUV(4433) = JVS(5047)*UV(1261)+JVS(8515)*UV(2036)+JVS(12492)*UV(2872)+JVS(24156)*UV(4433)+JVS(36829)*UV(5203)& - &+JVS(44243)*UV(5250)+JVS(47184)*UV(5252)+JVS(49452)*UV(5253)+JVS(52418)*UV(5255)+JVS(54020)*UV(5256)& - &+JVS(54902)*UV(5258) - JTUV(4434) = JVS(4892)*UV(1223)+JVS(15562)*UV(3417)+JVS(24165)*UV(4434)+JVS(47185)*UV(5252)+JVS(49453)*UV(5253)& - &+JVS(52419)*UV(5255)+JVS(54021)*UV(5256) - JTUV(4435) = JVS(5075)*UV(1268)+JVS(12967)*UV(2960)+JVS(24176)*UV(4435)+JVS(47186)*UV(5252)+JVS(49454)*UV(5253)& - &+JVS(52420)*UV(5255)+JVS(54022)*UV(5256) - JTUV(4436) = JVS(9208)*UV(2191)+JVS(11452)*UV(2670)+JVS(13372)*UV(3033)+JVS(24185)*UV(4436)+JVS(29507)*UV(4909)& - &+JVS(44246)*UV(5250)+JVS(45931)*UV(5251)+JVS(47187)*UV(5252)+JVS(49455)*UV(5253)+JVS(52421)*UV(5255)& - &+JVS(54023)*UV(5256)+JVS(54903)*UV(5258) - JTUV(4437) = JVS(13738)*UV(3101)+JVS(20112)*UV(4008)+JVS(24195)*UV(4437)+JVS(49456)*UV(5253)+JVS(54904)*UV(5258) - JTUV(4438) = JVS(14029)*UV(3153)+JVS(20757)*UV(4082)+JVS(24205)*UV(4438)+JVS(49457)*UV(5253)+JVS(54905)*UV(5258) - JTUV(4439) = JVS(3362)*UV(842)+JVS(11009)*UV(2584)+JVS(24215)*UV(4439)+JVS(25569)*UV(4560)+JVS(44249)*UV(5250)& - &+JVS(47190)*UV(5252)+JVS(49458)*UV(5253)+JVS(52424)*UV(5255)+JVS(54026)*UV(5256) - JTUV(4440) = JVS(3193)*UV(800)+JVS(9030)*UV(2152)+JVS(24224)*UV(4440)+JVS(47191)*UV(5252)+JVS(49459)*UV(5253)& - &+JVS(52425)*UV(5255)+JVS(54027)*UV(5256) - JTUV(4441) = JVS(9519)*UV(2263)+JVS(12465)*UV(2866)+JVS(24237)*UV(4441)+JVS(24325)*UV(4449)+JVS(35266)*UV(5183)& - &+JVS(44251)*UV(5250)+JVS(47192)*UV(5252)+JVS(49460)*UV(5253)+JVS(52426)*UV(5255)+JVS(54028)*UV(5256) - JTUV(4442) = JVS(1533)*UV(382)+JVS(6191)*UV(1546)+JVS(6716)*UV(1660)+JVS(8962)*UV(2136)+JVS(16878)*UV(3613)+JVS(24250)& - &*UV(4442)+JVS(47193)*UV(5252)+JVS(49461)*UV(5253)+JVS(52427)*UV(5255)+JVS(54029)*UV(5256) - JTUV(4443) = JVS(5676)*UV(1418)+JVS(14355)*UV(3218)+JVS(22509)*UV(4270)+JVS(24262)*UV(4443)+JVS(44253)*UV(5250)& - &+JVS(47194)*UV(5252)+JVS(49462)*UV(5253)+JVS(52428)*UV(5255)+JVS(54030)*UV(5256) - JTUV(4444) = JVS(13733)*UV(3100)+JVS(20015)*UV(3997)+JVS(24272)*UV(4444)+JVS(49463)*UV(5253)+JVS(54906)*UV(5258) - JTUV(4445) = JVS(10081)*UV(2388)+JVS(12298)*UV(2833)+JVS(24282)*UV(4445)+JVS(35267)*UV(5183)+JVS(36220)*UV(5199)& - &+JVS(44255)*UV(5250)+JVS(47196)*UV(5252)+JVS(49464)*UV(5253)+JVS(52430)*UV(5255)+JVS(54032)*UV(5256) - JTUV(4446) = JVS(2686)*UV(682)+JVS(6282)*UV(1566)+JVS(10249)*UV(2428)+JVS(24291)*UV(4446)+JVS(32962)*UV(5110)& - &+JVS(47197)*UV(5252)+JVS(49465)*UV(5253)+JVS(52431)*UV(5255)+JVS(54033)*UV(5256) - JTUV(4447) = JVS(6095)*UV(1522)+JVS(11435)*UV(2667)+JVS(24302)*UV(4447)+JVS(47198)*UV(5252)+JVS(49466)*UV(5253)& - &+JVS(52432)*UV(5255)+JVS(54034)*UV(5256) - JTUV(4448) = JVS(10409)*UV(2464)+JVS(24315)*UV(4448)+JVS(24769)*UV(4491)+JVS(37522)*UV(5222)+JVS(52433)*UV(5255) - JTUV(4449) = JVS(15936)*UV(3484)+JVS(24327)*UV(4449)+JVS(25958)*UV(4602)+JVS(40158)*UV(5244)+JVS(44259)*UV(5250)& - &+JVS(52434)*UV(5255) - JTUV(4450) = JVS(4904)*UV(1226)+JVS(14822)*UV(3306)+JVS(22353)*UV(4254)+JVS(24339)*UV(4450)+JVS(44260)*UV(5250)& - &+JVS(47200)*UV(5252)+JVS(49468)*UV(5253)+JVS(52435)*UV(5255)+JVS(54037)*UV(5256) - JTUV(4451) = JVS(3712)*UV(929)+JVS(11468)*UV(2674)+JVS(22250)*UV(4244)+JVS(24348)*UV(4451)+JVS(44261)*UV(5250)& - &+JVS(47201)*UV(5252)+JVS(49469)*UV(5253)+JVS(52436)*UV(5255)+JVS(54038)*UV(5256) - JTUV(4452) = JVS(4310)*UV(1078)+JVS(10393)*UV(2460)+JVS(10691)*UV(2522)+JVS(24358)*UV(4452)+JVS(34415)*UV(5160)& - &+JVS(44262)*UV(5250)+JVS(47202)*UV(5252)+JVS(49470)*UV(5253)+JVS(52437)*UV(5255)+JVS(54039)*UV(5256)& - &+JVS(54907)*UV(5258) - JTUV(4453) = JVS(13702)*UV(3093)+JVS(20218)*UV(4020)+JVS(24368)*UV(4453)+JVS(49471)*UV(5253)+JVS(54908)*UV(5258) - JTUV(4454) = JVS(14069)*UV(3162)+JVS(20552)*UV(4057)+JVS(24378)*UV(4454)+JVS(49472)*UV(5253)+JVS(54909)*UV(5258) - JTUV(4455) = JVS(4116)*UV(1030)+JVS(15347)*UV(3388)+JVS(24387)*UV(4455)+JVS(47205)*UV(5252)+JVS(49473)*UV(5253)& - &+JVS(52440)*UV(5255)+JVS(54042)*UV(5256) - JTUV(4456) = JVS(5848)*UV(1461)+JVS(11194)*UV(2619)+JVS(24397)*UV(4456)+JVS(24904)*UV(4503)+JVS(44266)*UV(5250)& - &+JVS(47206)*UV(5252)+JVS(49474)*UV(5253)+JVS(52441)*UV(5255)+JVS(54043)*UV(5256) - JTUV(4457) = JVS(14083)*UV(3165)+JVS(20609)*UV(4063)+JVS(24407)*UV(4457)+JVS(49475)*UV(5253)+JVS(54910)*UV(5258) - JTUV(4458) = JVS(5508)*UV(1376)+JVS(15256)*UV(3375)+JVS(24416)*UV(4458)+JVS(47208)*UV(5252)+JVS(49476)*UV(5253)& - &+JVS(52443)*UV(5255)+JVS(54045)*UV(5256) - JTUV(4459) = JVS(2868)*UV(725)+JVS(4518)*UV(1130)+JVS(6675)*UV(1652)+JVS(17095)*UV(3639)+JVS(24425)*UV(4459)& - &+JVS(47209)*UV(5252)+JVS(49477)*UV(5253)+JVS(52444)*UV(5255)+JVS(54046)*UV(5256) - JTUV(4460) = JVS(5832)*UV(1457)+JVS(10253)*UV(2429)+JVS(11618)*UV(2705)+JVS(19459)*UV(3929)+JVS(24436)*UV(4460)& - &+JVS(44270)*UV(5250)+JVS(47210)*UV(5252)+JVS(49478)*UV(5253)+JVS(52445)*UV(5255)+JVS(54047)*UV(5256)& - &+JVS(54911)*UV(5258) - JTUV(4461) = JVS(4548)*UV(1137)+JVS(13588)*UV(3073)+JVS(24447)*UV(4461)+JVS(47211)*UV(5252)+JVS(49479)*UV(5253)& - &+JVS(52446)*UV(5255)+JVS(54048)*UV(5256) - JTUV(4462) = JVS(24456)*UV(4462)+JVS(27681)*UV(4759)+JVS(29120)*UV(4875)+JVS(36481)*UV(5201)+JVS(37154)*UV(5214)& - &+JVS(44272)*UV(5250)+JVS(45943)*UV(5251)+JVS(52447)*UV(5255)+JVS(54049)*UV(5256) - JTUV(4463) = JVS(4178)*UV(1045)+JVS(15150)*UV(3362)+JVS(24465)*UV(4463)+JVS(47212)*UV(5252)+JVS(49480)*UV(5253)& - &+JVS(52448)*UV(5255)+JVS(54050)*UV(5256) - JTUV(4464) = JVS(4676)*UV(1169)+JVS(14919)*UV(3329)+JVS(24474)*UV(4464)+JVS(47213)*UV(5252)+JVS(49481)*UV(5253)& - &+JVS(52449)*UV(5255)+JVS(54051)*UV(5256) - JTUV(4465) = JVS(4462)*UV(1116)+JVS(11140)*UV(2607)+JVS(24484)*UV(4465)+JVS(47214)*UV(5252)+JVS(49482)*UV(5253)& - &+JVS(52450)*UV(5255)+JVS(54052)*UV(5256) - JTUV(4466) = JVS(13872)*UV(3123)+JVS(20625)*UV(4065)+JVS(24494)*UV(4466)+JVS(49483)*UV(5253)+JVS(54912)*UV(5258) - JTUV(4467) = JVS(3732)*UV(934)+JVS(15213)*UV(3370)+JVS(24503)*UV(4467)+JVS(47216)*UV(5252)+JVS(49484)*UV(5253)& - &+JVS(52452)*UV(5255)+JVS(54054)*UV(5256) - JTUV(4468) = JVS(4946)*UV(1236)+JVS(12352)*UV(2845)+JVS(24513)*UV(4468)+JVS(30804)*UV(4991)+JVS(44278)*UV(5250)& - &+JVS(47217)*UV(5252)+JVS(49485)*UV(5253)+JVS(52453)*UV(5255)+JVS(54055)*UV(5256) - JTUV(4469) = JVS(3406)*UV(853)+JVS(13330)*UV(3026)+JVS(24523)*UV(4469)+JVS(30622)*UV(4980)+JVS(44279)*UV(5250)& - &+JVS(47218)*UV(5252)+JVS(49486)*UV(5253)+JVS(52454)*UV(5255)+JVS(54056)*UV(5256) - JTUV(4470) = JVS(5455)*UV(1363)+JVS(9139)*UV(2176)+JVS(11005)*UV(2583)+JVS(24533)*UV(4470)+JVS(38053)*UV(5230)& - &+JVS(44280)*UV(5250)+JVS(47219)*UV(5252)+JVS(49487)*UV(5253)+JVS(52455)*UV(5255)+JVS(54057)*UV(5256)& - &+JVS(54913)*UV(5258) - JTUV(4471) = JVS(13712)*UV(3095)+JVS(20318)*UV(4033)+JVS(24543)*UV(4471)+JVS(49488)*UV(5253)+JVS(54914)*UV(5258) - JTUV(4472) = JVS(4994)*UV(1248)+JVS(13601)*UV(3075)+JVS(24552)*UV(4472)+JVS(29802)*UV(4929)+JVS(44282)*UV(5250)& - &+JVS(47221)*UV(5252)+JVS(49489)*UV(5253)+JVS(52457)*UV(5255)+JVS(54059)*UV(5256) - JTUV(4473) = JVS(4494)*UV(1124)+JVS(8085)*UV(1948)+JVS(8222)*UV(1976)+JVS(15597)*UV(3422)+JVS(16279)*UV(3536)& - &+JVS(24561)*UV(4473)+JVS(47222)*UV(5252)+JVS(49490)*UV(5253)+JVS(52458)*UV(5255)+JVS(54060)*UV(5256) - JTUV(4474) = JVS(1027)*UV(239)+JVS(3050)*UV(766)+JVS(21252)*UV(4140)+JVS(24562)*UV(4473)+JVS(24568)*UV(4474)& - &+JVS(26422)*UV(4647)+JVS(27272)*UV(4723)+JVS(34418)*UV(5160)+JVS(35890)*UV(5193)+JVS(44284)*UV(5250)& - &+JVS(54061)*UV(5256)+JVS(54915)*UV(5258) - JTUV(4475) = JVS(14779)*UV(3297)+JVS(23160)*UV(4333)+JVS(24572)*UV(4475)+JVS(24578)*UV(4476)+JVS(27176)*UV(4714)& - &+JVS(27778)*UV(4767)+JVS(27940)*UV(4782)+JVS(35652)*UV(5191)+JVS(35891)*UV(5193)+JVS(44285)*UV(5250)& - &+JVS(54062)*UV(5256)+JVS(54916)*UV(5258) - JTUV(4476) = JVS(4136)*UV(1035)+JVS(9057)*UV(2158)+JVS(10329)*UV(2447)+JVS(14614)*UV(3266)+JVS(17248)*UV(3656)& - &+JVS(24579)*UV(4476)+JVS(47224)*UV(5252)+JVS(49492)*UV(5253)+JVS(52461)*UV(5255)+JVS(54063)*UV(5256) - JTUV(4477) = JVS(2520)*UV(643)+JVS(9034)*UV(2153)+JVS(24590)*UV(4477)+JVS(47225)*UV(5252)+JVS(49493)*UV(5253)& - &+JVS(52462)*UV(5255)+JVS(54064)*UV(5256) - JTUV(4478) = JVS(14112)*UV(3170)+JVS(23531)*UV(4376)+JVS(24602)*UV(4478)+JVS(49494)*UV(5253)+JVS(54917)*UV(5258) - JTUV(4479) = JVS(13966)*UV(3140)+JVS(20191)*UV(4016)+JVS(24612)*UV(4479)+JVS(49495)*UV(5253)+JVS(54918)*UV(5258) - JTUV(4480) = JVS(168)*UV(38)+JVS(4514)*UV(1129)+JVS(6537)*UV(1622)+JVS(24621)*UV(4480)+JVS(47228)*UV(5252)+JVS(49496)& - &*UV(5253)+JVS(52465)*UV(5255)+JVS(54067)*UV(5256) - JTUV(4481) = JVS(259)*UV(63)+JVS(3708)*UV(928)+JVS(6932)*UV(1710)+JVS(24633)*UV(4481)+JVS(47229)*UV(5252)+JVS(49497)& - &*UV(5253)+JVS(52466)*UV(5255)+JVS(54068)*UV(5256) - JTUV(4482) = JVS(388)*UV(98)+JVS(664)*UV(164)+JVS(5431)*UV(1357)+JVS(24652)*UV(4482)+JVS(47230)*UV(5252)+JVS(49498)& - &*UV(5253)+JVS(52467)*UV(5255)+JVS(54069)*UV(5256) - JTUV(4483) = JVS(2846)*UV(720)+JVS(6478)*UV(1609)+JVS(6483)*UV(1610)+JVS(7568)*UV(1836)+JVS(24665)*UV(4483)+JVS(47231)& - &*UV(5252)+JVS(49499)*UV(5253)+JVS(52468)*UV(5255)+JVS(54070)*UV(5256) - JTUV(4484) = JVS(927)*UV(210)+JVS(6167)*UV(1540)+JVS(10656)*UV(2515)+JVS(20718)*UV(4077)+JVS(24675)*UV(4484)& - &+JVS(44294)*UV(5250)+JVS(47232)*UV(5252)+JVS(49500)*UV(5253)+JVS(52469)*UV(5255)+JVS(54071)*UV(5256)& - &+JVS(54919)*UV(5258) - JTUV(4485) = JVS(4652)*UV(1163)+JVS(5612)*UV(1402)+JVS(13112)*UV(2984)+JVS(17696)*UV(3715)+JVS(24690)*UV(4485)& - &+JVS(44295)*UV(5250)+JVS(47233)*UV(5252)+JVS(49501)*UV(5253)+JVS(52470)*UV(5255)+JVS(54072)*UV(5256)& - &+JVS(54920)*UV(5258) - JTUV(4486) = JVS(4174)*UV(1044)+JVS(13551)*UV(3067)+JVS(24702)*UV(4486)+JVS(47234)*UV(5252)+JVS(49502)*UV(5253)& - &+JVS(52471)*UV(5255)+JVS(54073)*UV(5256) - JTUV(4487) = JVS(13846)*UV(3119)+JVS(20685)*UV(4073)+JVS(24712)*UV(4487)+JVS(49503)*UV(5253)+JVS(54921)*UV(5258) - JTUV(4488) = JVS(8596)*UV(2054)+JVS(24725)*UV(4488)+JVS(24770)*UV(4491)+JVS(39089)*UV(5233)+JVS(52473)*UV(5255) - JTUV(4489) = JVS(10189)*UV(2414)+JVS(12432)*UV(2859)+JVS(24736)*UV(4489)+JVS(25960)*UV(4602)+JVS(40167)*UV(5244)& - &+JVS(44299)*UV(5250)+JVS(47237)*UV(5252)+JVS(49505)*UV(5253)+JVS(52474)*UV(5255)+JVS(54076)*UV(5256) - JTUV(4490) = JVS(15937)*UV(3484)+JVS(24752)*UV(4490)+JVS(36221)*UV(5199)+JVS(44300)*UV(5250)+JVS(45958)*UV(5251)& - &+JVS(52475)*UV(5255) - JTUV(4491) = JVS(20669)*UV(4071)+JVS(24771)*UV(4491)+JVS(28121)*UV(4796)+JVS(40169)*UV(5244)+JVS(44301)*UV(5250)& - &+JVS(45959)*UV(5251)+JVS(52476)*UV(5255) - JTUV(4492) = JVS(1219)*UV(293)+JVS(2352)*UV(604)+JVS(19393)*UV(3921)+JVS(19518)*UV(3936)+JVS(19572)*UV(3943)& - &+JVS(20834)*UV(4091)+JVS(24778)*UV(4492)+JVS(29758)*UV(4925)+JVS(44302)*UV(5250)+JVS(54078)*UV(5256)& - &+JVS(54922)*UV(5258) - JTUV(4493) = JVS(24798)*UV(4493)+JVS(30485)*UV(4969)+JVS(32987)*UV(5111)+JVS(36488)*UV(5201)+JVS(40170)*UV(5244)& - &+JVS(44303)*UV(5250)+JVS(54079)*UV(5256) - JTUV(4494) = JVS(13801)*UV(3111)+JVS(20350)*UV(4037)+JVS(24810)*UV(4494)+JVS(49507)*UV(5253)+JVS(54923)*UV(5258) - JTUV(4495) = JVS(14012)*UV(3150)+JVS(20054)*UV(4001)+JVS(24820)*UV(4495)+JVS(49508)*UV(5253)+JVS(54924)*UV(5258) - JTUV(4496) = JVS(1425)*UV(351)+JVS(4836)*UV(1209)+JVS(14908)*UV(3327)+JVS(22761)*UV(4295)+JVS(24830)*UV(4496)& - &+JVS(44306)*UV(5250)+JVS(47241)*UV(5252)+JVS(49509)*UV(5253)+JVS(52480)*UV(5255)+JVS(54082)*UV(5256)& - &+JVS(54925)*UV(5258) - JTUV(4497) = JVS(2525)*UV(644)+JVS(8854)*UV(2111)+JVS(24843)*UV(4497)+JVS(47242)*UV(5252)+JVS(49510)*UV(5253)& - &+JVS(52481)*UV(5255)+JVS(54083)*UV(5256) - JTUV(4498) = JVS(5371)*UV(1342)+JVS(15220)*UV(3371)+JVS(24852)*UV(4498)+JVS(47243)*UV(5252)+JVS(49511)*UV(5253)& - &+JVS(52482)*UV(5255)+JVS(54084)*UV(5256) - JTUV(4499) = JVS(13665)*UV(3087)+JVS(20617)*UV(4064)+JVS(24862)*UV(4499)+JVS(49512)*UV(5253)+JVS(54926)*UV(5258) - JTUV(4500) = JVS(1355)*UV(329)+JVS(3896)*UV(975)+JVS(11448)*UV(2669)+JVS(20562)*UV(4058)+JVS(24871)*UV(4500)& - &+JVS(44310)*UV(5250)+JVS(47245)*UV(5252)+JVS(49513)*UV(5253)+JVS(52484)*UV(5255)+JVS(54086)*UV(5256)& - &+JVS(54927)*UV(5258) - JTUV(4501) = JVS(24885)*UV(4501)+JVS(32040)*UV(5060)+JVS(32318)*UV(5079)+JVS(36492)*UV(5201)+JVS(44311)*UV(5250)& - &+JVS(45963)*UV(5251)+JVS(52485)*UV(5255)+JVS(54087)*UV(5256) - JTUV(4502) = JVS(9373)*UV(2228)+JVS(10769)*UV(2538)+JVS(22137)*UV(4233)+JVS(24894)*UV(4502)+JVS(44312)*UV(5250)& - &+JVS(47246)*UV(5252)+JVS(49514)*UV(5253)+JVS(52486)*UV(5255)+JVS(54088)*UV(5256) - JTUV(4503) = JVS(3756)*UV(940)+JVS(13023)*UV(2968)+JVS(24905)*UV(4503)+JVS(47247)*UV(5252)+JVS(49515)*UV(5253)& - &+JVS(52487)*UV(5255)+JVS(54089)*UV(5256) - JTUV(4504) = JVS(13723)*UV(3098)+JVS(20782)*UV(4085)+JVS(24915)*UV(4504)+JVS(49516)*UV(5253)+JVS(54928)*UV(5258) - JTUV(4505) = JVS(17780)*UV(3725)+JVS(17791)*UV(3726)+JVS(19586)*UV(3945)+JVS(24922)*UV(4505)+JVS(44315)*UV(5250)& - &+JVS(54091)*UV(5256)+JVS(54929)*UV(5258) - JTUV(4506) = JVS(5892)*UV(1472)+JVS(15052)*UV(3347)+JVS(24931)*UV(4506)+JVS(47250)*UV(5252)+JVS(49518)*UV(5253)& - &+JVS(52490)*UV(5255)+JVS(54092)*UV(5256) - JTUV(4507) = JVS(339)*UV(85)+JVS(24999)*UV(4507)+JVS(44317)*UV(5250) - JTUV(4508) = JVS(9304)*UV(2212)+JVS(25015)*UV(4508)+JVS(25208)*UV(4528)+JVS(25587)*UV(4562)+JVS(27051)*UV(4700)& - &+JVS(29170)*UV(4881)+JVS(31688)*UV(5043)+JVS(36830)*UV(5203)+JVS(38488)*UV(5231)+JVS(44318)*UV(5250)& - &+JVS(54093)*UV(5256)+JVS(54930)*UV(5258) - JTUV(4509) = JVS(13806)*UV(3112)+JVS(20062)*UV(4002)+JVS(25022)*UV(4509)+JVS(49520)*UV(5253)+JVS(54931)*UV(5258) - JTUV(4510) = JVS(3602)*UV(902)+JVS(11729)*UV(2724)+JVS(25034)*UV(4510)+JVS(47252)*UV(5252)+JVS(49521)*UV(5253)& - &+JVS(52493)*UV(5255)+JVS(54095)*UV(5256) - JTUV(4511) = JVS(5239)*UV(1309)+JVS(16558)*UV(3574)+JVS(25043)*UV(4511)+JVS(47253)*UV(5252)+JVS(49522)*UV(5253)& - &+JVS(52494)*UV(5255)+JVS(54096)*UV(5256) - JTUV(4512) = JVS(1348)*UV(327)+JVS(15908)*UV(3479)+JVS(21020)*UV(4112)+JVS(25050)*UV(4512)+JVS(28292)*UV(4809)& - &+JVS(32041)*UV(5060)+JVS(33364)*UV(5129)+JVS(34422)*UV(5160)+JVS(38489)*UV(5231)+JVS(44322)*UV(5250)& - &+JVS(54097)*UV(5256)+JVS(54932)*UV(5258) - JTUV(4513) = JVS(6884)*UV(1698)+JVS(9246)*UV(2200)+JVS(10336)*UV(2448)+JVS(13314)*UV(3022)+JVS(25057)*UV(4513)& - &+JVS(47255)*UV(5252)+JVS(49524)*UV(5253)+JVS(52496)*UV(5255)+JVS(54098)*UV(5256) - JTUV(4514) = JVS(14096)*UV(3167)+JVS(20478)*UV(4049)+JVS(25067)*UV(4514)+JVS(49525)*UV(5253)+JVS(54933)*UV(5258) - JTUV(4515) = JVS(4720)*UV(1180)+JVS(13322)*UV(3024)+JVS(25077)*UV(4515)+JVS(33973)*UV(5147)+JVS(44325)*UV(5250)& - &+JVS(47257)*UV(5252)+JVS(49526)*UV(5253)+JVS(52498)*UV(5255)+JVS(54100)*UV(5256) - JTUV(4516) = JVS(8184)*UV(1969)+JVS(10735)*UV(2531)+JVS(12248)*UV(2824)+JVS(25086)*UV(4516)+JVS(35022)*UV(5180)& - &+JVS(44326)*UV(5250)+JVS(45973)*UV(5251)+JVS(47258)*UV(5252)+JVS(49527)*UV(5253)+JVS(52499)*UV(5255)& - &+JVS(54101)*UV(5256)+JVS(54934)*UV(5258) - JTUV(4517) = JVS(5311)*UV(1327)+JVS(12348)*UV(2844)+JVS(25096)*UV(4517)+JVS(28813)*UV(4852)+JVS(44327)*UV(5250)& - &+JVS(47259)*UV(5252)+JVS(49528)*UV(5253)+JVS(52500)*UV(5255)+JVS(54102)*UV(5256) - JTUV(4518) = JVS(3566)*UV(893)+JVS(7400)*UV(1804)+JVS(12771)*UV(2925)+JVS(25106)*UV(4518)+JVS(30316)*UV(4958)& - &+JVS(44328)*UV(5250)+JVS(47260)*UV(5252)+JVS(49529)*UV(5253)+JVS(52501)*UV(5255)+JVS(54103)*UV(5256)& - &+JVS(54935)*UV(5258) - JTUV(4519) = JVS(74)*UV(10)+JVS(4020)*UV(1006)+JVS(8353)*UV(2003)+JVS(25117)*UV(4519)+JVS(37340)*UV(5221)+JVS(44329)& - &*UV(5250)+JVS(47261)*UV(5252)+JVS(49530)*UV(5253)+JVS(52502)*UV(5255)+JVS(54104)*UV(5256)+JVS(54936)& - &*UV(5258) - JTUV(4520) = JVS(4876)*UV(1219)+JVS(11754)*UV(2729)+JVS(24485)*UV(4465)+JVS(25127)*UV(4520)+JVS(44330)*UV(5250)& - &+JVS(47262)*UV(5252)+JVS(49531)*UV(5253)+JVS(52503)*UV(5255)+JVS(54105)*UV(5256) - JTUV(4521) = JVS(3394)*UV(850)+JVS(13241)*UV(3007)+JVS(25139)*UV(4521)+JVS(32650)*UV(5096)+JVS(44331)*UV(5250)& - &+JVS(47263)*UV(5252)+JVS(49532)*UV(5253)+JVS(52504)*UV(5255)+JVS(54106)*UV(5256) - JTUV(4522) = JVS(3692)*UV(924)+JVS(9748)*UV(2314)+JVS(11606)*UV(2702)+JVS(25149)*UV(4522)+JVS(34939)*UV(5178)& - &+JVS(44332)*UV(5250)+JVS(47264)*UV(5252)+JVS(49533)*UV(5253)+JVS(52505)*UV(5255)+JVS(54107)*UV(5256)& - &+JVS(54937)*UV(5258) - JTUV(4523) = JVS(2017)*UV(519)+JVS(5912)*UV(1477)+JVS(12027)*UV(2778)+JVS(22911)*UV(4310)+JVS(25159)*UV(4523)& - &+JVS(44333)*UV(5250)+JVS(47265)*UV(5252)+JVS(49534)*UV(5253)+JVS(52506)*UV(5255)+JVS(54108)*UV(5256)& - &+JVS(54938)*UV(5258) - JTUV(4524) = JVS(25173)*UV(4524)+JVS(31399)*UV(5026)+JVS(33138)*UV(5121)+JVS(40171)*UV(5244)+JVS(44334)*UV(5250)& - &+JVS(52507)*UV(5255) - JTUV(4525) = JVS(4616)*UV(1154)+JVS(10923)*UV(2567)+JVS(24591)*UV(4477)+JVS(25188)*UV(4525)+JVS(44335)*UV(5250)& - &+JVS(47266)*UV(5252)+JVS(49535)*UV(5253)+JVS(52508)*UV(5255)+JVS(54109)*UV(5256) - JTUV(4526) = JVS(18)*UV(3)+JVS(17074)*UV(3638)+JVS(25196)*UV(4526)+JVS(31729)*UV(5046)+JVS(45982)*UV(5251)+JVS(47267)& - &*UV(5252)+JVS(49536)*UV(5253)+JVS(50227)*UV(5254)+JVS(54110)*UV(5256) - JTUV(4527) = JVS(10513)*UV(2487)+JVS(25203)*UV(4527)+JVS(25209)*UV(4528)+JVS(25760)*UV(4582)+JVS(25798)*UV(4587)& - &+JVS(29155)*UV(4879)+JVS(33485)*UV(5135)+JVS(34639)*UV(5165)+JVS(38491)*UV(5231)+JVS(44337)*UV(5250)& - &+JVS(54111)*UV(5256)+JVS(54939)*UV(5258) - JTUV(4528) = JVS(25210)*UV(4528)+JVS(37679)*UV(5223)+JVS(44338)*UV(5250)+JVS(45984)*UV(5251)+JVS(52510)*UV(5255) - JTUV(4529) = JVS(400)*UV(102)+JVS(6139)*UV(1533)+JVS(12043)*UV(2782)+JVS(18030)*UV(3754)+JVS(25225)*UV(4529)& - &+JVS(47268)*UV(5252)+JVS(49537)*UV(5253)+JVS(52511)*UV(5255)+JVS(54112)*UV(5256) - JTUV(4530) = JVS(25233)*UV(4530)+JVS(34089)*UV(5152)+JVS(36497)*UV(5201)+JVS(38492)*UV(5231)+JVS(44340)*UV(5250)& - &+JVS(45985)*UV(5251)+JVS(49538)*UV(5253)+JVS(52512)*UV(5255)+JVS(54113)*UV(5256) - JTUV(4531) = JVS(13697)*UV(3092)+JVS(20735)*UV(4079)+JVS(25244)*UV(4531)+JVS(49539)*UV(5253)+JVS(54940)*UV(5258) - JTUV(4532) = JVS(5087)*UV(1271)+JVS(12395)*UV(2853)+JVS(25255)*UV(4532)+JVS(47270)*UV(5252)+JVS(49540)*UV(5253)& - &+JVS(52514)*UV(5255)+JVS(54115)*UV(5256) - JTUV(4533) = JVS(10089)*UV(2390)+JVS(20174)*UV(4014)+JVS(25268)*UV(4533)+JVS(33660)*UV(5139)+JVS(52515)*UV(5255) - JTUV(4534) = JVS(25279)*UV(4534)+JVS(33661)*UV(5139)+JVS(35272)*UV(5183)+JVS(37526)*UV(5222)+JVS(40172)*UV(5244)& - &+JVS(44344)*UV(5250)+JVS(45988)*UV(5251)+JVS(52516)*UV(5255) - JTUV(4535) = JVS(3109)*UV(780)+JVS(7290)*UV(1783)+JVS(25289)*UV(4535)+JVS(47272)*UV(5252)+JVS(49542)*UV(5253)& - &+JVS(52517)*UV(5255)+JVS(54117)*UV(5256) - JTUV(4536) = JVS(11373)*UV(2654)+JVS(12100)*UV(2794)+JVS(25303)*UV(4536)+JVS(27879)*UV(4775)+JVS(44346)*UV(5250)& - &+JVS(45990)*UV(5251)+JVS(47273)*UV(5252)+JVS(49543)*UV(5253)+JVS(52518)*UV(5255)+JVS(54118)*UV(5256) - JTUV(4537) = JVS(25316)*UV(4537)+JVS(29107)*UV(4874)+JVS(30337)*UV(4959)+JVS(36498)*UV(5201)+JVS(44347)*UV(5250)& - &+JVS(45991)*UV(5251)+JVS(52519)*UV(5255)+JVS(54119)*UV(5256) - JTUV(4538) = JVS(2774)*UV(704)+JVS(8637)*UV(2062)+JVS(25326)*UV(4538)+JVS(47274)*UV(5252)+JVS(49544)*UV(5253)& - &+JVS(52520)*UV(5255)+JVS(54120)*UV(5256) - JTUV(4539) = JVS(5872)*UV(1467)+JVS(12244)*UV(2823)+JVS(25338)*UV(4539)+JVS(29906)*UV(4936)+JVS(44349)*UV(5250)& - &+JVS(47275)*UV(5252)+JVS(49545)*UV(5253)+JVS(52521)*UV(5255)+JVS(54121)*UV(5256) - JTUV(4540) = JVS(25356)*UV(4540)+JVS(30380)*UV(4962)+JVS(30866)*UV(4995)+JVS(36499)*UV(5201)+JVS(44350)*UV(5250)& - &+JVS(45993)*UV(5251)+JVS(52522)*UV(5255)+JVS(54122)*UV(5256) - JTUV(4541) = JVS(2254)*UV(580)+JVS(8303)*UV(1993)+JVS(9483)*UV(2254)+JVS(13392)*UV(3037)+JVS(25365)*UV(4541)& - &+JVS(47276)*UV(5252)+JVS(52523)*UV(5255)+JVS(54123)*UV(5256) - JTUV(4542) = JVS(6521)*UV(1619)+JVS(7227)*UV(1769)+JVS(7531)*UV(1828)+JVS(11800)*UV(2737)+JVS(25374)*UV(4542)& - &+JVS(47277)*UV(5252)+JVS(49547)*UV(5253)+JVS(52524)*UV(5255)+JVS(54124)*UV(5256) - JTUV(4543) = JVS(3458)*UV(866)+JVS(12070)*UV(2788)+JVS(25384)*UV(4543)+JVS(47278)*UV(5252)+JVS(49548)*UV(5253)& - &+JVS(52525)*UV(5255)+JVS(54125)*UV(5256) - JTUV(4544) = JVS(19)*UV(3)+JVS(25396)*UV(4544)+JVS(31730)*UV(5046)+JVS(34423)*UV(5160)+JVS(45996)*UV(5251)+JVS(47279)& - &*UV(5252)+JVS(49549)*UV(5253)+JVS(50228)*UV(5254)+JVS(54126)*UV(5256) - JTUV(4545) = JVS(1741)*UV(442)+JVS(1747)*UV(443)+JVS(4370)*UV(1093)+JVS(11405)*UV(2661)+JVS(25411)*UV(4545)+JVS(47280)& - &*UV(5252)+JVS(49550)*UV(5253)+JVS(52526)*UV(5255)+JVS(54127)*UV(5256) - JTUV(4546) = JVS(14566)*UV(3255)+JVS(14972)*UV(3336)+JVS(16366)*UV(3547)+JVS(25421)*UV(4546)+JVS(47281)*UV(5252)& - &+JVS(49551)*UV(5253)+JVS(52527)*UV(5255)+JVS(54128)*UV(5256) - JTUV(4547) = JVS(25436)*UV(4547)+JVS(27456)*UV(4740)+JVS(30157)*UV(4947)+JVS(36500)*UV(5201)+JVS(44356)*UV(5250)& - &+JVS(45998)*UV(5251)+JVS(52528)*UV(5255)+JVS(54129)*UV(5256) - JTUV(4548) = JVS(4998)*UV(1249)+JVS(11377)*UV(2655)+JVS(25448)*UV(4548)+JVS(31247)*UV(5016)+JVS(44357)*UV(5250)& - &+JVS(47282)*UV(5252)+JVS(49552)*UV(5253)+JVS(52529)*UV(5255)+JVS(54130)*UV(5256) - JTUV(4549) = JVS(3275)*UV(820)+JVS(8871)*UV(2115)+JVS(25459)*UV(4549)+JVS(47283)*UV(5252)+JVS(49553)*UV(5253)& - &+JVS(52530)*UV(5255)+JVS(54131)*UV(5256) - JTUV(4550) = JVS(2301)*UV(592)+JVS(7654)*UV(1854)+JVS(25471)*UV(4550)+JVS(47284)*UV(5252)+JVS(49554)*UV(5253)& - &+JVS(52531)*UV(5255)+JVS(54132)*UV(5256) - JTUV(4551) = JVS(20)*UV(3)+JVS(25480)*UV(4551)+JVS(31731)*UV(5046)+JVS(35503)*UV(5188)+JVS(46000)*UV(5251)+JVS(47285)& - &*UV(5252)+JVS(49555)*UV(5253)+JVS(50229)*UV(5254)+JVS(54133)*UV(5256) - JTUV(4552) = JVS(2887)*UV(729)+JVS(7195)*UV(1762)+JVS(25492)*UV(4552)+JVS(47286)*UV(5252)+JVS(49556)*UV(5253)& - &+JVS(52532)*UV(5255)+JVS(54134)*UV(5256) - JTUV(4553) = JVS(8850)*UV(2110)+JVS(13306)*UV(3020)+JVS(25503)*UV(4553)+JVS(30954)*UV(5000)+JVS(44361)*UV(5250)& - &+JVS(47287)*UV(5252)+JVS(49557)*UV(5253)+JVS(52533)*UV(5255)+JVS(54135)*UV(5256) - JTUV(4554) = JVS(4478)*UV(1120)+JVS(7785)*UV(1882)+JVS(9575)*UV(2276)+JVS(14571)*UV(3256)+JVS(16794)*UV(3603)& - &+JVS(25512)*UV(4554)+JVS(47288)*UV(5252)+JVS(49558)*UV(5253)+JVS(52534)*UV(5255)+JVS(54136)*UV(5256) - JTUV(4555) = JVS(7259)*UV(1776)+JVS(23413)*UV(4364)+JVS(25211)*UV(4528)+JVS(25513)*UV(4554)+JVS(25518)*UV(4555)& - &+JVS(25783)*UV(4585)+JVS(25889)*UV(4596)+JVS(30956)*UV(5000)+JVS(38499)*UV(5231)+JVS(44363)*UV(5250)& - &+JVS(54137)*UV(5256)+JVS(54941)*UV(5258) - JTUV(4556) = JVS(21)*UV(3)+JVS(25524)*UV(4556)+JVS(30317)*UV(4958)+JVS(31732)*UV(5046)+JVS(46004)*UV(5251)+JVS(47290)& - &*UV(5252)+JVS(49560)*UV(5253)+JVS(50230)*UV(5254)+JVS(54138)*UV(5256) - JTUV(4557) = JVS(8940)*UV(2131)+JVS(12560)*UV(2887)+JVS(25536)*UV(4557)+JVS(37527)*UV(5222)+JVS(44364)*UV(5250)& - &+JVS(47291)*UV(5252)+JVS(49561)*UV(5253)+JVS(52536)*UV(5255)+JVS(54139)*UV(5256) - JTUV(4558) = JVS(2807)*UV(711)+JVS(10497)*UV(2482)+JVS(14254)*UV(3196)+JVS(25545)*UV(4558)+JVS(47292)*UV(5252)& - &+JVS(49562)*UV(5253)+JVS(52537)*UV(5255)+JVS(54140)*UV(5256) - JTUV(4559) = JVS(25556)*UV(4559)+JVS(28913)*UV(4860)+JVS(30639)*UV(4981)+JVS(36501)*UV(5201)+JVS(44366)*UV(5250)& - &+JVS(46007)*UV(5251)+JVS(52538)*UV(5255)+JVS(54141)*UV(5256) - JTUV(4560) = JVS(2258)*UV(581)+JVS(10149)*UV(2404)+JVS(25570)*UV(4560)+JVS(47293)*UV(5252)+JVS(49563)*UV(5253)& - &+JVS(52539)*UV(5255)+JVS(54142)*UV(5256) - JTUV(4561) = JVS(8346)*UV(2001)+JVS(10850)*UV(2553)+JVS(12193)*UV(2814)+JVS(14717)*UV(3284)+JVS(25579)*UV(4561)& - &+JVS(47294)*UV(5252)+JVS(49564)*UV(5253)+JVS(52540)*UV(5255)+JVS(54143)*UV(5256) - JTUV(4562) = JVS(4776)*UV(1194)+JVS(8226)*UV(1977)+JVS(8367)*UV(2006)+JVS(11858)*UV(2747)+JVS(17705)*UV(3716)& - &+JVS(25588)*UV(4562)+JVS(47295)*UV(5252)+JVS(49565)*UV(5253)+JVS(52541)*UV(5255)+JVS(54144)*UV(5256) - JTUV(4563) = JVS(9791)*UV(2323)+JVS(10781)*UV(2540)+JVS(13821)*UV(3115)+JVS(16448)*UV(3559)+JVS(25596)*UV(4563)& - &+JVS(47296)*UV(5252)+JVS(49566)*UV(5253)+JVS(52542)*UV(5255)+JVS(54145)*UV(5256) - JTUV(4564) = JVS(25606)*UV(4564)+JVS(32342)*UV(5080)+JVS(39262)*UV(5234)+JVS(40177)*UV(5244)+JVS(44371)*UV(5250)& - &+JVS(52543)*UV(5255) - JTUV(4565) = JVS(7308)*UV(1787)+JVS(14618)*UV(3267)+JVS(25619)*UV(4565)+JVS(47297)*UV(5252)+JVS(49567)*UV(5253)& - &+JVS(52544)*UV(5255)+JVS(54146)*UV(5256) - JTUV(4566) = JVS(3101)*UV(778)+JVS(6199)*UV(1548)+JVS(7901)*UV(1908)+JVS(13880)*UV(3124)+JVS(25626)*UV(4566)& - &+JVS(47298)*UV(5252)+JVS(49568)*UV(5253)+JVS(52545)*UV(5255)+JVS(54147)*UV(5256) - JTUV(4567) = JVS(962)*UV(219)+JVS(2882)*UV(728)+JVS(8675)*UV(2071)+JVS(9563)*UV(2273)+JVS(25635)*UV(4567)+JVS(47299)& - &*UV(5252)+JVS(49569)*UV(5253)+JVS(52546)*UV(5255)+JVS(54148)*UV(5256) - JTUV(4568) = JVS(1905)*UV(487)+JVS(4132)*UV(1034)+JVS(15704)*UV(3438)+JVS(16520)*UV(3569)+JVS(25643)*UV(4568)& - &+JVS(47300)*UV(5252)+JVS(49570)*UV(5253)+JVS(52547)*UV(5255)+JVS(54149)*UV(5256) - JTUV(4569) = JVS(25657)*UV(4569)+JVS(26774)*UV(4680)+JVS(30992)*UV(5001)+JVS(31170)*UV(5011)+JVS(36502)*UV(5201)& - &+JVS(40181)*UV(5244)+JVS(44376)*UV(5250)+JVS(46011)*UV(5251)+JVS(52548)*UV(5255)+JVS(54150)*UV(5256) - JTUV(4570) = JVS(275)*UV(67)+JVS(17169)*UV(3647)+JVS(25663)*UV(4570)+JVS(30652)*UV(4982)+JVS(30673)*UV(4983)& - &+JVS(37531)*UV(5222)+JVS(44377)*UV(5250)+JVS(46012)*UV(5251)+JVS(52549)*UV(5255)+JVS(54942)*UV(5258) - JTUV(4571) = JVS(1305)*UV(316)+JVS(9220)*UV(2194)+JVS(9930)*UV(2355)+JVS(18247)*UV(3779)+JVS(25671)*UV(4571)& - &+JVS(27409)*UV(4736)+JVS(47301)*UV(5252)+JVS(49571)*UV(5253)+JVS(52550)*UV(5255)+JVS(54151)*UV(5256) - JTUV(4572) = JVS(5946)*UV(1485)+JVS(7756)*UV(1875)+JVS(11869)*UV(2749)+JVS(12173)*UV(2809)+JVS(25679)*UV(4572)& - &+JVS(47302)*UV(5252)+JVS(49572)*UV(5253)+JVS(52551)*UV(5255)+JVS(54152)*UV(5256) - JTUV(4573) = JVS(2488)*UV(636)+JVS(5768)*UV(1441)+JVS(8159)*UV(1963)+JVS(12259)*UV(2826)+JVS(16290)*UV(3537)& - &+JVS(25686)*UV(4573)+JVS(47303)*UV(5252)+JVS(49573)*UV(5253)+JVS(52552)*UV(5255)+JVS(54153)*UV(5256) - JTUV(4574) = JVS(4250)*UV(1063)+JVS(9984)*UV(2367)+JVS(14803)*UV(3302)+JVS(19503)*UV(3934)+JVS(25693)*UV(4574)& - &+JVS(47304)*UV(5252)+JVS(49574)*UV(5253)+JVS(52553)*UV(5255)+JVS(54154)*UV(5256) - JTUV(4575) = JVS(2539)*UV(647)+JVS(4410)*UV(1103)+JVS(13777)*UV(3107)+JVS(13781)*UV(3108)+JVS(16819)*UV(3606)& - &+JVS(25700)*UV(4575)+JVS(47305)*UV(5252)+JVS(49575)*UV(5253)+JVS(52554)*UV(5255)+JVS(54155)*UV(5256) - JTUV(4576) = JVS(21771)*UV(4198)+JVS(25711)*UV(4576)+JVS(27814)*UV(4769)+JVS(36503)*UV(5201)+JVS(44383)*UV(5250)& - &+JVS(46016)*UV(5251)+JVS(52555)*UV(5255)+JVS(54156)*UV(5256) - JTUV(4577) = JVS(3574)*UV(895)+JVS(4036)*UV(1010)+JVS(9644)*UV(2291)+JVS(15385)*UV(3393)+JVS(17967)*UV(3747)& - &+JVS(25721)*UV(4577)+JVS(47307)*UV(5252)+JVS(49577)*UV(5253)+JVS(52556)*UV(5255)+JVS(54157)*UV(5256) - JTUV(4578) = JVS(4880)*UV(1220)+JVS(6123)*UV(1529)+JVS(11084)*UV(2596)+JVS(16838)*UV(3608)+JVS(25727)*UV(4578)& - &+JVS(28800)*UV(4851)+JVS(47308)*UV(5252)+JVS(49578)*UV(5253)+JVS(52557)*UV(5255)+JVS(54158)*UV(5256) - JTUV(4579) = JVS(5211)*UV(1302)+JVS(7298)*UV(1785)+JVS(13610)*UV(3077)+JVS(19565)*UV(3942)+JVS(25734)*UV(4579)& - &+JVS(47309)*UV(5252)+JVS(49579)*UV(5253)+JVS(52558)*UV(5255)+JVS(54159)*UV(5256) - JTUV(4580) = JVS(924)*UV(209)+JVS(4856)*UV(1214)+JVS(7645)*UV(1852)+JVS(11602)*UV(2701)+JVS(25745)*UV(4580)+JVS(47310)& - &*UV(5252)+JVS(49580)*UV(5253)+JVS(52559)*UV(5255)+JVS(54160)*UV(5256) - JTUV(4581) = JVS(789)*UV(185)+JVS(6977)*UV(1719)+JVS(7592)*UV(1841)+JVS(9544)*UV(2269)+JVS(25753)*UV(4581)+JVS(34184)& - &*UV(5157)+JVS(47311)*UV(5252)+JVS(49581)*UV(5253)+JVS(52560)*UV(5255)+JVS(54161)*UV(5256) - JTUV(4582) = JVS(5548)*UV(1386)+JVS(7524)*UV(1827)+JVS(7989)*UV(1927)+JVS(14830)*UV(3308)+JVS(16329)*UV(3542)& - &+JVS(25761)*UV(4582)+JVS(47312)*UV(5252)+JVS(49582)*UV(5253)+JVS(52561)*UV(5255)+JVS(54162)*UV(5256) - JTUV(4583) = JVS(578)*UV(150)+JVS(6908)*UV(1704)+JVS(8112)*UV(1954)+JVS(14735)*UV(3288)+JVS(25769)*UV(4583)+JVS(34185)& - &*UV(5157)+JVS(47313)*UV(5252)+JVS(49583)*UV(5253)+JVS(52562)*UV(5255)+JVS(54163)*UV(5256) - JTUV(4584) = JVS(2193)*UV(564)+JVS(6845)*UV(1690)+JVS(7548)*UV(1832)+JVS(13613)*UV(3078)+JVS(25776)*UV(4584)& - &+JVS(47314)*UV(5252)+JVS(49584)*UV(5253)+JVS(52563)*UV(5255)+JVS(54164)*UV(5256) - JTUV(4585) = JVS(2248)*UV(578)+JVS(7418)*UV(1808)+JVS(9576)*UV(2276)+JVS(14262)*UV(3198)+JVS(25784)*UV(4585)& - &+JVS(47315)*UV(5252)+JVS(49585)*UV(5253)+JVS(52564)*UV(5255)+JVS(54165)*UV(5256) - JTUV(4586) = JVS(677)*UV(166)+JVS(1011)*UV(234)+JVS(6011)*UV(1501)+JVS(7542)*UV(1831)+JVS(13788)*UV(3109)+JVS(25791)& - &*UV(4586)+JVS(47316)*UV(5252)+JVS(49586)*UV(5253)+JVS(52565)*UV(5255)+JVS(54166)*UV(5256) - JTUV(4587) = JVS(8388)*UV(2011)+JVS(8917)*UV(2125)+JVS(15069)*UV(3349)+JVS(19427)*UV(3925)+JVS(25799)*UV(4587)& - &+JVS(47317)*UV(5252)+JVS(49587)*UV(5253)+JVS(52566)*UV(5255)+JVS(54167)*UV(5256) - JTUV(4588) = JVS(25808)*UV(4588)+JVS(34720)*UV(5170)+JVS(38511)*UV(5231)+JVS(44395)*UV(5250)+JVS(46019)*UV(5251)& - &+JVS(52567)*UV(5255) - JTUV(4589) = JVS(2316)*UV(595)+JVS(6815)*UV(1683)+JVS(7943)*UV(1917)+JVS(11654)*UV(2711)+JVS(25820)*UV(4589)& - &+JVS(47318)*UV(5252)+JVS(49588)*UV(5253)+JVS(52568)*UV(5255)+JVS(54168)*UV(5256) - JTUV(4590) = JVS(3252)*UV(815)+JVS(8933)*UV(2129)+JVS(9094)*UV(2166)+JVS(10815)*UV(2547)+JVS(25828)*UV(4590)& - &+JVS(47319)*UV(5252)+JVS(49589)*UV(5253)+JVS(52569)*UV(5255)+JVS(54169)*UV(5256) - JTUV(4591) = JVS(1819)*UV(461)+JVS(5828)*UV(1456)+JVS(14365)*UV(3220)+JVS(25845)*UV(4591)+JVS(25857)*UV(4592)& - &+JVS(44398)*UV(5250)+JVS(47320)*UV(5252)+JVS(49590)*UV(5253)+JVS(52570)*UV(5255)+JVS(54170)*UV(5256)& - &+JVS(54944)*UV(5258) - JTUV(4592) = JVS(9607)*UV(2283)+JVS(18358)*UV(3793)+JVS(25858)*UV(4592)+JVS(47321)*UV(5252)+JVS(49591)*UV(5253)& - &+JVS(52571)*UV(5255)+JVS(54171)*UV(5256) - JTUV(4593) = JVS(9584)*UV(2278)+JVS(10104)*UV(2394)+JVS(15433)*UV(3399)+JVS(19023)*UV(3878)+JVS(25866)*UV(4593)& - &+JVS(47322)*UV(5252)+JVS(49592)*UV(5253)+JVS(52572)*UV(5255)+JVS(54172)*UV(5256) - JTUV(4594) = JVS(2619)*UV(666)+JVS(6369)*UV(1587)+JVS(7327)*UV(1790)+JVS(14856)*UV(3314)+JVS(25874)*UV(4594)& - &+JVS(47323)*UV(5252)+JVS(49593)*UV(5253)+JVS(52573)*UV(5255)+JVS(54173)*UV(5256) - JTUV(4595) = JVS(220)*UV(51)+JVS(7735)*UV(1870)+JVS(9507)*UV(2260)+JVS(16098)*UV(3510)+JVS(25882)*UV(4595)+JVS(47324)& - &*UV(5252)+JVS(49594)*UV(5253)+JVS(52574)*UV(5255)+JVS(54174)*UV(5256) - JTUV(4596) = JVS(4479)*UV(1120)+JVS(7457)*UV(1815)+JVS(7837)*UV(1894)+JVS(14492)*UV(3243)+JVS(18041)*UV(3755)& - &+JVS(25890)*UV(4596)+JVS(47325)*UV(5252)+JVS(49595)*UV(5253)+JVS(52575)*UV(5255)+JVS(54175)*UV(5256) - JTUV(4597) = JVS(2477)*UV(633)+JVS(5660)*UV(1414)+JVS(9834)*UV(2332)+JVS(12929)*UV(2953)+JVS(20950)*UV(4104)& - &+JVS(25899)*UV(4597)+JVS(47326)*UV(5252)+JVS(49596)*UV(5253)+JVS(52576)*UV(5255)+JVS(54176)*UV(5256) - JTUV(4598) = JVS(3700)*UV(926)+JVS(7764)*UV(1877)+JVS(10304)*UV(2441)+JVS(14739)*UV(3289)+JVS(16461)*UV(3561)& - &+JVS(25906)*UV(4598)+JVS(47327)*UV(5252)+JVS(49597)*UV(5253)+JVS(52577)*UV(5255)+JVS(54177)*UV(5256) - JTUV(4599) = JVS(1266)*UV(305)+JVS(3824)*UV(957)+JVS(15971)*UV(3490)+JVS(16949)*UV(3620)+JVS(25914)*UV(4599)& - &+JVS(47328)*UV(5252)+JVS(49598)*UV(5253)+JVS(52578)*UV(5255)+JVS(54178)*UV(5256) - JTUV(4600) = JVS(2506)*UV(640)+JVS(18454)*UV(3806)+JVS(20827)*UV(4090)+JVS(20877)*UV(4097)+JVS(21292)*UV(4146)& - &+JVS(21647)*UV(4185)+JVS(25920)*UV(4600)+JVS(27535)*UV(4747)+JVS(37218)*UV(5215)+JVS(38518)*UV(5231)& - &+JVS(44407)*UV(5250)+JVS(54179)*UV(5256)+JVS(54946)*UV(5258) - JTUV(4601) = JVS(1872)*UV(477)+JVS(15909)*UV(3479)+JVS(21272)*UV(4143)+JVS(25924)*UV(4601)+JVS(27898)*UV(4777)& - &+JVS(28595)*UV(4837)+JVS(30338)*UV(4959)+JVS(34940)*UV(5178)+JVS(38519)*UV(5231)+JVS(44408)*UV(5250)& - &+JVS(54180)*UV(5256)+JVS(54947)*UV(5258) - JTUV(4602) = JVS(25961)*UV(4602)+JVS(44409)*UV(5250)+JVS(46028)*UV(5251)+JVS(52581)*UV(5255) - JTUV(4603) = JVS(7255)*UV(1775)+JVS(23747)*UV(4398)+JVS(25983)*UV(4603)+JVS(39092)*UV(5233)+JVS(52582)*UV(5255) - JTUV(4604) = JVS(14280)*UV(3202)+JVS(23161)*UV(4333)+JVS(25989)*UV(4604)+JVS(26002)*UV(4607)+JVS(26011)*UV(4608)& - &+JVS(27066)*UV(4702)+JVS(29202)*UV(4884)+JVS(35900)*UV(5193)+JVS(38056)*UV(5230)+JVS(44411)*UV(5250)& - &+JVS(54182)*UV(5256)+JVS(54948)*UV(5258) - JTUV(4605) = JVS(1661)*UV(419)+JVS(2842)*UV(719)+JVS(18897)*UV(3863)+JVS(18926)*UV(3867)+JVS(19548)*UV(3940)& - &+JVS(19993)*UV(3994)+JVS(25993)*UV(4605)+JVS(44412)*UV(5250)+JVS(54183)*UV(5256)+JVS(54949)*UV(5258) - JTUV(4606) = JVS(14281)*UV(3202)+JVS(23162)*UV(4333)+JVS(25997)*UV(4606)+JVS(26003)*UV(4607)+JVS(26012)*UV(4608)& - &+JVS(27067)*UV(4702)+JVS(29203)*UV(4884)+JVS(35901)*UV(5193)+JVS(38057)*UV(5230)+JVS(44413)*UV(5250)& - &+JVS(54184)*UV(5256)+JVS(54950)*UV(5258) - JTUV(4607) = JVS(4482)*UV(1121)+JVS(7218)*UV(1767)+JVS(9997)*UV(2370)+JVS(12701)*UV(2912)+JVS(18059)*UV(3757)& - &+JVS(26004)*UV(4607)+JVS(47333)*UV(5252)+JVS(49603)*UV(5253)+JVS(52586)*UV(5255)+JVS(54185)*UV(5256) - JTUV(4608) = JVS(4483)*UV(1121)+JVS(8658)*UV(2067)+JVS(8949)*UV(2133)+JVS(12373)*UV(2849)+JVS(22033)*UV(4223)& - &+JVS(26013)*UV(4608)+JVS(47334)*UV(5252)+JVS(49604)*UV(5253)+JVS(52587)*UV(5255)+JVS(54186)*UV(5256) - JTUV(4609) = JVS(5223)*UV(1305)+JVS(7717)*UV(1867)+JVS(12208)*UV(2817)+JVS(15861)*UV(3472)+JVS(19205)*UV(3900)& - &+JVS(26020)*UV(4609)+JVS(47335)*UV(5252)+JVS(49605)*UV(5253)+JVS(52588)*UV(5255)+JVS(54187)*UV(5256) - JTUV(4610) = JVS(1530)*UV(381)+JVS(4640)*UV(1160)+JVS(8102)*UV(1952)+JVS(11679)*UV(2716)+JVS(15476)*UV(3405)& - &+JVS(26027)*UV(4610)+JVS(47336)*UV(5252)+JVS(49606)*UV(5253)+JVS(52589)*UV(5255)+JVS(54188)*UV(5256) - JTUV(4611) = JVS(1278)*UV(309)+JVS(4254)*UV(1064)+JVS(11912)*UV(2757)+JVS(21986)*UV(4219)+JVS(26036)*UV(4611)& - &+JVS(44418)*UV(5250)+JVS(47337)*UV(5252)+JVS(49607)*UV(5253)+JVS(52590)*UV(5255)+JVS(54189)*UV(5256)& - &+JVS(54952)*UV(5258) - JTUV(4612) = JVS(1994)*UV(512)+JVS(6416)*UV(1597)+JVS(11949)*UV(2764)+JVS(13067)*UV(2976)+JVS(13911)*UV(3128)& - &+JVS(26048)*UV(4612)+JVS(47338)*UV(5252)+JVS(49608)*UV(5253)+JVS(52591)*UV(5255)+JVS(54190)*UV(5256) - JTUV(4613) = JVS(3590)*UV(899)+JVS(11417)*UV(2663)+JVS(26059)*UV(4613)+JVS(26070)*UV(4614)+JVS(44420)*UV(5250)& - &+JVS(47339)*UV(5252)+JVS(49609)*UV(5253)+JVS(52592)*UV(5255)+JVS(54191)*UV(5256) - JTUV(4614) = JVS(1859)*UV(473)+JVS(6398)*UV(1593)+JVS(11421)*UV(2664)+JVS(12177)*UV(2810)+JVS(13913)*UV(3128)& - &+JVS(26071)*UV(4614)+JVS(47340)*UV(5252)+JVS(49610)*UV(5253)+JVS(52593)*UV(5255)+JVS(54192)*UV(5256) - JTUV(4615) = JVS(10525)*UV(2489)+JVS(14468)*UV(3241)+JVS(25212)*UV(4528)+JVS(26078)*UV(4615)+JVS(32259)*UV(5074)& - &+JVS(34129)*UV(5154)+JVS(37341)*UV(5221)+JVS(38523)*UV(5231)+JVS(44422)*UV(5250)+JVS(49611)*UV(5253)& - &+JVS(54953)*UV(5258) - JTUV(4616) = JVS(1655)*UV(417)+JVS(4572)*UV(1143)+JVS(8695)*UV(2075)+JVS(8701)*UV(2076)+JVS(14043)*UV(3156)+JVS(26084)& - &*UV(4616)+JVS(47341)*UV(5252)+JVS(49612)*UV(5253)+JVS(52595)*UV(5255)+JVS(54193)*UV(5256) - JTUV(4617) = JVS(4986)*UV(1246)+JVS(16197)*UV(3524)+JVS(26089)*UV(4617)+JVS(27573)*UV(4749)+JVS(44424)*UV(5250)& - &+JVS(46039)*UV(5251)+JVS(47342)*UV(5252)+JVS(49613)*UV(5253)+JVS(52596)*UV(5255)+JVS(54194)*UV(5256) - JTUV(4618) = JVS(26107)*UV(4618)+JVS(30805)*UV(4991)+JVS(35278)*UV(5183)+JVS(40197)*UV(5244)+JVS(44425)*UV(5250) - JTUV(4619) = JVS(9567)*UV(2274)+JVS(18412)*UV(3800)+JVS(26127)*UV(4619)+JVS(39094)*UV(5233)+JVS(52597)*UV(5255) - JTUV(4620) = JVS(7772)*UV(1879)+JVS(11712)*UV(2721)+JVS(25964)*UV(4602)+JVS(26138)*UV(4620)+JVS(33273)*UV(5125)& - &+JVS(44427)*UV(5250)+JVS(47344)*UV(5252)+JVS(49615)*UV(5253)+JVS(52598)*UV(5255)+JVS(54196)*UV(5256) - JTUV(4621) = JVS(22)*UV(3)+JVS(236)*UV(56)+JVS(26146)*UV(4621)+JVS(31280)*UV(5018)+JVS(31735)*UV(5046)+JVS(46042)& - &*UV(5251)+JVS(47345)*UV(5252)+JVS(49616)*UV(5253)+JVS(50233)*UV(5254)+JVS(54197)*UV(5256) - JTUV(4622) = JVS(2389)*UV(613)+JVS(4378)*UV(1095)+JVS(14868)*UV(3317)+JVS(26171)*UV(4622)+JVS(26626)*UV(4666)& - &+JVS(44429)*UV(5250)+JVS(47346)*UV(5252)+JVS(49617)*UV(5253)+JVS(52599)*UV(5255)+JVS(54198)*UV(5256)& - &+JVS(54954)*UV(5258) - JTUV(4623) = JVS(1512)*UV(376)+JVS(5796)*UV(1448)+JVS(12344)*UV(2843)+JVS(26180)*UV(4623)+JVS(35425)*UV(5185)& - &+JVS(44430)*UV(5250)+JVS(47347)*UV(5252)+JVS(49618)*UV(5253)+JVS(52600)*UV(5255)+JVS(54199)*UV(5256)& - &+JVS(54955)*UV(5258) - JTUV(4624) = JVS(3390)*UV(849)+JVS(4756)*UV(1189)+JVS(10908)*UV(2564)+JVS(21179)*UV(4131)+JVS(26195)*UV(4624)& - &+JVS(44431)*UV(5250)+JVS(47348)*UV(5252)+JVS(49619)*UV(5253)+JVS(52601)*UV(5255)+JVS(54200)*UV(5256)& - &+JVS(54956)*UV(5258) - JTUV(4625) = JVS(10466)*UV(2475)+JVS(16001)*UV(3495)+JVS(16862)*UV(3611)+JVS(26204)*UV(4625)+JVS(47349)*UV(5252)& - &+JVS(49620)*UV(5253)+JVS(52602)*UV(5255)+JVS(54201)*UV(5256) - JTUV(4626) = JVS(3342)*UV(837)+JVS(5267)*UV(1316)+JVS(13509)*UV(3060)+JVS(24147)*UV(4432)+JVS(26214)*UV(4626)& - &+JVS(44433)*UV(5250)+JVS(47350)*UV(5252)+JVS(49621)*UV(5253)+JVS(52603)*UV(5255)+JVS(54202)*UV(5256)& - &+JVS(54957)*UV(5258) - JTUV(4627) = JVS(5999)*UV(1498)+JVS(10881)*UV(2560)+JVS(22997)*UV(4318)+JVS(26223)*UV(4627)+JVS(44434)*UV(5250)& - &+JVS(47351)*UV(5252)+JVS(49622)*UV(5253)+JVS(52604)*UV(5255)+JVS(54203)*UV(5256) - JTUV(4628) = JVS(4704)*UV(1176)+JVS(5026)*UV(1256)+JVS(11241)*UV(2630)+JVS(26232)*UV(4628)+JVS(27976)*UV(4787)& - &+JVS(44435)*UV(5250)+JVS(47352)*UV(5252)+JVS(49623)*UV(5253)+JVS(52605)*UV(5255)+JVS(54204)*UV(5256)& - &+JVS(54958)*UV(5258) - JTUV(4629) = JVS(1030)*UV(240)+JVS(3374)*UV(845)+JVS(12368)*UV(2848)+JVS(26242)*UV(4629)+JVS(33992)*UV(5148)& - &+JVS(44436)*UV(5250)+JVS(47353)*UV(5252)+JVS(49624)*UV(5253)+JVS(52606)*UV(5255)+JVS(54205)*UV(5256)& - &+JVS(54959)*UV(5258) - JTUV(4630) = JVS(26252)*UV(4630)+JVS(28716)*UV(4846)+JVS(29570)*UV(4913)+JVS(30158)*UV(4947)+JVS(36512)*UV(5201)& - &+JVS(40199)*UV(5244)+JVS(44437)*UV(5250)+JVS(46051)*UV(5251)+JVS(52607)*UV(5255)+JVS(54206)*UV(5256) - JTUV(4631) = JVS(3812)*UV(954)+JVS(13473)*UV(3053)+JVS(21705)*UV(4191)+JVS(26265)*UV(4631)+JVS(44438)*UV(5250)& - &+JVS(47354)*UV(5252)+JVS(49625)*UV(5253)+JVS(52608)*UV(5255)+JVS(54207)*UV(5256) - JTUV(4632) = JVS(14218)*UV(3190)+JVS(20592)*UV(4061)+JVS(26276)*UV(4632)+JVS(49626)*UV(5253)+JVS(54960)*UV(5258) - JTUV(4633) = JVS(5018)*UV(1254)+JVS(5928)*UV(1481)+JVS(11249)*UV(2632)+JVS(26286)*UV(4633)+JVS(29459)*UV(4905)& - &+JVS(44440)*UV(5250)+JVS(47356)*UV(5252)+JVS(49627)*UV(5253)+JVS(52610)*UV(5255)+JVS(54209)*UV(5256)& - &+JVS(54961)*UV(5258) - JTUV(4634) = JVS(1728)*UV(438)+JVS(6071)*UV(1516)+JVS(12540)*UV(2882)+JVS(26295)*UV(4634)+JVS(32073)*UV(5062)& - &+JVS(44441)*UV(5250)+JVS(47357)*UV(5252)+JVS(49628)*UV(5253)+JVS(52611)*UV(5255)+JVS(54210)*UV(5256)& - &+JVS(54962)*UV(5258) - JTUV(4635) = JVS(3634)*UV(910)+JVS(4696)*UV(1174)+JVS(12718)*UV(2915)+JVS(26305)*UV(4635)+JVS(26728)*UV(4675)& - &+JVS(44442)*UV(5250)+JVS(47358)*UV(5252)+JVS(49629)*UV(5253)+JVS(52612)*UV(5255)+JVS(54211)*UV(5256)& - &+JVS(54963)*UV(5258) - JTUV(4636) = JVS(1971)*UV(506)+JVS(3740)*UV(936)+JVS(12023)*UV(2777)+JVS(26314)*UV(4636)+JVS(31248)*UV(5016)& - &+JVS(44443)*UV(5250)+JVS(47359)*UV(5252)+JVS(49630)*UV(5253)+JVS(52613)*UV(5255)+JVS(54212)*UV(5256)& - &+JVS(54964)*UV(5258) - JTUV(4637) = JVS(17560)*UV(3696)+JVS(18181)*UV(3772)+JVS(26322)*UV(4637)+JVS(26871)*UV(4689)+JVS(44444)*UV(5250)& - &+JVS(46057)*UV(5251)+JVS(54213)*UV(5256)+JVS(54965)*UV(5258) - JTUV(4638) = JVS(1034)*UV(241)+JVS(4990)*UV(1247)+JVS(11090)*UV(2597)+JVS(17606)*UV(3703)+JVS(26332)*UV(4638)& - &+JVS(44445)*UV(5250)+JVS(47361)*UV(5252)+JVS(49632)*UV(5253)+JVS(52615)*UV(5255)+JVS(54214)*UV(5256)& - &+JVS(54966)*UV(5258) - JTUV(4639) = JVS(13814)*UV(3114)+JVS(20242)*UV(4023)+JVS(26342)*UV(4639)+JVS(49633)*UV(5253)+JVS(54967)*UV(5258) - JTUV(4640) = JVS(12162)*UV(2807)+JVS(12272)*UV(2828)+JVS(26352)*UV(4640)+JVS(32502)*UV(5087)+JVS(37533)*UV(5222)& - &+JVS(47363)*UV(5252)+JVS(49634)*UV(5253)+JVS(52617)*UV(5255)+JVS(54216)*UV(5256) - JTUV(4641) = JVS(3680)*UV(921)+JVS(3840)*UV(961)+JVS(11294)*UV(2640)+JVS(26362)*UV(4641)+JVS(26640)*UV(4667)& - &+JVS(44448)*UV(5250)+JVS(47364)*UV(5252)+JVS(49635)*UV(5253)+JVS(52618)*UV(5255)+JVS(54217)*UV(5256)& - &+JVS(54968)*UV(5258) - JTUV(4642) = JVS(997)*UV(230)+JVS(3948)*UV(988)+JVS(12065)*UV(2787)+JVS(26372)*UV(4642)+JVS(32666)*UV(5097)+JVS(44449)& - &*UV(5250)+JVS(47365)*UV(5252)+JVS(49636)*UV(5253)+JVS(52619)*UV(5255)+JVS(54218)*UV(5256)+JVS(54969)& - &*UV(5258) - JTUV(4643) = JVS(3546)*UV(888)+JVS(15295)*UV(3381)+JVS(26381)*UV(4643)+JVS(47366)*UV(5252)+JVS(49637)*UV(5253)& - &+JVS(52620)*UV(5255)+JVS(54219)*UV(5256) - JTUV(4644) = JVS(2897)*UV(731)+JVS(10321)*UV(2445)+JVS(26396)*UV(4644)+JVS(47367)*UV(5252)+JVS(49638)*UV(5253)& - &+JVS(52621)*UV(5255)+JVS(54220)*UV(5256) - JTUV(4645) = JVS(3382)*UV(847)+JVS(7801)*UV(1886)+JVS(9985)*UV(2367)+JVS(11706)*UV(2720)+JVS(19708)*UV(3959)& - &+JVS(26405)*UV(4645)+JVS(47368)*UV(5252)+JVS(49639)*UV(5253)+JVS(52622)*UV(5255)+JVS(54221)*UV(5256) - JTUV(4646) = JVS(2280)*UV(586)+JVS(5351)*UV(1337)+JVS(8909)*UV(2123)+JVS(10721)*UV(2528)+JVS(16904)*UV(3616)& - &+JVS(26413)*UV(4646)+JVS(47369)*UV(5252)+JVS(49640)*UV(5253)+JVS(52623)*UV(5255)+JVS(54222)*UV(5256) - JTUV(4647) = JVS(4495)*UV(1124)+JVS(7976)*UV(1924)+JVS(14056)*UV(3159)+JVS(15733)*UV(3444)+JVS(26423)*UV(4647)& - &+JVS(47370)*UV(5252)+JVS(49641)*UV(5253)+JVS(52624)*UV(5255)+JVS(54223)*UV(5256) - JTUV(4648) = JVS(9296)*UV(2210)+JVS(13063)*UV(2975)+JVS(26434)*UV(4648)+JVS(47371)*UV(5252)+JVS(49642)*UV(5253)& - &+JVS(52625)*UV(5255)+JVS(54224)*UV(5256) - JTUV(4649) = JVS(4840)*UV(1210)+JVS(5672)*UV(1417)+JVS(12943)*UV(2955)+JVS(25058)*UV(4513)+JVS(26444)*UV(4649)& - &+JVS(44456)*UV(5250)+JVS(47372)*UV(5252)+JVS(49643)*UV(5253)+JVS(52626)*UV(5255)+JVS(54225)*UV(5256)& - &+JVS(54970)*UV(5258) - JTUV(4650) = JVS(18103)*UV(3762)+JVS(18200)*UV(3774)+JVS(26452)*UV(4650)+JVS(26861)*UV(4688)+JVS(44457)*UV(5250)& - &+JVS(46066)*UV(5251)+JVS(54226)*UV(5256)+JVS(54971)*UV(5258) - JTUV(4651) = JVS(26465)*UV(4651)+JVS(36517)*UV(5201)+JVS(39354)*UV(5235)+JVS(44458)*UV(5250)+JVS(46067)*UV(5251)& - &+JVS(52628)*UV(5255)+JVS(54227)*UV(5256) - JTUV(4652) = JVS(1553)*UV(388)+JVS(5347)*UV(1336)+JVS(14852)*UV(3313)+JVS(17575)*UV(3698)+JVS(26478)*UV(4652)& - &+JVS(44459)*UV(5250)+JVS(47374)*UV(5252)+JVS(49645)*UV(5253)+JVS(52629)*UV(5255)+JVS(54228)*UV(5256)& - &+JVS(54972)*UV(5258) - JTUV(4653) = JVS(3302)*UV(827)+JVS(5636)*UV(1408)+JVS(13088)*UV(2980)+JVS(24426)*UV(4459)+JVS(26487)*UV(4653)& - &+JVS(44460)*UV(5250)+JVS(47375)*UV(5252)+JVS(49646)*UV(5253)+JVS(52630)*UV(5255)+JVS(54229)*UV(5256)& - &+JVS(54973)*UV(5258) - JTUV(4654) = JVS(5483)*UV(1370)+JVS(5640)*UV(1409)+JVS(12421)*UV(2857)+JVS(22923)*UV(4311)+JVS(26497)*UV(4654)& - &+JVS(44461)*UV(5250)+JVS(47376)*UV(5252)+JVS(49647)*UV(5253)+JVS(52631)*UV(5255)+JVS(54230)*UV(5256)& - &+JVS(54974)*UV(5258) - JTUV(4655) = JVS(3470)*UV(869)+JVS(15157)*UV(3363)+JVS(26506)*UV(4655)+JVS(47377)*UV(5252)+JVS(49648)*UV(5253)& - &+JVS(52632)*UV(5255)+JVS(54231)*UV(5256) - JTUV(4656) = JVS(3586)*UV(898)+JVS(5099)*UV(1274)+JVS(11357)*UV(2650)+JVS(26516)*UV(4656)+JVS(28338)*UV(4813)& - &+JVS(44463)*UV(5250)+JVS(47378)*UV(5252)+JVS(49649)*UV(5253)+JVS(52633)*UV(5255)+JVS(54232)*UV(5256)& - &+JVS(54975)*UV(5258) - JTUV(4657) = JVS(3554)*UV(890)+JVS(7752)*UV(1874)+JVS(14446)*UV(3236)+JVS(26525)*UV(4657)+JVS(30318)*UV(4958)& - &+JVS(44464)*UV(5250)+JVS(47379)*UV(5252)+JVS(49650)*UV(5253)+JVS(52634)*UV(5255)+JVS(54233)*UV(5256)& - &+JVS(54976)*UV(5258) - JTUV(4658) = JVS(3350)*UV(839)+JVS(6079)*UV(1518)+JVS(8040)*UV(1939)+JVS(26538)*UV(4658)+JVS(30319)*UV(4958)& - &+JVS(44465)*UV(5250)+JVS(47380)*UV(5252)+JVS(49651)*UV(5253)+JVS(52635)*UV(5255)+JVS(54234)*UV(5256)& - &+JVS(54977)*UV(5258) - JTUV(4659) = JVS(3286)*UV(823)+JVS(5395)*UV(1348)+JVS(10695)*UV(2523)+JVS(23986)*UV(4418)+JVS(26548)*UV(4659)& - &+JVS(44466)*UV(5250)+JVS(47381)*UV(5252)+JVS(49652)*UV(5253)+JVS(52636)*UV(5255)+JVS(54235)*UV(5256)& - &+JVS(54978)*UV(5258) - JTUV(4660) = JVS(3728)*UV(933)+JVS(4068)*UV(1018)+JVS(10714)*UV(2527)+JVS(26557)*UV(4660)+JVS(31294)*UV(5019)& - &+JVS(44467)*UV(5250)+JVS(47382)*UV(5252)+JVS(49653)*UV(5253)+JVS(52637)*UV(5255)+JVS(54236)*UV(5256)& - &+JVS(54979)*UV(5258) - JTUV(4661) = JVS(7222)*UV(1768)+JVS(14796)*UV(3301)+JVS(26566)*UV(4661)+JVS(32141)*UV(5067)+JVS(33664)*UV(5139)& - &+JVS(47383)*UV(5252)+JVS(49654)*UV(5253)+JVS(52638)*UV(5255)+JVS(54237)*UV(5256) - JTUV(4662) = JVS(1664)*UV(420)+JVS(4218)*UV(1055)+JVS(13075)*UV(2978)+JVS(26576)*UV(4662)+JVS(29046)*UV(4870)& - &+JVS(44469)*UV(5250)+JVS(47384)*UV(5252)+JVS(49655)*UV(5253)+JVS(52639)*UV(5255)+JVS(54238)*UV(5256)& - &+JVS(54980)*UV(5258) - JTUV(4663) = JVS(14024)*UV(3152)+JVS(20677)*UV(4072)+JVS(26587)*UV(4663)+JVS(49656)*UV(5253)+JVS(54981)*UV(5258) - JTUV(4664) = JVS(3430)*UV(859)+JVS(5772)*UV(1442)+JVS(11270)*UV(2636)+JVS(26604)*UV(4664)+JVS(29371)*UV(4900)& - &+JVS(44471)*UV(5250)+JVS(47386)*UV(5252)+JVS(49657)*UV(5253)+JVS(52641)*UV(5255)+JVS(54240)*UV(5256)& - &+JVS(54982)*UV(5258) - JTUV(4665) = JVS(1772)*UV(449)+JVS(5167)*UV(1291)+JVS(13326)*UV(3025)+JVS(26613)*UV(4665)+JVS(33064)*UV(5116)& - &+JVS(44472)*UV(5250)+JVS(47387)*UV(5252)+JVS(49658)*UV(5253)+JVS(52642)*UV(5255)+JVS(54241)*UV(5256)& - &+JVS(54983)*UV(5258) - JTUV(4666) = JVS(7200)*UV(1763)+JVS(26627)*UV(4666)+JVS(30430)*UV(4965)+JVS(47388)*UV(5252)+JVS(49659)*UV(5253)& - &+JVS(52643)*UV(5255)+JVS(54242)*UV(5256) - JTUV(4667) = JVS(6420)*UV(1598)+JVS(7186)*UV(1760)+JVS(11668)*UV(2714)+JVS(14454)*UV(3238)+JVS(26641)*UV(4667)& - &+JVS(47389)*UV(5252)+JVS(49660)*UV(5253)+JVS(52644)*UV(5255)+JVS(54243)*UV(5256) - JTUV(4668) = JVS(23)*UV(3)+JVS(12047)*UV(2783)+JVS(26649)*UV(4668)+JVS(31736)*UV(5046)+JVS(35024)*UV(5180)+JVS(46080)& - &*UV(5251)+JVS(47390)*UV(5252)+JVS(49661)*UV(5253)+JVS(50234)*UV(5254)+JVS(54244)*UV(5256) - JTUV(4669) = JVS(1567)*UV(392)+JVS(2356)*UV(605)+JVS(10428)*UV(2467)+JVS(14335)*UV(3214)+JVS(26661)*UV(4669)& - &+JVS(47391)*UV(5252)+JVS(49662)*UV(5253)+JVS(52645)*UV(5255)+JVS(54245)*UV(5256) - JTUV(4670) = JVS(13976)*UV(3142)+JVS(20104)*UV(4007)+JVS(26671)*UV(4670)+JVS(49663)*UV(5253)+JVS(54984)*UV(5258) - JTUV(4671) = JVS(13851)*UV(3120)+JVS(20133)*UV(4011)+JVS(26682)*UV(4671)+JVS(49664)*UV(5253)+JVS(54985)*UV(5258) - JTUV(4672) = JVS(1649)*UV(415)+JVS(4648)*UV(1162)+JVS(9086)*UV(2164)+JVS(17874)*UV(3736)+JVS(17881)*UV(3737)& - &+JVS(26696)*UV(4672)+JVS(47394)*UV(5252)+JVS(49665)*UV(5253)+JVS(52648)*UV(5255)+JVS(54248)*UV(5256) - JTUV(4673) = JVS(3418)*UV(856)+JVS(7955)*UV(1920)+JVS(10939)*UV(2571)+JVS(26709)*UV(4673)+JVS(38535)*UV(5231)& - &+JVS(39455)*UV(5237)+JVS(44480)*UV(5250)+JVS(47395)*UV(5252)+JVS(49666)*UV(5253)+JVS(52649)*UV(5255)& - &+JVS(54249)*UV(5256)+JVS(54986)*UV(5258) - JTUV(4674) = JVS(6330)*UV(1578)+JVS(11527)*UV(2686)+JVS(16588)*UV(3578)+JVS(26718)*UV(4674)+JVS(47396)*UV(5252)& - &+JVS(49667)*UV(5253)+JVS(52650)*UV(5255)+JVS(54250)*UV(5256) - JTUV(4675) = JVS(6603)*UV(1636)+JVS(8098)*UV(1951)+JVS(11112)*UV(2601)+JVS(12509)*UV(2875)+JVS(26729)*UV(4675)& - &+JVS(47397)*UV(5252)+JVS(49668)*UV(5253)+JVS(52651)*UV(5255)+JVS(54251)*UV(5256) - JTUV(4676) = JVS(14213)*UV(3189)+JVS(20369)*UV(4039)+JVS(26740)*UV(4676)+JVS(49669)*UV(5253)+JVS(54987)*UV(5258) - JTUV(4677) = JVS(24)*UV(3)+JVS(12048)*UV(2783)+JVS(26748)*UV(4677)+JVS(31737)*UV(5046)+JVS(35025)*UV(5180)+JVS(46085)& - &*UV(5251)+JVS(47399)*UV(5252)+JVS(49670)*UV(5253)+JVS(50235)*UV(5254)+JVS(54253)*UV(5256) - JTUV(4678) = JVS(25)*UV(3)+JVS(16916)*UV(3617)+JVS(17075)*UV(3638)+JVS(26755)*UV(4678)+JVS(40575)*UV(5249)+JVS(46086)& - &*UV(5251)+JVS(47400)*UV(5252)+JVS(49671)*UV(5253)+JVS(50236)*UV(5254)+JVS(54254)*UV(5256) - JTUV(4679) = JVS(1154)*UV(275)+JVS(3800)*UV(951)+JVS(11430)*UV(2666)+JVS(18330)*UV(3789)+JVS(26765)*UV(4679)& - &+JVS(44486)*UV(5250)+JVS(47401)*UV(5252)+JVS(49672)*UV(5253)+JVS(52653)*UV(5255)+JVS(54255)*UV(5256)& - &+JVS(54988)*UV(5258) - JTUV(4680) = JVS(5516)*UV(1378)+JVS(5732)*UV(1432)+JVS(11456)*UV(2671)+JVS(26775)*UV(4680)+JVS(31171)*UV(5011)& - &+JVS(44487)*UV(5250)+JVS(47402)*UV(5252)+JVS(49673)*UV(5253)+JVS(52654)*UV(5255)+JVS(54256)*UV(5256)& - &+JVS(54989)*UV(5258) - JTUV(4681) = JVS(1453)*UV(360)+JVS(5002)*UV(1250)+JVS(14892)*UV(3323)+JVS(17931)*UV(3743)+JVS(26785)*UV(4681)& - &+JVS(44488)*UV(5250)+JVS(47403)*UV(5252)+JVS(49674)*UV(5253)+JVS(52655)*UV(5255)+JVS(54257)*UV(5256)& - &+JVS(54990)*UV(5258) - JTUV(4682) = JVS(13981)*UV(3143)+JVS(20377)*UV(4040)+JVS(26796)*UV(4682)+JVS(49675)*UV(5253)+JVS(54991)*UV(5258) - JTUV(4683) = JVS(6543)*UV(1623)+JVS(8880)*UV(2117)+JVS(10877)*UV(2559)+JVS(11329)*UV(2645)+JVS(26806)*UV(4683)& - &+JVS(47405)*UV(5252)+JVS(49676)*UV(5253)+JVS(52657)*UV(5255)+JVS(54259)*UV(5256) - JTUV(4684) = JVS(3656)*UV(915)+JVS(4334)*UV(1084)+JVS(12651)*UV(2904)+JVS(26815)*UV(4684)+JVS(30993)*UV(5001)& - &+JVS(44491)*UV(5250)+JVS(47406)*UV(5252)+JVS(49677)*UV(5253)+JVS(52658)*UV(5255)+JVS(54260)*UV(5256)& - &+JVS(54992)*UV(5258) - JTUV(4685) = JVS(5199)*UV(1299)+JVS(5323)*UV(1330)+JVS(12899)*UV(2948)+JVS(26825)*UV(4685)+JVS(30830)*UV(4992)& - &+JVS(44492)*UV(5250)+JVS(47407)*UV(5252)+JVS(49678)*UV(5253)+JVS(52659)*UV(5255)+JVS(54261)*UV(5256)& - &+JVS(54993)*UV(5258) - JTUV(4686) = JVS(5900)*UV(1474)+JVS(12031)*UV(2779)+JVS(26838)*UV(4686)+JVS(26851)*UV(4687)+JVS(44493)*UV(5250)& - &+JVS(47408)*UV(5252)+JVS(49679)*UV(5253)+JVS(52660)*UV(5255)+JVS(54262)*UV(5256) - JTUV(4687) = JVS(444)*UV(115)+JVS(1429)*UV(352)+JVS(8121)*UV(1956)+JVS(16804)*UV(3604)+JVS(26852)*UV(4687)+JVS(47409)& - &*UV(5252)+JVS(49680)*UV(5253)+JVS(52661)*UV(5255)+JVS(54263)*UV(5256) - JTUV(4688) = JVS(8089)*UV(1949)+JVS(14550)*UV(3252)+JVS(26862)*UV(4688)+JVS(29847)*UV(4931)+JVS(30366)*UV(4961)& - &+JVS(47410)*UV(5252)+JVS(49681)*UV(5253)+JVS(52662)*UV(5255)+JVS(54264)*UV(5256) - JTUV(4689) = JVS(8452)*UV(2025)+JVS(14633)*UV(3269)+JVS(26872)*UV(4689)+JVS(29662)*UV(4918)+JVS(31137)*UV(5009)& - &+JVS(47411)*UV(5252)+JVS(49682)*UV(5253)+JVS(52663)*UV(5255)+JVS(54265)*UV(5256) - JTUV(4690) = JVS(14074)*UV(3163)+JVS(20096)*UV(4006)+JVS(26883)*UV(4690)+JVS(49683)*UV(5253)+JVS(54994)*UV(5258) - JTUV(4691) = JVS(26)*UV(3)+JVS(16917)*UV(3617)+JVS(26890)*UV(4691)+JVS(31738)*UV(5046)+JVS(40559)*UV(5248)+JVS(46096)& - &*UV(5251)+JVS(47413)*UV(5252)+JVS(49684)*UV(5253)+JVS(50237)*UV(5254)+JVS(54267)*UV(5256) - JTUV(4692) = JVS(3760)*UV(941)+JVS(5616)*UV(1403)+JVS(10931)*UV(2569)+JVS(26900)*UV(4692)+JVS(29295)*UV(4893)& - &+JVS(44499)*UV(5250)+JVS(47414)*UV(5252)+JVS(49685)*UV(5253)+JVS(52665)*UV(5255)+JVS(54268)*UV(5256)& - &+JVS(54995)*UV(5258) - JTUV(4693) = JVS(26972)*UV(4693)+JVS(40204)*UV(5244)+JVS(44500)*UV(5250)+JVS(52666)*UV(5255) - JTUV(4694) = JVS(18127)*UV(3765)+JVS(26973)*UV(4693)+JVS(27004)*UV(4694)+JVS(40205)*UV(5244)+JVS(44501)*UV(5250)& - &+JVS(46098)*UV(5251)+JVS(52667)*UV(5255) - JTUV(4695) = JVS(4740)*UV(1185)+JVS(12105)*UV(2795)+JVS(13430)*UV(3044)+JVS(16172)*UV(3520)+JVS(27012)*UV(4695)& - &+JVS(36990)*UV(5210)+JVS(47415)*UV(5252)+JVS(49686)*UV(5253)+JVS(52668)*UV(5255)+JVS(54269)*UV(5256) - JTUV(4696) = JVS(671)*UV(165)+JVS(1419)*UV(349)+JVS(7138)*UV(1751)+JVS(9580)*UV(2277)+JVS(18798)*UV(3851)+JVS(27020)& - &*UV(4696)+JVS(47416)*UV(5252)+JVS(49687)*UV(5253)+JVS(52669)*UV(5255)+JVS(54270)*UV(5256) - JTUV(4697) = JVS(2610)*UV(664)+JVS(4764)*UV(1191)+JVS(6464)*UV(1607)+JVS(9233)*UV(2197)+JVS(27028)*UV(4697)+JVS(47417)& - &*UV(5252)+JVS(49688)*UV(5253)+JVS(52670)*UV(5255)+JVS(54271)*UV(5256) - JTUV(4698) = JVS(2463)*UV(630)+JVS(6351)*UV(1582)+JVS(14300)*UV(3207)+JVS(19140)*UV(3892)+JVS(27037)*UV(4698)& - &+JVS(47418)*UV(5252)+JVS(49689)*UV(5253)+JVS(52671)*UV(5255)+JVS(54272)*UV(5256) - JTUV(4699) = JVS(2682)*UV(681)+JVS(4668)*UV(1167)+JVS(14996)*UV(3339)+JVS(15000)*UV(3340)+JVS(16811)*UV(3605)& - &+JVS(27044)*UV(4699)+JVS(47419)*UV(5252)+JVS(49690)*UV(5253)+JVS(52672)*UV(5255)+JVS(54273)*UV(5256) - JTUV(4700) = JVS(8667)*UV(2069)+JVS(14141)*UV(3175)+JVS(15671)*UV(3432)+JVS(19099)*UV(3887)+JVS(27052)*UV(4700)& - &+JVS(47420)*UV(5252)+JVS(49691)*UV(5253)+JVS(52673)*UV(5255)+JVS(54274)*UV(5256) - JTUV(4701) = JVS(2690)*UV(683)+JVS(6047)*UV(1510)+JVS(15118)*UV(3356)+JVS(15122)*UV(3357)+JVS(16666)*UV(3588)& - &+JVS(27059)*UV(4701)+JVS(47421)*UV(5252)+JVS(49692)*UV(5253)+JVS(52674)*UV(5255)+JVS(54275)*UV(5256) - JTUV(4702) = JVS(8044)*UV(1940)+JVS(8659)*UV(2067)+JVS(15264)*UV(3376)+JVS(18715)*UV(3842)+JVS(27068)*UV(4702)& - &+JVS(47422)*UV(5252)+JVS(49693)*UV(5253)+JVS(52675)*UV(5255)+JVS(54276)*UV(5256) - JTUV(4703) = JVS(2240)*UV(576)+JVS(4366)*UV(1092)+JVS(16491)*UV(3565)+JVS(25280)*UV(4534)+JVS(27074)*UV(4703)& - &+JVS(47423)*UV(5252)+JVS(49694)*UV(5253)+JVS(52676)*UV(5255)+JVS(54277)*UV(5256) - JTUV(4704) = JVS(2555)*UV(651)+JVS(5295)*UV(1323)+JVS(9479)*UV(2253)+JVS(13099)*UV(2982)+JVS(18258)*UV(3780)& - &+JVS(27080)*UV(4704)+JVS(47424)*UV(5252)+JVS(49695)*UV(5253)+JVS(52677)*UV(5255)+JVS(54278)*UV(5256) - JTUV(4705) = JVS(8707)*UV(2077)+JVS(15310)*UV(3383)+JVS(16309)*UV(3540)+JVS(27087)*UV(4705)+JVS(31927)*UV(5055)& - &+JVS(39718)*UV(5242)+JVS(47425)*UV(5252)+JVS(49696)*UV(5253)+JVS(52678)*UV(5255)+JVS(54279)*UV(5256) - JTUV(4706) = JVS(7014)*UV(1726)+JVS(13708)*UV(3094)+JVS(15780)*UV(3455)+JVS(23071)*UV(4325)+JVS(27094)*UV(4706)& - &+JVS(47426)*UV(5252)+JVS(49697)*UV(5253)+JVS(52679)*UV(5255)+JVS(54280)*UV(5256) - JTUV(4707) = JVS(3042)*UV(764)+JVS(4194)*UV(1049)+JVS(14149)*UV(3176)+JVS(14153)*UV(3177)+JVS(16551)*UV(3573)& - &+JVS(27101)*UV(4707)+JVS(47427)*UV(5252)+JVS(49698)*UV(5253)+JVS(52680)*UV(5255)+JVS(54281)*UV(5256) - JTUV(4708) = JVS(27117)*UV(4708)+JVS(31606)*UV(5038)+JVS(39097)*UV(5233)+JVS(44515)*UV(5250)+JVS(46110)*UV(5251)& - &+JVS(52681)*UV(5255) - JTUV(4709) = JVS(3036)*UV(762)+JVS(6179)*UV(1543)+JVS(9552)*UV(2271)+JVS(10895)*UV(2562)+JVS(16375)*UV(3548)& - &+JVS(27129)*UV(4709)+JVS(47428)*UV(5252)+JVS(49699)*UV(5253)+JVS(52682)*UV(5255)+JVS(54282)*UV(5256) - JTUV(4710) = JVS(27146)*UV(4710)+JVS(28782)*UV(4850)+JVS(30077)*UV(4942)+JVS(36527)*UV(5201)+JVS(44517)*UV(5250)& - &+JVS(46112)*UV(5251)+JVS(52683)*UV(5255)+JVS(54283)*UV(5256) - JTUV(4711) = JVS(8117)*UV(1955)+JVS(14276)*UV(3201)+JVS(16381)*UV(3549)+JVS(27154)*UV(4711)+JVS(47429)*UV(5252)& - &+JVS(49700)*UV(5253)+JVS(52684)*UV(5255)+JVS(54284)*UV(5256) - JTUV(4712) = JVS(2639)*UV(671)+JVS(3864)*UV(967)+JVS(9446)*UV(2245)+JVS(11069)*UV(2594)+JVS(16346)*UV(3544)+JVS(27161)& - &*UV(4712)+JVS(47430)*UV(5252)+JVS(49701)*UV(5253)+JVS(52685)*UV(5255)+JVS(54285)*UV(5256) - JTUV(4713) = JVS(2402)*UV(616)+JVS(5788)*UV(1446)+JVS(8913)*UV(2124)+JVS(11308)*UV(2642)+JVS(16186)*UV(3522)& - &+JVS(27168)*UV(4713)+JVS(47431)*UV(5252)+JVS(49702)*UV(5253)+JVS(52686)*UV(5255)+JVS(54286)*UV(5256) - JTUV(4714) = JVS(9675)*UV(2297)+JVS(10185)*UV(2413)+JVS(15570)*UV(3418)+JVS(19678)*UV(3956)+JVS(27177)*UV(4714)& - &+JVS(47432)*UV(5252)+JVS(49703)*UV(5253)+JVS(52687)*UV(5255)+JVS(54287)*UV(5256) - JTUV(4715) = JVS(3210)*UV(804)+JVS(6111)*UV(1526)+JVS(9826)*UV(2330)+JVS(11281)*UV(2638)+JVS(15991)*UV(3493)& - &+JVS(27184)*UV(4715)+JVS(47433)*UV(5252)+JVS(49704)*UV(5253)+JVS(52688)*UV(5255)+JVS(54288)*UV(5256) - JTUV(4716) = JVS(3219)*UV(807)+JVS(4544)*UV(1136)+JVS(9178)*UV(2185)+JVS(13252)*UV(3009)+JVS(16062)*UV(3504)& - &+JVS(27191)*UV(4716)+JVS(47434)*UV(5252)+JVS(49705)*UV(5253)+JVS(52689)*UV(5255)+JVS(54289)*UV(5256) - JTUV(4717) = JVS(22998)*UV(4318)+JVS(26224)*UV(4627)+JVS(27201)*UV(4717)+JVS(33277)*UV(5125)+JVS(36528)*UV(5201)& - &+JVS(39356)*UV(5235)+JVS(44524)*UV(5250)+JVS(46119)*UV(5251)+JVS(52690)*UV(5255)+JVS(54290)*UV(5256) - JTUV(4718) = JVS(3105)*UV(779)+JVS(5664)*UV(1415)+JVS(15134)*UV(3359)+JVS(15138)*UV(3360)+JVS(16886)*UV(3614)& - &+JVS(27208)*UV(4718)+JVS(47436)*UV(5252)+JVS(49707)*UV(5253)+JVS(52691)*UV(5255)+JVS(54291)*UV(5256) - JTUV(4719) = JVS(8867)*UV(2114)+JVS(9887)*UV(2344)+JVS(15103)*UV(3354)+JVS(19236)*UV(3904)+JVS(27218)*UV(4719)& - &+JVS(47437)*UV(5252)+JVS(49708)*UV(5253)+JVS(52692)*UV(5255)+JVS(54292)*UV(5256) - JTUV(4720) = JVS(3146)*UV(788)+JVS(4060)*UV(1016)+JVS(14723)*UV(3285)+JVS(15556)*UV(3416)+JVS(16573)*UV(3576)& - &+JVS(27225)*UV(4720)+JVS(47438)*UV(5252)+JVS(49709)*UV(5253)+JVS(52693)*UV(5255)+JVS(54293)*UV(5256) - JTUV(4721) = JVS(27253)*UV(4721)+JVS(28425)*UV(4822)+JVS(28445)*UV(4823)+JVS(36529)*UV(5201)+JVS(44528)*UV(5250)& - &+JVS(46122)*UV(5251)+JVS(52694)*UV(5255)+JVS(54294)*UV(5256) - JTUV(4722) = JVS(3575)*UV(895)+JVS(5307)*UV(1326)+JVS(9957)*UV(2361)+JVS(14320)*UV(3212)+JVS(27265)*UV(4722)& - &+JVS(47439)*UV(5252)+JVS(49710)*UV(5253)+JVS(52695)*UV(5255)+JVS(54295)*UV(5256) - JTUV(4723) = JVS(9980)*UV(2366)+JVS(14057)*UV(3159)+JVS(15165)*UV(3364)+JVS(19793)*UV(3970)+JVS(27273)*UV(4723)& - &+JVS(47440)*UV(5252)+JVS(49711)*UV(5253)+JVS(52696)*UV(5255)+JVS(54296)*UV(5256) - JTUV(4724) = JVS(2492)*UV(637)+JVS(7940)*UV(1916)+JVS(8719)*UV(2080)+JVS(23316)*UV(4352)+JVS(27283)*UV(4724)& - &+JVS(47441)*UV(5252)+JVS(49712)*UV(5253)+JVS(52697)*UV(5255)+JVS(54297)*UV(5256) - JTUV(4725) = JVS(2947)*UV(742)+JVS(4148)*UV(1038)+JVS(14888)*UV(3322)+JVS(15518)*UV(3411)+JVS(16854)*UV(3610)& - &+JVS(27290)*UV(4725)+JVS(47442)*UV(5252)+JVS(49713)*UV(5253)+JVS(52698)*UV(5255)+JVS(54298)*UV(5256) - JTUV(4726) = JVS(5824)*UV(1455)+JVS(15483)*UV(3406)+JVS(27302)*UV(4726)+JVS(47443)*UV(5252)+JVS(49714)*UV(5253)& - &+JVS(52699)*UV(5255)+JVS(54299)*UV(5256) - JTUV(4727) = JVS(3237)*UV(811)+JVS(4644)*UV(1161)+JVS(14650)*UV(3271)+JVS(15039)*UV(3345)+JVS(16528)*UV(3570)& - &+JVS(27309)*UV(4727)+JVS(47444)*UV(5252)+JVS(49715)*UV(5253)+JVS(52700)*UV(5255)+JVS(54300)*UV(5256) - JTUV(4728) = JVS(27324)*UV(4728)+JVS(30449)*UV(4966)+JVS(33675)*UV(5139)+JVS(35292)*UV(5183)+JVS(39099)*UV(5233)& - &+JVS(44535)*UV(5250)+JVS(46126)*UV(5251)+JVS(52701)*UV(5255) - JTUV(4729) = JVS(26816)*UV(4684)+JVS(27352)*UV(4729)+JVS(30996)*UV(5001)+JVS(36530)*UV(5201)+JVS(44536)*UV(5250)& - &+JVS(46127)*UV(5251)+JVS(52702)*UV(5255)+JVS(54301)*UV(5256) - JTUV(4730) = JVS(2614)*UV(665)+JVS(13453)*UV(3049)+JVS(17445)*UV(3682)+JVS(22199)*UV(4239)+JVS(27360)*UV(4730)& - &+JVS(47446)*UV(5252)+JVS(49717)*UV(5253)+JVS(52703)*UV(5255)+JVS(54302)*UV(5256) - JTUV(4731) = JVS(8727)*UV(2082)+JVS(11598)*UV(2700)+JVS(21543)*UV(4175)+JVS(27369)*UV(4731)+JVS(40218)*UV(5244)& - &+JVS(44538)*UV(5250)+JVS(47447)*UV(5252)+JVS(49718)*UV(5253)+JVS(52704)*UV(5255)+JVS(54303)*UV(5256) - JTUV(4732) = JVS(6637)*UV(1644)+JVS(8859)*UV(2112)+JVS(15802)*UV(3459)+JVS(15931)*UV(3483)+JVS(27375)*UV(4732)& - &+JVS(47448)*UV(5252)+JVS(49719)*UV(5253)+JVS(52705)*UV(5255)+JVS(54304)*UV(5256) - JTUV(4733) = JVS(887)*UV(202)+JVS(1038)*UV(242)+JVS(8171)*UV(1966)+JVS(9102)*UV(2168)+JVS(18999)*UV(3875)+JVS(27383)& - &*UV(4733)+JVS(47449)*UV(5252)+JVS(49720)*UV(5253)+JVS(52706)*UV(5255)+JVS(54305)*UV(5256) - JTUV(4734) = JVS(458)*UV(118)+JVS(3856)*UV(965)+JVS(6526)*UV(1620)+JVS(27393)*UV(4734)+JVS(47450)*UV(5252)+JVS(49721)& - &*UV(5253)+JVS(52707)*UV(5255)+JVS(54306)*UV(5256) - JTUV(4735) = JVS(2294)*UV(590)+JVS(4816)*UV(1204)+JVS(9548)*UV(2270)+JVS(11038)*UV(2589)+JVS(18078)*UV(3759)& - &+JVS(27399)*UV(4735)+JVS(47451)*UV(5252)+JVS(49722)*UV(5253)+JVS(52708)*UV(5255)+JVS(54307)*UV(5256) - JTUV(4736) = JVS(19579)*UV(3944)+JVS(27410)*UV(4736)+JVS(29162)*UV(4880)+JVS(32902)*UV(5106)+JVS(33799)*UV(5142)& - &+JVS(33930)*UV(5145)+JVS(35294)*UV(5183)+JVS(44543)*UV(5250) - JTUV(4737) = JVS(27421)*UV(4737)+JVS(31105)*UV(5007)+JVS(31122)*UV(5008)+JVS(31402)*UV(5026)+JVS(36535)*UV(5201)& - &+JVS(44544)*UV(5250)+JVS(46134)*UV(5251)+JVS(52710)*UV(5255)+JVS(54309)*UV(5256) - JTUV(4738) = JVS(1975)*UV(507)+JVS(5820)*UV(1454)+JVS(12039)*UV(2781)+JVS(20412)*UV(4043)+JVS(27432)*UV(4738)& - &+JVS(44545)*UV(5250)+JVS(47453)*UV(5252)+JVS(49724)*UV(5253)+JVS(52711)*UV(5255)+JVS(54310)*UV(5256)& - &+JVS(54997)*UV(5258) - JTUV(4739) = JVS(5983)*UV(1494)+JVS(8188)*UV(1970)+JVS(12670)*UV(2907)+JVS(27444)*UV(4739)+JVS(37762)*UV(5225)& - &+JVS(44546)*UV(5250)+JVS(47454)*UV(5252)+JVS(49725)*UV(5253)+JVS(52712)*UV(5255)+JVS(54311)*UV(5256)& - &+JVS(54998)*UV(5258) - JTUV(4740) = JVS(4342)*UV(1086)+JVS(7210)*UV(1765)+JVS(8584)*UV(2051)+JVS(27458)*UV(4740)+JVS(30160)*UV(4947)& - &+JVS(44547)*UV(5250)+JVS(47455)*UV(5252)+JVS(49726)*UV(5253)+JVS(52713)*UV(5255)+JVS(54312)*UV(5256)& - &+JVS(54999)*UV(5258) - JTUV(4741) = JVS(27)*UV(3)+JVS(27470)*UV(4741)+JVS(29977)*UV(4938)+JVS(31739)*UV(5046)+JVS(46137)*UV(5251)+JVS(47456)& - &*UV(5252)+JVS(49727)*UV(5253)+JVS(50238)*UV(5254)+JVS(54313)*UV(5256) - JTUV(4742) = JVS(10258)*UV(2430)+JVS(11976)*UV(2769)+JVS(27483)*UV(4742)+JVS(47457)*UV(5252)+JVS(49728)*UV(5253)& - &+JVS(52714)*UV(5255)+JVS(54314)*UV(5256) - JTUV(4743) = JVS(10121)*UV(2398)+JVS(18528)*UV(3816)+JVS(27497)*UV(4743)+JVS(39101)*UV(5233)+JVS(52715)*UV(5255) - JTUV(4744) = JVS(8456)*UV(2026)+JVS(13513)*UV(3061)+JVS(25969)*UV(4602)+JVS(27505)*UV(4744)+JVS(32904)*UV(5106)& - &+JVS(44550)*UV(5250)+JVS(47459)*UV(5252)+JVS(49730)*UV(5253)+JVS(52716)*UV(5255)+JVS(54316)*UV(5256) - JTUV(4745) = JVS(3716)*UV(930)+JVS(16483)*UV(3564)+JVS(27515)*UV(4745)+JVS(47460)*UV(5252)+JVS(49731)*UV(5253)& - &+JVS(52717)*UV(5255)+JVS(54317)*UV(5256) - JTUV(4746) = JVS(6489)*UV(1612)+JVS(8946)*UV(2132)+JVS(9111)*UV(2170)+JVS(13425)*UV(3043)+JVS(27525)*UV(4746)& - &+JVS(47461)*UV(5252)+JVS(49732)*UV(5253)+JVS(52718)*UV(5255)+JVS(54318)*UV(5256) - JTUV(4747) = JVS(27536)*UV(4747)+JVS(37683)*UV(5223)+JVS(44553)*UV(5250)+JVS(46142)*UV(5251)+JVS(52719)*UV(5255) - JTUV(4748) = JVS(420)*UV(108)+JVS(934)*UV(211)+JVS(5327)*UV(1331)+JVS(9224)*UV(2195)+JVS(27559)*UV(4748)+JVS(47462)& - &*UV(5252)+JVS(49733)*UV(5253)+JVS(52720)*UV(5255)+JVS(54319)*UV(5256) - JTUV(4749) = JVS(21129)*UV(4125)+JVS(23591)*UV(4383)+JVS(27574)*UV(4749)+JVS(37546)*UV(5222)+JVS(38552)*UV(5231)& - &+JVS(44555)*UV(5250)+JVS(46143)*UV(5251)+JVS(52721)*UV(5255) - JTUV(4750) = JVS(4860)*UV(1215)+JVS(12227)*UV(2820)+JVS(27584)*UV(4750)+JVS(47463)*UV(5252)+JVS(49734)*UV(5253)& - &+JVS(52722)*UV(5255)+JVS(54320)*UV(5256) - JTUV(4751) = JVS(5572)*UV(1392)+JVS(13574)*UV(3071)+JVS(27594)*UV(4751)+JVS(47464)*UV(5252)+JVS(49735)*UV(5253)& - &+JVS(52723)*UV(5255)+JVS(54321)*UV(5256) - JTUV(4752) = JVS(1508)*UV(375)+JVS(4028)*UV(1008)+JVS(11994)*UV(2772)+JVS(20210)*UV(4019)+JVS(27609)*UV(4752)& - &+JVS(44558)*UV(5250)+JVS(47465)*UV(5252)+JVS(49736)*UV(5253)+JVS(52724)*UV(5255)+JVS(54322)*UV(5256)& - &+JVS(55000)*UV(5258) - JTUV(4753) = JVS(4888)*UV(1222)+JVS(9169)*UV(2183)+JVS(12788)*UV(2928)+JVS(27621)*UV(4753)+JVS(37342)*UV(5221)& - &+JVS(44559)*UV(5250)+JVS(47466)*UV(5252)+JVS(49737)*UV(5253)+JVS(52725)*UV(5255)+JVS(54323)*UV(5256)& - &+JVS(55001)*UV(5258) - JTUV(4754) = JVS(3065)*UV(770)+JVS(6486)*UV(1611)+JVS(7561)*UV(1834)+JVS(10434)*UV(2469)+JVS(27630)*UV(4754)& - &+JVS(47467)*UV(5252)+JVS(49738)*UV(5253)+JVS(52726)*UV(5255)+JVS(54324)*UV(5256) - JTUV(4755) = JVS(6896)*UV(1701)+JVS(6964)*UV(1715)+JVS(9413)*UV(2237)+JVS(9865)*UV(2339)+JVS(27644)*UV(4755)& - &+JVS(36837)*UV(5203)+JVS(47468)*UV(5252)+JVS(49739)*UV(5253)+JVS(52727)*UV(5255)+JVS(54325)*UV(5256) - JTUV(4756) = JVS(2708)*UV(688)+JVS(7095)*UV(1742)+JVS(7332)*UV(1791)+JVS(12310)*UV(2836)+JVS(27653)*UV(4756)& - &+JVS(47469)*UV(5252)+JVS(49740)*UV(5253)+JVS(52728)*UV(5255)+JVS(54326)*UV(5256) - JTUV(4757) = JVS(28)*UV(3)+JVS(16144)*UV(3516)+JVS(27663)*UV(4757)+JVS(31740)*UV(5046)+JVS(46149)*UV(5251)+JVS(47470)& - &*UV(5252)+JVS(49741)*UV(5253)+JVS(50239)*UV(5254)+JVS(54327)*UV(5256) - JTUV(4758) = JVS(5387)*UV(1346)+JVS(15829)*UV(3464)+JVS(17635)*UV(3707)+JVS(27671)*UV(4758)+JVS(44564)*UV(5250)& - &+JVS(46150)*UV(5251)+JVS(47471)*UV(5252)+JVS(49742)*UV(5253)+JVS(52729)*UV(5255)+JVS(54328)*UV(5256) - JTUV(4759) = JVS(4338)*UV(1085)+JVS(10632)*UV(2510)+JVS(27682)*UV(4759)+JVS(29121)*UV(4875)+JVS(44565)*UV(5250)& - &+JVS(47472)*UV(5252)+JVS(49743)*UV(5253)+JVS(52730)*UV(5255)+JVS(54329)*UV(5256) - JTUV(4760) = JVS(5163)*UV(1290)+JVS(12336)*UV(2841)+JVS(27704)*UV(4760)+JVS(34579)*UV(5163)+JVS(44566)*UV(5250)& - &+JVS(47473)*UV(5252)+JVS(49744)*UV(5253)+JVS(52731)*UV(5255)+JVS(54330)*UV(5256) - JTUV(4761) = JVS(2276)*UV(585)+JVS(6831)*UV(1687)+JVS(7694)*UV(1863)+JVS(9754)*UV(2315)+JVS(27713)*UV(4761)+JVS(47474)& - &*UV(5252)+JVS(49745)*UV(5253)+JVS(52732)*UV(5255)+JVS(54331)*UV(5256) - JTUV(4762) = JVS(1175)*UV(281)+JVS(2769)*UV(703)+JVS(7602)*UV(1843)+JVS(10296)*UV(2439)+JVS(27722)*UV(4762)+JVS(47475)& - &*UV(5252)+JVS(49746)*UV(5253)+JVS(52733)*UV(5255)+JVS(54332)*UV(5256) - JTUV(4763) = JVS(13156)*UV(2992)+JVS(13160)*UV(2993)+JVS(27735)*UV(4763)+JVS(30958)*UV(5000)+JVS(47476)*UV(5252)& - &+JVS(49747)*UV(5253)+JVS(52734)*UV(5255)+JVS(54333)*UV(5256) - JTUV(4764) = JVS(247)*UV(59)+JVS(1300)*UV(315)+JVS(4982)*UV(1245)+JVS(10165)*UV(2408)+JVS(27750)*UV(4764)+JVS(47477)& - &*UV(5252)+JVS(49748)*UV(5253)+JVS(52735)*UV(5255)+JVS(54334)*UV(5256) - JTUV(4765) = JVS(7262)*UV(1777)+JVS(9183)*UV(2186)+JVS(13484)*UV(3055)+JVS(15356)*UV(3389)+JVS(27760)*UV(4765)& - &+JVS(47478)*UV(5252)+JVS(49749)*UV(5253)+JVS(52736)*UV(5255)+JVS(54335)*UV(5256) - JTUV(4766) = JVS(645)*UV(161)+JVS(1432)*UV(353)+JVS(5071)*UV(1267)+JVS(7951)*UV(1919)+JVS(13841)*UV(3118)+JVS(27768)& - &*UV(4766)+JVS(47479)*UV(5252)+JVS(49750)*UV(5253)+JVS(52737)*UV(5255)+JVS(54336)*UV(5256) - JTUV(4767) = JVS(4137)*UV(1035)+JVS(8654)*UV(2066)+JVS(9676)*UV(2297)+JVS(14610)*UV(3265)+JVS(17864)*UV(3735)& - &+JVS(27779)*UV(4767)+JVS(47480)*UV(5252)+JVS(49751)*UV(5253)+JVS(52738)*UV(5255)+JVS(54337)*UV(5256) - JTUV(4768) = JVS(3137)*UV(786)+JVS(7865)*UV(1901)+JVS(27797)*UV(4768)+JVS(47481)*UV(5252)+JVS(49752)*UV(5253)& - &+JVS(52739)*UV(5255)+JVS(54338)*UV(5256) - JTUV(4769) = JVS(15575)*UV(3419)+JVS(15721)*UV(3441)+JVS(27815)*UV(4769)+JVS(47482)*UV(5252)+JVS(49753)*UV(5253)& - &+JVS(52740)*UV(5255)+JVS(54339)*UV(5256) - JTUV(4770) = JVS(1948)*UV(499)+JVS(5844)*UV(1460)+JVS(14860)*UV(3315)+JVS(27825)*UV(4770)+JVS(28881)*UV(4857)& - &+JVS(44576)*UV(5250)+JVS(47483)*UV(5252)+JVS(49754)*UV(5253)+JVS(52741)*UV(5255)+JVS(54340)*UV(5256)& - &+JVS(55002)*UV(5258) - JTUV(4771) = JVS(1212)*UV(291)+JVS(3306)*UV(828)+JVS(14848)*UV(3312)+JVS(27835)*UV(4771)+JVS(32300)*UV(5078)& - &+JVS(44577)*UV(5250)+JVS(47484)*UV(5252)+JVS(49755)*UV(5253)+JVS(52742)*UV(5255)+JVS(54341)*UV(5256)& - &+JVS(55003)*UV(5258) - JTUV(4772) = JVS(10990)*UV(2580)+JVS(11266)*UV(2635)+JVS(12484)*UV(2870)+JVS(23317)*UV(4352)+JVS(27846)*UV(4772)& - &+JVS(44578)*UV(5250)+JVS(47485)*UV(5252)+JVS(49756)*UV(5253)+JVS(52743)*UV(5255)+JVS(54342)*UV(5256)& - &+JVS(55004)*UV(5258) - JTUV(4773) = JVS(12280)*UV(2830)+JVS(15879)*UV(3475)+JVS(16619)*UV(3582)+JVS(27858)*UV(4773)+JVS(44579)*UV(5250)& - &+JVS(47486)*UV(5252)+JVS(49757)*UV(5253)+JVS(52744)*UV(5255)+JVS(54343)*UV(5256) - JTUV(4774) = JVS(2569)*UV(654)+JVS(10571)*UV(2497)+JVS(15958)*UV(3488)+JVS(27867)*UV(4774)+JVS(32586)*UV(5093)& - &+JVS(47487)*UV(5252)+JVS(49758)*UV(5253)+JVS(52745)*UV(5255)+JVS(54344)*UV(5256) - JTUV(4775) = JVS(22138)*UV(4233)+JVS(24895)*UV(4502)+JVS(27882)*UV(4775)+JVS(31608)*UV(5038)+JVS(33279)*UV(5125)& - &+JVS(36537)*UV(5201)+JVS(39103)*UV(5233)+JVS(44581)*UV(5250)+JVS(46161)*UV(5251)+JVS(52746)*UV(5255)& - &+JVS(54345)*UV(5256) - JTUV(4776) = JVS(29)*UV(3)+JVS(1932)*UV(494)+JVS(27890)*UV(4776)+JVS(31356)*UV(5023)+JVS(31741)*UV(5046)+JVS(46162)& - &*UV(5251)+JVS(47489)*UV(5252)+JVS(49760)*UV(5253)+JVS(50240)*UV(5254)+JVS(54346)*UV(5256) - JTUV(4777) = JVS(9993)*UV(2369)+JVS(13769)*UV(3106)+JVS(16702)*UV(3592)+JVS(21033)*UV(4114)+JVS(27899)*UV(4777)& - &+JVS(47490)*UV(5252)+JVS(49761)*UV(5253)+JVS(52748)*UV(5255)+JVS(54347)*UV(5256) - JTUV(4778) = JVS(1188)*UV(285)+JVS(5932)*UV(1482)+JVS(7269)*UV(1779)+JVS(13618)*UV(3079)+JVS(19534)*UV(3938)& - &+JVS(27907)*UV(4778)+JVS(47491)*UV(5252)+JVS(49762)*UV(5253)+JVS(52749)*UV(5255)+JVS(54348)*UV(5256) - JTUV(4779) = JVS(10500)*UV(2483)+JVS(15914)*UV(3480)+JVS(16894)*UV(3615)+JVS(27915)*UV(4779)+JVS(47492)*UV(5252)& - &+JVS(49763)*UV(5253)+JVS(52750)*UV(5255)+JVS(54349)*UV(5256) - JTUV(4780) = JVS(6762)*UV(1671)+JVS(8469)*UV(2029)+JVS(10293)*UV(2438)+JVS(16962)*UV(3623)+JVS(27924)*UV(4780)& - &+JVS(47493)*UV(5252)+JVS(49764)*UV(5253)+JVS(52751)*UV(5255)+JVS(54350)*UV(5256) - JTUV(4781) = JVS(5275)*UV(1318)+JVS(15363)*UV(3390)+JVS(27931)*UV(4781)+JVS(47494)*UV(5252)+JVS(49765)*UV(5253)& - &+JVS(52752)*UV(5255)+JVS(54351)*UV(5256) - JTUV(4782) = JVS(10330)*UV(2447)+JVS(10339)*UV(2449)+JVS(15504)*UV(3409)+JVS(19400)*UV(3922)+JVS(27941)*UV(4782)& - &+JVS(47495)*UV(5252)+JVS(49766)*UV(5253)+JVS(52753)*UV(5255)+JVS(54352)*UV(5256) - JTUV(4783) = JVS(7711)*UV(1866)+JVS(15820)*UV(3462)+JVS(19460)*UV(3929)+JVS(19984)*UV(3993)+JVS(27947)*UV(4783)& - &+JVS(32602)*UV(5094)+JVS(47496)*UV(5252)+JVS(49767)*UV(5253)+JVS(52754)*UV(5255)+JVS(54353)*UV(5256) - JTUV(4784) = JVS(7759)*UV(1876)+JVS(7881)*UV(1904)+JVS(15186)*UV(3367)+JVS(16234)*UV(3530)+JVS(22814)*UV(4300)& - &+JVS(27955)*UV(4784)+JVS(47497)*UV(5252)+JVS(49768)*UV(5253)+JVS(52755)*UV(5255)+JVS(54354)*UV(5256) - JTUV(4785) = JVS(1942)*UV(497)+JVS(2061)*UV(532)+JVS(6131)*UV(1531)+JVS(11558)*UV(2693)+JVS(19512)*UV(3935)+JVS(27963)& - &*UV(4785)+JVS(47498)*UV(5252)+JVS(49769)*UV(5253)+JVS(52756)*UV(5255)+JVS(54355)*UV(5256) - JTUV(4786) = JVS(3152)*UV(790)+JVS(14236)*UV(3194)+JVS(15910)*UV(3479)+JVS(27969)*UV(4786)+JVS(31328)*UV(5022)& - &+JVS(37763)*UV(5225)+JVS(38564)*UV(5231)+JVS(44592)*UV(5250)+JVS(49770)*UV(5253)+JVS(55006)*UV(5258) - JTUV(4787) = JVS(2986)*UV(750)+JVS(9944)*UV(2358)+JVS(23778)*UV(4401)+JVS(27977)*UV(4787)+JVS(28985)*UV(4865)& - &+JVS(47500)*UV(5252)+JVS(49771)*UV(5253)+JVS(52758)*UV(5255)+JVS(54357)*UV(5256) - JTUV(4788) = JVS(13954)*UV(3137)+JVS(20420)*UV(4044)+JVS(27988)*UV(4788)+JVS(49772)*UV(5253)+JVS(55007)*UV(5258) - JTUV(4789) = JVS(1692)*UV(427)+JVS(5974)*UV(1492)+JVS(8017)*UV(1933)+JVS(11718)*UV(2722)+JVS(19607)*UV(3947)& - &+JVS(28000)*UV(4789)+JVS(47502)*UV(5252)+JVS(49773)*UV(5253)+JVS(52760)*UV(5255)+JVS(54359)*UV(5256) - JTUV(4790) = JVS(14157)*UV(3178)+JVS(20226)*UV(4021)+JVS(28010)*UV(4790)+JVS(49774)*UV(5253)+JVS(55009)*UV(5258) - JTUV(4791) = JVS(14203)*UV(3187)+JVS(20034)*UV(3999)+JVS(28021)*UV(4791)+JVS(49775)*UV(5253)+JVS(55010)*UV(5258) - JTUV(4792) = JVS(13266)*UV(3012)+JVS(15840)*UV(3467)+JVS(28037)*UV(4792)+JVS(29664)*UV(4918)+JVS(44598)*UV(5250)& - &+JVS(46173)*UV(5251)+JVS(47505)*UV(5252)+JVS(49776)*UV(5253)+JVS(52763)*UV(5255)+JVS(54362)*UV(5256) - JTUV(4793) = JVS(17484)*UV(3687)+JVS(18322)*UV(3788)+JVS(28047)*UV(4793)+JVS(29693)*UV(4920)+JVS(44599)*UV(5250)& - &+JVS(46174)*UV(5251)+JVS(54363)*UV(5256)+JVS(55011)*UV(5258) - JTUV(4794) = JVS(2000)*UV(514)+JVS(15911)*UV(3479)+JVS(19878)*UV(3980)+JVS(20800)*UV(4087)+JVS(22362)*UV(4255)& - &+JVS(23192)*UV(4337)+JVS(28054)*UV(4794)+JVS(38565)*UV(5231)+JVS(39720)*UV(5242)+JVS(44600)*UV(5250)& - &+JVS(46175)*UV(5251)+JVS(52765)*UV(5255)+JVS(54364)*UV(5256)+JVS(55012)*UV(5258) - JTUV(4795) = JVS(15341)*UV(3387)+JVS(15445)*UV(3401)+JVS(16132)*UV(3515)+JVS(28061)*UV(4795)+JVS(39105)*UV(5233)& - &+JVS(44601)*UV(5250)+JVS(47508)*UV(5252)+JVS(49779)*UV(5253)+JVS(52766)*UV(5255)+JVS(54365)*UV(5256)& - &+JVS(55013)*UV(5258) - JTUV(4796) = JVS(28130)*UV(4796)+JVS(44602)*UV(5250)+JVS(46177)*UV(5251)+JVS(52767)*UV(5255) - JTUV(4797) = JVS(14169)*UV(3181)+JVS(20342)*UV(4036)+JVS(28154)*UV(4797)+JVS(49780)*UV(5253)+JVS(55014)*UV(5258) - JTUV(4798) = JVS(13670)*UV(3088)+JVS(20234)*UV(4022)+JVS(28167)*UV(4798)+JVS(49781)*UV(5253)+JVS(55015)*UV(5258) - JTUV(4799) = JVS(9598)*UV(2281)+JVS(20456)*UV(4047)+JVS(28180)*UV(4799)+JVS(37554)*UV(5222)+JVS(52770)*UV(5255) - JTUV(4800) = JVS(14783)*UV(3298)+JVS(28187)*UV(4800)+JVS(28227)*UV(4802)+JVS(33065)*UV(5116)+JVS(40237)*UV(5244)& - &+JVS(44606)*UV(5250)+JVS(52771)*UV(5255) - JTUV(4801) = JVS(28211)*UV(4801)+JVS(31172)*UV(5011)+JVS(39620)*UV(5241)+JVS(40238)*UV(5244)+JVS(44607)*UV(5250) - JTUV(4802) = JVS(6591)*UV(1633)+JVS(13092)*UV(2981)+JVS(13198)*UV(2999)+JVS(13205)*UV(3000)+JVS(28228)*UV(4802)& - &+JVS(47513)*UV(5252)+JVS(49784)*UV(5253)+JVS(52772)*UV(5255)+JVS(54370)*UV(5256) - JTUV(4803) = JVS(3133)*UV(785)+JVS(4052)*UV(1014)+JVS(14606)*UV(3264)+JVS(15678)*UV(3433)+JVS(16637)*UV(3584)& - &+JVS(28235)*UV(4803)+JVS(47514)*UV(5252)+JVS(49785)*UV(5253)+JVS(52773)*UV(5255)+JVS(54371)*UV(5256) - JTUV(4804) = JVS(2630)*UV(669)+JVS(6532)*UV(1621)+JVS(8332)*UV(1999)+JVS(8465)*UV(2028)+JVS(28245)*UV(4804)+JVS(47515)& - &*UV(5252)+JVS(49786)*UV(5253)+JVS(52774)*UV(5255)+JVS(54372)*UV(5256) - JTUV(4805) = JVS(504)*UV(131)+JVS(17017)*UV(3630)+JVS(21589)*UV(4180)+JVS(22742)*UV(4294)+JVS(28251)*UV(4805)& - &+JVS(39106)*UV(5233)+JVS(40240)*UV(5244)+JVS(44611)*UV(5250)+JVS(55017)*UV(5258) - JTUV(4806) = JVS(5103)*UV(1275)+JVS(12469)*UV(2867)+JVS(19839)*UV(3976)+JVS(28263)*UV(4806)+JVS(44612)*UV(5250)& - &+JVS(47517)*UV(5252)+JVS(49788)*UV(5253)+JVS(52776)*UV(5255)+JVS(54374)*UV(5256) - JTUV(4807) = JVS(5864)*UV(1465)+JVS(6059)*UV(1513)+JVS(14579)*UV(3258)+JVS(28273)*UV(4807)+JVS(29894)*UV(4935)& - &+JVS(44613)*UV(5250)+JVS(47518)*UV(5252)+JVS(49789)*UV(5253)+JVS(52777)*UV(5255)+JVS(54375)*UV(5256)& - &+JVS(55018)*UV(5258) - JTUV(4808) = JVS(1194)*UV(287)+JVS(3570)*UV(894)+JVS(10846)*UV(2552)+JVS(25472)*UV(4550)+JVS(28283)*UV(4808)& - &+JVS(44614)*UV(5250)+JVS(47519)*UV(5252)+JVS(49790)*UV(5253)+JVS(52778)*UV(5255)+JVS(54376)*UV(5256)& - &+JVS(55019)*UV(5258) - JTUV(4809) = JVS(5203)*UV(1300)+JVS(14128)*UV(3173)+JVS(16749)*UV(3598)+JVS(20980)*UV(4108)+JVS(28293)*UV(4809)& - &+JVS(47520)*UV(5252)+JVS(49791)*UV(5253)+JVS(52779)*UV(5255)+JVS(54377)*UV(5256) - JTUV(4810) = JVS(14223)*UV(3191)+JVS(20326)*UV(4034)+JVS(28304)*UV(4810)+JVS(49792)*UV(5253)+JVS(55021)*UV(5258) - JTUV(4811) = JVS(2497)*UV(638)+JVS(6588)*UV(1632)+JVS(11221)*UV(2625)+JVS(12692)*UV(2910)+JVS(28315)*UV(4811)& - &+JVS(47522)*UV(5252)+JVS(49793)*UV(5253)+JVS(52781)*UV(5255)+JVS(54379)*UV(5256) - JTUV(4812) = JVS(4954)*UV(1238)+JVS(8974)*UV(2139)+JVS(12865)*UV(2941)+JVS(28328)*UV(4812)+JVS(31043)*UV(5004)& - &+JVS(38570)*UV(5231)+JVS(44618)*UV(5250)+JVS(47523)*UV(5252)+JVS(49794)*UV(5253)+JVS(52782)*UV(5255)& - &+JVS(54380)*UV(5256)+JVS(55022)*UV(5258) - JTUV(4813) = JVS(2290)*UV(589)+JVS(6324)*UV(1576)+JVS(8966)*UV(2137)+JVS(14272)*UV(3200)+JVS(28339)*UV(4813)& - &+JVS(47524)*UV(5252)+JVS(49795)*UV(5253)+JVS(52783)*UV(5255)+JVS(54381)*UV(5256) - JTUV(4814) = JVS(1165)*UV(278)+JVS(3046)*UV(765)+JVS(5604)*UV(1400)+JVS(13298)*UV(3018)+JVS(17225)*UV(3653)+JVS(28348)& - &*UV(4814)+JVS(47525)*UV(5252)+JVS(49796)*UV(5253)+JVS(52784)*UV(5255)+JVS(54382)*UV(5256) - JTUV(4815) = JVS(22076)*UV(4227)+JVS(24055)*UV(4424)+JVS(28361)*UV(4815)+JVS(31609)*UV(5038)+JVS(32905)*UV(5106)& - &+JVS(36555)*UV(5201)+JVS(39107)*UV(5233)+JVS(44621)*UV(5250)+JVS(46193)*UV(5251)+JVS(52785)*UV(5255)& - &+JVS(54383)*UV(5256) - JTUV(4816) = JVS(5736)*UV(1433)+JVS(14670)*UV(3276)+JVS(14896)*UV(3324)+JVS(28370)*UV(4816)+JVS(38571)*UV(5231)& - &+JVS(38860)*UV(5232)+JVS(44622)*UV(5250)+JVS(47527)*UV(5252)+JVS(49798)*UV(5253)+JVS(52786)*UV(5255)& - &+JVS(54384)*UV(5256)+JVS(55023)*UV(5258) - JTUV(4817) = JVS(2925)*UV(737)+JVS(6260)*UV(1562)+JVS(7387)*UV(1802)+JVS(10476)*UV(2478)+JVS(28381)*UV(4817)& - &+JVS(47528)*UV(5252)+JVS(49799)*UV(5253)+JVS(52787)*UV(5255)+JVS(54385)*UV(5256) - JTUV(4818) = JVS(3808)*UV(953)+JVS(4084)*UV(1022)+JVS(14755)*UV(3293)+JVS(28389)*UV(4818)+JVS(30354)*UV(4960)& - &+JVS(44624)*UV(5250)+JVS(47529)*UV(5252)+JVS(49800)*UV(5253)+JVS(52788)*UV(5255)+JVS(54386)*UV(5256)& - &+JVS(55024)*UV(5258) - JTUV(4819) = JVS(30)*UV(3)+JVS(13728)*UV(3099)+JVS(28397)*UV(4819)+JVS(31743)*UV(5046)+JVS(36030)*UV(5194)+JVS(46197)& - &*UV(5251)+JVS(47530)*UV(5252)+JVS(49801)*UV(5253)+JVS(50242)*UV(5254)+JVS(54387)*UV(5256) - JTUV(4820) = JVS(1952)*UV(500)+JVS(2737)*UV(695)+JVS(9688)*UV(2300)+JVS(11500)*UV(2680)+JVS(28408)*UV(4820)+JVS(47531)& - &*UV(5252)+JVS(49802)*UV(5253)+JVS(52790)*UV(5255)+JVS(54388)*UV(5256) - JTUV(4821) = JVS(2197)*UV(565)+JVS(3378)*UV(846)+JVS(15279)*UV(3378)+JVS(15283)*UV(3379)+JVS(16674)*UV(3589)& - &+JVS(28415)*UV(4821)+JVS(47532)*UV(5252)+JVS(49803)*UV(5253)+JVS(52791)*UV(5255)+JVS(54389)*UV(5256) - JTUV(4822) = JVS(4266)*UV(1067)+JVS(5427)*UV(1356)+JVS(11658)*UV(2712)+JVS(28427)*UV(4822)+JVS(28447)*UV(4823)& - &+JVS(44628)*UV(5250)+JVS(47533)*UV(5252)+JVS(49804)*UV(5253)+JVS(52792)*UV(5255)+JVS(54390)*UV(5256)& - &+JVS(55025)*UV(5258) - JTUV(4823) = JVS(10027)*UV(2376)+JVS(11150)*UV(2609)+JVS(25973)*UV(4602)+JVS(27119)*UV(4708)+JVS(28448)*UV(4823)& - &+JVS(47534)*UV(5252)+JVS(49805)*UV(5253)+JVS(52793)*UV(5255)+JVS(54391)*UV(5256) - JTUV(4824) = JVS(31)*UV(3)+JVS(9869)*UV(2340)+JVS(28457)*UV(4824)+JVS(31744)*UV(5046)+JVS(34871)*UV(5176)+JVS(46202)& - &*UV(5251)+JVS(47535)*UV(5252)+JVS(49806)*UV(5253)+JVS(50243)*UV(5254)+JVS(54392)*UV(5256) - JTUV(4825) = JVS(2754)*UV(699)+JVS(3522)*UV(882)+JVS(9736)*UV(2311)+JVS(15250)*UV(3374)+JVS(19687)*UV(3957)+JVS(28466)& - &*UV(4825)+JVS(47536)*UV(5252)+JVS(49807)*UV(5253)+JVS(52795)*UV(5255)+JVS(54393)*UV(5256) - JTUV(4826) = JVS(14316)*UV(3211)+JVS(14381)*UV(3224)+JVS(19494)*UV(3933)+JVS(28476)*UV(4826)+JVS(44632)*UV(5250)& - &+JVS(47537)*UV(5252)+JVS(49808)*UV(5253)+JVS(52796)*UV(5255)+JVS(54394)*UV(5256) - JTUV(4827) = JVS(6666)*UV(1650)+JVS(6911)*UV(1705)+JVS(12861)*UV(2940)+JVS(18050)*UV(3756)+JVS(28488)*UV(4827)& - &+JVS(47538)*UV(5252)+JVS(49809)*UV(5253)+JVS(52797)*UV(5255)+JVS(54395)*UV(5256) - JTUV(4828) = JVS(32)*UV(3)+JVS(426)*UV(110)+JVS(26466)*UV(4651)+JVS(28495)*UV(4828)+JVS(31745)*UV(5046)+JVS(46205)& - &*UV(5251)+JVS(47539)*UV(5252)+JVS(49810)*UV(5253)+JVS(50244)*UV(5254)+JVS(54396)*UV(5256) - JTUV(4829) = JVS(4120)*UV(1031)+JVS(4290)*UV(1073)+JVS(11381)*UV(2656)+JVS(26807)*UV(4683)+JVS(28505)*UV(4829)& - &+JVS(44635)*UV(5250)+JVS(47540)*UV(5252)+JVS(49811)*UV(5253)+JVS(52799)*UV(5255)+JVS(54397)*UV(5256)& - &+JVS(55026)*UV(5258) - JTUV(4830) = JVS(3956)*UV(990)+JVS(5752)*UV(1437)+JVS(12379)*UV(2850)+JVS(28517)*UV(4830)+JVS(29350)*UV(4898)& - &+JVS(44636)*UV(5250)+JVS(47541)*UV(5252)+JVS(49812)*UV(5253)+JVS(52800)*UV(5255)+JVS(54398)*UV(5256)& - &+JVS(55027)*UV(5258) - JTUV(4831) = JVS(10617)*UV(2507)+JVS(14575)*UV(3257)+JVS(16985)*UV(3626)+JVS(28531)*UV(4831)+JVS(44637)*UV(5250)& - &+JVS(46208)*UV(5251)+JVS(47542)*UV(5252)+JVS(49813)*UV(5253)+JVS(52801)*UV(5255)+JVS(54399)*UV(5256) - JTUV(4832) = JVS(1546)*UV(386)+JVS(28544)*UV(4832)+JVS(36945)*UV(5209)+JVS(44638)*UV(5250)+JVS(49814)*UV(5253)& - &+JVS(52802)*UV(5255)+JVS(54400)*UV(5256)+JVS(55028)*UV(5258) - JTUV(4833) = JVS(3744)*UV(937)+JVS(5375)*UV(1343)+JVS(14751)*UV(3292)+JVS(28554)*UV(4833)+JVS(29232)*UV(4887)& - &+JVS(44639)*UV(5250)+JVS(47544)*UV(5252)+JVS(49815)*UV(5253)+JVS(52803)*UV(5255)+JVS(54401)*UV(5256)& - &+JVS(55029)*UV(5258) - JTUV(4834) = JVS(20563)*UV(4058)+JVS(24872)*UV(4500)+JVS(28569)*UV(4834)+JVS(36559)*UV(5201)+JVS(44640)*UV(5250)& - &+JVS(46211)*UV(5251)+JVS(52804)*UV(5255)+JVS(54402)*UV(5256) - JTUV(4835) = JVS(7052)*UV(1734)+JVS(7572)*UV(1837)+JVS(11890)*UV(2752)+JVS(24753)*UV(4490)+JVS(28577)*UV(4835)& - &+JVS(47546)*UV(5252)+JVS(49817)*UV(5253)+JVS(52805)*UV(5255)+JVS(54403)*UV(5256) - JTUV(4836) = JVS(1463)*UV(363)+JVS(4772)*UV(1193)+JVS(14458)*UV(3239)+JVS(28586)*UV(4836)+JVS(28640)*UV(4841)& - &+JVS(44642)*UV(5250)+JVS(47547)*UV(5252)+JVS(49818)*UV(5253)+JVS(52806)*UV(5255)+JVS(54404)*UV(5256)& - &+JVS(55031)*UV(5258) - JTUV(4837) = JVS(3490)*UV(874)+JVS(5692)*UV(1422)+JVS(13106)*UV(2983)+JVS(13770)*UV(3106)+JVS(28596)*UV(4837)& - &+JVS(47548)*UV(5252)+JVS(49819)*UV(5253)+JVS(52807)*UV(5255)+JVS(54405)*UV(5256) - JTUV(4838) = JVS(33)*UV(3)+JVS(2381)*UV(611)+JVS(28605)*UV(4838)+JVS(31746)*UV(5046)+JVS(34644)*UV(5165)+JVS(46214)& - &*UV(5251)+JVS(47549)*UV(5252)+JVS(49820)*UV(5253)+JVS(50245)*UV(5254)+JVS(54406)*UV(5256) - JTUV(4839) = JVS(1847)*UV(470)+JVS(6035)*UV(1507)+JVS(13349)*UV(3029)+JVS(22148)*UV(4234)+JVS(28622)*UV(4839)& - &+JVS(44645)*UV(5250)+JVS(47550)*UV(5252)+JVS(49821)*UV(5253)+JVS(52808)*UV(5255)+JVS(54407)*UV(5256)& - &+JVS(55032)*UV(5258) - JTUV(4840) = JVS(11864)*UV(2748)+JVS(23163)*UV(4333)+JVS(23326)*UV(4353)+JVS(24102)*UV(4428)+JVS(27013)*UV(4695)& - &+JVS(28630)*UV(4840)+JVS(29719)*UV(4922)+JVS(29728)*UV(4923)+JVS(35927)*UV(5193)+JVS(36561)*UV(5201)& - &+JVS(39111)*UV(5233)+JVS(44646)*UV(5250)+JVS(46215)*UV(5251)+JVS(52809)*UV(5255)+JVS(54408)*UV(5256)& - &+JVS(55033)*UV(5258) - JTUV(4841) = JVS(8251)*UV(1983)+JVS(13760)*UV(3104)+JVS(16281)*UV(3536)+JVS(28641)*UV(4841)+JVS(47552)*UV(5252)& - &+JVS(49823)*UV(5253)+JVS(52810)*UV(5255)+JVS(54409)*UV(5256) - JTUV(4842) = JVS(28666)*UV(4842)+JVS(31264)*UV(5017)+JVS(32407)*UV(5084)+JVS(36562)*UV(5201)+JVS(44648)*UV(5250)& - &+JVS(46216)*UV(5251)+JVS(52811)*UV(5255)+JVS(54410)*UV(5256) - JTUV(4843) = JVS(34)*UV(3)+JVS(2796)*UV(709)+JVS(28678)*UV(4843)+JVS(31747)*UV(5046)+JVS(34708)*UV(5169)+JVS(46217)& - &*UV(5251)+JVS(47553)*UV(5252)+JVS(49824)*UV(5253)+JVS(50246)*UV(5254)+JVS(54411)*UV(5256) - JTUV(4844) = JVS(3578)*UV(896)+JVS(5063)*UV(1265)+JVS(10016)*UV(2374)+JVS(10789)*UV(2542)+JVS(28691)*UV(4844)& - &+JVS(47554)*UV(5252)+JVS(49825)*UV(5253)+JVS(52812)*UV(5255)+JVS(54412)*UV(5256) - JTUV(4845) = JVS(12163)*UV(2807)+JVS(23854)*UV(4405)+JVS(28705)*UV(4845)+JVS(36563)*UV(5201)+JVS(44651)*UV(5250)& - &+JVS(49826)*UV(5253)+JVS(54413)*UV(5256) - JTUV(4846) = JVS(4700)*UV(1175)+JVS(5620)*UV(1404)+JVS(10671)*UV(2518)+JVS(28717)*UV(4846)+JVS(30162)*UV(4947)& - &+JVS(44652)*UV(5250)+JVS(47556)*UV(5252)+JVS(49827)*UV(5253)+JVS(52814)*UV(5255)+JVS(54414)*UV(5256)& - &+JVS(55035)*UV(5258) - JTUV(4847) = JVS(2797)*UV(709)+JVS(3936)*UV(985)+JVS(11062)*UV(2593)+JVS(28734)*UV(4847)+JVS(39407)*UV(5236)& - &+JVS(44653)*UV(5250)+JVS(47557)*UV(5252)+JVS(49828)*UV(5253)+JVS(52815)*UV(5255)+JVS(54415)*UV(5256)& - &+JVS(55036)*UV(5258) - JTUV(4848) = JVS(917)*UV(207)+JVS(4166)*UV(1042)+JVS(12548)*UV(2884)+JVS(28745)*UV(4848)+JVS(34036)*UV(5150)& - &+JVS(44654)*UV(5250)+JVS(47558)*UV(5252)+JVS(49829)*UV(5253)+JVS(52816)*UV(5255)+JVS(54416)*UV(5256)& - &+JVS(55037)*UV(5258) - JTUV(4849) = JVS(5700)*UV(1424)+JVS(9870)*UV(2340)+JVS(10743)*UV(2533)+JVS(28761)*UV(4849)+JVS(36114)*UV(5196)& - &+JVS(44655)*UV(5250)+JVS(47559)*UV(5252)+JVS(49830)*UV(5253)+JVS(52817)*UV(5255)+JVS(54417)*UV(5256)& - &+JVS(55038)*UV(5258) - JTUV(4850) = JVS(1862)*UV(474)+JVS(4454)*UV(1114)+JVS(11739)*UV(2726)+JVS(28783)*UV(4850)+JVS(30078)*UV(4942)& - &+JVS(44656)*UV(5250)+JVS(47560)*UV(5252)+JVS(49831)*UV(5253)+JVS(52818)*UV(5255)+JVS(54418)*UV(5256)& - &+JVS(55039)*UV(5258) - JTUV(4851) = JVS(21881)*UV(4209)+JVS(28801)*UV(4851)+JVS(36564)*UV(5201)+JVS(39274)*UV(5234)+JVS(44657)*UV(5250)& - &+JVS(46224)*UV(5251)+JVS(52819)*UV(5255)+JVS(54419)*UV(5256) - JTUV(4852) = JVS(6611)*UV(1638)+JVS(12595)*UV(2893)+JVS(17251)*UV(3656)+JVS(26112)*UV(4618)+JVS(28814)*UV(4852)& - &+JVS(47562)*UV(5252)+JVS(49833)*UV(5253)+JVS(52820)*UV(5255)+JVS(54420)*UV(5256) - JTUV(4853) = JVS(3290)*UV(824)+JVS(3606)*UV(903)+JVS(12454)*UV(2864)+JVS(27736)*UV(4763)+JVS(28830)*UV(4853)& - &+JVS(44659)*UV(5250)+JVS(47563)*UV(5252)+JVS(49834)*UV(5253)+JVS(52821)*UV(5255)+JVS(54421)*UV(5256)& - &+JVS(55040)*UV(5258) - JTUV(4854) = JVS(3988)*UV(998)+JVS(5379)*UV(1344)+JVS(11908)*UV(2756)+JVS(23266)*UV(4346)+JVS(28845)*UV(4854)& - &+JVS(44660)*UV(5250)+JVS(47564)*UV(5252)+JVS(49835)*UV(5253)+JVS(52822)*UV(5255)+JVS(54422)*UV(5256)& - &+JVS(55041)*UV(5258) - JTUV(4855) = JVS(4186)*UV(1047)+JVS(4346)*UV(1087)+JVS(12525)*UV(2879)+JVS(21762)*UV(4197)+JVS(28858)*UV(4855)& - &+JVS(44661)*UV(5250)+JVS(47565)*UV(5252)+JVS(49836)*UV(5253)+JVS(52823)*UV(5255)+JVS(54423)*UV(5256)& - &+JVS(55042)*UV(5258) - JTUV(4856) = JVS(2782)*UV(706)+JVS(14411)*UV(3231)+JVS(28869)*UV(4856)+JVS(47566)*UV(5252)+JVS(49837)*UV(5253)& - &+JVS(52824)*UV(5255)+JVS(54424)*UV(5256) - JTUV(4857) = JVS(1390)*UV(340)+JVS(2802)*UV(710)+JVS(8109)*UV(1953)+JVS(12747)*UV(2920)+JVS(28882)*UV(4857)+JVS(47567)& - &*UV(5252)+JVS(49838)*UV(5253)+JVS(52825)*UV(5255)+JVS(54425)*UV(5256) - JTUV(4858) = JVS(6407)*UV(1595)+JVS(13380)*UV(3035)+JVS(17865)*UV(3735)+JVS(26113)*UV(4618)+JVS(28892)*UV(4858)& - &+JVS(47568)*UV(5252)+JVS(49839)*UV(5253)+JVS(52826)*UV(5255)+JVS(54426)*UV(5256) - JTUV(4859) = JVS(13992)*UV(3146)+JVS(20638)*UV(4067)+JVS(28903)*UV(4859)+JVS(49840)*UV(5253)+JVS(55043)*UV(5258) - JTUV(4860) = JVS(3550)*UV(889)+JVS(14587)*UV(3260)+JVS(28914)*UV(4860)+JVS(30640)*UV(4981)+JVS(44666)*UV(5250)& - &+JVS(47570)*UV(5252)+JVS(49841)*UV(5253)+JVS(52828)*UV(5255)+JVS(54428)*UV(5256) - JTUV(4861) = JVS(6432)*UV(1602)+JVS(11057)*UV(2592)+JVS(17536)*UV(3693)+JVS(28925)*UV(4861)+JVS(47571)*UV(5252)& - &+JVS(49842)*UV(5253)+JVS(52829)*UV(5255)+JVS(54429)*UV(5256) - JTUV(4862) = JVS(971)*UV(222)+JVS(2347)*UV(603)+JVS(5748)*UV(1436)+JVS(12751)*UV(2921)+JVS(28937)*UV(4862)+JVS(44668)& - &*UV(5250)+JVS(47572)*UV(5252)+JVS(49843)*UV(5253)+JVS(52830)*UV(5255)+JVS(54430)*UV(5256)+JVS(55044)& - &*UV(5258) - JTUV(4863) = JVS(1519)*UV(378)+JVS(5924)*UV(1480)+JVS(12276)*UV(2829)+JVS(17756)*UV(3722)+JVS(28951)*UV(4863)& - &+JVS(44669)*UV(5250)+JVS(47573)*UV(5252)+JVS(49844)*UV(5253)+JVS(52831)*UV(5255)+JVS(54431)*UV(5256)& - &+JVS(55045)*UV(5258) - JTUV(4864) = JVS(13029)*UV(2969)+JVS(15824)*UV(3463)+JVS(28968)*UV(4864)+JVS(29849)*UV(4931)+JVS(44670)*UV(5250)& - &+JVS(46234)*UV(5251)+JVS(47574)*UV(5252)+JVS(49845)*UV(5253)+JVS(52832)*UV(5255)+JVS(54432)*UV(5256) - JTUV(4865) = JVS(21202)*UV(4134)+JVS(28988)*UV(4865)+JVS(35305)*UV(5183)+JVS(40253)*UV(5244)+JVS(44671)*UV(5250)& - &+JVS(46235)*UV(5251) - JTUV(4866) = JVS(3776)*UV(945)+JVS(5764)*UV(1440)+JVS(12340)*UV(2842)+JVS(28999)*UV(4866)+JVS(34533)*UV(5161)& - &+JVS(44672)*UV(5250)+JVS(47576)*UV(5252)+JVS(49847)*UV(5253)+JVS(52834)*UV(5255)+JVS(54434)*UV(5256)& - &+JVS(55046)*UV(5258) - JTUV(4867) = JVS(3618)*UV(906)+JVS(6171)*UV(1541)+JVS(11401)*UV(2660)+JVS(29013)*UV(4867)+JVS(31305)*UV(5020)& - &+JVS(44673)*UV(5250)+JVS(47577)*UV(5252)+JVS(49848)*UV(5253)+JVS(52835)*UV(5255)+JVS(54435)*UV(5256)& - &+JVS(55047)*UV(5258) - JTUV(4868) = JVS(35)*UV(3)+JVS(2467)*UV(631)+JVS(29023)*UV(4868)+JVS(31748)*UV(5046)+JVS(36838)*UV(5203)+JVS(46238)& - &*UV(5251)+JVS(47578)*UV(5252)+JVS(49849)*UV(5253)+JVS(50247)*UV(5254)+JVS(54436)*UV(5256) - JTUV(4869) = JVS(36)*UV(3)+JVS(16918)*UV(3617)+JVS(29032)*UV(4869)+JVS(31749)*UV(5046)+JVS(46239)*UV(5251)+JVS(47579)& - &*UV(5252)+JVS(49850)*UV(5253)+JVS(50248)*UV(5254)+JVS(54437)*UV(5256) - JTUV(4870) = JVS(4560)*UV(1140)+JVS(7931)*UV(1914)+JVS(8929)*UV(2128)+JVS(15334)*UV(3386)+JVS(29047)*UV(4870)& - &+JVS(30533)*UV(4973)+JVS(47580)*UV(5252)+JVS(49851)*UV(5253)+JVS(52836)*UV(5255)+JVS(54438)*UV(5256) - JTUV(4871) = JVS(5628)*UV(1406)+JVS(15045)*UV(3346)+JVS(29065)*UV(4871)+JVS(47581)*UV(5252)+JVS(49852)*UV(5253)& - &+JVS(52837)*UV(5255)+JVS(54439)*UV(5256) - JTUV(4872) = JVS(29079)*UV(4872)+JVS(33506)*UV(5136)+JVS(33878)*UV(5143)+JVS(34009)*UV(5149)+JVS(36567)*UV(5201)& - &+JVS(44678)*UV(5250)+JVS(46240)*UV(5251)+JVS(52838)*UV(5255)+JVS(54440)*UV(5256) - JTUV(4873) = JVS(22632)*UV(4283)+JVS(29093)*UV(4873)+JVS(34645)*UV(5165)+JVS(36568)*UV(5201)+JVS(44679)*UV(5250)& - &+JVS(46241)*UV(5251)+JVS(52839)*UV(5255)+JVS(54441)*UV(5256) - JTUV(4874) = JVS(4938)*UV(1234)+JVS(12517)*UV(2877)+JVS(29109)*UV(4874)+JVS(30339)*UV(4959)+JVS(44680)*UV(5250)& - &+JVS(47583)*UV(5252)+JVS(49854)*UV(5253)+JVS(52840)*UV(5255)+JVS(54442)*UV(5256) - JTUV(4875) = JVS(2574)*UV(655)+JVS(7294)*UV(1784)+JVS(29123)*UV(4875)+JVS(47584)*UV(5252)+JVS(49855)*UV(5253)& - &+JVS(52841)*UV(5255)+JVS(54443)*UV(5256) - JTUV(4876) = JVS(3992)*UV(999)+JVS(6411)*UV(1596)+JVS(9228)*UV(2196)+JVS(15270)*UV(3377)+JVS(16846)*UV(3609)& - &+JVS(29133)*UV(4876)+JVS(47585)*UV(5252)+JVS(49856)*UV(5253)+JVS(52842)*UV(5255)+JVS(54444)*UV(5256) - JTUV(4877) = JVS(8138)*UV(1960)+JVS(10506)*UV(2485)+JVS(15771)*UV(3453)+JVS(21785)*UV(4199)+JVS(29140)*UV(4877)& - &+JVS(47586)*UV(5252)+JVS(49857)*UV(5253)+JVS(52843)*UV(5255)+JVS(54445)*UV(5256) - JTUV(4878) = JVS(532)*UV(139)+JVS(1671)*UV(421)+JVS(4326)*UV(1082)+JVS(12994)*UV(2964)+JVS(29148)*UV(4878)+JVS(47587)& - &*UV(5252)+JVS(49858)*UV(5253)+JVS(52844)*UV(5255)+JVS(54446)*UV(5256) - JTUV(4879) = JVS(3900)*UV(976)+JVS(7525)*UV(1827)+JVS(13218)*UV(3002)+JVS(21372)*UV(4155)+JVS(29156)*UV(4879)& - &+JVS(47588)*UV(5252)+JVS(49859)*UV(5253)+JVS(52845)*UV(5255)+JVS(54447)*UV(5256) - JTUV(4880) = JVS(849)*UV(195)+JVS(5051)*UV(1262)+JVS(6861)*UV(1693)+JVS(8239)*UV(1980)+JVS(18848)*UV(3857)+JVS(29163)& - &*UV(4880)+JVS(47589)*UV(5252)+JVS(49860)*UV(5253)+JVS(52846)*UV(5255)+JVS(54448)*UV(5256) - JTUV(4881) = JVS(8227)*UV(1977)+JVS(9967)*UV(2363)+JVS(16565)*UV(3575)+JVS(21410)*UV(4160)+JVS(29171)*UV(4881)& - &+JVS(47590)*UV(5252)+JVS(49861)*UV(5253)+JVS(52847)*UV(5255)+JVS(54449)*UV(5256) - JTUV(4882) = JVS(22251)*UV(4244)+JVS(23333)*UV(4354)+JVS(24349)*UV(4451)+JVS(29184)*UV(4882)+JVS(36573)*UV(5201)& - &+JVS(44688)*UV(5250)+JVS(46249)*UV(5251)+JVS(52848)*UV(5255)+JVS(54450)*UV(5256) - JTUV(4883) = JVS(20183)*UV(4015)+JVS(29195)*UV(4883)+JVS(30294)*UV(4957)+JVS(30893)*UV(4996)+JVS(44689)*UV(5250)& - &+JVS(46250)*UV(5251)+JVS(52849)*UV(5255) - JTUV(4884) = JVS(9998)*UV(2370)+JVS(10368)*UV(2455)+JVS(15006)*UV(3341)+JVS(19282)*UV(3910)+JVS(29204)*UV(4884)& - &+JVS(47593)*UV(5252)+JVS(49864)*UV(5253)+JVS(52850)*UV(5255)+JVS(54452)*UV(5256) - JTUV(4885) = JVS(6691)*UV(1655)+JVS(8036)*UV(1938)+JVS(8339)*UV(2000)+JVS(17456)*UV(3683)+JVS(29214)*UV(4885)& - &+JVS(47594)*UV(5252)+JVS(49865)*UV(5253)+JVS(52851)*UV(5255)+JVS(54453)*UV(5256) - JTUV(4886) = JVS(1387)*UV(339)+JVS(8425)*UV(2019)+JVS(10145)*UV(2403)+JVS(11963)*UV(2767)+JVS(19016)*UV(3877)& - &+JVS(29222)*UV(4886)+JVS(47595)*UV(5252)+JVS(49866)*UV(5253)+JVS(52852)*UV(5255)+JVS(54454)*UV(5256) - JTUV(4887) = JVS(3007)*UV(755)+JVS(8280)*UV(1988)+JVS(15848)*UV(3469)+JVS(29233)*UV(4887)+JVS(47596)*UV(5252)& - &+JVS(49867)*UV(5253)+JVS(52853)*UV(5255)+JVS(54455)*UV(5256) - JTUV(4888) = JVS(11957)*UV(2766)+JVS(14369)*UV(3221)+JVS(17309)*UV(3664)+JVS(23556)*UV(4379)+JVS(29243)*UV(4888)& - &+JVS(44694)*UV(5250)+JVS(47597)*UV(5252)+JVS(49868)*UV(5253)+JVS(52854)*UV(5255)+JVS(54456)*UV(5256)& - &+JVS(55051)*UV(5258) - JTUV(4889) = JVS(2140)*UV(551)+JVS(6759)*UV(1670)+JVS(10422)*UV(2466)+JVS(18079)*UV(3759)+JVS(29253)*UV(4889)& - &+JVS(47598)*UV(5252)+JVS(49869)*UV(5253)+JVS(52855)*UV(5255)+JVS(54457)*UV(5256) - JTUV(4890) = JVS(1543)*UV(385)+JVS(3976)*UV(995)+JVS(4100)*UV(1026)+JVS(12889)*UV(2946)+JVS(15372)*UV(3391)+JVS(29265)& - &*UV(4890)+JVS(47599)*UV(5252)+JVS(49870)*UV(5253)+JVS(52856)*UV(5255)+JVS(54458)*UV(5256) - JTUV(4891) = JVS(5792)*UV(1447)+JVS(12895)*UV(2947)+JVS(27932)*UV(4781)+JVS(29274)*UV(4891)+JVS(44697)*UV(5250)& - &+JVS(47600)*UV(5252)+JVS(49871)*UV(5253)+JVS(52857)*UV(5255)+JVS(54459)*UV(5256) - JTUV(4892) = JVS(5187)*UV(1296)+JVS(5419)*UV(1354)+JVS(14296)*UV(3206)+JVS(24666)*UV(4483)+JVS(29284)*UV(4892)& - &+JVS(44698)*UV(5250)+JVS(47601)*UV(5252)+JVS(49872)*UV(5253)+JVS(52858)*UV(5255)+JVS(54460)*UV(5256)& - &+JVS(55052)*UV(5258) - JTUV(4893) = JVS(10472)*UV(2477)+JVS(12316)*UV(2837)+JVS(15844)*UV(3468)+JVS(29296)*UV(4893)+JVS(47602)*UV(5252)& - &+JVS(49873)*UV(5253)+JVS(52859)*UV(5255)+JVS(54461)*UV(5256) - JTUV(4894) = JVS(286)*UV(70)+JVS(9409)*UV(2236)+JVS(13626)*UV(3080)+JVS(22371)*UV(4256)+JVS(29304)*UV(4894)+JVS(47603)& - &*UV(5252)+JVS(49874)*UV(5253)+JVS(52860)*UV(5255)+JVS(54462)*UV(5256) - JTUV(4895) = JVS(17621)*UV(3705)+JVS(17896)*UV(3739)+JVS(28883)*UV(4857)+JVS(29315)*UV(4895)+JVS(44701)*UV(5250)& - &+JVS(46260)*UV(5251)+JVS(54463)*UV(5256)+JVS(55053)*UV(5258) - JTUV(4896) = JVS(17680)*UV(3713)+JVS(17799)*UV(3727)+JVS(26567)*UV(4661)+JVS(29326)*UV(4896)+JVS(44702)*UV(5250)& - &+JVS(46261)*UV(5251)+JVS(54464)*UV(5256)+JVS(55054)*UV(5258) - JTUV(4897) = JVS(6254)*UV(1560)+JVS(6620)*UV(1640)+JVS(7748)*UV(1873)+JVS(10503)*UV(2484)+JVS(29338)*UV(4897)& - &+JVS(47606)*UV(5252)+JVS(49877)*UV(5253)+JVS(52863)*UV(5255)+JVS(54465)*UV(5256) - JTUV(4898) = JVS(560)*UV(146)+JVS(5536)*UV(1383)+JVS(29351)*UV(4898)+JVS(47607)*UV(5252)+JVS(49878)*UV(5253)& - &+JVS(52864)*UV(5255)+JVS(54466)*UV(5256) - JTUV(4899) = JVS(9936)*UV(2356)+JVS(9941)*UV(2357)+JVS(15767)*UV(3452)+JVS(29362)*UV(4899)+JVS(47608)*UV(5252)& - &+JVS(49879)*UV(5253)+JVS(52865)*UV(5255)+JVS(54467)*UV(5256) - JTUV(4900) = JVS(3189)*UV(799)+JVS(5716)*UV(1428)+JVS(7506)*UV(1823)+JVS(16695)*UV(3591)+JVS(29372)*UV(4900)& - &+JVS(32475)*UV(5086)+JVS(47609)*UV(5252)+JVS(49880)*UV(5253)+JVS(52866)*UV(5255)+JVS(54468)*UV(5256) - JTUV(4901) = JVS(6327)*UV(1577)+JVS(9216)*UV(2193)+JVS(9348)*UV(2223)+JVS(15468)*UV(3404)+JVS(18937)*UV(3868)& - &+JVS(29385)*UV(4901)+JVS(47610)*UV(5252)+JVS(49881)*UV(5253)+JVS(52867)*UV(5255)+JVS(54469)*UV(5256) - JTUV(4902) = JVS(29400)*UV(4902)+JVS(34763)*UV(5171)+JVS(36578)*UV(5201)+JVS(44708)*UV(5250)+JVS(46266)*UV(5251)& - &+JVS(52868)*UV(5255)+JVS(54470)*UV(5256) - JTUV(4903) = JVS(3019)*UV(758)+JVS(4580)*UV(1145)+JVS(9602)*UV(2282)+JVS(11580)*UV(2697)+JVS(13892)*UV(3126)& - &+JVS(29415)*UV(4903)+JVS(47611)*UV(5252)+JVS(49882)*UV(5253)+JVS(52869)*UV(5255)+JVS(54471)*UV(5256) - JTUV(4904) = JVS(227)*UV(53)+JVS(702)*UV(170)+JVS(3972)*UV(994)+JVS(29443)*UV(4904)+JVS(47612)*UV(5252)+JVS(49883)& - &*UV(5253)+JVS(52870)*UV(5255)+JVS(54472)*UV(5256) - JTUV(4905) = JVS(7666)*UV(1857)+JVS(9627)*UV(2287)+JVS(15763)*UV(3451)+JVS(29460)*UV(4905)+JVS(47613)*UV(5252)& - &+JVS(49884)*UV(5253)+JVS(52871)*UV(5255)+JVS(54473)*UV(5256) - JTUV(4906) = JVS(37)*UV(3)+JVS(2514)*UV(642)+JVS(29468)*UV(4906)+JVS(31750)*UV(5046)+JVS(37805)*UV(5226)+JVS(46268)& - &*UV(5251)+JVS(47614)*UV(5252)+JVS(49885)*UV(5253)+JVS(50249)*UV(5254)+JVS(54474)*UV(5256) - JTUV(4907) = JVS(10238)*UV(2425)+JVS(16005)*UV(3496)+JVS(18913)*UV(3865)+JVS(25213)*UV(4528)+JVS(29475)*UV(4907)& - &+JVS(33326)*UV(5127)+JVS(38593)*UV(5231)+JVS(39724)*UV(5242)+JVS(40268)*UV(5244)+JVS(44713)*UV(5250)& - &+JVS(54475)*UV(5256)+JVS(55055)*UV(5258) - JTUV(4908) = JVS(38)*UV(3)+JVS(9971)*UV(2364)+JVS(29482)*UV(4908)+JVS(30963)*UV(5000)+JVS(31751)*UV(5046)+JVS(46270)& - &*UV(5251)+JVS(47616)*UV(5252)+JVS(49887)*UV(5253)+JVS(50250)*UV(5254)+JVS(54476)*UV(5256) - JTUV(4909) = JVS(9808)*UV(2326)+JVS(29509)*UV(4909)+JVS(37566)*UV(5222)+JVS(44715)*UV(5250)+JVS(49888)*UV(5253) - JTUV(4910) = JVS(3450)*UV(864)+JVS(5962)*UV(1489)+JVS(6472)*UV(1608)+JVS(14377)*UV(3223)+JVS(29537)*UV(4910)& - &+JVS(44716)*UV(5250)+JVS(47617)*UV(5252)+JVS(49889)*UV(5253)+JVS(52874)*UV(5255)+JVS(54477)*UV(5256)& - &+JVS(55056)*UV(5258) - JTUV(4911) = JVS(2653)*UV(674)+JVS(6709)*UV(1659)+JVS(11758)*UV(2730)+JVS(13494)*UV(3057)+JVS(29550)*UV(4911)& - &+JVS(47618)*UV(5252)+JVS(49890)*UV(5253)+JVS(52875)*UV(5255)+JVS(54478)*UV(5256) - JTUV(4912) = JVS(39)*UV(3)+JVS(8978)*UV(2140)+JVS(29558)*UV(4912)+JVS(31752)*UV(5046)+JVS(37110)*UV(5213)+JVS(46273)& - &*UV(5251)+JVS(47619)*UV(5252)+JVS(49891)*UV(5253)+JVS(50251)*UV(5254)+JVS(54479)*UV(5256) - JTUV(4913) = JVS(16499)*UV(3566)+JVS(19757)*UV(3965)+JVS(29575)*UV(4913)+JVS(47620)*UV(5252)+JVS(49892)*UV(5253)& - &+JVS(52877)*UV(5255)+JVS(54480)*UV(5256) - JTUV(4914) = JVS(22383)*UV(4257)+JVS(22677)*UV(4288)+JVS(29587)*UV(4914)+JVS(36580)*UV(5201)+JVS(44720)*UV(5250)& - &+JVS(46275)*UV(5251)+JVS(52878)*UV(5255)+JVS(54481)*UV(5256) - JTUV(4915) = JVS(4190)*UV(1048)+JVS(4386)*UV(1097)+JVS(13488)*UV(3056)+JVS(26353)*UV(4640)+JVS(29600)*UV(4915)& - &+JVS(44721)*UV(5250)+JVS(47622)*UV(5252)+JVS(49894)*UV(5253)+JVS(52879)*UV(5255)+JVS(54482)*UV(5256)& - &+JVS(55057)*UV(5258) - JTUV(4916) = JVS(12767)*UV(2924)+JVS(14900)*UV(3325)+JVS(17673)*UV(3712)+JVS(23748)*UV(4398)+JVS(29621)*UV(4916)& - &+JVS(44722)*UV(5250)+JVS(47623)*UV(5252)+JVS(49895)*UV(5253)+JVS(52880)*UV(5255)+JVS(54483)*UV(5256)& - &+JVS(55058)*UV(5258) - JTUV(4917) = JVS(11539)*UV(2689)+JVS(14385)*UV(3225)+JVS(18413)*UV(3800)+JVS(20291)*UV(4029)+JVS(29636)*UV(4917)& - &+JVS(44723)*UV(5250)+JVS(47624)*UV(5252)+JVS(49896)*UV(5253)+JVS(52881)*UV(5255)+JVS(54484)*UV(5256)& - &+JVS(55059)*UV(5258) - JTUV(4918) = JVS(29667)*UV(4918)+JVS(33283)*UV(5125)+JVS(36581)*UV(5201)+JVS(44724)*UV(5250)+JVS(46279)*UV(5251)& - &+JVS(52882)*UV(5255)+JVS(54485)*UV(5256) - JTUV(4919) = JVS(40)*UV(3)+JVS(2390)*UV(613)+JVS(29681)*UV(4919)+JVS(30416)*UV(4964)+JVS(31753)*UV(5046)+JVS(46280)& - &*UV(5251)+JVS(47625)*UV(5252)+JVS(49897)*UV(5253)+JVS(50252)*UV(5254)+JVS(54486)*UV(5256) - JTUV(4920) = JVS(1997)*UV(513)+JVS(2510)*UV(641)+JVS(12763)*UV(2923)+JVS(15686)*UV(3434)+JVS(29694)*UV(4920)& - &+JVS(47626)*UV(5252)+JVS(49898)*UV(5253)+JVS(52884)*UV(5255)+JVS(54487)*UV(5256) - JTUV(4921) = JVS(4728)*UV(1182)+JVS(12436)*UV(2860)+JVS(17076)*UV(3638)+JVS(29710)*UV(4921)+JVS(30045)*UV(4940)& - &+JVS(44727)*UV(5250)+JVS(47627)*UV(5252)+JVS(49899)*UV(5253)+JVS(52885)*UV(5255)+JVS(54488)*UV(5256)& - &+JVS(55060)*UV(5258) - JTUV(4922) = JVS(4040)*UV(1011)+JVS(16173)*UV(3520)+JVS(17230)*UV(3654)+JVS(21378)*UV(4156)+JVS(29720)*UV(4922)& - &+JVS(47628)*UV(5252)+JVS(49900)*UV(5253)+JVS(52886)*UV(5255)+JVS(54489)*UV(5256) - JTUV(4923) = JVS(7651)*UV(1853)+JVS(11785)*UV(2734)+JVS(17278)*UV(3660)+JVS(21379)*UV(4156)+JVS(29730)*UV(4923)& - &+JVS(47629)*UV(5252)+JVS(49901)*UV(5253)+JVS(52887)*UV(5255)+JVS(54490)*UV(5256) - JTUV(4924) = JVS(9331)*UV(2219)+JVS(12884)*UV(2945)+JVS(29747)*UV(4924)+JVS(35946)*UV(5193)+JVS(44730)*UV(5250)& - &+JVS(47630)*UV(5252)+JVS(49902)*UV(5253)+JVS(52888)*UV(5255)+JVS(54491)*UV(5256) - JTUV(4925) = JVS(9131)*UV(2174)+JVS(9161)*UV(2181)+JVS(13685)*UV(3090)+JVS(17938)*UV(3744)+JVS(29759)*UV(4925)& - &+JVS(47631)*UV(5252)+JVS(49903)*UV(5253)+JVS(52889)*UV(5255)+JVS(54492)*UV(5256) - JTUV(4926) = JVS(7832)*UV(1893)+JVS(10054)*UV(2381)+JVS(15497)*UV(3408)+JVS(25493)*UV(4552)+JVS(29768)*UV(4926)& - &+JVS(44732)*UV(5250)+JVS(47632)*UV(5252)+JVS(49904)*UV(5253)+JVS(52890)*UV(5255)+JVS(54493)*UV(5256)& - &+JVS(55062)*UV(5258) - JTUV(4927) = JVS(17406)*UV(3677)+JVS(17553)*UV(3695)+JVS(25473)*UV(4550)+JVS(29779)*UV(4927)+JVS(44733)*UV(5250)& - &+JVS(46288)*UV(5251)+JVS(54494)*UV(5256)+JVS(55063)*UV(5258) - JTUV(4928) = JVS(2057)*UV(531)+JVS(4258)*UV(1065)+JVS(15092)*UV(3352)+JVS(15096)*UV(3353)+JVS(23706)*UV(4393)& - &+JVS(29788)*UV(4928)+JVS(47634)*UV(5252)+JVS(49906)*UV(5253)+JVS(52892)*UV(5255)+JVS(54495)*UV(5256) - JTUV(4929) = JVS(2729)*UV(693)+JVS(8838)*UV(2107)+JVS(29805)*UV(4929)+JVS(47635)*UV(5252)+JVS(49907)*UV(5253)& - &+JVS(52893)*UV(5255)+JVS(54496)*UV(5256) - JTUV(4930) = JVS(12167)*UV(2808)+JVS(14389)*UV(3226)+JVS(18529)*UV(3816)+JVS(20792)*UV(4086)+JVS(29822)*UV(4930)& - &+JVS(44736)*UV(5250)+JVS(47636)*UV(5252)+JVS(49908)*UV(5253)+JVS(52894)*UV(5255)+JVS(54497)*UV(5256)& - &+JVS(55065)*UV(5258) - JTUV(4931) = JVS(29853)*UV(4931)+JVS(32908)*UV(5106)+JVS(36587)*UV(5201)+JVS(44737)*UV(5250)+JVS(46291)*UV(5251)& - &+JVS(52895)*UV(5255)+JVS(54498)*UV(5256) - JTUV(4932) = JVS(1896)*UV(484)+JVS(4049)*UV(1013)+JVS(11229)*UV(2627)+JVS(16659)*UV(3587)+JVS(27121)*UV(4708)& - &+JVS(29866)*UV(4932)+JVS(47637)*UV(5252)+JVS(49909)*UV(5253)+JVS(52896)*UV(5255)+JVS(54499)*UV(5256)& - &+JVS(55066)*UV(5258) - JTUV(4933) = JVS(22571)*UV(4277)+JVS(26233)*UV(4628)+JVS(27978)*UV(4787)+JVS(29876)*UV(4933)+JVS(36589)*UV(5201)& - &+JVS(40279)*UV(5244)+JVS(44739)*UV(5250)+JVS(46293)*UV(5251)+JVS(52897)*UV(5255)+JVS(54500)*UV(5256) - JTUV(4934) = JVS(1878)*UV(479)+JVS(4358)*UV(1090)+JVS(12356)*UV(2846)+JVS(29884)*UV(4934)+JVS(33123)*UV(5120)& - &+JVS(44740)*UV(5250)+JVS(47639)*UV(5252)+JVS(49911)*UV(5253)+JVS(52898)*UV(5255)+JVS(54501)*UV(5256)& - &+JVS(55068)*UV(5258) - JTUV(4935) = JVS(3012)*UV(756)+JVS(6426)*UV(1600)+JVS(14545)*UV(3251)+JVS(16966)*UV(3624)+JVS(29895)*UV(4935)& - &+JVS(47640)*UV(5252)+JVS(49912)*UV(5253)+JVS(52899)*UV(5255)+JVS(54502)*UV(5256) - JTUV(4936) = JVS(8358)*UV(2004)+JVS(14928)*UV(3330)+JVS(19985)*UV(3993)+JVS(29907)*UV(4936)+JVS(35512)*UV(5188)& - &+JVS(37343)*UV(5221)+JVS(44742)*UV(5250)+JVS(46296)*UV(5251)+JVS(47641)*UV(5252)+JVS(49913)*UV(5253)& - &+JVS(52900)*UV(5255)+JVS(54503)*UV(5256) - JTUV(4937) = JVS(15700)*UV(3437)+JVS(16400)*UV(3553)+JVS(24923)*UV(4505)+JVS(29919)*UV(4937)+JVS(29988)*UV(4938)& - &+JVS(30232)*UV(4952)+JVS(32278)*UV(5076)+JVS(33201)*UV(5123)+JVS(37573)*UV(5222)+JVS(39122)*UV(5233)& - &+JVS(52901)*UV(5255) - JTUV(4938) = JVS(29989)*UV(4938)+JVS(36139)*UV(5197)+JVS(40283)*UV(5244)+JVS(44744)*UV(5250) - JTUV(4939) = JVS(30024)*UV(4939)+JVS(34225)*UV(5158)+JVS(36591)*UV(5201)+JVS(44745)*UV(5250)+JVS(46298)*UV(5251)& - &+JVS(52902)*UV(5255)+JVS(54505)*UV(5256) - JTUV(4940) = JVS(813)*UV(189)+JVS(1642)*UV(413)+JVS(6099)*UV(1523)+JVS(9090)*UV(2165)+JVS(14485)*UV(3242)+JVS(30046)& - &*UV(4940)+JVS(47643)*UV(5252)+JVS(49915)*UV(5253)+JVS(52903)*UV(5255)+JVS(54506)*UV(5256) - JTUV(4941) = JVS(41)*UV(3)+JVS(2990)*UV(751)+JVS(30063)*UV(4941)+JVS(31754)*UV(5046)+JVS(35673)*UV(5191)+JVS(46299)& - &*UV(5251)+JVS(47644)*UV(5252)+JVS(49916)*UV(5253)+JVS(50253)*UV(5254)+JVS(54507)*UV(5256) - JTUV(4942) = JVS(609)*UV(155)+JVS(1536)*UV(383)+JVS(8276)*UV(1987)+JVS(10202)*UV(2416)+JVS(30079)*UV(4942)+JVS(34563)& - &*UV(5162)+JVS(47645)*UV(5252)+JVS(49917)*UV(5253)+JVS(52904)*UV(5255)+JVS(54508)*UV(5256) - JTUV(4943) = JVS(42)*UV(3)+JVS(3266)*UV(818)+JVS(30097)*UV(4943)+JVS(31755)*UV(5046)+JVS(35948)*UV(5193)+JVS(46300)& - &*UV(5251)+JVS(47646)*UV(5252)+JVS(49918)*UV(5253)+JVS(50254)*UV(5254)+JVS(54509)*UV(5256) - JTUV(4944) = JVS(2382)*UV(611)+JVS(5331)*UV(1332)+JVS(11158)*UV(2611)+JVS(30122)*UV(4944)+JVS(36924)*UV(5208)& - &+JVS(44750)*UV(5250)+JVS(47647)*UV(5252)+JVS(49919)*UV(5253)+JVS(52905)*UV(5255)+JVS(54510)*UV(5256)& - &+JVS(55070)*UV(5258) - JTUV(4945) = JVS(8243)*UV(1981)+JVS(14061)*UV(3160)+JVS(22372)*UV(4256)+JVS(30131)*UV(4945)+JVS(30320)*UV(4958)& - &+JVS(35028)*UV(5180)+JVS(35513)*UV(5188)+JVS(38600)*UV(5231)+JVS(44751)*UV(5250)+JVS(49920)*UV(5253)& - &+JVS(52906)*UV(5255) - JTUV(4946) = JVS(13233)*UV(3005)+JVS(14535)*UV(3249)+JVS(17764)*UV(3723)+JVS(21571)*UV(4178)+JVS(30138)*UV(4946)& - &+JVS(44752)*UV(5250)+JVS(47649)*UV(5252)+JVS(49921)*UV(5253)+JVS(52907)*UV(5255)+JVS(54512)*UV(5256)& - &+JVS(55072)*UV(5258) - JTUV(4947) = JVS(19471)*UV(3930)+JVS(19480)*UV(3931)+JVS(30165)*UV(4947)+JVS(47650)*UV(5252)+JVS(49922)*UV(5253)& - &+JVS(52908)*UV(5255)+JVS(54513)*UV(5256) - JTUV(4948) = JVS(14393)*UV(3227)+JVS(14864)*UV(3316)+JVS(15953)*UV(3487)+JVS(29363)*UV(4899)+JVS(30177)*UV(4948)& - &+JVS(44754)*UV(5250)+JVS(47651)*UV(5252)+JVS(49923)*UV(5253)+JVS(52909)*UV(5255)+JVS(54514)*UV(5256)& - &+JVS(55073)*UV(5258) - JTUV(4949) = JVS(1400)*UV(343)+JVS(4632)*UV(1158)+JVS(12084)*UV(2790)+JVS(30195)*UV(4949)+JVS(33141)*UV(5121)& - &+JVS(44755)*UV(5250)+JVS(47652)*UV(5252)+JVS(49924)*UV(5253)+JVS(52910)*UV(5255)+JVS(54515)*UV(5256)& - &+JVS(55074)*UV(5258) - JTUV(4950) = JVS(16167)*UV(3519)+JVS(29992)*UV(4938)+JVS(30208)*UV(4950)+JVS(30220)*UV(4951)+JVS(30233)*UV(4952)& - &+JVS(31989)*UV(5058)+JVS(32279)*UV(5076)+JVS(33202)*UV(5123)+JVS(37576)*UV(5222)+JVS(39124)*UV(5233)& - &+JVS(52911)*UV(5255) - JTUV(4951) = JVS(3022)*UV(759)+JVS(17347)*UV(3669)+JVS(17806)*UV(3728)+JVS(30221)*UV(4951)+JVS(44757)*UV(5250)& - &+JVS(54517)*UV(5256)+JVS(55076)*UV(5258) - JTUV(4952) = JVS(3069)*UV(771)+JVS(17529)*UV(3692)+JVS(18013)*UV(3752)+JVS(30234)*UV(4952)+JVS(44758)*UV(5250)& - &+JVS(54518)*UV(5256)+JVS(55077)*UV(5258) - JTUV(4953) = JVS(1805)*UV(457)+JVS(5303)*UV(1325)+JVS(6448)*UV(1605)+JVS(12955)*UV(2958)+JVS(30249)*UV(4953)& - &+JVS(44759)*UV(5250)+JVS(47656)*UV(5252)+JVS(49928)*UV(5253)+JVS(52914)*UV(5255)+JVS(54519)*UV(5256)& - &+JVS(55078)*UV(5258) - JTUV(4954) = JVS(13729)*UV(3099)+JVS(14560)*UV(3254)+JVS(14759)*UV(3294)+JVS(30262)*UV(4954)+JVS(38604)*UV(5231)& - &+JVS(44760)*UV(5250)+JVS(46311)*UV(5251)+JVS(47657)*UV(5252)+JVS(49929)*UV(5253)+JVS(52915)*UV(5255)& - &+JVS(54520)*UV(5256)+JVS(55079)*UV(5258) - JTUV(4955) = JVS(1222)*UV(294)+JVS(3660)*UV(916)+JVS(13258)*UV(3010)+JVS(30273)*UV(4955)+JVS(37735)*UV(5224)& - &+JVS(44761)*UV(5250)+JVS(47658)*UV(5252)+JVS(49930)*UV(5253)+JVS(52916)*UV(5255)+JVS(54521)*UV(5256)& - &+JVS(55080)*UV(5258) - JTUV(4956) = JVS(43)*UV(3)+JVS(2720)*UV(691)+JVS(30284)*UV(4956)+JVS(31758)*UV(5046)+JVS(38067)*UV(5230)+JVS(46313)& - &*UV(5251)+JVS(47659)*UV(5252)+JVS(49931)*UV(5253)+JVS(50257)*UV(5254)+JVS(54522)*UV(5256) - JTUV(4957) = JVS(3828)*UV(958)+JVS(10809)*UV(2546)+JVS(12473)*UV(2868)+JVS(20184)*UV(4015)+JVS(30295)*UV(4957)& - &+JVS(44763)*UV(5250)+JVS(47660)*UV(5252)+JVS(49932)*UV(5253)+JVS(52917)*UV(5255)+JVS(54523)*UV(5256) - JTUV(4958) = JVS(14435)*UV(3234)+JVS(30321)*UV(4958)+JVS(37003)*UV(5210)+JVS(44764)*UV(5250)+JVS(49933)*UV(5253) - JTUV(4959) = JVS(3491)*UV(874)+JVS(8126)*UV(1957)+JVS(8765)*UV(2090)+JVS(14840)*UV(3310)+JVS(30341)*UV(4959)& - &+JVS(31201)*UV(5012)+JVS(47661)*UV(5252)+JVS(49934)*UV(5253)+JVS(52919)*UV(5255)+JVS(54524)*UV(5256) - JTUV(4960) = JVS(2943)*UV(741)+JVS(7173)*UV(1757)+JVS(22597)*UV(4279)+JVS(30355)*UV(4960)+JVS(47662)*UV(5252)& - &+JVS(49935)*UV(5253)+JVS(52920)*UV(5255)+JVS(54525)*UV(5256) - JTUV(4961) = JVS(21938)*UV(4215)+JVS(30368)*UV(4961)+JVS(36594)*UV(5201)+JVS(36840)*UV(5203)+JVS(44767)*UV(5250)& - &+JVS(46316)*UV(5251)+JVS(52921)*UV(5255)+JVS(54526)*UV(5256) - JTUV(4962) = JVS(1093)*UV(258)+JVS(5904)*UV(1475)+JVS(12061)*UV(2786)+JVS(30382)*UV(4962)+JVS(30869)*UV(4995)& - &+JVS(44768)*UV(5250)+JVS(47664)*UV(5252)+JVS(49937)*UV(5253)+JVS(52922)*UV(5255)+JVS(54527)*UV(5256)& - &+JVS(55082)*UV(5258) - JTUV(4963) = JVS(44)*UV(3)+JVS(440)*UV(114)+JVS(30395)*UV(4963)+JVS(31759)*UV(5046)+JVS(39725)*UV(5242)+JVS(46318)& - &*UV(5251)+JVS(47665)*UV(5252)+JVS(49938)*UV(5253)+JVS(50258)*UV(5254)+JVS(54528)*UV(5256) - JTUV(4964) = JVS(26172)*UV(4622)+JVS(26629)*UV(4666)+JVS(30417)*UV(4964)+JVS(36595)*UV(5201)+JVS(44770)*UV(5250)& - &+JVS(46319)*UV(5251)+JVS(52923)*UV(5255)+JVS(54529)*UV(5256) - JTUV(4965) = JVS(14064)*UV(3161)+JVS(26630)*UV(4666)+JVS(30433)*UV(4965)+JVS(49940)*UV(5253)+JVS(55084)*UV(5258) - JTUV(4966) = JVS(11573)*UV(2696)+JVS(14450)*UV(3237)+JVS(30452)*UV(4966)+JVS(33684)*UV(5139)+JVS(44772)*UV(5250)& - &+JVS(46321)*UV(5251)+JVS(47668)*UV(5252)+JVS(49941)*UV(5253)+JVS(52925)*UV(5255)+JVS(54531)*UV(5256) - JTUV(4967) = JVS(2910)*UV(734)+JVS(6242)*UV(1557)+JVS(7521)*UV(1826)+JVS(16220)*UV(3528)+JVS(30465)*UV(4967)& - &+JVS(47669)*UV(5252)+JVS(49942)*UV(5253)+JVS(52926)*UV(5255)+JVS(54532)*UV(5256) - JTUV(4968) = JVS(10602)*UV(2504)+JVS(14308)*UV(3209)+JVS(18572)*UV(3821)+JVS(23101)*UV(4328)+JVS(30474)*UV(4968)& - &+JVS(44774)*UV(5250)+JVS(47670)*UV(5252)+JVS(49943)*UV(5253)+JVS(52927)*UV(5255)+JVS(54533)*UV(5256)& - &+JVS(55085)*UV(5258) - JTUV(4969) = JVS(3940)*UV(986)+JVS(13071)*UV(2977)+JVS(19910)*UV(3984)+JVS(30487)*UV(4969)+JVS(44775)*UV(5250)& - &+JVS(47671)*UV(5252)+JVS(49944)*UV(5253)+JVS(52928)*UV(5255)+JVS(54534)*UV(5256) - JTUV(4970) = JVS(1460)*UV(362)+JVS(17077)*UV(3638)+JVS(19957)*UV(3990)+JVS(27537)*UV(4747)+JVS(30497)*UV(4970)& - &+JVS(38612)*UV(5231)+JVS(44776)*UV(5250)+JVS(55086)*UV(5258) - JTUV(4971) = JVS(3240)*UV(812)+JVS(4446)*UV(1112)+JVS(14810)*UV(3304)+JVS(15948)*UV(3486)+JVS(16505)*UV(3567)& - &+JVS(30505)*UV(4971)+JVS(47673)*UV(5252)+JVS(49946)*UV(5253)+JVS(52930)*UV(5255)+JVS(54536)*UV(5256) - JTUV(4972) = JVS(9152)*UV(2179)+JVS(10305)*UV(2441)+JVS(16543)*UV(3572)+JVS(21529)*UV(4174)+JVS(30512)*UV(4972)& - &+JVS(47674)*UV(5252)+JVS(49947)*UV(5253)+JVS(52931)*UV(5255)+JVS(54537)*UV(5256) - JTUV(4973) = JVS(30535)*UV(4973)+JVS(36063)*UV(5195)+JVS(39726)*UV(5242)+JVS(40294)*UV(5244)+JVS(44779)*UV(5250)& - &+JVS(52932)*UV(5255) - JTUV(4974) = JVS(1683)*UV(424)+JVS(7658)*UV(1855)+JVS(9909)*UV(2350)+JVS(13057)*UV(2974)+JVS(16629)*UV(3583)& - &+JVS(30553)*UV(4974)+JVS(47675)*UV(5252)+JVS(49948)*UV(5253)+JVS(52933)*UV(5255)+JVS(54538)*UV(5256) - JTUV(4975) = JVS(18349)*UV(3792)+JVS(29885)*UV(4934)+JVS(30566)*UV(4975)+JVS(33124)*UV(5120)+JVS(36600)*UV(5201)& - &+JVS(44781)*UV(5250)+JVS(46328)*UV(5251)+JVS(52934)*UV(5255)+JVS(54539)*UV(5256) - JTUV(4976) = JVS(137)*UV(29)+JVS(6245)*UV(1558)+JVS(17170)*UV(3647)+JVS(17538)*UV(3693)+JVS(24009)*UV(4420)+JVS(28252)& - &*UV(4805)+JVS(30572)*UV(4976)+JVS(36601)*UV(5201)+JVS(36946)*UV(5209)+JVS(37580)*UV(5222)+JVS(39281)& - &*UV(5234)+JVS(40297)*UV(5244)+JVS(44782)*UV(5250)+JVS(46329)*UV(5251)+JVS(54540)*UV(5256)+JVS(55090)& - &*UV(5258) - JTUV(4977) = JVS(1083)*UV(255)+JVS(3598)*UV(901)+JVS(12390)*UV(2852)+JVS(29695)*UV(4920)+JVS(30581)*UV(4977)& - &+JVS(44783)*UV(5250)+JVS(47678)*UV(5252)+JVS(49951)*UV(5253)+JVS(52936)*UV(5255)+JVS(54541)*UV(5256)& - &+JVS(55091)*UV(5258) - JTUV(4978) = JVS(22149)*UV(4234)+JVS(28623)*UV(4839)+JVS(30598)*UV(4978)+JVS(36602)*UV(5201)+JVS(44784)*UV(5250)& - &+JVS(46331)*UV(5251)+JVS(52937)*UV(5255)+JVS(54542)*UV(5256) - JTUV(4979) = JVS(1178)*UV(282)+JVS(3928)*UV(983)+JVS(12240)*UV(2822)+JVS(30610)*UV(4979)+JVS(34057)*UV(5151)& - &+JVS(44785)*UV(5250)+JVS(47680)*UV(5252)+JVS(49953)*UV(5253)+JVS(52938)*UV(5255)+JVS(54543)*UV(5256)& - &+JVS(55093)*UV(5258) - JTUV(4980) = JVS(1263)*UV(304)+JVS(7091)*UV(1741)+JVS(10530)*UV(2490)+JVS(11233)*UV(2628)+JVS(12707)*UV(2913)& - &+JVS(25557)*UV(4559)+JVS(30623)*UV(4980)+JVS(47681)*UV(5252)+JVS(49954)*UV(5253)+JVS(52939)*UV(5255)& - &+JVS(54544)*UV(5256) - JTUV(4981) = JVS(1240)*UV(298)+JVS(3414)*UV(855)+JVS(10416)*UV(2465)+JVS(11531)*UV(2687)+JVS(30642)*UV(4981)& - &+JVS(47682)*UV(5252)+JVS(49955)*UV(5253)+JVS(52940)*UV(5255)+JVS(54545)*UV(5256) - JTUV(4982) = JVS(7822)*UV(1891)+JVS(16928)*UV(3618)+JVS(30653)*UV(4982)+JVS(47683)*UV(5252)+JVS(49956)*UV(5253)& - &+JVS(52941)*UV(5255)+JVS(54546)*UV(5256) - JTUV(4983) = JVS(30683)*UV(4983)+JVS(37234)*UV(5216)+JVS(44789)*UV(5250)+JVS(46335)*UV(5251)+JVS(52942)*UV(5255) - JTUV(4984) = JVS(4692)*UV(1173)+JVS(13127)*UV(2987)+JVS(25461)*UV(4549)+JVS(30707)*UV(4984)+JVS(44790)*UV(5250)& - &+JVS(47684)*UV(5252)+JVS(49957)*UV(5253)+JVS(52943)*UV(5255)+JVS(54547)*UV(5256) - JTUV(4985) = JVS(11120)*UV(2603)+JVS(14790)*UV(3300)+JVS(18128)*UV(3765)+JVS(27005)*UV(4694)+JVS(30724)*UV(4985)& - &+JVS(44791)*UV(5250)+JVS(47685)*UV(5252)+JVS(49958)*UV(5253)+JVS(52944)*UV(5255)+JVS(54548)*UV(5256) - JTUV(4986) = JVS(4434)*UV(1109)+JVS(12513)*UV(2876)+JVS(20670)*UV(4071)+JVS(24772)*UV(4491)+JVS(30752)*UV(4986)& - &+JVS(44792)*UV(5250)+JVS(47686)*UV(5252)+JVS(49959)*UV(5253)+JVS(52945)*UV(5255)+JVS(54549)*UV(5256)& - &+JVS(55094)*UV(5258) - JTUV(4987) = JVS(5407)*UV(1351)+JVS(6782)*UV(1676)+JVS(6839)*UV(1689)+JVS(30762)*UV(4987)+JVS(47687)*UV(5252)& - &+JVS(49960)*UV(5253)+JVS(52946)*UV(5255)+JVS(54550)*UV(5256) - JTUV(4988) = JVS(7115)*UV(1746)+JVS(10438)*UV(2470)+JVS(19132)*UV(3891)+JVS(19188)*UV(3898)+JVS(19737)*UV(3963)& - &+JVS(19800)*UV(3971)+JVS(30770)*UV(4988)+JVS(31826)*UV(5048)+JVS(32572)*UV(5092)+JVS(44794)*UV(5250)& - &+JVS(54551)*UV(5256)+JVS(55096)*UV(5258) - JTUV(4989) = JVS(1938)*UV(496)+JVS(5632)*UV(1407)+JVS(6548)*UV(1624)+JVS(11523)*UV(2685)+JVS(30782)*UV(4989)& - &+JVS(44795)*UV(5250)+JVS(47689)*UV(5252)+JVS(49962)*UV(5253)+JVS(52948)*UV(5255)+JVS(54552)*UV(5256)& - &+JVS(55097)*UV(5258) - JTUV(4990) = JVS(3498)*UV(876)+JVS(11904)*UV(2755)+JVS(30794)*UV(4990)+JVS(35711)*UV(5192)+JVS(44796)*UV(5250)& - &+JVS(47690)*UV(5252)+JVS(49963)*UV(5253)+JVS(52949)*UV(5255)+JVS(54553)*UV(5256) - JTUV(4991) = JVS(4394)*UV(1099)+JVS(11492)*UV(2679)+JVS(30817)*UV(4991)+JVS(47691)*UV(5252)+JVS(49964)*UV(5253)& - &+JVS(52950)*UV(5255)+JVS(54554)*UV(5256) - JTUV(4992) = JVS(2432)*UV(623)+JVS(6741)*UV(1665)+JVS(14597)*UV(3262)+JVS(17600)*UV(3702)+JVS(30831)*UV(4992)& - &+JVS(47692)*UV(5252)+JVS(49965)*UV(5253)+JVS(52951)*UV(5255)+JVS(54555)*UV(5256) - JTUV(4993) = JVS(14686)*UV(3280)+JVS(14743)*UV(3290)+JVS(16686)*UV(3590)+JVS(20251)*UV(4024)+JVS(30840)*UV(4993)& - &+JVS(44799)*UV(5250)+JVS(47693)*UV(5252)+JVS(49966)*UV(5253)+JVS(52952)*UV(5255)+JVS(54556)*UV(5256)& - &+JVS(55098)*UV(5258) - JTUV(4994) = JVS(1523)*UV(379)+JVS(3322)*UV(832)+JVS(13318)*UV(3023)+JVS(29386)*UV(4901)+JVS(30851)*UV(4994)& - &+JVS(44800)*UV(5250)+JVS(47694)*UV(5252)+JVS(49967)*UV(5253)+JVS(52953)*UV(5255)+JVS(54557)*UV(5256)& - &+JVS(55099)*UV(5258) - JTUV(4995) = JVS(1652)*UV(416)+JVS(6797)*UV(1679)+JVS(9716)*UV(2306)+JVS(10372)*UV(2456)+JVS(30870)*UV(4995)& - &+JVS(35388)*UV(5184)+JVS(47695)*UV(5252)+JVS(49968)*UV(5253)+JVS(52954)*UV(5255)+JVS(54558)*UV(5256) - JTUV(4996) = JVS(25495)*UV(4552)+JVS(27800)*UV(4768)+JVS(29770)*UV(4926)+JVS(30894)*UV(4996)+JVS(36606)*UV(5201)& - &+JVS(37162)*UV(5214)+JVS(44802)*UV(5250)+JVS(46347)*UV(5251)+JVS(52955)*UV(5255)+JVS(54559)*UV(5256) - JTUV(4997) = JVS(45)*UV(3)+JVS(3443)*UV(862)+JVS(29668)*UV(4918)+JVS(30904)*UV(4997)+JVS(31762)*UV(5046)+JVS(46348)& - &*UV(5251)+JVS(47697)*UV(5252)+JVS(49970)*UV(5253)+JVS(50261)*UV(5254)+JVS(54560)*UV(5256) - JTUV(4998) = JVS(46)*UV(3)+JVS(4443)*UV(1111)+JVS(29854)*UV(4931)+JVS(30915)*UV(4998)+JVS(31763)*UV(5046)+JVS(46349)& - &*UV(5251)+JVS(47698)*UV(5252)+JVS(49971)*UV(5253)+JVS(50262)*UV(5254)+JVS(54561)*UV(5256) - JTUV(4999) = JVS(47)*UV(3)+JVS(7204)*UV(1764)+JVS(30926)*UV(4999)+JVS(31764)*UV(5046)+JVS(39282)*UV(5234)+JVS(46350)& - &*UV(5251)+JVS(47699)*UV(5252)+JVS(49972)*UV(5253)+JVS(50263)*UV(5254)+JVS(54562)*UV(5256) - JTUV(5000) = JVS(30964)*UV(5000)+JVS(34462)*UV(5160)+JVS(39788)*UV(5243)+JVS(44806)*UV(5250)+JVS(46351)*UV(5251)& - &+JVS(52959)*UV(5255) - JTUV(5001) = JVS(7427)*UV(1810)+JVS(21134)*UV(4125)+JVS(31002)*UV(5001)+JVS(32606)*UV(5094)+JVS(47700)*UV(5252)& - &+JVS(49973)*UV(5253)+JVS(52960)*UV(5255)+JVS(54563)*UV(5256) - JTUV(5002) = JVS(105)*UV(19)+JVS(6812)*UV(1682)+JVS(17018)*UV(3630)+JVS(23207)*UV(4339)+JVS(23592)*UV(4383)+JVS(25664)& - &*UV(4570)+JVS(31013)*UV(5002)+JVS(35515)*UV(5188)+JVS(36609)*UV(5201)+JVS(36947)*UV(5209)+JVS(39128)& - &*UV(5233)+JVS(44808)*UV(5250)+JVS(46353)*UV(5251)+JVS(52961)*UV(5255)+JVS(54564)*UV(5256)+JVS(55101)& - &*UV(5258) - JTUV(5003) = JVS(15378)*UV(3392)+JVS(15889)*UV(3477)+JVS(16476)*UV(3563)+JVS(31022)*UV(5003)+JVS(37006)*UV(5210)& - &+JVS(44809)*UV(5250)+JVS(47702)*UV(5252)+JVS(49975)*UV(5253)+JVS(52962)*UV(5255)+JVS(54565)*UV(5256)& - &+JVS(55102)*UV(5258) - JTUV(5004) = JVS(5283)*UV(1320)+JVS(13245)*UV(3008)+JVS(14428)*UV(3233)+JVS(27801)*UV(4768)+JVS(31047)*UV(5004)& - &+JVS(44810)*UV(5250)+JVS(47703)*UV(5252)+JVS(49976)*UV(5253)+JVS(52963)*UV(5255)+JVS(54566)*UV(5256)& - &+JVS(55103)*UV(5258) - JTUV(5005) = JVS(16037)*UV(3500)+JVS(16248)*UV(3532)+JVS(16413)*UV(3555)+JVS(23863)*UV(4406)+JVS(31062)*UV(5005)& - &+JVS(44811)*UV(5250)+JVS(47704)*UV(5252)+JVS(49977)*UV(5253)+JVS(52964)*UV(5255)+JVS(54567)*UV(5256)& - &+JVS(55104)*UV(5258) - JTUV(5006) = JVS(1925)*UV(492)+JVS(5271)*UV(1317)+JVS(11361)*UV(2651)+JVS(20571)*UV(4059)+JVS(31088)*UV(5006)& - &+JVS(44812)*UV(5250)+JVS(47705)*UV(5252)+JVS(49978)*UV(5253)+JVS(52965)*UV(5255)+JVS(54568)*UV(5256)& - &+JVS(55105)*UV(5258) - JTUV(5007) = JVS(1375)*UV(335)+JVS(2398)*UV(615)+JVS(7286)*UV(1782)+JVS(10598)*UV(2503)+JVS(23626)*UV(4386)+JVS(31106)& - &*UV(5007)+JVS(47706)*UV(5252)+JVS(49979)*UV(5253)+JVS(52966)*UV(5255)+JVS(54569)*UV(5256) - JTUV(5008) = JVS(1570)*UV(393)+JVS(4536)*UV(1134)+JVS(11519)*UV(2684)+JVS(31107)*UV(5007)+JVS(31123)*UV(5008)& - &+JVS(44814)*UV(5250)+JVS(47707)*UV(5252)+JVS(49980)*UV(5253)+JVS(52967)*UV(5255)+JVS(54570)*UV(5256)& - &+JVS(55106)*UV(5258) - JTUV(5009) = JVS(22615)*UV(4281)+JVS(31138)*UV(5009)+JVS(36610)*UV(5201)+JVS(38069)*UV(5230)+JVS(44815)*UV(5250)& - &+JVS(46358)*UV(5251)+JVS(52968)*UV(5255)+JVS(54571)*UV(5256) - JTUV(5010) = JVS(18350)*UV(3792)+JVS(23917)*UV(4411)+JVS(25580)*UV(4561)+JVS(31159)*UV(5010)+JVS(40314)*UV(5244)& - &+JVS(44816)*UV(5250)+JVS(52969)*UV(5255) - JTUV(5011) = JVS(7554)*UV(1833)+JVS(15180)*UV(3366)+JVS(31180)*UV(5011)+JVS(47710)*UV(5252)+JVS(49983)*UV(5253)& - &+JVS(52970)*UV(5255)+JVS(54573)*UV(5256) - JTUV(5012) = JVS(21851)*UV(4206)+JVS(31202)*UV(5012)+JVS(34947)*UV(5178)+JVS(36612)*UV(5201)+JVS(44818)*UV(5250)& - &+JVS(46360)*UV(5251)+JVS(52971)*UV(5255)+JVS(54574)*UV(5256) - JTUV(5013) = JVS(842)*UV(194)+JVS(3271)*UV(819)+JVS(7351)*UV(1795)+JVS(31213)*UV(5013)+JVS(34823)*UV(5173)+JVS(35029)& - &*UV(5180)+JVS(35517)*UV(5188)+JVS(44819)*UV(5250)+JVS(49985)*UV(5253)+JVS(55108)*UV(5258) - JTUV(5014) = JVS(1064)*UV(251)+JVS(3594)*UV(900)+JVS(11349)*UV(2648)+JVS(20808)*UV(4088)+JVS(31225)*UV(5014)& - &+JVS(44820)*UV(5250)+JVS(47713)*UV(5252)+JVS(49986)*UV(5253)+JVS(52973)*UV(5255)+JVS(54576)*UV(5256)& - &+JVS(55109)*UV(5258) - JTUV(5015) = JVS(1826)*UV(463)+JVS(9011)*UV(2147)+JVS(11685)*UV(2717)+JVS(17002)*UV(3628)+JVS(18663)*UV(3835)& - &+JVS(31235)*UV(5015)+JVS(47714)*UV(5252)+JVS(49987)*UV(5253)+JVS(52974)*UV(5255)+JVS(54577)*UV(5256) - JTUV(5016) = JVS(2066)*UV(533)+JVS(16126)*UV(3514)+JVS(25607)*UV(4564)+JVS(31249)*UV(5016)+JVS(32347)*UV(5080)& - &+JVS(37764)*UV(5225)+JVS(47715)*UV(5252)+JVS(49988)*UV(5253)+JVS(52975)*UV(5255)+JVS(54578)*UV(5256) - JTUV(5017) = JVS(3968)*UV(993)+JVS(5580)*UV(1394)+JVS(11636)*UV(2708)+JVS(31265)*UV(5017)+JVS(32408)*UV(5084)& - &+JVS(44823)*UV(5250)+JVS(47716)*UV(5252)+JVS(49989)*UV(5253)+JVS(52976)*UV(5255)+JVS(54579)*UV(5256)& - &+JVS(55111)*UV(5258) - JTUV(5018) = JVS(24553)*UV(4472)+JVS(29807)*UV(4929)+JVS(31282)*UV(5018)+JVS(36613)*UV(5201)+JVS(44824)*UV(5250)& - &+JVS(46365)*UV(5251)+JVS(52977)*UV(5255)+JVS(54580)*UV(5256) - JTUV(5019) = JVS(2745)*UV(697)+JVS(8021)*UV(1934)+JVS(10049)*UV(2380)+JVS(15062)*UV(3348)+JVS(31295)*UV(5019)& - &+JVS(47718)*UV(5252)+JVS(49991)*UV(5253)+JVS(52978)*UV(5255)+JVS(54581)*UV(5256) - JTUV(5020) = JVS(5159)*UV(1289)+JVS(14436)*UV(3234)+JVS(25608)*UV(4564)+JVS(30322)*UV(4958)+JVS(31307)*UV(5020)& - &+JVS(37008)*UV(5210)+JVS(47719)*UV(5252)+JVS(49992)*UV(5253)+JVS(52979)*UV(5255)+JVS(54582)*UV(5256) - JTUV(5021) = JVS(1118)*UV(265)+JVS(5111)*UV(1277)+JVS(11389)*UV(2658)+JVS(18856)*UV(3858)+JVS(31319)*UV(5021)& - &+JVS(44827)*UV(5250)+JVS(47720)*UV(5252)+JVS(49993)*UV(5253)+JVS(52980)*UV(5255)+JVS(54583)*UV(5256)& - &+JVS(55113)*UV(5258) - JTUV(5022) = JVS(1257)*UV(302)+JVS(15941)*UV(3485)+JVS(17589)*UV(3700)+JVS(20632)*UV(4066)+JVS(31329)*UV(5022)& - &+JVS(47721)*UV(5252)+JVS(49994)*UV(5253)+JVS(52981)*UV(5255)+JVS(54584)*UV(5256) - JTUV(5023) = JVS(31359)*UV(5023)+JVS(36616)*UV(5201)+JVS(38871)*UV(5232)+JVS(44829)*UV(5250)+JVS(46369)*UV(5251)& - &+JVS(52982)*UV(5255)+JVS(54585)*UV(5256) - JTUV(5024) = JVS(2760)*UV(701)+JVS(8524)*UV(2038)+JVS(18675)*UV(3837)+JVS(28371)*UV(4816)+JVS(31360)*UV(5023)& - &+JVS(31376)*UV(5024)+JVS(36617)*UV(5201)+JVS(38633)*UV(5231)+JVS(44830)*UV(5250)+JVS(54586)*UV(5256)& - &+JVS(55115)*UV(5258) - JTUV(5025) = JVS(8970)*UV(2138)+JVS(11182)*UV(2616)+JVS(14288)*UV(3204)+JVS(25665)*UV(4570)+JVS(31384)*UV(5025)& - &+JVS(35520)*UV(5188)+JVS(44831)*UV(5250)+JVS(46371)*UV(5251)+JVS(47723)*UV(5252)+JVS(49996)*UV(5253)& - &+JVS(52984)*UV(5255)+JVS(54587)*UV(5256)+JVS(55116)*UV(5258) - JTUV(5026) = JVS(31405)*UV(5026)+JVS(32697)*UV(5098)+JVS(33085)*UV(5117)+JVS(36618)*UV(5201)+JVS(44832)*UV(5250)& - &+JVS(46372)*UV(5251)+JVS(52985)*UV(5255)+JVS(54588)*UV(5256) - JTUV(5027) = JVS(1068)*UV(252)+JVS(4426)*UV(1107)+JVS(11274)*UV(2637)+JVS(23230)*UV(4342)+JVS(31423)*UV(5027)& - &+JVS(44833)*UV(5250)+JVS(47724)*UV(5252)+JVS(49997)*UV(5253)+JVS(52986)*UV(5255)+JVS(54589)*UV(5256)& - &+JVS(55117)*UV(5258) - JTUV(5028) = JVS(2587)*UV(658)+JVS(6753)*UV(1668)+JVS(8093)*UV(1950)+JVS(8889)*UV(2119)+JVS(31432)*UV(5028)+JVS(47725)& - &*UV(5252)+JVS(49998)*UV(5253)+JVS(52987)*UV(5255)+JVS(54590)*UV(5256) - JTUV(5029) = JVS(5852)*UV(1462)+JVS(8979)*UV(2140)+JVS(12915)*UV(2951)+JVS(31452)*UV(5029)+JVS(36191)*UV(5198)& - &+JVS(44835)*UV(5250)+JVS(47726)*UV(5252)+JVS(49999)*UV(5253)+JVS(52988)*UV(5255)+JVS(54591)*UV(5256)& - &+JVS(55119)*UV(5258) - JTUV(5030) = JVS(18649)*UV(3832)+JVS(24924)*UV(4505)+JVS(29780)*UV(4927)+JVS(29997)*UV(4938)+JVS(31464)*UV(5030)& - &+JVS(31588)*UV(5037)+JVS(32280)*UV(5076)+JVS(36948)*UV(5209)+JVS(37595)*UV(5222)+JVS(39133)*UV(5233)& - &+JVS(52989)*UV(5255) - JTUV(5031) = JVS(21314)*UV(4149)+JVS(31502)*UV(5031)+JVS(40324)*UV(5244)+JVS(44837)*UV(5250)+JVS(46377)*UV(5251) - JTUV(5032) = JVS(4612)*UV(1153)+JVS(8884)*UV(2118)+JVS(13557)*UV(3068)+JVS(13563)*UV(3069)+JVS(31516)*UV(5032)& - &+JVS(47729)*UV(5252)+JVS(50002)*UV(5253)+JVS(52991)*UV(5255)+JVS(54594)*UV(5256) - JTUV(5033) = JVS(4970)*UV(1242)+JVS(10854)*UV(2554)+JVS(14258)*UV(3197)+JVS(28253)*UV(4805)+JVS(31523)*UV(5033)& - &+JVS(39287)*UV(5234)+JVS(40326)*UV(5244)+JVS(44839)*UV(5250)+JVS(47730)*UV(5252)+JVS(50003)*UV(5253)& - &+JVS(52992)*UV(5255)+JVS(54595)*UV(5256)+JVS(55121)*UV(5258) - JTUV(5034) = JVS(11001)*UV(2582)+JVS(15798)*UV(3458)+JVS(20457)*UV(4047)+JVS(20602)*UV(4062)+JVS(31539)*UV(5034)& - &+JVS(44840)*UV(5250)+JVS(47731)*UV(5252)+JVS(50004)*UV(5253)+JVS(52993)*UV(5255)+JVS(54596)*UV(5256)& - &+JVS(55122)*UV(5258) - JTUV(5035) = JVS(10097)*UV(2392)+JVS(13529)*UV(3064)+JVS(15729)*UV(3443)+JVS(19987)*UV(3993)+JVS(31548)*UV(5035)& - &+JVS(44841)*UV(5250)+JVS(46381)*UV(5251)+JVS(47732)*UV(5252)+JVS(50005)*UV(5253)+JVS(52994)*UV(5255)& - &+JVS(54597)*UV(5256) - JTUV(5036) = JVS(9426)*UV(2240)+JVS(13116)*UV(2985)+JVS(14284)*UV(3203)+JVS(29511)*UV(4909)+JVS(31566)*UV(5036)& - &+JVS(44842)*UV(5250)+JVS(47733)*UV(5252)+JVS(50006)*UV(5253)+JVS(52995)*UV(5255)+JVS(54598)*UV(5256)& - &+JVS(55123)*UV(5258) - JTUV(5037) = JVS(20774)*UV(4084)+JVS(27095)*UV(4706)+JVS(31589)*UV(5037)+JVS(37599)*UV(5222)+JVS(40329)*UV(5244)& - &+JVS(44843)*UV(5250)+JVS(46383)*UV(5251)+JVS(52996)*UV(5255)+JVS(55124)*UV(5258) - JTUV(5038) = JVS(10173)*UV(2410)+JVS(10636)*UV(2511)+JVS(31614)*UV(5038)+JVS(39137)*UV(5233)+JVS(44844)*UV(5250)& - &+JVS(47735)*UV(5252)+JVS(50008)*UV(5253)+JVS(52997)*UV(5255)+JVS(54600)*UV(5256) - JTUV(5039) = JVS(1735)*UV(440)+JVS(2872)*UV(726)+JVS(5493)*UV(1372)+JVS(5496)*UV(1373)+JVS(31635)*UV(5039)+JVS(47736)& - &*UV(5252)+JVS(50009)*UV(5253)+JVS(52998)*UV(5255)+JVS(54601)*UV(5256) - JTUV(5040) = JVS(48)*UV(3)+JVS(14959)*UV(3334)+JVS(31650)*UV(5040)+JVS(31768)*UV(5046)+JVS(37345)*UV(5221)+JVS(46385)& - &*UV(5251)+JVS(47737)*UV(5252)+JVS(50010)*UV(5253)+JVS(50267)*UV(5254)+JVS(54602)*UV(5256) - JTUV(5041) = JVS(615)*UV(156)+JVS(1337)*UV(325)+JVS(4712)*UV(1178)+JVS(7235)*UV(1771)+JVS(31662)*UV(5041)+JVS(36902)& - &*UV(5207)+JVS(47738)*UV(5252)+JVS(50011)*UV(5253)+JVS(53000)*UV(5255)+JVS(54603)*UV(5256) - JTUV(5042) = JVS(26296)*UV(4634)+JVS(31677)*UV(5042)+JVS(32074)*UV(5062)+JVS(35955)*UV(5193)+JVS(36282)*UV(5200)& - &+JVS(36622)*UV(5201)+JVS(44848)*UV(5250)+JVS(46387)*UV(5251)+JVS(53001)*UV(5255)+JVS(54604)*UV(5256) - JTUV(5043) = JVS(4777)*UV(1194)+JVS(8958)*UV(2135)+JVS(14142)*UV(3175)+JVS(14625)*UV(3268)+JVS(30369)*UV(4961)& - &+JVS(31689)*UV(5043)+JVS(47740)*UV(5252)+JVS(50013)*UV(5253)+JVS(53002)*UV(5255)+JVS(54605)*UV(5256) - JTUV(5044) = JVS(2003)*UV(515)+JVS(6051)*UV(1511)+JVS(6512)*UV(1617)+JVS(11535)*UV(2688)+JVS(31704)*UV(5044)& - &+JVS(44850)*UV(5250)+JVS(47741)*UV(5252)+JVS(50014)*UV(5253)+JVS(53003)*UV(5255)+JVS(54606)*UV(5256)& - &+JVS(55127)*UV(5258) - JTUV(5045) = JVS(1835)*UV(466)+JVS(9241)*UV(2199)+JVS(10169)*UV(2409)+JVS(14953)*UV(3333)+JVS(15206)*UV(3369)& - &+JVS(31714)*UV(5045)+JVS(47742)*UV(5252)+JVS(50015)*UV(5253)+JVS(53004)*UV(5255)+JVS(54607)*UV(5256) - JTUV(5046) = JVS(31769)*UV(5046)+JVS(44852)*UV(5250)+JVS(53005)*UV(5255) - JTUV(5047) = JVS(49)*UV(3)+JVS(16440)*UV(3558)+JVS(31770)*UV(5046)+JVS(31816)*UV(5047)+JVS(46391)*UV(5251)+JVS(47743)& - &*UV(5252)+JVS(50016)*UV(5253)+JVS(50268)*UV(5254)+JVS(54608)*UV(5256) - JTUV(5048) = JVS(50)*UV(3)+JVS(17164)*UV(3646)+JVS(31771)*UV(5046)+JVS(31827)*UV(5048)+JVS(46392)*UV(5251)+JVS(47744)& - &*UV(5252)+JVS(50017)*UV(5253)+JVS(50269)*UV(5254)+JVS(54609)*UV(5256)+JVS(54828)*UV(5257) - JTUV(5049) = JVS(6628)*UV(1642)+JVS(21402)*UV(4159)+JVS(23946)*UV(4414)+JVS(25809)*UV(4588)+JVS(31841)*UV(5049)& - &+JVS(36626)*UV(5201)+JVS(39138)*UV(5233)+JVS(39288)*UV(5234)+JVS(44855)*UV(5250)+JVS(46393)*UV(5251)& - &+JVS(53008)*UV(5255)+JVS(54610)*UV(5256)+JVS(55130)*UV(5258) - JTUV(5050) = JVS(10494)*UV(2481)+JVS(25087)*UV(4516)+JVS(25810)*UV(4588)+JVS(27376)*UV(4732)+JVS(31852)*UV(5050)& - &+JVS(35030)*UV(5180)+JVS(36627)*UV(5201)+JVS(39139)*UV(5233)+JVS(44856)*UV(5250)+JVS(46394)*UV(5251)& - &+JVS(53009)*UV(5255)+JVS(54611)*UV(5256)+JVS(55131)*UV(5258) - JTUV(5051) = JVS(8398)*UV(2013)+JVS(25214)*UV(4528)+JVS(25694)*UV(4574)+JVS(25735)*UV(4579)+JVS(26406)*UV(4645)& - &+JVS(31859)*UV(5051)+JVS(34011)*UV(5149)+JVS(35676)*UV(5191)+JVS(38644)*UV(5231)+JVS(44857)*UV(5250)& - &+JVS(54612)*UV(5256)+JVS(55132)*UV(5258) - JTUV(5052) = JVS(1912)*UV(489)+JVS(6043)*UV(1509)+JVS(7080)*UV(1739)+JVS(11614)*UV(2704)+JVS(31871)*UV(5052)& - &+JVS(44858)*UV(5250)+JVS(47748)*UV(5252)+JVS(50021)*UV(5253)+JVS(53011)*UV(5255)+JVS(54613)*UV(5256)& - &+JVS(55133)*UV(5258) - JTUV(5053) = JVS(6317)*UV(1574)+JVS(12007)*UV(2774)+JVS(19709)*UV(3959)+JVS(31889)*UV(5053)+JVS(33688)*UV(5139)& - &+JVS(47749)*UV(5252)+JVS(50022)*UV(5253)+JVS(53012)*UV(5255)+JVS(54614)*UV(5256) - JTUV(5054) = JVS(1710)*UV(433)+JVS(5391)*UV(1347)+JVS(11610)*UV(2703)+JVS(21049)*UV(4116)+JVS(31908)*UV(5054)& - &+JVS(44860)*UV(5250)+JVS(47750)*UV(5252)+JVS(50023)*UV(5253)+JVS(53013)*UV(5255)+JVS(54615)*UV(5256)& - &+JVS(55134)*UV(5258) - JTUV(5055) = JVS(31931)*UV(5055)+JVS(34602)*UV(5164)+JVS(36628)*UV(5201)+JVS(36778)*UV(5202)+JVS(39727)*UV(5242)& - &+JVS(44861)*UV(5250)+JVS(46398)*UV(5251)+JVS(53014)*UV(5255)+JVS(54616)*UV(5256) - JTUV(5056) = JVS(551)*UV(144)+JVS(5958)*UV(1488)+JVS(11154)*UV(2610)+JVS(12815)*UV(2933)+JVS(31945)*UV(5056)& - &+JVS(47751)*UV(5252)+JVS(50024)*UV(5253)+JVS(53015)*UV(5255)+JVS(54617)*UV(5256) - JTUV(5057) = JVS(31962)*UV(5057)+JVS(32781)*UV(5101)+JVS(33372)*UV(5129)+JVS(36630)*UV(5201)+JVS(44863)*UV(5250)& - &+JVS(46400)*UV(5251)+JVS(53016)*UV(5255)+JVS(54618)*UV(5256) - JTUV(5058) = JVS(23363)*UV(4358)+JVS(25811)*UV(4588)+JVS(29622)*UV(4916)+JVS(30222)*UV(4951)+JVS(31990)*UV(5058)& - &+JVS(36631)*UV(5201)+JVS(39140)*UV(5233)+JVS(44864)*UV(5250)+JVS(53017)*UV(5255)+JVS(54619)*UV(5256)& - &+JVS(55136)*UV(5258) - JTUV(5059) = JVS(541)*UV(141)+JVS(1050)*UV(246)+JVS(4768)*UV(1192)+JVS(5938)*UV(1483)+JVS(32023)*UV(5059)+JVS(47753)& - &*UV(5252)+JVS(50026)*UV(5253)+JVS(53018)*UV(5255)+JVS(54620)*UV(5256) - JTUV(5060) = JVS(4552)*UV(1138)+JVS(5479)*UV(1369)+JVS(12330)*UV(2840)+JVS(14129)*UV(3173)+JVS(32045)*UV(5060)& - &+JVS(47754)*UV(5252)+JVS(50027)*UV(5253)+JVS(53019)*UV(5255)+JVS(54621)*UV(5256) - JTUV(5061) = JVS(1965)*UV(504)+JVS(7146)*UV(1753)+JVS(9450)*UV(2246)+JVS(13144)*UV(2990)+JVS(16720)*UV(3594)& - &+JVS(32058)*UV(5061)+JVS(47755)*UV(5252)+JVS(50028)*UV(5253)+JVS(53020)*UV(5255)+JVS(54622)*UV(5256) - JTUV(5062) = JVS(3016)*UV(757)+JVS(8077)*UV(1946)+JVS(10279)*UV(2435)+JVS(15646)*UV(3429)+JVS(32076)*UV(5062)& - &+JVS(34950)*UV(5178)+JVS(47756)*UV(5252)+JVS(50029)*UV(5253)+JVS(53021)*UV(5255)+JVS(54623)*UV(5256) - JTUV(5063) = JVS(23356)*UV(4357)+JVS(26614)*UV(4665)+JVS(32093)*UV(5063)+JVS(33068)*UV(5116)+JVS(36632)*UV(5201)& - &+JVS(44869)*UV(5250)+JVS(46405)*UV(5251)+JVS(53022)*UV(5255)+JVS(54624)*UV(5256) - JTUV(5064) = JVS(15857)*UV(3471)+JVS(27081)*UV(4704)+JVS(29048)*UV(4870)+JVS(32109)*UV(5064)+JVS(40337)*UV(5244)& - &+JVS(44870)*UV(5250)+JVS(53023)*UV(5255) - JTUV(5065) = JVS(855)*UV(196)+JVS(1698)*UV(429)+JVS(3386)*UV(848)+JVS(8863)*UV(2113)+JVS(13796)*UV(3110)+JVS(32116)& - &*UV(5065)+JVS(47759)*UV(5252)+JVS(50032)*UV(5253)+JVS(53024)*UV(5255)+JVS(54626)*UV(5256) - JTUV(5066) = JVS(8827)*UV(2104)+JVS(21452)*UV(4165)+JVS(25812)*UV(4588)+JVS(26323)*UV(4637)+JVS(29637)*UV(4917)& - &+JVS(29669)*UV(4918)+JVS(32129)*UV(5066)+JVS(36635)*UV(5201)+JVS(39143)*UV(5233)+JVS(44872)*UV(5250)& - &+JVS(53025)*UV(5255)+JVS(54627)*UV(5256)+JVS(55141)*UV(5258) - JTUV(5067) = JVS(22551)*UV(4275)+JVS(32145)*UV(5067)+JVS(35678)*UV(5191)+JVS(36636)*UV(5201)+JVS(38652)*UV(5231)& - &+JVS(44873)*UV(5250)+JVS(53026)*UV(5255)+JVS(54628)*UV(5256) - JTUV(5068) = JVS(14313)*UV(3210)+JVS(21258)*UV(4141)+JVS(25813)*UV(4588)+JVS(26453)*UV(4650)+JVS(29823)*UV(4930)& - &+JVS(29856)*UV(4931)+JVS(32163)*UV(5068)+JVS(32912)*UV(5106)+JVS(36637)*UV(5201)+JVS(39144)*UV(5233)& - &+JVS(44874)*UV(5250)+JVS(46410)*UV(5251)+JVS(53027)*UV(5255)+JVS(54629)*UV(5256)+JVS(55142)*UV(5258) - JTUV(5069) = JVS(2051)*UV(529)+JVS(17019)*UV(3630)+JVS(19541)*UV(3939)+JVS(24186)*UV(4436)+JVS(29512)*UV(4909)& - &+JVS(32174)*UV(5069)+JVS(36638)*UV(5201)+JVS(36949)*UV(5209)+JVS(39145)*UV(5233)+JVS(44875)*UV(5250)& - &+JVS(50036)*UV(5253)+JVS(53028)*UV(5255)+JVS(54630)*UV(5256)+JVS(55143)*UV(5258) - JTUV(5070) = JVS(51)*UV(3)+JVS(23833)*UV(4403)+JVS(31779)*UV(5046)+JVS(32186)*UV(5070)+JVS(33690)*UV(5139)+JVS(46412)& - &*UV(5251)+JVS(47764)*UV(5252)+JVS(50037)*UV(5253)+JVS(50277)*UV(5254)+JVS(54631)*UV(5256) - JTUV(5071) = JVS(30196)*UV(4949)+JVS(32215)*UV(5071)+JVS(33142)*UV(5121)+JVS(36639)*UV(5201)+JVS(44877)*UV(5250)& - &+JVS(46413)*UV(5251)+JVS(53030)*UV(5255)+JVS(54632)*UV(5256) - JTUV(5072) = JVS(24427)*UV(4459)+JVS(26488)*UV(4653)+JVS(28390)*UV(4818)+JVS(30356)*UV(4960)+JVS(32233)*UV(5072)& - &+JVS(36640)*UV(5201)+JVS(44878)*UV(5250)+JVS(46414)*UV(5251)+JVS(53031)*UV(5255)+JVS(54633)*UV(5256) - JTUV(5073) = JVS(5403)*UV(1350)+JVS(15696)*UV(3436)+JVS(23485)*UV(4371)+JVS(32248)*UV(5073)+JVS(44879)*UV(5250)& - &+JVS(47767)*UV(5252)+JVS(50040)*UV(5253)+JVS(53032)*UV(5255)+JVS(54634)*UV(5256) - JTUV(5074) = JVS(7122)*UV(1748)+JVS(8814)*UV(2101)+JVS(16970)*UV(3625)+JVS(17052)*UV(3635)+JVS(20633)*UV(4066)& - &+JVS(32260)*UV(5074)+JVS(47768)*UV(5252)+JVS(50041)*UV(5253)+JVS(53033)*UV(5255)+JVS(54635)*UV(5256) - JTUV(5075) = JVS(4916)*UV(1229)+JVS(11789)*UV(2735)+JVS(14654)*UV(3272)+JVS(25610)*UV(4564)+JVS(32270)*UV(5075)& - &+JVS(37347)*UV(5221)+JVS(44881)*UV(5250)+JVS(47769)*UV(5252)+JVS(50042)*UV(5253)+JVS(53034)*UV(5255)& - &+JVS(54636)*UV(5256)+JVS(55147)*UV(5258) - JTUV(5076) = JVS(10101)*UV(2393)+JVS(17020)*UV(3630)+JVS(23273)*UV(4347)+JVS(24925)*UV(4505)+JVS(30000)*UV(4938)& - &+JVS(30475)*UV(4968)+JVS(32281)*UV(5076)+JVS(36641)*UV(5201)+JVS(39148)*UV(5233)+JVS(44882)*UV(5250)& - &+JVS(53035)*UV(5255)+JVS(54637)*UV(5256)+JVS(55148)*UV(5258) - JTUV(5077) = JVS(1275)*UV(308)+JVS(8794)*UV(2097)+JVS(9212)*UV(2192)+JVS(12664)*UV(2906)+JVS(19420)*UV(3924)& - &+JVS(32289)*UV(5077)+JVS(47771)*UV(5252)+JVS(50044)*UV(5253)+JVS(53036)*UV(5255)+JVS(54638)*UV(5256) - JTUV(5078) = JVS(3216)*UV(806)+JVS(4274)*UV(1069)+JVS(10531)*UV(2490)+JVS(13605)*UV(3076)+JVS(32302)*UV(5078)& - &+JVS(47772)*UV(5252)+JVS(50045)*UV(5253)+JVS(53037)*UV(5255)+JVS(54639)*UV(5256) - JTUV(5079) = JVS(1714)*UV(434)+JVS(4162)*UV(1041)+JVS(14666)*UV(3275)+JVS(32047)*UV(5060)+JVS(32323)*UV(5079)& - &+JVS(44885)*UV(5250)+JVS(47773)*UV(5252)+JVS(50046)*UV(5253)+JVS(53038)*UV(5255)+JVS(54640)*UV(5256)& - &+JVS(55150)*UV(5258) - JTUV(5080) = JVS(32351)*UV(5080)+JVS(36236)*UV(5199)+JVS(38879)*UV(5232)+JVS(40343)*UV(5244)+JVS(44886)*UV(5250)& - &+JVS(53039)*UV(5255) - JTUV(5081) = JVS(5255)*UV(1313)+JVS(6768)*UV(1673)+JVS(9315)*UV(2215)+JVS(13544)*UV(3066)+JVS(16829)*UV(3607)& - &+JVS(32372)*UV(5081)+JVS(47774)*UV(5252)+JVS(50047)*UV(5253)+JVS(53040)*UV(5255)+JVS(54641)*UV(5256) - JTUV(5082) = JVS(906)*UV(205)+JVS(1384)*UV(338)+JVS(9106)*UV(2169)+JVS(9523)*UV(2264)+JVS(18839)*UV(3856)+JVS(32380)& - &*UV(5082)+JVS(47775)*UV(5252)+JVS(50048)*UV(5253)+JVS(53041)*UV(5255)+JVS(54642)*UV(5256) - JTUV(5083) = JVS(131)*UV(27)+JVS(18700)*UV(3840)+JVS(19917)*UV(3985)+JVS(21763)*UV(4197)+JVS(27540)*UV(4747)& - &+JVS(28668)*UV(4842)+JVS(28859)*UV(4855)+JVS(32398)*UV(5083)+JVS(36646)*UV(5201)+JVS(38661)*UV(5231)& - &+JVS(44889)*UV(5250)+JVS(46423)*UV(5251)+JVS(53042)*UV(5255)+JVS(54643)*UV(5256)+JVS(55153)*UV(5258) - JTUV(5084) = JVS(469)*UV(121)+JVS(627)*UV(158)+JVS(3514)*UV(880)+JVS(8316)*UV(1996)+JVS(32411)*UV(5084)+JVS(32440)& - &*UV(5085)+JVS(47777)*UV(5252)+JVS(50050)*UV(5253)+JVS(53043)*UV(5255)+JVS(54644)*UV(5256) - JTUV(5085) = JVS(20211)*UV(4019)+JVS(27611)*UV(4752)+JVS(32441)*UV(5085)+JVS(36647)*UV(5201)+JVS(44891)*UV(5250)& - &+JVS(46425)*UV(5251)+JVS(53044)*UV(5255)+JVS(54645)*UV(5256) - JTUV(5086) = JVS(22489)*UV(4268)+JVS(32482)*UV(5086)+JVS(32991)*UV(5111)+JVS(36648)*UV(5201)+JVS(44892)*UV(5250)& - &+JVS(46426)*UV(5251)+JVS(53045)*UV(5255)+JVS(54646)*UV(5256) - JTUV(5087) = JVS(29749)*UV(4924)+JVS(32507)*UV(5087)+JVS(35964)*UV(5193)+JVS(36649)*UV(5201)+JVS(44893)*UV(5250)& - &+JVS(46427)*UV(5251)+JVS(53046)*UV(5255)+JVS(54647)*UV(5256) - JTUV(5088) = JVS(1171)*UV(280)+JVS(4784)*UV(1196)+JVS(10567)*UV(2496)+JVS(22322)*UV(4251)+JVS(32524)*UV(5088)& - &+JVS(44894)*UV(5250)+JVS(47781)*UV(5252)+JVS(50054)*UV(5253)+JVS(53047)*UV(5255)+JVS(54648)*UV(5256)& - &+JVS(55156)*UV(5258) - JTUV(5089) = JVS(13940)*UV(3133)+JVS(17171)*UV(3647)+JVS(25546)*UV(4558)+JVS(29316)*UV(4895)+JVS(30725)*UV(4985)& - &+JVS(32541)*UV(5089)+JVS(36651)*UV(5201)+JVS(37603)*UV(5222)+JVS(44895)*UV(5250)+JVS(53048)*UV(5255)& - &+JVS(54649)*UV(5256)+JVS(55157)*UV(5258) - JTUV(5090) = JVS(1801)*UV(456)+JVS(6195)*UV(1547)+JVS(14844)*UV(3311)+JVS(28694)*UV(4844)+JVS(32553)*UV(5090)& - &+JVS(44896)*UV(5250)+JVS(47783)*UV(5252)+JVS(50056)*UV(5253)+JVS(53049)*UV(5255)+JVS(54650)*UV(5256)& - &+JVS(55158)*UV(5258) - JTUV(5091) = JVS(984)*UV(226)+JVS(9384)*UV(2230)+JVS(9926)*UV(2354)+JVS(11982)*UV(2770)+JVS(16953)*UV(3621)+JVS(31377)& - &*UV(5024)+JVS(32564)*UV(5091)+JVS(38666)*UV(5231)+JVS(44897)*UV(5250)+JVS(47784)*UV(5252)+JVS(50057)& - &*UV(5253)+JVS(53050)*UV(5255)+JVS(54651)*UV(5256) - JTUV(5092) = JVS(52)*UV(3)+JVS(17165)*UV(3646)+JVS(30499)*UV(4970)+JVS(32573)*UV(5092)+JVS(46432)*UV(5251)+JVS(47785)& - &*UV(5252)+JVS(50058)*UV(5253)+JVS(50280)*UV(5254)+JVS(54652)*UV(5256)+JVS(54829)*UV(5257) - JTUV(5093) = JVS(9500)*UV(2258)+JVS(9558)*UV(2272)+JVS(23222)*UV(4341)+JVS(25215)*UV(4528)+JVS(25728)*UV(4578)& - &+JVS(31363)*UV(5023)+JVS(32587)*UV(5093)+JVS(38668)*UV(5231)+JVS(38881)*UV(5232)+JVS(44899)*UV(5250)& - &+JVS(46433)*UV(5251)+JVS(53052)*UV(5255)+JVS(55161)*UV(5258) - JTUV(5094) = JVS(25538)*UV(4557)+JVS(32611)*UV(5094)+JVS(37604)*UV(5222)+JVS(44900)*UV(5250)+JVS(46434)*UV(5251)& - &+JVS(53053)*UV(5255) - JTUV(5095) = JVS(108)*UV(20)+JVS(19622)*UV(3949)+JVS(19629)*UV(3950)+JVS(20572)*UV(4059)+JVS(27542)*UV(4747)& - &+JVS(31091)*UV(5006)+JVS(32442)*UV(5085)+JVS(32640)*UV(5095)+JVS(36655)*UV(5201)+JVS(38669)*UV(5231)& - &+JVS(44901)*UV(5250)+JVS(46435)*UV(5251)+JVS(53054)*UV(5255)+JVS(54655)*UV(5256)+JVS(55162)*UV(5258) - JTUV(5096) = JVS(3701)*UV(926)+JVS(7265)*UV(1778)+JVS(9585)*UV(2278)+JVS(10826)*UV(2549)+JVS(31140)*UV(5009)& - &+JVS(32651)*UV(5096)+JVS(47789)*UV(5252)+JVS(50062)*UV(5253)+JVS(53055)*UV(5255)+JVS(54656)*UV(5256) - JTUV(5097) = JVS(4526)*UV(1132)+JVS(8773)*UV(2092)+JVS(11172)*UV(2614)+JVS(25175)*UV(4524)+JVS(31408)*UV(5026)& - &+JVS(32672)*UV(5097)+JVS(47790)*UV(5252)+JVS(50063)*UV(5253)+JVS(53056)*UV(5255)+JVS(54657)*UV(5256) - JTUV(5098) = JVS(6392)*UV(1592)+JVS(11671)*UV(2715)+JVS(23628)*UV(4386)+JVS(30002)*UV(4938)+JVS(32704)*UV(5098)& - &+JVS(47791)*UV(5252)+JVS(50064)*UV(5253)+JVS(53057)*UV(5255)+JVS(54658)*UV(5256) - JTUV(5099) = JVS(5006)*UV(1251)+JVS(11024)*UV(2587)+JVS(30500)*UV(4970)+JVS(32726)*UV(5099)+JVS(36882)*UV(5206)& - &+JVS(44905)*UV(5250)+JVS(47792)*UV(5252)+JVS(50065)*UV(5253)+JVS(53058)*UV(5255)+JVS(54659)*UV(5256)& - &+JVS(55164)*UV(5258) - JTUV(5100) = JVS(12096)*UV(2793)+JVS(15884)*UV(3476)+JVS(32756)*UV(5100)+JVS(37605)*UV(5222)+JVS(44906)*UV(5250)& - &+JVS(47793)*UV(5252)+JVS(50066)*UV(5253)+JVS(53059)*UV(5255)+JVS(54660)*UV(5256) - JTUV(5101) = JVS(5524)*UV(1380)+JVS(11472)*UV(2675)+JVS(32786)*UV(5101)+JVS(33377)*UV(5129)+JVS(44907)*UV(5250)& - &+JVS(47794)*UV(5252)+JVS(50067)*UV(5253)+JVS(53060)*UV(5255)+JVS(54661)*UV(5256) - JTUV(5102) = JVS(53)*UV(3)+JVS(26982)*UV(4693)+JVS(31785)*UV(5046)+JVS(32806)*UV(5102)+JVS(37606)*UV(5222)+JVS(46441)& - &*UV(5251)+JVS(47795)*UV(5252)+JVS(50068)*UV(5253)+JVS(50283)*UV(5254)+JVS(54662)*UV(5256) - JTUV(5103) = JVS(20750)*UV(4081)+JVS(20775)*UV(4084)+JVS(27075)*UV(4703)+JVS(32825)*UV(5103)+JVS(33691)*UV(5139)& - &+JVS(35322)*UV(5183)+JVS(37607)*UV(5222)+JVS(40354)*UV(5244)+JVS(44909)*UV(5250)+JVS(46442)*UV(5251)& - &+JVS(53062)*UV(5255)+JVS(55165)*UV(5258) - JTUV(5104) = JVS(391)*UV(99)+JVS(3526)*UV(883)+JVS(9655)*UV(2293)+JVS(11202)*UV(2621)+JVS(32849)*UV(5104)+JVS(47797)& - &*UV(5252)+JVS(50070)*UV(5253)+JVS(53063)*UV(5255)+JVS(54664)*UV(5256) - JTUV(5105) = JVS(32867)*UV(5105)+JVS(34767)*UV(5171)+JVS(36156)*UV(5197)+JVS(36658)*UV(5201)+JVS(37169)*UV(5214)& - &+JVS(40355)*UV(5244)+JVS(44911)*UV(5250)+JVS(46444)*UV(5251)+JVS(53064)*UV(5255)+JVS(54665)*UV(5256) - JTUV(5106) = JVS(2468)*UV(631)+JVS(5868)*UV(1466)+JVS(11162)*UV(2612)+JVS(32913)*UV(5106)+JVS(33942)*UV(5145)& - &+JVS(44912)*UV(5250)+JVS(47798)*UV(5252)+JVS(50071)*UV(5253)+JVS(53065)*UV(5255)+JVS(54666)*UV(5256)& - &+JVS(55167)*UV(5258) - JTUV(5107) = JVS(831)*UV(192)+JVS(1902)*UV(486)+JVS(4314)*UV(1079)+JVS(7510)*UV(1824)+JVS(14091)*UV(3166)+JVS(32926)& - &*UV(5107)+JVS(47799)*UV(5252)+JVS(50072)*UV(5253)+JVS(53066)*UV(5255)+JVS(54667)*UV(5256) - JTUV(5108) = JVS(1294)*UV(314)+JVS(5504)*UV(1375)+JVS(8071)*UV(1945)+JVS(12729)*UV(2917)+JVS(15303)*UV(3382)& - &+JVS(32937)*UV(5108)+JVS(47800)*UV(5252)+JVS(50073)*UV(5253)+JVS(53067)*UV(5255)+JVS(54668)*UV(5256) - JTUV(5109) = JVS(709)*UV(171)+JVS(991)*UV(228)+JVS(8744)*UV(2086)+JVS(10226)*UV(2422)+JVS(16070)*UV(3505)+JVS(32945)& - &*UV(5109)+JVS(47801)*UV(5252)+JVS(50074)*UV(5253)+JVS(53068)*UV(5255)+JVS(54669)*UV(5256) - JTUV(5110) = JVS(20968)*UV(4106)+JVS(32972)*UV(5110)+JVS(34230)*UV(5158)+JVS(39636)*UV(5241)+JVS(40358)*UV(5244)& - &+JVS(44916)*UV(5250)+JVS(46448)*UV(5251) - JTUV(5111) = JVS(3538)*UV(886)+JVS(11108)*UV(2600)+JVS(22490)*UV(4268)+JVS(32992)*UV(5111)+JVS(44917)*UV(5250)& - &+JVS(47803)*UV(5252)+JVS(50076)*UV(5253)+JVS(53070)*UV(5255)+JVS(54671)*UV(5256) - JTUV(5112) = JVS(861)*UV(197)+JVS(1790)*UV(453)+JVS(5039)*UV(1259)+JVS(9319)*UV(2216)+JVS(13833)*UV(3117)+JVS(33006)& - &*UV(5112)+JVS(47804)*UV(5252)+JVS(50077)*UV(5253)+JVS(53071)*UV(5255)+JVS(54672)*UV(5256) - JTUV(5113) = JVS(24459)*UV(4462)+JVS(33021)*UV(5113)+JVS(37609)*UV(5222)+JVS(38883)*UV(5232)+JVS(39366)*UV(5235)& - &+JVS(44919)*UV(5250)+JVS(46451)*UV(5251)+JVS(53072)*UV(5255) - JTUV(5114) = JVS(777)*UV(183)+JVS(1787)*UV(452)+JVS(4780)*UV(1195)+JVS(9467)*UV(2250)+JVS(33033)*UV(5114)+JVS(39583)& - &*UV(5240)+JVS(47806)*UV(5252)+JVS(50079)*UV(5253)+JVS(53073)*UV(5255)+JVS(54674)*UV(5256) - JTUV(5115) = JVS(17293)*UV(3662)+JVS(26181)*UV(4623)+JVS(33051)*UV(5115)+JVS(35428)*UV(5185)+JVS(36663)*UV(5201)& - &+JVS(44921)*UV(5250)+JVS(46453)*UV(5251)+JVS(53074)*UV(5255)+JVS(54675)*UV(5256) - JTUV(5116) = JVS(4199)*UV(1050)+JVS(7596)*UV(1842)+JVS(9335)*UV(2220)+JVS(11343)*UV(2647)+JVS(27423)*UV(4737)& - &+JVS(33069)*UV(5116)+JVS(47808)*UV(5252)+JVS(50081)*UV(5253)+JVS(53075)*UV(5255)+JVS(54676)*UV(5256) - JTUV(5117) = JVS(10117)*UV(2397)+JVS(12544)*UV(2883)+JVS(13360)*UV(3031)+JVS(32706)*UV(5098)+JVS(33091)*UV(5117)& - &+JVS(44923)*UV(5250)+JVS(47809)*UV(5252)+JVS(50082)*UV(5253)+JVS(53076)*UV(5255)+JVS(54677)*UV(5256)& - &+JVS(55172)*UV(5258) - JTUV(5118) = JVS(2365)*UV(607)+JVS(6721)*UV(1661)+JVS(15533)*UV(3413)+JVS(21026)*UV(4113)+JVS(33102)*UV(5118)& - &+JVS(34687)*UV(5168)+JVS(37319)*UV(5220)+JVS(47810)*UV(5252)+JVS(50083)*UV(5253)+JVS(53077)*UV(5255)& - &+JVS(54678)*UV(5256) - JTUV(5119) = JVS(2657)*UV(675)+JVS(3852)*UV(964)+JVS(8571)*UV(2049)+JVS(8577)*UV(2050)+JVS(18582)*UV(3822)+JVS(33114)& - &*UV(5119)+JVS(47811)*UV(5252)+JVS(50084)*UV(5253)+JVS(53078)*UV(5255)+JVS(54679)*UV(5256) - JTUV(5120) = JVS(1201)*UV(289)+JVS(5966)*UV(1490)+JVS(8231)*UV(1978)+JVS(11335)*UV(2646)+JVS(23676)*UV(4391)& - &+JVS(33126)*UV(5120)+JVS(47812)*UV(5252)+JVS(50085)*UV(5253)+JVS(53079)*UV(5255)+JVS(54680)*UV(5256) - JTUV(5121) = JVS(7857)*UV(1899)+JVS(10222)*UV(2421)+JVS(11288)*UV(2639)+JVS(14505)*UV(3245)+JVS(33146)*UV(5121)& - &+JVS(35532)*UV(5188)+JVS(47813)*UV(5252)+JVS(50086)*UV(5253)+JVS(53080)*UV(5255)+JVS(54681)*UV(5256) - JTUV(5122) = JVS(1494)*UV(371)+JVS(2864)*UV(724)+JVS(7861)*UV(1900)+JVS(7927)*UV(1913)+JVS(33163)*UV(5122)+JVS(47814)& - &*UV(5252)+JVS(50087)*UV(5253)+JVS(53081)*UV(5255)+JVS(54682)*UV(5256) - JTUV(5123) = JVS(20776)*UV(4084)+JVS(25814)*UV(4588)+JVS(28578)*UV(4835)+JVS(30235)*UV(4952)+JVS(30753)*UV(4986)& - &+JVS(33203)*UV(5123)+JVS(36669)*UV(5201)+JVS(37613)*UV(5222)+JVS(39151)*UV(5233)+JVS(44929)*UV(5250)& - &+JVS(53082)*UV(5255)+JVS(54683)*UV(5256)+JVS(55175)*UV(5258) - JTUV(5124) = JVS(8525)*UV(2038)+JVS(21503)*UV(4171)+JVS(33216)*UV(5124)+JVS(36071)*UV(5195)+JVS(38684)*UV(5231)& - &+JVS(44930)*UV(5250)+JVS(54684)*UV(5256)+JVS(55176)*UV(5258) - JTUV(5125) = JVS(2721)*UV(691)+JVS(6007)*UV(1500)+JVS(10765)*UV(2537)+JVS(33289)*UV(5125)+JVS(38002)*UV(5229)& - &+JVS(44931)*UV(5250)+JVS(47817)*UV(5252)+JVS(50090)*UV(5253)+JVS(53084)*UV(5255)+JVS(54685)*UV(5256)& - &+JVS(55177)*UV(5258) - JTUV(5126) = JVS(20751)*UV(4081)+JVS(25815)*UV(4588)+JVS(29141)*UV(4877)+JVS(29327)*UV(4896)+JVS(31540)*UV(5034)& - &+JVS(33317)*UV(5126)+JVS(33694)*UV(5139)+JVS(36670)*UV(5201)+JVS(39152)*UV(5233)+JVS(44932)*UV(5250)& - &+JVS(46464)*UV(5251)+JVS(53085)*UV(5255)+JVS(54686)*UV(5256)+JVS(55178)*UV(5258) - JTUV(5127) = JVS(71)*UV(9)+JVS(3920)*UV(981)+JVS(10283)*UV(2436)+JVS(13181)*UV(2996)+JVS(20996)*UV(4109)+JVS(33327)& - &*UV(5127)+JVS(47819)*UV(5252)+JVS(50092)*UV(5253)+JVS(53086)*UV(5255)+JVS(54687)*UV(5256) - JTUV(5128) = JVS(2515)*UV(642)+JVS(15749)*UV(3448)+JVS(17215)*UV(3652)+JVS(23122)*UV(4330)+JVS(33345)*UV(5128)& - &+JVS(44934)*UV(5250)+JVS(47820)*UV(5252)+JVS(50093)*UV(5253)+JVS(53087)*UV(5255)+JVS(54688)*UV(5256)& - &+JVS(55179)*UV(5258) - JTUV(5129) = JVS(5480)*UV(1369)+JVS(8065)*UV(1944)+JVS(8520)*UV(2037)+JVS(14786)*UV(3299)+JVS(30969)*UV(5000)& - &+JVS(33378)*UV(5129)+JVS(47821)*UV(5252)+JVS(50094)*UV(5253)+JVS(53088)*UV(5255)+JVS(54689)*UV(5256) - JTUV(5130) = JVS(2123)*UV(547)+JVS(5648)*UV(1411)+JVS(7472)*UV(1818)+JVS(12138)*UV(2802)+JVS(33406)*UV(5130)& - &+JVS(47822)*UV(5252)+JVS(50095)*UV(5253)+JVS(53089)*UV(5255)+JVS(54690)*UV(5256) - JTUV(5131) = JVS(1467)*UV(364)+JVS(5920)*UV(1479)+JVS(13262)*UV(3011)+JVS(17477)*UV(3686)+JVS(33429)*UV(5131)& - &+JVS(44937)*UV(5250)+JVS(47823)*UV(5252)+JVS(50096)*UV(5253)+JVS(53090)*UV(5255)+JVS(54691)*UV(5256)& - &+JVS(55180)*UV(5258) - JTUV(5132) = JVS(3868)*UV(968)+JVS(5123)*UV(1280)+JVS(11211)*UV(2623)+JVS(14398)*UV(3228)+JVS(20871)*UV(4096)& - &+JVS(33441)*UV(5132)+JVS(47824)*UV(5252)+JVS(50097)*UV(5253)+JVS(53091)*UV(5255)+JVS(54692)*UV(5256) - JTUV(5133) = JVS(16047)*UV(3502)+JVS(16225)*UV(3529)+JVS(17369)*UV(3672)+JVS(33451)*UV(5133)+JVS(37615)*UV(5222)& - &+JVS(44939)*UV(5250)+JVS(47825)*UV(5252)+JVS(50098)*UV(5253)+JVS(53092)*UV(5255)+JVS(54693)*UV(5256)& - &+JVS(55182)*UV(5258) - JTUV(5134) = JVS(6820)*UV(1684)+JVS(16386)*UV(3550)+JVS(33470)*UV(5134)+JVS(47826)*UV(5252)+JVS(50099)*UV(5253)& - &+JVS(53093)*UV(5255)+JVS(54694)*UV(5256) - JTUV(5135) = JVS(5549)*UV(1386)+JVS(7251)*UV(1774)+JVS(8389)*UV(2011)+JVS(12878)*UV(2944)+JVS(29095)*UV(4873)& - &+JVS(33487)*UV(5135)+JVS(47827)*UV(5252)+JVS(50100)*UV(5253)+JVS(53094)*UV(5255)+JVS(54695)*UV(5256) - JTUV(5136) = JVS(6187)*UV(1545)+JVS(12529)*UV(2880)+JVS(33512)*UV(5136)+JVS(34015)*UV(5149)+JVS(44942)*UV(5250)& - &+JVS(47828)*UV(5252)+JVS(50101)*UV(5253)+JVS(53095)*UV(5255)+JVS(54696)*UV(5256) - JTUV(5137) = JVS(4144)*UV(1037)+JVS(4398)*UV(1100)+JVS(11547)*UV(2691)+JVS(31891)*UV(5053)+JVS(33562)*UV(5137)& - &+JVS(44943)*UV(5250)+JVS(47829)*UV(5252)+JVS(50102)*UV(5253)+JVS(53096)*UV(5255)+JVS(54697)*UV(5256)& - &+JVS(55183)*UV(5258) - JTUV(5138) = JVS(795)*UV(186)+JVS(1816)*UV(460)+JVS(4206)*UV(1052)+JVS(10266)*UV(2432)+JVS(13692)*UV(3091)+JVS(33575)& - &*UV(5138)+JVS(47830)*UV(5252)+JVS(50103)*UV(5253)+JVS(53097)*UV(5255)+JVS(54698)*UV(5256) - JTUV(5139) = JVS(33698)*UV(5139)+JVS(35332)*UV(5183)+JVS(36675)*UV(5201)+JVS(44945)*UV(5250)+JVS(46477)*UV(5251)& - &+JVS(53098)*UV(5255)+JVS(54699)*UV(5256) - JTUV(5140) = JVS(17294)*UV(3662)+JVS(27400)*UV(4735)+JVS(30383)*UV(4962)+JVS(30872)*UV(4995)+JVS(33729)*UV(5140)& - &+JVS(33813)*UV(5142)+JVS(35333)*UV(5183)+JVS(44946)*UV(5250)+JVS(53099)*UV(5255) - JTUV(5141) = JVS(14200)*UV(3186)+JVS(17172)*UV(3647)+JVS(18811)*UV(3853)+JVS(28048)*UV(4793)+JVS(30139)*UV(4946)& - &+JVS(33700)*UV(5139)+JVS(33752)*UV(5141)+JVS(36677)*UV(5201)+JVS(37617)*UV(5222)+JVS(44947)*UV(5250)& - &+JVS(53100)*UV(5255)+JVS(54701)*UV(5256)+JVS(55186)*UV(5258) - JTUV(5142) = JVS(7049)*UV(1733)+JVS(7126)*UV(1749)+JVS(7133)*UV(1750)+JVS(9191)*UV(2188)+JVS(33815)*UV(5142)& - &+JVS(35981)*UV(5193)+JVS(47833)*UV(5252)+JVS(50106)*UV(5253)+JVS(53101)*UV(5255)+JVS(54702)*UV(5256) - JTUV(5143) = JVS(31893)*UV(5053)+JVS(33565)*UV(5137)+JVS(33886)*UV(5143)+JVS(36678)*UV(5201)+JVS(44949)*UV(5250)& - &+JVS(46480)*UV(5251)+JVS(53102)*UV(5255)+JVS(54703)*UV(5256) - JTUV(5144) = JVS(745)*UV(177)+JVS(1131)*UV(269)+JVS(5970)*UV(1491)+JVS(9069)*UV(2161)+JVS(14003)*UV(3148)+JVS(33901)& - &*UV(5144)+JVS(47835)*UV(5252)+JVS(50108)*UV(5253)+JVS(53103)*UV(5255)+JVS(54704)*UV(5256) - JTUV(5145) = JVS(6728)*UV(1662)+JVS(8921)*UV(2126)+JVS(10245)*UV(2427)+JVS(13646)*UV(3083)+JVS(33944)*UV(5145)& - &+JVS(34483)*UV(5160)+JVS(47836)*UV(5252)+JVS(50109)*UV(5253)+JVS(53104)*UV(5255)+JVS(54705)*UV(5256) - JTUV(5146) = JVS(783)*UV(184)+JVS(1639)*UV(412)+JVS(3474)*UV(870)+JVS(8781)*UV(2094)+JVS(14104)*UV(3168)+JVS(33961)& - &*UV(5146)+JVS(47837)*UV(5252)+JVS(50110)*UV(5253)+JVS(53105)*UV(5255)+JVS(54706)*UV(5256) - JTUV(5147) = JVS(7035)*UV(1730)+JVS(7797)*UV(1885)+JVS(9857)*UV(2337)+JVS(13366)*UV(3032)+JVS(31678)*UV(5042)& - &+JVS(33977)*UV(5147)+JVS(47838)*UV(5252)+JVS(50111)*UV(5253)+JVS(53106)*UV(5255)+JVS(54707)*UV(5256) - JTUV(5148) = JVS(3579)*UV(896)+JVS(8307)*UV(1994)+JVS(10389)*UV(2459)+JVS(12585)*UV(2891)+JVS(31967)*UV(5057)& - &+JVS(33997)*UV(5148)+JVS(47839)*UV(5252)+JVS(50112)*UV(5253)+JVS(53107)*UV(5255)+JVS(54708)*UV(5256) - JTUV(5149) = JVS(3383)*UV(847)+JVS(7299)*UV(1785)+JVS(8394)*UV(2012)+JVS(14304)*UV(3208)+JVS(32148)*UV(5067)& - &+JVS(34017)*UV(5149)+JVS(47840)*UV(5252)+JVS(50113)*UV(5253)+JVS(53108)*UV(5255)+JVS(54709)*UV(5256) - JTUV(5150) = JVS(4561)*UV(1140)+JVS(7662)*UV(1856)+JVS(9454)*UV(2247)+JVS(12855)*UV(2939)+JVS(31934)*UV(5055)& - &+JVS(34039)*UV(5150)+JVS(47841)*UV(5252)+JVS(50114)*UV(5253)+JVS(53109)*UV(5255)+JVS(54710)*UV(5256) - JTUV(5151) = JVS(757)*UV(179)+JVS(9976)*UV(2365)+JVS(14373)*UV(3222)+JVS(23677)*UV(4391)+JVS(28220)*UV(4801)& - &+JVS(34061)*UV(5151)+JVS(47842)*UV(5252)+JVS(50115)*UV(5253)+JVS(53110)*UV(5255)+JVS(54711)*UV(5256) - JTUV(5152) = JVS(9022)*UV(2150)+JVS(10583)*UV(2500)+JVS(12049)*UV(2783)+JVS(34103)*UV(5152)+JVS(38706)*UV(5231)& - &+JVS(44958)*UV(5250)+JVS(47843)*UV(5252)+JVS(50116)*UV(5253)+JVS(53111)*UV(5255)+JVS(54712)*UV(5256)& - &+JVS(55191)*UV(5258) - JTUV(5153) = JVS(2699)*UV(686)+JVS(8134)*UV(1959)+JVS(17057)*UV(3636)+JVS(17266)*UV(3658)+JVS(17353)*UV(3670)& - &+JVS(21013)*UV(4111)+JVS(23491)*UV(4372)+JVS(34121)*UV(5153)+JVS(36034)*UV(5194)+JVS(38707)*UV(5231)& - &+JVS(44959)*UV(5250)+JVS(54713)*UV(5256)+JVS(55192)*UV(5258) - JTUV(5154) = JVS(1105)*UV(261)+JVS(8815)*UV(2101)+JVS(11044)*UV(2590)+JVS(22374)*UV(4256)+JVS(30132)*UV(4945)& - &+JVS(34130)*UV(5154)+JVS(47845)*UV(5252)+JVS(50118)*UV(5253)+JVS(53113)*UV(5255) - JTUV(5155) = JVS(13505)*UV(3059)+JVS(14904)*UV(3326)+JVS(14960)*UV(3334)+JVS(34144)*UV(5155)+JVS(35538)*UV(5188)& - &+JVS(44961)*UV(5250)+JVS(47846)*UV(5252)+JVS(50119)*UV(5253)+JVS(53114)*UV(5255)+JVS(54715)*UV(5256)& - &+JVS(55194)*UV(5258) - JTUV(5156) = JVS(54)*UV(3)+JVS(31789)*UV(5046)+JVS(34162)*UV(5156)+JVS(37622)*UV(5222)+JVS(46492)*UV(5251)+JVS(47847)& - &*UV(5252)+JVS(50120)*UV(5253)+JVS(50290)*UV(5254)+JVS(54716)*UV(5256) - JTUV(5157) = JVS(20865)*UV(4095)+JVS(31894)*UV(5053)+JVS(34189)*UV(5157)+JVS(35339)*UV(5183)+JVS(39645)*UV(5241)& - &+JVS(40376)*UV(5244)+JVS(44963)*UV(5250) - JTUV(5158) = JVS(3326)*UV(833)+JVS(13310)*UV(3021)+JVS(34238)*UV(5158)+JVS(39646)*UV(5241)+JVS(44964)*UV(5250)& - &+JVS(47849)*UV(5252)+JVS(50122)*UV(5253)+JVS(53117)*UV(5255)+JVS(54718)*UV(5256) - JTUV(5159) = JVS(24800)*UV(4493)+JVS(26558)*UV(4660)+JVS(31296)*UV(5019)+JVS(34259)*UV(5159)+JVS(36688)*UV(5201)& - &+JVS(44965)*UV(5250)+JVS(46495)*UV(5251)+JVS(53118)*UV(5255)+JVS(54719)*UV(5256) - JTUV(5160) = JVS(34487)*UV(5160)+JVS(37929)*UV(5228)+JVS(39647)*UV(5241)+JVS(40378)*UV(5244)+JVS(44966)*UV(5250) - JTUV(5161) = JVS(733)*UV(175)+JVS(8731)*UV(2083)+JVS(10133)*UV(2400)+JVS(11426)*UV(2665)+JVS(33888)*UV(5143)& - &+JVS(34543)*UV(5161)+JVS(47851)*UV(5252)+JVS(50124)*UV(5253)+JVS(53119)*UV(5255)+JVS(54720)*UV(5256) - JTUV(5162) = JVS(27706)*UV(4760)+JVS(31860)*UV(5051)+JVS(34568)*UV(5162)+JVS(34582)*UV(5163)+JVS(35986)*UV(5193)& - &+JVS(36690)*UV(5201)+JVS(44968)*UV(5250)+JVS(46497)*UV(5251)+JVS(53120)*UV(5255)+JVS(54721)*UV(5256) - JTUV(5163) = JVS(639)*UV(160)+JVS(1407)*UV(345)+JVS(9369)*UV(2227)+JVS(9619)*UV(2285)+JVS(34583)*UV(5163)+JVS(34652)& - &*UV(5165)+JVS(47853)*UV(5252)+JVS(50126)*UV(5253)+JVS(53121)*UV(5255)+JVS(54722)*UV(5256) - JTUV(5164) = JVS(1359)*UV(330)+JVS(4056)*UV(1015)+JVS(10703)*UV(2525)+JVS(34608)*UV(5164)+JVS(36786)*UV(5202)& - &+JVS(44970)*UV(5250)+JVS(47854)*UV(5252)+JVS(50127)*UV(5253)+JVS(53122)*UV(5255)+JVS(54723)*UV(5256)& - &+JVS(55199)*UV(5258) - JTUV(5165) = JVS(19077)*UV(3884)+JVS(30124)*UV(4944)+JVS(34653)*UV(5165)+JVS(36693)*UV(5201)+JVS(36928)*UV(5208)& - &+JVS(44971)*UV(5250)+JVS(46500)*UV(5251)+JVS(53123)*UV(5255)+JVS(54724)*UV(5256) - JTUV(5166) = JVS(2360)*UV(606)+JVS(2366)*UV(607)+JVS(2696)*UV(685)+JVS(2763)*UV(702)+JVS(2824)*UV(715)+JVS(10469)& - &*UV(2476)+JVS(14037)*UV(3155)+JVS(17045)*UV(3634)+JVS(28055)*UV(4794)+JVS(29476)*UV(4907)+JVS(33442)& - &*UV(5132)+JVS(34663)*UV(5166)+JVS(37808)*UV(5226)+JVS(37825)*UV(5227)+JVS(38716)*UV(5231)+JVS(44972)& - &*UV(5250)+JVS(53124)*UV(5255)+JVS(54725)*UV(5256)+JVS(55201)*UV(5258) - JTUV(5167) = JVS(5704)*UV(1425)+JVS(10935)*UV(2570)+JVS(11135)*UV(2606)+JVS(34676)*UV(5167)+JVS(37351)*UV(5221)& - &+JVS(44973)*UV(5250)+JVS(47857)*UV(5252)+JVS(50130)*UV(5253)+JVS(53125)*UV(5255)+JVS(55202)*UV(5258) - JTUV(5168) = JVS(2189)*UV(563)+JVS(6722)*UV(1661)+JVS(8723)*UV(2081)+JVS(29514)*UV(4909)+JVS(31236)*UV(5015)& - &+JVS(34689)*UV(5168)+JVS(39303)*UV(5234)+JVS(44974)*UV(5250)+JVS(50131)*UV(5253)+JVS(55203)*UV(5258) - JTUV(5169) = JVS(567)*UV(148)+JVS(18789)*UV(3850)+JVS(19006)*UV(3876)+JVS(27543)*UV(4747)+JVS(28735)*UV(4847)& - &+JVS(34709)*UV(5169)+JVS(34872)*UV(5176)+JVS(36695)*UV(5201)+JVS(38719)*UV(5231)+JVS(39408)*UV(5236)& - &+JVS(44975)*UV(5250)+JVS(46504)*UV(5251)+JVS(53127)*UV(5255)+JVS(54728)*UV(5256)+JVS(55204)*UV(5258) - JTUV(5170) = JVS(55)*UV(3)+JVS(28142)*UV(4796)+JVS(31792)*UV(5046)+JVS(34737)*UV(5170)+JVS(39158)*UV(5233)+JVS(46505)& - &*UV(5251)+JVS(47860)*UV(5252)+JVS(50133)*UV(5253)+JVS(50294)*UV(5254)+JVS(54729)*UV(5256) - JTUV(5171) = JVS(4804)*UV(1201)+JVS(11206)*UV(2622)+JVS(34771)*UV(5171)+JVS(36164)*UV(5197)+JVS(44977)*UV(5250)& - &+JVS(47861)*UV(5252)+JVS(50134)*UV(5253)+JVS(53129)*UV(5255)+JVS(54730)*UV(5256) - JTUV(5172) = JVS(15127)*UV(3358)+JVS(22749)*UV(4294)+JVS(34805)*UV(5172)+JVS(40386)*UV(5244)+JVS(44978)*UV(5250)& - &+JVS(47862)*UV(5252)+JVS(50135)*UV(5253)+JVS(53130)*UV(5255)+JVS(54731)*UV(5256) - JTUV(5173) = JVS(1809)*UV(458)+JVS(9074)*UV(2162)+JVS(16395)*UV(3552)+JVS(30133)*UV(4945)+JVS(34826)*UV(5173)& - &+JVS(47863)*UV(5252)+JVS(50136)*UV(5253)+JVS(53131)*UV(5255)+JVS(54732)*UV(5256) - JTUV(5174) = JVS(256)*UV(62)+JVS(8846)*UV(2109)+JVS(11411)*UV(2662)+JVS(23549)*UV(4378)+JVS(25611)*UV(4564)+JVS(34835)& - &*UV(5174)+JVS(44980)*UV(5250)+JVS(46509)*UV(5251)+JVS(47864)*UV(5252)+JVS(50137)*UV(5253)+JVS(53132)& - &*UV(5255)+JVS(54733)*UV(5256) - JTUV(5175) = JVS(978)*UV(224)+JVS(2386)*UV(612)+JVS(18973)*UV(3872)+JVS(19443)*UV(3927)+JVS(19786)*UV(3969)+JVS(34848)& - &*UV(5175)+JVS(44981)*UV(5250)+JVS(54734)*UV(5256)+JVS(55207)*UV(5258) - JTUV(5176) = JVS(28763)*UV(4849)+JVS(30764)*UV(4987)+JVS(34874)*UV(5176)+JVS(36116)*UV(5196)+JVS(36697)*UV(5201)& - &+JVS(44982)*UV(5250)+JVS(46511)*UV(5251)+JVS(53134)*UV(5255)+JVS(54735)*UV(5256) - JTUV(5177) = JVS(26315)*UV(4636)+JVS(31250)*UV(5016)+JVS(34901)*UV(5177)+JVS(36698)*UV(5201)+JVS(44983)*UV(5250)& - &+JVS(46512)*UV(5251)+JVS(53135)*UV(5255)+JVS(54736)*UV(5256) - JTUV(5178) = JVS(31895)*UV(5053)+JVS(32709)*UV(5098)+JVS(33818)*UV(5142)+JVS(34955)*UV(5178)+JVS(40392)*UV(5244)& - &+JVS(40488)*UV(5246)+JVS(44984)*UV(5250) - JTUV(5179) = JVS(1253)*UV(301)+JVS(5888)*UV(1471)+JVS(12556)*UV(2886)+JVS(34994)*UV(5179)+JVS(40489)*UV(5246)& - &+JVS(44985)*UV(5250)+JVS(47869)*UV(5252)+JVS(50142)*UV(5253)+JVS(53137)*UV(5255)+JVS(54738)*UV(5256)& - &+JVS(55210)*UV(5258) - JTUV(5180) = JVS(12441)*UV(2861)+JVS(34109)*UV(5152)+JVS(35035)*UV(5180)+JVS(36700)*UV(5201)+JVS(44986)*UV(5250)& - &+JVS(50143)*UV(5253)+JVS(54739)*UV(5256) - JTUV(5181) = JVS(2330)*UV(598)+JVS(4942)*UV(1235)+JVS(8429)*UV(2020)+JVS(12757)*UV(2922)+JVS(17504)*UV(3689)& - &+JVS(35051)*UV(5181)+JVS(47871)*UV(5252)+JVS(50144)*UV(5253)+JVS(53139)*UV(5255)+JVS(54740)*UV(5256) - JTUV(5182) = JVS(35128)*UV(5182)+JVS(36702)*UV(5201)+JVS(37177)*UV(5214)+JVS(39369)*UV(5235)+JVS(44988)*UV(5250)& - &+JVS(46517)*UV(5251)+JVS(53140)*UV(5255)+JVS(54741)*UV(5256) - JTUV(5183) = JVS(2991)*UV(751)+JVS(3944)*UV(987)+JVS(13222)*UV(3003)+JVS(33819)*UV(5142)+JVS(35344)*UV(5183)& - &+JVS(44989)*UV(5250)+JVS(47872)*UV(5252)+JVS(50145)*UV(5253)+JVS(53141)*UV(5255)+JVS(54742)*UV(5256)& - &+JVS(55213)*UV(5258) - JTUV(5184) = JVS(35400)*UV(5184)+JVS(36083)*UV(5195)+JVS(36703)*UV(5201)+JVS(39467)*UV(5237)+JVS(44990)*UV(5250)& - &+JVS(46519)*UV(5251)+JVS(53142)*UV(5255)+JVS(54743)*UV(5256) - JTUV(5185) = JVS(597)*UV(153)+JVS(1191)*UV(286)+JVS(7379)*UV(1800)+JVS(10093)*UV(2391)+JVS(29082)*UV(4872)+JVS(35431)& - &*UV(5185)+JVS(47873)*UV(5252)+JVS(50146)*UV(5253)+JVS(53143)*UV(5255)+JVS(54744)*UV(5256) - JTUV(5186) = JVS(1527)*UV(380)+JVS(5195)*UV(1298)+JVS(9018)*UV(2149)+JVS(11646)*UV(2710)+JVS(18725)*UV(3843)& - &+JVS(35440)*UV(5186)+JVS(47874)*UV(5252)+JVS(50147)*UV(5253)+JVS(53144)*UV(5255)+JVS(54745)*UV(5256) - JTUV(5187) = JVS(253)*UV(61)+JVS(18766)*UV(3848)+JVS(18781)*UV(3849)+JVS(21056)*UV(4117)+JVS(27544)*UV(4747)& - &+JVS(31424)*UV(5027)+JVS(35449)*UV(5187)+JVS(36706)*UV(5201)+JVS(38730)*UV(5231)+JVS(44993)*UV(5250)& - &+JVS(54746)*UV(5256)+JVS(55216)*UV(5258) - JTUV(5188) = JVS(35543)*UV(5188)+JVS(37634)*UV(5222)+JVS(38731)*UV(5231)+JVS(40396)*UV(5244)+JVS(44994)*UV(5250)& - &+JVS(53146)*UV(5255) - JTUV(5189) = JVS(432)*UV(112)+JVS(19163)*UV(3895)+JVS(19823)*UV(3974)+JVS(27545)*UV(4747)+JVS(30274)*UV(4955)& - &+JVS(34902)*UV(5177)+JVS(35580)*UV(5189)+JVS(36707)*UV(5201)+JVS(37738)*UV(5224)+JVS(38732)*UV(5231)& - &+JVS(44995)*UV(5250)+JVS(46523)*UV(5251)+JVS(53147)*UV(5255)+JVS(54747)*UV(5256)+JVS(55217)*UV(5258) - JTUV(5190) = JVS(8544)*UV(2042)+JVS(25216)*UV(4528)+JVS(25867)*UV(4593)+JVS(25907)*UV(4598)+JVS(30513)*UV(4972)& - &+JVS(32653)*UV(5096)+JVS(35590)*UV(5190)+JVS(38077)*UV(5230)+JVS(38733)*UV(5231)+JVS(44996)*UV(5250)& - &+JVS(54748)*UV(5256)+JVS(55218)*UV(5258) - JTUV(5191) = JVS(33821)*UV(5142)+JVS(35347)*UV(5183)+JVS(35692)*UV(5191)+JVS(36709)*UV(5201)+JVS(44997)*UV(5250)& - &+JVS(46525)*UV(5251)+JVS(53149)*UV(5255)+JVS(54749)*UV(5256) - JTUV(5192) = JVS(1935)*UV(495)+JVS(8167)*UV(1965)+JVS(8613)*UV(2057)+JVS(11592)*UV(2699)+JVS(19861)*UV(3978)& - &+JVS(35712)*UV(5192)+JVS(47879)*UV(5252)+JVS(50152)*UV(5253)+JVS(53150)*UV(5255)+JVS(54750)*UV(5256) - JTUV(5193) = JVS(35995)*UV(5193)+JVS(36711)*UV(5201)+JVS(37935)*UV(5228)+JVS(39371)*UV(5235)+JVS(40400)*UV(5244)& - &+JVS(44999)*UV(5250)+JVS(46527)*UV(5251)+JVS(53151)*UV(5255)+JVS(54751)*UV(5256) - JTUV(5194) = JVS(11865)*UV(2748)+JVS(23579)*UV(4382)+JVS(25217)*UV(4528)+JVS(29867)*UV(4932)+JVS(30264)*UV(4954)& - &+JVS(33219)*UV(5124)+JVS(36037)*UV(5194)+JVS(36712)*UV(5201)+JVS(38735)*UV(5231)+JVS(39162)*UV(5233)& - &+JVS(45000)*UV(5250)+JVS(46528)*UV(5251)+JVS(53152)*UV(5255)+JVS(54752)*UV(5256)+JVS(55221)*UV(5258) - JTUV(5195) = JVS(1059)*UV(249)+JVS(7422)*UV(1809)+JVS(8790)*UV(2096)+JVS(11630)*UV(2707)+JVS(36090)*UV(5195)& - &+JVS(39309)*UV(5234)+JVS(47881)*UV(5252)+JVS(50154)*UV(5253)+JVS(53153)*UV(5255)+JVS(54753)*UV(5256) - JTUV(5196) = JVS(771)*UV(182)+JVS(3279)*UV(821)+JVS(5043)*UV(1260)+JVS(10036)*UV(2377)+JVS(10385)*UV(2458)+JVS(36117)& - &*UV(5196)+JVS(47882)*UV(5252)+JVS(50155)*UV(5253)+JVS(53154)*UV(5255)+JVS(54754)*UV(5256) - JTUV(5197) = JVS(7515)*UV(1825)+JVS(17642)*UV(3708)+JVS(32358)*UV(5080)+JVS(36171)*UV(5197)+JVS(36254)*UV(5199)& - &+JVS(47883)*UV(5252)+JVS(50156)*UV(5253)+JVS(53155)*UV(5255)+JVS(54755)*UV(5256) - JTUV(5198) = JVS(1140)*UV(271)+JVS(2333)*UV(599)+JVS(8349)*UV(2002)+JVS(9744)*UV(2313)+JVS(29589)*UV(4914)+JVS(36192)& - &*UV(5198)+JVS(47884)*UV(5252)+JVS(50157)*UV(5253)+JVS(53156)*UV(5255)+JVS(54756)*UV(5256) - JTUV(5199) = JVS(18477)*UV(3809)+JVS(36256)*UV(5199)+JVS(36715)*UV(5201)+JVS(40404)*UV(5244)+JVS(45005)*UV(5250)& - &+JVS(46532)*UV(5251)+JVS(53157)*UV(5255)+JVS(54757)*UV(5256) - JTUV(5200) = JVS(9623)*UV(2286)+JVS(23305)*UV(4351)+JVS(23478)*UV(4370)+JVS(25218)*UV(4528)+JVS(33148)*UV(5121)& - &+JVS(35996)*UV(5193)+JVS(36287)*UV(5200)+JVS(36790)*UV(5202)+JVS(38739)*UV(5231)+JVS(45006)*UV(5250)& - &+JVS(54758)*UV(5256)+JVS(55223)*UV(5258) - JTUV(5201) = JVS(3)*UV(1)+JVS(36717)*UV(5201)+JVS(45007)*UV(5250)+JVS(50159)*UV(5253)+JVS(54759)*UV(5256) - JTUV(5202) = JVS(9378)*UV(2229)+JVS(10223)*UV(2421)+JVS(10271)*UV(2433)+JVS(14674)*UV(3277)+JVS(32511)*UV(5087)& - &+JVS(36791)*UV(5202)+JVS(47886)*UV(5252)+JVS(50160)*UV(5253)+JVS(53159)*UV(5255)+JVS(54760)*UV(5256) - JTUV(5203) = JVS(18759)*UV(3847)+JVS(27738)*UV(4763)+JVS(32915)*UV(5106)+JVS(33949)*UV(5145)+JVS(36719)*UV(5201)& - &+JVS(36845)*UV(5203)+JVS(45009)*UV(5250)+JVS(46535)*UV(5251)+JVS(53160)*UV(5255)+JVS(54761)*UV(5256) - JTUV(5204) = JVS(2825)*UV(715)+JVS(8936)*UV(2130)+JVS(15534)*UV(3413)+JVS(21027)*UV(4113)+JVS(26090)*UV(4617)& - &+JVS(31014)*UV(5002)+JVS(34690)*UV(5168)+JVS(36857)*UV(5204)+JVS(37322)*UV(5220)+JVS(47888)*UV(5252)& - &+JVS(50162)*UV(5253)+JVS(53161)*UV(5255)+JVS(54762)*UV(5256) - JTUV(5205) = JVS(7352)*UV(1795)+JVS(17021)*UV(3630)+JVS(29306)*UV(4894)+JVS(31385)*UV(5025)+JVS(31549)*UV(5035)& - &+JVS(35549)*UV(5188)+JVS(36721)*UV(5201)+JVS(36870)*UV(5205)+JVS(36952)*UV(5209)+JVS(39164)*UV(5233)& - &+JVS(45011)*UV(5250)+JVS(46537)*UV(5251)+JVS(53162)*UV(5255)+JVS(54763)*UV(5256)+JVS(55226)*UV(5258) - JTUV(5206) = JVS(715)*UV(172)+JVS(1732)*UV(439)+JVS(4510)*UV(1128)+JVS(8842)*UV(2108)+JVS(21631)*UV(4183)+JVS(36883)& - &*UV(5206)+JVS(47890)*UV(5252)+JVS(50164)*UV(5253)+JVS(53163)*UV(5255)+JVS(54764)*UV(5256) - JTUV(5207) = JVS(2028)*UV(522)+JVS(19092)*UV(3886)+JVS(19450)*UV(3928)+JVS(20809)*UV(4088)+JVS(27546)*UV(4747)& - &+JVS(31226)*UV(5014)+JVS(36723)*UV(5201)+JVS(36903)*UV(5207)+JVS(38745)*UV(5231)+JVS(39584)*UV(5240)& - &+JVS(45013)*UV(5250)+JVS(46539)*UV(5251)+JVS(53164)*UV(5255)+JVS(54765)*UV(5256)+JVS(55228)*UV(5258) - JTUV(5208) = JVS(6881)*UV(1697)+JVS(7959)*UV(1921)+JVS(9766)*UV(2318)+JVS(12777)*UV(2926)+JVS(36929)*UV(5208)& - &+JVS(38078)*UV(5230)+JVS(47892)*UV(5252)+JVS(50166)*UV(5253)+JVS(53165)*UV(5255)+JVS(54766)*UV(5256) - JTUV(5209) = JVS(17022)*UV(3630)+JVS(17173)*UV(3647)+JVS(27859)*UV(4773)+JVS(28926)*UV(4861)+JVS(29781)*UV(4927)& - &+JVS(30841)*UV(4993)+JVS(36725)*UV(5201)+JVS(36953)*UV(5209)+JVS(37643)*UV(5222)+JVS(39165)*UV(5233)& - &+JVS(45015)*UV(5250)+JVS(46541)*UV(5251)+JVS(53166)*UV(5255)+JVS(54767)*UV(5256)+JVS(55230)*UV(5258) - JTUV(5210) = JVS(32761)*UV(5100)+JVS(36726)*UV(5201)+JVS(37022)*UV(5210)+JVS(37644)*UV(5222)+JVS(45016)*UV(5250)& - &+JVS(46542)*UV(5251)+JVS(53167)*UV(5255)+JVS(54768)*UV(5256) - JTUV(5211) = JVS(34997)*UV(5179)+JVS(36727)*UV(5201)+JVS(37066)*UV(5211)+JVS(40492)*UV(5246)+JVS(45017)*UV(5250)& - &+JVS(46543)*UV(5251)+JVS(53168)*UV(5255)+JVS(54769)*UV(5256) - JTUV(5212) = JVS(19261)*UV(3907)+JVS(27933)*UV(4781)+JVS(29275)*UV(4891)+JVS(37088)*UV(5212)+JVS(45018)*UV(5250)& - &+JVS(46544)*UV(5251)+JVS(53169)*UV(5255) - JTUV(5213) = JVS(21119)*UV(4124)+JVS(31453)*UV(5029)+JVS(36193)*UV(5198)+JVS(36728)*UV(5201)+JVS(37112)*UV(5213)& - &+JVS(45019)*UV(5250)+JVS(46545)*UV(5251)+JVS(53170)*UV(5255)+JVS(54771)*UV(5256) - JTUV(5214) = JVS(5279)*UV(1319)+JVS(12146)*UV(2804)+JVS(14525)*UV(3247)+JVS(37184)*UV(5214)+JVS(39379)*UV(5235)& - &+JVS(45020)*UV(5250)+JVS(47898)*UV(5252)+JVS(50172)*UV(5253)+JVS(53171)*UV(5255)+JVS(54772)*UV(5256)& - &+JVS(55234)*UV(5258) - JTUV(5215) = JVS(17845)*UV(3733)+JVS(18804)*UV(3852)+JVS(19895)*UV(3982)+JVS(22209)*UV(4240)+JVS(37219)*UV(5215)& - &+JVS(45021)*UV(5250) - JTUV(5216) = JVS(28143)*UV(4796)+JVS(30696)*UV(4983)+JVS(37263)*UV(5216)+JVS(45022)*UV(5250)+JVS(46548)*UV(5251)& - &+JVS(47900)*UV(5252)+JVS(50174)*UV(5253)+JVS(53173)*UV(5255)+JVS(54774)*UV(5256)+JVS(55236)*UV(5258) - JTUV(5217) = JVS(2764)*UV(702)+JVS(9724)*UV(2308)+JVS(15535)*UV(3413)+JVS(20974)*UV(4107)+JVS(27672)*UV(4758)& - &+JVS(30573)*UV(4976)+JVS(31214)*UV(5013)+JVS(36871)*UV(5205)+JVS(37285)*UV(5217)+JVS(47901)*UV(5252)& - &+JVS(50175)*UV(5253)+JVS(53174)*UV(5255)+JVS(54775)*UV(5256) - JTUV(5218) = JVS(843)*UV(194)+JVS(2361)*UV(606)+JVS(15536)*UV(3413)+JVS(20975)*UV(4107)+JVS(31215)*UV(5013)+JVS(36872)& - &*UV(5205)+JVS(37296)*UV(5218)+JVS(47902)*UV(5252)+JVS(50176)*UV(5253)+JVS(53175)*UV(5255)+JVS(54776)& - &*UV(5256) - JTUV(5219) = JVS(409)*UV(105)+JVS(2362)*UV(606)+JVS(2765)*UV(702)+JVS(9475)*UV(2252)+JVS(14469)*UV(3241)+JVS(26079)& - &*UV(4615)+JVS(37309)*UV(5219)+JVS(37826)*UV(5227)+JVS(38753)*UV(5231)+JVS(45025)*UV(5250)+JVS(47903)& - &*UV(5252)+JVS(50177)*UV(5253)+JVS(53176)*UV(5255)+JVS(54777)*UV(5256) - JTUV(5220) = JVS(8724)*UV(2081)+JVS(17174)*UV(3647)+JVS(27155)*UV(4711)+JVS(31524)*UV(5033)+JVS(34837)*UV(5174)& - &+JVS(36733)*UV(5201)+JVS(36956)*UV(5209)+JVS(37326)*UV(5220)+JVS(37650)*UV(5222)+JVS(39319)*UV(5234)& - &+JVS(40421)*UV(5244)+JVS(45026)*UV(5250)+JVS(46552)*UV(5251)+JVS(53177)*UV(5255)+JVS(54778)*UV(5256)& - &+JVS(55240)*UV(5258) - JTUV(5221) = JVS(23865)*UV(4406)+JVS(34147)*UV(5155)+JVS(35554)*UV(5188)+JVS(37360)*UV(5221)+JVS(45027)*UV(5250)& - &+JVS(46553)*UV(5251)+JVS(50179)*UV(5253)+JVS(53178)*UV(5255) - JTUV(5222) = JVS(36734)*UV(5201)+JVS(37652)*UV(5222)+JVS(40423)*UV(5244)+JVS(45028)*UV(5250)+JVS(46554)*UV(5251)& - &+JVS(53179)*UV(5255)+JVS(54780)*UV(5256) - JTUV(5223) = JVS(56)*UV(3)+JVS(2679)*UV(680)+JVS(31802)*UV(5046)+JVS(37714)*UV(5223)+JVS(38756)*UV(5231)+JVS(46555)& - &*UV(5251)+JVS(47906)*UV(5252)+JVS(50181)*UV(5253)+JVS(50308)*UV(5254)+JVS(54781)*UV(5256) - JTUV(5224) = JVS(2367)*UV(607)+JVS(2826)*UV(715)+JVS(5124)*UV(1280)+JVS(10797)*UV(2544)+JVS(14237)*UV(3194)+JVS(17856)& - &*UV(3734)+JVS(27970)*UV(4786)+JVS(37740)*UV(5224)+JVS(37811)*UV(5226)+JVS(38757)*UV(5231)+JVS(45030)& - &*UV(5250)+JVS(47907)*UV(5252)+JVS(50182)*UV(5253)+JVS(53181)*UV(5255)+JVS(54782)*UV(5256) - JTUV(5225) = JVS(19495)*UV(3933)+JVS(32363)*UV(5080)+JVS(37775)*UV(5225)+JVS(39321)*UV(5234)+JVS(40425)*UV(5244)& - &+JVS(45031)*UV(5250)+JVS(50183)*UV(5253)+JVS(53182)*UV(5255) - JTUV(5226) = JVS(2693)*UV(684)+JVS(3039)*UV(763)+JVS(17216)*UV(3652)+JVS(27948)*UV(4783)+JVS(29910)*UV(4936)& - &+JVS(33348)*UV(5128)+JVS(36737)*UV(5201)+JVS(37655)*UV(5222)+JVS(37812)*UV(5226)+JVS(38758)*UV(5231)& - &+JVS(45032)*UV(5250)+JVS(46558)*UV(5251)+JVS(53183)*UV(5255)+JVS(54784)*UV(5256)+JVS(55244)*UV(5258) - JTUV(5227) = JVS(10479)*UV(2479)+JVS(25219)*UV(4528)+JVS(31253)*UV(5016)+JVS(31309)*UV(5020)+JVS(36288)*UV(5200)& - &+JVS(37656)*UV(5222)+JVS(37827)*UV(5227)+JVS(38759)*UV(5231)+JVS(40427)*UV(5244)+JVS(45033)*UV(5250)& - &+JVS(46559)*UV(5251)+JVS(53184)*UV(5255)+JVS(55245)*UV(5258) - JTUV(5228) = JVS(342)*UV(86)+JVS(4271)*UV(1068)+JVS(6596)*UV(1634)+JVS(8551)*UV(2044)+JVS(15393)*UV(3394)+JVS(37955)& - &*UV(5228)+JVS(38760)*UV(5231)+JVS(47911)*UV(5252)+JVS(50186)*UV(5253)+JVS(53185)*UV(5255)+JVS(54786)& - &*UV(5256) - JTUV(5229) = JVS(6828)*UV(1686)+JVS(6869)*UV(1695)+JVS(8208)*UV(1974)+JVS(9648)*UV(2292)+JVS(35695)*UV(5191)& - &+JVS(38007)*UV(5229)+JVS(47912)*UV(5252)+JVS(50187)*UV(5253)+JVS(53186)*UV(5255)+JVS(54787)*UV(5256) - JTUV(5230) = JVS(27088)*UV(4705)+JVS(33220)*UV(5124)+JVS(33292)*UV(5125)+JVS(36002)*UV(5193)+JVS(36740)*UV(5201)& - &+JVS(38008)*UV(5229)+JVS(38079)*UV(5230)+JVS(45036)*UV(5250)+JVS(46561)*UV(5251)+JVS(53187)*UV(5255)& - &+JVS(54788)*UV(5256) - JTUV(5231) = JVS(1100)*UV(260)+JVS(36741)*UV(5201)+JVS(38763)*UV(5231)+JVS(45037)*UV(5250)+JVS(46562)*UV(5251)& - &+JVS(53188)*UV(5255)+JVS(54789)*UV(5256) - JTUV(5232) = JVS(7205)*UV(1764)+JVS(10181)*UV(2412)+JVS(13441)*UV(3047)+JVS(38764)*UV(5231)+JVS(38923)*UV(5232)& - &+JVS(45038)*UV(5250)+JVS(47914)*UV(5252)+JVS(50190)*UV(5253)+JVS(53189)*UV(5255)+JVS(54790)*UV(5256)& - &+JVS(55248)*UV(5258) - JTUV(5233) = JVS(1101)*UV(260)+JVS(18478)*UV(3809)+JVS(36742)*UV(5201)+JVS(38765)*UV(5231)+JVS(39176)*UV(5233)& - &+JVS(45039)*UV(5250)+JVS(46564)*UV(5251)+JVS(53190)*UV(5255)+JVS(54791)*UV(5256) - JTUV(5234) = JVS(36743)*UV(5201)+JVS(38766)*UV(5231)+JVS(38924)*UV(5232)+JVS(39177)*UV(5233)+JVS(39325)*UV(5234)& - &+JVS(45040)*UV(5250)+JVS(46565)*UV(5251)+JVS(53191)*UV(5255)+JVS(54792)*UV(5256) - JTUV(5235) = JVS(12442)*UV(2861)+JVS(24010)*UV(4420)+JVS(39178)*UV(5233)+JVS(39326)*UV(5234)+JVS(39386)*UV(5235)& - &+JVS(47917)*UV(5252)+JVS(50193)*UV(5253)+JVS(53192)*UV(5255)+JVS(54793)*UV(5256) - JTUV(5236) = JVS(869)*UV(199)+JVS(1598)*UV(401)+JVS(4820)*UV(1205)+JVS(8633)*UV(2061)+JVS(37089)*UV(5212)+JVS(39409)& - &*UV(5236)+JVS(47918)*UV(5252)+JVS(50194)*UV(5253)+JVS(53193)*UV(5255)+JVS(54794)*UV(5256) - JTUV(5237) = JVS(1020)*UV(237)+JVS(3466)*UV(868)+JVS(12252)*UV(2825)+JVS(36096)*UV(5195)+JVS(39478)*UV(5237)& - &+JVS(45043)*UV(5250)+JVS(47919)*UV(5252)+JVS(50195)*UV(5253)+JVS(53194)*UV(5255)+JVS(54795)*UV(5256)& - &+JVS(55253)*UV(5258) - JTUV(5238) = JVS(968)*UV(221)+JVS(1014)*UV(235)+JVS(1072)*UV(253)+JVS(1134)*UV(270)+JVS(1198)*UV(288)+JVS(1397)& - &*UV(342)+JVS(1689)*UV(426)+JVS(1766)*UV(447)+JVS(2126)*UV(548)+JVS(2200)*UV(566)+JVS(2286)*UV(588)& - &+JVS(2341)*UV(601)+JVS(6600)*UV(1635)+JVS(6625)*UV(1641)+JVS(6834)*UV(1688)+JVS(6924)*UV(1708)+JVS(6927)& - &*UV(1709)+JVS(7466)*UV(1817)+JVS(10070)*UV(2385)+JVS(12714)*UV(2914)+JVS(13051)*UV(2973)+JVS(17208)& - &*UV(3651)+JVS(19156)*UV(3894)+JVS(20895)*UV(4099)+JVS(21093)*UV(4121)+JVS(25672)*UV(4571)+JVS(25792)& - &*UV(4586)+JVS(27021)*UV(4696)+JVS(27384)*UV(4733)+JVS(27646)*UV(4755)+JVS(27770)*UV(4766)+JVS(29134)& - &*UV(4876)+JVS(29149)*UV(4878)+JVS(29223)*UV(4886)+JVS(29387)*UV(4901)+JVS(30083)*UV(4942)+JVS(30554)& - &*UV(4974)+JVS(30625)*UV(4980)+JVS(30645)*UV(4981)+JVS(31715)*UV(5045)+JVS(31946)*UV(5056)+JVS(32059)& - &*UV(5061)+JVS(32078)*UV(5062)+JVS(32117)*UV(5065)+JVS(32290)*UV(5077)+JVS(32303)*UV(5078)+JVS(32381)& - &*UV(5082)+JVS(32927)*UV(5107)+JVS(32946)*UV(5109)+JVS(33007)*UV(5112)+JVS(33576)*UV(5138)+JVS(33822)& - &*UV(5142)+JVS(33902)*UV(5144)+JVS(33951)*UV(5145)+JVS(33962)*UV(5146)+JVS(33978)*UV(5147)+JVS(34584)& - &*UV(5163)+JVS(35052)*UV(5181)+JVS(35441)*UV(5186)+JVS(35713)*UV(5192)+JVS(36930)*UV(5208)+JVS(37959)& - &*UV(5228)+JVS(38009)*UV(5229)+JVS(39531)*UV(5238) - JTUV(5239) = JVS(3668)*UV(918)+JVS(10127)*UV(2399)+JVS(16253)*UV(3533)+JVS(31969)*UV(5057)+JVS(39554)*UV(5239)& - &+JVS(47921)*UV(5252)+JVS(50197)*UV(5253)+JVS(53196)*UV(5255)+JVS(54797)*UV(5256) - JTUV(5240) = JVS(20413)*UV(4043)+JVS(27434)*UV(4738)+JVS(36747)*UV(5201)+JVS(39585)*UV(5240)+JVS(45046)*UV(5250)& - &+JVS(46571)*UV(5251)+JVS(53197)*UV(5255)+JVS(54798)*UV(5256) - JTUV(5241) = JVS(9809)*UV(2326)+JVS(23593)*UV(4383)+JVS(35559)*UV(5188)+JVS(37661)*UV(5222)+JVS(39669)*UV(5241)& - &+JVS(45047)*UV(5250)+JVS(47923)*UV(5252)+JVS(50199)*UV(5253)+JVS(53198)*UV(5255)+JVS(54799)*UV(5256) - JTUV(5242) = JVS(34245)*UV(5158)+JVS(36748)*UV(5201)+JVS(38774)*UV(5231)+JVS(39670)*UV(5241)+JVS(39755)*UV(5242)& - &+JVS(45048)*UV(5250)+JVS(54800)*UV(5256) - JTUV(5243) = JVS(9300)*UV(2211)+JVS(9972)*UV(2364)+JVS(12092)*UV(2792)+JVS(34503)*UV(5160)+JVS(39808)*UV(5243)& - &+JVS(45049)*UV(5250)+JVS(47925)*UV(5252)+JVS(50201)*UV(5253)+JVS(53200)*UV(5255)+JVS(54801)*UV(5256)& - &+JVS(55257)*UV(5258) - JTUV(5244) = JVS(3267)*UV(818)+JVS(4262)*UV(1066)+JVS(11385)*UV(2657)+JVS(37963)*UV(5228)+JVS(40437)*UV(5244)& - &+JVS(45050)*UV(5250)+JVS(47926)*UV(5252)+JVS(50202)*UV(5253)+JVS(53201)*UV(5255)+JVS(54802)*UV(5256)& - &+JVS(55258)*UV(5258) - JTUV(5245) = JVS(1477)*UV(367)+JVS(4796)*UV(1199)+JVS(12189)*UV(2813)+JVS(18708)*UV(3841)+JVS(40462)*UV(5245)& - &+JVS(45051)*UV(5250)+JVS(47927)*UV(5252)+JVS(50203)*UV(5253)+JVS(53202)*UV(5255)+JVS(54803)*UV(5256)& - &+JVS(55259)*UV(5258) - JTUV(5246) = JVS(7841)*UV(1895)+JVS(8671)*UV(2070)+JVS(10775)*UV(2539)+JVS(30545)*UV(4973)+JVS(39757)*UV(5242)& - &+JVS(40497)*UV(5246)+JVS(47928)*UV(5252)+JVS(50204)*UV(5253)+JVS(53203)*UV(5255)+JVS(54804)*UV(5256) - JTUV(5247) = JVS(140)*UV(30)+JVS(912)*UV(206)+JVS(3478)*UV(871)+JVS(40529)*UV(5247)+JVS(47929)*UV(5252)+JVS(50205)& - &*UV(5253)+JVS(53204)*UV(5255)+JVS(54805)*UV(5256) - JTUV(5248) = JVS(25375)*UV(4542)+JVS(27714)*UV(4761)+JVS(27723)*UV(4762)+JVS(29711)*UV(4921)+JVS(30049)*UV(4940)& - &+JVS(31433)*UV(5028)+JVS(36752)*UV(5201)+JVS(40560)*UV(5248)+JVS(45054)*UV(5250)+JVS(46579)*UV(5251)& - &+JVS(53205)*UV(5255)+JVS(54806)*UV(5256) - JTUV(5249) = JVS(6294)*UV(1569)+JVS(9948)*UV(2359)+JVS(18732)*UV(3844)+JVS(19386)*UV(3920)+JVS(19761)*UV(3966)& - &+JVS(26756)*UV(4678)+JVS(26891)*UV(4691)+JVS(40577)*UV(5249)+JVS(45055)*UV(5250)+JVS(54807)*UV(5256)& - &+JVS(55263)*UV(5258) - JTUV(5250) = JVS(61)*UV(5)+JVS(72)*UV(9)+JVS(75)*UV(10)+JVS(81)*UV(12)+JVS(84)*UV(13)+JVS(92)*UV(15)+JVS(100)*UV(17)& - &+JVS(103)*UV(18)+JVS(112)*UV(21)+JVS(115)*UV(22)+JVS(118)*UV(23)+JVS(121)*UV(24)+JVS(129)*UV(26)+JVS(135)& - &*UV(28)+JVS(141)*UV(30)+JVS(144)*UV(31)+JVS(147)*UV(32)+JVS(150)*UV(33)+JVS(153)*UV(34)+JVS(169)*UV(38)& - &+JVS(172)*UV(39)+JVS(175)*UV(40)+JVS(178)*UV(41)+JVS(201)*UV(46)+JVS(204)*UV(47)+JVS(207)*UV(48)+JVS(225)& - &*UV(52)+JVS(228)*UV(53)+JVS(231)*UV(54)+JVS(234)*UV(55)+JVS(237)*UV(56)+JVS(245)*UV(58)+JVS(248)*UV(59)& - &+JVS(251)*UV(60)+JVS(257)*UV(62)+JVS(260)*UV(63)+JVS(263)*UV(64)+JVS(279)*UV(68)+JVS(287)*UV(70)+JVS(290)& - &*UV(71)+JVS(293)*UV(72)+JVS(296)*UV(73)+JVS(299)*UV(74)+JVS(302)*UV(75)+JVS(310)*UV(77)+JVS(318)*UV(79)& - &+JVS(326)*UV(81)+JVS(334)*UV(83)+JVS(337)*UV(84)+JVS(340)*UV(85)+JVS(346)*UV(87)+JVS(354)*UV(89)+JVS(357)& - &*UV(90)+JVS(370)*UV(93)+JVS(373)*UV(94)+JVS(376)*UV(95)+JVS(389)*UV(98)+JVS(392)*UV(99)+JVS(395)*UV(100)& - &+JVS(398)*UV(101)+JVS(401)*UV(102)+JVS(404)*UV(103)+JVS(407)*UV(104)+JVS(410)*UV(105)+JVS(413)*UV(106)& - &+JVS(421)*UV(108)+JVS(424)*UV(109)+JVS(427)*UV(110)+JVS(430)*UV(111)+JVS(441)*UV(114)+JVS(459)*UV(118)& - &+JVS(462)*UV(119)+JVS(470)*UV(121)+JVS(474)*UV(122)+JVS(477)*UV(123)+JVS(480)*UV(124)+JVS(488)*UV(126)& - &+JVS(491)*UV(127)+JVS(494)*UV(128)+JVS(497)*UV(129)+JVS(513)*UV(133)+JVS(516)*UV(134)+JVS(519)*UV(135)& - &+JVS(522)*UV(136)+JVS(533)*UV(139)+JVS(546)*UV(142)+JVS(549)*UV(143)+JVS(552)*UV(144)+JVS(565)*UV(147)& - &+JVS(591)*UV(152)+JVS(658)*UV(163)+JVS(665)*UV(164)+JVS(696)*UV(169)+JVS(703)*UV(170)+JVS(767)*UV(181)& - &+JVS(865)*UV(198)+JVS(900)*UV(204)+JVS(913)*UV(206)+JVS(918)*UV(207)+JVS(922)*UV(208)+JVS(925)*UV(209)& - &+JVS(928)*UV(210)+JVS(935)*UV(211)+JVS(940)*UV(212)+JVS(943)*UV(213)+JVS(949)*UV(215)+JVS(953)*UV(216)& - &+JVS(957)*UV(217)+JVS(960)*UV(218)+JVS(963)*UV(219)+JVS(966)*UV(220)+JVS(969)*UV(221)+JVS(972)*UV(222)& - &+JVS(976)*UV(223)+JVS(982)*UV(225)+JVS(985)*UV(226)+JVS(988)*UV(227)+JVS(992)*UV(228)+JVS(995)*UV(229)& - &+JVS(998)*UV(230)+JVS(1002)*UV(231)+JVS(1006)*UV(232)+JVS(1009)*UV(233)+JVS(1012)*UV(234)+JVS(1015)& - &*UV(235)+JVS(1021)*UV(237)+JVS(1025)*UV(238)+JVS(1031)*UV(240)+JVS(1035)*UV(241)+JVS(1039)*UV(242)& - &+JVS(1045)*UV(244)+JVS(1048)*UV(245)+JVS(1051)*UV(246)+JVS(1054)*UV(247)+JVS(1057)*UV(248)+JVS(1060)& - &*UV(249)+JVS(1062)*UV(250)+JVS(1065)*UV(251)+JVS(1069)*UV(252)+JVS(1073)*UV(253)+JVS(1079)*UV(254)& - &+JVS(1084)*UV(255)+JVS(1088)*UV(256)+JVS(1091)*UV(257)+JVS(1094)*UV(258)+JVS(1098)*UV(259)+JVS(1102)& - &*UV(260)+JVS(1109)*UV(262)+JVS(1112)*UV(263)+JVS(1115)*UV(264)+JVS(1119)*UV(265)+JVS(1123)*UV(266)& - &+JVS(1126)*UV(267)+JVS(1129)*UV(268)+JVS(1132)*UV(269)+JVS(1135)*UV(270)+JVS(1145)*UV(272)+JVS(1149)& - &*UV(273)+JVS(1152)*UV(274)+JVS(1155)*UV(275)+JVS(1159)*UV(276)+JVS(1163)*UV(277)+JVS(1166)*UV(278)& - &+JVS(1169)*UV(279)+JVS(1172)*UV(280)+JVS(1176)*UV(281)+JVS(1179)*UV(282)+JVS(1183)*UV(283)+JVS(1186)& - &*UV(284)+JVS(1189)*UV(285)+JVS(1192)*UV(286)+JVS(1195)*UV(287)+JVS(1199)*UV(288)+JVS(1202)*UV(289)& - &+JVS(1208)*UV(290)+JVS(1213)*UV(291)+JVS(1217)*UV(292)+JVS(1223)*UV(294)+JVS(1227)*UV(295)+JVS(1230)& - &*UV(296)+JVS(1236)*UV(297)+JVS(1241)*UV(298)+JVS(1244)*UV(299)+JVS(1249)*UV(300)+JVS(1254)*UV(301)& - &+JVS(1258)*UV(302)+JVS(1261)*UV(303)+JVS(1264)*UV(304)+JVS(1267)*UV(305)+JVS(1270)*UV(306)+JVS(1273)& - &*UV(307)+JVS(1276)*UV(308)+JVS(1279)*UV(309)+JVS(1283)*UV(310)+JVS(1286)*UV(311)+JVS(1289)*UV(312)& - &+JVS(1292)*UV(313)+JVS(1295)*UV(314)+JVS(1301)*UV(315)+JVS(1306)*UV(316)+JVS(1309)*UV(317)+JVS(1314)& - &*UV(318)+JVS(1317)*UV(319)+JVS(1320)*UV(320)+JVS(1323)*UV(321)+JVS(1326)*UV(322)+JVS(1331)*UV(323)& - &+JVS(1334)*UV(324)+JVS(1338)*UV(325)+JVS(1344)*UV(326)+JVS(1352)*UV(328)+JVS(1356)*UV(329)+JVS(1360)& - &*UV(330)+JVS(1364)*UV(331)+JVS(1367)*UV(332)+JVS(1370)*UV(333)+JVS(1373)*UV(334)+JVS(1376)*UV(335)& - &+JVS(1379)*UV(336)+JVS(1381)*UV(337)+JVS(1385)*UV(338)+JVS(1388)*UV(339)+JVS(1391)*UV(340)+JVS(1394)& - &*UV(341)+JVS(1398)*UV(342)+JVS(1401)*UV(343)+JVS(1405)*UV(344)+JVS(1408)*UV(345)+JVS(1411)*UV(346)& - &+JVS(1414)*UV(347)+JVS(1417)*UV(348)+JVS(1420)*UV(349)+JVS(1423)*UV(350)+JVS(1426)*UV(351)+JVS(1430)& - &*UV(352)+JVS(1433)*UV(353)+JVS(1436)*UV(354)+JVS(1439)*UV(355)+JVS(1442)*UV(356)+JVS(1445)*UV(357)& - &+JVS(1448)*UV(358)+JVS(1451)*UV(359)+JVS(1454)*UV(360)+JVS(1458)*UV(361)+JVS(1464)*UV(363)+JVS(1468)& - &*UV(364)+JVS(1472)*UV(365)+JVS(1475)*UV(366)+JVS(1478)*UV(367)+JVS(1482)*UV(368)+JVS(1485)*UV(369)& - &+JVS(1490)*UV(370)+JVS(1495)*UV(371)+JVS(1498)*UV(372)+JVS(1503)*UV(373)+JVS(1506)*UV(374)+JVS(1509)& - &*UV(375)+JVS(1513)*UV(376)+JVS(1517)*UV(377)+JVS(1520)*UV(378)+JVS(1524)*UV(379)+JVS(1528)*UV(380)& - &+JVS(1531)*UV(381)+JVS(1534)*UV(382)+JVS(1537)*UV(383)+JVS(1540)*UV(384)+JVS(1544)*UV(385)+JVS(1550)& - &*UV(387)+JVS(1554)*UV(388)+JVS(1558)*UV(389)+JVS(1562)*UV(390)+JVS(1565)*UV(391)+JVS(1568)*UV(392)& - &+JVS(1571)*UV(393)+JVS(1575)*UV(394)+JVS(1578)*UV(395)+JVS(1581)*UV(396)+JVS(1586)*UV(397)+JVS(1589)& - &*UV(398)+JVS(1593)*UV(399)+JVS(1596)*UV(400)+JVS(1599)*UV(401)+JVS(1602)*UV(402)+JVS(1605)*UV(403)& - &+JVS(1610)*UV(404)+JVS(1613)*UV(405)+JVS(1617)*UV(406)+JVS(1623)*UV(407)+JVS(1628)*UV(408)+JVS(1631)& - &*UV(409)+JVS(1634)*UV(410)+JVS(1637)*UV(411)+JVS(1640)*UV(412)+JVS(1643)*UV(413)+JVS(1646)*UV(414)& - &+JVS(1650)*UV(415)+JVS(1653)*UV(416)+JVS(1656)*UV(417)+JVS(1659)*UV(418)+JVS(1665)*UV(420)+JVS(1672)& - &*UV(421)+JVS(1677)*UV(422)+JVS(1680)*UV(423)+JVS(1684)*UV(424)+JVS(1687)*UV(425)+JVS(1690)*UV(426)& - &+JVS(1693)*UV(427)+JVS(1696)*UV(428)+JVS(1699)*UV(429)+JVS(1702)*UV(430)+JVS(1705)*UV(431)+JVS(1708)& - &*UV(432)+JVS(1711)*UV(433)+JVS(1715)*UV(434)+JVS(1720)*UV(435)+JVS(1723)*UV(436)+JVS(1726)*UV(437)& - &+JVS(1729)*UV(438)+JVS(1733)*UV(439)+JVS(1736)*UV(440)+JVS(1739)*UV(441)+JVS(1742)*UV(442)+JVS(1748)& - &*UV(443)+JVS(1753)*UV(444)+JVS(1759)*UV(445)+JVS(1764)*UV(446)+JVS(1767)*UV(447)+JVS(1770)*UV(448)& - &+JVS(1773)*UV(449)+JVS(1780)*UV(450)+JVS(1785)*UV(451)+JVS(1788)*UV(452)+JVS(1791)*UV(453)+JVS(1794)& - &*UV(454)+JVS(1799)*UV(455)+JVS(1802)*UV(456)+JVS(1806)*UV(457)+JVS(1810)*UV(458)+JVS(1813)*UV(459)& - &+JVS(1817)*UV(460)+JVS(1820)*UV(461)+JVS(1824)*UV(462)+JVS(1827)*UV(463)+JVS(1830)*UV(464)+JVS(1833)& - &*UV(465)+JVS(1836)*UV(466)+JVS(1839)*UV(467)+JVS(1842)*UV(468)+JVS(1845)*UV(469)+JVS(1848)*UV(470)& - &+JVS(1852)*UV(471)+JVS(1857)*UV(472)+JVS(1860)*UV(473)+JVS(1863)*UV(474)+JVS(1867)*UV(475)+JVS(1870)& - &*UV(476)+JVS(1876)*UV(478)+JVS(1879)*UV(479)+JVS(1883)*UV(480)+JVS(1886)*UV(481)+JVS(1889)*UV(482)& - &+JVS(1892)*UV(483)+JVS(1897)*UV(484)+JVS(1900)*UV(485)+JVS(1903)*UV(486)+JVS(1906)*UV(487)+JVS(1910)& - &*UV(488)+JVS(1913)*UV(489)+JVS(1919)*UV(490)+JVS(1922)*UV(491)+JVS(1926)*UV(492)+JVS(1930)*UV(493)& - &+JVS(1933)*UV(494)+JVS(1936)*UV(495)+JVS(1939)*UV(496)+JVS(1943)*UV(497)+JVS(1946)*UV(498)+JVS(1949)& - &*UV(499)+JVS(1953)*UV(500)+JVS(1956)*UV(501)+JVS(1959)*UV(502)+JVS(1962)*UV(503)+JVS(1966)*UV(504)& - &+JVS(1969)*UV(505)+JVS(1972)*UV(506)+JVS(1976)*UV(507)+JVS(1980)*UV(508)+JVS(1984)*UV(509)+JVS(1989)& - &*UV(510)+JVS(1992)*UV(511)+JVS(1995)*UV(512)+JVS(1998)*UV(513)+JVS(2004)*UV(515)+JVS(2008)*UV(516)& - &+JVS(2011)*UV(517)+JVS(2014)*UV(518)+JVS(2018)*UV(519)+JVS(2022)*UV(520)+JVS(2025)*UV(521)+JVS(2032)& - &*UV(523)+JVS(2035)*UV(524)+JVS(2038)*UV(525)+JVS(2041)*UV(526)+JVS(2044)*UV(527)+JVS(2055)*UV(530)& - &+JVS(2058)*UV(531)+JVS(2081)*UV(536)+JVS(2097)*UV(540)+JVS(2105)*UV(542)+JVS(2108)*UV(543)+JVS(2121)& - &*UV(546)+JVS(2124)*UV(547)+JVS(2127)*UV(548)+JVS(2155)*UV(554)+JVS(2163)*UV(556)+JVS(2174)*UV(559)& - &+JVS(2183)*UV(561)+JVS(2186)*UV(562)+JVS(2198)*UV(565)+JVS(2201)*UV(566)+JVS(2204)*UV(567)+JVS(2223)& - &*UV(572)+JVS(2241)*UV(576)+JVS(2244)*UV(577)+JVS(2249)*UV(578)+JVS(2252)*UV(579)+JVS(2255)*UV(580)& - &+JVS(2268)*UV(583)+JVS(2281)*UV(586)+JVS(2284)*UV(587)+JVS(2287)*UV(588)+JVS(2295)*UV(590)+JVS(2298)& - &*UV(591)+JVS(2309)*UV(593)+JVS(2312)*UV(594)+JVS(2331)*UV(598)+JVS(2334)*UV(599)+JVS(2342)*UV(601)& - &+JVS(2345)*UV(602)+JVS(2363)*UV(606)+JVS(2368)*UV(607)+JVS(2371)*UV(608)+JVS(2374)*UV(609)+JVS(2383)& - &*UV(611)+JVS(2391)*UV(613)+JVS(2403)*UV(616)+JVS(2426)*UV(621)+JVS(2429)*UV(622)+JVS(2447)*UV(626)& - &+JVS(2450)*UV(627)+JVS(2469)*UV(631)+JVS(2478)*UV(633)+JVS(2481)*UV(634)+JVS(2489)*UV(636)+JVS(2516)& - &*UV(642)+JVS(2540)*UV(647)+JVS(2553)*UV(650)+JVS(2556)*UV(651)+JVS(2562)*UV(652)+JVS(2565)*UV(653)& - &+JVS(2584)*UV(657)+JVS(2592)*UV(659)+JVS(2600)*UV(661)+JVS(2603)*UV(662)+JVS(2611)*UV(664)+JVS(2624)& - &*UV(667)+JVS(2626)*UV(668)+JVS(2640)*UV(671)+JVS(2658)*UV(675)+JVS(2664)*UV(677)+JVS(2669)*UV(678)& - &+JVS(2680)*UV(680)+JVS(2683)*UV(681)+JVS(2691)*UV(683)+JVS(2718)*UV(690)+JVS(2722)*UV(691)+JVS(2726)& - &*UV(692)+JVS(2734)*UV(694)+JVS(2742)*UV(696)+JVS(2755)*UV(699)+JVS(2766)*UV(702)+JVS(2787)*UV(707)& - &+JVS(2798)*UV(709)+JVS(2817)*UV(713)+JVS(2827)*UV(715)+JVS(2869)*UV(725)+JVS(2902)*UV(732)+JVS(2918)& - &*UV(735)+JVS(2921)*UV(736)+JVS(2948)*UV(742)+JVS(2992)*UV(751)+JVS(3004)*UV(754)+JVS(3017)*UV(757)& - &+JVS(3020)*UV(758)+JVS(3027)*UV(760)+JVS(3037)*UV(762)+JVS(3043)*UV(764)+JVS(3054)*UV(767)+JVS(3062)& - &*UV(769)+JVS(3073)*UV(772)+JVS(3106)*UV(779)+JVS(3134)*UV(785)+JVS(3147)*UV(788)+JVS(3150)*UV(789)& - &+JVS(3166)*UV(793)+JVS(3169)*UV(794)+JVS(3177)*UV(796)+JVS(3190)*UV(799)+JVS(3208)*UV(803)+JVS(3211)& - &*UV(804)+JVS(3214)*UV(805)+JVS(3217)*UV(806)+JVS(3220)*UV(807)+JVS(3238)*UV(811)+JVS(3241)*UV(812)& - &+JVS(3244)*UV(813)+JVS(3268)*UV(818)+JVS(3280)*UV(821)+JVS(3283)*UV(822)+JVS(3287)*UV(823)+JVS(3291)& - &*UV(824)+JVS(3295)*UV(825)+JVS(3299)*UV(826)+JVS(3303)*UV(827)+JVS(3307)*UV(828)+JVS(3311)*UV(829)& - &+JVS(3315)*UV(830)+JVS(3319)*UV(831)+JVS(3323)*UV(832)+JVS(3327)*UV(833)+JVS(3331)*UV(834)+JVS(3335)& - &*UV(835)+JVS(3339)*UV(836)+JVS(3343)*UV(837)+JVS(3347)*UV(838)+JVS(3351)*UV(839)+JVS(3355)*UV(840)& - &+JVS(3359)*UV(841)+JVS(3363)*UV(842)+JVS(3367)*UV(843)+JVS(3371)*UV(844)+JVS(3375)*UV(845)+JVS(3379)& - &*UV(846)+JVS(3384)*UV(847)+JVS(3387)*UV(848)+JVS(3391)*UV(849)+JVS(3395)*UV(850)+JVS(3399)*UV(851)& - &+JVS(3403)*UV(852)+JVS(3407)*UV(853)+JVS(3411)*UV(854)+JVS(3415)*UV(855)+JVS(3419)*UV(856)+JVS(3423)& - &*UV(857)+JVS(3427)*UV(858)+JVS(3431)*UV(859)+JVS(3435)*UV(860)+JVS(3439)*UV(861)+JVS(3444)*UV(862)& - &+JVS(3447)*UV(863)+JVS(3451)*UV(864)+JVS(3455)*UV(865)+JVS(3459)*UV(866)+JVS(3463)*UV(867)+JVS(3467)& - &*UV(868)+JVS(3471)*UV(869)+JVS(3475)*UV(870)+JVS(3479)*UV(871)+JVS(3483)*UV(872)+JVS(3487)*UV(873)& - &+JVS(3492)*UV(874)+JVS(3495)*UV(875)+JVS(3499)*UV(876)+JVS(3503)*UV(877)+JVS(3507)*UV(878)+JVS(3511)& - &*UV(879)+JVS(3515)*UV(880)+JVS(3519)*UV(881)+JVS(3523)*UV(882)+JVS(3527)*UV(883)+JVS(3531)*UV(884)& - &+JVS(3535)*UV(885)+JVS(3539)*UV(886)+JVS(3543)*UV(887)+JVS(3547)*UV(888)+JVS(3551)*UV(889)+JVS(3555)& - &*UV(890)+JVS(3559)*UV(891)+JVS(3563)*UV(892)+JVS(3567)*UV(893)+JVS(3571)*UV(894)+JVS(3576)*UV(895)& - &+JVS(3580)*UV(896)+JVS(3583)*UV(897)+JVS(3587)*UV(898)+JVS(3591)*UV(899)+JVS(3595)*UV(900)+JVS(3599)& - &*UV(901)+JVS(3603)*UV(902)+JVS(3607)*UV(903)+JVS(3611)*UV(904)+JVS(3615)*UV(905)+JVS(3619)*UV(906)& - &+JVS(3623)*UV(907)+JVS(3627)*UV(908)+JVS(3631)*UV(909)+JVS(3635)*UV(910)+JVS(3642)*UV(911)+JVS(3645)& - &*UV(912)+JVS(3649)*UV(913)+JVS(3653)*UV(914)+JVS(3657)*UV(915)+JVS(3661)*UV(916)+JVS(3665)*UV(917)& - &+JVS(3669)*UV(918)+JVS(3673)*UV(919)+JVS(3677)*UV(920)+JVS(3681)*UV(921)+JVS(3685)*UV(922)+JVS(3689)& - &*UV(923)+JVS(3693)*UV(924)+JVS(3696)*UV(925)+JVS(3702)*UV(926)+JVS(3705)*UV(927)+JVS(3709)*UV(928)& - &+JVS(3713)*UV(929)+JVS(3717)*UV(930)+JVS(3721)*UV(931)+JVS(3725)*UV(932)+JVS(3729)*UV(933)+JVS(3733)& - &*UV(934)+JVS(3737)*UV(935)+JVS(3741)*UV(936)+JVS(3745)*UV(937)+JVS(3749)*UV(938)+JVS(3753)*UV(939)& - &+JVS(3757)*UV(940)+JVS(3761)*UV(941)+JVS(3765)*UV(942)+JVS(3769)*UV(943)+JVS(3773)*UV(944)+JVS(3777)& - &*UV(945)+JVS(3781)*UV(946)+JVS(3785)*UV(947)+JVS(3789)*UV(948)+JVS(3793)*UV(949)+JVS(3797)*UV(950)& - &+JVS(3801)*UV(951)+JVS(3805)*UV(952)+JVS(3809)*UV(953)+JVS(3813)*UV(954)+JVS(3817)*UV(955)+JVS(3821)& - &*UV(956)+JVS(3825)*UV(957)+JVS(3829)*UV(958)+JVS(3833)*UV(959)+JVS(3837)*UV(960)+JVS(3841)*UV(961)& - &+JVS(3845)*UV(962)+JVS(3849)*UV(963)+JVS(3853)*UV(964)+JVS(3857)*UV(965)+JVS(3861)*UV(966)+JVS(3865)& - &*UV(967)+JVS(3869)*UV(968)+JVS(3873)*UV(969)+JVS(3877)*UV(970)+JVS(3881)*UV(971)+JVS(3885)*UV(972)& - &+JVS(3889)*UV(973)+JVS(3893)*UV(974)+JVS(3897)*UV(975)+JVS(3901)*UV(976)+JVS(3905)*UV(977)+JVS(3909)& - &*UV(978)+JVS(3913)*UV(979)+JVS(3917)*UV(980)+JVS(3921)*UV(981)+JVS(3925)*UV(982)+JVS(3929)*UV(983)& - &+JVS(3933)*UV(984)+JVS(3937)*UV(985)+JVS(3941)*UV(986)+JVS(3945)*UV(987)+JVS(3949)*UV(988)+JVS(3953)& - &*UV(989)+JVS(3957)*UV(990)+JVS(3961)*UV(991)+JVS(3965)*UV(992)+JVS(3969)*UV(993)+JVS(3973)*UV(994)& - &+JVS(3977)*UV(995)+JVS(3981)*UV(996)+JVS(3985)*UV(997)+JVS(3989)*UV(998)+JVS(3993)*UV(999)+JVS(3997)& - &*UV(1000)+JVS(4002)*UV(1001)+JVS(4005)*UV(1002)+JVS(4009)*UV(1003)+JVS(4013)*UV(1004)+JVS(4017)*UV(1005)& - &+JVS(4021)*UV(1006)+JVS(4025)*UV(1007)+JVS(4029)*UV(1008)+JVS(4033)*UV(1009)+JVS(4037)*UV(1010)+JVS(4045)& - &*UV(1012)+JVS(4053)*UV(1014)+JVS(4057)*UV(1015)+JVS(4061)*UV(1016)+JVS(4065)*UV(1017)+JVS(4069)*UV(1018)& - &+JVS(4073)*UV(1019)+JVS(4077)*UV(1020)+JVS(4081)*UV(1021)+JVS(4085)*UV(1022)+JVS(4089)*UV(1023)+JVS(4093)& - &*UV(1024)+JVS(4097)*UV(1025)+JVS(4101)*UV(1026)+JVS(4105)*UV(1027)+JVS(4109)*UV(1028)+JVS(4113)*UV(1029)& - &+JVS(4117)*UV(1030)+JVS(4121)*UV(1031)+JVS(4125)*UV(1032)+JVS(4129)*UV(1033)+JVS(4133)*UV(1034)+JVS(4138)& - &*UV(1035)+JVS(4142)*UV(1036)+JVS(4145)*UV(1037)+JVS(4149)*UV(1038)+JVS(4153)*UV(1039)+JVS(4160)*UV(1040)& - &+JVS(4163)*UV(1041)+JVS(4167)*UV(1042)+JVS(4171)*UV(1043)+JVS(4175)*UV(1044)+JVS(4179)*UV(1045)+JVS(4183)& - &*UV(1046)+JVS(4187)*UV(1047)+JVS(4191)*UV(1048)+JVS(4195)*UV(1049)+JVS(4200)*UV(1050)+JVS(4203)*UV(1051)& - &+JVS(4207)*UV(1052)+JVS(4211)*UV(1053)+JVS(4216)*UV(1054)+JVS(4219)*UV(1055)+JVS(4224)*UV(1056)+JVS(4227)& - &*UV(1057)+JVS(4231)*UV(1058)+JVS(4235)*UV(1059)+JVS(4239)*UV(1060)+JVS(4243)*UV(1061)+JVS(4247)*UV(1062)& - &+JVS(4251)*UV(1063)+JVS(4255)*UV(1064)+JVS(4259)*UV(1065)+JVS(4263)*UV(1066)+JVS(4267)*UV(1067)+JVS(4272)& - &*UV(1068)+JVS(4275)*UV(1069)+JVS(4279)*UV(1070)+JVS(4283)*UV(1071)+JVS(4287)*UV(1072)+JVS(4291)*UV(1073)& - &+JVS(4295)*UV(1074)+JVS(4299)*UV(1075)+JVS(4303)*UV(1076)+JVS(4307)*UV(1077)+JVS(4311)*UV(1078)+JVS(4315)& - &*UV(1079)+JVS(4319)*UV(1080)+JVS(4323)*UV(1081)+JVS(4327)*UV(1082)+JVS(4331)*UV(1083)+JVS(4335)*UV(1084)& - &+JVS(4339)*UV(1085)+JVS(4343)*UV(1086)+JVS(4347)*UV(1087)+JVS(4351)*UV(1088)+JVS(4355)*UV(1089)+JVS(4359)& - &*UV(1090)+JVS(4363)*UV(1091)+JVS(4367)*UV(1092)+JVS(4371)*UV(1093)+JVS(4375)*UV(1094)+JVS(4379)*UV(1095)& - &+JVS(4383)*UV(1096)+JVS(4387)*UV(1097)+JVS(4391)*UV(1098)+JVS(4395)*UV(1099)+JVS(4399)*UV(1100)+JVS(4403)& - &*UV(1101)+JVS(4407)*UV(1102)+JVS(4411)*UV(1103)+JVS(4415)*UV(1104)+JVS(4419)*UV(1105)+JVS(4423)*UV(1106)& - &+JVS(4427)*UV(1107)+JVS(4431)*UV(1108)+JVS(4435)*UV(1109)+JVS(4439)*UV(1110)+JVS(4444)*UV(1111)+JVS(4447)& - &*UV(1112)+JVS(4452)*UV(1113)+JVS(4455)*UV(1114)+JVS(4459)*UV(1115)+JVS(4463)*UV(1116)+JVS(4467)*UV(1117)& - &+JVS(4471)*UV(1118)+JVS(4475)*UV(1119)+JVS(4480)*UV(1120)+JVS(4484)*UV(1121)+JVS(4487)*UV(1122)+JVS(4491)& - &*UV(1123)+JVS(4496)*UV(1124)+JVS(4499)*UV(1125)+JVS(4503)*UV(1126)+JVS(4507)*UV(1127)+JVS(4511)*UV(1128)& - &+JVS(4515)*UV(1129)+JVS(4519)*UV(1130)+JVS(4523)*UV(1131)+JVS(4527)*UV(1132)+JVS(4534)*UV(1133)+JVS(4537)& - &*UV(1134)+JVS(4541)*UV(1135)+JVS(4545)*UV(1136)+JVS(4549)*UV(1137)+JVS(4553)*UV(1138)+JVS(4557)*UV(1139)& - &+JVS(4562)*UV(1140)+JVS(4565)*UV(1141)+JVS(4569)*UV(1142)+JVS(4573)*UV(1143)+JVS(4577)*UV(1144)+JVS(4581)& - &*UV(1145)+JVS(4585)*UV(1146)+JVS(4589)*UV(1147)+JVS(4593)*UV(1148)+JVS(4597)*UV(1149)+JVS(4601)*UV(1150)& - &+JVS(4605)*UV(1151)+JVS(4609)*UV(1152)+JVS(4613)*UV(1153)+JVS(4617)*UV(1154)+JVS(4621)*UV(1155)+JVS(4625)& - &*UV(1156)+JVS(4629)*UV(1157)+JVS(4633)*UV(1158)+JVS(4637)*UV(1159)+JVS(4641)*UV(1160)+JVS(4645)*UV(1161)& - &+JVS(4649)*UV(1162)+JVS(4653)*UV(1163)+JVS(4657)*UV(1164)+JVS(4661)*UV(1165)+JVS(4665)*UV(1166)+JVS(4669)& - &*UV(1167)+JVS(4673)*UV(1168)+JVS(4677)*UV(1169)+JVS(4681)*UV(1170)+JVS(4685)*UV(1171)+JVS(4689)*UV(1172)& - &+JVS(4693)*UV(1173)+JVS(4697)*UV(1174)+JVS(4701)*UV(1175)+JVS(4705)*UV(1176)+JVS(4709)*UV(1177)+JVS(4713)& - &*UV(1178)+JVS(4718)*UV(1179)+JVS(4721)*UV(1180)+JVS(4725)*UV(1181)+JVS(4729)*UV(1182)+JVS(4733)*UV(1183)& - &+JVS(4737)*UV(1184)+JVS(4741)*UV(1185)+JVS(4745)*UV(1186)+JVS(4749)*UV(1187)+JVS(4753)*UV(1188)+JVS(4757)& - &*UV(1189)+JVS(4761)*UV(1190)+JVS(4765)*UV(1191)+JVS(4769)*UV(1192)+JVS(4773)*UV(1193)+JVS(4778)*UV(1194)& - &+JVS(4781)*UV(1195)+JVS(4785)*UV(1196)+JVS(4789)*UV(1197)+JVS(4793)*UV(1198)+JVS(4797)*UV(1199)+JVS(4801)& - &*UV(1200)+JVS(4805)*UV(1201)+JVS(4809)*UV(1202)+JVS(4813)*UV(1203)+JVS(4817)*UV(1204)+JVS(4821)*UV(1205)& - &+JVS(4825)*UV(1206)+JVS(4829)*UV(1207)+JVS(4833)*UV(1208)+JVS(4837)*UV(1209)+JVS(4841)*UV(1210)+JVS(4845)& - &*UV(1211)+JVS(4849)*UV(1212)+JVS(4853)*UV(1213)+JVS(4857)*UV(1214)+JVS(4861)*UV(1215)+JVS(4865)*UV(1216)& - &+JVS(4869)*UV(1217)+JVS(4873)*UV(1218)+JVS(4877)*UV(1219)+JVS(4881)*UV(1220)+JVS(4885)*UV(1221)+JVS(4889)& - &*UV(1222)+JVS(4893)*UV(1223)+JVS(4897)*UV(1224)+JVS(4901)*UV(1225)+JVS(4905)*UV(1226)+JVS(4909)*UV(1227)& - &+JVS(4913)*UV(1228)+JVS(4917)*UV(1229)+JVS(4921)*UV(1230)+JVS(4928)*UV(1231)+JVS(4931)*UV(1232)+JVS(4935)& - &*UV(1233)+JVS(4939)*UV(1234)+JVS(4943)*UV(1235)+JVS(4947)*UV(1236)+JVS(4951)*UV(1237)+JVS(4955)*UV(1238)& - &+JVS(4959)*UV(1239)+JVS(4967)*UV(1241)+JVS(4971)*UV(1242)+JVS(4975)*UV(1243)+JVS(4979)*UV(1244)+JVS(4983)& - &*UV(1245)+JVS(4991)*UV(1247)+JVS(4995)*UV(1248)+JVS(4999)*UV(1249)+JVS(5003)*UV(1250)+JVS(5007)*UV(1251)& - &+JVS(5011)*UV(1252)+JVS(5015)*UV(1253)+JVS(5019)*UV(1254)+JVS(5023)*UV(1255)+JVS(5027)*UV(1256)+JVS(5033)& - &*UV(1257)+JVS(5036)*UV(1258)+JVS(5040)*UV(1259)+JVS(5044)*UV(1260)+JVS(5048)*UV(1261)+JVS(5052)*UV(1262)& - &+JVS(5056)*UV(1263)+JVS(5060)*UV(1264)+JVS(5064)*UV(1265)+JVS(5068)*UV(1266)+JVS(5072)*UV(1267)+JVS(5076)& - &*UV(1268)+JVS(5081)*UV(1269)+JVS(5084)*UV(1270)+JVS(5088)*UV(1271)+JVS(5092)*UV(1272)+JVS(5096)*UV(1273)& - &+JVS(5100)*UV(1274)+JVS(5104)*UV(1275)+JVS(5108)*UV(1276)+JVS(5112)*UV(1277)+JVS(5116)*UV(1278)+JVS(5120)& - &*UV(1279)+JVS(5125)*UV(1280)+JVS(5128)*UV(1281)+JVS(5132)*UV(1282)+JVS(5136)*UV(1283)+JVS(5140)*UV(1284)& - &+JVS(5144)*UV(1285)+JVS(5148)*UV(1286)+JVS(5152)*UV(1287)+JVS(5156)*UV(1288)+JVS(5160)*UV(1289)+JVS(5164)& - &*UV(1290)+JVS(5168)*UV(1291)+JVS(5172)*UV(1292)+JVS(5176)*UV(1293)+JVS(5180)*UV(1294)+JVS(5184)*UV(1295)& - &+JVS(5188)*UV(1296)+JVS(5193)*UV(1297)+JVS(5196)*UV(1298)+JVS(5200)*UV(1299)+JVS(5204)*UV(1300)+JVS(5208)& - &*UV(1301)+JVS(5212)*UV(1302)+JVS(5216)*UV(1303)+JVS(5220)*UV(1304)+JVS(5224)*UV(1305)+JVS(5228)*UV(1306)& - &+JVS(5232)*UV(1307)+JVS(5236)*UV(1308)+JVS(5240)*UV(1309)+JVS(5244)*UV(1310)+JVS(5248)*UV(1311)+JVS(5252)& - &*UV(1312)+JVS(5256)*UV(1313)+JVS(5260)*UV(1314)+JVS(5264)*UV(1315)+JVS(5268)*UV(1316)+JVS(5272)*UV(1317)& - &+JVS(5276)*UV(1318)+JVS(5280)*UV(1319)+JVS(5284)*UV(1320)+JVS(5288)*UV(1321)+JVS(5292)*UV(1322)+JVS(5296)& - &*UV(1323)+JVS(5300)*UV(1324)+JVS(5304)*UV(1325)+JVS(5308)*UV(1326)+JVS(5312)*UV(1327)+JVS(5316)*UV(1328)& - &+JVS(5320)*UV(1329)+JVS(5324)*UV(1330)+JVS(5328)*UV(1331)+JVS(5332)*UV(1332)+JVS(5336)*UV(1333)+JVS(5340)& - &*UV(1334)+JVS(5344)*UV(1335)+JVS(5348)*UV(1336)+JVS(5352)*UV(1337)+JVS(5356)*UV(1338)+JVS(5360)*UV(1339)& - &+JVS(5364)*UV(1340)+JVS(5368)*UV(1341)+JVS(5372)*UV(1342)+JVS(5376)*UV(1343)+JVS(5380)*UV(1344)+JVS(5384)& - &*UV(1345)+JVS(5392)*UV(1347)+JVS(5396)*UV(1348)+JVS(5400)*UV(1349)+JVS(5404)*UV(1350)+JVS(5408)*UV(1351)& - &+JVS(5412)*UV(1352)+JVS(5416)*UV(1353)+JVS(5420)*UV(1354)+JVS(5424)*UV(1355)+JVS(5428)*UV(1356)+JVS(5432)& - &*UV(1357)+JVS(5436)*UV(1358)+JVS(5440)*UV(1359)+JVS(5444)*UV(1360)+JVS(5448)*UV(1361)+JVS(5452)*UV(1362)& - &+JVS(5456)*UV(1363)+JVS(5460)*UV(1364)+JVS(5464)*UV(1365)+JVS(5468)*UV(1366)+JVS(5472)*UV(1367)+JVS(5476)& - &*UV(1368)+JVS(5481)*UV(1369)+JVS(5484)*UV(1370)+JVS(5488)*UV(1371)+JVS(5494)*UV(1372)+JVS(5497)*UV(1373)& - &+JVS(5501)*UV(1374)+JVS(5505)*UV(1375)+JVS(5509)*UV(1376)+JVS(5513)*UV(1377)+JVS(5517)*UV(1378)+JVS(5521)& - &*UV(1379)+JVS(5525)*UV(1380)+JVS(5529)*UV(1381)+JVS(5533)*UV(1382)+JVS(5537)*UV(1383)+JVS(5542)*UV(1384)& - &+JVS(5545)*UV(1385)+JVS(5550)*UV(1386)+JVS(5553)*UV(1387)+JVS(5557)*UV(1388)+JVS(5561)*UV(1389)+JVS(5565)& - &*UV(1390)+JVS(5569)*UV(1391)+JVS(5573)*UV(1392)+JVS(5577)*UV(1393)+JVS(5581)*UV(1394)+JVS(5585)*UV(1395)& - &+JVS(5589)*UV(1396)+JVS(5593)*UV(1397)+JVS(5597)*UV(1398)+JVS(5601)*UV(1399)+JVS(5605)*UV(1400)+JVS(5609)& - &*UV(1401)+JVS(5613)*UV(1402)+JVS(5617)*UV(1403)+JVS(5621)*UV(1404)+JVS(5625)*UV(1405)+JVS(5629)*UV(1406)& - &+JVS(5633)*UV(1407)+JVS(5637)*UV(1408)+JVS(5641)*UV(1409)+JVS(5645)*UV(1410)+JVS(5649)*UV(1411)+JVS(5653)& - &*UV(1412)+JVS(5657)*UV(1413)+JVS(5661)*UV(1414)+JVS(5665)*UV(1415)+JVS(5669)*UV(1416)+JVS(5673)*UV(1417)& - &+JVS(5677)*UV(1418)+JVS(5681)*UV(1419)+JVS(5685)*UV(1420)+JVS(5689)*UV(1421)+JVS(5693)*UV(1422)+JVS(5697)& - &*UV(1423)+JVS(5701)*UV(1424)+JVS(5705)*UV(1425)+JVS(5709)*UV(1426)+JVS(5713)*UV(1427)+JVS(5717)*UV(1428)& - &+JVS(5721)*UV(1429)+JVS(5725)*UV(1430)+JVS(5729)*UV(1431)+JVS(5733)*UV(1432)+JVS(5737)*UV(1433)+JVS(5741)& - &*UV(1434)+JVS(5745)*UV(1435)+JVS(5749)*UV(1436)+JVS(5753)*UV(1437)+JVS(5757)*UV(1438)+JVS(5761)*UV(1439)& - &+JVS(5765)*UV(1440)+JVS(5769)*UV(1441)+JVS(5773)*UV(1442)+JVS(5777)*UV(1443)+JVS(5781)*UV(1444)+JVS(5785)& - &*UV(1445)+JVS(5789)*UV(1446)+JVS(5793)*UV(1447)+JVS(5797)*UV(1448)+JVS(5801)*UV(1449)+JVS(5805)*UV(1450)& - &+JVS(5809)*UV(1451)+JVS(5813)*UV(1452)+JVS(5817)*UV(1453)+JVS(5821)*UV(1454)+JVS(5825)*UV(1455)+JVS(5829)& - &*UV(1456)+JVS(5833)*UV(1457)+JVS(5837)*UV(1458)+JVS(5841)*UV(1459)+JVS(5845)*UV(1460)+JVS(5849)*UV(1461)& - &+JVS(5853)*UV(1462)+JVS(5857)*UV(1463)+JVS(5861)*UV(1464)+JVS(5865)*UV(1465)+JVS(5869)*UV(1466)+JVS(5873)& - &*UV(1467)+JVS(5877)*UV(1468)+JVS(5881)*UV(1469)+JVS(5885)*UV(1470)+JVS(5889)*UV(1471)+JVS(5893)*UV(1472)& - &+JVS(5897)*UV(1473)+JVS(5901)*UV(1474)+JVS(5905)*UV(1475)+JVS(5909)*UV(1476)+JVS(5913)*UV(1477)+JVS(5917)& - &*UV(1478)+JVS(5921)*UV(1479)+JVS(5925)*UV(1480)+JVS(5929)*UV(1481)+JVS(5933)*UV(1482)+JVS(5939)*UV(1483)& - &+JVS(5943)*UV(1484)+JVS(5947)*UV(1485)+JVS(5951)*UV(1486)+JVS(5955)*UV(1487)+JVS(5959)*UV(1488)+JVS(5963)& - &*UV(1489)+JVS(5967)*UV(1490)+JVS(5971)*UV(1491)+JVS(5975)*UV(1492)+JVS(5981)*UV(1493)+JVS(5984)*UV(1494)& - &+JVS(5988)*UV(1495)+JVS(5992)*UV(1496)+JVS(5996)*UV(1497)+JVS(6000)*UV(1498)+JVS(6004)*UV(1499)+JVS(6008)& - &*UV(1500)+JVS(6012)*UV(1501)+JVS(6016)*UV(1502)+JVS(6020)*UV(1503)+JVS(6024)*UV(1504)+JVS(6028)*UV(1505)& - &+JVS(6032)*UV(1506)+JVS(6036)*UV(1507)+JVS(6040)*UV(1508)+JVS(6044)*UV(1509)+JVS(6048)*UV(1510)+JVS(6052)& - &*UV(1511)+JVS(6056)*UV(1512)+JVS(6060)*UV(1513)+JVS(6064)*UV(1514)+JVS(6068)*UV(1515)+JVS(6072)*UV(1516)& - &+JVS(6076)*UV(1517)+JVS(6080)*UV(1518)+JVS(6084)*UV(1519)+JVS(6089)*UV(1520)+JVS(6093)*UV(1521)+JVS(6096)& - &*UV(1522)+JVS(6100)*UV(1523)+JVS(6104)*UV(1524)+JVS(6108)*UV(1525)+JVS(6112)*UV(1526)+JVS(6116)*UV(1527)& - &+JVS(6120)*UV(1528)+JVS(6124)*UV(1529)+JVS(6128)*UV(1530)+JVS(6132)*UV(1531)+JVS(6136)*UV(1532)+JVS(6140)& - &*UV(1533)+JVS(6144)*UV(1534)+JVS(6148)*UV(1535)+JVS(6152)*UV(1536)+JVS(6156)*UV(1537)+JVS(6160)*UV(1538)& - &+JVS(6164)*UV(1539)+JVS(6168)*UV(1540)+JVS(6172)*UV(1541)+JVS(6176)*UV(1542)+JVS(6180)*UV(1543)+JVS(6184)& - &*UV(1544)+JVS(6188)*UV(1545)+JVS(6192)*UV(1546)+JVS(6196)*UV(1547)+JVS(6200)*UV(1548)+JVS(6203)*UV(1549)& - &+JVS(6210)*UV(1550)+JVS(6214)*UV(1551)+JVS(6230)*UV(1554)+JVS(6233)*UV(1555)+JVS(6243)*UV(1557)+JVS(6246)& - &*UV(1558)+JVS(6255)*UV(1560)+JVS(6258)*UV(1561)+JVS(6261)*UV(1562)+JVS(6280)*UV(1565)+JVS(6283)*UV(1566)& - &+JVS(6286)*UV(1567)+JVS(6298)*UV(1570)+JVS(6301)*UV(1571)+JVS(6306)*UV(1572)+JVS(6312)*UV(1573)+JVS(6322)& - &*UV(1575)+JVS(6325)*UV(1576)+JVS(6328)*UV(1577)+JVS(6331)*UV(1578)+JVS(6341)*UV(1580)+JVS(6349)*UV(1581)& - &+JVS(6352)*UV(1582)+JVS(6361)*UV(1584)+JVS(6364)*UV(1585)+JVS(6367)*UV(1586)+JVS(6370)*UV(1587)+JVS(6373)& - &*UV(1588)+JVS(6376)*UV(1589)+JVS(6383)*UV(1590)+JVS(6387)*UV(1591)+JVS(6403)*UV(1594)+JVS(6412)*UV(1596)& - &+JVS(6421)*UV(1598)+JVS(6424)*UV(1599)+JVS(6427)*UV(1600)+JVS(6430)*UV(1601)+JVS(6433)*UV(1602)+JVS(6436)& - &*UV(1603)+JVS(6443)*UV(1604)+JVS(6449)*UV(1605)+JVS(6457)*UV(1606)+JVS(6473)*UV(1608)+JVS(6479)*UV(1609)& - &+JVS(6484)*UV(1610)+JVS(6487)*UV(1611)+JVS(6490)*UV(1612)+JVS(6493)*UV(1613)+JVS(6502)*UV(1615)+JVS(6513)& - &*UV(1617)+JVS(6519)*UV(1618)+JVS(6522)*UV(1619)+JVS(6527)*UV(1620)+JVS(6533)*UV(1621)+JVS(6538)*UV(1622)& - &+JVS(6544)*UV(1623)+JVS(6549)*UV(1624)+JVS(6555)*UV(1625)+JVS(6558)*UV(1626)+JVS(6571)*UV(1628)+JVS(6575)& - &*UV(1629)+JVS(6579)*UV(1630)+JVS(6584)*UV(1631)+JVS(6589)*UV(1632)+JVS(6592)*UV(1633)+JVS(6601)*UV(1635)& - &+JVS(6604)*UV(1636)+JVS(6607)*UV(1637)+JVS(6616)*UV(1639)+JVS(6626)*UV(1641)+JVS(6635)*UV(1643)+JVS(6638)& - &*UV(1644)+JVS(6647)*UV(1646)+JVS(6650)*UV(1647)+JVS(6657)*UV(1648)+JVS(6661)*UV(1649)+JVS(6671)*UV(1651)& - &+JVS(6682)*UV(1653)+JVS(6687)*UV(1654)+JVS(6692)*UV(1655)+JVS(6699)*UV(1656)+JVS(6703)*UV(1657)+JVS(6707)& - &*UV(1658)+JVS(6710)*UV(1659)+JVS(6717)*UV(1660)+JVS(6739)*UV(1664)+JVS(6742)*UV(1665)+JVS(6745)*UV(1666)& - &+JVS(6754)*UV(1668)+JVS(6757)*UV(1669)+JVS(6760)*UV(1670)+JVS(6763)*UV(1671)+JVS(6766)*UV(1672)+JVS(6769)& - &*UV(1673)+JVS(6772)*UV(1674)+JVS(6777)*UV(1675)+JVS(6783)*UV(1676)+JVS(6788)*UV(1677)+JVS(6793)*UV(1678)& - &+JVS(6804)*UV(1680)+JVS(6810)*UV(1681)+JVS(6813)*UV(1682)+JVS(6816)*UV(1683)+JVS(6826)*UV(1685)+JVS(6829)& - &*UV(1686)+JVS(6832)*UV(1687)+JVS(6835)*UV(1688)+JVS(6846)*UV(1690)+JVS(6851)*UV(1691)+JVS(6862)*UV(1693)& - &+JVS(6865)*UV(1694)+JVS(6878)*UV(1696)+JVS(6882)*UV(1697)+JVS(6885)*UV(1698)+JVS(6894)*UV(1700)+JVS(6897)& - &*UV(1701)+JVS(6906)*UV(1703)+JVS(6909)*UV(1704)+JVS(6912)*UV(1705)+JVS(6919)*UV(1706)+JVS(6922)*UV(1707)& - &+JVS(6925)*UV(1708)+JVS(6928)*UV(1709)+JVS(6933)*UV(1710)+JVS(6939)*UV(1711)+JVS(6944)*UV(1712)+JVS(6949)& - &*UV(1713)+JVS(6957)*UV(1714)+JVS(6969)*UV(1716)+JVS(6972)*UV(1717)+JVS(6975)*UV(1718)+JVS(6978)*UV(1719)& - &+JVS(6993)*UV(1722)+JVS(6998)*UV(1723)+JVS(7015)*UV(1726)+JVS(7020)*UV(1727)+JVS(7029)*UV(1728)+JVS(7033)& - &*UV(1729)+JVS(7036)*UV(1730)+JVS(7039)*UV(1731)+JVS(7050)*UV(1733)+JVS(7053)*UV(1734)+JVS(7056)*UV(1735)& - &+JVS(7063)*UV(1736)+JVS(7076)*UV(1738)+JVS(7081)*UV(1739)+JVS(7087)*UV(1740)+JVS(7096)*UV(1742)+JVS(7105)& - &*UV(1744)+JVS(7110)*UV(1745)+JVS(7119)*UV(1747)+JVS(7127)*UV(1749)+JVS(7134)*UV(1750)+JVS(7139)*UV(1751)& - &+JVS(7143)*UV(1752)+JVS(7147)*UV(1753)+JVS(7154)*UV(1754)+JVS(7170)*UV(1756)+JVS(7174)*UV(1757)+JVS(7178)& - &*UV(1758)+JVS(7182)*UV(1759)+JVS(7192)*UV(1761)+JVS(7196)*UV(1762)+JVS(7201)*UV(1763)+JVS(7206)*UV(1764)& - &+JVS(7211)*UV(1765)+JVS(7215)*UV(1766)+JVS(7219)*UV(1767)+JVS(7223)*UV(1768)+JVS(7232)*UV(1770)+JVS(7236)& - &*UV(1771)+JVS(7240)*UV(1772)+JVS(7252)*UV(1774)+JVS(7256)*UV(1775)+JVS(7263)*UV(1777)+JVS(7266)*UV(1778)& - &+JVS(7270)*UV(1779)+JVS(7274)*UV(1780)+JVS(7287)*UV(1782)+JVS(7291)*UV(1783)+JVS(7295)*UV(1784)+JVS(7300)& - &*UV(1785)+JVS(7304)*UV(1786)+JVS(7313)*UV(1788)+JVS(7320)*UV(1789)+JVS(7328)*UV(1790)+JVS(7333)*UV(1791)& - &+JVS(7344)*UV(1793)+JVS(7348)*UV(1794)+JVS(7365)*UV(1797)+JVS(7368)*UV(1798)+JVS(7380)*UV(1800)+JVS(7384)& - &*UV(1801)+JVS(7388)*UV(1802)+JVS(7395)*UV(1803)+JVS(7401)*UV(1804)+JVS(7405)*UV(1805)+JVS(7411)*UV(1806)& - &+JVS(7415)*UV(1807)+JVS(7423)*UV(1809)+JVS(7432)*UV(1811)+JVS(7445)*UV(1813)+JVS(7462)*UV(1816)+JVS(7467)& - &*UV(1817)+JVS(7473)*UV(1818)+JVS(7479)*UV(1819)+JVS(7507)*UV(1823)+JVS(7511)*UV(1824)+JVS(7522)*UV(1826)& - &+JVS(7526)*UV(1827)+JVS(7532)*UV(1828)+JVS(7535)*UV(1829)+JVS(7539)*UV(1830)+JVS(7543)*UV(1831)+JVS(7549)& - &*UV(1832)+JVS(7562)*UV(1834)+JVS(7565)*UV(1835)+JVS(7569)*UV(1836)+JVS(7573)*UV(1837)+JVS(7585)*UV(1839)& - &+JVS(7589)*UV(1840)+JVS(7593)*UV(1841)+JVS(7597)*UV(1842)+JVS(7603)*UV(1843)+JVS(7606)*UV(1844)+JVS(7610)& - &*UV(1845)+JVS(7614)*UV(1846)+JVS(7631)*UV(1849)+JVS(7635)*UV(1850)+JVS(7639)*UV(1851)+JVS(7646)*UV(1852)& - &+JVS(7652)*UV(1853)+JVS(7655)*UV(1854)+JVS(7659)*UV(1855)+JVS(7663)*UV(1856)+JVS(7667)*UV(1857)+JVS(7672)& - &*UV(1858)+JVS(7675)*UV(1859)+JVS(7687)*UV(1861)+JVS(7691)*UV(1862)+JVS(7695)*UV(1863)+JVS(7699)*UV(1864)& - &+JVS(7724)*UV(1868)+JVS(7728)*UV(1869)+JVS(7736)*UV(1870)+JVS(7740)*UV(1871)+JVS(7749)*UV(1873)+JVS(7753)& - &*UV(1874)+JVS(7757)*UV(1875)+JVS(7760)*UV(1876)+JVS(7770)*UV(1878)+JVS(7773)*UV(1879)+JVS(7777)*UV(1880)& - &+JVS(7781)*UV(1881)+JVS(7790)*UV(1883)+JVS(7794)*UV(1884)+JVS(7798)*UV(1885)+JVS(7802)*UV(1886)+JVS(7806)& - &*UV(1887)+JVS(7810)*UV(1888)+JVS(7814)*UV(1889)+JVS(7818)*UV(1890)+JVS(7833)*UV(1893)+JVS(7838)*UV(1894)& - &+JVS(7842)*UV(1895)+JVS(7846)*UV(1896)+JVS(7850)*UV(1897)+JVS(7854)*UV(1898)+JVS(7858)*UV(1899)+JVS(7862)& - &*UV(1900)+JVS(7866)*UV(1901)+JVS(7870)*UV(1902)+JVS(7882)*UV(1904)+JVS(7886)*UV(1905)+JVS(7898)*UV(1907)& - &+JVS(7902)*UV(1908)+JVS(7906)*UV(1909)+JVS(7918)*UV(1911)+JVS(7922)*UV(1912)+JVS(7928)*UV(1913)+JVS(7932)& - &*UV(1914)+JVS(7937)*UV(1915)+JVS(7941)*UV(1916)+JVS(7944)*UV(1917)+JVS(7948)*UV(1918)+JVS(7952)*UV(1919)& - &+JVS(7956)*UV(1920)+JVS(7960)*UV(1921)+JVS(7964)*UV(1922)+JVS(7982)*UV(1925)+JVS(7985)*UV(1926)+JVS(7994)& - &*UV(1928)+JVS(7999)*UV(1929)+JVS(8002)*UV(1930)+JVS(8014)*UV(1932)+JVS(8018)*UV(1933)+JVS(8022)*UV(1934)& - &+JVS(8025)*UV(1935)+JVS(8029)*UV(1936)+JVS(8033)*UV(1937)+JVS(8037)*UV(1938)+JVS(8041)*UV(1939)+JVS(8045)& - &*UV(1940)+JVS(8049)*UV(1941)+JVS(8061)*UV(1943)+JVS(8078)*UV(1946)+JVS(8082)*UV(1947)+JVS(8086)*UV(1948)& - &+JVS(8090)*UV(1949)+JVS(8094)*UV(1950)+JVS(8103)*UV(1952)+JVS(8110)*UV(1953)+JVS(8113)*UV(1954)+JVS(8122)& - &*UV(1956)+JVS(8127)*UV(1957)+JVS(8131)*UV(1958)+JVS(8154)*UV(1962)+JVS(8160)*UV(1963)+JVS(8164)*UV(1964)& - &+JVS(8168)*UV(1965)+JVS(8172)*UV(1966)+JVS(8181)*UV(1968)+JVS(8185)*UV(1969)+JVS(8189)*UV(1970)+JVS(8201)& - &*UV(1972)+JVS(8205)*UV(1973)+JVS(8209)*UV(1974)+JVS(8216)*UV(1975)+JVS(8223)*UV(1976)+JVS(8228)*UV(1977)& - &+JVS(8232)*UV(1978)+JVS(8236)*UV(1979)+JVS(8240)*UV(1980)+JVS(8244)*UV(1981)+JVS(8247)*UV(1982)+JVS(8252)& - &*UV(1983)+JVS(8259)*UV(1984)+JVS(8265)*UV(1985)+JVS(8277)*UV(1987)+JVS(8281)*UV(1988)+JVS(8287)*UV(1989)& - &+JVS(8293)*UV(1990)+JVS(8297)*UV(1991)+JVS(8300)*UV(1992)+JVS(8304)*UV(1993)+JVS(8308)*UV(1994)+JVS(8313)& - &*UV(1995)+JVS(8317)*UV(1996)+JVS(8321)*UV(1997)+JVS(8333)*UV(1999)+JVS(8347)*UV(2001)+JVS(8350)*UV(2002)& - &+JVS(8354)*UV(2003)+JVS(8368)*UV(2006)+JVS(8372)*UV(2007)+JVS(8381)*UV(2009)+JVS(8385)*UV(2010)+JVS(8390)& - &*UV(2011)+JVS(8402)*UV(2014)+JVS(8414)*UV(2016)+JVS(8418)*UV(2017)+JVS(8422)*UV(2018)+JVS(8426)*UV(2019)& - &+JVS(8430)*UV(2020)+JVS(8435)*UV(2021)+JVS(8439)*UV(2022)+JVS(8444)*UV(2023)+JVS(8453)*UV(2025)+JVS(8457)& - &*UV(2026)+JVS(8461)*UV(2027)+JVS(8466)*UV(2028)+JVS(8490)*UV(2032)+JVS(8503)*UV(2034)+JVS(8516)*UV(2036)& - &+JVS(8521)*UV(2037)+JVS(8529)*UV(2039)+JVS(8533)*UV(2040)+JVS(8549)*UV(2043)+JVS(8552)*UV(2044)+JVS(8556)& - &*UV(2045)+JVS(8560)*UV(2046)+JVS(8564)*UV(2047)+JVS(8568)*UV(2048)+JVS(8572)*UV(2049)+JVS(8585)*UV(2051)& - &+JVS(8589)*UV(2052)+JVS(8593)*UV(2053)+JVS(8597)*UV(2054)+JVS(8601)*UV(2055)+JVS(8608)*UV(2056)+JVS(8614)& - &*UV(2057)+JVS(8618)*UV(2058)+JVS(8622)*UV(2059)+JVS(8634)*UV(2061)+JVS(8638)*UV(2062)+JVS(8642)*UV(2063)& - &+JVS(8646)*UV(2064)+JVS(8650)*UV(2065)+JVS(8660)*UV(2067)+JVS(8664)*UV(2068)+JVS(8668)*UV(2069)+JVS(8672)& - &*UV(2070)+JVS(8676)*UV(2071)+JVS(8680)*UV(2072)+JVS(8692)*UV(2074)+JVS(8696)*UV(2075)+JVS(8708)*UV(2077)& - &+JVS(8712)*UV(2078)+JVS(8716)*UV(2079)+JVS(8720)*UV(2080)+JVS(8728)*UV(2082)+JVS(8732)*UV(2083)+JVS(8736)& - &*UV(2084)+JVS(8745)*UV(2086)+JVS(8749)*UV(2087)+JVS(8761)*UV(2089)+JVS(8770)*UV(2091)+JVS(8774)*UV(2092)& - &+JVS(8778)*UV(2093)+JVS(8782)*UV(2094)+JVS(8786)*UV(2095)+JVS(8791)*UV(2096)+JVS(8795)*UV(2097)+JVS(8799)& - &*UV(2098)+JVS(8803)*UV(2099)+JVS(8816)*UV(2101)+JVS(8820)*UV(2102)+JVS(8824)*UV(2103)+JVS(8831)*UV(2105)& - &+JVS(8835)*UV(2106)+JVS(8839)*UV(2107)+JVS(8843)*UV(2108)+JVS(8847)*UV(2109)+JVS(8851)*UV(2110)+JVS(8855)& - &*UV(2111)+JVS(8864)*UV(2113)+JVS(8868)*UV(2114)+JVS(8872)*UV(2115)+JVS(8876)*UV(2116)+JVS(8885)*UV(2118)& - &+JVS(8890)*UV(2119)+JVS(8894)*UV(2120)+JVS(8898)*UV(2121)+JVS(8910)*UV(2123)+JVS(8914)*UV(2124)+JVS(8918)& - &*UV(2125)+JVS(8922)*UV(2126)+JVS(8926)*UV(2127)+JVS(8930)*UV(2128)+JVS(8934)*UV(2129)+JVS(8941)*UV(2131)& - &+JVS(8947)*UV(2132)+JVS(8950)*UV(2133)+JVS(8956)*UV(2134)+JVS(8959)*UV(2135)+JVS(8963)*UV(2136)+JVS(8967)& - &*UV(2137)+JVS(8971)*UV(2138)+JVS(8975)*UV(2139)+JVS(8980)*UV(2140)+JVS(8986)*UV(2141)+JVS(8990)*UV(2142)& - &+JVS(8995)*UV(2143)+JVS(8999)*UV(2144)+JVS(9008)*UV(2146)+JVS(9012)*UV(2147)+JVS(9019)*UV(2149)+JVS(9023)& - &*UV(2150)+JVS(9027)*UV(2151)+JVS(9031)*UV(2152)+JVS(9035)*UV(2153)+JVS(9041)*UV(2154)+JVS(9045)*UV(2155)& - &+JVS(9049)*UV(2156)+JVS(9053)*UV(2157)+JVS(9062)*UV(2159)+JVS(9066)*UV(2160)+JVS(9070)*UV(2161)+JVS(9087)& - &*UV(2164)+JVS(9091)*UV(2165)+JVS(9095)*UV(2166)+JVS(9099)*UV(2167)+JVS(9103)*UV(2168)+JVS(9107)*UV(2169)& - &+JVS(9116)*UV(2171)+JVS(9120)*UV(2172)+JVS(9132)*UV(2174)+JVS(9137)*UV(2175)+JVS(9140)*UV(2176)+JVS(9145)& - &*UV(2177)+JVS(9149)*UV(2178)+JVS(9153)*UV(2179)+JVS(9157)*UV(2180)+JVS(9162)*UV(2181)+JVS(9166)*UV(2182)& - &+JVS(9170)*UV(2183)+JVS(9175)*UV(2184)+JVS(9179)*UV(2185)+JVS(9188)*UV(2187)+JVS(9192)*UV(2188)+JVS(9196)& - &*UV(2189)+JVS(9209)*UV(2191)+JVS(9213)*UV(2192)+JVS(9217)*UV(2193)+JVS(9221)*UV(2194)+JVS(9225)*UV(2195)& - &+JVS(9229)*UV(2196)+JVS(9234)*UV(2197)+JVS(9238)*UV(2198)+JVS(9242)*UV(2199)+JVS(9256)*UV(2202)+JVS(9265)& - &*UV(2204)+JVS(9269)*UV(2205)+JVS(9273)*UV(2206)+JVS(9280)*UV(2207)+JVS(9286)*UV(2208)+JVS(9292)*UV(2209)& - &+JVS(9301)*UV(2211)+JVS(9308)*UV(2213)+JVS(9312)*UV(2214)+JVS(9316)*UV(2215)+JVS(9320)*UV(2216)+JVS(9324)& - &*UV(2217)+JVS(9328)*UV(2218)+JVS(9332)*UV(2219)+JVS(9336)*UV(2220)+JVS(9340)*UV(2221)+JVS(9345)*UV(2222)& - &+JVS(9349)*UV(2223)+JVS(9353)*UV(2224)+JVS(9358)*UV(2225)+JVS(9370)*UV(2227)+JVS(9374)*UV(2228)+JVS(9385)& - &*UV(2230)+JVS(9390)*UV(2231)+JVS(9393)*UV(2232)+JVS(9397)*UV(2233)+JVS(9406)*UV(2235)+JVS(9410)*UV(2236)& - &+JVS(9414)*UV(2237)+JVS(9423)*UV(2239)+JVS(9427)*UV(2240)+JVS(9431)*UV(2241)+JVS(9435)*UV(2242)+JVS(9440)& - &*UV(2243)+JVS(9443)*UV(2244)+JVS(9447)*UV(2245)+JVS(9451)*UV(2246)+JVS(9455)*UV(2247)+JVS(9459)*UV(2248)& - &+JVS(9468)*UV(2250)+JVS(9472)*UV(2251)+JVS(9476)*UV(2252)+JVS(9480)*UV(2253)+JVS(9484)*UV(2254)+JVS(9490)& - &*UV(2255)+JVS(9493)*UV(2256)+JVS(9497)*UV(2257)+JVS(9505)*UV(2259)+JVS(9508)*UV(2260)+JVS(9512)*UV(2261)& - &+JVS(9516)*UV(2262)+JVS(9520)*UV(2263)+JVS(9524)*UV(2264)+JVS(9530)*UV(2265)+JVS(9533)*UV(2266)+JVS(9537)& - &*UV(2267)+JVS(9541)*UV(2268)+JVS(9545)*UV(2269)+JVS(9549)*UV(2270)+JVS(9553)*UV(2271)+JVS(9559)*UV(2272)& - &+JVS(9564)*UV(2273)+JVS(9568)*UV(2274)+JVS(9572)*UV(2275)+JVS(9577)*UV(2276)+JVS(9581)*UV(2277)+JVS(9586)& - &*UV(2278)+JVS(9595)*UV(2280)+JVS(9599)*UV(2281)+JVS(9603)*UV(2282)+JVS(9608)*UV(2283)+JVS(9620)*UV(2285)& - &+JVS(9633)*UV(2288)+JVS(9637)*UV(2289)+JVS(9641)*UV(2290)+JVS(9645)*UV(2291)+JVS(9649)*UV(2292)+JVS(9656)& - &*UV(2293)+JVS(9662)*UV(2294)+JVS(9668)*UV(2295)+JVS(9672)*UV(2296)+JVS(9677)*UV(2297)+JVS(9681)*UV(2298)& - &+JVS(9685)*UV(2299)+JVS(9689)*UV(2300)+JVS(9693)*UV(2301)+JVS(9697)*UV(2302)+JVS(9701)*UV(2303)+JVS(9713)& - &*UV(2305)+JVS(9717)*UV(2306)+JVS(9721)*UV(2307)+JVS(9729)*UV(2309)+JVS(9734)*UV(2310)+JVS(9737)*UV(2311)& - &+JVS(9741)*UV(2312)+JVS(9745)*UV(2313)+JVS(9749)*UV(2314)+JVS(9755)*UV(2315)+JVS(9759)*UV(2316)+JVS(9763)& - &*UV(2317)+JVS(9767)*UV(2318)+JVS(9771)*UV(2319)+JVS(9775)*UV(2320)+JVS(9779)*UV(2321)+JVS(9804)*UV(2325)& - &+JVS(9815)*UV(2327)+JVS(9819)*UV(2328)+JVS(9823)*UV(2329)+JVS(9827)*UV(2330)+JVS(9831)*UV(2331)+JVS(9835)& - &*UV(2332)+JVS(9839)*UV(2333)+JVS(9852)*UV(2335)+JVS(9855)*UV(2336)+JVS(9858)*UV(2337)+JVS(9862)*UV(2338)& - &+JVS(9866)*UV(2339)+JVS(9871)*UV(2340)+JVS(9875)*UV(2341)+JVS(9879)*UV(2342)+JVS(9884)*UV(2343)+JVS(9888)& - &*UV(2344)+JVS(9891)*UV(2345)+JVS(9894)*UV(2346)+JVS(9898)*UV(2347)+JVS(9902)*UV(2348)+JVS(9906)*UV(2349)& - &+JVS(9910)*UV(2350)+JVS(9914)*UV(2351)+JVS(9918)*UV(2352)+JVS(9923)*UV(2353)+JVS(9927)*UV(2354)+JVS(9931)& - &*UV(2355)+JVS(9937)*UV(2356)+JVS(9942)*UV(2357)+JVS(9945)*UV(2358)+JVS(9952)*UV(2360)+JVS(9964)*UV(2362)& - &+JVS(9968)*UV(2363)+JVS(9973)*UV(2364)+JVS(9977)*UV(2365)+JVS(9981)*UV(2366)+JVS(9986)*UV(2367)+JVS(9990)& - &*UV(2368)+JVS(9994)*UV(2369)+JVS(9999)*UV(2370)+JVS(10003)*UV(2371)+JVS(10007)*UV(2372)+JVS(10011)& - &*UV(2373)+JVS(10023)*UV(2375)+JVS(10037)*UV(2377)+JVS(10041)*UV(2378)+JVS(10046)*UV(2379)+JVS(10050)& - &*UV(2380)+JVS(10056)*UV(2381)+JVS(10060)*UV(2382)+JVS(10063)*UV(2383)+JVS(10067)*UV(2384)+JVS(10071)& - &*UV(2385)+JVS(10074)*UV(2386)+JVS(10078)*UV(2387)+JVS(10082)*UV(2388)+JVS(10086)*UV(2389)+JVS(10090)& - &*UV(2390)+JVS(10094)*UV(2391)+JVS(10098)*UV(2392)+JVS(10105)*UV(2394)+JVS(10111)*UV(2395)+JVS(10114)& - &*UV(2396)+JVS(10118)*UV(2397)+JVS(10122)*UV(2398)+JVS(10134)*UV(2400)+JVS(10138)*UV(2401)+JVS(10142)& - &*UV(2402)+JVS(10146)*UV(2403)+JVS(10150)*UV(2404)+JVS(10154)*UV(2405)+JVS(10158)*UV(2406)+JVS(10162)& - &*UV(2407)+JVS(10166)*UV(2408)+JVS(10170)*UV(2409)+JVS(10174)*UV(2410)+JVS(10178)*UV(2411)+JVS(10182)& - &*UV(2412)+JVS(10186)*UV(2413)+JVS(10190)*UV(2414)+JVS(10197)*UV(2415)+JVS(10203)*UV(2416)+JVS(10207)& - &*UV(2417)+JVS(10211)*UV(2418)+JVS(10215)*UV(2419)+JVS(10219)*UV(2420)+JVS(10224)*UV(2421)+JVS(10227)& - &*UV(2422)+JVS(10231)*UV(2423)+JVS(10235)*UV(2424)+JVS(10242)*UV(2426)+JVS(10246)*UV(2427)+JVS(10250)& - &*UV(2428)+JVS(10254)*UV(2429)+JVS(10263)*UV(2431)+JVS(10267)*UV(2432)+JVS(10272)*UV(2433)+JVS(10276)& - &*UV(2434)+JVS(10280)*UV(2435)+JVS(10284)*UV(2436)+JVS(10288)*UV(2437)+JVS(10294)*UV(2438)+JVS(10297)& - &*UV(2439)+JVS(10301)*UV(2440)+JVS(10306)*UV(2441)+JVS(10310)*UV(2442)+JVS(10314)*UV(2443)+JVS(10318)& - &*UV(2444)+JVS(10322)*UV(2445)+JVS(10326)*UV(2446)+JVS(10331)*UV(2447)+JVS(10337)*UV(2448)+JVS(10340)& - &*UV(2449)+JVS(10344)*UV(2450)+JVS(10348)*UV(2451)+JVS(10355)*UV(2452)+JVS(10361)*UV(2453)+JVS(10365)& - &*UV(2454)+JVS(10369)*UV(2455)+JVS(10373)*UV(2456)+JVS(10380)*UV(2457)+JVS(10386)*UV(2458)+JVS(10390)& - &*UV(2459)+JVS(10394)*UV(2460)+JVS(10398)*UV(2461)+JVS(10402)*UV(2462)+JVS(10406)*UV(2463)+JVS(10410)& - &*UV(2464)+JVS(10417)*UV(2465)+JVS(10423)*UV(2466)+JVS(10429)*UV(2467)+JVS(10432)*UV(2468)+JVS(10435)& - &*UV(2469)+JVS(10448)*UV(2471)+JVS(10451)*UV(2472)+JVS(10458)*UV(2473)+JVS(10464)*UV(2474)+JVS(10467)& - &*UV(2475)+JVS(10473)*UV(2477)+JVS(10477)*UV(2478)+JVS(10489)*UV(2480)+JVS(10498)*UV(2482)+JVS(10501)& - &*UV(2483)+JVS(10504)*UV(2484)+JVS(10507)*UV(2485)+JVS(10511)*UV(2486)+JVS(10523)*UV(2488)+JVS(10538)& - &*UV(2491)+JVS(10551)*UV(2493)+JVS(10556)*UV(2494)+JVS(10562)*UV(2495)+JVS(10568)*UV(2496)+JVS(10572)& - &*UV(2497)+JVS(10576)*UV(2498)+JVS(10580)*UV(2499)+JVS(10584)*UV(2500)+JVS(10588)*UV(2501)+JVS(10599)& - &*UV(2503)+JVS(10603)*UV(2504)+JVS(10607)*UV(2505)+JVS(10613)*UV(2506)+JVS(10618)*UV(2507)+JVS(10629)& - &*UV(2509)+JVS(10633)*UV(2510)+JVS(10637)*UV(2511)+JVS(10643)*UV(2512)+JVS(10649)*UV(2513)+JVS(10653)& - &*UV(2514)+JVS(10657)*UV(2515)+JVS(10668)*UV(2517)+JVS(10672)*UV(2518)+JVS(10676)*UV(2519)+JVS(10680)& - &*UV(2520)+JVS(10686)*UV(2521)+JVS(10692)*UV(2522)+JVS(10696)*UV(2523)+JVS(10700)*UV(2524)+JVS(10704)& - &*UV(2525)+JVS(10715)*UV(2527)+JVS(10728)*UV(2529)+JVS(10732)*UV(2530)+JVS(10736)*UV(2531)+JVS(10740)& - &*UV(2532)+JVS(10744)*UV(2533)+JVS(10748)*UV(2534)+JVS(10766)*UV(2537)+JVS(10770)*UV(2538)+JVS(10782)& - &*UV(2540)+JVS(10786)*UV(2541)+JVS(10790)*UV(2542)+JVS(10794)*UV(2543)+JVS(10798)*UV(2544)+JVS(10804)& - &*UV(2545)+JVS(10810)*UV(2546)+JVS(10816)*UV(2547)+JVS(10823)*UV(2548)+JVS(10847)*UV(2552)+JVS(10851)& - &*UV(2553)+JVS(10855)*UV(2554)+JVS(10859)*UV(2555)+JVS(10863)*UV(2556)+JVS(10874)*UV(2558)+JVS(10878)& - &*UV(2559)+JVS(10882)*UV(2560)+JVS(10904)*UV(2563)+JVS(10909)*UV(2564)+JVS(10913)*UV(2565)+JVS(10924)& - &*UV(2567)+JVS(10929)*UV(2568)+JVS(10932)*UV(2569)+JVS(10936)*UV(2570)+JVS(10940)*UV(2571)+JVS(10944)& - &*UV(2572)+JVS(10948)*UV(2573)+JVS(10956)*UV(2574)+JVS(10969)*UV(2576)+JVS(10987)*UV(2579)+JVS(10991)& - &*UV(2580)+JVS(11002)*UV(2582)+JVS(11006)*UV(2583)+JVS(11010)*UV(2584)+JVS(11014)*UV(2585)+JVS(11025)& - &*UV(2587)+JVS(11045)*UV(2590)+JVS(11058)*UV(2592)+JVS(11063)*UV(2593)+JVS(11078)*UV(2595)+JVS(11091)& - &*UV(2597)+JVS(11109)*UV(2600)+JVS(11113)*UV(2601)+JVS(11117)*UV(2602)+JVS(11121)*UV(2603)+JVS(11132)& - &*UV(2605)+JVS(11136)*UV(2606)+JVS(11147)*UV(2608)+JVS(11151)*UV(2609)+JVS(11155)*UV(2610)+JVS(11159)& - &*UV(2611)+JVS(11163)*UV(2612)+JVS(11167)*UV(2613)+JVS(11179)*UV(2615)+JVS(11183)*UV(2616)+JVS(11187)& - &*UV(2617)+JVS(11191)*UV(2618)+JVS(11195)*UV(2619)+JVS(11199)*UV(2620)+JVS(11203)*UV(2621)+JVS(11207)& - &*UV(2622)+JVS(11218)*UV(2624)+JVS(11222)*UV(2625)+JVS(11226)*UV(2626)+JVS(11230)*UV(2627)+JVS(11234)& - &*UV(2628)+JVS(11238)*UV(2629)+JVS(11242)*UV(2630)+JVS(11246)*UV(2631)+JVS(11250)*UV(2632)+JVS(11254)& - &*UV(2633)+JVS(11267)*UV(2635)+JVS(11271)*UV(2636)+JVS(11275)*UV(2637)+JVS(11295)*UV(2640)+JVS(11315)& - &*UV(2643)+JVS(11322)*UV(2644)+JVS(11330)*UV(2645)+JVS(11350)*UV(2648)+JVS(11354)*UV(2649)+JVS(11358)& - &*UV(2650)+JVS(11362)*UV(2651)+JVS(11366)*UV(2652)+JVS(11370)*UV(2653)+JVS(11374)*UV(2654)+JVS(11378)& - &*UV(2655)+JVS(11382)*UV(2656)+JVS(11386)*UV(2657)+JVS(11390)*UV(2658)+JVS(11396)*UV(2659)+JVS(11402)& - &*UV(2660)+JVS(11406)*UV(2661)+JVS(11412)*UV(2662)+JVS(11418)*UV(2663)+JVS(11422)*UV(2664)+JVS(11428)& - &*UV(2665)+JVS(11431)*UV(2666)+JVS(11449)*UV(2669)+JVS(11453)*UV(2670)+JVS(11457)*UV(2671)+JVS(11461)& - &*UV(2672)+JVS(11465)*UV(2673)+JVS(11469)*UV(2674)+JVS(11473)*UV(2675)+JVS(11484)*UV(2677)+JVS(11488)& - &*UV(2678)+JVS(11501)*UV(2680)+JVS(11505)*UV(2681)+JVS(11516)*UV(2683)+JVS(11520)*UV(2684)+JVS(11524)& - &*UV(2685)+JVS(11528)*UV(2686)+JVS(11532)*UV(2687)+JVS(11536)*UV(2688)+JVS(11540)*UV(2689)+JVS(11544)& - &*UV(2690)+JVS(11548)*UV(2691)+JVS(11559)*UV(2693)+JVS(11570)*UV(2695)+JVS(11574)*UV(2696)+JVS(11587)& - &*UV(2698)+JVS(11599)*UV(2700)+JVS(11603)*UV(2701)+JVS(11607)*UV(2702)+JVS(11611)*UV(2703)+JVS(11615)& - &*UV(2704)+JVS(11619)*UV(2705)+JVS(11637)*UV(2708)+JVS(11641)*UV(2709)+JVS(11655)*UV(2711)+JVS(11659)& - &*UV(2712)+JVS(11663)*UV(2713)+JVS(11669)*UV(2714)+JVS(11672)*UV(2715)+JVS(11680)*UV(2716)+JVS(11692)& - &*UV(2718)+JVS(11701)*UV(2719)+JVS(11713)*UV(2721)+JVS(11725)*UV(2723)+JVS(11736)*UV(2725)+JVS(11740)& - &*UV(2726)+JVS(11744)*UV(2727)+JVS(11750)*UV(2728)+JVS(11755)*UV(2729)+JVS(11759)*UV(2730)+JVS(11772)& - &*UV(2732)+JVS(11790)*UV(2735)+JVS(11801)*UV(2737)+JVS(11805)*UV(2738)+JVS(11816)*UV(2740)+JVS(11827)& - &*UV(2742)+JVS(11831)*UV(2743)+JVS(11852)*UV(2746)+JVS(11897)*UV(2753)+JVS(11901)*UV(2754)+JVS(11905)& - &*UV(2755)+JVS(11909)*UV(2756)+JVS(11913)*UV(2757)+JVS(11924)*UV(2759)+JVS(11935)*UV(2761)+JVS(11941)& - &*UV(2762)+JVS(11946)*UV(2763)+JVS(11950)*UV(2764)+JVS(11954)*UV(2765)+JVS(11958)*UV(2766)+JVS(11977)& - &*UV(2769)+JVS(11995)*UV(2772)+JVS(12003)*UV(2773)+JVS(12008)*UV(2774)+JVS(12012)*UV(2775)+JVS(12018)& - &*UV(2776)+JVS(12024)*UV(2777)+JVS(12028)*UV(2778)+JVS(12032)*UV(2779)+JVS(12036)*UV(2780)+JVS(12040)& - &*UV(2781)+JVS(12044)*UV(2782)+JVS(12050)*UV(2783)+JVS(12054)*UV(2784)+JVS(12058)*UV(2785)+JVS(12062)& - &*UV(2786)+JVS(12066)*UV(2787)+JVS(12079)*UV(2789)+JVS(12085)*UV(2790)+JVS(12089)*UV(2791)+JVS(12093)& - &*UV(2792)+JVS(12097)*UV(2793)+JVS(12101)*UV(2794)+JVS(12112)*UV(2796)+JVS(12116)*UV(2797)+JVS(12122)& - &*UV(2798)+JVS(12127)*UV(2799)+JVS(12131)*UV(2800)+JVS(12135)*UV(2801)+JVS(12139)*UV(2802)+JVS(12144)& - &*UV(2803)+JVS(12147)*UV(2804)+JVS(12151)*UV(2805)+JVS(12157)*UV(2806)+JVS(12168)*UV(2808)+JVS(12174)& - &*UV(2809)+JVS(12178)*UV(2810)+JVS(12182)*UV(2811)+JVS(12186)*UV(2812)+JVS(12190)*UV(2813)+JVS(12194)& - &*UV(2814)+JVS(12198)*UV(2815)+JVS(12209)*UV(2817)+JVS(12241)*UV(2822)+JVS(12245)*UV(2823)+JVS(12249)& - &*UV(2824)+JVS(12253)*UV(2825)+JVS(12273)*UV(2828)+JVS(12277)*UV(2829)+JVS(12281)*UV(2830)+JVS(12299)& - &*UV(2833)+JVS(12303)*UV(2834)+JVS(12307)*UV(2835)+JVS(12311)*UV(2836)+JVS(12317)*UV(2837)+JVS(12322)& - &*UV(2838)+JVS(12326)*UV(2839)+JVS(12337)*UV(2841)+JVS(12341)*UV(2842)+JVS(12345)*UV(2843)+JVS(12349)& - &*UV(2844)+JVS(12353)*UV(2845)+JVS(12357)*UV(2846)+JVS(12363)*UV(2847)+JVS(12369)*UV(2848)+JVS(12380)& - &*UV(2850)+JVS(12391)*UV(2852)+JVS(12405)*UV(2854)+JVS(12408)*UV(2855)+JVS(12417)*UV(2856)+JVS(12422)& - &*UV(2857)+JVS(12433)*UV(2859)+JVS(12437)*UV(2860)+JVS(12447)*UV(2862)+JVS(12451)*UV(2863)+JVS(12455)& - &*UV(2864)+JVS(12466)*UV(2866)+JVS(12470)*UV(2867)+JVS(12474)*UV(2868)+JVS(12485)*UV(2870)+JVS(12489)& - &*UV(2871)+JVS(12493)*UV(2872)+JVS(12497)*UV(2873)+JVS(12510)*UV(2875)+JVS(12514)*UV(2876)+JVS(12518)& - &*UV(2877)+JVS(12522)*UV(2878)+JVS(12526)*UV(2879)+JVS(12530)*UV(2880)+JVS(12541)*UV(2882)+JVS(12545)& - &*UV(2883)+JVS(12549)*UV(2884)+JVS(12553)*UV(2885)+JVS(12557)*UV(2886)+JVS(12561)*UV(2887)+JVS(12565)& - &*UV(2888)+JVS(12592)*UV(2892)+JVS(12596)*UV(2893)+JVS(12608)*UV(2895)+JVS(12611)*UV(2896)+JVS(12622)& - &*UV(2898)+JVS(12626)*UV(2899)+JVS(12630)*UV(2900)+JVS(12634)*UV(2901)+JVS(12652)*UV(2904)+JVS(12671)& - &*UV(2907)+JVS(12675)*UV(2908)+JVS(12686)*UV(2909)+JVS(12693)*UV(2910)+JVS(12697)*UV(2911)+JVS(12708)& - &*UV(2913)+JVS(12715)*UV(2914)+JVS(12719)*UV(2915)+JVS(12730)*UV(2917)+JVS(12748)*UV(2920)+JVS(12752)& - &*UV(2921)+JVS(12764)*UV(2923)+JVS(12768)*UV(2924)+JVS(12772)*UV(2925)+JVS(12785)*UV(2927)+JVS(12789)& - &*UV(2928)+JVS(12793)*UV(2929)+JVS(12797)*UV(2930)+JVS(12810)*UV(2932)+JVS(12816)*UV(2933)+JVS(12822)& - &*UV(2934)+JVS(12834)*UV(2936)+JVS(12849)*UV(2938)+JVS(12862)*UV(2940)+JVS(12866)*UV(2941)+JVS(12870)& - &*UV(2942)+JVS(12874)*UV(2943)+JVS(12885)*UV(2945)+JVS(12896)*UV(2947)+JVS(12900)*UV(2948)+JVS(12912)& - &*UV(2950)+JVS(12916)*UV(2951)+JVS(12944)*UV(2955)+JVS(12948)*UV(2956)+JVS(12952)*UV(2957)+JVS(12956)& - &*UV(2958)+JVS(12995)*UV(2964)+JVS(13005)*UV(2965)+JVS(13011)*UV(2966)+JVS(13017)*UV(2967)+JVS(13030)& - &*UV(2969)+JVS(13034)*UV(2970)+JVS(13038)*UV(2971)+JVS(13052)*UV(2973)+JVS(13064)*UV(2975)+JVS(13068)& - &*UV(2976)+JVS(13072)*UV(2977)+JVS(13076)*UV(2978)+JVS(13084)*UV(2979)+JVS(13089)*UV(2980)+JVS(13093)& - &*UV(2981)+JVS(13113)*UV(2984)+JVS(13117)*UV(2985)+JVS(13128)*UV(2987)+JVS(13132)*UV(2988)+JVS(13151)& - &*UV(2991)+JVS(13161)*UV(2993)+JVS(13167)*UV(2994)+JVS(13195)*UV(2998)+JVS(13199)*UV(2999)+JVS(13206)& - &*UV(3000)+JVS(13223)*UV(3003)+JVS(13234)*UV(3005)+JVS(13238)*UV(3006)+JVS(13242)*UV(3007)+JVS(13246)& - &*UV(3008)+JVS(13259)*UV(3010)+JVS(13263)*UV(3011)+JVS(13267)*UV(3012)+JVS(13280)*UV(3014)+JVS(13284)& - &*UV(3015)+JVS(13295)*UV(3017)+JVS(13299)*UV(3018)+JVS(13303)*UV(3019)+JVS(13307)*UV(3020)+JVS(13311)& - &*UV(3021)+JVS(13315)*UV(3022)+JVS(13319)*UV(3023)+JVS(13323)*UV(3024)+JVS(13327)*UV(3025)+JVS(13331)& - &*UV(3026)+JVS(13337)*UV(3027)+JVS(13350)*UV(3029)+JVS(13361)*UV(3031)+JVS(13373)*UV(3033)+JVS(13377)& - &*UV(3034)+JVS(13381)*UV(3035)+JVS(13399)*UV(3038)+JVS(13410)*UV(3040)+JVS(13422)*UV(3042)+JVS(13426)& - &*UV(3043)+JVS(13431)*UV(3044)+JVS(13434)*UV(3045)+JVS(13438)*UV(3046)+JVS(13442)*UV(3047)+JVS(13454)& - &*UV(3049)+JVS(13460)*UV(3050)+JVS(13466)*UV(3051)+JVS(13470)*UV(3052)+JVS(13474)*UV(3053)+JVS(13485)& - &*UV(3055)+JVS(13489)*UV(3056)+JVS(13495)*UV(3057)+JVS(13506)*UV(3059)+JVS(13510)*UV(3060)+JVS(13514)& - &*UV(3061)+JVS(13525)*UV(3063)+JVS(13558)*UV(3068)+JVS(13570)*UV(3070)+JVS(13602)*UV(3075)+JVS(13606)& - &*UV(3076)+JVS(13611)*UV(3077)+JVS(13614)*UV(3078)+JVS(13627)*UV(3080)+JVS(13633)*UV(3081)+JVS(13640)& - &*UV(3082)+JVS(13647)*UV(3083)+JVS(13650)*UV(3084)+JVS(13654)*UV(3085)+JVS(13662)*UV(3086)+JVS(13666)& - &*UV(3087)+JVS(13671)*UV(3088)+JVS(13679)*UV(3089)+JVS(13686)*UV(3090)+JVS(13693)*UV(3091)+JVS(13698)& - &*UV(3092)+JVS(13703)*UV(3093)+JVS(13713)*UV(3095)+JVS(13717)*UV(3096)+JVS(13720)*UV(3097)+JVS(13724)& - &*UV(3098)+JVS(13730)*UV(3099)+JVS(13734)*UV(3100)+JVS(13739)*UV(3101)+JVS(13745)*UV(3102)+JVS(13752)& - &*UV(3103)+JVS(13761)*UV(3104)+JVS(13766)*UV(3105)+JVS(13771)*UV(3106)+JVS(13778)*UV(3107)+JVS(13782)& - &*UV(3108)+JVS(13789)*UV(3109)+JVS(13797)*UV(3110)+JVS(13802)*UV(3111)+JVS(13807)*UV(3112)+JVS(13811)& - &*UV(3113)+JVS(13815)*UV(3114)+JVS(13822)*UV(3115)+JVS(13826)*UV(3116)+JVS(13834)*UV(3117)+JVS(13842)& - &*UV(3118)+JVS(13847)*UV(3119)+JVS(13852)*UV(3120)+JVS(13860)*UV(3121)+JVS(13868)*UV(3122)+JVS(13873)& - &*UV(3123)+JVS(13881)*UV(3124)+JVS(13885)*UV(3125)+JVS(13893)*UV(3126)+JVS(13898)*UV(3127)+JVS(13914)& - &*UV(3128)+JVS(13919)*UV(3129)+JVS(13923)*UV(3130)+JVS(13927)*UV(3131)+JVS(13935)*UV(3132)+JVS(13943)& - &*UV(3134)+JVS(13947)*UV(3135)+JVS(13951)*UV(3136)+JVS(13955)*UV(3137)+JVS(13959)*UV(3138)+JVS(13963)& - &*UV(3139)+JVS(13967)*UV(3140)+JVS(13973)*UV(3141)+JVS(13977)*UV(3142)+JVS(13982)*UV(3143)+JVS(13986)& - &*UV(3144)+JVS(13989)*UV(3145)+JVS(13993)*UV(3146)+JVS(14004)*UV(3148)+JVS(14009)*UV(3149)+JVS(14013)& - &*UV(3150)+JVS(14021)*UV(3151)+JVS(14025)*UV(3152)+JVS(14030)*UV(3153)+JVS(14035)*UV(3154)+JVS(14044)& - &*UV(3156)+JVS(14049)*UV(3157)+JVS(14053)*UV(3158)+JVS(14058)*UV(3159)+JVS(14062)*UV(3160)+JVS(14065)& - &*UV(3161)+JVS(14070)*UV(3162)+JVS(14075)*UV(3163)+JVS(14080)*UV(3164)+JVS(14084)*UV(3165)+JVS(14092)& - &*UV(3166)+JVS(14097)*UV(3167)+JVS(14105)*UV(3168)+JVS(14109)*UV(3169)+JVS(14113)*UV(3170)+JVS(14121)& - &*UV(3171)+JVS(14125)*UV(3172)+JVS(14130)*UV(3173)+JVS(14137)*UV(3174)+JVS(14143)*UV(3175)+JVS(14150)& - &*UV(3176)+JVS(14154)*UV(3177)+JVS(14158)*UV(3178)+JVS(14162)*UV(3179)+JVS(14166)*UV(3180)+JVS(14170)& - &*UV(3181)+JVS(14174)*UV(3182)+JVS(14181)*UV(3183)+JVS(14188)*UV(3184)+JVS(14195)*UV(3185)+JVS(14204)& - &*UV(3187)+JVS(14210)*UV(3188)+JVS(14214)*UV(3189)+JVS(14219)*UV(3190)+JVS(14224)*UV(3191)+JVS(14228)& - &*UV(3192)+JVS(14232)*UV(3193)+JVS(14249)*UV(3195)+JVS(14255)*UV(3196)+JVS(14259)*UV(3197)+JVS(14263)& - &*UV(3198)+JVS(14267)*UV(3199)+JVS(14273)*UV(3200)+JVS(14277)*UV(3201)+JVS(14285)*UV(3203)+JVS(14289)& - &*UV(3204)+JVS(14293)*UV(3205)+JVS(14297)*UV(3206)+JVS(14301)*UV(3207)+JVS(14305)*UV(3208)+JVS(14309)& - &*UV(3209)+JVS(14317)*UV(3211)+JVS(14321)*UV(3212)+JVS(14330)*UV(3213)+JVS(14336)*UV(3214)+JVS(14343)& - &*UV(3215)+JVS(14348)*UV(3216)+JVS(14352)*UV(3217)+JVS(14356)*UV(3218)+JVS(14361)*UV(3219)+JVS(14366)& - &*UV(3220)+JVS(14370)*UV(3221)+JVS(14374)*UV(3222)+JVS(14378)*UV(3223)+JVS(14382)*UV(3224)+JVS(14386)& - &*UV(3225)+JVS(14390)*UV(3226)+JVS(14394)*UV(3227)+JVS(14399)*UV(3228)+JVS(14403)*UV(3229)+JVS(14408)& - &*UV(3230)+JVS(14412)*UV(3231)+JVS(14416)*UV(3232)+JVS(14429)*UV(3233)+JVS(14443)*UV(3235)+JVS(14447)& - &*UV(3236)+JVS(14451)*UV(3237)+JVS(14455)*UV(3238)+JVS(14459)*UV(3239)+JVS(14463)*UV(3240)+JVS(14470)& - &*UV(3241)+JVS(14486)*UV(3242)+JVS(14493)*UV(3243)+JVS(14498)*UV(3244)+JVS(14506)*UV(3245)+JVS(14516)& - &*UV(3246)+JVS(14526)*UV(3247)+JVS(14532)*UV(3248)+JVS(14536)*UV(3249)+JVS(14541)*UV(3250)+JVS(14546)& - &*UV(3251)+JVS(14557)*UV(3253)+JVS(14561)*UV(3254)+JVS(14567)*UV(3255)+JVS(14572)*UV(3256)+JVS(14576)& - &*UV(3257)+JVS(14580)*UV(3258)+JVS(14584)*UV(3259)+JVS(14588)*UV(3260)+JVS(14592)*UV(3261)+JVS(14598)& - &*UV(3262)+JVS(14602)*UV(3263)+JVS(14607)*UV(3264)+JVS(14611)*UV(3265)+JVS(14615)*UV(3266)+JVS(14619)& - &*UV(3267)+JVS(14645)*UV(3270)+JVS(14651)*UV(3271)+JVS(14655)*UV(3272)+JVS(14659)*UV(3273)+JVS(14663)& - &*UV(3274)+JVS(14667)*UV(3275)+JVS(14671)*UV(3276)+JVS(14675)*UV(3277)+JVS(14679)*UV(3278)+JVS(14683)& - &*UV(3279)+JVS(14687)*UV(3280)+JVS(14693)*UV(3281)+JVS(14699)*UV(3282)+JVS(14708)*UV(3283)+JVS(14724)& - &*UV(3285)+JVS(14728)*UV(3286)+JVS(14732)*UV(3287)+JVS(14736)*UV(3288)+JVS(14740)*UV(3289)+JVS(14744)& - &*UV(3290)+JVS(14748)*UV(3291)+JVS(14752)*UV(3292)+JVS(14756)*UV(3293)+JVS(14760)*UV(3294)+JVS(14764)& - &*UV(3295)+JVS(14773)*UV(3296)+JVS(14784)*UV(3298)+JVS(14787)*UV(3299)+JVS(14791)*UV(3300)+JVS(14804)& - &*UV(3302)+JVS(14807)*UV(3303)+JVS(14811)*UV(3304)+JVS(14823)*UV(3306)+JVS(14827)*UV(3307)+JVS(14831)& - &*UV(3308)+JVS(14837)*UV(3309)+JVS(14841)*UV(3310)+JVS(14845)*UV(3311)+JVS(14849)*UV(3312)+JVS(14853)& - &*UV(3313)+JVS(14857)*UV(3314)+JVS(14861)*UV(3315)+JVS(14865)*UV(3316)+JVS(14869)*UV(3317)+JVS(14873)& - &*UV(3318)+JVS(14877)*UV(3319)+JVS(14881)*UV(3320)+JVS(14885)*UV(3321)+JVS(14889)*UV(3322)+JVS(14893)& - &*UV(3323)+JVS(14897)*UV(3324)+JVS(14901)*UV(3325)+JVS(14905)*UV(3326)+JVS(14909)*UV(3327)+JVS(14915)& - &*UV(3328)+JVS(14929)*UV(3330)+JVS(14938)*UV(3331)+JVS(14961)*UV(3334)+JVS(14974)*UV(3336)+JVS(14982)& - &*UV(3337)+JVS(14997)*UV(3339)+JVS(15001)*UV(3340)+JVS(15007)*UV(3341)+JVS(15023)*UV(3343)+JVS(15040)& - &*UV(3345)+JVS(15063)*UV(3348)+JVS(15070)*UV(3349)+JVS(15078)*UV(3350)+JVS(15093)*UV(3352)+JVS(15097)& - &*UV(3353)+JVS(15104)*UV(3354)+JVS(15111)*UV(3355)+JVS(15119)*UV(3356)+JVS(15123)*UV(3357)+JVS(15128)& - &*UV(3358)+JVS(15135)*UV(3359)+JVS(15139)*UV(3360)+JVS(15166)*UV(3364)+JVS(15174)*UV(3365)+JVS(15181)& - &*UV(3366)+JVS(15197)*UV(3368)+JVS(15207)*UV(3369)+JVS(15232)*UV(3372)+JVS(15242)*UV(3373)+JVS(15251)& - &*UV(3374)+JVS(15265)*UV(3376)+JVS(15280)*UV(3378)+JVS(15284)*UV(3379)+JVS(15304)*UV(3382)+JVS(15320)& - &*UV(3384)+JVS(15328)*UV(3385)+JVS(15343)*UV(3387)+JVS(15357)*UV(3389)+JVS(15373)*UV(3391)+JVS(15380)& - &*UV(3392)+JVS(15394)*UV(3394)+JVS(15419)*UV(3397)+JVS(15434)*UV(3399)+JVS(15447)*UV(3401)+JVS(15461)& - &*UV(3403)+JVS(15499)*UV(3408)+JVS(15505)*UV(3409)+JVS(15519)*UV(3411)+JVS(15528)*UV(3412)+JVS(15537)& - &*UV(3413)+JVS(15557)*UV(3416)+JVS(15571)*UV(3418)+JVS(15585)*UV(3420)+JVS(15630)*UV(3426)+JVS(15634)& - &*UV(3427)+JVS(15641)*UV(3428)+JVS(15665)*UV(3431)+JVS(15672)*UV(3432)+JVS(15679)*UV(3433)+JVS(15688)& - &*UV(3434)+JVS(15693)*UV(3435)+JVS(15697)*UV(3436)+JVS(15701)*UV(3437)+JVS(15705)*UV(3438)+JVS(15709)& - &*UV(3439)+JVS(15716)*UV(3440)+JVS(15722)*UV(3441)+JVS(15725)*UV(3442)+JVS(15730)*UV(3443)+JVS(15734)& - &*UV(3444)+JVS(15738)*UV(3445)+JVS(15742)*UV(3446)+JVS(15746)*UV(3447)+JVS(15750)*UV(3448)+JVS(15754)& - &*UV(3449)+JVS(15761)*UV(3450)+JVS(15764)*UV(3451)+JVS(15768)*UV(3452)+JVS(15772)*UV(3453)+JVS(15777)& - &*UV(3454)+JVS(15781)*UV(3455)+JVS(15795)*UV(3457)+JVS(15799)*UV(3458)+JVS(15803)*UV(3459)+JVS(15807)& - &*UV(3460)+JVS(15821)*UV(3462)+JVS(15825)*UV(3463)+JVS(15830)*UV(3464)+JVS(15832)*UV(3465)+JVS(15836)& - &*UV(3466)+JVS(15841)*UV(3467)+JVS(15845)*UV(3468)+JVS(15849)*UV(3469)+JVS(15854)*UV(3470)+JVS(15858)& - &*UV(3471)+JVS(15862)*UV(3472)+JVS(15866)*UV(3473)+JVS(15880)*UV(3475)+JVS(15885)*UV(3476)+JVS(15891)& - &*UV(3477)+JVS(15902)*UV(3478)+JVS(15915)*UV(3480)+JVS(15919)*UV(3481)+JVS(15925)*UV(3482)+JVS(15932)& - &*UV(3483)+JVS(15938)*UV(3484)+JVS(15942)*UV(3485)+JVS(15949)*UV(3486)+JVS(15954)*UV(3487)+JVS(15959)& - &*UV(3488)+JVS(15965)*UV(3489)+JVS(15977)*UV(3491)+JVS(15983)*UV(3492)+JVS(15992)*UV(3493)+JVS(15997)& - &*UV(3494)+JVS(16002)*UV(3495)+JVS(16017)*UV(3497)+JVS(16028)*UV(3498)+JVS(16032)*UV(3499)+JVS(16039)& - &*UV(3500)+JVS(16043)*UV(3501)+JVS(16049)*UV(3502)+JVS(16054)*UV(3503)+JVS(16063)*UV(3504)+JVS(16071)& - &*UV(3505)+JVS(16076)*UV(3506)+JVS(16081)*UV(3507)+JVS(16087)*UV(3508)+JVS(16092)*UV(3509)+JVS(16099)& - &*UV(3510)+JVS(16105)*UV(3511)+JVS(16111)*UV(3512)+JVS(16117)*UV(3513)+JVS(16127)*UV(3514)+JVS(16134)& - &*UV(3515)+JVS(16146)*UV(3516)+JVS(16157)*UV(3517)+JVS(16162)*UV(3518)+JVS(16168)*UV(3519)+JVS(16174)& - &*UV(3520)+JVS(16178)*UV(3521)+JVS(16187)*UV(3522)+JVS(16192)*UV(3523)+JVS(16198)*UV(3524)+JVS(16202)& - &*UV(3525)+JVS(16209)*UV(3526)+JVS(16215)*UV(3527)+JVS(16221)*UV(3528)+JVS(16227)*UV(3529)+JVS(16235)& - &*UV(3530)+JVS(16242)*UV(3531)+JVS(16250)*UV(3532)+JVS(16254)*UV(3533)+JVS(16259)*UV(3534)+JVS(16269)& - &*UV(3535)+JVS(16282)*UV(3536)+JVS(16291)*UV(3537)+JVS(16297)*UV(3538)+JVS(16304)*UV(3539)+JVS(16310)& - &*UV(3540)+JVS(16321)*UV(3541)+JVS(16332)*UV(3542)+JVS(16339)*UV(3543)+JVS(16347)*UV(3544)+JVS(16352)& - &*UV(3545)+JVS(16358)*UV(3546)+JVS(16368)*UV(3547)+JVS(16376)*UV(3548)+JVS(16383)*UV(3549)+JVS(16387)& - &*UV(3550)+JVS(16391)*UV(3551)+JVS(16396)*UV(3552)+JVS(16401)*UV(3553)+JVS(16407)*UV(3554)+JVS(16415)& - &*UV(3555)+JVS(16423)*UV(3556)+JVS(16436)*UV(3557)+JVS(16441)*UV(3558)+JVS(16450)*UV(3559)+JVS(16454)& - &*UV(3560)+JVS(16464)*UV(3561)+JVS(16470)*UV(3562)+JVS(16478)*UV(3563)+JVS(16521)*UV(3569)+JVS(16537)& - &*UV(3571)+JVS(16589)*UV(3578)+JVS(16606)*UV(3580)+JVS(16613)*UV(3581)+JVS(16630)*UV(3583)+JVS(16660)& - &*UV(3587)+JVS(16687)*UV(3590)+JVS(16711)*UV(3593)+JVS(16721)*UV(3594)+JVS(16729)*UV(3595)+JVS(16761)& - &*UV(3599)+JVS(16768)*UV(3600)+JVS(16779)*UV(3601)+JVS(16788)*UV(3602)+JVS(16796)*UV(3603)+JVS(16805)& - &*UV(3604)+JVS(16830)*UV(3607)+JVS(16839)*UV(3608)+JVS(16847)*UV(3609)+JVS(16863)*UV(3611)+JVS(16871)& - &*UV(3612)+JVS(16895)*UV(3615)+JVS(16906)*UV(3616)+JVS(16919)*UV(3617)+JVS(16929)*UV(3618)+JVS(16943)& - &*UV(3619)+JVS(16950)*UV(3620)+JVS(16954)*UV(3621)+JVS(16958)*UV(3622)+JVS(16963)*UV(3623)+JVS(16967)& - &*UV(3624)+JVS(16971)*UV(3625)+JVS(16986)*UV(3626)+JVS(16994)*UV(3627)+JVS(17003)*UV(3628)+JVS(17011)& - &*UV(3629)+JVS(17027)*UV(3631)+JVS(17034)*UV(3632)+JVS(17041)*UV(3633)+JVS(17054)*UV(3635)+JVS(17063)& - &*UV(3637)+JVS(17079)*UV(3638)+JVS(17098)*UV(3639)+JVS(17107)*UV(3640)+JVS(17114)*UV(3641)+JVS(17126)& - &*UV(3642)+JVS(17137)*UV(3643)+JVS(17148)*UV(3644)+JVS(17159)*UV(3645)+JVS(17166)*UV(3646)+JVS(17179)& - &*UV(3648)+JVS(17189)*UV(3649)+JVS(17196)*UV(3650)+JVS(17209)*UV(3651)+JVS(17217)*UV(3652)+JVS(17226)& - &*UV(3653)+JVS(17231)*UV(3654)+JVS(17240)*UV(3655)+JVS(17252)*UV(3656)+JVS(17261)*UV(3657)+JVS(17273)& - &*UV(3659)+JVS(17279)*UV(3660)+JVS(17288)*UV(3661)+JVS(17295)*UV(3662)+JVS(17300)*UV(3663)+JVS(17310)& - &*UV(3664)+JVS(17317)*UV(3665)+JVS(17325)*UV(3666)+JVS(17333)*UV(3667)+JVS(17348)*UV(3669)+JVS(17354)& - &*UV(3670)+JVS(17361)*UV(3671)+JVS(17371)*UV(3672)+JVS(17377)*UV(3673)+JVS(17385)*UV(3674)+JVS(17392)& - &*UV(3675)+JVS(17400)*UV(3676)+JVS(17407)*UV(3677)+JVS(17415)*UV(3678)+JVS(17423)*UV(3679)+JVS(17431)& - &*UV(3680)+JVS(17439)*UV(3681)+JVS(17447)*UV(3682)+JVS(17457)*UV(3683)+JVS(17463)*UV(3684)+JVS(17470)& - &*UV(3685)+JVS(17478)*UV(3686)+JVS(17485)*UV(3687)+JVS(17495)*UV(3688)+JVS(17505)*UV(3689)+JVS(17530)& - &*UV(3692)+JVS(17539)*UV(3693)+JVS(17547)*UV(3694)+JVS(17554)*UV(3695)+JVS(17561)*UV(3696)+JVS(17568)& - &*UV(3697)+JVS(17576)*UV(3698)+JVS(17583)*UV(3699)+JVS(17596)*UV(3701)+JVS(17601)*UV(3702)+JVS(17607)& - &*UV(3703)+JVS(17615)*UV(3704)+JVS(17622)*UV(3705)+JVS(17636)*UV(3707)+JVS(17643)*UV(3708)+JVS(17649)& - &*UV(3709)+JVS(17659)*UV(3710)+JVS(17666)*UV(3711)+JVS(17674)*UV(3712)+JVS(17681)*UV(3713)+JVS(17689)& - &*UV(3714)+JVS(17697)*UV(3715)+JVS(17708)*UV(3716)+JVS(17715)*UV(3717)+JVS(17732)*UV(3719)+JVS(17741)& - &*UV(3720)+JVS(17748)*UV(3721)+JVS(17757)*UV(3722)+JVS(17765)*UV(3723)+JVS(17774)*UV(3724)+JVS(17781)& - &*UV(3725)+JVS(17792)*UV(3726)+JVS(17800)*UV(3727)+JVS(17807)*UV(3728)+JVS(17815)*UV(3729)+JVS(17823)& - &*UV(3730)+JVS(17840)*UV(3732)+JVS(17846)*UV(3733)+JVS(17857)*UV(3734)+JVS(17866)*UV(3735)+JVS(17875)& - &*UV(3736)+JVS(17890)*UV(3738)+JVS(17897)*UV(3739)+JVS(17904)*UV(3740)+JVS(17915)*UV(3741)+JVS(17924)& - &*UV(3742)+JVS(17932)*UV(3743)+JVS(17948)*UV(3745)+JVS(17956)*UV(3746)+JVS(17969)*UV(3747)+JVS(17981)& - &*UV(3748)+JVS(18014)*UV(3752)+JVS(18022)*UV(3753)+JVS(18031)*UV(3754)+JVS(18042)*UV(3755)+JVS(18051)& - &*UV(3756)+JVS(18061)*UV(3757)+JVS(18068)*UV(3758)+JVS(18080)*UV(3759)+JVS(18088)*UV(3760)+JVS(18097)& - &*UV(3761)+JVS(18104)*UV(3762)+JVS(18113)*UV(3763)+JVS(18121)*UV(3764)+JVS(18129)*UV(3765)+JVS(18137)& - &*UV(3766)+JVS(18152)*UV(3768)+JVS(18160)*UV(3769)+JVS(18167)*UV(3770)+JVS(18175)*UV(3771)+JVS(18182)& - &*UV(3772)+JVS(18194)*UV(3773)+JVS(18201)*UV(3774)+JVS(18213)*UV(3775)+JVS(18223)*UV(3776)+JVS(18232)& - &*UV(3777)+JVS(18240)*UV(3778)+JVS(18259)*UV(3780)+JVS(18266)*UV(3781)+JVS(18274)*UV(3782)+JVS(18283)& - &*UV(3783)+JVS(18292)*UV(3784)+JVS(18300)*UV(3785)+JVS(18307)*UV(3786)+JVS(18316)*UV(3787)+JVS(18323)& - &*UV(3788)+JVS(18331)*UV(3789)+JVS(18337)*UV(3790)+JVS(18344)*UV(3791)+JVS(18351)*UV(3792)+JVS(18359)& - &*UV(3793)+JVS(18367)*UV(3794)+JVS(18382)*UV(3796)+JVS(18390)*UV(3797)+JVS(18397)*UV(3798)+JVS(18404)& - &*UV(3799)+JVS(18414)*UV(3800)+JVS(18429)*UV(3802)+JVS(18435)*UV(3803)+JVS(18441)*UV(3804)+JVS(18460)& - &*UV(3807)+JVS(18467)*UV(3808)+JVS(18479)*UV(3809)+JVS(18486)*UV(3810)+JVS(18492)*UV(3811)+JVS(18507)& - &*UV(3813)+JVS(18514)*UV(3814)+JVS(18521)*UV(3815)+JVS(18530)*UV(3816)+JVS(18537)*UV(3817)+JVS(18546)& - &*UV(3818)+JVS(18552)*UV(3819)+JVS(18559)*UV(3820)+JVS(18573)*UV(3821)+JVS(18583)*UV(3822)+JVS(18588)& - &*UV(3823)+JVS(18603)*UV(3825)+JVS(18612)*UV(3826)+JVS(18619)*UV(3827)+JVS(18626)*UV(3828)+JVS(18634)& - &*UV(3829)+JVS(18640)*UV(3830)+JVS(18645)*UV(3831)+JVS(18650)*UV(3832)+JVS(18654)*UV(3833)+JVS(18659)& - &*UV(3834)+JVS(18664)*UV(3835)+JVS(18669)*UV(3836)+JVS(18676)*UV(3837)+JVS(18686)*UV(3838)+JVS(18694)& - &*UV(3839)+JVS(18701)*UV(3840)+JVS(18709)*UV(3841)+JVS(18726)*UV(3843)+JVS(18733)*UV(3844)+JVS(18743)& - &*UV(3845)+JVS(18753)*UV(3846)+JVS(18760)*UV(3847)+JVS(18767)*UV(3848)+JVS(18782)*UV(3849)+JVS(18790)& - &*UV(3850)+JVS(18799)*UV(3851)+JVS(18805)*UV(3852)+JVS(18812)*UV(3853)+JVS(18822)*UV(3854)+JVS(18840)& - &*UV(3856)+JVS(18849)*UV(3857)+JVS(18857)*UV(3858)+JVS(18865)*UV(3859)+JVS(18874)*UV(3860)+JVS(18883)& - &*UV(3861)+JVS(18891)*UV(3862)+JVS(18898)*UV(3863)+JVS(18907)*UV(3864)+JVS(18914)*UV(3865)+JVS(18921)& - &*UV(3866)+JVS(18927)*UV(3867)+JVS(18939)*UV(3868)+JVS(18948)*UV(3869)+JVS(18967)*UV(3871)+JVS(18974)& - &*UV(3872)+JVS(18982)*UV(3873)+JVS(18991)*UV(3874)+JVS(19000)*UV(3875)+JVS(19007)*UV(3876)+JVS(19017)& - &*UV(3877)+JVS(19035)*UV(3879)+JVS(19045)*UV(3880)+JVS(19055)*UV(3881)+JVS(19070)*UV(3883)+JVS(19078)& - &*UV(3884)+JVS(19086)*UV(3885)+JVS(19093)*UV(3886)+JVS(19109)*UV(3888)+JVS(19117)*UV(3889)+JVS(19133)& - &*UV(3891)+JVS(19142)*UV(3892)+JVS(19149)*UV(3893)+JVS(19157)*UV(3894)+JVS(19164)*UV(3895)+JVS(19175)& - &*UV(3896)+JVS(19189)*UV(3898)+JVS(19197)*UV(3899)+JVS(19206)*UV(3900)+JVS(19230)*UV(3903)+JVS(19247)& - &*UV(3905)+JVS(19255)*UV(3906)+JVS(19262)*UV(3907)+JVS(19294)*UV(3911)+JVS(19304)*UV(3912)+JVS(19323)& - &*UV(3914)+JVS(19334)*UV(3915)+JVS(19344)*UV(3916)+JVS(19355)*UV(3917)+JVS(19370)*UV(3918)+JVS(19380)& - &*UV(3919)+JVS(19387)*UV(3920)+JVS(19394)*UV(3921)+JVS(19411)*UV(3923)+JVS(19421)*UV(3924)+JVS(19438)& - &*UV(3926)+JVS(19444)*UV(3927)+JVS(19451)*UV(3928)+JVS(19461)*UV(3929)+JVS(19472)*UV(3930)+JVS(19481)& - &*UV(3931)+JVS(19496)*UV(3933)+JVS(19513)*UV(3935)+JVS(19519)*UV(3936)+JVS(19527)*UV(3937)+JVS(19535)& - &*UV(3938)+JVS(19542)*UV(3939)+JVS(19549)*UV(3940)+JVS(19559)*UV(3941)+JVS(19573)*UV(3943)+JVS(19580)& - &*UV(3944)+JVS(19587)*UV(3945)+JVS(19598)*UV(3946)+JVS(19608)*UV(3947)+JVS(19616)*UV(3948)+JVS(19623)& - &*UV(3949)+JVS(19630)*UV(3950)+JVS(19654)*UV(3953)+JVS(19663)*UV(3954)+JVS(19672)*UV(3955)+JVS(19698)& - &*UV(3958)+JVS(19711)*UV(3959)+JVS(19717)*UV(3960)+JVS(19725)*UV(3961)+JVS(19738)*UV(3963)+JVS(19747)& - &*UV(3964)+JVS(19758)*UV(3965)+JVS(19762)*UV(3966)+JVS(19780)*UV(3968)+JVS(19787)*UV(3969)+JVS(19801)& - &*UV(3971)+JVS(19809)*UV(3972)+JVS(19817)*UV(3973)+JVS(19824)*UV(3974)+JVS(19832)*UV(3975)+JVS(19840)& - &*UV(3976)+JVS(19850)*UV(3977)+JVS(19862)*UV(3978)+JVS(19872)*UV(3979)+JVS(19879)*UV(3980)+JVS(19889)& - &*UV(3981)+JVS(19896)*UV(3982)+JVS(19903)*UV(3983)+JVS(19911)*UV(3984)+JVS(19918)*UV(3985)+JVS(19929)& - &*UV(3986)+JVS(19936)*UV(3987)+JVS(19942)*UV(3988)+JVS(19958)*UV(3990)+JVS(19967)*UV(3991)+JVS(19976)& - &*UV(3992)+JVS(19988)*UV(3993)+JVS(19994)*UV(3994)+JVS(20004)*UV(3995)+JVS(20010)*UV(3996)+JVS(20016)& - &*UV(3997)+JVS(20027)*UV(3998)+JVS(20035)*UV(3999)+JVS(20047)*UV(4000)+JVS(20055)*UV(4001)+JVS(20063)& - &*UV(4002)+JVS(20070)*UV(4003)+JVS(20089)*UV(4005)+JVS(20097)*UV(4006)+JVS(20105)*UV(4007)+JVS(20113)& - &*UV(4008)+JVS(20121)*UV(4009)+JVS(20128)*UV(4010)+JVS(20134)*UV(4011)+JVS(20146)*UV(4012)+JVS(20158)& - &*UV(4013)+JVS(20175)*UV(4014)+JVS(20185)*UV(4015)+JVS(20192)*UV(4016)+JVS(20199)*UV(4017)+JVS(20204)& - &*UV(4018)+JVS(20212)*UV(4019)+JVS(20219)*UV(4020)+JVS(20227)*UV(4021)+JVS(20235)*UV(4022)+JVS(20243)& - &*UV(4023)+JVS(20252)*UV(4024)+JVS(20261)*UV(4025)+JVS(20270)*UV(4026)+JVS(20277)*UV(4027)+JVS(20283)& - &*UV(4028)+JVS(20292)*UV(4029)+JVS(20299)*UV(4030)+JVS(20307)*UV(4031)+JVS(20313)*UV(4032)+JVS(20319)& - &*UV(4033)+JVS(20327)*UV(4034)+JVS(20335)*UV(4035)+JVS(20343)*UV(4036)+JVS(20351)*UV(4037)+JVS(20362)& - &*UV(4038)+JVS(20370)*UV(4039)+JVS(20378)*UV(4040)+JVS(20390)*UV(4041)+JVS(20405)*UV(4042)+JVS(20414)& - &*UV(4043)+JVS(20421)*UV(4044)+JVS(20433)*UV(4045)+JVS(20445)*UV(4046)+JVS(20458)*UV(4047)+JVS(20470)& - &*UV(4048)+JVS(20479)*UV(4049)+JVS(20489)*UV(4050)+JVS(20504)*UV(4051)+JVS(20515)*UV(4052)+JVS(20527)& - &*UV(4053)+JVS(20534)*UV(4054)+JVS(20541)*UV(4055)+JVS(20547)*UV(4056)+JVS(20553)*UV(4057)+JVS(20564)& - &*UV(4058)+JVS(20573)*UV(4059)+JVS(20586)*UV(4060)+JVS(20593)*UV(4061)+JVS(20603)*UV(4062)+JVS(20610)& - &*UV(4063)+JVS(20618)*UV(4064)+JVS(20626)*UV(4065)+JVS(20634)*UV(4066)+JVS(20639)*UV(4067)+JVS(20647)& - &*UV(4068)+JVS(20656)*UV(4069)+JVS(20663)*UV(4070)+JVS(20671)*UV(4071)+JVS(20678)*UV(4072)+JVS(20686)& - &*UV(4073)+JVS(20694)*UV(4074)+JVS(20701)*UV(4075)+JVS(20710)*UV(4076)+JVS(20720)*UV(4077)+JVS(20728)& - &*UV(4078)+JVS(20736)*UV(4079)+JVS(20743)*UV(4080)+JVS(20758)*UV(4082)+JVS(20765)*UV(4083)+JVS(20783)& - &*UV(4085)+JVS(20793)*UV(4086)+JVS(20810)*UV(4088)+JVS(20828)*UV(4090)+JVS(20835)*UV(4091)+JVS(20849)& - &*UV(4092)+JVS(20855)*UV(4093)+JVS(20860)*UV(4094)+JVS(20866)*UV(4095)+JVS(20872)*UV(4096)+JVS(20878)& - &*UV(4097)+JVS(20896)*UV(4099)+JVS(20904)*UV(4100)+JVS(20915)*UV(4101)+JVS(20925)*UV(4102)+JVS(20937)& - &*UV(4103)+JVS(20953)*UV(4104)+JVS(20962)*UV(4105)+JVS(20969)*UV(4106)+JVS(20976)*UV(4107)+JVS(20981)& - &*UV(4108)+JVS(20997)*UV(4109)+JVS(21008)*UV(4110)+JVS(21014)*UV(4111)+JVS(21021)*UV(4112)+JVS(21028)& - &*UV(4113)+JVS(21034)*UV(4114)+JVS(21042)*UV(4115)+JVS(21050)*UV(4116)+JVS(21057)*UV(4117)+JVS(21066)& - &*UV(4118)+JVS(21076)*UV(4119)+JVS(21094)*UV(4121)+JVS(21105)*UV(4122)+JVS(21113)*UV(4123)+JVS(21120)& - &*UV(4124)+JVS(21135)*UV(4125)+JVS(21141)*UV(4126)+JVS(21149)*UV(4127)+JVS(21156)*UV(4128)+JVS(21180)& - &*UV(4131)+JVS(21188)*UV(4132)+JVS(21196)*UV(4133)+JVS(21203)*UV(4134)+JVS(21228)*UV(4137)+JVS(21237)& - &*UV(4138)+JVS(21245)*UV(4139)+JVS(21253)*UV(4140)+JVS(21259)*UV(4141)+JVS(21273)*UV(4143)+JVS(21293)& - &*UV(4146)+JVS(21315)*UV(4149)+JVS(21333)*UV(4151)+JVS(21344)*UV(4152)+JVS(21352)*UV(4153)+JVS(21364)& - &*UV(4154)+JVS(21373)*UV(4155)+JVS(21380)*UV(4156)+JVS(21389)*UV(4157)+JVS(21397)*UV(4158)+JVS(21403)& - &*UV(4159)+JVS(21411)*UV(4160)+JVS(21419)*UV(4161)+JVS(21436)*UV(4163)+JVS(21447)*UV(4164)+JVS(21453)& - &*UV(4165)+JVS(21461)*UV(4166)+JVS(21468)*UV(4167)+JVS(21477)*UV(4168)+JVS(21488)*UV(4169)+JVS(21497)& - &*UV(4170)+JVS(21504)*UV(4171)+JVS(21522)*UV(4173)+JVS(21530)*UV(4174)+JVS(21544)*UV(4175)+JVS(21561)& - &*UV(4177)+JVS(21572)*UV(4178)+JVS(21583)*UV(4179)+JVS(21590)*UV(4180)+JVS(21605)*UV(4181)+JVS(21616)& - &*UV(4182)+JVS(21632)*UV(4183)+JVS(21648)*UV(4185)+JVS(21660)*UV(4186)+JVS(21668)*UV(4187)+JVS(21678)& - &*UV(4188)+JVS(21689)*UV(4189)+JVS(21706)*UV(4191)+JVS(21714)*UV(4192)+JVS(21723)*UV(4193)+JVS(21732)& - &*UV(4194)+JVS(21741)*UV(4195)+JVS(21754)*UV(4196)+JVS(21764)*UV(4197)+JVS(21772)*UV(4198)+JVS(21786)& - &*UV(4199)+JVS(21795)*UV(4200)+JVS(21804)*UV(4201)+JVS(21815)*UV(4202)+JVS(21825)*UV(4203)+JVS(21834)& - &*UV(4204)+JVS(21843)*UV(4205)+JVS(21852)*UV(4206)+JVS(21862)*UV(4207)+JVS(21873)*UV(4208)+JVS(21882)& - &*UV(4209)+JVS(21891)*UV(4210)+JVS(21902)*UV(4211)+JVS(21910)*UV(4212)+JVS(21930)*UV(4214)+JVS(21939)& - &*UV(4215)+JVS(21953)*UV(4216)+JVS(21962)*UV(4217)+JVS(21974)*UV(4218)+JVS(21987)*UV(4219)+JVS(21999)& - &*UV(4220)+JVS(22012)*UV(4221)+JVS(22022)*UV(4222)+JVS(22035)*UV(4223)+JVS(22045)*UV(4224)+JVS(22054)& - &*UV(4225)+JVS(22067)*UV(4226)+JVS(22077)*UV(4227)+JVS(22088)*UV(4228)+JVS(22098)*UV(4229)+JVS(22108)& - &*UV(4230)+JVS(22121)*UV(4231)+JVS(22129)*UV(4232)+JVS(22139)*UV(4233)+JVS(22150)*UV(4234)+JVS(22161)& - &*UV(4235)+JVS(22169)*UV(4236)+JVS(22178)*UV(4237)+JVS(22189)*UV(4238)+JVS(22202)*UV(4239)+JVS(22210)& - &*UV(4240)+JVS(22223)*UV(4241)+JVS(22232)*UV(4242)+JVS(22242)*UV(4243)+JVS(22252)*UV(4244)+JVS(22260)& - &*UV(4245)+JVS(22269)*UV(4246)+JVS(22296)*UV(4248)+JVS(22303)*UV(4249)+JVS(22323)*UV(4251)+JVS(22331)& - &*UV(4252)+JVS(22344)*UV(4253)+JVS(22355)*UV(4254)+JVS(22363)*UV(4255)+JVS(22375)*UV(4256)+JVS(22384)& - &*UV(4257)+JVS(22401)*UV(4259)+JVS(22411)*UV(4260)+JVS(22424)*UV(4261)+JVS(22432)*UV(4262)+JVS(22444)& - &*UV(4263)+JVS(22460)*UV(4265)+JVS(22470)*UV(4266)+JVS(22481)*UV(4267)+JVS(22491)*UV(4268)+JVS(22500)& - &*UV(4269)+JVS(22511)*UV(4270)+JVS(22519)*UV(4271)+JVS(22526)*UV(4272)+JVS(22533)*UV(4273)+JVS(22544)& - &*UV(4274)+JVS(22552)*UV(4275)+JVS(22561)*UV(4276)+JVS(22572)*UV(4277)+JVS(22588)*UV(4278)+JVS(22599)& - &*UV(4279)+JVS(22607)*UV(4280)+JVS(22616)*UV(4281)+JVS(22633)*UV(4283)+JVS(22644)*UV(4284)+JVS(22652)& - &*UV(4285)+JVS(22669)*UV(4287)+JVS(22678)*UV(4288)+JVS(22687)*UV(4289)+JVS(22700)*UV(4290)+JVS(22709)& - &*UV(4291)+JVS(22718)*UV(4292)+JVS(22727)*UV(4293)+JVS(22750)*UV(4294)+JVS(22763)*UV(4295)+JVS(22772)& - &*UV(4296)+JVS(22781)*UV(4297)+JVS(22790)*UV(4298)+JVS(22803)*UV(4299)+JVS(22816)*UV(4300)+JVS(22825)& - &*UV(4301)+JVS(22842)*UV(4303)+JVS(22851)*UV(4304)+JVS(22860)*UV(4305)+JVS(22869)*UV(4306)+JVS(22878)& - &*UV(4307)+JVS(22891)*UV(4308)+JVS(22902)*UV(4309)+JVS(22914)*UV(4310)+JVS(22924)*UV(4311)+JVS(22933)& - &*UV(4312)+JVS(22949)*UV(4313)+JVS(22957)*UV(4314)+JVS(22969)*UV(4315)+JVS(22980)*UV(4316)+JVS(22989)& - &*UV(4317)+JVS(22999)*UV(4318)+JVS(23011)*UV(4319)+JVS(23037)*UV(4322)+JVS(23045)*UV(4323)+JVS(23057)& - &*UV(4324)+JVS(23072)*UV(4325)+JVS(23084)*UV(4326)+JVS(23092)*UV(4327)+JVS(23102)*UV(4328)+JVS(23116)& - &*UV(4329)+JVS(23123)*UV(4330)+JVS(23147)*UV(4331)+JVS(23153)*UV(4332)+JVS(23170)*UV(4334)+JVS(23177)& - &*UV(4335)+JVS(23186)*UV(4336)+JVS(23193)*UV(4337)+JVS(23201)*UV(4338)+JVS(23208)*UV(4339)+JVS(23223)& - &*UV(4341)+JVS(23231)*UV(4342)+JVS(23240)*UV(4343)+JVS(23250)*UV(4344)+JVS(23259)*UV(4345)+JVS(23267)& - &*UV(4346)+JVS(23274)*UV(4347)+JVS(23282)*UV(4348)+JVS(23290)*UV(4349)+JVS(23306)*UV(4351)+JVS(23319)& - &*UV(4352)+JVS(23327)*UV(4353)+JVS(23334)*UV(4354)+JVS(23342)*UV(4355)+JVS(23350)*UV(4356)+JVS(23357)& - &*UV(4357)+JVS(23364)*UV(4358)+JVS(23372)*UV(4359)+JVS(23390)*UV(4361)+JVS(23398)*UV(4362)+JVS(23414)& - &*UV(4364)+JVS(23425)*UV(4365)+JVS(23448)*UV(4366)+JVS(23457)*UV(4367)+JVS(23464)*UV(4368)+JVS(23472)& - &*UV(4369)+JVS(23479)*UV(4370)+JVS(23492)*UV(4372)+JVS(23502)*UV(4373)+JVS(23519)*UV(4375)+JVS(23532)& - &*UV(4376)+JVS(23540)*UV(4377)+JVS(23550)*UV(4378)+JVS(23557)*UV(4379)+JVS(23565)*UV(4380)+JVS(23574)& - &*UV(4381)+JVS(23580)*UV(4382)+JVS(23594)*UV(4383)+JVS(23603)*UV(4384)+JVS(23614)*UV(4385)+JVS(23629)& - &*UV(4386)+JVS(23654)*UV(4389)+JVS(23662)*UV(4390)+JVS(23678)*UV(4391)+JVS(23698)*UV(4392)+JVS(23717)& - &*UV(4394)+JVS(23722)*UV(4395)+JVS(23729)*UV(4396)+JVS(23736)*UV(4397)+JVS(23749)*UV(4398)+JVS(23758)& - &*UV(4399)+JVS(23766)*UV(4400)+JVS(23779)*UV(4401)+JVS(23788)*UV(4402)+JVS(23834)*UV(4403)+JVS(23846)& - &*UV(4404)+JVS(23855)*UV(4405)+JVS(23866)*UV(4406)+JVS(23875)*UV(4407)+JVS(23885)*UV(4408)+JVS(23896)& - &*UV(4409)+JVS(23919)*UV(4411)+JVS(23928)*UV(4412)+JVS(23937)*UV(4413)+JVS(23947)*UV(4414)+JVS(23956)& - &*UV(4415)+JVS(23965)*UV(4416)+JVS(23977)*UV(4417)+JVS(23988)*UV(4418)+JVS(23999)*UV(4419)+JVS(24011)& - &*UV(4420)+JVS(24023)*UV(4421)+JVS(24031)*UV(4422)+JVS(24047)*UV(4423)+JVS(24056)*UV(4424)+JVS(24065)& - &*UV(4425)+JVS(24084)*UV(4426)+JVS(24094)*UV(4427)+JVS(24103)*UV(4428)+JVS(24115)*UV(4429)+JVS(24126)& - &*UV(4430)+JVS(24138)*UV(4431)+JVS(24148)*UV(4432)+JVS(24158)*UV(4433)+JVS(24167)*UV(4434)+JVS(24179)& - &*UV(4435)+JVS(24187)*UV(4436)+JVS(24196)*UV(4437)+JVS(24206)*UV(4438)+JVS(24217)*UV(4439)+JVS(24226)& - &*UV(4440)+JVS(24239)*UV(4441)+JVS(24252)*UV(4442)+JVS(24264)*UV(4443)+JVS(24273)*UV(4444)+JVS(24284)& - &*UV(4445)+JVS(24294)*UV(4446)+JVS(24316)*UV(4448)+JVS(24329)*UV(4449)+JVS(24341)*UV(4450)+JVS(24350)& - &*UV(4451)+JVS(24360)*UV(4452)+JVS(24369)*UV(4453)+JVS(24379)*UV(4454)+JVS(24389)*UV(4455)+JVS(24399)& - &*UV(4456)+JVS(24408)*UV(4457)+JVS(24418)*UV(4458)+JVS(24428)*UV(4459)+JVS(24438)*UV(4460)+JVS(24450)& - &*UV(4461)+JVS(24460)*UV(4462)+JVS(24467)*UV(4463)+JVS(24476)*UV(4464)+JVS(24487)*UV(4465)+JVS(24495)& - &*UV(4466)+JVS(24505)*UV(4467)+JVS(24515)*UV(4468)+JVS(24525)*UV(4469)+JVS(24535)*UV(4470)+JVS(24544)& - &*UV(4471)+JVS(24554)*UV(4472)+JVS(24564)*UV(4473)+JVS(24569)*UV(4474)+JVS(24573)*UV(4475)+JVS(24580)& - &*UV(4476)+JVS(24593)*UV(4477)+JVS(24603)*UV(4478)+JVS(24613)*UV(4479)+JVS(24623)*UV(4480)+JVS(24635)& - &*UV(4481)+JVS(24655)*UV(4482)+JVS(24667)*UV(4483)+JVS(24677)*UV(4484)+JVS(24692)*UV(4485)+JVS(24704)& - &*UV(4486)+JVS(24713)*UV(4487)+JVS(24726)*UV(4488)+JVS(24737)*UV(4489)+JVS(24754)*UV(4490)+JVS(24773)& - &*UV(4491)+JVS(24779)*UV(4492)+JVS(24802)*UV(4493)+JVS(24811)*UV(4494)+JVS(24821)*UV(4495)+JVS(24832)& - &*UV(4496)+JVS(24845)*UV(4497)+JVS(24854)*UV(4498)+JVS(24863)*UV(4499)+JVS(24873)*UV(4500)+JVS(24887)& - &*UV(4501)+JVS(24896)*UV(4502)+JVS(24907)*UV(4503)+JVS(24916)*UV(4504)+JVS(24926)*UV(4505)+JVS(24933)& - &*UV(4506)+JVS(25009)*UV(4507)+JVS(25016)*UV(4508)+JVS(25023)*UV(4509)+JVS(25037)*UV(4510)+JVS(25045)& - &*UV(4511)+JVS(25051)*UV(4512)+JVS(25059)*UV(4513)+JVS(25068)*UV(4514)+JVS(25079)*UV(4515)+JVS(25088)& - &*UV(4516)+JVS(25098)*UV(4517)+JVS(25108)*UV(4518)+JVS(25119)*UV(4519)+JVS(25129)*UV(4520)+JVS(25141)& - &*UV(4521)+JVS(25151)*UV(4522)+JVS(25161)*UV(4523)+JVS(25178)*UV(4524)+JVS(25190)*UV(4525)+JVS(25204)& - &*UV(4527)+JVS(25226)*UV(4529)+JVS(25236)*UV(4530)+JVS(25245)*UV(4531)+JVS(25258)*UV(4532)+JVS(25269)& - &*UV(4533)+JVS(25281)*UV(4534)+JVS(25290)*UV(4535)+JVS(25306)*UV(4536)+JVS(25319)*UV(4537)+JVS(25329)& - &*UV(4538)+JVS(25341)*UV(4539)+JVS(25359)*UV(4540)+JVS(25368)*UV(4541)+JVS(25377)*UV(4542)+JVS(25387)& - &*UV(4543)+JVS(25414)*UV(4545)+JVS(25425)*UV(4546)+JVS(25439)*UV(4547)+JVS(25451)*UV(4548)+JVS(25463)& - &*UV(4549)+JVS(25474)*UV(4550)+JVS(25496)*UV(4552)+JVS(25506)*UV(4553)+JVS(25514)*UV(4554)+JVS(25519)& - &*UV(4555)+JVS(25539)*UV(4557)+JVS(25547)*UV(4558)+JVS(25559)*UV(4559)+JVS(25573)*UV(4560)+JVS(25581)& - &*UV(4561)+JVS(25589)*UV(4562)+JVS(25612)*UV(4564)+JVS(25621)*UV(4565)+JVS(25628)*UV(4566)+JVS(25644)& - &*UV(4568)+JVS(25658)*UV(4569)+JVS(25666)*UV(4570)+JVS(25673)*UV(4571)+JVS(25681)*UV(4572)+JVS(25688)& - &*UV(4573)+JVS(25695)*UV(4574)+JVS(25701)*UV(4575)+JVS(25712)*UV(4576)+JVS(25729)*UV(4578)+JVS(25736)& - &*UV(4579)+JVS(25747)*UV(4580)+JVS(25755)*UV(4581)+JVS(25762)*UV(4582)+JVS(25771)*UV(4583)+JVS(25778)& - &*UV(4584)+JVS(25785)*UV(4585)+JVS(25793)*UV(4586)+JVS(25800)*UV(4587)+JVS(25822)*UV(4589)+JVS(25830)& - &*UV(4590)+JVS(25846)*UV(4591)+JVS(25859)*UV(4592)+JVS(25868)*UV(4593)+JVS(25876)*UV(4594)+JVS(25884)& - &*UV(4595)+JVS(25891)*UV(4596)+JVS(25908)*UV(4598)+JVS(25916)*UV(4599)+JVS(25921)*UV(4600)+JVS(25925)& - &*UV(4601)+JVS(25974)*UV(4602)+JVS(25984)*UV(4603)+JVS(25990)*UV(4604)+JVS(25994)*UV(4605)+JVS(25998)& - &*UV(4606)+JVS(26005)*UV(4607)+JVS(26014)*UV(4608)+JVS(26021)*UV(4609)+JVS(26028)*UV(4610)+JVS(26037)& - &*UV(4611)+JVS(26050)*UV(4612)+JVS(26061)*UV(4613)+JVS(26073)*UV(4614)+JVS(26080)*UV(4615)+JVS(26085)& - &*UV(4616)+JVS(26115)*UV(4618)+JVS(26128)*UV(4619)+JVS(26140)*UV(4620)+JVS(26173)*UV(4622)+JVS(26182)& - &*UV(4623)+JVS(26197)*UV(4624)+JVS(26206)*UV(4625)+JVS(26215)*UV(4626)+JVS(26225)*UV(4627)+JVS(26234)& - &*UV(4628)+JVS(26244)*UV(4629)+JVS(26254)*UV(4630)+JVS(26267)*UV(4631)+JVS(26277)*UV(4632)+JVS(26287)& - &*UV(4633)+JVS(26297)*UV(4634)+JVS(26306)*UV(4635)+JVS(26316)*UV(4636)+JVS(26324)*UV(4637)+JVS(26334)& - &*UV(4638)+JVS(26343)*UV(4639)+JVS(26355)*UV(4640)+JVS(26363)*UV(4641)+JVS(26374)*UV(4642)+JVS(26383)& - &*UV(4643)+JVS(26399)*UV(4644)+JVS(26408)*UV(4645)+JVS(26416)*UV(4646)+JVS(26425)*UV(4647)+JVS(26437)& - &*UV(4648)+JVS(26445)*UV(4649)+JVS(26454)*UV(4650)+JVS(26468)*UV(4651)+JVS(26480)*UV(4652)+JVS(26489)& - &*UV(4653)+JVS(26498)*UV(4654)+JVS(26508)*UV(4655)+JVS(26517)*UV(4656)+JVS(26527)*UV(4657)+JVS(26540)& - &*UV(4658)+JVS(26550)*UV(4659)+JVS(26559)*UV(4660)+JVS(26568)*UV(4661)+JVS(26578)*UV(4662)+JVS(26588)& - &*UV(4663)+JVS(26606)*UV(4664)+JVS(26615)*UV(4665)+JVS(26631)*UV(4666)+JVS(26642)*UV(4667)+JVS(26663)& - &*UV(4669)+JVS(26672)*UV(4670)+JVS(26683)*UV(4671)+JVS(26698)*UV(4672)+JVS(26711)*UV(4673)+JVS(26720)& - &*UV(4674)+JVS(26730)*UV(4675)+JVS(26741)*UV(4676)+JVS(26767)*UV(4679)+JVS(26776)*UV(4680)+JVS(26787)& - &*UV(4681)+JVS(26797)*UV(4682)+JVS(26808)*UV(4683)+JVS(26817)*UV(4684)+JVS(26826)*UV(4685)+JVS(26840)& - &*UV(4686)+JVS(26854)*UV(4687)+JVS(26864)*UV(4688)+JVS(26874)*UV(4689)+JVS(26884)*UV(4690)+JVS(26901)& - &*UV(4692)+JVS(26985)*UV(4693)+JVS(27006)*UV(4694)+JVS(27014)*UV(4695)+JVS(27022)*UV(4696)+JVS(27039)& - &*UV(4698)+JVS(27045)*UV(4699)+JVS(27053)*UV(4700)+JVS(27060)*UV(4701)+JVS(27069)*UV(4702)+JVS(27076)& - &*UV(4703)+JVS(27082)*UV(4704)+JVS(27089)*UV(4705)+JVS(27096)*UV(4706)+JVS(27102)*UV(4707)+JVS(27123)& - &*UV(4708)+JVS(27131)*UV(4709)+JVS(27149)*UV(4710)+JVS(27156)*UV(4711)+JVS(27163)*UV(4712)+JVS(27170)& - &*UV(4713)+JVS(27178)*UV(4714)+JVS(27186)*UV(4715)+JVS(27193)*UV(4716)+JVS(27203)*UV(4717)+JVS(27209)& - &*UV(4718)+JVS(27219)*UV(4719)+JVS(27226)*UV(4720)+JVS(27256)*UV(4721)+JVS(27267)*UV(4722)+JVS(27274)& - &*UV(4723)+JVS(27285)*UV(4724)+JVS(27291)*UV(4725)+JVS(27303)*UV(4726)+JVS(27310)*UV(4727)+JVS(27327)& - &*UV(4728)+JVS(27353)*UV(4729)+JVS(27362)*UV(4730)+JVS(27377)*UV(4732)+JVS(27385)*UV(4733)+JVS(27395)& - &*UV(4734)+JVS(27401)*UV(4735)+JVS(27412)*UV(4736)+JVS(27424)*UV(4737)+JVS(27435)*UV(4738)+JVS(27447)& - &*UV(4739)+JVS(27461)*UV(4740)+JVS(27486)*UV(4742)+JVS(27498)*UV(4743)+JVS(27519)*UV(4745)+JVS(27527)& - &*UV(4746)+JVS(27562)*UV(4748)+JVS(27577)*UV(4749)+JVS(27587)*UV(4750)+JVS(27596)*UV(4751)+JVS(27612)& - &*UV(4752)+JVS(27624)*UV(4753)+JVS(27632)*UV(4754)+JVS(27647)*UV(4755)+JVS(27655)*UV(4756)+JVS(27686)& - &*UV(4759)+JVS(27707)*UV(4760)+JVS(27716)*UV(4761)+JVS(27724)*UV(4762)+JVS(27739)*UV(4763)+JVS(27753)& - &*UV(4764)+JVS(27762)*UV(4765)+JVS(27771)*UV(4766)+JVS(27781)*UV(4767)+JVS(27803)*UV(4768)+JVS(27816)& - &*UV(4769)+JVS(27827)*UV(4770)+JVS(27837)*UV(4771)+JVS(27848)*UV(4772)+JVS(27860)*UV(4773)+JVS(27869)& - &*UV(4774)+JVS(27884)*UV(4775)+JVS(27900)*UV(4777)+JVS(27909)*UV(4778)+JVS(27917)*UV(4779)+JVS(27926)& - &*UV(4780)+JVS(27942)*UV(4782)+JVS(27949)*UV(4783)+JVS(27957)*UV(4784)+JVS(27965)*UV(4785)+JVS(27971)& - &*UV(4786)+JVS(27979)*UV(4787)+JVS(27989)*UV(4788)+JVS(28002)*UV(4789)+JVS(28011)*UV(4790)+JVS(28022)& - &*UV(4791)+JVS(28038)*UV(4792)+JVS(28049)*UV(4793)+JVS(28056)*UV(4794)+JVS(28063)*UV(4795)+JVS(28144)& - &*UV(4796)+JVS(28155)*UV(4797)+JVS(28168)*UV(4798)+JVS(28181)*UV(4799)+JVS(28189)*UV(4800)+JVS(28221)& - &*UV(4801)+JVS(28230)*UV(4802)+JVS(28236)*UV(4803)+JVS(28246)*UV(4804)+JVS(28254)*UV(4805)+JVS(28265)& - &*UV(4806)+JVS(28274)*UV(4807)+JVS(28285)*UV(4808)+JVS(28295)*UV(4809)+JVS(28305)*UV(4810)+JVS(28317)& - &*UV(4811)+JVS(28330)*UV(4812)+JVS(28340)*UV(4813)+JVS(28350)*UV(4814)+JVS(28363)*UV(4815)+JVS(28372)& - &*UV(4816)+JVS(28383)*UV(4817)+JVS(28391)*UV(4818)+JVS(28416)*UV(4821)+JVS(28429)*UV(4822)+JVS(28450)& - &*UV(4823)+JVS(28478)*UV(4826)+JVS(28490)*UV(4827)+JVS(28506)*UV(4829)+JVS(28518)*UV(4830)+JVS(28534)& - &*UV(4831)+JVS(28547)*UV(4832)+JVS(28555)*UV(4833)+JVS(28572)*UV(4834)+JVS(28579)*UV(4835)+JVS(28588)& - &*UV(4836)+JVS(28598)*UV(4837)+JVS(28625)*UV(4839)+JVS(28631)*UV(4840)+JVS(28645)*UV(4841)+JVS(28670)& - &*UV(4842)+JVS(28695)*UV(4844)+JVS(28708)*UV(4845)+JVS(28719)*UV(4846)+JVS(28736)*UV(4847)+JVS(28748)& - &*UV(4848)+JVS(28764)*UV(4849)+JVS(28786)*UV(4850)+JVS(28805)*UV(4851)+JVS(28817)*UV(4852)+JVS(28833)& - &*UV(4853)+JVS(28847)*UV(4854)+JVS(28860)*UV(4855)+JVS(28873)*UV(4856)+JVS(28884)*UV(4857)+JVS(28895)& - &*UV(4858)+JVS(28905)*UV(4859)+JVS(28917)*UV(4860)+JVS(28929)*UV(4861)+JVS(28940)*UV(4862)+JVS(28953)& - &*UV(4863)+JVS(28970)*UV(4864)+JVS(28990)*UV(4865)+JVS(29002)*UV(4866)+JVS(29016)*UV(4867)+JVS(29051)& - &*UV(4870)+JVS(29069)*UV(4871)+JVS(29083)*UV(4872)+JVS(29096)*UV(4873)+JVS(29113)*UV(4874)+JVS(29127)& - &*UV(4875)+JVS(29135)*UV(4876)+JVS(29142)*UV(4877)+JVS(29150)*UV(4878)+JVS(29157)*UV(4879)+JVS(29165)& - &*UV(4880)+JVS(29172)*UV(4881)+JVS(29186)*UV(4882)+JVS(29197)*UV(4883)+JVS(29205)*UV(4884)+JVS(29216)& - &*UV(4885)+JVS(29224)*UV(4886)+JVS(29234)*UV(4887)+JVS(29245)*UV(4888)+JVS(29255)*UV(4889)+JVS(29276)& - &*UV(4891)+JVS(29285)*UV(4892)+JVS(29297)*UV(4893)+JVS(29307)*UV(4894)+JVS(29317)*UV(4895)+JVS(29328)& - &*UV(4896)+JVS(29339)*UV(4897)+JVS(29352)*UV(4898)+JVS(29364)*UV(4899)+JVS(29374)*UV(4900)+JVS(29388)& - &*UV(4901)+JVS(29407)*UV(4902)+JVS(29418)*UV(4903)+JVS(29449)*UV(4904)+JVS(29461)*UV(4905)+JVS(29477)& - &*UV(4907)+JVS(29516)*UV(4909)+JVS(29539)*UV(4910)+JVS(29552)*UV(4911)+JVS(29590)*UV(4914)+JVS(29603)& - &*UV(4915)+JVS(29623)*UV(4916)+JVS(29638)*UV(4917)+JVS(29671)*UV(4918)+JVS(29697)*UV(4920)+JVS(29713)& - &*UV(4921)+JVS(29721)*UV(4922)+JVS(29731)*UV(4923)+JVS(29751)*UV(4924)+JVS(29760)*UV(4925)+JVS(29771)& - &*UV(4926)+JVS(29782)*UV(4927)+JVS(29789)*UV(4928)+JVS(29808)*UV(4929)+JVS(29824)*UV(4930)+JVS(29857)& - &*UV(4931)+JVS(29868)*UV(4932)+JVS(29877)*UV(4933)+JVS(29886)*UV(4934)+JVS(29896)*UV(4935)+JVS(29911)& - &*UV(4936)+JVS(30006)*UV(4938)+JVS(30032)*UV(4939)+JVS(30051)*UV(4940)+JVS(30084)*UV(4942)+JVS(30125)& - &*UV(4944)+JVS(30134)*UV(4945)+JVS(30140)*UV(4946)+JVS(30168)*UV(4947)+JVS(30178)*UV(4948)+JVS(30199)& - &*UV(4949)+JVS(30209)*UV(4950)+JVS(30223)*UV(4951)+JVS(30236)*UV(4952)+JVS(30250)*UV(4953)+JVS(30265)& - &*UV(4954)+JVS(30275)*UV(4955)+JVS(30297)*UV(4957)+JVS(30326)*UV(4958)+JVS(30345)*UV(4959)+JVS(30357)& - &*UV(4960)+JVS(30372)*UV(4961)+JVS(30386)*UV(4962)+JVS(30418)*UV(4964)+JVS(30434)*UV(4965)+JVS(30455)& - &*UV(4966)+JVS(30468)*UV(4967)+JVS(30476)*UV(4968)+JVS(30490)*UV(4969)+JVS(30501)*UV(4970)+JVS(30506)& - &*UV(4971)+JVS(30514)*UV(4972)+JVS(30546)*UV(4973)+JVS(30555)*UV(4974)+JVS(30568)*UV(4975)+JVS(30574)& - &*UV(4976)+JVS(30583)*UV(4977)+JVS(30601)*UV(4978)+JVS(30613)*UV(4979)+JVS(30626)*UV(4980)+JVS(30646)& - &*UV(4981)+JVS(30656)*UV(4982)+JVS(30697)*UV(4983)+JVS(30710)*UV(4984)+JVS(30726)*UV(4985)+JVS(30754)& - &*UV(4986)+JVS(30765)*UV(4987)+JVS(30771)*UV(4988)+JVS(30783)*UV(4989)+JVS(30796)*UV(4990)+JVS(30821)& - &*UV(4991)+JVS(30832)*UV(4992)+JVS(30842)*UV(4993)+JVS(30853)*UV(4994)+JVS(30879)*UV(4995)+JVS(30897)& - &*UV(4996)+JVS(30973)*UV(5000)+JVS(31007)*UV(5001)+JVS(31015)*UV(5002)+JVS(31026)*UV(5003)+JVS(31053)& - &*UV(5004)+JVS(31066)*UV(5005)+JVS(31093)*UV(5006)+JVS(31111)*UV(5007)+JVS(31127)*UV(5008)+JVS(31143)& - &*UV(5009)+JVS(31161)*UV(5010)+JVS(31186)*UV(5011)+JVS(31207)*UV(5012)+JVS(31216)*UV(5013)+JVS(31227)& - &*UV(5014)+JVS(31237)*UV(5015)+JVS(31254)*UV(5016)+JVS(31269)*UV(5017)+JVS(31284)*UV(5018)+JVS(31297)& - &*UV(5019)+JVS(31310)*UV(5020)+JVS(31321)*UV(5021)+JVS(31331)*UV(5022)+JVS(31366)*UV(5023)+JVS(31378)& - &*UV(5024)+JVS(31386)*UV(5025)+JVS(31413)*UV(5026)+JVS(31425)*UV(5027)+JVS(31435)*UV(5028)+JVS(31454)& - &*UV(5029)+JVS(31465)*UV(5030)+JVS(31507)*UV(5031)+JVS(31518)*UV(5032)+JVS(31525)*UV(5033)+JVS(31541)& - &*UV(5034)+JVS(31552)*UV(5035)+JVS(31569)*UV(5036)+JVS(31590)*UV(5037)+JVS(31621)*UV(5038)+JVS(31640)& - &*UV(5039)+JVS(31680)*UV(5042)+JVS(31691)*UV(5043)+JVS(31706)*UV(5044)+JVS(31716)*UV(5045)+JVS(31805)& - &*UV(5046)+JVS(31843)*UV(5049)+JVS(31854)*UV(5050)+JVS(31861)*UV(5051)+JVS(31874)*UV(5052)+JVS(31896)& - &*UV(5053)+JVS(31911)*UV(5054)+JVS(31938)*UV(5055)+JVS(31947)*UV(5056)+JVS(31970)*UV(5057)+JVS(31991)& - &*UV(5058)+JVS(32028)*UV(5059)+JVS(32050)*UV(5060)+JVS(32060)*UV(5061)+JVS(32079)*UV(5062)+JVS(32095)& - &*UV(5063)+JVS(32111)*UV(5064)+JVS(32118)*UV(5065)+JVS(32130)*UV(5066)+JVS(32150)*UV(5067)+JVS(32164)& - &*UV(5068)+JVS(32176)*UV(5069)+JVS(32220)*UV(5071)+JVS(32235)*UV(5072)+JVS(32253)*UV(5073)+JVS(32262)& - &*UV(5074)+JVS(32273)*UV(5075)+JVS(32282)*UV(5076)+JVS(32291)*UV(5077)+JVS(32304)*UV(5078)+JVS(32327)& - &*UV(5079)+JVS(32365)*UV(5080)+JVS(32374)*UV(5081)+JVS(32382)*UV(5082)+JVS(32399)*UV(5083)+JVS(32413)& - &*UV(5084)+JVS(32445)*UV(5085)+JVS(32486)*UV(5086)+JVS(32514)*UV(5087)+JVS(32526)*UV(5088)+JVS(32542)& - &*UV(5089)+JVS(32555)*UV(5090)+JVS(32567)*UV(5091)+JVS(32590)*UV(5093)+JVS(32620)*UV(5094)+JVS(32642)& - &*UV(5095)+JVS(32654)*UV(5096)+JVS(32675)*UV(5097)+JVS(32711)*UV(5098)+JVS(32727)*UV(5099)+JVS(32762)& - &*UV(5100)+JVS(32793)*UV(5101)+JVS(32826)*UV(5103)+JVS(32852)*UV(5104)+JVS(32873)*UV(5105)+JVS(32917)& - &*UV(5106)+JVS(32928)*UV(5107)+JVS(32947)*UV(5109)+JVS(32977)*UV(5110)+JVS(32997)*UV(5111)+JVS(33008)& - &*UV(5112)+JVS(33024)*UV(5113)+JVS(33055)*UV(5115)+JVS(33072)*UV(5116)+JVS(33095)*UV(5117)+JVS(33106)& - &*UV(5118)+JVS(33128)*UV(5120)+JVS(33152)*UV(5121)+JVS(33165)*UV(5122)+JVS(33204)*UV(5123)+JVS(33221)& - &*UV(5124)+JVS(33294)*UV(5125)+JVS(33318)*UV(5126)+JVS(33332)*UV(5127)+JVS(33349)*UV(5128)+JVS(33385)& - &*UV(5129)+JVS(33411)*UV(5130)+JVS(33432)*UV(5131)+JVS(33443)*UV(5132)+JVS(33457)*UV(5133)+JVS(33476)& - &*UV(5134)+JVS(33489)*UV(5135)+JVS(33518)*UV(5136)+JVS(33568)*UV(5137)+JVS(33577)*UV(5138)+JVS(33709)& - &*UV(5139)+JVS(33732)*UV(5140)+JVS(33753)*UV(5141)+JVS(33823)*UV(5142)+JVS(33893)*UV(5143)+JVS(33903)& - &*UV(5144)+JVS(33952)*UV(5145)+JVS(33963)*UV(5146)+JVS(33979)*UV(5147)+JVS(33999)*UV(5148)+JVS(34023)& - &*UV(5149)+JVS(34043)*UV(5150)+JVS(34064)*UV(5151)+JVS(34112)*UV(5152)+JVS(34123)*UV(5153)+JVS(34132)& - &*UV(5154)+JVS(34148)*UV(5155)+JVS(34192)*UV(5157)+JVS(34247)*UV(5158)+JVS(34261)*UV(5159)+JVS(34508)& - &*UV(5160)+JVS(34546)*UV(5161)+JVS(34570)*UV(5162)+JVS(34585)*UV(5163)+JVS(34614)*UV(5164)+JVS(34655)& - &*UV(5165)+JVS(34664)*UV(5166)+JVS(34680)*UV(5167)+JVS(34692)*UV(5168)+JVS(34710)*UV(5169)+JVS(34781)& - &*UV(5171)+JVS(34815)*UV(5172)+JVS(34829)*UV(5173)+JVS(34839)*UV(5174)+JVS(34849)*UV(5175)+JVS(34875)& - &*UV(5176)+JVS(34905)*UV(5177)+JVS(34957)*UV(5178)+JVS(35001)*UV(5179)+JVS(35042)*UV(5180)+JVS(35053)& - &*UV(5181)+JVS(35137)*UV(5182)+JVS(35351)*UV(5183)+JVS(35412)*UV(5184)+JVS(35434)*UV(5185)+JVS(35442)& - &*UV(5186)+JVS(35450)*UV(5187)+JVS(35561)*UV(5188)+JVS(35582)*UV(5189)+JVS(35592)*UV(5190)+JVS(35698)& - &*UV(5191)+JVS(35714)*UV(5192)+JVS(36004)*UV(5193)+JVS(36039)*UV(5194)+JVS(36101)*UV(5195)+JVS(36118)& - &*UV(5196)+JVS(36177)*UV(5197)+JVS(36194)*UV(5198)+JVS(36268)*UV(5199)+JVS(36290)*UV(5200)+JVS(36754)& - &*UV(5201)+JVS(36796)*UV(5202)+JVS(36847)*UV(5203)+JVS(36874)*UV(5205)+JVS(36904)*UV(5207)+JVS(36931)& - &*UV(5208)+JVS(36958)*UV(5209)+JVS(37030)*UV(5210)+JVS(37073)*UV(5211)+JVS(37090)*UV(5212)+JVS(37113)& - &*UV(5213)+JVS(37191)*UV(5214)+JVS(37220)*UV(5215)+JVS(37275)*UV(5216)+JVS(37298)*UV(5218)+JVS(37310)& - &*UV(5219)+JVS(37328)*UV(5220)+JVS(37363)*UV(5221)+JVS(37664)*UV(5222)+JVS(37742)*UV(5224)+JVS(37778)& - &*UV(5225)+JVS(37814)*UV(5226)+JVS(37828)*UV(5227)+JVS(37968)*UV(5228)+JVS(38010)*UV(5229)+JVS(38081)& - &*UV(5230)+JVS(38782)*UV(5231)+JVS(38932)*UV(5232)+JVS(39185)*UV(5233)+JVS(39334)*UV(5234)+JVS(39393)& - &*UV(5235)+JVS(39410)*UV(5236)+JVS(39485)*UV(5237)+JVS(39557)*UV(5239)+JVS(39588)*UV(5240)+JVS(39676)& - &*UV(5241)+JVS(39761)*UV(5242)+JVS(39813)*UV(5243)+JVS(40443)*UV(5244)+JVS(40465)*UV(5245)+JVS(40501)& - &*UV(5246)+JVS(40532)*UV(5247)+JVS(40562)*UV(5248)+JVS(40578)*UV(5249)+JVS(45056)*UV(5250)+JVS(46581)& - &*UV(5251)+JVS(47932)*UV(5252)+JVS(50208)*UV(5253)+JVS(50316)*UV(5254)+JVS(53207)*UV(5255)+JVS(54808)& - &*UV(5256)+JVS(54830)*UV(5257)+JVS(55264)*UV(5258) - JTUV(5251) = JVS(16147)*UV(3516)+JVS(16442)*UV(3558)+JVS(16920)*UV(3617)+JVS(17080)*UV(3638)+JVS(21918)*UV(4213)& - &+JVS(22277)*UV(4247)+JVS(22311)*UV(4250)+JVS(22392)*UV(4258)+JVS(22450)*UV(4264)+JVS(22624)*UV(4282)& - &+JVS(22660)*UV(4286)+JVS(22833)*UV(4302)+JVS(23019)*UV(4320)+JVS(25198)*UV(4526)+JVS(25398)*UV(4544)& - &+JVS(25483)*UV(4551)+JVS(25527)*UV(4556)+JVS(26148)*UV(4621)+JVS(26469)*UV(4651)+JVS(26651)*UV(4668)& - &+JVS(26750)*UV(4677)+JVS(26757)*UV(4678)+JVS(26892)*UV(4691)+JVS(27474)*UV(4741)+JVS(27666)*UV(4757)& - &+JVS(27892)*UV(4776)+JVS(28399)*UV(4819)+JVS(28459)*UV(4824)+JVS(28497)*UV(4828)+JVS(28607)*UV(4838)& - &+JVS(28680)*UV(4843)+JVS(29025)*UV(4868)+JVS(29036)*UV(4869)+JVS(29470)*UV(4906)+JVS(29484)*UV(4908)& - &+JVS(29517)*UV(4909)+JVS(29560)*UV(4912)+JVS(29672)*UV(4918)+JVS(29683)*UV(4919)+JVS(29858)*UV(4931)& - &+JVS(30007)*UV(4938)+JVS(30066)*UV(4941)+JVS(30100)*UV(4943)+JVS(30287)*UV(4956)+JVS(30327)*UV(4958)& - &+JVS(30398)*UV(4963)+JVS(30419)*UV(4964)+JVS(30907)*UV(4997)+JVS(30918)*UV(4998)+JVS(30930)*UV(4999)& - &+JVS(30974)*UV(5000)+JVS(31285)*UV(5018)+JVS(31367)*UV(5023)+JVS(31653)*UV(5040)+JVS(31820)*UV(5047)& - &+JVS(31829)*UV(5048)+JVS(32191)*UV(5070)+JVS(32575)*UV(5092)+JVS(32811)*UV(5102)+JVS(33710)*UV(5139)& - &+JVS(34170)*UV(5156)+JVS(34509)*UV(5160)+JVS(34656)*UV(5165)+JVS(34711)*UV(5169)+JVS(34746)*UV(5170)& - &+JVS(34876)*UV(5176)+JVS(34958)*UV(5178)+JVS(35043)*UV(5180)+JVS(35562)*UV(5188)+JVS(35699)*UV(5191)& - &+JVS(36005)*UV(5193)+JVS(36040)*UV(5194)+JVS(36848)*UV(5203)+JVS(37114)*UV(5213)+JVS(37221)*UV(5215)& - &+JVS(37364)*UV(5221)+JVS(37665)*UV(5222)+JVS(37722)*UV(5223)+JVS(37779)*UV(5225)+JVS(37815)*UV(5226)& - &+JVS(37829)*UV(5227)+JVS(38082)*UV(5230)+JVS(38783)*UV(5231)+JVS(39186)*UV(5233)+JVS(39335)*UV(5234)& - &+JVS(39589)*UV(5240)+JVS(39762)*UV(5242)+JVS(40563)*UV(5248)+JVS(40579)*UV(5249)+JVS(45057)*UV(5250)& - &+JVS(46582)*UV(5251)+JVS(53208)*UV(5255)+JVS(54831)*UV(5257) - JTUV(5252) = JVS(88)*UV(14)+JVS(96)*UV(16)+JVS(125)*UV(25)+JVS(157)*UV(35)+JVS(162)*UV(36)+JVS(182)*UV(42)+JVS(187)& - &*UV(43)+JVS(192)*UV(44)+JVS(197)*UV(45)+JVS(211)*UV(49)+JVS(216)*UV(50)+JVS(221)*UV(51)+JVS(241)*UV(57)& - &+JVS(267)*UV(65)+JVS(272)*UV(66)+JVS(283)*UV(69)+JVS(306)*UV(76)+JVS(314)*UV(78)+JVS(322)*UV(80)+JVS(330)& - &*UV(82)+JVS(350)*UV(88)+JVS(361)*UV(91)+JVS(366)*UV(92)+JVS(380)*UV(96)+JVS(385)*UV(97)+JVS(417)*UV(107)& - &+JVS(437)*UV(113)+JVS(445)*UV(115)+JVS(450)*UV(116)+JVS(455)*UV(117)+JVS(466)*UV(120)+JVS(484)*UV(125)& - &+JVS(501)*UV(130)+JVS(509)*UV(132)+JVS(529)*UV(138)+JVS(537)*UV(140)+JVS(542)*UV(141)+JVS(556)*UV(145)& - &+JVS(561)*UV(146)+JVS(573)*UV(149)+JVS(579)*UV(150)+JVS(585)*UV(151)+JVS(592)*UV(152)+JVS(598)*UV(153)& - &+JVS(604)*UV(154)+JVS(610)*UV(155)+JVS(616)*UV(156)+JVS(622)*UV(157)+JVS(628)*UV(158)+JVS(634)*UV(159)& - &+JVS(640)*UV(160)+JVS(646)*UV(161)+JVS(652)*UV(162)+JVS(659)*UV(163)+JVS(666)*UV(164)+JVS(672)*UV(165)& - &+JVS(678)*UV(166)+JVS(684)*UV(167)+JVS(690)*UV(168)+JVS(697)*UV(169)+JVS(704)*UV(170)+JVS(710)*UV(171)& - &+JVS(716)*UV(172)+JVS(722)*UV(173)+JVS(728)*UV(174)+JVS(734)*UV(175)+JVS(740)*UV(176)+JVS(746)*UV(177)& - &+JVS(752)*UV(178)+JVS(758)*UV(179)+JVS(764)*UV(180)+JVS(772)*UV(182)+JVS(778)*UV(183)+JVS(784)*UV(184)& - &+JVS(790)*UV(185)+JVS(796)*UV(186)+JVS(802)*UV(187)+JVS(808)*UV(188)+JVS(814)*UV(189)+JVS(820)*UV(190)& - &+JVS(826)*UV(191)+JVS(832)*UV(192)+JVS(838)*UV(193)+JVS(844)*UV(194)+JVS(850)*UV(195)+JVS(856)*UV(196)& - &+JVS(862)*UV(197)+JVS(870)*UV(199)+JVS(876)*UV(200)+JVS(882)*UV(201)+JVS(888)*UV(202)+JVS(894)*UV(203)& - &+JVS(901)*UV(204)+JVS(907)*UV(205)+JVS(914)*UV(206)+JVS(936)*UV(211)+JVS(1080)*UV(254)+JVS(1106)*UV(261)& - &+JVS(1141)*UV(271)+JVS(1209)*UV(290)+JVS(1237)*UV(297)+JVS(1250)*UV(300)+JVS(1302)*UV(315)+JVS(1345)& - &*UV(326)+JVS(1382)*UV(337)+JVS(1491)*UV(370)+JVS(1624)*UV(407)+JVS(1673)*UV(421)+JVS(1749)*UV(443)& - &+JVS(1760)*UV(445)+JVS(1781)*UV(450)+JVS(2048)*UV(528)+JVS(2062)*UV(532)+JVS(2067)*UV(533)+JVS(2072)& - &*UV(534)+JVS(2077)*UV(535)+JVS(2085)*UV(537)+JVS(2093)*UV(539)+JVS(2101)*UV(541)+JVS(2112)*UV(544)& - &+JVS(2117)*UV(545)+JVS(2131)*UV(549)+JVS(2136)*UV(550)+JVS(2141)*UV(551)+JVS(2146)*UV(552)+JVS(2151)& - &*UV(553)+JVS(2159)*UV(555)+JVS(2167)*UV(557)+JVS(2194)*UV(564)+JVS(2214)*UV(570)+JVS(2219)*UV(571)& - &+JVS(2227)*UV(573)+JVS(2232)*UV(574)+JVS(2237)*UV(575)+JVS(2259)*UV(581)+JVS(2264)*UV(582)+JVS(2272)& - &*UV(584)+JVS(2277)*UV(585)+JVS(2291)*UV(589)+JVS(2302)*UV(592)+JVS(2317)*UV(595)+JVS(2322)*UV(596)& - &+JVS(2327)*UV(597)+JVS(2338)*UV(600)+JVS(2348)*UV(603)+JVS(2357)*UV(605)+JVS(2378)*UV(610)+JVS(2399)& - &*UV(615)+JVS(2407)*UV(617)+JVS(2412)*UV(618)+JVS(2417)*UV(619)+JVS(2422)*UV(620)+JVS(2433)*UV(623)& - &+JVS(2438)*UV(624)+JVS(2443)*UV(625)+JVS(2459)*UV(629)+JVS(2464)*UV(630)+JVS(2474)*UV(632)+JVS(2485)& - &*UV(635)+JVS(2493)*UV(637)+JVS(2498)*UV(638)+JVS(2503)*UV(639)+JVS(2511)*UV(641)+JVS(2521)*UV(643)& - &+JVS(2526)*UV(644)+JVS(2531)*UV(645)+JVS(2536)*UV(646)+JVS(2544)*UV(648)+JVS(2549)*UV(649)+JVS(2570)& - &*UV(654)+JVS(2575)*UV(655)+JVS(2580)*UV(656)+JVS(2588)*UV(658)+JVS(2596)*UV(660)+JVS(2607)*UV(663)& - &+JVS(2615)*UV(665)+JVS(2620)*UV(666)+JVS(2631)*UV(669)+JVS(2636)*UV(670)+JVS(2644)*UV(672)+JVS(2649)& - &*UV(673)+JVS(2654)*UV(674)+JVS(2673)*UV(679)+JVS(2687)*UV(682)+JVS(2704)*UV(687)+JVS(2709)*UV(688)& - &+JVS(2714)*UV(689)+JVS(2730)*UV(693)+JVS(2738)*UV(695)+JVS(2746)*UV(697)+JVS(2751)*UV(698)+JVS(2770)& - &*UV(703)+JVS(2775)*UV(704)+JVS(2783)*UV(706)+JVS(2793)*UV(708)+JVS(2803)*UV(710)+JVS(2808)*UV(711)& - &+JVS(2813)*UV(712)+JVS(2821)*UV(714)+JVS(2831)*UV(716)+JVS(2836)*UV(717)+JVS(2847)*UV(720)+JVS(2852)& - &*UV(721)+JVS(2857)*UV(722)+JVS(2865)*UV(724)+JVS(2873)*UV(726)+JVS(2878)*UV(727)+JVS(2883)*UV(728)& - &+JVS(2888)*UV(729)+JVS(2893)*UV(730)+JVS(2898)*UV(731)+JVS(2906)*UV(733)+JVS(2911)*UV(734)+JVS(2926)& - &*UV(737)+JVS(2934)*UV(739)+JVS(2939)*UV(740)+JVS(2944)*UV(741)+JVS(2952)*UV(743)+JVS(2957)*UV(744)& - &+JVS(2962)*UV(745)+JVS(2967)*UV(746)+JVS(2972)*UV(747)+JVS(2977)*UV(748)+JVS(2982)*UV(749)+JVS(2987)& - &*UV(750)+JVS(3000)*UV(753)+JVS(3008)*UV(755)+JVS(3013)*UV(756)+JVS(3028)*UV(760)+JVS(3033)*UV(761)& - &+JVS(3047)*UV(765)+JVS(3058)*UV(768)+JVS(3066)*UV(770)+JVS(3077)*UV(773)+JVS(3082)*UV(774)+JVS(3087)& - &*UV(775)+JVS(3092)*UV(776)+JVS(3097)*UV(777)+JVS(3102)*UV(778)+JVS(3110)*UV(780)+JVS(3115)*UV(781)& - &+JVS(3120)*UV(782)+JVS(3125)*UV(783)+JVS(3130)*UV(784)+JVS(3138)*UV(786)+JVS(3143)*UV(787)+JVS(3157)& - &*UV(791)+JVS(3162)*UV(792)+JVS(3173)*UV(795)+JVS(3181)*UV(797)+JVS(3186)*UV(798)+JVS(3194)*UV(800)& - &+JVS(3199)*UV(801)+JVS(3204)*UV(802)+JVS(3224)*UV(808)+JVS(3229)*UV(809)+JVS(3234)*UV(810)+JVS(3248)& - &*UV(814)+JVS(3253)*UV(815)+JVS(3258)*UV(816)+JVS(3263)*UV(817)+JVS(3276)*UV(820)+JVS(3356)*UV(840)& - &+JVS(3616)*UV(905)+JVS(3826)*UV(957)+JVS(3962)*UV(991)+JVS(3998)*UV(1000)+JVS(4018)*UV(1005)+JVS(4041)& - &*UV(1011)+JVS(4050)*UV(1013)+JVS(4102)*UV(1026)+JVS(4228)*UV(1057)+JVS(4232)*UV(1058)+JVS(4324)*UV(1081)& - &+JVS(4332)*UV(1083)+JVS(4606)*UV(1151)+JVS(4690)*UV(1172)+JVS(4866)*UV(1216)+JVS(4963)*UV(1240)+JVS(4987)& - &*UV(1246)+JVS(5141)*UV(1284)+JVS(5249)*UV(1311)+JVS(5289)*UV(1321)+JVS(5341)*UV(1334)+JVS(5388)*UV(1346)& - &+JVS(5606)*UV(1400)+JVS(5934)*UV(1482)+JVS(6125)*UV(1529)+JVS(6133)*UV(1531)+JVS(6215)*UV(1551)+JVS(6220)& - &*UV(1552)+JVS(6226)*UV(1553)+JVS(6239)*UV(1556)+JVS(6251)*UV(1559)+JVS(6266)*UV(1563)+JVS(6272)*UV(1564)& - &+JVS(6291)*UV(1568)+JVS(6307)*UV(1572)+JVS(6318)*UV(1574)+JVS(6337)*UV(1579)+JVS(6357)*UV(1583)+JVS(6388)& - &*UV(1591)+JVS(6393)*UV(1592)+JVS(6399)*UV(1593)+JVS(6408)*UV(1595)+JVS(6417)*UV(1597)+JVS(6450)*UV(1605)& - &+JVS(6458)*UV(1606)+JVS(6466)*UV(1607)+JVS(6474)*UV(1608)+JVS(6498)*UV(1614)+JVS(6507)*UV(1616)+JVS(6514)& - &*UV(1617)+JVS(6528)*UV(1620)+JVS(6539)*UV(1622)+JVS(6550)*UV(1624)+JVS(6563)*UV(1627)+JVS(6576)*UV(1629)& - &+JVS(6585)*UV(1631)+JVS(6597)*UV(1634)+JVS(6612)*UV(1638)+JVS(6622)*UV(1640)+JVS(6642)*UV(1645)+JVS(6662)& - &*UV(1649)+JVS(6667)*UV(1650)+JVS(6677)*UV(1652)+JVS(6688)*UV(1654)+JVS(6704)*UV(1657)+JVS(6723)*UV(1661)& - &+JVS(6729)*UV(1662)+JVS(6735)*UV(1663)+JVS(6750)*UV(1667)+JVS(6778)*UV(1675)+JVS(6789)*UV(1677)+JVS(6798)& - &*UV(1679)+JVS(6805)*UV(1680)+JVS(6821)*UV(1684)+JVS(6841)*UV(1689)+JVS(6852)*UV(1691)+JVS(6858)*UV(1692)& - &+JVS(6870)*UV(1695)+JVS(6890)*UV(1699)+JVS(6902)*UV(1702)+JVS(6934)*UV(1710)+JVS(6950)*UV(1713)+JVS(6958)& - &*UV(1714)+JVS(6965)*UV(1715)+JVS(6983)*UV(1720)+JVS(6989)*UV(1721)+JVS(6999)*UV(1723)+JVS(7005)*UV(1724)& - &+JVS(7011)*UV(1725)+JVS(7021)*UV(1727)+JVS(7045)*UV(1732)+JVS(7068)*UV(1737)+JVS(7082)*UV(1739)+JVS(7092)& - &*UV(1741)+JVS(7101)*UV(1743)+JVS(7111)*UV(1745)+JVS(7123)*UV(1748)+JVS(7128)*UV(1749)+JVS(7135)*UV(1750)& - &+JVS(7144)*UV(1752)+JVS(7155)*UV(1754)+JVS(7163)*UV(1755)+JVS(7187)*UV(1760)+JVS(7216)*UV(1766)+JVS(7228)& - &*UV(1769)+JVS(7237)*UV(1771)+JVS(7241)*UV(1772)+JVS(7247)*UV(1773)+JVS(7275)*UV(1780)+JVS(7281)*UV(1781)& - &+JVS(7288)*UV(1782)+JVS(7301)*UV(1785)+JVS(7305)*UV(1786)+JVS(7309)*UV(1787)+JVS(7314)*UV(1788)+JVS(7321)& - &*UV(1789)+JVS(7339)*UV(1792)+JVS(7349)*UV(1794)+JVS(7359)*UV(1796)+JVS(7369)*UV(1798)+JVS(7375)*UV(1799)& - &+JVS(7381)*UV(1800)+JVS(7396)*UV(1803)+JVS(7419)*UV(1808)+JVS(7428)*UV(1810)+JVS(7433)*UV(1811)+JVS(7440)& - &*UV(1812)+JVS(7446)*UV(1813)+JVS(7452)*UV(1814)+JVS(7458)*UV(1815)+JVS(7474)*UV(1818)+JVS(7480)*UV(1819)& - &+JVS(7486)*UV(1820)+JVS(7494)*UV(1821)+JVS(7502)*UV(1822)+JVS(7508)*UV(1823)+JVS(7512)*UV(1824)+JVS(7516)& - &*UV(1825)+JVS(7527)*UV(1827)+JVS(7536)*UV(1829)+JVS(7544)*UV(1831)+JVS(7556)*UV(1833)+JVS(7566)*UV(1835)& - &+JVS(7580)*UV(1838)+JVS(7594)*UV(1841)+JVS(7615)*UV(1846)+JVS(7621)*UV(1847)+JVS(7627)*UV(1848)+JVS(7647)& - &*UV(1852)+JVS(7664)*UV(1856)+JVS(7682)*UV(1860)+JVS(7700)*UV(1864)+JVS(7706)*UV(1865)+JVS(7712)*UV(1866)& - &+JVS(7719)*UV(1867)+JVS(7745)*UV(1872)+JVS(7765)*UV(1877)+JVS(7782)*UV(1881)+JVS(7786)*UV(1882)+JVS(7791)& - &*UV(1883)+JVS(7815)*UV(1889)+JVS(7823)*UV(1891)+JVS(7828)*UV(1892)+JVS(7839)*UV(1894)+JVS(7843)*UV(1895)& - &+JVS(7847)*UV(1896)+JVS(7871)*UV(1902)+JVS(7877)*UV(1903)+JVS(7883)*UV(1904)+JVS(7887)*UV(1905)+JVS(7893)& - &*UV(1906)+JVS(7907)*UV(1909)+JVS(7913)*UV(1910)+JVS(7923)*UV(1912)+JVS(7938)*UV(1915)+JVS(7949)*UV(1918)& - &+JVS(7953)*UV(1919)+JVS(7961)*UV(1921)+JVS(7965)*UV(1922)+JVS(7971)*UV(1923)+JVS(7977)*UV(1924)+JVS(7990)& - &*UV(1927)+JVS(8003)*UV(1930)+JVS(8009)*UV(1931)+JVS(8019)*UV(1933)+JVS(8050)*UV(1941)+JVS(8056)*UV(1942)& - &+JVS(8066)*UV(1944)+JVS(8073)*UV(1945)+JVS(8079)*UV(1946)+JVS(8099)*UV(1951)+JVS(8104)*UV(1952)+JVS(8114)& - &*UV(1954)+JVS(8118)*UV(1955)+JVS(8128)*UV(1957)+JVS(8139)*UV(1960)+JVS(8146)*UV(1961)+JVS(8155)*UV(1962)& - &+JVS(8161)*UV(1963)+JVS(8165)*UV(1964)+JVS(8169)*UV(1965)+JVS(8177)*UV(1967)+JVS(8196)*UV(1971)+JVS(8202)& - &*UV(1972)+JVS(8210)*UV(1974)+JVS(8217)*UV(1975)+JVS(8224)*UV(1976)+JVS(8229)*UV(1977)+JVS(8233)*UV(1978)& - &+JVS(8241)*UV(1980)+JVS(8260)*UV(1984)+JVS(8272)*UV(1986)+JVS(8278)*UV(1987)+JVS(8288)*UV(1989)+JVS(8314)& - &*UV(1995)+JVS(8318)*UV(1996)+JVS(8328)*UV(1998)+JVS(8341)*UV(2000)+JVS(8359)*UV(2004)+JVS(8364)*UV(2005)& - &+JVS(8373)*UV(2007)+JVS(8377)*UV(2008)+JVS(8391)*UV(2011)+JVS(8395)*UV(2012)+JVS(8403)*UV(2014)+JVS(8409)& - &*UV(2015)+JVS(8431)*UV(2020)+JVS(8445)*UV(2023)+JVS(8449)*UV(2024)+JVS(8470)*UV(2029)+JVS(8477)*UV(2030)& - &+JVS(8485)*UV(2031)+JVS(8491)*UV(2032)+JVS(8498)*UV(2033)+JVS(8504)*UV(2034)+JVS(8511)*UV(2035)+JVS(8522)& - &*UV(2037)+JVS(8534)*UV(2040)+JVS(8540)*UV(2041)+JVS(8557)*UV(2045)+JVS(8573)*UV(2049)+JVS(8579)*UV(2050)& - &+JVS(8609)*UV(2056)+JVS(8629)*UV(2060)+JVS(8635)*UV(2061)+JVS(8643)*UV(2063)+JVS(8655)*UV(2066)+JVS(8661)& - &*UV(2067)+JVS(8681)*UV(2072)+JVS(8687)*UV(2073)+JVS(8693)*UV(2074)+JVS(8697)*UV(2075)+JVS(8703)*UV(2076)& - &+JVS(8709)*UV(2077)+JVS(8713)*UV(2078)+JVS(8717)*UV(2079)+JVS(8733)*UV(2083)+JVS(8741)*UV(2085)+JVS(8746)& - &*UV(2086)+JVS(8750)*UV(2087)+JVS(8756)*UV(2088)+JVS(8766)*UV(2090)+JVS(8775)*UV(2092)+JVS(8783)*UV(2094)& - &+JVS(8792)*UV(2096)+JVS(8796)*UV(2097)+JVS(8804)*UV(2099)+JVS(8810)*UV(2100)+JVS(8836)*UV(2106)+JVS(8844)& - &*UV(2108)+JVS(8860)*UV(2112)+JVS(8865)*UV(2113)+JVS(8881)*UV(2117)+JVS(8905)*UV(2122)+JVS(8911)*UV(2123)& - &+JVS(8915)*UV(2124)+JVS(8931)*UV(2128)+JVS(8937)*UV(2130)+JVS(8964)*UV(2136)+JVS(9004)*UV(2145)+JVS(9020)& - &*UV(2149)+JVS(9046)*UV(2155)+JVS(9054)*UV(2157)+JVS(9058)*UV(2158)+JVS(9071)*UV(2161)+JVS(9075)*UV(2162)& - &+JVS(9082)*UV(2163)+JVS(9088)*UV(2164)+JVS(9092)*UV(2165)+JVS(9104)*UV(2168)+JVS(9108)*UV(2169)+JVS(9112)& - &*UV(2170)+JVS(9121)*UV(2172)+JVS(9127)*UV(2173)+JVS(9163)*UV(2181)+JVS(9167)*UV(2182)+JVS(9176)*UV(2184)& - &+JVS(9180)*UV(2185)+JVS(9184)*UV(2186)+JVS(9197)*UV(2189)+JVS(9204)*UV(2190)+JVS(9218)*UV(2193)+JVS(9222)& - &*UV(2194)+JVS(9226)*UV(2195)+JVS(9230)*UV(2196)+JVS(9239)*UV(2198)+JVS(9243)*UV(2199)+JVS(9247)*UV(2200)& - &+JVS(9252)*UV(2201)+JVS(9257)*UV(2202)+JVS(9261)*UV(2203)+JVS(9274)*UV(2206)+JVS(9281)*UV(2207)+JVS(9297)& - &*UV(2210)+JVS(9309)*UV(2213)+JVS(9317)*UV(2215)+JVS(9321)*UV(2216)+JVS(9329)*UV(2218)+JVS(9337)*UV(2220)& - &+JVS(9346)*UV(2222)+JVS(9354)*UV(2224)+JVS(9365)*UV(2226)+JVS(9379)*UV(2229)+JVS(9394)*UV(2232)+JVS(9402)& - &*UV(2234)+JVS(9415)*UV(2237)+JVS(9419)*UV(2238)+JVS(9424)*UV(2239)+JVS(9432)*UV(2241)+JVS(9436)*UV(2242)& - &+JVS(9448)*UV(2245)+JVS(9452)*UV(2246)+JVS(9464)*UV(2249)+JVS(9469)*UV(2250)+JVS(9481)*UV(2253)+JVS(9485)& - &*UV(2254)+JVS(9494)*UV(2256)+JVS(9498)*UV(2257)+JVS(9513)*UV(2261)+JVS(9542)*UV(2268)+JVS(9550)*UV(2270)& - &+JVS(9554)*UV(2271)+JVS(9573)*UV(2275)+JVS(9578)*UV(2276)+JVS(9582)*UV(2277)+JVS(9587)*UV(2278)+JVS(9591)& - &*UV(2279)+JVS(9596)*UV(2280)+JVS(9604)*UV(2282)+JVS(9615)*UV(2284)+JVS(9621)*UV(2285)+JVS(9628)*UV(2287)& - &+JVS(9634)*UV(2288)+JVS(9646)*UV(2291)+JVS(9657)*UV(2293)+JVS(9673)*UV(2296)+JVS(9678)*UV(2297)+JVS(9686)& - &*UV(2299)+JVS(9698)*UV(2302)+JVS(9702)*UV(2303)+JVS(9708)*UV(2304)+JVS(9718)*UV(2306)+JVS(9725)*UV(2308)& - &+JVS(9730)*UV(2309)+JVS(9738)*UV(2311)+JVS(9746)*UV(2313)+JVS(9764)*UV(2317)+JVS(9780)*UV(2321)+JVS(9786)& - &*UV(2322)+JVS(9792)*UV(2323)+JVS(9799)*UV(2324)+JVS(9805)*UV(2325)+JVS(9810)*UV(2326)+JVS(9816)*UV(2327)& - &+JVS(9820)*UV(2328)+JVS(9828)*UV(2330)+JVS(9836)*UV(2332)+JVS(9840)*UV(2333)+JVS(9846)*UV(2334)+JVS(9859)& - &*UV(2337)+JVS(9863)*UV(2338)+JVS(9876)*UV(2341)+JVS(9885)*UV(2343)+JVS(9899)*UV(2347)+JVS(9911)*UV(2350)& - &+JVS(9919)*UV(2352)+JVS(9928)*UV(2354)+JVS(9938)*UV(2356)+JVS(9959)*UV(2361)+JVS(9978)*UV(2365)+JVS(9987)& - &*UV(2367)+JVS(10000)*UV(2370)+JVS(10008)*UV(2372)+JVS(10018)*UV(2374)+JVS(10024)*UV(2375)+JVS(10028)& - &*UV(2376)+JVS(10042)*UV(2378)+JVS(10064)*UV(2383)+JVS(10079)*UV(2387)+JVS(10129)*UV(2399)+JVS(10147)& - &*UV(2403)+JVS(10155)*UV(2405)+JVS(10159)*UV(2406)+JVS(10167)*UV(2408)+JVS(10198)*UV(2415)+JVS(10212)& - &*UV(2418)+JVS(10216)*UV(2419)+JVS(10247)*UV(2427)+JVS(10259)*UV(2430)+JVS(10268)*UV(2432)+JVS(10273)& - &*UV(2433)+JVS(10285)*UV(2436)+JVS(10307)*UV(2441)+JVS(10319)*UV(2444)+JVS(10332)*UV(2447)+JVS(10356)& - &*UV(2452)+JVS(10362)*UV(2453)+JVS(10381)*UV(2457)+JVS(10387)*UV(2458)+JVS(10391)*UV(2459)+JVS(10399)& - &*UV(2461)+JVS(10403)*UV(2462)+JVS(10418)*UV(2465)+JVS(10459)*UV(2473)+JVS(10533)*UV(2490)+JVS(10544)& - &*UV(2492)+JVS(10552)*UV(2493)+JVS(10563)*UV(2495)+JVS(10594)*UV(2502)+JVS(10614)*UV(2506)+JVS(10624)& - &*UV(2508)+JVS(10630)*UV(2509)+JVS(10644)*UV(2512)+JVS(10650)*UV(2513)+JVS(10654)*UV(2514)+JVS(10663)& - &*UV(2516)+JVS(10677)*UV(2519)+JVS(10687)*UV(2521)+JVS(10701)*UV(2524)+JVS(10710)*UV(2526)+JVS(10723)& - &*UV(2528)+JVS(10741)*UV(2532)+JVS(10749)*UV(2534)+JVS(10754)*UV(2535)+JVS(10761)*UV(2536)+JVS(10777)& - &*UV(2539)+JVS(10791)*UV(2542)+JVS(10805)*UV(2545)+JVS(10828)*UV(2549)+JVS(10835)*UV(2550)+JVS(10842)& - &*UV(2551)+JVS(10860)*UV(2555)+JVS(10869)*UV(2557)+JVS(10888)*UV(2561)+JVS(10897)*UV(2562)+JVS(10905)& - &*UV(2563)+JVS(10919)*UV(2566)+JVS(10964)*UV(2575)+JVS(10975)*UV(2577)+JVS(10982)*UV(2578)+JVS(10997)& - &*UV(2581)+JVS(11020)*UV(2586)+JVS(11031)*UV(2588)+JVS(11040)*UV(2589)+JVS(11051)*UV(2591)+JVS(11059)& - &*UV(2592)+JVS(11071)*UV(2594)+JVS(11079)*UV(2595)+JVS(11086)*UV(2596)+JVS(11097)*UV(2598)+JVS(11104)& - &*UV(2599)+JVS(11127)*UV(2604)+JVS(11133)*UV(2605)+JVS(11142)*UV(2607)+JVS(11156)*UV(2610)+JVS(11174)& - &*UV(2614)+JVS(11204)*UV(2621)+JVS(11213)*UV(2623)+JVS(11227)*UV(2626)+JVS(11239)*UV(2629)+JVS(11262)& - &*UV(2634)+JVS(11283)*UV(2638)+JVS(11290)*UV(2639)+JVS(11301)*UV(2641)+JVS(11310)*UV(2642)+JVS(11323)& - &*UV(2644)+JVS(11337)*UV(2646)+JVS(11345)*UV(2647)+JVS(11371)*UV(2653)+JVS(11397)*UV(2659)+JVS(11407)& - &*UV(2661)+JVS(11413)*UV(2662)+JVS(11423)*UV(2664)+JVS(11437)*UV(2667)+JVS(11444)*UV(2668)+JVS(11462)& - &*UV(2672)+JVS(11466)*UV(2673)+JVS(11479)*UV(2676)+JVS(11494)*UV(2679)+JVS(11511)*UV(2682)+JVS(11533)& - &*UV(2687)+JVS(11554)*UV(2692)+JVS(11565)*UV(2694)+JVS(11582)*UV(2697)+JVS(11594)*UV(2699)+JVS(11604)& - &*UV(2701)+JVS(11625)*UV(2706)+JVS(11632)*UV(2707)+JVS(11648)*UV(2710)+JVS(11664)*UV(2713)+JVS(11687)& - &*UV(2717)+JVS(11708)*UV(2720)+JVS(11720)*UV(2722)+JVS(11731)*UV(2724)+JVS(11751)*UV(2728)+JVS(11765)& - &*UV(2731)+JVS(11773)*UV(2732)+JVS(11779)*UV(2733)+JVS(11786)*UV(2734)+JVS(11796)*UV(2736)+JVS(11811)& - &*UV(2739)+JVS(11822)*UV(2741)+JVS(11828)*UV(2742)+JVS(11837)*UV(2744)+JVS(11845)*UV(2745)+JVS(11853)& - &*UV(2746)+JVS(11860)*UV(2747)+JVS(11871)*UV(2749)+JVS(11878)*UV(2750)+JVS(11885)*UV(2751)+JVS(11892)& - &*UV(2752)+JVS(11919)*UV(2758)+JVS(11925)*UV(2759)+JVS(11930)*UV(2760)+JVS(11936)*UV(2761)+JVS(11942)& - &*UV(2762)+JVS(11951)*UV(2764)+JVS(11965)*UV(2767)+JVS(11972)*UV(2768)+JVS(11984)*UV(2770)+JVS(11990)& - &*UV(2771)+JVS(12019)*UV(2776)+JVS(12045)*UV(2782)+JVS(12072)*UV(2788)+JVS(12080)*UV(2789)+JVS(12107)& - &*UV(2795)+JVS(12123)*UV(2798)+JVS(12140)*UV(2802)+JVS(12158)*UV(2806)+JVS(12164)*UV(2807)+JVS(12187)& - &*UV(2812)+JVS(12195)*UV(2814)+JVS(12204)*UV(2816)+JVS(12210)*UV(2817)+JVS(12215)*UV(2818)+JVS(12222)& - &*UV(2819)+JVS(12229)*UV(2820)+JVS(12236)*UV(2821)+JVS(12261)*UV(2826)+JVS(12268)*UV(2827)+JVS(12287)& - &*UV(2831)+JVS(12294)*UV(2832)+JVS(12304)*UV(2834)+JVS(12308)*UV(2835)+JVS(12318)*UV(2837)+JVS(12327)& - &*UV(2839)+JVS(12332)*UV(2840)+JVS(12364)*UV(2847)+JVS(12375)*UV(2849)+JVS(12386)*UV(2851)+JVS(12397)& - &*UV(2853)+JVS(12409)*UV(2855)+JVS(12428)*UV(2858)+JVS(12443)*UV(2861)+JVS(12461)*UV(2865)+JVS(12480)& - &*UV(2869)+JVS(12503)*UV(2874)+JVS(12536)*UV(2881)+JVS(12566)*UV(2888)+JVS(12572)*UV(2889)+JVS(12579)& - &*UV(2890)+JVS(12587)*UV(2891)+JVS(12593)*UV(2892)+JVS(12602)*UV(2894)+JVS(12617)*UV(2897)+JVS(12640)& - &*UV(2902)+JVS(12647)*UV(2903)+JVS(12658)*UV(2905)+JVS(12666)*UV(2906)+JVS(12676)*UV(2908)+JVS(12703)& - &*UV(2912)+JVS(12709)*UV(2913)+JVS(12725)*UV(2916)+JVS(12731)*UV(2917)+JVS(12736)*UV(2918)+JVS(12743)& - &*UV(2919)+JVS(12759)*UV(2922)+JVS(12779)*UV(2926)+JVS(12803)*UV(2931)+JVS(12817)*UV(2933)+JVS(12823)& - &*UV(2934)+JVS(12828)*UV(2935)+JVS(12840)*UV(2937)+JVS(12857)*UV(2939)+JVS(12871)*UV(2942)+JVS(12875)& - &*UV(2943)+JVS(12880)*UV(2944)+JVS(12891)*UV(2946)+JVS(12907)*UV(2949)+JVS(12922)*UV(2952)+JVS(12931)& - &*UV(2953)+JVS(12939)*UV(2954)+JVS(12962)*UV(2959)+JVS(12969)*UV(2960)+JVS(12976)*UV(2961)+JVS(12983)& - &*UV(2962)+JVS(12990)*UV(2963)+JVS(12996)*UV(2964)+JVS(13018)*UV(2967)+JVS(13025)*UV(2968)+JVS(13044)& - &*UV(2972)+JVS(13059)*UV(2974)+JVS(13101)*UV(2982)+JVS(13108)*UV(2983)+JVS(13123)*UV(2986)+JVS(13138)& - &*UV(2989)+JVS(13146)*UV(2990)+JVS(13157)*UV(2992)+JVS(13168)*UV(2994)+JVS(13175)*UV(2995)+JVS(13183)& - &*UV(2996)+JVS(13190)*UV(2997)+JVS(13200)*UV(2999)+JVS(13207)*UV(3000)+JVS(13214)*UV(3001)+JVS(13219)& - &*UV(3002)+JVS(13229)*UV(3004)+JVS(13254)*UV(3009)+JVS(13275)*UV(3013)+JVS(13285)*UV(3015)+JVS(13290)& - &*UV(3016)+JVS(13338)*UV(3027)+JVS(13345)*UV(3028)+JVS(13356)*UV(3030)+JVS(13368)*UV(3032)+JVS(13378)& - &*UV(3034)+JVS(13387)*UV(3036)+JVS(13394)*UV(3037)+JVS(13405)*UV(3039)+JVS(13417)*UV(3041)+JVS(13449)& - &*UV(3048)+JVS(13461)*UV(3050)+JVS(13480)*UV(3054)+JVS(13501)*UV(3058)+JVS(13520)*UV(3062)+JVS(13531)& - &*UV(3064)+JVS(13538)*UV(3065)+JVS(13546)*UV(3066)+JVS(13553)*UV(3067)+JVS(13559)*UV(3068)+JVS(13565)& - &*UV(3069)+JVS(13576)*UV(3071)+JVS(13583)*UV(3072)+JVS(13590)*UV(3073)+JVS(13597)*UV(3074)+JVS(13607)& - &*UV(3076)+JVS(13620)*UV(3079)+JVS(13628)*UV(3080)+JVS(13634)*UV(3081)+JVS(13709)*UV(3094)+JVS(13746)& - &*UV(3102)+JVS(13762)*UV(3104)+JVS(13772)*UV(3106)+JVS(13783)*UV(3108)+JVS(13974)*UV(3141)+JVS(14059)& - &*UV(3159)+JVS(14131)*UV(3173)+JVS(14144)*UV(3175)+JVS(14155)*UV(3177)+JVS(14211)*UV(3188)+JVS(14239)& - &*UV(3194)+JVS(14250)*UV(3195)+JVS(14322)*UV(3212)+JVS(14344)*UV(3215)+JVS(14438)*UV(3234)+JVS(14464)& - &*UV(3240)+JVS(14471)*UV(3241)+JVS(14507)*UV(3245)+JVS(14517)*UV(3246)+JVS(14552)*UV(3252)+JVS(14568)& - &*UV(3255)+JVS(14608)*UV(3264)+JVS(14627)*UV(3268)+JVS(14635)*UV(3269)+JVS(14652)*UV(3271)+JVS(14660)& - &*UV(3273)+JVS(14694)*UV(3281)+JVS(14709)*UV(3283)+JVS(14719)*UV(3284)+JVS(14725)*UV(3285)+JVS(14774)& - &*UV(3296)+JVS(14798)*UV(3301)+JVS(14812)*UV(3304)+JVS(14818)*UV(3305)+JVS(14890)*UV(3322)+JVS(14921)& - &*UV(3329)+JVS(14947)*UV(3332)+JVS(14955)*UV(3333)+JVS(14967)*UV(3335)+JVS(14989)*UV(3338)+JVS(15002)& - &*UV(3340)+JVS(15014)*UV(3342)+JVS(15032)*UV(3344)+JVS(15047)*UV(3346)+JVS(15054)*UV(3347)+JVS(15085)& - &*UV(3351)+JVS(15098)*UV(3353)+JVS(15124)*UV(3357)+JVS(15140)*UV(3360)+JVS(15145)*UV(3361)+JVS(15152)& - &*UV(3362)+JVS(15159)*UV(3363)+JVS(15188)*UV(3367)+JVS(15215)*UV(3370)+JVS(15222)*UV(3371)+JVS(15258)& - &*UV(3375)+JVS(15272)*UV(3377)+JVS(15285)*UV(3379)+JVS(15290)*UV(3380)+JVS(15297)*UV(3381)+JVS(15312)& - &*UV(3383)+JVS(15336)*UV(3386)+JVS(15349)*UV(3388)+JVS(15365)*UV(3390)+JVS(15387)*UV(3393)+JVS(15395)& - &*UV(3394)+JVS(15401)*UV(3395)+JVS(15408)*UV(3396)+JVS(15427)*UV(3398)+JVS(15440)*UV(3400)+JVS(15453)& - &*UV(3402)+JVS(15462)*UV(3403)+JVS(15470)*UV(3404)+JVS(15478)*UV(3405)+JVS(15485)*UV(3406)+JVS(15492)& - &*UV(3407)+JVS(15511)*UV(3410)+JVS(15542)*UV(3414)+JVS(15549)*UV(3415)+JVS(15564)*UV(3417)+JVS(15576)& - &*UV(3419)+JVS(15592)*UV(3421)+JVS(15599)*UV(3422)+JVS(15606)*UV(3423)+JVS(15614)*UV(3424)+JVS(15622)& - &*UV(3425)+JVS(15635)*UV(3427)+JVS(15648)*UV(3429)+JVS(15656)*UV(3430)+JVS(15694)*UV(3435)+JVS(15706)& - &*UV(3438)+JVS(15710)*UV(3439)+JVS(15717)*UV(3440)+JVS(15731)*UV(3443)+JVS(15739)*UV(3445)+JVS(15747)& - &*UV(3447)+JVS(15789)*UV(3456)+JVS(15796)*UV(3457)+JVS(15808)*UV(3460)+JVS(15815)*UV(3461)+JVS(15874)& - &*UV(3474)+JVS(15920)*UV(3481)+JVS(15966)*UV(3489)+JVS(15972)*UV(3490)+JVS(15978)*UV(3491)+JVS(15984)& - &*UV(3492)+JVS(16006)*UV(3496)+JVS(16055)*UV(3503)+JVS(16082)*UV(3507)+JVS(16093)*UV(3509)+JVS(16106)& - &*UV(3511)+JVS(16148)*UV(3516)+JVS(16163)*UV(3518)+JVS(16175)*UV(3520)+JVS(16179)*UV(3521)+JVS(16193)& - &*UV(3523)+JVS(16203)*UV(3525)+JVS(16216)*UV(3527)+JVS(16243)*UV(3531)+JVS(16255)*UV(3533)+JVS(16260)& - &*UV(3534)+JVS(16298)*UV(3538)+JVS(16305)*UV(3539)+JVS(16384)*UV(3549)+JVS(16408)*UV(3554)+JVS(16443)& - &*UV(3558)+JVS(16471)*UV(3562)+JVS(16485)*UV(3564)+JVS(16493)*UV(3565)+JVS(16500)*UV(3566)+JVS(16507)& - &*UV(3567)+JVS(16512)*UV(3568)+JVS(16522)*UV(3569)+JVS(16530)*UV(3570)+JVS(16545)*UV(3572)+JVS(16553)& - &*UV(3573)+JVS(16560)*UV(3574)+JVS(16567)*UV(3575)+JVS(16575)*UV(3576)+JVS(16582)*UV(3577)+JVS(16590)& - &*UV(3578)+JVS(16597)*UV(3579)+JVS(16614)*UV(3581)+JVS(16621)*UV(3582)+JVS(16639)*UV(3584)+JVS(16646)& - &*UV(3585)+JVS(16653)*UV(3586)+JVS(16661)*UV(3587)+JVS(16668)*UV(3588)+JVS(16676)*UV(3589)+JVS(16697)& - &*UV(3591)+JVS(16704)*UV(3592)+JVS(16737)*UV(3596)+JVS(16744)*UV(3597)+JVS(16751)*UV(3598)+JVS(16769)& - &*UV(3600)+JVS(16813)*UV(3605)+JVS(16821)*UV(3606)+JVS(16856)*UV(3610)+JVS(16864)*UV(3611)+JVS(16880)& - &*UV(3613)+JVS(16888)*UV(3614)+JVS(16896)*UV(3615)+JVS(16921)*UV(3617)+JVS(16987)*UV(3626)+JVS(16995)& - &*UV(3627)+JVS(17028)*UV(3631)+JVS(17035)*UV(3632)+JVS(17046)*UV(3634)+JVS(17058)*UV(3636)+JVS(17064)& - &*UV(3637)+JVS(17081)*UV(3638)+JVS(17115)*UV(3641)+JVS(17149)*UV(3644)+JVS(17180)*UV(3648)+JVS(17197)& - &*UV(3650)+JVS(17218)*UV(3652)+JVS(17267)*UV(3658)+JVS(17274)*UV(3659)+JVS(17301)*UV(3663)+JVS(17318)& - &*UV(3665)+JVS(17326)*UV(3666)+JVS(17334)*UV(3667)+JVS(17342)*UV(3668)+JVS(17349)*UV(3669)+JVS(17355)& - &*UV(3670)+JVS(17362)*UV(3671)+JVS(17386)*UV(3674)+JVS(17393)*UV(3675)+JVS(17401)*UV(3676)+JVS(17408)& - &*UV(3677)+JVS(17416)*UV(3678)+JVS(17424)*UV(3679)+JVS(17432)*UV(3680)+JVS(17471)*UV(3685)+JVS(17479)& - &*UV(3686)+JVS(17486)*UV(3687)+JVS(17496)*UV(3688)+JVS(17515)*UV(3690)+JVS(17524)*UV(3691)+JVS(17531)& - &*UV(3692)+JVS(17548)*UV(3694)+JVS(17555)*UV(3695)+JVS(17562)*UV(3696)+JVS(17569)*UV(3697)+JVS(17577)& - &*UV(3698)+JVS(17584)*UV(3699)+JVS(17591)*UV(3700)+JVS(17608)*UV(3703)+JVS(17616)*UV(3704)+JVS(17623)& - &*UV(3705)+JVS(17631)*UV(3706)+JVS(17660)*UV(3710)+JVS(17667)*UV(3711)+JVS(17675)*UV(3712)+JVS(17682)& - &*UV(3713)+JVS(17690)*UV(3714)+JVS(17698)*UV(3715)+JVS(17716)*UV(3717)+JVS(17725)*UV(3718)+JVS(17733)& - &*UV(3719)+JVS(17742)*UV(3720)+JVS(17749)*UV(3721)+JVS(17758)*UV(3722)+JVS(17766)*UV(3723)+JVS(17775)& - &*UV(3724)+JVS(17782)*UV(3725)+JVS(17801)*UV(3727)+JVS(17808)*UV(3728)+JVS(17824)*UV(3730)+JVS(17833)& - &*UV(3731)+JVS(17847)*UV(3733)+JVS(17883)*UV(3737)+JVS(17891)*UV(3738)+JVS(17898)*UV(3739)+JVS(17905)& - &*UV(3740)+JVS(17916)*UV(3741)+JVS(17933)*UV(3743)+JVS(17940)*UV(3744)+JVS(17949)*UV(3745)+JVS(17957)& - &*UV(3746)+JVS(17991)*UV(3749)+JVS(17999)*UV(3750)+JVS(18008)*UV(3751)+JVS(18015)*UV(3752)+JVS(18023)& - &*UV(3753)+JVS(18032)*UV(3754)+JVS(18069)*UV(3758)+JVS(18089)*UV(3760)+JVS(18098)*UV(3761)+JVS(18105)& - &*UV(3762)+JVS(18122)*UV(3764)+JVS(18130)*UV(3765)+JVS(18138)*UV(3766)+JVS(18145)*UV(3767)+JVS(18153)& - &*UV(3768)+JVS(18161)*UV(3769)+JVS(18168)*UV(3770)+JVS(18176)*UV(3771)+JVS(18183)*UV(3772)+JVS(18202)& - &*UV(3774)+JVS(18224)*UV(3776)+JVS(18241)*UV(3778)+JVS(18249)*UV(3779)+JVS(18267)*UV(3781)+JVS(18275)& - &*UV(3782)+JVS(18293)*UV(3784)+JVS(18301)*UV(3785)+JVS(18308)*UV(3786)+JVS(18324)*UV(3788)+JVS(18332)& - &*UV(3789)+JVS(18338)*UV(3790)+JVS(18345)*UV(3791)+JVS(18360)*UV(3793)+JVS(18368)*UV(3794)+JVS(18376)& - &*UV(3795)+JVS(18383)*UV(3796)+JVS(18391)*UV(3797)+JVS(18398)*UV(3798)+JVS(18405)*UV(3799)+JVS(18421)& - &*UV(3801)+JVS(18430)*UV(3802)+JVS(18436)*UV(3803)+JVS(18442)*UV(3804)+JVS(18450)*UV(3805)+JVS(18455)& - &*UV(3806)+JVS(18461)*UV(3807)+JVS(18468)*UV(3808)+JVS(18487)*UV(3810)+JVS(18493)*UV(3811)+JVS(18501)& - &*UV(3812)+JVS(18508)*UV(3813)+JVS(18515)*UV(3814)+JVS(18522)*UV(3815)+JVS(18538)*UV(3817)+JVS(18547)& - &*UV(3818)+JVS(18553)*UV(3819)+JVS(18560)*UV(3820)+JVS(18589)*UV(3823)+JVS(18597)*UV(3824)+JVS(18604)& - &*UV(3825)+JVS(18613)*UV(3826)+JVS(18620)*UV(3827)+JVS(18627)*UV(3828)+JVS(18665)*UV(3835)+JVS(18670)& - &*UV(3836)+JVS(18677)*UV(3837)+JVS(18687)*UV(3838)+JVS(18695)*UV(3839)+JVS(18702)*UV(3840)+JVS(18710)& - &*UV(3841)+JVS(18717)*UV(3842)+JVS(18734)*UV(3844)+JVS(18744)*UV(3845)+JVS(18754)*UV(3846)+JVS(18761)& - &*UV(3847)+JVS(18768)*UV(3848)+JVS(18791)*UV(3850)+JVS(18806)*UV(3852)+JVS(18813)*UV(3853)+JVS(18823)& - &*UV(3854)+JVS(18832)*UV(3855)+JVS(18858)*UV(3858)+JVS(18866)*UV(3859)+JVS(18875)*UV(3860)+JVS(18899)& - &*UV(3863)+JVS(18908)*UV(3864)+JVS(18915)*UV(3865)+JVS(18922)*UV(3866)+JVS(18928)*UV(3867)+JVS(18949)& - &*UV(3869)+JVS(18958)*UV(3870)+JVS(18968)*UV(3871)+JVS(18975)*UV(3872)+JVS(18983)*UV(3873)+JVS(18992)& - &*UV(3874)+JVS(19008)*UV(3876)+JVS(19025)*UV(3878)+JVS(19046)*UV(3880)+JVS(19056)*UV(3881)+JVS(19065)& - &*UV(3882)+JVS(19071)*UV(3883)+JVS(19079)*UV(3884)+JVS(19087)*UV(3885)+JVS(19094)*UV(3886)+JVS(19101)& - &*UV(3887)+JVS(19110)*UV(3888)+JVS(19118)*UV(3889)+JVS(19127)*UV(3890)+JVS(19134)*UV(3891)+JVS(19150)& - &*UV(3893)+JVS(19158)*UV(3894)+JVS(19165)*UV(3895)+JVS(19183)*UV(3897)+JVS(19190)*UV(3898)+JVS(19198)& - &*UV(3899)+JVS(19216)*UV(3901)+JVS(19224)*UV(3902)+JVS(19231)*UV(3903)+JVS(19238)*UV(3904)+JVS(19248)& - &*UV(3905)+JVS(19263)*UV(3907)+JVS(19270)*UV(3908)+JVS(19277)*UV(3909)+JVS(19284)*UV(3910)+JVS(19305)& - &*UV(3912)+JVS(19313)*UV(3913)+JVS(19345)*UV(3916)+JVS(19381)*UV(3919)+JVS(19388)*UV(3920)+JVS(19395)& - &*UV(3921)+JVS(19402)*UV(3922)+JVS(19429)*UV(3925)+JVS(19439)*UV(3926)+JVS(19445)*UV(3927)+JVS(19452)& - &*UV(3928)+JVS(19462)*UV(3929)+JVS(19473)*UV(3930)+JVS(19489)*UV(3932)+JVS(19497)*UV(3933)+JVS(19505)& - &*UV(3934)+JVS(19520)*UV(3936)+JVS(19528)*UV(3937)+JVS(19543)*UV(3939)+JVS(19550)*UV(3940)+JVS(19560)& - &*UV(3941)+JVS(19567)*UV(3942)+JVS(19574)*UV(3943)+JVS(19581)*UV(3944)+JVS(19588)*UV(3945)+JVS(19617)& - &*UV(3948)+JVS(19624)*UV(3949)+JVS(19631)*UV(3950)+JVS(19640)*UV(3951)+JVS(19647)*UV(3952)+JVS(19655)& - &*UV(3953)+JVS(19664)*UV(3954)+JVS(19673)*UV(3955)+JVS(19680)*UV(3956)+JVS(19689)*UV(3957)+JVS(19726)& - &*UV(3961)+JVS(19733)*UV(3962)+JVS(19739)*UV(3963)+JVS(19748)*UV(3964)+JVS(19763)*UV(3966)+JVS(19772)& - &*UV(3967)+JVS(19788)*UV(3969)+JVS(19795)*UV(3970)+JVS(19802)*UV(3971)+JVS(19818)*UV(3973)+JVS(19825)& - &*UV(3974)+JVS(19833)*UV(3975)+JVS(19841)*UV(3976)+JVS(19851)*UV(3977)+JVS(19873)*UV(3979)+JVS(19880)& - &*UV(3980)+JVS(19890)*UV(3981)+JVS(19897)*UV(3982)+JVS(19904)*UV(3983)+JVS(19912)*UV(3984)+JVS(19919)& - &*UV(3985)+JVS(19937)*UV(3987)+JVS(19943)*UV(3988)+JVS(19953)*UV(3989)+JVS(19959)*UV(3990)+JVS(19977)& - &*UV(3992)+JVS(19995)*UV(3994)+JVS(20017)*UV(3997)+JVS(20028)*UV(3998)+JVS(20036)*UV(3999)+JVS(20048)& - &*UV(4000)+JVS(20056)*UV(4001)+JVS(20064)*UV(4002)+JVS(20071)*UV(4003)+JVS(20079)*UV(4004)+JVS(20090)& - &*UV(4005)+JVS(20098)*UV(4006)+JVS(20106)*UV(4007)+JVS(20114)*UV(4008)+JVS(20122)*UV(4009)+JVS(20135)& - &*UV(4011)+JVS(20147)*UV(4012)+JVS(20159)*UV(4013)+JVS(20186)*UV(4015)+JVS(20193)*UV(4016)+JVS(20213)& - &*UV(4019)+JVS(20220)*UV(4020)+JVS(20228)*UV(4021)+JVS(20236)*UV(4022)+JVS(20244)*UV(4023)+JVS(20253)& - &*UV(4024)+JVS(20262)*UV(4025)+JVS(20271)*UV(4026)+JVS(20284)*UV(4028)+JVS(20293)*UV(4029)+JVS(20300)& - &*UV(4030)+JVS(20308)*UV(4031)+JVS(20320)*UV(4033)+JVS(20328)*UV(4034)+JVS(20336)*UV(4035)+JVS(20344)& - &*UV(4036)+JVS(20352)*UV(4037)+JVS(20363)*UV(4038)+JVS(20371)*UV(4039)+JVS(20379)*UV(4040)+JVS(20391)& - &*UV(4041)+JVS(20406)*UV(4042)+JVS(20415)*UV(4043)+JVS(20422)*UV(4044)+JVS(20434)*UV(4045)+JVS(20446)& - &*UV(4046)+JVS(20480)*UV(4049)+JVS(20490)*UV(4050)+JVS(20505)*UV(4051)+JVS(20516)*UV(4052)+JVS(20535)& - &*UV(4054)+JVS(20542)*UV(4055)+JVS(20554)*UV(4057)+JVS(20565)*UV(4058)+JVS(20574)*UV(4059)+JVS(20587)& - &*UV(4060)+JVS(20594)*UV(4061)+JVS(20604)*UV(4062)+JVS(20611)*UV(4063)+JVS(20619)*UV(4064)+JVS(20627)& - &*UV(4065)+JVS(20635)*UV(4066)+JVS(20640)*UV(4067)+JVS(20648)*UV(4068)+JVS(20657)*UV(4069)+JVS(20664)& - &*UV(4070)+JVS(20672)*UV(4071)+JVS(20679)*UV(4072)+JVS(20687)*UV(4073)+JVS(20695)*UV(4074)+JVS(20702)& - &*UV(4075)+JVS(20711)*UV(4076)+JVS(20721)*UV(4077)+JVS(20729)*UV(4078)+JVS(20737)*UV(4079)+JVS(20759)& - &*UV(4082)+JVS(20784)*UV(4085)+JVS(20794)*UV(4086)+JVS(20802)*UV(4087)+JVS(20811)*UV(4088)+JVS(20822)& - &*UV(4089)+JVS(20829)*UV(4090)+JVS(20836)*UV(4091)+JVS(20850)*UV(4092)+JVS(20867)*UV(4095)+JVS(20873)& - &*UV(4096)+JVS(20879)*UV(4097)+JVS(20889)*UV(4098)+JVS(20897)*UV(4099)+JVS(20905)*UV(4100)+JVS(20916)& - &*UV(4101)+JVS(20926)*UV(4102)+JVS(20963)*UV(4105)+JVS(20970)*UV(4106)+JVS(21015)*UV(4111)+JVS(21022)& - &*UV(4112)+JVS(21043)*UV(4115)+JVS(21051)*UV(4116)+JVS(21058)*UV(4117)+JVS(21067)*UV(4118)+JVS(21077)& - &*UV(4119)+JVS(21087)*UV(4120)+JVS(21095)*UV(4121)+JVS(21114)*UV(4123)+JVS(21121)*UV(4124)+JVS(21142)& - &*UV(4126)+JVS(21150)*UV(4127)+JVS(21157)*UV(4128)+JVS(21163)*UV(4129)+JVS(21173)*UV(4130)+JVS(21181)& - &*UV(4131)+JVS(21197)*UV(4133)+JVS(21204)*UV(4134)+JVS(21210)*UV(4135)+JVS(21219)*UV(4136)+JVS(21229)& - &*UV(4137)+JVS(21238)*UV(4138)+JVS(21246)*UV(4139)+JVS(21254)*UV(4140)+JVS(21260)*UV(4141)+JVS(21267)& - &*UV(4142)+JVS(21274)*UV(4143)+JVS(21280)*UV(4144)+JVS(21287)*UV(4145)+JVS(21294)*UV(4146)+JVS(21302)& - &*UV(4147)+JVS(21308)*UV(4148)+JVS(21316)*UV(4149)+JVS(21326)*UV(4150)+JVS(21345)*UV(4152)+JVS(21353)& - &*UV(4153)+JVS(21365)*UV(4154)+JVS(21390)*UV(4157)+JVS(21398)*UV(4158)+JVS(21404)*UV(4159)+JVS(21420)& - &*UV(4161)+JVS(21429)*UV(4162)+JVS(21437)*UV(4163)+JVS(21454)*UV(4165)+JVS(21462)*UV(4166)+JVS(21469)& - &*UV(4167)+JVS(21478)*UV(4168)+JVS(21489)*UV(4169)+JVS(21498)*UV(4170)+JVS(21505)*UV(4171)+JVS(21514)& - &*UV(4172)+JVS(21523)*UV(4173)+JVS(21545)*UV(4175)+JVS(21552)*UV(4176)+JVS(21562)*UV(4177)+JVS(21591)& - &*UV(4180)+JVS(21606)*UV(4181)+JVS(21617)*UV(4182)+JVS(21641)*UV(4184)+JVS(21649)*UV(4185)+JVS(21669)& - &*UV(4187)+JVS(21679)*UV(4188)+JVS(21690)*UV(4189)+JVS(21699)*UV(4190)+JVS(21707)*UV(4191)+JVS(21715)& - &*UV(4192)+JVS(21724)*UV(4193)+JVS(21733)*UV(4194)+JVS(21742)*UV(4195)+JVS(21755)*UV(4196)+JVS(21765)& - &*UV(4197)+JVS(21773)*UV(4198)+JVS(21787)*UV(4199)+JVS(21796)*UV(4200)+JVS(21805)*UV(4201)+JVS(21816)& - &*UV(4202)+JVS(21826)*UV(4203)+JVS(21835)*UV(4204)+JVS(21844)*UV(4205)+JVS(21853)*UV(4206)+JVS(21863)& - &*UV(4207)+JVS(21874)*UV(4208)+JVS(21883)*UV(4209)+JVS(21892)*UV(4210)+JVS(21903)*UV(4211)+JVS(21911)& - &*UV(4212)+JVS(21919)*UV(4213)+JVS(21931)*UV(4214)+JVS(21940)*UV(4215)+JVS(21954)*UV(4216)+JVS(21963)& - &*UV(4217)+JVS(21975)*UV(4218)+JVS(21988)*UV(4219)+JVS(22000)*UV(4220)+JVS(22013)*UV(4221)+JVS(22023)& - &*UV(4222)+JVS(22055)*UV(4225)+JVS(22068)*UV(4226)+JVS(22078)*UV(4227)+JVS(22089)*UV(4228)+JVS(22099)& - &*UV(4229)+JVS(22109)*UV(4230)+JVS(22130)*UV(4232)+JVS(22140)*UV(4233)+JVS(22151)*UV(4234)+JVS(22162)& - &*UV(4235)+JVS(22170)*UV(4236)+JVS(22179)*UV(4237)+JVS(22190)*UV(4238)+JVS(22211)*UV(4240)+JVS(22224)& - &*UV(4241)+JVS(22233)*UV(4242)+JVS(22243)*UV(4243)+JVS(22253)*UV(4244)+JVS(22261)*UV(4245)+JVS(22270)& - &*UV(4246)+JVS(22278)*UV(4247)+JVS(22304)*UV(4249)+JVS(22312)*UV(4250)+JVS(22324)*UV(4251)+JVS(22332)& - &*UV(4252)+JVS(22345)*UV(4253)+JVS(22356)*UV(4254)+JVS(22364)*UV(4255)+JVS(22376)*UV(4256)+JVS(22385)& - &*UV(4257)+JVS(22393)*UV(4258)+JVS(22402)*UV(4259)+JVS(22412)*UV(4260)+JVS(22433)*UV(4262)+JVS(22445)& - &*UV(4263)+JVS(22451)*UV(4264)+JVS(22461)*UV(4265)+JVS(22471)*UV(4266)+JVS(22482)*UV(4267)+JVS(22492)& - &*UV(4268)+JVS(22501)*UV(4269)+JVS(22512)*UV(4270)+JVS(22520)*UV(4271)+JVS(22534)*UV(4273)+JVS(22545)& - &*UV(4274)+JVS(22553)*UV(4275)+JVS(22562)*UV(4276)+JVS(22573)*UV(4277)+JVS(22608)*UV(4280)+JVS(22617)& - &*UV(4281)+JVS(22625)*UV(4282)+JVS(22634)*UV(4283)+JVS(22645)*UV(4284)+JVS(22653)*UV(4285)+JVS(22661)& - &*UV(4286)+JVS(22670)*UV(4287)+JVS(22679)*UV(4288)+JVS(22688)*UV(4289)+JVS(22701)*UV(4290)+JVS(22710)& - &*UV(4291)+JVS(22719)*UV(4292)+JVS(22728)*UV(4293)+JVS(22764)*UV(4295)+JVS(22773)*UV(4296)+JVS(22782)& - &*UV(4297)+JVS(22791)*UV(4298)+JVS(22804)*UV(4299)+JVS(22826)*UV(4301)+JVS(22834)*UV(4302)+JVS(22843)& - &*UV(4303)+JVS(22852)*UV(4304)+JVS(22861)*UV(4305)+JVS(22870)*UV(4306)+JVS(22879)*UV(4307)+JVS(22892)& - &*UV(4308)+JVS(22903)*UV(4309)+JVS(22915)*UV(4310)+JVS(22925)*UV(4311)+JVS(22934)*UV(4312)+JVS(22958)& - &*UV(4314)+JVS(22970)*UV(4315)+JVS(22981)*UV(4316)+JVS(22990)*UV(4317)+JVS(23000)*UV(4318)+JVS(23012)& - &*UV(4319)+JVS(23020)*UV(4320)+JVS(23027)*UV(4321)+JVS(23038)*UV(4322)+JVS(23046)*UV(4323)+JVS(23058)& - &*UV(4324)+JVS(23073)*UV(4325)+JVS(23085)*UV(4326)+JVS(23093)*UV(4327)+JVS(23103)*UV(4328)+JVS(23117)& - &*UV(4329)+JVS(23171)*UV(4334)+JVS(23178)*UV(4335)+JVS(23187)*UV(4336)+JVS(23194)*UV(4337)+JVS(23202)& - &*UV(4338)+JVS(23209)*UV(4339)+JVS(23218)*UV(4340)+JVS(23224)*UV(4341)+JVS(23232)*UV(4342)+JVS(23241)& - &*UV(4343)+JVS(23251)*UV(4344)+JVS(23260)*UV(4345)+JVS(23268)*UV(4346)+JVS(23275)*UV(4347)+JVS(23283)& - &*UV(4348)+JVS(23291)*UV(4349)+JVS(23300)*UV(4350)+JVS(23307)*UV(4351)+JVS(23320)*UV(4352)+JVS(23328)& - &*UV(4353)+JVS(23335)*UV(4354)+JVS(23343)*UV(4355)+JVS(23351)*UV(4356)+JVS(23358)*UV(4357)+JVS(23365)& - &*UV(4358)+JVS(23373)*UV(4359)+JVS(23383)*UV(4360)+JVS(23391)*UV(4361)+JVS(23408)*UV(4363)+JVS(23415)& - &*UV(4364)+JVS(23426)*UV(4365)+JVS(23458)*UV(4367)+JVS(23465)*UV(4368)+JVS(23473)*UV(4369)+JVS(23480)& - &*UV(4370)+JVS(23487)*UV(4371)+JVS(23493)*UV(4372)+JVS(23512)*UV(4374)+JVS(23520)*UV(4375)+JVS(23533)& - &*UV(4376)+JVS(23541)*UV(4377)+JVS(23551)*UV(4378)+JVS(23558)*UV(4379)+JVS(23566)*UV(4380)+JVS(23575)& - &*UV(4381)+JVS(23581)*UV(4382)+JVS(23604)*UV(4384)+JVS(23615)*UV(4385)+JVS(23637)*UV(4387)+JVS(23646)& - &*UV(4388)+JVS(23655)*UV(4389)+JVS(23663)*UV(4390)+JVS(23708)*UV(4393)+JVS(23718)*UV(4394)+JVS(23759)& - &*UV(4399)+JVS(23767)*UV(4400)+JVS(23789)*UV(4402)+JVS(23847)*UV(4404)+JVS(23856)*UV(4405)+JVS(23867)& - &*UV(4406)+JVS(23876)*UV(4407)+JVS(23886)*UV(4408)+JVS(23897)*UV(4409)+JVS(23908)*UV(4410)+JVS(23920)& - &*UV(4411)+JVS(23929)*UV(4412)+JVS(23938)*UV(4413)+JVS(23948)*UV(4414)+JVS(23957)*UV(4415)+JVS(23966)& - &*UV(4416)+JVS(23978)*UV(4417)+JVS(23989)*UV(4418)+JVS(24000)*UV(4419)+JVS(24024)*UV(4421)+JVS(24032)& - &*UV(4422)+JVS(24048)*UV(4423)+JVS(24057)*UV(4424)+JVS(24066)*UV(4425)+JVS(24085)*UV(4426)+JVS(24095)& - &*UV(4427)+JVS(24104)*UV(4428)+JVS(24116)*UV(4429)+JVS(24127)*UV(4430)+JVS(24139)*UV(4431)+JVS(24149)& - &*UV(4432)+JVS(24159)*UV(4433)+JVS(24168)*UV(4434)+JVS(24180)*UV(4435)+JVS(24188)*UV(4436)+JVS(24197)& - &*UV(4437)+JVS(24207)*UV(4438)+JVS(24218)*UV(4439)+JVS(24227)*UV(4440)+JVS(24240)*UV(4441)+JVS(24253)& - &*UV(4442)+JVS(24265)*UV(4443)+JVS(24274)*UV(4444)+JVS(24285)*UV(4445)+JVS(24295)*UV(4446)+JVS(24305)& - &*UV(4447)+JVS(24317)*UV(4448)+JVS(24330)*UV(4449)+JVS(24342)*UV(4450)+JVS(24351)*UV(4451)+JVS(24361)& - &*UV(4452)+JVS(24370)*UV(4453)+JVS(24380)*UV(4454)+JVS(24390)*UV(4455)+JVS(24400)*UV(4456)+JVS(24409)& - &*UV(4457)+JVS(24419)*UV(4458)+JVS(24429)*UV(4459)+JVS(24439)*UV(4460)+JVS(24451)*UV(4461)+JVS(24468)& - &*UV(4463)+JVS(24477)*UV(4464)+JVS(24488)*UV(4465)+JVS(24496)*UV(4466)+JVS(24506)*UV(4467)+JVS(24516)& - &*UV(4468)+JVS(24526)*UV(4469)+JVS(24536)*UV(4470)+JVS(24545)*UV(4471)+JVS(24555)*UV(4472)+JVS(24565)& - &*UV(4473)+JVS(24581)*UV(4476)+JVS(24594)*UV(4477)+JVS(24604)*UV(4478)+JVS(24614)*UV(4479)+JVS(24624)& - &*UV(4480)+JVS(24636)*UV(4481)+JVS(24656)*UV(4482)+JVS(24668)*UV(4483)+JVS(24678)*UV(4484)+JVS(24693)& - &*UV(4485)+JVS(24705)*UV(4486)+JVS(24714)*UV(4487)+JVS(24727)*UV(4488)+JVS(24738)*UV(4489)+JVS(24755)& - &*UV(4490)+JVS(24812)*UV(4494)+JVS(24822)*UV(4495)+JVS(24833)*UV(4496)+JVS(24846)*UV(4497)+JVS(24855)& - &*UV(4498)+JVS(24864)*UV(4499)+JVS(24874)*UV(4500)+JVS(24897)*UV(4502)+JVS(24908)*UV(4503)+JVS(24917)& - &*UV(4504)+JVS(24934)*UV(4506)+JVS(25024)*UV(4509)+JVS(25038)*UV(4510)+JVS(25046)*UV(4511)+JVS(25060)& - &*UV(4513)+JVS(25069)*UV(4514)+JVS(25080)*UV(4515)+JVS(25089)*UV(4516)+JVS(25099)*UV(4517)+JVS(25109)& - &*UV(4518)+JVS(25120)*UV(4519)+JVS(25130)*UV(4520)+JVS(25142)*UV(4521)+JVS(25152)*UV(4522)+JVS(25162)& - &*UV(4523)+JVS(25191)*UV(4525)+JVS(25199)*UV(4526)+JVS(25227)*UV(4529)+JVS(25246)*UV(4531)+JVS(25259)& - &*UV(4532)+JVS(25270)*UV(4533)+JVS(25282)*UV(4534)+JVS(25291)*UV(4535)+JVS(25307)*UV(4536)+JVS(25330)& - &*UV(4538)+JVS(25342)*UV(4539)+JVS(25369)*UV(4541)+JVS(25378)*UV(4542)+JVS(25388)*UV(4543)+JVS(25399)& - &*UV(4544)+JVS(25415)*UV(4545)+JVS(25426)*UV(4546)+JVS(25452)*UV(4548)+JVS(25464)*UV(4549)+JVS(25475)& - &*UV(4550)+JVS(25484)*UV(4551)+JVS(25497)*UV(4552)+JVS(25507)*UV(4553)+JVS(25515)*UV(4554)+JVS(25528)& - &*UV(4556)+JVS(25540)*UV(4557)+JVS(25548)*UV(4558)+JVS(25574)*UV(4560)+JVS(25582)*UV(4561)+JVS(25590)& - &*UV(4562)+JVS(25598)*UV(4563)+JVS(25613)*UV(4564)+JVS(25622)*UV(4565)+JVS(25629)*UV(4566)+JVS(25638)& - &*UV(4567)+JVS(25645)*UV(4568)+JVS(25674)*UV(4571)+JVS(25682)*UV(4572)+JVS(25689)*UV(4573)+JVS(25696)& - &*UV(4574)+JVS(25702)*UV(4575)+JVS(25724)*UV(4577)+JVS(25730)*UV(4578)+JVS(25737)*UV(4579)+JVS(25748)& - &*UV(4580)+JVS(25756)*UV(4581)+JVS(25763)*UV(4582)+JVS(25772)*UV(4583)+JVS(25779)*UV(4584)+JVS(25786)& - &*UV(4585)+JVS(25794)*UV(4586)+JVS(25801)*UV(4587)+JVS(25823)*UV(4589)+JVS(25831)*UV(4590)+JVS(25847)& - &*UV(4591)+JVS(25860)*UV(4592)+JVS(25869)*UV(4593)+JVS(25877)*UV(4594)+JVS(25885)*UV(4595)+JVS(25892)& - &*UV(4596)+JVS(25902)*UV(4597)+JVS(25909)*UV(4598)+JVS(25917)*UV(4599)+JVS(25975)*UV(4602)+JVS(25985)& - &*UV(4603)+JVS(26006)*UV(4607)+JVS(26015)*UV(4608)+JVS(26022)*UV(4609)+JVS(26029)*UV(4610)+JVS(26038)& - &*UV(4611)+JVS(26051)*UV(4612)+JVS(26062)*UV(4613)+JVS(26074)*UV(4614)+JVS(26081)*UV(4615)+JVS(26086)& - &*UV(4616)+JVS(26091)*UV(4617)+JVS(26129)*UV(4619)+JVS(26141)*UV(4620)+JVS(26149)*UV(4621)+JVS(26174)& - &*UV(4622)+JVS(26183)*UV(4623)+JVS(26198)*UV(4624)+JVS(26207)*UV(4625)+JVS(26216)*UV(4626)+JVS(26226)& - &*UV(4627)+JVS(26235)*UV(4628)+JVS(26245)*UV(4629)+JVS(26268)*UV(4631)+JVS(26278)*UV(4632)+JVS(26288)& - &*UV(4633)+JVS(26298)*UV(4634)+JVS(26307)*UV(4635)+JVS(26317)*UV(4636)+JVS(26335)*UV(4638)+JVS(26344)& - &*UV(4639)+JVS(26356)*UV(4640)+JVS(26364)*UV(4641)+JVS(26375)*UV(4642)+JVS(26384)*UV(4643)+JVS(26400)& - &*UV(4644)+JVS(26409)*UV(4645)+JVS(26417)*UV(4646)+JVS(26426)*UV(4647)+JVS(26438)*UV(4648)+JVS(26446)& - &*UV(4649)+JVS(26470)*UV(4651)+JVS(26481)*UV(4652)+JVS(26490)*UV(4653)+JVS(26499)*UV(4654)+JVS(26509)& - &*UV(4655)+JVS(26518)*UV(4656)+JVS(26528)*UV(4657)+JVS(26541)*UV(4658)+JVS(26551)*UV(4659)+JVS(26560)& - &*UV(4660)+JVS(26569)*UV(4661)+JVS(26579)*UV(4662)+JVS(26589)*UV(4663)+JVS(26607)*UV(4664)+JVS(26616)& - &*UV(4665)+JVS(26632)*UV(4666)+JVS(26643)*UV(4667)+JVS(26652)*UV(4668)+JVS(26664)*UV(4669)+JVS(26673)& - &*UV(4670)+JVS(26684)*UV(4671)+JVS(26699)*UV(4672)+JVS(26712)*UV(4673)+JVS(26721)*UV(4674)+JVS(26731)& - &*UV(4675)+JVS(26742)*UV(4676)+JVS(26751)*UV(4677)+JVS(26758)*UV(4678)+JVS(26768)*UV(4679)+JVS(26777)& - &*UV(4680)+JVS(26788)*UV(4681)+JVS(26798)*UV(4682)+JVS(26809)*UV(4683)+JVS(26818)*UV(4684)+JVS(26827)& - &*UV(4685)+JVS(26841)*UV(4686)+JVS(26855)*UV(4687)+JVS(26865)*UV(4688)+JVS(26875)*UV(4689)+JVS(26885)& - &*UV(4690)+JVS(26893)*UV(4691)+JVS(26902)*UV(4692)+JVS(27015)*UV(4695)+JVS(27023)*UV(4696)+JVS(27031)& - &*UV(4697)+JVS(27040)*UV(4698)+JVS(27046)*UV(4699)+JVS(27054)*UV(4700)+JVS(27061)*UV(4701)+JVS(27070)& - &*UV(4702)+JVS(27077)*UV(4703)+JVS(27083)*UV(4704)+JVS(27090)*UV(4705)+JVS(27097)*UV(4706)+JVS(27103)& - &*UV(4707)+JVS(27132)*UV(4709)+JVS(27157)*UV(4711)+JVS(27164)*UV(4712)+JVS(27171)*UV(4713)+JVS(27179)& - &*UV(4714)+JVS(27187)*UV(4715)+JVS(27194)*UV(4716)+JVS(27210)*UV(4718)+JVS(27220)*UV(4719)+JVS(27227)& - &*UV(4720)+JVS(27268)*UV(4722)+JVS(27275)*UV(4723)+JVS(27286)*UV(4724)+JVS(27292)*UV(4725)+JVS(27304)& - &*UV(4726)+JVS(27311)*UV(4727)+JVS(27363)*UV(4730)+JVS(27371)*UV(4731)+JVS(27378)*UV(4732)+JVS(27386)& - &*UV(4733)+JVS(27396)*UV(4734)+JVS(27402)*UV(4735)+JVS(27436)*UV(4738)+JVS(27448)*UV(4739)+JVS(27462)& - &*UV(4740)+JVS(27475)*UV(4741)+JVS(27487)*UV(4742)+JVS(27499)*UV(4743)+JVS(27507)*UV(4744)+JVS(27520)& - &*UV(4745)+JVS(27528)*UV(4746)+JVS(27563)*UV(4748)+JVS(27578)*UV(4749)+JVS(27588)*UV(4750)+JVS(27598)& - &*UV(4751)+JVS(27613)*UV(4752)+JVS(27625)*UV(4753)+JVS(27633)*UV(4754)+JVS(27648)*UV(4755)+JVS(27656)& - &*UV(4756)+JVS(27667)*UV(4757)+JVS(27673)*UV(4758)+JVS(27687)*UV(4759)+JVS(27708)*UV(4760)+JVS(27717)& - &*UV(4761)+JVS(27725)*UV(4762)+JVS(27740)*UV(4763)+JVS(27754)*UV(4764)+JVS(27763)*UV(4765)+JVS(27772)& - &*UV(4766)+JVS(27782)*UV(4767)+JVS(27804)*UV(4768)+JVS(27817)*UV(4769)+JVS(27828)*UV(4770)+JVS(27838)& - &*UV(4771)+JVS(27849)*UV(4772)+JVS(27861)*UV(4773)+JVS(27870)*UV(4774)+JVS(27885)*UV(4775)+JVS(27893)& - &*UV(4776)+JVS(27901)*UV(4777)+JVS(27910)*UV(4778)+JVS(27918)*UV(4779)+JVS(27927)*UV(4780)+JVS(27935)& - &*UV(4781)+JVS(27943)*UV(4782)+JVS(27950)*UV(4783)+JVS(27958)*UV(4784)+JVS(27966)*UV(4785)+JVS(27972)& - &*UV(4786)+JVS(27980)*UV(4787)+JVS(27990)*UV(4788)+JVS(28003)*UV(4789)+JVS(28012)*UV(4790)+JVS(28023)& - &*UV(4791)+JVS(28039)*UV(4792)+JVS(28064)*UV(4795)+JVS(28156)*UV(4797)+JVS(28169)*UV(4798)+JVS(28182)& - &*UV(4799)+JVS(28231)*UV(4802)+JVS(28237)*UV(4803)+JVS(28247)*UV(4804)+JVS(28266)*UV(4806)+JVS(28275)& - &*UV(4807)+JVS(28286)*UV(4808)+JVS(28296)*UV(4809)+JVS(28306)*UV(4810)+JVS(28318)*UV(4811)+JVS(28331)& - &*UV(4812)+JVS(28341)*UV(4813)+JVS(28351)*UV(4814)+JVS(28364)*UV(4815)+JVS(28373)*UV(4816)+JVS(28384)& - &*UV(4817)+JVS(28392)*UV(4818)+JVS(28400)*UV(4819)+JVS(28411)*UV(4820)+JVS(28417)*UV(4821)+JVS(28430)& - &*UV(4822)+JVS(28451)*UV(4823)+JVS(28460)*UV(4824)+JVS(28469)*UV(4825)+JVS(28479)*UV(4826)+JVS(28491)& - &*UV(4827)+JVS(28498)*UV(4828)+JVS(28507)*UV(4829)+JVS(28519)*UV(4830)+JVS(28536)*UV(4831)+JVS(28556)& - &*UV(4833)+JVS(28580)*UV(4835)+JVS(28589)*UV(4836)+JVS(28599)*UV(4837)+JVS(28608)*UV(4838)+JVS(28626)& - &*UV(4839)+JVS(28646)*UV(4841)+JVS(28681)*UV(4843)+JVS(28696)*UV(4844)+JVS(28720)*UV(4846)+JVS(28737)& - &*UV(4847)+JVS(28749)*UV(4848)+JVS(28765)*UV(4849)+JVS(28787)*UV(4850)+JVS(28818)*UV(4852)+JVS(28834)& - &*UV(4853)+JVS(28848)*UV(4854)+JVS(28861)*UV(4855)+JVS(28874)*UV(4856)+JVS(28885)*UV(4857)+JVS(28896)& - &*UV(4858)+JVS(28906)*UV(4859)+JVS(28918)*UV(4860)+JVS(28930)*UV(4861)+JVS(28941)*UV(4862)+JVS(28954)& - &*UV(4863)+JVS(28971)*UV(4864)+JVS(28991)*UV(4865)+JVS(29003)*UV(4866)+JVS(29017)*UV(4867)+JVS(29026)& - &*UV(4868)+JVS(29037)*UV(4869)+JVS(29052)*UV(4870)+JVS(29070)*UV(4871)+JVS(29114)*UV(4874)+JVS(29128)& - &*UV(4875)+JVS(29136)*UV(4876)+JVS(29143)*UV(4877)+JVS(29151)*UV(4878)+JVS(29158)*UV(4879)+JVS(29166)& - &*UV(4880)+JVS(29173)*UV(4881)+JVS(29206)*UV(4884)+JVS(29217)*UV(4885)+JVS(29225)*UV(4886)+JVS(29235)& - &*UV(4887)+JVS(29246)*UV(4888)+JVS(29256)*UV(4889)+JVS(29269)*UV(4890)+JVS(29277)*UV(4891)+JVS(29286)& - &*UV(4892)+JVS(29298)*UV(4893)+JVS(29308)*UV(4894)+JVS(29340)*UV(4897)+JVS(29353)*UV(4898)+JVS(29365)& - &*UV(4899)+JVS(29375)*UV(4900)+JVS(29389)*UV(4901)+JVS(29408)*UV(4902)+JVS(29419)*UV(4903)+JVS(29450)& - &*UV(4904)+JVS(29462)*UV(4905)+JVS(29471)*UV(4906)+JVS(29485)*UV(4908)+JVS(29518)*UV(4909)+JVS(29540)& - &*UV(4910)+JVS(29553)*UV(4911)+JVS(29561)*UV(4912)+JVS(29579)*UV(4913)+JVS(29604)*UV(4915)+JVS(29624)& - &*UV(4916)+JVS(29639)*UV(4917)+JVS(29673)*UV(4918)+JVS(29684)*UV(4919)+JVS(29698)*UV(4920)+JVS(29714)& - &*UV(4921)+JVS(29722)*UV(4922)+JVS(29732)*UV(4923)+JVS(29752)*UV(4924)+JVS(29761)*UV(4925)+JVS(29772)& - &*UV(4926)+JVS(29790)*UV(4928)+JVS(29810)*UV(4929)+JVS(29825)*UV(4930)+JVS(29859)*UV(4931)+JVS(29869)& - &*UV(4932)+JVS(29887)*UV(4934)+JVS(29897)*UV(4935)+JVS(29912)*UV(4936)+JVS(29921)*UV(4937)+JVS(30008)& - &*UV(4938)+JVS(30053)*UV(4940)+JVS(30067)*UV(4941)+JVS(30085)*UV(4942)+JVS(30101)*UV(4943)+JVS(30126)& - &*UV(4944)+JVS(30135)*UV(4945)+JVS(30141)*UV(4946)+JVS(30169)*UV(4947)+JVS(30179)*UV(4948)+JVS(30200)& - &*UV(4949)+JVS(30210)*UV(4950)+JVS(30251)*UV(4953)+JVS(30266)*UV(4954)+JVS(30276)*UV(4955)+JVS(30288)& - &*UV(4956)+JVS(30298)*UV(4957)+JVS(30328)*UV(4958)+JVS(30346)*UV(4959)+JVS(30358)*UV(4960)+JVS(30387)& - &*UV(4962)+JVS(30399)*UV(4963)+JVS(30420)*UV(4964)+JVS(30436)*UV(4965)+JVS(30456)*UV(4966)+JVS(30469)& - &*UV(4967)+JVS(30477)*UV(4968)+JVS(30491)*UV(4969)+JVS(30507)*UV(4971)+JVS(30515)*UV(4972)+JVS(30547)& - &*UV(4973)+JVS(30556)*UV(4974)+JVS(30584)*UV(4977)+JVS(30614)*UV(4979)+JVS(30627)*UV(4980)+JVS(30647)& - &*UV(4981)+JVS(30657)*UV(4982)+JVS(30711)*UV(4984)+JVS(30727)*UV(4985)+JVS(30755)*UV(4986)+JVS(30766)& - &*UV(4987)+JVS(30784)*UV(4989)+JVS(30797)*UV(4990)+JVS(30822)*UV(4991)+JVS(30833)*UV(4992)+JVS(30843)& - &*UV(4993)+JVS(30854)*UV(4994)+JVS(30880)*UV(4995)+JVS(30908)*UV(4997)+JVS(30919)*UV(4998)+JVS(30931)& - &*UV(4999)+JVS(30975)*UV(5000)+JVS(31008)*UV(5001)+JVS(31027)*UV(5003)+JVS(31054)*UV(5004)+JVS(31067)& - &*UV(5005)+JVS(31094)*UV(5006)+JVS(31112)*UV(5007)+JVS(31128)*UV(5008)+JVS(31187)*UV(5011)+JVS(31217)& - &*UV(5013)+JVS(31228)*UV(5014)+JVS(31238)*UV(5015)+JVS(31255)*UV(5016)+JVS(31270)*UV(5017)+JVS(31286)& - &*UV(5018)+JVS(31298)*UV(5019)+JVS(31311)*UV(5020)+JVS(31322)*UV(5021)+JVS(31332)*UV(5022)+JVS(31368)& - &*UV(5023)+JVS(31387)*UV(5025)+JVS(31426)*UV(5027)+JVS(31436)*UV(5028)+JVS(31455)*UV(5029)+JVS(31466)& - &*UV(5030)+JVS(31508)*UV(5031)+JVS(31519)*UV(5032)+JVS(31526)*UV(5033)+JVS(31542)*UV(5034)+JVS(31553)& - &*UV(5035)+JVS(31570)*UV(5036)+JVS(31622)*UV(5038)+JVS(31642)*UV(5039)+JVS(31654)*UV(5040)+JVS(31664)& - &*UV(5041)+JVS(31692)*UV(5043)+JVS(31707)*UV(5044)+JVS(31717)*UV(5045)+JVS(31821)*UV(5047)+JVS(31830)& - &*UV(5048)+JVS(31875)*UV(5052)+JVS(31897)*UV(5053)+JVS(31912)*UV(5054)+JVS(31939)*UV(5055)+JVS(31948)& - &*UV(5056)+JVS(32030)*UV(5059)+JVS(32051)*UV(5060)+JVS(32061)*UV(5061)+JVS(32080)*UV(5062)+JVS(32119)& - &*UV(5065)+JVS(32192)*UV(5070)+JVS(32221)*UV(5071)+JVS(32254)*UV(5073)+JVS(32263)*UV(5074)+JVS(32274)& - &*UV(5075)+JVS(32292)*UV(5077)+JVS(32305)*UV(5078)+JVS(32328)*UV(5079)+JVS(32375)*UV(5081)+JVS(32383)& - &*UV(5082)+JVS(32414)*UV(5084)+JVS(32527)*UV(5088)+JVS(32556)*UV(5090)+JVS(32568)*UV(5091)+JVS(32576)& - &*UV(5092)+JVS(32655)*UV(5096)+JVS(32676)*UV(5097)+JVS(32712)*UV(5098)+JVS(32728)*UV(5099)+JVS(32763)& - &*UV(5100)+JVS(32794)*UV(5101)+JVS(32812)*UV(5102)+JVS(32853)*UV(5104)+JVS(32919)*UV(5106)+JVS(32929)& - &*UV(5107)+JVS(32940)*UV(5108)+JVS(32948)*UV(5109)+JVS(32998)*UV(5111)+JVS(33009)*UV(5112)+JVS(33037)& - &*UV(5114)+JVS(33073)*UV(5116)+JVS(33096)*UV(5117)+JVS(33107)*UV(5118)+JVS(33117)*UV(5119)+JVS(33129)& - &*UV(5120)+JVS(33153)*UV(5121)+JVS(33167)*UV(5122)+JVS(33296)*UV(5125)+JVS(33333)*UV(5127)+JVS(33350)& - &*UV(5128)+JVS(33386)*UV(5129)+JVS(33412)*UV(5130)+JVS(33434)*UV(5131)+JVS(33444)*UV(5132)+JVS(33458)& - &*UV(5133)+JVS(33477)*UV(5134)+JVS(33490)*UV(5135)+JVS(33519)*UV(5136)+JVS(33569)*UV(5137)+JVS(33578)& - &*UV(5138)+JVS(33711)*UV(5139)+JVS(33825)*UV(5142)+JVS(33904)*UV(5144)+JVS(33954)*UV(5145)+JVS(33964)& - &*UV(5146)+JVS(33980)*UV(5147)+JVS(34000)*UV(5148)+JVS(34024)*UV(5149)+JVS(34044)*UV(5150)+JVS(34065)& - &*UV(5151)+JVS(34113)*UV(5152)+JVS(34133)*UV(5154)+JVS(34149)*UV(5155)+JVS(34171)*UV(5156)+JVS(34248)& - &*UV(5158)+JVS(34510)*UV(5160)+JVS(34547)*UV(5161)+JVS(34586)*UV(5163)+JVS(34615)*UV(5164)+JVS(34657)& - &*UV(5165)+JVS(34681)*UV(5167)+JVS(34693)*UV(5168)+JVS(34712)*UV(5169)+JVS(34747)*UV(5170)+JVS(34782)& - &*UV(5171)+JVS(34816)*UV(5172)+JVS(34830)*UV(5173)+JVS(34840)*UV(5174)+JVS(34877)*UV(5176)+JVS(34959)& - &*UV(5178)+JVS(35003)*UV(5179)+JVS(35044)*UV(5180)+JVS(35054)*UV(5181)+JVS(35353)*UV(5183)+JVS(35413)& - &*UV(5184)+JVS(35435)*UV(5185)+JVS(35443)*UV(5186)+JVS(35563)*UV(5188)+JVS(35700)*UV(5191)+JVS(35715)& - &*UV(5192)+JVS(36006)*UV(5193)+JVS(36041)*UV(5194)+JVS(36103)*UV(5195)+JVS(36120)*UV(5196)+JVS(36179)& - &*UV(5197)+JVS(36196)*UV(5198)+JVS(36270)*UV(5199)+JVS(36798)*UV(5202)+JVS(36849)*UV(5203)+JVS(36860)& - &*UV(5204)+JVS(36885)*UV(5206)+JVS(36933)*UV(5208)+JVS(37032)*UV(5210)+JVS(37115)*UV(5213)+JVS(37193)& - &*UV(5214)+JVS(37222)*UV(5215)+JVS(37277)*UV(5216)+JVS(37288)*UV(5217)+JVS(37299)*UV(5218)+JVS(37311)& - &*UV(5219)+JVS(37365)*UV(5221)+JVS(37666)*UV(5222)+JVS(37723)*UV(5223)+JVS(37743)*UV(5224)+JVS(37780)& - &*UV(5225)+JVS(37816)*UV(5226)+JVS(37830)*UV(5227)+JVS(37970)*UV(5228)+JVS(38012)*UV(5229)+JVS(38083)& - &*UV(5230)+JVS(38784)*UV(5231)+JVS(38934)*UV(5232)+JVS(39187)*UV(5233)+JVS(39336)*UV(5234)+JVS(39395)& - &*UV(5235)+JVS(39412)*UV(5236)+JVS(39487)*UV(5237)+JVS(39559)*UV(5239)+JVS(39590)*UV(5240)+JVS(39678)& - &*UV(5241)+JVS(39763)*UV(5242)+JVS(39815)*UV(5243)+JVS(40445)*UV(5244)+JVS(40467)*UV(5245)+JVS(40503)& - &*UV(5246)+JVS(40534)*UV(5247)+JVS(40564)*UV(5248)+JVS(40580)*UV(5249)+JVS(45058)*UV(5250)+JVS(46583)& - &*UV(5251)+JVS(47934)*UV(5252)+JVS(50210)*UV(5253)+JVS(53209)*UV(5255)+JVS(54810)*UV(5256)+JVS(54832)& - &*UV(5257)+JVS(55266)*UV(5258) - JTUV(5253) = JVS(343)*UV(86)+JVS(524)*UV(137)+JVS(954)*UV(216)+JVS(1116)*UV(264)+JVS(1551)*UV(387)+JVS(1893)*UV(483)& - &+JVS(3697)*UV(925)+JVS(4344)*UV(1086)+JVS(4738)*UV(1184)+JVS(5477)*UV(1368)+JVS(6643)*UV(1645)+JVS(8042)& - &*UV(1939)+JVS(8355)*UV(2003)+JVS(9428)*UV(2240)+JVS(10569)*UV(2496)+JVS(10577)*UV(2498)+JVS(10585)& - &*UV(2500)+JVS(10604)*UV(2504)+JVS(10608)*UV(2505)+JVS(10634)*UV(2510)+JVS(10638)*UV(2511)+JVS(10658)& - &*UV(2515)+JVS(10669)*UV(2517)+JVS(10673)*UV(2518)+JVS(10693)*UV(2522)+JVS(10697)*UV(2523)+JVS(10705)& - &*UV(2525)+JVS(10716)*UV(2527)+JVS(10729)*UV(2529)+JVS(10733)*UV(2530)+JVS(10737)*UV(2531)+JVS(10745)& - &*UV(2533)+JVS(10767)*UV(2537)+JVS(10771)*UV(2538)+JVS(10811)*UV(2546)+JVS(10848)*UV(2552)+JVS(10883)& - &*UV(2560)+JVS(10910)*UV(2564)+JVS(10925)*UV(2567)+JVS(10933)*UV(2569)+JVS(10941)*UV(2571)+JVS(10949)& - &*UV(2573)+JVS(10970)*UV(2576)+JVS(10988)*UV(2579)+JVS(11003)*UV(2582)+JVS(11007)*UV(2583)+JVS(11011)& - &*UV(2584)+JVS(11026)*UV(2587)+JVS(11064)*UV(2593)+JVS(11092)*UV(2597)+JVS(11110)*UV(2600)+JVS(11137)& - &*UV(2606)+JVS(11148)*UV(2608)+JVS(11160)*UV(2611)+JVS(11164)*UV(2612)+JVS(11168)*UV(2613)+JVS(11180)& - &*UV(2615)+JVS(11196)*UV(2619)+JVS(11200)*UV(2620)+JVS(11208)*UV(2622)+JVS(11243)*UV(2630)+JVS(11247)& - &*UV(2631)+JVS(11251)*UV(2632)+JVS(11268)*UV(2635)+JVS(11272)*UV(2636)+JVS(11276)*UV(2637)+JVS(11296)& - &*UV(2640)+JVS(11316)*UV(2643)+JVS(11351)*UV(2648)+JVS(11359)*UV(2650)+JVS(11363)*UV(2651)+JVS(11379)& - &*UV(2655)+JVS(11383)*UV(2656)+JVS(11387)*UV(2657)+JVS(11391)*UV(2658)+JVS(11403)*UV(2660)+JVS(11419)& - &*UV(2663)+JVS(11432)*UV(2666)+JVS(11450)*UV(2669)+JVS(11454)*UV(2670)+JVS(11458)*UV(2671)+JVS(11470)& - &*UV(2674)+JVS(11474)*UV(2675)+JVS(11485)*UV(2677)+JVS(11489)*UV(2678)+JVS(11506)*UV(2681)+JVS(11517)& - &*UV(2683)+JVS(11521)*UV(2684)+JVS(11525)*UV(2685)+JVS(11537)*UV(2688)+JVS(11541)*UV(2689)+JVS(11549)& - &*UV(2691)+JVS(11575)*UV(2696)+JVS(11588)*UV(2698)+JVS(11600)*UV(2700)+JVS(11608)*UV(2702)+JVS(11612)& - &*UV(2703)+JVS(11616)*UV(2704)+JVS(11620)*UV(2705)+JVS(11638)*UV(2708)+JVS(11660)*UV(2712)+JVS(11693)& - &*UV(2718)+JVS(11714)*UV(2721)+JVS(11737)*UV(2725)+JVS(11741)*UV(2726)+JVS(11756)*UV(2729)+JVS(11791)& - &*UV(2735)+JVS(11806)*UV(2738)+JVS(11832)*UV(2743)+JVS(11906)*UV(2755)+JVS(11910)*UV(2756)+JVS(11914)& - &*UV(2757)+JVS(11955)*UV(2765)+JVS(11996)*UV(2772)+JVS(12025)*UV(2777)+JVS(12029)*UV(2778)+JVS(12033)& - &*UV(2779)+JVS(12037)*UV(2780)+JVS(12041)*UV(2781)+JVS(12055)*UV(2784)+JVS(12063)*UV(2786)+JVS(12067)& - &*UV(2787)+JVS(12086)*UV(2790)+JVS(12090)*UV(2791)+JVS(12094)*UV(2792)+JVS(12098)*UV(2793)+JVS(12102)& - &*UV(2794)+JVS(12113)*UV(2796)+JVS(12132)*UV(2800)+JVS(12136)*UV(2801)+JVS(12148)*UV(2804)+JVS(12169)& - &*UV(2808)+JVS(12183)*UV(2811)+JVS(12191)*UV(2813)+JVS(12199)*UV(2815)+JVS(12242)*UV(2822)+JVS(12246)& - &*UV(2823)+JVS(12254)*UV(2825)+JVS(12278)*UV(2829)+JVS(12282)*UV(2830)+JVS(12300)*UV(2833)+JVS(12338)& - &*UV(2841)+JVS(12342)*UV(2842)+JVS(12346)*UV(2843)+JVS(12350)*UV(2844)+JVS(12354)*UV(2845)+JVS(12358)& - &*UV(2846)+JVS(12370)*UV(2848)+JVS(12381)*UV(2850)+JVS(12392)*UV(2852)+JVS(12423)*UV(2857)+JVS(12434)& - &*UV(2859)+JVS(12438)*UV(2860)+JVS(12452)*UV(2863)+JVS(12456)*UV(2864)+JVS(12467)*UV(2866)+JVS(12471)& - &*UV(2867)+JVS(12494)*UV(2872)+JVS(12515)*UV(2876)+JVS(12519)*UV(2877)+JVS(12527)*UV(2879)+JVS(12531)& - &*UV(2880)+JVS(12542)*UV(2882)+JVS(12546)*UV(2883)+JVS(12550)*UV(2884)+JVS(12554)*UV(2885)+JVS(12558)& - &*UV(2886)+JVS(12562)*UV(2887)+JVS(12612)*UV(2896)+JVS(12623)*UV(2898)+JVS(12635)*UV(2901)+JVS(12653)& - &*UV(2904)+JVS(12672)*UV(2907)+JVS(12720)*UV(2915)+JVS(12753)*UV(2921)+JVS(12769)*UV(2924)+JVS(12773)& - &*UV(2925)+JVS(12790)*UV(2928)+JVS(12794)*UV(2929)+JVS(12867)*UV(2941)+JVS(12886)*UV(2945)+JVS(12897)& - &*UV(2947)+JVS(12901)*UV(2948)+JVS(12913)*UV(2950)+JVS(12917)*UV(2951)+JVS(12945)*UV(2955)+JVS(12949)& - &*UV(2956)+JVS(12953)*UV(2957)+JVS(12957)*UV(2958)+JVS(13031)*UV(2969)+JVS(13035)*UV(2970)+JVS(13073)& - &*UV(2977)+JVS(13077)*UV(2978)+JVS(13090)*UV(2980)+JVS(13114)*UV(2984)+JVS(13129)*UV(2987)+JVS(13133)& - &*UV(2988)+JVS(13196)*UV(2998)+JVS(13224)*UV(3003)+JVS(13243)*UV(3007)+JVS(13247)*UV(3008)+JVS(13260)& - &*UV(3010)+JVS(13264)*UV(3011)+JVS(13268)*UV(3012)+JVS(13281)*UV(3014)+JVS(13296)*UV(3017)+JVS(13304)& - &*UV(3019)+JVS(13308)*UV(3020)+JVS(13312)*UV(3021)+JVS(13320)*UV(3023)+JVS(13324)*UV(3024)+JVS(13328)& - &*UV(3025)+JVS(13332)*UV(3026)+JVS(13351)*UV(3029)+JVS(13411)*UV(3040)+JVS(13423)*UV(3042)+JVS(13435)& - &*UV(3045)+JVS(13443)*UV(3047)+JVS(13467)*UV(3051)+JVS(13471)*UV(3052)+JVS(13475)*UV(3053)+JVS(13490)& - &*UV(3056)+JVS(13507)*UV(3059)+JVS(13511)*UV(3060)+JVS(13515)*UV(3061)+JVS(13526)*UV(3063)+JVS(13571)& - &*UV(3070)+JVS(13603)*UV(3075)+JVS(13655)*UV(3085)+JVS(13667)*UV(3087)+JVS(13672)*UV(3088)+JVS(13699)& - &*UV(3092)+JVS(13704)*UV(3093)+JVS(13714)*UV(3095)+JVS(13725)*UV(3098)+JVS(13735)*UV(3100)+JVS(13740)& - &*UV(3101)+JVS(13803)*UV(3111)+JVS(13808)*UV(3112)+JVS(13816)*UV(3114)+JVS(13827)*UV(3116)+JVS(13848)& - &*UV(3119)+JVS(13853)*UV(3120)+JVS(13874)*UV(3123)+JVS(13886)*UV(3125)+JVS(13899)*UV(3127)+JVS(13956)& - &*UV(3137)+JVS(13968)*UV(3140)+JVS(13978)*UV(3142)+JVS(13983)*UV(3143)+JVS(13994)*UV(3146)+JVS(14014)& - &*UV(3150)+JVS(14026)*UV(3152)+JVS(14031)*UV(3153)+JVS(14066)*UV(3161)+JVS(14071)*UV(3162)+JVS(14076)& - &*UV(3163)+JVS(14085)*UV(3165)+JVS(14098)*UV(3167)+JVS(14114)*UV(3170)+JVS(14159)*UV(3178)+JVS(14171)& - &*UV(3181)+JVS(14205)*UV(3187)+JVS(14215)*UV(3189)+JVS(14220)*UV(3190)+JVS(14225)*UV(3191)+JVS(14260)& - &*UV(3197)+JVS(14268)*UV(3199)+JVS(14290)*UV(3204)+JVS(14298)*UV(3206)+JVS(14357)*UV(3218)+JVS(14367)& - &*UV(3220)+JVS(14371)*UV(3221)+JVS(14379)*UV(3223)+JVS(14383)*UV(3224)+JVS(14404)*UV(3229)+JVS(14417)& - &*UV(3232)+JVS(14448)*UV(3236)+JVS(14460)*UV(3239)+JVS(14537)*UV(3249)+JVS(14562)*UV(3254)+JVS(14577)& - &*UV(3257)+JVS(14581)*UV(3258)+JVS(14589)*UV(3260)+JVS(14668)*UV(3275)+JVS(14700)*UV(3282)+JVS(14745)& - &*UV(3290)+JVS(14753)*UV(3292)+JVS(14757)*UV(3293)+JVS(14792)*UV(3300)+JVS(14808)*UV(3303)+JVS(14819)& - &*UV(3305)+JVS(14824)*UV(3306)+JVS(14828)*UV(3307)+JVS(14846)*UV(3311)+JVS(14850)*UV(3312)+JVS(14854)& - &*UV(3313)+JVS(14862)*UV(3315)+JVS(14866)*UV(3316)+JVS(14870)*UV(3317)+JVS(14874)*UV(3318)+JVS(14894)& - &*UV(3323)+JVS(14898)*UV(3324)+JVS(14910)*UV(3327)+JVS(15129)*UV(3358)+JVS(15381)*UV(3392)+JVS(15448)& - &*UV(3401)+JVS(15500)*UV(3408)+JVS(15698)*UV(3436)+JVS(15790)*UV(3456)+JVS(15816)*UV(3461)+JVS(15875)& - &*UV(3474)+JVS(16149)*UV(3516)+JVS(16228)*UV(3529)+JVS(16251)*UV(3532)+JVS(16444)*UV(3558)+JVS(16513)& - &*UV(3568)+JVS(16922)*UV(3617)+JVS(17082)*UV(3638)+JVS(18361)*UV(3793)+JVS(20029)*UV(3998)+JVS(20160)& - &*UV(4013)+JVS(20272)*UV(4026)+JVS(20447)*UV(4046)+JVS(20472)*UV(4048)+JVS(20506)*UV(4051)+JVS(20906)& - &*UV(4100)+JVS(20927)*UV(4102)+JVS(21189)*UV(4132)+JVS(21247)*UV(4139)+JVS(21366)*UV(4154)+JVS(21479)& - &*UV(4168)+JVS(21607)*UV(4181)+JVS(21670)*UV(4187)+JVS(21774)*UV(4198)+JVS(21817)*UV(4202)+JVS(21827)& - &*UV(4203)+JVS(21854)*UV(4206)+JVS(21864)*UV(4207)+JVS(21875)*UV(4208)+JVS(21884)*UV(4209)+JVS(21920)& - &*UV(4213)+JVS(21932)*UV(4214)+JVS(21941)*UV(4215)+JVS(21976)*UV(4218)+JVS(22001)*UV(4220)+JVS(22014)& - &*UV(4221)+JVS(22024)*UV(4222)+JVS(22090)*UV(4228)+JVS(22100)*UV(4229)+JVS(22110)*UV(4230)+JVS(22225)& - &*UV(4241)+JVS(22244)*UV(4243)+JVS(22279)*UV(4247)+JVS(22313)*UV(4250)+JVS(22346)*UV(4253)+JVS(22365)& - &*UV(4255)+JVS(22394)*UV(4258)+JVS(22403)*UV(4259)+JVS(22413)*UV(4260)+JVS(22452)*UV(4264)+JVS(22472)& - &*UV(4266)+JVS(22483)*UV(4267)+JVS(22502)*UV(4269)+JVS(22554)*UV(4275)+JVS(22618)*UV(4281)+JVS(22626)& - &*UV(4282)+JVS(22635)*UV(4283)+JVS(22662)*UV(4286)+JVS(22680)*UV(4288)+JVS(22805)*UV(4299)+JVS(22827)& - &*UV(4301)+JVS(22835)*UV(4302)+JVS(22893)*UV(4308)+JVS(22982)*UV(4316)+JVS(23021)*UV(4320)+JVS(23059)& - &*UV(4324)+JVS(23118)*UV(4329)+JVS(23124)*UV(4330)+JVS(23203)*UV(4338)+JVS(23521)*UV(4375)+JVS(23567)& - &*UV(4380)+JVS(23790)*UV(4402)+JVS(23848)*UV(4404)+JVS(23857)*UV(4405)+JVS(23877)*UV(4407)+JVS(23887)& - &*UV(4408)+JVS(23898)*UV(4409)+JVS(23930)*UV(4412)+JVS(23939)*UV(4413)+JVS(23949)*UV(4414)+JVS(23979)& - &*UV(4417)+JVS(24001)*UV(4419)+JVS(24058)*UV(4424)+JVS(24096)*UV(4427)+JVS(24105)*UV(4428)+JVS(24128)& - &*UV(4430)+JVS(24140)*UV(4431)+JVS(24160)*UV(4433)+JVS(24189)*UV(4436)+JVS(24198)*UV(4437)+JVS(24208)& - &*UV(4438)+JVS(24219)*UV(4439)+JVS(24241)*UV(4441)+JVS(24266)*UV(4443)+JVS(24275)*UV(4444)+JVS(24286)& - &*UV(4445)+JVS(24343)*UV(4450)+JVS(24352)*UV(4451)+JVS(24362)*UV(4452)+JVS(24371)*UV(4453)+JVS(24381)& - &*UV(4454)+JVS(24401)*UV(4456)+JVS(24410)*UV(4457)+JVS(24440)*UV(4460)+JVS(24497)*UV(4466)+JVS(24517)& - &*UV(4468)+JVS(24527)*UV(4469)+JVS(24537)*UV(4470)+JVS(24546)*UV(4471)+JVS(24556)*UV(4472)+JVS(24605)& - &*UV(4478)+JVS(24615)*UV(4479)+JVS(24679)*UV(4484)+JVS(24694)*UV(4485)+JVS(24715)*UV(4487)+JVS(24739)& - &*UV(4489)+JVS(24813)*UV(4494)+JVS(24823)*UV(4495)+JVS(24834)*UV(4496)+JVS(24865)*UV(4499)+JVS(24875)& - &*UV(4500)+JVS(24898)*UV(4502)+JVS(24918)*UV(4504)+JVS(25025)*UV(4509)+JVS(25070)*UV(4514)+JVS(25081)& - &*UV(4515)+JVS(25090)*UV(4516)+JVS(25100)*UV(4517)+JVS(25110)*UV(4518)+JVS(25121)*UV(4519)+JVS(25131)& - &*UV(4520)+JVS(25143)*UV(4521)+JVS(25153)*UV(4522)+JVS(25163)*UV(4523)+JVS(25192)*UV(4525)+JVS(25200)& - &*UV(4526)+JVS(25247)*UV(4531)+JVS(25308)*UV(4536)+JVS(25343)*UV(4539)+JVS(25400)*UV(4544)+JVS(25453)& - &*UV(4548)+JVS(25485)*UV(4551)+JVS(25508)*UV(4553)+JVS(25529)*UV(4556)+JVS(25541)*UV(4557)+JVS(25848)& - &*UV(4591)+JVS(26039)*UV(4611)+JVS(26063)*UV(4613)+JVS(26142)*UV(4620)+JVS(26150)*UV(4621)+JVS(26175)& - &*UV(4622)+JVS(26184)*UV(4623)+JVS(26199)*UV(4624)+JVS(26217)*UV(4626)+JVS(26227)*UV(4627)+JVS(26236)& - &*UV(4628)+JVS(26246)*UV(4629)+JVS(26269)*UV(4631)+JVS(26279)*UV(4632)+JVS(26289)*UV(4633)+JVS(26299)& - &*UV(4634)+JVS(26308)*UV(4635)+JVS(26318)*UV(4636)+JVS(26336)*UV(4638)+JVS(26345)*UV(4639)+JVS(26365)& - &*UV(4641)+JVS(26376)*UV(4642)+JVS(26447)*UV(4649)+JVS(26471)*UV(4651)+JVS(26482)*UV(4652)+JVS(26491)& - &*UV(4653)+JVS(26500)*UV(4654)+JVS(26519)*UV(4656)+JVS(26529)*UV(4657)+JVS(26542)*UV(4658)+JVS(26552)& - &*UV(4659)+JVS(26561)*UV(4660)+JVS(26580)*UV(4662)+JVS(26590)*UV(4663)+JVS(26608)*UV(4664)+JVS(26617)& - &*UV(4665)+JVS(26653)*UV(4668)+JVS(26674)*UV(4670)+JVS(26685)*UV(4671)+JVS(26713)*UV(4673)+JVS(26743)& - &*UV(4676)+JVS(26752)*UV(4677)+JVS(26759)*UV(4678)+JVS(26769)*UV(4679)+JVS(26778)*UV(4680)+JVS(26789)& - &*UV(4681)+JVS(26799)*UV(4682)+JVS(26819)*UV(4684)+JVS(26828)*UV(4685)+JVS(26842)*UV(4686)+JVS(26886)& - &*UV(4690)+JVS(26894)*UV(4691)+JVS(26903)*UV(4692)+JVS(27372)*UV(4731)+JVS(27437)*UV(4738)+JVS(27449)& - &*UV(4739)+JVS(27463)*UV(4740)+JVS(27476)*UV(4741)+JVS(27508)*UV(4744)+JVS(27614)*UV(4752)+JVS(27626)& - &*UV(4753)+JVS(27668)*UV(4757)+JVS(27688)*UV(4759)+JVS(27709)*UV(4760)+JVS(27829)*UV(4770)+JVS(27839)& - &*UV(4771)+JVS(27850)*UV(4772)+JVS(27862)*UV(4773)+JVS(27894)*UV(4776)+JVS(27991)*UV(4788)+JVS(28013)& - &*UV(4790)+JVS(28024)*UV(4791)+JVS(28040)*UV(4792)+JVS(28065)*UV(4795)+JVS(28157)*UV(4797)+JVS(28170)& - &*UV(4798)+JVS(28267)*UV(4806)+JVS(28276)*UV(4807)+JVS(28287)*UV(4808)+JVS(28307)*UV(4810)+JVS(28332)& - &*UV(4812)+JVS(28374)*UV(4816)+JVS(28393)*UV(4818)+JVS(28401)*UV(4819)+JVS(28431)*UV(4822)+JVS(28461)& - &*UV(4824)+JVS(28480)*UV(4826)+JVS(28499)*UV(4828)+JVS(28508)*UV(4829)+JVS(28520)*UV(4830)+JVS(28537)& - &*UV(4831)+JVS(28557)*UV(4833)+JVS(28590)*UV(4836)+JVS(28609)*UV(4838)+JVS(28627)*UV(4839)+JVS(28682)& - &*UV(4843)+JVS(28721)*UV(4846)+JVS(28738)*UV(4847)+JVS(28750)*UV(4848)+JVS(28766)*UV(4849)+JVS(28788)& - &*UV(4850)+JVS(28835)*UV(4853)+JVS(28849)*UV(4854)+JVS(28862)*UV(4855)+JVS(28907)*UV(4859)+JVS(28919)& - &*UV(4860)+JVS(28942)*UV(4862)+JVS(28955)*UV(4863)+JVS(28972)*UV(4864)+JVS(29004)*UV(4866)+JVS(29018)& - &*UV(4867)+JVS(29027)*UV(4868)+JVS(29038)*UV(4869)+JVS(29115)*UV(4874)+JVS(29247)*UV(4888)+JVS(29278)& - &*UV(4891)+JVS(29287)*UV(4892)+JVS(29341)*UV(4897)+JVS(29472)*UV(4906)+JVS(29486)*UV(4908)+JVS(29519)& - &*UV(4909)+JVS(29541)*UV(4910)+JVS(29562)*UV(4912)+JVS(29605)*UV(4915)+JVS(29625)*UV(4916)+JVS(29640)& - &*UV(4917)+JVS(29674)*UV(4918)+JVS(29685)*UV(4919)+JVS(29715)*UV(4921)+JVS(29753)*UV(4924)+JVS(29773)& - &*UV(4926)+JVS(29826)*UV(4930)+JVS(29860)*UV(4931)+JVS(29888)*UV(4934)+JVS(30009)*UV(4938)+JVS(30068)& - &*UV(4941)+JVS(30102)*UV(4943)+JVS(30127)*UV(4944)+JVS(30142)*UV(4946)+JVS(30180)*UV(4948)+JVS(30201)& - &*UV(4949)+JVS(30252)*UV(4953)+JVS(30267)*UV(4954)+JVS(30277)*UV(4955)+JVS(30289)*UV(4956)+JVS(30299)& - &*UV(4957)+JVS(30329)*UV(4958)+JVS(30388)*UV(4962)+JVS(30400)*UV(4963)+JVS(30421)*UV(4964)+JVS(30437)& - &*UV(4965)+JVS(30457)*UV(4966)+JVS(30478)*UV(4968)+JVS(30492)*UV(4969)+JVS(30585)*UV(4977)+JVS(30615)& - &*UV(4979)+JVS(30712)*UV(4984)+JVS(30728)*UV(4985)+JVS(30756)*UV(4986)+JVS(30785)*UV(4989)+JVS(30798)& - &*UV(4990)+JVS(30844)*UV(4993)+JVS(30855)*UV(4994)+JVS(30909)*UV(4997)+JVS(30920)*UV(4998)+JVS(30932)& - &*UV(4999)+JVS(30976)*UV(5000)+JVS(31028)*UV(5003)+JVS(31055)*UV(5004)+JVS(31068)*UV(5005)+JVS(31095)& - &*UV(5006)+JVS(31129)*UV(5008)+JVS(31229)*UV(5014)+JVS(31271)*UV(5017)+JVS(31287)*UV(5018)+JVS(31323)& - &*UV(5021)+JVS(31369)*UV(5023)+JVS(31388)*UV(5025)+JVS(31427)*UV(5027)+JVS(31456)*UV(5029)+JVS(31527)& - &*UV(5033)+JVS(31543)*UV(5034)+JVS(31571)*UV(5036)+JVS(31623)*UV(5038)+JVS(31655)*UV(5040)+JVS(31708)& - &*UV(5044)+JVS(31822)*UV(5047)+JVS(31831)*UV(5048)+JVS(31876)*UV(5052)+JVS(31913)*UV(5054)+JVS(32193)& - &*UV(5070)+JVS(32255)*UV(5073)+JVS(32275)*UV(5075)+JVS(32329)*UV(5079)+JVS(32528)*UV(5088)+JVS(32557)& - &*UV(5090)+JVS(32577)*UV(5092)+JVS(32729)*UV(5099)+JVS(32764)*UV(5100)+JVS(32795)*UV(5101)+JVS(32813)& - &*UV(5102)+JVS(32920)*UV(5106)+JVS(32999)*UV(5111)+JVS(33097)*UV(5117)+JVS(33297)*UV(5125)+JVS(33351)& - &*UV(5128)+JVS(33435)*UV(5131)+JVS(33459)*UV(5133)+JVS(33520)*UV(5136)+JVS(33570)*UV(5137)+JVS(33712)& - &*UV(5139)+JVS(34114)*UV(5152)+JVS(34150)*UV(5155)+JVS(34172)*UV(5156)+JVS(34249)*UV(5158)+JVS(34511)& - &*UV(5160)+JVS(34616)*UV(5164)+JVS(34658)*UV(5165)+JVS(34682)*UV(5167)+JVS(34713)*UV(5169)+JVS(34748)& - &*UV(5170)+JVS(34783)*UV(5171)+JVS(34817)*UV(5172)+JVS(34878)*UV(5176)+JVS(34960)*UV(5178)+JVS(35004)& - &*UV(5179)+JVS(35045)*UV(5180)+JVS(35354)*UV(5183)+JVS(35564)*UV(5188)+JVS(35701)*UV(5191)+JVS(36007)& - &*UV(5193)+JVS(36042)*UV(5194)+JVS(36757)*UV(5201)+JVS(36850)*UV(5203)+JVS(37116)*UV(5213)+JVS(37194)& - &*UV(5214)+JVS(37223)*UV(5215)+JVS(37278)*UV(5216)+JVS(37366)*UV(5221)+JVS(37667)*UV(5222)+JVS(37724)& - &*UV(5223)+JVS(37781)*UV(5225)+JVS(37817)*UV(5226)+JVS(37831)*UV(5227)+JVS(37971)*UV(5228)+JVS(38084)& - &*UV(5230)+JVS(38785)*UV(5231)+JVS(38935)*UV(5232)+JVS(39188)*UV(5233)+JVS(39337)*UV(5234)+JVS(39488)& - &*UV(5237)+JVS(39591)*UV(5240)+JVS(39764)*UV(5242)+JVS(39816)*UV(5243)+JVS(40446)*UV(5244)+JVS(40468)& - &*UV(5245)+JVS(40565)*UV(5248)+JVS(40581)*UV(5249)+JVS(45059)*UV(5250)+JVS(46584)*UV(5251)+JVS(47935)& - &*UV(5252)+JVS(50211)*UV(5253)+JVS(53210)*UV(5255)+JVS(54811)*UV(5256)+JVS(54833)*UV(5257)+JVS(55267)& - &*UV(5258) - JTUV(5254) = JVS(57)*UV(3)+JVS(62)*UV(5)+JVS(16150)*UV(3516)+JVS(16445)*UV(3558)+JVS(16514)*UV(3568)+JVS(16923)& - &*UV(3617)+JVS(17083)*UV(3638)+JVS(21921)*UV(4213)+JVS(22280)*UV(4247)+JVS(22314)*UV(4250)+JVS(22395)& - &*UV(4258)+JVS(22453)*UV(4264)+JVS(22627)*UV(4282)+JVS(22663)*UV(4286)+JVS(22836)*UV(4302)+JVS(23022)& - &*UV(4320)+JVS(25201)*UV(4526)+JVS(25401)*UV(4544)+JVS(25486)*UV(4551)+JVS(25530)*UV(4556)+JVS(26151)& - &*UV(4621)+JVS(26472)*UV(4651)+JVS(26654)*UV(4668)+JVS(26753)*UV(4677)+JVS(26760)*UV(4678)+JVS(26895)& - &*UV(4691)+JVS(27477)*UV(4741)+JVS(27669)*UV(4757)+JVS(27895)*UV(4776)+JVS(28402)*UV(4819)+JVS(28462)& - &*UV(4824)+JVS(28500)*UV(4828)+JVS(28610)*UV(4838)+JVS(28683)*UV(4843)+JVS(29028)*UV(4868)+JVS(29039)& - &*UV(4869)+JVS(29473)*UV(4906)+JVS(29487)*UV(4908)+JVS(29520)*UV(4909)+JVS(29563)*UV(4912)+JVS(29675)& - &*UV(4918)+JVS(29686)*UV(4919)+JVS(29861)*UV(4931)+JVS(30010)*UV(4938)+JVS(30069)*UV(4941)+JVS(30103)& - &*UV(4943)+JVS(30290)*UV(4956)+JVS(30330)*UV(4958)+JVS(30401)*UV(4963)+JVS(30422)*UV(4964)+JVS(30910)& - &*UV(4997)+JVS(30921)*UV(4998)+JVS(30933)*UV(4999)+JVS(30977)*UV(5000)+JVS(31288)*UV(5018)+JVS(31370)& - &*UV(5023)+JVS(31656)*UV(5040)+JVS(31823)*UV(5047)+JVS(31832)*UV(5048)+JVS(32194)*UV(5070)+JVS(32578)& - &*UV(5092)+JVS(32814)*UV(5102)+JVS(33713)*UV(5139)+JVS(34173)*UV(5156)+JVS(34512)*UV(5160)+JVS(34659)& - &*UV(5165)+JVS(34714)*UV(5169)+JVS(34749)*UV(5170)+JVS(34879)*UV(5176)+JVS(34961)*UV(5178)+JVS(35046)& - &*UV(5180)+JVS(35565)*UV(5188)+JVS(35702)*UV(5191)+JVS(36008)*UV(5193)+JVS(36043)*UV(5194)+JVS(36851)& - &*UV(5203)+JVS(37117)*UV(5213)+JVS(37224)*UV(5215)+JVS(37367)*UV(5221)+JVS(37668)*UV(5222)+JVS(37725)& - &*UV(5223)+JVS(37782)*UV(5225)+JVS(37818)*UV(5226)+JVS(37832)*UV(5227)+JVS(38085)*UV(5230)+JVS(38786)& - &*UV(5231)+JVS(39189)*UV(5233)+JVS(39338)*UV(5234)+JVS(39592)*UV(5240)+JVS(39765)*UV(5242)+JVS(40566)& - &*UV(5248)+JVS(40582)*UV(5249)+JVS(45060)*UV(5250)+JVS(50320)*UV(5254)+JVS(54834)*UV(5257) - JTUV(5255) = JVS(76)*UV(10)+JVS(919)*UV(207)+JVS(929)*UV(210)+JVS(950)*UV(215)+JVS(973)*UV(222)+JVS(989)*UV(227)& - &+JVS(999)*UV(230)+JVS(1022)*UV(237)+JVS(1032)*UV(240)+JVS(1036)*UV(241)+JVS(1066)*UV(251)+JVS(1070)& - &*UV(252)+JVS(1085)*UV(255)+JVS(1095)*UV(258)+JVS(1120)*UV(265)+JVS(1146)*UV(272)+JVS(1156)*UV(275)& - &+JVS(1160)*UV(276)+JVS(1173)*UV(280)+JVS(1180)*UV(282)+JVS(1196)*UV(287)+JVS(1214)*UV(291)+JVS(1224)& - &*UV(294)+JVS(1255)*UV(301)+JVS(1280)*UV(309)+JVS(1335)*UV(324)+JVS(1353)*UV(328)+JVS(1357)*UV(329)& - &+JVS(1361)*UV(330)+JVS(1395)*UV(341)+JVS(1402)*UV(343)+JVS(1427)*UV(351)+JVS(1455)*UV(360)+JVS(1465)& - &*UV(363)+JVS(1469)*UV(364)+JVS(1479)*UV(367)+JVS(1510)*UV(375)+JVS(1514)*UV(376)+JVS(1521)*UV(378)& - &+JVS(1525)*UV(379)+JVS(1541)*UV(384)+JVS(1555)*UV(388)+JVS(1559)*UV(389)+JVS(1572)*UV(393)+JVS(1590)& - &*UV(398)+JVS(1614)*UV(405)+JVS(1647)*UV(414)+JVS(1666)*UV(420)+JVS(1681)*UV(423)+JVS(1712)*UV(433)& - &+JVS(1716)*UV(434)+JVS(1730)*UV(438)+JVS(1774)*UV(449)+JVS(1803)*UV(456)+JVS(1807)*UV(457)+JVS(1814)& - &*UV(459)+JVS(1821)*UV(461)+JVS(1849)*UV(470)+JVS(1864)*UV(474)+JVS(1880)*UV(479)+JVS(1914)*UV(489)& - &+JVS(1923)*UV(491)+JVS(1927)*UV(492)+JVS(1940)*UV(496)+JVS(1950)*UV(499)+JVS(1963)*UV(503)+JVS(1973)& - &*UV(506)+JVS(1977)*UV(507)+JVS(1981)*UV(508)+JVS(2005)*UV(515)+JVS(2015)*UV(518)+JVS(2019)*UV(519)& - &+JVS(2026)*UV(521)+JVS(2187)*UV(562)+JVS(2313)*UV(594)+JVS(2349)*UV(603)+JVS(2384)*UV(611)+JVS(2392)& - &*UV(613)+JVS(2451)*UV(627)+JVS(2470)*UV(631)+JVS(2517)*UV(642)+JVS(2566)*UV(653)+JVS(2665)*UV(677)& - &+JVS(2723)*UV(691)+JVS(2788)*UV(707)+JVS(2799)*UV(709)+JVS(2922)*UV(736)+JVS(2993)*UV(751)+JVS(3269)& - &*UV(818)+JVS(3284)*UV(822)+JVS(3288)*UV(823)+JVS(3292)*UV(824)+JVS(3296)*UV(825)+JVS(3300)*UV(826)& - &+JVS(3304)*UV(827)+JVS(3308)*UV(828)+JVS(3312)*UV(829)+JVS(3316)*UV(830)+JVS(3320)*UV(831)+JVS(3324)& - &*UV(832)+JVS(3328)*UV(833)+JVS(3332)*UV(834)+JVS(3336)*UV(835)+JVS(3340)*UV(836)+JVS(3344)*UV(837)& - &+JVS(3348)*UV(838)+JVS(3352)*UV(839)+JVS(3360)*UV(841)+JVS(3364)*UV(842)+JVS(3368)*UV(843)+JVS(3372)& - &*UV(844)+JVS(3376)*UV(845)+JVS(3380)*UV(846)+JVS(3388)*UV(848)+JVS(3392)*UV(849)+JVS(3396)*UV(850)& - &+JVS(3400)*UV(851)+JVS(3404)*UV(852)+JVS(3408)*UV(853)+JVS(3412)*UV(854)+JVS(3416)*UV(855)+JVS(3420)& - &*UV(856)+JVS(3424)*UV(857)+JVS(3428)*UV(858)+JVS(3432)*UV(859)+JVS(3436)*UV(860)+JVS(3440)*UV(861)& - &+JVS(3448)*UV(863)+JVS(3452)*UV(864)+JVS(3456)*UV(865)+JVS(3460)*UV(866)+JVS(3464)*UV(867)+JVS(3468)& - &*UV(868)+JVS(3472)*UV(869)+JVS(3476)*UV(870)+JVS(3480)*UV(871)+JVS(3484)*UV(872)+JVS(3488)*UV(873)& - &+JVS(3496)*UV(875)+JVS(3500)*UV(876)+JVS(3504)*UV(877)+JVS(3508)*UV(878)+JVS(3512)*UV(879)+JVS(3516)& - &*UV(880)+JVS(3520)*UV(881)+JVS(3524)*UV(882)+JVS(3528)*UV(883)+JVS(3532)*UV(884)+JVS(3536)*UV(885)& - &+JVS(3540)*UV(886)+JVS(3544)*UV(887)+JVS(3548)*UV(888)+JVS(3552)*UV(889)+JVS(3556)*UV(890)+JVS(3560)& - &*UV(891)+JVS(3564)*UV(892)+JVS(3568)*UV(893)+JVS(3572)*UV(894)+JVS(3584)*UV(897)+JVS(3588)*UV(898)& - &+JVS(3592)*UV(899)+JVS(3596)*UV(900)+JVS(3600)*UV(901)+JVS(3604)*UV(902)+JVS(3608)*UV(903)+JVS(3612)& - &*UV(904)+JVS(3620)*UV(906)+JVS(3624)*UV(907)+JVS(3628)*UV(908)+JVS(3632)*UV(909)+JVS(3636)*UV(910)& - &+JVS(3646)*UV(912)+JVS(3650)*UV(913)+JVS(3654)*UV(914)+JVS(3658)*UV(915)+JVS(3662)*UV(916)+JVS(3666)& - &*UV(917)+JVS(3670)*UV(918)+JVS(3674)*UV(919)+JVS(3678)*UV(920)+JVS(3682)*UV(921)+JVS(3686)*UV(922)& - &+JVS(3690)*UV(923)+JVS(3694)*UV(924)+JVS(3698)*UV(925)+JVS(3706)*UV(927)+JVS(3710)*UV(928)+JVS(3714)& - &*UV(929)+JVS(3718)*UV(930)+JVS(3722)*UV(931)+JVS(3726)*UV(932)+JVS(3730)*UV(933)+JVS(3734)*UV(934)& - &+JVS(3738)*UV(935)+JVS(3742)*UV(936)+JVS(3746)*UV(937)+JVS(3750)*UV(938)+JVS(3754)*UV(939)+JVS(3758)& - &*UV(940)+JVS(3762)*UV(941)+JVS(3766)*UV(942)+JVS(3770)*UV(943)+JVS(3774)*UV(944)+JVS(3778)*UV(945)& - &+JVS(3782)*UV(946)+JVS(3786)*UV(947)+JVS(3790)*UV(948)+JVS(3794)*UV(949)+JVS(3798)*UV(950)+JVS(3802)& - &*UV(951)+JVS(3806)*UV(952)+JVS(3810)*UV(953)+JVS(3814)*UV(954)+JVS(3818)*UV(955)+JVS(3822)*UV(956)& - &+JVS(3830)*UV(958)+JVS(3834)*UV(959)+JVS(3838)*UV(960)+JVS(3842)*UV(961)+JVS(3846)*UV(962)+JVS(3850)& - &*UV(963)+JVS(3854)*UV(964)+JVS(3858)*UV(965)+JVS(3862)*UV(966)+JVS(3866)*UV(967)+JVS(3870)*UV(968)& - &+JVS(3874)*UV(969)+JVS(3878)*UV(970)+JVS(3882)*UV(971)+JVS(3886)*UV(972)+JVS(3890)*UV(973)+JVS(3894)& - &*UV(974)+JVS(3898)*UV(975)+JVS(3902)*UV(976)+JVS(3906)*UV(977)+JVS(3910)*UV(978)+JVS(3914)*UV(979)& - &+JVS(3918)*UV(980)+JVS(3922)*UV(981)+JVS(3926)*UV(982)+JVS(3930)*UV(983)+JVS(3934)*UV(984)+JVS(3938)& - &*UV(985)+JVS(3942)*UV(986)+JVS(3946)*UV(987)+JVS(3950)*UV(988)+JVS(3954)*UV(989)+JVS(3958)*UV(990)& - &+JVS(3966)*UV(992)+JVS(3970)*UV(993)+JVS(3974)*UV(994)+JVS(3978)*UV(995)+JVS(3982)*UV(996)+JVS(3986)& - &*UV(997)+JVS(3990)*UV(998)+JVS(3994)*UV(999)+JVS(4006)*UV(1002)+JVS(4010)*UV(1003)+JVS(4014)*UV(1004)& - &+JVS(4022)*UV(1006)+JVS(4026)*UV(1007)+JVS(4030)*UV(1008)+JVS(4034)*UV(1009)+JVS(4038)*UV(1010)+JVS(4046)& - &*UV(1012)+JVS(4054)*UV(1014)+JVS(4058)*UV(1015)+JVS(4062)*UV(1016)+JVS(4066)*UV(1017)+JVS(4070)*UV(1018)& - &+JVS(4074)*UV(1019)+JVS(4078)*UV(1020)+JVS(4082)*UV(1021)+JVS(4086)*UV(1022)+JVS(4090)*UV(1023)+JVS(4094)& - &*UV(1024)+JVS(4098)*UV(1025)+JVS(4106)*UV(1027)+JVS(4110)*UV(1028)+JVS(4114)*UV(1029)+JVS(4118)*UV(1030)& - &+JVS(4122)*UV(1031)+JVS(4126)*UV(1032)+JVS(4130)*UV(1033)+JVS(4134)*UV(1034)+JVS(4146)*UV(1037)+JVS(4150)& - &*UV(1038)+JVS(4154)*UV(1039)+JVS(4164)*UV(1041)+JVS(4168)*UV(1042)+JVS(4172)*UV(1043)+JVS(4176)*UV(1044)& - &+JVS(4180)*UV(1045)+JVS(4184)*UV(1046)+JVS(4188)*UV(1047)+JVS(4192)*UV(1048)+JVS(4196)*UV(1049)+JVS(4204)& - &*UV(1051)+JVS(4208)*UV(1052)+JVS(4212)*UV(1053)+JVS(4220)*UV(1055)+JVS(4236)*UV(1059)+JVS(4240)*UV(1060)& - &+JVS(4244)*UV(1061)+JVS(4248)*UV(1062)+JVS(4252)*UV(1063)+JVS(4256)*UV(1064)+JVS(4260)*UV(1065)+JVS(4264)& - &*UV(1066)+JVS(4268)*UV(1067)+JVS(4276)*UV(1069)+JVS(4280)*UV(1070)+JVS(4284)*UV(1071)+JVS(4288)*UV(1072)& - &+JVS(4292)*UV(1073)+JVS(4296)*UV(1074)+JVS(4300)*UV(1075)+JVS(4304)*UV(1076)+JVS(4308)*UV(1077)+JVS(4312)& - &*UV(1078)+JVS(4316)*UV(1079)+JVS(4320)*UV(1080)+JVS(4328)*UV(1082)+JVS(4336)*UV(1084)+JVS(4340)*UV(1085)& - &+JVS(4348)*UV(1087)+JVS(4352)*UV(1088)+JVS(4356)*UV(1089)+JVS(4360)*UV(1090)+JVS(4364)*UV(1091)+JVS(4368)& - &*UV(1092)+JVS(4372)*UV(1093)+JVS(4376)*UV(1094)+JVS(4380)*UV(1095)+JVS(4384)*UV(1096)+JVS(4388)*UV(1097)& - &+JVS(4392)*UV(1098)+JVS(4396)*UV(1099)+JVS(4400)*UV(1100)+JVS(4404)*UV(1101)+JVS(4408)*UV(1102)+JVS(4412)& - &*UV(1103)+JVS(4416)*UV(1104)+JVS(4420)*UV(1105)+JVS(4424)*UV(1106)+JVS(4428)*UV(1107)+JVS(4432)*UV(1108)& - &+JVS(4436)*UV(1109)+JVS(4440)*UV(1110)+JVS(4448)*UV(1112)+JVS(4456)*UV(1114)+JVS(4460)*UV(1115)+JVS(4464)& - &*UV(1116)+JVS(4468)*UV(1117)+JVS(4472)*UV(1118)+JVS(4476)*UV(1119)+JVS(4488)*UV(1122)+JVS(4492)*UV(1123)& - &+JVS(4500)*UV(1125)+JVS(4504)*UV(1126)+JVS(4508)*UV(1127)+JVS(4512)*UV(1128)+JVS(4516)*UV(1129)+JVS(4520)& - &*UV(1130)+JVS(4524)*UV(1131)+JVS(4528)*UV(1132)+JVS(4538)*UV(1134)+JVS(4542)*UV(1135)+JVS(4546)*UV(1136)& - &+JVS(4550)*UV(1137)+JVS(4554)*UV(1138)+JVS(4558)*UV(1139)+JVS(4566)*UV(1141)+JVS(4570)*UV(1142)+JVS(4574)& - &*UV(1143)+JVS(4578)*UV(1144)+JVS(4582)*UV(1145)+JVS(4586)*UV(1146)+JVS(4590)*UV(1147)+JVS(4594)*UV(1148)& - &+JVS(4598)*UV(1149)+JVS(4602)*UV(1150)+JVS(4610)*UV(1152)+JVS(4614)*UV(1153)+JVS(4618)*UV(1154)+JVS(4622)& - &*UV(1155)+JVS(4626)*UV(1156)+JVS(4630)*UV(1157)+JVS(4634)*UV(1158)+JVS(4638)*UV(1159)+JVS(4642)*UV(1160)& - &+JVS(4646)*UV(1161)+JVS(4650)*UV(1162)+JVS(4654)*UV(1163)+JVS(4658)*UV(1164)+JVS(4662)*UV(1165)+JVS(4666)& - &*UV(1166)+JVS(4670)*UV(1167)+JVS(4674)*UV(1168)+JVS(4678)*UV(1169)+JVS(4682)*UV(1170)+JVS(4686)*UV(1171)& - &+JVS(4694)*UV(1173)+JVS(4698)*UV(1174)+JVS(4702)*UV(1175)+JVS(4706)*UV(1176)+JVS(4710)*UV(1177)+JVS(4714)& - &*UV(1178)+JVS(4722)*UV(1180)+JVS(4726)*UV(1181)+JVS(4730)*UV(1182)+JVS(4734)*UV(1183)+JVS(4742)*UV(1185)& - &+JVS(4746)*UV(1186)+JVS(4750)*UV(1187)+JVS(4754)*UV(1188)+JVS(4758)*UV(1189)+JVS(4762)*UV(1190)+JVS(4766)& - &*UV(1191)+JVS(4770)*UV(1192)+JVS(4774)*UV(1193)+JVS(4782)*UV(1195)+JVS(4786)*UV(1196)+JVS(4790)*UV(1197)& - &+JVS(4794)*UV(1198)+JVS(4798)*UV(1199)+JVS(4802)*UV(1200)+JVS(4806)*UV(1201)+JVS(4810)*UV(1202)+JVS(4814)& - &*UV(1203)+JVS(4818)*UV(1204)+JVS(4822)*UV(1205)+JVS(4826)*UV(1206)+JVS(4830)*UV(1207)+JVS(4834)*UV(1208)& - &+JVS(4838)*UV(1209)+JVS(4842)*UV(1210)+JVS(4846)*UV(1211)+JVS(4850)*UV(1212)+JVS(4854)*UV(1213)+JVS(4858)& - &*UV(1214)+JVS(4862)*UV(1215)+JVS(4870)*UV(1217)+JVS(4874)*UV(1218)+JVS(4878)*UV(1219)+JVS(4882)*UV(1220)& - &+JVS(4886)*UV(1221)+JVS(4890)*UV(1222)+JVS(4894)*UV(1223)+JVS(4898)*UV(1224)+JVS(4902)*UV(1225)+JVS(4906)& - &*UV(1226)+JVS(4910)*UV(1227)+JVS(4914)*UV(1228)+JVS(4918)*UV(1229)+JVS(4922)*UV(1230)+JVS(4932)*UV(1232)& - &+JVS(4936)*UV(1233)+JVS(4940)*UV(1234)+JVS(4944)*UV(1235)+JVS(4948)*UV(1236)+JVS(4952)*UV(1237)+JVS(4956)& - &*UV(1238)+JVS(4960)*UV(1239)+JVS(4968)*UV(1241)+JVS(4972)*UV(1242)+JVS(4976)*UV(1243)+JVS(4980)*UV(1244)& - &+JVS(4984)*UV(1245)+JVS(4992)*UV(1247)+JVS(4996)*UV(1248)+JVS(5000)*UV(1249)+JVS(5004)*UV(1250)+JVS(5008)& - &*UV(1251)+JVS(5012)*UV(1252)+JVS(5016)*UV(1253)+JVS(5020)*UV(1254)+JVS(5024)*UV(1255)+JVS(5028)*UV(1256)& - &+JVS(5037)*UV(1258)+JVS(5041)*UV(1259)+JVS(5045)*UV(1260)+JVS(5049)*UV(1261)+JVS(5053)*UV(1262)+JVS(5057)& - &*UV(1263)+JVS(5061)*UV(1264)+JVS(5065)*UV(1265)+JVS(5069)*UV(1266)+JVS(5073)*UV(1267)+JVS(5077)*UV(1268)& - &+JVS(5085)*UV(1270)+JVS(5089)*UV(1271)+JVS(5093)*UV(1272)+JVS(5097)*UV(1273)+JVS(5101)*UV(1274)+JVS(5105)& - &*UV(1275)+JVS(5109)*UV(1276)+JVS(5113)*UV(1277)+JVS(5117)*UV(1278)+JVS(5121)*UV(1279)+JVS(5129)*UV(1281)& - &+JVS(5133)*UV(1282)+JVS(5137)*UV(1283)+JVS(5145)*UV(1285)+JVS(5149)*UV(1286)+JVS(5153)*UV(1287)+JVS(5157)& - &*UV(1288)+JVS(5161)*UV(1289)+JVS(5165)*UV(1290)+JVS(5169)*UV(1291)+JVS(5173)*UV(1292)+JVS(5177)*UV(1293)& - &+JVS(5181)*UV(1294)+JVS(5185)*UV(1295)+JVS(5189)*UV(1296)+JVS(5197)*UV(1298)+JVS(5201)*UV(1299)+JVS(5205)& - &*UV(1300)+JVS(5209)*UV(1301)+JVS(5213)*UV(1302)+JVS(5217)*UV(1303)+JVS(5221)*UV(1304)+JVS(5225)*UV(1305)& - &+JVS(5229)*UV(1306)+JVS(5233)*UV(1307)+JVS(5237)*UV(1308)+JVS(5241)*UV(1309)+JVS(5245)*UV(1310)+JVS(5253)& - &*UV(1312)+JVS(5257)*UV(1313)+JVS(5261)*UV(1314)+JVS(5265)*UV(1315)+JVS(5269)*UV(1316)+JVS(5273)*UV(1317)& - &+JVS(5277)*UV(1318)+JVS(5281)*UV(1319)+JVS(5285)*UV(1320)+JVS(5293)*UV(1322)+JVS(5297)*UV(1323)+JVS(5301)& - &*UV(1324)+JVS(5305)*UV(1325)+JVS(5309)*UV(1326)+JVS(5313)*UV(1327)+JVS(5317)*UV(1328)+JVS(5321)*UV(1329)& - &+JVS(5325)*UV(1330)+JVS(5329)*UV(1331)+JVS(5333)*UV(1332)+JVS(5337)*UV(1333)+JVS(5345)*UV(1335)+JVS(5349)& - &*UV(1336)+JVS(5353)*UV(1337)+JVS(5357)*UV(1338)+JVS(5361)*UV(1339)+JVS(5365)*UV(1340)+JVS(5369)*UV(1341)& - &+JVS(5373)*UV(1342)+JVS(5377)*UV(1343)+JVS(5381)*UV(1344)+JVS(5385)*UV(1345)+JVS(5393)*UV(1347)+JVS(5397)& - &*UV(1348)+JVS(5401)*UV(1349)+JVS(5405)*UV(1350)+JVS(5409)*UV(1351)+JVS(5413)*UV(1352)+JVS(5417)*UV(1353)& - &+JVS(5421)*UV(1354)+JVS(5425)*UV(1355)+JVS(5429)*UV(1356)+JVS(5433)*UV(1357)+JVS(5437)*UV(1358)+JVS(5441)& - &*UV(1359)+JVS(5445)*UV(1360)+JVS(5449)*UV(1361)+JVS(5453)*UV(1362)+JVS(5457)*UV(1363)+JVS(5461)*UV(1364)& - &+JVS(5465)*UV(1365)+JVS(5469)*UV(1366)+JVS(5473)*UV(1367)+JVS(5485)*UV(1370)+JVS(5489)*UV(1371)+JVS(5498)& - &*UV(1373)+JVS(5502)*UV(1374)+JVS(5506)*UV(1375)+JVS(5510)*UV(1376)+JVS(5514)*UV(1377)+JVS(5518)*UV(1378)& - &+JVS(5522)*UV(1379)+JVS(5526)*UV(1380)+JVS(5530)*UV(1381)+JVS(5534)*UV(1382)+JVS(5538)*UV(1383)+JVS(5546)& - &*UV(1385)+JVS(5554)*UV(1387)+JVS(5558)*UV(1388)+JVS(5562)*UV(1389)+JVS(5566)*UV(1390)+JVS(5570)*UV(1391)& - &+JVS(5574)*UV(1392)+JVS(5578)*UV(1393)+JVS(5582)*UV(1394)+JVS(5586)*UV(1395)+JVS(5590)*UV(1396)+JVS(5594)& - &*UV(1397)+JVS(5598)*UV(1398)+JVS(5602)*UV(1399)+JVS(5610)*UV(1401)+JVS(5614)*UV(1402)+JVS(5618)*UV(1403)& - &+JVS(5622)*UV(1404)+JVS(5626)*UV(1405)+JVS(5630)*UV(1406)+JVS(5634)*UV(1407)+JVS(5638)*UV(1408)+JVS(5642)& - &*UV(1409)+JVS(5646)*UV(1410)+JVS(5650)*UV(1411)+JVS(5654)*UV(1412)+JVS(5658)*UV(1413)+JVS(5662)*UV(1414)& - &+JVS(5666)*UV(1415)+JVS(5670)*UV(1416)+JVS(5674)*UV(1417)+JVS(5678)*UV(1418)+JVS(5682)*UV(1419)+JVS(5686)& - &*UV(1420)+JVS(5690)*UV(1421)+JVS(5694)*UV(1422)+JVS(5698)*UV(1423)+JVS(5702)*UV(1424)+JVS(5706)*UV(1425)& - &+JVS(5710)*UV(1426)+JVS(5714)*UV(1427)+JVS(5718)*UV(1428)+JVS(5722)*UV(1429)+JVS(5726)*UV(1430)+JVS(5730)& - &*UV(1431)+JVS(5734)*UV(1432)+JVS(5738)*UV(1433)+JVS(5742)*UV(1434)+JVS(5746)*UV(1435)+JVS(5750)*UV(1436)& - &+JVS(5754)*UV(1437)+JVS(5758)*UV(1438)+JVS(5762)*UV(1439)+JVS(5766)*UV(1440)+JVS(5770)*UV(1441)+JVS(5774)& - &*UV(1442)+JVS(5778)*UV(1443)+JVS(5782)*UV(1444)+JVS(5786)*UV(1445)+JVS(5790)*UV(1446)+JVS(5794)*UV(1447)& - &+JVS(5798)*UV(1448)+JVS(5802)*UV(1449)+JVS(5806)*UV(1450)+JVS(5810)*UV(1451)+JVS(5814)*UV(1452)+JVS(5818)& - &*UV(1453)+JVS(5822)*UV(1454)+JVS(5826)*UV(1455)+JVS(5830)*UV(1456)+JVS(5834)*UV(1457)+JVS(5838)*UV(1458)& - &+JVS(5842)*UV(1459)+JVS(5846)*UV(1460)+JVS(5850)*UV(1461)+JVS(5854)*UV(1462)+JVS(5858)*UV(1463)+JVS(5862)& - &*UV(1464)+JVS(5866)*UV(1465)+JVS(5870)*UV(1466)+JVS(5874)*UV(1467)+JVS(5878)*UV(1468)+JVS(5882)*UV(1469)& - &+JVS(5886)*UV(1470)+JVS(5890)*UV(1471)+JVS(5894)*UV(1472)+JVS(5898)*UV(1473)+JVS(5902)*UV(1474)+JVS(5906)& - &*UV(1475)+JVS(5910)*UV(1476)+JVS(5914)*UV(1477)+JVS(5918)*UV(1478)+JVS(5922)*UV(1479)+JVS(5926)*UV(1480)& - &+JVS(5930)*UV(1481)+JVS(5944)*UV(1484)+JVS(5948)*UV(1485)+JVS(5952)*UV(1486)+JVS(5956)*UV(1487)+JVS(5960)& - &*UV(1488)+JVS(5964)*UV(1489)+JVS(5968)*UV(1490)+JVS(5972)*UV(1491)+JVS(5976)*UV(1492)+JVS(5985)*UV(1494)& - &+JVS(5989)*UV(1495)+JVS(5993)*UV(1496)+JVS(5997)*UV(1497)+JVS(6001)*UV(1498)+JVS(6005)*UV(1499)+JVS(6009)& - &*UV(1500)+JVS(6013)*UV(1501)+JVS(6017)*UV(1502)+JVS(6021)*UV(1503)+JVS(6025)*UV(1504)+JVS(6029)*UV(1505)& - &+JVS(6033)*UV(1506)+JVS(6037)*UV(1507)+JVS(6041)*UV(1508)+JVS(6045)*UV(1509)+JVS(6049)*UV(1510)+JVS(6053)& - &*UV(1511)+JVS(6057)*UV(1512)+JVS(6061)*UV(1513)+JVS(6065)*UV(1514)+JVS(6069)*UV(1515)+JVS(6073)*UV(1516)& - &+JVS(6077)*UV(1517)+JVS(6081)*UV(1518)+JVS(6085)*UV(1519)+JVS(6097)*UV(1522)+JVS(6101)*UV(1523)+JVS(6105)& - &*UV(1524)+JVS(6109)*UV(1525)+JVS(6113)*UV(1526)+JVS(6117)*UV(1527)+JVS(6121)*UV(1528)+JVS(6129)*UV(1530)& - &+JVS(6137)*UV(1532)+JVS(6141)*UV(1533)+JVS(6145)*UV(1534)+JVS(6149)*UV(1535)+JVS(6153)*UV(1536)+JVS(6157)& - &*UV(1537)+JVS(6161)*UV(1538)+JVS(6165)*UV(1539)+JVS(6169)*UV(1540)+JVS(6173)*UV(1541)+JVS(6177)*UV(1542)& - &+JVS(6181)*UV(1543)+JVS(6185)*UV(1544)+JVS(6189)*UV(1545)+JVS(6193)*UV(1546)+JVS(6197)*UV(1547)+JVS(6451)& - &*UV(1605)+JVS(6475)*UV(1608)+JVS(6515)*UV(1617)+JVS(6551)*UV(1624)+JVS(7030)*UV(1728)+JVS(7083)*UV(1739)& - &+JVS(7140)*UV(1751)+JVS(7148)*UV(1753)+JVS(7175)*UV(1757)+JVS(7179)*UV(1758)+JVS(7183)*UV(1759)+JVS(7193)& - &*UV(1761)+JVS(7197)*UV(1762)+JVS(7202)*UV(1763)+JVS(7207)*UV(1764)+JVS(7212)*UV(1765)+JVS(7220)*UV(1767)& - &+JVS(7224)*UV(1768)+JVS(7233)*UV(1770)+JVS(7253)*UV(1774)+JVS(7267)*UV(1778)+JVS(7271)*UV(1779)+JVS(7292)& - &*UV(1783)+JVS(7296)*UV(1784)+JVS(7345)*UV(1793)+JVS(7385)*UV(1801)+JVS(7389)*UV(1802)+JVS(7402)*UV(1804)& - &+JVS(7424)*UV(1809)+JVS(7463)*UV(1816)+JVS(7540)*UV(1830)+JVS(7570)*UV(1836)+JVS(7574)*UV(1837)+JVS(7586)& - &*UV(1839)+JVS(7590)*UV(1840)+JVS(7598)*UV(1842)+JVS(7607)*UV(1844)+JVS(7632)*UV(1849)+JVS(7636)*UV(1850)& - &+JVS(7640)*UV(1851)+JVS(7656)*UV(1854)+JVS(7660)*UV(1855)+JVS(7676)*UV(1859)+JVS(7688)*UV(1861)+JVS(7692)& - &*UV(1862)+JVS(7696)*UV(1863)+JVS(7725)*UV(1868)+JVS(7729)*UV(1869)+JVS(7737)*UV(1870)+JVS(7741)*UV(1871)& - &+JVS(7750)*UV(1873)+JVS(7754)*UV(1874)+JVS(7761)*UV(1876)+JVS(7774)*UV(1879)+JVS(7778)*UV(1880)+JVS(7795)& - &*UV(1884)+JVS(7799)*UV(1885)+JVS(7803)*UV(1886)+JVS(7807)*UV(1887)+JVS(7811)*UV(1888)+JVS(7819)*UV(1890)& - &+JVS(7834)*UV(1893)+JVS(7851)*UV(1897)+JVS(7855)*UV(1898)+JVS(7859)*UV(1899)+JVS(7863)*UV(1900)+JVS(7867)& - &*UV(1901)+JVS(7899)*UV(1907)+JVS(7903)*UV(1908)+JVS(7919)*UV(1911)+JVS(7933)*UV(1914)+JVS(7945)*UV(1917)& - &+JVS(7957)*UV(1920)+JVS(7986)*UV(1926)+JVS(8015)*UV(1932)+JVS(8026)*UV(1935)+JVS(8034)*UV(1937)+JVS(8038)& - &*UV(1938)+JVS(8046)*UV(1940)+JVS(8062)*UV(1943)+JVS(8083)*UV(1947)+JVS(8087)*UV(1948)+JVS(8091)*UV(1949)& - &+JVS(8095)*UV(1950)+JVS(8123)*UV(1956)+JVS(8132)*UV(1958)+JVS(8173)*UV(1966)+JVS(8182)*UV(1968)+JVS(8186)& - &*UV(1969)+JVS(8190)*UV(1970)+JVS(8206)*UV(1973)+JVS(8237)*UV(1979)+JVS(8248)*UV(1982)+JVS(8253)*UV(1983)& - &+JVS(8266)*UV(1985)+JVS(8294)*UV(1990)+JVS(8301)*UV(1992)+JVS(8305)*UV(1993)+JVS(8309)*UV(1994)+JVS(8322)& - &*UV(1997)+JVS(8334)*UV(1999)+JVS(8351)*UV(2002)+JVS(8369)*UV(2006)+JVS(8382)*UV(2009)+JVS(8386)*UV(2010)& - &+JVS(8415)*UV(2016)+JVS(8419)*UV(2017)+JVS(8423)*UV(2018)+JVS(8427)*UV(2019)+JVS(8440)*UV(2022)+JVS(8454)& - &*UV(2025)+JVS(8458)*UV(2026)+JVS(8462)*UV(2027)+JVS(8517)*UV(2036)+JVS(8530)*UV(2039)+JVS(8553)*UV(2044)& - &+JVS(8561)*UV(2046)+JVS(8565)*UV(2047)+JVS(8586)*UV(2051)+JVS(8590)*UV(2052)+JVS(8594)*UV(2053)+JVS(8602)& - &*UV(2055)+JVS(8615)*UV(2057)+JVS(8619)*UV(2058)+JVS(8623)*UV(2059)+JVS(8639)*UV(2062)+JVS(8647)*UV(2064)& - &+JVS(8651)*UV(2065)+JVS(8665)*UV(2068)+JVS(8669)*UV(2069)+JVS(8673)*UV(2070)+JVS(8677)*UV(2071)+JVS(8721)& - &*UV(2080)+JVS(8729)*UV(2082)+JVS(8737)*UV(2084)+JVS(8762)*UV(2089)+JVS(8771)*UV(2091)+JVS(8779)*UV(2093)& - &+JVS(8787)*UV(2095)+JVS(8800)*UV(2098)+JVS(8821)*UV(2102)+JVS(8825)*UV(2103)+JVS(8832)*UV(2105)+JVS(8840)& - &*UV(2107)+JVS(8848)*UV(2109)+JVS(8852)*UV(2110)+JVS(8856)*UV(2111)+JVS(8869)*UV(2114)+JVS(8873)*UV(2115)& - &+JVS(8877)*UV(2116)+JVS(8895)*UV(2120)+JVS(8899)*UV(2121)+JVS(8919)*UV(2125)+JVS(8923)*UV(2126)+JVS(8927)& - &*UV(2127)+JVS(8942)*UV(2131)+JVS(8951)*UV(2133)+JVS(8960)*UV(2135)+JVS(8968)*UV(2137)+JVS(8972)*UV(2138)& - &+JVS(8976)*UV(2139)+JVS(8981)*UV(2140)+JVS(8991)*UV(2142)+JVS(8996)*UV(2143)+JVS(9000)*UV(2144)+JVS(9009)& - &*UV(2146)+JVS(9013)*UV(2147)+JVS(9024)*UV(2150)+JVS(9028)*UV(2151)+JVS(9032)*UV(2152)+JVS(9036)*UV(2153)& - &+JVS(9050)*UV(2156)+JVS(9063)*UV(2159)+JVS(9067)*UV(2160)+JVS(9096)*UV(2166)+JVS(9117)*UV(2171)+JVS(9133)& - &*UV(2174)+JVS(9141)*UV(2176)+JVS(9146)*UV(2177)+JVS(9150)*UV(2178)+JVS(9154)*UV(2179)+JVS(9158)*UV(2180)& - &+JVS(9171)*UV(2183)+JVS(9189)*UV(2187)+JVS(9193)*UV(2188)+JVS(9210)*UV(2191)+JVS(9214)*UV(2192)+JVS(9266)& - &*UV(2204)+JVS(9270)*UV(2205)+JVS(9287)*UV(2208)+JVS(9302)*UV(2211)+JVS(9313)*UV(2214)+JVS(9325)*UV(2217)& - &+JVS(9333)*UV(2219)+JVS(9341)*UV(2221)+JVS(9350)*UV(2223)+JVS(9359)*UV(2225)+JVS(9371)*UV(2227)+JVS(9375)& - &*UV(2228)+JVS(9398)*UV(2233)+JVS(9407)*UV(2235)+JVS(9411)*UV(2236)+JVS(9444)*UV(2244)+JVS(9456)*UV(2247)& - &+JVS(9460)*UV(2248)+JVS(9473)*UV(2251)+JVS(9477)*UV(2252)+JVS(9509)*UV(2260)+JVS(9517)*UV(2262)+JVS(9521)& - &*UV(2263)+JVS(9525)*UV(2264)+JVS(9534)*UV(2266)+JVS(9538)*UV(2267)+JVS(9546)*UV(2269)+JVS(9609)*UV(2283)& - &+JVS(9638)*UV(2289)+JVS(9642)*UV(2290)+JVS(9650)*UV(2292)+JVS(9663)*UV(2294)+JVS(9682)*UV(2298)+JVS(9690)& - &*UV(2300)+JVS(9694)*UV(2301)+JVS(9714)*UV(2305)+JVS(9722)*UV(2307)+JVS(9742)*UV(2312)+JVS(9750)*UV(2314)& - &+JVS(9760)*UV(2316)+JVS(9768)*UV(2318)+JVS(9772)*UV(2319)+JVS(9776)*UV(2320)+JVS(9811)*UV(2326)+JVS(9824)& - &*UV(2329)+JVS(9832)*UV(2331)+JVS(9867)*UV(2339)+JVS(9872)*UV(2340)+JVS(9880)*UV(2342)+JVS(9895)*UV(2346)& - &+JVS(9903)*UV(2348)+JVS(9907)*UV(2349)+JVS(9915)*UV(2351)+JVS(9924)*UV(2353)+JVS(9932)*UV(2355)+JVS(9946)& - &*UV(2358)+JVS(9953)*UV(2360)+JVS(9965)*UV(2362)+JVS(9969)*UV(2363)+JVS(9974)*UV(2364)+JVS(9982)*UV(2366)& - &+JVS(9991)*UV(2368)+JVS(9995)*UV(2369)+JVS(10004)*UV(2371)+JVS(10012)*UV(2373)+JVS(10047)*UV(2379)& - &+JVS(10051)*UV(2380)+JVS(10057)*UV(2381)+JVS(10068)*UV(2384)+JVS(10075)*UV(2386)+JVS(10083)*UV(2388)& - &+JVS(10087)*UV(2389)+JVS(10095)*UV(2391)+JVS(10099)*UV(2392)+JVS(10106)*UV(2394)+JVS(10115)*UV(2396)& - &+JVS(10119)*UV(2397)+JVS(10135)*UV(2400)+JVS(10139)*UV(2401)+JVS(10143)*UV(2402)+JVS(10151)*UV(2404)& - &+JVS(10163)*UV(2407)+JVS(10171)*UV(2409)+JVS(10175)*UV(2410)+JVS(10179)*UV(2411)+JVS(10183)*UV(2412)& - &+JVS(10187)*UV(2413)+JVS(10191)*UV(2414)+JVS(10204)*UV(2416)+JVS(10208)*UV(2417)+JVS(10228)*UV(2422)& - &+JVS(10232)*UV(2423)+JVS(10236)*UV(2424)+JVS(10243)*UV(2426)+JVS(10251)*UV(2428)+JVS(10255)*UV(2429)& - &+JVS(10264)*UV(2431)+JVS(10277)*UV(2434)+JVS(10281)*UV(2435)+JVS(10289)*UV(2437)+JVS(10298)*UV(2439)& - &+JVS(10302)*UV(2440)+JVS(10311)*UV(2442)+JVS(10315)*UV(2443)+JVS(10323)*UV(2445)+JVS(10327)*UV(2446)& - &+JVS(10341)*UV(2449)+JVS(10345)*UV(2450)+JVS(10349)*UV(2451)+JVS(10366)*UV(2454)+JVS(10370)*UV(2455)& - &+JVS(10374)*UV(2456)+JVS(10395)*UV(2460)+JVS(10407)*UV(2463)+JVS(10424)*UV(2466)+JVS(10436)*UV(2469)& - &+JVS(10557)*UV(2494)+JVS(10573)*UV(2497)+JVS(10581)*UV(2499)+JVS(10589)*UV(2501)+JVS(10600)*UV(2503)& - &+JVS(10619)*UV(2507)+JVS(10681)*UV(2520)+JVS(10783)*UV(2540)+JVS(10787)*UV(2541)+JVS(10795)*UV(2543)& - &+JVS(10799)*UV(2544)+JVS(10852)*UV(2553)+JVS(10856)*UV(2554)+JVS(10864)*UV(2556)+JVS(10875)*UV(2558)& - &+JVS(10879)*UV(2559)+JVS(10914)*UV(2565)+JVS(10937)*UV(2570)+JVS(10945)*UV(2572)+JVS(10958)*UV(2574)& - &+JVS(10992)*UV(2580)+JVS(11015)*UV(2585)+JVS(11046)*UV(2590)+JVS(11114)*UV(2601)+JVS(11118)*UV(2602)& - &+JVS(11122)*UV(2603)+JVS(11152)*UV(2609)+JVS(11184)*UV(2616)+JVS(11188)*UV(2617)+JVS(11192)*UV(2618)& - &+JVS(11219)*UV(2624)+JVS(11223)*UV(2625)+JVS(11231)*UV(2627)+JVS(11235)*UV(2628)+JVS(11255)*UV(2633)& - &+JVS(11355)*UV(2649)+JVS(11367)*UV(2652)+JVS(11375)*UV(2654)+JVS(11529)*UV(2686)+JVS(11545)*UV(2690)& - &+JVS(11560)*UV(2693)+JVS(11571)*UV(2695)+JVS(11642)*UV(2709)+JVS(11673)*UV(2715)+JVS(11682)*UV(2716)& - &+JVS(11726)*UV(2723)+JVS(11745)*UV(2727)+JVS(11760)*UV(2730)+JVS(11802)*UV(2737)+JVS(11817)*UV(2740)& - &+JVS(11898)*UV(2753)+JVS(11902)*UV(2754)+JVS(11947)*UV(2763)+JVS(11959)*UV(2766)+JVS(11978)*UV(2769)& - &+JVS(12009)*UV(2774)+JVS(12013)*UV(2775)+JVS(12051)*UV(2783)+JVS(12059)*UV(2785)+JVS(12117)*UV(2797)& - &+JVS(12128)*UV(2799)+JVS(12152)*UV(2805)+JVS(12179)*UV(2810)+JVS(12250)*UV(2824)+JVS(12274)*UV(2828)& - &+JVS(12312)*UV(2836)+JVS(12323)*UV(2838)+JVS(12448)*UV(2862)+JVS(12475)*UV(2868)+JVS(12486)*UV(2870)& - &+JVS(12490)*UV(2871)+JVS(12498)*UV(2873)+JVS(12523)*UV(2878)+JVS(12597)*UV(2893)+JVS(12627)*UV(2899)& - &+JVS(12631)*UV(2900)+JVS(12698)*UV(2911)+JVS(12749)*UV(2920)+JVS(12765)*UV(2923)+JVS(12798)*UV(2930)& - &+JVS(12863)*UV(2940)+JVS(13039)*UV(2971)+JVS(13065)*UV(2975)+JVS(13069)*UV(2976)+JVS(13094)*UV(2981)& - &+JVS(13118)*UV(2985)+JVS(13152)*UV(2991)+JVS(13162)*UV(2993)+JVS(13235)*UV(3005)+JVS(13239)*UV(3006)& - &+JVS(13300)*UV(3018)+JVS(13316)*UV(3022)+JVS(13362)*UV(3031)+JVS(13374)*UV(3033)+JVS(13382)*UV(3035)& - &+JVS(13400)*UV(3038)+JVS(13427)*UV(3043)+JVS(13439)*UV(3046)+JVS(13455)*UV(3049)+JVS(13486)*UV(3055)& - &+JVS(13615)*UV(3078)+JVS(13731)*UV(3099)+JVS(13917)*UV(3128)+JVS(14046)*UV(3156)+JVS(14256)*UV(3196)& - &+JVS(14264)*UV(3198)+JVS(14278)*UV(3201)+JVS(14286)*UV(3203)+JVS(14294)*UV(3205)+JVS(14302)*UV(3207)& - &+JVS(14306)*UV(3208)+JVS(14310)*UV(3209)+JVS(14318)*UV(3211)+JVS(14337)*UV(3214)+JVS(14349)*UV(3216)& - &+JVS(14353)*UV(3217)+JVS(14362)*UV(3219)+JVS(14375)*UV(3222)+JVS(14387)*UV(3225)+JVS(14391)*UV(3226)& - &+JVS(14395)*UV(3227)+JVS(14413)*UV(3231)+JVS(14431)*UV(3233)+JVS(14444)*UV(3235)+JVS(14452)*UV(3237)& - &+JVS(14456)*UV(3238)+JVS(14494)*UV(3243)+JVS(14499)*UV(3244)+JVS(14528)*UV(3247)+JVS(14558)*UV(3253)& - &+JVS(14573)*UV(3256)+JVS(14585)*UV(3259)+JVS(14593)*UV(3261)+JVS(14603)*UV(3263)+JVS(14612)*UV(3265)& - &+JVS(14616)*UV(3266)+JVS(14620)*UV(3267)+JVS(14656)*UV(3272)+JVS(14664)*UV(3274)+JVS(14672)*UV(3276)& - &+JVS(14676)*UV(3277)+JVS(14680)*UV(3278)+JVS(14684)*UV(3279)+JVS(14688)*UV(3280)+JVS(14729)*UV(3286)& - &+JVS(14733)*UV(3287)+JVS(14737)*UV(3288)+JVS(14741)*UV(3289)+JVS(14749)*UV(3291)+JVS(14761)*UV(3294)& - &+JVS(14765)*UV(3295)+JVS(14788)*UV(3299)+JVS(14832)*UV(3308)+JVS(14842)*UV(3310)+JVS(14858)*UV(3314)& - &+JVS(14878)*UV(3319)+JVS(14882)*UV(3320)+JVS(14886)*UV(3321)+JVS(14902)*UV(3325)+JVS(14906)*UV(3326)& - &+JVS(14931)*UV(3330)+JVS(14962)*UV(3334)+JVS(14975)*UV(3336)+JVS(15182)*UV(3366)+JVS(15330)*UV(3385)& - &+JVS(15344)*UV(3387)+JVS(15723)*UV(3441)+JVS(15735)*UV(3444)+JVS(15743)*UV(3446)+JVS(15751)*UV(3448)& - &+JVS(15755)*UV(3449)+JVS(15765)*UV(3451)+JVS(15769)*UV(3452)+JVS(15773)*UV(3453)+JVS(15782)*UV(3455)& - &+JVS(15800)*UV(3458)+JVS(15804)*UV(3459)+JVS(15822)*UV(3462)+JVS(15826)*UV(3463)+JVS(15842)*UV(3467)& - &+JVS(15846)*UV(3468)+JVS(15850)*UV(3469)+JVS(15867)*UV(3473)+JVS(15881)*UV(3475)+JVS(15886)*UV(3476)& - &+JVS(15892)*UV(3477)+JVS(15916)*UV(3480)+JVS(15921)*UV(3481)+JVS(15943)*UV(3485)+JVS(15955)*UV(3487)& - &+JVS(15967)*UV(3489)+JVS(15979)*UV(3491)+JVS(15985)*UV(3492)+JVS(16003)*UV(3495)+JVS(16007)*UV(3496)& - &+JVS(16040)*UV(3500)+JVS(16044)*UV(3501)+JVS(16050)*UV(3502)+JVS(16056)*UV(3503)+JVS(16083)*UV(3507)& - &+JVS(16094)*UV(3509)+JVS(16107)*UV(3511)+JVS(16129)*UV(3514)+JVS(16135)*UV(3515)+JVS(16164)*UV(3518)& - &+JVS(16180)*UV(3521)+JVS(16194)*UV(3523)+JVS(16199)*UV(3524)+JVS(16204)*UV(3525)+JVS(16217)*UV(3527)& - &+JVS(16222)*UV(3528)+JVS(16244)*UV(3531)+JVS(16261)*UV(3534)+JVS(16299)*UV(3538)+JVS(16306)*UV(3539)& - &+JVS(16311)*UV(3540)+JVS(16388)*UV(3550)+JVS(16397)*UV(3552)+JVS(16409)*UV(3554)+JVS(16416)*UV(3555)& - &+JVS(16472)*UV(3562)+JVS(16479)*UV(3563)+JVS(16622)*UV(3582)+JVS(16688)*UV(3590)+JVS(16930)*UV(3618)& - &+JVS(16946)*UV(3619)+JVS(16951)*UV(3620)+JVS(16955)*UV(3621)+JVS(16964)*UV(3623)+JVS(16968)*UV(3624)& - &+JVS(16972)*UV(3625)+JVS(16989)*UV(3626)+JVS(16996)*UV(3627)+JVS(17029)*UV(3631)+JVS(17036)*UV(3632)& - &+JVS(17047)*UV(3634)+JVS(17059)*UV(3636)+JVS(17065)*UV(3637)+JVS(17084)*UV(3638)+JVS(17116)*UV(3641)& - &+JVS(17151)*UV(3644)+JVS(17181)*UV(3648)+JVS(17198)*UV(3650)+JVS(17219)*UV(3652)+JVS(17232)*UV(3654)& - &+JVS(17268)*UV(3658)+JVS(17275)*UV(3659)+JVS(17280)*UV(3660)+JVS(17302)*UV(3663)+JVS(17312)*UV(3664)& - &+JVS(17319)*UV(3665)+JVS(17335)*UV(3667)+JVS(17343)*UV(3668)+JVS(17350)*UV(3669)+JVS(17356)*UV(3670)& - &+JVS(17363)*UV(3671)+JVS(17372)*UV(3672)+JVS(17387)*UV(3674)+JVS(17394)*UV(3675)+JVS(17402)*UV(3676)& - &+JVS(17409)*UV(3677)+JVS(17417)*UV(3678)+JVS(17425)*UV(3679)+JVS(17433)*UV(3680)+JVS(17472)*UV(3685)& - &+JVS(17480)*UV(3686)+JVS(17487)*UV(3687)+JVS(17497)*UV(3688)+JVS(17516)*UV(3690)+JVS(17525)*UV(3691)& - &+JVS(17532)*UV(3692)+JVS(17540)*UV(3693)+JVS(17549)*UV(3694)+JVS(17556)*UV(3695)+JVS(17563)*UV(3696)& - &+JVS(17570)*UV(3697)+JVS(17578)*UV(3698)+JVS(17585)*UV(3699)+JVS(17602)*UV(3702)+JVS(17609)*UV(3703)& - &+JVS(17617)*UV(3704)+JVS(17624)*UV(3705)+JVS(17632)*UV(3706)+JVS(17637)*UV(3707)+JVS(17644)*UV(3708)& - &+JVS(17661)*UV(3710)+JVS(17668)*UV(3711)+JVS(17676)*UV(3712)+JVS(17683)*UV(3713)+JVS(17691)*UV(3714)& - &+JVS(17699)*UV(3715)+JVS(17717)*UV(3717)+JVS(17726)*UV(3718)+JVS(17734)*UV(3719)+JVS(17743)*UV(3720)& - &+JVS(17750)*UV(3721)+JVS(17759)*UV(3722)+JVS(17767)*UV(3723)+JVS(17776)*UV(3724)+JVS(17783)*UV(3725)& - &+JVS(17802)*UV(3727)+JVS(17809)*UV(3728)+JVS(17825)*UV(3730)+JVS(17834)*UV(3731)+JVS(17848)*UV(3733)& - &+JVS(17892)*UV(3738)+JVS(17899)*UV(3739)+JVS(17906)*UV(3740)+JVS(17917)*UV(3741)+JVS(17934)*UV(3743)& - &+JVS(17950)*UV(3745)+JVS(17958)*UV(3746)+JVS(17992)*UV(3749)+JVS(18000)*UV(3750)+JVS(18009)*UV(3751)& - &+JVS(18016)*UV(3752)+JVS(18024)*UV(3753)+JVS(18070)*UV(3758)+JVS(18090)*UV(3760)+JVS(18099)*UV(3761)& - &+JVS(18106)*UV(3762)+JVS(18123)*UV(3764)+JVS(18131)*UV(3765)+JVS(18139)*UV(3766)+JVS(18154)*UV(3768)& - &+JVS(18162)*UV(3769)+JVS(18169)*UV(3770)+JVS(18177)*UV(3771)+JVS(18184)*UV(3772)+JVS(18203)*UV(3774)& - &+JVS(18225)*UV(3776)+JVS(18242)*UV(3778)+JVS(18268)*UV(3781)+JVS(18276)*UV(3782)+JVS(18294)*UV(3784)& - &+JVS(18302)*UV(3785)+JVS(18309)*UV(3786)+JVS(18325)*UV(3788)+JVS(18333)*UV(3789)+JVS(18339)*UV(3790)& - &+JVS(18346)*UV(3791)+JVS(18369)*UV(3794)+JVS(18384)*UV(3796)+JVS(18392)*UV(3797)+JVS(18399)*UV(3798)& - &+JVS(18406)*UV(3799)+JVS(18416)*UV(3800)+JVS(18422)*UV(3801)+JVS(18437)*UV(3803)+JVS(18443)*UV(3804)& - &+JVS(18456)*UV(3806)+JVS(18462)*UV(3807)+JVS(18469)*UV(3808)+JVS(18488)*UV(3810)+JVS(18494)*UV(3811)& - &+JVS(18509)*UV(3813)+JVS(18516)*UV(3814)+JVS(18523)*UV(3815)+JVS(18532)*UV(3816)+JVS(18539)*UV(3817)& - &+JVS(18554)*UV(3819)+JVS(18561)*UV(3820)+JVS(18575)*UV(3821)+JVS(18590)*UV(3823)+JVS(18605)*UV(3825)& - &+JVS(18621)*UV(3827)+JVS(18628)*UV(3828)+JVS(18671)*UV(3836)+JVS(18678)*UV(3837)+JVS(18688)*UV(3838)& - &+JVS(18696)*UV(3839)+JVS(18703)*UV(3840)+JVS(18711)*UV(3841)+JVS(18735)*UV(3844)+JVS(18745)*UV(3845)& - &+JVS(18755)*UV(3846)+JVS(18762)*UV(3847)+JVS(18769)*UV(3848)+JVS(18792)*UV(3850)+JVS(18807)*UV(3852)& - &+JVS(18814)*UV(3853)+JVS(18824)*UV(3854)+JVS(18833)*UV(3855)+JVS(18859)*UV(3858)+JVS(18867)*UV(3859)& - &+JVS(18876)*UV(3860)+JVS(18900)*UV(3863)+JVS(18909)*UV(3864)+JVS(18916)*UV(3865)+JVS(18923)*UV(3866)& - &+JVS(18929)*UV(3867)+JVS(18950)*UV(3869)+JVS(18959)*UV(3870)+JVS(18969)*UV(3871)+JVS(18976)*UV(3872)& - &+JVS(18984)*UV(3873)+JVS(18993)*UV(3874)+JVS(19009)*UV(3876)+JVS(19047)*UV(3880)+JVS(19057)*UV(3881)& - &+JVS(19066)*UV(3882)+JVS(19072)*UV(3883)+JVS(19080)*UV(3884)+JVS(19088)*UV(3885)+JVS(19095)*UV(3886)& - &+JVS(19111)*UV(3888)+JVS(19119)*UV(3889)+JVS(19128)*UV(3890)+JVS(19135)*UV(3891)+JVS(19151)*UV(3893)& - &+JVS(19159)*UV(3894)+JVS(19166)*UV(3895)+JVS(19191)*UV(3898)+JVS(19199)*UV(3899)+JVS(19217)*UV(3901)& - &+JVS(19225)*UV(3902)+JVS(19232)*UV(3903)+JVS(19249)*UV(3905)+JVS(19264)*UV(3907)+JVS(19271)*UV(3908)& - &+JVS(19306)*UV(3912)+JVS(19346)*UV(3916)+JVS(19382)*UV(3919)+JVS(19389)*UV(3920)+JVS(19396)*UV(3921)& - &+JVS(19440)*UV(3926)+JVS(19446)*UV(3927)+JVS(19453)*UV(3928)+JVS(19464)*UV(3929)+JVS(19482)*UV(3931)& - &+JVS(19490)*UV(3932)+JVS(19499)*UV(3933)+JVS(19521)*UV(3936)+JVS(19529)*UV(3937)+JVS(19544)*UV(3939)& - &+JVS(19551)*UV(3940)+JVS(19561)*UV(3941)+JVS(19575)*UV(3943)+JVS(19582)*UV(3944)+JVS(19589)*UV(3945)& - &+JVS(19618)*UV(3948)+JVS(19625)*UV(3949)+JVS(19632)*UV(3950)+JVS(19641)*UV(3951)+JVS(19648)*UV(3952)& - &+JVS(19656)*UV(3953)+JVS(19665)*UV(3954)+JVS(19674)*UV(3955)+JVS(19727)*UV(3961)+JVS(19734)*UV(3962)& - &+JVS(19740)*UV(3963)+JVS(19749)*UV(3964)+JVS(19759)*UV(3965)+JVS(19764)*UV(3966)+JVS(19773)*UV(3967)& - &+JVS(19789)*UV(3969)+JVS(19803)*UV(3971)+JVS(19819)*UV(3973)+JVS(19826)*UV(3974)+JVS(19834)*UV(3975)& - &+JVS(19842)*UV(3976)+JVS(19852)*UV(3977)+JVS(19874)*UV(3979)+JVS(19881)*UV(3980)+JVS(19891)*UV(3981)& - &+JVS(19898)*UV(3982)+JVS(19905)*UV(3983)+JVS(19913)*UV(3984)+JVS(19920)*UV(3985)+JVS(19938)*UV(3987)& - &+JVS(19944)*UV(3988)+JVS(19954)*UV(3989)+JVS(19960)*UV(3990)+JVS(19978)*UV(3992)+JVS(19996)*UV(3994)& - &+JVS(20018)*UV(3997)+JVS(20030)*UV(3998)+JVS(20037)*UV(3999)+JVS(20050)*UV(4000)+JVS(20057)*UV(4001)& - &+JVS(20065)*UV(4002)+JVS(20072)*UV(4003)+JVS(20092)*UV(4005)+JVS(20099)*UV(4006)+JVS(20107)*UV(4007)& - &+JVS(20115)*UV(4008)+JVS(20123)*UV(4009)+JVS(20136)*UV(4011)+JVS(20161)*UV(4013)+JVS(20187)*UV(4015)& - &+JVS(20194)*UV(4016)+JVS(20214)*UV(4019)+JVS(20221)*UV(4020)+JVS(20229)*UV(4021)+JVS(20237)*UV(4022)& - &+JVS(20245)*UV(4023)+JVS(20254)*UV(4024)+JVS(20263)*UV(4025)+JVS(20273)*UV(4026)+JVS(20285)*UV(4028)& - &+JVS(20294)*UV(4029)+JVS(20301)*UV(4030)+JVS(20309)*UV(4031)+JVS(20321)*UV(4033)+JVS(20329)*UV(4034)& - &+JVS(20337)*UV(4035)+JVS(20345)*UV(4036)+JVS(20353)*UV(4037)+JVS(20365)*UV(4038)+JVS(20372)*UV(4039)& - &+JVS(20380)*UV(4040)+JVS(20393)*UV(4041)+JVS(20407)*UV(4042)+JVS(20416)*UV(4043)+JVS(20423)*UV(4044)& - &+JVS(20448)*UV(4046)+JVS(20460)*UV(4047)+JVS(20481)*UV(4049)+JVS(20492)*UV(4050)+JVS(20507)*UV(4051)& - &+JVS(20518)*UV(4052)+JVS(20536)*UV(4054)+JVS(20543)*UV(4055)+JVS(20555)*UV(4057)+JVS(20566)*UV(4058)& - &+JVS(20575)*UV(4059)+JVS(20588)*UV(4060)+JVS(20595)*UV(4061)+JVS(20605)*UV(4062)+JVS(20612)*UV(4063)& - &+JVS(20620)*UV(4064)+JVS(20628)*UV(4065)+JVS(20641)*UV(4067)+JVS(20649)*UV(4068)+JVS(20658)*UV(4069)& - &+JVS(20665)*UV(4070)+JVS(20673)*UV(4071)+JVS(20680)*UV(4072)+JVS(20688)*UV(4073)+JVS(20696)*UV(4074)& - &+JVS(20703)*UV(4075)+JVS(20712)*UV(4076)+JVS(20722)*UV(4077)+JVS(20730)*UV(4078)+JVS(20738)*UV(4079)& - &+JVS(20760)*UV(4082)+JVS(20785)*UV(4085)+JVS(20795)*UV(4086)+JVS(20803)*UV(4087)+JVS(20812)*UV(4088)& - &+JVS(20823)*UV(4089)+JVS(20830)*UV(4090)+JVS(20837)*UV(4091)+JVS(20851)*UV(4092)+JVS(20868)*UV(4095)& - &+JVS(20880)*UV(4097)+JVS(20890)*UV(4098)+JVS(20898)*UV(4099)+JVS(20907)*UV(4100)+JVS(20918)*UV(4101)& - &+JVS(20928)*UV(4102)+JVS(20964)*UV(4105)+JVS(20971)*UV(4106)+JVS(20977)*UV(4107)+JVS(21016)*UV(4111)& - &+JVS(21023)*UV(4112)+JVS(21029)*UV(4113)+JVS(21044)*UV(4115)+JVS(21052)*UV(4116)+JVS(21059)*UV(4117)& - &+JVS(21068)*UV(4118)+JVS(21078)*UV(4119)+JVS(21088)*UV(4120)+JVS(21096)*UV(4121)+JVS(21115)*UV(4123)& - &+JVS(21122)*UV(4124)+JVS(21136)*UV(4125)+JVS(21143)*UV(4126)+JVS(21151)*UV(4127)+JVS(21158)*UV(4128)& - &+JVS(21164)*UV(4129)+JVS(21174)*UV(4130)+JVS(21182)*UV(4131)+JVS(21190)*UV(4132)+JVS(21198)*UV(4133)& - &+JVS(21205)*UV(4134)+JVS(21211)*UV(4135)+JVS(21220)*UV(4136)+JVS(21230)*UV(4137)+JVS(21239)*UV(4138)& - &+JVS(21248)*UV(4139)+JVS(21255)*UV(4140)+JVS(21261)*UV(4141)+JVS(21268)*UV(4142)+JVS(21275)*UV(4143)& - &+JVS(21281)*UV(4144)+JVS(21288)*UV(4145)+JVS(21295)*UV(4146)+JVS(21303)*UV(4147)+JVS(21309)*UV(4148)& - &+JVS(21317)*UV(4149)+JVS(21327)*UV(4150)+JVS(21354)*UV(4153)+JVS(21367)*UV(4154)+JVS(21391)*UV(4157)& - &+JVS(21399)*UV(4158)+JVS(21405)*UV(4159)+JVS(21421)*UV(4161)+JVS(21430)*UV(4162)+JVS(21438)*UV(4163)& - &+JVS(21455)*UV(4165)+JVS(21463)*UV(4166)+JVS(21470)*UV(4167)+JVS(21480)*UV(4168)+JVS(21490)*UV(4169)& - &+JVS(21499)*UV(4170)+JVS(21506)*UV(4171)+JVS(21515)*UV(4172)+JVS(21524)*UV(4173)+JVS(21547)*UV(4175)& - &+JVS(21553)*UV(4176)+JVS(21574)*UV(4178)+JVS(21592)*UV(4180)+JVS(21608)*UV(4181)+JVS(21619)*UV(4182)& - &+JVS(21650)*UV(4185)+JVS(21671)*UV(4187)+JVS(21680)*UV(4188)+JVS(21691)*UV(4189)+JVS(21708)*UV(4191)& - &+JVS(21717)*UV(4192)+JVS(21726)*UV(4193)+JVS(21735)*UV(4194)+JVS(21744)*UV(4195)+JVS(21757)*UV(4196)& - &+JVS(21766)*UV(4197)+JVS(21775)*UV(4198)+JVS(21789)*UV(4199)+JVS(21798)*UV(4200)+JVS(21806)*UV(4201)& - &+JVS(21818)*UV(4202)+JVS(21828)*UV(4203)+JVS(21837)*UV(4204)+JVS(21846)*UV(4205)+JVS(21855)*UV(4206)& - &+JVS(21865)*UV(4207)+JVS(21876)*UV(4208)+JVS(21885)*UV(4209)+JVS(21894)*UV(4210)+JVS(21904)*UV(4211)& - &+JVS(21913)*UV(4212)+JVS(21933)*UV(4214)+JVS(21942)*UV(4215)+JVS(21956)*UV(4216)+JVS(21965)*UV(4217)& - &+JVS(21977)*UV(4218)+JVS(21989)*UV(4219)+JVS(22002)*UV(4220)+JVS(22015)*UV(4221)+JVS(22025)*UV(4222)& - &+JVS(22057)*UV(4225)+JVS(22070)*UV(4226)+JVS(22080)*UV(4227)+JVS(22091)*UV(4228)+JVS(22101)*UV(4229)& - &+JVS(22111)*UV(4230)+JVS(22132)*UV(4232)+JVS(22142)*UV(4233)+JVS(22152)*UV(4234)+JVS(22163)*UV(4235)& - &+JVS(22171)*UV(4236)+JVS(22181)*UV(4237)+JVS(22191)*UV(4238)+JVS(22212)*UV(4240)+JVS(22226)*UV(4241)& - &+JVS(22234)*UV(4242)+JVS(22245)*UV(4243)+JVS(22254)*UV(4244)+JVS(22263)*UV(4245)+JVS(22272)*UV(4246)& - &+JVS(22305)*UV(4249)+JVS(22325)*UV(4251)+JVS(22334)*UV(4252)+JVS(22347)*UV(4253)+JVS(22357)*UV(4254)& - &+JVS(22366)*UV(4255)+JVS(22387)*UV(4257)+JVS(22404)*UV(4259)+JVS(22414)*UV(4260)+JVS(22435)*UV(4262)& - &+JVS(22446)*UV(4263)+JVS(22463)*UV(4265)+JVS(22473)*UV(4266)+JVS(22484)*UV(4267)+JVS(22493)*UV(4268)& - &+JVS(22503)*UV(4269)+JVS(22513)*UV(4270)+JVS(22522)*UV(4271)+JVS(22536)*UV(4273)+JVS(22546)*UV(4274)& - &+JVS(22555)*UV(4275)+JVS(22564)*UV(4276)+JVS(22574)*UV(4277)+JVS(22610)*UV(4280)+JVS(22619)*UV(4281)& - &+JVS(22636)*UV(4283)+JVS(22646)*UV(4284)+JVS(22655)*UV(4285)+JVS(22672)*UV(4287)+JVS(22681)*UV(4288)& - &+JVS(22690)*UV(4289)+JVS(22703)*UV(4290)+JVS(22712)*UV(4291)+JVS(22721)*UV(4292)+JVS(22730)*UV(4293)& - &+JVS(22752)*UV(4294)+JVS(22766)*UV(4295)+JVS(22775)*UV(4296)+JVS(22784)*UV(4297)+JVS(22793)*UV(4298)& - &+JVS(22806)*UV(4299)+JVS(22828)*UV(4301)+JVS(22845)*UV(4303)+JVS(22854)*UV(4304)+JVS(22863)*UV(4305)& - &+JVS(22872)*UV(4306)+JVS(22881)*UV(4307)+JVS(22894)*UV(4308)+JVS(22904)*UV(4309)+JVS(22916)*UV(4310)& - &+JVS(22926)*UV(4311)+JVS(22936)*UV(4312)+JVS(22960)*UV(4314)+JVS(22972)*UV(4315)+JVS(22983)*UV(4316)& - &+JVS(22992)*UV(4317)+JVS(23001)*UV(4318)+JVS(23014)*UV(4319)+JVS(23028)*UV(4321)+JVS(23047)*UV(4323)& - &+JVS(23060)*UV(4324)+JVS(23075)*UV(4325)+JVS(23094)*UV(4327)+JVS(23104)*UV(4328)+JVS(23119)*UV(4329)& - &+JVS(23172)*UV(4334)+JVS(23179)*UV(4335)+JVS(23188)*UV(4336)+JVS(23195)*UV(4337)+JVS(23204)*UV(4338)& - &+JVS(23210)*UV(4339)+JVS(23219)*UV(4340)+JVS(23225)*UV(4341)+JVS(23233)*UV(4342)+JVS(23243)*UV(4343)& - &+JVS(23252)*UV(4344)+JVS(23261)*UV(4345)+JVS(23269)*UV(4346)+JVS(23276)*UV(4347)+JVS(23284)*UV(4348)& - &+JVS(23292)*UV(4349)+JVS(23301)*UV(4350)+JVS(23308)*UV(4351)+JVS(23322)*UV(4352)+JVS(23329)*UV(4353)& - &+JVS(23336)*UV(4354)+JVS(23344)*UV(4355)+JVS(23352)*UV(4356)+JVS(23359)*UV(4357)+JVS(23366)*UV(4358)& - &+JVS(23374)*UV(4359)+JVS(23384)*UV(4360)+JVS(23392)*UV(4361)+JVS(23409)*UV(4363)+JVS(23416)*UV(4364)& - &+JVS(23427)*UV(4365)+JVS(23459)*UV(4367)+JVS(23466)*UV(4368)+JVS(23474)*UV(4369)+JVS(23481)*UV(4370)& - &+JVS(23488)*UV(4371)+JVS(23494)*UV(4372)+JVS(23513)*UV(4374)+JVS(23522)*UV(4375)+JVS(23535)*UV(4376)& - &+JVS(23542)*UV(4377)+JVS(23559)*UV(4379)+JVS(23568)*UV(4380)+JVS(23576)*UV(4381)+JVS(23582)*UV(4382)& - &+JVS(23596)*UV(4383)+JVS(23605)*UV(4384)+JVS(23616)*UV(4385)+JVS(23638)*UV(4387)+JVS(23656)*UV(4389)& - &+JVS(23664)*UV(4390)+JVS(23719)*UV(4394)+JVS(23751)*UV(4398)+JVS(23760)*UV(4399)+JVS(23768)*UV(4400)& - &+JVS(23849)*UV(4404)+JVS(23858)*UV(4405)+JVS(23869)*UV(4406)+JVS(23899)*UV(4409)+JVS(23909)*UV(4410)& - &+JVS(23921)*UV(4411)+JVS(23931)*UV(4412)+JVS(23950)*UV(4414)+JVS(23959)*UV(4415)+JVS(23967)*UV(4416)& - &+JVS(23980)*UV(4417)+JVS(23990)*UV(4418)+JVS(24002)*UV(4419)+JVS(24013)*UV(4420)+JVS(24025)*UV(4421)& - &+JVS(24033)*UV(4422)+JVS(24050)*UV(4423)+JVS(24059)*UV(4424)+JVS(24068)*UV(4425)+JVS(24087)*UV(4426)& - &+JVS(24097)*UV(4427)+JVS(24106)*UV(4428)+JVS(24117)*UV(4429)+JVS(24129)*UV(4430)+JVS(24141)*UV(4431)& - &+JVS(24150)*UV(4432)+JVS(24161)*UV(4433)+JVS(24170)*UV(4434)+JVS(24181)*UV(4435)+JVS(24190)*UV(4436)& - &+JVS(24220)*UV(4439)+JVS(24228)*UV(4440)+JVS(24242)*UV(4441)+JVS(24255)*UV(4442)+JVS(24267)*UV(4443)& - &+JVS(24287)*UV(4445)+JVS(24296)*UV(4446)+JVS(24307)*UV(4447)+JVS(24332)*UV(4449)+JVS(24344)*UV(4450)& - &+JVS(24353)*UV(4451)+JVS(24363)*UV(4452)+JVS(24392)*UV(4455)+JVS(24402)*UV(4456)+JVS(24421)*UV(4458)& - &+JVS(24430)*UV(4459)+JVS(24441)*UV(4460)+JVS(24452)*UV(4461)+JVS(24470)*UV(4463)+JVS(24479)*UV(4464)& - &+JVS(24489)*UV(4465)+JVS(24508)*UV(4467)+JVS(24518)*UV(4468)+JVS(24528)*UV(4469)+JVS(24538)*UV(4470)& - &+JVS(24557)*UV(4472)+JVS(24566)*UV(4473)+JVS(24582)*UV(4476)+JVS(24595)*UV(4477)+JVS(24625)*UV(4480)& - &+JVS(24637)*UV(4481)+JVS(24658)*UV(4482)+JVS(24669)*UV(4483)+JVS(24680)*UV(4484)+JVS(24695)*UV(4485)& - &+JVS(24707)*UV(4486)+JVS(24740)*UV(4489)+JVS(24757)*UV(4490)+JVS(24775)*UV(4491)+JVS(24835)*UV(4496)& - &+JVS(24848)*UV(4497)+JVS(24857)*UV(4498)+JVS(24876)*UV(4500)+JVS(24899)*UV(4502)+JVS(24910)*UV(4503)& - &+JVS(24936)*UV(4506)+JVS(25039)*UV(4510)+JVS(25048)*UV(4511)+JVS(25061)*UV(4513)+JVS(25082)*UV(4515)& - &+JVS(25091)*UV(4516)+JVS(25101)*UV(4517)+JVS(25111)*UV(4518)+JVS(25122)*UV(4519)+JVS(25132)*UV(4520)& - &+JVS(25144)*UV(4521)+JVS(25154)*UV(4522)+JVS(25164)*UV(4523)+JVS(25193)*UV(4525)+JVS(25228)*UV(4529)& - &+JVS(25260)*UV(4532)+JVS(25284)*UV(4534)+JVS(25292)*UV(4535)+JVS(25309)*UV(4536)+JVS(25332)*UV(4538)& - &+JVS(25344)*UV(4539)+JVS(25370)*UV(4541)+JVS(25379)*UV(4542)+JVS(25390)*UV(4543)+JVS(25416)*UV(4545)& - &+JVS(25427)*UV(4546)+JVS(25454)*UV(4548)+JVS(25465)*UV(4549)+JVS(25476)*UV(4550)+JVS(25498)*UV(4552)& - &+JVS(25509)*UV(4553)+JVS(25516)*UV(4554)+JVS(25542)*UV(4557)+JVS(25549)*UV(4558)+JVS(25576)*UV(4560)& - &+JVS(25583)*UV(4561)+JVS(25591)*UV(4562)+JVS(25599)*UV(4563)+JVS(25615)*UV(4564)+JVS(25623)*UV(4565)& - &+JVS(25630)*UV(4566)+JVS(25639)*UV(4567)+JVS(25646)*UV(4568)+JVS(25675)*UV(4571)+JVS(25683)*UV(4572)& - &+JVS(25690)*UV(4573)+JVS(25697)*UV(4574)+JVS(25703)*UV(4575)+JVS(25725)*UV(4577)+JVS(25731)*UV(4578)& - &+JVS(25738)*UV(4579)+JVS(25749)*UV(4580)+JVS(25757)*UV(4581)+JVS(25764)*UV(4582)+JVS(25773)*UV(4583)& - &+JVS(25780)*UV(4584)+JVS(25787)*UV(4585)+JVS(25795)*UV(4586)+JVS(25802)*UV(4587)+JVS(25824)*UV(4589)& - &+JVS(25832)*UV(4590)+JVS(25849)*UV(4591)+JVS(25862)*UV(4592)+JVS(25870)*UV(4593)+JVS(25878)*UV(4594)& - &+JVS(25886)*UV(4595)+JVS(25893)*UV(4596)+JVS(25903)*UV(4597)+JVS(25910)*UV(4598)+JVS(25918)*UV(4599)& - &+JVS(25977)*UV(4602)+JVS(26007)*UV(4607)+JVS(26016)*UV(4608)+JVS(26023)*UV(4609)+JVS(26030)*UV(4610)& - &+JVS(26040)*UV(4611)+JVS(26053)*UV(4612)+JVS(26064)*UV(4613)+JVS(26076)*UV(4614)+JVS(26087)*UV(4616)& - &+JVS(26092)*UV(4617)+JVS(26143)*UV(4620)+JVS(26176)*UV(4622)+JVS(26185)*UV(4623)+JVS(26200)*UV(4624)& - &+JVS(26208)*UV(4625)+JVS(26218)*UV(4626)+JVS(26228)*UV(4627)+JVS(26237)*UV(4628)+JVS(26247)*UV(4629)& - &+JVS(26270)*UV(4631)+JVS(26290)*UV(4633)+JVS(26300)*UV(4634)+JVS(26309)*UV(4635)+JVS(26319)*UV(4636)& - &+JVS(26337)*UV(4638)+JVS(26357)*UV(4640)+JVS(26366)*UV(4641)+JVS(26377)*UV(4642)+JVS(26386)*UV(4643)& - &+JVS(26401)*UV(4644)+JVS(26410)*UV(4645)+JVS(26418)*UV(4646)+JVS(26427)*UV(4647)+JVS(26439)*UV(4648)& - &+JVS(26448)*UV(4649)+JVS(26483)*UV(4652)+JVS(26492)*UV(4653)+JVS(26501)*UV(4654)+JVS(26511)*UV(4655)& - &+JVS(26520)*UV(4656)+JVS(26530)*UV(4657)+JVS(26543)*UV(4658)+JVS(26553)*UV(4659)+JVS(26562)*UV(4660)& - &+JVS(26570)*UV(4661)+JVS(26581)*UV(4662)+JVS(26609)*UV(4664)+JVS(26618)*UV(4665)+JVS(26634)*UV(4666)& - &+JVS(26645)*UV(4667)+JVS(26665)*UV(4669)+JVS(26701)*UV(4672)+JVS(26714)*UV(4673)+JVS(26722)*UV(4674)& - &+JVS(26733)*UV(4675)+JVS(26770)*UV(4679)+JVS(26779)*UV(4680)+JVS(26790)*UV(4681)+JVS(26810)*UV(4683)& - &+JVS(26820)*UV(4684)+JVS(26829)*UV(4685)+JVS(26843)*UV(4686)+JVS(26857)*UV(4687)+JVS(26866)*UV(4688)& - &+JVS(26876)*UV(4689)+JVS(26904)*UV(4692)+JVS(27016)*UV(4695)+JVS(27024)*UV(4696)+JVS(27032)*UV(4697)& - &+JVS(27041)*UV(4698)+JVS(27047)*UV(4699)+JVS(27055)*UV(4700)+JVS(27062)*UV(4701)+JVS(27071)*UV(4702)& - &+JVS(27078)*UV(4703)+JVS(27084)*UV(4704)+JVS(27091)*UV(4705)+JVS(27098)*UV(4706)+JVS(27104)*UV(4707)& - &+JVS(27125)*UV(4708)+JVS(27133)*UV(4709)+JVS(27158)*UV(4711)+JVS(27165)*UV(4712)+JVS(27172)*UV(4713)& - &+JVS(27180)*UV(4714)+JVS(27188)*UV(4715)+JVS(27195)*UV(4716)+JVS(27211)*UV(4718)+JVS(27221)*UV(4719)& - &+JVS(27228)*UV(4720)+JVS(27269)*UV(4722)+JVS(27276)*UV(4723)+JVS(27287)*UV(4724)+JVS(27293)*UV(4725)& - &+JVS(27306)*UV(4726)+JVS(27312)*UV(4727)+JVS(27364)*UV(4730)+JVS(27373)*UV(4731)+JVS(27379)*UV(4732)& - &+JVS(27387)*UV(4733)+JVS(27397)*UV(4734)+JVS(27403)*UV(4735)+JVS(27438)*UV(4738)+JVS(27450)*UV(4739)& - &+JVS(27464)*UV(4740)+JVS(27489)*UV(4742)+JVS(27509)*UV(4744)+JVS(27522)*UV(4745)+JVS(27529)*UV(4746)& - &+JVS(27565)*UV(4748)+JVS(27580)*UV(4749)+JVS(27590)*UV(4750)+JVS(27601)*UV(4751)+JVS(27615)*UV(4752)& - &+JVS(27627)*UV(4753)+JVS(27634)*UV(4754)+JVS(27650)*UV(4755)+JVS(27657)*UV(4756)+JVS(27674)*UV(4758)& - &+JVS(27689)*UV(4759)+JVS(27710)*UV(4760)+JVS(27718)*UV(4761)+JVS(27726)*UV(4762)+JVS(27741)*UV(4763)& - &+JVS(27756)*UV(4764)+JVS(27764)*UV(4765)+JVS(27773)*UV(4766)+JVS(27783)*UV(4767)+JVS(27806)*UV(4768)& - &+JVS(27819)*UV(4769)+JVS(27830)*UV(4770)+JVS(27840)*UV(4771)+JVS(27851)*UV(4772)+JVS(27863)*UV(4773)& - &+JVS(27871)*UV(4774)+JVS(27887)*UV(4775)+JVS(27902)*UV(4777)+JVS(27911)*UV(4778)+JVS(27919)*UV(4779)& - &+JVS(27928)*UV(4780)+JVS(27936)*UV(4781)+JVS(27944)*UV(4782)+JVS(27951)*UV(4783)+JVS(27959)*UV(4784)& - &+JVS(27967)*UV(4785)+JVS(27982)*UV(4787)+JVS(28004)*UV(4789)+JVS(28041)*UV(4792)+JVS(28066)*UV(4795)& - &+JVS(28147)*UV(4796)+JVS(28232)*UV(4802)+JVS(28238)*UV(4803)+JVS(28248)*UV(4804)+JVS(28268)*UV(4806)& - &+JVS(28277)*UV(4807)+JVS(28288)*UV(4808)+JVS(28297)*UV(4809)+JVS(28319)*UV(4811)+JVS(28333)*UV(4812)& - &+JVS(28343)*UV(4813)+JVS(28352)*UV(4814)+JVS(28366)*UV(4815)+JVS(28375)*UV(4816)+JVS(28385)*UV(4817)& - &+JVS(28394)*UV(4818)+JVS(28412)*UV(4820)+JVS(28418)*UV(4821)+JVS(28432)*UV(4822)+JVS(28453)*UV(4823)& - &+JVS(28470)*UV(4825)+JVS(28481)*UV(4826)+JVS(28492)*UV(4827)+JVS(28509)*UV(4829)+JVS(28521)*UV(4830)& - &+JVS(28539)*UV(4831)+JVS(28558)*UV(4833)+JVS(28581)*UV(4835)+JVS(28591)*UV(4836)+JVS(28600)*UV(4837)& - &+JVS(28628)*UV(4839)+JVS(28648)*UV(4841)+JVS(28697)*UV(4844)+JVS(28722)*UV(4846)+JVS(28739)*UV(4847)& - &+JVS(28751)*UV(4848)+JVS(28767)*UV(4849)+JVS(28789)*UV(4850)+JVS(28820)*UV(4852)+JVS(28836)*UV(4853)& - &+JVS(28850)*UV(4854)+JVS(28863)*UV(4855)+JVS(28875)*UV(4856)+JVS(28887)*UV(4857)+JVS(28898)*UV(4858)& - &+JVS(28920)*UV(4860)+JVS(28931)*UV(4861)+JVS(28943)*UV(4862)+JVS(28956)*UV(4863)+JVS(28973)*UV(4864)& - &+JVS(28993)*UV(4865)+JVS(29005)*UV(4866)+JVS(29019)*UV(4867)+JVS(29054)*UV(4870)+JVS(29071)*UV(4871)& - &+JVS(29116)*UV(4874)+JVS(29130)*UV(4875)+JVS(29137)*UV(4876)+JVS(29144)*UV(4877)+JVS(29152)*UV(4878)& - &+JVS(29159)*UV(4879)+JVS(29167)*UV(4880)+JVS(29174)*UV(4881)+JVS(29207)*UV(4884)+JVS(29218)*UV(4885)& - &+JVS(29226)*UV(4886)+JVS(29237)*UV(4887)+JVS(29248)*UV(4888)+JVS(29257)*UV(4889)+JVS(29270)*UV(4890)& - &+JVS(29279)*UV(4891)+JVS(29288)*UV(4892)+JVS(29300)*UV(4893)+JVS(29309)*UV(4894)+JVS(29342)*UV(4897)& - &+JVS(29355)*UV(4898)+JVS(29366)*UV(4899)+JVS(29377)*UV(4900)+JVS(29390)*UV(4901)+JVS(29410)*UV(4902)& - &+JVS(29420)*UV(4903)+JVS(29452)*UV(4904)+JVS(29464)*UV(4905)+JVS(29521)*UV(4909)+JVS(29542)*UV(4910)& - &+JVS(29554)*UV(4911)+JVS(29580)*UV(4913)+JVS(29606)*UV(4915)+JVS(29626)*UV(4916)+JVS(29641)*UV(4917)& - &+JVS(29676)*UV(4918)+JVS(29699)*UV(4920)+JVS(29716)*UV(4921)+JVS(29723)*UV(4922)+JVS(29733)*UV(4923)& - &+JVS(29754)*UV(4924)+JVS(29762)*UV(4925)+JVS(29774)*UV(4926)+JVS(29791)*UV(4928)+JVS(29813)*UV(4929)& - &+JVS(29827)*UV(4930)+JVS(29862)*UV(4931)+JVS(29870)*UV(4932)+JVS(29889)*UV(4934)+JVS(29899)*UV(4935)& - &+JVS(29914)*UV(4936)+JVS(30011)*UV(4938)+JVS(30056)*UV(4940)+JVS(30087)*UV(4942)+JVS(30128)*UV(4944)& - &+JVS(30143)*UV(4946)+JVS(30171)*UV(4947)+JVS(30181)*UV(4948)+JVS(30202)*UV(4949)+JVS(30253)*UV(4953)& - &+JVS(30268)*UV(4954)+JVS(30278)*UV(4955)+JVS(30300)*UV(4957)+JVS(30331)*UV(4958)+JVS(30348)*UV(4959)& - &+JVS(30360)*UV(4960)+JVS(30389)*UV(4962)+JVS(30458)*UV(4966)+JVS(30470)*UV(4967)+JVS(30479)*UV(4968)& - &+JVS(30493)*UV(4969)+JVS(30502)*UV(4970)+JVS(30508)*UV(4971)+JVS(30516)*UV(4972)+JVS(30549)*UV(4973)& - &+JVS(30557)*UV(4974)+JVS(30586)*UV(4977)+JVS(30616)*UV(4979)+JVS(30629)*UV(4980)+JVS(30649)*UV(4981)& - &+JVS(30658)*UV(4982)+JVS(30700)*UV(4983)+JVS(30713)*UV(4984)+JVS(30729)*UV(4985)+JVS(30757)*UV(4986)& - &+JVS(30767)*UV(4987)+JVS(30786)*UV(4989)+JVS(30799)*UV(4990)+JVS(30824)*UV(4991)+JVS(30835)*UV(4992)& - &+JVS(30845)*UV(4993)+JVS(30856)*UV(4994)+JVS(30882)*UV(4995)+JVS(30978)*UV(5000)+JVS(31010)*UV(5001)& - &+JVS(31029)*UV(5003)+JVS(31056)*UV(5004)+JVS(31069)*UV(5005)+JVS(31096)*UV(5006)+JVS(31114)*UV(5007)& - &+JVS(31130)*UV(5008)+JVS(31189)*UV(5011)+JVS(31230)*UV(5014)+JVS(31239)*UV(5015)+JVS(31257)*UV(5016)& - &+JVS(31272)*UV(5017)+JVS(31300)*UV(5019)+JVS(31313)*UV(5020)+JVS(31324)*UV(5021)+JVS(31333)*UV(5022)& - &+JVS(31371)*UV(5023)+JVS(31389)*UV(5025)+JVS(31428)*UV(5027)+JVS(31437)*UV(5028)+JVS(31457)*UV(5029)& - &+JVS(31510)*UV(5031)+JVS(31520)*UV(5032)+JVS(31528)*UV(5033)+JVS(31544)*UV(5034)+JVS(31554)*UV(5035)& - &+JVS(31572)*UV(5036)+JVS(31624)*UV(5038)+JVS(31645)*UV(5039)+JVS(31666)*UV(5041)+JVS(31694)*UV(5043)& - &+JVS(31709)*UV(5044)+JVS(31718)*UV(5045)+JVS(31810)*UV(5046)+JVS(31877)*UV(5052)+JVS(31898)*UV(5053)& - &+JVS(31914)*UV(5054)+JVS(31941)*UV(5055)+JVS(31949)*UV(5056)+JVS(32033)*UV(5059)+JVS(32053)*UV(5060)& - &+JVS(32062)*UV(5061)+JVS(32082)*UV(5062)+JVS(32120)*UV(5065)+JVS(32223)*UV(5071)+JVS(32256)*UV(5073)& - &+JVS(32264)*UV(5074)+JVS(32276)*UV(5075)+JVS(32293)*UV(5077)+JVS(32307)*UV(5078)+JVS(32330)*UV(5079)& - &+JVS(32376)*UV(5081)+JVS(32384)*UV(5082)+JVS(32416)*UV(5084)+JVS(32529)*UV(5088)+JVS(32558)*UV(5090)& - &+JVS(32569)*UV(5091)+JVS(32657)*UV(5096)+JVS(32678)*UV(5097)+JVS(32714)*UV(5098)+JVS(32730)*UV(5099)& - &+JVS(32765)*UV(5100)+JVS(32796)*UV(5101)+JVS(32855)*UV(5104)+JVS(32922)*UV(5106)+JVS(32930)*UV(5107)& - &+JVS(32941)*UV(5108)+JVS(32949)*UV(5109)+JVS(33000)*UV(5111)+JVS(33010)*UV(5112)+JVS(33039)*UV(5114)& - &+JVS(33075)*UV(5116)+JVS(33098)*UV(5117)+JVS(33108)*UV(5118)+JVS(33118)*UV(5119)+JVS(33131)*UV(5120)& - &+JVS(33155)*UV(5121)+JVS(33170)*UV(5122)+JVS(33299)*UV(5125)+JVS(33334)*UV(5127)+JVS(33352)*UV(5128)& - &+JVS(33388)*UV(5129)+JVS(33414)*UV(5130)+JVS(33437)*UV(5131)+JVS(33445)*UV(5132)+JVS(33460)*UV(5133)& - &+JVS(33479)*UV(5134)+JVS(33492)*UV(5135)+JVS(33521)*UV(5136)+JVS(33571)*UV(5137)+JVS(33579)*UV(5138)& - &+JVS(33714)*UV(5139)+JVS(33828)*UV(5142)+JVS(33905)*UV(5144)+JVS(33957)*UV(5145)+JVS(33965)*UV(5146)& - &+JVS(33982)*UV(5147)+JVS(34002)*UV(5148)+JVS(34026)*UV(5149)+JVS(34046)*UV(5150)+JVS(34067)*UV(5151)& - &+JVS(34115)*UV(5152)+JVS(34134)*UV(5154)+JVS(34151)*UV(5155)+JVS(34250)*UV(5158)+JVS(34513)*UV(5160)& - &+JVS(34549)*UV(5161)+JVS(34588)*UV(5163)+JVS(34617)*UV(5164)+JVS(34660)*UV(5165)+JVS(34683)*UV(5167)& - &+JVS(34784)*UV(5171)+JVS(34818)*UV(5172)+JVS(34831)*UV(5173)+JVS(34841)*UV(5174)+JVS(34962)*UV(5178)& - &+JVS(35006)*UV(5179)+JVS(35047)*UV(5180)+JVS(35055)*UV(5181)+JVS(35356)*UV(5183)+JVS(35415)*UV(5184)& - &+JVS(35437)*UV(5185)+JVS(35444)*UV(5186)+JVS(35566)*UV(5188)+JVS(35703)*UV(5191)+JVS(35717)*UV(5192)& - &+JVS(36009)*UV(5193)+JVS(36044)*UV(5194)+JVS(36106)*UV(5195)+JVS(36123)*UV(5196)+JVS(36182)*UV(5197)& - &+JVS(36199)*UV(5198)+JVS(36273)*UV(5199)+JVS(36801)*UV(5202)+JVS(36852)*UV(5203)+JVS(36861)*UV(5204)& - &+JVS(36887)*UV(5206)+JVS(36936)*UV(5208)+JVS(37035)*UV(5210)+JVS(37196)*UV(5214)+JVS(37225)*UV(5215)& - &+JVS(37280)*UV(5216)+JVS(37289)*UV(5217)+JVS(37300)*UV(5218)+JVS(37312)*UV(5219)+JVS(37368)*UV(5221)& - &+JVS(37669)*UV(5222)+JVS(37745)*UV(5224)+JVS(37783)*UV(5225)+JVS(37819)*UV(5226)+JVS(37973)*UV(5228)& - &+JVS(38015)*UV(5229)+JVS(38086)*UV(5230)+JVS(38787)*UV(5231)+JVS(38937)*UV(5232)+JVS(39190)*UV(5233)& - &+JVS(39339)*UV(5234)+JVS(39398)*UV(5235)+JVS(39415)*UV(5236)+JVS(39490)*UV(5237)+JVS(39562)*UV(5239)& - &+JVS(39681)*UV(5241)+JVS(39818)*UV(5243)+JVS(40448)*UV(5244)+JVS(40470)*UV(5245)+JVS(40506)*UV(5246)& - &+JVS(40537)*UV(5247)+JVS(45061)*UV(5250)+JVS(46586)*UV(5251)+JVS(47937)*UV(5252)+JVS(50213)*UV(5253)& - &+JVS(53212)*UV(5255)+JVS(54813)*UV(5256)+JVS(55269)*UV(5258) - JTUV(5256) = JVS(89)*UV(14)+JVS(97)*UV(16)+JVS(126)*UV(25)+JVS(158)*UV(35)+JVS(163)*UV(36)+JVS(183)*UV(42)+JVS(188)& - &*UV(43)+JVS(193)*UV(44)+JVS(198)*UV(45)+JVS(212)*UV(49)+JVS(217)*UV(50)+JVS(222)*UV(51)+JVS(242)*UV(57)& - &+JVS(268)*UV(65)+JVS(273)*UV(66)+JVS(284)*UV(69)+JVS(307)*UV(76)+JVS(315)*UV(78)+JVS(323)*UV(80)+JVS(331)& - &*UV(82)+JVS(351)*UV(88)+JVS(362)*UV(91)+JVS(367)*UV(92)+JVS(381)*UV(96)+JVS(386)*UV(97)+JVS(418)*UV(107)& - &+JVS(438)*UV(113)+JVS(446)*UV(115)+JVS(451)*UV(116)+JVS(456)*UV(117)+JVS(467)*UV(120)+JVS(485)*UV(125)& - &+JVS(502)*UV(130)+JVS(510)*UV(132)+JVS(525)*UV(137)+JVS(530)*UV(138)+JVS(538)*UV(140)+JVS(543)*UV(141)& - &+JVS(557)*UV(145)+JVS(562)*UV(146)+JVS(574)*UV(149)+JVS(580)*UV(150)+JVS(586)*UV(151)+JVS(593)*UV(152)& - &+JVS(599)*UV(153)+JVS(605)*UV(154)+JVS(611)*UV(155)+JVS(617)*UV(156)+JVS(623)*UV(157)+JVS(629)*UV(158)& - &+JVS(635)*UV(159)+JVS(641)*UV(160)+JVS(647)*UV(161)+JVS(653)*UV(162)+JVS(660)*UV(163)+JVS(667)*UV(164)& - &+JVS(673)*UV(165)+JVS(679)*UV(166)+JVS(685)*UV(167)+JVS(691)*UV(168)+JVS(698)*UV(169)+JVS(705)*UV(170)& - &+JVS(711)*UV(171)+JVS(717)*UV(172)+JVS(723)*UV(173)+JVS(729)*UV(174)+JVS(735)*UV(175)+JVS(741)*UV(176)& - &+JVS(747)*UV(177)+JVS(753)*UV(178)+JVS(759)*UV(179)+JVS(765)*UV(180)+JVS(773)*UV(182)+JVS(779)*UV(183)& - &+JVS(785)*UV(184)+JVS(791)*UV(185)+JVS(797)*UV(186)+JVS(803)*UV(187)+JVS(809)*UV(188)+JVS(815)*UV(189)& - &+JVS(821)*UV(190)+JVS(827)*UV(191)+JVS(833)*UV(192)+JVS(839)*UV(193)+JVS(845)*UV(194)+JVS(851)*UV(195)& - &+JVS(857)*UV(196)+JVS(863)*UV(197)+JVS(871)*UV(199)+JVS(877)*UV(200)+JVS(883)*UV(201)+JVS(889)*UV(202)& - &+JVS(895)*UV(203)+JVS(902)*UV(204)+JVS(908)*UV(205)+JVS(915)*UV(206)+JVS(937)*UV(211)+JVS(1081)*UV(254)& - &+JVS(1142)*UV(271)+JVS(1210)*UV(290)+JVS(1238)*UV(297)+JVS(1251)*UV(300)+JVS(1303)*UV(315)+JVS(1346)& - &*UV(326)+JVS(1492)*UV(370)+JVS(1625)*UV(407)+JVS(1674)*UV(421)+JVS(1750)*UV(443)+JVS(1761)*UV(445)& - &+JVS(1782)*UV(450)+JVS(2049)*UV(528)+JVS(2063)*UV(532)+JVS(2068)*UV(533)+JVS(2073)*UV(534)+JVS(2078)& - &*UV(535)+JVS(2086)*UV(537)+JVS(2094)*UV(539)+JVS(2102)*UV(541)+JVS(2113)*UV(544)+JVS(2118)*UV(545)& - &+JVS(2132)*UV(549)+JVS(2137)*UV(550)+JVS(2142)*UV(551)+JVS(2147)*UV(552)+JVS(2152)*UV(553)+JVS(2160)& - &*UV(555)+JVS(2168)*UV(557)+JVS(2195)*UV(564)+JVS(2215)*UV(570)+JVS(2220)*UV(571)+JVS(2228)*UV(573)& - &+JVS(2233)*UV(574)+JVS(2238)*UV(575)+JVS(2260)*UV(581)+JVS(2265)*UV(582)+JVS(2273)*UV(584)+JVS(2278)& - &*UV(585)+JVS(2292)*UV(589)+JVS(2303)*UV(592)+JVS(2318)*UV(595)+JVS(2323)*UV(596)+JVS(2328)*UV(597)& - &+JVS(2339)*UV(600)+JVS(2350)*UV(603)+JVS(2358)*UV(605)+JVS(2379)*UV(610)+JVS(2400)*UV(615)+JVS(2408)& - &*UV(617)+JVS(2413)*UV(618)+JVS(2418)*UV(619)+JVS(2423)*UV(620)+JVS(2434)*UV(623)+JVS(2439)*UV(624)& - &+JVS(2444)*UV(625)+JVS(2452)*UV(627)+JVS(2460)*UV(629)+JVS(2465)*UV(630)+JVS(2475)*UV(632)+JVS(2486)& - &*UV(635)+JVS(2494)*UV(637)+JVS(2499)*UV(638)+JVS(2504)*UV(639)+JVS(2512)*UV(641)+JVS(2522)*UV(643)& - &+JVS(2527)*UV(644)+JVS(2532)*UV(645)+JVS(2537)*UV(646)+JVS(2545)*UV(648)+JVS(2550)*UV(649)+JVS(2571)& - &*UV(654)+JVS(2576)*UV(655)+JVS(2581)*UV(656)+JVS(2589)*UV(658)+JVS(2597)*UV(660)+JVS(2608)*UV(663)& - &+JVS(2616)*UV(665)+JVS(2621)*UV(666)+JVS(2627)*UV(668)+JVS(2632)*UV(669)+JVS(2637)*UV(670)+JVS(2645)& - &*UV(672)+JVS(2650)*UV(673)+JVS(2655)*UV(674)+JVS(2666)*UV(677)+JVS(2674)*UV(679)+JVS(2688)*UV(682)& - &+JVS(2705)*UV(687)+JVS(2710)*UV(688)+JVS(2715)*UV(689)+JVS(2731)*UV(693)+JVS(2739)*UV(695)+JVS(2747)& - &*UV(697)+JVS(2752)*UV(698)+JVS(2771)*UV(703)+JVS(2776)*UV(704)+JVS(2784)*UV(706)+JVS(2789)*UV(707)& - &+JVS(2794)*UV(708)+JVS(2804)*UV(710)+JVS(2809)*UV(711)+JVS(2814)*UV(712)+JVS(2822)*UV(714)+JVS(2832)& - &*UV(716)+JVS(2837)*UV(717)+JVS(2848)*UV(720)+JVS(2853)*UV(721)+JVS(2858)*UV(722)+JVS(2866)*UV(724)& - &+JVS(2874)*UV(726)+JVS(2879)*UV(727)+JVS(2884)*UV(728)+JVS(2889)*UV(729)+JVS(2894)*UV(730)+JVS(2899)& - &*UV(731)+JVS(2907)*UV(733)+JVS(2912)*UV(734)+JVS(2927)*UV(737)+JVS(2935)*UV(739)+JVS(2940)*UV(740)& - &+JVS(2945)*UV(741)+JVS(2953)*UV(743)+JVS(2958)*UV(744)+JVS(2963)*UV(745)+JVS(2968)*UV(746)+JVS(2973)& - &*UV(747)+JVS(2978)*UV(748)+JVS(2983)*UV(749)+JVS(2988)*UV(750)+JVS(3001)*UV(753)+JVS(3009)*UV(755)& - &+JVS(3014)*UV(756)+JVS(3029)*UV(760)+JVS(3034)*UV(761)+JVS(3048)*UV(765)+JVS(3059)*UV(768)+JVS(3067)& - &*UV(770)+JVS(3078)*UV(773)+JVS(3083)*UV(774)+JVS(3088)*UV(775)+JVS(3093)*UV(776)+JVS(3098)*UV(777)& - &+JVS(3103)*UV(778)+JVS(3111)*UV(780)+JVS(3116)*UV(781)+JVS(3121)*UV(782)+JVS(3126)*UV(783)+JVS(3131)& - &*UV(784)+JVS(3139)*UV(786)+JVS(3144)*UV(787)+JVS(3158)*UV(791)+JVS(3163)*UV(792)+JVS(3174)*UV(795)& - &+JVS(3182)*UV(797)+JVS(3187)*UV(798)+JVS(3195)*UV(800)+JVS(3200)*UV(801)+JVS(3205)*UV(802)+JVS(3225)& - &*UV(808)+JVS(3230)*UV(809)+JVS(3235)*UV(810)+JVS(3249)*UV(814)+JVS(3254)*UV(815)+JVS(3259)*UV(816)& - &+JVS(3264)*UV(817)+JVS(3277)*UV(820)+JVS(4042)*UV(1011)+JVS(4964)*UV(1240)+JVS(4988)*UV(1246)+JVS(5389)& - &*UV(1346)+JVS(6221)*UV(1552)+JVS(6227)*UV(1553)+JVS(6240)*UV(1556)+JVS(6252)*UV(1559)+JVS(6267)*UV(1563)& - &+JVS(6273)*UV(1564)+JVS(6292)*UV(1568)+JVS(6309)*UV(1572)+JVS(6313)*UV(1573)+JVS(6319)*UV(1574)+JVS(6339)& - &*UV(1579)+JVS(6342)*UV(1580)+JVS(6358)*UV(1583)+JVS(6394)*UV(1592)+JVS(6400)*UV(1593)+JVS(6409)*UV(1595)& - &+JVS(6418)*UV(1597)+JVS(6452)*UV(1605)+JVS(6460)*UV(1606)+JVS(6468)*UV(1607)+JVS(6476)*UV(1608)+JVS(6499)& - &*UV(1614)+JVS(6508)*UV(1616)+JVS(6516)*UV(1617)+JVS(6530)*UV(1620)+JVS(6541)*UV(1622)+JVS(6552)*UV(1624)& - &+JVS(6564)*UV(1627)+JVS(6586)*UV(1631)+JVS(6598)*UV(1634)+JVS(6613)*UV(1638)+JVS(6623)*UV(1640)+JVS(6644)& - &*UV(1645)+JVS(6668)*UV(1650)+JVS(6679)*UV(1652)+JVS(6689)*UV(1654)+JVS(6724)*UV(1661)+JVS(6730)*UV(1662)& - &+JVS(6736)*UV(1663)+JVS(6751)*UV(1667)+JVS(6780)*UV(1675)+JVS(6790)*UV(1677)+JVS(6799)*UV(1679)+JVS(6807)& - &*UV(1680)+JVS(6822)*UV(1684)+JVS(6843)*UV(1689)+JVS(6853)*UV(1691)+JVS(6859)*UV(1692)+JVS(6871)*UV(1695)& - &+JVS(6891)*UV(1699)+JVS(6903)*UV(1702)+JVS(6936)*UV(1710)+JVS(6952)*UV(1713)+JVS(6960)*UV(1714)+JVS(6966)& - &*UV(1715)+JVS(6984)*UV(1720)+JVS(6990)*UV(1721)+JVS(7000)*UV(1723)+JVS(7006)*UV(1724)+JVS(7012)*UV(1725)& - &+JVS(7023)*UV(1727)+JVS(7047)*UV(1732)+JVS(7069)*UV(1737)+JVS(7084)*UV(1739)+JVS(7093)*UV(1741)+JVS(7102)& - &*UV(1743)+JVS(7113)*UV(1745)+JVS(7124)*UV(1748)+JVS(7136)*UV(1750)+JVS(7157)*UV(1754)+JVS(7165)*UV(1755)& - &+JVS(7188)*UV(1760)+JVS(7229)*UV(1769)+JVS(7249)*UV(1773)+JVS(7257)*UV(1775)+JVS(7283)*UV(1781)+JVS(7310)& - &*UV(1787)+JVS(7323)*UV(1789)+JVS(7341)*UV(1792)+JVS(7361)*UV(1796)+JVS(7377)*UV(1799)+JVS(7398)*UV(1803)& - &+JVS(7406)*UV(1805)+JVS(7420)*UV(1808)+JVS(7429)*UV(1810)+JVS(7442)*UV(1812)+JVS(7454)*UV(1814)+JVS(7459)& - &*UV(1815)+JVS(7476)*UV(1818)+JVS(7488)*UV(1820)+JVS(7496)*UV(1821)+JVS(7504)*UV(1822)+JVS(7517)*UV(1825)& - &+JVS(7557)*UV(1833)+JVS(7582)*UV(1838)+JVS(7611)*UV(1845)+JVS(7623)*UV(1847)+JVS(7628)*UV(1848)+JVS(7649)& - &*UV(1852)+JVS(7684)*UV(1860)+JVS(7708)*UV(1865)+JVS(7713)*UV(1866)+JVS(7721)*UV(1867)+JVS(7746)*UV(1872)& - &+JVS(7766)*UV(1877)+JVS(7787)*UV(1882)+JVS(7824)*UV(1891)+JVS(7829)*UV(1892)+JVS(7879)*UV(1903)+JVS(7895)& - &*UV(1906)+JVS(7915)*UV(1910)+JVS(7973)*UV(1923)+JVS(7978)*UV(1924)+JVS(7991)*UV(1927)+JVS(8011)*UV(1931)& - &+JVS(8030)*UV(1936)+JVS(8058)*UV(1942)+JVS(8067)*UV(1944)+JVS(8075)*UV(1945)+JVS(8100)*UV(1951)+JVS(8119)& - &*UV(1955)+JVS(8140)*UV(1960)+JVS(8148)*UV(1961)+JVS(8157)*UV(1962)+JVS(8178)*UV(1967)+JVS(8198)*UV(1971)& - &+JVS(8219)*UV(1975)+JVS(8262)*UV(1984)+JVS(8274)*UV(1986)+JVS(8290)*UV(1989)+JVS(8330)*UV(1998)+JVS(8343)& - &*UV(2000)+JVS(8360)*UV(2004)+JVS(8365)*UV(2005)+JVS(8378)*UV(2008)+JVS(8396)*UV(2012)+JVS(8411)*UV(2015)& - &+JVS(8450)*UV(2024)+JVS(8471)*UV(2029)+JVS(8479)*UV(2030)+JVS(8487)*UV(2031)+JVS(8500)*UV(2033)+JVS(8513)& - &*UV(2035)+JVS(8542)*UV(2041)+JVS(8569)*UV(2048)+JVS(8581)*UV(2050)+JVS(8598)*UV(2054)+JVS(8611)*UV(2056)& - &+JVS(8631)*UV(2060)+JVS(8656)*UV(2066)+JVS(8689)*UV(2073)+JVS(8705)*UV(2076)+JVS(8742)*UV(2085)+JVS(8758)& - &*UV(2088)+JVS(8767)*UV(2090)+JVS(8812)*UV(2100)+JVS(8861)*UV(2112)+JVS(8882)*UV(2117)+JVS(8907)*UV(2122)& - &+JVS(8938)*UV(2130)+JVS(9005)*UV(2145)+JVS(9059)*UV(2158)+JVS(9076)*UV(2162)+JVS(9084)*UV(2163)+JVS(9100)& - &*UV(2167)+JVS(9113)*UV(2170)+JVS(9129)*UV(2173)+JVS(9185)*UV(2186)+JVS(9206)*UV(2190)+JVS(9248)*UV(2200)& - &+JVS(9253)*UV(2201)+JVS(9262)*UV(2203)+JVS(9283)*UV(2207)+JVS(9298)*UV(2210)+JVS(9367)*UV(2226)+JVS(9380)& - &*UV(2229)+JVS(9403)*UV(2234)+JVS(9420)*UV(2238)+JVS(9465)*UV(2249)+JVS(9569)*UV(2274)+JVS(9592)*UV(2279)& - &+JVS(9600)*UV(2281)+JVS(9617)*UV(2284)+JVS(9629)*UV(2287)+JVS(9659)*UV(2293)+JVS(9710)*UV(2304)+JVS(9726)& - &*UV(2308)+JVS(9788)*UV(2322)+JVS(9793)*UV(2323)+JVS(9801)*UV(2324)+JVS(9812)*UV(2326)+JVS(9848)*UV(2334)& - &+JVS(9939)*UV(2356)+JVS(9961)*UV(2361)+JVS(10020)*UV(2374)+JVS(10029)*UV(2376)+JVS(10091)*UV(2390)& - &+JVS(10123)*UV(2398)+JVS(10131)*UV(2399)+JVS(10200)*UV(2415)+JVS(10220)*UV(2420)+JVS(10260)*UV(2430)& - &+JVS(10358)*UV(2452)+JVS(10383)*UV(2457)+JVS(10411)*UV(2464)+JVS(10420)*UV(2465)+JVS(10461)*UV(2473)& - &+JVS(10535)*UV(2490)+JVS(10546)*UV(2492)+JVS(10553)*UV(2493)+JVS(10565)*UV(2495)+JVS(10596)*UV(2502)& - &+JVS(10615)*UV(2506)+JVS(10626)*UV(2508)+JVS(10646)*UV(2512)+JVS(10665)*UV(2516)+JVS(10689)*UV(2521)& - &+JVS(10712)*UV(2526)+JVS(10725)*UV(2528)+JVS(10756)*UV(2535)+JVS(10763)*UV(2536)+JVS(10779)*UV(2539)& - &+JVS(10807)*UV(2545)+JVS(10830)*UV(2549)+JVS(10837)*UV(2550)+JVS(10844)*UV(2551)+JVS(10871)*UV(2557)& - &+JVS(10890)*UV(2561)+JVS(10899)*UV(2562)+JVS(10906)*UV(2563)+JVS(10921)*UV(2566)+JVS(10966)*UV(2575)& - &+JVS(10977)*UV(2577)+JVS(10984)*UV(2578)+JVS(10999)*UV(2581)+JVS(11022)*UV(2586)+JVS(11033)*UV(2588)& - &+JVS(11042)*UV(2589)+JVS(11053)*UV(2591)+JVS(11060)*UV(2592)+JVS(11073)*UV(2594)+JVS(11081)*UV(2595)& - &+JVS(11088)*UV(2596)+JVS(11099)*UV(2598)+JVS(11106)*UV(2599)+JVS(11129)*UV(2604)+JVS(11144)*UV(2607)& - &+JVS(11176)*UV(2614)+JVS(11215)*UV(2623)+JVS(11264)*UV(2634)+JVS(11285)*UV(2638)+JVS(11292)*UV(2639)& - &+JVS(11303)*UV(2641)+JVS(11312)*UV(2642)+JVS(11325)*UV(2644)+JVS(11339)*UV(2646)+JVS(11347)*UV(2647)& - &+JVS(11399)*UV(2659)+JVS(11415)*UV(2662)+JVS(11439)*UV(2667)+JVS(11446)*UV(2668)+JVS(11481)*UV(2676)& - &+JVS(11496)*UV(2679)+JVS(11513)*UV(2682)+JVS(11556)*UV(2692)+JVS(11567)*UV(2694)+JVS(11584)*UV(2697)& - &+JVS(11596)*UV(2699)+JVS(11627)*UV(2706)+JVS(11634)*UV(2707)+JVS(11650)*UV(2710)+JVS(11689)*UV(2717)& - &+JVS(11710)*UV(2720)+JVS(11722)*UV(2722)+JVS(11733)*UV(2724)+JVS(11752)*UV(2728)+JVS(11767)*UV(2731)& - &+JVS(11774)*UV(2732)+JVS(11781)*UV(2733)+JVS(11787)*UV(2734)+JVS(11798)*UV(2736)+JVS(11813)*UV(2739)& - &+JVS(11824)*UV(2741)+JVS(11839)*UV(2744)+JVS(11847)*UV(2745)+JVS(11855)*UV(2746)+JVS(11862)*UV(2747)& - &+JVS(11873)*UV(2749)+JVS(11880)*UV(2750)+JVS(11887)*UV(2751)+JVS(11894)*UV(2752)+JVS(11921)*UV(2758)& - &+JVS(11932)*UV(2760)+JVS(11943)*UV(2762)+JVS(11967)*UV(2767)+JVS(11974)*UV(2768)+JVS(11985)*UV(2770)& - &+JVS(11992)*UV(2771)+JVS(12021)*UV(2776)+JVS(12074)*UV(2788)+JVS(12082)*UV(2789)+JVS(12109)*UV(2795)& - &+JVS(12124)*UV(2798)+JVS(12159)*UV(2806)+JVS(12165)*UV(2807)+JVS(12206)*UV(2816)+JVS(12217)*UV(2818)& - &+JVS(12224)*UV(2819)+JVS(12231)*UV(2820)+JVS(12238)*UV(2821)+JVS(12263)*UV(2826)+JVS(12270)*UV(2827)& - &+JVS(12289)*UV(2831)+JVS(12296)*UV(2832)+JVS(12319)*UV(2837)+JVS(12334)*UV(2840)+JVS(12366)*UV(2847)& - &+JVS(12377)*UV(2849)+JVS(12388)*UV(2851)+JVS(12399)*UV(2853)+JVS(12430)*UV(2858)+JVS(12444)*UV(2861)& - &+JVS(12463)*UV(2865)+JVS(12482)*UV(2869)+JVS(12505)*UV(2874)+JVS(12538)*UV(2881)+JVS(12574)*UV(2889)& - &+JVS(12581)*UV(2890)+JVS(12589)*UV(2891)+JVS(12604)*UV(2894)+JVS(12619)*UV(2897)+JVS(12642)*UV(2902)& - &+JVS(12649)*UV(2903)+JVS(12660)*UV(2905)+JVS(12668)*UV(2906)+JVS(12705)*UV(2912)+JVS(12727)*UV(2916)& - &+JVS(12738)*UV(2918)+JVS(12745)*UV(2919)+JVS(12761)*UV(2922)+JVS(12781)*UV(2926)+JVS(12805)*UV(2931)& - &+JVS(12819)*UV(2933)+JVS(12830)*UV(2935)+JVS(12842)*UV(2937)+JVS(12859)*UV(2939)+JVS(12882)*UV(2944)& - &+JVS(12893)*UV(2946)+JVS(12909)*UV(2949)+JVS(12924)*UV(2952)+JVS(12933)*UV(2953)+JVS(12941)*UV(2954)& - &+JVS(12964)*UV(2959)+JVS(12971)*UV(2960)+JVS(12978)*UV(2961)+JVS(12985)*UV(2962)+JVS(12992)*UV(2963)& - &+JVS(13020)*UV(2967)+JVS(13027)*UV(2968)+JVS(13046)*UV(2972)+JVS(13061)*UV(2974)+JVS(13103)*UV(2982)& - &+JVS(13110)*UV(2983)+JVS(13125)*UV(2986)+JVS(13140)*UV(2989)+JVS(13148)*UV(2990)+JVS(13158)*UV(2992)& - &+JVS(13170)*UV(2994)+JVS(13177)*UV(2995)+JVS(13185)*UV(2996)+JVS(13192)*UV(2997)+JVS(13209)*UV(3000)& - &+JVS(13216)*UV(3001)+JVS(13220)*UV(3002)+JVS(13231)*UV(3004)+JVS(13256)*UV(3009)+JVS(13277)*UV(3013)& - &+JVS(13292)*UV(3016)+JVS(13340)*UV(3027)+JVS(13347)*UV(3028)+JVS(13358)*UV(3030)+JVS(13370)*UV(3032)& - &+JVS(13389)*UV(3036)+JVS(13396)*UV(3037)+JVS(13407)*UV(3039)+JVS(13419)*UV(3041)+JVS(13451)*UV(3048)& - &+JVS(13463)*UV(3050)+JVS(13482)*UV(3054)+JVS(13503)*UV(3058)+JVS(13522)*UV(3062)+JVS(13533)*UV(3064)& - &+JVS(13540)*UV(3065)+JVS(13548)*UV(3066)+JVS(13555)*UV(3067)+JVS(13567)*UV(3069)+JVS(13578)*UV(3071)& - &+JVS(13585)*UV(3072)+JVS(13592)*UV(3073)+JVS(13599)*UV(3074)+JVS(13622)*UV(3079)+JVS(13630)*UV(3080)& - &+JVS(13651)*UV(3084)+JVS(13656)*UV(3085)+JVS(13668)*UV(3087)+JVS(13673)*UV(3088)+JVS(13700)*UV(3092)& - &+JVS(13705)*UV(3093)+JVS(13710)*UV(3094)+JVS(13715)*UV(3095)+JVS(13718)*UV(3096)+JVS(13721)*UV(3097)& - &+JVS(13726)*UV(3098)+JVS(13736)*UV(3100)+JVS(13741)*UV(3101)+JVS(13764)*UV(3104)+JVS(13767)*UV(3105)& - &+JVS(13804)*UV(3111)+JVS(13809)*UV(3112)+JVS(13812)*UV(3113)+JVS(13817)*UV(3114)+JVS(13828)*UV(3116)& - &+JVS(13849)*UV(3119)+JVS(13854)*UV(3120)+JVS(13875)*UV(3123)+JVS(13887)*UV(3125)+JVS(13900)*UV(3127)& - &+JVS(13920)*UV(3129)+JVS(13924)*UV(3130)+JVS(13928)*UV(3131)+JVS(13944)*UV(3134)+JVS(13948)*UV(3135)& - &+JVS(13952)*UV(3136)+JVS(13957)*UV(3137)+JVS(13960)*UV(3138)+JVS(13964)*UV(3139)+JVS(13969)*UV(3140)& - &+JVS(13979)*UV(3142)+JVS(13984)*UV(3143)+JVS(13987)*UV(3144)+JVS(13990)*UV(3145)+JVS(13995)*UV(3146)& - &+JVS(14010)*UV(3149)+JVS(14015)*UV(3150)+JVS(14027)*UV(3152)+JVS(14032)*UV(3153)+JVS(14050)*UV(3157)& - &+JVS(14054)*UV(3158)+JVS(14067)*UV(3161)+JVS(14072)*UV(3162)+JVS(14077)*UV(3163)+JVS(14081)*UV(3164)& - &+JVS(14086)*UV(3165)+JVS(14099)*UV(3167)+JVS(14110)*UV(3169)+JVS(14115)*UV(3170)+JVS(14126)*UV(3172)& - &+JVS(14160)*UV(3178)+JVS(14163)*UV(3179)+JVS(14167)*UV(3180)+JVS(14172)*UV(3181)+JVS(14175)*UV(3182)& - &+JVS(14206)*UV(3187)+JVS(14216)*UV(3189)+JVS(14221)*UV(3190)+JVS(14226)*UV(3191)+JVS(14229)*UV(3192)& - &+JVS(14233)*UV(3193)+JVS(14241)*UV(3194)+JVS(14252)*UV(3195)+JVS(14345)*UV(3215)+JVS(14363)*UV(3219)& - &+JVS(14440)*UV(3234)+JVS(14473)*UV(3241)+JVS(14500)*UV(3244)+JVS(14519)*UV(3246)+JVS(14533)*UV(3248)& - &+JVS(14554)*UV(3252)+JVS(14569)*UV(3255)+JVS(14604)*UV(3263)+JVS(14629)*UV(3268)+JVS(14637)*UV(3269)& - &+JVS(14696)*UV(3281)+JVS(14711)*UV(3283)+JVS(14721)*UV(3284)+JVS(14776)*UV(3296)+JVS(14800)*UV(3301)& - &+JVS(14923)*UV(3329)+JVS(14949)*UV(3332)+JVS(14957)*UV(3333)+JVS(14969)*UV(3335)+JVS(14991)*UV(3338)& - &+JVS(15016)*UV(3342)+JVS(15034)*UV(3344)+JVS(15049)*UV(3346)+JVS(15056)*UV(3347)+JVS(15087)*UV(3351)& - &+JVS(15147)*UV(3361)+JVS(15154)*UV(3362)+JVS(15161)*UV(3363)+JVS(15190)*UV(3367)+JVS(15217)*UV(3370)& - &+JVS(15224)*UV(3371)+JVS(15260)*UV(3375)+JVS(15274)*UV(3377)+JVS(15292)*UV(3380)+JVS(15299)*UV(3381)& - &+JVS(15313)*UV(3383)+JVS(15338)*UV(3386)+JVS(15351)*UV(3388)+JVS(15367)*UV(3390)+JVS(15389)*UV(3393)& - &+JVS(15403)*UV(3395)+JVS(15410)*UV(3396)+JVS(15429)*UV(3398)+JVS(15442)*UV(3400)+JVS(15455)*UV(3402)& - &+JVS(15464)*UV(3403)+JVS(15472)*UV(3404)+JVS(15480)*UV(3405)+JVS(15487)*UV(3406)+JVS(15494)*UV(3407)& - &+JVS(15513)*UV(3410)+JVS(15544)*UV(3414)+JVS(15551)*UV(3415)+JVS(15566)*UV(3417)+JVS(15577)*UV(3419)& - &+JVS(15594)*UV(3421)+JVS(15601)*UV(3422)+JVS(15608)*UV(3423)+JVS(15616)*UV(3424)+JVS(15624)*UV(3425)& - &+JVS(15650)*UV(3429)+JVS(15658)*UV(3430)+JVS(15702)*UV(3437)+JVS(15719)*UV(3440)+JVS(15726)*UV(3442)& - &+JVS(15778)*UV(3454)+JVS(15792)*UV(3456)+JVS(15818)*UV(3461)+JVS(15833)*UV(3465)+JVS(15837)*UV(3466)& - &+JVS(15855)*UV(3470)+JVS(15859)*UV(3471)+JVS(15863)*UV(3472)+JVS(15877)*UV(3474)+JVS(15922)*UV(3481)& - &+JVS(15926)*UV(3482)+JVS(15934)*UV(3483)+JVS(15939)*UV(3484)+JVS(15961)*UV(3488)+JVS(15968)*UV(3489)& - &+JVS(15973)*UV(3490)+JVS(15980)*UV(3491)+JVS(15986)*UV(3492)+JVS(15998)*UV(3494)+JVS(16008)*UV(3496)& - &+JVS(16033)*UV(3499)+JVS(16057)*UV(3503)+JVS(16077)*UV(3506)+JVS(16084)*UV(3507)+JVS(16088)*UV(3508)& - &+JVS(16095)*UV(3509)+JVS(16101)*UV(3510)+JVS(16108)*UV(3511)+JVS(16112)*UV(3512)+JVS(16119)*UV(3513)& - &+JVS(16165)*UV(3518)+JVS(16169)*UV(3519)+JVS(16181)*UV(3521)+JVS(16195)*UV(3523)+JVS(16205)*UV(3525)& - &+JVS(16211)*UV(3526)+JVS(16218)*UV(3527)+JVS(16245)*UV(3531)+JVS(16262)*UV(3534)+JVS(16300)*UV(3538)& - &+JVS(16307)*UV(3539)+JVS(16341)*UV(3543)+JVS(16353)*UV(3545)+JVS(16360)*UV(3546)+JVS(16392)*UV(3551)& - &+JVS(16402)*UV(3553)+JVS(16410)*UV(3554)+JVS(16455)*UV(3560)+JVS(16473)*UV(3562)+JVS(16487)*UV(3564)& - &+JVS(16495)*UV(3565)+JVS(16501)*UV(3566)+JVS(16509)*UV(3567)+JVS(16515)*UV(3568)+JVS(16524)*UV(3569)& - &+JVS(16532)*UV(3570)+JVS(16547)*UV(3572)+JVS(16555)*UV(3573)+JVS(16562)*UV(3574)+JVS(16569)*UV(3575)& - &+JVS(16577)*UV(3576)+JVS(16584)*UV(3577)+JVS(16592)*UV(3578)+JVS(16599)*UV(3579)+JVS(16616)*UV(3581)& - &+JVS(16623)*UV(3582)+JVS(16641)*UV(3584)+JVS(16648)*UV(3585)+JVS(16655)*UV(3586)+JVS(16662)*UV(3587)& - &+JVS(16670)*UV(3588)+JVS(16678)*UV(3589)+JVS(16699)*UV(3591)+JVS(16706)*UV(3592)+JVS(16739)*UV(3596)& - &+JVS(16746)*UV(3597)+JVS(16753)*UV(3598)+JVS(16771)*UV(3600)+JVS(16815)*UV(3605)+JVS(16823)*UV(3606)& - &+JVS(16858)*UV(3610)+JVS(16866)*UV(3611)+JVS(16882)*UV(3613)+JVS(16890)*UV(3614)+JVS(16898)*UV(3615)& - &+JVS(16990)*UV(3626)+JVS(16997)*UV(3627)+JVS(17030)*UV(3631)+JVS(17037)*UV(3632)+JVS(17043)*UV(3633)& - &+JVS(17048)*UV(3634)+JVS(17060)*UV(3636)+JVS(17066)*UV(3637)+JVS(17110)*UV(3640)+JVS(17117)*UV(3641)& - &+JVS(17140)*UV(3643)+JVS(17152)*UV(3644)+JVS(17162)*UV(3645)+JVS(17182)*UV(3648)+JVS(17192)*UV(3649)& - &+JVS(17199)*UV(3650)+JVS(17220)*UV(3652)+JVS(17233)*UV(3654)+JVS(17243)*UV(3655)+JVS(17264)*UV(3657)& - &+JVS(17269)*UV(3658)+JVS(17276)*UV(3659)+JVS(17281)*UV(3660)+JVS(17291)*UV(3661)+JVS(17296)*UV(3662)& - &+JVS(17303)*UV(3663)+JVS(17320)*UV(3665)+JVS(17328)*UV(3666)+JVS(17336)*UV(3667)+JVS(17344)*UV(3668)& - &+JVS(17351)*UV(3669)+JVS(17357)*UV(3670)+JVS(17364)*UV(3671)+JVS(17388)*UV(3674)+JVS(17395)*UV(3675)& - &+JVS(17403)*UV(3676)+JVS(17410)*UV(3677)+JVS(17418)*UV(3678)+JVS(17426)*UV(3679)+JVS(17434)*UV(3680)& - &+JVS(17464)*UV(3684)+JVS(17473)*UV(3685)+JVS(17481)*UV(3686)+JVS(17488)*UV(3687)+JVS(17498)*UV(3688)& - &+JVS(17517)*UV(3690)+JVS(17526)*UV(3691)+JVS(17533)*UV(3692)+JVS(17550)*UV(3694)+JVS(17557)*UV(3695)& - &+JVS(17564)*UV(3696)+JVS(17571)*UV(3697)+JVS(17579)*UV(3698)+JVS(17586)*UV(3699)+JVS(17593)*UV(3700)& - &+JVS(17597)*UV(3701)+JVS(17610)*UV(3703)+JVS(17618)*UV(3704)+JVS(17625)*UV(3705)+JVS(17633)*UV(3706)& - &+JVS(17662)*UV(3710)+JVS(17669)*UV(3711)+JVS(17677)*UV(3712)+JVS(17684)*UV(3713)+JVS(17692)*UV(3714)& - &+JVS(17700)*UV(3715)+JVS(17718)*UV(3717)+JVS(17727)*UV(3718)+JVS(17735)*UV(3719)+JVS(17744)*UV(3720)& - &+JVS(17751)*UV(3721)+JVS(17760)*UV(3722)+JVS(17768)*UV(3723)+JVS(17777)*UV(3724)+JVS(17784)*UV(3725)& - &+JVS(17803)*UV(3727)+JVS(17810)*UV(3728)+JVS(17826)*UV(3730)+JVS(17835)*UV(3731)+JVS(17849)*UV(3733)& - &+JVS(17885)*UV(3737)+JVS(17893)*UV(3738)+JVS(17900)*UV(3739)+JVS(17907)*UV(3740)+JVS(17918)*UV(3741)& - &+JVS(17935)*UV(3743)+JVS(17942)*UV(3744)+JVS(17951)*UV(3745)+JVS(17959)*UV(3746)+JVS(17984)*UV(3748)& - &+JVS(17993)*UV(3749)+JVS(18001)*UV(3750)+JVS(18010)*UV(3751)+JVS(18017)*UV(3752)+JVS(18025)*UV(3753)& - &+JVS(18034)*UV(3754)+JVS(18071)*UV(3758)+JVS(18091)*UV(3760)+JVS(18100)*UV(3761)+JVS(18107)*UV(3762)& - &+JVS(18124)*UV(3764)+JVS(18132)*UV(3765)+JVS(18140)*UV(3766)+JVS(18147)*UV(3767)+JVS(18155)*UV(3768)& - &+JVS(18163)*UV(3769)+JVS(18170)*UV(3770)+JVS(18178)*UV(3771)+JVS(18185)*UV(3772)+JVS(18197)*UV(3773)& - &+JVS(18204)*UV(3774)+JVS(18216)*UV(3775)+JVS(18226)*UV(3776)+JVS(18243)*UV(3778)+JVS(18251)*UV(3779)& - &+JVS(18269)*UV(3781)+JVS(18277)*UV(3782)+JVS(18295)*UV(3784)+JVS(18303)*UV(3785)+JVS(18310)*UV(3786)& - &+JVS(18326)*UV(3788)+JVS(18334)*UV(3789)+JVS(18340)*UV(3790)+JVS(18347)*UV(3791)+JVS(18352)*UV(3792)& - &+JVS(18363)*UV(3793)+JVS(18370)*UV(3794)+JVS(18378)*UV(3795)+JVS(18385)*UV(3796)+JVS(18393)*UV(3797)& - &+JVS(18400)*UV(3798)+JVS(18407)*UV(3799)+JVS(18423)*UV(3801)+JVS(18432)*UV(3802)+JVS(18438)*UV(3803)& - &+JVS(18444)*UV(3804)+JVS(18452)*UV(3805)+JVS(18457)*UV(3806)+JVS(18463)*UV(3807)+JVS(18470)*UV(3808)& - &+JVS(18482)*UV(3809)+JVS(18489)*UV(3810)+JVS(18495)*UV(3811)+JVS(18503)*UV(3812)+JVS(18510)*UV(3813)& - &+JVS(18517)*UV(3814)+JVS(18524)*UV(3815)+JVS(18540)*UV(3817)+JVS(18549)*UV(3818)+JVS(18555)*UV(3819)& - &+JVS(18562)*UV(3820)+JVS(18591)*UV(3823)+JVS(18599)*UV(3824)+JVS(18606)*UV(3825)+JVS(18615)*UV(3826)& - &+JVS(18622)*UV(3827)+JVS(18629)*UV(3828)+JVS(18641)*UV(3830)+JVS(18646)*UV(3831)+JVS(18655)*UV(3833)& - &+JVS(18660)*UV(3834)+JVS(18672)*UV(3836)+JVS(18679)*UV(3837)+JVS(18689)*UV(3838)+JVS(18697)*UV(3839)& - &+JVS(18704)*UV(3840)+JVS(18712)*UV(3841)+JVS(18719)*UV(3842)+JVS(18736)*UV(3844)+JVS(18746)*UV(3845)& - &+JVS(18756)*UV(3846)+JVS(18763)*UV(3847)+JVS(18770)*UV(3848)+JVS(18785)*UV(3849)+JVS(18793)*UV(3850)& - &+JVS(18802)*UV(3851)+JVS(18808)*UV(3852)+JVS(18815)*UV(3853)+JVS(18825)*UV(3854)+JVS(18834)*UV(3855)& - &+JVS(18843)*UV(3856)+JVS(18852)*UV(3857)+JVS(18860)*UV(3858)+JVS(18868)*UV(3859)+JVS(18877)*UV(3860)& - &+JVS(18886)*UV(3861)+JVS(18894)*UV(3862)+JVS(18901)*UV(3863)+JVS(18910)*UV(3864)+JVS(18917)*UV(3865)& - &+JVS(18924)*UV(3866)+JVS(18930)*UV(3867)+JVS(18951)*UV(3869)+JVS(18960)*UV(3870)+JVS(18970)*UV(3871)& - &+JVS(18977)*UV(3872)+JVS(18985)*UV(3873)+JVS(18994)*UV(3874)+JVS(19003)*UV(3875)+JVS(19010)*UV(3876)& - &+JVS(19020)*UV(3877)+JVS(19027)*UV(3878)+JVS(19038)*UV(3879)+JVS(19048)*UV(3880)+JVS(19058)*UV(3881)& - &+JVS(19067)*UV(3882)+JVS(19073)*UV(3883)+JVS(19081)*UV(3884)+JVS(19089)*UV(3885)+JVS(19096)*UV(3886)& - &+JVS(19103)*UV(3887)+JVS(19112)*UV(3888)+JVS(19120)*UV(3889)+JVS(19129)*UV(3890)+JVS(19136)*UV(3891)& - &+JVS(19144)*UV(3892)+JVS(19152)*UV(3893)+JVS(19160)*UV(3894)+JVS(19167)*UV(3895)+JVS(19178)*UV(3896)& - &+JVS(19185)*UV(3897)+JVS(19192)*UV(3898)+JVS(19200)*UV(3899)+JVS(19209)*UV(3900)+JVS(19218)*UV(3901)& - &+JVS(19226)*UV(3902)+JVS(19233)*UV(3903)+JVS(19240)*UV(3904)+JVS(19250)*UV(3905)+JVS(19265)*UV(3907)& - &+JVS(19272)*UV(3908)+JVS(19279)*UV(3909)+JVS(19286)*UV(3910)+JVS(19297)*UV(3911)+JVS(19307)*UV(3912)& - &+JVS(19315)*UV(3913)+JVS(19326)*UV(3914)+JVS(19337)*UV(3915)+JVS(19347)*UV(3916)+JVS(19383)*UV(3919)& - &+JVS(19390)*UV(3920)+JVS(19397)*UV(3921)+JVS(19404)*UV(3922)+JVS(19414)*UV(3923)+JVS(19424)*UV(3924)& - &+JVS(19431)*UV(3925)+JVS(19441)*UV(3926)+JVS(19447)*UV(3927)+JVS(19454)*UV(3928)+JVS(19465)*UV(3929)& - &+JVS(19474)*UV(3930)+JVS(19491)*UV(3932)+JVS(19500)*UV(3933)+JVS(19507)*UV(3934)+JVS(19516)*UV(3935)& - &+JVS(19522)*UV(3936)+JVS(19530)*UV(3937)+JVS(19538)*UV(3938)+JVS(19545)*UV(3939)+JVS(19552)*UV(3940)& - &+JVS(19562)*UV(3941)+JVS(19569)*UV(3942)+JVS(19576)*UV(3943)+JVS(19583)*UV(3944)+JVS(19590)*UV(3945)& - &+JVS(19601)*UV(3946)+JVS(19611)*UV(3947)+JVS(19619)*UV(3948)+JVS(19626)*UV(3949)+JVS(19633)*UV(3950)& - &+JVS(19642)*UV(3951)+JVS(19649)*UV(3952)+JVS(19657)*UV(3953)+JVS(19666)*UV(3954)+JVS(19675)*UV(3955)& - &+JVS(19682)*UV(3956)+JVS(19691)*UV(3957)+JVS(19720)*UV(3960)+JVS(19728)*UV(3961)+JVS(19735)*UV(3962)& - &+JVS(19741)*UV(3963)+JVS(19750)*UV(3964)+JVS(19765)*UV(3966)+JVS(19774)*UV(3967)+JVS(19790)*UV(3969)& - &+JVS(19797)*UV(3970)+JVS(19804)*UV(3971)+JVS(19812)*UV(3972)+JVS(19820)*UV(3973)+JVS(19827)*UV(3974)& - &+JVS(19835)*UV(3975)+JVS(19843)*UV(3976)+JVS(19853)*UV(3977)+JVS(19875)*UV(3979)+JVS(19882)*UV(3980)& - &+JVS(19892)*UV(3981)+JVS(19899)*UV(3982)+JVS(19906)*UV(3983)+JVS(19914)*UV(3984)+JVS(19921)*UV(3985)& - &+JVS(19932)*UV(3986)+JVS(19939)*UV(3987)+JVS(19945)*UV(3988)+JVS(19955)*UV(3989)+JVS(19961)*UV(3990)& - &+JVS(19970)*UV(3991)+JVS(19979)*UV(3992)+JVS(19997)*UV(3994)+JVS(20007)*UV(3995)+JVS(20011)*UV(3996)& - &+JVS(20019)*UV(3997)+JVS(20031)*UV(3998)+JVS(20038)*UV(3999)+JVS(20051)*UV(4000)+JVS(20058)*UV(4001)& - &+JVS(20066)*UV(4002)+JVS(20073)*UV(4003)+JVS(20081)*UV(4004)+JVS(20093)*UV(4005)+JVS(20100)*UV(4006)& - &+JVS(20108)*UV(4007)+JVS(20116)*UV(4008)+JVS(20124)*UV(4009)+JVS(20129)*UV(4010)+JVS(20137)*UV(4011)& - &+JVS(20149)*UV(4012)+JVS(20162)*UV(4013)+JVS(20188)*UV(4015)+JVS(20195)*UV(4016)+JVS(20200)*UV(4017)& - &+JVS(20205)*UV(4018)+JVS(20215)*UV(4019)+JVS(20222)*UV(4020)+JVS(20230)*UV(4021)+JVS(20238)*UV(4022)& - &+JVS(20246)*UV(4023)+JVS(20255)*UV(4024)+JVS(20264)*UV(4025)+JVS(20274)*UV(4026)+JVS(20278)*UV(4027)& - &+JVS(20286)*UV(4028)+JVS(20295)*UV(4029)+JVS(20302)*UV(4030)+JVS(20310)*UV(4031)+JVS(20314)*UV(4032)& - &+JVS(20322)*UV(4033)+JVS(20330)*UV(4034)+JVS(20338)*UV(4035)+JVS(20346)*UV(4036)+JVS(20354)*UV(4037)& - &+JVS(20366)*UV(4038)+JVS(20373)*UV(4039)+JVS(20381)*UV(4040)+JVS(20394)*UV(4041)+JVS(20408)*UV(4042)& - &+JVS(20417)*UV(4043)+JVS(20424)*UV(4044)+JVS(20436)*UV(4045)+JVS(20449)*UV(4046)+JVS(20474)*UV(4048)& - &+JVS(20482)*UV(4049)+JVS(20493)*UV(4050)+JVS(20508)*UV(4051)+JVS(20519)*UV(4052)+JVS(20537)*UV(4054)& - &+JVS(20544)*UV(4055)+JVS(20548)*UV(4056)+JVS(20556)*UV(4057)+JVS(20567)*UV(4058)+JVS(20576)*UV(4059)& - &+JVS(20589)*UV(4060)+JVS(20596)*UV(4061)+JVS(20606)*UV(4062)+JVS(20613)*UV(4063)+JVS(20621)*UV(4064)& - &+JVS(20629)*UV(4065)+JVS(20642)*UV(4067)+JVS(20650)*UV(4068)+JVS(20659)*UV(4069)+JVS(20666)*UV(4070)& - &+JVS(20674)*UV(4071)+JVS(20681)*UV(4072)+JVS(20689)*UV(4073)+JVS(20697)*UV(4074)+JVS(20704)*UV(4075)& - &+JVS(20713)*UV(4076)+JVS(20723)*UV(4077)+JVS(20731)*UV(4078)+JVS(20739)*UV(4079)+JVS(20744)*UV(4080)& - &+JVS(20761)*UV(4082)+JVS(20766)*UV(4083)+JVS(20786)*UV(4085)+JVS(20796)*UV(4086)+JVS(20804)*UV(4087)& - &+JVS(20813)*UV(4088)+JVS(20824)*UV(4089)+JVS(20831)*UV(4090)+JVS(20838)*UV(4091)+JVS(20852)*UV(4092)& - &+JVS(20856)*UV(4093)+JVS(20861)*UV(4094)+JVS(20869)*UV(4095)+JVS(20881)*UV(4097)+JVS(20891)*UV(4098)& - &+JVS(20899)*UV(4099)+JVS(20908)*UV(4100)+JVS(20919)*UV(4101)+JVS(20929)*UV(4102)+JVS(20965)*UV(4105)& - &+JVS(20972)*UV(4106)+JVS(20984)*UV(4108)+JVS(21011)*UV(4110)+JVS(21017)*UV(4111)+JVS(21024)*UV(4112)& - &+JVS(21037)*UV(4114)+JVS(21045)*UV(4115)+JVS(21053)*UV(4116)+JVS(21060)*UV(4117)+JVS(21069)*UV(4118)& - &+JVS(21079)*UV(4119)+JVS(21089)*UV(4120)+JVS(21097)*UV(4121)+JVS(21116)*UV(4123)+JVS(21123)*UV(4124)& - &+JVS(21144)*UV(4126)+JVS(21152)*UV(4127)+JVS(21159)*UV(4128)+JVS(21165)*UV(4129)+JVS(21175)*UV(4130)& - &+JVS(21183)*UV(4131)+JVS(21191)*UV(4132)+JVS(21199)*UV(4133)+JVS(21206)*UV(4134)+JVS(21212)*UV(4135)& - &+JVS(21221)*UV(4136)+JVS(21231)*UV(4137)+JVS(21240)*UV(4138)+JVS(21249)*UV(4139)+JVS(21256)*UV(4140)& - &+JVS(21262)*UV(4141)+JVS(21269)*UV(4142)+JVS(21276)*UV(4143)+JVS(21282)*UV(4144)+JVS(21289)*UV(4145)& - &+JVS(21296)*UV(4146)+JVS(21304)*UV(4147)+JVS(21310)*UV(4148)+JVS(21318)*UV(4149)+JVS(21328)*UV(4150)& - &+JVS(21336)*UV(4151)+JVS(21347)*UV(4152)+JVS(21355)*UV(4153)+JVS(21368)*UV(4154)+JVS(21376)*UV(4155)& - &+JVS(21381)*UV(4156)+JVS(21392)*UV(4157)+JVS(21400)*UV(4158)+JVS(21406)*UV(4159)+JVS(21414)*UV(4160)& - &+JVS(21422)*UV(4161)+JVS(21431)*UV(4162)+JVS(21439)*UV(4163)+JVS(21456)*UV(4165)+JVS(21464)*UV(4166)& - &+JVS(21471)*UV(4167)+JVS(21481)*UV(4168)+JVS(21491)*UV(4169)+JVS(21500)*UV(4170)+JVS(21507)*UV(4171)& - &+JVS(21516)*UV(4172)+JVS(21525)*UV(4173)+JVS(21533)*UV(4174)+JVS(21548)*UV(4175)+JVS(21554)*UV(4176)& - &+JVS(21564)*UV(4177)+JVS(21593)*UV(4180)+JVS(21609)*UV(4181)+JVS(21620)*UV(4182)+JVS(21644)*UV(4184)& - &+JVS(21651)*UV(4185)+JVS(21663)*UV(4186)+JVS(21672)*UV(4187)+JVS(21681)*UV(4188)+JVS(21692)*UV(4189)& - &+JVS(21701)*UV(4190)+JVS(21709)*UV(4191)+JVS(21718)*UV(4192)+JVS(21727)*UV(4193)+JVS(21736)*UV(4194)& - &+JVS(21745)*UV(4195)+JVS(21758)*UV(4196)+JVS(21767)*UV(4197)+JVS(21776)*UV(4198)+JVS(21790)*UV(4199)& - &+JVS(21799)*UV(4200)+JVS(21807)*UV(4201)+JVS(21819)*UV(4202)+JVS(21829)*UV(4203)+JVS(21838)*UV(4204)& - &+JVS(21847)*UV(4205)+JVS(21856)*UV(4206)+JVS(21866)*UV(4207)+JVS(21877)*UV(4208)+JVS(21886)*UV(4209)& - &+JVS(21895)*UV(4210)+JVS(21905)*UV(4211)+JVS(21914)*UV(4212)+JVS(21934)*UV(4214)+JVS(21943)*UV(4215)& - &+JVS(21957)*UV(4216)+JVS(21966)*UV(4217)+JVS(21978)*UV(4218)+JVS(21990)*UV(4219)+JVS(22003)*UV(4220)& - &+JVS(22016)*UV(4221)+JVS(22026)*UV(4222)+JVS(22049)*UV(4224)+JVS(22058)*UV(4225)+JVS(22071)*UV(4226)& - &+JVS(22081)*UV(4227)+JVS(22092)*UV(4228)+JVS(22102)*UV(4229)+JVS(22112)*UV(4230)+JVS(22124)*UV(4231)& - &+JVS(22133)*UV(4232)+JVS(22143)*UV(4233)+JVS(22153)*UV(4234)+JVS(22164)*UV(4235)+JVS(22172)*UV(4236)& - &+JVS(22182)*UV(4237)+JVS(22192)*UV(4238)+JVS(22205)*UV(4239)+JVS(22213)*UV(4240)+JVS(22227)*UV(4241)& - &+JVS(22235)*UV(4242)+JVS(22246)*UV(4243)+JVS(22255)*UV(4244)+JVS(22264)*UV(4245)+JVS(22273)*UV(4246)& - &+JVS(22306)*UV(4249)+JVS(22326)*UV(4251)+JVS(22335)*UV(4252)+JVS(22348)*UV(4253)+JVS(22358)*UV(4254)& - &+JVS(22367)*UV(4255)+JVS(22388)*UV(4257)+JVS(22405)*UV(4259)+JVS(22415)*UV(4260)+JVS(22427)*UV(4261)& - &+JVS(22436)*UV(4262)+JVS(22447)*UV(4263)+JVS(22464)*UV(4265)+JVS(22474)*UV(4266)+JVS(22485)*UV(4267)& - &+JVS(22494)*UV(4268)+JVS(22504)*UV(4269)+JVS(22514)*UV(4270)+JVS(22523)*UV(4271)+JVS(22527)*UV(4272)& - &+JVS(22537)*UV(4273)+JVS(22547)*UV(4274)+JVS(22556)*UV(4275)+JVS(22565)*UV(4276)+JVS(22575)*UV(4277)& - &+JVS(22591)*UV(4278)+JVS(22602)*UV(4279)+JVS(22611)*UV(4280)+JVS(22620)*UV(4281)+JVS(22637)*UV(4283)& - &+JVS(22647)*UV(4284)+JVS(22656)*UV(4285)+JVS(22673)*UV(4287)+JVS(22682)*UV(4288)+JVS(22691)*UV(4289)& - &+JVS(22704)*UV(4290)+JVS(22713)*UV(4291)+JVS(22722)*UV(4292)+JVS(22731)*UV(4293)+JVS(22767)*UV(4295)& - &+JVS(22776)*UV(4296)+JVS(22785)*UV(4297)+JVS(22794)*UV(4298)+JVS(22807)*UV(4299)+JVS(22829)*UV(4301)& - &+JVS(22846)*UV(4303)+JVS(22855)*UV(4304)+JVS(22864)*UV(4305)+JVS(22873)*UV(4306)+JVS(22882)*UV(4307)& - &+JVS(22895)*UV(4308)+JVS(22905)*UV(4309)+JVS(22917)*UV(4310)+JVS(22927)*UV(4311)+JVS(22937)*UV(4312)& - &+JVS(22952)*UV(4313)+JVS(22961)*UV(4314)+JVS(22973)*UV(4315)+JVS(22984)*UV(4316)+JVS(22993)*UV(4317)& - &+JVS(23002)*UV(4318)+JVS(23015)*UV(4319)+JVS(23029)*UV(4321)+JVS(23040)*UV(4322)+JVS(23048)*UV(4323)& - &+JVS(23061)*UV(4324)+JVS(23076)*UV(4325)+JVS(23087)*UV(4326)+JVS(23095)*UV(4327)+JVS(23105)*UV(4328)& - &+JVS(23120)*UV(4329)+JVS(23154)*UV(4332)+JVS(23173)*UV(4334)+JVS(23180)*UV(4335)+JVS(23189)*UV(4336)& - &+JVS(23196)*UV(4337)+JVS(23205)*UV(4338)+JVS(23211)*UV(4339)+JVS(23220)*UV(4340)+JVS(23226)*UV(4341)& - &+JVS(23234)*UV(4342)+JVS(23244)*UV(4343)+JVS(23253)*UV(4344)+JVS(23262)*UV(4345)+JVS(23270)*UV(4346)& - &+JVS(23277)*UV(4347)+JVS(23285)*UV(4348)+JVS(23293)*UV(4349)+JVS(23302)*UV(4350)+JVS(23309)*UV(4351)& - &+JVS(23323)*UV(4352)+JVS(23330)*UV(4353)+JVS(23337)*UV(4354)+JVS(23345)*UV(4355)+JVS(23353)*UV(4356)& - &+JVS(23360)*UV(4357)+JVS(23367)*UV(4358)+JVS(23375)*UV(4359)+JVS(23385)*UV(4360)+JVS(23393)*UV(4361)& - &+JVS(23401)*UV(4362)+JVS(23410)*UV(4363)+JVS(23417)*UV(4364)+JVS(23428)*UV(4365)+JVS(23460)*UV(4367)& - &+JVS(23467)*UV(4368)+JVS(23475)*UV(4369)+JVS(23482)*UV(4370)+JVS(23489)*UV(4371)+JVS(23495)*UV(4372)& - &+JVS(23505)*UV(4373)+JVS(23514)*UV(4374)+JVS(23523)*UV(4375)+JVS(23536)*UV(4376)+JVS(23543)*UV(4377)& - &+JVS(23560)*UV(4379)+JVS(23569)*UV(4380)+JVS(23577)*UV(4381)+JVS(23583)*UV(4382)+JVS(23606)*UV(4384)& - &+JVS(23617)*UV(4385)+JVS(23639)*UV(4387)+JVS(23648)*UV(4388)+JVS(23657)*UV(4389)+JVS(23665)*UV(4390)& - &+JVS(23710)*UV(4393)+JVS(23720)*UV(4394)+JVS(23723)*UV(4395)+JVS(23730)*UV(4396)+JVS(23737)*UV(4397)& - &+JVS(23761)*UV(4399)+JVS(23769)*UV(4400)+JVS(23792)*UV(4402)+JVS(23850)*UV(4404)+JVS(23859)*UV(4405)& - &+JVS(23870)*UV(4406)+JVS(23879)*UV(4407)+JVS(23889)*UV(4408)+JVS(23900)*UV(4409)+JVS(23910)*UV(4410)& - &+JVS(23922)*UV(4411)+JVS(23932)*UV(4412)+JVS(23941)*UV(4413)+JVS(23951)*UV(4414)+JVS(23960)*UV(4415)& - &+JVS(23968)*UV(4416)+JVS(23981)*UV(4417)+JVS(23991)*UV(4418)+JVS(24003)*UV(4419)+JVS(24026)*UV(4421)& - &+JVS(24034)*UV(4422)+JVS(24051)*UV(4423)+JVS(24060)*UV(4424)+JVS(24069)*UV(4425)+JVS(24088)*UV(4426)& - &+JVS(24098)*UV(4427)+JVS(24107)*UV(4428)+JVS(24118)*UV(4429)+JVS(24130)*UV(4430)+JVS(24142)*UV(4431)& - &+JVS(24151)*UV(4432)+JVS(24162)*UV(4433)+JVS(24171)*UV(4434)+JVS(24182)*UV(4435)+JVS(24191)*UV(4436)& - &+JVS(24200)*UV(4437)+JVS(24210)*UV(4438)+JVS(24221)*UV(4439)+JVS(24229)*UV(4440)+JVS(24243)*UV(4441)& - &+JVS(24256)*UV(4442)+JVS(24268)*UV(4443)+JVS(24277)*UV(4444)+JVS(24288)*UV(4445)+JVS(24297)*UV(4446)& - &+JVS(24308)*UV(4447)+JVS(24319)*UV(4448)+JVS(24333)*UV(4449)+JVS(24345)*UV(4450)+JVS(24354)*UV(4451)& - &+JVS(24364)*UV(4452)+JVS(24373)*UV(4453)+JVS(24383)*UV(4454)+JVS(24393)*UV(4455)+JVS(24403)*UV(4456)& - &+JVS(24412)*UV(4457)+JVS(24422)*UV(4458)+JVS(24431)*UV(4459)+JVS(24442)*UV(4460)+JVS(24453)*UV(4461)& - &+JVS(24462)*UV(4462)+JVS(24471)*UV(4463)+JVS(24480)*UV(4464)+JVS(24490)*UV(4465)+JVS(24499)*UV(4466)& - &+JVS(24509)*UV(4467)+JVS(24519)*UV(4468)+JVS(24529)*UV(4469)+JVS(24539)*UV(4470)+JVS(24548)*UV(4471)& - &+JVS(24558)*UV(4472)+JVS(24567)*UV(4473)+JVS(24570)*UV(4474)+JVS(24574)*UV(4475)+JVS(24583)*UV(4476)& - &+JVS(24596)*UV(4477)+JVS(24607)*UV(4478)+JVS(24617)*UV(4479)+JVS(24626)*UV(4480)+JVS(24638)*UV(4481)& - &+JVS(24659)*UV(4482)+JVS(24670)*UV(4483)+JVS(24681)*UV(4484)+JVS(24696)*UV(4485)+JVS(24708)*UV(4486)& - &+JVS(24717)*UV(4487)+JVS(24729)*UV(4488)+JVS(24741)*UV(4489)+JVS(24758)*UV(4490)+JVS(24780)*UV(4492)& - &+JVS(24805)*UV(4493)+JVS(24815)*UV(4494)+JVS(24825)*UV(4495)+JVS(24836)*UV(4496)+JVS(24849)*UV(4497)& - &+JVS(24858)*UV(4498)+JVS(24867)*UV(4499)+JVS(24877)*UV(4500)+JVS(24891)*UV(4501)+JVS(24900)*UV(4502)& - &+JVS(24911)*UV(4503)+JVS(24920)*UV(4504)+JVS(24927)*UV(4505)+JVS(24937)*UV(4506)+JVS(25017)*UV(4508)& - &+JVS(25027)*UV(4509)+JVS(25040)*UV(4510)+JVS(25049)*UV(4511)+JVS(25052)*UV(4512)+JVS(25062)*UV(4513)& - &+JVS(25072)*UV(4514)+JVS(25083)*UV(4515)+JVS(25092)*UV(4516)+JVS(25102)*UV(4517)+JVS(25112)*UV(4518)& - &+JVS(25123)*UV(4519)+JVS(25133)*UV(4520)+JVS(25145)*UV(4521)+JVS(25155)*UV(4522)+JVS(25165)*UV(4523)& - &+JVS(25194)*UV(4525)+JVS(25205)*UV(4527)+JVS(25229)*UV(4529)+JVS(25239)*UV(4530)+JVS(25249)*UV(4531)& - &+JVS(25261)*UV(4532)+JVS(25272)*UV(4533)+JVS(25285)*UV(4534)+JVS(25293)*UV(4535)+JVS(25310)*UV(4536)& - &+JVS(25323)*UV(4537)+JVS(25333)*UV(4538)+JVS(25345)*UV(4539)+JVS(25363)*UV(4540)+JVS(25371)*UV(4541)& - &+JVS(25380)*UV(4542)+JVS(25391)*UV(4543)+JVS(25417)*UV(4545)+JVS(25428)*UV(4546)+JVS(25442)*UV(4547)& - &+JVS(25455)*UV(4548)+JVS(25466)*UV(4549)+JVS(25477)*UV(4550)+JVS(25499)*UV(4552)+JVS(25510)*UV(4553)& - &+JVS(25517)*UV(4554)+JVS(25520)*UV(4555)+JVS(25543)*UV(4557)+JVS(25550)*UV(4558)+JVS(25563)*UV(4559)& - &+JVS(25577)*UV(4560)+JVS(25584)*UV(4561)+JVS(25592)*UV(4562)+JVS(25600)*UV(4563)+JVS(25616)*UV(4564)& - &+JVS(25624)*UV(4565)+JVS(25631)*UV(4566)+JVS(25640)*UV(4567)+JVS(25647)*UV(4568)+JVS(25661)*UV(4569)& - &+JVS(25667)*UV(4570)+JVS(25676)*UV(4571)+JVS(25684)*UV(4572)+JVS(25691)*UV(4573)+JVS(25698)*UV(4574)& - &+JVS(25704)*UV(4575)+JVS(25715)*UV(4576)+JVS(25726)*UV(4577)+JVS(25732)*UV(4578)+JVS(25739)*UV(4579)& - &+JVS(25750)*UV(4580)+JVS(25758)*UV(4581)+JVS(25765)*UV(4582)+JVS(25774)*UV(4583)+JVS(25781)*UV(4584)& - &+JVS(25788)*UV(4585)+JVS(25796)*UV(4586)+JVS(25803)*UV(4587)+JVS(25825)*UV(4589)+JVS(25833)*UV(4590)& - &+JVS(25850)*UV(4591)+JVS(25863)*UV(4592)+JVS(25871)*UV(4593)+JVS(25879)*UV(4594)+JVS(25887)*UV(4595)& - &+JVS(25894)*UV(4596)+JVS(25904)*UV(4597)+JVS(25911)*UV(4598)+JVS(25919)*UV(4599)+JVS(25922)*UV(4600)& - &+JVS(25926)*UV(4601)+JVS(25978)*UV(4602)+JVS(25987)*UV(4603)+JVS(25991)*UV(4604)+JVS(25995)*UV(4605)& - &+JVS(25999)*UV(4606)+JVS(26008)*UV(4607)+JVS(26017)*UV(4608)+JVS(26024)*UV(4609)+JVS(26031)*UV(4610)& - &+JVS(26041)*UV(4611)+JVS(26054)*UV(4612)+JVS(26065)*UV(4613)+JVS(26077)*UV(4614)+JVS(26088)*UV(4616)& - &+JVS(26093)*UV(4617)+JVS(26131)*UV(4619)+JVS(26144)*UV(4620)+JVS(26177)*UV(4622)+JVS(26186)*UV(4623)& - &+JVS(26201)*UV(4624)+JVS(26209)*UV(4625)+JVS(26219)*UV(4626)+JVS(26229)*UV(4627)+JVS(26238)*UV(4628)& - &+JVS(26248)*UV(4629)+JVS(26257)*UV(4630)+JVS(26271)*UV(4631)+JVS(26281)*UV(4632)+JVS(26291)*UV(4633)& - &+JVS(26301)*UV(4634)+JVS(26310)*UV(4635)+JVS(26320)*UV(4636)+JVS(26327)*UV(4637)+JVS(26338)*UV(4638)& - &+JVS(26347)*UV(4639)+JVS(26358)*UV(4640)+JVS(26367)*UV(4641)+JVS(26378)*UV(4642)+JVS(26387)*UV(4643)& - &+JVS(26402)*UV(4644)+JVS(26411)*UV(4645)+JVS(26419)*UV(4646)+JVS(26428)*UV(4647)+JVS(26440)*UV(4648)& - &+JVS(26449)*UV(4649)+JVS(26457)*UV(4650)+JVS(26474)*UV(4651)+JVS(26484)*UV(4652)+JVS(26493)*UV(4653)& - &+JVS(26502)*UV(4654)+JVS(26512)*UV(4655)+JVS(26521)*UV(4656)+JVS(26531)*UV(4657)+JVS(26544)*UV(4658)& - &+JVS(26554)*UV(4659)+JVS(26563)*UV(4660)+JVS(26571)*UV(4661)+JVS(26582)*UV(4662)+JVS(26592)*UV(4663)& - &+JVS(26610)*UV(4664)+JVS(26619)*UV(4665)+JVS(26635)*UV(4666)+JVS(26646)*UV(4667)+JVS(26666)*UV(4669)& - &+JVS(26676)*UV(4670)+JVS(26687)*UV(4671)+JVS(26702)*UV(4672)+JVS(26715)*UV(4673)+JVS(26723)*UV(4674)& - &+JVS(26734)*UV(4675)+JVS(26745)*UV(4676)+JVS(26771)*UV(4679)+JVS(26780)*UV(4680)+JVS(26791)*UV(4681)& - &+JVS(26801)*UV(4682)+JVS(26811)*UV(4683)+JVS(26821)*UV(4684)+JVS(26830)*UV(4685)+JVS(26844)*UV(4686)& - &+JVS(26858)*UV(4687)+JVS(26867)*UV(4688)+JVS(26877)*UV(4689)+JVS(26888)*UV(4690)+JVS(26905)*UV(4692)& - &+JVS(27017)*UV(4695)+JVS(27025)*UV(4696)+JVS(27033)*UV(4697)+JVS(27042)*UV(4698)+JVS(27048)*UV(4699)& - &+JVS(27056)*UV(4700)+JVS(27063)*UV(4701)+JVS(27072)*UV(4702)+JVS(27079)*UV(4703)+JVS(27085)*UV(4704)& - &+JVS(27092)*UV(4705)+JVS(27099)*UV(4706)+JVS(27105)*UV(4707)+JVS(27134)*UV(4709)+JVS(27153)*UV(4710)& - &+JVS(27159)*UV(4711)+JVS(27166)*UV(4712)+JVS(27173)*UV(4713)+JVS(27181)*UV(4714)+JVS(27189)*UV(4715)& - &+JVS(27196)*UV(4716)+JVS(27206)*UV(4717)+JVS(27212)*UV(4718)+JVS(27222)*UV(4719)+JVS(27229)*UV(4720)& - &+JVS(27259)*UV(4721)+JVS(27270)*UV(4722)+JVS(27277)*UV(4723)+JVS(27288)*UV(4724)+JVS(27294)*UV(4725)& - &+JVS(27307)*UV(4726)+JVS(27313)*UV(4727)+JVS(27356)*UV(4729)+JVS(27365)*UV(4730)+JVS(27374)*UV(4731)& - &+JVS(27380)*UV(4732)+JVS(27388)*UV(4733)+JVS(27398)*UV(4734)+JVS(27404)*UV(4735)+JVS(27428)*UV(4737)& - &+JVS(27439)*UV(4738)+JVS(27451)*UV(4739)+JVS(27465)*UV(4740)+JVS(27490)*UV(4742)+JVS(27501)*UV(4743)& - &+JVS(27510)*UV(4744)+JVS(27523)*UV(4745)+JVS(27530)*UV(4746)+JVS(27566)*UV(4748)+JVS(27581)*UV(4749)& - &+JVS(27591)*UV(4750)+JVS(27602)*UV(4751)+JVS(27616)*UV(4752)+JVS(27628)*UV(4753)+JVS(27635)*UV(4754)& - &+JVS(27651)*UV(4755)+JVS(27658)*UV(4756)+JVS(27675)*UV(4758)+JVS(27690)*UV(4759)+JVS(27711)*UV(4760)& - &+JVS(27719)*UV(4761)+JVS(27727)*UV(4762)+JVS(27742)*UV(4763)+JVS(27757)*UV(4764)+JVS(27765)*UV(4765)& - &+JVS(27774)*UV(4766)+JVS(27784)*UV(4767)+JVS(27807)*UV(4768)+JVS(27820)*UV(4769)+JVS(27831)*UV(4770)& - &+JVS(27841)*UV(4771)+JVS(27852)*UV(4772)+JVS(27864)*UV(4773)+JVS(27872)*UV(4774)+JVS(27888)*UV(4775)& - &+JVS(27903)*UV(4777)+JVS(27912)*UV(4778)+JVS(27920)*UV(4779)+JVS(27929)*UV(4780)+JVS(27937)*UV(4781)& - &+JVS(27945)*UV(4782)+JVS(27952)*UV(4783)+JVS(27960)*UV(4784)+JVS(27968)*UV(4785)+JVS(27983)*UV(4787)& - &+JVS(27993)*UV(4788)+JVS(28005)*UV(4789)+JVS(28015)*UV(4790)+JVS(28026)*UV(4791)+JVS(28042)*UV(4792)& - &+JVS(28052)*UV(4793)+JVS(28057)*UV(4794)+JVS(28067)*UV(4795)+JVS(28159)*UV(4797)+JVS(28172)*UV(4798)& - &+JVS(28184)*UV(4799)+JVS(28233)*UV(4802)+JVS(28239)*UV(4803)+JVS(28249)*UV(4804)+JVS(28255)*UV(4805)& - &+JVS(28269)*UV(4806)+JVS(28278)*UV(4807)+JVS(28289)*UV(4808)+JVS(28298)*UV(4809)+JVS(28309)*UV(4810)& - &+JVS(28320)*UV(4811)+JVS(28334)*UV(4812)+JVS(28344)*UV(4813)+JVS(28353)*UV(4814)+JVS(28367)*UV(4815)& - &+JVS(28376)*UV(4816)+JVS(28386)*UV(4817)+JVS(28395)*UV(4818)+JVS(28413)*UV(4820)+JVS(28419)*UV(4821)& - &+JVS(28433)*UV(4822)+JVS(28454)*UV(4823)+JVS(28471)*UV(4825)+JVS(28482)*UV(4826)+JVS(28493)*UV(4827)& - &+JVS(28510)*UV(4829)+JVS(28522)*UV(4830)+JVS(28540)*UV(4831)+JVS(28549)*UV(4832)+JVS(28559)*UV(4833)& - &+JVS(28575)*UV(4834)+JVS(28582)*UV(4835)+JVS(28592)*UV(4836)+JVS(28601)*UV(4837)+JVS(28629)*UV(4839)& - &+JVS(28632)*UV(4840)+JVS(28649)*UV(4841)+JVS(28674)*UV(4842)+JVS(28698)*UV(4844)+JVS(28711)*UV(4845)& - &+JVS(28723)*UV(4846)+JVS(28740)*UV(4847)+JVS(28752)*UV(4848)+JVS(28768)*UV(4849)+JVS(28790)*UV(4850)& - &+JVS(28808)*UV(4851)+JVS(28821)*UV(4852)+JVS(28837)*UV(4853)+JVS(28851)*UV(4854)+JVS(28864)*UV(4855)& - &+JVS(28876)*UV(4856)+JVS(28888)*UV(4857)+JVS(28899)*UV(4858)+JVS(28909)*UV(4859)+JVS(28921)*UV(4860)& - &+JVS(28932)*UV(4861)+JVS(28944)*UV(4862)+JVS(28957)*UV(4863)+JVS(28974)*UV(4864)+JVS(28994)*UV(4865)& - &+JVS(29006)*UV(4866)+JVS(29020)*UV(4867)+JVS(29055)*UV(4870)+JVS(29072)*UV(4871)+JVS(29087)*UV(4872)& - &+JVS(29100)*UV(4873)+JVS(29117)*UV(4874)+JVS(29131)*UV(4875)+JVS(29138)*UV(4876)+JVS(29145)*UV(4877)& - &+JVS(29153)*UV(4878)+JVS(29160)*UV(4879)+JVS(29168)*UV(4880)+JVS(29175)*UV(4881)+JVS(29189)*UV(4882)& - &+JVS(29208)*UV(4884)+JVS(29219)*UV(4885)+JVS(29227)*UV(4886)+JVS(29238)*UV(4887)+JVS(29249)*UV(4888)& - &+JVS(29258)*UV(4889)+JVS(29271)*UV(4890)+JVS(29280)*UV(4891)+JVS(29289)*UV(4892)+JVS(29301)*UV(4893)& - &+JVS(29310)*UV(4894)+JVS(29320)*UV(4895)+JVS(29331)*UV(4896)+JVS(29343)*UV(4897)+JVS(29356)*UV(4898)& - &+JVS(29367)*UV(4899)+JVS(29378)*UV(4900)+JVS(29391)*UV(4901)+JVS(29411)*UV(4902)+JVS(29421)*UV(4903)& - &+JVS(29453)*UV(4904)+JVS(29465)*UV(4905)+JVS(29478)*UV(4907)+JVS(29522)*UV(4909)+JVS(29543)*UV(4910)& - &+JVS(29555)*UV(4911)+JVS(29581)*UV(4913)+JVS(29594)*UV(4914)+JVS(29607)*UV(4915)+JVS(29627)*UV(4916)& - &+JVS(29642)*UV(4917)+JVS(29677)*UV(4918)+JVS(29700)*UV(4920)+JVS(29717)*UV(4921)+JVS(29724)*UV(4922)& - &+JVS(29734)*UV(4923)+JVS(29755)*UV(4924)+JVS(29763)*UV(4925)+JVS(29775)*UV(4926)+JVS(29785)*UV(4927)& - &+JVS(29792)*UV(4928)+JVS(29814)*UV(4929)+JVS(29828)*UV(4930)+JVS(29863)*UV(4931)+JVS(29871)*UV(4932)& - &+JVS(29880)*UV(4933)+JVS(29890)*UV(4934)+JVS(29900)*UV(4935)+JVS(29915)*UV(4936)+JVS(29923)*UV(4937)& - &+JVS(30012)*UV(4938)+JVS(30036)*UV(4939)+JVS(30057)*UV(4940)+JVS(30088)*UV(4942)+JVS(30129)*UV(4944)& - &+JVS(30144)*UV(4946)+JVS(30172)*UV(4947)+JVS(30182)*UV(4948)+JVS(30203)*UV(4949)+JVS(30212)*UV(4950)& - &+JVS(30226)*UV(4951)+JVS(30239)*UV(4952)+JVS(30254)*UV(4953)+JVS(30269)*UV(4954)+JVS(30279)*UV(4955)& - &+JVS(30301)*UV(4957)+JVS(30332)*UV(4958)+JVS(30349)*UV(4959)+JVS(30361)*UV(4960)+JVS(30376)*UV(4961)& - &+JVS(30390)*UV(4962)+JVS(30424)*UV(4964)+JVS(30440)*UV(4965)+JVS(30459)*UV(4966)+JVS(30471)*UV(4967)& - &+JVS(30480)*UV(4968)+JVS(30494)*UV(4969)+JVS(30509)*UV(4971)+JVS(30517)*UV(4972)+JVS(30550)*UV(4973)& - &+JVS(30558)*UV(4974)+JVS(30571)*UV(4975)+JVS(30575)*UV(4976)+JVS(30587)*UV(4977)+JVS(30605)*UV(4978)& - &+JVS(30617)*UV(4979)+JVS(30630)*UV(4980)+JVS(30650)*UV(4981)+JVS(30659)*UV(4982)+JVS(30714)*UV(4984)& - &+JVS(30730)*UV(4985)+JVS(30758)*UV(4986)+JVS(30768)*UV(4987)+JVS(30772)*UV(4988)+JVS(30787)*UV(4989)& - &+JVS(30800)*UV(4990)+JVS(30825)*UV(4991)+JVS(30836)*UV(4992)+JVS(30846)*UV(4993)+JVS(30857)*UV(4994)& - &+JVS(30883)*UV(4995)+JVS(30900)*UV(4996)+JVS(30979)*UV(5000)+JVS(31011)*UV(5001)+JVS(31016)*UV(5002)& - &+JVS(31030)*UV(5003)+JVS(31057)*UV(5004)+JVS(31070)*UV(5005)+JVS(31097)*UV(5006)+JVS(31115)*UV(5007)& - &+JVS(31131)*UV(5008)+JVS(31147)*UV(5009)+JVS(31190)*UV(5011)+JVS(31211)*UV(5012)+JVS(31231)*UV(5014)& - &+JVS(31240)*UV(5015)+JVS(31258)*UV(5016)+JVS(31273)*UV(5017)+JVS(31290)*UV(5018)+JVS(31301)*UV(5019)& - &+JVS(31314)*UV(5020)+JVS(31325)*UV(5021)+JVS(31334)*UV(5022)+JVS(31372)*UV(5023)+JVS(31381)*UV(5024)& - &+JVS(31390)*UV(5025)+JVS(31417)*UV(5026)+JVS(31429)*UV(5027)+JVS(31438)*UV(5028)+JVS(31458)*UV(5029)& - &+JVS(31468)*UV(5030)+JVS(31511)*UV(5031)+JVS(31521)*UV(5032)+JVS(31529)*UV(5033)+JVS(31545)*UV(5034)& - &+JVS(31555)*UV(5035)+JVS(31573)*UV(5036)+JVS(31625)*UV(5038)+JVS(31646)*UV(5039)+JVS(31667)*UV(5041)& - &+JVS(31684)*UV(5042)+JVS(31695)*UV(5043)+JVS(31710)*UV(5044)+JVS(31719)*UV(5045)+JVS(31846)*UV(5049)& - &+JVS(31857)*UV(5050)+JVS(31862)*UV(5051)+JVS(31878)*UV(5052)+JVS(31899)*UV(5053)+JVS(31915)*UV(5054)& - &+JVS(31942)*UV(5055)+JVS(31950)*UV(5056)+JVS(31974)*UV(5057)+JVS(31995)*UV(5058)+JVS(32034)*UV(5059)& - &+JVS(32054)*UV(5060)+JVS(32063)*UV(5061)+JVS(32083)*UV(5062)+JVS(32098)*UV(5063)+JVS(32121)*UV(5065)& - &+JVS(32134)*UV(5066)+JVS(32154)*UV(5067)+JVS(32168)*UV(5068)+JVS(32179)*UV(5069)+JVS(32224)*UV(5071)& - &+JVS(32239)*UV(5072)+JVS(32257)*UV(5073)+JVS(32265)*UV(5074)+JVS(32277)*UV(5075)+JVS(32285)*UV(5076)& - &+JVS(32294)*UV(5077)+JVS(32308)*UV(5078)+JVS(32331)*UV(5079)+JVS(32377)*UV(5081)+JVS(32385)*UV(5082)& - &+JVS(32403)*UV(5083)+JVS(32417)*UV(5084)+JVS(32449)*UV(5085)+JVS(32490)*UV(5086)+JVS(32518)*UV(5087)& - &+JVS(32530)*UV(5088)+JVS(32546)*UV(5089)+JVS(32559)*UV(5090)+JVS(32570)*UV(5091)+JVS(32646)*UV(5095)& - &+JVS(32658)*UV(5096)+JVS(32679)*UV(5097)+JVS(32715)*UV(5098)+JVS(32731)*UV(5099)+JVS(32766)*UV(5100)& - &+JVS(32797)*UV(5101)+JVS(32856)*UV(5104)+JVS(32877)*UV(5105)+JVS(32923)*UV(5106)+JVS(32931)*UV(5107)& - &+JVS(32942)*UV(5108)+JVS(32950)*UV(5109)+JVS(33001)*UV(5111)+JVS(33011)*UV(5112)+JVS(33040)*UV(5114)& - &+JVS(33059)*UV(5115)+JVS(33076)*UV(5116)+JVS(33099)*UV(5117)+JVS(33109)*UV(5118)+JVS(33119)*UV(5119)& - &+JVS(33132)*UV(5120)+JVS(33156)*UV(5121)+JVS(33171)*UV(5122)+JVS(33208)*UV(5123)+JVS(33224)*UV(5124)& - &+JVS(33300)*UV(5125)+JVS(33322)*UV(5126)+JVS(33335)*UV(5127)+JVS(33353)*UV(5128)+JVS(33389)*UV(5129)& - &+JVS(33415)*UV(5130)+JVS(33438)*UV(5131)+JVS(33446)*UV(5132)+JVS(33461)*UV(5133)+JVS(33480)*UV(5134)& - &+JVS(33493)*UV(5135)+JVS(33522)*UV(5136)+JVS(33572)*UV(5137)+JVS(33580)*UV(5138)+JVS(33715)*UV(5139)& - &+JVS(33757)*UV(5141)+JVS(33829)*UV(5142)+JVS(33897)*UV(5143)+JVS(33906)*UV(5144)+JVS(33958)*UV(5145)& - &+JVS(33966)*UV(5146)+JVS(33983)*UV(5147)+JVS(34003)*UV(5148)+JVS(34027)*UV(5149)+JVS(34047)*UV(5150)& - &+JVS(34068)*UV(5151)+JVS(34116)*UV(5152)+JVS(34126)*UV(5153)+JVS(34152)*UV(5155)+JVS(34251)*UV(5158)& - &+JVS(34264)*UV(5159)+JVS(34514)*UV(5160)+JVS(34550)*UV(5161)+JVS(34574)*UV(5162)+JVS(34589)*UV(5163)& - &+JVS(34618)*UV(5164)+JVS(34661)*UV(5165)+JVS(34665)*UV(5166)+JVS(34716)*UV(5169)+JVS(34785)*UV(5171)& - &+JVS(34819)*UV(5172)+JVS(34832)*UV(5173)+JVS(34842)*UV(5174)+JVS(34852)*UV(5175)+JVS(34881)*UV(5176)& - &+JVS(34909)*UV(5177)+JVS(34963)*UV(5178)+JVS(35007)*UV(5179)+JVS(35048)*UV(5180)+JVS(35056)*UV(5181)& - &+JVS(35143)*UV(5182)+JVS(35357)*UV(5183)+JVS(35416)*UV(5184)+JVS(35438)*UV(5185)+JVS(35445)*UV(5186)& - &+JVS(35454)*UV(5187)+JVS(35567)*UV(5188)+JVS(35586)*UV(5189)+JVS(35595)*UV(5190)+JVS(35704)*UV(5191)& - &+JVS(35718)*UV(5192)+JVS(36010)*UV(5193)+JVS(36045)*UV(5194)+JVS(36107)*UV(5195)+JVS(36124)*UV(5196)& - &+JVS(36183)*UV(5197)+JVS(36200)*UV(5198)+JVS(36274)*UV(5199)+JVS(36294)*UV(5200)+JVS(36760)*UV(5201)& - &+JVS(36802)*UV(5202)+JVS(36853)*UV(5203)+JVS(36862)*UV(5204)+JVS(36877)*UV(5205)+JVS(36888)*UV(5206)& - &+JVS(36908)*UV(5207)+JVS(36937)*UV(5208)+JVS(36961)*UV(5209)+JVS(37036)*UV(5210)+JVS(37079)*UV(5211)& - &+JVS(37119)*UV(5213)+JVS(37197)*UV(5214)+JVS(37226)*UV(5215)+JVS(37281)*UV(5216)+JVS(37290)*UV(5217)& - &+JVS(37301)*UV(5218)+JVS(37313)*UV(5219)+JVS(37331)*UV(5220)+JVS(37369)*UV(5221)+JVS(37670)*UV(5222)& - &+JVS(37746)*UV(5224)+JVS(37784)*UV(5225)+JVS(37820)*UV(5226)+JVS(37974)*UV(5228)+JVS(38016)*UV(5229)& - &+JVS(38087)*UV(5230)+JVS(38788)*UV(5231)+JVS(38938)*UV(5232)+JVS(39191)*UV(5233)+JVS(39340)*UV(5234)& - &+JVS(39399)*UV(5235)+JVS(39416)*UV(5236)+JVS(39491)*UV(5237)+JVS(39563)*UV(5239)+JVS(39594)*UV(5240)& - &+JVS(39682)*UV(5241)+JVS(39767)*UV(5242)+JVS(39819)*UV(5243)+JVS(40449)*UV(5244)+JVS(40471)*UV(5245)& - &+JVS(40507)*UV(5246)+JVS(40538)*UV(5247)+JVS(40568)*UV(5248)+JVS(40584)*UV(5249)+JVS(45062)*UV(5250)& - &+JVS(46587)*UV(5251)+JVS(47938)*UV(5252)+JVS(50214)*UV(5253)+JVS(53213)*UV(5255)+JVS(54814)*UV(5256)& - &+JVS(54836)*UV(5257) - JTUV(5257) = JVS(1017)*UV(236)+JVS(19074)*UV(3883)+JVS(19946)*UV(3988)+JVS(27531)*UV(4746)+JVS(27549)*UV(4747)& - &+JVS(27636)*UV(4754)+JVS(27659)*UV(4756)+JVS(32732)*UV(5099)+JVS(36761)*UV(5201)+JVS(36889)*UV(5206)& - &+JVS(38789)*UV(5231)+JVS(40569)*UV(5248)+JVS(45063)*UV(5250)+JVS(46588)*UV(5251)+JVS(53214)*UV(5255)& - &+JVS(54815)*UV(5256)+JVS(54837)*UV(5257)+JVS(55271)*UV(5258) - JTUV(5258) = JVS(59)*UV(4)+JVS(106)*UV(19)+JVS(109)*UV(20)+JVS(132)*UV(27)+JVS(138)*UV(29)+JVS(166)*UV(37)+JVS(254)& - &*UV(61)+JVS(276)*UV(67)+JVS(433)*UV(112)+JVS(505)*UV(131)+JVS(568)*UV(148)+JVS(946)*UV(214)+JVS(979)& - &*UV(224)+JVS(1018)*UV(236)+JVS(1028)*UV(239)+JVS(1042)*UV(243)+JVS(1220)*UV(293)+JVS(1349)*UV(327)& - &+JVS(1461)*UV(362)+JVS(1547)*UV(386)+JVS(1662)*UV(419)+JVS(1873)*UV(477)+JVS(2001)*UV(514)+JVS(2029)& - &*UV(522)+JVS(2052)*UV(529)+JVS(2089)*UV(538)+JVS(2171)*UV(558)+JVS(2177)*UV(560)+JVS(2190)*UV(563)& - &+JVS(2207)*UV(568)+JVS(2210)*UV(569)+JVS(2353)*UV(604)+JVS(2387)*UV(612)+JVS(2395)*UV(614)+JVS(2455)& - &*UV(628)+JVS(2507)*UV(640)+JVS(2661)*UV(676)+JVS(2694)*UV(684)+JVS(2697)*UV(685)+JVS(2700)*UV(686)& - &+JVS(2758)*UV(700)+JVS(2761)*UV(701)+JVS(2779)*UV(705)+JVS(2840)*UV(718)+JVS(2843)*UV(719)+JVS(2861)& - &*UV(723)+JVS(2930)*UV(738)+JVS(2996)*UV(752)+JVS(3023)*UV(759)+JVS(3040)*UV(763)+JVS(3051)*UV(766)& - &+JVS(3070)*UV(771)+JVS(3153)*UV(790)+JVS(3272)*UV(819)+JVS(6295)*UV(1569)+JVS(6629)*UV(1642)+JVS(7116)& - &*UV(1746)+JVS(7260)*UV(1776)+JVS(7353)*UV(1795)+JVS(8135)*UV(1959)+JVS(8399)*UV(2013)+JVS(8526)*UV(2038)& - &+JVS(8545)*UV(2042)+JVS(8725)*UV(2081)+JVS(8828)*UV(2104)+JVS(9016)*UV(2148)+JVS(9305)*UV(2212)+JVS(9501)& - &*UV(2258)+JVS(9624)*UV(2286)+JVS(9949)*UV(2359)+JVS(10102)*UV(2393)+JVS(10239)*UV(2425)+JVS(10439)& - &*UV(2470)+JVS(10470)*UV(2476)+JVS(10480)*UV(2479)+JVS(10495)*UV(2481)+JVS(10514)*UV(2487)+JVS(10526)& - &*UV(2489)+JVS(11866)*UV(2748)+JVS(13941)*UV(3133)+JVS(13998)*UV(3147)+JVS(14038)*UV(3155)+JVS(14201)& - &*UV(3186)+JVS(14282)*UV(3202)+JVS(14314)*UV(3210)+JVS(14780)*UV(3297)+JVS(15727)*UV(3442)+JVS(15834)& - &*UV(3465)+JVS(15838)*UV(3466)+JVS(15912)*UV(3479)+JVS(15927)*UV(3482)+JVS(15999)*UV(3494)+JVS(16034)& - &*UV(3499)+JVS(16078)*UV(3506)+JVS(16089)*UV(3508)+JVS(16113)*UV(3512)+JVS(16153)*UV(3516)+JVS(16158)& - &*UV(3517)+JVS(16170)*UV(3519)+JVS(16354)*UV(3545)+JVS(16393)*UV(3551)+JVS(16403)*UV(3553)+JVS(16456)& - &*UV(3560)+JVS(16516)*UV(3568)+JVS(16926)*UV(3617)+JVS(16960)*UV(3622)+JVS(17023)*UV(3630)+JVS(17086)& - &*UV(3638)+JVS(17167)*UV(3646)+JVS(17175)*UV(3647)+JVS(17465)*UV(3684)+JVS(17598)*UV(3701)+JVS(17796)& - &*UV(3726)+JVS(18364)*UV(3793)+JVS(18642)*UV(3830)+JVS(18647)*UV(3831)+JVS(18651)*UV(3832)+JVS(18656)& - &*UV(3833)+JVS(18661)*UV(3834)+JVS(18786)*UV(3849)+JVS(20012)*UV(3996)+JVS(20020)*UV(3997)+JVS(20039)& - &*UV(3999)+JVS(20059)*UV(4001)+JVS(20067)*UV(4002)+JVS(20101)*UV(4006)+JVS(20109)*UV(4007)+JVS(20117)& - &*UV(4008)+JVS(20125)*UV(4009)+JVS(20130)*UV(4010)+JVS(20138)*UV(4011)+JVS(20196)*UV(4016)+JVS(20201)& - &*UV(4017)+JVS(20206)*UV(4018)+JVS(20223)*UV(4020)+JVS(20231)*UV(4021)+JVS(20239)*UV(4022)+JVS(20247)& - &*UV(4023)+JVS(20279)*UV(4027)+JVS(20315)*UV(4032)+JVS(20323)*UV(4033)+JVS(20331)*UV(4034)+JVS(20339)& - &*UV(4035)+JVS(20347)*UV(4036)+JVS(20355)*UV(4037)+JVS(20374)*UV(4039)+JVS(20382)*UV(4040)+JVS(20425)& - &*UV(4044)+JVS(20483)*UV(4049)+JVS(20538)*UV(4054)+JVS(20549)*UV(4056)+JVS(20557)*UV(4057)+JVS(20597)& - &*UV(4061)+JVS(20614)*UV(4063)+JVS(20622)*UV(4064)+JVS(20630)*UV(4065)+JVS(20643)*UV(4067)+JVS(20682)& - &*UV(4072)+JVS(20690)*UV(4073)+JVS(20705)*UV(4075)+JVS(20740)*UV(4079)+JVS(20745)*UV(4080)+JVS(20754)& - &*UV(4081)+JVS(20762)*UV(4082)+JVS(20767)*UV(4083)+JVS(20779)*UV(4084)+JVS(20787)*UV(4085)+JVS(20857)& - &*UV(4093)+JVS(20862)*UV(4094)+JVS(20874)*UV(4096)+JVS(22528)*UV(4272)+JVS(22754)*UV(4294)+JVS(23125)& - &*UV(4330)+JVS(23155)*UV(4332)+JVS(23166)*UV(4333)+JVS(23537)*UV(4376)+JVS(23598)*UV(4383)+JVS(23724)& - &*UV(4395)+JVS(23731)*UV(4396)+JVS(23793)*UV(4402)+JVS(23880)*UV(4407)+JVS(23890)*UV(4408)+JVS(23942)& - &*UV(4413)+JVS(24015)*UV(4420)+JVS(24201)*UV(4437)+JVS(24211)*UV(4438)+JVS(24278)*UV(4444)+JVS(24374)& - &*UV(4453)+JVS(24384)*UV(4454)+JVS(24413)*UV(4457)+JVS(24500)*UV(4466)+JVS(24549)*UV(4471)+JVS(24571)& - &*UV(4474)+JVS(24575)*UV(4475)+JVS(24608)*UV(4478)+JVS(24618)*UV(4479)+JVS(24639)*UV(4481)+JVS(24718)& - &*UV(4487)+JVS(24781)*UV(4492)+JVS(24816)*UV(4494)+JVS(24826)*UV(4495)+JVS(24868)*UV(4499)+JVS(24921)& - &*UV(4504)+JVS(24928)*UV(4505)+JVS(25018)*UV(4508)+JVS(25028)*UV(4509)+JVS(25053)*UV(4512)+JVS(25073)& - &*UV(4514)+JVS(25206)*UV(4527)+JVS(25222)*UV(4528)+JVS(25250)*UV(4531)+JVS(25443)*UV(4547)+JVS(25478)& - &*UV(4550)+JVS(25521)*UV(4555)+JVS(25662)*UV(4569)+JVS(25668)*UV(4570)+JVS(25716)*UV(4576)+JVS(25818)& - &*UV(4588)+JVS(25864)*UV(4592)+JVS(25923)*UV(4600)+JVS(25927)*UV(4601)+JVS(25992)*UV(4604)+JVS(25996)& - &*UV(4605)+JVS(26000)*UV(4606)+JVS(26082)*UV(4615)+JVS(26258)*UV(4630)+JVS(26282)*UV(4632)+JVS(26328)& - &*UV(4637)+JVS(26348)*UV(4639)+JVS(26458)*UV(4650)+JVS(26572)*UV(4661)+JVS(26593)*UV(4663)+JVS(26636)& - &*UV(4666)+JVS(26667)*UV(4669)+JVS(26677)*UV(4670)+JVS(26688)*UV(4671)+JVS(26746)*UV(4676)+JVS(26761)& - &*UV(4678)+JVS(26802)*UV(4682)+JVS(26868)*UV(4688)+JVS(26878)*UV(4689)+JVS(26889)*UV(4690)+JVS(26896)& - &*UV(4691)+JVS(27260)*UV(4721)+JVS(27357)*UV(4729)+JVS(27550)*UV(4747)+JVS(27973)*UV(4786)+JVS(27994)& - &*UV(4788)+JVS(28016)*UV(4790)+JVS(28027)*UV(4791)+JVS(28053)*UV(4793)+JVS(28058)*UV(4794)+JVS(28160)& - &*UV(4797)+JVS(28173)*UV(4798)+JVS(28256)*UV(4805)+JVS(28310)*UV(4810)+JVS(28550)*UV(4832)+JVS(28633)& - &*UV(4840)+JVS(28675)*UV(4842)+JVS(28889)*UV(4857)+JVS(28910)*UV(4859)+JVS(29040)*UV(4869)+JVS(29321)& - &*UV(4895)+JVS(29332)*UV(4896)+JVS(29479)*UV(4907)+JVS(29523)*UV(4909)+JVS(29678)*UV(4918)+JVS(29701)& - &*UV(4920)+JVS(29786)*UV(4927)+JVS(29864)*UV(4931)+JVS(29881)*UV(4933)+JVS(30013)*UV(4938)+JVS(30227)& - &*UV(4951)+JVS(30240)*UV(4952)+JVS(30333)*UV(4958)+JVS(30425)*UV(4964)+JVS(30441)*UV(4965)+JVS(30503)& - &*UV(4970)+JVS(30576)*UV(4976)+JVS(30702)*UV(4983)+JVS(30773)*UV(4988)+JVS(30980)*UV(5000)+JVS(31017)& - &*UV(5002)+JVS(31218)*UV(5013)+JVS(31373)*UV(5023)+JVS(31382)*UV(5024)+JVS(31595)*UV(5037)+JVS(31834)& - &*UV(5048)+JVS(31847)*UV(5049)+JVS(31858)*UV(5050)+JVS(31863)*UV(5051)+JVS(31996)*UV(5058)+JVS(32135)& - &*UV(5066)+JVS(32169)*UV(5068)+JVS(32180)*UV(5069)+JVS(32286)*UV(5076)+JVS(32404)*UV(5083)+JVS(32450)& - &*UV(5085)+JVS(32547)*UV(5089)+JVS(32580)*UV(5092)+JVS(32594)*UV(5093)+JVS(32647)*UV(5095)+JVS(32831)& - &*UV(5103)+JVS(33209)*UV(5123)+JVS(33225)*UV(5124)+JVS(33323)*UV(5126)+JVS(33716)*UV(5139)+JVS(33758)& - &*UV(5141)+JVS(34127)*UV(5153)+JVS(34516)*UV(5160)+JVS(34662)*UV(5165)+JVS(34666)*UV(5166)+JVS(34696)& - &*UV(5168)+JVS(34717)*UV(5169)+JVS(34853)*UV(5175)+JVS(34882)*UV(5176)+JVS(34910)*UV(5177)+JVS(34964)& - &*UV(5178)+JVS(35049)*UV(5180)+JVS(35455)*UV(5187)+JVS(35568)*UV(5188)+JVS(35587)*UV(5189)+JVS(35596)& - &*UV(5190)+JVS(35705)*UV(5191)+JVS(36011)*UV(5193)+JVS(36046)*UV(5194)+JVS(36295)*UV(5200)+JVS(36854)& - &*UV(5203)+JVS(36878)*UV(5205)+JVS(36910)*UV(5207)+JVS(36962)*UV(5209)+JVS(37227)*UV(5215)+JVS(37332)& - &*UV(5220)+JVS(37370)*UV(5221)+JVS(37671)*UV(5222)+JVS(37785)*UV(5225)+JVS(37821)*UV(5226)+JVS(37835)& - &*UV(5227)+JVS(38088)*UV(5230)+JVS(38790)*UV(5231)+JVS(39193)*UV(5233)+JVS(39342)*UV(5234)+JVS(39596)& - &*UV(5240)+JVS(39769)*UV(5242)+JVS(40451)*UV(5244)+JVS(40570)*UV(5248)+JVS(40585)*UV(5249)+JVS(45064)& - &*UV(5250)+JVS(46589)*UV(5251)+JVS(47940)*UV(5252)+JVS(50216)*UV(5253)+JVS(53215)*UV(5255)+JVS(54816)& - &*UV(5256)+JVS(54838)*UV(5257)+JVS(55272)*UV(5258) - -END SUBROUTINE JacTR_SP_Vec - -! End of JacTR_SP_Vec function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE MCMv3_3_Jacobian - diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Jacobian.o b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Jacobian.o deleted file mode 100644 index 9ed76b987418d6bf45bc5577ed35497841eed237..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Jacobian.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_JacobianSP.f90 b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_JacobianSP.f90 deleted file mode 100644 index 45ae9694760f6bb04667b0c0263b09ebb32ac2e1..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_JacobianSP.f90 +++ /dev/null @@ -1,10540 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Sparse Jacobian Data Structures File -! -! Generated by KPP-2.2.3 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 : MCMv3_3_JacobianSP.f90 -! Time : Mon Jul 19 14:16:06 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MCMv3_3_3654_BOXMOX -! Equation file : MCMv3_3.kpp -! Output root filename : MCMv3_3 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MCMv3_3_JacobianSP - - PUBLIC - SAVE - - -! Sparse Jacobian Data - - - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_0 = (/ & - 1, 1, 1, 2, 2, 3, 3, 3, 3, 3, 3, 3, & - 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, & - 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, & - 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, & - 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 5, & - 5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 9, 9, & - 10, 10, 10, 10, 11, 11, 12, 12, 12, 13, 13, 13, & - 14, 14, 14, 14, 14, 15, 15, 15, 16, 16, 16, 16, & - 16, 17, 17, 17, 18, 18, 18, 19, 19, 19, 20, 20, & - 20, 21, 21, 21, 22, 22, 22, 23, 23, 23, 24, 24, & - 24, 25, 25, 25, 25, 25, 26, 26, 26, 27, 27, 27, & - 28, 28, 28, 29, 29, 29, 30, 30, 30, 31, 31, 31, & - 32, 32, 32, 33, 33, 33, 34, 34, 34, 35, 35, 35, & - 35, 35, 36, 36, 36, 36, 36, 37, 37, 37, 38, 38, & - 38, 39, 39, 39, 40, 40, 40, 41, 41, 41, 42, 42, & - 42, 42, 42, 43, 43, 43, 43, 43, 44, 44, 44, 44, & - 44, 45, 45, 45, 45, 45, 46, 46, 46, 47, 47, 47, & - 48, 48, 48, 49, 49, 49, 49, 49, 50, 50, 50, 50, & - 50, 51, 51, 51, 51, 51, 52, 52, 52, 53, 53, 53, & - 54, 54, 54, 55, 55, 55, 56, 56, 56, 57, 57, 57, & - 57, 57, 58, 58, 58, 59, 59, 59, 60, 60, 60, 61, & - 61, 61, 62, 62, 62, 63, 63, 63, 64, 64, 64, 65, & - 65, 65, 65, 65, 66, 66, 66, 66, 66, 67, 67, 67, & - 68, 68, 68, 69, 69, 69, 69, 69, 70, 70, 70, 71, & - 71, 71, 72, 72, 72, 73, 73, 73, 74, 74, 74, 75, & - 75, 75, 76, 76, 76, 76, 76, 77, 77, 77, 78, 78, & - 78, 78, 78, 79, 79, 79, 80, 80, 80, 80, 80, 81, & - 81, 81, 82, 82, 82, 82, 82, 83, 83, 83, 84, 84, & - 84, 85, 85, 85, 86, 86, 86, 87, 87, 87, 88, 88, & - 88, 88, 88, 89, 89, 89, 90, 90, 90, 91, 91, 91 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_1 = (/ & - 91, 91, 92, 92, 92, 92, 92, 93, 93, 93, 94, 94, & - 94, 95, 95, 95, 96, 96, 96, 96, 96, 97, 97, 97, & - 97, 97, 98, 98, 98, 99, 99, 99,100,100,100,101, & - 101,101,102,102,102,103,103,103,104,104,104,105, & - 105,105,106,106,106,107,107,107,107,107,108,108, & - 108,109,109,109,110,110,110,111,111,111,112,112, & - 112,113,113,113,113,113,114,114,114,115,115,115, & - 115,115,116,116,116,116,116,117,117,117,117,117, & - 118,118,118,119,119,119,120,120,120,120,120,121, & - 121,121,122,122,122,122,123,123,123,124,124,124, & - 125,125,125,125,125,126,126,126,127,127,127,128, & - 128,128,129,129,129,130,130,130,130,130,131,131, & - 131,132,132,132,132,132,133,133,133,134,134,134, & - 135,135,135,136,136,136,137,137,137,138,138,138, & - 138,138,139,139,139,140,140,140,140,140,141,141, & - 141,141,141,142,142,142,143,143,143,144,144,144, & - 145,145,145,145,145,146,146,146,146,146,147,147, & - 147,148,148,148,149,149,149,149,149,149,150,150, & - 150,150,150,150,151,151,151,151,151,151,152,152, & - 152,152,152,152,152,153,153,153,153,153,153,154, & - 154,154,154,154,154,155,155,155,155,155,155,156, & - 156,156,156,156,156,157,157,157,157,157,157,158, & - 158,158,158,158,158,159,159,159,159,159,159,160, & - 160,160,160,160,160,161,161,161,161,161,161,162, & - 162,162,162,162,162,163,163,163,163,163,163,163, & - 164,164,164,164,164,164,164,165,165,165,165,165, & - 165,166,166,166,166,166,166,167,167,167,167,167, & - 167,168,168,168,168,168,168,169,169,169,169,169, & - 169,169,170,170,170,170,170,170,170,171,171,171, & - 171,171,171,172,172,172,172,172,172,173,173,173 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_2 = (/ & - 173,173,173,174,174,174,174,174,174,175,175,175, & - 175,175,175,176,176,176,176,176,176,177,177,177, & - 177,177,177,178,178,178,178,178,178,179,179,179, & - 179,179,179,180,180,180,180,180,180,181,181,182, & - 182,182,182,182,182,183,183,183,183,183,183,184, & - 184,184,184,184,184,185,185,185,185,185,185,186, & - 186,186,186,186,186,187,187,187,187,187,187,188, & - 188,188,188,188,188,189,189,189,189,189,189,190, & - 190,190,190,190,190,191,191,191,191,191,191,192, & - 192,192,192,192,192,193,193,193,193,193,193,194, & - 194,194,194,194,194,195,195,195,195,195,195,196, & - 196,196,196,196,196,197,197,197,197,197,197,198, & - 198,199,199,199,199,199,199,200,200,200,200,200, & - 200,201,201,201,201,201,201,202,202,202,202,202, & - 202,203,203,203,203,203,203,204,204,204,204,204, & - 204,204,205,205,205,205,205,205,206,206,206,206, & - 206,206,206,207,207,207,207,208,208,208,209,209, & - 209,210,210,210,210,211,211,211,211,211,211,211, & - 211,212,212,212,213,213,213,214,214,214,215,215, & - 215,215,216,216,216,216,217,217,217,218,218,218, & - 219,219,219,220,220,220,221,221,221,222,222,222, & - 222,223,223,223,224,224,224,225,225,225,226,226, & - 226,227,227,227,227,228,228,228,229,229,229,230, & - 230,230,230,231,231,231,232,232,232,232,233,233, & - 233,234,234,234,235,235,235,236,236,236,237,237, & - 237,237,238,238,238,239,239,239,240,240,240,240, & - 241,241,241,241,242,242,242,243,243,243,244,244, & - 244,245,245,245,246,246,246,247,247,247,248,248, & - 248,249,249,249,250,250,251,251,251,251,252,252, & - 252,252,253,253,253,254,254,254,254,254,254,254 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_3 = (/ & - 254,255,255,255,255,256,256,256,257,257,257,258, & - 258,258,258,259,259,259,260,260,260,260,261,261, & - 261,261,262,262,262,263,263,263,264,264,264,264, & - 265,265,265,265,266,266,266,267,267,267,268,268, & - 268,269,269,269,270,270,270,271,271,271,271,271, & - 271,271,272,272,272,272,273,273,273,274,274,274, & - 275,275,275,275,276,276,276,276,277,277,277,278, & - 278,278,279,279,279,280,280,280,280,281,281,281, & - 282,282,282,282,283,283,283,284,284,284,285,285, & - 285,286,286,286,287,287,287,287,288,288,288,289, & - 289,289,290,290,290,290,290,290,290,290,291,291, & - 291,291,292,292,292,293,293,293,294,294,294,294, & - 295,295,295,296,296,296,297,297,297,297,297,297, & - 297,297,298,298,298,299,299,299,300,300,300,300, & - 300,300,300,301,301,301,301,302,302,302,303,303, & - 303,304,304,304,305,305,305,306,306,306,307,307, & - 307,308,308,308,309,309,309,309,310,310,310,311, & - 311,311,312,312,312,313,313,313,314,314,314,315, & - 315,315,315,315,315,315,315,316,316,316,317,317, & - 317,318,318,318,318,318,319,319,319,320,320,320, & - 321,321,321,322,322,322,323,323,323,323,323,324, & - 324,324,324,325,325,325,326,326,326,326,326,326, & - 326,326,327,327,327,328,328,328,328,329,329,329, & - 329,330,330,330,330,331,331,331,332,332,332,333, & - 333,333,334,334,334,335,335,335,336,336,336,337, & - 337,337,338,338,338,339,339,339,340,340,340,341, & - 341,341,341,342,342,342,343,343,343,343,344,344, & - 344,345,345,345,346,346,346,347,347,347,348,348, & - 348,349,349,349,350,350,350,351,351,351,351,352, & - 352,352,353,353,353,354,354,354,355,355,355,356 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_4 = (/ & - 356,356,357,357,357,358,358,358,359,359,359,360, & - 360,360,360,361,361,361,362,362,362,363,363,363, & - 363,364,364,364,364,365,365,365,366,366,366,367, & - 367,367,367,368,368,368,369,369,369,370,370,370, & - 370,370,370,370,371,371,371,372,372,372,373,373, & - 373,373,373,374,374,374,375,375,375,375,376,376, & - 376,376,377,377,377,378,378,378,378,379,379,379, & - 379,380,380,380,381,381,381,382,382,382,383,383, & - 383,384,384,384,384,385,385,385,386,386,386,387, & - 387,387,387,388,388,388,388,389,389,389,389,390, & - 390,390,391,391,391,392,392,392,393,393,393,393, & - 394,394,394,395,395,395,396,396,396,397,397,397, & - 397,397,398,398,398,398,399,399,399,400,400,400, & - 401,401,401,402,402,402,403,403,403,404,404,404, & - 404,404,405,405,405,405,406,406,406,407,407,407, & - 407,407,407,407,407,408,408,408,409,409,409,410, & - 410,410,411,411,411,412,412,412,413,413,413,414, & - 414,414,414,415,415,415,416,416,416,417,417,417, & - 418,418,418,419,419,419,420,420,420,420,421,421, & - 421,421,421,421,421,421,422,422,422,423,423,423, & - 423,424,424,424,425,425,425,426,426,426,427,427, & - 427,428,428,428,429,429,429,430,430,430,431,431, & - 431,432,432,432,433,433,433,433,434,434,434,434, & - 435,435,435,435,436,436,436,437,437,437,438,438, & - 438,438,439,439,439,440,440,440,441,441,441,442, & - 442,442,443,443,443,443,443,443,443,443,444,444, & - 444,445,445,445,445,445,445,445,445,446,446,446, & - 447,447,447,448,448,448,449,449,449,449,450,450, & - 450,450,450,450,450,450,451,451,451,452,452,452, & - 453,453,453,454,454,454,455,455,455,455,455,456 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_5 = (/ & - 456,456,456,457,457,457,457,458,458,458,459,459, & - 459,459,460,460,460,461,461,461,461,462,462,462, & - 463,463,463,464,464,464,465,465,465,466,466,466, & - 467,467,467,468,468,468,469,469,469,470,470,470, & - 470,471,471,471,472,472,472,472,472,473,473,473, & - 474,474,474,474,475,475,475,476,476,476,477,477, & - 477,478,478,478,479,479,479,479,480,480,480,481, & - 481,481,482,482,482,483,483,483,483,484,484,484, & - 484,485,485,485,486,486,486,487,487,487,488,488, & - 488,488,489,489,489,489,490,490,490,490,490,491, & - 491,491,491,492,492,492,492,493,493,493,494,494, & - 494,495,495,495,496,496,496,496,497,497,497,498, & - 498,498,499,499,499,499,500,500,500,501,501,501, & - 502,502,502,503,503,503,503,504,504,504,505,505, & - 505,506,506,506,506,507,507,507,507,508,508,508, & - 508,509,509,509,510,510,510,510,510,511,511,511, & - 512,512,512,513,513,513,514,514,514,515,515,515, & - 515,516,516,516,517,517,517,518,518,518,518,519, & - 519,519,519,520,520,520,521,521,521,521,522,522, & - 522,523,523,523,524,524,524,525,525,525,526,526, & - 526,527,527,527,528,528,528,528,528,529,529,529, & - 530,530,530,531,531,531,532,532,532,532,532,533, & - 533,533,533,533,534,534,534,534,534,535,535,535, & - 535,535,536,536,536,537,537,537,537,537,538,538, & - 538,539,539,539,539,539,540,540,540,541,541,541, & - 541,541,542,542,542,543,543,543,544,544,544,544, & - 544,545,545,545,545,545,546,546,546,547,547,547, & - 548,548,548,549,549,549,549,549,550,550,550,550, & - 550,551,551,551,551,551,552,552,552,552,552,553, & - 553,553,553,553,554,554,554,555,555,555,555,555 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_6 = (/ & - 556,556,556,557,557,557,557,557,558,558,558,559, & - 559,559,560,560,560,561,561,561,561,561,561,562, & - 562,562,562,563,563,563,564,564,564,564,564,565, & - 565,565,566,566,566,567,567,567,568,568,568,569, & - 569,569,570,570,570,570,570,571,571,571,571,571, & - 572,572,572,573,573,573,573,573,574,574,574,574, & - 574,575,575,575,575,575,576,576,576,577,577,577, & - 578,578,578,578,578,579,579,579,580,580,580,581, & - 581,581,581,581,582,582,582,582,582,583,583,583, & - 584,584,584,584,584,585,585,585,585,585,586,586, & - 586,587,587,587,588,588,588,589,589,589,589,589, & - 590,590,590,591,591,591,592,592,592,592,592,593, & - 593,593,593,593,593,594,594,594,594,595,595,595, & - 595,595,596,596,596,596,596,597,597,597,597,597, & - 598,598,598,599,599,599,600,600,600,600,600,601, & - 601,601,602,602,602,603,603,603,603,603,604,604, & - 604,605,605,605,605,605,606,606,606,606,606,607, & - 607,607,607,607,608,608,608,609,609,609,610,610, & - 610,610,610,611,611,611,611,611,612,612,612,613, & - 613,613,613,613,614,614,614,615,615,615,615,615, & - 616,616,616,617,617,617,617,617,618,618,618,618, & - 618,619,619,619,619,619,620,620,620,620,620,621, & - 621,621,622,622,622,623,623,623,623,623,624,624, & - 624,624,624,625,625,625,625,625,626,626,626,627, & - 627,627,627,627,628,628,628,629,629,629,629,629, & - 630,630,630,630,630,631,631,631,631,631,632,632, & - 632,632,632,633,633,633,634,634,634,635,635,635, & - 635,635,636,636,636,637,637,637,637,637,638,638, & - 638,638,638,639,639,639,639,639,640,640,640,641, & - 641,641,641,641,642,642,642,642,642,643,643,643 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_7 = (/ & - 643,643,644,644,644,644,644,645,645,645,645,645, & - 646,646,646,646,646,647,647,647,648,648,648,648, & - 648,649,649,649,649,649,650,650,650,651,651,651, & - 652,652,652,652,652,652,653,653,653,653,654,654, & - 654,654,654,655,655,655,655,655,656,656,656,656, & - 656,657,657,657,658,658,658,658,658,659,659,659, & - 660,660,660,660,660,661,661,661,662,662,662,663, & - 663,663,663,663,664,664,664,665,665,665,665,665, & - 666,666,666,666,666,667,667,667,668,668,668,669, & - 669,669,669,669,670,670,670,670,670,671,671,671, & - 672,672,672,672,672,673,673,673,673,673,674,674, & - 674,674,674,675,675,675,676,676,676,677,677,677, & - 677,677,678,678,678,679,679,679,679,679,680,680, & - 680,680,680,680,681,681,681,682,682,682,682,682, & - 683,683,683,684,684,684,685,685,685,686,686,686, & - 687,687,687,687,687,688,688,688,688,688,689,689, & - 689,689,689,690,690,690,691,691,691,691,691,692, & - 692,692,693,693,693,693,693,694,694,694,695,695, & - 695,695,695,696,696,696,697,697,697,697,697,698, & - 698,698,698,698,699,699,699,700,700,700,701,701, & - 701,702,702,702,702,702,703,703,703,703,703,704, & - 704,704,704,704,705,705,705,706,706,706,706,706, & - 707,707,707,707,707,708,708,708,708,708,709,709, & - 709,709,709,710,710,710,710,710,711,711,711,711, & - 711,712,712,712,712,712,713,713,713,714,714,714, & - 714,714,715,715,715,715,715,716,716,716,716,716, & - 717,717,717,717,717,718,718,718,719,719,719,720, & - 720,720,720,720,721,721,721,721,721,722,722,722, & - 722,722,723,723,723,724,724,724,724,724,725,725, & - 725,726,726,726,726,726,727,727,727,727,727,728 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_8 = (/ & - 728,728,728,728,729,729,729,729,729,730,730,730, & - 730,730,731,731,731,731,731,732,732,732,733,733, & - 733,733,733,734,734,734,734,734,735,735,735,735, & - 735,735,736,736,736,736,737,737,737,737,737,738, & - 738,738,739,739,739,739,739,740,740,740,740,740, & - 741,741,741,741,741,742,742,742,743,743,743,743, & - 743,744,744,744,744,744,745,745,745,745,745,746, & - 746,746,746,746,747,747,747,747,747,748,748,748, & - 748,748,749,749,749,749,749,750,750,750,750,750, & - 751,751,751,751,751,752,752,752,753,753,753,753, & - 753,754,754,754,755,755,755,755,755,756,756,756, & - 756,756,757,757,757,758,758,758,759,759,759,760, & - 760,760,760,760,760,761,761,761,761,761,762,762, & - 762,763,763,763,764,764,764,765,765,765,765,765, & - 766,766,766,767,767,767,768,768,768,768,768,769, & - 769,769,770,770,770,770,770,771,771,771,772,772, & - 772,773,773,773,773,773,774,774,774,774,774,775, & - 775,775,775,775,776,776,776,776,776,777,777,777, & - 777,777,778,778,778,778,778,779,779,779,780,780, & - 780,780,780,781,781,781,781,781,782,782,782,782, & - 782,783,783,783,783,783,784,784,784,784,784,785, & - 785,785,786,786,786,786,786,787,787,787,787,787, & - 788,788,788,789,789,789,790,790,790,791,791,791, & - 791,791,792,792,792,792,792,793,793,793,794,794, & - 794,795,795,795,795,795,796,796,796,797,797,797, & - 797,797,798,798,798,798,798,799,799,799,800,800, & - 800,800,800,801,801,801,801,801,802,802,802,802, & - 802,803,803,803,804,804,804,805,805,805,806,806, & - 806,807,807,807,808,808,808,808,808,809,809,809, & - 809,809,810,810,810,810,810,811,811,811,812,812 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_9 = (/ & - 812,813,813,813,814,814,814,814,814,815,815,815, & - 815,815,816,816,816,816,816,817,817,817,817,817, & - 818,818,818,818,818,819,819,819,820,820,820,820, & - 820,821,821,821,822,822,822,822,823,823,823,823, & - 824,824,824,824,825,825,825,825,826,826,826,826, & - 827,827,827,827,828,828,828,828,829,829,829,829, & - 830,830,830,830,831,831,831,831,832,832,832,832, & - 833,833,833,833,834,834,834,834,835,835,835,835, & - 836,836,836,836,837,837,837,837,838,838,838,838, & - 839,839,839,839,840,840,840,840,841,841,841,841, & - 842,842,842,842,843,843,843,843,844,844,844,844, & - 845,845,845,845,846,846,846,846,847,847,847,847, & - 848,848,848,848,849,849,849,849,850,850,850,850, & - 851,851,851,851,852,852,852,852,853,853,853,853, & - 854,854,854,854,855,855,855,855,856,856,856,856, & - 857,857,857,857,858,858,858,858,859,859,859,859, & - 860,860,860,860,861,861,861,861,862,862,862,862, & - 863,863,863,863,864,864,864,864,865,865,865,865, & - 866,866,866,866,867,867,867,867,868,868,868,868, & - 869,869,869,869,870,870,870,870,871,871,871,871, & - 872,872,872,872,873,873,873,873,874,874,874,874, & - 875,875,875,875,876,876,876,876,877,877,877,877, & - 878,878,878,878,879,879,879,879,880,880,880,880, & - 881,881,881,881,882,882,882,882,883,883,883,883, & - 884,884,884,884,885,885,885,885,886,886,886,886, & - 887,887,887,887,888,888,888,888,889,889,889,889, & - 890,890,890,890,891,891,891,891,892,892,892,892, & - 893,893,893,893,894,894,894,894,895,895,895,895, & - 896,896,896,896,897,897,897,897,898,898,898,898, & - 899,899,899,899,900,900,900,900,901,901,901,901 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_10 = (/ & - 902,902,902,902,903,903,903,903,904,904,904,904, & - 905,905,905,905,906,906,906,906,907,907,907,907, & - 908,908,908,908,909,909,909,909,910,910,910,910, & - 911,911,911,911,911,911,912,912,912,912,913,913, & - 913,913,914,914,914,914,915,915,915,915,916,916, & - 916,916,917,917,917,917,918,918,918,918,919,919, & - 919,919,920,920,920,920,921,921,921,921,922,922, & - 922,922,923,923,923,923,924,924,924,924,925,925, & - 925,925,926,926,926,926,927,927,927,927,928,928, & - 928,928,929,929,929,929,930,930,930,930,931,931, & - 931,931,932,932,932,932,933,933,933,933,934,934, & - 934,934,935,935,935,935,936,936,936,936,937,937, & - 937,937,938,938,938,938,939,939,939,939,940,940, & - 940,940,941,941,941,941,942,942,942,942,943,943, & - 943,943,944,944,944,944,945,945,945,945,946,946, & - 946,946,947,947,947,947,948,948,948,948,949,949, & - 949,949,950,950,950,950,951,951,951,951,952,952, & - 952,952,953,953,953,953,954,954,954,954,955,955, & - 955,955,956,956,956,956,957,957,957,957,958,958, & - 958,958,959,959,959,959,960,960,960,960,961,961, & - 961,961,962,962,962,962,963,963,963,963,964,964, & - 964,964,965,965,965,965,966,966,966,966,967,967, & - 967,967,968,968,968,968,969,969,969,969,970,970, & - 970,970,971,971,971,971,972,972,972,972,973,973, & - 973,973,974,974,974,974,975,975,975,975,976,976, & - 976,976,977,977,977,977,978,978,978,978,979,979, & - 979,979,980,980,980,980,981,981,981,981,982,982, & - 982,982,983,983,983,983,984,984,984,984,985,985, & - 985,985,986,986,986,986,987,987,987,987,988,988, & - 988,988,989,989,989,989,990,990,990,990,991,991 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_11 = (/ & - 991,991,992,992,992,992,993,993,993,993,994,994, & - 994,994,995,995,995,995,996,996,996,996,997,997, & - 997,997,998,998,998,998,999,999,999,999,1000,1000, & - 1000,1000,1001,1001,1001,1001,1002,1002,1002,1002,1003,1003, & - 1003,1003,1004,1004,1004,1004,1005,1005,1005,1005,1006,1006, & - 1006,1006,1007,1007,1007,1007,1008,1008,1008,1008,1009,1009, & - 1009,1009,1010,1010,1010,1010,1011,1011,1011,1011,1012,1012, & - 1012,1012,1013,1013,1013,1013,1014,1014,1014,1014,1015,1015, & - 1015,1015,1016,1016,1016,1016,1017,1017,1017,1017,1018,1018, & - 1018,1018,1019,1019,1019,1019,1020,1020,1020,1020,1021,1021, & - 1021,1021,1022,1022,1022,1022,1023,1023,1023,1023,1024,1024, & - 1024,1024,1025,1025,1025,1025,1026,1026,1026,1026,1027,1027, & - 1027,1027,1028,1028,1028,1028,1029,1029,1029,1029,1030,1030, & - 1030,1030,1031,1031,1031,1031,1032,1032,1032,1032,1033,1033, & - 1033,1033,1034,1034,1034,1034,1035,1035,1035,1035,1036,1036, & - 1036,1036,1037,1037,1037,1037,1038,1038,1038,1038,1039,1039, & - 1039,1039,1040,1040,1040,1040,1040,1040,1041,1041,1041,1041, & - 1042,1042,1042,1042,1043,1043,1043,1043,1044,1044,1044,1044, & - 1045,1045,1045,1045,1046,1046,1046,1046,1047,1047,1047,1047, & - 1048,1048,1048,1048,1049,1049,1049,1049,1050,1050,1050,1050, & - 1051,1051,1051,1051,1052,1052,1052,1052,1053,1053,1053,1053, & - 1054,1054,1054,1054,1055,1055,1055,1055,1056,1056,1056,1056, & - 1057,1057,1057,1057,1058,1058,1058,1058,1059,1059,1059,1059, & - 1060,1060,1060,1060,1061,1061,1061,1061,1062,1062,1062,1062, & - 1063,1063,1063,1063,1064,1064,1064,1064,1065,1065,1065,1065, & - 1066,1066,1066,1066,1067,1067,1067,1067,1068,1068,1068,1068, & - 1069,1069,1069,1069,1070,1070,1070,1070,1071,1071,1071,1071, & - 1072,1072,1072,1072,1073,1073,1073,1073,1074,1074,1074,1074, & - 1075,1075,1075,1075,1076,1076,1076,1076,1077,1077,1077,1077, & - 1078,1078,1078,1078,1079,1079,1079,1079,1080,1080,1080,1080 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_12 = (/ & - 1081,1081,1081,1081,1082,1082,1082,1082,1083,1083,1083,1083, & - 1084,1084,1084,1084,1085,1085,1085,1085,1086,1086,1086,1086, & - 1087,1087,1087,1087,1088,1088,1088,1088,1089,1089,1089,1089, & - 1090,1090,1090,1090,1091,1091,1091,1091,1092,1092,1092,1092, & - 1093,1093,1093,1093,1094,1094,1094,1094,1095,1095,1095,1095, & - 1096,1096,1096,1096,1097,1097,1097,1097,1098,1098,1098,1098, & - 1099,1099,1099,1099,1100,1100,1100,1100,1101,1101,1101,1101, & - 1102,1102,1102,1102,1103,1103,1103,1103,1104,1104,1104,1104, & - 1105,1105,1105,1105,1106,1106,1106,1106,1107,1107,1107,1107, & - 1108,1108,1108,1108,1109,1109,1109,1109,1110,1110,1110,1110, & - 1111,1111,1111,1111,1112,1112,1112,1112,1113,1113,1113,1113, & - 1114,1114,1114,1114,1115,1115,1115,1115,1116,1116,1116,1116, & - 1117,1117,1117,1117,1118,1118,1118,1118,1119,1119,1119,1119, & - 1120,1120,1120,1120,1121,1121,1121,1121,1122,1122,1122,1122, & - 1123,1123,1123,1123,1124,1124,1124,1124,1125,1125,1125,1125, & - 1126,1126,1126,1126,1127,1127,1127,1127,1128,1128,1128,1128, & - 1129,1129,1129,1129,1130,1130,1130,1130,1131,1131,1131,1131, & - 1132,1132,1132,1132,1133,1133,1133,1133,1133,1133,1134,1134, & - 1134,1134,1135,1135,1135,1135,1136,1136,1136,1136,1137,1137, & - 1137,1137,1138,1138,1138,1138,1139,1139,1139,1139,1140,1140, & - 1140,1140,1141,1141,1141,1141,1142,1142,1142,1142,1143,1143, & - 1143,1143,1144,1144,1144,1144,1145,1145,1145,1145,1146,1146, & - 1146,1146,1147,1147,1147,1147,1148,1148,1148,1148,1149,1149, & - 1149,1149,1150,1150,1150,1150,1151,1151,1151,1151,1152,1152, & - 1152,1152,1153,1153,1153,1153,1154,1154,1154,1154,1155,1155, & - 1155,1155,1156,1156,1156,1156,1157,1157,1157,1157,1158,1158, & - 1158,1158,1159,1159,1159,1159,1160,1160,1160,1160,1161,1161, & - 1161,1161,1162,1162,1162,1162,1163,1163,1163,1163,1164,1164, & - 1164,1164,1165,1165,1165,1165,1166,1166,1166,1166,1167,1167, & - 1167,1167,1168,1168,1168,1168,1169,1169,1169,1169,1170,1170 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_13 = (/ & - 1170,1170,1171,1171,1171,1171,1172,1172,1172,1172,1173,1173, & - 1173,1173,1174,1174,1174,1174,1175,1175,1175,1175,1176,1176, & - 1176,1176,1177,1177,1177,1177,1178,1178,1178,1178,1179,1179, & - 1179,1179,1180,1180,1180,1180,1181,1181,1181,1181,1182,1182, & - 1182,1182,1183,1183,1183,1183,1184,1184,1184,1184,1185,1185, & - 1185,1185,1186,1186,1186,1186,1187,1187,1187,1187,1188,1188, & - 1188,1188,1189,1189,1189,1189,1190,1190,1190,1190,1191,1191, & - 1191,1191,1192,1192,1192,1192,1193,1193,1193,1193,1194,1194, & - 1194,1194,1195,1195,1195,1195,1196,1196,1196,1196,1197,1197, & - 1197,1197,1198,1198,1198,1198,1199,1199,1199,1199,1200,1200, & - 1200,1200,1201,1201,1201,1201,1202,1202,1202,1202,1203,1203, & - 1203,1203,1204,1204,1204,1204,1205,1205,1205,1205,1206,1206, & - 1206,1206,1207,1207,1207,1207,1208,1208,1208,1208,1209,1209, & - 1209,1209,1210,1210,1210,1210,1211,1211,1211,1211,1212,1212, & - 1212,1212,1213,1213,1213,1213,1214,1214,1214,1214,1215,1215, & - 1215,1215,1216,1216,1216,1216,1217,1217,1217,1217,1218,1218, & - 1218,1218,1219,1219,1219,1219,1220,1220,1220,1220,1221,1221, & - 1221,1221,1222,1222,1222,1222,1223,1223,1223,1223,1224,1224, & - 1224,1224,1225,1225,1225,1225,1226,1226,1226,1226,1227,1227, & - 1227,1227,1228,1228,1228,1228,1229,1229,1229,1229,1230,1230, & - 1230,1230,1231,1231,1231,1231,1231,1231,1232,1232,1232,1232, & - 1233,1233,1233,1233,1234,1234,1234,1234,1235,1235,1235,1235, & - 1236,1236,1236,1236,1237,1237,1237,1237,1238,1238,1238,1238, & - 1239,1239,1239,1239,1240,1240,1240,1240,1241,1241,1241,1241, & - 1242,1242,1242,1242,1243,1243,1243,1243,1244,1244,1244,1244, & - 1245,1245,1245,1245,1246,1246,1246,1246,1247,1247,1247,1247, & - 1248,1248,1248,1248,1249,1249,1249,1249,1250,1250,1250,1250, & - 1251,1251,1251,1251,1252,1252,1252,1252,1253,1253,1253,1253, & - 1254,1254,1254,1254,1255,1255,1255,1255,1256,1256,1256,1256, & - 1257,1257,1257,1257,1257,1258,1258,1258,1258,1259,1259,1259 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_14 = (/ & - 1259,1260,1260,1260,1260,1261,1261,1261,1261,1262,1262,1262, & - 1262,1263,1263,1263,1263,1264,1264,1264,1264,1265,1265,1265, & - 1265,1266,1266,1266,1266,1267,1267,1267,1267,1268,1268,1268, & - 1268,1269,1269,1269,1269,1270,1270,1270,1270,1271,1271,1271, & - 1271,1272,1272,1272,1272,1273,1273,1273,1273,1274,1274,1274, & - 1274,1275,1275,1275,1275,1276,1276,1276,1276,1277,1277,1277, & - 1277,1278,1278,1278,1278,1279,1279,1279,1279,1280,1280,1280, & - 1280,1281,1281,1281,1281,1282,1282,1282,1282,1283,1283,1283, & - 1283,1284,1284,1284,1284,1285,1285,1285,1285,1286,1286,1286, & - 1286,1287,1287,1287,1287,1288,1288,1288,1288,1289,1289,1289, & - 1289,1290,1290,1290,1290,1291,1291,1291,1291,1292,1292,1292, & - 1292,1293,1293,1293,1293,1294,1294,1294,1294,1295,1295,1295, & - 1295,1296,1296,1296,1296,1297,1297,1297,1297,1298,1298,1298, & - 1298,1299,1299,1299,1299,1300,1300,1300,1300,1301,1301,1301, & - 1301,1302,1302,1302,1302,1303,1303,1303,1303,1304,1304,1304, & - 1304,1305,1305,1305,1305,1306,1306,1306,1306,1307,1307,1307, & - 1307,1308,1308,1308,1308,1309,1309,1309,1309,1310,1310,1310, & - 1310,1311,1311,1311,1311,1312,1312,1312,1312,1313,1313,1313, & - 1313,1314,1314,1314,1314,1315,1315,1315,1315,1316,1316,1316, & - 1316,1317,1317,1317,1317,1318,1318,1318,1318,1319,1319,1319, & - 1319,1320,1320,1320,1320,1321,1321,1321,1321,1322,1322,1322, & - 1322,1323,1323,1323,1323,1324,1324,1324,1324,1325,1325,1325, & - 1325,1326,1326,1326,1326,1327,1327,1327,1327,1328,1328,1328, & - 1328,1329,1329,1329,1329,1330,1330,1330,1330,1331,1331,1331, & - 1331,1332,1332,1332,1332,1333,1333,1333,1333,1334,1334,1334, & - 1334,1335,1335,1335,1335,1336,1336,1336,1336,1337,1337,1337, & - 1337,1338,1338,1338,1338,1339,1339,1339,1339,1340,1340,1340, & - 1340,1341,1341,1341,1341,1342,1342,1342,1342,1343,1343,1343, & - 1343,1344,1344,1344,1344,1345,1345,1345,1345,1346,1346,1346, & - 1346,1347,1347,1347,1347,1348,1348,1348,1348,1349,1349,1349 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_15 = (/ & - 1349,1350,1350,1350,1350,1351,1351,1351,1351,1352,1352,1352, & - 1352,1353,1353,1353,1353,1354,1354,1354,1354,1355,1355,1355, & - 1355,1356,1356,1356,1356,1357,1357,1357,1357,1358,1358,1358, & - 1358,1359,1359,1359,1359,1360,1360,1360,1360,1361,1361,1361, & - 1361,1362,1362,1362,1362,1363,1363,1363,1363,1364,1364,1364, & - 1364,1365,1365,1365,1365,1366,1366,1366,1366,1367,1367,1367, & - 1367,1368,1368,1368,1368,1369,1369,1369,1369,1370,1370,1370, & - 1370,1371,1371,1371,1371,1372,1372,1372,1372,1372,1373,1373, & - 1373,1373,1374,1374,1374,1374,1375,1375,1375,1375,1376,1376, & - 1376,1376,1377,1377,1377,1377,1378,1378,1378,1378,1379,1379, & - 1379,1379,1380,1380,1380,1380,1381,1381,1381,1381,1382,1382, & - 1382,1382,1383,1383,1383,1383,1384,1384,1384,1384,1385,1385, & - 1385,1385,1386,1386,1386,1386,1387,1387,1387,1387,1388,1388, & - 1388,1388,1389,1389,1389,1389,1390,1390,1390,1390,1391,1391, & - 1391,1391,1392,1392,1392,1392,1393,1393,1393,1393,1394,1394, & - 1394,1394,1395,1395,1395,1395,1396,1396,1396,1396,1397,1397, & - 1397,1397,1398,1398,1398,1398,1399,1399,1399,1399,1400,1400, & - 1400,1400,1401,1401,1401,1401,1402,1402,1402,1402,1403,1403, & - 1403,1403,1404,1404,1404,1404,1405,1405,1405,1405,1406,1406, & - 1406,1406,1407,1407,1407,1407,1408,1408,1408,1408,1409,1409, & - 1409,1409,1410,1410,1410,1410,1411,1411,1411,1411,1412,1412, & - 1412,1412,1413,1413,1413,1413,1414,1414,1414,1414,1415,1415, & - 1415,1415,1416,1416,1416,1416,1417,1417,1417,1417,1418,1418, & - 1418,1418,1419,1419,1419,1419,1420,1420,1420,1420,1421,1421, & - 1421,1421,1422,1422,1422,1422,1423,1423,1423,1423,1424,1424, & - 1424,1424,1425,1425,1425,1425,1426,1426,1426,1426,1427,1427, & - 1427,1427,1428,1428,1428,1428,1429,1429,1429,1429,1430,1430, & - 1430,1430,1431,1431,1431,1431,1432,1432,1432,1432,1433,1433, & - 1433,1433,1434,1434,1434,1434,1435,1435,1435,1435,1436,1436, & - 1436,1436,1437,1437,1437,1437,1438,1438,1438,1438,1439,1439 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_16 = (/ & - 1439,1439,1440,1440,1440,1440,1441,1441,1441,1441,1442,1442, & - 1442,1442,1443,1443,1443,1443,1444,1444,1444,1444,1445,1445, & - 1445,1445,1446,1446,1446,1446,1447,1447,1447,1447,1448,1448, & - 1448,1448,1449,1449,1449,1449,1450,1450,1450,1450,1451,1451, & - 1451,1451,1452,1452,1452,1452,1453,1453,1453,1453,1454,1454, & - 1454,1454,1455,1455,1455,1455,1456,1456,1456,1456,1457,1457, & - 1457,1457,1458,1458,1458,1458,1459,1459,1459,1459,1460,1460, & - 1460,1460,1461,1461,1461,1461,1462,1462,1462,1462,1463,1463, & - 1463,1463,1464,1464,1464,1464,1465,1465,1465,1465,1466,1466, & - 1466,1466,1467,1467,1467,1467,1468,1468,1468,1468,1469,1469, & - 1469,1469,1470,1470,1470,1470,1471,1471,1471,1471,1472,1472, & - 1472,1472,1473,1473,1473,1473,1474,1474,1474,1474,1475,1475, & - 1475,1475,1476,1476,1476,1476,1477,1477,1477,1477,1478,1478, & - 1478,1478,1479,1479,1479,1479,1480,1480,1480,1480,1481,1481, & - 1481,1481,1482,1482,1482,1482,1483,1483,1483,1483,1483,1483, & - 1484,1484,1484,1484,1485,1485,1485,1485,1486,1486,1486,1486, & - 1487,1487,1487,1487,1488,1488,1488,1488,1489,1489,1489,1489, & - 1490,1490,1490,1490,1491,1491,1491,1491,1492,1492,1492,1492, & - 1493,1493,1493,1493,1493,1494,1494,1494,1494,1495,1495,1495, & - 1495,1496,1496,1496,1496,1497,1497,1497,1497,1498,1498,1498, & - 1498,1499,1499,1499,1499,1500,1500,1500,1500,1501,1501,1501, & - 1501,1502,1502,1502,1502,1503,1503,1503,1503,1504,1504,1504, & - 1504,1505,1505,1505,1505,1506,1506,1506,1506,1507,1507,1507, & - 1507,1508,1508,1508,1508,1509,1509,1509,1509,1510,1510,1510, & - 1510,1511,1511,1511,1511,1512,1512,1512,1512,1513,1513,1513, & - 1513,1514,1514,1514,1514,1515,1515,1515,1515,1516,1516,1516, & - 1516,1517,1517,1517,1517,1518,1518,1518,1518,1519,1519,1519, & - 1519,1520,1520,1520,1520,1521,1521,1521,1521,1522,1522,1522, & - 1522,1523,1523,1523,1523,1524,1524,1524,1524,1525,1525,1525, & - 1525,1526,1526,1526,1526,1527,1527,1527,1527,1528,1528,1528 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_17 = (/ & - 1528,1529,1529,1529,1529,1530,1530,1530,1530,1531,1531,1531, & - 1531,1532,1532,1532,1532,1533,1533,1533,1533,1534,1534,1534, & - 1534,1535,1535,1535,1535,1536,1536,1536,1536,1537,1537,1537, & - 1537,1538,1538,1538,1538,1539,1539,1539,1539,1540,1540,1540, & - 1540,1541,1541,1541,1541,1542,1542,1542,1542,1543,1543,1543, & - 1543,1544,1544,1544,1544,1545,1545,1545,1545,1546,1546,1546, & - 1546,1547,1547,1547,1547,1548,1548,1548,1549,1549,1549,1550, & - 1550,1550,1550,1550,1550,1550,1550,1551,1551,1551,1551,1552, & - 1552,1552,1552,1552,1552,1553,1553,1553,1553,1553,1553,1554, & - 1554,1554,1555,1555,1555,1556,1556,1556,1556,1556,1556,1556, & - 1557,1557,1557,1558,1558,1558,1559,1559,1559,1559,1559,1559, & - 1560,1560,1560,1561,1561,1561,1562,1562,1562,1563,1563,1563, & - 1563,1563,1563,1564,1564,1564,1564,1564,1564,1565,1565,1565, & - 1565,1565,1565,1565,1566,1566,1566,1567,1567,1567,1568,1568, & - 1568,1568,1568,1568,1569,1569,1569,1570,1570,1570,1571,1571, & - 1571,1572,1572,1572,1572,1572,1572,1572,1572,1573,1573,1573, & - 1573,1574,1574,1574,1574,1574,1574,1575,1575,1575,1576,1576, & - 1576,1577,1577,1577,1578,1578,1578,1579,1579,1579,1579,1579, & - 1579,1579,1579,1580,1580,1580,1581,1581,1581,1581,1581,1581, & - 1581,1582,1582,1582,1583,1583,1583,1583,1583,1583,1584,1584, & - 1584,1585,1585,1585,1586,1586,1586,1587,1587,1587,1588,1588, & - 1588,1589,1589,1589,1590,1590,1590,1590,1590,1590,1590,1590, & - 1591,1591,1591,1591,1592,1592,1592,1592,1592,1592,1593,1593, & - 1593,1593,1593,1593,1594,1594,1594,1595,1595,1595,1595,1595, & - 1595,1596,1596,1596,1597,1597,1597,1597,1597,1597,1598,1598, & - 1598,1599,1599,1599,1600,1600,1600,1601,1601,1601,1602,1602, & - 1602,1603,1603,1603,1604,1604,1604,1604,1604,1604,1604,1604, & - 1605,1605,1605,1605,1605,1605,1605,1605,1606,1606,1606,1606, & - 1606,1606,1606,1606,1607,1607,1607,1607,1607,1607,1607,1607, & - 1608,1608,1608,1608,1608,1608,1608,1608,1609,1609,1609,1610 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_18 = (/ & - 1610,1610,1610,1610,1611,1611,1611,1612,1612,1612,1613,1613, & - 1613,1614,1614,1614,1614,1614,1614,1615,1615,1615,1616,1616, & - 1616,1616,1616,1616,1617,1617,1617,1617,1617,1617,1617,1617, & - 1618,1618,1618,1619,1619,1619,1620,1620,1620,1620,1620,1620, & - 1620,1620,1621,1621,1621,1622,1622,1622,1622,1622,1622,1622, & - 1622,1623,1623,1623,1624,1624,1624,1624,1624,1624,1624,1624, & - 1625,1625,1625,1626,1626,1626,1627,1627,1627,1627,1627,1627, & - 1628,1628,1628,1628,1628,1628,1628,1628,1629,1629,1629,1629, & - 1630,1630,1630,1631,1631,1631,1631,1631,1631,1631,1632,1632, & - 1632,1633,1633,1633,1634,1634,1634,1634,1634,1634,1635,1635, & - 1635,1636,1636,1636,1637,1637,1637,1638,1638,1638,1638,1638, & - 1638,1639,1639,1639,1640,1640,1640,1640,1640,1640,1640,1641, & - 1641,1641,1642,1642,1642,1643,1643,1643,1643,1643,1643,1644, & - 1644,1644,1645,1645,1645,1645,1645,1645,1646,1646,1646,1647, & - 1647,1647,1648,1648,1648,1648,1648,1648,1648,1648,1649,1649, & - 1649,1649,1650,1650,1650,1650,1650,1650,1651,1651,1651,1652, & - 1652,1652,1652,1652,1652,1652,1652,1653,1653,1653,1654,1654, & - 1654,1654,1654,1654,1654,1655,1655,1655,1656,1656,1656,1656, & - 1656,1656,1656,1656,1657,1657,1657,1657,1658,1658,1658,1659, & - 1659,1659,1660,1660,1660,1660,1660,1660,1660,1660,1661,1661, & - 1661,1661,1661,1661,1662,1662,1662,1662,1662,1662,1663,1663, & - 1663,1663,1663,1663,1664,1664,1664,1665,1665,1665,1666,1666, & - 1666,1667,1667,1667,1667,1667,1667,1668,1668,1668,1669,1669, & - 1669,1670,1670,1670,1671,1671,1671,1672,1672,1672,1673,1673, & - 1673,1674,1674,1674,1675,1675,1675,1675,1675,1675,1675,1675, & - 1676,1676,1676,1677,1677,1677,1677,1677,1677,1677,1678,1678, & - 1678,1679,1679,1679,1679,1679,1679,1680,1680,1680,1680,1680, & - 1680,1680,1680,1681,1681,1681,1682,1682,1682,1683,1683,1683, & - 1684,1684,1684,1684,1684,1684,1685,1685,1685,1685,1686,1686, & - 1686,1687,1687,1687,1688,1688,1688,1689,1689,1689,1689,1689 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_19 = (/ & - 1689,1689,1689,1690,1690,1690,1691,1691,1691,1691,1691,1691, & - 1691,1692,1692,1692,1692,1692,1692,1693,1693,1693,1694,1694, & - 1694,1695,1695,1695,1695,1695,1695,1696,1696,1696,1696,1696, & - 1696,1696,1696,1697,1697,1697,1698,1698,1698,1699,1699,1699, & - 1699,1699,1699,1700,1700,1700,1701,1701,1701,1702,1702,1702, & - 1702,1702,1702,1703,1703,1703,1704,1704,1704,1705,1705,1705, & - 1706,1706,1706,1706,1706,1706,1706,1707,1707,1707,1708,1708, & - 1708,1709,1709,1709,1710,1710,1710,1710,1710,1710,1710,1710, & - 1711,1711,1711,1712,1712,1712,1712,1712,1713,1713,1713,1713, & - 1713,1713,1713,1713,1714,1714,1714,1714,1714,1714,1714,1714, & - 1715,1715,1715,1715,1715,1715,1716,1716,1716,1717,1717,1717, & - 1718,1718,1718,1719,1719,1719,1720,1720,1720,1720,1720,1720, & - 1721,1721,1721,1721,1721,1721,1722,1722,1722,1723,1723,1723, & - 1723,1723,1723,1723,1724,1724,1724,1724,1724,1724,1725,1725, & - 1725,1725,1725,1725,1726,1726,1726,1727,1727,1727,1727,1727, & - 1727,1727,1727,1728,1728,1728,1728,1728,1728,1728,1729,1729, & - 1729,1730,1730,1730,1731,1731,1731,1732,1732,1732,1732,1732, & - 1732,1732,1732,1733,1733,1733,1734,1734,1734,1735,1735,1735, & - 1736,1736,1736,1736,1736,1736,1736,1737,1737,1737,1737,1737, & - 1737,1738,1738,1738,1738,1738,1738,1738,1739,1739,1739,1739, & - 1739,1739,1739,1739,1740,1740,1740,1741,1741,1741,1741,1741, & - 1741,1742,1742,1742,1743,1743,1743,1743,1743,1743,1744,1744, & - 1744,1745,1745,1745,1745,1745,1745,1745,1745,1746,1746,1746, & - 1747,1747,1747,1748,1748,1748,1748,1748,1749,1749,1749,1749, & - 1750,1750,1750,1750,1750,1750,1750,1750,1751,1751,1751,1751, & - 1752,1752,1752,1752,1753,1753,1753,1753,1754,1754,1754,1754, & - 1754,1754,1754,1754,1754,1755,1755,1755,1755,1755,1755,1755, & - 1755,1756,1756,1756,1756,1756,1756,1757,1757,1757,1757,1758, & - 1758,1758,1758,1759,1759,1759,1759,1760,1760,1760,1760,1760, & - 1761,1761,1761,1761,1761,1762,1762,1762,1762,1763,1763,1763 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_20 = (/ & - 1763,1763,1764,1764,1764,1764,1764,1765,1765,1765,1765,1765, & - 1766,1766,1766,1766,1767,1767,1767,1767,1768,1768,1768,1768, & - 1769,1769,1769,1769,1769,1770,1770,1770,1770,1771,1771,1771, & - 1771,1772,1772,1772,1772,1773,1773,1773,1773,1773,1773,1773, & - 1773,1774,1774,1774,1774,1775,1775,1775,1775,1776,1776,1776, & - 1777,1777,1777,1778,1778,1778,1778,1779,1779,1779,1779,1780, & - 1780,1780,1780,1781,1781,1781,1781,1781,1781,1781,1781,1782, & - 1782,1782,1782,1782,1783,1783,1783,1783,1784,1784,1784,1784, & - 1785,1785,1785,1785,1785,1786,1786,1786,1786,1787,1787,1787, & - 1787,1787,1788,1788,1788,1788,1789,1789,1789,1789,1789,1789, & - 1789,1789,1789,1790,1790,1790,1790,1790,1791,1791,1791,1791, & - 1791,1792,1792,1792,1792,1792,1792,1792,1792,1793,1793,1793, & - 1793,1794,1794,1794,1794,1795,1795,1795,1795,1796,1796,1796, & - 1796,1796,1796,1796,1796,1797,1797,1797,1797,1798,1798,1798, & - 1798,1799,1799,1799,1799,1799,1799,1799,1799,1800,1800,1800, & - 1800,1801,1801,1801,1801,1802,1802,1802,1802,1803,1803,1803, & - 1803,1803,1803,1803,1803,1803,1804,1804,1804,1804,1805,1805, & - 1805,1805,1806,1806,1806,1806,1806,1807,1807,1807,1807,1808, & - 1808,1808,1808,1808,1809,1809,1809,1809,1810,1810,1810,1810, & - 1810,1811,1811,1811,1811,1812,1812,1812,1812,1812,1812,1812, & - 1812,1812,1813,1813,1813,1813,1814,1814,1814,1814,1814,1814, & - 1814,1814,1815,1815,1815,1815,1815,1816,1816,1816,1816,1817, & - 1817,1817,1817,1818,1818,1818,1818,1818,1818,1818,1818,1818, & - 1819,1819,1819,1819,1820,1820,1820,1820,1820,1820,1820,1820, & - 1821,1821,1821,1821,1821,1821,1821,1821,1822,1822,1822,1822, & - 1822,1822,1822,1822,1823,1823,1823,1823,1824,1824,1824,1824, & - 1825,1825,1825,1825,1825,1826,1826,1826,1826,1826,1827,1827, & - 1827,1827,1827,1828,1828,1828,1828,1828,1829,1829,1829,1829, & - 1830,1830,1830,1830,1831,1831,1831,1831,1832,1832,1832,1832, & - 1832,1833,1833,1833,1833,1833,1833,1833,1833,1834,1834,1834 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_21 = (/ & - 1834,1834,1835,1835,1835,1835,1836,1836,1836,1836,1837,1837, & - 1837,1837,1838,1838,1838,1838,1838,1838,1838,1838,1839,1839, & - 1839,1839,1840,1840,1840,1840,1841,1841,1841,1841,1842,1842, & - 1842,1842,1843,1843,1843,1843,1843,1844,1844,1844,1844,1845, & - 1845,1845,1845,1846,1846,1846,1846,1847,1847,1847,1847,1847, & - 1847,1847,1847,1848,1848,1848,1848,1848,1849,1849,1849,1849, & - 1850,1850,1850,1850,1851,1851,1851,1851,1852,1852,1852,1852, & - 1852,1852,1852,1852,1852,1853,1853,1853,1854,1854,1854,1854, & - 1855,1855,1855,1855,1856,1856,1856,1856,1857,1857,1857,1858, & - 1858,1858,1858,1858,1859,1859,1859,1859,1860,1860,1860,1860, & - 1860,1860,1860,1860,1861,1861,1861,1861,1862,1862,1862,1862, & - 1863,1863,1863,1863,1864,1864,1864,1864,1865,1865,1865,1865, & - 1865,1865,1865,1865,1866,1866,1866,1866,1866,1867,1867,1867, & - 1867,1867,1867,1867,1867,1868,1868,1868,1868,1869,1869,1869, & - 1869,1870,1870,1870,1870,1870,1870,1870,1870,1871,1871,1871, & - 1871,1872,1872,1872,1872,1872,1873,1873,1873,1873,1874,1874, & - 1874,1874,1875,1875,1875,1876,1876,1876,1876,1877,1877,1877, & - 1877,1877,1878,1878,1878,1878,1879,1879,1879,1879,1880,1880, & - 1880,1880,1881,1881,1881,1881,1882,1882,1882,1882,1882,1883, & - 1883,1883,1883,1884,1884,1884,1884,1885,1885,1885,1885,1886, & - 1886,1886,1886,1887,1887,1887,1887,1888,1888,1888,1888,1889, & - 1889,1889,1889,1890,1890,1890,1890,1891,1891,1891,1891,1891, & - 1892,1892,1892,1892,1892,1893,1893,1893,1893,1893,1894,1894, & - 1894,1894,1894,1895,1895,1895,1895,1896,1896,1896,1896,1897, & - 1897,1897,1897,1898,1898,1898,1898,1899,1899,1899,1899,1900, & - 1900,1900,1900,1901,1901,1901,1901,1902,1902,1902,1902,1903, & - 1903,1903,1903,1903,1903,1903,1903,1904,1904,1904,1904,1905, & - 1905,1905,1905,1906,1906,1906,1906,1906,1906,1906,1906,1907, & - 1907,1907,1907,1908,1908,1908,1908,1909,1909,1909,1909,1910, & - 1910,1910,1910,1910,1910,1910,1910,1911,1911,1911,1911,1912 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_22 = (/ & - 1912,1912,1912,1913,1913,1913,1913,1913,1913,1914,1914,1914, & - 1914,1915,1915,1915,1915,1915,1916,1916,1916,1917,1917,1917, & - 1917,1918,1918,1918,1918,1919,1919,1919,1919,1920,1920,1920, & - 1920,1921,1921,1921,1921,1922,1922,1922,1922,1923,1923,1923, & - 1923,1923,1923,1923,1923,1924,1924,1924,1924,1924,1925,1925, & - 1925,1925,1926,1926,1926,1926,1927,1927,1927,1927,1927,1928, & - 1928,1928,1929,1929,1929,1929,1929,1930,1930,1930,1930,1931, & - 1931,1931,1931,1931,1931,1931,1931,1932,1932,1932,1932,1933, & - 1933,1933,1933,1934,1934,1934,1935,1935,1935,1935,1936,1936, & - 1936,1936,1937,1937,1937,1937,1938,1938,1938,1938,1939,1939, & - 1939,1939,1940,1940,1940,1940,1941,1941,1941,1941,1942,1942, & - 1942,1942,1942,1942,1942,1942,1943,1943,1943,1943,1944,1944, & - 1944,1944,1944,1945,1945,1945,1945,1945,1945,1945,1945,1946, & - 1946,1946,1946,1947,1947,1947,1947,1948,1948,1948,1948,1949, & - 1949,1949,1949,1950,1950,1950,1950,1951,1951,1951,1951,1951, & - 1952,1952,1952,1952,1953,1953,1953,1953,1953,1953,1954,1954, & - 1954,1954,1955,1955,1955,1955,1955,1956,1956,1956,1956,1957, & - 1957,1957,1957,1957,1958,1958,1958,1958,1959,1959,1959,1960, & - 1960,1960,1960,1960,1961,1961,1961,1961,1961,1961,1961,1961, & - 1962,1962,1962,1962,1962,1962,1962,1962,1962,1963,1963,1963, & - 1963,1964,1964,1964,1964,1965,1965,1965,1965,1966,1966,1966, & - 1966,1967,1967,1967,1967,1967,1968,1968,1968,1968,1969,1969, & - 1969,1969,1970,1970,1970,1970,1971,1971,1971,1971,1971,1971, & - 1971,1971,1972,1972,1972,1972,1973,1973,1973,1973,1974,1974, & - 1974,1974,1975,1975,1975,1975,1975,1975,1975,1975,1975,1976, & - 1976,1976,1976,1976,1977,1977,1977,1977,1977,1978,1978,1978, & - 1978,1979,1979,1979,1979,1980,1980,1980,1980,1981,1981,1981, & - 1982,1982,1982,1982,1983,1983,1983,1983,1983,1984,1984,1984, & - 1984,1984,1984,1984,1984,1984,1985,1985,1985,1985,1986,1986, & - 1986,1986,1986,1986,1986,1986,1987,1987,1987,1987,1988,1988 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_23 = (/ & - 1988,1989,1989,1989,1989,1989,1989,1989,1989,1989,1990,1990, & - 1990,1990,1991,1991,1991,1992,1992,1992,1992,1993,1993,1993, & - 1993,1994,1994,1994,1994,1995,1995,1995,1995,1995,1996,1996, & - 1996,1996,1997,1997,1997,1997,1998,1998,1998,1998,1998,1998, & - 1998,1998,1999,1999,1999,1999,2000,2000,2000,2000,2000,2000, & - 2000,2000,2000,2001,2001,2001,2001,2002,2002,2002,2002,2003, & - 2003,2003,2003,2004,2004,2004,2004,2004,2005,2005,2005,2005, & - 2005,2006,2006,2006,2006,2007,2007,2007,2007,2008,2008,2008, & - 2008,2008,2009,2009,2009,2009,2010,2010,2010,2010,2011,2011, & - 2011,2011,2011,2012,2012,2012,2012,2012,2013,2013,2013,2014, & - 2014,2014,2014,2015,2015,2015,2015,2015,2015,2015,2015,2016, & - 2016,2016,2016,2017,2017,2017,2017,2018,2018,2018,2018,2019, & - 2019,2019,2019,2020,2020,2020,2020,2021,2021,2021,2021,2021, & - 2022,2022,2022,2022,2023,2023,2023,2023,2023,2024,2024,2024, & - 2024,2024,2025,2025,2025,2025,2026,2026,2026,2026,2027,2027, & - 2027,2027,2028,2028,2028,2028,2029,2029,2029,2029,2029,2030, & - 2030,2030,2030,2030,2030,2030,2030,2031,2031,2031,2031,2031, & - 2031,2031,2031,2032,2032,2032,2032,2033,2033,2033,2033,2033, & - 2033,2033,2033,2033,2034,2034,2034,2034,2035,2035,2035,2035, & - 2035,2035,2035,2035,2035,2036,2036,2036,2036,2037,2037,2037, & - 2037,2037,2038,2038,2038,2038,2039,2039,2039,2039,2040,2040, & - 2040,2040,2041,2041,2041,2041,2041,2041,2041,2041,2042,2042, & - 2042,2043,2043,2043,2043,2044,2044,2044,2044,2045,2045,2045, & - 2045,2046,2046,2046,2046,2047,2047,2047,2047,2048,2048,2048, & - 2048,2049,2049,2049,2049,2050,2050,2050,2050,2050,2050,2050, & - 2050,2051,2051,2051,2051,2051,2052,2052,2052,2052,2053,2053, & - 2053,2053,2054,2054,2054,2054,2055,2055,2055,2055,2056,2056, & - 2056,2056,2056,2056,2056,2056,2056,2057,2057,2057,2057,2058, & - 2058,2058,2058,2059,2059,2059,2059,2060,2060,2060,2060,2060, & - 2060,2060,2060,2061,2061,2061,2061,2062,2062,2062,2062,2063 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_24 = (/ & - 2063,2063,2063,2064,2064,2064,2064,2065,2065,2065,2065,2066, & - 2066,2066,2066,2066,2067,2067,2067,2067,2067,2068,2068,2068, & - 2068,2069,2069,2069,2069,2070,2070,2070,2070,2071,2071,2071, & - 2071,2072,2072,2072,2072,2073,2073,2073,2073,2073,2073,2073, & - 2073,2074,2074,2074,2074,2075,2075,2075,2075,2076,2076,2076, & - 2076,2076,2076,2076,2076,2077,2077,2077,2077,2078,2078,2078, & - 2078,2079,2079,2079,2079,2080,2080,2080,2080,2081,2081,2081, & - 2081,2082,2082,2082,2082,2083,2083,2083,2083,2084,2084,2084, & - 2084,2085,2085,2085,2085,2085,2086,2086,2086,2086,2087,2087, & - 2087,2087,2088,2088,2088,2088,2088,2088,2088,2088,2089,2089, & - 2089,2089,2090,2090,2090,2090,2090,2091,2091,2091,2091,2092, & - 2092,2092,2092,2093,2093,2093,2093,2094,2094,2094,2094,2095, & - 2095,2095,2095,2096,2096,2096,2096,2096,2097,2097,2097,2097, & - 2098,2098,2098,2098,2099,2099,2099,2099,2100,2100,2100,2100, & - 2100,2100,2100,2100,2101,2101,2101,2101,2102,2102,2102,2102, & - 2102,2103,2103,2103,2103,2104,2104,2104,2105,2105,2105,2105, & - 2106,2106,2106,2106,2107,2107,2107,2107,2108,2108,2108,2108, & - 2109,2109,2109,2109,2110,2110,2110,2110,2111,2111,2111,2111, & - 2112,2112,2112,2112,2112,2113,2113,2113,2113,2114,2114,2114, & - 2114,2115,2115,2115,2115,2116,2116,2116,2116,2117,2117,2117, & - 2117,2117,2118,2118,2118,2119,2119,2119,2119,2119,2119,2120, & - 2120,2120,2120,2121,2121,2121,2121,2122,2122,2122,2122,2122, & - 2122,2122,2122,2123,2123,2123,2123,2124,2124,2124,2124,2125, & - 2125,2125,2125,2126,2126,2126,2126,2127,2127,2127,2127,2128, & - 2128,2128,2128,2129,2129,2129,2130,2130,2130,2130,2131,2131, & - 2131,2131,2132,2132,2132,2132,2132,2133,2133,2133,2133,2134, & - 2134,2134,2134,2134,2135,2135,2135,2135,2136,2136,2136,2136, & - 2137,2137,2137,2137,2138,2138,2138,2138,2139,2139,2139,2139, & - 2140,2140,2140,2140,2140,2141,2141,2141,2141,2141,2141,2142, & - 2142,2142,2142,2143,2143,2143,2143,2143,2144,2144,2144,2144 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_25 = (/ & - 2145,2145,2145,2145,2145,2146,2146,2146,2146,2147,2147,2147, & - 2147,2148,2148,2148,2149,2149,2149,2149,2150,2150,2150,2150, & - 2151,2151,2151,2151,2152,2152,2152,2152,2153,2153,2153,2153, & - 2154,2154,2154,2154,2154,2154,2155,2155,2155,2155,2156,2156, & - 2156,2156,2157,2157,2157,2157,2158,2158,2158,2158,2158,2159, & - 2159,2159,2159,2160,2160,2160,2160,2161,2161,2161,2161,2162, & - 2162,2162,2162,2162,2163,2163,2163,2163,2163,2163,2163,2163, & - 2164,2164,2164,2164,2165,2165,2165,2165,2166,2166,2166,2166, & - 2167,2167,2167,2167,2168,2168,2168,2168,2169,2169,2169,2169, & - 2170,2170,2170,2170,2170,2171,2171,2171,2171,2172,2172,2172, & - 2172,2173,2173,2173,2173,2173,2173,2173,2173,2174,2174,2174, & - 2174,2175,2175,2175,2175,2176,2176,2176,2176,2177,2177,2177, & - 2177,2177,2178,2178,2178,2178,2179,2179,2179,2179,2180,2180, & - 2180,2180,2181,2181,2181,2181,2181,2182,2182,2182,2182,2183, & - 2183,2183,2183,2184,2184,2184,2184,2184,2185,2185,2185,2185, & - 2186,2186,2186,2186,2186,2187,2187,2187,2187,2188,2188,2188, & - 2188,2189,2189,2189,2189,2190,2190,2190,2190,2190,2190,2190, & - 2190,2190,2191,2191,2191,2191,2192,2192,2192,2192,2193,2193, & - 2193,2193,2194,2194,2194,2194,2195,2195,2195,2195,2196,2196, & - 2196,2196,2197,2197,2197,2197,2197,2198,2198,2198,2198,2199, & - 2199,2199,2199,2200,2200,2200,2200,2200,2201,2201,2201,2201, & - 2201,2202,2202,2202,2202,2203,2203,2203,2203,2203,2204,2204, & - 2204,2204,2205,2205,2205,2205,2206,2206,2206,2206,2207,2207, & - 2207,2207,2207,2207,2207,2207,2207,2208,2208,2208,2208,2209, & - 2209,2209,2209,2209,2209,2210,2210,2210,2210,2210,2211,2211, & - 2211,2211,2212,2212,2212,2213,2213,2213,2213,2214,2214,2214, & - 2214,2215,2215,2215,2215,2216,2216,2216,2216,2217,2217,2217, & - 2217,2218,2218,2218,2218,2219,2219,2219,2219,2220,2220,2220, & - 2220,2221,2221,2221,2221,2222,2222,2222,2222,2222,2223,2223, & - 2223,2223,2224,2224,2224,2224,2225,2225,2225,2225,2225,2226 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_26 = (/ & - 2226,2226,2226,2226,2226,2226,2226,2227,2227,2227,2227,2228, & - 2228,2228,2228,2229,2229,2229,2229,2229,2230,2230,2230,2230, & - 2230,2231,2231,2231,2231,2231,2232,2232,2232,2232,2233,2233, & - 2233,2233,2234,2234,2234,2234,2234,2235,2235,2235,2235,2236, & - 2236,2236,2236,2237,2237,2237,2237,2238,2238,2238,2238,2238, & - 2239,2239,2239,2239,2240,2240,2240,2240,2241,2241,2241,2241, & - 2242,2242,2242,2242,2243,2243,2243,2243,2244,2244,2244,2244, & - 2245,2245,2245,2245,2246,2246,2246,2246,2247,2247,2247,2247, & - 2248,2248,2248,2248,2249,2249,2249,2249,2249,2250,2250,2250, & - 2250,2251,2251,2251,2251,2252,2252,2252,2252,2253,2253,2253, & - 2253,2254,2254,2254,2254,2255,2255,2255,2255,2255,2256,2256, & - 2256,2256,2257,2257,2257,2257,2258,2258,2258,2259,2259,2259, & - 2259,2260,2260,2260,2260,2261,2261,2261,2261,2262,2262,2262, & - 2262,2263,2263,2263,2263,2264,2264,2264,2264,2265,2265,2265, & - 2265,2265,2266,2266,2266,2266,2267,2267,2267,2267,2268,2268, & - 2268,2268,2269,2269,2269,2269,2270,2270,2270,2270,2271,2271, & - 2271,2271,2272,2272,2272,2272,2272,2273,2273,2273,2273,2273, & - 2273,2274,2274,2274,2274,2275,2275,2275,2275,2276,2276,2276, & - 2276,2276,2277,2277,2277,2277,2278,2278,2278,2278,2278,2279, & - 2279,2279,2279,2279,2280,2280,2280,2280,2281,2281,2281,2281, & - 2282,2282,2282,2282,2283,2283,2283,2283,2283,2284,2284,2284, & - 2284,2284,2284,2284,2284,2285,2285,2285,2285,2286,2286,2286, & - 2287,2287,2287,2287,2287,2288,2288,2288,2288,2288,2289,2289, & - 2289,2289,2290,2290,2290,2290,2291,2291,2291,2291,2292,2292, & - 2292,2292,2293,2293,2293,2293,2293,2293,2293,2293,2293,2294, & - 2294,2294,2294,2295,2295,2295,2295,2295,2295,2296,2296,2296, & - 2296,2297,2297,2297,2297,2297,2298,2298,2298,2298,2299,2299, & - 2299,2299,2300,2300,2300,2300,2301,2301,2301,2301,2302,2302, & - 2302,2302,2303,2303,2303,2303,2304,2304,2304,2304,2304,2304, & - 2304,2304,2305,2305,2305,2305,2306,2306,2306,2306,2307,2307 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_27 = (/ & - 2307,2307,2308,2308,2308,2308,2309,2309,2309,2309,2310,2310, & - 2310,2310,2311,2311,2311,2311,2312,2312,2312,2312,2313,2313, & - 2313,2313,2314,2314,2314,2314,2315,2315,2315,2315,2315,2315, & - 2316,2316,2316,2316,2317,2317,2317,2317,2318,2318,2318,2318, & - 2319,2319,2319,2319,2320,2320,2320,2320,2321,2321,2321,2321, & - 2322,2322,2322,2322,2322,2322,2322,2322,2323,2323,2323,2323, & - 2323,2324,2324,2324,2324,2324,2324,2324,2324,2325,2325,2325, & - 2325,2326,2326,2326,2326,2326,2326,2326,2327,2327,2327,2327, & - 2328,2328,2328,2328,2329,2329,2329,2329,2330,2330,2330,2330, & - 2331,2331,2331,2331,2332,2332,2332,2332,2333,2333,2333,2333, & - 2334,2334,2334,2334,2334,2334,2334,2334,2335,2335,2335,2335, & - 2336,2336,2336,2337,2337,2337,2337,2338,2338,2338,2338,2339, & - 2339,2339,2339,2340,2340,2340,2340,2340,2341,2341,2341,2341, & - 2342,2342,2342,2342,2343,2343,2343,2343,2343,2344,2344,2344, & - 2345,2345,2345,2346,2346,2346,2346,2347,2347,2347,2347,2348, & - 2348,2348,2348,2349,2349,2349,2349,2350,2350,2350,2350,2351, & - 2351,2351,2351,2352,2352,2352,2352,2353,2353,2353,2353,2353, & - 2354,2354,2354,2354,2355,2355,2355,2355,2356,2356,2356,2356, & - 2356,2356,2356,2357,2357,2357,2358,2358,2358,2358,2359,2359, & - 2359,2360,2360,2360,2360,2361,2361,2361,2361,2361,2361,2361, & - 2361,2362,2362,2362,2362,2363,2363,2363,2363,2364,2364,2364, & - 2364,2364,2365,2365,2365,2365,2366,2366,2366,2366,2367,2367, & - 2367,2367,2367,2368,2368,2368,2368,2369,2369,2369,2369,2370, & - 2370,2370,2370,2370,2371,2371,2371,2371,2372,2372,2372,2372, & - 2373,2373,2373,2373,2374,2374,2374,2374,2374,2374,2374,2374, & - 2375,2375,2375,2375,2376,2376,2376,2376,2376,2377,2377,2377, & - 2377,2377,2377,2377,2377,2377,2378,2378,2378,2378,2379,2379, & - 2379,2379,2379,2380,2380,2380,2380,2381,2381,2381,2381,2381, & - 2381,2382,2382,2382,2383,2383,2383,2383,2384,2384,2384,2384, & - 2385,2385,2385,2386,2386,2386,2386,2387,2387,2387,2387,2388 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_28 = (/ & - 2388,2388,2388,2389,2389,2389,2389,2390,2390,2390,2390,2391, & - 2391,2391,2391,2392,2392,2392,2392,2393,2393,2393,2394,2394, & - 2394,2394,2395,2395,2395,2395,2395,2396,2396,2396,2396,2397, & - 2397,2397,2397,2398,2398,2398,2398,2399,2399,2399,2399,2399, & - 2399,2399,2399,2400,2400,2400,2400,2401,2401,2401,2401,2402, & - 2402,2402,2402,2403,2403,2403,2403,2404,2404,2404,2404,2405, & - 2405,2405,2405,2406,2406,2406,2406,2407,2407,2407,2407,2408, & - 2408,2408,2408,2409,2409,2409,2409,2410,2410,2410,2410,2411, & - 2411,2411,2411,2412,2412,2412,2412,2413,2413,2413,2413,2414, & - 2414,2414,2414,2415,2415,2415,2415,2415,2415,2415,2415,2415, & - 2416,2416,2416,2416,2417,2417,2417,2417,2418,2418,2418,2418, & - 2419,2419,2419,2419,2420,2420,2420,2420,2421,2421,2421,2421, & - 2422,2422,2422,2422,2423,2423,2423,2423,2424,2424,2424,2424, & - 2425,2425,2425,2426,2426,2426,2426,2427,2427,2427,2427,2428, & - 2428,2428,2428,2429,2429,2429,2429,2430,2430,2430,2430,2430, & - 2431,2431,2431,2431,2432,2432,2432,2432,2433,2433,2433,2433, & - 2433,2434,2434,2434,2434,2435,2435,2435,2435,2436,2436,2436, & - 2436,2437,2437,2437,2437,2438,2438,2438,2438,2438,2439,2439, & - 2439,2439,2440,2440,2440,2440,2441,2441,2441,2441,2441,2442, & - 2442,2442,2442,2443,2443,2443,2443,2444,2444,2444,2444,2445, & - 2445,2445,2445,2446,2446,2446,2446,2447,2447,2447,2447,2447, & - 2448,2448,2448,2448,2448,2449,2449,2449,2449,2450,2450,2450, & - 2450,2451,2451,2451,2451,2452,2452,2452,2452,2452,2452,2452, & - 2452,2452,2453,2453,2453,2453,2454,2454,2454,2454,2455,2455, & - 2455,2455,2456,2456,2456,2456,2457,2457,2457,2457,2457,2457, & - 2457,2457,2457,2458,2458,2458,2458,2459,2459,2459,2459,2460, & - 2460,2460,2460,2461,2461,2461,2461,2462,2462,2462,2462,2463, & - 2463,2463,2463,2464,2464,2464,2464,2465,2465,2465,2465,2465, & - 2465,2465,2465,2465,2466,2466,2466,2466,2467,2467,2467,2467, & - 2467,2468,2468,2468,2469,2469,2469,2469,2470,2470,2470,2471 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_29 = (/ & - 2471,2471,2471,2471,2471,2471,2471,2471,2472,2472,2472,2473, & - 2473,2473,2473,2473,2473,2473,2473,2473,2473,2474,2474,2474, & - 2475,2475,2475,2476,2476,2476,2477,2477,2477,2478,2478,2478, & - 2478,2479,2479,2479,2480,2480,2480,2480,2480,2480,2480,2480, & - 2480,2480,2480,2480,2481,2481,2481,2482,2482,2482,2483,2483, & - 2483,2484,2484,2484,2485,2485,2485,2486,2486,2486,2486,2487, & - 2487,2487,2488,2488,2488,2488,2488,2488,2488,2488,2488,2489, & - 2489,2489,2490,2490,2490,2490,2490,2490,2490,2490,2490,2491, & - 2491,2491,2492,2492,2492,2492,2492,2492,2492,2492,2493,2493, & - 2493,2493,2493,2493,2493,2494,2494,2494,2494,2495,2495,2495, & - 2495,2495,2495,2495,2495,2496,2496,2496,2496,2497,2497,2497, & - 2497,2498,2498,2498,2498,2499,2499,2499,2499,2500,2500,2500, & - 2500,2501,2501,2501,2501,2502,2502,2502,2502,2502,2502,2502, & - 2503,2503,2503,2503,2504,2504,2504,2504,2505,2505,2505,2505, & - 2506,2506,2506,2506,2506,2506,2506,2507,2507,2507,2507,2508, & - 2508,2508,2508,2508,2508,2508,2509,2509,2509,2509,2510,2510, & - 2510,2510,2511,2511,2511,2511,2512,2512,2512,2512,2512,2512, & - 2512,2512,2513,2513,2513,2513,2514,2514,2514,2514,2515,2515, & - 2515,2515,2516,2516,2516,2516,2516,2516,2516,2517,2517,2517, & - 2517,2518,2518,2518,2518,2519,2519,2519,2519,2520,2520,2520, & - 2520,2521,2521,2521,2521,2521,2521,2521,2521,2522,2522,2522, & - 2522,2523,2523,2523,2523,2524,2524,2524,2524,2525,2525,2525, & - 2525,2526,2526,2526,2526,2526,2526,2526,2527,2527,2527,2527, & - 2528,2528,2528,2528,2528,2528,2528,2528,2528,2529,2529,2529, & - 2529,2530,2530,2530,2530,2531,2531,2531,2531,2532,2532,2532, & - 2532,2533,2533,2533,2533,2534,2534,2534,2534,2535,2535,2535, & - 2535,2535,2535,2535,2536,2536,2536,2536,2536,2536,2536,2537, & - 2537,2537,2537,2538,2538,2538,2538,2539,2539,2539,2539,2539, & - 2539,2539,2539,2540,2540,2540,2540,2541,2541,2541,2541,2542, & - 2542,2542,2542,2543,2543,2543,2543,2544,2544,2544,2544,2545 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_30 = (/ & - 2545,2545,2545,2545,2545,2545,2545,2546,2546,2546,2546,2547, & - 2547,2547,2547,2547,2547,2548,2548,2548,2548,2548,2548,2549, & - 2549,2549,2549,2549,2549,2549,2550,2550,2550,2550,2550,2550, & - 2550,2551,2551,2551,2551,2551,2551,2551,2552,2552,2552,2552, & - 2553,2553,2553,2553,2554,2554,2554,2554,2555,2555,2555,2555, & - 2556,2556,2556,2556,2557,2557,2557,2557,2557,2557,2557,2558, & - 2558,2558,2558,2559,2559,2559,2559,2560,2560,2560,2560,2561, & - 2561,2561,2561,2561,2561,2561,2562,2562,2562,2562,2562,2562, & - 2562,2562,2562,2563,2563,2563,2563,2563,2563,2563,2564,2564, & - 2564,2564,2565,2565,2565,2565,2566,2566,2566,2566,2566,2566, & - 2566,2567,2567,2567,2567,2568,2568,2568,2568,2569,2569,2569, & - 2569,2570,2570,2570,2570,2571,2571,2571,2571,2572,2572,2572, & - 2572,2573,2573,2573,2573,2574,2574,2574,2574,2574,2574,2574, & - 2574,2574,2574,2575,2575,2575,2575,2575,2575,2575,2576,2576, & - 2576,2576,2577,2577,2577,2577,2577,2577,2577,2578,2578,2578, & - 2578,2578,2578,2578,2579,2579,2579,2579,2580,2580,2580,2580, & - 2581,2581,2581,2581,2581,2581,2581,2582,2582,2582,2582,2583, & - 2583,2583,2583,2584,2584,2584,2584,2585,2585,2585,2585,2586, & - 2586,2586,2586,2586,2586,2586,2587,2587,2587,2587,2588,2588, & - 2588,2588,2588,2588,2588,2589,2589,2589,2589,2589,2589,2589, & - 2589,2589,2590,2590,2590,2590,2591,2591,2591,2591,2591,2591, & - 2591,2592,2592,2592,2592,2592,2592,2592,2593,2593,2593,2593, & - 2594,2594,2594,2594,2594,2594,2594,2594,2594,2595,2595,2595, & - 2595,2595,2595,2595,2595,2596,2596,2596,2596,2596,2596,2596, & - 2597,2597,2597,2597,2598,2598,2598,2598,2598,2598,2598,2599, & - 2599,2599,2599,2599,2599,2599,2600,2600,2600,2600,2601,2601, & - 2601,2601,2602,2602,2602,2602,2603,2603,2603,2603,2604,2604, & - 2604,2604,2604,2604,2604,2605,2605,2605,2605,2606,2606,2606, & - 2606,2607,2607,2607,2607,2607,2607,2607,2608,2608,2608,2608, & - 2609,2609,2609,2609,2610,2610,2610,2610,2611,2611,2611,2611 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_31 = (/ & - 2612,2612,2612,2612,2613,2613,2613,2613,2614,2614,2614,2614, & - 2614,2614,2614,2614,2615,2615,2615,2615,2616,2616,2616,2616, & - 2617,2617,2617,2617,2618,2618,2618,2618,2619,2619,2619,2619, & - 2620,2620,2620,2620,2621,2621,2621,2621,2622,2622,2622,2622, & - 2623,2623,2623,2623,2623,2623,2623,2624,2624,2624,2624,2625, & - 2625,2625,2625,2626,2626,2626,2626,2627,2627,2627,2627,2628, & - 2628,2628,2628,2629,2629,2629,2629,2630,2630,2630,2630,2631, & - 2631,2631,2631,2632,2632,2632,2632,2633,2633,2633,2633,2634, & - 2634,2634,2634,2634,2634,2634,2634,2634,2635,2635,2635,2635, & - 2636,2636,2636,2636,2637,2637,2637,2637,2638,2638,2638,2638, & - 2638,2638,2638,2638,2638,2639,2639,2639,2639,2639,2639,2639, & - 2640,2640,2640,2640,2641,2641,2641,2641,2641,2641,2641,2642, & - 2642,2642,2642,2642,2642,2642,2642,2642,2643,2643,2643,2643, & - 2644,2644,2644,2644,2644,2644,2644,2644,2644,2645,2645,2645, & - 2645,2645,2645,2646,2646,2646,2646,2646,2646,2646,2646,2647, & - 2647,2647,2647,2647,2647,2647,2647,2648,2648,2648,2648,2649, & - 2649,2649,2649,2650,2650,2650,2650,2651,2651,2651,2651,2652, & - 2652,2652,2652,2653,2653,2653,2653,2654,2654,2654,2654,2655, & - 2655,2655,2655,2656,2656,2656,2656,2657,2657,2657,2657,2658, & - 2658,2658,2658,2659,2659,2659,2659,2659,2659,2659,2659,2660, & - 2660,2660,2660,2661,2661,2661,2661,2662,2662,2662,2662,2662, & - 2662,2662,2662,2663,2663,2663,2663,2664,2664,2664,2664,2665, & - 2665,2665,2665,2665,2666,2666,2666,2666,2667,2667,2667,2667, & - 2667,2667,2667,2668,2668,2668,2668,2668,2668,2668,2669,2669, & - 2669,2669,2670,2670,2670,2670,2671,2671,2671,2671,2672,2672, & - 2672,2672,2673,2673,2673,2673,2674,2674,2674,2674,2675,2675, & - 2675,2675,2676,2676,2676,2676,2676,2676,2676,2677,2677,2677, & - 2677,2678,2678,2678,2678,2679,2679,2679,2679,2679,2679,2679, & - 2680,2680,2680,2680,2680,2680,2681,2681,2681,2681,2682,2682, & - 2682,2682,2682,2682,2682,2683,2683,2683,2683,2684,2684,2684 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_32 = (/ & - 2684,2685,2685,2685,2685,2686,2686,2686,2686,2687,2687,2687, & - 2687,2688,2688,2688,2688,2689,2689,2689,2689,2690,2690,2690, & - 2690,2691,2691,2691,2691,2692,2692,2692,2692,2692,2692,2692, & - 2693,2693,2693,2693,2694,2694,2694,2694,2694,2694,2694,2695, & - 2695,2695,2695,2696,2696,2696,2696,2697,2697,2697,2697,2697, & - 2697,2697,2697,2697,2698,2698,2698,2698,2699,2699,2699,2699, & - 2699,2699,2699,2699,2700,2700,2700,2700,2701,2701,2701,2701, & - 2702,2702,2702,2702,2703,2703,2703,2703,2704,2704,2704,2704, & - 2705,2705,2705,2705,2706,2706,2706,2706,2706,2706,2706,2707, & - 2707,2707,2707,2707,2707,2707,2708,2708,2708,2708,2709,2709, & - 2709,2709,2710,2710,2710,2710,2710,2710,2710,2710,2711,2711, & - 2711,2711,2711,2711,2712,2712,2712,2712,2713,2713,2713,2713, & - 2714,2714,2714,2714,2714,2715,2715,2715,2715,2716,2716,2716, & - 2716,2716,2716,2716,2716,2716,2717,2717,2717,2717,2717,2717, & - 2717,2718,2718,2718,2718,2719,2719,2719,2719,2719,2719,2719, & - 2719,2719,2719,2720,2720,2720,2720,2720,2720,2720,2721,2721, & - 2721,2721,2722,2722,2722,2722,2722,2722,2722,2722,2723,2723, & - 2723,2723,2724,2724,2724,2724,2724,2724,2724,2725,2725,2725, & - 2725,2726,2726,2726,2726,2727,2727,2727,2727,2728,2728,2728, & - 2728,2728,2728,2728,2729,2729,2729,2729,2730,2730,2730,2730, & - 2731,2731,2731,2731,2731,2731,2731,2732,2732,2732,2732,2732, & - 2732,2732,2733,2733,2733,2733,2733,2733,2733,2734,2734,2734, & - 2734,2734,2734,2735,2735,2735,2735,2736,2736,2736,2736,2736, & - 2736,2736,2737,2737,2737,2737,2738,2738,2738,2738,2739,2739, & - 2739,2739,2739,2739,2739,2740,2740,2740,2740,2741,2741,2741, & - 2741,2741,2741,2741,2742,2742,2742,2742,2743,2743,2743,2743, & - 2744,2744,2744,2744,2744,2744,2744,2745,2745,2745,2745,2745, & - 2745,2745,2745,2746,2746,2746,2746,2746,2746,2746,2746,2747, & - 2747,2747,2747,2747,2747,2747,2748,2748,2748,2748,2749,2749, & - 2749,2749,2749,2749,2749,2750,2750,2750,2750,2750,2750,2750 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_33 = (/ & - 2751,2751,2751,2751,2751,2751,2751,2752,2752,2752,2752,2752, & - 2752,2752,2753,2753,2753,2753,2754,2754,2754,2754,2755,2755, & - 2755,2755,2756,2756,2756,2756,2757,2757,2757,2757,2758,2758, & - 2758,2758,2758,2758,2758,2759,2759,2759,2759,2760,2760,2760, & - 2760,2760,2760,2760,2761,2761,2761,2761,2762,2762,2762,2762, & - 2762,2762,2762,2763,2763,2763,2763,2764,2764,2764,2764,2765, & - 2765,2765,2765,2766,2766,2766,2766,2767,2767,2767,2767,2767, & - 2767,2767,2767,2768,2768,2768,2768,2768,2768,2768,2769,2769, & - 2769,2769,2770,2770,2770,2770,2770,2770,2770,2771,2771,2771, & - 2771,2771,2771,2771,2772,2772,2772,2772,2773,2773,2773,2773, & - 2773,2773,2773,2773,2773,2774,2774,2774,2774,2775,2775,2775, & - 2775,2776,2776,2776,2776,2776,2776,2776,2776,2777,2777,2777, & - 2777,2778,2778,2778,2778,2779,2779,2779,2779,2780,2780,2780, & - 2780,2781,2781,2781,2781,2782,2782,2782,2782,2783,2783,2783, & - 2783,2783,2783,2784,2784,2784,2784,2785,2785,2785,2785,2786, & - 2786,2786,2786,2787,2787,2787,2787,2788,2788,2788,2788,2788, & - 2788,2788,2789,2789,2789,2789,2789,2789,2789,2789,2790,2790, & - 2790,2790,2791,2791,2791,2791,2792,2792,2792,2792,2793,2793, & - 2793,2793,2794,2794,2794,2794,2795,2795,2795,2795,2795,2795, & - 2795,2796,2796,2796,2796,2797,2797,2797,2797,2798,2798,2798, & - 2798,2798,2798,2798,2799,2799,2799,2799,2800,2800,2800,2800, & - 2801,2801,2801,2801,2802,2802,2802,2802,2803,2803,2803,2803, & - 2804,2804,2804,2804,2805,2805,2805,2805,2806,2806,2806,2806, & - 2806,2806,2806,2807,2807,2807,2807,2807,2807,2808,2808,2808, & - 2808,2809,2809,2809,2809,2809,2809,2810,2810,2810,2810,2811, & - 2811,2811,2811,2812,2812,2812,2812,2813,2813,2813,2813,2814, & - 2814,2814,2814,2815,2815,2815,2815,2816,2816,2816,2816,2816, & - 2816,2816,2817,2817,2817,2817,2818,2818,2818,2818,2818,2818, & - 2818,2819,2819,2819,2819,2819,2819,2819,2820,2820,2820,2820, & - 2820,2820,2820,2821,2821,2821,2821,2821,2821,2821,2822,2822 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_34 = (/ & - 2822,2822,2823,2823,2823,2823,2824,2824,2824,2824,2825,2825, & - 2825,2825,2826,2826,2826,2826,2826,2826,2826,2826,2826,2827, & - 2827,2827,2827,2827,2827,2827,2828,2828,2828,2828,2829,2829, & - 2829,2829,2830,2830,2830,2830,2831,2831,2831,2831,2831,2831, & - 2831,2832,2832,2832,2832,2832,2832,2832,2833,2833,2833,2833, & - 2834,2834,2834,2834,2835,2835,2835,2835,2836,2836,2836,2836, & - 2837,2837,2837,2837,2837,2837,2837,2838,2838,2838,2838,2839, & - 2839,2839,2839,2840,2840,2840,2840,2840,2840,2840,2841,2841, & - 2841,2841,2842,2842,2842,2842,2843,2843,2843,2843,2844,2844, & - 2844,2844,2845,2845,2845,2845,2846,2846,2846,2846,2847,2847, & - 2847,2847,2847,2847,2847,2847,2848,2848,2848,2848,2849,2849, & - 2849,2849,2849,2849,2849,2850,2850,2850,2850,2851,2851,2851, & - 2851,2851,2851,2851,2852,2852,2852,2852,2853,2853,2853,2853, & - 2853,2853,2853,2854,2854,2854,2854,2854,2854,2855,2855,2855, & - 2855,2856,2856,2856,2856,2856,2856,2856,2856,2856,2856,2857, & - 2857,2857,2857,2858,2858,2858,2858,2858,2858,2858,2859,2859, & - 2859,2859,2860,2860,2860,2860,2861,2861,2861,2861,2861,2861, & - 2862,2862,2862,2862,2863,2863,2863,2863,2864,2864,2864,2864, & - 2865,2865,2865,2865,2865,2865,2865,2866,2866,2866,2866,2867, & - 2867,2867,2867,2868,2868,2868,2868,2869,2869,2869,2869,2869, & - 2869,2869,2870,2870,2870,2870,2871,2871,2871,2871,2872,2872, & - 2872,2872,2873,2873,2873,2873,2874,2874,2874,2874,2874,2874, & - 2874,2875,2875,2875,2875,2875,2875,2876,2876,2876,2876,2877, & - 2877,2877,2877,2878,2878,2878,2878,2879,2879,2879,2879,2880, & - 2880,2880,2880,2881,2881,2881,2881,2881,2881,2881,2882,2882, & - 2882,2882,2883,2883,2883,2883,2884,2884,2884,2884,2885,2885, & - 2885,2885,2886,2886,2886,2886,2887,2887,2887,2887,2888,2888, & - 2888,2888,2889,2889,2889,2889,2889,2889,2889,2889,2890,2890, & - 2890,2890,2890,2890,2890,2891,2891,2891,2891,2891,2891,2891, & - 2891,2892,2892,2892,2892,2893,2893,2893,2893,2894,2894,2894 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_35 = (/ & - 2894,2894,2894,2894,2895,2895,2895,2895,2896,2896,2896,2896, & - 2897,2897,2897,2897,2897,2897,2897,2898,2898,2898,2898,2899, & - 2899,2899,2899,2900,2900,2900,2900,2901,2901,2901,2901,2902, & - 2902,2902,2902,2902,2902,2902,2903,2903,2903,2903,2903,2903, & - 2903,2904,2904,2904,2904,2905,2905,2905,2905,2905,2905,2905, & - 2906,2906,2906,2906,2906,2906,2906,2906,2907,2907,2907,2907, & - 2908,2908,2908,2908,2909,2909,2909,2909,2909,2909,2909,2909, & - 2909,2909,2909,2909,2910,2910,2910,2910,2910,2910,2911,2911, & - 2911,2911,2912,2912,2912,2912,2912,2912,2912,2913,2913,2913, & - 2913,2914,2914,2914,2914,2914,2914,2914,2915,2915,2915,2915, & - 2916,2916,2916,2916,2916,2916,2916,2917,2917,2917,2917,2918, & - 2918,2918,2918,2918,2918,2918,2919,2919,2919,2919,2919,2919, & - 2919,2920,2920,2920,2920,2921,2921,2921,2921,2922,2922,2922, & - 2922,2922,2922,2922,2922,2923,2923,2923,2923,2924,2924,2924, & - 2924,2925,2925,2925,2925,2926,2926,2926,2926,2926,2926,2926, & - 2926,2927,2927,2927,2927,2927,2928,2928,2928,2928,2929,2929, & - 2929,2929,2930,2930,2930,2930,2931,2931,2931,2931,2931,2931, & - 2931,2932,2932,2932,2932,2932,2933,2933,2933,2933,2933,2933, & - 2933,2933,2933,2934,2934,2934,2934,2935,2935,2935,2935,2935, & - 2935,2935,2936,2936,2936,2936,2936,2937,2937,2937,2937,2937, & - 2937,2937,2938,2938,2938,2938,2938,2938,2938,2938,2938,2939, & - 2939,2939,2939,2939,2939,2939,2939,2940,2940,2940,2940,2941, & - 2941,2941,2941,2942,2942,2942,2942,2943,2943,2943,2943,2944, & - 2944,2944,2944,2944,2944,2944,2945,2945,2945,2945,2946,2946, & - 2946,2946,2946,2946,2946,2947,2947,2947,2947,2948,2948,2948, & - 2948,2949,2949,2949,2949,2949,2949,2949,2949,2950,2950,2950, & - 2950,2951,2951,2951,2951,2952,2952,2952,2952,2952,2952,2952, & - 2953,2953,2953,2953,2953,2953,2953,2953,2953,2954,2954,2954, & - 2954,2954,2954,2954,2954,2955,2955,2955,2955,2956,2956,2956, & - 2956,2957,2957,2957,2957,2958,2958,2958,2958,2959,2959,2959 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_36 = (/ & - 2959,2959,2959,2959,2960,2960,2960,2960,2960,2960,2960,2961, & - 2961,2961,2961,2961,2961,2961,2962,2962,2962,2962,2962,2962, & - 2962,2963,2963,2963,2963,2963,2963,2963,2964,2964,2964,2964, & - 2965,2965,2965,2965,2965,2965,2965,2965,2965,2965,2965,2966, & - 2966,2966,2966,2966,2967,2967,2967,2967,2967,2967,2967,2967, & - 2968,2968,2968,2968,2968,2968,2968,2969,2969,2969,2969,2970, & - 2970,2970,2970,2971,2971,2971,2971,2972,2972,2972,2972,2972, & - 2972,2972,2973,2973,2973,2973,2973,2973,2973,2974,2974,2974, & - 2974,2974,2974,2974,2974,2975,2975,2975,2975,2976,2976,2976, & - 2976,2977,2977,2977,2977,2978,2978,2978,2978,2979,2979,2979, & - 2979,2979,2979,2979,2979,2979,2980,2980,2980,2980,2981,2981, & - 2981,2981,2982,2982,2982,2982,2982,2982,2982,2982,2982,2983, & - 2983,2983,2983,2983,2983,2983,2984,2984,2984,2984,2985,2985, & - 2985,2985,2986,2986,2986,2986,2986,2986,2986,2987,2987,2987, & - 2987,2988,2988,2988,2988,2989,2989,2989,2989,2989,2989,2989, & - 2990,2990,2990,2990,2990,2990,2990,2990,2991,2991,2991,2991, & - 2992,2992,2992,2992,2992,2992,2993,2993,2993,2993,2994,2994, & - 2994,2994,2994,2994,2994,2994,2995,2995,2995,2995,2995,2995, & - 2995,2996,2996,2996,2996,2996,2996,2996,2996,2997,2997,2997, & - 2997,2997,2997,2997,2998,2998,2998,2998,2999,2999,2999,2999, & - 3000,3000,3000,3000,3000,3000,3000,3000,3000,3001,3001,3001, & - 3001,3001,3001,3001,3002,3002,3002,3002,3003,3003,3003,3003, & - 3004,3004,3004,3004,3004,3004,3004,3005,3005,3005,3005,3006, & - 3006,3006,3006,3007,3007,3007,3007,3008,3008,3008,3008,3009, & - 3009,3009,3009,3009,3009,3009,3009,3009,3010,3010,3010,3010, & - 3011,3011,3011,3011,3012,3012,3012,3012,3013,3013,3013,3013, & - 3013,3013,3013,3013,3013,3014,3014,3014,3014,3015,3015,3015, & - 3015,3016,3016,3016,3016,3016,3016,3016,3017,3017,3017,3017, & - 3018,3018,3018,3018,3019,3019,3019,3019,3020,3020,3020,3020, & - 3021,3021,3021,3021,3022,3022,3022,3022,3023,3023,3023,3023 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_37 = (/ & - 3024,3024,3024,3024,3025,3025,3025,3025,3026,3026,3026,3026, & - 3027,3027,3027,3027,3027,3027,3027,3027,3028,3028,3028,3028, & - 3028,3028,3028,3029,3029,3029,3029,3030,3030,3030,3030,3030, & - 3030,3030,3031,3031,3031,3031,3032,3032,3032,3032,3032,3032, & - 3032,3032,3033,3033,3033,3033,3034,3034,3034,3034,3035,3035, & - 3035,3035,3036,3036,3036,3036,3036,3036,3036,3037,3037,3037, & - 3037,3037,3037,3037,3038,3038,3038,3038,3039,3039,3039,3039, & - 3039,3039,3039,3040,3040,3040,3040,3041,3041,3041,3041,3041, & - 3041,3041,3041,3042,3042,3042,3042,3043,3043,3043,3043,3044, & - 3044,3044,3044,3045,3045,3045,3045,3046,3046,3046,3046,3047, & - 3047,3047,3047,3048,3048,3048,3048,3048,3048,3048,3048,3049, & - 3049,3049,3049,3050,3050,3050,3050,3050,3050,3050,3050,3051, & - 3051,3051,3051,3052,3052,3052,3052,3053,3053,3053,3053,3054, & - 3054,3054,3054,3054,3054,3054,3055,3055,3055,3055,3056,3056, & - 3056,3056,3057,3057,3057,3057,3057,3057,3058,3058,3058,3058, & - 3058,3058,3058,3059,3059,3059,3059,3060,3060,3060,3060,3061, & - 3061,3061,3061,3062,3062,3062,3062,3062,3062,3062,3063,3063, & - 3063,3063,3064,3064,3064,3064,3064,3064,3064,3065,3065,3065, & - 3065,3065,3065,3065,3066,3066,3066,3066,3066,3066,3066,3066, & - 3067,3067,3067,3067,3067,3067,3067,3068,3068,3068,3068,3069, & - 3069,3069,3069,3069,3069,3069,3069,3070,3070,3070,3070,3071, & - 3071,3071,3071,3071,3071,3071,3072,3072,3072,3072,3072,3072, & - 3072,3073,3073,3073,3073,3073,3073,3073,3074,3074,3074,3074, & - 3074,3074,3074,3075,3075,3075,3075,3076,3076,3076,3076,3077, & - 3077,3077,3077,3078,3078,3078,3078,3079,3079,3079,3079,3079, & - 3079,3079,3080,3080,3080,3080,3080,3080,3080,3080,3081,3081, & - 3081,3081,3082,3082,3082,3082,3082,3082,3082,3082,3083,3083, & - 3083,3083,3083,3083,3084,3084,3084,3085,3085,3085,3085,3085, & - 3086,3086,3086,3086,3086,3086,3086,3087,3087,3087,3087,3087, & - 3088,3088,3088,3088,3088,3089,3089,3089,3089,3089,3089,3089 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_38 = (/ & - 3089,3090,3090,3090,3090,3090,3090,3091,3091,3091,3091,3091, & - 3091,3091,3091,3092,3092,3092,3092,3092,3093,3093,3093,3093, & - 3093,3094,3094,3094,3094,3094,3095,3095,3095,3095,3095,3096, & - 3096,3096,3097,3097,3097,3098,3098,3098,3098,3098,3099,3099, & - 3099,3099,3099,3100,3100,3100,3100,3100,3101,3101,3101,3101, & - 3101,3102,3102,3102,3102,3102,3103,3103,3103,3103,3103,3103, & - 3103,3103,3104,3104,3104,3104,3104,3104,3104,3104,3104,3104, & - 3105,3105,3105,3106,3106,3106,3106,3106,3107,3107,3107,3107, & - 3107,3107,3107,3108,3108,3108,3108,3109,3109,3109,3109,3109, & - 3109,3109,3109,3110,3110,3110,3110,3110,3110,3110,3110,3111, & - 3111,3111,3111,3111,3112,3112,3112,3112,3112,3113,3113,3113, & - 3114,3114,3114,3114,3114,3115,3115,3115,3115,3115,3115,3116, & - 3116,3116,3116,3116,3117,3117,3117,3117,3117,3117,3117,3117, & - 3118,3118,3118,3118,3118,3118,3118,3118,3119,3119,3119,3119, & - 3119,3120,3120,3120,3120,3120,3121,3121,3121,3121,3121,3121, & - 3121,3121,3122,3122,3122,3122,3122,3122,3122,3122,3123,3123, & - 3123,3123,3123,3124,3124,3124,3124,3124,3124,3124,3125,3125, & - 3125,3125,3125,3126,3126,3126,3126,3126,3126,3126,3126,3127, & - 3127,3127,3127,3127,3128,3128,3128,3128,3128,3128,3128,3128, & - 3128,3128,3128,3128,3128,3128,3128,3128,3128,3129,3129,3129, & - 3130,3130,3130,3130,3131,3131,3131,3131,3132,3132,3132,3132, & - 3132,3132,3132,3132,3133,3133,3133,3133,3133,3134,3134,3134, & - 3135,3135,3135,3135,3136,3136,3136,3136,3137,3137,3137,3137, & - 3137,3138,3138,3138,3139,3139,3139,3139,3140,3140,3140,3140, & - 3140,3141,3141,3141,3141,3141,3142,3142,3142,3142,3142,3143, & - 3143,3143,3143,3143,3144,3144,3144,3145,3145,3145,3146,3146, & - 3146,3146,3146,3147,3147,3147,3148,3148,3148,3148,3148,3148, & - 3148,3148,3149,3149,3149,3149,3150,3150,3150,3150,3150,3151, & - 3151,3151,3151,3151,3151,3151,3152,3152,3152,3152,3152,3153, & - 3153,3153,3153,3153,3154,3154,3154,3155,3155,3155,3156,3156 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_39 = (/ & - 3156,3156,3156,3156,3156,3156,3157,3157,3157,3157,3158,3158, & - 3158,3158,3159,3159,3159,3159,3159,3160,3160,3160,3161,3161, & - 3161,3161,3161,3162,3162,3162,3162,3162,3163,3163,3163,3163, & - 3163,3164,3164,3164,3164,3165,3165,3165,3165,3165,3166,3166, & - 3166,3166,3166,3166,3166,3166,3167,3167,3167,3167,3167,3168, & - 3168,3168,3168,3168,3168,3168,3168,3169,3169,3169,3170,3170, & - 3170,3170,3170,3171,3171,3171,3171,3171,3171,3171,3172,3172, & - 3172,3172,3173,3173,3173,3173,3173,3174,3174,3174,3174,3174, & - 3174,3174,3174,3175,3175,3175,3175,3175,3176,3176,3176,3176, & - 3176,3176,3176,3177,3177,3177,3177,3178,3178,3178,3178,3178, & - 3179,3179,3179,3180,3180,3180,3180,3181,3181,3181,3181,3181, & - 3182,3182,3182,3183,3183,3183,3183,3183,3183,3183,3184,3184, & - 3184,3184,3184,3184,3184,3185,3185,3185,3185,3185,3185,3185, & - 3186,3186,3186,3186,3186,3187,3187,3187,3187,3187,3188,3188, & - 3188,3188,3188,3189,3189,3189,3189,3189,3190,3190,3190,3190, & - 3190,3191,3191,3191,3191,3191,3192,3192,3192,3193,3193,3193, & - 3193,3194,3194,3194,3194,3194,3194,3194,3194,3195,3195,3195, & - 3195,3195,3195,3195,3195,3195,3195,3195,3196,3196,3196,3196, & - 3197,3197,3197,3197,3198,3198,3198,3198,3199,3199,3199,3199, & - 3200,3200,3200,3200,3200,3200,3201,3201,3201,3201,3202,3202, & - 3202,3202,3203,3203,3203,3203,3204,3204,3204,3204,3205,3205, & - 3205,3205,3206,3206,3206,3206,3207,3207,3207,3207,3208,3208, & - 3208,3208,3209,3209,3209,3209,3210,3210,3210,3210,3211,3211, & - 3211,3211,3212,3212,3212,3212,3213,3213,3213,3213,3213,3213, & - 3213,3213,3213,3213,3213,3214,3214,3214,3214,3215,3215,3215, & - 3215,3215,3215,3215,3215,3216,3216,3216,3216,3217,3217,3217, & - 3217,3218,3218,3218,3218,3219,3219,3219,3219,3219,3219,3220, & - 3220,3220,3220,3221,3221,3221,3221,3222,3222,3222,3222,3223, & - 3223,3223,3223,3224,3224,3224,3224,3225,3225,3225,3225,3226, & - 3226,3226,3226,3227,3227,3227,3227,3228,3228,3228,3228,3228 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_40 = (/ & - 3229,3229,3229,3229,3230,3230,3230,3230,3230,3231,3231,3231, & - 3231,3232,3232,3232,3232,3233,3233,3233,3233,3233,3233,3233, & - 3233,3233,3233,3233,3233,3233,3233,3233,3234,3234,3234,3234, & - 3234,3234,3234,3234,3235,3235,3235,3235,3236,3236,3236,3236, & - 3237,3237,3237,3237,3238,3238,3238,3238,3239,3239,3239,3239, & - 3240,3240,3240,3240,3241,3241,3241,3241,3241,3241,3241,3241, & - 3241,3242,3242,3242,3242,3242,3242,3242,3242,3242,3242,3242, & - 3242,3242,3242,3242,3242,3242,3243,3243,3243,3243,3244,3244, & - 3244,3244,3244,3244,3245,3245,3245,3245,3245,3245,3245,3245, & - 3246,3246,3246,3246,3246,3246,3246,3246,3246,3246,3246,3247, & - 3247,3247,3247,3247,3247,3247,3247,3247,3247,3248,3248,3248, & - 3248,3249,3249,3249,3249,3250,3250,3250,3250,3251,3251,3251, & - 3251,3251,3252,3252,3252,3252,3252,3252,3252,3252,3253,3253, & - 3253,3253,3254,3254,3254,3254,3255,3255,3255,3255,3255,3255, & - 3255,3256,3256,3256,3256,3257,3257,3257,3257,3258,3258,3258, & - 3258,3259,3259,3259,3259,3260,3260,3260,3260,3261,3261,3261, & - 3261,3262,3262,3262,3262,3262,3263,3263,3263,3263,3263,3263, & - 3264,3264,3264,3264,3265,3265,3265,3265,3266,3266,3266,3266, & - 3267,3267,3267,3267,3268,3268,3268,3268,3268,3268,3268,3268, & - 3268,3269,3269,3269,3269,3269,3269,3269,3269,3270,3270,3270, & - 3270,3270,3270,3270,3270,3270,3270,3270,3271,3271,3271,3271, & - 3272,3272,3272,3272,3273,3273,3273,3273,3274,3274,3274,3274, & - 3275,3275,3275,3275,3276,3276,3276,3276,3277,3277,3277,3277, & - 3278,3278,3278,3278,3279,3279,3279,3279,3280,3280,3280,3280, & - 3281,3281,3281,3281,3281,3281,3281,3281,3282,3282,3282,3282, & - 3283,3283,3283,3283,3283,3283,3283,3283,3283,3283,3283,3284, & - 3284,3284,3284,3284,3284,3284,3284,3284,3284,3285,3285,3285, & - 3285,3286,3286,3286,3286,3287,3287,3287,3287,3288,3288,3288, & - 3288,3289,3289,3289,3289,3290,3290,3290,3290,3291,3291,3291, & - 3291,3292,3292,3292,3292,3293,3293,3293,3293,3294,3294,3294 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_41 = (/ & - 3294,3295,3295,3295,3295,3296,3296,3296,3296,3296,3296,3296, & - 3296,3296,3296,3296,3297,3297,3297,3297,3298,3298,3298,3298, & - 3299,3299,3299,3299,3300,3300,3300,3300,3301,3301,3301,3301, & - 3301,3301,3301,3301,3302,3302,3302,3302,3303,3303,3303,3303, & - 3304,3304,3304,3304,3305,3305,3305,3305,3305,3305,3305,3305, & - 3306,3306,3306,3306,3307,3307,3307,3307,3308,3308,3308,3308, & - 3309,3309,3309,3309,3309,3309,3310,3310,3310,3310,3311,3311, & - 3311,3311,3312,3312,3312,3312,3313,3313,3313,3313,3314,3314, & - 3314,3314,3315,3315,3315,3315,3316,3316,3316,3316,3317,3317, & - 3317,3317,3318,3318,3318,3318,3319,3319,3319,3319,3320,3320, & - 3320,3320,3321,3321,3321,3321,3322,3322,3322,3322,3323,3323, & - 3323,3323,3324,3324,3324,3324,3325,3325,3325,3325,3326,3326, & - 3326,3326,3327,3327,3327,3327,3328,3328,3328,3328,3328,3328, & - 3329,3329,3329,3329,3329,3329,3329,3330,3330,3330,3330,3330, & - 3330,3330,3330,3331,3331,3331,3331,3331,3331,3331,3331,3331, & - 3331,3332,3332,3332,3332,3332,3332,3332,3332,3333,3333,3333, & - 3333,3333,3333,3333,3333,3334,3334,3334,3334,3334,3335,3335, & - 3335,3335,3335,3335,3335,3336,3336,3336,3336,3336,3336,3337, & - 3337,3337,3337,3337,3337,3337,3337,3337,3338,3338,3338,3338, & - 3338,3338,3338,3339,3339,3339,3339,3339,3339,3339,3340,3340, & - 3340,3340,3341,3341,3341,3341,3341,3341,3342,3342,3342,3342, & - 3342,3342,3342,3342,3343,3343,3343,3343,3343,3343,3343,3343, & - 3343,3343,3344,3344,3344,3344,3344,3344,3344,3344,3345,3345, & - 3345,3345,3345,3345,3345,3345,3346,3346,3346,3346,3346,3346, & - 3346,3347,3347,3347,3347,3347,3347,3347,3348,3348,3348,3348, & - 3348,3348,3348,3348,3348,3349,3349,3349,3349,3349,3349,3350, & - 3350,3350,3350,3350,3350,3350,3350,3350,3351,3351,3351,3351, & - 3351,3351,3351,3352,3352,3352,3352,3352,3352,3352,3353,3353, & - 3353,3353,3354,3354,3354,3354,3354,3354,3354,3355,3355,3355, & - 3355,3355,3355,3355,3355,3356,3356,3356,3356,3356,3356,3356 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_42 = (/ & - 3357,3357,3357,3357,3358,3358,3358,3358,3358,3359,3359,3359, & - 3359,3359,3359,3359,3360,3360,3360,3360,3361,3361,3361,3361, & - 3361,3361,3361,3362,3362,3362,3362,3362,3362,3362,3363,3363, & - 3363,3363,3363,3363,3363,3364,3364,3364,3364,3364,3364,3365, & - 3365,3365,3365,3365,3365,3365,3365,3365,3366,3366,3366,3366, & - 3366,3366,3367,3367,3367,3367,3367,3367,3367,3367,3368,3368, & - 3368,3368,3368,3368,3368,3368,3368,3368,3369,3369,3369,3369, & - 3369,3369,3369,3369,3369,3369,3370,3370,3370,3370,3370,3370, & - 3370,3371,3371,3371,3371,3371,3371,3371,3372,3372,3372,3372, & - 3372,3372,3372,3372,3372,3372,3373,3373,3373,3373,3373,3373, & - 3373,3373,3373,3373,3374,3374,3374,3374,3374,3374,3374,3374, & - 3374,3375,3375,3375,3375,3375,3375,3375,3376,3376,3376,3376, & - 3376,3376,3377,3377,3377,3377,3377,3377,3377,3377,3378,3378, & - 3378,3378,3378,3378,3378,3379,3379,3379,3379,3380,3380,3380, & - 3380,3380,3380,3380,3381,3381,3381,3381,3381,3381,3381,3382, & - 3382,3382,3382,3382,3382,3382,3383,3383,3383,3383,3383,3383, & - 3383,3384,3384,3384,3384,3384,3384,3384,3384,3384,3384,3385, & - 3385,3385,3385,3385,3385,3385,3386,3386,3386,3386,3386,3386, & - 3386,3386,3387,3387,3387,3387,3387,3387,3388,3388,3388,3388, & - 3388,3388,3388,3389,3389,3389,3389,3389,3389,3389,3389,3389, & - 3390,3390,3390,3390,3390,3390,3390,3391,3391,3391,3391,3391, & - 3391,3391,3391,3392,3392,3392,3392,3392,3392,3393,3393,3393, & - 3393,3393,3393,3393,3393,3394,3394,3394,3394,3394,3394,3394, & - 3395,3395,3395,3395,3395,3395,3395,3396,3396,3396,3396,3396, & - 3396,3396,3397,3397,3397,3397,3397,3397,3397,3397,3397,3397, & - 3397,3398,3398,3398,3398,3398,3398,3398,3398,3399,3399,3399, & - 3399,3399,3399,3400,3400,3400,3400,3400,3400,3400,3401,3401, & - 3401,3401,3401,3401,3402,3402,3402,3402,3402,3402,3402,3403, & - 3403,3403,3403,3403,3403,3403,3403,3403,3404,3404,3404,3404, & - 3404,3404,3404,3404,3405,3405,3405,3405,3405,3405,3405,3405 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_43 = (/ & - 3406,3406,3406,3406,3406,3406,3406,3407,3407,3407,3407,3407, & - 3407,3407,3408,3408,3408,3408,3408,3408,3409,3409,3409,3409, & - 3409,3409,3410,3410,3410,3410,3410,3410,3410,3411,3411,3411, & - 3411,3411,3411,3411,3411,3412,3412,3412,3412,3412,3412,3412, & - 3412,3412,3412,3413,3413,3413,3413,3413,3413,3414,3414,3414, & - 3414,3414,3414,3414,3415,3415,3415,3415,3415,3415,3415,3416, & - 3416,3416,3416,3416,3416,3416,3416,3417,3417,3417,3417,3417, & - 3417,3417,3418,3418,3418,3418,3418,3418,3419,3419,3419,3419, & - 3419,3420,3420,3420,3420,3420,3420,3420,3420,3420,3420,3421, & - 3421,3421,3421,3421,3421,3421,3422,3422,3422,3422,3422,3422, & - 3422,3423,3423,3423,3423,3423,3423,3423,3424,3424,3424,3424, & - 3424,3424,3424,3424,3425,3425,3425,3425,3425,3425,3425,3425, & - 3426,3426,3426,3426,3426,3426,3426,3427,3427,3427,3427,3428, & - 3428,3428,3428,3428,3428,3428,3429,3429,3429,3429,3429,3429, & - 3429,3429,3430,3430,3430,3430,3430,3430,3430,3430,3431,3431, & - 3431,3431,3431,3431,3431,3431,3431,3432,3432,3432,3432,3432, & - 3432,3433,3433,3433,3433,3433,3433,3433,3433,3434,3434,3434, & - 3434,3434,3434,3434,3434,3434,3435,3435,3435,3435,3436,3436, & - 3436,3436,3437,3437,3437,3437,3438,3438,3438,3438,3439,3439, & - 3439,3439,3440,3440,3440,3440,3440,3440,3440,3440,3440,3441, & - 3441,3441,3441,3442,3442,3442,3442,3443,3443,3443,3443,3444, & - 3444,3444,3444,3445,3445,3445,3445,3446,3446,3446,3446,3447, & - 3447,3447,3447,3448,3448,3448,3448,3449,3449,3449,3449,3450, & - 3450,3450,3450,3450,3450,3451,3451,3451,3451,3452,3452,3452, & - 3452,3453,3453,3453,3453,3454,3454,3454,3454,3454,3455,3455, & - 3455,3455,3456,3456,3456,3456,3456,3456,3456,3456,3456,3456, & - 3457,3457,3457,3457,3458,3458,3458,3458,3459,3459,3459,3459, & - 3460,3460,3460,3460,3461,3461,3461,3461,3461,3461,3461,3461, & - 3461,3461,3462,3462,3462,3462,3463,3463,3463,3463,3464,3464, & - 3464,3464,3465,3465,3465,3465,3466,3466,3466,3466,3467,3467 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_44 = (/ & - 3467,3467,3468,3468,3468,3468,3469,3469,3469,3469,3470,3470, & - 3470,3470,3470,3471,3471,3471,3471,3472,3472,3472,3472,3473, & - 3473,3473,3473,3474,3474,3474,3474,3474,3474,3474,3474,3474, & - 3474,3475,3475,3475,3475,3476,3476,3476,3476,3476,3477,3477, & - 3477,3477,3477,3477,3478,3478,3478,3478,3478,3478,3478,3478, & - 3478,3478,3478,3478,3478,3479,3479,3479,3479,3479,3479,3479, & - 3480,3480,3480,3480,3481,3481,3481,3481,3481,3481,3482,3482, & - 3482,3482,3482,3483,3483,3483,3483,3483,3483,3483,3484,3484, & - 3484,3484,3484,3485,3485,3485,3485,3486,3486,3486,3486,3486, & - 3486,3486,3486,3487,3487,3487,3487,3488,3488,3488,3488,3488, & - 3488,3489,3489,3489,3489,3489,3489,3489,3490,3490,3490,3490, & - 3490,3491,3491,3491,3491,3491,3491,3491,3492,3492,3492,3492, & - 3492,3492,3493,3493,3493,3493,3493,3493,3493,3493,3494,3494, & - 3494,3494,3494,3495,3495,3495,3495,3496,3496,3496,3496,3496, & - 3497,3497,3497,3497,3497,3497,3497,3497,3497,3497,3497,3497, & - 3498,3498,3498,3498,3498,3498,3498,3498,3498,3499,3499,3499, & - 3499,3499,3500,3500,3500,3500,3500,3500,3501,3501,3501,3501, & - 3502,3502,3502,3502,3502,3502,3503,3503,3503,3503,3503,3503, & - 3503,3504,3504,3504,3504,3504,3504,3504,3504,3505,3505,3505, & - 3505,3505,3505,3505,3505,3506,3506,3506,3506,3506,3507,3507, & - 3507,3507,3507,3507,3508,3508,3508,3508,3508,3509,3509,3509, & - 3509,3509,3509,3510,3510,3510,3510,3510,3510,3511,3511,3511, & - 3511,3511,3511,3511,3512,3512,3512,3512,3512,3513,3513,3513, & - 3513,3513,3513,3514,3514,3514,3514,3514,3514,3514,3514,3514, & - 3514,3515,3515,3515,3515,3515,3515,3516,3516,3516,3516,3516, & - 3516,3516,3516,3516,3516,3516,3516,3516,3516,3516,3516,3516, & - 3516,3517,3517,3517,3517,3517,3518,3518,3518,3518,3518,3518, & - 3518,3519,3519,3519,3519,3519,3520,3520,3520,3520,3520,3521, & - 3521,3521,3521,3521,3521,3522,3522,3522,3522,3522,3522,3522, & - 3522,3523,3523,3523,3523,3523,3523,3524,3524,3524,3524,3525 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_45 = (/ & - 3525,3525,3525,3525,3525,3526,3526,3526,3526,3526,3526,3527, & - 3527,3527,3527,3527,3527,3527,3528,3528,3528,3528,3529,3529, & - 3529,3529,3529,3529,3530,3530,3530,3530,3530,3530,3530,3530, & - 3530,3530,3531,3531,3531,3531,3531,3531,3531,3532,3532,3532, & - 3532,3532,3532,3533,3533,3533,3533,3534,3534,3534,3534,3534, & - 3534,3534,3535,3535,3535,3535,3535,3535,3535,3535,3535,3535, & - 3536,3536,3536,3536,3536,3536,3536,3536,3536,3536,3536,3536, & - 3536,3537,3537,3537,3537,3537,3537,3537,3537,3538,3538,3538, & - 3538,3538,3538,3538,3539,3539,3539,3539,3539,3539,3539,3540, & - 3540,3540,3540,3541,3541,3541,3541,3541,3541,3541,3541,3541, & - 3541,3541,3541,3541,3542,3542,3542,3542,3542,3542,3542,3542, & - 3542,3542,3543,3543,3543,3543,3543,3543,3543,3544,3544,3544, & - 3544,3544,3544,3544,3544,3545,3545,3545,3545,3545,3546,3546, & - 3546,3546,3546,3546,3547,3547,3547,3547,3547,3547,3547,3547, & - 3547,3547,3548,3548,3548,3548,3548,3548,3548,3548,3549,3549, & - 3549,3549,3549,3549,3550,3550,3550,3550,3551,3551,3551,3551, & - 3551,3552,3552,3552,3552,3553,3553,3553,3553,3553,3553,3554, & - 3554,3554,3554,3554,3554,3554,3555,3555,3555,3555,3555,3555, & - 3556,3556,3556,3556,3556,3556,3556,3556,3556,3556,3557,3557, & - 3557,3557,3557,3557,3557,3557,3557,3557,3557,3557,3558,3558, & - 3558,3558,3558,3558,3558,3559,3559,3559,3559,3559,3559,3560, & - 3560,3560,3560,3560,3561,3561,3561,3561,3561,3561,3561,3561, & - 3561,3561,3562,3562,3562,3562,3562,3562,3562,3563,3563,3563, & - 3563,3563,3563,3564,3564,3564,3564,3564,3564,3564,3564,3565, & - 3565,3565,3565,3565,3565,3565,3565,3566,3566,3566,3566,3566, & - 3566,3567,3567,3567,3567,3567,3567,3567,3567,3568,3568,3568, & - 3568,3568,3568,3568,3569,3569,3569,3569,3569,3569,3569,3569, & - 3570,3570,3570,3570,3570,3570,3570,3570,3571,3571,3571,3571, & - 3571,3571,3571,3571,3572,3572,3572,3572,3572,3572,3572,3573, & - 3573,3573,3573,3573,3573,3573,3573,3574,3574,3574,3574,3574 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_46 = (/ & - 3574,3574,3575,3575,3575,3575,3575,3575,3575,3576,3576,3576, & - 3576,3576,3576,3576,3576,3577,3577,3577,3577,3577,3577,3577, & - 3578,3578,3578,3578,3578,3578,3578,3578,3579,3579,3579,3579, & - 3579,3579,3579,3580,3580,3580,3580,3580,3580,3580,3580,3580, & - 3581,3581,3581,3581,3581,3581,3581,3581,3582,3582,3582,3582, & - 3582,3582,3582,3583,3583,3583,3583,3583,3583,3583,3583,3583, & - 3583,3584,3584,3584,3584,3584,3584,3584,3584,3585,3585,3585, & - 3585,3585,3585,3585,3586,3586,3586,3586,3586,3586,3586,3587, & - 3587,3587,3587,3587,3587,3587,3588,3588,3588,3588,3588,3588, & - 3588,3588,3589,3589,3589,3589,3589,3589,3589,3589,3590,3590, & - 3590,3590,3590,3590,3590,3590,3590,3590,3590,3590,3591,3591, & - 3591,3591,3591,3591,3591,3591,3591,3592,3592,3592,3592,3592, & - 3592,3592,3593,3593,3593,3593,3593,3593,3593,3593,3594,3594, & - 3594,3594,3594,3594,3594,3594,3594,3594,3595,3595,3595,3595, & - 3595,3595,3595,3595,3596,3596,3596,3596,3596,3596,3596,3597, & - 3597,3597,3597,3597,3597,3597,3598,3598,3598,3598,3598,3598, & - 3598,3599,3599,3599,3599,3599,3599,3599,3599,3599,3599,3600, & - 3600,3600,3600,3600,3600,3600,3600,3601,3601,3601,3601,3601, & - 3601,3601,3601,3601,3601,3602,3602,3602,3602,3602,3602,3602, & - 3602,3602,3603,3603,3603,3603,3603,3603,3603,3603,3604,3604, & - 3604,3604,3604,3604,3604,3604,3604,3605,3605,3605,3605,3605, & - 3605,3605,3605,3606,3606,3606,3606,3606,3606,3606,3606,3607, & - 3607,3607,3607,3607,3607,3607,3607,3607,3607,3608,3608,3608, & - 3608,3608,3608,3608,3609,3609,3609,3609,3609,3609,3609,3609, & - 3609,3609,3610,3610,3610,3610,3610,3610,3610,3610,3611,3611, & - 3611,3611,3611,3611,3611,3611,3612,3612,3612,3612,3612,3612, & - 3612,3612,3613,3613,3613,3613,3613,3613,3613,3613,3614,3614, & - 3614,3614,3614,3614,3614,3614,3615,3615,3615,3615,3615,3615, & - 3615,3615,3616,3616,3616,3616,3616,3616,3616,3616,3616,3616, & - 3617,3617,3617,3617,3617,3617,3617,3617,3617,3617,3617,3617 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_47 = (/ & - 3617,3617,3617,3617,3617,3617,3618,3618,3618,3618,3619,3619, & - 3619,3619,3619,3619,3619,3619,3619,3619,3619,3619,3619,3619, & - 3619,3619,3619,3620,3620,3620,3620,3621,3621,3621,3621,3622, & - 3622,3622,3622,3622,3623,3623,3623,3623,3624,3624,3624,3624, & - 3625,3625,3625,3625,3626,3626,3626,3626,3626,3626,3626,3626, & - 3626,3626,3626,3626,3626,3626,3626,3626,3626,3626,3627,3627, & - 3627,3627,3627,3627,3627,3628,3628,3628,3628,3628,3628,3628, & - 3629,3629,3629,3629,3629,3629,3629,3629,3629,3629,3629,3630, & - 3630,3630,3630,3630,3630,3630,3630,3631,3631,3631,3631,3631, & - 3631,3631,3632,3632,3632,3632,3632,3632,3632,3633,3633,3633, & - 3633,3633,3633,3634,3634,3634,3634,3634,3635,3635,3635,3635, & - 3635,3635,3635,3636,3636,3636,3636,3636,3637,3637,3637,3637, & - 3637,3637,3638,3638,3638,3638,3638,3638,3638,3638,3638,3638, & - 3638,3638,3638,3638,3638,3638,3638,3638,3638,3638,3639,3639, & - 3639,3639,3639,3639,3639,3639,3639,3639,3639,3639,3639,3639, & - 3640,3640,3640,3640,3640,3640,3640,3640,3640,3640,3641,3641, & - 3641,3641,3641,3641,3641,3642,3642,3642,3642,3642,3642,3642, & - 3642,3642,3642,3642,3642,3642,3643,3643,3643,3643,3643,3643, & - 3643,3643,3643,3643,3644,3644,3644,3644,3644,3644,3644,3644, & - 3644,3644,3644,3644,3645,3645,3645,3645,3645,3645,3645,3645, & - 3645,3645,3646,3646,3646,3646,3646,3647,3647,3647,3647,3647, & - 3647,3647,3647,3648,3648,3648,3648,3648,3648,3648,3649,3649, & - 3649,3649,3649,3649,3649,3649,3649,3649,3650,3650,3650,3650, & - 3650,3650,3650,3651,3651,3651,3651,3651,3651,3651,3651,3651, & - 3651,3651,3652,3652,3652,3652,3652,3652,3652,3652,3652,3652, & - 3653,3653,3653,3653,3653,3653,3653,3653,3654,3654,3654,3654, & - 3654,3655,3655,3655,3655,3655,3655,3655,3655,3655,3655,3656, & - 3656,3656,3656,3656,3656,3656,3656,3656,3656,3656,3657,3657, & - 3657,3657,3657,3657,3657,3657,3657,3657,3658,3658,3658,3658, & - 3658,3659,3659,3659,3659,3659,3659,3659,3660,3660,3660,3660 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_48 = (/ & - 3660,3661,3661,3661,3661,3661,3661,3661,3661,3661,3661,3662, & - 3662,3662,3662,3662,3663,3663,3663,3663,3663,3663,3663,3664, & - 3664,3664,3664,3664,3664,3664,3664,3664,3664,3665,3665,3665, & - 3665,3665,3665,3665,3666,3666,3666,3666,3666,3666,3666,3666, & - 3667,3667,3667,3667,3667,3667,3667,3667,3668,3668,3668,3668, & - 3668,3668,3668,3668,3669,3669,3669,3669,3669,3669,3669,3670, & - 3670,3670,3670,3670,3670,3671,3671,3671,3671,3671,3671,3671, & - 3671,3672,3672,3672,3672,3672,3672,3672,3673,3673,3673,3673, & - 3673,3673,3673,3673,3674,3674,3674,3674,3674,3674,3674,3674, & - 3675,3675,3675,3675,3675,3675,3675,3676,3676,3676,3676,3676, & - 3676,3676,3676,3677,3677,3677,3677,3677,3677,3677,3678,3678, & - 3678,3678,3678,3678,3678,3678,3679,3679,3679,3679,3679,3679, & - 3679,3679,3680,3680,3680,3680,3680,3680,3680,3680,3681,3681, & - 3681,3681,3681,3681,3681,3681,3682,3682,3682,3682,3682,3682, & - 3682,3682,3683,3683,3683,3683,3683,3683,3683,3683,3683,3683, & - 3684,3684,3684,3684,3684,3685,3685,3685,3685,3685,3685,3685, & - 3685,3686,3686,3686,3686,3686,3686,3686,3686,3687,3687,3687, & - 3687,3687,3687,3687,3688,3688,3688,3688,3688,3688,3688,3688, & - 3688,3688,3689,3689,3689,3689,3689,3689,3689,3689,3689,3689, & - 3690,3690,3690,3690,3690,3690,3690,3690,3690,3691,3691,3691, & - 3691,3691,3691,3691,3691,3691,3692,3692,3692,3692,3692,3692, & - 3692,3693,3693,3693,3693,3693,3693,3693,3694,3694,3694,3694, & - 3694,3694,3694,3694,3694,3694,3695,3695,3695,3695,3695,3695, & - 3695,3696,3696,3696,3696,3696,3696,3696,3697,3697,3697,3697, & - 3697,3697,3697,3698,3698,3698,3698,3698,3698,3698,3698,3699, & - 3699,3699,3699,3699,3699,3699,3700,3700,3700,3700,3700,3700, & - 3700,3701,3701,3701,3701,3701,3702,3702,3702,3702,3703,3703, & - 3703,3703,3703,3703,3703,3703,3704,3704,3704,3704,3704,3704, & - 3704,3704,3705,3705,3705,3705,3705,3705,3705,3706,3706,3706, & - 3706,3706,3706,3706,3706,3707,3707,3707,3707,3708,3708,3708 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_49 = (/ & - 3708,3708,3708,3708,3709,3709,3709,3709,3709,3709,3709,3709, & - 3710,3710,3710,3710,3710,3710,3710,3710,3710,3710,3711,3711, & - 3711,3711,3711,3711,3711,3712,3712,3712,3712,3712,3712,3712, & - 3712,3713,3713,3713,3713,3713,3713,3713,3714,3714,3714,3714, & - 3714,3714,3714,3714,3715,3715,3715,3715,3715,3715,3715,3715, & - 3716,3716,3716,3716,3716,3716,3716,3716,3716,3716,3717,3717, & - 3717,3717,3717,3717,3717,3717,3718,3718,3718,3718,3718,3718, & - 3718,3718,3718,3719,3719,3719,3719,3719,3719,3719,3719,3720, & - 3720,3720,3720,3720,3720,3720,3720,3720,3721,3721,3721,3721, & - 3721,3721,3721,3721,3722,3722,3722,3722,3722,3722,3722,3722, & - 3723,3723,3723,3723,3723,3723,3723,3723,3724,3724,3724,3724, & - 3724,3724,3724,3724,3724,3725,3725,3725,3725,3725,3725,3725, & - 3726,3726,3726,3726,3726,3726,3726,3726,3726,3726,3726,3726, & - 3727,3727,3727,3727,3727,3727,3727,3728,3728,3728,3728,3728, & - 3728,3728,3729,3729,3729,3729,3729,3729,3729,3729,3730,3730, & - 3730,3730,3730,3730,3730,3730,3731,3731,3731,3731,3731,3731, & - 3731,3731,3731,3732,3732,3732,3732,3732,3732,3732,3732,3733, & - 3733,3733,3733,3733,3733,3734,3734,3734,3734,3734,3734,3734, & - 3734,3734,3734,3735,3735,3735,3735,3735,3735,3735,3735,3735, & - 3736,3736,3736,3736,3736,3736,3736,3736,3736,3737,3737,3737, & - 3737,3737,3737,3737,3737,3738,3738,3738,3738,3738,3738,3738, & - 3738,3739,3739,3739,3739,3739,3739,3739,3740,3740,3740,3740, & - 3740,3740,3740,3741,3741,3741,3741,3741,3741,3741,3741,3741, & - 3741,3741,3742,3742,3742,3742,3742,3742,3742,3742,3742,3743, & - 3743,3743,3743,3743,3743,3743,3743,3744,3744,3744,3744,3744, & - 3744,3744,3745,3745,3745,3745,3745,3745,3745,3745,3745,3746, & - 3746,3746,3746,3746,3746,3746,3746,3747,3747,3747,3747,3747, & - 3747,3747,3747,3747,3747,3747,3747,3747,3748,3748,3748,3748, & - 3748,3748,3748,3748,3748,3748,3748,3748,3749,3749,3749,3749, & - 3749,3749,3749,3749,3749,3750,3750,3750,3750,3750,3750,3750 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_50 = (/ & - 3750,3751,3751,3751,3751,3751,3751,3751,3751,3751,3752,3752, & - 3752,3752,3752,3752,3752,3753,3753,3753,3753,3753,3753,3753, & - 3753,3754,3754,3754,3754,3754,3754,3754,3754,3754,3755,3755, & - 3755,3755,3755,3755,3755,3755,3755,3755,3756,3756,3756,3756, & - 3756,3756,3756,3756,3756,3756,3757,3757,3757,3757,3757,3757, & - 3757,3757,3757,3758,3758,3758,3758,3758,3758,3758,3758,3759, & - 3759,3759,3759,3759,3759,3759,3759,3759,3759,3759,3760,3760, & - 3760,3760,3760,3760,3760,3760,3760,3761,3761,3761,3761,3761, & - 3761,3761,3761,3761,3762,3762,3762,3762,3762,3762,3762,3763, & - 3763,3763,3763,3763,3763,3763,3763,3763,3764,3764,3764,3764, & - 3764,3764,3764,3764,3765,3765,3765,3765,3765,3765,3765,3765, & - 3766,3766,3766,3766,3766,3766,3766,3766,3767,3767,3767,3767, & - 3767,3767,3767,3768,3768,3768,3768,3768,3768,3768,3768,3769, & - 3769,3769,3769,3769,3769,3769,3769,3770,3770,3770,3770,3770, & - 3770,3770,3771,3771,3771,3771,3771,3771,3771,3771,3772,3772, & - 3772,3772,3772,3772,3772,3773,3773,3773,3773,3773,3773,3773, & - 3773,3773,3773,3773,3773,3774,3774,3774,3774,3774,3774,3774, & - 3775,3775,3775,3775,3775,3775,3775,3775,3775,3775,3775,3775, & - 3776,3776,3776,3776,3776,3776,3776,3776,3776,3776,3777,3777, & - 3777,3777,3777,3777,3777,3777,3777,3778,3778,3778,3778,3778, & - 3778,3778,3778,3779,3779,3779,3779,3779,3779,3779,3779,3780, & - 3780,3780,3780,3780,3780,3780,3780,3780,3780,3781,3781,3781, & - 3781,3781,3781,3781,3781,3782,3782,3782,3782,3782,3782,3782, & - 3782,3783,3783,3783,3783,3783,3783,3783,3783,3783,3784,3784, & - 3784,3784,3784,3784,3784,3784,3784,3785,3785,3785,3785,3785, & - 3785,3785,3785,3786,3786,3786,3786,3786,3786,3786,3787,3787, & - 3787,3787,3787,3787,3787,3787,3787,3788,3788,3788,3788,3788, & - 3788,3788,3789,3789,3789,3789,3789,3789,3789,3789,3790,3790, & - 3790,3790,3790,3790,3791,3791,3791,3791,3791,3791,3791,3792, & - 3792,3792,3792,3792,3793,3793,3793,3793,3793,3793,3793,3793 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_51 = (/ & - 3793,3793,3793,3793,3794,3794,3794,3794,3794,3794,3795,3795, & - 3795,3795,3795,3795,3795,3795,3796,3796,3796,3796,3796,3796, & - 3796,3797,3797,3797,3797,3797,3797,3797,3797,3798,3798,3798, & - 3798,3798,3798,3798,3799,3799,3799,3799,3799,3799,3799,3800, & - 3800,3800,3800,3800,3800,3800,3800,3800,3800,3801,3801,3801, & - 3801,3801,3801,3802,3802,3802,3802,3802,3802,3802,3802,3802, & - 3803,3803,3803,3803,3803,3803,3804,3804,3804,3804,3804,3804, & - 3805,3805,3805,3805,3805,3805,3805,3805,3806,3806,3806,3806, & - 3806,3807,3807,3807,3807,3807,3807,3808,3808,3808,3808,3808, & - 3808,3808,3809,3809,3809,3809,3809,3809,3809,3809,3809,3809, & - 3809,3809,3810,3810,3810,3810,3810,3810,3810,3811,3811,3811, & - 3811,3811,3811,3812,3812,3812,3812,3812,3812,3812,3812,3813, & - 3813,3813,3813,3813,3813,3813,3814,3814,3814,3814,3814,3814, & - 3814,3815,3815,3815,3815,3815,3815,3815,3816,3816,3816,3816, & - 3816,3816,3816,3816,3816,3817,3817,3817,3817,3817,3817,3817, & - 3818,3818,3818,3818,3818,3818,3818,3818,3818,3819,3819,3819, & - 3819,3819,3819,3820,3820,3820,3820,3820,3820,3820,3821,3821, & - 3821,3821,3821,3821,3821,3821,3821,3821,3821,3821,3821,3821, & - 3821,3822,3822,3822,3822,3822,3822,3822,3822,3823,3823,3823, & - 3823,3823,3823,3824,3824,3824,3824,3824,3824,3824,3824,3825, & - 3825,3825,3825,3825,3825,3825,3826,3826,3826,3826,3826,3826, & - 3826,3826,3826,3827,3827,3827,3827,3827,3827,3827,3828,3828, & - 3828,3828,3828,3828,3828,3829,3829,3829,3829,3829,3829,3829, & - 3829,3830,3830,3830,3830,3830,3831,3831,3831,3831,3831,3832, & - 3832,3832,3832,3833,3833,3833,3833,3833,3834,3834,3834,3834, & - 3834,3835,3835,3835,3835,3836,3836,3836,3836,3836,3836,3836, & - 3837,3837,3837,3837,3837,3837,3837,3838,3838,3838,3838,3838, & - 3838,3838,3838,3838,3838,3839,3839,3839,3839,3839,3839,3839, & - 3839,3840,3840,3840,3840,3840,3840,3840,3841,3841,3841,3841, & - 3841,3841,3841,3841,3842,3842,3842,3842,3842,3842,3842,3843 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_52 = (/ & - 3843,3843,3843,3843,3843,3843,3843,3843,3843,3844,3844,3844, & - 3844,3844,3844,3844,3845,3845,3845,3845,3845,3845,3845,3845, & - 3845,3845,3846,3846,3846,3846,3846,3846,3846,3846,3846,3846, & - 3847,3847,3847,3847,3847,3847,3847,3848,3848,3848,3848,3848, & - 3848,3848,3849,3849,3849,3849,3849,3849,3849,3849,3849,3849, & - 3849,3849,3849,3849,3849,3849,3850,3850,3850,3850,3850,3850, & - 3850,3851,3851,3851,3851,3851,3851,3851,3851,3851,3852,3852, & - 3852,3852,3852,3852,3853,3853,3853,3853,3853,3853,3853,3854, & - 3854,3854,3854,3854,3854,3854,3854,3854,3854,3855,3855,3855, & - 3855,3855,3855,3855,3855,3855,3856,3856,3856,3856,3856,3856, & - 3856,3856,3856,3857,3857,3857,3857,3857,3857,3857,3857,3857, & - 3858,3858,3858,3858,3858,3858,3858,3858,3859,3859,3859,3859, & - 3859,3859,3859,3859,3860,3860,3860,3860,3860,3860,3860,3860, & - 3860,3861,3861,3861,3861,3861,3861,3861,3861,3861,3862,3862, & - 3862,3862,3862,3862,3862,3862,3863,3863,3863,3863,3863,3863, & - 3863,3864,3864,3864,3864,3864,3864,3864,3864,3864,3865,3865, & - 3865,3865,3865,3865,3865,3866,3866,3866,3866,3866,3866,3866, & - 3867,3867,3867,3867,3867,3867,3868,3868,3868,3868,3868,3868, & - 3868,3868,3868,3868,3868,3868,3868,3869,3869,3869,3869,3869, & - 3869,3869,3869,3870,3870,3870,3870,3870,3870,3870,3870,3870, & - 3871,3871,3871,3871,3871,3871,3871,3871,3871,3871,3872,3872, & - 3872,3872,3872,3872,3872,3873,3873,3873,3873,3873,3873,3873, & - 3873,3874,3874,3874,3874,3874,3874,3874,3874,3874,3875,3875, & - 3875,3875,3875,3875,3875,3875,3875,3876,3876,3876,3876,3876, & - 3876,3876,3877,3877,3877,3877,3877,3877,3877,3877,3877,3877, & - 3878,3878,3878,3878,3878,3878,3878,3879,3879,3879,3879,3879, & - 3879,3879,3879,3879,3879,3879,3880,3880,3880,3880,3880,3880, & - 3880,3880,3880,3880,3881,3881,3881,3881,3881,3881,3881,3881, & - 3881,3881,3882,3882,3882,3882,3882,3882,3882,3882,3882,3883, & - 3883,3883,3883,3883,3883,3883,3884,3884,3884,3884,3884,3884 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_53 = (/ & - 3884,3885,3885,3885,3885,3885,3885,3885,3885,3886,3886,3886, & - 3886,3886,3886,3886,3887,3887,3887,3887,3887,3887,3887,3888, & - 3888,3888,3888,3888,3888,3888,3888,3888,3889,3889,3889,3889, & - 3889,3889,3889,3889,3890,3890,3890,3890,3890,3890,3890,3890, & - 3890,3891,3891,3891,3891,3891,3891,3891,3892,3892,3892,3892, & - 3892,3892,3892,3892,3893,3893,3893,3893,3893,3893,3893,3893, & - 3894,3894,3894,3894,3894,3894,3894,3894,3895,3895,3895,3895, & - 3895,3895,3895,3896,3896,3896,3896,3896,3896,3896,3896,3896, & - 3896,3896,3897,3897,3897,3897,3897,3897,3897,3898,3898,3898, & - 3898,3898,3898,3898,3899,3899,3899,3899,3899,3899,3899,3899, & - 3900,3900,3900,3900,3900,3900,3900,3900,3900,3901,3901,3901, & - 3901,3901,3901,3901,3901,3901,3902,3902,3902,3902,3902,3902, & - 3902,3902,3903,3903,3903,3903,3903,3903,3903,3904,3904,3904, & - 3904,3904,3904,3904,3905,3905,3905,3905,3905,3905,3905,3905, & - 3905,3905,3906,3906,3906,3906,3906,3906,3906,3906,3907,3907, & - 3907,3907,3907,3907,3907,3908,3908,3908,3908,3908,3908,3908, & - 3909,3909,3909,3909,3909,3909,3909,3910,3910,3910,3910,3910, & - 3910,3910,3911,3911,3911,3911,3911,3911,3911,3911,3911,3911, & - 3911,3912,3912,3912,3912,3912,3912,3912,3912,3912,3912,3913, & - 3913,3913,3913,3913,3913,3913,3913,3914,3914,3914,3914,3914, & - 3914,3914,3914,3914,3914,3914,3915,3915,3915,3915,3915,3915, & - 3915,3915,3915,3915,3915,3916,3916,3916,3916,3916,3916,3916, & - 3916,3916,3916,3917,3917,3917,3917,3917,3917,3917,3917,3917, & - 3917,3917,3918,3918,3918,3918,3918,3918,3918,3918,3918,3918, & - 3918,3918,3918,3918,3918,3919,3919,3919,3919,3919,3919,3919, & - 3919,3919,3919,3920,3920,3920,3920,3920,3920,3920,3921,3921, & - 3921,3921,3921,3921,3921,3922,3922,3922,3922,3922,3922,3922, & - 3923,3923,3923,3923,3923,3923,3923,3923,3923,3923,3924,3924, & - 3924,3924,3924,3924,3924,3924,3924,3924,3925,3925,3925,3925, & - 3925,3925,3925,3926,3926,3926,3926,3926,3926,3926,3926,3926 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_54 = (/ & - 3926,3927,3927,3927,3927,3927,3927,3928,3928,3928,3928,3928, & - 3928,3928,3929,3929,3929,3929,3929,3929,3929,3929,3929,3929, & - 3929,3930,3930,3930,3930,3930,3930,3930,3930,3930,3931,3931, & - 3931,3931,3931,3931,3931,3931,3932,3932,3932,3932,3932,3932, & - 3932,3932,3932,3933,3933,3933,3933,3933,3933,3933,3933,3933, & - 3934,3934,3934,3934,3934,3934,3934,3935,3935,3935,3935,3935, & - 3935,3935,3935,3935,3936,3936,3936,3936,3936,3936,3937,3937, & - 3937,3937,3937,3937,3937,3937,3938,3938,3938,3938,3938,3938, & - 3938,3938,3939,3939,3939,3939,3939,3939,3939,3940,3940,3940, & - 3940,3940,3940,3940,3941,3941,3941,3941,3941,3941,3941,3941, & - 3941,3941,3942,3942,3942,3942,3942,3942,3942,3943,3943,3943, & - 3943,3943,3943,3943,3944,3944,3944,3944,3944,3944,3944,3945, & - 3945,3945,3945,3945,3945,3945,3946,3946,3946,3946,3946,3946, & - 3946,3946,3946,3946,3946,3947,3947,3947,3947,3947,3947,3947, & - 3947,3947,3947,3948,3948,3948,3948,3948,3948,3948,3948,3949, & - 3949,3949,3949,3949,3949,3949,3950,3950,3950,3950,3950,3950, & - 3950,3951,3951,3951,3951,3951,3951,3951,3951,3951,3952,3952, & - 3952,3952,3952,3952,3952,3953,3953,3953,3953,3953,3953,3953, & - 3953,3954,3954,3954,3954,3954,3954,3954,3954,3954,3955,3955, & - 3955,3955,3955,3955,3955,3955,3955,3956,3956,3956,3956,3956, & - 3956,3956,3957,3957,3957,3957,3957,3957,3957,3957,3957,3958, & - 3958,3958,3958,3958,3958,3958,3958,3958,3958,3958,3959,3959, & - 3959,3959,3959,3959,3959,3959,3959,3959,3959,3960,3960,3960, & - 3960,3960,3960,3960,3961,3961,3961,3961,3961,3961,3961,3961, & - 3962,3962,3962,3962,3962,3962,3962,3963,3963,3963,3963,3963, & - 3963,3964,3964,3964,3964,3964,3964,3964,3964,3964,3965,3965, & - 3965,3965,3965,3965,3965,3965,3965,3966,3966,3966,3966,3966, & - 3966,3967,3967,3967,3967,3967,3967,3967,3967,3967,3968,3968, & - 3968,3968,3968,3968,3968,3968,3968,3969,3969,3969,3969,3969, & - 3969,3969,3970,3970,3970,3970,3970,3970,3970,3971,3971,3971 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_55 = (/ & - 3971,3971,3971,3971,3972,3972,3972,3972,3972,3972,3972,3972, & - 3973,3973,3973,3973,3973,3973,3973,3973,3974,3974,3974,3974, & - 3974,3974,3974,3975,3975,3975,3975,3975,3975,3975,3975,3976, & - 3976,3976,3976,3976,3976,3976,3976,3977,3977,3977,3977,3977, & - 3977,3977,3977,3977,3977,3978,3978,3978,3978,3978,3978,3978, & - 3978,3978,3978,3978,3978,3978,3979,3979,3979,3979,3979,3979, & - 3979,3979,3979,3980,3980,3980,3980,3980,3980,3980,3981,3981, & - 3981,3981,3981,3981,3981,3981,3981,3981,3982,3982,3982,3982, & - 3982,3982,3982,3983,3983,3983,3983,3983,3983,3983,3984,3984, & - 3984,3984,3984,3984,3984,3984,3985,3985,3985,3985,3985,3985, & - 3985,3986,3986,3986,3986,3986,3986,3986,3986,3986,3986,3986, & - 3987,3987,3987,3987,3987,3987,3987,3988,3988,3988,3988,3988, & - 3988,3988,3989,3989,3989,3989,3989,3989,3989,3989,3989,3990, & - 3990,3990,3990,3990,3990,3991,3991,3991,3991,3991,3991,3991, & - 3991,3991,3992,3992,3992,3992,3992,3992,3992,3992,3992,3993, & - 3993,3993,3993,3993,3993,3993,3993,3993,3993,3993,3994,3994, & - 3994,3994,3994,3994,3994,3995,3995,3995,3995,3995,3995,3995, & - 3995,3995,3995,3996,3996,3996,3996,3996,3997,3997,3997,3997, & - 3997,3997,3997,3997,3998,3998,3998,3998,3998,3998,3998,3998, & - 3998,3998,3998,3999,3999,3999,3999,3999,3999,3999,3999,4000, & - 4000,4000,4000,4000,4000,4000,4000,4000,4000,4000,4000,4001, & - 4001,4001,4001,4001,4001,4001,4001,4002,4002,4002,4002,4002, & - 4002,4002,4002,4003,4003,4003,4003,4003,4003,4004,4004,4004, & - 4004,4004,4004,4004,4004,4005,4005,4005,4005,4005,4005,4005, & - 4005,4005,4005,4005,4005,4006,4006,4006,4006,4006,4006,4006, & - 4006,4007,4007,4007,4007,4007,4007,4007,4007,4008,4008,4008, & - 4008,4008,4008,4008,4008,4009,4009,4009,4009,4009,4009,4009, & - 4009,4010,4010,4010,4010,4010,4011,4011,4011,4011,4011,4011, & - 4011,4011,4012,4012,4012,4012,4012,4012,4012,4012,4012,4012, & - 4012,4013,4013,4013,4013,4013,4013,4013,4013,4013,4013,4013 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_56 = (/ & - 4013,4013,4014,4014,4014,4014,4014,4014,4014,4014,4014,4014, & - 4014,4014,4014,4014,4014,4014,4014,4015,4015,4015,4015,4015, & - 4015,4015,4015,4015,4016,4016,4016,4016,4016,4016,4016,4016, & - 4017,4017,4017,4017,4017,4018,4018,4018,4018,4018,4019,4019, & - 4019,4019,4019,4019,4019,4019,4019,4020,4020,4020,4020,4020, & - 4020,4020,4020,4021,4021,4021,4021,4021,4021,4021,4021,4022, & - 4022,4022,4022,4022,4022,4022,4022,4023,4023,4023,4023,4023, & - 4023,4023,4023,4024,4024,4024,4024,4024,4024,4024,4024,4024, & - 4025,4025,4025,4025,4025,4025,4025,4025,4026,4026,4026,4026, & - 4026,4026,4026,4026,4026,4026,4027,4027,4027,4027,4027,4028, & - 4028,4028,4028,4028,4028,4028,4029,4029,4029,4029,4029,4029, & - 4029,4029,4029,4030,4030,4030,4030,4030,4030,4030,4031,4031, & - 4031,4031,4031,4031,4031,4031,4032,4032,4032,4032,4032,4033, & - 4033,4033,4033,4033,4033,4033,4033,4034,4034,4034,4034,4034, & - 4034,4034,4034,4035,4035,4035,4035,4035,4035,4035,4035,4036, & - 4036,4036,4036,4036,4036,4036,4036,4037,4037,4037,4037,4037, & - 4037,4037,4037,4038,4038,4038,4038,4038,4038,4038,4038,4038, & - 4038,4038,4039,4039,4039,4039,4039,4039,4039,4039,4040,4040, & - 4040,4040,4040,4040,4040,4040,4041,4041,4041,4041,4041,4041, & - 4041,4041,4041,4041,4041,4041,4042,4042,4042,4042,4042,4042, & - 4042,4042,4042,4042,4042,4042,4042,4042,4043,4043,4043,4043, & - 4043,4043,4043,4043,4043,4044,4044,4044,4044,4044,4044,4044, & - 4044,4045,4045,4045,4045,4045,4045,4045,4045,4045,4045,4045, & - 4046,4046,4046,4046,4046,4046,4046,4046,4046,4046,4046,4046, & - 4046,4047,4047,4047,4047,4047,4047,4047,4047,4047,4047,4047, & - 4047,4048,4048,4048,4048,4048,4048,4048,4048,4048,4048,4048, & - 4048,4048,4048,4049,4049,4049,4049,4049,4049,4049,4049,4050, & - 4050,4050,4050,4050,4050,4050,4050,4050,4050,4051,4051,4051, & - 4051,4051,4051,4051,4051,4051,4051,4051,4051,4051,4051,4051, & - 4052,4052,4052,4052,4052,4052,4052,4052,4052,4052,4052,4053 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_57 = (/ & - 4053,4053,4053,4053,4053,4053,4053,4053,4053,4053,4054,4054, & - 4054,4054,4054,4054,4054,4054,4055,4055,4055,4055,4055,4055, & - 4056,4056,4056,4056,4056,4057,4057,4057,4057,4057,4057,4057, & - 4057,4058,4058,4058,4058,4058,4058,4058,4058,4058,4058,4059, & - 4059,4059,4059,4059,4059,4059,4059,4059,4060,4060,4060,4060, & - 4060,4060,4060,4060,4060,4060,4060,4060,4060,4061,4061,4061, & - 4061,4061,4061,4061,4061,4062,4062,4062,4062,4062,4062,4062, & - 4062,4062,4063,4063,4063,4063,4063,4063,4063,4063,4064,4064, & - 4064,4064,4064,4064,4064,4064,4065,4065,4065,4065,4065,4065, & - 4065,4065,4066,4066,4066,4066,4066,4067,4067,4067,4067,4067, & - 4067,4067,4067,4068,4068,4068,4068,4068,4068,4068,4069,4069, & - 4069,4069,4069,4069,4069,4069,4069,4070,4070,4070,4070,4070, & - 4070,4070,4071,4071,4071,4071,4071,4071,4071,4071,4072,4072, & - 4072,4072,4072,4072,4072,4072,4073,4073,4073,4073,4073,4073, & - 4073,4073,4074,4074,4074,4074,4074,4074,4074,4075,4075,4075, & - 4075,4075,4075,4075,4075,4076,4076,4076,4076,4076,4076,4076, & - 4076,4077,4077,4077,4077,4077,4077,4077,4077,4077,4077,4078, & - 4078,4078,4078,4078,4078,4078,4078,4078,4079,4079,4079,4079, & - 4079,4079,4079,4079,4080,4080,4080,4080,4080,4081,4081,4081, & - 4081,4081,4081,4081,4081,4081,4082,4082,4082,4082,4082,4082, & - 4082,4082,4083,4083,4083,4083,4083,4084,4084,4084,4084,4084, & - 4084,4084,4084,4084,4084,4084,4084,4085,4085,4085,4085,4085, & - 4085,4085,4085,4086,4086,4086,4086,4086,4086,4086,4086,4086, & - 4087,4087,4087,4087,4087,4087,4087,4087,4088,4088,4088,4088, & - 4088,4088,4088,4088,4088,4089,4089,4089,4089,4089,4089,4089, & - 4089,4089,4089,4089,4090,4090,4090,4090,4090,4090,4090,4091, & - 4091,4091,4091,4091,4091,4091,4092,4092,4092,4092,4092,4092, & - 4092,4092,4092,4092,4092,4092,4092,4092,4093,4093,4093,4093, & - 4093,4094,4094,4094,4094,4094,4095,4095,4095,4095,4095,4095, & - 4095,4096,4096,4096,4096,4096,4097,4097,4097,4097,4097,4097 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_58 = (/ & - 4097,4098,4098,4098,4098,4098,4098,4098,4098,4098,4098,4099, & - 4099,4099,4099,4099,4099,4099,4099,4100,4100,4100,4100,4100, & - 4100,4100,4100,4100,4101,4101,4101,4101,4101,4101,4101,4101, & - 4101,4101,4101,4102,4102,4102,4102,4102,4102,4102,4102,4102, & - 4102,4103,4103,4103,4103,4103,4103,4103,4103,4103,4103,4103, & - 4104,4104,4104,4104,4104,4104,4104,4104,4104,4104,4104,4104, & - 4104,4104,4104,4104,4105,4105,4105,4105,4105,4105,4105,4105, & - 4105,4106,4106,4106,4106,4106,4106,4106,4107,4107,4107,4107, & - 4107,4108,4108,4108,4108,4108,4108,4108,4109,4109,4109,4109, & - 4109,4109,4109,4109,4109,4109,4109,4109,4109,4109,4109,4109, & - 4110,4110,4110,4110,4110,4110,4110,4110,4110,4110,4110,4111, & - 4111,4111,4111,4111,4111,4112,4112,4112,4112,4112,4112,4112, & - 4113,4113,4113,4113,4113,4114,4114,4114,4114,4114,4114,4114, & - 4114,4115,4115,4115,4115,4115,4115,4115,4115,4116,4116,4116, & - 4116,4116,4116,4116,4116,4117,4117,4117,4117,4117,4117,4117, & - 4118,4118,4118,4118,4118,4118,4118,4118,4118,4119,4119,4119, & - 4119,4119,4119,4119,4119,4119,4119,4120,4120,4120,4120,4120, & - 4120,4120,4120,4120,4120,4121,4121,4121,4121,4121,4121,4121, & - 4121,4122,4122,4122,4122,4122,4122,4122,4122,4122,4122,4122, & - 4123,4123,4123,4123,4123,4123,4123,4123,4124,4124,4124,4124, & - 4124,4124,4124,4125,4125,4125,4125,4125,4125,4125,4125,4125, & - 4125,4125,4125,4125,4126,4126,4126,4126,4126,4126,4126,4126, & - 4127,4127,4127,4127,4127,4127,4127,4127,4128,4128,4128,4128, & - 4128,4128,4128,4129,4129,4129,4129,4129,4129,4129,4130,4130, & - 4130,4130,4130,4130,4130,4130,4130,4131,4131,4131,4131,4131, & - 4131,4131,4131,4132,4132,4132,4132,4132,4132,4132,4132,4132, & - 4133,4133,4133,4133,4133,4133,4133,4134,4134,4134,4134,4134, & - 4134,4134,4135,4135,4135,4135,4135,4135,4135,4136,4136,4136, & - 4136,4136,4136,4136,4136,4137,4137,4137,4137,4137,4137,4137, & - 4137,4137,4137,4138,4138,4138,4138,4138,4138,4138,4138,4138 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_59 = (/ & - 4139,4139,4139,4139,4139,4139,4139,4139,4139,4140,4140,4140, & - 4140,4140,4140,4140,4141,4141,4141,4141,4141,4141,4142,4142, & - 4142,4142,4142,4142,4142,4143,4143,4143,4143,4143,4143,4143, & - 4144,4144,4144,4144,4144,4144,4144,4145,4145,4145,4145,4145, & - 4145,4145,4146,4146,4146,4146,4146,4146,4147,4147,4147,4147, & - 4147,4147,4147,4147,4148,4148,4148,4148,4148,4148,4148,4149, & - 4149,4149,4149,4149,4149,4149,4150,4150,4150,4150,4150,4150, & - 4150,4150,4150,4150,4151,4151,4151,4151,4151,4151,4151,4151, & - 4152,4152,4152,4152,4152,4152,4152,4152,4152,4152,4152,4153, & - 4153,4153,4153,4153,4153,4153,4153,4154,4154,4154,4154,4154, & - 4154,4154,4154,4154,4154,4154,4154,4154,4155,4155,4155,4155, & - 4155,4155,4155,4155,4156,4156,4156,4156,4156,4157,4157,4157, & - 4157,4157,4157,4157,4157,4157,4157,4157,4158,4158,4158,4158, & - 4158,4158,4158,4158,4159,4159,4159,4159,4159,4159,4160,4160, & - 4160,4160,4160,4160,4160,4160,4161,4161,4161,4161,4161,4161, & - 4161,4161,4162,4162,4162,4162,4162,4162,4162,4162,4162,4163, & - 4163,4163,4163,4163,4163,4163,4163,4164,4164,4164,4164,4164, & - 4164,4164,4164,4164,4164,4164,4165,4165,4165,4165,4165,4165, & - 4166,4166,4166,4166,4166,4166,4166,4166,4167,4167,4167,4167, & - 4167,4167,4167,4168,4168,4168,4168,4168,4168,4168,4168,4168, & - 4168,4169,4169,4169,4169,4169,4169,4169,4169,4169,4169,4170, & - 4170,4170,4170,4170,4170,4170,4170,4170,4171,4171,4171,4171, & - 4171,4171,4171,4172,4172,4172,4172,4172,4172,4172,4172,4172, & - 4173,4173,4173,4173,4173,4173,4173,4173,4173,4174,4174,4174, & - 4174,4174,4174,4174,4174,4175,4175,4175,4175,4175,4175,4175, & - 4175,4175,4175,4175,4175,4175,4175,4175,4176,4176,4176,4176, & - 4176,4176,4176,4177,4177,4177,4177,4177,4177,4177,4177,4177, & - 4178,4178,4178,4178,4178,4178,4178,4178,4178,4178,4178,4179, & - 4179,4179,4179,4179,4179,4179,4179,4179,4179,4179,4180,4180, & - 4180,4180,4180,4180,4180,4181,4181,4181,4181,4181,4181,4181 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_60 = (/ & - 4181,4181,4181,4181,4181,4181,4181,4181,4181,4182,4182,4182, & - 4182,4182,4182,4182,4182,4182,4182,4182,4183,4183,4183,4183, & - 4183,4183,4183,4183,4183,4183,4183,4183,4183,4183,4183,4183, & - 4184,4184,4184,4184,4184,4184,4184,4184,4185,4185,4185,4185, & - 4185,4185,4185,4186,4186,4186,4186,4186,4186,4186,4186,4186, & - 4186,4186,4186,4187,4187,4187,4187,4187,4187,4187,4187,4187, & - 4188,4188,4188,4188,4188,4188,4188,4188,4188,4189,4189,4189, & - 4189,4189,4189,4189,4189,4189,4189,4189,4190,4190,4190,4190, & - 4190,4190,4190,4190,4190,4191,4191,4191,4191,4191,4191,4191, & - 4191,4192,4192,4192,4192,4192,4192,4192,4192,4192,4193,4193, & - 4193,4193,4193,4193,4193,4193,4193,4194,4194,4194,4194,4194, & - 4194,4194,4194,4194,4195,4195,4195,4195,4195,4195,4195,4195, & - 4195,4196,4196,4196,4196,4196,4196,4196,4196,4196,4196,4196, & - 4196,4196,4197,4197,4197,4197,4197,4197,4197,4197,4197,4198, & - 4198,4198,4198,4198,4198,4198,4198,4198,4199,4199,4199,4199, & - 4199,4199,4199,4199,4199,4199,4199,4199,4199,4199,4200,4200, & - 4200,4200,4200,4200,4200,4200,4200,4201,4201,4201,4201,4201, & - 4201,4201,4201,4201,4202,4202,4202,4202,4202,4202,4202,4202, & - 4202,4202,4202,4203,4203,4203,4203,4203,4203,4203,4203,4203, & - 4203,4204,4204,4204,4204,4204,4204,4204,4204,4204,4205,4205, & - 4205,4205,4205,4205,4205,4205,4205,4206,4206,4206,4206,4206, & - 4206,4206,4206,4206,4207,4207,4207,4207,4207,4207,4207,4207, & - 4207,4207,4208,4208,4208,4208,4208,4208,4208,4208,4208,4208, & - 4208,4209,4209,4209,4209,4209,4209,4209,4209,4209,4210,4210, & - 4210,4210,4210,4210,4210,4210,4210,4211,4211,4211,4211,4211, & - 4211,4211,4211,4211,4211,4212,4212,4212,4212,4212,4212,4212, & - 4212,4212,4213,4213,4213,4213,4213,4213,4213,4213,4214,4214, & - 4214,4214,4214,4214,4214,4214,4214,4214,4214,4214,4215,4215, & - 4215,4215,4215,4215,4215,4215,4215,4216,4216,4216,4216,4216, & - 4216,4216,4216,4216,4216,4216,4216,4216,4216,4217,4217,4217 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_61 = (/ & - 4217,4217,4217,4217,4217,4217,4218,4218,4218,4218,4218,4218, & - 4218,4218,4218,4218,4218,4218,4219,4219,4219,4219,4219,4219, & - 4219,4219,4219,4219,4219,4219,4220,4220,4220,4220,4220,4220, & - 4220,4220,4220,4220,4220,4220,4220,4221,4221,4221,4221,4221, & - 4221,4221,4221,4221,4221,4221,4221,4221,4222,4222,4222,4222, & - 4222,4222,4222,4222,4222,4222,4223,4223,4223,4223,4223,4223, & - 4223,4223,4223,4223,4223,4224,4224,4224,4224,4224,4224,4224, & - 4224,4224,4224,4224,4224,4225,4225,4225,4225,4225,4225,4225, & - 4225,4225,4226,4226,4226,4226,4226,4226,4226,4226,4226,4226, & - 4226,4226,4226,4227,4227,4227,4227,4227,4227,4227,4227,4227, & - 4227,4228,4228,4228,4228,4228,4228,4228,4228,4228,4228,4228, & - 4229,4229,4229,4229,4229,4229,4229,4229,4229,4229,4230,4230, & - 4230,4230,4230,4230,4230,4230,4230,4230,4231,4231,4231,4231, & - 4231,4231,4231,4231,4231,4231,4231,4231,4232,4232,4232,4232, & - 4232,4232,4232,4232,4232,4233,4233,4233,4233,4233,4233,4233, & - 4233,4233,4233,4234,4234,4234,4234,4234,4234,4234,4234,4234, & - 4234,4235,4235,4235,4235,4235,4235,4235,4235,4235,4235,4235, & - 4236,4236,4236,4236,4236,4236,4236,4236,4236,4237,4237,4237, & - 4237,4237,4237,4237,4237,4237,4238,4238,4238,4238,4238,4238, & - 4238,4238,4238,4238,4239,4239,4239,4239,4239,4239,4239,4239, & - 4239,4239,4239,4239,4239,4240,4240,4240,4240,4240,4240,4240, & - 4240,4240,4241,4241,4241,4241,4241,4241,4241,4241,4241,4241, & - 4241,4241,4241,4242,4242,4242,4242,4242,4242,4242,4242,4242, & - 4243,4243,4243,4243,4243,4243,4243,4243,4243,4243,4244,4244, & - 4244,4244,4244,4244,4244,4244,4244,4245,4245,4245,4245,4245, & - 4245,4245,4245,4245,4246,4246,4246,4246,4246,4246,4246,4246, & - 4246,4247,4247,4247,4247,4247,4247,4247,4247,4248,4248,4248, & - 4248,4248,4248,4248,4248,4248,4248,4248,4248,4248,4248,4248, & - 4248,4248,4248,4249,4249,4249,4249,4249,4249,4249,4249,4250, & - 4250,4250,4250,4250,4250,4250,4250,4251,4251,4251,4251,4251 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_62 = (/ & - 4251,4251,4251,4251,4251,4251,4252,4252,4252,4252,4252,4252, & - 4252,4252,4252,4253,4253,4253,4253,4253,4253,4253,4253,4253, & - 4253,4253,4253,4253,4254,4254,4254,4254,4254,4254,4254,4254, & - 4254,4254,4255,4255,4255,4255,4255,4255,4255,4255,4255,4256, & - 4256,4256,4256,4256,4256,4256,4256,4256,4256,4257,4257,4257, & - 4257,4257,4257,4257,4257,4257,4257,4257,4258,4258,4258,4258, & - 4258,4258,4258,4258,4259,4259,4259,4259,4259,4259,4259,4259, & - 4259,4260,4260,4260,4260,4260,4260,4260,4260,4260,4260,4261, & - 4261,4261,4261,4261,4261,4261,4261,4261,4261,4261,4261,4262, & - 4262,4262,4262,4262,4262,4262,4262,4262,4263,4263,4263,4263, & - 4263,4263,4263,4263,4263,4263,4263,4264,4264,4264,4264,4264, & - 4264,4264,4264,4265,4265,4265,4265,4265,4265,4265,4265,4265, & - 4266,4266,4266,4266,4266,4266,4266,4266,4266,4266,4267,4267, & - 4267,4267,4267,4267,4267,4267,4267,4267,4267,4268,4268,4268, & - 4268,4268,4268,4268,4268,4268,4269,4269,4269,4269,4269,4269, & - 4269,4269,4269,4269,4270,4270,4270,4270,4270,4270,4270,4270, & - 4270,4270,4271,4271,4271,4271,4271,4271,4271,4271,4271,4272, & - 4272,4272,4272,4272,4273,4273,4273,4273,4273,4273,4273,4273, & - 4273,4274,4274,4274,4274,4274,4274,4274,4274,4274,4274,4275, & - 4275,4275,4275,4275,4275,4275,4275,4275,4276,4276,4276,4276, & - 4276,4276,4276,4276,4276,4277,4277,4277,4277,4277,4277,4277, & - 4277,4277,4277,4278,4278,4278,4278,4278,4278,4278,4278,4278, & - 4278,4278,4278,4278,4278,4278,4278,4279,4279,4279,4279,4279, & - 4279,4279,4279,4279,4279,4279,4280,4280,4280,4280,4280,4280, & - 4280,4280,4280,4281,4281,4281,4281,4281,4281,4281,4281,4281, & - 4282,4282,4282,4282,4282,4282,4282,4282,4283,4283,4283,4283, & - 4283,4283,4283,4283,4283,4284,4284,4284,4284,4284,4284,4284, & - 4284,4284,4284,4285,4285,4285,4285,4285,4285,4285,4285,4285, & - 4286,4286,4286,4286,4286,4286,4286,4286,4287,4287,4287,4287, & - 4287,4287,4287,4287,4287,4288,4288,4288,4288,4288,4288,4288 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_63 = (/ & - 4288,4288,4289,4289,4289,4289,4289,4289,4289,4289,4289,4290, & - 4290,4290,4290,4290,4290,4290,4290,4290,4290,4290,4290,4290, & - 4291,4291,4291,4291,4291,4291,4291,4291,4291,4292,4292,4292, & - 4292,4292,4292,4292,4292,4292,4293,4293,4293,4293,4293,4293, & - 4293,4293,4293,4294,4294,4294,4294,4294,4294,4294,4294,4294, & - 4294,4294,4294,4294,4294,4294,4294,4294,4294,4294,4294,4294, & - 4294,4294,4295,4295,4295,4295,4295,4295,4295,4295,4295,4295, & - 4295,4295,4295,4296,4296,4296,4296,4296,4296,4296,4296,4296, & - 4297,4297,4297,4297,4297,4297,4297,4297,4297,4298,4298,4298, & - 4298,4298,4298,4298,4298,4298,4299,4299,4299,4299,4299,4299, & - 4299,4299,4299,4299,4299,4299,4299,4300,4300,4300,4300,4300, & - 4300,4300,4300,4300,4300,4300,4300,4301,4301,4301,4301,4301, & - 4301,4301,4301,4301,4301,4302,4302,4302,4302,4302,4302,4302, & - 4302,4303,4303,4303,4303,4303,4303,4303,4303,4303,4304,4304, & - 4304,4304,4304,4304,4304,4304,4304,4305,4305,4305,4305,4305, & - 4305,4305,4305,4305,4306,4306,4306,4306,4306,4306,4306,4306, & - 4306,4307,4307,4307,4307,4307,4307,4307,4307,4307,4308,4308, & - 4308,4308,4308,4308,4308,4308,4308,4308,4308,4308,4308,4309, & - 4309,4309,4309,4309,4309,4309,4309,4309,4309,4310,4310,4310, & - 4310,4310,4310,4310,4310,4310,4310,4310,4310,4311,4311,4311, & - 4311,4311,4311,4311,4311,4311,4311,4311,4312,4312,4312,4312, & - 4312,4312,4312,4312,4312,4313,4313,4313,4313,4313,4313,4313, & - 4313,4313,4313,4313,4313,4313,4313,4313,4314,4314,4314,4314, & - 4314,4314,4314,4314,4314,4315,4315,4315,4315,4315,4315,4315, & - 4315,4315,4315,4315,4315,4316,4316,4316,4316,4316,4316,4316, & - 4316,4316,4316,4316,4317,4317,4317,4317,4317,4317,4317,4317, & - 4317,4318,4318,4318,4318,4318,4318,4318,4318,4318,4319,4319, & - 4319,4319,4319,4319,4319,4319,4319,4319,4319,4319,4319,4320, & - 4320,4320,4320,4320,4320,4320,4320,4321,4321,4321,4321,4321, & - 4321,4322,4322,4322,4322,4322,4322,4322,4322,4322,4322,4322 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_64 = (/ & - 4323,4323,4323,4323,4323,4323,4323,4323,4324,4324,4324,4324, & - 4324,4324,4324,4324,4324,4324,4324,4324,4324,4325,4325,4325, & - 4325,4325,4325,4325,4325,4325,4325,4325,4325,4325,4325,4325, & - 4326,4326,4326,4326,4326,4326,4326,4326,4326,4326,4326,4327, & - 4327,4327,4327,4327,4327,4327,4327,4328,4328,4328,4328,4328, & - 4328,4328,4328,4328,4328,4328,4329,4329,4329,4329,4329,4329, & - 4329,4329,4329,4329,4329,4329,4329,4329,4330,4330,4330,4330, & - 4330,4331,4331,4331,4331,4331,4331,4331,4331,4331,4331,4331, & - 4331,4331,4331,4331,4331,4331,4331,4331,4331,4331,4331,4331, & - 4331,4331,4331,4332,4332,4332,4332,4333,4333,4333,4333,4333, & - 4333,4333,4333,4333,4333,4333,4334,4334,4334,4334,4334,4334, & - 4334,4335,4335,4335,4335,4335,4335,4335,4335,4336,4336,4336, & - 4336,4336,4336,4336,4336,4337,4337,4337,4337,4337,4337,4337, & - 4338,4338,4338,4338,4338,4338,4338,4338,4338,4339,4339,4339, & - 4339,4339,4339,4340,4340,4340,4340,4340,4340,4340,4340,4340, & - 4341,4341,4341,4341,4341,4341,4342,4342,4342,4342,4342,4342, & - 4342,4342,4343,4343,4343,4343,4343,4343,4343,4343,4343,4343, & - 4344,4344,4344,4344,4344,4344,4344,4344,4344,4345,4345,4345, & - 4345,4345,4345,4345,4345,4345,4346,4346,4346,4346,4346,4346, & - 4346,4346,4347,4347,4347,4347,4347,4347,4347,4348,4348,4348, & - 4348,4348,4348,4348,4348,4349,4349,4349,4349,4349,4349,4349, & - 4349,4350,4350,4350,4350,4350,4350,4350,4350,4350,4351,4351, & - 4351,4351,4351,4351,4351,4352,4352,4352,4352,4352,4352,4352, & - 4352,4352,4352,4352,4352,4352,4352,4352,4353,4353,4353,4353, & - 4353,4353,4354,4354,4354,4354,4354,4354,4354,4355,4355,4355, & - 4355,4355,4355,4355,4355,4356,4356,4356,4356,4356,4356,4356, & - 4356,4357,4357,4357,4357,4357,4357,4357,4358,4358,4358,4358, & - 4358,4358,4358,4359,4359,4359,4359,4359,4359,4359,4359,4360, & - 4360,4360,4360,4360,4360,4360,4360,4360,4360,4361,4361,4361, & - 4361,4361,4361,4361,4361,4362,4362,4362,4362,4362,4362,4362 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_65 = (/ & - 4362,4363,4363,4363,4363,4363,4363,4363,4363,4363,4364,4364, & - 4364,4364,4364,4364,4364,4365,4365,4365,4365,4365,4365,4365, & - 4365,4365,4365,4365,4366,4366,4366,4366,4366,4366,4366,4366, & - 4366,4366,4366,4366,4366,4366,4366,4366,4366,4366,4366,4366, & - 4366,4366,4366,4366,4367,4367,4367,4367,4367,4367,4367,4367, & - 4368,4368,4368,4368,4368,4368,4368,4369,4369,4369,4369,4369, & - 4369,4369,4369,4370,4370,4370,4370,4370,4370,4370,4371,4371, & - 4371,4371,4371,4371,4371,4372,4372,4372,4372,4372,4372,4373, & - 4373,4373,4373,4373,4373,4373,4373,4373,4373,4374,4374,4374, & - 4374,4374,4374,4374,4374,4374,4375,4375,4375,4375,4375,4375, & - 4375,4375,4375,4376,4376,4376,4376,4376,4376,4376,4376,4376, & - 4376,4376,4376,4376,4376,4377,4377,4377,4377,4377,4377,4377, & - 4378,4378,4378,4378,4378,4378,4378,4378,4379,4379,4379,4379, & - 4379,4379,4379,4379,4380,4380,4380,4380,4380,4380,4380,4380, & - 4380,4381,4381,4381,4381,4381,4381,4381,4381,4382,4382,4382, & - 4382,4382,4382,4383,4383,4383,4383,4383,4383,4383,4383,4383, & - 4383,4383,4383,4383,4383,4383,4384,4384,4384,4384,4384,4384, & - 4384,4384,4385,4385,4385,4385,4385,4385,4385,4385,4385,4385, & - 4385,4386,4386,4386,4386,4386,4386,4386,4386,4386,4386,4386, & - 4386,4386,4386,4386,4387,4387,4387,4387,4387,4387,4387,4387, & - 4388,4388,4388,4388,4388,4388,4388,4388,4388,4389,4389,4389, & - 4389,4389,4389,4389,4389,4390,4390,4390,4390,4390,4390,4390, & - 4390,4391,4391,4391,4391,4391,4391,4391,4391,4391,4391,4391, & - 4391,4391,4391,4391,4391,4391,4392,4392,4392,4392,4392,4392, & - 4392,4392,4392,4392,4392,4392,4392,4392,4392,4392,4392,4392, & - 4392,4392,4393,4393,4393,4393,4393,4393,4393,4393,4394,4394, & - 4394,4394,4394,4394,4394,4394,4394,4394,4395,4395,4395,4395, & - 4396,4396,4396,4396,4396,4396,4396,4397,4397,4397,4397,4397, & - 4397,4397,4398,4398,4398,4398,4398,4398,4398,4398,4398,4398, & - 4398,4398,4398,4398,4398,4399,4399,4399,4399,4399,4399,4399 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_66 = (/ & - 4399,4399,4400,4400,4400,4400,4400,4400,4400,4400,4401,4401, & - 4401,4401,4401,4401,4401,4401,4401,4401,4401,4401,4401,4402, & - 4402,4402,4402,4402,4402,4402,4402,4402,4402,4403,4403,4403, & - 4403,4403,4403,4403,4403,4403,4403,4403,4403,4403,4403,4403, & - 4403,4403,4403,4403,4403,4403,4403,4403,4403,4403,4403,4403, & - 4403,4403,4403,4403,4403,4403,4403,4403,4403,4403,4403,4403, & - 4403,4403,4403,4403,4403,4403,4403,4404,4404,4404,4404,4404, & - 4404,4404,4404,4404,4404,4404,4405,4405,4405,4405,4405,4405, & - 4405,4405,4405,4406,4406,4406,4406,4406,4406,4406,4406,4406, & - 4406,4406,4407,4407,4407,4407,4407,4407,4407,4407,4407,4407, & - 4408,4408,4408,4408,4408,4408,4408,4408,4408,4408,4409,4409, & - 4409,4409,4409,4409,4409,4409,4409,4409,4410,4410,4410,4410, & - 4410,4410,4410,4410,4410,4410,4411,4411,4411,4411,4411,4411, & - 4411,4411,4411,4411,4411,4411,4412,4412,4412,4412,4412,4412, & - 4412,4412,4412,4412,4413,4413,4413,4413,4413,4413,4413,4413, & - 4413,4413,4414,4414,4414,4414,4414,4414,4414,4414,4414,4415, & - 4415,4415,4415,4415,4415,4415,4415,4415,4416,4416,4416,4416, & - 4416,4416,4416,4416,4416,4417,4417,4417,4417,4417,4417,4417, & - 4417,4417,4417,4417,4417,4418,4418,4418,4418,4418,4418,4418, & - 4418,4418,4418,4419,4419,4419,4419,4419,4419,4419,4419,4419, & - 4419,4419,4419,4420,4420,4420,4420,4420,4420,4420,4420,4420, & - 4420,4420,4420,4421,4421,4421,4421,4421,4421,4421,4421,4421, & - 4421,4421,4422,4422,4422,4422,4422,4422,4422,4422,4422,4423, & - 4423,4423,4423,4423,4423,4423,4423,4423,4423,4423,4423,4423, & - 4423,4423,4423,4424,4424,4424,4424,4424,4424,4424,4424,4424, & - 4425,4425,4425,4425,4425,4425,4425,4425,4425,4426,4426,4426, & - 4426,4426,4426,4426,4426,4426,4426,4426,4426,4426,4426,4426, & - 4426,4426,4426,4426,4427,4427,4427,4427,4427,4427,4427,4427, & - 4427,4427,4428,4428,4428,4428,4428,4428,4428,4428,4428,4429, & - 4429,4429,4429,4429,4429,4429,4429,4429,4429,4429,4430,4430 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_67 = (/ & - 4430,4430,4430,4430,4430,4430,4430,4430,4430,4430,4431,4431, & - 4431,4431,4431,4431,4431,4431,4431,4431,4431,4431,4432,4432, & - 4432,4432,4432,4432,4432,4432,4432,4432,4433,4433,4433,4433, & - 4433,4433,4433,4433,4433,4433,4434,4434,4434,4434,4434,4434, & - 4434,4434,4434,4435,4435,4435,4435,4435,4435,4435,4435,4435, & - 4435,4435,4436,4436,4436,4436,4436,4436,4436,4436,4436,4437, & - 4437,4437,4437,4437,4437,4437,4437,4437,4437,4438,4438,4438, & - 4438,4438,4438,4438,4438,4438,4438,4439,4439,4439,4439,4439, & - 4439,4439,4439,4439,4439,4440,4440,4440,4440,4440,4440,4440, & - 4440,4440,4441,4441,4441,4441,4441,4441,4441,4441,4441,4441, & - 4441,4441,4441,4442,4442,4442,4442,4442,4442,4442,4442,4442, & - 4442,4442,4442,4442,4443,4443,4443,4443,4443,4443,4443,4443, & - 4443,4443,4443,4443,4444,4444,4444,4444,4444,4444,4444,4444, & - 4444,4444,4445,4445,4445,4445,4445,4445,4445,4445,4445,4445, & - 4446,4446,4446,4446,4446,4446,4446,4446,4446,4447,4447,4447, & - 4447,4447,4447,4447,4447,4447,4447,4447,4448,4448,4448,4448, & - 4448,4448,4448,4448,4448,4448,4448,4449,4449,4449,4449,4449, & - 4449,4449,4449,4449,4449,4449,4449,4449,4449,4450,4450,4450, & - 4450,4450,4450,4450,4450,4450,4450,4450,4450,4451,4451,4451, & - 4451,4451,4451,4451,4451,4451,4452,4452,4452,4452,4452,4452, & - 4452,4452,4452,4452,4453,4453,4453,4453,4453,4453,4453,4453, & - 4453,4453,4454,4454,4454,4454,4454,4454,4454,4454,4454,4454, & - 4455,4455,4455,4455,4455,4455,4455,4455,4455,4456,4456,4456, & - 4456,4456,4456,4456,4456,4456,4456,4457,4457,4457,4457,4457, & - 4457,4457,4457,4457,4457,4458,4458,4458,4458,4458,4458,4458, & - 4458,4458,4459,4459,4459,4459,4459,4459,4459,4459,4459,4460, & - 4460,4460,4460,4460,4460,4460,4460,4460,4460,4460,4461,4461, & - 4461,4461,4461,4461,4461,4461,4461,4461,4461,4462,4462,4462, & - 4462,4462,4462,4462,4462,4462,4463,4463,4463,4463,4463,4463, & - 4463,4463,4463,4464,4464,4464,4464,4464,4464,4464,4464,4464 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_68 = (/ & - 4465,4465,4465,4465,4465,4465,4465,4465,4465,4465,4466,4466, & - 4466,4466,4466,4466,4466,4466,4466,4466,4467,4467,4467,4467, & - 4467,4467,4467,4467,4467,4468,4468,4468,4468,4468,4468,4468, & - 4468,4468,4468,4469,4469,4469,4469,4469,4469,4469,4469,4469, & - 4469,4470,4470,4470,4470,4470,4470,4470,4470,4470,4470,4471, & - 4471,4471,4471,4471,4471,4471,4471,4471,4471,4472,4472,4472, & - 4472,4472,4472,4472,4472,4472,4473,4473,4473,4473,4473,4473, & - 4473,4473,4473,4474,4474,4474,4474,4475,4475,4475,4475,4476, & - 4476,4476,4476,4476,4476,4476,4476,4476,4477,4477,4477,4477, & - 4477,4477,4477,4477,4477,4477,4477,4477,4478,4478,4478,4478, & - 4478,4478,4478,4478,4478,4478,4478,4478,4479,4479,4479,4479, & - 4479,4479,4479,4479,4479,4479,4480,4480,4480,4480,4480,4480, & - 4480,4480,4480,4481,4481,4481,4481,4481,4481,4481,4481,4481, & - 4481,4481,4481,4482,4482,4482,4482,4482,4482,4482,4482,4482, & - 4482,4482,4482,4482,4482,4482,4482,4482,4482,4482,4482,4482, & - 4483,4483,4483,4483,4483,4483,4483,4483,4483,4483,4483,4484, & - 4484,4484,4484,4484,4484,4484,4484,4484,4484,4485,4485,4485, & - 4485,4485,4485,4485,4485,4485,4485,4485,4485,4485,4485,4485, & - 4486,4486,4486,4486,4486,4486,4486,4486,4486,4486,4486,4486, & - 4487,4487,4487,4487,4487,4487,4487,4487,4487,4487,4488,4488, & - 4488,4488,4488,4488,4488,4488,4488,4488,4488,4489,4489,4489, & - 4489,4489,4489,4489,4489,4489,4489,4489,4489,4490,4490,4490, & - 4490,4490,4490,4490,4490,4490,4490,4490,4490,4490,4490,4490, & - 4490,4490,4491,4491,4491,4491,4491,4491,4491,4491,4491,4491, & - 4491,4491,4491,4491,4491,4491,4491,4491,4491,4492,4492,4492, & - 4492,4493,4493,4493,4493,4493,4493,4493,4493,4493,4493,4493, & - 4493,4493,4493,4493,4493,4493,4493,4493,4493,4493,4493,4493, & - 4493,4493,4494,4494,4494,4494,4494,4494,4494,4494,4494,4494, & - 4495,4495,4495,4495,4495,4495,4495,4495,4495,4495,4496,4496, & - 4496,4496,4496,4496,4496,4496,4496,4496,4497,4497,4497,4497 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_69 = (/ & - 4497,4497,4497,4497,4497,4497,4497,4497,4497,4498,4498,4498, & - 4498,4498,4498,4498,4498,4498,4499,4499,4499,4499,4499,4499, & - 4499,4499,4499,4499,4500,4500,4500,4500,4500,4500,4500,4500, & - 4500,4501,4501,4501,4501,4501,4501,4501,4501,4501,4501,4501, & - 4501,4501,4501,4502,4502,4502,4502,4502,4502,4502,4502,4502, & - 4503,4503,4503,4503,4503,4503,4503,4503,4503,4503,4503,4504, & - 4504,4504,4504,4504,4504,4504,4504,4504,4504,4505,4505,4505, & - 4505,4505,4505,4505,4506,4506,4506,4506,4506,4506,4506,4506, & - 4506,4507,4507,4507,4507,4507,4507,4507,4507,4507,4507,4507, & - 4507,4507,4507,4507,4507,4507,4507,4507,4507,4507,4507,4507, & - 4507,4507,4507,4507,4507,4507,4507,4507,4507,4507,4507,4507, & - 4507,4507,4507,4507,4507,4507,4507,4507,4507,4507,4507,4507, & - 4507,4507,4507,4507,4507,4507,4507,4507,4507,4507,4507,4507, & - 4507,4507,4507,4507,4507,4507,4507,4507,4507,4507,4507,4507, & - 4507,4507,4507,4507,4507,4507,4508,4508,4508,4508,4509,4509, & - 4509,4509,4509,4509,4509,4509,4509,4509,4510,4510,4510,4510, & - 4510,4510,4510,4510,4510,4510,4510,4510,4511,4511,4511,4511, & - 4511,4511,4511,4511,4511,4512,4512,4512,4512,4513,4513,4513, & - 4513,4513,4513,4513,4513,4513,4513,4514,4514,4514,4514,4514, & - 4514,4514,4514,4514,4514,4515,4515,4515,4515,4515,4515,4515, & - 4515,4515,4515,4516,4516,4516,4516,4516,4516,4516,4516,4516, & - 4517,4517,4517,4517,4517,4517,4517,4517,4517,4517,4518,4518, & - 4518,4518,4518,4518,4518,4518,4518,4518,4519,4519,4519,4519, & - 4519,4519,4519,4519,4519,4519,4519,4520,4520,4520,4520,4520, & - 4520,4520,4520,4520,4520,4521,4521,4521,4521,4521,4521,4521, & - 4521,4521,4521,4521,4521,4522,4522,4522,4522,4522,4522,4522, & - 4522,4522,4522,4523,4523,4523,4523,4523,4523,4523,4523,4523, & - 4523,4524,4524,4524,4524,4524,4524,4524,4524,4524,4524,4524, & - 4524,4524,4524,4524,4524,4524,4525,4525,4525,4525,4525,4525, & - 4525,4525,4525,4525,4525,4525,4526,4526,4526,4526,4526,4526 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_70 = (/ & - 4526,4526,4527,4527,4527,4527,4528,4528,4528,4528,4528,4528, & - 4528,4528,4528,4528,4528,4528,4528,4528,4528,4528,4529,4529, & - 4529,4529,4529,4529,4529,4530,4530,4530,4530,4530,4530,4530, & - 4530,4530,4530,4531,4531,4531,4531,4531,4531,4531,4531,4531, & - 4531,4531,4532,4532,4532,4532,4532,4532,4532,4532,4532,4532, & - 4532,4533,4533,4533,4533,4533,4533,4533,4533,4533,4533,4533, & - 4534,4534,4534,4534,4534,4534,4534,4534,4534,4534,4534,4534, & - 4534,4535,4535,4535,4535,4535,4535,4535,4535,4536,4536,4536, & - 4536,4536,4536,4536,4536,4536,4536,4536,4536,4536,4536,4536, & - 4536,4536,4537,4537,4537,4537,4537,4537,4537,4537,4537,4537, & - 4537,4537,4537,4538,4538,4538,4538,4538,4538,4538,4538,4538, & - 4538,4539,4539,4539,4539,4539,4539,4539,4539,4539,4539,4539, & - 4539,4540,4540,4540,4540,4540,4540,4540,4540,4540,4540,4540, & - 4540,4540,4540,4540,4540,4540,4540,4541,4541,4541,4541,4541, & - 4541,4541,4541,4541,4542,4542,4542,4542,4542,4542,4542,4542, & - 4542,4543,4543,4543,4543,4543,4543,4543,4543,4543,4543,4544, & - 4544,4544,4544,4544,4544,4544,4544,4544,4544,4544,4544,4545, & - 4545,4545,4545,4545,4545,4545,4545,4545,4545,4545,4545,4545, & - 4545,4545,4546,4546,4546,4546,4546,4546,4546,4546,4546,4546, & - 4547,4547,4547,4547,4547,4547,4547,4547,4547,4547,4547,4547, & - 4547,4547,4547,4548,4548,4548,4548,4548,4548,4548,4548,4548, & - 4548,4548,4548,4549,4549,4549,4549,4549,4549,4549,4549,4549, & - 4549,4549,4550,4550,4550,4550,4550,4550,4550,4550,4550,4550, & - 4550,4550,4551,4551,4551,4551,4551,4551,4551,4551,4551,4552, & - 4552,4552,4552,4552,4552,4552,4552,4552,4552,4552,4552,4553, & - 4553,4553,4553,4553,4553,4553,4553,4553,4553,4553,4554,4554, & - 4554,4554,4554,4554,4554,4555,4555,4555,4555,4556,4556,4556, & - 4556,4556,4556,4556,4556,4556,4556,4557,4557,4557,4557,4557, & - 4557,4557,4557,4557,4557,4557,4557,4558,4558,4558,4558,4558, & - 4558,4558,4559,4559,4559,4559,4559,4559,4559,4559,4559,4559 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_71 = (/ & - 4559,4559,4559,4560,4560,4560,4560,4560,4560,4560,4560,4560, & - 4560,4560,4560,4560,4560,4561,4561,4561,4561,4561,4561,4561, & - 4562,4562,4562,4562,4562,4562,4562,4562,4562,4563,4563,4563, & - 4563,4563,4563,4563,4563,4564,4564,4564,4564,4564,4564,4564, & - 4564,4564,4564,4564,4564,4564,4564,4564,4565,4565,4565,4565, & - 4565,4565,4565,4565,4566,4566,4566,4566,4566,4566,4566,4567, & - 4567,4567,4567,4567,4567,4567,4567,4567,4568,4568,4568,4568, & - 4568,4568,4568,4568,4569,4569,4569,4569,4569,4569,4569,4569, & - 4569,4569,4569,4569,4569,4569,4570,4570,4570,4570,4570,4570, & - 4571,4571,4571,4571,4571,4571,4571,4571,4572,4572,4572,4572, & - 4572,4572,4572,4572,4573,4573,4573,4573,4573,4573,4573,4574, & - 4574,4574,4574,4574,4574,4574,4575,4575,4575,4575,4575,4575, & - 4575,4576,4576,4576,4576,4576,4576,4576,4576,4576,4576,4576, & - 4577,4577,4577,4577,4577,4577,4577,4577,4577,4577,4578,4578, & - 4578,4578,4578,4578,4579,4579,4579,4579,4579,4579,4579,4580, & - 4580,4580,4580,4580,4580,4580,4580,4580,4580,4580,4581,4581, & - 4581,4581,4581,4581,4581,4581,4582,4582,4582,4582,4582,4582, & - 4582,4582,4583,4583,4583,4583,4583,4583,4583,4583,4584,4584, & - 4584,4584,4584,4584,4584,4585,4585,4585,4585,4585,4585,4585, & - 4585,4586,4586,4586,4586,4586,4586,4586,4587,4587,4587,4587, & - 4587,4587,4587,4587,4588,4588,4588,4588,4588,4588,4588,4588, & - 4588,4588,4588,4588,4588,4588,4589,4589,4589,4589,4589,4589, & - 4589,4590,4590,4590,4590,4590,4590,4590,4590,4591,4591,4591, & - 4591,4591,4591,4591,4591,4591,4591,4591,4591,4591,4591,4591, & - 4591,4591,4592,4592,4592,4592,4592,4592,4592,4592,4592,4592, & - 4592,4592,4592,4592,4593,4593,4593,4593,4593,4593,4593,4594, & - 4594,4594,4594,4594,4594,4594,4594,4595,4595,4595,4595,4595, & - 4595,4595,4595,4596,4596,4596,4596,4596,4596,4596,4596,4597, & - 4597,4597,4597,4597,4597,4597,4597,4597,4598,4598,4598,4598, & - 4598,4598,4598,4599,4599,4599,4599,4599,4599,4599,4599,4600 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_72 = (/ & - 4600,4600,4600,4601,4601,4601,4601,4602,4602,4602,4602,4602, & - 4602,4602,4602,4602,4602,4602,4602,4602,4602,4602,4602,4602, & - 4602,4602,4602,4602,4602,4602,4602,4602,4602,4602,4602,4602, & - 4602,4602,4602,4602,4602,4602,4602,4602,4602,4602,4602,4602, & - 4602,4602,4602,4602,4602,4602,4602,4602,4602,4602,4603,4603, & - 4603,4603,4603,4603,4603,4603,4603,4603,4604,4604,4604,4604, & - 4605,4605,4605,4605,4606,4606,4606,4606,4607,4607,4607,4607, & - 4607,4607,4607,4607,4607,4608,4608,4608,4608,4608,4608,4608, & - 4608,4608,4609,4609,4609,4609,4609,4609,4610,4610,4610,4610, & - 4610,4610,4610,4611,4611,4611,4611,4611,4611,4611,4611,4611, & - 4611,4612,4612,4612,4612,4612,4612,4612,4612,4612,4612,4612, & - 4612,4612,4613,4613,4613,4613,4613,4613,4613,4613,4613,4613, & - 4613,4614,4614,4614,4614,4614,4614,4614,4614,4614,4614,4614, & - 4614,4615,4615,4615,4615,4615,4616,4616,4616,4616,4616,4616, & - 4617,4617,4617,4617,4617,4618,4618,4618,4618,4618,4618,4618, & - 4618,4618,4618,4618,4618,4618,4618,4618,4618,4618,4618,4618, & - 4618,4618,4618,4618,4618,4618,4618,4618,4619,4619,4619,4619, & - 4619,4619,4619,4619,4619,4619,4619,4620,4620,4620,4620,4620, & - 4620,4620,4620,4620,4620,4620,4620,4620,4621,4621,4621,4621, & - 4621,4621,4621,4621,4622,4622,4622,4622,4622,4622,4622,4622, & - 4622,4622,4622,4622,4622,4622,4622,4622,4622,4622,4622,4622, & - 4622,4622,4622,4622,4622,4623,4623,4623,4623,4623,4623,4623, & - 4623,4623,4624,4624,4624,4624,4624,4624,4624,4624,4624,4624, & - 4624,4624,4624,4624,4624,4625,4625,4625,4625,4625,4625,4625, & - 4625,4625,4626,4626,4626,4626,4626,4626,4626,4626,4626,4626, & - 4627,4627,4627,4627,4627,4627,4627,4627,4627,4628,4628,4628, & - 4628,4628,4628,4628,4628,4628,4629,4629,4629,4629,4629,4629, & - 4629,4629,4629,4629,4630,4630,4630,4630,4630,4630,4630,4630, & - 4630,4630,4631,4631,4631,4631,4631,4631,4631,4631,4631,4631, & - 4631,4631,4631,4632,4632,4632,4632,4632,4632,4632,4632,4632 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_73 = (/ & - 4632,4632,4633,4633,4633,4633,4633,4633,4633,4633,4633,4633, & - 4634,4634,4634,4634,4634,4634,4634,4634,4634,4635,4635,4635, & - 4635,4635,4635,4635,4635,4635,4635,4636,4636,4636,4636,4636, & - 4636,4636,4636,4636,4637,4637,4637,4637,4637,4637,4637,4637, & - 4638,4638,4638,4638,4638,4638,4638,4638,4638,4638,4639,4639, & - 4639,4639,4639,4639,4639,4639,4639,4639,4640,4640,4640,4640, & - 4640,4640,4640,4640,4640,4640,4641,4641,4641,4641,4641,4641, & - 4641,4641,4641,4641,4642,4642,4642,4642,4642,4642,4642,4642, & - 4642,4642,4643,4643,4643,4643,4643,4643,4643,4643,4643,4644, & - 4644,4644,4644,4644,4644,4644,4644,4644,4644,4644,4644,4644, & - 4644,4644,4645,4645,4645,4645,4645,4645,4645,4645,4645,4646, & - 4646,4646,4646,4646,4646,4646,4646,4647,4647,4647,4647,4647, & - 4647,4647,4647,4647,4647,4648,4648,4648,4648,4648,4648,4648, & - 4648,4648,4648,4648,4649,4649,4649,4649,4649,4649,4649,4649, & - 4649,4649,4650,4650,4650,4650,4650,4650,4650,4650,4651,4651, & - 4651,4651,4651,4651,4651,4651,4651,4651,4651,4651,4651,4651, & - 4651,4651,4652,4652,4652,4652,4652,4652,4652,4652,4652,4652, & - 4653,4653,4653,4653,4653,4653,4653,4653,4653,4654,4654,4654, & - 4654,4654,4654,4654,4654,4654,4654,4655,4655,4655,4655,4655, & - 4655,4655,4655,4655,4656,4656,4656,4656,4656,4656,4656,4656, & - 4656,4656,4657,4657,4657,4657,4657,4657,4657,4657,4657,4658, & - 4658,4658,4658,4658,4658,4658,4658,4658,4658,4658,4658,4658, & - 4659,4659,4659,4659,4659,4659,4659,4659,4659,4659,4660,4660, & - 4660,4660,4660,4660,4660,4660,4660,4661,4661,4661,4661,4661, & - 4661,4661,4661,4661,4662,4662,4662,4662,4662,4662,4662,4662, & - 4662,4662,4663,4663,4663,4663,4663,4663,4663,4663,4663,4663, & - 4663,4664,4664,4664,4664,4664,4664,4664,4664,4664,4664,4664, & - 4664,4664,4664,4664,4664,4664,4665,4665,4665,4665,4665,4665, & - 4665,4665,4665,4666,4666,4666,4666,4666,4666,4666,4666,4666, & - 4666,4666,4666,4666,4666,4666,4666,4666,4667,4667,4667,4667 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_74 = (/ & - 4667,4667,4667,4667,4667,4667,4667,4668,4668,4668,4668,4668, & - 4668,4668,4668,4669,4669,4669,4669,4669,4669,4669,4669,4669, & - 4669,4669,4669,4670,4670,4670,4670,4670,4670,4670,4670,4670, & - 4670,4671,4671,4671,4671,4671,4671,4671,4671,4671,4671,4671, & - 4672,4672,4672,4672,4672,4672,4672,4672,4672,4672,4672,4672, & - 4672,4672,4673,4673,4673,4673,4673,4673,4673,4673,4673,4673, & - 4673,4673,4673,4674,4674,4674,4674,4674,4674,4674,4674,4674, & - 4675,4675,4675,4675,4675,4675,4675,4675,4675,4675,4675,4676, & - 4676,4676,4676,4676,4676,4676,4676,4676,4676,4676,4677,4677, & - 4677,4677,4677,4677,4677,4677,4678,4678,4678,4678,4678,4678, & - 4678,4679,4679,4679,4679,4679,4679,4679,4679,4679,4679,4680, & - 4680,4680,4680,4680,4680,4680,4680,4680,4680,4681,4681,4681, & - 4681,4681,4681,4681,4681,4681,4681,4682,4682,4682,4682,4682, & - 4682,4682,4682,4682,4682,4682,4683,4683,4683,4683,4683,4683, & - 4683,4683,4683,4683,4684,4684,4684,4684,4684,4684,4684,4684, & - 4684,4685,4685,4685,4685,4685,4685,4685,4685,4685,4685,4686, & - 4686,4686,4686,4686,4686,4686,4686,4686,4686,4686,4686,4686, & - 4687,4687,4687,4687,4687,4687,4687,4687,4687,4687,4687,4687, & - 4687,4687,4688,4688,4688,4688,4688,4688,4688,4688,4688,4688, & - 4689,4689,4689,4689,4689,4689,4689,4689,4689,4689,4690,4690, & - 4690,4690,4690,4690,4690,4690,4690,4690,4690,4691,4691,4691, & - 4691,4691,4691,4691,4692,4692,4692,4692,4692,4692,4692,4692, & - 4692,4692,4693,4693,4693,4693,4693,4693,4693,4693,4693,4693, & - 4693,4693,4693,4693,4693,4693,4693,4693,4693,4693,4693,4693, & - 4693,4693,4693,4693,4693,4693,4693,4693,4693,4693,4693,4693, & - 4693,4693,4693,4693,4693,4693,4693,4693,4693,4693,4693,4693, & - 4693,4693,4693,4693,4693,4693,4693,4693,4693,4693,4693,4693, & - 4693,4693,4693,4693,4693,4693,4693,4693,4693,4693,4693,4693, & - 4693,4693,4693,4693,4693,4693,4693,4693,4693,4693,4693,4693, & - 4693,4693,4694,4694,4694,4694,4694,4694,4694,4694,4694,4694 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_75 = (/ & - 4694,4694,4694,4694,4694,4694,4694,4694,4694,4694,4694,4695, & - 4695,4695,4695,4695,4695,4696,4696,4696,4696,4696,4696,4696, & - 4696,4697,4697,4697,4697,4697,4697,4697,4697,4698,4698,4698, & - 4698,4698,4698,4698,4698,4698,4699,4699,4699,4699,4699,4699, & - 4699,4700,4700,4700,4700,4700,4700,4700,4700,4701,4701,4701, & - 4701,4701,4701,4701,4702,4702,4702,4702,4702,4702,4702,4702, & - 4702,4703,4703,4703,4703,4703,4703,4704,4704,4704,4704,4704, & - 4704,4705,4705,4705,4705,4705,4705,4705,4706,4706,4706,4706, & - 4706,4706,4706,4707,4707,4707,4707,4707,4707,4707,4708,4708, & - 4708,4708,4708,4708,4708,4708,4708,4708,4708,4708,4708,4708, & - 4708,4708,4708,4708,4708,4708,4708,4709,4709,4709,4709,4709, & - 4709,4709,4710,4710,4710,4710,4710,4710,4710,4710,4710,4710, & - 4710,4710,4710,4710,4710,4710,4710,4710,4710,4711,4711,4711, & - 4711,4711,4711,4712,4712,4712,4712,4712,4712,4712,4713,4713, & - 4713,4713,4713,4713,4713,4714,4714,4714,4714,4714,4714,4714, & - 4714,4714,4715,4715,4715,4715,4715,4715,4715,4716,4716,4716, & - 4716,4716,4716,4716,4717,4717,4717,4717,4717,4717,4717,4717, & - 4717,4717,4718,4718,4718,4718,4718,4718,4718,4719,4719,4719, & - 4719,4719,4719,4719,4719,4719,4719,4720,4720,4720,4720,4720, & - 4720,4720,4721,4721,4721,4721,4721,4721,4721,4721,4721,4721, & - 4721,4721,4721,4721,4721,4721,4721,4721,4721,4721,4721,4721, & - 4721,4721,4721,4721,4721,4721,4721,4721,4722,4722,4722,4722, & - 4722,4722,4722,4722,4722,4722,4723,4723,4723,4723,4723,4723, & - 4723,4723,4724,4724,4724,4724,4724,4724,4724,4724,4724,4724, & - 4725,4725,4725,4725,4725,4725,4725,4726,4726,4726,4726,4726, & - 4726,4726,4726,4726,4726,4726,4726,4727,4727,4727,4727,4727, & - 4727,4727,4728,4728,4728,4728,4728,4728,4728,4728,4728,4728, & - 4728,4728,4728,4728,4728,4728,4728,4729,4729,4729,4729,4729, & - 4729,4729,4729,4729,4729,4729,4729,4729,4729,4729,4729,4729, & - 4729,4729,4729,4729,4729,4729,4729,4729,4729,4730,4730,4730 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_76 = (/ & - 4730,4730,4730,4730,4730,4731,4731,4731,4731,4731,4731,4731, & - 4731,4731,4732,4732,4732,4732,4732,4732,4733,4733,4733,4733, & - 4733,4733,4733,4733,4734,4734,4734,4734,4734,4734,4734,4734, & - 4734,4734,4735,4735,4735,4735,4735,4735,4736,4736,4736,4736, & - 4736,4736,4736,4736,4736,4736,4736,4737,4737,4737,4737,4737, & - 4737,4737,4737,4737,4737,4737,4737,4737,4738,4738,4738,4738, & - 4738,4738,4738,4738,4738,4738,4738,4739,4739,4739,4739,4739, & - 4739,4739,4739,4739,4739,4739,4739,4740,4740,4740,4740,4740, & - 4740,4740,4740,4740,4740,4740,4740,4740,4740,4740,4741,4741, & - 4741,4741,4741,4741,4741,4741,4741,4741,4741,4741,4742,4742, & - 4742,4742,4742,4742,4742,4742,4742,4742,4742,4742,4743,4743, & - 4743,4743,4743,4743,4743,4743,4743,4743,4743,4744,4744,4744, & - 4744,4744,4744,4744,4744,4744,4745,4745,4745,4745,4745,4745, & - 4745,4745,4745,4745,4745,4745,4745,4746,4746,4746,4746,4746, & - 4746,4746,4746,4746,4747,4747,4747,4747,4747,4747,4747,4747, & - 4747,4747,4747,4747,4747,4747,4747,4747,4747,4747,4748,4748, & - 4748,4748,4748,4748,4748,4748,4748,4748,4748,4748,4748,4748, & - 4748,4748,4749,4749,4749,4749,4749,4749,4749,4749,4749,4749, & - 4749,4749,4749,4749,4749,4750,4750,4750,4750,4750,4750,4750, & - 4750,4750,4750,4751,4751,4751,4751,4751,4751,4751,4751,4751, & - 4751,4751,4752,4752,4752,4752,4752,4752,4752,4752,4752,4752, & - 4752,4752,4752,4752,4753,4753,4753,4753,4753,4753,4753,4753, & - 4753,4753,4753,4753,4754,4754,4754,4754,4754,4754,4754,4754, & - 4754,4755,4755,4755,4755,4755,4755,4755,4755,4755,4755,4755, & - 4755,4755,4755,4756,4756,4756,4756,4756,4756,4756,4756,4756, & - 4757,4757,4757,4757,4757,4757,4757,4757,4757,4757,4758,4758, & - 4758,4758,4758,4759,4759,4759,4759,4759,4759,4759,4759,4759, & - 4759,4759,4759,4759,4759,4759,4760,4760,4760,4760,4760,4760, & - 4760,4760,4760,4760,4760,4760,4760,4760,4760,4760,4760,4760, & - 4760,4760,4760,4761,4761,4761,4761,4761,4761,4761,4761,4761 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_77 = (/ & - 4762,4762,4762,4762,4762,4762,4762,4762,4762,4763,4763,4763, & - 4763,4763,4763,4763,4763,4763,4763,4763,4763,4763,4764,4764, & - 4764,4764,4764,4764,4764,4764,4764,4764,4764,4764,4764,4764, & - 4764,4765,4765,4765,4765,4765,4765,4765,4765,4766,4766,4766, & - 4766,4766,4766,4766,4766,4766,4767,4767,4767,4767,4767,4767, & - 4767,4767,4767,4767,4767,4768,4768,4768,4768,4768,4768,4768, & - 4768,4768,4768,4768,4768,4768,4768,4768,4768,4768,4768,4768, & - 4768,4768,4768,4769,4769,4769,4769,4769,4769,4769,4769,4769, & - 4769,4769,4769,4769,4769,4770,4770,4770,4770,4770,4770,4770, & - 4770,4770,4770,4771,4771,4771,4771,4771,4771,4771,4771,4771, & - 4771,4772,4772,4772,4772,4772,4772,4772,4772,4772,4772,4772, & - 4773,4773,4773,4773,4773,4773,4773,4773,4773,4773,4773,4773, & - 4774,4774,4774,4774,4774,4774,4774,4774,4774,4775,4775,4775, & - 4775,4775,4775,4775,4775,4775,4775,4775,4775,4775,4775,4775, & - 4776,4776,4776,4776,4776,4776,4776,4776,4777,4777,4777,4777, & - 4777,4777,4777,4777,4778,4778,4778,4778,4778,4778,4778,4778, & - 4779,4779,4779,4779,4779,4779,4779,4779,4779,4780,4780,4780, & - 4780,4780,4780,4780,4780,4781,4781,4781,4781,4781,4781,4781, & - 4781,4782,4782,4782,4782,4782,4782,4782,4782,4782,4783,4783, & - 4783,4783,4783,4783,4784,4784,4784,4784,4784,4784,4784,4784, & - 4785,4785,4785,4785,4785,4785,4785,4785,4786,4786,4786,4786, & - 4786,4787,4787,4787,4787,4787,4787,4787,4787,4787,4787,4788, & - 4788,4788,4788,4788,4788,4788,4788,4788,4788,4788,4789,4789, & - 4789,4789,4789,4789,4789,4789,4789,4789,4789,4790,4790,4790, & - 4790,4790,4790,4790,4790,4790,4790,4790,4791,4791,4791,4791, & - 4791,4791,4791,4791,4791,4791,4791,4792,4792,4792,4792,4792, & - 4792,4792,4792,4792,4792,4792,4792,4792,4792,4792,4792,4793, & - 4793,4793,4793,4793,4793,4793,4793,4793,4793,4794,4794,4794, & - 4794,4794,4795,4795,4795,4795,4795,4795,4795,4795,4795,4796, & - 4796,4796,4796,4796,4796,4796,4796,4796,4796,4796,4796,4796 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_78 = (/ & - 4796,4796,4796,4796,4796,4796,4796,4796,4796,4796,4796,4796, & - 4796,4796,4796,4796,4796,4796,4796,4796,4796,4796,4796,4796, & - 4796,4796,4796,4796,4796,4796,4796,4796,4796,4796,4796,4796, & - 4796,4796,4796,4796,4796,4796,4796,4796,4796,4796,4796,4796, & - 4796,4796,4796,4796,4796,4796,4796,4796,4796,4796,4796,4796, & - 4796,4796,4796,4796,4796,4796,4796,4796,4796,4797,4797,4797, & - 4797,4797,4797,4797,4797,4797,4797,4797,4798,4798,4798,4798, & - 4798,4798,4798,4798,4798,4798,4798,4798,4798,4799,4799,4799, & - 4799,4799,4799,4799,4799,4799,4799,4799,4800,4800,4800,4800, & - 4800,4800,4800,4800,4801,4801,4801,4801,4801,4801,4801,4801, & - 4801,4801,4801,4801,4801,4801,4801,4801,4801,4801,4801,4801, & - 4801,4801,4801,4801,4801,4801,4801,4801,4801,4801,4801,4801, & - 4801,4802,4802,4802,4802,4802,4802,4802,4802,4803,4803,4803, & - 4803,4803,4803,4803,4804,4804,4804,4804,4804,4804,4804,4804, & - 4804,4804,4805,4805,4805,4805,4805,4805,4806,4806,4806,4806, & - 4806,4806,4806,4806,4806,4806,4806,4806,4806,4807,4807,4807, & - 4807,4807,4807,4807,4807,4807,4807,4808,4808,4808,4808,4808, & - 4808,4808,4808,4808,4808,4809,4809,4809,4809,4809,4809,4809, & - 4809,4809,4809,4810,4810,4810,4810,4810,4810,4810,4810,4810, & - 4810,4810,4811,4811,4811,4811,4811,4811,4811,4811,4811,4811, & - 4812,4812,4812,4812,4812,4812,4812,4812,4812,4812,4812,4812, & - 4812,4812,4813,4813,4813,4813,4813,4813,4813,4813,4813,4813, & - 4813,4814,4814,4814,4814,4814,4814,4814,4814,4815,4815,4815, & - 4815,4815,4815,4815,4815,4815,4815,4815,4815,4815,4815,4816, & - 4816,4816,4816,4816,4816,4816,4816,4816,4817,4817,4817,4817, & - 4817,4817,4817,4817,4817,4817,4818,4818,4818,4818,4818,4818, & - 4818,4818,4818,4819,4819,4819,4819,4819,4819,4819,4819,4820, & - 4820,4820,4820,4820,4820,4820,4820,4820,4820,4821,4821,4821, & - 4821,4821,4821,4821,4822,4822,4822,4822,4822,4822,4822,4822, & - 4822,4822,4822,4822,4822,4822,4823,4823,4823,4823,4823,4823 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_79 = (/ & - 4823,4823,4823,4823,4823,4823,4823,4823,4823,4823,4823,4823, & - 4823,4823,4823,4824,4824,4824,4824,4824,4824,4824,4824,4825, & - 4825,4825,4825,4825,4825,4825,4825,4826,4826,4826,4826,4826, & - 4826,4826,4826,4826,4826,4826,4827,4827,4827,4827,4827,4827, & - 4827,4827,4827,4827,4827,4828,4828,4828,4828,4828,4828,4828, & - 4828,4829,4829,4829,4829,4829,4829,4829,4829,4829,4829,4830, & - 4830,4830,4830,4830,4830,4830,4830,4830,4830,4830,4830,4831, & - 4831,4831,4831,4831,4831,4831,4831,4831,4831,4831,4831,4831, & - 4831,4831,4831,4831,4831,4832,4832,4832,4832,4832,4832,4832, & - 4832,4832,4833,4833,4833,4833,4833,4833,4833,4833,4833,4833, & - 4834,4834,4834,4834,4834,4834,4834,4834,4834,4834,4834,4834, & - 4834,4834,4834,4835,4835,4835,4835,4835,4835,4835,4836,4836, & - 4836,4836,4836,4836,4836,4836,4836,4836,4837,4837,4837,4837, & - 4837,4837,4837,4837,4837,4837,4838,4838,4838,4838,4838,4838, & - 4838,4838,4838,4838,4839,4839,4839,4839,4839,4839,4839,4839, & - 4839,4839,4839,4839,4839,4839,4839,4839,4839,4840,4840,4840, & - 4840,4841,4841,4841,4841,4841,4841,4841,4841,4841,4841,4841, & - 4841,4841,4841,4841,4841,4841,4842,4842,4842,4842,4842,4842, & - 4842,4842,4842,4842,4842,4842,4842,4842,4842,4842,4842,4842, & - 4842,4842,4842,4842,4842,4842,4842,4843,4843,4843,4843,4843, & - 4843,4843,4843,4843,4843,4844,4844,4844,4844,4844,4844,4844, & - 4844,4844,4844,4844,4844,4844,4845,4845,4845,4845,4845,4845, & - 4845,4845,4845,4845,4845,4845,4845,4845,4846,4846,4846,4846, & - 4846,4846,4846,4846,4846,4846,4846,4846,4847,4847,4847,4847, & - 4847,4847,4847,4847,4847,4847,4847,4847,4847,4847,4847,4847, & - 4847,4848,4848,4848,4848,4848,4848,4848,4848,4848,4848,4848, & - 4849,4849,4849,4849,4849,4849,4849,4849,4849,4849,4849,4849, & - 4849,4849,4849,4849,4850,4850,4850,4850,4850,4850,4850,4850, & - 4850,4850,4850,4850,4850,4850,4850,4850,4850,4850,4850,4850, & - 4850,4850,4851,4851,4851,4851,4851,4851,4851,4851,4851,4851 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_80 = (/ & - 4851,4851,4851,4851,4851,4851,4851,4851,4852,4852,4852,4852, & - 4852,4852,4852,4852,4852,4852,4852,4852,4852,4853,4853,4853, & - 4853,4853,4853,4853,4853,4853,4853,4853,4853,4853,4853,4853, & - 4853,4854,4854,4854,4854,4854,4854,4854,4854,4854,4854,4854, & - 4854,4854,4854,4855,4855,4855,4855,4855,4855,4855,4855,4855, & - 4855,4855,4855,4855,4855,4856,4856,4856,4856,4856,4856,4856, & - 4856,4856,4856,4856,4857,4857,4857,4857,4857,4857,4857,4857, & - 4857,4857,4857,4857,4857,4858,4858,4858,4858,4858,4858,4858, & - 4858,4858,4858,4859,4859,4859,4859,4859,4859,4859,4859,4859, & - 4859,4859,4860,4860,4860,4860,4860,4860,4860,4860,4860,4860, & - 4860,4861,4861,4861,4861,4861,4861,4861,4861,4861,4861,4861, & - 4862,4862,4862,4862,4862,4862,4862,4862,4862,4862,4862,4862, & - 4863,4863,4863,4863,4863,4863,4863,4863,4863,4863,4863,4863, & - 4863,4863,4864,4864,4864,4864,4864,4864,4864,4864,4864,4864, & - 4864,4864,4864,4864,4864,4864,4864,4865,4865,4865,4865,4865, & - 4865,4865,4865,4865,4865,4865,4865,4865,4865,4865,4865,4865, & - 4865,4865,4865,4866,4866,4866,4866,4866,4866,4866,4866,4866, & - 4866,4866,4867,4867,4867,4867,4867,4867,4867,4867,4867,4867, & - 4867,4867,4867,4867,4868,4868,4868,4868,4868,4868,4868,4868, & - 4868,4868,4869,4869,4869,4869,4869,4869,4869,4869,4869,4869, & - 4870,4870,4870,4870,4870,4870,4870,4870,4870,4870,4870,4870, & - 4870,4870,4870,4871,4871,4871,4871,4871,4871,4871,4871,4871, & - 4871,4871,4871,4871,4871,4871,4871,4871,4871,4872,4872,4872, & - 4872,4872,4872,4872,4872,4872,4872,4872,4872,4872,4872,4873, & - 4873,4873,4873,4873,4873,4873,4873,4873,4873,4873,4873,4873, & - 4873,4874,4874,4874,4874,4874,4874,4874,4874,4874,4874,4874, & - 4874,4874,4874,4874,4874,4875,4875,4875,4875,4875,4875,4875, & - 4875,4875,4875,4875,4875,4875,4875,4876,4876,4876,4876,4876, & - 4876,4876,4877,4877,4877,4877,4877,4877,4877,4878,4878,4878, & - 4878,4878,4878,4878,4878,4879,4879,4879,4879,4879,4879,4879 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_81 = (/ & - 4879,4880,4880,4880,4880,4880,4880,4880,4881,4881,4881,4881, & - 4881,4881,4881,4881,4882,4882,4882,4882,4882,4882,4882,4882, & - 4882,4882,4882,4882,4882,4883,4883,4883,4883,4883,4883,4883, & - 4883,4883,4883,4883,4884,4884,4884,4884,4884,4884,4884,4884, & - 4884,4885,4885,4885,4885,4885,4885,4885,4885,4885,4885,4886, & - 4886,4886,4886,4886,4886,4886,4886,4887,4887,4887,4887,4887, & - 4887,4887,4887,4887,4887,4887,4887,4888,4888,4888,4888,4888, & - 4888,4888,4888,4888,4888,4889,4889,4889,4889,4889,4889,4889, & - 4889,4889,4889,4890,4890,4890,4890,4890,4890,4890,4890,4890, & - 4890,4890,4890,4891,4891,4891,4891,4891,4891,4891,4891,4891, & - 4892,4892,4892,4892,4892,4892,4892,4892,4892,4892,4893,4893, & - 4893,4893,4893,4893,4893,4893,4893,4893,4893,4893,4894,4894, & - 4894,4894,4894,4894,4894,4894,4895,4895,4895,4895,4895,4895, & - 4895,4895,4895,4895,4895,4896,4896,4896,4896,4896,4896,4896, & - 4896,4896,4896,4896,4897,4897,4897,4897,4897,4897,4897,4897, & - 4897,4897,4897,4897,4898,4898,4898,4898,4898,4898,4898,4898, & - 4898,4898,4898,4898,4898,4899,4899,4899,4899,4899,4899,4899, & - 4899,4899,4899,4899,4900,4900,4900,4900,4900,4900,4900,4900, & - 4900,4900,4901,4901,4901,4901,4901,4901,4901,4901,4901,4901, & - 4901,4901,4901,4902,4902,4902,4902,4902,4902,4902,4902,4902, & - 4902,4902,4902,4902,4902,4902,4902,4902,4902,4902,4902,4903, & - 4903,4903,4903,4903,4903,4903,4903,4903,4903,4904,4904,4904, & - 4904,4904,4904,4904,4904,4904,4904,4904,4904,4904,4904,4904, & - 4904,4904,4904,4904,4904,4904,4904,4904,4904,4904,4904,4904, & - 4904,4904,4904,4904,4904,4904,4905,4905,4905,4905,4905,4905, & - 4905,4905,4905,4905,4905,4905,4906,4906,4906,4906,4906,4906, & - 4906,4906,4907,4907,4907,4907,4907,4908,4908,4908,4908,4908, & - 4908,4908,4908,4908,4908,4909,4909,4909,4909,4909,4909,4909, & - 4909,4909,4909,4909,4909,4909,4909,4909,4909,4909,4909,4909, & - 4909,4909,4909,4909,4909,4909,4909,4909,4909,4909,4909,4909 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_82 = (/ & - 4909,4909,4909,4910,4910,4910,4910,4910,4910,4910,4910,4910, & - 4910,4910,4910,4910,4910,4910,4910,4910,4910,4910,4910,4910, & - 4911,4911,4911,4911,4911,4911,4911,4911,4911,4911,4911,4912, & - 4912,4912,4912,4912,4912,4912,4912,4912,4912,4913,4913,4913, & - 4913,4913,4913,4913,4913,4913,4913,4913,4913,4913,4913,4913, & - 4913,4913,4914,4914,4914,4914,4914,4914,4914,4914,4914,4914, & - 4914,4914,4915,4915,4915,4915,4915,4915,4915,4915,4915,4915, & - 4915,4915,4915,4916,4916,4916,4916,4916,4916,4916,4916,4916, & - 4916,4916,4916,4916,4916,4916,4916,4916,4916,4916,4916,4916, & - 4917,4917,4917,4917,4917,4917,4917,4917,4917,4917,4917,4917, & - 4917,4917,4917,4918,4918,4918,4918,4918,4918,4918,4918,4918, & - 4918,4918,4918,4918,4918,4918,4918,4918,4918,4918,4918,4918, & - 4918,4918,4918,4918,4918,4918,4918,4918,4918,4918,4918,4918, & - 4918,4918,4919,4919,4919,4919,4919,4919,4919,4919,4919,4919, & - 4920,4920,4920,4920,4920,4920,4920,4920,4920,4920,4920,4920, & - 4920,4921,4921,4921,4921,4921,4921,4921,4921,4921,4921,4921, & - 4921,4921,4921,4921,4921,4922,4922,4922,4922,4922,4922,4922, & - 4922,4923,4923,4923,4923,4923,4923,4923,4923,4923,4923,4924, & - 4924,4924,4924,4924,4924,4924,4924,4924,4924,4924,4924,4924, & - 4924,4924,4924,4924,4924,4924,4924,4924,4925,4925,4925,4925, & - 4925,4925,4925,4925,4926,4926,4926,4926,4926,4926,4926,4926, & - 4926,4926,4926,4927,4927,4927,4927,4927,4927,4927,4927,4927, & - 4927,4927,4928,4928,4928,4928,4928,4928,4928,4929,4929,4929, & - 4929,4929,4929,4929,4929,4929,4929,4929,4929,4929,4929,4929, & - 4929,4929,4929,4929,4929,4929,4929,4930,4930,4930,4930,4930, & - 4930,4930,4930,4930,4930,4930,4930,4930,4930,4931,4931,4931, & - 4931,4931,4931,4931,4931,4931,4931,4931,4931,4931,4931,4931, & - 4931,4931,4931,4931,4931,4931,4931,4931,4931,4931,4931,4931, & - 4931,4931,4931,4931,4931,4931,4931,4931,4932,4932,4932,4932, & - 4932,4932,4932,4933,4933,4933,4933,4933,4933,4933,4933,4933 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_83 = (/ & - 4933,4934,4934,4934,4934,4934,4934,4934,4934,4934,4935,4935, & - 4935,4935,4935,4935,4935,4935,4935,4935,4935,4936,4936,4936, & - 4936,4936,4936,4936,4936,4936,4936,4936,4936,4936,4936,4937, & - 4937,4937,4937,4937,4937,4937,4937,4938,4938,4938,4938,4938, & - 4938,4938,4938,4938,4938,4938,4938,4938,4938,4938,4938,4938, & - 4938,4938,4938,4938,4938,4938,4938,4938,4938,4938,4938,4938, & - 4938,4938,4938,4938,4938,4938,4938,4938,4938,4938,4938,4938, & - 4938,4938,4938,4938,4938,4938,4938,4938,4938,4938,4938,4938, & - 4938,4938,4938,4938,4938,4938,4938,4938,4938,4938,4938,4938, & - 4938,4938,4938,4938,4938,4938,4938,4938,4938,4938,4938,4938, & - 4938,4938,4938,4938,4938,4938,4938,4938,4938,4938,4938,4938, & - 4938,4939,4939,4939,4939,4939,4939,4939,4939,4939,4939,4939, & - 4939,4939,4939,4939,4939,4939,4939,4939,4939,4939,4939,4939, & - 4940,4940,4940,4940,4940,4940,4940,4940,4940,4940,4940,4940, & - 4940,4940,4940,4940,4940,4940,4940,4940,4940,4940,4941,4941, & - 4941,4941,4941,4941,4941,4941,4941,4941,4941,4941,4941,4942, & - 4942,4942,4942,4942,4942,4942,4942,4942,4942,4942,4942,4942, & - 4942,4942,4942,4942,4943,4943,4943,4943,4943,4943,4943,4943, & - 4943,4943,4943,4943,4943,4943,4943,4943,4943,4944,4944,4944, & - 4944,4944,4944,4944,4944,4944,4944,4944,4944,4944,4944,4944, & - 4944,4944,4944,4944,4944,4944,4944,4944,4944,4944,4945,4945, & - 4945,4945,4945,4946,4946,4946,4946,4946,4946,4946,4946,4946, & - 4947,4947,4947,4947,4947,4947,4947,4947,4947,4947,4947,4947, & - 4947,4947,4947,4947,4947,4947,4947,4947,4947,4947,4947,4947, & - 4947,4947,4947,4947,4947,4948,4948,4948,4948,4948,4948,4948, & - 4948,4948,4948,4949,4949,4949,4949,4949,4949,4949,4949,4949, & - 4949,4949,4949,4949,4949,4949,4949,4949,4949,4949,4949,4950, & - 4950,4950,4950,4950,4950,4950,4950,4950,4951,4951,4951,4951, & - 4951,4951,4951,4951,4951,4951,4951,4951,4951,4951,4951,4952, & - 4952,4952,4952,4952,4952,4952,4952,4952,4952,4952,4952,4952 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_84 = (/ & - 4953,4953,4953,4953,4953,4953,4953,4953,4953,4953,4953,4953, & - 4953,4953,4953,4954,4954,4954,4954,4954,4954,4954,4954,4954, & - 4954,4954,4954,4954,4954,4954,4955,4955,4955,4955,4955,4955, & - 4955,4955,4955,4956,4956,4956,4956,4956,4956,4956,4956,4956, & - 4956,4956,4956,4956,4957,4957,4957,4957,4957,4957,4957,4957, & - 4957,4958,4958,4958,4958,4958,4958,4958,4958,4958,4958,4958, & - 4958,4958,4958,4958,4958,4958,4958,4958,4958,4958,4958,4958, & - 4958,4958,4958,4958,4958,4958,4958,4958,4958,4959,4959,4959, & - 4959,4959,4959,4959,4959,4959,4959,4959,4959,4959,4959,4959, & - 4959,4959,4960,4960,4960,4960,4960,4960,4960,4960,4960,4960, & - 4960,4961,4961,4961,4961,4961,4961,4961,4961,4961,4961,4961, & - 4961,4961,4961,4961,4961,4962,4962,4962,4962,4962,4962,4962, & - 4962,4962,4962,4962,4962,4962,4963,4963,4963,4963,4963,4963, & - 4963,4963,4963,4963,4963,4963,4963,4964,4964,4964,4964,4964, & - 4964,4964,4964,4964,4964,4964,4964,4964,4964,4964,4964,4964, & - 4964,4964,4964,4964,4964,4965,4965,4965,4965,4965,4965,4965, & - 4965,4965,4965,4965,4965,4965,4965,4965,4965,4966,4966,4966, & - 4966,4966,4966,4966,4966,4966,4966,4966,4966,4966,4966,4966, & - 4966,4966,4966,4966,4967,4967,4967,4967,4967,4967,4967,4967, & - 4967,4967,4967,4968,4968,4968,4968,4968,4968,4968,4968,4968, & - 4969,4969,4969,4969,4969,4969,4969,4969,4969,4969,4969,4969, & - 4969,4969,4969,4970,4970,4970,4970,4970,4970,4970,4970,4971, & - 4971,4971,4971,4971,4971,4971,4972,4972,4972,4972,4972,4972, & - 4972,4973,4973,4973,4973,4973,4973,4973,4973,4973,4973,4973, & - 4973,4973,4973,4973,4973,4973,4973,4973,4973,4973,4973,4973, & - 4973,4973,4973,4973,4973,4973,4973,4973,4973,4973,4974,4974, & - 4974,4974,4974,4974,4974,4974,4975,4975,4975,4975,4975,4975, & - 4975,4975,4975,4975,4975,4975,4975,4976,4976,4976,4976,4976, & - 4977,4977,4977,4977,4977,4977,4977,4977,4977,4977,4977,4977, & - 4978,4978,4978,4978,4978,4978,4978,4978,4978,4978,4978,4978 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_85 = (/ & - 4978,4978,4978,4978,4978,4979,4979,4979,4979,4979,4979,4979, & - 4979,4979,4979,4979,4979,4980,4980,4980,4980,4980,4980,4980, & - 4980,4980,4980,4980,4980,4980,4981,4981,4981,4981,4981,4981, & - 4981,4981,4981,4981,4981,4981,4981,4981,4981,4981,4981,4981, & - 4981,4981,4982,4982,4982,4982,4982,4982,4982,4982,4982,4982, & - 4983,4983,4983,4983,4983,4983,4983,4983,4983,4983,4983,4983, & - 4983,4983,4983,4983,4983,4983,4983,4983,4983,4983,4983,4983, & - 4983,4983,4983,4983,4983,4983,4983,4983,4983,4983,4983,4983, & - 4983,4983,4983,4983,4983,4983,4984,4984,4984,4984,4984,4984, & - 4984,4984,4984,4984,4984,4984,4985,4985,4985,4985,4985,4985, & - 4985,4985,4985,4985,4985,4985,4985,4985,4985,4985,4985,4986, & - 4986,4986,4986,4986,4986,4986,4986,4986,4986,4986,4986,4986, & - 4986,4986,4986,4986,4986,4986,4986,4986,4986,4986,4986,4986, & - 4986,4986,4986,4987,4987,4987,4987,4987,4987,4987,4987,4987, & - 4987,4988,4988,4988,4988,4989,4989,4989,4989,4989,4989,4989, & - 4989,4989,4989,4989,4989,4989,4989,4989,4989,4990,4990,4990, & - 4990,4990,4990,4990,4990,4990,4990,4990,4991,4991,4991,4991, & - 4991,4991,4991,4991,4991,4991,4991,4991,4991,4991,4991,4991, & - 4991,4991,4991,4991,4991,4991,4991,4991,4991,4991,4992,4992, & - 4992,4992,4992,4992,4992,4992,4992,4992,4992,4993,4993,4993, & - 4993,4993,4993,4993,4993,4993,4994,4994,4994,4994,4994,4994, & - 4994,4994,4994,4994,4994,4995,4995,4995,4995,4995,4995,4995, & - 4995,4995,4995,4995,4995,4995,4995,4995,4995,4995,4995,4995, & - 4995,4995,4995,4995,4995,4995,4995,4996,4996,4996,4996,4996, & - 4996,4996,4996,4996,4996,4996,4996,4996,4996,4996,4996,4996, & - 4997,4997,4997,4997,4997,4997,4997,4997,4997,4997,4997,4997, & - 4998,4998,4998,4998,4998,4998,4998,4998,4998,4998,4998,4999, & - 4999,4999,4999,4999,4999,4999,4999,4999,4999,4999,5000,5000, & - 5000,5000,5000,5000,5000,5000,5000,5000,5000,5000,5000,5000, & - 5000,5000,5000,5000,5000,5000,5000,5000,5000,5000,5000,5000 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_86 = (/ & - 5000,5000,5000,5000,5000,5000,5000,5000,5000,5000,5000,5000, & - 5000,5000,5000,5000,5000,5000,5000,5000,5001,5001,5001,5001, & - 5001,5001,5001,5001,5001,5001,5001,5001,5001,5001,5001,5001, & - 5001,5001,5001,5001,5001,5001,5001,5001,5001,5001,5001,5001, & - 5001,5001,5001,5001,5002,5002,5002,5002,5002,5003,5003,5003, & - 5003,5003,5003,5003,5003,5003,5003,5003,5003,5003,5004,5004, & - 5004,5004,5004,5004,5004,5004,5004,5004,5004,5004,5004,5004, & - 5004,5004,5004,5004,5004,5004,5004,5004,5004,5004,5004,5004, & - 5004,5005,5005,5005,5005,5005,5005,5005,5005,5005,5005,5005, & - 5005,5005,5006,5006,5006,5006,5006,5006,5006,5006,5006,5006, & - 5006,5006,5006,5006,5006,5006,5006,5006,5006,5006,5006,5006, & - 5006,5006,5006,5006,5006,5006,5007,5007,5007,5007,5007,5007, & - 5007,5007,5007,5007,5007,5007,5007,5007,5007,5007,5007,5007, & - 5008,5008,5008,5008,5008,5008,5008,5008,5008,5008,5008,5008, & - 5008,5008,5008,5009,5009,5009,5009,5009,5009,5009,5009,5009, & - 5009,5009,5009,5009,5009,5009,5009,5009,5010,5010,5010,5010, & - 5010,5010,5010,5010,5010,5010,5010,5010,5010,5010,5010,5010, & - 5011,5011,5011,5011,5011,5011,5011,5011,5011,5011,5011,5011, & - 5011,5011,5011,5011,5011,5011,5011,5011,5011,5011,5011,5011, & - 5011,5011,5011,5012,5012,5012,5012,5012,5012,5012,5012,5012, & - 5012,5012,5012,5012,5012,5012,5012,5012,5012,5012,5012,5012, & - 5013,5013,5013,5013,5013,5013,5014,5014,5014,5014,5014,5014, & - 5014,5014,5014,5014,5014,5014,5014,5014,5014,5015,5015,5015, & - 5015,5015,5015,5015,5016,5016,5016,5016,5016,5016,5016,5016, & - 5016,5016,5016,5016,5016,5016,5016,5016,5016,5016,5017,5017, & - 5017,5017,5017,5017,5017,5017,5017,5017,5017,5017,5017,5017, & - 5017,5017,5018,5018,5018,5018,5018,5018,5018,5018,5018,5018, & - 5018,5018,5018,5018,5018,5018,5018,5019,5019,5019,5019,5019, & - 5019,5019,5019,5019,5019,5020,5020,5020,5020,5020,5020,5020, & - 5020,5020,5020,5020,5020,5020,5021,5021,5021,5021,5021,5021 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_87 = (/ & - 5021,5021,5021,5021,5021,5021,5022,5022,5022,5022,5022,5022, & - 5022,5022,5022,5023,5023,5023,5023,5023,5023,5023,5023,5023, & - 5023,5023,5023,5023,5023,5023,5023,5023,5023,5023,5023,5023, & - 5023,5023,5023,5023,5023,5023,5023,5023,5023,5023,5023,5023, & - 5023,5023,5023,5023,5023,5024,5024,5024,5024,5024,5024,5024, & - 5024,5024,5025,5025,5025,5025,5025,5025,5025,5025,5026,5026, & - 5026,5026,5026,5026,5026,5026,5026,5026,5026,5026,5026,5026, & - 5026,5026,5026,5026,5026,5026,5026,5026,5026,5026,5026,5026, & - 5026,5027,5027,5027,5027,5027,5027,5027,5027,5027,5027,5027, & - 5027,5027,5028,5028,5028,5028,5028,5028,5028,5028,5028,5029, & - 5029,5029,5029,5029,5029,5029,5029,5029,5029,5029,5029,5029, & - 5029,5029,5029,5029,5029,5029,5029,5030,5030,5030,5030,5030, & - 5030,5030,5030,5030,5031,5031,5031,5031,5031,5031,5031,5031, & - 5031,5031,5031,5031,5031,5031,5031,5031,5031,5031,5031,5031, & - 5031,5031,5031,5031,5031,5031,5031,5031,5031,5031,5031,5031, & - 5031,5031,5031,5031,5031,5031,5031,5031,5031,5031,5031,5031, & - 5032,5032,5032,5032,5032,5032,5032,5032,5032,5033,5033,5033, & - 5033,5033,5033,5033,5033,5034,5034,5034,5034,5034,5034,5034, & - 5034,5034,5034,5034,5034,5034,5034,5034,5034,5034,5035,5035, & - 5035,5035,5035,5035,5035,5035,5035,5036,5036,5036,5036,5036, & - 5036,5036,5036,5036,5036,5036,5036,5036,5036,5036,5036,5036, & - 5036,5037,5037,5037,5037,5037,5037,5037,5037,5037,5037,5037, & - 5037,5037,5037,5037,5037,5037,5037,5037,5037,5037,5037,5038, & - 5038,5038,5038,5038,5038,5038,5038,5038,5038,5038,5038,5038, & - 5038,5038,5038,5038,5038,5038,5038,5038,5038,5038,5038,5038, & - 5038,5038,5038,5038,5038,5038,5039,5039,5039,5039,5039,5039, & - 5039,5039,5039,5039,5039,5039,5039,5039,5039,5039,5039,5039, & - 5039,5039,5039,5040,5040,5040,5040,5040,5040,5040,5040,5040, & - 5040,5041,5041,5041,5041,5041,5041,5041,5041,5041,5041,5041, & - 5041,5042,5042,5042,5042,5042,5042,5042,5042,5042,5042,5042 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_88 = (/ & - 5042,5042,5042,5042,5043,5043,5043,5043,5043,5043,5043,5043, & - 5043,5043,5043,5043,5044,5044,5044,5044,5044,5044,5044,5044, & - 5044,5044,5044,5044,5044,5044,5044,5045,5045,5045,5045,5045, & - 5045,5045,5045,5046,5046,5046,5046,5046,5046,5046,5046,5046, & - 5046,5046,5046,5046,5046,5046,5046,5046,5046,5046,5046,5046, & - 5046,5046,5046,5046,5046,5046,5046,5046,5046,5046,5046,5046, & - 5046,5046,5046,5046,5046,5046,5046,5046,5046,5046,5046,5046, & - 5046,5046,5046,5046,5046,5046,5046,5046,5046,5046,5046,5046, & - 5046,5046,5046,5046,5046,5046,5046,5046,5046,5046,5046,5046, & - 5046,5046,5046,5046,5046,5046,5046,5046,5046,5046,5046,5046, & - 5046,5046,5046,5046,5046,5046,5046,5046,5046,5046,5046,5046, & - 5046,5047,5047,5047,5047,5047,5047,5047,5047,5047,5047,5047, & - 5047,5048,5048,5048,5048,5048,5048,5048,5048,5048,5049,5049, & - 5049,5049,5049,5049,5049,5049,5049,5049,5049,5049,5049,5050, & - 5050,5050,5050,5050,5050,5050,5050,5050,5050,5050,5051,5051, & - 5051,5051,5051,5052,5052,5052,5052,5052,5052,5052,5052,5052, & - 5052,5052,5052,5052,5052,5052,5052,5053,5053,5053,5053,5053, & - 5053,5053,5053,5053,5053,5053,5053,5053,5053,5053,5053,5053, & - 5053,5053,5053,5053,5054,5054,5054,5054,5054,5054,5054,5054, & - 5054,5054,5054,5054,5054,5054,5054,5054,5055,5055,5055,5055, & - 5055,5055,5055,5055,5055,5055,5055,5055,5055,5055,5055,5055, & - 5055,5055,5055,5055,5055,5055,5055,5055,5055,5055,5056,5056, & - 5056,5056,5056,5056,5056,5056,5057,5057,5057,5057,5057,5057, & - 5057,5057,5057,5057,5057,5057,5057,5057,5057,5057,5057,5057, & - 5057,5057,5057,5057,5057,5057,5058,5058,5058,5058,5058,5058, & - 5058,5058,5058,5058,5058,5058,5058,5058,5058,5058,5058,5058, & - 5058,5058,5058,5058,5059,5059,5059,5059,5059,5059,5059,5059, & - 5059,5059,5059,5059,5059,5059,5059,5059,5059,5059,5059,5059, & - 5059,5059,5059,5059,5059,5059,5059,5059,5059,5059,5059,5059, & - 5059,5059,5059,5059,5059,5059,5059,5060,5060,5060,5060,5060 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_89 = (/ & - 5060,5060,5060,5060,5060,5060,5060,5060,5060,5060,5060,5060, & - 5060,5060,5060,5061,5061,5061,5061,5061,5061,5061,5061,5062, & - 5062,5062,5062,5062,5062,5062,5062,5062,5062,5062,5062,5062, & - 5062,5062,5062,5062,5062,5062,5062,5062,5063,5063,5063,5063, & - 5063,5063,5063,5063,5063,5063,5063,5063,5063,5063,5064,5064, & - 5064,5064,5064,5064,5064,5064,5064,5064,5064,5064,5064,5064, & - 5064,5064,5065,5065,5065,5065,5065,5065,5065,5066,5066,5066, & - 5066,5066,5066,5066,5066,5066,5066,5066,5066,5066,5066,5067, & - 5067,5067,5067,5067,5067,5067,5067,5067,5067,5067,5067,5067, & - 5067,5067,5067,5067,5067,5067,5067,5068,5068,5068,5068,5068, & - 5068,5068,5068,5068,5068,5068,5068,5068,5068,5069,5069,5069, & - 5069,5069,5069,5069,5069,5069,5069,5069,5070,5070,5070,5070, & - 5070,5070,5070,5070,5070,5070,5070,5070,5070,5070,5070,5070, & - 5071,5071,5071,5071,5071,5071,5071,5071,5071,5071,5071,5071, & - 5071,5071,5071,5071,5071,5071,5071,5071,5071,5071,5071,5071, & - 5071,5071,5071,5071,5072,5072,5072,5072,5072,5072,5072,5072, & - 5072,5072,5072,5072,5072,5072,5072,5073,5073,5073,5073,5073, & - 5073,5073,5073,5073,5073,5073,5073,5073,5073,5073,5073,5073, & - 5073,5074,5074,5074,5074,5074,5074,5074,5074,5074,5075,5075, & - 5075,5075,5075,5075,5075,5075,5075,5075,5075,5076,5076,5076, & - 5076,5076,5076,5076,5076,5076,5077,5077,5077,5077,5077,5077, & - 5077,5077,5078,5078,5078,5078,5078,5078,5078,5078,5078,5078, & - 5078,5078,5078,5078,5079,5079,5079,5079,5079,5079,5079,5079, & - 5079,5079,5079,5079,5079,5079,5079,5079,5079,5079,5079,5079, & - 5079,5079,5079,5080,5080,5080,5080,5080,5080,5080,5080,5080, & - 5080,5080,5080,5080,5080,5080,5080,5080,5080,5080,5080,5080, & - 5080,5080,5080,5080,5080,5080,5080,5080,5080,5080,5080,5080, & - 5080,5080,5080,5080,5080,5080,5081,5081,5081,5081,5081,5081, & - 5081,5082,5082,5082,5082,5082,5082,5082,5082,5083,5083,5083, & - 5083,5083,5083,5083,5083,5083,5083,5083,5083,5083,5083,5083 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_90 = (/ & - 5083,5083,5083,5083,5084,5084,5084,5084,5084,5084,5084,5084, & - 5084,5084,5084,5084,5084,5084,5085,5085,5085,5085,5085,5085, & - 5085,5085,5085,5085,5085,5085,5085,5085,5085,5085,5085,5085, & - 5085,5085,5085,5085,5085,5085,5085,5085,5085,5085,5085,5085, & - 5085,5085,5086,5086,5086,5086,5086,5086,5086,5086,5086,5086, & - 5086,5086,5086,5086,5086,5086,5086,5086,5086,5086,5086,5086, & - 5086,5086,5086,5086,5086,5086,5086,5086,5086,5086,5086,5086, & - 5086,5086,5086,5086,5086,5086,5086,5087,5087,5087,5087,5087, & - 5087,5087,5087,5087,5087,5087,5087,5087,5087,5087,5087,5087, & - 5087,5087,5087,5087,5087,5087,5087,5087,5087,5087,5087,5088, & - 5088,5088,5088,5088,5088,5088,5088,5088,5088,5088,5089,5089, & - 5089,5089,5089,5089,5089,5089,5089,5089,5089,5089,5089,5089, & - 5089,5089,5089,5090,5090,5090,5090,5090,5090,5090,5090,5090, & - 5090,5090,5090,5091,5091,5091,5091,5091,5091,5091,5091,5091, & - 5091,5091,5091,5092,5092,5092,5092,5092,5092,5092,5092,5092, & - 5093,5093,5093,5093,5093,5093,5093,5093,5093,5093,5093,5093, & - 5093,5093,5094,5094,5094,5094,5094,5094,5094,5094,5094,5094, & - 5094,5094,5094,5094,5094,5094,5094,5094,5094,5094,5094,5094, & - 5094,5094,5094,5094,5094,5094,5094,5094,5094,5095,5095,5095, & - 5095,5095,5095,5095,5095,5095,5095,5095,5095,5095,5095,5095, & - 5095,5095,5095,5095,5095,5095,5095,5096,5096,5096,5096,5096, & - 5096,5096,5096,5096,5096,5096,5097,5097,5097,5097,5097,5097, & - 5097,5097,5097,5097,5097,5097,5097,5097,5097,5097,5097,5097, & - 5097,5097,5097,5098,5098,5098,5098,5098,5098,5098,5098,5098, & - 5098,5098,5098,5098,5098,5098,5098,5098,5098,5098,5098,5098, & - 5098,5098,5098,5098,5098,5098,5098,5098,5098,5098,5098,5098, & - 5098,5098,5098,5098,5099,5099,5099,5099,5099,5099,5099,5099, & - 5099,5099,5099,5099,5099,5099,5099,5099,5099,5100,5100,5100, & - 5100,5100,5100,5100,5100,5100,5100,5100,5100,5100,5100,5100, & - 5100,5100,5100,5100,5100,5100,5100,5100,5100,5100,5100,5100 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_91 = (/ & - 5100,5100,5100,5100,5100,5100,5100,5101,5101,5101,5101,5101, & - 5101,5101,5101,5101,5101,5101,5101,5101,5101,5101,5101,5101, & - 5101,5101,5101,5101,5101,5101,5101,5101,5101,5101,5101,5101, & - 5101,5102,5102,5102,5102,5102,5102,5102,5102,5102,5102,5102, & - 5102,5102,5102,5102,5102,5102,5102,5102,5102,5103,5103,5103, & - 5103,5103,5103,5103,5103,5103,5103,5103,5103,5103,5103,5104, & - 5104,5104,5104,5104,5104,5104,5104,5104,5104,5104,5104,5104, & - 5104,5104,5104,5104,5104,5104,5104,5104,5104,5104,5104,5104, & - 5104,5104,5105,5105,5105,5105,5105,5105,5105,5105,5105,5105, & - 5105,5105,5105,5105,5105,5105,5105,5105,5105,5105,5106,5106, & - 5106,5106,5106,5106,5106,5106,5106,5106,5106,5106,5106,5106, & - 5106,5106,5106,5106,5106,5106,5106,5106,5106,5106,5106,5106, & - 5106,5106,5106,5106,5106,5106,5106,5106,5106,5106,5106,5106, & - 5106,5106,5106,5106,5106,5106,5106,5106,5107,5107,5107,5107, & - 5107,5107,5107,5108,5108,5108,5108,5108,5108,5108,5108,5108, & - 5108,5108,5109,5109,5109,5109,5109,5109,5109,5109,5110,5110, & - 5110,5110,5110,5110,5110,5110,5110,5110,5110,5110,5110,5110, & - 5110,5110,5110,5110,5110,5110,5110,5110,5110,5110,5110,5110, & - 5110,5110,5110,5110,5110,5111,5111,5111,5111,5111,5111,5111, & - 5111,5111,5111,5111,5111,5111,5111,5111,5111,5111,5111,5111, & - 5111,5111,5112,5112,5112,5112,5112,5112,5112,5112,5112,5113, & - 5113,5113,5113,5113,5113,5113,5113,5113,5113,5113,5113,5113, & - 5113,5113,5113,5113,5113,5114,5114,5114,5114,5114,5114,5114, & - 5114,5114,5114,5114,5114,5115,5115,5115,5115,5115,5115,5115, & - 5115,5115,5115,5115,5115,5115,5115,5115,5115,5115,5115,5116, & - 5116,5116,5116,5116,5116,5116,5116,5116,5116,5116,5116,5116, & - 5116,5116,5116,5116,5117,5117,5117,5117,5117,5117,5117,5117, & - 5117,5117,5117,5117,5117,5117,5117,5117,5117,5117,5117,5117, & - 5117,5117,5117,5118,5118,5118,5118,5118,5118,5118,5118,5118, & - 5118,5119,5119,5119,5119,5119,5119,5119,5119,5119,5119,5120 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_92 = (/ & - 5120,5120,5120,5120,5120,5120,5120,5120,5120,5120,5120,5120, & - 5121,5121,5121,5121,5121,5121,5121,5121,5121,5121,5121,5121, & - 5121,5121,5121,5121,5121,5121,5121,5121,5121,5121,5121,5121, & - 5122,5122,5122,5122,5122,5122,5122,5122,5122,5122,5122,5122, & - 5122,5122,5122,5122,5123,5123,5123,5123,5123,5123,5123,5123, & - 5123,5123,5123,5123,5123,5123,5123,5123,5123,5123,5123,5123, & - 5123,5123,5123,5123,5123,5123,5123,5123,5123,5123,5123,5123, & - 5123,5123,5123,5123,5123,5124,5124,5124,5124,5124,5124,5124, & - 5124,5124,5124,5124,5124,5124,5124,5124,5124,5125,5125,5125, & - 5125,5125,5125,5125,5125,5125,5125,5125,5125,5125,5125,5125, & - 5125,5125,5125,5125,5125,5125,5125,5125,5125,5125,5125,5125, & - 5125,5125,5125,5125,5125,5125,5125,5125,5125,5125,5125,5125, & - 5125,5125,5125,5125,5125,5125,5125,5125,5125,5125,5125,5125, & - 5125,5125,5125,5125,5125,5125,5125,5125,5125,5125,5125,5125, & - 5125,5125,5125,5125,5125,5125,5125,5125,5125,5125,5125,5125, & - 5125,5126,5126,5126,5126,5126,5126,5126,5126,5126,5126,5126, & - 5126,5126,5126,5126,5126,5126,5126,5126,5126,5126,5126,5127, & - 5127,5127,5127,5127,5127,5127,5127,5127,5127,5127,5127,5127, & - 5128,5128,5128,5128,5128,5128,5128,5128,5128,5128,5128,5128, & - 5128,5128,5128,5128,5128,5128,5129,5129,5129,5129,5129,5129, & - 5129,5129,5129,5129,5129,5129,5129,5129,5129,5129,5129,5129, & - 5129,5129,5129,5129,5129,5129,5129,5129,5129,5129,5129,5129, & - 5129,5129,5129,5129,5129,5129,5130,5130,5130,5130,5130,5130, & - 5130,5130,5130,5130,5130,5130,5130,5130,5130,5130,5130,5130, & - 5130,5130,5130,5130,5130,5130,5130,5130,5131,5131,5131,5131, & - 5131,5131,5131,5131,5131,5131,5131,5131,5131,5131,5131,5131, & - 5131,5131,5131,5131,5131,5131,5131,5131,5132,5132,5132,5132, & - 5132,5132,5133,5133,5133,5133,5133,5133,5133,5133,5133,5133, & - 5133,5133,5133,5133,5133,5134,5134,5134,5134,5134,5134,5134, & - 5134,5134,5134,5134,5134,5134,5134,5134,5134,5134,5134,5134 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_93 = (/ & - 5135,5135,5135,5135,5135,5135,5135,5135,5135,5135,5135,5135, & - 5135,5135,5136,5136,5136,5136,5136,5136,5136,5136,5136,5136, & - 5136,5136,5136,5136,5136,5136,5136,5136,5136,5136,5136,5136, & - 5136,5136,5136,5136,5136,5136,5136,5137,5137,5137,5137,5137, & - 5137,5137,5137,5137,5137,5137,5137,5137,5137,5137,5137,5137, & - 5137,5137,5137,5137,5137,5137,5137,5137,5137,5137,5137,5137, & - 5137,5137,5137,5137,5137,5137,5137,5137,5137,5137,5137,5137, & - 5137,5137,5137,5137,5137,5137,5137,5137,5137,5138,5138,5138, & - 5138,5138,5138,5138,5139,5139,5139,5139,5139,5139,5139,5139, & - 5139,5139,5139,5139,5139,5139,5139,5139,5139,5139,5139,5139, & - 5139,5139,5139,5139,5139,5139,5139,5139,5139,5139,5139,5139, & - 5139,5139,5139,5139,5139,5139,5139,5139,5139,5139,5139,5139, & - 5139,5139,5139,5139,5139,5139,5139,5139,5139,5139,5139,5139, & - 5139,5139,5139,5139,5139,5139,5139,5139,5139,5139,5139,5139, & - 5139,5139,5139,5139,5139,5139,5139,5139,5139,5139,5139,5139, & - 5139,5139,5139,5139,5139,5139,5139,5139,5139,5139,5139,5139, & - 5139,5139,5139,5139,5139,5139,5139,5139,5139,5139,5139,5139, & - 5139,5139,5139,5139,5139,5139,5139,5139,5139,5139,5139,5139, & - 5139,5139,5139,5139,5139,5139,5139,5139,5139,5139,5139,5139, & - 5139,5139,5139,5139,5139,5139,5139,5139,5140,5140,5140,5140, & - 5140,5140,5140,5140,5140,5140,5140,5140,5140,5140,5140,5140, & - 5140,5140,5140,5140,5141,5141,5141,5141,5141,5141,5141,5141, & - 5141,5141,5141,5141,5141,5141,5141,5141,5141,5141,5141,5141, & - 5141,5141,5142,5142,5142,5142,5142,5142,5142,5142,5142,5142, & - 5142,5142,5142,5142,5142,5142,5142,5142,5142,5142,5142,5142, & - 5142,5142,5142,5142,5142,5142,5142,5142,5142,5142,5142,5142, & - 5142,5142,5142,5142,5142,5142,5142,5142,5142,5142,5142,5142, & - 5142,5142,5142,5142,5142,5142,5142,5142,5142,5142,5142,5142, & - 5142,5142,5142,5142,5142,5142,5142,5142,5142,5142,5142,5142, & - 5142,5142,5143,5143,5143,5143,5143,5143,5143,5143,5143,5143 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_94 = (/ & - 5143,5143,5143,5143,5143,5143,5143,5143,5143,5143,5143,5143, & - 5143,5143,5143,5143,5143,5143,5143,5143,5143,5143,5143,5143, & - 5143,5143,5143,5143,5143,5143,5143,5143,5143,5143,5143,5143, & - 5143,5143,5143,5143,5143,5143,5143,5143,5143,5143,5143,5143, & - 5143,5143,5143,5143,5143,5143,5143,5143,5143,5144,5144,5144, & - 5144,5144,5144,5144,5144,5144,5145,5145,5145,5145,5145,5145, & - 5145,5145,5145,5145,5145,5145,5145,5145,5145,5145,5145,5145, & - 5145,5145,5145,5145,5145,5145,5145,5145,5145,5145,5145,5145, & - 5145,5145,5145,5145,5145,5145,5145,5145,5145,5145,5145,5145, & - 5145,5145,5145,5145,5145,5145,5145,5145,5145,5145,5145,5146, & - 5146,5146,5146,5146,5146,5146,5147,5147,5147,5147,5147,5147, & - 5147,5147,5147,5147,5147,5147,5147,5147,5147,5147,5147,5148, & - 5148,5148,5148,5148,5148,5148,5148,5148,5148,5148,5148,5148, & - 5148,5148,5148,5148,5148,5148,5148,5149,5149,5149,5149,5149, & - 5149,5149,5149,5149,5149,5149,5149,5149,5149,5149,5149,5149, & - 5149,5149,5149,5149,5149,5149,5149,5149,5150,5150,5150,5150, & - 5150,5150,5150,5150,5150,5150,5150,5150,5150,5150,5150,5150, & - 5150,5150,5150,5151,5151,5151,5151,5151,5151,5151,5151,5151, & - 5151,5151,5151,5151,5151,5151,5151,5151,5151,5151,5151,5151, & - 5152,5152,5152,5152,5152,5152,5152,5152,5152,5152,5152,5152, & - 5152,5152,5152,5152,5152,5152,5152,5152,5152,5152,5152,5152, & - 5152,5152,5152,5152,5152,5152,5152,5152,5152,5152,5152,5152, & - 5152,5152,5152,5152,5152,5152,5152,5152,5152,5152,5152,5152, & - 5152,5153,5153,5153,5153,5153,5153,5153,5153,5153,5153,5154, & - 5154,5154,5154,5154,5154,5154,5154,5155,5155,5155,5155,5155, & - 5155,5155,5155,5155,5155,5155,5155,5155,5155,5155,5155,5155, & - 5155,5156,5156,5156,5156,5156,5156,5156,5156,5156,5156,5156, & - 5156,5156,5156,5156,5156,5156,5156,5156,5156,5156,5156,5156, & - 5157,5157,5157,5157,5157,5157,5157,5157,5157,5157,5157,5157, & - 5157,5157,5157,5157,5157,5157,5157,5157,5157,5158,5158,5158 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_95 = (/ & - 5158,5158,5158,5158,5158,5158,5158,5158,5158,5158,5158,5158, & - 5158,5158,5158,5158,5158,5158,5158,5158,5158,5158,5158,5158, & - 5158,5158,5158,5158,5158,5158,5158,5158,5158,5158,5158,5158, & - 5158,5158,5158,5158,5158,5158,5158,5158,5158,5158,5158,5158, & - 5158,5158,5158,5158,5159,5159,5159,5159,5159,5159,5159,5159, & - 5159,5159,5159,5159,5159,5160,5160,5160,5160,5160,5160,5160, & - 5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160, & - 5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160, & - 5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160, & - 5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160, & - 5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160, & - 5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160, & - 5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160, & - 5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160, & - 5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160, & - 5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160, & - 5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160, & - 5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160, & - 5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160, & - 5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160, & - 5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160, & - 5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160, & - 5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160, & - 5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160, & - 5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160, & - 5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160,5160, & - 5160,5160,5160,5160,5161,5161,5161,5161,5161,5161,5161,5161, & - 5161,5161,5161,5161,5161,5161,5161,5161,5161,5161,5161,5161, & - 5161,5161,5161,5161,5161,5161,5161,5161,5161,5161,5161,5161, & - 5161,5161,5162,5162,5162,5162,5162,5162,5162,5162,5162,5162 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_96 = (/ & - 5162,5162,5162,5162,5162,5162,5162,5162,5162,5162,5162,5162, & - 5162,5162,5163,5163,5163,5163,5163,5163,5163,5163,5163,5163, & - 5163,5163,5163,5163,5163,5164,5164,5164,5164,5164,5164,5164, & - 5164,5164,5164,5164,5164,5164,5164,5164,5164,5164,5164,5164, & - 5164,5164,5164,5164,5164,5164,5164,5164,5164,5164,5164,5165, & - 5165,5165,5165,5165,5165,5165,5165,5165,5165,5165,5165,5165, & - 5165,5165,5165,5165,5165,5165,5165,5165,5165,5165,5165,5165, & - 5165,5165,5165,5165,5165,5165,5165,5165,5165,5165,5165,5165, & - 5165,5165,5165,5165,5165,5165,5166,5166,5166,5166,5167,5167, & - 5167,5167,5167,5167,5167,5167,5167,5167,5167,5167,5167,5167, & - 5167,5167,5167,5167,5167,5168,5168,5168,5168,5168,5168,5168, & - 5168,5168,5168,5168,5169,5169,5169,5169,5169,5169,5169,5169, & - 5169,5169,5169,5169,5169,5169,5169,5169,5169,5169,5169,5169, & - 5169,5170,5170,5170,5170,5170,5170,5170,5170,5170,5170,5170, & - 5170,5170,5170,5170,5170,5170,5170,5170,5170,5170,5170,5170, & - 5170,5170,5170,5170,5170,5170,5170,5170,5170,5170,5170,5170, & - 5171,5171,5171,5171,5171,5171,5171,5171,5171,5171,5171,5171, & - 5171,5171,5171,5171,5171,5171,5171,5171,5171,5171,5171,5171, & - 5171,5171,5171,5171,5171,5171,5171,5171,5171,5171,5172,5172, & - 5172,5172,5172,5172,5172,5172,5172,5172,5172,5172,5172,5172, & - 5172,5172,5172,5172,5172,5172,5172,5172,5172,5172,5172,5172, & - 5172,5172,5172,5172,5172,5172,5172,5172,5173,5173,5173,5173, & - 5173,5173,5173,5173,5173,5173,5173,5173,5173,5174,5174,5174, & - 5174,5174,5174,5174,5174,5174,5175,5175,5175,5175,5175,5175, & - 5175,5175,5175,5175,5175,5176,5176,5176,5176,5176,5176,5176, & - 5176,5176,5176,5176,5176,5176,5176,5176,5176,5176,5176,5176, & - 5176,5176,5176,5176,5176,5176,5176,5176,5176,5176,5177,5177, & - 5177,5177,5177,5177,5177,5177,5177,5177,5177,5177,5177,5177, & - 5177,5177,5177,5177,5177,5177,5177,5177,5177,5177,5177,5177, & - 5177,5177,5178,5178,5178,5178,5178,5178,5178,5178,5178,5178 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_97 = (/ & - 5178,5178,5178,5178,5178,5178,5178,5178,5178,5178,5178,5178, & - 5178,5178,5178,5178,5178,5178,5178,5178,5178,5178,5178,5178, & - 5178,5178,5178,5178,5178,5178,5178,5178,5178,5178,5178,5178, & - 5178,5178,5178,5178,5178,5178,5178,5178,5179,5179,5179,5179, & - 5179,5179,5179,5179,5179,5179,5179,5179,5179,5179,5179,5179, & - 5179,5179,5179,5179,5179,5179,5179,5179,5179,5179,5179,5179, & - 5179,5179,5179,5179,5179,5179,5179,5179,5179,5179,5179,5179, & - 5179,5179,5179,5179,5180,5180,5180,5180,5180,5180,5180,5180, & - 5180,5180,5180,5180,5180,5180,5180,5180,5180,5180,5180,5180, & - 5180,5180,5180,5180,5180,5180,5180,5180,5180,5180,5180,5180, & - 5180,5180,5180,5180,5180,5180,5180,5180,5180,5181,5181,5181, & - 5181,5181,5181,5181,5182,5182,5182,5182,5182,5182,5182,5182, & - 5182,5182,5182,5182,5182,5182,5182,5182,5182,5182,5182,5182, & - 5182,5182,5182,5182,5182,5182,5182,5182,5182,5182,5182,5182, & - 5182,5182,5182,5182,5182,5182,5182,5182,5182,5182,5182,5182, & - 5182,5182,5182,5182,5182,5182,5182,5182,5182,5182,5182,5182, & - 5182,5182,5182,5182,5182,5182,5182,5182,5182,5182,5182,5182, & - 5182,5182,5182,5182,5182,5182,5182,5182,5182,5182,5182,5182, & - 5182,5182,5182,5182,5182,5182,5182,5182,5182,5183,5183,5183, & - 5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183, & - 5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183, & - 5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183, & - 5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183, & - 5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183, & - 5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183, & - 5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183, & - 5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183, & - 5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183, & - 5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183, & - 5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_98 = (/ & - 5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183, & - 5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183, & - 5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183, & - 5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183, & - 5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183, & - 5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183,5183, & - 5183,5183,5183,5183,5183,5183,5184,5184,5184,5184,5184,5184, & - 5184,5184,5184,5184,5184,5184,5184,5184,5184,5184,5184,5184, & - 5184,5184,5184,5184,5184,5184,5184,5184,5184,5184,5184,5184, & - 5184,5184,5184,5184,5184,5184,5184,5184,5184,5184,5184,5184, & - 5184,5184,5184,5184,5184,5184,5184,5184,5184,5184,5184,5184, & - 5184,5184,5184,5184,5184,5184,5185,5185,5185,5185,5185,5185, & - 5185,5185,5185,5185,5185,5185,5185,5185,5185,5185,5185,5185, & - 5185,5185,5186,5186,5186,5186,5186,5186,5186,5187,5187,5187, & - 5187,5187,5187,5187,5187,5187,5187,5188,5188,5188,5188,5188, & - 5188,5188,5188,5188,5188,5188,5188,5188,5188,5188,5188,5188, & - 5188,5188,5188,5188,5188,5188,5188,5188,5188,5188,5188,5188, & - 5188,5188,5188,5188,5188,5188,5188,5188,5188,5188,5188,5188, & - 5188,5188,5188,5188,5188,5188,5188,5188,5188,5188,5188,5188, & - 5188,5188,5188,5188,5188,5188,5188,5188,5188,5188,5188,5188, & - 5188,5188,5188,5188,5188,5188,5188,5188,5188,5188,5188,5188, & - 5188,5188,5188,5188,5188,5188,5188,5188,5188,5188,5188,5188, & - 5188,5188,5188,5188,5188,5188,5188,5188,5188,5188,5188,5188, & - 5188,5188,5188,5188,5188,5188,5188,5188,5188,5188,5188,5188, & - 5189,5189,5189,5189,5189,5189,5189,5189,5189,5189,5189,5189, & - 5189,5189,5189,5189,5189,5189,5189,5190,5190,5190,5190,5190, & - 5190,5190,5190,5190,5191,5191,5191,5191,5191,5191,5191,5191, & - 5191,5191,5191,5191,5191,5191,5191,5191,5191,5191,5191,5191, & - 5191,5191,5191,5191,5191,5191,5191,5191,5191,5191,5191,5191, & - 5191,5191,5191,5191,5191,5191,5191,5191,5191,5191,5191,5191 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_99 = (/ & - 5191,5191,5191,5191,5191,5191,5191,5191,5191,5191,5191,5191, & - 5191,5191,5191,5191,5191,5191,5191,5191,5191,5191,5191,5191, & - 5191,5191,5191,5191,5191,5191,5191,5191,5191,5191,5191,5191, & - 5191,5191,5191,5191,5191,5191,5191,5191,5191,5191,5191,5191, & - 5191,5191,5191,5191,5191,5191,5191,5191,5191,5191,5191,5191, & - 5191,5191,5191,5191,5191,5192,5192,5192,5192,5192,5192,5192, & - 5192,5192,5192,5192,5192,5192,5193,5193,5193,5193,5193,5193, & - 5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193, & - 5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193, & - 5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193, & - 5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193, & - 5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193, & - 5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193, & - 5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193, & - 5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193, & - 5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193, & - 5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193, & - 5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193, & - 5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193, & - 5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193, & - 5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193, & - 5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193, & - 5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193, & - 5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193, & - 5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193, & - 5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193, & - 5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193, & - 5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193, & - 5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193, & - 5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_100 = (/ & - 5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5193,5194, & - 5194,5194,5194,5194,5194,5194,5194,5194,5194,5194,5194,5194, & - 5194,5194,5194,5194,5194,5194,5194,5194,5194,5194,5194,5194, & - 5194,5194,5194,5194,5194,5194,5194,5194,5194,5194,5195,5195, & - 5195,5195,5195,5195,5195,5195,5195,5195,5195,5195,5195,5195, & - 5195,5195,5195,5195,5195,5195,5195,5195,5195,5195,5195,5195, & - 5195,5195,5195,5195,5195,5195,5195,5195,5195,5195,5195,5195, & - 5195,5195,5195,5195,5195,5195,5195,5195,5195,5195,5195,5195, & - 5195,5195,5195,5195,5195,5195,5195,5195,5195,5195,5195,5195, & - 5195,5196,5196,5196,5196,5196,5196,5196,5196,5196,5196,5196, & - 5196,5196,5196,5196,5196,5197,5197,5197,5197,5197,5197,5197, & - 5197,5197,5197,5197,5197,5197,5197,5197,5197,5197,5197,5197, & - 5197,5197,5197,5197,5197,5197,5197,5197,5197,5197,5197,5197, & - 5197,5197,5197,5197,5197,5197,5197,5197,5197,5197,5197,5197, & - 5197,5197,5197,5197,5197,5197,5197,5197,5197,5197,5197,5197, & - 5197,5197,5197,5197,5198,5198,5198,5198,5198,5198,5198,5198, & - 5198,5198,5198,5198,5198,5198,5198,5198,5198,5199,5199,5199, & - 5199,5199,5199,5199,5199,5199,5199,5199,5199,5199,5199,5199, & - 5199,5199,5199,5199,5199,5199,5199,5199,5199,5199,5199,5199, & - 5199,5199,5199,5199,5199,5199,5199,5199,5199,5199,5199,5199, & - 5199,5199,5199,5199,5199,5199,5199,5199,5199,5199,5199,5199, & - 5199,5199,5199,5199,5199,5199,5199,5199,5199,5199,5199,5199, & - 5199,5199,5199,5199,5199,5199,5199,5199,5199,5199,5199,5200, & - 5200,5200,5200,5200,5200,5200,5200,5200,5200,5200,5200,5200, & - 5200,5200,5200,5200,5200,5200,5200,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_101 = (/ & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_102 = (/ & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201,5201, & - 5201,5201,5201,5201,5201,5201,5202,5202,5202,5202,5202,5202, & - 5202,5202,5202,5202,5202,5202,5202,5202,5202,5202,5202,5202, & - 5202,5202,5202,5202,5202,5202,5202,5202,5202,5202,5202,5202, & - 5202,5202,5202,5202,5202,5202,5202,5202,5202,5202,5202,5203, & - 5203,5203,5203,5203,5203,5203,5203,5203,5203,5203,5203,5203, & - 5203,5203,5203,5203,5203,5203,5203,5203,5203,5203,5203,5203, & - 5203,5203,5203,5203,5203,5203,5203,5203,5203,5203,5203,5203, & - 5203,5203,5203,5203,5203,5203,5203,5203,5203,5203,5203,5203, & - 5203,5203,5204,5204,5204,5204,5204,5204,5204,5204,5204,5205, & - 5205,5205,5205,5205,5205,5205,5205,5205,5205,5205,5205,5205, & - 5205,5205,5206,5206,5206,5206,5206,5206,5206,5206,5206,5206, & - 5206,5206,5207,5207,5207,5207,5207,5207,5207,5207,5207,5207, & - 5207,5207,5207,5207,5207,5207,5207,5207,5207,5207,5208,5208, & - 5208,5208,5208,5208,5208,5208,5208,5208,5208,5208,5208,5208, & - 5208,5208,5208,5208,5208,5208,5208,5208,5208,5208,5208,5208, & - 5208,5208,5209,5209,5209,5209,5209,5209,5209,5209,5209,5209, & - 5209,5209,5209,5209,5209,5209,5209,5209,5209,5209,5209,5209, & - 5209,5209,5210,5210,5210,5210,5210,5210,5210,5210,5210,5210, & - 5210,5210,5210,5210,5210,5210,5210,5210,5210,5210,5210,5210, & - 5210,5210,5210,5210,5210,5210,5210,5210,5210,5210,5210,5210, & - 5210,5210,5210,5210,5210,5210,5210,5210,5210,5210,5210,5210, & - 5210,5210,5210,5210,5210,5210,5210,5210,5210,5210,5210,5210, & - 5210,5210,5210,5210,5210,5210,5210,5210,5210,5210,5210,5210, & - 5210,5210,5210,5210,5210,5211,5211,5211,5211,5211,5211,5211, & - 5211,5211,5211,5211,5211,5211,5211,5211,5211,5211,5211,5211, & - 5211,5211,5211,5211,5211,5211,5211,5211,5211,5211,5211,5211, & - 5211,5211,5211,5211,5211,5211,5211,5211,5211,5211,5211,5211 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_103 = (/ & - 5211,5212,5212,5212,5212,5212,5212,5212,5212,5212,5212,5212, & - 5212,5212,5212,5212,5212,5213,5213,5213,5213,5213,5213,5213, & - 5213,5213,5213,5213,5213,5213,5213,5213,5213,5213,5213,5213, & - 5213,5213,5213,5213,5214,5214,5214,5214,5214,5214,5214,5214, & - 5214,5214,5214,5214,5214,5214,5214,5214,5214,5214,5214,5214, & - 5214,5214,5214,5214,5214,5214,5214,5214,5214,5214,5214,5214, & - 5214,5214,5214,5214,5214,5214,5214,5214,5214,5214,5214,5214, & - 5214,5214,5214,5214,5214,5214,5214,5214,5214,5214,5214,5214, & - 5214,5214,5214,5214,5214,5214,5214,5214,5214,5214,5214,5214, & - 5214,5214,5214,5214,5214,5214,5214,5214,5214,5214,5214,5215, & - 5215,5215,5215,5215,5215,5215,5215,5215,5215,5215,5215,5215, & - 5215,5215,5215,5215,5215,5215,5215,5215,5215,5215,5215,5215, & - 5215,5215,5215,5216,5216,5216,5216,5216,5216,5216,5216,5216, & - 5216,5216,5216,5216,5216,5216,5216,5216,5216,5216,5216,5216, & - 5216,5216,5216,5216,5216,5216,5216,5216,5216,5216,5216,5216, & - 5216,5216,5216,5216,5216,5216,5216,5216,5216,5216,5216,5216, & - 5216,5216,5216,5216,5216,5216,5216,5216,5216,5216,5217,5217, & - 5217,5217,5217,5217,5217,5217,5217,5218,5218,5218,5218,5218, & - 5218,5218,5218,5218,5218,5218,5219,5219,5219,5219,5219,5219, & - 5219,5219,5219,5219,5219,5219,5220,5220,5220,5220,5220,5220, & - 5220,5220,5220,5220,5220,5220,5220,5220,5220,5220,5220,5220, & - 5221,5221,5221,5221,5221,5221,5221,5221,5221,5221,5221,5221, & - 5221,5221,5221,5221,5221,5221,5221,5221,5221,5221,5221,5221, & - 5221,5221,5221,5221,5221,5221,5221,5221,5221,5221,5221,5221, & - 5221,5221,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222, & - 5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222, & - 5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222, & - 5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222, & - 5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222, & - 5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_104 = (/ & - 5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222, & - 5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222, & - 5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222, & - 5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222, & - 5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222, & - 5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222, & - 5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222, & - 5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222, & - 5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222, & - 5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222, & - 5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222, & - 5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222, & - 5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222, & - 5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222, & - 5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222, & - 5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222, & - 5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222, & - 5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222, & - 5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222,5222, & - 5222,5222,5222,5223,5223,5223,5223,5223,5223,5223,5223,5223, & - 5223,5223,5223,5223,5223,5223,5223,5223,5223,5223,5223,5223, & - 5223,5223,5223,5223,5223,5223,5223,5223,5223,5223,5223,5223, & - 5223,5223,5223,5223,5223,5223,5223,5223,5223,5223,5223,5223, & - 5223,5223,5223,5223,5223,5223,5223,5223,5223,5223,5223,5223, & - 5223,5224,5224,5224,5224,5224,5224,5224,5224,5224,5224,5224, & - 5224,5224,5224,5224,5224,5224,5224,5225,5225,5225,5225,5225, & - 5225,5225,5225,5225,5225,5225,5225,5225,5225,5225,5225,5225, & - 5225,5225,5225,5225,5225,5225,5225,5225,5225,5225,5225,5225, & - 5225,5225,5225,5225,5225,5225,5225,5225,5225,5226,5226,5226, & - 5226,5226,5226,5226,5226,5226,5226,5226,5226,5226,5226,5226 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_105 = (/ & - 5226,5226,5226,5226,5226,5226,5226,5226,5226,5226,5226,5226, & - 5226,5226,5226,5226,5226,5226,5226,5226,5226,5227,5227,5227, & - 5227,5227,5227,5227,5227,5227,5227,5227,5227,5227,5227,5228, & - 5228,5228,5228,5228,5228,5228,5228,5228,5228,5228,5228,5228, & - 5228,5228,5228,5228,5228,5228,5228,5228,5228,5228,5228,5228, & - 5228,5228,5228,5228,5228,5228,5228,5228,5228,5228,5228,5228, & - 5228,5228,5228,5228,5228,5228,5228,5228,5228,5228,5228,5228, & - 5228,5228,5228,5228,5228,5228,5228,5228,5228,5228,5228,5228, & - 5228,5228,5228,5228,5228,5228,5228,5228,5228,5228,5228,5228, & - 5228,5228,5228,5228,5228,5228,5228,5228,5228,5228,5228,5228, & - 5228,5228,5228,5228,5228,5228,5228,5228,5228,5228,5228,5228, & - 5228,5228,5228,5228,5228,5228,5228,5228,5228,5228,5228,5228, & - 5228,5228,5228,5228,5228,5228,5228,5228,5228,5228,5228,5228, & - 5228,5228,5228,5228,5228,5228,5228,5228,5228,5228,5228,5228, & - 5228,5228,5228,5228,5228,5228,5228,5228,5229,5229,5229,5229, & - 5229,5229,5229,5229,5229,5229,5229,5229,5229,5229,5229,5229, & - 5229,5229,5229,5229,5229,5229,5229,5229,5229,5229,5229,5229, & - 5229,5229,5229,5229,5229,5229,5229,5229,5229,5229,5229,5229, & - 5229,5230,5230,5230,5230,5230,5230,5230,5230,5230,5230,5230, & - 5230,5230,5230,5230,5230,5230,5230,5230,5230,5230,5230,5230, & - 5230,5230,5230,5230,5230,5230,5230,5230,5230,5230,5230,5230, & - 5230,5230,5230,5230,5230,5230,5230,5230,5230,5230,5230,5230, & - 5230,5230,5230,5230,5230,5230,5230,5230,5230,5230,5230,5230, & - 5230,5230,5230,5230,5230,5230,5230,5230,5230,5230,5230,5230, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_106 = (/ & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_107 = (/ & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231,5231, & - 5231,5231,5231,5231,5231,5231,5232,5232,5232,5232,5232,5232, & - 5232,5232,5232,5232,5232,5232,5232,5232,5232,5232,5232,5232, & - 5232,5232,5232,5232,5232,5232,5232,5232,5232,5232,5232,5232, & - 5232,5232,5232,5232,5232,5232,5232,5232,5232,5232,5232,5232, & - 5232,5232,5232,5232,5232,5232,5232,5232,5232,5232,5232,5232, & - 5232,5232,5232,5232,5232,5232,5232,5232,5232,5232,5232,5232, & - 5232,5232,5232,5232,5232,5232,5232,5232,5232,5232,5232,5232, & - 5232,5232,5232,5232,5232,5232,5232,5232,5232,5232,5232,5232 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_108 = (/ & - 5232,5232,5232,5232,5232,5232,5232,5232,5232,5232,5232,5232, & - 5232,5232,5232,5232,5232,5232,5232,5232,5232,5232,5232,5232, & - 5232,5232,5232,5232,5232,5232,5232,5232,5232,5232,5232,5232, & - 5232,5232,5232,5232,5232,5232,5232,5232,5232,5232,5232,5232, & - 5232,5232,5232,5232,5232,5232,5232,5232,5232,5232,5232,5232, & - 5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233, & - 5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233, & - 5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233, & - 5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233, & - 5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233, & - 5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233, & - 5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233, & - 5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233, & - 5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233, & - 5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233, & - 5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233, & - 5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233, & - 5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233, & - 5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233, & - 5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233, & - 5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233, & - 5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233, & - 5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233, & - 5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233, & - 5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233, & - 5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233,5233, & - 5233,5234,5234,5234,5234,5234,5234,5234,5234,5234,5234,5234, & - 5234,5234,5234,5234,5234,5234,5234,5234,5234,5234,5234,5234, & - 5234,5234,5234,5234,5234,5234,5234,5234,5234,5234,5234,5234, & - 5234,5234,5234,5234,5234,5234,5234,5234,5234,5234,5234,5234 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_109 = (/ & - 5234,5234,5234,5234,5234,5234,5234,5234,5234,5234,5234,5234, & - 5234,5234,5234,5234,5234,5234,5234,5234,5234,5234,5234,5234, & - 5234,5234,5234,5234,5234,5234,5234,5234,5234,5234,5234,5234, & - 5234,5234,5234,5234,5234,5234,5234,5234,5234,5234,5234,5234, & - 5234,5234,5234,5234,5234,5234,5234,5234,5234,5234,5234,5234, & - 5234,5234,5234,5234,5234,5234,5234,5234,5234,5234,5234,5234, & - 5234,5234,5234,5234,5234,5234,5234,5234,5234,5234,5234,5234, & - 5234,5234,5234,5234,5234,5234,5234,5234,5234,5234,5234,5234, & - 5234,5234,5234,5234,5234,5234,5235,5235,5235,5235,5235,5235, & - 5235,5235,5235,5235,5235,5235,5235,5235,5235,5235,5235,5235, & - 5235,5235,5235,5235,5235,5235,5235,5235,5235,5235,5235,5235, & - 5235,5235,5235,5235,5235,5235,5235,5235,5235,5235,5235,5235, & - 5235,5235,5235,5235,5235,5235,5235,5235,5235,5235,5235,5235, & - 5235,5235,5235,5235,5235,5236,5236,5236,5236,5236,5236,5236, & - 5236,5236,5236,5236,5236,5236,5236,5236,5236,5237,5237,5237, & - 5237,5237,5237,5237,5237,5237,5237,5237,5237,5237,5237,5237, & - 5237,5237,5237,5237,5237,5237,5237,5237,5237,5237,5237,5237, & - 5237,5237,5237,5237,5237,5237,5237,5237,5237,5237,5237,5237, & - 5237,5237,5237,5237,5237,5237,5237,5237,5237,5237,5237,5237, & - 5237,5237,5237,5237,5237,5237,5237,5237,5237,5237,5237,5237, & - 5237,5237,5237,5237,5237,5237,5237,5237,5237,5237,5237,5237, & - 5237,5238,5238,5238,5238,5238,5238,5238,5238,5238,5238,5238, & - 5238,5238,5238,5238,5238,5238,5238,5238,5238,5238,5238,5238, & - 5238,5238,5238,5238,5238,5238,5238,5238,5238,5238,5238,5238, & - 5238,5238,5238,5238,5238,5238,5238,5238,5238,5238,5238,5239, & - 5239,5239,5239,5239,5239,5239,5239,5239,5239,5239,5239,5239, & - 5239,5239,5239,5239,5239,5239,5239,5239,5239,5239,5239,5239, & - 5239,5240,5240,5240,5240,5240,5240,5240,5240,5240,5240,5240, & - 5240,5240,5240,5240,5240,5240,5240,5240,5240,5240,5240,5240, & - 5240,5240,5240,5240,5240,5240,5240,5240,5241,5241,5241,5241 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_110 = (/ & - 5241,5241,5241,5241,5241,5241,5241,5241,5241,5241,5241,5241, & - 5241,5241,5241,5241,5241,5241,5241,5241,5241,5241,5241,5241, & - 5241,5241,5241,5241,5241,5241,5241,5241,5241,5241,5241,5241, & - 5241,5241,5241,5241,5241,5241,5241,5241,5241,5241,5241,5241, & - 5241,5241,5241,5241,5241,5241,5241,5241,5241,5241,5241,5241, & - 5241,5241,5241,5241,5241,5241,5241,5241,5241,5241,5241,5241, & - 5241,5241,5241,5241,5241,5241,5241,5241,5241,5241,5241,5241, & - 5242,5242,5242,5242,5242,5242,5242,5242,5242,5242,5242,5242, & - 5242,5242,5242,5242,5242,5242,5242,5242,5242,5242,5242,5242, & - 5242,5242,5242,5242,5242,5242,5242,5242,5242,5242,5242,5242, & - 5242,5242,5242,5242,5242,5242,5242,5242,5242,5242,5242,5242, & - 5242,5242,5242,5242,5242,5242,5242,5242,5242,5242,5242,5242, & - 5242,5242,5242,5242,5242,5242,5242,5242,5242,5242,5242,5242, & - 5242,5242,5242,5242,5242,5242,5242,5242,5242,5242,5242,5242, & - 5242,5243,5243,5243,5243,5243,5243,5243,5243,5243,5243,5243, & - 5243,5243,5243,5243,5243,5243,5243,5243,5243,5243,5243,5243, & - 5243,5243,5243,5243,5243,5243,5243,5243,5243,5243,5243,5243, & - 5243,5243,5243,5243,5243,5243,5243,5243,5243,5243,5243,5243, & - 5243,5243,5243,5243,5243,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_111 = (/ & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_112 = (/ & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244, & - 5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5244,5245, & - 5245,5245,5245,5245,5245,5245,5245,5245,5245,5245,5245,5245, & - 5245,5245,5245,5245,5245,5245,5245,5245,5245,5246,5246,5246, & - 5246,5246,5246,5246,5246,5246,5246,5246,5246,5246,5246,5246, & - 5246,5246,5246,5246,5246,5246,5246,5246,5246,5246,5246,5246, & - 5246,5246,5246,5246,5246,5246,5246,5246,5246,5247,5247,5247, & - 5247,5247,5247,5247,5247,5247,5247,5247,5247,5247,5247,5247, & - 5247,5247,5247,5247,5247,5247,5247,5247,5247,5247,5247,5247, & - 5247,5247,5247,5247,5248,5248,5248,5248,5248,5248,5248,5248, & - 5248,5248,5248,5248,5248,5248,5248,5248,5248,5248,5248,5248, & - 5248,5248,5248,5248,5248,5248,5248,5248,5248,5248,5249,5249, & - 5249,5249,5249,5249,5249,5249,5249,5249,5249,5249,5249,5249, & - 5249,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_113 = (/ & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_114 = (/ & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_115 = (/ & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_116 = (/ & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_117 = (/ & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_118 = (/ & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_119 = (/ & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_120 = (/ & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_121 = (/ & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_122 = (/ & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_123 = (/ & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_124 = (/ & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_125 = (/ & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250,5250, & - 5250,5250,5250,5250,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_126 = (/ & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_127 = (/ & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_128 = (/ & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_129 = (/ & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251,5251, & - 5251,5251,5251,5251,5251,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_130 = (/ & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_131 = (/ & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_132 = (/ & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_133 = (/ & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252,5252, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_134 = (/ & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_135 = (/ & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_136 = (/ & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_137 = (/ & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_138 = (/ & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_139 = (/ & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253,5253, & - 5253,5253,5253,5253,5253,5253,5253,5253,5254,5254,5254,5254, & - 5254,5254,5254,5254,5254,5254,5254,5254,5254,5254,5254,5254, & - 5254,5254,5254,5254,5254,5254,5254,5254,5254,5254,5254,5254, & - 5254,5254,5254,5254,5254,5254,5254,5254,5254,5254,5254,5254, & - 5254,5254,5254,5254,5254,5254,5254,5254,5254,5254,5254,5254, & - 5254,5254,5254,5254,5254,5254,5254,5254,5254,5254,5254,5254, & - 5254,5254,5254,5254,5254,5254,5254,5254,5254,5254,5254,5254, & - 5254,5254,5254,5254,5254,5254,5254,5254,5254,5254,5254,5254, & - 5254,5254,5254,5254,5254,5254,5254,5254,5254,5254,5254,5254, & - 5254,5254,5254,5254,5254,5254,5254,5254,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_140 = (/ & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_141 = (/ & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_142 = (/ & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_143 = (/ & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_144 = (/ & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_145 = (/ & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_146 = (/ & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_147 = (/ & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255,5255, & - 5255,5255,5255,5255,5255,5255,5255,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_148 = (/ & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_149 = (/ & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_150 = (/ & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_151 = (/ & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_152 = (/ & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256,5256, & - 5257,5257,5257,5257,5257,5257,5257,5257,5257,5257,5257,5257, & - 5257,5257,5257,5257,5257,5257,5257,5257,5257,5257,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258 /) - INTEGER, PARAMETER, DIMENSION(192) :: LU_IROW_153 = (/ & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258, & - 5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258,5258 /) - INTEGER, PARAMETER, DIMENSION(55272) :: LU_IROW = (/& - LU_IROW_0, LU_IROW_1, LU_IROW_2, LU_IROW_3, LU_IROW_4, & - LU_IROW_5, LU_IROW_6, LU_IROW_7, LU_IROW_8, LU_IROW_9, & - LU_IROW_10, LU_IROW_11, LU_IROW_12, LU_IROW_13, LU_IROW_14, & - LU_IROW_15, LU_IROW_16, LU_IROW_17, LU_IROW_18, LU_IROW_19, & - LU_IROW_20, LU_IROW_21, LU_IROW_22, LU_IROW_23, LU_IROW_24, & - LU_IROW_25, LU_IROW_26, LU_IROW_27, LU_IROW_28, LU_IROW_29, & - LU_IROW_30, LU_IROW_31, LU_IROW_32, LU_IROW_33, LU_IROW_34, & - LU_IROW_35, LU_IROW_36, LU_IROW_37, LU_IROW_38, LU_IROW_39, & - LU_IROW_40, LU_IROW_41, LU_IROW_42, LU_IROW_43, LU_IROW_44, & - LU_IROW_45, LU_IROW_46, LU_IROW_47, LU_IROW_48, LU_IROW_49, & - LU_IROW_50, LU_IROW_51, LU_IROW_52, LU_IROW_53, LU_IROW_54, & - LU_IROW_55, LU_IROW_56, LU_IROW_57, LU_IROW_58, LU_IROW_59, & - LU_IROW_60, LU_IROW_61, LU_IROW_62, LU_IROW_63, LU_IROW_64, & - LU_IROW_65, LU_IROW_66, LU_IROW_67, LU_IROW_68, LU_IROW_69, & - LU_IROW_70, LU_IROW_71, LU_IROW_72, LU_IROW_73, LU_IROW_74, & - LU_IROW_75, LU_IROW_76, LU_IROW_77, LU_IROW_78, LU_IROW_79, & - LU_IROW_80, LU_IROW_81, LU_IROW_82, LU_IROW_83, LU_IROW_84, & - LU_IROW_85, LU_IROW_86, LU_IROW_87, LU_IROW_88, LU_IROW_89, & - LU_IROW_90, LU_IROW_91, LU_IROW_92, LU_IROW_93, LU_IROW_94, & - LU_IROW_95, LU_IROW_96, LU_IROW_97, LU_IROW_98, LU_IROW_99, & - LU_IROW_100, LU_IROW_101, LU_IROW_102, LU_IROW_103, LU_IROW_104, & - LU_IROW_105, LU_IROW_106, LU_IROW_107, LU_IROW_108, LU_IROW_109, & - LU_IROW_110, LU_IROW_111, LU_IROW_112, LU_IROW_113, LU_IROW_114, & - LU_IROW_115, LU_IROW_116, LU_IROW_117, LU_IROW_118, LU_IROW_119, & - LU_IROW_120, LU_IROW_121, LU_IROW_122, LU_IROW_123, LU_IROW_124, & - LU_IROW_125, LU_IROW_126, LU_IROW_127, LU_IROW_128, LU_IROW_129, & - LU_IROW_130, LU_IROW_131, LU_IROW_132, LU_IROW_133, LU_IROW_134, & - LU_IROW_135, LU_IROW_136, LU_IROW_137, LU_IROW_138, LU_IROW_139, & - LU_IROW_140, LU_IROW_141, LU_IROW_142, LU_IROW_143, LU_IROW_144, & - LU_IROW_145, LU_IROW_146, LU_IROW_147, LU_IROW_148, LU_IROW_149, & - LU_IROW_150, LU_IROW_151, LU_IROW_152, LU_IROW_153 /) - - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_0 = (/ & - 1,137,5201, 2, 3, 3, 5,3568,4213,4247,4250,4258, & - 4264,4282,4286,4302,4320,4526,4544,4551,4556,4621,4668,4677, & - 4678,4691,4741,4757,4776,4819,4824,4828,4838,4843,4868,4869, & - 4906,4908,4912,4919,4941,4943,4956,4963,4997,4998,4999,5040, & - 5047,5048,5070,5092,5102,5156,5170,5223,5254, 4,5258, 5, & - 5250,5254, 6,1916, 7,3432, 8,2478, 9,285,5127,5250, & - 10,4519,5250,5255, 11,4114, 12,4330,5250, 13,3648,5250, & - 14,518,3699,5252,5256, 15,245,5250, 16,1412,3753,5252, & - 5256, 17,3518,5250, 18,3632,5250, 19,5002,5258, 20,5095, & - 5258, 21,3428,5250, 22,3798,5250, 23,2854,5250, 24,4092, & - 5250, 25,1761,4295,5252,5256, 26,4426,5250, 27,5083,5258, & - 28,3982,5250, 29,4976,5258, 30,5247,5250, 31,3531,5250, & - 32,3721,5250, 33,3714,5250, 34,4099,5250, 35,1028,3678, & - 5252,5256, 36,865,4244,5252,5256, 37,3442,5258, 38,4480, & - 5250, 39,3788,5250, 40,3694,5250, 41,3705,5250, 42,1043, & - 3745,5252,5256, 43,1534,3704,5252,5256, 44,1279,4015,5252, & - 5256, 45,1202,3784,5252,5256, 46,3725,5250, 47,3562,5250, & - 48,3428,5250, 49,1203,3761,5252,5256, 50,1416,3781,5252, & - 5256, 51,2260,4595,5252,5256, 52,4133,5250, 53,4904,5250, & - 54,4074,5250, 55,3939,5250, 56,4621,5250, 57,1062,3771, & - 5252,5256, 58,3695,5250, 59,4764,5250, 60,4234,5250, 61, & - 5187,5258, 62,5174,5250, 63,4481,5250, 64,3894,5250, 65, & - 1497,3769,5252,5256, 66,1410,3766,5252,5256, 67,4570,5258, & - 68,3627,5250, 69,508,3710,5252,5256, 70,4894,5250, 71, & - 3539,5250, 72,3746,5250, 73,4422,5250, 74,3650,5250, 75, & - 422,5250, 76,989,3719,5252,5256, 77,2932,5250, 78,1435, & - 3782,5252,5256, 79,3981,5250, 80,992,3717,5252,5256, 81, & - 3817,5250, 82,963,3714,5252,5256, 83,4216,5250, 84,3534, & - 5250, 85,4507,5250, 86,5228,5253, 87,4394,5250, 88,594, & - 4077,5252,5256, 89,4068,5250, 90,3771,5250, 91,1282,3674 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_1 = (/ & - 5252,5256, 92,1359,3983,5252,5256, 93,3782,5250, 94,3786, & - 5250, 95,4091,5250, 96,1397,4042,5252,5256, 97,324,3711, & - 5252,5256, 98,4482,5250, 99,5104,5250,100,3752,5250,101, & - 4423,5250,102,4529,5250,103,3769,5250,104,4090,5250,105, & - 5219,5250,106,3753,5250,107,459,3770,5252,5256,108,4748, & - 5250,109,3491,5250,110,4828,5250,111,3489,5250,112,5189, & - 5258,113,1333,3951,5252,5256,114,4963,5250,115,1956,4687, & - 5252,5256,116,521,3675,5252,5256,117,1075,3785,5252,5256, & - 118,4734,5250,119,3503,5250,120,398,3697,5252,5256,121, & - 5084,5250, 23,122,2854,5250,123,3160,5250,124,3511,5250, & - 125,1089,3706,5252,5256,126,4411,5250,127,3886,5250,128, & - 4167,5250,129,3527,5250,130,491,3740,5252,5256,131,4805, & - 5258,132,1032,3730,5252,5256,133,4121,5250,134,4319,5250, & - 135,4028,5250,136,3538,5250,137,5253,5256,138,2143,4257, & - 5252,5256,139,4878,5250,140,1374,3768,5252,5256,141,1192, & - 5059,5252,5256,142,3478,5250,143,3554,5250,144,5056,5250, & - 145,405,4240,5252,5256,146,1383,4898,5252,5256,147,640, & - 5250,148,5169,5258,149,830,1657,4043,5252,5256,150,1954, & - 3288,4583,5252,5256,151,1004,2157,3789,5252,5256, 26,152, & - 1464,4426,5250,5252,5256,153,1800,2391,5185,5252,5256,154, & - 736,1057,4078,5252,5256,155,1987,2416,4942,5252,5256,156, & - 1178,1771,5041,5252,5256,157,1339,1883,3743,5252,5256,158, & - 880,1996,5084,5252,5256,159,949,2079,3901,5252,5256,160, & - 2227,2285,5163,5252,5256,161,1267,1919,4766,5252,5256,162, & - 1135,2352,3962,5252,5256,101,163,973,4423,5250,5252,5256, & - 98,164,1357,4482,5250,5252,5256,165,1751,2277,4696,5252, & - 5256,166,1501,1831,4586,5252,5256,167,2213,2401,4356,5252, & - 5256,168,1070,2063,3703,5252,5256, 40,169,935,3694,5250, & - 5252,5256, 53,170,994,4904,5250,5252,5256,171,2086,2422, & - 5109,5252,5256,172,1128,2108,5206,5252,5256,173,1328,2444 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_2 = (/ & - 3841,5252,5256,174,1119,1551,3686,5252,5256,175,2083,2400, & - 5161,5252,5256,176,653,840,3733,5252,5256,177,1491,2161, & - 5144,5252,5256,178,872,1972,3698,5252,5256,179,2365,3222, & - 5151,5252,5256,180,1237,2155,4197,5252,5256,181,5250,182, & - 1260,2458,5196,5252,5256,183,1195,2250,5114,5252,5256,184, & - 870,2094,5146,5252,5256,185,1841,2269,4581,5252,5256,186, & - 1052,2432,5138,5252,5256,187,1286,1629,4088,5252,5256,188, & - 1536,1889,3952,5252,5256,189,1523,2165,4940,5252,5256,190, & - 1149,1591,3764,5252,5256,191,1413,1649,3722,5252,5256,192, & - 1079,1824,5107,5252,5256,193,879,2328,3858,5252,5256,194, & - 4107,5013,5218,5252,5256,195,1262,1980,4880,5252,5256,196, & - 848,2113,5065,5252,5256,197,1259,2216,5112,5252,5256,198, & - 5250,199,1205,2061,5236,5252,5256,200,1829,2331,4251,5252, & - 5256,201,562,1284,3720,5252,5256,202,1966,2168,4733,5252, & - 5256,203,1463,2224,3908,5252,5256, 72,204,1335,3746,5250, & - 5252,5256,205,2169,2264,5082,5252,5256, 30,206,871,5247, & - 5250,5252,5256,207,4848,5250,5255,208,4127,5250,209,4580, & - 5250,210,4484,5250,5255,108,211,1331,2195,4748,5250,5252, & - 5256,212,3740,5250,213,3951,5250,214,3832,5258,215,4431, & - 5250,5255,216,3456,5250,5253,217,3621,5250,218,3902,5250, & - 219,4567,5250,220,4334,5250,221,5238,5250,222,4862,5250, & - 5255,223,3688,5250,224,5175,5258,225,3523,5250,226,5091, & - 5250,227,4375,5250,5255,228,5109,5250,229,3405,5250,230, & - 4642,5250,5255,231,3758,5250,232,2010,4364,5250,233,3669, & - 5250,234,4586,5250,235,5238,5250,236,5257,5258,237,5237, & - 5250,5255,238,3670,5250,239,4474,5258,240,4629,5250,5255, & - 241,4638,5250,5255,242,4733,5250,243,3517,5258,244,3380, & - 5250,245,2548,5250,246,5059,5250,247,4315,5250,248,4088, & - 5250,249,5195,5250,250,5250,251,5014,5250,5255,252,5027, & - 5250,5255,253,5238,5250, 28,254,1470,3034,3982,5250,5252 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_3 = (/ & - 5256,255,4977,5250,5255,256,4363,5250,257,3686,5250,258, & - 4962,5250,5255,259,3396,5250,260,5231,5233,5250,261,2590, & - 5154,5252,262,3507,5250,263,3975,5250,264,3305,5250,5253, & - 265,5021,5250,5255,266,3764,5250,267,3770,5250,268,4019, & - 5250,269,5144,5250,270,5238,5250,271,599,2002,2313,5198, & - 5252,5256,272,4222,5250,5255,273,3675,5250,274,3803,5250, & - 275,4679,5250,5255,276,4187,5250,5255,277,3481,5250,278, & - 4814,5250,279,4131,5250,280,5088,5250,5255,281,4762,5250, & - 282,4979,5250,5255,283,3794,5250,284,4357,5250,285,4778, & - 5250,286,5185,5250,287,4808,5250,5255,288,5238,5250,289, & - 5120,5250, 83,290,826,2257,4216,5250,5252,5256,291,4771, & - 5250,5255,292,4003,5250,293,4492,5258,294,4955,5250,5255, & - 295,3690,5250,296,3882,5250,134,297,1155,2327,4319,5250, & - 5252,5256,298,4981,5250,299,3697,5250,300,454,1324,3741, & - 5250,5252,5256,301,5179,5250,5255,302,5022,5250,303,3720, & - 5250,304,4980,5250,305,4599,5250,306,4251,5250,307,3637, & - 5250,308,5077,5250,309,4611,5250,5255,310,3962,5250,311, & - 3840,5250,312,3727,5250,313,3698,5250,314,5108,5250, 59, & - 315,1245,2408,4764,5250,5252,5256,316,4571,5250,317,3985, & - 5250,273,318,521,3675,5250,319,4060,5250,320,4196,5250, & - 321,4368,5250,322,3711,5250,322,323,324,3711,5250,324, & - 3711,5250,5255,325,5041,5250, 87,326,970,2239,4394,5250, & - 5252,5256,327,4512,5258,328,3866,5250,5255,329,4500,5250, & - 5255,330,5164,5250,5255,331,3407,5250,332,3509,5250,333, & - 3667,5250,334,3841,5250,335,5007,5250,336,3852,5250,337, & - 5250,5252,338,5082,5250,339,4886,5250,340,4857,5250,341, & - 4100,5250,5255,342,5238,5250,343,4949,5250,5255,344,4078, & - 5250,345,5163,5250,346,4058,5250,347,4077,5250,348,4348, & - 5250,349,4696,5250,350,3853,5250,351,4496,5250,5255,352, & - 4687,5250,353,4766,5250,354,3955,5250,355,4359,5250,356 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_4 = (/ & - 3762,5250,357,3855,5250,358,4030,5250,359,3710,5250,360, & - 4681,5250,5255,361,3823,5250,362,4970,5258,363,4836,5250, & - 5255,364,5131,5250,5255,365,4173,5250,366,4124,5250,367, & - 5245,5250,5255,368,4226,5250,369,4201,5250,369,370,1007, & - 4201,5250,5252,5256,371,5122,5250,372,3699,5250,267,373, & - 459,3770,5250,374,4335,5250,375,4752,5250,5255,376,4623, & - 5250,5255,377,4176,5250,378,4863,5250,5255,379,4994,5250, & - 5255,380,5186,5250,381,4610,5250,382,4442,5250,383,4942, & - 5250,384,4380,5250,5255,385,4890,5250,386,4832,5258,387, & - 3461,5250,5253,388,4652,5250,5255,389,4338,5250,5255,390, & - 4342,5250,391,4107,5250,392,4669,5250,393,5008,5250,5255, & - 394,4162,5250,395,3733,5250,396,3521,5250,299,397,398, & - 3697,5250,398,3697,5250,5255,399,3858,5250,400,4166,5250, & - 401,5236,5250,402,4069,5250,403,4240,5250,403,404,405, & - 4240,5250,405,4240,5250,5255,406,4130,5250,365,407,1197, & - 3081,4173,5250,5252,5256,408,4360,5250,409,3789,5250,410, & - 3722,5250,411,4147,5250,412,5146,5250,413,4940,5250,414, & - 4234,5250,5255,415,4672,5250,416,4995,5250,417,4616,5250, & - 418,3845,5250,419,4605,5258,420,4662,5250,5255,139,421, & - 1082,2964,4878,5250,5252,5256,422,3541,5250,423,4181,5250, & - 5255,424,4974,5250,425,3778,5250,426,5238,5250,427,4789, & - 5250,428,3811,5250,429,5065,5250,430,4098,5250,431,3492, & - 5250,432,3790,5250,433,5054,5250,5255,434,5079,5250,5255, & - 435,3869,3967,5250,436,3804,5250,437,3718,5250,438,4634, & - 5250,5255,439,5206,5250,440,5039,5250,441,4172,5250,442, & - 4545,5250,442,443,1093,2661,4545,5250,5252,5256,444,3776, & - 5250, 34,445,1207,2534,4099,5250,5252,5256,446,3797,5250, & - 447,5238,5250,448,3423,5250,449,4665,5250,5255,366,450, & - 931,2892,4124,5250,5252,5256,451,3644,5250,452,5114,5250, & - 453,5112,5250,454,3741,5250,372,455,518,3699,5250,456 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_5 = (/ & - 5090,5250,5255,457,4953,5250,5255,458,5173,5250,459,3770, & - 5250,5255,460,5138,5250,461,4591,5250,5255,462,3901,5250, & - 463,5015,5250,464,3807,5250,465,4059,5250,466,5045,5250, & - 467,4043,5250,468,3751,5250,469,3749,5250,470,4839,5250, & - 5255,471,4219,5250,359,472,508,3710,5250,473,4614,5250, & - 474,4850,5250,5255,475,4400,5250,476,3743,5250,477,4601, & - 5258,478,3703,5250,479,4934,5250,5255,480,3525,5250,481, & - 3908,5250,482,4120,5250,483,3474,5250,5253,484,4382,4932, & - 5250,485,3696,5250,486,5107,5250,487,4568,5250,488,3873, & - 3989,5250,489,5052,5250,5255,212,490,491,3740,5250,491, & - 3740,5250,5255,492,5006,5250,5255,493,4119,5250,494,4776, & - 5250,495,5192,5250,496,4989,5250,5255,497,4785,5250,498, & - 4374,5250,499,4770,5250,5255,500,4820,5250,501,3952,5250, & - 502,3706,5250,503,4139,5250,5255,504,5061,5250,505,3819, & - 5250,506,4636,5250,5255,507,4738,5250,5255,508,3710,5250, & - 5255,509,3983,5250,509,510,1359,3983,5250,511,3890,5250, & - 512,4612,5250,513,4920,5250,514,4794,5258,515,5044,5250, & - 5255,516,4089,5250,517,4399,5250,518,3699,5250,5255,519, & - 4523,5250,5255,520,4157,5250,521,3675,5250,5255,522,5207, & - 5258,523,4055,5250,524,3691,5250,525,3731,5250,526,4189, & - 5250,527,3750,5250,528,2411,3916,5252,5256,529,5069,5258, & - 530,4117,5250,531,4928,5250,532,2693,4785,5252,5256,533, & - 3514,5016,5252,5256,534,2016,3941,5252,5256,535,1943,4163, & - 5252,5256,536,3990,5250,537,1890,4226,5252,5256,538,3701, & - 5258,539,2316,3977,5252,5256,540,3994,5250,541,2423,3905, & - 5252,5256,542,2482,5250,543,3895,5250,544,2437,4116,5252, & - 5256,545,1759,4274,5252,5256,546,3885,5250,547,5130,5250, & - 548,5238,5250,549,2407,3872,5252,5256,550,2267,3687,5252, & - 5256,551,2466,4889,5252,5256,552,969,3636,5252,5256,553, & - 2017,4150,5252,5256,554,4128,5250,555,2091,4025,5252,5256 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_6 = (/ & - 556,3850,5250,557,1935,4158,5252,5256,558,4096,5258,559, & - 4346,5250,560,3551,5258,303,561,562,1284,3720,5250,562, & - 3720,5250,5255,563,5168,5258,564,3078,4584,5252,5256,565, & - 4821,5250,566,5238,5250,567,4343,5250,568,3831,5258,569, & - 3512,5258,570,2121,4361,5252,5256,571,2095,3871,5252,5256, & - 572,4277,5250,573,2068,3671,5252,5256,574,2205,3880,5252, & - 5256,575,2221,4355,5252,5256,576,4703,5250,577,3836,5250, & - 578,3198,3888,4585,5250,579,3755,5250,580,4541,5250,581, & - 2404,4560,5252,5256,582,1888,4268,5252,5256,583,4190,5250, & - 584,2417,4416,5252,5256,585,1863,4761,5252,5256,586,4646, & - 5250,587,3876,5250,588,5238,5250,589,2137,4813,5252,5256, & - 590,4735,5250,591,3653,5250,592,1854,4550,5252,5256,347, & - 593,594,2515,4077,5250,594,4077,5250,5255,595,1917,4589, & - 5252,5256,596,1937,3912,5252,5256,597,2368,4153,5252,5256, & - 598,5181,5250,599,5198,5250,600,2424,4169,5252,5256,601, & - 5238,5250,602,3917,5250,603,4862,5252,5255,5256,604,4492, & - 5258,605,3214,4669,5252,5256,606,5166,5218,5219,5250,607, & - 5118,5166,5224,5250,608,4105,5250,609,4164,5250,610,2618, & - 4095,5252,5256,611,4838,4944,5250,5255,612,5175,5258,613, & - 4622,4919,5250,5255,614,3830,5258,615,2503,5007,5252,5256, & - 616,4713,5250,617,2217,3984,5252,5256,618,1868,4176,5252, & - 5256,619,2022,4135,5252,5256,620,1861,3696,5252,5256,621, & - 3988,5250,622,4165,5250,623,3702,4992,5252,5256,624,2160, & - 3963,5252,5256,625,2312,4315,5252,5256,626,2617,5250,627, & - 3219,5250,5255,5256,628,3545,5258,629,2342,4323,5252,5256, & - 630,3207,4698,5252,5256,631,4868,5106,5250,5255,632,2151, & - 4290,5252,5256,633,4597,5250,634,3817,5250,635,2065,3940, & - 5252,5256,636,4573,5250,637,2080,4724,5252,5256,638,2625, & - 4811,5252,5256,639,1911,3867,5252,5256,640,4600,5258,641, & - 2923,4920,5252,5256,642,4906,5128,5250,5255,643,2153,4477 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_7 = (/ & - 5252,5256,644,2111,4497,5252,5256,645,2289,3864,5252,5256, & - 646,2178,3971,5252,5256,647,4575,5250,648,1926,4343,5252, & - 5256,649,1990,3969,5252,5256,650,3974,5250,651,4704,5250, & - 395,652,653,840,3733,5250,653,3733,5250,5255,654,2497, & - 4774,5252,5256,655,1784,4875,5252,5256,656,2695,4341,5252, & - 5256,657,4142,5250,658,1950,5028,5252,5256,659,4141,5250, & - 660,2053,3739,5252,5256,661,3898,5250,662,3949,5250,663, & - 2266,3966,5252,5256,664,4697,5250,665,3049,4730,5252,5256, & - 666,3314,4594,5252,5256,667,3883,5250,668,5250,5256,669, & - 1999,4804,5252,5256,670,1844,3943,5252,5256,671,4712,5250, & - 672,2360,3954,5252,5256,673,1862,3844,5252,5256,674,2730, & - 4911,5252,5256,675,5119,5250,676,3499,5258,677,3244,5250, & - 5255,5256,678,4113,5250,679,2305,4145,5252,5256,198,680, & - 1269,3344,5223,5250,681,4699,5250,682,2428,4446,5252,5256, & - 683,4701,5250,684,5226,5258,685,5166,5258,686,5153,5258, & - 687,3006,4371,5252,5256,688,2836,4756,5252,5256,689,3287, & - 4126,5252,5256,690,3848,5250,691,4956,5125,5250,5255,692, & - 3928,5250,693,2107,4929,5252,5256,694,4249,5250,695,2300, & - 4820,5252,5256,696,4350,5250,697,2380,5019,5252,5256,698, & - 2059,4389,5252,5256,699,4825,5250,700,3684,5258,701,5024, & - 5258,702,5166,5217,5219,5250,703,2439,4762,5252,5256,704, & - 2062,4538,5252,5256,705,3494,5258,706,3231,4856,5252,5256, & - 707,3263,5250,5255,5256,708,2727,4144,5252,5256,709,4843, & - 4847,5250,5255,710,2920,4857,5252,5256,711,3196,4558,5252, & - 5256,712,2454,3692,5252,5256,713,3897,5250,714,1932,4340, & - 5252,5256,715,5166,5204,5224,5250,716,2446,3762,5252,5256, & - 717,2900,3810,5252,5256,718,3506,5258,719,4605,5258,720, & - 1836,4483,5252,5256,721,1973,3927,5252,5256,722,2052,4349, & - 5252,5256,723,3508,5258,724,1900,5122,5252,5256,725,4459, & - 5250,726,1373,5039,5252,5256,727,2202,3688,5252,5256,728 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_8 = (/ & - 2071,4567,5252,5256,729,1762,4552,5252,5256,730,2098,3920, & - 5252,5256,731,2445,4644,5252,5256,732,4377,5250,733,2450, & - 3724,5252,5256,734,3528,4967,5252,5256,344,735,736,1057, & - 4078,5250,736,4078,5250,5255,737,1802,4817,5252,5256,738, & - 3560,5258,739,2018,4418,5252,5256,740,2362,4148,5252,5256, & - 741,1757,4960,5252,5256,742,4725,5250,743,2294,3738,5252, & - 5256,744,1830,4381,5252,5256,745,1839,4369,5252,5256,746, & - 2351,4076,5252,5256,747,1850,3677,5252,5256,748,2451,3863, & - 5252,5256,749,3473,4365,5252,5256,750,2358,4787,5252,5256, & - 751,4941,5183,5250,5255,752,3482,5258,753,1979,3679,5252, & - 5256,754,4137,5250,755,3469,4887,5252,5256,756,3624,4935, & - 5252,5256,757,5062,5250,758,4903,5250,759,4951,5258, 60, & - 760,4234,5250,5252,5256,761,2572,4367,5252,5256,762,4709, & - 5250,763,5226,5258,764,4707,5250,765,3018,4814,5252,5256, & - 766,4474,5258,767,3668,5250,768,2089,3669,5252,5256,769, & - 4122,5250,770,2469,4754,5252,5256,771,4952,5258,772,3715, & - 5250,773,1840,4069,5252,5256,774,1958,4131,5252,5256,775, & - 1985,3838,5252,5256,776,2298,3919,5252,5256,777,1947,4284, & - 5252,5256,778,1908,4566,5252,5256,779,4718,5250,780,1783, & - 4535,5252,5256,781,2617,4129,5252,5256,782,2047,3814,5252, & - 5256,783,2103,3921,5252,5256,784,2058,3936,5252,5256,785, & - 4803,5250,786,1901,4768,5252,5256,787,2204,4030,5252,5256, & - 788,4720,5250,789,4410,5250,790,4786,5258,791,2027,3881, & - 5252,5256,792,1898,3727,5252,5256,793,3950,5250,794,4179, & - 5250,795,2348,3976,5252,5256,796,4167,5250,797,2180,3891, & - 5252,5256,798,2389,3680,5252,5256,799,4900,5250,800,2152, & - 4440,5252,5256,801,2690,4070,5252,5256,802,1793,4136,5252, & - 5256,803,4103,5250,804,4715,5250,805,3780,5250,806,5078, & - 5250,807,4716,5250,808,3446,4358,5252,5256,809,2093,4327, & - 5252,5256,810,1871,4147,5252,5256,811,4727,5250,812,4971 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_9 = (/ & - 5250,813,4385,5250,814,2262,3945,5252,5256,815,2166,4590, & - 5252,5256,816,2046,3685,5252,5256,817,2440,4130,5252,5256, & - 818,4943,5244,5250,5255,819,5013,5258,820,2115,4549,5252, & - 5256,821,5196,5250,822,3997,5250,5255,823,4659,5250,5255, & - 824,4853,5250,5255,825,4262,5250,5255,826,4216,5250,5255, & - 827,4653,5250,5255,828,4771,5250,5255,829,4344,5250,5255, & - 830,4043,5250,5255,831,3932,5250,5255,832,4994,5250,5255, & - 833,5158,5250,5255,834,4427,5250,5255,835,4306,5250,5255, & - 836,3718,5250,5255,837,4626,5250,5255,838,4422,5250,5255, & - 839,4658,5250,5255,840,3733,5250,5252,841,4111,5250,5255, & - 842,4439,5250,5255,843,4008,5250,5255,844,4035,5250,5255, & - 845,4629,5250,5255,846,4821,5250,5255,847,4645,5149,5250, & - 848,5065,5250,5255,849,4624,5250,5255,850,4521,5250,5255, & - 851,4377,5250,5255,852,4085,5250,5255,853,4469,5250,5255, & - 854,4001,5250,5255,855,4981,5250,5255,856,4673,5250,5255, & - 857,4061,5250,5255,858,4115,5250,5255,859,4664,5250,5255, & - 860,4280,5250,5255,861,3798,5250,5255,862,2936,4997,5250, & - 863,3846,5250,5255,864,4910,5250,5255,865,4244,5250,5255, & - 866,4543,5250,5255,867,4187,5250,5255,868,5237,5250,5255, & - 869,4655,5250,5255,870,5146,5250,5255,871,5247,5250,5255, & - 872,3698,5250,5255,873,3980,5250,5255,874,4837,4959,5250, & - 875,4382,5250,5255,876,4990,5250,5255,877,4149,5250,5255, & - 878,4296,5250,5255,879,3858,5250,5255,880,5084,5250,5255, & - 881,3898,5250,5255,882,4825,5250,5255,883,5104,5250,5255, & - 884,3627,5250,5255,885,3988,5250,5255,886,5111,5250,5255, & - 887,3839,5250,5255,888,4643,5250,5255,889,4860,5250,5255, & - 890,4657,5250,5255,891,3860,5250,5255,892,4011,5250,5255, & - 893,4518,5250,5255,894,4808,5250,5255,895,4577,4722,5250, & - 896,4844,5148,5250,897,4097,5250,5255,898,4656,5250,5255, & - 899,4613,5250,5255,900,5014,5250,5255,901,4977,5250,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_10 = (/ & - 902,4510,5250,5255,903,4853,5250,5255,904,3852,5250,5255, & - 905,3971,5250,5252,906,4867,5250,5255,907,3998,5250,5255, & - 908,4211,5250,5255,909,4263,5250,5255,910,4635,5250,5255, & - 448,485,911,3423,3696,5250,912,4090,5250,5255,913,4305, & - 5250,5255,914,4335,5250,5255,915,4684,5250,5255,916,4955, & - 5250,5255,917,4291,5250,5255,918,5239,5250,5255,919,4288, & - 5250,5255,920,4146,5250,5255,921,4641,5250,5255,922,3507, & - 5250,5255,923,4307,5250,5255,924,4522,5250,5255,925,5250, & - 5253,5255,926,4598,5096,5250,927,3890,5250,5255,928,4481, & - 5250,5255,929,4451,5250,5255,930,4745,5250,5255,931,4124, & - 5250,5255,932,3489,5250,5255,933,4660,5250,5255,934,4467, & - 5250,5255,935,3694,5250,5255,936,4636,5250,5255,937,4833, & - 5250,5255,938,3562,5250,5255,939,3538,5250,5255,940,4503, & - 5250,5255,941,4692,5250,5255,942,3845,5250,5255,943,4009, & - 5250,5255,944,3752,5250,5255,945,4866,5250,5255,946,4419, & - 5250,5255,947,4400,5250,5255,948,4019,5250,5255,949,3901, & - 5250,5255,950,4044,5250,5255,951,4679,5250,5255,952,4052, & - 5250,5255,953,4818,5250,5255,954,4631,5250,5255,955,4172, & - 5250,5255,956,3803,5250,5255,957,4599,5250,5252,958,4957, & - 5250,5255,959,3518,5250,5255,960,4421,5250,5255,961,4641, & - 5250,5255,962,4210,5250,5255,963,3714,5250,5255,964,5119, & - 5250,5255,965,4734,5250,5255,966,3481,5250,5255,967,4712, & - 5250,5255,968,5132,5250,5255,969,3636,5250,5255,970,4394, & - 5250,5255,971,3895,5250,5255,972,4245,5250,5255,973,4423, & - 5250,5255,974,3953,5250,5255,975,4500,5250,5255,976,4879, & - 5250,5255,977,4415,5250,5255,978,4006,5250,5255,979,4195, & - 5250,5255,980,4121,5250,5255,981,5127,5250,5255,982,3632, & - 5250,5255,983,4979,5250,5255,984,3949,5250,5255,985,4847, & - 5250,5255,986,4969,5250,5255,987,5183,5250,5255,988,4642, & - 5250,5255,989,3719,5250,5255,990,4830,5250,5255,991,4159 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_11 = (/ & - 5250,5252,992,3717,5250,5255,993,5017,5250,5255,994,4904, & - 5250,5255,995,4890,5250,5255,996,3534,5250,5255,997,4134, & - 5250,5255,998,4854,5250,5255,999,4876,5250,5255,1000,3527, & - 5250,5252,1001,3963,3971,5250,1002,4100,5250,5255,1003,4007, & - 5250,5255,1004,3789,5250,5255,1005,4359,5250,5252,1006,4519, & - 5250,5255,1007,4201,5250,5255,1008,4752,5250,5255,1009,3531, & - 5250,5255,1010,4577,5250,5255,1011,4922,5252,5256,1012,3985, & - 5250,5255,1013,2627,4932,5252,1014,4803,5250,5255,1015,5164, & - 5250,5255,1016,4720,5250,5255,1017,4054,5250,5255,1018,4660, & - 5250,5255,1019,4120,5250,5255,1020,3705,5250,5255,1021,3853, & - 5250,5255,1022,4818,5250,5255,1023,3554,5250,5255,1024,3786, & - 5250,5255,1025,4194,5250,5255,1026,4890,5250,5252,1027,3804, & - 5250,5255,1028,3678,5250,5255,1029,4289,5250,5255,1030,4455, & - 5250,5255,1031,4829,5250,5255,1032,3730,5250,5255,1033,3503, & - 5250,5255,1034,4568,5250,5255,1035,4476,4767,5250,1036,3921, & - 3936,5250,1037,5137,5250,5255,1038,4725,5250,5255,1039,3794, & - 5250,5255,233,331,1040,3407,3669,5250,1041,5079,5250,5255, & - 1042,4848,5250,5255,1043,3745,5250,5255,1044,4486,5250,5255, & - 1045,4463,5250,5255,1046,3848,5250,5255,1047,4855,5250,5255, & - 1048,4915,5250,5255,1049,4707,5250,5255,1050,4310,5116,5250, & - 1051,4212,5250,5255,1052,5138,5250,5255,1053,3713,5250,5255, & - 1054,4111,4372,5250,1055,4662,5250,5255,1056,3920,3966,5250, & - 1057,4078,5250,5252,1058,3863,5250,5252,1059,4089,5250,5255, & - 1060,4162,5250,5255,1061,4034,5250,5255,1062,3771,5250,5255, & - 1063,4574,5250,5255,1064,4611,5250,5255,1065,4928,5250,5255, & - 1066,5244,5250,5255,1067,4822,5250,5255,1068,1642,5228,5250, & - 1069,5078,5250,5255,1070,3703,5250,5255,1071,3840,5250,5255, & - 1072,4140,5250,5255,1073,4829,5250,5255,1074,4412,5250,5255, & - 1075,3785,5250,5255,1076,4051,5250,5255,1077,3855,5250,5255, & - 1078,4452,5250,5255,1079,5107,5250,5255,1080,3888,5250,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_12 = (/ & - 1081,4161,5250,5252,1082,4878,5250,5255,1083,4167,5250,5252, & - 1084,4684,5250,5255,1085,4759,5250,5255,1086,4740,5250,5253, & - 1087,4855,5250,5255,1088,4141,5250,5255,1089,3706,5250,5255, & - 1090,4934,5250,5255,1091,3999,5250,5255,1092,4703,5250,5255, & - 1093,4545,5250,5255,1094,4410,5250,5255,1095,4622,5250,5255, & - 1096,4265,5250,5255,1097,4915,5250,5255,1098,4159,5250,5255, & - 1099,4991,5250,5255,1100,5137,5250,5255,1101,4297,5250,5255, & - 1102,3496,5250,5255,1103,4575,5250,5255,1104,4293,5250,5255, & - 1105,4273,5250,5255,1106,4380,5250,5255,1107,5027,5250,5255, & - 1108,4310,5250,5255,1109,4986,5250,5255,1110,4405,5250,5255, & - 1111,2927,4998,5250,1112,4971,5250,5255,1113,1673,1777,5250, & - 1114,4850,5250,5255,1115,4270,5250,5255,1116,4465,5250,5255, & - 1117,4188,5250,5255,1118,4425,5250,5255,1119,3686,5250,5255, & - 1120,4554,4596,5250,1121,4607,4608,5250,1122,4254,5250,5255, & - 1123,3774,5250,5255,1124,4473,4647,5250,1125,4079,5250,5255, & - 1126,4059,5250,5255,1127,3728,5250,5255,1128,5206,5250,5255, & - 1129,4480,5250,5255,1130,4459,5250,5255,1131,3790,5250,5255, & - 1132,5097,5250,5255,259,312,1133,3396,3727,5250,1134,5008, & - 5250,5255,1135,3962,5250,5255,1136,4716,5250,5255,1137,4461, & - 5250,5255,1138,5060,5250,5255,1139,4142,5250,5255,1140,4870, & - 5150,5250,1141,4387,5250,5255,1142,4374,5250,5255,1143,4616, & - 5250,5255,1144,4292,5250,5255,1145,4903,5250,5255,1146,4409, & - 5250,5255,1147,4092,5250,5255,1148,4287,5250,5255,1149,3764, & - 5250,5255,1150,3797,5250,5255,1151,3872,5250,5252,1152,4073, & - 5250,5255,1153,5032,5250,5255,1154,4525,5250,5255,1155,4319, & - 5250,5255,1156,4082,5250,5255,1157,3491,5250,5255,1158,4949, & - 5250,5255,1159,4167,5250,5255,1160,4610,5250,5255,1161,4727, & - 5250,5255,1162,4672,5250,5255,1163,4485,5250,5255,1164,3760, & - 5250,5255,1165,3870,5250,5255,1166,4285,5250,5255,1167,4699, & - 5250,5255,1168,3749,5250,5255,1169,4464,5250,5255,1170,3973 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_13 = (/ & - 5250,5255,1171,3721,5250,5255,1172,4111,5250,5252,1173,4984, & - 5250,5255,1174,4635,5250,5255,1175,4846,5250,5255,1176,4628, & - 5250,5255,1177,3836,5250,5255,1178,5041,5250,5255,1179,3893, & - 3932,5250,1180,4515,5250,5255,1181,4098,5250,5255,1182,4921, & - 5250,5255,1183,3886,5250,5255,1184,4208,5250,5253,1185,4695, & - 5250,5255,1186,4185,5250,5255,1187,4317,5250,5255,1188,4016, & - 5250,5255,1189,4624,5250,5255,1190,4225,5250,5255,1191,4697, & - 5250,5255,1192,5059,5250,5255,1193,4836,5250,5255,1194,4562, & - 5043,5250,1195,5114,5250,5255,1196,5088,5250,5255,1197,4173, & - 5250,5255,1198,4417,5250,5255,1199,5245,5250,5255,1200,3817, & - 5250,5255,1201,5171,5250,5255,1202,3784,5250,5255,1203,3761, & - 5250,5255,1204,4735,5250,5255,1205,5236,5250,5255,1206,4198, & - 5250,5255,1207,4099,5250,5255,1208,4222,5250,5255,1209,4496, & - 5250,5255,1210,4649,5250,5255,1211,3811,5250,5255,1212,3926, & - 5250,5255,1213,4128,5250,5255,1214,4580,5250,5255,1215,4750, & - 5250,5255,1216,3817,5250,5252,1217,4318,5250,5255,1218,3648, & - 5250,5255,1219,4520,5250,5255,1220,4578,5250,5255,1221,4036, & - 5250,5255,1222,4753,5250,5255,1223,4434,5250,5255,1224,4165, & - 5250,5255,1225,3668,5250,5255,1226,4450,5250,5255,1227,4037, & - 5250,5255,1228,4181,5250,5255,1229,5075,5250,5255,1230,4022, & - 5250,5255,244,356,1231,3380,3762,5250,1232,3539,5250,5255, & - 1233,4431,5250,5255,1234,4874,5250,5255,1235,5181,5250,5255, & - 1236,4468,5250,5255,1237,4197,5250,5255,1238,4812,5250,5255, & - 1239,3637,5250,5255,1240,3866,5252,5256,1241,4091,5250,5255, & - 1242,5033,5250,5255,1243,4033,5250,5255,1244,4430,5250,5255, & - 1245,4764,5250,5255,1246,4617,5252,5256,1247,4638,5250,5255, & - 1248,4472,5250,5255,1249,4548,5250,5255,1250,4681,5250,5255, & - 1251,5099,5250,5255,1252,3725,5250,5255,1253,4246,5250,5255, & - 1254,4633,5250,5255,1255,4303,5250,5255,1256,4628,5250,5255, & - 368,1257,1890,4226,5250,1258,3634,5250,5255,1259,5112,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_14 = (/ & - 5255,1260,5196,5250,5255,1261,4433,5250,5255,1262,4880,5250, & - 5255,1263,4157,5250,5255,1264,3715,5250,5255,1265,4844,5250, & - 5255,1266,3981,5250,5255,1267,4766,5250,5255,1268,4435,5250, & - 5255,1269,3448,4330,5250,1270,3819,5250,5255,1271,4532,5250, & - 5255,1272,3950,5250,5255,1273,4276,5250,5255,1274,4656,5250, & - 5255,1275,4806,5250,5255,1276,4003,5250,5255,1277,5021,5250, & - 5255,1278,4204,5250,5255,1279,4015,5250,5255,1280,5132,5224, & - 5250,1281,4334,5250,5255,1282,3674,5250,5255,1283,4338,5250, & - 5255,1284,3720,5250,5252,1285,4255,5250,5255,1286,4088,5250, & - 5255,1287,3523,5250,5255,1288,4112,5250,5255,1289,5020,5250, & - 5255,1290,4760,5250,5255,1291,4665,5250,5255,1292,4170,5250, & - 5255,1293,4031,5250,5255,1294,4057,5250,5255,1295,3902,5250, & - 5255,1296,4892,5250,5255,1297,4146,4185,5250,1298,5186,5250, & - 5255,1299,4685,5250,5255,1300,4809,5250,5255,1301,3937,5250, & - 5255,1302,4579,5250,5255,1303,4063,5250,5255,1304,3731,5250, & - 5255,1305,4609,5250,5255,1306,3865,5250,5255,1307,3823,5250, & - 5255,1308,4021,5250,5255,1309,4511,5250,5255,1310,4055,5250, & - 5255,1311,4092,5250,5252,1312,4350,5250,5255,1313,5081,5250, & - 5255,1314,3883,5250,5255,1315,3807,5250,5255,1316,4626,5250, & - 5255,1317,5006,5250,5255,1318,4781,5250,5255,1319,5214,5250, & - 5255,1320,5004,5250,5255,1321,4348,5250,5252,1322,4217,5250, & - 5255,1323,4704,5250,5255,1324,3741,5250,5255,1325,4953,5250, & - 5255,1326,4722,5250,5255,1327,4517,5250,5255,1328,3841,5250, & - 5255,1329,4237,5250,5255,1330,4685,5250,5255,1331,4748,5250, & - 5255,1332,4944,5250,5255,1333,3951,5250,5255,1334,3920,5250, & - 5252,1335,3746,5250,5255,1336,4652,5250,5255,1337,4646,5250, & - 5255,1338,4429,5250,5255,1339,3743,5250,5255,1340,3989,5250, & - 5255,1341,3776,5250,5255,1342,4498,5250,5255,1343,4833,5250, & - 5255,1344,4854,5250,5255,1345,3975,5250,5255,1346,4758,5252, & - 5256,1347,5054,5250,5255,1348,4659,5250,5255,1349,3690,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_15 = (/ & - 5255,1350,5073,5250,5255,1351,4987,5250,5255,1352,3670,5250, & - 5255,1353,3955,5250,5255,1354,4892,5250,5255,1355,4375,5250, & - 5255,1356,4822,5250,5255,1357,4482,5250,5255,1358,4314,5250, & - 5255,1359,3983,5250,5255,1360,4191,5250,5255,1361,4023,5250, & - 5255,1362,3806,5250,5255,1363,4470,5250,5255,1364,4337,5250, & - 5255,1365,3658,5250,5255,1366,4039,5250,5255,1367,4119,5250, & - 5255,1368,4198,5250,5253,1369,5060,5129,5250,1370,4654,5250, & - 5255,1371,3850,5250,5255,440,1372,1373,5039,5250,1373,5039, & - 5250,5255,1374,3768,5250,5255,1375,5108,5250,5255,1376,4458, & - 5250,5255,1377,3987,5250,5255,1378,4680,5250,5255,1379,4200, & - 5250,5255,1380,5101,5250,5255,1381,3974,5250,5255,1382,3688, & - 5250,5255,1383,4898,5250,5255,1384,3872,3927,5250,1385,3492, & - 5250,5255,1386,4582,5135,5250,1387,3691,5250,5255,1388,3772, & - 5250,5255,1389,4198,5250,5255,1390,4166,5250,5255,1391,4143, & - 5250,5255,1392,4751,5250,5255,1393,4182,5250,5255,1394,5017, & - 5250,5255,1395,4372,5250,5255,1396,3650,5250,5255,1397,4042, & - 5250,5255,1398,4238,5250,5255,1399,4312,5250,5255,1400,4814, & - 5250,5252,1401,3751,5250,5255,1402,4485,5250,5255,1403,4692, & - 5250,5255,1404,4846,5250,5255,1405,4132,5250,5255,1406,4871, & - 5250,5255,1407,4989,5250,5255,1408,4653,5250,5255,1409,4654, & - 5250,5255,1410,3766,5250,5255,1411,5130,5250,5255,1412,3753, & - 5250,5255,1413,3722,5250,5255,1414,4597,5250,5255,1415,4718, & - 5250,5255,1416,3781,5250,5255,1417,4649,5250,5255,1418,4443, & - 5250,5255,1419,4075,5250,5255,1420,4298,5250,5255,1421,4002, & - 5250,5255,1422,4837,5250,5255,1423,4232,5250,5255,1424,4849, & - 5250,5255,1425,5167,5250,5255,1426,4101,5250,5255,1427,4067, & - 5250,5255,1428,4900,5250,5255,1429,4049,5250,5255,1430,3979, & - 5250,5255,1431,4068,5250,5255,1432,4680,5250,5255,1433,4816, & - 5250,5255,1434,4399,5250,5255,1435,3782,5250,5255,1436,4862, & - 5250,5255,1437,4830,5250,5255,1438,3939,5250,5255,1439,4342 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_16 = (/ & - 5250,5255,1440,4866,5250,5255,1441,4573,5250,5255,1442,4664, & - 5250,5255,1443,3695,5250,5255,1444,4363,5250,5255,1445,4087, & - 5250,5255,1446,4713,5250,5255,1447,4891,5250,5255,1448,4623, & - 5250,5255,1449,4219,5250,5255,1450,4064,5250,5255,1451,4028, & - 5250,5255,1452,4040,5250,5255,1453,4072,5250,5255,1454,4738, & - 5250,5255,1455,4726,5250,5255,1456,4591,5250,5255,1457,4460, & - 5250,5255,1458,3525,5250,5255,1459,4192,5250,5255,1460,4770, & - 5250,5255,1461,4456,5250,5255,1462,5029,5250,5255,1463,3908, & - 5250,5255,1464,4426,5250,5255,1465,4807,5250,5255,1466,5106, & - 5250,5255,1467,4539,5250,5255,1468,3994,5250,5255,1469,3894, & - 5250,5255,1470,3982,5250,5255,1471,5179,5250,5255,1472,4506, & - 5250,5255,1473,4132,5250,5255,1474,4686,5250,5255,1475,4962, & - 5250,5255,1476,4020,5250,5255,1477,4523,5250,5255,1478,4360, & - 5250,5255,1479,5131,5250,5255,1480,4863,5250,5255,1481,4633, & - 5250,5255,1482,4778,5250,5252,246,1192,1483,5059,5250,5255, & - 1484,3509,5250,5255,1485,4572,5250,5255,1486,4133,5250,5255, & - 1487,3907,5250,5255,1488,5056,5250,5255,1489,4910,5250,5255, & - 1490,5120,5250,5255,1491,5144,5250,5255,1492,4789,5250,5255, & - 247,1493,2312,4315,5250,1494,4739,5250,5255,1495,4118,5250, & - 5255,1496,4189,5250,5255,1497,3769,5250,5255,1498,4627,5250, & - 5255,1499,4357,5250,5255,1500,5125,5250,5255,1501,4586,5250, & - 5255,1502,3928,5250,5255,1503,3511,5250,5255,1504,4205,5250, & - 5255,1505,3882,5250,5255,1506,3967,5250,5255,1507,4839,5250, & - 5255,1508,4271,5250,5255,1509,5052,5250,5255,1510,4701,5250, & - 5255,1511,5044,5250,5255,1512,4304,5250,5255,1513,4807,5250, & - 5255,1514,3889,5250,5255,1515,3964,5250,5255,1516,4634,5250, & - 5255,1517,3876,5250,5255,1518,4658,5250,5255,1519,4196,5250, & - 5255,1520,3863,3867,5250,1521,3870,3961,5250,1522,4447,5250, & - 5255,1523,4940,5250,5255,1524,4252,5250,5255,1525,3527,5250, & - 5255,1526,4715,5250,5255,1527,4117,5250,5255,1528,3750,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_17 = (/ & - 5255,1529,4578,5250,5252,1530,3788,5250,5255,1531,4785,5250, & - 5252,1532,4193,5250,5255,1533,4529,5250,5255,1534,3704,5250, & - 5255,1535,4074,5250,5255,1536,3952,5250,5255,1537,4139,5250, & - 5255,1538,4346,5250,5255,1539,4065,5250,5255,1540,4484,5250, & - 5255,1541,4867,5250,5255,1542,3521,5250,5255,1543,4709,5250, & - 5255,1544,3874,5250,5255,1545,5136,5250,5255,1546,4442,5250, & - 5255,1547,5090,5250,5255,1548,4566,5250,1549,3820,5250,257, & - 1119,1550,1551,3011,3686,5250,5255,1551,3686,5250,5252,1552, & - 1907,2419,4058,5252,5256,1553,2672,2753,4127,5252,5256,1554, & - 3825,5250,1555,3791,5250,608,1556,3291,4105,5250,5252,5256, & - 1557,4967,5250,1558,4976,5250,1559,1992,2218,3667,5252,5256, & - 1560,4897,5250,1561,4242,5250,1562,4817,5250,1563,2835,3046, & - 3961,5252,5256,1564,2543,2653,3869,5252,5256,1036,1565,2023, & - 2058,3921,3936,5250,1566,4446,5250,1567,3665,5250,1568,2235, & - 2261,4411,5252,5256,1569,5249,5258,1570,4358,5250,1571,4369, & - 5250, 24,1147,1572,4092,5250,5252,5255,5256,181,1573,5250, & - 5256,1574,2774,3077,5053,5252,5256,1575,3552,5250,1576,4813, & - 5250,1577,4901,5250,1578,4674,5250,657,1139,1579,4142,5250, & - 5252,5255,5256,1580,5250,5256,1520,1581,1911,1915,3863,3867, & - 5250,1582,4698,5250,1583,1584,1968,4311,5252,5256,1584,4311, & - 5250,1585,4148,5250,1586,4145,5250,1587,4594,5250,1588,4432, & - 5250,1589,3641,5250,266,1149,1590,1591,2613,3764,5250,5255, & - 1591,3764,5250,5252,1592,2715,3328,5098,5252,5256,1593,2664, & - 2810,4614,5252,5256,1594,3631,5250,1595,3035,3409,4858,5252, & - 5256,1596,4876,5250,1597,2764,2976,4612,5252,5256,1598,4667, & - 5250,1599,4356,5250,1600,4935,5250,1601,4365,5250,1602,4861, & - 5250,1603,4066,5250,336,904,1604,2296,3398,3852,5250,5255, & - 457,1325,1605,4953,5250,5252,5255,5256, 58,1443,1606,3695, & - 5250,5252,5255,5256,664,1191,1607,4697,5250,5252,5255,5256, & - 864,1489,1608,4910,5250,5252,5255,5256,1609,4483,5250,1609 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_18 = (/ & - 1610,1836,4483,5250,1611,4754,5250,1612,4746,5250,1613,3813, & - 5250,1614,1801,2524,4385,5252,5256,1615,4135,5250,1616,2761, & - 2871,3885,5252,5256,515,1511,1617,5044,5250,5252,5255,5256, & - 1618,4418,5250,1619,4542,5250,118,965,1620,4734,5250,5252, & - 5255,5256,1621,4804,5250, 38,1129,1622,4480,5250,5252,5255, & - 5256,1623,4683,5250,496,1407,1624,4989,5250,5252,5255,5256, & - 1625,3625,5250,1626,4159,5250,1627,2633,2713,3859,5252,5256, & - 248,1286,1628,1629,2648,4088,5250,5255,1629,4088,5250,5252, & - 1630,4236,5250,1630,1631,2386,4236,5250,5252,5256,1632,4811, & - 5250,1633,4802,5250,1634,2044,3394,5228,5252,5256,1635,5238, & - 5250,1636,4675,5250,1637,3948,5250,1638,2893,3418,4852,5252, & - 5256,1639,3601,5250,1560,1640,1873,4897,5250,5252,5256,1641, & - 5238,5250,1642,5049,5258,1643,1731,2017,3338,4150,5250,1644, & - 4732,5250,1645,3385,4038,5252,5253,5256,1646,4169,5250,1647, & - 3663,5250,410,1413,1648,1649,2829,3722,5250,5255,1649,3722, & - 5250,5252,1650,2129,2940,4827,5252,5256,1651,3485,5250,725, & - 1130,1652,4459,5250,5252,5255,5256,1653,3944,5250,1653,1654, & - 2244,3944,5250,5252,5256,1655,4885,5250,467,830,1656,1657, & - 2781,4043,5250,5255,1657,4043,5250,5252,1658,4126,5250,1659, & - 4911,5250,382,1546,1660,2136,3613,4442,5250,5255,1661,4113, & - 5118,5168,5252,5256,1662,2126,2427,5145,5252,5256,1663,2513, & - 3038,3854,5252,5256,1664,3796,5250,1665,4992,5250,1666,3814, & - 5250,1667,2519,2785,3893,5252,5256,1668,5028,5250,1669,3828, & - 5250,1670,4889,5250,1671,4780,5250,1672,3799,5250,1673,5081, & - 5250,1674,4355,5250,100,944,1675,3752,5250,5252,5255,5256, & - 1676,4987,5250,1637,1677,2426,3948,5250,5252,5256,1678,4136, & - 5250,1679,2306,2456,4995,5252,5256, 46,1252,1680,3725,5250, & - 5252,5255,5256,1681,4347,5250,1682,5002,5250,1683,4589,5250, & - 1684,3550,3628,5134,5252,5256,458,1685,5173,5250,1686,5229, & - 5250,1687,4761,5250,1688,5238,5250,1351,1676,1689,4987,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_19 = (/ & - 5252,5255,5256,1690,4584,5250,1561,1691,1887,4242,5250,5252, & - 5256,1692,2182,2233,3778,5252,5256,1693,4880,5250,1694,3889, & - 5250,1695,1974,2292,5229,5252,5256,502,1089,1696,2943,3034, & - 3706,5250,5255,1697,5208,5250,1698,4513,5250,1699,2878,3376, & - 4390,5252,5256,1700,3808,5250,1701,4755,5250,1702,2338,2463, & - 3847,5252,5256,1703,3147,5250,1704,4583,5250,1705,4827,5250, & - 1384,1706,1973,1995,3872,3927,5250,1707,4349,5250,1708,5238, & - 5250,1709,5238,5250, 63,928,1710,4481,5250,5252,5255,5256, & - 1711,4367,5250,1711,1712,2572,4367,5250, 41,1020,1713,3705, & - 5250,5252,5255,5256,1514,1694,1714,3889,5250,5252,5255,5256, & - 1715,2237,2339,4755,5252,5256,1716,3810,5250,1717,3815,5250, & - 1718,4144,5250,1719,4581,5250,1720,1902,2127,3758,5252,5256, & - 1721,2775,2934,3873,5252,5256,1722,4309,5250,1722,1723,2084, & - 4309,5250,5252,5256,1724,2214,2942,4137,5252,5256,1725,1880, & - 2106,3884,5252,5256,1726,4706,5250, 73,838,1727,4422,5250, & - 5252,5255,5256,208,1728,2672,2753,4127,5250,5255,1729,3659, & - 5250,1730,5147,5250,1731,4150,5250,789,1094,1732,4410,5250, & - 5252,5255,5256,1733,5142,5250,1734,4835,5250,1735,4070,5250, & - 1001,1736,2160,2184,3963,3971,5250,1737,2558,3341,4336,5252, & - 5256,1056,1738,2266,2288,3920,3966,5250,489,1509,1739,5052, & - 5250,5252,5255,5256,1740,4361,5250,1741,2628,2913,4980,5252, & - 5256,1742,4756,5250,1743,2187,2375,3676,5252,5256,1744,4389, & - 5250, 39,1530,1745,3788,5250,5252,5255,5256,1746,4988,5258, & - 1747,3827,5250,1748,3625,5074,5252,5256,1749,5142,5250,5252, & - 1733,1749,1750,2188,5142,5250,5252,5256,1751,4696,5250,5255, & - 1752,4363,5250,5252,1753,5061,5250,5255, 32,1171,1754,3188, & - 3721,5250,5252,5255,5256,1165,1755,2509,3870,5250,5252,5255, & - 5256,430,1181,1756,4098,5250,5255,1757,4960,5250,5255,1758, & - 3990,5250,5255,1759,4274,5250,5255,1760,3238,4667,5252,5256, & - 1761,3327,4295,5250,5255,1762,4552,5250,5255,1763,3317,4666 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_20 = (/ & - 5250,5255,1764,4999,5232,5250,5255,1765,3227,4740,5250,5255, & - 1766,3974,5250,5252,1767,4607,5250,5255,1768,4661,5250,5255, & - 1769,2737,4542,5252,5256,1770,4266,5250,5255,1771,5041,5250, & - 5252,1772,3525,5250,5252,1458,1772,1773,3525,5250,5252,5255, & - 5256,1774,5135,5250,5255,1775,4603,5250,5256,1776,4555,5258, & - 1777,4765,5250,1778,5096,5250,5255,1779,4778,5250,5255,1780, & - 3751,5250,5252,1401,1780,1781,3751,5250,5252,5255,5256,1782, & - 4387,5007,5250,5252,1783,4535,5250,5255,1784,4875,5250,5255, & - 1785,4579,5149,5250,5252,1786,4342,5250,5252,1787,3267,4565, & - 5252,5256,1788,3894,5250,5252, 64,1469,1788,1789,3894,5250, & - 5252,5255,5256,1587,1790,3314,4594,5250,1742,1791,2836,4756, & - 5250,1341,1792,1794,3776,5250,5252,5255,5256,1793,4136,5250, & - 5255,1794,3776,5250,5252,1795,5013,5205,5258,966,1796,2302, & - 3481,5250,5252,5255,5256,1797,2690,4070,5250,1798,3967,5250, & - 5252,1506,1798,1799,3967,5250,5252,5255,5256,1800,5185,5250, & - 5252,1801,4385,5250,5255,1802,4817,5250,5255,400,1390,1803, & - 2759,4166,5250,5252,5255,5256,1804,4518,5250,5255,1805,4045, & - 5250,5256,1588,1806,2501,4432,5250,1807,3278,3909,5250,1808, & - 3198,4585,5252,5256,1809,5195,5250,5255,1810,4125,5001,5252, & - 5256,1811,3750,5250,5252,527,1528,1811,1812,3750,5250,5252, & - 5255,5256,1813,4162,5250,5252,1060,1813,1814,4162,5250,5252, & - 5255,5256,1815,3243,4596,5252,5256,1816,4229,5250,5255,1817, & - 2487,5238,5250,547,1411,1818,2802,5130,5250,5252,5255,5256, & - 1819,3509,5250,5252,1484,1819,1820,3509,5250,5252,5255,5256, & - 922,1821,2309,3507,5250,5252,5255,5256,1131,1822,2078,3790, & - 5250,5252,5255,5256,1823,4900,5250,5252,1824,5107,5250,5252, & - 1825,3708,5197,5252,5256,1557,1826,3528,4967,5250,1827,4582, & - 4879,5250,5252,1619,1828,2737,4542,5250,1829,4251,5250,5252, & - 1830,4381,5250,5255,1831,4586,5250,5252,1690,1832,3078,4584, & - 5250,713,1833,3366,3897,5011,5250,5252,5256,1611,1834,2469 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_21 = (/ & - 4754,5250,1835,3850,5250,5252,1836,4483,5250,5255,1837,4835, & - 5250,5255,1340,1838,2555,3989,5250,5252,5255,5256,1839,4369, & - 5250,5255,1840,4069,5250,5255,1841,4581,5250,5252,1842,5116, & - 5250,5255,281,1843,2439,4762,5250,1844,3943,5250,5255,1845, & - 4379,5250,5256,1846,4087,5250,5252,1445,1846,1847,4087,5250, & - 5252,5255,5256,1848,3449,4339,5252,5256,1849,4171,5250,5255, & - 1850,3677,5250,5255,1851,4414,5250,5255,209,1214,1852,2701, & - 4580,5250,5252,5255,5256,1853,4923,5250,1854,4550,5250,5255, & - 1855,4974,5250,5255,1856,5150,5250,5252,1857,4905,5250,1718, & - 1858,2727,4144,5250,1859,4351,5250,5255,1542,1860,1881,3521, & - 5250,5252,5255,5256,1861,3696,5250,5255,1862,3844,5250,5255, & - 1863,4761,5250,5255,1864,4219,5250,5252,1449,1864,1865,4219, & - 5250,5252,5255,5256,1866,3462,4783,5252,5256,1305,1867,2817, & - 4609,5250,5252,5255,5256,1868,4176,5250,5255,1869,4368,5250, & - 5255,321,1869,1870,2405,4368,4595,5250,5255,1871,4147,5250, & - 5255,1872,2805,4353,5252,5256,1873,4897,5250,5255,1874,4657, & - 5250,5255,1875,4572,5250,1876,4784,5250,5255,1877,3289,4598, & - 5252,5256,1878,3439,3440,5250,1879,4620,5250,5255,1880,3884, & - 5250,5255,1881,3521,5250,5252,1882,3256,4554,5252,5256,1883, & - 3743,5250,5252,1884,4348,5250,5255,1885,5147,5250,5255,1886, & - 4645,5250,5255,1887,4242,5250,5255,1888,4268,5250,5255,1889, & - 3952,5250,5252,1890,4226,5250,5255,1891,3618,4982,5252,5256, & - 1892,3217,4123,5252,5256,1893,2868,4926,5250,5255,1894,4364, & - 4596,5250,5252,1895,5246,5250,5252,1896,3798,5250,5252,1897, & - 4161,5250,5255,1898,3727,5250,5255,1899,5121,5250,5255,1900, & - 5122,5250,5255,1901,4768,5250,5255,1902,3758,5250,5252,1385, & - 1903,2232,3492,5250,5252,5255,5256,1904,4784,5250,5252,1905, & - 3994,5250,5252,1108,1906,2198,4310,5250,5252,5255,5256,1907, & - 4058,5250,5255,1908,4566,5250,5255,1909,3496,5250,5252,1102, & - 1909,1910,3496,5250,5252,5255,5256,1911,3867,5250,5255,1912 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_22 = (/ & - 3848,5250,5252,371,1900,1913,5122,5250,5255,1914,4870,5250, & - 5255,1915,3867,3940,5250,5252,1916,4724,5250,1917,4589,5250, & - 5255,1918,3883,5250,5252,1919,4766,5250,5252,1920,4673,5250, & - 5255,1921,5208,5250,5252,1922,3637,5250,5252,1239,1922,1923, & - 3637,5250,5252,5255,5256,1924,3444,4647,5252,5256,1925,3006, & - 3436,5250,1926,4343,5250,5255,1927,3308,4582,5252,5256,1928, & - 4199,5250,1929,3410,3447,3591,5250,1930,3902,5250,5252,1295, & - 1930,1931,3902,5250,5252,5255,5256,1932,4340,5250,5255,1933, & - 4789,5250,5252,1934,5019,5250,1935,4158,5250,5255,1936,4326, & - 5250,5256,1937,3912,5250,5255,1938,4885,5250,5255,1939,4658, & - 5250,5253,1940,4702,5250,5255,1941,4019,5250,5252,948,1941, & - 1942,4019,5250,5252,5255,5256,1943,4163,5250,5255,1944,3299, & - 5129,5252,5256,1375,1945,2917,5108,5250,5252,5255,5256,1946, & - 5062,5250,5252,1947,4284,5250,5255,1948,4473,5250,5255,1949, & - 4688,5250,5255,1950,5028,5250,5255,1951,2601,4675,5252,5256, & - 1952,4610,5250,5252,340,1953,2920,3315,4857,5250,1954,4583, & - 5250,5252,1955,3201,4711,5252,5256,1956,4687,5250,5255,1957, & - 4143,4959,5250,5252,1958,4131,5250,5255,1959,5153,5258,1960, & - 3453,4877,5252,5256,927,1961,2908,3890,5250,5252,5255,5256, & - 133,980,1962,2839,4121,5250,5252,5255,5256,1963,4573,5250, & - 5252,1964,3811,5250,5252,1965,5192,5250,5252,1966,4733,5250, & - 5255,1967,3273,3801,5252,5256,1968,4311,5250,5255,1969,4516, & - 5250,5255,1970,4739,5250,5255,1352,1971,3102,3670,5250,5252, & - 5255,5256,1972,3698,5250,5252,1973,3927,5250,5255,1974,5229, & - 5250,5252,104,912,1975,2888,4090,5250,5252,5255,5256,1976, & - 4140,4473,5250,5252,1977,4562,4881,5250,5252,1978,5120,5250, & - 5252,1979,3679,5250,5255,1980,4880,5250,5252,1981,4945,5250, & - 1982,4102,5250,5255,1983,3444,4841,5250,5255,526,1496,1984, & - 2812,4189,5250,5252,5255,5256,1985,3838,5250,5255,955,1986, & - 2673,4172,5250,5252,5255,5256,1987,4942,5250,5252,1988,4887 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_23 = (/ & - 5250,520,1263,1989,3447,4157,5250,5252,5255,5256,1990,3969, & - 5250,5255,1991,4066,5250,1992,3667,5250,5255,1993,4541,5250, & - 5255,1994,5148,5250,5255,1995,3927,3969,5250,5252,1996,5084, & - 5250,5252,1997,4405,5250,5255,1478,1998,3015,4360,5250,5252, & - 5255,5256,1999,4804,5250,5255,1562,1938,2000,4817,4885,5250, & - 5252,5255,5256,2001,4161,4561,5250,2002,5198,5250,5255,2003, & - 4519,5250,5253,2004,3330,4936,5252,5256,2005,3205,4359,5252, & - 5256,2006,4562,5250,5255,2007,3950,5250,5252,2008,2373,4249, & - 5252,5256,2009,4354,5250,5255,2010,4364,5250,5255,2011,4587, & - 5135,5250,5252,2012,3208,5149,5252,5256,2013,5051,5258,2014, & - 3523,5250,5252,1287,2014,2015,3523,5250,5252,5255,5256,2016, & - 3941,5250,5255,2017,4150,5250,5255,2018,4418,5250,5255,2019, & - 4886,5250,5255,2020,5181,5250,5252,1896,2021,3798,5250,5252, & - 2022,4135,5250,5255,2023,3936,3943,5250,5252,2024,3274,4384, & - 5252,5256,2025,4689,5250,5255,2026,4744,5250,5255,2027,3881, & - 5250,5255,1621,2028,4804,5250,2029,3623,4780,5252,5256,836, & - 2030,2189,3718,5250,5252,5255,5256,1387,2031,2387,3691,5250, & - 5252,5255,5256,2032,3715,5250,5252,772,1264,2032,2033,3715, & - 5250,5252,5255,5256,2034,3668,5250,5252,767,1225,2034,2035, & - 3668,5250,5252,5255,5256,2036,4433,5250,5255,2037,4112,5129, & - 5250,5252,2038,5024,5124,5258,2039,4329,5250,5255,2040,3634, & - 5250,5252,1258,2040,2041,3634,5250,5252,5255,5256,2042,5190, & - 5258,2043,2695,4341,5250,2044,5228,5250,5255,2045,4334,5250, & - 5252,2046,3685,5250,5255,2047,3814,5250,5255,2048,4322,5250, & - 5256,2049,5119,5250,5252,964,2049,2050,5119,5250,5252,5255, & - 5256,2051,3487,4740,5250,5255,2052,4349,5250,5255,2053,3739, & - 5250,5255,2054,4488,5250,5256,2055,4241,5250,5255,418,942, & - 2056,2532,3845,5250,5252,5255,5256,2057,5192,5250,5255,2058, & - 3936,5250,5255,2059,4389,5250,5255,1349,2060,2206,3690,5250, & - 5252,5255,5256,2061,5236,5250,5252,2062,4538,5250,5255,2063 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_24 = (/ & - 3703,5250,5252,2064,4154,5250,5255,2065,3940,5250,5255,2066, & - 3265,4767,5252,5256,2067,4608,4702,5250,5252,2068,3671,5250, & - 5255,2069,4700,5250,5255,2070,5246,5250,5255,2071,4567,5250, & - 5255,2072,4059,5250,5252,1126,2072,2073,4059,5250,5252,5255, & - 5256,2074,4374,5250,5252,2075,4616,5250,5252,1143,2075,2076, & - 4616,5250,5252,5255,5256,2077,4705,5250,5252,2078,3790,5250, & - 5252,2079,3901,5250,5252,2080,4724,5250,5255,2081,5168,5220, & - 5258,2082,4731,5250,5255,2083,5161,5250,5252,2084,4309,5250, & - 5255,2085,3261,4180,5252,5256,2086,5109,5250,5252,2087,3797, & - 5250,5252,1150,2087,2088,3797,5250,5252,5255,5256,2089,3669, & - 5250,5255,2090,3310,4959,5252,5256,2091,4025,5250,5255,2092, & - 5097,5250,5252,2093,4327,5250,5255,2094,5146,5250,5252,2095, & - 3871,5250,5255,2096,4171,5195,5250,5252,2097,5077,5250,5252, & - 2098,3920,5250,5255,2099,3658,5250,5252,1365,2099,2100,3658, & - 5250,5252,5255,5256,2101,5074,5154,5250,2102,3229,4005,5250, & - 5255,2103,3921,5250,5255,2104,5066,5258,2105,4208,5250,5255, & - 2106,3884,5250,5252,2107,4929,5250,5255,2108,5206,5250,5252, & - 2109,5174,5250,5255,2110,4553,5250,5255,2111,4497,5250,5255, & - 2112,3459,4732,5252,5256,2113,5065,5250,5252,2114,4719,5250, & - 5255,2115,4549,5250,5255,2116,4230,5250,5255,2117,2559,4683, & - 5252,5256,2118,5032,5250,1668,1950,2119,5028,5250,5255,2120, & - 4424,5250,5255,2121,4361,5250,5255,1304,2122,2268,3731,5250, & - 5252,5255,5256,2123,4646,5250,5252,2124,4713,5250,5252,2125, & - 4587,5250,5255,2126,5145,5250,5255,2127,3758,5250,5255,2128, & - 4870,5250,5252,2129,4590,5250,2130,5204,5252,5256,2131,4557, & - 5250,5255,1612,2132,3043,4746,5250,2133,4608,5250,5255,1716, & - 2134,2900,3810,5250,2135,5043,5250,5255,2136,4442,5250,5252, & - 2137,4813,5250,5255,2138,5025,5250,5255,2139,4812,5250,5255, & - 2140,4912,5029,5250,5255,1615,2022,2141,4135,5250,5255,2142, & - 4220,5250,5255,2143,3307,4257,5250,5255,2144,4260,5250,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_25 = (/ & - 2145,2797,3992,5252,5256,2146,4301,5250,5255,2147,5015,5250, & - 5255,2148,4094,5258,2149,5186,5250,5252,2150,5152,5250,5255, & - 2151,4290,5250,5255,2152,4440,5250,5255,2153,4477,5250,5255, & - 377,1868,2154,4176,5250,5255,2155,4197,5250,5252,2156,4060, & - 5250,5255,2157,3789,5250,5252,2158,3266,4476,5252,5256,2159, & - 4214,5250,5255,2160,3963,5250,5255,2161,5144,5250,5252,2162, & - 3552,5173,5252,5256,1217,2163,3399,4318,5250,5252,5255,5256, & - 2164,4672,5250,5252,2165,4940,5250,5252,2166,4590,5250,5255, & - 2167,4012,5250,5256,2168,4733,5250,5252,2169,5082,5250,5252, & - 2170,3043,4746,5252,5256,2171,4404,5250,5255,2172,3932,5250, & - 5252,831,2172,2173,3932,5250,5252,5255,5256,2174,4925,5250, & - 5255,2175,3435,3445,5250,2176,4470,5250,5255,2177,3199,4376, & - 5250,5255,2178,3971,5250,5255,2179,4972,5250,5255,2180,3891, & - 5250,5255,2181,3921,4925,5250,5252,2182,3778,5250,5252,2183, & - 4753,5250,5255,2184,3891,3963,5250,5252,2185,4716,5250,5252, & - 2186,3055,4765,5252,5256,2187,3676,5250,5255,2188,5142,5250, & - 5255,2189,3718,5250,5252,1212,1621,2190,3926,4804,5250,5252, & - 5255,5256,2191,4436,5250,5255,2192,5077,5250,5255,2193,4901, & - 5250,5252,2194,4571,5250,5252,2195,4748,5250,5252,2196,4876, & - 5250,5252,1191,2197,4697,5250,5255,2198,4310,5250,5252,2199, & - 5045,5250,5252,2200,3022,4513,5252,5256,2201,2930,4138,5252, & - 5256,2202,3688,5250,5252,2203,2723,4235,5252,5256,2204,4030, & - 5250,5255,2205,3880,5250,5255,2206,3690,5250,5252, 79,1266, & - 2207,2943,3981,5250,5252,5255,5256,2208,4206,5250,5255,482, & - 1019,2209,4120,5250,5255,2210,2975,4648,5252,5256,2211,5243, & - 5250,5255,2212,4508,5258,2213,4356,5250,5252,2214,4137,5250, & - 5255,2215,5081,5250,5252,2216,5112,5250,5252,2217,3984,5250, & - 5255,2218,3667,5250,5252,2219,4924,5250,5255,2220,5116,5250, & - 5252,2221,4355,5250,5255,2222,3636,4372,5250,5252,2223,4901, & - 5250,5255,2224,3908,5250,5252,2225,3318,4000,5250,5255,1505 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_26 = (/ & - 2226,2855,3882,5250,5252,5255,5256,2227,5163,5250,5255,2228, & - 4502,5250,5255,2229,3277,5202,5252,5256,226,2230,3621,5091, & - 5250,1585,2231,2362,4148,5250,2232,3492,5250,5252,2233,3778, & - 5250,5255,2234,2501,4432,5252,5256,2235,4411,5250,5255,2236, & - 4894,5250,5255,2237,4755,5250,5252,2238,2971,4277,5252,5256, & - 2239,4394,5250,5252,2240,5036,5250,5253,2241,3803,5250,5252, & - 2242,3898,5250,5252,2243,3160,3635,5250,2244,3944,5250,5255, & - 2245,4712,5250,5252,2246,5061,5250,5252,2247,5150,5250,5255, & - 2248,4202,5250,5255,2249,3240,4321,5252,5256,2250,5114,5250, & - 5252,2251,4207,5250,5255,2252,5219,5250,5255,2253,4704,5250, & - 5252,2254,4541,5250,5252,608,2255,3291,4105,5250,2256,4128, & - 5250,5252,2257,4216,5250,5252,2258,5093,5258,2259,3854,3859, & - 5250,2260,4595,5250,5255,2261,4411,5250,5252,2262,3945,5250, & - 5255,2263,4441,5250,5255,2264,5082,5250,5255,1586,2265,2305, & - 4145,5250,2266,3966,5250,5255,2267,3687,5250,5255,2268,3731, & - 5250,5252,2269,4581,5250,5255,2270,4735,5250,5252,2271,4709, & - 5250,5252,2272,3496,3653,5093,5250,219,2071,2273,4567,5250, & - 5255,2274,4619,5250,5256,2275,4196,5250,5252,2276,4554,4585, & - 5250,5252,2277,4696,5250,5252,2278,4593,5096,5250,5252,2279, & - 2556,3899,5252,5256,2280,4249,5250,5252,2281,4799,5250,5256, & - 2282,4903,5250,5252,2283,3220,4592,5250,5255,1168,2284,2299, & - 3749,5250,5252,5255,5256,2285,5163,5250,5252,2286,5200,5258, & - 2287,3451,4905,5252,5256,2288,3844,3966,5250,5252,2289,3864, & - 5250,5255,2290,4427,5250,5255,2291,4577,5250,5252,2292,5229, & - 5250,5255, 99,883,2293,2621,5104,5250,5252,5255,5256,2294, & - 3738,5250,5255,358,2204,2295,4030,5250,5255,2296,3852,5250, & - 5252,2297,4714,4767,5250,5252,2298,3919,5250,5255,2299,3749, & - 5250,5252,2300,4820,5250,5255,2301,4215,5250,5255,2302,3481, & - 5250,5252,2303,3855,5250,5252,1077,2303,2304,3855,5250,5252, & - 5255,5256,2305,4145,5250,5255,2306,4995,5250,5252,2307,4168 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_27 = (/ & - 5250,5255,2308,5217,5252,5256,2309,3507,5250,5252,2310,3666, & - 4152,5250,2311,4825,5250,5252,2312,4315,5250,5255,2313,5198, & - 5250,5252,2314,4522,5250,5255,1687,1863,2315,4761,5250,5255, & - 2316,3977,5250,5255,2317,4003,5250,5252,2318,5208,5250,5255, & - 2319,4243,5250,5255,2320,4209,5250,5255,2321,3807,5250,5252, & - 1315,2321,2322,3807,5250,5252,5255,5256,2323,2540,4563,5252, & - 5256,1059,2324,2462,4089,5250,5252,5255,5256,2325,3886,5250, & - 5252,2326,4383,4909,5241,5252,5255,5256,2327,4319,5250,5252, & - 2328,3858,5250,5252,2329,4228,5250,5255,2330,4715,5250,5252, & - 2331,4251,5250,5255,2332,4597,5250,5252,2333,3819,5250,5252, & - 1270,2333,2334,3819,5250,5252,5255,5256,2335,3154,3628,5250, & - 2336,4184,5250,2337,5147,5250,5252,2338,3847,5250,5252,2339, & - 4755,5250,5255,2340,4824,4849,5250,5255,2341,4399,5250,5252, & - 2342,4323,5250,5255,2343,4097,4146,5250,5252,2344,4719,5250, & - 2345,3620,5250,2346,4428,5250,5255,2347,3990,5250,5252,2348, & - 3976,5250,5255,2349,4324,5250,5255,2350,4974,5250,5252,2351, & - 4076,5250,5255,2352,3962,5250,5252,2353,3303,4050,5250,5255, & - 2354,5091,5250,5252,2355,4571,5250,5255,2356,2357,3452,4899, & - 5250,5252,5256,2357,4899,5250,2358,4787,5250,5255,2359,5249, & - 5258,2360,3954,5250,5255,1326,2361,3212,4722,5250,5252,5255, & - 5256,2362,4148,5250,5255,2363,4881,5250,5255,2364,4908,5243, & - 5250,5255,2365,5151,5250,5252,2366,4723,5250,5255,2367,4574, & - 4645,5250,5252,2368,4153,5250,5255,2369,4777,5250,5255,2370, & - 4607,4884,5250,5252,2371,4283,5250,5255,2372,4055,5250,5252, & - 2373,4249,5250,5255,1265,2374,2542,4844,5250,5252,5255,5256, & - 2375,3676,5250,5252,2376,2609,4823,5252,5256,821,1260,2377, & - 2458,2533,3335,5196,5250,5255,2378,3985,5250,5252,2379,3232, & - 4041,5250,5255,2380,5019,5250,5255,958,2381,4926,4957,5250, & - 5255,2382,3443,5250,2383,3823,5250,5252,2384,4275,5250,5255, & - 2385,5238,5250,2386,4236,5250,5255,2387,3691,5250,5252,2388 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_28 = (/ & - 4445,5250,5255,2389,3680,5250,5255,2390,4533,5250,5256,2391, & - 5185,5250,5255,2392,5035,5250,5255,2393,5076,5258,2394,4593, & - 5250,5255,1658,2395,3287,4126,5250,2396,4281,5250,5255,2397, & - 5117,5250,5255,2398,4743,5250,5256,918,2399,3533,5239,5250, & - 5252,5255,5256,2400,5161,5250,5255,2401,4356,5250,5255,2402, & - 4269,5250,5255,2403,4886,5250,5252,2404,4560,5250,5255,2405, & - 4368,5250,5252,2406,3804,5250,5252,2407,3872,5250,5255,2408, & - 4764,5250,5252,2409,5045,5250,5255,2410,5038,5250,5255,2411, & - 3916,5250,5255,2412,5232,5250,5255,2413,4714,5250,5255,2414, & - 4489,5250,5255, 95,1241,2415,2626,4091,5250,5252,5255,5256, & - 2416,4942,5250,5255,2417,4416,5250,5255,2418,3794,5250,5252, & - 2419,4058,5250,5252,2420,4152,5250,5256,2421,5121,5202,5250, & - 2422,5109,5250,5255,2423,3905,5250,5255,2424,4169,5250,5255, & - 2425,4907,5258,2426,3948,5250,5255,2427,5145,5250,5252,2428, & - 4446,5250,5255,2429,4460,5250,5255,2430,2769,4742,5252,5256, & - 2431,4259,5250,5255,2432,5138,5250,5252,2433,4370,5202,5250, & - 5252,2434,4316,5250,5255,2435,5062,5250,5255,2436,5127,5250, & - 5252,2437,4116,5250,5255,1671,2438,3623,4780,5250,2439,4762, & - 5250,5255,2440,4130,5250,5255,2441,4598,4972,5250,5252,2442, & - 4370,5250,5255,2443,4253,5250,5255,2444,3841,5250,5252,2445, & - 4644,5250,5255,2446,3762,5250,5255,2447,4476,4782,5250,5252, & - 1698,2448,3022,4513,5250,2449,4782,5250,5255,2450,3724,5250, & - 5255,2451,3863,5250,5255,354,1353,2452,2742,3955,5250,5252, & - 5255,5256,2453,3836,5250,5252,2454,3692,5250,5255,2455,4884, & - 5250,5255,2456,4995,5250,5255,493,1367,2457,2629,4119,5250, & - 5252,5255,5256,2458,5196,5250,5252,2459,5148,5250,5252,2460, & - 4452,5250,5255,2461,4060,5250,5252,2462,4089,5250,5252,2463, & - 3847,5250,5255,2464,4448,5250,5256,298,855,2465,2687,4981, & - 5250,5252,5255,5256,2466,4889,5250,5255,392,2467,3214,4669, & - 5250,2468,3903,5250,2469,4754,5250,5255,2470,4988,5258,142 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_29 = (/ & - 2471,3478,3712,4029,4062,4071,4086,5250,2472,4393,5250,578, & - 1080,2473,3198,3888,4585,5250,5252,5255,5256,2474,4388,5250, & - 2475,4625,5250,2476,5166,5258,2477,4893,5250,1562,2478,4817, & - 5250,2479,5227,5258,516,1059,2324,2462,2480,2626,2888,4089, & - 5250,5252,5255,5256,2481,5050,5258,2482,4558,5250,2483,4779, & - 5250,2484,4897,5250,2485,4877,5250,305,2486,4599,5250,2487, & - 4527,5258, 85,2488,3582,3723,3765,4024,4328,4507,5250,2489, & - 4615,5258,1069,2490,3076,4980,5078,5250,5252,5255,5256,2491, & - 4378,5250,622,1224,2492,4165,5250,5252,5255,5256,1672,2493, & - 3319,3799,5250,5252,5256,2494,4414,5250,5255,311,1071,2495, & - 3840,5250,5252,5255,5256,2496,5088,5250,5253,2497,4774,5250, & - 5255,2498,4209,5250,5253,2499,3791,5250,5255,2500,5152,5250, & - 5253,2501,4432,5250,5255,1288,2502,4112,5250,5252,5255,5256, & - 2503,5007,5250,5255,2504,4968,5250,5253,2505,4218,5250,5253, & - 1747,2506,3253,3827,5250,5252,5256,2507,4831,5250,5255,1468, & - 2508,3994,5250,5252,5255,5256,2509,3870,5250,5252,2510,4759, & - 5250,5253,2511,5038,5250,5253,317,1012,2512,3985,5250,5252, & - 5255,5256,2513,3854,5250,5252,2514,4357,5250,5252,2515,4484, & - 5250,5253,920,2516,4146,5250,5252,5255,5256,2517,4222,5250, & - 5253,2518,4846,5250,5253,2519,3893,5250,5252,2520,3813,5250, & - 5255,350,1021,2521,3853,5250,5252,5255,5256,2522,4452,5250, & - 5253,2523,4659,5250,5253,2524,4385,5250,5252,2525,5164,5250, & - 5253,875,2526,4382,5250,5252,5255,5256,2527,4660,5250,5253, & - 586,1337,2123,2528,4646,5250,5252,5255,5256,2529,4267,5250, & - 5253,2530,4220,5250,5253,2531,4516,5250,5253,2532,3845,5250, & - 5252,2533,4849,5250,5253,2534,4099,5250,5252,979,2535,4195, & - 5250,5252,5255,5256,1096,2536,4265,5250,5252,5255,5256,2537, & - 5125,5250,5253,2538,4502,5250,5253,1895,2070,2539,5246,5250, & - 5252,5255,5256,2540,4563,5250,5255,2541,4046,5250,5255,2542, & - 4844,5250,5252,2543,3869,5250,5255,2544,5224,5250,5255, 55 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_30 = (/ & - 1438,2545,3939,5250,5252,5255,5256,2546,4957,5250,5253,2129, & - 2166,2547,4590,5250,5255,2548,3361,3421,3574,3579,5250,1778, & - 2549,5096,5250,5252,5255,5256,1897,2550,4161,5250,5252,5255, & - 5256,1187,2551,4317,5250,5252,5255,5256,2552,4808,5250,5253, & - 2553,4561,5250,5255,2554,5033,5250,5255,2555,3989,5250,5252, & - 2556,3899,5250,5255,1459,2557,4192,5250,5252,5255,5256,2558, & - 4336,5250,5255,2559,4683,5250,5255,2560,4627,5250,5253,1272, & - 2561,3950,5250,5252,5255,5256,762,1543,2271,2562,4709,5250, & - 5252,5255,5256,1554,2563,3279,3825,5250,5252,5256,2564,4624, & - 5250,5253,2565,3808,5250,5255,962,2566,4210,5250,5252,5255, & - 5256,2567,4525,5250,5253,2568,3217,3837,5250,2569,4692,5250, & - 5253,2570,5167,5250,5255,2571,4673,5250,5253,2572,4367,5250, & - 5255,2573,4409,5250,5253,307,1239,1922,1923,2574,3637,5250, & - 5252,5255,5256,1148,2575,4287,5250,5252,5255,5256,2576,4269, & - 5250,5253,1508,2577,4271,5250,5252,5255,5256,1527,2578,4117, & - 5250,5252,5255,5256,2579,4405,5250,5253,2580,4772,5250,5255, & - 1170,2581,3973,5250,5252,5255,5256,2582,5034,5250,5253,2583, & - 4470,5250,5253,2584,4439,5250,5253,2585,3641,5250,5255,1532, & - 2586,4193,5250,5252,5255,5256,2587,5099,5250,5253,1253,2588, & - 4246,5250,5252,5255,5256,590,1204,2270,2589,4735,5250,5252, & - 5255,5256,2590,5154,5250,5255,1381,2591,3974,5250,5252,5255, & - 5256,1602,2592,3693,4861,5250,5252,5256,2593,4847,5250,5253, & - 671,967,2245,2594,4712,5250,5252,5255,5256,1700,2565,2595, & - 3808,5250,5252,5255,5256,1220,2596,4578,5250,5252,5255,5256, & - 2597,4638,5250,5253,1029,2598,4289,5250,5252,5255,5256,1524, & - 2599,4252,5250,5252,5255,5256,2600,5111,5250,5253,2601,4675, & - 5250,5255,2602,4347,5250,5255,2603,4985,5250,5255,1512,2604, & - 4304,5250,5252,5255,5256,2605,4133,5250,5252,2606,5167,5250, & - 5253,1116,2607,4465,5250,5252,5255,5256,2608,4214,5250,5253, & - 2609,4823,5250,5255,2610,5056,5250,5252,2611,4944,5250,5253 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_31 = (/ & - 2612,5106,5250,5253,2613,4431,5250,5253,1132,2092,2614,5097, & - 5250,5252,5255,5256,2615,4324,5250,5253,2616,5025,5250,5255, & - 2617,4129,5250,5255,2618,4095,5250,5255,2619,4456,5250,5253, & - 2620,4206,5250,5253,2621,5104,5250,5252,2622,5171,5250,5253, & - 968,2623,5132,5250,5252,5255,5256,2624,3665,5250,5255,2625, & - 4811,5250,5255,2626,4091,5250,5252,2627,4932,5250,5255,2628, & - 4980,5250,5255,2629,4119,5250,5252,2630,4628,5250,5253,2631, & - 4013,5250,5253,2632,4633,5250,5253,2633,3859,5250,5255,577, & - 1177,2453,2634,3836,5250,5252,5255,5256,2635,4772,5250,5253, & - 2636,4664,5250,5253,2637,5027,5250,5253,804,1526,2330,2638, & - 4715,5250,5252,5255,5256,1899,2639,5121,5250,5252,5255,5256, & - 2640,4641,5250,5253,917,2641,4291,5250,5252,5255,5256,616, & - 1446,2124,2642,4713,5250,5252,5255,5256,2643,4202,5250,5253, & - 284,1499,2514,2644,4357,5250,5252,5255,5256,1623,2559,2645, & - 4683,5250,5255,1490,1978,2646,5120,5250,5252,5255,5256,1842, & - 2220,2647,5116,5250,5252,5255,5256,2648,5014,5250,5253,2649, & - 3828,5250,5255,2650,4656,5250,5253,2651,5006,5250,5253,2652, & - 4026,5250,5255,2653,3869,5250,5252,2654,4536,5250,5255,2655, & - 4548,5250,5253,2656,4829,5250,5253,2657,5244,5250,5253,2658, & - 5021,5250,5253,1681,2602,2659,4347,5250,5252,5255,5256,2660, & - 4867,5250,5253,2661,4545,5250,5252, 62,2109,2662,5174,5250, & - 5252,5255,5256,2663,4613,5250,5253,2664,4614,5250,5252,286, & - 2665,5161,5185,5250,2666,4679,5250,5253,1522,2667,4447,5250, & - 5252,5255,5256,1255,2668,4303,5250,5252,5255,5256,2669,4500, & - 5250,5253,2670,4436,5250,5253,2671,4680,5250,5253,2672,4127, & - 5250,5252,2673,4172,5250,5252,2674,4451,5250,5253,2675,5101, & - 5250,5253,1398,2676,4238,5250,5252,5255,5256,2677,4260,5250, & - 5253,2678,4243,5250,5253,1099,2679,4991,5250,5252,5255,5256, & - 500,2300,2680,4820,5250,5255,2681,4168,5250,5253,1144,2682, & - 4292,5250,5252,5255,5256,2683,4241,5250,5253,2684,5008,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_32 = (/ & - 5253,2685,4989,5250,5253,2686,4674,5250,5255,2687,4981,5250, & - 5252,2688,5044,5250,5253,2689,4917,5250,5253,2690,4070,5250, & - 5255,2691,5137,5250,5253,1495,2692,4118,5250,5252,5255,5256, & - 2693,4785,5250,5255,863,2694,3846,5250,5252,5255,5256,2695, & - 4341,5250,5255,2696,4966,5250,5253,758,1145,2282,2697,4903, & - 5250,5252,5255,5256,2698,4275,5250,5253,1965,2057,2699,5192, & - 5250,5252,5255,5256,2700,4731,5250,5253,2701,4580,5250,5252, & - 2702,4522,5250,5253,2703,5054,5250,5253,2704,5052,5250,5253, & - 2705,4460,5250,5253,1395,2706,4372,5250,5252,5255,5256,1809, & - 2707,5195,5250,5252,5255,5256,2708,5017,5250,5253,2709,3815, & - 5250,5255,1298,2149,2710,5186,5250,5252,5255,5256,1683,1917, & - 2711,4589,5250,5255,2712,4822,5250,5253,2713,3859,5250,5252, & - 1598,2714,3238,4667,5250,2715,5098,5250,5255,381,1160,1952, & - 2716,3676,4610,5250,5252,5255,2147,2717,5015,5250,5252,5255, & - 5256,2718,4419,5250,5253,357,1077,2303,2327,2719,3855,4319, & - 5250,5252,5255,1886,2720,4645,5250,5252,5255,5256,2721,4620, & - 5250,5253,1492,1933,2722,4789,5250,5252,5255,5256,2723,4235, & - 5250,5255,902,2724,4510,5250,5252,5255,5256,2725,4308,5250, & - 5253,2726,4850,5250,5253,2727,4144,5250,5255,1594,2728,3295, & - 3631,5250,5252,5256,2729,4520,5250,5253,2730,4911,5250,5255, & - 1105,2731,4273,5250,5252,5255,5256,1729,2732,3235,3659,5250, & - 5252,5256,1278,2733,4204,5250,5252,5255,5256,2734,3654,3660, & - 4923,5252,5256,2735,5075,5250,5253,1166,2736,4285,5250,5252, & - 5255,5256,2737,4542,5250,5255,2738,4281,5250,5253,1117,2739, & - 4188,5250,5252,5255,5256,2740,3663,5250,5255,1190,2741,4225, & - 5250,5252,5255,5256,2742,3955,5250,5252,2743,4380,5250,5253, & - 1758,2744,3990,5250,5252,5255,5256,1142,2074,2745,4374,5250, & - 5252,5255,5256,127,1183,2746,3886,5250,5252,5255,5256,2006, & - 2747,4562,5250,5252,5255,5256,2748,4840,5194,5258,1485,2749, & - 4572,5250,5252,5255,5256,984,2750,3949,5250,5252,5255,5256 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_33 = (/ & - 960,2751,4421,5250,5252,5255,5256,1837,2752,4835,5250,5252, & - 5255,5256,2753,4127,5250,5255,2754,4299,5250,5255,2755,4990, & - 5250,5253,2756,4854,5250,5253,2757,4611,5250,5253,1293,2758, & - 4031,5250,5252,5255,5256,2759,4166,5250,5252,1115,2760,4270, & - 5250,5252,5255,5256,2761,3885,5250,5252,1664,2762,3320,3796, & - 5250,5252,5256,2763,4267,5250,5255,2764,4612,5250,5252,2765, & - 4046,5250,5253,2766,4888,5250,5255,2019,2403,2767,4886,5250, & - 5252,5255,5256,1393,2768,4182,5250,5252,5255,5256,2769,4742, & - 5250,5255,2354,2770,3621,5091,5250,5252,5256,841,2771,4111, & - 5250,5252,5255,5256,2772,4752,5250,5253,313,872,1972,2773, & - 3313,3698,5250,5252,5255,2774,5053,5250,5255,2775,3873,5250, & - 5255,1669,2649,2776,3828,5250,5252,5255,5256,2777,4636,5250, & - 5253,2778,4523,5250,5253,2779,4686,5250,5253,2780,4187,5250, & - 5253,2781,4738,5250,5253,2782,4529,5250,5252,2783,4668,4677, & - 5152,5250,5255,2784,4230,5250,5253,2785,3893,5250,5255,2786, & - 4962,5250,5253,2787,4642,5250,5253,866,2788,4543,5250,5252, & - 5255,5256,1555,2499,2789,3791,5250,5252,5255,5256,2790,4949, & - 5250,5253,2791,4255,5250,5253,2792,5243,5250,5253,2793,5100, & - 5250,5253,2794,4536,5250,5253,1185,2795,4695,5250,5252,5255, & - 5256,2796,4414,5250,5253,2797,3992,5250,5255,2468,2798,2799, & - 3903,5250,5252,5256,2799,3903,5250,5255,2800,4207,5250,5253, & - 2801,4259,5250,5253,2802,5130,5250,5252,2803,3759,4053,5250, & - 2804,5214,5250,5253,2805,4353,5250,5255,1549,2806,3321,3820, & - 5250,5252,5256,2807,2828,4640,4845,5252,5256,2808,4930,5250, & - 5253,1485,1875,2809,4572,5250,5255,2810,4614,5250,5255,2811, & - 4428,5250,5253,2812,4189,5250,5252,2813,5245,5250,5253,2814, & - 4561,5250,5252,2815,4316,5250,5253,1098,2816,4159,5250,5252, & - 5255,5256,2817,4609,5250,5252,1399,2818,4312,5250,5252,5255, & - 5256,877,2819,4149,5250,5252,5255,5256,1215,2820,4750,5250, & - 5252,5255,5256,1306,2821,3865,5250,5252,5255,5256,2822,4979 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_34 = (/ & - 5250,5253,2823,4539,5250,5253,2824,4516,5250,5255,2825,5237, & - 5250,5253,636,1441,1963,2826,4573,5250,5252,5255,5256,908, & - 2827,4211,5250,5252,5255,5256,2828,4640,5250,5255,2829,4863, & - 5250,5253,2830,4773,5250,5253,1072,2831,4140,5250,5252,5255, & - 5256,1502,2832,3928,5250,5252,5255,5256,2833,4445,5250,5253, & - 2834,3980,5250,5252,2835,3961,5250,5252,2836,4756,5250,5255, & - 2477,2837,3468,4893,5250,5252,5256,2838,4013,5250,5255,2839, & - 4121,5250,5252,1138,2840,5060,5250,5252,5255,5256,2841,4760, & - 5250,5253,2842,4866,5250,5253,2843,4623,5250,5253,2844,4517, & - 5250,5253,2845,4468,5250,5253,2846,4934,5250,5253,1589,2585, & - 2847,3641,5250,5252,5255,5256,2848,4629,5250,5253,2133,2849, & - 4608,5250,5252,5255,5256,2850,4830,5250,5253,1391,2851,4143, & - 5250,5252,5255,5256,2852,4977,5250,5253,1271,2853,4532,5250, & - 5252,5255,5256,2854,3395,3414,3596,3597,5250,2855,3882,5250, & - 5252,296,1505,2257,2855,2856,3882,4216,5250,5252,5255,2857, & - 4654,5250,5253,1515,2858,3964,5250,5252,5255,5256,2859,4489, & - 5250,5253,2860,4921,5250,5253,2861,4420,5180,5235,5252,5256, & - 2862,4218,5250,5255,2863,4253,5250,5253,2864,4853,5250,5253, & - 909,2865,4263,5250,5252,5255,5256,2866,4441,5250,5253,2867, & - 4806,5250,5253,2868,4957,5250,5255,2010,2869,4364,5250,5252, & - 5255,5256,2870,4772,5250,5255,2871,3885,5250,5255,2872,4433, & - 5250,5253,2873,4428,5250,5255,1122,2874,4254,5250,5252,5255, & - 5256,1636,2601,2875,4675,5250,5255,2876,4986,5250,5253,2877, & - 4874,5250,5253,2878,4390,5250,5255,2879,4855,5250,5253,2880, & - 5136,5250,5253,1292,2881,4170,5250,5252,5255,5256,2882,4634, & - 5250,5253,2883,5117,5250,5253,2884,4848,5250,5253,2885,4412, & - 5250,5253,2886,5179,5250,5253,2887,4557,5250,5253,2888,4090, & - 5250,5252,1281,2045,2889,4334,5250,5252,5255,5256,1181,2890, & - 4098,5250,5252,5255,5256,1994,2459,2891,5148,5250,5252,5255, & - 5256,2892,4124,5250,5252,2893,4852,5250,5255,1019,2894,4120 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_35 = (/ & - 5250,5252,5255,5256,2895,3736,3737,5250,2896,4283,5250,5253, & - 891,2897,3860,5250,5252,5255,5256,2898,4266,5250,5253,2899, & - 4203,5250,5255,2900,3810,5250,5255,2901,4102,5250,5253,1186, & - 2902,4185,5250,5252,5255,5256,825,2903,4262,5250,5252,5255, & - 5256,2904,4684,5250,5253,997,2905,4134,5250,5252,5255,5256, & - 2097,2192,2906,5077,5250,5252,5255,5256,2907,4739,5250,5253, & - 2908,3890,5250,5252,462,511,927,949,2079,2908,2909,3890, & - 3901,5250,5252,5255,1632,2625,2910,4811,5250,5255,2911,4308, & - 5250,5255,1767,2912,4607,5250,5252,5255,5256,2913,4980,5250, & - 5252,2286,2914,4333,5200,5238,5250,5258,2915,4635,5250,5253, & - 971,2916,3895,5250,5252,5255,5256,2917,5108,5250,5252,1104, & - 2918,4293,5250,5252,5255,5256,1301,2919,3937,5250,5252,5255, & - 5256,2920,4857,5250,5255,2921,4862,5250,5253,1235,2020,2922, & - 5181,5250,5252,5255,5256,2923,4920,5250,5255,2924,4916,5250, & - 5253,2925,4518,5250,5253,1921,2318,2926,5208,5250,5252,5255, & - 5256,700,2927,3684,5250,5258,2928,4753,5250,5253,2929,4424, & - 5250,5253,2930,4138,5250,5255,1046,2931,3848,5250,5252,5255, & - 5256,1601,2932,3473,4365,5250,144,1488,2610,2933,5056,5250, & - 5252,5255,5256,2934,3873,5250,5252,1420,2935,4298,5250,5252, & - 5255,5256,538,2936,3701,5250,5258,1423,2937,4232,5250,5252, & - 5255,5256,320,1519,2275,2938,3424,4196,5250,5252,5255,1856, & - 2247,2939,5150,5250,5252,5255,5256,2940,4827,5250,5255,2941, & - 4812,5250,5253,2942,4137,5250,5252,2943,3981,5250,5252,1774, & - 2944,5135,5250,5252,5255,5256,2945,4924,5250,5253,995,2946, & - 4890,5250,5252,5255,5256,2947,4891,5250,5253,2948,4685,5250, & - 5253,659,1088,2949,4141,5250,5252,5255,5256,2950,4132,5250, & - 5253,2951,5029,5250,5253,1273,2952,4276,5250,5252,5255,5256, & - 633,1414,2332,2953,4597,5250,5252,5255,5256,1869,2405,2954, & - 4368,5250,5252,5255,5256,2955,4649,5250,5253,2956,4338,5250, & - 5253,2957,3998,5250,5253,2958,4953,5250,5253,1362,2959,3806 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_36 = (/ & - 5250,5252,5255,5256,1268,2960,4435,5250,5252,5255,5256,881, & - 2961,3898,5250,5252,5255,5256,1517,2962,3876,5250,5252,5255, & - 5256,1379,2963,4200,5250,5252,5255,5256,2964,4878,5250,5252, & - 213,218,1295,1333,1930,2965,3902,3951,5250,5252,5255,957, & - 2966,4599,5250,5252,263,1345,2967,3975,5250,5252,5255,5256, & - 940,2968,4503,5250,5252,5255,5256,2969,4864,5250,5253,2970, & - 4329,5250,5253,2971,4277,5250,5255,1884,2972,4348,5250,5252, & - 5255,5256,2013,2973,3297,5051,5238,5250,5258,1855,2350,2974, & - 4974,5250,5252,5255,5256,2975,4648,5250,5255,2976,4612,5250, & - 5255,2977,4969,5250,5253,2978,4662,5250,5253,476,1339,1883, & - 2979,3323,3743,5250,5252,5255,2980,4653,5250,5253,2981,4802, & - 5250,5255,651,1323,2253,2982,4704,5250,5252,5255,5256,1422, & - 2983,4837,5250,5252,5255,5256,2984,4485,5250,5253,2985,5036, & - 5250,5255,913,2986,4305,5250,5252,5255,5256,2987,4984,5250, & - 5253,2988,4427,5250,5253,1360,2989,4191,5250,5252,5255,5256, & - 1753,2246,2990,5061,5250,5252,5255,5256,2991,4221,5250,5255, & - 2992,2993,4108,4763,5252,5256,2993,4763,5250,5255,1647,2740, & - 2994,3663,5250,5252,5255,5256,972,2995,4245,5250,5252,5255, & - 5256,981,2436,2996,5127,5250,5252,5255,5256,1371,2997,3850, & - 5250,5252,5255,5256,2998,4026,5250,5253,2999,4802,5250,5252, & - 1633,2981,2999,3000,4802,5250,5252,5255,5256,1322,3001,4217, & - 5250,5252,5255,5256,3002,4879,5252,5256,3003,5183,5250,5253, & - 1358,3004,4314,5250,5252,5255,5256,3005,4946,5250,5255,3006, & - 4371,5250,5255,3007,4521,5250,5253,3008,5004,5250,5253,807, & - 1136,2185,3009,4716,5250,5252,5255,5256,3010,4955,5250,5253, & - 3011,5131,5250,5253,3012,4792,5250,5253,554,1213,2256,3013, & - 4128,5250,5252,5255,5256,3014,4203,5250,5253,3015,4360,5250, & - 5252,1051,3016,4212,5250,5252,5255,5256,3017,4301,5250,5253, & - 3018,4814,5250,5255,3019,4154,5250,5253,3020,4553,5250,5253, & - 3021,5158,5250,5253,3022,4513,5250,5255,3023,4994,5250,5253 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_37 = (/ & - 3024,4515,5250,5253,3025,4665,5250,5253,3026,4469,5250,5253, & - 1717,2709,3027,3815,5250,5252,5255,5256,974,3028,3953,5250, & - 5252,5255,5256,3029,4839,5250,5253,897,3030,4097,5250,5252, & - 5255,5256,3031,5117,5250,5255,1885,2337,3032,5147,5250,5252, & - 5255,5256,3033,4436,5250,5255,3034,3982,5250,5252,3035,4858, & - 5250,5255,835,3036,4306,5250,5252,5255,5256,1993,3037,4541, & - 5250,5252,5255,5256,3038,3854,5250,5255,1314,3039,3883,5250, & - 5252,5255,5256,3040,4221,5250,5253,559,1538,3041,4346,5250, & - 5252,5255,5256,3042,4229,5250,5253,3043,4746,5250,5255,3044, & - 4353,4695,5250,3045,4228,5250,5253,3046,3961,5250,5255,3047, & - 5232,5250,5253,873,2834,3048,3980,5250,5252,5255,5256,3049, & - 4730,5250,5255,1613,2520,3050,3813,5250,5252,5255,5256,3051, & - 4215,5250,5253,3052,4299,5250,5253,3053,4631,5250,5253,1430, & - 3054,3979,5250,5252,5255,5256,3055,4765,5250,5255,3056,4915, & - 5250,5253,1659,2730,3057,4911,5250,5255,1338,3058,4429,5250, & - 5252,5255,5256,3059,5155,5250,5253,3060,4626,5250,5253,3061, & - 4744,5250,5253,858,3062,4115,5250,5252,5255,5256,3063,4404, & - 5250,5253,2392,3064,5035,5250,5252,5255,5256,1101,3065,4297, & - 5250,5252,5255,5256,1313,2215,3066,5081,5250,5252,5255,5256, & - 1044,3067,4486,5250,5252,5255,5256,3068,5032,5250,5252,1153, & - 3068,3069,5032,5250,5252,5255,5256,3070,4430,5250,5253,1392, & - 3071,4751,5250,5252,5255,5256,1377,3072,3987,5250,5252,5255, & - 5256,1137,3073,4461,5250,5252,5255,5256,885,3074,3988,5250, & - 5252,5255,5256,3075,4472,5250,5253,3076,5078,5250,5252,3077, & - 3942,4579,5250,3078,4584,5250,5255,1779,3079,4778,5250,5252, & - 5255,5256, 70,2236,3080,4894,5250,5252,5255,5256,3081,4173, & - 5250,5252,523,1310,2372,3082,4055,5250,5252,5255,1776,3083, & - 4555,5145,5250,5258,3084,5250,5256,3085,4407,5250,5253,5256, & - 1571,1839,3086,3504,4369,5250,5255,3087,4499,5250,5253,5256, & - 3088,4798,5250,5253,5256,428,1211,1964,3089,3811,5250,5252 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_38 = (/ & - 5255,2174,3090,3744,4925,5250,5255,460,1052,2432,3091,5138, & - 5250,5252,5255,3092,4531,5250,5253,5256,3093,4453,5250,5253, & - 5256,3094,3455,4706,5252,5256,3095,4471,5250,5253,5256,3096, & - 5250,5256,3097,5250,5256,3098,4504,5250,5253,5256,3099,4819, & - 4954,5250,5255,3100,4444,5250,5253,5256,3101,4437,5250,5253, & - 5256,3102,3658,3670,5250,5252,274,956,2241,3103,3803,5250, & - 5252,5255,1983,3104,3364,3444,3536,4841,5250,5252,5255,5256, & - 3105,5250,5256,3106,4777,4837,5250,5252,647,1103,3107,3108, & - 4575,5250,5255,3108,4575,5250,5252,234,1501,1831,3109,4586, & - 5250,5252,5255,429,848,2113,3110,5065,5250,5252,5255,3111, & - 4494,5250,5253,5256,3112,4509,5250,5253,5256,3113,5250,5256, & - 3114,4639,5250,5253,5256,2540,3115,3559,4563,5250,5255,3116, & - 4402,5250,5253,5256,453,1259,2216,3117,5112,5250,5252,5255, & - 353,1267,1919,3118,4766,5250,5252,5255,3119,4487,5250,5253, & - 5256,3120,4671,5250,5253,5256,517,1434,2341,3121,4399,5250, & - 5252,5255,283,1039,2418,3122,3794,5250,5252,5255,3123,4466, & - 5250,5253,5256,1548,1908,3124,3537,4566,5250,5255,3125,4408, & - 5250,5253,5256,758,1145,2282,3126,4903,5250,5252,5255,3127, & - 4413,5250,5253,5256,473,512,2663,2664,2764,2810,2976,3075, & - 3128,4472,4612,4613,4614,5250,5252,5253,5255,3129,5250,5256, & - 3129,3130,5250,5256,3096,3131,5250,5256,1666,1735,2047,3132, & - 3814,4070,5250,5255,3133,3832,3996,5089,5258,3134,5250,5256, & - 3134,3135,5250,5256,3105,3136,5250,5256,3137,4788,5250,5253, & - 5256,3138,5250,5256,3138,3139,5250,5256,3140,4479,5250,5253, & - 5256,3141,3806,4185,5250,5252,3142,4670,5250,5253,5256,3143, & - 4682,5250,5253,5256,3144,5250,5256,3145,5250,5256,3146,4859, & - 5250,5253,5256,3147,4395,5258,269,1491,2161,3148,5144,5250, & - 5252,5255,3144,3149,5250,5256,3150,4495,5250,5253,5256,1707, & - 2052,3151,3522,4349,5250,5255,3152,4663,5250,5253,5256,3153, & - 4438,5250,5253,5256,3154,3835,5250,3155,5166,5258,417,1143 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_39 = (/ & - 2075,3156,4616,5250,5252,5255,250,3157,5250,5256,3145,3158, & - 5250,5256,3159,4647,4723,5250,5252,3160,4945,5250,3161,4965, & - 5250,5253,5256,3162,4454,5250,5253,5256,3163,4690,5250,5253, & - 5256,3113,3164,5250,5256,3165,4457,5250,5253,5256,486,1079, & - 1824,3166,5107,5250,5252,5255,3167,4514,5250,5253,5256,412, & - 870,2094,3168,5146,5250,5252,5255,3169,5250,5256,3170,4478, & - 5250,5253,5256,1853,2805,3171,4353,4923,5250,5255,3084,3172, & - 5250,5256,3173,4809,5060,5250,5252,436,1027,2406,3174,3804, & - 5250,5252,5255,3175,4700,5043,5250,5252,764,1049,3176,3177, & - 4707,5250,5255,3177,4707,5250,5252,3178,4790,5250,5253,5256, & - 3179,5250,5256,3179,3180,5250,5256,3181,4797,5250,5253,5256, & - 3182,5250,5256,1744,2059,3183,3544,4389,5250,5255,1740,2121, & - 3184,3493,4361,5250,5255,1674,2221,3185,3548,4355,5250,5255, & - 3186,4017,4018,5141,5258,3187,4791,5250,5253,5256,3188,3671, & - 3721,5250,5252,3189,4676,5250,5253,5256,3190,4632,5250,5253, & - 5256,3191,4810,5250,5253,5256,3192,5250,5256,3192,3193,5250, & - 5256,2544,3194,4786,5224,5250,5252,5255,5256, 68,884,1647, & - 2740,3195,3627,3663,5250,5252,5255,5256,3196,4558,5250,5255, & - 3197,5033,5250,5253,3198,4585,5250,5255,3199,4375,5250,5253, & - 1576,2137,3200,4813,5250,5255,3201,4711,5250,5255,3202,4604, & - 4606,5258,3203,5036,5250,5255,3204,5025,5250,5253,3205,4359, & - 5250,5255,3206,4892,5250,5253,3207,4698,5250,5255,3208,5149, & - 5250,5255,3209,4968,5250,5255,3210,4093,5068,5258,3211,4826, & - 5250,5255,3212,4722,5250,5252,409,1004,2157,2666,3213,3789, & - 4679,5250,5252,5253,5255,3214,4669,5250,5255,2568,3215,3216, & - 3217,3837,5250,5252,5256,3216,3837,5250,5255,3217,4123,5250, & - 5255,3218,4443,5250,5253,627,3169,3219,5250,5255,5256,3220, & - 4591,5250,5253,3221,4888,5250,5253,3222,5151,5250,5255,3223, & - 4910,5250,5253,3224,4826,5250,5253,3225,4917,5250,5255,3226, & - 4930,5250,5255,3227,4948,5250,5255,968,3228,5132,5250,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_40 = (/ & - 3229,4100,5250,5253,568,3230,3831,5250,5258,3231,4856,5250, & - 5255,3232,4181,5250,5253,2226,2304,2719,2855,2856,3233,3855, & - 3882,4216,4319,5004,5250,5252,5255,5256,1289,3234,4958,5020, & - 5250,5252,5255,5256,3235,3659,5250,5255,3236,4657,5250,5253, & - 3237,4966,5250,5255,3238,4667,5250,5255,3239,4836,5250,5253, & - 3240,4321,5250,5252,105,2252,3241,4615,5219,5250,5252,5255, & - 5256,413,1523,1619,1769,2165,2737,2860,3242,3564,4542,4921, & - 4940,5250,5252,5253,5255,5256,3243,4596,5250,5255,677,3182, & - 3244,5250,5255,5256,2489,3245,4351,4615,5121,5250,5252,5258, & - 13,1218,1589,2585,3246,3641,3648,5250,5252,5255,5256,726, & - 1372,1373,3247,5039,5214,5250,5252,5255,5256,3248,3913,5250, & - 5256,3249,4946,5250,5253,3250,3501,3550,5250,1600,3251,3624, & - 4935,5250,1949,3252,4160,4688,5250,5252,5255,5256,3253,3827, & - 5250,5255,3254,4954,5250,5253,3255,3336,3547,4546,5250,5252, & - 5256,3256,4554,5250,5255,3257,4831,5250,5253,3258,4807,5250, & - 5253,3259,4106,5250,5255,3260,4860,5250,5253,3261,4180,5250, & - 5255,1665,3262,3702,4992,5250,707,3097,3263,5250,5255,5256, & - 3264,4803,5250,5252,3265,4767,5250,5255,3266,4476,5250,5255, & - 3267,4565,5250,5255,2135,3175,3268,4700,5043,5250,5252,5255, & - 5256,2025,3269,4174,4689,5250,5252,5255,5256,478,1070,2063, & - 2597,3270,3703,4638,5250,5252,5253,5255,3271,4727,5250,5252, & - 3272,5075,5250,5255,3273,3801,5250,5252,3274,4384,5250,5255, & - 3275,5079,5250,5253,3276,4816,5250,5255,3277,5202,5250,5255, & - 3278,4345,5250,5255,3279,3825,5250,5255,3280,4993,5250,5255, & - 3259,3281,4106,4325,5250,5252,5255,5256,3282,4417,5250,5253, & - 74,1396,1729,3235,3283,3650,3659,5250,5252,5255,5256,2001, & - 2553,2814,3284,4161,4561,5250,5252,5255,5256,3285,4720,5250, & - 5252,3286,3801,5250,5255,3287,4126,5250,5255,3288,4583,5250, & - 5255,3289,4598,5250,5255,3290,4993,5250,5253,3291,4105,5250, & - 5255,3292,4833,5250,5253,3293,4818,5250,5253,3294,4954,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_41 = (/ & - 5255,3295,3631,5250,5255, 18,982,1594,3295,3296,3631,3632, & - 5250,5252,5255,5256,3297,4332,4475,5258,3298,3822,4800,5250, & - 3299,5129,5250,5255,3300,4985,5250,5253,1768,3301,3302,4661, & - 5250,5252,5255,5256,3302,3934,4574,5250,3303,4051,5250,5253, & - 3304,4971,5250,5252,2225,3305,3318,4000,5250,5252,5253,5255, & - 3306,4450,5250,5253,3307,4288,5250,5253,3308,4582,5250,5255, & - 789,1094,3309,4410,5250,5255,3310,4959,5250,5255,3311,5090, & - 5250,5253,3312,4771,5250,5253,3313,4652,5250,5253,3314,4594, & - 5250,5255,3315,4770,5250,5253,3316,4948,5250,5253,3317,4622, & - 5250,5253,3318,4139,5250,5253,3319,3799,5250,5255,3320,3796, & - 5250,5255,3321,3820,5250,5255,3322,4725,5250,5252,3323,4681, & - 5250,5253,3324,4816,5250,5253,3325,4916,5250,5255,3326,5155, & - 5250,5255,3327,4496,5250,5253,1141,3328,3767,4387,5250,5255, & - 1169,3329,4464,5250,5252,5255,5256,3273,3286,3330,3801,4936, & - 5250,5252,5255,446,1150,2087,2088,3331,3797,5250,5252,5255, & - 5256,1310,2372,3332,4055,5250,5252,5255,5256,2199,2409,3333, & - 5045,5250,5252,5255,5256,3334,5040,5155,5250,5255,1487,3335, & - 3907,5250,5252,5255,5256,2553,3336,4546,4561,5250,5255,1618, & - 2018,2523,3337,4418,4659,5250,5253,5255,887,3338,3839,5250, & - 5252,5255,5256,681,1167,3339,3340,4699,5250,5255,3340,4699, & - 5250,5252,2455,3341,3910,4884,5250,5255,1434,2341,3342,4399, & - 5250,5252,5255,5256,432,1131,1822,2078,3343,3790,5250,5252, & - 5255,5256,2156,2461,3344,4060,5250,5252,5255,5256,811,1161, & - 3271,3345,4727,5250,5252,5255,1406,3346,4871,5250,5252,5255, & - 5256,1472,3347,4506,5250,5252,5255,5256,1934,2380,2527,3348, & - 4660,5019,5250,5253,5255,2125,3349,3925,4587,5250,5255,2043, & - 2695,2729,3350,4341,4520,5250,5253,5255,1849,3351,4171,5250, & - 5252,5255,5256,531,1065,3352,3353,4928,5250,5255,3353,4928, & - 5250,5252,2114,2344,3354,3904,4719,5250,5255,1522,2573,3355, & - 4409,4447,5250,5253,5255,683,1510,3356,3357,4701,5250,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_42 = (/ & - 3357,4701,5250,5252,3358,3529,5172,5250,5253,779,1415,3359, & - 3360,4718,5250,5255,3360,4718,5250,5252,1504,3361,4205,5250, & - 5252,5255,5256,1045,3362,4463,5250,5252,5255,5256,869,3363, & - 4655,5250,5252,5255,5256,2366,3364,3970,4723,5250,5255,279, & - 1958,2564,3365,4131,4624,5250,5253,5255,3366,3624,3702,5011, & - 5250,5255,1876,1904,3367,4784,5250,5252,5255,5256,464,1315, & - 2321,2322,3368,3807,5250,5252,5255,5256,466,2199,2409,3333, & - 3369,5045,5250,5252,5255,5256,934,3370,4467,5250,5252,5255, & - 5256,1342,3371,4498,5250,5252,5255,5256,361,1307,2383,2782, & - 3372,3823,4529,5250,5252,5255,394,1060,1813,2195,3373,4162, & - 4748,5250,5252,5255,699,882,2311,3374,3957,4825,5250,5252, & - 5255,1376,3375,4458,5250,5252,5255,5256,1940,3376,3842,4702, & - 5250,5255,999,2196,3377,4876,5250,5252,5255,5256,565,846, & - 3378,3379,4821,5250,5255,3379,4821,5250,5252,1123,3380,3774, & - 5250,5252,5255,5256,888,3381,4643,5250,5252,5255,5256,1375, & - 2917,3382,5108,5250,5252,5255,2077,3383,3540,4705,5250,5252, & - 5256,220,1281,2045,2889,3384,4334,5250,5252,5255,5256,2956, & - 3385,4038,4338,5250,5253,5255,1914,2128,3386,4870,5250,5252, & - 5255,5256,2985,3387,4795,5036,5250,5255,1030,3388,4455,5250, & - 5252,5255,5256,1777,2186,3055,3389,4765,5250,5252,5255,5256, & - 1318,3390,4781,5250,5252,5255,5256,385,995,1026,3391,4890, & - 5250,5252,5255,2735,3392,5003,5075,5250,5253,1010,2291,3393, & - 4577,5250,5252,5255,5256,2481,3394,5050,5228,5250,5252,5258, & - 923,3395,4307,5250,5252,5255,5256,1053,3396,3713,5250,5252, & - 5255,5256,406,813,1801,2440,2524,3397,4130,4385,5250,5252, & - 5255,904,2296,3398,3852,5250,5252,5255,5256,2394,3399,3878, & - 4593,5250,5255,1426,3400,4101,5250,5252,5255,5256,2240,3401, & - 4795,5036,5250,5253,977,3402,4415,5250,5252,5255,5256,128, & - 1083,1159,3403,4167,5250,5252,5255,5256,2193,2223,3404,4901, & - 5250,5252,5255,5256,1160,1952,3405,4610,5250,5252,5255,5256 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_43 = (/ & - 1455,3406,4726,5250,5252,5255,5256,1127,3407,3728,5250,5252, & - 5255,5256,2546,3408,4926,4957,5250,5253,2449,3409,3922,4782, & - 5250,5255,1544,3410,3874,5250,5252,5255,5256,742,1038,3322, & - 3411,4725,5250,5252,5255,505,1270,2333,2334,3412,3819,5250, & - 5252,5255,5256,3413,5118,5204,5217,5218,5250,1025,3414,4194, & - 5250,5252,5255,5256,2009,3415,4354,5250,5252,5255,5256,788, & - 1016,3285,3416,4720,5250,5252,5255,1223,3417,4434,5250,5252, & - 5255,5256,2413,3418,3956,4714,5250,5255,3419,3441,4769,5252, & - 5256,441,955,2408,2673,3420,4172,4764,5250,5252,5255,1329, & - 3421,4237,5250,5252,5255,5256,1948,3422,4473,5250,5252,5255, & - 5256,1388,3423,3772,5250,5252,5255,5256,1519,2275,3424,4196, & - 5250,5252,5255,5256,1444,1752,3425,4363,5250,5252,5255,5256, & - 732,851,3426,3427,4377,5250,5255,3427,4377,5250,5252,2252, & - 2544,3428,5219,5224,5250,5255,1946,2435,3429,5062,5250,5252, & - 5255,5256,1439,1786,3430,4342,5250,5252,5255,5256,411,1871, & - 2621,3431,4147,5104,5250,5252,5255,2069,3432,3887,4700,5250, & - 5255,785,1014,3264,3433,4803,5250,5252,5255,513,2852,2923, & - 3434,4920,4977,5250,5253,5255,3435,4028,5250,5252,3436,5073, & - 5250,5253,3437,4937,5250,5256,3438,4568,5250,5252,3439,4068, & - 5250,5252, 89,1431,3439,3440,4068,5250,5252,5255,5256,3441, & - 4769,5250,5255,3442,5250,5256,5258,3443,5035,5250,5252,3444, & - 4647,5250,5255,3445,4074,5250,5252,3446,4358,5250,5255,3447, & - 4157,5250,5252,3448,5128,5250,5255,3449,4339,5250,5255,1988, & - 2357,3450,4887,4899,5250,3451,4905,5250,5255,3452,4899,5250, & - 5255,3453,4877,5250,5255,678,3454,4113,5250,5256,3455,4706, & - 5250,5255,2102,3229,3456,4005,4100,5250,5252,5253,5255,5256, & - 3457,4400,5250,5252,3458,5034,5250,5255,3459,4732,5250,5255, & - 3460,4335,5250,5252,2353,3303,3461,4050,4051,5250,5252,5253, & - 5255,5256,3462,4783,5250,5255,3463,4864,5250,5255,3464,3707, & - 4758,5250,3465,5250,5256,5258,3466,5250,5256,5258,3467,4792 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_44 = (/ & - 5250,5255,3468,4893,5250,5255,3469,4887,5250,5255,391,3470, & - 4107,5250,5256,3471,5064,5250,5256,3472,4609,5250,5256,3473, & - 4365,5250,5255,2379,3232,3474,4041,4181,5250,5252,5253,5255, & - 5256,3475,4773,5250,5255,3476,3618,5100,5250,5255,1229,3477, & - 5003,5075,5250,5255,2535,2577,2731,3370,3478,4195,4271,4273, & - 4467,5250,5252,5255,5256,3479,4096,4512,4601,4786,4794,5258, & - 3480,4779,5250,5255,3105,3481,5250,5252,5255,5256,3180,3482, & - 5250,5256,5258,1644,3459,3483,4732,5250,5255,5256,3484,4449, & - 4490,5250,5256,3485,5022,5250,5255,812,1112,3304,3486,4971, & - 5250,5252,5255,3487,4948,5250,5255,2497,3488,4774,5250,5255, & - 5256,932,3130,3489,5250,5252,5255,5256,3490,3620,4599,5252, & - 5256,1157,3158,3491,5250,5252,5255,5256,3097,3492,5250,5252, & - 5255,5256,804,1526,2330,3493,4715,5250,5252,5255,3139,3494, & - 5250,5256,5258,3495,4625,5250,5255,3496,4907,5252,5255,5256, & - 256,1444,1752,2239,3425,3497,4363,4394,5250,5252,5255,5256, & - 2558,2878,3498,3757,4223,4336,4390,5250,5255,3164,3499,5250, & - 5256,5258,1425,3500,5005,5167,5250,5255,3501,4321,5250,5255, & - 3326,3502,5133,5155,5250,5255,1033,3193,3503,5250,5252,5255, & - 5256,807,1136,2185,3504,4716,5250,5252,5255,228,2086,2422, & - 3505,5109,5250,5252,5255,3193,3506,5250,5256,5258,3134,3507, & - 5250,5252,5255,5256,3158,3508,5250,5256,5258,3096,3509,5250, & - 5252,5255,5256,2260,3510,4595,5250,5255,5256,1503,3164,3511, & - 5250,5252,5255,5256,3135,3512,5250,5256,5258,3057,3513,4911, & - 5250,5255,5256,3201,3240,3501,3514,4321,4711,5016,5250,5252, & - 5255,3203,3515,4795,5036,5250,5255,694,2008,2280,2359,2373, & - 3516,3517,4249,4757,5249,5250,5251,5252,5253,5254,5255,5256, & - 5258,2470,3517,4988,5250,5258,959,3139,3518,5250,5252,5255, & - 5256,3519,4950,5250,5256,5258,3520,4695,4922,5250,5252,3179, & - 3521,5250,5252,5255,5256,616,1446,2124,3522,4713,5250,5252, & - 5255,3145,3523,5250,5252,5255,5256,3524,4617,5250,5255,3138 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_45 = (/ & - 3525,5250,5252,5255,5256,2711,3526,4589,5250,5255,5256,1525, & - 3129,3527,5250,5252,5255,5256,3528,4967,5250,5255,3059,3529, & - 5133,5155,5250,5253,1876,1904,3367,3530,4300,4784,5250,5252, & - 5255,5256,1009,3131,3531,5250,5252,5255,5256,2606,3532,5005, & - 5167,5250,5253,3533,5239,5250,5252,996,3135,3534,5250,5252, & - 5255,5256,800,1727,2152,3535,4422,4440,5250,5252,5255,5256, & - 1124,1948,1976,3422,3536,4140,4473,4647,4841,5250,5252,5255, & - 5256,636,1441,1963,3537,4573,5250,5252,5255,939,3157,3538, & - 5250,5252,5255,5256,1232,3172,3539,5250,5252,5255,5256,3540, & - 4705,5250,5255,2588,2604,2903,3329,3541,4246,4262,4304,4464, & - 5250,5252,5255,5256,1386,1827,3308,3542,4582,4879,5135,5250, & - 5252,5255,402,1840,3543,4069,5250,5255,5256,671,967,2245, & - 3544,4712,5250,5252,5255,3157,3545,5250,5256,5258,2552,3546, & - 4808,5250,5253,5256,1081,1897,2001,3547,4161,4546,4561,5250, & - 5252,5255,762,1543,2271,3548,4709,5250,5252,5255,302,3549, & - 4711,5022,5250,5252,3550,5134,5250,5255,3130,3551,5250,5256, & - 5258,3552,5173,5250,5255,3437,3553,4937,5250,5256,5258,1023, & - 3149,3554,5250,5252,5255,5256,2570,3555,5005,5167,5250,5255, & - 584,1622,2417,3556,4416,4480,5250,5252,5255,5256,657,1139, & - 1678,1793,2802,3557,4136,4142,5130,5250,5252,5255,3558,5047, & - 5250,5251,5252,5253,5254,2850,3559,4563,4830,5250,5253,3131, & - 3560,5250,5256,5258,926,2441,3289,3561,4598,4972,5096,5250, & - 5252,5255,938,3136,3562,5250,5252,5255,5256,3272,3563,5003, & - 5075,5250,5255,930,3564,4183,4745,5250,5252,5255,5256,576, & - 1092,3565,4703,5250,5252,5255,5256,3566,3965,4156,4913,5252, & - 5256,812,1112,3567,4971,5250,5252,5255,5256, 4,3568,5252, & - 5253,5254,5256,5258,487,1034,3569,4568,5250,5252,5255,5256, & - 811,1161,3570,4727,5250,5252,5255,5256,535,1943,3571,4163, & - 5250,5252,5255,5256,2179,3572,4972,5250,5252,5255,5256,764, & - 1049,3573,4707,5250,5252,5255,5256,1309,3574,4511,5250,5252 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_46 = (/ & - 5255,5256,2363,3575,4881,5250,5252,5255,5256,788,1016,3576, & - 4720,5250,5252,5255,5256,2442,3577,4370,5250,5252,5255,5256, & - 1578,2686,3578,4674,5250,5252,5255,5256,860,3579,4280,5250, & - 5252,5255,5256,408,1478,3015,3580,4158,4360,5250,5252,5255, & - 475,947,3581,4400,5250,5252,5255,5256,3475,3582,4773,5250, & - 5252,5255,5256,424,1855,2350,2974,3583,4974,5250,5252,5255, & - 5256,785,1014,3584,4803,5250,5252,5255,5256,1859,3585,4351, & - 5250,5252,5255,5256,1364,3586,4337,5250,5252,5255,5256,1644, & - 3587,4732,4932,5250,5252,5256,683,1510,3588,4701,5250,5252, & - 5255,5256,565,846,3589,4821,5250,5252,5255,5256,560,569, & - 628,3512,3545,3551,3590,4993,5250,5255,5256,5258,799,1428, & - 1823,3591,4900,5250,5252,5255,5256,2369,3592,4777,5250,5252, & - 5255,5256,629,2342,3593,4323,5250,5252,5255,5256,504,1753, & - 2246,2990,3594,5061,5250,5252,5255,5256,555,2091,3595,4025, & - 5250,5252,5255,5256,1118,3596,4425,5250,5252,5255,5256,878, & - 3597,4296,5250,5252,5255,5256,1300,3598,4809,5250,5252,5255, & - 5256,292,1276,2317,2605,3599,4003,4133,5250,5252,5255,374, & - 914,3600,4335,5250,5252,5255,5256,2345,2486,2966,3490,3601, & - 3620,4599,5250,5252,5256,498,1142,2074,3602,4116,4374,5250, & - 5252,5255,2276,3256,3603,4554,4585,5250,5252,5255,352,1956, & - 2779,3604,4686,4687,5250,5253,5255,681,1167,3605,4699,5250, & - 5252,5255,5256,647,1103,3606,4575,5250,5252,5255,5256,1313, & - 1673,2215,3066,3607,5081,5250,5252,5255,5256,3267,3608,4341, & - 4565,4578,5250,5255,999,1596,2196,3377,3609,4876,5250,5252, & - 5255,5256,742,1038,3610,4725,5250,5252,5255,5256,2475,3495, & - 3611,4625,5250,5252,5255,5256,2210,2975,3612,4648,5250,5252, & - 5255,5256,1546,2136,3613,4442,5250,5252,5255,5256,779,1415, & - 3614,4718,5250,5252,5255,5256,2483,3480,3615,4779,5250,5252, & - 5255,5256,586,1337,1705,2123,3616,4646,4827,5250,5252,5255, & - 580,1993,2254,3037,3617,3646,4541,4678,4691,4869,5250,5251 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_47 = (/ & - 5252,5253,5254,5255,5256,5258,3618,4982,5250,5255,471,1449, & - 1864,1865,2076,2757,2954,3619,4219,4368,4611,4616,5250,5252, & - 5253,5255,5256,3620,4599,5250,5255,3621,5091,5250,5255,3179, & - 3622,5250,5256,5258,3623,4780,5250,5255,3624,4935,5250,5255, & - 3625,5074,5250,5255,319,2156,2461,2507,2517,3071,3257,3344, & - 3626,4060,4222,4751,4831,5250,5252,5253,5255,5256,884,3180, & - 3627,5250,5252,5255,5256,463,2147,3628,3835,5015,5250,5255, & - 1318,2947,3390,3629,4781,4891,5250,5252,5253,5255,5256,3630, & - 4805,5002,5069,5076,5205,5209,5258,3244,3295,3631,5250,5252, & - 5255,5256,982,3244,3632,5250,5252,5255,5256,2680,3633,4820, & - 5250,5255,5256,3634,5166,5252,5255,5256,2101,3625,3635,5074, & - 5154,5250,5255,3636,5153,5252,5255,5256,668,3637,5250,5252, & - 5255,5256,536,1569,1758,2347,2744,3638,3990,4526,4678,4921, & - 4970,5249,5250,5251,5252,5253,5254,5255,5256,5258,559,725, & - 1130,1538,2756,2980,3639,4346,4459,4653,4854,5250,5253,5255, & - 332,1484,1819,1820,3509,3640,5250,5252,5255,5256,2585,3263, & - 3641,5250,5252,5255,5256,390,1439,1786,2637,3430,3642,4342, & - 5027,5250,5252,5253,5255,5256,225,1287,2014,2015,3523,3643, & - 5250,5252,5255,5256,1570,2725,2911,3446,3644,4308,4358,5250, & - 5252,5253,5255,5256,431,1385,1903,2232,3492,3645,5250,5252, & - 5255,5256,3646,5048,5092,5250,5258,3647,4570,4976,5089,5141, & - 5209,5220,5258,1218,3263,3648,5250,5252,5255,5256,277,966, & - 1796,2302,3481,3649,5250,5252,5255,5256,1396,3219,3650,5250, & - 5252,5255,5256,2042,2212,3202,3651,4508,4604,4606,5190,5238, & - 5250,5258,642,3448,3652,4906,5128,5226,5250,5252,5255,5256, & - 278,1400,3018,3653,4814,5250,5252,5255,3654,4922,5250,5255, & - 5256,480,1458,1772,1773,3525,3655,5250,5252,5255,5256,1035, & - 2447,3266,3656,4476,4767,4782,4852,5250,5252,5255,262,922, & - 1821,2309,3507,3657,5250,5252,5255,5256,3658,5153,5252,5255, & - 5256,3219,3235,3659,5250,5252,5255,5256,3660,4923,5250,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_48 = (/ & - 5256,396,1542,1860,1881,3521,3661,5250,5252,5255,5256,3662, & - 5115,5140,5250,5256,2740,3180,3663,5250,5252,5255,5256,2994, & - 3195,3627,3663,3664,4888,5250,5252,5255,5256,2624,3193,3665, & - 5250,5252,5255,5256,1567,2624,3665,3666,5250,5252,5255,5256, & - 1992,2767,3667,4886,5250,5252,5255,5256,2452,2742,3668,3955, & - 5250,5252,5255,5256,2089,3669,4951,5250,5252,5255,5256,3670, & - 5153,5250,5252,5255,5256,2068,3442,3671,5250,5252,5255,5256, & - 5258,3334,3672,5040,5133,5155,5250,5255,744,1830,3673,4381, & - 5250,5252,5255,5256,1282,3168,3674,5146,5250,5252,5255,5256, & - 1805,3675,4045,5250,5252,5255,5256,2187,3156,3676,4616,5250, & - 5252,5255,5256,1850,3677,4927,5250,5252,5255,5256,1028,3091, & - 3678,5138,5250,5252,5255,5256,1979,2464,3679,4448,5250,5252, & - 5255,5256,2281,2389,3680,4799,5250,5252,5255,5256,780,1783, & - 3681,4535,5250,5252,5255,5256,1620,3682,4730,4734,5250,5252, & - 5255,5256,737,1802,1938,3683,4817,4885,5250,5252,5255,5256, & - 3172,3684,5250,5256,5258,2046,2054,3685,4488,5250,5252,5255, & - 5256,364,1479,3686,5131,5250,5252,5255,5256,2267,3687,4793, & - 5250,5252,5255,5256,421,1082,1382,2964,3688,4878,5250,5252, & - 5255,5256,598,1235,2020,2922,3689,5181,5250,5252,5255,5256, & - 186,1052,2432,3690,5138,5250,5252,5255,5256,196,848,2113, & - 3691,5065,5250,5252,5255,5256,2454,3692,4952,5250,5252,5255, & - 5256,2236,3693,4861,4894,4976,5250,5255,193,879,935,2328, & - 3694,3858,5250,5252,5255,5256,1443,3695,4927,5250,5252,5255, & - 5256,1861,3696,4637,5250,5252,5255,5256,1936,3697,4326,5250, & - 5252,5255,5256,388,1336,3698,4652,5250,5252,5255,5256,2054, & - 3699,4488,5250,5252,5255,5256,3485,3700,5022,5250,5252,5255, & - 5256,3149,3701,5250,5256,5258,3702,4992,5250,5255,241,1247, & - 3703,4638,5250,5252,5255,5256,1534,3110,3704,5065,5250,5252, & - 5255,5256,1020,3705,4895,5250,5252,5255,5256,2207,2943,3706, & - 3981,5250,5252,5255,5256,3707,4758,5250,5255,3464,3707,3708 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_49 = (/ & - 4758,5197,5250,5255,597,2368,3709,4153,5250,5252,5255,5256, & - 201,561,562,1284,3710,3720,5250,5252,5255,5256,2274,3711, & - 4619,5250,5252,5255,5256,3325,3712,4398,4916,5250,5252,5255, & - 5256,1053,3713,4896,5250,5252,5255,5256,963,2464,3714,4448, & - 5250,5252,5255,5256,1163,1402,3715,4485,5250,5252,5255,5256, & - 1194,1977,2006,3716,4562,4881,5043,5250,5252,5255,992,3389, & - 3717,4765,5250,5252,5255,5256,171,2086,2422,3718,5109,5250, & - 5252,5255,5256,583,989,3719,4190,5250,5252,5255,5256,1604, & - 2296,3398,3720,3852,5250,5252,5255,5256,1171,3442,3721,5250, & - 5252,5255,5256,5258,378,1480,3722,4863,5250,5252,5255,5256, & - 3005,3723,4178,4946,5250,5252,5255,5256,644,2111,2450,3724, & - 4497,5250,5252,5255,5256,1252,3725,4505,5250,5252,5255,5256, & - 814,1680,2262,3725,3726,3945,4505,5250,5252,5255,5256,5258, & - 1898,3727,4896,5250,5252,5255,5256,1127,3728,4951,5250,5252, & - 5255,5256,809,2093,3729,4327,5250,5252,5255,5256,1032,3109, & - 3730,4586,5250,5252,5255,5256,192,1079,1824,3731,5107,5250, & - 5252,5255,5256,746,2351,3732,4076,5250,5252,5255,5256,3733, & - 5215,5250,5252,5255,5256,1280,2544,3010,3734,4955,5132,5224, & - 5250,5253,5255,2297,3265,3735,4714,4767,4858,5250,5252,5255, & - 415,1162,2164,3736,3737,4672,5250,5252,5255,1162,2164,3737, & - 4672,5250,5252,5255,5256,2294,2398,3738,4743,5250,5252,5255, & - 5256,2053,3739,4895,5250,5252,5255,5256,1775,3740,4603,5250, & - 5252,5255,5256,271,599,1324,2002,2313,3741,5198,5250,5252, & - 5255,5256,753,1979,3679,3742,4448,5250,5252,5255,5256,360, & - 1250,3743,4681,5250,5252,5255,5256,2174,3744,4925,5250,5252, & - 5255,5256,1043,3090,3744,3745,4925,5250,5252,5255,5256,1335, & - 1845,3746,4379,5250,5252,5255,5256,895,1010,2291,2361,3212, & - 3393,3747,4577,4722,5250,5252,5255,5256,792,1133,1898,3396, & - 3713,3727,3748,4896,5250,5252,5255,5256,177,1491,2161,3749, & - 5144,5250,5252,5255,5256,2056,2532,3750,3845,5250,5252,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_50 = (/ & - 5256,197,1259,2216,3751,5112,5250,5252,5255,5256,944,3752, & - 4952,5250,5252,5255,5256,1412,2390,3753,4533,5250,5252,5255, & - 5256,102,1533,2782,3754,4529,5250,5252,5255,5256,1120,1894, & - 3243,3755,4364,4554,4596,5250,5252,5255,815,2166,2940,3756, & - 4590,4827,5250,5252,5255,5256,1767,2370,3757,4390,4607,4884, & - 5250,5252,5255,2127,2926,3758,5208,5250,5252,5255,5256,590, & - 1204,1670,2270,2466,3759,4735,4889,5250,5252,5255,541,1164, & - 2423,3760,3905,5250,5252,5255,5256,146,1203,1383,3761,4898, & - 5250,5252,5255,5256,2446,3762,4650,5250,5252,5255,5256,552, & - 969,3636,3763,5153,5250,5252,5255,5256,215,1233,3764,4431, & - 5250,5252,5255,5256,2603,3765,4694,4985,5250,5252,5255,5256, & - 1410,3166,3766,5107,5250,5252,5255,5256,1141,3767,4387,5250, & - 5252,5255,5256,1374,3117,3768,5112,5250,5252,5255,5256,1497, & - 2167,3769,4012,5250,5252,5255,5256,2420,3770,4152,5250,5252, & - 5255,5256,1062,2048,3771,4322,5250,5252,5255,5256,1388,3772, & - 4637,5250,5252,5255,5256,620,911,1861,3423,3696,3772,3773, & - 4637,5250,5252,5255,5256,1123,3774,4650,5250,5252,5255,5256, & - 716,1231,2446,3380,3762,3774,3775,4650,5250,5252,5255,5256, & - 250,276,867,3649,3776,4187,5250,5252,5255,5256,314,1945, & - 2917,3777,5108,5250,5252,5255,5256,2233,2933,3778,5056,5250, & - 5252,5255,5256,2194,2355,3779,4571,5250,5252,5255,5256,651, & - 664,1323,2253,3780,4697,4704,5250,5252,5255,1416,3148,3781, & - 5144,5250,5252,5255,5256,1435,2281,3782,4799,5250,5252,5255, & - 5256,816,2046,3685,3783,4488,5250,5252,5255,5256,591,1202, & - 3653,3784,4814,5250,5252,5255,5256,1075,3118,3785,4766,5250, & - 5252,5255,5256,1024,3786,4397,5250,5252,5255,5256,743,2294, & - 3738,3787,4743,5250,5252,5255,5256,1530,3788,4793,5250,5252, & - 5255,5256,275,951,3789,4679,5250,5252,5255,5256,3169,3790, & - 5250,5252,5255,5256,2499,3164,3791,5250,5252,5255,5256,3792, & - 4975,5010,5250,5256,2283,3157,3220,3793,4591,4592,5250,5252 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_51 = (/ & - 5253,5255,5256,5258,3084,3794,5250,5252,5255,5256,1039,2418, & - 3794,3795,5250,5252,5255,5256,3131,3320,3796,5250,5252,5255, & - 5256,3113,3129,3192,3797,5250,5252,5255,5256,861,3113,3798, & - 5250,5252,5255,5256,3149,3319,3799,5250,5252,5255,5256,2493, & - 3319,3799,3800,4619,4917,5250,5252,5255,5256,2130,3801,5204, & - 5252,5255,5256,129,1000,1525,3527,3802,5250,5252,5255,5256, & - 3179,3803,5250,5252,5255,5256,3144,3804,5250,5252,5255,5256, & - 1027,2406,3804,3805,5250,5252,5255,5256,3806,4600,5252,5255, & - 5256,3144,3807,5250,5252,5255,5256,2565,3135,3808,5250,5252, & - 5255,5256,655,1784,1928,3809,4199,4875,5199,5233,5250,5252, & - 5255,5256,3343,3790,3810,5250,5252,5255,5256,3105,3811,5250, & - 5252,5255,5256,1211,1964,3811,3812,5250,5252,5255,5256,2520, & - 3136,3813,5250,5252,5255,5256,3331,3797,3814,5250,5252,5255, & - 5256,2709,3172,3815,5250,5252,5255,5256,3027,3815,3816,4743, & - 4930,5250,5252,5255,5256,1200,3182,3817,5250,5252,5255,5256, & - 81,1200,1216,3817,3818,5250,5252,5255,5256,3182,3819,5250, & - 5252,5255,5256,3158,3321,3820,5250,5252,5255,5256,752,2806, & - 3321,3406,3482,3820,3821,4326,4726,4968,5250,5252,5255,5256, & - 5258,675,964,2049,3822,5119,5250,5252,5255,250,3823,5250, & - 5252,5255,5256,1307,2383,3823,3824,5250,5252,5255,5256,3130, & - 3279,3825,5250,5252,5255,5256, 22,861,1896,3798,3826,5250, & - 5252,5255,5256,3157,3253,3827,5250,5252,5255,5256,2649,3139, & - 3828,5250,5252,5255,5256,2776,3828,3829,4322,5250,5252,5255, & - 5256,3830,4397,5250,5256,5258,3136,3831,5250,5256,5258,3832, & - 5030,5250,5258,3192,3833,5250,5256,5258,3145,3834,5250,5256, & - 5258,3835,5015,5250,5252,3369,3836,5045,5250,5252,5255,5256, & - 3216,3837,5024,5250,5252,5255,5256, 49,1203,1985,3761,3838, & - 4898,5250,5252,5255,5256,887,2273,3839,4567,5250,5252,5255, & - 5256,1071,3840,5083,5250,5252,5255,5256,367,1199,3841,5245, & - 5250,5252,5255,5256,1940,3842,4702,5250,5252,5255,5256,380 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_52 = (/ & - 1298,2149,2710,3843,5186,5250,5252,5255,5256,1862,3844,5249, & - 5250,5252,5255,5256,443,942,1093,2661,3845,4545,5250,5252, & - 5255,5256,775,863,1985,3838,3846,4898,5250,5252,5255,5256, & - 2463,3847,5203,5250,5252,5255,5256,1046,3848,5187,5250,5252, & - 5255,5256,530,690,1912,2578,2894,2931,3848,3849,4117,4120, & - 5187,5250,5252,5255,5256,5258,1371,3850,5169,5250,5252,5255, & - 5256,349,1751,2277,3851,4696,5250,5252,5255,5256,3852,5215, & - 5250,5252,5255,5256,1021,3853,5141,5250,5252,5255,5256,205, & - 2169,2264,3038,3854,5082,5250,5252,5255,5256,297,1155,2327, & - 3855,4319,5250,5252,5255,5256,338,2169,2264,3856,5082,5250, & - 5252,5255,5256,1262,1693,1980,3857,4880,5250,5252,5255,5256, & - 265,1277,3858,5021,5250,5252,5255,5256,2633,2906,3859,5077, & - 5250,5252,5255,5256,891,2714,3238,3860,4667,5250,5252,5255, & - 5256,348,1321,1884,3861,4348,5250,5252,5255,5256,1676,1689, & - 3862,4987,5250,5252,5255,5256,2451,3863,4605,5250,5252,5255, & - 5256,2230,2289,3621,3864,5091,5250,5252,5255,5256,1306,3865, & - 4907,5250,5252,5255,5256,328,3866,4395,5250,5252,5255,5256, & - 3867,4605,5250,5252,5255,5256,1577,2193,2223,3023,3404,3868, & - 4901,4994,5250,5252,5253,5255,5256,2543,2974,3869,4974,5250, & - 5252,5255,5256,155,1987,2416,3870,4942,5250,5252,5255,5256, & - 132,1032,2095,3730,3871,4586,5250,5252,5255,5256,2407,3872, & - 5175,5250,5252,5255,5256,2775,2990,3873,5061,5250,5252,5255, & - 5256,1544,1989,3447,3874,4157,5250,5252,5255,5256,242,1966, & - 2168,3875,4733,5250,5252,5255,5256,1517,3876,5169,5250,5252, & - 5255,5256,339,2019,2403,2767,3877,4886,5250,5252,5255,5256, & - 2394,3878,4593,5250,5252,5255,5256,577,1177,2453,2634,3836, & - 3879,5045,5250,5252,5255,5256, 43,1534,2205,3704,3880,5065, & - 5250,5252,5255,5256,140,1374,2027,3768,3881,5112,5250,5252, & - 5255,5256,290,826,2257,3882,4216,5250,5252,5255,5256,1314, & - 3883,5250,5252,5255,5256,5257,1880,3884,5165,5250,5252,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_53 = (/ & - 5256,2871,3032,3885,5147,5250,5252,5255,5256,1183,3886,5207, & - 5250,5252,5255,5256,2069,3887,4700,5250,5252,5255,5256,1080, & - 3432,3887,3888,4700,5250,5252,5255,5256,1514,3594,3889,5061, & - 5250,5252,5255,5256,159,949,2079,3890,3901,5250,5252,5255, & - 5256,2180,3891,4988,5250,5252,5255,5256,1582,2987,3892,4698, & - 4984,5250,5253,5256,2699,2785,3893,5192,5250,5252,5255,5256, & - 566,1469,3894,5238,5250,5252,5255,5256,971,3895,5189,5250, & - 5252,5255,5256,550,1745,2267,3687,3788,3896,4793,5250,5252, & - 5255,5256,829,3897,4344,5250,5252,5255,5256,881,3898,4988, & - 5250,5252,5255,5256,2556,3391,3899,4890,5250,5252,5255,5256, & - 1305,2817,3472,3900,4609,5250,5252,5255,5256,156,1178,1771, & - 3901,5041,5250,5252,5255,5256,113,1333,3902,3951,5250,5252, & - 5255,5256,2799,3903,4397,5250,5252,5255,5256,2114,3904,4719, & - 5250,5252,5255,5256, 42,1043,2423,3745,3905,4925,5250,5252, & - 5255,5256,3382,3777,3906,5108,5250,5252,5255,5256,1487,3907, & - 5212,5250,5252,5255,5256,1617,3908,5044,5250,5252,5255,5256, & - 3278,3909,4345,5250,5252,5255,5256,2455,3910,4884,5250,5252, & - 5255,5256,747,1606,1850,3677,3695,3911,4927,5250,5252,5255, & - 5256,117,1075,1937,3785,3912,4766,5250,5252,5255,5256,696, & - 1312,3913,4350,5250,5252,5255,5256,660,1713,2053,3705,3739, & - 3914,4895,5250,5252,5255,5256,546,1616,2761,2871,3885,3915, & - 5147,5250,5252,5255,5256, 35,1028,2411,3678,3916,5138,5250, & - 5252,5255,5256,469,1168,2284,2299,3749,3917,5144,5250,5252, & - 5255,5256,1578,2482,2686,3196,3438,3569,3578,3918,4558,4568, & - 4674,5250,5252,5255,5256, 66,1410,2298,3766,3919,5107,5250, & - 5252,5255,5256,2098,3920,5249,5250,5252,5255,5256,2103,3921, & - 4492,5250,5252,5255,5256,2449,3922,4782,5250,5252,5255,5256, & - 546,2761,2871,3885,3923,5147,5250,5252,5255,5256,308,2097, & - 2192,2906,3924,5077,5250,5252,5255,5256,2125,3925,4587,5250, & - 5252,5255,5256,185,1212,1841,2269,3926,4581,5250,5252,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_54 = (/ & - 5256,3927,5175,5250,5252,5255,5256,1502,3928,5207,5250,5252, & - 5255,5256,1457,2429,2705,3929,4460,4783,5250,5252,5253,5255, & - 5256,3450,3930,3931,4887,4899,4947,5250,5252,5256,3452,3469, & - 3931,4887,4899,4947,5250,5255,160,2227,2285,3932,5163,5250, & - 5252,5255,5256,3224,3933,4826,5225,5250,5252,5253,5255,5256, & - 1063,3934,4574,5250,5252,5255,5256,497,1531,2693,3935,4785, & - 5250,5252,5255,5256,3936,4492,5250,5252,5255,5256,1301,1845, & - 3937,4379,5250,5252,5255,5256,1482,1779,3938,4778,5250,5252, & - 5255,5256,1438,3939,5069,5250,5252,5255,5256,2065,3940,4605, & - 5250,5252,5255,5256, 91,1282,2016,3674,3941,5146,5250,5252, & - 5255,5256,1302,3942,4579,5250,5252,5255,5256,1844,3943,4492, & - 5250,5252,5255,5256,2244,3944,4736,5250,5252,5255,5256,2262, & - 3945,4505,5250,5252,5255,5256,223,727,1382,2202,3688,3946, & - 4878,5250,5252,5255,5256,427,1492,1933,2722,3947,4789,5250, & - 5252,5255,5256,2426,3384,3948,4334,5250,5252,5255,5256,984, & - 3949,5095,5250,5252,5255,5256,1272,3950,5095,5250,5252,5255, & - 5256,183,1195,2250,3951,5114,5250,5252,5255,5256,2922,3952, & - 5181,5250,5252,5255,5256,974,2875,3953,4675,5250,5252,5255, & - 5256,2186,2360,3055,3954,4765,5250,5252,5255,5256,370,1007, & - 1353,3955,4201,5250,5252,5255,5256,2413,3956,4714,5250,5252, & - 5255,5256,699,882,2311,3957,4825,5250,5252,5255,5256,643, & - 2153,2567,3958,4477,4525,5250,5252,5253,5255,5256,847,1886, & - 2367,3959,4574,4645,5053,5149,5250,5252,5255,3041,3960,4346, & - 5250,5252,5255,5256,2710,3046,3961,5186,5250,5252,5255,5256, & - 1605,3962,4953,5250,5252,5255,5256,3963,4988,5250,5252,5255, & - 5256,1515,3418,3956,3964,4714,5250,5252,5255,5256,3464,3524, & - 3707,3965,4617,4758,4913,5250,5255,3966,5249,5250,5252,5255, & - 5256,202,1966,2168,3967,4733,5250,5252,5255,5256,798,2389, & - 3680,3968,4799,5250,5252,5255,5256,1990,3969,5175,5250,5252, & - 5255,5256,2366,3970,4723,5250,5252,5255,5256,2178,3971,4988 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_55 = (/ & - 5250,5252,5255,5256,229,3405,3972,4610,5250,5252,5255,5256, & - 1170,2645,3973,4683,5250,5252,5255,5256,1381,3974,5189,5250, & - 5252,5255,5256,1345,3437,3975,4937,5250,5252,5255,5256,1275, & - 2348,3976,4806,5250,5252,5255,5256, 50,1416,2316,3781,3977, & - 5144,5250,5252,5255,5256,495,1965,2057,2699,2755,3978,4990, & - 5192,5250,5252,5253,5255,5256,1430,2438,3623,3979,4780,5250, & - 5252,5255,5256,873,3980,4794,5250,5252,5255,5256,254,1266, & - 1470,3034,3981,3982,5250,5252,5255,5256,1470,3982,5215,5250, & - 5252,5255,5256,2398,3983,4743,5250,5252,5255,5256,986,2217, & - 3984,4969,5250,5252,5255,5256,1012,3985,5083,5250,5252,5255, & - 5256,333,1559,1992,2218,3667,3986,4886,5250,5252,5255,5256, & - 1377,3987,4395,5250,5252,5255,5256,885,3988,5250,5252,5255, & - 5256,5257,165,1751,2277,3989,4696,5250,5252,5255,5256,3990, & - 4970,5250,5252,5255,5256,355,1005,3205,3991,4359,5250,5252, & - 5255,5256, 36,865,2797,3992,4244,5250,5252,5255,5256,2392, & - 2616,3204,3993,4783,4936,5025,5035,5250,5253,5255,1468,3994, & - 4605,5250,5252,5255,5256,1702,2338,2463,3847,3995,5203,5250, & - 5252,5255,5256,3097,3996,5250,5256,5258,822,3997,4444,5250, & - 5252,5255,5256,5258,907,1651,2957,3485,3998,5022,5250,5252, & - 5253,5255,5256,1091,3999,4791,5250,5252,5255,5256,5258,503, & - 1537,2225,3318,3655,4000,4139,5250,5252,5253,5255,5256,854, & - 4001,4495,5250,5252,5255,5256,5258,1421,4002,4509,5250,5252, & - 5255,5256,5258,3096,4003,5250,5252,5255,5256,1276,2317,4003, & - 4004,5250,5252,5255,5256,341,1002,2102,3229,3657,4005,4100, & - 5250,5252,5253,5255,5256,978,4006,4690,5250,5252,5255,5256, & - 5258,1003,4007,4670,5250,5252,5255,5256,5258,843,4008,4437, & - 5250,5252,5255,5256,5258,943,4009,4407,5250,5252,5255,5256, & - 5258,250,4010,5250,5256,5258,892,4011,4671,5250,5252,5255, & - 5256,5258, 84,996,1700,2565,3534,3808,4012,5250,5252,5255, & - 5256, 65,103,1497,2631,2838,3769,4012,4013,5250,5252,5253 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_56 = (/ & - 5255,5256,676,738,2563,2595,3279,3499,3560,3808,3825,4012, & - 4014,4533,5250,5252,5255,5256,5258,1279,2868,4015,4883,4957, & - 5250,5252,5255,5256,1188,4016,4479,5250,5252,5255,5256,5258, & - 3169,4017,5250,5256,5258,3182,4018,5250,5256,5258,375,1008, & - 4019,4752,5085,5250,5252,5255,5256,1476,4020,4453,5250,5252, & - 5255,5256,5258,1308,4021,4790,5250,5252,5255,5256,5258,1230, & - 4022,4798,5250,5252,5255,5256,5258,1361,4023,4639,5250,5252, & - 5255,5256,5258,3280,3590,4024,4993,5250,5252,5255,5256,5258, & - 2091,2167,4012,4025,5250,5252,5255,5256,2652,2998,3595,4025, & - 4026,5250,5252,5253,5255,5256,3138,4027,5250,5256,5258,1451, & - 3145,4028,5250,5252,5255,5256,3225,3800,4029,4619,4917,5250, & - 5252,5255,5256,3368,3807,4030,5250,5252,5255,5256,1293,2295, & - 4030,4031,5250,5252,5255,5256,3105,4032,5250,5256,5258,1243, & - 4033,4471,5250,5252,5255,5256,5258,1061,4034,4810,5250,5252, & - 5255,5256,5258,844,4035,4402,5250,5252,5255,5256,5258,1221, & - 4036,4797,5250,5252,5255,5256,5258,1227,4037,4494,5250,5252, & - 5255,5256,5258,389,1283,3385,3640,4038,4338,5250,5252,5253, & - 5255,5256,1366,4039,4676,5250,5252,5255,5256,5258,1452,4040, & - 4682,5250,5252,5255,5256,5258,423,1228,2379,3232,3645,4041, & - 4181,5250,5252,5253,5255,5256, 45,1202,1397,1724,2214,2942, & - 3784,4042,4137,4814,5250,5252,5255,5256,507,1454,4043,4738, & - 5240,5250,5252,5255,5256,950,4044,4788,5250,5252,5255,5256, & - 5258, 47,938,1613,2520,3562,3813,4045,5250,5252,5255,5256, & - 116,318,521,2541,2765,3675,4045,4046,5250,5252,5253,5255, & - 5256,2789,3050,3791,3813,4045,4047,4799,5034,5250,5252,5255, & - 5256,1645,3385,3793,4038,4048,4338,4591,4592,5250,5252,5253, & - 5255,5256,5258,1429,4049,4514,5250,5252,5255,5256,5258,1076, & - 2353,3303,4050,4051,5250,5252,5253,5255,5256,717,1076,1716, & - 2134,2900,3303,3343,3790,3810,4051,5250,5252,5253,5255,5256, & - 387,952,3461,4050,4051,4052,5250,5252,5253,5255,5256,551 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_57 = (/ & - 669,1999,2466,4053,4804,4889,5250,5252,5255,5256,1017,4054, & - 4413,5250,5252,5255,5256,5258,3097,4055,5250,5252,5255,5256, & - 3096,4056,5250,5256,5258,1294,4057,4454,5250,5252,5255,5256, & - 5258,329,975,1907,4058,4500,4834,5250,5252,5255,5256,492, & - 1317,4059,5006,5095,5250,5252,5255,5256,272,1208,2156,2574, & - 3637,3972,4060,4222,4610,5250,5252,5255,5256,857,4061,4632, & - 5250,5252,5255,5256,5258,3458,4047,4062,4799,5034,5250,5252, & - 5255,5256,1303,4063,4457,5250,5252,5255,5256,5258,1450,4064, & - 4499,5250,5252,5255,5256,5258,1539,4065,4466,5250,5252,5255, & - 5256,5258,4066,5022,5074,5250,5252,1427,4067,4859,5250,5252, & - 5255,5256,5258,1431,3084,4068,5250,5252,5255,5256,1878,3439, & - 3440,4068,4069,5250,5252,5255,5256,3412,3819,4070,5250,5252, & - 5255,5256,1109,4071,4491,4986,5250,5252,5255,5256,1453,4072, & - 4663,5250,5252,5255,5256,5258,1152,4073,4487,5250,5252,5255, & - 5256,5258,1535,3192,4074,5250,5252,5255,5256,1419,4075,4408, & - 5250,5252,5255,5256,5258,1805,2351,4045,4076,5250,5252,5255, & - 5256,210,1540,3947,4077,4484,4789,5250,5252,5255,5256,147, & - 640,4078,4600,5250,5252,5255,5256,5258,1125,4079,4531,5250, & - 5252,5255,5256,5258,3113,4080,5250,5256,5258,4032,4080,4081, & - 4272,5103,5126,5250,5256,5258,1156,4082,4438,5250,5252,5255, & - 5256,5258,3134,4083,5250,5256,5258,3622,4010,4027,4056,4083, & - 4084,5037,5103,5123,5250,5256,5258,852,4085,4504,5250,5252, & - 5255,5256,5258,3226,3816,4086,4743,4930,5250,5252,5255,5256, & - 1285,4087,4255,4794,5250,5252,5255,5256,251,900,4088,5014, & - 5207,5250,5252,5255,5256,1975,2415,2626,2888,4089,4090,4091, & - 5250,5252,5255,5256,912,4090,4600,5250,5252,5255,5256,1241, & - 4091,4492,5250,5252,5255,5256,1147,2480,2626,2888,4089,4090, & - 4091,4092,4492,4600,5250,5252,5255,5256,3084,4093,5250,5256, & - 5258,3144,4094,5250,5256,5258,2618,4095,5157,5250,5252,5255, & - 5256,4096,5132,5250,5252,5258,897,4097,4600,5250,5252,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_58 = (/ & - 5256,162,1135,2352,3962,4098,4953,5250,5252,5255,5256,588, & - 1207,4099,5238,5250,5252,5255,5256,1002,3229,3657,4100,5250, & - 5252,5253,5255,5256,216,1426,3456,4005,4100,4101,5250,5252, & - 5253,5255,5256,1982,2901,3732,4076,4102,5250,5252,5253,5255, & - 5256,468,1401,1780,1781,3751,4103,5112,5250,5252,5255,5256, & - 633,731,1414,1934,2332,2445,2701,4104,4580,4597,4644,5019, & - 5250,5252,5255,5256,2634,3291,3836,4105,5045,5250,5252,5255, & - 5256,3259,4106,5110,5250,5252,5255,5256,4107,5217,5218,5250, & - 5255,3598,4108,4809,5250,5252,5255,5256, 9,285,706,981, & - 1655,2436,3231,4109,4778,4856,4885,5127,5250,5252,5255,5256, & - 425,1692,2182,2233,3778,4110,5056,5250,5252,5255,5256,4111, & - 5153,5250,5252,5255,5256,1288,4112,4512,5250,5252,5255,5256, & - 4113,5118,5204,5250,5255,2369,3592,4114,4777,5250,5252,5255, & - 5256,858,2809,4115,4572,5250,5252,5255,5256,433,1347,4116, & - 5054,5250,5252,5255,5256,1527,4117,5187,5250,5252,5255,5256, & - 1495,1712,2572,4118,4367,5250,5252,5255,5256,407,1197,1367, & - 3081,4119,4173,5250,5252,5255,5256,203,1463,2224,3908,4120, & - 5044,5250,5252,5255,5256,980,1641,4121,5238,5250,5252,5255, & - 5256,525,1304,2122,2268,3731,4122,5107,5250,5252,5255,5256, & - 217,3621,4123,5091,5250,5252,5255,5256,931,4124,5213,5250, & - 5252,5255,5256,3451,3468,3618,3707,4125,4749,4758,4893,4905, & - 4982,5001,5250,5255,2614,3287,4126,5097,5250,5252,5255,5256, & - 2753,3156,4127,4616,5250,5252,5255,5256,4110,4128,5056,5250, & - 5252,5255,5256,386,4129,4832,5252,5255,5256,5258,1614,1801, & - 2524,4130,4385,5250,5252,5255,5256,849,1189,4131,4624,5250, & - 5252,5255,5256,1473,2950,4080,4132,5250,5253,5255,5256,5258, & - 1486,3138,4133,5250,5252,5255,5256,997,4134,4865,5250,5252, & - 5255,5256,224,4135,5175,5252,5255,5256,5258,1818,2802,4136, & - 5130,5250,5252,5255,5256,1931,2965,3902,3951,4137,5114,5250, & - 5252,5255,5256,1832,2930,3078,4138,4584,5250,5252,5255,5256 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_59 = (/ & - 1537,3318,3655,4139,5250,5252,5253,5255,5256,1072,4140,4474, & - 5250,5252,5255,5256,4141,5068,5250,5252,5255,5256,3591,4142, & - 4900,5250,5252,5255,5256,1391,4143,4601,5250,5252,5255,5256, & - 419,4144,4605,5252,5255,5256,5258,224,4145,5175,5252,5255, & - 5256,5258,4146,4600,5250,5252,5255,5256,2293,2621,4147,5104, & - 5250,5252,5255,5256,419,4148,4605,5252,5255,5256,5258,877, & - 4149,5031,5250,5252,5255,5256,182,821,1260,2458,4150,5196, & - 5250,5252,5255,5256,1362,3806,4151,4600,5250,5252,5255,5256, & - 119,1033,1567,2624,3503,3665,4152,5250,5252,5255,5256,2368, & - 2420,4152,4153,5250,5252,5255,5256,107,373,459,2064,3019, & - 3770,4152,4154,5250,5252,5253,5255,5256,976,3002,4155,4879, & - 5250,5252,5255,5256,4156,4922,4923,5250,5256,169,935,1263, & - 3694,3858,4157,5021,5250,5252,5255,5256,1935,3066,4158,5081, & - 5250,5252,5255,5256,4159,5049,5250,5252,5255,5256,2363,3575, & - 4160,4881,5250,5252,5255,5256,1897,2118,4161,5032,5250,5252, & - 5255,5256,211,1331,2195,4162,4748,5250,5252,5255,5256,1775, & - 1943,4163,4603,5250,5252,5255,5256,524,1387,2031,2387,3691, & - 4164,5065,5250,5252,5255,5256,4165,5066,5250,5252,5255,5256, & - 1390,2722,4166,4789,5250,5252,5255,5256,1159,3169,4167,5250, & - 5252,5255,5256,796,2307,2681,4167,4168,5250,5252,5253,5255, & - 5256,175,2083,2400,2424,4169,5161,5250,5252,5255,5256,1292, & - 1790,3314,4170,4594,5250,5252,5255,5256,1849,4171,5124,5250, & - 5252,5255,5256,315,1245,2408,4172,4764,5250,5252,5255,5256, & - 1197,3398,3852,4173,5215,5250,5252,5255,5256,2179,3572,4174, & - 4972,5250,5252,5255,5256,2082,2700,3053,3681,3709,4153,4175, & - 4535,4631,4731,5250,5252,5253,5255,5256,522,4176,5207,5252, & - 5255,5256,5258, 54,1535,3445,4074,4177,5250,5252,5255,5256, & - 2732,3235,3283,3650,3659,4178,4946,5250,5252,5255,5256,295, & - 1349,2060,2206,3690,4179,5138,5250,5252,5255,5256,3261,4180, & - 4805,5250,5252,5255,5256,801,1228,1735,1797,2690,3232,3412 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_60 = (/ & - 3645,3819,4070,4181,5250,5252,5253,5255,5256,483,1393,3474, & - 4041,4181,4182,5250,5252,5253,5255,5256,439,1128,1612,2108, & - 2170,2587,3043,4183,4746,5099,5206,5250,5252,5253,5255,5256, & - 952,4052,4184,5250,5252,5253,5255,5256,1186,4185,4600,5250, & - 5252,5255,5256,920,1297,2343,4097,4146,4185,4186,4600,5250, & - 5252,5255,5256,867,2780,3649,4187,5250,5252,5253,5255,5256, & - 1117,2467,3214,4188,4669,5250,5252,5255,5256,450,931,1496, & - 2892,4124,4189,5213,5250,5252,5255,5256,1164,3760,3905,4190, & - 4925,5250,5252,5255,5256,954,1360,4191,4631,5250,5252,5255, & - 5256,1459,3142,4192,4670,5250,5252,5253,5255,5256,1532,3114, & - 4193,4639,5250,5252,5253,5255,5256,1025,3178,4194,4790,5250, & - 5252,5253,5255,5256,979,3092,4195,4531,5250,5252,5253,5255, & - 5256,191,1413,1648,1649,2829,3722,4196,4863,5250,5252,5253, & - 5255,5256,1047,1087,4197,4855,5083,5250,5252,5255,5256,1206, & - 1368,4198,4576,5250,5252,5253,5255,5256,2064,2485,2541,2765, & - 3019,4046,4154,4199,4877,5250,5252,5253,5255,5256,1379,3119, & - 4200,4487,5250,5252,5253,5255,5256,293,1007,4201,4492,5250, & - 5252,5255,5256,5258,542,2248,2482,2643,4202,4558,5250,5252, & - 5253,5255,5256,2899,3014,3968,4203,4799,5250,5252,5253,5255, & - 5256,1278,3189,4204,4676,5250,5252,5253,5255,5256,1504,3187, & - 4205,4791,5250,5252,5253,5255,5256,2208,2620,4206,5012,5250, & - 5252,5253,5255,5256,2251,2800,3938,4207,4778,5250,5252,5253, & - 5255,5256,1184,2105,3933,4208,4826,5225,5250,5252,5253,5255, & - 5256,2320,2498,4209,4851,5250,5252,5253,5255,5256,962,3127, & - 4210,4413,5250,5252,5253,5255,5256,908,1870,2405,4211,4368, & - 4595,5250,5252,5255,5256,1051,3114,4212,4639,5250,5252,5253, & - 5255,5256,529,4213,5069,5251,5252,5253,5254,5258,204,1335, & - 2159,2608,3746,4214,4379,5250,5252,5253,5255,5256,2301,3051, & - 4215,4961,5250,5252,5253,5255,5256,178,826,872,1972,2773, & - 3313,3698,4216,4652,5250,5252,5253,5255,5256,1322,3167,4217 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_61 = (/ & - 4514,5250,5252,5253,5255,5256,510,1359,2505,2862,3983,4218, & - 4743,5250,5252,5253,5255,5256,309,1064,1867,2817,3900,4219, & - 4609,4611,5250,5252,5255,5256, 76,989,2142,2530,3719,4190, & - 4220,4925,5250,5252,5253,5255,5256, 14,455,518,2991,3040, & - 3699,4221,4488,5250,5252,5253,5255,5256,1208,2517,3972,4222, & - 4610,5250,5252,5253,5255,5256,1121,2067,2133,4223,4336,4607, & - 4608,4702,5250,5252,5255,399,879,2328,2658,3858,4224,5021, & - 5250,5252,5253,5255,5256,1190,3112,4225,4509,5250,5252,5253, & - 5255,5256,157,1339,1883,2979,3323,3743,4226,4681,5250,5252, & - 5253,5255,5256,2120,2929,4227,4424,4815,5250,5252,5253,5255, & - 5256,2329,3045,3549,4228,4711,5022,5250,5252,5253,5255,5256, & - 1816,3042,3449,4229,4339,5250,5252,5253,5255,5256,2116,2784, & - 3861,4230,4348,5250,5252,5253,5255,5256,1743,2187,2375,2716, & - 3676,4231,4610,4616,5250,5252,5255,5256,1423,3152,4232,4663, & - 5250,5252,5253,5255,5256,2228,2538,4233,4502,4775,5250,5252, & - 5253,5255,5256,414,470,1507,4234,4839,4978,5250,5252,5255, & - 5256,1826,2723,3126,3528,4235,4903,4967,5250,5252,5255,5256, & - 27,2386,4236,5083,5250,5252,5255,5256,5258,1329,3123,4237, & - 4466,5250,5252,5253,5255,5256,1198,1398,4164,4238,4417,5065, & - 5250,5252,5255,5256,2483,3049,3480,3615,3682,4239,4730,4734, & - 4779,5250,5252,5255,5256,640,4240,4600,5215,5250,5252,5255, & - 5256,5258,120,397,398,2055,2683,3697,4241,4326,5250,5252, & - 5253,5255,5256, 20,1887,4242,5095,5250,5252,5255,5256,5258, & - 2319,2678,3935,4243,4785,5250,5252,5253,5255,5256,865,929, & - 4244,4451,4882,5250,5252,5255,5256,972,3190,4245,4632,5250, & - 5252,5253,5255,5256,1253,3162,4246,4454,5250,5252,5253,5255, & - 5256,790,4247,4786,5251,5252,5253,5254,5258,532,831,1179, & - 1667,2172,2519,2693,2785,3893,3932,4248,4785,5163,5192,5250, & - 5252,5255,5256,3517,4249,4988,5250,5252,5255,5256,5258,701, & - 4250,5024,5251,5252,5253,5254,5258,280,1196,2331,3946,4251 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_62 = (/ & - 4878,5088,5250,5252,5255,5256,1524,3116,4252,4402,5250,5252, & - 5253,5255,5256, 33, 82,963,2443,2863,3714,4253,4448,5250, & - 5252,5253,5255,5256,1122,1226,4179,4254,4450,5138,5250,5252, & - 5255,5256,1285,2791,4255,4794,5250,5252,5253,5255,5256,2101, & - 2590,4256,4894,4945,5074,5154,5250,5252,5255,919,2143,3307, & - 4257,4288,4914,5250,5252,5253,5255,5256,522,4258,5207,5251, & - 5252,5253,5254,5258,2431,2801,4259,4373,5250,5252,5253,5255, & - 5256,2144,2677,3991,4260,4359,5250,5252,5253,5255,5256,2173, & - 2519,2785,3893,3932,4261,5163,5192,5250,5252,5255,5256,825, & - 3181,4262,4797,5250,5252,5253,5255,5256,222,909,1436,3612, & - 4263,4648,4862,5250,5252,5255,5256,236,4264,5251,5252,5253, & - 5254,5257,5258,1096,3167,4265,4514,5250,5252,5253,5255,5256, & - 1770,2898,4151,4266,4600,5250,5252,5253,5255,5256,2529,2763, & - 3571,4163,4267,4603,5250,5252,5253,5255,5256,886,1888,4268, & - 5086,5111,5250,5252,5255,5256,2402,2576,3228,4269,5132,5250, & - 5252,5253,5255,5256,1115,1418,4122,4270,4443,5107,5250,5252, & - 5255,5256,1508,3146,4271,4859,5250,5252,5253,5255,5256,3129, & - 4272,5250,5256,5258,1105,3092,4273,4531,5250,5252,5253,5255, & - 5256,1759,3124,3537,4274,4566,4573,5250,5252,5255,5256,2384, & - 2698,4275,5067,5250,5252,5253,5255,5256,1273,3137,4276,4788, & - 5250,5252,5253,5255,5256,2971,3460,3600,4277,4335,4933,5250, & - 5252,5255,5256,696,754,1312,2214,2759,2942,4137,4166,4278, & - 4350,4789,5114,5250,5252,5255,5256,554,1213,2256,4128,4279, & - 4960,5056,5250,5252,5255,5256,860,3123,4280,4466,5250,5252, & - 5253,5255,5256,2396,2738,4281,5009,5250,5252,5253,5255,5256, & - 563,4282,5168,5251,5252,5253,5254,5258,2371,2896,4283,4873, & - 5250,5252,5253,5255,5256,1947,2028,2478,4284,4804,4817,5250, & - 5252,5255,5256,1166,3191,4285,4810,5250,5252,5253,5255,5256, & - 3155,4286,5166,5251,5252,5253,5254,5258,1148,3087,4287,4499, & - 5250,5252,5253,5255,5256,919,3307,4288,4914,5250,5252,5253 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_63 = (/ & - 5255,5256,1029,3143,4289,4682,5250,5252,5253,5255,5256,138, & - 2143,2151,3307,4257,4288,4290,4914,5250,5252,5253,5255,5256, & - 917,3095,4291,4471,5250,5252,5253,5255,5256,1144,3112,4292, & - 4509,5250,5252,5253,5255,5256,1104,3095,4293,4471,5250,5252, & - 5253,5255,5256,2085,2870,3211,3261,3280,3502,3563,4180,4294, & - 4772,4805,4826,4993,5003,5075,5133,5155,5172,5250,5252,5255, & - 5256,5258,351,1209,1761,3327,4224,4295,4496,5021,5250,5252, & - 5253,5255,5256,878,3100,4296,4444,5250,5252,5253,5255,5256, & - 1101,3087,4297,4499,5250,5252,5253,5255,5256,1420,3163,4298, & - 4690,5250,5252,5253,5255,5256, 16,106,1412,2754,3052,3753, & - 4299,4533,5250,5252,5253,5255,5256,437,836,2030,2189,3718, & - 4300,4784,5109,5250,5252,5255,5256,2146,3017,4186,4301,4600, & - 5250,5252,5253,5255,5256,640,4302,4600,5251,5252,5253,5254, & - 5258,1255,3119,4303,4487,5250,5252,5253,5255,5256,1512,3162, & - 4304,4454,5250,5252,5253,5255,5256,913,3120,4305,4671,5250, & - 5252,5253,5255,5256,835,3088,4306,4798,5250,5252,5253,5255, & - 5256,923,3100,4307,4444,5250,5252,5253,5255,5256,130,490, & - 491,2725,2911,3740,4308,4603,5250,5252,5253,5255,5256,2084, & - 3298,3822,4309,4800,5119,5250,5252,5255,5256,519,1477,1730, & - 3986,4310,4523,4886,5147,5250,5252,5255,5256,1370,1409,1968, & - 3833,4311,4654,5250,5252,5255,5256,5258,1399,3116,4312,4402, & - 5250,5252,5253,5255,5256,1627,2259,2513,2633,2713,3038,3854, & - 3859,4313,5077,5082,5250,5252,5255,5256,1358,3127,4314,4413, & - 5250,5252,5253,5255,5256,168,1070,2063,3270,3703,4315,4638, & - 5250,5252,5253,5255,5256,232,2010,2434,2815,4316,4364,5250, & - 5252,5253,5255,5256,1187,3142,4317,4670,5250,5252,5253,5255, & - 5256,1217,1498,4318,4627,4717,5250,5252,5255,5256,151,1004, & - 1155,2157,3213,3789,4319,4679,5250,5252,5253,5255,5256,477, & - 4320,4601,5251,5252,5253,5254,5258,2308,4321,5217,5252,5255, & - 5256, 17,959,1669,2649,3518,3828,4322,5250,5252,5255,5256 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_64 = (/ & - 2048,2342,4322,4323,5250,5252,5255,5256, 57, 90,1062,2349, & - 2615,3771,4322,4324,5250,5252,5253,5255,5256,1726,2349,2615, & - 2631,2838,3455,4013,4324,4325,4706,5250,5252,5253,5255,5256, & - 109,1157,1549,3321,3491,3820,4326,5250,5252,5255,5256,1936, & - 2093,4326,4327,5250,5252,5255,5256,3209,3821,4326,4328,4726, & - 4968,5250,5252,5255,5256,5258,2039,2082,2970,3593,3729,4323, & - 4327,4329,4731,5250,5252,5253,5255,5256,4330,5128,5250,5253, & - 5258,2551,2557,2586,2736,2952,3016,3363,3381,4192,4193,4212, & - 4276,4285,4317,4331,4639,4643,4655,4670,4788,4810,5250,5252, & - 5253,5255,5256,4332,5250,5256,5258,3465,3466,4332,4333,4475, & - 4604,4606,4840,5250,5256,5258,3594,4334,5061,5250,5252,5255, & - 5256,914,4017,4335,5250,5252,5255,5256,5258,2558,3843,4336, & - 5186,5250,5252,5255,5256,1364,4337,4794,5250,5252,5255,5256, & - 1283,2956,3640,4338,5250,5252,5253,5255,5256,4339,5002,5250, & - 5252,5255,5256,1984,2812,4189,4340,5213,5250,5252,5255,5256, & - 4341,5093,5250,5252,5255,5256,252,1107,4342,5027,5250,5252, & - 5255,5256,1926,3642,4342,4343,5027,5250,5252,5253,5255,5256, & - 829,3409,3922,4344,4782,5250,5252,5255,5256,3278,3364,3970, & - 4345,4723,5250,5252,5255,5256,998,1344,4346,4854,5250,5252, & - 5255,5256,2602,4347,5076,5250,5252,5255,5256,1884,2939,4348, & - 5150,5250,5252,5255,5256,803,4103,4349,5112,5250,5252,5255, & - 5256,1803,2759,4166,4350,4789,5250,5252,5255,5256,1859,4351, & - 5200,5250,5252,5255,5256,558,1916,2580,2635,4096,4352,4724, & - 4772,5132,5250,5252,5253,5255,5256,5258,4353,4840,5250,5252, & - 5255,5256,2009,4354,4882,5250,5252,5255,5256,609,4164,4355, & - 5065,5250,5252,5255,5256,2401,3843,4356,5186,5250,5252,5255, & - 5256,1499,4357,5063,5250,5252,5255,5256,3446,4358,5058,5250, & - 5252,5255,5256,2647,3205,4359,5116,5250,5252,5255,5256,188, & - 1536,1889,3952,4360,5181,5250,5252,5255,5256,794,4179,4361, & - 5138,5250,5252,5255,5256,2694,3846,4362,4898,5250,5252,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_65 = (/ & - 5256,326,970,2239,4363,4394,5250,5252,5255,5256,2010,4364, & - 4555,5250,5252,5255,5256,167,2213,2401,3473,4356,4365,5186, & - 5250,5252,5255,5256,645,1892,2289,2568,3215,3216,3217,3276, & - 3324,3490,3620,3837,3864,4123,4366,4599,4816,5024,5091,5250, & - 5252,5253,5255,5256,2572,3843,4367,5186,5250,5252,5255,5256, & - 3472,4368,4609,5250,5252,5255,5256,602,3917,4369,5144,5250, & - 5252,5255,5256,2442,4370,5200,5250,5252,5255,5256,1350,4371, & - 5073,5250,5252,5255,5256,4372,5153,5250,5252,5255,5256,1395, & - 2222,3636,4372,4373,5153,5250,5252,5255,5256,153,1800,2391, & - 4374,5185,5250,5252,5255,5256,1355,3199,3661,4375,5250,5252, & - 5253,5255,5256,227,1355,2177,3199,3661,4375,4376,4478,5250, & - 5252,5253,5255,5256,5258,4094,4377,5250,5252,5255,5256,5258, & - 261,2590,4378,5154,5174,5250,5252,5255,2766,3664,4379,4888, & - 5250,5252,5255,5256,1106,1573,2743,4380,5250,5252,5253,5255, & - 5256,1830,2274,4381,4619,5250,5252,5255,5256,4382,5194,5250, & - 5252,5255,5256,1246,1848,3449,3524,4339,4383,4617,4749,5002, & - 5241,5250,5252,5255,5256,5258,2910,3274,4384,4811,5250,5252, & - 5255,5256,1961,2908,2909,3890,3901,4385,5041,5250,5252,5255, & - 5256,335,1782,2503,2684,2999,4386,4387,4802,5007,5008,5098, & - 5250,5252,5253,5255,3465,3466,4387,5250,5252,5255,5256,5258, & - 732,851,4377,4388,5250,5252,5255,5256,5258,769,4122,4389, & - 5107,5250,5252,5255,5256,2878,3505,4390,5109,5250,5252,5255, & - 5256,289,1490,1633,1978,2646,2846,2981,4391,4802,4934,5120, & - 5151,5250,5252,5253,5255,5256,1646,2437,2483,2703,3480,3602, & - 3615,4116,4169,4374,4392,4779,5054,5161,5185,5250,5252,5253, & - 5255,5256,531,1065,4393,4928,5250,5252,5255,5256,172,970, & - 1128,2108,4394,5206,5250,5252,5255,5256,4395,5250,5256,5258, & - 1703,3147,4395,4396,5250,5256,5258,1703,3147,4395,4397,5250, & - 5256,5258,614,2468,2798,2799,3830,3903,4397,4398,4603,4916, & - 5250,5252,5255,5256,5258,1703,3147,4395,4399,5250,5252,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_66 = (/ & - 5256,5258,947,4018,4400,5250,5252,5255,5256,5258,3457,3460, & - 3581,3600,4335,4400,4401,4787,5250,5252,5255,5256,5258,844, & - 3499,4035,4402,5250,5252,5253,5255,5256,5258,560,676,718, & - 2566,2575,2598,2599,2818,2937,2995,3004,3065,3230,3362,3388, & - 3417,3499,3506,3551,3831,4210,4232,4245,4252,4287,4289,4297, & - 4312,4314,4402,4403,4413,4434,4455,4463,4499,4632,4663,4682, & - 5070,5250,5252,5253,5255,5256,5258,1928,2171,3063,4199,4404, & - 4877,5250,5252,5253,5255,5256,1997,2579,4405,4845,5250,5252, & - 5253,5255,5256,3500,3532,4406,5005,5167,5221,5250,5252,5253, & - 5255,5256,943,3139,4009,4407,5250,5252,5253,5255,5256,5258, & - 1419,3131,4075,4408,5250,5252,5253,5255,5256,5258,1146,2573, & - 3309,4409,4410,5250,5252,5253,5255,5256,2457,2629,4119,4173, & - 4410,5215,5250,5252,5255,5256,1701,2235,3923,4411,4412,4755, & - 5010,5147,5250,5252,5255,5256,1074,2885,3923,4412,5147,5250, & - 5252,5253,5255,5256,1017,3506,4054,4413,5250,5252,5253,5255, & - 5256,5258,2494,2796,4414,5049,5250,5252,5253,5255,5256,977, & - 3163,4415,4690,5250,5252,5253,5255,5256,2417,3553,4416,4937, & - 5250,5252,5255,5256,5258,574,1198,2205,3282,3880,4417,5065, & - 5250,5252,5253,5255,5256,823,1348,3862,4418,4659,4987,5250, & - 5252,5255,5256,534,946,2016,2718,3941,4419,5146,5250,5252, & - 5253,5255,5256,1346,3464,3707,4420,4758,4976,5235,5250,5252, & - 5255,5256,5258,960,3183,3544,4389,4421,4712,5107,5250,5252, & - 5255,5256,838,3519,4422,4950,5250,5252,5255,5256,5258, 75, & - 422,973,3541,4246,4262,4304,4423,4454,4464,4797,5250,5252, & - 5253,5255,5256,2120,2929,4424,4815,5250,5252,5253,5255,5256, & - 1118,3178,4425,4790,5250,5252,5253,5255,5256,122,1464,2854, & - 3395,3414,3596,3597,4194,4296,4307,4425,4426,4444,4790,5250, & - 5252,5253,5255,5256,2290,2988,4155,4427,4879,5250,5252,5253, & - 5255,5256,2811,2873,4428,4840,5250,5252,5253,5255,5256,1338, & - 3185,3548,4355,4429,4709,5065,5250,5252,5255,5256,791,1244 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_67 = (/ & - 2027,3070,3881,4430,5112,5250,5252,5253,5255,5256,724,1233, & - 1900,1913,2613,4431,5122,5250,5252,5253,5255,5256,837,1316, & - 4010,4432,4626,5250,5252,5255,5256,5258,2036,2872,4160,4433, & - 4881,5250,5252,5253,5255,5256,1223,3190,4434,4632,5250,5252, & - 5253,5255,5256,1268,3086,3504,4369,4435,4716,5144,5250,5252, & - 5255,5256,2670,3033,4436,5069,5250,5252,5253,5255,5256,843, & - 3164,4008,4437,5250,5252,5253,5255,5256,5258,1156,3193,4082, & - 4438,5250,5252,5253,5255,5256,5258,121,842,2584,4439,5084, & - 5250,5252,5253,5255,5256,2152,3519,4440,4950,5250,5252,5255, & - 5256,5258, 78, 93,1435,2263,2866,3782,4441,4799,5250,5252, & - 5253,5255,5256,174,1119,1550,1551,3011,3686,4442,5131,5250, & - 5252,5253,5255,5256,776,1418,2298,3218,3919,4443,5107,5250, & - 5252,5253,5255,5256,822,3684,3997,4444,5250,5252,5253,5255, & - 5256,5258,2388,2833,3681,4445,4535,5250,5252,5253,5255,5256, & - 3530,4300,4446,4784,5109,5250,5252,5255,5256,1146,3309,4409, & - 4410,4447,5215,5250,5252,5253,5255,5256, 31,1009,1664,3320, & - 3531,3796,4448,5250,5252,5255,5256,2263,2443,2863,2866,4253, & - 4441,4448,4449,4799,5250,5252,5253,5255,5256,528,1226,2411, & - 3306,3916,4450,5138,5250,5252,5253,5255,5256,929,2674,4451, & - 4882,5250,5252,5253,5255,5256,2460,2522,4108,4452,4809,5250, & - 5252,5253,5255,5256,1476,3136,4020,4453,5250,5252,5253,5255, & - 5256,5258,1294,3831,4057,4454,5250,5252,5253,5255,5256,5258, & - 1030,3152,4455,4663,5250,5252,5253,5255,5256,1461,2619,3633, & - 4456,4820,5250,5252,5253,5255,5256,1303,3172,4063,4457,5250, & - 5252,5253,5255,5256,5258,1376,3088,4458,4798,5250,5252,5253, & - 5255,5256,827,1408,4459,4653,5072,5250,5252,5255,5256,2429, & - 2705,3154,3835,4460,5015,5250,5252,5253,5255,5256,1137,3151, & - 3522,4349,4461,4713,5112,5250,5252,5255,5256,2600,2867,4462, & - 4806,5111,5113,5250,5253,5256,1045,3143,4463,4682,5250,5252, & - 5253,5255,5256,1169,3181,4464,4797,5250,5252,5253,5255,5256 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_68 = (/ & - 1116,1219,4362,4465,4520,4898,5250,5252,5255,5256,1539,3701, & - 4065,4466,5250,5252,5253,5255,5256,5258,934,3146,4467,4859, & - 5250,5252,5253,5255,5256,1236,2845,3513,4468,4911,5250,5252, & - 5253,5255,5256,853,3026,3856,4469,5082,5250,5252,5253,5255, & - 5256,2176,2583,4174,4470,4972,5250,5252,5253,5255,5256,1243, & - 3508,4033,4471,5250,5252,5253,5255,5256,5258,1248,3075,4472, & - 5018,5250,5252,5253,5255,5256,806,1948,4473,4474,5078,5250, & - 5252,5255,5256,4474,5250,5256,5258,4475,5250,5256,5258,3266, & - 4332,4475,4476,5250,5252,5255,5256,5258,1154,2153,2895,3736, & - 3737,4477,4525,4672,5250,5252,5255,5256,2177,3158,3199,4375, & - 4376,4478,5250,5252,5253,5255,5256,5258,1188,3149,4016,4479, & - 5250,5252,5253,5255,5256,5258,1129,3553,4480,4937,5250,5252, & - 5255,5256,5258,928,3553,3556,4416,4480,4481,4937,5250,5252, & - 5255,5256,5258, 15,245,1357,2548,3361,3421,3574,3579,4205, & - 4237,4280,4466,4482,4511,4791,5250,5252,5253,5255,5256,5258, & - 1296,1354,3622,4056,4483,4892,5250,5252,5255,5256,5258,1540, & - 2515,3947,4484,4789,5250,5252,5253,5255,5256, 88,593,594, & - 1402,2515,2984,4077,4484,4485,4789,5250,5252,5253,5255,5256, & - 1044,1925,3006,3436,4371,4486,5073,5250,5252,5253,5255,5256, & - 1152,3560,4073,4487,5250,5252,5253,5255,5256,5258,136,939, & - 1747,3253,3538,3827,4488,5250,5252,5255,5256,2414,2859,3742, & - 3783,4448,4488,4489,5250,5252,5253,5255,5256,1734,1837,2055, & - 2683,2991,3040,4221,4241,4326,4488,4490,4835,5250,5252,5253, & - 5255,5256,718,723,2506,2762,3253,3320,3506,3508,3796,3827, & - 4448,4488,4491,4986,5250,5252,5255,5256,5258,4492,5250,5256, & - 5258,767,1225,1932,2034,2035,2742,2812,2892,3668,3955,4124, & - 4189,4190,4201,4340,4492,4493,4925,5159,5213,5250,5252,5255, & - 5256,5258,1227,3180,4037,4494,5250,5252,5253,5255,5256,5258, & - 854,3135,4001,4495,5250,5252,5253,5255,5256,5258,1209,3327, & - 4224,4496,5021,5250,5252,5253,5255,5256, 25,1761,2111,3327 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_69 = (/ & - 4295,4496,4497,5021,5250,5252,5253,5255,5256,1342,3120,4498, & - 4671,5250,5252,5253,5255,5256,1450,3551,4064,4499,5250,5252, & - 5253,5255,5256,5258,975,2669,4500,4834,5250,5252,5253,5255, & - 5256,346,1552,1907,2419,2669,4058,4500,4501,4834,5250,5252, & - 5253,5255,5256,2228,2538,4502,4775,5250,5252,5253,5255,5256, & - 940,1461,3633,4456,4503,4820,5250,5252,5253,5255,5256,852, & - 3130,4085,4504,5250,5252,5253,5255,5256,5258,4505,4937,5030, & - 5076,5250,5256,5258,1472,3189,4506,4676,5250,5252,5253,5255, & - 5256,2536,2566,2575,2598,2599,2641,2668,2682,2733,2741,2818, & - 2918,2935,2937,2963,2986,2995,3001,3004,3036,3065,3347,3362, & - 3371,3375,3388,3402,3417,4200,4204,4210,4217,4225,4232,4245, & - 4252,4265,4287,4289,4291,4292,4293,4297,4298,4303,4305,4306, & - 4312,4314,4402,4413,4415,4434,4455,4458,4463,4471,4487,4498, & - 4499,4506,4507,4509,4514,4632,4663,4671,4676,4682,4690,4798, & - 5250,5252,5253,5255,5256,5258,4508,5250,5256,5258,1421,3512, & - 4002,4509,5250,5252,5253,5255,5256,5258, 96,902,1397,4042, & - 4137,4510,4814,5114,5250,5252,5255,5256,1309,3187,4511,4791, & - 5250,5252,5253,5255,5256,4512,5250,5256,5258,1210,1417,4396, & - 4513,4649,5250,5252,5255,5256,5258,1429,3545,4049,4514,5250, & - 5252,5253,5255,5256,5258,1180,3024,3851,4515,4696,5250,5252, & - 5253,5255,5256,2531,2824,4516,5050,5250,5252,5253,5255,5256, & - 1327,2844,3857,4517,4880,5250,5252,5253,5255,5256,1804,1981, & - 2925,4518,4945,5250,5252,5253,5255,5256,1006,1625,2003,3625, & - 4519,5074,5250,5252,5253,5255,5256,1219,2729,4362,4520,4898, & - 5250,5252,5253,5255,5256,539,850,2316,3007,3977,4521,5144, & - 5250,5252,5253,5255,5256,2314,2702,4114,4522,4777,5250,5252, & - 5253,5255,5256,1477,2778,3986,4523,4886,5250,5252,5253,5255, & - 5256,1050,1108,1906,2198,2778,4310,4523,4524,4886,5097,5116, & - 5147,5250,5252,5253,5255,5256,1154,2567,2895,3736,3737,4525, & - 4672,5250,5252,5253,5255,5256,362,4526,4970,5251,5252,5253 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_70 = (/ & - 5254,5258,4527,5250,5256,5258,4395,4508,4527,4528,4555,4615, & - 4907,5051,5093,5190,5194,5200,5227,5250,5256,5258,1533,3134, & - 4529,5250,5252,5255,5256,3459,3483,3587,4530,4732,4932,5250, & - 5252,5255,5256,1125,3830,4079,4397,4531,5250,5252,5253,5255, & - 5256,5258,1271,3184,3493,4361,4532,4715,5138,5250,5252,5255, & - 5256,111,932,1554,3279,3489,3825,4533,5250,5252,5255,5256, & - 576,1092,2754,3052,4299,4533,4534,4703,5250,5252,5253,5255, & - 5256,1783,2390,4533,4535,5250,5252,5255,5256, 92, 97,323, & - 324,1359,2654,2794,3711,3983,4536,4619,4743,5250,5252,5253, & - 5255,5256,306,1829,2331,2496,4251,4537,4878,5088,5250,5252, & - 5253,5255,5256,2062,3629,4538,4781,4891,5250,5252,5253,5255, & - 5256,1467,2823,3454,4113,4539,5118,5204,5250,5252,5253,5255, & - 5256,231,1720,1902,2127,2145,2797,3758,3992,4244,4451,4540, & - 4882,5208,5250,5252,5253,5255,5256,3646,4541,5048,5092,5250, & - 5252,5255,5256,5258,1569,4542,5248,5249,5250,5252,5255,5256, & - 5258,866,3604,4543,4686,4687,5250,5252,5253,5255,5256,239, & - 327,4474,4512,4544,5250,5251,5252,5253,5254,5256,5258,154, & - 735,736,1057,1093,1608,4078,4545,4600,4910,5250,5252,5255, & - 5256,5258,3336,3792,4546,4561,4975,5010,5250,5252,5255,5256, & - 3176,3177,3264,3573,3584,3834,4027,4547,4707,4803,5250,5252, & - 5255,5256,5258,1249,2655,3470,4107,4548,5217,5218,5250,5252, & - 5253,5255,5256,1173,2115,4279,4549,4960,4984,5056,5250,5252, & - 5255,5256,287,894,1854,3911,4550,4808,4927,5250,5252,5255, & - 5256,5258,1795,4551,5013,5205,5251,5252,5253,5254,5258,1762, & - 1893,2381,2868,4552,4926,4957,4996,5250,5252,5255,5256,2110, & - 3020,3603,4553,4554,4585,5250,5252,5253,5255,5256,3256,4554, & - 4555,5250,5252,5255,5256,4555,5250,5256,5258,558,4096,4556, & - 5132,5250,5251,5252,5253,5254,5258,542,2131,2482,2887,4557, & - 4558,5094,5250,5252,5253,5255,5256,3196,4558,5089,5250,5252, & - 5255,5256,304,2628,2913,3026,4469,4559,4980,5082,5250,5252 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_71 = (/ & - 5253,5255,5256,632,842,2151,2404,4290,4439,4560,4914,5084, & - 5250,5252,5253,5255,5256,2553,4561,5010,5250,5252,5255,5256, & - 181,2006,4508,4562,5250,5252,5255,5256,5258,293,4492,4563, & - 5250,5252,5255,5256,5258,2109,2554,3197,3272,4564,5016,5020, & - 5033,5075,5174,5250,5252,5253,5255,5256,217,3621,4565,5091, & - 5250,5252,5255,5256,3906,4566,5108,5250,5252,5255,5256,199, & - 1205,2061,4567,5236,5250,5252,5255,5256,1034,3996,4568,5250, & - 5252,5255,5256,5258,3438,3457,3569,3581,3996,4018,4400,4568, & - 4569,5250,5252,5255,5256,5258,4570,5002,5025,5250,5256,5258, & - 2355,2385,4571,5238,5250,5252,5255,5256,3374,3957,4572,4825, & - 5250,5252,5255,5256,3777,4573,5108,5250,5252,5255,5256,1063, & - 4574,5051,5250,5252,5255,5256,3833,4575,5250,5252,5255,5256, & - 5258,3107,3108,3606,3833,4575,4576,5250,5252,5255,5256,5258, & - 445,1207,2534,4099,4577,5238,5250,5252,5255,5256,4578,5093, & - 5250,5252,5255,5256,1302,4579,5051,5250,5252,5255,5256,300, & - 454,1214,1324,3741,4580,5198,5250,5252,5255,5256,2269,3505, & - 4581,5109,5250,5252,5255,5256,3308,4527,4582,5250,5252,5255, & - 5256,5258,3288,3843,4583,5186,5250,5252,5255,5256,3906,4584, & - 5108,5250,5252,5255,5256,3198,4555,4585,5250,5252,5255,5256, & - 5258,548,4586,5238,5250,5252,5255,5256,2125,4527,4587,5250, & - 5252,5255,5256,5258,3833,3834,4396,4588,5049,5050,5058,5066, & - 5068,5123,5126,5250,5256,5258,3763,4589,5153,5250,5252,5255, & - 5256,3341,3910,4590,4884,5250,5252,5255,5256,782,1456,1666, & - 2047,3132,3220,3331,3643,3797,3814,4070,4591,5250,5252,5253, & - 5255,5256,461,1456,2283,3220,3643,3793,4591,4592,5250,5252, & - 5253,5255,5256,5258,2394,4593,5190,5250,5252,5255,5256,3314, & - 3583,4594,4974,5250,5252,5255,5256,2260,3156,4595,4616,5250, & - 5252,5255,5256,3243,4555,4596,5250,5252,5255,5256,5258,1852, & - 2701,4580,4597,5198,5250,5252,5255,5256,3289,4598,5190,5250, & - 5252,5255,5256,2354,3620,4599,5091,5250,5252,5255,5256,4600 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_72 = (/ & - 5250,5256,5258,4601,5250,5256,5258,1879,1982,2026,2414,2510, & - 2529,2581,2609,2712,2721,2763,2859,2897,2901,3028,3061,3571, & - 3673,3732,3783,3787,3860,3953,3968,3973,4076,4102,4163,4267, & - 4381,4449,4488,4489,4602,4603,4619,4620,4667,4675,4683,4743, & - 4744,4759,4799,4822,4823,5250,5252,5253,5255,5256, 94,1024, & - 3786,4397,4603,5250,5252,5255,5256,5258,4604,5250,5256,5258, & - 4605,5250,5256,5258,4606,5250,5256,5258,1767,4604,4606,4607, & - 5250,5252,5255,5256,5258,2133,4604,4606,4608,5250,5252,5255, & - 5256,5258,1580,4609,5250,5252,5255,5256,3472,4609,4610,5250, & - 5252,5255,5256,1064,2757,3900,4609,4611,5250,5252,5253,5255, & - 5256,2976,3619,4219,4368,4609,4611,4612,4616,5250,5252,5253, & - 5255,5256,899,2663,4231,4610,4613,4616,5250,5252,5253,5255, & - 5256,899,2810,4231,4610,4613,4614,4616,5250,5252,5253,5255, & - 5256,4615,5219,5250,5252,5258,1580,4616,5250,5252,5255,5256, & - 4617,5204,5252,5255,5256,2310,2844,2893,3035,3419,3441,3656, & - 3666,3735,4152,4177,4476,4517,4618,4714,4767,4769,4782,4852, & - 4858,4880,5250,5252,5253,5255,5256,5258,143,1023,1672,3319, & - 3554,3799,4619,5250,5252,5255,5256,1879,2026,2721,3673,4381, & - 4619,4620,4744,5250,5252,5253,5255,5256,771,4621,4952,5251, & - 5252,5253,5254,5258,773,787,1095,1840,1878,2204,2295,2758, & - 3317,3368,3439,3440,3543,3807,4030,4031,4068,4069,4622,4964, & - 5250,5252,5253,5255,5256,1448,2843,4623,5115,5250,5252,5253, & - 5255,5256, 69,472,508,849,2564,3710,3720,3852,4624,5215, & - 5250,5252,5253,5255,5256,112,3495,4625,5189,5250,5252,5255, & - 5256,5258,837,3060,4010,4626,5250,5252,5253,5255,5256,5258, & - 1498,2560,4627,4717,5250,5252,5253,5255,5256,1176,2630,4628, & - 4933,5250,5252,5253,5255,5256,845,2848,4110,4629,5056,5250, & - 5252,5253,5255,5256,3304,3567,3622,4630,4971,5250,5252,5255, & - 5256,5258, 77,954,2932,3053,3473,4365,4631,5186,5250,5252, & - 5253,5255,5256,857,3101,4061,4437,4632,5250,5252,5253,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_73 = (/ & - 5256,5258,1254,2632,4272,4633,5250,5252,5253,5255,5256,5258, & - 1516,2882,4634,5042,5250,5252,5253,5255,5256,910,2915,4093, & - 4635,5250,5252,5253,5255,5256,5258,936,2777,4636,5177,5250, & - 5252,5253,5255,5256,3805,4637,5066,5250,5252,5255,5256,5258, & - 1247,1605,2597,4638,4953,5250,5252,5253,5255,5256,1361,3482, & - 4023,4639,5250,5252,5253,5255,5256,5258,1048,1097,3995,4640, & - 4915,5203,5250,5252,5255,5256,921,2640,4032,4641,5250,5252, & - 5253,5255,5256,5258,988,2787,3471,4642,5064,5250,5252,5253, & - 5255,5256,888,3137,4643,4788,5250,5252,5253,5255,5256,1643, & - 1731,2017,2445,3338,3839,4150,4567,4644,5196,5236,5250,5252, & - 5255,5256,1697,1886,4645,5051,5208,5250,5252,5255,5256,4300, & - 4646,4784,5109,5250,5252,5255,5256,1577,3444,4474,4647,4901, & - 5250,5252,5255,5256,5258, 44,1279,2975,4015,4648,4883,4957, & - 5250,5252,5255,5256,1417,2955,4396,4649,5250,5252,5253,5255, & - 5256,5258,3795,4650,5068,5250,5252,5255,5256,5258,768,1040, & - 2089,3407,3669,3728,4651,4828,4951,5250,5251,5252,5253,5254, & - 5255,5256,1336,1739,3313,4652,5052,5250,5252,5253,5255,5256, & - 1408,2980,4653,5072,5250,5252,5253,5255,5256,1370,2857,3833, & - 4654,5250,5252,5253,5255,5256,5258,869,3191,4655,4810,5250, & - 5252,5253,5255,5256,1274,2650,4017,4656,5250,5252,5253,5255, & - 5256,5258,1685,1874,4657,5173,5250,5252,5253,5255,5256,1518, & - 1575,1939,3236,3552,4657,4658,5173,5250,5252,5253,5255,5256, & - 1348,2523,3862,4659,4987,5250,5252,5253,5255,5256,1018,2527, & - 4660,5159,5250,5252,5253,5255,5256,1768,3748,4661,4896,5250, & - 5252,5255,5256,5258,1055,2978,3915,4662,5147,5250,5252,5253, & - 5255,5256,1453,3098,4072,4504,4663,5250,5252,5253,5255,5256, & - 5258,125,859,1089,1696,2636,2943,3034,3706,3981,3982,4664, & - 5215,5250,5252,5253,5255,5256,1291,3025,4665,5063,5250,5252, & - 5253,5255,5256,613,1095,1763,3147,3317,4395,4622,4666,4919, & - 4964,4965,5250,5252,5253,5255,5256,5258,921,961,4032,4641 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_74 = (/ & - 4667,5250,5252,5253,5255,5256,5258,2481,4668,5050,5251,5252, & - 5253,5254,5258,3214,3519,3535,4422,4440,4669,4950,5250,5252, & - 5255,5256,5258,1003,3494,4007,4670,5250,5252,5253,5255,5256, & - 5258,892,3125,4011,4408,4671,5250,5252,5253,5255,5256,5258, & - 190,1149,1590,1591,2613,3764,4431,4672,5122,5250,5252,5253, & - 5255,5256,810,1871,1920,2571,3431,4147,4673,5104,5250,5252, & - 5253,5255,5256,2686,3832,4674,5030,5250,5252,5255,5256,5258, & - 910,1174,4093,4635,4675,5250,5252,5253,5255,5256,5258,1366, & - 3150,4039,4495,4676,5250,5252,5253,5255,5256,5258,819,4677, & - 5013,5251,5252,5253,5254,5258,4678,5249,5251,5252,5253,5254, & - 5258,951,1624,2666,4679,4989,5250,5252,5253,5255,5256,1378, & - 2671,4569,4680,5250,5252,5253,5255,5256,5258,1250,1617,3323, & - 4681,5044,5250,5252,5253,5255,5256,1452,3153,4040,4438,4682, & - 5250,5252,5253,5255,5256,5258,1031,1073,4094,4683,4829,5250, & - 5252,5255,5256,5258,915,2904,4684,4729,5250,5252,5253,5255, & - 5256,1299,2948,4018,4685,5250,5252,5253,5255,5256,5258,1474, & - 2779,3958,4477,4525,4672,4686,5122,5250,5252,5253,5255,5256, & - 1474,1956,3958,4477,4525,4672,4686,4687,5122,5250,5252,5253, & - 5255,5256,1949,3775,4650,4688,5068,5250,5252,5255,5256,5258, & - 2025,3773,4637,4689,5066,5250,5252,5255,5256,5258,978,3170, & - 4006,4478,4690,5250,5252,5253,5255,5256,5258,4691,5249,5251, & - 5252,5253,5254,5258,941,2569,4083,4692,5250,5252,5253,5255, & - 5256,5258,569,705,723,738,752,2551,2557,2580,2586,2641, & - 2668,2682,2733,2736,2741,2918,2935,2952,2963,2986,3016,3347, & - 3363,3371,3381,3402,3477,3482,3494,3508,3512,3560,3590,3672, & - 3829,4178,4192,4193,4200,4204,4212,4225,4276,4285,4291,4292, & - 4293,4298,4303,4305,4317,4322,4415,4471,4487,4498,4506,4509, & - 4639,4643,4655,4670,4671,4676,4690,4693,4694,4772,4788,4810, & - 4946,4993,5003,5040,5075,5102,5133,5155,5250,5252,5253,5255, & - 5256,5258,705,2728,2768,2847,3246,3295,3296,3494,3631,3632 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_75 = (/ & - 3641,3648,4182,4694,4985,5250,5252,5253,5255,5256,5258,4695, & - 4840,5250,5252,5255,5256,1641,1751,4696,5238,5250,5252,5255, & - 5256,2889,4334,4697,5061,5250,5252,5255,5256,2118,3069,3207, & - 4698,5032,5250,5252,5255,5256,4083,4699,5250,5252,5255,5256, & - 5258,2069,4508,4700,5250,5252,5255,5256,5258,4032,4701,5250, & - 5252,5255,5256,5258,1940,4604,4606,4702,5250,5252,5255,5256, & - 5258,4703,5103,5250,5252,5255,5256,4704,5064,5250,5252,5255, & - 5256,3540,4705,5230,5250,5252,5255,5256,3455,4706,5037,5250, & - 5252,5255,5256,3834,4707,5250,5252,5255,5256,5258,1570,2485, & - 3446,3453,3573,3576,3606,4358,4575,4707,4708,4720,4823,4877, & - 4932,5058,5250,5252,5255,5256,5258,4164,4709,5065,5250,5252, & - 5255,5256,2562,2676,2874,3282,3306,3548,4238,4254,4417,4450, & - 4709,4710,5065,5138,5250,5252,5253,5255,5256,4711,5220,5250, & - 5252,5255,5256,4122,4712,5107,5250,5252,5255,5256,4103,4713, & - 5112,5250,5252,5255,5256,2413,4332,4475,4714,5250,5252,5255, & - 5256,5258,4179,4715,5138,5250,5252,5255,5256,3917,4716,5144, & - 5250,5252,5255,5256,1599,2213,2401,4356,4717,5186,5250,5252, & - 5255,5256,4056,4718,5250,5252,5255,5256,5258,2114,3376,3842, & - 4702,4719,5250,5252,5255,5256,5258,4396,4720,5250,5252,5255, & - 5256,5258,3285,3352,3353,3356,3357,3378,3379,3426,3427,3576, & - 3588,3589,4010,4032,4093,4094,4377,4388,4393,4396,4701,4720, & - 4721,4821,4928,5250,5252,5255,5256,5258,184,870,1326,2094, & - 4722,5146,5250,5252,5255,5256,2366,4474,4723,5250,5252,5255, & - 5256,5258,2080,3077,3942,4579,4724,5051,5250,5252,5255,5256, & - 4080,4725,5250,5252,5255,5256,5258,264,1455,3305,3318,4000, & - 4139,4726,5250,5252,5253,5255,5256,4272,4727,5250,5252,5255, & - 5256,5258,2485,3565,3570,3588,3610,4701,4703,4725,4727,4728, & - 4877,5103,5250,5252,5255,5256,5258,3271,3322,3339,3340,3345, & - 3359,3360,3411,3570,3605,3610,3614,4056,4080,4083,4272,4699, & - 4718,4725,4727,4729,5250,5252,5255,5256,5258,2539,3049,4730 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_76 = (/ & - 5246,5250,5252,5255,5256,2700,3709,4153,4731,5250,5252,5253, & - 5255,5256,4732,5050,5250,5252,5255,5256,1966,2385,4733,5238, & - 5250,5252,5255,5256,965,3497,4363,4394,4734,5206,5250,5252, & - 5255,5256,4735,5140,5250,5252,5255,5256,316,2194,2355,3779, & - 4571,4736,5238,5250,5252,5255,5256,1842,2220,2647,3025,4665, & - 4737,5063,5116,5250,5252,5253,5255,5256,1454,2119,2781,4738, & - 5028,5240,5250,5252,5253,5255,5256,1970,1991,2907,4066,4739, & - 5022,5074,5250,5252,5253,5255,5256,1086,2051,3433,3487,4547, & - 4707,4740,4803,4948,5250,5252,5253,5255,5256,5258,214,2393, & - 3832,4741,5030,5076,5250,5251,5252,5253,5254,5258,1953,2769, & - 2920,3315,4742,4770,4857,5250,5252,5253,5255,5256, 71,1232, & - 1717,2709,3539,3815,4743,5250,5252,5255,5256,3061,3787,4743, & - 4744,5250,5252,5253,5255,5256,930,2132,3043,4183,4745,4746, & - 5099,5206,5250,5252,5253,5255,5256,1746,4746,4988,5250,5252, & - 5255,5256,5257,5258,3517,3646,4600,4747,4970,4988,5048,5083, & - 5092,5095,5169,5187,5189,5207,5250,5256,5257,5258,149,830, & - 1331,1656,1657,2781,4043,4738,4748,5028,5240,5250,5252,5253, & - 5255,5256,1816,3042,3449,3524,4229,4339,4617,4749,5002,5204, & - 5250,5252,5253,5255,5256,1215,3434,4750,4920,4977,5250,5252, & - 5253,5255,5256,1392,3558,4751,5047,5250,5251,5252,5253,5254, & - 5255,5256,1008,1257,1890,2772,4226,4681,4752,5044,5085,5250, & - 5252,5253,5255,5256,1603,2183,2928,4066,4753,5022,5074,5250, & - 5252,5253,5255,5256,2470,4754,4988,5250,5252,5255,5256,5257, & - 5258,384,601,1106,2339,3583,4380,4755,4974,5238,5250,5252, & - 5253,5255,5256,2470,4756,4988,5250,5252,5255,5256,5257,5258, & - 243,3517,4757,4988,5250,5251,5252,5253,5254,5258,4758,5217, & - 5252,5255,5256,795,1085,2348,2510,3976,4462,4759,4806,5111, & - 5113,5250,5252,5253,5255,5256,570,794,1290,1740,2121,2841, & - 2853,3184,3493,4179,4361,4532,4715,4760,5138,5162,5250,5252, & - 5253,5255,5256,2359,4761,5248,5249,5250,5252,5255,5256,5258 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_77 = (/ & - 236,4762,5248,5250,5252,5255,5256,5257,5258,824,903,2993, & - 3960,4346,4763,4853,4854,5203,5250,5252,5255,5256,187,1245, & - 1286,1628,1629,2648,4088,4764,5014,5207,5250,5252,5253,5255, & - 5256,3055,3607,4765,5081,5250,5252,5255,5256,447,3166,4766, & - 5107,5238,5250,5252,5255,5256,1596,3265,4332,4475,4767,4876, & - 5250,5252,5255,5256,5258,1320,1901,3233,3415,3855,3882,4216, & - 4319,4354,4652,4679,4768,4882,4989,4996,5004,5052,5250,5252, & - 5253,5255,5256,1206,1389,3441,3606,4198,4575,4576,4769,5250, & - 5252,5253,5255,5256,5258,1460,3315,3914,4770,4895,5250,5252, & - 5253,5255,5256,828,3312,3924,4771,5077,5250,5252,5253,5255, & - 5256,123,2635,2870,3160,4772,4945,5250,5252,5253,5255,5256, & - 2830,3475,3599,4003,4133,4773,5209,5250,5252,5253,5255,5256, & - 2497,3155,4774,5166,5250,5252,5255,5256,5258,622,1224,2654, & - 2794,4165,4536,4619,4743,4775,5066,5250,5252,5253,5255,5256, & - 2258,4776,5093,5251,5252,5253,5254,5258,2369,4601,4777,5250, & - 5252,5255,5256,5258,1779,2646,4778,5120,5250,5252,5255,5256, & - 61,3480,4779,5187,5250,5252,5255,5256,5258,2118,3623,4780, & - 5032,5250,5252,5255,5256,1447,4781,4891,5212,5250,5252,5255, & - 5256,2449,4332,4475,4782,5250,5252,5255,5256,5258,4783,5226, & - 5250,5252,5255,5256,1876,3505,4784,5109,5250,5252,5255,5256, & - 2693,2891,4785,5148,5250,5252,5255,5256,4786,5224,5250,5252, & - 5258,1176,1256,4628,4787,4933,5250,5252,5253,5255,5256,950, & - 3085,4044,4407,4788,5250,5252,5253,5255,5256,5258,176,652, & - 653,840,3733,4789,5215,5250,5252,5255,5256,1308,3165,4021, & - 4457,4790,5250,5252,5253,5255,5256,5258,1091,3140,3999,4479, & - 4791,5250,5252,5253,5255,5256,5258,164,1357,2474,3012,3467, & - 4388,4482,4511,4791,4792,5250,5252,5253,5255,5256,5258,3403, & - 3818,4167,4793,5141,5250,5252,5255,5256,5258,4794,5166,5250, & - 5256,5258,3401,3515,4795,5036,5250,5252,5253,5255,5256,538, & - 568,614,628,700,2336,2535,2536,2577,2588,2604,2731,2903 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_78 = (/ & - 3001,3036,3361,3387,3395,3414,3421,3500,3545,3579,3597,3684, & - 3701,3821,3830,3831,4014,4047,4184,4194,4195,4205,4217,4237, & - 4246,4262,4265,4271,4273,4280,4296,4304,4306,4307,4326,4397, & - 4398,4444,4454,4466,4491,4514,4531,4533,4603,4726,4790,4791, & - 4795,4796,4797,4798,4799,4859,4916,4968,4986,5005,5034,5036, & - 5167,5170,5216,5250,5252,5253,5255,5256,5258,1221,3093,4036, & - 4453,4797,5250,5252,5253,5255,5256,5258,1230,4022,4048,4338, & - 4591,4592,4798,5250,5252,5253,5255,5256,5258,124,1503,1555, & - 2499,3511,3791,4799,5250,5252,5255,5256,675,2050,4800,5119, & - 5250,5252,5255,5256,1722,1723,2084,2365,2550,2822,3000,3222, & - 3255,3284,3336,3547,4161,4309,4391,4546,4561,4800,4801,4802, & - 4934,4975,4979,5010,5032,5119,5120,5151,5250,5252,5253,5255, & - 5256,2981,4800,4802,5119,5250,5252,5255,5256,4027,4803,5250, & - 5252,5255,5256,5258,1999,3349,3925,4587,4804,5250,5252,5255, & - 5256,5258,4805,4976,5033,5250,5256,5258, 80,992,1275,2867, & - 3717,4765,4806,5081,5250,5252,5253,5255,5256,1465,3258,3996, & - 4807,5250,5252,5253,5255,5256,5258,894,2552,3911,4808,4927, & - 5250,5252,5253,5255,5256,1300,3533,4512,4809,5239,5250,5252, & - 5255,5256,5258,1061,3111,4034,4494,4810,5250,5252,5253,5255, & - 5256,5258,2625,3298,3822,4800,4811,5119,5250,5252,5255,5256, & - 817,2139,2440,2941,3397,4130,4385,4812,5041,5250,5252,5253, & - 5255,5256,898,1274,4017,4656,4813,5250,5252,5253,5255,5256, & - 5258,598,3018,4814,5181,5250,5252,5255,5256,659,1088,2505, & - 2862,4141,4218,4743,4815,5068,5250,5252,5253,5255,5256,3276, & - 3324,4816,5024,5250,5252,5253,5255,5256,1802,3399,3878,4593, & - 4817,5190,5250,5252,5255,5256,1022,3293,4818,5072,5250,5252, & - 5253,5255,5256,1959,4819,5153,5251,5252,5253,5254,5258,173, & - 1328,2444,3841,4820,5245,5250,5252,5255,5256,4010,4821,5250, & - 5252,5255,5256,5258,1067,2712,3416,4720,4721,4821,4822,4928, & - 5250,5252,5253,5255,5256,5258,1067,1356,3416,3576,3588,3589 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_79 = (/ & - 4388,4393,4701,4720,4721,4821,4822,4823,4928,5250,5252,5253, & - 5255,5256,5258,612,4824,5175,5251,5252,5253,5254,5258,206, & - 871,4825,5247,5250,5252,5255,5256,2382,3211,3224,3443,4826, & - 5035,5250,5252,5253,5255,5256,150,1954,2940,3288,4583,4827, & - 5186,5250,5252,5255,5256,759,4828,4951,5251,5252,5253,5254, & - 5258,1031,2656,4094,4829,5250,5252,5253,5255,5256,5258,1437, & - 2323,2540,2850,4563,4830,5250,5252,5253,5255,5256,5258,626, & - 781,2507,2617,3257,3558,4129,4831,4832,5047,5250,5251,5252, & - 5253,5254,5255,5256,5258,2130,2308,4832,5204,5217,5250,5252, & - 5256,5258,937,3292,3834,4833,5250,5252,5253,5255,5256,5258, & - 1663,2259,2513,2633,2713,3038,3854,3859,4834,5077,5082,5250, & - 5252,5255,5256,1837,4835,5123,5250,5252,5255,5256,1193,3239, & - 3879,4836,5045,5250,5252,5253,5255,5256,1422,1730,4601,4837, & - 5147,5250,5252,5255,5256,5258,2487,4527,4838,5250,5251,5252, & - 5253,5254,5256,5258,1507,2809,3029,3062,3374,3957,4115,4572, & - 4825,4839,4978,5247,5250,5252,5253,5255,5256,4840,5250,5256, & - 5258,363,1193,1983,3444,3868,4647,4836,4841,4901,4994,5045, & - 5250,5252,5253,5255,5256,5258,481,679,1463,1586,2224,2265, & - 2305,2378,2495,2512,2688,3840,3908,3985,4145,4842,5044,5083, & - 5175,5250,5252,5253,5255,5256,5258,719,4605,4843,5250,5251, & - 5252,5253,5254,5256,5258,181,456,1265,1547,4313,4844,5077, & - 5082,5090,5250,5252,5255,5256,1859,3520,3585,4351,4695,4840, & - 4845,4922,5200,5250,5252,5255,5256,5258,1404,2518,3486,4630, & - 4846,4971,5250,5252,5253,5255,5256,5258,985,1581,1911,1915, & - 2593,3863,3867,3940,4605,4847,5169,5250,5252,5253,5255,5256, & - 5258,1042,2884,4261,4848,5163,5192,5250,5252,5253,5255,5256, & - 1424,1706,1973,1995,2533,3872,3927,3969,4849,5175,5176,5250, & - 5252,5253,5255,5256,575,609,1114,1674,2221,2726,3058,3185, & - 3548,4164,4355,4429,4709,4710,4850,5065,5138,5250,5252,5253, & - 5255,5256,991,1098,1220,1529,1626,3608,4159,4341,4565,4578 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_80 = (/ & - 4851,5049,5091,5093,5250,5252,5255,5256,1327,2893,3609,3857, & - 4517,4852,4876,4880,5250,5252,5253,5255,5256,824,1652,2864, & - 3639,3960,4346,4459,4653,4853,4854,5072,5250,5252,5253,5255, & - 5256,774,998,1958,2756,3365,4131,4624,4854,5215,5250,5252, & - 5253,5255,5256,1047,2231,2362,2879,4148,4605,4855,5083,5250, & - 5252,5253,5255,5256,5258,3231,3561,4598,4856,4972,5096,5190, & - 5250,5252,5255,5256,499,1460,2920,3914,4770,4857,4895,5250, & - 5252,5253,5255,5256,5258,3035,3978,4858,4990,5192,5250,5252, & - 5253,5255,5256,1427,3161,4067,4859,4965,5250,5252,5253,5255, & - 5256,5258,889,3260,4559,4860,4980,5082,5250,5252,5253,5255, & - 5256, 21, 48,3428,4861,5209,5219,5224,5250,5252,5255,5256, & - 484,1436,2921,4382,4862,4932,5194,5250,5252,5253,5255,5256, & - 618,1480,1868,2154,2829,4176,4863,5207,5250,5252,5253,5255, & - 5256,5258,152,1464,2472,2969,3463,4393,4426,4444,4790,4864, & - 4928,5250,5252,5253,5255,5256,5258,2358,2899,3014,3200,3354, & - 3904,4203,4401,4719,4787,4799,4813,4865,4933,5250,5252,5253, & - 5255,5256,5258,945,2842,3662,4866,5115,5140,5250,5252,5253, & - 5255,5256,697,1541,2380,2660,3348,4660,4867,5019,5159,5250, & - 5252,5253,5255,5256,2212,4508,4868,5250,5251,5252,5253,5254, & - 5256,5258,3646,4869,5048,5092,5250,5251,5252,5253,5254,5258, & - 420,1055,1697,1914,3915,4662,4870,5064,5147,5208,5250,5252, & - 5253,5255,5256,1406,3498,3757,4223,4336,4390,4607,4608,4702, & - 4871,4884,5109,5186,5250,5252,5255,5256,5258,1800,2391,2843, & - 3884,4623,4872,5115,5165,5185,5250,5252,5253,5255,5256,1774, & - 2011,3070,4430,4587,4873,5112,5135,5250,5252,5253,5255,5256, & - 5258,571,1234,2095,2877,3871,4537,4586,4874,4878,5088,5238, & - 5250,5252,5253,5255,5256,1085,1784,4462,4759,4806,4875,5081, & - 5111,5113,5250,5252,5253,5255,5256,1708,4876,5238,5250,5252, & - 5255,5256,3453,4877,5126,5250,5252,5255,5256,548,1082,4878, & - 5238,5250,5252,5255,5256,976,4527,4879,5250,5252,5255,5256 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_81 = (/ & - 5258,4736,4880,5238,5250,5252,5255,5256,2363,4508,4881,5250, & - 5252,5255,5256,5258,501,765,1536,1889,3018,3952,4814,4882, & - 5181,5250,5252,5255,5256,1998,3015,4354,4360,4882,4883,5181, & - 5250,5252,5255,5256,2455,4604,4606,4884,5250,5252,5255,5256, & - 5258,179,1938,2365,3222,4885,5151,5250,5252,5255,5256,566, & - 2019,4886,5238,5250,5252,5255,5256,937,1343,3469,3834,4833, & - 4887,5250,5252,5253,5255,5256,5258,2766,3221,3437,4888,4937, & - 5250,5252,5253,5255,5256,3542,4582,4879,4889,5135,5250,5252, & - 5255,5256,5258,200,1829,2331,4251,4878,4890,5088,5238,5250, & - 5252,5255,5256,1447,2947,4891,5212,5250,5252,5253,5255,5256, & - 1296,3206,4056,4892,5250,5252,5253,5255,5256,5258,941,1403, & - 3468,4083,4692,4893,5250,5252,5253,5255,5256,5258,3228,4894, & - 5132,5205,5250,5252,5255,5256,3332,3818,4004,4055,4895,5089, & - 5250,5252,5255,5256,5258,3802,3812,3826,4177,4896,5126,5250, & - 5252,5255,5256,5258,1405,1473,1873,4080,4132,4897,5250,5252, & - 5253,5255,5256,5258,990,1383,1437,3559,4563,4830,4898,5250, & - 5252,5253,5255,5256,5258,3227,3452,3487,4027,4899,4948,5250, & - 5252,5255,5256,5258,859,1442,4664,4900,5215,5250,5252,5253, & - 5255,5256,379,832,1635,2223,3877,4886,4901,4994,5238,5250, & - 5252,5255,5256,2142,2530,2977,4104,4220,4580,4597,4644,4902, & - 4925,4969,5019,5196,5198,5236,5250,5252,5253,5255,5256,3747, & - 4577,4722,4903,5146,5238,5250,5252,5255,5256,994,2488,3582, & - 3723,3765,4024,4178,4328,4507,4509,4514,4632,4663,4671,4676, & - 4682,4690,4694,4726,4773,4798,4904,4946,4968,4985,4993,5209, & - 5250,5252,5253,5255,5256,5258,1254,1481,3451,4272,4633,4905, & - 5250,5252,5253,5255,5256,5258,2476,4906,5166,5251,5252,5253, & - 5254,5258,4907,5166,5250,5256,5258,1776,4555,4908,5250,5251, & - 5252,5253,5254,5256,5258,2191,2442,2545,2670,2717,2985,3033, & - 3154,3203,3577,3586,3835,3939,4213,4282,4337,4370,4436,4794, & - 4909,5015,5036,5069,5166,5168,5200,5250,5251,5252,5253,5254 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_82 = (/ & - 5255,5256,5258,145,404,405,864,2323,2540,3115,3223,3559, & - 4240,4563,4600,4830,4910,5215,5250,5252,5253,5255,5256,5258, & - 195,1262,1980,2730,4880,4911,5238,5250,5252,5255,5256,604, & - 4492,4912,5250,5251,5252,5253,5254,5256,5258,514,2425,3570, & - 3605,4630,4699,4727,4794,4907,4913,4971,5166,5250,5252,5255, & - 5256,5258,599,2002,2313,2951,4914,5029,5198,5250,5252,5253, & - 5255,5256,1048,3056,3513,3995,4911,4915,5203,5238,5250,5252, & - 5253,5255,5256,2175,2448,2924,3022,3121,3325,3435,3445,4028, & - 4074,4399,4513,4649,4916,5058,5250,5252,5253,5255,5256,5258, & - 2645,2689,3174,3225,3804,4683,4829,4917,5066,5250,5252,5253, & - 5255,5256,5258,2025,2474,2492,2560,2581,2689,3012,3225,3467, & - 3800,3805,3973,4029,4165,4388,4619,4627,4683,4689,4717,4792, & - 4829,4917,4918,4997,5066,5186,5250,5251,5252,5253,5254,5255, & - 5256,5258,3147,4395,4919,5250,5251,5252,5253,5254,5256,5258, & - 255,901,2923,3896,4793,4920,4977,5141,5250,5252,5255,5256, & - 5258,1182,1738,2266,2288,2860,3844,3920,3966,4921,5248,5249, & - 5250,5252,5253,5255,5256,3654,4840,4922,5250,5252,5255,5256, & - 5258,3660,4156,4840,4922,4923,5250,5252,5255,5256,5258, 6, & - 1705,1916,2219,2945,3171,4353,4724,4827,4840,4923,4924,5051, & - 5087,5186,5250,5252,5253,5255,5256,5258,2174,4492,4925,5250, & - 5252,5255,5256,5258,1893,2868,3408,4926,4957,4996,5250,5252, & - 5253,5255,5256,3754,4004,4529,4927,5030,5209,5250,5252,5255, & - 5256,5258,4093,4928,5250,5252,5255,5256,5258, 56,771,1248, & - 1728,2107,2672,2753,4127,4472,4616,4621,4929,4952,5018,5250, & - 5251,5252,5253,5254,5255,5256,5258,2808,2875,3122,3226,3794, & - 4675,4930,5068,5250,5252,5253,5255,5256,5258,1949,2472,2808, & - 2949,2969,3028,3226,3463,3716,3795,3816,3953,4086,4141,4393, & - 4562,4675,4688,4743,4864,4881,4928,4930,4931,4998,5043,5068, & - 5250,5251,5252,5253,5254,5255,5256,5258,2627,4932,5194,5250, & - 5252,5255,5256,3460,3600,4017,4335,4933,5250,5252,5255,5256 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_83 = (/ & - 5258,1090,2846,4934,4975,5250,5252,5253,5255,5256,1465,1513, & - 3996,4807,4935,5250,5252,5253,5255,5256,5258,1467,2823,3454, & - 4113,4539,4936,5118,5204,5226,5250,5252,5253,5255,5256,956, & - 2241,3803,4937,5250,5252,5255,5256,1637,1677,1710,2024,2159, & - 2279,2426,2504,2518,2556,2608,2659,2715,2766,2883,2919,2967, & - 3103,3221,3239,3274,3328,3450,3578,3664,3767,3803,3832,3899, & - 3909,3930,3931,3937,3948,3975,4214,4328,4331,4334,4345,4347, & - 4379,4384,4386,4387,4481,4639,4643,4655,4670,4674,4723,4726, & - 4741,4788,4802,4810,4811,4836,4846,4887,4888,4890,4899,4937, & - 4938,4947,4948,4950,4968,4971,5007,5008,5030,5045,5061,5076, & - 5088,5098,5117,5119,5238,5250,5251,5252,5253,5254,5255,5256, & - 5258,2478,2619,3683,4109,4456,4778,4817,4820,4856,4885,4939, & - 4972,5096,5120,5127,5151,5190,5245,5250,5252,5253,5255,5256, & - 1182,1569,3617,3646,4541,4678,4691,4869,4921,4940,5048,5092, & - 5248,5249,5250,5251,5252,5253,5254,5255,5256,5258,2013,3297, & - 4332,4475,4941,5051,5250,5251,5252,5253,5254,5256,5258,474, & - 1114,1709,2416,3117,4710,4850,4942,5065,5112,5138,5238,5250, & - 5252,5253,5255,5256,766,2286,4333,4474,4475,4604,4606,4840, & - 4943,5200,5250,5251,5252,5253,5254,5256,5258,698,769,1332, & - 1744,2059,2611,2751,3183,3349,3544,3925,4122,4389,4421,4587, & - 4712,4944,5107,5165,5250,5252,5253,5255,5256,5258,4945,5154, & - 5173,5250,5252,3005,3249,4946,5141,5250,5252,5253,5255,5256, & - 1175,1404,1765,2051,3227,3433,3486,3487,3567,3573,3584,3931, & - 4547,4630,4707,4740,4803,4846,4887,4899,4947,4948,4971,5250, & - 5252,5253,5255,5256,5258,3316,3487,4027,4948,5250,5252,5253, & - 5255,5256,5258,674,689,1158,1658,1659,2395,2730,2790,3287, & - 4126,4911,4949,5071,5097,5238,5250,5252,5253,5255,5256,135, & - 1451,3435,4028,4950,5250,5252,5255,5256,3342,3795,3805,3812, & - 3824,4177,4399,4950,4951,5058,5250,5252,5255,5256,5258,3802, & - 3824,3826,4177,4937,4950,4952,5123,5250,5252,5255,5256,5258 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_84 = (/ & - 708,1325,1718,1858,2727,2958,4144,4605,4953,5250,5252,5253, & - 5255,5256,5258,654,2497,3254,3294,3488,4774,4954,5166,5194, & - 5250,5252,5253,5255,5256,5258,916,3010,4955,5189,5250,5252, & - 5253,5255,5256,2042,3202,4604,4606,4956,5190,5250,5251,5252, & - 5253,5254,5256,5258,2546,4883,4957,5181,5250,5252,5253,5255, & - 5256,839,890,893,1518,1575,1685,1804,1874,1939,1981,2925, & - 3236,3552,4096,4518,4556,4657,4658,4945,4958,5020,5132,5154, & - 5173,5250,5251,5252,5253,5254,5255,5256,5258,806,1234,3310, & - 4537,4601,4874,4878,4959,5078,5088,5238,5250,5252,5253,5255, & - 5256,5258,953,1022,1757,4818,4960,5072,5250,5252,5253,5255, & - 5256,2135,2718,3175,4419,4688,4700,4961,5043,5068,5146,5250, & - 5252,5253,5255,5256,5258,1475,2786,4540,4882,4962,5140,5181, & - 5208,5250,5252,5253,5255,5256,514,2425,4794,4907,4963,5166, & - 5250,5251,5252,5253,5254,5256,5258,444,1240,1341,1792,1794, & - 2780,3072,3776,3866,3987,4187,4395,4919,4964,5250,5251,5252, & - 5253,5254,5255,5256,5258,1763,3317,4397,4622,4666,4919,4964, & - 4965,5250,5251,5252,5253,5254,5255,5256,5258,163,973,2696, & - 3237,4423,4454,4464,4728,4797,4877,4966,5103,5126,5250,5252, & - 5253,5255,5256,5258,3528,3747,4577,4722,4967,5146,5238,5250, & - 5252,5255,5256,2504,3209,4968,5076,5250,5252,5253,5255,5256, & - 583,986,2977,4190,4493,4925,4969,5159,5213,5250,5252,5253, & - 5255,5256,5258,1746,4970,4988,5092,5099,5250,5255,5258,3622, & - 4971,5250,5252,5255,5256,5258,2179,4972,5190,5250,5252,5255, & - 5256,1140,1914,2128,2319,2514,2678,2946,2978,3311,3386,3935, & - 4243,4357,4662,4785,4870,4890,4973,5063,5064,5088,5090,5147, & - 5148,5150,5208,5238,5246,5250,5252,5253,5255,5256,1855,2385, & - 4974,5238,5250,5252,5255,5256,1799,2543,2653,3869,3967,4733, & - 4974,4975,5238,5250,5252,5255,5256,4976,5217,5250,5256,5258, & - 901,2852,3896,4793,4977,5141,5250,5252,5253,5255,5256,5258, & - 334,1328,1875,2444,2749,2813,3841,4572,4825,4978,5245,5247 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_85 = (/ & - 5250,5252,5253,5255,5256,983,2822,3792,4975,4979,5010,5238, & - 5250,5252,5253,5255,5256,288,853,2628,3856,4469,4980,5082, & - 5238,5250,5252,5253,5255,5256,601,855,889,1741,2628,2913, & - 3333,3369,4559,4860,4980,4981,5045,5082,5238,5250,5252,5253, & - 5255,5256,3618,4570,4982,5002,5025,5250,5252,5255,5256,5258, & - 1891,3209,3237,3325,3458,3463,3467,3475,3476,3515,3555,3618, & - 4570,4773,4792,4795,4864,4916,4928,4966,4968,4982,4983,5002, & - 5005,5025,5034,5036,5058,5076,5100,5103,5126,5167,5209,5216, & - 5250,5252,5253,5255,5256,5258,1173,2987,4279,4960,4984,5056, & - 5072,5250,5252,5253,5255,5256,634,2603,3082,3251,3300,3624, & - 3817,4055,4935,4985,5089,5250,5252,5253,5255,5256,5258,1109, & - 1610,1806,1836,2021,2501,2876,3103,3372,3599,3798,3803,3823, & - 4003,4133,4432,4483,4529,4626,4892,4986,5123,5250,5252,5253, & - 5255,5256,5258,148,1351,4987,5169,5176,5250,5252,5255,5256, & - 5258,4988,5250,5256,5258,688,1407,1742,1791,2685,2836,4756, & - 4988,4989,5250,5252,5253,5255,5256,5257,5258,876,2755,3875, & - 4733,4990,5238,5250,5252,5253,5255,5256,1099,1236,2910,4468, & - 4618,4714,4767,4769,4782,4811,4852,4858,4876,4880,4911,4990, & - 4991,5119,5192,5238,5250,5252,5253,5255,5256,5258,1299,1330, & - 4018,4685,4992,5250,5252,5253,5255,5256,5258,3280,3290,4993, & - 5209,5250,5252,5253,5255,5256,832,3023,3877,4886,4994,5238, & - 5250,5252,5253,5255,5256,258,1475,1686,2456,3580,4158,4248, & - 4360,4540,4785,4882,4962,4995,5081,5140,5148,5163,5181,5192, & - 5208,5229,5250,5252,5253,5255,5256,557,1935,2009,3415,3580, & - 4158,4354,4360,4882,4883,4996,5081,5181,5250,5252,5255,5256, & - 2104,2148,4094,4997,5066,5250,5251,5252,5253,5254,5256,5258, & - 3210,4093,4998,5068,5250,5251,5252,5253,5254,5256,5258,1642, & - 2081,4999,5049,5168,5220,5251,5252,5253,5254,5258,1369,1671, & - 1882,2037,2110,2434,2675,2815,2869,3020,3256,3299,3462,3603, & - 3623,4112,4316,4364,4512,4553,4554,4555,4585,4763,4780,4783 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_86 = (/ & - 4853,4854,4908,5000,5032,5060,5072,5101,5129,5203,5215,5226, & - 5250,5251,5252,5253,5254,5255,5256,5258,915,1084,3438,3457, & - 3569,3581,3610,3614,4125,4400,4568,4569,4684,4718,4725,4729, & - 4749,4758,4893,4905,4982,5001,5002,5025,5204,5217,5250,5252, & - 5253,5255,5256,5258,5002,5204,5250,5256,5258,2491,3392,3563, & - 4378,5003,5075,5154,5174,5250,5252,5253,5255,5256,729,1238, & - 1320,1762,2139,3008,3248,3913,4278,4350,4552,4789,4812,4926, & - 4957,4996,5004,5041,5081,5114,5181,5215,5250,5252,5253,5255, & - 5256,2491,3532,3555,4378,5005,5154,5167,5174,5250,5252,5253, & - 5255,5256,158,180,880,1237,1317,1493,1996,2155,2273,2312, & - 2651,4197,4315,4567,4638,4855,4953,5006,5083,5084,5095,5236, & - 5250,5252,5253,5255,5256,5258,393,757,1134,2503,3465,3466, & - 4737,5007,5008,5062,5063,5116,5250,5252,5253,5255,5256,5258, & - 1134,1607,2197,2684,4697,4737,5008,5061,5063,5116,5250,5252, & - 5253,5255,5256,1778,2278,3007,4521,4593,4689,5009,5066,5096, & - 5144,5190,5250,5252,5253,5255,5256,5258,435,1506,1564,1798, & - 2543,2653,3869,3967,4733,4974,5010,5238,5250,5252,5255,5256, & - 1378,1432,3366,3624,3702,4569,4680,4801,4802,4934,4935,4975, & - 4979,4992,5010,5011,5032,5119,5120,5151,5238,5250,5252,5253, & - 5255,5256,5258,874,1957,2877,3310,4143,4601,4837,4874,4878, & - 4959,5012,5078,5088,5147,5238,5250,5252,5253,5255,5256,5258, & - 5013,5217,5218,5250,5252,5258,900,1834,2469,2648,4754,4988, & - 5014,5207,5250,5252,5253,5255,5256,5257,5258,2147,5015,5168, & - 5250,5252,5255,5256,506,936,1249,2655,3470,4107,4548,4636, & - 5016,5177,5217,5218,5227,5250,5252,5253,5255,5256,993,2265, & - 2305,2708,4145,4842,5017,5044,5083,5175,5250,5252,5253,5255, & - 5256,5258,712,1675,2454,3692,3752,4621,4952,5018,5123,5250, & - 5251,5252,5253,5254,5255,5256,5258,933,1018,4660,5019,5159, & - 5250,5252,5253,5255,5256,906,1541,1934,4867,5019,5020,5159, & - 5227,5250,5252,5253,5255,5256,1277,1608,2658,4910,5021,5215 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_87 = (/ & - 5250,5252,5253,5255,5256,5258,3485,4786,5022,5224,5250,5252, & - 5255,5256,5258,875,1787,2320,2345,2475,2486,2498,2596,3267, & - 3495,3611,3620,4209,4250,4366,4382,4565,4578,4599,4625,4776, & - 4816,4851,5023,5024,5049,5091,5093,5189,5194,5250,5251,5252, & - 5253,5254,5255,5256,5258,2770,3621,5024,5091,5250,5252,5255, & - 5256,5258,3204,5025,5205,5250,5252,5253,5255,5256,638,1132, & - 1632,2092,2614,2625,2787,2982,4524,4642,4704,4737,4811,4886, & - 5026,5063,5064,5097,5116,5119,5147,5238,5250,5252,5253,5255, & - 5256,1107,1756,2637,4098,4953,5027,5187,5250,5252,5253,5255, & - 5256,5258,2359,5028,5248,5249,5250,5252,5255,5256,5258,1462, & - 1565,2023,2058,2951,3090,3744,3921,3936,3943,4492,4925,5029, & - 5213,5250,5252,5253,5255,5256,5258, 52,1486,2605,4133,5030, & - 5250,5252,5255,5256,713,2248,2643,2671,2845,3054,3251,3262, & - 3274,3593,3624,3702,3742,3897,3918,3979,4202,4323,4344,4384, & - 4448,4468,4558,4568,4674,4680,4780,4782,4811,4911,4935,4992, & - 5030,5031,5032,5089,5119,5238,5250,5252,5253,5255,5256,5258, & - 1153,3583,4974,5032,5238,5250,5252,5255,5256,3197,5033,5220, & - 5250,5252,5253,5255,5256,2484,2582,2714,3089,3238,3458,3811, & - 4667,4897,5034,5126,5250,5252,5253,5255,5256,5258,3428,5035, & - 5205,5219,5224,5250,5252,5255,5256,2240,2335,3154,3203,3628, & - 3835,3929,4460,4783,5015,5036,5168,5226,5250,5252,5253,5255, & - 5256,2356,2357,2477,2569,2837,3316,3452,3468,3754,4529,4692, & - 4893,4899,4948,5030,5037,5250,5252,5253,5255,5256,5258,141, & - 1192,2410,2511,3416,3644,4199,4308,4358,4603,4708,4720,4775, & - 4815,4823,4877,4928,4932,5038,5058,5059,5066,5068,5126,5194, & - 5250,5252,5253,5255,5256,5258,362,3638,3990,4526,4678,4921, & - 4970,4988,5039,5092,5099,5248,5249,5250,5251,5252,5253,5254, & - 5255,5256,5258,2489,4615,5040,5219,5250,5251,5252,5253,5254, & - 5258,1624,2470,4988,4989,5041,5250,5252,5253,5255,5256,5257, & - 5258,1730,1885,2337,3024,3032,4515,4696,5042,5147,5238,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_88 = (/ & - 5252,5253,5255,5256,946,2135,4419,4508,5043,5146,5250,5252, & - 5253,5255,5256,5258,619,1511,1615,2022,2141,2688,4135,5044, & - 5175,5250,5252,5253,5255,5256,5258,1688,2409,5045,5238,5250, & - 5252,5255,5256,4213,4247,4250,4258,4264,4282,4286,4302,4320, & - 4526,4544,4551,4556,4600,4601,4621,4668,4677,4691,4741,4757, & - 4776,4786,4819,4824,4828,4838,4843,4868,4869,4906,4908,4912, & - 4919,4941,4943,4951,4952,4956,4963,4970,4988,4997,4998,4999, & - 5013,5024,5030,5040,5046,5047,5048,5049,5050,5051,5058,5066, & - 5068,5069,5070,5076,5091,5092,5093,5099,5102,5123,5132,5153, & - 5156,5166,5168,5170,5175,5190,5200,5205,5207,5217,5218,5219, & - 5220,5223,5224,5249,5250,5251,5252,5253,5254,5255,5256,5257, & - 5258,386,4832,5047,5204,5217,5250,5251,5252,5253,5254,5256, & - 5258,4988,5048,5250,5251,5252,5253,5254,5256,5258,238,1352, & - 1971,3102,3658,3670,5049,5153,5250,5252,5255,5256,5258,1365, & - 2099,2100,3658,5050,5153,5250,5252,5255,5256,5258,5051,5162, & - 5250,5256,5258,585,1509,1687,1863,2315,2704,4761,5052,5248, & - 5249,5250,5252,5253,5255,5256,5258,1037,1100,2774,2803,3759, & - 4053,4735,4804,4889,5053,5135,5137,5140,5143,5157,5178,5250, & - 5252,5255,5256,5258,1347,2209,2703,3849,4117,4120,5044,5054, & - 5175,5187,5250,5252,5253,5255,5256,5258,1856,2247,2251,2800, & - 2884,2939,3079,3212,3938,4207,4705,4722,4778,4848,5055,5120, & - 5146,5150,5163,5192,5230,5250,5252,5253,5255,5256,1488,2385, & - 5056,5238,5250,5252,5255,5256,896,1557,1994,2459,2848,2891, & - 3528,4629,4844,4967,5056,5057,5077,5082,5090,5146,5148,5238, & - 5239,5250,5252,5253,5255,5256,1698,2200,2955,3022,3342,3795, & - 3805,3812,3824,4177,4396,4399,4513,4649,4950,5058,5250,5252, & - 5253,5255,5256,5258,2471,3478,3712,4029,4062,4071,4086,4195, & - 4271,4273,4398,4467,4491,4531,4603,4619,4743,4799,4859,4916, & - 4917,4930,4965,4986,5034,5058,5059,5066,5068,5123,5126,5250, & - 5251,5252,5253,5254,5255,5256,5258,434,1041,1138,1701,4501 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_89 = (/ & - 4512,4755,4834,4974,5060,5077,5079,5082,5238,5250,5252,5253, & - 5255,5256,5258,1641,1753,5061,5238,5250,5252,5255,5256,438, & - 1074,1516,1817,2435,2487,3594,4412,4527,4634,5042,5061,5062, & - 5147,5238,5250,5252,5253,5255,5256,5258,1838,2555,2775,2934, & - 3873,3989,4696,5061,5063,5238,5250,5252,5255,5256,488,1340, & - 1721,2555,2775,2934,3873,3989,4696,5061,5064,5238,5250,5252, & - 5255,5256,253,5065,5238,5250,5252,5255,5256,1623,2117,2559, & - 2656,3805,4683,4829,5066,5250,5252,5253,5255,5256,5258,1785, & - 2344,2880,3208,4579,4661,4719,4896,5051,5067,5126,5136,5149, & - 5162,5250,5252,5253,5255,5256,5258,1636,1951,2601,2915,3795, & - 4635,4675,5068,5250,5252,5253,5255,5256,5258,1258,2040,2041, & - 3634,5069,5166,5250,5252,5255,5256,5258,3186,4017,4018,4081, & - 4272,5070,5103,5126,5141,5250,5251,5252,5253,5254,5256,5258, & - 126,1568,2005,2144,2235,2261,2677,2885,3205,3847,3991,4260, & - 4359,4411,4412,4755,4974,5010,5071,5116,5147,5203,5238,5250, & - 5252,5253,5255,5256,772,1264,2032,2033,2984,3715,4485,4789, & - 5072,5215,5250,5252,5253,5255,5256,1350,2377,2458,2533,3335, & - 3436,3907,4849,5073,5175,5176,5196,5212,5250,5252,5253,5255, & - 5256,3625,4615,5074,5219,5250,5252,5255,5256,5258,2735,3272, & - 4378,5075,5154,5174,5250,5252,5253,5255,5256,4937,4950,5030, & - 5076,5250,5252,5255,5256,5258,1688,2192,5077,5238,5250,5252, & - 5255,5256,291,828,1069,1635,3924,4771,5077,5078,5238,5250, & - 5252,5253,5255,5256,695,1041,1556,2255,2300,2680,3275,3291, & - 4105,4501,4820,4834,5045,5077,5079,5082,5238,5245,5250,5252, & - 5253,5255,5256,790,2475,2777,3250,3495,3501,3514,3550,3611, & - 4321,4564,4625,4636,4711,4786,5016,5020,5033,5075,5080,5134, & - 5154,5159,5174,5177,5189,5197,5217,5218,5220,5224,5225,5227, & - 5250,5252,5253,5255,5256,5258,3689,5081,5181,5250,5252,5255, & - 5256,1688,2264,5082,5238,5250,5252,5255,5256,310,740,1135, & - 1585,2231,2352,2362,2958,3962,4148,4605,4953,5083,5250,5252 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_90 = (/ & - 5253,5255,5256,5258,993,1394,4842,5017,5044,5083,5084,5175, & - 5250,5252,5253,5255,5256,5258,537,553,662,793,880,1731, & - 1890,1996,2007,2017,2561,2708,2750,3949,3950,4150,4226,4681, & - 5017,5044,5083,5084,5085,5095,5175,5196,5250,5252,5253,5255, & - 5256,5258,527,714,799,1428,1528,1630,1631,1811,1812,1823, & - 1932,2386,2532,2636,2661,3223,3408,3750,3845,4236,4340,4545, & - 4600,4664,4900,4910,4926,4957,4996,5081,5083,5086,5181,5213, & - 5215,5250,5252,5253,5255,5256,5258,1853,1872,2421,2433,2525, & - 2805,3044,3277,4353,4370,4640,4695,4840,4915,4923,5087,5121, & - 5164,5200,5202,5203,5238,5250,5252,5253,5255,5256,5258,1196, & - 2496,3946,4878,5088,5238,5250,5252,5253,5255,5256,756,1600, & - 3258,3332,3624,3818,4004,4055,4807,4935,5089,5250,5252,5253, & - 5255,5256,5258,1547,3311,4313,5077,5082,5090,5238,5250,5252, & - 5253,5255,5256,194,3621,4107,5013,5091,5217,5218,5250,5252, & - 5255,5256,5258,4988,5092,5250,5251,5252,5253,5254,5256,5258, & - 841,1054,1172,4111,4372,4774,5093,5153,5166,5250,5252,5255, & - 5256,5258,1682,1857,2477,3462,3929,3993,4460,4783,4893,4905, & - 4936,5001,5002,5015,5025,5035,5094,5118,5168,5204,5205,5217, & - 5219,5224,5226,5250,5252,5253,5255,5256,5258,625,728,1237, & - 2071,2155,2312,2879,4197,4315,4567,4638,4855,4953,5083,5095, & - 5236,5250,5252,5253,5255,5256,5258,850,1778,4521,5096,5144, & - 5190,5250,5252,5253,5255,5256,230,988,3298,3471,3822,3868, & - 3879,4642,4800,4901,4994,5045,5064,5097,5119,5238,5250,5252, & - 5253,5255,5256,477,2397,2715,3031,3384,3556,3726,3780,3945, & - 4334,4416,4480,4505,4601,4697,4704,4937,5026,5030,5061,5063, & - 5064,5076,5097,5098,5116,5117,5119,5147,5178,5238,5250,5252, & - 5253,5255,5256,5258,1251,1736,2160,2184,2587,3891,3963,3971, & - 4988,5099,5250,5252,5253,5255,5256,5257,5258,170,994,2793, & - 3433,3476,3486,3618,4325,4706,4803,4904,4946,4968,4971,4982, & - 4985,4993,5002,5025,5037,5076,5089,5100,5141,5204,5205,5209 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_91 = (/ & - 5210,5250,5252,5253,5255,5256,5258,547,630,1380,1826,2675, & - 3207,3528,3892,4698,4967,4984,5032,5056,5057,5072,5077,5082, & - 5090,5101,5130,5146,5148,5215,5238,5239,5250,5252,5253,5255, & - 5256,2479,3133,3832,3996,4084,5030,5037,5089,5102,5103,5123, & - 5227,5250,5251,5252,5253,5254,5255,5256,5258,1857,2287,2632, & - 3451,3802,4633,4905,5103,5250,5252,5253,5255,5256,5258,883, & - 1986,2304,2673,2719,3420,3425,3497,3855,4172,4319,4363,4394, & - 4679,4764,4989,5014,5104,5206,5207,5250,5252,5253,5255,5256, & - 5257,5258,2584,2953,4392,4439,4597,4779,5054,5084,5105,5161, & - 5175,5185,5187,5198,5250,5252,5253,5255,5256,5258, 7,1111, & - 1466,1790,2026,2472,2612,2927,3057,3210,3314,3352,3353,3432, & - 3684,3787,3887,4093,4227,4393,4424,4594,4700,4736,4743,4744, & - 4815,4911,4928,4931,4974,4998,5043,5068,5106,5146,5203,5238, & - 5250,5251,5252,5253,5254,5255,5256,5258,342,5107,5238,5250, & - 5252,5255,5256,161,1267,1919,4766,5107,5108,5238,5250,5252, & - 5255,5256,1709,2422,5109,5238,5250,5252,5255,5256,1566,2203, & - 2428,2547,2618,2723,3346,3616,3756,4095,4235,4446,4590,4646, & - 4784,4827,4871,4884,4903,4967,5109,5110,5146,5157,5186,5238, & - 5250,5252,5255,5256,5258,672,886,2360,2600,3954,4493,4765, & - 4925,5081,5086,5111,5159,5181,5213,5215,5250,5252,5253,5255, & - 5256,5258,270,3110,5065,5112,5238,5250,5252,5255,5256,1561, & - 1691,1887,3612,4242,4648,4883,4957,5095,5113,5181,5236,5250, & - 5252,5253,5255,5256,5258,1739,2359,5052,5114,5248,5249,5250, & - 5252,5253,5255,5256,5258,1755,2509,2835,3046,3870,3961,4942, & - 5065,5112,5115,5138,5186,5238,5250,5252,5253,5255,5256,449, & - 1291,1577,1842,4665,4800,4901,4994,5063,5116,5119,5238,5250, & - 5252,5253,5255,5256,805,2883,2910,3031,3780,4697,4704,4811, & - 5026,5061,5063,5064,5097,5116,5117,5119,5147,5238,5250,5252, & - 5253,5255,5256,607,4113,5118,5166,5204,5224,5250,5252,5255, & - 5256,166,1501,1831,4586,5119,5238,5250,5252,5255,5256,479 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_92 = (/ & - 1090,3822,4934,4975,5119,5120,5238,5250,5252,5253,5255,5256, & - 343,1158,1686,1693,1899,4524,4880,4886,4949,5071,5097,5116, & - 5119,5121,5147,5200,5203,5229,5238,5250,5252,5253,5255,5256, & - 243,3516,3517,4249,4757,4988,5122,5249,5250,5251,5252,5253, & - 5254,5255,5256,5258,720,755,1583,1584,1588,1609,1836,1968, & - 1988,2234,2501,2857,3060,3206,3292,3469,3824,3826,4004,4177, & - 4311,4432,4483,4626,4654,4833,4887,4892,4937,4950,5123,5250, & - 5252,5253,5255,5256,5258,1959,3607,3653,3689,4814,5081,5124, & - 5153,5181,5194,5230,5250,5252,5255,5256,5258,722,803,862, & - 1500,1707,1737,1879,2052,2104,2148,2163,2474,2537,2558,2936, & - 3073,3151,3341,3399,3426,3427,3463,3467,3498,3522,3673,3701, & - 3757,3878,3910,4094,4103,4223,4233,4318,4336,4349,4377,4381, & - 4388,4390,4461,4502,4593,4607,4608,4619,4620,4627,4702,4713, & - 4717,4744,4775,4792,4864,4884,4918,4928,4997,5066,5109,5112, & - 5125,5186,5190,5230,5238,5250,5251,5252,5253,5254,5255,5256, & - 5258,1560,1598,1640,1760,1873,2640,2950,3238,3812,3826,4132, & - 4177,4641,4667,4897,5126,5250,5252,5253,5255,5256,5258,4248, & - 4785,4907,5127,5148,5163,5166,5192,5250,5252,5255,5256,5258, & - 3448,3629,3642,4330,4342,4781,4891,5027,5128,5187,5212,5226, & - 5250,5252,5253,5255,5256,5258,298,734,1380,1582,2118,3207, & - 3299,3528,3892,4512,4698,4967,4981,4984,5032,5045,5056,5057, & - 5072,5077,5082,5090,5101,5129,5130,5146,5148,5215,5238,5239, & - 5250,5252,5253,5255,5256,5258,1411,1814,2226,2855,2856,3373, & - 3882,3957,4162,4216,4652,4748,4825,5028,5052,5130,5240,5247, & - 5248,5249,5250,5252,5253,5255,5256,5258,703,726,1372,1373, & - 1479,1843,2439,3011,4762,5039,5092,5099,5131,5248,5249,5250, & - 5251,5252,5253,5254,5255,5256,5257,5258,5132,5166,5250,5252, & - 5255,5256,3502,3529,4406,5005,5133,5154,5155,5167,5174,5221, & - 5250,5252,5253,5255,5256,678,3428,3550,3734,4113,4955,5118, & - 5132,5134,5166,5189,5204,5219,5224,5250,5252,5253,5255,5256 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_93 = (/ & - 1244,1774,4103,4430,4527,5112,5135,5238,5250,5252,5253,5255, & - 5256,5258,596,1545,1937,2190,2880,3912,3926,4053,4581,4766, & - 4804,4872,4889,5107,5109,5115,5135,5136,5138,5165,5185,5186, & - 5238,5250,5252,5253,5255,5256,5258,1100,2028,2691,2803,3086, & - 3124,3151,3183,3184,3185,3493,3504,3522,3537,3544,3548,3759, & - 4053,4349,4355,4361,4369,4389,4566,4573,4709,4712,4713,4715, & - 4716,4735,4804,4889,5065,5107,5108,5112,5135,5137,5138,5140, & - 5143,5144,5238,5250,5252,5253,5255,5256,5258,426,5138,5238, & - 5250,5252,5255,5256,572,634,1768,1960,2021,2238,2307,2336, & - 2521,2563,2582,2681,2691,2696,2728,2732,2751,2774,2853,2897, & - 2960,2971,3005,3058,3073,3200,3235,3237,3249,3262,3279,3283, & - 3295,3296,3302,3403,3419,3441,3453,3457,3460,3565,3570,3581, & - 3588,3600,3610,3631,3632,3650,3659,3702,3723,3798,3802,3812, & - 3817,3818,3825,3826,3853,3860,3934,3959,4062,4167,4168,4177, & - 4178,4184,4277,4335,4400,4401,4421,4429,4435,4461,4532,4533, & - 4534,4574,4645,4661,4667,4701,4703,4709,4712,4713,4715,4716, & - 4725,4727,4728,4769,4787,4799,4813,4877,4896,4933,4946,4966, & - 4992,5034,5051,5053,5065,5070,5103,5107,5112,5126,5135,5137, & - 5138,5139,5140,5141,5143,5144,5149,5157,5162,5178,5208,5238, & - 5250,5251,5252,5253,5254,5255,5256,5258,1165,1521,1563,2509, & - 2835,3046,3870,3961,4942,5065,5112,5138,5140,5186,5238,5250, & - 5252,5253,5255,5256,589,623,1576,1665,2137,2650,2948,3403, & - 3702,3818,4167,4656,4685,4813,4992,5141,5250,5252,5253,5255, & - 5256,5258, 51,751,987,1962,2013,2188,2260,2397,2490,2839, & - 2973,3076,3297,3368,3377,3429,3445,3510,3609,3619,3723,3779, & - 3807,4062,4074,4121,4175,4178,4219,4332,4368,4475,4535,4571, & - 4595,4609,4611,4616,4631,4731,4736,4799,4876,4941,4946,4980, & - 5034,5051,5062,5078,5082,5117,5119,5126,5140,5141,5142,5147, & - 5162,5178,5183,5186,5191,5238,5250,5251,5252,5253,5254,5255, & - 5256,5258,570,575,698,722,745,778,1548,1571,1674,1707 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_94 = (/ & - 1725,1740,1744,1839,1880,1908,2052,2059,2083,2106,2121,2221, & - 2400,2562,2589,2594,2638,2642,2665,2826,2842,3009,3884,4349, & - 4355,4361,4369,4389,4566,4573,4709,4712,4713,4715,4716,4735, & - 4866,4872,5065,5107,5108,5112,5115,5138,5140,5143,5144,5161, & - 5165,5185,5186,5238,5250,5252,5253,5255,5256,221,3091,5138, & - 5144,5238,5250,5252,5255,5256,631,1466,1789,2126,2212,3222, & - 3231,3288,3404,3540,3651,3716,3779,3868,3894,4086,4508,4562, & - 4571,4583,4604,4606,4705,4736,4743,4856,4868,4881,4901,4930, & - 4972,4994,5043,5068,5096,5106,5144,5145,5146,5151,5186,5190, & - 5203,5230,5238,5250,5251,5252,5253,5254,5255,5256,5258,588, & - 5146,5238,5250,5252,5255,5256,1180,1635,1885,3109,3168,3851, & - 4515,4586,4696,5146,5147,5238,5250,5252,5253,5255,5256,240, & - 806,845,1994,3393,3747,4110,4577,4629,4722,5056,5078,5146, & - 5148,5238,5250,5252,5253,5255,5256,1545,1670,1719,3208,4581, & - 4872,4889,5051,5109,5115,5135,5136,5138,5149,5162,5165,5185, & - 5186,5238,5250,5252,5253,5255,5256,5258,207,1042,2247,3777, & - 4261,4300,4784,4848,5108,5109,5150,5163,5192,5238,5250,5252, & - 5253,5255,5256,282,983,3222,3298,3792,3822,3978,4800,4975, & - 4979,4990,5010,5119,5151,5192,5238,5250,5252,5253,5255,5256, & - 595,637,777,1683,1917,1947,2080,2150,2473,2500,2580,2711, & - 2870,3160,3198,3526,3763,3888,4284,4352,4530,4585,4589,4700, & - 4724,4732,4772,4804,4817,4932,4945,5050,5051,5132,5152,5153, & - 5154,5162,5166,5173,5180,5190,5194,5250,5252,5253,5255,5256, & - 5258,591,3653,4814,5153,5181,5250,5252,5255,5256,5258,2590, & - 4615,5154,5219,5250,5252,5255,5258,2243,3059,3160,3326,3635, & - 4945,5074,5154,5155,5173,5219,5221,5250,5252,5253,5255,5256, & - 5258,763,3647,4570,4976,5002,5025,5089,5141,5156,5204,5205, & - 5209,5217,5220,5226,5250,5251,5252,5253,5254,5255,5256,5258, & - 1704,1719,1841,1954,2269,2630,3288,4581,4583,4628,4933,5109, & - 5157,5186,5238,5250,5252,5253,5255,5256,5258, 8,610,833 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_95 = (/ & - 1832,2000,2201,2478,2547,2618,2680,2930,2968,3021,3078,3616, & - 4095,4138,4503,4584,4590,4646,4784,4817,4820,4827,4884,4885, & - 4939,4972,5096,5108,5109,5110,5120,5127,5144,5146,5148,5151, & - 5157,5158,5163,5166,5186,5190,5192,5238,5242,5245,5250,5252, & - 5253,5255,5256,5258,1311,1572,4092,4340,4492,4600,5159,5213, & - 5250,5252,5255,5256,5258,541,573,632,644,741,754,760, & - 775,813,1078,1614,1653,1654,1662,1724,1754,1757,1776,1788, & - 1789,1801,1803,1808,1815,1818,1852,1924,1944,1975,1984,1985, & - 1989,2029,2056,2068,2111,2126,2151,2207,2211,2214,2244,2293, & - 2364,2374,2393,2399,2415,2423,2425,2427,2452,2457,2460,2465, & - 2473,2490,2502,2522,2524,2532,2534,2542,2610,2612,2619,2621, & - 2626,2629,2661,2687,2697,2701,2742,2759,2792,2802,2812,2831, & - 2840,2864,2881,2888,2892,2933,2942,2943,2968,2992,2993,3013, & - 3029,3034,3068,3069,3076,3081,3083,3104,3159,3173,3188,3198, & - 3212,3223,3243,3260,3293,3299,3364,3422,3442,3444,3447,3533, & - 3536,3598,3623,3671,3721,3838,3845,3888,3894,3905,3944,3955, & - 3970,3981,3982,4090,4091,4099,4108,4112,4119,4124,4128,4137, & - 4140,4157,4166,4170,4173,4189,4201,4234,4290,4385,4452,4456, & - 4473,4474,4492,4497,4503,4512,4544,4545,4555,4580,4585,4594, & - 4596,4600,4647,4700,4722,4723,4736,4763,4780,4789,4809,4818, & - 4820,4839,4841,4844,4853,4854,4860,4898,4901,4903,4907,4908, & - 4910,4914,4925,4960,4974,4978,4980,4981,4994,5000,5021,5029, & - 5032,5041,5045,5056,5060,5072,5076,5077,5078,5079,5082,5090, & - 5101,5104,5106,5114,5129,5130,5145,5146,5148,5151,5160,5166, & - 5186,5190,5192,5198,5203,5206,5207,5213,5215,5226,5230,5238, & - 5239,5240,5243,5245,5247,5248,5249,5250,5251,5252,5253,5254, & - 5255,5256,5257,5258,602,609,769,794,803,945,1440,2400, & - 3609,3662,3906,3917,4103,4122,4164,4179,4866,4876,5065,5107, & - 5108,5112,5115,5138,5140,5144,5161,5186,5238,5250,5252,5253, & - 5255,5256,383,1987,2416,2638,2726,2760,3218,3493,4270,4443 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_96 = (/ & - 4715,4850,4942,5065,5107,5112,5138,5162,5238,5250,5252,5253, & - 5255,5256,1290,1708,2227,3148,4760,5138,5144,5162,5163,5238, & - 5250,5252,5253,5255,5256,1015,1650,2129,2525,2940,3683,3756, & - 4590,4817,4827,4884,4885,5055,5120,5146,5150,5151,5163,5164, & - 5186,5190,5192,5230,5238,5250,5252,5253,5255,5256,5258,345, & - 834,1927,2227,2285,2290,2371,2594,2841,2896,2944,2988,3002, & - 3308,3544,3925,4155,4283,4427,4527,4582,4587,4712,4760,4838, & - 4873,4879,5107,5112,5135,5138,5162,5163,5165,5238,5250,5251, & - 5252,5253,5254,5255,5256,5258,5166,5250,5256,5258,2570,2606, & - 4256,4894,4945,5074,5132,5154,5166,5167,5173,5205,5219,5250, & - 5252,5253,5255,5256,5258,3634,5118,5166,5168,5204,5224,5250, & - 5252,5255,5256,5258,635,639,748,1058,1911,2065,2451,3863, & - 3867,3940,4605,4843,5169,5250,5251,5252,5253,5254,5255,5256, & - 5258,2748,3630,4588,4805,4840,4976,5002,5033,5049,5050,5058, & - 5066,5068,5069,5076,5123,5126,5153,5166,5170,5181,5194,5204, & - 5205,5209,5217,5220,5250,5251,5252,5253,5254,5255,5256,5258, & - 545,617,1201,1759,2217,2622,3984,4274,4566,4573,4902,4925, & - 4969,5019,5105,5108,5159,5161,5171,5175,5185,5186,5187,5196, & - 5198,5213,5236,5238,5250,5252,5253,5255,5256,5258,131,3358, & - 3529,4294,4772,4805,4826,4945,4976,4993,5003,5033,5035,5075, & - 5133,5154,5155,5167,5172,5173,5174,5205,5209,5217,5219,5220, & - 5221,5224,5250,5252,5253,5255,5256,5258,3552,4096,5013,5132, & - 5166,5173,5217,5218,5250,5252,5255,5256,5258,3428,5174,5219, & - 5220,5224,5250,5252,5255,5256,540,1905,2508,3994,4605,5175, & - 5250,5252,5255,5256,5258,549,556,587,649,721,1151,1835, & - 1973,1990,2407,2962,2997,3850,3872,3876,3927,3969,4824,5169, & - 5175,5176,5250,5251,5252,5253,5254,5255,5256,5258,268,543, & - 650,948,1766,1941,1942,2591,2772,2916,3895,3974,4019,4752, & - 5044,5085,5095,5175,5177,5189,5196,5236,5250,5252,5253,5255, & - 5256,5258, 11,757,924,1694,1714,1946,1962,2090,2208,2314 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_97 = (/ & - 2435,2620,2702,2839,2851,2882,2964,2983,3310,3312,3429,3592, & - 3889,4114,4121,4143,4206,4320,4522,4601,4634,4771,4777,4837, & - 4878,4959,5012,5042,5061,5062,5077,5078,5088,5147,5178,5238, & - 5250,5251,5252,5253,5254,5255,5256,5258,704,739,760,1471, & - 1618,1925,2018,2062,2886,3006,3337,3436,3497,4234,4363,4371, & - 4394,4418,4538,4659,4781,4839,4891,4978,4987,5073,5169,5175, & - 5176,5179,5196,5206,5211,5212,5245,5247,5250,5251,5252,5253, & - 5254,5255,5256,5258,1808,1849,1969,2112,2162,2531,2824,3198, & - 3351,3459,3552,3587,4171,4516,4585,4668,4677,4732,4932,4945, & - 5013,5050,5124,5153,5154,5173,5180,5181,5194,5217,5218,5219, & - 5230,5250,5251,5252,5253,5254,5255,5256,5258,235,5181,5238, & - 5250,5252,5255,5256,581,618,703,724,733,786,1732,1814, & - 1843,1868,1900,1901,1913,1986,2154,2404,2439,2450,2629,2673, & - 2724,2938,2941,3008,3013,3081,3293,3373,3415,3420,3424,3724, & - 4119,4128,4162,4172,4173,4176,4196,4354,4410,4497,4510,4560, & - 4748,4762,4764,4768,4812,4814,4818,4863,4882,4914,4989,4996, & - 5004,5014,5021,5028,5029,5041,5052,5056,5072,5081,5084,5114, & - 5122,5175,5181,5182,5198,5207,5213,5215,5238,5240,5248,5249, & - 5250,5251,5252,5253,5254,5255,5256,5257,5258,564,589,602, & - 745,750,761,987,1571,1574,1576,1583,1584,1638,1653,1654, & - 1690,1693,1704,1711,1712,1832,1839,1857,1928,1968,1982,2028, & - 2137,2171,2244,2263,2307,2336,2358,2388,2484,2485,2572,2665, & - 2692,2774,2893,2932,2960,2989,3003,3031,3077,3078,3086,3091, & - 3110,3117,3118,3148,3166,3186,3200,3230,3237,3262,3271,3288, & - 3322,3345,3354,3356,3357,3411,3418,3434,3451,3453,3458,3473, & - 3504,3609,3656,3702,3732,3777,3831,3843,3904,3906,3917,3942, & - 3944,3956,3959,3968,4017,4018,4032,4047,4076,4080,4081,4102, & - 4103,4118,4122,4164,4168,4175,4179,4184,4191,4199,4272,4311, & - 4365,4367,4369,4401,4403,4404,4413,4434,4435,4441,4445,4455, & - 4463,4476,4499,4534,4535,4574,4579,4583,4584,4618,4631,4632 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_98 = (/ & - 4645,4654,4663,4682,4701,4703,4714,4716,4719,4725,4727,4728, & - 4731,4736,4766,4767,4769,4782,4787,4799,4804,4813,4852,4858, & - 4865,4876,4877,4880,4897,4905,4920,4933,4966,4977,4990,4992, & - 5034,5051,5053,5065,5070,5103,5107,5108,5112,5117,5119,5126, & - 5135,5137,5138,5139,5140,5141,5143,5144,5147,5149,5157,5161, & - 5162,5165,5178,5183,5185,5186,5191,5192,5208,5238,5250,5251, & - 5252,5253,5254,5255,5256,5258,416,544,1679,1931,1961,2116, & - 2306,2437,2456,2571,2745,2784,2786,2908,2909,2965,2972,3602, & - 3861,3890,3901,3902,3951,4116,4230,4348,4374,4673,4962,4995, & - 5041,5054,5081,5104,5114,5140,5148,5150,5163,5175,5181,5184, & - 5185,5186,5187,5192,5206,5207,5208,5229,5238,5248,5249,5250, & - 5252,5253,5255,5256,5257,5258,376,1448,1596,2391,3382,3917, & - 4623,4876,5108,5115,5138,5144,5185,5186,5238,5250,5252,5253, & - 5255,5256,1709,5186,5238,5250,5252,5255,5256,2890,4098,4953, & - 5187,5250,5252,5253,5255,5256,5258,567,648,704,1603,1625, & - 1684,1748,1899,1926,1967,2004,2062,2138,2162,2421,2489,2616, & - 2790,2814,3064,3080,3106,3160,3245,3273,3275,3286,3326,3330, & - 3334,3443,3448,3550,3552,3625,3628,3635,3700,3801,3835,3993, & - 4066,4256,4330,4343,4351,4538,4551,4561,4615,4777,4781,4783, & - 4837,4891,4894,4936,4945,4949,5002,5010,5013,5015,5022,5025, & - 5027,5035,5040,5071,5074,5079,5082,5097,5116,5118,5119,5121, & - 5128,5132,5134,5147,5154,5155,5166,5168,5173,5187,5188,5189, & - 5200,5202,5203,5204,5205,5212,5217,5218,5219,5221,5224,5226, & - 5229,5238,5241,5245,5250,5251,5252,5253,5254,5255,5256,5258, & - 465,1126,2072,2073,2651,4059,5006,5083,5084,5095,5175,5189, & - 5236,5250,5252,5253,5255,5256,5258,3689,5181,5190,5238,5250, & - 5252,5255,5256,5258,641,749,761,1595,1601,1686,1695,1711, & - 1974,2012,2066,2158,2292,2384,2537,2572,2610,2650,2681,2698, & - 2720,2833,2857,2866,2901,2923,2964,3009,3035,3208,3265,3266, & - 3301,3302,3377,3409,3473,3504,3735,3779,3904,3922,3934,3942 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_99 = (/ & - 3956,4081,4102,4168,4272,4275,4332,4365,4367,4441,4445,4475, & - 4476,4535,4571,4574,4579,4645,4654,4656,4661,4714,4716,4719, & - 4767,4782,4799,4858,4876,4878,4896,4920,4941,4977,4990,5051, & - 5056,5067,5103,5125,5126,5136,5138,5141,5144,5149,5162,5165, & - 5185,5186,5190,5191,5192,5208,5229,5230,5238,5250,5251,5252, & - 5253,5254,5255,5256,5258,876,1708,2057,3875,4733,4990,5192, & - 5238,5250,5252,5253,5255,5256,528,539,545,574,596,600, & - 610,615,637,674,710,776,787,791,1011,1110,1553,1592, & - 1597,1638,1646,1650,1659,1733,1737,1749,1750,1759,1924,1937, & - 1997,2027,2066,2080,2129,2158,2188,2201,2204,2205,2219,2229, & - 2298,2316,2346,2411,2424,2479,2503,2528,2547,2558,2579,2618, & - 2639,2644,2672,2676,2679,2692,2700,2715,2730,2734,2745,2753, & - 2764,2795,2807,2811,2820,2826,2827,2828,2831,2839,2849,2858, & - 2859,2873,2893,2905,2912,2920,2930,2940,2945,2946,2948,2950, & - 2976,3000,3003,3019,3063,3076,3106,3159,3265,3266,3277,3282, & - 3328,3333,3341,3346,3367,3383,3386,3393,3404,3418,3422,3429, & - 3444,3465,3466,3537,3540,3577,3585,3616,3654,3656,3660,3767, & - 3842,3880,3881,3897,3910,3912,3916,3919,3922,3956,3964,3970, & - 3977,4030,4084,4095,4118,4121,4127,4132,4134,4138,4140,4154, & - 4169,4211,4223,4238,4274,4332,4336,4344,4351,4357,4367,4368, & - 4370,4374,4386,4387,4404,4405,4417,4428,4473,4474,4475,4476, & - 4489,4566,4573,4577,4584,4590,4595,4604,4606,4607,4608,4609, & - 4612,4616,4640,4646,4647,4685,4695,4702,4705,4714,4723,4724, & - 4731,4750,4766,4767,4777,4782,4784,4802,4827,4837,4840,4845, & - 4852,4857,4865,4870,4871,4876,4877,4880,4884,4890,4895,4901, & - 4911,4915,4920,4922,4923,4924,4933,4943,4977,4991,4994,5007, & - 5008,5037,5042,5045,5051,5061,5062,5063,5064,5065,5078,5087, & - 5088,5089,5098,5103,5107,5108,5109,5112,5116,5117,5119,5121, & - 5123,5126,5138,5141,5142,5144,5147,5157,5161,5162,5164,5178, & - 5183,5185,5186,5190,5191,5192,5193,5200,5202,5203,5208,5227 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_100 = (/ & - 5229,5230,5238,5250,5251,5252,5253,5254,5255,5256,5258,1102, & - 1777,1909,1910,2272,2431,2706,2771,2801,3496,3607,3653,4111, & - 4259,4372,4373,4765,4814,4819,4907,5081,5093,5153,5166,5181, & - 5194,5238,5250,5251,5252,5253,5254,5255,5256,5258,237,868, & - 1733,1809,2374,2542,2665,3386,3430,3642,3682,4342,4730,4734, & - 4844,4870,4973,5027,5063,5064,5077,5082,5088,5090,5124,5142, & - 5147,5148,5150,5153,5161,5162,5163,5178,5181,5183,5184,5185, & - 5186,5187,5191,5192,5194,5195,5206,5207,5208,5229,5230,5237, & - 5238,5246,5248,5249,5250,5251,5252,5253,5254,5255,5256,5257, & - 5258,612,1424,2340,4824,4849,5175,5176,5196,5250,5251,5252, & - 5253,5254,5255,5256,5258,214,1201,2393,3346,3708,3832,4104, & - 4580,4597,4644,4758,4871,4884,4938,4947,4948,4950,4968,4971, & - 5007,5008,5019,5030,5045,5061,5062,5063,5076,5088,5098,5105, & - 5109,5116,5117,5119,5147,5159,5161,5171,5175,5178,5185,5186, & - 5187,5196,5197,5198,5213,5217,5236,5238,5250,5251,5252,5253, & - 5254,5255,5256,5258,604,1462,2002,2140,4492,4912,5029,5198, & - 5213,5250,5251,5252,5253,5254,5255,5256,5258,2039,2388,2484, & - 2622,2652,2833,2970,2998,3595,3708,3729,3965,4025,4026,4325, & - 4327,4329,4352,4445,4490,4535,4617,4706,4724,4731,4758,4772, & - 4835,4897,4913,4945,4971,5037,5051,5080,5123,5132,5134,5154, & - 5159,5162,5166,5171,5173,5174,5175,5177,5185,5186,5187,5189, & - 5196,5197,5198,5199,5204,5213,5217,5218,5219,5220,5224,5225, & - 5227,5236,5238,5250,5251,5252,5253,5254,5255,5256,5258,1673, & - 2476,3155,3389,3689,4765,5042,5081,5147,5166,5181,5200,5227, & - 5238,5250,5252,5253,5255,5256,5258,668,1573,1580,3084,3085, & - 3093,3096,3097,3098,3101,3105,3111,3113,3125,3129,3130,3131, & - 3134,3135,3136,3138,3139,3140,3144,3145,3149,3150,3153,3157, & - 3158,3161,3164,3165,3169,3170,3172,3179,3180,3182,3192,3193, & - 3219,3244,3248,3263,3329,3347,3362,3363,3370,3371,3375,3381, & - 3388,3402,3417,3437,3454,3470,3471,3472,3482,3483,3484,3488 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_101 = (/ & - 3494,3499,3506,3508,3510,3512,3513,3526,3543,3545,3546,3551, & - 3560,3574,3596,3633,3640,3643,3645,3649,3654,3655,3657,3660, & - 3662,3684,3701,3748,3773,3775,3792,3830,3831,3833,3834,3849, & - 3851,3856,3857,3861,3862,3875,3877,3879,3892,3896,3900,3911, & - 3913,3914,3915,3923,3924,3935,3938,3946,3947,3960,3972,3986, & - 3991,3995,3996,4010,4017,4018,4027,4032,4048,4056,4069,4080, & - 4083,4093,4094,4107,4108,4110,4113,4114,4117,4120,4151,4155, & - 4156,4160,4174,4186,4224,4227,4231,4233,4239,4261,4272,4278, & - 4279,4313,4338,4346,4348,4350,4359,4362,4373,4396,4397,4407, & - 4408,4415,4424,4425,4434,4437,4438,4449,4453,4455,4457,4458, & - 4462,4463,4464,4467,4478,4479,4490,4493,4494,4495,4498,4501, & - 4502,4504,4506,4511,4530,4537,4540,4547,4559,4569,4576,4589, & - 4591,4592,4595,4600,4609,4610,4616,4630,4632,4637,4643,4650, & - 4651,4655,4663,4671,4676,4682,4690,4696,4698,4707,4710,4717, & - 4721,4729,4730,4732,4733,4734,4737,4774,4775,4777,4778,4779, & - 4785,4788,4789,4790,4791,4793,4797,4798,4799,4803,4806,4808, & - 4809,4810,4815,4820,4821,4828,4834,4835,4840,4842,4845,4851, & - 4854,4859,4872,4873,4878,4879,4880,4881,4882,4886,4895,4896, & - 4898,4902,4911,4914,4918,4922,4923,4925,4927,4928,4931,4932, & - 4933,4937,4939,4951,4960,4961,4964,4965,4969,4971,4972,4975, & - 4976,4978,4980,4984,4987,4996,4997,4998,5002,5009,5010,5012, & - 5018,5019,5021,5023,5024,5026,5029,5030,5032,5042,5043,5044, & - 5045,5049,5050,5055,5056,5057,5058,5063,5064,5065,5066,5067, & - 5068,5069,5071,5072,5076,5077,5078,5081,5082,5083,5085,5086, & - 5087,5088,5089,5090,5091,5093,5095,5096,5097,5105,5111,5112, & - 5113,5114,5115,5116,5118,5119,5120,5121,5123,5126,5127,5135, & - 5136,5138,5139,5140,5141,5143,5144,5146,5147,5148,5149,5150, & - 5151,5153,5157,5159,5161,5162,5163,5164,5165,5166,5169,5175, & - 5176,5177,5178,5180,5181,5182,5184,5185,5186,5187,5189,5190, & - 5191,5192,5193,5194,5196,5198,5199,5200,5201,5202,5203,5204 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_102 = (/ & - 5205,5206,5207,5208,5209,5210,5211,5213,5215,5217,5218,5219, & - 5220,5222,5224,5225,5226,5227,5229,5230,5231,5233,5234,5236, & - 5238,5239,5240,5242,5245,5246,5247,5248,5249,5250,5251,5252, & - 5253,5254,5255,5256,5257,5258,330,1015,1655,1704,1705,3083, & - 3277,4391,4555,4583,4802,4827,4885,4934,4975,5055,5119,5120, & - 5145,5146,5150,5151,5163,5164,5186,5190,5192,5200,5202,5203, & - 5227,5230,5238,5250,5251,5252,5253,5254,5255,5256,5258,666, & - 1261,1587,1701,1715,2036,2237,2301,2339,2743,2747,2872,3051, & - 3061,3210,3252,3268,3314,3575,3779,3887,4093,4160,4215,4380, & - 4433,4508,4562,4571,4594,4688,4700,4744,4755,4868,4881,4961, & - 4974,5043,5068,5146,5203,5238,5250,5251,5252,5253,5254,5255, & - 5256,5258,715,5166,5204,5224,5250,5252,5255,5256,5258,2130, & - 3413,4107,5118,5166,5204,5205,5217,5218,5224,5250,5252,5255, & - 5256,5258,1251,1746,4988,5099,5206,5250,5252,5253,5255,5256, & - 5257,5258,325,770,1178,1611,1771,1834,2469,2685,4754,4988, & - 4989,5041,5207,5250,5252,5253,5255,5256,5257,5258,611,1332, & - 1817,2318,2487,3118,3505,3542,4527,4582,4766,4838,4879,4944, & - 5107,5109,5135,5165,5208,5238,5250,5251,5252,5253,5254,5255, & - 5256,5258,3754,3802,3824,3826,4004,4529,4832,4976,5002,5030, & - 5069,5166,5204,5205,5209,5217,5218,5220,5224,5250,5252,5255, & - 5256,5258,1185,1289,1558,1602,1681,1726,1734,2602,2660,3044, & - 3094,3261,3392,3400,3455,3477,3520,3567,3584,3589,3605,3614, & - 3693,4101,4180,4347,4353,4695,4699,4706,4718,4803,4805,4821, & - 4835,4840,4861,4867,4894,4922,4958,4971,4976,5003,5019,5020, & - 5033,5037,5075,5076,5123,5132,5154,5159,5166,5173,5174,5205, & - 5209,5210,5213,5217,5218,5219,5220,5224,5227,5250,5251,5252, & - 5253,5254,5255,5256,5258,687,2674,3006,3029,3425,3613,3957, & - 4248,4363,4371,4394,4442,4451,4785,4825,4839,4882,4978,5073, & - 5131,5148,5163,5175,5176,5181,5192,5196,5206,5211,5212,5238, & - 5245,5247,5248,5249,5250,5251,5252,5253,5254,5255,5256,5257 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_103 = (/ & - 5258,401,1205,2061,2593,4847,5169,5212,5236,5250,5251,5252, & - 5253,5254,5255,5256,5258,670,783,784,1844,2058,2103,2181, & - 3744,3921,3936,3943,4492,4912,4925,5213,5250,5251,5252,5253, & - 5254,5255,5256,5258,582,741,1319,1732,1757,1843,1888,1913, & - 1929,2154,2439,2667,2804,3309,3355,3373,3410,3420,3447,3580, & - 3591,3874,4157,4158,4162,4172,4176,4268,4360,4362,4409,4410, & - 4447,4462,4748,4762,4764,4806,4898,4900,4960,4996,5014,5021, & - 5028,5072,5081,5086,5105,5111,5113,5122,5159,5161,5175,5181, & - 5182,5185,5186,5187,5198,5207,5213,5214,5215,5236,5238,5240, & - 5248,5249,5250,5251,5252,5253,5254,5255,5256,5257,5258,1770, & - 2146,2516,2898,2902,2959,3017,3030,3141,3806,4097,4146,4151, & - 4185,4186,4266,4301,4302,4600,5215,5250,5251,5252,5253,5254, & - 5255,5256,5258, 67,3809,4199,4570,4875,4877,4983,5002,5005, & - 5025,5034,5036,5058,5076,5081,5100,5103,5111,5113,5126,5141, & - 5154,5159,5167,5168,5173,5174,5181,5199,5204,5205,5209,5210, & - 5213,5215,5216,5217,5218,5219,5220,5224,5225,5226,5227,5233, & - 5236,5238,5250,5251,5252,5253,5254,5255,5256,5258,702,5166, & - 5217,5219,5250,5252,5255,5256,5258,606,4107,5166,5217,5218, & - 5219,5250,5252,5255,5256,5258,606,702,2252,5166,5217,5218, & - 5219,5250,5252,5255,5256,5258,1661,2308,3413,4113,5118,5166, & - 5168,5204,5217,5218,5219,5220,5224,5250,5252,5255,5256,5258, & - 10,1006,1222,2003,2183,2570,2928,4519,4615,4753,4936,5022, & - 5040,5074,5075,5118,5154,5166,5167,5173,5174,5204,5205,5217, & - 5218,5219,5220,5221,5224,5226,5250,5251,5252,5253,5254,5255, & - 5256,5258, 19,529,563,605,711,734,750,796,1346,1651, & - 1682,1795,1807,1810,1833,1866,1891,1955,2029,2105,2131,2175, & - 2249,2358,2382,2491,2521,2592,2595,2603,2662,2752,2762,2776, & - 2789,2793,2814,2828,2830,2847,2876,2887,2904,2967,2999,3021, & - 3056,3068,3071,3082,3094,3196,3201,3214,3234,3240,3246,3250, & - 3259,3264,3278,3281,3300,3304,3320,3332,3354,3366,3433,3435 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_104 = (/ & - 3438,3443,3445,3450,3455,3462,3464,3476,3485,3486,3500,3501, & - 3528,3549,3550,3555,3565,3566,3567,3569,3578,3582,3584,3589, & - 3599,3605,3614,3618,3623,3624,3641,3648,3672,3693,3702,3707, & - 3754,3765,3791,3796,3802,3808,3818,3824,3826,3828,3829,3832, & - 3853,3897,3904,3909,3918,3930,3931,3965,3975,4003,4004,4012, & - 4014,4028,4055,4071,4074,4106,4125,4133,4156,4167,4177,4208, & - 4321,4322,4325,4344,4345,4378,4383,4401,4406,4448,4491,4529, & - 4533,4534,4557,4558,4561,4568,4570,4617,4640,4669,4674,4684, & - 4694,4699,4703,4706,4711,4718,4719,4723,4729,4749,4751,4758, & - 4773,4780,4782,4783,4787,4799,4802,4803,4821,4826,4835,4861, & - 4887,4893,4894,4899,4905,4909,4913,4915,4922,4923,4933,4935, & - 4937,4947,4948,4950,4958,4967,4971,4976,4982,4985,4986,4992, & - 5001,5002,5005,5010,5011,5013,5015,5020,5022,5025,5030,5032, & - 5035,5036,5037,5040,5047,5069,5089,5094,5100,5102,5103,5110, & - 5113,5118,5119,5120,5123,5132,5133,5134,5141,5146,5151,5154, & - 5155,5156,5157,5158,5159,5163,5166,5167,5168,5173,5174,5181, & - 5186,5188,5189,5190,5192,5200,5202,5203,5204,5205,5209,5210, & - 5212,5213,5217,5218,5219,5220,5221,5222,5224,5225,5226,5227, & - 5229,5230,5236,5238,5241,5242,5245,5250,5251,5252,5253,5254, & - 5255,5256,5258,684,685,686,2038,3479,4096,4512,4528,4555, & - 4601,4615,4747,4786,4794,4907,4970,4988,5024,5048,5051,5083, & - 5091,5092,5093,5095,5099,5124,5132,5153,5162,5166,5169,5181, & - 5187,5189,5190,5194,5200,5207,5217,5218,5219,5223,5224,5226, & - 5227,5230,5236,5238,5250,5251,5252,5253,5254,5255,5256,5257, & - 5258,294,607,715,916,2544,4955,5118,5166,5189,5204,5224, & - 5236,5250,5252,5253,5255,5256,5258,907,1494,1970,1991,2329, & - 2907,2957,3045,3700,3998,4066,4228,4247,4711,4739,4786,5016, & - 5022,5074,5177,5189,5196,5217,5218,5219,5220,5224,5225,5227, & - 5236,5250,5251,5252,5253,5254,5255,5256,5258,1445,1846,1847, & - 2402,2576,2623,2791,3194,3228,3390,3430,4087,4255,4269,4342 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_105 = (/ & - 4781,4786,4794,4891,4906,5027,5132,5166,5187,5212,5224,5226, & - 5236,5250,5251,5252,5253,5254,5255,5256,5258,3241,4286,4615, & - 5166,5219,5227,5250,5251,5252,5253,5254,5255,5256,5258, 86, & - 115,766,818,1066,1553,1593,1878,1956,2044,2076,2286,2359, & - 2393,2465,2470,2574,2605,2664,2672,2687,2753,2782,2810,2914, & - 3155,3206,3258,3292,3316,3331,3343,3405,3412,3435,3439,3440, & - 3558,3604,3637,3652,3765,3790,3797,3819,4014,4024,4028,4068, & - 4071,4127,4133,4184,4328,4333,4379,4474,4475,4491,4529,4533, & - 4604,4606,4610,4614,4616,4686,4687,4694,4726,4807,4833,4840, & - 4888,4892,4906,4937,4943,4948,4968,4981,4985,4986,4988,4993, & - 5045,5047,5076,5082,5089,5122,5123,5128,5160,5166,5186,5187, & - 5190,5192,5193,5198,5200,5202,5203,5204,5206,5207,5208,5209, & - 5212,5213,5215,5217,5218,5219,5220,5224,5226,5227,5228,5229, & - 5230,5236,5238,5239,5240,5243,5244,5245,5247,5248,5249,5250, & - 5251,5252,5253,5254,5255,5256,5257,5258,691,1500,1599,2042, & - 2292,2933,3202,3561,3651,3843,3978,4029,4356,4508,4598,4604, & - 4606,4619,4917,4956,4972,4990,5056,5066,5096,5125,5144,5186, & - 5190,5192,5229,5230,5238,5250,5251,5252,5253,5254,5255,5256, & - 5258,1363,1697,1699,1877,1921,2104,2148,2176,2318,2396,2534, & - 2549,2583,2611,2642,2721,2738,2849,2878,2912,2926,3269,3289, & - 3376,3522,3572,3757,3842,3878,3910,4094,4099,4174,4281,4390, & - 4470,4593,4598,4604,4606,4607,4608,4620,4689,4702,4713,4744, & - 4884,4944,4956,4972,5009,5066,5096,5107,5109,5112,5144,5165, & - 5190,5208,5230,5238,5250,5251,5252,5253,5254,5255,5256,5258, & - 6, 7, 8,530,534,536,540,543,556,571,580,582, & - 585,587,592,617,619,621,630,650,654,655,661,662, & - 665,667,672,688,689,690,692,693,694,697,708,717, & - 729,739,773,774,777,781,782,793,795,801,810,817, & - 820,856,1013,1068,1238,1240,1433,1556,1574,1593,1607,1615, & - 1618,1634,1642,1652,1658,1666,1687,1716,1718,1735,1741,1742 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_106 = (/ & - 1758,1762,1764,1766,1784,1825,1835,1840,1854,1863,1866,1867, & - 1871,1877,1882,1888,1905,1912,1916,1918,1920,1927,1944,1947, & - 1958,1959,1993,2000,2005,2007,2008,2012,2016,2018,2022,2028, & - 2044,2047,2090,2095,2107,2115,2139,2150,2163,2190,2203,2217, & - 2229,2230,2242,2254,2280,2323,2325,2326,2347,2348,2360,2373, & - 2378,2380,2412,2430,2440,2476,2478,2479,2481,2495,2497,2500, & - 2502,2508,2512,2516,2540,2549,2550,2561,2571,2578,2589,2591, & - 2596,2607,2617,2623,2627,2628,2639,2657,2664,2667,2687,2690, & - 2694,2706,2707,2720,2723,2727,2739,2744,2746,2747,2748,2750, & - 2758,2760,2769,2770,2771,2774,2783,2788,2810,2817,2819,2821, & - 2827,2832,2834,2836,2840,2851,2861,2865,2869,2874,2900,2902, & - 2913,2916,2931,2944,2953,2954,2959,2961,2962,2972,2982,2983, & - 2989,2996,2997,3002,3030,3037,3039,3047,3048,3049,3054,3072, & - 3074,3077,3079,3099,3141,3155,3173,3194,3205,3207,3208,3218, & - 3221,3234,3239,3241,3249,3256,3260,3268,3275,3276,3277,3284, & - 3287,3289,3290,3291,3294,3299,3300,3306,3308,3310,3311,3312, & - 3335,3338,3349,3351,3358,3394,3399,3410,3432,3439,3447,3462, & - 3464,3490,3517,3524,3529,3559,3564,3572,3575,3577,3585,3586, & - 3591,3592,3598,3620,3621,3646,3652,3700,3707,3708,3734,3755, & - 3763,3806,3810,3814,3839,3840,3846,3848,3850,3865,3866,3871, & - 3874,3876,3878,3883,3886,3887,3895,3898,3907,3909,3925,3926, & - 3928,3934,3941,3942,3949,3950,3954,3959,3974,3976,3979,3980, & - 3984,3985,3987,3988,3990,3994,4031,4068,4069,4070,4096,4097, & - 4105,4111,4112,4117,4126,4129,4130,4131,4135,4143,4144,4146, & - 4147,4149,4157,4161,4171,4183,4185,4188,4191,4211,4235,4249, & - 4254,4263,4268,4270,4284,4318,4330,4337,4345,4348,4351,4359, & - 4364,4366,4368,4370,4372,4383,4385,4395,4418,4420,4443,4447, & - 4450,4459,4465,4508,4512,4520,4527,4530,4541,4543,4549,4550, & - 4552,4554,4555,4561,4562,4563,4567,4574,4578,4579,4581,4582, & - 4586,4587,4588,4593,4595,4596,4597,4598,4599,4600,4601,4605 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_107 = (/ & - 4609,4614,4615,4616,4617,4624,4627,4631,4645,4648,4653,4659, & - 4668,4669,4673,4677,4686,4687,4697,4698,4700,4704,4717,4723, & - 4724,4730,4732,4735,4742,4745,4746,4749,4756,4758,4761,4765, & - 4770,4771,4774,4777,4778,4780,4783,4786,4794,4804,4806,4808, & - 4809,4812,4816,4817,4819,4830,4832,4836,4837,4840,4857,4860, & - 4862,4875,4879,4881,4883,4885,4888,4895,4898,4900,4903,4906, & - 4907,4909,4926,4927,4929,4932,4937,4945,4946,4950,4952,4954, & - 4955,4957,4958,4959,4960,4967,4969,4970,4972,4976,4980,4981, & - 4984,4985,4987,4988,4993,4996,4999,5002,5010,5013,5015,5018, & - 5019,5020,5021,5022,5024,5030,5031,5032,5036,5041,5043,5045, & - 5048,5049,5050,5051,5053,5056,5058,5060,5061,5064,5066,5067, & - 5068,5069,5072,5077,5078,5079,5081,5082,5083,5086,5088,5089, & - 5090,5091,5092,5093,5095,5096,5097,5099,5104,5107,5109,5111, & - 5113,5116,5119,5120,5121,5122,5123,5124,5126,5127,5128,5129, & - 5130,5132,5133,5135,5136,5137,5138,5140,5141,5143,5144,5146, & - 5147,5148,5149,5150,5151,5152,5153,5154,5155,5157,5159,5161, & - 5162,5163,5165,5166,5167,5168,5169,5172,5173,5174,5175,5176, & - 5178,5180,5181,5185,5186,5187,5188,5189,5190,5192,5194,5195, & - 5197,5198,5200,5202,5203,5204,5205,5206,5207,5208,5209,5212, & - 5213,5215,5217,5218,5219,5220,5221,5223,5224,5226,5227,5228, & - 5229,5230,5231,5232,5233,5234,5235,5236,5237,5238,5239,5240, & - 5241,5242,5243,5244,5245,5246,5247,5248,5249,5250,5251,5252, & - 5253,5254,5255,5256,5257,5258,494,645,656,701,1433,1582, & - 1655,1670,1678,1684,1934,2043,2230,2258,2289,2412,2607,2695, & - 2711,2724,3047,3231,3250,3276,3350,3501,3542,3550,3561,3608, & - 3621,3628,3635,3682,3716,3734,3759,3780,3835,3864,4104,4109, & - 4136,4321,4341,4362,4366,4465,4510,4520,4562,4565,4578,4580, & - 4582,4589,4597,4598,4599,4644,4697,4698,4704,4730,4734,4735, & - 4776,4778,4814,4816,4856,4879,4881,4885,4889,4898,4955,4972, & - 5015,5019,5023,5024,5032,5043,5049,5061,5064,5074,5080,5091 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_108 = (/ & - 5093,5096,5113,5114,5120,5127,5130,5132,5134,5135,5140,5144, & - 5146,5148,5151,5153,5154,5159,5163,5166,5168,5174,5177,5181, & - 5186,5189,5190,5192,5194,5196,5197,5198,5204,5206,5213,5217, & - 5218,5219,5220,5224,5225,5227,5232,5234,5236,5238,5240,5246, & - 5247,5248,5249,5250,5251,5252,5253,5254,5255,5256,5257,5258, & - 29,198,808,819,1011,1013,1246,1558,1579,1603,1625,1626, & - 1848,1892,1960,1967,2081,2085,2112,2376,2382,2410,2468,2472, & - 2474,2491,2492,2493,2506,2511,2514,2545,2592,2609,2627,2659, & - 2734,2752,2795,2798,2799,2804,2806,2816,2924,2927,2936,2949, & - 2994,3027,3050,3064,3080,3089,3121,3122,3154,3174,3195,3211, & - 3217,3230,3253,3261,3273,3285,3286,3290,3319,3321,3342,3372, & - 3387,3401,3416,3443,3446,3449,3453,3459,3477,3515,3524,3533, & - 3563,3566,3573,3576,3606,3625,3627,3654,3660,3663,3666,3684, & - 3693,3701,3712,3754,3794,3795,3799,3801,3802,3804,3805,3811, & - 3812,3813,3815,3820,3823,3824,3827,3831,3835,3903,3913,3933, & - 3939,3965,4004,4024,4045,4066,4123,4141,4142,4152,4156,4159, & - 4165,4180,4256,4326,4339,4347,4350,4357,4358,4378,4388,4393, & - 4397,4398,4399,4420,4488,4529,4575,4603,4617,4619,4695,4707, & - 4708,4720,4728,4732,4743,4758,4775,4789,4795,4805,4815,4823, & - 4826,4835,4840,4861,4877,4894,4900,4913,4916,4922,4923,4928, & - 4932,4937,4945,4950,4971,4976,4993,5002,5003,5013,5015,5022, & - 5030,5033,5035,5036,5038,5049,5050,5058,5059,5063,5066,5068, & - 5069,5074,5075,5076,5091,5103,5123,5126,5132,5153,5154,5166, & - 5168,5170,5173,5174,5181,5194,5204,5205,5209,5214,5215,5217, & - 5218,5219,5220,5224,5225,5226,5227,5233,5234,5235,5236,5238, & - 5239,5240,5248,5249,5250,5251,5252,5253,5254,5255,5256,5257, & - 5258,249,533,595,603,656,1113,1242,1626,1639,1651,1673, & - 1683,1748,1777,1787,1809,1815,1851,1917,1955,2096,2249,2258, & - 2279,2345,2486,2494,2526,2542,2554,2556,2662,2695,2707,2717, & - 2796,2816,2825,2865,2921,3062,3201,3240,3243,3254,3267,3294 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_109 = (/ & - 3485,3490,3501,3514,3549,3601,3608,3620,3625,3700,3835,3899, & - 4115,4159,4171,4263,4321,4341,4378,4382,4414,4564,4565,4572, & - 4578,4589,4596,4599,4648,4711,4765,4825,4844,4851,4862,4883, & - 4890,4932,4954,4957,4976,4999,5015,5016,5020,5022,5033,5049, & - 5074,5075,5077,5081,5082,5088,5090,5091,5093,5124,5153,5154, & - 5159,5166,5168,5174,5177,5181,5189,5194,5195,5196,5204,5206, & - 5207,5208,5213,5217,5218,5219,5220,5224,5225,5227,5229,5230, & - 5234,5235,5236,5237,5238,5246,5247,5248,5249,5250,5251,5252, & - 5253,5254,5255,5256,5257,5258,110,759,1319,2399,3247,3383, & - 3533,3540,3586,4337,4420,4651,4705,4717,4758,4794,4828,4951, & - 4976,5039,5058,5092,5099,5113,5166,5181,5182,5186,5193,5198, & - 5200,5202,5203,5207,5208,5213,5214,5215,5217,5219,5227,5229, & - 5230,5235,5236,5238,5239,5240,5248,5249,5250,5251,5252,5253, & - 5254,5255,5256,5257,5258,709,719,985,4605,4843,4847,5169, & - 5236,5250,5251,5252,5253,5254,5255,5256,5258,547,567,600, & - 648,665,749,802,856,868,1579,1599,1601,1646,1678,1793, & - 1875,1920,1926,2424,2749,2809,2825,2932,3049,3374,3473,3557, & - 3957,4136,4142,4169,4239,4343,4356,4365,4392,4572,4673,4730, & - 4734,4779,4825,4900,5027,5054,5104,5130,5161,5175,5184,5185, & - 5186,5187,5192,5206,5207,5208,5215,5229,5230,5237,5238,5240, & - 5246,5247,5248,5249,5250,5251,5252,5253,5254,5255,5256,5257, & - 5258,221,235,253,270,288,342,426,447,548,566,588, & - 601,1635,1641,1688,1708,1709,1817,2385,2487,2914,2973,3297, & - 3651,4332,4333,4475,4508,4527,4604,4606,4840,5051,5162,5190, & - 5200,5227,5238,5250,5251,5252,5253,5254,5255,5256,5258,918, & - 1573,2938,3424,3613,3736,3737,4196,4442,4672,4863,5122,5131, & - 5207,5239,5248,5249,5250,5251,5252,5253,5254,5255,5256,5257, & - 5258,452,658,692,1195,1668,1950,2119,2250,2325,2704,2746, & - 2832,3886,3928,4258,5028,5052,5114,5207,5240,5248,5249,5250, & - 5251,5252,5253,5254,5255,5256,5257,5258, 12, 37,114,239 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_110 = (/ & - 327,833,1633,2425,2981,3069,3126,3442,3535,4109,4330,4383, & - 4422,4440,4474,4512,4617,4749,4778,4801,4802,4856,4885,4903, & - 4907,4934,4950,4963,4972,4975,4979,5002,5010,5032,5096,5110, & - 5119,5120,5127,5128,5144,5146,5148,5151,5157,5158,5160,5163, & - 5166,5186,5187,5190,5192,5198,5203,5204,5206,5207,5212,5213, & - 5215,5224,5226,5230,5236,5238,5239,5240,5241,5242,5243,5245, & - 5247,5248,5249,5250,5251,5252,5253,5254,5255,5256,5257,5258, & - 564,682,695,1566,1690,1895,2070,2077,2300,2428,2528,2539, & - 2644,2697,2821,2834,2886,2996,3048,3067,3078,3383,3391,3540, & - 3586,3865,3980,4337,4357,4446,4486,4584,4646,4705,4784,4794, & - 4820,4890,4903,4907,4963,4973,5055,5063,5064,5073,5088,5090, & - 5108,5109,5120,5127,5146,5147,5148,5150,5163,5166,5175,5176, & - 5179,5192,5196,5206,5208,5211,5212,5230,5236,5238,5242,5245, & - 5246,5247,5248,5249,5250,5251,5252,5253,5254,5255,5256,5257, & - 5258,579,820,2115,2211,2438,2792,3126,3623,3755,4364,4549, & - 4554,4555,4596,4780,4903,4960,4984,5000,5032,5056,5060,5072, & - 5077,5079,5082,5101,5129,5130,5146,5148,5203,5215,5226,5236, & - 5238,5239,5240,5243,5245,5247,5248,5249,5250,5251,5252,5253, & - 5254,5255,5256,5257,5258,533,542,544,553,581,592,605, & - 623,638,641,658,666,679,682,687,693,710,714,720, & - 728,731,740,755,756,763,770,778,1066,1242,1269,1548, & - 1557,1558,1560,1561,1566,1578,1585,1586,1587,1592,1595,1600, & - 1609,1610,1611,1630,1631,1632,1637,1640,1665,1668,1671,1676, & - 1677,1681,1689,1691,1694,1699,1710,1714,1719,1722,1723,1726, & - 1731,1790,1807,1825,1826,1833,1834,1836,1854,1873,1887,1908, & - 1925,1932,1950,1953,1988,2017,2024,2039,2055,2064,2071,2082, & - 2084,2107,2118,2119,2231,2265,2273,2295,2305,2326,2344,2349, & - 2356,2357,2362,2386,2393,2397,2404,2414,2426,2428,2430,2437, & - 2438,2443,2445,2467,2469,2475,2476,2477,2478,2479,2482,2483, & - 2484,2554,2602,2603,2625,2657,2679,2683,2686,2715,2739,2766 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_111 = (/ & - 2769,2819,2820,2863,2878,2881,2905,2910,2920,2923,2970,3005, & - 3006,3031,3035,3057,3067,3094,3104,3109,3124,3128,3133,3168, & - 3209,3214,3222,3227,3251,3259,3274,3278,3281,3298,3314,3315, & - 3328,3339,3340,3359,3360,3364,3366,3369,3376,3378,3379,3382, & - 3384,3391,3409,3419,3434,3436,3441,3444,3448,3450,3452,3455, & - 3464,3468,3469,3475,3476,3480,3484,3487,3495,3498,3505,3513, & - 3514,3528,3530,3535,3536,3537,3546,3556,3565,3566,3578,3583, & - 3593,3594,3595,3602,3611,3615,3618,3622,3623,3624,3647,3652, & - 3664,3681,3702,3707,3708,3709,3723,3729,3734,3735,3742,3747, & - 3756,3757,3765,3767,3783,3821,3822,3829,3832,3842,3868,3889, & - 3897,3906,3909,3918,3922,3930,3931,3933,3948,3965,3968,3970, & - 3978,3996,4010,4025,4027,4030,4056,4083,4084,4106,4116,4134, & - 4140,4145,4148,4149,4150,4153,4154,4156,4170,4178,4188,4223, & - 4236,4241,4242,4248,4253,4272,4294,4300,4309,4321,4322,4323, & - 4324,4325,4326,4327,4329,4330,4334,4336,4340,4344,4345,4347, & - 4352,4371,4374,4379,4383,4384,4386,4387,4390,4391,4392,4401, & - 4416,4422,4440,4446,4448,4449,4472,4473,4474,4480,4481,4483, & - 4486,4488,4489,4490,4491,4493,4524,4534,4535,4550,4558,4560, & - 4564,4566,4567,4568,4569,4570,4573,4577,4581,4586,4590,4594, & - 4605,4607,4608,4612,4613,4614,4616,4617,4618,4625,4630,4644, & - 4647,4669,4674,4693,4694,4699,4702,4703,4706,4711,4714,4718, & - 4719,4722,4723,4724,4726,4731,4742,4749,4750,4754,4758,4767, & - 4769,4770,4772,4773,4779,4780,4782,4784,4785,4787,4788,4799, & - 4800,4801,4802,4805,4808,4810,4811,4817,4821,4826,4827,4835, & - 4841,4852,4857,4858,4865,4876,4880,4884,4886,4887,4888,4890, & - 4892,4893,4895,4897,4899,4901,4906,4907,4909,4911,4913,4914, & - 4920,4922,4923,4925,4927,4929,4933,4934,4935,4937,4938,4945, & - 4946,4947,4948,4950,4952,4955,4967,4968,4971,4973,4974,4975, & - 4976,4977,4979,4982,4985,4986,4987,4988,4990,4991,4992,4993, & - 4994,5002,5003,5007,5008,5010,5011,5015,5016,5018,5020,5025 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_112 = (/ & - 5028,5029,5030,5031,5032,5033,5035,5036,5037,5040,5045,5051, & - 5054,5061,5062,5063,5064,5069,5073,5075,5076,5078,5080,5083, & - 5084,5088,5089,5090,5095,5097,5098,5100,5102,5103,5105,5108, & - 5109,5110,5116,5117,5119,5120,5123,5128,5132,5133,5134,5141, & - 5146,5147,5148,5150,5151,5154,5155,5157,5159,5160,5161,5162, & - 5163,5166,5167,5168,5169,5172,5173,5174,5175,5176,5177,5178, & - 5185,5186,5187,5188,5189,5190,5192,5193,5196,5197,5198,5199, & - 5200,5202,5203,5204,5205,5206,5207,5208,5209,5210,5212,5213, & - 5215,5217,5218,5219,5220,5221,5222,5224,5225,5226,5227,5229, & - 5230,5236,5238,5239,5240,5241,5242,5243,5244,5245,5246,5247, & - 5248,5249,5250,5251,5252,5253,5254,5255,5256,5257,5258,1199, & - 1620,1660,2136,2813,3613,4442,4734,5131,5206,5245,5248,5249, & - 5250,5251,5252,5253,5254,5255,5256,5257,5258,301,1471,2070, & - 3367,3390,3530,3629,3906,4300,4781,4784,4891,5108,5109,5178, & - 5179,5196,5206,5211,5212,5236,5238,5245,5246,5247,5248,5249, & - 5250,5251,5252,5253,5254,5255,5256,5257,5258,189,871,1523, & - 1828,2165,2737,3242,3564,4183,4542,4745,4746,4921,4940,4988, & - 5048,5092,5099,5206,5247,5248,5249,5250,5251,5252,5253,5254, & - 5255,5256,5257,5258,621,663,667,673,730,1334,1862,1918, & - 2098,2266,3039,3074,3844,3883,3920,3966,3988,4264,4691,5248, & - 5249,5250,5251,5252,5253,5254,5255,5256,5257,5258,661,2242, & - 2961,3898,4678,4988,5249,5250,5251,5252,5253,5254,5255,5256, & - 5258, 4, 12, 13, 15, 17, 18, 19, 20, 21, 22, 24, & - 26, 27, 28, 29, 30, 31, 32, 33, 34, 37, 38, 39, & - 40, 41, 46, 47, 48, 52, 53, 54, 55, 56, 58, 59, & - 60, 61, 62, 63, 64, 67, 68, 70, 71, 72, 73, 74, & - 75, 77, 79, 81, 83, 84, 87, 89, 90, 93, 94, 95, & - 98, 99,100,101,102,103,104,105,106,108,109,110, & - 111,112,114,118,119,121,122,123,124,126,127,128, & - 129,131,133,134,135,136,139,143,144,147,148,181 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_113 = (/ & - 198,207,208,209,210,212,213,214,215,216,217,218, & - 219,220,221,222,223,224,225,226,227,228,229,230, & - 231,232,233,234,235,236,237,238,239,240,241,242, & - 243,244,245,246,247,248,249,250,251,252,253,255, & - 256,257,258,259,260,262,263,264,265,266,267,268, & - 269,270,272,273,274,275,276,277,278,279,280,281, & - 282,283,284,285,286,287,288,289,291,292,293,294, & - 295,296,298,299,301,302,303,304,305,306,307,308, & - 309,310,311,312,313,314,316,317,318,319,320,321, & - 322,323,324,325,327,328,329,330,331,332,333,334, & - 335,336,337,338,339,340,341,342,343,344,345,346, & - 347,348,349,350,351,352,353,354,355,356,357,358, & - 359,360,361,362,363,364,365,366,367,368,369,371, & - 372,373,374,375,376,377,378,379,380,381,382,383, & - 384,385,386,387,388,389,390,391,392,393,394,395, & - 396,397,398,399,400,401,402,403,404,405,406,408, & - 409,410,411,412,413,414,415,416,417,418,419,420, & - 422,423,424,425,426,427,428,429,430,431,432,433, & - 434,435,436,437,438,439,440,441,442,444,446,447, & - 448,449,451,452,453,454,455,456,457,458,459,460, & - 461,462,463,464,465,466,467,468,469,470,471,472, & - 473,474,475,476,477,478,479,480,481,482,483,484, & - 485,486,487,488,489,490,491,492,493,494,495,496, & - 497,498,499,500,501,502,503,504,505,506,507,508, & - 509,510,511,512,513,514,515,516,517,518,519,520, & - 521,522,523,524,525,526,527,529,530,531,536,538, & - 540,542,543,546,547,548,554,556,558,559,560,561, & - 562,563,565,566,567,568,569,572,576,577,578,579, & - 580,583,586,587,588,590,591,593,594,598,599,601, & - 602,604,608,609,611,612,613,614,616,621,622,626 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_114 = (/ & - 628,631,633,634,636,640,642,647,650,651,652,653, & - 657,659,661,662,664,667,668,671,675,676,678,680, & - 681,683,684,685,686,690,691,692,694,696,699,700, & - 705,709,713,718,719,723,725,732,735,736,738,742, & - 751,752,754,757,758,759,762,763,764,766,767,769, & - 771,772,779,785,788,789,790,793,794,796,799,803, & - 804,805,806,807,811,812,813,818,819,821,822,823, & - 824,825,826,827,828,829,830,831,832,833,834,835, & - 836,837,838,839,840,841,842,843,844,845,846,847, & - 848,849,850,851,852,853,854,855,856,857,858,859, & - 860,861,862,863,864,865,866,867,868,869,870,871, & - 872,873,874,875,876,877,878,879,880,881,882,883, & - 884,885,886,887,888,889,890,891,892,893,894,895, & - 896,897,898,899,900,901,902,903,904,905,906,907, & - 908,909,910,911,912,913,914,915,916,917,918,919, & - 920,921,922,923,924,925,926,927,928,929,930,931, & - 932,933,934,935,936,937,938,939,940,941,942,943, & - 944,945,946,947,948,949,950,951,952,953,954,955, & - 956,957,958,959,960,961,962,963,964,965,966,967, & - 968,969,970,971,972,973,974,975,976,977,978,979, & - 980,981,982,983,984,985,986,987,988,989,990,991, & - 992,993,994,995,996,997,998,999,1000,1001,1002,1003, & - 1004,1005,1006,1007,1008,1009,1010,1012,1014,1015,1016,1017, & - 1018,1019,1020,1021,1022,1023,1024,1025,1026,1027,1028,1029, & - 1030,1031,1032,1033,1034,1035,1036,1037,1038,1039,1040,1041, & - 1042,1043,1044,1045,1046,1047,1048,1049,1050,1051,1052,1053, & - 1054,1055,1056,1057,1058,1059,1060,1061,1062,1063,1064,1065, & - 1066,1067,1068,1069,1070,1071,1072,1073,1074,1075,1076,1077, & - 1078,1079,1080,1081,1082,1083,1084,1085,1086,1087,1088,1089, & - 1090,1091,1092,1093,1094,1095,1096,1097,1098,1099,1100,1101 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_115 = (/ & - 1102,1103,1104,1105,1106,1107,1108,1109,1110,1111,1112,1113, & - 1114,1115,1116,1117,1118,1119,1120,1121,1122,1123,1124,1125, & - 1126,1127,1128,1129,1130,1131,1132,1133,1134,1135,1136,1137, & - 1138,1139,1140,1141,1142,1143,1144,1145,1146,1147,1148,1149, & - 1150,1151,1152,1153,1154,1155,1156,1157,1158,1159,1160,1161, & - 1162,1163,1164,1165,1166,1167,1168,1169,1170,1171,1172,1173, & - 1174,1175,1176,1177,1178,1179,1180,1181,1182,1183,1184,1185, & - 1186,1187,1188,1189,1190,1191,1192,1193,1194,1195,1196,1197, & - 1198,1199,1200,1201,1202,1203,1204,1205,1206,1207,1208,1209, & - 1210,1211,1212,1213,1214,1215,1216,1217,1218,1219,1220,1221, & - 1222,1223,1224,1225,1226,1227,1228,1229,1230,1231,1232,1233, & - 1234,1235,1236,1237,1238,1239,1241,1242,1243,1244,1245,1246, & - 1247,1248,1249,1250,1251,1252,1253,1254,1255,1256,1257,1258, & - 1259,1260,1261,1262,1263,1264,1265,1266,1267,1268,1269,1270, & - 1271,1272,1273,1274,1275,1276,1277,1278,1279,1280,1281,1282, & - 1283,1284,1285,1286,1287,1288,1289,1290,1291,1292,1293,1294, & - 1295,1296,1297,1298,1299,1300,1301,1302,1303,1304,1305,1306, & - 1307,1308,1309,1310,1311,1312,1313,1314,1315,1316,1317,1318, & - 1319,1320,1321,1322,1323,1324,1325,1326,1327,1328,1329,1330, & - 1331,1332,1333,1334,1335,1336,1337,1338,1339,1340,1341,1342, & - 1343,1344,1345,1346,1347,1348,1349,1350,1351,1352,1353,1354, & - 1355,1356,1357,1358,1359,1360,1361,1362,1363,1364,1365,1366, & - 1367,1368,1369,1370,1371,1372,1373,1374,1375,1376,1377,1378, & - 1379,1380,1381,1382,1383,1384,1385,1386,1387,1388,1389,1390, & - 1391,1392,1393,1394,1395,1396,1397,1398,1399,1400,1401,1402, & - 1403,1404,1405,1406,1407,1408,1409,1410,1411,1412,1413,1414, & - 1415,1416,1417,1418,1419,1420,1421,1422,1423,1424,1425,1426, & - 1427,1428,1429,1430,1431,1432,1433,1434,1435,1436,1437,1438, & - 1439,1440,1441,1442,1443,1444,1445,1446,1447,1448,1449,1450, & - 1451,1452,1453,1454,1455,1456,1457,1458,1459,1460,1461,1462 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_116 = (/ & - 1463,1464,1465,1466,1467,1468,1469,1470,1471,1472,1473,1474, & - 1475,1476,1477,1478,1479,1480,1481,1482,1483,1484,1485,1486, & - 1487,1488,1489,1490,1491,1492,1493,1494,1495,1496,1497,1498, & - 1499,1500,1501,1502,1503,1504,1505,1506,1507,1508,1509,1510, & - 1511,1512,1513,1514,1515,1516,1517,1518,1519,1520,1521,1522, & - 1523,1524,1525,1526,1527,1528,1529,1530,1531,1532,1533,1534, & - 1535,1536,1537,1538,1539,1540,1541,1542,1543,1544,1545,1546, & - 1547,1548,1549,1550,1551,1554,1555,1557,1558,1560,1561,1562, & - 1565,1566,1567,1569,1570,1571,1573,1575,1576,1577,1578,1580, & - 1581,1582,1584,1585,1586,1587,1588,1589,1590,1591,1594,1596, & - 1598,1599,1600,1601,1602,1603,1604,1609,1610,1611,1612,1613, & - 1615,1618,1619,1621,1623,1625,1626,1628,1629,1630,1632,1633, & - 1635,1636,1637,1639,1641,1642,1643,1644,1646,1647,1648,1649, & - 1651,1653,1655,1656,1657,1658,1659,1660,1664,1665,1666,1668, & - 1669,1670,1671,1672,1673,1674,1676,1678,1681,1682,1683,1685, & - 1686,1687,1688,1690,1693,1694,1696,1697,1698,1700,1701,1703, & - 1704,1705,1706,1707,1708,1709,1711,1712,1716,1717,1718,1719, & - 1722,1726,1728,1729,1730,1731,1733,1734,1735,1736,1738,1740, & - 1742,1744,1746,1747,1749,1751,1752,1753,1756,1757,1758,1759, & - 1761,1762,1763,1764,1765,1766,1767,1768,1770,1771,1772,1774, & - 1775,1776,1777,1778,1779,1780,1782,1783,1784,1785,1786,1788, & - 1790,1791,1793,1794,1795,1797,1798,1800,1801,1802,1804,1805, & - 1806,1807,1809,1811,1813,1816,1817,1819,1823,1824,1826,1827, & - 1828,1829,1830,1831,1832,1834,1835,1836,1837,1839,1840,1841, & - 1842,1843,1844,1845,1846,1849,1850,1851,1853,1854,1855,1856, & - 1857,1858,1859,1861,1862,1863,1864,1868,1869,1870,1871,1873, & - 1874,1875,1876,1878,1879,1880,1881,1883,1884,1885,1886,1887, & - 1888,1889,1890,1893,1894,1895,1896,1897,1898,1899,1900,1901, & - 1902,1904,1905,1907,1908,1909,1911,1912,1913,1914,1915,1916, & - 1917,1918,1919,1920,1921,1922,1925,1926,1928,1929,1930,1932 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_117 = (/ & - 1933,1934,1935,1936,1937,1938,1940,1941,1943,1946,1947,1948, & - 1949,1950,1952,1953,1954,1956,1957,1958,1959,1963,1964,1965, & - 1966,1967,1968,1969,1970,1972,1973,1974,1976,1977,1978,1979, & - 1980,1981,1982,1983,1985,1987,1988,1990,1991,1992,1993,1994, & - 1995,1996,1997,1999,2001,2002,2006,2007,2009,2010,2011,2013, & - 2014,2016,2017,2018,2019,2020,2021,2022,2023,2025,2026,2027, & - 2028,2032,2034,2036,2037,2038,2039,2040,2042,2043,2044,2045, & - 2046,2047,2048,2049,2051,2052,2053,2054,2055,2057,2058,2059, & - 2061,2062,2063,2064,2065,2067,2068,2069,2070,2071,2072,2074, & - 2075,2077,2078,2079,2080,2081,2082,2083,2084,2086,2087,2089, & - 2091,2092,2093,2094,2095,2096,2097,2098,2099,2101,2102,2103, & - 2104,2105,2106,2107,2108,2109,2110,2111,2113,2114,2115,2116, & - 2118,2119,2120,2121,2123,2124,2125,2126,2127,2128,2129,2131, & - 2132,2133,2134,2135,2136,2137,2138,2139,2140,2141,2142,2143, & - 2144,2146,2147,2148,2149,2150,2151,2152,2153,2154,2155,2156, & - 2157,2159,2160,2161,2164,2165,2166,2167,2168,2169,2171,2172, & - 2174,2175,2176,2177,2178,2179,2180,2181,2182,2183,2184,2185, & - 2187,2188,2189,2191,2192,2193,2194,2195,2196,2197,2198,2199, & - 2202,2204,2205,2206,2208,2209,2211,2212,2213,2214,2215,2216, & - 2217,2218,2219,2220,2221,2222,2223,2224,2225,2227,2228,2230, & - 2231,2232,2233,2235,2236,2237,2239,2240,2241,2242,2243,2244, & - 2245,2246,2247,2248,2249,2250,2251,2252,2253,2254,2255,2256, & - 2257,2258,2259,2260,2261,2262,2263,2264,2265,2266,2267,2268, & - 2269,2270,2271,2272,2273,2274,2275,2276,2277,2278,2280,2281, & - 2282,2283,2285,2286,2288,2289,2290,2291,2292,2294,2295,2296, & - 2297,2298,2299,2300,2301,2302,2303,2305,2306,2307,2309,2310, & - 2311,2312,2313,2314,2315,2316,2317,2318,2319,2320,2321,2325, & - 2327,2328,2329,2330,2331,2332,2333,2335,2336,2337,2338,2339, & - 2340,2341,2342,2343,2344,2345,2346,2347,2348,2349,2350,2351, & - 2352,2353,2354,2355,2357,2358,2359,2360,2362,2363,2364,2365 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_118 = (/ & - 2366,2367,2368,2369,2370,2371,2372,2373,2375,2377,2378,2379, & - 2380,2381,2382,2383,2384,2385,2386,2387,2388,2389,2390,2391, & - 2392,2393,2394,2395,2396,2397,2398,2400,2401,2402,2403,2404, & - 2405,2406,2407,2408,2409,2410,2411,2412,2413,2414,2416,2417, & - 2418,2419,2420,2421,2422,2423,2424,2425,2426,2427,2428,2429, & - 2431,2432,2433,2434,2435,2436,2437,2438,2439,2440,2441,2442, & - 2443,2444,2445,2446,2447,2448,2449,2450,2451,2453,2454,2455, & - 2456,2458,2459,2460,2461,2462,2463,2464,2466,2467,2468,2469, & - 2470,2471,2472,2474,2475,2476,2477,2478,2479,2480,2481,2482, & - 2483,2484,2485,2486,2487,2488,2489,2491,2494,2496,2497,2498, & - 2499,2500,2501,2503,2504,2505,2507,2509,2510,2511,2513,2514, & - 2515,2517,2518,2519,2520,2522,2523,2524,2525,2527,2529,2530, & - 2531,2532,2533,2534,2537,2538,2540,2541,2542,2543,2544,2546, & - 2547,2548,2552,2553,2554,2555,2556,2558,2559,2560,2564,2565, & - 2567,2568,2569,2570,2571,2572,2573,2574,2576,2579,2580,2582, & - 2583,2584,2585,2587,2590,2593,2597,2600,2601,2602,2603,2605, & - 2606,2608,2609,2610,2611,2612,2613,2615,2616,2617,2618,2619, & - 2620,2621,2622,2624,2625,2626,2627,2628,2629,2630,2631,2632, & - 2633,2635,2636,2637,2640,2643,2645,2648,2649,2650,2651,2652, & - 2653,2654,2655,2656,2657,2658,2660,2661,2663,2664,2665,2666, & - 2669,2670,2671,2672,2673,2674,2675,2677,2678,2680,2681,2683, & - 2684,2685,2686,2687,2688,2689,2690,2691,2693,2695,2696,2698, & - 2700,2701,2702,2703,2704,2705,2708,2709,2711,2712,2713,2714, & - 2715,2716,2718,2719,2721,2723,2725,2726,2727,2729,2730,2735, & - 2737,2738,2740,2742,2743,2748,2753,2754,2755,2756,2757,2759, & - 2761,2763,2764,2765,2766,2769,2772,2773,2774,2775,2777,2778, & - 2779,2780,2781,2782,2783,2784,2785,2786,2787,2790,2791,2792, & - 2793,2794,2796,2797,2799,2800,2801,2802,2803,2804,2805,2808, & - 2809,2810,2811,2812,2813,2814,2815,2817,2822,2823,2824,2825, & - 2828,2829,2830,2833,2834,2835,2836,2838,2839,2841,2842,2843 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_119 = (/ & - 2844,2845,2846,2848,2850,2852,2854,2855,2856,2857,2859,2860, & - 2862,2863,2864,2866,2867,2868,2870,2871,2872,2873,2875,2876, & - 2877,2878,2879,2880,2882,2883,2884,2885,2886,2887,2888,2892, & - 2893,2895,2896,2898,2899,2900,2901,2904,2907,2908,2909,2910, & - 2911,2913,2914,2915,2917,2920,2921,2923,2924,2925,2927,2928, & - 2929,2930,2932,2934,2936,2938,2940,2941,2942,2943,2945,2947, & - 2948,2950,2951,2955,2956,2957,2958,2964,2965,2966,2969,2970, & - 2971,2973,2975,2976,2977,2978,2979,2980,2981,2984,2985,2987, & - 2988,2991,2993,2998,2999,3003,3005,3006,3007,3008,3010,3011, & - 3012,3014,3015,3017,3018,3019,3020,3021,3022,3023,3024,3025, & - 3026,3029,3031,3033,3034,3035,3038,3040,3042,3043,3044,3045, & - 3046,3047,3049,3051,3052,3053,3055,3056,3057,3059,3060,3061, & - 3063,3068,3070,3075,3076,3077,3078,3081,3082,3083,3084,3085, & - 3086,3087,3088,3089,3090,3091,3092,3093,3095,3096,3097,3098, & - 3099,3100,3101,3102,3103,3105,3106,3107,3108,3109,3110,3111, & - 3112,3113,3114,3115,3116,3117,3118,3119,3120,3121,3122,3123, & - 3124,3125,3126,3127,3128,3129,3130,3131,3132,3133,3134,3135, & - 3136,3137,3138,3139,3140,3141,3142,3143,3144,3145,3146,3147, & - 3148,3149,3150,3151,3152,3153,3154,3155,3156,3157,3158,3159, & - 3160,3161,3162,3163,3164,3165,3166,3167,3168,3169,3170,3171, & - 3172,3173,3174,3175,3176,3177,3178,3179,3180,3181,3182,3183, & - 3184,3185,3186,3187,3188,3189,3190,3191,3192,3193,3196,3197, & - 3198,3199,3200,3201,3202,3203,3204,3205,3206,3207,3208,3209, & - 3210,3211,3212,3213,3214,3216,3217,3218,3219,3220,3221,3222, & - 3223,3224,3225,3226,3227,3228,3229,3230,3231,3232,3233,3235, & - 3236,3237,3238,3239,3240,3242,3243,3244,3245,3247,3248,3249, & - 3250,3251,3253,3254,3256,3257,3258,3259,3260,3261,3262,3263, & - 3264,3265,3266,3267,3270,3271,3272,3273,3274,3275,3276,3277, & - 3278,3279,3280,3282,3285,3286,3287,3288,3289,3290,3291,3292, & - 3293,3294,3295,3297,3298,3299,3300,3302,3303,3304,3305,3306 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_120 = (/ & - 3307,3308,3309,3310,3311,3312,3313,3314,3315,3316,3317,3318, & - 3319,3320,3321,3322,3323,3324,3325,3326,3327,3328,3330,3331, & - 3334,3335,3336,3337,3338,3339,3340,3341,3343,3344,3345,3348, & - 3349,3350,3352,3353,3354,3355,3356,3357,3358,3359,3360,3361, & - 3364,3365,3366,3368,3369,3372,3373,3374,3376,3378,3379,3380, & - 3382,3384,3385,3387,3389,3391,3392,3394,3395,3396,3397,3398, & - 3399,3401,3405,3407,3408,3409,3410,3411,3412,3413,3414,3416, & - 3418,3420,3421,3423,3424,3426,3427,3428,3431,3432,3433,3434, & - 3435,3436,3437,3438,3439,3440,3441,3442,3443,3444,3445,3446, & - 3447,3448,3449,3450,3451,3452,3453,3454,3455,3456,3457,3458, & - 3459,3460,3461,3462,3463,3464,3465,3466,3467,3468,3469,3470, & - 3471,3472,3473,3474,3475,3476,3477,3478,3479,3480,3481,3482, & - 3483,3484,3485,3486,3487,3488,3489,3491,3492,3493,3494,3495, & - 3496,3497,3498,3499,3500,3501,3502,3503,3504,3505,3506,3507, & - 3508,3509,3510,3511,3512,3513,3514,3515,3516,3517,3518,3519, & - 3520,3521,3522,3523,3524,3525,3526,3527,3528,3529,3530,3531, & - 3532,3533,3534,3535,3536,3537,3538,3539,3540,3541,3542,3543, & - 3544,3545,3546,3547,3548,3549,3550,3551,3552,3553,3554,3555, & - 3556,3557,3558,3559,3560,3561,3562,3563,3564,3571,3574,3579, & - 3580,3582,3583,3587,3590,3591,3593,3594,3595,3596,3597,3599, & - 3601,3602,3603,3604,3607,3608,3609,3612,3613,3616,3617,3618, & - 3619,3620,3621,3622,3623,3624,3625,3626,3627,3628,3629,3630, & - 3631,3632,3633,3634,3635,3636,3637,3638,3639,3640,3641,3642, & - 3643,3644,3645,3646,3647,3648,3649,3650,3651,3653,3654,3655, & - 3656,3657,3658,3659,3660,3661,3662,3663,3664,3665,3666,3667, & - 3668,3669,3670,3671,3672,3673,3674,3675,3676,3677,3678,3679, & - 3680,3681,3682,3683,3684,3685,3686,3687,3688,3689,3690,3691, & - 3692,3693,3694,3695,3696,3697,3698,3699,3701,3702,3703,3704, & - 3705,3706,3707,3708,3709,3710,3711,3712,3713,3714,3715,3716, & - 3717,3718,3719,3720,3721,3722,3723,3724,3725,3726,3727,3728 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_121 = (/ & - 3729,3730,3731,3732,3733,3734,3735,3736,3737,3738,3739,3740, & - 3741,3742,3743,3744,3745,3746,3747,3748,3749,3750,3751,3752, & - 3753,3755,3756,3757,3758,3759,3760,3761,3762,3763,3764,3765, & - 3766,3767,3768,3769,3770,3771,3772,3773,3774,3775,3776,3777, & - 3778,3780,3781,3782,3783,3784,3785,3786,3787,3788,3789,3790, & - 3791,3792,3794,3796,3797,3798,3799,3800,3801,3803,3804,3806, & - 3807,3808,3809,3810,3811,3813,3814,3815,3816,3817,3819,3820, & - 3821,3822,3823,3825,3827,3828,3829,3830,3831,3832,3833,3834, & - 3835,3836,3837,3838,3839,3840,3841,3842,3843,3844,3845,3846, & - 3847,3848,3849,3850,3851,3852,3853,3854,3855,3856,3857,3858, & - 3859,3860,3861,3862,3863,3864,3865,3866,3867,3868,3869,3870, & - 3871,3872,3873,3874,3875,3876,3877,3878,3879,3880,3881,3882, & - 3883,3884,3885,3886,3887,3888,3889,3890,3891,3892,3893,3894, & - 3895,3896,3897,3898,3899,3900,3901,3902,3903,3904,3905,3906, & - 3907,3908,3909,3910,3911,3912,3913,3914,3915,3916,3917,3918, & - 3919,3920,3921,3922,3923,3924,3925,3926,3927,3928,3929,3931, & - 3932,3933,3934,3935,3936,3937,3938,3939,3940,3941,3942,3943, & - 3944,3945,3946,3947,3948,3949,3950,3951,3952,3953,3954,3955, & - 3956,3957,3958,3959,3960,3961,3962,3963,3964,3965,3966,3967, & - 3968,3969,3970,3971,3972,3973,3974,3975,3976,3977,3978,3979, & - 3980,3981,3982,3983,3984,3985,3986,3987,3988,3989,3990,3991, & - 3992,3993,3994,3995,3996,3997,3998,3999,4000,4001,4002,4003, & - 4005,4006,4007,4008,4009,4010,4011,4012,4013,4014,4015,4016, & - 4017,4018,4019,4020,4021,4022,4023,4024,4025,4026,4027,4028, & - 4029,4030,4031,4032,4033,4034,4035,4036,4037,4038,4039,4040, & - 4041,4042,4043,4044,4045,4046,4047,4048,4049,4050,4051,4052, & - 4053,4054,4055,4056,4057,4058,4059,4060,4061,4062,4063,4064, & - 4065,4066,4067,4068,4069,4070,4071,4072,4073,4074,4075,4076, & - 4077,4078,4079,4080,4081,4082,4083,4084,4085,4086,4087,4088, & - 4089,4090,4091,4092,4093,4094,4095,4096,4097,4098,4099,4100 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_122 = (/ & - 4101,4102,4103,4104,4105,4106,4107,4108,4109,4110,4111,4112, & - 4113,4114,4115,4116,4117,4118,4119,4120,4121,4122,4123,4124, & - 4125,4126,4127,4128,4129,4130,4131,4132,4133,4134,4135,4136, & - 4137,4138,4139,4140,4141,4142,4143,4144,4145,4146,4147,4148, & - 4149,4150,4151,4152,4153,4154,4155,4156,4157,4158,4159,4160, & - 4161,4162,4163,4164,4165,4166,4167,4168,4169,4170,4171,4172, & - 4173,4174,4175,4176,4178,4179,4180,4181,4182,4183,4184,4185, & - 4186,4187,4188,4189,4190,4191,4192,4193,4194,4195,4196,4197, & - 4198,4199,4200,4201,4202,4203,4204,4205,4206,4207,4208,4209, & - 4210,4211,4212,4214,4215,4216,4217,4218,4219,4220,4221,4222, & - 4223,4224,4225,4226,4227,4228,4229,4230,4231,4232,4233,4234, & - 4235,4236,4237,4238,4239,4240,4241,4242,4243,4244,4245,4246, & - 4248,4249,4251,4252,4253,4254,4255,4256,4257,4259,4260,4261, & - 4262,4263,4265,4266,4267,4268,4269,4270,4271,4272,4273,4274, & - 4275,4276,4277,4278,4279,4280,4281,4283,4284,4285,4287,4288, & - 4289,4290,4291,4292,4293,4294,4295,4296,4297,4298,4299,4300, & - 4301,4303,4304,4305,4306,4307,4308,4309,4310,4311,4312,4313, & - 4314,4315,4316,4317,4318,4319,4321,4322,4323,4324,4325,4326, & - 4327,4328,4329,4330,4331,4332,4333,4334,4335,4336,4337,4338, & - 4339,4340,4341,4342,4343,4344,4345,4346,4347,4348,4349,4350, & - 4351,4352,4353,4354,4355,4356,4357,4358,4359,4360,4361,4362, & - 4363,4364,4365,4366,4367,4368,4369,4370,4371,4372,4373,4374, & - 4375,4376,4377,4378,4379,4380,4381,4382,4383,4384,4385,4386, & - 4387,4388,4389,4390,4391,4392,4393,4394,4395,4396,4397,4398, & - 4399,4400,4401,4402,4403,4404,4405,4406,4407,4408,4409,4410, & - 4411,4412,4413,4414,4415,4416,4417,4418,4419,4420,4421,4422, & - 4423,4424,4425,4426,4427,4428,4429,4430,4431,4432,4433,4434, & - 4435,4436,4437,4438,4439,4440,4441,4442,4443,4444,4445,4446, & - 4447,4448,4449,4450,4451,4452,4453,4454,4455,4456,4457,4458, & - 4459,4460,4461,4462,4463,4464,4465,4466,4467,4468,4469,4470 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_123 = (/ & - 4471,4472,4473,4474,4475,4476,4477,4478,4479,4480,4481,4482, & - 4483,4484,4485,4486,4487,4488,4489,4490,4491,4492,4493,4494, & - 4495,4496,4497,4498,4499,4500,4501,4502,4503,4504,4505,4506, & - 4507,4508,4509,4510,4511,4512,4513,4514,4515,4516,4517,4518, & - 4519,4520,4521,4522,4523,4524,4525,4526,4527,4528,4529,4530, & - 4531,4532,4533,4534,4535,4536,4537,4538,4539,4540,4541,4542, & - 4543,4545,4546,4547,4548,4549,4550,4552,4553,4554,4555,4557, & - 4558,4559,4560,4561,4562,4563,4564,4565,4566,4567,4568,4569, & - 4570,4571,4572,4573,4574,4575,4576,4577,4578,4579,4580,4581, & - 4582,4583,4584,4585,4586,4587,4588,4589,4590,4591,4592,4593, & - 4594,4595,4596,4597,4598,4599,4600,4601,4602,4603,4604,4605, & - 4606,4607,4608,4609,4610,4611,4612,4613,4614,4615,4616,4617, & - 4618,4619,4620,4621,4622,4623,4624,4625,4626,4627,4628,4629, & - 4630,4631,4632,4633,4634,4635,4636,4637,4638,4639,4640,4641, & - 4642,4643,4644,4645,4646,4647,4648,4649,4650,4651,4652,4653, & - 4654,4655,4656,4657,4658,4659,4660,4661,4662,4663,4664,4665, & - 4666,4667,4668,4669,4670,4671,4672,4673,4674,4675,4676,4677, & - 4678,4679,4680,4681,4682,4683,4684,4685,4686,4687,4688,4689, & - 4690,4691,4692,4693,4694,4695,4696,4697,4698,4699,4700,4701, & - 4702,4703,4704,4705,4706,4707,4708,4709,4710,4711,4712,4713, & - 4714,4715,4716,4717,4718,4719,4720,4721,4722,4723,4724,4725, & - 4726,4727,4728,4729,4730,4731,4732,4733,4734,4735,4736,4737, & - 4738,4739,4740,4742,4743,4744,4745,4746,4747,4748,4749,4750, & - 4751,4752,4753,4754,4755,4756,4757,4758,4759,4760,4761,4762, & - 4763,4764,4765,4766,4767,4768,4769,4770,4771,4772,4773,4774, & - 4775,4776,4777,4778,4779,4780,4781,4782,4783,4784,4785,4786, & - 4787,4788,4789,4790,4791,4792,4793,4794,4795,4796,4797,4798, & - 4799,4800,4801,4802,4803,4804,4805,4806,4807,4808,4809,4810, & - 4811,4812,4813,4814,4815,4816,4817,4818,4819,4820,4821,4822, & - 4823,4824,4825,4826,4827,4828,4829,4830,4831,4832,4833,4834 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_124 = (/ & - 4835,4836,4837,4838,4839,4840,4841,4842,4843,4844,4845,4846, & - 4847,4848,4849,4850,4851,4852,4853,4854,4855,4856,4857,4858, & - 4859,4860,4861,4862,4863,4864,4865,4866,4867,4868,4869,4870, & - 4871,4872,4873,4874,4875,4876,4877,4878,4879,4880,4881,4882, & - 4883,4884,4885,4886,4887,4888,4889,4890,4891,4892,4893,4894, & - 4895,4896,4897,4898,4899,4900,4901,4902,4903,4904,4905,4906, & - 4907,4908,4909,4910,4911,4912,4913,4914,4915,4916,4917,4918, & - 4919,4920,4921,4922,4923,4924,4925,4926,4927,4928,4929,4930, & - 4931,4932,4933,4934,4935,4936,4937,4938,4939,4940,4941,4942, & - 4943,4944,4945,4946,4947,4948,4949,4950,4951,4952,4953,4954, & - 4955,4956,4957,4958,4959,4960,4961,4962,4963,4964,4965,4966, & - 4967,4968,4969,4970,4971,4972,4973,4974,4975,4976,4977,4978, & - 4979,4980,4981,4982,4983,4984,4985,4986,4987,4988,4989,4990, & - 4991,4992,4993,4994,4995,4996,4997,4998,4999,5000,5001,5002, & - 5003,5004,5005,5006,5007,5008,5009,5010,5011,5012,5013,5014, & - 5015,5016,5017,5018,5019,5020,5021,5022,5023,5024,5025,5026, & - 5027,5028,5029,5030,5031,5032,5033,5034,5035,5036,5037,5038, & - 5039,5040,5041,5042,5043,5044,5045,5046,5047,5048,5049,5050, & - 5051,5052,5053,5054,5055,5056,5057,5058,5059,5060,5061,5062, & - 5063,5064,5065,5066,5067,5068,5069,5070,5071,5072,5073,5074, & - 5075,5076,5077,5078,5079,5080,5081,5082,5083,5084,5085,5086, & - 5087,5088,5089,5090,5091,5092,5093,5094,5095,5096,5097,5098, & - 5099,5100,5101,5102,5103,5104,5105,5106,5107,5108,5109,5110, & - 5111,5112,5113,5114,5115,5116,5117,5118,5119,5120,5121,5122, & - 5123,5124,5125,5126,5127,5128,5129,5130,5131,5132,5133,5134, & - 5135,5136,5137,5138,5139,5140,5141,5142,5143,5144,5145,5146, & - 5147,5148,5149,5150,5151,5152,5153,5154,5155,5156,5157,5158, & - 5159,5160,5161,5162,5163,5164,5165,5166,5167,5168,5169,5170, & - 5171,5172,5173,5174,5175,5176,5177,5178,5179,5180,5181,5182, & - 5183,5184,5185,5186,5187,5188,5189,5190,5191,5192,5193,5194 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_125 = (/ & - 5195,5196,5197,5198,5199,5200,5201,5202,5203,5204,5205,5206, & - 5207,5208,5209,5210,5211,5212,5213,5214,5215,5216,5217,5218, & - 5219,5220,5221,5222,5223,5224,5225,5226,5227,5228,5229,5230, & - 5231,5232,5233,5234,5235,5236,5237,5238,5239,5240,5241,5242, & - 5243,5244,5245,5246,5247,5248,5249,5250,5251,5252,5253,5254, & - 5255,5256,5257,5258, 11,198,451,572,579,591,604,612, & - 626,684,685,686,701,719,759,763,766,771,802,805, & - 1483,1570,1575,1588,1598,1602,1612,1619,1623,1636,1639,1642, & - 1644,1682,1685,1698,1734,1756,1760,1769,1776,1777,1791,1793, & - 1797,1806,1810,1825,1828,1851,1853,1857,1858,1872,1875,1928, & - 1939,1951,1959,1969,1981,1988,1991,2003,2004,2013,2024,2038, & - 2042,2104,2109,2117,2132,2134,2138,2141,2145,2148,2170,2171, & - 2191,2197,2200,2201,2209,2210,2212,2234,2238,2243,2255,2258, & - 2286,2287,2310,2315,2335,2336,2345,2346,2357,2376,2392,2395, & - 2430,2448,2467,2472,2474,2475,2476,2477,2479,2481,2482,2483, & - 2484,2485,2486,2487,2489,2494,2496,2498,2500,2501,2504,2505, & - 2507,2510,2511,2515,2517,2518,2522,2523,2525,2526,2527,2529, & - 2530,2531,2533,2537,2538,2541,2552,2554,2559,2560,2564,2567, & - 2568,2569,2573,2576,2579,2582,2583,2584,2587,2593,2597,2600, & - 2601,2607,2608,2609,2611,2612,2613,2615,2616,2617,2620,2622, & - 2630,2631,2632,2636,2637,2640,2643,2645,2648,2651,2652,2654, & - 2655,2656,2657,2658,2660,2663,2666,2667,2669,2670,2671,2674, & - 2675,2677,2678,2679,2684,2685,2688,2689,2690,2691,2692,2696, & - 2698,2702,2703,2704,2708,2712,2714,2718,2724,2725,2726,2727, & - 2729,2737,2738,2739,2743,2748,2749,2751,2754,2755,2756,2757, & - 2758,2763,2765,2768,2769,2772,2777,2778,2779,2780,2781,2784, & - 2786,2787,2788,2790,2791,2792,2793,2794,2796,2797,2800,2801, & - 2803,2804,2805,2807,2808,2809,2811,2813,2815,2819,2820,2822, & - 2823,2824,2825,2828,2829,2830,2836,2837,2838,2841,2842,2843, & - 2844,2845,2846,2848,2850,2852,2853,2858,2860,2861,2862,2864 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_126 = (/ & - 2867,2872,2873,2875,2876,2877,2879,2880,2881,2882,2883,2884, & - 2885,2886,2887,2890,2894,2895,2896,2898,2899,2900,2904,2905, & - 2907,2911,2915,2919,2921,2924,2925,2927,2928,2929,2930,2936, & - 2941,2945,2947,2951,2955,2956,2958,2960,2966,2968,2969,2971, & - 2975,2977,2978,2980,2984,2987,2988,2989,2991,2992,2993,2998, & - 3003,3007,3008,3010,3011,3012,3014,3017,3020,3021,3022,3023, & - 3024,3025,3026,3033,3040,3041,3042,3043,3044,3047,3051,3052, & - 3053,3056,3058,3060,3062,3063,3067,3070,3073,3075,3099,3107, & - 3108,3115,3132,3133,3147,3154,3155,3160,3171,3176,3177,3186, & - 3196,3197,3199,3200,3201,3202,3204,3206,3207,3210,3214,3215, & - 3216,3217,3218,3220,3221,3223,3224,3225,3226,3227,3228,3229, & - 3230,3232,3236,3238,3239,3240,3248,3249,3250,3251,3252,3254, & - 3255,3257,3258,3259,3260,3262,3267,3269,3273,3274,3275,3276, & - 3280,3281,3282,3286,3287,3290,3291,3292,3293,3294,3297,3300, & - 3301,3302,3303,3306,3307,3309,3311,3312,3313,3315,3316,3317, & - 3318,3323,3324,3325,3327,3329,3330,3336,3337,3339,3340,3344, & - 3345,3348,3350,3352,3353,3355,3356,3357,3358,3359,3360,3365, & - 3370,3375,3378,3379,3387,3389,3397,3400,3406,3408,3411,3419, & - 3426,3427,3431,3436,3441,3446,3448,3449,3450,3451,3452,3454, & - 3458,3459,3462,3463,3467,3468,3469,3470,3471,3475,3479,3480, & - 3483,3484,3487,3488,3495,3501,3502,3510,3515,3520,3524,3526, & - 3529,3533,3540,3543,3546,3547,3550,3552,3557,3559,3566,3571, & - 3574,3582,3587,3590,3593,3595,3596,3601,3603,3604,3607,3611, & - 3612,3615,3618,3620,3622,3624,3626,3628,3630,3633,3635,3639, & - 3640,3643,3644,3645,3647,3649,3652,3653,3655,3657,3661,3662, & - 3666,3672,3673,3681,3683,3684,3689,3693,3701,3702,3707,3708, & - 3709,3712,3726,3729,3732,3736,3737,3742,3748,3755,3759,3763, & - 3773,3775,3780,3783,3787,3792,3800,3801,3809,3810,3814,3816, & - 3829,3831,3832,3833,3834,3835,3837,3851,3856,3857,3861,3862, & - 3875,3877,3879,3892,3896,3900,3911,3913,3914,3915,3923,3924 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_127 = (/ & - 3930,3931,3934,3935,3937,3938,3945,3946,3947,3958,3960,3964, & - 3965,3968,3972,3986,3991,3992,3993,3995,3996,4010,4013,4014, & - 4017,4018,4024,4025,4026,4027,4029,4031,4032,4046,4047,4051, & - 4053,4056,4060,4062,4066,4069,4070,4071,4076,4080,4081,4083, & - 4084,4086,4093,4094,4096,4098,4100,4101,4105,4106,4107,4108, & - 4110,4113,4114,4115,4118,4120,4123,4125,4126,4129,4130,4131, & - 4134,4135,4136,4138,4139,4142,4144,4147,4149,4151,4152,4153, & - 4155,4156,4160,4161,4163,4170,4174,4175,4178,4181,4182,4184, & - 4186,4187,4188,4191,4199,4202,4203,4206,4207,4209,4213,4214, & - 4215,4218,4220,4221,4222,4224,4227,4229,4230,4231,4233,4239, & - 4243,4244,4247,4250,4255,4258,4259,4260,4261,4264,4266,4267, & - 4269,4272,4275,4277,4278,4279,4281,4282,4283,4286,4288,4299, & - 4301,4302,4308,4313,4316,4320,4321,4322,4323,4324,4325,4327, & - 4328,4330,4331,4332,4333,4335,4338,4339,4341,4346,4348,4350, & - 4353,4358,4359,4362,4364,4367,4373,4375,4377,4379,4380,4381, & - 4382,4384,4385,4388,4393,4395,4396,4398,4404,4405,4406,4409, & - 4410,4412,4414,4417,4418,4419,4420,4421,4424,4425,4427,4428, & - 4429,4430,4431,4432,4433,4435,4436,4439,4443,4447,4448,4449, & - 4450,4451,4452,4458,4459,4461,4462,4464,4465,4467,4468,4469, & - 4470,4472,4474,4475,4477,4484,4485,4486,4488,4490,4491,4492, & - 4496,4500,4501,4502,4503,4505,4508,4510,4511,4512,4513,4515, & - 4516,4517,4518,4519,4520,4521,4522,4523,4525,4526,4527,4528, & - 4530,4532,4533,4534,4535,4536,4537,4539,4540,4542,4543,4544, & - 4546,4547,4548,4551,4553,4554,4555,4556,4557,4558,4559,4561, & - 4563,4565,4569,4570,4572,4574,4575,4576,4584,4585,4588,4589, & - 4591,4594,4595,4596,4599,4600,4601,4602,4603,4604,4605,4606, & - 4609,4610,4611,4613,4615,4616,4617,4619,4620,4621,4622,4623, & - 4624,4625,4626,4627,4628,4629,4630,4631,4633,4634,4635,4636, & - 4637,4638,4639,4640,4641,4642,4643,4648,4649,4650,4651,4652, & - 4653,4655,4657,4658,4659,4660,4661,4662,4664,4665,4667,4668 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_128 = (/ & - 4669,4670,4672,4675,4677,4678,4679,4680,4681,4683,4684,4686, & - 4687,4688,4689,4691,4692,4694,4695,4696,4697,4698,4699,4701, & - 4703,4704,4705,4706,4707,4708,4709,4710,4711,4712,4713,4714, & - 4715,4716,4717,4718,4720,4721,4725,4726,4727,4728,4729,4730, & - 4731,4732,4733,4734,4735,4737,4738,4739,4741,4742,4743,4744, & - 4746,4747,4749,4750,4751,4752,4753,4756,4757,4758,4759,4760, & - 4761,4763,4765,4769,4770,4771,4773,4774,4775,4776,4777,4778, & - 4779,4783,4785,4786,4788,4789,4790,4791,4792,4793,4794,4795, & - 4796,4797,4798,4799,4803,4804,4805,4806,4807,4808,4809,4810, & - 4811,4812,4813,4814,4815,4816,4817,4818,4819,4820,4821,4822, & - 4823,4824,4825,4826,4828,4829,4830,4831,4832,4833,4834,4835, & - 4836,4838,4840,4842,4843,4845,4846,4847,4848,4849,4850,4851, & - 4853,4854,4855,4857,4859,4860,4861,4862,4863,4864,4865,4866, & - 4867,4868,4869,4872,4873,4874,4875,4877,4878,4879,4880,4881, & - 4882,4883,4885,4886,4887,4888,4889,4891,4892,4893,4894,4895, & - 4896,4897,4898,4899,4900,4902,4905,4906,4907,4908,4910,4911, & - 4912,4913,4914,4915,4916,4917,4918,4919,4920,4921,4922,4923, & - 4924,4925,4926,4927,4928,4930,4931,4932,4933,4934,4935,4936, & - 4937,4939,4941,4943,4944,4945,4946,4947,4948,4949,4950,4951, & - 4952,4953,4954,4955,4956,4957,4960,4961,4962,4963,4964,4965, & - 4966,4968,4969,4970,4971,4972,4974,4975,4976,4977,4978,4979, & - 4980,4982,4983,4984,4985,4986,4987,4988,4989,4990,4991,4992, & - 4993,4994,4996,4997,4998,4999,5000,5001,5002,5004,5005,5006, & - 5008,5009,5010,5012,5013,5014,5015,5017,5018,5019,5021,5022, & - 5023,5024,5025,5026,5027,5028,5029,5030,5031,5032,5033,5034, & - 5035,5036,5037,5038,5040,5041,5042,5043,5044,5045,5047,5048, & - 5049,5050,5051,5052,5054,5055,5056,5057,5058,5059,5060,5061, & - 5063,5064,5065,5066,5067,5068,5069,5070,5071,5072,5073,5074, & - 5076,5077,5078,5079,5081,5082,5083,5084,5085,5086,5087,5088, & - 5089,5090,5091,5092,5093,5094,5095,5096,5097,5099,5100,5101 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_129 = (/ & - 5102,5103,5104,5105,5106,5107,5108,5110,5111,5112,5113,5114, & - 5115,5116,5117,5118,5119,5120,5121,5122,5123,5124,5125,5126, & - 5127,5128,5129,5130,5131,5132,5133,5134,5135,5136,5137,5138, & - 5139,5140,5141,5143,5144,5146,5147,5148,5149,5150,5151,5152, & - 5153,5154,5155,5156,5157,5158,5159,5161,5162,5163,5164,5165, & - 5166,5167,5168,5169,5170,5171,5172,5173,5174,5175,5176,5177, & - 5178,5179,5180,5181,5182,5183,5184,5185,5186,5187,5189,5190, & - 5191,5192,5193,5194,5196,5197,5198,5199,5200,5202,5203,5204, & - 5205,5206,5207,5208,5209,5210,5211,5212,5213,5214,5215,5216, & - 5217,5218,5219,5220,5221,5222,5223,5224,5225,5226,5227,5229, & - 5230,5231,5232,5233,5234,5235,5236,5237,5238,5239,5240,5241, & - 5242,5243,5244,5245,5246,5247,5248,5249,5250,5251,5252,5253, & - 5254,5255,5256,5257,5258,337,3481,3489,3491,3492,3496,3503, & - 3507,3509,3511,3518,3521,3523,3525,3527,3531,3534,3538,3539, & - 3554,3562,3568,3627,3631,3632,3634,3636,3637,3641,3648,3650, & - 3658,3659,3663,3665,3667,3668,3669,3670,3671,3674,3675,3676, & - 3677,3678,3679,3680,3685,3686,3687,3688,3690,3691,3692,3694, & - 3695,3696,3697,3698,3699,3703,3704,3705,3706,3710,3711,3713, & - 3714,3715,3717,3718,3719,3720,3721,3722,3724,3725,3727,3728, & - 3730,3731,3733,3738,3739,3740,3741,3743,3745,3746,3749,3750, & - 3751,3752,3753,3758,3760,3761,3762,3764,3766,3768,3769,3770, & - 3771,3772,3774,3776,3778,3781,3782,3784,3785,3786,3788,3789, & - 3790,3791,3794,3796,3797,3798,3799,3801,3803,3804,3806,3807, & - 3808,3810,3811,3813,3814,3815,3817,3819,3820,3823,3825,3827, & - 3828,3836,3837,3838,3839,3840,3841,3844,3845,3846,3847,3848, & - 3850,3852,3853,3854,3855,3858,3859,3860,3863,3864,3865,3866, & - 3867,3869,3870,3871,3872,3873,3874,3876,3880,3881,3882,3883, & - 3884,3885,3886,3888,3889,3890,3891,3893,3894,3895,3898,3899, & - 3901,3902,3903,3905,3907,3908,3912,3916,3919,3920,3921,3926, & - 3927,3928,3932,3936,3937,3939,3940,3941,3943,3944,3945,3948 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_130 = (/ & - 3949,3950,3951,3952,3953,3954,3955,3961,3962,3963,3964,3966, & - 3967,3969,3971,3973,3974,3975,3976,3977,3979,3980,3981,3982, & - 3983,3984,3985,3987,3988,3989,3990,3992,3994,3997,3998,3999, & - 4000,4001,4002,4003,4005,4006,4007,4008,4009,4011,4012,4013, & - 4015,4016,4019,4020,4021,4022,4023,4025,4026,4028,4030,4031, & - 4033,4034,4035,4036,4037,4038,4039,4040,4041,4042,4043,4044, & - 4045,4046,4049,4050,4051,4052,4054,4055,4057,4058,4059,4060, & - 4061,4063,4064,4065,4067,4068,4069,4070,4072,4073,4074,4075, & - 4076,4077,4078,4079,4082,4085,4087,4088,4089,4090,4091,4092, & - 4095,4097,4098,4099,4100,4101,4102,4105,4106,4111,4112,4115, & - 4116,4117,4118,4119,4120,4121,4123,4124,4126,4127,4128,4129, & - 4130,4131,4133,4134,4135,4136,4137,4138,4139,4140,4141,4142, & - 4143,4144,4145,4146,4147,4148,4149,4150,4152,4153,4154,4157, & - 4158,4159,4161,4162,4163,4165,4166,4167,4168,4169,4170,4171, & - 4172,4173,4176,4180,4181,4182,4185,4187,4188,4189,4190,4191, & - 4192,4193,4194,4195,4196,4197,4198,4200,4201,4202,4203,4204, & - 4205,4206,4207,4208,4209,4210,4211,4212,4213,4214,4215,4216, & - 4217,4218,4219,4220,4221,4222,4225,4226,4228,4229,4230,4232, & - 4234,4235,4236,4237,4238,4240,4241,4242,4243,4244,4245,4246, & - 4247,4249,4250,4251,4252,4253,4254,4255,4257,4258,4259,4260, & - 4262,4263,4264,4265,4266,4267,4268,4269,4270,4271,4273,4274, & - 4275,4276,4277,4280,4281,4282,4283,4284,4285,4286,4287,4288, & - 4289,4290,4291,4292,4293,4295,4296,4297,4298,4299,4301,4302, & - 4303,4304,4305,4306,4307,4308,4309,4310,4311,4312,4314,4315, & - 4316,4317,4318,4319,4320,4321,4322,4323,4324,4326,4327,4329, & - 4334,4335,4336,4337,4338,4339,4340,4341,4342,4343,4344,4345, & - 4346,4347,4348,4349,4350,4351,4353,4354,4355,4356,4357,4358, & - 4359,4360,4361,4363,4364,4365,4367,4368,4369,4370,4371,4372, & - 4373,4374,4375,4376,4377,4379,4380,4381,4382,4384,4385,4387, & - 4389,4390,4394,4395,4397,4399,4400,4402,4404,4405,4407,4408 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_131 = (/ & - 4409,4410,4411,4412,4413,4414,4415,4416,4417,4418,4419,4421, & - 4422,4423,4424,4425,4426,4427,4428,4429,4430,4431,4432,4433, & - 4434,4435,4436,4437,4438,4439,4440,4441,4442,4443,4444,4445, & - 4446,4447,4448,4450,4451,4452,4453,4454,4455,4456,4457,4458, & - 4459,4460,4461,4463,4464,4465,4466,4467,4468,4469,4470,4471, & - 4472,4473,4474,4476,4477,4478,4479,4480,4481,4482,4483,4484, & - 4485,4486,4487,4488,4489,4492,4494,4495,4496,4497,4498,4499, & - 4500,4502,4503,4504,4505,4506,4509,4510,4511,4512,4513,4514, & - 4515,4516,4517,4518,4519,4520,4521,4522,4523,4525,4526,4529, & - 4531,4532,4533,4535,4536,4538,4539,4541,4542,4543,4544,4545, & - 4546,4548,4549,4550,4551,4552,4553,4554,4555,4556,4557,4558, & - 4560,4561,4562,4563,4565,4566,4567,4568,4571,4572,4573,4574, & - 4575,4576,4577,4578,4579,4580,4581,4582,4583,4584,4585,4586, & - 4587,4589,4590,4591,4592,4593,4594,4595,4596,4597,4598,4599, & - 4600,4601,4603,4605,4607,4608,4609,4610,4611,4612,4613,4614, & - 4616,4617,4619,4620,4621,4622,4623,4624,4625,4626,4627,4628, & - 4629,4631,4632,4633,4634,4635,4636,4637,4638,4639,4640,4641, & - 4642,4643,4644,4645,4646,4647,4648,4649,4650,4652,4653,4654, & - 4655,4656,4657,4658,4659,4660,4661,4662,4663,4664,4665,4666, & - 4667,4668,4669,4670,4671,4672,4673,4674,4675,4676,4677,4678, & - 4679,4680,4681,4682,4683,4684,4685,4686,4687,4688,4689,4690, & - 4691,4692,4695,4696,4697,4698,4699,4700,4701,4702,4703,4704, & - 4705,4706,4707,4709,4711,4712,4713,4714,4715,4716,4717,4718, & - 4719,4720,4722,4723,4724,4725,4726,4727,4729,4730,4731,4732, & - 4733,4734,4735,4736,4738,4739,4740,4741,4742,4743,4744,4745, & - 4746,4748,4750,4751,4752,4753,4754,4755,4756,4757,4758,4759, & - 4760,4761,4762,4763,4764,4765,4766,4767,4768,4769,4770,4771, & - 4772,4773,4774,4775,4776,4777,4778,4779,4780,4781,4782,4783, & - 4784,4785,4786,4787,4788,4789,4790,4791,4792,4793,4794,4795, & - 4797,4798,4799,4800,4802,4803,4804,4805,4806,4807,4808,4809 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_132 = (/ & - 4810,4811,4812,4813,4814,4815,4816,4817,4818,4819,4820,4821, & - 4822,4823,4824,4825,4826,4827,4828,4829,4830,4831,4832,4833, & - 4834,4835,4836,4837,4838,4839,4840,4841,4843,4844,4845,4846, & - 4847,4848,4849,4850,4851,4852,4853,4854,4855,4856,4857,4858, & - 4859,4860,4861,4862,4863,4864,4865,4866,4867,4868,4869,4870, & - 4871,4873,4874,4875,4876,4877,4878,4879,4880,4881,4882,4883, & - 4884,4885,4886,4887,4888,4889,4890,4891,4892,4893,4894,4895, & - 4896,4897,4898,4899,4900,4901,4903,4904,4905,4906,4907,4908, & - 4910,4911,4912,4913,4914,4915,4916,4917,4919,4920,4921,4922, & - 4923,4924,4925,4926,4927,4928,4929,4930,4932,4933,4934,4935, & - 4936,4937,4940,4941,4942,4943,4944,4945,4946,4947,4948,4949, & - 4950,4951,4952,4953,4954,4955,4956,4957,4959,4960,4961,4962, & - 4963,4964,4965,4966,4967,4968,4969,4970,4971,4972,4974,4975, & - 4976,4977,4978,4979,4980,4981,4982,4984,4985,4986,4987,4988, & - 4989,4990,4991,4992,4993,4994,4995,4996,4997,4998,4999,5001, & - 5002,5003,5004,5005,5006,5007,5008,5009,5010,5011,5012,5013, & - 5014,5015,5016,5017,5018,5019,5020,5021,5022,5024,5025,5027, & - 5028,5029,5030,5031,5032,5033,5034,5035,5036,5037,5038,5039, & - 5040,5041,5042,5043,5044,5045,5047,5048,5049,5050,5051,5052, & - 5053,5054,5056,5058,5059,5060,5061,5062,5063,5064,5065,5066, & - 5067,5068,5069,5070,5071,5072,5073,5074,5075,5076,5077,5078, & - 5079,5081,5082,5083,5084,5085,5086,5087,5088,5089,5090,5091, & - 5092,5093,5094,5095,5096,5097,5098,5099,5100,5101,5102,5103, & - 5104,5106,5107,5108,5109,5110,5111,5112,5113,5114,5115,5116, & - 5117,5118,5119,5120,5121,5122,5123,5124,5125,5126,5127,5128, & - 5129,5130,5131,5132,5133,5134,5135,5136,5137,5138,5140,5141, & - 5142,5143,5144,5145,5146,5147,5148,5149,5150,5151,5152,5153, & - 5154,5155,5156,5157,5158,5159,5161,5162,5163,5164,5165,5166, & - 5167,5168,5169,5170,5171,5172,5173,5174,5175,5176,5177,5178, & - 5179,5180,5181,5183,5185,5186,5187,5189,5190,5191,5192,5194 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_133 = (/ & - 5195,5196,5197,5198,5200,5202,5203,5204,5205,5206,5207,5208, & - 5209,5210,5211,5212,5213,5214,5215,5216,5217,5218,5219,5220, & - 5221,5223,5224,5225,5226,5227,5228,5229,5230,5232,5233,5234, & - 5235,5236,5237,5238,5239,5240,5241,5242,5243,5244,5245,5246, & - 5247,5248,5249,5250,5251,5252,5253,5254,5255,5256,5257,5258, & - 23, 85, 86,137,142,244,245,259,331,337,422,448, & - 529,530,535,543,550,555,563,573,583,584,587,597, & - 621,629,635,649,660,662,669,670,673,692,712,713, & - 737,743,744,746,747,753,780,790,797,798,800,809, & - 814,815,816,819,834,840,893,905,924,925,991,1000, & - 1005,1011,1026,1057,1058,1078,1081,1083,1086,1110,1151,1172, & - 1184,1216,1222,1240,1261,1284,1311,1321,1334,1363,1368,1400, & - 1457,1482,1494,1529,1531,1549,1551,1554,1555,1562,1567,1589, & - 1591,1594,1603,1613,1621,1625,1629,1639,1645,1647,1649,1651, & - 1657,1664,1669,1672,1700,1717,1729,1747,1748,1749,1752,1766, & - 1770,1771,1772,1780,1782,1783,1785,1786,1788,1794,1798,1800, & - 1802,1804,1807,1811,1813,1819,1823,1824,1827,1829,1830,1831, & - 1835,1841,1844,1846,1850,1853,1856,1862,1864,1881,1883,1889, & - 1894,1895,1896,1902,1904,1905,1909,1912,1915,1916,1918,1919, & - 1921,1922,1930,1933,1939,1941,1943,1946,1952,1954,1957,1963, & - 1964,1965,1970,1972,1974,1976,1977,1978,1979,1980,1981,1987, & - 1990,1991,1995,1996,1997,1999,2003,2007,2011,2014,2020,2023, & - 2028,2032,2034,2036,2037,2040,2045,2046,2049,2053,2061,2063, & - 2065,2067,2068,2072,2074,2075,2077,2078,2079,2083,2086,2087, & - 2091,2092,2093,2094,2096,2097,2099,2105,2106,2108,2113,2123, & - 2124,2128,2129,2136,2142,2149,2150,2152,2155,2157,2161,2164, & - 2165,2166,2168,2169,2172,2176,2180,2181,2182,2183,2184,2185, & - 2189,2193,2194,2195,2196,2198,2199,2202,2206,2213,2215,2216, & - 2218,2220,2222,2224,2232,2237,2239,2240,2241,2242,2245,2246, & - 2250,2253,2254,2256,2257,2261,2262,2267,2268,2270,2271,2275 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_134 = (/ & - 2276,2277,2278,2280,2282,2285,2288,2290,2291,2294,2296,2297, & - 2299,2302,2303,2306,2309,2311,2313,2314,2317,2321,2325,2327, & - 2328,2330,2332,2333,2337,2338,2341,2342,2343,2344,2345,2347, & - 2350,2351,2352,2354,2365,2367,2368,2370,2372,2375,2378,2382, & - 2383,2387,2389,2403,2405,2406,2408,2417,2418,2419,2427,2429, & - 2432,2433,2434,2436,2441,2444,2447,2453,2454,2458,2459,2460, & - 2461,2462,2468,2478,2481,2486,2489,2491,2493,2495,2496,2498, & - 2499,2500,2502,2504,2505,2506,2509,2510,2511,2513,2514,2515, & - 2517,2518,2519,2520,2522,2523,2524,2525,2527,2529,2530,2531, & - 2532,2533,2534,2535,2536,2537,2538,2542,2546,2547,2548,2552, & - 2555,2557,2560,2563,2564,2565,2566,2567,2569,2571,2573,2576, & - 2577,2578,2579,2580,2582,2583,2584,2585,2587,2588,2593,2595, & - 2597,2598,2600,2605,2606,2608,2610,2611,2612,2613,2615,2619, & - 2620,2621,2622,2624,2626,2629,2630,2631,2632,2635,2636,2637, & - 2640,2643,2648,2649,2650,2651,2653,2655,2656,2657,2658,2660, & - 2661,2663,2664,2666,2668,2669,2670,2671,2672,2673,2674,2675, & - 2677,2678,2681,2682,2683,2684,2685,2687,2688,2689,2691,2696, & - 2698,2700,2701,2702,2703,2704,2705,2708,2709,2712,2713,2718, & - 2721,2725,2726,2728,2729,2732,2733,2734,2735,2736,2738,2740, & - 2742,2743,2750,2755,2756,2757,2759,2761,2762,2764,2765,2768, & - 2772,2776,2777,2778,2779,2780,2781,2782,2783,2784,2786,2787, & - 2789,2790,2791,2792,2793,2794,2796,2798,2799,2800,2801,2802, & - 2804,2806,2808,2811,2812,2813,2814,2815,2817,2818,2821,2822, & - 2823,2825,2829,2830,2831,2832,2833,2834,2835,2839,2841,2842, & - 2843,2844,2845,2846,2847,2848,2850,2851,2852,2854,2855,2857, & - 2858,2859,2860,2863,2864,2866,2867,2869,2870,2872,2876,2877, & - 2879,2880,2882,2883,2884,2885,2886,2887,2888,2892,2896,2898, & - 2901,2903,2904,2907,2908,2913,2915,2916,2917,2918,2919,2921, & - 2924,2925,2928,2929,2934,2935,2937,2941,2942,2943,2945,2947, & - 2948,2950,2951,2952,2955,2956,2957,2958,2959,2962,2964,2966 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_135 = (/ & - 2969,2970,2977,2978,2980,2984,2985,2986,2987,2988,2994,2995, & - 2998,2999,3002,3003,3007,3008,3010,3011,3012,3014,3015,3016, & - 3017,3019,3020,3021,3023,3024,3025,3026,3027,3029,3030,3034, & - 3036,3040,3042,3045,3047,3050,3051,3052,3053,3056,3059,3060, & - 3061,3063,3065,3068,3070,3074,3075,3076,3077,3081,3090,3102, & - 3106,3108,3141,3154,3159,3160,3173,3175,3177,3188,3197,3199, & - 3203,3204,3206,3211,3212,3218,3220,3221,3223,3224,3229,3232, & - 3235,3236,3239,3240,3245,3249,3253,3254,3257,3258,3260,3264, & - 3271,3272,3273,3275,3278,3279,3282,3285,3290,3292,3293,3295, & - 3300,3302,3303,3304,3305,3306,3307,3311,3312,3313,3315,3316, & - 3317,3318,3319,3320,3321,3322,3323,3324,3326,3327,3328,3329, & - 3334,3340,3341,3347,3349,3351,3353,3354,3357,3358,3360,3361, & - 3362,3363,3364,3370,3371,3375,3376,3379,3380,3381,3385,3388, & - 3392,3394,3395,3396,3399,3400,3401,3402,3406,3407,3408,3409, & - 3414,3417,3418,3421,3423,3427,3432,3435,3436,3438,3439,3443, & - 3445,3447,3456,3457,3460,3461,3474,3477,3478,3481,3485,3489, & - 3490,3491,3492,3496,3500,3502,3503,3507,3509,3511,3518,3520, & - 3521,3523,3525,3527,3529,3531,3532,3533,3534,3538,3539,3541, & - 3549,3554,3555,3562,3563,3568,3572,3574,3575,3577,3579,3585, & - 3586,3592,3596,3597,3598,3601,3620,3625,3627,3628,3631,3632, & - 3634,3635,3636,3637,3641,3648,3650,3654,3658,3659,3660,3661, & - 3663,3665,3666,3667,3668,3669,3670,3671,3672,3674,3675,3676, & - 3677,3678,3679,3680,3685,3686,3687,3688,3690,3691,3692,3694, & - 3695,3696,3697,3698,3699,3700,3703,3704,3705,3706,3710,3711, & - 3713,3714,3715,3717,3718,3719,3720,3721,3722,3724,3725,3727, & - 3728,3730,3731,3733,3738,3739,3740,3741,3743,3744,3745,3746, & - 3749,3750,3751,3752,3753,3758,3760,3761,3762,3764,3766,3767, & - 3768,3769,3770,3771,3772,3774,3776,3778,3781,3782,3784,3785, & - 3786,3788,3789,3790,3791,3793,3794,3796,3797,3798,3799,3801, & - 3803,3804,3806,3807,3808,3810,3811,3813,3814,3815,3817,3819 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_136 = (/ & - 3820,3823,3825,3827,3828,3835,3836,3837,3838,3839,3840,3841, & - 3842,3844,3845,3846,3847,3848,3850,3852,3853,3854,3855,3858, & - 3859,3860,3863,3864,3865,3866,3867,3869,3870,3871,3872,3873, & - 3874,3876,3878,3880,3881,3882,3883,3884,3885,3886,3887,3888, & - 3889,3890,3891,3893,3894,3895,3897,3898,3899,3901,3902,3903, & - 3904,3905,3907,3908,3909,3910,3912,3916,3919,3920,3921,3922, & - 3925,3926,3927,3928,3929,3932,3933,3934,3936,3937,3939,3940, & - 3941,3942,3943,3944,3945,3948,3949,3950,3951,3952,3953,3954, & - 3955,3956,3961,3962,3963,3964,3966,3967,3969,3970,3971,3973, & - 3974,3975,3976,3977,3979,3980,3981,3982,3983,3984,3985,3987, & - 3988,3989,3990,3992,3994,3997,3998,3999,4000,4001,4002,4003, & - 4005,4006,4007,4008,4009,4011,4012,4013,4015,4016,4019,4020, & - 4021,4022,4023,4025,4026,4028,4030,4031,4033,4034,4035,4036, & - 4037,4038,4039,4040,4041,4042,4043,4044,4045,4046,4049,4050, & - 4051,4052,4054,4055,4057,4058,4059,4060,4061,4063,4064,4065, & - 4066,4067,4068,4069,4070,4072,4073,4074,4075,4076,4077,4078, & - 4079,4082,4085,4087,4088,4089,4090,4091,4092,4095,4097,4098, & - 4099,4100,4101,4102,4105,4106,4108,4111,4112,4114,4115,4116, & - 4117,4118,4119,4120,4121,4123,4124,4126,4127,4128,4129,4130, & - 4131,4132,4133,4134,4135,4136,4137,4138,4139,4140,4141,4142, & - 4143,4144,4145,4146,4147,4148,4149,4150,4151,4152,4153,4154, & - 4155,4156,4157,4158,4159,4160,4161,4162,4163,4165,4166,4167, & - 4168,4169,4170,4171,4172,4173,4174,4176,4180,4181,4182,4184, & - 4185,4187,4188,4189,4190,4191,4192,4193,4194,4195,4196,4197, & - 4198,4200,4201,4202,4203,4204,4205,4206,4207,4208,4209,4210, & - 4211,4212,4213,4214,4215,4216,4217,4218,4219,4220,4221,4222, & - 4225,4226,4228,4229,4230,4232,4234,4235,4236,4237,4238,4240, & - 4241,4242,4243,4244,4245,4246,4247,4249,4250,4251,4252,4253, & - 4254,4255,4256,4257,4258,4259,4260,4262,4263,4264,4265,4266, & - 4267,4268,4269,4270,4271,4273,4274,4275,4276,4277,4280,4281 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_137 = (/ & - 4282,4283,4284,4285,4286,4287,4288,4289,4290,4291,4292,4293, & - 4295,4296,4297,4298,4299,4301,4302,4303,4304,4305,4306,4307, & - 4308,4309,4310,4311,4312,4314,4315,4316,4317,4318,4319,4320, & - 4321,4322,4323,4324,4326,4327,4329,4330,4331,4334,4335,4336, & - 4337,4338,4339,4340,4341,4342,4343,4344,4345,4346,4347,4348, & - 4349,4350,4351,4352,4353,4354,4355,4356,4357,4358,4359,4360, & - 4361,4363,4364,4365,4367,4368,4369,4370,4371,4372,4373,4374, & - 4375,4376,4377,4378,4379,4380,4381,4382,4384,4385,4387,4389, & - 4390,4394,4395,4397,4399,4400,4402,4404,4405,4406,4407,4408, & - 4409,4410,4411,4412,4413,4414,4415,4416,4417,4418,4419,4421, & - 4422,4423,4424,4425,4426,4427,4428,4429,4430,4431,4432,4433, & - 4434,4435,4436,4437,4438,4439,4440,4441,4442,4443,4444,4445, & - 4446,4447,4448,4450,4451,4452,4453,4454,4455,4456,4457,4458, & - 4459,4460,4461,4463,4464,4465,4466,4467,4468,4469,4470,4471, & - 4472,4473,4474,4476,4477,4478,4479,4480,4481,4482,4483,4484, & - 4485,4486,4487,4488,4489,4492,4494,4495,4496,4497,4498,4499, & - 4500,4502,4503,4504,4505,4506,4507,4509,4510,4511,4512,4513, & - 4514,4515,4516,4517,4518,4519,4520,4521,4522,4523,4525,4526, & - 4529,4530,4531,4532,4533,4535,4536,4538,4539,4541,4542,4543, & - 4544,4545,4546,4548,4549,4550,4551,4552,4553,4554,4555,4556, & - 4557,4558,4560,4561,4562,4563,4565,4566,4567,4568,4571,4572, & - 4573,4574,4575,4576,4577,4578,4579,4580,4581,4582,4583,4584, & - 4585,4586,4587,4589,4590,4591,4592,4593,4594,4595,4596,4597, & - 4598,4599,4600,4601,4603,4605,4607,4608,4609,4610,4611,4612, & - 4613,4614,4615,4616,4617,4619,4620,4621,4622,4623,4624,4625, & - 4626,4627,4628,4629,4631,4632,4633,4634,4635,4636,4637,4638, & - 4639,4640,4641,4642,4643,4644,4645,4646,4647,4648,4649,4650, & - 4652,4653,4654,4655,4656,4657,4658,4659,4660,4661,4662,4663, & - 4664,4665,4666,4667,4668,4669,4670,4671,4672,4673,4674,4675, & - 4676,4677,4678,4679,4680,4681,4682,4683,4684,4685,4686,4687 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_138 = (/ & - 4688,4689,4690,4691,4692,4695,4696,4697,4698,4699,4700,4701, & - 4702,4703,4704,4705,4706,4707,4709,4711,4712,4713,4714,4715, & - 4716,4717,4718,4719,4720,4722,4723,4724,4725,4726,4727,4729, & - 4730,4731,4732,4733,4734,4735,4736,4738,4739,4740,4741,4742, & - 4743,4744,4745,4746,4748,4750,4751,4752,4753,4754,4755,4756, & - 4757,4758,4759,4760,4761,4762,4763,4764,4765,4766,4767,4768, & - 4769,4770,4771,4772,4773,4774,4775,4776,4777,4778,4779,4780, & - 4781,4782,4783,4784,4785,4786,4787,4788,4789,4790,4791,4792, & - 4793,4794,4795,4797,4798,4799,4800,4802,4803,4804,4805,4806, & - 4807,4808,4809,4810,4811,4812,4813,4814,4815,4816,4817,4818, & - 4819,4820,4821,4822,4823,4824,4825,4826,4827,4828,4829,4830, & - 4831,4832,4833,4834,4835,4836,4837,4838,4839,4840,4841,4843, & - 4844,4845,4846,4847,4848,4849,4850,4851,4852,4853,4854,4855, & - 4856,4857,4858,4859,4860,4861,4862,4863,4864,4865,4866,4867, & - 4868,4869,4870,4871,4873,4874,4875,4876,4877,4878,4879,4880, & - 4881,4882,4883,4884,4885,4886,4887,4888,4889,4890,4891,4892, & - 4893,4894,4895,4896,4897,4898,4899,4900,4901,4903,4904,4905, & - 4906,4907,4908,4909,4910,4911,4912,4913,4914,4915,4916,4917, & - 4919,4920,4921,4922,4923,4924,4925,4926,4927,4928,4929,4930, & - 4932,4933,4934,4935,4936,4937,4940,4941,4942,4943,4944,4945, & - 4946,4947,4948,4949,4950,4951,4952,4953,4954,4955,4956,4957, & - 4958,4959,4960,4961,4962,4963,4964,4965,4966,4967,4968,4969, & - 4970,4971,4972,4974,4975,4976,4977,4978,4979,4980,4981,4982, & - 4984,4985,4986,4987,4988,4989,4990,4991,4992,4993,4994,4995, & - 4996,4997,4998,4999,5001,5002,5003,5004,5005,5006,5007,5008, & - 5009,5010,5011,5012,5013,5014,5015,5016,5017,5018,5019,5020, & - 5021,5022,5024,5025,5027,5028,5029,5030,5031,5032,5033,5034, & - 5035,5036,5037,5038,5039,5040,5041,5042,5043,5044,5045,5047, & - 5048,5049,5050,5051,5052,5053,5054,5056,5058,5059,5060,5061, & - 5062,5063,5064,5065,5066,5067,5068,5069,5070,5071,5072,5073 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_139 = (/ & - 5074,5075,5076,5077,5078,5079,5081,5082,5083,5084,5085,5086, & - 5087,5088,5089,5090,5091,5092,5093,5094,5095,5096,5097,5098, & - 5099,5100,5101,5102,5103,5104,5106,5107,5108,5109,5110,5111, & - 5112,5113,5114,5115,5116,5117,5118,5119,5120,5121,5122,5123, & - 5124,5125,5126,5127,5128,5129,5130,5131,5132,5133,5134,5135, & - 5136,5137,5138,5140,5141,5142,5143,5144,5145,5146,5147,5148, & - 5149,5150,5151,5152,5153,5154,5155,5156,5157,5158,5159,5161, & - 5162,5163,5164,5165,5166,5167,5168,5169,5170,5171,5172,5173, & - 5174,5175,5176,5177,5178,5179,5180,5181,5183,5185,5186,5187, & - 5189,5190,5191,5192,5194,5195,5196,5197,5198,5200,5201,5202, & - 5203,5204,5205,5206,5207,5208,5209,5210,5211,5212,5213,5214, & - 5215,5216,5217,5218,5219,5220,5221,5222,5223,5224,5225,5226, & - 5227,5228,5229,5230,5231,5232,5233,5234,5235,5236,5237,5238, & - 5239,5240,5241,5242,5243,5244,5245,5246,5247,5248,5249,5250, & - 5251,5252,5253,5254,5255,5256,5257,5258,3568,4213,4247,4250, & - 4258,4264,4282,4286,4302,4320,4526,4544,4551,4556,4600,4601, & - 4621,4668,4677,4678,4691,4741,4757,4776,4786,4819,4824,4828, & - 4838,4843,4868,4869,4906,4908,4912,4919,4941,4943,4951,4952, & - 4956,4963,4970,4988,4997,4998,4999,5013,5024,5030,5040,5047, & - 5048,5049,5050,5051,5058,5066,5068,5069,5070,5076,5091,5092, & - 5093,5099,5102,5103,5123,5126,5132,5141,5153,5156,5162,5166, & - 5168,5170,5175,5181,5190,5194,5200,5204,5205,5207,5209,5217, & - 5218,5219,5220,5223,5224,5226,5227,5230,5236,5238,5249,5250, & - 5251,5252,5253,5254,5255,5256,5257,5258, 5, 11,181,198, & - 208,209,212,213,218,219,220,223,225,226,228,229, & - 231,233,234,238,242,246,247,248,249,250,256,257, & - 260,261,262,263,266,267,268,269,273,274,277,278, & - 279,281,283,284,285,286,289,292,295,296,299,302, & - 303,304,305,306,307,308,310,311,312,313,314,316, & - 317,319,320,321,322,325,332,333,334,335,336,338 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_140 = (/ & - 339,340,344,345,346,347,348,349,350,352,353,354, & - 355,356,357,358,359,361,365,366,368,369,371,372, & - 374,377,380,381,382,383,385,390,391,392,394,395, & - 396,399,400,401,402,403,406,408,409,410,411,412, & - 413,415,416,417,418,424,425,427,428,429,430,431, & - 432,436,437,439,440,441,442,444,446,451,452,453, & - 454,458,460,462,463,464,465,466,467,468,469,471, & - 473,475,476,478,480,481,482,485,486,487,493,494, & - 495,497,498,500,501,502,504,505,509,511,512,513, & - 516,517,520,523,524,525,526,527,531,532,536,537, & - 538,540,546,549,551,552,554,556,557,558,559,560, & - 565,567,568,569,572,576,577,579,580,586,590,598, & - 599,603,608,614,615,616,620,622,624,625,626,627, & - 628,633,634,636,639,643,646,647,650,651,657,659, & - 661,663,664,667,671,675,676,677,678,680,681,683, & - 684,685,686,690,694,696,699,700,701,705,706,707, & - 711,716,718,721,723,725,727,730,732,733,738,742, & - 748,752,754,757,758,762,764,765,767,768,772,779, & - 783,784,785,786,788,789,792,793,796,799,804,805, & - 807,808,811,812,813,821,823,827,839,847,862,874, & - 890,895,896,898,903,906,911,925,926,933,953,957, & - 958,961,969,990,1001,1013,1035,1036,1037,1040,1050,1054, & - 1056,1068,1073,1084,1087,1097,1111,1113,1120,1121,1124,1133, & - 1140,1163,1174,1175,1179,1189,1194,1210,1229,1231,1256,1257, & - 1269,1280,1297,1316,1330,1343,1344,1354,1356,1369,1384,1386, & - 1389,1394,1403,1405,1409,1425,1432,1440,1442,1481,1483,1489, & - 1493,1513,1520,1521,1548,1549,1552,1554,1555,1557,1558,1559, & - 1560,1561,1562,1563,1564,1566,1567,1568,1569,1570,1571,1572, & - 1575,1576,1577,1578,1582,1584,1585,1586,1587,1588,1589,1594, & - 1596,1597,1598,1599,1600,1601,1602,1606,1609,1611,1612,1613 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_141 = (/ & - 1615,1616,1618,1619,1621,1622,1623,1626,1627,1630,1632,1633, & - 1634,1636,1637,1639,1642,1644,1646,1647,1653,1655,1658,1659, & - 1661,1662,1663,1664,1665,1666,1667,1668,1669,1670,1671,1672, & - 1673,1674,1675,1676,1678,1679,1680,1681,1682,1683,1685,1686, & - 1687,1690,1692,1693,1694,1695,1697,1698,1700,1701,1702,1703, & - 1704,1705,1707,1711,1713,1715,1716,1717,1718,1719,1720,1721, & - 1722,1725,1726,1727,1729,1730,1731,1733,1734,1735,1740,1742, & - 1743,1744,1745,1746,1747,1750,1754,1755,1756,1760,1764,1765, & - 1769,1773,1776,1777,1781,1787,1791,1792,1794,1795,1796,1797, & - 1799,1806,1808,1810,1812,1815,1816,1820,1821,1822,1828,1838, & - 1847,1848,1851,1853,1857,1858,1860,1861,1865,1866,1869,1872, & - 1874,1875,1877,1880,1881,1882,1890,1891,1892,1898,1901,1902, & - 1903,1906,1907,1910,1911,1916,1923,1924,1927,1928,1929,1934, & - 1935,1942,1944,1945,1951,1955,1959,1960,1969,1971,1973,1974, & - 1981,1988,1991,1992,1998,2001,2004,2005,2008,2012,2013,2015, & - 2021,2029,2030,2031,2033,2035,2038,2041,2042,2043,2044,2050, & - 2058,2060,2066,2073,2078,2081,2085,2088,2089,2090,2098,2100, & - 2101,2103,2104,2106,2110,2112,2116,2117,2120,2122,2126,2127, & - 2129,2130,2131,2132,2134,2138,2140,2141,2144,2145,2146,2148, & - 2153,2158,2159,2160,2162,2170,2173,2175,2178,2182,2186,2187, & - 2188,2189,2191,2197,2198,2200,2202,2203,2206,2208,2209,2210, & - 2211,2212,2218,2219,2228,2229,2232,2233,2234,2235,2236,2237, & - 2238,2243,2248,2251,2255,2258,2259,2261,2266,2268,2272,2279, & - 2284,2286,2287,2292,2299,2301,2302,2306,2308,2309,2310,2312, & - 2315,2319,2320,2322,2324,2329,2334,2335,2336,2338,2339,2340, & - 2344,2346,2357,2361,2364,2371,2373,2375,2376,2381,2382,2384, & - 2387,2395,2396,2402,2407,2410,2412,2419,2421,2425,2427,2431, & - 2446,2448,2450,2451,2456,2462,2463,2466,2468,2472,2474,2475, & - 2476,2477,2479,2481,2482,2483,2484,2485,2486,2487,2489,2491, & - 2492,2494,2501,2503,2507,2508,2509,2512,2513,2516,2519,2521 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_142 = (/ & - 2526,2528,2539,2541,2543,2545,2546,2549,2550,2551,2553,2555, & - 2556,2559,2561,2562,2568,2570,2575,2581,2586,2589,2590,2591, & - 2592,2594,2596,2599,2601,2604,2606,2609,2614,2616,2617,2623, & - 2627,2633,2634,2638,2639,2641,2642,2644,2645,2646,2647,2652, & - 2653,2654,2659,2662,2665,2676,2680,2690,2693,2694,2695,2697, & - 2699,2706,2707,2710,2711,2713,2714,2716,2717,2720,2722,2723, & - 2727,2731,2735,2737,2741,2744,2745,2746,2747,2748,2752,2754, & - 2760,2761,2763,2764,2767,2770,2771,2773,2775,2785,2788,2795, & - 2797,2803,2805,2807,2816,2824,2826,2827,2828,2835,2836,2837, & - 2838,2840,2849,2861,2862,2865,2868,2871,2873,2874,2875,2889, & - 2890,2891,2894,2895,2897,2899,2900,2902,2906,2911,2912,2917, & - 2922,2926,2927,2931,2932,2934,2936,2939,2944,2946,2949,2953, & - 2954,2961,2963,2966,2967,2971,2972,2974,2975,2976,2979,2982, & - 2983,2985,2990,2991,2992,2993,2996,2997,3000,3001,3002,3004, & - 3009,3013,3015,3018,3022,3028,3032,3033,3037,3038,3039,3041, & - 3043,3044,3046,3048,3054,3055,3057,3059,3064,3066,3071,3072, & - 3079,3080,3082,3083,3084,3089,3094,3096,3097,3099,3102,3103, & - 3105,3107,3108,3113,3115,3121,3122,3129,3130,3131,3132,3134, & - 3135,3136,3138,3139,3144,3145,3147,3149,3154,3155,3157,3158, & - 3160,3164,3169,3171,3172,3174,3176,3177,3179,3180,3182,3188, & - 3192,3193,3194,3195,3196,3198,3200,3201,3202,3203,3205,3208, & - 3209,3210,3211,3212,3213,3215,3216,3217,3219,3225,3226,3227, & - 3228,3230,3231,3234,3236,3237,3238,3241,3243,3244,3246,3247, & - 3248,3250,3251,3252,3255,3256,3261,3262,3263,3264,3265,3266, & - 3267,3268,3269,3270,3271,3272,3277,3280,3283,3284,3285,3286, & - 3287,3289,3291,3294,3296,3297,3299,3301,3302,3304,3308,3309, & - 3310,3313,3322,3323,3325,3326,3330,3332,3333,3334,3335,3336, & - 3337,3338,3339,3340,3342,3344,3345,3346,3348,3350,3351,3352, & - 3353,3355,3356,3357,3359,3360,3365,3367,3372,3377,3378,3379, & - 3380,3382,3383,3386,3387,3390,3391,3393,3394,3396,3397,3398 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_143 = (/ & - 3400,3403,3404,3405,3406,3407,3410,3411,3413,3415,3419,3422, & - 3423,3424,3425,3426,3427,3429,3430,3431,3435,3437,3438,3441, & - 3443,3444,3445,3446,3447,3448,3449,3450,3451,3452,3453,3454, & - 3455,3457,3458,3459,3460,3462,3463,3467,3468,3469,3470,3471, & - 3472,3473,3475,3476,3477,3479,3480,3481,3482,3483,3484,3485, & - 3486,3487,3488,3489,3490,3491,3492,3493,3494,3495,3496,3499, & - 3500,3501,3502,3503,3504,3506,3507,3508,3509,3510,3511,3512, & - 3515,3518,3520,3521,3522,3523,3524,3525,3526,3527,3531,3532, & - 3533,3534,3537,3538,3539,3540,3543,3544,3545,3546,3547,3548, & - 3549,3550,3551,3552,3554,3555,3557,3559,3560,3562,3563,3564, & - 3565,3566,3567,3569,3570,3571,3572,3573,3575,3576,3577,3578, & - 3579,3580,3581,3582,3584,3585,3587,3588,3589,3590,3591,3592, & - 3597,3598,3599,3600,3601,3602,3603,3604,3605,3606,3608,3610, & - 3611,3612,3613,3614,3615,3616,3618,3620,3621,3622,3623,3624, & - 3625,3626,3627,3628,3630,3631,3632,3633,3634,3635,3636,3637, & - 3639,3640,3641,3643,3644,3645,3648,3649,3650,3653,3655,3657, & - 3658,3659,3661,3662,3663,3664,3665,3666,3667,3668,3669,3670, & - 3671,3672,3673,3674,3675,3676,3677,3678,3679,3680,3681,3682, & - 3683,3684,3685,3686,3687,3688,3690,3691,3692,3693,3694,3695, & - 3696,3697,3698,3699,3700,3701,3702,3703,3704,3705,3706,3707, & - 3709,3710,3711,3712,3713,3714,3715,3716,3717,3718,3719,3720, & - 3721,3722,3724,3725,3726,3727,3728,3729,3730,3731,3732,3733, & - 3735,3736,3737,3738,3739,3740,3741,3742,3743,3744,3745,3746, & - 3748,3749,3750,3751,3752,3753,3754,3755,3756,3758,3759,3760, & - 3761,3762,3763,3764,3766,3767,3768,3769,3770,3771,3772,3773, & - 3774,3775,3776,3777,3778,3779,3780,3781,3782,3783,3784,3785, & - 3786,3787,3788,3789,3790,3791,3792,3794,3795,3796,3797,3798, & - 3799,3800,3801,3802,3803,3804,3805,3806,3807,3808,3809,3810, & - 3811,3812,3813,3814,3815,3816,3817,3818,3819,3820,3822,3823, & - 3824,3825,3826,3827,3828,3829,3830,3831,3832,3833,3834,3835 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_144 = (/ & - 3836,3837,3838,3839,3840,3841,3842,3844,3845,3846,3847,3848, & - 3850,3851,3852,3853,3854,3855,3856,3857,3858,3859,3860,3861, & - 3862,3863,3864,3865,3866,3867,3869,3870,3871,3872,3873,3874, & - 3875,3876,3877,3878,3879,3880,3881,3882,3883,3884,3885,3886, & - 3887,3888,3889,3890,3891,3892,3893,3894,3895,3896,3897,3898, & - 3899,3900,3901,3902,3903,3904,3905,3907,3908,3909,3910,3911, & - 3912,3913,3914,3915,3916,3917,3918,3919,3920,3921,3922,3923, & - 3924,3925,3926,3927,3928,3929,3930,3931,3932,3934,3935,3936, & - 3937,3938,3939,3940,3941,3942,3943,3944,3945,3946,3947,3948, & - 3949,3950,3951,3952,3953,3954,3955,3956,3957,3958,3959,3960, & - 3961,3962,3963,3964,3965,3966,3967,3968,3969,3970,3971,3972, & - 3973,3974,3975,3976,3977,3979,3980,3981,3982,3983,3984,3985, & - 3986,3987,3988,3989,3990,3991,3992,3993,3994,3995,3996,3997, & - 3998,3999,4000,4001,4002,4003,4004,4005,4006,4007,4008,4009, & - 4010,4011,4012,4013,4014,4015,4016,4017,4018,4019,4020,4021, & - 4022,4023,4024,4025,4026,4027,4028,4029,4030,4031,4032,4033, & - 4034,4035,4036,4037,4038,4039,4040,4041,4042,4043,4044,4045, & - 4046,4047,4049,4050,4051,4052,4053,4054,4055,4056,4057,4058, & - 4059,4060,4061,4062,4063,4064,4065,4066,4067,4068,4069,4070, & - 4071,4072,4073,4074,4075,4076,4077,4078,4079,4080,4081,4082, & - 4083,4084,4085,4086,4087,4088,4089,4090,4091,4092,4093,4094, & - 4095,4096,4097,4098,4099,4100,4101,4102,4103,4104,4105,4106, & - 4107,4108,4109,4110,4111,4112,4113,4114,4115,4116,4117,4118, & - 4119,4120,4121,4122,4123,4124,4125,4126,4127,4128,4129,4130, & - 4131,4132,4133,4134,4135,4136,4137,4138,4139,4140,4141,4142, & - 4143,4144,4145,4146,4147,4148,4149,4150,4151,4152,4153,4154, & - 4155,4156,4157,4158,4159,4160,4161,4162,4163,4164,4165,4166, & - 4167,4168,4169,4170,4171,4172,4173,4174,4175,4176,4177,4178, & - 4179,4180,4181,4182,4183,4184,4185,4186,4187,4188,4189,4190, & - 4191,4192,4193,4194,4195,4196,4197,4198,4199,4200,4201,4202 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_145 = (/ & - 4203,4204,4205,4206,4207,4208,4209,4210,4211,4212,4214,4215, & - 4216,4217,4218,4219,4220,4221,4222,4223,4224,4225,4226,4227, & - 4228,4229,4230,4231,4232,4233,4234,4235,4236,4237,4238,4239, & - 4240,4241,4242,4243,4244,4245,4246,4248,4249,4251,4252,4253, & - 4254,4255,4256,4257,4259,4260,4261,4262,4263,4265,4266,4267, & - 4268,4269,4270,4271,4272,4273,4274,4275,4276,4277,4278,4279, & - 4280,4281,4283,4284,4285,4287,4288,4289,4290,4291,4292,4293, & - 4295,4296,4297,4298,4299,4300,4301,4303,4304,4305,4306,4307, & - 4308,4309,4310,4311,4312,4313,4314,4315,4316,4317,4318,4319, & - 4321,4322,4323,4324,4325,4326,4327,4328,4329,4330,4332,4333, & - 4334,4335,4336,4337,4338,4339,4340,4341,4342,4343,4344,4345, & - 4346,4347,4348,4349,4350,4351,4353,4354,4355,4356,4357,4358, & - 4359,4360,4361,4362,4363,4364,4365,4366,4367,4368,4369,4370, & - 4371,4372,4373,4374,4375,4376,4377,4378,4379,4380,4381,4382, & - 4384,4385,4386,4387,4388,4389,4390,4391,4392,4393,4394,4395, & - 4396,4397,4398,4399,4400,4401,4402,4403,4404,4405,4406,4407, & - 4408,4409,4410,4411,4412,4413,4414,4415,4416,4417,4418,4419, & - 4420,4421,4422,4423,4424,4425,4426,4427,4428,4429,4430,4431, & - 4432,4433,4434,4435,4436,4437,4438,4439,4440,4441,4442,4443, & - 4444,4445,4446,4447,4448,4449,4450,4451,4452,4453,4454,4455, & - 4456,4457,4458,4459,4460,4461,4462,4463,4464,4465,4466,4467, & - 4468,4469,4470,4471,4472,4473,4474,4475,4476,4477,4478,4479, & - 4480,4481,4482,4483,4484,4485,4486,4487,4488,4489,4490,4491, & - 4492,4494,4495,4496,4497,4498,4499,4500,4501,4502,4503,4504, & - 4505,4506,4508,4509,4510,4511,4512,4513,4514,4515,4516,4517, & - 4518,4519,4520,4521,4522,4523,4524,4525,4527,4528,4529,4530, & - 4531,4532,4533,4534,4535,4536,4537,4538,4539,4540,4541,4542, & - 4543,4545,4546,4547,4548,4549,4550,4552,4553,4554,4555,4557, & - 4558,4559,4560,4561,4562,4563,4564,4565,4566,4567,4568,4569, & - 4570,4571,4572,4573,4574,4575,4576,4577,4578,4579,4580,4581 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_146 = (/ & - 4582,4583,4584,4585,4586,4587,4588,4589,4590,4591,4592,4593, & - 4594,4595,4596,4597,4598,4599,4600,4601,4602,4603,4604,4605, & - 4606,4607,4608,4609,4610,4611,4612,4613,4614,4615,4616,4617, & - 4619,4620,4622,4623,4624,4625,4626,4627,4628,4629,4630,4631, & - 4632,4633,4634,4635,4636,4637,4638,4639,4640,4641,4642,4643, & - 4644,4645,4646,4647,4648,4649,4650,4651,4652,4653,4654,4655, & - 4656,4657,4658,4659,4660,4661,4662,4663,4664,4665,4666,4667, & - 4669,4670,4671,4672,4673,4674,4675,4676,4679,4680,4681,4682, & - 4683,4684,4685,4686,4687,4688,4689,4690,4692,4693,4694,4695, & - 4696,4697,4698,4699,4700,4701,4702,4703,4704,4705,4706,4707, & - 4708,4709,4710,4711,4712,4713,4714,4715,4716,4717,4718,4719, & - 4720,4721,4722,4723,4724,4725,4726,4727,4728,4729,4730,4731, & - 4732,4733,4734,4735,4736,4737,4738,4739,4740,4742,4743,4744, & - 4745,4746,4747,4748,4749,4750,4751,4752,4753,4754,4755,4756, & - 4758,4759,4760,4761,4762,4763,4764,4765,4766,4767,4768,4769, & - 4770,4771,4772,4773,4774,4775,4776,4777,4778,4779,4780,4781, & - 4782,4783,4784,4785,4786,4787,4788,4789,4790,4791,4792,4793, & - 4794,4795,4796,4797,4798,4799,4800,4802,4803,4804,4805,4806, & - 4807,4808,4809,4810,4811,4812,4813,4814,4815,4816,4817,4818, & - 4819,4820,4821,4822,4823,4824,4825,4826,4827,4828,4829,4830, & - 4831,4832,4833,4834,4835,4836,4837,4839,4840,4841,4842,4844, & - 4845,4846,4847,4848,4849,4850,4851,4852,4853,4854,4855,4856, & - 4857,4858,4859,4860,4861,4862,4863,4864,4865,4866,4867,4870, & - 4871,4872,4873,4874,4875,4876,4877,4878,4879,4880,4881,4882, & - 4883,4884,4885,4886,4887,4888,4889,4890,4891,4892,4893,4894, & - 4895,4896,4897,4898,4899,4900,4901,4902,4903,4904,4905,4907, & - 4908,4910,4911,4912,4913,4914,4915,4916,4917,4918,4919,4920, & - 4921,4922,4923,4924,4925,4926,4927,4928,4929,4930,4931,4932, & - 4933,4934,4935,4936,4937,4939,4940,4942,4944,4945,4946,4947, & - 4948,4949,4950,4951,4952,4953,4954,4955,4957,4958,4959,4960 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_147 = (/ & - 4961,4962,4964,4965,4966,4967,4968,4969,4970,4971,4972,4973, & - 4974,4975,4976,4977,4978,4979,4980,4981,4982,4983,4984,4985, & - 4986,4987,4988,4989,4990,4991,4992,4993,4994,4995,4996,4997, & - 4998,4999,5000,5001,5002,5003,5004,5005,5006,5007,5008,5009, & - 5010,5011,5012,5013,5014,5015,5016,5017,5018,5019,5020,5021, & - 5022,5023,5024,5025,5026,5027,5028,5029,5030,5031,5032,5033, & - 5034,5035,5036,5037,5038,5039,5040,5041,5042,5043,5044,5045, & - 5046,5047,5048,5049,5050,5051,5052,5053,5054,5055,5056,5057, & - 5058,5059,5060,5061,5062,5063,5064,5065,5066,5067,5068,5069, & - 5070,5071,5072,5073,5074,5075,5076,5077,5078,5079,5080,5081, & - 5082,5083,5084,5085,5086,5087,5088,5089,5090,5091,5092,5093, & - 5094,5095,5096,5097,5098,5099,5100,5101,5102,5103,5104,5105, & - 5106,5107,5108,5109,5110,5111,5112,5113,5114,5115,5116,5117, & - 5118,5119,5120,5121,5122,5123,5124,5125,5126,5127,5128,5129, & - 5130,5131,5132,5133,5134,5135,5136,5137,5138,5139,5140,5141, & - 5142,5143,5144,5145,5146,5147,5148,5149,5150,5151,5152,5153, & - 5154,5155,5156,5157,5158,5159,5161,5162,5163,5164,5165,5166, & - 5167,5168,5169,5170,5171,5172,5173,5174,5175,5176,5177,5178, & - 5179,5180,5181,5182,5183,5184,5185,5186,5187,5188,5189,5190, & - 5191,5192,5193,5194,5195,5196,5197,5198,5199,5200,5202,5203, & - 5204,5205,5206,5207,5208,5209,5210,5211,5212,5213,5214,5215, & - 5216,5217,5218,5219,5220,5221,5222,5223,5224,5225,5226,5227, & - 5228,5229,5230,5231,5232,5233,5234,5235,5236,5237,5238,5239, & - 5240,5241,5242,5243,5244,5245,5246,5247,5248,5249,5250,5251, & - 5252,5253,5254,5255,5256,5257,5258,137,668,1573,1580,1775, & - 1805,1845,1936,2048,2054,2167,2274,2281,2390,2398,2420,2464, & - 2635,2705,2957,3045,3084,3085,3087,3088,3092,3093,3095,3096, & - 3097,3098,3100,3101,3105,3111,3112,3113,3114,3116,3119,3120, & - 3123,3125,3127,3129,3130,3131,3134,3135,3136,3137,3138,3139, & - 3140,3142,3143,3144,3145,3146,3149,3150,3152,3153,3157,3158 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_148 = (/ & - 3161,3162,3163,3164,3165,3167,3169,3170,3172,3178,3179,3180, & - 3181,3182,3187,3189,3190,3191,3192,3193,3197,3204,3219,3224, & - 3244,3248,3254,3257,3263,3324,3392,3401,3437,3442,3454,3465, & - 3466,3470,3471,3472,3481,3482,3483,3484,3488,3489,3491,3492, & - 3494,3496,3499,3503,3506,3507,3508,3509,3510,3511,3512,3513, & - 3518,3519,3521,3523,3525,3526,3527,3531,3532,3534,3538,3539, & - 3543,3545,3546,3551,3553,3554,3560,3562,3568,3627,3631,3632, & - 3633,3634,3636,3637,3640,3641,3643,3645,3648,3649,3650,3654, & - 3655,3657,3658,3659,3660,3661,3662,3663,3665,3667,3668,3669, & - 3670,3671,3674,3675,3676,3677,3678,3679,3680,3684,3685,3686, & - 3687,3688,3690,3691,3692,3694,3695,3696,3697,3698,3699,3701, & - 3703,3704,3705,3706,3710,3711,3713,3714,3715,3717,3718,3719, & - 3720,3721,3722,3724,3725,3727,3728,3730,3731,3733,3738,3739, & - 3740,3741,3743,3745,3746,3748,3749,3750,3751,3752,3753,3758, & - 3760,3761,3762,3764,3766,3768,3769,3770,3771,3772,3773,3774, & - 3775,3776,3778,3781,3782,3784,3785,3786,3788,3789,3790,3791, & - 3792,3794,3796,3797,3798,3799,3801,3803,3804,3806,3807,3808, & - 3810,3811,3813,3814,3815,3817,3819,3820,3823,3825,3827,3828, & - 3830,3831,3833,3834,3836,3837,3838,3839,3840,3841,3844,3845, & - 3846,3847,3848,3849,3850,3851,3852,3853,3854,3855,3856,3857, & - 3858,3859,3860,3861,3862,3863,3864,3865,3866,3867,3869,3870, & - 3871,3872,3873,3874,3875,3876,3877,3879,3880,3881,3882,3883, & - 3884,3885,3886,3888,3889,3890,3891,3892,3893,3894,3895,3896, & - 3898,3899,3900,3901,3902,3903,3905,3907,3908,3911,3912,3913, & - 3914,3915,3916,3919,3920,3921,3923,3924,3926,3927,3928,3932, & - 3935,3936,3937,3938,3939,3940,3941,3943,3944,3945,3946,3947, & - 3948,3949,3950,3951,3952,3953,3954,3955,3960,3961,3962,3963, & - 3964,3966,3967,3969,3971,3972,3973,3974,3975,3976,3977,3979, & - 3980,3981,3982,3983,3984,3985,3986,3987,3988,3989,3990,3991, & - 3992,3994,3995,3996,3997,3998,3999,4000,4001,4002,4003,4005 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_149 = (/ & - 4006,4007,4008,4009,4010,4011,4012,4013,4015,4016,4017,4018, & - 4019,4020,4021,4022,4023,4025,4026,4027,4028,4030,4031,4032, & - 4033,4034,4035,4036,4037,4038,4039,4040,4041,4042,4043,4044, & - 4045,4046,4048,4049,4050,4051,4052,4054,4055,4056,4057,4058, & - 4059,4060,4061,4063,4064,4065,4067,4068,4069,4070,4072,4073, & - 4074,4075,4076,4077,4078,4079,4080,4082,4083,4085,4087,4088, & - 4089,4090,4091,4092,4093,4094,4095,4097,4098,4099,4100,4101, & - 4102,4105,4106,4107,4108,4110,4111,4112,4113,4114,4115,4116, & - 4117,4118,4119,4120,4121,4123,4124,4126,4127,4128,4129,4130, & - 4131,4132,4133,4134,4135,4136,4137,4138,4139,4140,4141,4142, & - 4143,4144,4145,4146,4147,4148,4149,4150,4151,4152,4153,4154, & - 4155,4156,4157,4158,4159,4160,4161,4162,4163,4165,4166,4167, & - 4168,4169,4170,4171,4172,4173,4174,4176,4180,4181,4182,4185, & - 4186,4187,4188,4189,4190,4191,4192,4193,4194,4195,4196,4197, & - 4198,4200,4201,4202,4203,4204,4205,4206,4207,4208,4209,4210, & - 4211,4212,4213,4214,4215,4216,4217,4218,4219,4220,4221,4222, & - 4224,4225,4226,4227,4228,4229,4230,4231,4232,4233,4234,4235, & - 4236,4237,4238,4239,4240,4241,4242,4243,4244,4245,4246,4247, & - 4249,4250,4251,4252,4253,4254,4255,4257,4258,4259,4260,4261, & - 4262,4263,4264,4265,4266,4267,4268,4269,4270,4271,4272,4273, & - 4274,4275,4276,4277,4278,4279,4280,4281,4282,4283,4284,4285, & - 4286,4287,4288,4289,4290,4291,4292,4293,4295,4296,4297,4298, & - 4299,4301,4302,4303,4304,4305,4306,4307,4308,4309,4310,4311, & - 4312,4313,4314,4315,4316,4317,4318,4319,4320,4321,4322,4323, & - 4324,4326,4327,4329,4330,4332,4334,4335,4336,4337,4338,4339, & - 4340,4341,4342,4343,4344,4345,4346,4347,4348,4349,4350,4351, & - 4353,4354,4355,4356,4357,4358,4359,4360,4361,4362,4363,4364, & - 4365,4367,4368,4369,4370,4371,4372,4373,4374,4375,4376,4377, & - 4379,4380,4381,4382,4384,4385,4387,4389,4390,4394,4395,4396, & - 4397,4399,4400,4402,4404,4405,4407,4408,4409,4410,4411,4412 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_150 = (/ & - 4413,4414,4415,4416,4417,4418,4419,4421,4422,4423,4424,4425, & - 4426,4427,4428,4429,4430,4431,4432,4433,4434,4435,4436,4437, & - 4438,4439,4440,4441,4442,4443,4444,4445,4446,4447,4448,4449, & - 4450,4451,4452,4453,4454,4455,4456,4457,4458,4459,4460,4461, & - 4462,4463,4464,4465,4466,4467,4468,4469,4470,4471,4472,4473, & - 4474,4475,4476,4477,4478,4479,4480,4481,4482,4483,4484,4485, & - 4486,4487,4488,4489,4490,4492,4493,4494,4495,4496,4497,4498, & - 4499,4500,4501,4502,4503,4504,4505,4506,4508,4509,4510,4511, & - 4512,4513,4514,4515,4516,4517,4518,4519,4520,4521,4522,4523, & - 4525,4526,4527,4529,4530,4531,4532,4533,4535,4536,4537,4538, & - 4539,4540,4541,4542,4543,4544,4545,4546,4547,4548,4549,4550, & - 4551,4552,4553,4554,4555,4556,4557,4558,4559,4560,4561,4562, & - 4563,4565,4566,4567,4568,4569,4571,4572,4573,4574,4575,4576, & - 4577,4578,4579,4580,4581,4582,4583,4584,4585,4586,4587,4589, & - 4590,4591,4592,4593,4594,4595,4596,4597,4598,4599,4600,4601, & - 4603,4604,4605,4606,4607,4608,4609,4610,4611,4612,4613,4614, & - 4616,4617,4619,4620,4621,4622,4623,4624,4625,4626,4627,4628, & - 4629,4630,4631,4632,4633,4634,4635,4636,4637,4638,4639,4640, & - 4641,4642,4643,4644,4645,4646,4647,4648,4649,4650,4651,4652, & - 4653,4654,4655,4656,4657,4658,4659,4660,4661,4662,4663,4664, & - 4665,4666,4667,4668,4669,4670,4671,4672,4673,4674,4675,4676, & - 4677,4678,4679,4680,4681,4682,4683,4684,4685,4686,4687,4688, & - 4689,4690,4691,4692,4695,4696,4697,4698,4699,4700,4701,4702, & - 4703,4704,4705,4706,4707,4709,4710,4711,4712,4713,4714,4715, & - 4716,4717,4718,4719,4720,4721,4722,4723,4724,4725,4726,4727, & - 4729,4730,4731,4732,4733,4734,4735,4736,4737,4738,4739,4740, & - 4741,4742,4743,4744,4745,4746,4748,4750,4751,4752,4753,4754, & - 4755,4756,4757,4758,4759,4760,4761,4762,4763,4764,4765,4766, & - 4767,4768,4769,4770,4771,4772,4773,4774,4775,4776,4777,4778, & - 4779,4780,4781,4782,4783,4784,4785,4786,4787,4788,4789,4790 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_151 = (/ & - 4791,4792,4793,4794,4795,4797,4798,4799,4800,4802,4803,4804, & - 4805,4806,4807,4808,4809,4810,4811,4812,4813,4814,4815,4816, & - 4817,4818,4819,4820,4821,4822,4823,4824,4825,4826,4827,4828, & - 4829,4830,4831,4832,4833,4834,4835,4836,4837,4838,4839,4840, & - 4841,4842,4843,4844,4845,4846,4847,4848,4849,4850,4851,4852, & - 4853,4854,4855,4856,4857,4858,4859,4860,4861,4862,4863,4864, & - 4865,4866,4867,4868,4869,4870,4871,4872,4873,4874,4875,4876, & - 4877,4878,4879,4880,4881,4882,4883,4884,4885,4886,4887,4888, & - 4889,4890,4891,4892,4893,4894,4895,4896,4897,4898,4899,4900, & - 4901,4902,4903,4904,4905,4906,4907,4908,4910,4911,4912,4913, & - 4914,4915,4916,4917,4918,4919,4920,4921,4922,4923,4924,4925, & - 4926,4927,4928,4929,4930,4931,4932,4933,4934,4935,4936,4937, & - 4939,4940,4941,4942,4943,4944,4945,4946,4947,4948,4949,4950, & - 4951,4952,4953,4954,4955,4956,4957,4959,4960,4961,4962,4963, & - 4964,4965,4966,4967,4968,4969,4970,4971,4972,4974,4975,4976, & - 4977,4978,4979,4980,4981,4982,4984,4985,4986,4987,4988,4989, & - 4990,4991,4992,4993,4994,4995,4996,4997,4998,4999,5001,5002, & - 5003,5004,5005,5006,5007,5008,5009,5010,5011,5012,5013,5014, & - 5015,5016,5017,5018,5019,5020,5021,5022,5023,5024,5025,5026, & - 5027,5028,5029,5030,5031,5032,5033,5034,5035,5036,5037,5038, & - 5039,5040,5041,5042,5043,5044,5045,5047,5048,5049,5050,5051, & - 5052,5053,5054,5055,5056,5057,5058,5059,5060,5061,5062,5063, & - 5064,5065,5066,5067,5068,5069,5070,5071,5072,5073,5074,5075, & - 5076,5077,5078,5079,5081,5082,5083,5084,5085,5086,5087,5088, & - 5089,5090,5091,5092,5093,5094,5095,5096,5097,5098,5099,5100, & - 5101,5102,5103,5104,5105,5106,5107,5108,5109,5110,5111,5112, & - 5113,5114,5115,5116,5117,5118,5119,5120,5121,5122,5123,5124, & - 5125,5126,5127,5128,5129,5130,5131,5132,5133,5134,5135,5136, & - 5137,5138,5139,5140,5141,5142,5143,5144,5145,5146,5147,5148, & - 5149,5150,5151,5152,5153,5154,5155,5156,5157,5158,5159,5161 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_152 = (/ & - 5162,5163,5164,5165,5166,5167,5168,5169,5170,5171,5172,5173, & - 5174,5175,5176,5177,5178,5179,5180,5181,5182,5183,5184,5185, & - 5186,5187,5189,5190,5191,5192,5193,5194,5195,5196,5197,5198, & - 5199,5200,5201,5202,5203,5204,5205,5206,5207,5208,5209,5210, & - 5211,5212,5213,5214,5215,5216,5217,5218,5219,5220,5221,5222, & - 5223,5224,5225,5226,5227,5228,5229,5230,5231,5232,5233,5234, & - 5235,5236,5237,5238,5239,5240,5241,5242,5243,5244,5245,5246, & - 5247,5248,5249,5250,5251,5252,5253,5254,5255,5256,5257,5258, & - 624,646,797,905,2160,2178,2180,3891,3963,3971,4988,5048, & - 5092,5250,5251,5252,5253,5254,5255,5256,5257,5258,3442,3465, & - 3466,3482,3494,3499,3506,3508,3512,3517,3519,3545,3551,3553, & - 3560,3568,3622,3646,3684,3701,3793,3830,3831,3832,3833,3834, & - 3996,4010,4017,4018,4027,4032,4056,4080,4083,4093,4094,4096, & - 4100,4132,4139,4181,4187,4198,4222,4272,4330,4332,4338,4375, & - 4380,4395,4396,4397,4402,4405,4407,4408,4413,4414,4427,4428, & - 4431,4433,4436,4437,4438,4444,4452,4453,4454,4457,4460,4466, & - 4470,4471,4474,4475,4478,4479,4484,4485,4487,4492,4494,4495, & - 4496,4499,4500,4504,4505,4508,4509,4512,4514,4516,4518,4519, & - 4522,4523,4527,4531,4555,4570,4576,4591,4592,4600,4601,4604, & - 4605,4606,4610,4611,4615,4622,4623,4624,4626,4628,4629,4632, & - 4633,4634,4635,4636,4637,4638,4639,4641,4642,4649,4650,4652, & - 4653,4654,4656,4657,4658,4659,4660,4662,4663,4664,4665,4670, & - 4671,4673,4676,4679,4680,4681,4682,4684,4685,4690,4692,4729, & - 4738,4739,4740,4752,4753,4770,4771,4772,4777,4786,4788,4789, & - 4790,4791,4793,4794,4795,4797,4798,4803,4805,4807,4808,4809, & - 4810,4812,4816,4818,4822,4829,4830,4832,4833,4834,4836,4839, & - 4840,4845,4846,4847,4848,4849,4850,4853,4854,4855,4859,4862, & - 4863,4866,4867,4879,4881,4886,4888,4892,4895,4896,4907,4910, & - 4915,4916,4917,4921,4922,4926,4927,4928,4930,4932,4933,4934, & - 4937,4944,4945,4946,4948,4949,4950,4951,4952,4953,4954,4955 /) - INTEGER, PARAMETER, DIMENSION(192) :: LU_ICOL_153 = (/ & - 4957,4962,4964,4965,4968,4970,4971,4972,4975,4976,4977,4978, & - 4979,4986,4987,4988,4989,4993,4994,4996,5002,5003,5004,5005, & - 5006,5008,5010,5013,5014,5015,5017,5019,5021,5022,5024,5025, & - 5027,5028,5029,5030,5033,5034,5036,5037,5041,5042,5044,5045, & - 5048,5049,5050,5051,5052,5054,5056,5058,5061,5063,5064,5065, & - 5066,5068,5069,5071,5072,5074,5075,5076,5077,5079,5081,5082, & - 5083,5084,5085,5088,5089,5090,5091,5092,5093,5095,5097,5099, & - 5103,5104,5106,5107,5114,5115,5116,5117,5119,5122,5123,5124, & - 5125,5126,5128,5131,5132,5133,5137,5138,5140,5141,5143,5144, & - 5146,5147,5152,5153,5154,5155,5159,5161,5162,5163,5164,5165, & - 5166,5167,5168,5169,5173,5174,5175,5176,5177,5179,5180,5181, & - 5183,5185,5186,5187,5189,5190,5191,5192,5194,5196,5200,5203, & - 5204,5205,5206,5207,5208,5209,5211,5212,5213,5214,5215,5216, & - 5217,5218,5219,5220,5221,5224,5225,5226,5227,5229,5230,5232, & - 5233,5234,5235,5236,5237,5238,5239,5240,5243,5244,5245,5246, & - 5247,5248,5249,5250,5251,5252,5253,5254,5255,5256,5257,5258 /) - INTEGER, PARAMETER, DIMENSION(55272) :: LU_ICOL = (/& - LU_ICOL_0, LU_ICOL_1, LU_ICOL_2, LU_ICOL_3, LU_ICOL_4, & - LU_ICOL_5, LU_ICOL_6, LU_ICOL_7, LU_ICOL_8, LU_ICOL_9, & - LU_ICOL_10, LU_ICOL_11, LU_ICOL_12, LU_ICOL_13, LU_ICOL_14, & - LU_ICOL_15, LU_ICOL_16, LU_ICOL_17, LU_ICOL_18, LU_ICOL_19, & - LU_ICOL_20, LU_ICOL_21, LU_ICOL_22, LU_ICOL_23, LU_ICOL_24, & - LU_ICOL_25, LU_ICOL_26, LU_ICOL_27, LU_ICOL_28, LU_ICOL_29, & - LU_ICOL_30, LU_ICOL_31, LU_ICOL_32, LU_ICOL_33, LU_ICOL_34, & - LU_ICOL_35, LU_ICOL_36, LU_ICOL_37, LU_ICOL_38, LU_ICOL_39, & - LU_ICOL_40, LU_ICOL_41, LU_ICOL_42, LU_ICOL_43, LU_ICOL_44, & - LU_ICOL_45, LU_ICOL_46, LU_ICOL_47, LU_ICOL_48, LU_ICOL_49, & - LU_ICOL_50, LU_ICOL_51, LU_ICOL_52, LU_ICOL_53, LU_ICOL_54, & - LU_ICOL_55, LU_ICOL_56, LU_ICOL_57, LU_ICOL_58, LU_ICOL_59, & - LU_ICOL_60, LU_ICOL_61, LU_ICOL_62, LU_ICOL_63, LU_ICOL_64, & - LU_ICOL_65, LU_ICOL_66, LU_ICOL_67, LU_ICOL_68, LU_ICOL_69, & - LU_ICOL_70, LU_ICOL_71, LU_ICOL_72, LU_ICOL_73, LU_ICOL_74, & - LU_ICOL_75, LU_ICOL_76, LU_ICOL_77, LU_ICOL_78, LU_ICOL_79, & - LU_ICOL_80, LU_ICOL_81, LU_ICOL_82, LU_ICOL_83, LU_ICOL_84, & - LU_ICOL_85, LU_ICOL_86, LU_ICOL_87, LU_ICOL_88, LU_ICOL_89, & - LU_ICOL_90, LU_ICOL_91, LU_ICOL_92, LU_ICOL_93, LU_ICOL_94, & - LU_ICOL_95, LU_ICOL_96, LU_ICOL_97, LU_ICOL_98, LU_ICOL_99, & - LU_ICOL_100, LU_ICOL_101, LU_ICOL_102, LU_ICOL_103, LU_ICOL_104, & - LU_ICOL_105, LU_ICOL_106, LU_ICOL_107, LU_ICOL_108, LU_ICOL_109, & - LU_ICOL_110, LU_ICOL_111, LU_ICOL_112, LU_ICOL_113, LU_ICOL_114, & - LU_ICOL_115, LU_ICOL_116, LU_ICOL_117, LU_ICOL_118, LU_ICOL_119, & - LU_ICOL_120, LU_ICOL_121, LU_ICOL_122, LU_ICOL_123, LU_ICOL_124, & - LU_ICOL_125, LU_ICOL_126, LU_ICOL_127, LU_ICOL_128, LU_ICOL_129, & - LU_ICOL_130, LU_ICOL_131, LU_ICOL_132, LU_ICOL_133, LU_ICOL_134, & - LU_ICOL_135, LU_ICOL_136, LU_ICOL_137, LU_ICOL_138, LU_ICOL_139, & - LU_ICOL_140, LU_ICOL_141, LU_ICOL_142, LU_ICOL_143, LU_ICOL_144, & - LU_ICOL_145, LU_ICOL_146, LU_ICOL_147, LU_ICOL_148, LU_ICOL_149, & - LU_ICOL_150, LU_ICOL_151, LU_ICOL_152, LU_ICOL_153 /) - - INTEGER, PARAMETER, DIMENSION(360) :: LU_CROW_0 = (/ & - 1, 4, 6, 58, 60, 63, 65, 67, 69, 73, 77, 79, & - 82, 85, 90, 93, 98,101,104,107,110,113,116,119, & - 122,127,130,133,136,139,142,145,148,151,154,159, & - 164,167,170,173,176,179,184,189,194,199,202,205, & - 208,213,218,223,226,229,232,235,238,243,246,249, & - 252,255,258,261,264,269,274,277,280,285,288,291, & - 294,297,300,303,308,311,316,319,324,327,332,335, & - 338,341,344,347,352,355,358,363,368,371,374,377, & - 382,387,390,393,396,399,402,405,408,411,414,419, & - 422,425,428,431,434,439,442,447,452,457,460,463, & - 468,471,475,478,481,486,489,492,495,498,503,506, & - 511,514,517,520,523,526,531,534,539,544,547,550, & - 553,558,563,566,569,575,581,587,594,600,606,612, & - 618,624,630,636,642,648,654,661,668,674,680,686, & - 692,699,706,712,718,724,730,736,742,748,754,760, & - 766,768,774,780,786,792,798,804,810,816,822,828, & - 834,840,846,852,858,864,866,872,878,884,890,896, & - 903,909,916,920,923,926,930,938,941,944,947,951, & - 955,958,961,964,967,970,974,977,980,983,986,990, & - 993,996,1000,1003,1007,1010,1013,1016,1019,1023,1026,1029, & - 1033,1037,1040,1043,1046,1049,1052,1055,1058,1061,1063,1067, & - 1071,1074,1082,1086,1089,1092,1096,1099,1103,1107,1110,1113, & - 1117,1121,1124,1127,1130,1133,1136,1143,1147,1150,1153,1157, & - 1161,1164,1167,1170,1174,1177,1181,1184,1187,1190,1193,1197, & - 1200,1203,1211,1215,1218,1221,1225,1228,1231,1239,1242,1245, & - 1252,1256,1259,1262,1265,1268,1271,1274,1277,1281,1284,1287, & - 1290,1293,1296,1304,1307,1310,1315,1318,1321,1324,1327,1332, & - 1336,1339,1347,1350,1354,1358,1362,1365,1368,1371,1374,1377, & - 1380,1383,1386,1389,1392,1396,1399,1403,1406,1409,1412,1415, & - 1418,1421,1424,1428,1431,1434,1437,1440,1443,1446,1449,1452 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_CROW_1 = (/ & - 1456,1459,1462,1466,1470,1473,1476,1480,1483,1486,1493,1496, & - 1499,1504,1507,1511,1515,1518,1522,1526,1529,1532,1535,1538, & - 1542,1545,1548,1552,1556,1560,1563,1566,1569,1573,1576,1579, & - 1582,1587,1591,1594,1597,1600,1603,1606,1611,1615,1618,1626, & - 1629,1632,1635,1638,1641,1644,1648,1651,1654,1657,1660,1663, & - 1667,1675,1678,1682,1685,1688,1691,1694,1697,1700,1703,1706, & - 1709,1713,1717,1721,1724,1727,1731,1734,1737,1740,1743,1751, & - 1754,1762,1765,1768,1771,1775,1783,1786,1789,1792,1795,1800, & - 1804,1808,1811,1815,1818,1822,1825,1828,1831,1834,1837,1840, & - 1843,1846,1850,1853,1858,1861,1865,1868,1871,1874,1877,1881, & - 1884,1887,1890,1894,1898,1901,1904,1907,1911,1915,1920,1924, & - 1928,1931,1934,1937,1941,1944,1947,1951,1954,1957,1960,1964, & - 1967,1970,1974,1978,1982,1985,1990,1993,1996,1999,2002,2006, & - 2009,2012,2016,2020,2023,2027,2030,2033,2036,2039,2042,2045, & - 2050,2053,2056,2059,2064,2069,2074,2079,2082,2087,2090,2095, & - 2098,2103,2106,2109,2114,2119,2122,2125,2128,2133,2138,2143, & - 2148,2153,2156,2161,2164,2169,2172,2175,2178,2184,2188,2191, & - 2196,2199,2202,2205,2208,2211,2216,2221,2224,2229,2234,2239, & - 2242,2245,2250,2253,2256,2261,2266,2269,2274,2279,2282,2285, & - 2288,2293,2296,2299,2304,2310,2314,2319,2324,2329,2332,2335, & - 2340,2343,2346,2351,2354,2359,2364,2369,2372,2375,2380,2385, & - 2388,2393,2396,2401,2404,2409,2414,2419,2424,2427,2430,2435, & - 2440,2445,2448,2453,2456,2461,2466,2471,2476,2479,2482,2487, & - 2490,2495,2500,2505,2508,2513,2518,2523,2528,2533,2538,2541, & - 2546,2551,2554,2557,2563,2567,2572,2577,2582,2585,2590,2593, & - 2598,2601,2604,2609,2612,2617,2622,2625,2628,2633,2638,2641, & - 2646,2651,2656,2659,2662,2667,2670,2675,2681,2684,2689,2692, & - 2695,2698,2701,2706,2711,2716,2719,2724,2727,2732,2735,2740, & - 2743,2748,2753,2756,2759,2762,2767,2772,2777,2780,2785,2790, & - 2795,2800,2805,2810,2815,2818,2823,2828,2833,2838,2841,2844 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_CROW_2 = (/ & - 2849,2854,2859,2862,2867,2870,2875,2880,2885,2890,2895,2900, & - 2903,2908,2913,2919,2923,2928,2931,2936,2941,2946,2949,2954, & - 2959,2964,2969,2974,2979,2984,2989,2994,2997,3002,3005,3010, & - 3015,3018,3021,3024,3030,3035,3038,3041,3044,3049,3052,3055, & - 3060,3063,3068,3071,3074,3079,3084,3089,3094,3099,3104,3107, & - 3112,3117,3122,3127,3132,3135,3140,3145,3148,3151,3154,3159, & - 3164,3167,3170,3175,3178,3183,3188,3191,3196,3201,3206,3209, & - 3212,3215,3218,3221,3226,3231,3236,3239,3242,3245,3250,3255, & - 3260,3265,3270,3273,3278,3281,3285,3289,3293,3297,3301,3305, & - 3309,3313,3317,3321,3325,3329,3333,3337,3341,3345,3349,3353, & - 3357,3361,3365,3369,3373,3377,3381,3385,3389,3393,3397,3401, & - 3405,3409,3413,3417,3421,3425,3429,3433,3437,3441,3445,3449, & - 3453,3457,3461,3465,3469,3473,3477,3481,3485,3489,3493,3497, & - 3501,3505,3509,3513,3517,3521,3525,3529,3533,3537,3541,3545, & - 3549,3553,3557,3561,3565,3569,3573,3577,3581,3585,3589,3593, & - 3597,3601,3605,3609,3613,3617,3621,3625,3629,3633,3637,3643, & - 3647,3651,3655,3659,3663,3667,3671,3675,3679,3683,3687,3691, & - 3695,3699,3703,3707,3711,3715,3719,3723,3727,3731,3735,3739, & - 3743,3747,3751,3755,3759,3763,3767,3771,3775,3779,3783,3787, & - 3791,3795,3799,3803,3807,3811,3815,3819,3823,3827,3831,3835, & - 3839,3843,3847,3851,3855,3859,3863,3867,3871,3875,3879,3883, & - 3887,3891,3895,3899,3903,3907,3911,3915,3919,3923,3927,3931, & - 3935,3939,3943,3947,3951,3955,3959,3963,3967,3971,3975,3979, & - 3983,3987,3991,3995,3999,4003,4007,4011,4015,4019,4023,4027, & - 4031,4035,4039,4043,4047,4051,4055,4059,4063,4067,4071,4075, & - 4079,4083,4087,4091,4095,4099,4103,4107,4111,4115,4119,4123, & - 4127,4131,4135,4139,4143,4147,4151,4155,4161,4165,4169,4173, & - 4177,4181,4185,4189,4193,4197,4201,4205,4209,4213,4217,4221, & - 4225,4229,4233,4237,4241,4245,4249,4253,4257,4261,4265,4269, & - 4273,4277,4281,4285,4289,4293,4297,4301,4305,4309,4313,4317 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_CROW_3 = (/ & - 4321,4325,4329,4333,4337,4341,4345,4349,4353,4357,4361,4365, & - 4369,4373,4377,4381,4385,4389,4393,4397,4401,4405,4409,4413, & - 4417,4421,4425,4429,4433,4437,4441,4445,4449,4453,4457,4461, & - 4465,4469,4473,4477,4481,4485,4489,4493,4497,4501,4505,4509, & - 4513,4517,4521,4525,4529,4535,4539,4543,4547,4551,4555,4559, & - 4563,4567,4571,4575,4579,4583,4587,4591,4595,4599,4603,4607, & - 4611,4615,4619,4623,4627,4631,4635,4639,4643,4647,4651,4655, & - 4659,4663,4667,4671,4675,4679,4683,4687,4691,4695,4699,4703, & - 4707,4711,4715,4719,4723,4727,4731,4735,4739,4743,4747,4751, & - 4755,4759,4763,4767,4771,4775,4779,4783,4787,4791,4795,4799, & - 4803,4807,4811,4815,4819,4823,4827,4831,4835,4839,4843,4847, & - 4851,4855,4859,4863,4867,4871,4875,4879,4883,4887,4891,4895, & - 4899,4903,4907,4911,4915,4919,4923,4929,4933,4937,4941,4945, & - 4949,4953,4957,4961,4965,4969,4973,4977,4981,4985,4989,4993, & - 4997,5001,5005,5009,5013,5017,5021,5025,5029,5034,5038,5042, & - 5046,5050,5054,5058,5062,5066,5070,5074,5078,5082,5086,5090, & - 5094,5098,5102,5106,5110,5114,5118,5122,5126,5130,5134,5138, & - 5142,5146,5150,5154,5158,5162,5166,5170,5174,5178,5182,5186, & - 5190,5194,5198,5202,5206,5210,5214,5218,5222,5226,5230,5234, & - 5238,5242,5246,5250,5254,5258,5262,5266,5270,5274,5278,5282, & - 5286,5290,5294,5298,5302,5306,5310,5314,5318,5322,5326,5330, & - 5334,5338,5342,5346,5350,5354,5358,5362,5366,5370,5374,5378, & - 5382,5386,5390,5394,5398,5402,5406,5410,5414,5418,5422,5426, & - 5430,5434,5438,5442,5446,5450,5454,5458,5462,5466,5470,5474, & - 5478,5482,5486,5490,5495,5499,5503,5507,5511,5515,5519,5523, & - 5527,5531,5535,5539,5543,5547,5551,5555,5559,5563,5567,5571, & - 5575,5579,5583,5587,5591,5595,5599,5603,5607,5611,5615,5619, & - 5623,5627,5631,5635,5639,5643,5647,5651,5655,5659,5663,5667, & - 5671,5675,5679,5683,5687,5691,5695,5699,5703,5707,5711,5715, & - 5719,5723,5727,5731,5735,5739,5743,5747,5751,5755,5759,5763 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_CROW_4 = (/ & - 5767,5771,5775,5779,5783,5787,5791,5795,5799,5803,5807,5811, & - 5815,5819,5823,5827,5831,5835,5839,5843,5847,5851,5855,5859, & - 5863,5867,5871,5875,5879,5883,5887,5891,5895,5899,5903,5907, & - 5911,5915,5919,5923,5927,5931,5935,5941,5945,5949,5953,5957, & - 5961,5965,5969,5973,5977,5982,5986,5990,5994,5998,6002,6006, & - 6010,6014,6018,6022,6026,6030,6034,6038,6042,6046,6050,6054, & - 6058,6062,6066,6070,6074,6078,6082,6086,6090,6094,6098,6102, & - 6106,6110,6114,6118,6122,6126,6130,6134,6138,6142,6146,6150, & - 6154,6158,6162,6166,6170,6174,6178,6182,6186,6190,6194,6198, & - 6201,6204,6212,6216,6222,6228,6231,6234,6241,6244,6247,6253, & - 6256,6259,6262,6268,6274,6281,6284,6287,6293,6296,6299,6302, & - 6310,6314,6320,6323,6326,6329,6332,6340,6343,6350,6353,6359, & - 6362,6365,6368,6371,6374,6377,6385,6389,6395,6401,6404,6410, & - 6413,6419,6422,6425,6428,6431,6434,6437,6445,6453,6461,6469, & - 6477,6480,6485,6488,6491,6494,6500,6503,6509,6517,6520,6523, & - 6531,6534,6542,6545,6553,6556,6559,6565,6573,6577,6580,6587, & - 6590,6593,6599,6602,6605,6608,6614,6617,6624,6627,6630,6636, & - 6639,6645,6648,6651,6659,6663,6669,6672,6680,6683,6690,6693, & - 6701,6705,6708,6711,6719,6725,6731,6737,6740,6743,6746,6752, & - 6755,6758,6761,6764,6767,6770,6773,6781,6784,6791,6794,6800, & - 6808,6811,6814,6817,6823,6827,6830,6833,6836,6844,6847,6854, & - 6860,6863,6866,6872,6880,6883,6886,6892,6895,6898,6904,6907, & - 6910,6913,6920,6923,6926,6929,6937,6940,6945,6953,6961,6967, & - 6970,6973,6976,6979,6985,6991,6994,7001,7007,7013,7016,7024, & - 7031,7034,7037,7040,7048,7051,7054,7057,7064,7070,7077,7085, & - 7088,7094,7097,7103,7106,7114,7117,7120,7125,7129,7137,7141, & - 7145,7149,7158,7166,7172,7176,7180,7184,7189,7194,7198,7203, & - 7208,7213,7217,7221,7225,7230,7234,7238,7242,7250,7254,7258, & - 7261,7264,7268,7272,7276,7284,7289,7293,7297,7302,7306,7311, & - 7315,7324,7329,7334,7342,7346,7350,7354,7362,7366,7370,7378 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_CROW_5 = (/ & - 7382,7386,7390,7399,7403,7407,7412,7416,7421,7425,7430,7434, & - 7443,7447,7455,7460,7464,7468,7477,7481,7489,7497,7505,7509, & - 7513,7518,7523,7528,7533,7537,7541,7545,7550,7558,7563,7567, & - 7571,7575,7583,7587,7591,7595,7599,7604,7608,7612,7616,7624, & - 7629,7633,7637,7641,7650,7653,7657,7661,7665,7668,7673,7677, & - 7685,7689,7693,7697,7701,7709,7714,7722,7726,7730,7738,7742, & - 7747,7751,7755,7758,7762,7767,7771,7775,7779,7783,7788,7792, & - 7796,7800,7804,7808,7812,7816,7820,7825,7830,7835,7840,7844, & - 7848,7852,7856,7860,7864,7868,7872,7880,7884,7888,7896,7900, & - 7904,7908,7916,7920,7924,7930,7934,7939,7942,7946,7950,7954, & - 7958,7962,7966,7974,7979,7983,7987,7992,7995,8000,8004,8012, & - 8016,8020,8023,8027,8031,8035,8039,8043,8047,8051,8059,8063, & - 8068,8076,8080,8084,8088,8092,8096,8101,8105,8111,8115,8120, & - 8124,8129,8133,8136,8141,8149,8158,8162,8166,8170,8174,8179, & - 8183,8187,8191,8199,8203,8207,8211,8220,8225,8230,8234,8238, & - 8242,8245,8249,8254,8263,8267,8275,8279,8282,8291,8295,8298, & - 8302,8306,8310,8315,8319,8323,8331,8335,8344,8348,8352,8356, & - 8361,8366,8370,8374,8379,8383,8387,8392,8397,8400,8404,8412, & - 8416,8420,8424,8428,8432,8437,8441,8446,8451,8455,8459,8463, & - 8467,8472,8480,8488,8492,8501,8505,8514,8518,8523,8527,8531, & - 8535,8543,8546,8550,8554,8558,8562,8566,8570,8574,8582,8587, & - 8591,8595,8599,8603,8612,8616,8620,8624,8632,8636,8640,8644, & - 8648,8652,8657,8662,8666,8670,8674,8678,8682,8690,8694,8698, & - 8706,8710,8714,8718,8722,8726,8730,8734,8738,8743,8747,8751, & - 8759,8763,8768,8772,8776,8780,8784,8788,8793,8797,8801,8805, & - 8813,8817,8822,8826,8829,8833,8837,8841,8845,8849,8853,8857, & - 8862,8866,8870,8874,8878,8883,8886,8892,8896,8900,8908,8912, & - 8916,8920,8924,8928,8932,8935,8939,8943,8948,8952,8957,8961, & - 8965,8969,8973,8977,8982,8988,8992,8997,9001,9006,9010,9014, & - 9017,9021,9025,9029,9033,9037,9043,9047,9051,9055,9060,9064 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_CROW_6 = (/ & - 9068,9072,9077,9085,9089,9093,9097,9101,9105,9109,9114,9118, & - 9122,9130,9134,9138,9142,9147,9151,9155,9159,9164,9168,9172, & - 9177,9181,9186,9190,9194,9198,9207,9211,9215,9219,9223,9227, & - 9231,9236,9240,9244,9249,9254,9258,9263,9267,9271,9275,9284, & - 9288,9294,9299,9303,9306,9310,9314,9318,9322,9326,9330,9334, & - 9338,9342,9347,9351,9355,9360,9368,9372,9376,9381,9386,9391, & - 9395,9399,9404,9408,9412,9416,9421,9425,9429,9433,9437,9441, & - 9445,9449,9453,9457,9461,9466,9470,9474,9478,9482,9486,9491, & - 9495,9499,9502,9506,9510,9514,9518,9522,9526,9531,9535,9539, & - 9543,9547,9551,9555,9560,9566,9570,9574,9579,9583,9588,9593, & - 9597,9601,9605,9610,9618,9622,9625,9630,9635,9639,9643,9647, & - 9651,9660,9664,9670,9674,9679,9683,9687,9691,9695,9699,9703, & - 9711,9715,9719,9723,9727,9731,9735,9739,9743,9747,9751,9757, & - 9761,9765,9769,9773,9777,9781,9789,9794,9802,9806,9813,9817, & - 9821,9825,9829,9833,9837,9841,9849,9853,9856,9860,9864,9868, & - 9873,9877,9881,9886,9889,9892,9896,9900,9904,9908,9912,9916, & - 9920,9925,9929,9933,9940,9943,9947,9950,9954,9962,9966,9970, & - 9975,9979,9983,9988,9992,9996,10001,10005,10009,10013,10021,10025, & - 10030,10039,10043,10048,10052,10058,10061,10065,10069,10072,10076,10080, & - 10084,10088,10092,10096,10100,10103,10107,10112,10116,10120,10124,10132, & - 10136,10140,10144,10148,10152,10156,10160,10164,10168,10172,10176,10180, & - 10184,10188,10192,10201,10205,10209,10213,10217,10221,10225,10229,10233, & - 10237,10240,10244,10248,10252,10256,10261,10265,10269,10274,10278,10282, & - 10286,10290,10295,10299,10303,10308,10312,10316,10320,10324,10328,10333, & - 10338,10342,10346,10350,10359,10363,10367,10371,10375,10384,10388,10392, & - 10396,10400,10404,10408,10412,10421,10425,10430,10433,10437,10440,10449, & - 10452,10462,10465,10468,10471,10474,10478,10481,10493,10496,10499,10502, & - 10505,10508,10512,10515,10524,10527,10536,10539,10547,10554,10558,10566, & - 10570,10574,10578,10582,10586,10590,10597,10601,10605,10609,10616,10620, & - 10627,10631,10635,10639,10647,10651,10655,10659,10666,10670,10674,10678 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_CROW_7 = (/ & - 10682,10690,10694,10698,10702,10706,10713,10717,10726,10730,10734,10738, & - 10742,10746,10750,10757,10764,10768,10772,10780,10784,10788,10792,10796, & - 10800,10808,10812,10818,10824,10831,10838,10845,10849,10853,10857,10861, & - 10865,10872,10876,10880,10884,10891,10900,10907,10911,10915,10922,10926, & - 10930,10934,10938,10942,10946,10950,10960,10967,10971,10978,10985,10989, & - 10993,11000,11004,11008,11012,11016,11023,11027,11034,11043,11047,11054, & - 11061,11065,11074,11082,11089,11093,11100,11107,11111,11115,11119,11123, & - 11130,11134,11138,11145,11149,11153,11157,11161,11165,11169,11177,11181, & - 11185,11189,11193,11197,11201,11205,11209,11216,11220,11224,11228,11232, & - 11236,11240,11244,11248,11252,11256,11265,11269,11273,11277,11286,11293, & - 11297,11304,11313,11317,11326,11332,11340,11348,11352,11356,11360,11364, & - 11368,11372,11376,11380,11384,11388,11392,11400,11404,11408,11416,11420, & - 11424,11429,11433,11440,11447,11451,11455,11459,11463,11467,11471,11475, & - 11482,11486,11490,11497,11503,11507,11514,11518,11522,11526,11530,11534, & - 11538,11542,11546,11550,11557,11561,11568,11572,11576,11585,11589,11597, & - 11601,11605,11609,11613,11617,11621,11628,11635,11639,11643,11651,11657, & - 11661,11665,11670,11674,11683,11690,11694,11704,11711,11715,11723,11727, & - 11734,11738,11742,11746,11753,11757,11761,11768,11775,11782,11788,11792, & - 11799,11803,11807,11814,11818,11825,11829,11833,11840,11848,11856,11863, & - 11867,11874,11881,11888,11895,11899,11903,11907,11911,11915,11922,11926, & - 11933,11937,11944,11948,11952,11956,11960,11968,11975,11979,11986,11993, & - 11997,12006,12010,12014,12022,12026,12030,12034,12038,12042,12046,12052, & - 12056,12060,12064,12068,12075,12083,12087,12091,12095,12099,12103,12110, & - 12114,12118,12125,12129,12133,12137,12141,12145,12149,12153,12160,12166, & - 12170,12176,12180,12184,12188,12192,12196,12200,12207,12211,12218,12225, & - 12232,12239,12243,12247,12251,12255,12264,12271,12275,12279,12283,12290, & - 12297,12301,12305,12309,12313,12320,12324,12328,12335,12339,12343,12347, & - 12351,12355,12359,12367,12371,12378,12382,12389,12393,12400,12406,12410, & - 12420,12424,12431,12435,12439,12445,12449,12453,12457,12464,12468,12472, & - 12476,12483,12487,12491,12495,12499,12506,12512,12516,12520,12524,12528 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_CROW_8 = (/ & - 12532,12539,12543,12547,12551,12555,12559,12563,12567,12575,12582,12590, & - 12594,12598,12605,12609,12613,12620,12624,12628,12632,12636,12643,12650, & - 12654,12661,12669,12673,12677,12689,12695,12699,12706,12710,12717,12721, & - 12728,12732,12739,12746,12750,12754,12762,12766,12770,12774,12782,12787, & - 12791,12795,12799,12806,12811,12820,12824,12831,12836,12843,12852,12860, & - 12864,12868,12872,12876,12883,12887,12894,12898,12902,12910,12914,12918, & - 12925,12934,12942,12946,12950,12954,12958,12965,12972,12979,12986,12993, & - 12997,13008,13013,13021,13028,13032,13036,13040,13047,13054,13062,13066, & - 13070,13074,13078,13087,13091,13095,13104,13111,13115,13119,13126,13130, & - 13134,13141,13149,13153,13159,13163,13171,13178,13186,13193,13197,13201, & - 13210,13217,13221,13225,13232,13236,13240,13244,13248,13257,13261,13265, & - 13269,13278,13282,13286,13293,13297,13301,13305,13309,13313,13317,13321, & - 13325,13329,13333,13341,13348,13352,13359,13363,13371,13375,13379,13383, & - 13390,13397,13401,13408,13412,13420,13424,13428,13432,13436,13440,13444, & - 13452,13456,13464,13468,13472,13476,13483,13487,13491,13497,13504,13508, & - 13512,13516,13523,13527,13534,13541,13549,13556,13560,13568,13572,13579, & - 13586,13593,13600,13604,13608,13612,13616,13623,13631,13635,13643,13649, & - 13652,13657,13664,13669,13674,13682,13688,13696,13701,13706,13711,13716, & - 13719,13722,13727,13732,13737,13742,13747,13755,13765,13768,13773,13780, & - 13784,13792,13800,13805,13810,13813,13818,13824,13829,13837,13845,13850, & - 13855,13863,13871,13876,13883,13888,13896,13901,13918,13921,13925,13929, & - 13937,13942,13945,13949,13953,13958,13961,13965,13970,13975,13980,13985, & - 13988,13991,13996,13999,14007,14011,14016,14023,14028,14033,14036,14039, & - 14047,14051,14055,14060,14063,14068,14073,14078,14082,14087,14095,14100, & - 14108,14111,14116,14123,14127,14132,14140,14145,14152,14156,14161,14164, & - 14168,14173,14176,14183,14190,14197,14202,14207,14212,14217,14222,14227, & - 14230,14234,14242,14253,14257,14261,14265,14269,14275,14279,14283,14287, & - 14291,14295,14299,14303,14307,14311,14315,14319,14323,14334,14338,14346, & - 14350,14354,14358,14364,14368,14372,14376,14380,14384,14388,14392,14396, & - 14401,14405,14410,14414,14418,14433,14441,14445,14449,14453,14457,14461 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_CROW_9 = (/ & - 14465,14474,14491,14495,14501,14509,14520,14530,14534,14538,14542,14547, & - 14555,14559,14563,14570,14574,14578,14582,14586,14590,14594,14599,14605, & - 14609,14613,14617,14621,14630,14638,14649,14653,14657,14661,14665,14669, & - 14673,14677,14681,14685,14689,14697,14701,14712,14722,14726,14730,14734, & - 14738,14742,14746,14750,14754,14758,14762,14766,14777,14781,14785,14789, & - 14793,14801,14805,14809,14813,14821,14825,14829,14833,14839,14843,14847, & - 14851,14855,14859,14863,14867,14871,14875,14879,14883,14887,14891,14895, & - 14899,14903,14907,14911,14917,14924,14932,14942,14950,14958,14963,14970, & - 14976,14985,14992,14999,15003,15009,15017,15027,15035,15043,15050,15057, & - 15066,15072,15081,15088,15095,15099,15106,15114,15121,15125,15130,15137, & - 15141,15148,15155,15162,15168,15177,15183,15191,15201,15211,15218,15225, & - 15235,15245,15254,15261,15267,15275,15282,15286,15293,15300,15307,15314, & - 15324,15331,15339,15345,15352,15361,15368,15376,15382,15390,15397,15404, & - 15411,15422,15430,15436,15443,15449,15456,15465,15473,15481,15488,15495, & - 15501,15507,15514,15522,15532,15538,15545,15552,15560,15567,15573,15578, & - 15588,15595,15602,15609,15617,15625,15632,15636,15643,15651,15659,15668, & - 15674,15682,15691,15695,15699,15703,15707,15711,15720,15724,15728,15732, & - 15736,15740,15744,15748,15752,15756,15762,15766,15770,15774,15779,15783, & - 15793,15797,15801,15805,15809,15819,15823,15827,15831,15835,15839,15843, & - 15847,15851,15856,15860,15864,15868,15878,15882,15887,15893,15906,15913, & - 15917,15923,15928,15935,15940,15944,15952,15956,15962,15969,15974,15981, & - 15987,15995,16000,16004,16009,16021,16030,16035,16041,16045,16051,16058, & - 16066,16074,16079,16085,16090,16096,16102,16109,16114,16120,16130,16136, & - 16154,16159,16166,16171,16176,16182,16190,16196,16200,16206,16212,16219, & - 16223,16229,16239,16246,16252,16256,16263,16273,16286,16294,16301,16308, & - 16312,16325,16335,16342,16350,16355,16361,16371,16379,16385,16389,16394, & - 16398,16404,16411,16417,16427,16439,16446,16452,16457,16467,16474,16480, & - 16488,16496,16502,16510,16517,16525,16533,16541,16548,16556,16563,16570, & - 16578,16585,16593,16600,16609,16617,16624,16634,16642,16649,16656,16663, & - 16671,16679,16691,16700,16707,16715,16725,16733,16740,16747,16754,16764 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_CROW_10 = (/ & - 16772,16782,16791,16799,16808,16816,16824,16834,16841,16851,16859,16867, & - 16875,16883,16891,16899,16909,16927,16931,16948,16952,16956,16961,16965, & - 16969,16973,16991,16998,17005,17016,17024,17031,17038,17044,17049,17056, & - 17061,17067,17087,17101,17111,17118,17131,17141,17153,17163,17168,17176, & - 17183,17193,17200,17211,17221,17229,17234,17244,17255,17265,17270,17277, & - 17282,17292,17297,17304,17314,17321,17329,17337,17345,17352,17358,17366, & - 17373,17381,17389,17396,17404,17411,17419,17427,17435,17443,17451,17461, & - 17466,17474,17482,17489,17499,17509,17518,17527,17534,17541,17551,17558, & - 17565,17572,17580,17587,17594,17599,17603,17611,17619,17626,17634,17638, & - 17645,17653,17663,17670,17678,17685,17693,17701,17711,17719,17728,17736, & - 17745,17753,17761,17769,17778,17785,17797,17804,17811,17819,17827,17836, & - 17844,17850,17860,17869,17878,17886,17894,17901,17908,17919,17928,17936, & - 17943,17952,17960,17973,17985,17994,18002,18011,18018,18026,18035,18045, & - 18055,18064,18072,18083,18092,18101,18108,18117,18125,18133,18141,18148, & - 18156,18164,18171,18179,18186,18198,18205,18217,18227,18236,18244,18252, & - 18262,18270,18278,18287,18296,18304,18311,18320,18327,18335,18341,18348, & - 18353,18365,18371,18379,18386,18394,18401,18408,18418,18424,18433,18439, & - 18445,18453,18458,18464,18471,18483,18490,18496,18504,18511,18518,18525, & - 18534,18541,18550,18556,18563,18578,18586,18592,18600,18607,18616,18623, & - 18630,18638,18643,18648,18652,18657,18662,18666,18673,18680,18690,18698, & - 18705,18713,18720,18730,18737,18747,18757,18764,18771,18787,18794,18803, & - 18809,18816,18826,18835,18844,18853,18861,18869,18878,18887,18895,18902, & - 18911,18918,18925,18931,18944,18952,18961,18971,18978,18986,18995,19004, & - 19011,19021,19028,19039,19049,19059,19068,19075,19082,19090,19097,19104, & - 19113,19121,19130,19137,19145,19153,19161,19168,19179,19186,19193,19201, & - 19210,19219,19227,19234,19241,19251,19259,19266,19273,19280,19287,19298, & - 19308,19316,19327,19338,19348,19359,19374,19384,19391,19398,19405,19415, & - 19425,19432,19442,19448,19455,19466,19475,19483,19492,19501,19508,19517, & - 19523,19531,19539,19546,19553,19563,19570,19577,19584,19591,19602,19612, & - 19620,19627,19634,19643,19650,19658,19667,19676,19683,19692,19703,19714 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_CROW_11 = (/ & - 19721,19729,19736,19742,19751,19760,19766,19775,19784,19791,19798,19805, & - 19813,19821,19828,19836,19844,19854,19867,19876,19883,19893,19900,19907, & - 19915,19922,19933,19940,19947,19956,19962,19971,19980,19991,19998,20008, & - 20013,20021,20032,20040,20052,20060,20068,20074,20082,20094,20102,20110, & - 20118,20126,20131,20139,20150,20163,20180,20189,20197,20202,20207,20216, & - 20224,20232,20240,20248,20257,20265,20275,20280,20287,20296,20303,20311, & - 20316,20324,20332,20340,20348,20356,20367,20375,20383,20395,20409,20418, & - 20426,20437,20450,20462,20476,20484,20494,20509,20520,20531,20539,20545, & - 20550,20558,20568,20577,20590,20598,20607,20615,20623,20631,20636,20644, & - 20651,20660,20667,20675,20683,20691,20698,20706,20714,20724,20733,20741, & - 20746,20755,20763,20768,20780,20788,20797,20805,20814,20825,20832,20839, & - 20853,20858,20863,20870,20875,20882,20892,20900,20909,20920,20930,20941, & - 20957,20966,20973,20978,20985,21001,21012,21018,21025,21030,21038,21046, & - 21054,21061,21070,21080,21090,21098,21109,21117,21124,21137,21145,21153, & - 21160,21167,21176,21184,21193,21200,21207,21214,21222,21232,21241,21250, & - 21257,21263,21270,21277,21284,21291,21297,21305,21312,21319,21329,21337, & - 21348,21356,21369,21377,21382,21393,21401,21407,21415,21423,21432,21440, & - 21451,21457,21465,21472,21482,21492,21501,21508,21517,21526,21534,21549, & - 21556,21565,21576,21587,21594,21610,21621,21637,21645,21652,21664,21673, & - 21682,21693,21702,21710,21719,21728,21737,21746,21759,21768,21777,21791, & - 21800,21809,21820,21830,21839,21848,21857,21867,21878,21887,21896,21906, & - 21915,21923,21935,21944,21958,21967,21979,21991,22004,22017,22027,22038, & - 22050,22059,22072,22082,22093,22103,22113,22125,22134,22144,22154,22165, & - 22174,22183,22193,22206,22215,22228,22237,22247,22256,22265,22274,22282, & - 22300,22308,22316,22327,22336,22349,22359,22368,22378,22389,22397,22406, & - 22416,22428,22437,22448,22456,22465,22475,22486,22495,22505,22515,22524, & - 22529,22538,22548,22557,22566,22576,22592,22603,22612,22621,22629,22638, & - 22648,22657,22665,22674,22683,22692,22705,22714,22723,22732,22755,22768, & - 22777,22786,22795,22808,22820,22830,22838,22847,22856,22865,22874,22883, & - 22896,22906,22918,22929,22938,22953,22962,22974,22985,22994,23003,23016 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_CROW_12 = (/ & - 23024,23030,23041,23049,23062,23077,23088,23096,23107,23121,23126,23152, & - 23156,23167,23174,23182,23190,23197,23206,23212,23221,23227,23235,23245, & - 23254,23263,23271,23278,23286,23294,23303,23310,23325,23331,23338,23346, & - 23354,23361,23368,23376,23386,23394,23402,23411,23418,23429,23453,23461, & - 23468,23476,23483,23490,23496,23506,23515,23524,23538,23545,23553,23561, & - 23570,23578,23584,23599,23607,23618,23633,23641,23650,23658,23666,23683, & - 23703,23711,23721,23725,23732,23739,23754,23763,23771,23784,23794,23840, & - 23851,23860,23871,23881,23891,23901,23911,23923,23933,23943,23952,23961, & - 23970,23982,23992,24004,24016,24027,24036,24052,24061,24070,24089,24099, & - 24108,24119,24131,24143,24153,24163,24172,24183,24192,24202,24212,24222, & - 24231,24244,24257,24269,24279,24289,24298,24309,24320,24334,24346,24355, & - 24365,24375,24385,24394,24404,24414,24423,24432,24443,24454,24463,24472, & - 24481,24491,24501,24510,24520,24530,24540,24550,24559,24568,24572,24576, & - 24585,24597,24609,24619,24628,24640,24661,24672,24682,24697,24709,24719, & - 24730,24742,24759,24778,24782,24807,24817,24827,24837,24850,24859,24869, & - 24878,24892,24901,24912,24922,24929,24938,25015,25019,25029,25041,25050, & - 25054,25064,25074,25084,25093,25103,25113,25124,25134,25146,25156,25166, & - 25183,25195,25203,25207,25223,25230,25240,25251,25262,25273,25286,25294, & - 25311,25324,25334,25346,25364,25373,25382,25392,25404,25419,25429,25444, & - 25456,25467,25479,25488,25500,25511,25518,25522,25532,25544,25551,25564, & - 25578,25585,25594,25602,25617,25625,25632,25641,25649,25663,25669,25677, & - 25685,25692,25699,25706,25717,25727,25733,25740,25751,25759,25767,25775, & - 25782,25790,25797,25805,25819,25826,25834,25851,25865,25872,25880,25888, & - 25896,25905,25912,25920,25924,25928,25979,25989,25993,25997,26001,26010, & - 26019,26025,26032,26042,26055,26066,26078,26083,26089,26094,26121,26132, & - 26145,26153,26178,26187,26202,26211,26221,26230,26239,26249,26259,26272, & - 26283,26293,26302,26312,26321,26329,26339,26349,26359,26369,26379,26388, & - 26403,26412,26420,26430,26441,26451,26459,26475,26485,26494,26504,26513, & - 26523,26532,26545,26555,26564,26573,26583,26594,26611,26620,26637,26648, & - 26656,26668,26678,26689,26703,26716,26725,26736,26747,26755,26762,26772 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_CROW_13 = (/ & - 26782,26792,26803,26813,26822,26832,26845,26859,26869,26879,26890,26897, & - 26907,26991,27012,27018,27026,27034,27043,27050,27058,27065,27074,27080, & - 27086,27093,27100,27107,27128,27135,27154,27160,27167,27174,27183,27190, & - 27197,27207,27214,27224,27231,27261,27271,27279,27289,27296,27308,27315, & - 27332,27358,27366,27375,27381,27389,27399,27405,27416,27429,27440,27452, & - 27467,27479,27491,27502,27511,27524,27533,27551,27567,27582,27592,27603, & - 27617,27629,27638,27652,27661,27671,27676,27691,27712,27721,27730,27743, & - 27758,27766,27775,27786,27808,27822,27832,27842,27853,27865,27874,27889, & - 27897,27905,27913,27922,27930,27938,27947,27953,27961,27969,27974,27984, & - 27995,28006,28017,28028,28044,28054,28059,28068,28150,28161,28174,28185, & - 28193,28226,28234,28241,28251,28257,28270,28280,28290,28300,28311,28321, & - 28335,28346,28354,28368,28377,28387,28396,28404,28414,28421,28435,28456, & - 28464,28472,28483,28494,28502,28512,28524,28542,28551,28561,28576,28583, & - 28593,28603,28613,28630,28634,28651,28676,28686,28699,28713,28725,28742, & - 28753,28769,28791,28809,28822,28838,28852,28866,28877,28890,28900,28911, & - 28922,28933,28945,28959,28976,28996,29007,29021,29031,29041,29056,29074, & - 29088,29102,29118,29132,29139,29146,29154,29162,29169,29177,29190,29201, & - 29210,29220,29228,29240,29250,29260,29272,29281,29291,29303,29311,29322, & - 29333,29345,29358,29369,29379,29392,29412,29422,29455,29467,29475,29480, & - 29490,29524,29545,29556,29566,29583,29595,29608,29629,29644,29679,29689, & - 29702,29718,29726,29736,29757,29765,29776,29787,29794,29816,29830,29865, & - 29872,29882,29891,29902,29916,29924,30014,30037,30059,30072,30089,30106, & - 30131,30136,30145,30174,30184,30204,30213,30228,30241,30256,30271,30280, & - 30293,30302,30334,30351,30362,30378,30391,30404,30426,30442,30461,30472, & - 30481,30496,30504,30511,30518,30551,30559,30572,30577,30589,30606,30618, & - 30631,30651,30661,30703,30715,30732,30760,30770,30774,30790,30801,30827, & - 30838,30847,30858,30884,30901,30913,30924,30935,30981,31013,31018,31031, & - 31058,31071,31099,31117,31132,31149,31165,31192,31213,31219,31234,31241, & - 31259,31275,31292,31302,31315,31327,31336,31374,31383,31391,31418,31431, & - 31440,31460,31469,31513,31522,31530,31547,31556,31574,31596,31627,31648 /) - INTEGER, PARAMETER, DIMENSION(219) :: LU_CROW_14 = (/ & - 31658,31670,31685,31697,31712,31720,31814,31826,31835,31848,31859,31864, & - 31880,31901,31917,31943,31951,31975,31997,32036,32056,32064,32085,32099, & - 32115,32122,32136,32156,32170,32181,32197,32225,32240,32258,32267,32278, & - 32287,32295,32309,32332,32371,32378,32386,32405,32419,32451,32492,32520, & - 32531,32548,32560,32572,32581,32595,32626,32648,32659,32680,32717,32734, & - 32768,32798,32818,32832,32859,32879,32925,32932,32943,32951,32982,33003, & - 33012,33030,33042,33060,33077,33100,33110,33120,33133,33157,33173,33210, & - 33226,33302,33324,33337,33355,33391,33417,33441,33447,33462,33481,33495, & - 33524,33574,33581,33717,33737,33759,33831,33898,33907,33960,33967,33984, & - 34004,34029,34048,34069,34118,34128,34136,34154,34177,34198,34253,34266, & - 34517,34551,34575,34590,34620,34663,34667,34686,34697,34718,34753,34787, & - 34821,34834,34843,34854,34883,34911,34965,35009,35050,35057,35146,35359, & - 35419,35439,35446,35456,35569,35588,35597,35706,35719,36012,36047,36110, & - 36126,36185,36202,36276,36296,36763,36804,36855,36864,36879,36891,36911, & - 36939,36963,37038,37082,37098,37121,37200,37228,37283,37292,37303,37315, & - 37333,37371,37672,37730,37748,37786,37822,37836,37977,38018,38089,38791, & - 38941,39194,39343,39402,39418,39494,39540,39566,39597,39685,39770,39822, & - 40452,40474,40510,40541,40571,40586,45065,46590,47941,50217,50325,53216, & - 54817,54839,55273 /) - INTEGER, PARAMETER, DIMENSION(5259) :: LU_CROW = (/& - LU_CROW_0, LU_CROW_1, LU_CROW_2, LU_CROW_3, LU_CROW_4, & - LU_CROW_5, LU_CROW_6, LU_CROW_7, LU_CROW_8, LU_CROW_9, & - LU_CROW_10, LU_CROW_11, LU_CROW_12, LU_CROW_13, LU_CROW_14 /) - - INTEGER, PARAMETER, DIMENSION(360) :: LU_DIAG_0 = (/ & - 1, 4, 6, 58, 60, 63, 65, 67, 69, 73, 77, 79, & - 82, 85, 90, 93, 98,101,104,107,110,113,116,119, & - 122,127,130,133,136,139,142,145,148,151,154,159, & - 164,167,170,173,176,179,184,189,194,199,202,205, & - 208,213,218,223,226,229,232,235,238,243,246,249, & - 252,255,258,261,264,269,274,277,280,285,288,291, & - 294,297,300,303,308,311,316,319,324,327,332,335, & - 338,341,344,347,352,355,358,363,368,371,374,377, & - 382,387,390,393,396,399,402,405,408,411,414,419, & - 422,425,428,431,434,439,442,447,452,457,460,463, & - 468,472,475,478,481,486,489,492,495,498,503,506, & - 511,514,517,520,523,526,531,534,539,544,547,550, & - 553,558,563,566,569,575,581,588,594,600,606,612, & - 618,624,630,636,642,648,655,662,668,674,680,686, & - 693,700,706,712,718,724,730,736,742,748,754,760, & - 766,768,774,780,786,792,798,804,810,816,822,828, & - 834,840,846,852,858,864,866,872,878,884,890,897, & - 903,910,916,920,923,926,931,938,941,944,947,951, & - 955,958,961,964,967,970,974,977,980,983,986,990, & - 993,996,1000,1003,1007,1010,1013,1016,1019,1023,1026,1029, & - 1033,1037,1040,1043,1046,1049,1052,1055,1058,1061,1063,1067, & - 1071,1075,1082,1086,1089,1092,1096,1099,1103,1107,1110,1113, & - 1117,1121,1124,1127,1130,1133,1136,1143,1147,1150,1153,1157, & - 1161,1164,1167,1170,1174,1177,1181,1184,1187,1190,1193,1197, & - 1200,1204,1211,1215,1218,1221,1225,1228,1232,1239,1242,1245, & - 1252,1256,1259,1262,1265,1268,1271,1274,1277,1281,1284,1287, & - 1290,1293,1297,1304,1307,1311,1315,1318,1321,1324,1328,1332, & - 1336,1340,1347,1350,1354,1358,1362,1365,1368,1371,1374,1377, & - 1380,1383,1386,1389,1392,1396,1399,1403,1406,1409,1412,1415, & - 1418,1421,1424,1428,1431,1434,1437,1440,1443,1446,1449,1452 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_DIAG_1 = (/ & - 1456,1459,1462,1466,1470,1473,1476,1480,1483,1487,1493,1496, & - 1500,1504,1507,1511,1515,1518,1522,1526,1529,1532,1535,1538, & - 1542,1545,1548,1552,1556,1560,1563,1566,1569,1573,1576,1579, & - 1583,1587,1591,1594,1597,1600,1603,1607,1611,1615,1619,1626, & - 1629,1632,1635,1638,1641,1644,1648,1651,1654,1657,1660,1663, & - 1668,1675,1678,1682,1685,1688,1691,1694,1697,1700,1703,1706, & - 1709,1713,1717,1721,1724,1727,1731,1734,1737,1740,1744,1751, & - 1755,1762,1765,1768,1771,1776,1783,1786,1789,1792,1796,1800, & - 1804,1808,1811,1815,1818,1822,1825,1828,1831,1834,1837,1840, & - 1843,1846,1850,1854,1858,1861,1865,1868,1871,1874,1877,1881, & - 1884,1887,1890,1894,1898,1901,1904,1907,1911,1916,1920,1924, & - 1928,1931,1934,1937,1941,1944,1947,1951,1954,1957,1960,1964, & - 1967,1970,1974,1978,1982,1986,1990,1993,1996,1999,2002,2006, & - 2009,2012,2016,2020,2023,2027,2030,2033,2036,2039,2042,2045, & - 2050,2053,2056,2059,2064,2069,2074,2079,2082,2087,2090,2095, & - 2098,2103,2106,2109,2114,2119,2122,2125,2128,2133,2138,2143, & - 2148,2153,2156,2161,2164,2169,2172,2175,2179,2184,2188,2191, & - 2196,2199,2202,2205,2208,2211,2216,2221,2224,2229,2234,2239, & - 2242,2245,2250,2253,2256,2261,2266,2269,2274,2279,2282,2285, & - 2288,2293,2296,2299,2305,2310,2314,2319,2324,2329,2332,2335, & - 2340,2343,2346,2351,2354,2359,2364,2369,2372,2375,2380,2385, & - 2388,2393,2396,2401,2404,2409,2414,2419,2424,2427,2430,2435, & - 2440,2445,2448,2453,2456,2461,2466,2471,2476,2479,2482,2487, & - 2490,2495,2500,2505,2508,2513,2518,2523,2528,2533,2538,2541, & - 2546,2551,2554,2558,2563,2567,2572,2577,2582,2585,2590,2593, & - 2598,2601,2604,2609,2612,2617,2622,2625,2628,2633,2638,2641, & - 2646,2651,2656,2659,2662,2667,2670,2676,2681,2684,2689,2692, & - 2695,2698,2701,2706,2711,2716,2719,2724,2727,2732,2735,2740, & - 2743,2748,2753,2756,2759,2762,2767,2772,2777,2780,2785,2790, & - 2795,2800,2805,2810,2815,2818,2823,2828,2833,2838,2841,2844 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_DIAG_2 = (/ & - 2849,2854,2859,2862,2867,2870,2875,2880,2885,2890,2895,2900, & - 2903,2908,2914,2919,2923,2928,2931,2936,2941,2946,2949,2954, & - 2959,2964,2969,2974,2979,2984,2989,2994,2997,3002,3005,3010, & - 3015,3018,3021,3025,3030,3035,3038,3041,3044,3049,3052,3055, & - 3060,3063,3068,3071,3074,3079,3084,3089,3094,3099,3104,3107, & - 3112,3117,3122,3127,3132,3135,3140,3145,3148,3151,3154,3159, & - 3164,3167,3170,3175,3178,3183,3188,3191,3196,3201,3206,3209, & - 3212,3215,3218,3221,3226,3231,3236,3239,3242,3245,3250,3255, & - 3260,3265,3270,3273,3278,3281,3285,3289,3293,3297,3301,3305, & - 3309,3313,3317,3321,3325,3329,3333,3337,3341,3345,3349,3353, & - 3357,3361,3365,3369,3373,3377,3381,3385,3389,3393,3397,3401, & - 3405,3409,3413,3417,3421,3425,3429,3433,3437,3441,3445,3449, & - 3453,3457,3461,3465,3469,3473,3477,3481,3485,3489,3493,3497, & - 3501,3505,3509,3513,3517,3521,3525,3529,3533,3537,3541,3545, & - 3549,3553,3557,3561,3565,3569,3573,3577,3581,3585,3589,3593, & - 3597,3601,3605,3609,3613,3617,3621,3625,3629,3633,3639,3643, & - 3647,3651,3655,3659,3663,3667,3671,3675,3679,3683,3687,3691, & - 3695,3699,3703,3707,3711,3715,3719,3723,3727,3731,3735,3739, & - 3743,3747,3751,3755,3759,3763,3767,3771,3775,3779,3783,3787, & - 3791,3795,3799,3803,3807,3811,3815,3819,3823,3827,3831,3835, & - 3839,3843,3847,3851,3855,3859,3863,3867,3871,3875,3879,3883, & - 3887,3891,3895,3899,3903,3907,3911,3915,3919,3923,3927,3931, & - 3935,3939,3943,3947,3951,3955,3959,3963,3967,3971,3975,3979, & - 3983,3987,3991,3995,3999,4003,4007,4011,4015,4019,4023,4027, & - 4031,4035,4039,4043,4047,4051,4055,4059,4063,4067,4071,4075, & - 4079,4083,4087,4091,4095,4099,4103,4107,4111,4115,4119,4123, & - 4127,4131,4135,4139,4143,4147,4151,4157,4161,4165,4169,4173, & - 4177,4181,4185,4189,4193,4197,4201,4205,4209,4213,4217,4221, & - 4225,4229,4233,4237,4241,4245,4249,4253,4257,4261,4265,4269, & - 4273,4277,4281,4285,4289,4293,4297,4301,4305,4309,4313,4317 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_DIAG_3 = (/ & - 4321,4325,4329,4333,4337,4341,4345,4349,4353,4357,4361,4365, & - 4369,4373,4377,4381,4385,4389,4393,4397,4401,4405,4409,4413, & - 4417,4421,4425,4429,4433,4437,4441,4445,4449,4453,4457,4461, & - 4465,4469,4473,4477,4481,4485,4489,4493,4497,4501,4505,4509, & - 4513,4517,4521,4525,4531,4535,4539,4543,4547,4551,4555,4559, & - 4563,4567,4571,4575,4579,4583,4587,4591,4595,4599,4603,4607, & - 4611,4615,4619,4623,4627,4631,4635,4639,4643,4647,4651,4655, & - 4659,4663,4667,4671,4675,4679,4683,4687,4691,4695,4699,4703, & - 4707,4711,4715,4719,4723,4727,4731,4735,4739,4743,4747,4751, & - 4755,4759,4763,4767,4771,4775,4779,4783,4787,4791,4795,4799, & - 4803,4807,4811,4815,4819,4823,4827,4831,4835,4839,4843,4847, & - 4851,4855,4859,4863,4867,4871,4875,4879,4883,4887,4891,4895, & - 4899,4903,4907,4911,4915,4919,4925,4929,4933,4937,4941,4945, & - 4949,4953,4957,4961,4965,4969,4973,4977,4981,4985,4989,4993, & - 4997,5001,5005,5009,5013,5017,5021,5025,5030,5034,5038,5042, & - 5046,5050,5054,5058,5062,5066,5070,5074,5078,5082,5086,5090, & - 5094,5098,5102,5106,5110,5114,5118,5122,5126,5130,5134,5138, & - 5142,5146,5150,5154,5158,5162,5166,5170,5174,5178,5182,5186, & - 5190,5194,5198,5202,5206,5210,5214,5218,5222,5226,5230,5234, & - 5238,5242,5246,5250,5254,5258,5262,5266,5270,5274,5278,5282, & - 5286,5290,5294,5298,5302,5306,5310,5314,5318,5322,5326,5330, & - 5334,5338,5342,5346,5350,5354,5358,5362,5366,5370,5374,5378, & - 5382,5386,5390,5394,5398,5402,5406,5410,5414,5418,5422,5426, & - 5430,5434,5438,5442,5446,5450,5454,5458,5462,5466,5470,5474, & - 5478,5482,5486,5491,5495,5499,5503,5507,5511,5515,5519,5523, & - 5527,5531,5535,5539,5543,5547,5551,5555,5559,5563,5567,5571, & - 5575,5579,5583,5587,5591,5595,5599,5603,5607,5611,5615,5619, & - 5623,5627,5631,5635,5639,5643,5647,5651,5655,5659,5663,5667, & - 5671,5675,5679,5683,5687,5691,5695,5699,5703,5707,5711,5715, & - 5719,5723,5727,5731,5735,5739,5743,5747,5751,5755,5759,5763 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_DIAG_4 = (/ & - 5767,5771,5775,5779,5783,5787,5791,5795,5799,5803,5807,5811, & - 5815,5819,5823,5827,5831,5835,5839,5843,5847,5851,5855,5859, & - 5863,5867,5871,5875,5879,5883,5887,5891,5895,5899,5903,5907, & - 5911,5915,5919,5923,5927,5931,5937,5941,5945,5949,5953,5957, & - 5961,5965,5969,5973,5978,5982,5986,5990,5994,5998,6002,6006, & - 6010,6014,6018,6022,6026,6030,6034,6038,6042,6046,6050,6054, & - 6058,6062,6066,6070,6074,6078,6082,6086,6090,6094,6098,6102, & - 6106,6110,6114,6118,6122,6126,6130,6134,6138,6142,6146,6150, & - 6154,6158,6162,6166,6170,6174,6178,6182,6186,6190,6194,6198, & - 6201,6206,6212,6216,6222,6228,6231,6235,6241,6244,6247,6253, & - 6256,6259,6262,6268,6275,6281,6284,6287,6293,6296,6299,6304, & - 6311,6314,6320,6323,6326,6329,6334,6340,6344,6350,6353,6359, & - 6362,6365,6368,6371,6374,6379,6385,6389,6395,6401,6404,6410, & - 6413,6419,6422,6425,6428,6431,6434,6439,6447,6455,6463,6471, & - 6477,6481,6485,6488,6491,6494,6500,6503,6511,6517,6520,6525, & - 6531,6536,6542,6547,6553,6556,6559,6567,6573,6577,6581,6587, & - 6590,6593,6599,6602,6605,6608,6614,6618,6624,6627,6630,6636, & - 6639,6645,6648,6653,6659,6663,6669,6674,6680,6684,6690,6695, & - 6701,6705,6708,6713,6719,6725,6731,6737,6740,6743,6746,6752, & - 6755,6758,6761,6764,6767,6770,6775,6781,6785,6791,6794,6802, & - 6808,6811,6814,6817,6824,6827,6830,6833,6838,6844,6848,6854, & - 6860,6863,6866,6874,6880,6883,6886,6892,6895,6898,6904,6907, & - 6910,6914,6920,6923,6926,6931,6937,6941,6947,6955,6961,6967, & - 6970,6973,6976,6979,6985,6991,6995,7001,7007,7013,7018,7025, & - 7031,7034,7037,7042,7048,7051,7054,7058,7064,7071,7079,7085, & - 7088,7094,7097,7103,7108,7114,7117,7120,7125,7131,7137,7141, & - 7145,7151,7159,7168,7172,7176,7180,7184,7189,7194,7198,7203, & - 7208,7213,7217,7221,7225,7230,7234,7238,7244,7250,7254,7258, & - 7261,7264,7268,7272,7278,7284,7289,7293,7297,7302,7306,7311, & - 7318,7325,7330,7335,7342,7346,7350,7355,7362,7366,7372,7378 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_DIAG_5 = (/ & - 7382,7386,7392,7399,7403,7408,7412,7416,7421,7425,7430,7437, & - 7443,7449,7455,7460,7464,7470,7477,7483,7490,7498,7505,7509, & - 7513,7519,7523,7529,7533,7537,7541,7546,7551,7559,7563,7567, & - 7571,7576,7583,7587,7591,7595,7600,7604,7608,7612,7618,7624, & - 7629,7633,7637,7643,7650,7653,7657,7661,7665,7669,7673,7678, & - 7685,7689,7693,7697,7703,7709,7715,7722,7726,7732,7738,7742, & - 7747,7751,7755,7758,7762,7767,7771,7775,7779,7783,7788,7792, & - 7796,7800,7804,7808,7812,7816,7820,7825,7830,7835,7840,7844, & - 7848,7852,7856,7860,7864,7868,7873,7880,7884,7889,7896,7900, & - 7904,7910,7916,7920,7926,7930,7934,7939,7942,7946,7950,7954, & - 7958,7962,7968,7974,7979,7983,7987,7992,7995,8000,8006,8012, & - 8016,8020,8023,8027,8031,8035,8039,8043,8047,8053,8059,8063, & - 8069,8076,8080,8084,8088,8092,8096,8101,8106,8111,8115,8120, & - 8124,8129,8133,8136,8142,8151,8158,8162,8166,8170,8174,8179, & - 8183,8187,8192,8199,8203,8207,8213,8220,8225,8230,8234,8238, & - 8242,8245,8249,8256,8263,8268,8275,8279,8284,8291,8295,8298, & - 8302,8306,8310,8315,8319,8324,8331,8337,8344,8348,8352,8356, & - 8361,8366,8370,8374,8379,8383,8387,8392,8397,8400,8406,8412, & - 8416,8420,8424,8428,8433,8437,8441,8446,8451,8455,8459,8464, & - 8467,8473,8481,8488,8495,8501,8508,8514,8518,8523,8527,8531, & - 8537,8543,8546,8550,8554,8558,8562,8566,8570,8576,8582,8587, & - 8591,8595,8599,8605,8612,8616,8620,8625,8632,8636,8640,8644, & - 8648,8652,8657,8662,8666,8670,8674,8678,8684,8690,8694,8700, & - 8706,8710,8714,8718,8722,8726,8730,8734,8738,8743,8747,8753, & - 8759,8763,8768,8772,8776,8780,8784,8788,8793,8797,8801,8807, & - 8813,8817,8822,8826,8829,8833,8837,8841,8845,8849,8853,8857, & - 8862,8866,8870,8874,8878,8883,8888,8892,8896,8901,8908,8912, & - 8916,8920,8924,8928,8932,8935,8939,8944,8948,8953,8957,8961, & - 8965,8969,8973,8977,8984,8988,8992,8997,9001,9006,9010,9014, & - 9017,9021,9025,9029,9033,9039,9043,9047,9051,9055,9060,9064 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_DIAG_6 = (/ & - 9068,9072,9078,9085,9089,9093,9097,9101,9105,9109,9114,9118, & - 9124,9130,9134,9138,9142,9147,9151,9155,9159,9164,9168,9172, & - 9177,9181,9186,9190,9194,9200,9207,9211,9215,9219,9223,9227, & - 9232,9236,9240,9244,9249,9254,9258,9263,9267,9271,9277,9284, & - 9290,9294,9299,9303,9306,9310,9314,9318,9322,9326,9330,9334, & - 9338,9342,9347,9351,9355,9361,9368,9372,9376,9382,9387,9391, & - 9395,9399,9404,9408,9412,9416,9421,9425,9429,9433,9437,9441, & - 9445,9449,9453,9457,9461,9466,9470,9474,9478,9482,9487,9491, & - 9495,9499,9502,9506,9510,9514,9518,9522,9527,9531,9535,9539, & - 9543,9547,9551,9555,9562,9566,9570,9574,9579,9583,9588,9593, & - 9597,9601,9605,9611,9618,9622,9625,9630,9635,9639,9643,9647, & - 9653,9660,9666,9670,9674,9679,9683,9687,9691,9695,9699,9705, & - 9711,9715,9719,9723,9727,9731,9735,9739,9743,9747,9753,9757, & - 9761,9765,9769,9773,9777,9783,9789,9795,9802,9806,9813,9817, & - 9821,9825,9829,9833,9837,9843,9849,9853,9856,9860,9864,9868, & - 9873,9877,9881,9886,9889,9892,9896,9900,9904,9908,9912,9916, & - 9920,9925,9929,9933,9940,9943,9947,9950,9955,9962,9966,9970, & - 9975,9979,9983,9988,9992,9996,10001,10005,10009,10014,10021,10025, & - 10032,10039,10043,10048,10053,10058,10061,10065,10069,10072,10076,10080, & - 10084,10088,10092,10096,10100,10103,10108,10112,10116,10120,10125,10132, & - 10136,10140,10144,10148,10152,10156,10160,10164,10168,10172,10176,10180, & - 10184,10188,10194,10201,10205,10209,10213,10217,10221,10225,10229,10233, & - 10237,10240,10244,10248,10252,10256,10261,10265,10269,10274,10278,10282, & - 10286,10291,10295,10299,10303,10308,10312,10316,10320,10324,10328,10334, & - 10338,10342,10346,10352,10359,10363,10367,10371,10377,10384,10388,10392, & - 10396,10400,10404,10408,10414,10421,10426,10430,10433,10437,10441,10449, & - 10454,10462,10465,10468,10471,10475,10478,10485,10493,10496,10499,10502, & - 10505,10509,10512,10516,10524,10528,10536,10541,10548,10554,10560,10566, & - 10570,10574,10578,10582,10586,10591,10597,10601,10605,10610,10616,10621, & - 10627,10631,10635,10641,10647,10651,10655,10660,10666,10670,10674,10678 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_DIAG_7 = (/ & - 10684,10690,10694,10698,10702,10707,10713,10720,10726,10730,10734,10738, & - 10742,10746,10751,10758,10764,10768,10774,10780,10784,10788,10792,10796, & - 10802,10808,10814,10818,10825,10832,10839,10845,10849,10853,10857,10861, & - 10866,10872,10876,10880,10885,10894,10901,10907,10911,10916,10922,10926, & - 10930,10934,10938,10942,10946,10954,10961,10967,10972,10979,10985,10989, & - 10994,11000,11004,11008,11012,11017,11023,11028,11037,11043,11048,11055, & - 11061,11068,11076,11083,11089,11094,11101,11107,11111,11115,11119,11124, & - 11130,11134,11139,11145,11149,11153,11157,11161,11165,11171,11177,11181, & - 11185,11189,11193,11197,11201,11205,11210,11216,11220,11224,11228,11232, & - 11236,11240,11244,11248,11252,11259,11265,11269,11273,11280,11287,11293, & - 11298,11307,11313,11320,11328,11334,11342,11348,11352,11356,11360,11364, & - 11368,11372,11376,11380,11384,11388,11394,11400,11404,11410,11416,11420, & - 11425,11429,11434,11441,11447,11451,11455,11459,11463,11467,11471,11476, & - 11482,11486,11491,11499,11503,11508,11514,11518,11522,11526,11530,11534, & - 11538,11542,11546,11551,11557,11562,11568,11572,11579,11585,11591,11597, & - 11601,11605,11609,11613,11617,11622,11629,11635,11639,11645,11653,11657, & - 11661,11666,11670,11677,11684,11690,11698,11705,11711,11717,11723,11728, & - 11734,11738,11742,11747,11753,11757,11762,11769,11776,11782,11788,11793, & - 11799,11803,11808,11814,11819,11825,11829,11834,11842,11850,11857,11863, & - 11868,11875,11882,11889,11895,11899,11903,11907,11911,11916,11922,11927, & - 11933,11938,11944,11948,11952,11956,11962,11969,11975,11980,11987,11993, & - 12000,12006,12010,12016,12022,12026,12030,12034,12038,12042,12046,12052, & - 12056,12060,12064,12069,12077,12083,12087,12091,12095,12099,12104,12110, & - 12114,12119,12125,12129,12133,12137,12141,12145,12149,12154,12160,12166, & - 12172,12176,12180,12184,12188,12192,12196,12201,12207,12212,12219,12226, & - 12233,12239,12243,12247,12251,12258,12265,12271,12275,12279,12284,12291, & - 12297,12301,12305,12309,12314,12320,12324,12329,12335,12339,12343,12347, & - 12351,12355,12361,12367,12372,12378,12383,12389,12394,12400,12406,12414, & - 12420,12425,12431,12435,12439,12445,12449,12453,12458,12464,12468,12472, & - 12477,12483,12487,12491,12495,12500,12508,12512,12516,12520,12524,12528 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_DIAG_8 = (/ & - 12533,12539,12543,12547,12551,12555,12559,12563,12569,12576,12584,12590, & - 12594,12599,12605,12609,12614,12620,12624,12628,12632,12637,12644,12650, & - 12655,12663,12669,12673,12683,12691,12695,12700,12706,12711,12717,12722, & - 12728,12733,12740,12746,12750,12756,12762,12766,12770,12776,12783,12787, & - 12791,12795,12800,12807,12814,12820,12825,12832,12837,12846,12854,12860, & - 12864,12868,12872,12877,12883,12888,12894,12898,12904,12910,12914,12919, & - 12928,12936,12942,12946,12950,12954,12959,12966,12973,12980,12987,12993, & - 13002,13009,13015,13022,13028,13032,13036,13041,13048,13056,13062,13066, & - 13070,13074,13081,13087,13091,13098,13105,13111,13115,13120,13126,13130, & - 13135,13143,13149,13153,13159,13165,13172,13180,13187,13193,13197,13204, & - 13211,13217,13221,13226,13232,13236,13240,13244,13251,13257,13261,13265, & - 13272,13278,13282,13287,13293,13297,13301,13305,13309,13313,13317,13321, & - 13325,13329,13335,13342,13348,13353,13359,13365,13371,13375,13379,13384, & - 13391,13397,13402,13408,13414,13420,13424,13428,13432,13436,13440,13446, & - 13452,13458,13464,13468,13472,13477,13483,13487,13493,13498,13504,13508, & - 13512,13517,13523,13528,13535,13543,13550,13556,13562,13568,13573,13580, & - 13587,13594,13600,13604,13608,13612,13617,13625,13631,13638,13644,13649, & - 13652,13659,13664,13669,13677,13683,13691,13696,13701,13706,13711,13716, & - 13719,13722,13727,13732,13737,13742,13750,13756,13765,13768,13775,13780, & - 13787,13795,13800,13805,13810,13813,13819,13824,13832,13840,13845,13850, & - 13858,13866,13871,13878,13883,13891,13896,13909,13918,13922,13926,13932, & - 13937,13942,13946,13950,13953,13958,13962,13965,13970,13975,13980,13985, & - 13988,13991,13996,14002,14008,14011,14018,14023,14028,14033,14036,14042, & - 14048,14052,14055,14060,14063,14068,14073,14079,14082,14090,14095,14103, & - 14108,14111,14118,14124,14127,14135,14140,14147,14152,14156,14161,14165, & - 14168,14173,14178,14185,14192,14197,14202,14207,14212,14217,14222,14227, & - 14231,14235,14246,14253,14257,14261,14265,14271,14275,14279,14283,14287, & - 14291,14295,14299,14303,14307,14311,14315,14319,14327,14334,14339,14346, & - 14350,14354,14360,14364,14368,14372,14376,14380,14384,14388,14392,14397, & - 14401,14406,14410,14414,14423,14434,14441,14445,14449,14453,14457,14461 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_DIAG_9 = (/ & - 14467,14481,14491,14497,14502,14513,14523,14530,14534,14538,14543,14548, & - 14555,14559,14563,14570,14574,14578,14582,14586,14590,14595,14601,14605, & - 14609,14613,14617,14623,14631,14642,14649,14653,14657,14661,14665,14669, & - 14673,14677,14681,14685,14690,14697,14705,14715,14722,14726,14730,14734, & - 14738,14742,14746,14750,14754,14758,14762,14770,14777,14781,14785,14789, & - 14794,14801,14805,14809,14814,14821,14825,14829,14835,14839,14843,14847, & - 14851,14855,14859,14863,14867,14871,14875,14879,14883,14887,14891,14895, & - 14899,14903,14907,14912,14918,14926,14936,14944,14952,14958,14964,14971, & - 14979,14986,14994,14999,15004,15011,15021,15029,15038,15044,15051,15060, & - 15067,15075,15082,15090,15095,15101,15108,15116,15121,15125,15132,15137, & - 15142,15149,15156,15163,15171,15177,15185,15195,15205,15212,15219,15229, & - 15239,15248,15255,15262,15269,15277,15282,15287,15294,15302,15308,15318, & - 15325,15333,15340,15346,15355,15362,15371,15377,15384,15391,15398,15405, & - 15416,15424,15431,15437,15444,15450,15459,15467,15475,15482,15489,15496, & - 15502,15508,15517,15526,15532,15539,15546,15555,15561,15568,15573,15582, & - 15589,15596,15603,15611,15619,15627,15632,15638,15645,15653,15662,15669, & - 15677,15685,15691,15695,15699,15703,15707,15714,15720,15724,15728,15732, & - 15736,15740,15744,15748,15752,15758,15762,15766,15770,15775,15779,15785, & - 15793,15797,15801,15805,15811,15819,15823,15827,15831,15835,15839,15843, & - 15847,15852,15856,15860,15864,15870,15878,15882,15888,15897,15906,15913, & - 15918,15924,15930,15935,15940,15947,15952,15957,15964,15969,15976,15982, & - 15990,15996,16000,16004,16014,16023,16031,16036,16041,16046,16053,16061, & - 16069,16075,16080,16086,16091,16097,16104,16110,16115,16123,16131,16141, & - 16155,16161,16166,16171,16177,16185,16191,16196,16201,16207,16214,16219, & - 16224,16232,16241,16247,16252,16258,16266,16277,16289,16296,16303,16308, & - 16316,16328,16337,16345,16351,16356,16364,16374,16380,16385,16390,16394, & - 16399,16406,16412,16420,16432,16439,16447,16453,16460,16469,16475,16481, & - 16490,16496,16504,16511,16519,16527,16535,16542,16550,16557,16564,16572, & - 16579,16587,16594,16603,16611,16618,16628,16636,16643,16650,16657,16665, & - 16673,16685,16694,16701,16709,16719,16727,16734,16741,16748,16758,16766 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_DIAG_10 = (/ & - 16776,16785,16793,16802,16810,16818,16828,16835,16845,16853,16861,16869, & - 16877,16885,16893,16903,16913,16927,16938,16948,16952,16957,16961,16965, & - 16969,16981,16993,17000,17008,17016,17026,17033,17039,17044,17051,17056, & - 17062,17072,17093,17106,17113,17123,17136,17145,17158,17163,17168,17178, & - 17188,17195,17203,17213,17224,17229,17239,17247,17260,17265,17272,17277, & - 17287,17292,17299,17308,17316,17324,17331,17339,17346,17352,17360,17367, & - 17375,17383,17390,17398,17405,17413,17421,17429,17437,17444,17454,17462, & - 17468,17476,17483,17493,17503,17512,17521,17528,17535,17545,17552,17559, & - 17566,17574,17581,17588,17595,17599,17605,17613,17620,17628,17634,17640, & - 17647,17657,17664,17671,17679,17687,17695,17704,17713,17722,17730,17739, & - 17747,17755,17762,17772,17779,17789,17798,17805,17813,17821,17830,17838, & - 17844,17853,17862,17872,17880,17888,17895,17902,17913,17922,17930,17937, & - 17946,17954,17966,17979,17988,17996,18005,18012,18020,18029,18038,18048, & - 18057,18066,18077,18086,18095,18102,18111,18119,18126,18135,18142,18150, & - 18158,18165,18173,18180,18192,18199,18211,18221,18230,18238,18246,18256, & - 18264,18272,18281,18290,18298,18305,18314,18321,18329,18336,18343,18348, & - 18356,18366,18374,18381,18389,18396,18403,18411,18419,18428,18434,18440, & - 18448,18453,18459,18466,18474,18485,18491,18499,18506,18513,18520,18527, & - 18536,18545,18551,18558,18569,18581,18587,18595,18602,18611,18618,18625, & - 18632,18638,18644,18648,18653,18658,18662,18667,18674,18684,18692,18699, & - 18707,18714,18724,18731,18741,18751,18758,18765,18778,18788,18797,18803, & - 18810,18820,18829,18838,18847,18855,18863,18872,18881,18889,18896,18905, & - 18912,18919,18925,18936,18946,18955,18965,18972,18980,18989,18998,19005, & - 19015,19022,19033,19043,19053,19062,19069,19076,19084,19091,19098,19107, & - 19115,19124,19131,19139,19147,19155,19162,19173,19180,19187,19195,19204, & - 19213,19221,19228,19235,19245,19253,19260,19267,19274,19281,19292,19302, & - 19310,19321,19332,19342,19353,19366,19378,19385,19392,19399,19409,19419, & - 19426,19436,19442,19449,19458,19467,19477,19486,19493,19502,19511,19517, & - 19525,19533,19540,19547,19557,19564,19571,19578,19585,19596,19606,19614, & - 19621,19628,19637,19644,19652,19661,19670,19677,19686,19695,19706,19715 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_DIAG_11 = (/ & - 19723,19730,19736,19745,19754,19760,19769,19778,19785,19792,19799,19807, & - 19815,19822,19830,19838,19848,19859,19870,19877,19887,19894,19901,19909, & - 19916,19927,19934,19941,19950,19956,19965,19974,19983,19992,20002,20009, & - 20014,20025,20033,20045,20053,20061,20069,20077,20087,20095,20103,20111, & - 20119,20127,20132,20145,20157,20173,20182,20190,20198,20203,20209,20217, & - 20225,20233,20241,20250,20260,20269,20276,20282,20289,20298,20306,20312, & - 20317,20325,20333,20341,20349,20360,20368,20376,20388,20402,20411,20419, & - 20432,20444,20455,20466,20477,20487,20503,20514,20524,20532,20540,20546, & - 20551,20561,20570,20583,20591,20600,20608,20616,20624,20631,20637,20646, & - 20655,20662,20668,20676,20684,20693,20699,20709,20717,20726,20734,20742, & - 20748,20756,20764,20773,20781,20790,20798,20807,20818,20826,20833,20846, & - 20854,20859,20864,20870,20876,20886,20894,20903,20914,20924,20935,20948, & - 20960,20967,20973,20979,20992,21006,21012,21019,21025,21032,21040,21048, & - 21055,21064,21074,21084,21092,21103,21111,21118,21128,21139,21147,21154, & - 21161,21170,21178,21187,21195,21201,21208,21216,21226,21235,21244,21251, & - 21257,21264,21271,21278,21285,21291,21299,21306,21313,21323,21331,21343, & - 21351,21363,21371,21377,21387,21395,21401,21409,21417,21426,21434,21445, & - 21451,21459,21467,21476,21486,21495,21502,21511,21520,21528,21540,21550, & - 21560,21570,21581,21588,21604,21615,21628,21639,21646,21658,21667,21676, & - 21687,21696,21704,21712,21721,21730,21739,21752,21761,21770,21784,21793, & - 21802,21813,21823,21832,21841,21850,21860,21870,21880,21889,21899,21908, & - 21916,21928,21937,21951,21960,21972,21984,21997,22010,22020,22030,22043, & - 22052,22065,22074,22085,22096,22106,22118,22127,22136,22147,22158,22167, & - 22176,22186,22198,22207,22221,22230,22240,22249,22258,22267,22275,22292, & - 22301,22309,22320,22329,22342,22352,22361,22370,22381,22390,22399,22409, & - 22421,22430,22441,22449,22458,22468,22479,22488,22498,22508,22517,22525, & - 22531,22541,22550,22559,22569,22584,22596,22605,22614,22622,22631,22641, & - 22650,22658,22667,22676,22685,22698,22707,22716,22725,22740,22760,22770, & - 22779,22788,22801,22813,22823,22831,22840,22849,22858,22867,22876,22889, & - 22899,22910,22922,22931,22946,22955,22967,22978,22987,22996,23009,23017 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_DIAG_12 = (/ & - 23025,23036,23044,23056,23070,23083,23091,23099,23114,23121,23140,23152, & - 23159,23168,23176,23184,23191,23200,23206,23215,23221,23229,23238,23248, & - 23257,23265,23272,23280,23288,23297,23304,23315,23325,23332,23340,23348, & - 23355,23362,23370,23380,23388,23396,23405,23412,23423,23443,23455,23462, & - 23470,23477,23484,23490,23500,23509,23518,23530,23539,23547,23555,23564, & - 23572,23578,23589,23601,23612,23623,23635,23644,23652,23660,23673,23693, & - 23705,23715,23721,23728,23735,23746,23757,23765,23777,23787,23824,23844, & - 23853,23862,23874,23884,23894,23905,23914,23926,23936,23945,23954,23963, & - 23975,23985,23997,24007,24020,24029,24043,24054,24063,24081,24092,24101, & - 24112,24124,24136,24146,24156,24165,24176,24185,24195,24205,24215,24224, & - 24237,24250,24262,24272,24282,24291,24302,24315,24327,24339,24348,24358, & - 24368,24378,24387,24397,24407,24416,24425,24436,24447,24456,24465,24474, & - 24484,24494,24503,24513,24523,24533,24543,24552,24561,24568,24572,24579, & - 24590,24602,24612,24621,24633,24652,24665,24675,24690,24702,24712,24725, & - 24736,24752,24771,24778,24798,24810,24820,24830,24843,24852,24862,24871, & - 24885,24894,24905,24915,24922,24931,24999,25015,25022,25034,25043,25050, & - 25057,25067,25077,25086,25096,25106,25117,25127,25139,25149,25159,25173, & - 25188,25196,25203,25210,25225,25233,25244,25255,25268,25279,25289,25303, & - 25316,25326,25338,25356,25365,25374,25384,25396,25411,25421,25436,25448, & - 25459,25471,25480,25492,25503,25512,25518,25524,25536,25545,25556,25570, & - 25579,25588,25596,25606,25619,25626,25635,25643,25657,25663,25671,25679, & - 25686,25693,25700,25711,25721,25727,25734,25745,25753,25761,25769,25776, & - 25784,25791,25799,25808,25820,25828,25845,25858,25866,25874,25882,25890, & - 25899,25906,25914,25920,25924,25961,25983,25989,25993,25997,26004,26013, & - 26020,26027,26036,26048,26059,26071,26078,26084,26089,26107,26127,26138, & - 26146,26171,26180,26195,26204,26214,26223,26232,26242,26252,26265,26276, & - 26286,26295,26305,26314,26322,26332,26342,26352,26362,26372,26381,26396, & - 26405,26413,26423,26434,26444,26452,26465,26478,26487,26497,26506,26516, & - 26525,26538,26548,26557,26566,26576,26587,26604,26613,26627,26641,26649, & - 26661,26671,26682,26696,26709,26718,26729,26740,26748,26755,26765,26775 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_DIAG_13 = (/ & - 26785,26796,26806,26815,26825,26838,26852,26862,26872,26883,26890,26900, & - 26972,27004,27012,27020,27028,27037,27044,27052,27059,27068,27074,27080, & - 27087,27094,27101,27117,27129,27146,27154,27161,27168,27177,27184,27191, & - 27201,27208,27218,27225,27253,27265,27273,27283,27290,27302,27309,27324, & - 27352,27360,27369,27375,27383,27393,27399,27410,27421,27432,27444,27458, & - 27470,27483,27497,27505,27515,27525,27536,27559,27574,27584,27594,27609, & - 27621,27630,27644,27653,27663,27671,27682,27704,27713,27722,27735,27750, & - 27760,27768,27779,27797,27815,27825,27835,27846,27858,27867,27882,27890, & - 27899,27907,27915,27924,27931,27941,27947,27955,27963,27969,27977,27988, & - 28000,28010,28021,28037,28047,28054,28061,28130,28154,28167,28180,28187, & - 28211,28228,28235,28245,28251,28263,28273,28283,28293,28304,28315,28328, & - 28339,28348,28361,28370,28381,28389,28397,28408,28415,28427,28448,28457, & - 28466,28476,28488,28495,28505,28517,28531,28544,28554,28569,28577,28586, & - 28596,28605,28622,28630,28641,28666,28678,28691,28705,28717,28734,28745, & - 28761,28783,28801,28814,28830,28845,28858,28869,28882,28892,28903,28914, & - 28925,28937,28951,28968,28988,28999,29013,29023,29032,29047,29065,29079, & - 29093,29109,29123,29133,29140,29148,29156,29163,29171,29184,29195,29204, & - 29214,29222,29233,29243,29253,29265,29274,29284,29296,29304,29315,29326, & - 29338,29351,29362,29372,29385,29400,29415,29443,29460,29468,29475,29482, & - 29509,29537,29550,29558,29575,29587,29600,29621,29636,29667,29681,29694, & - 29710,29720,29730,29747,29759,29768,29779,29788,29805,29822,29853,29866, & - 29876,29884,29895,29907,29919,29989,30024,30046,30063,30079,30097,30122, & - 30131,30138,30165,30177,30195,30208,30221,30234,30249,30262,30273,30284, & - 30295,30321,30341,30355,30368,30382,30395,30417,30433,30452,30465,30474, & - 30487,30497,30505,30512,30535,30553,30566,30572,30581,30598,30610,30623, & - 30642,30653,30683,30707,30724,30752,30762,30770,30782,30794,30817,30831, & - 30840,30851,30870,30894,30904,30915,30926,30964,31002,31013,31022,31047, & - 31062,31088,31106,31123,31138,31159,31180,31202,31213,31225,31235,31249, & - 31265,31282,31295,31307,31319,31329,31359,31376,31384,31405,31423,31432, & - 31452,31464,31502,31516,31523,31539,31548,31566,31589,31614,31635,31650 /) - INTEGER, PARAMETER, DIMENSION(219) :: LU_DIAG_14 = (/ & - 31662,31677,31689,31704,31714,31769,31816,31827,31841,31852,31859,31871, & - 31889,31908,31931,31945,31962,31990,32023,32045,32058,32076,32093,32109, & - 32116,32129,32145,32163,32174,32186,32215,32233,32248,32260,32270,32281, & - 32289,32302,32323,32351,32372,32380,32398,32411,32441,32482,32507,32524, & - 32541,32553,32564,32573,32587,32611,32640,32651,32672,32704,32726,32756, & - 32786,32806,32825,32849,32867,32913,32926,32937,32945,32972,32992,33006, & - 33021,33033,33051,33069,33091,33102,33114,33126,33146,33163,33203,33216, & - 33289,33317,33327,33345,33378,33406,33429,33441,33451,33470,33487,33512, & - 33562,33575,33698,33729,33752,33815,33886,33901,33944,33961,33977,33997, & - 34017,34039,34061,34103,34121,34130,34144,34162,34189,34238,34259,34487, & - 34543,34568,34583,34608,34653,34663,34676,34689,34709,34737,34771,34805, & - 34826,34835,34848,34874,34901,34955,34994,35035,35051,35128,35344,35400, & - 35431,35440,35449,35543,35580,35590,35692,35712,35995,36037,36090,36117, & - 36171,36192,36256,36287,36717,36791,36845,36857,36870,36883,36903,36929, & - 36953,37022,37066,37088,37112,37184,37219,37263,37285,37296,37309,37326, & - 37360,37652,37714,37740,37775,37812,37827,37955,38007,38079,38763,38923, & - 39176,39325,39386,39409,39478,39531,39554,39585,39669,39755,39808,40437, & - 40462,40497,40529,40560,40577,45056,46582,47934,50211,50320,53212,54814, & - 54837,55272,55273 /) - INTEGER, PARAMETER, DIMENSION(5259) :: LU_DIAG = (/& - LU_DIAG_0, LU_DIAG_1, LU_DIAG_2, LU_DIAG_3, LU_DIAG_4, & - LU_DIAG_5, LU_DIAG_6, LU_DIAG_7, LU_DIAG_8, LU_DIAG_9, & - LU_DIAG_10, LU_DIAG_11, LU_DIAG_12, LU_DIAG_13, LU_DIAG_14 /) - - -END MODULE MCMv3_3_JacobianSP - diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_JacobianSP.o b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_JacobianSP.o deleted file mode 100644 index cd120c2a2fb6a469c258db609e9e0a7bd3ca42c9..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_JacobianSP.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_LinearAlgebra.f90 b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_LinearAlgebra.f90 deleted file mode 100644 index 6cf8cae1e5e8211e1fa57dad0b77ac3be0b725be..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_LinearAlgebra.f90 +++ /dev/null @@ -1,32137 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Linear Algebra Data and Routines File -! -! Generated by KPP-2.2.3 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 : MCMv3_3_LinearAlgebra.f90 -! Time : Mon Jul 19 14:16:06 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MCMv3_3_3654_BOXMOX -! Equation file : MCMv3_3.kpp -! Output root filename : MCMv3_3 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MCMv3_3_LinearAlgebra - - USE MCMv3_3_Parameters - USE MCMv3_3_JacobianSP - - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! SPARSE_UTIL - SPARSE utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecomp( JVS, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MCMv3_3_Parameters - USE MCMv3_3_JacobianSP - - INTEGER :: IER - REAL(kind=dp) :: JVS(LU_NONZERO), W(NVAR), a - INTEGER :: k, kk, j, jj - - a = 0. ! mz_rs_20050606 - IER = 0 - DO k=1,NVAR - ! mz_rs_20050606: don't check if real value == 0 - ! IF ( JVS( LU_DIAG(k) ) .EQ. 0. ) THEN - IF ( ABS(JVS(LU_DIAG(k))) < TINY(a) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - W( LU_ICOL(kk) ) = JVS(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - a = -W(j) / JVS( LU_DIAG(j) ) - W(j) = -a - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVS(kk) = W( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecomp - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecompCmplx( JVS, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization, complex -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MCMv3_3_Parameters - USE MCMv3_3_JacobianSP - - INTEGER :: IER - DOUBLE COMPLEX :: JVS(LU_NONZERO), W(NVAR), a - REAL(kind=dp) :: b = 0.0 - INTEGER :: k, kk, j, jj - - IER = 0 - DO k=1,NVAR - IF ( ABS(JVS(LU_DIAG(k))) < TINY(b) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - W( LU_ICOL(kk) ) = JVS(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - a = -W(j) / JVS( LU_DIAG(j) ) - W(j) = -a - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVS(kk) = W( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecompCmplx - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecompCmplxR( JVSR, JVSI, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization, complex -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MCMv3_3_Parameters - USE MCMv3_3_JacobianSP - - INTEGER :: IER - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO) - REAL(kind=dp) :: WR(NVAR), WI(NVAR), ar, ai, den - INTEGER :: k, kk, j, jj - - IER = 0 - ar = 0.0 - DO k=1,NVAR - IF ( ( ABS(JVSR(LU_DIAG(k))) < TINY(ar) ) .AND. & - ( ABS(JVSI(LU_DIAG(k))) < TINY(ar) ) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - WR( LU_ICOL(kk) ) = JVSR(kk) - WI( LU_ICOL(kk) ) = JVSI(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - den = JVSR(LU_DIAG(j))**2 + JVSI(LU_DIAG(j))**2 - ar = -(WR(j)*JVSR(LU_DIAG(j)) + WI(j)*JVSI(LU_DIAG(j)))/den - ai = -(WI(j)*JVSR(LU_DIAG(j)) - WR(j)*JVSI(LU_DIAG(j)))/den - WR(j) = -ar - WI(j) = -ai - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - WR( LU_ICOL(jj) ) = WR( LU_ICOL(jj) ) + ar*JVSR(jj) - ai*JVSI(jj) - WI( LU_ICOL(jj) ) = WI( LU_ICOL(jj) ) + ar*JVSI(jj) + ai*JVSR(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVSR(kk) = WR( LU_ICOL(kk) ) - JVSI(kk) = WI( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecompCmplxR - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveIndirect( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse solve subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MCMv3_3_Parameters - USE MCMv3_3_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR), sum - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - X(i) = X(i) - JVS(j)*X(LU_ICOL(j)); - END DO - END DO - - DO i=NVAR,1,-1 - sum = X(i); - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sum = sum - JVS(j)*X(LU_ICOL(j)); - END DO - X(i) = sum/JVS(LU_DIAG(i)); - END DO - -END SUBROUTINE KppSolveIndirect - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRIndirect( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MCMv3_3_Parameters - USE MCMv3_3_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR) - - DO i=1,NVAR - X(i) = X(i)/JVS(LU_DIAG(i)) - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - -END SUBROUTINE KppSolveTRIndirect - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveCmplx( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MCMv3_3_Parameters - USE MCMv3_3_JacobianSP - - INTEGER :: i, j - DOUBLE COMPLEX :: JVS(LU_NONZERO), X(NVAR), sum - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - X(i) = X(i) - JVS(j)*X(LU_ICOL(j)); - END DO - END DO - - DO i=NVAR,1,-1 - sum = X(i); - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sum = sum - JVS(j)*X(LU_ICOL(j)); - END DO - X(i) = sum/JVS(LU_DIAG(i)); - END DO - -END SUBROUTINE KppSolveCmplx - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveCmplxR( JVSR, JVSI, XR, XI ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve subroutine using indirect addressing -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MCMv3_3_Parameters - USE MCMv3_3_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), sumr, sumi, den - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - XR(i) = XR(i) - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j))) - XI(i) = XI(i) - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j))) - END DO - END DO - - DO i=NVAR,1,-1 - sumr = XR(i); sumi = XI(i) - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sumr = sumr - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j))) - sumi = sumi - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j))) - END DO - den = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2 - XR(i) = (sumr*JVSR(LU_DIAG(i)) + sumi*JVSI(LU_DIAG(i)))/den - XI(i) = (sumi*JVSR(LU_DIAG(i)) - sumr*JVSI(LU_DIAG(i)))/den - END DO - -END SUBROUTINE KppSolveCmplxR - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRCmplx( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MCMv3_3_Parameters - USE MCMv3_3_JacobianSP - - INTEGER :: i, j - DOUBLE COMPLEX :: JVS(LU_NONZERO), X(NVAR) - - DO i=1,NVAR - X(i) = X(i)/JVS(LU_DIAG(i)) - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - -END SUBROUTINE KppSolveTRCmplx - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRCmplxR( JVSR, JVSI, XR, XI ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MCMv3_3_Parameters - USE MCMv3_3_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), den - - DO i=1,NVAR - den = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2 - XR(i) = (XR(i)*JVSR(LU_DIAG(i)) + XI(i)*JVSI(LU_DIAG(i)))/den - XI(i) = (XI(i)*JVSR(LU_DIAG(i)) - XR(i)*JVSI(LU_DIAG(i)))/den - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i)) - XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i)) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i)) - XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i)) - END DO - END DO - -END SUBROUTINE KppSolveTRCmplxR - - -! -! Next few commented subroutines perform sparse big linear algebra -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppDecompBig( JVS, IP, IER ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Sparse LU factorization -!! for the Runge Kutta (3n)x(3n) linear system -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE MCMv3_3_Parameters -! USE MCMv3_3_JacobianSP -! -! INTEGER :: IP3(3), IER, IP(3,NVAR) -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), W(3,3,NVAR), a(3,3), E(3,3) -! INTEGER :: k, kk, j, jj -! -! a = 0.0d0 -! IER = 0 -! DO k=1,NVAR -! DO kk = LU_CROW(k), LU_CROW(k+1)-1 -! W( 1:3,1:3,LU_ICOL(kk) ) = JVS(1:3,1:3,kk) -! END DO -! DO kk = LU_CROW(k), LU_DIAG(k)-1 -! j = LU_ICOL(kk) -! E(1:3,1:3) = JVS( 1:3,1:3,LU_DIAG(j) ) -! ! CALL DGETRF(3,3,E,3,IP3,IER) -! CALL FAC3(E,IP3,IER) -! IF ( IER /= 0 ) RETURN -! ! a = W(j) / JVS( LU_DIAG(j) ) -! a(1:3,1:3) = W( 1:3,1:3,j ) -! ! CALL DGETRS ('N',3,3,E,3,IP3,a,3,IER) -! CALL SOL3('N',E,IP3,a(1,1)) -! CALL SOL3('N',E,IP3,a(1,2)) -! CALL SOL3('N',E,IP3,a(1,3)) -! W(1:3,1:3,j) = a(1:3,1:3) -! DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 -! W( 1:3,1:3,LU_ICOL(jj) ) = W( 1:3,1:3,LU_ICOL(jj) ) & -! - MATMUL( a(1:3,1:3) , JVS(1:3,1:3,jj) ) -! END DO -! END DO -! DO kk = LU_CROW(k), LU_CROW(k+1)-1 -! JVS(1:3,1:3,kk) = W( 1:3,1:3,LU_ICOL(kk) ) -! END DO -! END DO -! -! DO k=1,NVAR -! ! CALL WGEFA(JVS(1,1,LU_DIAG(k)),3,3,IP(1,k),IER) -! ! CALL DGETRF(3,3,JVS(1,1,LU_DIAG(k)),3,IP(1,k),IER) -! CALL FAC3(JVS(1,1,LU_DIAG(k)),IP(1,k),IER) -! IF ( IER /= 0 ) RETURN -! END DO -! -!END SUBROUTINE KppDecompBig -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppSolveBig( JVS, IP, X ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Sparse solve subroutine using indirect addressing -!! for the Runge Kutta (3n)x(3n) linear system -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE MCMv3_3_Parameters -! USE MCMv3_3_JacobianSP -! -! INTEGER :: i, j, k, m, IP3(3), IP(3,NVAR), IER -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR), sum(3) -! -! DO i=1,NVAR -! DO j = LU_CROW(i), LU_DIAG(i)-1 -! !X(1:3,i) = X(1:3,i) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j))); -! DO k=1,3 -! DO m=1,3 -! X(k,i) = X(k,i) - JVS(k,m,j)*X(m,LU_ICOL(j)) -! END DO -! END DO -! END DO -! END DO -! -! DO i=NVAR,1,-1 -! sum(1:3) = X(1:3,i); -! DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 -! !sum(1:3) = sum(1:3) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j))); -! DO k=1,3 -! DO m=1,3 -! sum(k) = sum(k) - JVS(k,m,j)*X(m,LU_ICOL(j)) -! END DO -! END DO -! END DO -! ! X(i) = sum/JVS(LU_DIAG(i)); -! ! CALL DGETRS ('N',3,1,JVS(1:3,1:3,LU_DIAG(i)),3,IP(1,i),sum,3,0) -! ! CALL WGESL('N',JVS(1,1,LU_DIAG(i)),3,3,IP(1,i),sum) -! CALL SOL3('N',JVS(1,1,LU_DIAG(i)),IP(1,i),sum) -! X(1:3,i) = sum(1:3) -! END DO -! -!END SUBROUTINE KppSolveBig -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppSolveBigTR( JVS, IP, X ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Big sparse transpose solve using indirect addressing -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE MCMv3_3_Parameters -! USE MCMv3_3_JacobianSP -! -! INTEGER :: i, j, k, m, IP(3,NVAR) -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR) -! -! DO i=1,NVAR -! ! X(i) = X(i)/JVS(LU_DIAG(i)) -! CALL SOL3('T',JVS(1,1,LU_DIAG(i)),IP(1,i),X(1,i)) -! DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 -! !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) & -! ! - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) ) -! DO k=1,3 -! DO m=1,3 -! X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i) -! END DO -! END DO -! END DO -! END DO -! -! DO i=NVAR, 1, -1 -! DO j=LU_CROW(i),LU_DIAG(i)-1 -! !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) & -! ! - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) ) -! DO k=1,3 -! DO m=1,3 -! X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i) -! END DO -! END DO -! END DO -! END DO -! -!END SUBROUTINE KppSolveBigTR -! -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE FAC3(A,IPVT,INFO) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! FAC3 FACTORS THE MATRIX A (3,3) BY -!! GAUSS ELIMINATION WITH PARTIAL PIVOTING -!! LINPACK - LIKE -!! -!! Remove comments to perform pivoting -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! -! REAL(kind=dp) :: A(3,3) -! INTEGER :: IPVT(3),INFO -!! INTEGER :: L -!! REAL(kind=dp) :: t, dmax, da, TMP(3) -! REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0 -! -! info = 0 -!! t = TINY(da) -!! -!! da = ABS(A(1,1)); L = 1 -!! IF ( ABS(A(2,1))>da ) THEN -!! da = ABS(A(2,1)); L = 2 -!! IF ( ABS(A(3,1))>da ) THEN -!! L = 3 -!! END IF -!! END IF -!! IPVT(1) = L -!! IF (L /=1 ) THEN -!! TMP(1:3) = A(L,1:3) -!! A(L,1:3) = A(1,1:3) -!! A(1,1:3) = TMP(1:3) -!! END IF -!! IF (ABS(A(1,1)) < t) THEN -!! info = 1 -!! return -!! END IF -!! -! A(2,1) = A(2,1)/A(1,1) -! A(2,2) = A(2,2) - A(2,1)*A(1,2) -! A(2,3) = A(2,3) - A(2,1)*A(1,3) -! A(3,1) = A(3,1)/A(1,1) -! A(3,2) = A(3,2) - A(3,1)*A(1,2) -! A(3,3) = A(3,3) - A(3,1)*A(1,3) -! -!! IPVT(2) = 2 -!! IF (ABS(A(3,2))>ABS(A(2,2))) THEN -!! IPVT(2) = 3 -!! TMP(2:3) = A(3,2:3) -!! A(3,2:3) = A(2,2:3) -!! A(2,2:3) = TMP(2:3) -!! END IF -!! IF (ABS(A(2,2)) < t) THEN -!! info = 1 -!! return -!! END IF -!! -! A(3,2) = A(3,2)/A(2,2) -! A(3,3) = A(3,3) - A(3,2)*A(2,3) -! IPVT(3) = 3 -! -!END SUBROUTINE FAC3 -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE SOL3(Trans,A,IPVT,b) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! SOL3 solves the system 3x3 -!! A * x = b or trans(a) * x = b -!! using the factors computed by WGEFA. -!! -!! Trans = 'N' to solve A*x = b , -!! = 'T' to solve transpose(A)*x = b -!! LINPACK - LIKE -!! -!! Remove comments to use pivoting -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! CHARACTER :: Trans -! REAL(kind=dp) :: a(3,3),b(3) -! INTEGER :: IPVT(3) -!! INTEGER :: L -!! REAL(kind=dp) :: TMP -! -! SELECT CASE (Trans) -! -! CASE ('n','N') ! Solve A * x = b -! -!! Solve L*y = b -!! L = IPVT(1) -!! IF (L /= 1) THEN -!! TMP = B(1); B(1) = B(L); B(L) = TMP -!! END IF -! b(2) = b(2)-A(2,1)*b(1) -! b(3) = b(3)-A(3,1)*b(1) -! -!! L = IPVT(2) -!! IF (L /= 2) THEN -!! TMP = B(2); B(2) = B(L); B(L) = TMP -!! END IF -! b(3) = b(3)-A(3,2)*b(2) -! -!! Solve U*x = y -! b(3) = b(3)/A(3,3) -! b(2) = (b(2)-A(2,3)*b(3))/A(2,2) -! b(1) = (b(1)-A(1,3)*b(3)-A(1,2)*b(2))/A(1,1) -! -! -! CASE ('t','T') ! Solve transpose(A) * x = b -! -!! Solve transpose(U)*y = b -! b(1) = b(1)/A(1,1) -! b(2) = (b(2)-A(1,2)*b(1))/A(2,2) -! b(3) = (b(3)-A(1,3)*b(1)-A(2,3)*b(2))/A(3,3) -! -!! Solve transpose(L)*x = y -! b(2) = b(2)-A(3,2)*b(3) -!! L = ipvt(2) -!! IF (L /= 2) THEN -!! TMP = B(2); B(2) = B(L); B(L) = TMP -!! END IF -! b(1) = b(1)-A(3,1)*b(3)-A(2,1)*b(2) -!! L = ipvt(1) -!! IF (L /= 1) THEN -!! TMP = B(1); B(1) = B(L); B(L) = TMP -!! END IF -! -! END SELECT -! -!END SUBROUTINE SOL3 - -! End of SPARSE_UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! KppSolve - sparse back substitution -! Arguments : -! JVS - sparse Jacobian of variables -! X - Vector for variables -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE KppSolve ( JVS, X ) - -! JVS - sparse Jacobian of variables - REAL(kind=dp) :: JVS(LU_NONZERO) -! X - Vector for variables - REAL(kind=dp) :: X(NVAR) - - X(122) = X(122)-JVS(471)*X(23) - X(152) = X(152)-JVS(587)*X(26) - X(163) = X(163)-JVS(654)*X(101) - X(164) = X(164)-JVS(661)*X(98) - X(169) = X(169)-JVS(692)*X(40) - X(170) = X(170)-JVS(699)*X(53) - X(204) = X(204)-JVS(896)*X(72) - X(206) = X(206)-JVS(909)*X(30) - X(211) = X(211)-JVS(930)*X(108) - X(254) = X(254)-JVS(1074)*X(28) - X(290) = X(290)-JVS(1203)*X(83) - X(297) = X(297)-JVS(1231)*X(134) - X(315) = X(315)-JVS(1296)*X(59) - X(318) = X(318)-JVS(1310)*X(273) - X(323) = X(323)-JVS(1327)*X(322) - X(326) = X(326)-JVS(1339)*X(87) - X(370) = X(370)-JVS(1486)*X(369) - X(373) = X(373)-JVS(1499)*X(267) - X(397) = X(397)-JVS(1582)*X(299) - X(404) = X(404)-JVS(1606)*X(403) - X(407) = X(407)-JVS(1618)*X(365) - X(421) = X(421)-JVS(1667)*X(139) - X(443) = X(443)-JVS(1743)*X(442) - X(445) = X(445)-JVS(1754)*X(34) - X(450) = X(450)-JVS(1775)*X(366) - X(455) = X(455)-JVS(1795)*X(372) - X(472) = X(472)-JVS(1853)*X(359) - X(490) = X(490)-JVS(1915)*X(212) - X(510) = X(510)-JVS(1985)*X(509) - X(561) = X(561)-JVS(2178)*X(303) - X(593) = X(593)-JVS(2304)*X(347) - X(652) = X(652)-JVS(2557)*X(395) - X(680) = X(680)-JVS(2675)*X(198) - X(735) = X(735)-JVS(2913)*X(344) - X(760) = X(760)-JVS(3024)*X(60) - X(911) = X(911)-JVS(3637)*X(448)-JVS(3638)*X(485) - X(1040) = X(1040)-JVS(4155)*X(233)-JVS(4156)*X(331) - X(1133) = X(1133)-JVS(4529)*X(259)-JVS(4530)*X(312) - X(1231) = X(1231)-JVS(4923)*X(244)-JVS(4924)*X(356) - X(1257) = X(1257)-JVS(5029)*X(368) - X(1372) = X(1372)-JVS(5490)*X(440) - X(1483) = X(1483)-JVS(5935)*X(246)-JVS(5936)*X(1192) - X(1493) = X(1493)-JVS(5977)*X(247) - X(1550) = X(1550)-JVS(6204)*X(257)-JVS(6205)*X(1119) - X(1556) = X(1556)-JVS(6234)*X(608) - X(1565) = X(1565)-JVS(6274)*X(1036) - X(1572) = X(1572)-JVS(6302)*X(24)-JVS(6303)*X(1147) - X(1573) = X(1573)-JVS(6310)*X(181) - X(1579) = X(1579)-JVS(6332)*X(657)-JVS(6333)*X(1139) - X(1581) = X(1581)-JVS(6343)*X(1520) - X(1590) = X(1590)-JVS(6377)*X(266)-JVS(6378)*X(1149) - X(1604) = X(1604)-JVS(6437)*X(336)-JVS(6438)*X(904) - X(1605) = X(1605)-JVS(6445)*X(457)-JVS(6446)*X(1325) - X(1606) = X(1606)-JVS(6453)*X(58)-JVS(6454)*X(1443) - X(1607) = X(1607)-JVS(6461)*X(664)-JVS(6462)*X(1191) - X(1608) = X(1608)-JVS(6469)*X(864)-JVS(6470)*X(1489) - X(1610) = X(1610)-JVS(6480)*X(1609) - X(1617) = X(1617)-JVS(6509)*X(515)-JVS(6510)*X(1511) - X(1620) = X(1620)-JVS(6523)*X(118)-JVS(6524)*X(965) - X(1622) = X(1622)-JVS(6534)*X(38)-JVS(6535)*X(1129) - X(1624) = X(1624)-JVS(6545)*X(496)-JVS(6546)*X(1407) - X(1628) = X(1628)-JVS(6565)*X(248)-JVS(6566)*X(1286) - X(1631) = X(1631)-JVS(6580)*X(1630) - X(1640) = X(1640)-JVS(6617)*X(1560) - X(1648) = X(1648)-JVS(6651)*X(410)-JVS(6652)*X(1413) - X(1652) = X(1652)-JVS(6672)*X(725)-JVS(6673)*X(1130) - X(1654) = X(1654)-JVS(6683)*X(1653) - X(1656) = X(1656)-JVS(6693)*X(467)-JVS(6694)*X(830) - X(1660) = X(1660)-JVS(6711)*X(382)-JVS(6712)*X(1546) - X(1675) = X(1675)-JVS(6773)*X(100)-JVS(6774)*X(944) - X(1677) = X(1677)-JVS(6784)*X(1637) - X(1680) = X(1680)-JVS(6800)*X(46)-JVS(6801)*X(1252) - X(1685) = X(1685)-JVS(6823)*X(458) - X(1689) = X(1689)-JVS(6836)*X(1351)-JVS(6837)*X(1676) - X(1691) = X(1691)-JVS(6847)*X(1561) - X(1696) = X(1696)-JVS(6872)*X(502)-JVS(6873)*X(1089) - X(1706) = X(1706)-JVS(6913)*X(1384) - X(1710) = X(1710)-JVS(6929)*X(63)-JVS(6930)*X(928) - X(1712) = X(1712)-JVS(6940)*X(1711) - X(1713) = X(1713)-JVS(6945)*X(41)-JVS(6946)*X(1020) - X(1714) = X(1714)-JVS(6953)*X(1514)-JVS(6954)*X(1694) - X(1723) = X(1723)-JVS(6994)*X(1722) - X(1727) = X(1727)-JVS(7016)*X(73)-JVS(7017)*X(838) - X(1728) = X(1728)-JVS(7024)*X(208) - X(1732) = X(1732)-JVS(7040)*X(789)-JVS(7041)*X(1094) - X(1736) = X(1736)-JVS(7057)*X(1001) - X(1738) = X(1738)-JVS(7070)*X(1056) - X(1739) = X(1739)-JVS(7077)*X(489)-JVS(7078)*X(1509) - X(1745) = X(1745)-JVS(7106)*X(39)-JVS(7107)*X(1530) - X(1750) = X(1750)-JVS(7129)*X(1733)-JVS(7130)*X(1749) - X(1754) = X(1754)-JVS(7149)*X(32)-JVS(7150)*X(1171) - X(1755) = X(1755)-JVS(7158)*X(1165) - X(1756) = X(1756)-JVS(7166)*X(430)-JVS(7167)*X(1181) - X(1773) = X(1773)-JVS(7242)*X(1458)-JVS(7243)*X(1772) - X(1781) = X(1781)-JVS(7276)*X(1401)-JVS(7277)*X(1780) - X(1789) = X(1789)-JVS(7315)*X(64)-JVS(7316)*X(1469)-JVS(7317)*X(1788) - X(1790) = X(1790)-JVS(7324)*X(1587) - X(1791) = X(1791)-JVS(7329)*X(1742) - X(1792) = X(1792)-JVS(7334)*X(1341) - X(1796) = X(1796)-JVS(7354)*X(966) - X(1799) = X(1799)-JVS(7370)*X(1506)-JVS(7371)*X(1798) - X(1803) = X(1803)-JVS(7390)*X(400)-JVS(7391)*X(1390) - X(1806) = X(1806)-JVS(7407)*X(1588) - X(1812) = X(1812)-JVS(7434)*X(527)-JVS(7435)*X(1528)-JVS(7436)*X(1811) - X(1814) = X(1814)-JVS(7447)*X(1060)-JVS(7448)*X(1813) - X(1818) = X(1818)-JVS(7468)*X(547)-JVS(7469)*X(1411) - X(1820) = X(1820)-JVS(7481)*X(1484)-JVS(7482)*X(1819) - X(1821) = X(1821)-JVS(7489)*X(922) - X(1822) = X(1822)-JVS(7497)*X(1131) - X(1826) = X(1826)-JVS(7518)*X(1557) - X(1828) = X(1828)-JVS(7528)*X(1619) - X(1832) = X(1832)-JVS(7545)*X(1690) - X(1833) = X(1833)-JVS(7550)*X(713) - X(1834) = X(1834)-JVS(7558)*X(1611) - X(1838) = X(1838)-JVS(7575)*X(1340) - X(1843) = X(1843)-JVS(7599)*X(281) - X(1847) = X(1847)-JVS(7616)*X(1445)-JVS(7617)*X(1846) - X(1852) = X(1852)-JVS(7641)*X(209)-JVS(7642)*X(1214) - X(1858) = X(1858)-JVS(7668)*X(1718) - X(1860) = X(1860)-JVS(7677)*X(1542) - X(1865) = X(1865)-JVS(7701)*X(1449)-JVS(7702)*X(1864) - X(1867) = X(1867)-JVS(7714)*X(1305) - X(1870) = X(1870)-JVS(7730)*X(321)-JVS(7731)*X(1869) - X(1903) = X(1903)-JVS(7872)*X(1385) - X(1906) = X(1906)-JVS(7888)*X(1108) - X(1910) = X(1910)-JVS(7908)*X(1102)-JVS(7909)*X(1909) - X(1913) = X(1913)-JVS(7924)*X(371)-JVS(7925)*X(1900) - X(1923) = X(1923)-JVS(7966)*X(1239)-JVS(7967)*X(1922) - X(1931) = X(1931)-JVS(8004)*X(1295)-JVS(8005)*X(1930) - X(1942) = X(1942)-JVS(8051)*X(948)-JVS(8052)*X(1941) - X(1945) = X(1945)-JVS(8068)*X(1375) - X(1953) = X(1953)-JVS(8105)*X(340) - X(1961) = X(1961)-JVS(8141)*X(927) - X(1962) = X(1962)-JVS(8149)*X(133)-JVS(8150)*X(980) - X(1971) = X(1971)-JVS(8191)*X(1352) - X(1975) = X(1975)-JVS(8211)*X(104)-JVS(8212)*X(912) - X(1984) = X(1984)-JVS(8254)*X(526)-JVS(8255)*X(1496) - X(1986) = X(1986)-JVS(8267)*X(955) - X(1989) = X(1989)-JVS(8282)*X(520)-JVS(8283)*X(1263) - X(1998) = X(1998)-JVS(8323)*X(1478) - X(2000) = X(2000)-JVS(8335)*X(1562)-JVS(8336)*X(1938) - X(2015) = X(2015)-JVS(8404)*X(1287)-JVS(8405)*X(2014) - X(2021) = X(2021)-JVS(8432)*X(1896) - X(2028) = X(2028)-JVS(8463)*X(1621) - X(2030) = X(2030)-JVS(8472)*X(836) - X(2031) = X(2031)-JVS(8480)*X(1387) - X(2033) = X(2033)-JVS(8492)*X(772)-JVS(8493)*X(1264)-JVS(8494)*X(2032) - X(2035) = X(2035)-JVS(8505)*X(767)-JVS(8506)*X(1225)-JVS(8507)*X(2034) - X(2041) = X(2041)-JVS(8535)*X(1258)-JVS(8536)*X(2040) - X(2050) = X(2050)-JVS(8574)*X(964)-JVS(8575)*X(2049) - X(2056) = X(2056)-JVS(8603)*X(418)-JVS(8604)*X(942) - X(2060) = X(2060)-JVS(8624)*X(1349) - X(2073) = X(2073)-JVS(8682)*X(1126)-JVS(8683)*X(2072) - X(2076) = X(2076)-JVS(8698)*X(1143)-JVS(8699)*X(2075) - X(2088) = X(2088)-JVS(8751)*X(1150)-JVS(8752)*X(2087) - X(2100) = X(2100)-JVS(8805)*X(1365)-JVS(8806)*X(2099) - X(2119) = X(2119)-JVS(8886)*X(1668)-JVS(8887)*X(1950) - X(2122) = X(2122)-JVS(8900)*X(1304) - X(2132) = X(2132)-JVS(8943)*X(1612) - X(2134) = X(2134)-JVS(8952)*X(1716) - X(2141) = X(2141)-JVS(8982)*X(1615)-JVS(8983)*X(2022) - X(2154) = X(2154)-JVS(9037)*X(377)-JVS(9038)*X(1868) - X(2163) = X(2163)-JVS(9077)*X(1217) - X(2173) = X(2173)-JVS(9122)*X(831)-JVS(9123)*X(2172) - X(2190) = X(2190)-JVS(9198)*X(1212)-JVS(9199)*X(1621) - X(2197) = X(2197)-JVS(9231)*X(1191) - X(2207) = X(2207)-JVS(9275)*X(79)-JVS(9276)*X(1266) - X(2209) = X(2209)-JVS(9288)*X(482)-JVS(9289)*X(1019) - X(2226) = X(2226)-JVS(9360)*X(1505) - X(2230) = X(2230)-JVS(9381)*X(226) - X(2231) = X(2231)-JVS(9386)*X(1585) - X(2255) = X(2255)-JVS(9486)*X(608) - X(2265) = X(2265)-JVS(9526)*X(1586) - X(2273) = X(2273)-JVS(9560)*X(219)-JVS(9561)*X(2071) - X(2284) = X(2284)-JVS(9610)*X(1168) - X(2293) = X(2293)-JVS(9651)*X(99)-JVS(9652)*X(883) - X(2295) = X(2295)-JVS(9664)*X(358)-JVS(9665)*X(2204) - X(2304) = X(2304)-JVS(9703)*X(1077)-JVS(9704)*X(2303) - X(2315) = X(2315)-JVS(9751)*X(1687)-JVS(9752)*X(1863) - X(2322) = X(2322)-JVS(9781)*X(1315)-JVS(9782)*X(2321) - X(2324) = X(2324)-JVS(9794)*X(1059) - X(2334) = X(2334)-JVS(9841)*X(1270)-JVS(9842)*X(2333) - X(2361) = X(2361)-JVS(9954)*X(1326) - X(2374) = X(2374)-JVS(10013)*X(1265) - X(2377) = X(2377)-JVS(10030)*X(821)-JVS(10031)*X(1260) - X(2381) = X(2381)-JVS(10052)*X(958) - X(2395) = X(2395)-JVS(10107)*X(1658) - X(2399) = X(2399)-JVS(10124)*X(918) - X(2415) = X(2415)-JVS(10192)*X(95)-JVS(10193)*X(1241) - X(2438) = X(2438)-JVS(10290)*X(1671) - X(2448) = X(2448)-JVS(10333)*X(1698) - X(2452) = X(2452)-JVS(10350)*X(354)-JVS(10351)*X(1353) - X(2457) = X(2457)-JVS(10375)*X(493)-JVS(10376)*X(1367) - X(2465) = X(2465)-JVS(10412)*X(298)-JVS(10413)*X(855) - X(2467) = X(2467)-JVS(10425)*X(392) - X(2471) = X(2471)-JVS(10440)*X(142) - X(2473) = X(2473)-JVS(10452)*X(578)-JVS(10453)*X(1080) - X(2478) = X(2478)-JVS(10474)*X(1562) - X(2480) = X(2480)-JVS(10481)*X(516)-JVS(10482)*X(1059)-JVS(10483)*X(2324)-JVS(10484)*X(2462) - X(2486) = X(2486)-JVS(10508)*X(305) - X(2488) = X(2488)-JVS(10515)*X(85) - X(2490) = X(2490)-JVS(10527)*X(1069) - X(2492) = X(2492)-JVS(10539)*X(622)-JVS(10540)*X(1224) - X(2493) = X(2493)-JVS(10547)*X(1672) - X(2495) = X(2495)-JVS(10558)*X(311)-JVS(10559)*X(1071) - X(2502) = X(2502)-JVS(10590)*X(1288) - X(2506) = X(2506)-JVS(10609)*X(1747) - X(2508) = X(2508)-JVS(10620)*X(1468) - X(2512) = X(2512)-JVS(10639)*X(317)-JVS(10640)*X(1012) - X(2516) = X(2516)-JVS(10659)*X(920) - X(2521) = X(2521)-JVS(10682)*X(350)-JVS(10683)*X(1021) - X(2526) = X(2526)-JVS(10706)*X(875) - X(2528) = X(2528)-JVS(10717)*X(586)-JVS(10718)*X(1337)-JVS(10719)*X(2123) - X(2535) = X(2535)-JVS(10750)*X(979) - X(2536) = X(2536)-JVS(10757)*X(1096) - X(2539) = X(2539)-JVS(10772)*X(1895)-JVS(10773)*X(2070) - X(2545) = X(2545)-JVS(10800)*X(55)-JVS(10801)*X(1438) - X(2547) = X(2547)-JVS(10812)*X(2129)-JVS(10813)*X(2166) - X(2549) = X(2549)-JVS(10824)*X(1778) - X(2550) = X(2550)-JVS(10831)*X(1897) - X(2551) = X(2551)-JVS(10838)*X(1187) - X(2557) = X(2557)-JVS(10865)*X(1459) - X(2561) = X(2561)-JVS(10884)*X(1272) - X(2562) = X(2562)-JVS(10891)*X(762)-JVS(10892)*X(1543)-JVS(10893)*X(2271) - X(2563) = X(2563)-JVS(10900)*X(1554) - X(2566) = X(2566)-JVS(10915)*X(962) - X(2574) = X(2574)-JVS(10950)*X(307)-JVS(10951)*X(1239)-JVS(10952)*X(1922)-JVS(10953)*X(1923) - X(2575) = X(2575)-JVS(10960)*X(1148) - X(2577) = X(2577)-JVS(10971)*X(1508) - X(2578) = X(2578)-JVS(10978)*X(1527) - X(2581) = X(2581)-JVS(10993)*X(1170) - X(2586) = X(2586)-JVS(11016)*X(1532) - X(2588) = X(2588)-JVS(11027)*X(1253) - X(2589) = X(2589)-JVS(11034)*X(590)-JVS(11035)*X(1204)-JVS(11036)*X(2270) - X(2591) = X(2591)-JVS(11047)*X(1381) - X(2592) = X(2592)-JVS(11054)*X(1602) - X(2594) = X(2594)-JVS(11065)*X(671)-JVS(11066)*X(967)-JVS(11067)*X(2245) - X(2595) = X(2595)-JVS(11074)*X(1700)-JVS(11075)*X(2565) - X(2596) = X(2596)-JVS(11082)*X(1220) - X(2598) = X(2598)-JVS(11093)*X(1029) - X(2599) = X(2599)-JVS(11100)*X(1524) - X(2604) = X(2604)-JVS(11123)*X(1512) - X(2607) = X(2607)-JVS(11138)*X(1116) - X(2614) = X(2614)-JVS(11169)*X(1132)-JVS(11170)*X(2092) - X(2623) = X(2623)-JVS(11209)*X(968) - X(2634) = X(2634)-JVS(11256)*X(577)-JVS(11257)*X(1177)-JVS(11258)*X(2453) - X(2638) = X(2638)-JVS(11277)*X(804)-JVS(11278)*X(1526)-JVS(11279)*X(2330) - X(2639) = X(2639)-JVS(11286)*X(1899) - X(2641) = X(2641)-JVS(11297)*X(917) - X(2642) = X(2642)-JVS(11304)*X(616)-JVS(11305)*X(1446)-JVS(11306)*X(2124) - X(2644) = X(2644)-JVS(11317)*X(284)-JVS(11318)*X(1499)-JVS(11319)*X(2514) - X(2645) = X(2645)-JVS(11326)*X(1623)-JVS(11327)*X(2559) - X(2646) = X(2646)-JVS(11332)*X(1490)-JVS(11333)*X(1978) - X(2647) = X(2647)-JVS(11340)*X(1842)-JVS(11341)*X(2220) - X(2659) = X(2659)-JVS(11392)*X(1681)-JVS(11393)*X(2602) - X(2662) = X(2662)-JVS(11408)*X(62)-JVS(11409)*X(2109) - X(2665) = X(2665)-JVS(11424)*X(286) - X(2667) = X(2667)-JVS(11433)*X(1522) - X(2668) = X(2668)-JVS(11440)*X(1255) - X(2676) = X(2676)-JVS(11475)*X(1398) - X(2679) = X(2679)-JVS(11490)*X(1099) - X(2680) = X(2680)-JVS(11497)*X(500)-JVS(11498)*X(2300) - X(2682) = X(2682)-JVS(11507)*X(1144) - X(2692) = X(2692)-JVS(11550)*X(1495) - X(2694) = X(2694)-JVS(11561)*X(863) - X(2697) = X(2697)-JVS(11576)*X(758)-JVS(11577)*X(1145)-JVS(11578)*X(2282) - X(2699) = X(2699)-JVS(11589)*X(1965)-JVS(11590)*X(2057) - X(2706) = X(2706)-JVS(11621)*X(1395) - X(2707) = X(2707)-JVS(11628)*X(1809) - X(2710) = X(2710)-JVS(11643)*X(1298)-JVS(11644)*X(2149) - X(2711) = X(2711)-JVS(11651)*X(1683)-JVS(11652)*X(1917) - X(2714) = X(2714)-JVS(11665)*X(1598) - X(2716) = X(2716)-JVS(11674)*X(381)-JVS(11675)*X(1160)-JVS(11676)*X(1952) - X(2717) = X(2717)-JVS(11683)*X(2147) - X(2719) = X(2719)-JVS(11694)*X(357)-JVS(11695)*X(1077)-JVS(11696)*X(2303)-JVS(11697)*X(2327) - X(2720) = X(2720)-JVS(11704)*X(1886) - X(2722) = X(2722)-JVS(11715)*X(1492)-JVS(11716)*X(1933) - X(2724) = X(2724)-JVS(11727)*X(902) - X(2728) = X(2728)-JVS(11746)*X(1594) - X(2731) = X(2731)-JVS(11761)*X(1105) - X(2732) = X(2732)-JVS(11768)*X(1729) - X(2733) = X(2733)-JVS(11775)*X(1278) - X(2736) = X(2736)-JVS(11792)*X(1166) - X(2739) = X(2739)-JVS(11807)*X(1117) - X(2741) = X(2741)-JVS(11818)*X(1190) - X(2744) = X(2744)-JVS(11833)*X(1758) - X(2745) = X(2745)-JVS(11840)*X(1142)-JVS(11841)*X(2074) - X(2746) = X(2746)-JVS(11848)*X(127)-JVS(11849)*X(1183) - X(2747) = X(2747)-JVS(11856)*X(2006) - X(2749) = X(2749)-JVS(11867)*X(1485) - X(2750) = X(2750)-JVS(11874)*X(984) - X(2751) = X(2751)-JVS(11881)*X(960) - X(2752) = X(2752)-JVS(11888)*X(1837) - X(2758) = X(2758)-JVS(11915)*X(1293) - X(2760) = X(2760)-JVS(11926)*X(1115) - X(2762) = X(2762)-JVS(11937)*X(1664) - X(2767) = X(2767)-JVS(11960)*X(2019)-JVS(11961)*X(2403) - X(2768) = X(2768)-JVS(11968)*X(1393) - X(2770) = X(2770)-JVS(11979)*X(2354) - X(2771) = X(2771)-JVS(11986)*X(841) - X(2773) = X(2773)-JVS(11997)*X(313)-JVS(11998)*X(872)-JVS(11999)*X(1972) - X(2776) = X(2776)-JVS(12014)*X(1669)-JVS(12015)*X(2649) - X(2788) = X(2788)-JVS(12068)*X(866) - X(2789) = X(2789)-JVS(12075)*X(1555)-JVS(12076)*X(2499) - X(2795) = X(2795)-JVS(12103)*X(1185) - X(2798) = X(2798)-JVS(12118)*X(2468) - X(2806) = X(2806)-JVS(12153)*X(1549) - X(2809) = X(2809)-JVS(12170)*X(1485)-JVS(12171)*X(1875) - X(2816) = X(2816)-JVS(12200)*X(1098) - X(2818) = X(2818)-JVS(12211)*X(1399) - X(2819) = X(2819)-JVS(12218)*X(877) - X(2820) = X(2820)-JVS(12225)*X(1215) - X(2821) = X(2821)-JVS(12232)*X(1306) - X(2826) = X(2826)-JVS(12255)*X(636)-JVS(12256)*X(1441)-JVS(12257)*X(1963) - X(2827) = X(2827)-JVS(12264)*X(908) - X(2831) = X(2831)-JVS(12283)*X(1072) - X(2832) = X(2832)-JVS(12290)*X(1502) - X(2837) = X(2837)-JVS(12313)*X(2477) - X(2840) = X(2840)-JVS(12328)*X(1138) - X(2847) = X(2847)-JVS(12359)*X(1589)-JVS(12360)*X(2585) - X(2849) = X(2849)-JVS(12371)*X(2133) - X(2851) = X(2851)-JVS(12382)*X(1391) - X(2853) = X(2853)-JVS(12393)*X(1271) - X(2856) = X(2856)-JVS(12410)*X(296)-JVS(12411)*X(1505)-JVS(12412)*X(2257)-JVS(12413)*X(2855) - X(2858) = X(2858)-JVS(12424)*X(1515) - X(2865) = X(2865)-JVS(12457)*X(909) - X(2869) = X(2869)-JVS(12476)*X(2010) - X(2874) = X(2874)-JVS(12499)*X(1122) - X(2875) = X(2875)-JVS(12506)*X(1636)-JVS(12507)*X(2601) - X(2881) = X(2881)-JVS(12532)*X(1292) - X(2889) = X(2889)-JVS(12567)*X(1281)-JVS(12568)*X(2045) - X(2890) = X(2890)-JVS(12575)*X(1181) - X(2891) = X(2891)-JVS(12582)*X(1994)-JVS(12583)*X(2459) - X(2894) = X(2894)-JVS(12598)*X(1019) - X(2897) = X(2897)-JVS(12613)*X(891) - X(2902) = X(2902)-JVS(12636)*X(1186) - X(2903) = X(2903)-JVS(12643)*X(825) - X(2905) = X(2905)-JVS(12654)*X(997) - X(2906) = X(2906)-JVS(12661)*X(2097)-JVS(12662)*X(2192) - X(2909) = X(2909)-JVS(12677)*X(462)-JVS(12678)*X(511)-JVS(12679)*X(927)-JVS(12680)*X(949)-JVS(12681)*X(2079)& - &-JVS(12682)*X(2908) - X(2910) = X(2910)-JVS(12689)*X(1632)-JVS(12690)*X(2625) - X(2912) = X(2912)-JVS(12699)*X(1767) - X(2914) = X(2914)-JVS(12710)*X(2286) - X(2916) = X(2916)-JVS(12721)*X(971) - X(2918) = X(2918)-JVS(12732)*X(1104) - X(2919) = X(2919)-JVS(12739)*X(1301) - X(2922) = X(2922)-JVS(12754)*X(1235)-JVS(12755)*X(2020) - X(2926) = X(2926)-JVS(12774)*X(1921)-JVS(12775)*X(2318) - X(2927) = X(2927)-JVS(12782)*X(700) - X(2931) = X(2931)-JVS(12799)*X(1046) - X(2932) = X(2932)-JVS(12806)*X(1601) - X(2933) = X(2933)-JVS(12811)*X(144)-JVS(12812)*X(1488)-JVS(12813)*X(2610) - X(2935) = X(2935)-JVS(12824)*X(1420) - X(2936) = X(2936)-JVS(12831)*X(538) - X(2937) = X(2937)-JVS(12836)*X(1423) - X(2938) = X(2938)-JVS(12843)*X(320)-JVS(12844)*X(1519)-JVS(12845)*X(2275) - X(2939) = X(2939)-JVS(12852)*X(1856)-JVS(12853)*X(2247) - X(2944) = X(2944)-JVS(12876)*X(1774) - X(2946) = X(2946)-JVS(12887)*X(995) - X(2949) = X(2949)-JVS(12902)*X(659)-JVS(12903)*X(1088) - X(2952) = X(2952)-JVS(12918)*X(1273) - X(2953) = X(2953)-JVS(12925)*X(633)-JVS(12926)*X(1414)-JVS(12927)*X(2332) - X(2954) = X(2954)-JVS(12934)*X(1869)-JVS(12935)*X(2405) - X(2959) = X(2959)-JVS(12958)*X(1362) - X(2960) = X(2960)-JVS(12965)*X(1268) - X(2961) = X(2961)-JVS(12972)*X(881) - X(2962) = X(2962)-JVS(12979)*X(1517) - X(2963) = X(2963)-JVS(12986)*X(1379) - X(2965) = X(2965)-JVS(12997)*X(213)-JVS(12998)*X(218)-JVS(12999)*X(1295)-JVS(13000)*X(1333)-JVS(13001)*X(1930) - X(2966) = X(2966)-JVS(13008)*X(957) - X(2967) = X(2967)-JVS(13013)*X(263)-JVS(13014)*X(1345) - X(2968) = X(2968)-JVS(13021)*X(940) - X(2972) = X(2972)-JVS(13040)*X(1884) - X(2973) = X(2973)-JVS(13047)*X(2013) - X(2974) = X(2974)-JVS(13054)*X(1855)-JVS(13055)*X(2350) - X(2979) = X(2979)-JVS(13078)*X(476)-JVS(13079)*X(1339)-JVS(13080)*X(1883) - X(2982) = X(2982)-JVS(13095)*X(651)-JVS(13096)*X(1323)-JVS(13097)*X(2253) - X(2983) = X(2983)-JVS(13104)*X(1422) - X(2986) = X(2986)-JVS(13119)*X(913) - X(2989) = X(2989)-JVS(13134)*X(1360) - X(2990) = X(2990)-JVS(13141)*X(1753)-JVS(13142)*X(2246) - X(2994) = X(2994)-JVS(13163)*X(1647)-JVS(13164)*X(2740) - X(2995) = X(2995)-JVS(13171)*X(972) - X(2996) = X(2996)-JVS(13178)*X(981)-JVS(13179)*X(2436) - X(2997) = X(2997)-JVS(13186)*X(1371) - X(3000) = X(3000)-JVS(13201)*X(1633)-JVS(13202)*X(2981)-JVS(13203)*X(2999) - X(3001) = X(3001)-JVS(13210)*X(1322) - X(3004) = X(3004)-JVS(13225)*X(1358) - X(3009) = X(3009)-JVS(13248)*X(807)-JVS(13249)*X(1136)-JVS(13250)*X(2185) - X(3013) = X(3013)-JVS(13269)*X(554)-JVS(13270)*X(1213)-JVS(13271)*X(2256) - X(3016) = X(3016)-JVS(13286)*X(1051) - X(3027) = X(3027)-JVS(13333)*X(1717)-JVS(13334)*X(2709) - X(3028) = X(3028)-JVS(13341)*X(974) - X(3030) = X(3030)-JVS(13352)*X(897) - X(3032) = X(3032)-JVS(13363)*X(1885)-JVS(13364)*X(2337) - X(3036) = X(3036)-JVS(13383)*X(835) - X(3037) = X(3037)-JVS(13390)*X(1993) - X(3039) = X(3039)-JVS(13401)*X(1314) - X(3041) = X(3041)-JVS(13412)*X(559)-JVS(13413)*X(1538) - X(3048) = X(3048)-JVS(13444)*X(873)-JVS(13445)*X(2834) - X(3050) = X(3050)-JVS(13456)*X(1613)-JVS(13457)*X(2520) - X(3054) = X(3054)-JVS(13476)*X(1430) - X(3057) = X(3057)-JVS(13491)*X(1659)-JVS(13492)*X(2730) - X(3058) = X(3058)-JVS(13497)*X(1338) - X(3062) = X(3062)-JVS(13516)*X(858) - X(3064) = X(3064)-JVS(13527)*X(2392) - X(3065) = X(3065)-JVS(13534)*X(1101) - X(3066) = X(3066)-JVS(13541)*X(1313)-JVS(13542)*X(2215) - X(3067) = X(3067)-JVS(13549)*X(1044) - X(3069) = X(3069)-JVS(13560)*X(1153)-JVS(13561)*X(3068) - X(3071) = X(3071)-JVS(13572)*X(1392) - X(3072) = X(3072)-JVS(13579)*X(1377) - X(3073) = X(3073)-JVS(13586)*X(1137) - X(3074) = X(3074)-JVS(13593)*X(885) - X(3079) = X(3079)-JVS(13616)*X(1779) - X(3080) = X(3080)-JVS(13623)*X(70)-JVS(13624)*X(2236) - X(3082) = X(3082)-JVS(13635)*X(523)-JVS(13636)*X(1310)-JVS(13637)*X(2372) - X(3083) = X(3083)-JVS(13643)*X(1776) - X(3086) = X(3086)-JVS(13657)*X(1571)-JVS(13658)*X(1839) - X(3089) = X(3089)-JVS(13674)*X(428)-JVS(13675)*X(1211)-JVS(13676)*X(1964) - X(3090) = X(3090)-JVS(13682)*X(2174) - X(3091) = X(3091)-JVS(13688)*X(460)-JVS(13689)*X(1052)-JVS(13690)*X(2432) - X(3103) = X(3103)-JVS(13747)*X(274)-JVS(13748)*X(956)-JVS(13749)*X(2241) - X(3104) = X(3104)-JVS(13755)*X(1983) - X(3107) = X(3107)-JVS(13773)*X(647)-JVS(13774)*X(1103) - X(3109) = X(3109)-JVS(13784)*X(234)-JVS(13785)*X(1501)-JVS(13786)*X(1831) - X(3110) = X(3110)-JVS(13792)*X(429)-JVS(13793)*X(848)-JVS(13794)*X(2113) - X(3115) = X(3115)-JVS(13818)*X(2540) - X(3117) = X(3117)-JVS(13829)*X(453)-JVS(13830)*X(1259)-JVS(13831)*X(2216) - X(3118) = X(3118)-JVS(13837)*X(353)-JVS(13838)*X(1267)-JVS(13839)*X(1919) - X(3121) = X(3121)-JVS(13855)*X(517)-JVS(13856)*X(1434)-JVS(13857)*X(2341) - X(3122) = X(3122)-JVS(13863)*X(283)-JVS(13864)*X(1039)-JVS(13865)*X(2418) - X(3124) = X(3124)-JVS(13876)*X(1548)-JVS(13877)*X(1908) - X(3126) = X(3126)-JVS(13888)*X(758)-JVS(13889)*X(1145)-JVS(13890)*X(2282) - X(3128) = X(3128)-JVS(13901)*X(473)-JVS(13902)*X(512)-JVS(13903)*X(2663)-JVS(13904)*X(2664)-JVS(13905)*X(2764)& - &-JVS(13906)*X(2810)-JVS(13907)*X(2976)-JVS(13908)*X(3075) - X(3130) = X(3130)-JVS(13921)*X(3129) - X(3131) = X(3131)-JVS(13925)*X(3096) - X(3132) = X(3132)-JVS(13929)*X(1666)-JVS(13930)*X(1735)-JVS(13931)*X(2047) - X(3135) = X(3135)-JVS(13945)*X(3134) - X(3136) = X(3136)-JVS(13949)*X(3105) - X(3139) = X(3139)-JVS(13961)*X(3138) - X(3148) = X(3148)-JVS(13999)*X(269)-JVS(14000)*X(1491)-JVS(14001)*X(2161) - X(3149) = X(3149)-JVS(14007)*X(3144) - X(3151) = X(3151)-JVS(14016)*X(1707)-JVS(14017)*X(2052) - X(3156) = X(3156)-JVS(14039)*X(417)-JVS(14040)*X(1143)-JVS(14041)*X(2075) - X(3157) = X(3157)-JVS(14047)*X(250) - X(3158) = X(3158)-JVS(14051)*X(3145) - X(3164) = X(3164)-JVS(14078)*X(3113) - X(3166) = X(3166)-JVS(14087)*X(486)-JVS(14088)*X(1079)-JVS(14089)*X(1824) - X(3168) = X(3168)-JVS(14100)*X(412)-JVS(14101)*X(870)-JVS(14102)*X(2094) - X(3171) = X(3171)-JVS(14116)*X(1853)-JVS(14117)*X(2805) - X(3172) = X(3172)-JVS(14123)*X(3084) - X(3174) = X(3174)-JVS(14132)*X(436)-JVS(14133)*X(1027)-JVS(14134)*X(2406) - X(3176) = X(3176)-JVS(14145)*X(764)-JVS(14146)*X(1049) - X(3180) = X(3180)-JVS(14164)*X(3179) - X(3183) = X(3183)-JVS(14176)*X(1744)-JVS(14177)*X(2059) - X(3184) = X(3184)-JVS(14183)*X(1740)-JVS(14184)*X(2121) - X(3185) = X(3185)-JVS(14190)*X(1674)-JVS(14191)*X(2221) - X(3193) = X(3193)-JVS(14230)*X(3192) - X(3194) = X(3194)-JVS(14234)*X(2544) - X(3195) = X(3195)-JVS(14242)*X(68)-JVS(14243)*X(884)-JVS(14244)*X(1647)-JVS(14245)*X(2740) - X(3200) = X(3200)-JVS(14269)*X(1576)-JVS(14270)*X(2137) - X(3213) = X(3213)-JVS(14323)*X(409)-JVS(14324)*X(1004)-JVS(14325)*X(2157)-JVS(14326)*X(2666) - X(3215) = X(3215)-JVS(14338)*X(2568) - X(3219) = X(3219)-JVS(14358)*X(627)-JVS(14359)*X(3169) - X(3228) = X(3228)-JVS(14396)*X(968) - X(3230) = X(3230)-JVS(14405)*X(568) - X(3233) = X(3233)-JVS(14418)*X(2226)-JVS(14419)*X(2304)-JVS(14420)*X(2719)-JVS(14421)*X(2855)-JVS(14422)*X(2856) - X(3234) = X(3234)-JVS(14433)*X(1289) - X(3241) = X(3241)-JVS(14465)*X(105)-JVS(14466)*X(2252) - X(3242) = X(3242)-JVS(14474)*X(413)-JVS(14475)*X(1523)-JVS(14476)*X(1619)-JVS(14477)*X(1769)-JVS(14478)*X(2165)& - &-JVS(14479)*X(2737)-JVS(14480)*X(2860) - X(3244) = X(3244)-JVS(14495)*X(677)-JVS(14496)*X(3182) - X(3245) = X(3245)-JVS(14501)*X(2489) - X(3246) = X(3246)-JVS(14509)*X(13)-JVS(14510)*X(1218)-JVS(14511)*X(1589)-JVS(14512)*X(2585) - X(3247) = X(3247)-JVS(14520)*X(726)-JVS(14521)*X(1372)-JVS(14522)*X(1373) - X(3251) = X(3251)-JVS(14542)*X(1600) - X(3252) = X(3252)-JVS(14547)*X(1949) - X(3262) = X(3262)-JVS(14594)*X(1665) - X(3263) = X(3263)-JVS(14599)*X(707)-JVS(14600)*X(3097) - X(3268) = X(3268)-JVS(14621)*X(2135)-JVS(14622)*X(3175) - X(3269) = X(3269)-JVS(14630)*X(2025) - X(3270) = X(3270)-JVS(14638)*X(478)-JVS(14639)*X(1070)-JVS(14640)*X(2063)-JVS(14641)*X(2597) - X(3281) = X(3281)-JVS(14689)*X(3259) - X(3283) = X(3283)-JVS(14701)*X(74)-JVS(14702)*X(1396)-JVS(14703)*X(1729)-JVS(14704)*X(3235) - X(3284) = X(3284)-JVS(14712)*X(2001)-JVS(14713)*X(2553)-JVS(14714)*X(2814) - X(3296) = X(3296)-JVS(14766)*X(18)-JVS(14767)*X(982)-JVS(14768)*X(1594)-JVS(14769)*X(3295) - X(3301) = X(3301)-JVS(14793)*X(1768) - X(3305) = X(3305)-JVS(14813)*X(2225) - X(3309) = X(3309)-JVS(14833)*X(789)-JVS(14834)*X(1094) - X(3328) = X(3328)-JVS(14911)*X(1141) - X(3329) = X(3329)-JVS(14917)*X(1169) - X(3330) = X(3330)-JVS(14924)*X(3273)-JVS(14925)*X(3286) - X(3331) = X(3331)-JVS(14932)*X(446)-JVS(14933)*X(1150)-JVS(14934)*X(2087)-JVS(14935)*X(2088) - X(3332) = X(3332)-JVS(14942)*X(1310)-JVS(14943)*X(2372) - X(3333) = X(3333)-JVS(14950)*X(2199)-JVS(14951)*X(2409) - X(3335) = X(3335)-JVS(14963)*X(1487) - X(3336) = X(3336)-JVS(14970)*X(2553) - X(3337) = X(3337)-JVS(14976)*X(1618)-JVS(14977)*X(2018)-JVS(14978)*X(2523) - X(3338) = X(3338)-JVS(14985)*X(887) - X(3339) = X(3339)-JVS(14992)*X(681)-JVS(14993)*X(1167) - X(3341) = X(3341)-JVS(15003)*X(2455) - X(3342) = X(3342)-JVS(15009)*X(1434)-JVS(15010)*X(2341) - X(3343) = X(3343)-JVS(15017)*X(432)-JVS(15018)*X(1131)-JVS(15019)*X(1822)-JVS(15020)*X(2078) - X(3344) = X(3344)-JVS(15027)*X(2156)-JVS(15028)*X(2461) - X(3345) = X(3345)-JVS(15035)*X(811)-JVS(15036)*X(1161)-JVS(15037)*X(3271) - X(3346) = X(3346)-JVS(15043)*X(1406) - X(3347) = X(3347)-JVS(15050)*X(1472) - X(3348) = X(3348)-JVS(15057)*X(1934)-JVS(15058)*X(2380)-JVS(15059)*X(2527) - X(3349) = X(3349)-JVS(15066)*X(2125) - X(3350) = X(3350)-JVS(15072)*X(2043)-JVS(15073)*X(2695)-JVS(15074)*X(2729) - X(3351) = X(3351)-JVS(15081)*X(1849) - X(3352) = X(3352)-JVS(15088)*X(531)-JVS(15089)*X(1065) - X(3354) = X(3354)-JVS(15099)*X(2114)-JVS(15100)*X(2344) - X(3355) = X(3355)-JVS(15106)*X(1522)-JVS(15107)*X(2573) - X(3356) = X(3356)-JVS(15114)*X(683)-JVS(15115)*X(1510) - X(3359) = X(3359)-JVS(15130)*X(779)-JVS(15131)*X(1415) - X(3361) = X(3361)-JVS(15141)*X(1504) - X(3362) = X(3362)-JVS(15148)*X(1045) - X(3363) = X(3363)-JVS(15155)*X(869) - X(3364) = X(3364)-JVS(15162)*X(2366) - X(3365) = X(3365)-JVS(15168)*X(279)-JVS(15169)*X(1958)-JVS(15170)*X(2564) - X(3367) = X(3367)-JVS(15183)*X(1876)-JVS(15184)*X(1904) - X(3368) = X(3368)-JVS(15191)*X(464)-JVS(15192)*X(1315)-JVS(15193)*X(2321)-JVS(15194)*X(2322) - X(3369) = X(3369)-JVS(15201)*X(466)-JVS(15202)*X(2199)-JVS(15203)*X(2409)-JVS(15204)*X(3333) - X(3370) = X(3370)-JVS(15211)*X(934) - X(3371) = X(3371)-JVS(15218)*X(1342) - X(3372) = X(3372)-JVS(15225)*X(361)-JVS(15226)*X(1307)-JVS(15227)*X(2383)-JVS(15228)*X(2782) - X(3373) = X(3373)-JVS(15235)*X(394)-JVS(15236)*X(1060)-JVS(15237)*X(1813)-JVS(15238)*X(2195) - X(3374) = X(3374)-JVS(15245)*X(699)-JVS(15246)*X(882)-JVS(15247)*X(2311) - X(3375) = X(3375)-JVS(15254)*X(1376) - X(3376) = X(3376)-JVS(15261)*X(1940) - X(3377) = X(3377)-JVS(15267)*X(999)-JVS(15268)*X(2196) - X(3378) = X(3378)-JVS(15275)*X(565)-JVS(15276)*X(846) - X(3380) = X(3380)-JVS(15286)*X(1123) - X(3381) = X(3381)-JVS(15293)*X(888) - X(3382) = X(3382)-JVS(15300)*X(1375)-JVS(15301)*X(2917) - X(3383) = X(3383)-JVS(15307)*X(2077) - X(3384) = X(3384)-JVS(15314)*X(220)-JVS(15315)*X(1281)-JVS(15316)*X(2045)-JVS(15317)*X(2889) - X(3385) = X(3385)-JVS(15324)*X(2956) - X(3386) = X(3386)-JVS(15331)*X(1914)-JVS(15332)*X(2128) - X(3387) = X(3387)-JVS(15339)*X(2985) - X(3388) = X(3388)-JVS(15345)*X(1030) - X(3389) = X(3389)-JVS(15352)*X(1777)-JVS(15353)*X(2186)-JVS(15354)*X(3055) - X(3390) = X(3390)-JVS(15361)*X(1318) - X(3391) = X(3391)-JVS(15368)*X(385)-JVS(15369)*X(995)-JVS(15370)*X(1026) - X(3392) = X(3392)-JVS(15376)*X(2735) - X(3393) = X(3393)-JVS(15382)*X(1010)-JVS(15383)*X(2291) - X(3394) = X(3394)-JVS(15390)*X(2481) - X(3395) = X(3395)-JVS(15397)*X(923) - X(3396) = X(3396)-JVS(15404)*X(1053) - X(3397) = X(3397)-JVS(15411)*X(406)-JVS(15412)*X(813)-JVS(15413)*X(1801)-JVS(15414)*X(2440)-JVS(15415)*X(2524) - X(3398) = X(3398)-JVS(15422)*X(904)-JVS(15423)*X(2296) - X(3399) = X(3399)-JVS(15430)*X(2394) - X(3400) = X(3400)-JVS(15436)*X(1426) - X(3401) = X(3401)-JVS(15443)*X(2240) - X(3402) = X(3402)-JVS(15449)*X(977) - X(3403) = X(3403)-JVS(15456)*X(128)-JVS(15457)*X(1083)-JVS(15458)*X(1159) - X(3404) = X(3404)-JVS(15465)*X(2193)-JVS(15466)*X(2223) - X(3405) = X(3405)-JVS(15473)*X(1160)-JVS(15474)*X(1952) - X(3406) = X(3406)-JVS(15481)*X(1455) - X(3407) = X(3407)-JVS(15488)*X(1127) - X(3408) = X(3408)-JVS(15495)*X(2546) - X(3409) = X(3409)-JVS(15501)*X(2449) - X(3410) = X(3410)-JVS(15507)*X(1544) - X(3411) = X(3411)-JVS(15514)*X(742)-JVS(15515)*X(1038)-JVS(15516)*X(3322) - X(3412) = X(3412)-JVS(15522)*X(505)-JVS(15523)*X(1270)-JVS(15524)*X(2333)-JVS(15525)*X(2334) - X(3414) = X(3414)-JVS(15538)*X(1025) - X(3415) = X(3415)-JVS(15545)*X(2009) - X(3416) = X(3416)-JVS(15552)*X(788)-JVS(15553)*X(1016)-JVS(15554)*X(3285) - X(3417) = X(3417)-JVS(15560)*X(1223) - X(3418) = X(3418)-JVS(15567)*X(2413) - X(3420) = X(3420)-JVS(15578)*X(441)-JVS(15579)*X(955)-JVS(15580)*X(2408)-JVS(15581)*X(2673) - X(3421) = X(3421)-JVS(15588)*X(1329) - X(3422) = X(3422)-JVS(15595)*X(1948) - X(3423) = X(3423)-JVS(15602)*X(1388) - X(3424) = X(3424)-JVS(15609)*X(1519)-JVS(15610)*X(2275) - X(3425) = X(3425)-JVS(15617)*X(1444)-JVS(15618)*X(1752) - X(3426) = X(3426)-JVS(15625)*X(732)-JVS(15626)*X(851) - X(3428) = X(3428)-JVS(15636)*X(2252)-JVS(15637)*X(2544) - X(3429) = X(3429)-JVS(15643)*X(1946)-JVS(15644)*X(2435) - X(3430) = X(3430)-JVS(15651)*X(1439)-JVS(15652)*X(1786) - X(3431) = X(3431)-JVS(15659)*X(411)-JVS(15660)*X(1871)-JVS(15661)*X(2621) - X(3432) = X(3432)-JVS(15668)*X(2069) - X(3433) = X(3433)-JVS(15674)*X(785)-JVS(15675)*X(1014)-JVS(15676)*X(3264) - X(3434) = X(3434)-JVS(15682)*X(513)-JVS(15683)*X(2852)-JVS(15684)*X(2923) - X(3440) = X(3440)-JVS(15711)*X(89)-JVS(15712)*X(1431)-JVS(15713)*X(3439) - X(3450) = X(3450)-JVS(15756)*X(1988)-JVS(15757)*X(2357) - X(3454) = X(3454)-JVS(15774)*X(678) - X(3456) = X(3456)-JVS(15783)*X(2102)-JVS(15784)*X(3229) - X(3461) = X(3461)-JVS(15809)*X(2353)-JVS(15810)*X(3303) - X(3470) = X(3470)-JVS(15851)*X(391) - X(3474) = X(3474)-JVS(15868)*X(2379)-JVS(15869)*X(3232) - X(3477) = X(3477)-JVS(15887)*X(1229) - X(3478) = X(3478)-JVS(15893)*X(2535)-JVS(15894)*X(2577)-JVS(15895)*X(2731)-JVS(15896)*X(3370) - X(3481) = X(3481)-JVS(15917)*X(3105) - X(3482) = X(3482)-JVS(15923)*X(3180) - X(3483) = X(3483)-JVS(15928)*X(1644)-JVS(15929)*X(3459) - X(3486) = X(3486)-JVS(15944)*X(812)-JVS(15945)*X(1112)-JVS(15946)*X(3304) - X(3488) = X(3488)-JVS(15956)*X(2497) - X(3489) = X(3489)-JVS(15962)*X(932)-JVS(15963)*X(3130) - X(3491) = X(3491)-JVS(15974)*X(1157)-JVS(15975)*X(3158) - X(3492) = X(3492)-JVS(15981)*X(3097) - X(3493) = X(3493)-JVS(15987)*X(804)-JVS(15988)*X(1526)-JVS(15989)*X(2330) - X(3494) = X(3494)-JVS(15995)*X(3139) - X(3497) = X(3497)-JVS(16009)*X(256)-JVS(16010)*X(1444)-JVS(16011)*X(1752)-JVS(16012)*X(2239)-JVS(16013)*X(3425) - X(3498) = X(3498)-JVS(16021)*X(2558)-JVS(16022)*X(2878) - X(3499) = X(3499)-JVS(16030)*X(3164) - X(3500) = X(3500)-JVS(16035)*X(1425) - X(3502) = X(3502)-JVS(16045)*X(3326) - X(3503) = X(3503)-JVS(16051)*X(1033)-JVS(16052)*X(3193) - X(3504) = X(3504)-JVS(16058)*X(807)-JVS(16059)*X(1136)-JVS(16060)*X(2185) - X(3505) = X(3505)-JVS(16066)*X(228)-JVS(16067)*X(2086)-JVS(16068)*X(2422) - X(3506) = X(3506)-JVS(16074)*X(3193) - X(3507) = X(3507)-JVS(16079)*X(3134) - X(3508) = X(3508)-JVS(16085)*X(3158) - X(3509) = X(3509)-JVS(16090)*X(3096) - X(3510) = X(3510)-JVS(16096)*X(2260) - X(3511) = X(3511)-JVS(16102)*X(1503)-JVS(16103)*X(3164) - X(3512) = X(3512)-JVS(16109)*X(3135) - X(3513) = X(3513)-JVS(16114)*X(3057) - X(3514) = X(3514)-JVS(16120)*X(3201)-JVS(16121)*X(3240)-JVS(16122)*X(3501) - X(3515) = X(3515)-JVS(16130)*X(3203) - X(3516) = X(3516)-JVS(16136)*X(694)-JVS(16137)*X(2008)-JVS(16138)*X(2280)-JVS(16139)*X(2359)-JVS(16140)*X(2373) - X(3517) = X(3517)-JVS(16154)*X(2470) - X(3518) = X(3518)-JVS(16159)*X(959)-JVS(16160)*X(3139) - X(3521) = X(3521)-JVS(16176)*X(3179) - X(3522) = X(3522)-JVS(16182)*X(616)-JVS(16183)*X(1446)-JVS(16184)*X(2124) - X(3523) = X(3523)-JVS(16190)*X(3145) - X(3525) = X(3525)-JVS(16200)*X(3138) - X(3526) = X(3526)-JVS(16206)*X(2711) - X(3527) = X(3527)-JVS(16212)*X(1525)-JVS(16213)*X(3129) - X(3529) = X(3529)-JVS(16223)*X(3059) - X(3530) = X(3530)-JVS(16229)*X(1876)-JVS(16230)*X(1904)-JVS(16231)*X(3367) - X(3531) = X(3531)-JVS(16239)*X(1009)-JVS(16240)*X(3131) - X(3532) = X(3532)-JVS(16246)*X(2606) - X(3534) = X(3534)-JVS(16256)*X(996)-JVS(16257)*X(3135) - X(3535) = X(3535)-JVS(16263)*X(800)-JVS(16264)*X(1727)-JVS(16265)*X(2152) - X(3536) = X(3536)-JVS(16273)*X(1124)-JVS(16274)*X(1948)-JVS(16275)*X(1976)-JVS(16276)*X(3422) - X(3537) = X(3537)-JVS(16286)*X(636)-JVS(16287)*X(1441)-JVS(16288)*X(1963) - X(3538) = X(3538)-JVS(16294)*X(939)-JVS(16295)*X(3157) - X(3539) = X(3539)-JVS(16301)*X(1232)-JVS(16302)*X(3172) - X(3541) = X(3541)-JVS(16312)*X(2588)-JVS(16313)*X(2604)-JVS(16314)*X(2903)-JVS(16315)*X(3329) - X(3542) = X(3542)-JVS(16325)*X(1386)-JVS(16326)*X(1827)-JVS(16327)*X(3308) - X(3543) = X(3543)-JVS(16335)*X(402)-JVS(16336)*X(1840) - X(3544) = X(3544)-JVS(16342)*X(671)-JVS(16343)*X(967)-JVS(16344)*X(2245) - X(3545) = X(3545)-JVS(16350)*X(3157) - X(3546) = X(3546)-JVS(16355)*X(2552) - X(3547) = X(3547)-JVS(16361)*X(1081)-JVS(16362)*X(1897)-JVS(16363)*X(2001) - X(3548) = X(3548)-JVS(16371)*X(762)-JVS(16372)*X(1543)-JVS(16373)*X(2271) - X(3549) = X(3549)-JVS(16379)*X(302) - X(3551) = X(3551)-JVS(16389)*X(3130) - X(3553) = X(3553)-JVS(16398)*X(3437) - X(3554) = X(3554)-JVS(16404)*X(1023)-JVS(16405)*X(3149) - X(3555) = X(3555)-JVS(16411)*X(2570) - X(3556) = X(3556)-JVS(16417)*X(584)-JVS(16418)*X(1622)-JVS(16419)*X(2417) - X(3557) = X(3557)-JVS(16427)*X(657)-JVS(16428)*X(1139)-JVS(16429)*X(1678)-JVS(16430)*X(1793)-JVS(16431)*X(2802) - X(3559) = X(3559)-JVS(16446)*X(2850) - X(3560) = X(3560)-JVS(16452)*X(3131) - X(3561) = X(3561)-JVS(16457)*X(926)-JVS(16458)*X(2441)-JVS(16459)*X(3289) - X(3562) = X(3562)-JVS(16467)*X(938)-JVS(16468)*X(3136) - X(3563) = X(3563)-JVS(16474)*X(3272) - X(3564) = X(3564)-JVS(16480)*X(930) - X(3565) = X(3565)-JVS(16488)*X(576)-JVS(16489)*X(1092) - X(3567) = X(3567)-JVS(16502)*X(812)-JVS(16503)*X(1112) - X(3568) = X(3568)-JVS(16510)*X(4) - X(3569) = X(3569)-JVS(16517)*X(487)-JVS(16518)*X(1034) - X(3570) = X(3570)-JVS(16525)*X(811)-JVS(16526)*X(1161) - X(3571) = X(3571)-JVS(16533)*X(535)-JVS(16534)*X(1943) - X(3572) = X(3572)-JVS(16541)*X(2179) - X(3573) = X(3573)-JVS(16548)*X(764)-JVS(16549)*X(1049) - X(3574) = X(3574)-JVS(16556)*X(1309) - X(3575) = X(3575)-JVS(16563)*X(2363) - X(3576) = X(3576)-JVS(16570)*X(788)-JVS(16571)*X(1016) - X(3577) = X(3577)-JVS(16578)*X(2442) - X(3578) = X(3578)-JVS(16585)*X(1578)-JVS(16586)*X(2686) - X(3579) = X(3579)-JVS(16593)*X(860) - X(3580) = X(3580)-JVS(16600)*X(408)-JVS(16601)*X(1478)-JVS(16602)*X(3015) - X(3581) = X(3581)-JVS(16609)*X(475)-JVS(16610)*X(947) - X(3582) = X(3582)-JVS(16617)*X(3475) - X(3583) = X(3583)-JVS(16624)*X(424)-JVS(16625)*X(1855)-JVS(16626)*X(2350)-JVS(16627)*X(2974) - X(3584) = X(3584)-JVS(16634)*X(785)-JVS(16635)*X(1014) - X(3585) = X(3585)-JVS(16642)*X(1859) - X(3586) = X(3586)-JVS(16649)*X(1364) - X(3587) = X(3587)-JVS(16656)*X(1644) - X(3588) = X(3588)-JVS(16663)*X(683)-JVS(16664)*X(1510) - X(3589) = X(3589)-JVS(16671)*X(565)-JVS(16672)*X(846) - X(3590) = X(3590)-JVS(16679)*X(560)-JVS(16680)*X(569)-JVS(16681)*X(628)-JVS(16682)*X(3512)-JVS(16683)*X(3545)& - &-JVS(16684)*X(3551) - X(3591) = X(3591)-JVS(16691)*X(799)-JVS(16692)*X(1428)-JVS(16693)*X(1823) - X(3592) = X(3592)-JVS(16700)*X(2369) - X(3593) = X(3593)-JVS(16707)*X(629)-JVS(16708)*X(2342) - X(3594) = X(3594)-JVS(16715)*X(504)-JVS(16716)*X(1753)-JVS(16717)*X(2246)-JVS(16718)*X(2990) - X(3595) = X(3595)-JVS(16725)*X(555)-JVS(16726)*X(2091) - X(3596) = X(3596)-JVS(16733)*X(1118) - X(3597) = X(3597)-JVS(16740)*X(878) - X(3598) = X(3598)-JVS(16747)*X(1300) - X(3599) = X(3599)-JVS(16754)*X(292)-JVS(16755)*X(1276)-JVS(16756)*X(2317)-JVS(16757)*X(2605) - X(3600) = X(3600)-JVS(16764)*X(374)-JVS(16765)*X(914) - X(3601) = X(3601)-JVS(16772)*X(2345)-JVS(16773)*X(2486)-JVS(16774)*X(2966)-JVS(16775)*X(3490) - X(3602) = X(3602)-JVS(16782)*X(498)-JVS(16783)*X(1142)-JVS(16784)*X(2074) - X(3603) = X(3603)-JVS(16791)*X(2276)-JVS(16792)*X(3256) - X(3604) = X(3604)-JVS(16799)*X(352)-JVS(16800)*X(1956)-JVS(16801)*X(2779) - X(3605) = X(3605)-JVS(16808)*X(681)-JVS(16809)*X(1167) - X(3606) = X(3606)-JVS(16816)*X(647)-JVS(16817)*X(1103) - X(3607) = X(3607)-JVS(16824)*X(1313)-JVS(16825)*X(1673)-JVS(16826)*X(2215)-JVS(16827)*X(3066) - X(3608) = X(3608)-JVS(16834)*X(3267) - X(3609) = X(3609)-JVS(16841)*X(999)-JVS(16842)*X(1596)-JVS(16843)*X(2196)-JVS(16844)*X(3377) - X(3610) = X(3610)-JVS(16851)*X(742)-JVS(16852)*X(1038) - X(3611) = X(3611)-JVS(16859)*X(2475)-JVS(16860)*X(3495) - X(3612) = X(3612)-JVS(16867)*X(2210)-JVS(16868)*X(2975) - X(3613) = X(3613)-JVS(16875)*X(1546)-JVS(16876)*X(2136) - X(3614) = X(3614)-JVS(16883)*X(779)-JVS(16884)*X(1415) - X(3615) = X(3615)-JVS(16891)*X(2483)-JVS(16892)*X(3480) - X(3616) = X(3616)-JVS(16899)*X(586)-JVS(16900)*X(1337)-JVS(16901)*X(1705)-JVS(16902)*X(2123) - X(3617) = X(3617)-JVS(16909)*X(580)-JVS(16910)*X(1993)-JVS(16911)*X(2254)-JVS(16912)*X(3037) - X(3619) = X(3619)-JVS(16931)*X(471)-JVS(16932)*X(1449)-JVS(16933)*X(1864)-JVS(16934)*X(1865)-JVS(16935)*X(2076)& - &-JVS(16936)*X(2757)-JVS(16937)*X(2954) - X(3622) = X(3622)-JVS(16956)*X(3179) - X(3626) = X(3626)-JVS(16973)*X(319)-JVS(16974)*X(2156)-JVS(16975)*X(2461)-JVS(16976)*X(2507)-JVS(16977)*X(2517)& - &-JVS(16978)*X(3071)-JVS(16979)*X(3257)-JVS(16980)*X(3344) - X(3627) = X(3627)-JVS(16991)*X(884)-JVS(16992)*X(3180) - X(3628) = X(3628)-JVS(16998)*X(463)-JVS(16999)*X(2147) - X(3629) = X(3629)-JVS(17005)*X(1318)-JVS(17006)*X(2947)-JVS(17007)*X(3390) - X(3631) = X(3631)-JVS(17024)*X(3244)-JVS(17025)*X(3295) - X(3632) = X(3632)-JVS(17031)*X(982)-JVS(17032)*X(3244) - X(3633) = X(3633)-JVS(17038)*X(2680) - X(3635) = X(3635)-JVS(17049)*X(2101)-JVS(17050)*X(3625) - X(3637) = X(3637)-JVS(17061)*X(668) - X(3638) = X(3638)-JVS(17067)*X(536)-JVS(17068)*X(1569)-JVS(17069)*X(1758)-JVS(17070)*X(2347)-JVS(17071)*X(2744) - X(3639) = X(3639)-JVS(17087)*X(559)-JVS(17088)*X(725)-JVS(17089)*X(1130)-JVS(17090)*X(1538)-JVS(17091)*X(2756)& - &-JVS(17092)*X(2980) - X(3640) = X(3640)-JVS(17101)*X(332)-JVS(17102)*X(1484)-JVS(17103)*X(1819)-JVS(17104)*X(1820)-JVS(17105)*X(3509) - X(3641) = X(3641)-JVS(17111)*X(2585)-JVS(17112)*X(3263) - X(3642) = X(3642)-JVS(17118)*X(390)-JVS(17119)*X(1439)-JVS(17120)*X(1786)-JVS(17121)*X(2637)-JVS(17122)*X(3430) - X(3643) = X(3643)-JVS(17131)*X(225)-JVS(17132)*X(1287)-JVS(17133)*X(2014)-JVS(17134)*X(2015)-JVS(17135)*X(3523) - X(3644) = X(3644)-JVS(17141)*X(1570)-JVS(17142)*X(2725)-JVS(17143)*X(2911)-JVS(17144)*X(3446) - X(3645) = X(3645)-JVS(17153)*X(431)-JVS(17154)*X(1385)-JVS(17155)*X(1903)-JVS(17156)*X(2232)-JVS(17157)*X(3492) - X(3648) = X(3648)-JVS(17176)*X(1218)-JVS(17177)*X(3263) - X(3649) = X(3649)-JVS(17183)*X(277)-JVS(17184)*X(966)-JVS(17185)*X(1796)-JVS(17186)*X(2302)-JVS(17187)*X(3481) - X(3650) = X(3650)-JVS(17193)*X(1396)-JVS(17194)*X(3219) - X(3651) = X(3651)-JVS(17200)*X(2042)-JVS(17201)*X(2212)-JVS(17202)*X(3202) - X(3652) = X(3652)-JVS(17211)*X(642)-JVS(17212)*X(3448) - X(3653) = X(3653)-JVS(17221)*X(278)-JVS(17222)*X(1400)-JVS(17223)*X(3018) - X(3655) = X(3655)-JVS(17234)*X(480)-JVS(17235)*X(1458)-JVS(17236)*X(1772)-JVS(17237)*X(1773)-JVS(17238)*X(3525) - X(3656) = X(3656)-JVS(17244)*X(1035)-JVS(17245)*X(2447)-JVS(17246)*X(3266) - X(3657) = X(3657)-JVS(17255)*X(262)-JVS(17256)*X(922)-JVS(17257)*X(1821)-JVS(17258)*X(2309)-JVS(17259)*X(3507) - X(3659) = X(3659)-JVS(17270)*X(3219)-JVS(17271)*X(3235) - X(3661) = X(3661)-JVS(17282)*X(396)-JVS(17283)*X(1542)-JVS(17284)*X(1860)-JVS(17285)*X(1881)-JVS(17286)*X(3521) - X(3663) = X(3663)-JVS(17297)*X(2740)-JVS(17298)*X(3180) - X(3664) = X(3664)-JVS(17304)*X(2994)-JVS(17305)*X(3195)-JVS(17306)*X(3627)-JVS(17307)*X(3663) - X(3665) = X(3665)-JVS(17314)*X(2624)-JVS(17315)*X(3193) - X(3666) = X(3666)-JVS(17321)*X(1567)-JVS(17322)*X(2624)-JVS(17323)*X(3665) - X(3667) = X(3667)-JVS(17329)*X(1992)-JVS(17330)*X(2767) - X(3668) = X(3668)-JVS(17337)*X(2452)-JVS(17338)*X(2742) - X(3669) = X(3669)-JVS(17345)*X(2089) - X(3671) = X(3671)-JVS(17358)*X(2068)-JVS(17359)*X(3442) - X(3672) = X(3672)-JVS(17366)*X(3334) - X(3673) = X(3673)-JVS(17373)*X(744)-JVS(17374)*X(1830) - X(3674) = X(3674)-JVS(17381)*X(1282)-JVS(17382)*X(3168) - X(3675) = X(3675)-JVS(17389)*X(1805) - X(3676) = X(3676)-JVS(17396)*X(2187)-JVS(17397)*X(3156) - X(3677) = X(3677)-JVS(17404)*X(1850) - X(3678) = X(3678)-JVS(17411)*X(1028)-JVS(17412)*X(3091) - X(3679) = X(3679)-JVS(17419)*X(1979)-JVS(17420)*X(2464) - X(3680) = X(3680)-JVS(17427)*X(2281)-JVS(17428)*X(2389) - X(3681) = X(3681)-JVS(17435)*X(780)-JVS(17436)*X(1783) - X(3682) = X(3682)-JVS(17443)*X(1620) - X(3683) = X(3683)-JVS(17451)*X(737)-JVS(17452)*X(1802)-JVS(17453)*X(1938) - X(3684) = X(3684)-JVS(17461)*X(3172) - X(3685) = X(3685)-JVS(17466)*X(2046)-JVS(17467)*X(2054) - X(3686) = X(3686)-JVS(17474)*X(364)-JVS(17475)*X(1479) - X(3687) = X(3687)-JVS(17482)*X(2267) - X(3688) = X(3688)-JVS(17489)*X(421)-JVS(17490)*X(1082)-JVS(17491)*X(1382)-JVS(17492)*X(2964) - X(3689) = X(3689)-JVS(17499)*X(598)-JVS(17500)*X(1235)-JVS(17501)*X(2020)-JVS(17502)*X(2922) - X(3690) = X(3690)-JVS(17509)*X(186)-JVS(17510)*X(1052)-JVS(17511)*X(2432) - X(3691) = X(3691)-JVS(17518)*X(196)-JVS(17519)*X(848)-JVS(17520)*X(2113) - X(3692) = X(3692)-JVS(17527)*X(2454) - X(3693) = X(3693)-JVS(17534)*X(2236) - X(3694) = X(3694)-JVS(17541)*X(193)-JVS(17542)*X(879)-JVS(17543)*X(935)-JVS(17544)*X(2328) - X(3695) = X(3695)-JVS(17551)*X(1443) - X(3696) = X(3696)-JVS(17558)*X(1861) - X(3697) = X(3697)-JVS(17565)*X(1936) - X(3698) = X(3698)-JVS(17572)*X(388)-JVS(17573)*X(1336) - X(3699) = X(3699)-JVS(17580)*X(2054) - X(3700) = X(3700)-JVS(17587)*X(3485) - X(3701) = X(3701)-JVS(17594)*X(3149) - X(3703) = X(3703)-JVS(17603)*X(241)-JVS(17604)*X(1247) - X(3704) = X(3704)-JVS(17611)*X(1534)-JVS(17612)*X(3110) - X(3705) = X(3705)-JVS(17619)*X(1020) - X(3706) = X(3706)-JVS(17626)*X(2207)-JVS(17627)*X(2943) - X(3708) = X(3708)-JVS(17638)*X(3464)-JVS(17639)*X(3707) - X(3709) = X(3709)-JVS(17645)*X(597)-JVS(17646)*X(2368) - X(3710) = X(3710)-JVS(17653)*X(201)-JVS(17654)*X(561)-JVS(17655)*X(562)-JVS(17656)*X(1284) - X(3711) = X(3711)-JVS(17663)*X(2274) - X(3712) = X(3712)-JVS(17670)*X(3325) - X(3713) = X(3713)-JVS(17678)*X(1053) - X(3714) = X(3714)-JVS(17685)*X(963)-JVS(17686)*X(2464) - X(3715) = X(3715)-JVS(17693)*X(1163)-JVS(17694)*X(1402) - X(3716) = X(3716)-JVS(17701)*X(1194)-JVS(17702)*X(1977)-JVS(17703)*X(2006) - X(3717) = X(3717)-JVS(17711)*X(992)-JVS(17712)*X(3389) - X(3718) = X(3718)-JVS(17719)*X(171)-JVS(17720)*X(2086)-JVS(17721)*X(2422) - X(3719) = X(3719)-JVS(17728)*X(583)-JVS(17729)*X(989) - X(3720) = X(3720)-JVS(17736)*X(1604)-JVS(17737)*X(2296)-JVS(17738)*X(3398) - X(3721) = X(3721)-JVS(17745)*X(1171)-JVS(17746)*X(3442) - X(3722) = X(3722)-JVS(17753)*X(378)-JVS(17754)*X(1480) - X(3723) = X(3723)-JVS(17761)*X(3005) - X(3724) = X(3724)-JVS(17769)*X(644)-JVS(17770)*X(2111)-JVS(17771)*X(2450) - X(3725) = X(3725)-JVS(17778)*X(1252) - X(3726) = X(3726)-JVS(17785)*X(814)-JVS(17786)*X(1680)-JVS(17787)*X(2262)-JVS(17788)*X(3725) - X(3727) = X(3727)-JVS(17797)*X(1898) - X(3728) = X(3728)-JVS(17804)*X(1127) - X(3729) = X(3729)-JVS(17811)*X(809)-JVS(17812)*X(2093) - X(3730) = X(3730)-JVS(17819)*X(1032)-JVS(17820)*X(3109) - X(3731) = X(3731)-JVS(17827)*X(192)-JVS(17828)*X(1079)-JVS(17829)*X(1824) - X(3732) = X(3732)-JVS(17836)*X(746)-JVS(17837)*X(2351) - X(3734) = X(3734)-JVS(17850)*X(1280)-JVS(17851)*X(2544)-JVS(17852)*X(3010) - X(3735) = X(3735)-JVS(17860)*X(2297)-JVS(17861)*X(3265) - X(3736) = X(3736)-JVS(17869)*X(415)-JVS(17870)*X(1162)-JVS(17871)*X(2164) - X(3737) = X(3737)-JVS(17878)*X(1162)-JVS(17879)*X(2164) - X(3738) = X(3738)-JVS(17886)*X(2294)-JVS(17887)*X(2398) - X(3739) = X(3739)-JVS(17894)*X(2053) - X(3740) = X(3740)-JVS(17901)*X(1775) - X(3741) = X(3741)-JVS(17908)*X(271)-JVS(17909)*X(599)-JVS(17910)*X(1324)-JVS(17911)*X(2002)-JVS(17912)*X(2313) - X(3742) = X(3742)-JVS(17919)*X(753)-JVS(17920)*X(1979)-JVS(17921)*X(3679) - X(3743) = X(3743)-JVS(17928)*X(360)-JVS(17929)*X(1250) - X(3744) = X(3744)-JVS(17936)*X(2174) - X(3745) = X(3745)-JVS(17943)*X(1043)-JVS(17944)*X(3090)-JVS(17945)*X(3744) - X(3746) = X(3746)-JVS(17952)*X(1335)-JVS(17953)*X(1845) - X(3747) = X(3747)-JVS(17960)*X(895)-JVS(17961)*X(1010)-JVS(17962)*X(2291)-JVS(17963)*X(2361)-JVS(17964)*X(3212)& - &-JVS(17965)*X(3393) - X(3748) = X(3748)-JVS(17973)*X(792)-JVS(17974)*X(1133)-JVS(17975)*X(1898)-JVS(17976)*X(3396)-JVS(17977)*X(3713)& - &-JVS(17978)*X(3727) - X(3749) = X(3749)-JVS(17985)*X(177)-JVS(17986)*X(1491)-JVS(17987)*X(2161) - X(3750) = X(3750)-JVS(17994)*X(2056)-JVS(17995)*X(2532) - X(3751) = X(3751)-JVS(18002)*X(197)-JVS(18003)*X(1259)-JVS(18004)*X(2216) - X(3752) = X(3752)-JVS(18011)*X(944) - X(3753) = X(3753)-JVS(18018)*X(1412)-JVS(18019)*X(2390) - X(3754) = X(3754)-JVS(18026)*X(102)-JVS(18027)*X(1533)-JVS(18028)*X(2782) - X(3755) = X(3755)-JVS(18035)*X(1120)-JVS(18036)*X(1894)-JVS(18037)*X(3243) - X(3756) = X(3756)-JVS(18045)*X(815)-JVS(18046)*X(2166)-JVS(18047)*X(2940) - X(3757) = X(3757)-JVS(18055)*X(1767)-JVS(18056)*X(2370) - X(3758) = X(3758)-JVS(18064)*X(2127)-JVS(18065)*X(2926) - X(3759) = X(3759)-JVS(18072)*X(590)-JVS(18073)*X(1204)-JVS(18074)*X(1670)-JVS(18075)*X(2270)-JVS(18076)*X(2466) - X(3760) = X(3760)-JVS(18083)*X(541)-JVS(18084)*X(1164)-JVS(18085)*X(2423) - X(3761) = X(3761)-JVS(18092)*X(146)-JVS(18093)*X(1203)-JVS(18094)*X(1383) - X(3762) = X(3762)-JVS(18101)*X(2446) - X(3763) = X(3763)-JVS(18108)*X(552)-JVS(18109)*X(969)-JVS(18110)*X(3636) - X(3764) = X(3764)-JVS(18117)*X(215)-JVS(18118)*X(1233) - X(3765) = X(3765)-JVS(18125)*X(2603) - X(3766) = X(3766)-JVS(18133)*X(1410)-JVS(18134)*X(3166) - X(3767) = X(3767)-JVS(18141)*X(1141) - X(3768) = X(3768)-JVS(18148)*X(1374)-JVS(18149)*X(3117) - X(3769) = X(3769)-JVS(18156)*X(1497)-JVS(18157)*X(2167) - X(3770) = X(3770)-JVS(18164)*X(2420) - X(3771) = X(3771)-JVS(18171)*X(1062)-JVS(18172)*X(2048) - X(3772) = X(3772)-JVS(18179)*X(1388) - X(3773) = X(3773)-JVS(18186)*X(620)-JVS(18187)*X(911)-JVS(18188)*X(1861)-JVS(18189)*X(3423)-JVS(18190)*X(3696)& - &-JVS(18191)*X(3772) - X(3774) = X(3774)-JVS(18198)*X(1123) - X(3775) = X(3775)-JVS(18205)*X(716)-JVS(18206)*X(1231)-JVS(18207)*X(2446)-JVS(18208)*X(3380)-JVS(18209)*X(3762)& - &-JVS(18210)*X(3774) - X(3776) = X(3776)-JVS(18217)*X(250)-JVS(18218)*X(276)-JVS(18219)*X(867)-JVS(18220)*X(3649) - X(3777) = X(3777)-JVS(18227)*X(314)-JVS(18228)*X(1945)-JVS(18229)*X(2917) - X(3778) = X(3778)-JVS(18236)*X(2233)-JVS(18237)*X(2933) - X(3779) = X(3779)-JVS(18244)*X(2194)-JVS(18245)*X(2355) - X(3780) = X(3780)-JVS(18252)*X(651)-JVS(18253)*X(664)-JVS(18254)*X(1323)-JVS(18255)*X(2253) - X(3781) = X(3781)-JVS(18262)*X(1416)-JVS(18263)*X(3148) - X(3782) = X(3782)-JVS(18270)*X(1435)-JVS(18271)*X(2281) - X(3783) = X(3783)-JVS(18278)*X(816)-JVS(18279)*X(2046)-JVS(18280)*X(3685) - X(3784) = X(3784)-JVS(18287)*X(591)-JVS(18288)*X(1202)-JVS(18289)*X(3653) - X(3785) = X(3785)-JVS(18296)*X(1075)-JVS(18297)*X(3118) - X(3786) = X(3786)-JVS(18304)*X(1024) - X(3787) = X(3787)-JVS(18311)*X(743)-JVS(18312)*X(2294)-JVS(18313)*X(3738) - X(3788) = X(3788)-JVS(18320)*X(1530) - X(3789) = X(3789)-JVS(18327)*X(275)-JVS(18328)*X(951) - X(3790) = X(3790)-JVS(18335)*X(3169) - X(3791) = X(3791)-JVS(18341)*X(2499)-JVS(18342)*X(3164) - X(3793) = X(3793)-JVS(18353)*X(2283)-JVS(18354)*X(3157)-JVS(18355)*X(3220) - X(3794) = X(3794)-JVS(18365)*X(3084) - X(3795) = X(3795)-JVS(18371)*X(1039)-JVS(18372)*X(2418)-JVS(18373)*X(3794) - X(3796) = X(3796)-JVS(18379)*X(3131)-JVS(18380)*X(3320) - X(3797) = X(3797)-JVS(18386)*X(3113)-JVS(18387)*X(3129)-JVS(18388)*X(3192) - X(3798) = X(3798)-JVS(18394)*X(861)-JVS(18395)*X(3113) - X(3799) = X(3799)-JVS(18401)*X(3149)-JVS(18402)*X(3319) - X(3800) = X(3800)-JVS(18408)*X(2493)-JVS(18409)*X(3319)-JVS(18410)*X(3799) - X(3801) = X(3801)-JVS(18418)*X(2130) - X(3802) = X(3802)-JVS(18424)*X(129)-JVS(18425)*X(1000)-JVS(18426)*X(1525)-JVS(18427)*X(3527) - X(3803) = X(3803)-JVS(18433)*X(3179) - X(3804) = X(3804)-JVS(18439)*X(3144) - X(3805) = X(3805)-JVS(18445)*X(1027)-JVS(18446)*X(2406)-JVS(18447)*X(3804) - X(3807) = X(3807)-JVS(18458)*X(3144) - X(3808) = X(3808)-JVS(18464)*X(2565)-JVS(18465)*X(3135) - X(3809) = X(3809)-JVS(18471)*X(655)-JVS(18472)*X(1784)-JVS(18473)*X(1928) - X(3810) = X(3810)-JVS(18483)*X(3343)-JVS(18484)*X(3790) - X(3811) = X(3811)-JVS(18490)*X(3105) - X(3812) = X(3812)-JVS(18496)*X(1211)-JVS(18497)*X(1964)-JVS(18498)*X(3811) - X(3813) = X(3813)-JVS(18504)*X(2520)-JVS(18505)*X(3136) - X(3814) = X(3814)-JVS(18511)*X(3331)-JVS(18512)*X(3797) - X(3815) = X(3815)-JVS(18518)*X(2709)-JVS(18519)*X(3172) - X(3816) = X(3816)-JVS(18525)*X(3027)-JVS(18526)*X(3815) - X(3817) = X(3817)-JVS(18534)*X(1200)-JVS(18535)*X(3182) - X(3818) = X(3818)-JVS(18541)*X(81)-JVS(18542)*X(1200)-JVS(18543)*X(1216)-JVS(18544)*X(3817) - X(3819) = X(3819)-JVS(18550)*X(3182) - X(3820) = X(3820)-JVS(18556)*X(3158)-JVS(18557)*X(3321) - X(3821) = X(3821)-JVS(18563)*X(752)-JVS(18564)*X(2806)-JVS(18565)*X(3321)-JVS(18566)*X(3406)-JVS(18567)*X(3482)& - &-JVS(18568)*X(3820) - X(3822) = X(3822)-JVS(18578)*X(675)-JVS(18579)*X(964)-JVS(18580)*X(2049) - X(3823) = X(3823)-JVS(18586)*X(250) - X(3824) = X(3824)-JVS(18592)*X(1307)-JVS(18593)*X(2383)-JVS(18594)*X(3823) - X(3825) = X(3825)-JVS(18600)*X(3130)-JVS(18601)*X(3279) - X(3826) = X(3826)-JVS(18607)*X(22)-JVS(18608)*X(861)-JVS(18609)*X(1896)-JVS(18610)*X(3798) - X(3827) = X(3827)-JVS(18616)*X(3157)-JVS(18617)*X(3253) - X(3828) = X(3828)-JVS(18623)*X(2649)-JVS(18624)*X(3139) - X(3829) = X(3829)-JVS(18630)*X(2776)-JVS(18631)*X(3828) - X(3831) = X(3831)-JVS(18643)*X(3136) - X(3833) = X(3833)-JVS(18652)*X(3192) - X(3834) = X(3834)-JVS(18657)*X(3145) - X(3836) = X(3836)-JVS(18666)*X(3369) - X(3837) = X(3837)-JVS(18673)*X(3216) - X(3838) = X(3838)-JVS(18680)*X(49)-JVS(18681)*X(1203)-JVS(18682)*X(1985)-JVS(18683)*X(3761) - X(3839) = X(3839)-JVS(18690)*X(887)-JVS(18691)*X(2273) - X(3840) = X(3840)-JVS(18698)*X(1071) - X(3841) = X(3841)-JVS(18705)*X(367)-JVS(18706)*X(1199) - X(3842) = X(3842)-JVS(18713)*X(1940) - X(3843) = X(3843)-JVS(18720)*X(380)-JVS(18721)*X(1298)-JVS(18722)*X(2149)-JVS(18723)*X(2710) - X(3844) = X(3844)-JVS(18730)*X(1862) - X(3845) = X(3845)-JVS(18737)*X(443)-JVS(18738)*X(942)-JVS(18739)*X(1093)-JVS(18740)*X(2661) - X(3846) = X(3846)-JVS(18747)*X(775)-JVS(18748)*X(863)-JVS(18749)*X(1985)-JVS(18750)*X(3838) - X(3847) = X(3847)-JVS(18757)*X(2463) - X(3848) = X(3848)-JVS(18764)*X(1046) - X(3849) = X(3849)-JVS(18771)*X(530)-JVS(18772)*X(690)-JVS(18773)*X(1912)-JVS(18774)*X(2578)-JVS(18775)*X(2894)& - &-JVS(18776)*X(2931)-JVS(18777)*X(3848) - X(3850) = X(3850)-JVS(18787)*X(1371) - X(3851) = X(3851)-JVS(18794)*X(349)-JVS(18795)*X(1751)-JVS(18796)*X(2277) - X(3853) = X(3853)-JVS(18809)*X(1021) - X(3854) = X(3854)-JVS(18816)*X(205)-JVS(18817)*X(2169)-JVS(18818)*X(2264)-JVS(18819)*X(3038) - X(3855) = X(3855)-JVS(18826)*X(297)-JVS(18827)*X(1155)-JVS(18828)*X(2327) - X(3856) = X(3856)-JVS(18835)*X(338)-JVS(18836)*X(2169)-JVS(18837)*X(2264) - X(3857) = X(3857)-JVS(18844)*X(1262)-JVS(18845)*X(1693)-JVS(18846)*X(1980) - X(3858) = X(3858)-JVS(18853)*X(265)-JVS(18854)*X(1277) - X(3859) = X(3859)-JVS(18861)*X(2633)-JVS(18862)*X(2906) - X(3860) = X(3860)-JVS(18869)*X(891)-JVS(18870)*X(2714)-JVS(18871)*X(3238) - X(3861) = X(3861)-JVS(18878)*X(348)-JVS(18879)*X(1321)-JVS(18880)*X(1884) - X(3862) = X(3862)-JVS(18887)*X(1676)-JVS(18888)*X(1689) - X(3863) = X(3863)-JVS(18895)*X(2451) - X(3864) = X(3864)-JVS(18902)*X(2230)-JVS(18903)*X(2289)-JVS(18904)*X(3621) - X(3865) = X(3865)-JVS(18911)*X(1306) - X(3866) = X(3866)-JVS(18918)*X(328) - X(3868) = X(3868)-JVS(18931)*X(1577)-JVS(18932)*X(2193)-JVS(18933)*X(2223)-JVS(18934)*X(3023)-JVS(18935)*X(3404) - X(3869) = X(3869)-JVS(18944)*X(2543)-JVS(18945)*X(2974) - X(3870) = X(3870)-JVS(18952)*X(155)-JVS(18953)*X(1987)-JVS(18954)*X(2416) - X(3871) = X(3871)-JVS(18961)*X(132)-JVS(18962)*X(1032)-JVS(18963)*X(2095)-JVS(18964)*X(3730) - X(3872) = X(3872)-JVS(18971)*X(2407) - X(3873) = X(3873)-JVS(18978)*X(2775)-JVS(18979)*X(2990) - X(3874) = X(3874)-JVS(18986)*X(1544)-JVS(18987)*X(1989)-JVS(18988)*X(3447) - X(3875) = X(3875)-JVS(18995)*X(242)-JVS(18996)*X(1966)-JVS(18997)*X(2168) - X(3876) = X(3876)-JVS(19004)*X(1517) - X(3877) = X(3877)-JVS(19011)*X(339)-JVS(19012)*X(2019)-JVS(19013)*X(2403)-JVS(19014)*X(2767) - X(3878) = X(3878)-JVS(19021)*X(2394) - X(3879) = X(3879)-JVS(19028)*X(577)-JVS(19029)*X(1177)-JVS(19030)*X(2453)-JVS(19031)*X(2634)-JVS(19032)*X(3836) - X(3880) = X(3880)-JVS(19039)*X(43)-JVS(19040)*X(1534)-JVS(19041)*X(2205)-JVS(19042)*X(3704) - X(3881) = X(3881)-JVS(19049)*X(140)-JVS(19050)*X(1374)-JVS(19051)*X(2027)-JVS(19052)*X(3768) - X(3882) = X(3882)-JVS(19059)*X(290)-JVS(19060)*X(826)-JVS(19061)*X(2257) - X(3883) = X(3883)-JVS(19068)*X(1314) - X(3884) = X(3884)-JVS(19075)*X(1880) - X(3885) = X(3885)-JVS(19082)*X(2871)-JVS(19083)*X(3032) - X(3886) = X(3886)-JVS(19090)*X(1183) - X(3887) = X(3887)-JVS(19097)*X(2069) - X(3888) = X(3888)-JVS(19104)*X(1080)-JVS(19105)*X(3432)-JVS(19106)*X(3887) - X(3889) = X(3889)-JVS(19113)*X(1514)-JVS(19114)*X(3594) - X(3890) = X(3890)-JVS(19121)*X(159)-JVS(19122)*X(949)-JVS(19123)*X(2079) - X(3891) = X(3891)-JVS(19130)*X(2180) - X(3892) = X(3892)-JVS(19137)*X(1582)-JVS(19138)*X(2987) - X(3893) = X(3893)-JVS(19145)*X(2699)-JVS(19146)*X(2785) - X(3894) = X(3894)-JVS(19153)*X(566)-JVS(19154)*X(1469) - X(3895) = X(3895)-JVS(19161)*X(971) - X(3896) = X(3896)-JVS(19168)*X(550)-JVS(19169)*X(1745)-JVS(19170)*X(2267)-JVS(19171)*X(3687)-JVS(19172)*X(3788) - X(3897) = X(3897)-JVS(19179)*X(829) - X(3898) = X(3898)-JVS(19186)*X(881) - X(3899) = X(3899)-JVS(19193)*X(2556)-JVS(19194)*X(3391) - X(3900) = X(3900)-JVS(19201)*X(1305)-JVS(19202)*X(2817)-JVS(19203)*X(3472) - X(3901) = X(3901)-JVS(19210)*X(156)-JVS(19211)*X(1178)-JVS(19212)*X(1771) - X(3902) = X(3902)-JVS(19219)*X(113)-JVS(19220)*X(1333) - X(3903) = X(3903)-JVS(19227)*X(2799) - X(3904) = X(3904)-JVS(19234)*X(2114) - X(3905) = X(3905)-JVS(19241)*X(42)-JVS(19242)*X(1043)-JVS(19243)*X(2423)-JVS(19244)*X(3745) - X(3906) = X(3906)-JVS(19251)*X(3382)-JVS(19252)*X(3777) - X(3907) = X(3907)-JVS(19259)*X(1487) - X(3908) = X(3908)-JVS(19266)*X(1617) - X(3909) = X(3909)-JVS(19273)*X(3278) - X(3910) = X(3910)-JVS(19280)*X(2455) - X(3911) = X(3911)-JVS(19287)*X(747)-JVS(19288)*X(1606)-JVS(19289)*X(1850)-JVS(19290)*X(3677)-JVS(19291)*X(3695) - X(3912) = X(3912)-JVS(19298)*X(117)-JVS(19299)*X(1075)-JVS(19300)*X(1937)-JVS(19301)*X(3785) - X(3913) = X(3913)-JVS(19308)*X(696)-JVS(19309)*X(1312) - X(3914) = X(3914)-JVS(19316)*X(660)-JVS(19317)*X(1713)-JVS(19318)*X(2053)-JVS(19319)*X(3705)-JVS(19320)*X(3739) - X(3915) = X(3915)-JVS(19327)*X(546)-JVS(19328)*X(1616)-JVS(19329)*X(2761)-JVS(19330)*X(2871)-JVS(19331)*X(3885) - X(3916) = X(3916)-JVS(19338)*X(35)-JVS(19339)*X(1028)-JVS(19340)*X(2411)-JVS(19341)*X(3678) - X(3917) = X(3917)-JVS(19348)*X(469)-JVS(19349)*X(1168)-JVS(19350)*X(2284)-JVS(19351)*X(2299)-JVS(19352)*X(3749) - X(3918) = X(3918)-JVS(19359)*X(1578)-JVS(19360)*X(2482)-JVS(19361)*X(2686)-JVS(19362)*X(3196)-JVS(19363)*X(3438)& - &-JVS(19364)*X(3569)-JVS(19365)*X(3578) - X(3919) = X(3919)-JVS(19374)*X(66)-JVS(19375)*X(1410)-JVS(19376)*X(2298)-JVS(19377)*X(3766) - X(3920) = X(3920)-JVS(19384)*X(2098) - X(3921) = X(3921)-JVS(19391)*X(2103) - X(3922) = X(3922)-JVS(19398)*X(2449) - X(3923) = X(3923)-JVS(19405)*X(546)-JVS(19406)*X(2761)-JVS(19407)*X(2871)-JVS(19408)*X(3885) - X(3924) = X(3924)-JVS(19415)*X(308)-JVS(19416)*X(2097)-JVS(19417)*X(2192)-JVS(19418)*X(2906) - X(3925) = X(3925)-JVS(19425)*X(2125) - X(3926) = X(3926)-JVS(19432)*X(185)-JVS(19433)*X(1212)-JVS(19434)*X(1841)-JVS(19435)*X(2269) - X(3928) = X(3928)-JVS(19448)*X(1502) - X(3929) = X(3929)-JVS(19455)*X(1457)-JVS(19456)*X(2429)-JVS(19457)*X(2705) - X(3930) = X(3930)-JVS(19466)*X(3450) - X(3931) = X(3931)-JVS(19475)*X(3452)-JVS(19476)*X(3469) - X(3932) = X(3932)-JVS(19483)*X(160)-JVS(19484)*X(2227)-JVS(19485)*X(2285) - X(3933) = X(3933)-JVS(19492)*X(3224) - X(3934) = X(3934)-JVS(19501)*X(1063) - X(3935) = X(3935)-JVS(19508)*X(497)-JVS(19509)*X(1531)-JVS(19510)*X(2693) - X(3937) = X(3937)-JVS(19523)*X(1301)-JVS(19524)*X(1845) - X(3938) = X(3938)-JVS(19531)*X(1482)-JVS(19532)*X(1779) - X(3939) = X(3939)-JVS(19539)*X(1438) - X(3940) = X(3940)-JVS(19546)*X(2065) - X(3941) = X(3941)-JVS(19553)*X(91)-JVS(19554)*X(1282)-JVS(19555)*X(2016)-JVS(19556)*X(3674) - X(3942) = X(3942)-JVS(19563)*X(1302) - X(3943) = X(3943)-JVS(19570)*X(1844) - X(3944) = X(3944)-JVS(19577)*X(2244) - X(3945) = X(3945)-JVS(19584)*X(2262) - X(3946) = X(3946)-JVS(19591)*X(223)-JVS(19592)*X(727)-JVS(19593)*X(1382)-JVS(19594)*X(2202)-JVS(19595)*X(3688) - X(3947) = X(3947)-JVS(19602)*X(427)-JVS(19603)*X(1492)-JVS(19604)*X(1933)-JVS(19605)*X(2722) - X(3948) = X(3948)-JVS(19612)*X(2426)-JVS(19613)*X(3384) - X(3949) = X(3949)-JVS(19620)*X(984) - X(3950) = X(3950)-JVS(19627)*X(1272) - X(3951) = X(3951)-JVS(19634)*X(183)-JVS(19635)*X(1195)-JVS(19636)*X(2250) - X(3952) = X(3952)-JVS(19643)*X(2922) - X(3953) = X(3953)-JVS(19650)*X(974)-JVS(19651)*X(2875) - X(3954) = X(3954)-JVS(19658)*X(2186)-JVS(19659)*X(2360)-JVS(19660)*X(3055) - X(3955) = X(3955)-JVS(19667)*X(370)-JVS(19668)*X(1007)-JVS(19669)*X(1353) - X(3956) = X(3956)-JVS(19676)*X(2413) - X(3957) = X(3957)-JVS(19683)*X(699)-JVS(19684)*X(882)-JVS(19685)*X(2311) - X(3958) = X(3958)-JVS(19692)*X(643)-JVS(19693)*X(2153)-JVS(19694)*X(2567) - X(3959) = X(3959)-JVS(19703)*X(847)-JVS(19704)*X(1886)-JVS(19705)*X(2367) - X(3960) = X(3960)-JVS(19714)*X(3041) - X(3961) = X(3961)-JVS(19721)*X(2710)-JVS(19722)*X(3046) - X(3962) = X(3962)-JVS(19729)*X(1605) - X(3964) = X(3964)-JVS(19742)*X(1515)-JVS(19743)*X(3418)-JVS(19744)*X(3956) - X(3965) = X(3965)-JVS(19751)*X(3464)-JVS(19752)*X(3524)-JVS(19753)*X(3707) - X(3967) = X(3967)-JVS(19766)*X(202)-JVS(19767)*X(1966)-JVS(19768)*X(2168) - X(3968) = X(3968)-JVS(19775)*X(798)-JVS(19776)*X(2389)-JVS(19777)*X(3680) - X(3969) = X(3969)-JVS(19784)*X(1990) - X(3970) = X(3970)-JVS(19791)*X(2366) - X(3971) = X(3971)-JVS(19798)*X(2178) - X(3972) = X(3972)-JVS(19805)*X(229)-JVS(19806)*X(3405) - X(3973) = X(3973)-JVS(19813)*X(1170)-JVS(19814)*X(2645) - X(3974) = X(3974)-JVS(19821)*X(1381) - X(3975) = X(3975)-JVS(19828)*X(1345)-JVS(19829)*X(3437) - X(3976) = X(3976)-JVS(19836)*X(1275)-JVS(19837)*X(2348) - X(3977) = X(3977)-JVS(19844)*X(50)-JVS(19845)*X(1416)-JVS(19846)*X(2316)-JVS(19847)*X(3781) - X(3978) = X(3978)-JVS(19854)*X(495)-JVS(19855)*X(1965)-JVS(19856)*X(2057)-JVS(19857)*X(2699)-JVS(19858)*X(2755) - X(3979) = X(3979)-JVS(19867)*X(1430)-JVS(19868)*X(2438)-JVS(19869)*X(3623) - X(3980) = X(3980)-JVS(19876)*X(873) - X(3981) = X(3981)-JVS(19883)*X(254)-JVS(19884)*X(1266)-JVS(19885)*X(1470)-JVS(19886)*X(3034) - X(3982) = X(3982)-JVS(19893)*X(1470) - X(3983) = X(3983)-JVS(19900)*X(2398) - X(3984) = X(3984)-JVS(19907)*X(986)-JVS(19908)*X(2217) - X(3985) = X(3985)-JVS(19915)*X(1012) - X(3986) = X(3986)-JVS(19922)*X(333)-JVS(19923)*X(1559)-JVS(19924)*X(1992)-JVS(19925)*X(2218)-JVS(19926)*X(3667) - X(3987) = X(3987)-JVS(19933)*X(1377) - X(3988) = X(3988)-JVS(19940)*X(885) - X(3989) = X(3989)-JVS(19947)*X(165)-JVS(19948)*X(1751)-JVS(19949)*X(2277) - X(3991) = X(3991)-JVS(19962)*X(355)-JVS(19963)*X(1005)-JVS(19964)*X(3205) - X(3992) = X(3992)-JVS(19971)*X(36)-JVS(19972)*X(865)-JVS(19973)*X(2797) - X(3993) = X(3993)-JVS(19980)*X(2392)-JVS(19981)*X(2616)-JVS(19982)*X(3204) - X(3994) = X(3994)-JVS(19991)*X(1468) - X(3995) = X(3995)-JVS(19998)*X(1702)-JVS(19999)*X(2338)-JVS(20000)*X(2463)-JVS(20001)*X(3847) - X(3996) = X(3996)-JVS(20008)*X(3097) - X(3997) = X(3997)-JVS(20013)*X(822) - X(3998) = X(3998)-JVS(20021)*X(907)-JVS(20022)*X(1651)-JVS(20023)*X(2957)-JVS(20024)*X(3485) - X(3999) = X(3999)-JVS(20032)*X(1091) - X(4000) = X(4000)-JVS(20040)*X(503)-JVS(20041)*X(1537)-JVS(20042)*X(2225)-JVS(20043)*X(3318)-JVS(20044)*X(3655) - X(4001) = X(4001)-JVS(20052)*X(854) - X(4002) = X(4002)-JVS(20060)*X(1421) - X(4003) = X(4003)-JVS(20068)*X(3096) - X(4004) = X(4004)-JVS(20074)*X(1276)-JVS(20075)*X(2317)-JVS(20076)*X(4003) - X(4005) = X(4005)-JVS(20082)*X(341)-JVS(20083)*X(1002)-JVS(20084)*X(2102)-JVS(20085)*X(3229)-JVS(20086)*X(3657) - X(4006) = X(4006)-JVS(20094)*X(978) - X(4007) = X(4007)-JVS(20102)*X(1003) - X(4008) = X(4008)-JVS(20110)*X(843) - X(4009) = X(4009)-JVS(20118)*X(943) - X(4010) = X(4010)-JVS(20126)*X(250) - X(4011) = X(4011)-JVS(20131)*X(892) - X(4012) = X(4012)-JVS(20139)*X(84)-JVS(20140)*X(996)-JVS(20141)*X(1700)-JVS(20142)*X(2565)-JVS(20143)*X(3534)& - &-JVS(20144)*X(3808) - X(4013) = X(4013)-JVS(20150)*X(65)-JVS(20151)*X(103)-JVS(20152)*X(1497)-JVS(20153)*X(2631)-JVS(20154)*X(2838)& - &-JVS(20155)*X(3769)-JVS(20156)*X(4012) - X(4014) = X(4014)-JVS(20163)*X(676)-JVS(20164)*X(738)-JVS(20165)*X(2563)-JVS(20166)*X(2595)-JVS(20167)*X(3279)& - &-JVS(20168)*X(3499)-JVS(20169)*X(3560)-JVS(20170)*X(3808)-JVS(20171)*X(3825)-JVS(20172)*X(4012) - X(4015) = X(4015)-JVS(20180)*X(1279)-JVS(20181)*X(2868) - X(4016) = X(4016)-JVS(20189)*X(1188) - X(4017) = X(4017)-JVS(20197)*X(3169) - X(4018) = X(4018)-JVS(20202)*X(3182) - X(4019) = X(4019)-JVS(20207)*X(375)-JVS(20208)*X(1008) - X(4020) = X(4020)-JVS(20216)*X(1476) - X(4021) = X(4021)-JVS(20224)*X(1308) - X(4022) = X(4022)-JVS(20232)*X(1230) - X(4023) = X(4023)-JVS(20240)*X(1361) - X(4024) = X(4024)-JVS(20248)*X(3280)-JVS(20249)*X(3590) - X(4025) = X(4025)-JVS(20257)*X(2091)-JVS(20258)*X(2167)-JVS(20259)*X(4012) - X(4026) = X(4026)-JVS(20265)*X(2652)-JVS(20266)*X(2998)-JVS(20267)*X(3595)-JVS(20268)*X(4025) - X(4027) = X(4027)-JVS(20275)*X(3138) - X(4028) = X(4028)-JVS(20280)*X(1451)-JVS(20281)*X(3145) - X(4029) = X(4029)-JVS(20287)*X(3225)-JVS(20288)*X(3800) - X(4030) = X(4030)-JVS(20296)*X(3368)-JVS(20297)*X(3807) - X(4031) = X(4031)-JVS(20303)*X(1293)-JVS(20304)*X(2295)-JVS(20305)*X(4030) - X(4032) = X(4032)-JVS(20311)*X(3105) - X(4033) = X(4033)-JVS(20316)*X(1243) - X(4034) = X(4034)-JVS(20324)*X(1061) - X(4035) = X(4035)-JVS(20332)*X(844) - X(4036) = X(4036)-JVS(20340)*X(1221) - X(4037) = X(4037)-JVS(20348)*X(1227) - X(4038) = X(4038)-JVS(20356)*X(389)-JVS(20357)*X(1283)-JVS(20358)*X(3385)-JVS(20359)*X(3640) - X(4039) = X(4039)-JVS(20367)*X(1366) - X(4040) = X(4040)-JVS(20375)*X(1452) - X(4041) = X(4041)-JVS(20383)*X(423)-JVS(20384)*X(1228)-JVS(20385)*X(2379)-JVS(20386)*X(3232)-JVS(20387)*X(3645) - X(4042) = X(4042)-JVS(20395)*X(45)-JVS(20396)*X(1202)-JVS(20397)*X(1397)-JVS(20398)*X(1724)-JVS(20399)*X(2214)& - &-JVS(20400)*X(2942)-JVS(20401)*X(3784) - X(4043) = X(4043)-JVS(20409)*X(507)-JVS(20410)*X(1454) - X(4044) = X(4044)-JVS(20418)*X(950) - X(4045) = X(4045)-JVS(20426)*X(47)-JVS(20427)*X(938)-JVS(20428)*X(1613)-JVS(20429)*X(2520)-JVS(20430)*X(3562)& - &-JVS(20431)*X(3813) - X(4046) = X(4046)-JVS(20437)*X(116)-JVS(20438)*X(318)-JVS(20439)*X(521)-JVS(20440)*X(2541)-JVS(20441)*X(2765)& - &-JVS(20442)*X(3675)-JVS(20443)*X(4045) - X(4047) = X(4047)-JVS(20450)*X(2789)-JVS(20451)*X(3050)-JVS(20452)*X(3791)-JVS(20453)*X(3813)-JVS(20454)*X(4045) - X(4048) = X(4048)-JVS(20462)*X(1645)-JVS(20463)*X(3385)-JVS(20464)*X(3793)-JVS(20465)*X(4038) - X(4049) = X(4049)-JVS(20476)*X(1429) - X(4050) = X(4050)-JVS(20484)*X(1076)-JVS(20485)*X(2353)-JVS(20486)*X(3303) - X(4051) = X(4051)-JVS(20494)*X(717)-JVS(20495)*X(1076)-JVS(20496)*X(1716)-JVS(20497)*X(2134)-JVS(20498)*X(2900)& - &-JVS(20499)*X(3303)-JVS(20500)*X(3343)-JVS(20501)*X(3790)-JVS(20502)*X(3810) - X(4052) = X(4052)-JVS(20509)*X(387)-JVS(20510)*X(952)-JVS(20511)*X(3461)-JVS(20512)*X(4050)-JVS(20513)*X(4051) - X(4053) = X(4053)-JVS(20520)*X(551)-JVS(20521)*X(669)-JVS(20522)*X(1999)-JVS(20523)*X(2466) - X(4054) = X(4054)-JVS(20531)*X(1017) - X(4055) = X(4055)-JVS(20539)*X(3097) - X(4056) = X(4056)-JVS(20545)*X(3096) - X(4057) = X(4057)-JVS(20550)*X(1294) - X(4058) = X(4058)-JVS(20558)*X(329)-JVS(20559)*X(975)-JVS(20560)*X(1907) - X(4059) = X(4059)-JVS(20568)*X(492)-JVS(20569)*X(1317) - X(4060) = X(4060)-JVS(20577)*X(272)-JVS(20578)*X(1208)-JVS(20579)*X(2156)-JVS(20580)*X(2574)-JVS(20581)*X(3637)& - &-JVS(20582)*X(3972) - X(4061) = X(4061)-JVS(20590)*X(857) - X(4062) = X(4062)-JVS(20598)*X(3458)-JVS(20599)*X(4047) - X(4063) = X(4063)-JVS(20607)*X(1303) - X(4064) = X(4064)-JVS(20615)*X(1450) - X(4065) = X(4065)-JVS(20623)*X(1539) - X(4067) = X(4067)-JVS(20636)*X(1427) - X(4068) = X(4068)-JVS(20644)*X(1431)-JVS(20645)*X(3084) - X(4069) = X(4069)-JVS(20651)*X(1878)-JVS(20652)*X(3439)-JVS(20653)*X(3440)-JVS(20654)*X(4068) - X(4070) = X(4070)-JVS(20660)*X(3412)-JVS(20661)*X(3819) - X(4071) = X(4071)-JVS(20667)*X(1109) - X(4072) = X(4072)-JVS(20675)*X(1453) - X(4073) = X(4073)-JVS(20683)*X(1152) - X(4074) = X(4074)-JVS(20691)*X(1535)-JVS(20692)*X(3192) - X(4075) = X(4075)-JVS(20698)*X(1419) - X(4076) = X(4076)-JVS(20706)*X(1805)-JVS(20707)*X(2351)-JVS(20708)*X(4045) - X(4077) = X(4077)-JVS(20714)*X(210)-JVS(20715)*X(1540)-JVS(20716)*X(3947) - X(4078) = X(4078)-JVS(20724)*X(147)-JVS(20725)*X(640) - X(4079) = X(4079)-JVS(20733)*X(1125) - X(4080) = X(4080)-JVS(20741)*X(3113) - X(4081) = X(4081)-JVS(20746)*X(4032)-JVS(20747)*X(4080) - X(4082) = X(4082)-JVS(20755)*X(1156) - X(4083) = X(4083)-JVS(20763)*X(3134) - X(4084) = X(4084)-JVS(20768)*X(3622)-JVS(20769)*X(4010)-JVS(20770)*X(4027)-JVS(20771)*X(4056)-JVS(20772)*X(4083) - X(4085) = X(4085)-JVS(20780)*X(852) - X(4086) = X(4086)-JVS(20788)*X(3226)-JVS(20789)*X(3816) - X(4087) = X(4087)-JVS(20797)*X(1285) - X(4088) = X(4088)-JVS(20805)*X(251)-JVS(20806)*X(900) - X(4089) = X(4089)-JVS(20814)*X(1975)-JVS(20815)*X(2415)-JVS(20816)*X(2626)-JVS(20817)*X(2888) - X(4090) = X(4090)-JVS(20825)*X(912) - X(4091) = X(4091)-JVS(20832)*X(1241) - X(4092) = X(4092)-JVS(20839)*X(1147)-JVS(20840)*X(2480)-JVS(20841)*X(2626)-JVS(20842)*X(2888)-JVS(20843)*X(4089)& - &-JVS(20844)*X(4090)-JVS(20845)*X(4091) - X(4093) = X(4093)-JVS(20853)*X(3084) - X(4094) = X(4094)-JVS(20858)*X(3144) - X(4095) = X(4095)-JVS(20863)*X(2618) - X(4097) = X(4097)-JVS(20875)*X(897) - X(4098) = X(4098)-JVS(20882)*X(162)-JVS(20883)*X(1135)-JVS(20884)*X(2352)-JVS(20885)*X(3962) - X(4099) = X(4099)-JVS(20892)*X(588)-JVS(20893)*X(1207) - X(4100) = X(4100)-JVS(20900)*X(1002)-JVS(20901)*X(3229)-JVS(20902)*X(3657) - X(4101) = X(4101)-JVS(20909)*X(216)-JVS(20910)*X(1426)-JVS(20911)*X(3456)-JVS(20912)*X(4005)-JVS(20913)*X(4100) - X(4102) = X(4102)-JVS(20920)*X(1982)-JVS(20921)*X(2901)-JVS(20922)*X(3732)-JVS(20923)*X(4076) - X(4103) = X(4103)-JVS(20930)*X(468)-JVS(20931)*X(1401)-JVS(20932)*X(1780)-JVS(20933)*X(1781)-JVS(20934)*X(3751) - X(4104) = X(4104)-JVS(20941)*X(633)-JVS(20942)*X(731)-JVS(20943)*X(1414)-JVS(20944)*X(1934)-JVS(20945)*X(2332)& - &-JVS(20946)*X(2445)-JVS(20947)*X(2701) - X(4105) = X(4105)-JVS(20957)*X(2634)-JVS(20958)*X(3291)-JVS(20959)*X(3836) - X(4106) = X(4106)-JVS(20966)*X(3259) - X(4108) = X(4108)-JVS(20978)*X(3598) - X(4109) = X(4109)-JVS(20985)*X(9)-JVS(20986)*X(285)-JVS(20987)*X(706)-JVS(20988)*X(981)-JVS(20989)*X(1655)-JVS(20990)& - &*X(2436)-JVS(20991)*X(3231) - X(4110) = X(4110)-JVS(21001)*X(425)-JVS(21002)*X(1692)-JVS(21003)*X(2182)-JVS(21004)*X(2233)-JVS(21005)*X(3778) - X(4112) = X(4112)-JVS(21018)*X(1288) - X(4114) = X(4114)-JVS(21030)*X(2369)-JVS(21031)*X(3592) - X(4115) = X(4115)-JVS(21038)*X(858)-JVS(21039)*X(2809) - X(4116) = X(4116)-JVS(21046)*X(433)-JVS(21047)*X(1347) - X(4117) = X(4117)-JVS(21054)*X(1527) - X(4118) = X(4118)-JVS(21061)*X(1495)-JVS(21062)*X(1712)-JVS(21063)*X(2572) - X(4119) = X(4119)-JVS(21070)*X(407)-JVS(21071)*X(1197)-JVS(21072)*X(1367)-JVS(21073)*X(3081) - X(4120) = X(4120)-JVS(21080)*X(203)-JVS(21081)*X(1463)-JVS(21082)*X(2224)-JVS(21083)*X(3908) - X(4121) = X(4121)-JVS(21090)*X(980)-JVS(21091)*X(1641) - X(4122) = X(4122)-JVS(21098)*X(525)-JVS(21099)*X(1304)-JVS(21100)*X(2122)-JVS(21101)*X(2268)-JVS(21102)*X(3731) - X(4123) = X(4123)-JVS(21109)*X(217)-JVS(21110)*X(3621) - X(4124) = X(4124)-JVS(21117)*X(931) - X(4125) = X(4125)-JVS(21124)*X(3451)-JVS(21125)*X(3468)-JVS(21126)*X(3618)-JVS(21127)*X(3707) - X(4126) = X(4126)-JVS(21137)*X(2614)-JVS(21138)*X(3287) - X(4127) = X(4127)-JVS(21145)*X(2753)-JVS(21146)*X(3156) - X(4128) = X(4128)-JVS(21153)*X(4110) - X(4129) = X(4129)-JVS(21160)*X(386) - X(4130) = X(4130)-JVS(21167)*X(1614)-JVS(21168)*X(1801)-JVS(21169)*X(2524) - X(4131) = X(4131)-JVS(21176)*X(849)-JVS(21177)*X(1189) - X(4132) = X(4132)-JVS(21184)*X(1473)-JVS(21185)*X(2950)-JVS(21186)*X(4080) - X(4133) = X(4133)-JVS(21193)*X(1486)-JVS(21194)*X(3138) - X(4134) = X(4134)-JVS(21200)*X(997) - X(4135) = X(4135)-JVS(21207)*X(224) - X(4136) = X(4136)-JVS(21214)*X(1818)-JVS(21215)*X(2802) - X(4137) = X(4137)-JVS(21222)*X(1931)-JVS(21223)*X(2965)-JVS(21224)*X(3902)-JVS(21225)*X(3951) - X(4138) = X(4138)-JVS(21232)*X(1832)-JVS(21233)*X(2930)-JVS(21234)*X(3078) - X(4139) = X(4139)-JVS(21241)*X(1537)-JVS(21242)*X(3318)-JVS(21243)*X(3655) - X(4140) = X(4140)-JVS(21250)*X(1072) - X(4142) = X(4142)-JVS(21263)*X(3591) - X(4143) = X(4143)-JVS(21270)*X(1391) - X(4144) = X(4144)-JVS(21277)*X(419) - X(4145) = X(4145)-JVS(21284)*X(224) - X(4147) = X(4147)-JVS(21297)*X(2293)-JVS(21298)*X(2621) - X(4148) = X(4148)-JVS(21305)*X(419) - X(4149) = X(4149)-JVS(21312)*X(877) - X(4150) = X(4150)-JVS(21319)*X(182)-JVS(21320)*X(821)-JVS(21321)*X(1260)-JVS(21322)*X(2458) - X(4151) = X(4151)-JVS(21329)*X(1362)-JVS(21330)*X(3806) - X(4152) = X(4152)-JVS(21337)*X(119)-JVS(21338)*X(1033)-JVS(21339)*X(1567)-JVS(21340)*X(2624)-JVS(21341)*X(3503)& - &-JVS(21342)*X(3665) - X(4153) = X(4153)-JVS(21348)*X(2368)-JVS(21349)*X(2420)-JVS(21350)*X(4152) - X(4154) = X(4154)-JVS(21356)*X(107)-JVS(21357)*X(373)-JVS(21358)*X(459)-JVS(21359)*X(2064)-JVS(21360)*X(3019)& - &-JVS(21361)*X(3770)-JVS(21362)*X(4152) - X(4155) = X(4155)-JVS(21369)*X(976)-JVS(21370)*X(3002) - X(4157) = X(4157)-JVS(21382)*X(169)-JVS(21383)*X(935)-JVS(21384)*X(1263)-JVS(21385)*X(3694)-JVS(21386)*X(3858) - X(4158) = X(4158)-JVS(21393)*X(1935)-JVS(21394)*X(3066) - X(4160) = X(4160)-JVS(21407)*X(2363)-JVS(21408)*X(3575) - X(4161) = X(4161)-JVS(21415)*X(1897)-JVS(21416)*X(2118) - X(4162) = X(4162)-JVS(21423)*X(211)-JVS(21424)*X(1331)-JVS(21425)*X(2195) - X(4163) = X(4163)-JVS(21432)*X(1775)-JVS(21433)*X(1943) - X(4164) = X(4164)-JVS(21440)*X(524)-JVS(21441)*X(1387)-JVS(21442)*X(2031)-JVS(21443)*X(2387)-JVS(21444)*X(3691) - X(4166) = X(4166)-JVS(21457)*X(1390)-JVS(21458)*X(2722) - X(4167) = X(4167)-JVS(21465)*X(1159)-JVS(21466)*X(3169) - X(4168) = X(4168)-JVS(21472)*X(796)-JVS(21473)*X(2307)-JVS(21474)*X(2681)-JVS(21475)*X(4167) - X(4169) = X(4169)-JVS(21482)*X(175)-JVS(21483)*X(2083)-JVS(21484)*X(2400)-JVS(21485)*X(2424) - X(4170) = X(4170)-JVS(21492)*X(1292)-JVS(21493)*X(1790)-JVS(21494)*X(3314) - X(4171) = X(4171)-JVS(21501)*X(1849) - X(4172) = X(4172)-JVS(21508)*X(315)-JVS(21509)*X(1245)-JVS(21510)*X(2408) - X(4173) = X(4173)-JVS(21517)*X(1197)-JVS(21518)*X(3398)-JVS(21519)*X(3852) - X(4174) = X(4174)-JVS(21526)*X(2179)-JVS(21527)*X(3572) - X(4175) = X(4175)-JVS(21534)*X(2082)-JVS(21535)*X(2700)-JVS(21536)*X(3053)-JVS(21537)*X(3681)-JVS(21538)*X(3709)& - &-JVS(21539)*X(4153) - X(4176) = X(4176)-JVS(21549)*X(522) - X(4177) = X(4177)-JVS(21556)*X(54)-JVS(21557)*X(1535)-JVS(21558)*X(3445)-JVS(21559)*X(4074) - X(4178) = X(4178)-JVS(21565)*X(2732)-JVS(21566)*X(3235)-JVS(21567)*X(3283)-JVS(21568)*X(3650)-JVS(21569)*X(3659) - X(4179) = X(4179)-JVS(21576)*X(295)-JVS(21577)*X(1349)-JVS(21578)*X(2060)-JVS(21579)*X(2206)-JVS(21580)*X(3690) - X(4180) = X(4180)-JVS(21587)*X(3261) - X(4181) = X(4181)-JVS(21594)*X(801)-JVS(21595)*X(1228)-JVS(21596)*X(1735)-JVS(21597)*X(1797)-JVS(21598)*X(2690)& - &-JVS(21599)*X(3232)-JVS(21600)*X(3412)-JVS(21601)*X(3645)-JVS(21602)*X(3819)-JVS(21603)*X(4070) - X(4182) = X(4182)-JVS(21610)*X(483)-JVS(21611)*X(1393)-JVS(21612)*X(3474)-JVS(21613)*X(4041)-JVS(21614)*X(4181) - X(4183) = X(4183)-JVS(21621)*X(439)-JVS(21622)*X(1128)-JVS(21623)*X(1612)-JVS(21624)*X(2108)-JVS(21625)*X(2170)& - &-JVS(21626)*X(2587)-JVS(21627)*X(3043) - X(4184) = X(4184)-JVS(21637)*X(952)-JVS(21638)*X(4052) - X(4185) = X(4185)-JVS(21645)*X(1186) - X(4186) = X(4186)-JVS(21652)*X(920)-JVS(21653)*X(1297)-JVS(21654)*X(2343)-JVS(21655)*X(4097)-JVS(21656)*X(4146)& - &-JVS(21657)*X(4185) - X(4187) = X(4187)-JVS(21664)*X(867)-JVS(21665)*X(2780)-JVS(21666)*X(3649) - X(4188) = X(4188)-JVS(21673)*X(1117)-JVS(21674)*X(2467)-JVS(21675)*X(3214) - X(4189) = X(4189)-JVS(21682)*X(450)-JVS(21683)*X(931)-JVS(21684)*X(1496)-JVS(21685)*X(2892)-JVS(21686)*X(4124) - X(4190) = X(4190)-JVS(21693)*X(1164)-JVS(21694)*X(3760)-JVS(21695)*X(3905) - X(4191) = X(4191)-JVS(21702)*X(954)-JVS(21703)*X(1360) - X(4192) = X(4192)-JVS(21710)*X(1459)-JVS(21711)*X(3142) - X(4193) = X(4193)-JVS(21719)*X(1532)-JVS(21720)*X(3114) - X(4194) = X(4194)-JVS(21728)*X(1025)-JVS(21729)*X(3178) - X(4195) = X(4195)-JVS(21737)*X(979)-JVS(21738)*X(3092) - X(4196) = X(4196)-JVS(21746)*X(191)-JVS(21747)*X(1413)-JVS(21748)*X(1648)-JVS(21749)*X(1649)-JVS(21750)*X(2829)& - &-JVS(21751)*X(3722) - X(4197) = X(4197)-JVS(21759)*X(1047)-JVS(21760)*X(1087) - X(4198) = X(4198)-JVS(21768)*X(1206)-JVS(21769)*X(1368) - X(4199) = X(4199)-JVS(21777)*X(2064)-JVS(21778)*X(2485)-JVS(21779)*X(2541)-JVS(21780)*X(2765)-JVS(21781)*X(3019)& - &-JVS(21782)*X(4046)-JVS(21783)*X(4154) - X(4200) = X(4200)-JVS(21791)*X(1379)-JVS(21792)*X(3119) - X(4201) = X(4201)-JVS(21800)*X(293)-JVS(21801)*X(1007) - X(4202) = X(4202)-JVS(21809)*X(542)-JVS(21810)*X(2248)-JVS(21811)*X(2482)-JVS(21812)*X(2643) - X(4203) = X(4203)-JVS(21820)*X(2899)-JVS(21821)*X(3014)-JVS(21822)*X(3968) - X(4204) = X(4204)-JVS(21830)*X(1278)-JVS(21831)*X(3189) - X(4205) = X(4205)-JVS(21839)*X(1504)-JVS(21840)*X(3187) - X(4206) = X(4206)-JVS(21848)*X(2208)-JVS(21849)*X(2620) - X(4207) = X(4207)-JVS(21857)*X(2251)-JVS(21858)*X(2800)-JVS(21859)*X(3938) - X(4208) = X(4208)-JVS(21867)*X(1184)-JVS(21868)*X(2105)-JVS(21869)*X(3933) - X(4209) = X(4209)-JVS(21878)*X(2320)-JVS(21879)*X(2498) - X(4210) = X(4210)-JVS(21887)*X(962)-JVS(21888)*X(3127) - X(4211) = X(4211)-JVS(21896)*X(908)-JVS(21897)*X(1870)-JVS(21898)*X(2405) - X(4212) = X(4212)-JVS(21906)*X(1051)-JVS(21907)*X(3114) - X(4213) = X(4213)-JVS(21915)*X(529) - X(4214) = X(4214)-JVS(21923)*X(204)-JVS(21924)*X(1335)-JVS(21925)*X(2159)-JVS(21926)*X(2608)-JVS(21927)*X(3746) - X(4215) = X(4215)-JVS(21935)*X(2301)-JVS(21936)*X(3051) - X(4216) = X(4216)-JVS(21944)*X(178)-JVS(21945)*X(826)-JVS(21946)*X(872)-JVS(21947)*X(1972)-JVS(21948)*X(2773)& - &-JVS(21949)*X(3313)-JVS(21950)*X(3698) - X(4217) = X(4217)-JVS(21958)*X(1322)-JVS(21959)*X(3167) - X(4218) = X(4218)-JVS(21967)*X(510)-JVS(21968)*X(1359)-JVS(21969)*X(2505)-JVS(21970)*X(2862)-JVS(21971)*X(3983) - X(4219) = X(4219)-JVS(21979)*X(309)-JVS(21980)*X(1064)-JVS(21981)*X(1867)-JVS(21982)*X(2817)-JVS(21983)*X(3900) - X(4220) = X(4220)-JVS(21991)*X(76)-JVS(21992)*X(989)-JVS(21993)*X(2142)-JVS(21994)*X(2530)-JVS(21995)*X(3719)& - &-JVS(21996)*X(4190) - X(4221) = X(4221)-JVS(22004)*X(14)-JVS(22005)*X(455)-JVS(22006)*X(518)-JVS(22007)*X(2991)-JVS(22008)*X(3040)& - &-JVS(22009)*X(3699) - X(4222) = X(4222)-JVS(22017)*X(1208)-JVS(22018)*X(2517)-JVS(22019)*X(3972) - X(4223) = X(4223)-JVS(22027)*X(1121)-JVS(22028)*X(2067)-JVS(22029)*X(2133) - X(4224) = X(4224)-JVS(22038)*X(399)-JVS(22039)*X(879)-JVS(22040)*X(2328)-JVS(22041)*X(2658)-JVS(22042)*X(3858) - X(4225) = X(4225)-JVS(22050)*X(1190)-JVS(22051)*X(3112) - X(4226) = X(4226)-JVS(22059)*X(157)-JVS(22060)*X(1339)-JVS(22061)*X(1883)-JVS(22062)*X(2979)-JVS(22063)*X(3323)& - &-JVS(22064)*X(3743) - X(4227) = X(4227)-JVS(22072)*X(2120)-JVS(22073)*X(2929) - X(4228) = X(4228)-JVS(22082)*X(2329)-JVS(22083)*X(3045)-JVS(22084)*X(3549) - X(4229) = X(4229)-JVS(22093)*X(1816)-JVS(22094)*X(3042)-JVS(22095)*X(3449) - X(4230) = X(4230)-JVS(22103)*X(2116)-JVS(22104)*X(2784)-JVS(22105)*X(3861) - X(4231) = X(4231)-JVS(22113)*X(1743)-JVS(22114)*X(2187)-JVS(22115)*X(2375)-JVS(22116)*X(2716)-JVS(22117)*X(3676) - X(4232) = X(4232)-JVS(22125)*X(1423)-JVS(22126)*X(3152) - X(4233) = X(4233)-JVS(22134)*X(2228)-JVS(22135)*X(2538) - X(4234) = X(4234)-JVS(22144)*X(414)-JVS(22145)*X(470)-JVS(22146)*X(1507) - X(4235) = X(4235)-JVS(22154)*X(1826)-JVS(22155)*X(2723)-JVS(22156)*X(3126)-JVS(22157)*X(3528) - X(4236) = X(4236)-JVS(22165)*X(27)-JVS(22166)*X(2386) - X(4237) = X(4237)-JVS(22174)*X(1329)-JVS(22175)*X(3123) - X(4238) = X(4238)-JVS(22183)*X(1198)-JVS(22184)*X(1398)-JVS(22185)*X(4164) - X(4239) = X(4239)-JVS(22193)*X(2483)-JVS(22194)*X(3049)-JVS(22195)*X(3480)-JVS(22196)*X(3615)-JVS(22197)*X(3682) - X(4240) = X(4240)-JVS(22206)*X(640) - X(4241) = X(4241)-JVS(22215)*X(120)-JVS(22216)*X(397)-JVS(22217)*X(398)-JVS(22218)*X(2055)-JVS(22219)*X(2683)& - &-JVS(22220)*X(3697) - X(4242) = X(4242)-JVS(22228)*X(20)-JVS(22229)*X(1887) - X(4243) = X(4243)-JVS(22237)*X(2319)-JVS(22238)*X(2678)-JVS(22239)*X(3935) - X(4244) = X(4244)-JVS(22247)*X(865)-JVS(22248)*X(929) - X(4245) = X(4245)-JVS(22256)*X(972)-JVS(22257)*X(3190) - X(4246) = X(4246)-JVS(22265)*X(1253)-JVS(22266)*X(3162) - X(4247) = X(4247)-JVS(22274)*X(790) - X(4248) = X(4248)-JVS(22282)*X(532)-JVS(22283)*X(831)-JVS(22284)*X(1179)-JVS(22285)*X(1667)-JVS(22286)*X(2172)& - &-JVS(22287)*X(2519)-JVS(22288)*X(2693)-JVS(22289)*X(2785)-JVS(22290)*X(3893)-JVS(22291)*X(3932) - X(4249) = X(4249)-JVS(22300)*X(3517) - X(4250) = X(4250)-JVS(22308)*X(701) - X(4251) = X(4251)-JVS(22316)*X(280)-JVS(22317)*X(1196)-JVS(22318)*X(2331)-JVS(22319)*X(3946) - X(4252) = X(4252)-JVS(22327)*X(1524)-JVS(22328)*X(3116) - X(4253) = X(4253)-JVS(22336)*X(33)-JVS(22337)*X(82)-JVS(22338)*X(963)-JVS(22339)*X(2443)-JVS(22340)*X(2863)-JVS(22341)& - &*X(3714) - X(4254) = X(4254)-JVS(22349)*X(1122)-JVS(22350)*X(1226)-JVS(22351)*X(4179) - X(4255) = X(4255)-JVS(22359)*X(1285)-JVS(22360)*X(2791) - X(4256) = X(4256)-JVS(22368)*X(2101)-JVS(22369)*X(2590) - X(4257) = X(4257)-JVS(22378)*X(919)-JVS(22379)*X(2143)-JVS(22380)*X(3307) - X(4258) = X(4258)-JVS(22389)*X(522) - X(4259) = X(4259)-JVS(22397)*X(2431)-JVS(22398)*X(2801) - X(4260) = X(4260)-JVS(22406)*X(2144)-JVS(22407)*X(2677)-JVS(22408)*X(3991) - X(4261) = X(4261)-JVS(22416)*X(2173)-JVS(22417)*X(2519)-JVS(22418)*X(2785)-JVS(22419)*X(3893)-JVS(22420)*X(3932) - X(4262) = X(4262)-JVS(22428)*X(825)-JVS(22429)*X(3181) - X(4263) = X(4263)-JVS(22437)*X(222)-JVS(22438)*X(909)-JVS(22439)*X(1436)-JVS(22440)*X(3612) - X(4264) = X(4264)-JVS(22448)*X(236) - X(4265) = X(4265)-JVS(22456)*X(1096)-JVS(22457)*X(3167) - X(4266) = X(4266)-JVS(22465)*X(1770)-JVS(22466)*X(2898)-JVS(22467)*X(4151) - X(4267) = X(4267)-JVS(22475)*X(2529)-JVS(22476)*X(2763)-JVS(22477)*X(3571)-JVS(22478)*X(4163) - X(4268) = X(4268)-JVS(22486)*X(886)-JVS(22487)*X(1888) - X(4269) = X(4269)-JVS(22495)*X(2402)-JVS(22496)*X(2576)-JVS(22497)*X(3228) - X(4270) = X(4270)-JVS(22505)*X(1115)-JVS(22506)*X(1418)-JVS(22507)*X(4122) - X(4271) = X(4271)-JVS(22515)*X(1508)-JVS(22516)*X(3146) - X(4272) = X(4272)-JVS(22524)*X(3129) - X(4273) = X(4273)-JVS(22529)*X(1105)-JVS(22530)*X(3092) - X(4274) = X(4274)-JVS(22538)*X(1759)-JVS(22539)*X(3124)-JVS(22540)*X(3537) - X(4275) = X(4275)-JVS(22548)*X(2384)-JVS(22549)*X(2698) - X(4276) = X(4276)-JVS(22557)*X(1273)-JVS(22558)*X(3137) - X(4277) = X(4277)-JVS(22566)*X(2971)-JVS(22567)*X(3460)-JVS(22568)*X(3600) - X(4278) = X(4278)-JVS(22576)*X(696)-JVS(22577)*X(754)-JVS(22578)*X(1312)-JVS(22579)*X(2214)-JVS(22580)*X(2759)& - &-JVS(22581)*X(2942)-JVS(22582)*X(4137)-JVS(22583)*X(4166) - X(4279) = X(4279)-JVS(22592)*X(554)-JVS(22593)*X(1213)-JVS(22594)*X(2256)-JVS(22595)*X(4128) - X(4280) = X(4280)-JVS(22603)*X(860)-JVS(22604)*X(3123) - X(4281) = X(4281)-JVS(22612)*X(2396)-JVS(22613)*X(2738) - X(4282) = X(4282)-JVS(22621)*X(563) - X(4283) = X(4283)-JVS(22629)*X(2371)-JVS(22630)*X(2896) - X(4284) = X(4284)-JVS(22638)*X(1947)-JVS(22639)*X(2028)-JVS(22640)*X(2478) - X(4285) = X(4285)-JVS(22648)*X(1166)-JVS(22649)*X(3191) - X(4286) = X(4286)-JVS(22657)*X(3155) - X(4287) = X(4287)-JVS(22665)*X(1148)-JVS(22666)*X(3087) - X(4288) = X(4288)-JVS(22674)*X(919)-JVS(22675)*X(3307) - X(4289) = X(4289)-JVS(22683)*X(1029)-JVS(22684)*X(3143) - X(4290) = X(4290)-JVS(22692)*X(138)-JVS(22693)*X(2143)-JVS(22694)*X(2151)-JVS(22695)*X(3307)-JVS(22696)*X(4257)& - &-JVS(22697)*X(4288) - X(4291) = X(4291)-JVS(22705)*X(917)-JVS(22706)*X(3095) - X(4292) = X(4292)-JVS(22714)*X(1144)-JVS(22715)*X(3112) - X(4293) = X(4293)-JVS(22723)*X(1104)-JVS(22724)*X(3095) - X(4294) = X(4294)-JVS(22732)*X(2085)-JVS(22733)*X(2870)-JVS(22734)*X(3211)-JVS(22735)*X(3261)-JVS(22736)*X(3280)& - &-JVS(22737)*X(3502)-JVS(22738)*X(3563)-JVS(22739)*X(4180) - X(4295) = X(4295)-JVS(22755)*X(351)-JVS(22756)*X(1209)-JVS(22757)*X(1761)-JVS(22758)*X(3327)-JVS(22759)*X(4224) - X(4296) = X(4296)-JVS(22768)*X(878)-JVS(22769)*X(3100) - X(4297) = X(4297)-JVS(22777)*X(1101)-JVS(22778)*X(3087) - X(4298) = X(4298)-JVS(22786)*X(1420)-JVS(22787)*X(3163) - X(4299) = X(4299)-JVS(22795)*X(16)-JVS(22796)*X(106)-JVS(22797)*X(1412)-JVS(22798)*X(2754)-JVS(22799)*X(3052)& - &-JVS(22800)*X(3753) - X(4300) = X(4300)-JVS(22808)*X(437)-JVS(22809)*X(836)-JVS(22810)*X(2030)-JVS(22811)*X(2189)-JVS(22812)*X(3718) - X(4301) = X(4301)-JVS(22820)*X(2146)-JVS(22821)*X(3017)-JVS(22822)*X(4186) - X(4302) = X(4302)-JVS(22830)*X(640) - X(4303) = X(4303)-JVS(22838)*X(1255)-JVS(22839)*X(3119) - X(4304) = X(4304)-JVS(22847)*X(1512)-JVS(22848)*X(3162) - X(4305) = X(4305)-JVS(22856)*X(913)-JVS(22857)*X(3120) - X(4306) = X(4306)-JVS(22865)*X(835)-JVS(22866)*X(3088) - X(4307) = X(4307)-JVS(22874)*X(923)-JVS(22875)*X(3100) - X(4308) = X(4308)-JVS(22883)*X(130)-JVS(22884)*X(490)-JVS(22885)*X(491)-JVS(22886)*X(2725)-JVS(22887)*X(2911)& - &-JVS(22888)*X(3740) - X(4309) = X(4309)-JVS(22896)*X(2084)-JVS(22897)*X(3298)-JVS(22898)*X(3822) - X(4310) = X(4310)-JVS(22906)*X(519)-JVS(22907)*X(1477)-JVS(22908)*X(1730)-JVS(22909)*X(3986) - X(4311) = X(4311)-JVS(22918)*X(1370)-JVS(22919)*X(1409)-JVS(22920)*X(1968)-JVS(22921)*X(3833) - X(4312) = X(4312)-JVS(22929)*X(1399)-JVS(22930)*X(3116) - X(4313) = X(4313)-JVS(22938)*X(1627)-JVS(22939)*X(2259)-JVS(22940)*X(2513)-JVS(22941)*X(2633)-JVS(22942)*X(2713)& - &-JVS(22943)*X(3038)-JVS(22944)*X(3854)-JVS(22945)*X(3859) - X(4314) = X(4314)-JVS(22953)*X(1358)-JVS(22954)*X(3127) - X(4315) = X(4315)-JVS(22962)*X(168)-JVS(22963)*X(1070)-JVS(22964)*X(2063)-JVS(22965)*X(3270)-JVS(22966)*X(3703) - X(4316) = X(4316)-JVS(22974)*X(232)-JVS(22975)*X(2010)-JVS(22976)*X(2434)-JVS(22977)*X(2815) - X(4317) = X(4317)-JVS(22985)*X(1187)-JVS(22986)*X(3142) - X(4318) = X(4318)-JVS(22994)*X(1217)-JVS(22995)*X(1498) - X(4319) = X(4319)-JVS(23003)*X(151)-JVS(23004)*X(1004)-JVS(23005)*X(1155)-JVS(23006)*X(2157)-JVS(23007)*X(3213)& - &-JVS(23008)*X(3789) - X(4320) = X(4320)-JVS(23016)*X(477) - X(4321) = X(4321)-JVS(23024)*X(2308) - X(4322) = X(4322)-JVS(23030)*X(17)-JVS(23031)*X(959)-JVS(23032)*X(1669)-JVS(23033)*X(2649)-JVS(23034)*X(3518)& - &-JVS(23035)*X(3828) - X(4323) = X(4323)-JVS(23041)*X(2048)-JVS(23042)*X(2342)-JVS(23043)*X(4322) - X(4324) = X(4324)-JVS(23049)*X(57)-JVS(23050)*X(90)-JVS(23051)*X(1062)-JVS(23052)*X(2349)-JVS(23053)*X(2615)& - &-JVS(23054)*X(3771)-JVS(23055)*X(4322) - X(4325) = X(4325)-JVS(23062)*X(1726)-JVS(23063)*X(2349)-JVS(23064)*X(2615)-JVS(23065)*X(2631)-JVS(23066)*X(2838)& - &-JVS(23067)*X(3455)-JVS(23068)*X(4013)-JVS(23069)*X(4324) - X(4326) = X(4326)-JVS(23077)*X(109)-JVS(23078)*X(1157)-JVS(23079)*X(1549)-JVS(23080)*X(3321)-JVS(23081)*X(3491)& - &-JVS(23082)*X(3820) - X(4327) = X(4327)-JVS(23088)*X(1936)-JVS(23089)*X(2093)-JVS(23090)*X(4326) - X(4328) = X(4328)-JVS(23096)*X(3209)-JVS(23097)*X(3821)-JVS(23098)*X(4326) - X(4329) = X(4329)-JVS(23107)*X(2039)-JVS(23108)*X(2082)-JVS(23109)*X(2970)-JVS(23110)*X(3593)-JVS(23111)*X(3729)& - &-JVS(23112)*X(4323)-JVS(23113)*X(4327) - X(4331) = X(4331)-JVS(23126)*X(2551)-JVS(23127)*X(2557)-JVS(23128)*X(2586)-JVS(23129)*X(2736)-JVS(23130)*X(2952)& - &-JVS(23131)*X(3016)-JVS(23132)*X(3363)-JVS(23133)*X(3381)-JVS(23134)*X(4192)-JVS(23135)*X(4193)-JVS(23136)& - &*X(4212)-JVS(23137)*X(4276)-JVS(23138)*X(4285)-JVS(23139)*X(4317) - X(4333) = X(4333)-JVS(23156)*X(3465)-JVS(23157)*X(3466)-JVS(23158)*X(4332) - X(4334) = X(4334)-JVS(23167)*X(3594) - X(4335) = X(4335)-JVS(23174)*X(914)-JVS(23175)*X(4017) - X(4336) = X(4336)-JVS(23182)*X(2558)-JVS(23183)*X(3843) - X(4337) = X(4337)-JVS(23190)*X(1364) - X(4338) = X(4338)-JVS(23197)*X(1283)-JVS(23198)*X(2956)-JVS(23199)*X(3640) - X(4340) = X(4340)-JVS(23212)*X(1984)-JVS(23213)*X(2812)-JVS(23214)*X(4189) - X(4342) = X(4342)-JVS(23227)*X(252)-JVS(23228)*X(1107) - X(4343) = X(4343)-JVS(23235)*X(1926)-JVS(23236)*X(3642)-JVS(23237)*X(4342) - X(4344) = X(4344)-JVS(23245)*X(829)-JVS(23246)*X(3409)-JVS(23247)*X(3922) - X(4345) = X(4345)-JVS(23254)*X(3278)-JVS(23255)*X(3364)-JVS(23256)*X(3970) - X(4346) = X(4346)-JVS(23263)*X(998)-JVS(23264)*X(1344) - X(4347) = X(4347)-JVS(23271)*X(2602) - X(4348) = X(4348)-JVS(23278)*X(1884)-JVS(23279)*X(2939) - X(4349) = X(4349)-JVS(23286)*X(803)-JVS(23287)*X(4103) - X(4350) = X(4350)-JVS(23294)*X(1803)-JVS(23295)*X(2759)-JVS(23296)*X(4166) - X(4351) = X(4351)-JVS(23303)*X(1859) - X(4352) = X(4352)-JVS(23310)*X(558)-JVS(23311)*X(1916)-JVS(23312)*X(2580)-JVS(23313)*X(2635)-JVS(23314)*X(4096) - X(4354) = X(4354)-JVS(23331)*X(2009) - X(4355) = X(4355)-JVS(23338)*X(609)-JVS(23339)*X(4164) - X(4356) = X(4356)-JVS(23346)*X(2401)-JVS(23347)*X(3843) - X(4357) = X(4357)-JVS(23354)*X(1499) - X(4358) = X(4358)-JVS(23361)*X(3446) - X(4359) = X(4359)-JVS(23368)*X(2647)-JVS(23369)*X(3205) - X(4360) = X(4360)-JVS(23376)*X(188)-JVS(23377)*X(1536)-JVS(23378)*X(1889)-JVS(23379)*X(3952) - X(4361) = X(4361)-JVS(23386)*X(794)-JVS(23387)*X(4179) - X(4362) = X(4362)-JVS(23394)*X(2694)-JVS(23395)*X(3846) - X(4363) = X(4363)-JVS(23402)*X(326)-JVS(23403)*X(970)-JVS(23404)*X(2239) - X(4364) = X(4364)-JVS(23411)*X(2010) - X(4365) = X(4365)-JVS(23418)*X(167)-JVS(23419)*X(2213)-JVS(23420)*X(2401)-JVS(23421)*X(3473)-JVS(23422)*X(4356) - X(4366) = X(4366)-JVS(23429)*X(645)-JVS(23430)*X(1892)-JVS(23431)*X(2289)-JVS(23432)*X(2568)-JVS(23433)*X(3215)& - &-JVS(23434)*X(3216)-JVS(23435)*X(3217)-JVS(23436)*X(3276)-JVS(23437)*X(3324)-JVS(23438)*X(3490)-JVS(23439)& - &*X(3620)-JVS(23440)*X(3837)-JVS(23441)*X(3864)-JVS(23442)*X(4123) - X(4367) = X(4367)-JVS(23453)*X(2572)-JVS(23454)*X(3843) - X(4368) = X(4368)-JVS(23461)*X(3472) - X(4369) = X(4369)-JVS(23468)*X(602)-JVS(23469)*X(3917) - X(4370) = X(4370)-JVS(23476)*X(2442) - X(4371) = X(4371)-JVS(23483)*X(1350) - X(4373) = X(4373)-JVS(23496)*X(1395)-JVS(23497)*X(2222)-JVS(23498)*X(3636)-JVS(23499)*X(4372) - X(4374) = X(4374)-JVS(23506)*X(153)-JVS(23507)*X(1800)-JVS(23508)*X(2391) - X(4375) = X(4375)-JVS(23515)*X(1355)-JVS(23516)*X(3199)-JVS(23517)*X(3661) - X(4376) = X(4376)-JVS(23524)*X(227)-JVS(23525)*X(1355)-JVS(23526)*X(2177)-JVS(23527)*X(3199)-JVS(23528)*X(3661)& - &-JVS(23529)*X(4375) - X(4377) = X(4377)-JVS(23538)*X(4094) - X(4378) = X(4378)-JVS(23545)*X(261)-JVS(23546)*X(2590) - X(4379) = X(4379)-JVS(23553)*X(2766)-JVS(23554)*X(3664) - X(4380) = X(4380)-JVS(23561)*X(1106)-JVS(23562)*X(1573)-JVS(23563)*X(2743) - X(4381) = X(4381)-JVS(23570)*X(1830)-JVS(23571)*X(2274) - X(4383) = X(4383)-JVS(23584)*X(1246)-JVS(23585)*X(1848)-JVS(23586)*X(3449)-JVS(23587)*X(3524)-JVS(23588)*X(4339) - X(4384) = X(4384)-JVS(23599)*X(2910)-JVS(23600)*X(3274) - X(4385) = X(4385)-JVS(23607)*X(1961)-JVS(23608)*X(2908)-JVS(23609)*X(2909)-JVS(23610)*X(3890)-JVS(23611)*X(3901) - X(4386) = X(4386)-JVS(23618)*X(335)-JVS(23619)*X(1782)-JVS(23620)*X(2503)-JVS(23621)*X(2684)-JVS(23622)*X(2999) - X(4387) = X(4387)-JVS(23633)*X(3465)-JVS(23634)*X(3466) - X(4388) = X(4388)-JVS(23641)*X(732)-JVS(23642)*X(851)-JVS(23643)*X(4377) - X(4389) = X(4389)-JVS(23650)*X(769)-JVS(23651)*X(4122) - X(4390) = X(4390)-JVS(23658)*X(2878)-JVS(23659)*X(3505) - X(4391) = X(4391)-JVS(23666)*X(289)-JVS(23667)*X(1490)-JVS(23668)*X(1633)-JVS(23669)*X(1978)-JVS(23670)*X(2646)& - &-JVS(23671)*X(2846)-JVS(23672)*X(2981) - X(4392) = X(4392)-JVS(23683)*X(1646)-JVS(23684)*X(2437)-JVS(23685)*X(2483)-JVS(23686)*X(2703)-JVS(23687)*X(3480)& - &-JVS(23688)*X(3602)-JVS(23689)*X(3615)-JVS(23690)*X(4116)-JVS(23691)*X(4169)-JVS(23692)*X(4374) - X(4393) = X(4393)-JVS(23703)*X(531)-JVS(23704)*X(1065) - X(4394) = X(4394)-JVS(23711)*X(172)-JVS(23712)*X(970)-JVS(23713)*X(1128)-JVS(23714)*X(2108) - X(4396) = X(4396)-JVS(23725)*X(1703)-JVS(23726)*X(3147)-JVS(23727)*X(4395) - X(4397) = X(4397)-JVS(23732)*X(1703)-JVS(23733)*X(3147)-JVS(23734)*X(4395) - X(4398) = X(4398)-JVS(23739)*X(614)-JVS(23740)*X(2468)-JVS(23741)*X(2798)-JVS(23742)*X(2799)-JVS(23743)*X(3830)& - &-JVS(23744)*X(3903)-JVS(23745)*X(4397) - X(4399) = X(4399)-JVS(23754)*X(1703)-JVS(23755)*X(3147)-JVS(23756)*X(4395) - X(4400) = X(4400)-JVS(23763)*X(947)-JVS(23764)*X(4018) - X(4401) = X(4401)-JVS(23771)*X(3457)-JVS(23772)*X(3460)-JVS(23773)*X(3581)-JVS(23774)*X(3600)-JVS(23775)*X(4335)& - &-JVS(23776)*X(4400) - X(4402) = X(4402)-JVS(23784)*X(844)-JVS(23785)*X(3499)-JVS(23786)*X(4035) - X(4403) = X(4403)-JVS(23794)*X(560)-JVS(23795)*X(676)-JVS(23796)*X(718)-JVS(23797)*X(2566)-JVS(23798)*X(2575)& - &-JVS(23799)*X(2598)-JVS(23800)*X(2599)-JVS(23801)*X(2818)-JVS(23802)*X(2937)-JVS(23803)*X(2995)-JVS(23804)& - &*X(3004)-JVS(23805)*X(3065)-JVS(23806)*X(3230)-JVS(23807)*X(3362)-JVS(23808)*X(3388)-JVS(23809)*X(3417)& - &-JVS(23810)*X(3499)-JVS(23811)*X(3506)-JVS(23812)*X(3551)-JVS(23813)*X(3831)-JVS(23814)*X(4210)-JVS(23815)& - &*X(4232)-JVS(23816)*X(4245)-JVS(23817)*X(4252)-JVS(23818)*X(4287)-JVS(23819)*X(4289)-JVS(23820)*X(4297)& - &-JVS(23821)*X(4312)-JVS(23822)*X(4314)-JVS(23823)*X(4402) - X(4404) = X(4404)-JVS(23840)*X(1928)-JVS(23841)*X(2171)-JVS(23842)*X(3063)-JVS(23843)*X(4199) - X(4405) = X(4405)-JVS(23851)*X(1997)-JVS(23852)*X(2579) - X(4406) = X(4406)-JVS(23860)*X(3500)-JVS(23861)*X(3532) - X(4407) = X(4407)-JVS(23871)*X(943)-JVS(23872)*X(3139)-JVS(23873)*X(4009) - X(4408) = X(4408)-JVS(23881)*X(1419)-JVS(23882)*X(3131)-JVS(23883)*X(4075) - X(4409) = X(4409)-JVS(23891)*X(1146)-JVS(23892)*X(2573)-JVS(23893)*X(3309) - X(4410) = X(4410)-JVS(23901)*X(2457)-JVS(23902)*X(2629)-JVS(23903)*X(4119)-JVS(23904)*X(4173) - X(4411) = X(4411)-JVS(23911)*X(1701)-JVS(23912)*X(2235)-JVS(23913)*X(3923) - X(4412) = X(4412)-JVS(23923)*X(1074)-JVS(23924)*X(2885)-JVS(23925)*X(3923) - X(4413) = X(4413)-JVS(23933)*X(1017)-JVS(23934)*X(3506)-JVS(23935)*X(4054) - X(4414) = X(4414)-JVS(23943)*X(2494)-JVS(23944)*X(2796) - X(4415) = X(4415)-JVS(23952)*X(977)-JVS(23953)*X(3163) - X(4416) = X(4416)-JVS(23961)*X(2417)-JVS(23962)*X(3553) - X(4417) = X(4417)-JVS(23970)*X(574)-JVS(23971)*X(1198)-JVS(23972)*X(2205)-JVS(23973)*X(3282)-JVS(23974)*X(3880) - X(4418) = X(4418)-JVS(23982)*X(823)-JVS(23983)*X(1348)-JVS(23984)*X(3862) - X(4419) = X(4419)-JVS(23992)*X(534)-JVS(23993)*X(946)-JVS(23994)*X(2016)-JVS(23995)*X(2718)-JVS(23996)*X(3941) - X(4420) = X(4420)-JVS(24004)*X(1346)-JVS(24005)*X(3464)-JVS(24006)*X(3707) - X(4421) = X(4421)-JVS(24016)*X(960)-JVS(24017)*X(3183)-JVS(24018)*X(3544)-JVS(24019)*X(4389) - X(4422) = X(4422)-JVS(24027)*X(838)-JVS(24028)*X(3519) - X(4423) = X(4423)-JVS(24036)*X(75)-JVS(24037)*X(422)-JVS(24038)*X(973)-JVS(24039)*X(3541)-JVS(24040)*X(4246)& - &-JVS(24041)*X(4262)-JVS(24042)*X(4304) - X(4424) = X(4424)-JVS(24052)*X(2120)-JVS(24053)*X(2929) - X(4425) = X(4425)-JVS(24061)*X(1118)-JVS(24062)*X(3178) - X(4426) = X(4426)-JVS(24070)*X(122)-JVS(24071)*X(1464)-JVS(24072)*X(2854)-JVS(24073)*X(3395)-JVS(24074)*X(3414)& - &-JVS(24075)*X(3596)-JVS(24076)*X(3597)-JVS(24077)*X(4194)-JVS(24078)*X(4296)-JVS(24079)*X(4307)-JVS(24080)& - &*X(4425) - X(4427) = X(4427)-JVS(24089)*X(2290)-JVS(24090)*X(2988)-JVS(24091)*X(4155) - X(4428) = X(4428)-JVS(24099)*X(2811)-JVS(24100)*X(2873) - X(4429) = X(4429)-JVS(24108)*X(1338)-JVS(24109)*X(3185)-JVS(24110)*X(3548)-JVS(24111)*X(4355) - X(4430) = X(4430)-JVS(24119)*X(791)-JVS(24120)*X(1244)-JVS(24121)*X(2027)-JVS(24122)*X(3070)-JVS(24123)*X(3881) - X(4431) = X(4431)-JVS(24131)*X(724)-JVS(24132)*X(1233)-JVS(24133)*X(1900)-JVS(24134)*X(1913)-JVS(24135)*X(2613) - X(4432) = X(4432)-JVS(24143)*X(837)-JVS(24144)*X(1316)-JVS(24145)*X(4010) - X(4433) = X(4433)-JVS(24153)*X(2036)-JVS(24154)*X(2872)-JVS(24155)*X(4160) - X(4434) = X(4434)-JVS(24163)*X(1223)-JVS(24164)*X(3190) - X(4435) = X(4435)-JVS(24172)*X(1268)-JVS(24173)*X(3086)-JVS(24174)*X(3504)-JVS(24175)*X(4369) - X(4436) = X(4436)-JVS(24183)*X(2670)-JVS(24184)*X(3033) - X(4437) = X(4437)-JVS(24192)*X(843)-JVS(24193)*X(3164)-JVS(24194)*X(4008) - X(4438) = X(4438)-JVS(24202)*X(1156)-JVS(24203)*X(3193)-JVS(24204)*X(4082) - X(4439) = X(4439)-JVS(24212)*X(121)-JVS(24213)*X(842)-JVS(24214)*X(2584) - X(4440) = X(4440)-JVS(24222)*X(2152)-JVS(24223)*X(3519) - X(4441) = X(4441)-JVS(24231)*X(78)-JVS(24232)*X(93)-JVS(24233)*X(1435)-JVS(24234)*X(2263)-JVS(24235)*X(2866)& - &-JVS(24236)*X(3782) - X(4442) = X(4442)-JVS(24244)*X(174)-JVS(24245)*X(1119)-JVS(24246)*X(1550)-JVS(24247)*X(1551)-JVS(24248)*X(3011)& - &-JVS(24249)*X(3686) - X(4443) = X(4443)-JVS(24257)*X(776)-JVS(24258)*X(1418)-JVS(24259)*X(2298)-JVS(24260)*X(3218)-JVS(24261)*X(3919) - X(4444) = X(4444)-JVS(24269)*X(822)-JVS(24270)*X(3684)-JVS(24271)*X(3997) - X(4445) = X(4445)-JVS(24279)*X(2388)-JVS(24280)*X(2833)-JVS(24281)*X(3681) - X(4446) = X(4446)-JVS(24289)*X(3530)-JVS(24290)*X(4300) - X(4447) = X(4447)-JVS(24298)*X(1146)-JVS(24299)*X(3309)-JVS(24300)*X(4409)-JVS(24301)*X(4410) - X(4448) = X(4448)-JVS(24309)*X(31)-JVS(24310)*X(1009)-JVS(24311)*X(1664)-JVS(24312)*X(3320)-JVS(24313)*X(3531)& - &-JVS(24314)*X(3796) - X(4449) = X(4449)-JVS(24320)*X(2263)-JVS(24321)*X(2443)-JVS(24322)*X(2863)-JVS(24323)*X(2866)-JVS(24324)*X(4253)& - &-JVS(24325)*X(4441)-JVS(24326)*X(4448) - X(4450) = X(4450)-JVS(24334)*X(528)-JVS(24335)*X(1226)-JVS(24336)*X(2411)-JVS(24337)*X(3306)-JVS(24338)*X(3916) - X(4451) = X(4451)-JVS(24346)*X(929)-JVS(24347)*X(2674) - X(4452) = X(4452)-JVS(24355)*X(2460)-JVS(24356)*X(2522)-JVS(24357)*X(4108) - X(4453) = X(4453)-JVS(24365)*X(1476)-JVS(24366)*X(3136)-JVS(24367)*X(4020) - X(4454) = X(4454)-JVS(24375)*X(1294)-JVS(24376)*X(3831)-JVS(24377)*X(4057) - X(4455) = X(4455)-JVS(24385)*X(1030)-JVS(24386)*X(3152) - X(4456) = X(4456)-JVS(24394)*X(1461)-JVS(24395)*X(2619)-JVS(24396)*X(3633) - X(4457) = X(4457)-JVS(24404)*X(1303)-JVS(24405)*X(3172)-JVS(24406)*X(4063) - X(4458) = X(4458)-JVS(24414)*X(1376)-JVS(24415)*X(3088) - X(4459) = X(4459)-JVS(24423)*X(827)-JVS(24424)*X(1408) - X(4460) = X(4460)-JVS(24432)*X(2429)-JVS(24433)*X(2705)-JVS(24434)*X(3154)-JVS(24435)*X(3835) - X(4461) = X(4461)-JVS(24443)*X(1137)-JVS(24444)*X(3151)-JVS(24445)*X(3522)-JVS(24446)*X(4349) - X(4462) = X(4462)-JVS(24454)*X(2600)-JVS(24455)*X(2867) - X(4463) = X(4463)-JVS(24463)*X(1045)-JVS(24464)*X(3143) - X(4464) = X(4464)-JVS(24472)*X(1169)-JVS(24473)*X(3181) - X(4465) = X(4465)-JVS(24481)*X(1116)-JVS(24482)*X(1219)-JVS(24483)*X(4362) - X(4466) = X(4466)-JVS(24491)*X(1539)-JVS(24492)*X(3701)-JVS(24493)*X(4065) - X(4467) = X(4467)-JVS(24501)*X(934)-JVS(24502)*X(3146) - X(4468) = X(4468)-JVS(24510)*X(1236)-JVS(24511)*X(2845)-JVS(24512)*X(3513) - X(4469) = X(4469)-JVS(24520)*X(853)-JVS(24521)*X(3026)-JVS(24522)*X(3856) - X(4470) = X(4470)-JVS(24530)*X(2176)-JVS(24531)*X(2583)-JVS(24532)*X(4174) - X(4471) = X(4471)-JVS(24540)*X(1243)-JVS(24541)*X(3508)-JVS(24542)*X(4033) - X(4472) = X(4472)-JVS(24550)*X(1248)-JVS(24551)*X(3075) - X(4473) = X(4473)-JVS(24559)*X(806)-JVS(24560)*X(1948) - X(4476) = X(4476)-JVS(24576)*X(3266)-JVS(24577)*X(4332)-JVS(24578)*X(4475) - X(4477) = X(4477)-JVS(24585)*X(1154)-JVS(24586)*X(2153)-JVS(24587)*X(2895)-JVS(24588)*X(3736)-JVS(24589)*X(3737) - X(4478) = X(4478)-JVS(24597)*X(2177)-JVS(24598)*X(3158)-JVS(24599)*X(3199)-JVS(24600)*X(4375)-JVS(24601)*X(4376) - X(4479) = X(4479)-JVS(24609)*X(1188)-JVS(24610)*X(3149)-JVS(24611)*X(4016) - X(4480) = X(4480)-JVS(24619)*X(1129)-JVS(24620)*X(3553) - X(4481) = X(4481)-JVS(24628)*X(928)-JVS(24629)*X(3553)-JVS(24630)*X(3556)-JVS(24631)*X(4416)-JVS(24632)*X(4480) - X(4482) = X(4482)-JVS(24640)*X(15)-JVS(24641)*X(245)-JVS(24642)*X(1357)-JVS(24643)*X(2548)-JVS(24644)*X(3361)& - &-JVS(24645)*X(3421)-JVS(24646)*X(3574)-JVS(24647)*X(3579)-JVS(24648)*X(4205)-JVS(24649)*X(4237)-JVS(24650)& - &*X(4280)-JVS(24651)*X(4466) - X(4483) = X(4483)-JVS(24661)*X(1296)-JVS(24662)*X(1354)-JVS(24663)*X(3622)-JVS(24664)*X(4056) - X(4484) = X(4484)-JVS(24672)*X(1540)-JVS(24673)*X(2515)-JVS(24674)*X(3947) - X(4485) = X(4485)-JVS(24682)*X(88)-JVS(24683)*X(593)-JVS(24684)*X(594)-JVS(24685)*X(1402)-JVS(24686)*X(2515)& - &-JVS(24687)*X(2984)-JVS(24688)*X(4077)-JVS(24689)*X(4484) - X(4486) = X(4486)-JVS(24697)*X(1044)-JVS(24698)*X(1925)-JVS(24699)*X(3006)-JVS(24700)*X(3436)-JVS(24701)*X(4371) - X(4487) = X(4487)-JVS(24709)*X(1152)-JVS(24710)*X(3560)-JVS(24711)*X(4073) - X(4488) = X(4488)-JVS(24719)*X(136)-JVS(24720)*X(939)-JVS(24721)*X(1747)-JVS(24722)*X(3253)-JVS(24723)*X(3538)& - &-JVS(24724)*X(3827) - X(4489) = X(4489)-JVS(24730)*X(2414)-JVS(24731)*X(2859)-JVS(24732)*X(3742)-JVS(24733)*X(3783)-JVS(24734)*X(4448)& - &-JVS(24735)*X(4488) - X(4490) = X(4490)-JVS(24742)*X(1734)-JVS(24743)*X(1837)-JVS(24744)*X(2055)-JVS(24745)*X(2683)-JVS(24746)*X(2991)& - &-JVS(24747)*X(3040)-JVS(24748)*X(4221)-JVS(24749)*X(4241)-JVS(24750)*X(4326)-JVS(24751)*X(4488) - X(4491) = X(4491)-JVS(24759)*X(718)-JVS(24760)*X(723)-JVS(24761)*X(2506)-JVS(24762)*X(2762)-JVS(24763)*X(3253)& - &-JVS(24764)*X(3320)-JVS(24765)*X(3506)-JVS(24766)*X(3508)-JVS(24767)*X(3796)-JVS(24768)*X(3827)-JVS(24769)& - &*X(4448)-JVS(24770)*X(4488) - X(4493) = X(4493)-JVS(24782)*X(767)-JVS(24783)*X(1225)-JVS(24784)*X(1932)-JVS(24785)*X(2034)-JVS(24786)*X(2035)& - &-JVS(24787)*X(2742)-JVS(24788)*X(2812)-JVS(24789)*X(2892)-JVS(24790)*X(3668)-JVS(24791)*X(3955)-JVS(24792)& - &*X(4124)-JVS(24793)*X(4189)-JVS(24794)*X(4190)-JVS(24795)*X(4201)-JVS(24796)*X(4340)-JVS(24797)*X(4492) - X(4494) = X(4494)-JVS(24807)*X(1227)-JVS(24808)*X(3180)-JVS(24809)*X(4037) - X(4495) = X(4495)-JVS(24817)*X(854)-JVS(24818)*X(3135)-JVS(24819)*X(4001) - X(4496) = X(4496)-JVS(24827)*X(1209)-JVS(24828)*X(3327)-JVS(24829)*X(4224) - X(4497) = X(4497)-JVS(24837)*X(25)-JVS(24838)*X(1761)-JVS(24839)*X(2111)-JVS(24840)*X(3327)-JVS(24841)*X(4295)& - &-JVS(24842)*X(4496) - X(4498) = X(4498)-JVS(24850)*X(1342)-JVS(24851)*X(3120) - X(4499) = X(4499)-JVS(24859)*X(1450)-JVS(24860)*X(3551)-JVS(24861)*X(4064) - X(4500) = X(4500)-JVS(24869)*X(975)-JVS(24870)*X(2669) - X(4501) = X(4501)-JVS(24878)*X(346)-JVS(24879)*X(1552)-JVS(24880)*X(1907)-JVS(24881)*X(2419)-JVS(24882)*X(2669)& - &-JVS(24883)*X(4058)-JVS(24884)*X(4500) - X(4502) = X(4502)-JVS(24892)*X(2228)-JVS(24893)*X(2538) - X(4503) = X(4503)-JVS(24901)*X(940)-JVS(24902)*X(1461)-JVS(24903)*X(3633)-JVS(24904)*X(4456) - X(4504) = X(4504)-JVS(24912)*X(852)-JVS(24913)*X(3130)-JVS(24914)*X(4085) - X(4506) = X(4506)-JVS(24929)*X(1472)-JVS(24930)*X(3189) - X(4507) = X(4507)-JVS(24938)*X(2536)-JVS(24939)*X(2566)-JVS(24940)*X(2575)-JVS(24941)*X(2598)-JVS(24942)*X(2599)& - &-JVS(24943)*X(2641)-JVS(24944)*X(2668)-JVS(24945)*X(2682)-JVS(24946)*X(2733)-JVS(24947)*X(2741)-JVS(24948)& - &*X(2818)-JVS(24949)*X(2918)-JVS(24950)*X(2935)-JVS(24951)*X(2937)-JVS(24952)*X(2963)-JVS(24953)*X(2986)& - &-JVS(24954)*X(2995)-JVS(24955)*X(3001)-JVS(24956)*X(3004)-JVS(24957)*X(3036)-JVS(24958)*X(3065)-JVS(24959)& - &*X(3347)-JVS(24960)*X(3362)-JVS(24961)*X(3371)-JVS(24962)*X(3375)-JVS(24963)*X(3388)-JVS(24964)*X(3402)& - &-JVS(24965)*X(3417)-JVS(24966)*X(4200)-JVS(24967)*X(4204)-JVS(24968)*X(4210)-JVS(24969)*X(4217)-JVS(24970)& - &*X(4225)-JVS(24971)*X(4232)-JVS(24972)*X(4245)-JVS(24973)*X(4252)-JVS(24974)*X(4265)-JVS(24975)*X(4287)& - &-JVS(24976)*X(4289)-JVS(24977)*X(4291)-JVS(24978)*X(4292)-JVS(24979)*X(4293)-JVS(24980)*X(4297)-JVS(24981)& - &*X(4298)-JVS(24982)*X(4303)-JVS(24983)*X(4305)-JVS(24984)*X(4306)-JVS(24985)*X(4312)-JVS(24986)*X(4314)& - &-JVS(24987)*X(4402)-JVS(24988)*X(4413)-JVS(24989)*X(4415)-JVS(24990)*X(4434)-JVS(24991)*X(4455)-JVS(24992)& - &*X(4458)-JVS(24993)*X(4463)-JVS(24994)*X(4471)-JVS(24995)*X(4487)-JVS(24996)*X(4498)-JVS(24997)*X(4499)& - &-JVS(24998)*X(4506) - X(4509) = X(4509)-JVS(25019)*X(1421)-JVS(25020)*X(3512)-JVS(25021)*X(4002) - X(4510) = X(4510)-JVS(25029)*X(96)-JVS(25030)*X(902)-JVS(25031)*X(1397)-JVS(25032)*X(4042)-JVS(25033)*X(4137) - X(4511) = X(4511)-JVS(25041)*X(1309)-JVS(25042)*X(3187) - X(4513) = X(4513)-JVS(25054)*X(1210)-JVS(25055)*X(1417)-JVS(25056)*X(4396) - X(4514) = X(4514)-JVS(25064)*X(1429)-JVS(25065)*X(3545)-JVS(25066)*X(4049) - X(4515) = X(4515)-JVS(25074)*X(1180)-JVS(25075)*X(3024)-JVS(25076)*X(3851) - X(4516) = X(4516)-JVS(25084)*X(2531)-JVS(25085)*X(2824) - X(4517) = X(4517)-JVS(25093)*X(1327)-JVS(25094)*X(2844)-JVS(25095)*X(3857) - X(4518) = X(4518)-JVS(25103)*X(1804)-JVS(25104)*X(1981)-JVS(25105)*X(2925) - X(4519) = X(4519)-JVS(25113)*X(1006)-JVS(25114)*X(1625)-JVS(25115)*X(2003)-JVS(25116)*X(3625) - X(4520) = X(4520)-JVS(25124)*X(1219)-JVS(25125)*X(2729)-JVS(25126)*X(4362) - X(4521) = X(4521)-JVS(25134)*X(539)-JVS(25135)*X(850)-JVS(25136)*X(2316)-JVS(25137)*X(3007)-JVS(25138)*X(3977) - X(4522) = X(4522)-JVS(25146)*X(2314)-JVS(25147)*X(2702)-JVS(25148)*X(4114) - X(4523) = X(4523)-JVS(25156)*X(1477)-JVS(25157)*X(2778)-JVS(25158)*X(3986) - X(4524) = X(4524)-JVS(25166)*X(1050)-JVS(25167)*X(1108)-JVS(25168)*X(1906)-JVS(25169)*X(2198)-JVS(25170)*X(2778)& - &-JVS(25171)*X(4310)-JVS(25172)*X(4523) - X(4525) = X(4525)-JVS(25183)*X(1154)-JVS(25184)*X(2567)-JVS(25185)*X(2895)-JVS(25186)*X(3736)-JVS(25187)*X(3737) - X(4526) = X(4526)-JVS(25195)*X(362) - X(4528) = X(4528)-JVS(25207)*X(4395)-JVS(25208)*X(4508)-JVS(25209)*X(4527) - X(4529) = X(4529)-JVS(25223)*X(1533)-JVS(25224)*X(3134) - X(4530) = X(4530)-JVS(25230)*X(3459)-JVS(25231)*X(3483)-JVS(25232)*X(3587) - X(4531) = X(4531)-JVS(25240)*X(1125)-JVS(25241)*X(3830)-JVS(25242)*X(4079)-JVS(25243)*X(4397) - X(4532) = X(4532)-JVS(25251)*X(1271)-JVS(25252)*X(3184)-JVS(25253)*X(3493)-JVS(25254)*X(4361) - X(4533) = X(4533)-JVS(25262)*X(111)-JVS(25263)*X(932)-JVS(25264)*X(1554)-JVS(25265)*X(3279)-JVS(25266)*X(3489)& - &-JVS(25267)*X(3825) - X(4534) = X(4534)-JVS(25273)*X(576)-JVS(25274)*X(1092)-JVS(25275)*X(2754)-JVS(25276)*X(3052)-JVS(25277)*X(4299)& - &-JVS(25278)*X(4533) - X(4535) = X(4535)-JVS(25286)*X(1783)-JVS(25287)*X(2390)-JVS(25288)*X(4533) - X(4536) = X(4536)-JVS(25294)*X(92)-JVS(25295)*X(97)-JVS(25296)*X(323)-JVS(25297)*X(324)-JVS(25298)*X(1359)-JVS(25299)& - &*X(2654)-JVS(25300)*X(2794)-JVS(25301)*X(3711)-JVS(25302)*X(3983) - X(4537) = X(4537)-JVS(25311)*X(306)-JVS(25312)*X(1829)-JVS(25313)*X(2331)-JVS(25314)*X(2496)-JVS(25315)*X(4251) - X(4538) = X(4538)-JVS(25324)*X(2062)-JVS(25325)*X(3629) - X(4539) = X(4539)-JVS(25334)*X(1467)-JVS(25335)*X(2823)-JVS(25336)*X(3454)-JVS(25337)*X(4113) - X(4540) = X(4540)-JVS(25346)*X(231)-JVS(25347)*X(1720)-JVS(25348)*X(1902)-JVS(25349)*X(2127)-JVS(25350)*X(2145)& - &-JVS(25351)*X(2797)-JVS(25352)*X(3758)-JVS(25353)*X(3992)-JVS(25354)*X(4244)-JVS(25355)*X(4451) - X(4541) = X(4541)-JVS(25364)*X(3646) - X(4542) = X(4542)-JVS(25373)*X(1569) - X(4543) = X(4543)-JVS(25382)*X(866)-JVS(25383)*X(3604) - X(4544) = X(4544)-JVS(25392)*X(239)-JVS(25393)*X(327)-JVS(25394)*X(4474)-JVS(25395)*X(4512) - X(4545) = X(4545)-JVS(25404)*X(154)-JVS(25405)*X(735)-JVS(25406)*X(736)-JVS(25407)*X(1057)-JVS(25408)*X(1093)& - &-JVS(25409)*X(1608)-JVS(25410)*X(4078) - X(4546) = X(4546)-JVS(25419)*X(3336)-JVS(25420)*X(3792) - X(4547) = X(4547)-JVS(25429)*X(3176)-JVS(25430)*X(3177)-JVS(25431)*X(3264)-JVS(25432)*X(3573)-JVS(25433)*X(3584)& - &-JVS(25434)*X(3834)-JVS(25435)*X(4027) - X(4548) = X(4548)-JVS(25444)*X(1249)-JVS(25445)*X(2655)-JVS(25446)*X(3470)-JVS(25447)*X(4107) - X(4549) = X(4549)-JVS(25456)*X(1173)-JVS(25457)*X(2115)-JVS(25458)*X(4279) - X(4550) = X(4550)-JVS(25467)*X(287)-JVS(25468)*X(894)-JVS(25469)*X(1854)-JVS(25470)*X(3911) - X(4551) = X(4551)-JVS(25479)*X(1795) - X(4552) = X(4552)-JVS(25488)*X(1762)-JVS(25489)*X(1893)-JVS(25490)*X(2381)-JVS(25491)*X(2868) - X(4553) = X(4553)-JVS(25500)*X(2110)-JVS(25501)*X(3020)-JVS(25502)*X(3603) - X(4554) = X(4554)-JVS(25511)*X(3256) - X(4556) = X(4556)-JVS(25522)*X(558)-JVS(25523)*X(4096) - X(4557) = X(4557)-JVS(25532)*X(542)-JVS(25533)*X(2131)-JVS(25534)*X(2482)-JVS(25535)*X(2887) - X(4558) = X(4558)-JVS(25544)*X(3196) - X(4559) = X(4559)-JVS(25551)*X(304)-JVS(25552)*X(2628)-JVS(25553)*X(2913)-JVS(25554)*X(3026)-JVS(25555)*X(4469) - X(4560) = X(4560)-JVS(25564)*X(632)-JVS(25565)*X(842)-JVS(25566)*X(2151)-JVS(25567)*X(2404)-JVS(25568)*X(4290)& - &-JVS(25569)*X(4439) - X(4561) = X(4561)-JVS(25578)*X(2553) - X(4562) = X(4562)-JVS(25585)*X(181)-JVS(25586)*X(2006)-JVS(25587)*X(4508) - X(4563) = X(4563)-JVS(25594)*X(293)-JVS(25595)*X(4492) - X(4564) = X(4564)-JVS(25602)*X(2109)-JVS(25603)*X(2554)-JVS(25604)*X(3197)-JVS(25605)*X(3272) - X(4565) = X(4565)-JVS(25617)*X(217)-JVS(25618)*X(3621) - X(4566) = X(4566)-JVS(25625)*X(3906) - X(4567) = X(4567)-JVS(25632)*X(199)-JVS(25633)*X(1205)-JVS(25634)*X(2061) - X(4568) = X(4568)-JVS(25641)*X(1034)-JVS(25642)*X(3996) - X(4569) = X(4569)-JVS(25649)*X(3438)-JVS(25650)*X(3457)-JVS(25651)*X(3569)-JVS(25652)*X(3581)-JVS(25653)*X(3996)& - &-JVS(25654)*X(4018)-JVS(25655)*X(4400)-JVS(25656)*X(4568) - X(4571) = X(4571)-JVS(25669)*X(2355)-JVS(25670)*X(2385) - X(4572) = X(4572)-JVS(25677)*X(3374)-JVS(25678)*X(3957) - X(4573) = X(4573)-JVS(25685)*X(3777) - X(4574) = X(4574)-JVS(25692)*X(1063) - X(4575) = X(4575)-JVS(25699)*X(3833) - X(4576) = X(4576)-JVS(25706)*X(3107)-JVS(25707)*X(3108)-JVS(25708)*X(3606)-JVS(25709)*X(3833)-JVS(25710)*X(4575) - X(4577) = X(4577)-JVS(25717)*X(445)-JVS(25718)*X(1207)-JVS(25719)*X(2534)-JVS(25720)*X(4099) - X(4579) = X(4579)-JVS(25733)*X(1302) - X(4580) = X(4580)-JVS(25740)*X(300)-JVS(25741)*X(454)-JVS(25742)*X(1214)-JVS(25743)*X(1324)-JVS(25744)*X(3741) - X(4581) = X(4581)-JVS(25751)*X(2269)-JVS(25752)*X(3505) - X(4582) = X(4582)-JVS(25759)*X(3308)-JVS(25760)*X(4527) - X(4583) = X(4583)-JVS(25767)*X(3288)-JVS(25768)*X(3843) - X(4584) = X(4584)-JVS(25775)*X(3906) - X(4585) = X(4585)-JVS(25782)*X(3198)-JVS(25783)*X(4555) - X(4586) = X(4586)-JVS(25790)*X(548) - X(4587) = X(4587)-JVS(25797)*X(2125)-JVS(25798)*X(4527) - X(4588) = X(4588)-JVS(25805)*X(3833)-JVS(25806)*X(3834)-JVS(25807)*X(4396) - X(4589) = X(4589)-JVS(25819)*X(3763) - X(4590) = X(4590)-JVS(25826)*X(3341)-JVS(25827)*X(3910) - X(4591) = X(4591)-JVS(25834)*X(782)-JVS(25835)*X(1456)-JVS(25836)*X(1666)-JVS(25837)*X(2047)-JVS(25838)*X(3132)& - &-JVS(25839)*X(3220)-JVS(25840)*X(3331)-JVS(25841)*X(3643)-JVS(25842)*X(3797)-JVS(25843)*X(3814)-JVS(25844)& - &*X(4070) - X(4592) = X(4592)-JVS(25851)*X(461)-JVS(25852)*X(1456)-JVS(25853)*X(2283)-JVS(25854)*X(3220)-JVS(25855)*X(3643)& - &-JVS(25856)*X(3793)-JVS(25857)*X(4591) - X(4593) = X(4593)-JVS(25865)*X(2394) - X(4594) = X(4594)-JVS(25872)*X(3314)-JVS(25873)*X(3583) - X(4595) = X(4595)-JVS(25880)*X(2260)-JVS(25881)*X(3156) - X(4596) = X(4596)-JVS(25888)*X(3243)-JVS(25889)*X(4555) - X(4597) = X(4597)-JVS(25896)*X(1852)-JVS(25897)*X(2701)-JVS(25898)*X(4580) - X(4598) = X(4598)-JVS(25905)*X(3289) - X(4599) = X(4599)-JVS(25912)*X(2354)-JVS(25913)*X(3620) - X(4602) = X(4602)-JVS(25928)*X(1879)-JVS(25929)*X(1982)-JVS(25930)*X(2026)-JVS(25931)*X(2414)-JVS(25932)*X(2510)& - &-JVS(25933)*X(2529)-JVS(25934)*X(2581)-JVS(25935)*X(2609)-JVS(25936)*X(2712)-JVS(25937)*X(2721)-JVS(25938)& - &*X(2763)-JVS(25939)*X(2859)-JVS(25940)*X(2897)-JVS(25941)*X(2901)-JVS(25942)*X(3028)-JVS(25943)*X(3061)& - &-JVS(25944)*X(3571)-JVS(25945)*X(3673)-JVS(25946)*X(3732)-JVS(25947)*X(3783)-JVS(25948)*X(3787)-JVS(25949)& - &*X(3860)-JVS(25950)*X(3953)-JVS(25951)*X(3968)-JVS(25952)*X(3973)-JVS(25953)*X(4076)-JVS(25954)*X(4102)& - &-JVS(25955)*X(4163)-JVS(25956)*X(4267)-JVS(25957)*X(4381)-JVS(25958)*X(4449)-JVS(25959)*X(4488)-JVS(25960)& - &*X(4489) - X(4603) = X(4603)-JVS(25979)*X(94)-JVS(25980)*X(1024)-JVS(25981)*X(3786)-JVS(25982)*X(4397) - X(4607) = X(4607)-JVS(26001)*X(1767)-JVS(26002)*X(4604)-JVS(26003)*X(4606) - X(4608) = X(4608)-JVS(26010)*X(2133)-JVS(26011)*X(4604)-JVS(26012)*X(4606) - X(4609) = X(4609)-JVS(26019)*X(1580) - X(4610) = X(4610)-JVS(26025)*X(3472)-JVS(26026)*X(4609) - X(4611) = X(4611)-JVS(26032)*X(1064)-JVS(26033)*X(2757)-JVS(26034)*X(3900)-JVS(26035)*X(4609) - X(4612) = X(4612)-JVS(26042)*X(2976)-JVS(26043)*X(3619)-JVS(26044)*X(4219)-JVS(26045)*X(4368)-JVS(26046)*X(4609)& - &-JVS(26047)*X(4611) - X(4613) = X(4613)-JVS(26055)*X(899)-JVS(26056)*X(2663)-JVS(26057)*X(4231)-JVS(26058)*X(4610) - X(4614) = X(4614)-JVS(26066)*X(899)-JVS(26067)*X(2810)-JVS(26068)*X(4231)-JVS(26069)*X(4610)-JVS(26070)*X(4613) - X(4616) = X(4616)-JVS(26083)*X(1580) - X(4618) = X(4618)-JVS(26094)*X(2310)-JVS(26095)*X(2844)-JVS(26096)*X(2893)-JVS(26097)*X(3035)-JVS(26098)*X(3419)& - &-JVS(26099)*X(3441)-JVS(26100)*X(3656)-JVS(26101)*X(3666)-JVS(26102)*X(3735)-JVS(26103)*X(4152)-JVS(26104)& - &*X(4177)-JVS(26105)*X(4476)-JVS(26106)*X(4517) - X(4619) = X(4619)-JVS(26121)*X(143)-JVS(26122)*X(1023)-JVS(26123)*X(1672)-JVS(26124)*X(3319)-JVS(26125)*X(3554)& - &-JVS(26126)*X(3799) - X(4620) = X(4620)-JVS(26132)*X(1879)-JVS(26133)*X(2026)-JVS(26134)*X(2721)-JVS(26135)*X(3673)-JVS(26136)*X(4381)& - &-JVS(26137)*X(4619) - X(4621) = X(4621)-JVS(26145)*X(771) - X(4622) = X(4622)-JVS(26153)*X(773)-JVS(26154)*X(787)-JVS(26155)*X(1095)-JVS(26156)*X(1840)-JVS(26157)*X(1878)& - &-JVS(26158)*X(2204)-JVS(26159)*X(2295)-JVS(26160)*X(2758)-JVS(26161)*X(3317)-JVS(26162)*X(3368)-JVS(26163)& - &*X(3439)-JVS(26164)*X(3440)-JVS(26165)*X(3543)-JVS(26166)*X(3807)-JVS(26167)*X(4030)-JVS(26168)*X(4031)& - &-JVS(26169)*X(4068)-JVS(26170)*X(4069) - X(4623) = X(4623)-JVS(26178)*X(1448)-JVS(26179)*X(2843) - X(4624) = X(4624)-JVS(26187)*X(69)-JVS(26188)*X(472)-JVS(26189)*X(508)-JVS(26190)*X(849)-JVS(26191)*X(2564)-JVS(26192)& - &*X(3710)-JVS(26193)*X(3720)-JVS(26194)*X(3852) - X(4625) = X(4625)-JVS(26202)*X(112)-JVS(26203)*X(3495) - X(4626) = X(4626)-JVS(26211)*X(837)-JVS(26212)*X(3060)-JVS(26213)*X(4010) - X(4627) = X(4627)-JVS(26221)*X(1498)-JVS(26222)*X(2560) - X(4628) = X(4628)-JVS(26230)*X(1176)-JVS(26231)*X(2630) - X(4629) = X(4629)-JVS(26239)*X(845)-JVS(26240)*X(2848)-JVS(26241)*X(4110) - X(4630) = X(4630)-JVS(26249)*X(3304)-JVS(26250)*X(3567)-JVS(26251)*X(3622) - X(4631) = X(4631)-JVS(26259)*X(77)-JVS(26260)*X(954)-JVS(26261)*X(2932)-JVS(26262)*X(3053)-JVS(26263)*X(3473)& - &-JVS(26264)*X(4365) - X(4632) = X(4632)-JVS(26272)*X(857)-JVS(26273)*X(3101)-JVS(26274)*X(4061)-JVS(26275)*X(4437) - X(4633) = X(4633)-JVS(26283)*X(1254)-JVS(26284)*X(2632)-JVS(26285)*X(4272) - X(4634) = X(4634)-JVS(26293)*X(1516)-JVS(26294)*X(2882) - X(4635) = X(4635)-JVS(26302)*X(910)-JVS(26303)*X(2915)-JVS(26304)*X(4093) - X(4636) = X(4636)-JVS(26312)*X(936)-JVS(26313)*X(2777) - X(4637) = X(4637)-JVS(26321)*X(3805) - X(4638) = X(4638)-JVS(26329)*X(1247)-JVS(26330)*X(1605)-JVS(26331)*X(2597) - X(4639) = X(4639)-JVS(26339)*X(1361)-JVS(26340)*X(3482)-JVS(26341)*X(4023) - X(4640) = X(4640)-JVS(26349)*X(1048)-JVS(26350)*X(1097)-JVS(26351)*X(3995) - X(4641) = X(4641)-JVS(26359)*X(921)-JVS(26360)*X(2640)-JVS(26361)*X(4032) - X(4642) = X(4642)-JVS(26369)*X(988)-JVS(26370)*X(2787)-JVS(26371)*X(3471) - X(4643) = X(4643)-JVS(26379)*X(888)-JVS(26380)*X(3137) - X(4644) = X(4644)-JVS(26388)*X(1643)-JVS(26389)*X(1731)-JVS(26390)*X(2017)-JVS(26391)*X(2445)-JVS(26392)*X(3338)& - &-JVS(26393)*X(3839)-JVS(26394)*X(4150)-JVS(26395)*X(4567) - X(4645) = X(4645)-JVS(26403)*X(1697)-JVS(26404)*X(1886) - X(4646) = X(4646)-JVS(26412)*X(4300) - X(4647) = X(4647)-JVS(26420)*X(1577)-JVS(26421)*X(3444)-JVS(26422)*X(4474) - X(4648) = X(4648)-JVS(26430)*X(44)-JVS(26431)*X(1279)-JVS(26432)*X(2975)-JVS(26433)*X(4015) - X(4649) = X(4649)-JVS(26441)*X(1417)-JVS(26442)*X(2955)-JVS(26443)*X(4396) - X(4650) = X(4650)-JVS(26451)*X(3795) - X(4651) = X(4651)-JVS(26459)*X(768)-JVS(26460)*X(1040)-JVS(26461)*X(2089)-JVS(26462)*X(3407)-JVS(26463)*X(3669)& - &-JVS(26464)*X(3728) - X(4652) = X(4652)-JVS(26475)*X(1336)-JVS(26476)*X(1739)-JVS(26477)*X(3313) - X(4653) = X(4653)-JVS(26485)*X(1408)-JVS(26486)*X(2980) - X(4654) = X(4654)-JVS(26494)*X(1370)-JVS(26495)*X(2857)-JVS(26496)*X(3833) - X(4655) = X(4655)-JVS(26504)*X(869)-JVS(26505)*X(3191) - X(4656) = X(4656)-JVS(26513)*X(1274)-JVS(26514)*X(2650)-JVS(26515)*X(4017) - X(4657) = X(4657)-JVS(26523)*X(1685)-JVS(26524)*X(1874) - X(4658) = X(4658)-JVS(26532)*X(1518)-JVS(26533)*X(1575)-JVS(26534)*X(1939)-JVS(26535)*X(3236)-JVS(26536)*X(3552)& - &-JVS(26537)*X(4657) - X(4659) = X(4659)-JVS(26545)*X(1348)-JVS(26546)*X(2523)-JVS(26547)*X(3862) - X(4660) = X(4660)-JVS(26555)*X(1018)-JVS(26556)*X(2527) - X(4661) = X(4661)-JVS(26564)*X(1768)-JVS(26565)*X(3748) - X(4662) = X(4662)-JVS(26573)*X(1055)-JVS(26574)*X(2978)-JVS(26575)*X(3915) - X(4663) = X(4663)-JVS(26583)*X(1453)-JVS(26584)*X(3098)-JVS(26585)*X(4072)-JVS(26586)*X(4504) - X(4664) = X(4664)-JVS(26594)*X(125)-JVS(26595)*X(859)-JVS(26596)*X(1089)-JVS(26597)*X(1696)-JVS(26598)*X(2636)& - &-JVS(26599)*X(2943)-JVS(26600)*X(3034)-JVS(26601)*X(3706)-JVS(26602)*X(3981)-JVS(26603)*X(3982) - X(4665) = X(4665)-JVS(26611)*X(1291)-JVS(26612)*X(3025) - X(4666) = X(4666)-JVS(26620)*X(613)-JVS(26621)*X(1095)-JVS(26622)*X(1763)-JVS(26623)*X(3147)-JVS(26624)*X(3317)& - &-JVS(26625)*X(4395)-JVS(26626)*X(4622) - X(4667) = X(4667)-JVS(26637)*X(921)-JVS(26638)*X(961)-JVS(26639)*X(4032)-JVS(26640)*X(4641) - X(4668) = X(4668)-JVS(26648)*X(2481) - X(4669) = X(4669)-JVS(26656)*X(3214)-JVS(26657)*X(3519)-JVS(26658)*X(3535)-JVS(26659)*X(4422)-JVS(26660)*X(4440) - X(4670) = X(4670)-JVS(26668)*X(1003)-JVS(26669)*X(3494)-JVS(26670)*X(4007) - X(4671) = X(4671)-JVS(26678)*X(892)-JVS(26679)*X(3125)-JVS(26680)*X(4011)-JVS(26681)*X(4408) - X(4672) = X(4672)-JVS(26689)*X(190)-JVS(26690)*X(1149)-JVS(26691)*X(1590)-JVS(26692)*X(1591)-JVS(26693)*X(2613)& - &-JVS(26694)*X(3764)-JVS(26695)*X(4431) - X(4673) = X(4673)-JVS(26703)*X(810)-JVS(26704)*X(1871)-JVS(26705)*X(1920)-JVS(26706)*X(2571)-JVS(26707)*X(3431)& - &-JVS(26708)*X(4147) - X(4674) = X(4674)-JVS(26716)*X(2686)-JVS(26717)*X(3832) - X(4675) = X(4675)-JVS(26725)*X(910)-JVS(26726)*X(1174)-JVS(26727)*X(4093)-JVS(26728)*X(4635) - X(4676) = X(4676)-JVS(26736)*X(1366)-JVS(26737)*X(3150)-JVS(26738)*X(4039)-JVS(26739)*X(4495) - X(4677) = X(4677)-JVS(26747)*X(819) - X(4679) = X(4679)-JVS(26762)*X(951)-JVS(26763)*X(1624)-JVS(26764)*X(2666) - X(4680) = X(4680)-JVS(26772)*X(1378)-JVS(26773)*X(2671)-JVS(26774)*X(4569) - X(4681) = X(4681)-JVS(26782)*X(1250)-JVS(26783)*X(1617)-JVS(26784)*X(3323) - X(4682) = X(4682)-JVS(26792)*X(1452)-JVS(26793)*X(3153)-JVS(26794)*X(4040)-JVS(26795)*X(4438) - X(4683) = X(4683)-JVS(26803)*X(1031)-JVS(26804)*X(1073)-JVS(26805)*X(4094) - X(4684) = X(4684)-JVS(26813)*X(915)-JVS(26814)*X(2904) - X(4685) = X(4685)-JVS(26822)*X(1299)-JVS(26823)*X(2948)-JVS(26824)*X(4018) - X(4686) = X(4686)-JVS(26832)*X(1474)-JVS(26833)*X(2779)-JVS(26834)*X(3958)-JVS(26835)*X(4477)-JVS(26836)*X(4525)& - &-JVS(26837)*X(4672) - X(4687) = X(4687)-JVS(26845)*X(1474)-JVS(26846)*X(1956)-JVS(26847)*X(3958)-JVS(26848)*X(4477)-JVS(26849)*X(4525)& - &-JVS(26850)*X(4672)-JVS(26851)*X(4686) - X(4688) = X(4688)-JVS(26859)*X(1949)-JVS(26860)*X(3775)-JVS(26861)*X(4650) - X(4689) = X(4689)-JVS(26869)*X(2025)-JVS(26870)*X(3773)-JVS(26871)*X(4637) - X(4690) = X(4690)-JVS(26879)*X(978)-JVS(26880)*X(3170)-JVS(26881)*X(4006)-JVS(26882)*X(4478) - X(4692) = X(4692)-JVS(26897)*X(941)-JVS(26898)*X(2569)-JVS(26899)*X(4083) - X(4693) = X(4693)-JVS(26907)*X(569)-JVS(26908)*X(705)-JVS(26909)*X(723)-JVS(26910)*X(738)-JVS(26911)*X(752)-JVS(26912)& - &*X(2551)-JVS(26913)*X(2557)-JVS(26914)*X(2580)-JVS(26915)*X(2586)-JVS(26916)*X(2641)-JVS(26917)*X(2668)& - &-JVS(26918)*X(2682)-JVS(26919)*X(2733)-JVS(26920)*X(2736)-JVS(26921)*X(2741)-JVS(26922)*X(2918)-JVS(26923)& - &*X(2935)-JVS(26924)*X(2952)-JVS(26925)*X(2963)-JVS(26926)*X(2986)-JVS(26927)*X(3016)-JVS(26928)*X(3347)& - &-JVS(26929)*X(3363)-JVS(26930)*X(3371)-JVS(26931)*X(3381)-JVS(26932)*X(3402)-JVS(26933)*X(3477)-JVS(26934)& - &*X(3482)-JVS(26935)*X(3494)-JVS(26936)*X(3508)-JVS(26937)*X(3512)-JVS(26938)*X(3560)-JVS(26939)*X(3590)& - &-JVS(26940)*X(3672)-JVS(26941)*X(3829)-JVS(26942)*X(4178)-JVS(26943)*X(4192)-JVS(26944)*X(4193)-JVS(26945)& - &*X(4200)-JVS(26946)*X(4204)-JVS(26947)*X(4212)-JVS(26948)*X(4225)-JVS(26949)*X(4276)-JVS(26950)*X(4285)& - &-JVS(26951)*X(4291)-JVS(26952)*X(4292)-JVS(26953)*X(4293)-JVS(26954)*X(4298)-JVS(26955)*X(4303)-JVS(26956)& - &*X(4305)-JVS(26957)*X(4317)-JVS(26958)*X(4322)-JVS(26959)*X(4415)-JVS(26960)*X(4471)-JVS(26961)*X(4487)& - &-JVS(26962)*X(4498)-JVS(26963)*X(4506)-JVS(26964)*X(4509)-JVS(26965)*X(4639)-JVS(26966)*X(4643)-JVS(26967)& - &*X(4655)-JVS(26968)*X(4670)-JVS(26969)*X(4671)-JVS(26970)*X(4676)-JVS(26971)*X(4690) - X(4694) = X(4694)-JVS(26991)*X(705)-JVS(26992)*X(2728)-JVS(26993)*X(2768)-JVS(26994)*X(2847)-JVS(26995)*X(3246)& - &-JVS(26996)*X(3295)-JVS(26997)*X(3296)-JVS(26998)*X(3494)-JVS(26999)*X(3631)-JVS(27000)*X(3632)-JVS(27001)& - &*X(3641)-JVS(27002)*X(3648)-JVS(27003)*X(4182) - X(4696) = X(4696)-JVS(27018)*X(1641)-JVS(27019)*X(1751) - X(4697) = X(4697)-JVS(27026)*X(2889)-JVS(27027)*X(4334) - X(4698) = X(4698)-JVS(27034)*X(2118)-JVS(27035)*X(3069)-JVS(27036)*X(3207) - X(4699) = X(4699)-JVS(27043)*X(4083) - X(4700) = X(4700)-JVS(27050)*X(2069)-JVS(27051)*X(4508) - X(4701) = X(4701)-JVS(27058)*X(4032) - X(4702) = X(4702)-JVS(27065)*X(1940)-JVS(27066)*X(4604)-JVS(27067)*X(4606) - X(4705) = X(4705)-JVS(27086)*X(3540) - X(4706) = X(4706)-JVS(27093)*X(3455) - X(4707) = X(4707)-JVS(27100)*X(3834) - X(4708) = X(4708)-JVS(27107)*X(1570)-JVS(27108)*X(2485)-JVS(27109)*X(3446)-JVS(27110)*X(3453)-JVS(27111)*X(3573)& - &-JVS(27112)*X(3576)-JVS(27113)*X(3606)-JVS(27114)*X(4358)-JVS(27115)*X(4575)-JVS(27116)*X(4707) - X(4709) = X(4709)-JVS(27128)*X(4164) - X(4710) = X(4710)-JVS(27135)*X(2562)-JVS(27136)*X(2676)-JVS(27137)*X(2874)-JVS(27138)*X(3282)-JVS(27139)*X(3306)& - &-JVS(27140)*X(3548)-JVS(27141)*X(4238)-JVS(27142)*X(4254)-JVS(27143)*X(4417)-JVS(27144)*X(4450)-JVS(27145)& - &*X(4709) - X(4712) = X(4712)-JVS(27160)*X(4122) - X(4713) = X(4713)-JVS(27167)*X(4103) - X(4714) = X(4714)-JVS(27174)*X(2413)-JVS(27175)*X(4332)-JVS(27176)*X(4475) - X(4715) = X(4715)-JVS(27183)*X(4179) - X(4716) = X(4716)-JVS(27190)*X(3917) - X(4717) = X(4717)-JVS(27197)*X(1599)-JVS(27198)*X(2213)-JVS(27199)*X(2401)-JVS(27200)*X(4356) - X(4718) = X(4718)-JVS(27207)*X(4056) - X(4719) = X(4719)-JVS(27214)*X(2114)-JVS(27215)*X(3376)-JVS(27216)*X(3842)-JVS(27217)*X(4702) - X(4720) = X(4720)-JVS(27224)*X(4396) - X(4721) = X(4721)-JVS(27231)*X(3285)-JVS(27232)*X(3352)-JVS(27233)*X(3353)-JVS(27234)*X(3356)-JVS(27235)*X(3357)& - &-JVS(27236)*X(3378)-JVS(27237)*X(3379)-JVS(27238)*X(3426)-JVS(27239)*X(3427)-JVS(27240)*X(3576)-JVS(27241)& - &*X(3588)-JVS(27242)*X(3589)-JVS(27243)*X(4010)-JVS(27244)*X(4032)-JVS(27245)*X(4093)-JVS(27246)*X(4094)& - &-JVS(27247)*X(4377)-JVS(27248)*X(4388)-JVS(27249)*X(4393)-JVS(27250)*X(4396)-JVS(27251)*X(4701)-JVS(27252)& - &*X(4720) - X(4722) = X(4722)-JVS(27261)*X(184)-JVS(27262)*X(870)-JVS(27263)*X(1326)-JVS(27264)*X(2094) - X(4723) = X(4723)-JVS(27271)*X(2366)-JVS(27272)*X(4474) - X(4724) = X(4724)-JVS(27279)*X(2080)-JVS(27280)*X(3077)-JVS(27281)*X(3942)-JVS(27282)*X(4579) - X(4725) = X(4725)-JVS(27289)*X(4080) - X(4726) = X(4726)-JVS(27296)*X(264)-JVS(27297)*X(1455)-JVS(27298)*X(3305)-JVS(27299)*X(3318)-JVS(27300)*X(4000)& - &-JVS(27301)*X(4139) - X(4727) = X(4727)-JVS(27308)*X(4272) - X(4728) = X(4728)-JVS(27315)*X(2485)-JVS(27316)*X(3565)-JVS(27317)*X(3570)-JVS(27318)*X(3588)-JVS(27319)*X(3610)& - &-JVS(27320)*X(4701)-JVS(27321)*X(4703)-JVS(27322)*X(4725)-JVS(27323)*X(4727) - X(4729) = X(4729)-JVS(27332)*X(3271)-JVS(27333)*X(3322)-JVS(27334)*X(3339)-JVS(27335)*X(3340)-JVS(27336)*X(3345)& - &-JVS(27337)*X(3359)-JVS(27338)*X(3360)-JVS(27339)*X(3411)-JVS(27340)*X(3570)-JVS(27341)*X(3605)-JVS(27342)& - &*X(3610)-JVS(27343)*X(3614)-JVS(27344)*X(4056)-JVS(27345)*X(4080)-JVS(27346)*X(4083)-JVS(27347)*X(4272)& - &-JVS(27348)*X(4699)-JVS(27349)*X(4718)-JVS(27350)*X(4725)-JVS(27351)*X(4727) - X(4730) = X(4730)-JVS(27358)*X(2539)-JVS(27359)*X(3049) - X(4731) = X(4731)-JVS(27366)*X(2700)-JVS(27367)*X(3709)-JVS(27368)*X(4153) - X(4733) = X(4733)-JVS(27381)*X(1966)-JVS(27382)*X(2385) - X(4734) = X(4734)-JVS(27389)*X(965)-JVS(27390)*X(3497)-JVS(27391)*X(4363)-JVS(27392)*X(4394) - X(4736) = X(4736)-JVS(27405)*X(316)-JVS(27406)*X(2194)-JVS(27407)*X(2355)-JVS(27408)*X(3779)-JVS(27409)*X(4571) - X(4737) = X(4737)-JVS(27416)*X(1842)-JVS(27417)*X(2220)-JVS(27418)*X(2647)-JVS(27419)*X(3025)-JVS(27420)*X(4665) - X(4738) = X(4738)-JVS(27429)*X(1454)-JVS(27430)*X(2119)-JVS(27431)*X(2781) - X(4739) = X(4739)-JVS(27440)*X(1970)-JVS(27441)*X(1991)-JVS(27442)*X(2907)-JVS(27443)*X(4066) - X(4740) = X(4740)-JVS(27452)*X(1086)-JVS(27453)*X(2051)-JVS(27454)*X(3433)-JVS(27455)*X(3487)-JVS(27456)*X(4547)& - &-JVS(27457)*X(4707) - X(4741) = X(4741)-JVS(27467)*X(214)-JVS(27468)*X(2393)-JVS(27469)*X(3832) - X(4742) = X(4742)-JVS(27479)*X(1953)-JVS(27480)*X(2769)-JVS(27481)*X(2920)-JVS(27482)*X(3315) - X(4743) = X(4743)-JVS(27491)*X(71)-JVS(27492)*X(1232)-JVS(27493)*X(1717)-JVS(27494)*X(2709)-JVS(27495)*X(3539)& - &-JVS(27496)*X(3815) - X(4744) = X(4744)-JVS(27502)*X(3061)-JVS(27503)*X(3787)-JVS(27504)*X(4743) - X(4745) = X(4745)-JVS(27511)*X(930)-JVS(27512)*X(2132)-JVS(27513)*X(3043)-JVS(27514)*X(4183) - X(4746) = X(4746)-JVS(27524)*X(1746) - X(4747) = X(4747)-JVS(27533)*X(3517)-JVS(27534)*X(3646)-JVS(27535)*X(4600) - X(4748) = X(4748)-JVS(27551)*X(149)-JVS(27552)*X(830)-JVS(27553)*X(1331)-JVS(27554)*X(1656)-JVS(27555)*X(1657)& - &-JVS(27556)*X(2781)-JVS(27557)*X(4043)-JVS(27558)*X(4738) - X(4749) = X(4749)-JVS(27567)*X(1816)-JVS(27568)*X(3042)-JVS(27569)*X(3449)-JVS(27570)*X(3524)-JVS(27571)*X(4229)& - &-JVS(27572)*X(4339)-JVS(27573)*X(4617) - X(4750) = X(4750)-JVS(27582)*X(1215)-JVS(27583)*X(3434) - X(4751) = X(4751)-JVS(27592)*X(1392)-JVS(27593)*X(3558) - X(4752) = X(4752)-JVS(27603)*X(1008)-JVS(27604)*X(1257)-JVS(27605)*X(1890)-JVS(27606)*X(2772)-JVS(27607)*X(4226)& - &-JVS(27608)*X(4681) - X(4753) = X(4753)-JVS(27617)*X(1603)-JVS(27618)*X(2183)-JVS(27619)*X(2928)-JVS(27620)*X(4066) - X(4754) = X(4754)-JVS(27629)*X(2470) - X(4755) = X(4755)-JVS(27638)*X(384)-JVS(27639)*X(601)-JVS(27640)*X(1106)-JVS(27641)*X(2339)-JVS(27642)*X(3583)& - &-JVS(27643)*X(4380) - X(4756) = X(4756)-JVS(27652)*X(2470) - X(4757) = X(4757)-JVS(27661)*X(243)-JVS(27662)*X(3517) - X(4759) = X(4759)-JVS(27676)*X(795)-JVS(27677)*X(1085)-JVS(27678)*X(2348)-JVS(27679)*X(2510)-JVS(27680)*X(3976)& - &-JVS(27681)*X(4462) - X(4760) = X(4760)-JVS(27691)*X(570)-JVS(27692)*X(794)-JVS(27693)*X(1290)-JVS(27694)*X(1740)-JVS(27695)*X(2121)& - &-JVS(27696)*X(2841)-JVS(27697)*X(2853)-JVS(27698)*X(3184)-JVS(27699)*X(3493)-JVS(27700)*X(4179)-JVS(27701)& - &*X(4361)-JVS(27702)*X(4532)-JVS(27703)*X(4715) - X(4761) = X(4761)-JVS(27712)*X(2359) - X(4762) = X(4762)-JVS(27721)*X(236) - X(4763) = X(4763)-JVS(27730)*X(824)-JVS(27731)*X(903)-JVS(27732)*X(2993)-JVS(27733)*X(3960)-JVS(27734)*X(4346) - X(4764) = X(4764)-JVS(27743)*X(187)-JVS(27744)*X(1245)-JVS(27745)*X(1286)-JVS(27746)*X(1628)-JVS(27747)*X(1629)& - &-JVS(27748)*X(2648)-JVS(27749)*X(4088) - X(4765) = X(4765)-JVS(27758)*X(3055)-JVS(27759)*X(3607) - X(4766) = X(4766)-JVS(27766)*X(447)-JVS(27767)*X(3166) - X(4767) = X(4767)-JVS(27775)*X(1596)-JVS(27776)*X(3265)-JVS(27777)*X(4332)-JVS(27778)*X(4475) - X(4768) = X(4768)-JVS(27786)*X(1320)-JVS(27787)*X(1901)-JVS(27788)*X(3233)-JVS(27789)*X(3415)-JVS(27790)*X(3855)& - &-JVS(27791)*X(3882)-JVS(27792)*X(4216)-JVS(27793)*X(4319)-JVS(27794)*X(4354)-JVS(27795)*X(4652)-JVS(27796)& - &*X(4679) - X(4769) = X(4769)-JVS(27808)*X(1206)-JVS(27809)*X(1389)-JVS(27810)*X(3441)-JVS(27811)*X(3606)-JVS(27812)*X(4198)& - &-JVS(27813)*X(4575)-JVS(27814)*X(4576) - X(4770) = X(4770)-JVS(27822)*X(1460)-JVS(27823)*X(3315)-JVS(27824)*X(3914) - X(4771) = X(4771)-JVS(27832)*X(828)-JVS(27833)*X(3312)-JVS(27834)*X(3924) - X(4772) = X(4772)-JVS(27842)*X(123)-JVS(27843)*X(2635)-JVS(27844)*X(2870)-JVS(27845)*X(3160) - X(4773) = X(4773)-JVS(27853)*X(2830)-JVS(27854)*X(3475)-JVS(27855)*X(3599)-JVS(27856)*X(4003)-JVS(27857)*X(4133) - X(4774) = X(4774)-JVS(27865)*X(2497)-JVS(27866)*X(3155) - X(4775) = X(4775)-JVS(27874)*X(622)-JVS(27875)*X(1224)-JVS(27876)*X(2654)-JVS(27877)*X(2794)-JVS(27878)*X(4165)& - &-JVS(27879)*X(4536)-JVS(27880)*X(4619)-JVS(27881)*X(4743) - X(4776) = X(4776)-JVS(27889)*X(2258) - X(4777) = X(4777)-JVS(27897)*X(2369)-JVS(27898)*X(4601) - X(4778) = X(4778)-JVS(27905)*X(1779)-JVS(27906)*X(2646) - X(4779) = X(4779)-JVS(27913)*X(61)-JVS(27914)*X(3480) - X(4780) = X(4780)-JVS(27922)*X(2118)-JVS(27923)*X(3623) - X(4781) = X(4781)-JVS(27930)*X(1447) - X(4782) = X(4782)-JVS(27938)*X(2449)-JVS(27939)*X(4332)-JVS(27940)*X(4475) - X(4784) = X(4784)-JVS(27953)*X(1876)-JVS(27954)*X(3505) - X(4785) = X(4785)-JVS(27961)*X(2693)-JVS(27962)*X(2891) - X(4787) = X(4787)-JVS(27974)*X(1176)-JVS(27975)*X(1256)-JVS(27976)*X(4628) - X(4788) = X(4788)-JVS(27984)*X(950)-JVS(27985)*X(3085)-JVS(27986)*X(4044)-JVS(27987)*X(4407) - X(4789) = X(4789)-JVS(27995)*X(176)-JVS(27996)*X(652)-JVS(27997)*X(653)-JVS(27998)*X(840)-JVS(27999)*X(3733) - X(4790) = X(4790)-JVS(28006)*X(1308)-JVS(28007)*X(3165)-JVS(28008)*X(4021)-JVS(28009)*X(4457) - X(4791) = X(4791)-JVS(28017)*X(1091)-JVS(28018)*X(3140)-JVS(28019)*X(3999)-JVS(28020)*X(4479) - X(4792) = X(4792)-JVS(28028)*X(164)-JVS(28029)*X(1357)-JVS(28030)*X(2474)-JVS(28031)*X(3012)-JVS(28032)*X(3467)& - &-JVS(28033)*X(4388)-JVS(28034)*X(4482)-JVS(28035)*X(4511)-JVS(28036)*X(4791) - X(4793) = X(4793)-JVS(28044)*X(3403)-JVS(28045)*X(3818)-JVS(28046)*X(4167) - X(4795) = X(4795)-JVS(28059)*X(3401)-JVS(28060)*X(3515) - X(4796) = X(4796)-JVS(28068)*X(538)-JVS(28069)*X(568)-JVS(28070)*X(614)-JVS(28071)*X(628)-JVS(28072)*X(700)-JVS(28073)& - &*X(2336)-JVS(28074)*X(2535)-JVS(28075)*X(2536)-JVS(28076)*X(2577)-JVS(28077)*X(2588)-JVS(28078)*X(2604)& - &-JVS(28079)*X(2731)-JVS(28080)*X(2903)-JVS(28081)*X(3001)-JVS(28082)*X(3036)-JVS(28083)*X(3361)-JVS(28084)& - &*X(3387)-JVS(28085)*X(3395)-JVS(28086)*X(3414)-JVS(28087)*X(3421)-JVS(28088)*X(3500)-JVS(28089)*X(3545)& - &-JVS(28090)*X(3579)-JVS(28091)*X(3597)-JVS(28092)*X(3684)-JVS(28093)*X(3701)-JVS(28094)*X(3821)-JVS(28095)& - &*X(3830)-JVS(28096)*X(3831)-JVS(28097)*X(4014)-JVS(28098)*X(4047)-JVS(28099)*X(4184)-JVS(28100)*X(4194)& - &-JVS(28101)*X(4195)-JVS(28102)*X(4205)-JVS(28103)*X(4217)-JVS(28104)*X(4237)-JVS(28105)*X(4246)-JVS(28106)& - &*X(4262)-JVS(28107)*X(4265)-JVS(28108)*X(4271)-JVS(28109)*X(4273)-JVS(28110)*X(4280)-JVS(28111)*X(4296)& - &-JVS(28112)*X(4304)-JVS(28113)*X(4306)-JVS(28114)*X(4307)-JVS(28115)*X(4326)-JVS(28116)*X(4397)-JVS(28117)& - &*X(4398)-JVS(28118)*X(4444)-JVS(28119)*X(4454)-JVS(28120)*X(4466)-JVS(28121)*X(4491)-JVS(28122)*X(4514)& - &-JVS(28123)*X(4531)-JVS(28124)*X(4533)-JVS(28125)*X(4603)-JVS(28126)*X(4726)-JVS(28127)*X(4790)-JVS(28128)& - &*X(4791)-JVS(28129)*X(4795) - X(4797) = X(4797)-JVS(28150)*X(1221)-JVS(28151)*X(3093)-JVS(28152)*X(4036)-JVS(28153)*X(4453) - X(4798) = X(4798)-JVS(28161)*X(1230)-JVS(28162)*X(4022)-JVS(28163)*X(4048)-JVS(28164)*X(4338)-JVS(28165)*X(4591)& - &-JVS(28166)*X(4592) - X(4799) = X(4799)-JVS(28174)*X(124)-JVS(28175)*X(1503)-JVS(28176)*X(1555)-JVS(28177)*X(2499)-JVS(28178)*X(3511)& - &-JVS(28179)*X(3791) - X(4800) = X(4800)-JVS(28185)*X(675)-JVS(28186)*X(2050) - X(4801) = X(4801)-JVS(28193)*X(1722)-JVS(28194)*X(1723)-JVS(28195)*X(2084)-JVS(28196)*X(2365)-JVS(28197)*X(2550)& - &-JVS(28198)*X(2822)-JVS(28199)*X(3000)-JVS(28200)*X(3222)-JVS(28201)*X(3255)-JVS(28202)*X(3284)-JVS(28203)& - &*X(3336)-JVS(28204)*X(3547)-JVS(28205)*X(4161)-JVS(28206)*X(4309)-JVS(28207)*X(4391)-JVS(28208)*X(4546)& - &-JVS(28209)*X(4561)-JVS(28210)*X(4800) - X(4802) = X(4802)-JVS(28226)*X(2981)-JVS(28227)*X(4800) - X(4803) = X(4803)-JVS(28234)*X(4027) - X(4804) = X(4804)-JVS(28241)*X(1999)-JVS(28242)*X(3349)-JVS(28243)*X(3925)-JVS(28244)*X(4587) - X(4806) = X(4806)-JVS(28257)*X(80)-JVS(28258)*X(992)-JVS(28259)*X(1275)-JVS(28260)*X(2867)-JVS(28261)*X(3717)& - &-JVS(28262)*X(4765) - X(4807) = X(4807)-JVS(28270)*X(1465)-JVS(28271)*X(3258)-JVS(28272)*X(3996) - X(4808) = X(4808)-JVS(28280)*X(894)-JVS(28281)*X(2552)-JVS(28282)*X(3911) - X(4809) = X(4809)-JVS(28290)*X(1300)-JVS(28291)*X(3533)-JVS(28292)*X(4512) - X(4810) = X(4810)-JVS(28300)*X(1061)-JVS(28301)*X(3111)-JVS(28302)*X(4034)-JVS(28303)*X(4494) - X(4811) = X(4811)-JVS(28311)*X(2625)-JVS(28312)*X(3298)-JVS(28313)*X(3822)-JVS(28314)*X(4800) - X(4812) = X(4812)-JVS(28321)*X(817)-JVS(28322)*X(2139)-JVS(28323)*X(2440)-JVS(28324)*X(2941)-JVS(28325)*X(3397)& - &-JVS(28326)*X(4130)-JVS(28327)*X(4385) - X(4813) = X(4813)-JVS(28335)*X(898)-JVS(28336)*X(1274)-JVS(28337)*X(4017)-JVS(28338)*X(4656) - X(4814) = X(4814)-JVS(28346)*X(598)-JVS(28347)*X(3018) - X(4815) = X(4815)-JVS(28354)*X(659)-JVS(28355)*X(1088)-JVS(28356)*X(2505)-JVS(28357)*X(2862)-JVS(28358)*X(4141)& - &-JVS(28359)*X(4218)-JVS(28360)*X(4743) - X(4816) = X(4816)-JVS(28368)*X(3276)-JVS(28369)*X(3324) - X(4817) = X(4817)-JVS(28377)*X(1802)-JVS(28378)*X(3399)-JVS(28379)*X(3878)-JVS(28380)*X(4593) - X(4818) = X(4818)-JVS(28387)*X(1022)-JVS(28388)*X(3293) - X(4819) = X(4819)-JVS(28396)*X(1959) - X(4820) = X(4820)-JVS(28404)*X(173)-JVS(28405)*X(1328)-JVS(28406)*X(2444)-JVS(28407)*X(3841) - X(4821) = X(4821)-JVS(28414)*X(4010) - X(4822) = X(4822)-JVS(28421)*X(1067)-JVS(28422)*X(2712)-JVS(28423)*X(3416)-JVS(28424)*X(4720)-JVS(28425)*X(4721)& - &-JVS(28426)*X(4821) - X(4823) = X(4823)-JVS(28435)*X(1067)-JVS(28436)*X(1356)-JVS(28437)*X(3416)-JVS(28438)*X(3576)-JVS(28439)*X(3588)& - &-JVS(28440)*X(3589)-JVS(28441)*X(4388)-JVS(28442)*X(4393)-JVS(28443)*X(4701)-JVS(28444)*X(4720)-JVS(28445)& - &*X(4721)-JVS(28446)*X(4821)-JVS(28447)*X(4822) - X(4824) = X(4824)-JVS(28456)*X(612) - X(4825) = X(4825)-JVS(28464)*X(206)-JVS(28465)*X(871) - X(4826) = X(4826)-JVS(28472)*X(2382)-JVS(28473)*X(3211)-JVS(28474)*X(3224)-JVS(28475)*X(3443) - X(4827) = X(4827)-JVS(28483)*X(150)-JVS(28484)*X(1954)-JVS(28485)*X(2940)-JVS(28486)*X(3288)-JVS(28487)*X(4583) - X(4828) = X(4828)-JVS(28494)*X(759) - X(4829) = X(4829)-JVS(28502)*X(1031)-JVS(28503)*X(2656)-JVS(28504)*X(4094) - X(4830) = X(4830)-JVS(28512)*X(1437)-JVS(28513)*X(2323)-JVS(28514)*X(2540)-JVS(28515)*X(2850)-JVS(28516)*X(4563) - X(4831) = X(4831)-JVS(28524)*X(626)-JVS(28525)*X(781)-JVS(28526)*X(2507)-JVS(28527)*X(2617)-JVS(28528)*X(3257)& - &-JVS(28529)*X(3558)-JVS(28530)*X(4129) - X(4832) = X(4832)-JVS(28542)*X(2130)-JVS(28543)*X(2308) - X(4833) = X(4833)-JVS(28551)*X(937)-JVS(28552)*X(3292)-JVS(28553)*X(3834) - X(4834) = X(4834)-JVS(28561)*X(1663)-JVS(28562)*X(2259)-JVS(28563)*X(2513)-JVS(28564)*X(2633)-JVS(28565)*X(2713)& - &-JVS(28566)*X(3038)-JVS(28567)*X(3854)-JVS(28568)*X(3859) - X(4835) = X(4835)-JVS(28576)*X(1837) - X(4836) = X(4836)-JVS(28583)*X(1193)-JVS(28584)*X(3239)-JVS(28585)*X(3879) - X(4837) = X(4837)-JVS(28593)*X(1422)-JVS(28594)*X(1730)-JVS(28595)*X(4601) - X(4838) = X(4838)-JVS(28603)*X(2487)-JVS(28604)*X(4527) - X(4839) = X(4839)-JVS(28613)*X(1507)-JVS(28614)*X(2809)-JVS(28615)*X(3029)-JVS(28616)*X(3062)-JVS(28617)*X(3374)& - &-JVS(28618)*X(3957)-JVS(28619)*X(4115)-JVS(28620)*X(4572)-JVS(28621)*X(4825) - X(4841) = X(4841)-JVS(28634)*X(363)-JVS(28635)*X(1193)-JVS(28636)*X(1983)-JVS(28637)*X(3444)-JVS(28638)*X(3868)& - &-JVS(28639)*X(4647)-JVS(28640)*X(4836) - X(4842) = X(4842)-JVS(28651)*X(481)-JVS(28652)*X(679)-JVS(28653)*X(1463)-JVS(28654)*X(1586)-JVS(28655)*X(2224)& - &-JVS(28656)*X(2265)-JVS(28657)*X(2305)-JVS(28658)*X(2378)-JVS(28659)*X(2495)-JVS(28660)*X(2512)-JVS(28661)& - &*X(2688)-JVS(28662)*X(3840)-JVS(28663)*X(3908)-JVS(28664)*X(3985)-JVS(28665)*X(4145) - X(4843) = X(4843)-JVS(28676)*X(719)-JVS(28677)*X(4605) - X(4844) = X(4844)-JVS(28686)*X(181)-JVS(28687)*X(456)-JVS(28688)*X(1265)-JVS(28689)*X(1547)-JVS(28690)*X(4313) - X(4845) = X(4845)-JVS(28699)*X(1859)-JVS(28700)*X(3520)-JVS(28701)*X(3585)-JVS(28702)*X(4351)-JVS(28703)*X(4695)& - &-JVS(28704)*X(4840) - X(4846) = X(4846)-JVS(28713)*X(1404)-JVS(28714)*X(2518)-JVS(28715)*X(3486)-JVS(28716)*X(4630) - X(4847) = X(4847)-JVS(28725)*X(985)-JVS(28726)*X(1581)-JVS(28727)*X(1911)-JVS(28728)*X(1915)-JVS(28729)*X(2593)& - &-JVS(28730)*X(3863)-JVS(28731)*X(3867)-JVS(28732)*X(3940)-JVS(28733)*X(4605) - X(4848) = X(4848)-JVS(28742)*X(1042)-JVS(28743)*X(2884)-JVS(28744)*X(4261) - X(4849) = X(4849)-JVS(28753)*X(1424)-JVS(28754)*X(1706)-JVS(28755)*X(1973)-JVS(28756)*X(1995)-JVS(28757)*X(2533)& - &-JVS(28758)*X(3872)-JVS(28759)*X(3927)-JVS(28760)*X(3969) - X(4850) = X(4850)-JVS(28769)*X(575)-JVS(28770)*X(609)-JVS(28771)*X(1114)-JVS(28772)*X(1674)-JVS(28773)*X(2221)& - &-JVS(28774)*X(2726)-JVS(28775)*X(3058)-JVS(28776)*X(3185)-JVS(28777)*X(3548)-JVS(28778)*X(4164)-JVS(28779)& - &*X(4355)-JVS(28780)*X(4429)-JVS(28781)*X(4709)-JVS(28782)*X(4710) - X(4851) = X(4851)-JVS(28791)*X(991)-JVS(28792)*X(1098)-JVS(28793)*X(1220)-JVS(28794)*X(1529)-JVS(28795)*X(1626)& - &-JVS(28796)*X(3608)-JVS(28797)*X(4159)-JVS(28798)*X(4341)-JVS(28799)*X(4565)-JVS(28800)*X(4578) - X(4852) = X(4852)-JVS(28809)*X(1327)-JVS(28810)*X(2893)-JVS(28811)*X(3609)-JVS(28812)*X(3857)-JVS(28813)*X(4517) - X(4853) = X(4853)-JVS(28822)*X(824)-JVS(28823)*X(1652)-JVS(28824)*X(2864)-JVS(28825)*X(3639)-JVS(28826)*X(3960)& - &-JVS(28827)*X(4346)-JVS(28828)*X(4459)-JVS(28829)*X(4653) - X(4854) = X(4854)-JVS(28838)*X(774)-JVS(28839)*X(998)-JVS(28840)*X(1958)-JVS(28841)*X(2756)-JVS(28842)*X(3365)& - &-JVS(28843)*X(4131)-JVS(28844)*X(4624) - X(4855) = X(4855)-JVS(28852)*X(1047)-JVS(28853)*X(2231)-JVS(28854)*X(2362)-JVS(28855)*X(2879)-JVS(28856)*X(4148)& - &-JVS(28857)*X(4605) - X(4856) = X(4856)-JVS(28866)*X(3231)-JVS(28867)*X(3561)-JVS(28868)*X(4598) - X(4857) = X(4857)-JVS(28877)*X(499)-JVS(28878)*X(1460)-JVS(28879)*X(2920)-JVS(28880)*X(3914)-JVS(28881)*X(4770) - X(4858) = X(4858)-JVS(28890)*X(3035)-JVS(28891)*X(3978) - X(4859) = X(4859)-JVS(28900)*X(1427)-JVS(28901)*X(3161)-JVS(28902)*X(4067) - X(4860) = X(4860)-JVS(28911)*X(889)-JVS(28912)*X(3260)-JVS(28913)*X(4559) - X(4861) = X(4861)-JVS(28922)*X(21)-JVS(28923)*X(48)-JVS(28924)*X(3428) - X(4862) = X(4862)-JVS(28933)*X(484)-JVS(28934)*X(1436)-JVS(28935)*X(2921)-JVS(28936)*X(4382) - X(4863) = X(4863)-JVS(28945)*X(618)-JVS(28946)*X(1480)-JVS(28947)*X(1868)-JVS(28948)*X(2154)-JVS(28949)*X(2829)& - &-JVS(28950)*X(4176) - X(4864) = X(4864)-JVS(28959)*X(152)-JVS(28960)*X(1464)-JVS(28961)*X(2472)-JVS(28962)*X(2969)-JVS(28963)*X(3463)& - &-JVS(28964)*X(4393)-JVS(28965)*X(4426)-JVS(28966)*X(4444)-JVS(28967)*X(4790) - X(4865) = X(4865)-JVS(28976)*X(2358)-JVS(28977)*X(2899)-JVS(28978)*X(3014)-JVS(28979)*X(3200)-JVS(28980)*X(3354)& - &-JVS(28981)*X(3904)-JVS(28982)*X(4203)-JVS(28983)*X(4401)-JVS(28984)*X(4719)-JVS(28985)*X(4787)-JVS(28986)& - &*X(4799)-JVS(28987)*X(4813) - X(4866) = X(4866)-JVS(28996)*X(945)-JVS(28997)*X(2842)-JVS(28998)*X(3662) - X(4867) = X(4867)-JVS(29007)*X(697)-JVS(29008)*X(1541)-JVS(29009)*X(2380)-JVS(29010)*X(2660)-JVS(29011)*X(3348)& - &-JVS(29012)*X(4660) - X(4868) = X(4868)-JVS(29021)*X(2212)-JVS(29022)*X(4508) - X(4869) = X(4869)-JVS(29031)*X(3646) - X(4870) = X(4870)-JVS(29041)*X(420)-JVS(29042)*X(1055)-JVS(29043)*X(1697)-JVS(29044)*X(1914)-JVS(29045)*X(3915)& - &-JVS(29046)*X(4662) - X(4871) = X(4871)-JVS(29056)*X(1406)-JVS(29057)*X(3498)-JVS(29058)*X(3757)-JVS(29059)*X(4223)-JVS(29060)*X(4336)& - &-JVS(29061)*X(4390)-JVS(29062)*X(4607)-JVS(29063)*X(4608)-JVS(29064)*X(4702) - X(4872) = X(4872)-JVS(29074)*X(1800)-JVS(29075)*X(2391)-JVS(29076)*X(2843)-JVS(29077)*X(3884)-JVS(29078)*X(4623) - X(4873) = X(4873)-JVS(29088)*X(1774)-JVS(29089)*X(2011)-JVS(29090)*X(3070)-JVS(29091)*X(4430)-JVS(29092)*X(4587) - X(4874) = X(4874)-JVS(29102)*X(571)-JVS(29103)*X(1234)-JVS(29104)*X(2095)-JVS(29105)*X(2877)-JVS(29106)*X(3871)& - &-JVS(29107)*X(4537)-JVS(29108)*X(4586) - X(4875) = X(4875)-JVS(29118)*X(1085)-JVS(29119)*X(1784)-JVS(29120)*X(4462)-JVS(29121)*X(4759)-JVS(29122)*X(4806) - X(4876) = X(4876)-JVS(29132)*X(1708) - X(4877) = X(4877)-JVS(29139)*X(3453) - X(4878) = X(4878)-JVS(29146)*X(548)-JVS(29147)*X(1082) - X(4879) = X(4879)-JVS(29154)*X(976)-JVS(29155)*X(4527) - X(4880) = X(4880)-JVS(29162)*X(4736) - X(4881) = X(4881)-JVS(29169)*X(2363)-JVS(29170)*X(4508) - X(4882) = X(4882)-JVS(29177)*X(501)-JVS(29178)*X(765)-JVS(29179)*X(1536)-JVS(29180)*X(1889)-JVS(29181)*X(3018)& - &-JVS(29182)*X(3952)-JVS(29183)*X(4814) - X(4883) = X(4883)-JVS(29190)*X(1998)-JVS(29191)*X(3015)-JVS(29192)*X(4354)-JVS(29193)*X(4360)-JVS(29194)*X(4882) - X(4884) = X(4884)-JVS(29201)*X(2455)-JVS(29202)*X(4604)-JVS(29203)*X(4606) - X(4885) = X(4885)-JVS(29210)*X(179)-JVS(29211)*X(1938)-JVS(29212)*X(2365)-JVS(29213)*X(3222) - X(4886) = X(4886)-JVS(29220)*X(566)-JVS(29221)*X(2019) - X(4887) = X(4887)-JVS(29228)*X(937)-JVS(29229)*X(1343)-JVS(29230)*X(3469)-JVS(29231)*X(3834)-JVS(29232)*X(4833) - X(4888) = X(4888)-JVS(29240)*X(2766)-JVS(29241)*X(3221)-JVS(29242)*X(3437) - X(4889) = X(4889)-JVS(29250)*X(3542)-JVS(29251)*X(4582)-JVS(29252)*X(4879) - X(4890) = X(4890)-JVS(29260)*X(200)-JVS(29261)*X(1829)-JVS(29262)*X(2331)-JVS(29263)*X(4251)-JVS(29264)*X(4878) - X(4891) = X(4891)-JVS(29272)*X(1447)-JVS(29273)*X(2947) - X(4892) = X(4892)-JVS(29281)*X(1296)-JVS(29282)*X(3206)-JVS(29283)*X(4056) - X(4893) = X(4893)-JVS(29291)*X(941)-JVS(29292)*X(1403)-JVS(29293)*X(3468)-JVS(29294)*X(4083)-JVS(29295)*X(4692) - X(4894) = X(4894)-JVS(29303)*X(3228) - X(4895) = X(4895)-JVS(29311)*X(3332)-JVS(29312)*X(3818)-JVS(29313)*X(4004)-JVS(29314)*X(4055) - X(4896) = X(4896)-JVS(29322)*X(3802)-JVS(29323)*X(3812)-JVS(29324)*X(3826)-JVS(29325)*X(4177) - X(4897) = X(4897)-JVS(29333)*X(1405)-JVS(29334)*X(1473)-JVS(29335)*X(1873)-JVS(29336)*X(4080)-JVS(29337)*X(4132) - X(4898) = X(4898)-JVS(29345)*X(990)-JVS(29346)*X(1383)-JVS(29347)*X(1437)-JVS(29348)*X(3559)-JVS(29349)*X(4563)& - &-JVS(29350)*X(4830) - X(4899) = X(4899)-JVS(29358)*X(3227)-JVS(29359)*X(3452)-JVS(29360)*X(3487)-JVS(29361)*X(4027) - X(4900) = X(4900)-JVS(29369)*X(859)-JVS(29370)*X(1442)-JVS(29371)*X(4664) - X(4901) = X(4901)-JVS(29379)*X(379)-JVS(29380)*X(832)-JVS(29381)*X(1635)-JVS(29382)*X(2223)-JVS(29383)*X(3877)& - &-JVS(29384)*X(4886) - X(4902) = X(4902)-JVS(29392)*X(2142)-JVS(29393)*X(2530)-JVS(29394)*X(2977)-JVS(29395)*X(4104)-JVS(29396)*X(4220)& - &-JVS(29397)*X(4580)-JVS(29398)*X(4597)-JVS(29399)*X(4644) - X(4903) = X(4903)-JVS(29412)*X(3747)-JVS(29413)*X(4577)-JVS(29414)*X(4722) - X(4904) = X(4904)-JVS(29422)*X(994)-JVS(29423)*X(2488)-JVS(29424)*X(3582)-JVS(29425)*X(3723)-JVS(29426)*X(3765)& - &-JVS(29427)*X(4024)-JVS(29428)*X(4178)-JVS(29429)*X(4328)-JVS(29430)*X(4507)-JVS(29431)*X(4509)-JVS(29432)& - &*X(4514)-JVS(29433)*X(4632)-JVS(29434)*X(4663)-JVS(29435)*X(4671)-JVS(29436)*X(4676)-JVS(29437)*X(4682)& - &-JVS(29438)*X(4690)-JVS(29439)*X(4694)-JVS(29440)*X(4726)-JVS(29441)*X(4773)-JVS(29442)*X(4798) - X(4905) = X(4905)-JVS(29455)*X(1254)-JVS(29456)*X(1481)-JVS(29457)*X(3451)-JVS(29458)*X(4272)-JVS(29459)*X(4633) - X(4906) = X(4906)-JVS(29467)*X(2476) - X(4908) = X(4908)-JVS(29480)*X(1776)-JVS(29481)*X(4555) - X(4909) = X(4909)-JVS(29490)*X(2191)-JVS(29491)*X(2442)-JVS(29492)*X(2545)-JVS(29493)*X(2670)-JVS(29494)*X(2717)& - &-JVS(29495)*X(2985)-JVS(29496)*X(3033)-JVS(29497)*X(3154)-JVS(29498)*X(3203)-JVS(29499)*X(3577)-JVS(29500)& - &*X(3586)-JVS(29501)*X(3835)-JVS(29502)*X(3939)-JVS(29503)*X(4213)-JVS(29504)*X(4282)-JVS(29505)*X(4337)& - &-JVS(29506)*X(4370)-JVS(29507)*X(4436)-JVS(29508)*X(4794) - X(4910) = X(4910)-JVS(29524)*X(145)-JVS(29525)*X(404)-JVS(29526)*X(405)-JVS(29527)*X(864)-JVS(29528)*X(2323)& - &-JVS(29529)*X(2540)-JVS(29530)*X(3115)-JVS(29531)*X(3223)-JVS(29532)*X(3559)-JVS(29533)*X(4240)-JVS(29534)& - &*X(4563)-JVS(29535)*X(4600)-JVS(29536)*X(4830) - X(4911) = X(4911)-JVS(29545)*X(195)-JVS(29546)*X(1262)-JVS(29547)*X(1980)-JVS(29548)*X(2730)-JVS(29549)*X(4880) - X(4912) = X(4912)-JVS(29556)*X(604)-JVS(29557)*X(4492) - X(4913) = X(4913)-JVS(29566)*X(514)-JVS(29567)*X(2425)-JVS(29568)*X(3570)-JVS(29569)*X(3605)-JVS(29570)*X(4630)& - &-JVS(29571)*X(4699)-JVS(29572)*X(4727)-JVS(29573)*X(4794)-JVS(29574)*X(4907) - X(4914) = X(4914)-JVS(29583)*X(599)-JVS(29584)*X(2002)-JVS(29585)*X(2313)-JVS(29586)*X(2951) - X(4915) = X(4915)-JVS(29595)*X(1048)-JVS(29596)*X(3056)-JVS(29597)*X(3513)-JVS(29598)*X(3995)-JVS(29599)*X(4911) - X(4916) = X(4916)-JVS(29608)*X(2175)-JVS(29609)*X(2448)-JVS(29610)*X(2924)-JVS(29611)*X(3022)-JVS(29612)*X(3121)& - &-JVS(29613)*X(3325)-JVS(29614)*X(3435)-JVS(29615)*X(3445)-JVS(29616)*X(4028)-JVS(29617)*X(4074)-JVS(29618)& - &*X(4399)-JVS(29619)*X(4513)-JVS(29620)*X(4649) - X(4917) = X(4917)-JVS(29629)*X(2645)-JVS(29630)*X(2689)-JVS(29631)*X(3174)-JVS(29632)*X(3225)-JVS(29633)*X(3804)& - &-JVS(29634)*X(4683)-JVS(29635)*X(4829) - X(4918) = X(4918)-JVS(29644)*X(2025)-JVS(29645)*X(2474)-JVS(29646)*X(2492)-JVS(29647)*X(2560)-JVS(29648)*X(2581)& - &-JVS(29649)*X(2689)-JVS(29650)*X(3012)-JVS(29651)*X(3225)-JVS(29652)*X(3467)-JVS(29653)*X(3800)-JVS(29654)& - &*X(3805)-JVS(29655)*X(3973)-JVS(29656)*X(4029)-JVS(29657)*X(4165)-JVS(29658)*X(4388)-JVS(29659)*X(4619)& - &-JVS(29660)*X(4627)-JVS(29661)*X(4683)-JVS(29662)*X(4689)-JVS(29663)*X(4717)-JVS(29664)*X(4792)-JVS(29665)& - &*X(4829)-JVS(29666)*X(4917) - X(4919) = X(4919)-JVS(29679)*X(3147)-JVS(29680)*X(4395) - X(4920) = X(4920)-JVS(29689)*X(255)-JVS(29690)*X(901)-JVS(29691)*X(2923)-JVS(29692)*X(3896)-JVS(29693)*X(4793) - X(4921) = X(4921)-JVS(29702)*X(1182)-JVS(29703)*X(1738)-JVS(29704)*X(2266)-JVS(29705)*X(2288)-JVS(29706)*X(2860)& - &-JVS(29707)*X(3844)-JVS(29708)*X(3920)-JVS(29709)*X(3966) - X(4922) = X(4922)-JVS(29718)*X(3654)-JVS(29719)*X(4840) - X(4923) = X(4923)-JVS(29726)*X(3660)-JVS(29727)*X(4156)-JVS(29728)*X(4840)-JVS(29729)*X(4922) - X(4924) = X(4924)-JVS(29736)*X(6)-JVS(29737)*X(1705)-JVS(29738)*X(1916)-JVS(29739)*X(2219)-JVS(29740)*X(2945)& - &-JVS(29741)*X(3171)-JVS(29742)*X(4353)-JVS(29743)*X(4724)-JVS(29744)*X(4827)-JVS(29745)*X(4840)-JVS(29746)& - &*X(4923) - X(4925) = X(4925)-JVS(29757)*X(2174)-JVS(29758)*X(4492) - X(4926) = X(4926)-JVS(29765)*X(1893)-JVS(29766)*X(2868)-JVS(29767)*X(3408) - X(4927) = X(4927)-JVS(29776)*X(3754)-JVS(29777)*X(4004)-JVS(29778)*X(4529) - X(4928) = X(4928)-JVS(29787)*X(4093) - X(4929) = X(4929)-JVS(29794)*X(56)-JVS(29795)*X(771)-JVS(29796)*X(1248)-JVS(29797)*X(1728)-JVS(29798)*X(2107)& - &-JVS(29799)*X(2672)-JVS(29800)*X(2753)-JVS(29801)*X(4127)-JVS(29802)*X(4472)-JVS(29803)*X(4616)-JVS(29804)& - &*X(4621) - X(4930) = X(4930)-JVS(29816)*X(2808)-JVS(29817)*X(2875)-JVS(29818)*X(3122)-JVS(29819)*X(3226)-JVS(29820)*X(3794)& - &-JVS(29821)*X(4675) - X(4931) = X(4931)-JVS(29830)*X(1949)-JVS(29831)*X(2472)-JVS(29832)*X(2808)-JVS(29833)*X(2949)-JVS(29834)*X(2969)& - &-JVS(29835)*X(3028)-JVS(29836)*X(3226)-JVS(29837)*X(3463)-JVS(29838)*X(3716)-JVS(29839)*X(3795)-JVS(29840)& - &*X(3816)-JVS(29841)*X(3953)-JVS(29842)*X(4086)-JVS(29843)*X(4141)-JVS(29844)*X(4393)-JVS(29845)*X(4562)& - &-JVS(29846)*X(4675)-JVS(29847)*X(4688)-JVS(29848)*X(4743)-JVS(29849)*X(4864)-JVS(29850)*X(4881)-JVS(29851)& - &*X(4928)-JVS(29852)*X(4930) - X(4932) = X(4932)-JVS(29865)*X(2627) - X(4933) = X(4933)-JVS(29872)*X(3460)-JVS(29873)*X(3600)-JVS(29874)*X(4017)-JVS(29875)*X(4335) - X(4934) = X(4934)-JVS(29882)*X(1090)-JVS(29883)*X(2846) - X(4935) = X(4935)-JVS(29891)*X(1465)-JVS(29892)*X(1513)-JVS(29893)*X(3996)-JVS(29894)*X(4807) - X(4936) = X(4936)-JVS(29902)*X(1467)-JVS(29903)*X(2823)-JVS(29904)*X(3454)-JVS(29905)*X(4113)-JVS(29906)*X(4539) - X(4937) = X(4937)-JVS(29916)*X(956)-JVS(29917)*X(2241)-JVS(29918)*X(3803) - X(4938) = X(4938)-JVS(29924)*X(1637)-JVS(29925)*X(1677)-JVS(29926)*X(1710)-JVS(29927)*X(2024)-JVS(29928)*X(2159)& - &-JVS(29929)*X(2279)-JVS(29930)*X(2426)-JVS(29931)*X(2504)-JVS(29932)*X(2518)-JVS(29933)*X(2556)-JVS(29934)& - &*X(2608)-JVS(29935)*X(2659)-JVS(29936)*X(2715)-JVS(29937)*X(2766)-JVS(29938)*X(2883)-JVS(29939)*X(2919)& - &-JVS(29940)*X(2967)-JVS(29941)*X(3103)-JVS(29942)*X(3221)-JVS(29943)*X(3239)-JVS(29944)*X(3274)-JVS(29945)& - &*X(3328)-JVS(29946)*X(3450)-JVS(29947)*X(3578)-JVS(29948)*X(3664)-JVS(29949)*X(3767)-JVS(29950)*X(3803)& - &-JVS(29951)*X(3832)-JVS(29952)*X(3899)-JVS(29953)*X(3909)-JVS(29954)*X(3930)-JVS(29955)*X(3931)-JVS(29956)& - &*X(3937)-JVS(29957)*X(3948)-JVS(29958)*X(3975)-JVS(29959)*X(4214)-JVS(29960)*X(4328)-JVS(29961)*X(4331)& - &-JVS(29962)*X(4334)-JVS(29963)*X(4345)-JVS(29964)*X(4347)-JVS(29965)*X(4379)-JVS(29966)*X(4384)-JVS(29967)& - &*X(4386)-JVS(29968)*X(4387)-JVS(29969)*X(4481)-JVS(29970)*X(4639)-JVS(29971)*X(4643)-JVS(29972)*X(4655)& - &-JVS(29973)*X(4670)-JVS(29974)*X(4674)-JVS(29975)*X(4723)-JVS(29976)*X(4726)-JVS(29977)*X(4741)-JVS(29978)& - &*X(4788)-JVS(29979)*X(4802)-JVS(29980)*X(4810)-JVS(29981)*X(4811)-JVS(29982)*X(4836)-JVS(29983)*X(4846)& - &-JVS(29984)*X(4887)-JVS(29985)*X(4888)-JVS(29986)*X(4890)-JVS(29987)*X(4899)-JVS(29988)*X(4937) - X(4939) = X(4939)-JVS(30014)*X(2478)-JVS(30015)*X(2619)-JVS(30016)*X(3683)-JVS(30017)*X(4109)-JVS(30018)*X(4456)& - &-JVS(30019)*X(4778)-JVS(30020)*X(4817)-JVS(30021)*X(4820)-JVS(30022)*X(4856)-JVS(30023)*X(4885) - X(4940) = X(4940)-JVS(30037)*X(1182)-JVS(30038)*X(1569)-JVS(30039)*X(3617)-JVS(30040)*X(3646)-JVS(30041)*X(4541)& - &-JVS(30042)*X(4678)-JVS(30043)*X(4691)-JVS(30044)*X(4869)-JVS(30045)*X(4921) - X(4941) = X(4941)-JVS(30059)*X(2013)-JVS(30060)*X(3297)-JVS(30061)*X(4332)-JVS(30062)*X(4475) - X(4942) = X(4942)-JVS(30072)*X(474)-JVS(30073)*X(1114)-JVS(30074)*X(1709)-JVS(30075)*X(2416)-JVS(30076)*X(3117)& - &-JVS(30077)*X(4710)-JVS(30078)*X(4850) - X(4943) = X(4943)-JVS(30089)*X(766)-JVS(30090)*X(2286)-JVS(30091)*X(4333)-JVS(30092)*X(4474)-JVS(30093)*X(4475)& - &-JVS(30094)*X(4604)-JVS(30095)*X(4606)-JVS(30096)*X(4840) - X(4944) = X(4944)-JVS(30106)*X(698)-JVS(30107)*X(769)-JVS(30108)*X(1332)-JVS(30109)*X(1744)-JVS(30110)*X(2059)& - &-JVS(30111)*X(2611)-JVS(30112)*X(2751)-JVS(30113)*X(3183)-JVS(30114)*X(3349)-JVS(30115)*X(3544)-JVS(30116)& - &*X(3925)-JVS(30117)*X(4122)-JVS(30118)*X(4389)-JVS(30119)*X(4421)-JVS(30120)*X(4587)-JVS(30121)*X(4712) - X(4946) = X(4946)-JVS(30136)*X(3005)-JVS(30137)*X(3249) - X(4947) = X(4947)-JVS(30145)*X(1175)-JVS(30146)*X(1404)-JVS(30147)*X(1765)-JVS(30148)*X(2051)-JVS(30149)*X(3227)& - &-JVS(30150)*X(3433)-JVS(30151)*X(3486)-JVS(30152)*X(3487)-JVS(30153)*X(3567)-JVS(30154)*X(3573)-JVS(30155)& - &*X(3584)-JVS(30156)*X(3931)-JVS(30157)*X(4547)-JVS(30158)*X(4630)-JVS(30159)*X(4707)-JVS(30160)*X(4740)& - &-JVS(30161)*X(4803)-JVS(30162)*X(4846)-JVS(30163)*X(4887)-JVS(30164)*X(4899) - X(4948) = X(4948)-JVS(30174)*X(3316)-JVS(30175)*X(3487)-JVS(30176)*X(4027) - X(4949) = X(4949)-JVS(30184)*X(674)-JVS(30185)*X(689)-JVS(30186)*X(1158)-JVS(30187)*X(1658)-JVS(30188)*X(1659)& - &-JVS(30189)*X(2395)-JVS(30190)*X(2730)-JVS(30191)*X(2790)-JVS(30192)*X(3287)-JVS(30193)*X(4126)-JVS(30194)& - &*X(4911) - X(4950) = X(4950)-JVS(30204)*X(135)-JVS(30205)*X(1451)-JVS(30206)*X(3435)-JVS(30207)*X(4028) - X(4951) = X(4951)-JVS(30213)*X(3342)-JVS(30214)*X(3795)-JVS(30215)*X(3805)-JVS(30216)*X(3812)-JVS(30217)*X(3824)& - &-JVS(30218)*X(4177)-JVS(30219)*X(4399)-JVS(30220)*X(4950) - X(4952) = X(4952)-JVS(30228)*X(3802)-JVS(30229)*X(3824)-JVS(30230)*X(3826)-JVS(30231)*X(4177)-JVS(30232)*X(4937)& - &-JVS(30233)*X(4950) - X(4953) = X(4953)-JVS(30241)*X(708)-JVS(30242)*X(1325)-JVS(30243)*X(1718)-JVS(30244)*X(1858)-JVS(30245)*X(2727)& - &-JVS(30246)*X(2958)-JVS(30247)*X(4144)-JVS(30248)*X(4605) - X(4954) = X(4954)-JVS(30256)*X(654)-JVS(30257)*X(2497)-JVS(30258)*X(3254)-JVS(30259)*X(3294)-JVS(30260)*X(3488)& - &-JVS(30261)*X(4774) - X(4955) = X(4955)-JVS(30271)*X(916)-JVS(30272)*X(3010) - X(4956) = X(4956)-JVS(30280)*X(2042)-JVS(30281)*X(3202)-JVS(30282)*X(4604)-JVS(30283)*X(4606) - X(4957) = X(4957)-JVS(30293)*X(2546)-JVS(30294)*X(4883) - X(4958) = X(4958)-JVS(30302)*X(839)-JVS(30303)*X(890)-JVS(30304)*X(893)-JVS(30305)*X(1518)-JVS(30306)*X(1575)& - &-JVS(30307)*X(1685)-JVS(30308)*X(1804)-JVS(30309)*X(1874)-JVS(30310)*X(1939)-JVS(30311)*X(1981)-JVS(30312)& - &*X(2925)-JVS(30313)*X(3236)-JVS(30314)*X(3552)-JVS(30315)*X(4096)-JVS(30316)*X(4518)-JVS(30317)*X(4556)& - &-JVS(30318)*X(4657)-JVS(30319)*X(4658)-JVS(30320)*X(4945) - X(4959) = X(4959)-JVS(30334)*X(806)-JVS(30335)*X(1234)-JVS(30336)*X(3310)-JVS(30337)*X(4537)-JVS(30338)*X(4601)& - &-JVS(30339)*X(4874)-JVS(30340)*X(4878) - X(4960) = X(4960)-JVS(30351)*X(953)-JVS(30352)*X(1022)-JVS(30353)*X(1757)-JVS(30354)*X(4818) - X(4961) = X(4961)-JVS(30362)*X(2135)-JVS(30363)*X(2718)-JVS(30364)*X(3175)-JVS(30365)*X(4419)-JVS(30366)*X(4688)& - &-JVS(30367)*X(4700) - X(4962) = X(4962)-JVS(30378)*X(1475)-JVS(30379)*X(2786)-JVS(30380)*X(4540)-JVS(30381)*X(4882) - X(4963) = X(4963)-JVS(30391)*X(514)-JVS(30392)*X(2425)-JVS(30393)*X(4794)-JVS(30394)*X(4907) - X(4964) = X(4964)-JVS(30404)*X(444)-JVS(30405)*X(1240)-JVS(30406)*X(1341)-JVS(30407)*X(1792)-JVS(30408)*X(1794)& - &-JVS(30409)*X(2780)-JVS(30410)*X(3072)-JVS(30411)*X(3776)-JVS(30412)*X(3866)-JVS(30413)*X(3987)-JVS(30414)& - &*X(4187)-JVS(30415)*X(4395)-JVS(30416)*X(4919) - X(4965) = X(4965)-JVS(30426)*X(1763)-JVS(30427)*X(3317)-JVS(30428)*X(4397)-JVS(30429)*X(4622)-JVS(30430)*X(4666)& - &-JVS(30431)*X(4919)-JVS(30432)*X(4964) - X(4966) = X(4966)-JVS(30442)*X(163)-JVS(30443)*X(973)-JVS(30444)*X(2696)-JVS(30445)*X(3237)-JVS(30446)*X(4423)& - &-JVS(30447)*X(4454)-JVS(30448)*X(4464)-JVS(30449)*X(4728)-JVS(30450)*X(4797)-JVS(30451)*X(4877) - X(4967) = X(4967)-JVS(30461)*X(3528)-JVS(30462)*X(3747)-JVS(30463)*X(4577)-JVS(30464)*X(4722) - X(4968) = X(4968)-JVS(30472)*X(2504)-JVS(30473)*X(3209) - X(4969) = X(4969)-JVS(30481)*X(583)-JVS(30482)*X(986)-JVS(30483)*X(2977)-JVS(30484)*X(4190)-JVS(30485)*X(4493)& - &-JVS(30486)*X(4925) - X(4970) = X(4970)-JVS(30496)*X(1746) - X(4971) = X(4971)-JVS(30504)*X(3622) - X(4972) = X(4972)-JVS(30511)*X(2179) - X(4973) = X(4973)-JVS(30518)*X(1140)-JVS(30519)*X(1914)-JVS(30520)*X(2128)-JVS(30521)*X(2319)-JVS(30522)*X(2514)& - &-JVS(30523)*X(2678)-JVS(30524)*X(2946)-JVS(30525)*X(2978)-JVS(30526)*X(3311)-JVS(30527)*X(3386)-JVS(30528)& - &*X(3935)-JVS(30529)*X(4243)-JVS(30530)*X(4357)-JVS(30531)*X(4662)-JVS(30532)*X(4785)-JVS(30533)*X(4870)& - &-JVS(30534)*X(4890) - X(4974) = X(4974)-JVS(30551)*X(1855)-JVS(30552)*X(2385) - X(4975) = X(4975)-JVS(30559)*X(1799)-JVS(30560)*X(2543)-JVS(30561)*X(2653)-JVS(30562)*X(3869)-JVS(30563)*X(3967)& - &-JVS(30564)*X(4733)-JVS(30565)*X(4974) - X(4977) = X(4977)-JVS(30577)*X(901)-JVS(30578)*X(2852)-JVS(30579)*X(3896)-JVS(30580)*X(4793) - X(4978) = X(4978)-JVS(30589)*X(334)-JVS(30590)*X(1328)-JVS(30591)*X(1875)-JVS(30592)*X(2444)-JVS(30593)*X(2749)& - &-JVS(30594)*X(2813)-JVS(30595)*X(3841)-JVS(30596)*X(4572)-JVS(30597)*X(4825) - X(4979) = X(4979)-JVS(30606)*X(983)-JVS(30607)*X(2822)-JVS(30608)*X(3792)-JVS(30609)*X(4975) - X(4980) = X(4980)-JVS(30618)*X(288)-JVS(30619)*X(853)-JVS(30620)*X(2628)-JVS(30621)*X(3856)-JVS(30622)*X(4469) - X(4981) = X(4981)-JVS(30631)*X(601)-JVS(30632)*X(855)-JVS(30633)*X(889)-JVS(30634)*X(1741)-JVS(30635)*X(2628)& - &-JVS(30636)*X(2913)-JVS(30637)*X(3333)-JVS(30638)*X(3369)-JVS(30639)*X(4559)-JVS(30640)*X(4860)-JVS(30641)& - &*X(4980) - X(4982) = X(4982)-JVS(30651)*X(3618)-JVS(30652)*X(4570) - X(4983) = X(4983)-JVS(30661)*X(1891)-JVS(30662)*X(3209)-JVS(30663)*X(3237)-JVS(30664)*X(3325)-JVS(30665)*X(3458)& - &-JVS(30666)*X(3463)-JVS(30667)*X(3467)-JVS(30668)*X(3475)-JVS(30669)*X(3476)-JVS(30670)*X(3515)-JVS(30671)& - &*X(3555)-JVS(30672)*X(3618)-JVS(30673)*X(4570)-JVS(30674)*X(4773)-JVS(30675)*X(4792)-JVS(30676)*X(4795)& - &-JVS(30677)*X(4864)-JVS(30678)*X(4916)-JVS(30679)*X(4928)-JVS(30680)*X(4966)-JVS(30681)*X(4968)-JVS(30682)& - &*X(4982) - X(4984) = X(4984)-JVS(30703)*X(1173)-JVS(30704)*X(2987)-JVS(30705)*X(4279)-JVS(30706)*X(4960) - X(4985) = X(4985)-JVS(30715)*X(634)-JVS(30716)*X(2603)-JVS(30717)*X(3082)-JVS(30718)*X(3251)-JVS(30719)*X(3300)& - &-JVS(30720)*X(3624)-JVS(30721)*X(3817)-JVS(30722)*X(4055)-JVS(30723)*X(4935) - X(4986) = X(4986)-JVS(30732)*X(1109)-JVS(30733)*X(1610)-JVS(30734)*X(1806)-JVS(30735)*X(1836)-JVS(30736)*X(2021)& - &-JVS(30737)*X(2501)-JVS(30738)*X(2876)-JVS(30739)*X(3103)-JVS(30740)*X(3372)-JVS(30741)*X(3599)-JVS(30742)& - &*X(3798)-JVS(30743)*X(3803)-JVS(30744)*X(3823)-JVS(30745)*X(4003)-JVS(30746)*X(4133)-JVS(30747)*X(4432)& - &-JVS(30748)*X(4483)-JVS(30749)*X(4529)-JVS(30750)*X(4626)-JVS(30751)*X(4892) - X(4987) = X(4987)-JVS(30760)*X(148)-JVS(30761)*X(1351) - X(4989) = X(4989)-JVS(30774)*X(688)-JVS(30775)*X(1407)-JVS(30776)*X(1742)-JVS(30777)*X(1791)-JVS(30778)*X(2685)& - &-JVS(30779)*X(2836)-JVS(30780)*X(4756)-JVS(30781)*X(4988) - X(4990) = X(4990)-JVS(30790)*X(876)-JVS(30791)*X(2755)-JVS(30792)*X(3875)-JVS(30793)*X(4733) - X(4991) = X(4991)-JVS(30801)*X(1099)-JVS(30802)*X(1236)-JVS(30803)*X(2910)-JVS(30804)*X(4468)-JVS(30805)*X(4618)& - &-JVS(30806)*X(4714)-JVS(30807)*X(4767)-JVS(30808)*X(4769)-JVS(30809)*X(4782)-JVS(30810)*X(4811)-JVS(30811)& - &*X(4852)-JVS(30812)*X(4858)-JVS(30813)*X(4876)-JVS(30814)*X(4880)-JVS(30815)*X(4911)-JVS(30816)*X(4990) - X(4992) = X(4992)-JVS(30827)*X(1299)-JVS(30828)*X(1330)-JVS(30829)*X(4018)-JVS(30830)*X(4685) - X(4993) = X(4993)-JVS(30838)*X(3280)-JVS(30839)*X(3290) - X(4994) = X(4994)-JVS(30847)*X(832)-JVS(30848)*X(3023)-JVS(30849)*X(3877)-JVS(30850)*X(4886) - X(4995) = X(4995)-JVS(30858)*X(258)-JVS(30859)*X(1475)-JVS(30860)*X(1686)-JVS(30861)*X(2456)-JVS(30862)*X(3580)& - &-JVS(30863)*X(4158)-JVS(30864)*X(4248)-JVS(30865)*X(4360)-JVS(30866)*X(4540)-JVS(30867)*X(4785)-JVS(30868)& - &*X(4882)-JVS(30869)*X(4962) - X(4996) = X(4996)-JVS(30884)*X(557)-JVS(30885)*X(1935)-JVS(30886)*X(2009)-JVS(30887)*X(3415)-JVS(30888)*X(3580)& - &-JVS(30889)*X(4158)-JVS(30890)*X(4354)-JVS(30891)*X(4360)-JVS(30892)*X(4882)-JVS(30893)*X(4883) - X(4997) = X(4997)-JVS(30901)*X(2104)-JVS(30902)*X(2148)-JVS(30903)*X(4094) - X(4998) = X(4998)-JVS(30913)*X(3210)-JVS(30914)*X(4093) - X(4999) = X(4999)-JVS(30924)*X(1642)-JVS(30925)*X(2081) - X(5000) = X(5000)-JVS(30935)*X(1369)-JVS(30936)*X(1671)-JVS(30937)*X(1882)-JVS(30938)*X(2037)-JVS(30939)*X(2110)& - &-JVS(30940)*X(2434)-JVS(30941)*X(2675)-JVS(30942)*X(2815)-JVS(30943)*X(2869)-JVS(30944)*X(3020)-JVS(30945)& - &*X(3256)-JVS(30946)*X(3299)-JVS(30947)*X(3462)-JVS(30948)*X(3603)-JVS(30949)*X(3623)-JVS(30950)*X(4112)& - &-JVS(30951)*X(4316)-JVS(30952)*X(4364)-JVS(30953)*X(4512)-JVS(30954)*X(4553)-JVS(30955)*X(4554)-JVS(30956)& - &*X(4555)-JVS(30957)*X(4585)-JVS(30958)*X(4763)-JVS(30959)*X(4780)-JVS(30960)*X(4783)-JVS(30961)*X(4853)& - &-JVS(30962)*X(4854)-JVS(30963)*X(4908) - X(5001) = X(5001)-JVS(30981)*X(915)-JVS(30982)*X(1084)-JVS(30983)*X(3438)-JVS(30984)*X(3457)-JVS(30985)*X(3569)& - &-JVS(30986)*X(3581)-JVS(30987)*X(3610)-JVS(30988)*X(3614)-JVS(30989)*X(4125)-JVS(30990)*X(4400)-JVS(30991)& - &*X(4568)-JVS(30992)*X(4569)-JVS(30993)*X(4684)-JVS(30994)*X(4718)-JVS(30995)*X(4725)-JVS(30996)*X(4729)& - &-JVS(30997)*X(4749)-JVS(30998)*X(4758)-JVS(30999)*X(4893)-JVS(31000)*X(4905)-JVS(31001)*X(4982) - X(5003) = X(5003)-JVS(31018)*X(2491)-JVS(31019)*X(3392)-JVS(31020)*X(3563)-JVS(31021)*X(4378) - X(5004) = X(5004)-JVS(31031)*X(729)-JVS(31032)*X(1238)-JVS(31033)*X(1320)-JVS(31034)*X(1762)-JVS(31035)*X(2139)& - &-JVS(31036)*X(3008)-JVS(31037)*X(3248)-JVS(31038)*X(3913)-JVS(31039)*X(4278)-JVS(31040)*X(4350)-JVS(31041)& - &*X(4552)-JVS(31042)*X(4789)-JVS(31043)*X(4812)-JVS(31044)*X(4926)-JVS(31045)*X(4957)-JVS(31046)*X(4996) - X(5005) = X(5005)-JVS(31058)*X(2491)-JVS(31059)*X(3532)-JVS(31060)*X(3555)-JVS(31061)*X(4378) - X(5006) = X(5006)-JVS(31071)*X(158)-JVS(31072)*X(180)-JVS(31073)*X(880)-JVS(31074)*X(1237)-JVS(31075)*X(1317)& - &-JVS(31076)*X(1493)-JVS(31077)*X(1996)-JVS(31078)*X(2155)-JVS(31079)*X(2273)-JVS(31080)*X(2312)-JVS(31081)& - &*X(2651)-JVS(31082)*X(4197)-JVS(31083)*X(4315)-JVS(31084)*X(4567)-JVS(31085)*X(4638)-JVS(31086)*X(4855)& - &-JVS(31087)*X(4953) - X(5007) = X(5007)-JVS(31099)*X(393)-JVS(31100)*X(757)-JVS(31101)*X(1134)-JVS(31102)*X(2503)-JVS(31103)*X(3465)& - &-JVS(31104)*X(3466)-JVS(31105)*X(4737) - X(5008) = X(5008)-JVS(31117)*X(1134)-JVS(31118)*X(1607)-JVS(31119)*X(2197)-JVS(31120)*X(2684)-JVS(31121)*X(4697)& - &-JVS(31122)*X(4737) - X(5009) = X(5009)-JVS(31132)*X(1778)-JVS(31133)*X(2278)-JVS(31134)*X(3007)-JVS(31135)*X(4521)-JVS(31136)*X(4593)& - &-JVS(31137)*X(4689) - X(5010) = X(5010)-JVS(31149)*X(435)-JVS(31150)*X(1506)-JVS(31151)*X(1564)-JVS(31152)*X(1798)-JVS(31153)*X(2543)& - &-JVS(31154)*X(2653)-JVS(31155)*X(3869)-JVS(31156)*X(3967)-JVS(31157)*X(4733)-JVS(31158)*X(4974) - X(5011) = X(5011)-JVS(31165)*X(1378)-JVS(31166)*X(1432)-JVS(31167)*X(3366)-JVS(31168)*X(3624)-JVS(31169)*X(3702)& - &-JVS(31170)*X(4569)-JVS(31171)*X(4680)-JVS(31172)*X(4801)-JVS(31173)*X(4802)-JVS(31174)*X(4934)-JVS(31175)& - &*X(4935)-JVS(31176)*X(4975)-JVS(31177)*X(4979)-JVS(31178)*X(4992)-JVS(31179)*X(5010) - X(5012) = X(5012)-JVS(31192)*X(874)-JVS(31193)*X(1957)-JVS(31194)*X(2877)-JVS(31195)*X(3310)-JVS(31196)*X(4143)& - &-JVS(31197)*X(4601)-JVS(31198)*X(4837)-JVS(31199)*X(4874)-JVS(31200)*X(4878)-JVS(31201)*X(4959) - X(5014) = X(5014)-JVS(31219)*X(900)-JVS(31220)*X(1834)-JVS(31221)*X(2469)-JVS(31222)*X(2648)-JVS(31223)*X(4754)& - &-JVS(31224)*X(4988) - X(5015) = X(5015)-JVS(31234)*X(2147) - X(5016) = X(5016)-JVS(31241)*X(506)-JVS(31242)*X(936)-JVS(31243)*X(1249)-JVS(31244)*X(2655)-JVS(31245)*X(3470)& - &-JVS(31246)*X(4107)-JVS(31247)*X(4548)-JVS(31248)*X(4636) - X(5017) = X(5017)-JVS(31259)*X(993)-JVS(31260)*X(2265)-JVS(31261)*X(2305)-JVS(31262)*X(2708)-JVS(31263)*X(4145)& - &-JVS(31264)*X(4842) - X(5018) = X(5018)-JVS(31275)*X(712)-JVS(31276)*X(1675)-JVS(31277)*X(2454)-JVS(31278)*X(3692)-JVS(31279)*X(3752)& - &-JVS(31280)*X(4621)-JVS(31281)*X(4952) - X(5019) = X(5019)-JVS(31292)*X(933)-JVS(31293)*X(1018)-JVS(31294)*X(4660) - X(5020) = X(5020)-JVS(31302)*X(906)-JVS(31303)*X(1541)-JVS(31304)*X(1934)-JVS(31305)*X(4867)-JVS(31306)*X(5019) - X(5021) = X(5021)-JVS(31315)*X(1277)-JVS(31316)*X(1608)-JVS(31317)*X(2658)-JVS(31318)*X(4910) - X(5022) = X(5022)-JVS(31327)*X(3485)-JVS(31328)*X(4786) - X(5023) = X(5023)-JVS(31336)*X(875)-JVS(31337)*X(1787)-JVS(31338)*X(2320)-JVS(31339)*X(2345)-JVS(31340)*X(2475)& - &-JVS(31341)*X(2486)-JVS(31342)*X(2498)-JVS(31343)*X(2596)-JVS(31344)*X(3267)-JVS(31345)*X(3495)-JVS(31346)& - &*X(3611)-JVS(31347)*X(3620)-JVS(31348)*X(4209)-JVS(31349)*X(4250)-JVS(31350)*X(4366)-JVS(31351)*X(4382)& - &-JVS(31352)*X(4565)-JVS(31353)*X(4578)-JVS(31354)*X(4599)-JVS(31355)*X(4625)-JVS(31356)*X(4776)-JVS(31357)& - &*X(4816)-JVS(31358)*X(4851) - X(5024) = X(5024)-JVS(31374)*X(2770)-JVS(31375)*X(3621) - X(5025) = X(5025)-JVS(31383)*X(3204) - X(5026) = X(5026)-JVS(31391)*X(638)-JVS(31392)*X(1132)-JVS(31393)*X(1632)-JVS(31394)*X(2092)-JVS(31395)*X(2614)& - &-JVS(31396)*X(2625)-JVS(31397)*X(2787)-JVS(31398)*X(2982)-JVS(31399)*X(4524)-JVS(31400)*X(4642)-JVS(31401)& - &*X(4704)-JVS(31402)*X(4737)-JVS(31403)*X(4811)-JVS(31404)*X(4886) - X(5027) = X(5027)-JVS(31418)*X(1107)-JVS(31419)*X(1756)-JVS(31420)*X(2637)-JVS(31421)*X(4098)-JVS(31422)*X(4953) - X(5028) = X(5028)-JVS(31431)*X(2359) - X(5029) = X(5029)-JVS(31440)*X(1462)-JVS(31441)*X(1565)-JVS(31442)*X(2023)-JVS(31443)*X(2058)-JVS(31444)*X(2951)& - &-JVS(31445)*X(3090)-JVS(31446)*X(3744)-JVS(31447)*X(3921)-JVS(31448)*X(3936)-JVS(31449)*X(3943)-JVS(31450)& - &*X(4492)-JVS(31451)*X(4925) - X(5030) = X(5030)-JVS(31460)*X(52)-JVS(31461)*X(1486)-JVS(31462)*X(2605)-JVS(31463)*X(4133) - X(5031) = X(5031)-JVS(31469)*X(713)-JVS(31470)*X(2248)-JVS(31471)*X(2643)-JVS(31472)*X(2671)-JVS(31473)*X(2845)& - &-JVS(31474)*X(3054)-JVS(31475)*X(3251)-JVS(31476)*X(3262)-JVS(31477)*X(3274)-JVS(31478)*X(3593)-JVS(31479)& - &*X(3624)-JVS(31480)*X(3702)-JVS(31481)*X(3742)-JVS(31482)*X(3897)-JVS(31483)*X(3918)-JVS(31484)*X(3979)& - &-JVS(31485)*X(4202)-JVS(31486)*X(4323)-JVS(31487)*X(4344)-JVS(31488)*X(4384)-JVS(31489)*X(4448)-JVS(31490)& - &*X(4468)-JVS(31491)*X(4558)-JVS(31492)*X(4568)-JVS(31493)*X(4674)-JVS(31494)*X(4680)-JVS(31495)*X(4780)& - &-JVS(31496)*X(4782)-JVS(31497)*X(4811)-JVS(31498)*X(4911)-JVS(31499)*X(4935)-JVS(31500)*X(4992)-JVS(31501)& - &*X(5030) - X(5032) = X(5032)-JVS(31513)*X(1153)-JVS(31514)*X(3583)-JVS(31515)*X(4974) - X(5033) = X(5033)-JVS(31522)*X(3197) - X(5034) = X(5034)-JVS(31530)*X(2484)-JVS(31531)*X(2582)-JVS(31532)*X(2714)-JVS(31533)*X(3089)-JVS(31534)*X(3238)& - &-JVS(31535)*X(3458)-JVS(31536)*X(3811)-JVS(31537)*X(4667)-JVS(31538)*X(4897) - X(5035) = X(5035)-JVS(31547)*X(3428) - X(5036) = X(5036)-JVS(31556)*X(2240)-JVS(31557)*X(2335)-JVS(31558)*X(3154)-JVS(31559)*X(3203)-JVS(31560)*X(3628)& - &-JVS(31561)*X(3835)-JVS(31562)*X(3929)-JVS(31563)*X(4460)-JVS(31564)*X(4783)-JVS(31565)*X(5015) - X(5037) = X(5037)-JVS(31574)*X(2356)-JVS(31575)*X(2357)-JVS(31576)*X(2477)-JVS(31577)*X(2569)-JVS(31578)*X(2837)& - &-JVS(31579)*X(3316)-JVS(31580)*X(3452)-JVS(31581)*X(3468)-JVS(31582)*X(3754)-JVS(31583)*X(4529)-JVS(31584)& - &*X(4692)-JVS(31585)*X(4893)-JVS(31586)*X(4899)-JVS(31587)*X(4948)-JVS(31588)*X(5030) - X(5038) = X(5038)-JVS(31596)*X(141)-JVS(31597)*X(1192)-JVS(31598)*X(2410)-JVS(31599)*X(2511)-JVS(31600)*X(3416)& - &-JVS(31601)*X(3644)-JVS(31602)*X(4199)-JVS(31603)*X(4308)-JVS(31604)*X(4358)-JVS(31605)*X(4603)-JVS(31606)& - &*X(4708)-JVS(31607)*X(4720)-JVS(31608)*X(4775)-JVS(31609)*X(4815)-JVS(31610)*X(4823)-JVS(31611)*X(4877)& - &-JVS(31612)*X(4928)-JVS(31613)*X(4932) - X(5039) = X(5039)-JVS(31627)*X(362)-JVS(31628)*X(3638)-JVS(31629)*X(3990)-JVS(31630)*X(4526)-JVS(31631)*X(4678)& - &-JVS(31632)*X(4921)-JVS(31633)*X(4970)-JVS(31634)*X(4988) - X(5040) = X(5040)-JVS(31648)*X(2489)-JVS(31649)*X(4615) - X(5041) = X(5041)-JVS(31658)*X(1624)-JVS(31659)*X(2470)-JVS(31660)*X(4988)-JVS(31661)*X(4989) - X(5042) = X(5042)-JVS(31670)*X(1730)-JVS(31671)*X(1885)-JVS(31672)*X(2337)-JVS(31673)*X(3024)-JVS(31674)*X(3032)& - &-JVS(31675)*X(4515)-JVS(31676)*X(4696) - X(5043) = X(5043)-JVS(31685)*X(946)-JVS(31686)*X(2135)-JVS(31687)*X(4419)-JVS(31688)*X(4508) - X(5044) = X(5044)-JVS(31697)*X(619)-JVS(31698)*X(1511)-JVS(31699)*X(1615)-JVS(31700)*X(2022)-JVS(31701)*X(2141)& - &-JVS(31702)*X(2688)-JVS(31703)*X(4135) - X(5045) = X(5045)-JVS(31712)*X(1688)-JVS(31713)*X(2409) - X(5046) = X(5046)-JVS(31720)*X(4213)-JVS(31721)*X(4247)-JVS(31722)*X(4250)-JVS(31723)*X(4258)-JVS(31724)*X(4264)& - &-JVS(31725)*X(4282)-JVS(31726)*X(4286)-JVS(31727)*X(4302)-JVS(31728)*X(4320)-JVS(31729)*X(4526)-JVS(31730)& - &*X(4544)-JVS(31731)*X(4551)-JVS(31732)*X(4556)-JVS(31733)*X(4600)-JVS(31734)*X(4601)-JVS(31735)*X(4621)& - &-JVS(31736)*X(4668)-JVS(31737)*X(4677)-JVS(31738)*X(4691)-JVS(31739)*X(4741)-JVS(31740)*X(4757)-JVS(31741)& - &*X(4776)-JVS(31742)*X(4786)-JVS(31743)*X(4819)-JVS(31744)*X(4824)-JVS(31745)*X(4828)-JVS(31746)*X(4838)& - &-JVS(31747)*X(4843)-JVS(31748)*X(4868)-JVS(31749)*X(4869)-JVS(31750)*X(4906)-JVS(31751)*X(4908)-JVS(31752)& - &*X(4912)-JVS(31753)*X(4919)-JVS(31754)*X(4941)-JVS(31755)*X(4943)-JVS(31756)*X(4951)-JVS(31757)*X(4952)& - &-JVS(31758)*X(4956)-JVS(31759)*X(4963)-JVS(31760)*X(4970)-JVS(31761)*X(4988)-JVS(31762)*X(4997)-JVS(31763)& - &*X(4998)-JVS(31764)*X(4999)-JVS(31765)*X(5013)-JVS(31766)*X(5024)-JVS(31767)*X(5030)-JVS(31768)*X(5040) - X(5047) = X(5047)-JVS(31814)*X(386)-JVS(31815)*X(4832) - X(5048) = X(5048)-JVS(31826)*X(4988) - X(5049) = X(5049)-JVS(31835)*X(238)-JVS(31836)*X(1352)-JVS(31837)*X(1971)-JVS(31838)*X(3102)-JVS(31839)*X(3658)& - &-JVS(31840)*X(3670) - X(5050) = X(5050)-JVS(31848)*X(1365)-JVS(31849)*X(2099)-JVS(31850)*X(2100)-JVS(31851)*X(3658) - X(5052) = X(5052)-JVS(31864)*X(585)-JVS(31865)*X(1509)-JVS(31866)*X(1687)-JVS(31867)*X(1863)-JVS(31868)*X(2315)& - &-JVS(31869)*X(2704)-JVS(31870)*X(4761) - X(5053) = X(5053)-JVS(31880)*X(1037)-JVS(31881)*X(1100)-JVS(31882)*X(2774)-JVS(31883)*X(2803)-JVS(31884)*X(3759)& - &-JVS(31885)*X(4053)-JVS(31886)*X(4735)-JVS(31887)*X(4804)-JVS(31888)*X(4889) - X(5054) = X(5054)-JVS(31901)*X(1347)-JVS(31902)*X(2209)-JVS(31903)*X(2703)-JVS(31904)*X(3849)-JVS(31905)*X(4117)& - &-JVS(31906)*X(4120)-JVS(31907)*X(5044) - X(5055) = X(5055)-JVS(31917)*X(1856)-JVS(31918)*X(2247)-JVS(31919)*X(2251)-JVS(31920)*X(2800)-JVS(31921)*X(2884)& - &-JVS(31922)*X(2939)-JVS(31923)*X(3079)-JVS(31924)*X(3212)-JVS(31925)*X(3938)-JVS(31926)*X(4207)-JVS(31927)& - &*X(4705)-JVS(31928)*X(4722)-JVS(31929)*X(4778)-JVS(31930)*X(4848) - X(5056) = X(5056)-JVS(31943)*X(1488)-JVS(31944)*X(2385) - X(5057) = X(5057)-JVS(31951)*X(896)-JVS(31952)*X(1557)-JVS(31953)*X(1994)-JVS(31954)*X(2459)-JVS(31955)*X(2848)& - &-JVS(31956)*X(2891)-JVS(31957)*X(3528)-JVS(31958)*X(4629)-JVS(31959)*X(4844)-JVS(31960)*X(4967)-JVS(31961)& - &*X(5056) - X(5058) = X(5058)-JVS(31975)*X(1698)-JVS(31976)*X(2200)-JVS(31977)*X(2955)-JVS(31978)*X(3022)-JVS(31979)*X(3342)& - &-JVS(31980)*X(3795)-JVS(31981)*X(3805)-JVS(31982)*X(3812)-JVS(31983)*X(3824)-JVS(31984)*X(4177)-JVS(31985)& - &*X(4396)-JVS(31986)*X(4399)-JVS(31987)*X(4513)-JVS(31988)*X(4649)-JVS(31989)*X(4950) - X(5059) = X(5059)-JVS(31997)*X(2471)-JVS(31998)*X(3478)-JVS(31999)*X(3712)-JVS(32000)*X(4029)-JVS(32001)*X(4062)& - &-JVS(32002)*X(4071)-JVS(32003)*X(4086)-JVS(32004)*X(4195)-JVS(32005)*X(4271)-JVS(32006)*X(4273)-JVS(32007)& - &*X(4398)-JVS(32008)*X(4467)-JVS(32009)*X(4491)-JVS(32010)*X(4531)-JVS(32011)*X(4603)-JVS(32012)*X(4619)& - &-JVS(32013)*X(4743)-JVS(32014)*X(4799)-JVS(32015)*X(4859)-JVS(32016)*X(4916)-JVS(32017)*X(4917)-JVS(32018)& - &*X(4930)-JVS(32019)*X(4965)-JVS(32020)*X(4986)-JVS(32021)*X(5034)-JVS(32022)*X(5058) - X(5060) = X(5060)-JVS(32036)*X(434)-JVS(32037)*X(1041)-JVS(32038)*X(1138)-JVS(32039)*X(1701)-JVS(32040)*X(4501)& - &-JVS(32041)*X(4512)-JVS(32042)*X(4755)-JVS(32043)*X(4834)-JVS(32044)*X(4974) - X(5061) = X(5061)-JVS(32056)*X(1641)-JVS(32057)*X(1753) - X(5062) = X(5062)-JVS(32064)*X(438)-JVS(32065)*X(1074)-JVS(32066)*X(1516)-JVS(32067)*X(1817)-JVS(32068)*X(2435)& - &-JVS(32069)*X(2487)-JVS(32070)*X(3594)-JVS(32071)*X(4412)-JVS(32072)*X(4527)-JVS(32073)*X(4634)-JVS(32074)& - &*X(5042)-JVS(32075)*X(5061) - X(5063) = X(5063)-JVS(32085)*X(1838)-JVS(32086)*X(2555)-JVS(32087)*X(2775)-JVS(32088)*X(2934)-JVS(32089)*X(3873)& - &-JVS(32090)*X(3989)-JVS(32091)*X(4696)-JVS(32092)*X(5061) - X(5064) = X(5064)-JVS(32099)*X(488)-JVS(32100)*X(1340)-JVS(32101)*X(1721)-JVS(32102)*X(2555)-JVS(32103)*X(2775)& - &-JVS(32104)*X(2934)-JVS(32105)*X(3873)-JVS(32106)*X(3989)-JVS(32107)*X(4696)-JVS(32108)*X(5061) - X(5065) = X(5065)-JVS(32115)*X(253) - X(5066) = X(5066)-JVS(32122)*X(1623)-JVS(32123)*X(2117)-JVS(32124)*X(2559)-JVS(32125)*X(2656)-JVS(32126)*X(3805)& - &-JVS(32127)*X(4683)-JVS(32128)*X(4829) - X(5067) = X(5067)-JVS(32136)*X(1785)-JVS(32137)*X(2344)-JVS(32138)*X(2880)-JVS(32139)*X(3208)-JVS(32140)*X(4579)& - &-JVS(32141)*X(4661)-JVS(32142)*X(4719)-JVS(32143)*X(4896)-JVS(32144)*X(5051) - X(5068) = X(5068)-JVS(32156)*X(1636)-JVS(32157)*X(1951)-JVS(32158)*X(2601)-JVS(32159)*X(2915)-JVS(32160)*X(3795)& - &-JVS(32161)*X(4635)-JVS(32162)*X(4675) - X(5069) = X(5069)-JVS(32170)*X(1258)-JVS(32171)*X(2040)-JVS(32172)*X(2041)-JVS(32173)*X(3634) - X(5070) = X(5070)-JVS(32181)*X(3186)-JVS(32182)*X(4017)-JVS(32183)*X(4018)-JVS(32184)*X(4081)-JVS(32185)*X(4272) - X(5071) = X(5071)-JVS(32197)*X(126)-JVS(32198)*X(1568)-JVS(32199)*X(2005)-JVS(32200)*X(2144)-JVS(32201)*X(2235)& - &-JVS(32202)*X(2261)-JVS(32203)*X(2677)-JVS(32204)*X(2885)-JVS(32205)*X(3205)-JVS(32206)*X(3847)-JVS(32207)& - &*X(3991)-JVS(32208)*X(4260)-JVS(32209)*X(4359)-JVS(32210)*X(4411)-JVS(32211)*X(4412)-JVS(32212)*X(4755)& - &-JVS(32213)*X(4974)-JVS(32214)*X(5010) - X(5072) = X(5072)-JVS(32225)*X(772)-JVS(32226)*X(1264)-JVS(32227)*X(2032)-JVS(32228)*X(2033)-JVS(32229)*X(2984)& - &-JVS(32230)*X(3715)-JVS(32231)*X(4485)-JVS(32232)*X(4789) - X(5073) = X(5073)-JVS(32240)*X(1350)-JVS(32241)*X(2377)-JVS(32242)*X(2458)-JVS(32243)*X(2533)-JVS(32244)*X(3335)& - &-JVS(32245)*X(3436)-JVS(32246)*X(3907)-JVS(32247)*X(4849) - X(5074) = X(5074)-JVS(32258)*X(3625)-JVS(32259)*X(4615) - X(5075) = X(5075)-JVS(32267)*X(2735)-JVS(32268)*X(3272)-JVS(32269)*X(4378) - X(5076) = X(5076)-JVS(32278)*X(4937)-JVS(32279)*X(4950)-JVS(32280)*X(5030) - X(5077) = X(5077)-JVS(32287)*X(1688)-JVS(32288)*X(2192) - X(5078) = X(5078)-JVS(32295)*X(291)-JVS(32296)*X(828)-JVS(32297)*X(1069)-JVS(32298)*X(1635)-JVS(32299)*X(3924)& - &-JVS(32300)*X(4771)-JVS(32301)*X(5077) - X(5079) = X(5079)-JVS(32309)*X(695)-JVS(32310)*X(1041)-JVS(32311)*X(1556)-JVS(32312)*X(2255)-JVS(32313)*X(2300)& - &-JVS(32314)*X(2680)-JVS(32315)*X(3275)-JVS(32316)*X(3291)-JVS(32317)*X(4105)-JVS(32318)*X(4501)-JVS(32319)& - &*X(4820)-JVS(32320)*X(4834)-JVS(32321)*X(5045)-JVS(32322)*X(5077) - X(5080) = X(5080)-JVS(32332)*X(790)-JVS(32333)*X(2475)-JVS(32334)*X(2777)-JVS(32335)*X(3250)-JVS(32336)*X(3495)& - &-JVS(32337)*X(3501)-JVS(32338)*X(3514)-JVS(32339)*X(3550)-JVS(32340)*X(3611)-JVS(32341)*X(4321)-JVS(32342)& - &*X(4564)-JVS(32343)*X(4625)-JVS(32344)*X(4636)-JVS(32345)*X(4711)-JVS(32346)*X(4786)-JVS(32347)*X(5016)& - &-JVS(32348)*X(5020)-JVS(32349)*X(5033)-JVS(32350)*X(5075) - X(5081) = X(5081)-JVS(32371)*X(3689) - X(5082) = X(5082)-JVS(32378)*X(1688)-JVS(32379)*X(2264) - X(5083) = X(5083)-JVS(32386)*X(310)-JVS(32387)*X(740)-JVS(32388)*X(1135)-JVS(32389)*X(1585)-JVS(32390)*X(2231)& - &-JVS(32391)*X(2352)-JVS(32392)*X(2362)-JVS(32393)*X(2958)-JVS(32394)*X(3962)-JVS(32395)*X(4148)-JVS(32396)& - &*X(4605)-JVS(32397)*X(4953) - X(5084) = X(5084)-JVS(32405)*X(993)-JVS(32406)*X(1394)-JVS(32407)*X(4842)-JVS(32408)*X(5017)-JVS(32409)*X(5044)& - &-JVS(32410)*X(5083) - X(5085) = X(5085)-JVS(32419)*X(537)-JVS(32420)*X(553)-JVS(32421)*X(662)-JVS(32422)*X(793)-JVS(32423)*X(880)-JVS(32424)& - &*X(1731)-JVS(32425)*X(1890)-JVS(32426)*X(1996)-JVS(32427)*X(2007)-JVS(32428)*X(2017)-JVS(32429)*X(2561)& - &-JVS(32430)*X(2708)-JVS(32431)*X(2750)-JVS(32432)*X(3949)-JVS(32433)*X(3950)-JVS(32434)*X(4150)-JVS(32435)& - &*X(4226)-JVS(32436)*X(4681)-JVS(32437)*X(5017)-JVS(32438)*X(5044)-JVS(32439)*X(5083)-JVS(32440)*X(5084) - X(5086) = X(5086)-JVS(32451)*X(527)-JVS(32452)*X(714)-JVS(32453)*X(799)-JVS(32454)*X(1428)-JVS(32455)*X(1528)& - &-JVS(32456)*X(1630)-JVS(32457)*X(1631)-JVS(32458)*X(1811)-JVS(32459)*X(1812)-JVS(32460)*X(1823)-JVS(32461)& - &*X(1932)-JVS(32462)*X(2386)-JVS(32463)*X(2532)-JVS(32464)*X(2636)-JVS(32465)*X(2661)-JVS(32466)*X(3223)& - &-JVS(32467)*X(3408)-JVS(32468)*X(3750)-JVS(32469)*X(3845)-JVS(32470)*X(4236)-JVS(32471)*X(4340)-JVS(32472)& - &*X(4545)-JVS(32473)*X(4600)-JVS(32474)*X(4664)-JVS(32475)*X(4900)-JVS(32476)*X(4910)-JVS(32477)*X(4926)& - &-JVS(32478)*X(4957)-JVS(32479)*X(4996)-JVS(32480)*X(5081)-JVS(32481)*X(5083) - X(5087) = X(5087)-JVS(32492)*X(1853)-JVS(32493)*X(1872)-JVS(32494)*X(2421)-JVS(32495)*X(2433)-JVS(32496)*X(2525)& - &-JVS(32497)*X(2805)-JVS(32498)*X(3044)-JVS(32499)*X(3277)-JVS(32500)*X(4353)-JVS(32501)*X(4370)-JVS(32502)& - &*X(4640)-JVS(32503)*X(4695)-JVS(32504)*X(4840)-JVS(32505)*X(4915)-JVS(32506)*X(4923) - X(5088) = X(5088)-JVS(32520)*X(1196)-JVS(32521)*X(2496)-JVS(32522)*X(3946)-JVS(32523)*X(4878) - X(5089) = X(5089)-JVS(32531)*X(756)-JVS(32532)*X(1600)-JVS(32533)*X(3258)-JVS(32534)*X(3332)-JVS(32535)*X(3624)& - &-JVS(32536)*X(3818)-JVS(32537)*X(4004)-JVS(32538)*X(4055)-JVS(32539)*X(4807)-JVS(32540)*X(4935) - X(5090) = X(5090)-JVS(32548)*X(1547)-JVS(32549)*X(3311)-JVS(32550)*X(4313)-JVS(32551)*X(5077)-JVS(32552)*X(5082) - X(5091) = X(5091)-JVS(32560)*X(194)-JVS(32561)*X(3621)-JVS(32562)*X(4107)-JVS(32563)*X(5013) - X(5092) = X(5092)-JVS(32572)*X(4988) - X(5093) = X(5093)-JVS(32581)*X(841)-JVS(32582)*X(1054)-JVS(32583)*X(1172)-JVS(32584)*X(4111)-JVS(32585)*X(4372)& - &-JVS(32586)*X(4774) - X(5094) = X(5094)-JVS(32595)*X(1682)-JVS(32596)*X(1857)-JVS(32597)*X(2477)-JVS(32598)*X(3462)-JVS(32599)*X(3929)& - &-JVS(32600)*X(3993)-JVS(32601)*X(4460)-JVS(32602)*X(4783)-JVS(32603)*X(4893)-JVS(32604)*X(4905)-JVS(32605)& - &*X(4936)-JVS(32606)*X(5001)-JVS(32607)*X(5002)-JVS(32608)*X(5015)-JVS(32609)*X(5025)-JVS(32610)*X(5035) - X(5095) = X(5095)-JVS(32626)*X(625)-JVS(32627)*X(728)-JVS(32628)*X(1237)-JVS(32629)*X(2071)-JVS(32630)*X(2155)& - &-JVS(32631)*X(2312)-JVS(32632)*X(2879)-JVS(32633)*X(4197)-JVS(32634)*X(4315)-JVS(32635)*X(4567)-JVS(32636)& - &*X(4638)-JVS(32637)*X(4855)-JVS(32638)*X(4953)-JVS(32639)*X(5083) - X(5096) = X(5096)-JVS(32648)*X(850)-JVS(32649)*X(1778)-JVS(32650)*X(4521) - X(5097) = X(5097)-JVS(32659)*X(230)-JVS(32660)*X(988)-JVS(32661)*X(3298)-JVS(32662)*X(3471)-JVS(32663)*X(3822)& - &-JVS(32664)*X(3868)-JVS(32665)*X(3879)-JVS(32666)*X(4642)-JVS(32667)*X(4800)-JVS(32668)*X(4901)-JVS(32669)& - &*X(4994)-JVS(32670)*X(5045)-JVS(32671)*X(5064) - X(5098) = X(5098)-JVS(32680)*X(477)-JVS(32681)*X(2397)-JVS(32682)*X(2715)-JVS(32683)*X(3031)-JVS(32684)*X(3384)& - &-JVS(32685)*X(3556)-JVS(32686)*X(3726)-JVS(32687)*X(3780)-JVS(32688)*X(3945)-JVS(32689)*X(4334)-JVS(32690)& - &*X(4416)-JVS(32691)*X(4480)-JVS(32692)*X(4505)-JVS(32693)*X(4601)-JVS(32694)*X(4697)-JVS(32695)*X(4704)& - &-JVS(32696)*X(4937)-JVS(32697)*X(5026)-JVS(32698)*X(5030)-JVS(32699)*X(5061)-JVS(32700)*X(5063)-JVS(32701)& - &*X(5064)-JVS(32702)*X(5076)-JVS(32703)*X(5097) - X(5099) = X(5099)-JVS(32717)*X(1251)-JVS(32718)*X(1736)-JVS(32719)*X(2160)-JVS(32720)*X(2184)-JVS(32721)*X(2587)& - &-JVS(32722)*X(3891)-JVS(32723)*X(3963)-JVS(32724)*X(3971)-JVS(32725)*X(4988) - X(5100) = X(5100)-JVS(32734)*X(170)-JVS(32735)*X(994)-JVS(32736)*X(2793)-JVS(32737)*X(3433)-JVS(32738)*X(3476)& - &-JVS(32739)*X(3486)-JVS(32740)*X(3618)-JVS(32741)*X(4325)-JVS(32742)*X(4706)-JVS(32743)*X(4803)-JVS(32744)& - &*X(4904)-JVS(32745)*X(4946)-JVS(32746)*X(4968)-JVS(32747)*X(4971)-JVS(32748)*X(4982)-JVS(32749)*X(4985)& - &-JVS(32750)*X(4993)-JVS(32751)*X(5002)-JVS(32752)*X(5025)-JVS(32753)*X(5037)-JVS(32754)*X(5076)-JVS(32755)& - &*X(5089) - X(5101) = X(5101)-JVS(32768)*X(547)-JVS(32769)*X(630)-JVS(32770)*X(1380)-JVS(32771)*X(1826)-JVS(32772)*X(2675)& - &-JVS(32773)*X(3207)-JVS(32774)*X(3528)-JVS(32775)*X(3892)-JVS(32776)*X(4698)-JVS(32777)*X(4967)-JVS(32778)& - &*X(4984)-JVS(32779)*X(5032)-JVS(32780)*X(5056)-JVS(32781)*X(5057)-JVS(32782)*X(5072)-JVS(32783)*X(5077)& - &-JVS(32784)*X(5082)-JVS(32785)*X(5090) - X(5102) = X(5102)-JVS(32798)*X(2479)-JVS(32799)*X(3133)-JVS(32800)*X(3832)-JVS(32801)*X(3996)-JVS(32802)*X(4084)& - &-JVS(32803)*X(5030)-JVS(32804)*X(5037)-JVS(32805)*X(5089) - X(5103) = X(5103)-JVS(32818)*X(1857)-JVS(32819)*X(2287)-JVS(32820)*X(2632)-JVS(32821)*X(3451)-JVS(32822)*X(3802)& - &-JVS(32823)*X(4633)-JVS(32824)*X(4905) - X(5104) = X(5104)-JVS(32832)*X(883)-JVS(32833)*X(1986)-JVS(32834)*X(2304)-JVS(32835)*X(2673)-JVS(32836)*X(2719)& - &-JVS(32837)*X(3420)-JVS(32838)*X(3425)-JVS(32839)*X(3497)-JVS(32840)*X(3855)-JVS(32841)*X(4172)-JVS(32842)& - &*X(4319)-JVS(32843)*X(4363)-JVS(32844)*X(4394)-JVS(32845)*X(4679)-JVS(32846)*X(4764)-JVS(32847)*X(4989)& - &-JVS(32848)*X(5014) - X(5105) = X(5105)-JVS(32859)*X(2584)-JVS(32860)*X(2953)-JVS(32861)*X(4392)-JVS(32862)*X(4439)-JVS(32863)*X(4597)& - &-JVS(32864)*X(4779)-JVS(32865)*X(5054)-JVS(32866)*X(5084) - X(5106) = X(5106)-JVS(32879)*X(7)-JVS(32880)*X(1111)-JVS(32881)*X(1466)-JVS(32882)*X(1790)-JVS(32883)*X(2026)& - &-JVS(32884)*X(2472)-JVS(32885)*X(2612)-JVS(32886)*X(2927)-JVS(32887)*X(3057)-JVS(32888)*X(3210)-JVS(32889)& - &*X(3314)-JVS(32890)*X(3352)-JVS(32891)*X(3353)-JVS(32892)*X(3432)-JVS(32893)*X(3684)-JVS(32894)*X(3787)& - &-JVS(32895)*X(3887)-JVS(32896)*X(4093)-JVS(32897)*X(4227)-JVS(32898)*X(4393)-JVS(32899)*X(4424)-JVS(32900)& - &*X(4594)-JVS(32901)*X(4700)-JVS(32902)*X(4736)-JVS(32903)*X(4743)-JVS(32904)*X(4744)-JVS(32905)*X(4815)& - &-JVS(32906)*X(4911)-JVS(32907)*X(4928)-JVS(32908)*X(4931)-JVS(32909)*X(4974)-JVS(32910)*X(4998)-JVS(32911)& - &*X(5043)-JVS(32912)*X(5068) - X(5107) = X(5107)-JVS(32925)*X(342) - X(5108) = X(5108)-JVS(32932)*X(161)-JVS(32933)*X(1267)-JVS(32934)*X(1919)-JVS(32935)*X(4766)-JVS(32936)*X(5107) - X(5109) = X(5109)-JVS(32943)*X(1709)-JVS(32944)*X(2422) - X(5110) = X(5110)-JVS(32951)*X(1566)-JVS(32952)*X(2203)-JVS(32953)*X(2428)-JVS(32954)*X(2547)-JVS(32955)*X(2618)& - &-JVS(32956)*X(2723)-JVS(32957)*X(3346)-JVS(32958)*X(3616)-JVS(32959)*X(3756)-JVS(32960)*X(4095)-JVS(32961)& - &*X(4235)-JVS(32962)*X(4446)-JVS(32963)*X(4590)-JVS(32964)*X(4646)-JVS(32965)*X(4784)-JVS(32966)*X(4827)& - &-JVS(32967)*X(4871)-JVS(32968)*X(4884)-JVS(32969)*X(4903)-JVS(32970)*X(4967)-JVS(32971)*X(5109) - X(5111) = X(5111)-JVS(32982)*X(672)-JVS(32983)*X(886)-JVS(32984)*X(2360)-JVS(32985)*X(2600)-JVS(32986)*X(3954)& - &-JVS(32987)*X(4493)-JVS(32988)*X(4765)-JVS(32989)*X(4925)-JVS(32990)*X(5081)-JVS(32991)*X(5086) - X(5112) = X(5112)-JVS(33003)*X(270)-JVS(33004)*X(3110)-JVS(33005)*X(5065) - X(5113) = X(5113)-JVS(33012)*X(1561)-JVS(33013)*X(1691)-JVS(33014)*X(1887)-JVS(33015)*X(3612)-JVS(33016)*X(4242)& - &-JVS(33017)*X(4648)-JVS(33018)*X(4883)-JVS(33019)*X(4957)-JVS(33020)*X(5095) - X(5114) = X(5114)-JVS(33030)*X(1739)-JVS(33031)*X(2359)-JVS(33032)*X(5052) - X(5115) = X(5115)-JVS(33042)*X(1755)-JVS(33043)*X(2509)-JVS(33044)*X(2835)-JVS(33045)*X(3046)-JVS(33046)*X(3870)& - &-JVS(33047)*X(3961)-JVS(33048)*X(4942)-JVS(33049)*X(5065)-JVS(33050)*X(5112) - X(5116) = X(5116)-JVS(33060)*X(449)-JVS(33061)*X(1291)-JVS(33062)*X(1577)-JVS(33063)*X(1842)-JVS(33064)*X(4665)& - &-JVS(33065)*X(4800)-JVS(33066)*X(4901)-JVS(33067)*X(4994)-JVS(33068)*X(5063) - X(5117) = X(5117)-JVS(33077)*X(805)-JVS(33078)*X(2883)-JVS(33079)*X(2910)-JVS(33080)*X(3031)-JVS(33081)*X(3780)& - &-JVS(33082)*X(4697)-JVS(33083)*X(4704)-JVS(33084)*X(4811)-JVS(33085)*X(5026)-JVS(33086)*X(5061)-JVS(33087)& - &*X(5063)-JVS(33088)*X(5064)-JVS(33089)*X(5097)-JVS(33090)*X(5116) - X(5118) = X(5118)-JVS(33100)*X(607)-JVS(33101)*X(4113) - X(5119) = X(5119)-JVS(33110)*X(166)-JVS(33111)*X(1501)-JVS(33112)*X(1831)-JVS(33113)*X(4586) - X(5120) = X(5120)-JVS(33120)*X(479)-JVS(33121)*X(1090)-JVS(33122)*X(3822)-JVS(33123)*X(4934)-JVS(33124)*X(4975)& - &-JVS(33125)*X(5119) - X(5121) = X(5121)-JVS(33133)*X(343)-JVS(33134)*X(1158)-JVS(33135)*X(1686)-JVS(33136)*X(1693)-JVS(33137)*X(1899)& - &-JVS(33138)*X(4524)-JVS(33139)*X(4880)-JVS(33140)*X(4886)-JVS(33141)*X(4949)-JVS(33142)*X(5071)-JVS(33143)& - &*X(5097)-JVS(33144)*X(5116)-JVS(33145)*X(5119) - X(5122) = X(5122)-JVS(33157)*X(243)-JVS(33158)*X(3516)-JVS(33159)*X(3517)-JVS(33160)*X(4249)-JVS(33161)*X(4757)& - &-JVS(33162)*X(4988) - X(5123) = X(5123)-JVS(33173)*X(720)-JVS(33174)*X(755)-JVS(33175)*X(1583)-JVS(33176)*X(1584)-JVS(33177)*X(1588)& - &-JVS(33178)*X(1609)-JVS(33179)*X(1836)-JVS(33180)*X(1968)-JVS(33181)*X(1988)-JVS(33182)*X(2234)-JVS(33183)& - &*X(2501)-JVS(33184)*X(2857)-JVS(33185)*X(3060)-JVS(33186)*X(3206)-JVS(33187)*X(3292)-JVS(33188)*X(3469)& - &-JVS(33189)*X(3824)-JVS(33190)*X(3826)-JVS(33191)*X(4004)-JVS(33192)*X(4177)-JVS(33193)*X(4311)-JVS(33194)& - &*X(4432)-JVS(33195)*X(4483)-JVS(33196)*X(4626)-JVS(33197)*X(4654)-JVS(33198)*X(4833)-JVS(33199)*X(4887)& - &-JVS(33200)*X(4892)-JVS(33201)*X(4937)-JVS(33202)*X(4950) - X(5124) = X(5124)-JVS(33210)*X(1959)-JVS(33211)*X(3607)-JVS(33212)*X(3653)-JVS(33213)*X(3689)-JVS(33214)*X(4814)& - &-JVS(33215)*X(5081) - X(5125) = X(5125)-JVS(33226)*X(722)-JVS(33227)*X(803)-JVS(33228)*X(862)-JVS(33229)*X(1500)-JVS(33230)*X(1707)& - &-JVS(33231)*X(1737)-JVS(33232)*X(1879)-JVS(33233)*X(2052)-JVS(33234)*X(2104)-JVS(33235)*X(2148)-JVS(33236)& - &*X(2163)-JVS(33237)*X(2474)-JVS(33238)*X(2537)-JVS(33239)*X(2558)-JVS(33240)*X(2936)-JVS(33241)*X(3073)& - &-JVS(33242)*X(3151)-JVS(33243)*X(3341)-JVS(33244)*X(3399)-JVS(33245)*X(3426)-JVS(33246)*X(3427)-JVS(33247)& - &*X(3463)-JVS(33248)*X(3467)-JVS(33249)*X(3498)-JVS(33250)*X(3522)-JVS(33251)*X(3673)-JVS(33252)*X(3701)& - &-JVS(33253)*X(3757)-JVS(33254)*X(3878)-JVS(33255)*X(3910)-JVS(33256)*X(4094)-JVS(33257)*X(4103)-JVS(33258)& - &*X(4223)-JVS(33259)*X(4233)-JVS(33260)*X(4318)-JVS(33261)*X(4336)-JVS(33262)*X(4349)-JVS(33263)*X(4377)& - &-JVS(33264)*X(4381)-JVS(33265)*X(4388)-JVS(33266)*X(4390)-JVS(33267)*X(4461)-JVS(33268)*X(4502)-JVS(33269)& - &*X(4593)-JVS(33270)*X(4607)-JVS(33271)*X(4608)-JVS(33272)*X(4619)-JVS(33273)*X(4620)-JVS(33274)*X(4627)& - &-JVS(33275)*X(4702)-JVS(33276)*X(4713)-JVS(33277)*X(4717)-JVS(33278)*X(4744)-JVS(33279)*X(4775)-JVS(33280)& - &*X(4792)-JVS(33281)*X(4864)-JVS(33282)*X(4884)-JVS(33283)*X(4918)-JVS(33284)*X(4928)-JVS(33285)*X(4997)& - &-JVS(33286)*X(5066)-JVS(33287)*X(5109)-JVS(33288)*X(5112) - X(5126) = X(5126)-JVS(33302)*X(1560)-JVS(33303)*X(1598)-JVS(33304)*X(1640)-JVS(33305)*X(1760)-JVS(33306)*X(1873)& - &-JVS(33307)*X(2640)-JVS(33308)*X(2950)-JVS(33309)*X(3238)-JVS(33310)*X(3812)-JVS(33311)*X(3826)-JVS(33312)& - &*X(4132)-JVS(33313)*X(4177)-JVS(33314)*X(4641)-JVS(33315)*X(4667)-JVS(33316)*X(4897) - X(5127) = X(5127)-JVS(33324)*X(4248)-JVS(33325)*X(4785)-JVS(33326)*X(4907) - X(5128) = X(5128)-JVS(33337)*X(3448)-JVS(33338)*X(3629)-JVS(33339)*X(3642)-JVS(33340)*X(4330)-JVS(33341)*X(4342)& - &-JVS(33342)*X(4781)-JVS(33343)*X(4891)-JVS(33344)*X(5027) - X(5129) = X(5129)-JVS(33355)*X(298)-JVS(33356)*X(734)-JVS(33357)*X(1380)-JVS(33358)*X(1582)-JVS(33359)*X(2118)& - &-JVS(33360)*X(3207)-JVS(33361)*X(3299)-JVS(33362)*X(3528)-JVS(33363)*X(3892)-JVS(33364)*X(4512)-JVS(33365)& - &*X(4698)-JVS(33366)*X(4967)-JVS(33367)*X(4981)-JVS(33368)*X(4984)-JVS(33369)*X(5032)-JVS(33370)*X(5045)& - &-JVS(33371)*X(5056)-JVS(33372)*X(5057)-JVS(33373)*X(5072)-JVS(33374)*X(5077)-JVS(33375)*X(5082)-JVS(33376)& - &*X(5090)-JVS(33377)*X(5101) - X(5130) = X(5130)-JVS(33391)*X(1411)-JVS(33392)*X(1814)-JVS(33393)*X(2226)-JVS(33394)*X(2855)-JVS(33395)*X(2856)& - &-JVS(33396)*X(3373)-JVS(33397)*X(3882)-JVS(33398)*X(3957)-JVS(33399)*X(4162)-JVS(33400)*X(4216)-JVS(33401)& - &*X(4652)-JVS(33402)*X(4748)-JVS(33403)*X(4825)-JVS(33404)*X(5028)-JVS(33405)*X(5052) - X(5131) = X(5131)-JVS(33417)*X(703)-JVS(33418)*X(726)-JVS(33419)*X(1372)-JVS(33420)*X(1373)-JVS(33421)*X(1479)& - &-JVS(33422)*X(1843)-JVS(33423)*X(2439)-JVS(33424)*X(3011)-JVS(33425)*X(4762)-JVS(33426)*X(5039)-JVS(33427)& - &*X(5092)-JVS(33428)*X(5099) - X(5133) = X(5133)-JVS(33447)*X(3502)-JVS(33448)*X(3529)-JVS(33449)*X(4406)-JVS(33450)*X(5005) - X(5134) = X(5134)-JVS(33462)*X(678)-JVS(33463)*X(3428)-JVS(33464)*X(3550)-JVS(33465)*X(3734)-JVS(33466)*X(4113)& - &-JVS(33467)*X(4955)-JVS(33468)*X(5118)-JVS(33469)*X(5132) - X(5135) = X(5135)-JVS(33481)*X(1244)-JVS(33482)*X(1774)-JVS(33483)*X(4103)-JVS(33484)*X(4430)-JVS(33485)*X(4527)& - &-JVS(33486)*X(5112) - X(5136) = X(5136)-JVS(33495)*X(596)-JVS(33496)*X(1545)-JVS(33497)*X(1937)-JVS(33498)*X(2190)-JVS(33499)*X(2880)& - &-JVS(33500)*X(3912)-JVS(33501)*X(3926)-JVS(33502)*X(4053)-JVS(33503)*X(4581)-JVS(33504)*X(4766)-JVS(33505)& - &*X(4804)-JVS(33506)*X(4872)-JVS(33507)*X(4889)-JVS(33508)*X(5107)-JVS(33509)*X(5109)-JVS(33510)*X(5115)& - &-JVS(33511)*X(5135) - X(5137) = X(5137)-JVS(33524)*X(1100)-JVS(33525)*X(2028)-JVS(33526)*X(2691)-JVS(33527)*X(2803)-JVS(33528)*X(3086)& - &-JVS(33529)*X(3124)-JVS(33530)*X(3151)-JVS(33531)*X(3183)-JVS(33532)*X(3184)-JVS(33533)*X(3185)-JVS(33534)& - &*X(3493)-JVS(33535)*X(3504)-JVS(33536)*X(3522)-JVS(33537)*X(3537)-JVS(33538)*X(3544)-JVS(33539)*X(3548)& - &-JVS(33540)*X(3759)-JVS(33541)*X(4053)-JVS(33542)*X(4349)-JVS(33543)*X(4355)-JVS(33544)*X(4361)-JVS(33545)& - &*X(4369)-JVS(33546)*X(4389)-JVS(33547)*X(4566)-JVS(33548)*X(4573)-JVS(33549)*X(4709)-JVS(33550)*X(4712)& - &-JVS(33551)*X(4713)-JVS(33552)*X(4715)-JVS(33553)*X(4716)-JVS(33554)*X(4735)-JVS(33555)*X(4804)-JVS(33556)& - &*X(4889)-JVS(33557)*X(5065)-JVS(33558)*X(5107)-JVS(33559)*X(5108)-JVS(33560)*X(5112)-JVS(33561)*X(5135) - X(5138) = X(5138)-JVS(33574)*X(426) - X(5139) = X(5139)-JVS(33581)*X(572)-JVS(33582)*X(634)-JVS(33583)*X(1768)-JVS(33584)*X(1960)-JVS(33585)*X(2021)& - &-JVS(33586)*X(2238)-JVS(33587)*X(2307)-JVS(33588)*X(2336)-JVS(33589)*X(2521)-JVS(33590)*X(2563)-JVS(33591)& - &*X(2582)-JVS(33592)*X(2681)-JVS(33593)*X(2691)-JVS(33594)*X(2696)-JVS(33595)*X(2728)-JVS(33596)*X(2732)& - &-JVS(33597)*X(2751)-JVS(33598)*X(2774)-JVS(33599)*X(2853)-JVS(33600)*X(2897)-JVS(33601)*X(2960)-JVS(33602)& - &*X(2971)-JVS(33603)*X(3005)-JVS(33604)*X(3058)-JVS(33605)*X(3073)-JVS(33606)*X(3200)-JVS(33607)*X(3235)& - &-JVS(33608)*X(3237)-JVS(33609)*X(3249)-JVS(33610)*X(3262)-JVS(33611)*X(3279)-JVS(33612)*X(3283)-JVS(33613)& - &*X(3295)-JVS(33614)*X(3296)-JVS(33615)*X(3302)-JVS(33616)*X(3403)-JVS(33617)*X(3419)-JVS(33618)*X(3441)& - &-JVS(33619)*X(3453)-JVS(33620)*X(3457)-JVS(33621)*X(3460)-JVS(33622)*X(3565)-JVS(33623)*X(3570)-JVS(33624)& - &*X(3581)-JVS(33625)*X(3588)-JVS(33626)*X(3600)-JVS(33627)*X(3610)-JVS(33628)*X(3631)-JVS(33629)*X(3632)& - &-JVS(33630)*X(3650)-JVS(33631)*X(3659)-JVS(33632)*X(3702)-JVS(33633)*X(3723)-JVS(33634)*X(3798)-JVS(33635)& - &*X(3802)-JVS(33636)*X(3812)-JVS(33637)*X(3817)-JVS(33638)*X(3818)-JVS(33639)*X(3825)-JVS(33640)*X(3826)& - &-JVS(33641)*X(3853)-JVS(33642)*X(3860)-JVS(33643)*X(3934)-JVS(33644)*X(3959)-JVS(33645)*X(4062)-JVS(33646)& - &*X(4167)-JVS(33647)*X(4168)-JVS(33648)*X(4177)-JVS(33649)*X(4178)-JVS(33650)*X(4184)-JVS(33651)*X(4277)& - &-JVS(33652)*X(4335)-JVS(33653)*X(4400)-JVS(33654)*X(4401)-JVS(33655)*X(4421)-JVS(33656)*X(4429)-JVS(33657)& - &*X(4435)-JVS(33658)*X(4461)-JVS(33659)*X(4532)-JVS(33660)*X(4533)-JVS(33661)*X(4534)-JVS(33662)*X(4574)& - &-JVS(33663)*X(4645)-JVS(33664)*X(4661)-JVS(33665)*X(4667)-JVS(33666)*X(4701)-JVS(33667)*X(4703)-JVS(33668)& - &*X(4709)-JVS(33669)*X(4712)-JVS(33670)*X(4713)-JVS(33671)*X(4715)-JVS(33672)*X(4716)-JVS(33673)*X(4725)& - &-JVS(33674)*X(4727)-JVS(33675)*X(4728)-JVS(33676)*X(4769)-JVS(33677)*X(4787)-JVS(33678)*X(4799)-JVS(33679)& - &*X(4813)-JVS(33680)*X(4877)-JVS(33681)*X(4896)-JVS(33682)*X(4933)-JVS(33683)*X(4946)-JVS(33684)*X(4966)& - &-JVS(33685)*X(4992)-JVS(33686)*X(5034)-JVS(33687)*X(5051)-JVS(33688)*X(5053)-JVS(33689)*X(5065)-JVS(33690)& - &*X(5070)-JVS(33691)*X(5103)-JVS(33692)*X(5107)-JVS(33693)*X(5112)-JVS(33694)*X(5126)-JVS(33695)*X(5135)& - &-JVS(33696)*X(5137)-JVS(33697)*X(5138) - X(5140) = X(5140)-JVS(33717)*X(1165)-JVS(33718)*X(1521)-JVS(33719)*X(1563)-JVS(33720)*X(2509)-JVS(33721)*X(2835)& - &-JVS(33722)*X(3046)-JVS(33723)*X(3870)-JVS(33724)*X(3961)-JVS(33725)*X(4942)-JVS(33726)*X(5065)-JVS(33727)& - &*X(5112)-JVS(33728)*X(5138) - X(5141) = X(5141)-JVS(33737)*X(589)-JVS(33738)*X(623)-JVS(33739)*X(1576)-JVS(33740)*X(1665)-JVS(33741)*X(2137)& - &-JVS(33742)*X(2650)-JVS(33743)*X(2948)-JVS(33744)*X(3403)-JVS(33745)*X(3702)-JVS(33746)*X(3818)-JVS(33747)& - &*X(4167)-JVS(33748)*X(4656)-JVS(33749)*X(4685)-JVS(33750)*X(4813)-JVS(33751)*X(4992) - X(5142) = X(5142)-JVS(33759)*X(51)-JVS(33760)*X(751)-JVS(33761)*X(987)-JVS(33762)*X(1962)-JVS(33763)*X(2013)& - &-JVS(33764)*X(2188)-JVS(33765)*X(2260)-JVS(33766)*X(2397)-JVS(33767)*X(2490)-JVS(33768)*X(2839)-JVS(33769)& - &*X(2973)-JVS(33770)*X(3076)-JVS(33771)*X(3297)-JVS(33772)*X(3368)-JVS(33773)*X(3377)-JVS(33774)*X(3429)& - &-JVS(33775)*X(3445)-JVS(33776)*X(3510)-JVS(33777)*X(3609)-JVS(33778)*X(3619)-JVS(33779)*X(3723)-JVS(33780)& - &*X(3779)-JVS(33781)*X(3807)-JVS(33782)*X(4062)-JVS(33783)*X(4074)-JVS(33784)*X(4121)-JVS(33785)*X(4175)& - &-JVS(33786)*X(4178)-JVS(33787)*X(4219)-JVS(33788)*X(4332)-JVS(33789)*X(4368)-JVS(33790)*X(4475)-JVS(33791)& - &*X(4535)-JVS(33792)*X(4571)-JVS(33793)*X(4595)-JVS(33794)*X(4609)-JVS(33795)*X(4611)-JVS(33796)*X(4616)& - &-JVS(33797)*X(4631)-JVS(33798)*X(4731)-JVS(33799)*X(4736)-JVS(33800)*X(4799)-JVS(33801)*X(4876)-JVS(33802)& - &*X(4941)-JVS(33803)*X(4946)-JVS(33804)*X(4980)-JVS(33805)*X(5034)-JVS(33806)*X(5051)-JVS(33807)*X(5062)& - &-JVS(33808)*X(5078)-JVS(33809)*X(5082)-JVS(33810)*X(5117)-JVS(33811)*X(5119)-JVS(33812)*X(5126)-JVS(33813)& - &*X(5140)-JVS(33814)*X(5141) - X(5143) = X(5143)-JVS(33831)*X(570)-JVS(33832)*X(575)-JVS(33833)*X(698)-JVS(33834)*X(722)-JVS(33835)*X(745)-JVS(33836)& - &*X(778)-JVS(33837)*X(1548)-JVS(33838)*X(1571)-JVS(33839)*X(1674)-JVS(33840)*X(1707)-JVS(33841)*X(1725)& - &-JVS(33842)*X(1740)-JVS(33843)*X(1744)-JVS(33844)*X(1839)-JVS(33845)*X(1880)-JVS(33846)*X(1908)-JVS(33847)& - &*X(2052)-JVS(33848)*X(2059)-JVS(33849)*X(2083)-JVS(33850)*X(2106)-JVS(33851)*X(2121)-JVS(33852)*X(2221)& - &-JVS(33853)*X(2400)-JVS(33854)*X(2562)-JVS(33855)*X(2589)-JVS(33856)*X(2594)-JVS(33857)*X(2638)-JVS(33858)& - &*X(2642)-JVS(33859)*X(2665)-JVS(33860)*X(2826)-JVS(33861)*X(2842)-JVS(33862)*X(3009)-JVS(33863)*X(3884)& - &-JVS(33864)*X(4349)-JVS(33865)*X(4355)-JVS(33866)*X(4361)-JVS(33867)*X(4369)-JVS(33868)*X(4389)-JVS(33869)& - &*X(4566)-JVS(33870)*X(4573)-JVS(33871)*X(4709)-JVS(33872)*X(4712)-JVS(33873)*X(4713)-JVS(33874)*X(4715)& - &-JVS(33875)*X(4716)-JVS(33876)*X(4735)-JVS(33877)*X(4866)-JVS(33878)*X(4872)-JVS(33879)*X(5065)-JVS(33880)& - &*X(5107)-JVS(33881)*X(5108)-JVS(33882)*X(5112)-JVS(33883)*X(5115)-JVS(33884)*X(5138)-JVS(33885)*X(5140) - X(5144) = X(5144)-JVS(33898)*X(221)-JVS(33899)*X(3091)-JVS(33900)*X(5138) - X(5145) = X(5145)-JVS(33907)*X(631)-JVS(33908)*X(1466)-JVS(33909)*X(1789)-JVS(33910)*X(2126)-JVS(33911)*X(2212)& - &-JVS(33912)*X(3222)-JVS(33913)*X(3231)-JVS(33914)*X(3288)-JVS(33915)*X(3404)-JVS(33916)*X(3540)-JVS(33917)& - &*X(3651)-JVS(33918)*X(3716)-JVS(33919)*X(3779)-JVS(33920)*X(3868)-JVS(33921)*X(3894)-JVS(33922)*X(4086)& - &-JVS(33923)*X(4508)-JVS(33924)*X(4562)-JVS(33925)*X(4571)-JVS(33926)*X(4583)-JVS(33927)*X(4604)-JVS(33928)& - &*X(4606)-JVS(33929)*X(4705)-JVS(33930)*X(4736)-JVS(33931)*X(4743)-JVS(33932)*X(4856)-JVS(33933)*X(4868)& - &-JVS(33934)*X(4881)-JVS(33935)*X(4901)-JVS(33936)*X(4930)-JVS(33937)*X(4972)-JVS(33938)*X(4994)-JVS(33939)& - &*X(5043)-JVS(33940)*X(5068)-JVS(33941)*X(5096)-JVS(33942)*X(5106)-JVS(33943)*X(5144) - X(5146) = X(5146)-JVS(33960)*X(588) - X(5147) = X(5147)-JVS(33967)*X(1180)-JVS(33968)*X(1635)-JVS(33969)*X(1885)-JVS(33970)*X(3109)-JVS(33971)*X(3168)& - &-JVS(33972)*X(3851)-JVS(33973)*X(4515)-JVS(33974)*X(4586)-JVS(33975)*X(4696)-JVS(33976)*X(5146) - X(5148) = X(5148)-JVS(33984)*X(240)-JVS(33985)*X(806)-JVS(33986)*X(845)-JVS(33987)*X(1994)-JVS(33988)*X(3393)& - &-JVS(33989)*X(3747)-JVS(33990)*X(4110)-JVS(33991)*X(4577)-JVS(33992)*X(4629)-JVS(33993)*X(4722)-JVS(33994)& - &*X(5056)-JVS(33995)*X(5078)-JVS(33996)*X(5146) - X(5149) = X(5149)-JVS(34004)*X(1545)-JVS(34005)*X(1670)-JVS(34006)*X(1719)-JVS(34007)*X(3208)-JVS(34008)*X(4581)& - &-JVS(34009)*X(4872)-JVS(34010)*X(4889)-JVS(34011)*X(5051)-JVS(34012)*X(5109)-JVS(34013)*X(5115)-JVS(34014)& - &*X(5135)-JVS(34015)*X(5136)-JVS(34016)*X(5138) - X(5150) = X(5150)-JVS(34029)*X(207)-JVS(34030)*X(1042)-JVS(34031)*X(2247)-JVS(34032)*X(3777)-JVS(34033)*X(4261)& - &-JVS(34034)*X(4300)-JVS(34035)*X(4784)-JVS(34036)*X(4848)-JVS(34037)*X(5108)-JVS(34038)*X(5109) - X(5151) = X(5151)-JVS(34048)*X(282)-JVS(34049)*X(983)-JVS(34050)*X(3222)-JVS(34051)*X(3298)-JVS(34052)*X(3792)& - &-JVS(34053)*X(3822)-JVS(34054)*X(3978)-JVS(34055)*X(4800)-JVS(34056)*X(4975)-JVS(34057)*X(4979)-JVS(34058)& - &*X(4990)-JVS(34059)*X(5010)-JVS(34060)*X(5119) - X(5152) = X(5152)-JVS(34069)*X(595)-JVS(34070)*X(637)-JVS(34071)*X(777)-JVS(34072)*X(1683)-JVS(34073)*X(1917)& - &-JVS(34074)*X(1947)-JVS(34075)*X(2080)-JVS(34076)*X(2150)-JVS(34077)*X(2473)-JVS(34078)*X(2500)-JVS(34079)& - &*X(2580)-JVS(34080)*X(2711)-JVS(34081)*X(2870)-JVS(34082)*X(3160)-JVS(34083)*X(3198)-JVS(34084)*X(3526)& - &-JVS(34085)*X(3763)-JVS(34086)*X(3888)-JVS(34087)*X(4284)-JVS(34088)*X(4352)-JVS(34089)*X(4530)-JVS(34090)& - &*X(4585)-JVS(34091)*X(4589)-JVS(34092)*X(4700)-JVS(34093)*X(4724)-JVS(34094)*X(4732)-JVS(34095)*X(4772)& - &-JVS(34096)*X(4804)-JVS(34097)*X(4817)-JVS(34098)*X(4932)-JVS(34099)*X(4945)-JVS(34100)*X(5050)-JVS(34101)& - &*X(5051)-JVS(34102)*X(5132) - X(5153) = X(5153)-JVS(34118)*X(591)-JVS(34119)*X(3653)-JVS(34120)*X(4814) - X(5154) = X(5154)-JVS(34128)*X(2590)-JVS(34129)*X(4615) - X(5155) = X(5155)-JVS(34136)*X(2243)-JVS(34137)*X(3059)-JVS(34138)*X(3160)-JVS(34139)*X(3326)-JVS(34140)*X(3635)& - &-JVS(34141)*X(4945)-JVS(34142)*X(5074)-JVS(34143)*X(5154) - X(5156) = X(5156)-JVS(34154)*X(763)-JVS(34155)*X(3647)-JVS(34156)*X(4570)-JVS(34157)*X(4976)-JVS(34158)*X(5002)& - &-JVS(34159)*X(5025)-JVS(34160)*X(5089)-JVS(34161)*X(5141) - X(5157) = X(5157)-JVS(34177)*X(1704)-JVS(34178)*X(1719)-JVS(34179)*X(1841)-JVS(34180)*X(1954)-JVS(34181)*X(2269)& - &-JVS(34182)*X(2630)-JVS(34183)*X(3288)-JVS(34184)*X(4581)-JVS(34185)*X(4583)-JVS(34186)*X(4628)-JVS(34187)& - &*X(4933)-JVS(34188)*X(5109) - X(5158) = X(5158)-JVS(34198)*X(8)-JVS(34199)*X(610)-JVS(34200)*X(833)-JVS(34201)*X(1832)-JVS(34202)*X(2000)-JVS(34203)& - &*X(2201)-JVS(34204)*X(2478)-JVS(34205)*X(2547)-JVS(34206)*X(2618)-JVS(34207)*X(2680)-JVS(34208)*X(2930)& - &-JVS(34209)*X(2968)-JVS(34210)*X(3021)-JVS(34211)*X(3078)-JVS(34212)*X(3616)-JVS(34213)*X(4095)-JVS(34214)& - &*X(4138)-JVS(34215)*X(4503)-JVS(34216)*X(4584)-JVS(34217)*X(4590)-JVS(34218)*X(4646)-JVS(34219)*X(4784)& - &-JVS(34220)*X(4817)-JVS(34221)*X(4820)-JVS(34222)*X(4827)-JVS(34223)*X(4884)-JVS(34224)*X(4885)-JVS(34225)& - &*X(4939)-JVS(34226)*X(4972)-JVS(34227)*X(5096)-JVS(34228)*X(5108)-JVS(34229)*X(5109)-JVS(34230)*X(5110)& - &-JVS(34231)*X(5120)-JVS(34232)*X(5127)-JVS(34233)*X(5144)-JVS(34234)*X(5146)-JVS(34235)*X(5148)-JVS(34236)& - &*X(5151)-JVS(34237)*X(5157) - X(5159) = X(5159)-JVS(34253)*X(1311)-JVS(34254)*X(1572)-JVS(34255)*X(4092)-JVS(34256)*X(4340)-JVS(34257)*X(4492)& - &-JVS(34258)*X(4600) - X(5160) = X(5160)-JVS(34266)*X(541)-JVS(34267)*X(573)-JVS(34268)*X(632)-JVS(34269)*X(644)-JVS(34270)*X(741)-JVS(34271)& - &*X(754)-JVS(34272)*X(760)-JVS(34273)*X(775)-JVS(34274)*X(813)-JVS(34275)*X(1078)-JVS(34276)*X(1614)& - &-JVS(34277)*X(1653)-JVS(34278)*X(1654)-JVS(34279)*X(1662)-JVS(34280)*X(1724)-JVS(34281)*X(1754)-JVS(34282)& - &*X(1757)-JVS(34283)*X(1776)-JVS(34284)*X(1788)-JVS(34285)*X(1789)-JVS(34286)*X(1801)-JVS(34287)*X(1803)& - &-JVS(34288)*X(1808)-JVS(34289)*X(1815)-JVS(34290)*X(1818)-JVS(34291)*X(1852)-JVS(34292)*X(1924)-JVS(34293)& - &*X(1944)-JVS(34294)*X(1975)-JVS(34295)*X(1984)-JVS(34296)*X(1985)-JVS(34297)*X(1989)-JVS(34298)*X(2029)& - &-JVS(34299)*X(2056)-JVS(34300)*X(2068)-JVS(34301)*X(2111)-JVS(34302)*X(2126)-JVS(34303)*X(2151)-JVS(34304)& - &*X(2207)-JVS(34305)*X(2211)-JVS(34306)*X(2214)-JVS(34307)*X(2244)-JVS(34308)*X(2293)-JVS(34309)*X(2364)& - &-JVS(34310)*X(2374)-JVS(34311)*X(2393)-JVS(34312)*X(2399)-JVS(34313)*X(2415)-JVS(34314)*X(2423)-JVS(34315)& - &*X(2425)-JVS(34316)*X(2427)-JVS(34317)*X(2452)-JVS(34318)*X(2457)-JVS(34319)*X(2460)-JVS(34320)*X(2465)& - &-JVS(34321)*X(2473)-JVS(34322)*X(2490)-JVS(34323)*X(2502)-JVS(34324)*X(2522)-JVS(34325)*X(2524)-JVS(34326)& - &*X(2532)-JVS(34327)*X(2534)-JVS(34328)*X(2542)-JVS(34329)*X(2610)-JVS(34330)*X(2612)-JVS(34331)*X(2619)& - &-JVS(34332)*X(2621)-JVS(34333)*X(2626)-JVS(34334)*X(2629)-JVS(34335)*X(2661)-JVS(34336)*X(2687)-JVS(34337)& - &*X(2697)-JVS(34338)*X(2701)-JVS(34339)*X(2742)-JVS(34340)*X(2759)-JVS(34341)*X(2792)-JVS(34342)*X(2802)& - &-JVS(34343)*X(2812)-JVS(34344)*X(2831)-JVS(34345)*X(2840)-JVS(34346)*X(2864)-JVS(34347)*X(2881)-JVS(34348)& - &*X(2888)-JVS(34349)*X(2892)-JVS(34350)*X(2933)-JVS(34351)*X(2942)-JVS(34352)*X(2943)-JVS(34353)*X(2968)& - &-JVS(34354)*X(2992)-JVS(34355)*X(2993)-JVS(34356)*X(3013)-JVS(34357)*X(3029)-JVS(34358)*X(3034)-JVS(34359)& - &*X(3068)-JVS(34360)*X(3069)-JVS(34361)*X(3076)-JVS(34362)*X(3081)-JVS(34363)*X(3083)-JVS(34364)*X(3104)& - &-JVS(34365)*X(3159)-JVS(34366)*X(3173)-JVS(34367)*X(3188)-JVS(34368)*X(3198)-JVS(34369)*X(3212)-JVS(34370)& - &*X(3223)-JVS(34371)*X(3243)-JVS(34372)*X(3260)-JVS(34373)*X(3293)-JVS(34374)*X(3299)-JVS(34375)*X(3364)& - &-JVS(34376)*X(3422)-JVS(34377)*X(3442)-JVS(34378)*X(3444)-JVS(34379)*X(3447)-JVS(34380)*X(3533)-JVS(34381)& - &*X(3536)-JVS(34382)*X(3598)-JVS(34383)*X(3623)-JVS(34384)*X(3671)-JVS(34385)*X(3721)-JVS(34386)*X(3838)& - &-JVS(34387)*X(3845)-JVS(34388)*X(3888)-JVS(34389)*X(3894)-JVS(34390)*X(3905)-JVS(34391)*X(3944)-JVS(34392)& - &*X(3955)-JVS(34393)*X(3970)-JVS(34394)*X(3981)-JVS(34395)*X(3982)-JVS(34396)*X(4090)-JVS(34397)*X(4091)& - &-JVS(34398)*X(4099)-JVS(34399)*X(4108)-JVS(34400)*X(4112)-JVS(34401)*X(4119)-JVS(34402)*X(4124)-JVS(34403)& - &*X(4128)-JVS(34404)*X(4137)-JVS(34405)*X(4140)-JVS(34406)*X(4157)-JVS(34407)*X(4166)-JVS(34408)*X(4170)& - &-JVS(34409)*X(4173)-JVS(34410)*X(4189)-JVS(34411)*X(4201)-JVS(34412)*X(4234)-JVS(34413)*X(4290)-JVS(34414)& - &*X(4385)-JVS(34415)*X(4452)-JVS(34416)*X(4456)-JVS(34417)*X(4473)-JVS(34418)*X(4474)-JVS(34419)*X(4492)& - &-JVS(34420)*X(4497)-JVS(34421)*X(4503)-JVS(34422)*X(4512)-JVS(34423)*X(4544)-JVS(34424)*X(4545)-JVS(34425)& - &*X(4555)-JVS(34426)*X(4580)-JVS(34427)*X(4585)-JVS(34428)*X(4594)-JVS(34429)*X(4596)-JVS(34430)*X(4600)& - &-JVS(34431)*X(4647)-JVS(34432)*X(4700)-JVS(34433)*X(4722)-JVS(34434)*X(4723)-JVS(34435)*X(4736)-JVS(34436)& - &*X(4763)-JVS(34437)*X(4780)-JVS(34438)*X(4789)-JVS(34439)*X(4809)-JVS(34440)*X(4818)-JVS(34441)*X(4820)& - &-JVS(34442)*X(4839)-JVS(34443)*X(4841)-JVS(34444)*X(4844)-JVS(34445)*X(4853)-JVS(34446)*X(4854)-JVS(34447)& - &*X(4860)-JVS(34448)*X(4898)-JVS(34449)*X(4901)-JVS(34450)*X(4903)-JVS(34451)*X(4907)-JVS(34452)*X(4908)& - &-JVS(34453)*X(4910)-JVS(34454)*X(4914)-JVS(34455)*X(4925)-JVS(34456)*X(4960)-JVS(34457)*X(4974)-JVS(34458)& - &*X(4978)-JVS(34459)*X(4980)-JVS(34460)*X(4981)-JVS(34461)*X(4994)-JVS(34462)*X(5000)-JVS(34463)*X(5021)& - &-JVS(34464)*X(5029)-JVS(34465)*X(5032)-JVS(34466)*X(5041)-JVS(34467)*X(5045)-JVS(34468)*X(5056)-JVS(34469)& - &*X(5060)-JVS(34470)*X(5072)-JVS(34471)*X(5076)-JVS(34472)*X(5077)-JVS(34473)*X(5078)-JVS(34474)*X(5079)& - &-JVS(34475)*X(5082)-JVS(34476)*X(5090)-JVS(34477)*X(5101)-JVS(34478)*X(5104)-JVS(34479)*X(5106)-JVS(34480)& - &*X(5114)-JVS(34481)*X(5129)-JVS(34482)*X(5130)-JVS(34483)*X(5145)-JVS(34484)*X(5146)-JVS(34485)*X(5148)& - &-JVS(34486)*X(5151) - X(5161) = X(5161)-JVS(34517)*X(602)-JVS(34518)*X(609)-JVS(34519)*X(769)-JVS(34520)*X(794)-JVS(34521)*X(803)-JVS(34522)& - &*X(945)-JVS(34523)*X(1440)-JVS(34524)*X(2400)-JVS(34525)*X(3609)-JVS(34526)*X(3662)-JVS(34527)*X(3906)& - &-JVS(34528)*X(3917)-JVS(34529)*X(4103)-JVS(34530)*X(4122)-JVS(34531)*X(4164)-JVS(34532)*X(4179)-JVS(34533)& - &*X(4866)-JVS(34534)*X(4876)-JVS(34535)*X(5065)-JVS(34536)*X(5107)-JVS(34537)*X(5108)-JVS(34538)*X(5112)& - &-JVS(34539)*X(5115)-JVS(34540)*X(5138)-JVS(34541)*X(5140)-JVS(34542)*X(5144) - X(5162) = X(5162)-JVS(34551)*X(383)-JVS(34552)*X(1987)-JVS(34553)*X(2416)-JVS(34554)*X(2638)-JVS(34555)*X(2726)& - &-JVS(34556)*X(2760)-JVS(34557)*X(3218)-JVS(34558)*X(3493)-JVS(34559)*X(4270)-JVS(34560)*X(4443)-JVS(34561)& - &*X(4715)-JVS(34562)*X(4850)-JVS(34563)*X(4942)-JVS(34564)*X(5065)-JVS(34565)*X(5107)-JVS(34566)*X(5112)& - &-JVS(34567)*X(5138) - X(5163) = X(5163)-JVS(34575)*X(1290)-JVS(34576)*X(1708)-JVS(34577)*X(2227)-JVS(34578)*X(3148)-JVS(34579)*X(4760)& - &-JVS(34580)*X(5138)-JVS(34581)*X(5144)-JVS(34582)*X(5162) - X(5164) = X(5164)-JVS(34590)*X(1015)-JVS(34591)*X(1650)-JVS(34592)*X(2129)-JVS(34593)*X(2525)-JVS(34594)*X(2940)& - &-JVS(34595)*X(3683)-JVS(34596)*X(3756)-JVS(34597)*X(4590)-JVS(34598)*X(4817)-JVS(34599)*X(4827)-JVS(34600)& - &*X(4884)-JVS(34601)*X(4885)-JVS(34602)*X(5055)-JVS(34603)*X(5120)-JVS(34604)*X(5146)-JVS(34605)*X(5150)& - &-JVS(34606)*X(5151)-JVS(34607)*X(5163) - X(5165) = X(5165)-JVS(34620)*X(345)-JVS(34621)*X(834)-JVS(34622)*X(1927)-JVS(34623)*X(2227)-JVS(34624)*X(2285)& - &-JVS(34625)*X(2290)-JVS(34626)*X(2371)-JVS(34627)*X(2594)-JVS(34628)*X(2841)-JVS(34629)*X(2896)-JVS(34630)& - &*X(2944)-JVS(34631)*X(2988)-JVS(34632)*X(3002)-JVS(34633)*X(3308)-JVS(34634)*X(3544)-JVS(34635)*X(3925)& - &-JVS(34636)*X(4155)-JVS(34637)*X(4283)-JVS(34638)*X(4427)-JVS(34639)*X(4527)-JVS(34640)*X(4582)-JVS(34641)& - &*X(4587)-JVS(34642)*X(4712)-JVS(34643)*X(4760)-JVS(34644)*X(4838)-JVS(34645)*X(4873)-JVS(34646)*X(4879)& - &-JVS(34647)*X(5107)-JVS(34648)*X(5112)-JVS(34649)*X(5135)-JVS(34650)*X(5138)-JVS(34651)*X(5162)-JVS(34652)& - &*X(5163) - X(5167) = X(5167)-JVS(34667)*X(2570)-JVS(34668)*X(2606)-JVS(34669)*X(4256)-JVS(34670)*X(4894)-JVS(34671)*X(4945)& - &-JVS(34672)*X(5074)-JVS(34673)*X(5132)-JVS(34674)*X(5154)-JVS(34675)*X(5166) - X(5168) = X(5168)-JVS(34686)*X(3634)-JVS(34687)*X(5118)-JVS(34688)*X(5166) - X(5169) = X(5169)-JVS(34697)*X(635)-JVS(34698)*X(639)-JVS(34699)*X(748)-JVS(34700)*X(1058)-JVS(34701)*X(1911)& - &-JVS(34702)*X(2065)-JVS(34703)*X(2451)-JVS(34704)*X(3863)-JVS(34705)*X(3867)-JVS(34706)*X(3940)-JVS(34707)& - &*X(4605)-JVS(34708)*X(4843) - X(5170) = X(5170)-JVS(34718)*X(2748)-JVS(34719)*X(3630)-JVS(34720)*X(4588)-JVS(34721)*X(4805)-JVS(34722)*X(4840)& - &-JVS(34723)*X(4976)-JVS(34724)*X(5002)-JVS(34725)*X(5033)-JVS(34726)*X(5049)-JVS(34727)*X(5050)-JVS(34728)& - &*X(5058)-JVS(34729)*X(5066)-JVS(34730)*X(5068)-JVS(34731)*X(5069)-JVS(34732)*X(5076)-JVS(34733)*X(5123)& - &-JVS(34734)*X(5126)-JVS(34735)*X(5153)-JVS(34736)*X(5166) - X(5171) = X(5171)-JVS(34753)*X(545)-JVS(34754)*X(617)-JVS(34755)*X(1201)-JVS(34756)*X(1759)-JVS(34757)*X(2217)& - &-JVS(34758)*X(2622)-JVS(34759)*X(3984)-JVS(34760)*X(4274)-JVS(34761)*X(4566)-JVS(34762)*X(4573)-JVS(34763)& - &*X(4902)-JVS(34764)*X(4925)-JVS(34765)*X(4969)-JVS(34766)*X(5019)-JVS(34767)*X(5105)-JVS(34768)*X(5108)& - &-JVS(34769)*X(5159)-JVS(34770)*X(5161) - X(5172) = X(5172)-JVS(34787)*X(131)-JVS(34788)*X(3358)-JVS(34789)*X(3529)-JVS(34790)*X(4294)-JVS(34791)*X(4772)& - &-JVS(34792)*X(4805)-JVS(34793)*X(4826)-JVS(34794)*X(4945)-JVS(34795)*X(4976)-JVS(34796)*X(4993)-JVS(34797)& - &*X(5003)-JVS(34798)*X(5033)-JVS(34799)*X(5035)-JVS(34800)*X(5075)-JVS(34801)*X(5133)-JVS(34802)*X(5154)& - &-JVS(34803)*X(5155)-JVS(34804)*X(5167) - X(5173) = X(5173)-JVS(34821)*X(3552)-JVS(34822)*X(4096)-JVS(34823)*X(5013)-JVS(34824)*X(5132)-JVS(34825)*X(5166) - X(5174) = X(5174)-JVS(34834)*X(3428) - X(5175) = X(5175)-JVS(34843)*X(540)-JVS(34844)*X(1905)-JVS(34845)*X(2508)-JVS(34846)*X(3994)-JVS(34847)*X(4605) - X(5176) = X(5176)-JVS(34854)*X(549)-JVS(34855)*X(556)-JVS(34856)*X(587)-JVS(34857)*X(649)-JVS(34858)*X(721)-JVS(34859)& - &*X(1151)-JVS(34860)*X(1835)-JVS(34861)*X(1973)-JVS(34862)*X(1990)-JVS(34863)*X(2407)-JVS(34864)*X(2962)& - &-JVS(34865)*X(2997)-JVS(34866)*X(3850)-JVS(34867)*X(3872)-JVS(34868)*X(3876)-JVS(34869)*X(3927)-JVS(34870)& - &*X(3969)-JVS(34871)*X(4824)-JVS(34872)*X(5169)-JVS(34873)*X(5175) - X(5177) = X(5177)-JVS(34883)*X(268)-JVS(34884)*X(543)-JVS(34885)*X(650)-JVS(34886)*X(948)-JVS(34887)*X(1766)& - &-JVS(34888)*X(1941)-JVS(34889)*X(1942)-JVS(34890)*X(2591)-JVS(34891)*X(2772)-JVS(34892)*X(2916)-JVS(34893)& - &*X(3895)-JVS(34894)*X(3974)-JVS(34895)*X(4019)-JVS(34896)*X(4752)-JVS(34897)*X(5044)-JVS(34898)*X(5085)& - &-JVS(34899)*X(5095)-JVS(34900)*X(5175) - X(5178) = X(5178)-JVS(34911)*X(11)-JVS(34912)*X(757)-JVS(34913)*X(924)-JVS(34914)*X(1694)-JVS(34915)*X(1714)& - &-JVS(34916)*X(1946)-JVS(34917)*X(1962)-JVS(34918)*X(2090)-JVS(34919)*X(2208)-JVS(34920)*X(2314)-JVS(34921)& - &*X(2435)-JVS(34922)*X(2620)-JVS(34923)*X(2702)-JVS(34924)*X(2839)-JVS(34925)*X(2851)-JVS(34926)*X(2882)& - &-JVS(34927)*X(2964)-JVS(34928)*X(2983)-JVS(34929)*X(3310)-JVS(34930)*X(3312)-JVS(34931)*X(3429)-JVS(34932)& - &*X(3592)-JVS(34933)*X(3889)-JVS(34934)*X(4114)-JVS(34935)*X(4121)-JVS(34936)*X(4143)-JVS(34937)*X(4206)& - &-JVS(34938)*X(4320)-JVS(34939)*X(4522)-JVS(34940)*X(4601)-JVS(34941)*X(4634)-JVS(34942)*X(4771)-JVS(34943)& - &*X(4777)-JVS(34944)*X(4837)-JVS(34945)*X(4878)-JVS(34946)*X(4959)-JVS(34947)*X(5012)-JVS(34948)*X(5042)& - &-JVS(34949)*X(5061)-JVS(34950)*X(5062)-JVS(34951)*X(5077)-JVS(34952)*X(5078)-JVS(34953)*X(5088)-JVS(34954)& - &*X(5147) - X(5179) = X(5179)-JVS(34965)*X(704)-JVS(34966)*X(739)-JVS(34967)*X(760)-JVS(34968)*X(1471)-JVS(34969)*X(1618)& - &-JVS(34970)*X(1925)-JVS(34971)*X(2018)-JVS(34972)*X(2062)-JVS(34973)*X(2886)-JVS(34974)*X(3006)-JVS(34975)& - &*X(3337)-JVS(34976)*X(3436)-JVS(34977)*X(3497)-JVS(34978)*X(4234)-JVS(34979)*X(4363)-JVS(34980)*X(4371)& - &-JVS(34981)*X(4394)-JVS(34982)*X(4418)-JVS(34983)*X(4538)-JVS(34984)*X(4659)-JVS(34985)*X(4781)-JVS(34986)& - &*X(4839)-JVS(34987)*X(4891)-JVS(34988)*X(4978)-JVS(34989)*X(4987)-JVS(34990)*X(5073)-JVS(34991)*X(5169)& - &-JVS(34992)*X(5175)-JVS(34993)*X(5176) - X(5180) = X(5180)-JVS(35009)*X(1808)-JVS(35010)*X(1849)-JVS(35011)*X(1969)-JVS(35012)*X(2112)-JVS(35013)*X(2162)& - &-JVS(35014)*X(2531)-JVS(35015)*X(2824)-JVS(35016)*X(3198)-JVS(35017)*X(3351)-JVS(35018)*X(3459)-JVS(35019)& - &*X(3552)-JVS(35020)*X(3587)-JVS(35021)*X(4171)-JVS(35022)*X(4516)-JVS(35023)*X(4585)-JVS(35024)*X(4668)& - &-JVS(35025)*X(4677)-JVS(35026)*X(4732)-JVS(35027)*X(4932)-JVS(35028)*X(4945)-JVS(35029)*X(5013)-JVS(35030)& - &*X(5050)-JVS(35031)*X(5124)-JVS(35032)*X(5153)-JVS(35033)*X(5154)-JVS(35034)*X(5173) - X(5181) = X(5181)-JVS(35050)*X(235) - X(5182) = X(5182)-JVS(35057)*X(581)-JVS(35058)*X(618)-JVS(35059)*X(703)-JVS(35060)*X(724)-JVS(35061)*X(733)-JVS(35062)& - &*X(786)-JVS(35063)*X(1732)-JVS(35064)*X(1814)-JVS(35065)*X(1843)-JVS(35066)*X(1868)-JVS(35067)*X(1900)& - &-JVS(35068)*X(1901)-JVS(35069)*X(1913)-JVS(35070)*X(1986)-JVS(35071)*X(2154)-JVS(35072)*X(2404)-JVS(35073)& - &*X(2439)-JVS(35074)*X(2450)-JVS(35075)*X(2629)-JVS(35076)*X(2673)-JVS(35077)*X(2724)-JVS(35078)*X(2938)& - &-JVS(35079)*X(2941)-JVS(35080)*X(3008)-JVS(35081)*X(3013)-JVS(35082)*X(3081)-JVS(35083)*X(3293)-JVS(35084)& - &*X(3373)-JVS(35085)*X(3415)-JVS(35086)*X(3420)-JVS(35087)*X(3424)-JVS(35088)*X(3724)-JVS(35089)*X(4119)& - &-JVS(35090)*X(4128)-JVS(35091)*X(4162)-JVS(35092)*X(4172)-JVS(35093)*X(4173)-JVS(35094)*X(4176)-JVS(35095)& - &*X(4196)-JVS(35096)*X(4354)-JVS(35097)*X(4410)-JVS(35098)*X(4497)-JVS(35099)*X(4510)-JVS(35100)*X(4560)& - &-JVS(35101)*X(4748)-JVS(35102)*X(4762)-JVS(35103)*X(4764)-JVS(35104)*X(4768)-JVS(35105)*X(4812)-JVS(35106)& - &*X(4814)-JVS(35107)*X(4818)-JVS(35108)*X(4863)-JVS(35109)*X(4882)-JVS(35110)*X(4914)-JVS(35111)*X(4989)& - &-JVS(35112)*X(4996)-JVS(35113)*X(5004)-JVS(35114)*X(5014)-JVS(35115)*X(5021)-JVS(35116)*X(5028)-JVS(35117)& - &*X(5029)-JVS(35118)*X(5041)-JVS(35119)*X(5052)-JVS(35120)*X(5056)-JVS(35121)*X(5072)-JVS(35122)*X(5081)& - &-JVS(35123)*X(5084)-JVS(35124)*X(5114)-JVS(35125)*X(5122)-JVS(35126)*X(5175)-JVS(35127)*X(5181) - X(5183) = X(5183)-JVS(35146)*X(564)-JVS(35147)*X(589)-JVS(35148)*X(602)-JVS(35149)*X(745)-JVS(35150)*X(750)-JVS(35151)& - &*X(761)-JVS(35152)*X(987)-JVS(35153)*X(1571)-JVS(35154)*X(1574)-JVS(35155)*X(1576)-JVS(35156)*X(1583)& - &-JVS(35157)*X(1584)-JVS(35158)*X(1638)-JVS(35159)*X(1653)-JVS(35160)*X(1654)-JVS(35161)*X(1690)-JVS(35162)& - &*X(1693)-JVS(35163)*X(1704)-JVS(35164)*X(1711)-JVS(35165)*X(1712)-JVS(35166)*X(1832)-JVS(35167)*X(1839)& - &-JVS(35168)*X(1857)-JVS(35169)*X(1928)-JVS(35170)*X(1968)-JVS(35171)*X(1982)-JVS(35172)*X(2028)-JVS(35173)& - &*X(2137)-JVS(35174)*X(2171)-JVS(35175)*X(2244)-JVS(35176)*X(2263)-JVS(35177)*X(2307)-JVS(35178)*X(2336)& - &-JVS(35179)*X(2358)-JVS(35180)*X(2388)-JVS(35181)*X(2484)-JVS(35182)*X(2485)-JVS(35183)*X(2572)-JVS(35184)& - &*X(2665)-JVS(35185)*X(2692)-JVS(35186)*X(2774)-JVS(35187)*X(2893)-JVS(35188)*X(2932)-JVS(35189)*X(2960)& - &-JVS(35190)*X(2989)-JVS(35191)*X(3003)-JVS(35192)*X(3031)-JVS(35193)*X(3077)-JVS(35194)*X(3078)-JVS(35195)& - &*X(3086)-JVS(35196)*X(3091)-JVS(35197)*X(3110)-JVS(35198)*X(3117)-JVS(35199)*X(3118)-JVS(35200)*X(3148)& - &-JVS(35201)*X(3166)-JVS(35202)*X(3186)-JVS(35203)*X(3200)-JVS(35204)*X(3230)-JVS(35205)*X(3237)-JVS(35206)& - &*X(3262)-JVS(35207)*X(3271)-JVS(35208)*X(3288)-JVS(35209)*X(3322)-JVS(35210)*X(3345)-JVS(35211)*X(3354)& - &-JVS(35212)*X(3356)-JVS(35213)*X(3357)-JVS(35214)*X(3411)-JVS(35215)*X(3418)-JVS(35216)*X(3434)-JVS(35217)& - &*X(3451)-JVS(35218)*X(3453)-JVS(35219)*X(3458)-JVS(35220)*X(3473)-JVS(35221)*X(3504)-JVS(35222)*X(3609)& - &-JVS(35223)*X(3656)-JVS(35224)*X(3702)-JVS(35225)*X(3732)-JVS(35226)*X(3777)-JVS(35227)*X(3831)-JVS(35228)& - &*X(3843)-JVS(35229)*X(3904)-JVS(35230)*X(3906)-JVS(35231)*X(3917)-JVS(35232)*X(3942)-JVS(35233)*X(3944)& - &-JVS(35234)*X(3956)-JVS(35235)*X(3959)-JVS(35236)*X(3968)-JVS(35237)*X(4017)-JVS(35238)*X(4018)-JVS(35239)& - &*X(4032)-JVS(35240)*X(4047)-JVS(35241)*X(4076)-JVS(35242)*X(4080)-JVS(35243)*X(4081)-JVS(35244)*X(4102)& - &-JVS(35245)*X(4103)-JVS(35246)*X(4118)-JVS(35247)*X(4122)-JVS(35248)*X(4164)-JVS(35249)*X(4168)-JVS(35250)& - &*X(4175)-JVS(35251)*X(4179)-JVS(35252)*X(4184)-JVS(35253)*X(4191)-JVS(35254)*X(4199)-JVS(35255)*X(4272)& - &-JVS(35256)*X(4311)-JVS(35257)*X(4365)-JVS(35258)*X(4367)-JVS(35259)*X(4369)-JVS(35260)*X(4401)-JVS(35261)& - &*X(4403)-JVS(35262)*X(4404)-JVS(35263)*X(4413)-JVS(35264)*X(4434)-JVS(35265)*X(4435)-JVS(35266)*X(4441)& - &-JVS(35267)*X(4445)-JVS(35268)*X(4455)-JVS(35269)*X(4463)-JVS(35270)*X(4476)-JVS(35271)*X(4499)-JVS(35272)& - &*X(4534)-JVS(35273)*X(4535)-JVS(35274)*X(4574)-JVS(35275)*X(4579)-JVS(35276)*X(4583)-JVS(35277)*X(4584)& - &-JVS(35278)*X(4618)-JVS(35279)*X(4631)-JVS(35280)*X(4632)-JVS(35281)*X(4645)-JVS(35282)*X(4654)-JVS(35283)& - &*X(4663)-JVS(35284)*X(4682)-JVS(35285)*X(4701)-JVS(35286)*X(4703)-JVS(35287)*X(4714)-JVS(35288)*X(4716)& - &-JVS(35289)*X(4719)-JVS(35290)*X(4725)-JVS(35291)*X(4727)-JVS(35292)*X(4728)-JVS(35293)*X(4731)-JVS(35294)& - &*X(4736)-JVS(35295)*X(4766)-JVS(35296)*X(4767)-JVS(35297)*X(4769)-JVS(35298)*X(4782)-JVS(35299)*X(4787)& - &-JVS(35300)*X(4799)-JVS(35301)*X(4804)-JVS(35302)*X(4813)-JVS(35303)*X(4852)-JVS(35304)*X(4858)-JVS(35305)& - &*X(4865)-JVS(35306)*X(4876)-JVS(35307)*X(4877)-JVS(35308)*X(4880)-JVS(35309)*X(4897)-JVS(35310)*X(4905)& - &-JVS(35311)*X(4920)-JVS(35312)*X(4933)-JVS(35313)*X(4966)-JVS(35314)*X(4977)-JVS(35315)*X(4990)-JVS(35316)& - &*X(4992)-JVS(35317)*X(5034)-JVS(35318)*X(5051)-JVS(35319)*X(5053)-JVS(35320)*X(5065)-JVS(35321)*X(5070)& - &-JVS(35322)*X(5103)-JVS(35323)*X(5107)-JVS(35324)*X(5108)-JVS(35325)*X(5112)-JVS(35326)*X(5117)-JVS(35327)& - &*X(5119)-JVS(35328)*X(5126)-JVS(35329)*X(5135)-JVS(35330)*X(5137)-JVS(35331)*X(5138)-JVS(35332)*X(5139)& - &-JVS(35333)*X(5140)-JVS(35334)*X(5141)-JVS(35335)*X(5143)-JVS(35336)*X(5144)-JVS(35337)*X(5147)-JVS(35338)& - &*X(5149)-JVS(35339)*X(5157)-JVS(35340)*X(5161)-JVS(35341)*X(5162)-JVS(35342)*X(5165)-JVS(35343)*X(5178) - X(5184) = X(5184)-JVS(35359)*X(416)-JVS(35360)*X(544)-JVS(35361)*X(1679)-JVS(35362)*X(1931)-JVS(35363)*X(1961)& - &-JVS(35364)*X(2116)-JVS(35365)*X(2306)-JVS(35366)*X(2437)-JVS(35367)*X(2456)-JVS(35368)*X(2571)-JVS(35369)& - &*X(2745)-JVS(35370)*X(2784)-JVS(35371)*X(2786)-JVS(35372)*X(2908)-JVS(35373)*X(2909)-JVS(35374)*X(2965)& - &-JVS(35375)*X(2972)-JVS(35376)*X(3602)-JVS(35377)*X(3861)-JVS(35378)*X(3890)-JVS(35379)*X(3901)-JVS(35380)& - &*X(3902)-JVS(35381)*X(3951)-JVS(35382)*X(4116)-JVS(35383)*X(4230)-JVS(35384)*X(4348)-JVS(35385)*X(4374)& - &-JVS(35386)*X(4673)-JVS(35387)*X(4962)-JVS(35388)*X(4995)-JVS(35389)*X(5041)-JVS(35390)*X(5054)-JVS(35391)& - &*X(5081)-JVS(35392)*X(5104)-JVS(35393)*X(5114)-JVS(35394)*X(5140)-JVS(35395)*X(5148)-JVS(35396)*X(5150)& - &-JVS(35397)*X(5163)-JVS(35398)*X(5175)-JVS(35399)*X(5181) - X(5185) = X(5185)-JVS(35419)*X(376)-JVS(35420)*X(1448)-JVS(35421)*X(1596)-JVS(35422)*X(2391)-JVS(35423)*X(3382)& - &-JVS(35424)*X(3917)-JVS(35425)*X(4623)-JVS(35426)*X(4876)-JVS(35427)*X(5108)-JVS(35428)*X(5115)-JVS(35429)& - &*X(5138)-JVS(35430)*X(5144) - X(5186) = X(5186)-JVS(35439)*X(1709) - X(5187) = X(5187)-JVS(35446)*X(2890)-JVS(35447)*X(4098)-JVS(35448)*X(4953) - X(5188) = X(5188)-JVS(35456)*X(567)-JVS(35457)*X(648)-JVS(35458)*X(704)-JVS(35459)*X(1603)-JVS(35460)*X(1625)& - &-JVS(35461)*X(1684)-JVS(35462)*X(1748)-JVS(35463)*X(1899)-JVS(35464)*X(1926)-JVS(35465)*X(1967)-JVS(35466)& - &*X(2004)-JVS(35467)*X(2062)-JVS(35468)*X(2138)-JVS(35469)*X(2162)-JVS(35470)*X(2421)-JVS(35471)*X(2489)& - &-JVS(35472)*X(2616)-JVS(35473)*X(2790)-JVS(35474)*X(2814)-JVS(35475)*X(3064)-JVS(35476)*X(3080)-JVS(35477)& - &*X(3106)-JVS(35478)*X(3160)-JVS(35479)*X(3245)-JVS(35480)*X(3273)-JVS(35481)*X(3275)-JVS(35482)*X(3286)& - &-JVS(35483)*X(3326)-JVS(35484)*X(3330)-JVS(35485)*X(3334)-JVS(35486)*X(3443)-JVS(35487)*X(3448)-JVS(35488)& - &*X(3550)-JVS(35489)*X(3552)-JVS(35490)*X(3625)-JVS(35491)*X(3628)-JVS(35492)*X(3635)-JVS(35493)*X(3700)& - &-JVS(35494)*X(3801)-JVS(35495)*X(3835)-JVS(35496)*X(3993)-JVS(35497)*X(4066)-JVS(35498)*X(4256)-JVS(35499)& - &*X(4330)-JVS(35500)*X(4343)-JVS(35501)*X(4351)-JVS(35502)*X(4538)-JVS(35503)*X(4551)-JVS(35504)*X(4561)& - &-JVS(35505)*X(4615)-JVS(35506)*X(4777)-JVS(35507)*X(4781)-JVS(35508)*X(4783)-JVS(35509)*X(4837)-JVS(35510)& - &*X(4891)-JVS(35511)*X(4894)-JVS(35512)*X(4936)-JVS(35513)*X(4945)-JVS(35514)*X(4949)-JVS(35515)*X(5002)& - &-JVS(35516)*X(5010)-JVS(35517)*X(5013)-JVS(35518)*X(5015)-JVS(35519)*X(5022)-JVS(35520)*X(5025)-JVS(35521)& - &*X(5027)-JVS(35522)*X(5035)-JVS(35523)*X(5040)-JVS(35524)*X(5071)-JVS(35525)*X(5074)-JVS(35526)*X(5079)& - &-JVS(35527)*X(5082)-JVS(35528)*X(5097)-JVS(35529)*X(5116)-JVS(35530)*X(5118)-JVS(35531)*X(5119)-JVS(35532)& - &*X(5121)-JVS(35533)*X(5128)-JVS(35534)*X(5132)-JVS(35535)*X(5134)-JVS(35536)*X(5147)-JVS(35537)*X(5154)& - &-JVS(35538)*X(5155)-JVS(35539)*X(5166)-JVS(35540)*X(5168)-JVS(35541)*X(5173)-JVS(35542)*X(5187) - X(5189) = X(5189)-JVS(35569)*X(465)-JVS(35570)*X(1126)-JVS(35571)*X(2072)-JVS(35572)*X(2073)-JVS(35573)*X(2651)& - &-JVS(35574)*X(4059)-JVS(35575)*X(5006)-JVS(35576)*X(5083)-JVS(35577)*X(5084)-JVS(35578)*X(5095)-JVS(35579)& - &*X(5175) - X(5190) = X(5190)-JVS(35588)*X(3689)-JVS(35589)*X(5181) - X(5191) = X(5191)-JVS(35597)*X(641)-JVS(35598)*X(749)-JVS(35599)*X(761)-JVS(35600)*X(1595)-JVS(35601)*X(1601)& - &-JVS(35602)*X(1686)-JVS(35603)*X(1695)-JVS(35604)*X(1711)-JVS(35605)*X(1974)-JVS(35606)*X(2012)-JVS(35607)& - &*X(2066)-JVS(35608)*X(2158)-JVS(35609)*X(2292)-JVS(35610)*X(2384)-JVS(35611)*X(2537)-JVS(35612)*X(2572)& - &-JVS(35613)*X(2610)-JVS(35614)*X(2650)-JVS(35615)*X(2681)-JVS(35616)*X(2698)-JVS(35617)*X(2720)-JVS(35618)& - &*X(2833)-JVS(35619)*X(2857)-JVS(35620)*X(2866)-JVS(35621)*X(2901)-JVS(35622)*X(2923)-JVS(35623)*X(2964)& - &-JVS(35624)*X(3009)-JVS(35625)*X(3035)-JVS(35626)*X(3208)-JVS(35627)*X(3265)-JVS(35628)*X(3266)-JVS(35629)& - &*X(3301)-JVS(35630)*X(3302)-JVS(35631)*X(3377)-JVS(35632)*X(3409)-JVS(35633)*X(3473)-JVS(35634)*X(3504)& - &-JVS(35635)*X(3735)-JVS(35636)*X(3779)-JVS(35637)*X(3904)-JVS(35638)*X(3922)-JVS(35639)*X(3934)-JVS(35640)& - &*X(3942)-JVS(35641)*X(3956)-JVS(35642)*X(4081)-JVS(35643)*X(4102)-JVS(35644)*X(4168)-JVS(35645)*X(4272)& - &-JVS(35646)*X(4275)-JVS(35647)*X(4332)-JVS(35648)*X(4365)-JVS(35649)*X(4367)-JVS(35650)*X(4441)-JVS(35651)& - &*X(4445)-JVS(35652)*X(4475)-JVS(35653)*X(4476)-JVS(35654)*X(4535)-JVS(35655)*X(4571)-JVS(35656)*X(4574)& - &-JVS(35657)*X(4579)-JVS(35658)*X(4645)-JVS(35659)*X(4654)-JVS(35660)*X(4656)-JVS(35661)*X(4661)-JVS(35662)& - &*X(4714)-JVS(35663)*X(4716)-JVS(35664)*X(4719)-JVS(35665)*X(4767)-JVS(35666)*X(4782)-JVS(35667)*X(4799)& - &-JVS(35668)*X(4858)-JVS(35669)*X(4876)-JVS(35670)*X(4878)-JVS(35671)*X(4896)-JVS(35672)*X(4920)-JVS(35673)& - &*X(4941)-JVS(35674)*X(4977)-JVS(35675)*X(4990)-JVS(35676)*X(5051)-JVS(35677)*X(5056)-JVS(35678)*X(5067)& - &-JVS(35679)*X(5103)-JVS(35680)*X(5125)-JVS(35681)*X(5126)-JVS(35682)*X(5136)-JVS(35683)*X(5138)-JVS(35684)& - &*X(5141)-JVS(35685)*X(5144)-JVS(35686)*X(5149)-JVS(35687)*X(5162)-JVS(35688)*X(5165)-JVS(35689)*X(5185)& - &-JVS(35690)*X(5186)-JVS(35691)*X(5190) - X(5192) = X(5192)-JVS(35706)*X(876)-JVS(35707)*X(1708)-JVS(35708)*X(2057)-JVS(35709)*X(3875)-JVS(35710)*X(4733)& - &-JVS(35711)*X(4990) - X(5193) = X(5193)-JVS(35719)*X(528)-JVS(35720)*X(539)-JVS(35721)*X(545)-JVS(35722)*X(574)-JVS(35723)*X(596)-JVS(35724)& - &*X(600)-JVS(35725)*X(610)-JVS(35726)*X(615)-JVS(35727)*X(637)-JVS(35728)*X(674)-JVS(35729)*X(710)-JVS(35730)& - &*X(776)-JVS(35731)*X(787)-JVS(35732)*X(791)-JVS(35733)*X(1011)-JVS(35734)*X(1110)-JVS(35735)*X(1553)& - &-JVS(35736)*X(1592)-JVS(35737)*X(1597)-JVS(35738)*X(1638)-JVS(35739)*X(1646)-JVS(35740)*X(1650)-JVS(35741)& - &*X(1659)-JVS(35742)*X(1733)-JVS(35743)*X(1737)-JVS(35744)*X(1749)-JVS(35745)*X(1750)-JVS(35746)*X(1759)& - &-JVS(35747)*X(1924)-JVS(35748)*X(1937)-JVS(35749)*X(1997)-JVS(35750)*X(2027)-JVS(35751)*X(2066)-JVS(35752)& - &*X(2080)-JVS(35753)*X(2129)-JVS(35754)*X(2158)-JVS(35755)*X(2188)-JVS(35756)*X(2201)-JVS(35757)*X(2204)& - &-JVS(35758)*X(2205)-JVS(35759)*X(2219)-JVS(35760)*X(2229)-JVS(35761)*X(2298)-JVS(35762)*X(2316)-JVS(35763)& - &*X(2346)-JVS(35764)*X(2411)-JVS(35765)*X(2424)-JVS(35766)*X(2479)-JVS(35767)*X(2503)-JVS(35768)*X(2528)& - &-JVS(35769)*X(2547)-JVS(35770)*X(2558)-JVS(35771)*X(2579)-JVS(35772)*X(2618)-JVS(35773)*X(2639)-JVS(35774)& - &*X(2644)-JVS(35775)*X(2672)-JVS(35776)*X(2676)-JVS(35777)*X(2679)-JVS(35778)*X(2692)-JVS(35779)*X(2700)& - &-JVS(35780)*X(2715)-JVS(35781)*X(2730)-JVS(35782)*X(2734)-JVS(35783)*X(2745)-JVS(35784)*X(2753)-JVS(35785)& - &*X(2764)-JVS(35786)*X(2795)-JVS(35787)*X(2807)-JVS(35788)*X(2811)-JVS(35789)*X(2820)-JVS(35790)*X(2826)& - &-JVS(35791)*X(2827)-JVS(35792)*X(2828)-JVS(35793)*X(2831)-JVS(35794)*X(2839)-JVS(35795)*X(2849)-JVS(35796)& - &*X(2858)-JVS(35797)*X(2859)-JVS(35798)*X(2873)-JVS(35799)*X(2893)-JVS(35800)*X(2905)-JVS(35801)*X(2912)& - &-JVS(35802)*X(2920)-JVS(35803)*X(2930)-JVS(35804)*X(2940)-JVS(35805)*X(2945)-JVS(35806)*X(2946)-JVS(35807)& - &*X(2948)-JVS(35808)*X(2950)-JVS(35809)*X(2976)-JVS(35810)*X(3000)-JVS(35811)*X(3003)-JVS(35812)*X(3019)& - &-JVS(35813)*X(3063)-JVS(35814)*X(3076)-JVS(35815)*X(3106)-JVS(35816)*X(3159)-JVS(35817)*X(3265)-JVS(35818)& - &*X(3266)-JVS(35819)*X(3277)-JVS(35820)*X(3282)-JVS(35821)*X(3328)-JVS(35822)*X(3333)-JVS(35823)*X(3341)& - &-JVS(35824)*X(3346)-JVS(35825)*X(3367)-JVS(35826)*X(3383)-JVS(35827)*X(3386)-JVS(35828)*X(3393)-JVS(35829)& - &*X(3404)-JVS(35830)*X(3418)-JVS(35831)*X(3422)-JVS(35832)*X(3429)-JVS(35833)*X(3444)-JVS(35834)*X(3465)& - &-JVS(35835)*X(3466)-JVS(35836)*X(3537)-JVS(35837)*X(3540)-JVS(35838)*X(3577)-JVS(35839)*X(3585)-JVS(35840)& - &*X(3616)-JVS(35841)*X(3654)-JVS(35842)*X(3656)-JVS(35843)*X(3660)-JVS(35844)*X(3767)-JVS(35845)*X(3842)& - &-JVS(35846)*X(3880)-JVS(35847)*X(3881)-JVS(35848)*X(3897)-JVS(35849)*X(3910)-JVS(35850)*X(3912)-JVS(35851)& - &*X(3916)-JVS(35852)*X(3919)-JVS(35853)*X(3922)-JVS(35854)*X(3956)-JVS(35855)*X(3964)-JVS(35856)*X(3970)& - &-JVS(35857)*X(3977)-JVS(35858)*X(4030)-JVS(35859)*X(4084)-JVS(35860)*X(4095)-JVS(35861)*X(4118)-JVS(35862)& - &*X(4121)-JVS(35863)*X(4127)-JVS(35864)*X(4132)-JVS(35865)*X(4134)-JVS(35866)*X(4138)-JVS(35867)*X(4140)& - &-JVS(35868)*X(4154)-JVS(35869)*X(4169)-JVS(35870)*X(4211)-JVS(35871)*X(4223)-JVS(35872)*X(4238)-JVS(35873)& - &*X(4274)-JVS(35874)*X(4332)-JVS(35875)*X(4336)-JVS(35876)*X(4344)-JVS(35877)*X(4351)-JVS(35878)*X(4357)& - &-JVS(35879)*X(4367)-JVS(35880)*X(4368)-JVS(35881)*X(4370)-JVS(35882)*X(4374)-JVS(35883)*X(4386)-JVS(35884)& - &*X(4387)-JVS(35885)*X(4404)-JVS(35886)*X(4405)-JVS(35887)*X(4417)-JVS(35888)*X(4428)-JVS(35889)*X(4473)& - &-JVS(35890)*X(4474)-JVS(35891)*X(4475)-JVS(35892)*X(4476)-JVS(35893)*X(4489)-JVS(35894)*X(4566)-JVS(35895)& - &*X(4573)-JVS(35896)*X(4577)-JVS(35897)*X(4584)-JVS(35898)*X(4590)-JVS(35899)*X(4595)-JVS(35900)*X(4604)& - &-JVS(35901)*X(4606)-JVS(35902)*X(4607)-JVS(35903)*X(4608)-JVS(35904)*X(4609)-JVS(35905)*X(4612)-JVS(35906)& - &*X(4616)-JVS(35907)*X(4640)-JVS(35908)*X(4646)-JVS(35909)*X(4647)-JVS(35910)*X(4685)-JVS(35911)*X(4695)& - &-JVS(35912)*X(4702)-JVS(35913)*X(4705)-JVS(35914)*X(4714)-JVS(35915)*X(4723)-JVS(35916)*X(4724)-JVS(35917)& - &*X(4731)-JVS(35918)*X(4750)-JVS(35919)*X(4766)-JVS(35920)*X(4767)-JVS(35921)*X(4777)-JVS(35922)*X(4782)& - &-JVS(35923)*X(4784)-JVS(35924)*X(4802)-JVS(35925)*X(4827)-JVS(35926)*X(4837)-JVS(35927)*X(4840)-JVS(35928)& - &*X(4845)-JVS(35929)*X(4852)-JVS(35930)*X(4857)-JVS(35931)*X(4865)-JVS(35932)*X(4870)-JVS(35933)*X(4871)& - &-JVS(35934)*X(4876)-JVS(35935)*X(4877)-JVS(35936)*X(4880)-JVS(35937)*X(4884)-JVS(35938)*X(4890)-JVS(35939)& - &*X(4895)-JVS(35940)*X(4901)-JVS(35941)*X(4911)-JVS(35942)*X(4915)-JVS(35943)*X(4920)-JVS(35944)*X(4922)& - &-JVS(35945)*X(4923)-JVS(35946)*X(4924)-JVS(35947)*X(4933)-JVS(35948)*X(4943)-JVS(35949)*X(4977)-JVS(35950)& - &*X(4991)-JVS(35951)*X(4994)-JVS(35952)*X(5007)-JVS(35953)*X(5008)-JVS(35954)*X(5037)-JVS(35955)*X(5042)& - &-JVS(35956)*X(5045)-JVS(35957)*X(5051)-JVS(35958)*X(5061)-JVS(35959)*X(5062)-JVS(35960)*X(5063)-JVS(35961)& - &*X(5064)-JVS(35962)*X(5065)-JVS(35963)*X(5078)-JVS(35964)*X(5087)-JVS(35965)*X(5088)-JVS(35966)*X(5089)& - &-JVS(35967)*X(5098)-JVS(35968)*X(5103)-JVS(35969)*X(5107)-JVS(35970)*X(5108)-JVS(35971)*X(5109)-JVS(35972)& - &*X(5112)-JVS(35973)*X(5116)-JVS(35974)*X(5117)-JVS(35975)*X(5119)-JVS(35976)*X(5121)-JVS(35977)*X(5123)& - &-JVS(35978)*X(5126)-JVS(35979)*X(5138)-JVS(35980)*X(5141)-JVS(35981)*X(5142)-JVS(35982)*X(5144)-JVS(35983)& - &*X(5147)-JVS(35984)*X(5157)-JVS(35985)*X(5161)-JVS(35986)*X(5162)-JVS(35987)*X(5164)-JVS(35988)*X(5178)& - &-JVS(35989)*X(5183)-JVS(35990)*X(5185)-JVS(35991)*X(5186)-JVS(35992)*X(5190)-JVS(35993)*X(5191)-JVS(35994)& - &*X(5192) - X(5194) = X(5194)-JVS(36012)*X(1102)-JVS(36013)*X(1777)-JVS(36014)*X(1909)-JVS(36015)*X(1910)-JVS(36016)*X(2272)& - &-JVS(36017)*X(2431)-JVS(36018)*X(2706)-JVS(36019)*X(2771)-JVS(36020)*X(2801)-JVS(36021)*X(3496)-JVS(36022)& - &*X(3607)-JVS(36023)*X(3653)-JVS(36024)*X(4111)-JVS(36025)*X(4259)-JVS(36026)*X(4372)-JVS(36027)*X(4373)& - &-JVS(36028)*X(4765)-JVS(36029)*X(4814)-JVS(36030)*X(4819)-JVS(36031)*X(4907)-JVS(36032)*X(5081)-JVS(36033)& - &*X(5093)-JVS(36034)*X(5153)-JVS(36035)*X(5166)-JVS(36036)*X(5181) - X(5195) = X(5195)-JVS(36047)*X(237)-JVS(36048)*X(868)-JVS(36049)*X(1733)-JVS(36050)*X(1809)-JVS(36051)*X(2374)& - &-JVS(36052)*X(2542)-JVS(36053)*X(2665)-JVS(36054)*X(3386)-JVS(36055)*X(3430)-JVS(36056)*X(3642)-JVS(36057)& - &*X(3682)-JVS(36058)*X(4342)-JVS(36059)*X(4730)-JVS(36060)*X(4734)-JVS(36061)*X(4844)-JVS(36062)*X(4870)& - &-JVS(36063)*X(4973)-JVS(36064)*X(5027)-JVS(36065)*X(5063)-JVS(36066)*X(5064)-JVS(36067)*X(5077)-JVS(36068)& - &*X(5082)-JVS(36069)*X(5088)-JVS(36070)*X(5090)-JVS(36071)*X(5124)-JVS(36072)*X(5142)-JVS(36073)*X(5147)& - &-JVS(36074)*X(5148)-JVS(36075)*X(5150)-JVS(36076)*X(5153)-JVS(36077)*X(5161)-JVS(36078)*X(5162)-JVS(36079)& - &*X(5163)-JVS(36080)*X(5178)-JVS(36081)*X(5181)-JVS(36082)*X(5183)-JVS(36083)*X(5184)-JVS(36084)*X(5185)& - &-JVS(36085)*X(5186)-JVS(36086)*X(5187)-JVS(36087)*X(5191)-JVS(36088)*X(5192)-JVS(36089)*X(5194) - X(5196) = X(5196)-JVS(36110)*X(612)-JVS(36111)*X(1424)-JVS(36112)*X(2340)-JVS(36113)*X(4824)-JVS(36114)*X(4849)& - &-JVS(36115)*X(5175)-JVS(36116)*X(5176) - X(5197) = X(5197)-JVS(36126)*X(214)-JVS(36127)*X(1201)-JVS(36128)*X(2393)-JVS(36129)*X(3346)-JVS(36130)*X(3708)& - &-JVS(36131)*X(3832)-JVS(36132)*X(4104)-JVS(36133)*X(4580)-JVS(36134)*X(4597)-JVS(36135)*X(4644)-JVS(36136)& - &*X(4758)-JVS(36137)*X(4871)-JVS(36138)*X(4884)-JVS(36139)*X(4938)-JVS(36140)*X(4947)-JVS(36141)*X(4948)& - &-JVS(36142)*X(4950)-JVS(36143)*X(4968)-JVS(36144)*X(4971)-JVS(36145)*X(5007)-JVS(36146)*X(5008)-JVS(36147)& - &*X(5019)-JVS(36148)*X(5030)-JVS(36149)*X(5045)-JVS(36150)*X(5061)-JVS(36151)*X(5062)-JVS(36152)*X(5063)& - &-JVS(36153)*X(5076)-JVS(36154)*X(5088)-JVS(36155)*X(5098)-JVS(36156)*X(5105)-JVS(36157)*X(5109)-JVS(36158)& - &*X(5116)-JVS(36159)*X(5117)-JVS(36160)*X(5119)-JVS(36161)*X(5147)-JVS(36162)*X(5159)-JVS(36163)*X(5161)& - &-JVS(36164)*X(5171)-JVS(36165)*X(5175)-JVS(36166)*X(5178)-JVS(36167)*X(5185)-JVS(36168)*X(5186)-JVS(36169)& - &*X(5187)-JVS(36170)*X(5196) - X(5198) = X(5198)-JVS(36185)*X(604)-JVS(36186)*X(1462)-JVS(36187)*X(2002)-JVS(36188)*X(2140)-JVS(36189)*X(4492)& - &-JVS(36190)*X(4912)-JVS(36191)*X(5029) - X(5199) = X(5199)-JVS(36202)*X(2039)-JVS(36203)*X(2388)-JVS(36204)*X(2484)-JVS(36205)*X(2622)-JVS(36206)*X(2652)& - &-JVS(36207)*X(2833)-JVS(36208)*X(2970)-JVS(36209)*X(2998)-JVS(36210)*X(3595)-JVS(36211)*X(3708)-JVS(36212)& - &*X(3729)-JVS(36213)*X(3965)-JVS(36214)*X(4025)-JVS(36215)*X(4026)-JVS(36216)*X(4325)-JVS(36217)*X(4327)& - &-JVS(36218)*X(4329)-JVS(36219)*X(4352)-JVS(36220)*X(4445)-JVS(36221)*X(4490)-JVS(36222)*X(4535)-JVS(36223)& - &*X(4617)-JVS(36224)*X(4706)-JVS(36225)*X(4724)-JVS(36226)*X(4731)-JVS(36227)*X(4758)-JVS(36228)*X(4772)& - &-JVS(36229)*X(4835)-JVS(36230)*X(4897)-JVS(36231)*X(4913)-JVS(36232)*X(4945)-JVS(36233)*X(4971)-JVS(36234)& - &*X(5037)-JVS(36235)*X(5051)-JVS(36236)*X(5080)-JVS(36237)*X(5123)-JVS(36238)*X(5132)-JVS(36239)*X(5134)& - &-JVS(36240)*X(5154)-JVS(36241)*X(5159)-JVS(36242)*X(5162)-JVS(36243)*X(5166)-JVS(36244)*X(5171)-JVS(36245)& - &*X(5173)-JVS(36246)*X(5174)-JVS(36247)*X(5175)-JVS(36248)*X(5177)-JVS(36249)*X(5185)-JVS(36250)*X(5186)& - &-JVS(36251)*X(5187)-JVS(36252)*X(5189)-JVS(36253)*X(5196)-JVS(36254)*X(5197)-JVS(36255)*X(5198) - X(5200) = X(5200)-JVS(36276)*X(1673)-JVS(36277)*X(2476)-JVS(36278)*X(3155)-JVS(36279)*X(3389)-JVS(36280)*X(3689)& - &-JVS(36281)*X(4765)-JVS(36282)*X(5042)-JVS(36283)*X(5081)-JVS(36284)*X(5147)-JVS(36285)*X(5166)-JVS(36286)& - &*X(5181) - X(5201) = X(5201)-JVS(36296)*X(668)-JVS(36297)*X(1573)-JVS(36298)*X(1580)-JVS(36299)*X(3084)-JVS(36300)*X(3085)& - &-JVS(36301)*X(3093)-JVS(36302)*X(3096)-JVS(36303)*X(3097)-JVS(36304)*X(3098)-JVS(36305)*X(3101)-JVS(36306)& - &*X(3105)-JVS(36307)*X(3111)-JVS(36308)*X(3113)-JVS(36309)*X(3125)-JVS(36310)*X(3129)-JVS(36311)*X(3130)& - &-JVS(36312)*X(3131)-JVS(36313)*X(3134)-JVS(36314)*X(3135)-JVS(36315)*X(3136)-JVS(36316)*X(3138)-JVS(36317)& - &*X(3139)-JVS(36318)*X(3140)-JVS(36319)*X(3144)-JVS(36320)*X(3145)-JVS(36321)*X(3149)-JVS(36322)*X(3150)& - &-JVS(36323)*X(3153)-JVS(36324)*X(3157)-JVS(36325)*X(3158)-JVS(36326)*X(3161)-JVS(36327)*X(3164)-JVS(36328)& - &*X(3165)-JVS(36329)*X(3169)-JVS(36330)*X(3170)-JVS(36331)*X(3172)-JVS(36332)*X(3179)-JVS(36333)*X(3180)& - &-JVS(36334)*X(3182)-JVS(36335)*X(3192)-JVS(36336)*X(3193)-JVS(36337)*X(3219)-JVS(36338)*X(3244)-JVS(36339)& - &*X(3248)-JVS(36340)*X(3263)-JVS(36341)*X(3329)-JVS(36342)*X(3347)-JVS(36343)*X(3362)-JVS(36344)*X(3363)& - &-JVS(36345)*X(3370)-JVS(36346)*X(3371)-JVS(36347)*X(3375)-JVS(36348)*X(3381)-JVS(36349)*X(3388)-JVS(36350)& - &*X(3402)-JVS(36351)*X(3417)-JVS(36352)*X(3437)-JVS(36353)*X(3454)-JVS(36354)*X(3470)-JVS(36355)*X(3471)& - &-JVS(36356)*X(3472)-JVS(36357)*X(3482)-JVS(36358)*X(3483)-JVS(36359)*X(3484)-JVS(36360)*X(3488)-JVS(36361)& - &*X(3494)-JVS(36362)*X(3499)-JVS(36363)*X(3506)-JVS(36364)*X(3508)-JVS(36365)*X(3510)-JVS(36366)*X(3512)& - &-JVS(36367)*X(3513)-JVS(36368)*X(3526)-JVS(36369)*X(3543)-JVS(36370)*X(3545)-JVS(36371)*X(3546)-JVS(36372)& - &*X(3551)-JVS(36373)*X(3560)-JVS(36374)*X(3574)-JVS(36375)*X(3596)-JVS(36376)*X(3633)-JVS(36377)*X(3640)& - &-JVS(36378)*X(3643)-JVS(36379)*X(3645)-JVS(36380)*X(3649)-JVS(36381)*X(3654)-JVS(36382)*X(3655)-JVS(36383)& - &*X(3657)-JVS(36384)*X(3660)-JVS(36385)*X(3662)-JVS(36386)*X(3684)-JVS(36387)*X(3701)-JVS(36388)*X(3748)& - &-JVS(36389)*X(3773)-JVS(36390)*X(3775)-JVS(36391)*X(3792)-JVS(36392)*X(3830)-JVS(36393)*X(3831)-JVS(36394)& - &*X(3833)-JVS(36395)*X(3834)-JVS(36396)*X(3849)-JVS(36397)*X(3851)-JVS(36398)*X(3856)-JVS(36399)*X(3857)& - &-JVS(36400)*X(3861)-JVS(36401)*X(3862)-JVS(36402)*X(3875)-JVS(36403)*X(3877)-JVS(36404)*X(3879)-JVS(36405)& - &*X(3892)-JVS(36406)*X(3896)-JVS(36407)*X(3900)-JVS(36408)*X(3911)-JVS(36409)*X(3913)-JVS(36410)*X(3914)& - &-JVS(36411)*X(3915)-JVS(36412)*X(3923)-JVS(36413)*X(3924)-JVS(36414)*X(3935)-JVS(36415)*X(3938)-JVS(36416)& - &*X(3946)-JVS(36417)*X(3947)-JVS(36418)*X(3960)-JVS(36419)*X(3972)-JVS(36420)*X(3986)-JVS(36421)*X(3991)& - &-JVS(36422)*X(3995)-JVS(36423)*X(3996)-JVS(36424)*X(4010)-JVS(36425)*X(4017)-JVS(36426)*X(4018)-JVS(36427)& - &*X(4027)-JVS(36428)*X(4032)-JVS(36429)*X(4048)-JVS(36430)*X(4056)-JVS(36431)*X(4069)-JVS(36432)*X(4080)& - &-JVS(36433)*X(4083)-JVS(36434)*X(4093)-JVS(36435)*X(4094)-JVS(36436)*X(4107)-JVS(36437)*X(4108)-JVS(36438)& - &*X(4110)-JVS(36439)*X(4113)-JVS(36440)*X(4114)-JVS(36441)*X(4117)-JVS(36442)*X(4120)-JVS(36443)*X(4151)& - &-JVS(36444)*X(4155)-JVS(36445)*X(4156)-JVS(36446)*X(4160)-JVS(36447)*X(4174)-JVS(36448)*X(4186)-JVS(36449)& - &*X(4224)-JVS(36450)*X(4227)-JVS(36451)*X(4231)-JVS(36452)*X(4233)-JVS(36453)*X(4239)-JVS(36454)*X(4261)& - &-JVS(36455)*X(4272)-JVS(36456)*X(4278)-JVS(36457)*X(4279)-JVS(36458)*X(4313)-JVS(36459)*X(4338)-JVS(36460)& - &*X(4346)-JVS(36461)*X(4348)-JVS(36462)*X(4350)-JVS(36463)*X(4359)-JVS(36464)*X(4362)-JVS(36465)*X(4373)& - &-JVS(36466)*X(4396)-JVS(36467)*X(4397)-JVS(36468)*X(4407)-JVS(36469)*X(4408)-JVS(36470)*X(4415)-JVS(36471)& - &*X(4424)-JVS(36472)*X(4425)-JVS(36473)*X(4434)-JVS(36474)*X(4437)-JVS(36475)*X(4438)-JVS(36476)*X(4449)& - &-JVS(36477)*X(4453)-JVS(36478)*X(4455)-JVS(36479)*X(4457)-JVS(36480)*X(4458)-JVS(36481)*X(4462)-JVS(36482)& - &*X(4463)-JVS(36483)*X(4464)-JVS(36484)*X(4467)-JVS(36485)*X(4478)-JVS(36486)*X(4479)-JVS(36487)*X(4490)& - &-JVS(36488)*X(4493)-JVS(36489)*X(4494)-JVS(36490)*X(4495)-JVS(36491)*X(4498)-JVS(36492)*X(4501)-JVS(36493)& - &*X(4502)-JVS(36494)*X(4504)-JVS(36495)*X(4506)-JVS(36496)*X(4511)-JVS(36497)*X(4530)-JVS(36498)*X(4537)& - &-JVS(36499)*X(4540)-JVS(36500)*X(4547)-JVS(36501)*X(4559)-JVS(36502)*X(4569)-JVS(36503)*X(4576)-JVS(36504)& - &*X(4589)-JVS(36505)*X(4591)-JVS(36506)*X(4592)-JVS(36507)*X(4595)-JVS(36508)*X(4600)-JVS(36509)*X(4609)& - &-JVS(36510)*X(4610)-JVS(36511)*X(4616)-JVS(36512)*X(4630)-JVS(36513)*X(4632)-JVS(36514)*X(4637)-JVS(36515)& - &*X(4643)-JVS(36516)*X(4650)-JVS(36517)*X(4651)-JVS(36518)*X(4655)-JVS(36519)*X(4663)-JVS(36520)*X(4671)& - &-JVS(36521)*X(4676)-JVS(36522)*X(4682)-JVS(36523)*X(4690)-JVS(36524)*X(4696)-JVS(36525)*X(4698)-JVS(36526)& - &*X(4707)-JVS(36527)*X(4710)-JVS(36528)*X(4717)-JVS(36529)*X(4721)-JVS(36530)*X(4729)-JVS(36531)*X(4730)& - &-JVS(36532)*X(4732)-JVS(36533)*X(4733)-JVS(36534)*X(4734)-JVS(36535)*X(4737)-JVS(36536)*X(4774)-JVS(36537)& - &*X(4775)-JVS(36538)*X(4777)-JVS(36539)*X(4778)-JVS(36540)*X(4779)-JVS(36541)*X(4785)-JVS(36542)*X(4788)& - &-JVS(36543)*X(4789)-JVS(36544)*X(4790)-JVS(36545)*X(4791)-JVS(36546)*X(4793)-JVS(36547)*X(4797)-JVS(36548)& - &*X(4798)-JVS(36549)*X(4799)-JVS(36550)*X(4803)-JVS(36551)*X(4806)-JVS(36552)*X(4808)-JVS(36553)*X(4809)& - &-JVS(36554)*X(4810)-JVS(36555)*X(4815)-JVS(36556)*X(4820)-JVS(36557)*X(4821)-JVS(36558)*X(4828)-JVS(36559)& - &*X(4834)-JVS(36560)*X(4835)-JVS(36561)*X(4840)-JVS(36562)*X(4842)-JVS(36563)*X(4845)-JVS(36564)*X(4851)& - &-JVS(36565)*X(4854)-JVS(36566)*X(4859)-JVS(36567)*X(4872)-JVS(36568)*X(4873)-JVS(36569)*X(4878)-JVS(36570)& - &*X(4879)-JVS(36571)*X(4880)-JVS(36572)*X(4881)-JVS(36573)*X(4882)-JVS(36574)*X(4886)-JVS(36575)*X(4895)& - &-JVS(36576)*X(4896)-JVS(36577)*X(4898)-JVS(36578)*X(4902)-JVS(36579)*X(4911)-JVS(36580)*X(4914)-JVS(36581)& - &*X(4918)-JVS(36582)*X(4922)-JVS(36583)*X(4923)-JVS(36584)*X(4925)-JVS(36585)*X(4927)-JVS(36586)*X(4928)& - &-JVS(36587)*X(4931)-JVS(36588)*X(4932)-JVS(36589)*X(4933)-JVS(36590)*X(4937)-JVS(36591)*X(4939)-JVS(36592)& - &*X(4951)-JVS(36593)*X(4960)-JVS(36594)*X(4961)-JVS(36595)*X(4964)-JVS(36596)*X(4965)-JVS(36597)*X(4969)& - &-JVS(36598)*X(4971)-JVS(36599)*X(4972)-JVS(36600)*X(4975)-JVS(36601)*X(4976)-JVS(36602)*X(4978)-JVS(36603)& - &*X(4980)-JVS(36604)*X(4984)-JVS(36605)*X(4987)-JVS(36606)*X(4996)-JVS(36607)*X(4997)-JVS(36608)*X(4998)& - &-JVS(36609)*X(5002)-JVS(36610)*X(5009)-JVS(36611)*X(5010)-JVS(36612)*X(5012)-JVS(36613)*X(5018)-JVS(36614)& - &*X(5019)-JVS(36615)*X(5021)-JVS(36616)*X(5023)-JVS(36617)*X(5024)-JVS(36618)*X(5026)-JVS(36619)*X(5029)& - &-JVS(36620)*X(5030)-JVS(36621)*X(5032)-JVS(36622)*X(5042)-JVS(36623)*X(5043)-JVS(36624)*X(5044)-JVS(36625)& - &*X(5045)-JVS(36626)*X(5049)-JVS(36627)*X(5050)-JVS(36628)*X(5055)-JVS(36629)*X(5056)-JVS(36630)*X(5057)& - &-JVS(36631)*X(5058)-JVS(36632)*X(5063)-JVS(36633)*X(5064)-JVS(36634)*X(5065)-JVS(36635)*X(5066)-JVS(36636)& - &*X(5067)-JVS(36637)*X(5068)-JVS(36638)*X(5069)-JVS(36639)*X(5071)-JVS(36640)*X(5072)-JVS(36641)*X(5076)& - &-JVS(36642)*X(5077)-JVS(36643)*X(5078)-JVS(36644)*X(5081)-JVS(36645)*X(5082)-JVS(36646)*X(5083)-JVS(36647)& - &*X(5085)-JVS(36648)*X(5086)-JVS(36649)*X(5087)-JVS(36650)*X(5088)-JVS(36651)*X(5089)-JVS(36652)*X(5090)& - &-JVS(36653)*X(5091)-JVS(36654)*X(5093)-JVS(36655)*X(5095)-JVS(36656)*X(5096)-JVS(36657)*X(5097)-JVS(36658)& - &*X(5105)-JVS(36659)*X(5111)-JVS(36660)*X(5112)-JVS(36661)*X(5113)-JVS(36662)*X(5114)-JVS(36663)*X(5115)& - &-JVS(36664)*X(5116)-JVS(36665)*X(5118)-JVS(36666)*X(5119)-JVS(36667)*X(5120)-JVS(36668)*X(5121)-JVS(36669)& - &*X(5123)-JVS(36670)*X(5126)-JVS(36671)*X(5127)-JVS(36672)*X(5135)-JVS(36673)*X(5136)-JVS(36674)*X(5138)& - &-JVS(36675)*X(5139)-JVS(36676)*X(5140)-JVS(36677)*X(5141)-JVS(36678)*X(5143)-JVS(36679)*X(5144)-JVS(36680)& - &*X(5146)-JVS(36681)*X(5147)-JVS(36682)*X(5148)-JVS(36683)*X(5149)-JVS(36684)*X(5150)-JVS(36685)*X(5151)& - &-JVS(36686)*X(5153)-JVS(36687)*X(5157)-JVS(36688)*X(5159)-JVS(36689)*X(5161)-JVS(36690)*X(5162)-JVS(36691)& - &*X(5163)-JVS(36692)*X(5164)-JVS(36693)*X(5165)-JVS(36694)*X(5166)-JVS(36695)*X(5169)-JVS(36696)*X(5175)& - &-JVS(36697)*X(5176)-JVS(36698)*X(5177)-JVS(36699)*X(5178)-JVS(36700)*X(5180)-JVS(36701)*X(5181)-JVS(36702)& - &*X(5182)-JVS(36703)*X(5184)-JVS(36704)*X(5185)-JVS(36705)*X(5186)-JVS(36706)*X(5187)-JVS(36707)*X(5189)& - &-JVS(36708)*X(5190)-JVS(36709)*X(5191)-JVS(36710)*X(5192)-JVS(36711)*X(5193)-JVS(36712)*X(5194)-JVS(36713)& - &*X(5196)-JVS(36714)*X(5198)-JVS(36715)*X(5199)-JVS(36716)*X(5200) - X(5202) = X(5202)-JVS(36763)*X(330)-JVS(36764)*X(1015)-JVS(36765)*X(1655)-JVS(36766)*X(1704)-JVS(36767)*X(1705)& - &-JVS(36768)*X(3083)-JVS(36769)*X(3277)-JVS(36770)*X(4391)-JVS(36771)*X(4555)-JVS(36772)*X(4583)-JVS(36773)& - &*X(4802)-JVS(36774)*X(4827)-JVS(36775)*X(4885)-JVS(36776)*X(4934)-JVS(36777)*X(4975)-JVS(36778)*X(5055)& - &-JVS(36779)*X(5119)-JVS(36780)*X(5120)-JVS(36781)*X(5145)-JVS(36782)*X(5146)-JVS(36783)*X(5150)-JVS(36784)& - &*X(5151)-JVS(36785)*X(5163)-JVS(36786)*X(5164)-JVS(36787)*X(5186)-JVS(36788)*X(5190)-JVS(36789)*X(5192)& - &-JVS(36790)*X(5200) - X(5203) = X(5203)-JVS(36804)*X(666)-JVS(36805)*X(1261)-JVS(36806)*X(1587)-JVS(36807)*X(1701)-JVS(36808)*X(1715)& - &-JVS(36809)*X(2036)-JVS(36810)*X(2237)-JVS(36811)*X(2301)-JVS(36812)*X(2339)-JVS(36813)*X(2743)-JVS(36814)& - &*X(2747)-JVS(36815)*X(2872)-JVS(36816)*X(3051)-JVS(36817)*X(3061)-JVS(36818)*X(3210)-JVS(36819)*X(3252)& - &-JVS(36820)*X(3268)-JVS(36821)*X(3314)-JVS(36822)*X(3575)-JVS(36823)*X(3779)-JVS(36824)*X(3887)-JVS(36825)& - &*X(4093)-JVS(36826)*X(4160)-JVS(36827)*X(4215)-JVS(36828)*X(4380)-JVS(36829)*X(4433)-JVS(36830)*X(4508)& - &-JVS(36831)*X(4562)-JVS(36832)*X(4571)-JVS(36833)*X(4594)-JVS(36834)*X(4688)-JVS(36835)*X(4700)-JVS(36836)& - &*X(4744)-JVS(36837)*X(4755)-JVS(36838)*X(4868)-JVS(36839)*X(4881)-JVS(36840)*X(4961)-JVS(36841)*X(4974)& - &-JVS(36842)*X(5043)-JVS(36843)*X(5068)-JVS(36844)*X(5146) - X(5204) = X(5204)-JVS(36855)*X(715)-JVS(36856)*X(5166) - X(5205) = X(5205)-JVS(36864)*X(2130)-JVS(36865)*X(3413)-JVS(36866)*X(4107)-JVS(36867)*X(5118)-JVS(36868)*X(5166)& - &-JVS(36869)*X(5204) - X(5206) = X(5206)-JVS(36879)*X(1251)-JVS(36880)*X(1746)-JVS(36881)*X(4988)-JVS(36882)*X(5099) - X(5207) = X(5207)-JVS(36891)*X(325)-JVS(36892)*X(770)-JVS(36893)*X(1178)-JVS(36894)*X(1611)-JVS(36895)*X(1771)& - &-JVS(36896)*X(1834)-JVS(36897)*X(2469)-JVS(36898)*X(2685)-JVS(36899)*X(4754)-JVS(36900)*X(4988)-JVS(36901)& - &*X(4989)-JVS(36902)*X(5041) - X(5208) = X(5208)-JVS(36911)*X(611)-JVS(36912)*X(1332)-JVS(36913)*X(1817)-JVS(36914)*X(2318)-JVS(36915)*X(2487)& - &-JVS(36916)*X(3118)-JVS(36917)*X(3505)-JVS(36918)*X(3542)-JVS(36919)*X(4527)-JVS(36920)*X(4582)-JVS(36921)& - &*X(4766)-JVS(36922)*X(4838)-JVS(36923)*X(4879)-JVS(36924)*X(4944)-JVS(36925)*X(5107)-JVS(36926)*X(5109)& - &-JVS(36927)*X(5135)-JVS(36928)*X(5165) - X(5209) = X(5209)-JVS(36939)*X(3754)-JVS(36940)*X(3802)-JVS(36941)*X(3824)-JVS(36942)*X(3826)-JVS(36943)*X(4004)& - &-JVS(36944)*X(4529)-JVS(36945)*X(4832)-JVS(36946)*X(4976)-JVS(36947)*X(5002)-JVS(36948)*X(5030)-JVS(36949)& - &*X(5069)-JVS(36950)*X(5166)-JVS(36951)*X(5204)-JVS(36952)*X(5205) - X(5210) = X(5210)-JVS(36963)*X(1185)-JVS(36964)*X(1289)-JVS(36965)*X(1558)-JVS(36966)*X(1602)-JVS(36967)*X(1681)& - &-JVS(36968)*X(1726)-JVS(36969)*X(1734)-JVS(36970)*X(2602)-JVS(36971)*X(2660)-JVS(36972)*X(3044)-JVS(36973)& - &*X(3094)-JVS(36974)*X(3261)-JVS(36975)*X(3392)-JVS(36976)*X(3400)-JVS(36977)*X(3455)-JVS(36978)*X(3477)& - &-JVS(36979)*X(3520)-JVS(36980)*X(3567)-JVS(36981)*X(3584)-JVS(36982)*X(3589)-JVS(36983)*X(3605)-JVS(36984)& - &*X(3614)-JVS(36985)*X(3693)-JVS(36986)*X(4101)-JVS(36987)*X(4180)-JVS(36988)*X(4347)-JVS(36989)*X(4353)& - &-JVS(36990)*X(4695)-JVS(36991)*X(4699)-JVS(36992)*X(4706)-JVS(36993)*X(4718)-JVS(36994)*X(4803)-JVS(36995)& - &*X(4805)-JVS(36996)*X(4821)-JVS(36997)*X(4835)-JVS(36998)*X(4840)-JVS(36999)*X(4861)-JVS(37000)*X(4867)& - &-JVS(37001)*X(4894)-JVS(37002)*X(4922)-JVS(37003)*X(4958)-JVS(37004)*X(4971)-JVS(37005)*X(4976)-JVS(37006)& - &*X(5003)-JVS(37007)*X(5019)-JVS(37008)*X(5020)-JVS(37009)*X(5033)-JVS(37010)*X(5037)-JVS(37011)*X(5075)& - &-JVS(37012)*X(5076)-JVS(37013)*X(5123)-JVS(37014)*X(5132)-JVS(37015)*X(5154)-JVS(37016)*X(5159)-JVS(37017)& - &*X(5166)-JVS(37018)*X(5173)-JVS(37019)*X(5174)-JVS(37020)*X(5205)-JVS(37021)*X(5209) - X(5211) = X(5211)-JVS(37038)*X(687)-JVS(37039)*X(2674)-JVS(37040)*X(3006)-JVS(37041)*X(3029)-JVS(37042)*X(3425)& - &-JVS(37043)*X(3613)-JVS(37044)*X(3957)-JVS(37045)*X(4248)-JVS(37046)*X(4363)-JVS(37047)*X(4371)-JVS(37048)& - &*X(4394)-JVS(37049)*X(4442)-JVS(37050)*X(4451)-JVS(37051)*X(4785)-JVS(37052)*X(4825)-JVS(37053)*X(4839)& - &-JVS(37054)*X(4882)-JVS(37055)*X(4978)-JVS(37056)*X(5073)-JVS(37057)*X(5131)-JVS(37058)*X(5148)-JVS(37059)& - &*X(5163)-JVS(37060)*X(5175)-JVS(37061)*X(5176)-JVS(37062)*X(5181)-JVS(37063)*X(5192)-JVS(37064)*X(5196)& - &-JVS(37065)*X(5206) - X(5212) = X(5212)-JVS(37082)*X(401)-JVS(37083)*X(1205)-JVS(37084)*X(2061)-JVS(37085)*X(2593)-JVS(37086)*X(4847)& - &-JVS(37087)*X(5169) - X(5213) = X(5213)-JVS(37098)*X(670)-JVS(37099)*X(783)-JVS(37100)*X(784)-JVS(37101)*X(1844)-JVS(37102)*X(2058)& - &-JVS(37103)*X(2103)-JVS(37104)*X(2181)-JVS(37105)*X(3744)-JVS(37106)*X(3921)-JVS(37107)*X(3936)-JVS(37108)& - &*X(3943)-JVS(37109)*X(4492)-JVS(37110)*X(4912)-JVS(37111)*X(4925) - X(5214) = X(5214)-JVS(37121)*X(582)-JVS(37122)*X(741)-JVS(37123)*X(1319)-JVS(37124)*X(1732)-JVS(37125)*X(1757)& - &-JVS(37126)*X(1843)-JVS(37127)*X(1888)-JVS(37128)*X(1913)-JVS(37129)*X(1929)-JVS(37130)*X(2154)-JVS(37131)& - &*X(2439)-JVS(37132)*X(2667)-JVS(37133)*X(2804)-JVS(37134)*X(3309)-JVS(37135)*X(3355)-JVS(37136)*X(3373)& - &-JVS(37137)*X(3410)-JVS(37138)*X(3420)-JVS(37139)*X(3447)-JVS(37140)*X(3580)-JVS(37141)*X(3591)-JVS(37142)& - &*X(3874)-JVS(37143)*X(4157)-JVS(37144)*X(4158)-JVS(37145)*X(4162)-JVS(37146)*X(4172)-JVS(37147)*X(4176)& - &-JVS(37148)*X(4268)-JVS(37149)*X(4360)-JVS(37150)*X(4362)-JVS(37151)*X(4409)-JVS(37152)*X(4410)-JVS(37153)& - &*X(4447)-JVS(37154)*X(4462)-JVS(37155)*X(4748)-JVS(37156)*X(4762)-JVS(37157)*X(4764)-JVS(37158)*X(4806)& - &-JVS(37159)*X(4898)-JVS(37160)*X(4900)-JVS(37161)*X(4960)-JVS(37162)*X(4996)-JVS(37163)*X(5014)-JVS(37164)& - &*X(5021)-JVS(37165)*X(5028)-JVS(37166)*X(5072)-JVS(37167)*X(5081)-JVS(37168)*X(5086)-JVS(37169)*X(5105)& - &-JVS(37170)*X(5111)-JVS(37171)*X(5113)-JVS(37172)*X(5122)-JVS(37173)*X(5159)-JVS(37174)*X(5161)-JVS(37175)& - &*X(5175)-JVS(37176)*X(5181)-JVS(37177)*X(5182)-JVS(37178)*X(5185)-JVS(37179)*X(5186)-JVS(37180)*X(5187)& - &-JVS(37181)*X(5198)-JVS(37182)*X(5207)-JVS(37183)*X(5213) - X(5215) = X(5215)-JVS(37200)*X(1770)-JVS(37201)*X(2146)-JVS(37202)*X(2516)-JVS(37203)*X(2898)-JVS(37204)*X(2902)& - &-JVS(37205)*X(2959)-JVS(37206)*X(3017)-JVS(37207)*X(3030)-JVS(37208)*X(3141)-JVS(37209)*X(3806)-JVS(37210)& - &*X(4097)-JVS(37211)*X(4146)-JVS(37212)*X(4151)-JVS(37213)*X(4185)-JVS(37214)*X(4186)-JVS(37215)*X(4266)& - &-JVS(37216)*X(4301)-JVS(37217)*X(4302)-JVS(37218)*X(4600) - X(5216) = X(5216)-JVS(37228)*X(67)-JVS(37229)*X(3809)-JVS(37230)*X(4199)-JVS(37231)*X(4570)-JVS(37232)*X(4875)& - &-JVS(37233)*X(4877)-JVS(37234)*X(4983)-JVS(37235)*X(5002)-JVS(37236)*X(5005)-JVS(37237)*X(5025)-JVS(37238)& - &*X(5034)-JVS(37239)*X(5036)-JVS(37240)*X(5058)-JVS(37241)*X(5076)-JVS(37242)*X(5081)-JVS(37243)*X(5100)& - &-JVS(37244)*X(5103)-JVS(37245)*X(5111)-JVS(37246)*X(5113)-JVS(37247)*X(5126)-JVS(37248)*X(5141)-JVS(37249)& - &*X(5154)-JVS(37250)*X(5159)-JVS(37251)*X(5167)-JVS(37252)*X(5168)-JVS(37253)*X(5173)-JVS(37254)*X(5174)& - &-JVS(37255)*X(5181)-JVS(37256)*X(5199)-JVS(37257)*X(5204)-JVS(37258)*X(5205)-JVS(37259)*X(5209)-JVS(37260)& - &*X(5210)-JVS(37261)*X(5213)-JVS(37262)*X(5215) - X(5217) = X(5217)-JVS(37283)*X(702)-JVS(37284)*X(5166) - X(5218) = X(5218)-JVS(37292)*X(606)-JVS(37293)*X(4107)-JVS(37294)*X(5166)-JVS(37295)*X(5217) - X(5219) = X(5219)-JVS(37303)*X(606)-JVS(37304)*X(702)-JVS(37305)*X(2252)-JVS(37306)*X(5166)-JVS(37307)*X(5217)& - &-JVS(37308)*X(5218) - X(5220) = X(5220)-JVS(37315)*X(1661)-JVS(37316)*X(2308)-JVS(37317)*X(3413)-JVS(37318)*X(4113)-JVS(37319)*X(5118)& - &-JVS(37320)*X(5166)-JVS(37321)*X(5168)-JVS(37322)*X(5204)-JVS(37323)*X(5217)-JVS(37324)*X(5218)-JVS(37325)& - &*X(5219) - X(5221) = X(5221)-JVS(37333)*X(10)-JVS(37334)*X(1006)-JVS(37335)*X(1222)-JVS(37336)*X(2003)-JVS(37337)*X(2183)& - &-JVS(37338)*X(2570)-JVS(37339)*X(2928)-JVS(37340)*X(4519)-JVS(37341)*X(4615)-JVS(37342)*X(4753)-JVS(37343)& - &*X(4936)-JVS(37344)*X(5022)-JVS(37345)*X(5040)-JVS(37346)*X(5074)-JVS(37347)*X(5075)-JVS(37348)*X(5118)& - &-JVS(37349)*X(5154)-JVS(37350)*X(5166)-JVS(37351)*X(5167)-JVS(37352)*X(5173)-JVS(37353)*X(5174)-JVS(37354)& - &*X(5204)-JVS(37355)*X(5205)-JVS(37356)*X(5217)-JVS(37357)*X(5218)-JVS(37358)*X(5219)-JVS(37359)*X(5220) - X(5222) = X(5222)-JVS(37371)*X(19)-JVS(37372)*X(529)-JVS(37373)*X(563)-JVS(37374)*X(605)-JVS(37375)*X(711)-JVS(37376)& - &*X(734)-JVS(37377)*X(750)-JVS(37378)*X(796)-JVS(37379)*X(1346)-JVS(37380)*X(1651)-JVS(37381)*X(1682)& - &-JVS(37382)*X(1795)-JVS(37383)*X(1807)-JVS(37384)*X(1810)-JVS(37385)*X(1833)-JVS(37386)*X(1866)-JVS(37387)& - &*X(1891)-JVS(37388)*X(1955)-JVS(37389)*X(2029)-JVS(37390)*X(2105)-JVS(37391)*X(2131)-JVS(37392)*X(2175)& - &-JVS(37393)*X(2249)-JVS(37394)*X(2358)-JVS(37395)*X(2382)-JVS(37396)*X(2491)-JVS(37397)*X(2521)-JVS(37398)& - &*X(2592)-JVS(37399)*X(2595)-JVS(37400)*X(2603)-JVS(37401)*X(2662)-JVS(37402)*X(2752)-JVS(37403)*X(2762)& - &-JVS(37404)*X(2776)-JVS(37405)*X(2789)-JVS(37406)*X(2793)-JVS(37407)*X(2814)-JVS(37408)*X(2828)-JVS(37409)& - &*X(2830)-JVS(37410)*X(2847)-JVS(37411)*X(2876)-JVS(37412)*X(2887)-JVS(37413)*X(2904)-JVS(37414)*X(2967)& - &-JVS(37415)*X(2999)-JVS(37416)*X(3021)-JVS(37417)*X(3056)-JVS(37418)*X(3068)-JVS(37419)*X(3071)-JVS(37420)& - &*X(3082)-JVS(37421)*X(3094)-JVS(37422)*X(3196)-JVS(37423)*X(3201)-JVS(37424)*X(3214)-JVS(37425)*X(3234)& - &-JVS(37426)*X(3240)-JVS(37427)*X(3246)-JVS(37428)*X(3250)-JVS(37429)*X(3259)-JVS(37430)*X(3264)-JVS(37431)& - &*X(3278)-JVS(37432)*X(3281)-JVS(37433)*X(3300)-JVS(37434)*X(3304)-JVS(37435)*X(3320)-JVS(37436)*X(3332)& - &-JVS(37437)*X(3354)-JVS(37438)*X(3366)-JVS(37439)*X(3433)-JVS(37440)*X(3435)-JVS(37441)*X(3438)-JVS(37442)& - &*X(3443)-JVS(37443)*X(3445)-JVS(37444)*X(3450)-JVS(37445)*X(3455)-JVS(37446)*X(3462)-JVS(37447)*X(3464)& - &-JVS(37448)*X(3476)-JVS(37449)*X(3485)-JVS(37450)*X(3486)-JVS(37451)*X(3500)-JVS(37452)*X(3501)-JVS(37453)& - &*X(3528)-JVS(37454)*X(3549)-JVS(37455)*X(3550)-JVS(37456)*X(3555)-JVS(37457)*X(3565)-JVS(37458)*X(3566)& - &-JVS(37459)*X(3567)-JVS(37460)*X(3569)-JVS(37461)*X(3578)-JVS(37462)*X(3582)-JVS(37463)*X(3584)-JVS(37464)& - &*X(3589)-JVS(37465)*X(3599)-JVS(37466)*X(3605)-JVS(37467)*X(3614)-JVS(37468)*X(3618)-JVS(37469)*X(3623)& - &-JVS(37470)*X(3624)-JVS(37471)*X(3641)-JVS(37472)*X(3648)-JVS(37473)*X(3672)-JVS(37474)*X(3693)-JVS(37475)& - &*X(3702)-JVS(37476)*X(3707)-JVS(37477)*X(3754)-JVS(37478)*X(3765)-JVS(37479)*X(3791)-JVS(37480)*X(3796)& - &-JVS(37481)*X(3802)-JVS(37482)*X(3808)-JVS(37483)*X(3818)-JVS(37484)*X(3824)-JVS(37485)*X(3826)-JVS(37486)& - &*X(3828)-JVS(37487)*X(3829)-JVS(37488)*X(3832)-JVS(37489)*X(3853)-JVS(37490)*X(3897)-JVS(37491)*X(3904)& - &-JVS(37492)*X(3909)-JVS(37493)*X(3918)-JVS(37494)*X(3930)-JVS(37495)*X(3931)-JVS(37496)*X(3965)-JVS(37497)& - &*X(3975)-JVS(37498)*X(4003)-JVS(37499)*X(4004)-JVS(37500)*X(4012)-JVS(37501)*X(4014)-JVS(37502)*X(4028)& - &-JVS(37503)*X(4055)-JVS(37504)*X(4071)-JVS(37505)*X(4074)-JVS(37506)*X(4106)-JVS(37507)*X(4125)-JVS(37508)& - &*X(4133)-JVS(37509)*X(4156)-JVS(37510)*X(4167)-JVS(37511)*X(4177)-JVS(37512)*X(4208)-JVS(37513)*X(4321)& - &-JVS(37514)*X(4322)-JVS(37515)*X(4325)-JVS(37516)*X(4344)-JVS(37517)*X(4345)-JVS(37518)*X(4378)-JVS(37519)& - &*X(4383)-JVS(37520)*X(4401)-JVS(37521)*X(4406)-JVS(37522)*X(4448)-JVS(37523)*X(4491)-JVS(37524)*X(4529)& - &-JVS(37525)*X(4533)-JVS(37526)*X(4534)-JVS(37527)*X(4557)-JVS(37528)*X(4558)-JVS(37529)*X(4561)-JVS(37530)& - &*X(4568)-JVS(37531)*X(4570)-JVS(37532)*X(4617)-JVS(37533)*X(4640)-JVS(37534)*X(4669)-JVS(37535)*X(4674)& - &-JVS(37536)*X(4684)-JVS(37537)*X(4694)-JVS(37538)*X(4699)-JVS(37539)*X(4703)-JVS(37540)*X(4706)-JVS(37541)& - &*X(4711)-JVS(37542)*X(4718)-JVS(37543)*X(4719)-JVS(37544)*X(4723)-JVS(37545)*X(4729)-JVS(37546)*X(4749)& - &-JVS(37547)*X(4751)-JVS(37548)*X(4758)-JVS(37549)*X(4773)-JVS(37550)*X(4780)-JVS(37551)*X(4782)-JVS(37552)& - &*X(4783)-JVS(37553)*X(4787)-JVS(37554)*X(4799)-JVS(37555)*X(4802)-JVS(37556)*X(4803)-JVS(37557)*X(4821)& - &-JVS(37558)*X(4826)-JVS(37559)*X(4835)-JVS(37560)*X(4861)-JVS(37561)*X(4887)-JVS(37562)*X(4893)-JVS(37563)& - &*X(4894)-JVS(37564)*X(4899)-JVS(37565)*X(4905)-JVS(37566)*X(4909)-JVS(37567)*X(4913)-JVS(37568)*X(4915)& - &-JVS(37569)*X(4922)-JVS(37570)*X(4923)-JVS(37571)*X(4933)-JVS(37572)*X(4935)-JVS(37573)*X(4937)-JVS(37574)& - &*X(4947)-JVS(37575)*X(4948)-JVS(37576)*X(4950)-JVS(37577)*X(4958)-JVS(37578)*X(4967)-JVS(37579)*X(4971)& - &-JVS(37580)*X(4976)-JVS(37581)*X(4982)-JVS(37582)*X(4985)-JVS(37583)*X(4986)-JVS(37584)*X(4992)-JVS(37585)& - &*X(5001)-JVS(37586)*X(5002)-JVS(37587)*X(5005)-JVS(37588)*X(5010)-JVS(37589)*X(5011)-JVS(37590)*X(5013)& - &-JVS(37591)*X(5015)-JVS(37592)*X(5020)-JVS(37593)*X(5022)-JVS(37594)*X(5025)-JVS(37595)*X(5030)-JVS(37596)& - &*X(5032)-JVS(37597)*X(5035)-JVS(37598)*X(5036)-JVS(37599)*X(5037)-JVS(37600)*X(5040)-JVS(37601)*X(5047)& - &-JVS(37602)*X(5069)-JVS(37603)*X(5089)-JVS(37604)*X(5094)-JVS(37605)*X(5100)-JVS(37606)*X(5102)-JVS(37607)& - &*X(5103)-JVS(37608)*X(5110)-JVS(37609)*X(5113)-JVS(37610)*X(5118)-JVS(37611)*X(5119)-JVS(37612)*X(5120)& - &-JVS(37613)*X(5123)-JVS(37614)*X(5132)-JVS(37615)*X(5133)-JVS(37616)*X(5134)-JVS(37617)*X(5141)-JVS(37618)& - &*X(5146)-JVS(37619)*X(5151)-JVS(37620)*X(5154)-JVS(37621)*X(5155)-JVS(37622)*X(5156)-JVS(37623)*X(5157)& - &-JVS(37624)*X(5158)-JVS(37625)*X(5159)-JVS(37626)*X(5163)-JVS(37627)*X(5166)-JVS(37628)*X(5167)-JVS(37629)& - &*X(5168)-JVS(37630)*X(5173)-JVS(37631)*X(5174)-JVS(37632)*X(5181)-JVS(37633)*X(5186)-JVS(37634)*X(5188)& - &-JVS(37635)*X(5189)-JVS(37636)*X(5190)-JVS(37637)*X(5192)-JVS(37638)*X(5200)-JVS(37639)*X(5202)-JVS(37640)& - &*X(5203)-JVS(37641)*X(5204)-JVS(37642)*X(5205)-JVS(37643)*X(5209)-JVS(37644)*X(5210)-JVS(37645)*X(5212)& - &-JVS(37646)*X(5213)-JVS(37647)*X(5217)-JVS(37648)*X(5218)-JVS(37649)*X(5219)-JVS(37650)*X(5220)-JVS(37651)& - &*X(5221) - X(5223) = X(5223)-JVS(37672)*X(684)-JVS(37673)*X(685)-JVS(37674)*X(686)-JVS(37675)*X(2038)-JVS(37676)*X(3479)& - &-JVS(37677)*X(4096)-JVS(37678)*X(4512)-JVS(37679)*X(4528)-JVS(37680)*X(4555)-JVS(37681)*X(4601)-JVS(37682)& - &*X(4615)-JVS(37683)*X(4747)-JVS(37684)*X(4786)-JVS(37685)*X(4794)-JVS(37686)*X(4907)-JVS(37687)*X(4970)& - &-JVS(37688)*X(4988)-JVS(37689)*X(5024)-JVS(37690)*X(5048)-JVS(37691)*X(5051)-JVS(37692)*X(5083)-JVS(37693)& - &*X(5091)-JVS(37694)*X(5092)-JVS(37695)*X(5093)-JVS(37696)*X(5095)-JVS(37697)*X(5099)-JVS(37698)*X(5124)& - &-JVS(37699)*X(5132)-JVS(37700)*X(5153)-JVS(37701)*X(5162)-JVS(37702)*X(5166)-JVS(37703)*X(5169)-JVS(37704)& - &*X(5181)-JVS(37705)*X(5187)-JVS(37706)*X(5189)-JVS(37707)*X(5190)-JVS(37708)*X(5194)-JVS(37709)*X(5200)& - &-JVS(37710)*X(5207)-JVS(37711)*X(5217)-JVS(37712)*X(5218)-JVS(37713)*X(5219) - X(5224) = X(5224)-JVS(37730)*X(294)-JVS(37731)*X(607)-JVS(37732)*X(715)-JVS(37733)*X(916)-JVS(37734)*X(2544)& - &-JVS(37735)*X(4955)-JVS(37736)*X(5118)-JVS(37737)*X(5166)-JVS(37738)*X(5189)-JVS(37739)*X(5204) - X(5225) = X(5225)-JVS(37748)*X(907)-JVS(37749)*X(1494)-JVS(37750)*X(1970)-JVS(37751)*X(1991)-JVS(37752)*X(2329)& - &-JVS(37753)*X(2907)-JVS(37754)*X(2957)-JVS(37755)*X(3045)-JVS(37756)*X(3700)-JVS(37757)*X(3998)-JVS(37758)& - &*X(4066)-JVS(37759)*X(4228)-JVS(37760)*X(4247)-JVS(37761)*X(4711)-JVS(37762)*X(4739)-JVS(37763)*X(4786)& - &-JVS(37764)*X(5016)-JVS(37765)*X(5022)-JVS(37766)*X(5074)-JVS(37767)*X(5177)-JVS(37768)*X(5189)-JVS(37769)& - &*X(5196)-JVS(37770)*X(5217)-JVS(37771)*X(5218)-JVS(37772)*X(5219)-JVS(37773)*X(5220)-JVS(37774)*X(5224) - X(5226) = X(5226)-JVS(37786)*X(1445)-JVS(37787)*X(1846)-JVS(37788)*X(1847)-JVS(37789)*X(2402)-JVS(37790)*X(2576)& - &-JVS(37791)*X(2623)-JVS(37792)*X(2791)-JVS(37793)*X(3194)-JVS(37794)*X(3228)-JVS(37795)*X(3390)-JVS(37796)& - &*X(3430)-JVS(37797)*X(4087)-JVS(37798)*X(4255)-JVS(37799)*X(4269)-JVS(37800)*X(4342)-JVS(37801)*X(4781)& - &-JVS(37802)*X(4786)-JVS(37803)*X(4794)-JVS(37804)*X(4891)-JVS(37805)*X(4906)-JVS(37806)*X(5027)-JVS(37807)& - &*X(5132)-JVS(37808)*X(5166)-JVS(37809)*X(5187)-JVS(37810)*X(5212)-JVS(37811)*X(5224) - X(5227) = X(5227)-JVS(37822)*X(3241)-JVS(37823)*X(4286)-JVS(37824)*X(4615)-JVS(37825)*X(5166)-JVS(37826)*X(5219) - X(5228) = X(5228)-JVS(37836)*X(86)-JVS(37837)*X(115)-JVS(37838)*X(766)-JVS(37839)*X(818)-JVS(37840)*X(1066)-JVS(37841)& - &*X(1553)-JVS(37842)*X(1593)-JVS(37843)*X(1878)-JVS(37844)*X(1956)-JVS(37845)*X(2044)-JVS(37846)*X(2076)& - &-JVS(37847)*X(2286)-JVS(37848)*X(2359)-JVS(37849)*X(2393)-JVS(37850)*X(2465)-JVS(37851)*X(2470)-JVS(37852)& - &*X(2574)-JVS(37853)*X(2605)-JVS(37854)*X(2664)-JVS(37855)*X(2672)-JVS(37856)*X(2687)-JVS(37857)*X(2753)& - &-JVS(37858)*X(2782)-JVS(37859)*X(2810)-JVS(37860)*X(2914)-JVS(37861)*X(3155)-JVS(37862)*X(3206)-JVS(37863)& - &*X(3258)-JVS(37864)*X(3292)-JVS(37865)*X(3316)-JVS(37866)*X(3331)-JVS(37867)*X(3343)-JVS(37868)*X(3405)& - &-JVS(37869)*X(3412)-JVS(37870)*X(3435)-JVS(37871)*X(3439)-JVS(37872)*X(3440)-JVS(37873)*X(3558)-JVS(37874)& - &*X(3604)-JVS(37875)*X(3637)-JVS(37876)*X(3652)-JVS(37877)*X(3765)-JVS(37878)*X(3790)-JVS(37879)*X(3797)& - &-JVS(37880)*X(3819)-JVS(37881)*X(4014)-JVS(37882)*X(4024)-JVS(37883)*X(4028)-JVS(37884)*X(4068)-JVS(37885)& - &*X(4071)-JVS(37886)*X(4127)-JVS(37887)*X(4133)-JVS(37888)*X(4184)-JVS(37889)*X(4328)-JVS(37890)*X(4333)& - &-JVS(37891)*X(4379)-JVS(37892)*X(4474)-JVS(37893)*X(4475)-JVS(37894)*X(4491)-JVS(37895)*X(4529)-JVS(37896)& - &*X(4533)-JVS(37897)*X(4604)-JVS(37898)*X(4606)-JVS(37899)*X(4610)-JVS(37900)*X(4614)-JVS(37901)*X(4616)& - &-JVS(37902)*X(4686)-JVS(37903)*X(4687)-JVS(37904)*X(4694)-JVS(37905)*X(4726)-JVS(37906)*X(4807)-JVS(37907)& - &*X(4833)-JVS(37908)*X(4840)-JVS(37909)*X(4888)-JVS(37910)*X(4892)-JVS(37911)*X(4906)-JVS(37912)*X(4937)& - &-JVS(37913)*X(4943)-JVS(37914)*X(4948)-JVS(37915)*X(4968)-JVS(37916)*X(4981)-JVS(37917)*X(4985)-JVS(37918)& - &*X(4986)-JVS(37919)*X(4988)-JVS(37920)*X(4993)-JVS(37921)*X(5045)-JVS(37922)*X(5047)-JVS(37923)*X(5076)& - &-JVS(37924)*X(5082)-JVS(37925)*X(5089)-JVS(37926)*X(5122)-JVS(37927)*X(5123)-JVS(37928)*X(5128)-JVS(37929)& - &*X(5160)-JVS(37930)*X(5166)-JVS(37931)*X(5186)-JVS(37932)*X(5187)-JVS(37933)*X(5190)-JVS(37934)*X(5192)& - &-JVS(37935)*X(5193)-JVS(37936)*X(5198)-JVS(37937)*X(5200)-JVS(37938)*X(5202)-JVS(37939)*X(5203)-JVS(37940)& - &*X(5204)-JVS(37941)*X(5206)-JVS(37942)*X(5207)-JVS(37943)*X(5208)-JVS(37944)*X(5209)-JVS(37945)*X(5212)& - &-JVS(37946)*X(5213)-JVS(37947)*X(5215)-JVS(37948)*X(5217)-JVS(37949)*X(5218)-JVS(37950)*X(5219)-JVS(37951)& - &*X(5220)-JVS(37952)*X(5224)-JVS(37953)*X(5226)-JVS(37954)*X(5227) - X(5229) = X(5229)-JVS(37977)*X(691)-JVS(37978)*X(1500)-JVS(37979)*X(1599)-JVS(37980)*X(2042)-JVS(37981)*X(2292)& - &-JVS(37982)*X(2933)-JVS(37983)*X(3202)-JVS(37984)*X(3561)-JVS(37985)*X(3651)-JVS(37986)*X(3843)-JVS(37987)& - &*X(3978)-JVS(37988)*X(4029)-JVS(37989)*X(4356)-JVS(37990)*X(4508)-JVS(37991)*X(4598)-JVS(37992)*X(4604)& - &-JVS(37993)*X(4606)-JVS(37994)*X(4619)-JVS(37995)*X(4917)-JVS(37996)*X(4956)-JVS(37997)*X(4972)-JVS(37998)& - &*X(4990)-JVS(37999)*X(5056)-JVS(38000)*X(5066)-JVS(38001)*X(5096)-JVS(38002)*X(5125)-JVS(38003)*X(5144)& - &-JVS(38004)*X(5186)-JVS(38005)*X(5190)-JVS(38006)*X(5192) - X(5230) = X(5230)-JVS(38018)*X(1363)-JVS(38019)*X(1697)-JVS(38020)*X(1699)-JVS(38021)*X(1877)-JVS(38022)*X(1921)& - &-JVS(38023)*X(2104)-JVS(38024)*X(2148)-JVS(38025)*X(2176)-JVS(38026)*X(2318)-JVS(38027)*X(2396)-JVS(38028)& - &*X(2534)-JVS(38029)*X(2549)-JVS(38030)*X(2583)-JVS(38031)*X(2611)-JVS(38032)*X(2642)-JVS(38033)*X(2721)& - &-JVS(38034)*X(2738)-JVS(38035)*X(2849)-JVS(38036)*X(2878)-JVS(38037)*X(2912)-JVS(38038)*X(2926)-JVS(38039)& - &*X(3269)-JVS(38040)*X(3289)-JVS(38041)*X(3376)-JVS(38042)*X(3522)-JVS(38043)*X(3572)-JVS(38044)*X(3757)& - &-JVS(38045)*X(3842)-JVS(38046)*X(3878)-JVS(38047)*X(3910)-JVS(38048)*X(4094)-JVS(38049)*X(4099)-JVS(38050)& - &*X(4174)-JVS(38051)*X(4281)-JVS(38052)*X(4390)-JVS(38053)*X(4470)-JVS(38054)*X(4593)-JVS(38055)*X(4598)& - &-JVS(38056)*X(4604)-JVS(38057)*X(4606)-JVS(38058)*X(4607)-JVS(38059)*X(4608)-JVS(38060)*X(4620)-JVS(38061)& - &*X(4689)-JVS(38062)*X(4702)-JVS(38063)*X(4713)-JVS(38064)*X(4744)-JVS(38065)*X(4884)-JVS(38066)*X(4944)& - &-JVS(38067)*X(4956)-JVS(38068)*X(4972)-JVS(38069)*X(5009)-JVS(38070)*X(5066)-JVS(38071)*X(5096)-JVS(38072)& - &*X(5107)-JVS(38073)*X(5109)-JVS(38074)*X(5112)-JVS(38075)*X(5144)-JVS(38076)*X(5165)-JVS(38077)*X(5190)& - &-JVS(38078)*X(5208) - X(5231) = X(5231)-JVS(38089)*X(6)-JVS(38090)*X(7)-JVS(38091)*X(8)-JVS(38092)*X(530)-JVS(38093)*X(534)-JVS(38094)& - &*X(536)-JVS(38095)*X(540)-JVS(38096)*X(543)-JVS(38097)*X(556)-JVS(38098)*X(571)-JVS(38099)*X(580)-JVS(38100)& - &*X(582)-JVS(38101)*X(585)-JVS(38102)*X(587)-JVS(38103)*X(592)-JVS(38104)*X(617)-JVS(38105)*X(619)-JVS(38106)& - &*X(621)-JVS(38107)*X(630)-JVS(38108)*X(650)-JVS(38109)*X(654)-JVS(38110)*X(655)-JVS(38111)*X(661)-JVS(38112)& - &*X(662)-JVS(38113)*X(665)-JVS(38114)*X(667)-JVS(38115)*X(672)-JVS(38116)*X(688)-JVS(38117)*X(689)-JVS(38118)& - &*X(690)-JVS(38119)*X(692)-JVS(38120)*X(693)-JVS(38121)*X(694)-JVS(38122)*X(697)-JVS(38123)*X(708)-JVS(38124)& - &*X(717)-JVS(38125)*X(729)-JVS(38126)*X(739)-JVS(38127)*X(773)-JVS(38128)*X(774)-JVS(38129)*X(777)-JVS(38130)& - &*X(781)-JVS(38131)*X(782)-JVS(38132)*X(793)-JVS(38133)*X(795)-JVS(38134)*X(801)-JVS(38135)*X(810)-JVS(38136)& - &*X(817)-JVS(38137)*X(820)-JVS(38138)*X(856)-JVS(38139)*X(1013)-JVS(38140)*X(1068)-JVS(38141)*X(1238)& - &-JVS(38142)*X(1240)-JVS(38143)*X(1433)-JVS(38144)*X(1556)-JVS(38145)*X(1574)-JVS(38146)*X(1593)-JVS(38147)& - &*X(1607)-JVS(38148)*X(1615)-JVS(38149)*X(1618)-JVS(38150)*X(1634)-JVS(38151)*X(1642)-JVS(38152)*X(1652)& - &-JVS(38153)*X(1658)-JVS(38154)*X(1666)-JVS(38155)*X(1687)-JVS(38156)*X(1716)-JVS(38157)*X(1718)-JVS(38158)& - &*X(1735)-JVS(38159)*X(1741)-JVS(38160)*X(1742)-JVS(38161)*X(1758)-JVS(38162)*X(1762)-JVS(38163)*X(1764)& - &-JVS(38164)*X(1766)-JVS(38165)*X(1784)-JVS(38166)*X(1825)-JVS(38167)*X(1835)-JVS(38168)*X(1840)-JVS(38169)& - &*X(1854)-JVS(38170)*X(1863)-JVS(38171)*X(1866)-JVS(38172)*X(1867)-JVS(38173)*X(1871)-JVS(38174)*X(1877)& - &-JVS(38175)*X(1882)-JVS(38176)*X(1888)-JVS(38177)*X(1905)-JVS(38178)*X(1912)-JVS(38179)*X(1916)-JVS(38180)& - &*X(1918)-JVS(38181)*X(1920)-JVS(38182)*X(1927)-JVS(38183)*X(1944)-JVS(38184)*X(1947)-JVS(38185)*X(1958)& - &-JVS(38186)*X(1959)-JVS(38187)*X(1993)-JVS(38188)*X(2000)-JVS(38189)*X(2005)-JVS(38190)*X(2007)-JVS(38191)& - &*X(2008)-JVS(38192)*X(2012)-JVS(38193)*X(2016)-JVS(38194)*X(2018)-JVS(38195)*X(2022)-JVS(38196)*X(2028)& - &-JVS(38197)*X(2044)-JVS(38198)*X(2047)-JVS(38199)*X(2090)-JVS(38200)*X(2095)-JVS(38201)*X(2107)-JVS(38202)& - &*X(2115)-JVS(38203)*X(2139)-JVS(38204)*X(2150)-JVS(38205)*X(2163)-JVS(38206)*X(2190)-JVS(38207)*X(2203)& - &-JVS(38208)*X(2217)-JVS(38209)*X(2229)-JVS(38210)*X(2230)-JVS(38211)*X(2242)-JVS(38212)*X(2254)-JVS(38213)& - &*X(2280)-JVS(38214)*X(2323)-JVS(38215)*X(2325)-JVS(38216)*X(2326)-JVS(38217)*X(2347)-JVS(38218)*X(2348)& - &-JVS(38219)*X(2360)-JVS(38220)*X(2373)-JVS(38221)*X(2378)-JVS(38222)*X(2380)-JVS(38223)*X(2412)-JVS(38224)& - &*X(2430)-JVS(38225)*X(2440)-JVS(38226)*X(2476)-JVS(38227)*X(2478)-JVS(38228)*X(2479)-JVS(38229)*X(2481)& - &-JVS(38230)*X(2495)-JVS(38231)*X(2497)-JVS(38232)*X(2500)-JVS(38233)*X(2502)-JVS(38234)*X(2508)-JVS(38235)& - &*X(2512)-JVS(38236)*X(2516)-JVS(38237)*X(2540)-JVS(38238)*X(2549)-JVS(38239)*X(2550)-JVS(38240)*X(2561)& - &-JVS(38241)*X(2571)-JVS(38242)*X(2578)-JVS(38243)*X(2589)-JVS(38244)*X(2591)-JVS(38245)*X(2596)-JVS(38246)& - &*X(2607)-JVS(38247)*X(2617)-JVS(38248)*X(2623)-JVS(38249)*X(2627)-JVS(38250)*X(2628)-JVS(38251)*X(2639)& - &-JVS(38252)*X(2657)-JVS(38253)*X(2664)-JVS(38254)*X(2667)-JVS(38255)*X(2687)-JVS(38256)*X(2690)-JVS(38257)& - &*X(2694)-JVS(38258)*X(2706)-JVS(38259)*X(2707)-JVS(38260)*X(2720)-JVS(38261)*X(2723)-JVS(38262)*X(2727)& - &-JVS(38263)*X(2739)-JVS(38264)*X(2744)-JVS(38265)*X(2746)-JVS(38266)*X(2747)-JVS(38267)*X(2748)-JVS(38268)& - &*X(2750)-JVS(38269)*X(2758)-JVS(38270)*X(2760)-JVS(38271)*X(2769)-JVS(38272)*X(2770)-JVS(38273)*X(2771)& - &-JVS(38274)*X(2774)-JVS(38275)*X(2783)-JVS(38276)*X(2788)-JVS(38277)*X(2810)-JVS(38278)*X(2817)-JVS(38279)& - &*X(2819)-JVS(38280)*X(2821)-JVS(38281)*X(2827)-JVS(38282)*X(2832)-JVS(38283)*X(2834)-JVS(38284)*X(2836)& - &-JVS(38285)*X(2840)-JVS(38286)*X(2851)-JVS(38287)*X(2861)-JVS(38288)*X(2865)-JVS(38289)*X(2869)-JVS(38290)& - &*X(2874)-JVS(38291)*X(2900)-JVS(38292)*X(2902)-JVS(38293)*X(2913)-JVS(38294)*X(2916)-JVS(38295)*X(2931)& - &-JVS(38296)*X(2944)-JVS(38297)*X(2953)-JVS(38298)*X(2954)-JVS(38299)*X(2959)-JVS(38300)*X(2961)-JVS(38301)& - &*X(2962)-JVS(38302)*X(2972)-JVS(38303)*X(2982)-JVS(38304)*X(2983)-JVS(38305)*X(2989)-JVS(38306)*X(2996)& - &-JVS(38307)*X(2997)-JVS(38308)*X(3002)-JVS(38309)*X(3030)-JVS(38310)*X(3037)-JVS(38311)*X(3039)-JVS(38312)& - &*X(3047)-JVS(38313)*X(3048)-JVS(38314)*X(3049)-JVS(38315)*X(3054)-JVS(38316)*X(3072)-JVS(38317)*X(3074)& - &-JVS(38318)*X(3077)-JVS(38319)*X(3079)-JVS(38320)*X(3099)-JVS(38321)*X(3141)-JVS(38322)*X(3155)-JVS(38323)& - &*X(3173)-JVS(38324)*X(3194)-JVS(38325)*X(3205)-JVS(38326)*X(3207)-JVS(38327)*X(3208)-JVS(38328)*X(3218)& - &-JVS(38329)*X(3221)-JVS(38330)*X(3234)-JVS(38331)*X(3239)-JVS(38332)*X(3241)-JVS(38333)*X(3249)-JVS(38334)& - &*X(3256)-JVS(38335)*X(3260)-JVS(38336)*X(3268)-JVS(38337)*X(3275)-JVS(38338)*X(3276)-JVS(38339)*X(3277)& - &-JVS(38340)*X(3284)-JVS(38341)*X(3287)-JVS(38342)*X(3289)-JVS(38343)*X(3290)-JVS(38344)*X(3291)-JVS(38345)& - &*X(3294)-JVS(38346)*X(3299)-JVS(38347)*X(3300)-JVS(38348)*X(3306)-JVS(38349)*X(3308)-JVS(38350)*X(3310)& - &-JVS(38351)*X(3311)-JVS(38352)*X(3312)-JVS(38353)*X(3335)-JVS(38354)*X(3338)-JVS(38355)*X(3349)-JVS(38356)& - &*X(3351)-JVS(38357)*X(3358)-JVS(38358)*X(3394)-JVS(38359)*X(3399)-JVS(38360)*X(3410)-JVS(38361)*X(3432)& - &-JVS(38362)*X(3439)-JVS(38363)*X(3447)-JVS(38364)*X(3462)-JVS(38365)*X(3464)-JVS(38366)*X(3490)-JVS(38367)& - &*X(3517)-JVS(38368)*X(3524)-JVS(38369)*X(3529)-JVS(38370)*X(3559)-JVS(38371)*X(3564)-JVS(38372)*X(3572)& - &-JVS(38373)*X(3575)-JVS(38374)*X(3577)-JVS(38375)*X(3585)-JVS(38376)*X(3586)-JVS(38377)*X(3591)-JVS(38378)& - &*X(3592)-JVS(38379)*X(3598)-JVS(38380)*X(3620)-JVS(38381)*X(3621)-JVS(38382)*X(3646)-JVS(38383)*X(3652)& - &-JVS(38384)*X(3700)-JVS(38385)*X(3707)-JVS(38386)*X(3708)-JVS(38387)*X(3734)-JVS(38388)*X(3755)-JVS(38389)& - &*X(3763)-JVS(38390)*X(3806)-JVS(38391)*X(3810)-JVS(38392)*X(3814)-JVS(38393)*X(3839)-JVS(38394)*X(3840)& - &-JVS(38395)*X(3846)-JVS(38396)*X(3848)-JVS(38397)*X(3850)-JVS(38398)*X(3865)-JVS(38399)*X(3866)-JVS(38400)& - &*X(3871)-JVS(38401)*X(3874)-JVS(38402)*X(3876)-JVS(38403)*X(3878)-JVS(38404)*X(3883)-JVS(38405)*X(3886)& - &-JVS(38406)*X(3887)-JVS(38407)*X(3895)-JVS(38408)*X(3898)-JVS(38409)*X(3907)-JVS(38410)*X(3909)-JVS(38411)& - &*X(3925)-JVS(38412)*X(3926)-JVS(38413)*X(3928)-JVS(38414)*X(3934)-JVS(38415)*X(3941)-JVS(38416)*X(3942)& - &-JVS(38417)*X(3949)-JVS(38418)*X(3950)-JVS(38419)*X(3954)-JVS(38420)*X(3959)-JVS(38421)*X(3974)-JVS(38422)& - &*X(3976)-JVS(38423)*X(3979)-JVS(38424)*X(3980)-JVS(38425)*X(3984)-JVS(38426)*X(3985)-JVS(38427)*X(3987)& - &-JVS(38428)*X(3988)-JVS(38429)*X(3990)-JVS(38430)*X(3994)-JVS(38431)*X(4031)-JVS(38432)*X(4068)-JVS(38433)& - &*X(4069)-JVS(38434)*X(4070)-JVS(38435)*X(4096)-JVS(38436)*X(4097)-JVS(38437)*X(4105)-JVS(38438)*X(4111)& - &-JVS(38439)*X(4112)-JVS(38440)*X(4117)-JVS(38441)*X(4126)-JVS(38442)*X(4129)-JVS(38443)*X(4130)-JVS(38444)& - &*X(4131)-JVS(38445)*X(4135)-JVS(38446)*X(4143)-JVS(38447)*X(4144)-JVS(38448)*X(4146)-JVS(38449)*X(4147)& - &-JVS(38450)*X(4149)-JVS(38451)*X(4157)-JVS(38452)*X(4161)-JVS(38453)*X(4171)-JVS(38454)*X(4183)-JVS(38455)& - &*X(4185)-JVS(38456)*X(4188)-JVS(38457)*X(4191)-JVS(38458)*X(4211)-JVS(38459)*X(4235)-JVS(38460)*X(4249)& - &-JVS(38461)*X(4254)-JVS(38462)*X(4263)-JVS(38463)*X(4268)-JVS(38464)*X(4270)-JVS(38465)*X(4284)-JVS(38466)& - &*X(4318)-JVS(38467)*X(4330)-JVS(38468)*X(4337)-JVS(38469)*X(4345)-JVS(38470)*X(4348)-JVS(38471)*X(4351)& - &-JVS(38472)*X(4359)-JVS(38473)*X(4364)-JVS(38474)*X(4366)-JVS(38475)*X(4368)-JVS(38476)*X(4370)-JVS(38477)& - &*X(4372)-JVS(38478)*X(4383)-JVS(38479)*X(4385)-JVS(38480)*X(4395)-JVS(38481)*X(4418)-JVS(38482)*X(4420)& - &-JVS(38483)*X(4443)-JVS(38484)*X(4447)-JVS(38485)*X(4450)-JVS(38486)*X(4459)-JVS(38487)*X(4465)-JVS(38488)& - &*X(4508)-JVS(38489)*X(4512)-JVS(38490)*X(4520)-JVS(38491)*X(4527)-JVS(38492)*X(4530)-JVS(38493)*X(4541)& - &-JVS(38494)*X(4543)-JVS(38495)*X(4549)-JVS(38496)*X(4550)-JVS(38497)*X(4552)-JVS(38498)*X(4554)-JVS(38499)& - &*X(4555)-JVS(38500)*X(4561)-JVS(38501)*X(4562)-JVS(38502)*X(4563)-JVS(38503)*X(4567)-JVS(38504)*X(4574)& - &-JVS(38505)*X(4578)-JVS(38506)*X(4579)-JVS(38507)*X(4581)-JVS(38508)*X(4582)-JVS(38509)*X(4586)-JVS(38510)& - &*X(4587)-JVS(38511)*X(4588)-JVS(38512)*X(4593)-JVS(38513)*X(4595)-JVS(38514)*X(4596)-JVS(38515)*X(4597)& - &-JVS(38516)*X(4598)-JVS(38517)*X(4599)-JVS(38518)*X(4600)-JVS(38519)*X(4601)-JVS(38520)*X(4605)-JVS(38521)& - &*X(4609)-JVS(38522)*X(4614)-JVS(38523)*X(4615)-JVS(38524)*X(4616)-JVS(38525)*X(4617)-JVS(38526)*X(4624)& - &-JVS(38527)*X(4627)-JVS(38528)*X(4631)-JVS(38529)*X(4645)-JVS(38530)*X(4648)-JVS(38531)*X(4653)-JVS(38532)& - &*X(4659)-JVS(38533)*X(4668)-JVS(38534)*X(4669)-JVS(38535)*X(4673)-JVS(38536)*X(4677)-JVS(38537)*X(4686)& - &-JVS(38538)*X(4687)-JVS(38539)*X(4697)-JVS(38540)*X(4698)-JVS(38541)*X(4700)-JVS(38542)*X(4704)-JVS(38543)& - &*X(4717)-JVS(38544)*X(4723)-JVS(38545)*X(4724)-JVS(38546)*X(4730)-JVS(38547)*X(4732)-JVS(38548)*X(4735)& - &-JVS(38549)*X(4742)-JVS(38550)*X(4745)-JVS(38551)*X(4746)-JVS(38552)*X(4749)-JVS(38553)*X(4756)-JVS(38554)& - &*X(4758)-JVS(38555)*X(4761)-JVS(38556)*X(4765)-JVS(38557)*X(4770)-JVS(38558)*X(4771)-JVS(38559)*X(4774)& - &-JVS(38560)*X(4777)-JVS(38561)*X(4778)-JVS(38562)*X(4780)-JVS(38563)*X(4783)-JVS(38564)*X(4786)-JVS(38565)& - &*X(4794)-JVS(38566)*X(4804)-JVS(38567)*X(4806)-JVS(38568)*X(4808)-JVS(38569)*X(4809)-JVS(38570)*X(4812)& - &-JVS(38571)*X(4816)-JVS(38572)*X(4817)-JVS(38573)*X(4819)-JVS(38574)*X(4830)-JVS(38575)*X(4832)-JVS(38576)& - &*X(4836)-JVS(38577)*X(4837)-JVS(38578)*X(4840)-JVS(38579)*X(4857)-JVS(38580)*X(4860)-JVS(38581)*X(4862)& - &-JVS(38582)*X(4875)-JVS(38583)*X(4879)-JVS(38584)*X(4881)-JVS(38585)*X(4883)-JVS(38586)*X(4885)-JVS(38587)& - &*X(4888)-JVS(38588)*X(4895)-JVS(38589)*X(4898)-JVS(38590)*X(4900)-JVS(38591)*X(4903)-JVS(38592)*X(4906)& - &-JVS(38593)*X(4907)-JVS(38594)*X(4909)-JVS(38595)*X(4926)-JVS(38596)*X(4927)-JVS(38597)*X(4929)-JVS(38598)& - &*X(4932)-JVS(38599)*X(4937)-JVS(38600)*X(4945)-JVS(38601)*X(4946)-JVS(38602)*X(4950)-JVS(38603)*X(4952)& - &-JVS(38604)*X(4954)-JVS(38605)*X(4955)-JVS(38606)*X(4957)-JVS(38607)*X(4958)-JVS(38608)*X(4959)-JVS(38609)& - &*X(4960)-JVS(38610)*X(4967)-JVS(38611)*X(4969)-JVS(38612)*X(4970)-JVS(38613)*X(4972)-JVS(38614)*X(4976)& - &-JVS(38615)*X(4980)-JVS(38616)*X(4981)-JVS(38617)*X(4984)-JVS(38618)*X(4985)-JVS(38619)*X(4987)-JVS(38620)& - &*X(4988)-JVS(38621)*X(4993)-JVS(38622)*X(4996)-JVS(38623)*X(4999)-JVS(38624)*X(5002)-JVS(38625)*X(5010)& - &-JVS(38626)*X(5013)-JVS(38627)*X(5015)-JVS(38628)*X(5018)-JVS(38629)*X(5019)-JVS(38630)*X(5020)-JVS(38631)& - &*X(5021)-JVS(38632)*X(5022)-JVS(38633)*X(5024)-JVS(38634)*X(5030)-JVS(38635)*X(5031)-JVS(38636)*X(5032)& - &-JVS(38637)*X(5036)-JVS(38638)*X(5041)-JVS(38639)*X(5043)-JVS(38640)*X(5045)-JVS(38641)*X(5048)-JVS(38642)& - &*X(5049)-JVS(38643)*X(5050)-JVS(38644)*X(5051)-JVS(38645)*X(5053)-JVS(38646)*X(5056)-JVS(38647)*X(5058)& - &-JVS(38648)*X(5060)-JVS(38649)*X(5061)-JVS(38650)*X(5064)-JVS(38651)*X(5066)-JVS(38652)*X(5067)-JVS(38653)& - &*X(5068)-JVS(38654)*X(5069)-JVS(38655)*X(5072)-JVS(38656)*X(5077)-JVS(38657)*X(5078)-JVS(38658)*X(5079)& - &-JVS(38659)*X(5081)-JVS(38660)*X(5082)-JVS(38661)*X(5083)-JVS(38662)*X(5086)-JVS(38663)*X(5088)-JVS(38664)& - &*X(5089)-JVS(38665)*X(5090)-JVS(38666)*X(5091)-JVS(38667)*X(5092)-JVS(38668)*X(5093)-JVS(38669)*X(5095)& - &-JVS(38670)*X(5096)-JVS(38671)*X(5097)-JVS(38672)*X(5099)-JVS(38673)*X(5104)-JVS(38674)*X(5107)-JVS(38675)& - &*X(5109)-JVS(38676)*X(5111)-JVS(38677)*X(5113)-JVS(38678)*X(5116)-JVS(38679)*X(5119)-JVS(38680)*X(5120)& - &-JVS(38681)*X(5121)-JVS(38682)*X(5122)-JVS(38683)*X(5123)-JVS(38684)*X(5124)-JVS(38685)*X(5126)-JVS(38686)& - &*X(5127)-JVS(38687)*X(5128)-JVS(38688)*X(5129)-JVS(38689)*X(5130)-JVS(38690)*X(5132)-JVS(38691)*X(5133)& - &-JVS(38692)*X(5135)-JVS(38693)*X(5136)-JVS(38694)*X(5137)-JVS(38695)*X(5138)-JVS(38696)*X(5140)-JVS(38697)& - &*X(5141)-JVS(38698)*X(5143)-JVS(38699)*X(5144)-JVS(38700)*X(5146)-JVS(38701)*X(5147)-JVS(38702)*X(5148)& - &-JVS(38703)*X(5149)-JVS(38704)*X(5150)-JVS(38705)*X(5151)-JVS(38706)*X(5152)-JVS(38707)*X(5153)-JVS(38708)& - &*X(5154)-JVS(38709)*X(5155)-JVS(38710)*X(5157)-JVS(38711)*X(5159)-JVS(38712)*X(5161)-JVS(38713)*X(5162)& - &-JVS(38714)*X(5163)-JVS(38715)*X(5165)-JVS(38716)*X(5166)-JVS(38717)*X(5167)-JVS(38718)*X(5168)-JVS(38719)& - &*X(5169)-JVS(38720)*X(5172)-JVS(38721)*X(5173)-JVS(38722)*X(5174)-JVS(38723)*X(5175)-JVS(38724)*X(5176)& - &-JVS(38725)*X(5178)-JVS(38726)*X(5180)-JVS(38727)*X(5181)-JVS(38728)*X(5185)-JVS(38729)*X(5186)-JVS(38730)& - &*X(5187)-JVS(38731)*X(5188)-JVS(38732)*X(5189)-JVS(38733)*X(5190)-JVS(38734)*X(5192)-JVS(38735)*X(5194)& - &-JVS(38736)*X(5195)-JVS(38737)*X(5197)-JVS(38738)*X(5198)-JVS(38739)*X(5200)-JVS(38740)*X(5202)-JVS(38741)& - &*X(5203)-JVS(38742)*X(5204)-JVS(38743)*X(5205)-JVS(38744)*X(5206)-JVS(38745)*X(5207)-JVS(38746)*X(5208)& - &-JVS(38747)*X(5209)-JVS(38748)*X(5212)-JVS(38749)*X(5213)-JVS(38750)*X(5215)-JVS(38751)*X(5217)-JVS(38752)& - &*X(5218)-JVS(38753)*X(5219)-JVS(38754)*X(5220)-JVS(38755)*X(5221)-JVS(38756)*X(5223)-JVS(38757)*X(5224)& - &-JVS(38758)*X(5226)-JVS(38759)*X(5227)-JVS(38760)*X(5228)-JVS(38761)*X(5229)-JVS(38762)*X(5230) - X(5232) = X(5232)-JVS(38791)*X(494)-JVS(38792)*X(645)-JVS(38793)*X(656)-JVS(38794)*X(701)-JVS(38795)*X(1433)& - &-JVS(38796)*X(1582)-JVS(38797)*X(1655)-JVS(38798)*X(1670)-JVS(38799)*X(1678)-JVS(38800)*X(1684)-JVS(38801)& - &*X(1934)-JVS(38802)*X(2043)-JVS(38803)*X(2230)-JVS(38804)*X(2258)-JVS(38805)*X(2289)-JVS(38806)*X(2412)& - &-JVS(38807)*X(2607)-JVS(38808)*X(2695)-JVS(38809)*X(2711)-JVS(38810)*X(2724)-JVS(38811)*X(3047)-JVS(38812)& - &*X(3231)-JVS(38813)*X(3250)-JVS(38814)*X(3276)-JVS(38815)*X(3350)-JVS(38816)*X(3501)-JVS(38817)*X(3542)& - &-JVS(38818)*X(3550)-JVS(38819)*X(3561)-JVS(38820)*X(3608)-JVS(38821)*X(3621)-JVS(38822)*X(3628)-JVS(38823)& - &*X(3635)-JVS(38824)*X(3682)-JVS(38825)*X(3716)-JVS(38826)*X(3734)-JVS(38827)*X(3759)-JVS(38828)*X(3780)& - &-JVS(38829)*X(3835)-JVS(38830)*X(3864)-JVS(38831)*X(4104)-JVS(38832)*X(4109)-JVS(38833)*X(4136)-JVS(38834)& - &*X(4321)-JVS(38835)*X(4341)-JVS(38836)*X(4362)-JVS(38837)*X(4366)-JVS(38838)*X(4465)-JVS(38839)*X(4510)& - &-JVS(38840)*X(4520)-JVS(38841)*X(4562)-JVS(38842)*X(4565)-JVS(38843)*X(4578)-JVS(38844)*X(4580)-JVS(38845)& - &*X(4582)-JVS(38846)*X(4589)-JVS(38847)*X(4597)-JVS(38848)*X(4598)-JVS(38849)*X(4599)-JVS(38850)*X(4644)& - &-JVS(38851)*X(4697)-JVS(38852)*X(4698)-JVS(38853)*X(4704)-JVS(38854)*X(4730)-JVS(38855)*X(4734)-JVS(38856)& - &*X(4735)-JVS(38857)*X(4776)-JVS(38858)*X(4778)-JVS(38859)*X(4814)-JVS(38860)*X(4816)-JVS(38861)*X(4856)& - &-JVS(38862)*X(4879)-JVS(38863)*X(4881)-JVS(38864)*X(4885)-JVS(38865)*X(4889)-JVS(38866)*X(4898)-JVS(38867)& - &*X(4955)-JVS(38868)*X(4972)-JVS(38869)*X(5015)-JVS(38870)*X(5019)-JVS(38871)*X(5023)-JVS(38872)*X(5024)& - &-JVS(38873)*X(5032)-JVS(38874)*X(5043)-JVS(38875)*X(5049)-JVS(38876)*X(5061)-JVS(38877)*X(5064)-JVS(38878)& - &*X(5074)-JVS(38879)*X(5080)-JVS(38880)*X(5091)-JVS(38881)*X(5093)-JVS(38882)*X(5096)-JVS(38883)*X(5113)& - &-JVS(38884)*X(5114)-JVS(38885)*X(5120)-JVS(38886)*X(5127)-JVS(38887)*X(5130)-JVS(38888)*X(5132)-JVS(38889)& - &*X(5134)-JVS(38890)*X(5135)-JVS(38891)*X(5140)-JVS(38892)*X(5144)-JVS(38893)*X(5146)-JVS(38894)*X(5148)& - &-JVS(38895)*X(5151)-JVS(38896)*X(5153)-JVS(38897)*X(5154)-JVS(38898)*X(5159)-JVS(38899)*X(5163)-JVS(38900)& - &*X(5166)-JVS(38901)*X(5168)-JVS(38902)*X(5174)-JVS(38903)*X(5177)-JVS(38904)*X(5181)-JVS(38905)*X(5186)& - &-JVS(38906)*X(5189)-JVS(38907)*X(5190)-JVS(38908)*X(5192)-JVS(38909)*X(5194)-JVS(38910)*X(5196)-JVS(38911)& - &*X(5197)-JVS(38912)*X(5198)-JVS(38913)*X(5204)-JVS(38914)*X(5206)-JVS(38915)*X(5213)-JVS(38916)*X(5217)& - &-JVS(38917)*X(5218)-JVS(38918)*X(5219)-JVS(38919)*X(5220)-JVS(38920)*X(5224)-JVS(38921)*X(5225)-JVS(38922)& - &*X(5227) - X(5233) = X(5233)-JVS(38941)*X(29)-JVS(38942)*X(198)-JVS(38943)*X(808)-JVS(38944)*X(819)-JVS(38945)*X(1011)-JVS(38946)& - &*X(1013)-JVS(38947)*X(1246)-JVS(38948)*X(1558)-JVS(38949)*X(1579)-JVS(38950)*X(1603)-JVS(38951)*X(1625)& - &-JVS(38952)*X(1626)-JVS(38953)*X(1848)-JVS(38954)*X(1892)-JVS(38955)*X(1960)-JVS(38956)*X(1967)-JVS(38957)& - &*X(2081)-JVS(38958)*X(2085)-JVS(38959)*X(2112)-JVS(38960)*X(2376)-JVS(38961)*X(2382)-JVS(38962)*X(2410)& - &-JVS(38963)*X(2468)-JVS(38964)*X(2472)-JVS(38965)*X(2474)-JVS(38966)*X(2491)-JVS(38967)*X(2492)-JVS(38968)& - &*X(2493)-JVS(38969)*X(2506)-JVS(38970)*X(2511)-JVS(38971)*X(2514)-JVS(38972)*X(2545)-JVS(38973)*X(2592)& - &-JVS(38974)*X(2609)-JVS(38975)*X(2627)-JVS(38976)*X(2659)-JVS(38977)*X(2734)-JVS(38978)*X(2752)-JVS(38979)& - &*X(2795)-JVS(38980)*X(2798)-JVS(38981)*X(2799)-JVS(38982)*X(2804)-JVS(38983)*X(2806)-JVS(38984)*X(2816)& - &-JVS(38985)*X(2924)-JVS(38986)*X(2927)-JVS(38987)*X(2936)-JVS(38988)*X(2949)-JVS(38989)*X(2994)-JVS(38990)& - &*X(3027)-JVS(38991)*X(3050)-JVS(38992)*X(3064)-JVS(38993)*X(3080)-JVS(38994)*X(3089)-JVS(38995)*X(3121)& - &-JVS(38996)*X(3122)-JVS(38997)*X(3154)-JVS(38998)*X(3174)-JVS(38999)*X(3195)-JVS(39000)*X(3211)-JVS(39001)& - &*X(3217)-JVS(39002)*X(3230)-JVS(39003)*X(3253)-JVS(39004)*X(3261)-JVS(39005)*X(3273)-JVS(39006)*X(3285)& - &-JVS(39007)*X(3286)-JVS(39008)*X(3290)-JVS(39009)*X(3319)-JVS(39010)*X(3321)-JVS(39011)*X(3342)-JVS(39012)& - &*X(3372)-JVS(39013)*X(3387)-JVS(39014)*X(3401)-JVS(39015)*X(3416)-JVS(39016)*X(3443)-JVS(39017)*X(3446)& - &-JVS(39018)*X(3449)-JVS(39019)*X(3453)-JVS(39020)*X(3459)-JVS(39021)*X(3477)-JVS(39022)*X(3515)-JVS(39023)& - &*X(3524)-JVS(39024)*X(3533)-JVS(39025)*X(3563)-JVS(39026)*X(3566)-JVS(39027)*X(3573)-JVS(39028)*X(3576)& - &-JVS(39029)*X(3606)-JVS(39030)*X(3625)-JVS(39031)*X(3627)-JVS(39032)*X(3654)-JVS(39033)*X(3660)-JVS(39034)& - &*X(3663)-JVS(39035)*X(3666)-JVS(39036)*X(3684)-JVS(39037)*X(3693)-JVS(39038)*X(3701)-JVS(39039)*X(3712)& - &-JVS(39040)*X(3754)-JVS(39041)*X(3794)-JVS(39042)*X(3795)-JVS(39043)*X(3799)-JVS(39044)*X(3801)-JVS(39045)& - &*X(3802)-JVS(39046)*X(3804)-JVS(39047)*X(3805)-JVS(39048)*X(3811)-JVS(39049)*X(3812)-JVS(39050)*X(3813)& - &-JVS(39051)*X(3815)-JVS(39052)*X(3820)-JVS(39053)*X(3823)-JVS(39054)*X(3824)-JVS(39055)*X(3827)-JVS(39056)& - &*X(3831)-JVS(39057)*X(3835)-JVS(39058)*X(3903)-JVS(39059)*X(3913)-JVS(39060)*X(3933)-JVS(39061)*X(3939)& - &-JVS(39062)*X(3965)-JVS(39063)*X(4004)-JVS(39064)*X(4024)-JVS(39065)*X(4045)-JVS(39066)*X(4066)-JVS(39067)& - &*X(4123)-JVS(39068)*X(4141)-JVS(39069)*X(4142)-JVS(39070)*X(4152)-JVS(39071)*X(4156)-JVS(39072)*X(4159)& - &-JVS(39073)*X(4165)-JVS(39074)*X(4180)-JVS(39075)*X(4256)-JVS(39076)*X(4326)-JVS(39077)*X(4339)-JVS(39078)& - &*X(4347)-JVS(39079)*X(4350)-JVS(39080)*X(4357)-JVS(39081)*X(4358)-JVS(39082)*X(4378)-JVS(39083)*X(4388)& - &-JVS(39084)*X(4393)-JVS(39085)*X(4397)-JVS(39086)*X(4398)-JVS(39087)*X(4399)-JVS(39088)*X(4420)-JVS(39089)& - &*X(4488)-JVS(39090)*X(4529)-JVS(39091)*X(4575)-JVS(39092)*X(4603)-JVS(39093)*X(4617)-JVS(39094)*X(4619)& - &-JVS(39095)*X(4695)-JVS(39096)*X(4707)-JVS(39097)*X(4708)-JVS(39098)*X(4720)-JVS(39099)*X(4728)-JVS(39100)& - &*X(4732)-JVS(39101)*X(4743)-JVS(39102)*X(4758)-JVS(39103)*X(4775)-JVS(39104)*X(4789)-JVS(39105)*X(4795)& - &-JVS(39106)*X(4805)-JVS(39107)*X(4815)-JVS(39108)*X(4823)-JVS(39109)*X(4826)-JVS(39110)*X(4835)-JVS(39111)& - &*X(4840)-JVS(39112)*X(4861)-JVS(39113)*X(4877)-JVS(39114)*X(4894)-JVS(39115)*X(4900)-JVS(39116)*X(4913)& - &-JVS(39117)*X(4916)-JVS(39118)*X(4922)-JVS(39119)*X(4923)-JVS(39120)*X(4928)-JVS(39121)*X(4932)-JVS(39122)& - &*X(4937)-JVS(39123)*X(4945)-JVS(39124)*X(4950)-JVS(39125)*X(4971)-JVS(39126)*X(4976)-JVS(39127)*X(4993)& - &-JVS(39128)*X(5002)-JVS(39129)*X(5003)-JVS(39130)*X(5013)-JVS(39131)*X(5015)-JVS(39132)*X(5022)-JVS(39133)& - &*X(5030)-JVS(39134)*X(5033)-JVS(39135)*X(5035)-JVS(39136)*X(5036)-JVS(39137)*X(5038)-JVS(39138)*X(5049)& - &-JVS(39139)*X(5050)-JVS(39140)*X(5058)-JVS(39141)*X(5059)-JVS(39142)*X(5063)-JVS(39143)*X(5066)-JVS(39144)& - &*X(5068)-JVS(39145)*X(5069)-JVS(39146)*X(5074)-JVS(39147)*X(5075)-JVS(39148)*X(5076)-JVS(39149)*X(5091)& - &-JVS(39150)*X(5103)-JVS(39151)*X(5123)-JVS(39152)*X(5126)-JVS(39153)*X(5132)-JVS(39154)*X(5153)-JVS(39155)& - &*X(5154)-JVS(39156)*X(5166)-JVS(39157)*X(5168)-JVS(39158)*X(5170)-JVS(39159)*X(5173)-JVS(39160)*X(5174)& - &-JVS(39161)*X(5181)-JVS(39162)*X(5194)-JVS(39163)*X(5204)-JVS(39164)*X(5205)-JVS(39165)*X(5209)-JVS(39166)& - &*X(5214)-JVS(39167)*X(5215)-JVS(39168)*X(5217)-JVS(39169)*X(5218)-JVS(39170)*X(5219)-JVS(39171)*X(5220)& - &-JVS(39172)*X(5224)-JVS(39173)*X(5225)-JVS(39174)*X(5226)-JVS(39175)*X(5227) - X(5234) = X(5234)-JVS(39194)*X(249)-JVS(39195)*X(533)-JVS(39196)*X(595)-JVS(39197)*X(603)-JVS(39198)*X(656)-JVS(39199)& - &*X(1113)-JVS(39200)*X(1242)-JVS(39201)*X(1626)-JVS(39202)*X(1639)-JVS(39203)*X(1651)-JVS(39204)*X(1673)& - &-JVS(39205)*X(1683)-JVS(39206)*X(1748)-JVS(39207)*X(1777)-JVS(39208)*X(1787)-JVS(39209)*X(1809)-JVS(39210)& - &*X(1815)-JVS(39211)*X(1851)-JVS(39212)*X(1917)-JVS(39213)*X(1955)-JVS(39214)*X(2096)-JVS(39215)*X(2249)& - &-JVS(39216)*X(2258)-JVS(39217)*X(2279)-JVS(39218)*X(2345)-JVS(39219)*X(2486)-JVS(39220)*X(2494)-JVS(39221)& - &*X(2526)-JVS(39222)*X(2542)-JVS(39223)*X(2554)-JVS(39224)*X(2556)-JVS(39225)*X(2662)-JVS(39226)*X(2695)& - &-JVS(39227)*X(2707)-JVS(39228)*X(2717)-JVS(39229)*X(2796)-JVS(39230)*X(2816)-JVS(39231)*X(2825)-JVS(39232)& - &*X(2865)-JVS(39233)*X(2921)-JVS(39234)*X(3062)-JVS(39235)*X(3201)-JVS(39236)*X(3240)-JVS(39237)*X(3243)& - &-JVS(39238)*X(3254)-JVS(39239)*X(3267)-JVS(39240)*X(3294)-JVS(39241)*X(3485)-JVS(39242)*X(3490)-JVS(39243)& - &*X(3501)-JVS(39244)*X(3514)-JVS(39245)*X(3549)-JVS(39246)*X(3601)-JVS(39247)*X(3608)-JVS(39248)*X(3620)& - &-JVS(39249)*X(3625)-JVS(39250)*X(3700)-JVS(39251)*X(3835)-JVS(39252)*X(3899)-JVS(39253)*X(4115)-JVS(39254)& - &*X(4159)-JVS(39255)*X(4171)-JVS(39256)*X(4263)-JVS(39257)*X(4321)-JVS(39258)*X(4341)-JVS(39259)*X(4378)& - &-JVS(39260)*X(4382)-JVS(39261)*X(4414)-JVS(39262)*X(4564)-JVS(39263)*X(4565)-JVS(39264)*X(4572)-JVS(39265)& - &*X(4578)-JVS(39266)*X(4589)-JVS(39267)*X(4596)-JVS(39268)*X(4599)-JVS(39269)*X(4648)-JVS(39270)*X(4711)& - &-JVS(39271)*X(4765)-JVS(39272)*X(4825)-JVS(39273)*X(4844)-JVS(39274)*X(4851)-JVS(39275)*X(4862)-JVS(39276)& - &*X(4883)-JVS(39277)*X(4890)-JVS(39278)*X(4932)-JVS(39279)*X(4954)-JVS(39280)*X(4957)-JVS(39281)*X(4976)& - &-JVS(39282)*X(4999)-JVS(39283)*X(5015)-JVS(39284)*X(5016)-JVS(39285)*X(5020)-JVS(39286)*X(5022)-JVS(39287)& - &*X(5033)-JVS(39288)*X(5049)-JVS(39289)*X(5074)-JVS(39290)*X(5075)-JVS(39291)*X(5077)-JVS(39292)*X(5081)& - &-JVS(39293)*X(5082)-JVS(39294)*X(5088)-JVS(39295)*X(5090)-JVS(39296)*X(5091)-JVS(39297)*X(5093)-JVS(39298)& - &*X(5124)-JVS(39299)*X(5153)-JVS(39300)*X(5154)-JVS(39301)*X(5159)-JVS(39302)*X(5166)-JVS(39303)*X(5168)& - &-JVS(39304)*X(5174)-JVS(39305)*X(5177)-JVS(39306)*X(5181)-JVS(39307)*X(5189)-JVS(39308)*X(5194)-JVS(39309)& - &*X(5195)-JVS(39310)*X(5196)-JVS(39311)*X(5204)-JVS(39312)*X(5206)-JVS(39313)*X(5207)-JVS(39314)*X(5208)& - &-JVS(39315)*X(5213)-JVS(39316)*X(5217)-JVS(39317)*X(5218)-JVS(39318)*X(5219)-JVS(39319)*X(5220)-JVS(39320)& - &*X(5224)-JVS(39321)*X(5225)-JVS(39322)*X(5227)-JVS(39323)*X(5229)-JVS(39324)*X(5230) - X(5235) = X(5235)-JVS(39343)*X(110)-JVS(39344)*X(759)-JVS(39345)*X(1319)-JVS(39346)*X(2399)-JVS(39347)*X(3247)& - &-JVS(39348)*X(3383)-JVS(39349)*X(3533)-JVS(39350)*X(3540)-JVS(39351)*X(3586)-JVS(39352)*X(4337)-JVS(39353)& - &*X(4420)-JVS(39354)*X(4651)-JVS(39355)*X(4705)-JVS(39356)*X(4717)-JVS(39357)*X(4758)-JVS(39358)*X(4794)& - &-JVS(39359)*X(4828)-JVS(39360)*X(4951)-JVS(39361)*X(4976)-JVS(39362)*X(5039)-JVS(39363)*X(5058)-JVS(39364)& - &*X(5092)-JVS(39365)*X(5099)-JVS(39366)*X(5113)-JVS(39367)*X(5166)-JVS(39368)*X(5181)-JVS(39369)*X(5182)& - &-JVS(39370)*X(5186)-JVS(39371)*X(5193)-JVS(39372)*X(5198)-JVS(39373)*X(5200)-JVS(39374)*X(5202)-JVS(39375)& - &*X(5203)-JVS(39376)*X(5207)-JVS(39377)*X(5208)-JVS(39378)*X(5213)-JVS(39379)*X(5214)-JVS(39380)*X(5215)& - &-JVS(39381)*X(5217)-JVS(39382)*X(5219)-JVS(39383)*X(5227)-JVS(39384)*X(5229)-JVS(39385)*X(5230) - X(5236) = X(5236)-JVS(39402)*X(709)-JVS(39403)*X(719)-JVS(39404)*X(985)-JVS(39405)*X(4605)-JVS(39406)*X(4843)& - &-JVS(39407)*X(4847)-JVS(39408)*X(5169) - X(5237) = X(5237)-JVS(39418)*X(547)-JVS(39419)*X(567)-JVS(39420)*X(600)-JVS(39421)*X(648)-JVS(39422)*X(665)-JVS(39423)& - &*X(749)-JVS(39424)*X(802)-JVS(39425)*X(856)-JVS(39426)*X(868)-JVS(39427)*X(1579)-JVS(39428)*X(1599)& - &-JVS(39429)*X(1601)-JVS(39430)*X(1646)-JVS(39431)*X(1678)-JVS(39432)*X(1793)-JVS(39433)*X(1875)-JVS(39434)& - &*X(1920)-JVS(39435)*X(1926)-JVS(39436)*X(2424)-JVS(39437)*X(2749)-JVS(39438)*X(2809)-JVS(39439)*X(2825)& - &-JVS(39440)*X(2932)-JVS(39441)*X(3049)-JVS(39442)*X(3374)-JVS(39443)*X(3473)-JVS(39444)*X(3557)-JVS(39445)& - &*X(3957)-JVS(39446)*X(4136)-JVS(39447)*X(4142)-JVS(39448)*X(4169)-JVS(39449)*X(4239)-JVS(39450)*X(4343)& - &-JVS(39451)*X(4356)-JVS(39452)*X(4365)-JVS(39453)*X(4392)-JVS(39454)*X(4572)-JVS(39455)*X(4673)-JVS(39456)& - &*X(4730)-JVS(39457)*X(4734)-JVS(39458)*X(4779)-JVS(39459)*X(4825)-JVS(39460)*X(4900)-JVS(39461)*X(5027)& - &-JVS(39462)*X(5054)-JVS(39463)*X(5104)-JVS(39464)*X(5130)-JVS(39465)*X(5161)-JVS(39466)*X(5175)-JVS(39467)& - &*X(5184)-JVS(39468)*X(5185)-JVS(39469)*X(5186)-JVS(39470)*X(5187)-JVS(39471)*X(5192)-JVS(39472)*X(5206)& - &-JVS(39473)*X(5207)-JVS(39474)*X(5208)-JVS(39475)*X(5215)-JVS(39476)*X(5229)-JVS(39477)*X(5230) - X(5238) = X(5238)-JVS(39494)*X(221)-JVS(39495)*X(235)-JVS(39496)*X(253)-JVS(39497)*X(270)-JVS(39498)*X(288)-JVS(39499)& - &*X(342)-JVS(39500)*X(426)-JVS(39501)*X(447)-JVS(39502)*X(548)-JVS(39503)*X(566)-JVS(39504)*X(588)-JVS(39505)& - &*X(601)-JVS(39506)*X(1635)-JVS(39507)*X(1641)-JVS(39508)*X(1688)-JVS(39509)*X(1708)-JVS(39510)*X(1709)& - &-JVS(39511)*X(1817)-JVS(39512)*X(2385)-JVS(39513)*X(2487)-JVS(39514)*X(2914)-JVS(39515)*X(2973)-JVS(39516)& - &*X(3297)-JVS(39517)*X(3651)-JVS(39518)*X(4332)-JVS(39519)*X(4333)-JVS(39520)*X(4475)-JVS(39521)*X(4508)& - &-JVS(39522)*X(4527)-JVS(39523)*X(4604)-JVS(39524)*X(4606)-JVS(39525)*X(4840)-JVS(39526)*X(5051)-JVS(39527)& - &*X(5162)-JVS(39528)*X(5190)-JVS(39529)*X(5200)-JVS(39530)*X(5227) - X(5239) = X(5239)-JVS(39540)*X(918)-JVS(39541)*X(1573)-JVS(39542)*X(2938)-JVS(39543)*X(3424)-JVS(39544)*X(3613)& - &-JVS(39545)*X(3736)-JVS(39546)*X(3737)-JVS(39547)*X(4196)-JVS(39548)*X(4442)-JVS(39549)*X(4672)-JVS(39550)& - &*X(4863)-JVS(39551)*X(5122)-JVS(39552)*X(5131)-JVS(39553)*X(5207) - X(5240) = X(5240)-JVS(39566)*X(452)-JVS(39567)*X(658)-JVS(39568)*X(692)-JVS(39569)*X(1195)-JVS(39570)*X(1668)& - &-JVS(39571)*X(1950)-JVS(39572)*X(2119)-JVS(39573)*X(2250)-JVS(39574)*X(2325)-JVS(39575)*X(2704)-JVS(39576)& - &*X(2746)-JVS(39577)*X(2832)-JVS(39578)*X(3886)-JVS(39579)*X(3928)-JVS(39580)*X(4258)-JVS(39581)*X(5028)& - &-JVS(39582)*X(5052)-JVS(39583)*X(5114)-JVS(39584)*X(5207) - X(5241) = X(5241)-JVS(39597)*X(12)-JVS(39598)*X(37)-JVS(39599)*X(114)-JVS(39600)*X(239)-JVS(39601)*X(327)-JVS(39602)& - &*X(833)-JVS(39603)*X(1633)-JVS(39604)*X(2425)-JVS(39605)*X(2981)-JVS(39606)*X(3069)-JVS(39607)*X(3126)& - &-JVS(39608)*X(3442)-JVS(39609)*X(3535)-JVS(39610)*X(4109)-JVS(39611)*X(4330)-JVS(39612)*X(4383)-JVS(39613)& - &*X(4422)-JVS(39614)*X(4440)-JVS(39615)*X(4474)-JVS(39616)*X(4512)-JVS(39617)*X(4617)-JVS(39618)*X(4749)& - &-JVS(39619)*X(4778)-JVS(39620)*X(4801)-JVS(39621)*X(4802)-JVS(39622)*X(4856)-JVS(39623)*X(4885)-JVS(39624)& - &*X(4903)-JVS(39625)*X(4907)-JVS(39626)*X(4934)-JVS(39627)*X(4950)-JVS(39628)*X(4963)-JVS(39629)*X(4972)& - &-JVS(39630)*X(4975)-JVS(39631)*X(4979)-JVS(39632)*X(5002)-JVS(39633)*X(5010)-JVS(39634)*X(5032)-JVS(39635)& - &*X(5096)-JVS(39636)*X(5110)-JVS(39637)*X(5119)-JVS(39638)*X(5120)-JVS(39639)*X(5127)-JVS(39640)*X(5128)& - &-JVS(39641)*X(5144)-JVS(39642)*X(5146)-JVS(39643)*X(5148)-JVS(39644)*X(5151)-JVS(39645)*X(5157)-JVS(39646)& - &*X(5158)-JVS(39647)*X(5160)-JVS(39648)*X(5163)-JVS(39649)*X(5166)-JVS(39650)*X(5186)-JVS(39651)*X(5187)& - &-JVS(39652)*X(5190)-JVS(39653)*X(5192)-JVS(39654)*X(5198)-JVS(39655)*X(5203)-JVS(39656)*X(5204)-JVS(39657)& - &*X(5206)-JVS(39658)*X(5207)-JVS(39659)*X(5212)-JVS(39660)*X(5213)-JVS(39661)*X(5215)-JVS(39662)*X(5224)& - &-JVS(39663)*X(5226)-JVS(39664)*X(5230)-JVS(39665)*X(5236)-JVS(39666)*X(5238)-JVS(39667)*X(5239)-JVS(39668)& - &*X(5240) - X(5242) = X(5242)-JVS(39685)*X(564)-JVS(39686)*X(682)-JVS(39687)*X(695)-JVS(39688)*X(1566)-JVS(39689)*X(1690)& - &-JVS(39690)*X(1895)-JVS(39691)*X(2070)-JVS(39692)*X(2077)-JVS(39693)*X(2300)-JVS(39694)*X(2428)-JVS(39695)& - &*X(2528)-JVS(39696)*X(2539)-JVS(39697)*X(2644)-JVS(39698)*X(2697)-JVS(39699)*X(2821)-JVS(39700)*X(2834)& - &-JVS(39701)*X(2886)-JVS(39702)*X(2996)-JVS(39703)*X(3048)-JVS(39704)*X(3067)-JVS(39705)*X(3078)-JVS(39706)& - &*X(3383)-JVS(39707)*X(3391)-JVS(39708)*X(3540)-JVS(39709)*X(3586)-JVS(39710)*X(3865)-JVS(39711)*X(3980)& - &-JVS(39712)*X(4337)-JVS(39713)*X(4357)-JVS(39714)*X(4446)-JVS(39715)*X(4486)-JVS(39716)*X(4584)-JVS(39717)& - &*X(4646)-JVS(39718)*X(4705)-JVS(39719)*X(4784)-JVS(39720)*X(4794)-JVS(39721)*X(4820)-JVS(39722)*X(4890)& - &-JVS(39723)*X(4903)-JVS(39724)*X(4907)-JVS(39725)*X(4963)-JVS(39726)*X(4973)-JVS(39727)*X(5055)-JVS(39728)& - &*X(5063)-JVS(39729)*X(5064)-JVS(39730)*X(5073)-JVS(39731)*X(5088)-JVS(39732)*X(5090)-JVS(39733)*X(5108)& - &-JVS(39734)*X(5109)-JVS(39735)*X(5120)-JVS(39736)*X(5127)-JVS(39737)*X(5146)-JVS(39738)*X(5147)-JVS(39739)& - &*X(5148)-JVS(39740)*X(5150)-JVS(39741)*X(5163)-JVS(39742)*X(5166)-JVS(39743)*X(5175)-JVS(39744)*X(5176)& - &-JVS(39745)*X(5179)-JVS(39746)*X(5192)-JVS(39747)*X(5196)-JVS(39748)*X(5206)-JVS(39749)*X(5208)-JVS(39750)& - &*X(5211)-JVS(39751)*X(5212)-JVS(39752)*X(5230)-JVS(39753)*X(5236)-JVS(39754)*X(5238) - X(5243) = X(5243)-JVS(39770)*X(579)-JVS(39771)*X(820)-JVS(39772)*X(2115)-JVS(39773)*X(2211)-JVS(39774)*X(2438)& - &-JVS(39775)*X(2792)-JVS(39776)*X(3126)-JVS(39777)*X(3623)-JVS(39778)*X(3755)-JVS(39779)*X(4364)-JVS(39780)& - &*X(4549)-JVS(39781)*X(4554)-JVS(39782)*X(4555)-JVS(39783)*X(4596)-JVS(39784)*X(4780)-JVS(39785)*X(4903)& - &-JVS(39786)*X(4960)-JVS(39787)*X(4984)-JVS(39788)*X(5000)-JVS(39789)*X(5032)-JVS(39790)*X(5056)-JVS(39791)& - &*X(5060)-JVS(39792)*X(5072)-JVS(39793)*X(5077)-JVS(39794)*X(5079)-JVS(39795)*X(5082)-JVS(39796)*X(5101)& - &-JVS(39797)*X(5129)-JVS(39798)*X(5130)-JVS(39799)*X(5146)-JVS(39800)*X(5148)-JVS(39801)*X(5203)-JVS(39802)& - &*X(5215)-JVS(39803)*X(5226)-JVS(39804)*X(5236)-JVS(39805)*X(5238)-JVS(39806)*X(5239)-JVS(39807)*X(5240) - X(5244) = X(5244)-JVS(39822)*X(533)-JVS(39823)*X(542)-JVS(39824)*X(544)-JVS(39825)*X(553)-JVS(39826)*X(581)-JVS(39827)& - &*X(592)-JVS(39828)*X(605)-JVS(39829)*X(623)-JVS(39830)*X(638)-JVS(39831)*X(641)-JVS(39832)*X(658)-JVS(39833)& - &*X(666)-JVS(39834)*X(679)-JVS(39835)*X(682)-JVS(39836)*X(687)-JVS(39837)*X(693)-JVS(39838)*X(710)-JVS(39839)& - &*X(714)-JVS(39840)*X(720)-JVS(39841)*X(728)-JVS(39842)*X(731)-JVS(39843)*X(740)-JVS(39844)*X(755)-JVS(39845)& - &*X(756)-JVS(39846)*X(763)-JVS(39847)*X(770)-JVS(39848)*X(778)-JVS(39849)*X(1066)-JVS(39850)*X(1242)& - &-JVS(39851)*X(1269)-JVS(39852)*X(1548)-JVS(39853)*X(1557)-JVS(39854)*X(1558)-JVS(39855)*X(1560)-JVS(39856)& - &*X(1561)-JVS(39857)*X(1566)-JVS(39858)*X(1578)-JVS(39859)*X(1585)-JVS(39860)*X(1586)-JVS(39861)*X(1587)& - &-JVS(39862)*X(1592)-JVS(39863)*X(1595)-JVS(39864)*X(1600)-JVS(39865)*X(1609)-JVS(39866)*X(1610)-JVS(39867)& - &*X(1611)-JVS(39868)*X(1630)-JVS(39869)*X(1631)-JVS(39870)*X(1632)-JVS(39871)*X(1637)-JVS(39872)*X(1640)& - &-JVS(39873)*X(1665)-JVS(39874)*X(1668)-JVS(39875)*X(1671)-JVS(39876)*X(1676)-JVS(39877)*X(1677)-JVS(39878)& - &*X(1681)-JVS(39879)*X(1689)-JVS(39880)*X(1691)-JVS(39881)*X(1694)-JVS(39882)*X(1699)-JVS(39883)*X(1710)& - &-JVS(39884)*X(1714)-JVS(39885)*X(1719)-JVS(39886)*X(1722)-JVS(39887)*X(1723)-JVS(39888)*X(1726)-JVS(39889)& - &*X(1731)-JVS(39890)*X(1790)-JVS(39891)*X(1807)-JVS(39892)*X(1825)-JVS(39893)*X(1826)-JVS(39894)*X(1833)& - &-JVS(39895)*X(1834)-JVS(39896)*X(1836)-JVS(39897)*X(1854)-JVS(39898)*X(1873)-JVS(39899)*X(1887)-JVS(39900)& - &*X(1908)-JVS(39901)*X(1925)-JVS(39902)*X(1932)-JVS(39903)*X(1950)-JVS(39904)*X(1953)-JVS(39905)*X(1988)& - &-JVS(39906)*X(2017)-JVS(39907)*X(2024)-JVS(39908)*X(2039)-JVS(39909)*X(2055)-JVS(39910)*X(2064)-JVS(39911)& - &*X(2071)-JVS(39912)*X(2082)-JVS(39913)*X(2084)-JVS(39914)*X(2107)-JVS(39915)*X(2118)-JVS(39916)*X(2119)& - &-JVS(39917)*X(2231)-JVS(39918)*X(2265)-JVS(39919)*X(2273)-JVS(39920)*X(2295)-JVS(39921)*X(2305)-JVS(39922)& - &*X(2326)-JVS(39923)*X(2344)-JVS(39924)*X(2349)-JVS(39925)*X(2356)-JVS(39926)*X(2357)-JVS(39927)*X(2362)& - &-JVS(39928)*X(2386)-JVS(39929)*X(2393)-JVS(39930)*X(2397)-JVS(39931)*X(2404)-JVS(39932)*X(2414)-JVS(39933)& - &*X(2426)-JVS(39934)*X(2428)-JVS(39935)*X(2430)-JVS(39936)*X(2437)-JVS(39937)*X(2438)-JVS(39938)*X(2443)& - &-JVS(39939)*X(2445)-JVS(39940)*X(2467)-JVS(39941)*X(2469)-JVS(39942)*X(2475)-JVS(39943)*X(2476)-JVS(39944)& - &*X(2477)-JVS(39945)*X(2478)-JVS(39946)*X(2479)-JVS(39947)*X(2482)-JVS(39948)*X(2483)-JVS(39949)*X(2484)& - &-JVS(39950)*X(2554)-JVS(39951)*X(2602)-JVS(39952)*X(2603)-JVS(39953)*X(2625)-JVS(39954)*X(2657)-JVS(39955)& - &*X(2679)-JVS(39956)*X(2683)-JVS(39957)*X(2686)-JVS(39958)*X(2715)-JVS(39959)*X(2739)-JVS(39960)*X(2766)& - &-JVS(39961)*X(2769)-JVS(39962)*X(2819)-JVS(39963)*X(2820)-JVS(39964)*X(2863)-JVS(39965)*X(2878)-JVS(39966)& - &*X(2881)-JVS(39967)*X(2905)-JVS(39968)*X(2910)-JVS(39969)*X(2920)-JVS(39970)*X(2923)-JVS(39971)*X(2970)& - &-JVS(39972)*X(3005)-JVS(39973)*X(3006)-JVS(39974)*X(3031)-JVS(39975)*X(3035)-JVS(39976)*X(3057)-JVS(39977)& - &*X(3067)-JVS(39978)*X(3094)-JVS(39979)*X(3104)-JVS(39980)*X(3109)-JVS(39981)*X(3124)-JVS(39982)*X(3128)& - &-JVS(39983)*X(3133)-JVS(39984)*X(3168)-JVS(39985)*X(3209)-JVS(39986)*X(3214)-JVS(39987)*X(3222)-JVS(39988)& - &*X(3227)-JVS(39989)*X(3251)-JVS(39990)*X(3259)-JVS(39991)*X(3274)-JVS(39992)*X(3278)-JVS(39993)*X(3281)& - &-JVS(39994)*X(3298)-JVS(39995)*X(3314)-JVS(39996)*X(3315)-JVS(39997)*X(3328)-JVS(39998)*X(3339)-JVS(39999)& - &*X(3340)-JVS(40000)*X(3359)-JVS(40001)*X(3360)-JVS(40002)*X(3364)-JVS(40003)*X(3366)-JVS(40004)*X(3369)& - &-JVS(40005)*X(3376)-JVS(40006)*X(3378)-JVS(40007)*X(3379)-JVS(40008)*X(3382)-JVS(40009)*X(3384)-JVS(40010)& - &*X(3391)-JVS(40011)*X(3409)-JVS(40012)*X(3419)-JVS(40013)*X(3434)-JVS(40014)*X(3436)-JVS(40015)*X(3441)& - &-JVS(40016)*X(3444)-JVS(40017)*X(3448)-JVS(40018)*X(3450)-JVS(40019)*X(3452)-JVS(40020)*X(3455)-JVS(40021)& - &*X(3464)-JVS(40022)*X(3468)-JVS(40023)*X(3469)-JVS(40024)*X(3475)-JVS(40025)*X(3476)-JVS(40026)*X(3480)& - &-JVS(40027)*X(3484)-JVS(40028)*X(3487)-JVS(40029)*X(3495)-JVS(40030)*X(3498)-JVS(40031)*X(3505)-JVS(40032)& - &*X(3513)-JVS(40033)*X(3514)-JVS(40034)*X(3528)-JVS(40035)*X(3530)-JVS(40036)*X(3535)-JVS(40037)*X(3536)& - &-JVS(40038)*X(3537)-JVS(40039)*X(3546)-JVS(40040)*X(3556)-JVS(40041)*X(3565)-JVS(40042)*X(3566)-JVS(40043)& - &*X(3578)-JVS(40044)*X(3583)-JVS(40045)*X(3593)-JVS(40046)*X(3594)-JVS(40047)*X(3595)-JVS(40048)*X(3602)& - &-JVS(40049)*X(3611)-JVS(40050)*X(3615)-JVS(40051)*X(3618)-JVS(40052)*X(3622)-JVS(40053)*X(3623)-JVS(40054)& - &*X(3624)-JVS(40055)*X(3647)-JVS(40056)*X(3652)-JVS(40057)*X(3664)-JVS(40058)*X(3681)-JVS(40059)*X(3702)& - &-JVS(40060)*X(3707)-JVS(40061)*X(3708)-JVS(40062)*X(3709)-JVS(40063)*X(3723)-JVS(40064)*X(3729)-JVS(40065)& - &*X(3734)-JVS(40066)*X(3735)-JVS(40067)*X(3742)-JVS(40068)*X(3747)-JVS(40069)*X(3756)-JVS(40070)*X(3757)& - &-JVS(40071)*X(3765)-JVS(40072)*X(3767)-JVS(40073)*X(3783)-JVS(40074)*X(3821)-JVS(40075)*X(3822)-JVS(40076)& - &*X(3829)-JVS(40077)*X(3832)-JVS(40078)*X(3842)-JVS(40079)*X(3868)-JVS(40080)*X(3889)-JVS(40081)*X(3897)& - &-JVS(40082)*X(3906)-JVS(40083)*X(3909)-JVS(40084)*X(3918)-JVS(40085)*X(3922)-JVS(40086)*X(3930)-JVS(40087)& - &*X(3931)-JVS(40088)*X(3933)-JVS(40089)*X(3948)-JVS(40090)*X(3965)-JVS(40091)*X(3968)-JVS(40092)*X(3970)& - &-JVS(40093)*X(3978)-JVS(40094)*X(3996)-JVS(40095)*X(4010)-JVS(40096)*X(4025)-JVS(40097)*X(4027)-JVS(40098)& - &*X(4030)-JVS(40099)*X(4056)-JVS(40100)*X(4083)-JVS(40101)*X(4084)-JVS(40102)*X(4106)-JVS(40103)*X(4116)& - &-JVS(40104)*X(4134)-JVS(40105)*X(4140)-JVS(40106)*X(4145)-JVS(40107)*X(4148)-JVS(40108)*X(4149)-JVS(40109)& - &*X(4150)-JVS(40110)*X(4153)-JVS(40111)*X(4154)-JVS(40112)*X(4156)-JVS(40113)*X(4170)-JVS(40114)*X(4178)& - &-JVS(40115)*X(4188)-JVS(40116)*X(4223)-JVS(40117)*X(4236)-JVS(40118)*X(4241)-JVS(40119)*X(4242)-JVS(40120)& - &*X(4248)-JVS(40121)*X(4253)-JVS(40122)*X(4272)-JVS(40123)*X(4294)-JVS(40124)*X(4300)-JVS(40125)*X(4309)& - &-JVS(40126)*X(4321)-JVS(40127)*X(4322)-JVS(40128)*X(4323)-JVS(40129)*X(4324)-JVS(40130)*X(4325)-JVS(40131)& - &*X(4326)-JVS(40132)*X(4327)-JVS(40133)*X(4329)-JVS(40134)*X(4330)-JVS(40135)*X(4334)-JVS(40136)*X(4336)& - &-JVS(40137)*X(4340)-JVS(40138)*X(4344)-JVS(40139)*X(4345)-JVS(40140)*X(4347)-JVS(40141)*X(4352)-JVS(40142)& - &*X(4371)-JVS(40143)*X(4374)-JVS(40144)*X(4379)-JVS(40145)*X(4383)-JVS(40146)*X(4384)-JVS(40147)*X(4386)& - &-JVS(40148)*X(4387)-JVS(40149)*X(4390)-JVS(40150)*X(4391)-JVS(40151)*X(4392)-JVS(40152)*X(4401)-JVS(40153)& - &*X(4416)-JVS(40154)*X(4422)-JVS(40155)*X(4440)-JVS(40156)*X(4446)-JVS(40157)*X(4448)-JVS(40158)*X(4449)& - &-JVS(40159)*X(4472)-JVS(40160)*X(4473)-JVS(40161)*X(4474)-JVS(40162)*X(4480)-JVS(40163)*X(4481)-JVS(40164)& - &*X(4483)-JVS(40165)*X(4486)-JVS(40166)*X(4488)-JVS(40167)*X(4489)-JVS(40168)*X(4490)-JVS(40169)*X(4491)& - &-JVS(40170)*X(4493)-JVS(40171)*X(4524)-JVS(40172)*X(4534)-JVS(40173)*X(4535)-JVS(40174)*X(4550)-JVS(40175)& - &*X(4558)-JVS(40176)*X(4560)-JVS(40177)*X(4564)-JVS(40178)*X(4566)-JVS(40179)*X(4567)-JVS(40180)*X(4568)& - &-JVS(40181)*X(4569)-JVS(40182)*X(4570)-JVS(40183)*X(4573)-JVS(40184)*X(4577)-JVS(40185)*X(4581)-JVS(40186)& - &*X(4586)-JVS(40187)*X(4590)-JVS(40188)*X(4594)-JVS(40189)*X(4605)-JVS(40190)*X(4607)-JVS(40191)*X(4608)& - &-JVS(40192)*X(4612)-JVS(40193)*X(4613)-JVS(40194)*X(4614)-JVS(40195)*X(4616)-JVS(40196)*X(4617)-JVS(40197)& - &*X(4618)-JVS(40198)*X(4625)-JVS(40199)*X(4630)-JVS(40200)*X(4644)-JVS(40201)*X(4647)-JVS(40202)*X(4669)& - &-JVS(40203)*X(4674)-JVS(40204)*X(4693)-JVS(40205)*X(4694)-JVS(40206)*X(4699)-JVS(40207)*X(4702)-JVS(40208)& - &*X(4703)-JVS(40209)*X(4706)-JVS(40210)*X(4711)-JVS(40211)*X(4714)-JVS(40212)*X(4718)-JVS(40213)*X(4719)& - &-JVS(40214)*X(4722)-JVS(40215)*X(4723)-JVS(40216)*X(4724)-JVS(40217)*X(4726)-JVS(40218)*X(4731)-JVS(40219)& - &*X(4742)-JVS(40220)*X(4749)-JVS(40221)*X(4750)-JVS(40222)*X(4754)-JVS(40223)*X(4758)-JVS(40224)*X(4767)& - &-JVS(40225)*X(4769)-JVS(40226)*X(4770)-JVS(40227)*X(4772)-JVS(40228)*X(4773)-JVS(40229)*X(4779)-JVS(40230)& - &*X(4780)-JVS(40231)*X(4782)-JVS(40232)*X(4784)-JVS(40233)*X(4785)-JVS(40234)*X(4787)-JVS(40235)*X(4788)& - &-JVS(40236)*X(4799)-JVS(40237)*X(4800)-JVS(40238)*X(4801)-JVS(40239)*X(4802)-JVS(40240)*X(4805)-JVS(40241)& - &*X(4808)-JVS(40242)*X(4810)-JVS(40243)*X(4811)-JVS(40244)*X(4817)-JVS(40245)*X(4821)-JVS(40246)*X(4826)& - &-JVS(40247)*X(4827)-JVS(40248)*X(4835)-JVS(40249)*X(4841)-JVS(40250)*X(4852)-JVS(40251)*X(4857)-JVS(40252)& - &*X(4858)-JVS(40253)*X(4865)-JVS(40254)*X(4876)-JVS(40255)*X(4880)-JVS(40256)*X(4884)-JVS(40257)*X(4886)& - &-JVS(40258)*X(4887)-JVS(40259)*X(4888)-JVS(40260)*X(4890)-JVS(40261)*X(4892)-JVS(40262)*X(4893)-JVS(40263)& - &*X(4895)-JVS(40264)*X(4897)-JVS(40265)*X(4899)-JVS(40266)*X(4901)-JVS(40267)*X(4906)-JVS(40268)*X(4907)& - &-JVS(40269)*X(4909)-JVS(40270)*X(4911)-JVS(40271)*X(4913)-JVS(40272)*X(4914)-JVS(40273)*X(4920)-JVS(40274)& - &*X(4922)-JVS(40275)*X(4923)-JVS(40276)*X(4925)-JVS(40277)*X(4927)-JVS(40278)*X(4929)-JVS(40279)*X(4933)& - &-JVS(40280)*X(4934)-JVS(40281)*X(4935)-JVS(40282)*X(4937)-JVS(40283)*X(4938)-JVS(40284)*X(4945)-JVS(40285)& - &*X(4946)-JVS(40286)*X(4947)-JVS(40287)*X(4948)-JVS(40288)*X(4950)-JVS(40289)*X(4952)-JVS(40290)*X(4955)& - &-JVS(40291)*X(4967)-JVS(40292)*X(4968)-JVS(40293)*X(4971)-JVS(40294)*X(4973)-JVS(40295)*X(4974)-JVS(40296)& - &*X(4975)-JVS(40297)*X(4976)-JVS(40298)*X(4977)-JVS(40299)*X(4979)-JVS(40300)*X(4982)-JVS(40301)*X(4985)& - &-JVS(40302)*X(4986)-JVS(40303)*X(4987)-JVS(40304)*X(4988)-JVS(40305)*X(4990)-JVS(40306)*X(4991)-JVS(40307)& - &*X(4992)-JVS(40308)*X(4993)-JVS(40309)*X(4994)-JVS(40310)*X(5002)-JVS(40311)*X(5003)-JVS(40312)*X(5007)& - &-JVS(40313)*X(5008)-JVS(40314)*X(5010)-JVS(40315)*X(5011)-JVS(40316)*X(5015)-JVS(40317)*X(5016)-JVS(40318)& - &*X(5018)-JVS(40319)*X(5020)-JVS(40320)*X(5025)-JVS(40321)*X(5028)-JVS(40322)*X(5029)-JVS(40323)*X(5030)& - &-JVS(40324)*X(5031)-JVS(40325)*X(5032)-JVS(40326)*X(5033)-JVS(40327)*X(5035)-JVS(40328)*X(5036)-JVS(40329)& - &*X(5037)-JVS(40330)*X(5040)-JVS(40331)*X(5045)-JVS(40332)*X(5051)-JVS(40333)*X(5054)-JVS(40334)*X(5061)& - &-JVS(40335)*X(5062)-JVS(40336)*X(5063)-JVS(40337)*X(5064)-JVS(40338)*X(5069)-JVS(40339)*X(5073)-JVS(40340)& - &*X(5075)-JVS(40341)*X(5076)-JVS(40342)*X(5078)-JVS(40343)*X(5080)-JVS(40344)*X(5083)-JVS(40345)*X(5084)& - &-JVS(40346)*X(5088)-JVS(40347)*X(5089)-JVS(40348)*X(5090)-JVS(40349)*X(5095)-JVS(40350)*X(5097)-JVS(40351)& - &*X(5098)-JVS(40352)*X(5100)-JVS(40353)*X(5102)-JVS(40354)*X(5103)-JVS(40355)*X(5105)-JVS(40356)*X(5108)& - &-JVS(40357)*X(5109)-JVS(40358)*X(5110)-JVS(40359)*X(5116)-JVS(40360)*X(5117)-JVS(40361)*X(5119)-JVS(40362)& - &*X(5120)-JVS(40363)*X(5123)-JVS(40364)*X(5128)-JVS(40365)*X(5132)-JVS(40366)*X(5133)-JVS(40367)*X(5134)& - &-JVS(40368)*X(5141)-JVS(40369)*X(5146)-JVS(40370)*X(5147)-JVS(40371)*X(5148)-JVS(40372)*X(5150)-JVS(40373)& - &*X(5151)-JVS(40374)*X(5154)-JVS(40375)*X(5155)-JVS(40376)*X(5157)-JVS(40377)*X(5159)-JVS(40378)*X(5160)& - &-JVS(40379)*X(5161)-JVS(40380)*X(5162)-JVS(40381)*X(5163)-JVS(40382)*X(5166)-JVS(40383)*X(5167)-JVS(40384)& - &*X(5168)-JVS(40385)*X(5169)-JVS(40386)*X(5172)-JVS(40387)*X(5173)-JVS(40388)*X(5174)-JVS(40389)*X(5175)& - &-JVS(40390)*X(5176)-JVS(40391)*X(5177)-JVS(40392)*X(5178)-JVS(40393)*X(5185)-JVS(40394)*X(5186)-JVS(40395)& - &*X(5187)-JVS(40396)*X(5188)-JVS(40397)*X(5189)-JVS(40398)*X(5190)-JVS(40399)*X(5192)-JVS(40400)*X(5193)& - &-JVS(40401)*X(5196)-JVS(40402)*X(5197)-JVS(40403)*X(5198)-JVS(40404)*X(5199)-JVS(40405)*X(5200)-JVS(40406)& - &*X(5202)-JVS(40407)*X(5203)-JVS(40408)*X(5204)-JVS(40409)*X(5205)-JVS(40410)*X(5206)-JVS(40411)*X(5207)& - &-JVS(40412)*X(5208)-JVS(40413)*X(5209)-JVS(40414)*X(5210)-JVS(40415)*X(5212)-JVS(40416)*X(5213)-JVS(40417)& - &*X(5215)-JVS(40418)*X(5217)-JVS(40419)*X(5218)-JVS(40420)*X(5219)-JVS(40421)*X(5220)-JVS(40422)*X(5221)& - &-JVS(40423)*X(5222)-JVS(40424)*X(5224)-JVS(40425)*X(5225)-JVS(40426)*X(5226)-JVS(40427)*X(5227)-JVS(40428)& - &*X(5229)-JVS(40429)*X(5230)-JVS(40430)*X(5236)-JVS(40431)*X(5238)-JVS(40432)*X(5239)-JVS(40433)*X(5240)& - &-JVS(40434)*X(5241)-JVS(40435)*X(5242)-JVS(40436)*X(5243) - X(5245) = X(5245)-JVS(40452)*X(1199)-JVS(40453)*X(1620)-JVS(40454)*X(1660)-JVS(40455)*X(2136)-JVS(40456)*X(2813)& - &-JVS(40457)*X(3613)-JVS(40458)*X(4442)-JVS(40459)*X(4734)-JVS(40460)*X(5131)-JVS(40461)*X(5206) - X(5246) = X(5246)-JVS(40474)*X(301)-JVS(40475)*X(1471)-JVS(40476)*X(2070)-JVS(40477)*X(3367)-JVS(40478)*X(3390)& - &-JVS(40479)*X(3530)-JVS(40480)*X(3629)-JVS(40481)*X(3906)-JVS(40482)*X(4300)-JVS(40483)*X(4781)-JVS(40484)& - &*X(4784)-JVS(40485)*X(4891)-JVS(40486)*X(5108)-JVS(40487)*X(5109)-JVS(40488)*X(5178)-JVS(40489)*X(5179)& - &-JVS(40490)*X(5196)-JVS(40491)*X(5206)-JVS(40492)*X(5211)-JVS(40493)*X(5212)-JVS(40494)*X(5236)-JVS(40495)& - &*X(5238)-JVS(40496)*X(5245) - X(5247) = X(5247)-JVS(40510)*X(189)-JVS(40511)*X(871)-JVS(40512)*X(1523)-JVS(40513)*X(1828)-JVS(40514)*X(2165)& - &-JVS(40515)*X(2737)-JVS(40516)*X(3242)-JVS(40517)*X(3564)-JVS(40518)*X(4183)-JVS(40519)*X(4542)-JVS(40520)& - &*X(4745)-JVS(40521)*X(4746)-JVS(40522)*X(4921)-JVS(40523)*X(4940)-JVS(40524)*X(4988)-JVS(40525)*X(5048)& - &-JVS(40526)*X(5092)-JVS(40527)*X(5099)-JVS(40528)*X(5206) - X(5248) = X(5248)-JVS(40541)*X(621)-JVS(40542)*X(663)-JVS(40543)*X(667)-JVS(40544)*X(673)-JVS(40545)*X(730)-JVS(40546)& - &*X(1334)-JVS(40547)*X(1862)-JVS(40548)*X(1918)-JVS(40549)*X(2098)-JVS(40550)*X(2266)-JVS(40551)*X(3039)& - &-JVS(40552)*X(3074)-JVS(40553)*X(3844)-JVS(40554)*X(3883)-JVS(40555)*X(3920)-JVS(40556)*X(3966)-JVS(40557)& - &*X(3988)-JVS(40558)*X(4264)-JVS(40559)*X(4691) - X(5249) = X(5249)-JVS(40571)*X(661)-JVS(40572)*X(2242)-JVS(40573)*X(2961)-JVS(40574)*X(3898)-JVS(40575)*X(4678)& - &-JVS(40576)*X(4988) - X(5250) = X(5250)-JVS(40586)*X(4)-JVS(40587)*X(12)-JVS(40588)*X(13)-JVS(40589)*X(15)-JVS(40590)*X(17)-JVS(40591)*X(18)& - &-JVS(40592)*X(19)-JVS(40593)*X(20)-JVS(40594)*X(21)-JVS(40595)*X(22)-JVS(40596)*X(24)-JVS(40597)*X(26)& - &-JVS(40598)*X(27)-JVS(40599)*X(28)-JVS(40600)*X(29)-JVS(40601)*X(30)-JVS(40602)*X(31)-JVS(40603)*X(32)& - &-JVS(40604)*X(33)-JVS(40605)*X(34)-JVS(40606)*X(37)-JVS(40607)*X(38)-JVS(40608)*X(39)-JVS(40609)*X(40)& - &-JVS(40610)*X(41)-JVS(40611)*X(46)-JVS(40612)*X(47)-JVS(40613)*X(48)-JVS(40614)*X(52)-JVS(40615)*X(53)& - &-JVS(40616)*X(54)-JVS(40617)*X(55)-JVS(40618)*X(56)-JVS(40619)*X(58)-JVS(40620)*X(59)-JVS(40621)*X(60)& - &-JVS(40622)*X(61)-JVS(40623)*X(62)-JVS(40624)*X(63)-JVS(40625)*X(64)-JVS(40626)*X(67)-JVS(40627)*X(68)& - &-JVS(40628)*X(70)-JVS(40629)*X(71)-JVS(40630)*X(72)-JVS(40631)*X(73)-JVS(40632)*X(74)-JVS(40633)*X(75)& - &-JVS(40634)*X(77)-JVS(40635)*X(79)-JVS(40636)*X(81)-JVS(40637)*X(83)-JVS(40638)*X(84)-JVS(40639)*X(87)& - &-JVS(40640)*X(89)-JVS(40641)*X(90)-JVS(40642)*X(93)-JVS(40643)*X(94)-JVS(40644)*X(95)-JVS(40645)*X(98)& - &-JVS(40646)*X(99)-JVS(40647)*X(100)-JVS(40648)*X(101)-JVS(40649)*X(102)-JVS(40650)*X(103)-JVS(40651)*X(104)& - &-JVS(40652)*X(105)-JVS(40653)*X(106)-JVS(40654)*X(108)-JVS(40655)*X(109)-JVS(40656)*X(110)-JVS(40657)*X(111)& - &-JVS(40658)*X(112)-JVS(40659)*X(114)-JVS(40660)*X(118)-JVS(40661)*X(119)-JVS(40662)*X(121)-JVS(40663)*X(122)& - &-JVS(40664)*X(123)-JVS(40665)*X(124)-JVS(40666)*X(126)-JVS(40667)*X(127)-JVS(40668)*X(128)-JVS(40669)*X(129)& - &-JVS(40670)*X(131)-JVS(40671)*X(133)-JVS(40672)*X(134)-JVS(40673)*X(135)-JVS(40674)*X(136)-JVS(40675)*X(139)& - &-JVS(40676)*X(143)-JVS(40677)*X(144)-JVS(40678)*X(147)-JVS(40679)*X(148)-JVS(40680)*X(181)-JVS(40681)*X(198)& - &-JVS(40682)*X(207)-JVS(40683)*X(208)-JVS(40684)*X(209)-JVS(40685)*X(210)-JVS(40686)*X(212)-JVS(40687)*X(213)& - &-JVS(40688)*X(214)-JVS(40689)*X(215)-JVS(40690)*X(216)-JVS(40691)*X(217)-JVS(40692)*X(218)-JVS(40693)*X(219)& - &-JVS(40694)*X(220)-JVS(40695)*X(221)-JVS(40696)*X(222)-JVS(40697)*X(223)-JVS(40698)*X(224)-JVS(40699)*X(225)& - &-JVS(40700)*X(226)-JVS(40701)*X(227)-JVS(40702)*X(228)-JVS(40703)*X(229)-JVS(40704)*X(230)-JVS(40705)*X(231)& - &-JVS(40706)*X(232)-JVS(40707)*X(233)-JVS(40708)*X(234)-JVS(40709)*X(235)-JVS(40710)*X(236)-JVS(40711)*X(237)& - &-JVS(40712)*X(238)-JVS(40713)*X(239)-JVS(40714)*X(240)-JVS(40715)*X(241)-JVS(40716)*X(242)-JVS(40717)*X(243)& - &-JVS(40718)*X(244)-JVS(40719)*X(245)-JVS(40720)*X(246)-JVS(40721)*X(247)-JVS(40722)*X(248)-JVS(40723)*X(249)& - &-JVS(40724)*X(250)-JVS(40725)*X(251)-JVS(40726)*X(252)-JVS(40727)*X(253)-JVS(40728)*X(255)-JVS(40729)*X(256)& - &-JVS(40730)*X(257)-JVS(40731)*X(258)-JVS(40732)*X(259)-JVS(40733)*X(260)-JVS(40734)*X(262)-JVS(40735)*X(263)& - &-JVS(40736)*X(264)-JVS(40737)*X(265)-JVS(40738)*X(266)-JVS(40739)*X(267)-JVS(40740)*X(268)-JVS(40741)*X(269)& - &-JVS(40742)*X(270)-JVS(40743)*X(272)-JVS(40744)*X(273)-JVS(40745)*X(274)-JVS(40746)*X(275)-JVS(40747)*X(276)& - &-JVS(40748)*X(277)-JVS(40749)*X(278)-JVS(40750)*X(279)-JVS(40751)*X(280)-JVS(40752)*X(281)-JVS(40753)*X(282)& - &-JVS(40754)*X(283)-JVS(40755)*X(284)-JVS(40756)*X(285)-JVS(40757)*X(286)-JVS(40758)*X(287)-JVS(40759)*X(288)& - &-JVS(40760)*X(289)-JVS(40761)*X(291)-JVS(40762)*X(292)-JVS(40763)*X(293)-JVS(40764)*X(294)-JVS(40765)*X(295)& - &-JVS(40766)*X(296)-JVS(40767)*X(298)-JVS(40768)*X(299)-JVS(40769)*X(301)-JVS(40770)*X(302)-JVS(40771)*X(303)& - &-JVS(40772)*X(304)-JVS(40773)*X(305)-JVS(40774)*X(306)-JVS(40775)*X(307)-JVS(40776)*X(308)-JVS(40777)*X(309)& - &-JVS(40778)*X(310)-JVS(40779)*X(311)-JVS(40780)*X(312)-JVS(40781)*X(313)-JVS(40782)*X(314)-JVS(40783)*X(316)& - &-JVS(40784)*X(317)-JVS(40785)*X(318)-JVS(40786)*X(319)-JVS(40787)*X(320)-JVS(40788)*X(321)-JVS(40789)*X(322)& - &-JVS(40790)*X(323)-JVS(40791)*X(324)-JVS(40792)*X(325)-JVS(40793)*X(327)-JVS(40794)*X(328)-JVS(40795)*X(329)& - &-JVS(40796)*X(330)-JVS(40797)*X(331)-JVS(40798)*X(332)-JVS(40799)*X(333)-JVS(40800)*X(334)-JVS(40801)*X(335)& - &-JVS(40802)*X(336)-JVS(40803)*X(337)-JVS(40804)*X(338)-JVS(40805)*X(339)-JVS(40806)*X(340)-JVS(40807)*X(341)& - &-JVS(40808)*X(342)-JVS(40809)*X(343)-JVS(40810)*X(344)-JVS(40811)*X(345)-JVS(40812)*X(346)-JVS(40813)*X(347)& - &-JVS(40814)*X(348)-JVS(40815)*X(349)-JVS(40816)*X(350)-JVS(40817)*X(351)-JVS(40818)*X(352)-JVS(40819)*X(353)& - &-JVS(40820)*X(354)-JVS(40821)*X(355)-JVS(40822)*X(356)-JVS(40823)*X(357)-JVS(40824)*X(358)-JVS(40825)*X(359)& - &-JVS(40826)*X(360)-JVS(40827)*X(361)-JVS(40828)*X(362)-JVS(40829)*X(363)-JVS(40830)*X(364)-JVS(40831)*X(365)& - &-JVS(40832)*X(366)-JVS(40833)*X(367)-JVS(40834)*X(368)-JVS(40835)*X(369)-JVS(40836)*X(371)-JVS(40837)*X(372)& - &-JVS(40838)*X(373)-JVS(40839)*X(374)-JVS(40840)*X(375)-JVS(40841)*X(376)-JVS(40842)*X(377)-JVS(40843)*X(378)& - &-JVS(40844)*X(379)-JVS(40845)*X(380)-JVS(40846)*X(381)-JVS(40847)*X(382)-JVS(40848)*X(383)-JVS(40849)*X(384)& - &-JVS(40850)*X(385)-JVS(40851)*X(386)-JVS(40852)*X(387)-JVS(40853)*X(388)-JVS(40854)*X(389)-JVS(40855)*X(390)& - &-JVS(40856)*X(391)-JVS(40857)*X(392)-JVS(40858)*X(393)-JVS(40859)*X(394)-JVS(40860)*X(395)-JVS(40861)*X(396)& - &-JVS(40862)*X(397)-JVS(40863)*X(398)-JVS(40864)*X(399)-JVS(40865)*X(400)-JVS(40866)*X(401)-JVS(40867)*X(402)& - &-JVS(40868)*X(403)-JVS(40869)*X(404)-JVS(40870)*X(405)-JVS(40871)*X(406)-JVS(40872)*X(408)-JVS(40873)*X(409)& - &-JVS(40874)*X(410)-JVS(40875)*X(411)-JVS(40876)*X(412)-JVS(40877)*X(413)-JVS(40878)*X(414)-JVS(40879)*X(415)& - &-JVS(40880)*X(416)-JVS(40881)*X(417)-JVS(40882)*X(418)-JVS(40883)*X(419)-JVS(40884)*X(420)-JVS(40885)*X(422)& - &-JVS(40886)*X(423)-JVS(40887)*X(424)-JVS(40888)*X(425)-JVS(40889)*X(426)-JVS(40890)*X(427)-JVS(40891)*X(428)& - &-JVS(40892)*X(429)-JVS(40893)*X(430)-JVS(40894)*X(431)-JVS(40895)*X(432)-JVS(40896)*X(433)-JVS(40897)*X(434)& - &-JVS(40898)*X(435)-JVS(40899)*X(436)-JVS(40900)*X(437)-JVS(40901)*X(438)-JVS(40902)*X(439)-JVS(40903)*X(440)& - &-JVS(40904)*X(441)-JVS(40905)*X(442)-JVS(40906)*X(444)-JVS(40907)*X(446)-JVS(40908)*X(447)-JVS(40909)*X(448)& - &-JVS(40910)*X(449)-JVS(40911)*X(451)-JVS(40912)*X(452)-JVS(40913)*X(453)-JVS(40914)*X(454)-JVS(40915)*X(455)& - &-JVS(40916)*X(456)-JVS(40917)*X(457)-JVS(40918)*X(458)-JVS(40919)*X(459)-JVS(40920)*X(460)-JVS(40921)*X(461)& - &-JVS(40922)*X(462)-JVS(40923)*X(463)-JVS(40924)*X(464)-JVS(40925)*X(465)-JVS(40926)*X(466)-JVS(40927)*X(467)& - &-JVS(40928)*X(468)-JVS(40929)*X(469)-JVS(40930)*X(470)-JVS(40931)*X(471)-JVS(40932)*X(472)-JVS(40933)*X(473)& - &-JVS(40934)*X(474)-JVS(40935)*X(475)-JVS(40936)*X(476)-JVS(40937)*X(477)-JVS(40938)*X(478)-JVS(40939)*X(479)& - &-JVS(40940)*X(480)-JVS(40941)*X(481)-JVS(40942)*X(482)-JVS(40943)*X(483)-JVS(40944)*X(484)-JVS(40945)*X(485)& - &-JVS(40946)*X(486)-JVS(40947)*X(487)-JVS(40948)*X(488)-JVS(40949)*X(489)-JVS(40950)*X(490)-JVS(40951)*X(491)& - &-JVS(40952)*X(492)-JVS(40953)*X(493)-JVS(40954)*X(494)-JVS(40955)*X(495)-JVS(40956)*X(496)-JVS(40957)*X(497)& - &-JVS(40958)*X(498)-JVS(40959)*X(499)-JVS(40960)*X(500)-JVS(40961)*X(501)-JVS(40962)*X(502)-JVS(40963)*X(503)& - &-JVS(40964)*X(504)-JVS(40965)*X(505)-JVS(40966)*X(506)-JVS(40967)*X(507)-JVS(40968)*X(508)-JVS(40969)*X(509)& - &-JVS(40970)*X(510)-JVS(40971)*X(511)-JVS(40972)*X(512)-JVS(40973)*X(513)-JVS(40974)*X(514)-JVS(40975)*X(515)& - &-JVS(40976)*X(516)-JVS(40977)*X(517)-JVS(40978)*X(518)-JVS(40979)*X(519)-JVS(40980)*X(520)-JVS(40981)*X(521)& - &-JVS(40982)*X(522)-JVS(40983)*X(523)-JVS(40984)*X(524)-JVS(40985)*X(525)-JVS(40986)*X(526)-JVS(40987)*X(527)& - &-JVS(40988)*X(529)-JVS(40989)*X(530)-JVS(40990)*X(531)-JVS(40991)*X(536)-JVS(40992)*X(538)-JVS(40993)*X(540)& - &-JVS(40994)*X(542)-JVS(40995)*X(543)-JVS(40996)*X(546)-JVS(40997)*X(547)-JVS(40998)*X(548)-JVS(40999)*X(554)& - &-JVS(41000)*X(556)-JVS(41001)*X(558)-JVS(41002)*X(559)-JVS(41003)*X(560)-JVS(41004)*X(561)-JVS(41005)*X(562)& - &-JVS(41006)*X(563)-JVS(41007)*X(565)-JVS(41008)*X(566)-JVS(41009)*X(567)-JVS(41010)*X(568)-JVS(41011)*X(569)& - &-JVS(41012)*X(572)-JVS(41013)*X(576)-JVS(41014)*X(577)-JVS(41015)*X(578)-JVS(41016)*X(579)-JVS(41017)*X(580)& - &-JVS(41018)*X(583)-JVS(41019)*X(586)-JVS(41020)*X(587)-JVS(41021)*X(588)-JVS(41022)*X(590)-JVS(41023)*X(591)& - &-JVS(41024)*X(593)-JVS(41025)*X(594)-JVS(41026)*X(598)-JVS(41027)*X(599)-JVS(41028)*X(601)-JVS(41029)*X(602)& - &-JVS(41030)*X(604)-JVS(41031)*X(608)-JVS(41032)*X(609)-JVS(41033)*X(611)-JVS(41034)*X(612)-JVS(41035)*X(613)& - &-JVS(41036)*X(614)-JVS(41037)*X(616)-JVS(41038)*X(621)-JVS(41039)*X(622)-JVS(41040)*X(626)-JVS(41041)*X(628)& - &-JVS(41042)*X(631)-JVS(41043)*X(633)-JVS(41044)*X(634)-JVS(41045)*X(636)-JVS(41046)*X(640)-JVS(41047)*X(642)& - &-JVS(41048)*X(647)-JVS(41049)*X(650)-JVS(41050)*X(651)-JVS(41051)*X(652)-JVS(41052)*X(653)-JVS(41053)*X(657)& - &-JVS(41054)*X(659)-JVS(41055)*X(661)-JVS(41056)*X(662)-JVS(41057)*X(664)-JVS(41058)*X(667)-JVS(41059)*X(668)& - &-JVS(41060)*X(671)-JVS(41061)*X(675)-JVS(41062)*X(676)-JVS(41063)*X(678)-JVS(41064)*X(680)-JVS(41065)*X(681)& - &-JVS(41066)*X(683)-JVS(41067)*X(684)-JVS(41068)*X(685)-JVS(41069)*X(686)-JVS(41070)*X(690)-JVS(41071)*X(691)& - &-JVS(41072)*X(692)-JVS(41073)*X(694)-JVS(41074)*X(696)-JVS(41075)*X(699)-JVS(41076)*X(700)-JVS(41077)*X(705)& - &-JVS(41078)*X(709)-JVS(41079)*X(713)-JVS(41080)*X(718)-JVS(41081)*X(719)-JVS(41082)*X(723)-JVS(41083)*X(725)& - &-JVS(41084)*X(732)-JVS(41085)*X(735)-JVS(41086)*X(736)-JVS(41087)*X(738)-JVS(41088)*X(742)-JVS(41089)*X(751)& - &-JVS(41090)*X(752)-JVS(41091)*X(754)-JVS(41092)*X(757)-JVS(41093)*X(758)-JVS(41094)*X(759)-JVS(41095)*X(762)& - &-JVS(41096)*X(763)-JVS(41097)*X(764)-JVS(41098)*X(766)-JVS(41099)*X(767)-JVS(41100)*X(769)-JVS(41101)*X(771)& - &-JVS(41102)*X(772)-JVS(41103)*X(779)-JVS(41104)*X(785)-JVS(41105)*X(788)-JVS(41106)*X(789)-JVS(41107)*X(790)& - &-JVS(41108)*X(793)-JVS(41109)*X(794)-JVS(41110)*X(796)-JVS(41111)*X(799)-JVS(41112)*X(803)-JVS(41113)*X(804)& - &-JVS(41114)*X(805)-JVS(41115)*X(806)-JVS(41116)*X(807)-JVS(41117)*X(811)-JVS(41118)*X(812)-JVS(41119)*X(813)& - &-JVS(41120)*X(818)-JVS(41121)*X(819)-JVS(41122)*X(821)-JVS(41123)*X(822)-JVS(41124)*X(823)-JVS(41125)*X(824)& - &-JVS(41126)*X(825)-JVS(41127)*X(826)-JVS(41128)*X(827)-JVS(41129)*X(828)-JVS(41130)*X(829)-JVS(41131)*X(830)& - &-JVS(41132)*X(831)-JVS(41133)*X(832)-JVS(41134)*X(833)-JVS(41135)*X(834)-JVS(41136)*X(835)-JVS(41137)*X(836)& - &-JVS(41138)*X(837)-JVS(41139)*X(838)-JVS(41140)*X(839)-JVS(41141)*X(840)-JVS(41142)*X(841)-JVS(41143)*X(842)& - &-JVS(41144)*X(843)-JVS(41145)*X(844)-JVS(41146)*X(845)-JVS(41147)*X(846)-JVS(41148)*X(847)-JVS(41149)*X(848)& - &-JVS(41150)*X(849)-JVS(41151)*X(850)-JVS(41152)*X(851)-JVS(41153)*X(852)-JVS(41154)*X(853)-JVS(41155)*X(854)& - &-JVS(41156)*X(855)-JVS(41157)*X(856)-JVS(41158)*X(857)-JVS(41159)*X(858)-JVS(41160)*X(859)-JVS(41161)*X(860)& - &-JVS(41162)*X(861)-JVS(41163)*X(862)-JVS(41164)*X(863)-JVS(41165)*X(864)-JVS(41166)*X(865)-JVS(41167)*X(866)& - &-JVS(41168)*X(867)-JVS(41169)*X(868)-JVS(41170)*X(869)-JVS(41171)*X(870)-JVS(41172)*X(871)-JVS(41173)*X(872)& - &-JVS(41174)*X(873)-JVS(41175)*X(874)-JVS(41176)*X(875)-JVS(41177)*X(876)-JVS(41178)*X(877)-JVS(41179)*X(878)& - &-JVS(41180)*X(879)-JVS(41181)*X(880)-JVS(41182)*X(881)-JVS(41183)*X(882)-JVS(41184)*X(883)-JVS(41185)*X(884)& - &-JVS(41186)*X(885)-JVS(41187)*X(886)-JVS(41188)*X(887)-JVS(41189)*X(888)-JVS(41190)*X(889)-JVS(41191)*X(890)& - &-JVS(41192)*X(891)-JVS(41193)*X(892)-JVS(41194)*X(893)-JVS(41195)*X(894)-JVS(41196)*X(895)-JVS(41197)*X(896)& - &-JVS(41198)*X(897)-JVS(41199)*X(898)-JVS(41200)*X(899)-JVS(41201)*X(900)-JVS(41202)*X(901)-JVS(41203)*X(902)& - &-JVS(41204)*X(903)-JVS(41205)*X(904)-JVS(41206)*X(905)-JVS(41207)*X(906)-JVS(41208)*X(907)-JVS(41209)*X(908)& - &-JVS(41210)*X(909)-JVS(41211)*X(910)-JVS(41212)*X(911)-JVS(41213)*X(912)-JVS(41214)*X(913)-JVS(41215)*X(914)& - &-JVS(41216)*X(915)-JVS(41217)*X(916)-JVS(41218)*X(917)-JVS(41219)*X(918)-JVS(41220)*X(919)-JVS(41221)*X(920)& - &-JVS(41222)*X(921)-JVS(41223)*X(922)-JVS(41224)*X(923)-JVS(41225)*X(924)-JVS(41226)*X(925)-JVS(41227)*X(926)& - &-JVS(41228)*X(927)-JVS(41229)*X(928)-JVS(41230)*X(929)-JVS(41231)*X(930)-JVS(41232)*X(931)-JVS(41233)*X(932)& - &-JVS(41234)*X(933)-JVS(41235)*X(934)-JVS(41236)*X(935)-JVS(41237)*X(936)-JVS(41238)*X(937)-JVS(41239)*X(938)& - &-JVS(41240)*X(939)-JVS(41241)*X(940)-JVS(41242)*X(941)-JVS(41243)*X(942)-JVS(41244)*X(943)-JVS(41245)*X(944)& - &-JVS(41246)*X(945)-JVS(41247)*X(946)-JVS(41248)*X(947)-JVS(41249)*X(948)-JVS(41250)*X(949)-JVS(41251)*X(950)& - &-JVS(41252)*X(951)-JVS(41253)*X(952)-JVS(41254)*X(953)-JVS(41255)*X(954)-JVS(41256)*X(955)-JVS(41257)*X(956)& - &-JVS(41258)*X(957)-JVS(41259)*X(958)-JVS(41260)*X(959)-JVS(41261)*X(960)-JVS(41262)*X(961)-JVS(41263)*X(962)& - &-JVS(41264)*X(963)-JVS(41265)*X(964)-JVS(41266)*X(965)-JVS(41267)*X(966)-JVS(41268)*X(967)-JVS(41269)*X(968)& - &-JVS(41270)*X(969)-JVS(41271)*X(970)-JVS(41272)*X(971)-JVS(41273)*X(972)-JVS(41274)*X(973)-JVS(41275)*X(974)& - &-JVS(41276)*X(975)-JVS(41277)*X(976)-JVS(41278)*X(977)-JVS(41279)*X(978)-JVS(41280)*X(979)-JVS(41281)*X(980)& - &-JVS(41282)*X(981)-JVS(41283)*X(982)-JVS(41284)*X(983)-JVS(41285)*X(984)-JVS(41286)*X(985)-JVS(41287)*X(986)& - &-JVS(41288)*X(987)-JVS(41289)*X(988)-JVS(41290)*X(989)-JVS(41291)*X(990)-JVS(41292)*X(991)-JVS(41293)*X(992)& - &-JVS(41294)*X(993)-JVS(41295)*X(994)-JVS(41296)*X(995)-JVS(41297)*X(996)-JVS(41298)*X(997)-JVS(41299)*X(998)& - &-JVS(41300)*X(999)-JVS(41301)*X(1000)-JVS(41302)*X(1001)-JVS(41303)*X(1002)-JVS(41304)*X(1003)-JVS(41305)& - &*X(1004)-JVS(41306)*X(1005)-JVS(41307)*X(1006)-JVS(41308)*X(1007)-JVS(41309)*X(1008)-JVS(41310)*X(1009)& - &-JVS(41311)*X(1010)-JVS(41312)*X(1012)-JVS(41313)*X(1014)-JVS(41314)*X(1015)-JVS(41315)*X(1016)-JVS(41316)& - &*X(1017)-JVS(41317)*X(1018)-JVS(41318)*X(1019)-JVS(41319)*X(1020)-JVS(41320)*X(1021)-JVS(41321)*X(1022)& - &-JVS(41322)*X(1023)-JVS(41323)*X(1024)-JVS(41324)*X(1025)-JVS(41325)*X(1026)-JVS(41326)*X(1027)-JVS(41327)& - &*X(1028)-JVS(41328)*X(1029)-JVS(41329)*X(1030)-JVS(41330)*X(1031)-JVS(41331)*X(1032)-JVS(41332)*X(1033)& - &-JVS(41333)*X(1034)-JVS(41334)*X(1035)-JVS(41335)*X(1036)-JVS(41336)*X(1037)-JVS(41337)*X(1038)-JVS(41338)& - &*X(1039)-JVS(41339)*X(1040)-JVS(41340)*X(1041)-JVS(41341)*X(1042)-JVS(41342)*X(1043)-JVS(41343)*X(1044)& - &-JVS(41344)*X(1045)-JVS(41345)*X(1046)-JVS(41346)*X(1047)-JVS(41347)*X(1048)-JVS(41348)*X(1049)-JVS(41349)& - &*X(1050)-JVS(41350)*X(1051)-JVS(41351)*X(1052)-JVS(41352)*X(1053)-JVS(41353)*X(1054)-JVS(41354)*X(1055)& - &-JVS(41355)*X(1056)-JVS(41356)*X(1057)-JVS(41357)*X(1058)-JVS(41358)*X(1059)-JVS(41359)*X(1060)-JVS(41360)& - &*X(1061)-JVS(41361)*X(1062)-JVS(41362)*X(1063)-JVS(41363)*X(1064)-JVS(41364)*X(1065)-JVS(41365)*X(1066)& - &-JVS(41366)*X(1067)-JVS(41367)*X(1068)-JVS(41368)*X(1069)-JVS(41369)*X(1070)-JVS(41370)*X(1071)-JVS(41371)& - &*X(1072)-JVS(41372)*X(1073)-JVS(41373)*X(1074)-JVS(41374)*X(1075)-JVS(41375)*X(1076)-JVS(41376)*X(1077)& - &-JVS(41377)*X(1078)-JVS(41378)*X(1079)-JVS(41379)*X(1080)-JVS(41380)*X(1081)-JVS(41381)*X(1082)-JVS(41382)& - &*X(1083)-JVS(41383)*X(1084)-JVS(41384)*X(1085)-JVS(41385)*X(1086)-JVS(41386)*X(1087)-JVS(41387)*X(1088)& - &-JVS(41388)*X(1089)-JVS(41389)*X(1090)-JVS(41390)*X(1091)-JVS(41391)*X(1092)-JVS(41392)*X(1093)-JVS(41393)& - &*X(1094)-JVS(41394)*X(1095)-JVS(41395)*X(1096)-JVS(41396)*X(1097)-JVS(41397)*X(1098)-JVS(41398)*X(1099)& - &-JVS(41399)*X(1100)-JVS(41400)*X(1101)-JVS(41401)*X(1102)-JVS(41402)*X(1103)-JVS(41403)*X(1104)-JVS(41404)& - &*X(1105)-JVS(41405)*X(1106)-JVS(41406)*X(1107)-JVS(41407)*X(1108)-JVS(41408)*X(1109)-JVS(41409)*X(1110)& - &-JVS(41410)*X(1111)-JVS(41411)*X(1112)-JVS(41412)*X(1113)-JVS(41413)*X(1114)-JVS(41414)*X(1115)-JVS(41415)& - &*X(1116)-JVS(41416)*X(1117)-JVS(41417)*X(1118)-JVS(41418)*X(1119)-JVS(41419)*X(1120)-JVS(41420)*X(1121)& - &-JVS(41421)*X(1122)-JVS(41422)*X(1123)-JVS(41423)*X(1124)-JVS(41424)*X(1125)-JVS(41425)*X(1126)-JVS(41426)& - &*X(1127)-JVS(41427)*X(1128)-JVS(41428)*X(1129)-JVS(41429)*X(1130)-JVS(41430)*X(1131)-JVS(41431)*X(1132)& - &-JVS(41432)*X(1133)-JVS(41433)*X(1134)-JVS(41434)*X(1135)-JVS(41435)*X(1136)-JVS(41436)*X(1137)-JVS(41437)& - &*X(1138)-JVS(41438)*X(1139)-JVS(41439)*X(1140)-JVS(41440)*X(1141)-JVS(41441)*X(1142)-JVS(41442)*X(1143)& - &-JVS(41443)*X(1144)-JVS(41444)*X(1145)-JVS(41445)*X(1146)-JVS(41446)*X(1147)-JVS(41447)*X(1148)-JVS(41448)& - &*X(1149)-JVS(41449)*X(1150)-JVS(41450)*X(1151)-JVS(41451)*X(1152)-JVS(41452)*X(1153)-JVS(41453)*X(1154)& - &-JVS(41454)*X(1155)-JVS(41455)*X(1156)-JVS(41456)*X(1157)-JVS(41457)*X(1158)-JVS(41458)*X(1159)-JVS(41459)& - &*X(1160)-JVS(41460)*X(1161)-JVS(41461)*X(1162)-JVS(41462)*X(1163)-JVS(41463)*X(1164)-JVS(41464)*X(1165)& - &-JVS(41465)*X(1166)-JVS(41466)*X(1167)-JVS(41467)*X(1168)-JVS(41468)*X(1169)-JVS(41469)*X(1170)-JVS(41470)& - &*X(1171)-JVS(41471)*X(1172)-JVS(41472)*X(1173)-JVS(41473)*X(1174)-JVS(41474)*X(1175)-JVS(41475)*X(1176)& - &-JVS(41476)*X(1177)-JVS(41477)*X(1178)-JVS(41478)*X(1179)-JVS(41479)*X(1180)-JVS(41480)*X(1181)-JVS(41481)& - &*X(1182)-JVS(41482)*X(1183)-JVS(41483)*X(1184)-JVS(41484)*X(1185)-JVS(41485)*X(1186)-JVS(41486)*X(1187)& - &-JVS(41487)*X(1188)-JVS(41488)*X(1189)-JVS(41489)*X(1190)-JVS(41490)*X(1191)-JVS(41491)*X(1192)-JVS(41492)& - &*X(1193)-JVS(41493)*X(1194)-JVS(41494)*X(1195)-JVS(41495)*X(1196)-JVS(41496)*X(1197)-JVS(41497)*X(1198)& - &-JVS(41498)*X(1199)-JVS(41499)*X(1200)-JVS(41500)*X(1201)-JVS(41501)*X(1202)-JVS(41502)*X(1203)-JVS(41503)& - &*X(1204)-JVS(41504)*X(1205)-JVS(41505)*X(1206)-JVS(41506)*X(1207)-JVS(41507)*X(1208)-JVS(41508)*X(1209)& - &-JVS(41509)*X(1210)-JVS(41510)*X(1211)-JVS(41511)*X(1212)-JVS(41512)*X(1213)-JVS(41513)*X(1214)-JVS(41514)& - &*X(1215)-JVS(41515)*X(1216)-JVS(41516)*X(1217)-JVS(41517)*X(1218)-JVS(41518)*X(1219)-JVS(41519)*X(1220)& - &-JVS(41520)*X(1221)-JVS(41521)*X(1222)-JVS(41522)*X(1223)-JVS(41523)*X(1224)-JVS(41524)*X(1225)-JVS(41525)& - &*X(1226)-JVS(41526)*X(1227)-JVS(41527)*X(1228)-JVS(41528)*X(1229)-JVS(41529)*X(1230)-JVS(41530)*X(1231)& - &-JVS(41531)*X(1232)-JVS(41532)*X(1233)-JVS(41533)*X(1234)-JVS(41534)*X(1235)-JVS(41535)*X(1236)-JVS(41536)& - &*X(1237)-JVS(41537)*X(1238)-JVS(41538)*X(1239)-JVS(41539)*X(1241)-JVS(41540)*X(1242)-JVS(41541)*X(1243)& - &-JVS(41542)*X(1244)-JVS(41543)*X(1245)-JVS(41544)*X(1246)-JVS(41545)*X(1247)-JVS(41546)*X(1248)-JVS(41547)& - &*X(1249)-JVS(41548)*X(1250)-JVS(41549)*X(1251)-JVS(41550)*X(1252)-JVS(41551)*X(1253)-JVS(41552)*X(1254)& - &-JVS(41553)*X(1255)-JVS(41554)*X(1256)-JVS(41555)*X(1257)-JVS(41556)*X(1258)-JVS(41557)*X(1259)-JVS(41558)& - &*X(1260)-JVS(41559)*X(1261)-JVS(41560)*X(1262)-JVS(41561)*X(1263)-JVS(41562)*X(1264)-JVS(41563)*X(1265)& - &-JVS(41564)*X(1266)-JVS(41565)*X(1267)-JVS(41566)*X(1268)-JVS(41567)*X(1269)-JVS(41568)*X(1270)-JVS(41569)& - &*X(1271)-JVS(41570)*X(1272)-JVS(41571)*X(1273)-JVS(41572)*X(1274)-JVS(41573)*X(1275)-JVS(41574)*X(1276)& - &-JVS(41575)*X(1277)-JVS(41576)*X(1278)-JVS(41577)*X(1279)-JVS(41578)*X(1280)-JVS(41579)*X(1281)-JVS(41580)& - &*X(1282)-JVS(41581)*X(1283)-JVS(41582)*X(1284)-JVS(41583)*X(1285)-JVS(41584)*X(1286)-JVS(41585)*X(1287)& - &-JVS(41586)*X(1288)-JVS(41587)*X(1289)-JVS(41588)*X(1290)-JVS(41589)*X(1291)-JVS(41590)*X(1292)-JVS(41591)& - &*X(1293)-JVS(41592)*X(1294)-JVS(41593)*X(1295)-JVS(41594)*X(1296)-JVS(41595)*X(1297)-JVS(41596)*X(1298)& - &-JVS(41597)*X(1299)-JVS(41598)*X(1300)-JVS(41599)*X(1301)-JVS(41600)*X(1302)-JVS(41601)*X(1303)-JVS(41602)& - &*X(1304)-JVS(41603)*X(1305)-JVS(41604)*X(1306)-JVS(41605)*X(1307)-JVS(41606)*X(1308)-JVS(41607)*X(1309)& - &-JVS(41608)*X(1310)-JVS(41609)*X(1311)-JVS(41610)*X(1312)-JVS(41611)*X(1313)-JVS(41612)*X(1314)-JVS(41613)& - &*X(1315)-JVS(41614)*X(1316)-JVS(41615)*X(1317)-JVS(41616)*X(1318)-JVS(41617)*X(1319)-JVS(41618)*X(1320)& - &-JVS(41619)*X(1321)-JVS(41620)*X(1322)-JVS(41621)*X(1323)-JVS(41622)*X(1324)-JVS(41623)*X(1325)-JVS(41624)& - &*X(1326)-JVS(41625)*X(1327)-JVS(41626)*X(1328)-JVS(41627)*X(1329)-JVS(41628)*X(1330)-JVS(41629)*X(1331)& - &-JVS(41630)*X(1332)-JVS(41631)*X(1333)-JVS(41632)*X(1334)-JVS(41633)*X(1335)-JVS(41634)*X(1336)-JVS(41635)& - &*X(1337)-JVS(41636)*X(1338)-JVS(41637)*X(1339)-JVS(41638)*X(1340)-JVS(41639)*X(1341)-JVS(41640)*X(1342)& - &-JVS(41641)*X(1343)-JVS(41642)*X(1344)-JVS(41643)*X(1345)-JVS(41644)*X(1346)-JVS(41645)*X(1347)-JVS(41646)& - &*X(1348)-JVS(41647)*X(1349)-JVS(41648)*X(1350)-JVS(41649)*X(1351)-JVS(41650)*X(1352)-JVS(41651)*X(1353)& - &-JVS(41652)*X(1354)-JVS(41653)*X(1355)-JVS(41654)*X(1356)-JVS(41655)*X(1357)-JVS(41656)*X(1358)-JVS(41657)& - &*X(1359)-JVS(41658)*X(1360)-JVS(41659)*X(1361)-JVS(41660)*X(1362)-JVS(41661)*X(1363)-JVS(41662)*X(1364)& - &-JVS(41663)*X(1365)-JVS(41664)*X(1366)-JVS(41665)*X(1367)-JVS(41666)*X(1368)-JVS(41667)*X(1369)-JVS(41668)& - &*X(1370)-JVS(41669)*X(1371)-JVS(41670)*X(1372)-JVS(41671)*X(1373)-JVS(41672)*X(1374)-JVS(41673)*X(1375)& - &-JVS(41674)*X(1376)-JVS(41675)*X(1377)-JVS(41676)*X(1378)-JVS(41677)*X(1379)-JVS(41678)*X(1380)-JVS(41679)& - &*X(1381)-JVS(41680)*X(1382)-JVS(41681)*X(1383)-JVS(41682)*X(1384)-JVS(41683)*X(1385)-JVS(41684)*X(1386)& - &-JVS(41685)*X(1387)-JVS(41686)*X(1388)-JVS(41687)*X(1389)-JVS(41688)*X(1390)-JVS(41689)*X(1391)-JVS(41690)& - &*X(1392)-JVS(41691)*X(1393)-JVS(41692)*X(1394)-JVS(41693)*X(1395)-JVS(41694)*X(1396)-JVS(41695)*X(1397)& - &-JVS(41696)*X(1398)-JVS(41697)*X(1399)-JVS(41698)*X(1400)-JVS(41699)*X(1401)-JVS(41700)*X(1402)-JVS(41701)& - &*X(1403)-JVS(41702)*X(1404)-JVS(41703)*X(1405)-JVS(41704)*X(1406)-JVS(41705)*X(1407)-JVS(41706)*X(1408)& - &-JVS(41707)*X(1409)-JVS(41708)*X(1410)-JVS(41709)*X(1411)-JVS(41710)*X(1412)-JVS(41711)*X(1413)-JVS(41712)& - &*X(1414)-JVS(41713)*X(1415)-JVS(41714)*X(1416)-JVS(41715)*X(1417)-JVS(41716)*X(1418)-JVS(41717)*X(1419)& - &-JVS(41718)*X(1420)-JVS(41719)*X(1421)-JVS(41720)*X(1422)-JVS(41721)*X(1423)-JVS(41722)*X(1424)-JVS(41723)& - &*X(1425)-JVS(41724)*X(1426)-JVS(41725)*X(1427)-JVS(41726)*X(1428)-JVS(41727)*X(1429)-JVS(41728)*X(1430)& - &-JVS(41729)*X(1431)-JVS(41730)*X(1432)-JVS(41731)*X(1433)-JVS(41732)*X(1434)-JVS(41733)*X(1435)-JVS(41734)& - &*X(1436)-JVS(41735)*X(1437)-JVS(41736)*X(1438)-JVS(41737)*X(1439)-JVS(41738)*X(1440)-JVS(41739)*X(1441)& - &-JVS(41740)*X(1442)-JVS(41741)*X(1443)-JVS(41742)*X(1444)-JVS(41743)*X(1445)-JVS(41744)*X(1446)-JVS(41745)& - &*X(1447)-JVS(41746)*X(1448)-JVS(41747)*X(1449)-JVS(41748)*X(1450)-JVS(41749)*X(1451)-JVS(41750)*X(1452)& - &-JVS(41751)*X(1453)-JVS(41752)*X(1454)-JVS(41753)*X(1455)-JVS(41754)*X(1456)-JVS(41755)*X(1457)-JVS(41756)& - &*X(1458)-JVS(41757)*X(1459)-JVS(41758)*X(1460)-JVS(41759)*X(1461)-JVS(41760)*X(1462)-JVS(41761)*X(1463)& - &-JVS(41762)*X(1464)-JVS(41763)*X(1465)-JVS(41764)*X(1466)-JVS(41765)*X(1467)-JVS(41766)*X(1468)-JVS(41767)& - &*X(1469)-JVS(41768)*X(1470)-JVS(41769)*X(1471)-JVS(41770)*X(1472)-JVS(41771)*X(1473)-JVS(41772)*X(1474)& - &-JVS(41773)*X(1475)-JVS(41774)*X(1476)-JVS(41775)*X(1477)-JVS(41776)*X(1478)-JVS(41777)*X(1479)-JVS(41778)& - &*X(1480)-JVS(41779)*X(1481)-JVS(41780)*X(1482)-JVS(41781)*X(1483)-JVS(41782)*X(1484)-JVS(41783)*X(1485)& - &-JVS(41784)*X(1486)-JVS(41785)*X(1487)-JVS(41786)*X(1488)-JVS(41787)*X(1489)-JVS(41788)*X(1490)-JVS(41789)& - &*X(1491)-JVS(41790)*X(1492)-JVS(41791)*X(1493)-JVS(41792)*X(1494)-JVS(41793)*X(1495)-JVS(41794)*X(1496)& - &-JVS(41795)*X(1497)-JVS(41796)*X(1498)-JVS(41797)*X(1499)-JVS(41798)*X(1500)-JVS(41799)*X(1501)-JVS(41800)& - &*X(1502)-JVS(41801)*X(1503)-JVS(41802)*X(1504)-JVS(41803)*X(1505)-JVS(41804)*X(1506)-JVS(41805)*X(1507)& - &-JVS(41806)*X(1508)-JVS(41807)*X(1509)-JVS(41808)*X(1510)-JVS(41809)*X(1511)-JVS(41810)*X(1512)-JVS(41811)& - &*X(1513)-JVS(41812)*X(1514)-JVS(41813)*X(1515)-JVS(41814)*X(1516)-JVS(41815)*X(1517)-JVS(41816)*X(1518)& - &-JVS(41817)*X(1519)-JVS(41818)*X(1520)-JVS(41819)*X(1521)-JVS(41820)*X(1522)-JVS(41821)*X(1523)-JVS(41822)& - &*X(1524)-JVS(41823)*X(1525)-JVS(41824)*X(1526)-JVS(41825)*X(1527)-JVS(41826)*X(1528)-JVS(41827)*X(1529)& - &-JVS(41828)*X(1530)-JVS(41829)*X(1531)-JVS(41830)*X(1532)-JVS(41831)*X(1533)-JVS(41832)*X(1534)-JVS(41833)& - &*X(1535)-JVS(41834)*X(1536)-JVS(41835)*X(1537)-JVS(41836)*X(1538)-JVS(41837)*X(1539)-JVS(41838)*X(1540)& - &-JVS(41839)*X(1541)-JVS(41840)*X(1542)-JVS(41841)*X(1543)-JVS(41842)*X(1544)-JVS(41843)*X(1545)-JVS(41844)& - &*X(1546)-JVS(41845)*X(1547)-JVS(41846)*X(1548)-JVS(41847)*X(1549)-JVS(41848)*X(1550)-JVS(41849)*X(1551)& - &-JVS(41850)*X(1554)-JVS(41851)*X(1555)-JVS(41852)*X(1557)-JVS(41853)*X(1558)-JVS(41854)*X(1560)-JVS(41855)& - &*X(1561)-JVS(41856)*X(1562)-JVS(41857)*X(1565)-JVS(41858)*X(1566)-JVS(41859)*X(1567)-JVS(41860)*X(1569)& - &-JVS(41861)*X(1570)-JVS(41862)*X(1571)-JVS(41863)*X(1573)-JVS(41864)*X(1575)-JVS(41865)*X(1576)-JVS(41866)& - &*X(1577)-JVS(41867)*X(1578)-JVS(41868)*X(1580)-JVS(41869)*X(1581)-JVS(41870)*X(1582)-JVS(41871)*X(1584)& - &-JVS(41872)*X(1585)-JVS(41873)*X(1586)-JVS(41874)*X(1587)-JVS(41875)*X(1588)-JVS(41876)*X(1589)-JVS(41877)& - &*X(1590)-JVS(41878)*X(1591)-JVS(41879)*X(1594)-JVS(41880)*X(1596)-JVS(41881)*X(1598)-JVS(41882)*X(1599)& - &-JVS(41883)*X(1600)-JVS(41884)*X(1601)-JVS(41885)*X(1602)-JVS(41886)*X(1603)-JVS(41887)*X(1604)-JVS(41888)& - &*X(1609)-JVS(41889)*X(1610)-JVS(41890)*X(1611)-JVS(41891)*X(1612)-JVS(41892)*X(1613)-JVS(41893)*X(1615)& - &-JVS(41894)*X(1618)-JVS(41895)*X(1619)-JVS(41896)*X(1621)-JVS(41897)*X(1623)-JVS(41898)*X(1625)-JVS(41899)& - &*X(1626)-JVS(41900)*X(1628)-JVS(41901)*X(1629)-JVS(41902)*X(1630)-JVS(41903)*X(1632)-JVS(41904)*X(1633)& - &-JVS(41905)*X(1635)-JVS(41906)*X(1636)-JVS(41907)*X(1637)-JVS(41908)*X(1639)-JVS(41909)*X(1641)-JVS(41910)& - &*X(1642)-JVS(41911)*X(1643)-JVS(41912)*X(1644)-JVS(41913)*X(1646)-JVS(41914)*X(1647)-JVS(41915)*X(1648)& - &-JVS(41916)*X(1649)-JVS(41917)*X(1651)-JVS(41918)*X(1653)-JVS(41919)*X(1655)-JVS(41920)*X(1656)-JVS(41921)& - &*X(1657)-JVS(41922)*X(1658)-JVS(41923)*X(1659)-JVS(41924)*X(1660)-JVS(41925)*X(1664)-JVS(41926)*X(1665)& - &-JVS(41927)*X(1666)-JVS(41928)*X(1668)-JVS(41929)*X(1669)-JVS(41930)*X(1670)-JVS(41931)*X(1671)-JVS(41932)& - &*X(1672)-JVS(41933)*X(1673)-JVS(41934)*X(1674)-JVS(41935)*X(1676)-JVS(41936)*X(1678)-JVS(41937)*X(1681)& - &-JVS(41938)*X(1682)-JVS(41939)*X(1683)-JVS(41940)*X(1685)-JVS(41941)*X(1686)-JVS(41942)*X(1687)-JVS(41943)& - &*X(1688)-JVS(41944)*X(1690)-JVS(41945)*X(1693)-JVS(41946)*X(1694)-JVS(41947)*X(1696)-JVS(41948)*X(1697)& - &-JVS(41949)*X(1698)-JVS(41950)*X(1700)-JVS(41951)*X(1701)-JVS(41952)*X(1703)-JVS(41953)*X(1704)-JVS(41954)& - &*X(1705)-JVS(41955)*X(1706)-JVS(41956)*X(1707)-JVS(41957)*X(1708)-JVS(41958)*X(1709)-JVS(41959)*X(1711)& - &-JVS(41960)*X(1712)-JVS(41961)*X(1716)-JVS(41962)*X(1717)-JVS(41963)*X(1718)-JVS(41964)*X(1719)-JVS(41965)& - &*X(1722)-JVS(41966)*X(1726)-JVS(41967)*X(1728)-JVS(41968)*X(1729)-JVS(41969)*X(1730)-JVS(41970)*X(1731)& - &-JVS(41971)*X(1733)-JVS(41972)*X(1734)-JVS(41973)*X(1735)-JVS(41974)*X(1736)-JVS(41975)*X(1738)-JVS(41976)& - &*X(1740)-JVS(41977)*X(1742)-JVS(41978)*X(1744)-JVS(41979)*X(1746)-JVS(41980)*X(1747)-JVS(41981)*X(1749)& - &-JVS(41982)*X(1751)-JVS(41983)*X(1752)-JVS(41984)*X(1753)-JVS(41985)*X(1756)-JVS(41986)*X(1757)-JVS(41987)& - &*X(1758)-JVS(41988)*X(1759)-JVS(41989)*X(1761)-JVS(41990)*X(1762)-JVS(41991)*X(1763)-JVS(41992)*X(1764)& - &-JVS(41993)*X(1765)-JVS(41994)*X(1766)-JVS(41995)*X(1767)-JVS(41996)*X(1768)-JVS(41997)*X(1770)-JVS(41998)& - &*X(1771)-JVS(41999)*X(1772)-JVS(42000)*X(1774)-JVS(42001)*X(1775)-JVS(42002)*X(1776)-JVS(42003)*X(1777)& - &-JVS(42004)*X(1778)-JVS(42005)*X(1779)-JVS(42006)*X(1780)-JVS(42007)*X(1782)-JVS(42008)*X(1783)-JVS(42009)& - &*X(1784)-JVS(42010)*X(1785)-JVS(42011)*X(1786)-JVS(42012)*X(1788)-JVS(42013)*X(1790)-JVS(42014)*X(1791)& - &-JVS(42015)*X(1793)-JVS(42016)*X(1794)-JVS(42017)*X(1795)-JVS(42018)*X(1797)-JVS(42019)*X(1798)-JVS(42020)& - &*X(1800)-JVS(42021)*X(1801)-JVS(42022)*X(1802)-JVS(42023)*X(1804)-JVS(42024)*X(1805)-JVS(42025)*X(1806)& - &-JVS(42026)*X(1807)-JVS(42027)*X(1809)-JVS(42028)*X(1811)-JVS(42029)*X(1813)-JVS(42030)*X(1816)-JVS(42031)& - &*X(1817)-JVS(42032)*X(1819)-JVS(42033)*X(1823)-JVS(42034)*X(1824)-JVS(42035)*X(1826)-JVS(42036)*X(1827)& - &-JVS(42037)*X(1828)-JVS(42038)*X(1829)-JVS(42039)*X(1830)-JVS(42040)*X(1831)-JVS(42041)*X(1832)-JVS(42042)& - &*X(1834)-JVS(42043)*X(1835)-JVS(42044)*X(1836)-JVS(42045)*X(1837)-JVS(42046)*X(1839)-JVS(42047)*X(1840)& - &-JVS(42048)*X(1841)-JVS(42049)*X(1842)-JVS(42050)*X(1843)-JVS(42051)*X(1844)-JVS(42052)*X(1845)-JVS(42053)& - &*X(1846)-JVS(42054)*X(1849)-JVS(42055)*X(1850)-JVS(42056)*X(1851)-JVS(42057)*X(1853)-JVS(42058)*X(1854)& - &-JVS(42059)*X(1855)-JVS(42060)*X(1856)-JVS(42061)*X(1857)-JVS(42062)*X(1858)-JVS(42063)*X(1859)-JVS(42064)& - &*X(1861)-JVS(42065)*X(1862)-JVS(42066)*X(1863)-JVS(42067)*X(1864)-JVS(42068)*X(1868)-JVS(42069)*X(1869)& - &-JVS(42070)*X(1870)-JVS(42071)*X(1871)-JVS(42072)*X(1873)-JVS(42073)*X(1874)-JVS(42074)*X(1875)-JVS(42075)& - &*X(1876)-JVS(42076)*X(1878)-JVS(42077)*X(1879)-JVS(42078)*X(1880)-JVS(42079)*X(1881)-JVS(42080)*X(1883)& - &-JVS(42081)*X(1884)-JVS(42082)*X(1885)-JVS(42083)*X(1886)-JVS(42084)*X(1887)-JVS(42085)*X(1888)-JVS(42086)& - &*X(1889)-JVS(42087)*X(1890)-JVS(42088)*X(1893)-JVS(42089)*X(1894)-JVS(42090)*X(1895)-JVS(42091)*X(1896)& - &-JVS(42092)*X(1897)-JVS(42093)*X(1898)-JVS(42094)*X(1899)-JVS(42095)*X(1900)-JVS(42096)*X(1901)-JVS(42097)& - &*X(1902)-JVS(42098)*X(1904)-JVS(42099)*X(1905)-JVS(42100)*X(1907)-JVS(42101)*X(1908)-JVS(42102)*X(1909)& - &-JVS(42103)*X(1911)-JVS(42104)*X(1912)-JVS(42105)*X(1913)-JVS(42106)*X(1914)-JVS(42107)*X(1915)-JVS(42108)& - &*X(1916)-JVS(42109)*X(1917)-JVS(42110)*X(1918)-JVS(42111)*X(1919)-JVS(42112)*X(1920)-JVS(42113)*X(1921)& - &-JVS(42114)*X(1922)-JVS(42115)*X(1925)-JVS(42116)*X(1926)-JVS(42117)*X(1928)-JVS(42118)*X(1929)-JVS(42119)& - &*X(1930)-JVS(42120)*X(1932)-JVS(42121)*X(1933)-JVS(42122)*X(1934)-JVS(42123)*X(1935)-JVS(42124)*X(1936)& - &-JVS(42125)*X(1937)-JVS(42126)*X(1938)-JVS(42127)*X(1940)-JVS(42128)*X(1941)-JVS(42129)*X(1943)-JVS(42130)& - &*X(1946)-JVS(42131)*X(1947)-JVS(42132)*X(1948)-JVS(42133)*X(1949)-JVS(42134)*X(1950)-JVS(42135)*X(1952)& - &-JVS(42136)*X(1953)-JVS(42137)*X(1954)-JVS(42138)*X(1956)-JVS(42139)*X(1957)-JVS(42140)*X(1958)-JVS(42141)& - &*X(1959)-JVS(42142)*X(1963)-JVS(42143)*X(1964)-JVS(42144)*X(1965)-JVS(42145)*X(1966)-JVS(42146)*X(1967)& - &-JVS(42147)*X(1968)-JVS(42148)*X(1969)-JVS(42149)*X(1970)-JVS(42150)*X(1972)-JVS(42151)*X(1973)-JVS(42152)& - &*X(1974)-JVS(42153)*X(1976)-JVS(42154)*X(1977)-JVS(42155)*X(1978)-JVS(42156)*X(1979)-JVS(42157)*X(1980)& - &-JVS(42158)*X(1981)-JVS(42159)*X(1982)-JVS(42160)*X(1983)-JVS(42161)*X(1985)-JVS(42162)*X(1987)-JVS(42163)& - &*X(1988)-JVS(42164)*X(1990)-JVS(42165)*X(1991)-JVS(42166)*X(1992)-JVS(42167)*X(1993)-JVS(42168)*X(1994)& - &-JVS(42169)*X(1995)-JVS(42170)*X(1996)-JVS(42171)*X(1997)-JVS(42172)*X(1999)-JVS(42173)*X(2001)-JVS(42174)& - &*X(2002)-JVS(42175)*X(2006)-JVS(42176)*X(2007)-JVS(42177)*X(2009)-JVS(42178)*X(2010)-JVS(42179)*X(2011)& - &-JVS(42180)*X(2013)-JVS(42181)*X(2014)-JVS(42182)*X(2016)-JVS(42183)*X(2017)-JVS(42184)*X(2018)-JVS(42185)& - &*X(2019)-JVS(42186)*X(2020)-JVS(42187)*X(2021)-JVS(42188)*X(2022)-JVS(42189)*X(2023)-JVS(42190)*X(2025)& - &-JVS(42191)*X(2026)-JVS(42192)*X(2027)-JVS(42193)*X(2028)-JVS(42194)*X(2032)-JVS(42195)*X(2034)-JVS(42196)& - &*X(2036)-JVS(42197)*X(2037)-JVS(42198)*X(2038)-JVS(42199)*X(2039)-JVS(42200)*X(2040)-JVS(42201)*X(2042)& - &-JVS(42202)*X(2043)-JVS(42203)*X(2044)-JVS(42204)*X(2045)-JVS(42205)*X(2046)-JVS(42206)*X(2047)-JVS(42207)& - &*X(2048)-JVS(42208)*X(2049)-JVS(42209)*X(2051)-JVS(42210)*X(2052)-JVS(42211)*X(2053)-JVS(42212)*X(2054)& - &-JVS(42213)*X(2055)-JVS(42214)*X(2057)-JVS(42215)*X(2058)-JVS(42216)*X(2059)-JVS(42217)*X(2061)-JVS(42218)& - &*X(2062)-JVS(42219)*X(2063)-JVS(42220)*X(2064)-JVS(42221)*X(2065)-JVS(42222)*X(2067)-JVS(42223)*X(2068)& - &-JVS(42224)*X(2069)-JVS(42225)*X(2070)-JVS(42226)*X(2071)-JVS(42227)*X(2072)-JVS(42228)*X(2074)-JVS(42229)& - &*X(2075)-JVS(42230)*X(2077)-JVS(42231)*X(2078)-JVS(42232)*X(2079)-JVS(42233)*X(2080)-JVS(42234)*X(2081)& - &-JVS(42235)*X(2082)-JVS(42236)*X(2083)-JVS(42237)*X(2084)-JVS(42238)*X(2086)-JVS(42239)*X(2087)-JVS(42240)& - &*X(2089)-JVS(42241)*X(2091)-JVS(42242)*X(2092)-JVS(42243)*X(2093)-JVS(42244)*X(2094)-JVS(42245)*X(2095)& - &-JVS(42246)*X(2096)-JVS(42247)*X(2097)-JVS(42248)*X(2098)-JVS(42249)*X(2099)-JVS(42250)*X(2101)-JVS(42251)& - &*X(2102)-JVS(42252)*X(2103)-JVS(42253)*X(2104)-JVS(42254)*X(2105)-JVS(42255)*X(2106)-JVS(42256)*X(2107)& - &-JVS(42257)*X(2108)-JVS(42258)*X(2109)-JVS(42259)*X(2110)-JVS(42260)*X(2111)-JVS(42261)*X(2113)-JVS(42262)& - &*X(2114)-JVS(42263)*X(2115)-JVS(42264)*X(2116)-JVS(42265)*X(2118)-JVS(42266)*X(2119)-JVS(42267)*X(2120)& - &-JVS(42268)*X(2121)-JVS(42269)*X(2123)-JVS(42270)*X(2124)-JVS(42271)*X(2125)-JVS(42272)*X(2126)-JVS(42273)& - &*X(2127)-JVS(42274)*X(2128)-JVS(42275)*X(2129)-JVS(42276)*X(2131)-JVS(42277)*X(2132)-JVS(42278)*X(2133)& - &-JVS(42279)*X(2134)-JVS(42280)*X(2135)-JVS(42281)*X(2136)-JVS(42282)*X(2137)-JVS(42283)*X(2138)-JVS(42284)& - &*X(2139)-JVS(42285)*X(2140)-JVS(42286)*X(2141)-JVS(42287)*X(2142)-JVS(42288)*X(2143)-JVS(42289)*X(2144)& - &-JVS(42290)*X(2146)-JVS(42291)*X(2147)-JVS(42292)*X(2148)-JVS(42293)*X(2149)-JVS(42294)*X(2150)-JVS(42295)& - &*X(2151)-JVS(42296)*X(2152)-JVS(42297)*X(2153)-JVS(42298)*X(2154)-JVS(42299)*X(2155)-JVS(42300)*X(2156)& - &-JVS(42301)*X(2157)-JVS(42302)*X(2159)-JVS(42303)*X(2160)-JVS(42304)*X(2161)-JVS(42305)*X(2164)-JVS(42306)& - &*X(2165)-JVS(42307)*X(2166)-JVS(42308)*X(2167)-JVS(42309)*X(2168)-JVS(42310)*X(2169)-JVS(42311)*X(2171)& - &-JVS(42312)*X(2172)-JVS(42313)*X(2174)-JVS(42314)*X(2175)-JVS(42315)*X(2176)-JVS(42316)*X(2177)-JVS(42317)& - &*X(2178)-JVS(42318)*X(2179)-JVS(42319)*X(2180)-JVS(42320)*X(2181)-JVS(42321)*X(2182)-JVS(42322)*X(2183)& - &-JVS(42323)*X(2184)-JVS(42324)*X(2185)-JVS(42325)*X(2187)-JVS(42326)*X(2188)-JVS(42327)*X(2189)-JVS(42328)& - &*X(2191)-JVS(42329)*X(2192)-JVS(42330)*X(2193)-JVS(42331)*X(2194)-JVS(42332)*X(2195)-JVS(42333)*X(2196)& - &-JVS(42334)*X(2197)-JVS(42335)*X(2198)-JVS(42336)*X(2199)-JVS(42337)*X(2202)-JVS(42338)*X(2204)-JVS(42339)& - &*X(2205)-JVS(42340)*X(2206)-JVS(42341)*X(2208)-JVS(42342)*X(2209)-JVS(42343)*X(2211)-JVS(42344)*X(2212)& - &-JVS(42345)*X(2213)-JVS(42346)*X(2214)-JVS(42347)*X(2215)-JVS(42348)*X(2216)-JVS(42349)*X(2217)-JVS(42350)& - &*X(2218)-JVS(42351)*X(2219)-JVS(42352)*X(2220)-JVS(42353)*X(2221)-JVS(42354)*X(2222)-JVS(42355)*X(2223)& - &-JVS(42356)*X(2224)-JVS(42357)*X(2225)-JVS(42358)*X(2227)-JVS(42359)*X(2228)-JVS(42360)*X(2230)-JVS(42361)& - &*X(2231)-JVS(42362)*X(2232)-JVS(42363)*X(2233)-JVS(42364)*X(2235)-JVS(42365)*X(2236)-JVS(42366)*X(2237)& - &-JVS(42367)*X(2239)-JVS(42368)*X(2240)-JVS(42369)*X(2241)-JVS(42370)*X(2242)-JVS(42371)*X(2243)-JVS(42372)& - &*X(2244)-JVS(42373)*X(2245)-JVS(42374)*X(2246)-JVS(42375)*X(2247)-JVS(42376)*X(2248)-JVS(42377)*X(2249)& - &-JVS(42378)*X(2250)-JVS(42379)*X(2251)-JVS(42380)*X(2252)-JVS(42381)*X(2253)-JVS(42382)*X(2254)-JVS(42383)& - &*X(2255)-JVS(42384)*X(2256)-JVS(42385)*X(2257)-JVS(42386)*X(2258)-JVS(42387)*X(2259)-JVS(42388)*X(2260)& - &-JVS(42389)*X(2261)-JVS(42390)*X(2262)-JVS(42391)*X(2263)-JVS(42392)*X(2264)-JVS(42393)*X(2265)-JVS(42394)& - &*X(2266)-JVS(42395)*X(2267)-JVS(42396)*X(2268)-JVS(42397)*X(2269)-JVS(42398)*X(2270)-JVS(42399)*X(2271)& - &-JVS(42400)*X(2272)-JVS(42401)*X(2273)-JVS(42402)*X(2274)-JVS(42403)*X(2275)-JVS(42404)*X(2276)-JVS(42405)& - &*X(2277)-JVS(42406)*X(2278)-JVS(42407)*X(2280)-JVS(42408)*X(2281)-JVS(42409)*X(2282)-JVS(42410)*X(2283)& - &-JVS(42411)*X(2285)-JVS(42412)*X(2286)-JVS(42413)*X(2288)-JVS(42414)*X(2289)-JVS(42415)*X(2290)-JVS(42416)& - &*X(2291)-JVS(42417)*X(2292)-JVS(42418)*X(2294)-JVS(42419)*X(2295)-JVS(42420)*X(2296)-JVS(42421)*X(2297)& - &-JVS(42422)*X(2298)-JVS(42423)*X(2299)-JVS(42424)*X(2300)-JVS(42425)*X(2301)-JVS(42426)*X(2302)-JVS(42427)& - &*X(2303)-JVS(42428)*X(2305)-JVS(42429)*X(2306)-JVS(42430)*X(2307)-JVS(42431)*X(2309)-JVS(42432)*X(2310)& - &-JVS(42433)*X(2311)-JVS(42434)*X(2312)-JVS(42435)*X(2313)-JVS(42436)*X(2314)-JVS(42437)*X(2315)-JVS(42438)& - &*X(2316)-JVS(42439)*X(2317)-JVS(42440)*X(2318)-JVS(42441)*X(2319)-JVS(42442)*X(2320)-JVS(42443)*X(2321)& - &-JVS(42444)*X(2325)-JVS(42445)*X(2327)-JVS(42446)*X(2328)-JVS(42447)*X(2329)-JVS(42448)*X(2330)-JVS(42449)& - &*X(2331)-JVS(42450)*X(2332)-JVS(42451)*X(2333)-JVS(42452)*X(2335)-JVS(42453)*X(2336)-JVS(42454)*X(2337)& - &-JVS(42455)*X(2338)-JVS(42456)*X(2339)-JVS(42457)*X(2340)-JVS(42458)*X(2341)-JVS(42459)*X(2342)-JVS(42460)& - &*X(2343)-JVS(42461)*X(2344)-JVS(42462)*X(2345)-JVS(42463)*X(2346)-JVS(42464)*X(2347)-JVS(42465)*X(2348)& - &-JVS(42466)*X(2349)-JVS(42467)*X(2350)-JVS(42468)*X(2351)-JVS(42469)*X(2352)-JVS(42470)*X(2353)-JVS(42471)& - &*X(2354)-JVS(42472)*X(2355)-JVS(42473)*X(2357)-JVS(42474)*X(2358)-JVS(42475)*X(2359)-JVS(42476)*X(2360)& - &-JVS(42477)*X(2362)-JVS(42478)*X(2363)-JVS(42479)*X(2364)-JVS(42480)*X(2365)-JVS(42481)*X(2366)-JVS(42482)& - &*X(2367)-JVS(42483)*X(2368)-JVS(42484)*X(2369)-JVS(42485)*X(2370)-JVS(42486)*X(2371)-JVS(42487)*X(2372)& - &-JVS(42488)*X(2373)-JVS(42489)*X(2375)-JVS(42490)*X(2377)-JVS(42491)*X(2378)-JVS(42492)*X(2379)-JVS(42493)& - &*X(2380)-JVS(42494)*X(2381)-JVS(42495)*X(2382)-JVS(42496)*X(2383)-JVS(42497)*X(2384)-JVS(42498)*X(2385)& - &-JVS(42499)*X(2386)-JVS(42500)*X(2387)-JVS(42501)*X(2388)-JVS(42502)*X(2389)-JVS(42503)*X(2390)-JVS(42504)& - &*X(2391)-JVS(42505)*X(2392)-JVS(42506)*X(2393)-JVS(42507)*X(2394)-JVS(42508)*X(2395)-JVS(42509)*X(2396)& - &-JVS(42510)*X(2397)-JVS(42511)*X(2398)-JVS(42512)*X(2400)-JVS(42513)*X(2401)-JVS(42514)*X(2402)-JVS(42515)& - &*X(2403)-JVS(42516)*X(2404)-JVS(42517)*X(2405)-JVS(42518)*X(2406)-JVS(42519)*X(2407)-JVS(42520)*X(2408)& - &-JVS(42521)*X(2409)-JVS(42522)*X(2410)-JVS(42523)*X(2411)-JVS(42524)*X(2412)-JVS(42525)*X(2413)-JVS(42526)& - &*X(2414)-JVS(42527)*X(2416)-JVS(42528)*X(2417)-JVS(42529)*X(2418)-JVS(42530)*X(2419)-JVS(42531)*X(2420)& - &-JVS(42532)*X(2421)-JVS(42533)*X(2422)-JVS(42534)*X(2423)-JVS(42535)*X(2424)-JVS(42536)*X(2425)-JVS(42537)& - &*X(2426)-JVS(42538)*X(2427)-JVS(42539)*X(2428)-JVS(42540)*X(2429)-JVS(42541)*X(2431)-JVS(42542)*X(2432)& - &-JVS(42543)*X(2433)-JVS(42544)*X(2434)-JVS(42545)*X(2435)-JVS(42546)*X(2436)-JVS(42547)*X(2437)-JVS(42548)& - &*X(2438)-JVS(42549)*X(2439)-JVS(42550)*X(2440)-JVS(42551)*X(2441)-JVS(42552)*X(2442)-JVS(42553)*X(2443)& - &-JVS(42554)*X(2444)-JVS(42555)*X(2445)-JVS(42556)*X(2446)-JVS(42557)*X(2447)-JVS(42558)*X(2448)-JVS(42559)& - &*X(2449)-JVS(42560)*X(2450)-JVS(42561)*X(2451)-JVS(42562)*X(2453)-JVS(42563)*X(2454)-JVS(42564)*X(2455)& - &-JVS(42565)*X(2456)-JVS(42566)*X(2458)-JVS(42567)*X(2459)-JVS(42568)*X(2460)-JVS(42569)*X(2461)-JVS(42570)& - &*X(2462)-JVS(42571)*X(2463)-JVS(42572)*X(2464)-JVS(42573)*X(2466)-JVS(42574)*X(2467)-JVS(42575)*X(2468)& - &-JVS(42576)*X(2469)-JVS(42577)*X(2470)-JVS(42578)*X(2471)-JVS(42579)*X(2472)-JVS(42580)*X(2474)-JVS(42581)& - &*X(2475)-JVS(42582)*X(2476)-JVS(42583)*X(2477)-JVS(42584)*X(2478)-JVS(42585)*X(2479)-JVS(42586)*X(2480)& - &-JVS(42587)*X(2481)-JVS(42588)*X(2482)-JVS(42589)*X(2483)-JVS(42590)*X(2484)-JVS(42591)*X(2485)-JVS(42592)& - &*X(2486)-JVS(42593)*X(2487)-JVS(42594)*X(2488)-JVS(42595)*X(2489)-JVS(42596)*X(2491)-JVS(42597)*X(2494)& - &-JVS(42598)*X(2496)-JVS(42599)*X(2497)-JVS(42600)*X(2498)-JVS(42601)*X(2499)-JVS(42602)*X(2500)-JVS(42603)& - &*X(2501)-JVS(42604)*X(2503)-JVS(42605)*X(2504)-JVS(42606)*X(2505)-JVS(42607)*X(2507)-JVS(42608)*X(2509)& - &-JVS(42609)*X(2510)-JVS(42610)*X(2511)-JVS(42611)*X(2513)-JVS(42612)*X(2514)-JVS(42613)*X(2515)-JVS(42614)& - &*X(2517)-JVS(42615)*X(2518)-JVS(42616)*X(2519)-JVS(42617)*X(2520)-JVS(42618)*X(2522)-JVS(42619)*X(2523)& - &-JVS(42620)*X(2524)-JVS(42621)*X(2525)-JVS(42622)*X(2527)-JVS(42623)*X(2529)-JVS(42624)*X(2530)-JVS(42625)& - &*X(2531)-JVS(42626)*X(2532)-JVS(42627)*X(2533)-JVS(42628)*X(2534)-JVS(42629)*X(2537)-JVS(42630)*X(2538)& - &-JVS(42631)*X(2540)-JVS(42632)*X(2541)-JVS(42633)*X(2542)-JVS(42634)*X(2543)-JVS(42635)*X(2544)-JVS(42636)& - &*X(2546)-JVS(42637)*X(2547)-JVS(42638)*X(2548)-JVS(42639)*X(2552)-JVS(42640)*X(2553)-JVS(42641)*X(2554)& - &-JVS(42642)*X(2555)-JVS(42643)*X(2556)-JVS(42644)*X(2558)-JVS(42645)*X(2559)-JVS(42646)*X(2560)-JVS(42647)& - &*X(2564)-JVS(42648)*X(2565)-JVS(42649)*X(2567)-JVS(42650)*X(2568)-JVS(42651)*X(2569)-JVS(42652)*X(2570)& - &-JVS(42653)*X(2571)-JVS(42654)*X(2572)-JVS(42655)*X(2573)-JVS(42656)*X(2574)-JVS(42657)*X(2576)-JVS(42658)& - &*X(2579)-JVS(42659)*X(2580)-JVS(42660)*X(2582)-JVS(42661)*X(2583)-JVS(42662)*X(2584)-JVS(42663)*X(2585)& - &-JVS(42664)*X(2587)-JVS(42665)*X(2590)-JVS(42666)*X(2593)-JVS(42667)*X(2597)-JVS(42668)*X(2600)-JVS(42669)& - &*X(2601)-JVS(42670)*X(2602)-JVS(42671)*X(2603)-JVS(42672)*X(2605)-JVS(42673)*X(2606)-JVS(42674)*X(2608)& - &-JVS(42675)*X(2609)-JVS(42676)*X(2610)-JVS(42677)*X(2611)-JVS(42678)*X(2612)-JVS(42679)*X(2613)-JVS(42680)& - &*X(2615)-JVS(42681)*X(2616)-JVS(42682)*X(2617)-JVS(42683)*X(2618)-JVS(42684)*X(2619)-JVS(42685)*X(2620)& - &-JVS(42686)*X(2621)-JVS(42687)*X(2622)-JVS(42688)*X(2624)-JVS(42689)*X(2625)-JVS(42690)*X(2626)-JVS(42691)& - &*X(2627)-JVS(42692)*X(2628)-JVS(42693)*X(2629)-JVS(42694)*X(2630)-JVS(42695)*X(2631)-JVS(42696)*X(2632)& - &-JVS(42697)*X(2633)-JVS(42698)*X(2635)-JVS(42699)*X(2636)-JVS(42700)*X(2637)-JVS(42701)*X(2640)-JVS(42702)& - &*X(2643)-JVS(42703)*X(2645)-JVS(42704)*X(2648)-JVS(42705)*X(2649)-JVS(42706)*X(2650)-JVS(42707)*X(2651)& - &-JVS(42708)*X(2652)-JVS(42709)*X(2653)-JVS(42710)*X(2654)-JVS(42711)*X(2655)-JVS(42712)*X(2656)-JVS(42713)& - &*X(2657)-JVS(42714)*X(2658)-JVS(42715)*X(2660)-JVS(42716)*X(2661)-JVS(42717)*X(2663)-JVS(42718)*X(2664)& - &-JVS(42719)*X(2665)-JVS(42720)*X(2666)-JVS(42721)*X(2669)-JVS(42722)*X(2670)-JVS(42723)*X(2671)-JVS(42724)& - &*X(2672)-JVS(42725)*X(2673)-JVS(42726)*X(2674)-JVS(42727)*X(2675)-JVS(42728)*X(2677)-JVS(42729)*X(2678)& - &-JVS(42730)*X(2680)-JVS(42731)*X(2681)-JVS(42732)*X(2683)-JVS(42733)*X(2684)-JVS(42734)*X(2685)-JVS(42735)& - &*X(2686)-JVS(42736)*X(2687)-JVS(42737)*X(2688)-JVS(42738)*X(2689)-JVS(42739)*X(2690)-JVS(42740)*X(2691)& - &-JVS(42741)*X(2693)-JVS(42742)*X(2695)-JVS(42743)*X(2696)-JVS(42744)*X(2698)-JVS(42745)*X(2700)-JVS(42746)& - &*X(2701)-JVS(42747)*X(2702)-JVS(42748)*X(2703)-JVS(42749)*X(2704)-JVS(42750)*X(2705)-JVS(42751)*X(2708)& - &-JVS(42752)*X(2709)-JVS(42753)*X(2711)-JVS(42754)*X(2712)-JVS(42755)*X(2713)-JVS(42756)*X(2714)-JVS(42757)& - &*X(2715)-JVS(42758)*X(2716)-JVS(42759)*X(2718)-JVS(42760)*X(2719)-JVS(42761)*X(2721)-JVS(42762)*X(2723)& - &-JVS(42763)*X(2725)-JVS(42764)*X(2726)-JVS(42765)*X(2727)-JVS(42766)*X(2729)-JVS(42767)*X(2730)-JVS(42768)& - &*X(2735)-JVS(42769)*X(2737)-JVS(42770)*X(2738)-JVS(42771)*X(2740)-JVS(42772)*X(2742)-JVS(42773)*X(2743)& - &-JVS(42774)*X(2748)-JVS(42775)*X(2753)-JVS(42776)*X(2754)-JVS(42777)*X(2755)-JVS(42778)*X(2756)-JVS(42779)& - &*X(2757)-JVS(42780)*X(2759)-JVS(42781)*X(2761)-JVS(42782)*X(2763)-JVS(42783)*X(2764)-JVS(42784)*X(2765)& - &-JVS(42785)*X(2766)-JVS(42786)*X(2769)-JVS(42787)*X(2772)-JVS(42788)*X(2773)-JVS(42789)*X(2774)-JVS(42790)& - &*X(2775)-JVS(42791)*X(2777)-JVS(42792)*X(2778)-JVS(42793)*X(2779)-JVS(42794)*X(2780)-JVS(42795)*X(2781)& - &-JVS(42796)*X(2782)-JVS(42797)*X(2783)-JVS(42798)*X(2784)-JVS(42799)*X(2785)-JVS(42800)*X(2786)-JVS(42801)& - &*X(2787)-JVS(42802)*X(2790)-JVS(42803)*X(2791)-JVS(42804)*X(2792)-JVS(42805)*X(2793)-JVS(42806)*X(2794)& - &-JVS(42807)*X(2796)-JVS(42808)*X(2797)-JVS(42809)*X(2799)-JVS(42810)*X(2800)-JVS(42811)*X(2801)-JVS(42812)& - &*X(2802)-JVS(42813)*X(2803)-JVS(42814)*X(2804)-JVS(42815)*X(2805)-JVS(42816)*X(2808)-JVS(42817)*X(2809)& - &-JVS(42818)*X(2810)-JVS(42819)*X(2811)-JVS(42820)*X(2812)-JVS(42821)*X(2813)-JVS(42822)*X(2814)-JVS(42823)& - &*X(2815)-JVS(42824)*X(2817)-JVS(42825)*X(2822)-JVS(42826)*X(2823)-JVS(42827)*X(2824)-JVS(42828)*X(2825)& - &-JVS(42829)*X(2828)-JVS(42830)*X(2829)-JVS(42831)*X(2830)-JVS(42832)*X(2833)-JVS(42833)*X(2834)-JVS(42834)& - &*X(2835)-JVS(42835)*X(2836)-JVS(42836)*X(2838)-JVS(42837)*X(2839)-JVS(42838)*X(2841)-JVS(42839)*X(2842)& - &-JVS(42840)*X(2843)-JVS(42841)*X(2844)-JVS(42842)*X(2845)-JVS(42843)*X(2846)-JVS(42844)*X(2848)-JVS(42845)& - &*X(2850)-JVS(42846)*X(2852)-JVS(42847)*X(2854)-JVS(42848)*X(2855)-JVS(42849)*X(2856)-JVS(42850)*X(2857)& - &-JVS(42851)*X(2859)-JVS(42852)*X(2860)-JVS(42853)*X(2862)-JVS(42854)*X(2863)-JVS(42855)*X(2864)-JVS(42856)& - &*X(2866)-JVS(42857)*X(2867)-JVS(42858)*X(2868)-JVS(42859)*X(2870)-JVS(42860)*X(2871)-JVS(42861)*X(2872)& - &-JVS(42862)*X(2873)-JVS(42863)*X(2875)-JVS(42864)*X(2876)-JVS(42865)*X(2877)-JVS(42866)*X(2878)-JVS(42867)& - &*X(2879)-JVS(42868)*X(2880)-JVS(42869)*X(2882)-JVS(42870)*X(2883)-JVS(42871)*X(2884)-JVS(42872)*X(2885)& - &-JVS(42873)*X(2886)-JVS(42874)*X(2887)-JVS(42875)*X(2888)-JVS(42876)*X(2892)-JVS(42877)*X(2893)-JVS(42878)& - &*X(2895)-JVS(42879)*X(2896)-JVS(42880)*X(2898)-JVS(42881)*X(2899)-JVS(42882)*X(2900)-JVS(42883)*X(2901)& - &-JVS(42884)*X(2904)-JVS(42885)*X(2907)-JVS(42886)*X(2908)-JVS(42887)*X(2909)-JVS(42888)*X(2910)-JVS(42889)& - &*X(2911)-JVS(42890)*X(2913)-JVS(42891)*X(2914)-JVS(42892)*X(2915)-JVS(42893)*X(2917)-JVS(42894)*X(2920)& - &-JVS(42895)*X(2921)-JVS(42896)*X(2923)-JVS(42897)*X(2924)-JVS(42898)*X(2925)-JVS(42899)*X(2927)-JVS(42900)& - &*X(2928)-JVS(42901)*X(2929)-JVS(42902)*X(2930)-JVS(42903)*X(2932)-JVS(42904)*X(2934)-JVS(42905)*X(2936)& - &-JVS(42906)*X(2938)-JVS(42907)*X(2940)-JVS(42908)*X(2941)-JVS(42909)*X(2942)-JVS(42910)*X(2943)-JVS(42911)& - &*X(2945)-JVS(42912)*X(2947)-JVS(42913)*X(2948)-JVS(42914)*X(2950)-JVS(42915)*X(2951)-JVS(42916)*X(2955)& - &-JVS(42917)*X(2956)-JVS(42918)*X(2957)-JVS(42919)*X(2958)-JVS(42920)*X(2964)-JVS(42921)*X(2965)-JVS(42922)& - &*X(2966)-JVS(42923)*X(2969)-JVS(42924)*X(2970)-JVS(42925)*X(2971)-JVS(42926)*X(2973)-JVS(42927)*X(2975)& - &-JVS(42928)*X(2976)-JVS(42929)*X(2977)-JVS(42930)*X(2978)-JVS(42931)*X(2979)-JVS(42932)*X(2980)-JVS(42933)& - &*X(2981)-JVS(42934)*X(2984)-JVS(42935)*X(2985)-JVS(42936)*X(2987)-JVS(42937)*X(2988)-JVS(42938)*X(2991)& - &-JVS(42939)*X(2993)-JVS(42940)*X(2998)-JVS(42941)*X(2999)-JVS(42942)*X(3003)-JVS(42943)*X(3005)-JVS(42944)& - &*X(3006)-JVS(42945)*X(3007)-JVS(42946)*X(3008)-JVS(42947)*X(3010)-JVS(42948)*X(3011)-JVS(42949)*X(3012)& - &-JVS(42950)*X(3014)-JVS(42951)*X(3015)-JVS(42952)*X(3017)-JVS(42953)*X(3018)-JVS(42954)*X(3019)-JVS(42955)& - &*X(3020)-JVS(42956)*X(3021)-JVS(42957)*X(3022)-JVS(42958)*X(3023)-JVS(42959)*X(3024)-JVS(42960)*X(3025)& - &-JVS(42961)*X(3026)-JVS(42962)*X(3029)-JVS(42963)*X(3031)-JVS(42964)*X(3033)-JVS(42965)*X(3034)-JVS(42966)& - &*X(3035)-JVS(42967)*X(3038)-JVS(42968)*X(3040)-JVS(42969)*X(3042)-JVS(42970)*X(3043)-JVS(42971)*X(3044)& - &-JVS(42972)*X(3045)-JVS(42973)*X(3046)-JVS(42974)*X(3047)-JVS(42975)*X(3049)-JVS(42976)*X(3051)-JVS(42977)& - &*X(3052)-JVS(42978)*X(3053)-JVS(42979)*X(3055)-JVS(42980)*X(3056)-JVS(42981)*X(3057)-JVS(42982)*X(3059)& - &-JVS(42983)*X(3060)-JVS(42984)*X(3061)-JVS(42985)*X(3063)-JVS(42986)*X(3068)-JVS(42987)*X(3070)-JVS(42988)& - &*X(3075)-JVS(42989)*X(3076)-JVS(42990)*X(3077)-JVS(42991)*X(3078)-JVS(42992)*X(3081)-JVS(42993)*X(3082)& - &-JVS(42994)*X(3083)-JVS(42995)*X(3084)-JVS(42996)*X(3085)-JVS(42997)*X(3086)-JVS(42998)*X(3087)-JVS(42999)& - &*X(3088)-JVS(43000)*X(3089)-JVS(43001)*X(3090)-JVS(43002)*X(3091)-JVS(43003)*X(3092)-JVS(43004)*X(3093)& - &-JVS(43005)*X(3095)-JVS(43006)*X(3096)-JVS(43007)*X(3097)-JVS(43008)*X(3098)-JVS(43009)*X(3099)-JVS(43010)& - &*X(3100)-JVS(43011)*X(3101)-JVS(43012)*X(3102)-JVS(43013)*X(3103)-JVS(43014)*X(3105)-JVS(43015)*X(3106)& - &-JVS(43016)*X(3107)-JVS(43017)*X(3108)-JVS(43018)*X(3109)-JVS(43019)*X(3110)-JVS(43020)*X(3111)-JVS(43021)& - &*X(3112)-JVS(43022)*X(3113)-JVS(43023)*X(3114)-JVS(43024)*X(3115)-JVS(43025)*X(3116)-JVS(43026)*X(3117)& - &-JVS(43027)*X(3118)-JVS(43028)*X(3119)-JVS(43029)*X(3120)-JVS(43030)*X(3121)-JVS(43031)*X(3122)-JVS(43032)& - &*X(3123)-JVS(43033)*X(3124)-JVS(43034)*X(3125)-JVS(43035)*X(3126)-JVS(43036)*X(3127)-JVS(43037)*X(3128)& - &-JVS(43038)*X(3129)-JVS(43039)*X(3130)-JVS(43040)*X(3131)-JVS(43041)*X(3132)-JVS(43042)*X(3133)-JVS(43043)& - &*X(3134)-JVS(43044)*X(3135)-JVS(43045)*X(3136)-JVS(43046)*X(3137)-JVS(43047)*X(3138)-JVS(43048)*X(3139)& - &-JVS(43049)*X(3140)-JVS(43050)*X(3141)-JVS(43051)*X(3142)-JVS(43052)*X(3143)-JVS(43053)*X(3144)-JVS(43054)& - &*X(3145)-JVS(43055)*X(3146)-JVS(43056)*X(3147)-JVS(43057)*X(3148)-JVS(43058)*X(3149)-JVS(43059)*X(3150)& - &-JVS(43060)*X(3151)-JVS(43061)*X(3152)-JVS(43062)*X(3153)-JVS(43063)*X(3154)-JVS(43064)*X(3155)-JVS(43065)& - &*X(3156)-JVS(43066)*X(3157)-JVS(43067)*X(3158)-JVS(43068)*X(3159)-JVS(43069)*X(3160)-JVS(43070)*X(3161)& - &-JVS(43071)*X(3162)-JVS(43072)*X(3163)-JVS(43073)*X(3164)-JVS(43074)*X(3165)-JVS(43075)*X(3166)-JVS(43076)& - &*X(3167)-JVS(43077)*X(3168)-JVS(43078)*X(3169)-JVS(43079)*X(3170)-JVS(43080)*X(3171)-JVS(43081)*X(3172)& - &-JVS(43082)*X(3173)-JVS(43083)*X(3174)-JVS(43084)*X(3175)-JVS(43085)*X(3176)-JVS(43086)*X(3177)-JVS(43087)& - &*X(3178)-JVS(43088)*X(3179)-JVS(43089)*X(3180)-JVS(43090)*X(3181)-JVS(43091)*X(3182)-JVS(43092)*X(3183)& - &-JVS(43093)*X(3184)-JVS(43094)*X(3185)-JVS(43095)*X(3186)-JVS(43096)*X(3187)-JVS(43097)*X(3188)-JVS(43098)& - &*X(3189)-JVS(43099)*X(3190)-JVS(43100)*X(3191)-JVS(43101)*X(3192)-JVS(43102)*X(3193)-JVS(43103)*X(3196)& - &-JVS(43104)*X(3197)-JVS(43105)*X(3198)-JVS(43106)*X(3199)-JVS(43107)*X(3200)-JVS(43108)*X(3201)-JVS(43109)& - &*X(3202)-JVS(43110)*X(3203)-JVS(43111)*X(3204)-JVS(43112)*X(3205)-JVS(43113)*X(3206)-JVS(43114)*X(3207)& - &-JVS(43115)*X(3208)-JVS(43116)*X(3209)-JVS(43117)*X(3210)-JVS(43118)*X(3211)-JVS(43119)*X(3212)-JVS(43120)& - &*X(3213)-JVS(43121)*X(3214)-JVS(43122)*X(3216)-JVS(43123)*X(3217)-JVS(43124)*X(3218)-JVS(43125)*X(3219)& - &-JVS(43126)*X(3220)-JVS(43127)*X(3221)-JVS(43128)*X(3222)-JVS(43129)*X(3223)-JVS(43130)*X(3224)-JVS(43131)& - &*X(3225)-JVS(43132)*X(3226)-JVS(43133)*X(3227)-JVS(43134)*X(3228)-JVS(43135)*X(3229)-JVS(43136)*X(3230)& - &-JVS(43137)*X(3231)-JVS(43138)*X(3232)-JVS(43139)*X(3233)-JVS(43140)*X(3235)-JVS(43141)*X(3236)-JVS(43142)& - &*X(3237)-JVS(43143)*X(3238)-JVS(43144)*X(3239)-JVS(43145)*X(3240)-JVS(43146)*X(3242)-JVS(43147)*X(3243)& - &-JVS(43148)*X(3244)-JVS(43149)*X(3245)-JVS(43150)*X(3247)-JVS(43151)*X(3248)-JVS(43152)*X(3249)-JVS(43153)& - &*X(3250)-JVS(43154)*X(3251)-JVS(43155)*X(3253)-JVS(43156)*X(3254)-JVS(43157)*X(3256)-JVS(43158)*X(3257)& - &-JVS(43159)*X(3258)-JVS(43160)*X(3259)-JVS(43161)*X(3260)-JVS(43162)*X(3261)-JVS(43163)*X(3262)-JVS(43164)& - &*X(3263)-JVS(43165)*X(3264)-JVS(43166)*X(3265)-JVS(43167)*X(3266)-JVS(43168)*X(3267)-JVS(43169)*X(3270)& - &-JVS(43170)*X(3271)-JVS(43171)*X(3272)-JVS(43172)*X(3273)-JVS(43173)*X(3274)-JVS(43174)*X(3275)-JVS(43175)& - &*X(3276)-JVS(43176)*X(3277)-JVS(43177)*X(3278)-JVS(43178)*X(3279)-JVS(43179)*X(3280)-JVS(43180)*X(3282)& - &-JVS(43181)*X(3285)-JVS(43182)*X(3286)-JVS(43183)*X(3287)-JVS(43184)*X(3288)-JVS(43185)*X(3289)-JVS(43186)& - &*X(3290)-JVS(43187)*X(3291)-JVS(43188)*X(3292)-JVS(43189)*X(3293)-JVS(43190)*X(3294)-JVS(43191)*X(3295)& - &-JVS(43192)*X(3297)-JVS(43193)*X(3298)-JVS(43194)*X(3299)-JVS(43195)*X(3300)-JVS(43196)*X(3302)-JVS(43197)& - &*X(3303)-JVS(43198)*X(3304)-JVS(43199)*X(3305)-JVS(43200)*X(3306)-JVS(43201)*X(3307)-JVS(43202)*X(3308)& - &-JVS(43203)*X(3309)-JVS(43204)*X(3310)-JVS(43205)*X(3311)-JVS(43206)*X(3312)-JVS(43207)*X(3313)-JVS(43208)& - &*X(3314)-JVS(43209)*X(3315)-JVS(43210)*X(3316)-JVS(43211)*X(3317)-JVS(43212)*X(3318)-JVS(43213)*X(3319)& - &-JVS(43214)*X(3320)-JVS(43215)*X(3321)-JVS(43216)*X(3322)-JVS(43217)*X(3323)-JVS(43218)*X(3324)-JVS(43219)& - &*X(3325)-JVS(43220)*X(3326)-JVS(43221)*X(3327)-JVS(43222)*X(3328)-JVS(43223)*X(3330)-JVS(43224)*X(3331)& - &-JVS(43225)*X(3334)-JVS(43226)*X(3335)-JVS(43227)*X(3336)-JVS(43228)*X(3337)-JVS(43229)*X(3338)-JVS(43230)& - &*X(3339)-JVS(43231)*X(3340)-JVS(43232)*X(3341)-JVS(43233)*X(3343)-JVS(43234)*X(3344)-JVS(43235)*X(3345)& - &-JVS(43236)*X(3348)-JVS(43237)*X(3349)-JVS(43238)*X(3350)-JVS(43239)*X(3352)-JVS(43240)*X(3353)-JVS(43241)& - &*X(3354)-JVS(43242)*X(3355)-JVS(43243)*X(3356)-JVS(43244)*X(3357)-JVS(43245)*X(3358)-JVS(43246)*X(3359)& - &-JVS(43247)*X(3360)-JVS(43248)*X(3361)-JVS(43249)*X(3364)-JVS(43250)*X(3365)-JVS(43251)*X(3366)-JVS(43252)& - &*X(3368)-JVS(43253)*X(3369)-JVS(43254)*X(3372)-JVS(43255)*X(3373)-JVS(43256)*X(3374)-JVS(43257)*X(3376)& - &-JVS(43258)*X(3378)-JVS(43259)*X(3379)-JVS(43260)*X(3380)-JVS(43261)*X(3382)-JVS(43262)*X(3384)-JVS(43263)& - &*X(3385)-JVS(43264)*X(3387)-JVS(43265)*X(3389)-JVS(43266)*X(3391)-JVS(43267)*X(3392)-JVS(43268)*X(3394)& - &-JVS(43269)*X(3395)-JVS(43270)*X(3396)-JVS(43271)*X(3397)-JVS(43272)*X(3398)-JVS(43273)*X(3399)-JVS(43274)& - &*X(3401)-JVS(43275)*X(3405)-JVS(43276)*X(3407)-JVS(43277)*X(3408)-JVS(43278)*X(3409)-JVS(43279)*X(3410)& - &-JVS(43280)*X(3411)-JVS(43281)*X(3412)-JVS(43282)*X(3413)-JVS(43283)*X(3414)-JVS(43284)*X(3416)-JVS(43285)& - &*X(3418)-JVS(43286)*X(3420)-JVS(43287)*X(3421)-JVS(43288)*X(3423)-JVS(43289)*X(3424)-JVS(43290)*X(3426)& - &-JVS(43291)*X(3427)-JVS(43292)*X(3428)-JVS(43293)*X(3431)-JVS(43294)*X(3432)-JVS(43295)*X(3433)-JVS(43296)& - &*X(3434)-JVS(43297)*X(3435)-JVS(43298)*X(3436)-JVS(43299)*X(3437)-JVS(43300)*X(3438)-JVS(43301)*X(3439)& - &-JVS(43302)*X(3440)-JVS(43303)*X(3441)-JVS(43304)*X(3442)-JVS(43305)*X(3443)-JVS(43306)*X(3444)-JVS(43307)& - &*X(3445)-JVS(43308)*X(3446)-JVS(43309)*X(3447)-JVS(43310)*X(3448)-JVS(43311)*X(3449)-JVS(43312)*X(3450)& - &-JVS(43313)*X(3451)-JVS(43314)*X(3452)-JVS(43315)*X(3453)-JVS(43316)*X(3454)-JVS(43317)*X(3455)-JVS(43318)& - &*X(3456)-JVS(43319)*X(3457)-JVS(43320)*X(3458)-JVS(43321)*X(3459)-JVS(43322)*X(3460)-JVS(43323)*X(3461)& - &-JVS(43324)*X(3462)-JVS(43325)*X(3463)-JVS(43326)*X(3464)-JVS(43327)*X(3465)-JVS(43328)*X(3466)-JVS(43329)& - &*X(3467)-JVS(43330)*X(3468)-JVS(43331)*X(3469)-JVS(43332)*X(3470)-JVS(43333)*X(3471)-JVS(43334)*X(3472)& - &-JVS(43335)*X(3473)-JVS(43336)*X(3474)-JVS(43337)*X(3475)-JVS(43338)*X(3476)-JVS(43339)*X(3477)-JVS(43340)& - &*X(3478)-JVS(43341)*X(3479)-JVS(43342)*X(3480)-JVS(43343)*X(3481)-JVS(43344)*X(3482)-JVS(43345)*X(3483)& - &-JVS(43346)*X(3484)-JVS(43347)*X(3485)-JVS(43348)*X(3486)-JVS(43349)*X(3487)-JVS(43350)*X(3488)-JVS(43351)& - &*X(3489)-JVS(43352)*X(3491)-JVS(43353)*X(3492)-JVS(43354)*X(3493)-JVS(43355)*X(3494)-JVS(43356)*X(3495)& - &-JVS(43357)*X(3496)-JVS(43358)*X(3497)-JVS(43359)*X(3498)-JVS(43360)*X(3499)-JVS(43361)*X(3500)-JVS(43362)& - &*X(3501)-JVS(43363)*X(3502)-JVS(43364)*X(3503)-JVS(43365)*X(3504)-JVS(43366)*X(3505)-JVS(43367)*X(3506)& - &-JVS(43368)*X(3507)-JVS(43369)*X(3508)-JVS(43370)*X(3509)-JVS(43371)*X(3510)-JVS(43372)*X(3511)-JVS(43373)& - &*X(3512)-JVS(43374)*X(3513)-JVS(43375)*X(3514)-JVS(43376)*X(3515)-JVS(43377)*X(3516)-JVS(43378)*X(3517)& - &-JVS(43379)*X(3518)-JVS(43380)*X(3519)-JVS(43381)*X(3520)-JVS(43382)*X(3521)-JVS(43383)*X(3522)-JVS(43384)& - &*X(3523)-JVS(43385)*X(3524)-JVS(43386)*X(3525)-JVS(43387)*X(3526)-JVS(43388)*X(3527)-JVS(43389)*X(3528)& - &-JVS(43390)*X(3529)-JVS(43391)*X(3530)-JVS(43392)*X(3531)-JVS(43393)*X(3532)-JVS(43394)*X(3533)-JVS(43395)& - &*X(3534)-JVS(43396)*X(3535)-JVS(43397)*X(3536)-JVS(43398)*X(3537)-JVS(43399)*X(3538)-JVS(43400)*X(3539)& - &-JVS(43401)*X(3540)-JVS(43402)*X(3541)-JVS(43403)*X(3542)-JVS(43404)*X(3543)-JVS(43405)*X(3544)-JVS(43406)& - &*X(3545)-JVS(43407)*X(3546)-JVS(43408)*X(3547)-JVS(43409)*X(3548)-JVS(43410)*X(3549)-JVS(43411)*X(3550)& - &-JVS(43412)*X(3551)-JVS(43413)*X(3552)-JVS(43414)*X(3553)-JVS(43415)*X(3554)-JVS(43416)*X(3555)-JVS(43417)& - &*X(3556)-JVS(43418)*X(3557)-JVS(43419)*X(3558)-JVS(43420)*X(3559)-JVS(43421)*X(3560)-JVS(43422)*X(3561)& - &-JVS(43423)*X(3562)-JVS(43424)*X(3563)-JVS(43425)*X(3564)-JVS(43426)*X(3571)-JVS(43427)*X(3574)-JVS(43428)& - &*X(3579)-JVS(43429)*X(3580)-JVS(43430)*X(3582)-JVS(43431)*X(3583)-JVS(43432)*X(3587)-JVS(43433)*X(3590)& - &-JVS(43434)*X(3591)-JVS(43435)*X(3593)-JVS(43436)*X(3594)-JVS(43437)*X(3595)-JVS(43438)*X(3596)-JVS(43439)& - &*X(3597)-JVS(43440)*X(3599)-JVS(43441)*X(3601)-JVS(43442)*X(3602)-JVS(43443)*X(3603)-JVS(43444)*X(3604)& - &-JVS(43445)*X(3607)-JVS(43446)*X(3608)-JVS(43447)*X(3609)-JVS(43448)*X(3612)-JVS(43449)*X(3613)-JVS(43450)& - &*X(3616)-JVS(43451)*X(3617)-JVS(43452)*X(3618)-JVS(43453)*X(3619)-JVS(43454)*X(3620)-JVS(43455)*X(3621)& - &-JVS(43456)*X(3622)-JVS(43457)*X(3623)-JVS(43458)*X(3624)-JVS(43459)*X(3625)-JVS(43460)*X(3626)-JVS(43461)& - &*X(3627)-JVS(43462)*X(3628)-JVS(43463)*X(3629)-JVS(43464)*X(3630)-JVS(43465)*X(3631)-JVS(43466)*X(3632)& - &-JVS(43467)*X(3633)-JVS(43468)*X(3634)-JVS(43469)*X(3635)-JVS(43470)*X(3636)-JVS(43471)*X(3637)-JVS(43472)& - &*X(3638)-JVS(43473)*X(3639)-JVS(43474)*X(3640)-JVS(43475)*X(3641)-JVS(43476)*X(3642)-JVS(43477)*X(3643)& - &-JVS(43478)*X(3644)-JVS(43479)*X(3645)-JVS(43480)*X(3646)-JVS(43481)*X(3647)-JVS(43482)*X(3648)-JVS(43483)& - &*X(3649)-JVS(43484)*X(3650)-JVS(43485)*X(3651)-JVS(43486)*X(3653)-JVS(43487)*X(3654)-JVS(43488)*X(3655)& - &-JVS(43489)*X(3656)-JVS(43490)*X(3657)-JVS(43491)*X(3658)-JVS(43492)*X(3659)-JVS(43493)*X(3660)-JVS(43494)& - &*X(3661)-JVS(43495)*X(3662)-JVS(43496)*X(3663)-JVS(43497)*X(3664)-JVS(43498)*X(3665)-JVS(43499)*X(3666)& - &-JVS(43500)*X(3667)-JVS(43501)*X(3668)-JVS(43502)*X(3669)-JVS(43503)*X(3670)-JVS(43504)*X(3671)-JVS(43505)& - &*X(3672)-JVS(43506)*X(3673)-JVS(43507)*X(3674)-JVS(43508)*X(3675)-JVS(43509)*X(3676)-JVS(43510)*X(3677)& - &-JVS(43511)*X(3678)-JVS(43512)*X(3679)-JVS(43513)*X(3680)-JVS(43514)*X(3681)-JVS(43515)*X(3682)-JVS(43516)& - &*X(3683)-JVS(43517)*X(3684)-JVS(43518)*X(3685)-JVS(43519)*X(3686)-JVS(43520)*X(3687)-JVS(43521)*X(3688)& - &-JVS(43522)*X(3689)-JVS(43523)*X(3690)-JVS(43524)*X(3691)-JVS(43525)*X(3692)-JVS(43526)*X(3693)-JVS(43527)& - &*X(3694)-JVS(43528)*X(3695)-JVS(43529)*X(3696)-JVS(43530)*X(3697)-JVS(43531)*X(3698)-JVS(43532)*X(3699)& - &-JVS(43533)*X(3701)-JVS(43534)*X(3702)-JVS(43535)*X(3703)-JVS(43536)*X(3704)-JVS(43537)*X(3705)-JVS(43538)& - &*X(3706)-JVS(43539)*X(3707)-JVS(43540)*X(3708)-JVS(43541)*X(3709)-JVS(43542)*X(3710)-JVS(43543)*X(3711)& - &-JVS(43544)*X(3712)-JVS(43545)*X(3713)-JVS(43546)*X(3714)-JVS(43547)*X(3715)-JVS(43548)*X(3716)-JVS(43549)& - &*X(3717)-JVS(43550)*X(3718)-JVS(43551)*X(3719)-JVS(43552)*X(3720)-JVS(43553)*X(3721)-JVS(43554)*X(3722)& - &-JVS(43555)*X(3723)-JVS(43556)*X(3724)-JVS(43557)*X(3725)-JVS(43558)*X(3726)-JVS(43559)*X(3727)-JVS(43560)& - &*X(3728)-JVS(43561)*X(3729)-JVS(43562)*X(3730)-JVS(43563)*X(3731)-JVS(43564)*X(3732)-JVS(43565)*X(3733)& - &-JVS(43566)*X(3734)-JVS(43567)*X(3735)-JVS(43568)*X(3736)-JVS(43569)*X(3737)-JVS(43570)*X(3738)-JVS(43571)& - &*X(3739)-JVS(43572)*X(3740)-JVS(43573)*X(3741)-JVS(43574)*X(3742)-JVS(43575)*X(3743)-JVS(43576)*X(3744)& - &-JVS(43577)*X(3745)-JVS(43578)*X(3746)-JVS(43579)*X(3747)-JVS(43580)*X(3748)-JVS(43581)*X(3749)-JVS(43582)& - &*X(3750)-JVS(43583)*X(3751)-JVS(43584)*X(3752)-JVS(43585)*X(3753)-JVS(43586)*X(3755)-JVS(43587)*X(3756)& - &-JVS(43588)*X(3757)-JVS(43589)*X(3758)-JVS(43590)*X(3759)-JVS(43591)*X(3760)-JVS(43592)*X(3761)-JVS(43593)& - &*X(3762)-JVS(43594)*X(3763)-JVS(43595)*X(3764)-JVS(43596)*X(3765)-JVS(43597)*X(3766)-JVS(43598)*X(3767)& - &-JVS(43599)*X(3768)-JVS(43600)*X(3769)-JVS(43601)*X(3770)-JVS(43602)*X(3771)-JVS(43603)*X(3772)-JVS(43604)& - &*X(3773)-JVS(43605)*X(3774)-JVS(43606)*X(3775)-JVS(43607)*X(3776)-JVS(43608)*X(3777)-JVS(43609)*X(3778)& - &-JVS(43610)*X(3780)-JVS(43611)*X(3781)-JVS(43612)*X(3782)-JVS(43613)*X(3783)-JVS(43614)*X(3784)-JVS(43615)& - &*X(3785)-JVS(43616)*X(3786)-JVS(43617)*X(3787)-JVS(43618)*X(3788)-JVS(43619)*X(3789)-JVS(43620)*X(3790)& - &-JVS(43621)*X(3791)-JVS(43622)*X(3792)-JVS(43623)*X(3794)-JVS(43624)*X(3796)-JVS(43625)*X(3797)-JVS(43626)& - &*X(3798)-JVS(43627)*X(3799)-JVS(43628)*X(3800)-JVS(43629)*X(3801)-JVS(43630)*X(3803)-JVS(43631)*X(3804)& - &-JVS(43632)*X(3806)-JVS(43633)*X(3807)-JVS(43634)*X(3808)-JVS(43635)*X(3809)-JVS(43636)*X(3810)-JVS(43637)& - &*X(3811)-JVS(43638)*X(3813)-JVS(43639)*X(3814)-JVS(43640)*X(3815)-JVS(43641)*X(3816)-JVS(43642)*X(3817)& - &-JVS(43643)*X(3819)-JVS(43644)*X(3820)-JVS(43645)*X(3821)-JVS(43646)*X(3822)-JVS(43647)*X(3823)-JVS(43648)& - &*X(3825)-JVS(43649)*X(3827)-JVS(43650)*X(3828)-JVS(43651)*X(3829)-JVS(43652)*X(3830)-JVS(43653)*X(3831)& - &-JVS(43654)*X(3832)-JVS(43655)*X(3833)-JVS(43656)*X(3834)-JVS(43657)*X(3835)-JVS(43658)*X(3836)-JVS(43659)& - &*X(3837)-JVS(43660)*X(3838)-JVS(43661)*X(3839)-JVS(43662)*X(3840)-JVS(43663)*X(3841)-JVS(43664)*X(3842)& - &-JVS(43665)*X(3843)-JVS(43666)*X(3844)-JVS(43667)*X(3845)-JVS(43668)*X(3846)-JVS(43669)*X(3847)-JVS(43670)& - &*X(3848)-JVS(43671)*X(3849)-JVS(43672)*X(3850)-JVS(43673)*X(3851)-JVS(43674)*X(3852)-JVS(43675)*X(3853)& - &-JVS(43676)*X(3854)-JVS(43677)*X(3855)-JVS(43678)*X(3856)-JVS(43679)*X(3857)-JVS(43680)*X(3858)-JVS(43681)& - &*X(3859)-JVS(43682)*X(3860)-JVS(43683)*X(3861)-JVS(43684)*X(3862)-JVS(43685)*X(3863)-JVS(43686)*X(3864)& - &-JVS(43687)*X(3865)-JVS(43688)*X(3866)-JVS(43689)*X(3867)-JVS(43690)*X(3868)-JVS(43691)*X(3869)-JVS(43692)& - &*X(3870)-JVS(43693)*X(3871)-JVS(43694)*X(3872)-JVS(43695)*X(3873)-JVS(43696)*X(3874)-JVS(43697)*X(3875)& - &-JVS(43698)*X(3876)-JVS(43699)*X(3877)-JVS(43700)*X(3878)-JVS(43701)*X(3879)-JVS(43702)*X(3880)-JVS(43703)& - &*X(3881)-JVS(43704)*X(3882)-JVS(43705)*X(3883)-JVS(43706)*X(3884)-JVS(43707)*X(3885)-JVS(43708)*X(3886)& - &-JVS(43709)*X(3887)-JVS(43710)*X(3888)-JVS(43711)*X(3889)-JVS(43712)*X(3890)-JVS(43713)*X(3891)-JVS(43714)& - &*X(3892)-JVS(43715)*X(3893)-JVS(43716)*X(3894)-JVS(43717)*X(3895)-JVS(43718)*X(3896)-JVS(43719)*X(3897)& - &-JVS(43720)*X(3898)-JVS(43721)*X(3899)-JVS(43722)*X(3900)-JVS(43723)*X(3901)-JVS(43724)*X(3902)-JVS(43725)& - &*X(3903)-JVS(43726)*X(3904)-JVS(43727)*X(3905)-JVS(43728)*X(3906)-JVS(43729)*X(3907)-JVS(43730)*X(3908)& - &-JVS(43731)*X(3909)-JVS(43732)*X(3910)-JVS(43733)*X(3911)-JVS(43734)*X(3912)-JVS(43735)*X(3913)-JVS(43736)& - &*X(3914)-JVS(43737)*X(3915)-JVS(43738)*X(3916)-JVS(43739)*X(3917)-JVS(43740)*X(3918)-JVS(43741)*X(3919)& - &-JVS(43742)*X(3920)-JVS(43743)*X(3921)-JVS(43744)*X(3922)-JVS(43745)*X(3923)-JVS(43746)*X(3924)-JVS(43747)& - &*X(3925)-JVS(43748)*X(3926)-JVS(43749)*X(3927)-JVS(43750)*X(3928)-JVS(43751)*X(3929)-JVS(43752)*X(3931)& - &-JVS(43753)*X(3932)-JVS(43754)*X(3933)-JVS(43755)*X(3934)-JVS(43756)*X(3935)-JVS(43757)*X(3936)-JVS(43758)& - &*X(3937)-JVS(43759)*X(3938)-JVS(43760)*X(3939)-JVS(43761)*X(3940)-JVS(43762)*X(3941)-JVS(43763)*X(3942)& - &-JVS(43764)*X(3943)-JVS(43765)*X(3944)-JVS(43766)*X(3945)-JVS(43767)*X(3946)-JVS(43768)*X(3947)-JVS(43769)& - &*X(3948)-JVS(43770)*X(3949)-JVS(43771)*X(3950)-JVS(43772)*X(3951)-JVS(43773)*X(3952)-JVS(43774)*X(3953)& - &-JVS(43775)*X(3954)-JVS(43776)*X(3955)-JVS(43777)*X(3956)-JVS(43778)*X(3957)-JVS(43779)*X(3958)-JVS(43780)& - &*X(3959)-JVS(43781)*X(3960)-JVS(43782)*X(3961)-JVS(43783)*X(3962)-JVS(43784)*X(3963)-JVS(43785)*X(3964)& - &-JVS(43786)*X(3965)-JVS(43787)*X(3966)-JVS(43788)*X(3967)-JVS(43789)*X(3968)-JVS(43790)*X(3969)-JVS(43791)& - &*X(3970)-JVS(43792)*X(3971)-JVS(43793)*X(3972)-JVS(43794)*X(3973)-JVS(43795)*X(3974)-JVS(43796)*X(3975)& - &-JVS(43797)*X(3976)-JVS(43798)*X(3977)-JVS(43799)*X(3978)-JVS(43800)*X(3979)-JVS(43801)*X(3980)-JVS(43802)& - &*X(3981)-JVS(43803)*X(3982)-JVS(43804)*X(3983)-JVS(43805)*X(3984)-JVS(43806)*X(3985)-JVS(43807)*X(3986)& - &-JVS(43808)*X(3987)-JVS(43809)*X(3988)-JVS(43810)*X(3989)-JVS(43811)*X(3990)-JVS(43812)*X(3991)-JVS(43813)& - &*X(3992)-JVS(43814)*X(3993)-JVS(43815)*X(3994)-JVS(43816)*X(3995)-JVS(43817)*X(3996)-JVS(43818)*X(3997)& - &-JVS(43819)*X(3998)-JVS(43820)*X(3999)-JVS(43821)*X(4000)-JVS(43822)*X(4001)-JVS(43823)*X(4002)-JVS(43824)& - &*X(4003)-JVS(43825)*X(4005)-JVS(43826)*X(4006)-JVS(43827)*X(4007)-JVS(43828)*X(4008)-JVS(43829)*X(4009)& - &-JVS(43830)*X(4010)-JVS(43831)*X(4011)-JVS(43832)*X(4012)-JVS(43833)*X(4013)-JVS(43834)*X(4014)-JVS(43835)& - &*X(4015)-JVS(43836)*X(4016)-JVS(43837)*X(4017)-JVS(43838)*X(4018)-JVS(43839)*X(4019)-JVS(43840)*X(4020)& - &-JVS(43841)*X(4021)-JVS(43842)*X(4022)-JVS(43843)*X(4023)-JVS(43844)*X(4024)-JVS(43845)*X(4025)-JVS(43846)& - &*X(4026)-JVS(43847)*X(4027)-JVS(43848)*X(4028)-JVS(43849)*X(4029)-JVS(43850)*X(4030)-JVS(43851)*X(4031)& - &-JVS(43852)*X(4032)-JVS(43853)*X(4033)-JVS(43854)*X(4034)-JVS(43855)*X(4035)-JVS(43856)*X(4036)-JVS(43857)& - &*X(4037)-JVS(43858)*X(4038)-JVS(43859)*X(4039)-JVS(43860)*X(4040)-JVS(43861)*X(4041)-JVS(43862)*X(4042)& - &-JVS(43863)*X(4043)-JVS(43864)*X(4044)-JVS(43865)*X(4045)-JVS(43866)*X(4046)-JVS(43867)*X(4047)-JVS(43868)& - &*X(4048)-JVS(43869)*X(4049)-JVS(43870)*X(4050)-JVS(43871)*X(4051)-JVS(43872)*X(4052)-JVS(43873)*X(4053)& - &-JVS(43874)*X(4054)-JVS(43875)*X(4055)-JVS(43876)*X(4056)-JVS(43877)*X(4057)-JVS(43878)*X(4058)-JVS(43879)& - &*X(4059)-JVS(43880)*X(4060)-JVS(43881)*X(4061)-JVS(43882)*X(4062)-JVS(43883)*X(4063)-JVS(43884)*X(4064)& - &-JVS(43885)*X(4065)-JVS(43886)*X(4066)-JVS(43887)*X(4067)-JVS(43888)*X(4068)-JVS(43889)*X(4069)-JVS(43890)& - &*X(4070)-JVS(43891)*X(4071)-JVS(43892)*X(4072)-JVS(43893)*X(4073)-JVS(43894)*X(4074)-JVS(43895)*X(4075)& - &-JVS(43896)*X(4076)-JVS(43897)*X(4077)-JVS(43898)*X(4078)-JVS(43899)*X(4079)-JVS(43900)*X(4080)-JVS(43901)& - &*X(4081)-JVS(43902)*X(4082)-JVS(43903)*X(4083)-JVS(43904)*X(4084)-JVS(43905)*X(4085)-JVS(43906)*X(4086)& - &-JVS(43907)*X(4087)-JVS(43908)*X(4088)-JVS(43909)*X(4089)-JVS(43910)*X(4090)-JVS(43911)*X(4091)-JVS(43912)& - &*X(4092)-JVS(43913)*X(4093)-JVS(43914)*X(4094)-JVS(43915)*X(4095)-JVS(43916)*X(4096)-JVS(43917)*X(4097)& - &-JVS(43918)*X(4098)-JVS(43919)*X(4099)-JVS(43920)*X(4100)-JVS(43921)*X(4101)-JVS(43922)*X(4102)-JVS(43923)& - &*X(4103)-JVS(43924)*X(4104)-JVS(43925)*X(4105)-JVS(43926)*X(4106)-JVS(43927)*X(4107)-JVS(43928)*X(4108)& - &-JVS(43929)*X(4109)-JVS(43930)*X(4110)-JVS(43931)*X(4111)-JVS(43932)*X(4112)-JVS(43933)*X(4113)-JVS(43934)& - &*X(4114)-JVS(43935)*X(4115)-JVS(43936)*X(4116)-JVS(43937)*X(4117)-JVS(43938)*X(4118)-JVS(43939)*X(4119)& - &-JVS(43940)*X(4120)-JVS(43941)*X(4121)-JVS(43942)*X(4122)-JVS(43943)*X(4123)-JVS(43944)*X(4124)-JVS(43945)& - &*X(4125)-JVS(43946)*X(4126)-JVS(43947)*X(4127)-JVS(43948)*X(4128)-JVS(43949)*X(4129)-JVS(43950)*X(4130)& - &-JVS(43951)*X(4131)-JVS(43952)*X(4132)-JVS(43953)*X(4133)-JVS(43954)*X(4134)-JVS(43955)*X(4135)-JVS(43956)& - &*X(4136)-JVS(43957)*X(4137)-JVS(43958)*X(4138)-JVS(43959)*X(4139)-JVS(43960)*X(4140)-JVS(43961)*X(4141)& - &-JVS(43962)*X(4142)-JVS(43963)*X(4143)-JVS(43964)*X(4144)-JVS(43965)*X(4145)-JVS(43966)*X(4146)-JVS(43967)& - &*X(4147)-JVS(43968)*X(4148)-JVS(43969)*X(4149)-JVS(43970)*X(4150)-JVS(43971)*X(4151)-JVS(43972)*X(4152)& - &-JVS(43973)*X(4153)-JVS(43974)*X(4154)-JVS(43975)*X(4155)-JVS(43976)*X(4156)-JVS(43977)*X(4157)-JVS(43978)& - &*X(4158)-JVS(43979)*X(4159)-JVS(43980)*X(4160)-JVS(43981)*X(4161)-JVS(43982)*X(4162)-JVS(43983)*X(4163)& - &-JVS(43984)*X(4164)-JVS(43985)*X(4165)-JVS(43986)*X(4166)-JVS(43987)*X(4167)-JVS(43988)*X(4168)-JVS(43989)& - &*X(4169)-JVS(43990)*X(4170)-JVS(43991)*X(4171)-JVS(43992)*X(4172)-JVS(43993)*X(4173)-JVS(43994)*X(4174)& - &-JVS(43995)*X(4175)-JVS(43996)*X(4176)-JVS(43997)*X(4178)-JVS(43998)*X(4179)-JVS(43999)*X(4180)-JVS(44000)& - &*X(4181)-JVS(44001)*X(4182)-JVS(44002)*X(4183)-JVS(44003)*X(4184)-JVS(44004)*X(4185)-JVS(44005)*X(4186)& - &-JVS(44006)*X(4187)-JVS(44007)*X(4188)-JVS(44008)*X(4189)-JVS(44009)*X(4190)-JVS(44010)*X(4191)-JVS(44011)& - &*X(4192)-JVS(44012)*X(4193)-JVS(44013)*X(4194)-JVS(44014)*X(4195)-JVS(44015)*X(4196)-JVS(44016)*X(4197)& - &-JVS(44017)*X(4198)-JVS(44018)*X(4199)-JVS(44019)*X(4200)-JVS(44020)*X(4201)-JVS(44021)*X(4202)-JVS(44022)& - &*X(4203)-JVS(44023)*X(4204)-JVS(44024)*X(4205)-JVS(44025)*X(4206)-JVS(44026)*X(4207)-JVS(44027)*X(4208)& - &-JVS(44028)*X(4209)-JVS(44029)*X(4210)-JVS(44030)*X(4211)-JVS(44031)*X(4212)-JVS(44032)*X(4214)-JVS(44033)& - &*X(4215)-JVS(44034)*X(4216)-JVS(44035)*X(4217)-JVS(44036)*X(4218)-JVS(44037)*X(4219)-JVS(44038)*X(4220)& - &-JVS(44039)*X(4221)-JVS(44040)*X(4222)-JVS(44041)*X(4223)-JVS(44042)*X(4224)-JVS(44043)*X(4225)-JVS(44044)& - &*X(4226)-JVS(44045)*X(4227)-JVS(44046)*X(4228)-JVS(44047)*X(4229)-JVS(44048)*X(4230)-JVS(44049)*X(4231)& - &-JVS(44050)*X(4232)-JVS(44051)*X(4233)-JVS(44052)*X(4234)-JVS(44053)*X(4235)-JVS(44054)*X(4236)-JVS(44055)& - &*X(4237)-JVS(44056)*X(4238)-JVS(44057)*X(4239)-JVS(44058)*X(4240)-JVS(44059)*X(4241)-JVS(44060)*X(4242)& - &-JVS(44061)*X(4243)-JVS(44062)*X(4244)-JVS(44063)*X(4245)-JVS(44064)*X(4246)-JVS(44065)*X(4248)-JVS(44066)& - &*X(4249)-JVS(44067)*X(4251)-JVS(44068)*X(4252)-JVS(44069)*X(4253)-JVS(44070)*X(4254)-JVS(44071)*X(4255)& - &-JVS(44072)*X(4256)-JVS(44073)*X(4257)-JVS(44074)*X(4259)-JVS(44075)*X(4260)-JVS(44076)*X(4261)-JVS(44077)& - &*X(4262)-JVS(44078)*X(4263)-JVS(44079)*X(4265)-JVS(44080)*X(4266)-JVS(44081)*X(4267)-JVS(44082)*X(4268)& - &-JVS(44083)*X(4269)-JVS(44084)*X(4270)-JVS(44085)*X(4271)-JVS(44086)*X(4272)-JVS(44087)*X(4273)-JVS(44088)& - &*X(4274)-JVS(44089)*X(4275)-JVS(44090)*X(4276)-JVS(44091)*X(4277)-JVS(44092)*X(4278)-JVS(44093)*X(4279)& - &-JVS(44094)*X(4280)-JVS(44095)*X(4281)-JVS(44096)*X(4283)-JVS(44097)*X(4284)-JVS(44098)*X(4285)-JVS(44099)& - &*X(4287)-JVS(44100)*X(4288)-JVS(44101)*X(4289)-JVS(44102)*X(4290)-JVS(44103)*X(4291)-JVS(44104)*X(4292)& - &-JVS(44105)*X(4293)-JVS(44106)*X(4294)-JVS(44107)*X(4295)-JVS(44108)*X(4296)-JVS(44109)*X(4297)-JVS(44110)& - &*X(4298)-JVS(44111)*X(4299)-JVS(44112)*X(4300)-JVS(44113)*X(4301)-JVS(44114)*X(4303)-JVS(44115)*X(4304)& - &-JVS(44116)*X(4305)-JVS(44117)*X(4306)-JVS(44118)*X(4307)-JVS(44119)*X(4308)-JVS(44120)*X(4309)-JVS(44121)& - &*X(4310)-JVS(44122)*X(4311)-JVS(44123)*X(4312)-JVS(44124)*X(4313)-JVS(44125)*X(4314)-JVS(44126)*X(4315)& - &-JVS(44127)*X(4316)-JVS(44128)*X(4317)-JVS(44129)*X(4318)-JVS(44130)*X(4319)-JVS(44131)*X(4321)-JVS(44132)& - &*X(4322)-JVS(44133)*X(4323)-JVS(44134)*X(4324)-JVS(44135)*X(4325)-JVS(44136)*X(4326)-JVS(44137)*X(4327)& - &-JVS(44138)*X(4328)-JVS(44139)*X(4329)-JVS(44140)*X(4330)-JVS(44141)*X(4331)-JVS(44142)*X(4332)-JVS(44143)& - &*X(4333)-JVS(44144)*X(4334)-JVS(44145)*X(4335)-JVS(44146)*X(4336)-JVS(44147)*X(4337)-JVS(44148)*X(4338)& - &-JVS(44149)*X(4339)-JVS(44150)*X(4340)-JVS(44151)*X(4341)-JVS(44152)*X(4342)-JVS(44153)*X(4343)-JVS(44154)& - &*X(4344)-JVS(44155)*X(4345)-JVS(44156)*X(4346)-JVS(44157)*X(4347)-JVS(44158)*X(4348)-JVS(44159)*X(4349)& - &-JVS(44160)*X(4350)-JVS(44161)*X(4351)-JVS(44162)*X(4352)-JVS(44163)*X(4353)-JVS(44164)*X(4354)-JVS(44165)& - &*X(4355)-JVS(44166)*X(4356)-JVS(44167)*X(4357)-JVS(44168)*X(4358)-JVS(44169)*X(4359)-JVS(44170)*X(4360)& - &-JVS(44171)*X(4361)-JVS(44172)*X(4362)-JVS(44173)*X(4363)-JVS(44174)*X(4364)-JVS(44175)*X(4365)-JVS(44176)& - &*X(4366)-JVS(44177)*X(4367)-JVS(44178)*X(4368)-JVS(44179)*X(4369)-JVS(44180)*X(4370)-JVS(44181)*X(4371)& - &-JVS(44182)*X(4372)-JVS(44183)*X(4373)-JVS(44184)*X(4374)-JVS(44185)*X(4375)-JVS(44186)*X(4376)-JVS(44187)& - &*X(4377)-JVS(44188)*X(4378)-JVS(44189)*X(4379)-JVS(44190)*X(4380)-JVS(44191)*X(4381)-JVS(44192)*X(4382)& - &-JVS(44193)*X(4383)-JVS(44194)*X(4384)-JVS(44195)*X(4385)-JVS(44196)*X(4386)-JVS(44197)*X(4387)-JVS(44198)& - &*X(4388)-JVS(44199)*X(4389)-JVS(44200)*X(4390)-JVS(44201)*X(4391)-JVS(44202)*X(4392)-JVS(44203)*X(4393)& - &-JVS(44204)*X(4394)-JVS(44205)*X(4395)-JVS(44206)*X(4396)-JVS(44207)*X(4397)-JVS(44208)*X(4398)-JVS(44209)& - &*X(4399)-JVS(44210)*X(4400)-JVS(44211)*X(4401)-JVS(44212)*X(4402)-JVS(44213)*X(4403)-JVS(44214)*X(4404)& - &-JVS(44215)*X(4405)-JVS(44216)*X(4406)-JVS(44217)*X(4407)-JVS(44218)*X(4408)-JVS(44219)*X(4409)-JVS(44220)& - &*X(4410)-JVS(44221)*X(4411)-JVS(44222)*X(4412)-JVS(44223)*X(4413)-JVS(44224)*X(4414)-JVS(44225)*X(4415)& - &-JVS(44226)*X(4416)-JVS(44227)*X(4417)-JVS(44228)*X(4418)-JVS(44229)*X(4419)-JVS(44230)*X(4420)-JVS(44231)& - &*X(4421)-JVS(44232)*X(4422)-JVS(44233)*X(4423)-JVS(44234)*X(4424)-JVS(44235)*X(4425)-JVS(44236)*X(4426)& - &-JVS(44237)*X(4427)-JVS(44238)*X(4428)-JVS(44239)*X(4429)-JVS(44240)*X(4430)-JVS(44241)*X(4431)-JVS(44242)& - &*X(4432)-JVS(44243)*X(4433)-JVS(44244)*X(4434)-JVS(44245)*X(4435)-JVS(44246)*X(4436)-JVS(44247)*X(4437)& - &-JVS(44248)*X(4438)-JVS(44249)*X(4439)-JVS(44250)*X(4440)-JVS(44251)*X(4441)-JVS(44252)*X(4442)-JVS(44253)& - &*X(4443)-JVS(44254)*X(4444)-JVS(44255)*X(4445)-JVS(44256)*X(4446)-JVS(44257)*X(4447)-JVS(44258)*X(4448)& - &-JVS(44259)*X(4449)-JVS(44260)*X(4450)-JVS(44261)*X(4451)-JVS(44262)*X(4452)-JVS(44263)*X(4453)-JVS(44264)& - &*X(4454)-JVS(44265)*X(4455)-JVS(44266)*X(4456)-JVS(44267)*X(4457)-JVS(44268)*X(4458)-JVS(44269)*X(4459)& - &-JVS(44270)*X(4460)-JVS(44271)*X(4461)-JVS(44272)*X(4462)-JVS(44273)*X(4463)-JVS(44274)*X(4464)-JVS(44275)& - &*X(4465)-JVS(44276)*X(4466)-JVS(44277)*X(4467)-JVS(44278)*X(4468)-JVS(44279)*X(4469)-JVS(44280)*X(4470)& - &-JVS(44281)*X(4471)-JVS(44282)*X(4472)-JVS(44283)*X(4473)-JVS(44284)*X(4474)-JVS(44285)*X(4475)-JVS(44286)& - &*X(4476)-JVS(44287)*X(4477)-JVS(44288)*X(4478)-JVS(44289)*X(4479)-JVS(44290)*X(4480)-JVS(44291)*X(4481)& - &-JVS(44292)*X(4482)-JVS(44293)*X(4483)-JVS(44294)*X(4484)-JVS(44295)*X(4485)-JVS(44296)*X(4486)-JVS(44297)& - &*X(4487)-JVS(44298)*X(4488)-JVS(44299)*X(4489)-JVS(44300)*X(4490)-JVS(44301)*X(4491)-JVS(44302)*X(4492)& - &-JVS(44303)*X(4493)-JVS(44304)*X(4494)-JVS(44305)*X(4495)-JVS(44306)*X(4496)-JVS(44307)*X(4497)-JVS(44308)& - &*X(4498)-JVS(44309)*X(4499)-JVS(44310)*X(4500)-JVS(44311)*X(4501)-JVS(44312)*X(4502)-JVS(44313)*X(4503)& - &-JVS(44314)*X(4504)-JVS(44315)*X(4505)-JVS(44316)*X(4506)-JVS(44317)*X(4507)-JVS(44318)*X(4508)-JVS(44319)& - &*X(4509)-JVS(44320)*X(4510)-JVS(44321)*X(4511)-JVS(44322)*X(4512)-JVS(44323)*X(4513)-JVS(44324)*X(4514)& - &-JVS(44325)*X(4515)-JVS(44326)*X(4516)-JVS(44327)*X(4517)-JVS(44328)*X(4518)-JVS(44329)*X(4519)-JVS(44330)& - &*X(4520)-JVS(44331)*X(4521)-JVS(44332)*X(4522)-JVS(44333)*X(4523)-JVS(44334)*X(4524)-JVS(44335)*X(4525)& - &-JVS(44336)*X(4526)-JVS(44337)*X(4527)-JVS(44338)*X(4528)-JVS(44339)*X(4529)-JVS(44340)*X(4530)-JVS(44341)& - &*X(4531)-JVS(44342)*X(4532)-JVS(44343)*X(4533)-JVS(44344)*X(4534)-JVS(44345)*X(4535)-JVS(44346)*X(4536)& - &-JVS(44347)*X(4537)-JVS(44348)*X(4538)-JVS(44349)*X(4539)-JVS(44350)*X(4540)-JVS(44351)*X(4541)-JVS(44352)& - &*X(4542)-JVS(44353)*X(4543)-JVS(44354)*X(4545)-JVS(44355)*X(4546)-JVS(44356)*X(4547)-JVS(44357)*X(4548)& - &-JVS(44358)*X(4549)-JVS(44359)*X(4550)-JVS(44360)*X(4552)-JVS(44361)*X(4553)-JVS(44362)*X(4554)-JVS(44363)& - &*X(4555)-JVS(44364)*X(4557)-JVS(44365)*X(4558)-JVS(44366)*X(4559)-JVS(44367)*X(4560)-JVS(44368)*X(4561)& - &-JVS(44369)*X(4562)-JVS(44370)*X(4563)-JVS(44371)*X(4564)-JVS(44372)*X(4565)-JVS(44373)*X(4566)-JVS(44374)& - &*X(4567)-JVS(44375)*X(4568)-JVS(44376)*X(4569)-JVS(44377)*X(4570)-JVS(44378)*X(4571)-JVS(44379)*X(4572)& - &-JVS(44380)*X(4573)-JVS(44381)*X(4574)-JVS(44382)*X(4575)-JVS(44383)*X(4576)-JVS(44384)*X(4577)-JVS(44385)& - &*X(4578)-JVS(44386)*X(4579)-JVS(44387)*X(4580)-JVS(44388)*X(4581)-JVS(44389)*X(4582)-JVS(44390)*X(4583)& - &-JVS(44391)*X(4584)-JVS(44392)*X(4585)-JVS(44393)*X(4586)-JVS(44394)*X(4587)-JVS(44395)*X(4588)-JVS(44396)& - &*X(4589)-JVS(44397)*X(4590)-JVS(44398)*X(4591)-JVS(44399)*X(4592)-JVS(44400)*X(4593)-JVS(44401)*X(4594)& - &-JVS(44402)*X(4595)-JVS(44403)*X(4596)-JVS(44404)*X(4597)-JVS(44405)*X(4598)-JVS(44406)*X(4599)-JVS(44407)& - &*X(4600)-JVS(44408)*X(4601)-JVS(44409)*X(4602)-JVS(44410)*X(4603)-JVS(44411)*X(4604)-JVS(44412)*X(4605)& - &-JVS(44413)*X(4606)-JVS(44414)*X(4607)-JVS(44415)*X(4608)-JVS(44416)*X(4609)-JVS(44417)*X(4610)-JVS(44418)& - &*X(4611)-JVS(44419)*X(4612)-JVS(44420)*X(4613)-JVS(44421)*X(4614)-JVS(44422)*X(4615)-JVS(44423)*X(4616)& - &-JVS(44424)*X(4617)-JVS(44425)*X(4618)-JVS(44426)*X(4619)-JVS(44427)*X(4620)-JVS(44428)*X(4621)-JVS(44429)& - &*X(4622)-JVS(44430)*X(4623)-JVS(44431)*X(4624)-JVS(44432)*X(4625)-JVS(44433)*X(4626)-JVS(44434)*X(4627)& - &-JVS(44435)*X(4628)-JVS(44436)*X(4629)-JVS(44437)*X(4630)-JVS(44438)*X(4631)-JVS(44439)*X(4632)-JVS(44440)& - &*X(4633)-JVS(44441)*X(4634)-JVS(44442)*X(4635)-JVS(44443)*X(4636)-JVS(44444)*X(4637)-JVS(44445)*X(4638)& - &-JVS(44446)*X(4639)-JVS(44447)*X(4640)-JVS(44448)*X(4641)-JVS(44449)*X(4642)-JVS(44450)*X(4643)-JVS(44451)& - &*X(4644)-JVS(44452)*X(4645)-JVS(44453)*X(4646)-JVS(44454)*X(4647)-JVS(44455)*X(4648)-JVS(44456)*X(4649)& - &-JVS(44457)*X(4650)-JVS(44458)*X(4651)-JVS(44459)*X(4652)-JVS(44460)*X(4653)-JVS(44461)*X(4654)-JVS(44462)& - &*X(4655)-JVS(44463)*X(4656)-JVS(44464)*X(4657)-JVS(44465)*X(4658)-JVS(44466)*X(4659)-JVS(44467)*X(4660)& - &-JVS(44468)*X(4661)-JVS(44469)*X(4662)-JVS(44470)*X(4663)-JVS(44471)*X(4664)-JVS(44472)*X(4665)-JVS(44473)& - &*X(4666)-JVS(44474)*X(4667)-JVS(44475)*X(4668)-JVS(44476)*X(4669)-JVS(44477)*X(4670)-JVS(44478)*X(4671)& - &-JVS(44479)*X(4672)-JVS(44480)*X(4673)-JVS(44481)*X(4674)-JVS(44482)*X(4675)-JVS(44483)*X(4676)-JVS(44484)& - &*X(4677)-JVS(44485)*X(4678)-JVS(44486)*X(4679)-JVS(44487)*X(4680)-JVS(44488)*X(4681)-JVS(44489)*X(4682)& - &-JVS(44490)*X(4683)-JVS(44491)*X(4684)-JVS(44492)*X(4685)-JVS(44493)*X(4686)-JVS(44494)*X(4687)-JVS(44495)& - &*X(4688)-JVS(44496)*X(4689)-JVS(44497)*X(4690)-JVS(44498)*X(4691)-JVS(44499)*X(4692)-JVS(44500)*X(4693)& - &-JVS(44501)*X(4694)-JVS(44502)*X(4695)-JVS(44503)*X(4696)-JVS(44504)*X(4697)-JVS(44505)*X(4698)-JVS(44506)& - &*X(4699)-JVS(44507)*X(4700)-JVS(44508)*X(4701)-JVS(44509)*X(4702)-JVS(44510)*X(4703)-JVS(44511)*X(4704)& - &-JVS(44512)*X(4705)-JVS(44513)*X(4706)-JVS(44514)*X(4707)-JVS(44515)*X(4708)-JVS(44516)*X(4709)-JVS(44517)& - &*X(4710)-JVS(44518)*X(4711)-JVS(44519)*X(4712)-JVS(44520)*X(4713)-JVS(44521)*X(4714)-JVS(44522)*X(4715)& - &-JVS(44523)*X(4716)-JVS(44524)*X(4717)-JVS(44525)*X(4718)-JVS(44526)*X(4719)-JVS(44527)*X(4720)-JVS(44528)& - &*X(4721)-JVS(44529)*X(4722)-JVS(44530)*X(4723)-JVS(44531)*X(4724)-JVS(44532)*X(4725)-JVS(44533)*X(4726)& - &-JVS(44534)*X(4727)-JVS(44535)*X(4728)-JVS(44536)*X(4729)-JVS(44537)*X(4730)-JVS(44538)*X(4731)-JVS(44539)& - &*X(4732)-JVS(44540)*X(4733)-JVS(44541)*X(4734)-JVS(44542)*X(4735)-JVS(44543)*X(4736)-JVS(44544)*X(4737)& - &-JVS(44545)*X(4738)-JVS(44546)*X(4739)-JVS(44547)*X(4740)-JVS(44548)*X(4742)-JVS(44549)*X(4743)-JVS(44550)& - &*X(4744)-JVS(44551)*X(4745)-JVS(44552)*X(4746)-JVS(44553)*X(4747)-JVS(44554)*X(4748)-JVS(44555)*X(4749)& - &-JVS(44556)*X(4750)-JVS(44557)*X(4751)-JVS(44558)*X(4752)-JVS(44559)*X(4753)-JVS(44560)*X(4754)-JVS(44561)& - &*X(4755)-JVS(44562)*X(4756)-JVS(44563)*X(4757)-JVS(44564)*X(4758)-JVS(44565)*X(4759)-JVS(44566)*X(4760)& - &-JVS(44567)*X(4761)-JVS(44568)*X(4762)-JVS(44569)*X(4763)-JVS(44570)*X(4764)-JVS(44571)*X(4765)-JVS(44572)& - &*X(4766)-JVS(44573)*X(4767)-JVS(44574)*X(4768)-JVS(44575)*X(4769)-JVS(44576)*X(4770)-JVS(44577)*X(4771)& - &-JVS(44578)*X(4772)-JVS(44579)*X(4773)-JVS(44580)*X(4774)-JVS(44581)*X(4775)-JVS(44582)*X(4776)-JVS(44583)& - &*X(4777)-JVS(44584)*X(4778)-JVS(44585)*X(4779)-JVS(44586)*X(4780)-JVS(44587)*X(4781)-JVS(44588)*X(4782)& - &-JVS(44589)*X(4783)-JVS(44590)*X(4784)-JVS(44591)*X(4785)-JVS(44592)*X(4786)-JVS(44593)*X(4787)-JVS(44594)& - &*X(4788)-JVS(44595)*X(4789)-JVS(44596)*X(4790)-JVS(44597)*X(4791)-JVS(44598)*X(4792)-JVS(44599)*X(4793)& - &-JVS(44600)*X(4794)-JVS(44601)*X(4795)-JVS(44602)*X(4796)-JVS(44603)*X(4797)-JVS(44604)*X(4798)-JVS(44605)& - &*X(4799)-JVS(44606)*X(4800)-JVS(44607)*X(4801)-JVS(44608)*X(4802)-JVS(44609)*X(4803)-JVS(44610)*X(4804)& - &-JVS(44611)*X(4805)-JVS(44612)*X(4806)-JVS(44613)*X(4807)-JVS(44614)*X(4808)-JVS(44615)*X(4809)-JVS(44616)& - &*X(4810)-JVS(44617)*X(4811)-JVS(44618)*X(4812)-JVS(44619)*X(4813)-JVS(44620)*X(4814)-JVS(44621)*X(4815)& - &-JVS(44622)*X(4816)-JVS(44623)*X(4817)-JVS(44624)*X(4818)-JVS(44625)*X(4819)-JVS(44626)*X(4820)-JVS(44627)& - &*X(4821)-JVS(44628)*X(4822)-JVS(44629)*X(4823)-JVS(44630)*X(4824)-JVS(44631)*X(4825)-JVS(44632)*X(4826)& - &-JVS(44633)*X(4827)-JVS(44634)*X(4828)-JVS(44635)*X(4829)-JVS(44636)*X(4830)-JVS(44637)*X(4831)-JVS(44638)& - &*X(4832)-JVS(44639)*X(4833)-JVS(44640)*X(4834)-JVS(44641)*X(4835)-JVS(44642)*X(4836)-JVS(44643)*X(4837)& - &-JVS(44644)*X(4838)-JVS(44645)*X(4839)-JVS(44646)*X(4840)-JVS(44647)*X(4841)-JVS(44648)*X(4842)-JVS(44649)& - &*X(4843)-JVS(44650)*X(4844)-JVS(44651)*X(4845)-JVS(44652)*X(4846)-JVS(44653)*X(4847)-JVS(44654)*X(4848)& - &-JVS(44655)*X(4849)-JVS(44656)*X(4850)-JVS(44657)*X(4851)-JVS(44658)*X(4852)-JVS(44659)*X(4853)-JVS(44660)& - &*X(4854)-JVS(44661)*X(4855)-JVS(44662)*X(4856)-JVS(44663)*X(4857)-JVS(44664)*X(4858)-JVS(44665)*X(4859)& - &-JVS(44666)*X(4860)-JVS(44667)*X(4861)-JVS(44668)*X(4862)-JVS(44669)*X(4863)-JVS(44670)*X(4864)-JVS(44671)& - &*X(4865)-JVS(44672)*X(4866)-JVS(44673)*X(4867)-JVS(44674)*X(4868)-JVS(44675)*X(4869)-JVS(44676)*X(4870)& - &-JVS(44677)*X(4871)-JVS(44678)*X(4872)-JVS(44679)*X(4873)-JVS(44680)*X(4874)-JVS(44681)*X(4875)-JVS(44682)& - &*X(4876)-JVS(44683)*X(4877)-JVS(44684)*X(4878)-JVS(44685)*X(4879)-JVS(44686)*X(4880)-JVS(44687)*X(4881)& - &-JVS(44688)*X(4882)-JVS(44689)*X(4883)-JVS(44690)*X(4884)-JVS(44691)*X(4885)-JVS(44692)*X(4886)-JVS(44693)& - &*X(4887)-JVS(44694)*X(4888)-JVS(44695)*X(4889)-JVS(44696)*X(4890)-JVS(44697)*X(4891)-JVS(44698)*X(4892)& - &-JVS(44699)*X(4893)-JVS(44700)*X(4894)-JVS(44701)*X(4895)-JVS(44702)*X(4896)-JVS(44703)*X(4897)-JVS(44704)& - &*X(4898)-JVS(44705)*X(4899)-JVS(44706)*X(4900)-JVS(44707)*X(4901)-JVS(44708)*X(4902)-JVS(44709)*X(4903)& - &-JVS(44710)*X(4904)-JVS(44711)*X(4905)-JVS(44712)*X(4906)-JVS(44713)*X(4907)-JVS(44714)*X(4908)-JVS(44715)& - &*X(4909)-JVS(44716)*X(4910)-JVS(44717)*X(4911)-JVS(44718)*X(4912)-JVS(44719)*X(4913)-JVS(44720)*X(4914)& - &-JVS(44721)*X(4915)-JVS(44722)*X(4916)-JVS(44723)*X(4917)-JVS(44724)*X(4918)-JVS(44725)*X(4919)-JVS(44726)& - &*X(4920)-JVS(44727)*X(4921)-JVS(44728)*X(4922)-JVS(44729)*X(4923)-JVS(44730)*X(4924)-JVS(44731)*X(4925)& - &-JVS(44732)*X(4926)-JVS(44733)*X(4927)-JVS(44734)*X(4928)-JVS(44735)*X(4929)-JVS(44736)*X(4930)-JVS(44737)& - &*X(4931)-JVS(44738)*X(4932)-JVS(44739)*X(4933)-JVS(44740)*X(4934)-JVS(44741)*X(4935)-JVS(44742)*X(4936)& - &-JVS(44743)*X(4937)-JVS(44744)*X(4938)-JVS(44745)*X(4939)-JVS(44746)*X(4940)-JVS(44747)*X(4941)-JVS(44748)& - &*X(4942)-JVS(44749)*X(4943)-JVS(44750)*X(4944)-JVS(44751)*X(4945)-JVS(44752)*X(4946)-JVS(44753)*X(4947)& - &-JVS(44754)*X(4948)-JVS(44755)*X(4949)-JVS(44756)*X(4950)-JVS(44757)*X(4951)-JVS(44758)*X(4952)-JVS(44759)& - &*X(4953)-JVS(44760)*X(4954)-JVS(44761)*X(4955)-JVS(44762)*X(4956)-JVS(44763)*X(4957)-JVS(44764)*X(4958)& - &-JVS(44765)*X(4959)-JVS(44766)*X(4960)-JVS(44767)*X(4961)-JVS(44768)*X(4962)-JVS(44769)*X(4963)-JVS(44770)& - &*X(4964)-JVS(44771)*X(4965)-JVS(44772)*X(4966)-JVS(44773)*X(4967)-JVS(44774)*X(4968)-JVS(44775)*X(4969)& - &-JVS(44776)*X(4970)-JVS(44777)*X(4971)-JVS(44778)*X(4972)-JVS(44779)*X(4973)-JVS(44780)*X(4974)-JVS(44781)& - &*X(4975)-JVS(44782)*X(4976)-JVS(44783)*X(4977)-JVS(44784)*X(4978)-JVS(44785)*X(4979)-JVS(44786)*X(4980)& - &-JVS(44787)*X(4981)-JVS(44788)*X(4982)-JVS(44789)*X(4983)-JVS(44790)*X(4984)-JVS(44791)*X(4985)-JVS(44792)& - &*X(4986)-JVS(44793)*X(4987)-JVS(44794)*X(4988)-JVS(44795)*X(4989)-JVS(44796)*X(4990)-JVS(44797)*X(4991)& - &-JVS(44798)*X(4992)-JVS(44799)*X(4993)-JVS(44800)*X(4994)-JVS(44801)*X(4995)-JVS(44802)*X(4996)-JVS(44803)& - &*X(4997)-JVS(44804)*X(4998)-JVS(44805)*X(4999)-JVS(44806)*X(5000)-JVS(44807)*X(5001)-JVS(44808)*X(5002)& - &-JVS(44809)*X(5003)-JVS(44810)*X(5004)-JVS(44811)*X(5005)-JVS(44812)*X(5006)-JVS(44813)*X(5007)-JVS(44814)& - &*X(5008)-JVS(44815)*X(5009)-JVS(44816)*X(5010)-JVS(44817)*X(5011)-JVS(44818)*X(5012)-JVS(44819)*X(5013)& - &-JVS(44820)*X(5014)-JVS(44821)*X(5015)-JVS(44822)*X(5016)-JVS(44823)*X(5017)-JVS(44824)*X(5018)-JVS(44825)& - &*X(5019)-JVS(44826)*X(5020)-JVS(44827)*X(5021)-JVS(44828)*X(5022)-JVS(44829)*X(5023)-JVS(44830)*X(5024)& - &-JVS(44831)*X(5025)-JVS(44832)*X(5026)-JVS(44833)*X(5027)-JVS(44834)*X(5028)-JVS(44835)*X(5029)-JVS(44836)& - &*X(5030)-JVS(44837)*X(5031)-JVS(44838)*X(5032)-JVS(44839)*X(5033)-JVS(44840)*X(5034)-JVS(44841)*X(5035)& - &-JVS(44842)*X(5036)-JVS(44843)*X(5037)-JVS(44844)*X(5038)-JVS(44845)*X(5039)-JVS(44846)*X(5040)-JVS(44847)& - &*X(5041)-JVS(44848)*X(5042)-JVS(44849)*X(5043)-JVS(44850)*X(5044)-JVS(44851)*X(5045)-JVS(44852)*X(5046)& - &-JVS(44853)*X(5047)-JVS(44854)*X(5048)-JVS(44855)*X(5049)-JVS(44856)*X(5050)-JVS(44857)*X(5051)-JVS(44858)& - &*X(5052)-JVS(44859)*X(5053)-JVS(44860)*X(5054)-JVS(44861)*X(5055)-JVS(44862)*X(5056)-JVS(44863)*X(5057)& - &-JVS(44864)*X(5058)-JVS(44865)*X(5059)-JVS(44866)*X(5060)-JVS(44867)*X(5061)-JVS(44868)*X(5062)-JVS(44869)& - &*X(5063)-JVS(44870)*X(5064)-JVS(44871)*X(5065)-JVS(44872)*X(5066)-JVS(44873)*X(5067)-JVS(44874)*X(5068)& - &-JVS(44875)*X(5069)-JVS(44876)*X(5070)-JVS(44877)*X(5071)-JVS(44878)*X(5072)-JVS(44879)*X(5073)-JVS(44880)& - &*X(5074)-JVS(44881)*X(5075)-JVS(44882)*X(5076)-JVS(44883)*X(5077)-JVS(44884)*X(5078)-JVS(44885)*X(5079)& - &-JVS(44886)*X(5080)-JVS(44887)*X(5081)-JVS(44888)*X(5082)-JVS(44889)*X(5083)-JVS(44890)*X(5084)-JVS(44891)& - &*X(5085)-JVS(44892)*X(5086)-JVS(44893)*X(5087)-JVS(44894)*X(5088)-JVS(44895)*X(5089)-JVS(44896)*X(5090)& - &-JVS(44897)*X(5091)-JVS(44898)*X(5092)-JVS(44899)*X(5093)-JVS(44900)*X(5094)-JVS(44901)*X(5095)-JVS(44902)& - &*X(5096)-JVS(44903)*X(5097)-JVS(44904)*X(5098)-JVS(44905)*X(5099)-JVS(44906)*X(5100)-JVS(44907)*X(5101)& - &-JVS(44908)*X(5102)-JVS(44909)*X(5103)-JVS(44910)*X(5104)-JVS(44911)*X(5105)-JVS(44912)*X(5106)-JVS(44913)& - &*X(5107)-JVS(44914)*X(5108)-JVS(44915)*X(5109)-JVS(44916)*X(5110)-JVS(44917)*X(5111)-JVS(44918)*X(5112)& - &-JVS(44919)*X(5113)-JVS(44920)*X(5114)-JVS(44921)*X(5115)-JVS(44922)*X(5116)-JVS(44923)*X(5117)-JVS(44924)& - &*X(5118)-JVS(44925)*X(5119)-JVS(44926)*X(5120)-JVS(44927)*X(5121)-JVS(44928)*X(5122)-JVS(44929)*X(5123)& - &-JVS(44930)*X(5124)-JVS(44931)*X(5125)-JVS(44932)*X(5126)-JVS(44933)*X(5127)-JVS(44934)*X(5128)-JVS(44935)& - &*X(5129)-JVS(44936)*X(5130)-JVS(44937)*X(5131)-JVS(44938)*X(5132)-JVS(44939)*X(5133)-JVS(44940)*X(5134)& - &-JVS(44941)*X(5135)-JVS(44942)*X(5136)-JVS(44943)*X(5137)-JVS(44944)*X(5138)-JVS(44945)*X(5139)-JVS(44946)& - &*X(5140)-JVS(44947)*X(5141)-JVS(44948)*X(5142)-JVS(44949)*X(5143)-JVS(44950)*X(5144)-JVS(44951)*X(5145)& - &-JVS(44952)*X(5146)-JVS(44953)*X(5147)-JVS(44954)*X(5148)-JVS(44955)*X(5149)-JVS(44956)*X(5150)-JVS(44957)& - &*X(5151)-JVS(44958)*X(5152)-JVS(44959)*X(5153)-JVS(44960)*X(5154)-JVS(44961)*X(5155)-JVS(44962)*X(5156)& - &-JVS(44963)*X(5157)-JVS(44964)*X(5158)-JVS(44965)*X(5159)-JVS(44966)*X(5160)-JVS(44967)*X(5161)-JVS(44968)& - &*X(5162)-JVS(44969)*X(5163)-JVS(44970)*X(5164)-JVS(44971)*X(5165)-JVS(44972)*X(5166)-JVS(44973)*X(5167)& - &-JVS(44974)*X(5168)-JVS(44975)*X(5169)-JVS(44976)*X(5170)-JVS(44977)*X(5171)-JVS(44978)*X(5172)-JVS(44979)& - &*X(5173)-JVS(44980)*X(5174)-JVS(44981)*X(5175)-JVS(44982)*X(5176)-JVS(44983)*X(5177)-JVS(44984)*X(5178)& - &-JVS(44985)*X(5179)-JVS(44986)*X(5180)-JVS(44987)*X(5181)-JVS(44988)*X(5182)-JVS(44989)*X(5183)-JVS(44990)& - &*X(5184)-JVS(44991)*X(5185)-JVS(44992)*X(5186)-JVS(44993)*X(5187)-JVS(44994)*X(5188)-JVS(44995)*X(5189)& - &-JVS(44996)*X(5190)-JVS(44997)*X(5191)-JVS(44998)*X(5192)-JVS(44999)*X(5193)-JVS(45000)*X(5194)-JVS(45001)& - &*X(5195)-JVS(45002)*X(5196)-JVS(45003)*X(5197)-JVS(45004)*X(5198)-JVS(45005)*X(5199)-JVS(45006)*X(5200)& - &-JVS(45007)*X(5201)-JVS(45008)*X(5202)-JVS(45009)*X(5203)-JVS(45010)*X(5204)-JVS(45011)*X(5205)-JVS(45012)& - &*X(5206)-JVS(45013)*X(5207)-JVS(45014)*X(5208)-JVS(45015)*X(5209)-JVS(45016)*X(5210)-JVS(45017)*X(5211)& - &-JVS(45018)*X(5212)-JVS(45019)*X(5213)-JVS(45020)*X(5214)-JVS(45021)*X(5215)-JVS(45022)*X(5216)-JVS(45023)& - &*X(5217)-JVS(45024)*X(5218)-JVS(45025)*X(5219)-JVS(45026)*X(5220)-JVS(45027)*X(5221)-JVS(45028)*X(5222)& - &-JVS(45029)*X(5223)-JVS(45030)*X(5224)-JVS(45031)*X(5225)-JVS(45032)*X(5226)-JVS(45033)*X(5227)-JVS(45034)& - &*X(5228)-JVS(45035)*X(5229)-JVS(45036)*X(5230)-JVS(45037)*X(5231)-JVS(45038)*X(5232)-JVS(45039)*X(5233)& - &-JVS(45040)*X(5234)-JVS(45041)*X(5235)-JVS(45042)*X(5236)-JVS(45043)*X(5237)-JVS(45044)*X(5238)-JVS(45045)& - &*X(5239)-JVS(45046)*X(5240)-JVS(45047)*X(5241)-JVS(45048)*X(5242)-JVS(45049)*X(5243)-JVS(45050)*X(5244)& - &-JVS(45051)*X(5245)-JVS(45052)*X(5246)-JVS(45053)*X(5247)-JVS(45054)*X(5248)-JVS(45055)*X(5249) - X(5251) = X(5251)-JVS(45065)*X(11)-JVS(45066)*X(198)-JVS(45067)*X(451)-JVS(45068)*X(572)-JVS(45069)*X(579)-JVS(45070)& - &*X(591)-JVS(45071)*X(604)-JVS(45072)*X(612)-JVS(45073)*X(626)-JVS(45074)*X(684)-JVS(45075)*X(685)-JVS(45076)& - &*X(686)-JVS(45077)*X(701)-JVS(45078)*X(719)-JVS(45079)*X(759)-JVS(45080)*X(763)-JVS(45081)*X(766)-JVS(45082)& - &*X(771)-JVS(45083)*X(802)-JVS(45084)*X(805)-JVS(45085)*X(1483)-JVS(45086)*X(1570)-JVS(45087)*X(1575)& - &-JVS(45088)*X(1588)-JVS(45089)*X(1598)-JVS(45090)*X(1602)-JVS(45091)*X(1612)-JVS(45092)*X(1619)-JVS(45093)& - &*X(1623)-JVS(45094)*X(1636)-JVS(45095)*X(1639)-JVS(45096)*X(1642)-JVS(45097)*X(1644)-JVS(45098)*X(1682)& - &-JVS(45099)*X(1685)-JVS(45100)*X(1698)-JVS(45101)*X(1734)-JVS(45102)*X(1756)-JVS(45103)*X(1760)-JVS(45104)& - &*X(1769)-JVS(45105)*X(1776)-JVS(45106)*X(1777)-JVS(45107)*X(1791)-JVS(45108)*X(1793)-JVS(45109)*X(1797)& - &-JVS(45110)*X(1806)-JVS(45111)*X(1810)-JVS(45112)*X(1825)-JVS(45113)*X(1828)-JVS(45114)*X(1851)-JVS(45115)& - &*X(1853)-JVS(45116)*X(1857)-JVS(45117)*X(1858)-JVS(45118)*X(1872)-JVS(45119)*X(1875)-JVS(45120)*X(1928)& - &-JVS(45121)*X(1939)-JVS(45122)*X(1951)-JVS(45123)*X(1959)-JVS(45124)*X(1969)-JVS(45125)*X(1981)-JVS(45126)& - &*X(1988)-JVS(45127)*X(1991)-JVS(45128)*X(2003)-JVS(45129)*X(2004)-JVS(45130)*X(2013)-JVS(45131)*X(2024)& - &-JVS(45132)*X(2038)-JVS(45133)*X(2042)-JVS(45134)*X(2104)-JVS(45135)*X(2109)-JVS(45136)*X(2117)-JVS(45137)& - &*X(2132)-JVS(45138)*X(2134)-JVS(45139)*X(2138)-JVS(45140)*X(2141)-JVS(45141)*X(2145)-JVS(45142)*X(2148)& - &-JVS(45143)*X(2170)-JVS(45144)*X(2171)-JVS(45145)*X(2191)-JVS(45146)*X(2197)-JVS(45147)*X(2200)-JVS(45148)& - &*X(2201)-JVS(45149)*X(2209)-JVS(45150)*X(2210)-JVS(45151)*X(2212)-JVS(45152)*X(2234)-JVS(45153)*X(2238)& - &-JVS(45154)*X(2243)-JVS(45155)*X(2255)-JVS(45156)*X(2258)-JVS(45157)*X(2286)-JVS(45158)*X(2287)-JVS(45159)& - &*X(2310)-JVS(45160)*X(2315)-JVS(45161)*X(2335)-JVS(45162)*X(2336)-JVS(45163)*X(2345)-JVS(45164)*X(2346)& - &-JVS(45165)*X(2357)-JVS(45166)*X(2376)-JVS(45167)*X(2392)-JVS(45168)*X(2395)-JVS(45169)*X(2430)-JVS(45170)& - &*X(2448)-JVS(45171)*X(2467)-JVS(45172)*X(2472)-JVS(45173)*X(2474)-JVS(45174)*X(2475)-JVS(45175)*X(2476)& - &-JVS(45176)*X(2477)-JVS(45177)*X(2479)-JVS(45178)*X(2481)-JVS(45179)*X(2482)-JVS(45180)*X(2483)-JVS(45181)& - &*X(2484)-JVS(45182)*X(2485)-JVS(45183)*X(2486)-JVS(45184)*X(2487)-JVS(45185)*X(2489)-JVS(45186)*X(2494)& - &-JVS(45187)*X(2496)-JVS(45188)*X(2498)-JVS(45189)*X(2500)-JVS(45190)*X(2501)-JVS(45191)*X(2504)-JVS(45192)& - &*X(2505)-JVS(45193)*X(2507)-JVS(45194)*X(2510)-JVS(45195)*X(2511)-JVS(45196)*X(2515)-JVS(45197)*X(2517)& - &-JVS(45198)*X(2518)-JVS(45199)*X(2522)-JVS(45200)*X(2523)-JVS(45201)*X(2525)-JVS(45202)*X(2526)-JVS(45203)& - &*X(2527)-JVS(45204)*X(2529)-JVS(45205)*X(2530)-JVS(45206)*X(2531)-JVS(45207)*X(2533)-JVS(45208)*X(2537)& - &-JVS(45209)*X(2538)-JVS(45210)*X(2541)-JVS(45211)*X(2552)-JVS(45212)*X(2554)-JVS(45213)*X(2559)-JVS(45214)& - &*X(2560)-JVS(45215)*X(2564)-JVS(45216)*X(2567)-JVS(45217)*X(2568)-JVS(45218)*X(2569)-JVS(45219)*X(2573)& - &-JVS(45220)*X(2576)-JVS(45221)*X(2579)-JVS(45222)*X(2582)-JVS(45223)*X(2583)-JVS(45224)*X(2584)-JVS(45225)& - &*X(2587)-JVS(45226)*X(2593)-JVS(45227)*X(2597)-JVS(45228)*X(2600)-JVS(45229)*X(2601)-JVS(45230)*X(2607)& - &-JVS(45231)*X(2608)-JVS(45232)*X(2609)-JVS(45233)*X(2611)-JVS(45234)*X(2612)-JVS(45235)*X(2613)-JVS(45236)& - &*X(2615)-JVS(45237)*X(2616)-JVS(45238)*X(2617)-JVS(45239)*X(2620)-JVS(45240)*X(2622)-JVS(45241)*X(2630)& - &-JVS(45242)*X(2631)-JVS(45243)*X(2632)-JVS(45244)*X(2636)-JVS(45245)*X(2637)-JVS(45246)*X(2640)-JVS(45247)& - &*X(2643)-JVS(45248)*X(2645)-JVS(45249)*X(2648)-JVS(45250)*X(2651)-JVS(45251)*X(2652)-JVS(45252)*X(2654)& - &-JVS(45253)*X(2655)-JVS(45254)*X(2656)-JVS(45255)*X(2657)-JVS(45256)*X(2658)-JVS(45257)*X(2660)-JVS(45258)& - &*X(2663)-JVS(45259)*X(2666)-JVS(45260)*X(2667)-JVS(45261)*X(2669)-JVS(45262)*X(2670)-JVS(45263)*X(2671)& - &-JVS(45264)*X(2674)-JVS(45265)*X(2675)-JVS(45266)*X(2677)-JVS(45267)*X(2678)-JVS(45268)*X(2679)-JVS(45269)& - &*X(2684)-JVS(45270)*X(2685)-JVS(45271)*X(2688)-JVS(45272)*X(2689)-JVS(45273)*X(2690)-JVS(45274)*X(2691)& - &-JVS(45275)*X(2692)-JVS(45276)*X(2696)-JVS(45277)*X(2698)-JVS(45278)*X(2702)-JVS(45279)*X(2703)-JVS(45280)& - &*X(2704)-JVS(45281)*X(2708)-JVS(45282)*X(2712)-JVS(45283)*X(2714)-JVS(45284)*X(2718)-JVS(45285)*X(2724)& - &-JVS(45286)*X(2725)-JVS(45287)*X(2726)-JVS(45288)*X(2727)-JVS(45289)*X(2729)-JVS(45290)*X(2737)-JVS(45291)& - &*X(2738)-JVS(45292)*X(2739)-JVS(45293)*X(2743)-JVS(45294)*X(2748)-JVS(45295)*X(2749)-JVS(45296)*X(2751)& - &-JVS(45297)*X(2754)-JVS(45298)*X(2755)-JVS(45299)*X(2756)-JVS(45300)*X(2757)-JVS(45301)*X(2758)-JVS(45302)& - &*X(2763)-JVS(45303)*X(2765)-JVS(45304)*X(2768)-JVS(45305)*X(2769)-JVS(45306)*X(2772)-JVS(45307)*X(2777)& - &-JVS(45308)*X(2778)-JVS(45309)*X(2779)-JVS(45310)*X(2780)-JVS(45311)*X(2781)-JVS(45312)*X(2784)-JVS(45313)& - &*X(2786)-JVS(45314)*X(2787)-JVS(45315)*X(2788)-JVS(45316)*X(2790)-JVS(45317)*X(2791)-JVS(45318)*X(2792)& - &-JVS(45319)*X(2793)-JVS(45320)*X(2794)-JVS(45321)*X(2796)-JVS(45322)*X(2797)-JVS(45323)*X(2800)-JVS(45324)& - &*X(2801)-JVS(45325)*X(2803)-JVS(45326)*X(2804)-JVS(45327)*X(2805)-JVS(45328)*X(2807)-JVS(45329)*X(2808)& - &-JVS(45330)*X(2809)-JVS(45331)*X(2811)-JVS(45332)*X(2813)-JVS(45333)*X(2815)-JVS(45334)*X(2819)-JVS(45335)& - &*X(2820)-JVS(45336)*X(2822)-JVS(45337)*X(2823)-JVS(45338)*X(2824)-JVS(45339)*X(2825)-JVS(45340)*X(2828)& - &-JVS(45341)*X(2829)-JVS(45342)*X(2830)-JVS(45343)*X(2836)-JVS(45344)*X(2837)-JVS(45345)*X(2838)-JVS(45346)& - &*X(2841)-JVS(45347)*X(2842)-JVS(45348)*X(2843)-JVS(45349)*X(2844)-JVS(45350)*X(2845)-JVS(45351)*X(2846)& - &-JVS(45352)*X(2848)-JVS(45353)*X(2850)-JVS(45354)*X(2852)-JVS(45355)*X(2853)-JVS(45356)*X(2858)-JVS(45357)& - &*X(2860)-JVS(45358)*X(2861)-JVS(45359)*X(2862)-JVS(45360)*X(2864)-JVS(45361)*X(2867)-JVS(45362)*X(2872)& - &-JVS(45363)*X(2873)-JVS(45364)*X(2875)-JVS(45365)*X(2876)-JVS(45366)*X(2877)-JVS(45367)*X(2879)-JVS(45368)& - &*X(2880)-JVS(45369)*X(2881)-JVS(45370)*X(2882)-JVS(45371)*X(2883)-JVS(45372)*X(2884)-JVS(45373)*X(2885)& - &-JVS(45374)*X(2886)-JVS(45375)*X(2887)-JVS(45376)*X(2890)-JVS(45377)*X(2894)-JVS(45378)*X(2895)-JVS(45379)& - &*X(2896)-JVS(45380)*X(2898)-JVS(45381)*X(2899)-JVS(45382)*X(2900)-JVS(45383)*X(2904)-JVS(45384)*X(2905)& - &-JVS(45385)*X(2907)-JVS(45386)*X(2911)-JVS(45387)*X(2915)-JVS(45388)*X(2919)-JVS(45389)*X(2921)-JVS(45390)& - &*X(2924)-JVS(45391)*X(2925)-JVS(45392)*X(2927)-JVS(45393)*X(2928)-JVS(45394)*X(2929)-JVS(45395)*X(2930)& - &-JVS(45396)*X(2936)-JVS(45397)*X(2941)-JVS(45398)*X(2945)-JVS(45399)*X(2947)-JVS(45400)*X(2951)-JVS(45401)& - &*X(2955)-JVS(45402)*X(2956)-JVS(45403)*X(2958)-JVS(45404)*X(2960)-JVS(45405)*X(2966)-JVS(45406)*X(2968)& - &-JVS(45407)*X(2969)-JVS(45408)*X(2971)-JVS(45409)*X(2975)-JVS(45410)*X(2977)-JVS(45411)*X(2978)-JVS(45412)& - &*X(2980)-JVS(45413)*X(2984)-JVS(45414)*X(2987)-JVS(45415)*X(2988)-JVS(45416)*X(2989)-JVS(45417)*X(2991)& - &-JVS(45418)*X(2992)-JVS(45419)*X(2993)-JVS(45420)*X(2998)-JVS(45421)*X(3003)-JVS(45422)*X(3007)-JVS(45423)& - &*X(3008)-JVS(45424)*X(3010)-JVS(45425)*X(3011)-JVS(45426)*X(3012)-JVS(45427)*X(3014)-JVS(45428)*X(3017)& - &-JVS(45429)*X(3020)-JVS(45430)*X(3021)-JVS(45431)*X(3022)-JVS(45432)*X(3023)-JVS(45433)*X(3024)-JVS(45434)& - &*X(3025)-JVS(45435)*X(3026)-JVS(45436)*X(3033)-JVS(45437)*X(3040)-JVS(45438)*X(3041)-JVS(45439)*X(3042)& - &-JVS(45440)*X(3043)-JVS(45441)*X(3044)-JVS(45442)*X(3047)-JVS(45443)*X(3051)-JVS(45444)*X(3052)-JVS(45445)& - &*X(3053)-JVS(45446)*X(3056)-JVS(45447)*X(3058)-JVS(45448)*X(3060)-JVS(45449)*X(3062)-JVS(45450)*X(3063)& - &-JVS(45451)*X(3067)-JVS(45452)*X(3070)-JVS(45453)*X(3073)-JVS(45454)*X(3075)-JVS(45455)*X(3099)-JVS(45456)& - &*X(3107)-JVS(45457)*X(3108)-JVS(45458)*X(3115)-JVS(45459)*X(3132)-JVS(45460)*X(3133)-JVS(45461)*X(3147)& - &-JVS(45462)*X(3154)-JVS(45463)*X(3155)-JVS(45464)*X(3160)-JVS(45465)*X(3171)-JVS(45466)*X(3176)-JVS(45467)& - &*X(3177)-JVS(45468)*X(3186)-JVS(45469)*X(3196)-JVS(45470)*X(3197)-JVS(45471)*X(3199)-JVS(45472)*X(3200)& - &-JVS(45473)*X(3201)-JVS(45474)*X(3202)-JVS(45475)*X(3204)-JVS(45476)*X(3206)-JVS(45477)*X(3207)-JVS(45478)& - &*X(3210)-JVS(45479)*X(3214)-JVS(45480)*X(3215)-JVS(45481)*X(3216)-JVS(45482)*X(3217)-JVS(45483)*X(3218)& - &-JVS(45484)*X(3220)-JVS(45485)*X(3221)-JVS(45486)*X(3223)-JVS(45487)*X(3224)-JVS(45488)*X(3225)-JVS(45489)& - &*X(3226)-JVS(45490)*X(3227)-JVS(45491)*X(3228)-JVS(45492)*X(3229)-JVS(45493)*X(3230)-JVS(45494)*X(3232)& - &-JVS(45495)*X(3236)-JVS(45496)*X(3238)-JVS(45497)*X(3239)-JVS(45498)*X(3240)-JVS(45499)*X(3248)-JVS(45500)& - &*X(3249)-JVS(45501)*X(3250)-JVS(45502)*X(3251)-JVS(45503)*X(3252)-JVS(45504)*X(3254)-JVS(45505)*X(3255)& - &-JVS(45506)*X(3257)-JVS(45507)*X(3258)-JVS(45508)*X(3259)-JVS(45509)*X(3260)-JVS(45510)*X(3262)-JVS(45511)& - &*X(3267)-JVS(45512)*X(3269)-JVS(45513)*X(3273)-JVS(45514)*X(3274)-JVS(45515)*X(3275)-JVS(45516)*X(3276)& - &-JVS(45517)*X(3280)-JVS(45518)*X(3281)-JVS(45519)*X(3282)-JVS(45520)*X(3286)-JVS(45521)*X(3287)-JVS(45522)& - &*X(3290)-JVS(45523)*X(3291)-JVS(45524)*X(3292)-JVS(45525)*X(3293)-JVS(45526)*X(3294)-JVS(45527)*X(3297)& - &-JVS(45528)*X(3300)-JVS(45529)*X(3301)-JVS(45530)*X(3302)-JVS(45531)*X(3303)-JVS(45532)*X(3306)-JVS(45533)& - &*X(3307)-JVS(45534)*X(3309)-JVS(45535)*X(3311)-JVS(45536)*X(3312)-JVS(45537)*X(3313)-JVS(45538)*X(3315)& - &-JVS(45539)*X(3316)-JVS(45540)*X(3317)-JVS(45541)*X(3318)-JVS(45542)*X(3323)-JVS(45543)*X(3324)-JVS(45544)& - &*X(3325)-JVS(45545)*X(3327)-JVS(45546)*X(3329)-JVS(45547)*X(3330)-JVS(45548)*X(3336)-JVS(45549)*X(3337)& - &-JVS(45550)*X(3339)-JVS(45551)*X(3340)-JVS(45552)*X(3344)-JVS(45553)*X(3345)-JVS(45554)*X(3348)-JVS(45555)& - &*X(3350)-JVS(45556)*X(3352)-JVS(45557)*X(3353)-JVS(45558)*X(3355)-JVS(45559)*X(3356)-JVS(45560)*X(3357)& - &-JVS(45561)*X(3358)-JVS(45562)*X(3359)-JVS(45563)*X(3360)-JVS(45564)*X(3365)-JVS(45565)*X(3370)-JVS(45566)& - &*X(3375)-JVS(45567)*X(3378)-JVS(45568)*X(3379)-JVS(45569)*X(3387)-JVS(45570)*X(3389)-JVS(45571)*X(3397)& - &-JVS(45572)*X(3400)-JVS(45573)*X(3406)-JVS(45574)*X(3408)-JVS(45575)*X(3411)-JVS(45576)*X(3419)-JVS(45577)& - &*X(3426)-JVS(45578)*X(3427)-JVS(45579)*X(3431)-JVS(45580)*X(3436)-JVS(45581)*X(3441)-JVS(45582)*X(3446)& - &-JVS(45583)*X(3448)-JVS(45584)*X(3449)-JVS(45585)*X(3450)-JVS(45586)*X(3451)-JVS(45587)*X(3452)-JVS(45588)& - &*X(3454)-JVS(45589)*X(3458)-JVS(45590)*X(3459)-JVS(45591)*X(3462)-JVS(45592)*X(3463)-JVS(45593)*X(3467)& - &-JVS(45594)*X(3468)-JVS(45595)*X(3469)-JVS(45596)*X(3470)-JVS(45597)*X(3471)-JVS(45598)*X(3475)-JVS(45599)& - &*X(3479)-JVS(45600)*X(3480)-JVS(45601)*X(3483)-JVS(45602)*X(3484)-JVS(45603)*X(3487)-JVS(45604)*X(3488)& - &-JVS(45605)*X(3495)-JVS(45606)*X(3501)-JVS(45607)*X(3502)-JVS(45608)*X(3510)-JVS(45609)*X(3515)-JVS(45610)& - &*X(3520)-JVS(45611)*X(3524)-JVS(45612)*X(3526)-JVS(45613)*X(3529)-JVS(45614)*X(3533)-JVS(45615)*X(3540)& - &-JVS(45616)*X(3543)-JVS(45617)*X(3546)-JVS(45618)*X(3547)-JVS(45619)*X(3550)-JVS(45620)*X(3552)-JVS(45621)& - &*X(3557)-JVS(45622)*X(3559)-JVS(45623)*X(3566)-JVS(45624)*X(3571)-JVS(45625)*X(3574)-JVS(45626)*X(3582)& - &-JVS(45627)*X(3587)-JVS(45628)*X(3590)-JVS(45629)*X(3593)-JVS(45630)*X(3595)-JVS(45631)*X(3596)-JVS(45632)& - &*X(3601)-JVS(45633)*X(3603)-JVS(45634)*X(3604)-JVS(45635)*X(3607)-JVS(45636)*X(3611)-JVS(45637)*X(3612)& - &-JVS(45638)*X(3615)-JVS(45639)*X(3618)-JVS(45640)*X(3620)-JVS(45641)*X(3622)-JVS(45642)*X(3624)-JVS(45643)& - &*X(3626)-JVS(45644)*X(3628)-JVS(45645)*X(3630)-JVS(45646)*X(3633)-JVS(45647)*X(3635)-JVS(45648)*X(3639)& - &-JVS(45649)*X(3640)-JVS(45650)*X(3643)-JVS(45651)*X(3644)-JVS(45652)*X(3645)-JVS(45653)*X(3647)-JVS(45654)& - &*X(3649)-JVS(45655)*X(3652)-JVS(45656)*X(3653)-JVS(45657)*X(3655)-JVS(45658)*X(3657)-JVS(45659)*X(3661)& - &-JVS(45660)*X(3662)-JVS(45661)*X(3666)-JVS(45662)*X(3672)-JVS(45663)*X(3673)-JVS(45664)*X(3681)-JVS(45665)& - &*X(3683)-JVS(45666)*X(3684)-JVS(45667)*X(3689)-JVS(45668)*X(3693)-JVS(45669)*X(3701)-JVS(45670)*X(3702)& - &-JVS(45671)*X(3707)-JVS(45672)*X(3708)-JVS(45673)*X(3709)-JVS(45674)*X(3712)-JVS(45675)*X(3726)-JVS(45676)& - &*X(3729)-JVS(45677)*X(3732)-JVS(45678)*X(3736)-JVS(45679)*X(3737)-JVS(45680)*X(3742)-JVS(45681)*X(3748)& - &-JVS(45682)*X(3755)-JVS(45683)*X(3759)-JVS(45684)*X(3763)-JVS(45685)*X(3773)-JVS(45686)*X(3775)-JVS(45687)& - &*X(3780)-JVS(45688)*X(3783)-JVS(45689)*X(3787)-JVS(45690)*X(3792)-JVS(45691)*X(3800)-JVS(45692)*X(3801)& - &-JVS(45693)*X(3809)-JVS(45694)*X(3810)-JVS(45695)*X(3814)-JVS(45696)*X(3816)-JVS(45697)*X(3829)-JVS(45698)& - &*X(3831)-JVS(45699)*X(3832)-JVS(45700)*X(3833)-JVS(45701)*X(3834)-JVS(45702)*X(3835)-JVS(45703)*X(3837)& - &-JVS(45704)*X(3851)-JVS(45705)*X(3856)-JVS(45706)*X(3857)-JVS(45707)*X(3861)-JVS(45708)*X(3862)-JVS(45709)& - &*X(3875)-JVS(45710)*X(3877)-JVS(45711)*X(3879)-JVS(45712)*X(3892)-JVS(45713)*X(3896)-JVS(45714)*X(3900)& - &-JVS(45715)*X(3911)-JVS(45716)*X(3913)-JVS(45717)*X(3914)-JVS(45718)*X(3915)-JVS(45719)*X(3923)-JVS(45720)& - &*X(3924)-JVS(45721)*X(3930)-JVS(45722)*X(3931)-JVS(45723)*X(3934)-JVS(45724)*X(3935)-JVS(45725)*X(3937)& - &-JVS(45726)*X(3938)-JVS(45727)*X(3945)-JVS(45728)*X(3946)-JVS(45729)*X(3947)-JVS(45730)*X(3958)-JVS(45731)& - &*X(3960)-JVS(45732)*X(3964)-JVS(45733)*X(3965)-JVS(45734)*X(3968)-JVS(45735)*X(3972)-JVS(45736)*X(3986)& - &-JVS(45737)*X(3991)-JVS(45738)*X(3992)-JVS(45739)*X(3993)-JVS(45740)*X(3995)-JVS(45741)*X(3996)-JVS(45742)& - &*X(4010)-JVS(45743)*X(4013)-JVS(45744)*X(4014)-JVS(45745)*X(4017)-JVS(45746)*X(4018)-JVS(45747)*X(4024)& - &-JVS(45748)*X(4025)-JVS(45749)*X(4026)-JVS(45750)*X(4027)-JVS(45751)*X(4029)-JVS(45752)*X(4031)-JVS(45753)& - &*X(4032)-JVS(45754)*X(4046)-JVS(45755)*X(4047)-JVS(45756)*X(4051)-JVS(45757)*X(4053)-JVS(45758)*X(4056)& - &-JVS(45759)*X(4060)-JVS(45760)*X(4062)-JVS(45761)*X(4066)-JVS(45762)*X(4069)-JVS(45763)*X(4070)-JVS(45764)& - &*X(4071)-JVS(45765)*X(4076)-JVS(45766)*X(4080)-JVS(45767)*X(4081)-JVS(45768)*X(4083)-JVS(45769)*X(4084)& - &-JVS(45770)*X(4086)-JVS(45771)*X(4093)-JVS(45772)*X(4094)-JVS(45773)*X(4096)-JVS(45774)*X(4098)-JVS(45775)& - &*X(4100)-JVS(45776)*X(4101)-JVS(45777)*X(4105)-JVS(45778)*X(4106)-JVS(45779)*X(4107)-JVS(45780)*X(4108)& - &-JVS(45781)*X(4110)-JVS(45782)*X(4113)-JVS(45783)*X(4114)-JVS(45784)*X(4115)-JVS(45785)*X(4118)-JVS(45786)& - &*X(4120)-JVS(45787)*X(4123)-JVS(45788)*X(4125)-JVS(45789)*X(4126)-JVS(45790)*X(4129)-JVS(45791)*X(4130)& - &-JVS(45792)*X(4131)-JVS(45793)*X(4134)-JVS(45794)*X(4135)-JVS(45795)*X(4136)-JVS(45796)*X(4138)-JVS(45797)& - &*X(4139)-JVS(45798)*X(4142)-JVS(45799)*X(4144)-JVS(45800)*X(4147)-JVS(45801)*X(4149)-JVS(45802)*X(4151)& - &-JVS(45803)*X(4152)-JVS(45804)*X(4153)-JVS(45805)*X(4155)-JVS(45806)*X(4156)-JVS(45807)*X(4160)-JVS(45808)& - &*X(4161)-JVS(45809)*X(4163)-JVS(45810)*X(4170)-JVS(45811)*X(4174)-JVS(45812)*X(4175)-JVS(45813)*X(4178)& - &-JVS(45814)*X(4181)-JVS(45815)*X(4182)-JVS(45816)*X(4184)-JVS(45817)*X(4186)-JVS(45818)*X(4187)-JVS(45819)& - &*X(4188)-JVS(45820)*X(4191)-JVS(45821)*X(4199)-JVS(45822)*X(4202)-JVS(45823)*X(4203)-JVS(45824)*X(4206)& - &-JVS(45825)*X(4207)-JVS(45826)*X(4209)-JVS(45827)*X(4213)-JVS(45828)*X(4214)-JVS(45829)*X(4215)-JVS(45830)& - &*X(4218)-JVS(45831)*X(4220)-JVS(45832)*X(4221)-JVS(45833)*X(4222)-JVS(45834)*X(4224)-JVS(45835)*X(4227)& - &-JVS(45836)*X(4229)-JVS(45837)*X(4230)-JVS(45838)*X(4231)-JVS(45839)*X(4233)-JVS(45840)*X(4239)-JVS(45841)& - &*X(4243)-JVS(45842)*X(4244)-JVS(45843)*X(4247)-JVS(45844)*X(4250)-JVS(45845)*X(4255)-JVS(45846)*X(4258)& - &-JVS(45847)*X(4259)-JVS(45848)*X(4260)-JVS(45849)*X(4261)-JVS(45850)*X(4264)-JVS(45851)*X(4266)-JVS(45852)& - &*X(4267)-JVS(45853)*X(4269)-JVS(45854)*X(4272)-JVS(45855)*X(4275)-JVS(45856)*X(4277)-JVS(45857)*X(4278)& - &-JVS(45858)*X(4279)-JVS(45859)*X(4281)-JVS(45860)*X(4282)-JVS(45861)*X(4283)-JVS(45862)*X(4286)-JVS(45863)& - &*X(4288)-JVS(45864)*X(4299)-JVS(45865)*X(4301)-JVS(45866)*X(4302)-JVS(45867)*X(4308)-JVS(45868)*X(4313)& - &-JVS(45869)*X(4316)-JVS(45870)*X(4320)-JVS(45871)*X(4321)-JVS(45872)*X(4322)-JVS(45873)*X(4323)-JVS(45874)& - &*X(4324)-JVS(45875)*X(4325)-JVS(45876)*X(4327)-JVS(45877)*X(4328)-JVS(45878)*X(4330)-JVS(45879)*X(4331)& - &-JVS(45880)*X(4332)-JVS(45881)*X(4333)-JVS(45882)*X(4335)-JVS(45883)*X(4338)-JVS(45884)*X(4339)-JVS(45885)& - &*X(4341)-JVS(45886)*X(4346)-JVS(45887)*X(4348)-JVS(45888)*X(4350)-JVS(45889)*X(4353)-JVS(45890)*X(4358)& - &-JVS(45891)*X(4359)-JVS(45892)*X(4362)-JVS(45893)*X(4364)-JVS(45894)*X(4367)-JVS(45895)*X(4373)-JVS(45896)& - &*X(4375)-JVS(45897)*X(4377)-JVS(45898)*X(4379)-JVS(45899)*X(4380)-JVS(45900)*X(4381)-JVS(45901)*X(4382)& - &-JVS(45902)*X(4384)-JVS(45903)*X(4385)-JVS(45904)*X(4388)-JVS(45905)*X(4393)-JVS(45906)*X(4395)-JVS(45907)& - &*X(4396)-JVS(45908)*X(4398)-JVS(45909)*X(4404)-JVS(45910)*X(4405)-JVS(45911)*X(4406)-JVS(45912)*X(4409)& - &-JVS(45913)*X(4410)-JVS(45914)*X(4412)-JVS(45915)*X(4414)-JVS(45916)*X(4417)-JVS(45917)*X(4418)-JVS(45918)& - &*X(4419)-JVS(45919)*X(4420)-JVS(45920)*X(4421)-JVS(45921)*X(4424)-JVS(45922)*X(4425)-JVS(45923)*X(4427)& - &-JVS(45924)*X(4428)-JVS(45925)*X(4429)-JVS(45926)*X(4430)-JVS(45927)*X(4431)-JVS(45928)*X(4432)-JVS(45929)& - &*X(4433)-JVS(45930)*X(4435)-JVS(45931)*X(4436)-JVS(45932)*X(4439)-JVS(45933)*X(4443)-JVS(45934)*X(4447)& - &-JVS(45935)*X(4448)-JVS(45936)*X(4449)-JVS(45937)*X(4450)-JVS(45938)*X(4451)-JVS(45939)*X(4452)-JVS(45940)& - &*X(4458)-JVS(45941)*X(4459)-JVS(45942)*X(4461)-JVS(45943)*X(4462)-JVS(45944)*X(4464)-JVS(45945)*X(4465)& - &-JVS(45946)*X(4467)-JVS(45947)*X(4468)-JVS(45948)*X(4469)-JVS(45949)*X(4470)-JVS(45950)*X(4472)-JVS(45951)& - &*X(4474)-JVS(45952)*X(4475)-JVS(45953)*X(4477)-JVS(45954)*X(4484)-JVS(45955)*X(4485)-JVS(45956)*X(4486)& - &-JVS(45957)*X(4488)-JVS(45958)*X(4490)-JVS(45959)*X(4491)-JVS(45960)*X(4492)-JVS(45961)*X(4496)-JVS(45962)& - &*X(4500)-JVS(45963)*X(4501)-JVS(45964)*X(4502)-JVS(45965)*X(4503)-JVS(45966)*X(4505)-JVS(45967)*X(4508)& - &-JVS(45968)*X(4510)-JVS(45969)*X(4511)-JVS(45970)*X(4512)-JVS(45971)*X(4513)-JVS(45972)*X(4515)-JVS(45973)& - &*X(4516)-JVS(45974)*X(4517)-JVS(45975)*X(4518)-JVS(45976)*X(4519)-JVS(45977)*X(4520)-JVS(45978)*X(4521)& - &-JVS(45979)*X(4522)-JVS(45980)*X(4523)-JVS(45981)*X(4525)-JVS(45982)*X(4526)-JVS(45983)*X(4527)-JVS(45984)& - &*X(4528)-JVS(45985)*X(4530)-JVS(45986)*X(4532)-JVS(45987)*X(4533)-JVS(45988)*X(4534)-JVS(45989)*X(4535)& - &-JVS(45990)*X(4536)-JVS(45991)*X(4537)-JVS(45992)*X(4539)-JVS(45993)*X(4540)-JVS(45994)*X(4542)-JVS(45995)& - &*X(4543)-JVS(45996)*X(4544)-JVS(45997)*X(4546)-JVS(45998)*X(4547)-JVS(45999)*X(4548)-JVS(46000)*X(4551)& - &-JVS(46001)*X(4553)-JVS(46002)*X(4554)-JVS(46003)*X(4555)-JVS(46004)*X(4556)-JVS(46005)*X(4557)-JVS(46006)& - &*X(4558)-JVS(46007)*X(4559)-JVS(46008)*X(4561)-JVS(46009)*X(4563)-JVS(46010)*X(4565)-JVS(46011)*X(4569)& - &-JVS(46012)*X(4570)-JVS(46013)*X(4572)-JVS(46014)*X(4574)-JVS(46015)*X(4575)-JVS(46016)*X(4576)-JVS(46017)& - &*X(4584)-JVS(46018)*X(4585)-JVS(46019)*X(4588)-JVS(46020)*X(4589)-JVS(46021)*X(4591)-JVS(46022)*X(4594)& - &-JVS(46023)*X(4595)-JVS(46024)*X(4596)-JVS(46025)*X(4599)-JVS(46026)*X(4600)-JVS(46027)*X(4601)-JVS(46028)& - &*X(4602)-JVS(46029)*X(4603)-JVS(46030)*X(4604)-JVS(46031)*X(4605)-JVS(46032)*X(4606)-JVS(46033)*X(4609)& - &-JVS(46034)*X(4610)-JVS(46035)*X(4611)-JVS(46036)*X(4613)-JVS(46037)*X(4615)-JVS(46038)*X(4616)-JVS(46039)& - &*X(4617)-JVS(46040)*X(4619)-JVS(46041)*X(4620)-JVS(46042)*X(4621)-JVS(46043)*X(4622)-JVS(46044)*X(4623)& - &-JVS(46045)*X(4624)-JVS(46046)*X(4625)-JVS(46047)*X(4626)-JVS(46048)*X(4627)-JVS(46049)*X(4628)-JVS(46050)& - &*X(4629)-JVS(46051)*X(4630)-JVS(46052)*X(4631)-JVS(46053)*X(4633)-JVS(46054)*X(4634)-JVS(46055)*X(4635)& - &-JVS(46056)*X(4636)-JVS(46057)*X(4637)-JVS(46058)*X(4638)-JVS(46059)*X(4639)-JVS(46060)*X(4640)-JVS(46061)& - &*X(4641)-JVS(46062)*X(4642)-JVS(46063)*X(4643)-JVS(46064)*X(4648)-JVS(46065)*X(4649)-JVS(46066)*X(4650)& - &-JVS(46067)*X(4651)-JVS(46068)*X(4652)-JVS(46069)*X(4653)-JVS(46070)*X(4655)-JVS(46071)*X(4657)-JVS(46072)& - &*X(4658)-JVS(46073)*X(4659)-JVS(46074)*X(4660)-JVS(46075)*X(4661)-JVS(46076)*X(4662)-JVS(46077)*X(4664)& - &-JVS(46078)*X(4665)-JVS(46079)*X(4667)-JVS(46080)*X(4668)-JVS(46081)*X(4669)-JVS(46082)*X(4670)-JVS(46083)& - &*X(4672)-JVS(46084)*X(4675)-JVS(46085)*X(4677)-JVS(46086)*X(4678)-JVS(46087)*X(4679)-JVS(46088)*X(4680)& - &-JVS(46089)*X(4681)-JVS(46090)*X(4683)-JVS(46091)*X(4684)-JVS(46092)*X(4686)-JVS(46093)*X(4687)-JVS(46094)& - &*X(4688)-JVS(46095)*X(4689)-JVS(46096)*X(4691)-JVS(46097)*X(4692)-JVS(46098)*X(4694)-JVS(46099)*X(4695)& - &-JVS(46100)*X(4696)-JVS(46101)*X(4697)-JVS(46102)*X(4698)-JVS(46103)*X(4699)-JVS(46104)*X(4701)-JVS(46105)& - &*X(4703)-JVS(46106)*X(4704)-JVS(46107)*X(4705)-JVS(46108)*X(4706)-JVS(46109)*X(4707)-JVS(46110)*X(4708)& - &-JVS(46111)*X(4709)-JVS(46112)*X(4710)-JVS(46113)*X(4711)-JVS(46114)*X(4712)-JVS(46115)*X(4713)-JVS(46116)& - &*X(4714)-JVS(46117)*X(4715)-JVS(46118)*X(4716)-JVS(46119)*X(4717)-JVS(46120)*X(4718)-JVS(46121)*X(4720)& - &-JVS(46122)*X(4721)-JVS(46123)*X(4725)-JVS(46124)*X(4726)-JVS(46125)*X(4727)-JVS(46126)*X(4728)-JVS(46127)& - &*X(4729)-JVS(46128)*X(4730)-JVS(46129)*X(4731)-JVS(46130)*X(4732)-JVS(46131)*X(4733)-JVS(46132)*X(4734)& - &-JVS(46133)*X(4735)-JVS(46134)*X(4737)-JVS(46135)*X(4738)-JVS(46136)*X(4739)-JVS(46137)*X(4741)-JVS(46138)& - &*X(4742)-JVS(46139)*X(4743)-JVS(46140)*X(4744)-JVS(46141)*X(4746)-JVS(46142)*X(4747)-JVS(46143)*X(4749)& - &-JVS(46144)*X(4750)-JVS(46145)*X(4751)-JVS(46146)*X(4752)-JVS(46147)*X(4753)-JVS(46148)*X(4756)-JVS(46149)& - &*X(4757)-JVS(46150)*X(4758)-JVS(46151)*X(4759)-JVS(46152)*X(4760)-JVS(46153)*X(4761)-JVS(46154)*X(4763)& - &-JVS(46155)*X(4765)-JVS(46156)*X(4769)-JVS(46157)*X(4770)-JVS(46158)*X(4771)-JVS(46159)*X(4773)-JVS(46160)& - &*X(4774)-JVS(46161)*X(4775)-JVS(46162)*X(4776)-JVS(46163)*X(4777)-JVS(46164)*X(4778)-JVS(46165)*X(4779)& - &-JVS(46166)*X(4783)-JVS(46167)*X(4785)-JVS(46168)*X(4786)-JVS(46169)*X(4788)-JVS(46170)*X(4789)-JVS(46171)& - &*X(4790)-JVS(46172)*X(4791)-JVS(46173)*X(4792)-JVS(46174)*X(4793)-JVS(46175)*X(4794)-JVS(46176)*X(4795)& - &-JVS(46177)*X(4796)-JVS(46178)*X(4797)-JVS(46179)*X(4798)-JVS(46180)*X(4799)-JVS(46181)*X(4803)-JVS(46182)& - &*X(4804)-JVS(46183)*X(4805)-JVS(46184)*X(4806)-JVS(46185)*X(4807)-JVS(46186)*X(4808)-JVS(46187)*X(4809)& - &-JVS(46188)*X(4810)-JVS(46189)*X(4811)-JVS(46190)*X(4812)-JVS(46191)*X(4813)-JVS(46192)*X(4814)-JVS(46193)& - &*X(4815)-JVS(46194)*X(4816)-JVS(46195)*X(4817)-JVS(46196)*X(4818)-JVS(46197)*X(4819)-JVS(46198)*X(4820)& - &-JVS(46199)*X(4821)-JVS(46200)*X(4822)-JVS(46201)*X(4823)-JVS(46202)*X(4824)-JVS(46203)*X(4825)-JVS(46204)& - &*X(4826)-JVS(46205)*X(4828)-JVS(46206)*X(4829)-JVS(46207)*X(4830)-JVS(46208)*X(4831)-JVS(46209)*X(4832)& - &-JVS(46210)*X(4833)-JVS(46211)*X(4834)-JVS(46212)*X(4835)-JVS(46213)*X(4836)-JVS(46214)*X(4838)-JVS(46215)& - &*X(4840)-JVS(46216)*X(4842)-JVS(46217)*X(4843)-JVS(46218)*X(4845)-JVS(46219)*X(4846)-JVS(46220)*X(4847)& - &-JVS(46221)*X(4848)-JVS(46222)*X(4849)-JVS(46223)*X(4850)-JVS(46224)*X(4851)-JVS(46225)*X(4853)-JVS(46226)& - &*X(4854)-JVS(46227)*X(4855)-JVS(46228)*X(4857)-JVS(46229)*X(4859)-JVS(46230)*X(4860)-JVS(46231)*X(4861)& - &-JVS(46232)*X(4862)-JVS(46233)*X(4863)-JVS(46234)*X(4864)-JVS(46235)*X(4865)-JVS(46236)*X(4866)-JVS(46237)& - &*X(4867)-JVS(46238)*X(4868)-JVS(46239)*X(4869)-JVS(46240)*X(4872)-JVS(46241)*X(4873)-JVS(46242)*X(4874)& - &-JVS(46243)*X(4875)-JVS(46244)*X(4877)-JVS(46245)*X(4878)-JVS(46246)*X(4879)-JVS(46247)*X(4880)-JVS(46248)& - &*X(4881)-JVS(46249)*X(4882)-JVS(46250)*X(4883)-JVS(46251)*X(4885)-JVS(46252)*X(4886)-JVS(46253)*X(4887)& - &-JVS(46254)*X(4888)-JVS(46255)*X(4889)-JVS(46256)*X(4891)-JVS(46257)*X(4892)-JVS(46258)*X(4893)-JVS(46259)& - &*X(4894)-JVS(46260)*X(4895)-JVS(46261)*X(4896)-JVS(46262)*X(4897)-JVS(46263)*X(4898)-JVS(46264)*X(4899)& - &-JVS(46265)*X(4900)-JVS(46266)*X(4902)-JVS(46267)*X(4905)-JVS(46268)*X(4906)-JVS(46269)*X(4907)-JVS(46270)& - &*X(4908)-JVS(46271)*X(4910)-JVS(46272)*X(4911)-JVS(46273)*X(4912)-JVS(46274)*X(4913)-JVS(46275)*X(4914)& - &-JVS(46276)*X(4915)-JVS(46277)*X(4916)-JVS(46278)*X(4917)-JVS(46279)*X(4918)-JVS(46280)*X(4919)-JVS(46281)& - &*X(4920)-JVS(46282)*X(4921)-JVS(46283)*X(4922)-JVS(46284)*X(4923)-JVS(46285)*X(4924)-JVS(46286)*X(4925)& - &-JVS(46287)*X(4926)-JVS(46288)*X(4927)-JVS(46289)*X(4928)-JVS(46290)*X(4930)-JVS(46291)*X(4931)-JVS(46292)& - &*X(4932)-JVS(46293)*X(4933)-JVS(46294)*X(4934)-JVS(46295)*X(4935)-JVS(46296)*X(4936)-JVS(46297)*X(4937)& - &-JVS(46298)*X(4939)-JVS(46299)*X(4941)-JVS(46300)*X(4943)-JVS(46301)*X(4944)-JVS(46302)*X(4945)-JVS(46303)& - &*X(4946)-JVS(46304)*X(4947)-JVS(46305)*X(4948)-JVS(46306)*X(4949)-JVS(46307)*X(4950)-JVS(46308)*X(4951)& - &-JVS(46309)*X(4952)-JVS(46310)*X(4953)-JVS(46311)*X(4954)-JVS(46312)*X(4955)-JVS(46313)*X(4956)-JVS(46314)& - &*X(4957)-JVS(46315)*X(4960)-JVS(46316)*X(4961)-JVS(46317)*X(4962)-JVS(46318)*X(4963)-JVS(46319)*X(4964)& - &-JVS(46320)*X(4965)-JVS(46321)*X(4966)-JVS(46322)*X(4968)-JVS(46323)*X(4969)-JVS(46324)*X(4970)-JVS(46325)& - &*X(4971)-JVS(46326)*X(4972)-JVS(46327)*X(4974)-JVS(46328)*X(4975)-JVS(46329)*X(4976)-JVS(46330)*X(4977)& - &-JVS(46331)*X(4978)-JVS(46332)*X(4979)-JVS(46333)*X(4980)-JVS(46334)*X(4982)-JVS(46335)*X(4983)-JVS(46336)& - &*X(4984)-JVS(46337)*X(4985)-JVS(46338)*X(4986)-JVS(46339)*X(4987)-JVS(46340)*X(4988)-JVS(46341)*X(4989)& - &-JVS(46342)*X(4990)-JVS(46343)*X(4991)-JVS(46344)*X(4992)-JVS(46345)*X(4993)-JVS(46346)*X(4994)-JVS(46347)& - &*X(4996)-JVS(46348)*X(4997)-JVS(46349)*X(4998)-JVS(46350)*X(4999)-JVS(46351)*X(5000)-JVS(46352)*X(5001)& - &-JVS(46353)*X(5002)-JVS(46354)*X(5004)-JVS(46355)*X(5005)-JVS(46356)*X(5006)-JVS(46357)*X(5008)-JVS(46358)& - &*X(5009)-JVS(46359)*X(5010)-JVS(46360)*X(5012)-JVS(46361)*X(5013)-JVS(46362)*X(5014)-JVS(46363)*X(5015)& - &-JVS(46364)*X(5017)-JVS(46365)*X(5018)-JVS(46366)*X(5019)-JVS(46367)*X(5021)-JVS(46368)*X(5022)-JVS(46369)& - &*X(5023)-JVS(46370)*X(5024)-JVS(46371)*X(5025)-JVS(46372)*X(5026)-JVS(46373)*X(5027)-JVS(46374)*X(5028)& - &-JVS(46375)*X(5029)-JVS(46376)*X(5030)-JVS(46377)*X(5031)-JVS(46378)*X(5032)-JVS(46379)*X(5033)-JVS(46380)& - &*X(5034)-JVS(46381)*X(5035)-JVS(46382)*X(5036)-JVS(46383)*X(5037)-JVS(46384)*X(5038)-JVS(46385)*X(5040)& - &-JVS(46386)*X(5041)-JVS(46387)*X(5042)-JVS(46388)*X(5043)-JVS(46389)*X(5044)-JVS(46390)*X(5045)-JVS(46391)& - &*X(5047)-JVS(46392)*X(5048)-JVS(46393)*X(5049)-JVS(46394)*X(5050)-JVS(46395)*X(5051)-JVS(46396)*X(5052)& - &-JVS(46397)*X(5054)-JVS(46398)*X(5055)-JVS(46399)*X(5056)-JVS(46400)*X(5057)-JVS(46401)*X(5058)-JVS(46402)& - &*X(5059)-JVS(46403)*X(5060)-JVS(46404)*X(5061)-JVS(46405)*X(5063)-JVS(46406)*X(5064)-JVS(46407)*X(5065)& - &-JVS(46408)*X(5066)-JVS(46409)*X(5067)-JVS(46410)*X(5068)-JVS(46411)*X(5069)-JVS(46412)*X(5070)-JVS(46413)& - &*X(5071)-JVS(46414)*X(5072)-JVS(46415)*X(5073)-JVS(46416)*X(5074)-JVS(46417)*X(5076)-JVS(46418)*X(5077)& - &-JVS(46419)*X(5078)-JVS(46420)*X(5079)-JVS(46421)*X(5081)-JVS(46422)*X(5082)-JVS(46423)*X(5083)-JVS(46424)& - &*X(5084)-JVS(46425)*X(5085)-JVS(46426)*X(5086)-JVS(46427)*X(5087)-JVS(46428)*X(5088)-JVS(46429)*X(5089)& - &-JVS(46430)*X(5090)-JVS(46431)*X(5091)-JVS(46432)*X(5092)-JVS(46433)*X(5093)-JVS(46434)*X(5094)-JVS(46435)& - &*X(5095)-JVS(46436)*X(5096)-JVS(46437)*X(5097)-JVS(46438)*X(5099)-JVS(46439)*X(5100)-JVS(46440)*X(5101)& - &-JVS(46441)*X(5102)-JVS(46442)*X(5103)-JVS(46443)*X(5104)-JVS(46444)*X(5105)-JVS(46445)*X(5106)-JVS(46446)& - &*X(5107)-JVS(46447)*X(5108)-JVS(46448)*X(5110)-JVS(46449)*X(5111)-JVS(46450)*X(5112)-JVS(46451)*X(5113)& - &-JVS(46452)*X(5114)-JVS(46453)*X(5115)-JVS(46454)*X(5116)-JVS(46455)*X(5117)-JVS(46456)*X(5118)-JVS(46457)& - &*X(5119)-JVS(46458)*X(5120)-JVS(46459)*X(5121)-JVS(46460)*X(5122)-JVS(46461)*X(5123)-JVS(46462)*X(5124)& - &-JVS(46463)*X(5125)-JVS(46464)*X(5126)-JVS(46465)*X(5127)-JVS(46466)*X(5128)-JVS(46467)*X(5129)-JVS(46468)& - &*X(5130)-JVS(46469)*X(5131)-JVS(46470)*X(5132)-JVS(46471)*X(5133)-JVS(46472)*X(5134)-JVS(46473)*X(5135)& - &-JVS(46474)*X(5136)-JVS(46475)*X(5137)-JVS(46476)*X(5138)-JVS(46477)*X(5139)-JVS(46478)*X(5140)-JVS(46479)& - &*X(5141)-JVS(46480)*X(5143)-JVS(46481)*X(5144)-JVS(46482)*X(5146)-JVS(46483)*X(5147)-JVS(46484)*X(5148)& - &-JVS(46485)*X(5149)-JVS(46486)*X(5150)-JVS(46487)*X(5151)-JVS(46488)*X(5152)-JVS(46489)*X(5153)-JVS(46490)& - &*X(5154)-JVS(46491)*X(5155)-JVS(46492)*X(5156)-JVS(46493)*X(5157)-JVS(46494)*X(5158)-JVS(46495)*X(5159)& - &-JVS(46496)*X(5161)-JVS(46497)*X(5162)-JVS(46498)*X(5163)-JVS(46499)*X(5164)-JVS(46500)*X(5165)-JVS(46501)& - &*X(5166)-JVS(46502)*X(5167)-JVS(46503)*X(5168)-JVS(46504)*X(5169)-JVS(46505)*X(5170)-JVS(46506)*X(5171)& - &-JVS(46507)*X(5172)-JVS(46508)*X(5173)-JVS(46509)*X(5174)-JVS(46510)*X(5175)-JVS(46511)*X(5176)-JVS(46512)& - &*X(5177)-JVS(46513)*X(5178)-JVS(46514)*X(5179)-JVS(46515)*X(5180)-JVS(46516)*X(5181)-JVS(46517)*X(5182)& - &-JVS(46518)*X(5183)-JVS(46519)*X(5184)-JVS(46520)*X(5185)-JVS(46521)*X(5186)-JVS(46522)*X(5187)-JVS(46523)& - &*X(5189)-JVS(46524)*X(5190)-JVS(46525)*X(5191)-JVS(46526)*X(5192)-JVS(46527)*X(5193)-JVS(46528)*X(5194)& - &-JVS(46529)*X(5196)-JVS(46530)*X(5197)-JVS(46531)*X(5198)-JVS(46532)*X(5199)-JVS(46533)*X(5200)-JVS(46534)& - &*X(5202)-JVS(46535)*X(5203)-JVS(46536)*X(5204)-JVS(46537)*X(5205)-JVS(46538)*X(5206)-JVS(46539)*X(5207)& - &-JVS(46540)*X(5208)-JVS(46541)*X(5209)-JVS(46542)*X(5210)-JVS(46543)*X(5211)-JVS(46544)*X(5212)-JVS(46545)& - &*X(5213)-JVS(46546)*X(5214)-JVS(46547)*X(5215)-JVS(46548)*X(5216)-JVS(46549)*X(5217)-JVS(46550)*X(5218)& - &-JVS(46551)*X(5219)-JVS(46552)*X(5220)-JVS(46553)*X(5221)-JVS(46554)*X(5222)-JVS(46555)*X(5223)-JVS(46556)& - &*X(5224)-JVS(46557)*X(5225)-JVS(46558)*X(5226)-JVS(46559)*X(5227)-JVS(46560)*X(5229)-JVS(46561)*X(5230)& - &-JVS(46562)*X(5231)-JVS(46563)*X(5232)-JVS(46564)*X(5233)-JVS(46565)*X(5234)-JVS(46566)*X(5235)-JVS(46567)& - &*X(5236)-JVS(46568)*X(5237)-JVS(46569)*X(5238)-JVS(46570)*X(5239)-JVS(46571)*X(5240)-JVS(46572)*X(5241)& - &-JVS(46573)*X(5242)-JVS(46574)*X(5243)-JVS(46575)*X(5244)-JVS(46576)*X(5245)-JVS(46577)*X(5246)-JVS(46578)& - &*X(5247)-JVS(46579)*X(5248)-JVS(46580)*X(5249)-JVS(46581)*X(5250) - X(5252) = X(5252)-JVS(46590)*X(337)-JVS(46591)*X(3481)-JVS(46592)*X(3489)-JVS(46593)*X(3491)-JVS(46594)*X(3492)& - &-JVS(46595)*X(3496)-JVS(46596)*X(3503)-JVS(46597)*X(3507)-JVS(46598)*X(3509)-JVS(46599)*X(3511)-JVS(46600)& - &*X(3518)-JVS(46601)*X(3521)-JVS(46602)*X(3523)-JVS(46603)*X(3525)-JVS(46604)*X(3527)-JVS(46605)*X(3531)& - &-JVS(46606)*X(3534)-JVS(46607)*X(3538)-JVS(46608)*X(3539)-JVS(46609)*X(3554)-JVS(46610)*X(3562)-JVS(46611)& - &*X(3568)-JVS(46612)*X(3627)-JVS(46613)*X(3631)-JVS(46614)*X(3632)-JVS(46615)*X(3634)-JVS(46616)*X(3636)& - &-JVS(46617)*X(3637)-JVS(46618)*X(3641)-JVS(46619)*X(3648)-JVS(46620)*X(3650)-JVS(46621)*X(3658)-JVS(46622)& - &*X(3659)-JVS(46623)*X(3663)-JVS(46624)*X(3665)-JVS(46625)*X(3667)-JVS(46626)*X(3668)-JVS(46627)*X(3669)& - &-JVS(46628)*X(3670)-JVS(46629)*X(3671)-JVS(46630)*X(3674)-JVS(46631)*X(3675)-JVS(46632)*X(3676)-JVS(46633)& - &*X(3677)-JVS(46634)*X(3678)-JVS(46635)*X(3679)-JVS(46636)*X(3680)-JVS(46637)*X(3685)-JVS(46638)*X(3686)& - &-JVS(46639)*X(3687)-JVS(46640)*X(3688)-JVS(46641)*X(3690)-JVS(46642)*X(3691)-JVS(46643)*X(3692)-JVS(46644)& - &*X(3694)-JVS(46645)*X(3695)-JVS(46646)*X(3696)-JVS(46647)*X(3697)-JVS(46648)*X(3698)-JVS(46649)*X(3699)& - &-JVS(46650)*X(3703)-JVS(46651)*X(3704)-JVS(46652)*X(3705)-JVS(46653)*X(3706)-JVS(46654)*X(3710)-JVS(46655)& - &*X(3711)-JVS(46656)*X(3713)-JVS(46657)*X(3714)-JVS(46658)*X(3715)-JVS(46659)*X(3717)-JVS(46660)*X(3718)& - &-JVS(46661)*X(3719)-JVS(46662)*X(3720)-JVS(46663)*X(3721)-JVS(46664)*X(3722)-JVS(46665)*X(3724)-JVS(46666)& - &*X(3725)-JVS(46667)*X(3727)-JVS(46668)*X(3728)-JVS(46669)*X(3730)-JVS(46670)*X(3731)-JVS(46671)*X(3733)& - &-JVS(46672)*X(3738)-JVS(46673)*X(3739)-JVS(46674)*X(3740)-JVS(46675)*X(3741)-JVS(46676)*X(3743)-JVS(46677)& - &*X(3745)-JVS(46678)*X(3746)-JVS(46679)*X(3749)-JVS(46680)*X(3750)-JVS(46681)*X(3751)-JVS(46682)*X(3752)& - &-JVS(46683)*X(3753)-JVS(46684)*X(3758)-JVS(46685)*X(3760)-JVS(46686)*X(3761)-JVS(46687)*X(3762)-JVS(46688)& - &*X(3764)-JVS(46689)*X(3766)-JVS(46690)*X(3768)-JVS(46691)*X(3769)-JVS(46692)*X(3770)-JVS(46693)*X(3771)& - &-JVS(46694)*X(3772)-JVS(46695)*X(3774)-JVS(46696)*X(3776)-JVS(46697)*X(3778)-JVS(46698)*X(3781)-JVS(46699)& - &*X(3782)-JVS(46700)*X(3784)-JVS(46701)*X(3785)-JVS(46702)*X(3786)-JVS(46703)*X(3788)-JVS(46704)*X(3789)& - &-JVS(46705)*X(3790)-JVS(46706)*X(3791)-JVS(46707)*X(3794)-JVS(46708)*X(3796)-JVS(46709)*X(3797)-JVS(46710)& - &*X(3798)-JVS(46711)*X(3799)-JVS(46712)*X(3801)-JVS(46713)*X(3803)-JVS(46714)*X(3804)-JVS(46715)*X(3806)& - &-JVS(46716)*X(3807)-JVS(46717)*X(3808)-JVS(46718)*X(3810)-JVS(46719)*X(3811)-JVS(46720)*X(3813)-JVS(46721)& - &*X(3814)-JVS(46722)*X(3815)-JVS(46723)*X(3817)-JVS(46724)*X(3819)-JVS(46725)*X(3820)-JVS(46726)*X(3823)& - &-JVS(46727)*X(3825)-JVS(46728)*X(3827)-JVS(46729)*X(3828)-JVS(46730)*X(3836)-JVS(46731)*X(3837)-JVS(46732)& - &*X(3838)-JVS(46733)*X(3839)-JVS(46734)*X(3840)-JVS(46735)*X(3841)-JVS(46736)*X(3844)-JVS(46737)*X(3845)& - &-JVS(46738)*X(3846)-JVS(46739)*X(3847)-JVS(46740)*X(3848)-JVS(46741)*X(3850)-JVS(46742)*X(3852)-JVS(46743)& - &*X(3853)-JVS(46744)*X(3854)-JVS(46745)*X(3855)-JVS(46746)*X(3858)-JVS(46747)*X(3859)-JVS(46748)*X(3860)& - &-JVS(46749)*X(3863)-JVS(46750)*X(3864)-JVS(46751)*X(3865)-JVS(46752)*X(3866)-JVS(46753)*X(3867)-JVS(46754)& - &*X(3869)-JVS(46755)*X(3870)-JVS(46756)*X(3871)-JVS(46757)*X(3872)-JVS(46758)*X(3873)-JVS(46759)*X(3874)& - &-JVS(46760)*X(3876)-JVS(46761)*X(3880)-JVS(46762)*X(3881)-JVS(46763)*X(3882)-JVS(46764)*X(3883)-JVS(46765)& - &*X(3884)-JVS(46766)*X(3885)-JVS(46767)*X(3886)-JVS(46768)*X(3888)-JVS(46769)*X(3889)-JVS(46770)*X(3890)& - &-JVS(46771)*X(3891)-JVS(46772)*X(3893)-JVS(46773)*X(3894)-JVS(46774)*X(3895)-JVS(46775)*X(3898)-JVS(46776)& - &*X(3899)-JVS(46777)*X(3901)-JVS(46778)*X(3902)-JVS(46779)*X(3903)-JVS(46780)*X(3905)-JVS(46781)*X(3907)& - &-JVS(46782)*X(3908)-JVS(46783)*X(3912)-JVS(46784)*X(3916)-JVS(46785)*X(3919)-JVS(46786)*X(3920)-JVS(46787)& - &*X(3921)-JVS(46788)*X(3926)-JVS(46789)*X(3927)-JVS(46790)*X(3928)-JVS(46791)*X(3932)-JVS(46792)*X(3936)& - &-JVS(46793)*X(3937)-JVS(46794)*X(3939)-JVS(46795)*X(3940)-JVS(46796)*X(3941)-JVS(46797)*X(3943)-JVS(46798)& - &*X(3944)-JVS(46799)*X(3945)-JVS(46800)*X(3948)-JVS(46801)*X(3949)-JVS(46802)*X(3950)-JVS(46803)*X(3951)& - &-JVS(46804)*X(3952)-JVS(46805)*X(3953)-JVS(46806)*X(3954)-JVS(46807)*X(3955)-JVS(46808)*X(3961)-JVS(46809)& - &*X(3962)-JVS(46810)*X(3963)-JVS(46811)*X(3964)-JVS(46812)*X(3966)-JVS(46813)*X(3967)-JVS(46814)*X(3969)& - &-JVS(46815)*X(3971)-JVS(46816)*X(3973)-JVS(46817)*X(3974)-JVS(46818)*X(3975)-JVS(46819)*X(3976)-JVS(46820)& - &*X(3977)-JVS(46821)*X(3979)-JVS(46822)*X(3980)-JVS(46823)*X(3981)-JVS(46824)*X(3982)-JVS(46825)*X(3983)& - &-JVS(46826)*X(3984)-JVS(46827)*X(3985)-JVS(46828)*X(3987)-JVS(46829)*X(3988)-JVS(46830)*X(3989)-JVS(46831)& - &*X(3990)-JVS(46832)*X(3992)-JVS(46833)*X(3994)-JVS(46834)*X(3997)-JVS(46835)*X(3998)-JVS(46836)*X(3999)& - &-JVS(46837)*X(4000)-JVS(46838)*X(4001)-JVS(46839)*X(4002)-JVS(46840)*X(4003)-JVS(46841)*X(4005)-JVS(46842)& - &*X(4006)-JVS(46843)*X(4007)-JVS(46844)*X(4008)-JVS(46845)*X(4009)-JVS(46846)*X(4011)-JVS(46847)*X(4012)& - &-JVS(46848)*X(4013)-JVS(46849)*X(4015)-JVS(46850)*X(4016)-JVS(46851)*X(4019)-JVS(46852)*X(4020)-JVS(46853)& - &*X(4021)-JVS(46854)*X(4022)-JVS(46855)*X(4023)-JVS(46856)*X(4025)-JVS(46857)*X(4026)-JVS(46858)*X(4028)& - &-JVS(46859)*X(4030)-JVS(46860)*X(4031)-JVS(46861)*X(4033)-JVS(46862)*X(4034)-JVS(46863)*X(4035)-JVS(46864)& - &*X(4036)-JVS(46865)*X(4037)-JVS(46866)*X(4038)-JVS(46867)*X(4039)-JVS(46868)*X(4040)-JVS(46869)*X(4041)& - &-JVS(46870)*X(4042)-JVS(46871)*X(4043)-JVS(46872)*X(4044)-JVS(46873)*X(4045)-JVS(46874)*X(4046)-JVS(46875)& - &*X(4049)-JVS(46876)*X(4050)-JVS(46877)*X(4051)-JVS(46878)*X(4052)-JVS(46879)*X(4054)-JVS(46880)*X(4055)& - &-JVS(46881)*X(4057)-JVS(46882)*X(4058)-JVS(46883)*X(4059)-JVS(46884)*X(4060)-JVS(46885)*X(4061)-JVS(46886)& - &*X(4063)-JVS(46887)*X(4064)-JVS(46888)*X(4065)-JVS(46889)*X(4067)-JVS(46890)*X(4068)-JVS(46891)*X(4069)& - &-JVS(46892)*X(4070)-JVS(46893)*X(4072)-JVS(46894)*X(4073)-JVS(46895)*X(4074)-JVS(46896)*X(4075)-JVS(46897)& - &*X(4076)-JVS(46898)*X(4077)-JVS(46899)*X(4078)-JVS(46900)*X(4079)-JVS(46901)*X(4082)-JVS(46902)*X(4085)& - &-JVS(46903)*X(4087)-JVS(46904)*X(4088)-JVS(46905)*X(4089)-JVS(46906)*X(4090)-JVS(46907)*X(4091)-JVS(46908)& - &*X(4092)-JVS(46909)*X(4095)-JVS(46910)*X(4097)-JVS(46911)*X(4098)-JVS(46912)*X(4099)-JVS(46913)*X(4100)& - &-JVS(46914)*X(4101)-JVS(46915)*X(4102)-JVS(46916)*X(4105)-JVS(46917)*X(4106)-JVS(46918)*X(4111)-JVS(46919)& - &*X(4112)-JVS(46920)*X(4115)-JVS(46921)*X(4116)-JVS(46922)*X(4117)-JVS(46923)*X(4118)-JVS(46924)*X(4119)& - &-JVS(46925)*X(4120)-JVS(46926)*X(4121)-JVS(46927)*X(4123)-JVS(46928)*X(4124)-JVS(46929)*X(4126)-JVS(46930)& - &*X(4127)-JVS(46931)*X(4128)-JVS(46932)*X(4129)-JVS(46933)*X(4130)-JVS(46934)*X(4131)-JVS(46935)*X(4133)& - &-JVS(46936)*X(4134)-JVS(46937)*X(4135)-JVS(46938)*X(4136)-JVS(46939)*X(4137)-JVS(46940)*X(4138)-JVS(46941)& - &*X(4139)-JVS(46942)*X(4140)-JVS(46943)*X(4141)-JVS(46944)*X(4142)-JVS(46945)*X(4143)-JVS(46946)*X(4144)& - &-JVS(46947)*X(4145)-JVS(46948)*X(4146)-JVS(46949)*X(4147)-JVS(46950)*X(4148)-JVS(46951)*X(4149)-JVS(46952)& - &*X(4150)-JVS(46953)*X(4152)-JVS(46954)*X(4153)-JVS(46955)*X(4154)-JVS(46956)*X(4157)-JVS(46957)*X(4158)& - &-JVS(46958)*X(4159)-JVS(46959)*X(4161)-JVS(46960)*X(4162)-JVS(46961)*X(4163)-JVS(46962)*X(4165)-JVS(46963)& - &*X(4166)-JVS(46964)*X(4167)-JVS(46965)*X(4168)-JVS(46966)*X(4169)-JVS(46967)*X(4170)-JVS(46968)*X(4171)& - &-JVS(46969)*X(4172)-JVS(46970)*X(4173)-JVS(46971)*X(4176)-JVS(46972)*X(4180)-JVS(46973)*X(4181)-JVS(46974)& - &*X(4182)-JVS(46975)*X(4185)-JVS(46976)*X(4187)-JVS(46977)*X(4188)-JVS(46978)*X(4189)-JVS(46979)*X(4190)& - &-JVS(46980)*X(4191)-JVS(46981)*X(4192)-JVS(46982)*X(4193)-JVS(46983)*X(4194)-JVS(46984)*X(4195)-JVS(46985)& - &*X(4196)-JVS(46986)*X(4197)-JVS(46987)*X(4198)-JVS(46988)*X(4200)-JVS(46989)*X(4201)-JVS(46990)*X(4202)& - &-JVS(46991)*X(4203)-JVS(46992)*X(4204)-JVS(46993)*X(4205)-JVS(46994)*X(4206)-JVS(46995)*X(4207)-JVS(46996)& - &*X(4208)-JVS(46997)*X(4209)-JVS(46998)*X(4210)-JVS(46999)*X(4211)-JVS(47000)*X(4212)-JVS(47001)*X(4213)& - &-JVS(47002)*X(4214)-JVS(47003)*X(4215)-JVS(47004)*X(4216)-JVS(47005)*X(4217)-JVS(47006)*X(4218)-JVS(47007)& - &*X(4219)-JVS(47008)*X(4220)-JVS(47009)*X(4221)-JVS(47010)*X(4222)-JVS(47011)*X(4225)-JVS(47012)*X(4226)& - &-JVS(47013)*X(4228)-JVS(47014)*X(4229)-JVS(47015)*X(4230)-JVS(47016)*X(4232)-JVS(47017)*X(4234)-JVS(47018)& - &*X(4235)-JVS(47019)*X(4236)-JVS(47020)*X(4237)-JVS(47021)*X(4238)-JVS(47022)*X(4240)-JVS(47023)*X(4241)& - &-JVS(47024)*X(4242)-JVS(47025)*X(4243)-JVS(47026)*X(4244)-JVS(47027)*X(4245)-JVS(47028)*X(4246)-JVS(47029)& - &*X(4247)-JVS(47030)*X(4249)-JVS(47031)*X(4250)-JVS(47032)*X(4251)-JVS(47033)*X(4252)-JVS(47034)*X(4253)& - &-JVS(47035)*X(4254)-JVS(47036)*X(4255)-JVS(47037)*X(4257)-JVS(47038)*X(4258)-JVS(47039)*X(4259)-JVS(47040)& - &*X(4260)-JVS(47041)*X(4262)-JVS(47042)*X(4263)-JVS(47043)*X(4264)-JVS(47044)*X(4265)-JVS(47045)*X(4266)& - &-JVS(47046)*X(4267)-JVS(47047)*X(4268)-JVS(47048)*X(4269)-JVS(47049)*X(4270)-JVS(47050)*X(4271)-JVS(47051)& - &*X(4273)-JVS(47052)*X(4274)-JVS(47053)*X(4275)-JVS(47054)*X(4276)-JVS(47055)*X(4277)-JVS(47056)*X(4280)& - &-JVS(47057)*X(4281)-JVS(47058)*X(4282)-JVS(47059)*X(4283)-JVS(47060)*X(4284)-JVS(47061)*X(4285)-JVS(47062)& - &*X(4286)-JVS(47063)*X(4287)-JVS(47064)*X(4288)-JVS(47065)*X(4289)-JVS(47066)*X(4290)-JVS(47067)*X(4291)& - &-JVS(47068)*X(4292)-JVS(47069)*X(4293)-JVS(47070)*X(4295)-JVS(47071)*X(4296)-JVS(47072)*X(4297)-JVS(47073)& - &*X(4298)-JVS(47074)*X(4299)-JVS(47075)*X(4301)-JVS(47076)*X(4302)-JVS(47077)*X(4303)-JVS(47078)*X(4304)& - &-JVS(47079)*X(4305)-JVS(47080)*X(4306)-JVS(47081)*X(4307)-JVS(47082)*X(4308)-JVS(47083)*X(4309)-JVS(47084)& - &*X(4310)-JVS(47085)*X(4311)-JVS(47086)*X(4312)-JVS(47087)*X(4314)-JVS(47088)*X(4315)-JVS(47089)*X(4316)& - &-JVS(47090)*X(4317)-JVS(47091)*X(4318)-JVS(47092)*X(4319)-JVS(47093)*X(4320)-JVS(47094)*X(4321)-JVS(47095)& - &*X(4322)-JVS(47096)*X(4323)-JVS(47097)*X(4324)-JVS(47098)*X(4326)-JVS(47099)*X(4327)-JVS(47100)*X(4329)& - &-JVS(47101)*X(4334)-JVS(47102)*X(4335)-JVS(47103)*X(4336)-JVS(47104)*X(4337)-JVS(47105)*X(4338)-JVS(47106)& - &*X(4339)-JVS(47107)*X(4340)-JVS(47108)*X(4341)-JVS(47109)*X(4342)-JVS(47110)*X(4343)-JVS(47111)*X(4344)& - &-JVS(47112)*X(4345)-JVS(47113)*X(4346)-JVS(47114)*X(4347)-JVS(47115)*X(4348)-JVS(47116)*X(4349)-JVS(47117)& - &*X(4350)-JVS(47118)*X(4351)-JVS(47119)*X(4353)-JVS(47120)*X(4354)-JVS(47121)*X(4355)-JVS(47122)*X(4356)& - &-JVS(47123)*X(4357)-JVS(47124)*X(4358)-JVS(47125)*X(4359)-JVS(47126)*X(4360)-JVS(47127)*X(4361)-JVS(47128)& - &*X(4363)-JVS(47129)*X(4364)-JVS(47130)*X(4365)-JVS(47131)*X(4367)-JVS(47132)*X(4368)-JVS(47133)*X(4369)& - &-JVS(47134)*X(4370)-JVS(47135)*X(4371)-JVS(47136)*X(4372)-JVS(47137)*X(4373)-JVS(47138)*X(4374)-JVS(47139)& - &*X(4375)-JVS(47140)*X(4376)-JVS(47141)*X(4377)-JVS(47142)*X(4379)-JVS(47143)*X(4380)-JVS(47144)*X(4381)& - &-JVS(47145)*X(4382)-JVS(47146)*X(4384)-JVS(47147)*X(4385)-JVS(47148)*X(4387)-JVS(47149)*X(4389)-JVS(47150)& - &*X(4390)-JVS(47151)*X(4394)-JVS(47152)*X(4395)-JVS(47153)*X(4397)-JVS(47154)*X(4399)-JVS(47155)*X(4400)& - &-JVS(47156)*X(4402)-JVS(47157)*X(4404)-JVS(47158)*X(4405)-JVS(47159)*X(4407)-JVS(47160)*X(4408)-JVS(47161)& - &*X(4409)-JVS(47162)*X(4410)-JVS(47163)*X(4411)-JVS(47164)*X(4412)-JVS(47165)*X(4413)-JVS(47166)*X(4414)& - &-JVS(47167)*X(4415)-JVS(47168)*X(4416)-JVS(47169)*X(4417)-JVS(47170)*X(4418)-JVS(47171)*X(4419)-JVS(47172)& - &*X(4421)-JVS(47173)*X(4422)-JVS(47174)*X(4423)-JVS(47175)*X(4424)-JVS(47176)*X(4425)-JVS(47177)*X(4426)& - &-JVS(47178)*X(4427)-JVS(47179)*X(4428)-JVS(47180)*X(4429)-JVS(47181)*X(4430)-JVS(47182)*X(4431)-JVS(47183)& - &*X(4432)-JVS(47184)*X(4433)-JVS(47185)*X(4434)-JVS(47186)*X(4435)-JVS(47187)*X(4436)-JVS(47188)*X(4437)& - &-JVS(47189)*X(4438)-JVS(47190)*X(4439)-JVS(47191)*X(4440)-JVS(47192)*X(4441)-JVS(47193)*X(4442)-JVS(47194)& - &*X(4443)-JVS(47195)*X(4444)-JVS(47196)*X(4445)-JVS(47197)*X(4446)-JVS(47198)*X(4447)-JVS(47199)*X(4448)& - &-JVS(47200)*X(4450)-JVS(47201)*X(4451)-JVS(47202)*X(4452)-JVS(47203)*X(4453)-JVS(47204)*X(4454)-JVS(47205)& - &*X(4455)-JVS(47206)*X(4456)-JVS(47207)*X(4457)-JVS(47208)*X(4458)-JVS(47209)*X(4459)-JVS(47210)*X(4460)& - &-JVS(47211)*X(4461)-JVS(47212)*X(4463)-JVS(47213)*X(4464)-JVS(47214)*X(4465)-JVS(47215)*X(4466)-JVS(47216)& - &*X(4467)-JVS(47217)*X(4468)-JVS(47218)*X(4469)-JVS(47219)*X(4470)-JVS(47220)*X(4471)-JVS(47221)*X(4472)& - &-JVS(47222)*X(4473)-JVS(47223)*X(4474)-JVS(47224)*X(4476)-JVS(47225)*X(4477)-JVS(47226)*X(4478)-JVS(47227)& - &*X(4479)-JVS(47228)*X(4480)-JVS(47229)*X(4481)-JVS(47230)*X(4482)-JVS(47231)*X(4483)-JVS(47232)*X(4484)& - &-JVS(47233)*X(4485)-JVS(47234)*X(4486)-JVS(47235)*X(4487)-JVS(47236)*X(4488)-JVS(47237)*X(4489)-JVS(47238)& - &*X(4492)-JVS(47239)*X(4494)-JVS(47240)*X(4495)-JVS(47241)*X(4496)-JVS(47242)*X(4497)-JVS(47243)*X(4498)& - &-JVS(47244)*X(4499)-JVS(47245)*X(4500)-JVS(47246)*X(4502)-JVS(47247)*X(4503)-JVS(47248)*X(4504)-JVS(47249)& - &*X(4505)-JVS(47250)*X(4506)-JVS(47251)*X(4509)-JVS(47252)*X(4510)-JVS(47253)*X(4511)-JVS(47254)*X(4512)& - &-JVS(47255)*X(4513)-JVS(47256)*X(4514)-JVS(47257)*X(4515)-JVS(47258)*X(4516)-JVS(47259)*X(4517)-JVS(47260)& - &*X(4518)-JVS(47261)*X(4519)-JVS(47262)*X(4520)-JVS(47263)*X(4521)-JVS(47264)*X(4522)-JVS(47265)*X(4523)& - &-JVS(47266)*X(4525)-JVS(47267)*X(4526)-JVS(47268)*X(4529)-JVS(47269)*X(4531)-JVS(47270)*X(4532)-JVS(47271)& - &*X(4533)-JVS(47272)*X(4535)-JVS(47273)*X(4536)-JVS(47274)*X(4538)-JVS(47275)*X(4539)-JVS(47276)*X(4541)& - &-JVS(47277)*X(4542)-JVS(47278)*X(4543)-JVS(47279)*X(4544)-JVS(47280)*X(4545)-JVS(47281)*X(4546)-JVS(47282)& - &*X(4548)-JVS(47283)*X(4549)-JVS(47284)*X(4550)-JVS(47285)*X(4551)-JVS(47286)*X(4552)-JVS(47287)*X(4553)& - &-JVS(47288)*X(4554)-JVS(47289)*X(4555)-JVS(47290)*X(4556)-JVS(47291)*X(4557)-JVS(47292)*X(4558)-JVS(47293)& - &*X(4560)-JVS(47294)*X(4561)-JVS(47295)*X(4562)-JVS(47296)*X(4563)-JVS(47297)*X(4565)-JVS(47298)*X(4566)& - &-JVS(47299)*X(4567)-JVS(47300)*X(4568)-JVS(47301)*X(4571)-JVS(47302)*X(4572)-JVS(47303)*X(4573)-JVS(47304)& - &*X(4574)-JVS(47305)*X(4575)-JVS(47306)*X(4576)-JVS(47307)*X(4577)-JVS(47308)*X(4578)-JVS(47309)*X(4579)& - &-JVS(47310)*X(4580)-JVS(47311)*X(4581)-JVS(47312)*X(4582)-JVS(47313)*X(4583)-JVS(47314)*X(4584)-JVS(47315)& - &*X(4585)-JVS(47316)*X(4586)-JVS(47317)*X(4587)-JVS(47318)*X(4589)-JVS(47319)*X(4590)-JVS(47320)*X(4591)& - &-JVS(47321)*X(4592)-JVS(47322)*X(4593)-JVS(47323)*X(4594)-JVS(47324)*X(4595)-JVS(47325)*X(4596)-JVS(47326)& - &*X(4597)-JVS(47327)*X(4598)-JVS(47328)*X(4599)-JVS(47329)*X(4600)-JVS(47330)*X(4601)-JVS(47331)*X(4603)& - &-JVS(47332)*X(4605)-JVS(47333)*X(4607)-JVS(47334)*X(4608)-JVS(47335)*X(4609)-JVS(47336)*X(4610)-JVS(47337)& - &*X(4611)-JVS(47338)*X(4612)-JVS(47339)*X(4613)-JVS(47340)*X(4614)-JVS(47341)*X(4616)-JVS(47342)*X(4617)& - &-JVS(47343)*X(4619)-JVS(47344)*X(4620)-JVS(47345)*X(4621)-JVS(47346)*X(4622)-JVS(47347)*X(4623)-JVS(47348)& - &*X(4624)-JVS(47349)*X(4625)-JVS(47350)*X(4626)-JVS(47351)*X(4627)-JVS(47352)*X(4628)-JVS(47353)*X(4629)& - &-JVS(47354)*X(4631)-JVS(47355)*X(4632)-JVS(47356)*X(4633)-JVS(47357)*X(4634)-JVS(47358)*X(4635)-JVS(47359)& - &*X(4636)-JVS(47360)*X(4637)-JVS(47361)*X(4638)-JVS(47362)*X(4639)-JVS(47363)*X(4640)-JVS(47364)*X(4641)& - &-JVS(47365)*X(4642)-JVS(47366)*X(4643)-JVS(47367)*X(4644)-JVS(47368)*X(4645)-JVS(47369)*X(4646)-JVS(47370)& - &*X(4647)-JVS(47371)*X(4648)-JVS(47372)*X(4649)-JVS(47373)*X(4650)-JVS(47374)*X(4652)-JVS(47375)*X(4653)& - &-JVS(47376)*X(4654)-JVS(47377)*X(4655)-JVS(47378)*X(4656)-JVS(47379)*X(4657)-JVS(47380)*X(4658)-JVS(47381)& - &*X(4659)-JVS(47382)*X(4660)-JVS(47383)*X(4661)-JVS(47384)*X(4662)-JVS(47385)*X(4663)-JVS(47386)*X(4664)& - &-JVS(47387)*X(4665)-JVS(47388)*X(4666)-JVS(47389)*X(4667)-JVS(47390)*X(4668)-JVS(47391)*X(4669)-JVS(47392)& - &*X(4670)-JVS(47393)*X(4671)-JVS(47394)*X(4672)-JVS(47395)*X(4673)-JVS(47396)*X(4674)-JVS(47397)*X(4675)& - &-JVS(47398)*X(4676)-JVS(47399)*X(4677)-JVS(47400)*X(4678)-JVS(47401)*X(4679)-JVS(47402)*X(4680)-JVS(47403)& - &*X(4681)-JVS(47404)*X(4682)-JVS(47405)*X(4683)-JVS(47406)*X(4684)-JVS(47407)*X(4685)-JVS(47408)*X(4686)& - &-JVS(47409)*X(4687)-JVS(47410)*X(4688)-JVS(47411)*X(4689)-JVS(47412)*X(4690)-JVS(47413)*X(4691)-JVS(47414)& - &*X(4692)-JVS(47415)*X(4695)-JVS(47416)*X(4696)-JVS(47417)*X(4697)-JVS(47418)*X(4698)-JVS(47419)*X(4699)& - &-JVS(47420)*X(4700)-JVS(47421)*X(4701)-JVS(47422)*X(4702)-JVS(47423)*X(4703)-JVS(47424)*X(4704)-JVS(47425)& - &*X(4705)-JVS(47426)*X(4706)-JVS(47427)*X(4707)-JVS(47428)*X(4709)-JVS(47429)*X(4711)-JVS(47430)*X(4712)& - &-JVS(47431)*X(4713)-JVS(47432)*X(4714)-JVS(47433)*X(4715)-JVS(47434)*X(4716)-JVS(47435)*X(4717)-JVS(47436)& - &*X(4718)-JVS(47437)*X(4719)-JVS(47438)*X(4720)-JVS(47439)*X(4722)-JVS(47440)*X(4723)-JVS(47441)*X(4724)& - &-JVS(47442)*X(4725)-JVS(47443)*X(4726)-JVS(47444)*X(4727)-JVS(47445)*X(4729)-JVS(47446)*X(4730)-JVS(47447)& - &*X(4731)-JVS(47448)*X(4732)-JVS(47449)*X(4733)-JVS(47450)*X(4734)-JVS(47451)*X(4735)-JVS(47452)*X(4736)& - &-JVS(47453)*X(4738)-JVS(47454)*X(4739)-JVS(47455)*X(4740)-JVS(47456)*X(4741)-JVS(47457)*X(4742)-JVS(47458)& - &*X(4743)-JVS(47459)*X(4744)-JVS(47460)*X(4745)-JVS(47461)*X(4746)-JVS(47462)*X(4748)-JVS(47463)*X(4750)& - &-JVS(47464)*X(4751)-JVS(47465)*X(4752)-JVS(47466)*X(4753)-JVS(47467)*X(4754)-JVS(47468)*X(4755)-JVS(47469)& - &*X(4756)-JVS(47470)*X(4757)-JVS(47471)*X(4758)-JVS(47472)*X(4759)-JVS(47473)*X(4760)-JVS(47474)*X(4761)& - &-JVS(47475)*X(4762)-JVS(47476)*X(4763)-JVS(47477)*X(4764)-JVS(47478)*X(4765)-JVS(47479)*X(4766)-JVS(47480)& - &*X(4767)-JVS(47481)*X(4768)-JVS(47482)*X(4769)-JVS(47483)*X(4770)-JVS(47484)*X(4771)-JVS(47485)*X(4772)& - &-JVS(47486)*X(4773)-JVS(47487)*X(4774)-JVS(47488)*X(4775)-JVS(47489)*X(4776)-JVS(47490)*X(4777)-JVS(47491)& - &*X(4778)-JVS(47492)*X(4779)-JVS(47493)*X(4780)-JVS(47494)*X(4781)-JVS(47495)*X(4782)-JVS(47496)*X(4783)& - &-JVS(47497)*X(4784)-JVS(47498)*X(4785)-JVS(47499)*X(4786)-JVS(47500)*X(4787)-JVS(47501)*X(4788)-JVS(47502)& - &*X(4789)-JVS(47503)*X(4790)-JVS(47504)*X(4791)-JVS(47505)*X(4792)-JVS(47506)*X(4793)-JVS(47507)*X(4794)& - &-JVS(47508)*X(4795)-JVS(47509)*X(4797)-JVS(47510)*X(4798)-JVS(47511)*X(4799)-JVS(47512)*X(4800)-JVS(47513)& - &*X(4802)-JVS(47514)*X(4803)-JVS(47515)*X(4804)-JVS(47516)*X(4805)-JVS(47517)*X(4806)-JVS(47518)*X(4807)& - &-JVS(47519)*X(4808)-JVS(47520)*X(4809)-JVS(47521)*X(4810)-JVS(47522)*X(4811)-JVS(47523)*X(4812)-JVS(47524)& - &*X(4813)-JVS(47525)*X(4814)-JVS(47526)*X(4815)-JVS(47527)*X(4816)-JVS(47528)*X(4817)-JVS(47529)*X(4818)& - &-JVS(47530)*X(4819)-JVS(47531)*X(4820)-JVS(47532)*X(4821)-JVS(47533)*X(4822)-JVS(47534)*X(4823)-JVS(47535)& - &*X(4824)-JVS(47536)*X(4825)-JVS(47537)*X(4826)-JVS(47538)*X(4827)-JVS(47539)*X(4828)-JVS(47540)*X(4829)& - &-JVS(47541)*X(4830)-JVS(47542)*X(4831)-JVS(47543)*X(4832)-JVS(47544)*X(4833)-JVS(47545)*X(4834)-JVS(47546)& - &*X(4835)-JVS(47547)*X(4836)-JVS(47548)*X(4837)-JVS(47549)*X(4838)-JVS(47550)*X(4839)-JVS(47551)*X(4840)& - &-JVS(47552)*X(4841)-JVS(47553)*X(4843)-JVS(47554)*X(4844)-JVS(47555)*X(4845)-JVS(47556)*X(4846)-JVS(47557)& - &*X(4847)-JVS(47558)*X(4848)-JVS(47559)*X(4849)-JVS(47560)*X(4850)-JVS(47561)*X(4851)-JVS(47562)*X(4852)& - &-JVS(47563)*X(4853)-JVS(47564)*X(4854)-JVS(47565)*X(4855)-JVS(47566)*X(4856)-JVS(47567)*X(4857)-JVS(47568)& - &*X(4858)-JVS(47569)*X(4859)-JVS(47570)*X(4860)-JVS(47571)*X(4861)-JVS(47572)*X(4862)-JVS(47573)*X(4863)& - &-JVS(47574)*X(4864)-JVS(47575)*X(4865)-JVS(47576)*X(4866)-JVS(47577)*X(4867)-JVS(47578)*X(4868)-JVS(47579)& - &*X(4869)-JVS(47580)*X(4870)-JVS(47581)*X(4871)-JVS(47582)*X(4873)-JVS(47583)*X(4874)-JVS(47584)*X(4875)& - &-JVS(47585)*X(4876)-JVS(47586)*X(4877)-JVS(47587)*X(4878)-JVS(47588)*X(4879)-JVS(47589)*X(4880)-JVS(47590)& - &*X(4881)-JVS(47591)*X(4882)-JVS(47592)*X(4883)-JVS(47593)*X(4884)-JVS(47594)*X(4885)-JVS(47595)*X(4886)& - &-JVS(47596)*X(4887)-JVS(47597)*X(4888)-JVS(47598)*X(4889)-JVS(47599)*X(4890)-JVS(47600)*X(4891)-JVS(47601)& - &*X(4892)-JVS(47602)*X(4893)-JVS(47603)*X(4894)-JVS(47604)*X(4895)-JVS(47605)*X(4896)-JVS(47606)*X(4897)& - &-JVS(47607)*X(4898)-JVS(47608)*X(4899)-JVS(47609)*X(4900)-JVS(47610)*X(4901)-JVS(47611)*X(4903)-JVS(47612)& - &*X(4904)-JVS(47613)*X(4905)-JVS(47614)*X(4906)-JVS(47615)*X(4907)-JVS(47616)*X(4908)-JVS(47617)*X(4910)& - &-JVS(47618)*X(4911)-JVS(47619)*X(4912)-JVS(47620)*X(4913)-JVS(47621)*X(4914)-JVS(47622)*X(4915)-JVS(47623)& - &*X(4916)-JVS(47624)*X(4917)-JVS(47625)*X(4919)-JVS(47626)*X(4920)-JVS(47627)*X(4921)-JVS(47628)*X(4922)& - &-JVS(47629)*X(4923)-JVS(47630)*X(4924)-JVS(47631)*X(4925)-JVS(47632)*X(4926)-JVS(47633)*X(4927)-JVS(47634)& - &*X(4928)-JVS(47635)*X(4929)-JVS(47636)*X(4930)-JVS(47637)*X(4932)-JVS(47638)*X(4933)-JVS(47639)*X(4934)& - &-JVS(47640)*X(4935)-JVS(47641)*X(4936)-JVS(47642)*X(4937)-JVS(47643)*X(4940)-JVS(47644)*X(4941)-JVS(47645)& - &*X(4942)-JVS(47646)*X(4943)-JVS(47647)*X(4944)-JVS(47648)*X(4945)-JVS(47649)*X(4946)-JVS(47650)*X(4947)& - &-JVS(47651)*X(4948)-JVS(47652)*X(4949)-JVS(47653)*X(4950)-JVS(47654)*X(4951)-JVS(47655)*X(4952)-JVS(47656)& - &*X(4953)-JVS(47657)*X(4954)-JVS(47658)*X(4955)-JVS(47659)*X(4956)-JVS(47660)*X(4957)-JVS(47661)*X(4959)& - &-JVS(47662)*X(4960)-JVS(47663)*X(4961)-JVS(47664)*X(4962)-JVS(47665)*X(4963)-JVS(47666)*X(4964)-JVS(47667)& - &*X(4965)-JVS(47668)*X(4966)-JVS(47669)*X(4967)-JVS(47670)*X(4968)-JVS(47671)*X(4969)-JVS(47672)*X(4970)& - &-JVS(47673)*X(4971)-JVS(47674)*X(4972)-JVS(47675)*X(4974)-JVS(47676)*X(4975)-JVS(47677)*X(4976)-JVS(47678)& - &*X(4977)-JVS(47679)*X(4978)-JVS(47680)*X(4979)-JVS(47681)*X(4980)-JVS(47682)*X(4981)-JVS(47683)*X(4982)& - &-JVS(47684)*X(4984)-JVS(47685)*X(4985)-JVS(47686)*X(4986)-JVS(47687)*X(4987)-JVS(47688)*X(4988)-JVS(47689)& - &*X(4989)-JVS(47690)*X(4990)-JVS(47691)*X(4991)-JVS(47692)*X(4992)-JVS(47693)*X(4993)-JVS(47694)*X(4994)& - &-JVS(47695)*X(4995)-JVS(47696)*X(4996)-JVS(47697)*X(4997)-JVS(47698)*X(4998)-JVS(47699)*X(4999)-JVS(47700)& - &*X(5001)-JVS(47701)*X(5002)-JVS(47702)*X(5003)-JVS(47703)*X(5004)-JVS(47704)*X(5005)-JVS(47705)*X(5006)& - &-JVS(47706)*X(5007)-JVS(47707)*X(5008)-JVS(47708)*X(5009)-JVS(47709)*X(5010)-JVS(47710)*X(5011)-JVS(47711)& - &*X(5012)-JVS(47712)*X(5013)-JVS(47713)*X(5014)-JVS(47714)*X(5015)-JVS(47715)*X(5016)-JVS(47716)*X(5017)& - &-JVS(47717)*X(5018)-JVS(47718)*X(5019)-JVS(47719)*X(5020)-JVS(47720)*X(5021)-JVS(47721)*X(5022)-JVS(47722)& - &*X(5024)-JVS(47723)*X(5025)-JVS(47724)*X(5027)-JVS(47725)*X(5028)-JVS(47726)*X(5029)-JVS(47727)*X(5030)& - &-JVS(47728)*X(5031)-JVS(47729)*X(5032)-JVS(47730)*X(5033)-JVS(47731)*X(5034)-JVS(47732)*X(5035)-JVS(47733)& - &*X(5036)-JVS(47734)*X(5037)-JVS(47735)*X(5038)-JVS(47736)*X(5039)-JVS(47737)*X(5040)-JVS(47738)*X(5041)& - &-JVS(47739)*X(5042)-JVS(47740)*X(5043)-JVS(47741)*X(5044)-JVS(47742)*X(5045)-JVS(47743)*X(5047)-JVS(47744)& - &*X(5048)-JVS(47745)*X(5049)-JVS(47746)*X(5050)-JVS(47747)*X(5051)-JVS(47748)*X(5052)-JVS(47749)*X(5053)& - &-JVS(47750)*X(5054)-JVS(47751)*X(5056)-JVS(47752)*X(5058)-JVS(47753)*X(5059)-JVS(47754)*X(5060)-JVS(47755)& - &*X(5061)-JVS(47756)*X(5062)-JVS(47757)*X(5063)-JVS(47758)*X(5064)-JVS(47759)*X(5065)-JVS(47760)*X(5066)& - &-JVS(47761)*X(5067)-JVS(47762)*X(5068)-JVS(47763)*X(5069)-JVS(47764)*X(5070)-JVS(47765)*X(5071)-JVS(47766)& - &*X(5072)-JVS(47767)*X(5073)-JVS(47768)*X(5074)-JVS(47769)*X(5075)-JVS(47770)*X(5076)-JVS(47771)*X(5077)& - &-JVS(47772)*X(5078)-JVS(47773)*X(5079)-JVS(47774)*X(5081)-JVS(47775)*X(5082)-JVS(47776)*X(5083)-JVS(47777)& - &*X(5084)-JVS(47778)*X(5085)-JVS(47779)*X(5086)-JVS(47780)*X(5087)-JVS(47781)*X(5088)-JVS(47782)*X(5089)& - &-JVS(47783)*X(5090)-JVS(47784)*X(5091)-JVS(47785)*X(5092)-JVS(47786)*X(5093)-JVS(47787)*X(5094)-JVS(47788)& - &*X(5095)-JVS(47789)*X(5096)-JVS(47790)*X(5097)-JVS(47791)*X(5098)-JVS(47792)*X(5099)-JVS(47793)*X(5100)& - &-JVS(47794)*X(5101)-JVS(47795)*X(5102)-JVS(47796)*X(5103)-JVS(47797)*X(5104)-JVS(47798)*X(5106)-JVS(47799)& - &*X(5107)-JVS(47800)*X(5108)-JVS(47801)*X(5109)-JVS(47802)*X(5110)-JVS(47803)*X(5111)-JVS(47804)*X(5112)& - &-JVS(47805)*X(5113)-JVS(47806)*X(5114)-JVS(47807)*X(5115)-JVS(47808)*X(5116)-JVS(47809)*X(5117)-JVS(47810)& - &*X(5118)-JVS(47811)*X(5119)-JVS(47812)*X(5120)-JVS(47813)*X(5121)-JVS(47814)*X(5122)-JVS(47815)*X(5123)& - &-JVS(47816)*X(5124)-JVS(47817)*X(5125)-JVS(47818)*X(5126)-JVS(47819)*X(5127)-JVS(47820)*X(5128)-JVS(47821)& - &*X(5129)-JVS(47822)*X(5130)-JVS(47823)*X(5131)-JVS(47824)*X(5132)-JVS(47825)*X(5133)-JVS(47826)*X(5134)& - &-JVS(47827)*X(5135)-JVS(47828)*X(5136)-JVS(47829)*X(5137)-JVS(47830)*X(5138)-JVS(47831)*X(5140)-JVS(47832)& - &*X(5141)-JVS(47833)*X(5142)-JVS(47834)*X(5143)-JVS(47835)*X(5144)-JVS(47836)*X(5145)-JVS(47837)*X(5146)& - &-JVS(47838)*X(5147)-JVS(47839)*X(5148)-JVS(47840)*X(5149)-JVS(47841)*X(5150)-JVS(47842)*X(5151)-JVS(47843)& - &*X(5152)-JVS(47844)*X(5153)-JVS(47845)*X(5154)-JVS(47846)*X(5155)-JVS(47847)*X(5156)-JVS(47848)*X(5157)& - &-JVS(47849)*X(5158)-JVS(47850)*X(5159)-JVS(47851)*X(5161)-JVS(47852)*X(5162)-JVS(47853)*X(5163)-JVS(47854)& - &*X(5164)-JVS(47855)*X(5165)-JVS(47856)*X(5166)-JVS(47857)*X(5167)-JVS(47858)*X(5168)-JVS(47859)*X(5169)& - &-JVS(47860)*X(5170)-JVS(47861)*X(5171)-JVS(47862)*X(5172)-JVS(47863)*X(5173)-JVS(47864)*X(5174)-JVS(47865)& - &*X(5175)-JVS(47866)*X(5176)-JVS(47867)*X(5177)-JVS(47868)*X(5178)-JVS(47869)*X(5179)-JVS(47870)*X(5180)& - &-JVS(47871)*X(5181)-JVS(47872)*X(5183)-JVS(47873)*X(5185)-JVS(47874)*X(5186)-JVS(47875)*X(5187)-JVS(47876)& - &*X(5189)-JVS(47877)*X(5190)-JVS(47878)*X(5191)-JVS(47879)*X(5192)-JVS(47880)*X(5194)-JVS(47881)*X(5195)& - &-JVS(47882)*X(5196)-JVS(47883)*X(5197)-JVS(47884)*X(5198)-JVS(47885)*X(5200)-JVS(47886)*X(5202)-JVS(47887)& - &*X(5203)-JVS(47888)*X(5204)-JVS(47889)*X(5205)-JVS(47890)*X(5206)-JVS(47891)*X(5207)-JVS(47892)*X(5208)& - &-JVS(47893)*X(5209)-JVS(47894)*X(5210)-JVS(47895)*X(5211)-JVS(47896)*X(5212)-JVS(47897)*X(5213)-JVS(47898)& - &*X(5214)-JVS(47899)*X(5215)-JVS(47900)*X(5216)-JVS(47901)*X(5217)-JVS(47902)*X(5218)-JVS(47903)*X(5219)& - &-JVS(47904)*X(5220)-JVS(47905)*X(5221)-JVS(47906)*X(5223)-JVS(47907)*X(5224)-JVS(47908)*X(5225)-JVS(47909)& - &*X(5226)-JVS(47910)*X(5227)-JVS(47911)*X(5228)-JVS(47912)*X(5229)-JVS(47913)*X(5230)-JVS(47914)*X(5232)& - &-JVS(47915)*X(5233)-JVS(47916)*X(5234)-JVS(47917)*X(5235)-JVS(47918)*X(5236)-JVS(47919)*X(5237)-JVS(47920)& - &*X(5238)-JVS(47921)*X(5239)-JVS(47922)*X(5240)-JVS(47923)*X(5241)-JVS(47924)*X(5242)-JVS(47925)*X(5243)& - &-JVS(47926)*X(5244)-JVS(47927)*X(5245)-JVS(47928)*X(5246)-JVS(47929)*X(5247)-JVS(47930)*X(5248)-JVS(47931)& - &*X(5249)-JVS(47932)*X(5250)-JVS(47933)*X(5251) - X(5253) = X(5253)-JVS(47941)*X(23)-JVS(47942)*X(85)-JVS(47943)*X(86)-JVS(47944)*X(137)-JVS(47945)*X(142)-JVS(47946)& - &*X(244)-JVS(47947)*X(245)-JVS(47948)*X(259)-JVS(47949)*X(331)-JVS(47950)*X(337)-JVS(47951)*X(422)-JVS(47952)& - &*X(448)-JVS(47953)*X(529)-JVS(47954)*X(530)-JVS(47955)*X(535)-JVS(47956)*X(543)-JVS(47957)*X(550)-JVS(47958)& - &*X(555)-JVS(47959)*X(563)-JVS(47960)*X(573)-JVS(47961)*X(583)-JVS(47962)*X(584)-JVS(47963)*X(587)-JVS(47964)& - &*X(597)-JVS(47965)*X(621)-JVS(47966)*X(629)-JVS(47967)*X(635)-JVS(47968)*X(649)-JVS(47969)*X(660)-JVS(47970)& - &*X(662)-JVS(47971)*X(669)-JVS(47972)*X(670)-JVS(47973)*X(673)-JVS(47974)*X(692)-JVS(47975)*X(712)-JVS(47976)& - &*X(713)-JVS(47977)*X(737)-JVS(47978)*X(743)-JVS(47979)*X(744)-JVS(47980)*X(746)-JVS(47981)*X(747)-JVS(47982)& - &*X(753)-JVS(47983)*X(780)-JVS(47984)*X(790)-JVS(47985)*X(797)-JVS(47986)*X(798)-JVS(47987)*X(800)-JVS(47988)& - &*X(809)-JVS(47989)*X(814)-JVS(47990)*X(815)-JVS(47991)*X(816)-JVS(47992)*X(819)-JVS(47993)*X(834)-JVS(47994)& - &*X(840)-JVS(47995)*X(893)-JVS(47996)*X(905)-JVS(47997)*X(924)-JVS(47998)*X(925)-JVS(47999)*X(991)-JVS(48000)& - &*X(1000)-JVS(48001)*X(1005)-JVS(48002)*X(1011)-JVS(48003)*X(1026)-JVS(48004)*X(1057)-JVS(48005)*X(1058)& - &-JVS(48006)*X(1078)-JVS(48007)*X(1081)-JVS(48008)*X(1083)-JVS(48009)*X(1086)-JVS(48010)*X(1110)-JVS(48011)& - &*X(1151)-JVS(48012)*X(1172)-JVS(48013)*X(1184)-JVS(48014)*X(1216)-JVS(48015)*X(1222)-JVS(48016)*X(1240)& - &-JVS(48017)*X(1261)-JVS(48018)*X(1284)-JVS(48019)*X(1311)-JVS(48020)*X(1321)-JVS(48021)*X(1334)-JVS(48022)& - &*X(1363)-JVS(48023)*X(1368)-JVS(48024)*X(1400)-JVS(48025)*X(1457)-JVS(48026)*X(1482)-JVS(48027)*X(1494)& - &-JVS(48028)*X(1529)-JVS(48029)*X(1531)-JVS(48030)*X(1549)-JVS(48031)*X(1551)-JVS(48032)*X(1554)-JVS(48033)& - &*X(1555)-JVS(48034)*X(1562)-JVS(48035)*X(1567)-JVS(48036)*X(1589)-JVS(48037)*X(1591)-JVS(48038)*X(1594)& - &-JVS(48039)*X(1603)-JVS(48040)*X(1613)-JVS(48041)*X(1621)-JVS(48042)*X(1625)-JVS(48043)*X(1629)-JVS(48044)& - &*X(1639)-JVS(48045)*X(1645)-JVS(48046)*X(1647)-JVS(48047)*X(1649)-JVS(48048)*X(1651)-JVS(48049)*X(1657)& - &-JVS(48050)*X(1664)-JVS(48051)*X(1669)-JVS(48052)*X(1672)-JVS(48053)*X(1700)-JVS(48054)*X(1717)-JVS(48055)& - &*X(1729)-JVS(48056)*X(1747)-JVS(48057)*X(1748)-JVS(48058)*X(1749)-JVS(48059)*X(1752)-JVS(48060)*X(1766)& - &-JVS(48061)*X(1770)-JVS(48062)*X(1771)-JVS(48063)*X(1772)-JVS(48064)*X(1780)-JVS(48065)*X(1782)-JVS(48066)& - &*X(1783)-JVS(48067)*X(1785)-JVS(48068)*X(1786)-JVS(48069)*X(1788)-JVS(48070)*X(1794)-JVS(48071)*X(1798)& - &-JVS(48072)*X(1800)-JVS(48073)*X(1802)-JVS(48074)*X(1804)-JVS(48075)*X(1807)-JVS(48076)*X(1811)-JVS(48077)& - &*X(1813)-JVS(48078)*X(1819)-JVS(48079)*X(1823)-JVS(48080)*X(1824)-JVS(48081)*X(1827)-JVS(48082)*X(1829)& - &-JVS(48083)*X(1830)-JVS(48084)*X(1831)-JVS(48085)*X(1835)-JVS(48086)*X(1841)-JVS(48087)*X(1844)-JVS(48088)& - &*X(1846)-JVS(48089)*X(1850)-JVS(48090)*X(1853)-JVS(48091)*X(1856)-JVS(48092)*X(1862)-JVS(48093)*X(1864)& - &-JVS(48094)*X(1881)-JVS(48095)*X(1883)-JVS(48096)*X(1889)-JVS(48097)*X(1894)-JVS(48098)*X(1895)-JVS(48099)& - &*X(1896)-JVS(48100)*X(1902)-JVS(48101)*X(1904)-JVS(48102)*X(1905)-JVS(48103)*X(1909)-JVS(48104)*X(1912)& - &-JVS(48105)*X(1915)-JVS(48106)*X(1916)-JVS(48107)*X(1918)-JVS(48108)*X(1919)-JVS(48109)*X(1921)-JVS(48110)& - &*X(1922)-JVS(48111)*X(1930)-JVS(48112)*X(1933)-JVS(48113)*X(1939)-JVS(48114)*X(1941)-JVS(48115)*X(1943)& - &-JVS(48116)*X(1946)-JVS(48117)*X(1952)-JVS(48118)*X(1954)-JVS(48119)*X(1957)-JVS(48120)*X(1963)-JVS(48121)& - &*X(1964)-JVS(48122)*X(1965)-JVS(48123)*X(1970)-JVS(48124)*X(1972)-JVS(48125)*X(1974)-JVS(48126)*X(1976)& - &-JVS(48127)*X(1977)-JVS(48128)*X(1978)-JVS(48129)*X(1979)-JVS(48130)*X(1980)-JVS(48131)*X(1981)-JVS(48132)& - &*X(1987)-JVS(48133)*X(1990)-JVS(48134)*X(1991)-JVS(48135)*X(1995)-JVS(48136)*X(1996)-JVS(48137)*X(1997)& - &-JVS(48138)*X(1999)-JVS(48139)*X(2003)-JVS(48140)*X(2007)-JVS(48141)*X(2011)-JVS(48142)*X(2014)-JVS(48143)& - &*X(2020)-JVS(48144)*X(2023)-JVS(48145)*X(2028)-JVS(48146)*X(2032)-JVS(48147)*X(2034)-JVS(48148)*X(2036)& - &-JVS(48149)*X(2037)-JVS(48150)*X(2040)-JVS(48151)*X(2045)-JVS(48152)*X(2046)-JVS(48153)*X(2049)-JVS(48154)& - &*X(2053)-JVS(48155)*X(2061)-JVS(48156)*X(2063)-JVS(48157)*X(2065)-JVS(48158)*X(2067)-JVS(48159)*X(2068)& - &-JVS(48160)*X(2072)-JVS(48161)*X(2074)-JVS(48162)*X(2075)-JVS(48163)*X(2077)-JVS(48164)*X(2078)-JVS(48165)& - &*X(2079)-JVS(48166)*X(2083)-JVS(48167)*X(2086)-JVS(48168)*X(2087)-JVS(48169)*X(2091)-JVS(48170)*X(2092)& - &-JVS(48171)*X(2093)-JVS(48172)*X(2094)-JVS(48173)*X(2096)-JVS(48174)*X(2097)-JVS(48175)*X(2099)-JVS(48176)& - &*X(2105)-JVS(48177)*X(2106)-JVS(48178)*X(2108)-JVS(48179)*X(2113)-JVS(48180)*X(2123)-JVS(48181)*X(2124)& - &-JVS(48182)*X(2128)-JVS(48183)*X(2129)-JVS(48184)*X(2136)-JVS(48185)*X(2142)-JVS(48186)*X(2149)-JVS(48187)& - &*X(2150)-JVS(48188)*X(2152)-JVS(48189)*X(2155)-JVS(48190)*X(2157)-JVS(48191)*X(2161)-JVS(48192)*X(2164)& - &-JVS(48193)*X(2165)-JVS(48194)*X(2166)-JVS(48195)*X(2168)-JVS(48196)*X(2169)-JVS(48197)*X(2172)-JVS(48198)& - &*X(2176)-JVS(48199)*X(2180)-JVS(48200)*X(2181)-JVS(48201)*X(2182)-JVS(48202)*X(2183)-JVS(48203)*X(2184)& - &-JVS(48204)*X(2185)-JVS(48205)*X(2189)-JVS(48206)*X(2193)-JVS(48207)*X(2194)-JVS(48208)*X(2195)-JVS(48209)& - &*X(2196)-JVS(48210)*X(2198)-JVS(48211)*X(2199)-JVS(48212)*X(2202)-JVS(48213)*X(2206)-JVS(48214)*X(2213)& - &-JVS(48215)*X(2215)-JVS(48216)*X(2216)-JVS(48217)*X(2218)-JVS(48218)*X(2220)-JVS(48219)*X(2222)-JVS(48220)& - &*X(2224)-JVS(48221)*X(2232)-JVS(48222)*X(2237)-JVS(48223)*X(2239)-JVS(48224)*X(2240)-JVS(48225)*X(2241)& - &-JVS(48226)*X(2242)-JVS(48227)*X(2245)-JVS(48228)*X(2246)-JVS(48229)*X(2250)-JVS(48230)*X(2253)-JVS(48231)& - &*X(2254)-JVS(48232)*X(2256)-JVS(48233)*X(2257)-JVS(48234)*X(2261)-JVS(48235)*X(2262)-JVS(48236)*X(2267)& - &-JVS(48237)*X(2268)-JVS(48238)*X(2270)-JVS(48239)*X(2271)-JVS(48240)*X(2275)-JVS(48241)*X(2276)-JVS(48242)& - &*X(2277)-JVS(48243)*X(2278)-JVS(48244)*X(2280)-JVS(48245)*X(2282)-JVS(48246)*X(2285)-JVS(48247)*X(2288)& - &-JVS(48248)*X(2290)-JVS(48249)*X(2291)-JVS(48250)*X(2294)-JVS(48251)*X(2296)-JVS(48252)*X(2297)-JVS(48253)& - &*X(2299)-JVS(48254)*X(2302)-JVS(48255)*X(2303)-JVS(48256)*X(2306)-JVS(48257)*X(2309)-JVS(48258)*X(2311)& - &-JVS(48259)*X(2313)-JVS(48260)*X(2314)-JVS(48261)*X(2317)-JVS(48262)*X(2321)-JVS(48263)*X(2325)-JVS(48264)& - &*X(2327)-JVS(48265)*X(2328)-JVS(48266)*X(2330)-JVS(48267)*X(2332)-JVS(48268)*X(2333)-JVS(48269)*X(2337)& - &-JVS(48270)*X(2338)-JVS(48271)*X(2341)-JVS(48272)*X(2342)-JVS(48273)*X(2343)-JVS(48274)*X(2344)-JVS(48275)& - &*X(2345)-JVS(48276)*X(2347)-JVS(48277)*X(2350)-JVS(48278)*X(2351)-JVS(48279)*X(2352)-JVS(48280)*X(2354)& - &-JVS(48281)*X(2365)-JVS(48282)*X(2367)-JVS(48283)*X(2368)-JVS(48284)*X(2370)-JVS(48285)*X(2372)-JVS(48286)& - &*X(2375)-JVS(48287)*X(2378)-JVS(48288)*X(2382)-JVS(48289)*X(2383)-JVS(48290)*X(2387)-JVS(48291)*X(2389)& - &-JVS(48292)*X(2403)-JVS(48293)*X(2405)-JVS(48294)*X(2406)-JVS(48295)*X(2408)-JVS(48296)*X(2417)-JVS(48297)& - &*X(2418)-JVS(48298)*X(2419)-JVS(48299)*X(2427)-JVS(48300)*X(2429)-JVS(48301)*X(2432)-JVS(48302)*X(2433)& - &-JVS(48303)*X(2434)-JVS(48304)*X(2436)-JVS(48305)*X(2441)-JVS(48306)*X(2444)-JVS(48307)*X(2447)-JVS(48308)& - &*X(2453)-JVS(48309)*X(2454)-JVS(48310)*X(2458)-JVS(48311)*X(2459)-JVS(48312)*X(2460)-JVS(48313)*X(2461)& - &-JVS(48314)*X(2462)-JVS(48315)*X(2468)-JVS(48316)*X(2478)-JVS(48317)*X(2481)-JVS(48318)*X(2486)-JVS(48319)& - &*X(2489)-JVS(48320)*X(2491)-JVS(48321)*X(2493)-JVS(48322)*X(2495)-JVS(48323)*X(2496)-JVS(48324)*X(2498)& - &-JVS(48325)*X(2499)-JVS(48326)*X(2500)-JVS(48327)*X(2502)-JVS(48328)*X(2504)-JVS(48329)*X(2505)-JVS(48330)& - &*X(2506)-JVS(48331)*X(2509)-JVS(48332)*X(2510)-JVS(48333)*X(2511)-JVS(48334)*X(2513)-JVS(48335)*X(2514)& - &-JVS(48336)*X(2515)-JVS(48337)*X(2517)-JVS(48338)*X(2518)-JVS(48339)*X(2519)-JVS(48340)*X(2520)-JVS(48341)& - &*X(2522)-JVS(48342)*X(2523)-JVS(48343)*X(2524)-JVS(48344)*X(2525)-JVS(48345)*X(2527)-JVS(48346)*X(2529)& - &-JVS(48347)*X(2530)-JVS(48348)*X(2531)-JVS(48349)*X(2532)-JVS(48350)*X(2533)-JVS(48351)*X(2534)-JVS(48352)& - &*X(2535)-JVS(48353)*X(2536)-JVS(48354)*X(2537)-JVS(48355)*X(2538)-JVS(48356)*X(2542)-JVS(48357)*X(2546)& - &-JVS(48358)*X(2547)-JVS(48359)*X(2548)-JVS(48360)*X(2552)-JVS(48361)*X(2555)-JVS(48362)*X(2557)-JVS(48363)& - &*X(2560)-JVS(48364)*X(2563)-JVS(48365)*X(2564)-JVS(48366)*X(2565)-JVS(48367)*X(2566)-JVS(48368)*X(2567)& - &-JVS(48369)*X(2569)-JVS(48370)*X(2571)-JVS(48371)*X(2573)-JVS(48372)*X(2576)-JVS(48373)*X(2577)-JVS(48374)& - &*X(2578)-JVS(48375)*X(2579)-JVS(48376)*X(2580)-JVS(48377)*X(2582)-JVS(48378)*X(2583)-JVS(48379)*X(2584)& - &-JVS(48380)*X(2585)-JVS(48381)*X(2587)-JVS(48382)*X(2588)-JVS(48383)*X(2593)-JVS(48384)*X(2595)-JVS(48385)& - &*X(2597)-JVS(48386)*X(2598)-JVS(48387)*X(2600)-JVS(48388)*X(2605)-JVS(48389)*X(2606)-JVS(48390)*X(2608)& - &-JVS(48391)*X(2610)-JVS(48392)*X(2611)-JVS(48393)*X(2612)-JVS(48394)*X(2613)-JVS(48395)*X(2615)-JVS(48396)& - &*X(2619)-JVS(48397)*X(2620)-JVS(48398)*X(2621)-JVS(48399)*X(2622)-JVS(48400)*X(2624)-JVS(48401)*X(2626)& - &-JVS(48402)*X(2629)-JVS(48403)*X(2630)-JVS(48404)*X(2631)-JVS(48405)*X(2632)-JVS(48406)*X(2635)-JVS(48407)& - &*X(2636)-JVS(48408)*X(2637)-JVS(48409)*X(2640)-JVS(48410)*X(2643)-JVS(48411)*X(2648)-JVS(48412)*X(2649)& - &-JVS(48413)*X(2650)-JVS(48414)*X(2651)-JVS(48415)*X(2653)-JVS(48416)*X(2655)-JVS(48417)*X(2656)-JVS(48418)& - &*X(2657)-JVS(48419)*X(2658)-JVS(48420)*X(2660)-JVS(48421)*X(2661)-JVS(48422)*X(2663)-JVS(48423)*X(2664)& - &-JVS(48424)*X(2666)-JVS(48425)*X(2668)-JVS(48426)*X(2669)-JVS(48427)*X(2670)-JVS(48428)*X(2671)-JVS(48429)& - &*X(2672)-JVS(48430)*X(2673)-JVS(48431)*X(2674)-JVS(48432)*X(2675)-JVS(48433)*X(2677)-JVS(48434)*X(2678)& - &-JVS(48435)*X(2681)-JVS(48436)*X(2682)-JVS(48437)*X(2683)-JVS(48438)*X(2684)-JVS(48439)*X(2685)-JVS(48440)& - &*X(2687)-JVS(48441)*X(2688)-JVS(48442)*X(2689)-JVS(48443)*X(2691)-JVS(48444)*X(2696)-JVS(48445)*X(2698)& - &-JVS(48446)*X(2700)-JVS(48447)*X(2701)-JVS(48448)*X(2702)-JVS(48449)*X(2703)-JVS(48450)*X(2704)-JVS(48451)& - &*X(2705)-JVS(48452)*X(2708)-JVS(48453)*X(2709)-JVS(48454)*X(2712)-JVS(48455)*X(2713)-JVS(48456)*X(2718)& - &-JVS(48457)*X(2721)-JVS(48458)*X(2725)-JVS(48459)*X(2726)-JVS(48460)*X(2728)-JVS(48461)*X(2729)-JVS(48462)& - &*X(2732)-JVS(48463)*X(2733)-JVS(48464)*X(2734)-JVS(48465)*X(2735)-JVS(48466)*X(2736)-JVS(48467)*X(2738)& - &-JVS(48468)*X(2740)-JVS(48469)*X(2742)-JVS(48470)*X(2743)-JVS(48471)*X(2750)-JVS(48472)*X(2755)-JVS(48473)& - &*X(2756)-JVS(48474)*X(2757)-JVS(48475)*X(2759)-JVS(48476)*X(2761)-JVS(48477)*X(2762)-JVS(48478)*X(2764)& - &-JVS(48479)*X(2765)-JVS(48480)*X(2768)-JVS(48481)*X(2772)-JVS(48482)*X(2776)-JVS(48483)*X(2777)-JVS(48484)& - &*X(2778)-JVS(48485)*X(2779)-JVS(48486)*X(2780)-JVS(48487)*X(2781)-JVS(48488)*X(2782)-JVS(48489)*X(2783)& - &-JVS(48490)*X(2784)-JVS(48491)*X(2786)-JVS(48492)*X(2787)-JVS(48493)*X(2789)-JVS(48494)*X(2790)-JVS(48495)& - &*X(2791)-JVS(48496)*X(2792)-JVS(48497)*X(2793)-JVS(48498)*X(2794)-JVS(48499)*X(2796)-JVS(48500)*X(2798)& - &-JVS(48501)*X(2799)-JVS(48502)*X(2800)-JVS(48503)*X(2801)-JVS(48504)*X(2802)-JVS(48505)*X(2804)-JVS(48506)& - &*X(2806)-JVS(48507)*X(2808)-JVS(48508)*X(2811)-JVS(48509)*X(2812)-JVS(48510)*X(2813)-JVS(48511)*X(2814)& - &-JVS(48512)*X(2815)-JVS(48513)*X(2817)-JVS(48514)*X(2818)-JVS(48515)*X(2821)-JVS(48516)*X(2822)-JVS(48517)& - &*X(2823)-JVS(48518)*X(2825)-JVS(48519)*X(2829)-JVS(48520)*X(2830)-JVS(48521)*X(2831)-JVS(48522)*X(2832)& - &-JVS(48523)*X(2833)-JVS(48524)*X(2834)-JVS(48525)*X(2835)-JVS(48526)*X(2839)-JVS(48527)*X(2841)-JVS(48528)& - &*X(2842)-JVS(48529)*X(2843)-JVS(48530)*X(2844)-JVS(48531)*X(2845)-JVS(48532)*X(2846)-JVS(48533)*X(2847)& - &-JVS(48534)*X(2848)-JVS(48535)*X(2850)-JVS(48536)*X(2851)-JVS(48537)*X(2852)-JVS(48538)*X(2854)-JVS(48539)& - &*X(2855)-JVS(48540)*X(2857)-JVS(48541)*X(2858)-JVS(48542)*X(2859)-JVS(48543)*X(2860)-JVS(48544)*X(2863)& - &-JVS(48545)*X(2864)-JVS(48546)*X(2866)-JVS(48547)*X(2867)-JVS(48548)*X(2869)-JVS(48549)*X(2870)-JVS(48550)& - &*X(2872)-JVS(48551)*X(2876)-JVS(48552)*X(2877)-JVS(48553)*X(2879)-JVS(48554)*X(2880)-JVS(48555)*X(2882)& - &-JVS(48556)*X(2883)-JVS(48557)*X(2884)-JVS(48558)*X(2885)-JVS(48559)*X(2886)-JVS(48560)*X(2887)-JVS(48561)& - &*X(2888)-JVS(48562)*X(2892)-JVS(48563)*X(2896)-JVS(48564)*X(2898)-JVS(48565)*X(2901)-JVS(48566)*X(2903)& - &-JVS(48567)*X(2904)-JVS(48568)*X(2907)-JVS(48569)*X(2908)-JVS(48570)*X(2913)-JVS(48571)*X(2915)-JVS(48572)& - &*X(2916)-JVS(48573)*X(2917)-JVS(48574)*X(2918)-JVS(48575)*X(2919)-JVS(48576)*X(2921)-JVS(48577)*X(2924)& - &-JVS(48578)*X(2925)-JVS(48579)*X(2928)-JVS(48580)*X(2929)-JVS(48581)*X(2934)-JVS(48582)*X(2935)-JVS(48583)& - &*X(2937)-JVS(48584)*X(2941)-JVS(48585)*X(2942)-JVS(48586)*X(2943)-JVS(48587)*X(2945)-JVS(48588)*X(2947)& - &-JVS(48589)*X(2948)-JVS(48590)*X(2950)-JVS(48591)*X(2951)-JVS(48592)*X(2952)-JVS(48593)*X(2955)-JVS(48594)& - &*X(2956)-JVS(48595)*X(2957)-JVS(48596)*X(2958)-JVS(48597)*X(2959)-JVS(48598)*X(2962)-JVS(48599)*X(2964)& - &-JVS(48600)*X(2966)-JVS(48601)*X(2969)-JVS(48602)*X(2970)-JVS(48603)*X(2977)-JVS(48604)*X(2978)-JVS(48605)& - &*X(2980)-JVS(48606)*X(2984)-JVS(48607)*X(2985)-JVS(48608)*X(2986)-JVS(48609)*X(2987)-JVS(48610)*X(2988)& - &-JVS(48611)*X(2994)-JVS(48612)*X(2995)-JVS(48613)*X(2998)-JVS(48614)*X(2999)-JVS(48615)*X(3002)-JVS(48616)& - &*X(3003)-JVS(48617)*X(3007)-JVS(48618)*X(3008)-JVS(48619)*X(3010)-JVS(48620)*X(3011)-JVS(48621)*X(3012)& - &-JVS(48622)*X(3014)-JVS(48623)*X(3015)-JVS(48624)*X(3016)-JVS(48625)*X(3017)-JVS(48626)*X(3019)-JVS(48627)& - &*X(3020)-JVS(48628)*X(3021)-JVS(48629)*X(3023)-JVS(48630)*X(3024)-JVS(48631)*X(3025)-JVS(48632)*X(3026)& - &-JVS(48633)*X(3027)-JVS(48634)*X(3029)-JVS(48635)*X(3030)-JVS(48636)*X(3034)-JVS(48637)*X(3036)-JVS(48638)& - &*X(3040)-JVS(48639)*X(3042)-JVS(48640)*X(3045)-JVS(48641)*X(3047)-JVS(48642)*X(3050)-JVS(48643)*X(3051)& - &-JVS(48644)*X(3052)-JVS(48645)*X(3053)-JVS(48646)*X(3056)-JVS(48647)*X(3059)-JVS(48648)*X(3060)-JVS(48649)& - &*X(3061)-JVS(48650)*X(3063)-JVS(48651)*X(3065)-JVS(48652)*X(3068)-JVS(48653)*X(3070)-JVS(48654)*X(3074)& - &-JVS(48655)*X(3075)-JVS(48656)*X(3076)-JVS(48657)*X(3077)-JVS(48658)*X(3081)-JVS(48659)*X(3090)-JVS(48660)& - &*X(3102)-JVS(48661)*X(3106)-JVS(48662)*X(3108)-JVS(48663)*X(3141)-JVS(48664)*X(3154)-JVS(48665)*X(3159)& - &-JVS(48666)*X(3160)-JVS(48667)*X(3173)-JVS(48668)*X(3175)-JVS(48669)*X(3177)-JVS(48670)*X(3188)-JVS(48671)& - &*X(3197)-JVS(48672)*X(3199)-JVS(48673)*X(3203)-JVS(48674)*X(3204)-JVS(48675)*X(3206)-JVS(48676)*X(3211)& - &-JVS(48677)*X(3212)-JVS(48678)*X(3218)-JVS(48679)*X(3220)-JVS(48680)*X(3221)-JVS(48681)*X(3223)-JVS(48682)& - &*X(3224)-JVS(48683)*X(3229)-JVS(48684)*X(3232)-JVS(48685)*X(3235)-JVS(48686)*X(3236)-JVS(48687)*X(3239)& - &-JVS(48688)*X(3240)-JVS(48689)*X(3245)-JVS(48690)*X(3249)-JVS(48691)*X(3253)-JVS(48692)*X(3254)-JVS(48693)& - &*X(3257)-JVS(48694)*X(3258)-JVS(48695)*X(3260)-JVS(48696)*X(3264)-JVS(48697)*X(3271)-JVS(48698)*X(3272)& - &-JVS(48699)*X(3273)-JVS(48700)*X(3275)-JVS(48701)*X(3278)-JVS(48702)*X(3279)-JVS(48703)*X(3282)-JVS(48704)& - &*X(3285)-JVS(48705)*X(3290)-JVS(48706)*X(3292)-JVS(48707)*X(3293)-JVS(48708)*X(3295)-JVS(48709)*X(3300)& - &-JVS(48710)*X(3302)-JVS(48711)*X(3303)-JVS(48712)*X(3304)-JVS(48713)*X(3305)-JVS(48714)*X(3306)-JVS(48715)& - &*X(3307)-JVS(48716)*X(3311)-JVS(48717)*X(3312)-JVS(48718)*X(3313)-JVS(48719)*X(3315)-JVS(48720)*X(3316)& - &-JVS(48721)*X(3317)-JVS(48722)*X(3318)-JVS(48723)*X(3319)-JVS(48724)*X(3320)-JVS(48725)*X(3321)-JVS(48726)& - &*X(3322)-JVS(48727)*X(3323)-JVS(48728)*X(3324)-JVS(48729)*X(3326)-JVS(48730)*X(3327)-JVS(48731)*X(3328)& - &-JVS(48732)*X(3329)-JVS(48733)*X(3334)-JVS(48734)*X(3340)-JVS(48735)*X(3341)-JVS(48736)*X(3347)-JVS(48737)& - &*X(3349)-JVS(48738)*X(3351)-JVS(48739)*X(3353)-JVS(48740)*X(3354)-JVS(48741)*X(3357)-JVS(48742)*X(3358)& - &-JVS(48743)*X(3360)-JVS(48744)*X(3361)-JVS(48745)*X(3362)-JVS(48746)*X(3363)-JVS(48747)*X(3364)-JVS(48748)& - &*X(3370)-JVS(48749)*X(3371)-JVS(48750)*X(3375)-JVS(48751)*X(3376)-JVS(48752)*X(3379)-JVS(48753)*X(3380)& - &-JVS(48754)*X(3381)-JVS(48755)*X(3385)-JVS(48756)*X(3388)-JVS(48757)*X(3392)-JVS(48758)*X(3394)-JVS(48759)& - &*X(3395)-JVS(48760)*X(3396)-JVS(48761)*X(3399)-JVS(48762)*X(3400)-JVS(48763)*X(3401)-JVS(48764)*X(3402)& - &-JVS(48765)*X(3406)-JVS(48766)*X(3407)-JVS(48767)*X(3408)-JVS(48768)*X(3409)-JVS(48769)*X(3414)-JVS(48770)& - &*X(3417)-JVS(48771)*X(3418)-JVS(48772)*X(3421)-JVS(48773)*X(3423)-JVS(48774)*X(3427)-JVS(48775)*X(3432)& - &-JVS(48776)*X(3435)-JVS(48777)*X(3436)-JVS(48778)*X(3438)-JVS(48779)*X(3439)-JVS(48780)*X(3443)-JVS(48781)& - &*X(3445)-JVS(48782)*X(3447)-JVS(48783)*X(3456)-JVS(48784)*X(3457)-JVS(48785)*X(3460)-JVS(48786)*X(3461)& - &-JVS(48787)*X(3474)-JVS(48788)*X(3477)-JVS(48789)*X(3478)-JVS(48790)*X(3481)-JVS(48791)*X(3485)-JVS(48792)& - &*X(3489)-JVS(48793)*X(3490)-JVS(48794)*X(3491)-JVS(48795)*X(3492)-JVS(48796)*X(3496)-JVS(48797)*X(3500)& - &-JVS(48798)*X(3502)-JVS(48799)*X(3503)-JVS(48800)*X(3507)-JVS(48801)*X(3509)-JVS(48802)*X(3511)-JVS(48803)& - &*X(3518)-JVS(48804)*X(3520)-JVS(48805)*X(3521)-JVS(48806)*X(3523)-JVS(48807)*X(3525)-JVS(48808)*X(3527)& - &-JVS(48809)*X(3529)-JVS(48810)*X(3531)-JVS(48811)*X(3532)-JVS(48812)*X(3533)-JVS(48813)*X(3534)-JVS(48814)& - &*X(3538)-JVS(48815)*X(3539)-JVS(48816)*X(3541)-JVS(48817)*X(3549)-JVS(48818)*X(3554)-JVS(48819)*X(3555)& - &-JVS(48820)*X(3562)-JVS(48821)*X(3563)-JVS(48822)*X(3568)-JVS(48823)*X(3572)-JVS(48824)*X(3574)-JVS(48825)& - &*X(3575)-JVS(48826)*X(3577)-JVS(48827)*X(3579)-JVS(48828)*X(3585)-JVS(48829)*X(3586)-JVS(48830)*X(3592)& - &-JVS(48831)*X(3596)-JVS(48832)*X(3597)-JVS(48833)*X(3598)-JVS(48834)*X(3601)-JVS(48835)*X(3620)-JVS(48836)& - &*X(3625)-JVS(48837)*X(3627)-JVS(48838)*X(3628)-JVS(48839)*X(3631)-JVS(48840)*X(3632)-JVS(48841)*X(3634)& - &-JVS(48842)*X(3635)-JVS(48843)*X(3636)-JVS(48844)*X(3637)-JVS(48845)*X(3641)-JVS(48846)*X(3648)-JVS(48847)& - &*X(3650)-JVS(48848)*X(3654)-JVS(48849)*X(3658)-JVS(48850)*X(3659)-JVS(48851)*X(3660)-JVS(48852)*X(3661)& - &-JVS(48853)*X(3663)-JVS(48854)*X(3665)-JVS(48855)*X(3666)-JVS(48856)*X(3667)-JVS(48857)*X(3668)-JVS(48858)& - &*X(3669)-JVS(48859)*X(3670)-JVS(48860)*X(3671)-JVS(48861)*X(3672)-JVS(48862)*X(3674)-JVS(48863)*X(3675)& - &-JVS(48864)*X(3676)-JVS(48865)*X(3677)-JVS(48866)*X(3678)-JVS(48867)*X(3679)-JVS(48868)*X(3680)-JVS(48869)& - &*X(3685)-JVS(48870)*X(3686)-JVS(48871)*X(3687)-JVS(48872)*X(3688)-JVS(48873)*X(3690)-JVS(48874)*X(3691)& - &-JVS(48875)*X(3692)-JVS(48876)*X(3694)-JVS(48877)*X(3695)-JVS(48878)*X(3696)-JVS(48879)*X(3697)-JVS(48880)& - &*X(3698)-JVS(48881)*X(3699)-JVS(48882)*X(3700)-JVS(48883)*X(3703)-JVS(48884)*X(3704)-JVS(48885)*X(3705)& - &-JVS(48886)*X(3706)-JVS(48887)*X(3710)-JVS(48888)*X(3711)-JVS(48889)*X(3713)-JVS(48890)*X(3714)-JVS(48891)& - &*X(3715)-JVS(48892)*X(3717)-JVS(48893)*X(3718)-JVS(48894)*X(3719)-JVS(48895)*X(3720)-JVS(48896)*X(3721)& - &-JVS(48897)*X(3722)-JVS(48898)*X(3724)-JVS(48899)*X(3725)-JVS(48900)*X(3727)-JVS(48901)*X(3728)-JVS(48902)& - &*X(3730)-JVS(48903)*X(3731)-JVS(48904)*X(3733)-JVS(48905)*X(3738)-JVS(48906)*X(3739)-JVS(48907)*X(3740)& - &-JVS(48908)*X(3741)-JVS(48909)*X(3743)-JVS(48910)*X(3744)-JVS(48911)*X(3745)-JVS(48912)*X(3746)-JVS(48913)& - &*X(3749)-JVS(48914)*X(3750)-JVS(48915)*X(3751)-JVS(48916)*X(3752)-JVS(48917)*X(3753)-JVS(48918)*X(3758)& - &-JVS(48919)*X(3760)-JVS(48920)*X(3761)-JVS(48921)*X(3762)-JVS(48922)*X(3764)-JVS(48923)*X(3766)-JVS(48924)& - &*X(3767)-JVS(48925)*X(3768)-JVS(48926)*X(3769)-JVS(48927)*X(3770)-JVS(48928)*X(3771)-JVS(48929)*X(3772)& - &-JVS(48930)*X(3774)-JVS(48931)*X(3776)-JVS(48932)*X(3778)-JVS(48933)*X(3781)-JVS(48934)*X(3782)-JVS(48935)& - &*X(3784)-JVS(48936)*X(3785)-JVS(48937)*X(3786)-JVS(48938)*X(3788)-JVS(48939)*X(3789)-JVS(48940)*X(3790)& - &-JVS(48941)*X(3791)-JVS(48942)*X(3793)-JVS(48943)*X(3794)-JVS(48944)*X(3796)-JVS(48945)*X(3797)-JVS(48946)& - &*X(3798)-JVS(48947)*X(3799)-JVS(48948)*X(3801)-JVS(48949)*X(3803)-JVS(48950)*X(3804)-JVS(48951)*X(3806)& - &-JVS(48952)*X(3807)-JVS(48953)*X(3808)-JVS(48954)*X(3810)-JVS(48955)*X(3811)-JVS(48956)*X(3813)-JVS(48957)& - &*X(3814)-JVS(48958)*X(3815)-JVS(48959)*X(3817)-JVS(48960)*X(3819)-JVS(48961)*X(3820)-JVS(48962)*X(3823)& - &-JVS(48963)*X(3825)-JVS(48964)*X(3827)-JVS(48965)*X(3828)-JVS(48966)*X(3835)-JVS(48967)*X(3836)-JVS(48968)& - &*X(3837)-JVS(48969)*X(3838)-JVS(48970)*X(3839)-JVS(48971)*X(3840)-JVS(48972)*X(3841)-JVS(48973)*X(3842)& - &-JVS(48974)*X(3844)-JVS(48975)*X(3845)-JVS(48976)*X(3846)-JVS(48977)*X(3847)-JVS(48978)*X(3848)-JVS(48979)& - &*X(3850)-JVS(48980)*X(3852)-JVS(48981)*X(3853)-JVS(48982)*X(3854)-JVS(48983)*X(3855)-JVS(48984)*X(3858)& - &-JVS(48985)*X(3859)-JVS(48986)*X(3860)-JVS(48987)*X(3863)-JVS(48988)*X(3864)-JVS(48989)*X(3865)-JVS(48990)& - &*X(3866)-JVS(48991)*X(3867)-JVS(48992)*X(3869)-JVS(48993)*X(3870)-JVS(48994)*X(3871)-JVS(48995)*X(3872)& - &-JVS(48996)*X(3873)-JVS(48997)*X(3874)-JVS(48998)*X(3876)-JVS(48999)*X(3878)-JVS(49000)*X(3880)-JVS(49001)& - &*X(3881)-JVS(49002)*X(3882)-JVS(49003)*X(3883)-JVS(49004)*X(3884)-JVS(49005)*X(3885)-JVS(49006)*X(3886)& - &-JVS(49007)*X(3887)-JVS(49008)*X(3888)-JVS(49009)*X(3889)-JVS(49010)*X(3890)-JVS(49011)*X(3891)-JVS(49012)& - &*X(3893)-JVS(49013)*X(3894)-JVS(49014)*X(3895)-JVS(49015)*X(3897)-JVS(49016)*X(3898)-JVS(49017)*X(3899)& - &-JVS(49018)*X(3901)-JVS(49019)*X(3902)-JVS(49020)*X(3903)-JVS(49021)*X(3904)-JVS(49022)*X(3905)-JVS(49023)& - &*X(3907)-JVS(49024)*X(3908)-JVS(49025)*X(3909)-JVS(49026)*X(3910)-JVS(49027)*X(3912)-JVS(49028)*X(3916)& - &-JVS(49029)*X(3919)-JVS(49030)*X(3920)-JVS(49031)*X(3921)-JVS(49032)*X(3922)-JVS(49033)*X(3925)-JVS(49034)& - &*X(3926)-JVS(49035)*X(3927)-JVS(49036)*X(3928)-JVS(49037)*X(3929)-JVS(49038)*X(3932)-JVS(49039)*X(3933)& - &-JVS(49040)*X(3934)-JVS(49041)*X(3936)-JVS(49042)*X(3937)-JVS(49043)*X(3939)-JVS(49044)*X(3940)-JVS(49045)& - &*X(3941)-JVS(49046)*X(3942)-JVS(49047)*X(3943)-JVS(49048)*X(3944)-JVS(49049)*X(3945)-JVS(49050)*X(3948)& - &-JVS(49051)*X(3949)-JVS(49052)*X(3950)-JVS(49053)*X(3951)-JVS(49054)*X(3952)-JVS(49055)*X(3953)-JVS(49056)& - &*X(3954)-JVS(49057)*X(3955)-JVS(49058)*X(3956)-JVS(49059)*X(3961)-JVS(49060)*X(3962)-JVS(49061)*X(3963)& - &-JVS(49062)*X(3964)-JVS(49063)*X(3966)-JVS(49064)*X(3967)-JVS(49065)*X(3969)-JVS(49066)*X(3970)-JVS(49067)& - &*X(3971)-JVS(49068)*X(3973)-JVS(49069)*X(3974)-JVS(49070)*X(3975)-JVS(49071)*X(3976)-JVS(49072)*X(3977)& - &-JVS(49073)*X(3979)-JVS(49074)*X(3980)-JVS(49075)*X(3981)-JVS(49076)*X(3982)-JVS(49077)*X(3983)-JVS(49078)& - &*X(3984)-JVS(49079)*X(3985)-JVS(49080)*X(3987)-JVS(49081)*X(3988)-JVS(49082)*X(3989)-JVS(49083)*X(3990)& - &-JVS(49084)*X(3992)-JVS(49085)*X(3994)-JVS(49086)*X(3997)-JVS(49087)*X(3998)-JVS(49088)*X(3999)-JVS(49089)& - &*X(4000)-JVS(49090)*X(4001)-JVS(49091)*X(4002)-JVS(49092)*X(4003)-JVS(49093)*X(4005)-JVS(49094)*X(4006)& - &-JVS(49095)*X(4007)-JVS(49096)*X(4008)-JVS(49097)*X(4009)-JVS(49098)*X(4011)-JVS(49099)*X(4012)-JVS(49100)& - &*X(4013)-JVS(49101)*X(4015)-JVS(49102)*X(4016)-JVS(49103)*X(4019)-JVS(49104)*X(4020)-JVS(49105)*X(4021)& - &-JVS(49106)*X(4022)-JVS(49107)*X(4023)-JVS(49108)*X(4025)-JVS(49109)*X(4026)-JVS(49110)*X(4028)-JVS(49111)& - &*X(4030)-JVS(49112)*X(4031)-JVS(49113)*X(4033)-JVS(49114)*X(4034)-JVS(49115)*X(4035)-JVS(49116)*X(4036)& - &-JVS(49117)*X(4037)-JVS(49118)*X(4038)-JVS(49119)*X(4039)-JVS(49120)*X(4040)-JVS(49121)*X(4041)-JVS(49122)& - &*X(4042)-JVS(49123)*X(4043)-JVS(49124)*X(4044)-JVS(49125)*X(4045)-JVS(49126)*X(4046)-JVS(49127)*X(4049)& - &-JVS(49128)*X(4050)-JVS(49129)*X(4051)-JVS(49130)*X(4052)-JVS(49131)*X(4054)-JVS(49132)*X(4055)-JVS(49133)& - &*X(4057)-JVS(49134)*X(4058)-JVS(49135)*X(4059)-JVS(49136)*X(4060)-JVS(49137)*X(4061)-JVS(49138)*X(4063)& - &-JVS(49139)*X(4064)-JVS(49140)*X(4065)-JVS(49141)*X(4066)-JVS(49142)*X(4067)-JVS(49143)*X(4068)-JVS(49144)& - &*X(4069)-JVS(49145)*X(4070)-JVS(49146)*X(4072)-JVS(49147)*X(4073)-JVS(49148)*X(4074)-JVS(49149)*X(4075)& - &-JVS(49150)*X(4076)-JVS(49151)*X(4077)-JVS(49152)*X(4078)-JVS(49153)*X(4079)-JVS(49154)*X(4082)-JVS(49155)& - &*X(4085)-JVS(49156)*X(4087)-JVS(49157)*X(4088)-JVS(49158)*X(4089)-JVS(49159)*X(4090)-JVS(49160)*X(4091)& - &-JVS(49161)*X(4092)-JVS(49162)*X(4095)-JVS(49163)*X(4097)-JVS(49164)*X(4098)-JVS(49165)*X(4099)-JVS(49166)& - &*X(4100)-JVS(49167)*X(4101)-JVS(49168)*X(4102)-JVS(49169)*X(4105)-JVS(49170)*X(4106)-JVS(49171)*X(4108)& - &-JVS(49172)*X(4111)-JVS(49173)*X(4112)-JVS(49174)*X(4114)-JVS(49175)*X(4115)-JVS(49176)*X(4116)-JVS(49177)& - &*X(4117)-JVS(49178)*X(4118)-JVS(49179)*X(4119)-JVS(49180)*X(4120)-JVS(49181)*X(4121)-JVS(49182)*X(4123)& - &-JVS(49183)*X(4124)-JVS(49184)*X(4126)-JVS(49185)*X(4127)-JVS(49186)*X(4128)-JVS(49187)*X(4129)-JVS(49188)& - &*X(4130)-JVS(49189)*X(4131)-JVS(49190)*X(4132)-JVS(49191)*X(4133)-JVS(49192)*X(4134)-JVS(49193)*X(4135)& - &-JVS(49194)*X(4136)-JVS(49195)*X(4137)-JVS(49196)*X(4138)-JVS(49197)*X(4139)-JVS(49198)*X(4140)-JVS(49199)& - &*X(4141)-JVS(49200)*X(4142)-JVS(49201)*X(4143)-JVS(49202)*X(4144)-JVS(49203)*X(4145)-JVS(49204)*X(4146)& - &-JVS(49205)*X(4147)-JVS(49206)*X(4148)-JVS(49207)*X(4149)-JVS(49208)*X(4150)-JVS(49209)*X(4151)-JVS(49210)& - &*X(4152)-JVS(49211)*X(4153)-JVS(49212)*X(4154)-JVS(49213)*X(4155)-JVS(49214)*X(4156)-JVS(49215)*X(4157)& - &-JVS(49216)*X(4158)-JVS(49217)*X(4159)-JVS(49218)*X(4160)-JVS(49219)*X(4161)-JVS(49220)*X(4162)-JVS(49221)& - &*X(4163)-JVS(49222)*X(4165)-JVS(49223)*X(4166)-JVS(49224)*X(4167)-JVS(49225)*X(4168)-JVS(49226)*X(4169)& - &-JVS(49227)*X(4170)-JVS(49228)*X(4171)-JVS(49229)*X(4172)-JVS(49230)*X(4173)-JVS(49231)*X(4174)-JVS(49232)& - &*X(4176)-JVS(49233)*X(4180)-JVS(49234)*X(4181)-JVS(49235)*X(4182)-JVS(49236)*X(4184)-JVS(49237)*X(4185)& - &-JVS(49238)*X(4187)-JVS(49239)*X(4188)-JVS(49240)*X(4189)-JVS(49241)*X(4190)-JVS(49242)*X(4191)-JVS(49243)& - &*X(4192)-JVS(49244)*X(4193)-JVS(49245)*X(4194)-JVS(49246)*X(4195)-JVS(49247)*X(4196)-JVS(49248)*X(4197)& - &-JVS(49249)*X(4198)-JVS(49250)*X(4200)-JVS(49251)*X(4201)-JVS(49252)*X(4202)-JVS(49253)*X(4203)-JVS(49254)& - &*X(4204)-JVS(49255)*X(4205)-JVS(49256)*X(4206)-JVS(49257)*X(4207)-JVS(49258)*X(4208)-JVS(49259)*X(4209)& - &-JVS(49260)*X(4210)-JVS(49261)*X(4211)-JVS(49262)*X(4212)-JVS(49263)*X(4213)-JVS(49264)*X(4214)-JVS(49265)& - &*X(4215)-JVS(49266)*X(4216)-JVS(49267)*X(4217)-JVS(49268)*X(4218)-JVS(49269)*X(4219)-JVS(49270)*X(4220)& - &-JVS(49271)*X(4221)-JVS(49272)*X(4222)-JVS(49273)*X(4225)-JVS(49274)*X(4226)-JVS(49275)*X(4228)-JVS(49276)& - &*X(4229)-JVS(49277)*X(4230)-JVS(49278)*X(4232)-JVS(49279)*X(4234)-JVS(49280)*X(4235)-JVS(49281)*X(4236)& - &-JVS(49282)*X(4237)-JVS(49283)*X(4238)-JVS(49284)*X(4240)-JVS(49285)*X(4241)-JVS(49286)*X(4242)-JVS(49287)& - &*X(4243)-JVS(49288)*X(4244)-JVS(49289)*X(4245)-JVS(49290)*X(4246)-JVS(49291)*X(4247)-JVS(49292)*X(4249)& - &-JVS(49293)*X(4250)-JVS(49294)*X(4251)-JVS(49295)*X(4252)-JVS(49296)*X(4253)-JVS(49297)*X(4254)-JVS(49298)& - &*X(4255)-JVS(49299)*X(4256)-JVS(49300)*X(4257)-JVS(49301)*X(4258)-JVS(49302)*X(4259)-JVS(49303)*X(4260)& - &-JVS(49304)*X(4262)-JVS(49305)*X(4263)-JVS(49306)*X(4264)-JVS(49307)*X(4265)-JVS(49308)*X(4266)-JVS(49309)& - &*X(4267)-JVS(49310)*X(4268)-JVS(49311)*X(4269)-JVS(49312)*X(4270)-JVS(49313)*X(4271)-JVS(49314)*X(4273)& - &-JVS(49315)*X(4274)-JVS(49316)*X(4275)-JVS(49317)*X(4276)-JVS(49318)*X(4277)-JVS(49319)*X(4280)-JVS(49320)& - &*X(4281)-JVS(49321)*X(4282)-JVS(49322)*X(4283)-JVS(49323)*X(4284)-JVS(49324)*X(4285)-JVS(49325)*X(4286)& - &-JVS(49326)*X(4287)-JVS(49327)*X(4288)-JVS(49328)*X(4289)-JVS(49329)*X(4290)-JVS(49330)*X(4291)-JVS(49331)& - &*X(4292)-JVS(49332)*X(4293)-JVS(49333)*X(4295)-JVS(49334)*X(4296)-JVS(49335)*X(4297)-JVS(49336)*X(4298)& - &-JVS(49337)*X(4299)-JVS(49338)*X(4301)-JVS(49339)*X(4302)-JVS(49340)*X(4303)-JVS(49341)*X(4304)-JVS(49342)& - &*X(4305)-JVS(49343)*X(4306)-JVS(49344)*X(4307)-JVS(49345)*X(4308)-JVS(49346)*X(4309)-JVS(49347)*X(4310)& - &-JVS(49348)*X(4311)-JVS(49349)*X(4312)-JVS(49350)*X(4314)-JVS(49351)*X(4315)-JVS(49352)*X(4316)-JVS(49353)& - &*X(4317)-JVS(49354)*X(4318)-JVS(49355)*X(4319)-JVS(49356)*X(4320)-JVS(49357)*X(4321)-JVS(49358)*X(4322)& - &-JVS(49359)*X(4323)-JVS(49360)*X(4324)-JVS(49361)*X(4326)-JVS(49362)*X(4327)-JVS(49363)*X(4329)-JVS(49364)& - &*X(4330)-JVS(49365)*X(4331)-JVS(49366)*X(4334)-JVS(49367)*X(4335)-JVS(49368)*X(4336)-JVS(49369)*X(4337)& - &-JVS(49370)*X(4338)-JVS(49371)*X(4339)-JVS(49372)*X(4340)-JVS(49373)*X(4341)-JVS(49374)*X(4342)-JVS(49375)& - &*X(4343)-JVS(49376)*X(4344)-JVS(49377)*X(4345)-JVS(49378)*X(4346)-JVS(49379)*X(4347)-JVS(49380)*X(4348)& - &-JVS(49381)*X(4349)-JVS(49382)*X(4350)-JVS(49383)*X(4351)-JVS(49384)*X(4352)-JVS(49385)*X(4353)-JVS(49386)& - &*X(4354)-JVS(49387)*X(4355)-JVS(49388)*X(4356)-JVS(49389)*X(4357)-JVS(49390)*X(4358)-JVS(49391)*X(4359)& - &-JVS(49392)*X(4360)-JVS(49393)*X(4361)-JVS(49394)*X(4363)-JVS(49395)*X(4364)-JVS(49396)*X(4365)-JVS(49397)& - &*X(4367)-JVS(49398)*X(4368)-JVS(49399)*X(4369)-JVS(49400)*X(4370)-JVS(49401)*X(4371)-JVS(49402)*X(4372)& - &-JVS(49403)*X(4373)-JVS(49404)*X(4374)-JVS(49405)*X(4375)-JVS(49406)*X(4376)-JVS(49407)*X(4377)-JVS(49408)& - &*X(4378)-JVS(49409)*X(4379)-JVS(49410)*X(4380)-JVS(49411)*X(4381)-JVS(49412)*X(4382)-JVS(49413)*X(4384)& - &-JVS(49414)*X(4385)-JVS(49415)*X(4387)-JVS(49416)*X(4389)-JVS(49417)*X(4390)-JVS(49418)*X(4394)-JVS(49419)& - &*X(4395)-JVS(49420)*X(4397)-JVS(49421)*X(4399)-JVS(49422)*X(4400)-JVS(49423)*X(4402)-JVS(49424)*X(4404)& - &-JVS(49425)*X(4405)-JVS(49426)*X(4406)-JVS(49427)*X(4407)-JVS(49428)*X(4408)-JVS(49429)*X(4409)-JVS(49430)& - &*X(4410)-JVS(49431)*X(4411)-JVS(49432)*X(4412)-JVS(49433)*X(4413)-JVS(49434)*X(4414)-JVS(49435)*X(4415)& - &-JVS(49436)*X(4416)-JVS(49437)*X(4417)-JVS(49438)*X(4418)-JVS(49439)*X(4419)-JVS(49440)*X(4421)-JVS(49441)& - &*X(4422)-JVS(49442)*X(4423)-JVS(49443)*X(4424)-JVS(49444)*X(4425)-JVS(49445)*X(4426)-JVS(49446)*X(4427)& - &-JVS(49447)*X(4428)-JVS(49448)*X(4429)-JVS(49449)*X(4430)-JVS(49450)*X(4431)-JVS(49451)*X(4432)-JVS(49452)& - &*X(4433)-JVS(49453)*X(4434)-JVS(49454)*X(4435)-JVS(49455)*X(4436)-JVS(49456)*X(4437)-JVS(49457)*X(4438)& - &-JVS(49458)*X(4439)-JVS(49459)*X(4440)-JVS(49460)*X(4441)-JVS(49461)*X(4442)-JVS(49462)*X(4443)-JVS(49463)& - &*X(4444)-JVS(49464)*X(4445)-JVS(49465)*X(4446)-JVS(49466)*X(4447)-JVS(49467)*X(4448)-JVS(49468)*X(4450)& - &-JVS(49469)*X(4451)-JVS(49470)*X(4452)-JVS(49471)*X(4453)-JVS(49472)*X(4454)-JVS(49473)*X(4455)-JVS(49474)& - &*X(4456)-JVS(49475)*X(4457)-JVS(49476)*X(4458)-JVS(49477)*X(4459)-JVS(49478)*X(4460)-JVS(49479)*X(4461)& - &-JVS(49480)*X(4463)-JVS(49481)*X(4464)-JVS(49482)*X(4465)-JVS(49483)*X(4466)-JVS(49484)*X(4467)-JVS(49485)& - &*X(4468)-JVS(49486)*X(4469)-JVS(49487)*X(4470)-JVS(49488)*X(4471)-JVS(49489)*X(4472)-JVS(49490)*X(4473)& - &-JVS(49491)*X(4474)-JVS(49492)*X(4476)-JVS(49493)*X(4477)-JVS(49494)*X(4478)-JVS(49495)*X(4479)-JVS(49496)& - &*X(4480)-JVS(49497)*X(4481)-JVS(49498)*X(4482)-JVS(49499)*X(4483)-JVS(49500)*X(4484)-JVS(49501)*X(4485)& - &-JVS(49502)*X(4486)-JVS(49503)*X(4487)-JVS(49504)*X(4488)-JVS(49505)*X(4489)-JVS(49506)*X(4492)-JVS(49507)& - &*X(4494)-JVS(49508)*X(4495)-JVS(49509)*X(4496)-JVS(49510)*X(4497)-JVS(49511)*X(4498)-JVS(49512)*X(4499)& - &-JVS(49513)*X(4500)-JVS(49514)*X(4502)-JVS(49515)*X(4503)-JVS(49516)*X(4504)-JVS(49517)*X(4505)-JVS(49518)& - &*X(4506)-JVS(49519)*X(4507)-JVS(49520)*X(4509)-JVS(49521)*X(4510)-JVS(49522)*X(4511)-JVS(49523)*X(4512)& - &-JVS(49524)*X(4513)-JVS(49525)*X(4514)-JVS(49526)*X(4515)-JVS(49527)*X(4516)-JVS(49528)*X(4517)-JVS(49529)& - &*X(4518)-JVS(49530)*X(4519)-JVS(49531)*X(4520)-JVS(49532)*X(4521)-JVS(49533)*X(4522)-JVS(49534)*X(4523)& - &-JVS(49535)*X(4525)-JVS(49536)*X(4526)-JVS(49537)*X(4529)-JVS(49538)*X(4530)-JVS(49539)*X(4531)-JVS(49540)& - &*X(4532)-JVS(49541)*X(4533)-JVS(49542)*X(4535)-JVS(49543)*X(4536)-JVS(49544)*X(4538)-JVS(49545)*X(4539)& - &-JVS(49546)*X(4541)-JVS(49547)*X(4542)-JVS(49548)*X(4543)-JVS(49549)*X(4544)-JVS(49550)*X(4545)-JVS(49551)& - &*X(4546)-JVS(49552)*X(4548)-JVS(49553)*X(4549)-JVS(49554)*X(4550)-JVS(49555)*X(4551)-JVS(49556)*X(4552)& - &-JVS(49557)*X(4553)-JVS(49558)*X(4554)-JVS(49559)*X(4555)-JVS(49560)*X(4556)-JVS(49561)*X(4557)-JVS(49562)& - &*X(4558)-JVS(49563)*X(4560)-JVS(49564)*X(4561)-JVS(49565)*X(4562)-JVS(49566)*X(4563)-JVS(49567)*X(4565)& - &-JVS(49568)*X(4566)-JVS(49569)*X(4567)-JVS(49570)*X(4568)-JVS(49571)*X(4571)-JVS(49572)*X(4572)-JVS(49573)& - &*X(4573)-JVS(49574)*X(4574)-JVS(49575)*X(4575)-JVS(49576)*X(4576)-JVS(49577)*X(4577)-JVS(49578)*X(4578)& - &-JVS(49579)*X(4579)-JVS(49580)*X(4580)-JVS(49581)*X(4581)-JVS(49582)*X(4582)-JVS(49583)*X(4583)-JVS(49584)& - &*X(4584)-JVS(49585)*X(4585)-JVS(49586)*X(4586)-JVS(49587)*X(4587)-JVS(49588)*X(4589)-JVS(49589)*X(4590)& - &-JVS(49590)*X(4591)-JVS(49591)*X(4592)-JVS(49592)*X(4593)-JVS(49593)*X(4594)-JVS(49594)*X(4595)-JVS(49595)& - &*X(4596)-JVS(49596)*X(4597)-JVS(49597)*X(4598)-JVS(49598)*X(4599)-JVS(49599)*X(4600)-JVS(49600)*X(4601)& - &-JVS(49601)*X(4603)-JVS(49602)*X(4605)-JVS(49603)*X(4607)-JVS(49604)*X(4608)-JVS(49605)*X(4609)-JVS(49606)& - &*X(4610)-JVS(49607)*X(4611)-JVS(49608)*X(4612)-JVS(49609)*X(4613)-JVS(49610)*X(4614)-JVS(49611)*X(4615)& - &-JVS(49612)*X(4616)-JVS(49613)*X(4617)-JVS(49614)*X(4619)-JVS(49615)*X(4620)-JVS(49616)*X(4621)-JVS(49617)& - &*X(4622)-JVS(49618)*X(4623)-JVS(49619)*X(4624)-JVS(49620)*X(4625)-JVS(49621)*X(4626)-JVS(49622)*X(4627)& - &-JVS(49623)*X(4628)-JVS(49624)*X(4629)-JVS(49625)*X(4631)-JVS(49626)*X(4632)-JVS(49627)*X(4633)-JVS(49628)& - &*X(4634)-JVS(49629)*X(4635)-JVS(49630)*X(4636)-JVS(49631)*X(4637)-JVS(49632)*X(4638)-JVS(49633)*X(4639)& - &-JVS(49634)*X(4640)-JVS(49635)*X(4641)-JVS(49636)*X(4642)-JVS(49637)*X(4643)-JVS(49638)*X(4644)-JVS(49639)& - &*X(4645)-JVS(49640)*X(4646)-JVS(49641)*X(4647)-JVS(49642)*X(4648)-JVS(49643)*X(4649)-JVS(49644)*X(4650)& - &-JVS(49645)*X(4652)-JVS(49646)*X(4653)-JVS(49647)*X(4654)-JVS(49648)*X(4655)-JVS(49649)*X(4656)-JVS(49650)& - &*X(4657)-JVS(49651)*X(4658)-JVS(49652)*X(4659)-JVS(49653)*X(4660)-JVS(49654)*X(4661)-JVS(49655)*X(4662)& - &-JVS(49656)*X(4663)-JVS(49657)*X(4664)-JVS(49658)*X(4665)-JVS(49659)*X(4666)-JVS(49660)*X(4667)-JVS(49661)& - &*X(4668)-JVS(49662)*X(4669)-JVS(49663)*X(4670)-JVS(49664)*X(4671)-JVS(49665)*X(4672)-JVS(49666)*X(4673)& - &-JVS(49667)*X(4674)-JVS(49668)*X(4675)-JVS(49669)*X(4676)-JVS(49670)*X(4677)-JVS(49671)*X(4678)-JVS(49672)& - &*X(4679)-JVS(49673)*X(4680)-JVS(49674)*X(4681)-JVS(49675)*X(4682)-JVS(49676)*X(4683)-JVS(49677)*X(4684)& - &-JVS(49678)*X(4685)-JVS(49679)*X(4686)-JVS(49680)*X(4687)-JVS(49681)*X(4688)-JVS(49682)*X(4689)-JVS(49683)& - &*X(4690)-JVS(49684)*X(4691)-JVS(49685)*X(4692)-JVS(49686)*X(4695)-JVS(49687)*X(4696)-JVS(49688)*X(4697)& - &-JVS(49689)*X(4698)-JVS(49690)*X(4699)-JVS(49691)*X(4700)-JVS(49692)*X(4701)-JVS(49693)*X(4702)-JVS(49694)& - &*X(4703)-JVS(49695)*X(4704)-JVS(49696)*X(4705)-JVS(49697)*X(4706)-JVS(49698)*X(4707)-JVS(49699)*X(4709)& - &-JVS(49700)*X(4711)-JVS(49701)*X(4712)-JVS(49702)*X(4713)-JVS(49703)*X(4714)-JVS(49704)*X(4715)-JVS(49705)& - &*X(4716)-JVS(49706)*X(4717)-JVS(49707)*X(4718)-JVS(49708)*X(4719)-JVS(49709)*X(4720)-JVS(49710)*X(4722)& - &-JVS(49711)*X(4723)-JVS(49712)*X(4724)-JVS(49713)*X(4725)-JVS(49714)*X(4726)-JVS(49715)*X(4727)-JVS(49716)& - &*X(4729)-JVS(49717)*X(4730)-JVS(49718)*X(4731)-JVS(49719)*X(4732)-JVS(49720)*X(4733)-JVS(49721)*X(4734)& - &-JVS(49722)*X(4735)-JVS(49723)*X(4736)-JVS(49724)*X(4738)-JVS(49725)*X(4739)-JVS(49726)*X(4740)-JVS(49727)& - &*X(4741)-JVS(49728)*X(4742)-JVS(49729)*X(4743)-JVS(49730)*X(4744)-JVS(49731)*X(4745)-JVS(49732)*X(4746)& - &-JVS(49733)*X(4748)-JVS(49734)*X(4750)-JVS(49735)*X(4751)-JVS(49736)*X(4752)-JVS(49737)*X(4753)-JVS(49738)& - &*X(4754)-JVS(49739)*X(4755)-JVS(49740)*X(4756)-JVS(49741)*X(4757)-JVS(49742)*X(4758)-JVS(49743)*X(4759)& - &-JVS(49744)*X(4760)-JVS(49745)*X(4761)-JVS(49746)*X(4762)-JVS(49747)*X(4763)-JVS(49748)*X(4764)-JVS(49749)& - &*X(4765)-JVS(49750)*X(4766)-JVS(49751)*X(4767)-JVS(49752)*X(4768)-JVS(49753)*X(4769)-JVS(49754)*X(4770)& - &-JVS(49755)*X(4771)-JVS(49756)*X(4772)-JVS(49757)*X(4773)-JVS(49758)*X(4774)-JVS(49759)*X(4775)-JVS(49760)& - &*X(4776)-JVS(49761)*X(4777)-JVS(49762)*X(4778)-JVS(49763)*X(4779)-JVS(49764)*X(4780)-JVS(49765)*X(4781)& - &-JVS(49766)*X(4782)-JVS(49767)*X(4783)-JVS(49768)*X(4784)-JVS(49769)*X(4785)-JVS(49770)*X(4786)-JVS(49771)& - &*X(4787)-JVS(49772)*X(4788)-JVS(49773)*X(4789)-JVS(49774)*X(4790)-JVS(49775)*X(4791)-JVS(49776)*X(4792)& - &-JVS(49777)*X(4793)-JVS(49778)*X(4794)-JVS(49779)*X(4795)-JVS(49780)*X(4797)-JVS(49781)*X(4798)-JVS(49782)& - &*X(4799)-JVS(49783)*X(4800)-JVS(49784)*X(4802)-JVS(49785)*X(4803)-JVS(49786)*X(4804)-JVS(49787)*X(4805)& - &-JVS(49788)*X(4806)-JVS(49789)*X(4807)-JVS(49790)*X(4808)-JVS(49791)*X(4809)-JVS(49792)*X(4810)-JVS(49793)& - &*X(4811)-JVS(49794)*X(4812)-JVS(49795)*X(4813)-JVS(49796)*X(4814)-JVS(49797)*X(4815)-JVS(49798)*X(4816)& - &-JVS(49799)*X(4817)-JVS(49800)*X(4818)-JVS(49801)*X(4819)-JVS(49802)*X(4820)-JVS(49803)*X(4821)-JVS(49804)& - &*X(4822)-JVS(49805)*X(4823)-JVS(49806)*X(4824)-JVS(49807)*X(4825)-JVS(49808)*X(4826)-JVS(49809)*X(4827)& - &-JVS(49810)*X(4828)-JVS(49811)*X(4829)-JVS(49812)*X(4830)-JVS(49813)*X(4831)-JVS(49814)*X(4832)-JVS(49815)& - &*X(4833)-JVS(49816)*X(4834)-JVS(49817)*X(4835)-JVS(49818)*X(4836)-JVS(49819)*X(4837)-JVS(49820)*X(4838)& - &-JVS(49821)*X(4839)-JVS(49822)*X(4840)-JVS(49823)*X(4841)-JVS(49824)*X(4843)-JVS(49825)*X(4844)-JVS(49826)& - &*X(4845)-JVS(49827)*X(4846)-JVS(49828)*X(4847)-JVS(49829)*X(4848)-JVS(49830)*X(4849)-JVS(49831)*X(4850)& - &-JVS(49832)*X(4851)-JVS(49833)*X(4852)-JVS(49834)*X(4853)-JVS(49835)*X(4854)-JVS(49836)*X(4855)-JVS(49837)& - &*X(4856)-JVS(49838)*X(4857)-JVS(49839)*X(4858)-JVS(49840)*X(4859)-JVS(49841)*X(4860)-JVS(49842)*X(4861)& - &-JVS(49843)*X(4862)-JVS(49844)*X(4863)-JVS(49845)*X(4864)-JVS(49846)*X(4865)-JVS(49847)*X(4866)-JVS(49848)& - &*X(4867)-JVS(49849)*X(4868)-JVS(49850)*X(4869)-JVS(49851)*X(4870)-JVS(49852)*X(4871)-JVS(49853)*X(4873)& - &-JVS(49854)*X(4874)-JVS(49855)*X(4875)-JVS(49856)*X(4876)-JVS(49857)*X(4877)-JVS(49858)*X(4878)-JVS(49859)& - &*X(4879)-JVS(49860)*X(4880)-JVS(49861)*X(4881)-JVS(49862)*X(4882)-JVS(49863)*X(4883)-JVS(49864)*X(4884)& - &-JVS(49865)*X(4885)-JVS(49866)*X(4886)-JVS(49867)*X(4887)-JVS(49868)*X(4888)-JVS(49869)*X(4889)-JVS(49870)& - &*X(4890)-JVS(49871)*X(4891)-JVS(49872)*X(4892)-JVS(49873)*X(4893)-JVS(49874)*X(4894)-JVS(49875)*X(4895)& - &-JVS(49876)*X(4896)-JVS(49877)*X(4897)-JVS(49878)*X(4898)-JVS(49879)*X(4899)-JVS(49880)*X(4900)-JVS(49881)& - &*X(4901)-JVS(49882)*X(4903)-JVS(49883)*X(4904)-JVS(49884)*X(4905)-JVS(49885)*X(4906)-JVS(49886)*X(4907)& - &-JVS(49887)*X(4908)-JVS(49888)*X(4909)-JVS(49889)*X(4910)-JVS(49890)*X(4911)-JVS(49891)*X(4912)-JVS(49892)& - &*X(4913)-JVS(49893)*X(4914)-JVS(49894)*X(4915)-JVS(49895)*X(4916)-JVS(49896)*X(4917)-JVS(49897)*X(4919)& - &-JVS(49898)*X(4920)-JVS(49899)*X(4921)-JVS(49900)*X(4922)-JVS(49901)*X(4923)-JVS(49902)*X(4924)-JVS(49903)& - &*X(4925)-JVS(49904)*X(4926)-JVS(49905)*X(4927)-JVS(49906)*X(4928)-JVS(49907)*X(4929)-JVS(49908)*X(4930)& - &-JVS(49909)*X(4932)-JVS(49910)*X(4933)-JVS(49911)*X(4934)-JVS(49912)*X(4935)-JVS(49913)*X(4936)-JVS(49914)& - &*X(4937)-JVS(49915)*X(4940)-JVS(49916)*X(4941)-JVS(49917)*X(4942)-JVS(49918)*X(4943)-JVS(49919)*X(4944)& - &-JVS(49920)*X(4945)-JVS(49921)*X(4946)-JVS(49922)*X(4947)-JVS(49923)*X(4948)-JVS(49924)*X(4949)-JVS(49925)& - &*X(4950)-JVS(49926)*X(4951)-JVS(49927)*X(4952)-JVS(49928)*X(4953)-JVS(49929)*X(4954)-JVS(49930)*X(4955)& - &-JVS(49931)*X(4956)-JVS(49932)*X(4957)-JVS(49933)*X(4958)-JVS(49934)*X(4959)-JVS(49935)*X(4960)-JVS(49936)& - &*X(4961)-JVS(49937)*X(4962)-JVS(49938)*X(4963)-JVS(49939)*X(4964)-JVS(49940)*X(4965)-JVS(49941)*X(4966)& - &-JVS(49942)*X(4967)-JVS(49943)*X(4968)-JVS(49944)*X(4969)-JVS(49945)*X(4970)-JVS(49946)*X(4971)-JVS(49947)& - &*X(4972)-JVS(49948)*X(4974)-JVS(49949)*X(4975)-JVS(49950)*X(4976)-JVS(49951)*X(4977)-JVS(49952)*X(4978)& - &-JVS(49953)*X(4979)-JVS(49954)*X(4980)-JVS(49955)*X(4981)-JVS(49956)*X(4982)-JVS(49957)*X(4984)-JVS(49958)& - &*X(4985)-JVS(49959)*X(4986)-JVS(49960)*X(4987)-JVS(49961)*X(4988)-JVS(49962)*X(4989)-JVS(49963)*X(4990)& - &-JVS(49964)*X(4991)-JVS(49965)*X(4992)-JVS(49966)*X(4993)-JVS(49967)*X(4994)-JVS(49968)*X(4995)-JVS(49969)& - &*X(4996)-JVS(49970)*X(4997)-JVS(49971)*X(4998)-JVS(49972)*X(4999)-JVS(49973)*X(5001)-JVS(49974)*X(5002)& - &-JVS(49975)*X(5003)-JVS(49976)*X(5004)-JVS(49977)*X(5005)-JVS(49978)*X(5006)-JVS(49979)*X(5007)-JVS(49980)& - &*X(5008)-JVS(49981)*X(5009)-JVS(49982)*X(5010)-JVS(49983)*X(5011)-JVS(49984)*X(5012)-JVS(49985)*X(5013)& - &-JVS(49986)*X(5014)-JVS(49987)*X(5015)-JVS(49988)*X(5016)-JVS(49989)*X(5017)-JVS(49990)*X(5018)-JVS(49991)& - &*X(5019)-JVS(49992)*X(5020)-JVS(49993)*X(5021)-JVS(49994)*X(5022)-JVS(49995)*X(5024)-JVS(49996)*X(5025)& - &-JVS(49997)*X(5027)-JVS(49998)*X(5028)-JVS(49999)*X(5029)-JVS(50000)*X(5030)-JVS(50001)*X(5031)-JVS(50002)& - &*X(5032)-JVS(50003)*X(5033)-JVS(50004)*X(5034)-JVS(50005)*X(5035)-JVS(50006)*X(5036)-JVS(50007)*X(5037)& - &-JVS(50008)*X(5038)-JVS(50009)*X(5039)-JVS(50010)*X(5040)-JVS(50011)*X(5041)-JVS(50012)*X(5042)-JVS(50013)& - &*X(5043)-JVS(50014)*X(5044)-JVS(50015)*X(5045)-JVS(50016)*X(5047)-JVS(50017)*X(5048)-JVS(50018)*X(5049)& - &-JVS(50019)*X(5050)-JVS(50020)*X(5051)-JVS(50021)*X(5052)-JVS(50022)*X(5053)-JVS(50023)*X(5054)-JVS(50024)& - &*X(5056)-JVS(50025)*X(5058)-JVS(50026)*X(5059)-JVS(50027)*X(5060)-JVS(50028)*X(5061)-JVS(50029)*X(5062)& - &-JVS(50030)*X(5063)-JVS(50031)*X(5064)-JVS(50032)*X(5065)-JVS(50033)*X(5066)-JVS(50034)*X(5067)-JVS(50035)& - &*X(5068)-JVS(50036)*X(5069)-JVS(50037)*X(5070)-JVS(50038)*X(5071)-JVS(50039)*X(5072)-JVS(50040)*X(5073)& - &-JVS(50041)*X(5074)-JVS(50042)*X(5075)-JVS(50043)*X(5076)-JVS(50044)*X(5077)-JVS(50045)*X(5078)-JVS(50046)& - &*X(5079)-JVS(50047)*X(5081)-JVS(50048)*X(5082)-JVS(50049)*X(5083)-JVS(50050)*X(5084)-JVS(50051)*X(5085)& - &-JVS(50052)*X(5086)-JVS(50053)*X(5087)-JVS(50054)*X(5088)-JVS(50055)*X(5089)-JVS(50056)*X(5090)-JVS(50057)& - &*X(5091)-JVS(50058)*X(5092)-JVS(50059)*X(5093)-JVS(50060)*X(5094)-JVS(50061)*X(5095)-JVS(50062)*X(5096)& - &-JVS(50063)*X(5097)-JVS(50064)*X(5098)-JVS(50065)*X(5099)-JVS(50066)*X(5100)-JVS(50067)*X(5101)-JVS(50068)& - &*X(5102)-JVS(50069)*X(5103)-JVS(50070)*X(5104)-JVS(50071)*X(5106)-JVS(50072)*X(5107)-JVS(50073)*X(5108)& - &-JVS(50074)*X(5109)-JVS(50075)*X(5110)-JVS(50076)*X(5111)-JVS(50077)*X(5112)-JVS(50078)*X(5113)-JVS(50079)& - &*X(5114)-JVS(50080)*X(5115)-JVS(50081)*X(5116)-JVS(50082)*X(5117)-JVS(50083)*X(5118)-JVS(50084)*X(5119)& - &-JVS(50085)*X(5120)-JVS(50086)*X(5121)-JVS(50087)*X(5122)-JVS(50088)*X(5123)-JVS(50089)*X(5124)-JVS(50090)& - &*X(5125)-JVS(50091)*X(5126)-JVS(50092)*X(5127)-JVS(50093)*X(5128)-JVS(50094)*X(5129)-JVS(50095)*X(5130)& - &-JVS(50096)*X(5131)-JVS(50097)*X(5132)-JVS(50098)*X(5133)-JVS(50099)*X(5134)-JVS(50100)*X(5135)-JVS(50101)& - &*X(5136)-JVS(50102)*X(5137)-JVS(50103)*X(5138)-JVS(50104)*X(5140)-JVS(50105)*X(5141)-JVS(50106)*X(5142)& - &-JVS(50107)*X(5143)-JVS(50108)*X(5144)-JVS(50109)*X(5145)-JVS(50110)*X(5146)-JVS(50111)*X(5147)-JVS(50112)& - &*X(5148)-JVS(50113)*X(5149)-JVS(50114)*X(5150)-JVS(50115)*X(5151)-JVS(50116)*X(5152)-JVS(50117)*X(5153)& - &-JVS(50118)*X(5154)-JVS(50119)*X(5155)-JVS(50120)*X(5156)-JVS(50121)*X(5157)-JVS(50122)*X(5158)-JVS(50123)& - &*X(5159)-JVS(50124)*X(5161)-JVS(50125)*X(5162)-JVS(50126)*X(5163)-JVS(50127)*X(5164)-JVS(50128)*X(5165)& - &-JVS(50129)*X(5166)-JVS(50130)*X(5167)-JVS(50131)*X(5168)-JVS(50132)*X(5169)-JVS(50133)*X(5170)-JVS(50134)& - &*X(5171)-JVS(50135)*X(5172)-JVS(50136)*X(5173)-JVS(50137)*X(5174)-JVS(50138)*X(5175)-JVS(50139)*X(5176)& - &-JVS(50140)*X(5177)-JVS(50141)*X(5178)-JVS(50142)*X(5179)-JVS(50143)*X(5180)-JVS(50144)*X(5181)-JVS(50145)& - &*X(5183)-JVS(50146)*X(5185)-JVS(50147)*X(5186)-JVS(50148)*X(5187)-JVS(50149)*X(5189)-JVS(50150)*X(5190)& - &-JVS(50151)*X(5191)-JVS(50152)*X(5192)-JVS(50153)*X(5194)-JVS(50154)*X(5195)-JVS(50155)*X(5196)-JVS(50156)& - &*X(5197)-JVS(50157)*X(5198)-JVS(50158)*X(5200)-JVS(50159)*X(5201)-JVS(50160)*X(5202)-JVS(50161)*X(5203)& - &-JVS(50162)*X(5204)-JVS(50163)*X(5205)-JVS(50164)*X(5206)-JVS(50165)*X(5207)-JVS(50166)*X(5208)-JVS(50167)& - &*X(5209)-JVS(50168)*X(5210)-JVS(50169)*X(5211)-JVS(50170)*X(5212)-JVS(50171)*X(5213)-JVS(50172)*X(5214)& - &-JVS(50173)*X(5215)-JVS(50174)*X(5216)-JVS(50175)*X(5217)-JVS(50176)*X(5218)-JVS(50177)*X(5219)-JVS(50178)& - &*X(5220)-JVS(50179)*X(5221)-JVS(50180)*X(5222)-JVS(50181)*X(5223)-JVS(50182)*X(5224)-JVS(50183)*X(5225)& - &-JVS(50184)*X(5226)-JVS(50185)*X(5227)-JVS(50186)*X(5228)-JVS(50187)*X(5229)-JVS(50188)*X(5230)-JVS(50189)& - &*X(5231)-JVS(50190)*X(5232)-JVS(50191)*X(5233)-JVS(50192)*X(5234)-JVS(50193)*X(5235)-JVS(50194)*X(5236)& - &-JVS(50195)*X(5237)-JVS(50196)*X(5238)-JVS(50197)*X(5239)-JVS(50198)*X(5240)-JVS(50199)*X(5241)-JVS(50200)& - &*X(5242)-JVS(50201)*X(5243)-JVS(50202)*X(5244)-JVS(50203)*X(5245)-JVS(50204)*X(5246)-JVS(50205)*X(5247)& - &-JVS(50206)*X(5248)-JVS(50207)*X(5249)-JVS(50208)*X(5250)-JVS(50209)*X(5251)-JVS(50210)*X(5252) - X(5254) = X(5254)-JVS(50217)*X(3568)-JVS(50218)*X(4213)-JVS(50219)*X(4247)-JVS(50220)*X(4250)-JVS(50221)*X(4258)& - &-JVS(50222)*X(4264)-JVS(50223)*X(4282)-JVS(50224)*X(4286)-JVS(50225)*X(4302)-JVS(50226)*X(4320)-JVS(50227)& - &*X(4526)-JVS(50228)*X(4544)-JVS(50229)*X(4551)-JVS(50230)*X(4556)-JVS(50231)*X(4600)-JVS(50232)*X(4601)& - &-JVS(50233)*X(4621)-JVS(50234)*X(4668)-JVS(50235)*X(4677)-JVS(50236)*X(4678)-JVS(50237)*X(4691)-JVS(50238)& - &*X(4741)-JVS(50239)*X(4757)-JVS(50240)*X(4776)-JVS(50241)*X(4786)-JVS(50242)*X(4819)-JVS(50243)*X(4824)& - &-JVS(50244)*X(4828)-JVS(50245)*X(4838)-JVS(50246)*X(4843)-JVS(50247)*X(4868)-JVS(50248)*X(4869)-JVS(50249)& - &*X(4906)-JVS(50250)*X(4908)-JVS(50251)*X(4912)-JVS(50252)*X(4919)-JVS(50253)*X(4941)-JVS(50254)*X(4943)& - &-JVS(50255)*X(4951)-JVS(50256)*X(4952)-JVS(50257)*X(4956)-JVS(50258)*X(4963)-JVS(50259)*X(4970)-JVS(50260)& - &*X(4988)-JVS(50261)*X(4997)-JVS(50262)*X(4998)-JVS(50263)*X(4999)-JVS(50264)*X(5013)-JVS(50265)*X(5024)& - &-JVS(50266)*X(5030)-JVS(50267)*X(5040)-JVS(50268)*X(5047)-JVS(50269)*X(5048)-JVS(50270)*X(5049)-JVS(50271)& - &*X(5050)-JVS(50272)*X(5051)-JVS(50273)*X(5058)-JVS(50274)*X(5066)-JVS(50275)*X(5068)-JVS(50276)*X(5069)& - &-JVS(50277)*X(5070)-JVS(50278)*X(5076)-JVS(50279)*X(5091)-JVS(50280)*X(5092)-JVS(50281)*X(5093)-JVS(50282)& - &*X(5099)-JVS(50283)*X(5102)-JVS(50284)*X(5103)-JVS(50285)*X(5123)-JVS(50286)*X(5126)-JVS(50287)*X(5132)& - &-JVS(50288)*X(5141)-JVS(50289)*X(5153)-JVS(50290)*X(5156)-JVS(50291)*X(5162)-JVS(50292)*X(5166)-JVS(50293)& - &*X(5168)-JVS(50294)*X(5170)-JVS(50295)*X(5175)-JVS(50296)*X(5181)-JVS(50297)*X(5190)-JVS(50298)*X(5194)& - &-JVS(50299)*X(5200)-JVS(50300)*X(5204)-JVS(50301)*X(5205)-JVS(50302)*X(5207)-JVS(50303)*X(5209)-JVS(50304)& - &*X(5217)-JVS(50305)*X(5218)-JVS(50306)*X(5219)-JVS(50307)*X(5220)-JVS(50308)*X(5223)-JVS(50309)*X(5224)& - &-JVS(50310)*X(5226)-JVS(50311)*X(5227)-JVS(50312)*X(5230)-JVS(50313)*X(5236)-JVS(50314)*X(5238)-JVS(50315)& - &*X(5249)-JVS(50316)*X(5250)-JVS(50317)*X(5251)-JVS(50318)*X(5252)-JVS(50319)*X(5253) - X(5255) = X(5255)-JVS(50325)*X(5)-JVS(50326)*X(11)-JVS(50327)*X(181)-JVS(50328)*X(198)-JVS(50329)*X(208)-JVS(50330)& - &*X(209)-JVS(50331)*X(212)-JVS(50332)*X(213)-JVS(50333)*X(218)-JVS(50334)*X(219)-JVS(50335)*X(220)-JVS(50336)& - &*X(223)-JVS(50337)*X(225)-JVS(50338)*X(226)-JVS(50339)*X(228)-JVS(50340)*X(229)-JVS(50341)*X(231)-JVS(50342)& - &*X(233)-JVS(50343)*X(234)-JVS(50344)*X(238)-JVS(50345)*X(242)-JVS(50346)*X(246)-JVS(50347)*X(247)-JVS(50348)& - &*X(248)-JVS(50349)*X(249)-JVS(50350)*X(250)-JVS(50351)*X(256)-JVS(50352)*X(257)-JVS(50353)*X(260)-JVS(50354)& - &*X(261)-JVS(50355)*X(262)-JVS(50356)*X(263)-JVS(50357)*X(266)-JVS(50358)*X(267)-JVS(50359)*X(268)-JVS(50360)& - &*X(269)-JVS(50361)*X(273)-JVS(50362)*X(274)-JVS(50363)*X(277)-JVS(50364)*X(278)-JVS(50365)*X(279)-JVS(50366)& - &*X(281)-JVS(50367)*X(283)-JVS(50368)*X(284)-JVS(50369)*X(285)-JVS(50370)*X(286)-JVS(50371)*X(289)-JVS(50372)& - &*X(292)-JVS(50373)*X(295)-JVS(50374)*X(296)-JVS(50375)*X(299)-JVS(50376)*X(302)-JVS(50377)*X(303)-JVS(50378)& - &*X(304)-JVS(50379)*X(305)-JVS(50380)*X(306)-JVS(50381)*X(307)-JVS(50382)*X(308)-JVS(50383)*X(310)-JVS(50384)& - &*X(311)-JVS(50385)*X(312)-JVS(50386)*X(313)-JVS(50387)*X(314)-JVS(50388)*X(316)-JVS(50389)*X(317)-JVS(50390)& - &*X(319)-JVS(50391)*X(320)-JVS(50392)*X(321)-JVS(50393)*X(322)-JVS(50394)*X(325)-JVS(50395)*X(332)-JVS(50396)& - &*X(333)-JVS(50397)*X(334)-JVS(50398)*X(335)-JVS(50399)*X(336)-JVS(50400)*X(338)-JVS(50401)*X(339)-JVS(50402)& - &*X(340)-JVS(50403)*X(344)-JVS(50404)*X(345)-JVS(50405)*X(346)-JVS(50406)*X(347)-JVS(50407)*X(348)-JVS(50408)& - &*X(349)-JVS(50409)*X(350)-JVS(50410)*X(352)-JVS(50411)*X(353)-JVS(50412)*X(354)-JVS(50413)*X(355)-JVS(50414)& - &*X(356)-JVS(50415)*X(357)-JVS(50416)*X(358)-JVS(50417)*X(359)-JVS(50418)*X(361)-JVS(50419)*X(365)-JVS(50420)& - &*X(366)-JVS(50421)*X(368)-JVS(50422)*X(369)-JVS(50423)*X(371)-JVS(50424)*X(372)-JVS(50425)*X(374)-JVS(50426)& - &*X(377)-JVS(50427)*X(380)-JVS(50428)*X(381)-JVS(50429)*X(382)-JVS(50430)*X(383)-JVS(50431)*X(385)-JVS(50432)& - &*X(390)-JVS(50433)*X(391)-JVS(50434)*X(392)-JVS(50435)*X(394)-JVS(50436)*X(395)-JVS(50437)*X(396)-JVS(50438)& - &*X(399)-JVS(50439)*X(400)-JVS(50440)*X(401)-JVS(50441)*X(402)-JVS(50442)*X(403)-JVS(50443)*X(406)-JVS(50444)& - &*X(408)-JVS(50445)*X(409)-JVS(50446)*X(410)-JVS(50447)*X(411)-JVS(50448)*X(412)-JVS(50449)*X(413)-JVS(50450)& - &*X(415)-JVS(50451)*X(416)-JVS(50452)*X(417)-JVS(50453)*X(418)-JVS(50454)*X(424)-JVS(50455)*X(425)-JVS(50456)& - &*X(427)-JVS(50457)*X(428)-JVS(50458)*X(429)-JVS(50459)*X(430)-JVS(50460)*X(431)-JVS(50461)*X(432)-JVS(50462)& - &*X(436)-JVS(50463)*X(437)-JVS(50464)*X(439)-JVS(50465)*X(440)-JVS(50466)*X(441)-JVS(50467)*X(442)-JVS(50468)& - &*X(444)-JVS(50469)*X(446)-JVS(50470)*X(451)-JVS(50471)*X(452)-JVS(50472)*X(453)-JVS(50473)*X(454)-JVS(50474)& - &*X(458)-JVS(50475)*X(460)-JVS(50476)*X(462)-JVS(50477)*X(463)-JVS(50478)*X(464)-JVS(50479)*X(465)-JVS(50480)& - &*X(466)-JVS(50481)*X(467)-JVS(50482)*X(468)-JVS(50483)*X(469)-JVS(50484)*X(471)-JVS(50485)*X(473)-JVS(50486)& - &*X(475)-JVS(50487)*X(476)-JVS(50488)*X(478)-JVS(50489)*X(480)-JVS(50490)*X(481)-JVS(50491)*X(482)-JVS(50492)& - &*X(485)-JVS(50493)*X(486)-JVS(50494)*X(487)-JVS(50495)*X(493)-JVS(50496)*X(494)-JVS(50497)*X(495)-JVS(50498)& - &*X(497)-JVS(50499)*X(498)-JVS(50500)*X(500)-JVS(50501)*X(501)-JVS(50502)*X(502)-JVS(50503)*X(504)-JVS(50504)& - &*X(505)-JVS(50505)*X(509)-JVS(50506)*X(511)-JVS(50507)*X(512)-JVS(50508)*X(513)-JVS(50509)*X(516)-JVS(50510)& - &*X(517)-JVS(50511)*X(520)-JVS(50512)*X(523)-JVS(50513)*X(524)-JVS(50514)*X(525)-JVS(50515)*X(526)-JVS(50516)& - &*X(527)-JVS(50517)*X(531)-JVS(50518)*X(532)-JVS(50519)*X(536)-JVS(50520)*X(537)-JVS(50521)*X(538)-JVS(50522)& - &*X(540)-JVS(50523)*X(546)-JVS(50524)*X(549)-JVS(50525)*X(551)-JVS(50526)*X(552)-JVS(50527)*X(554)-JVS(50528)& - &*X(556)-JVS(50529)*X(557)-JVS(50530)*X(558)-JVS(50531)*X(559)-JVS(50532)*X(560)-JVS(50533)*X(565)-JVS(50534)& - &*X(567)-JVS(50535)*X(568)-JVS(50536)*X(569)-JVS(50537)*X(572)-JVS(50538)*X(576)-JVS(50539)*X(577)-JVS(50540)& - &*X(579)-JVS(50541)*X(580)-JVS(50542)*X(586)-JVS(50543)*X(590)-JVS(50544)*X(598)-JVS(50545)*X(599)-JVS(50546)& - &*X(603)-JVS(50547)*X(608)-JVS(50548)*X(614)-JVS(50549)*X(615)-JVS(50550)*X(616)-JVS(50551)*X(620)-JVS(50552)& - &*X(622)-JVS(50553)*X(624)-JVS(50554)*X(625)-JVS(50555)*X(626)-JVS(50556)*X(627)-JVS(50557)*X(628)-JVS(50558)& - &*X(633)-JVS(50559)*X(634)-JVS(50560)*X(636)-JVS(50561)*X(639)-JVS(50562)*X(643)-JVS(50563)*X(646)-JVS(50564)& - &*X(647)-JVS(50565)*X(650)-JVS(50566)*X(651)-JVS(50567)*X(657)-JVS(50568)*X(659)-JVS(50569)*X(661)-JVS(50570)& - &*X(663)-JVS(50571)*X(664)-JVS(50572)*X(667)-JVS(50573)*X(671)-JVS(50574)*X(675)-JVS(50575)*X(676)-JVS(50576)& - &*X(677)-JVS(50577)*X(678)-JVS(50578)*X(680)-JVS(50579)*X(681)-JVS(50580)*X(683)-JVS(50581)*X(684)-JVS(50582)& - &*X(685)-JVS(50583)*X(686)-JVS(50584)*X(690)-JVS(50585)*X(694)-JVS(50586)*X(696)-JVS(50587)*X(699)-JVS(50588)& - &*X(700)-JVS(50589)*X(701)-JVS(50590)*X(705)-JVS(50591)*X(706)-JVS(50592)*X(707)-JVS(50593)*X(711)-JVS(50594)& - &*X(716)-JVS(50595)*X(718)-JVS(50596)*X(721)-JVS(50597)*X(723)-JVS(50598)*X(725)-JVS(50599)*X(727)-JVS(50600)& - &*X(730)-JVS(50601)*X(732)-JVS(50602)*X(733)-JVS(50603)*X(738)-JVS(50604)*X(742)-JVS(50605)*X(748)-JVS(50606)& - &*X(752)-JVS(50607)*X(754)-JVS(50608)*X(757)-JVS(50609)*X(758)-JVS(50610)*X(762)-JVS(50611)*X(764)-JVS(50612)& - &*X(765)-JVS(50613)*X(767)-JVS(50614)*X(768)-JVS(50615)*X(772)-JVS(50616)*X(779)-JVS(50617)*X(783)-JVS(50618)& - &*X(784)-JVS(50619)*X(785)-JVS(50620)*X(786)-JVS(50621)*X(788)-JVS(50622)*X(789)-JVS(50623)*X(792)-JVS(50624)& - &*X(793)-JVS(50625)*X(796)-JVS(50626)*X(799)-JVS(50627)*X(804)-JVS(50628)*X(805)-JVS(50629)*X(807)-JVS(50630)& - &*X(808)-JVS(50631)*X(811)-JVS(50632)*X(812)-JVS(50633)*X(813)-JVS(50634)*X(821)-JVS(50635)*X(823)-JVS(50636)& - &*X(827)-JVS(50637)*X(839)-JVS(50638)*X(847)-JVS(50639)*X(862)-JVS(50640)*X(874)-JVS(50641)*X(890)-JVS(50642)& - &*X(895)-JVS(50643)*X(896)-JVS(50644)*X(898)-JVS(50645)*X(903)-JVS(50646)*X(906)-JVS(50647)*X(911)-JVS(50648)& - &*X(925)-JVS(50649)*X(926)-JVS(50650)*X(933)-JVS(50651)*X(953)-JVS(50652)*X(957)-JVS(50653)*X(958)-JVS(50654)& - &*X(961)-JVS(50655)*X(969)-JVS(50656)*X(990)-JVS(50657)*X(1001)-JVS(50658)*X(1013)-JVS(50659)*X(1035)& - &-JVS(50660)*X(1036)-JVS(50661)*X(1037)-JVS(50662)*X(1040)-JVS(50663)*X(1050)-JVS(50664)*X(1054)-JVS(50665)& - &*X(1056)-JVS(50666)*X(1068)-JVS(50667)*X(1073)-JVS(50668)*X(1084)-JVS(50669)*X(1087)-JVS(50670)*X(1097)& - &-JVS(50671)*X(1111)-JVS(50672)*X(1113)-JVS(50673)*X(1120)-JVS(50674)*X(1121)-JVS(50675)*X(1124)-JVS(50676)& - &*X(1133)-JVS(50677)*X(1140)-JVS(50678)*X(1163)-JVS(50679)*X(1174)-JVS(50680)*X(1175)-JVS(50681)*X(1179)& - &-JVS(50682)*X(1189)-JVS(50683)*X(1194)-JVS(50684)*X(1210)-JVS(50685)*X(1229)-JVS(50686)*X(1231)-JVS(50687)& - &*X(1256)-JVS(50688)*X(1257)-JVS(50689)*X(1269)-JVS(50690)*X(1280)-JVS(50691)*X(1297)-JVS(50692)*X(1316)& - &-JVS(50693)*X(1330)-JVS(50694)*X(1343)-JVS(50695)*X(1344)-JVS(50696)*X(1354)-JVS(50697)*X(1356)-JVS(50698)& - &*X(1369)-JVS(50699)*X(1384)-JVS(50700)*X(1386)-JVS(50701)*X(1389)-JVS(50702)*X(1394)-JVS(50703)*X(1403)& - &-JVS(50704)*X(1405)-JVS(50705)*X(1409)-JVS(50706)*X(1425)-JVS(50707)*X(1432)-JVS(50708)*X(1440)-JVS(50709)& - &*X(1442)-JVS(50710)*X(1481)-JVS(50711)*X(1483)-JVS(50712)*X(1489)-JVS(50713)*X(1493)-JVS(50714)*X(1513)& - &-JVS(50715)*X(1520)-JVS(50716)*X(1521)-JVS(50717)*X(1548)-JVS(50718)*X(1549)-JVS(50719)*X(1552)-JVS(50720)& - &*X(1554)-JVS(50721)*X(1555)-JVS(50722)*X(1557)-JVS(50723)*X(1558)-JVS(50724)*X(1559)-JVS(50725)*X(1560)& - &-JVS(50726)*X(1561)-JVS(50727)*X(1562)-JVS(50728)*X(1563)-JVS(50729)*X(1564)-JVS(50730)*X(1566)-JVS(50731)& - &*X(1567)-JVS(50732)*X(1568)-JVS(50733)*X(1569)-JVS(50734)*X(1570)-JVS(50735)*X(1571)-JVS(50736)*X(1572)& - &-JVS(50737)*X(1575)-JVS(50738)*X(1576)-JVS(50739)*X(1577)-JVS(50740)*X(1578)-JVS(50741)*X(1582)-JVS(50742)& - &*X(1584)-JVS(50743)*X(1585)-JVS(50744)*X(1586)-JVS(50745)*X(1587)-JVS(50746)*X(1588)-JVS(50747)*X(1589)& - &-JVS(50748)*X(1594)-JVS(50749)*X(1596)-JVS(50750)*X(1597)-JVS(50751)*X(1598)-JVS(50752)*X(1599)-JVS(50753)& - &*X(1600)-JVS(50754)*X(1601)-JVS(50755)*X(1602)-JVS(50756)*X(1606)-JVS(50757)*X(1609)-JVS(50758)*X(1611)& - &-JVS(50759)*X(1612)-JVS(50760)*X(1613)-JVS(50761)*X(1615)-JVS(50762)*X(1616)-JVS(50763)*X(1618)-JVS(50764)& - &*X(1619)-JVS(50765)*X(1621)-JVS(50766)*X(1622)-JVS(50767)*X(1623)-JVS(50768)*X(1626)-JVS(50769)*X(1627)& - &-JVS(50770)*X(1630)-JVS(50771)*X(1632)-JVS(50772)*X(1633)-JVS(50773)*X(1634)-JVS(50774)*X(1636)-JVS(50775)& - &*X(1637)-JVS(50776)*X(1639)-JVS(50777)*X(1642)-JVS(50778)*X(1644)-JVS(50779)*X(1646)-JVS(50780)*X(1647)& - &-JVS(50781)*X(1653)-JVS(50782)*X(1655)-JVS(50783)*X(1658)-JVS(50784)*X(1659)-JVS(50785)*X(1661)-JVS(50786)& - &*X(1662)-JVS(50787)*X(1663)-JVS(50788)*X(1664)-JVS(50789)*X(1665)-JVS(50790)*X(1666)-JVS(50791)*X(1667)& - &-JVS(50792)*X(1668)-JVS(50793)*X(1669)-JVS(50794)*X(1670)-JVS(50795)*X(1671)-JVS(50796)*X(1672)-JVS(50797)& - &*X(1673)-JVS(50798)*X(1674)-JVS(50799)*X(1675)-JVS(50800)*X(1676)-JVS(50801)*X(1678)-JVS(50802)*X(1679)& - &-JVS(50803)*X(1680)-JVS(50804)*X(1681)-JVS(50805)*X(1682)-JVS(50806)*X(1683)-JVS(50807)*X(1685)-JVS(50808)& - &*X(1686)-JVS(50809)*X(1687)-JVS(50810)*X(1690)-JVS(50811)*X(1692)-JVS(50812)*X(1693)-JVS(50813)*X(1694)& - &-JVS(50814)*X(1695)-JVS(50815)*X(1697)-JVS(50816)*X(1698)-JVS(50817)*X(1700)-JVS(50818)*X(1701)-JVS(50819)& - &*X(1702)-JVS(50820)*X(1703)-JVS(50821)*X(1704)-JVS(50822)*X(1705)-JVS(50823)*X(1707)-JVS(50824)*X(1711)& - &-JVS(50825)*X(1713)-JVS(50826)*X(1715)-JVS(50827)*X(1716)-JVS(50828)*X(1717)-JVS(50829)*X(1718)-JVS(50830)& - &*X(1719)-JVS(50831)*X(1720)-JVS(50832)*X(1721)-JVS(50833)*X(1722)-JVS(50834)*X(1725)-JVS(50835)*X(1726)& - &-JVS(50836)*X(1727)-JVS(50837)*X(1729)-JVS(50838)*X(1730)-JVS(50839)*X(1731)-JVS(50840)*X(1733)-JVS(50841)& - &*X(1734)-JVS(50842)*X(1735)-JVS(50843)*X(1740)-JVS(50844)*X(1742)-JVS(50845)*X(1743)-JVS(50846)*X(1744)& - &-JVS(50847)*X(1745)-JVS(50848)*X(1746)-JVS(50849)*X(1747)-JVS(50850)*X(1750)-JVS(50851)*X(1754)-JVS(50852)& - &*X(1755)-JVS(50853)*X(1756)-JVS(50854)*X(1760)-JVS(50855)*X(1764)-JVS(50856)*X(1765)-JVS(50857)*X(1769)& - &-JVS(50858)*X(1773)-JVS(50859)*X(1776)-JVS(50860)*X(1777)-JVS(50861)*X(1781)-JVS(50862)*X(1787)-JVS(50863)& - &*X(1791)-JVS(50864)*X(1792)-JVS(50865)*X(1794)-JVS(50866)*X(1795)-JVS(50867)*X(1796)-JVS(50868)*X(1797)& - &-JVS(50869)*X(1799)-JVS(50870)*X(1806)-JVS(50871)*X(1808)-JVS(50872)*X(1810)-JVS(50873)*X(1812)-JVS(50874)& - &*X(1815)-JVS(50875)*X(1816)-JVS(50876)*X(1820)-JVS(50877)*X(1821)-JVS(50878)*X(1822)-JVS(50879)*X(1828)& - &-JVS(50880)*X(1838)-JVS(50881)*X(1847)-JVS(50882)*X(1848)-JVS(50883)*X(1851)-JVS(50884)*X(1853)-JVS(50885)& - &*X(1857)-JVS(50886)*X(1858)-JVS(50887)*X(1860)-JVS(50888)*X(1861)-JVS(50889)*X(1865)-JVS(50890)*X(1866)& - &-JVS(50891)*X(1869)-JVS(50892)*X(1872)-JVS(50893)*X(1874)-JVS(50894)*X(1875)-JVS(50895)*X(1877)-JVS(50896)& - &*X(1880)-JVS(50897)*X(1881)-JVS(50898)*X(1882)-JVS(50899)*X(1890)-JVS(50900)*X(1891)-JVS(50901)*X(1892)& - &-JVS(50902)*X(1898)-JVS(50903)*X(1901)-JVS(50904)*X(1902)-JVS(50905)*X(1903)-JVS(50906)*X(1906)-JVS(50907)& - &*X(1907)-JVS(50908)*X(1910)-JVS(50909)*X(1911)-JVS(50910)*X(1916)-JVS(50911)*X(1923)-JVS(50912)*X(1924)& - &-JVS(50913)*X(1927)-JVS(50914)*X(1928)-JVS(50915)*X(1929)-JVS(50916)*X(1934)-JVS(50917)*X(1935)-JVS(50918)& - &*X(1942)-JVS(50919)*X(1944)-JVS(50920)*X(1945)-JVS(50921)*X(1951)-JVS(50922)*X(1955)-JVS(50923)*X(1959)& - &-JVS(50924)*X(1960)-JVS(50925)*X(1969)-JVS(50926)*X(1971)-JVS(50927)*X(1973)-JVS(50928)*X(1974)-JVS(50929)& - &*X(1981)-JVS(50930)*X(1988)-JVS(50931)*X(1991)-JVS(50932)*X(1992)-JVS(50933)*X(1998)-JVS(50934)*X(2001)& - &-JVS(50935)*X(2004)-JVS(50936)*X(2005)-JVS(50937)*X(2008)-JVS(50938)*X(2012)-JVS(50939)*X(2013)-JVS(50940)& - &*X(2015)-JVS(50941)*X(2021)-JVS(50942)*X(2029)-JVS(50943)*X(2030)-JVS(50944)*X(2031)-JVS(50945)*X(2033)& - &-JVS(50946)*X(2035)-JVS(50947)*X(2038)-JVS(50948)*X(2041)-JVS(50949)*X(2042)-JVS(50950)*X(2043)-JVS(50951)& - &*X(2044)-JVS(50952)*X(2050)-JVS(50953)*X(2058)-JVS(50954)*X(2060)-JVS(50955)*X(2066)-JVS(50956)*X(2073)& - &-JVS(50957)*X(2078)-JVS(50958)*X(2081)-JVS(50959)*X(2085)-JVS(50960)*X(2088)-JVS(50961)*X(2089)-JVS(50962)& - &*X(2090)-JVS(50963)*X(2098)-JVS(50964)*X(2100)-JVS(50965)*X(2101)-JVS(50966)*X(2103)-JVS(50967)*X(2104)& - &-JVS(50968)*X(2106)-JVS(50969)*X(2110)-JVS(50970)*X(2112)-JVS(50971)*X(2116)-JVS(50972)*X(2117)-JVS(50973)& - &*X(2120)-JVS(50974)*X(2122)-JVS(50975)*X(2126)-JVS(50976)*X(2127)-JVS(50977)*X(2129)-JVS(50978)*X(2130)& - &-JVS(50979)*X(2131)-JVS(50980)*X(2132)-JVS(50981)*X(2134)-JVS(50982)*X(2138)-JVS(50983)*X(2140)-JVS(50984)& - &*X(2141)-JVS(50985)*X(2144)-JVS(50986)*X(2145)-JVS(50987)*X(2146)-JVS(50988)*X(2148)-JVS(50989)*X(2153)& - &-JVS(50990)*X(2158)-JVS(50991)*X(2159)-JVS(50992)*X(2160)-JVS(50993)*X(2162)-JVS(50994)*X(2170)-JVS(50995)& - &*X(2173)-JVS(50996)*X(2175)-JVS(50997)*X(2178)-JVS(50998)*X(2182)-JVS(50999)*X(2186)-JVS(51000)*X(2187)& - &-JVS(51001)*X(2188)-JVS(51002)*X(2189)-JVS(51003)*X(2191)-JVS(51004)*X(2197)-JVS(51005)*X(2198)-JVS(51006)& - &*X(2200)-JVS(51007)*X(2202)-JVS(51008)*X(2203)-JVS(51009)*X(2206)-JVS(51010)*X(2208)-JVS(51011)*X(2209)& - &-JVS(51012)*X(2210)-JVS(51013)*X(2211)-JVS(51014)*X(2212)-JVS(51015)*X(2218)-JVS(51016)*X(2219)-JVS(51017)& - &*X(2228)-JVS(51018)*X(2229)-JVS(51019)*X(2232)-JVS(51020)*X(2233)-JVS(51021)*X(2234)-JVS(51022)*X(2235)& - &-JVS(51023)*X(2236)-JVS(51024)*X(2237)-JVS(51025)*X(2238)-JVS(51026)*X(2243)-JVS(51027)*X(2248)-JVS(51028)& - &*X(2251)-JVS(51029)*X(2255)-JVS(51030)*X(2258)-JVS(51031)*X(2259)-JVS(51032)*X(2261)-JVS(51033)*X(2266)& - &-JVS(51034)*X(2268)-JVS(51035)*X(2272)-JVS(51036)*X(2279)-JVS(51037)*X(2284)-JVS(51038)*X(2286)-JVS(51039)& - &*X(2287)-JVS(51040)*X(2292)-JVS(51041)*X(2299)-JVS(51042)*X(2301)-JVS(51043)*X(2302)-JVS(51044)*X(2306)& - &-JVS(51045)*X(2308)-JVS(51046)*X(2309)-JVS(51047)*X(2310)-JVS(51048)*X(2312)-JVS(51049)*X(2315)-JVS(51050)& - &*X(2319)-JVS(51051)*X(2320)-JVS(51052)*X(2322)-JVS(51053)*X(2324)-JVS(51054)*X(2329)-JVS(51055)*X(2334)& - &-JVS(51056)*X(2335)-JVS(51057)*X(2336)-JVS(51058)*X(2338)-JVS(51059)*X(2339)-JVS(51060)*X(2340)-JVS(51061)& - &*X(2344)-JVS(51062)*X(2346)-JVS(51063)*X(2357)-JVS(51064)*X(2361)-JVS(51065)*X(2364)-JVS(51066)*X(2371)& - &-JVS(51067)*X(2373)-JVS(51068)*X(2375)-JVS(51069)*X(2376)-JVS(51070)*X(2381)-JVS(51071)*X(2382)-JVS(51072)& - &*X(2384)-JVS(51073)*X(2387)-JVS(51074)*X(2395)-JVS(51075)*X(2396)-JVS(51076)*X(2402)-JVS(51077)*X(2407)& - &-JVS(51078)*X(2410)-JVS(51079)*X(2412)-JVS(51080)*X(2419)-JVS(51081)*X(2421)-JVS(51082)*X(2425)-JVS(51083)& - &*X(2427)-JVS(51084)*X(2431)-JVS(51085)*X(2446)-JVS(51086)*X(2448)-JVS(51087)*X(2450)-JVS(51088)*X(2451)& - &-JVS(51089)*X(2456)-JVS(51090)*X(2462)-JVS(51091)*X(2463)-JVS(51092)*X(2466)-JVS(51093)*X(2468)-JVS(51094)& - &*X(2472)-JVS(51095)*X(2474)-JVS(51096)*X(2475)-JVS(51097)*X(2476)-JVS(51098)*X(2477)-JVS(51099)*X(2479)& - &-JVS(51100)*X(2481)-JVS(51101)*X(2482)-JVS(51102)*X(2483)-JVS(51103)*X(2484)-JVS(51104)*X(2485)-JVS(51105)& - &*X(2486)-JVS(51106)*X(2487)-JVS(51107)*X(2489)-JVS(51108)*X(2491)-JVS(51109)*X(2492)-JVS(51110)*X(2494)& - &-JVS(51111)*X(2501)-JVS(51112)*X(2503)-JVS(51113)*X(2507)-JVS(51114)*X(2508)-JVS(51115)*X(2509)-JVS(51116)& - &*X(2512)-JVS(51117)*X(2513)-JVS(51118)*X(2516)-JVS(51119)*X(2519)-JVS(51120)*X(2521)-JVS(51121)*X(2526)& - &-JVS(51122)*X(2528)-JVS(51123)*X(2539)-JVS(51124)*X(2541)-JVS(51125)*X(2543)-JVS(51126)*X(2545)-JVS(51127)& - &*X(2546)-JVS(51128)*X(2549)-JVS(51129)*X(2550)-JVS(51130)*X(2551)-JVS(51131)*X(2553)-JVS(51132)*X(2555)& - &-JVS(51133)*X(2556)-JVS(51134)*X(2559)-JVS(51135)*X(2561)-JVS(51136)*X(2562)-JVS(51137)*X(2568)-JVS(51138)& - &*X(2570)-JVS(51139)*X(2575)-JVS(51140)*X(2581)-JVS(51141)*X(2586)-JVS(51142)*X(2589)-JVS(51143)*X(2590)& - &-JVS(51144)*X(2591)-JVS(51145)*X(2592)-JVS(51146)*X(2594)-JVS(51147)*X(2596)-JVS(51148)*X(2599)-JVS(51149)& - &*X(2601)-JVS(51150)*X(2604)-JVS(51151)*X(2606)-JVS(51152)*X(2609)-JVS(51153)*X(2614)-JVS(51154)*X(2616)& - &-JVS(51155)*X(2617)-JVS(51156)*X(2623)-JVS(51157)*X(2627)-JVS(51158)*X(2633)-JVS(51159)*X(2634)-JVS(51160)& - &*X(2638)-JVS(51161)*X(2639)-JVS(51162)*X(2641)-JVS(51163)*X(2642)-JVS(51164)*X(2644)-JVS(51165)*X(2645)& - &-JVS(51166)*X(2646)-JVS(51167)*X(2647)-JVS(51168)*X(2652)-JVS(51169)*X(2653)-JVS(51170)*X(2654)-JVS(51171)& - &*X(2659)-JVS(51172)*X(2662)-JVS(51173)*X(2665)-JVS(51174)*X(2676)-JVS(51175)*X(2680)-JVS(51176)*X(2690)& - &-JVS(51177)*X(2693)-JVS(51178)*X(2694)-JVS(51179)*X(2695)-JVS(51180)*X(2697)-JVS(51181)*X(2699)-JVS(51182)& - &*X(2706)-JVS(51183)*X(2707)-JVS(51184)*X(2710)-JVS(51185)*X(2711)-JVS(51186)*X(2713)-JVS(51187)*X(2714)& - &-JVS(51188)*X(2716)-JVS(51189)*X(2717)-JVS(51190)*X(2720)-JVS(51191)*X(2722)-JVS(51192)*X(2723)-JVS(51193)& - &*X(2727)-JVS(51194)*X(2731)-JVS(51195)*X(2735)-JVS(51196)*X(2737)-JVS(51197)*X(2741)-JVS(51198)*X(2744)& - &-JVS(51199)*X(2745)-JVS(51200)*X(2746)-JVS(51201)*X(2747)-JVS(51202)*X(2748)-JVS(51203)*X(2752)-JVS(51204)& - &*X(2754)-JVS(51205)*X(2760)-JVS(51206)*X(2761)-JVS(51207)*X(2763)-JVS(51208)*X(2764)-JVS(51209)*X(2767)& - &-JVS(51210)*X(2770)-JVS(51211)*X(2771)-JVS(51212)*X(2773)-JVS(51213)*X(2775)-JVS(51214)*X(2785)-JVS(51215)& - &*X(2788)-JVS(51216)*X(2795)-JVS(51217)*X(2797)-JVS(51218)*X(2803)-JVS(51219)*X(2805)-JVS(51220)*X(2807)& - &-JVS(51221)*X(2816)-JVS(51222)*X(2824)-JVS(51223)*X(2826)-JVS(51224)*X(2827)-JVS(51225)*X(2828)-JVS(51226)& - &*X(2835)-JVS(51227)*X(2836)-JVS(51228)*X(2837)-JVS(51229)*X(2838)-JVS(51230)*X(2840)-JVS(51231)*X(2849)& - &-JVS(51232)*X(2861)-JVS(51233)*X(2862)-JVS(51234)*X(2865)-JVS(51235)*X(2868)-JVS(51236)*X(2871)-JVS(51237)& - &*X(2873)-JVS(51238)*X(2874)-JVS(51239)*X(2875)-JVS(51240)*X(2889)-JVS(51241)*X(2890)-JVS(51242)*X(2891)& - &-JVS(51243)*X(2894)-JVS(51244)*X(2895)-JVS(51245)*X(2897)-JVS(51246)*X(2899)-JVS(51247)*X(2900)-JVS(51248)& - &*X(2902)-JVS(51249)*X(2906)-JVS(51250)*X(2911)-JVS(51251)*X(2912)-JVS(51252)*X(2917)-JVS(51253)*X(2922)& - &-JVS(51254)*X(2926)-JVS(51255)*X(2927)-JVS(51256)*X(2931)-JVS(51257)*X(2932)-JVS(51258)*X(2934)-JVS(51259)& - &*X(2936)-JVS(51260)*X(2939)-JVS(51261)*X(2944)-JVS(51262)*X(2946)-JVS(51263)*X(2949)-JVS(51264)*X(2953)& - &-JVS(51265)*X(2954)-JVS(51266)*X(2961)-JVS(51267)*X(2963)-JVS(51268)*X(2966)-JVS(51269)*X(2967)-JVS(51270)& - &*X(2971)-JVS(51271)*X(2972)-JVS(51272)*X(2974)-JVS(51273)*X(2975)-JVS(51274)*X(2976)-JVS(51275)*X(2979)& - &-JVS(51276)*X(2982)-JVS(51277)*X(2983)-JVS(51278)*X(2985)-JVS(51279)*X(2990)-JVS(51280)*X(2991)-JVS(51281)& - &*X(2992)-JVS(51282)*X(2993)-JVS(51283)*X(2996)-JVS(51284)*X(2997)-JVS(51285)*X(3000)-JVS(51286)*X(3001)& - &-JVS(51287)*X(3002)-JVS(51288)*X(3004)-JVS(51289)*X(3009)-JVS(51290)*X(3013)-JVS(51291)*X(3015)-JVS(51292)& - &*X(3018)-JVS(51293)*X(3022)-JVS(51294)*X(3028)-JVS(51295)*X(3032)-JVS(51296)*X(3033)-JVS(51297)*X(3037)& - &-JVS(51298)*X(3038)-JVS(51299)*X(3039)-JVS(51300)*X(3041)-JVS(51301)*X(3043)-JVS(51302)*X(3044)-JVS(51303)& - &*X(3046)-JVS(51304)*X(3048)-JVS(51305)*X(3054)-JVS(51306)*X(3055)-JVS(51307)*X(3057)-JVS(51308)*X(3059)& - &-JVS(51309)*X(3064)-JVS(51310)*X(3066)-JVS(51311)*X(3071)-JVS(51312)*X(3072)-JVS(51313)*X(3079)-JVS(51314)& - &*X(3080)-JVS(51315)*X(3082)-JVS(51316)*X(3083)-JVS(51317)*X(3084)-JVS(51318)*X(3089)-JVS(51319)*X(3094)& - &-JVS(51320)*X(3096)-JVS(51321)*X(3097)-JVS(51322)*X(3099)-JVS(51323)*X(3102)-JVS(51324)*X(3103)-JVS(51325)& - &*X(3105)-JVS(51326)*X(3107)-JVS(51327)*X(3108)-JVS(51328)*X(3113)-JVS(51329)*X(3115)-JVS(51330)*X(3121)& - &-JVS(51331)*X(3122)-JVS(51332)*X(3129)-JVS(51333)*X(3130)-JVS(51334)*X(3131)-JVS(51335)*X(3132)-JVS(51336)& - &*X(3134)-JVS(51337)*X(3135)-JVS(51338)*X(3136)-JVS(51339)*X(3138)-JVS(51340)*X(3139)-JVS(51341)*X(3144)& - &-JVS(51342)*X(3145)-JVS(51343)*X(3147)-JVS(51344)*X(3149)-JVS(51345)*X(3154)-JVS(51346)*X(3155)-JVS(51347)& - &*X(3157)-JVS(51348)*X(3158)-JVS(51349)*X(3160)-JVS(51350)*X(3164)-JVS(51351)*X(3169)-JVS(51352)*X(3171)& - &-JVS(51353)*X(3172)-JVS(51354)*X(3174)-JVS(51355)*X(3176)-JVS(51356)*X(3177)-JVS(51357)*X(3179)-JVS(51358)& - &*X(3180)-JVS(51359)*X(3182)-JVS(51360)*X(3188)-JVS(51361)*X(3192)-JVS(51362)*X(3193)-JVS(51363)*X(3194)& - &-JVS(51364)*X(3195)-JVS(51365)*X(3196)-JVS(51366)*X(3198)-JVS(51367)*X(3200)-JVS(51368)*X(3201)-JVS(51369)& - &*X(3202)-JVS(51370)*X(3203)-JVS(51371)*X(3205)-JVS(51372)*X(3208)-JVS(51373)*X(3209)-JVS(51374)*X(3210)& - &-JVS(51375)*X(3211)-JVS(51376)*X(3212)-JVS(51377)*X(3213)-JVS(51378)*X(3215)-JVS(51379)*X(3216)-JVS(51380)& - &*X(3217)-JVS(51381)*X(3219)-JVS(51382)*X(3225)-JVS(51383)*X(3226)-JVS(51384)*X(3227)-JVS(51385)*X(3228)& - &-JVS(51386)*X(3230)-JVS(51387)*X(3231)-JVS(51388)*X(3234)-JVS(51389)*X(3236)-JVS(51390)*X(3237)-JVS(51391)& - &*X(3238)-JVS(51392)*X(3241)-JVS(51393)*X(3243)-JVS(51394)*X(3244)-JVS(51395)*X(3246)-JVS(51396)*X(3247)& - &-JVS(51397)*X(3248)-JVS(51398)*X(3250)-JVS(51399)*X(3251)-JVS(51400)*X(3252)-JVS(51401)*X(3255)-JVS(51402)& - &*X(3256)-JVS(51403)*X(3261)-JVS(51404)*X(3262)-JVS(51405)*X(3263)-JVS(51406)*X(3264)-JVS(51407)*X(3265)& - &-JVS(51408)*X(3266)-JVS(51409)*X(3267)-JVS(51410)*X(3268)-JVS(51411)*X(3269)-JVS(51412)*X(3270)-JVS(51413)& - &*X(3271)-JVS(51414)*X(3272)-JVS(51415)*X(3277)-JVS(51416)*X(3280)-JVS(51417)*X(3283)-JVS(51418)*X(3284)& - &-JVS(51419)*X(3285)-JVS(51420)*X(3286)-JVS(51421)*X(3287)-JVS(51422)*X(3289)-JVS(51423)*X(3291)-JVS(51424)& - &*X(3294)-JVS(51425)*X(3296)-JVS(51426)*X(3297)-JVS(51427)*X(3299)-JVS(51428)*X(3301)-JVS(51429)*X(3302)& - &-JVS(51430)*X(3304)-JVS(51431)*X(3308)-JVS(51432)*X(3309)-JVS(51433)*X(3310)-JVS(51434)*X(3313)-JVS(51435)& - &*X(3322)-JVS(51436)*X(3323)-JVS(51437)*X(3325)-JVS(51438)*X(3326)-JVS(51439)*X(3330)-JVS(51440)*X(3332)& - &-JVS(51441)*X(3333)-JVS(51442)*X(3334)-JVS(51443)*X(3335)-JVS(51444)*X(3336)-JVS(51445)*X(3337)-JVS(51446)& - &*X(3338)-JVS(51447)*X(3339)-JVS(51448)*X(3340)-JVS(51449)*X(3342)-JVS(51450)*X(3344)-JVS(51451)*X(3345)& - &-JVS(51452)*X(3346)-JVS(51453)*X(3348)-JVS(51454)*X(3350)-JVS(51455)*X(3351)-JVS(51456)*X(3352)-JVS(51457)& - &*X(3353)-JVS(51458)*X(3355)-JVS(51459)*X(3356)-JVS(51460)*X(3357)-JVS(51461)*X(3359)-JVS(51462)*X(3360)& - &-JVS(51463)*X(3365)-JVS(51464)*X(3367)-JVS(51465)*X(3372)-JVS(51466)*X(3377)-JVS(51467)*X(3378)-JVS(51468)& - &*X(3379)-JVS(51469)*X(3380)-JVS(51470)*X(3382)-JVS(51471)*X(3383)-JVS(51472)*X(3386)-JVS(51473)*X(3387)& - &-JVS(51474)*X(3390)-JVS(51475)*X(3391)-JVS(51476)*X(3393)-JVS(51477)*X(3394)-JVS(51478)*X(3396)-JVS(51479)& - &*X(3397)-JVS(51480)*X(3398)-JVS(51481)*X(3400)-JVS(51482)*X(3403)-JVS(51483)*X(3404)-JVS(51484)*X(3405)& - &-JVS(51485)*X(3406)-JVS(51486)*X(3407)-JVS(51487)*X(3410)-JVS(51488)*X(3411)-JVS(51489)*X(3413)-JVS(51490)& - &*X(3415)-JVS(51491)*X(3419)-JVS(51492)*X(3422)-JVS(51493)*X(3423)-JVS(51494)*X(3424)-JVS(51495)*X(3425)& - &-JVS(51496)*X(3426)-JVS(51497)*X(3427)-JVS(51498)*X(3429)-JVS(51499)*X(3430)-JVS(51500)*X(3431)-JVS(51501)& - &*X(3435)-JVS(51502)*X(3437)-JVS(51503)*X(3438)-JVS(51504)*X(3441)-JVS(51505)*X(3443)-JVS(51506)*X(3444)& - &-JVS(51507)*X(3445)-JVS(51508)*X(3446)-JVS(51509)*X(3447)-JVS(51510)*X(3448)-JVS(51511)*X(3449)-JVS(51512)& - &*X(3450)-JVS(51513)*X(3451)-JVS(51514)*X(3452)-JVS(51515)*X(3453)-JVS(51516)*X(3454)-JVS(51517)*X(3455)& - &-JVS(51518)*X(3457)-JVS(51519)*X(3458)-JVS(51520)*X(3459)-JVS(51521)*X(3460)-JVS(51522)*X(3462)-JVS(51523)& - &*X(3463)-JVS(51524)*X(3467)-JVS(51525)*X(3468)-JVS(51526)*X(3469)-JVS(51527)*X(3470)-JVS(51528)*X(3471)& - &-JVS(51529)*X(3472)-JVS(51530)*X(3473)-JVS(51531)*X(3475)-JVS(51532)*X(3476)-JVS(51533)*X(3477)-JVS(51534)& - &*X(3479)-JVS(51535)*X(3480)-JVS(51536)*X(3481)-JVS(51537)*X(3482)-JVS(51538)*X(3483)-JVS(51539)*X(3484)& - &-JVS(51540)*X(3485)-JVS(51541)*X(3486)-JVS(51542)*X(3487)-JVS(51543)*X(3488)-JVS(51544)*X(3489)-JVS(51545)& - &*X(3490)-JVS(51546)*X(3491)-JVS(51547)*X(3492)-JVS(51548)*X(3493)-JVS(51549)*X(3494)-JVS(51550)*X(3495)& - &-JVS(51551)*X(3496)-JVS(51552)*X(3499)-JVS(51553)*X(3500)-JVS(51554)*X(3501)-JVS(51555)*X(3502)-JVS(51556)& - &*X(3503)-JVS(51557)*X(3504)-JVS(51558)*X(3506)-JVS(51559)*X(3507)-JVS(51560)*X(3508)-JVS(51561)*X(3509)& - &-JVS(51562)*X(3510)-JVS(51563)*X(3511)-JVS(51564)*X(3512)-JVS(51565)*X(3515)-JVS(51566)*X(3518)-JVS(51567)& - &*X(3520)-JVS(51568)*X(3521)-JVS(51569)*X(3522)-JVS(51570)*X(3523)-JVS(51571)*X(3524)-JVS(51572)*X(3525)& - &-JVS(51573)*X(3526)-JVS(51574)*X(3527)-JVS(51575)*X(3531)-JVS(51576)*X(3532)-JVS(51577)*X(3533)-JVS(51578)& - &*X(3534)-JVS(51579)*X(3537)-JVS(51580)*X(3538)-JVS(51581)*X(3539)-JVS(51582)*X(3540)-JVS(51583)*X(3543)& - &-JVS(51584)*X(3544)-JVS(51585)*X(3545)-JVS(51586)*X(3546)-JVS(51587)*X(3547)-JVS(51588)*X(3548)-JVS(51589)& - &*X(3549)-JVS(51590)*X(3550)-JVS(51591)*X(3551)-JVS(51592)*X(3552)-JVS(51593)*X(3554)-JVS(51594)*X(3555)& - &-JVS(51595)*X(3557)-JVS(51596)*X(3559)-JVS(51597)*X(3560)-JVS(51598)*X(3562)-JVS(51599)*X(3563)-JVS(51600)& - &*X(3564)-JVS(51601)*X(3565)-JVS(51602)*X(3566)-JVS(51603)*X(3567)-JVS(51604)*X(3569)-JVS(51605)*X(3570)& - &-JVS(51606)*X(3571)-JVS(51607)*X(3572)-JVS(51608)*X(3573)-JVS(51609)*X(3575)-JVS(51610)*X(3576)-JVS(51611)& - &*X(3577)-JVS(51612)*X(3578)-JVS(51613)*X(3579)-JVS(51614)*X(3580)-JVS(51615)*X(3581)-JVS(51616)*X(3582)& - &-JVS(51617)*X(3584)-JVS(51618)*X(3585)-JVS(51619)*X(3587)-JVS(51620)*X(3588)-JVS(51621)*X(3589)-JVS(51622)& - &*X(3590)-JVS(51623)*X(3591)-JVS(51624)*X(3592)-JVS(51625)*X(3597)-JVS(51626)*X(3598)-JVS(51627)*X(3599)& - &-JVS(51628)*X(3600)-JVS(51629)*X(3601)-JVS(51630)*X(3602)-JVS(51631)*X(3603)-JVS(51632)*X(3604)-JVS(51633)& - &*X(3605)-JVS(51634)*X(3606)-JVS(51635)*X(3608)-JVS(51636)*X(3610)-JVS(51637)*X(3611)-JVS(51638)*X(3612)& - &-JVS(51639)*X(3613)-JVS(51640)*X(3614)-JVS(51641)*X(3615)-JVS(51642)*X(3616)-JVS(51643)*X(3618)-JVS(51644)& - &*X(3620)-JVS(51645)*X(3621)-JVS(51646)*X(3622)-JVS(51647)*X(3623)-JVS(51648)*X(3624)-JVS(51649)*X(3625)& - &-JVS(51650)*X(3626)-JVS(51651)*X(3627)-JVS(51652)*X(3628)-JVS(51653)*X(3630)-JVS(51654)*X(3631)-JVS(51655)& - &*X(3632)-JVS(51656)*X(3633)-JVS(51657)*X(3634)-JVS(51658)*X(3635)-JVS(51659)*X(3636)-JVS(51660)*X(3637)& - &-JVS(51661)*X(3639)-JVS(51662)*X(3640)-JVS(51663)*X(3641)-JVS(51664)*X(3643)-JVS(51665)*X(3644)-JVS(51666)& - &*X(3645)-JVS(51667)*X(3648)-JVS(51668)*X(3649)-JVS(51669)*X(3650)-JVS(51670)*X(3653)-JVS(51671)*X(3655)& - &-JVS(51672)*X(3657)-JVS(51673)*X(3658)-JVS(51674)*X(3659)-JVS(51675)*X(3661)-JVS(51676)*X(3662)-JVS(51677)& - &*X(3663)-JVS(51678)*X(3664)-JVS(51679)*X(3665)-JVS(51680)*X(3666)-JVS(51681)*X(3667)-JVS(51682)*X(3668)& - &-JVS(51683)*X(3669)-JVS(51684)*X(3670)-JVS(51685)*X(3671)-JVS(51686)*X(3672)-JVS(51687)*X(3673)-JVS(51688)& - &*X(3674)-JVS(51689)*X(3675)-JVS(51690)*X(3676)-JVS(51691)*X(3677)-JVS(51692)*X(3678)-JVS(51693)*X(3679)& - &-JVS(51694)*X(3680)-JVS(51695)*X(3681)-JVS(51696)*X(3682)-JVS(51697)*X(3683)-JVS(51698)*X(3684)-JVS(51699)& - &*X(3685)-JVS(51700)*X(3686)-JVS(51701)*X(3687)-JVS(51702)*X(3688)-JVS(51703)*X(3690)-JVS(51704)*X(3691)& - &-JVS(51705)*X(3692)-JVS(51706)*X(3693)-JVS(51707)*X(3694)-JVS(51708)*X(3695)-JVS(51709)*X(3696)-JVS(51710)& - &*X(3697)-JVS(51711)*X(3698)-JVS(51712)*X(3699)-JVS(51713)*X(3700)-JVS(51714)*X(3701)-JVS(51715)*X(3702)& - &-JVS(51716)*X(3703)-JVS(51717)*X(3704)-JVS(51718)*X(3705)-JVS(51719)*X(3706)-JVS(51720)*X(3707)-JVS(51721)& - &*X(3709)-JVS(51722)*X(3710)-JVS(51723)*X(3711)-JVS(51724)*X(3712)-JVS(51725)*X(3713)-JVS(51726)*X(3714)& - &-JVS(51727)*X(3715)-JVS(51728)*X(3716)-JVS(51729)*X(3717)-JVS(51730)*X(3718)-JVS(51731)*X(3719)-JVS(51732)& - &*X(3720)-JVS(51733)*X(3721)-JVS(51734)*X(3722)-JVS(51735)*X(3724)-JVS(51736)*X(3725)-JVS(51737)*X(3726)& - &-JVS(51738)*X(3727)-JVS(51739)*X(3728)-JVS(51740)*X(3729)-JVS(51741)*X(3730)-JVS(51742)*X(3731)-JVS(51743)& - &*X(3732)-JVS(51744)*X(3733)-JVS(51745)*X(3735)-JVS(51746)*X(3736)-JVS(51747)*X(3737)-JVS(51748)*X(3738)& - &-JVS(51749)*X(3739)-JVS(51750)*X(3740)-JVS(51751)*X(3741)-JVS(51752)*X(3742)-JVS(51753)*X(3743)-JVS(51754)& - &*X(3744)-JVS(51755)*X(3745)-JVS(51756)*X(3746)-JVS(51757)*X(3748)-JVS(51758)*X(3749)-JVS(51759)*X(3750)& - &-JVS(51760)*X(3751)-JVS(51761)*X(3752)-JVS(51762)*X(3753)-JVS(51763)*X(3754)-JVS(51764)*X(3755)-JVS(51765)& - &*X(3756)-JVS(51766)*X(3758)-JVS(51767)*X(3759)-JVS(51768)*X(3760)-JVS(51769)*X(3761)-JVS(51770)*X(3762)& - &-JVS(51771)*X(3763)-JVS(51772)*X(3764)-JVS(51773)*X(3766)-JVS(51774)*X(3767)-JVS(51775)*X(3768)-JVS(51776)& - &*X(3769)-JVS(51777)*X(3770)-JVS(51778)*X(3771)-JVS(51779)*X(3772)-JVS(51780)*X(3773)-JVS(51781)*X(3774)& - &-JVS(51782)*X(3775)-JVS(51783)*X(3776)-JVS(51784)*X(3777)-JVS(51785)*X(3778)-JVS(51786)*X(3779)-JVS(51787)& - &*X(3780)-JVS(51788)*X(3781)-JVS(51789)*X(3782)-JVS(51790)*X(3783)-JVS(51791)*X(3784)-JVS(51792)*X(3785)& - &-JVS(51793)*X(3786)-JVS(51794)*X(3787)-JVS(51795)*X(3788)-JVS(51796)*X(3789)-JVS(51797)*X(3790)-JVS(51798)& - &*X(3791)-JVS(51799)*X(3792)-JVS(51800)*X(3794)-JVS(51801)*X(3795)-JVS(51802)*X(3796)-JVS(51803)*X(3797)& - &-JVS(51804)*X(3798)-JVS(51805)*X(3799)-JVS(51806)*X(3800)-JVS(51807)*X(3801)-JVS(51808)*X(3802)-JVS(51809)& - &*X(3803)-JVS(51810)*X(3804)-JVS(51811)*X(3805)-JVS(51812)*X(3806)-JVS(51813)*X(3807)-JVS(51814)*X(3808)& - &-JVS(51815)*X(3809)-JVS(51816)*X(3810)-JVS(51817)*X(3811)-JVS(51818)*X(3812)-JVS(51819)*X(3813)-JVS(51820)& - &*X(3814)-JVS(51821)*X(3815)-JVS(51822)*X(3816)-JVS(51823)*X(3817)-JVS(51824)*X(3818)-JVS(51825)*X(3819)& - &-JVS(51826)*X(3820)-JVS(51827)*X(3822)-JVS(51828)*X(3823)-JVS(51829)*X(3824)-JVS(51830)*X(3825)-JVS(51831)& - &*X(3826)-JVS(51832)*X(3827)-JVS(51833)*X(3828)-JVS(51834)*X(3829)-JVS(51835)*X(3830)-JVS(51836)*X(3831)& - &-JVS(51837)*X(3832)-JVS(51838)*X(3833)-JVS(51839)*X(3834)-JVS(51840)*X(3835)-JVS(51841)*X(3836)-JVS(51842)& - &*X(3837)-JVS(51843)*X(3838)-JVS(51844)*X(3839)-JVS(51845)*X(3840)-JVS(51846)*X(3841)-JVS(51847)*X(3842)& - &-JVS(51848)*X(3844)-JVS(51849)*X(3845)-JVS(51850)*X(3846)-JVS(51851)*X(3847)-JVS(51852)*X(3848)-JVS(51853)& - &*X(3850)-JVS(51854)*X(3851)-JVS(51855)*X(3852)-JVS(51856)*X(3853)-JVS(51857)*X(3854)-JVS(51858)*X(3855)& - &-JVS(51859)*X(3856)-JVS(51860)*X(3857)-JVS(51861)*X(3858)-JVS(51862)*X(3859)-JVS(51863)*X(3860)-JVS(51864)& - &*X(3861)-JVS(51865)*X(3862)-JVS(51866)*X(3863)-JVS(51867)*X(3864)-JVS(51868)*X(3865)-JVS(51869)*X(3866)& - &-JVS(51870)*X(3867)-JVS(51871)*X(3869)-JVS(51872)*X(3870)-JVS(51873)*X(3871)-JVS(51874)*X(3872)-JVS(51875)& - &*X(3873)-JVS(51876)*X(3874)-JVS(51877)*X(3875)-JVS(51878)*X(3876)-JVS(51879)*X(3877)-JVS(51880)*X(3878)& - &-JVS(51881)*X(3879)-JVS(51882)*X(3880)-JVS(51883)*X(3881)-JVS(51884)*X(3882)-JVS(51885)*X(3883)-JVS(51886)& - &*X(3884)-JVS(51887)*X(3885)-JVS(51888)*X(3886)-JVS(51889)*X(3887)-JVS(51890)*X(3888)-JVS(51891)*X(3889)& - &-JVS(51892)*X(3890)-JVS(51893)*X(3891)-JVS(51894)*X(3892)-JVS(51895)*X(3893)-JVS(51896)*X(3894)-JVS(51897)& - &*X(3895)-JVS(51898)*X(3896)-JVS(51899)*X(3897)-JVS(51900)*X(3898)-JVS(51901)*X(3899)-JVS(51902)*X(3900)& - &-JVS(51903)*X(3901)-JVS(51904)*X(3902)-JVS(51905)*X(3903)-JVS(51906)*X(3904)-JVS(51907)*X(3905)-JVS(51908)& - &*X(3907)-JVS(51909)*X(3908)-JVS(51910)*X(3909)-JVS(51911)*X(3910)-JVS(51912)*X(3911)-JVS(51913)*X(3912)& - &-JVS(51914)*X(3913)-JVS(51915)*X(3914)-JVS(51916)*X(3915)-JVS(51917)*X(3916)-JVS(51918)*X(3917)-JVS(51919)& - &*X(3918)-JVS(51920)*X(3919)-JVS(51921)*X(3920)-JVS(51922)*X(3921)-JVS(51923)*X(3922)-JVS(51924)*X(3923)& - &-JVS(51925)*X(3924)-JVS(51926)*X(3925)-JVS(51927)*X(3926)-JVS(51928)*X(3927)-JVS(51929)*X(3928)-JVS(51930)& - &*X(3929)-JVS(51931)*X(3930)-JVS(51932)*X(3931)-JVS(51933)*X(3932)-JVS(51934)*X(3934)-JVS(51935)*X(3935)& - &-JVS(51936)*X(3936)-JVS(51937)*X(3937)-JVS(51938)*X(3938)-JVS(51939)*X(3939)-JVS(51940)*X(3940)-JVS(51941)& - &*X(3941)-JVS(51942)*X(3942)-JVS(51943)*X(3943)-JVS(51944)*X(3944)-JVS(51945)*X(3945)-JVS(51946)*X(3946)& - &-JVS(51947)*X(3947)-JVS(51948)*X(3948)-JVS(51949)*X(3949)-JVS(51950)*X(3950)-JVS(51951)*X(3951)-JVS(51952)& - &*X(3952)-JVS(51953)*X(3953)-JVS(51954)*X(3954)-JVS(51955)*X(3955)-JVS(51956)*X(3956)-JVS(51957)*X(3957)& - &-JVS(51958)*X(3958)-JVS(51959)*X(3959)-JVS(51960)*X(3960)-JVS(51961)*X(3961)-JVS(51962)*X(3962)-JVS(51963)& - &*X(3963)-JVS(51964)*X(3964)-JVS(51965)*X(3965)-JVS(51966)*X(3966)-JVS(51967)*X(3967)-JVS(51968)*X(3968)& - &-JVS(51969)*X(3969)-JVS(51970)*X(3970)-JVS(51971)*X(3971)-JVS(51972)*X(3972)-JVS(51973)*X(3973)-JVS(51974)& - &*X(3974)-JVS(51975)*X(3975)-JVS(51976)*X(3976)-JVS(51977)*X(3977)-JVS(51978)*X(3979)-JVS(51979)*X(3980)& - &-JVS(51980)*X(3981)-JVS(51981)*X(3982)-JVS(51982)*X(3983)-JVS(51983)*X(3984)-JVS(51984)*X(3985)-JVS(51985)& - &*X(3986)-JVS(51986)*X(3987)-JVS(51987)*X(3988)-JVS(51988)*X(3989)-JVS(51989)*X(3990)-JVS(51990)*X(3991)& - &-JVS(51991)*X(3992)-JVS(51992)*X(3993)-JVS(51993)*X(3994)-JVS(51994)*X(3995)-JVS(51995)*X(3996)-JVS(51996)& - &*X(3997)-JVS(51997)*X(3998)-JVS(51998)*X(3999)-JVS(51999)*X(4000)-JVS(52000)*X(4001)-JVS(52001)*X(4002)& - &-JVS(52002)*X(4003)-JVS(52003)*X(4004)-JVS(52004)*X(4005)-JVS(52005)*X(4006)-JVS(52006)*X(4007)-JVS(52007)& - &*X(4008)-JVS(52008)*X(4009)-JVS(52009)*X(4010)-JVS(52010)*X(4011)-JVS(52011)*X(4012)-JVS(52012)*X(4013)& - &-JVS(52013)*X(4014)-JVS(52014)*X(4015)-JVS(52015)*X(4016)-JVS(52016)*X(4017)-JVS(52017)*X(4018)-JVS(52018)& - &*X(4019)-JVS(52019)*X(4020)-JVS(52020)*X(4021)-JVS(52021)*X(4022)-JVS(52022)*X(4023)-JVS(52023)*X(4024)& - &-JVS(52024)*X(4025)-JVS(52025)*X(4026)-JVS(52026)*X(4027)-JVS(52027)*X(4028)-JVS(52028)*X(4029)-JVS(52029)& - &*X(4030)-JVS(52030)*X(4031)-JVS(52031)*X(4032)-JVS(52032)*X(4033)-JVS(52033)*X(4034)-JVS(52034)*X(4035)& - &-JVS(52035)*X(4036)-JVS(52036)*X(4037)-JVS(52037)*X(4038)-JVS(52038)*X(4039)-JVS(52039)*X(4040)-JVS(52040)& - &*X(4041)-JVS(52041)*X(4042)-JVS(52042)*X(4043)-JVS(52043)*X(4044)-JVS(52044)*X(4045)-JVS(52045)*X(4046)& - &-JVS(52046)*X(4047)-JVS(52047)*X(4049)-JVS(52048)*X(4050)-JVS(52049)*X(4051)-JVS(52050)*X(4052)-JVS(52051)& - &*X(4053)-JVS(52052)*X(4054)-JVS(52053)*X(4055)-JVS(52054)*X(4056)-JVS(52055)*X(4057)-JVS(52056)*X(4058)& - &-JVS(52057)*X(4059)-JVS(52058)*X(4060)-JVS(52059)*X(4061)-JVS(52060)*X(4062)-JVS(52061)*X(4063)-JVS(52062)& - &*X(4064)-JVS(52063)*X(4065)-JVS(52064)*X(4066)-JVS(52065)*X(4067)-JVS(52066)*X(4068)-JVS(52067)*X(4069)& - &-JVS(52068)*X(4070)-JVS(52069)*X(4071)-JVS(52070)*X(4072)-JVS(52071)*X(4073)-JVS(52072)*X(4074)-JVS(52073)& - &*X(4075)-JVS(52074)*X(4076)-JVS(52075)*X(4077)-JVS(52076)*X(4078)-JVS(52077)*X(4079)-JVS(52078)*X(4080)& - &-JVS(52079)*X(4081)-JVS(52080)*X(4082)-JVS(52081)*X(4083)-JVS(52082)*X(4084)-JVS(52083)*X(4085)-JVS(52084)& - &*X(4086)-JVS(52085)*X(4087)-JVS(52086)*X(4088)-JVS(52087)*X(4089)-JVS(52088)*X(4090)-JVS(52089)*X(4091)& - &-JVS(52090)*X(4092)-JVS(52091)*X(4093)-JVS(52092)*X(4094)-JVS(52093)*X(4095)-JVS(52094)*X(4096)-JVS(52095)& - &*X(4097)-JVS(52096)*X(4098)-JVS(52097)*X(4099)-JVS(52098)*X(4100)-JVS(52099)*X(4101)-JVS(52100)*X(4102)& - &-JVS(52101)*X(4103)-JVS(52102)*X(4104)-JVS(52103)*X(4105)-JVS(52104)*X(4106)-JVS(52105)*X(4107)-JVS(52106)& - &*X(4108)-JVS(52107)*X(4109)-JVS(52108)*X(4110)-JVS(52109)*X(4111)-JVS(52110)*X(4112)-JVS(52111)*X(4113)& - &-JVS(52112)*X(4114)-JVS(52113)*X(4115)-JVS(52114)*X(4116)-JVS(52115)*X(4117)-JVS(52116)*X(4118)-JVS(52117)& - &*X(4119)-JVS(52118)*X(4120)-JVS(52119)*X(4121)-JVS(52120)*X(4122)-JVS(52121)*X(4123)-JVS(52122)*X(4124)& - &-JVS(52123)*X(4125)-JVS(52124)*X(4126)-JVS(52125)*X(4127)-JVS(52126)*X(4128)-JVS(52127)*X(4129)-JVS(52128)& - &*X(4130)-JVS(52129)*X(4131)-JVS(52130)*X(4132)-JVS(52131)*X(4133)-JVS(52132)*X(4134)-JVS(52133)*X(4135)& - &-JVS(52134)*X(4136)-JVS(52135)*X(4137)-JVS(52136)*X(4138)-JVS(52137)*X(4139)-JVS(52138)*X(4140)-JVS(52139)& - &*X(4141)-JVS(52140)*X(4142)-JVS(52141)*X(4143)-JVS(52142)*X(4144)-JVS(52143)*X(4145)-JVS(52144)*X(4146)& - &-JVS(52145)*X(4147)-JVS(52146)*X(4148)-JVS(52147)*X(4149)-JVS(52148)*X(4150)-JVS(52149)*X(4151)-JVS(52150)& - &*X(4152)-JVS(52151)*X(4153)-JVS(52152)*X(4154)-JVS(52153)*X(4155)-JVS(52154)*X(4156)-JVS(52155)*X(4157)& - &-JVS(52156)*X(4158)-JVS(52157)*X(4159)-JVS(52158)*X(4160)-JVS(52159)*X(4161)-JVS(52160)*X(4162)-JVS(52161)& - &*X(4163)-JVS(52162)*X(4164)-JVS(52163)*X(4165)-JVS(52164)*X(4166)-JVS(52165)*X(4167)-JVS(52166)*X(4168)& - &-JVS(52167)*X(4169)-JVS(52168)*X(4170)-JVS(52169)*X(4171)-JVS(52170)*X(4172)-JVS(52171)*X(4173)-JVS(52172)& - &*X(4174)-JVS(52173)*X(4175)-JVS(52174)*X(4176)-JVS(52175)*X(4177)-JVS(52176)*X(4178)-JVS(52177)*X(4179)& - &-JVS(52178)*X(4180)-JVS(52179)*X(4181)-JVS(52180)*X(4182)-JVS(52181)*X(4183)-JVS(52182)*X(4184)-JVS(52183)& - &*X(4185)-JVS(52184)*X(4186)-JVS(52185)*X(4187)-JVS(52186)*X(4188)-JVS(52187)*X(4189)-JVS(52188)*X(4190)& - &-JVS(52189)*X(4191)-JVS(52190)*X(4192)-JVS(52191)*X(4193)-JVS(52192)*X(4194)-JVS(52193)*X(4195)-JVS(52194)& - &*X(4196)-JVS(52195)*X(4197)-JVS(52196)*X(4198)-JVS(52197)*X(4199)-JVS(52198)*X(4200)-JVS(52199)*X(4201)& - &-JVS(52200)*X(4202)-JVS(52201)*X(4203)-JVS(52202)*X(4204)-JVS(52203)*X(4205)-JVS(52204)*X(4206)-JVS(52205)& - &*X(4207)-JVS(52206)*X(4208)-JVS(52207)*X(4209)-JVS(52208)*X(4210)-JVS(52209)*X(4211)-JVS(52210)*X(4212)& - &-JVS(52211)*X(4214)-JVS(52212)*X(4215)-JVS(52213)*X(4216)-JVS(52214)*X(4217)-JVS(52215)*X(4218)-JVS(52216)& - &*X(4219)-JVS(52217)*X(4220)-JVS(52218)*X(4221)-JVS(52219)*X(4222)-JVS(52220)*X(4223)-JVS(52221)*X(4224)& - &-JVS(52222)*X(4225)-JVS(52223)*X(4226)-JVS(52224)*X(4227)-JVS(52225)*X(4228)-JVS(52226)*X(4229)-JVS(52227)& - &*X(4230)-JVS(52228)*X(4231)-JVS(52229)*X(4232)-JVS(52230)*X(4233)-JVS(52231)*X(4234)-JVS(52232)*X(4235)& - &-JVS(52233)*X(4236)-JVS(52234)*X(4237)-JVS(52235)*X(4238)-JVS(52236)*X(4239)-JVS(52237)*X(4240)-JVS(52238)& - &*X(4241)-JVS(52239)*X(4242)-JVS(52240)*X(4243)-JVS(52241)*X(4244)-JVS(52242)*X(4245)-JVS(52243)*X(4246)& - &-JVS(52244)*X(4248)-JVS(52245)*X(4249)-JVS(52246)*X(4251)-JVS(52247)*X(4252)-JVS(52248)*X(4253)-JVS(52249)& - &*X(4254)-JVS(52250)*X(4255)-JVS(52251)*X(4256)-JVS(52252)*X(4257)-JVS(52253)*X(4259)-JVS(52254)*X(4260)& - &-JVS(52255)*X(4261)-JVS(52256)*X(4262)-JVS(52257)*X(4263)-JVS(52258)*X(4265)-JVS(52259)*X(4266)-JVS(52260)& - &*X(4267)-JVS(52261)*X(4268)-JVS(52262)*X(4269)-JVS(52263)*X(4270)-JVS(52264)*X(4271)-JVS(52265)*X(4272)& - &-JVS(52266)*X(4273)-JVS(52267)*X(4274)-JVS(52268)*X(4275)-JVS(52269)*X(4276)-JVS(52270)*X(4277)-JVS(52271)& - &*X(4278)-JVS(52272)*X(4279)-JVS(52273)*X(4280)-JVS(52274)*X(4281)-JVS(52275)*X(4283)-JVS(52276)*X(4284)& - &-JVS(52277)*X(4285)-JVS(52278)*X(4287)-JVS(52279)*X(4288)-JVS(52280)*X(4289)-JVS(52281)*X(4290)-JVS(52282)& - &*X(4291)-JVS(52283)*X(4292)-JVS(52284)*X(4293)-JVS(52285)*X(4295)-JVS(52286)*X(4296)-JVS(52287)*X(4297)& - &-JVS(52288)*X(4298)-JVS(52289)*X(4299)-JVS(52290)*X(4300)-JVS(52291)*X(4301)-JVS(52292)*X(4303)-JVS(52293)& - &*X(4304)-JVS(52294)*X(4305)-JVS(52295)*X(4306)-JVS(52296)*X(4307)-JVS(52297)*X(4308)-JVS(52298)*X(4309)& - &-JVS(52299)*X(4310)-JVS(52300)*X(4311)-JVS(52301)*X(4312)-JVS(52302)*X(4313)-JVS(52303)*X(4314)-JVS(52304)& - &*X(4315)-JVS(52305)*X(4316)-JVS(52306)*X(4317)-JVS(52307)*X(4318)-JVS(52308)*X(4319)-JVS(52309)*X(4321)& - &-JVS(52310)*X(4322)-JVS(52311)*X(4323)-JVS(52312)*X(4324)-JVS(52313)*X(4325)-JVS(52314)*X(4326)-JVS(52315)& - &*X(4327)-JVS(52316)*X(4328)-JVS(52317)*X(4329)-JVS(52318)*X(4330)-JVS(52319)*X(4332)-JVS(52320)*X(4333)& - &-JVS(52321)*X(4334)-JVS(52322)*X(4335)-JVS(52323)*X(4336)-JVS(52324)*X(4337)-JVS(52325)*X(4338)-JVS(52326)& - &*X(4339)-JVS(52327)*X(4340)-JVS(52328)*X(4341)-JVS(52329)*X(4342)-JVS(52330)*X(4343)-JVS(52331)*X(4344)& - &-JVS(52332)*X(4345)-JVS(52333)*X(4346)-JVS(52334)*X(4347)-JVS(52335)*X(4348)-JVS(52336)*X(4349)-JVS(52337)& - &*X(4350)-JVS(52338)*X(4351)-JVS(52339)*X(4353)-JVS(52340)*X(4354)-JVS(52341)*X(4355)-JVS(52342)*X(4356)& - &-JVS(52343)*X(4357)-JVS(52344)*X(4358)-JVS(52345)*X(4359)-JVS(52346)*X(4360)-JVS(52347)*X(4361)-JVS(52348)& - &*X(4362)-JVS(52349)*X(4363)-JVS(52350)*X(4364)-JVS(52351)*X(4365)-JVS(52352)*X(4366)-JVS(52353)*X(4367)& - &-JVS(52354)*X(4368)-JVS(52355)*X(4369)-JVS(52356)*X(4370)-JVS(52357)*X(4371)-JVS(52358)*X(4372)-JVS(52359)& - &*X(4373)-JVS(52360)*X(4374)-JVS(52361)*X(4375)-JVS(52362)*X(4376)-JVS(52363)*X(4377)-JVS(52364)*X(4378)& - &-JVS(52365)*X(4379)-JVS(52366)*X(4380)-JVS(52367)*X(4381)-JVS(52368)*X(4382)-JVS(52369)*X(4384)-JVS(52370)& - &*X(4385)-JVS(52371)*X(4386)-JVS(52372)*X(4387)-JVS(52373)*X(4388)-JVS(52374)*X(4389)-JVS(52375)*X(4390)& - &-JVS(52376)*X(4391)-JVS(52377)*X(4392)-JVS(52378)*X(4393)-JVS(52379)*X(4394)-JVS(52380)*X(4395)-JVS(52381)& - &*X(4396)-JVS(52382)*X(4397)-JVS(52383)*X(4398)-JVS(52384)*X(4399)-JVS(52385)*X(4400)-JVS(52386)*X(4401)& - &-JVS(52387)*X(4402)-JVS(52388)*X(4403)-JVS(52389)*X(4404)-JVS(52390)*X(4405)-JVS(52391)*X(4406)-JVS(52392)& - &*X(4407)-JVS(52393)*X(4408)-JVS(52394)*X(4409)-JVS(52395)*X(4410)-JVS(52396)*X(4411)-JVS(52397)*X(4412)& - &-JVS(52398)*X(4413)-JVS(52399)*X(4414)-JVS(52400)*X(4415)-JVS(52401)*X(4416)-JVS(52402)*X(4417)-JVS(52403)& - &*X(4418)-JVS(52404)*X(4419)-JVS(52405)*X(4420)-JVS(52406)*X(4421)-JVS(52407)*X(4422)-JVS(52408)*X(4423)& - &-JVS(52409)*X(4424)-JVS(52410)*X(4425)-JVS(52411)*X(4426)-JVS(52412)*X(4427)-JVS(52413)*X(4428)-JVS(52414)& - &*X(4429)-JVS(52415)*X(4430)-JVS(52416)*X(4431)-JVS(52417)*X(4432)-JVS(52418)*X(4433)-JVS(52419)*X(4434)& - &-JVS(52420)*X(4435)-JVS(52421)*X(4436)-JVS(52422)*X(4437)-JVS(52423)*X(4438)-JVS(52424)*X(4439)-JVS(52425)& - &*X(4440)-JVS(52426)*X(4441)-JVS(52427)*X(4442)-JVS(52428)*X(4443)-JVS(52429)*X(4444)-JVS(52430)*X(4445)& - &-JVS(52431)*X(4446)-JVS(52432)*X(4447)-JVS(52433)*X(4448)-JVS(52434)*X(4449)-JVS(52435)*X(4450)-JVS(52436)& - &*X(4451)-JVS(52437)*X(4452)-JVS(52438)*X(4453)-JVS(52439)*X(4454)-JVS(52440)*X(4455)-JVS(52441)*X(4456)& - &-JVS(52442)*X(4457)-JVS(52443)*X(4458)-JVS(52444)*X(4459)-JVS(52445)*X(4460)-JVS(52446)*X(4461)-JVS(52447)& - &*X(4462)-JVS(52448)*X(4463)-JVS(52449)*X(4464)-JVS(52450)*X(4465)-JVS(52451)*X(4466)-JVS(52452)*X(4467)& - &-JVS(52453)*X(4468)-JVS(52454)*X(4469)-JVS(52455)*X(4470)-JVS(52456)*X(4471)-JVS(52457)*X(4472)-JVS(52458)& - &*X(4473)-JVS(52459)*X(4474)-JVS(52460)*X(4475)-JVS(52461)*X(4476)-JVS(52462)*X(4477)-JVS(52463)*X(4478)& - &-JVS(52464)*X(4479)-JVS(52465)*X(4480)-JVS(52466)*X(4481)-JVS(52467)*X(4482)-JVS(52468)*X(4483)-JVS(52469)& - &*X(4484)-JVS(52470)*X(4485)-JVS(52471)*X(4486)-JVS(52472)*X(4487)-JVS(52473)*X(4488)-JVS(52474)*X(4489)& - &-JVS(52475)*X(4490)-JVS(52476)*X(4491)-JVS(52477)*X(4492)-JVS(52478)*X(4494)-JVS(52479)*X(4495)-JVS(52480)& - &*X(4496)-JVS(52481)*X(4497)-JVS(52482)*X(4498)-JVS(52483)*X(4499)-JVS(52484)*X(4500)-JVS(52485)*X(4501)& - &-JVS(52486)*X(4502)-JVS(52487)*X(4503)-JVS(52488)*X(4504)-JVS(52489)*X(4505)-JVS(52490)*X(4506)-JVS(52491)& - &*X(4508)-JVS(52492)*X(4509)-JVS(52493)*X(4510)-JVS(52494)*X(4511)-JVS(52495)*X(4512)-JVS(52496)*X(4513)& - &-JVS(52497)*X(4514)-JVS(52498)*X(4515)-JVS(52499)*X(4516)-JVS(52500)*X(4517)-JVS(52501)*X(4518)-JVS(52502)& - &*X(4519)-JVS(52503)*X(4520)-JVS(52504)*X(4521)-JVS(52505)*X(4522)-JVS(52506)*X(4523)-JVS(52507)*X(4524)& - &-JVS(52508)*X(4525)-JVS(52509)*X(4527)-JVS(52510)*X(4528)-JVS(52511)*X(4529)-JVS(52512)*X(4530)-JVS(52513)& - &*X(4531)-JVS(52514)*X(4532)-JVS(52515)*X(4533)-JVS(52516)*X(4534)-JVS(52517)*X(4535)-JVS(52518)*X(4536)& - &-JVS(52519)*X(4537)-JVS(52520)*X(4538)-JVS(52521)*X(4539)-JVS(52522)*X(4540)-JVS(52523)*X(4541)-JVS(52524)& - &*X(4542)-JVS(52525)*X(4543)-JVS(52526)*X(4545)-JVS(52527)*X(4546)-JVS(52528)*X(4547)-JVS(52529)*X(4548)& - &-JVS(52530)*X(4549)-JVS(52531)*X(4550)-JVS(52532)*X(4552)-JVS(52533)*X(4553)-JVS(52534)*X(4554)-JVS(52535)& - &*X(4555)-JVS(52536)*X(4557)-JVS(52537)*X(4558)-JVS(52538)*X(4559)-JVS(52539)*X(4560)-JVS(52540)*X(4561)& - &-JVS(52541)*X(4562)-JVS(52542)*X(4563)-JVS(52543)*X(4564)-JVS(52544)*X(4565)-JVS(52545)*X(4566)-JVS(52546)& - &*X(4567)-JVS(52547)*X(4568)-JVS(52548)*X(4569)-JVS(52549)*X(4570)-JVS(52550)*X(4571)-JVS(52551)*X(4572)& - &-JVS(52552)*X(4573)-JVS(52553)*X(4574)-JVS(52554)*X(4575)-JVS(52555)*X(4576)-JVS(52556)*X(4577)-JVS(52557)& - &*X(4578)-JVS(52558)*X(4579)-JVS(52559)*X(4580)-JVS(52560)*X(4581)-JVS(52561)*X(4582)-JVS(52562)*X(4583)& - &-JVS(52563)*X(4584)-JVS(52564)*X(4585)-JVS(52565)*X(4586)-JVS(52566)*X(4587)-JVS(52567)*X(4588)-JVS(52568)& - &*X(4589)-JVS(52569)*X(4590)-JVS(52570)*X(4591)-JVS(52571)*X(4592)-JVS(52572)*X(4593)-JVS(52573)*X(4594)& - &-JVS(52574)*X(4595)-JVS(52575)*X(4596)-JVS(52576)*X(4597)-JVS(52577)*X(4598)-JVS(52578)*X(4599)-JVS(52579)& - &*X(4600)-JVS(52580)*X(4601)-JVS(52581)*X(4602)-JVS(52582)*X(4603)-JVS(52583)*X(4604)-JVS(52584)*X(4605)& - &-JVS(52585)*X(4606)-JVS(52586)*X(4607)-JVS(52587)*X(4608)-JVS(52588)*X(4609)-JVS(52589)*X(4610)-JVS(52590)& - &*X(4611)-JVS(52591)*X(4612)-JVS(52592)*X(4613)-JVS(52593)*X(4614)-JVS(52594)*X(4615)-JVS(52595)*X(4616)& - &-JVS(52596)*X(4617)-JVS(52597)*X(4619)-JVS(52598)*X(4620)-JVS(52599)*X(4622)-JVS(52600)*X(4623)-JVS(52601)& - &*X(4624)-JVS(52602)*X(4625)-JVS(52603)*X(4626)-JVS(52604)*X(4627)-JVS(52605)*X(4628)-JVS(52606)*X(4629)& - &-JVS(52607)*X(4630)-JVS(52608)*X(4631)-JVS(52609)*X(4632)-JVS(52610)*X(4633)-JVS(52611)*X(4634)-JVS(52612)& - &*X(4635)-JVS(52613)*X(4636)-JVS(52614)*X(4637)-JVS(52615)*X(4638)-JVS(52616)*X(4639)-JVS(52617)*X(4640)& - &-JVS(52618)*X(4641)-JVS(52619)*X(4642)-JVS(52620)*X(4643)-JVS(52621)*X(4644)-JVS(52622)*X(4645)-JVS(52623)& - &*X(4646)-JVS(52624)*X(4647)-JVS(52625)*X(4648)-JVS(52626)*X(4649)-JVS(52627)*X(4650)-JVS(52628)*X(4651)& - &-JVS(52629)*X(4652)-JVS(52630)*X(4653)-JVS(52631)*X(4654)-JVS(52632)*X(4655)-JVS(52633)*X(4656)-JVS(52634)& - &*X(4657)-JVS(52635)*X(4658)-JVS(52636)*X(4659)-JVS(52637)*X(4660)-JVS(52638)*X(4661)-JVS(52639)*X(4662)& - &-JVS(52640)*X(4663)-JVS(52641)*X(4664)-JVS(52642)*X(4665)-JVS(52643)*X(4666)-JVS(52644)*X(4667)-JVS(52645)& - &*X(4669)-JVS(52646)*X(4670)-JVS(52647)*X(4671)-JVS(52648)*X(4672)-JVS(52649)*X(4673)-JVS(52650)*X(4674)& - &-JVS(52651)*X(4675)-JVS(52652)*X(4676)-JVS(52653)*X(4679)-JVS(52654)*X(4680)-JVS(52655)*X(4681)-JVS(52656)& - &*X(4682)-JVS(52657)*X(4683)-JVS(52658)*X(4684)-JVS(52659)*X(4685)-JVS(52660)*X(4686)-JVS(52661)*X(4687)& - &-JVS(52662)*X(4688)-JVS(52663)*X(4689)-JVS(52664)*X(4690)-JVS(52665)*X(4692)-JVS(52666)*X(4693)-JVS(52667)& - &*X(4694)-JVS(52668)*X(4695)-JVS(52669)*X(4696)-JVS(52670)*X(4697)-JVS(52671)*X(4698)-JVS(52672)*X(4699)& - &-JVS(52673)*X(4700)-JVS(52674)*X(4701)-JVS(52675)*X(4702)-JVS(52676)*X(4703)-JVS(52677)*X(4704)-JVS(52678)& - &*X(4705)-JVS(52679)*X(4706)-JVS(52680)*X(4707)-JVS(52681)*X(4708)-JVS(52682)*X(4709)-JVS(52683)*X(4710)& - &-JVS(52684)*X(4711)-JVS(52685)*X(4712)-JVS(52686)*X(4713)-JVS(52687)*X(4714)-JVS(52688)*X(4715)-JVS(52689)& - &*X(4716)-JVS(52690)*X(4717)-JVS(52691)*X(4718)-JVS(52692)*X(4719)-JVS(52693)*X(4720)-JVS(52694)*X(4721)& - &-JVS(52695)*X(4722)-JVS(52696)*X(4723)-JVS(52697)*X(4724)-JVS(52698)*X(4725)-JVS(52699)*X(4726)-JVS(52700)& - &*X(4727)-JVS(52701)*X(4728)-JVS(52702)*X(4729)-JVS(52703)*X(4730)-JVS(52704)*X(4731)-JVS(52705)*X(4732)& - &-JVS(52706)*X(4733)-JVS(52707)*X(4734)-JVS(52708)*X(4735)-JVS(52709)*X(4736)-JVS(52710)*X(4737)-JVS(52711)& - &*X(4738)-JVS(52712)*X(4739)-JVS(52713)*X(4740)-JVS(52714)*X(4742)-JVS(52715)*X(4743)-JVS(52716)*X(4744)& - &-JVS(52717)*X(4745)-JVS(52718)*X(4746)-JVS(52719)*X(4747)-JVS(52720)*X(4748)-JVS(52721)*X(4749)-JVS(52722)& - &*X(4750)-JVS(52723)*X(4751)-JVS(52724)*X(4752)-JVS(52725)*X(4753)-JVS(52726)*X(4754)-JVS(52727)*X(4755)& - &-JVS(52728)*X(4756)-JVS(52729)*X(4758)-JVS(52730)*X(4759)-JVS(52731)*X(4760)-JVS(52732)*X(4761)-JVS(52733)& - &*X(4762)-JVS(52734)*X(4763)-JVS(52735)*X(4764)-JVS(52736)*X(4765)-JVS(52737)*X(4766)-JVS(52738)*X(4767)& - &-JVS(52739)*X(4768)-JVS(52740)*X(4769)-JVS(52741)*X(4770)-JVS(52742)*X(4771)-JVS(52743)*X(4772)-JVS(52744)& - &*X(4773)-JVS(52745)*X(4774)-JVS(52746)*X(4775)-JVS(52747)*X(4776)-JVS(52748)*X(4777)-JVS(52749)*X(4778)& - &-JVS(52750)*X(4779)-JVS(52751)*X(4780)-JVS(52752)*X(4781)-JVS(52753)*X(4782)-JVS(52754)*X(4783)-JVS(52755)& - &*X(4784)-JVS(52756)*X(4785)-JVS(52757)*X(4786)-JVS(52758)*X(4787)-JVS(52759)*X(4788)-JVS(52760)*X(4789)& - &-JVS(52761)*X(4790)-JVS(52762)*X(4791)-JVS(52763)*X(4792)-JVS(52764)*X(4793)-JVS(52765)*X(4794)-JVS(52766)& - &*X(4795)-JVS(52767)*X(4796)-JVS(52768)*X(4797)-JVS(52769)*X(4798)-JVS(52770)*X(4799)-JVS(52771)*X(4800)& - &-JVS(52772)*X(4802)-JVS(52773)*X(4803)-JVS(52774)*X(4804)-JVS(52775)*X(4805)-JVS(52776)*X(4806)-JVS(52777)& - &*X(4807)-JVS(52778)*X(4808)-JVS(52779)*X(4809)-JVS(52780)*X(4810)-JVS(52781)*X(4811)-JVS(52782)*X(4812)& - &-JVS(52783)*X(4813)-JVS(52784)*X(4814)-JVS(52785)*X(4815)-JVS(52786)*X(4816)-JVS(52787)*X(4817)-JVS(52788)& - &*X(4818)-JVS(52789)*X(4819)-JVS(52790)*X(4820)-JVS(52791)*X(4821)-JVS(52792)*X(4822)-JVS(52793)*X(4823)& - &-JVS(52794)*X(4824)-JVS(52795)*X(4825)-JVS(52796)*X(4826)-JVS(52797)*X(4827)-JVS(52798)*X(4828)-JVS(52799)& - &*X(4829)-JVS(52800)*X(4830)-JVS(52801)*X(4831)-JVS(52802)*X(4832)-JVS(52803)*X(4833)-JVS(52804)*X(4834)& - &-JVS(52805)*X(4835)-JVS(52806)*X(4836)-JVS(52807)*X(4837)-JVS(52808)*X(4839)-JVS(52809)*X(4840)-JVS(52810)& - &*X(4841)-JVS(52811)*X(4842)-JVS(52812)*X(4844)-JVS(52813)*X(4845)-JVS(52814)*X(4846)-JVS(52815)*X(4847)& - &-JVS(52816)*X(4848)-JVS(52817)*X(4849)-JVS(52818)*X(4850)-JVS(52819)*X(4851)-JVS(52820)*X(4852)-JVS(52821)& - &*X(4853)-JVS(52822)*X(4854)-JVS(52823)*X(4855)-JVS(52824)*X(4856)-JVS(52825)*X(4857)-JVS(52826)*X(4858)& - &-JVS(52827)*X(4859)-JVS(52828)*X(4860)-JVS(52829)*X(4861)-JVS(52830)*X(4862)-JVS(52831)*X(4863)-JVS(52832)& - &*X(4864)-JVS(52833)*X(4865)-JVS(52834)*X(4866)-JVS(52835)*X(4867)-JVS(52836)*X(4870)-JVS(52837)*X(4871)& - &-JVS(52838)*X(4872)-JVS(52839)*X(4873)-JVS(52840)*X(4874)-JVS(52841)*X(4875)-JVS(52842)*X(4876)-JVS(52843)& - &*X(4877)-JVS(52844)*X(4878)-JVS(52845)*X(4879)-JVS(52846)*X(4880)-JVS(52847)*X(4881)-JVS(52848)*X(4882)& - &-JVS(52849)*X(4883)-JVS(52850)*X(4884)-JVS(52851)*X(4885)-JVS(52852)*X(4886)-JVS(52853)*X(4887)-JVS(52854)& - &*X(4888)-JVS(52855)*X(4889)-JVS(52856)*X(4890)-JVS(52857)*X(4891)-JVS(52858)*X(4892)-JVS(52859)*X(4893)& - &-JVS(52860)*X(4894)-JVS(52861)*X(4895)-JVS(52862)*X(4896)-JVS(52863)*X(4897)-JVS(52864)*X(4898)-JVS(52865)& - &*X(4899)-JVS(52866)*X(4900)-JVS(52867)*X(4901)-JVS(52868)*X(4902)-JVS(52869)*X(4903)-JVS(52870)*X(4904)& - &-JVS(52871)*X(4905)-JVS(52872)*X(4907)-JVS(52873)*X(4908)-JVS(52874)*X(4910)-JVS(52875)*X(4911)-JVS(52876)& - &*X(4912)-JVS(52877)*X(4913)-JVS(52878)*X(4914)-JVS(52879)*X(4915)-JVS(52880)*X(4916)-JVS(52881)*X(4917)& - &-JVS(52882)*X(4918)-JVS(52883)*X(4919)-JVS(52884)*X(4920)-JVS(52885)*X(4921)-JVS(52886)*X(4922)-JVS(52887)& - &*X(4923)-JVS(52888)*X(4924)-JVS(52889)*X(4925)-JVS(52890)*X(4926)-JVS(52891)*X(4927)-JVS(52892)*X(4928)& - &-JVS(52893)*X(4929)-JVS(52894)*X(4930)-JVS(52895)*X(4931)-JVS(52896)*X(4932)-JVS(52897)*X(4933)-JVS(52898)& - &*X(4934)-JVS(52899)*X(4935)-JVS(52900)*X(4936)-JVS(52901)*X(4937)-JVS(52902)*X(4939)-JVS(52903)*X(4940)& - &-JVS(52904)*X(4942)-JVS(52905)*X(4944)-JVS(52906)*X(4945)-JVS(52907)*X(4946)-JVS(52908)*X(4947)-JVS(52909)& - &*X(4948)-JVS(52910)*X(4949)-JVS(52911)*X(4950)-JVS(52912)*X(4951)-JVS(52913)*X(4952)-JVS(52914)*X(4953)& - &-JVS(52915)*X(4954)-JVS(52916)*X(4955)-JVS(52917)*X(4957)-JVS(52918)*X(4958)-JVS(52919)*X(4959)-JVS(52920)& - &*X(4960)-JVS(52921)*X(4961)-JVS(52922)*X(4962)-JVS(52923)*X(4964)-JVS(52924)*X(4965)-JVS(52925)*X(4966)& - &-JVS(52926)*X(4967)-JVS(52927)*X(4968)-JVS(52928)*X(4969)-JVS(52929)*X(4970)-JVS(52930)*X(4971)-JVS(52931)& - &*X(4972)-JVS(52932)*X(4973)-JVS(52933)*X(4974)-JVS(52934)*X(4975)-JVS(52935)*X(4976)-JVS(52936)*X(4977)& - &-JVS(52937)*X(4978)-JVS(52938)*X(4979)-JVS(52939)*X(4980)-JVS(52940)*X(4981)-JVS(52941)*X(4982)-JVS(52942)& - &*X(4983)-JVS(52943)*X(4984)-JVS(52944)*X(4985)-JVS(52945)*X(4986)-JVS(52946)*X(4987)-JVS(52947)*X(4988)& - &-JVS(52948)*X(4989)-JVS(52949)*X(4990)-JVS(52950)*X(4991)-JVS(52951)*X(4992)-JVS(52952)*X(4993)-JVS(52953)& - &*X(4994)-JVS(52954)*X(4995)-JVS(52955)*X(4996)-JVS(52956)*X(4997)-JVS(52957)*X(4998)-JVS(52958)*X(4999)& - &-JVS(52959)*X(5000)-JVS(52960)*X(5001)-JVS(52961)*X(5002)-JVS(52962)*X(5003)-JVS(52963)*X(5004)-JVS(52964)& - &*X(5005)-JVS(52965)*X(5006)-JVS(52966)*X(5007)-JVS(52967)*X(5008)-JVS(52968)*X(5009)-JVS(52969)*X(5010)& - &-JVS(52970)*X(5011)-JVS(52971)*X(5012)-JVS(52972)*X(5013)-JVS(52973)*X(5014)-JVS(52974)*X(5015)-JVS(52975)& - &*X(5016)-JVS(52976)*X(5017)-JVS(52977)*X(5018)-JVS(52978)*X(5019)-JVS(52979)*X(5020)-JVS(52980)*X(5021)& - &-JVS(52981)*X(5022)-JVS(52982)*X(5023)-JVS(52983)*X(5024)-JVS(52984)*X(5025)-JVS(52985)*X(5026)-JVS(52986)& - &*X(5027)-JVS(52987)*X(5028)-JVS(52988)*X(5029)-JVS(52989)*X(5030)-JVS(52990)*X(5031)-JVS(52991)*X(5032)& - &-JVS(52992)*X(5033)-JVS(52993)*X(5034)-JVS(52994)*X(5035)-JVS(52995)*X(5036)-JVS(52996)*X(5037)-JVS(52997)& - &*X(5038)-JVS(52998)*X(5039)-JVS(52999)*X(5040)-JVS(53000)*X(5041)-JVS(53001)*X(5042)-JVS(53002)*X(5043)& - &-JVS(53003)*X(5044)-JVS(53004)*X(5045)-JVS(53005)*X(5046)-JVS(53006)*X(5047)-JVS(53007)*X(5048)-JVS(53008)& - &*X(5049)-JVS(53009)*X(5050)-JVS(53010)*X(5051)-JVS(53011)*X(5052)-JVS(53012)*X(5053)-JVS(53013)*X(5054)& - &-JVS(53014)*X(5055)-JVS(53015)*X(5056)-JVS(53016)*X(5057)-JVS(53017)*X(5058)-JVS(53018)*X(5059)-JVS(53019)& - &*X(5060)-JVS(53020)*X(5061)-JVS(53021)*X(5062)-JVS(53022)*X(5063)-JVS(53023)*X(5064)-JVS(53024)*X(5065)& - &-JVS(53025)*X(5066)-JVS(53026)*X(5067)-JVS(53027)*X(5068)-JVS(53028)*X(5069)-JVS(53029)*X(5070)-JVS(53030)& - &*X(5071)-JVS(53031)*X(5072)-JVS(53032)*X(5073)-JVS(53033)*X(5074)-JVS(53034)*X(5075)-JVS(53035)*X(5076)& - &-JVS(53036)*X(5077)-JVS(53037)*X(5078)-JVS(53038)*X(5079)-JVS(53039)*X(5080)-JVS(53040)*X(5081)-JVS(53041)& - &*X(5082)-JVS(53042)*X(5083)-JVS(53043)*X(5084)-JVS(53044)*X(5085)-JVS(53045)*X(5086)-JVS(53046)*X(5087)& - &-JVS(53047)*X(5088)-JVS(53048)*X(5089)-JVS(53049)*X(5090)-JVS(53050)*X(5091)-JVS(53051)*X(5092)-JVS(53052)& - &*X(5093)-JVS(53053)*X(5094)-JVS(53054)*X(5095)-JVS(53055)*X(5096)-JVS(53056)*X(5097)-JVS(53057)*X(5098)& - &-JVS(53058)*X(5099)-JVS(53059)*X(5100)-JVS(53060)*X(5101)-JVS(53061)*X(5102)-JVS(53062)*X(5103)-JVS(53063)& - &*X(5104)-JVS(53064)*X(5105)-JVS(53065)*X(5106)-JVS(53066)*X(5107)-JVS(53067)*X(5108)-JVS(53068)*X(5109)& - &-JVS(53069)*X(5110)-JVS(53070)*X(5111)-JVS(53071)*X(5112)-JVS(53072)*X(5113)-JVS(53073)*X(5114)-JVS(53074)& - &*X(5115)-JVS(53075)*X(5116)-JVS(53076)*X(5117)-JVS(53077)*X(5118)-JVS(53078)*X(5119)-JVS(53079)*X(5120)& - &-JVS(53080)*X(5121)-JVS(53081)*X(5122)-JVS(53082)*X(5123)-JVS(53083)*X(5124)-JVS(53084)*X(5125)-JVS(53085)& - &*X(5126)-JVS(53086)*X(5127)-JVS(53087)*X(5128)-JVS(53088)*X(5129)-JVS(53089)*X(5130)-JVS(53090)*X(5131)& - &-JVS(53091)*X(5132)-JVS(53092)*X(5133)-JVS(53093)*X(5134)-JVS(53094)*X(5135)-JVS(53095)*X(5136)-JVS(53096)& - &*X(5137)-JVS(53097)*X(5138)-JVS(53098)*X(5139)-JVS(53099)*X(5140)-JVS(53100)*X(5141)-JVS(53101)*X(5142)& - &-JVS(53102)*X(5143)-JVS(53103)*X(5144)-JVS(53104)*X(5145)-JVS(53105)*X(5146)-JVS(53106)*X(5147)-JVS(53107)& - &*X(5148)-JVS(53108)*X(5149)-JVS(53109)*X(5150)-JVS(53110)*X(5151)-JVS(53111)*X(5152)-JVS(53112)*X(5153)& - &-JVS(53113)*X(5154)-JVS(53114)*X(5155)-JVS(53115)*X(5156)-JVS(53116)*X(5157)-JVS(53117)*X(5158)-JVS(53118)& - &*X(5159)-JVS(53119)*X(5161)-JVS(53120)*X(5162)-JVS(53121)*X(5163)-JVS(53122)*X(5164)-JVS(53123)*X(5165)& - &-JVS(53124)*X(5166)-JVS(53125)*X(5167)-JVS(53126)*X(5168)-JVS(53127)*X(5169)-JVS(53128)*X(5170)-JVS(53129)& - &*X(5171)-JVS(53130)*X(5172)-JVS(53131)*X(5173)-JVS(53132)*X(5174)-JVS(53133)*X(5175)-JVS(53134)*X(5176)& - &-JVS(53135)*X(5177)-JVS(53136)*X(5178)-JVS(53137)*X(5179)-JVS(53138)*X(5180)-JVS(53139)*X(5181)-JVS(53140)& - &*X(5182)-JVS(53141)*X(5183)-JVS(53142)*X(5184)-JVS(53143)*X(5185)-JVS(53144)*X(5186)-JVS(53145)*X(5187)& - &-JVS(53146)*X(5188)-JVS(53147)*X(5189)-JVS(53148)*X(5190)-JVS(53149)*X(5191)-JVS(53150)*X(5192)-JVS(53151)& - &*X(5193)-JVS(53152)*X(5194)-JVS(53153)*X(5195)-JVS(53154)*X(5196)-JVS(53155)*X(5197)-JVS(53156)*X(5198)& - &-JVS(53157)*X(5199)-JVS(53158)*X(5200)-JVS(53159)*X(5202)-JVS(53160)*X(5203)-JVS(53161)*X(5204)-JVS(53162)& - &*X(5205)-JVS(53163)*X(5206)-JVS(53164)*X(5207)-JVS(53165)*X(5208)-JVS(53166)*X(5209)-JVS(53167)*X(5210)& - &-JVS(53168)*X(5211)-JVS(53169)*X(5212)-JVS(53170)*X(5213)-JVS(53171)*X(5214)-JVS(53172)*X(5215)-JVS(53173)& - &*X(5216)-JVS(53174)*X(5217)-JVS(53175)*X(5218)-JVS(53176)*X(5219)-JVS(53177)*X(5220)-JVS(53178)*X(5221)& - &-JVS(53179)*X(5222)-JVS(53180)*X(5223)-JVS(53181)*X(5224)-JVS(53182)*X(5225)-JVS(53183)*X(5226)-JVS(53184)& - &*X(5227)-JVS(53185)*X(5228)-JVS(53186)*X(5229)-JVS(53187)*X(5230)-JVS(53188)*X(5231)-JVS(53189)*X(5232)& - &-JVS(53190)*X(5233)-JVS(53191)*X(5234)-JVS(53192)*X(5235)-JVS(53193)*X(5236)-JVS(53194)*X(5237)-JVS(53195)& - &*X(5238)-JVS(53196)*X(5239)-JVS(53197)*X(5240)-JVS(53198)*X(5241)-JVS(53199)*X(5242)-JVS(53200)*X(5243)& - &-JVS(53201)*X(5244)-JVS(53202)*X(5245)-JVS(53203)*X(5246)-JVS(53204)*X(5247)-JVS(53205)*X(5248)-JVS(53206)& - &*X(5249)-JVS(53207)*X(5250)-JVS(53208)*X(5251)-JVS(53209)*X(5252)-JVS(53210)*X(5253)-JVS(53211)*X(5254) - X(5256) = X(5256)-JVS(53216)*X(137)-JVS(53217)*X(668)-JVS(53218)*X(1573)-JVS(53219)*X(1580)-JVS(53220)*X(1775)& - &-JVS(53221)*X(1805)-JVS(53222)*X(1845)-JVS(53223)*X(1936)-JVS(53224)*X(2048)-JVS(53225)*X(2054)-JVS(53226)& - &*X(2167)-JVS(53227)*X(2274)-JVS(53228)*X(2281)-JVS(53229)*X(2390)-JVS(53230)*X(2398)-JVS(53231)*X(2420)& - &-JVS(53232)*X(2464)-JVS(53233)*X(2635)-JVS(53234)*X(2705)-JVS(53235)*X(2957)-JVS(53236)*X(3045)-JVS(53237)& - &*X(3084)-JVS(53238)*X(3085)-JVS(53239)*X(3087)-JVS(53240)*X(3088)-JVS(53241)*X(3092)-JVS(53242)*X(3093)& - &-JVS(53243)*X(3095)-JVS(53244)*X(3096)-JVS(53245)*X(3097)-JVS(53246)*X(3098)-JVS(53247)*X(3100)-JVS(53248)& - &*X(3101)-JVS(53249)*X(3105)-JVS(53250)*X(3111)-JVS(53251)*X(3112)-JVS(53252)*X(3113)-JVS(53253)*X(3114)& - &-JVS(53254)*X(3116)-JVS(53255)*X(3119)-JVS(53256)*X(3120)-JVS(53257)*X(3123)-JVS(53258)*X(3125)-JVS(53259)& - &*X(3127)-JVS(53260)*X(3129)-JVS(53261)*X(3130)-JVS(53262)*X(3131)-JVS(53263)*X(3134)-JVS(53264)*X(3135)& - &-JVS(53265)*X(3136)-JVS(53266)*X(3137)-JVS(53267)*X(3138)-JVS(53268)*X(3139)-JVS(53269)*X(3140)-JVS(53270)& - &*X(3142)-JVS(53271)*X(3143)-JVS(53272)*X(3144)-JVS(53273)*X(3145)-JVS(53274)*X(3146)-JVS(53275)*X(3149)& - &-JVS(53276)*X(3150)-JVS(53277)*X(3152)-JVS(53278)*X(3153)-JVS(53279)*X(3157)-JVS(53280)*X(3158)-JVS(53281)& - &*X(3161)-JVS(53282)*X(3162)-JVS(53283)*X(3163)-JVS(53284)*X(3164)-JVS(53285)*X(3165)-JVS(53286)*X(3167)& - &-JVS(53287)*X(3169)-JVS(53288)*X(3170)-JVS(53289)*X(3172)-JVS(53290)*X(3178)-JVS(53291)*X(3179)-JVS(53292)& - &*X(3180)-JVS(53293)*X(3181)-JVS(53294)*X(3182)-JVS(53295)*X(3187)-JVS(53296)*X(3189)-JVS(53297)*X(3190)& - &-JVS(53298)*X(3191)-JVS(53299)*X(3192)-JVS(53300)*X(3193)-JVS(53301)*X(3197)-JVS(53302)*X(3204)-JVS(53303)& - &*X(3219)-JVS(53304)*X(3224)-JVS(53305)*X(3244)-JVS(53306)*X(3248)-JVS(53307)*X(3254)-JVS(53308)*X(3257)& - &-JVS(53309)*X(3263)-JVS(53310)*X(3324)-JVS(53311)*X(3392)-JVS(53312)*X(3401)-JVS(53313)*X(3437)-JVS(53314)& - &*X(3442)-JVS(53315)*X(3454)-JVS(53316)*X(3465)-JVS(53317)*X(3466)-JVS(53318)*X(3470)-JVS(53319)*X(3471)& - &-JVS(53320)*X(3472)-JVS(53321)*X(3481)-JVS(53322)*X(3482)-JVS(53323)*X(3483)-JVS(53324)*X(3484)-JVS(53325)& - &*X(3488)-JVS(53326)*X(3489)-JVS(53327)*X(3491)-JVS(53328)*X(3492)-JVS(53329)*X(3494)-JVS(53330)*X(3496)& - &-JVS(53331)*X(3499)-JVS(53332)*X(3503)-JVS(53333)*X(3506)-JVS(53334)*X(3507)-JVS(53335)*X(3508)-JVS(53336)& - &*X(3509)-JVS(53337)*X(3510)-JVS(53338)*X(3511)-JVS(53339)*X(3512)-JVS(53340)*X(3513)-JVS(53341)*X(3518)& - &-JVS(53342)*X(3519)-JVS(53343)*X(3521)-JVS(53344)*X(3523)-JVS(53345)*X(3525)-JVS(53346)*X(3526)-JVS(53347)& - &*X(3527)-JVS(53348)*X(3531)-JVS(53349)*X(3532)-JVS(53350)*X(3534)-JVS(53351)*X(3538)-JVS(53352)*X(3539)& - &-JVS(53353)*X(3543)-JVS(53354)*X(3545)-JVS(53355)*X(3546)-JVS(53356)*X(3551)-JVS(53357)*X(3553)-JVS(53358)& - &*X(3554)-JVS(53359)*X(3560)-JVS(53360)*X(3562)-JVS(53361)*X(3568)-JVS(53362)*X(3627)-JVS(53363)*X(3631)& - &-JVS(53364)*X(3632)-JVS(53365)*X(3633)-JVS(53366)*X(3634)-JVS(53367)*X(3636)-JVS(53368)*X(3637)-JVS(53369)& - &*X(3640)-JVS(53370)*X(3641)-JVS(53371)*X(3643)-JVS(53372)*X(3645)-JVS(53373)*X(3648)-JVS(53374)*X(3649)& - &-JVS(53375)*X(3650)-JVS(53376)*X(3654)-JVS(53377)*X(3655)-JVS(53378)*X(3657)-JVS(53379)*X(3658)-JVS(53380)& - &*X(3659)-JVS(53381)*X(3660)-JVS(53382)*X(3661)-JVS(53383)*X(3662)-JVS(53384)*X(3663)-JVS(53385)*X(3665)& - &-JVS(53386)*X(3667)-JVS(53387)*X(3668)-JVS(53388)*X(3669)-JVS(53389)*X(3670)-JVS(53390)*X(3671)-JVS(53391)& - &*X(3674)-JVS(53392)*X(3675)-JVS(53393)*X(3676)-JVS(53394)*X(3677)-JVS(53395)*X(3678)-JVS(53396)*X(3679)& - &-JVS(53397)*X(3680)-JVS(53398)*X(3684)-JVS(53399)*X(3685)-JVS(53400)*X(3686)-JVS(53401)*X(3687)-JVS(53402)& - &*X(3688)-JVS(53403)*X(3690)-JVS(53404)*X(3691)-JVS(53405)*X(3692)-JVS(53406)*X(3694)-JVS(53407)*X(3695)& - &-JVS(53408)*X(3696)-JVS(53409)*X(3697)-JVS(53410)*X(3698)-JVS(53411)*X(3699)-JVS(53412)*X(3701)-JVS(53413)& - &*X(3703)-JVS(53414)*X(3704)-JVS(53415)*X(3705)-JVS(53416)*X(3706)-JVS(53417)*X(3710)-JVS(53418)*X(3711)& - &-JVS(53419)*X(3713)-JVS(53420)*X(3714)-JVS(53421)*X(3715)-JVS(53422)*X(3717)-JVS(53423)*X(3718)-JVS(53424)& - &*X(3719)-JVS(53425)*X(3720)-JVS(53426)*X(3721)-JVS(53427)*X(3722)-JVS(53428)*X(3724)-JVS(53429)*X(3725)& - &-JVS(53430)*X(3727)-JVS(53431)*X(3728)-JVS(53432)*X(3730)-JVS(53433)*X(3731)-JVS(53434)*X(3733)-JVS(53435)& - &*X(3738)-JVS(53436)*X(3739)-JVS(53437)*X(3740)-JVS(53438)*X(3741)-JVS(53439)*X(3743)-JVS(53440)*X(3745)& - &-JVS(53441)*X(3746)-JVS(53442)*X(3748)-JVS(53443)*X(3749)-JVS(53444)*X(3750)-JVS(53445)*X(3751)-JVS(53446)& - &*X(3752)-JVS(53447)*X(3753)-JVS(53448)*X(3758)-JVS(53449)*X(3760)-JVS(53450)*X(3761)-JVS(53451)*X(3762)& - &-JVS(53452)*X(3764)-JVS(53453)*X(3766)-JVS(53454)*X(3768)-JVS(53455)*X(3769)-JVS(53456)*X(3770)-JVS(53457)& - &*X(3771)-JVS(53458)*X(3772)-JVS(53459)*X(3773)-JVS(53460)*X(3774)-JVS(53461)*X(3775)-JVS(53462)*X(3776)& - &-JVS(53463)*X(3778)-JVS(53464)*X(3781)-JVS(53465)*X(3782)-JVS(53466)*X(3784)-JVS(53467)*X(3785)-JVS(53468)& - &*X(3786)-JVS(53469)*X(3788)-JVS(53470)*X(3789)-JVS(53471)*X(3790)-JVS(53472)*X(3791)-JVS(53473)*X(3792)& - &-JVS(53474)*X(3794)-JVS(53475)*X(3796)-JVS(53476)*X(3797)-JVS(53477)*X(3798)-JVS(53478)*X(3799)-JVS(53479)& - &*X(3801)-JVS(53480)*X(3803)-JVS(53481)*X(3804)-JVS(53482)*X(3806)-JVS(53483)*X(3807)-JVS(53484)*X(3808)& - &-JVS(53485)*X(3810)-JVS(53486)*X(3811)-JVS(53487)*X(3813)-JVS(53488)*X(3814)-JVS(53489)*X(3815)-JVS(53490)& - &*X(3817)-JVS(53491)*X(3819)-JVS(53492)*X(3820)-JVS(53493)*X(3823)-JVS(53494)*X(3825)-JVS(53495)*X(3827)& - &-JVS(53496)*X(3828)-JVS(53497)*X(3830)-JVS(53498)*X(3831)-JVS(53499)*X(3833)-JVS(53500)*X(3834)-JVS(53501)& - &*X(3836)-JVS(53502)*X(3837)-JVS(53503)*X(3838)-JVS(53504)*X(3839)-JVS(53505)*X(3840)-JVS(53506)*X(3841)& - &-JVS(53507)*X(3844)-JVS(53508)*X(3845)-JVS(53509)*X(3846)-JVS(53510)*X(3847)-JVS(53511)*X(3848)-JVS(53512)& - &*X(3849)-JVS(53513)*X(3850)-JVS(53514)*X(3851)-JVS(53515)*X(3852)-JVS(53516)*X(3853)-JVS(53517)*X(3854)& - &-JVS(53518)*X(3855)-JVS(53519)*X(3856)-JVS(53520)*X(3857)-JVS(53521)*X(3858)-JVS(53522)*X(3859)-JVS(53523)& - &*X(3860)-JVS(53524)*X(3861)-JVS(53525)*X(3862)-JVS(53526)*X(3863)-JVS(53527)*X(3864)-JVS(53528)*X(3865)& - &-JVS(53529)*X(3866)-JVS(53530)*X(3867)-JVS(53531)*X(3869)-JVS(53532)*X(3870)-JVS(53533)*X(3871)-JVS(53534)& - &*X(3872)-JVS(53535)*X(3873)-JVS(53536)*X(3874)-JVS(53537)*X(3875)-JVS(53538)*X(3876)-JVS(53539)*X(3877)& - &-JVS(53540)*X(3879)-JVS(53541)*X(3880)-JVS(53542)*X(3881)-JVS(53543)*X(3882)-JVS(53544)*X(3883)-JVS(53545)& - &*X(3884)-JVS(53546)*X(3885)-JVS(53547)*X(3886)-JVS(53548)*X(3888)-JVS(53549)*X(3889)-JVS(53550)*X(3890)& - &-JVS(53551)*X(3891)-JVS(53552)*X(3892)-JVS(53553)*X(3893)-JVS(53554)*X(3894)-JVS(53555)*X(3895)-JVS(53556)& - &*X(3896)-JVS(53557)*X(3898)-JVS(53558)*X(3899)-JVS(53559)*X(3900)-JVS(53560)*X(3901)-JVS(53561)*X(3902)& - &-JVS(53562)*X(3903)-JVS(53563)*X(3905)-JVS(53564)*X(3907)-JVS(53565)*X(3908)-JVS(53566)*X(3911)-JVS(53567)& - &*X(3912)-JVS(53568)*X(3913)-JVS(53569)*X(3914)-JVS(53570)*X(3915)-JVS(53571)*X(3916)-JVS(53572)*X(3919)& - &-JVS(53573)*X(3920)-JVS(53574)*X(3921)-JVS(53575)*X(3923)-JVS(53576)*X(3924)-JVS(53577)*X(3926)-JVS(53578)& - &*X(3927)-JVS(53579)*X(3928)-JVS(53580)*X(3932)-JVS(53581)*X(3935)-JVS(53582)*X(3936)-JVS(53583)*X(3937)& - &-JVS(53584)*X(3938)-JVS(53585)*X(3939)-JVS(53586)*X(3940)-JVS(53587)*X(3941)-JVS(53588)*X(3943)-JVS(53589)& - &*X(3944)-JVS(53590)*X(3945)-JVS(53591)*X(3946)-JVS(53592)*X(3947)-JVS(53593)*X(3948)-JVS(53594)*X(3949)& - &-JVS(53595)*X(3950)-JVS(53596)*X(3951)-JVS(53597)*X(3952)-JVS(53598)*X(3953)-JVS(53599)*X(3954)-JVS(53600)& - &*X(3955)-JVS(53601)*X(3960)-JVS(53602)*X(3961)-JVS(53603)*X(3962)-JVS(53604)*X(3963)-JVS(53605)*X(3964)& - &-JVS(53606)*X(3966)-JVS(53607)*X(3967)-JVS(53608)*X(3969)-JVS(53609)*X(3971)-JVS(53610)*X(3972)-JVS(53611)& - &*X(3973)-JVS(53612)*X(3974)-JVS(53613)*X(3975)-JVS(53614)*X(3976)-JVS(53615)*X(3977)-JVS(53616)*X(3979)& - &-JVS(53617)*X(3980)-JVS(53618)*X(3981)-JVS(53619)*X(3982)-JVS(53620)*X(3983)-JVS(53621)*X(3984)-JVS(53622)& - &*X(3985)-JVS(53623)*X(3986)-JVS(53624)*X(3987)-JVS(53625)*X(3988)-JVS(53626)*X(3989)-JVS(53627)*X(3990)& - &-JVS(53628)*X(3991)-JVS(53629)*X(3992)-JVS(53630)*X(3994)-JVS(53631)*X(3995)-JVS(53632)*X(3996)-JVS(53633)& - &*X(3997)-JVS(53634)*X(3998)-JVS(53635)*X(3999)-JVS(53636)*X(4000)-JVS(53637)*X(4001)-JVS(53638)*X(4002)& - &-JVS(53639)*X(4003)-JVS(53640)*X(4005)-JVS(53641)*X(4006)-JVS(53642)*X(4007)-JVS(53643)*X(4008)-JVS(53644)& - &*X(4009)-JVS(53645)*X(4010)-JVS(53646)*X(4011)-JVS(53647)*X(4012)-JVS(53648)*X(4013)-JVS(53649)*X(4015)& - &-JVS(53650)*X(4016)-JVS(53651)*X(4017)-JVS(53652)*X(4018)-JVS(53653)*X(4019)-JVS(53654)*X(4020)-JVS(53655)& - &*X(4021)-JVS(53656)*X(4022)-JVS(53657)*X(4023)-JVS(53658)*X(4025)-JVS(53659)*X(4026)-JVS(53660)*X(4027)& - &-JVS(53661)*X(4028)-JVS(53662)*X(4030)-JVS(53663)*X(4031)-JVS(53664)*X(4032)-JVS(53665)*X(4033)-JVS(53666)& - &*X(4034)-JVS(53667)*X(4035)-JVS(53668)*X(4036)-JVS(53669)*X(4037)-JVS(53670)*X(4038)-JVS(53671)*X(4039)& - &-JVS(53672)*X(4040)-JVS(53673)*X(4041)-JVS(53674)*X(4042)-JVS(53675)*X(4043)-JVS(53676)*X(4044)-JVS(53677)& - &*X(4045)-JVS(53678)*X(4046)-JVS(53679)*X(4048)-JVS(53680)*X(4049)-JVS(53681)*X(4050)-JVS(53682)*X(4051)& - &-JVS(53683)*X(4052)-JVS(53684)*X(4054)-JVS(53685)*X(4055)-JVS(53686)*X(4056)-JVS(53687)*X(4057)-JVS(53688)& - &*X(4058)-JVS(53689)*X(4059)-JVS(53690)*X(4060)-JVS(53691)*X(4061)-JVS(53692)*X(4063)-JVS(53693)*X(4064)& - &-JVS(53694)*X(4065)-JVS(53695)*X(4067)-JVS(53696)*X(4068)-JVS(53697)*X(4069)-JVS(53698)*X(4070)-JVS(53699)& - &*X(4072)-JVS(53700)*X(4073)-JVS(53701)*X(4074)-JVS(53702)*X(4075)-JVS(53703)*X(4076)-JVS(53704)*X(4077)& - &-JVS(53705)*X(4078)-JVS(53706)*X(4079)-JVS(53707)*X(4080)-JVS(53708)*X(4082)-JVS(53709)*X(4083)-JVS(53710)& - &*X(4085)-JVS(53711)*X(4087)-JVS(53712)*X(4088)-JVS(53713)*X(4089)-JVS(53714)*X(4090)-JVS(53715)*X(4091)& - &-JVS(53716)*X(4092)-JVS(53717)*X(4093)-JVS(53718)*X(4094)-JVS(53719)*X(4095)-JVS(53720)*X(4097)-JVS(53721)& - &*X(4098)-JVS(53722)*X(4099)-JVS(53723)*X(4100)-JVS(53724)*X(4101)-JVS(53725)*X(4102)-JVS(53726)*X(4105)& - &-JVS(53727)*X(4106)-JVS(53728)*X(4107)-JVS(53729)*X(4108)-JVS(53730)*X(4110)-JVS(53731)*X(4111)-JVS(53732)& - &*X(4112)-JVS(53733)*X(4113)-JVS(53734)*X(4114)-JVS(53735)*X(4115)-JVS(53736)*X(4116)-JVS(53737)*X(4117)& - &-JVS(53738)*X(4118)-JVS(53739)*X(4119)-JVS(53740)*X(4120)-JVS(53741)*X(4121)-JVS(53742)*X(4123)-JVS(53743)& - &*X(4124)-JVS(53744)*X(4126)-JVS(53745)*X(4127)-JVS(53746)*X(4128)-JVS(53747)*X(4129)-JVS(53748)*X(4130)& - &-JVS(53749)*X(4131)-JVS(53750)*X(4132)-JVS(53751)*X(4133)-JVS(53752)*X(4134)-JVS(53753)*X(4135)-JVS(53754)& - &*X(4136)-JVS(53755)*X(4137)-JVS(53756)*X(4138)-JVS(53757)*X(4139)-JVS(53758)*X(4140)-JVS(53759)*X(4141)& - &-JVS(53760)*X(4142)-JVS(53761)*X(4143)-JVS(53762)*X(4144)-JVS(53763)*X(4145)-JVS(53764)*X(4146)-JVS(53765)& - &*X(4147)-JVS(53766)*X(4148)-JVS(53767)*X(4149)-JVS(53768)*X(4150)-JVS(53769)*X(4151)-JVS(53770)*X(4152)& - &-JVS(53771)*X(4153)-JVS(53772)*X(4154)-JVS(53773)*X(4155)-JVS(53774)*X(4156)-JVS(53775)*X(4157)-JVS(53776)& - &*X(4158)-JVS(53777)*X(4159)-JVS(53778)*X(4160)-JVS(53779)*X(4161)-JVS(53780)*X(4162)-JVS(53781)*X(4163)& - &-JVS(53782)*X(4165)-JVS(53783)*X(4166)-JVS(53784)*X(4167)-JVS(53785)*X(4168)-JVS(53786)*X(4169)-JVS(53787)& - &*X(4170)-JVS(53788)*X(4171)-JVS(53789)*X(4172)-JVS(53790)*X(4173)-JVS(53791)*X(4174)-JVS(53792)*X(4176)& - &-JVS(53793)*X(4180)-JVS(53794)*X(4181)-JVS(53795)*X(4182)-JVS(53796)*X(4185)-JVS(53797)*X(4186)-JVS(53798)& - &*X(4187)-JVS(53799)*X(4188)-JVS(53800)*X(4189)-JVS(53801)*X(4190)-JVS(53802)*X(4191)-JVS(53803)*X(4192)& - &-JVS(53804)*X(4193)-JVS(53805)*X(4194)-JVS(53806)*X(4195)-JVS(53807)*X(4196)-JVS(53808)*X(4197)-JVS(53809)& - &*X(4198)-JVS(53810)*X(4200)-JVS(53811)*X(4201)-JVS(53812)*X(4202)-JVS(53813)*X(4203)-JVS(53814)*X(4204)& - &-JVS(53815)*X(4205)-JVS(53816)*X(4206)-JVS(53817)*X(4207)-JVS(53818)*X(4208)-JVS(53819)*X(4209)-JVS(53820)& - &*X(4210)-JVS(53821)*X(4211)-JVS(53822)*X(4212)-JVS(53823)*X(4213)-JVS(53824)*X(4214)-JVS(53825)*X(4215)& - &-JVS(53826)*X(4216)-JVS(53827)*X(4217)-JVS(53828)*X(4218)-JVS(53829)*X(4219)-JVS(53830)*X(4220)-JVS(53831)& - &*X(4221)-JVS(53832)*X(4222)-JVS(53833)*X(4224)-JVS(53834)*X(4225)-JVS(53835)*X(4226)-JVS(53836)*X(4227)& - &-JVS(53837)*X(4228)-JVS(53838)*X(4229)-JVS(53839)*X(4230)-JVS(53840)*X(4231)-JVS(53841)*X(4232)-JVS(53842)& - &*X(4233)-JVS(53843)*X(4234)-JVS(53844)*X(4235)-JVS(53845)*X(4236)-JVS(53846)*X(4237)-JVS(53847)*X(4238)& - &-JVS(53848)*X(4239)-JVS(53849)*X(4240)-JVS(53850)*X(4241)-JVS(53851)*X(4242)-JVS(53852)*X(4243)-JVS(53853)& - &*X(4244)-JVS(53854)*X(4245)-JVS(53855)*X(4246)-JVS(53856)*X(4247)-JVS(53857)*X(4249)-JVS(53858)*X(4250)& - &-JVS(53859)*X(4251)-JVS(53860)*X(4252)-JVS(53861)*X(4253)-JVS(53862)*X(4254)-JVS(53863)*X(4255)-JVS(53864)& - &*X(4257)-JVS(53865)*X(4258)-JVS(53866)*X(4259)-JVS(53867)*X(4260)-JVS(53868)*X(4261)-JVS(53869)*X(4262)& - &-JVS(53870)*X(4263)-JVS(53871)*X(4264)-JVS(53872)*X(4265)-JVS(53873)*X(4266)-JVS(53874)*X(4267)-JVS(53875)& - &*X(4268)-JVS(53876)*X(4269)-JVS(53877)*X(4270)-JVS(53878)*X(4271)-JVS(53879)*X(4272)-JVS(53880)*X(4273)& - &-JVS(53881)*X(4274)-JVS(53882)*X(4275)-JVS(53883)*X(4276)-JVS(53884)*X(4277)-JVS(53885)*X(4278)-JVS(53886)& - &*X(4279)-JVS(53887)*X(4280)-JVS(53888)*X(4281)-JVS(53889)*X(4282)-JVS(53890)*X(4283)-JVS(53891)*X(4284)& - &-JVS(53892)*X(4285)-JVS(53893)*X(4286)-JVS(53894)*X(4287)-JVS(53895)*X(4288)-JVS(53896)*X(4289)-JVS(53897)& - &*X(4290)-JVS(53898)*X(4291)-JVS(53899)*X(4292)-JVS(53900)*X(4293)-JVS(53901)*X(4295)-JVS(53902)*X(4296)& - &-JVS(53903)*X(4297)-JVS(53904)*X(4298)-JVS(53905)*X(4299)-JVS(53906)*X(4301)-JVS(53907)*X(4302)-JVS(53908)& - &*X(4303)-JVS(53909)*X(4304)-JVS(53910)*X(4305)-JVS(53911)*X(4306)-JVS(53912)*X(4307)-JVS(53913)*X(4308)& - &-JVS(53914)*X(4309)-JVS(53915)*X(4310)-JVS(53916)*X(4311)-JVS(53917)*X(4312)-JVS(53918)*X(4313)-JVS(53919)& - &*X(4314)-JVS(53920)*X(4315)-JVS(53921)*X(4316)-JVS(53922)*X(4317)-JVS(53923)*X(4318)-JVS(53924)*X(4319)& - &-JVS(53925)*X(4320)-JVS(53926)*X(4321)-JVS(53927)*X(4322)-JVS(53928)*X(4323)-JVS(53929)*X(4324)-JVS(53930)& - &*X(4326)-JVS(53931)*X(4327)-JVS(53932)*X(4329)-JVS(53933)*X(4330)-JVS(53934)*X(4332)-JVS(53935)*X(4334)& - &-JVS(53936)*X(4335)-JVS(53937)*X(4336)-JVS(53938)*X(4337)-JVS(53939)*X(4338)-JVS(53940)*X(4339)-JVS(53941)& - &*X(4340)-JVS(53942)*X(4341)-JVS(53943)*X(4342)-JVS(53944)*X(4343)-JVS(53945)*X(4344)-JVS(53946)*X(4345)& - &-JVS(53947)*X(4346)-JVS(53948)*X(4347)-JVS(53949)*X(4348)-JVS(53950)*X(4349)-JVS(53951)*X(4350)-JVS(53952)& - &*X(4351)-JVS(53953)*X(4353)-JVS(53954)*X(4354)-JVS(53955)*X(4355)-JVS(53956)*X(4356)-JVS(53957)*X(4357)& - &-JVS(53958)*X(4358)-JVS(53959)*X(4359)-JVS(53960)*X(4360)-JVS(53961)*X(4361)-JVS(53962)*X(4362)-JVS(53963)& - &*X(4363)-JVS(53964)*X(4364)-JVS(53965)*X(4365)-JVS(53966)*X(4367)-JVS(53967)*X(4368)-JVS(53968)*X(4369)& - &-JVS(53969)*X(4370)-JVS(53970)*X(4371)-JVS(53971)*X(4372)-JVS(53972)*X(4373)-JVS(53973)*X(4374)-JVS(53974)& - &*X(4375)-JVS(53975)*X(4376)-JVS(53976)*X(4377)-JVS(53977)*X(4379)-JVS(53978)*X(4380)-JVS(53979)*X(4381)& - &-JVS(53980)*X(4382)-JVS(53981)*X(4384)-JVS(53982)*X(4385)-JVS(53983)*X(4387)-JVS(53984)*X(4389)-JVS(53985)& - &*X(4390)-JVS(53986)*X(4394)-JVS(53987)*X(4395)-JVS(53988)*X(4396)-JVS(53989)*X(4397)-JVS(53990)*X(4399)& - &-JVS(53991)*X(4400)-JVS(53992)*X(4402)-JVS(53993)*X(4404)-JVS(53994)*X(4405)-JVS(53995)*X(4407)-JVS(53996)& - &*X(4408)-JVS(53997)*X(4409)-JVS(53998)*X(4410)-JVS(53999)*X(4411)-JVS(54000)*X(4412)-JVS(54001)*X(4413)& - &-JVS(54002)*X(4414)-JVS(54003)*X(4415)-JVS(54004)*X(4416)-JVS(54005)*X(4417)-JVS(54006)*X(4418)-JVS(54007)& - &*X(4419)-JVS(54008)*X(4421)-JVS(54009)*X(4422)-JVS(54010)*X(4423)-JVS(54011)*X(4424)-JVS(54012)*X(4425)& - &-JVS(54013)*X(4426)-JVS(54014)*X(4427)-JVS(54015)*X(4428)-JVS(54016)*X(4429)-JVS(54017)*X(4430)-JVS(54018)& - &*X(4431)-JVS(54019)*X(4432)-JVS(54020)*X(4433)-JVS(54021)*X(4434)-JVS(54022)*X(4435)-JVS(54023)*X(4436)& - &-JVS(54024)*X(4437)-JVS(54025)*X(4438)-JVS(54026)*X(4439)-JVS(54027)*X(4440)-JVS(54028)*X(4441)-JVS(54029)& - &*X(4442)-JVS(54030)*X(4443)-JVS(54031)*X(4444)-JVS(54032)*X(4445)-JVS(54033)*X(4446)-JVS(54034)*X(4447)& - &-JVS(54035)*X(4448)-JVS(54036)*X(4449)-JVS(54037)*X(4450)-JVS(54038)*X(4451)-JVS(54039)*X(4452)-JVS(54040)& - &*X(4453)-JVS(54041)*X(4454)-JVS(54042)*X(4455)-JVS(54043)*X(4456)-JVS(54044)*X(4457)-JVS(54045)*X(4458)& - &-JVS(54046)*X(4459)-JVS(54047)*X(4460)-JVS(54048)*X(4461)-JVS(54049)*X(4462)-JVS(54050)*X(4463)-JVS(54051)& - &*X(4464)-JVS(54052)*X(4465)-JVS(54053)*X(4466)-JVS(54054)*X(4467)-JVS(54055)*X(4468)-JVS(54056)*X(4469)& - &-JVS(54057)*X(4470)-JVS(54058)*X(4471)-JVS(54059)*X(4472)-JVS(54060)*X(4473)-JVS(54061)*X(4474)-JVS(54062)& - &*X(4475)-JVS(54063)*X(4476)-JVS(54064)*X(4477)-JVS(54065)*X(4478)-JVS(54066)*X(4479)-JVS(54067)*X(4480)& - &-JVS(54068)*X(4481)-JVS(54069)*X(4482)-JVS(54070)*X(4483)-JVS(54071)*X(4484)-JVS(54072)*X(4485)-JVS(54073)& - &*X(4486)-JVS(54074)*X(4487)-JVS(54075)*X(4488)-JVS(54076)*X(4489)-JVS(54077)*X(4490)-JVS(54078)*X(4492)& - &-JVS(54079)*X(4493)-JVS(54080)*X(4494)-JVS(54081)*X(4495)-JVS(54082)*X(4496)-JVS(54083)*X(4497)-JVS(54084)& - &*X(4498)-JVS(54085)*X(4499)-JVS(54086)*X(4500)-JVS(54087)*X(4501)-JVS(54088)*X(4502)-JVS(54089)*X(4503)& - &-JVS(54090)*X(4504)-JVS(54091)*X(4505)-JVS(54092)*X(4506)-JVS(54093)*X(4508)-JVS(54094)*X(4509)-JVS(54095)& - &*X(4510)-JVS(54096)*X(4511)-JVS(54097)*X(4512)-JVS(54098)*X(4513)-JVS(54099)*X(4514)-JVS(54100)*X(4515)& - &-JVS(54101)*X(4516)-JVS(54102)*X(4517)-JVS(54103)*X(4518)-JVS(54104)*X(4519)-JVS(54105)*X(4520)-JVS(54106)& - &*X(4521)-JVS(54107)*X(4522)-JVS(54108)*X(4523)-JVS(54109)*X(4525)-JVS(54110)*X(4526)-JVS(54111)*X(4527)& - &-JVS(54112)*X(4529)-JVS(54113)*X(4530)-JVS(54114)*X(4531)-JVS(54115)*X(4532)-JVS(54116)*X(4533)-JVS(54117)& - &*X(4535)-JVS(54118)*X(4536)-JVS(54119)*X(4537)-JVS(54120)*X(4538)-JVS(54121)*X(4539)-JVS(54122)*X(4540)& - &-JVS(54123)*X(4541)-JVS(54124)*X(4542)-JVS(54125)*X(4543)-JVS(54126)*X(4544)-JVS(54127)*X(4545)-JVS(54128)& - &*X(4546)-JVS(54129)*X(4547)-JVS(54130)*X(4548)-JVS(54131)*X(4549)-JVS(54132)*X(4550)-JVS(54133)*X(4551)& - &-JVS(54134)*X(4552)-JVS(54135)*X(4553)-JVS(54136)*X(4554)-JVS(54137)*X(4555)-JVS(54138)*X(4556)-JVS(54139)& - &*X(4557)-JVS(54140)*X(4558)-JVS(54141)*X(4559)-JVS(54142)*X(4560)-JVS(54143)*X(4561)-JVS(54144)*X(4562)& - &-JVS(54145)*X(4563)-JVS(54146)*X(4565)-JVS(54147)*X(4566)-JVS(54148)*X(4567)-JVS(54149)*X(4568)-JVS(54150)& - &*X(4569)-JVS(54151)*X(4571)-JVS(54152)*X(4572)-JVS(54153)*X(4573)-JVS(54154)*X(4574)-JVS(54155)*X(4575)& - &-JVS(54156)*X(4576)-JVS(54157)*X(4577)-JVS(54158)*X(4578)-JVS(54159)*X(4579)-JVS(54160)*X(4580)-JVS(54161)& - &*X(4581)-JVS(54162)*X(4582)-JVS(54163)*X(4583)-JVS(54164)*X(4584)-JVS(54165)*X(4585)-JVS(54166)*X(4586)& - &-JVS(54167)*X(4587)-JVS(54168)*X(4589)-JVS(54169)*X(4590)-JVS(54170)*X(4591)-JVS(54171)*X(4592)-JVS(54172)& - &*X(4593)-JVS(54173)*X(4594)-JVS(54174)*X(4595)-JVS(54175)*X(4596)-JVS(54176)*X(4597)-JVS(54177)*X(4598)& - &-JVS(54178)*X(4599)-JVS(54179)*X(4600)-JVS(54180)*X(4601)-JVS(54181)*X(4603)-JVS(54182)*X(4604)-JVS(54183)& - &*X(4605)-JVS(54184)*X(4606)-JVS(54185)*X(4607)-JVS(54186)*X(4608)-JVS(54187)*X(4609)-JVS(54188)*X(4610)& - &-JVS(54189)*X(4611)-JVS(54190)*X(4612)-JVS(54191)*X(4613)-JVS(54192)*X(4614)-JVS(54193)*X(4616)-JVS(54194)& - &*X(4617)-JVS(54195)*X(4619)-JVS(54196)*X(4620)-JVS(54197)*X(4621)-JVS(54198)*X(4622)-JVS(54199)*X(4623)& - &-JVS(54200)*X(4624)-JVS(54201)*X(4625)-JVS(54202)*X(4626)-JVS(54203)*X(4627)-JVS(54204)*X(4628)-JVS(54205)& - &*X(4629)-JVS(54206)*X(4630)-JVS(54207)*X(4631)-JVS(54208)*X(4632)-JVS(54209)*X(4633)-JVS(54210)*X(4634)& - &-JVS(54211)*X(4635)-JVS(54212)*X(4636)-JVS(54213)*X(4637)-JVS(54214)*X(4638)-JVS(54215)*X(4639)-JVS(54216)& - &*X(4640)-JVS(54217)*X(4641)-JVS(54218)*X(4642)-JVS(54219)*X(4643)-JVS(54220)*X(4644)-JVS(54221)*X(4645)& - &-JVS(54222)*X(4646)-JVS(54223)*X(4647)-JVS(54224)*X(4648)-JVS(54225)*X(4649)-JVS(54226)*X(4650)-JVS(54227)& - &*X(4651)-JVS(54228)*X(4652)-JVS(54229)*X(4653)-JVS(54230)*X(4654)-JVS(54231)*X(4655)-JVS(54232)*X(4656)& - &-JVS(54233)*X(4657)-JVS(54234)*X(4658)-JVS(54235)*X(4659)-JVS(54236)*X(4660)-JVS(54237)*X(4661)-JVS(54238)& - &*X(4662)-JVS(54239)*X(4663)-JVS(54240)*X(4664)-JVS(54241)*X(4665)-JVS(54242)*X(4666)-JVS(54243)*X(4667)& - &-JVS(54244)*X(4668)-JVS(54245)*X(4669)-JVS(54246)*X(4670)-JVS(54247)*X(4671)-JVS(54248)*X(4672)-JVS(54249)& - &*X(4673)-JVS(54250)*X(4674)-JVS(54251)*X(4675)-JVS(54252)*X(4676)-JVS(54253)*X(4677)-JVS(54254)*X(4678)& - &-JVS(54255)*X(4679)-JVS(54256)*X(4680)-JVS(54257)*X(4681)-JVS(54258)*X(4682)-JVS(54259)*X(4683)-JVS(54260)& - &*X(4684)-JVS(54261)*X(4685)-JVS(54262)*X(4686)-JVS(54263)*X(4687)-JVS(54264)*X(4688)-JVS(54265)*X(4689)& - &-JVS(54266)*X(4690)-JVS(54267)*X(4691)-JVS(54268)*X(4692)-JVS(54269)*X(4695)-JVS(54270)*X(4696)-JVS(54271)& - &*X(4697)-JVS(54272)*X(4698)-JVS(54273)*X(4699)-JVS(54274)*X(4700)-JVS(54275)*X(4701)-JVS(54276)*X(4702)& - &-JVS(54277)*X(4703)-JVS(54278)*X(4704)-JVS(54279)*X(4705)-JVS(54280)*X(4706)-JVS(54281)*X(4707)-JVS(54282)& - &*X(4709)-JVS(54283)*X(4710)-JVS(54284)*X(4711)-JVS(54285)*X(4712)-JVS(54286)*X(4713)-JVS(54287)*X(4714)& - &-JVS(54288)*X(4715)-JVS(54289)*X(4716)-JVS(54290)*X(4717)-JVS(54291)*X(4718)-JVS(54292)*X(4719)-JVS(54293)& - &*X(4720)-JVS(54294)*X(4721)-JVS(54295)*X(4722)-JVS(54296)*X(4723)-JVS(54297)*X(4724)-JVS(54298)*X(4725)& - &-JVS(54299)*X(4726)-JVS(54300)*X(4727)-JVS(54301)*X(4729)-JVS(54302)*X(4730)-JVS(54303)*X(4731)-JVS(54304)& - &*X(4732)-JVS(54305)*X(4733)-JVS(54306)*X(4734)-JVS(54307)*X(4735)-JVS(54308)*X(4736)-JVS(54309)*X(4737)& - &-JVS(54310)*X(4738)-JVS(54311)*X(4739)-JVS(54312)*X(4740)-JVS(54313)*X(4741)-JVS(54314)*X(4742)-JVS(54315)& - &*X(4743)-JVS(54316)*X(4744)-JVS(54317)*X(4745)-JVS(54318)*X(4746)-JVS(54319)*X(4748)-JVS(54320)*X(4750)& - &-JVS(54321)*X(4751)-JVS(54322)*X(4752)-JVS(54323)*X(4753)-JVS(54324)*X(4754)-JVS(54325)*X(4755)-JVS(54326)& - &*X(4756)-JVS(54327)*X(4757)-JVS(54328)*X(4758)-JVS(54329)*X(4759)-JVS(54330)*X(4760)-JVS(54331)*X(4761)& - &-JVS(54332)*X(4762)-JVS(54333)*X(4763)-JVS(54334)*X(4764)-JVS(54335)*X(4765)-JVS(54336)*X(4766)-JVS(54337)& - &*X(4767)-JVS(54338)*X(4768)-JVS(54339)*X(4769)-JVS(54340)*X(4770)-JVS(54341)*X(4771)-JVS(54342)*X(4772)& - &-JVS(54343)*X(4773)-JVS(54344)*X(4774)-JVS(54345)*X(4775)-JVS(54346)*X(4776)-JVS(54347)*X(4777)-JVS(54348)& - &*X(4778)-JVS(54349)*X(4779)-JVS(54350)*X(4780)-JVS(54351)*X(4781)-JVS(54352)*X(4782)-JVS(54353)*X(4783)& - &-JVS(54354)*X(4784)-JVS(54355)*X(4785)-JVS(54356)*X(4786)-JVS(54357)*X(4787)-JVS(54358)*X(4788)-JVS(54359)& - &*X(4789)-JVS(54360)*X(4790)-JVS(54361)*X(4791)-JVS(54362)*X(4792)-JVS(54363)*X(4793)-JVS(54364)*X(4794)& - &-JVS(54365)*X(4795)-JVS(54366)*X(4797)-JVS(54367)*X(4798)-JVS(54368)*X(4799)-JVS(54369)*X(4800)-JVS(54370)& - &*X(4802)-JVS(54371)*X(4803)-JVS(54372)*X(4804)-JVS(54373)*X(4805)-JVS(54374)*X(4806)-JVS(54375)*X(4807)& - &-JVS(54376)*X(4808)-JVS(54377)*X(4809)-JVS(54378)*X(4810)-JVS(54379)*X(4811)-JVS(54380)*X(4812)-JVS(54381)& - &*X(4813)-JVS(54382)*X(4814)-JVS(54383)*X(4815)-JVS(54384)*X(4816)-JVS(54385)*X(4817)-JVS(54386)*X(4818)& - &-JVS(54387)*X(4819)-JVS(54388)*X(4820)-JVS(54389)*X(4821)-JVS(54390)*X(4822)-JVS(54391)*X(4823)-JVS(54392)& - &*X(4824)-JVS(54393)*X(4825)-JVS(54394)*X(4826)-JVS(54395)*X(4827)-JVS(54396)*X(4828)-JVS(54397)*X(4829)& - &-JVS(54398)*X(4830)-JVS(54399)*X(4831)-JVS(54400)*X(4832)-JVS(54401)*X(4833)-JVS(54402)*X(4834)-JVS(54403)& - &*X(4835)-JVS(54404)*X(4836)-JVS(54405)*X(4837)-JVS(54406)*X(4838)-JVS(54407)*X(4839)-JVS(54408)*X(4840)& - &-JVS(54409)*X(4841)-JVS(54410)*X(4842)-JVS(54411)*X(4843)-JVS(54412)*X(4844)-JVS(54413)*X(4845)-JVS(54414)& - &*X(4846)-JVS(54415)*X(4847)-JVS(54416)*X(4848)-JVS(54417)*X(4849)-JVS(54418)*X(4850)-JVS(54419)*X(4851)& - &-JVS(54420)*X(4852)-JVS(54421)*X(4853)-JVS(54422)*X(4854)-JVS(54423)*X(4855)-JVS(54424)*X(4856)-JVS(54425)& - &*X(4857)-JVS(54426)*X(4858)-JVS(54427)*X(4859)-JVS(54428)*X(4860)-JVS(54429)*X(4861)-JVS(54430)*X(4862)& - &-JVS(54431)*X(4863)-JVS(54432)*X(4864)-JVS(54433)*X(4865)-JVS(54434)*X(4866)-JVS(54435)*X(4867)-JVS(54436)& - &*X(4868)-JVS(54437)*X(4869)-JVS(54438)*X(4870)-JVS(54439)*X(4871)-JVS(54440)*X(4872)-JVS(54441)*X(4873)& - &-JVS(54442)*X(4874)-JVS(54443)*X(4875)-JVS(54444)*X(4876)-JVS(54445)*X(4877)-JVS(54446)*X(4878)-JVS(54447)& - &*X(4879)-JVS(54448)*X(4880)-JVS(54449)*X(4881)-JVS(54450)*X(4882)-JVS(54451)*X(4883)-JVS(54452)*X(4884)& - &-JVS(54453)*X(4885)-JVS(54454)*X(4886)-JVS(54455)*X(4887)-JVS(54456)*X(4888)-JVS(54457)*X(4889)-JVS(54458)& - &*X(4890)-JVS(54459)*X(4891)-JVS(54460)*X(4892)-JVS(54461)*X(4893)-JVS(54462)*X(4894)-JVS(54463)*X(4895)& - &-JVS(54464)*X(4896)-JVS(54465)*X(4897)-JVS(54466)*X(4898)-JVS(54467)*X(4899)-JVS(54468)*X(4900)-JVS(54469)& - &*X(4901)-JVS(54470)*X(4902)-JVS(54471)*X(4903)-JVS(54472)*X(4904)-JVS(54473)*X(4905)-JVS(54474)*X(4906)& - &-JVS(54475)*X(4907)-JVS(54476)*X(4908)-JVS(54477)*X(4910)-JVS(54478)*X(4911)-JVS(54479)*X(4912)-JVS(54480)& - &*X(4913)-JVS(54481)*X(4914)-JVS(54482)*X(4915)-JVS(54483)*X(4916)-JVS(54484)*X(4917)-JVS(54485)*X(4918)& - &-JVS(54486)*X(4919)-JVS(54487)*X(4920)-JVS(54488)*X(4921)-JVS(54489)*X(4922)-JVS(54490)*X(4923)-JVS(54491)& - &*X(4924)-JVS(54492)*X(4925)-JVS(54493)*X(4926)-JVS(54494)*X(4927)-JVS(54495)*X(4928)-JVS(54496)*X(4929)& - &-JVS(54497)*X(4930)-JVS(54498)*X(4931)-JVS(54499)*X(4932)-JVS(54500)*X(4933)-JVS(54501)*X(4934)-JVS(54502)& - &*X(4935)-JVS(54503)*X(4936)-JVS(54504)*X(4937)-JVS(54505)*X(4939)-JVS(54506)*X(4940)-JVS(54507)*X(4941)& - &-JVS(54508)*X(4942)-JVS(54509)*X(4943)-JVS(54510)*X(4944)-JVS(54511)*X(4945)-JVS(54512)*X(4946)-JVS(54513)& - &*X(4947)-JVS(54514)*X(4948)-JVS(54515)*X(4949)-JVS(54516)*X(4950)-JVS(54517)*X(4951)-JVS(54518)*X(4952)& - &-JVS(54519)*X(4953)-JVS(54520)*X(4954)-JVS(54521)*X(4955)-JVS(54522)*X(4956)-JVS(54523)*X(4957)-JVS(54524)& - &*X(4959)-JVS(54525)*X(4960)-JVS(54526)*X(4961)-JVS(54527)*X(4962)-JVS(54528)*X(4963)-JVS(54529)*X(4964)& - &-JVS(54530)*X(4965)-JVS(54531)*X(4966)-JVS(54532)*X(4967)-JVS(54533)*X(4968)-JVS(54534)*X(4969)-JVS(54535)& - &*X(4970)-JVS(54536)*X(4971)-JVS(54537)*X(4972)-JVS(54538)*X(4974)-JVS(54539)*X(4975)-JVS(54540)*X(4976)& - &-JVS(54541)*X(4977)-JVS(54542)*X(4978)-JVS(54543)*X(4979)-JVS(54544)*X(4980)-JVS(54545)*X(4981)-JVS(54546)& - &*X(4982)-JVS(54547)*X(4984)-JVS(54548)*X(4985)-JVS(54549)*X(4986)-JVS(54550)*X(4987)-JVS(54551)*X(4988)& - &-JVS(54552)*X(4989)-JVS(54553)*X(4990)-JVS(54554)*X(4991)-JVS(54555)*X(4992)-JVS(54556)*X(4993)-JVS(54557)& - &*X(4994)-JVS(54558)*X(4995)-JVS(54559)*X(4996)-JVS(54560)*X(4997)-JVS(54561)*X(4998)-JVS(54562)*X(4999)& - &-JVS(54563)*X(5001)-JVS(54564)*X(5002)-JVS(54565)*X(5003)-JVS(54566)*X(5004)-JVS(54567)*X(5005)-JVS(54568)& - &*X(5006)-JVS(54569)*X(5007)-JVS(54570)*X(5008)-JVS(54571)*X(5009)-JVS(54572)*X(5010)-JVS(54573)*X(5011)& - &-JVS(54574)*X(5012)-JVS(54575)*X(5013)-JVS(54576)*X(5014)-JVS(54577)*X(5015)-JVS(54578)*X(5016)-JVS(54579)& - &*X(5017)-JVS(54580)*X(5018)-JVS(54581)*X(5019)-JVS(54582)*X(5020)-JVS(54583)*X(5021)-JVS(54584)*X(5022)& - &-JVS(54585)*X(5023)-JVS(54586)*X(5024)-JVS(54587)*X(5025)-JVS(54588)*X(5026)-JVS(54589)*X(5027)-JVS(54590)& - &*X(5028)-JVS(54591)*X(5029)-JVS(54592)*X(5030)-JVS(54593)*X(5031)-JVS(54594)*X(5032)-JVS(54595)*X(5033)& - &-JVS(54596)*X(5034)-JVS(54597)*X(5035)-JVS(54598)*X(5036)-JVS(54599)*X(5037)-JVS(54600)*X(5038)-JVS(54601)& - &*X(5039)-JVS(54602)*X(5040)-JVS(54603)*X(5041)-JVS(54604)*X(5042)-JVS(54605)*X(5043)-JVS(54606)*X(5044)& - &-JVS(54607)*X(5045)-JVS(54608)*X(5047)-JVS(54609)*X(5048)-JVS(54610)*X(5049)-JVS(54611)*X(5050)-JVS(54612)& - &*X(5051)-JVS(54613)*X(5052)-JVS(54614)*X(5053)-JVS(54615)*X(5054)-JVS(54616)*X(5055)-JVS(54617)*X(5056)& - &-JVS(54618)*X(5057)-JVS(54619)*X(5058)-JVS(54620)*X(5059)-JVS(54621)*X(5060)-JVS(54622)*X(5061)-JVS(54623)& - &*X(5062)-JVS(54624)*X(5063)-JVS(54625)*X(5064)-JVS(54626)*X(5065)-JVS(54627)*X(5066)-JVS(54628)*X(5067)& - &-JVS(54629)*X(5068)-JVS(54630)*X(5069)-JVS(54631)*X(5070)-JVS(54632)*X(5071)-JVS(54633)*X(5072)-JVS(54634)& - &*X(5073)-JVS(54635)*X(5074)-JVS(54636)*X(5075)-JVS(54637)*X(5076)-JVS(54638)*X(5077)-JVS(54639)*X(5078)& - &-JVS(54640)*X(5079)-JVS(54641)*X(5081)-JVS(54642)*X(5082)-JVS(54643)*X(5083)-JVS(54644)*X(5084)-JVS(54645)& - &*X(5085)-JVS(54646)*X(5086)-JVS(54647)*X(5087)-JVS(54648)*X(5088)-JVS(54649)*X(5089)-JVS(54650)*X(5090)& - &-JVS(54651)*X(5091)-JVS(54652)*X(5092)-JVS(54653)*X(5093)-JVS(54654)*X(5094)-JVS(54655)*X(5095)-JVS(54656)& - &*X(5096)-JVS(54657)*X(5097)-JVS(54658)*X(5098)-JVS(54659)*X(5099)-JVS(54660)*X(5100)-JVS(54661)*X(5101)& - &-JVS(54662)*X(5102)-JVS(54663)*X(5103)-JVS(54664)*X(5104)-JVS(54665)*X(5105)-JVS(54666)*X(5106)-JVS(54667)& - &*X(5107)-JVS(54668)*X(5108)-JVS(54669)*X(5109)-JVS(54670)*X(5110)-JVS(54671)*X(5111)-JVS(54672)*X(5112)& - &-JVS(54673)*X(5113)-JVS(54674)*X(5114)-JVS(54675)*X(5115)-JVS(54676)*X(5116)-JVS(54677)*X(5117)-JVS(54678)& - &*X(5118)-JVS(54679)*X(5119)-JVS(54680)*X(5120)-JVS(54681)*X(5121)-JVS(54682)*X(5122)-JVS(54683)*X(5123)& - &-JVS(54684)*X(5124)-JVS(54685)*X(5125)-JVS(54686)*X(5126)-JVS(54687)*X(5127)-JVS(54688)*X(5128)-JVS(54689)& - &*X(5129)-JVS(54690)*X(5130)-JVS(54691)*X(5131)-JVS(54692)*X(5132)-JVS(54693)*X(5133)-JVS(54694)*X(5134)& - &-JVS(54695)*X(5135)-JVS(54696)*X(5136)-JVS(54697)*X(5137)-JVS(54698)*X(5138)-JVS(54699)*X(5139)-JVS(54700)& - &*X(5140)-JVS(54701)*X(5141)-JVS(54702)*X(5142)-JVS(54703)*X(5143)-JVS(54704)*X(5144)-JVS(54705)*X(5145)& - &-JVS(54706)*X(5146)-JVS(54707)*X(5147)-JVS(54708)*X(5148)-JVS(54709)*X(5149)-JVS(54710)*X(5150)-JVS(54711)& - &*X(5151)-JVS(54712)*X(5152)-JVS(54713)*X(5153)-JVS(54714)*X(5154)-JVS(54715)*X(5155)-JVS(54716)*X(5156)& - &-JVS(54717)*X(5157)-JVS(54718)*X(5158)-JVS(54719)*X(5159)-JVS(54720)*X(5161)-JVS(54721)*X(5162)-JVS(54722)& - &*X(5163)-JVS(54723)*X(5164)-JVS(54724)*X(5165)-JVS(54725)*X(5166)-JVS(54726)*X(5167)-JVS(54727)*X(5168)& - &-JVS(54728)*X(5169)-JVS(54729)*X(5170)-JVS(54730)*X(5171)-JVS(54731)*X(5172)-JVS(54732)*X(5173)-JVS(54733)& - &*X(5174)-JVS(54734)*X(5175)-JVS(54735)*X(5176)-JVS(54736)*X(5177)-JVS(54737)*X(5178)-JVS(54738)*X(5179)& - &-JVS(54739)*X(5180)-JVS(54740)*X(5181)-JVS(54741)*X(5182)-JVS(54742)*X(5183)-JVS(54743)*X(5184)-JVS(54744)& - &*X(5185)-JVS(54745)*X(5186)-JVS(54746)*X(5187)-JVS(54747)*X(5189)-JVS(54748)*X(5190)-JVS(54749)*X(5191)& - &-JVS(54750)*X(5192)-JVS(54751)*X(5193)-JVS(54752)*X(5194)-JVS(54753)*X(5195)-JVS(54754)*X(5196)-JVS(54755)& - &*X(5197)-JVS(54756)*X(5198)-JVS(54757)*X(5199)-JVS(54758)*X(5200)-JVS(54759)*X(5201)-JVS(54760)*X(5202)& - &-JVS(54761)*X(5203)-JVS(54762)*X(5204)-JVS(54763)*X(5205)-JVS(54764)*X(5206)-JVS(54765)*X(5207)-JVS(54766)& - &*X(5208)-JVS(54767)*X(5209)-JVS(54768)*X(5210)-JVS(54769)*X(5211)-JVS(54770)*X(5212)-JVS(54771)*X(5213)& - &-JVS(54772)*X(5214)-JVS(54773)*X(5215)-JVS(54774)*X(5216)-JVS(54775)*X(5217)-JVS(54776)*X(5218)-JVS(54777)& - &*X(5219)-JVS(54778)*X(5220)-JVS(54779)*X(5221)-JVS(54780)*X(5222)-JVS(54781)*X(5223)-JVS(54782)*X(5224)& - &-JVS(54783)*X(5225)-JVS(54784)*X(5226)-JVS(54785)*X(5227)-JVS(54786)*X(5228)-JVS(54787)*X(5229)-JVS(54788)& - &*X(5230)-JVS(54789)*X(5231)-JVS(54790)*X(5232)-JVS(54791)*X(5233)-JVS(54792)*X(5234)-JVS(54793)*X(5235)& - &-JVS(54794)*X(5236)-JVS(54795)*X(5237)-JVS(54796)*X(5238)-JVS(54797)*X(5239)-JVS(54798)*X(5240)-JVS(54799)& - &*X(5241)-JVS(54800)*X(5242)-JVS(54801)*X(5243)-JVS(54802)*X(5244)-JVS(54803)*X(5245)-JVS(54804)*X(5246)& - &-JVS(54805)*X(5247)-JVS(54806)*X(5248)-JVS(54807)*X(5249)-JVS(54808)*X(5250)-JVS(54809)*X(5251)-JVS(54810)& - &*X(5252)-JVS(54811)*X(5253)-JVS(54812)*X(5254)-JVS(54813)*X(5255) - X(5257) = X(5257)-JVS(54817)*X(624)-JVS(54818)*X(646)-JVS(54819)*X(797)-JVS(54820)*X(905)-JVS(54821)*X(2160)& - &-JVS(54822)*X(2178)-JVS(54823)*X(2180)-JVS(54824)*X(3891)-JVS(54825)*X(3963)-JVS(54826)*X(3971)-JVS(54827)& - &*X(4988)-JVS(54828)*X(5048)-JVS(54829)*X(5092)-JVS(54830)*X(5250)-JVS(54831)*X(5251)-JVS(54832)*X(5252)& - &-JVS(54833)*X(5253)-JVS(54834)*X(5254)-JVS(54835)*X(5255)-JVS(54836)*X(5256) - X(5258) = X(5258)-JVS(54839)*X(3442)-JVS(54840)*X(3465)-JVS(54841)*X(3466)-JVS(54842)*X(3482)-JVS(54843)*X(3494)& - &-JVS(54844)*X(3499)-JVS(54845)*X(3506)-JVS(54846)*X(3508)-JVS(54847)*X(3512)-JVS(54848)*X(3517)-JVS(54849)& - &*X(3519)-JVS(54850)*X(3545)-JVS(54851)*X(3551)-JVS(54852)*X(3553)-JVS(54853)*X(3560)-JVS(54854)*X(3568)& - &-JVS(54855)*X(3622)-JVS(54856)*X(3646)-JVS(54857)*X(3684)-JVS(54858)*X(3701)-JVS(54859)*X(3793)-JVS(54860)& - &*X(3830)-JVS(54861)*X(3831)-JVS(54862)*X(3832)-JVS(54863)*X(3833)-JVS(54864)*X(3834)-JVS(54865)*X(3996)& - &-JVS(54866)*X(4010)-JVS(54867)*X(4017)-JVS(54868)*X(4018)-JVS(54869)*X(4027)-JVS(54870)*X(4032)-JVS(54871)& - &*X(4056)-JVS(54872)*X(4080)-JVS(54873)*X(4083)-JVS(54874)*X(4093)-JVS(54875)*X(4094)-JVS(54876)*X(4096)& - &-JVS(54877)*X(4100)-JVS(54878)*X(4132)-JVS(54879)*X(4139)-JVS(54880)*X(4181)-JVS(54881)*X(4187)-JVS(54882)& - &*X(4198)-JVS(54883)*X(4222)-JVS(54884)*X(4272)-JVS(54885)*X(4330)-JVS(54886)*X(4332)-JVS(54887)*X(4338)& - &-JVS(54888)*X(4375)-JVS(54889)*X(4380)-JVS(54890)*X(4395)-JVS(54891)*X(4396)-JVS(54892)*X(4397)-JVS(54893)& - &*X(4402)-JVS(54894)*X(4405)-JVS(54895)*X(4407)-JVS(54896)*X(4408)-JVS(54897)*X(4413)-JVS(54898)*X(4414)& - &-JVS(54899)*X(4427)-JVS(54900)*X(4428)-JVS(54901)*X(4431)-JVS(54902)*X(4433)-JVS(54903)*X(4436)-JVS(54904)& - &*X(4437)-JVS(54905)*X(4438)-JVS(54906)*X(4444)-JVS(54907)*X(4452)-JVS(54908)*X(4453)-JVS(54909)*X(4454)& - &-JVS(54910)*X(4457)-JVS(54911)*X(4460)-JVS(54912)*X(4466)-JVS(54913)*X(4470)-JVS(54914)*X(4471)-JVS(54915)& - &*X(4474)-JVS(54916)*X(4475)-JVS(54917)*X(4478)-JVS(54918)*X(4479)-JVS(54919)*X(4484)-JVS(54920)*X(4485)& - &-JVS(54921)*X(4487)-JVS(54922)*X(4492)-JVS(54923)*X(4494)-JVS(54924)*X(4495)-JVS(54925)*X(4496)-JVS(54926)& - &*X(4499)-JVS(54927)*X(4500)-JVS(54928)*X(4504)-JVS(54929)*X(4505)-JVS(54930)*X(4508)-JVS(54931)*X(4509)& - &-JVS(54932)*X(4512)-JVS(54933)*X(4514)-JVS(54934)*X(4516)-JVS(54935)*X(4518)-JVS(54936)*X(4519)-JVS(54937)& - &*X(4522)-JVS(54938)*X(4523)-JVS(54939)*X(4527)-JVS(54940)*X(4531)-JVS(54941)*X(4555)-JVS(54942)*X(4570)& - &-JVS(54943)*X(4576)-JVS(54944)*X(4591)-JVS(54945)*X(4592)-JVS(54946)*X(4600)-JVS(54947)*X(4601)-JVS(54948)& - &*X(4604)-JVS(54949)*X(4605)-JVS(54950)*X(4606)-JVS(54951)*X(4610)-JVS(54952)*X(4611)-JVS(54953)*X(4615)& - &-JVS(54954)*X(4622)-JVS(54955)*X(4623)-JVS(54956)*X(4624)-JVS(54957)*X(4626)-JVS(54958)*X(4628)-JVS(54959)& - &*X(4629)-JVS(54960)*X(4632)-JVS(54961)*X(4633)-JVS(54962)*X(4634)-JVS(54963)*X(4635)-JVS(54964)*X(4636)& - &-JVS(54965)*X(4637)-JVS(54966)*X(4638)-JVS(54967)*X(4639)-JVS(54968)*X(4641)-JVS(54969)*X(4642)-JVS(54970)& - &*X(4649)-JVS(54971)*X(4650)-JVS(54972)*X(4652)-JVS(54973)*X(4653)-JVS(54974)*X(4654)-JVS(54975)*X(4656)& - &-JVS(54976)*X(4657)-JVS(54977)*X(4658)-JVS(54978)*X(4659)-JVS(54979)*X(4660)-JVS(54980)*X(4662)-JVS(54981)& - &*X(4663)-JVS(54982)*X(4664)-JVS(54983)*X(4665)-JVS(54984)*X(4670)-JVS(54985)*X(4671)-JVS(54986)*X(4673)& - &-JVS(54987)*X(4676)-JVS(54988)*X(4679)-JVS(54989)*X(4680)-JVS(54990)*X(4681)-JVS(54991)*X(4682)-JVS(54992)& - &*X(4684)-JVS(54993)*X(4685)-JVS(54994)*X(4690)-JVS(54995)*X(4692)-JVS(54996)*X(4729)-JVS(54997)*X(4738)& - &-JVS(54998)*X(4739)-JVS(54999)*X(4740)-JVS(55000)*X(4752)-JVS(55001)*X(4753)-JVS(55002)*X(4770)-JVS(55003)& - &*X(4771)-JVS(55004)*X(4772)-JVS(55005)*X(4777)-JVS(55006)*X(4786)-JVS(55007)*X(4788)-JVS(55008)*X(4789)& - &-JVS(55009)*X(4790)-JVS(55010)*X(4791)-JVS(55011)*X(4793)-JVS(55012)*X(4794)-JVS(55013)*X(4795)-JVS(55014)& - &*X(4797)-JVS(55015)*X(4798)-JVS(55016)*X(4803)-JVS(55017)*X(4805)-JVS(55018)*X(4807)-JVS(55019)*X(4808)& - &-JVS(55020)*X(4809)-JVS(55021)*X(4810)-JVS(55022)*X(4812)-JVS(55023)*X(4816)-JVS(55024)*X(4818)-JVS(55025)& - &*X(4822)-JVS(55026)*X(4829)-JVS(55027)*X(4830)-JVS(55028)*X(4832)-JVS(55029)*X(4833)-JVS(55030)*X(4834)& - &-JVS(55031)*X(4836)-JVS(55032)*X(4839)-JVS(55033)*X(4840)-JVS(55034)*X(4845)-JVS(55035)*X(4846)-JVS(55036)& - &*X(4847)-JVS(55037)*X(4848)-JVS(55038)*X(4849)-JVS(55039)*X(4850)-JVS(55040)*X(4853)-JVS(55041)*X(4854)& - &-JVS(55042)*X(4855)-JVS(55043)*X(4859)-JVS(55044)*X(4862)-JVS(55045)*X(4863)-JVS(55046)*X(4866)-JVS(55047)& - &*X(4867)-JVS(55048)*X(4879)-JVS(55049)*X(4881)-JVS(55050)*X(4886)-JVS(55051)*X(4888)-JVS(55052)*X(4892)& - &-JVS(55053)*X(4895)-JVS(55054)*X(4896)-JVS(55055)*X(4907)-JVS(55056)*X(4910)-JVS(55057)*X(4915)-JVS(55058)& - &*X(4916)-JVS(55059)*X(4917)-JVS(55060)*X(4921)-JVS(55061)*X(4922)-JVS(55062)*X(4926)-JVS(55063)*X(4927)& - &-JVS(55064)*X(4928)-JVS(55065)*X(4930)-JVS(55066)*X(4932)-JVS(55067)*X(4933)-JVS(55068)*X(4934)-JVS(55069)& - &*X(4937)-JVS(55070)*X(4944)-JVS(55071)*X(4945)-JVS(55072)*X(4946)-JVS(55073)*X(4948)-JVS(55074)*X(4949)& - &-JVS(55075)*X(4950)-JVS(55076)*X(4951)-JVS(55077)*X(4952)-JVS(55078)*X(4953)-JVS(55079)*X(4954)-JVS(55080)& - &*X(4955)-JVS(55081)*X(4957)-JVS(55082)*X(4962)-JVS(55083)*X(4964)-JVS(55084)*X(4965)-JVS(55085)*X(4968)& - &-JVS(55086)*X(4970)-JVS(55087)*X(4971)-JVS(55088)*X(4972)-JVS(55089)*X(4975)-JVS(55090)*X(4976)-JVS(55091)& - &*X(4977)-JVS(55092)*X(4978)-JVS(55093)*X(4979)-JVS(55094)*X(4986)-JVS(55095)*X(4987)-JVS(55096)*X(4988)& - &-JVS(55097)*X(4989)-JVS(55098)*X(4993)-JVS(55099)*X(4994)-JVS(55100)*X(4996)-JVS(55101)*X(5002)-JVS(55102)& - &*X(5003)-JVS(55103)*X(5004)-JVS(55104)*X(5005)-JVS(55105)*X(5006)-JVS(55106)*X(5008)-JVS(55107)*X(5010)& - &-JVS(55108)*X(5013)-JVS(55109)*X(5014)-JVS(55110)*X(5015)-JVS(55111)*X(5017)-JVS(55112)*X(5019)-JVS(55113)& - &*X(5021)-JVS(55114)*X(5022)-JVS(55115)*X(5024)-JVS(55116)*X(5025)-JVS(55117)*X(5027)-JVS(55118)*X(5028)& - &-JVS(55119)*X(5029)-JVS(55120)*X(5030)-JVS(55121)*X(5033)-JVS(55122)*X(5034)-JVS(55123)*X(5036)-JVS(55124)& - &*X(5037)-JVS(55125)*X(5041)-JVS(55126)*X(5042)-JVS(55127)*X(5044)-JVS(55128)*X(5045)-JVS(55129)*X(5048)& - &-JVS(55130)*X(5049)-JVS(55131)*X(5050)-JVS(55132)*X(5051)-JVS(55133)*X(5052)-JVS(55134)*X(5054)-JVS(55135)& - &*X(5056)-JVS(55136)*X(5058)-JVS(55137)*X(5061)-JVS(55138)*X(5063)-JVS(55139)*X(5064)-JVS(55140)*X(5065)& - &-JVS(55141)*X(5066)-JVS(55142)*X(5068)-JVS(55143)*X(5069)-JVS(55144)*X(5071)-JVS(55145)*X(5072)-JVS(55146)& - &*X(5074)-JVS(55147)*X(5075)-JVS(55148)*X(5076)-JVS(55149)*X(5077)-JVS(55150)*X(5079)-JVS(55151)*X(5081)& - &-JVS(55152)*X(5082)-JVS(55153)*X(5083)-JVS(55154)*X(5084)-JVS(55155)*X(5085)-JVS(55156)*X(5088)-JVS(55157)& - &*X(5089)-JVS(55158)*X(5090)-JVS(55159)*X(5091)-JVS(55160)*X(5092)-JVS(55161)*X(5093)-JVS(55162)*X(5095)& - &-JVS(55163)*X(5097)-JVS(55164)*X(5099)-JVS(55165)*X(5103)-JVS(55166)*X(5104)-JVS(55167)*X(5106)-JVS(55168)& - &*X(5107)-JVS(55169)*X(5114)-JVS(55170)*X(5115)-JVS(55171)*X(5116)-JVS(55172)*X(5117)-JVS(55173)*X(5119)& - &-JVS(55174)*X(5122)-JVS(55175)*X(5123)-JVS(55176)*X(5124)-JVS(55177)*X(5125)-JVS(55178)*X(5126)-JVS(55179)& - &*X(5128)-JVS(55180)*X(5131)-JVS(55181)*X(5132)-JVS(55182)*X(5133)-JVS(55183)*X(5137)-JVS(55184)*X(5138)& - &-JVS(55185)*X(5140)-JVS(55186)*X(5141)-JVS(55187)*X(5143)-JVS(55188)*X(5144)-JVS(55189)*X(5146)-JVS(55190)& - &*X(5147)-JVS(55191)*X(5152)-JVS(55192)*X(5153)-JVS(55193)*X(5154)-JVS(55194)*X(5155)-JVS(55195)*X(5159)& - &-JVS(55196)*X(5161)-JVS(55197)*X(5162)-JVS(55198)*X(5163)-JVS(55199)*X(5164)-JVS(55200)*X(5165)-JVS(55201)& - &*X(5166)-JVS(55202)*X(5167)-JVS(55203)*X(5168)-JVS(55204)*X(5169)-JVS(55205)*X(5173)-JVS(55206)*X(5174)& - &-JVS(55207)*X(5175)-JVS(55208)*X(5176)-JVS(55209)*X(5177)-JVS(55210)*X(5179)-JVS(55211)*X(5180)-JVS(55212)& - &*X(5181)-JVS(55213)*X(5183)-JVS(55214)*X(5185)-JVS(55215)*X(5186)-JVS(55216)*X(5187)-JVS(55217)*X(5189)& - &-JVS(55218)*X(5190)-JVS(55219)*X(5191)-JVS(55220)*X(5192)-JVS(55221)*X(5194)-JVS(55222)*X(5196)-JVS(55223)& - &*X(5200)-JVS(55224)*X(5203)-JVS(55225)*X(5204)-JVS(55226)*X(5205)-JVS(55227)*X(5206)-JVS(55228)*X(5207)& - &-JVS(55229)*X(5208)-JVS(55230)*X(5209)-JVS(55231)*X(5211)-JVS(55232)*X(5212)-JVS(55233)*X(5213)-JVS(55234)& - &*X(5214)-JVS(55235)*X(5215)-JVS(55236)*X(5216)-JVS(55237)*X(5217)-JVS(55238)*X(5218)-JVS(55239)*X(5219)& - &-JVS(55240)*X(5220)-JVS(55241)*X(5221)-JVS(55242)*X(5224)-JVS(55243)*X(5225)-JVS(55244)*X(5226)-JVS(55245)& - &*X(5227)-JVS(55246)*X(5229)-JVS(55247)*X(5230)-JVS(55248)*X(5232)-JVS(55249)*X(5233)-JVS(55250)*X(5234)& - &-JVS(55251)*X(5235)-JVS(55252)*X(5236)-JVS(55253)*X(5237)-JVS(55254)*X(5238)-JVS(55255)*X(5239)-JVS(55256)& - &*X(5240)-JVS(55257)*X(5243)-JVS(55258)*X(5244)-JVS(55259)*X(5245)-JVS(55260)*X(5246)-JVS(55261)*X(5247)& - &-JVS(55262)*X(5248)-JVS(55263)*X(5249)-JVS(55264)*X(5250)-JVS(55265)*X(5251)-JVS(55266)*X(5252)-JVS(55267)& - &*X(5253)-JVS(55268)*X(5254)-JVS(55269)*X(5255)-JVS(55270)*X(5256)-JVS(55271)*X(5257) - X(5258) = X(5258)/JVS(55272) - X(5257) = (X(5257)-JVS(54838)*X(5258))/(JVS(54837)) - X(5256) = (X(5256)-JVS(54815)*X(5257)-JVS(54816)*X(5258))/(JVS(54814)) - X(5255) = (X(5255)-JVS(53213)*X(5256)-JVS(53214)*X(5257)-JVS(53215)*X(5258))/(JVS(53212)) - X(5254) = (X(5254)-JVS(50321)*X(5255)-JVS(50322)*X(5256)-JVS(50323)*X(5257)-JVS(50324)*X(5258))/(JVS(50320)) - X(5253) = (X(5253)-JVS(50212)*X(5254)-JVS(50213)*X(5255)-JVS(50214)*X(5256)-JVS(50215)*X(5257)-JVS(50216)*X(5258))& - &/(JVS(50211)) - X(5252) = (X(5252)-JVS(47935)*X(5253)-JVS(47936)*X(5254)-JVS(47937)*X(5255)-JVS(47938)*X(5256)-JVS(47939)*X(5257)& - &-JVS(47940)*X(5258))/(JVS(47934)) - X(5251) = (X(5251)-JVS(46583)*X(5252)-JVS(46584)*X(5253)-JVS(46585)*X(5254)-JVS(46586)*X(5255)-JVS(46587)*X(5256)& - &-JVS(46588)*X(5257)-JVS(46589)*X(5258))/(JVS(46582)) - X(5250) = (X(5250)-JVS(45057)*X(5251)-JVS(45058)*X(5252)-JVS(45059)*X(5253)-JVS(45060)*X(5254)-JVS(45061)*X(5255)& - &-JVS(45062)*X(5256)-JVS(45063)*X(5257)-JVS(45064)*X(5258))/(JVS(45056)) - X(5249) = (X(5249)-JVS(40578)*X(5250)-JVS(40579)*X(5251)-JVS(40580)*X(5252)-JVS(40581)*X(5253)-JVS(40582)*X(5254)& - &-JVS(40583)*X(5255)-JVS(40584)*X(5256)-JVS(40585)*X(5258))/(JVS(40577)) - X(5248) = (X(5248)-JVS(40561)*X(5249)-JVS(40562)*X(5250)-JVS(40563)*X(5251)-JVS(40564)*X(5252)-JVS(40565)*X(5253)& - &-JVS(40566)*X(5254)-JVS(40567)*X(5255)-JVS(40568)*X(5256)-JVS(40569)*X(5257)-JVS(40570)*X(5258))/(JVS(40560)) - X(5247) = (X(5247)-JVS(40530)*X(5248)-JVS(40531)*X(5249)-JVS(40532)*X(5250)-JVS(40533)*X(5251)-JVS(40534)*X(5252)& - &-JVS(40535)*X(5253)-JVS(40536)*X(5254)-JVS(40537)*X(5255)-JVS(40538)*X(5256)-JVS(40539)*X(5257)-JVS(40540)& - &*X(5258))/(JVS(40529)) - X(5246) = (X(5246)-JVS(40498)*X(5247)-JVS(40499)*X(5248)-JVS(40500)*X(5249)-JVS(40501)*X(5250)-JVS(40502)*X(5251)& - &-JVS(40503)*X(5252)-JVS(40504)*X(5253)-JVS(40505)*X(5254)-JVS(40506)*X(5255)-JVS(40507)*X(5256)-JVS(40508)& - &*X(5257)-JVS(40509)*X(5258))/(JVS(40497)) - X(5245) = (X(5245)-JVS(40463)*X(5248)-JVS(40464)*X(5249)-JVS(40465)*X(5250)-JVS(40466)*X(5251)-JVS(40467)*X(5252)& - &-JVS(40468)*X(5253)-JVS(40469)*X(5254)-JVS(40470)*X(5255)-JVS(40471)*X(5256)-JVS(40472)*X(5257)-JVS(40473)& - &*X(5258))/(JVS(40462)) - X(5244) = (X(5244)-JVS(40438)*X(5245)-JVS(40439)*X(5246)-JVS(40440)*X(5247)-JVS(40441)*X(5248)-JVS(40442)*X(5249)& - &-JVS(40443)*X(5250)-JVS(40444)*X(5251)-JVS(40445)*X(5252)-JVS(40446)*X(5253)-JVS(40447)*X(5254)-JVS(40448)& - &*X(5255)-JVS(40449)*X(5256)-JVS(40450)*X(5257)-JVS(40451)*X(5258))/(JVS(40437)) - X(5243) = (X(5243)-JVS(39809)*X(5245)-JVS(39810)*X(5247)-JVS(39811)*X(5248)-JVS(39812)*X(5249)-JVS(39813)*X(5250)& - &-JVS(39814)*X(5251)-JVS(39815)*X(5252)-JVS(39816)*X(5253)-JVS(39817)*X(5254)-JVS(39818)*X(5255)-JVS(39819)& - &*X(5256)-JVS(39820)*X(5257)-JVS(39821)*X(5258))/(JVS(39808)) - X(5242) = (X(5242)-JVS(39756)*X(5245)-JVS(39757)*X(5246)-JVS(39758)*X(5247)-JVS(39759)*X(5248)-JVS(39760)*X(5249)& - &-JVS(39761)*X(5250)-JVS(39762)*X(5251)-JVS(39763)*X(5252)-JVS(39764)*X(5253)-JVS(39765)*X(5254)-JVS(39766)& - &*X(5255)-JVS(39767)*X(5256)-JVS(39768)*X(5257)-JVS(39769)*X(5258))/(JVS(39755)) - X(5241) = (X(5241)-JVS(39670)*X(5242)-JVS(39671)*X(5243)-JVS(39672)*X(5245)-JVS(39673)*X(5247)-JVS(39674)*X(5248)& - &-JVS(39675)*X(5249)-JVS(39676)*X(5250)-JVS(39677)*X(5251)-JVS(39678)*X(5252)-JVS(39679)*X(5253)-JVS(39680)& - &*X(5254)-JVS(39681)*X(5255)-JVS(39682)*X(5256)-JVS(39683)*X(5257)-JVS(39684)*X(5258))/(JVS(39669)) - X(5240) = (X(5240)-JVS(39586)*X(5248)-JVS(39587)*X(5249)-JVS(39588)*X(5250)-JVS(39589)*X(5251)-JVS(39590)*X(5252)& - &-JVS(39591)*X(5253)-JVS(39592)*X(5254)-JVS(39593)*X(5255)-JVS(39594)*X(5256)-JVS(39595)*X(5257)-JVS(39596)& - &*X(5258))/(JVS(39585)) - X(5239) = (X(5239)-JVS(39555)*X(5248)-JVS(39556)*X(5249)-JVS(39557)*X(5250)-JVS(39558)*X(5251)-JVS(39559)*X(5252)& - &-JVS(39560)*X(5253)-JVS(39561)*X(5254)-JVS(39562)*X(5255)-JVS(39563)*X(5256)-JVS(39564)*X(5257)-JVS(39565)& - &*X(5258))/(JVS(39554)) - X(5238) = (X(5238)-JVS(39532)*X(5250)-JVS(39533)*X(5251)-JVS(39534)*X(5252)-JVS(39535)*X(5253)-JVS(39536)*X(5254)& - &-JVS(39537)*X(5255)-JVS(39538)*X(5256)-JVS(39539)*X(5258))/(JVS(39531)) - X(5237) = (X(5237)-JVS(39479)*X(5238)-JVS(39480)*X(5240)-JVS(39481)*X(5246)-JVS(39482)*X(5247)-JVS(39483)*X(5248)& - &-JVS(39484)*X(5249)-JVS(39485)*X(5250)-JVS(39486)*X(5251)-JVS(39487)*X(5252)-JVS(39488)*X(5253)-JVS(39489)& - &*X(5254)-JVS(39490)*X(5255)-JVS(39491)*X(5256)-JVS(39492)*X(5257)-JVS(39493)*X(5258))/(JVS(39478)) - X(5236) = (X(5236)-JVS(39410)*X(5250)-JVS(39411)*X(5251)-JVS(39412)*X(5252)-JVS(39413)*X(5253)-JVS(39414)*X(5254)& - &-JVS(39415)*X(5255)-JVS(39416)*X(5256)-JVS(39417)*X(5258))/(JVS(39409)) - X(5235) = (X(5235)-JVS(39387)*X(5236)-JVS(39388)*X(5238)-JVS(39389)*X(5239)-JVS(39390)*X(5240)-JVS(39391)*X(5248)& - &-JVS(39392)*X(5249)-JVS(39393)*X(5250)-JVS(39394)*X(5251)-JVS(39395)*X(5252)-JVS(39396)*X(5253)-JVS(39397)& - &*X(5254)-JVS(39398)*X(5255)-JVS(39399)*X(5256)-JVS(39400)*X(5257)-JVS(39401)*X(5258))/(JVS(39386)) - X(5234) = (X(5234)-JVS(39326)*X(5235)-JVS(39327)*X(5236)-JVS(39328)*X(5237)-JVS(39329)*X(5238)-JVS(39330)*X(5246)& - &-JVS(39331)*X(5247)-JVS(39332)*X(5248)-JVS(39333)*X(5249)-JVS(39334)*X(5250)-JVS(39335)*X(5251)-JVS(39336)& - &*X(5252)-JVS(39337)*X(5253)-JVS(39338)*X(5254)-JVS(39339)*X(5255)-JVS(39340)*X(5256)-JVS(39341)*X(5257)& - &-JVS(39342)*X(5258))/(JVS(39325)) - X(5233) = (X(5233)-JVS(39177)*X(5234)-JVS(39178)*X(5235)-JVS(39179)*X(5236)-JVS(39180)*X(5238)-JVS(39181)*X(5239)& - &-JVS(39182)*X(5240)-JVS(39183)*X(5248)-JVS(39184)*X(5249)-JVS(39185)*X(5250)-JVS(39186)*X(5251)-JVS(39187)& - &*X(5252)-JVS(39188)*X(5253)-JVS(39189)*X(5254)-JVS(39190)*X(5255)-JVS(39191)*X(5256)-JVS(39192)*X(5257)& - &-JVS(39193)*X(5258))/(JVS(39176)) - X(5232) = (X(5232)-JVS(38924)*X(5234)-JVS(38925)*X(5236)-JVS(38926)*X(5238)-JVS(38927)*X(5240)-JVS(38928)*X(5246)& - &-JVS(38929)*X(5247)-JVS(38930)*X(5248)-JVS(38931)*X(5249)-JVS(38932)*X(5250)-JVS(38933)*X(5251)-JVS(38934)& - &*X(5252)-JVS(38935)*X(5253)-JVS(38936)*X(5254)-JVS(38937)*X(5255)-JVS(38938)*X(5256)-JVS(38939)*X(5257)& - &-JVS(38940)*X(5258))/(JVS(38923)) - X(5231) = (X(5231)-JVS(38764)*X(5232)-JVS(38765)*X(5233)-JVS(38766)*X(5234)-JVS(38767)*X(5235)-JVS(38768)*X(5236)& - &-JVS(38769)*X(5237)-JVS(38770)*X(5238)-JVS(38771)*X(5239)-JVS(38772)*X(5240)-JVS(38773)*X(5241)-JVS(38774)& - &*X(5242)-JVS(38775)*X(5243)-JVS(38776)*X(5244)-JVS(38777)*X(5245)-JVS(38778)*X(5246)-JVS(38779)*X(5247)& - &-JVS(38780)*X(5248)-JVS(38781)*X(5249)-JVS(38782)*X(5250)-JVS(38783)*X(5251)-JVS(38784)*X(5252)-JVS(38785)& - &*X(5253)-JVS(38786)*X(5254)-JVS(38787)*X(5255)-JVS(38788)*X(5256)-JVS(38789)*X(5257)-JVS(38790)*X(5258))& - &/(JVS(38763)) - X(5230) = (X(5230)-JVS(38080)*X(5238)-JVS(38081)*X(5250)-JVS(38082)*X(5251)-JVS(38083)*X(5252)-JVS(38084)*X(5253)& - &-JVS(38085)*X(5254)-JVS(38086)*X(5255)-JVS(38087)*X(5256)-JVS(38088)*X(5258))/(JVS(38079)) - X(5229) = (X(5229)-JVS(38008)*X(5230)-JVS(38009)*X(5238)-JVS(38010)*X(5250)-JVS(38011)*X(5251)-JVS(38012)*X(5252)& - &-JVS(38013)*X(5253)-JVS(38014)*X(5254)-JVS(38015)*X(5255)-JVS(38016)*X(5256)-JVS(38017)*X(5258))/(JVS(38007)) - X(5228) = (X(5228)-JVS(37956)*X(5229)-JVS(37957)*X(5230)-JVS(37958)*X(5236)-JVS(37959)*X(5238)-JVS(37960)*X(5239)& - &-JVS(37961)*X(5240)-JVS(37962)*X(5243)-JVS(37963)*X(5244)-JVS(37964)*X(5245)-JVS(37965)*X(5247)-JVS(37966)& - &*X(5248)-JVS(37967)*X(5249)-JVS(37968)*X(5250)-JVS(37969)*X(5251)-JVS(37970)*X(5252)-JVS(37971)*X(5253)& - &-JVS(37972)*X(5254)-JVS(37973)*X(5255)-JVS(37974)*X(5256)-JVS(37975)*X(5257)-JVS(37976)*X(5258))/(JVS(37955)) - X(5227) = (X(5227)-JVS(37828)*X(5250)-JVS(37829)*X(5251)-JVS(37830)*X(5252)-JVS(37831)*X(5253)-JVS(37832)*X(5254)& - &-JVS(37833)*X(5255)-JVS(37834)*X(5256)-JVS(37835)*X(5258))/(JVS(37827)) - X(5226) = (X(5226)-JVS(37813)*X(5236)-JVS(37814)*X(5250)-JVS(37815)*X(5251)-JVS(37816)*X(5252)-JVS(37817)*X(5253)& - &-JVS(37818)*X(5254)-JVS(37819)*X(5255)-JVS(37820)*X(5256)-JVS(37821)*X(5258))/(JVS(37812)) - X(5225) = (X(5225)-JVS(37776)*X(5227)-JVS(37777)*X(5236)-JVS(37778)*X(5250)-JVS(37779)*X(5251)-JVS(37780)*X(5252)& - &-JVS(37781)*X(5253)-JVS(37782)*X(5254)-JVS(37783)*X(5255)-JVS(37784)*X(5256)-JVS(37785)*X(5258))/(JVS(37775)) - X(5224) = (X(5224)-JVS(37741)*X(5236)-JVS(37742)*X(5250)-JVS(37743)*X(5252)-JVS(37744)*X(5253)-JVS(37745)*X(5255)& - &-JVS(37746)*X(5256)-JVS(37747)*X(5258))/(JVS(37740)) - X(5223) = (X(5223)-JVS(37715)*X(5224)-JVS(37716)*X(5226)-JVS(37717)*X(5227)-JVS(37718)*X(5230)-JVS(37719)*X(5236)& - &-JVS(37720)*X(5238)-JVS(37721)*X(5250)-JVS(37722)*X(5251)-JVS(37723)*X(5252)-JVS(37724)*X(5253)-JVS(37725)& - &*X(5254)-JVS(37726)*X(5255)-JVS(37727)*X(5256)-JVS(37728)*X(5257)-JVS(37729)*X(5258))/(JVS(37714)) - X(5222) = (X(5222)-JVS(37653)*X(5224)-JVS(37654)*X(5225)-JVS(37655)*X(5226)-JVS(37656)*X(5227)-JVS(37657)*X(5229)& - &-JVS(37658)*X(5230)-JVS(37659)*X(5236)-JVS(37660)*X(5238)-JVS(37661)*X(5241)-JVS(37662)*X(5242)-JVS(37663)& - &*X(5245)-JVS(37664)*X(5250)-JVS(37665)*X(5251)-JVS(37666)*X(5252)-JVS(37667)*X(5253)-JVS(37668)*X(5254)& - &-JVS(37669)*X(5255)-JVS(37670)*X(5256)-JVS(37671)*X(5258))/(JVS(37652)) - X(5221) = (X(5221)-JVS(37361)*X(5224)-JVS(37362)*X(5226)-JVS(37363)*X(5250)-JVS(37364)*X(5251)-JVS(37365)*X(5252)& - &-JVS(37366)*X(5253)-JVS(37367)*X(5254)-JVS(37368)*X(5255)-JVS(37369)*X(5256)-JVS(37370)*X(5258))/(JVS(37360)) - X(5220) = (X(5220)-JVS(37327)*X(5224)-JVS(37328)*X(5250)-JVS(37329)*X(5252)-JVS(37330)*X(5255)-JVS(37331)*X(5256)& - &-JVS(37332)*X(5258))/(JVS(37326)) - X(5219) = (X(5219)-JVS(37310)*X(5250)-JVS(37311)*X(5252)-JVS(37312)*X(5255)-JVS(37313)*X(5256)-JVS(37314)*X(5258))& - &/(JVS(37309)) - X(5218) = (X(5218)-JVS(37297)*X(5219)-JVS(37298)*X(5250)-JVS(37299)*X(5252)-JVS(37300)*X(5255)-JVS(37301)*X(5256)& - &-JVS(37302)*X(5258))/(JVS(37296)) - X(5217) = (X(5217)-JVS(37286)*X(5219)-JVS(37287)*X(5250)-JVS(37288)*X(5252)-JVS(37289)*X(5255)-JVS(37290)*X(5256)& - &-JVS(37291)*X(5258))/(JVS(37285)) - X(5216) = (X(5216)-JVS(37264)*X(5217)-JVS(37265)*X(5218)-JVS(37266)*X(5219)-JVS(37267)*X(5220)-JVS(37268)*X(5224)& - &-JVS(37269)*X(5225)-JVS(37270)*X(5226)-JVS(37271)*X(5227)-JVS(37272)*X(5233)-JVS(37273)*X(5236)-JVS(37274)& - &*X(5238)-JVS(37275)*X(5250)-JVS(37276)*X(5251)-JVS(37277)*X(5252)-JVS(37278)*X(5253)-JVS(37279)*X(5254)& - &-JVS(37280)*X(5255)-JVS(37281)*X(5256)-JVS(37282)*X(5258))/(JVS(37263)) - X(5215) = (X(5215)-JVS(37220)*X(5250)-JVS(37221)*X(5251)-JVS(37222)*X(5252)-JVS(37223)*X(5253)-JVS(37224)*X(5254)& - &-JVS(37225)*X(5255)-JVS(37226)*X(5256)-JVS(37227)*X(5258))/(JVS(37219)) - X(5214) = (X(5214)-JVS(37185)*X(5215)-JVS(37186)*X(5236)-JVS(37187)*X(5238)-JVS(37188)*X(5240)-JVS(37189)*X(5248)& - &-JVS(37190)*X(5249)-JVS(37191)*X(5250)-JVS(37192)*X(5251)-JVS(37193)*X(5252)-JVS(37194)*X(5253)-JVS(37195)& - &*X(5254)-JVS(37196)*X(5255)-JVS(37197)*X(5256)-JVS(37198)*X(5257)-JVS(37199)*X(5258))/(JVS(37184)) - X(5213) = (X(5213)-JVS(37113)*X(5250)-JVS(37114)*X(5251)-JVS(37115)*X(5252)-JVS(37116)*X(5253)-JVS(37117)*X(5254)& - &-JVS(37118)*X(5255)-JVS(37119)*X(5256)-JVS(37120)*X(5258))/(JVS(37112)) - X(5212) = (X(5212)-JVS(37089)*X(5236)-JVS(37090)*X(5250)-JVS(37091)*X(5251)-JVS(37092)*X(5252)-JVS(37093)*X(5253)& - &-JVS(37094)*X(5254)-JVS(37095)*X(5255)-JVS(37096)*X(5256)-JVS(37097)*X(5258))/(JVS(37088)) - X(5211) = (X(5211)-JVS(37067)*X(5212)-JVS(37068)*X(5238)-JVS(37069)*X(5245)-JVS(37070)*X(5247)-JVS(37071)*X(5248)& - &-JVS(37072)*X(5249)-JVS(37073)*X(5250)-JVS(37074)*X(5251)-JVS(37075)*X(5252)-JVS(37076)*X(5253)-JVS(37077)& - &*X(5254)-JVS(37078)*X(5255)-JVS(37079)*X(5256)-JVS(37080)*X(5257)-JVS(37081)*X(5258))/(JVS(37066)) - X(5210) = (X(5210)-JVS(37023)*X(5213)-JVS(37024)*X(5217)-JVS(37025)*X(5218)-JVS(37026)*X(5219)-JVS(37027)*X(5220)& - &-JVS(37028)*X(5224)-JVS(37029)*X(5227)-JVS(37030)*X(5250)-JVS(37031)*X(5251)-JVS(37032)*X(5252)-JVS(37033)& - &*X(5253)-JVS(37034)*X(5254)-JVS(37035)*X(5255)-JVS(37036)*X(5256)-JVS(37037)*X(5258))/(JVS(37022)) - X(5209) = (X(5209)-JVS(36954)*X(5217)-JVS(36955)*X(5218)-JVS(36956)*X(5220)-JVS(36957)*X(5224)-JVS(36958)*X(5250)& - &-JVS(36959)*X(5252)-JVS(36960)*X(5255)-JVS(36961)*X(5256)-JVS(36962)*X(5258))/(JVS(36953)) - X(5208) = (X(5208)-JVS(36930)*X(5238)-JVS(36931)*X(5250)-JVS(36932)*X(5251)-JVS(36933)*X(5252)-JVS(36934)*X(5253)& - &-JVS(36935)*X(5254)-JVS(36936)*X(5255)-JVS(36937)*X(5256)-JVS(36938)*X(5258))/(JVS(36929)) - X(5207) = (X(5207)-JVS(36904)*X(5250)-JVS(36905)*X(5252)-JVS(36906)*X(5253)-JVS(36907)*X(5255)-JVS(36908)*X(5256)& - &-JVS(36909)*X(5257)-JVS(36910)*X(5258))/(JVS(36903)) - X(5206) = (X(5206)-JVS(36884)*X(5250)-JVS(36885)*X(5252)-JVS(36886)*X(5253)-JVS(36887)*X(5255)-JVS(36888)*X(5256)& - &-JVS(36889)*X(5257)-JVS(36890)*X(5258))/(JVS(36883)) - X(5205) = (X(5205)-JVS(36871)*X(5217)-JVS(36872)*X(5218)-JVS(36873)*X(5224)-JVS(36874)*X(5250)-JVS(36875)*X(5252)& - &-JVS(36876)*X(5255)-JVS(36877)*X(5256)-JVS(36878)*X(5258))/(JVS(36870)) - X(5204) = (X(5204)-JVS(36858)*X(5224)-JVS(36859)*X(5250)-JVS(36860)*X(5252)-JVS(36861)*X(5255)-JVS(36862)*X(5256)& - &-JVS(36863)*X(5258))/(JVS(36857)) - X(5203) = (X(5203)-JVS(36846)*X(5238)-JVS(36847)*X(5250)-JVS(36848)*X(5251)-JVS(36849)*X(5252)-JVS(36850)*X(5253)& - &-JVS(36851)*X(5254)-JVS(36852)*X(5255)-JVS(36853)*X(5256)-JVS(36854)*X(5258))/(JVS(36845)) - X(5202) = (X(5202)-JVS(36792)*X(5203)-JVS(36793)*X(5227)-JVS(36794)*X(5230)-JVS(36795)*X(5238)-JVS(36796)*X(5250)& - &-JVS(36797)*X(5251)-JVS(36798)*X(5252)-JVS(36799)*X(5253)-JVS(36800)*X(5254)-JVS(36801)*X(5255)-JVS(36802)& - &*X(5256)-JVS(36803)*X(5258))/(JVS(36791)) - X(5201) = (X(5201)-JVS(36718)*X(5202)-JVS(36719)*X(5203)-JVS(36720)*X(5204)-JVS(36721)*X(5205)-JVS(36722)*X(5206)& - &-JVS(36723)*X(5207)-JVS(36724)*X(5208)-JVS(36725)*X(5209)-JVS(36726)*X(5210)-JVS(36727)*X(5211)-JVS(36728)& - &*X(5213)-JVS(36729)*X(5215)-JVS(36730)*X(5217)-JVS(36731)*X(5218)-JVS(36732)*X(5219)-JVS(36733)*X(5220)& - &-JVS(36734)*X(5222)-JVS(36735)*X(5224)-JVS(36736)*X(5225)-JVS(36737)*X(5226)-JVS(36738)*X(5227)-JVS(36739)& - &*X(5229)-JVS(36740)*X(5230)-JVS(36741)*X(5231)-JVS(36742)*X(5233)-JVS(36743)*X(5234)-JVS(36744)*X(5236)& - &-JVS(36745)*X(5238)-JVS(36746)*X(5239)-JVS(36747)*X(5240)-JVS(36748)*X(5242)-JVS(36749)*X(5245)-JVS(36750)& - &*X(5246)-JVS(36751)*X(5247)-JVS(36752)*X(5248)-JVS(36753)*X(5249)-JVS(36754)*X(5250)-JVS(36755)*X(5251)& - &-JVS(36756)*X(5252)-JVS(36757)*X(5253)-JVS(36758)*X(5254)-JVS(36759)*X(5255)-JVS(36760)*X(5256)-JVS(36761)& - &*X(5257)-JVS(36762)*X(5258))/(JVS(36717)) - X(5200) = (X(5200)-JVS(36288)*X(5227)-JVS(36289)*X(5238)-JVS(36290)*X(5250)-JVS(36291)*X(5252)-JVS(36292)*X(5253)& - &-JVS(36293)*X(5255)-JVS(36294)*X(5256)-JVS(36295)*X(5258))/(JVS(36287)) - X(5199) = (X(5199)-JVS(36257)*X(5204)-JVS(36258)*X(5213)-JVS(36259)*X(5217)-JVS(36260)*X(5218)-JVS(36261)*X(5219)& - &-JVS(36262)*X(5220)-JVS(36263)*X(5224)-JVS(36264)*X(5225)-JVS(36265)*X(5227)-JVS(36266)*X(5236)-JVS(36267)& - &*X(5238)-JVS(36268)*X(5250)-JVS(36269)*X(5251)-JVS(36270)*X(5252)-JVS(36271)*X(5253)-JVS(36272)*X(5254)& - &-JVS(36273)*X(5255)-JVS(36274)*X(5256)-JVS(36275)*X(5258))/(JVS(36256)) - X(5198) = (X(5198)-JVS(36193)*X(5213)-JVS(36194)*X(5250)-JVS(36195)*X(5251)-JVS(36196)*X(5252)-JVS(36197)*X(5253)& - &-JVS(36198)*X(5254)-JVS(36199)*X(5255)-JVS(36200)*X(5256)-JVS(36201)*X(5258))/(JVS(36192)) - X(5197) = (X(5197)-JVS(36172)*X(5198)-JVS(36173)*X(5213)-JVS(36174)*X(5217)-JVS(36175)*X(5236)-JVS(36176)*X(5238)& - &-JVS(36177)*X(5250)-JVS(36178)*X(5251)-JVS(36179)*X(5252)-JVS(36180)*X(5253)-JVS(36181)*X(5254)-JVS(36182)& - &*X(5255)-JVS(36183)*X(5256)-JVS(36184)*X(5258))/(JVS(36171)) - X(5196) = (X(5196)-JVS(36118)*X(5250)-JVS(36119)*X(5251)-JVS(36120)*X(5252)-JVS(36121)*X(5253)-JVS(36122)*X(5254)& - &-JVS(36123)*X(5255)-JVS(36124)*X(5256)-JVS(36125)*X(5258))/(JVS(36117)) - X(5195) = (X(5195)-JVS(36091)*X(5206)-JVS(36092)*X(5207)-JVS(36093)*X(5208)-JVS(36094)*X(5229)-JVS(36095)*X(5230)& - &-JVS(36096)*X(5237)-JVS(36097)*X(5238)-JVS(36098)*X(5246)-JVS(36099)*X(5248)-JVS(36100)*X(5249)-JVS(36101)& - &*X(5250)-JVS(36102)*X(5251)-JVS(36103)*X(5252)-JVS(36104)*X(5253)-JVS(36105)*X(5254)-JVS(36106)*X(5255)& - &-JVS(36107)*X(5256)-JVS(36108)*X(5257)-JVS(36109)*X(5258))/(JVS(36090)) - X(5194) = (X(5194)-JVS(36038)*X(5238)-JVS(36039)*X(5250)-JVS(36040)*X(5251)-JVS(36041)*X(5252)-JVS(36042)*X(5253)& - &-JVS(36043)*X(5254)-JVS(36044)*X(5255)-JVS(36045)*X(5256)-JVS(36046)*X(5258))/(JVS(36037)) - X(5193) = (X(5193)-JVS(35996)*X(5200)-JVS(35997)*X(5202)-JVS(35998)*X(5203)-JVS(35999)*X(5208)-JVS(36000)*X(5227)& - &-JVS(36001)*X(5229)-JVS(36002)*X(5230)-JVS(36003)*X(5238)-JVS(36004)*X(5250)-JVS(36005)*X(5251)-JVS(36006)& - &*X(5252)-JVS(36007)*X(5253)-JVS(36008)*X(5254)-JVS(36009)*X(5255)-JVS(36010)*X(5256)-JVS(36011)*X(5258))& - &/(JVS(35995)) - X(5192) = (X(5192)-JVS(35713)*X(5238)-JVS(35714)*X(5250)-JVS(35715)*X(5252)-JVS(35716)*X(5253)-JVS(35717)*X(5255)& - &-JVS(35718)*X(5256))/(JVS(35712)) - X(5191) = (X(5191)-JVS(35693)*X(5192)-JVS(35694)*X(5208)-JVS(35695)*X(5229)-JVS(35696)*X(5230)-JVS(35697)*X(5238)& - &-JVS(35698)*X(5250)-JVS(35699)*X(5251)-JVS(35700)*X(5252)-JVS(35701)*X(5253)-JVS(35702)*X(5254)-JVS(35703)& - &*X(5255)-JVS(35704)*X(5256)-JVS(35705)*X(5258))/(JVS(35692)) - X(5190) = (X(5190)-JVS(35591)*X(5238)-JVS(35592)*X(5250)-JVS(35593)*X(5252)-JVS(35594)*X(5255)-JVS(35595)*X(5256)& - &-JVS(35596)*X(5258))/(JVS(35590)) - X(5189) = (X(5189)-JVS(35581)*X(5236)-JVS(35582)*X(5250)-JVS(35583)*X(5252)-JVS(35584)*X(5253)-JVS(35585)*X(5255)& - &-JVS(35586)*X(5256)-JVS(35587)*X(5258))/(JVS(35580)) - X(5188) = (X(5188)-JVS(35544)*X(5189)-JVS(35545)*X(5200)-JVS(35546)*X(5202)-JVS(35547)*X(5203)-JVS(35548)*X(5204)& - &-JVS(35549)*X(5205)-JVS(35550)*X(5212)-JVS(35551)*X(5217)-JVS(35552)*X(5218)-JVS(35553)*X(5219)-JVS(35554)& - &*X(5221)-JVS(35555)*X(5224)-JVS(35556)*X(5226)-JVS(35557)*X(5229)-JVS(35558)*X(5238)-JVS(35559)*X(5241)& - &-JVS(35560)*X(5245)-JVS(35561)*X(5250)-JVS(35562)*X(5251)-JVS(35563)*X(5252)-JVS(35564)*X(5253)-JVS(35565)& - &*X(5254)-JVS(35566)*X(5255)-JVS(35567)*X(5256)-JVS(35568)*X(5258))/(JVS(35543)) - X(5187) = (X(5187)-JVS(35450)*X(5250)-JVS(35451)*X(5252)-JVS(35452)*X(5253)-JVS(35453)*X(5255)-JVS(35454)*X(5256)& - &-JVS(35455)*X(5258))/(JVS(35449)) - X(5186) = (X(5186)-JVS(35441)*X(5238)-JVS(35442)*X(5250)-JVS(35443)*X(5252)-JVS(35444)*X(5255)-JVS(35445)*X(5256))& - &/(JVS(35440)) - X(5185) = (X(5185)-JVS(35432)*X(5186)-JVS(35433)*X(5238)-JVS(35434)*X(5250)-JVS(35435)*X(5252)-JVS(35436)*X(5253)& - &-JVS(35437)*X(5255)-JVS(35438)*X(5256))/(JVS(35431)) - X(5184) = (X(5184)-JVS(35401)*X(5185)-JVS(35402)*X(5186)-JVS(35403)*X(5187)-JVS(35404)*X(5192)-JVS(35405)*X(5206)& - &-JVS(35406)*X(5207)-JVS(35407)*X(5208)-JVS(35408)*X(5229)-JVS(35409)*X(5238)-JVS(35410)*X(5248)-JVS(35411)& - &*X(5249)-JVS(35412)*X(5250)-JVS(35413)*X(5252)-JVS(35414)*X(5253)-JVS(35415)*X(5255)-JVS(35416)*X(5256)& - &-JVS(35417)*X(5257)-JVS(35418)*X(5258))/(JVS(35400)) - X(5183) = (X(5183)-JVS(35345)*X(5185)-JVS(35346)*X(5186)-JVS(35347)*X(5191)-JVS(35348)*X(5192)-JVS(35349)*X(5208)& - &-JVS(35350)*X(5238)-JVS(35351)*X(5250)-JVS(35352)*X(5251)-JVS(35353)*X(5252)-JVS(35354)*X(5253)-JVS(35355)& - &*X(5254)-JVS(35356)*X(5255)-JVS(35357)*X(5256)-JVS(35358)*X(5258))/(JVS(35344)) - X(5182) = (X(5182)-JVS(35129)*X(5198)-JVS(35130)*X(5207)-JVS(35131)*X(5213)-JVS(35132)*X(5215)-JVS(35133)*X(5238)& - &-JVS(35134)*X(5240)-JVS(35135)*X(5248)-JVS(35136)*X(5249)-JVS(35137)*X(5250)-JVS(35138)*X(5251)-JVS(35139)& - &*X(5252)-JVS(35140)*X(5253)-JVS(35141)*X(5254)-JVS(35142)*X(5255)-JVS(35143)*X(5256)-JVS(35144)*X(5257)& - &-JVS(35145)*X(5258))/(JVS(35128)) - X(5181) = (X(5181)-JVS(35052)*X(5238)-JVS(35053)*X(5250)-JVS(35054)*X(5252)-JVS(35055)*X(5255)-JVS(35056)*X(5256))& - &/(JVS(35051)) - X(5180) = (X(5180)-JVS(35036)*X(5181)-JVS(35037)*X(5194)-JVS(35038)*X(5217)-JVS(35039)*X(5218)-JVS(35040)*X(5219)& - &-JVS(35041)*X(5230)-JVS(35042)*X(5250)-JVS(35043)*X(5251)-JVS(35044)*X(5252)-JVS(35045)*X(5253)-JVS(35046)& - &*X(5254)-JVS(35047)*X(5255)-JVS(35048)*X(5256)-JVS(35049)*X(5258))/(JVS(35035)) - X(5179) = (X(5179)-JVS(34995)*X(5196)-JVS(34996)*X(5206)-JVS(34997)*X(5211)-JVS(34998)*X(5212)-JVS(34999)*X(5245)& - &-JVS(35000)*X(5247)-JVS(35001)*X(5250)-JVS(35002)*X(5251)-JVS(35003)*X(5252)-JVS(35004)*X(5253)-JVS(35005)& - &*X(5254)-JVS(35006)*X(5255)-JVS(35007)*X(5256)-JVS(35008)*X(5258))/(JVS(34994)) - X(5178) = (X(5178)-JVS(34956)*X(5238)-JVS(34957)*X(5250)-JVS(34958)*X(5251)-JVS(34959)*X(5252)-JVS(34960)*X(5253)& - &-JVS(34961)*X(5254)-JVS(34962)*X(5255)-JVS(34963)*X(5256)-JVS(34964)*X(5258))/(JVS(34955)) - X(5177) = (X(5177)-JVS(34902)*X(5189)-JVS(34903)*X(5196)-JVS(34904)*X(5236)-JVS(34905)*X(5250)-JVS(34906)*X(5252)& - &-JVS(34907)*X(5253)-JVS(34908)*X(5255)-JVS(34909)*X(5256)-JVS(34910)*X(5258))/(JVS(34901)) - X(5176) = (X(5176)-JVS(34875)*X(5250)-JVS(34876)*X(5251)-JVS(34877)*X(5252)-JVS(34878)*X(5253)-JVS(34879)*X(5254)& - &-JVS(34880)*X(5255)-JVS(34881)*X(5256)-JVS(34882)*X(5258))/(JVS(34874)) - X(5175) = (X(5175)-JVS(34849)*X(5250)-JVS(34850)*X(5252)-JVS(34851)*X(5255)-JVS(34852)*X(5256)-JVS(34853)*X(5258))& - &/(JVS(34848)) - X(5174) = (X(5174)-JVS(34836)*X(5219)-JVS(34837)*X(5220)-JVS(34838)*X(5224)-JVS(34839)*X(5250)-JVS(34840)*X(5252)& - &-JVS(34841)*X(5255)-JVS(34842)*X(5256))/(JVS(34835)) - X(5173) = (X(5173)-JVS(34827)*X(5217)-JVS(34828)*X(5218)-JVS(34829)*X(5250)-JVS(34830)*X(5252)-JVS(34831)*X(5255)& - &-JVS(34832)*X(5256)-JVS(34833)*X(5258))/(JVS(34826)) - X(5172) = (X(5172)-JVS(34806)*X(5173)-JVS(34807)*X(5174)-JVS(34808)*X(5205)-JVS(34809)*X(5209)-JVS(34810)*X(5217)& - &-JVS(34811)*X(5219)-JVS(34812)*X(5220)-JVS(34813)*X(5221)-JVS(34814)*X(5224)-JVS(34815)*X(5250)-JVS(34816)& - &*X(5252)-JVS(34817)*X(5253)-JVS(34818)*X(5255)-JVS(34819)*X(5256)-JVS(34820)*X(5258))/(JVS(34805)) - X(5171) = (X(5171)-JVS(34772)*X(5175)-JVS(34773)*X(5185)-JVS(34774)*X(5186)-JVS(34775)*X(5187)-JVS(34776)*X(5196)& - &-JVS(34777)*X(5198)-JVS(34778)*X(5213)-JVS(34779)*X(5236)-JVS(34780)*X(5238)-JVS(34781)*X(5250)-JVS(34782)& - &*X(5252)-JVS(34783)*X(5253)-JVS(34784)*X(5255)-JVS(34785)*X(5256)-JVS(34786)*X(5258))/(JVS(34771)) - X(5170) = (X(5170)-JVS(34738)*X(5181)-JVS(34739)*X(5194)-JVS(34740)*X(5204)-JVS(34741)*X(5205)-JVS(34742)*X(5209)& - &-JVS(34743)*X(5217)-JVS(34744)*X(5220)-JVS(34745)*X(5250)-JVS(34746)*X(5251)-JVS(34747)*X(5252)-JVS(34748)& - &*X(5253)-JVS(34749)*X(5254)-JVS(34750)*X(5255)-JVS(34751)*X(5256)-JVS(34752)*X(5258))/(JVS(34737)) - X(5169) = (X(5169)-JVS(34710)*X(5250)-JVS(34711)*X(5251)-JVS(34712)*X(5252)-JVS(34713)*X(5253)-JVS(34714)*X(5254)& - &-JVS(34715)*X(5255)-JVS(34716)*X(5256)-JVS(34717)*X(5258))/(JVS(34709)) - X(5168) = (X(5168)-JVS(34690)*X(5204)-JVS(34691)*X(5224)-JVS(34692)*X(5250)-JVS(34693)*X(5252)-JVS(34694)*X(5255)& - &-JVS(34695)*X(5256)-JVS(34696)*X(5258))/(JVS(34689)) - X(5167) = (X(5167)-JVS(34677)*X(5173)-JVS(34678)*X(5205)-JVS(34679)*X(5219)-JVS(34680)*X(5250)-JVS(34681)*X(5252)& - &-JVS(34682)*X(5253)-JVS(34683)*X(5255)-JVS(34684)*X(5256)-JVS(34685)*X(5258))/(JVS(34676)) - X(5166) = (X(5166)-JVS(34664)*X(5250)-JVS(34665)*X(5256)-JVS(34666)*X(5258))/(JVS(34663)) - X(5165) = (X(5165)-JVS(34654)*X(5238)-JVS(34655)*X(5250)-JVS(34656)*X(5251)-JVS(34657)*X(5252)-JVS(34658)*X(5253)& - &-JVS(34659)*X(5254)-JVS(34660)*X(5255)-JVS(34661)*X(5256)-JVS(34662)*X(5258))/(JVS(34653)) - X(5164) = (X(5164)-JVS(34609)*X(5186)-JVS(34610)*X(5190)-JVS(34611)*X(5192)-JVS(34612)*X(5230)-JVS(34613)*X(5238)& - &-JVS(34614)*X(5250)-JVS(34615)*X(5252)-JVS(34616)*X(5253)-JVS(34617)*X(5255)-JVS(34618)*X(5256)-JVS(34619)& - &*X(5258))/(JVS(34608)) - X(5163) = (X(5163)-JVS(34584)*X(5238)-JVS(34585)*X(5250)-JVS(34586)*X(5252)-JVS(34587)*X(5253)-JVS(34588)*X(5255)& - &-JVS(34589)*X(5256))/(JVS(34583)) - X(5162) = (X(5162)-JVS(34569)*X(5238)-JVS(34570)*X(5250)-JVS(34571)*X(5252)-JVS(34572)*X(5253)-JVS(34573)*X(5255)& - &-JVS(34574)*X(5256))/(JVS(34568)) - X(5161) = (X(5161)-JVS(34544)*X(5186)-JVS(34545)*X(5238)-JVS(34546)*X(5250)-JVS(34547)*X(5252)-JVS(34548)*X(5253)& - &-JVS(34549)*X(5255)-JVS(34550)*X(5256))/(JVS(34543)) - X(5160) = (X(5160)-JVS(34488)*X(5166)-JVS(34489)*X(5186)-JVS(34490)*X(5190)-JVS(34491)*X(5192)-JVS(34492)*X(5198)& - &-JVS(34493)*X(5203)-JVS(34494)*X(5206)-JVS(34495)*X(5207)-JVS(34496)*X(5213)-JVS(34497)*X(5215)-JVS(34498)& - &*X(5226)-JVS(34499)*X(5230)-JVS(34500)*X(5238)-JVS(34501)*X(5239)-JVS(34502)*X(5240)-JVS(34503)*X(5243)& - &-JVS(34504)*X(5245)-JVS(34505)*X(5247)-JVS(34506)*X(5248)-JVS(34507)*X(5249)-JVS(34508)*X(5250)-JVS(34509)& - &*X(5251)-JVS(34510)*X(5252)-JVS(34511)*X(5253)-JVS(34512)*X(5254)-JVS(34513)*X(5255)-JVS(34514)*X(5256)& - &-JVS(34515)*X(5257)-JVS(34516)*X(5258))/(JVS(34487)) - X(5159) = (X(5159)-JVS(34260)*X(5213)-JVS(34261)*X(5250)-JVS(34262)*X(5252)-JVS(34263)*X(5255)-JVS(34264)*X(5256)& - &-JVS(34265)*X(5258))/(JVS(34259)) - X(5158) = (X(5158)-JVS(34239)*X(5163)-JVS(34240)*X(5166)-JVS(34241)*X(5186)-JVS(34242)*X(5190)-JVS(34243)*X(5192)& - &-JVS(34244)*X(5238)-JVS(34245)*X(5242)-JVS(34246)*X(5245)-JVS(34247)*X(5250)-JVS(34248)*X(5252)-JVS(34249)& - &*X(5253)-JVS(34250)*X(5255)-JVS(34251)*X(5256)-JVS(34252)*X(5258))/(JVS(34238)) - X(5157) = (X(5157)-JVS(34190)*X(5186)-JVS(34191)*X(5238)-JVS(34192)*X(5250)-JVS(34193)*X(5252)-JVS(34194)*X(5253)& - &-JVS(34195)*X(5255)-JVS(34196)*X(5256)-JVS(34197)*X(5258))/(JVS(34189)) - X(5156) = (X(5156)-JVS(34163)*X(5204)-JVS(34164)*X(5205)-JVS(34165)*X(5209)-JVS(34166)*X(5217)-JVS(34167)*X(5220)& - &-JVS(34168)*X(5226)-JVS(34169)*X(5250)-JVS(34170)*X(5251)-JVS(34171)*X(5252)-JVS(34172)*X(5253)-JVS(34173)& - &*X(5254)-JVS(34174)*X(5255)-JVS(34175)*X(5256)-JVS(34176)*X(5258))/(JVS(34162)) - X(5155) = (X(5155)-JVS(34145)*X(5173)-JVS(34146)*X(5219)-JVS(34147)*X(5221)-JVS(34148)*X(5250)-JVS(34149)*X(5252)& - &-JVS(34150)*X(5253)-JVS(34151)*X(5255)-JVS(34152)*X(5256)-JVS(34153)*X(5258))/(JVS(34144)) - X(5154) = (X(5154)-JVS(34131)*X(5219)-JVS(34132)*X(5250)-JVS(34133)*X(5252)-JVS(34134)*X(5255)-JVS(34135)*X(5258))& - &/(JVS(34130)) - X(5153) = (X(5153)-JVS(34122)*X(5181)-JVS(34123)*X(5250)-JVS(34124)*X(5252)-JVS(34125)*X(5255)-JVS(34126)*X(5256)& - &-JVS(34127)*X(5258))/(JVS(34121)) - X(5152) = (X(5152)-JVS(34104)*X(5153)-JVS(34105)*X(5154)-JVS(34106)*X(5162)-JVS(34107)*X(5166)-JVS(34108)*X(5173)& - &-JVS(34109)*X(5180)-JVS(34110)*X(5190)-JVS(34111)*X(5194)-JVS(34112)*X(5250)-JVS(34113)*X(5252)-JVS(34114)& - &*X(5253)-JVS(34115)*X(5255)-JVS(34116)*X(5256)-JVS(34117)*X(5258))/(JVS(34103)) - X(5151) = (X(5151)-JVS(34062)*X(5192)-JVS(34063)*X(5238)-JVS(34064)*X(5250)-JVS(34065)*X(5252)-JVS(34066)*X(5253)& - &-JVS(34067)*X(5255)-JVS(34068)*X(5256))/(JVS(34061)) - X(5150) = (X(5150)-JVS(34040)*X(5163)-JVS(34041)*X(5192)-JVS(34042)*X(5238)-JVS(34043)*X(5250)-JVS(34044)*X(5252)& - &-JVS(34045)*X(5253)-JVS(34046)*X(5255)-JVS(34047)*X(5256))/(JVS(34039)) - X(5149) = (X(5149)-JVS(34018)*X(5162)-JVS(34019)*X(5165)-JVS(34020)*X(5185)-JVS(34021)*X(5186)-JVS(34022)*X(5238)& - &-JVS(34023)*X(5250)-JVS(34024)*X(5252)-JVS(34025)*X(5253)-JVS(34026)*X(5255)-JVS(34027)*X(5256)-JVS(34028)& - &*X(5258))/(JVS(34017)) - X(5148) = (X(5148)-JVS(33998)*X(5238)-JVS(33999)*X(5250)-JVS(34000)*X(5252)-JVS(34001)*X(5253)-JVS(34002)*X(5255)& - &-JVS(34003)*X(5256))/(JVS(33997)) - X(5147) = (X(5147)-JVS(33978)*X(5238)-JVS(33979)*X(5250)-JVS(33980)*X(5252)-JVS(33981)*X(5253)-JVS(33982)*X(5255)& - &-JVS(33983)*X(5256))/(JVS(33977)) - X(5146) = (X(5146)-JVS(33962)*X(5238)-JVS(33963)*X(5250)-JVS(33964)*X(5252)-JVS(33965)*X(5255)-JVS(33966)*X(5256))& - &/(JVS(33961)) - X(5145) = (X(5145)-JVS(33945)*X(5146)-JVS(33946)*X(5151)-JVS(33947)*X(5186)-JVS(33948)*X(5190)-JVS(33949)*X(5203)& - &-JVS(33950)*X(5230)-JVS(33951)*X(5238)-JVS(33952)*X(5250)-JVS(33953)*X(5251)-JVS(33954)*X(5252)-JVS(33955)& - &*X(5253)-JVS(33956)*X(5254)-JVS(33957)*X(5255)-JVS(33958)*X(5256)-JVS(33959)*X(5258))/(JVS(33944)) - X(5144) = (X(5144)-JVS(33902)*X(5238)-JVS(33903)*X(5250)-JVS(33904)*X(5252)-JVS(33905)*X(5255)-JVS(33906)*X(5256))& - &/(JVS(33901)) - X(5143) = (X(5143)-JVS(33887)*X(5144)-JVS(33888)*X(5161)-JVS(33889)*X(5165)-JVS(33890)*X(5185)-JVS(33891)*X(5186)& - &-JVS(33892)*X(5238)-JVS(33893)*X(5250)-JVS(33894)*X(5252)-JVS(33895)*X(5253)-JVS(33896)*X(5255)-JVS(33897)& - &*X(5256))/(JVS(33886)) - X(5142) = (X(5142)-JVS(33816)*X(5147)-JVS(33817)*X(5162)-JVS(33818)*X(5178)-JVS(33819)*X(5183)-JVS(33820)*X(5186)& - &-JVS(33821)*X(5191)-JVS(33822)*X(5238)-JVS(33823)*X(5250)-JVS(33824)*X(5251)-JVS(33825)*X(5252)-JVS(33826)& - &*X(5253)-JVS(33827)*X(5254)-JVS(33828)*X(5255)-JVS(33829)*X(5256)-JVS(33830)*X(5258))/(JVS(33815)) - X(5141) = (X(5141)-JVS(33753)*X(5250)-JVS(33754)*X(5252)-JVS(33755)*X(5253)-JVS(33756)*X(5255)-JVS(33757)*X(5256)& - &-JVS(33758)*X(5258))/(JVS(33752)) - X(5140) = (X(5140)-JVS(33730)*X(5186)-JVS(33731)*X(5238)-JVS(33732)*X(5250)-JVS(33733)*X(5252)-JVS(33734)*X(5253)& - &-JVS(33735)*X(5255)-JVS(33736)*X(5256))/(JVS(33729)) - X(5139) = (X(5139)-JVS(33699)*X(5140)-JVS(33700)*X(5141)-JVS(33701)*X(5143)-JVS(33702)*X(5144)-JVS(33703)*X(5149)& - &-JVS(33704)*X(5157)-JVS(33705)*X(5162)-JVS(33706)*X(5178)-JVS(33707)*X(5208)-JVS(33708)*X(5238)-JVS(33709)& - &*X(5250)-JVS(33710)*X(5251)-JVS(33711)*X(5252)-JVS(33712)*X(5253)-JVS(33713)*X(5254)-JVS(33714)*X(5255)& - &-JVS(33715)*X(5256)-JVS(33716)*X(5258))/(JVS(33698)) - X(5138) = (X(5138)-JVS(33576)*X(5238)-JVS(33577)*X(5250)-JVS(33578)*X(5252)-JVS(33579)*X(5255)-JVS(33580)*X(5256))& - &/(JVS(33575)) - X(5137) = (X(5137)-JVS(33563)*X(5138)-JVS(33564)*X(5140)-JVS(33565)*X(5143)-JVS(33566)*X(5144)-JVS(33567)*X(5238)& - &-JVS(33568)*X(5250)-JVS(33569)*X(5252)-JVS(33570)*X(5253)-JVS(33571)*X(5255)-JVS(33572)*X(5256)-JVS(33573)& - &*X(5258))/(JVS(33562)) - X(5136) = (X(5136)-JVS(33513)*X(5138)-JVS(33514)*X(5165)-JVS(33515)*X(5185)-JVS(33516)*X(5186)-JVS(33517)*X(5238)& - &-JVS(33518)*X(5250)-JVS(33519)*X(5252)-JVS(33520)*X(5253)-JVS(33521)*X(5255)-JVS(33522)*X(5256)-JVS(33523)& - &*X(5258))/(JVS(33512)) - X(5135) = (X(5135)-JVS(33488)*X(5238)-JVS(33489)*X(5250)-JVS(33490)*X(5252)-JVS(33491)*X(5253)-JVS(33492)*X(5255)& - &-JVS(33493)*X(5256)-JVS(33494)*X(5258))/(JVS(33487)) - X(5134) = (X(5134)-JVS(33471)*X(5166)-JVS(33472)*X(5189)-JVS(33473)*X(5204)-JVS(33474)*X(5219)-JVS(33475)*X(5224)& - &-JVS(33476)*X(5250)-JVS(33477)*X(5252)-JVS(33478)*X(5253)-JVS(33479)*X(5255)-JVS(33480)*X(5256))/(JVS(33470)) - X(5133) = (X(5133)-JVS(33452)*X(5154)-JVS(33453)*X(5155)-JVS(33454)*X(5167)-JVS(33455)*X(5174)-JVS(33456)*X(5221)& - &-JVS(33457)*X(5250)-JVS(33458)*X(5252)-JVS(33459)*X(5253)-JVS(33460)*X(5255)-JVS(33461)*X(5256))/(JVS(33451)) - X(5132) = (X(5132)-JVS(33442)*X(5166)-JVS(33443)*X(5250)-JVS(33444)*X(5252)-JVS(33445)*X(5255)-JVS(33446)*X(5256))& - &/(JVS(33441)) - X(5131) = (X(5131)-JVS(33430)*X(5248)-JVS(33431)*X(5249)-JVS(33432)*X(5250)-JVS(33433)*X(5251)-JVS(33434)*X(5252)& - &-JVS(33435)*X(5253)-JVS(33436)*X(5254)-JVS(33437)*X(5255)-JVS(33438)*X(5256)-JVS(33439)*X(5257)-JVS(33440)& - &*X(5258))/(JVS(33429)) - X(5130) = (X(5130)-JVS(33407)*X(5240)-JVS(33408)*X(5247)-JVS(33409)*X(5248)-JVS(33410)*X(5249)-JVS(33411)*X(5250)& - &-JVS(33412)*X(5252)-JVS(33413)*X(5253)-JVS(33414)*X(5255)-JVS(33415)*X(5256)-JVS(33416)*X(5258))/(JVS(33406)) - X(5129) = (X(5129)-JVS(33379)*X(5130)-JVS(33380)*X(5146)-JVS(33381)*X(5148)-JVS(33382)*X(5215)-JVS(33383)*X(5238)& - &-JVS(33384)*X(5239)-JVS(33385)*X(5250)-JVS(33386)*X(5252)-JVS(33387)*X(5253)-JVS(33388)*X(5255)-JVS(33389)& - &*X(5256)-JVS(33390)*X(5258))/(JVS(33378)) - X(5128) = (X(5128)-JVS(33346)*X(5187)-JVS(33347)*X(5212)-JVS(33348)*X(5226)-JVS(33349)*X(5250)-JVS(33350)*X(5252)& - &-JVS(33351)*X(5253)-JVS(33352)*X(5255)-JVS(33353)*X(5256)-JVS(33354)*X(5258))/(JVS(33345)) - X(5127) = (X(5127)-JVS(33328)*X(5148)-JVS(33329)*X(5163)-JVS(33330)*X(5166)-JVS(33331)*X(5192)-JVS(33332)*X(5250)& - &-JVS(33333)*X(5252)-JVS(33334)*X(5255)-JVS(33335)*X(5256)-JVS(33336)*X(5258))/(JVS(33327)) - X(5126) = (X(5126)-JVS(33318)*X(5250)-JVS(33319)*X(5252)-JVS(33320)*X(5253)-JVS(33321)*X(5255)-JVS(33322)*X(5256)& - &-JVS(33323)*X(5258))/(JVS(33317)) - X(5125) = (X(5125)-JVS(33290)*X(5186)-JVS(33291)*X(5190)-JVS(33292)*X(5230)-JVS(33293)*X(5238)-JVS(33294)*X(5250)& - &-JVS(33295)*X(5251)-JVS(33296)*X(5252)-JVS(33297)*X(5253)-JVS(33298)*X(5254)-JVS(33299)*X(5255)-JVS(33300)& - &*X(5256)-JVS(33301)*X(5258))/(JVS(33289)) - X(5124) = (X(5124)-JVS(33217)*X(5153)-JVS(33218)*X(5181)-JVS(33219)*X(5194)-JVS(33220)*X(5230)-JVS(33221)*X(5250)& - &-JVS(33222)*X(5252)-JVS(33223)*X(5255)-JVS(33224)*X(5256)-JVS(33225)*X(5258))/(JVS(33216)) - X(5123) = (X(5123)-JVS(33204)*X(5250)-JVS(33205)*X(5252)-JVS(33206)*X(5253)-JVS(33207)*X(5255)-JVS(33208)*X(5256)& - &-JVS(33209)*X(5258))/(JVS(33203)) - X(5122) = (X(5122)-JVS(33164)*X(5249)-JVS(33165)*X(5250)-JVS(33166)*X(5251)-JVS(33167)*X(5252)-JVS(33168)*X(5253)& - &-JVS(33169)*X(5254)-JVS(33170)*X(5255)-JVS(33171)*X(5256)-JVS(33172)*X(5258))/(JVS(33163)) - X(5121) = (X(5121)-JVS(33147)*X(5147)-JVS(33148)*X(5200)-JVS(33149)*X(5203)-JVS(33150)*X(5229)-JVS(33151)*X(5238)& - &-JVS(33152)*X(5250)-JVS(33153)*X(5252)-JVS(33154)*X(5253)-JVS(33155)*X(5255)-JVS(33156)*X(5256))/(JVS(33146)) - X(5120) = (X(5120)-JVS(33127)*X(5238)-JVS(33128)*X(5250)-JVS(33129)*X(5252)-JVS(33130)*X(5253)-JVS(33131)*X(5255)& - &-JVS(33132)*X(5256))/(JVS(33126)) - X(5119) = (X(5119)-JVS(33115)*X(5238)-JVS(33116)*X(5250)-JVS(33117)*X(5252)-JVS(33118)*X(5255)-JVS(33119)*X(5256))& - &/(JVS(33114)) - X(5118) = (X(5118)-JVS(33103)*X(5166)-JVS(33104)*X(5204)-JVS(33105)*X(5224)-JVS(33106)*X(5250)-JVS(33107)*X(5252)& - &-JVS(33108)*X(5255)-JVS(33109)*X(5256))/(JVS(33102)) - X(5117) = (X(5117)-JVS(33092)*X(5119)-JVS(33093)*X(5147)-JVS(33094)*X(5238)-JVS(33095)*X(5250)-JVS(33096)*X(5252)& - &-JVS(33097)*X(5253)-JVS(33098)*X(5255)-JVS(33099)*X(5256))/(JVS(33091)) - X(5116) = (X(5116)-JVS(33070)*X(5119)-JVS(33071)*X(5238)-JVS(33072)*X(5250)-JVS(33073)*X(5252)-JVS(33074)*X(5253)& - &-JVS(33075)*X(5255)-JVS(33076)*X(5256))/(JVS(33069)) - X(5115) = (X(5115)-JVS(33052)*X(5138)-JVS(33053)*X(5186)-JVS(33054)*X(5238)-JVS(33055)*X(5250)-JVS(33056)*X(5252)& - &-JVS(33057)*X(5253)-JVS(33058)*X(5255)-JVS(33059)*X(5256))/(JVS(33051)) - X(5114) = (X(5114)-JVS(33034)*X(5248)-JVS(33035)*X(5249)-JVS(33036)*X(5250)-JVS(33037)*X(5252)-JVS(33038)*X(5253)& - &-JVS(33039)*X(5255)-JVS(33040)*X(5256)-JVS(33041)*X(5258))/(JVS(33033)) - X(5113) = (X(5113)-JVS(33022)*X(5181)-JVS(33023)*X(5236)-JVS(33024)*X(5250)-JVS(33025)*X(5252)-JVS(33026)*X(5253)& - &-JVS(33027)*X(5255)-JVS(33028)*X(5256)-JVS(33029)*X(5258))/(JVS(33021)) - X(5112) = (X(5112)-JVS(33007)*X(5238)-JVS(33008)*X(5250)-JVS(33009)*X(5252)-JVS(33010)*X(5255)-JVS(33011)*X(5256))& - &/(JVS(33006)) - X(5111) = (X(5111)-JVS(32993)*X(5159)-JVS(32994)*X(5181)-JVS(32995)*X(5213)-JVS(32996)*X(5215)-JVS(32997)*X(5250)& - &-JVS(32998)*X(5252)-JVS(32999)*X(5253)-JVS(33000)*X(5255)-JVS(33001)*X(5256)-JVS(33002)*X(5258))/(JVS(32992)) - X(5110) = (X(5110)-JVS(32973)*X(5146)-JVS(32974)*X(5157)-JVS(32975)*X(5186)-JVS(32976)*X(5238)-JVS(32977)*X(5250)& - &-JVS(32978)*X(5252)-JVS(32979)*X(5255)-JVS(32980)*X(5256)-JVS(32981)*X(5258))/(JVS(32972)) - X(5109) = (X(5109)-JVS(32946)*X(5238)-JVS(32947)*X(5250)-JVS(32948)*X(5252)-JVS(32949)*X(5255)-JVS(32950)*X(5256))& - &/(JVS(32945)) - X(5108) = (X(5108)-JVS(32938)*X(5238)-JVS(32939)*X(5250)-JVS(32940)*X(5252)-JVS(32941)*X(5255)-JVS(32942)*X(5256))& - &/(JVS(32937)) - X(5107) = (X(5107)-JVS(32927)*X(5238)-JVS(32928)*X(5250)-JVS(32929)*X(5252)-JVS(32930)*X(5255)-JVS(32931)*X(5256))& - &/(JVS(32926)) - X(5106) = (X(5106)-JVS(32914)*X(5146)-JVS(32915)*X(5203)-JVS(32916)*X(5238)-JVS(32917)*X(5250)-JVS(32918)*X(5251)& - &-JVS(32919)*X(5252)-JVS(32920)*X(5253)-JVS(32921)*X(5254)-JVS(32922)*X(5255)-JVS(32923)*X(5256)-JVS(32924)& - &*X(5258))/(JVS(32913)) - X(5105) = (X(5105)-JVS(32868)*X(5161)-JVS(32869)*X(5175)-JVS(32870)*X(5185)-JVS(32871)*X(5187)-JVS(32872)*X(5198)& - &-JVS(32873)*X(5250)-JVS(32874)*X(5252)-JVS(32875)*X(5253)-JVS(32876)*X(5255)-JVS(32877)*X(5256)-JVS(32878)& - &*X(5258))/(JVS(32867)) - X(5104) = (X(5104)-JVS(32850)*X(5206)-JVS(32851)*X(5207)-JVS(32852)*X(5250)-JVS(32853)*X(5252)-JVS(32854)*X(5253)& - &-JVS(32855)*X(5255)-JVS(32856)*X(5256)-JVS(32857)*X(5257)-JVS(32858)*X(5258))/(JVS(32849)) - X(5103) = (X(5103)-JVS(32826)*X(5250)-JVS(32827)*X(5252)-JVS(32828)*X(5253)-JVS(32829)*X(5255)-JVS(32830)*X(5256)& - &-JVS(32831)*X(5258))/(JVS(32825)) - X(5102) = (X(5102)-JVS(32807)*X(5103)-JVS(32808)*X(5123)-JVS(32809)*X(5227)-JVS(32810)*X(5250)-JVS(32811)*X(5251)& - &-JVS(32812)*X(5252)-JVS(32813)*X(5253)-JVS(32814)*X(5254)-JVS(32815)*X(5255)-JVS(32816)*X(5256)-JVS(32817)& - &*X(5258))/(JVS(32806)) - X(5101) = (X(5101)-JVS(32787)*X(5130)-JVS(32788)*X(5146)-JVS(32789)*X(5148)-JVS(32790)*X(5215)-JVS(32791)*X(5238)& - &-JVS(32792)*X(5239)-JVS(32793)*X(5250)-JVS(32794)*X(5252)-JVS(32795)*X(5253)-JVS(32796)*X(5255)-JVS(32797)& - &*X(5256))/(JVS(32786)) - X(5100) = (X(5100)-JVS(32757)*X(5141)-JVS(32758)*X(5204)-JVS(32759)*X(5205)-JVS(32760)*X(5209)-JVS(32761)*X(5210)& - &-JVS(32762)*X(5250)-JVS(32763)*X(5252)-JVS(32764)*X(5253)-JVS(32765)*X(5255)-JVS(32766)*X(5256)-JVS(32767)& - &*X(5258))/(JVS(32756)) - X(5099) = (X(5099)-JVS(32727)*X(5250)-JVS(32728)*X(5252)-JVS(32729)*X(5253)-JVS(32730)*X(5255)-JVS(32731)*X(5256)& - &-JVS(32732)*X(5257)-JVS(32733)*X(5258))/(JVS(32726)) - X(5098) = (X(5098)-JVS(32705)*X(5116)-JVS(32706)*X(5117)-JVS(32707)*X(5119)-JVS(32708)*X(5147)-JVS(32709)*X(5178)& - &-JVS(32710)*X(5238)-JVS(32711)*X(5250)-JVS(32712)*X(5252)-JVS(32713)*X(5253)-JVS(32714)*X(5255)-JVS(32715)& - &*X(5256)-JVS(32716)*X(5258))/(JVS(32704)) - X(5097) = (X(5097)-JVS(32673)*X(5119)-JVS(32674)*X(5238)-JVS(32675)*X(5250)-JVS(32676)*X(5252)-JVS(32677)*X(5253)& - &-JVS(32678)*X(5255)-JVS(32679)*X(5256))/(JVS(32672)) - X(5096) = (X(5096)-JVS(32652)*X(5144)-JVS(32653)*X(5190)-JVS(32654)*X(5250)-JVS(32655)*X(5252)-JVS(32656)*X(5253)& - &-JVS(32657)*X(5255)-JVS(32658)*X(5256))/(JVS(32651)) - X(5095) = (X(5095)-JVS(32641)*X(5236)-JVS(32642)*X(5250)-JVS(32643)*X(5252)-JVS(32644)*X(5253)-JVS(32645)*X(5255)& - &-JVS(32646)*X(5256)-JVS(32647)*X(5258))/(JVS(32640)) - X(5094) = (X(5094)-JVS(32612)*X(5118)-JVS(32613)*X(5168)-JVS(32614)*X(5204)-JVS(32615)*X(5205)-JVS(32616)*X(5217)& - &-JVS(32617)*X(5219)-JVS(32618)*X(5224)-JVS(32619)*X(5226)-JVS(32620)*X(5250)-JVS(32621)*X(5252)-JVS(32622)& - &*X(5253)-JVS(32623)*X(5255)-JVS(32624)*X(5256)-JVS(32625)*X(5258))/(JVS(32611)) - X(5093) = (X(5093)-JVS(32588)*X(5153)-JVS(32589)*X(5166)-JVS(32590)*X(5250)-JVS(32591)*X(5252)-JVS(32592)*X(5255)& - &-JVS(32593)*X(5256)-JVS(32594)*X(5258))/(JVS(32587)) - X(5092) = (X(5092)-JVS(32574)*X(5250)-JVS(32575)*X(5251)-JVS(32576)*X(5252)-JVS(32577)*X(5253)-JVS(32578)*X(5254)& - &-JVS(32579)*X(5256)-JVS(32580)*X(5258))/(JVS(32573)) - X(5091) = (X(5091)-JVS(32565)*X(5217)-JVS(32566)*X(5218)-JVS(32567)*X(5250)-JVS(32568)*X(5252)-JVS(32569)*X(5255)& - &-JVS(32570)*X(5256)-JVS(32571)*X(5258))/(JVS(32564)) - X(5090) = (X(5090)-JVS(32554)*X(5238)-JVS(32555)*X(5250)-JVS(32556)*X(5252)-JVS(32557)*X(5253)-JVS(32558)*X(5255)& - &-JVS(32559)*X(5256))/(JVS(32553)) - X(5089) = (X(5089)-JVS(32542)*X(5250)-JVS(32543)*X(5252)-JVS(32544)*X(5253)-JVS(32545)*X(5255)-JVS(32546)*X(5256)& - &-JVS(32547)*X(5258))/(JVS(32541)) - X(5088) = (X(5088)-JVS(32525)*X(5238)-JVS(32526)*X(5250)-JVS(32527)*X(5252)-JVS(32528)*X(5253)-JVS(32529)*X(5255)& - &-JVS(32530)*X(5256))/(JVS(32524)) - X(5087) = (X(5087)-JVS(32508)*X(5121)-JVS(32509)*X(5164)-JVS(32510)*X(5200)-JVS(32511)*X(5202)-JVS(32512)*X(5203)& - &-JVS(32513)*X(5238)-JVS(32514)*X(5250)-JVS(32515)*X(5252)-JVS(32516)*X(5253)-JVS(32517)*X(5255)-JVS(32518)& - &*X(5256)-JVS(32519)*X(5258))/(JVS(32507)) - X(5086) = (X(5086)-JVS(32483)*X(5181)-JVS(32484)*X(5213)-JVS(32485)*X(5215)-JVS(32486)*X(5250)-JVS(32487)*X(5252)& - &-JVS(32488)*X(5253)-JVS(32489)*X(5255)-JVS(32490)*X(5256)-JVS(32491)*X(5258))/(JVS(32482)) - X(5085) = (X(5085)-JVS(32442)*X(5095)-JVS(32443)*X(5175)-JVS(32444)*X(5196)-JVS(32445)*X(5250)-JVS(32446)*X(5252)& - &-JVS(32447)*X(5253)-JVS(32448)*X(5255)-JVS(32449)*X(5256)-JVS(32450)*X(5258))/(JVS(32441)) - X(5084) = (X(5084)-JVS(32412)*X(5175)-JVS(32413)*X(5250)-JVS(32414)*X(5252)-JVS(32415)*X(5253)-JVS(32416)*X(5255)& - &-JVS(32417)*X(5256)-JVS(32418)*X(5258))/(JVS(32411)) - X(5083) = (X(5083)-JVS(32399)*X(5250)-JVS(32400)*X(5252)-JVS(32401)*X(5253)-JVS(32402)*X(5255)-JVS(32403)*X(5256)& - &-JVS(32404)*X(5258))/(JVS(32398)) - X(5082) = (X(5082)-JVS(32381)*X(5238)-JVS(32382)*X(5250)-JVS(32383)*X(5252)-JVS(32384)*X(5255)-JVS(32385)*X(5256))& - &/(JVS(32380)) - X(5081) = (X(5081)-JVS(32373)*X(5181)-JVS(32374)*X(5250)-JVS(32375)*X(5252)-JVS(32376)*X(5255)-JVS(32377)*X(5256))& - &/(JVS(32372)) - X(5080) = (X(5080)-JVS(32352)*X(5134)-JVS(32353)*X(5154)-JVS(32354)*X(5159)-JVS(32355)*X(5174)-JVS(32356)*X(5177)& - &-JVS(32357)*X(5189)-JVS(32358)*X(5197)-JVS(32359)*X(5217)-JVS(32360)*X(5218)-JVS(32361)*X(5220)-JVS(32362)& - &*X(5224)-JVS(32363)*X(5225)-JVS(32364)*X(5227)-JVS(32365)*X(5250)-JVS(32366)*X(5252)-JVS(32367)*X(5253)& - &-JVS(32368)*X(5255)-JVS(32369)*X(5256)-JVS(32370)*X(5258))/(JVS(32351)) - X(5079) = (X(5079)-JVS(32324)*X(5082)-JVS(32325)*X(5238)-JVS(32326)*X(5245)-JVS(32327)*X(5250)-JVS(32328)*X(5252)& - &-JVS(32329)*X(5253)-JVS(32330)*X(5255)-JVS(32331)*X(5256))/(JVS(32323)) - X(5078) = (X(5078)-JVS(32303)*X(5238)-JVS(32304)*X(5250)-JVS(32305)*X(5252)-JVS(32306)*X(5253)-JVS(32307)*X(5255)& - &-JVS(32308)*X(5256))/(JVS(32302)) - X(5077) = (X(5077)-JVS(32290)*X(5238)-JVS(32291)*X(5250)-JVS(32292)*X(5252)-JVS(32293)*X(5255)-JVS(32294)*X(5256))& - &/(JVS(32289)) - X(5076) = (X(5076)-JVS(32282)*X(5250)-JVS(32283)*X(5252)-JVS(32284)*X(5255)-JVS(32285)*X(5256)-JVS(32286)*X(5258))& - &/(JVS(32281)) - X(5075) = (X(5075)-JVS(32271)*X(5154)-JVS(32272)*X(5174)-JVS(32273)*X(5250)-JVS(32274)*X(5252)-JVS(32275)*X(5253)& - &-JVS(32276)*X(5255)-JVS(32277)*X(5256))/(JVS(32270)) - X(5074) = (X(5074)-JVS(32261)*X(5219)-JVS(32262)*X(5250)-JVS(32263)*X(5252)-JVS(32264)*X(5255)-JVS(32265)*X(5256)& - &-JVS(32266)*X(5258))/(JVS(32260)) - X(5073) = (X(5073)-JVS(32249)*X(5175)-JVS(32250)*X(5176)-JVS(32251)*X(5196)-JVS(32252)*X(5212)-JVS(32253)*X(5250)& - &-JVS(32254)*X(5252)-JVS(32255)*X(5253)-JVS(32256)*X(5255)-JVS(32257)*X(5256))/(JVS(32248)) - X(5072) = (X(5072)-JVS(32234)*X(5215)-JVS(32235)*X(5250)-JVS(32236)*X(5252)-JVS(32237)*X(5253)-JVS(32238)*X(5255)& - &-JVS(32239)*X(5256))/(JVS(32233)) - X(5071) = (X(5071)-JVS(32216)*X(5116)-JVS(32217)*X(5147)-JVS(32218)*X(5203)-JVS(32219)*X(5238)-JVS(32220)*X(5250)& - &-JVS(32221)*X(5252)-JVS(32222)*X(5253)-JVS(32223)*X(5255)-JVS(32224)*X(5256))/(JVS(32215)) - X(5070) = (X(5070)-JVS(32187)*X(5103)-JVS(32188)*X(5126)-JVS(32189)*X(5141)-JVS(32190)*X(5250)-JVS(32191)*X(5251)& - &-JVS(32192)*X(5252)-JVS(32193)*X(5253)-JVS(32194)*X(5254)-JVS(32195)*X(5256)-JVS(32196)*X(5258))/(JVS(32186)) - X(5069) = (X(5069)-JVS(32175)*X(5166)-JVS(32176)*X(5250)-JVS(32177)*X(5252)-JVS(32178)*X(5255)-JVS(32179)*X(5256)& - &-JVS(32180)*X(5258))/(JVS(32174)) - X(5068) = (X(5068)-JVS(32164)*X(5250)-JVS(32165)*X(5252)-JVS(32166)*X(5253)-JVS(32167)*X(5255)-JVS(32168)*X(5256)& - &-JVS(32169)*X(5258))/(JVS(32163)) - X(5067) = (X(5067)-JVS(32146)*X(5126)-JVS(32147)*X(5136)-JVS(32148)*X(5149)-JVS(32149)*X(5162)-JVS(32150)*X(5250)& - &-JVS(32151)*X(5252)-JVS(32152)*X(5253)-JVS(32153)*X(5255)-JVS(32154)*X(5256)-JVS(32155)*X(5258))/(JVS(32145)) - X(5066) = (X(5066)-JVS(32130)*X(5250)-JVS(32131)*X(5252)-JVS(32132)*X(5253)-JVS(32133)*X(5255)-JVS(32134)*X(5256)& - &-JVS(32135)*X(5258))/(JVS(32129)) - X(5065) = (X(5065)-JVS(32117)*X(5238)-JVS(32118)*X(5250)-JVS(32119)*X(5252)-JVS(32120)*X(5255)-JVS(32121)*X(5256))& - &/(JVS(32116)) - X(5064) = (X(5064)-JVS(32110)*X(5238)-JVS(32111)*X(5250)-JVS(32112)*X(5252)-JVS(32113)*X(5255)-JVS(32114)*X(5256))& - &/(JVS(32109)) - X(5063) = (X(5063)-JVS(32094)*X(5238)-JVS(32095)*X(5250)-JVS(32096)*X(5252)-JVS(32097)*X(5255)-JVS(32098)*X(5256))& - &/(JVS(32093)) - X(5062) = (X(5062)-JVS(32077)*X(5147)-JVS(32078)*X(5238)-JVS(32079)*X(5250)-JVS(32080)*X(5252)-JVS(32081)*X(5253)& - &-JVS(32082)*X(5255)-JVS(32083)*X(5256)-JVS(32084)*X(5258))/(JVS(32076)) - X(5061) = (X(5061)-JVS(32059)*X(5238)-JVS(32060)*X(5250)-JVS(32061)*X(5252)-JVS(32062)*X(5255)-JVS(32063)*X(5256))& - &/(JVS(32058)) - X(5060) = (X(5060)-JVS(32046)*X(5077)-JVS(32047)*X(5079)-JVS(32048)*X(5082)-JVS(32049)*X(5238)-JVS(32050)*X(5250)& - &-JVS(32051)*X(5252)-JVS(32052)*X(5253)-JVS(32053)*X(5255)-JVS(32054)*X(5256)-JVS(32055)*X(5258))/(JVS(32045)) - X(5059) = (X(5059)-JVS(32024)*X(5066)-JVS(32025)*X(5068)-JVS(32026)*X(5123)-JVS(32027)*X(5126)-JVS(32028)*X(5250)& - &-JVS(32029)*X(5251)-JVS(32030)*X(5252)-JVS(32031)*X(5253)-JVS(32032)*X(5254)-JVS(32033)*X(5255)-JVS(32034)& - &*X(5256)-JVS(32035)*X(5258))/(JVS(32023)) - X(5058) = (X(5058)-JVS(31991)*X(5250)-JVS(31992)*X(5252)-JVS(31993)*X(5253)-JVS(31994)*X(5255)-JVS(31995)*X(5256)& - &-JVS(31996)*X(5258))/(JVS(31990)) - X(5057) = (X(5057)-JVS(31963)*X(5077)-JVS(31964)*X(5082)-JVS(31965)*X(5090)-JVS(31966)*X(5146)-JVS(31967)*X(5148)& - &-JVS(31968)*X(5238)-JVS(31969)*X(5239)-JVS(31970)*X(5250)-JVS(31971)*X(5252)-JVS(31972)*X(5253)-JVS(31973)& - &*X(5255)-JVS(31974)*X(5256))/(JVS(31962)) - X(5056) = (X(5056)-JVS(31946)*X(5238)-JVS(31947)*X(5250)-JVS(31948)*X(5252)-JVS(31949)*X(5255)-JVS(31950)*X(5256))& - &/(JVS(31945)) - X(5055) = (X(5055)-JVS(31932)*X(5120)-JVS(31933)*X(5146)-JVS(31934)*X(5150)-JVS(31935)*X(5163)-JVS(31936)*X(5192)& - &-JVS(31937)*X(5230)-JVS(31938)*X(5250)-JVS(31939)*X(5252)-JVS(31940)*X(5253)-JVS(31941)*X(5255)-JVS(31942)& - &*X(5256))/(JVS(31931)) - X(5054) = (X(5054)-JVS(31909)*X(5175)-JVS(31910)*X(5187)-JVS(31911)*X(5250)-JVS(31912)*X(5252)-JVS(31913)*X(5253)& - &-JVS(31914)*X(5255)-JVS(31915)*X(5256)-JVS(31916)*X(5258))/(JVS(31908)) - X(5053) = (X(5053)-JVS(31890)*X(5135)-JVS(31891)*X(5137)-JVS(31892)*X(5140)-JVS(31893)*X(5143)-JVS(31894)*X(5157)& - &-JVS(31895)*X(5178)-JVS(31896)*X(5250)-JVS(31897)*X(5252)-JVS(31898)*X(5255)-JVS(31899)*X(5256)-JVS(31900)& - &*X(5258))/(JVS(31889)) - X(5052) = (X(5052)-JVS(31872)*X(5248)-JVS(31873)*X(5249)-JVS(31874)*X(5250)-JVS(31875)*X(5252)-JVS(31876)*X(5253)& - &-JVS(31877)*X(5255)-JVS(31878)*X(5256)-JVS(31879)*X(5258))/(JVS(31871)) - X(5051) = (X(5051)-JVS(31860)*X(5162)-JVS(31861)*X(5250)-JVS(31862)*X(5256)-JVS(31863)*X(5258))/(JVS(31859)) - X(5050) = (X(5050)-JVS(31853)*X(5153)-JVS(31854)*X(5250)-JVS(31855)*X(5252)-JVS(31856)*X(5255)-JVS(31857)*X(5256)& - &-JVS(31858)*X(5258))/(JVS(31852)) - X(5049) = (X(5049)-JVS(31842)*X(5153)-JVS(31843)*X(5250)-JVS(31844)*X(5252)-JVS(31845)*X(5255)-JVS(31846)*X(5256)& - &-JVS(31847)*X(5258))/(JVS(31841)) - X(5048) = (X(5048)-JVS(31828)*X(5250)-JVS(31829)*X(5251)-JVS(31830)*X(5252)-JVS(31831)*X(5253)-JVS(31832)*X(5254)& - &-JVS(31833)*X(5256)-JVS(31834)*X(5258))/(JVS(31827)) - X(5047) = (X(5047)-JVS(31817)*X(5204)-JVS(31818)*X(5217)-JVS(31819)*X(5250)-JVS(31820)*X(5251)-JVS(31821)*X(5252)& - &-JVS(31822)*X(5253)-JVS(31823)*X(5254)-JVS(31824)*X(5256)-JVS(31825)*X(5258))/(JVS(31816)) - X(5046) = (X(5046)-JVS(31770)*X(5047)-JVS(31771)*X(5048)-JVS(31772)*X(5049)-JVS(31773)*X(5050)-JVS(31774)*X(5051)& - &-JVS(31775)*X(5058)-JVS(31776)*X(5066)-JVS(31777)*X(5068)-JVS(31778)*X(5069)-JVS(31779)*X(5070)-JVS(31780)& - &*X(5076)-JVS(31781)*X(5091)-JVS(31782)*X(5092)-JVS(31783)*X(5093)-JVS(31784)*X(5099)-JVS(31785)*X(5102)& - &-JVS(31786)*X(5123)-JVS(31787)*X(5132)-JVS(31788)*X(5153)-JVS(31789)*X(5156)-JVS(31790)*X(5166)-JVS(31791)& - &*X(5168)-JVS(31792)*X(5170)-JVS(31793)*X(5175)-JVS(31794)*X(5190)-JVS(31795)*X(5200)-JVS(31796)*X(5205)& - &-JVS(31797)*X(5207)-JVS(31798)*X(5217)-JVS(31799)*X(5218)-JVS(31800)*X(5219)-JVS(31801)*X(5220)-JVS(31802)& - &*X(5223)-JVS(31803)*X(5224)-JVS(31804)*X(5249)-JVS(31805)*X(5250)-JVS(31806)*X(5251)-JVS(31807)*X(5252)& - &-JVS(31808)*X(5253)-JVS(31809)*X(5254)-JVS(31810)*X(5255)-JVS(31811)*X(5256)-JVS(31812)*X(5257)-JVS(31813)& - &*X(5258))/(JVS(31769)) - X(5045) = (X(5045)-JVS(31715)*X(5238)-JVS(31716)*X(5250)-JVS(31717)*X(5252)-JVS(31718)*X(5255)-JVS(31719)*X(5256))& - &/(JVS(31714)) - X(5044) = (X(5044)-JVS(31705)*X(5175)-JVS(31706)*X(5250)-JVS(31707)*X(5252)-JVS(31708)*X(5253)-JVS(31709)*X(5255)& - &-JVS(31710)*X(5256)-JVS(31711)*X(5258))/(JVS(31704)) - X(5043) = (X(5043)-JVS(31690)*X(5146)-JVS(31691)*X(5250)-JVS(31692)*X(5252)-JVS(31693)*X(5253)-JVS(31694)*X(5255)& - &-JVS(31695)*X(5256)-JVS(31696)*X(5258))/(JVS(31689)) - X(5042) = (X(5042)-JVS(31678)*X(5147)-JVS(31679)*X(5238)-JVS(31680)*X(5250)-JVS(31681)*X(5252)-JVS(31682)*X(5253)& - &-JVS(31683)*X(5255)-JVS(31684)*X(5256))/(JVS(31677)) - X(5041) = (X(5041)-JVS(31663)*X(5250)-JVS(31664)*X(5252)-JVS(31665)*X(5253)-JVS(31666)*X(5255)-JVS(31667)*X(5256)& - &-JVS(31668)*X(5257)-JVS(31669)*X(5258))/(JVS(31662)) - X(5040) = (X(5040)-JVS(31651)*X(5219)-JVS(31652)*X(5250)-JVS(31653)*X(5251)-JVS(31654)*X(5252)-JVS(31655)*X(5253)& - &-JVS(31656)*X(5254)-JVS(31657)*X(5258))/(JVS(31650)) - X(5039) = (X(5039)-JVS(31636)*X(5092)-JVS(31637)*X(5099)-JVS(31638)*X(5248)-JVS(31639)*X(5249)-JVS(31640)*X(5250)& - &-JVS(31641)*X(5251)-JVS(31642)*X(5252)-JVS(31643)*X(5253)-JVS(31644)*X(5254)-JVS(31645)*X(5255)-JVS(31646)& - &*X(5256)-JVS(31647)*X(5258))/(JVS(31635)) - X(5038) = (X(5038)-JVS(31615)*X(5058)-JVS(31616)*X(5059)-JVS(31617)*X(5066)-JVS(31618)*X(5068)-JVS(31619)*X(5126)& - &-JVS(31620)*X(5194)-JVS(31621)*X(5250)-JVS(31622)*X(5252)-JVS(31623)*X(5253)-JVS(31624)*X(5255)-JVS(31625)& - &*X(5256)-JVS(31626)*X(5258))/(JVS(31614)) - X(5037) = (X(5037)-JVS(31590)*X(5250)-JVS(31591)*X(5252)-JVS(31592)*X(5253)-JVS(31593)*X(5255)-JVS(31594)*X(5256)& - &-JVS(31595)*X(5258))/(JVS(31589)) - X(5036) = (X(5036)-JVS(31567)*X(5168)-JVS(31568)*X(5226)-JVS(31569)*X(5250)-JVS(31570)*X(5252)-JVS(31571)*X(5253)& - &-JVS(31572)*X(5255)-JVS(31573)*X(5256))/(JVS(31566)) - X(5035) = (X(5035)-JVS(31549)*X(5205)-JVS(31550)*X(5219)-JVS(31551)*X(5224)-JVS(31552)*X(5250)-JVS(31553)*X(5252)& - &-JVS(31554)*X(5255)-JVS(31555)*X(5256))/(JVS(31548)) - X(5034) = (X(5034)-JVS(31540)*X(5126)-JVS(31541)*X(5250)-JVS(31542)*X(5252)-JVS(31543)*X(5253)-JVS(31544)*X(5255)& - &-JVS(31545)*X(5256)-JVS(31546)*X(5258))/(JVS(31539)) - X(5033) = (X(5033)-JVS(31524)*X(5220)-JVS(31525)*X(5250)-JVS(31526)*X(5252)-JVS(31527)*X(5253)-JVS(31528)*X(5255)& - &-JVS(31529)*X(5256))/(JVS(31523)) - X(5032) = (X(5032)-JVS(31517)*X(5238)-JVS(31518)*X(5250)-JVS(31519)*X(5252)-JVS(31520)*X(5255)-JVS(31521)*X(5256))& - &/(JVS(31516)) - X(5031) = (X(5031)-JVS(31503)*X(5032)-JVS(31504)*X(5089)-JVS(31505)*X(5119)-JVS(31506)*X(5238)-JVS(31507)*X(5250)& - &-JVS(31508)*X(5252)-JVS(31509)*X(5253)-JVS(31510)*X(5255)-JVS(31511)*X(5256)-JVS(31512)*X(5258))/(JVS(31502)) - X(5030) = (X(5030)-JVS(31465)*X(5250)-JVS(31466)*X(5252)-JVS(31467)*X(5255)-JVS(31468)*X(5256))/(JVS(31464)) - X(5029) = (X(5029)-JVS(31453)*X(5213)-JVS(31454)*X(5250)-JVS(31455)*X(5252)-JVS(31456)*X(5253)-JVS(31457)*X(5255)& - &-JVS(31458)*X(5256)-JVS(31459)*X(5258))/(JVS(31452)) - X(5028) = (X(5028)-JVS(31433)*X(5248)-JVS(31434)*X(5249)-JVS(31435)*X(5250)-JVS(31436)*X(5252)-JVS(31437)*X(5255)& - &-JVS(31438)*X(5256)-JVS(31439)*X(5258))/(JVS(31432)) - X(5027) = (X(5027)-JVS(31424)*X(5187)-JVS(31425)*X(5250)-JVS(31426)*X(5252)-JVS(31427)*X(5253)-JVS(31428)*X(5255)& - &-JVS(31429)*X(5256)-JVS(31430)*X(5258))/(JVS(31423)) - X(5026) = (X(5026)-JVS(31406)*X(5063)-JVS(31407)*X(5064)-JVS(31408)*X(5097)-JVS(31409)*X(5116)-JVS(31410)*X(5119)& - &-JVS(31411)*X(5147)-JVS(31412)*X(5238)-JVS(31413)*X(5250)-JVS(31414)*X(5252)-JVS(31415)*X(5253)-JVS(31416)& - &*X(5255)-JVS(31417)*X(5256))/(JVS(31405)) - X(5025) = (X(5025)-JVS(31385)*X(5205)-JVS(31386)*X(5250)-JVS(31387)*X(5252)-JVS(31388)*X(5253)-JVS(31389)*X(5255)& - &-JVS(31390)*X(5256))/(JVS(31384)) - X(5024) = (X(5024)-JVS(31377)*X(5091)-JVS(31378)*X(5250)-JVS(31379)*X(5252)-JVS(31380)*X(5255)-JVS(31381)*X(5256)& - &-JVS(31382)*X(5258))/(JVS(31376)) - X(5023) = (X(5023)-JVS(31360)*X(5024)-JVS(31361)*X(5049)-JVS(31362)*X(5091)-JVS(31363)*X(5093)-JVS(31364)*X(5189)& - &-JVS(31365)*X(5194)-JVS(31366)*X(5250)-JVS(31367)*X(5251)-JVS(31368)*X(5252)-JVS(31369)*X(5253)-JVS(31370)& - &*X(5254)-JVS(31371)*X(5255)-JVS(31372)*X(5256)-JVS(31373)*X(5258))/(JVS(31359)) - X(5022) = (X(5022)-JVS(31330)*X(5224)-JVS(31331)*X(5250)-JVS(31332)*X(5252)-JVS(31333)*X(5255)-JVS(31334)*X(5256)& - &-JVS(31335)*X(5258))/(JVS(31329)) - X(5021) = (X(5021)-JVS(31320)*X(5215)-JVS(31321)*X(5250)-JVS(31322)*X(5252)-JVS(31323)*X(5253)-JVS(31324)*X(5255)& - &-JVS(31325)*X(5256)-JVS(31326)*X(5258))/(JVS(31319)) - X(5020) = (X(5020)-JVS(31308)*X(5159)-JVS(31309)*X(5227)-JVS(31310)*X(5250)-JVS(31311)*X(5252)-JVS(31312)*X(5253)& - &-JVS(31313)*X(5255)-JVS(31314)*X(5256))/(JVS(31307)) - X(5019) = (X(5019)-JVS(31296)*X(5159)-JVS(31297)*X(5250)-JVS(31298)*X(5252)-JVS(31299)*X(5253)-JVS(31300)*X(5255)& - &-JVS(31301)*X(5256))/(JVS(31295)) - X(5018) = (X(5018)-JVS(31283)*X(5123)-JVS(31284)*X(5250)-JVS(31285)*X(5251)-JVS(31286)*X(5252)-JVS(31287)*X(5253)& - &-JVS(31288)*X(5254)-JVS(31289)*X(5255)-JVS(31290)*X(5256)-JVS(31291)*X(5258))/(JVS(31282)) - X(5017) = (X(5017)-JVS(31266)*X(5044)-JVS(31267)*X(5083)-JVS(31268)*X(5175)-JVS(31269)*X(5250)-JVS(31270)*X(5252)& - &-JVS(31271)*X(5253)-JVS(31272)*X(5255)-JVS(31273)*X(5256)-JVS(31274)*X(5258))/(JVS(31265)) - X(5016) = (X(5016)-JVS(31250)*X(5177)-JVS(31251)*X(5217)-JVS(31252)*X(5218)-JVS(31253)*X(5227)-JVS(31254)*X(5250)& - &-JVS(31255)*X(5252)-JVS(31256)*X(5253)-JVS(31257)*X(5255)-JVS(31258)*X(5256))/(JVS(31249)) - X(5015) = (X(5015)-JVS(31236)*X(5168)-JVS(31237)*X(5250)-JVS(31238)*X(5252)-JVS(31239)*X(5255)-JVS(31240)*X(5256))& - &/(JVS(31235)) - X(5014) = (X(5014)-JVS(31226)*X(5207)-JVS(31227)*X(5250)-JVS(31228)*X(5252)-JVS(31229)*X(5253)-JVS(31230)*X(5255)& - &-JVS(31231)*X(5256)-JVS(31232)*X(5257)-JVS(31233)*X(5258))/(JVS(31225)) - X(5013) = (X(5013)-JVS(31214)*X(5217)-JVS(31215)*X(5218)-JVS(31216)*X(5250)-JVS(31217)*X(5252)-JVS(31218)*X(5258))& - &/(JVS(31213)) - X(5012) = (X(5012)-JVS(31203)*X(5078)-JVS(31204)*X(5088)-JVS(31205)*X(5147)-JVS(31206)*X(5238)-JVS(31207)*X(5250)& - &-JVS(31208)*X(5252)-JVS(31209)*X(5253)-JVS(31210)*X(5255)-JVS(31211)*X(5256)-JVS(31212)*X(5258))/(JVS(31202)) - X(5011) = (X(5011)-JVS(31181)*X(5032)-JVS(31182)*X(5119)-JVS(31183)*X(5120)-JVS(31184)*X(5151)-JVS(31185)*X(5238)& - &-JVS(31186)*X(5250)-JVS(31187)*X(5252)-JVS(31188)*X(5253)-JVS(31189)*X(5255)-JVS(31190)*X(5256)-JVS(31191)& - &*X(5258))/(JVS(31180)) - X(5010) = (X(5010)-JVS(31160)*X(5238)-JVS(31161)*X(5250)-JVS(31162)*X(5252)-JVS(31163)*X(5255)-JVS(31164)*X(5256))& - &/(JVS(31159)) - X(5009) = (X(5009)-JVS(31139)*X(5066)-JVS(31140)*X(5096)-JVS(31141)*X(5144)-JVS(31142)*X(5190)-JVS(31143)*X(5250)& - &-JVS(31144)*X(5252)-JVS(31145)*X(5253)-JVS(31146)*X(5255)-JVS(31147)*X(5256)-JVS(31148)*X(5258))/(JVS(31138)) - X(5008) = (X(5008)-JVS(31124)*X(5061)-JVS(31125)*X(5063)-JVS(31126)*X(5116)-JVS(31127)*X(5250)-JVS(31128)*X(5252)& - &-JVS(31129)*X(5253)-JVS(31130)*X(5255)-JVS(31131)*X(5256))/(JVS(31123)) - X(5007) = (X(5007)-JVS(31107)*X(5008)-JVS(31108)*X(5062)-JVS(31109)*X(5063)-JVS(31110)*X(5116)-JVS(31111)*X(5250)& - &-JVS(31112)*X(5252)-JVS(31113)*X(5253)-JVS(31114)*X(5255)-JVS(31115)*X(5256)-JVS(31116)*X(5258))/(JVS(31106)) - X(5006) = (X(5006)-JVS(31089)*X(5083)-JVS(31090)*X(5084)-JVS(31091)*X(5095)-JVS(31092)*X(5236)-JVS(31093)*X(5250)& - &-JVS(31094)*X(5252)-JVS(31095)*X(5253)-JVS(31096)*X(5255)-JVS(31097)*X(5256)-JVS(31098)*X(5258))/(JVS(31088)) - X(5005) = (X(5005)-JVS(31063)*X(5154)-JVS(31064)*X(5167)-JVS(31065)*X(5174)-JVS(31066)*X(5250)-JVS(31067)*X(5252)& - &-JVS(31068)*X(5253)-JVS(31069)*X(5255)-JVS(31070)*X(5256))/(JVS(31062)) - X(5004) = (X(5004)-JVS(31048)*X(5041)-JVS(31049)*X(5081)-JVS(31050)*X(5114)-JVS(31051)*X(5181)-JVS(31052)*X(5215)& - &-JVS(31053)*X(5250)-JVS(31054)*X(5252)-JVS(31055)*X(5253)-JVS(31056)*X(5255)-JVS(31057)*X(5256))/(JVS(31047)) - X(5003) = (X(5003)-JVS(31023)*X(5075)-JVS(31024)*X(5154)-JVS(31025)*X(5174)-JVS(31026)*X(5250)-JVS(31027)*X(5252)& - &-JVS(31028)*X(5253)-JVS(31029)*X(5255)-JVS(31030)*X(5256))/(JVS(31022)) - X(5002) = (X(5002)-JVS(31014)*X(5204)-JVS(31015)*X(5250)-JVS(31016)*X(5256)-JVS(31017)*X(5258))/(JVS(31013)) - X(5001) = (X(5001)-JVS(31003)*X(5002)-JVS(31004)*X(5025)-JVS(31005)*X(5204)-JVS(31006)*X(5217)-JVS(31007)*X(5250)& - &-JVS(31008)*X(5252)-JVS(31009)*X(5253)-JVS(31010)*X(5255)-JVS(31011)*X(5256)-JVS(31012)*X(5258))/(JVS(31002)) - X(5000) = (X(5000)-JVS(30965)*X(5032)-JVS(30966)*X(5060)-JVS(30967)*X(5072)-JVS(30968)*X(5101)-JVS(30969)*X(5129)& - &-JVS(30970)*X(5203)-JVS(30971)*X(5215)-JVS(30972)*X(5226)-JVS(30973)*X(5250)-JVS(30974)*X(5251)-JVS(30975)& - &*X(5252)-JVS(30976)*X(5253)-JVS(30977)*X(5254)-JVS(30978)*X(5255)-JVS(30979)*X(5256)-JVS(30980)*X(5258))& - &/(JVS(30964)) - X(4999) = (X(4999)-JVS(30927)*X(5049)-JVS(30928)*X(5168)-JVS(30929)*X(5220)-JVS(30930)*X(5251)-JVS(30931)*X(5252)& - &-JVS(30932)*X(5253)-JVS(30933)*X(5254)-JVS(30934)*X(5258))/(JVS(30926)) - X(4998) = (X(4998)-JVS(30916)*X(5068)-JVS(30917)*X(5250)-JVS(30918)*X(5251)-JVS(30919)*X(5252)-JVS(30920)*X(5253)& - &-JVS(30921)*X(5254)-JVS(30922)*X(5256)-JVS(30923)*X(5258))/(JVS(30915)) - X(4997) = (X(4997)-JVS(30905)*X(5066)-JVS(30906)*X(5250)-JVS(30907)*X(5251)-JVS(30908)*X(5252)-JVS(30909)*X(5253)& - &-JVS(30910)*X(5254)-JVS(30911)*X(5256)-JVS(30912)*X(5258))/(JVS(30904)) - X(4996) = (X(4996)-JVS(30895)*X(5081)-JVS(30896)*X(5181)-JVS(30897)*X(5250)-JVS(30898)*X(5252)-JVS(30899)*X(5255)& - &-JVS(30900)*X(5256))/(JVS(30894)) - X(4995) = (X(4995)-JVS(30871)*X(5081)-JVS(30872)*X(5140)-JVS(30873)*X(5148)-JVS(30874)*X(5163)-JVS(30875)*X(5181)& - &-JVS(30876)*X(5192)-JVS(30877)*X(5208)-JVS(30878)*X(5229)-JVS(30879)*X(5250)-JVS(30880)*X(5252)-JVS(30881)& - &*X(5253)-JVS(30882)*X(5255)-JVS(30883)*X(5256))/(JVS(30870)) - X(4994) = (X(4994)-JVS(30852)*X(5238)-JVS(30853)*X(5250)-JVS(30854)*X(5252)-JVS(30855)*X(5253)-JVS(30856)*X(5255)& - &-JVS(30857)*X(5256))/(JVS(30851)) - X(4993) = (X(4993)-JVS(30841)*X(5209)-JVS(30842)*X(5250)-JVS(30843)*X(5252)-JVS(30844)*X(5253)-JVS(30845)*X(5255)& - &-JVS(30846)*X(5256))/(JVS(30840)) - X(4992) = (X(4992)-JVS(30832)*X(5250)-JVS(30833)*X(5252)-JVS(30834)*X(5253)-JVS(30835)*X(5255)-JVS(30836)*X(5256)& - &-JVS(30837)*X(5258))/(JVS(30831)) - X(4991) = (X(4991)-JVS(30818)*X(5119)-JVS(30819)*X(5192)-JVS(30820)*X(5238)-JVS(30821)*X(5250)-JVS(30822)*X(5252)& - &-JVS(30823)*X(5253)-JVS(30824)*X(5255)-JVS(30825)*X(5256)-JVS(30826)*X(5258))/(JVS(30817)) - X(4990) = (X(4990)-JVS(30795)*X(5238)-JVS(30796)*X(5250)-JVS(30797)*X(5252)-JVS(30798)*X(5253)-JVS(30799)*X(5255)& - &-JVS(30800)*X(5256))/(JVS(30794)) - X(4989) = (X(4989)-JVS(30783)*X(5250)-JVS(30784)*X(5252)-JVS(30785)*X(5253)-JVS(30786)*X(5255)-JVS(30787)*X(5256)& - &-JVS(30788)*X(5257)-JVS(30789)*X(5258))/(JVS(30782)) - X(4988) = (X(4988)-JVS(30771)*X(5250)-JVS(30772)*X(5256)-JVS(30773)*X(5258))/(JVS(30770)) - X(4987) = (X(4987)-JVS(30763)*X(5169)-JVS(30764)*X(5176)-JVS(30765)*X(5250)-JVS(30766)*X(5252)-JVS(30767)*X(5255)& - &-JVS(30768)*X(5256)-JVS(30769)*X(5258))/(JVS(30762)) - X(4986) = (X(4986)-JVS(30753)*X(5123)-JVS(30754)*X(5250)-JVS(30755)*X(5252)-JVS(30756)*X(5253)-JVS(30757)*X(5255)& - &-JVS(30758)*X(5256)-JVS(30759)*X(5258))/(JVS(30752)) - X(4985) = (X(4985)-JVS(30725)*X(5089)-JVS(30726)*X(5250)-JVS(30727)*X(5252)-JVS(30728)*X(5253)-JVS(30729)*X(5255)& - &-JVS(30730)*X(5256)-JVS(30731)*X(5258))/(JVS(30724)) - X(4984) = (X(4984)-JVS(30708)*X(5056)-JVS(30709)*X(5072)-JVS(30710)*X(5250)-JVS(30711)*X(5252)-JVS(30712)*X(5253)& - &-JVS(30713)*X(5255)-JVS(30714)*X(5256))/(JVS(30707)) - X(4983) = (X(4983)-JVS(30684)*X(5002)-JVS(30685)*X(5005)-JVS(30686)*X(5025)-JVS(30687)*X(5034)-JVS(30688)*X(5036)& - &-JVS(30689)*X(5058)-JVS(30690)*X(5076)-JVS(30691)*X(5100)-JVS(30692)*X(5103)-JVS(30693)*X(5126)-JVS(30694)& - &*X(5167)-JVS(30695)*X(5209)-JVS(30696)*X(5216)-JVS(30697)*X(5250)-JVS(30698)*X(5252)-JVS(30699)*X(5253)& - &-JVS(30700)*X(5255)-JVS(30701)*X(5256)-JVS(30702)*X(5258))/(JVS(30683)) - X(4982) = (X(4982)-JVS(30654)*X(5002)-JVS(30655)*X(5025)-JVS(30656)*X(5250)-JVS(30657)*X(5252)-JVS(30658)*X(5255)& - &-JVS(30659)*X(5256)-JVS(30660)*X(5258))/(JVS(30653)) - X(4981) = (X(4981)-JVS(30643)*X(5045)-JVS(30644)*X(5082)-JVS(30645)*X(5238)-JVS(30646)*X(5250)-JVS(30647)*X(5252)& - &-JVS(30648)*X(5253)-JVS(30649)*X(5255)-JVS(30650)*X(5256))/(JVS(30642)) - X(4980) = (X(4980)-JVS(30624)*X(5082)-JVS(30625)*X(5238)-JVS(30626)*X(5250)-JVS(30627)*X(5252)-JVS(30628)*X(5253)& - &-JVS(30629)*X(5255)-JVS(30630)*X(5256))/(JVS(30623)) - X(4979) = (X(4979)-JVS(30611)*X(5010)-JVS(30612)*X(5238)-JVS(30613)*X(5250)-JVS(30614)*X(5252)-JVS(30615)*X(5253)& - &-JVS(30616)*X(5255)-JVS(30617)*X(5256))/(JVS(30610)) - X(4978) = (X(4978)-JVS(30599)*X(5245)-JVS(30600)*X(5247)-JVS(30601)*X(5250)-JVS(30602)*X(5252)-JVS(30603)*X(5253)& - &-JVS(30604)*X(5255)-JVS(30605)*X(5256))/(JVS(30598)) - X(4977) = (X(4977)-JVS(30582)*X(5141)-JVS(30583)*X(5250)-JVS(30584)*X(5252)-JVS(30585)*X(5253)-JVS(30586)*X(5255)& - &-JVS(30587)*X(5256)-JVS(30588)*X(5258))/(JVS(30581)) - X(4976) = (X(4976)-JVS(30573)*X(5217)-JVS(30574)*X(5250)-JVS(30575)*X(5256)-JVS(30576)*X(5258))/(JVS(30572)) - X(4975) = (X(4975)-JVS(30567)*X(5238)-JVS(30568)*X(5250)-JVS(30569)*X(5252)-JVS(30570)*X(5255)-JVS(30571)*X(5256))& - &/(JVS(30566)) - X(4974) = (X(4974)-JVS(30554)*X(5238)-JVS(30555)*X(5250)-JVS(30556)*X(5252)-JVS(30557)*X(5255)-JVS(30558)*X(5256))& - &/(JVS(30553)) - X(4973) = (X(4973)-JVS(30536)*X(5063)-JVS(30537)*X(5064)-JVS(30538)*X(5088)-JVS(30539)*X(5090)-JVS(30540)*X(5147)& - &-JVS(30541)*X(5148)-JVS(30542)*X(5150)-JVS(30543)*X(5208)-JVS(30544)*X(5238)-JVS(30545)*X(5246)-JVS(30546)& - &*X(5250)-JVS(30547)*X(5252)-JVS(30548)*X(5253)-JVS(30549)*X(5255)-JVS(30550)*X(5256))/(JVS(30535)) - X(4972) = (X(4972)-JVS(30513)*X(5190)-JVS(30514)*X(5250)-JVS(30515)*X(5252)-JVS(30516)*X(5255)-JVS(30517)*X(5256))& - &/(JVS(30512)) - X(4971) = (X(4971)-JVS(30506)*X(5250)-JVS(30507)*X(5252)-JVS(30508)*X(5255)-JVS(30509)*X(5256)-JVS(30510)*X(5258))& - &/(JVS(30505)) - X(4970) = (X(4970)-JVS(30498)*X(4988)-JVS(30499)*X(5092)-JVS(30500)*X(5099)-JVS(30501)*X(5250)-JVS(30502)*X(5255)& - &-JVS(30503)*X(5258))/(JVS(30497)) - X(4969) = (X(4969)-JVS(30488)*X(5159)-JVS(30489)*X(5213)-JVS(30490)*X(5250)-JVS(30491)*X(5252)-JVS(30492)*X(5253)& - &-JVS(30493)*X(5255)-JVS(30494)*X(5256)-JVS(30495)*X(5258))/(JVS(30487)) - X(4968) = (X(4968)-JVS(30475)*X(5076)-JVS(30476)*X(5250)-JVS(30477)*X(5252)-JVS(30478)*X(5253)-JVS(30479)*X(5255)& - &-JVS(30480)*X(5256))/(JVS(30474)) - X(4967) = (X(4967)-JVS(30466)*X(5146)-JVS(30467)*X(5238)-JVS(30468)*X(5250)-JVS(30469)*X(5252)-JVS(30470)*X(5255)& - &-JVS(30471)*X(5256))/(JVS(30465)) - X(4966) = (X(4966)-JVS(30453)*X(5103)-JVS(30454)*X(5126)-JVS(30455)*X(5250)-JVS(30456)*X(5252)-JVS(30457)*X(5253)& - &-JVS(30458)*X(5255)-JVS(30459)*X(5256)-JVS(30460)*X(5258))/(JVS(30452)) - X(4965) = (X(4965)-JVS(30434)*X(5250)-JVS(30435)*X(5251)-JVS(30436)*X(5252)-JVS(30437)*X(5253)-JVS(30438)*X(5254)& - &-JVS(30439)*X(5255)-JVS(30440)*X(5256)-JVS(30441)*X(5258))/(JVS(30433)) - X(4964) = (X(4964)-JVS(30418)*X(5250)-JVS(30419)*X(5251)-JVS(30420)*X(5252)-JVS(30421)*X(5253)-JVS(30422)*X(5254)& - &-JVS(30423)*X(5255)-JVS(30424)*X(5256)-JVS(30425)*X(5258))/(JVS(30417)) - X(4963) = (X(4963)-JVS(30396)*X(5166)-JVS(30397)*X(5250)-JVS(30398)*X(5251)-JVS(30399)*X(5252)-JVS(30400)*X(5253)& - &-JVS(30401)*X(5254)-JVS(30402)*X(5256)-JVS(30403)*X(5258))/(JVS(30395)) - X(4962) = (X(4962)-JVS(30383)*X(5140)-JVS(30384)*X(5181)-JVS(30385)*X(5208)-JVS(30386)*X(5250)-JVS(30387)*X(5252)& - &-JVS(30388)*X(5253)-JVS(30389)*X(5255)-JVS(30390)*X(5256))/(JVS(30382)) - X(4961) = (X(4961)-JVS(30369)*X(5043)-JVS(30370)*X(5068)-JVS(30371)*X(5146)-JVS(30372)*X(5250)-JVS(30373)*X(5252)& - &-JVS(30374)*X(5253)-JVS(30375)*X(5255)-JVS(30376)*X(5256)-JVS(30377)*X(5258))/(JVS(30368)) - X(4960) = (X(4960)-JVS(30356)*X(5072)-JVS(30357)*X(5250)-JVS(30358)*X(5252)-JVS(30359)*X(5253)-JVS(30360)*X(5255)& - &-JVS(30361)*X(5256))/(JVS(30355)) - X(4959) = (X(4959)-JVS(30342)*X(5078)-JVS(30343)*X(5088)-JVS(30344)*X(5238)-JVS(30345)*X(5250)-JVS(30346)*X(5252)& - &-JVS(30347)*X(5253)-JVS(30348)*X(5255)-JVS(30349)*X(5256)-JVS(30350)*X(5258))/(JVS(30341)) - X(4958) = (X(4958)-JVS(30322)*X(5020)-JVS(30323)*X(5132)-JVS(30324)*X(5154)-JVS(30325)*X(5173)-JVS(30326)*X(5250)& - &-JVS(30327)*X(5251)-JVS(30328)*X(5252)-JVS(30329)*X(5253)-JVS(30330)*X(5254)-JVS(30331)*X(5255)-JVS(30332)& - &*X(5256)-JVS(30333)*X(5258))/(JVS(30321)) - X(4957) = (X(4957)-JVS(30296)*X(5181)-JVS(30297)*X(5250)-JVS(30298)*X(5252)-JVS(30299)*X(5253)-JVS(30300)*X(5255)& - &-JVS(30301)*X(5256))/(JVS(30295)) - X(4956) = (X(4956)-JVS(30285)*X(5190)-JVS(30286)*X(5250)-JVS(30287)*X(5251)-JVS(30288)*X(5252)-JVS(30289)*X(5253)& - &-JVS(30290)*X(5254)-JVS(30291)*X(5256)-JVS(30292)*X(5258))/(JVS(30284)) - X(4955) = (X(4955)-JVS(30274)*X(5189)-JVS(30275)*X(5250)-JVS(30276)*X(5252)-JVS(30277)*X(5253)-JVS(30278)*X(5255)& - &-JVS(30279)*X(5256))/(JVS(30273)) - X(4954) = (X(4954)-JVS(30263)*X(5166)-JVS(30264)*X(5194)-JVS(30265)*X(5250)-JVS(30266)*X(5252)-JVS(30267)*X(5253)& - &-JVS(30268)*X(5255)-JVS(30269)*X(5256)-JVS(30270)*X(5258))/(JVS(30262)) - X(4953) = (X(4953)-JVS(30250)*X(5250)-JVS(30251)*X(5252)-JVS(30252)*X(5253)-JVS(30253)*X(5255)-JVS(30254)*X(5256)& - &-JVS(30255)*X(5258))/(JVS(30249)) - X(4952) = (X(4952)-JVS(30235)*X(5123)-JVS(30236)*X(5250)-JVS(30237)*X(5252)-JVS(30238)*X(5255)-JVS(30239)*X(5256)& - &-JVS(30240)*X(5258))/(JVS(30234)) - X(4951) = (X(4951)-JVS(30222)*X(5058)-JVS(30223)*X(5250)-JVS(30224)*X(5252)-JVS(30225)*X(5255)-JVS(30226)*X(5256)& - &-JVS(30227)*X(5258))/(JVS(30221)) - X(4950) = (X(4950)-JVS(30209)*X(5250)-JVS(30210)*X(5252)-JVS(30211)*X(5255)-JVS(30212)*X(5256))/(JVS(30208)) - X(4949) = (X(4949)-JVS(30196)*X(5071)-JVS(30197)*X(5097)-JVS(30198)*X(5238)-JVS(30199)*X(5250)-JVS(30200)*X(5252)& - &-JVS(30201)*X(5253)-JVS(30202)*X(5255)-JVS(30203)*X(5256))/(JVS(30195)) - X(4948) = (X(4948)-JVS(30178)*X(5250)-JVS(30179)*X(5252)-JVS(30180)*X(5253)-JVS(30181)*X(5255)-JVS(30182)*X(5256)& - &-JVS(30183)*X(5258))/(JVS(30177)) - X(4947) = (X(4947)-JVS(30166)*X(4948)-JVS(30167)*X(4971)-JVS(30168)*X(5250)-JVS(30169)*X(5252)-JVS(30170)*X(5253)& - &-JVS(30171)*X(5255)-JVS(30172)*X(5256)-JVS(30173)*X(5258))/(JVS(30165)) - X(4946) = (X(4946)-JVS(30139)*X(5141)-JVS(30140)*X(5250)-JVS(30141)*X(5252)-JVS(30142)*X(5253)-JVS(30143)*X(5255)& - &-JVS(30144)*X(5256))/(JVS(30138)) - X(4945) = (X(4945)-JVS(30132)*X(5154)-JVS(30133)*X(5173)-JVS(30134)*X(5250)-JVS(30135)*X(5252))/(JVS(30131)) - X(4944) = (X(4944)-JVS(30123)*X(5107)-JVS(30124)*X(5165)-JVS(30125)*X(5250)-JVS(30126)*X(5252)-JVS(30127)*X(5253)& - &-JVS(30128)*X(5255)-JVS(30129)*X(5256)-JVS(30130)*X(5258))/(JVS(30122)) - X(4943) = (X(4943)-JVS(30098)*X(5200)-JVS(30099)*X(5250)-JVS(30100)*X(5251)-JVS(30101)*X(5252)-JVS(30102)*X(5253)& - &-JVS(30103)*X(5254)-JVS(30104)*X(5256)-JVS(30105)*X(5258))/(JVS(30097)) - X(4942) = (X(4942)-JVS(30080)*X(5065)-JVS(30081)*X(5112)-JVS(30082)*X(5138)-JVS(30083)*X(5238)-JVS(30084)*X(5250)& - &-JVS(30085)*X(5252)-JVS(30086)*X(5253)-JVS(30087)*X(5255)-JVS(30088)*X(5256))/(JVS(30079)) - X(4941) = (X(4941)-JVS(30064)*X(5051)-JVS(30065)*X(5250)-JVS(30066)*X(5251)-JVS(30067)*X(5252)-JVS(30068)*X(5253)& - &-JVS(30069)*X(5254)-JVS(30070)*X(5256)-JVS(30071)*X(5258))/(JVS(30063)) - X(4940) = (X(4940)-JVS(30047)*X(5048)-JVS(30048)*X(5092)-JVS(30049)*X(5248)-JVS(30050)*X(5249)-JVS(30051)*X(5250)& - &-JVS(30052)*X(5251)-JVS(30053)*X(5252)-JVS(30054)*X(5253)-JVS(30055)*X(5254)-JVS(30056)*X(5255)-JVS(30057)& - &*X(5256)-JVS(30058)*X(5258))/(JVS(30046)) - X(4939) = (X(4939)-JVS(30025)*X(4972)-JVS(30026)*X(5096)-JVS(30027)*X(5120)-JVS(30028)*X(5127)-JVS(30029)*X(5151)& - &-JVS(30030)*X(5190)-JVS(30031)*X(5245)-JVS(30032)*X(5250)-JVS(30033)*X(5252)-JVS(30034)*X(5253)-JVS(30035)& - &*X(5255)-JVS(30036)*X(5256))/(JVS(30024)) - X(4938) = (X(4938)-JVS(29990)*X(4947)-JVS(29991)*X(4948)-JVS(29992)*X(4950)-JVS(29993)*X(4968)-JVS(29994)*X(4971)& - &-JVS(29995)*X(5007)-JVS(29996)*X(5008)-JVS(29997)*X(5030)-JVS(29998)*X(5045)-JVS(29999)*X(5061)-JVS(30000)& - &*X(5076)-JVS(30001)*X(5088)-JVS(30002)*X(5098)-JVS(30003)*X(5117)-JVS(30004)*X(5119)-JVS(30005)*X(5238)& - &-JVS(30006)*X(5250)-JVS(30007)*X(5251)-JVS(30008)*X(5252)-JVS(30009)*X(5253)-JVS(30010)*X(5254)-JVS(30011)& - &*X(5255)-JVS(30012)*X(5256)-JVS(30013)*X(5258))/(JVS(29989)) - X(4937) = (X(4937)-JVS(29920)*X(5250)-JVS(29921)*X(5252)-JVS(29922)*X(5255)-JVS(29923)*X(5256))/(JVS(29919)) - X(4936) = (X(4936)-JVS(29908)*X(5118)-JVS(29909)*X(5204)-JVS(29910)*X(5226)-JVS(29911)*X(5250)-JVS(29912)*X(5252)& - &-JVS(29913)*X(5253)-JVS(29914)*X(5255)-JVS(29915)*X(5256))/(JVS(29907)) - X(4935) = (X(4935)-JVS(29896)*X(5250)-JVS(29897)*X(5252)-JVS(29898)*X(5253)-JVS(29899)*X(5255)-JVS(29900)*X(5256)& - &-JVS(29901)*X(5258))/(JVS(29895)) - X(4934) = (X(4934)-JVS(29885)*X(4975)-JVS(29886)*X(5250)-JVS(29887)*X(5252)-JVS(29888)*X(5253)-JVS(29889)*X(5255)& - &-JVS(29890)*X(5256))/(JVS(29884)) - X(4933) = (X(4933)-JVS(29877)*X(5250)-JVS(29878)*X(5252)-JVS(29879)*X(5255)-JVS(29880)*X(5256)-JVS(29881)*X(5258))& - &/(JVS(29876)) - X(4932) = (X(4932)-JVS(29867)*X(5194)-JVS(29868)*X(5250)-JVS(29869)*X(5252)-JVS(29870)*X(5255)-JVS(29871)*X(5256))& - &/(JVS(29866)) - X(4931) = (X(4931)-JVS(29854)*X(4998)-JVS(29855)*X(5043)-JVS(29856)*X(5068)-JVS(29857)*X(5250)-JVS(29858)*X(5251)& - &-JVS(29859)*X(5252)-JVS(29860)*X(5253)-JVS(29861)*X(5254)-JVS(29862)*X(5255)-JVS(29863)*X(5256)-JVS(29864)& - &*X(5258))/(JVS(29853)) - X(4930) = (X(4930)-JVS(29823)*X(5068)-JVS(29824)*X(5250)-JVS(29825)*X(5252)-JVS(29826)*X(5253)-JVS(29827)*X(5255)& - &-JVS(29828)*X(5256)-JVS(29829)*X(5258))/(JVS(29822)) - X(4929) = (X(4929)-JVS(29806)*X(4952)-JVS(29807)*X(5018)-JVS(29808)*X(5250)-JVS(29809)*X(5251)-JVS(29810)*X(5252)& - &-JVS(29811)*X(5253)-JVS(29812)*X(5254)-JVS(29813)*X(5255)-JVS(29814)*X(5256)-JVS(29815)*X(5258))/(JVS(29805)) - X(4928) = (X(4928)-JVS(29789)*X(5250)-JVS(29790)*X(5252)-JVS(29791)*X(5255)-JVS(29792)*X(5256)-JVS(29793)*X(5258))& - &/(JVS(29788)) - X(4927) = (X(4927)-JVS(29780)*X(5030)-JVS(29781)*X(5209)-JVS(29782)*X(5250)-JVS(29783)*X(5252)-JVS(29784)*X(5255)& - &-JVS(29785)*X(5256)-JVS(29786)*X(5258))/(JVS(29779)) - X(4926) = (X(4926)-JVS(29769)*X(4957)-JVS(29770)*X(4996)-JVS(29771)*X(5250)-JVS(29772)*X(5252)-JVS(29773)*X(5253)& - &-JVS(29774)*X(5255)-JVS(29775)*X(5256))/(JVS(29768)) - X(4925) = (X(4925)-JVS(29760)*X(5250)-JVS(29761)*X(5252)-JVS(29762)*X(5255)-JVS(29763)*X(5256)-JVS(29764)*X(5258))& - &/(JVS(29759)) - X(4924) = (X(4924)-JVS(29748)*X(5051)-JVS(29749)*X(5087)-JVS(29750)*X(5186)-JVS(29751)*X(5250)-JVS(29752)*X(5252)& - &-JVS(29753)*X(5253)-JVS(29754)*X(5255)-JVS(29755)*X(5256)-JVS(29756)*X(5258))/(JVS(29747)) - X(4923) = (X(4923)-JVS(29731)*X(5250)-JVS(29732)*X(5252)-JVS(29733)*X(5255)-JVS(29734)*X(5256)-JVS(29735)*X(5258))& - &/(JVS(29730)) - X(4922) = (X(4922)-JVS(29721)*X(5250)-JVS(29722)*X(5252)-JVS(29723)*X(5255)-JVS(29724)*X(5256)-JVS(29725)*X(5258))& - &/(JVS(29720)) - X(4921) = (X(4921)-JVS(29711)*X(5248)-JVS(29712)*X(5249)-JVS(29713)*X(5250)-JVS(29714)*X(5252)-JVS(29715)*X(5253)& - &-JVS(29716)*X(5255)-JVS(29717)*X(5256))/(JVS(29710)) - X(4920) = (X(4920)-JVS(29695)*X(4977)-JVS(29696)*X(5141)-JVS(29697)*X(5250)-JVS(29698)*X(5252)-JVS(29699)*X(5255)& - &-JVS(29700)*X(5256)-JVS(29701)*X(5258))/(JVS(29694)) - X(4919) = (X(4919)-JVS(29682)*X(5250)-JVS(29683)*X(5251)-JVS(29684)*X(5252)-JVS(29685)*X(5253)-JVS(29686)*X(5254)& - &-JVS(29687)*X(5256)-JVS(29688)*X(5258))/(JVS(29681)) - X(4918) = (X(4918)-JVS(29668)*X(4997)-JVS(29669)*X(5066)-JVS(29670)*X(5186)-JVS(29671)*X(5250)-JVS(29672)*X(5251)& - &-JVS(29673)*X(5252)-JVS(29674)*X(5253)-JVS(29675)*X(5254)-JVS(29676)*X(5255)-JVS(29677)*X(5256)-JVS(29678)& - &*X(5258))/(JVS(29667)) - X(4917) = (X(4917)-JVS(29637)*X(5066)-JVS(29638)*X(5250)-JVS(29639)*X(5252)-JVS(29640)*X(5253)-JVS(29641)*X(5255)& - &-JVS(29642)*X(5256)-JVS(29643)*X(5258))/(JVS(29636)) - X(4916) = (X(4916)-JVS(29622)*X(5058)-JVS(29623)*X(5250)-JVS(29624)*X(5252)-JVS(29625)*X(5253)-JVS(29626)*X(5255)& - &-JVS(29627)*X(5256)-JVS(29628)*X(5258))/(JVS(29621)) - X(4915) = (X(4915)-JVS(29601)*X(5203)-JVS(29602)*X(5238)-JVS(29603)*X(5250)-JVS(29604)*X(5252)-JVS(29605)*X(5253)& - &-JVS(29606)*X(5255)-JVS(29607)*X(5256))/(JVS(29600)) - X(4914) = (X(4914)-JVS(29588)*X(5029)-JVS(29589)*X(5198)-JVS(29590)*X(5250)-JVS(29591)*X(5252)-JVS(29592)*X(5253)& - &-JVS(29593)*X(5255)-JVS(29594)*X(5256))/(JVS(29587)) - X(4913) = (X(4913)-JVS(29576)*X(4971)-JVS(29577)*X(5166)-JVS(29578)*X(5250)-JVS(29579)*X(5252)-JVS(29580)*X(5255)& - &-JVS(29581)*X(5256)-JVS(29582)*X(5258))/(JVS(29575)) - X(4912) = (X(4912)-JVS(29559)*X(5250)-JVS(29560)*X(5251)-JVS(29561)*X(5252)-JVS(29562)*X(5253)-JVS(29563)*X(5254)& - &-JVS(29564)*X(5256)-JVS(29565)*X(5258))/(JVS(29558)) - X(4911) = (X(4911)-JVS(29551)*X(5238)-JVS(29552)*X(5250)-JVS(29553)*X(5252)-JVS(29554)*X(5255)-JVS(29555)*X(5256))& - &/(JVS(29550)) - X(4910) = (X(4910)-JVS(29538)*X(5215)-JVS(29539)*X(5250)-JVS(29540)*X(5252)-JVS(29541)*X(5253)-JVS(29542)*X(5255)& - &-JVS(29543)*X(5256)-JVS(29544)*X(5258))/(JVS(29537)) - X(4909) = (X(4909)-JVS(29510)*X(5015)-JVS(29511)*X(5036)-JVS(29512)*X(5069)-JVS(29513)*X(5166)-JVS(29514)*X(5168)& - &-JVS(29515)*X(5200)-JVS(29516)*X(5250)-JVS(29517)*X(5251)-JVS(29518)*X(5252)-JVS(29519)*X(5253)-JVS(29520)& - &*X(5254)-JVS(29521)*X(5255)-JVS(29522)*X(5256)-JVS(29523)*X(5258))/(JVS(29509)) - X(4908) = (X(4908)-JVS(29483)*X(5250)-JVS(29484)*X(5251)-JVS(29485)*X(5252)-JVS(29486)*X(5253)-JVS(29487)*X(5254)& - &-JVS(29488)*X(5256)-JVS(29489)*X(5258))/(JVS(29482)) - X(4907) = (X(4907)-JVS(29476)*X(5166)-JVS(29477)*X(5250)-JVS(29478)*X(5256)-JVS(29479)*X(5258))/(JVS(29475)) - X(4906) = (X(4906)-JVS(29469)*X(5166)-JVS(29470)*X(5251)-JVS(29471)*X(5252)-JVS(29472)*X(5253)-JVS(29473)*X(5254)& - &-JVS(29474)*X(5258))/(JVS(29468)) - X(4905) = (X(4905)-JVS(29461)*X(5250)-JVS(29462)*X(5252)-JVS(29463)*X(5253)-JVS(29464)*X(5255)-JVS(29465)*X(5256)& - &-JVS(29466)*X(5258))/(JVS(29460)) - X(4904) = (X(4904)-JVS(29444)*X(4946)-JVS(29445)*X(4968)-JVS(29446)*X(4985)-JVS(29447)*X(4993)-JVS(29448)*X(5209)& - &-JVS(29449)*X(5250)-JVS(29450)*X(5252)-JVS(29451)*X(5253)-JVS(29452)*X(5255)-JVS(29453)*X(5256)-JVS(29454)& - &*X(5258))/(JVS(29443)) - X(4903) = (X(4903)-JVS(29416)*X(5146)-JVS(29417)*X(5238)-JVS(29418)*X(5250)-JVS(29419)*X(5252)-JVS(29420)*X(5255)& - &-JVS(29421)*X(5256))/(JVS(29415)) - X(4902) = (X(4902)-JVS(29401)*X(4925)-JVS(29402)*X(4969)-JVS(29403)*X(5019)-JVS(29404)*X(5196)-JVS(29405)*X(5198)& - &-JVS(29406)*X(5236)-JVS(29407)*X(5250)-JVS(29408)*X(5252)-JVS(29409)*X(5253)-JVS(29410)*X(5255)-JVS(29411)& - &*X(5256))/(JVS(29400)) - X(4901) = (X(4901)-JVS(29386)*X(4994)-JVS(29387)*X(5238)-JVS(29388)*X(5250)-JVS(29389)*X(5252)-JVS(29390)*X(5255)& - &-JVS(29391)*X(5256))/(JVS(29385)) - X(4900) = (X(4900)-JVS(29373)*X(5215)-JVS(29374)*X(5250)-JVS(29375)*X(5252)-JVS(29376)*X(5253)-JVS(29377)*X(5255)& - &-JVS(29378)*X(5256))/(JVS(29372)) - X(4899) = (X(4899)-JVS(29363)*X(4948)-JVS(29364)*X(5250)-JVS(29365)*X(5252)-JVS(29366)*X(5255)-JVS(29367)*X(5256)& - &-JVS(29368)*X(5258))/(JVS(29362)) - X(4898) = (X(4898)-JVS(29352)*X(5250)-JVS(29353)*X(5252)-JVS(29354)*X(5253)-JVS(29355)*X(5255)-JVS(29356)*X(5256)& - &-JVS(29357)*X(5258))/(JVS(29351)) - X(4897) = (X(4897)-JVS(29339)*X(5250)-JVS(29340)*X(5252)-JVS(29341)*X(5253)-JVS(29342)*X(5255)-JVS(29343)*X(5256)& - &-JVS(29344)*X(5258))/(JVS(29338)) - X(4896) = (X(4896)-JVS(29327)*X(5126)-JVS(29328)*X(5250)-JVS(29329)*X(5252)-JVS(29330)*X(5255)-JVS(29331)*X(5256)& - &-JVS(29332)*X(5258))/(JVS(29326)) - X(4895) = (X(4895)-JVS(29316)*X(5089)-JVS(29317)*X(5250)-JVS(29318)*X(5252)-JVS(29319)*X(5255)-JVS(29320)*X(5256)& - &-JVS(29321)*X(5258))/(JVS(29315)) - X(4894) = (X(4894)-JVS(29305)*X(5132)-JVS(29306)*X(5205)-JVS(29307)*X(5250)-JVS(29308)*X(5252)-JVS(29309)*X(5255)& - &-JVS(29310)*X(5256))/(JVS(29304)) - X(4893) = (X(4893)-JVS(29297)*X(5250)-JVS(29298)*X(5252)-JVS(29299)*X(5253)-JVS(29300)*X(5255)-JVS(29301)*X(5256)& - &-JVS(29302)*X(5258))/(JVS(29296)) - X(4892) = (X(4892)-JVS(29285)*X(5250)-JVS(29286)*X(5252)-JVS(29287)*X(5253)-JVS(29288)*X(5255)-JVS(29289)*X(5256)& - &-JVS(29290)*X(5258))/(JVS(29284)) - X(4891) = (X(4891)-JVS(29275)*X(5212)-JVS(29276)*X(5250)-JVS(29277)*X(5252)-JVS(29278)*X(5253)-JVS(29279)*X(5255)& - &-JVS(29280)*X(5256))/(JVS(29274)) - X(4890) = (X(4890)-JVS(29266)*X(5088)-JVS(29267)*X(5238)-JVS(29268)*X(5250)-JVS(29269)*X(5252)-JVS(29270)*X(5255)& - &-JVS(29271)*X(5256))/(JVS(29265)) - X(4889) = (X(4889)-JVS(29254)*X(5135)-JVS(29255)*X(5250)-JVS(29256)*X(5252)-JVS(29257)*X(5255)-JVS(29258)*X(5256)& - &-JVS(29259)*X(5258))/(JVS(29253)) - X(4888) = (X(4888)-JVS(29244)*X(4937)-JVS(29245)*X(5250)-JVS(29246)*X(5252)-JVS(29247)*X(5253)-JVS(29248)*X(5255)& - &-JVS(29249)*X(5256))/(JVS(29243)) - X(4887) = (X(4887)-JVS(29234)*X(5250)-JVS(29235)*X(5252)-JVS(29236)*X(5253)-JVS(29237)*X(5255)-JVS(29238)*X(5256)& - &-JVS(29239)*X(5258))/(JVS(29233)) - X(4886) = (X(4886)-JVS(29223)*X(5238)-JVS(29224)*X(5250)-JVS(29225)*X(5252)-JVS(29226)*X(5255)-JVS(29227)*X(5256))& - &/(JVS(29222)) - X(4885) = (X(4885)-JVS(29215)*X(5151)-JVS(29216)*X(5250)-JVS(29217)*X(5252)-JVS(29218)*X(5255)-JVS(29219)*X(5256))& - &/(JVS(29214)) - X(4884) = (X(4884)-JVS(29205)*X(5250)-JVS(29206)*X(5252)-JVS(29207)*X(5255)-JVS(29208)*X(5256)-JVS(29209)*X(5258))& - &/(JVS(29204)) - X(4883) = (X(4883)-JVS(29196)*X(5181)-JVS(29197)*X(5250)-JVS(29198)*X(5252)-JVS(29199)*X(5255)-JVS(29200)*X(5256))& - &/(JVS(29195)) - X(4882) = (X(4882)-JVS(29185)*X(5181)-JVS(29186)*X(5250)-JVS(29187)*X(5252)-JVS(29188)*X(5255)-JVS(29189)*X(5256))& - &/(JVS(29184)) - X(4881) = (X(4881)-JVS(29172)*X(5250)-JVS(29173)*X(5252)-JVS(29174)*X(5255)-JVS(29175)*X(5256)-JVS(29176)*X(5258))& - &/(JVS(29171)) - X(4880) = (X(4880)-JVS(29164)*X(5238)-JVS(29165)*X(5250)-JVS(29166)*X(5252)-JVS(29167)*X(5255)-JVS(29168)*X(5256))& - &/(JVS(29163)) - X(4879) = (X(4879)-JVS(29157)*X(5250)-JVS(29158)*X(5252)-JVS(29159)*X(5255)-JVS(29160)*X(5256)-JVS(29161)*X(5258))& - &/(JVS(29156)) - X(4878) = (X(4878)-JVS(29149)*X(5238)-JVS(29150)*X(5250)-JVS(29151)*X(5252)-JVS(29152)*X(5255)-JVS(29153)*X(5256))& - &/(JVS(29148)) - X(4877) = (X(4877)-JVS(29141)*X(5126)-JVS(29142)*X(5250)-JVS(29143)*X(5252)-JVS(29144)*X(5255)-JVS(29145)*X(5256))& - &/(JVS(29140)) - X(4876) = (X(4876)-JVS(29134)*X(5238)-JVS(29135)*X(5250)-JVS(29136)*X(5252)-JVS(29137)*X(5255)-JVS(29138)*X(5256))& - &/(JVS(29133)) - X(4875) = (X(4875)-JVS(29124)*X(5081)-JVS(29125)*X(5111)-JVS(29126)*X(5113)-JVS(29127)*X(5250)-JVS(29128)*X(5252)& - &-JVS(29129)*X(5253)-JVS(29130)*X(5255)-JVS(29131)*X(5256))/(JVS(29123)) - X(4874) = (X(4874)-JVS(29110)*X(4878)-JVS(29111)*X(5088)-JVS(29112)*X(5238)-JVS(29113)*X(5250)-JVS(29114)*X(5252)& - &-JVS(29115)*X(5253)-JVS(29116)*X(5255)-JVS(29117)*X(5256))/(JVS(29109)) - X(4873) = (X(4873)-JVS(29094)*X(5112)-JVS(29095)*X(5135)-JVS(29096)*X(5250)-JVS(29097)*X(5252)-JVS(29098)*X(5253)& - &-JVS(29099)*X(5255)-JVS(29100)*X(5256)-JVS(29101)*X(5258))/(JVS(29093)) - X(4872) = (X(4872)-JVS(29080)*X(5115)-JVS(29081)*X(5165)-JVS(29082)*X(5185)-JVS(29083)*X(5250)-JVS(29084)*X(5252)& - &-JVS(29085)*X(5253)-JVS(29086)*X(5255)-JVS(29087)*X(5256))/(JVS(29079)) - X(4871) = (X(4871)-JVS(29066)*X(4884)-JVS(29067)*X(5109)-JVS(29068)*X(5186)-JVS(29069)*X(5250)-JVS(29070)*X(5252)& - &-JVS(29071)*X(5255)-JVS(29072)*X(5256)-JVS(29073)*X(5258))/(JVS(29065)) - X(4870) = (X(4870)-JVS(29048)*X(5064)-JVS(29049)*X(5147)-JVS(29050)*X(5208)-JVS(29051)*X(5250)-JVS(29052)*X(5252)& - &-JVS(29053)*X(5253)-JVS(29054)*X(5255)-JVS(29055)*X(5256))/(JVS(29047)) - X(4869) = (X(4869)-JVS(29033)*X(5048)-JVS(29034)*X(5092)-JVS(29035)*X(5250)-JVS(29036)*X(5251)-JVS(29037)*X(5252)& - &-JVS(29038)*X(5253)-JVS(29039)*X(5254)-JVS(29040)*X(5258))/(JVS(29032)) - X(4868) = (X(4868)-JVS(29024)*X(5250)-JVS(29025)*X(5251)-JVS(29026)*X(5252)-JVS(29027)*X(5253)-JVS(29028)*X(5254)& - &-JVS(29029)*X(5256)-JVS(29030)*X(5258))/(JVS(29023)) - X(4867) = (X(4867)-JVS(29014)*X(5019)-JVS(29015)*X(5159)-JVS(29016)*X(5250)-JVS(29017)*X(5252)-JVS(29018)*X(5253)& - &-JVS(29019)*X(5255)-JVS(29020)*X(5256))/(JVS(29013)) - X(4866) = (X(4866)-JVS(29000)*X(5115)-JVS(29001)*X(5140)-JVS(29002)*X(5250)-JVS(29003)*X(5252)-JVS(29004)*X(5253)& - &-JVS(29005)*X(5255)-JVS(29006)*X(5256))/(JVS(28999)) - X(4865) = (X(4865)-JVS(28989)*X(4933)-JVS(28990)*X(5250)-JVS(28991)*X(5252)-JVS(28992)*X(5253)-JVS(28993)*X(5255)& - &-JVS(28994)*X(5256)-JVS(28995)*X(5258))/(JVS(28988)) - X(4864) = (X(4864)-JVS(28969)*X(4928)-JVS(28970)*X(5250)-JVS(28971)*X(5252)-JVS(28972)*X(5253)-JVS(28973)*X(5255)& - &-JVS(28974)*X(5256)-JVS(28975)*X(5258))/(JVS(28968)) - X(4863) = (X(4863)-JVS(28952)*X(5207)-JVS(28953)*X(5250)-JVS(28954)*X(5252)-JVS(28955)*X(5253)-JVS(28956)*X(5255)& - &-JVS(28957)*X(5256)-JVS(28958)*X(5258))/(JVS(28951)) - X(4862) = (X(4862)-JVS(28938)*X(4932)-JVS(28939)*X(5194)-JVS(28940)*X(5250)-JVS(28941)*X(5252)-JVS(28942)*X(5253)& - &-JVS(28943)*X(5255)-JVS(28944)*X(5256))/(JVS(28937)) - X(4861) = (X(4861)-JVS(28926)*X(5209)-JVS(28927)*X(5219)-JVS(28928)*X(5224)-JVS(28929)*X(5250)-JVS(28930)*X(5252)& - &-JVS(28931)*X(5255)-JVS(28932)*X(5256))/(JVS(28925)) - X(4860) = (X(4860)-JVS(28915)*X(4980)-JVS(28916)*X(5082)-JVS(28917)*X(5250)-JVS(28918)*X(5252)-JVS(28919)*X(5253)& - &-JVS(28920)*X(5255)-JVS(28921)*X(5256))/(JVS(28914)) - X(4859) = (X(4859)-JVS(28904)*X(4965)-JVS(28905)*X(5250)-JVS(28906)*X(5252)-JVS(28907)*X(5253)-JVS(28908)*X(5255)& - &-JVS(28909)*X(5256)-JVS(28910)*X(5258))/(JVS(28903)) - X(4858) = (X(4858)-JVS(28893)*X(4990)-JVS(28894)*X(5192)-JVS(28895)*X(5250)-JVS(28896)*X(5252)-JVS(28897)*X(5253)& - &-JVS(28898)*X(5255)-JVS(28899)*X(5256))/(JVS(28892)) - X(4857) = (X(4857)-JVS(28883)*X(4895)-JVS(28884)*X(5250)-JVS(28885)*X(5252)-JVS(28886)*X(5253)-JVS(28887)*X(5255)& - &-JVS(28888)*X(5256)-JVS(28889)*X(5258))/(JVS(28882)) - X(4856) = (X(4856)-JVS(28870)*X(4972)-JVS(28871)*X(5096)-JVS(28872)*X(5190)-JVS(28873)*X(5250)-JVS(28874)*X(5252)& - &-JVS(28875)*X(5255)-JVS(28876)*X(5256))/(JVS(28869)) - X(4855) = (X(4855)-JVS(28859)*X(5083)-JVS(28860)*X(5250)-JVS(28861)*X(5252)-JVS(28862)*X(5253)-JVS(28863)*X(5255)& - &-JVS(28864)*X(5256)-JVS(28865)*X(5258))/(JVS(28858)) - X(4854) = (X(4854)-JVS(28846)*X(5215)-JVS(28847)*X(5250)-JVS(28848)*X(5252)-JVS(28849)*X(5253)-JVS(28850)*X(5255)& - &-JVS(28851)*X(5256))/(JVS(28845)) - X(4853) = (X(4853)-JVS(28831)*X(4854)-JVS(28832)*X(5072)-JVS(28833)*X(5250)-JVS(28834)*X(5252)-JVS(28835)*X(5253)& - &-JVS(28836)*X(5255)-JVS(28837)*X(5256))/(JVS(28830)) - X(4852) = (X(4852)-JVS(28815)*X(4876)-JVS(28816)*X(4880)-JVS(28817)*X(5250)-JVS(28818)*X(5252)-JVS(28819)*X(5253)& - &-JVS(28820)*X(5255)-JVS(28821)*X(5256))/(JVS(28814)) - X(4851) = (X(4851)-JVS(28802)*X(5049)-JVS(28803)*X(5091)-JVS(28804)*X(5093)-JVS(28805)*X(5250)-JVS(28806)*X(5252)& - &-JVS(28807)*X(5255)-JVS(28808)*X(5256))/(JVS(28801)) - X(4850) = (X(4850)-JVS(28784)*X(5065)-JVS(28785)*X(5138)-JVS(28786)*X(5250)-JVS(28787)*X(5252)-JVS(28788)*X(5253)& - &-JVS(28789)*X(5255)-JVS(28790)*X(5256))/(JVS(28783)) - X(4849) = (X(4849)-JVS(28762)*X(5175)-JVS(28763)*X(5176)-JVS(28764)*X(5250)-JVS(28765)*X(5252)-JVS(28766)*X(5253)& - &-JVS(28767)*X(5255)-JVS(28768)*X(5256))/(JVS(28761)) - X(4848) = (X(4848)-JVS(28746)*X(5163)-JVS(28747)*X(5192)-JVS(28748)*X(5250)-JVS(28749)*X(5252)-JVS(28750)*X(5253)& - &-JVS(28751)*X(5255)-JVS(28752)*X(5256))/(JVS(28745)) - X(4847) = (X(4847)-JVS(28735)*X(5169)-JVS(28736)*X(5250)-JVS(28737)*X(5252)-JVS(28738)*X(5253)-JVS(28739)*X(5255)& - &-JVS(28740)*X(5256)-JVS(28741)*X(5258))/(JVS(28734)) - X(4846) = (X(4846)-JVS(28718)*X(4971)-JVS(28719)*X(5250)-JVS(28720)*X(5252)-JVS(28721)*X(5253)-JVS(28722)*X(5255)& - &-JVS(28723)*X(5256)-JVS(28724)*X(5258))/(JVS(28717)) - X(4845) = (X(4845)-JVS(28706)*X(4922)-JVS(28707)*X(5200)-JVS(28708)*X(5250)-JVS(28709)*X(5252)-JVS(28710)*X(5255)& - &-JVS(28711)*X(5256)-JVS(28712)*X(5258))/(JVS(28705)) - X(4844) = (X(4844)-JVS(28692)*X(5077)-JVS(28693)*X(5082)-JVS(28694)*X(5090)-JVS(28695)*X(5250)-JVS(28696)*X(5252)& - &-JVS(28697)*X(5255)-JVS(28698)*X(5256))/(JVS(28691)) - X(4843) = (X(4843)-JVS(28679)*X(5250)-JVS(28680)*X(5251)-JVS(28681)*X(5252)-JVS(28682)*X(5253)-JVS(28683)*X(5254)& - &-JVS(28684)*X(5256)-JVS(28685)*X(5258))/(JVS(28678)) - X(4842) = (X(4842)-JVS(28667)*X(5044)-JVS(28668)*X(5083)-JVS(28669)*X(5175)-JVS(28670)*X(5250)-JVS(28671)*X(5252)& - &-JVS(28672)*X(5253)-JVS(28673)*X(5255)-JVS(28674)*X(5256)-JVS(28675)*X(5258))/(JVS(28666)) - X(4841) = (X(4841)-JVS(28642)*X(4901)-JVS(28643)*X(4994)-JVS(28644)*X(5045)-JVS(28645)*X(5250)-JVS(28646)*X(5252)& - &-JVS(28647)*X(5253)-JVS(28648)*X(5255)-JVS(28649)*X(5256)-JVS(28650)*X(5258))/(JVS(28641)) - X(4840) = (X(4840)-JVS(28631)*X(5250)-JVS(28632)*X(5256)-JVS(28633)*X(5258))/(JVS(28630)) - X(4839) = (X(4839)-JVS(28623)*X(4978)-JVS(28624)*X(5247)-JVS(28625)*X(5250)-JVS(28626)*X(5252)-JVS(28627)*X(5253)& - &-JVS(28628)*X(5255)-JVS(28629)*X(5256))/(JVS(28622)) - X(4838) = (X(4838)-JVS(28606)*X(5250)-JVS(28607)*X(5251)-JVS(28608)*X(5252)-JVS(28609)*X(5253)-JVS(28610)*X(5254)& - &-JVS(28611)*X(5256)-JVS(28612)*X(5258))/(JVS(28605)) - X(4837) = (X(4837)-JVS(28597)*X(5147)-JVS(28598)*X(5250)-JVS(28599)*X(5252)-JVS(28600)*X(5255)-JVS(28601)*X(5256)& - &-JVS(28602)*X(5258))/(JVS(28596)) - X(4836) = (X(4836)-JVS(28587)*X(5045)-JVS(28588)*X(5250)-JVS(28589)*X(5252)-JVS(28590)*X(5253)-JVS(28591)*X(5255)& - &-JVS(28592)*X(5256))/(JVS(28586)) - X(4835) = (X(4835)-JVS(28578)*X(5123)-JVS(28579)*X(5250)-JVS(28580)*X(5252)-JVS(28581)*X(5255)-JVS(28582)*X(5256))& - &/(JVS(28577)) - X(4834) = (X(4834)-JVS(28570)*X(5077)-JVS(28571)*X(5082)-JVS(28572)*X(5250)-JVS(28573)*X(5252)-JVS(28574)*X(5255)& - &-JVS(28575)*X(5256))/(JVS(28569)) - X(4833) = (X(4833)-JVS(28555)*X(5250)-JVS(28556)*X(5252)-JVS(28557)*X(5253)-JVS(28558)*X(5255)-JVS(28559)*X(5256)& - &-JVS(28560)*X(5258))/(JVS(28554)) - X(4832) = (X(4832)-JVS(28545)*X(5204)-JVS(28546)*X(5217)-JVS(28547)*X(5250)-JVS(28548)*X(5252)-JVS(28549)*X(5256)& - &-JVS(28550)*X(5258))/(JVS(28544)) - X(4831) = (X(4831)-JVS(28532)*X(4832)-JVS(28533)*X(5047)-JVS(28534)*X(5250)-JVS(28535)*X(5251)-JVS(28536)*X(5252)& - &-JVS(28537)*X(5253)-JVS(28538)*X(5254)-JVS(28539)*X(5255)-JVS(28540)*X(5256)-JVS(28541)*X(5258))/(JVS(28531)) - X(4830) = (X(4830)-JVS(28518)*X(5250)-JVS(28519)*X(5252)-JVS(28520)*X(5253)-JVS(28521)*X(5255)-JVS(28522)*X(5256)& - &-JVS(28523)*X(5258))/(JVS(28517)) - X(4829) = (X(4829)-JVS(28506)*X(5250)-JVS(28507)*X(5252)-JVS(28508)*X(5253)-JVS(28509)*X(5255)-JVS(28510)*X(5256)& - &-JVS(28511)*X(5258))/(JVS(28505)) - X(4828) = (X(4828)-JVS(28496)*X(4951)-JVS(28497)*X(5251)-JVS(28498)*X(5252)-JVS(28499)*X(5253)-JVS(28500)*X(5254)& - &-JVS(28501)*X(5258))/(JVS(28495)) - X(4827) = (X(4827)-JVS(28489)*X(5186)-JVS(28490)*X(5250)-JVS(28491)*X(5252)-JVS(28492)*X(5255)-JVS(28493)*X(5256))& - &/(JVS(28488)) - X(4826) = (X(4826)-JVS(28477)*X(5035)-JVS(28478)*X(5250)-JVS(28479)*X(5252)-JVS(28480)*X(5253)-JVS(28481)*X(5255)& - &-JVS(28482)*X(5256))/(JVS(28476)) - X(4825) = (X(4825)-JVS(28467)*X(5247)-JVS(28468)*X(5250)-JVS(28469)*X(5252)-JVS(28470)*X(5255)-JVS(28471)*X(5256))& - &/(JVS(28466)) - X(4824) = (X(4824)-JVS(28458)*X(5175)-JVS(28459)*X(5251)-JVS(28460)*X(5252)-JVS(28461)*X(5253)-JVS(28462)*X(5254)& - &-JVS(28463)*X(5258))/(JVS(28457)) - X(4823) = (X(4823)-JVS(28449)*X(4928)-JVS(28450)*X(5250)-JVS(28451)*X(5252)-JVS(28452)*X(5253)-JVS(28453)*X(5255)& - &-JVS(28454)*X(5256)-JVS(28455)*X(5258))/(JVS(28448)) - X(4822) = (X(4822)-JVS(28428)*X(4928)-JVS(28429)*X(5250)-JVS(28430)*X(5252)-JVS(28431)*X(5253)-JVS(28432)*X(5255)& - &-JVS(28433)*X(5256)-JVS(28434)*X(5258))/(JVS(28427)) - X(4821) = (X(4821)-JVS(28416)*X(5250)-JVS(28417)*X(5252)-JVS(28418)*X(5255)-JVS(28419)*X(5256)-JVS(28420)*X(5258))& - &/(JVS(28415)) - X(4820) = (X(4820)-JVS(28409)*X(5245)-JVS(28410)*X(5250)-JVS(28411)*X(5252)-JVS(28412)*X(5255)-JVS(28413)*X(5256))& - &/(JVS(28408)) - X(4819) = (X(4819)-JVS(28398)*X(5153)-JVS(28399)*X(5251)-JVS(28400)*X(5252)-JVS(28401)*X(5253)-JVS(28402)*X(5254)& - &-JVS(28403)*X(5258))/(JVS(28397)) - X(4818) = (X(4818)-JVS(28390)*X(5072)-JVS(28391)*X(5250)-JVS(28392)*X(5252)-JVS(28393)*X(5253)-JVS(28394)*X(5255)& - &-JVS(28395)*X(5256))/(JVS(28389)) - X(4817) = (X(4817)-JVS(28382)*X(5190)-JVS(28383)*X(5250)-JVS(28384)*X(5252)-JVS(28385)*X(5255)-JVS(28386)*X(5256))& - &/(JVS(28381)) - X(4816) = (X(4816)-JVS(28371)*X(5024)-JVS(28372)*X(5250)-JVS(28373)*X(5252)-JVS(28374)*X(5253)-JVS(28375)*X(5255)& - &-JVS(28376)*X(5256))/(JVS(28370)) - X(4815) = (X(4815)-JVS(28362)*X(5068)-JVS(28363)*X(5250)-JVS(28364)*X(5252)-JVS(28365)*X(5253)-JVS(28366)*X(5255)& - &-JVS(28367)*X(5256))/(JVS(28361)) - X(4814) = (X(4814)-JVS(28349)*X(5181)-JVS(28350)*X(5250)-JVS(28351)*X(5252)-JVS(28352)*X(5255)-JVS(28353)*X(5256))& - &/(JVS(28348)) - X(4813) = (X(4813)-JVS(28340)*X(5250)-JVS(28341)*X(5252)-JVS(28342)*X(5253)-JVS(28343)*X(5255)-JVS(28344)*X(5256)& - &-JVS(28345)*X(5258))/(JVS(28339)) - X(4812) = (X(4812)-JVS(28329)*X(5041)-JVS(28330)*X(5250)-JVS(28331)*X(5252)-JVS(28332)*X(5253)-JVS(28333)*X(5255)& - &-JVS(28334)*X(5256))/(JVS(28328)) - X(4811) = (X(4811)-JVS(28316)*X(5119)-JVS(28317)*X(5250)-JVS(28318)*X(5252)-JVS(28319)*X(5255)-JVS(28320)*X(5256))& - &/(JVS(28315)) - X(4810) = (X(4810)-JVS(28305)*X(5250)-JVS(28306)*X(5252)-JVS(28307)*X(5253)-JVS(28308)*X(5255)-JVS(28309)*X(5256)& - &-JVS(28310)*X(5258))/(JVS(28304)) - X(4809) = (X(4809)-JVS(28294)*X(5239)-JVS(28295)*X(5250)-JVS(28296)*X(5252)-JVS(28297)*X(5255)-JVS(28298)*X(5256)& - &-JVS(28299)*X(5258))/(JVS(28293)) - X(4808) = (X(4808)-JVS(28284)*X(4927)-JVS(28285)*X(5250)-JVS(28286)*X(5252)-JVS(28287)*X(5253)-JVS(28288)*X(5255)& - &-JVS(28289)*X(5256))/(JVS(28283)) - X(4807) = (X(4807)-JVS(28274)*X(5250)-JVS(28275)*X(5252)-JVS(28276)*X(5253)-JVS(28277)*X(5255)-JVS(28278)*X(5256)& - &-JVS(28279)*X(5258))/(JVS(28273)) - X(4806) = (X(4806)-JVS(28264)*X(5081)-JVS(28265)*X(5250)-JVS(28266)*X(5252)-JVS(28267)*X(5253)-JVS(28268)*X(5255)& - &-JVS(28269)*X(5256))/(JVS(28263)) - X(4805) = (X(4805)-JVS(28252)*X(4976)-JVS(28253)*X(5033)-JVS(28254)*X(5250)-JVS(28255)*X(5256)-JVS(28256)*X(5258))& - &/(JVS(28251)) - X(4804) = (X(4804)-JVS(28246)*X(5250)-JVS(28247)*X(5252)-JVS(28248)*X(5255)-JVS(28249)*X(5256)-JVS(28250)*X(5258))& - &/(JVS(28245)) - X(4803) = (X(4803)-JVS(28236)*X(5250)-JVS(28237)*X(5252)-JVS(28238)*X(5255)-JVS(28239)*X(5256)-JVS(28240)*X(5258))& - &/(JVS(28235)) - X(4802) = (X(4802)-JVS(28229)*X(5119)-JVS(28230)*X(5250)-JVS(28231)*X(5252)-JVS(28232)*X(5255)-JVS(28233)*X(5256))& - &/(JVS(28228)) - X(4801) = (X(4801)-JVS(28212)*X(4802)-JVS(28213)*X(4934)-JVS(28214)*X(4975)-JVS(28215)*X(4979)-JVS(28216)*X(5010)& - &-JVS(28217)*X(5032)-JVS(28218)*X(5119)-JVS(28219)*X(5120)-JVS(28220)*X(5151)-JVS(28221)*X(5250)-JVS(28222)& - &*X(5252)-JVS(28223)*X(5253)-JVS(28224)*X(5255)-JVS(28225)*X(5256))/(JVS(28211)) - X(4800) = (X(4800)-JVS(28188)*X(5119)-JVS(28189)*X(5250)-JVS(28190)*X(5252)-JVS(28191)*X(5255)-JVS(28192)*X(5256))& - &/(JVS(28187)) - X(4799) = (X(4799)-JVS(28181)*X(5250)-JVS(28182)*X(5252)-JVS(28183)*X(5255)-JVS(28184)*X(5256))/(JVS(28180)) - X(4798) = (X(4798)-JVS(28168)*X(5250)-JVS(28169)*X(5252)-JVS(28170)*X(5253)-JVS(28171)*X(5255)-JVS(28172)*X(5256)& - &-JVS(28173)*X(5258))/(JVS(28167)) - X(4797) = (X(4797)-JVS(28155)*X(5250)-JVS(28156)*X(5252)-JVS(28157)*X(5253)-JVS(28158)*X(5255)-JVS(28159)*X(5256)& - &-JVS(28160)*X(5258))/(JVS(28154)) - X(4796) = (X(4796)-JVS(28131)*X(4797)-JVS(28132)*X(4798)-JVS(28133)*X(4799)-JVS(28134)*X(4859)-JVS(28135)*X(4916)& - &-JVS(28136)*X(4968)-JVS(28137)*X(4986)-JVS(28138)*X(5005)-JVS(28139)*X(5034)-JVS(28140)*X(5036)-JVS(28141)& - &*X(5167)-JVS(28142)*X(5170)-JVS(28143)*X(5216)-JVS(28144)*X(5250)-JVS(28145)*X(5252)-JVS(28146)*X(5253)& - &-JVS(28147)*X(5255)-JVS(28148)*X(5256)-JVS(28149)*X(5258))/(JVS(28130)) - X(4795) = (X(4795)-JVS(28062)*X(5036)-JVS(28063)*X(5250)-JVS(28064)*X(5252)-JVS(28065)*X(5253)-JVS(28066)*X(5255)& - &-JVS(28067)*X(5256))/(JVS(28061)) - X(4794) = (X(4794)-JVS(28055)*X(5166)-JVS(28056)*X(5250)-JVS(28057)*X(5256)-JVS(28058)*X(5258))/(JVS(28054)) - X(4793) = (X(4793)-JVS(28048)*X(5141)-JVS(28049)*X(5250)-JVS(28050)*X(5252)-JVS(28051)*X(5255)-JVS(28052)*X(5256)& - &-JVS(28053)*X(5258))/(JVS(28047)) - X(4792) = (X(4792)-JVS(28038)*X(5250)-JVS(28039)*X(5252)-JVS(28040)*X(5253)-JVS(28041)*X(5255)-JVS(28042)*X(5256)& - &-JVS(28043)*X(5258))/(JVS(28037)) - X(4791) = (X(4791)-JVS(28022)*X(5250)-JVS(28023)*X(5252)-JVS(28024)*X(5253)-JVS(28025)*X(5255)-JVS(28026)*X(5256)& - &-JVS(28027)*X(5258))/(JVS(28021)) - X(4790) = (X(4790)-JVS(28011)*X(5250)-JVS(28012)*X(5252)-JVS(28013)*X(5253)-JVS(28014)*X(5255)-JVS(28015)*X(5256)& - &-JVS(28016)*X(5258))/(JVS(28010)) - X(4789) = (X(4789)-JVS(28001)*X(5215)-JVS(28002)*X(5250)-JVS(28003)*X(5252)-JVS(28004)*X(5255)-JVS(28005)*X(5256))& - &/(JVS(28000)) - X(4788) = (X(4788)-JVS(27989)*X(5250)-JVS(27990)*X(5252)-JVS(27991)*X(5253)-JVS(27992)*X(5255)-JVS(27993)*X(5256)& - &-JVS(27994)*X(5258))/(JVS(27988)) - X(4787) = (X(4787)-JVS(27978)*X(4933)-JVS(27979)*X(5250)-JVS(27980)*X(5252)-JVS(27981)*X(5253)-JVS(27982)*X(5255)& - &-JVS(27983)*X(5256))/(JVS(27977)) - X(4786) = (X(4786)-JVS(27970)*X(5224)-JVS(27971)*X(5250)-JVS(27972)*X(5252)-JVS(27973)*X(5258))/(JVS(27969)) - X(4785) = (X(4785)-JVS(27964)*X(5148)-JVS(27965)*X(5250)-JVS(27966)*X(5252)-JVS(27967)*X(5255)-JVS(27968)*X(5256))& - &/(JVS(27963)) - X(4784) = (X(4784)-JVS(27956)*X(5109)-JVS(27957)*X(5250)-JVS(27958)*X(5252)-JVS(27959)*X(5255)-JVS(27960)*X(5256))& - &/(JVS(27955)) - X(4783) = (X(4783)-JVS(27948)*X(5226)-JVS(27949)*X(5250)-JVS(27950)*X(5252)-JVS(27951)*X(5255)-JVS(27952)*X(5256))& - &/(JVS(27947)) - X(4782) = (X(4782)-JVS(27942)*X(5250)-JVS(27943)*X(5252)-JVS(27944)*X(5255)-JVS(27945)*X(5256)-JVS(27946)*X(5258))& - &/(JVS(27941)) - X(4781) = (X(4781)-JVS(27932)*X(4891)-JVS(27933)*X(5212)-JVS(27934)*X(5250)-JVS(27935)*X(5252)-JVS(27936)*X(5255)& - &-JVS(27937)*X(5256))/(JVS(27931)) - X(4780) = (X(4780)-JVS(27925)*X(5032)-JVS(27926)*X(5250)-JVS(27927)*X(5252)-JVS(27928)*X(5255)-JVS(27929)*X(5256))& - &/(JVS(27924)) - X(4779) = (X(4779)-JVS(27916)*X(5187)-JVS(27917)*X(5250)-JVS(27918)*X(5252)-JVS(27919)*X(5255)-JVS(27920)*X(5256)& - &-JVS(27921)*X(5258))/(JVS(27915)) - X(4778) = (X(4778)-JVS(27908)*X(5120)-JVS(27909)*X(5250)-JVS(27910)*X(5252)-JVS(27911)*X(5255)-JVS(27912)*X(5256))& - &/(JVS(27907)) - X(4777) = (X(4777)-JVS(27900)*X(5250)-JVS(27901)*X(5252)-JVS(27902)*X(5255)-JVS(27903)*X(5256)-JVS(27904)*X(5258))& - &/(JVS(27899)) - X(4776) = (X(4776)-JVS(27891)*X(5093)-JVS(27892)*X(5251)-JVS(27893)*X(5252)-JVS(27894)*X(5253)-JVS(27895)*X(5254)& - &-JVS(27896)*X(5258))/(JVS(27890)) - X(4775) = (X(4775)-JVS(27883)*X(5066)-JVS(27884)*X(5250)-JVS(27885)*X(5252)-JVS(27886)*X(5253)-JVS(27887)*X(5255)& - &-JVS(27888)*X(5256))/(JVS(27882)) - X(4774) = (X(4774)-JVS(27868)*X(5166)-JVS(27869)*X(5250)-JVS(27870)*X(5252)-JVS(27871)*X(5255)-JVS(27872)*X(5256)& - &-JVS(27873)*X(5258))/(JVS(27867)) - X(4773) = (X(4773)-JVS(27859)*X(5209)-JVS(27860)*X(5250)-JVS(27861)*X(5252)-JVS(27862)*X(5253)-JVS(27863)*X(5255)& - &-JVS(27864)*X(5256))/(JVS(27858)) - X(4772) = (X(4772)-JVS(27847)*X(4945)-JVS(27848)*X(5250)-JVS(27849)*X(5252)-JVS(27850)*X(5253)-JVS(27851)*X(5255)& - &-JVS(27852)*X(5256))/(JVS(27846)) - X(4771) = (X(4771)-JVS(27836)*X(5077)-JVS(27837)*X(5250)-JVS(27838)*X(5252)-JVS(27839)*X(5253)-JVS(27840)*X(5255)& - &-JVS(27841)*X(5256))/(JVS(27835)) - X(4770) = (X(4770)-JVS(27826)*X(4895)-JVS(27827)*X(5250)-JVS(27828)*X(5252)-JVS(27829)*X(5253)-JVS(27830)*X(5255)& - &-JVS(27831)*X(5256))/(JVS(27825)) - X(4769) = (X(4769)-JVS(27816)*X(5250)-JVS(27817)*X(5252)-JVS(27818)*X(5253)-JVS(27819)*X(5255)-JVS(27820)*X(5256)& - &-JVS(27821)*X(5258))/(JVS(27815)) - X(4768) = (X(4768)-JVS(27798)*X(4882)-JVS(27799)*X(4989)-JVS(27800)*X(4996)-JVS(27801)*X(5004)-JVS(27802)*X(5052)& - &-JVS(27803)*X(5250)-JVS(27804)*X(5252)-JVS(27805)*X(5253)-JVS(27806)*X(5255)-JVS(27807)*X(5256))/(JVS(27797)) - X(4767) = (X(4767)-JVS(27780)*X(4876)-JVS(27781)*X(5250)-JVS(27782)*X(5252)-JVS(27783)*X(5255)-JVS(27784)*X(5256)& - &-JVS(27785)*X(5258))/(JVS(27779)) - X(4766) = (X(4766)-JVS(27769)*X(5107)-JVS(27770)*X(5238)-JVS(27771)*X(5250)-JVS(27772)*X(5252)-JVS(27773)*X(5255)& - &-JVS(27774)*X(5256))/(JVS(27768)) - X(4765) = (X(4765)-JVS(27761)*X(5081)-JVS(27762)*X(5250)-JVS(27763)*X(5252)-JVS(27764)*X(5255)-JVS(27765)*X(5256))& - &/(JVS(27760)) - X(4764) = (X(4764)-JVS(27751)*X(5014)-JVS(27752)*X(5207)-JVS(27753)*X(5250)-JVS(27754)*X(5252)-JVS(27755)*X(5253)& - &-JVS(27756)*X(5255)-JVS(27757)*X(5256))/(JVS(27750)) - X(4763) = (X(4763)-JVS(27736)*X(4853)-JVS(27737)*X(4854)-JVS(27738)*X(5203)-JVS(27739)*X(5250)-JVS(27740)*X(5252)& - &-JVS(27741)*X(5255)-JVS(27742)*X(5256))/(JVS(27735)) - X(4762) = (X(4762)-JVS(27723)*X(5248)-JVS(27724)*X(5250)-JVS(27725)*X(5252)-JVS(27726)*X(5255)-JVS(27727)*X(5256)& - &-JVS(27728)*X(5257)-JVS(27729)*X(5258))/(JVS(27722)) - X(4761) = (X(4761)-JVS(27714)*X(5248)-JVS(27715)*X(5249)-JVS(27716)*X(5250)-JVS(27717)*X(5252)-JVS(27718)*X(5255)& - &-JVS(27719)*X(5256)-JVS(27720)*X(5258))/(JVS(27713)) - X(4760) = (X(4760)-JVS(27705)*X(5138)-JVS(27706)*X(5162)-JVS(27707)*X(5250)-JVS(27708)*X(5252)-JVS(27709)*X(5253)& - &-JVS(27710)*X(5255)-JVS(27711)*X(5256))/(JVS(27704)) - X(4759) = (X(4759)-JVS(27683)*X(4806)-JVS(27684)*X(5111)-JVS(27685)*X(5113)-JVS(27686)*X(5250)-JVS(27687)*X(5252)& - &-JVS(27688)*X(5253)-JVS(27689)*X(5255)-JVS(27690)*X(5256))/(JVS(27682)) - X(4758) = (X(4758)-JVS(27672)*X(5217)-JVS(27673)*X(5252)-JVS(27674)*X(5255)-JVS(27675)*X(5256))/(JVS(27671)) - X(4757) = (X(4757)-JVS(27664)*X(4988)-JVS(27665)*X(5250)-JVS(27666)*X(5251)-JVS(27667)*X(5252)-JVS(27668)*X(5253)& - &-JVS(27669)*X(5254)-JVS(27670)*X(5258))/(JVS(27663)) - X(4756) = (X(4756)-JVS(27654)*X(4988)-JVS(27655)*X(5250)-JVS(27656)*X(5252)-JVS(27657)*X(5255)-JVS(27658)*X(5256)& - &-JVS(27659)*X(5257)-JVS(27660)*X(5258))/(JVS(27653)) - X(4755) = (X(4755)-JVS(27645)*X(4974)-JVS(27646)*X(5238)-JVS(27647)*X(5250)-JVS(27648)*X(5252)-JVS(27649)*X(5253)& - &-JVS(27650)*X(5255)-JVS(27651)*X(5256))/(JVS(27644)) - X(4754) = (X(4754)-JVS(27631)*X(4988)-JVS(27632)*X(5250)-JVS(27633)*X(5252)-JVS(27634)*X(5255)-JVS(27635)*X(5256)& - &-JVS(27636)*X(5257)-JVS(27637)*X(5258))/(JVS(27630)) - X(4753) = (X(4753)-JVS(27622)*X(5022)-JVS(27623)*X(5074)-JVS(27624)*X(5250)-JVS(27625)*X(5252)-JVS(27626)*X(5253)& - &-JVS(27627)*X(5255)-JVS(27628)*X(5256))/(JVS(27621)) - X(4752) = (X(4752)-JVS(27610)*X(5044)-JVS(27611)*X(5085)-JVS(27612)*X(5250)-JVS(27613)*X(5252)-JVS(27614)*X(5253)& - &-JVS(27615)*X(5255)-JVS(27616)*X(5256))/(JVS(27609)) - X(4751) = (X(4751)-JVS(27595)*X(5047)-JVS(27596)*X(5250)-JVS(27597)*X(5251)-JVS(27598)*X(5252)-JVS(27599)*X(5253)& - &-JVS(27600)*X(5254)-JVS(27601)*X(5255)-JVS(27602)*X(5256))/(JVS(27594)) - X(4750) = (X(4750)-JVS(27585)*X(4920)-JVS(27586)*X(4977)-JVS(27587)*X(5250)-JVS(27588)*X(5252)-JVS(27589)*X(5253)& - &-JVS(27590)*X(5255)-JVS(27591)*X(5256))/(JVS(27584)) - X(4749) = (X(4749)-JVS(27575)*X(5002)-JVS(27576)*X(5204)-JVS(27577)*X(5250)-JVS(27578)*X(5252)-JVS(27579)*X(5253)& - &-JVS(27580)*X(5255)-JVS(27581)*X(5256))/(JVS(27574)) - X(4748) = (X(4748)-JVS(27560)*X(5028)-JVS(27561)*X(5240)-JVS(27562)*X(5250)-JVS(27563)*X(5252)-JVS(27564)*X(5253)& - &-JVS(27565)*X(5255)-JVS(27566)*X(5256))/(JVS(27559)) - X(4747) = (X(4747)-JVS(27537)*X(4970)-JVS(27538)*X(4988)-JVS(27539)*X(5048)-JVS(27540)*X(5083)-JVS(27541)*X(5092)& - &-JVS(27542)*X(5095)-JVS(27543)*X(5169)-JVS(27544)*X(5187)-JVS(27545)*X(5189)-JVS(27546)*X(5207)-JVS(27547)& - &*X(5250)-JVS(27548)*X(5256)-JVS(27549)*X(5257)-JVS(27550)*X(5258))/(JVS(27536)) - X(4746) = (X(4746)-JVS(27526)*X(4988)-JVS(27527)*X(5250)-JVS(27528)*X(5252)-JVS(27529)*X(5255)-JVS(27530)*X(5256)& - &-JVS(27531)*X(5257)-JVS(27532)*X(5258))/(JVS(27525)) - X(4745) = (X(4745)-JVS(27516)*X(4746)-JVS(27517)*X(5099)-JVS(27518)*X(5206)-JVS(27519)*X(5250)-JVS(27520)*X(5252)& - &-JVS(27521)*X(5253)-JVS(27522)*X(5255)-JVS(27523)*X(5256))/(JVS(27515)) - X(4744) = (X(4744)-JVS(27506)*X(5250)-JVS(27507)*X(5252)-JVS(27508)*X(5253)-JVS(27509)*X(5255)-JVS(27510)*X(5256))& - &/(JVS(27505)) - X(4743) = (X(4743)-JVS(27498)*X(5250)-JVS(27499)*X(5252)-JVS(27500)*X(5255)-JVS(27501)*X(5256))/(JVS(27497)) - X(4742) = (X(4742)-JVS(27484)*X(4770)-JVS(27485)*X(4857)-JVS(27486)*X(5250)-JVS(27487)*X(5252)-JVS(27488)*X(5253)& - &-JVS(27489)*X(5255)-JVS(27490)*X(5256))/(JVS(27483)) - X(4741) = (X(4741)-JVS(27471)*X(5030)-JVS(27472)*X(5076)-JVS(27473)*X(5250)-JVS(27474)*X(5251)-JVS(27475)*X(5252)& - &-JVS(27476)*X(5253)-JVS(27477)*X(5254)-JVS(27478)*X(5258))/(JVS(27470)) - X(4740) = (X(4740)-JVS(27459)*X(4803)-JVS(27460)*X(4948)-JVS(27461)*X(5250)-JVS(27462)*X(5252)-JVS(27463)*X(5253)& - &-JVS(27464)*X(5255)-JVS(27465)*X(5256)-JVS(27466)*X(5258))/(JVS(27458)) - X(4739) = (X(4739)-JVS(27445)*X(5022)-JVS(27446)*X(5074)-JVS(27447)*X(5250)-JVS(27448)*X(5252)-JVS(27449)*X(5253)& - &-JVS(27450)*X(5255)-JVS(27451)*X(5256))/(JVS(27444)) - X(4738) = (X(4738)-JVS(27433)*X(5028)-JVS(27434)*X(5240)-JVS(27435)*X(5250)-JVS(27436)*X(5252)-JVS(27437)*X(5253)& - &-JVS(27438)*X(5255)-JVS(27439)*X(5256))/(JVS(27432)) - X(4737) = (X(4737)-JVS(27422)*X(5063)-JVS(27423)*X(5116)-JVS(27424)*X(5250)-JVS(27425)*X(5252)-JVS(27426)*X(5253)& - &-JVS(27427)*X(5255)-JVS(27428)*X(5256))/(JVS(27421)) - X(4736) = (X(4736)-JVS(27411)*X(5238)-JVS(27412)*X(5250)-JVS(27413)*X(5252)-JVS(27414)*X(5255)-JVS(27415)*X(5256))& - &/(JVS(27410)) - X(4735) = (X(4735)-JVS(27400)*X(5140)-JVS(27401)*X(5250)-JVS(27402)*X(5252)-JVS(27403)*X(5255)-JVS(27404)*X(5256))& - &/(JVS(27399)) - X(4734) = (X(4734)-JVS(27394)*X(5206)-JVS(27395)*X(5250)-JVS(27396)*X(5252)-JVS(27397)*X(5255)-JVS(27398)*X(5256))& - &/(JVS(27393)) - X(4733) = (X(4733)-JVS(27384)*X(5238)-JVS(27385)*X(5250)-JVS(27386)*X(5252)-JVS(27387)*X(5255)-JVS(27388)*X(5256))& - &/(JVS(27383)) - X(4732) = (X(4732)-JVS(27376)*X(5050)-JVS(27377)*X(5250)-JVS(27378)*X(5252)-JVS(27379)*X(5255)-JVS(27380)*X(5256))& - &/(JVS(27375)) - X(4731) = (X(4731)-JVS(27370)*X(5250)-JVS(27371)*X(5252)-JVS(27372)*X(5253)-JVS(27373)*X(5255)-JVS(27374)*X(5256))& - &/(JVS(27369)) - X(4730) = (X(4730)-JVS(27361)*X(5246)-JVS(27362)*X(5250)-JVS(27363)*X(5252)-JVS(27364)*X(5255)-JVS(27365)*X(5256))& - &/(JVS(27360)) - X(4729) = (X(4729)-JVS(27353)*X(5250)-JVS(27354)*X(5252)-JVS(27355)*X(5255)-JVS(27356)*X(5256)-JVS(27357)*X(5258))& - &/(JVS(27352)) - X(4728) = (X(4728)-JVS(27325)*X(4877)-JVS(27326)*X(5103)-JVS(27327)*X(5250)-JVS(27328)*X(5252)-JVS(27329)*X(5255)& - &-JVS(27330)*X(5256)-JVS(27331)*X(5258))/(JVS(27324)) - X(4727) = (X(4727)-JVS(27310)*X(5250)-JVS(27311)*X(5252)-JVS(27312)*X(5255)-JVS(27313)*X(5256)-JVS(27314)*X(5258))& - &/(JVS(27309)) - X(4726) = (X(4726)-JVS(27303)*X(5250)-JVS(27304)*X(5252)-JVS(27305)*X(5253)-JVS(27306)*X(5255)-JVS(27307)*X(5256))& - &/(JVS(27302)) - X(4725) = (X(4725)-JVS(27291)*X(5250)-JVS(27292)*X(5252)-JVS(27293)*X(5255)-JVS(27294)*X(5256)-JVS(27295)*X(5258))& - &/(JVS(27290)) - X(4724) = (X(4724)-JVS(27284)*X(5051)-JVS(27285)*X(5250)-JVS(27286)*X(5252)-JVS(27287)*X(5255)-JVS(27288)*X(5256))& - &/(JVS(27283)) - X(4723) = (X(4723)-JVS(27274)*X(5250)-JVS(27275)*X(5252)-JVS(27276)*X(5255)-JVS(27277)*X(5256)-JVS(27278)*X(5258))& - &/(JVS(27273)) - X(4722) = (X(4722)-JVS(27266)*X(5146)-JVS(27267)*X(5250)-JVS(27268)*X(5252)-JVS(27269)*X(5255)-JVS(27270)*X(5256))& - &/(JVS(27265)) - X(4721) = (X(4721)-JVS(27254)*X(4821)-JVS(27255)*X(4928)-JVS(27256)*X(5250)-JVS(27257)*X(5252)-JVS(27258)*X(5255)& - &-JVS(27259)*X(5256)-JVS(27260)*X(5258))/(JVS(27253)) - X(4720) = (X(4720)-JVS(27226)*X(5250)-JVS(27227)*X(5252)-JVS(27228)*X(5255)-JVS(27229)*X(5256)-JVS(27230)*X(5258))& - &/(JVS(27225)) - X(4719) = (X(4719)-JVS(27219)*X(5250)-JVS(27220)*X(5252)-JVS(27221)*X(5255)-JVS(27222)*X(5256)-JVS(27223)*X(5258))& - &/(JVS(27218)) - X(4718) = (X(4718)-JVS(27209)*X(5250)-JVS(27210)*X(5252)-JVS(27211)*X(5255)-JVS(27212)*X(5256)-JVS(27213)*X(5258))& - &/(JVS(27208)) - X(4717) = (X(4717)-JVS(27202)*X(5186)-JVS(27203)*X(5250)-JVS(27204)*X(5252)-JVS(27205)*X(5255)-JVS(27206)*X(5256))& - &/(JVS(27201)) - X(4716) = (X(4716)-JVS(27192)*X(5144)-JVS(27193)*X(5250)-JVS(27194)*X(5252)-JVS(27195)*X(5255)-JVS(27196)*X(5256))& - &/(JVS(27191)) - X(4715) = (X(4715)-JVS(27185)*X(5138)-JVS(27186)*X(5250)-JVS(27187)*X(5252)-JVS(27188)*X(5255)-JVS(27189)*X(5256))& - &/(JVS(27184)) - X(4714) = (X(4714)-JVS(27178)*X(5250)-JVS(27179)*X(5252)-JVS(27180)*X(5255)-JVS(27181)*X(5256)-JVS(27182)*X(5258))& - &/(JVS(27177)) - X(4713) = (X(4713)-JVS(27169)*X(5112)-JVS(27170)*X(5250)-JVS(27171)*X(5252)-JVS(27172)*X(5255)-JVS(27173)*X(5256))& - &/(JVS(27168)) - X(4712) = (X(4712)-JVS(27162)*X(5107)-JVS(27163)*X(5250)-JVS(27164)*X(5252)-JVS(27165)*X(5255)-JVS(27166)*X(5256))& - &/(JVS(27161)) - X(4711) = (X(4711)-JVS(27155)*X(5220)-JVS(27156)*X(5250)-JVS(27157)*X(5252)-JVS(27158)*X(5255)-JVS(27159)*X(5256))& - &/(JVS(27154)) - X(4710) = (X(4710)-JVS(27147)*X(5065)-JVS(27148)*X(5138)-JVS(27149)*X(5250)-JVS(27150)*X(5252)-JVS(27151)*X(5253)& - &-JVS(27152)*X(5255)-JVS(27153)*X(5256))/(JVS(27146)) - X(4709) = (X(4709)-JVS(27130)*X(5065)-JVS(27131)*X(5250)-JVS(27132)*X(5252)-JVS(27133)*X(5255)-JVS(27134)*X(5256))& - &/(JVS(27129)) - X(4708) = (X(4708)-JVS(27118)*X(4720)-JVS(27119)*X(4823)-JVS(27120)*X(4877)-JVS(27121)*X(4932)-JVS(27122)*X(5058)& - &-JVS(27123)*X(5250)-JVS(27124)*X(5252)-JVS(27125)*X(5255)-JVS(27126)*X(5256)-JVS(27127)*X(5258))/(JVS(27117)) - X(4707) = (X(4707)-JVS(27102)*X(5250)-JVS(27103)*X(5252)-JVS(27104)*X(5255)-JVS(27105)*X(5256)-JVS(27106)*X(5258))& - &/(JVS(27101)) - X(4706) = (X(4706)-JVS(27095)*X(5037)-JVS(27096)*X(5250)-JVS(27097)*X(5252)-JVS(27098)*X(5255)-JVS(27099)*X(5256))& - &/(JVS(27094)) - X(4705) = (X(4705)-JVS(27088)*X(5230)-JVS(27089)*X(5250)-JVS(27090)*X(5252)-JVS(27091)*X(5255)-JVS(27092)*X(5256))& - &/(JVS(27087)) - X(4704) = (X(4704)-JVS(27081)*X(5064)-JVS(27082)*X(5250)-JVS(27083)*X(5252)-JVS(27084)*X(5255)-JVS(27085)*X(5256))& - &/(JVS(27080)) - X(4703) = (X(4703)-JVS(27075)*X(5103)-JVS(27076)*X(5250)-JVS(27077)*X(5252)-JVS(27078)*X(5255)-JVS(27079)*X(5256))& - &/(JVS(27074)) - X(4702) = (X(4702)-JVS(27069)*X(5250)-JVS(27070)*X(5252)-JVS(27071)*X(5255)-JVS(27072)*X(5256)-JVS(27073)*X(5258))& - &/(JVS(27068)) - X(4701) = (X(4701)-JVS(27060)*X(5250)-JVS(27061)*X(5252)-JVS(27062)*X(5255)-JVS(27063)*X(5256)-JVS(27064)*X(5258))& - &/(JVS(27059)) - X(4700) = (X(4700)-JVS(27053)*X(5250)-JVS(27054)*X(5252)-JVS(27055)*X(5255)-JVS(27056)*X(5256)-JVS(27057)*X(5258))& - &/(JVS(27052)) - X(4699) = (X(4699)-JVS(27045)*X(5250)-JVS(27046)*X(5252)-JVS(27047)*X(5255)-JVS(27048)*X(5256)-JVS(27049)*X(5258))& - &/(JVS(27044)) - X(4698) = (X(4698)-JVS(27038)*X(5032)-JVS(27039)*X(5250)-JVS(27040)*X(5252)-JVS(27041)*X(5255)-JVS(27042)*X(5256))& - &/(JVS(27037)) - X(4697) = (X(4697)-JVS(27029)*X(5061)-JVS(27030)*X(5250)-JVS(27031)*X(5252)-JVS(27032)*X(5255)-JVS(27033)*X(5256))& - &/(JVS(27028)) - X(4696) = (X(4696)-JVS(27021)*X(5238)-JVS(27022)*X(5250)-JVS(27023)*X(5252)-JVS(27024)*X(5255)-JVS(27025)*X(5256))& - &/(JVS(27020)) - X(4695) = (X(4695)-JVS(27013)*X(4840)-JVS(27014)*X(5250)-JVS(27015)*X(5252)-JVS(27016)*X(5255)-JVS(27017)*X(5256))& - &/(JVS(27012)) - X(4694) = (X(4694)-JVS(27005)*X(4985)-JVS(27006)*X(5250)-JVS(27007)*X(5252)-JVS(27008)*X(5253)-JVS(27009)*X(5255)& - &-JVS(27010)*X(5256)-JVS(27011)*X(5258))/(JVS(27004)) - X(4693) = (X(4693)-JVS(26973)*X(4694)-JVS(26974)*X(4772)-JVS(26975)*X(4788)-JVS(26976)*X(4810)-JVS(26977)*X(4946)& - &-JVS(26978)*X(4993)-JVS(26979)*X(5003)-JVS(26980)*X(5040)-JVS(26981)*X(5075)-JVS(26982)*X(5102)-JVS(26983)& - &*X(5133)-JVS(26984)*X(5155)-JVS(26985)*X(5250)-JVS(26986)*X(5252)-JVS(26987)*X(5253)-JVS(26988)*X(5255)& - &-JVS(26989)*X(5256)-JVS(26990)*X(5258))/(JVS(26972)) - X(4692) = (X(4692)-JVS(26901)*X(5250)-JVS(26902)*X(5252)-JVS(26903)*X(5253)-JVS(26904)*X(5255)-JVS(26905)*X(5256)& - &-JVS(26906)*X(5258))/(JVS(26900)) - X(4691) = (X(4691)-JVS(26891)*X(5249)-JVS(26892)*X(5251)-JVS(26893)*X(5252)-JVS(26894)*X(5253)-JVS(26895)*X(5254)& - &-JVS(26896)*X(5258))/(JVS(26890)) - X(4690) = (X(4690)-JVS(26884)*X(5250)-JVS(26885)*X(5252)-JVS(26886)*X(5253)-JVS(26887)*X(5255)-JVS(26888)*X(5256)& - &-JVS(26889)*X(5258))/(JVS(26883)) - X(4689) = (X(4689)-JVS(26873)*X(5066)-JVS(26874)*X(5250)-JVS(26875)*X(5252)-JVS(26876)*X(5255)-JVS(26877)*X(5256)& - &-JVS(26878)*X(5258))/(JVS(26872)) - X(4688) = (X(4688)-JVS(26863)*X(5068)-JVS(26864)*X(5250)-JVS(26865)*X(5252)-JVS(26866)*X(5255)-JVS(26867)*X(5256)& - &-JVS(26868)*X(5258))/(JVS(26862)) - X(4687) = (X(4687)-JVS(26853)*X(5122)-JVS(26854)*X(5250)-JVS(26855)*X(5252)-JVS(26856)*X(5253)-JVS(26857)*X(5255)& - &-JVS(26858)*X(5256))/(JVS(26852)) - X(4686) = (X(4686)-JVS(26839)*X(5122)-JVS(26840)*X(5250)-JVS(26841)*X(5252)-JVS(26842)*X(5253)-JVS(26843)*X(5255)& - &-JVS(26844)*X(5256))/(JVS(26838)) - X(4685) = (X(4685)-JVS(26826)*X(5250)-JVS(26827)*X(5252)-JVS(26828)*X(5253)-JVS(26829)*X(5255)-JVS(26830)*X(5256)& - &-JVS(26831)*X(5258))/(JVS(26825)) - X(4684) = (X(4684)-JVS(26816)*X(4729)-JVS(26817)*X(5250)-JVS(26818)*X(5252)-JVS(26819)*X(5253)-JVS(26820)*X(5255)& - &-JVS(26821)*X(5256))/(JVS(26815)) - X(4683) = (X(4683)-JVS(26807)*X(4829)-JVS(26808)*X(5250)-JVS(26809)*X(5252)-JVS(26810)*X(5255)-JVS(26811)*X(5256)& - &-JVS(26812)*X(5258))/(JVS(26806)) - X(4682) = (X(4682)-JVS(26797)*X(5250)-JVS(26798)*X(5252)-JVS(26799)*X(5253)-JVS(26800)*X(5255)-JVS(26801)*X(5256)& - &-JVS(26802)*X(5258))/(JVS(26796)) - X(4681) = (X(4681)-JVS(26786)*X(5044)-JVS(26787)*X(5250)-JVS(26788)*X(5252)-JVS(26789)*X(5253)-JVS(26790)*X(5255)& - &-JVS(26791)*X(5256))/(JVS(26785)) - X(4680) = (X(4680)-JVS(26776)*X(5250)-JVS(26777)*X(5252)-JVS(26778)*X(5253)-JVS(26779)*X(5255)-JVS(26780)*X(5256)& - &-JVS(26781)*X(5258))/(JVS(26775)) - X(4679) = (X(4679)-JVS(26766)*X(4989)-JVS(26767)*X(5250)-JVS(26768)*X(5252)-JVS(26769)*X(5253)-JVS(26770)*X(5255)& - &-JVS(26771)*X(5256))/(JVS(26765)) - X(4678) = (X(4678)-JVS(26756)*X(5249)-JVS(26757)*X(5251)-JVS(26758)*X(5252)-JVS(26759)*X(5253)-JVS(26760)*X(5254)& - &-JVS(26761)*X(5258))/(JVS(26755)) - X(4677) = (X(4677)-JVS(26749)*X(5013)-JVS(26750)*X(5251)-JVS(26751)*X(5252)-JVS(26752)*X(5253)-JVS(26753)*X(5254)& - &-JVS(26754)*X(5258))/(JVS(26748)) - X(4676) = (X(4676)-JVS(26741)*X(5250)-JVS(26742)*X(5252)-JVS(26743)*X(5253)-JVS(26744)*X(5255)-JVS(26745)*X(5256)& - &-JVS(26746)*X(5258))/(JVS(26740)) - X(4675) = (X(4675)-JVS(26730)*X(5250)-JVS(26731)*X(5252)-JVS(26732)*X(5253)-JVS(26733)*X(5255)-JVS(26734)*X(5256)& - &-JVS(26735)*X(5258))/(JVS(26729)) - X(4674) = (X(4674)-JVS(26719)*X(5030)-JVS(26720)*X(5250)-JVS(26721)*X(5252)-JVS(26722)*X(5255)-JVS(26723)*X(5256)& - &-JVS(26724)*X(5258))/(JVS(26718)) - X(4673) = (X(4673)-JVS(26710)*X(5104)-JVS(26711)*X(5250)-JVS(26712)*X(5252)-JVS(26713)*X(5253)-JVS(26714)*X(5255)& - &-JVS(26715)*X(5256))/(JVS(26709)) - X(4672) = (X(4672)-JVS(26697)*X(5122)-JVS(26698)*X(5250)-JVS(26699)*X(5252)-JVS(26700)*X(5253)-JVS(26701)*X(5255)& - &-JVS(26702)*X(5256))/(JVS(26696)) - X(4671) = (X(4671)-JVS(26683)*X(5250)-JVS(26684)*X(5252)-JVS(26685)*X(5253)-JVS(26686)*X(5255)-JVS(26687)*X(5256)& - &-JVS(26688)*X(5258))/(JVS(26682)) - X(4670) = (X(4670)-JVS(26672)*X(5250)-JVS(26673)*X(5252)-JVS(26674)*X(5253)-JVS(26675)*X(5255)-JVS(26676)*X(5256)& - &-JVS(26677)*X(5258))/(JVS(26671)) - X(4669) = (X(4669)-JVS(26662)*X(4950)-JVS(26663)*X(5250)-JVS(26664)*X(5252)-JVS(26665)*X(5255)-JVS(26666)*X(5256)& - &-JVS(26667)*X(5258))/(JVS(26661)) - X(4668) = (X(4668)-JVS(26650)*X(5050)-JVS(26651)*X(5251)-JVS(26652)*X(5252)-JVS(26653)*X(5253)-JVS(26654)*X(5254)& - &-JVS(26655)*X(5258))/(JVS(26649)) - X(4667) = (X(4667)-JVS(26642)*X(5250)-JVS(26643)*X(5252)-JVS(26644)*X(5253)-JVS(26645)*X(5255)-JVS(26646)*X(5256)& - &-JVS(26647)*X(5258))/(JVS(26641)) - X(4666) = (X(4666)-JVS(26628)*X(4919)-JVS(26629)*X(4964)-JVS(26630)*X(4965)-JVS(26631)*X(5250)-JVS(26632)*X(5252)& - &-JVS(26633)*X(5253)-JVS(26634)*X(5255)-JVS(26635)*X(5256)-JVS(26636)*X(5258))/(JVS(26627)) - X(4665) = (X(4665)-JVS(26614)*X(5063)-JVS(26615)*X(5250)-JVS(26616)*X(5252)-JVS(26617)*X(5253)-JVS(26618)*X(5255)& - &-JVS(26619)*X(5256))/(JVS(26613)) - X(4664) = (X(4664)-JVS(26605)*X(5215)-JVS(26606)*X(5250)-JVS(26607)*X(5252)-JVS(26608)*X(5253)-JVS(26609)*X(5255)& - &-JVS(26610)*X(5256))/(JVS(26604)) - X(4663) = (X(4663)-JVS(26588)*X(5250)-JVS(26589)*X(5252)-JVS(26590)*X(5253)-JVS(26591)*X(5255)-JVS(26592)*X(5256)& - &-JVS(26593)*X(5258))/(JVS(26587)) - X(4662) = (X(4662)-JVS(26577)*X(5147)-JVS(26578)*X(5250)-JVS(26579)*X(5252)-JVS(26580)*X(5253)-JVS(26581)*X(5255)& - &-JVS(26582)*X(5256))/(JVS(26576)) - X(4661) = (X(4661)-JVS(26567)*X(4896)-JVS(26568)*X(5250)-JVS(26569)*X(5252)-JVS(26570)*X(5255)-JVS(26571)*X(5256)& - &-JVS(26572)*X(5258))/(JVS(26566)) - X(4660) = (X(4660)-JVS(26558)*X(5159)-JVS(26559)*X(5250)-JVS(26560)*X(5252)-JVS(26561)*X(5253)-JVS(26562)*X(5255)& - &-JVS(26563)*X(5256))/(JVS(26557)) - X(4659) = (X(4659)-JVS(26549)*X(4987)-JVS(26550)*X(5250)-JVS(26551)*X(5252)-JVS(26552)*X(5253)-JVS(26553)*X(5255)& - &-JVS(26554)*X(5256))/(JVS(26548)) - X(4658) = (X(4658)-JVS(26539)*X(5173)-JVS(26540)*X(5250)-JVS(26541)*X(5252)-JVS(26542)*X(5253)-JVS(26543)*X(5255)& - &-JVS(26544)*X(5256))/(JVS(26538)) - X(4657) = (X(4657)-JVS(26526)*X(5173)-JVS(26527)*X(5250)-JVS(26528)*X(5252)-JVS(26529)*X(5253)-JVS(26530)*X(5255)& - &-JVS(26531)*X(5256))/(JVS(26525)) - X(4656) = (X(4656)-JVS(26517)*X(5250)-JVS(26518)*X(5252)-JVS(26519)*X(5253)-JVS(26520)*X(5255)-JVS(26521)*X(5256)& - &-JVS(26522)*X(5258))/(JVS(26516)) - X(4655) = (X(4655)-JVS(26507)*X(4810)-JVS(26508)*X(5250)-JVS(26509)*X(5252)-JVS(26510)*X(5253)-JVS(26511)*X(5255)& - &-JVS(26512)*X(5256))/(JVS(26506)) - X(4654) = (X(4654)-JVS(26498)*X(5250)-JVS(26499)*X(5252)-JVS(26500)*X(5253)-JVS(26501)*X(5255)-JVS(26502)*X(5256)& - &-JVS(26503)*X(5258))/(JVS(26497)) - X(4653) = (X(4653)-JVS(26488)*X(5072)-JVS(26489)*X(5250)-JVS(26490)*X(5252)-JVS(26491)*X(5253)-JVS(26492)*X(5255)& - &-JVS(26493)*X(5256))/(JVS(26487)) - X(4652) = (X(4652)-JVS(26479)*X(5052)-JVS(26480)*X(5250)-JVS(26481)*X(5252)-JVS(26482)*X(5253)-JVS(26483)*X(5255)& - &-JVS(26484)*X(5256))/(JVS(26478)) - X(4651) = (X(4651)-JVS(26466)*X(4828)-JVS(26467)*X(4951)-JVS(26468)*X(5250)-JVS(26469)*X(5251)-JVS(26470)*X(5252)& - &-JVS(26471)*X(5253)-JVS(26472)*X(5254)-JVS(26473)*X(5255)-JVS(26474)*X(5256))/(JVS(26465)) - X(4650) = (X(4650)-JVS(26453)*X(5068)-JVS(26454)*X(5250)-JVS(26455)*X(5252)-JVS(26456)*X(5255)-JVS(26457)*X(5256)& - &-JVS(26458)*X(5258))/(JVS(26452)) - X(4649) = (X(4649)-JVS(26445)*X(5250)-JVS(26446)*X(5252)-JVS(26447)*X(5253)-JVS(26448)*X(5255)-JVS(26449)*X(5256)& - &-JVS(26450)*X(5258))/(JVS(26444)) - X(4648) = (X(4648)-JVS(26435)*X(4883)-JVS(26436)*X(4957)-JVS(26437)*X(5250)-JVS(26438)*X(5252)-JVS(26439)*X(5255)& - &-JVS(26440)*X(5256))/(JVS(26434)) - X(4647) = (X(4647)-JVS(26424)*X(4901)-JVS(26425)*X(5250)-JVS(26426)*X(5252)-JVS(26427)*X(5255)-JVS(26428)*X(5256)& - &-JVS(26429)*X(5258))/(JVS(26423)) - X(4646) = (X(4646)-JVS(26414)*X(4784)-JVS(26415)*X(5109)-JVS(26416)*X(5250)-JVS(26417)*X(5252)-JVS(26418)*X(5255)& - &-JVS(26419)*X(5256))/(JVS(26413)) - X(4645) = (X(4645)-JVS(26406)*X(5051)-JVS(26407)*X(5208)-JVS(26408)*X(5250)-JVS(26409)*X(5252)-JVS(26410)*X(5255)& - &-JVS(26411)*X(5256))/(JVS(26405)) - X(4644) = (X(4644)-JVS(26397)*X(5196)-JVS(26398)*X(5236)-JVS(26399)*X(5250)-JVS(26400)*X(5252)-JVS(26401)*X(5255)& - &-JVS(26402)*X(5256))/(JVS(26396)) - X(4643) = (X(4643)-JVS(26382)*X(4788)-JVS(26383)*X(5250)-JVS(26384)*X(5252)-JVS(26385)*X(5253)-JVS(26386)*X(5255)& - &-JVS(26387)*X(5256))/(JVS(26381)) - X(4642) = (X(4642)-JVS(26373)*X(5064)-JVS(26374)*X(5250)-JVS(26375)*X(5252)-JVS(26376)*X(5253)-JVS(26377)*X(5255)& - &-JVS(26378)*X(5256))/(JVS(26372)) - X(4641) = (X(4641)-JVS(26363)*X(5250)-JVS(26364)*X(5252)-JVS(26365)*X(5253)-JVS(26366)*X(5255)-JVS(26367)*X(5256)& - &-JVS(26368)*X(5258))/(JVS(26362)) - X(4640) = (X(4640)-JVS(26353)*X(4915)-JVS(26354)*X(5203)-JVS(26355)*X(5250)-JVS(26356)*X(5252)-JVS(26357)*X(5255)& - &-JVS(26358)*X(5256))/(JVS(26352)) - X(4639) = (X(4639)-JVS(26343)*X(5250)-JVS(26344)*X(5252)-JVS(26345)*X(5253)-JVS(26346)*X(5255)-JVS(26347)*X(5256)& - &-JVS(26348)*X(5258))/(JVS(26342)) - X(4638) = (X(4638)-JVS(26333)*X(4953)-JVS(26334)*X(5250)-JVS(26335)*X(5252)-JVS(26336)*X(5253)-JVS(26337)*X(5255)& - &-JVS(26338)*X(5256))/(JVS(26332)) - X(4637) = (X(4637)-JVS(26323)*X(5066)-JVS(26324)*X(5250)-JVS(26325)*X(5252)-JVS(26326)*X(5255)-JVS(26327)*X(5256)& - &-JVS(26328)*X(5258))/(JVS(26322)) - X(4636) = (X(4636)-JVS(26315)*X(5177)-JVS(26316)*X(5250)-JVS(26317)*X(5252)-JVS(26318)*X(5253)-JVS(26319)*X(5255)& - &-JVS(26320)*X(5256))/(JVS(26314)) - X(4635) = (X(4635)-JVS(26306)*X(5250)-JVS(26307)*X(5252)-JVS(26308)*X(5253)-JVS(26309)*X(5255)-JVS(26310)*X(5256)& - &-JVS(26311)*X(5258))/(JVS(26305)) - X(4634) = (X(4634)-JVS(26296)*X(5042)-JVS(26297)*X(5250)-JVS(26298)*X(5252)-JVS(26299)*X(5253)-JVS(26300)*X(5255)& - &-JVS(26301)*X(5256))/(JVS(26295)) - X(4633) = (X(4633)-JVS(26287)*X(5250)-JVS(26288)*X(5252)-JVS(26289)*X(5253)-JVS(26290)*X(5255)-JVS(26291)*X(5256)& - &-JVS(26292)*X(5258))/(JVS(26286)) - X(4632) = (X(4632)-JVS(26277)*X(5250)-JVS(26278)*X(5252)-JVS(26279)*X(5253)-JVS(26280)*X(5255)-JVS(26281)*X(5256)& - &-JVS(26282)*X(5258))/(JVS(26276)) - X(4631) = (X(4631)-JVS(26266)*X(5186)-JVS(26267)*X(5250)-JVS(26268)*X(5252)-JVS(26269)*X(5253)-JVS(26270)*X(5255)& - &-JVS(26271)*X(5256))/(JVS(26265)) - X(4630) = (X(4630)-JVS(26253)*X(4971)-JVS(26254)*X(5250)-JVS(26255)*X(5252)-JVS(26256)*X(5255)-JVS(26257)*X(5256)& - &-JVS(26258)*X(5258))/(JVS(26252)) - X(4629) = (X(4629)-JVS(26243)*X(5056)-JVS(26244)*X(5250)-JVS(26245)*X(5252)-JVS(26246)*X(5253)-JVS(26247)*X(5255)& - &-JVS(26248)*X(5256))/(JVS(26242)) - X(4628) = (X(4628)-JVS(26233)*X(4933)-JVS(26234)*X(5250)-JVS(26235)*X(5252)-JVS(26236)*X(5253)-JVS(26237)*X(5255)& - &-JVS(26238)*X(5256))/(JVS(26232)) - X(4627) = (X(4627)-JVS(26224)*X(4717)-JVS(26225)*X(5250)-JVS(26226)*X(5252)-JVS(26227)*X(5253)-JVS(26228)*X(5255)& - &-JVS(26229)*X(5256))/(JVS(26223)) - X(4626) = (X(4626)-JVS(26215)*X(5250)-JVS(26216)*X(5252)-JVS(26217)*X(5253)-JVS(26218)*X(5255)-JVS(26219)*X(5256)& - &-JVS(26220)*X(5258))/(JVS(26214)) - X(4625) = (X(4625)-JVS(26205)*X(5189)-JVS(26206)*X(5250)-JVS(26207)*X(5252)-JVS(26208)*X(5255)-JVS(26209)*X(5256)& - &-JVS(26210)*X(5258))/(JVS(26204)) - X(4624) = (X(4624)-JVS(26196)*X(5215)-JVS(26197)*X(5250)-JVS(26198)*X(5252)-JVS(26199)*X(5253)-JVS(26200)*X(5255)& - &-JVS(26201)*X(5256))/(JVS(26195)) - X(4623) = (X(4623)-JVS(26181)*X(5115)-JVS(26182)*X(5250)-JVS(26183)*X(5252)-JVS(26184)*X(5253)-JVS(26185)*X(5255)& - &-JVS(26186)*X(5256))/(JVS(26180)) - X(4622) = (X(4622)-JVS(26172)*X(4964)-JVS(26173)*X(5250)-JVS(26174)*X(5252)-JVS(26175)*X(5253)-JVS(26176)*X(5255)& - &-JVS(26177)*X(5256))/(JVS(26171)) - X(4621) = (X(4621)-JVS(26147)*X(4952)-JVS(26148)*X(5251)-JVS(26149)*X(5252)-JVS(26150)*X(5253)-JVS(26151)*X(5254)& - &-JVS(26152)*X(5258))/(JVS(26146)) - X(4620) = (X(4620)-JVS(26139)*X(4744)-JVS(26140)*X(5250)-JVS(26141)*X(5252)-JVS(26142)*X(5253)-JVS(26143)*X(5255)& - &-JVS(26144)*X(5256))/(JVS(26138)) - X(4619) = (X(4619)-JVS(26128)*X(5250)-JVS(26129)*X(5252)-JVS(26130)*X(5255)-JVS(26131)*X(5256))/(JVS(26127)) - X(4618) = (X(4618)-JVS(26108)*X(4714)-JVS(26109)*X(4767)-JVS(26110)*X(4769)-JVS(26111)*X(4782)-JVS(26112)*X(4852)& - &-JVS(26113)*X(4858)-JVS(26114)*X(4880)-JVS(26115)*X(5250)-JVS(26116)*X(5252)-JVS(26117)*X(5253)-JVS(26118)& - &*X(5255)-JVS(26119)*X(5256)-JVS(26120)*X(5258))/(JVS(26107)) - X(4617) = (X(4617)-JVS(26090)*X(5204)-JVS(26091)*X(5252)-JVS(26092)*X(5255)-JVS(26093)*X(5256))/(JVS(26089)) - X(4616) = (X(4616)-JVS(26085)*X(5250)-JVS(26086)*X(5252)-JVS(26087)*X(5255)-JVS(26088)*X(5256))/(JVS(26084)) - X(4615) = (X(4615)-JVS(26079)*X(5219)-JVS(26080)*X(5250)-JVS(26081)*X(5252)-JVS(26082)*X(5258))/(JVS(26078)) - X(4614) = (X(4614)-JVS(26072)*X(4616)-JVS(26073)*X(5250)-JVS(26074)*X(5252)-JVS(26075)*X(5253)-JVS(26076)*X(5255)& - &-JVS(26077)*X(5256))/(JVS(26071)) - X(4613) = (X(4613)-JVS(26060)*X(4616)-JVS(26061)*X(5250)-JVS(26062)*X(5252)-JVS(26063)*X(5253)-JVS(26064)*X(5255)& - &-JVS(26065)*X(5256))/(JVS(26059)) - X(4612) = (X(4612)-JVS(26049)*X(4616)-JVS(26050)*X(5250)-JVS(26051)*X(5252)-JVS(26052)*X(5253)-JVS(26053)*X(5255)& - &-JVS(26054)*X(5256))/(JVS(26048)) - X(4611) = (X(4611)-JVS(26037)*X(5250)-JVS(26038)*X(5252)-JVS(26039)*X(5253)-JVS(26040)*X(5255)-JVS(26041)*X(5256))& - &/(JVS(26036)) - X(4610) = (X(4610)-JVS(26028)*X(5250)-JVS(26029)*X(5252)-JVS(26030)*X(5255)-JVS(26031)*X(5256))/(JVS(26027)) - X(4609) = (X(4609)-JVS(26021)*X(5250)-JVS(26022)*X(5252)-JVS(26023)*X(5255)-JVS(26024)*X(5256))/(JVS(26020)) - X(4608) = (X(4608)-JVS(26014)*X(5250)-JVS(26015)*X(5252)-JVS(26016)*X(5255)-JVS(26017)*X(5256)-JVS(26018)*X(5258))& - &/(JVS(26013)) - X(4607) = (X(4607)-JVS(26005)*X(5250)-JVS(26006)*X(5252)-JVS(26007)*X(5255)-JVS(26008)*X(5256)-JVS(26009)*X(5258))& - &/(JVS(26004)) - X(4606) = (X(4606)-JVS(25998)*X(5250)-JVS(25999)*X(5256)-JVS(26000)*X(5258))/(JVS(25997)) - X(4605) = (X(4605)-JVS(25994)*X(5250)-JVS(25995)*X(5256)-JVS(25996)*X(5258))/(JVS(25993)) - X(4604) = (X(4604)-JVS(25990)*X(5250)-JVS(25991)*X(5256)-JVS(25992)*X(5258))/(JVS(25989)) - X(4603) = (X(4603)-JVS(25984)*X(5250)-JVS(25985)*X(5252)-JVS(25986)*X(5255)-JVS(25987)*X(5256)-JVS(25988)*X(5258))& - &/(JVS(25983)) - X(4602) = (X(4602)-JVS(25962)*X(4603)-JVS(25963)*X(4619)-JVS(25964)*X(4620)-JVS(25965)*X(4667)-JVS(25966)*X(4675)& - &-JVS(25967)*X(4683)-JVS(25968)*X(4743)-JVS(25969)*X(4744)-JVS(25970)*X(4759)-JVS(25971)*X(4799)-JVS(25972)& - &*X(4822)-JVS(25973)*X(4823)-JVS(25974)*X(5250)-JVS(25975)*X(5252)-JVS(25976)*X(5253)-JVS(25977)*X(5255)& - &-JVS(25978)*X(5256))/(JVS(25961)) - X(4601) = (X(4601)-JVS(25925)*X(5250)-JVS(25926)*X(5256)-JVS(25927)*X(5258))/(JVS(25924)) - X(4600) = (X(4600)-JVS(25921)*X(5250)-JVS(25922)*X(5256)-JVS(25923)*X(5258))/(JVS(25920)) - X(4599) = (X(4599)-JVS(25915)*X(5091)-JVS(25916)*X(5250)-JVS(25917)*X(5252)-JVS(25918)*X(5255)-JVS(25919)*X(5256))& - &/(JVS(25914)) - X(4598) = (X(4598)-JVS(25907)*X(5190)-JVS(25908)*X(5250)-JVS(25909)*X(5252)-JVS(25910)*X(5255)-JVS(25911)*X(5256))& - &/(JVS(25906)) - X(4597) = (X(4597)-JVS(25900)*X(5198)-JVS(25901)*X(5250)-JVS(25902)*X(5252)-JVS(25903)*X(5255)-JVS(25904)*X(5256))& - &/(JVS(25899)) - X(4596) = (X(4596)-JVS(25891)*X(5250)-JVS(25892)*X(5252)-JVS(25893)*X(5255)-JVS(25894)*X(5256)-JVS(25895)*X(5258))& - &/(JVS(25890)) - X(4595) = (X(4595)-JVS(25883)*X(4616)-JVS(25884)*X(5250)-JVS(25885)*X(5252)-JVS(25886)*X(5255)-JVS(25887)*X(5256))& - &/(JVS(25882)) - X(4594) = (X(4594)-JVS(25875)*X(4974)-JVS(25876)*X(5250)-JVS(25877)*X(5252)-JVS(25878)*X(5255)-JVS(25879)*X(5256))& - &/(JVS(25874)) - X(4593) = (X(4593)-JVS(25867)*X(5190)-JVS(25868)*X(5250)-JVS(25869)*X(5252)-JVS(25870)*X(5255)-JVS(25871)*X(5256))& - &/(JVS(25866)) - X(4592) = (X(4592)-JVS(25859)*X(5250)-JVS(25860)*X(5252)-JVS(25861)*X(5253)-JVS(25862)*X(5255)-JVS(25863)*X(5256)& - &-JVS(25864)*X(5258))/(JVS(25858)) - X(4591) = (X(4591)-JVS(25846)*X(5250)-JVS(25847)*X(5252)-JVS(25848)*X(5253)-JVS(25849)*X(5255)-JVS(25850)*X(5256))& - &/(JVS(25845)) - X(4590) = (X(4590)-JVS(25829)*X(4884)-JVS(25830)*X(5250)-JVS(25831)*X(5252)-JVS(25832)*X(5255)-JVS(25833)*X(5256))& - &/(JVS(25828)) - X(4589) = (X(4589)-JVS(25821)*X(5153)-JVS(25822)*X(5250)-JVS(25823)*X(5252)-JVS(25824)*X(5255)-JVS(25825)*X(5256))& - &/(JVS(25820)) - X(4588) = (X(4588)-JVS(25809)*X(5049)-JVS(25810)*X(5050)-JVS(25811)*X(5058)-JVS(25812)*X(5066)-JVS(25813)*X(5068)& - &-JVS(25814)*X(5123)-JVS(25815)*X(5126)-JVS(25816)*X(5250)-JVS(25817)*X(5256)-JVS(25818)*X(5258))/(JVS(25808)) - X(4587) = (X(4587)-JVS(25800)*X(5250)-JVS(25801)*X(5252)-JVS(25802)*X(5255)-JVS(25803)*X(5256)-JVS(25804)*X(5258))& - &/(JVS(25799)) - X(4586) = (X(4586)-JVS(25792)*X(5238)-JVS(25793)*X(5250)-JVS(25794)*X(5252)-JVS(25795)*X(5255)-JVS(25796)*X(5256))& - &/(JVS(25791)) - X(4585) = (X(4585)-JVS(25785)*X(5250)-JVS(25786)*X(5252)-JVS(25787)*X(5255)-JVS(25788)*X(5256)-JVS(25789)*X(5258))& - &/(JVS(25784)) - X(4584) = (X(4584)-JVS(25777)*X(5108)-JVS(25778)*X(5250)-JVS(25779)*X(5252)-JVS(25780)*X(5255)-JVS(25781)*X(5256))& - &/(JVS(25776)) - X(4583) = (X(4583)-JVS(25770)*X(5186)-JVS(25771)*X(5250)-JVS(25772)*X(5252)-JVS(25773)*X(5255)-JVS(25774)*X(5256))& - &/(JVS(25769)) - X(4582) = (X(4582)-JVS(25762)*X(5250)-JVS(25763)*X(5252)-JVS(25764)*X(5255)-JVS(25765)*X(5256)-JVS(25766)*X(5258))& - &/(JVS(25761)) - X(4581) = (X(4581)-JVS(25754)*X(5109)-JVS(25755)*X(5250)-JVS(25756)*X(5252)-JVS(25757)*X(5255)-JVS(25758)*X(5256))& - &/(JVS(25753)) - X(4580) = (X(4580)-JVS(25746)*X(5198)-JVS(25747)*X(5250)-JVS(25748)*X(5252)-JVS(25749)*X(5255)-JVS(25750)*X(5256))& - &/(JVS(25745)) - X(4579) = (X(4579)-JVS(25735)*X(5051)-JVS(25736)*X(5250)-JVS(25737)*X(5252)-JVS(25738)*X(5255)-JVS(25739)*X(5256))& - &/(JVS(25734)) - X(4578) = (X(4578)-JVS(25728)*X(5093)-JVS(25729)*X(5250)-JVS(25730)*X(5252)-JVS(25731)*X(5255)-JVS(25732)*X(5256))& - &/(JVS(25727)) - X(4577) = (X(4577)-JVS(25722)*X(5238)-JVS(25723)*X(5250)-JVS(25724)*X(5252)-JVS(25725)*X(5255)-JVS(25726)*X(5256))& - &/(JVS(25721)) - X(4576) = (X(4576)-JVS(25712)*X(5250)-JVS(25713)*X(5252)-JVS(25714)*X(5255)-JVS(25715)*X(5256)-JVS(25716)*X(5258))& - &/(JVS(25711)) - X(4575) = (X(4575)-JVS(25701)*X(5250)-JVS(25702)*X(5252)-JVS(25703)*X(5255)-JVS(25704)*X(5256)-JVS(25705)*X(5258))& - &/(JVS(25700)) - X(4574) = (X(4574)-JVS(25694)*X(5051)-JVS(25695)*X(5250)-JVS(25696)*X(5252)-JVS(25697)*X(5255)-JVS(25698)*X(5256))& - &/(JVS(25693)) - X(4573) = (X(4573)-JVS(25687)*X(5108)-JVS(25688)*X(5250)-JVS(25689)*X(5252)-JVS(25690)*X(5255)-JVS(25691)*X(5256))& - &/(JVS(25686)) - X(4572) = (X(4572)-JVS(25680)*X(4825)-JVS(25681)*X(5250)-JVS(25682)*X(5252)-JVS(25683)*X(5255)-JVS(25684)*X(5256))& - &/(JVS(25679)) - X(4571) = (X(4571)-JVS(25672)*X(5238)-JVS(25673)*X(5250)-JVS(25674)*X(5252)-JVS(25675)*X(5255)-JVS(25676)*X(5256))& - &/(JVS(25671)) - X(4570) = (X(4570)-JVS(25664)*X(5002)-JVS(25665)*X(5025)-JVS(25666)*X(5250)-JVS(25667)*X(5256)-JVS(25668)*X(5258))& - &/(JVS(25663)) - X(4569) = (X(4569)-JVS(25658)*X(5250)-JVS(25659)*X(5252)-JVS(25660)*X(5255)-JVS(25661)*X(5256)-JVS(25662)*X(5258))& - &/(JVS(25657)) - X(4568) = (X(4568)-JVS(25644)*X(5250)-JVS(25645)*X(5252)-JVS(25646)*X(5255)-JVS(25647)*X(5256)-JVS(25648)*X(5258))& - &/(JVS(25643)) - X(4567) = (X(4567)-JVS(25636)*X(5236)-JVS(25637)*X(5250)-JVS(25638)*X(5252)-JVS(25639)*X(5255)-JVS(25640)*X(5256))& - &/(JVS(25635)) - X(4566) = (X(4566)-JVS(25627)*X(5108)-JVS(25628)*X(5250)-JVS(25629)*X(5252)-JVS(25630)*X(5255)-JVS(25631)*X(5256))& - &/(JVS(25626)) - X(4565) = (X(4565)-JVS(25620)*X(5091)-JVS(25621)*X(5250)-JVS(25622)*X(5252)-JVS(25623)*X(5255)-JVS(25624)*X(5256))& - &/(JVS(25619)) - X(4564) = (X(4564)-JVS(25607)*X(5016)-JVS(25608)*X(5020)-JVS(25609)*X(5033)-JVS(25610)*X(5075)-JVS(25611)*X(5174)& - &-JVS(25612)*X(5250)-JVS(25613)*X(5252)-JVS(25614)*X(5253)-JVS(25615)*X(5255)-JVS(25616)*X(5256))/(JVS(25606)) - X(4563) = (X(4563)-JVS(25597)*X(5250)-JVS(25598)*X(5252)-JVS(25599)*X(5255)-JVS(25600)*X(5256)-JVS(25601)*X(5258))& - &/(JVS(25596)) - X(4562) = (X(4562)-JVS(25589)*X(5250)-JVS(25590)*X(5252)-JVS(25591)*X(5255)-JVS(25592)*X(5256)-JVS(25593)*X(5258))& - &/(JVS(25588)) - X(4561) = (X(4561)-JVS(25580)*X(5010)-JVS(25581)*X(5250)-JVS(25582)*X(5252)-JVS(25583)*X(5255)-JVS(25584)*X(5256))& - &/(JVS(25579)) - X(4560) = (X(4560)-JVS(25571)*X(4914)-JVS(25572)*X(5084)-JVS(25573)*X(5250)-JVS(25574)*X(5252)-JVS(25575)*X(5253)& - &-JVS(25576)*X(5255)-JVS(25577)*X(5256))/(JVS(25570)) - X(4559) = (X(4559)-JVS(25557)*X(4980)-JVS(25558)*X(5082)-JVS(25559)*X(5250)-JVS(25560)*X(5252)-JVS(25561)*X(5253)& - &-JVS(25562)*X(5255)-JVS(25563)*X(5256))/(JVS(25556)) - X(4558) = (X(4558)-JVS(25546)*X(5089)-JVS(25547)*X(5250)-JVS(25548)*X(5252)-JVS(25549)*X(5255)-JVS(25550)*X(5256))& - &/(JVS(25545)) - X(4557) = (X(4557)-JVS(25537)*X(4558)-JVS(25538)*X(5094)-JVS(25539)*X(5250)-JVS(25540)*X(5252)-JVS(25541)*X(5253)& - &-JVS(25542)*X(5255)-JVS(25543)*X(5256))/(JVS(25536)) - X(4556) = (X(4556)-JVS(25525)*X(5132)-JVS(25526)*X(5250)-JVS(25527)*X(5251)-JVS(25528)*X(5252)-JVS(25529)*X(5253)& - &-JVS(25530)*X(5254)-JVS(25531)*X(5258))/(JVS(25524)) - X(4555) = (X(4555)-JVS(25519)*X(5250)-JVS(25520)*X(5256)-JVS(25521)*X(5258))/(JVS(25518)) - X(4554) = (X(4554)-JVS(25513)*X(4555)-JVS(25514)*X(5250)-JVS(25515)*X(5252)-JVS(25516)*X(5255)-JVS(25517)*X(5256))& - &/(JVS(25512)) - X(4553) = (X(4553)-JVS(25504)*X(4554)-JVS(25505)*X(4585)-JVS(25506)*X(5250)-JVS(25507)*X(5252)-JVS(25508)*X(5253)& - &-JVS(25509)*X(5255)-JVS(25510)*X(5256))/(JVS(25503)) - X(4552) = (X(4552)-JVS(25493)*X(4926)-JVS(25494)*X(4957)-JVS(25495)*X(4996)-JVS(25496)*X(5250)-JVS(25497)*X(5252)& - &-JVS(25498)*X(5255)-JVS(25499)*X(5256))/(JVS(25492)) - X(4551) = (X(4551)-JVS(25481)*X(5013)-JVS(25482)*X(5205)-JVS(25483)*X(5251)-JVS(25484)*X(5252)-JVS(25485)*X(5253)& - &-JVS(25486)*X(5254)-JVS(25487)*X(5258))/(JVS(25480)) - X(4550) = (X(4550)-JVS(25472)*X(4808)-JVS(25473)*X(4927)-JVS(25474)*X(5250)-JVS(25475)*X(5252)-JVS(25476)*X(5255)& - &-JVS(25477)*X(5256)-JVS(25478)*X(5258))/(JVS(25471)) - X(4549) = (X(4549)-JVS(25460)*X(4960)-JVS(25461)*X(4984)-JVS(25462)*X(5056)-JVS(25463)*X(5250)-JVS(25464)*X(5252)& - &-JVS(25465)*X(5255)-JVS(25466)*X(5256))/(JVS(25459)) - X(4548) = (X(4548)-JVS(25449)*X(5217)-JVS(25450)*X(5218)-JVS(25451)*X(5250)-JVS(25452)*X(5252)-JVS(25453)*X(5253)& - &-JVS(25454)*X(5255)-JVS(25455)*X(5256))/(JVS(25448)) - X(4547) = (X(4547)-JVS(25437)*X(4707)-JVS(25438)*X(4803)-JVS(25439)*X(5250)-JVS(25440)*X(5252)-JVS(25441)*X(5255)& - &-JVS(25442)*X(5256)-JVS(25443)*X(5258))/(JVS(25436)) - X(4546) = (X(4546)-JVS(25422)*X(4561)-JVS(25423)*X(4975)-JVS(25424)*X(5010)-JVS(25425)*X(5250)-JVS(25426)*X(5252)& - &-JVS(25427)*X(5255)-JVS(25428)*X(5256))/(JVS(25421)) - X(4545) = (X(4545)-JVS(25412)*X(4600)-JVS(25413)*X(4910)-JVS(25414)*X(5250)-JVS(25415)*X(5252)-JVS(25416)*X(5255)& - &-JVS(25417)*X(5256)-JVS(25418)*X(5258))/(JVS(25411)) - X(4544) = (X(4544)-JVS(25397)*X(5250)-JVS(25398)*X(5251)-JVS(25399)*X(5252)-JVS(25400)*X(5253)-JVS(25401)*X(5254)& - &-JVS(25402)*X(5256)-JVS(25403)*X(5258))/(JVS(25396)) - X(4543) = (X(4543)-JVS(25385)*X(4686)-JVS(25386)*X(4687)-JVS(25387)*X(5250)-JVS(25388)*X(5252)-JVS(25389)*X(5253)& - &-JVS(25390)*X(5255)-JVS(25391)*X(5256))/(JVS(25384)) - X(4542) = (X(4542)-JVS(25375)*X(5248)-JVS(25376)*X(5249)-JVS(25377)*X(5250)-JVS(25378)*X(5252)-JVS(25379)*X(5255)& - &-JVS(25380)*X(5256)-JVS(25381)*X(5258))/(JVS(25374)) - X(4541) = (X(4541)-JVS(25366)*X(5048)-JVS(25367)*X(5092)-JVS(25368)*X(5250)-JVS(25369)*X(5252)-JVS(25370)*X(5255)& - &-JVS(25371)*X(5256)-JVS(25372)*X(5258))/(JVS(25365)) - X(4540) = (X(4540)-JVS(25357)*X(4882)-JVS(25358)*X(5208)-JVS(25359)*X(5250)-JVS(25360)*X(5252)-JVS(25361)*X(5253)& - &-JVS(25362)*X(5255)-JVS(25363)*X(5256))/(JVS(25356)) - X(4539) = (X(4539)-JVS(25339)*X(5118)-JVS(25340)*X(5204)-JVS(25341)*X(5250)-JVS(25342)*X(5252)-JVS(25343)*X(5253)& - &-JVS(25344)*X(5255)-JVS(25345)*X(5256))/(JVS(25338)) - X(4538) = (X(4538)-JVS(25327)*X(4781)-JVS(25328)*X(4891)-JVS(25329)*X(5250)-JVS(25330)*X(5252)-JVS(25331)*X(5253)& - &-JVS(25332)*X(5255)-JVS(25333)*X(5256))/(JVS(25326)) - X(4537) = (X(4537)-JVS(25317)*X(4878)-JVS(25318)*X(5088)-JVS(25319)*X(5250)-JVS(25320)*X(5252)-JVS(25321)*X(5253)& - &-JVS(25322)*X(5255)-JVS(25323)*X(5256))/(JVS(25316)) - X(4536) = (X(4536)-JVS(25304)*X(4619)-JVS(25305)*X(4743)-JVS(25306)*X(5250)-JVS(25307)*X(5252)-JVS(25308)*X(5253)& - &-JVS(25309)*X(5255)-JVS(25310)*X(5256))/(JVS(25303)) - X(4535) = (X(4535)-JVS(25290)*X(5250)-JVS(25291)*X(5252)-JVS(25292)*X(5255)-JVS(25293)*X(5256))/(JVS(25289)) - X(4534) = (X(4534)-JVS(25280)*X(4703)-JVS(25281)*X(5250)-JVS(25282)*X(5252)-JVS(25283)*X(5253)-JVS(25284)*X(5255)& - &-JVS(25285)*X(5256))/(JVS(25279)) - X(4533) = (X(4533)-JVS(25269)*X(5250)-JVS(25270)*X(5252)-JVS(25271)*X(5255)-JVS(25272)*X(5256))/(JVS(25268)) - X(4532) = (X(4532)-JVS(25256)*X(4715)-JVS(25257)*X(5138)-JVS(25258)*X(5250)-JVS(25259)*X(5252)-JVS(25260)*X(5255)& - &-JVS(25261)*X(5256))/(JVS(25255)) - X(4531) = (X(4531)-JVS(25245)*X(5250)-JVS(25246)*X(5252)-JVS(25247)*X(5253)-JVS(25248)*X(5255)-JVS(25249)*X(5256)& - &-JVS(25250)*X(5258))/(JVS(25244)) - X(4530) = (X(4530)-JVS(25234)*X(4732)-JVS(25235)*X(4932)-JVS(25236)*X(5250)-JVS(25237)*X(5252)-JVS(25238)*X(5255)& - &-JVS(25239)*X(5256))/(JVS(25233)) - X(4529) = (X(4529)-JVS(25226)*X(5250)-JVS(25227)*X(5252)-JVS(25228)*X(5255)-JVS(25229)*X(5256))/(JVS(25225)) - X(4528) = (X(4528)-JVS(25211)*X(4555)-JVS(25212)*X(4615)-JVS(25213)*X(4907)-JVS(25214)*X(5051)-JVS(25215)*X(5093)& - &-JVS(25216)*X(5190)-JVS(25217)*X(5194)-JVS(25218)*X(5200)-JVS(25219)*X(5227)-JVS(25220)*X(5250)-JVS(25221)& - &*X(5256)-JVS(25222)*X(5258))/(JVS(25210)) - X(4527) = (X(4527)-JVS(25204)*X(5250)-JVS(25205)*X(5256)-JVS(25206)*X(5258))/(JVS(25203)) - X(4526) = (X(4526)-JVS(25197)*X(4970)-JVS(25198)*X(5251)-JVS(25199)*X(5252)-JVS(25200)*X(5253)-JVS(25201)*X(5254)& - &-JVS(25202)*X(5258))/(JVS(25196)) - X(4525) = (X(4525)-JVS(25189)*X(4672)-JVS(25190)*X(5250)-JVS(25191)*X(5252)-JVS(25192)*X(5253)-JVS(25193)*X(5255)& - &-JVS(25194)*X(5256))/(JVS(25188)) - X(4524) = (X(4524)-JVS(25174)*X(4886)-JVS(25175)*X(5097)-JVS(25176)*X(5116)-JVS(25177)*X(5147)-JVS(25178)*X(5250)& - &-JVS(25179)*X(5252)-JVS(25180)*X(5253)-JVS(25181)*X(5255)-JVS(25182)*X(5256))/(JVS(25173)) - X(4523) = (X(4523)-JVS(25160)*X(4886)-JVS(25161)*X(5250)-JVS(25162)*X(5252)-JVS(25163)*X(5253)-JVS(25164)*X(5255)& - &-JVS(25165)*X(5256))/(JVS(25159)) - X(4522) = (X(4522)-JVS(25150)*X(4777)-JVS(25151)*X(5250)-JVS(25152)*X(5252)-JVS(25153)*X(5253)-JVS(25154)*X(5255)& - &-JVS(25155)*X(5256))/(JVS(25149)) - X(4521) = (X(4521)-JVS(25140)*X(5144)-JVS(25141)*X(5250)-JVS(25142)*X(5252)-JVS(25143)*X(5253)-JVS(25144)*X(5255)& - &-JVS(25145)*X(5256))/(JVS(25139)) - X(4520) = (X(4520)-JVS(25128)*X(4898)-JVS(25129)*X(5250)-JVS(25130)*X(5252)-JVS(25131)*X(5253)-JVS(25132)*X(5255)& - &-JVS(25133)*X(5256))/(JVS(25127)) - X(4519) = (X(4519)-JVS(25118)*X(5074)-JVS(25119)*X(5250)-JVS(25120)*X(5252)-JVS(25121)*X(5253)-JVS(25122)*X(5255)& - &-JVS(25123)*X(5256))/(JVS(25117)) - X(4518) = (X(4518)-JVS(25107)*X(4945)-JVS(25108)*X(5250)-JVS(25109)*X(5252)-JVS(25110)*X(5253)-JVS(25111)*X(5255)& - &-JVS(25112)*X(5256))/(JVS(25106)) - X(4517) = (X(4517)-JVS(25097)*X(4880)-JVS(25098)*X(5250)-JVS(25099)*X(5252)-JVS(25100)*X(5253)-JVS(25101)*X(5255)& - &-JVS(25102)*X(5256))/(JVS(25096)) - X(4516) = (X(4516)-JVS(25087)*X(5050)-JVS(25088)*X(5250)-JVS(25089)*X(5252)-JVS(25090)*X(5253)-JVS(25091)*X(5255)& - &-JVS(25092)*X(5256))/(JVS(25086)) - X(4515) = (X(4515)-JVS(25078)*X(4696)-JVS(25079)*X(5250)-JVS(25080)*X(5252)-JVS(25081)*X(5253)-JVS(25082)*X(5255)& - &-JVS(25083)*X(5256))/(JVS(25077)) - X(4514) = (X(4514)-JVS(25068)*X(5250)-JVS(25069)*X(5252)-JVS(25070)*X(5253)-JVS(25071)*X(5255)-JVS(25072)*X(5256)& - &-JVS(25073)*X(5258))/(JVS(25067)) - X(4513) = (X(4513)-JVS(25058)*X(4649)-JVS(25059)*X(5250)-JVS(25060)*X(5252)-JVS(25061)*X(5255)-JVS(25062)*X(5256)& - &-JVS(25063)*X(5258))/(JVS(25057)) - X(4512) = (X(4512)-JVS(25051)*X(5250)-JVS(25052)*X(5256)-JVS(25053)*X(5258))/(JVS(25050)) - X(4511) = (X(4511)-JVS(25044)*X(4791)-JVS(25045)*X(5250)-JVS(25046)*X(5252)-JVS(25047)*X(5253)-JVS(25048)*X(5255)& - &-JVS(25049)*X(5256))/(JVS(25043)) - X(4510) = (X(4510)-JVS(25035)*X(4814)-JVS(25036)*X(5114)-JVS(25037)*X(5250)-JVS(25038)*X(5252)-JVS(25039)*X(5255)& - &-JVS(25040)*X(5256))/(JVS(25034)) - X(4509) = (X(4509)-JVS(25023)*X(5250)-JVS(25024)*X(5252)-JVS(25025)*X(5253)-JVS(25026)*X(5255)-JVS(25027)*X(5256)& - &-JVS(25028)*X(5258))/(JVS(25022)) - X(4508) = (X(4508)-JVS(25016)*X(5250)-JVS(25017)*X(5256)-JVS(25018)*X(5258))/(JVS(25015)) - X(4507) = (X(4507)-JVS(25000)*X(4509)-JVS(25001)*X(4514)-JVS(25002)*X(4632)-JVS(25003)*X(4663)-JVS(25004)*X(4671)& - &-JVS(25005)*X(4676)-JVS(25006)*X(4682)-JVS(25007)*X(4690)-JVS(25008)*X(4798)-JVS(25009)*X(5250)-JVS(25010)& - &*X(5252)-JVS(25011)*X(5253)-JVS(25012)*X(5255)-JVS(25013)*X(5256)-JVS(25014)*X(5258))/(JVS(24999)) - X(4506) = (X(4506)-JVS(24932)*X(4676)-JVS(24933)*X(5250)-JVS(24934)*X(5252)-JVS(24935)*X(5253)-JVS(24936)*X(5255)& - &-JVS(24937)*X(5256))/(JVS(24931)) - X(4505) = (X(4505)-JVS(24923)*X(4937)-JVS(24924)*X(5030)-JVS(24925)*X(5076)-JVS(24926)*X(5250)-JVS(24927)*X(5256)& - &-JVS(24928)*X(5258))/(JVS(24922)) - X(4504) = (X(4504)-JVS(24916)*X(5250)-JVS(24917)*X(5252)-JVS(24918)*X(5253)-JVS(24919)*X(5255)-JVS(24920)*X(5256)& - &-JVS(24921)*X(5258))/(JVS(24915)) - X(4503) = (X(4503)-JVS(24906)*X(4820)-JVS(24907)*X(5250)-JVS(24908)*X(5252)-JVS(24909)*X(5253)-JVS(24910)*X(5255)& - &-JVS(24911)*X(5256))/(JVS(24905)) - X(4502) = (X(4502)-JVS(24895)*X(4775)-JVS(24896)*X(5250)-JVS(24897)*X(5252)-JVS(24898)*X(5253)-JVS(24899)*X(5255)& - &-JVS(24900)*X(5256))/(JVS(24894)) - X(4501) = (X(4501)-JVS(24886)*X(4834)-JVS(24887)*X(5250)-JVS(24888)*X(5252)-JVS(24889)*X(5253)-JVS(24890)*X(5255)& - &-JVS(24891)*X(5256))/(JVS(24885)) - X(4500) = (X(4500)-JVS(24872)*X(4834)-JVS(24873)*X(5250)-JVS(24874)*X(5252)-JVS(24875)*X(5253)-JVS(24876)*X(5255)& - &-JVS(24877)*X(5256))/(JVS(24871)) - X(4499) = (X(4499)-JVS(24863)*X(5250)-JVS(24864)*X(5252)-JVS(24865)*X(5253)-JVS(24866)*X(5255)-JVS(24867)*X(5256)& - &-JVS(24868)*X(5258))/(JVS(24862)) - X(4498) = (X(4498)-JVS(24853)*X(4671)-JVS(24854)*X(5250)-JVS(24855)*X(5252)-JVS(24856)*X(5253)-JVS(24857)*X(5255)& - &-JVS(24858)*X(5256))/(JVS(24852)) - X(4497) = (X(4497)-JVS(24844)*X(5021)-JVS(24845)*X(5250)-JVS(24846)*X(5252)-JVS(24847)*X(5253)-JVS(24848)*X(5255)& - &-JVS(24849)*X(5256))/(JVS(24843)) - X(4496) = (X(4496)-JVS(24831)*X(5021)-JVS(24832)*X(5250)-JVS(24833)*X(5252)-JVS(24834)*X(5253)-JVS(24835)*X(5255)& - &-JVS(24836)*X(5256))/(JVS(24830)) - X(4495) = (X(4495)-JVS(24821)*X(5250)-JVS(24822)*X(5252)-JVS(24823)*X(5253)-JVS(24824)*X(5255)-JVS(24825)*X(5256)& - &-JVS(24826)*X(5258))/(JVS(24820)) - X(4494) = (X(4494)-JVS(24811)*X(5250)-JVS(24812)*X(5252)-JVS(24813)*X(5253)-JVS(24814)*X(5255)-JVS(24815)*X(5256)& - &-JVS(24816)*X(5258))/(JVS(24810)) - X(4493) = (X(4493)-JVS(24799)*X(4925)-JVS(24800)*X(5159)-JVS(24801)*X(5213)-JVS(24802)*X(5250)-JVS(24803)*X(5252)& - &-JVS(24804)*X(5255)-JVS(24805)*X(5256)-JVS(24806)*X(5258))/(JVS(24798)) - X(4492) = (X(4492)-JVS(24779)*X(5250)-JVS(24780)*X(5256)-JVS(24781)*X(5258))/(JVS(24778)) - X(4491) = (X(4491)-JVS(24772)*X(4986)-JVS(24773)*X(5250)-JVS(24774)*X(5252)-JVS(24775)*X(5255)-JVS(24776)*X(5256)& - &-JVS(24777)*X(5258))/(JVS(24771)) - X(4490) = (X(4490)-JVS(24753)*X(4835)-JVS(24754)*X(5250)-JVS(24755)*X(5252)-JVS(24756)*X(5253)-JVS(24757)*X(5255)& - &-JVS(24758)*X(5256))/(JVS(24752)) - X(4489) = (X(4489)-JVS(24737)*X(5250)-JVS(24738)*X(5252)-JVS(24739)*X(5253)-JVS(24740)*X(5255)-JVS(24741)*X(5256))& - &/(JVS(24736)) - X(4488) = (X(4488)-JVS(24726)*X(5250)-JVS(24727)*X(5252)-JVS(24728)*X(5255)-JVS(24729)*X(5256))/(JVS(24725)) - X(4487) = (X(4487)-JVS(24713)*X(5250)-JVS(24714)*X(5252)-JVS(24715)*X(5253)-JVS(24716)*X(5255)-JVS(24717)*X(5256)& - &-JVS(24718)*X(5258))/(JVS(24712)) - X(4486) = (X(4486)-JVS(24703)*X(5073)-JVS(24704)*X(5250)-JVS(24705)*X(5252)-JVS(24706)*X(5253)-JVS(24707)*X(5255)& - &-JVS(24708)*X(5256))/(JVS(24702)) - X(4485) = (X(4485)-JVS(24691)*X(4789)-JVS(24692)*X(5250)-JVS(24693)*X(5252)-JVS(24694)*X(5253)-JVS(24695)*X(5255)& - &-JVS(24696)*X(5256))/(JVS(24690)) - X(4484) = (X(4484)-JVS(24676)*X(4789)-JVS(24677)*X(5250)-JVS(24678)*X(5252)-JVS(24679)*X(5253)-JVS(24680)*X(5255)& - &-JVS(24681)*X(5256))/(JVS(24675)) - X(4483) = (X(4483)-JVS(24666)*X(4892)-JVS(24667)*X(5250)-JVS(24668)*X(5252)-JVS(24669)*X(5255)-JVS(24670)*X(5256)& - &-JVS(24671)*X(5258))/(JVS(24665)) - X(4482) = (X(4482)-JVS(24653)*X(4511)-JVS(24654)*X(4791)-JVS(24655)*X(5250)-JVS(24656)*X(5252)-JVS(24657)*X(5253)& - &-JVS(24658)*X(5255)-JVS(24659)*X(5256)-JVS(24660)*X(5258))/(JVS(24652)) - X(4481) = (X(4481)-JVS(24634)*X(4937)-JVS(24635)*X(5250)-JVS(24636)*X(5252)-JVS(24637)*X(5255)-JVS(24638)*X(5256)& - &-JVS(24639)*X(5258))/(JVS(24633)) - X(4480) = (X(4480)-JVS(24622)*X(4937)-JVS(24623)*X(5250)-JVS(24624)*X(5252)-JVS(24625)*X(5255)-JVS(24626)*X(5256)& - &-JVS(24627)*X(5258))/(JVS(24621)) - X(4479) = (X(4479)-JVS(24613)*X(5250)-JVS(24614)*X(5252)-JVS(24615)*X(5253)-JVS(24616)*X(5255)-JVS(24617)*X(5256)& - &-JVS(24618)*X(5258))/(JVS(24612)) - X(4478) = (X(4478)-JVS(24603)*X(5250)-JVS(24604)*X(5252)-JVS(24605)*X(5253)-JVS(24606)*X(5255)-JVS(24607)*X(5256)& - &-JVS(24608)*X(5258))/(JVS(24602)) - X(4477) = (X(4477)-JVS(24591)*X(4525)-JVS(24592)*X(4672)-JVS(24593)*X(5250)-JVS(24594)*X(5252)-JVS(24595)*X(5255)& - &-JVS(24596)*X(5256))/(JVS(24590)) - X(4476) = (X(4476)-JVS(24580)*X(5250)-JVS(24581)*X(5252)-JVS(24582)*X(5255)-JVS(24583)*X(5256)-JVS(24584)*X(5258))& - &/(JVS(24579)) - X(4475) = (X(4475)-JVS(24573)*X(5250)-JVS(24574)*X(5256)-JVS(24575)*X(5258))/(JVS(24572)) - X(4474) = (X(4474)-JVS(24569)*X(5250)-JVS(24570)*X(5256)-JVS(24571)*X(5258))/(JVS(24568)) - X(4473) = (X(4473)-JVS(24562)*X(4474)-JVS(24563)*X(5078)-JVS(24564)*X(5250)-JVS(24565)*X(5252)-JVS(24566)*X(5255)& - &-JVS(24567)*X(5256))/(JVS(24561)) - X(4472) = (X(4472)-JVS(24553)*X(5018)-JVS(24554)*X(5250)-JVS(24555)*X(5252)-JVS(24556)*X(5253)-JVS(24557)*X(5255)& - &-JVS(24558)*X(5256))/(JVS(24552)) - X(4471) = (X(4471)-JVS(24544)*X(5250)-JVS(24545)*X(5252)-JVS(24546)*X(5253)-JVS(24547)*X(5255)-JVS(24548)*X(5256)& - &-JVS(24549)*X(5258))/(JVS(24543)) - X(4470) = (X(4470)-JVS(24534)*X(4972)-JVS(24535)*X(5250)-JVS(24536)*X(5252)-JVS(24537)*X(5253)-JVS(24538)*X(5255)& - &-JVS(24539)*X(5256))/(JVS(24533)) - X(4469) = (X(4469)-JVS(24524)*X(5082)-JVS(24525)*X(5250)-JVS(24526)*X(5252)-JVS(24527)*X(5253)-JVS(24528)*X(5255)& - &-JVS(24529)*X(5256))/(JVS(24523)) - X(4468) = (X(4468)-JVS(24514)*X(4911)-JVS(24515)*X(5250)-JVS(24516)*X(5252)-JVS(24517)*X(5253)-JVS(24518)*X(5255)& - &-JVS(24519)*X(5256))/(JVS(24513)) - X(4467) = (X(4467)-JVS(24504)*X(4859)-JVS(24505)*X(5250)-JVS(24506)*X(5252)-JVS(24507)*X(5253)-JVS(24508)*X(5255)& - &-JVS(24509)*X(5256))/(JVS(24503)) - X(4466) = (X(4466)-JVS(24495)*X(5250)-JVS(24496)*X(5252)-JVS(24497)*X(5253)-JVS(24498)*X(5255)-JVS(24499)*X(5256)& - &-JVS(24500)*X(5258))/(JVS(24494)) - X(4465) = (X(4465)-JVS(24485)*X(4520)-JVS(24486)*X(4898)-JVS(24487)*X(5250)-JVS(24488)*X(5252)-JVS(24489)*X(5255)& - &-JVS(24490)*X(5256))/(JVS(24484)) - X(4464) = (X(4464)-JVS(24475)*X(4797)-JVS(24476)*X(5250)-JVS(24477)*X(5252)-JVS(24478)*X(5253)-JVS(24479)*X(5255)& - &-JVS(24480)*X(5256))/(JVS(24474)) - X(4463) = (X(4463)-JVS(24466)*X(4682)-JVS(24467)*X(5250)-JVS(24468)*X(5252)-JVS(24469)*X(5253)-JVS(24470)*X(5255)& - &-JVS(24471)*X(5256))/(JVS(24465)) - X(4462) = (X(4462)-JVS(24457)*X(4806)-JVS(24458)*X(5111)-JVS(24459)*X(5113)-JVS(24460)*X(5250)-JVS(24461)*X(5253)& - &-JVS(24462)*X(5256))/(JVS(24456)) - X(4461) = (X(4461)-JVS(24448)*X(4713)-JVS(24449)*X(5112)-JVS(24450)*X(5250)-JVS(24451)*X(5252)-JVS(24452)*X(5255)& - &-JVS(24453)*X(5256))/(JVS(24447)) - X(4460) = (X(4460)-JVS(24437)*X(5015)-JVS(24438)*X(5250)-JVS(24439)*X(5252)-JVS(24440)*X(5253)-JVS(24441)*X(5255)& - &-JVS(24442)*X(5256))/(JVS(24436)) - X(4459) = (X(4459)-JVS(24426)*X(4653)-JVS(24427)*X(5072)-JVS(24428)*X(5250)-JVS(24429)*X(5252)-JVS(24430)*X(5255)& - &-JVS(24431)*X(5256))/(JVS(24425)) - X(4458) = (X(4458)-JVS(24417)*X(4798)-JVS(24418)*X(5250)-JVS(24419)*X(5252)-JVS(24420)*X(5253)-JVS(24421)*X(5255)& - &-JVS(24422)*X(5256))/(JVS(24416)) - X(4457) = (X(4457)-JVS(24408)*X(5250)-JVS(24409)*X(5252)-JVS(24410)*X(5253)-JVS(24411)*X(5255)-JVS(24412)*X(5256)& - &-JVS(24413)*X(5258))/(JVS(24407)) - X(4456) = (X(4456)-JVS(24398)*X(4820)-JVS(24399)*X(5250)-JVS(24400)*X(5252)-JVS(24401)*X(5253)-JVS(24402)*X(5255)& - &-JVS(24403)*X(5256))/(JVS(24397)) - X(4455) = (X(4455)-JVS(24388)*X(4663)-JVS(24389)*X(5250)-JVS(24390)*X(5252)-JVS(24391)*X(5253)-JVS(24392)*X(5255)& - &-JVS(24393)*X(5256))/(JVS(24387)) - X(4454) = (X(4454)-JVS(24379)*X(5250)-JVS(24380)*X(5252)-JVS(24381)*X(5253)-JVS(24382)*X(5255)-JVS(24383)*X(5256)& - &-JVS(24384)*X(5258))/(JVS(24378)) - X(4453) = (X(4453)-JVS(24369)*X(5250)-JVS(24370)*X(5252)-JVS(24371)*X(5253)-JVS(24372)*X(5255)-JVS(24373)*X(5256)& - &-JVS(24374)*X(5258))/(JVS(24368)) - X(4452) = (X(4452)-JVS(24359)*X(4809)-JVS(24360)*X(5250)-JVS(24361)*X(5252)-JVS(24362)*X(5253)-JVS(24363)*X(5255)& - &-JVS(24364)*X(5256))/(JVS(24358)) - X(4451) = (X(4451)-JVS(24349)*X(4882)-JVS(24350)*X(5250)-JVS(24351)*X(5252)-JVS(24352)*X(5253)-JVS(24353)*X(5255)& - &-JVS(24354)*X(5256))/(JVS(24348)) - X(4450) = (X(4450)-JVS(24340)*X(5138)-JVS(24341)*X(5250)-JVS(24342)*X(5252)-JVS(24343)*X(5253)-JVS(24344)*X(5255)& - &-JVS(24345)*X(5256))/(JVS(24339)) - X(4449) = (X(4449)-JVS(24328)*X(4799)-JVS(24329)*X(5250)-JVS(24330)*X(5252)-JVS(24331)*X(5253)-JVS(24332)*X(5255)& - &-JVS(24333)*X(5256))/(JVS(24327)) - X(4448) = (X(4448)-JVS(24316)*X(5250)-JVS(24317)*X(5252)-JVS(24318)*X(5255)-JVS(24319)*X(5256))/(JVS(24315)) - X(4447) = (X(4447)-JVS(24303)*X(5215)-JVS(24304)*X(5250)-JVS(24305)*X(5252)-JVS(24306)*X(5253)-JVS(24307)*X(5255)& - &-JVS(24308)*X(5256))/(JVS(24302)) - X(4446) = (X(4446)-JVS(24292)*X(4784)-JVS(24293)*X(5109)-JVS(24294)*X(5250)-JVS(24295)*X(5252)-JVS(24296)*X(5255)& - &-JVS(24297)*X(5256))/(JVS(24291)) - X(4445) = (X(4445)-JVS(24283)*X(4535)-JVS(24284)*X(5250)-JVS(24285)*X(5252)-JVS(24286)*X(5253)-JVS(24287)*X(5255)& - &-JVS(24288)*X(5256))/(JVS(24282)) - X(4444) = (X(4444)-JVS(24273)*X(5250)-JVS(24274)*X(5252)-JVS(24275)*X(5253)-JVS(24276)*X(5255)-JVS(24277)*X(5256)& - &-JVS(24278)*X(5258))/(JVS(24272)) - X(4443) = (X(4443)-JVS(24263)*X(5107)-JVS(24264)*X(5250)-JVS(24265)*X(5252)-JVS(24266)*X(5253)-JVS(24267)*X(5255)& - &-JVS(24268)*X(5256))/(JVS(24262)) - X(4442) = (X(4442)-JVS(24251)*X(5131)-JVS(24252)*X(5250)-JVS(24253)*X(5252)-JVS(24254)*X(5253)-JVS(24255)*X(5255)& - &-JVS(24256)*X(5256))/(JVS(24250)) - X(4441) = (X(4441)-JVS(24238)*X(4799)-JVS(24239)*X(5250)-JVS(24240)*X(5252)-JVS(24241)*X(5253)-JVS(24242)*X(5255)& - &-JVS(24243)*X(5256))/(JVS(24237)) - X(4440) = (X(4440)-JVS(24225)*X(4950)-JVS(24226)*X(5250)-JVS(24227)*X(5252)-JVS(24228)*X(5255)-JVS(24229)*X(5256)& - &-JVS(24230)*X(5258))/(JVS(24224)) - X(4439) = (X(4439)-JVS(24216)*X(5084)-JVS(24217)*X(5250)-JVS(24218)*X(5252)-JVS(24219)*X(5253)-JVS(24220)*X(5255)& - &-JVS(24221)*X(5256))/(JVS(24215)) - X(4438) = (X(4438)-JVS(24206)*X(5250)-JVS(24207)*X(5252)-JVS(24208)*X(5253)-JVS(24209)*X(5255)-JVS(24210)*X(5256)& - &-JVS(24211)*X(5258))/(JVS(24205)) - X(4437) = (X(4437)-JVS(24196)*X(5250)-JVS(24197)*X(5252)-JVS(24198)*X(5253)-JVS(24199)*X(5255)-JVS(24200)*X(5256)& - &-JVS(24201)*X(5258))/(JVS(24195)) - X(4436) = (X(4436)-JVS(24186)*X(5069)-JVS(24187)*X(5250)-JVS(24188)*X(5252)-JVS(24189)*X(5253)-JVS(24190)*X(5255)& - &-JVS(24191)*X(5256))/(JVS(24185)) - X(4435) = (X(4435)-JVS(24177)*X(4716)-JVS(24178)*X(5144)-JVS(24179)*X(5250)-JVS(24180)*X(5252)-JVS(24181)*X(5255)& - &-JVS(24182)*X(5256))/(JVS(24176)) - X(4434) = (X(4434)-JVS(24166)*X(4632)-JVS(24167)*X(5250)-JVS(24168)*X(5252)-JVS(24169)*X(5253)-JVS(24170)*X(5255)& - &-JVS(24171)*X(5256))/(JVS(24165)) - X(4433) = (X(4433)-JVS(24157)*X(4881)-JVS(24158)*X(5250)-JVS(24159)*X(5252)-JVS(24160)*X(5253)-JVS(24161)*X(5255)& - &-JVS(24162)*X(5256))/(JVS(24156)) - X(4432) = (X(4432)-JVS(24147)*X(4626)-JVS(24148)*X(5250)-JVS(24149)*X(5252)-JVS(24150)*X(5255)-JVS(24151)*X(5256)& - &-JVS(24152)*X(5258))/(JVS(24146)) - X(4431) = (X(4431)-JVS(24137)*X(5122)-JVS(24138)*X(5250)-JVS(24139)*X(5252)-JVS(24140)*X(5253)-JVS(24141)*X(5255)& - &-JVS(24142)*X(5256))/(JVS(24136)) - X(4430) = (X(4430)-JVS(24125)*X(5112)-JVS(24126)*X(5250)-JVS(24127)*X(5252)-JVS(24128)*X(5253)-JVS(24129)*X(5255)& - &-JVS(24130)*X(5256))/(JVS(24124)) - X(4429) = (X(4429)-JVS(24113)*X(4709)-JVS(24114)*X(5065)-JVS(24115)*X(5250)-JVS(24116)*X(5252)-JVS(24117)*X(5255)& - &-JVS(24118)*X(5256))/(JVS(24112)) - X(4428) = (X(4428)-JVS(24102)*X(4840)-JVS(24103)*X(5250)-JVS(24104)*X(5252)-JVS(24105)*X(5253)-JVS(24106)*X(5255)& - &-JVS(24107)*X(5256))/(JVS(24101)) - X(4427) = (X(4427)-JVS(24093)*X(4879)-JVS(24094)*X(5250)-JVS(24095)*X(5252)-JVS(24096)*X(5253)-JVS(24097)*X(5255)& - &-JVS(24098)*X(5256))/(JVS(24092)) - X(4426) = (X(4426)-JVS(24082)*X(4444)-JVS(24083)*X(4790)-JVS(24084)*X(5250)-JVS(24085)*X(5252)-JVS(24086)*X(5253)& - &-JVS(24087)*X(5255)-JVS(24088)*X(5256))/(JVS(24081)) - X(4425) = (X(4425)-JVS(24064)*X(4790)-JVS(24065)*X(5250)-JVS(24066)*X(5252)-JVS(24067)*X(5253)-JVS(24068)*X(5255)& - &-JVS(24069)*X(5256))/(JVS(24063)) - X(4424) = (X(4424)-JVS(24055)*X(4815)-JVS(24056)*X(5250)-JVS(24057)*X(5252)-JVS(24058)*X(5253)-JVS(24059)*X(5255)& - &-JVS(24060)*X(5256))/(JVS(24054)) - X(4423) = (X(4423)-JVS(24044)*X(4454)-JVS(24045)*X(4464)-JVS(24046)*X(4797)-JVS(24047)*X(5250)-JVS(24048)*X(5252)& - &-JVS(24049)*X(5253)-JVS(24050)*X(5255)-JVS(24051)*X(5256))/(JVS(24043)) - X(4422) = (X(4422)-JVS(24030)*X(4950)-JVS(24031)*X(5250)-JVS(24032)*X(5252)-JVS(24033)*X(5255)-JVS(24034)*X(5256)& - &-JVS(24035)*X(5258))/(JVS(24029)) - X(4421) = (X(4421)-JVS(24021)*X(4712)-JVS(24022)*X(5107)-JVS(24023)*X(5250)-JVS(24024)*X(5252)-JVS(24025)*X(5255)& - &-JVS(24026)*X(5256))/(JVS(24020)) - X(4420) = (X(4420)-JVS(24008)*X(4758)-JVS(24009)*X(4976)-JVS(24010)*X(5235)-JVS(24011)*X(5250)-JVS(24012)*X(5252)& - &-JVS(24013)*X(5255)-JVS(24014)*X(5256)-JVS(24015)*X(5258))/(JVS(24007)) - X(4419) = (X(4419)-JVS(23998)*X(5146)-JVS(23999)*X(5250)-JVS(24000)*X(5252)-JVS(24001)*X(5253)-JVS(24002)*X(5255)& - &-JVS(24003)*X(5256))/(JVS(23997)) - X(4418) = (X(4418)-JVS(23986)*X(4659)-JVS(23987)*X(4987)-JVS(23988)*X(5250)-JVS(23989)*X(5252)-JVS(23990)*X(5255)& - &-JVS(23991)*X(5256))/(JVS(23985)) - X(4417) = (X(4417)-JVS(23976)*X(5065)-JVS(23977)*X(5250)-JVS(23978)*X(5252)-JVS(23979)*X(5253)-JVS(23980)*X(5255)& - &-JVS(23981)*X(5256))/(JVS(23975)) - X(4416) = (X(4416)-JVS(23964)*X(4937)-JVS(23965)*X(5250)-JVS(23966)*X(5252)-JVS(23967)*X(5255)-JVS(23968)*X(5256)& - &-JVS(23969)*X(5258))/(JVS(23963)) - X(4415) = (X(4415)-JVS(23955)*X(4690)-JVS(23956)*X(5250)-JVS(23957)*X(5252)-JVS(23958)*X(5253)-JVS(23959)*X(5255)& - &-JVS(23960)*X(5256))/(JVS(23954)) - X(4414) = (X(4414)-JVS(23946)*X(5049)-JVS(23947)*X(5250)-JVS(23948)*X(5252)-JVS(23949)*X(5253)-JVS(23950)*X(5255)& - &-JVS(23951)*X(5256))/(JVS(23945)) - X(4413) = (X(4413)-JVS(23937)*X(5250)-JVS(23938)*X(5252)-JVS(23939)*X(5253)-JVS(23940)*X(5255)-JVS(23941)*X(5256)& - &-JVS(23942)*X(5258))/(JVS(23936)) - X(4412) = (X(4412)-JVS(23927)*X(5147)-JVS(23928)*X(5250)-JVS(23929)*X(5252)-JVS(23930)*X(5253)-JVS(23931)*X(5255)& - &-JVS(23932)*X(5256))/(JVS(23926)) - X(4411) = (X(4411)-JVS(23915)*X(4412)-JVS(23916)*X(4755)-JVS(23917)*X(5010)-JVS(23918)*X(5147)-JVS(23919)*X(5250)& - &-JVS(23920)*X(5252)-JVS(23921)*X(5255)-JVS(23922)*X(5256))/(JVS(23914)) - X(4410) = (X(4410)-JVS(23906)*X(5215)-JVS(23907)*X(5250)-JVS(23908)*X(5252)-JVS(23909)*X(5255)-JVS(23910)*X(5256))& - &/(JVS(23905)) - X(4409) = (X(4409)-JVS(23895)*X(4410)-JVS(23896)*X(5250)-JVS(23897)*X(5252)-JVS(23898)*X(5253)-JVS(23899)*X(5255)& - &-JVS(23900)*X(5256))/(JVS(23894)) - X(4408) = (X(4408)-JVS(23885)*X(5250)-JVS(23886)*X(5252)-JVS(23887)*X(5253)-JVS(23888)*X(5255)-JVS(23889)*X(5256)& - &-JVS(23890)*X(5258))/(JVS(23884)) - X(4407) = (X(4407)-JVS(23875)*X(5250)-JVS(23876)*X(5252)-JVS(23877)*X(5253)-JVS(23878)*X(5255)-JVS(23879)*X(5256)& - &-JVS(23880)*X(5258))/(JVS(23874)) - X(4406) = (X(4406)-JVS(23863)*X(5005)-JVS(23864)*X(5167)-JVS(23865)*X(5221)-JVS(23866)*X(5250)-JVS(23867)*X(5252)& - &-JVS(23868)*X(5253)-JVS(23869)*X(5255)-JVS(23870)*X(5256))/(JVS(23862)) - X(4405) = (X(4405)-JVS(23854)*X(4845)-JVS(23855)*X(5250)-JVS(23856)*X(5252)-JVS(23857)*X(5253)-JVS(23858)*X(5255)& - &-JVS(23859)*X(5256))/(JVS(23853)) - X(4404) = (X(4404)-JVS(23845)*X(4877)-JVS(23846)*X(5250)-JVS(23847)*X(5252)-JVS(23848)*X(5253)-JVS(23849)*X(5255)& - &-JVS(23850)*X(5256))/(JVS(23844)) - X(4403) = (X(4403)-JVS(23825)*X(4413)-JVS(23826)*X(4434)-JVS(23827)*X(4455)-JVS(23828)*X(4463)-JVS(23829)*X(4499)& - &-JVS(23830)*X(4632)-JVS(23831)*X(4663)-JVS(23832)*X(4682)-JVS(23833)*X(5070)-JVS(23834)*X(5250)-JVS(23835)& - &*X(5252)-JVS(23836)*X(5253)-JVS(23837)*X(5255)-JVS(23838)*X(5256)-JVS(23839)*X(5258))/(JVS(23824)) - X(4402) = (X(4402)-JVS(23788)*X(5250)-JVS(23789)*X(5252)-JVS(23790)*X(5253)-JVS(23791)*X(5255)-JVS(23792)*X(5256)& - &-JVS(23793)*X(5258))/(JVS(23787)) - X(4401) = (X(4401)-JVS(23778)*X(4787)-JVS(23779)*X(5250)-JVS(23780)*X(5252)-JVS(23781)*X(5255)-JVS(23782)*X(5256)& - &-JVS(23783)*X(5258))/(JVS(23777)) - X(4400) = (X(4400)-JVS(23766)*X(5250)-JVS(23767)*X(5252)-JVS(23768)*X(5255)-JVS(23769)*X(5256)-JVS(23770)*X(5258))& - &/(JVS(23765)) - X(4399) = (X(4399)-JVS(23758)*X(5250)-JVS(23759)*X(5252)-JVS(23760)*X(5255)-JVS(23761)*X(5256)-JVS(23762)*X(5258))& - &/(JVS(23757)) - X(4398) = (X(4398)-JVS(23747)*X(4603)-JVS(23748)*X(4916)-JVS(23749)*X(5250)-JVS(23750)*X(5252)-JVS(23751)*X(5255)& - &-JVS(23752)*X(5256)-JVS(23753)*X(5258))/(JVS(23746)) - X(4397) = (X(4397)-JVS(23736)*X(5250)-JVS(23737)*X(5256)-JVS(23738)*X(5258))/(JVS(23735)) - X(4396) = (X(4396)-JVS(23729)*X(5250)-JVS(23730)*X(5256)-JVS(23731)*X(5258))/(JVS(23728)) - X(4395) = (X(4395)-JVS(23722)*X(5250)-JVS(23723)*X(5256)-JVS(23724)*X(5258))/(JVS(23721)) - X(4394) = (X(4394)-JVS(23716)*X(5206)-JVS(23717)*X(5250)-JVS(23718)*X(5252)-JVS(23719)*X(5255)-JVS(23720)*X(5256))& - &/(JVS(23715)) - X(4393) = (X(4393)-JVS(23706)*X(4928)-JVS(23707)*X(5250)-JVS(23708)*X(5252)-JVS(23709)*X(5255)-JVS(23710)*X(5256))& - &/(JVS(23705)) - X(4392) = (X(4392)-JVS(23694)*X(4779)-JVS(23695)*X(5054)-JVS(23696)*X(5161)-JVS(23697)*X(5185)-JVS(23698)*X(5250)& - &-JVS(23699)*X(5252)-JVS(23700)*X(5253)-JVS(23701)*X(5255)-JVS(23702)*X(5256))/(JVS(23693)) - X(4391) = (X(4391)-JVS(23674)*X(4802)-JVS(23675)*X(4934)-JVS(23676)*X(5120)-JVS(23677)*X(5151)-JVS(23678)*X(5250)& - &-JVS(23679)*X(5252)-JVS(23680)*X(5253)-JVS(23681)*X(5255)-JVS(23682)*X(5256))/(JVS(23673)) - X(4390) = (X(4390)-JVS(23661)*X(5109)-JVS(23662)*X(5250)-JVS(23663)*X(5252)-JVS(23664)*X(5255)-JVS(23665)*X(5256))& - &/(JVS(23660)) - X(4389) = (X(4389)-JVS(23653)*X(5107)-JVS(23654)*X(5250)-JVS(23655)*X(5252)-JVS(23656)*X(5255)-JVS(23657)*X(5256))& - &/(JVS(23652)) - X(4388) = (X(4388)-JVS(23645)*X(5250)-JVS(23646)*X(5252)-JVS(23647)*X(5255)-JVS(23648)*X(5256)-JVS(23649)*X(5258))& - &/(JVS(23644)) - X(4387) = (X(4387)-JVS(23636)*X(5250)-JVS(23637)*X(5252)-JVS(23638)*X(5255)-JVS(23639)*X(5256)-JVS(23640)*X(5258))& - &/(JVS(23635)) - X(4386) = (X(4386)-JVS(23624)*X(4387)-JVS(23625)*X(4802)-JVS(23626)*X(5007)-JVS(23627)*X(5008)-JVS(23628)*X(5098)& - &-JVS(23629)*X(5250)-JVS(23630)*X(5252)-JVS(23631)*X(5253)-JVS(23632)*X(5255))/(JVS(23623)) - X(4385) = (X(4385)-JVS(23613)*X(5041)-JVS(23614)*X(5250)-JVS(23615)*X(5252)-JVS(23616)*X(5255)-JVS(23617)*X(5256))& - &/(JVS(23612)) - X(4384) = (X(4384)-JVS(23602)*X(4811)-JVS(23603)*X(5250)-JVS(23604)*X(5252)-JVS(23605)*X(5255)-JVS(23606)*X(5256))& - &/(JVS(23601)) - X(4383) = (X(4383)-JVS(23590)*X(4617)-JVS(23591)*X(4749)-JVS(23592)*X(5002)-JVS(23593)*X(5241)-JVS(23594)*X(5250)& - &-JVS(23595)*X(5252)-JVS(23596)*X(5255)-JVS(23597)*X(5256)-JVS(23598)*X(5258))/(JVS(23589)) - X(4382) = (X(4382)-JVS(23579)*X(5194)-JVS(23580)*X(5250)-JVS(23581)*X(5252)-JVS(23582)*X(5255)-JVS(23583)*X(5256))& - &/(JVS(23578)) - X(4381) = (X(4381)-JVS(23573)*X(4619)-JVS(23574)*X(5250)-JVS(23575)*X(5252)-JVS(23576)*X(5255)-JVS(23577)*X(5256))& - &/(JVS(23572)) - X(4380) = (X(4380)-JVS(23565)*X(5250)-JVS(23566)*X(5252)-JVS(23567)*X(5253)-JVS(23568)*X(5255)-JVS(23569)*X(5256))& - &/(JVS(23564)) - X(4379) = (X(4379)-JVS(23556)*X(4888)-JVS(23557)*X(5250)-JVS(23558)*X(5252)-JVS(23559)*X(5255)-JVS(23560)*X(5256))& - &/(JVS(23555)) - X(4378) = (X(4378)-JVS(23548)*X(5154)-JVS(23549)*X(5174)-JVS(23550)*X(5250)-JVS(23551)*X(5252)-JVS(23552)*X(5255))& - &/(JVS(23547)) - X(4377) = (X(4377)-JVS(23540)*X(5250)-JVS(23541)*X(5252)-JVS(23542)*X(5255)-JVS(23543)*X(5256)-JVS(23544)*X(5258))& - &/(JVS(23539)) - X(4376) = (X(4376)-JVS(23531)*X(4478)-JVS(23532)*X(5250)-JVS(23533)*X(5252)-JVS(23534)*X(5253)-JVS(23535)*X(5255)& - &-JVS(23536)*X(5256)-JVS(23537)*X(5258))/(JVS(23530)) - X(4375) = (X(4375)-JVS(23519)*X(5250)-JVS(23520)*X(5252)-JVS(23521)*X(5253)-JVS(23522)*X(5255)-JVS(23523)*X(5256))& - &/(JVS(23518)) - X(4374) = (X(4374)-JVS(23510)*X(5185)-JVS(23511)*X(5250)-JVS(23512)*X(5252)-JVS(23513)*X(5255)-JVS(23514)*X(5256))& - &/(JVS(23509)) - X(4373) = (X(4373)-JVS(23501)*X(5153)-JVS(23502)*X(5250)-JVS(23503)*X(5252)-JVS(23504)*X(5255)-JVS(23505)*X(5256))& - &/(JVS(23500)) - X(4372) = (X(4372)-JVS(23491)*X(5153)-JVS(23492)*X(5250)-JVS(23493)*X(5252)-JVS(23494)*X(5255)-JVS(23495)*X(5256))& - &/(JVS(23490)) - X(4371) = (X(4371)-JVS(23485)*X(5073)-JVS(23486)*X(5250)-JVS(23487)*X(5252)-JVS(23488)*X(5255)-JVS(23489)*X(5256))& - &/(JVS(23484)) - X(4370) = (X(4370)-JVS(23478)*X(5200)-JVS(23479)*X(5250)-JVS(23480)*X(5252)-JVS(23481)*X(5255)-JVS(23482)*X(5256))& - &/(JVS(23477)) - X(4369) = (X(4369)-JVS(23471)*X(5144)-JVS(23472)*X(5250)-JVS(23473)*X(5252)-JVS(23474)*X(5255)-JVS(23475)*X(5256))& - &/(JVS(23470)) - X(4368) = (X(4368)-JVS(23463)*X(4609)-JVS(23464)*X(5250)-JVS(23465)*X(5252)-JVS(23466)*X(5255)-JVS(23467)*X(5256))& - &/(JVS(23462)) - X(4367) = (X(4367)-JVS(23456)*X(5186)-JVS(23457)*X(5250)-JVS(23458)*X(5252)-JVS(23459)*X(5255)-JVS(23460)*X(5256))& - &/(JVS(23455)) - X(4366) = (X(4366)-JVS(23444)*X(4599)-JVS(23445)*X(4816)-JVS(23446)*X(5024)-JVS(23447)*X(5091)-JVS(23448)*X(5250)& - &-JVS(23449)*X(5252)-JVS(23450)*X(5253)-JVS(23451)*X(5255)-JVS(23452)*X(5256))/(JVS(23443)) - X(4365) = (X(4365)-JVS(23424)*X(5186)-JVS(23425)*X(5250)-JVS(23426)*X(5252)-JVS(23427)*X(5255)-JVS(23428)*X(5256))& - &/(JVS(23423)) - X(4364) = (X(4364)-JVS(23413)*X(4555)-JVS(23414)*X(5250)-JVS(23415)*X(5252)-JVS(23416)*X(5255)-JVS(23417)*X(5256))& - &/(JVS(23412)) - X(4363) = (X(4363)-JVS(23406)*X(4394)-JVS(23407)*X(5250)-JVS(23408)*X(5252)-JVS(23409)*X(5255)-JVS(23410)*X(5256))& - &/(JVS(23405)) - X(4362) = (X(4362)-JVS(23397)*X(4898)-JVS(23398)*X(5250)-JVS(23399)*X(5252)-JVS(23400)*X(5255)-JVS(23401)*X(5256))& - &/(JVS(23396)) - X(4361) = (X(4361)-JVS(23389)*X(5138)-JVS(23390)*X(5250)-JVS(23391)*X(5252)-JVS(23392)*X(5255)-JVS(23393)*X(5256))& - &/(JVS(23388)) - X(4360) = (X(4360)-JVS(23381)*X(5181)-JVS(23382)*X(5250)-JVS(23383)*X(5252)-JVS(23384)*X(5255)-JVS(23385)*X(5256))& - &/(JVS(23380)) - X(4359) = (X(4359)-JVS(23371)*X(5116)-JVS(23372)*X(5250)-JVS(23373)*X(5252)-JVS(23374)*X(5255)-JVS(23375)*X(5256))& - &/(JVS(23370)) - X(4358) = (X(4358)-JVS(23363)*X(5058)-JVS(23364)*X(5250)-JVS(23365)*X(5252)-JVS(23366)*X(5255)-JVS(23367)*X(5256))& - &/(JVS(23362)) - X(4357) = (X(4357)-JVS(23356)*X(5063)-JVS(23357)*X(5250)-JVS(23358)*X(5252)-JVS(23359)*X(5255)-JVS(23360)*X(5256))& - &/(JVS(23355)) - X(4356) = (X(4356)-JVS(23349)*X(5186)-JVS(23350)*X(5250)-JVS(23351)*X(5252)-JVS(23352)*X(5255)-JVS(23353)*X(5256))& - &/(JVS(23348)) - X(4355) = (X(4355)-JVS(23341)*X(5065)-JVS(23342)*X(5250)-JVS(23343)*X(5252)-JVS(23344)*X(5255)-JVS(23345)*X(5256))& - &/(JVS(23340)) - X(4354) = (X(4354)-JVS(23333)*X(4882)-JVS(23334)*X(5250)-JVS(23335)*X(5252)-JVS(23336)*X(5255)-JVS(23337)*X(5256))& - &/(JVS(23332)) - X(4353) = (X(4353)-JVS(23326)*X(4840)-JVS(23327)*X(5250)-JVS(23328)*X(5252)-JVS(23329)*X(5255)-JVS(23330)*X(5256))& - &/(JVS(23325)) - X(4352) = (X(4352)-JVS(23316)*X(4724)-JVS(23317)*X(4772)-JVS(23318)*X(5132)-JVS(23319)*X(5250)-JVS(23320)*X(5252)& - &-JVS(23321)*X(5253)-JVS(23322)*X(5255)-JVS(23323)*X(5256)-JVS(23324)*X(5258))/(JVS(23315)) - X(4351) = (X(4351)-JVS(23305)*X(5200)-JVS(23306)*X(5250)-JVS(23307)*X(5252)-JVS(23308)*X(5255)-JVS(23309)*X(5256))& - &/(JVS(23304)) - X(4350) = (X(4350)-JVS(23298)*X(4789)-JVS(23299)*X(5250)-JVS(23300)*X(5252)-JVS(23301)*X(5255)-JVS(23302)*X(5256))& - &/(JVS(23297)) - X(4349) = (X(4349)-JVS(23289)*X(5112)-JVS(23290)*X(5250)-JVS(23291)*X(5252)-JVS(23292)*X(5255)-JVS(23293)*X(5256))& - &/(JVS(23288)) - X(4348) = (X(4348)-JVS(23281)*X(5150)-JVS(23282)*X(5250)-JVS(23283)*X(5252)-JVS(23284)*X(5255)-JVS(23285)*X(5256))& - &/(JVS(23280)) - X(4347) = (X(4347)-JVS(23273)*X(5076)-JVS(23274)*X(5250)-JVS(23275)*X(5252)-JVS(23276)*X(5255)-JVS(23277)*X(5256))& - &/(JVS(23272)) - X(4346) = (X(4346)-JVS(23266)*X(4854)-JVS(23267)*X(5250)-JVS(23268)*X(5252)-JVS(23269)*X(5255)-JVS(23270)*X(5256))& - &/(JVS(23265)) - X(4345) = (X(4345)-JVS(23258)*X(4723)-JVS(23259)*X(5250)-JVS(23260)*X(5252)-JVS(23261)*X(5255)-JVS(23262)*X(5256))& - &/(JVS(23257)) - X(4344) = (X(4344)-JVS(23249)*X(4782)-JVS(23250)*X(5250)-JVS(23251)*X(5252)-JVS(23252)*X(5255)-JVS(23253)*X(5256))& - &/(JVS(23248)) - X(4343) = (X(4343)-JVS(23239)*X(5027)-JVS(23240)*X(5250)-JVS(23241)*X(5252)-JVS(23242)*X(5253)-JVS(23243)*X(5255)& - &-JVS(23244)*X(5256))/(JVS(23238)) - X(4342) = (X(4342)-JVS(23230)*X(5027)-JVS(23231)*X(5250)-JVS(23232)*X(5252)-JVS(23233)*X(5255)-JVS(23234)*X(5256))& - &/(JVS(23229)) - X(4341) = (X(4341)-JVS(23222)*X(5093)-JVS(23223)*X(5250)-JVS(23224)*X(5252)-JVS(23225)*X(5255)-JVS(23226)*X(5256))& - &/(JVS(23221)) - X(4340) = (X(4340)-JVS(23216)*X(5213)-JVS(23217)*X(5250)-JVS(23218)*X(5252)-JVS(23219)*X(5255)-JVS(23220)*X(5256))& - &/(JVS(23215)) - X(4339) = (X(4339)-JVS(23207)*X(5002)-JVS(23208)*X(5250)-JVS(23209)*X(5252)-JVS(23210)*X(5255)-JVS(23211)*X(5256))& - &/(JVS(23206)) - X(4338) = (X(4338)-JVS(23201)*X(5250)-JVS(23202)*X(5252)-JVS(23203)*X(5253)-JVS(23204)*X(5255)-JVS(23205)*X(5256))& - &/(JVS(23200)) - X(4337) = (X(4337)-JVS(23192)*X(4794)-JVS(23193)*X(5250)-JVS(23194)*X(5252)-JVS(23195)*X(5255)-JVS(23196)*X(5256))& - &/(JVS(23191)) - X(4336) = (X(4336)-JVS(23185)*X(5186)-JVS(23186)*X(5250)-JVS(23187)*X(5252)-JVS(23188)*X(5255)-JVS(23189)*X(5256))& - &/(JVS(23184)) - X(4335) = (X(4335)-JVS(23177)*X(5250)-JVS(23178)*X(5252)-JVS(23179)*X(5255)-JVS(23180)*X(5256)-JVS(23181)*X(5258))& - &/(JVS(23176)) - X(4334) = (X(4334)-JVS(23169)*X(5061)-JVS(23170)*X(5250)-JVS(23171)*X(5252)-JVS(23172)*X(5255)-JVS(23173)*X(5256))& - &/(JVS(23168)) - X(4333) = (X(4333)-JVS(23160)*X(4475)-JVS(23161)*X(4604)-JVS(23162)*X(4606)-JVS(23163)*X(4840)-JVS(23164)*X(5250)& - &-JVS(23165)*X(5256)-JVS(23166)*X(5258))/(JVS(23159)) - X(4332) = (X(4332)-JVS(23153)*X(5250)-JVS(23154)*X(5256)-JVS(23155)*X(5258))/(JVS(23152)) - X(4331) = (X(4331)-JVS(23141)*X(4639)-JVS(23142)*X(4643)-JVS(23143)*X(4655)-JVS(23144)*X(4670)-JVS(23145)*X(4788)& - &-JVS(23146)*X(4810)-JVS(23147)*X(5250)-JVS(23148)*X(5252)-JVS(23149)*X(5253)-JVS(23150)*X(5255)-JVS(23151)& - &*X(5256))/(JVS(23140)) - X(4330) = (X(4330)-JVS(23122)*X(5128)-JVS(23123)*X(5250)-JVS(23124)*X(5253)-JVS(23125)*X(5258))/(JVS(23121)) - X(4329) = (X(4329)-JVS(23115)*X(4731)-JVS(23116)*X(5250)-JVS(23117)*X(5252)-JVS(23118)*X(5253)-JVS(23119)*X(5255)& - &-JVS(23120)*X(5256))/(JVS(23114)) - X(4328) = (X(4328)-JVS(23100)*X(4726)-JVS(23101)*X(4968)-JVS(23102)*X(5250)-JVS(23103)*X(5252)-JVS(23104)*X(5255)& - &-JVS(23105)*X(5256)-JVS(23106)*X(5258))/(JVS(23099)) - X(4327) = (X(4327)-JVS(23092)*X(5250)-JVS(23093)*X(5252)-JVS(23094)*X(5255)-JVS(23095)*X(5256))/(JVS(23091)) - X(4326) = (X(4326)-JVS(23084)*X(5250)-JVS(23085)*X(5252)-JVS(23086)*X(5255)-JVS(23087)*X(5256))/(JVS(23083)) - X(4325) = (X(4325)-JVS(23071)*X(4706)-JVS(23072)*X(5250)-JVS(23073)*X(5252)-JVS(23074)*X(5253)-JVS(23075)*X(5255)& - &-JVS(23076)*X(5256))/(JVS(23070)) - X(4324) = (X(4324)-JVS(23057)*X(5250)-JVS(23058)*X(5252)-JVS(23059)*X(5253)-JVS(23060)*X(5255)-JVS(23061)*X(5256))& - &/(JVS(23056)) - X(4323) = (X(4323)-JVS(23045)*X(5250)-JVS(23046)*X(5252)-JVS(23047)*X(5255)-JVS(23048)*X(5256))/(JVS(23044)) - X(4322) = (X(4322)-JVS(23037)*X(5250)-JVS(23038)*X(5252)-JVS(23039)*X(5255)-JVS(23040)*X(5256))/(JVS(23036)) - X(4321) = (X(4321)-JVS(23026)*X(5217)-JVS(23027)*X(5252)-JVS(23028)*X(5255)-JVS(23029)*X(5256))/(JVS(23025)) - X(4320) = (X(4320)-JVS(23018)*X(4601)-JVS(23019)*X(5251)-JVS(23020)*X(5252)-JVS(23021)*X(5253)-JVS(23022)*X(5254)& - &-JVS(23023)*X(5258))/(JVS(23017)) - X(4319) = (X(4319)-JVS(23010)*X(4679)-JVS(23011)*X(5250)-JVS(23012)*X(5252)-JVS(23013)*X(5253)-JVS(23014)*X(5255)& - &-JVS(23015)*X(5256))/(JVS(23009)) - X(4318) = (X(4318)-JVS(22997)*X(4627)-JVS(22998)*X(4717)-JVS(22999)*X(5250)-JVS(23000)*X(5252)-JVS(23001)*X(5255)& - &-JVS(23002)*X(5256))/(JVS(22996)) - X(4317) = (X(4317)-JVS(22988)*X(4670)-JVS(22989)*X(5250)-JVS(22990)*X(5252)-JVS(22991)*X(5253)-JVS(22992)*X(5255)& - &-JVS(22993)*X(5256))/(JVS(22987)) - X(4316) = (X(4316)-JVS(22979)*X(4364)-JVS(22980)*X(5250)-JVS(22981)*X(5252)-JVS(22982)*X(5253)-JVS(22983)*X(5255)& - &-JVS(22984)*X(5256))/(JVS(22978)) - X(4315) = (X(4315)-JVS(22968)*X(4638)-JVS(22969)*X(5250)-JVS(22970)*X(5252)-JVS(22971)*X(5253)-JVS(22972)*X(5255)& - &-JVS(22973)*X(5256))/(JVS(22967)) - X(4314) = (X(4314)-JVS(22956)*X(4413)-JVS(22957)*X(5250)-JVS(22958)*X(5252)-JVS(22959)*X(5253)-JVS(22960)*X(5255)& - &-JVS(22961)*X(5256))/(JVS(22955)) - X(4313) = (X(4313)-JVS(22947)*X(5077)-JVS(22948)*X(5082)-JVS(22949)*X(5250)-JVS(22950)*X(5252)-JVS(22951)*X(5255)& - &-JVS(22952)*X(5256))/(JVS(22946)) - X(4312) = (X(4312)-JVS(22932)*X(4402)-JVS(22933)*X(5250)-JVS(22934)*X(5252)-JVS(22935)*X(5253)-JVS(22936)*X(5255)& - &-JVS(22937)*X(5256))/(JVS(22931)) - X(4311) = (X(4311)-JVS(22923)*X(4654)-JVS(22924)*X(5250)-JVS(22925)*X(5252)-JVS(22926)*X(5255)-JVS(22927)*X(5256)& - &-JVS(22928)*X(5258))/(JVS(22922)) - X(4310) = (X(4310)-JVS(22911)*X(4523)-JVS(22912)*X(4886)-JVS(22913)*X(5147)-JVS(22914)*X(5250)-JVS(22915)*X(5252)& - &-JVS(22916)*X(5255)-JVS(22917)*X(5256))/(JVS(22910)) - X(4309) = (X(4309)-JVS(22900)*X(4800)-JVS(22901)*X(5119)-JVS(22902)*X(5250)-JVS(22903)*X(5252)-JVS(22904)*X(5255)& - &-JVS(22905)*X(5256))/(JVS(22899)) - X(4308) = (X(4308)-JVS(22890)*X(4603)-JVS(22891)*X(5250)-JVS(22892)*X(5252)-JVS(22893)*X(5253)-JVS(22894)*X(5255)& - &-JVS(22895)*X(5256))/(JVS(22889)) - X(4307) = (X(4307)-JVS(22877)*X(4444)-JVS(22878)*X(5250)-JVS(22879)*X(5252)-JVS(22880)*X(5253)-JVS(22881)*X(5255)& - &-JVS(22882)*X(5256))/(JVS(22876)) - X(4306) = (X(4306)-JVS(22868)*X(4798)-JVS(22869)*X(5250)-JVS(22870)*X(5252)-JVS(22871)*X(5253)-JVS(22872)*X(5255)& - &-JVS(22873)*X(5256))/(JVS(22867)) - X(4305) = (X(4305)-JVS(22859)*X(4671)-JVS(22860)*X(5250)-JVS(22861)*X(5252)-JVS(22862)*X(5253)-JVS(22863)*X(5255)& - &-JVS(22864)*X(5256))/(JVS(22858)) - X(4304) = (X(4304)-JVS(22850)*X(4454)-JVS(22851)*X(5250)-JVS(22852)*X(5252)-JVS(22853)*X(5253)-JVS(22854)*X(5255)& - &-JVS(22855)*X(5256))/(JVS(22849)) - X(4303) = (X(4303)-JVS(22841)*X(4487)-JVS(22842)*X(5250)-JVS(22843)*X(5252)-JVS(22844)*X(5253)-JVS(22845)*X(5255)& - &-JVS(22846)*X(5256))/(JVS(22840)) - X(4302) = (X(4302)-JVS(22832)*X(4600)-JVS(22833)*X(5251)-JVS(22834)*X(5252)-JVS(22835)*X(5253)-JVS(22836)*X(5254)& - &-JVS(22837)*X(5258))/(JVS(22831)) - X(4301) = (X(4301)-JVS(22824)*X(4600)-JVS(22825)*X(5250)-JVS(22826)*X(5252)-JVS(22827)*X(5253)-JVS(22828)*X(5255)& - &-JVS(22829)*X(5256))/(JVS(22823)) - X(4300) = (X(4300)-JVS(22814)*X(4784)-JVS(22815)*X(5109)-JVS(22816)*X(5250)-JVS(22817)*X(5252)-JVS(22818)*X(5255)& - &-JVS(22819)*X(5256))/(JVS(22813)) - X(4299) = (X(4299)-JVS(22802)*X(4533)-JVS(22803)*X(5250)-JVS(22804)*X(5252)-JVS(22805)*X(5253)-JVS(22806)*X(5255)& - &-JVS(22807)*X(5256))/(JVS(22801)) - X(4298) = (X(4298)-JVS(22789)*X(4690)-JVS(22790)*X(5250)-JVS(22791)*X(5252)-JVS(22792)*X(5253)-JVS(22793)*X(5255)& - &-JVS(22794)*X(5256))/(JVS(22788)) - X(4297) = (X(4297)-JVS(22780)*X(4499)-JVS(22781)*X(5250)-JVS(22782)*X(5252)-JVS(22783)*X(5253)-JVS(22784)*X(5255)& - &-JVS(22785)*X(5256))/(JVS(22779)) - X(4296) = (X(4296)-JVS(22771)*X(4444)-JVS(22772)*X(5250)-JVS(22773)*X(5252)-JVS(22774)*X(5253)-JVS(22775)*X(5255)& - &-JVS(22776)*X(5256))/(JVS(22770)) - X(4295) = (X(4295)-JVS(22761)*X(4496)-JVS(22762)*X(5021)-JVS(22763)*X(5250)-JVS(22764)*X(5252)-JVS(22765)*X(5253)& - &-JVS(22766)*X(5255)-JVS(22767)*X(5256))/(JVS(22760)) - X(4294) = (X(4294)-JVS(22741)*X(4772)-JVS(22742)*X(4805)-JVS(22743)*X(4826)-JVS(22744)*X(4993)-JVS(22745)*X(5003)& - &-JVS(22746)*X(5075)-JVS(22747)*X(5133)-JVS(22748)*X(5155)-JVS(22749)*X(5172)-JVS(22750)*X(5250)-JVS(22751)& - &*X(5252)-JVS(22752)*X(5255)-JVS(22753)*X(5256)-JVS(22754)*X(5258))/(JVS(22740)) - X(4293) = (X(4293)-JVS(22726)*X(4471)-JVS(22727)*X(5250)-JVS(22728)*X(5252)-JVS(22729)*X(5253)-JVS(22730)*X(5255)& - &-JVS(22731)*X(5256))/(JVS(22725)) - X(4292) = (X(4292)-JVS(22717)*X(4509)-JVS(22718)*X(5250)-JVS(22719)*X(5252)-JVS(22720)*X(5253)-JVS(22721)*X(5255)& - &-JVS(22722)*X(5256))/(JVS(22716)) - X(4291) = (X(4291)-JVS(22708)*X(4471)-JVS(22709)*X(5250)-JVS(22710)*X(5252)-JVS(22711)*X(5253)-JVS(22712)*X(5255)& - &-JVS(22713)*X(5256))/(JVS(22707)) - X(4290) = (X(4290)-JVS(22699)*X(4914)-JVS(22700)*X(5250)-JVS(22701)*X(5252)-JVS(22702)*X(5253)-JVS(22703)*X(5255)& - &-JVS(22704)*X(5256))/(JVS(22698)) - X(4289) = (X(4289)-JVS(22686)*X(4682)-JVS(22687)*X(5250)-JVS(22688)*X(5252)-JVS(22689)*X(5253)-JVS(22690)*X(5255)& - &-JVS(22691)*X(5256))/(JVS(22685)) - X(4288) = (X(4288)-JVS(22677)*X(4914)-JVS(22678)*X(5250)-JVS(22679)*X(5252)-JVS(22680)*X(5253)-JVS(22681)*X(5255)& - &-JVS(22682)*X(5256))/(JVS(22676)) - X(4287) = (X(4287)-JVS(22668)*X(4499)-JVS(22669)*X(5250)-JVS(22670)*X(5252)-JVS(22671)*X(5253)-JVS(22672)*X(5255)& - &-JVS(22673)*X(5256))/(JVS(22667)) - X(4286) = (X(4286)-JVS(22659)*X(5166)-JVS(22660)*X(5251)-JVS(22661)*X(5252)-JVS(22662)*X(5253)-JVS(22663)*X(5254)& - &-JVS(22664)*X(5258))/(JVS(22658)) - X(4285) = (X(4285)-JVS(22651)*X(4810)-JVS(22652)*X(5250)-JVS(22653)*X(5252)-JVS(22654)*X(5253)-JVS(22655)*X(5255)& - &-JVS(22656)*X(5256))/(JVS(22650)) - X(4284) = (X(4284)-JVS(22642)*X(4804)-JVS(22643)*X(4817)-JVS(22644)*X(5250)-JVS(22645)*X(5252)-JVS(22646)*X(5255)& - &-JVS(22647)*X(5256))/(JVS(22641)) - X(4283) = (X(4283)-JVS(22632)*X(4873)-JVS(22633)*X(5250)-JVS(22634)*X(5252)-JVS(22635)*X(5253)-JVS(22636)*X(5255)& - &-JVS(22637)*X(5256))/(JVS(22631)) - X(4282) = (X(4282)-JVS(22623)*X(5168)-JVS(22624)*X(5251)-JVS(22625)*X(5252)-JVS(22626)*X(5253)-JVS(22627)*X(5254)& - &-JVS(22628)*X(5258))/(JVS(22622)) - X(4281) = (X(4281)-JVS(22615)*X(5009)-JVS(22616)*X(5250)-JVS(22617)*X(5252)-JVS(22618)*X(5253)-JVS(22619)*X(5255)& - &-JVS(22620)*X(5256))/(JVS(22614)) - X(4280) = (X(4280)-JVS(22606)*X(4466)-JVS(22607)*X(5250)-JVS(22608)*X(5252)-JVS(22609)*X(5253)-JVS(22610)*X(5255)& - &-JVS(22611)*X(5256))/(JVS(22605)) - X(4279) = (X(4279)-JVS(22597)*X(4960)-JVS(22598)*X(5056)-JVS(22599)*X(5250)-JVS(22600)*X(5252)-JVS(22601)*X(5255)& - &-JVS(22602)*X(5256))/(JVS(22596)) - X(4278) = (X(4278)-JVS(22585)*X(4350)-JVS(22586)*X(4789)-JVS(22587)*X(5114)-JVS(22588)*X(5250)-JVS(22589)*X(5252)& - &-JVS(22590)*X(5255)-JVS(22591)*X(5256))/(JVS(22584)) - X(4277) = (X(4277)-JVS(22570)*X(4335)-JVS(22571)*X(4933)-JVS(22572)*X(5250)-JVS(22573)*X(5252)-JVS(22574)*X(5255)& - &-JVS(22575)*X(5256))/(JVS(22569)) - X(4276) = (X(4276)-JVS(22560)*X(4788)-JVS(22561)*X(5250)-JVS(22562)*X(5252)-JVS(22563)*X(5253)-JVS(22564)*X(5255)& - &-JVS(22565)*X(5256))/(JVS(22559)) - X(4275) = (X(4275)-JVS(22551)*X(5067)-JVS(22552)*X(5250)-JVS(22553)*X(5252)-JVS(22554)*X(5253)-JVS(22555)*X(5255)& - &-JVS(22556)*X(5256))/(JVS(22550)) - X(4274) = (X(4274)-JVS(22542)*X(4566)-JVS(22543)*X(4573)-JVS(22544)*X(5250)-JVS(22545)*X(5252)-JVS(22546)*X(5255)& - &-JVS(22547)*X(5256))/(JVS(22541)) - X(4273) = (X(4273)-JVS(22532)*X(4531)-JVS(22533)*X(5250)-JVS(22534)*X(5252)-JVS(22535)*X(5253)-JVS(22536)*X(5255)& - &-JVS(22537)*X(5256))/(JVS(22531)) - X(4272) = (X(4272)-JVS(22526)*X(5250)-JVS(22527)*X(5256)-JVS(22528)*X(5258))/(JVS(22525)) - X(4271) = (X(4271)-JVS(22518)*X(4859)-JVS(22519)*X(5250)-JVS(22520)*X(5252)-JVS(22521)*X(5253)-JVS(22522)*X(5255)& - &-JVS(22523)*X(5256))/(JVS(22517)) - X(4270) = (X(4270)-JVS(22509)*X(4443)-JVS(22510)*X(5107)-JVS(22511)*X(5250)-JVS(22512)*X(5252)-JVS(22513)*X(5255)& - &-JVS(22514)*X(5256))/(JVS(22508)) - X(4269) = (X(4269)-JVS(22499)*X(5132)-JVS(22500)*X(5250)-JVS(22501)*X(5252)-JVS(22502)*X(5253)-JVS(22503)*X(5255)& - &-JVS(22504)*X(5256))/(JVS(22498)) - X(4268) = (X(4268)-JVS(22489)*X(5086)-JVS(22490)*X(5111)-JVS(22491)*X(5250)-JVS(22492)*X(5252)-JVS(22493)*X(5255)& - &-JVS(22494)*X(5256))/(JVS(22488)) - X(4267) = (X(4267)-JVS(22480)*X(4603)-JVS(22481)*X(5250)-JVS(22482)*X(5252)-JVS(22483)*X(5253)-JVS(22484)*X(5255)& - &-JVS(22485)*X(5256))/(JVS(22479)) - X(4266) = (X(4266)-JVS(22469)*X(4600)-JVS(22470)*X(5250)-JVS(22471)*X(5252)-JVS(22472)*X(5253)-JVS(22473)*X(5255)& - &-JVS(22474)*X(5256))/(JVS(22468)) - X(4265) = (X(4265)-JVS(22459)*X(4514)-JVS(22460)*X(5250)-JVS(22461)*X(5252)-JVS(22462)*X(5253)-JVS(22463)*X(5255)& - &-JVS(22464)*X(5256))/(JVS(22458)) - X(4264) = (X(4264)-JVS(22450)*X(5251)-JVS(22451)*X(5252)-JVS(22452)*X(5253)-JVS(22453)*X(5254)-JVS(22454)*X(5257)& - &-JVS(22455)*X(5258))/(JVS(22449)) - X(4263) = (X(4263)-JVS(22442)*X(4648)-JVS(22443)*X(4862)-JVS(22444)*X(5250)-JVS(22445)*X(5252)-JVS(22446)*X(5255)& - &-JVS(22447)*X(5256))/(JVS(22441)) - X(4262) = (X(4262)-JVS(22431)*X(4797)-JVS(22432)*X(5250)-JVS(22433)*X(5252)-JVS(22434)*X(5253)-JVS(22435)*X(5255)& - &-JVS(22436)*X(5256))/(JVS(22430)) - X(4261) = (X(4261)-JVS(22422)*X(5163)-JVS(22423)*X(5192)-JVS(22424)*X(5250)-JVS(22425)*X(5252)-JVS(22426)*X(5255)& - &-JVS(22427)*X(5256))/(JVS(22421)) - X(4260) = (X(4260)-JVS(22410)*X(4359)-JVS(22411)*X(5250)-JVS(22412)*X(5252)-JVS(22413)*X(5253)-JVS(22414)*X(5255)& - &-JVS(22415)*X(5256))/(JVS(22409)) - X(4259) = (X(4259)-JVS(22400)*X(4373)-JVS(22401)*X(5250)-JVS(22402)*X(5252)-JVS(22403)*X(5253)-JVS(22404)*X(5255)& - &-JVS(22405)*X(5256))/(JVS(22399)) - X(4258) = (X(4258)-JVS(22391)*X(5207)-JVS(22392)*X(5251)-JVS(22393)*X(5252)-JVS(22394)*X(5253)-JVS(22395)*X(5254)& - &-JVS(22396)*X(5258))/(JVS(22390)) - X(4257) = (X(4257)-JVS(22382)*X(4288)-JVS(22383)*X(4914)-JVS(22384)*X(5250)-JVS(22385)*X(5252)-JVS(22386)*X(5253)& - &-JVS(22387)*X(5255)-JVS(22388)*X(5256))/(JVS(22381)) - X(4256) = (X(4256)-JVS(22371)*X(4894)-JVS(22372)*X(4945)-JVS(22373)*X(5074)-JVS(22374)*X(5154)-JVS(22375)*X(5250)& - &-JVS(22376)*X(5252)-JVS(22377)*X(5255))/(JVS(22370)) - X(4255) = (X(4255)-JVS(22362)*X(4794)-JVS(22363)*X(5250)-JVS(22364)*X(5252)-JVS(22365)*X(5253)-JVS(22366)*X(5255)& - &-JVS(22367)*X(5256))/(JVS(22361)) - X(4254) = (X(4254)-JVS(22353)*X(4450)-JVS(22354)*X(5138)-JVS(22355)*X(5250)-JVS(22356)*X(5252)-JVS(22357)*X(5255)& - &-JVS(22358)*X(5256))/(JVS(22352)) - X(4253) = (X(4253)-JVS(22343)*X(4448)-JVS(22344)*X(5250)-JVS(22345)*X(5252)-JVS(22346)*X(5253)-JVS(22347)*X(5255)& - &-JVS(22348)*X(5256))/(JVS(22342)) - X(4252) = (X(4252)-JVS(22330)*X(4402)-JVS(22331)*X(5250)-JVS(22332)*X(5252)-JVS(22333)*X(5253)-JVS(22334)*X(5255)& - &-JVS(22335)*X(5256))/(JVS(22329)) - X(4251) = (X(4251)-JVS(22321)*X(4878)-JVS(22322)*X(5088)-JVS(22323)*X(5250)-JVS(22324)*X(5252)-JVS(22325)*X(5255)& - &-JVS(22326)*X(5256))/(JVS(22320)) - X(4250) = (X(4250)-JVS(22310)*X(5024)-JVS(22311)*X(5251)-JVS(22312)*X(5252)-JVS(22313)*X(5253)-JVS(22314)*X(5254)& - &-JVS(22315)*X(5258))/(JVS(22309)) - X(4249) = (X(4249)-JVS(22302)*X(4988)-JVS(22303)*X(5250)-JVS(22304)*X(5252)-JVS(22305)*X(5255)-JVS(22306)*X(5256)& - &-JVS(22307)*X(5258))/(JVS(22301)) - X(4248) = (X(4248)-JVS(22293)*X(4785)-JVS(22294)*X(5163)-JVS(22295)*X(5192)-JVS(22296)*X(5250)-JVS(22297)*X(5252)& - &-JVS(22298)*X(5255)-JVS(22299)*X(5256))/(JVS(22292)) - X(4247) = (X(4247)-JVS(22276)*X(4786)-JVS(22277)*X(5251)-JVS(22278)*X(5252)-JVS(22279)*X(5253)-JVS(22280)*X(5254)& - &-JVS(22281)*X(5258))/(JVS(22275)) - X(4246) = (X(4246)-JVS(22268)*X(4454)-JVS(22269)*X(5250)-JVS(22270)*X(5252)-JVS(22271)*X(5253)-JVS(22272)*X(5255)& - &-JVS(22273)*X(5256))/(JVS(22267)) - X(4245) = (X(4245)-JVS(22259)*X(4632)-JVS(22260)*X(5250)-JVS(22261)*X(5252)-JVS(22262)*X(5253)-JVS(22263)*X(5255)& - &-JVS(22264)*X(5256))/(JVS(22258)) - X(4244) = (X(4244)-JVS(22250)*X(4451)-JVS(22251)*X(4882)-JVS(22252)*X(5250)-JVS(22253)*X(5252)-JVS(22254)*X(5255)& - &-JVS(22255)*X(5256))/(JVS(22249)) - X(4243) = (X(4243)-JVS(22241)*X(4785)-JVS(22242)*X(5250)-JVS(22243)*X(5252)-JVS(22244)*X(5253)-JVS(22245)*X(5255)& - &-JVS(22246)*X(5256))/(JVS(22240)) - X(4242) = (X(4242)-JVS(22231)*X(5095)-JVS(22232)*X(5250)-JVS(22233)*X(5252)-JVS(22234)*X(5255)-JVS(22235)*X(5256)& - &-JVS(22236)*X(5258))/(JVS(22230)) - X(4241) = (X(4241)-JVS(22222)*X(4326)-JVS(22223)*X(5250)-JVS(22224)*X(5252)-JVS(22225)*X(5253)-JVS(22226)*X(5255)& - &-JVS(22227)*X(5256))/(JVS(22221)) - X(4240) = (X(4240)-JVS(22208)*X(4600)-JVS(22209)*X(5215)-JVS(22210)*X(5250)-JVS(22211)*X(5252)-JVS(22212)*X(5255)& - &-JVS(22213)*X(5256)-JVS(22214)*X(5258))/(JVS(22207)) - X(4239) = (X(4239)-JVS(22199)*X(4730)-JVS(22200)*X(4734)-JVS(22201)*X(4779)-JVS(22202)*X(5250)-JVS(22203)*X(5252)& - &-JVS(22204)*X(5255)-JVS(22205)*X(5256))/(JVS(22198)) - X(4238) = (X(4238)-JVS(22187)*X(4417)-JVS(22188)*X(5065)-JVS(22189)*X(5250)-JVS(22190)*X(5252)-JVS(22191)*X(5255)& - &-JVS(22192)*X(5256))/(JVS(22186)) - X(4237) = (X(4237)-JVS(22177)*X(4466)-JVS(22178)*X(5250)-JVS(22179)*X(5252)-JVS(22180)*X(5253)-JVS(22181)*X(5255)& - &-JVS(22182)*X(5256))/(JVS(22176)) - X(4236) = (X(4236)-JVS(22168)*X(5083)-JVS(22169)*X(5250)-JVS(22170)*X(5252)-JVS(22171)*X(5255)-JVS(22172)*X(5256)& - &-JVS(22173)*X(5258))/(JVS(22167)) - X(4235) = (X(4235)-JVS(22159)*X(4903)-JVS(22160)*X(4967)-JVS(22161)*X(5250)-JVS(22162)*X(5252)-JVS(22163)*X(5255)& - &-JVS(22164)*X(5256))/(JVS(22158)) - X(4234) = (X(4234)-JVS(22148)*X(4839)-JVS(22149)*X(4978)-JVS(22150)*X(5250)-JVS(22151)*X(5252)-JVS(22152)*X(5255)& - &-JVS(22153)*X(5256))/(JVS(22147)) - X(4233) = (X(4233)-JVS(22137)*X(4502)-JVS(22138)*X(4775)-JVS(22139)*X(5250)-JVS(22140)*X(5252)-JVS(22141)*X(5253)& - &-JVS(22142)*X(5255)-JVS(22143)*X(5256))/(JVS(22136)) - X(4232) = (X(4232)-JVS(22128)*X(4663)-JVS(22129)*X(5250)-JVS(22130)*X(5252)-JVS(22131)*X(5253)-JVS(22132)*X(5255)& - &-JVS(22133)*X(5256))/(JVS(22127)) - X(4231) = (X(4231)-JVS(22119)*X(4610)-JVS(22120)*X(4616)-JVS(22121)*X(5250)-JVS(22122)*X(5252)-JVS(22123)*X(5255)& - &-JVS(22124)*X(5256))/(JVS(22118)) - X(4230) = (X(4230)-JVS(22107)*X(4348)-JVS(22108)*X(5250)-JVS(22109)*X(5252)-JVS(22110)*X(5253)-JVS(22111)*X(5255)& - &-JVS(22112)*X(5256))/(JVS(22106)) - X(4229) = (X(4229)-JVS(22097)*X(4339)-JVS(22098)*X(5250)-JVS(22099)*X(5252)-JVS(22100)*X(5253)-JVS(22101)*X(5255)& - &-JVS(22102)*X(5256))/(JVS(22096)) - X(4228) = (X(4228)-JVS(22086)*X(4711)-JVS(22087)*X(5022)-JVS(22088)*X(5250)-JVS(22089)*X(5252)-JVS(22090)*X(5253)& - &-JVS(22091)*X(5255)-JVS(22092)*X(5256))/(JVS(22085)) - X(4227) = (X(4227)-JVS(22075)*X(4424)-JVS(22076)*X(4815)-JVS(22077)*X(5250)-JVS(22078)*X(5252)-JVS(22079)*X(5253)& - &-JVS(22080)*X(5255)-JVS(22081)*X(5256))/(JVS(22074)) - X(4226) = (X(4226)-JVS(22066)*X(4681)-JVS(22067)*X(5250)-JVS(22068)*X(5252)-JVS(22069)*X(5253)-JVS(22070)*X(5255)& - &-JVS(22071)*X(5256))/(JVS(22065)) - X(4225) = (X(4225)-JVS(22053)*X(4509)-JVS(22054)*X(5250)-JVS(22055)*X(5252)-JVS(22056)*X(5253)-JVS(22057)*X(5255)& - &-JVS(22058)*X(5256))/(JVS(22052)) - X(4224) = (X(4224)-JVS(22044)*X(5021)-JVS(22045)*X(5250)-JVS(22046)*X(5252)-JVS(22047)*X(5253)-JVS(22048)*X(5255)& - &-JVS(22049)*X(5256))/(JVS(22043)) - X(4223) = (X(4223)-JVS(22031)*X(4336)-JVS(22032)*X(4607)-JVS(22033)*X(4608)-JVS(22034)*X(4702)-JVS(22035)*X(5250)& - &-JVS(22036)*X(5252)-JVS(22037)*X(5255))/(JVS(22030)) - X(4222) = (X(4222)-JVS(22021)*X(4610)-JVS(22022)*X(5250)-JVS(22023)*X(5252)-JVS(22024)*X(5253)-JVS(22025)*X(5255)& - &-JVS(22026)*X(5256))/(JVS(22020)) - X(4221) = (X(4221)-JVS(22011)*X(4488)-JVS(22012)*X(5250)-JVS(22013)*X(5252)-JVS(22014)*X(5253)-JVS(22015)*X(5255)& - &-JVS(22016)*X(5256))/(JVS(22010)) - X(4220) = (X(4220)-JVS(21998)*X(4925)-JVS(21999)*X(5250)-JVS(22000)*X(5252)-JVS(22001)*X(5253)-JVS(22002)*X(5255)& - &-JVS(22003)*X(5256))/(JVS(21997)) - X(4219) = (X(4219)-JVS(21985)*X(4609)-JVS(21986)*X(4611)-JVS(21987)*X(5250)-JVS(21988)*X(5252)-JVS(21989)*X(5255)& - &-JVS(21990)*X(5256))/(JVS(21984)) - X(4218) = (X(4218)-JVS(21973)*X(4743)-JVS(21974)*X(5250)-JVS(21975)*X(5252)-JVS(21976)*X(5253)-JVS(21977)*X(5255)& - &-JVS(21978)*X(5256))/(JVS(21972)) - X(4217) = (X(4217)-JVS(21961)*X(4514)-JVS(21962)*X(5250)-JVS(21963)*X(5252)-JVS(21964)*X(5253)-JVS(21965)*X(5255)& - &-JVS(21966)*X(5256))/(JVS(21960)) - X(4216) = (X(4216)-JVS(21952)*X(4652)-JVS(21953)*X(5250)-JVS(21954)*X(5252)-JVS(21955)*X(5253)-JVS(21956)*X(5255)& - &-JVS(21957)*X(5256))/(JVS(21951)) - X(4215) = (X(4215)-JVS(21938)*X(4961)-JVS(21939)*X(5250)-JVS(21940)*X(5252)-JVS(21941)*X(5253)-JVS(21942)*X(5255)& - &-JVS(21943)*X(5256))/(JVS(21937)) - X(4214) = (X(4214)-JVS(21929)*X(4379)-JVS(21930)*X(5250)-JVS(21931)*X(5252)-JVS(21932)*X(5253)-JVS(21933)*X(5255)& - &-JVS(21934)*X(5256))/(JVS(21928)) - X(4213) = (X(4213)-JVS(21917)*X(5069)-JVS(21918)*X(5251)-JVS(21919)*X(5252)-JVS(21920)*X(5253)-JVS(21921)*X(5254)& - &-JVS(21922)*X(5258))/(JVS(21916)) - X(4212) = (X(4212)-JVS(21909)*X(4639)-JVS(21910)*X(5250)-JVS(21911)*X(5252)-JVS(21912)*X(5253)-JVS(21913)*X(5255)& - &-JVS(21914)*X(5256))/(JVS(21908)) - X(4211) = (X(4211)-JVS(21900)*X(4368)-JVS(21901)*X(4595)-JVS(21902)*X(5250)-JVS(21903)*X(5252)-JVS(21904)*X(5255)& - &-JVS(21905)*X(5256))/(JVS(21899)) - X(4210) = (X(4210)-JVS(21890)*X(4413)-JVS(21891)*X(5250)-JVS(21892)*X(5252)-JVS(21893)*X(5253)-JVS(21894)*X(5255)& - &-JVS(21895)*X(5256))/(JVS(21889)) - X(4209) = (X(4209)-JVS(21881)*X(4851)-JVS(21882)*X(5250)-JVS(21883)*X(5252)-JVS(21884)*X(5253)-JVS(21885)*X(5255)& - &-JVS(21886)*X(5256))/(JVS(21880)) - X(4208) = (X(4208)-JVS(21871)*X(4826)-JVS(21872)*X(5225)-JVS(21873)*X(5250)-JVS(21874)*X(5252)-JVS(21875)*X(5253)& - &-JVS(21876)*X(5255)-JVS(21877)*X(5256))/(JVS(21870)) - X(4207) = (X(4207)-JVS(21861)*X(4778)-JVS(21862)*X(5250)-JVS(21863)*X(5252)-JVS(21864)*X(5253)-JVS(21865)*X(5255)& - &-JVS(21866)*X(5256))/(JVS(21860)) - X(4206) = (X(4206)-JVS(21851)*X(5012)-JVS(21852)*X(5250)-JVS(21853)*X(5252)-JVS(21854)*X(5253)-JVS(21855)*X(5255)& - &-JVS(21856)*X(5256))/(JVS(21850)) - X(4205) = (X(4205)-JVS(21842)*X(4791)-JVS(21843)*X(5250)-JVS(21844)*X(5252)-JVS(21845)*X(5253)-JVS(21846)*X(5255)& - &-JVS(21847)*X(5256))/(JVS(21841)) - X(4204) = (X(4204)-JVS(21833)*X(4676)-JVS(21834)*X(5250)-JVS(21835)*X(5252)-JVS(21836)*X(5253)-JVS(21837)*X(5255)& - &-JVS(21838)*X(5256))/(JVS(21832)) - X(4203) = (X(4203)-JVS(21824)*X(4799)-JVS(21825)*X(5250)-JVS(21826)*X(5252)-JVS(21827)*X(5253)-JVS(21828)*X(5255)& - &-JVS(21829)*X(5256))/(JVS(21823)) - X(4202) = (X(4202)-JVS(21814)*X(4558)-JVS(21815)*X(5250)-JVS(21816)*X(5252)-JVS(21817)*X(5253)-JVS(21818)*X(5255)& - &-JVS(21819)*X(5256))/(JVS(21813)) - X(4201) = (X(4201)-JVS(21803)*X(4492)-JVS(21804)*X(5250)-JVS(21805)*X(5252)-JVS(21806)*X(5255)-JVS(21807)*X(5256)& - &-JVS(21808)*X(5258))/(JVS(21802)) - X(4200) = (X(4200)-JVS(21794)*X(4487)-JVS(21795)*X(5250)-JVS(21796)*X(5252)-JVS(21797)*X(5253)-JVS(21798)*X(5255)& - &-JVS(21799)*X(5256))/(JVS(21793)) - X(4199) = (X(4199)-JVS(21785)*X(4877)-JVS(21786)*X(5250)-JVS(21787)*X(5252)-JVS(21788)*X(5253)-JVS(21789)*X(5255)& - &-JVS(21790)*X(5256))/(JVS(21784)) - X(4198) = (X(4198)-JVS(21771)*X(4576)-JVS(21772)*X(5250)-JVS(21773)*X(5252)-JVS(21774)*X(5253)-JVS(21775)*X(5255)& - &-JVS(21776)*X(5256))/(JVS(21770)) - X(4197) = (X(4197)-JVS(21762)*X(4855)-JVS(21763)*X(5083)-JVS(21764)*X(5250)-JVS(21765)*X(5252)-JVS(21766)*X(5255)& - &-JVS(21767)*X(5256))/(JVS(21761)) - X(4196) = (X(4196)-JVS(21753)*X(4863)-JVS(21754)*X(5250)-JVS(21755)*X(5252)-JVS(21756)*X(5253)-JVS(21757)*X(5255)& - &-JVS(21758)*X(5256))/(JVS(21752)) - X(4195) = (X(4195)-JVS(21740)*X(4531)-JVS(21741)*X(5250)-JVS(21742)*X(5252)-JVS(21743)*X(5253)-JVS(21744)*X(5255)& - &-JVS(21745)*X(5256))/(JVS(21739)) - X(4194) = (X(4194)-JVS(21731)*X(4790)-JVS(21732)*X(5250)-JVS(21733)*X(5252)-JVS(21734)*X(5253)-JVS(21735)*X(5255)& - &-JVS(21736)*X(5256))/(JVS(21730)) - X(4193) = (X(4193)-JVS(21722)*X(4639)-JVS(21723)*X(5250)-JVS(21724)*X(5252)-JVS(21725)*X(5253)-JVS(21726)*X(5255)& - &-JVS(21727)*X(5256))/(JVS(21721)) - X(4192) = (X(4192)-JVS(21713)*X(4670)-JVS(21714)*X(5250)-JVS(21715)*X(5252)-JVS(21716)*X(5253)-JVS(21717)*X(5255)& - &-JVS(21718)*X(5256))/(JVS(21712)) - X(4191) = (X(4191)-JVS(21705)*X(4631)-JVS(21706)*X(5250)-JVS(21707)*X(5252)-JVS(21708)*X(5255)-JVS(21709)*X(5256))& - &/(JVS(21704)) - X(4190) = (X(4190)-JVS(21697)*X(4925)-JVS(21698)*X(5250)-JVS(21699)*X(5252)-JVS(21700)*X(5255)-JVS(21701)*X(5256))& - &/(JVS(21696)) - X(4189) = (X(4189)-JVS(21688)*X(5213)-JVS(21689)*X(5250)-JVS(21690)*X(5252)-JVS(21691)*X(5255)-JVS(21692)*X(5256))& - &/(JVS(21687)) - X(4188) = (X(4188)-JVS(21677)*X(4669)-JVS(21678)*X(5250)-JVS(21679)*X(5252)-JVS(21680)*X(5255)-JVS(21681)*X(5256))& - &/(JVS(21676)) - X(4187) = (X(4187)-JVS(21668)*X(5250)-JVS(21669)*X(5252)-JVS(21670)*X(5253)-JVS(21671)*X(5255)-JVS(21672)*X(5256))& - &/(JVS(21667)) - X(4186) = (X(4186)-JVS(21659)*X(4600)-JVS(21660)*X(5250)-JVS(21661)*X(5252)-JVS(21662)*X(5255)-JVS(21663)*X(5256))& - &/(JVS(21658)) - X(4185) = (X(4185)-JVS(21647)*X(4600)-JVS(21648)*X(5250)-JVS(21649)*X(5252)-JVS(21650)*X(5255)-JVS(21651)*X(5256))& - &/(JVS(21646)) - X(4184) = (X(4184)-JVS(21640)*X(5250)-JVS(21641)*X(5252)-JVS(21642)*X(5253)-JVS(21643)*X(5255)-JVS(21644)*X(5256))& - &/(JVS(21639)) - X(4183) = (X(4183)-JVS(21629)*X(4746)-JVS(21630)*X(5099)-JVS(21631)*X(5206)-JVS(21632)*X(5250)-JVS(21633)*X(5252)& - &-JVS(21634)*X(5253)-JVS(21635)*X(5255)-JVS(21636)*X(5256))/(JVS(21628)) - X(4182) = (X(4182)-JVS(21616)*X(5250)-JVS(21617)*X(5252)-JVS(21618)*X(5253)-JVS(21619)*X(5255)-JVS(21620)*X(5256))& - &/(JVS(21615)) - X(4181) = (X(4181)-JVS(21605)*X(5250)-JVS(21606)*X(5252)-JVS(21607)*X(5253)-JVS(21608)*X(5255)-JVS(21609)*X(5256))& - &/(JVS(21604)) - X(4180) = (X(4180)-JVS(21589)*X(4805)-JVS(21590)*X(5250)-JVS(21591)*X(5252)-JVS(21592)*X(5255)-JVS(21593)*X(5256))& - &/(JVS(21588)) - X(4179) = (X(4179)-JVS(21582)*X(5138)-JVS(21583)*X(5250)-JVS(21584)*X(5252)-JVS(21585)*X(5255)-JVS(21586)*X(5256))& - &/(JVS(21581)) - X(4178) = (X(4178)-JVS(21571)*X(4946)-JVS(21572)*X(5250)-JVS(21573)*X(5252)-JVS(21574)*X(5255)-JVS(21575)*X(5256))& - &/(JVS(21570)) - X(4177) = (X(4177)-JVS(21561)*X(5250)-JVS(21562)*X(5252)-JVS(21563)*X(5255)-JVS(21564)*X(5256))/(JVS(21560)) - X(4176) = (X(4176)-JVS(21551)*X(5207)-JVS(21552)*X(5252)-JVS(21553)*X(5255)-JVS(21554)*X(5256)-JVS(21555)*X(5258))& - &/(JVS(21550)) - X(4175) = (X(4175)-JVS(21541)*X(4535)-JVS(21542)*X(4631)-JVS(21543)*X(4731)-JVS(21544)*X(5250)-JVS(21545)*X(5252)& - &-JVS(21546)*X(5253)-JVS(21547)*X(5255)-JVS(21548)*X(5256))/(JVS(21540)) - X(4174) = (X(4174)-JVS(21529)*X(4972)-JVS(21530)*X(5250)-JVS(21531)*X(5252)-JVS(21532)*X(5255)-JVS(21533)*X(5256))& - &/(JVS(21528)) - X(4173) = (X(4173)-JVS(21521)*X(5215)-JVS(21522)*X(5250)-JVS(21523)*X(5252)-JVS(21524)*X(5255)-JVS(21525)*X(5256))& - &/(JVS(21520)) - X(4172) = (X(4172)-JVS(21512)*X(4764)-JVS(21513)*X(5250)-JVS(21514)*X(5252)-JVS(21515)*X(5255)-JVS(21516)*X(5256))& - &/(JVS(21511)) - X(4171) = (X(4171)-JVS(21503)*X(5124)-JVS(21504)*X(5250)-JVS(21505)*X(5252)-JVS(21506)*X(5255)-JVS(21507)*X(5256))& - &/(JVS(21502)) - X(4170) = (X(4170)-JVS(21496)*X(4594)-JVS(21497)*X(5250)-JVS(21498)*X(5252)-JVS(21499)*X(5255)-JVS(21500)*X(5256))& - &/(JVS(21495)) - X(4169) = (X(4169)-JVS(21487)*X(5161)-JVS(21488)*X(5250)-JVS(21489)*X(5252)-JVS(21490)*X(5255)-JVS(21491)*X(5256))& - &/(JVS(21486)) - X(4168) = (X(4168)-JVS(21477)*X(5250)-JVS(21478)*X(5252)-JVS(21479)*X(5253)-JVS(21480)*X(5255)-JVS(21481)*X(5256))& - &/(JVS(21476)) - X(4167) = (X(4167)-JVS(21468)*X(5250)-JVS(21469)*X(5252)-JVS(21470)*X(5255)-JVS(21471)*X(5256))/(JVS(21467)) - X(4166) = (X(4166)-JVS(21460)*X(4789)-JVS(21461)*X(5250)-JVS(21462)*X(5252)-JVS(21463)*X(5255)-JVS(21464)*X(5256))& - &/(JVS(21459)) - X(4165) = (X(4165)-JVS(21452)*X(5066)-JVS(21453)*X(5250)-JVS(21454)*X(5252)-JVS(21455)*X(5255)-JVS(21456)*X(5256))& - &/(JVS(21451)) - X(4164) = (X(4164)-JVS(21446)*X(5065)-JVS(21447)*X(5250)-JVS(21448)*X(5252)-JVS(21449)*X(5255)-JVS(21450)*X(5256))& - &/(JVS(21445)) - X(4163) = (X(4163)-JVS(21435)*X(4603)-JVS(21436)*X(5250)-JVS(21437)*X(5252)-JVS(21438)*X(5255)-JVS(21439)*X(5256))& - &/(JVS(21434)) - X(4162) = (X(4162)-JVS(21427)*X(4748)-JVS(21428)*X(5250)-JVS(21429)*X(5252)-JVS(21430)*X(5255)-JVS(21431)*X(5256))& - &/(JVS(21426)) - X(4161) = (X(4161)-JVS(21418)*X(5032)-JVS(21419)*X(5250)-JVS(21420)*X(5252)-JVS(21421)*X(5255)-JVS(21422)*X(5256))& - &/(JVS(21417)) - X(4160) = (X(4160)-JVS(21410)*X(4881)-JVS(21411)*X(5250)-JVS(21412)*X(5252)-JVS(21413)*X(5255)-JVS(21414)*X(5256))& - &/(JVS(21409)) - X(4159) = (X(4159)-JVS(21402)*X(5049)-JVS(21403)*X(5250)-JVS(21404)*X(5252)-JVS(21405)*X(5255)-JVS(21406)*X(5256))& - &/(JVS(21401)) - X(4158) = (X(4158)-JVS(21396)*X(5081)-JVS(21397)*X(5250)-JVS(21398)*X(5252)-JVS(21399)*X(5255)-JVS(21400)*X(5256))& - &/(JVS(21395)) - X(4157) = (X(4157)-JVS(21388)*X(5021)-JVS(21389)*X(5250)-JVS(21390)*X(5252)-JVS(21391)*X(5255)-JVS(21392)*X(5256))& - &/(JVS(21387)) - X(4156) = (X(4156)-JVS(21378)*X(4922)-JVS(21379)*X(4923)-JVS(21380)*X(5250)-JVS(21381)*X(5256))/(JVS(21377)) - X(4155) = (X(4155)-JVS(21372)*X(4879)-JVS(21373)*X(5250)-JVS(21374)*X(5252)-JVS(21375)*X(5255)-JVS(21376)*X(5256))& - &/(JVS(21371)) - X(4154) = (X(4154)-JVS(21364)*X(5250)-JVS(21365)*X(5252)-JVS(21366)*X(5253)-JVS(21367)*X(5255)-JVS(21368)*X(5256))& - &/(JVS(21363)) - X(4153) = (X(4153)-JVS(21352)*X(5250)-JVS(21353)*X(5252)-JVS(21354)*X(5255)-JVS(21355)*X(5256))/(JVS(21351)) - X(4152) = (X(4152)-JVS(21344)*X(5250)-JVS(21345)*X(5252)-JVS(21346)*X(5255)-JVS(21347)*X(5256))/(JVS(21343)) - X(4151) = (X(4151)-JVS(21332)*X(4600)-JVS(21333)*X(5250)-JVS(21334)*X(5252)-JVS(21335)*X(5255)-JVS(21336)*X(5256))& - &/(JVS(21331)) - X(4150) = (X(4150)-JVS(21324)*X(5196)-JVS(21325)*X(5250)-JVS(21326)*X(5252)-JVS(21327)*X(5255)-JVS(21328)*X(5256))& - &/(JVS(21323)) - X(4149) = (X(4149)-JVS(21314)*X(5031)-JVS(21315)*X(5250)-JVS(21316)*X(5252)-JVS(21317)*X(5255)-JVS(21318)*X(5256))& - &/(JVS(21313)) - X(4148) = (X(4148)-JVS(21307)*X(4605)-JVS(21308)*X(5252)-JVS(21309)*X(5255)-JVS(21310)*X(5256)-JVS(21311)*X(5258))& - &/(JVS(21306)) - X(4147) = (X(4147)-JVS(21300)*X(5104)-JVS(21301)*X(5250)-JVS(21302)*X(5252)-JVS(21303)*X(5255)-JVS(21304)*X(5256))& - &/(JVS(21299)) - X(4146) = (X(4146)-JVS(21292)*X(4600)-JVS(21293)*X(5250)-JVS(21294)*X(5252)-JVS(21295)*X(5255)-JVS(21296)*X(5256))& - &/(JVS(21291)) - X(4145) = (X(4145)-JVS(21286)*X(5175)-JVS(21287)*X(5252)-JVS(21288)*X(5255)-JVS(21289)*X(5256)-JVS(21290)*X(5258))& - &/(JVS(21285)) - X(4144) = (X(4144)-JVS(21279)*X(4605)-JVS(21280)*X(5252)-JVS(21281)*X(5255)-JVS(21282)*X(5256)-JVS(21283)*X(5258))& - &/(JVS(21278)) - X(4143) = (X(4143)-JVS(21272)*X(4601)-JVS(21273)*X(5250)-JVS(21274)*X(5252)-JVS(21275)*X(5255)-JVS(21276)*X(5256))& - &/(JVS(21271)) - X(4142) = (X(4142)-JVS(21265)*X(4900)-JVS(21266)*X(5250)-JVS(21267)*X(5252)-JVS(21268)*X(5255)-JVS(21269)*X(5256))& - &/(JVS(21264)) - X(4141) = (X(4141)-JVS(21258)*X(5068)-JVS(21259)*X(5250)-JVS(21260)*X(5252)-JVS(21261)*X(5255)-JVS(21262)*X(5256))& - &/(JVS(21257)) - X(4140) = (X(4140)-JVS(21252)*X(4474)-JVS(21253)*X(5250)-JVS(21254)*X(5252)-JVS(21255)*X(5255)-JVS(21256)*X(5256))& - &/(JVS(21251)) - X(4139) = (X(4139)-JVS(21245)*X(5250)-JVS(21246)*X(5252)-JVS(21247)*X(5253)-JVS(21248)*X(5255)-JVS(21249)*X(5256))& - &/(JVS(21244)) - X(4138) = (X(4138)-JVS(21236)*X(4584)-JVS(21237)*X(5250)-JVS(21238)*X(5252)-JVS(21239)*X(5255)-JVS(21240)*X(5256))& - &/(JVS(21235)) - X(4137) = (X(4137)-JVS(21227)*X(5114)-JVS(21228)*X(5250)-JVS(21229)*X(5252)-JVS(21230)*X(5255)-JVS(21231)*X(5256))& - &/(JVS(21226)) - X(4136) = (X(4136)-JVS(21217)*X(5130)-JVS(21218)*X(5250)-JVS(21219)*X(5252)-JVS(21220)*X(5255)-JVS(21221)*X(5256))& - &/(JVS(21216)) - X(4135) = (X(4135)-JVS(21209)*X(5175)-JVS(21210)*X(5252)-JVS(21211)*X(5255)-JVS(21212)*X(5256)-JVS(21213)*X(5258))& - &/(JVS(21208)) - X(4134) = (X(4134)-JVS(21202)*X(4865)-JVS(21203)*X(5250)-JVS(21204)*X(5252)-JVS(21205)*X(5255)-JVS(21206)*X(5256))& - &/(JVS(21201)) - X(4133) = (X(4133)-JVS(21196)*X(5250)-JVS(21197)*X(5252)-JVS(21198)*X(5255)-JVS(21199)*X(5256))/(JVS(21195)) - X(4132) = (X(4132)-JVS(21188)*X(5250)-JVS(21189)*X(5253)-JVS(21190)*X(5255)-JVS(21191)*X(5256)-JVS(21192)*X(5258))& - &/(JVS(21187)) - X(4131) = (X(4131)-JVS(21179)*X(4624)-JVS(21180)*X(5250)-JVS(21181)*X(5252)-JVS(21182)*X(5255)-JVS(21183)*X(5256))& - &/(JVS(21178)) - X(4130) = (X(4130)-JVS(21171)*X(4385)-JVS(21172)*X(5250)-JVS(21173)*X(5252)-JVS(21174)*X(5255)-JVS(21175)*X(5256))& - &/(JVS(21170)) - X(4129) = (X(4129)-JVS(21162)*X(4832)-JVS(21163)*X(5252)-JVS(21164)*X(5255)-JVS(21165)*X(5256)-JVS(21166)*X(5258))& - &/(JVS(21161)) - X(4128) = (X(4128)-JVS(21155)*X(5056)-JVS(21156)*X(5250)-JVS(21157)*X(5252)-JVS(21158)*X(5255)-JVS(21159)*X(5256))& - &/(JVS(21154)) - X(4127) = (X(4127)-JVS(21148)*X(4616)-JVS(21149)*X(5250)-JVS(21150)*X(5252)-JVS(21151)*X(5255)-JVS(21152)*X(5256))& - &/(JVS(21147)) - X(4126) = (X(4126)-JVS(21140)*X(5097)-JVS(21141)*X(5250)-JVS(21142)*X(5252)-JVS(21143)*X(5255)-JVS(21144)*X(5256))& - &/(JVS(21139)) - X(4125) = (X(4125)-JVS(21129)*X(4749)-JVS(21130)*X(4758)-JVS(21131)*X(4893)-JVS(21132)*X(4905)-JVS(21133)*X(4982)& - &-JVS(21134)*X(5001)-JVS(21135)*X(5250)-JVS(21136)*X(5255))/(JVS(21128)) - X(4124) = (X(4124)-JVS(21119)*X(5213)-JVS(21120)*X(5250)-JVS(21121)*X(5252)-JVS(21122)*X(5255)-JVS(21123)*X(5256))& - &/(JVS(21118)) - X(4123) = (X(4123)-JVS(21112)*X(5091)-JVS(21113)*X(5250)-JVS(21114)*X(5252)-JVS(21115)*X(5255)-JVS(21116)*X(5256))& - &/(JVS(21111)) - X(4122) = (X(4122)-JVS(21104)*X(5107)-JVS(21105)*X(5250)-JVS(21106)*X(5252)-JVS(21107)*X(5255)-JVS(21108)*X(5256))& - &/(JVS(21103)) - X(4121) = (X(4121)-JVS(21093)*X(5238)-JVS(21094)*X(5250)-JVS(21095)*X(5252)-JVS(21096)*X(5255)-JVS(21097)*X(5256))& - &/(JVS(21092)) - X(4120) = (X(4120)-JVS(21085)*X(5044)-JVS(21086)*X(5250)-JVS(21087)*X(5252)-JVS(21088)*X(5255)-JVS(21089)*X(5256))& - &/(JVS(21084)) - X(4119) = (X(4119)-JVS(21075)*X(4173)-JVS(21076)*X(5250)-JVS(21077)*X(5252)-JVS(21078)*X(5255)-JVS(21079)*X(5256))& - &/(JVS(21074)) - X(4118) = (X(4118)-JVS(21065)*X(4367)-JVS(21066)*X(5250)-JVS(21067)*X(5252)-JVS(21068)*X(5255)-JVS(21069)*X(5256))& - &/(JVS(21064)) - X(4117) = (X(4117)-JVS(21056)*X(5187)-JVS(21057)*X(5250)-JVS(21058)*X(5252)-JVS(21059)*X(5255)-JVS(21060)*X(5256))& - &/(JVS(21055)) - X(4116) = (X(4116)-JVS(21049)*X(5054)-JVS(21050)*X(5250)-JVS(21051)*X(5252)-JVS(21052)*X(5255)-JVS(21053)*X(5256))& - &/(JVS(21048)) - X(4115) = (X(4115)-JVS(21041)*X(4572)-JVS(21042)*X(5250)-JVS(21043)*X(5252)-JVS(21044)*X(5255)-JVS(21045)*X(5256))& - &/(JVS(21040)) - X(4114) = (X(4114)-JVS(21033)*X(4777)-JVS(21034)*X(5250)-JVS(21035)*X(5252)-JVS(21036)*X(5255)-JVS(21037)*X(5256))& - &/(JVS(21032)) - X(4113) = (X(4113)-JVS(21026)*X(5118)-JVS(21027)*X(5204)-JVS(21028)*X(5250)-JVS(21029)*X(5255))/(JVS(21025)) - X(4112) = (X(4112)-JVS(21020)*X(4512)-JVS(21021)*X(5250)-JVS(21022)*X(5252)-JVS(21023)*X(5255)-JVS(21024)*X(5256))& - &/(JVS(21019)) - X(4111) = (X(4111)-JVS(21013)*X(5153)-JVS(21014)*X(5250)-JVS(21015)*X(5252)-JVS(21016)*X(5255)-JVS(21017)*X(5256))& - &/(JVS(21012)) - X(4110) = (X(4110)-JVS(21007)*X(5056)-JVS(21008)*X(5250)-JVS(21009)*X(5252)-JVS(21010)*X(5255)-JVS(21011)*X(5256))& - &/(JVS(21006)) - X(4109) = (X(4109)-JVS(20993)*X(4778)-JVS(20994)*X(4856)-JVS(20995)*X(4885)-JVS(20996)*X(5127)-JVS(20997)*X(5250)& - &-JVS(20998)*X(5252)-JVS(20999)*X(5255)-JVS(21000)*X(5256))/(JVS(20992)) - X(4108) = (X(4108)-JVS(20980)*X(4809)-JVS(20981)*X(5250)-JVS(20982)*X(5252)-JVS(20983)*X(5255)-JVS(20984)*X(5256))& - &/(JVS(20979)) - X(4107) = (X(4107)-JVS(20974)*X(5217)-JVS(20975)*X(5218)-JVS(20976)*X(5250)-JVS(20977)*X(5255))/(JVS(20973)) - X(4106) = (X(4106)-JVS(20968)*X(5110)-JVS(20969)*X(5250)-JVS(20970)*X(5252)-JVS(20971)*X(5255)-JVS(20972)*X(5256))& - &/(JVS(20967)) - X(4105) = (X(4105)-JVS(20961)*X(5045)-JVS(20962)*X(5250)-JVS(20963)*X(5252)-JVS(20964)*X(5255)-JVS(20965)*X(5256))& - &/(JVS(20960)) - X(4104) = (X(4104)-JVS(20949)*X(4580)-JVS(20950)*X(4597)-JVS(20951)*X(4644)-JVS(20952)*X(5019)-JVS(20953)*X(5250)& - &-JVS(20954)*X(5252)-JVS(20955)*X(5255)-JVS(20956)*X(5256))/(JVS(20948)) - X(4103) = (X(4103)-JVS(20936)*X(5112)-JVS(20937)*X(5250)-JVS(20938)*X(5252)-JVS(20939)*X(5255)-JVS(20940)*X(5256))& - &/(JVS(20935)) - X(4102) = (X(4102)-JVS(20925)*X(5250)-JVS(20926)*X(5252)-JVS(20927)*X(5253)-JVS(20928)*X(5255)-JVS(20929)*X(5256))& - &/(JVS(20924)) - X(4101) = (X(4101)-JVS(20915)*X(5250)-JVS(20916)*X(5252)-JVS(20917)*X(5253)-JVS(20918)*X(5255)-JVS(20919)*X(5256))& - &/(JVS(20914)) - X(4100) = (X(4100)-JVS(20904)*X(5250)-JVS(20905)*X(5252)-JVS(20906)*X(5253)-JVS(20907)*X(5255)-JVS(20908)*X(5256))& - &/(JVS(20903)) - X(4099) = (X(4099)-JVS(20895)*X(5238)-JVS(20896)*X(5250)-JVS(20897)*X(5252)-JVS(20898)*X(5255)-JVS(20899)*X(5256))& - &/(JVS(20894)) - X(4098) = (X(4098)-JVS(20887)*X(4953)-JVS(20888)*X(5250)-JVS(20889)*X(5252)-JVS(20890)*X(5255)-JVS(20891)*X(5256))& - &/(JVS(20886)) - X(4097) = (X(4097)-JVS(20877)*X(4600)-JVS(20878)*X(5250)-JVS(20879)*X(5252)-JVS(20880)*X(5255)-JVS(20881)*X(5256))& - &/(JVS(20876)) - X(4096) = (X(4096)-JVS(20871)*X(5132)-JVS(20872)*X(5250)-JVS(20873)*X(5252)-JVS(20874)*X(5258))/(JVS(20870)) - X(4095) = (X(4095)-JVS(20865)*X(5157)-JVS(20866)*X(5250)-JVS(20867)*X(5252)-JVS(20868)*X(5255)-JVS(20869)*X(5256))& - &/(JVS(20864)) - X(4094) = (X(4094)-JVS(20860)*X(5250)-JVS(20861)*X(5256)-JVS(20862)*X(5258))/(JVS(20859)) - X(4093) = (X(4093)-JVS(20855)*X(5250)-JVS(20856)*X(5256)-JVS(20857)*X(5258))/(JVS(20854)) - X(4092) = (X(4092)-JVS(20847)*X(4492)-JVS(20848)*X(4600)-JVS(20849)*X(5250)-JVS(20850)*X(5252)-JVS(20851)*X(5255)& - &-JVS(20852)*X(5256))/(JVS(20846)) - X(4091) = (X(4091)-JVS(20834)*X(4492)-JVS(20835)*X(5250)-JVS(20836)*X(5252)-JVS(20837)*X(5255)-JVS(20838)*X(5256))& - &/(JVS(20833)) - X(4090) = (X(4090)-JVS(20827)*X(4600)-JVS(20828)*X(5250)-JVS(20829)*X(5252)-JVS(20830)*X(5255)-JVS(20831)*X(5256))& - &/(JVS(20826)) - X(4089) = (X(4089)-JVS(20819)*X(4090)-JVS(20820)*X(4091)-JVS(20821)*X(5250)-JVS(20822)*X(5252)-JVS(20823)*X(5255)& - &-JVS(20824)*X(5256))/(JVS(20818)) - X(4088) = (X(4088)-JVS(20808)*X(5014)-JVS(20809)*X(5207)-JVS(20810)*X(5250)-JVS(20811)*X(5252)-JVS(20812)*X(5255)& - &-JVS(20813)*X(5256))/(JVS(20807)) - X(4087) = (X(4087)-JVS(20799)*X(4255)-JVS(20800)*X(4794)-JVS(20801)*X(5250)-JVS(20802)*X(5252)-JVS(20803)*X(5255)& - &-JVS(20804)*X(5256))/(JVS(20798)) - X(4086) = (X(4086)-JVS(20791)*X(4743)-JVS(20792)*X(4930)-JVS(20793)*X(5250)-JVS(20794)*X(5252)-JVS(20795)*X(5255)& - &-JVS(20796)*X(5256))/(JVS(20790)) - X(4085) = (X(4085)-JVS(20782)*X(4504)-JVS(20783)*X(5250)-JVS(20784)*X(5252)-JVS(20785)*X(5255)-JVS(20786)*X(5256)& - &-JVS(20787)*X(5258))/(JVS(20781)) - X(4084) = (X(4084)-JVS(20774)*X(5037)-JVS(20775)*X(5103)-JVS(20776)*X(5123)-JVS(20777)*X(5250)-JVS(20778)*X(5256)& - &-JVS(20779)*X(5258))/(JVS(20773)) - X(4083) = (X(4083)-JVS(20765)*X(5250)-JVS(20766)*X(5256)-JVS(20767)*X(5258))/(JVS(20764)) - X(4082) = (X(4082)-JVS(20757)*X(4438)-JVS(20758)*X(5250)-JVS(20759)*X(5252)-JVS(20760)*X(5255)-JVS(20761)*X(5256)& - &-JVS(20762)*X(5258))/(JVS(20756)) - X(4081) = (X(4081)-JVS(20749)*X(4272)-JVS(20750)*X(5103)-JVS(20751)*X(5126)-JVS(20752)*X(5250)-JVS(20753)*X(5256)& - &-JVS(20754)*X(5258))/(JVS(20748)) - X(4080) = (X(4080)-JVS(20743)*X(5250)-JVS(20744)*X(5256)-JVS(20745)*X(5258))/(JVS(20742)) - X(4079) = (X(4079)-JVS(20735)*X(4531)-JVS(20736)*X(5250)-JVS(20737)*X(5252)-JVS(20738)*X(5255)-JVS(20739)*X(5256)& - &-JVS(20740)*X(5258))/(JVS(20734)) - X(4078) = (X(4078)-JVS(20727)*X(4600)-JVS(20728)*X(5250)-JVS(20729)*X(5252)-JVS(20730)*X(5255)-JVS(20731)*X(5256)& - &-JVS(20732)*X(5258))/(JVS(20726)) - X(4077) = (X(4077)-JVS(20718)*X(4484)-JVS(20719)*X(4789)-JVS(20720)*X(5250)-JVS(20721)*X(5252)-JVS(20722)*X(5255)& - &-JVS(20723)*X(5256))/(JVS(20717)) - X(4076) = (X(4076)-JVS(20710)*X(5250)-JVS(20711)*X(5252)-JVS(20712)*X(5255)-JVS(20713)*X(5256))/(JVS(20709)) - X(4075) = (X(4075)-JVS(20700)*X(4408)-JVS(20701)*X(5250)-JVS(20702)*X(5252)-JVS(20703)*X(5255)-JVS(20704)*X(5256)& - &-JVS(20705)*X(5258))/(JVS(20699)) - X(4074) = (X(4074)-JVS(20694)*X(5250)-JVS(20695)*X(5252)-JVS(20696)*X(5255)-JVS(20697)*X(5256))/(JVS(20693)) - X(4073) = (X(4073)-JVS(20685)*X(4487)-JVS(20686)*X(5250)-JVS(20687)*X(5252)-JVS(20688)*X(5255)-JVS(20689)*X(5256)& - &-JVS(20690)*X(5258))/(JVS(20684)) - X(4072) = (X(4072)-JVS(20677)*X(4663)-JVS(20678)*X(5250)-JVS(20679)*X(5252)-JVS(20680)*X(5255)-JVS(20681)*X(5256)& - &-JVS(20682)*X(5258))/(JVS(20676)) - X(4071) = (X(4071)-JVS(20669)*X(4491)-JVS(20670)*X(4986)-JVS(20671)*X(5250)-JVS(20672)*X(5252)-JVS(20673)*X(5255)& - &-JVS(20674)*X(5256))/(JVS(20668)) - X(4070) = (X(4070)-JVS(20663)*X(5250)-JVS(20664)*X(5252)-JVS(20665)*X(5255)-JVS(20666)*X(5256))/(JVS(20662)) - X(4069) = (X(4069)-JVS(20656)*X(5250)-JVS(20657)*X(5252)-JVS(20658)*X(5255)-JVS(20659)*X(5256))/(JVS(20655)) - X(4068) = (X(4068)-JVS(20647)*X(5250)-JVS(20648)*X(5252)-JVS(20649)*X(5255)-JVS(20650)*X(5256))/(JVS(20646)) - X(4067) = (X(4067)-JVS(20638)*X(4859)-JVS(20639)*X(5250)-JVS(20640)*X(5252)-JVS(20641)*X(5255)-JVS(20642)*X(5256)& - &-JVS(20643)*X(5258))/(JVS(20637)) - X(4066) = (X(4066)-JVS(20632)*X(5022)-JVS(20633)*X(5074)-JVS(20634)*X(5250)-JVS(20635)*X(5252))/(JVS(20631)) - X(4065) = (X(4065)-JVS(20625)*X(4466)-JVS(20626)*X(5250)-JVS(20627)*X(5252)-JVS(20628)*X(5255)-JVS(20629)*X(5256)& - &-JVS(20630)*X(5258))/(JVS(20624)) - X(4064) = (X(4064)-JVS(20617)*X(4499)-JVS(20618)*X(5250)-JVS(20619)*X(5252)-JVS(20620)*X(5255)-JVS(20621)*X(5256)& - &-JVS(20622)*X(5258))/(JVS(20616)) - X(4063) = (X(4063)-JVS(20609)*X(4457)-JVS(20610)*X(5250)-JVS(20611)*X(5252)-JVS(20612)*X(5255)-JVS(20613)*X(5256)& - &-JVS(20614)*X(5258))/(JVS(20608)) - X(4062) = (X(4062)-JVS(20601)*X(4799)-JVS(20602)*X(5034)-JVS(20603)*X(5250)-JVS(20604)*X(5252)-JVS(20605)*X(5255)& - &-JVS(20606)*X(5256))/(JVS(20600)) - X(4061) = (X(4061)-JVS(20592)*X(4632)-JVS(20593)*X(5250)-JVS(20594)*X(5252)-JVS(20595)*X(5255)-JVS(20596)*X(5256)& - &-JVS(20597)*X(5258))/(JVS(20591)) - X(4060) = (X(4060)-JVS(20584)*X(4222)-JVS(20585)*X(4610)-JVS(20586)*X(5250)-JVS(20587)*X(5252)-JVS(20588)*X(5255)& - &-JVS(20589)*X(5256))/(JVS(20583)) - X(4059) = (X(4059)-JVS(20571)*X(5006)-JVS(20572)*X(5095)-JVS(20573)*X(5250)-JVS(20574)*X(5252)-JVS(20575)*X(5255)& - &-JVS(20576)*X(5256))/(JVS(20570)) - X(4058) = (X(4058)-JVS(20562)*X(4500)-JVS(20563)*X(4834)-JVS(20564)*X(5250)-JVS(20565)*X(5252)-JVS(20566)*X(5255)& - &-JVS(20567)*X(5256))/(JVS(20561)) - X(4057) = (X(4057)-JVS(20552)*X(4454)-JVS(20553)*X(5250)-JVS(20554)*X(5252)-JVS(20555)*X(5255)-JVS(20556)*X(5256)& - &-JVS(20557)*X(5258))/(JVS(20551)) - X(4056) = (X(4056)-JVS(20547)*X(5250)-JVS(20548)*X(5256)-JVS(20549)*X(5258))/(JVS(20546)) - X(4055) = (X(4055)-JVS(20541)*X(5250)-JVS(20542)*X(5252)-JVS(20543)*X(5255)-JVS(20544)*X(5256))/(JVS(20540)) - X(4054) = (X(4054)-JVS(20533)*X(4413)-JVS(20534)*X(5250)-JVS(20535)*X(5252)-JVS(20536)*X(5255)-JVS(20537)*X(5256)& - &-JVS(20538)*X(5258))/(JVS(20532)) - X(4053) = (X(4053)-JVS(20525)*X(4804)-JVS(20526)*X(4889)-JVS(20527)*X(5250)-JVS(20528)*X(5252)-JVS(20529)*X(5255)& - &-JVS(20530)*X(5256))/(JVS(20524)) - X(4052) = (X(4052)-JVS(20515)*X(5250)-JVS(20516)*X(5252)-JVS(20517)*X(5253)-JVS(20518)*X(5255)-JVS(20519)*X(5256))& - &/(JVS(20514)) - X(4051) = (X(4051)-JVS(20504)*X(5250)-JVS(20505)*X(5252)-JVS(20506)*X(5253)-JVS(20507)*X(5255)-JVS(20508)*X(5256))& - &/(JVS(20503)) - X(4050) = (X(4050)-JVS(20488)*X(4051)-JVS(20489)*X(5250)-JVS(20490)*X(5252)-JVS(20491)*X(5253)-JVS(20492)*X(5255)& - &-JVS(20493)*X(5256))/(JVS(20487)) - X(4049) = (X(4049)-JVS(20478)*X(4514)-JVS(20479)*X(5250)-JVS(20480)*X(5252)-JVS(20481)*X(5255)-JVS(20482)*X(5256)& - &-JVS(20483)*X(5258))/(JVS(20477)) - X(4048) = (X(4048)-JVS(20467)*X(4338)-JVS(20468)*X(4591)-JVS(20469)*X(4592)-JVS(20470)*X(5250)-JVS(20471)*X(5252)& - &-JVS(20472)*X(5253)-JVS(20473)*X(5255)-JVS(20474)*X(5256)-JVS(20475)*X(5258))/(JVS(20466)) - X(4047) = (X(4047)-JVS(20456)*X(4799)-JVS(20457)*X(5034)-JVS(20458)*X(5250)-JVS(20459)*X(5252)-JVS(20460)*X(5255)& - &-JVS(20461)*X(5256))/(JVS(20455)) - X(4046) = (X(4046)-JVS(20445)*X(5250)-JVS(20446)*X(5252)-JVS(20447)*X(5253)-JVS(20448)*X(5255)-JVS(20449)*X(5256))& - &/(JVS(20444)) - X(4045) = (X(4045)-JVS(20433)*X(5250)-JVS(20434)*X(5252)-JVS(20435)*X(5255)-JVS(20436)*X(5256))/(JVS(20432)) - X(4044) = (X(4044)-JVS(20420)*X(4788)-JVS(20421)*X(5250)-JVS(20422)*X(5252)-JVS(20423)*X(5255)-JVS(20424)*X(5256)& - &-JVS(20425)*X(5258))/(JVS(20419)) - X(4043) = (X(4043)-JVS(20412)*X(4738)-JVS(20413)*X(5240)-JVS(20414)*X(5250)-JVS(20415)*X(5252)-JVS(20416)*X(5255)& - &-JVS(20417)*X(5256))/(JVS(20411)) - X(4042) = (X(4042)-JVS(20403)*X(4137)-JVS(20404)*X(4814)-JVS(20405)*X(5250)-JVS(20406)*X(5252)-JVS(20407)*X(5255)& - &-JVS(20408)*X(5256))/(JVS(20402)) - X(4041) = (X(4041)-JVS(20389)*X(4181)-JVS(20390)*X(5250)-JVS(20391)*X(5252)-JVS(20392)*X(5253)-JVS(20393)*X(5255)& - &-JVS(20394)*X(5256))/(JVS(20388)) - X(4040) = (X(4040)-JVS(20377)*X(4682)-JVS(20378)*X(5250)-JVS(20379)*X(5252)-JVS(20380)*X(5255)-JVS(20381)*X(5256)& - &-JVS(20382)*X(5258))/(JVS(20376)) - X(4039) = (X(4039)-JVS(20369)*X(4676)-JVS(20370)*X(5250)-JVS(20371)*X(5252)-JVS(20372)*X(5255)-JVS(20373)*X(5256)& - &-JVS(20374)*X(5258))/(JVS(20368)) - X(4038) = (X(4038)-JVS(20361)*X(4338)-JVS(20362)*X(5250)-JVS(20363)*X(5252)-JVS(20364)*X(5253)-JVS(20365)*X(5255)& - &-JVS(20366)*X(5256))/(JVS(20360)) - X(4037) = (X(4037)-JVS(20350)*X(4494)-JVS(20351)*X(5250)-JVS(20352)*X(5252)-JVS(20353)*X(5255)-JVS(20354)*X(5256)& - &-JVS(20355)*X(5258))/(JVS(20349)) - X(4036) = (X(4036)-JVS(20342)*X(4797)-JVS(20343)*X(5250)-JVS(20344)*X(5252)-JVS(20345)*X(5255)-JVS(20346)*X(5256)& - &-JVS(20347)*X(5258))/(JVS(20341)) - X(4035) = (X(4035)-JVS(20334)*X(4402)-JVS(20335)*X(5250)-JVS(20336)*X(5252)-JVS(20337)*X(5255)-JVS(20338)*X(5256)& - &-JVS(20339)*X(5258))/(JVS(20333)) - X(4034) = (X(4034)-JVS(20326)*X(4810)-JVS(20327)*X(5250)-JVS(20328)*X(5252)-JVS(20329)*X(5255)-JVS(20330)*X(5256)& - &-JVS(20331)*X(5258))/(JVS(20325)) - X(4033) = (X(4033)-JVS(20318)*X(4471)-JVS(20319)*X(5250)-JVS(20320)*X(5252)-JVS(20321)*X(5255)-JVS(20322)*X(5256)& - &-JVS(20323)*X(5258))/(JVS(20317)) - X(4032) = (X(4032)-JVS(20313)*X(5250)-JVS(20314)*X(5256)-JVS(20315)*X(5258))/(JVS(20312)) - X(4031) = (X(4031)-JVS(20307)*X(5250)-JVS(20308)*X(5252)-JVS(20309)*X(5255)-JVS(20310)*X(5256))/(JVS(20306)) - X(4030) = (X(4030)-JVS(20299)*X(5250)-JVS(20300)*X(5252)-JVS(20301)*X(5255)-JVS(20302)*X(5256))/(JVS(20298)) - X(4029) = (X(4029)-JVS(20290)*X(4619)-JVS(20291)*X(4917)-JVS(20292)*X(5250)-JVS(20293)*X(5252)-JVS(20294)*X(5255)& - &-JVS(20295)*X(5256))/(JVS(20289)) - X(4028) = (X(4028)-JVS(20283)*X(5250)-JVS(20284)*X(5252)-JVS(20285)*X(5255)-JVS(20286)*X(5256))/(JVS(20282)) - X(4027) = (X(4027)-JVS(20277)*X(5250)-JVS(20278)*X(5256)-JVS(20279)*X(5258))/(JVS(20276)) - X(4026) = (X(4026)-JVS(20270)*X(5250)-JVS(20271)*X(5252)-JVS(20272)*X(5253)-JVS(20273)*X(5255)-JVS(20274)*X(5256))& - &/(JVS(20269)) - X(4025) = (X(4025)-JVS(20261)*X(5250)-JVS(20262)*X(5252)-JVS(20263)*X(5255)-JVS(20264)*X(5256))/(JVS(20260)) - X(4024) = (X(4024)-JVS(20251)*X(4993)-JVS(20252)*X(5250)-JVS(20253)*X(5252)-JVS(20254)*X(5255)-JVS(20255)*X(5256)& - &-JVS(20256)*X(5258))/(JVS(20250)) - X(4023) = (X(4023)-JVS(20242)*X(4639)-JVS(20243)*X(5250)-JVS(20244)*X(5252)-JVS(20245)*X(5255)-JVS(20246)*X(5256)& - &-JVS(20247)*X(5258))/(JVS(20241)) - X(4022) = (X(4022)-JVS(20234)*X(4798)-JVS(20235)*X(5250)-JVS(20236)*X(5252)-JVS(20237)*X(5255)-JVS(20238)*X(5256)& - &-JVS(20239)*X(5258))/(JVS(20233)) - X(4021) = (X(4021)-JVS(20226)*X(4790)-JVS(20227)*X(5250)-JVS(20228)*X(5252)-JVS(20229)*X(5255)-JVS(20230)*X(5256)& - &-JVS(20231)*X(5258))/(JVS(20225)) - X(4020) = (X(4020)-JVS(20218)*X(4453)-JVS(20219)*X(5250)-JVS(20220)*X(5252)-JVS(20221)*X(5255)-JVS(20222)*X(5256)& - &-JVS(20223)*X(5258))/(JVS(20217)) - X(4019) = (X(4019)-JVS(20210)*X(4752)-JVS(20211)*X(5085)-JVS(20212)*X(5250)-JVS(20213)*X(5252)-JVS(20214)*X(5255)& - &-JVS(20215)*X(5256))/(JVS(20209)) - X(4018) = (X(4018)-JVS(20204)*X(5250)-JVS(20205)*X(5256)-JVS(20206)*X(5258))/(JVS(20203)) - X(4017) = (X(4017)-JVS(20199)*X(5250)-JVS(20200)*X(5256)-JVS(20201)*X(5258))/(JVS(20198)) - X(4016) = (X(4016)-JVS(20191)*X(4479)-JVS(20192)*X(5250)-JVS(20193)*X(5252)-JVS(20194)*X(5255)-JVS(20195)*X(5256)& - &-JVS(20196)*X(5258))/(JVS(20190)) - X(4015) = (X(4015)-JVS(20183)*X(4883)-JVS(20184)*X(4957)-JVS(20185)*X(5250)-JVS(20186)*X(5252)-JVS(20187)*X(5255)& - &-JVS(20188)*X(5256))/(JVS(20182)) - X(4014) = (X(4014)-JVS(20174)*X(4533)-JVS(20175)*X(5250)-JVS(20176)*X(5252)-JVS(20177)*X(5255)-JVS(20178)*X(5256)& - &-JVS(20179)*X(5258))/(JVS(20173)) - X(4013) = (X(4013)-JVS(20158)*X(5250)-JVS(20159)*X(5252)-JVS(20160)*X(5253)-JVS(20161)*X(5255)-JVS(20162)*X(5256))& - &/(JVS(20157)) - X(4012) = (X(4012)-JVS(20146)*X(5250)-JVS(20147)*X(5252)-JVS(20148)*X(5255)-JVS(20149)*X(5256))/(JVS(20145)) - X(4011) = (X(4011)-JVS(20133)*X(4671)-JVS(20134)*X(5250)-JVS(20135)*X(5252)-JVS(20136)*X(5255)-JVS(20137)*X(5256)& - &-JVS(20138)*X(5258))/(JVS(20132)) - X(4010) = (X(4010)-JVS(20128)*X(5250)-JVS(20129)*X(5256)-JVS(20130)*X(5258))/(JVS(20127)) - X(4009) = (X(4009)-JVS(20120)*X(4407)-JVS(20121)*X(5250)-JVS(20122)*X(5252)-JVS(20123)*X(5255)-JVS(20124)*X(5256)& - &-JVS(20125)*X(5258))/(JVS(20119)) - X(4008) = (X(4008)-JVS(20112)*X(4437)-JVS(20113)*X(5250)-JVS(20114)*X(5252)-JVS(20115)*X(5255)-JVS(20116)*X(5256)& - &-JVS(20117)*X(5258))/(JVS(20111)) - X(4007) = (X(4007)-JVS(20104)*X(4670)-JVS(20105)*X(5250)-JVS(20106)*X(5252)-JVS(20107)*X(5255)-JVS(20108)*X(5256)& - &-JVS(20109)*X(5258))/(JVS(20103)) - X(4006) = (X(4006)-JVS(20096)*X(4690)-JVS(20097)*X(5250)-JVS(20098)*X(5252)-JVS(20099)*X(5255)-JVS(20100)*X(5256)& - &-JVS(20101)*X(5258))/(JVS(20095)) - X(4005) = (X(4005)-JVS(20088)*X(4100)-JVS(20089)*X(5250)-JVS(20090)*X(5252)-JVS(20091)*X(5253)-JVS(20092)*X(5255)& - &-JVS(20093)*X(5256))/(JVS(20087)) - X(4004) = (X(4004)-JVS(20078)*X(5250)-JVS(20079)*X(5252)-JVS(20080)*X(5255)-JVS(20081)*X(5256))/(JVS(20077)) - X(4003) = (X(4003)-JVS(20070)*X(5250)-JVS(20071)*X(5252)-JVS(20072)*X(5255)-JVS(20073)*X(5256))/(JVS(20069)) - X(4002) = (X(4002)-JVS(20062)*X(4509)-JVS(20063)*X(5250)-JVS(20064)*X(5252)-JVS(20065)*X(5255)-JVS(20066)*X(5256)& - &-JVS(20067)*X(5258))/(JVS(20061)) - X(4001) = (X(4001)-JVS(20054)*X(4495)-JVS(20055)*X(5250)-JVS(20056)*X(5252)-JVS(20057)*X(5255)-JVS(20058)*X(5256)& - &-JVS(20059)*X(5258))/(JVS(20053)) - X(4000) = (X(4000)-JVS(20046)*X(4139)-JVS(20047)*X(5250)-JVS(20048)*X(5252)-JVS(20049)*X(5253)-JVS(20050)*X(5255)& - &-JVS(20051)*X(5256))/(JVS(20045)) - X(3999) = (X(3999)-JVS(20034)*X(4791)-JVS(20035)*X(5250)-JVS(20036)*X(5252)-JVS(20037)*X(5255)-JVS(20038)*X(5256)& - &-JVS(20039)*X(5258))/(JVS(20033)) - X(3998) = (X(3998)-JVS(20026)*X(5022)-JVS(20027)*X(5250)-JVS(20028)*X(5252)-JVS(20029)*X(5253)-JVS(20030)*X(5255)& - &-JVS(20031)*X(5256))/(JVS(20025)) - X(3997) = (X(3997)-JVS(20015)*X(4444)-JVS(20016)*X(5250)-JVS(20017)*X(5252)-JVS(20018)*X(5255)-JVS(20019)*X(5256)& - &-JVS(20020)*X(5258))/(JVS(20014)) - X(3996) = (X(3996)-JVS(20010)*X(5250)-JVS(20011)*X(5256)-JVS(20012)*X(5258))/(JVS(20009)) - X(3995) = (X(3995)-JVS(20003)*X(5203)-JVS(20004)*X(5250)-JVS(20005)*X(5252)-JVS(20006)*X(5255)-JVS(20007)*X(5256))& - &/(JVS(20002)) - X(3994) = (X(3994)-JVS(19993)*X(4605)-JVS(19994)*X(5250)-JVS(19995)*X(5252)-JVS(19996)*X(5255)-JVS(19997)*X(5256))& - &/(JVS(19992)) - X(3993) = (X(3993)-JVS(19984)*X(4783)-JVS(19985)*X(4936)-JVS(19986)*X(5025)-JVS(19987)*X(5035)-JVS(19988)*X(5250)& - &-JVS(19989)*X(5253)-JVS(19990)*X(5255))/(JVS(19983)) - X(3992) = (X(3992)-JVS(19975)*X(4244)-JVS(19976)*X(5250)-JVS(19977)*X(5252)-JVS(19978)*X(5255)-JVS(19979)*X(5256))& - &/(JVS(19974)) - X(3991) = (X(3991)-JVS(19966)*X(4359)-JVS(19967)*X(5250)-JVS(19968)*X(5252)-JVS(19969)*X(5255)-JVS(19970)*X(5256))& - &/(JVS(19965)) - X(3990) = (X(3990)-JVS(19957)*X(4970)-JVS(19958)*X(5250)-JVS(19959)*X(5252)-JVS(19960)*X(5255)-JVS(19961)*X(5256))& - &/(JVS(19956)) - X(3989) = (X(3989)-JVS(19951)*X(4696)-JVS(19952)*X(5250)-JVS(19953)*X(5252)-JVS(19954)*X(5255)-JVS(19955)*X(5256))& - &/(JVS(19950)) - X(3988) = (X(3988)-JVS(19942)*X(5250)-JVS(19943)*X(5252)-JVS(19944)*X(5255)-JVS(19945)*X(5256)-JVS(19946)*X(5257))& - &/(JVS(19941)) - X(3987) = (X(3987)-JVS(19935)*X(4395)-JVS(19936)*X(5250)-JVS(19937)*X(5252)-JVS(19938)*X(5255)-JVS(19939)*X(5256))& - &/(JVS(19934)) - X(3986) = (X(3986)-JVS(19928)*X(4886)-JVS(19929)*X(5250)-JVS(19930)*X(5252)-JVS(19931)*X(5255)-JVS(19932)*X(5256))& - &/(JVS(19927)) - X(3985) = (X(3985)-JVS(19917)*X(5083)-JVS(19918)*X(5250)-JVS(19919)*X(5252)-JVS(19920)*X(5255)-JVS(19921)*X(5256))& - &/(JVS(19916)) - X(3984) = (X(3984)-JVS(19910)*X(4969)-JVS(19911)*X(5250)-JVS(19912)*X(5252)-JVS(19913)*X(5255)-JVS(19914)*X(5256))& - &/(JVS(19909)) - X(3983) = (X(3983)-JVS(19902)*X(4743)-JVS(19903)*X(5250)-JVS(19904)*X(5252)-JVS(19905)*X(5255)-JVS(19906)*X(5256))& - &/(JVS(19901)) - X(3982) = (X(3982)-JVS(19895)*X(5215)-JVS(19896)*X(5250)-JVS(19897)*X(5252)-JVS(19898)*X(5255)-JVS(19899)*X(5256))& - &/(JVS(19894)) - X(3981) = (X(3981)-JVS(19888)*X(3982)-JVS(19889)*X(5250)-JVS(19890)*X(5252)-JVS(19891)*X(5255)-JVS(19892)*X(5256))& - &/(JVS(19887)) - X(3980) = (X(3980)-JVS(19878)*X(4794)-JVS(19879)*X(5250)-JVS(19880)*X(5252)-JVS(19881)*X(5255)-JVS(19882)*X(5256))& - &/(JVS(19877)) - X(3979) = (X(3979)-JVS(19871)*X(4780)-JVS(19872)*X(5250)-JVS(19873)*X(5252)-JVS(19874)*X(5255)-JVS(19875)*X(5256))& - &/(JVS(19870)) - X(3978) = (X(3978)-JVS(19860)*X(4990)-JVS(19861)*X(5192)-JVS(19862)*X(5250)-JVS(19863)*X(5252)-JVS(19864)*X(5253)& - &-JVS(19865)*X(5255)-JVS(19866)*X(5256))/(JVS(19859)) - X(3977) = (X(3977)-JVS(19849)*X(5144)-JVS(19850)*X(5250)-JVS(19851)*X(5252)-JVS(19852)*X(5255)-JVS(19853)*X(5256))& - &/(JVS(19848)) - X(3976) = (X(3976)-JVS(19839)*X(4806)-JVS(19840)*X(5250)-JVS(19841)*X(5252)-JVS(19842)*X(5255)-JVS(19843)*X(5256))& - &/(JVS(19838)) - X(3975) = (X(3975)-JVS(19831)*X(4937)-JVS(19832)*X(5250)-JVS(19833)*X(5252)-JVS(19834)*X(5255)-JVS(19835)*X(5256))& - &/(JVS(19830)) - X(3974) = (X(3974)-JVS(19823)*X(5189)-JVS(19824)*X(5250)-JVS(19825)*X(5252)-JVS(19826)*X(5255)-JVS(19827)*X(5256))& - &/(JVS(19822)) - X(3973) = (X(3973)-JVS(19816)*X(4683)-JVS(19817)*X(5250)-JVS(19818)*X(5252)-JVS(19819)*X(5255)-JVS(19820)*X(5256))& - &/(JVS(19815)) - X(3972) = (X(3972)-JVS(19808)*X(4610)-JVS(19809)*X(5250)-JVS(19810)*X(5252)-JVS(19811)*X(5255)-JVS(19812)*X(5256))& - &/(JVS(19807)) - X(3971) = (X(3971)-JVS(19800)*X(4988)-JVS(19801)*X(5250)-JVS(19802)*X(5252)-JVS(19803)*X(5255)-JVS(19804)*X(5256))& - &/(JVS(19799)) - X(3970) = (X(3970)-JVS(19793)*X(4723)-JVS(19794)*X(5250)-JVS(19795)*X(5252)-JVS(19796)*X(5255)-JVS(19797)*X(5256))& - &/(JVS(19792)) - X(3969) = (X(3969)-JVS(19786)*X(5175)-JVS(19787)*X(5250)-JVS(19788)*X(5252)-JVS(19789)*X(5255)-JVS(19790)*X(5256))& - &/(JVS(19785)) - X(3968) = (X(3968)-JVS(19779)*X(4799)-JVS(19780)*X(5250)-JVS(19781)*X(5252)-JVS(19782)*X(5255)-JVS(19783)*X(5256))& - &/(JVS(19778)) - X(3967) = (X(3967)-JVS(19770)*X(4733)-JVS(19771)*X(5250)-JVS(19772)*X(5252)-JVS(19773)*X(5255)-JVS(19774)*X(5256))& - &/(JVS(19769)) - X(3966) = (X(3966)-JVS(19761)*X(5249)-JVS(19762)*X(5250)-JVS(19763)*X(5252)-JVS(19764)*X(5255)-JVS(19765)*X(5256))& - &/(JVS(19760)) - X(3965) = (X(3965)-JVS(19755)*X(4617)-JVS(19756)*X(4758)-JVS(19757)*X(4913)-JVS(19758)*X(5250)-JVS(19759)*X(5255))& - &/(JVS(19754)) - X(3964) = (X(3964)-JVS(19746)*X(4714)-JVS(19747)*X(5250)-JVS(19748)*X(5252)-JVS(19749)*X(5255)-JVS(19750)*X(5256))& - &/(JVS(19745)) - X(3963) = (X(3963)-JVS(19737)*X(4988)-JVS(19738)*X(5250)-JVS(19739)*X(5252)-JVS(19740)*X(5255)-JVS(19741)*X(5256))& - &/(JVS(19736)) - X(3962) = (X(3962)-JVS(19731)*X(4953)-JVS(19732)*X(5250)-JVS(19733)*X(5252)-JVS(19734)*X(5255)-JVS(19735)*X(5256))& - &/(JVS(19730)) - X(3961) = (X(3961)-JVS(19724)*X(5186)-JVS(19725)*X(5250)-JVS(19726)*X(5252)-JVS(19727)*X(5255)-JVS(19728)*X(5256))& - &/(JVS(19723)) - X(3960) = (X(3960)-JVS(19716)*X(4346)-JVS(19717)*X(5250)-JVS(19718)*X(5252)-JVS(19719)*X(5255)-JVS(19720)*X(5256))& - &/(JVS(19715)) - X(3959) = (X(3959)-JVS(19707)*X(4574)-JVS(19708)*X(4645)-JVS(19709)*X(5053)-JVS(19710)*X(5149)-JVS(19711)*X(5250)& - &-JVS(19712)*X(5252)-JVS(19713)*X(5255))/(JVS(19706)) - X(3958) = (X(3958)-JVS(19696)*X(4477)-JVS(19697)*X(4525)-JVS(19698)*X(5250)-JVS(19699)*X(5252)-JVS(19700)*X(5253)& - &-JVS(19701)*X(5255)-JVS(19702)*X(5256))/(JVS(19695)) - X(3957) = (X(3957)-JVS(19687)*X(4825)-JVS(19688)*X(5250)-JVS(19689)*X(5252)-JVS(19690)*X(5255)-JVS(19691)*X(5256))& - &/(JVS(19686)) - X(3956) = (X(3956)-JVS(19678)*X(4714)-JVS(19679)*X(5250)-JVS(19680)*X(5252)-JVS(19681)*X(5255)-JVS(19682)*X(5256))& - &/(JVS(19677)) - X(3955) = (X(3955)-JVS(19671)*X(4201)-JVS(19672)*X(5250)-JVS(19673)*X(5252)-JVS(19674)*X(5255)-JVS(19675)*X(5256))& - &/(JVS(19670)) - X(3954) = (X(3954)-JVS(19662)*X(4765)-JVS(19663)*X(5250)-JVS(19664)*X(5252)-JVS(19665)*X(5255)-JVS(19666)*X(5256))& - &/(JVS(19661)) - X(3953) = (X(3953)-JVS(19653)*X(4675)-JVS(19654)*X(5250)-JVS(19655)*X(5252)-JVS(19656)*X(5255)-JVS(19657)*X(5256))& - &/(JVS(19652)) - X(3952) = (X(3952)-JVS(19645)*X(5181)-JVS(19646)*X(5250)-JVS(19647)*X(5252)-JVS(19648)*X(5255)-JVS(19649)*X(5256))& - &/(JVS(19644)) - X(3951) = (X(3951)-JVS(19638)*X(5114)-JVS(19639)*X(5250)-JVS(19640)*X(5252)-JVS(19641)*X(5255)-JVS(19642)*X(5256))& - &/(JVS(19637)) - X(3950) = (X(3950)-JVS(19629)*X(5095)-JVS(19630)*X(5250)-JVS(19631)*X(5252)-JVS(19632)*X(5255)-JVS(19633)*X(5256))& - &/(JVS(19628)) - X(3949) = (X(3949)-JVS(19622)*X(5095)-JVS(19623)*X(5250)-JVS(19624)*X(5252)-JVS(19625)*X(5255)-JVS(19626)*X(5256))& - &/(JVS(19621)) - X(3948) = (X(3948)-JVS(19615)*X(4334)-JVS(19616)*X(5250)-JVS(19617)*X(5252)-JVS(19618)*X(5255)-JVS(19619)*X(5256))& - &/(JVS(19614)) - X(3947) = (X(3947)-JVS(19607)*X(4789)-JVS(19608)*X(5250)-JVS(19609)*X(5252)-JVS(19610)*X(5255)-JVS(19611)*X(5256))& - &/(JVS(19606)) - X(3946) = (X(3946)-JVS(19597)*X(4878)-JVS(19598)*X(5250)-JVS(19599)*X(5252)-JVS(19600)*X(5255)-JVS(19601)*X(5256))& - &/(JVS(19596)) - X(3945) = (X(3945)-JVS(19586)*X(4505)-JVS(19587)*X(5250)-JVS(19588)*X(5252)-JVS(19589)*X(5255)-JVS(19590)*X(5256))& - &/(JVS(19585)) - X(3944) = (X(3944)-JVS(19579)*X(4736)-JVS(19580)*X(5250)-JVS(19581)*X(5252)-JVS(19582)*X(5255)-JVS(19583)*X(5256))& - &/(JVS(19578)) - X(3943) = (X(3943)-JVS(19572)*X(4492)-JVS(19573)*X(5250)-JVS(19574)*X(5252)-JVS(19575)*X(5255)-JVS(19576)*X(5256))& - &/(JVS(19571)) - X(3942) = (X(3942)-JVS(19565)*X(4579)-JVS(19566)*X(5250)-JVS(19567)*X(5252)-JVS(19568)*X(5255)-JVS(19569)*X(5256))& - &/(JVS(19564)) - X(3941) = (X(3941)-JVS(19558)*X(5146)-JVS(19559)*X(5250)-JVS(19560)*X(5252)-JVS(19561)*X(5255)-JVS(19562)*X(5256))& - &/(JVS(19557)) - X(3940) = (X(3940)-JVS(19548)*X(4605)-JVS(19549)*X(5250)-JVS(19550)*X(5252)-JVS(19551)*X(5255)-JVS(19552)*X(5256))& - &/(JVS(19547)) - X(3939) = (X(3939)-JVS(19541)*X(5069)-JVS(19542)*X(5250)-JVS(19543)*X(5252)-JVS(19544)*X(5255)-JVS(19545)*X(5256))& - &/(JVS(19540)) - X(3938) = (X(3938)-JVS(19534)*X(4778)-JVS(19535)*X(5250)-JVS(19536)*X(5252)-JVS(19537)*X(5255)-JVS(19538)*X(5256))& - &/(JVS(19533)) - X(3937) = (X(3937)-JVS(19526)*X(4379)-JVS(19527)*X(5250)-JVS(19528)*X(5252)-JVS(19529)*X(5255)-JVS(19530)*X(5256))& - &/(JVS(19525)) - X(3936) = (X(3936)-JVS(19518)*X(4492)-JVS(19519)*X(5250)-JVS(19520)*X(5252)-JVS(19521)*X(5255)-JVS(19522)*X(5256))& - &/(JVS(19517)) - X(3935) = (X(3935)-JVS(19512)*X(4785)-JVS(19513)*X(5250)-JVS(19514)*X(5252)-JVS(19515)*X(5255)-JVS(19516)*X(5256))& - &/(JVS(19511)) - X(3934) = (X(3934)-JVS(19503)*X(4574)-JVS(19504)*X(5250)-JVS(19505)*X(5252)-JVS(19506)*X(5255)-JVS(19507)*X(5256))& - &/(JVS(19502)) - X(3933) = (X(3933)-JVS(19494)*X(4826)-JVS(19495)*X(5225)-JVS(19496)*X(5250)-JVS(19497)*X(5252)-JVS(19498)*X(5253)& - &-JVS(19499)*X(5255)-JVS(19500)*X(5256))/(JVS(19493)) - X(3932) = (X(3932)-JVS(19487)*X(5163)-JVS(19488)*X(5250)-JVS(19489)*X(5252)-JVS(19490)*X(5255)-JVS(19491)*X(5256))& - &/(JVS(19486)) - X(3931) = (X(3931)-JVS(19478)*X(4887)-JVS(19479)*X(4899)-JVS(19480)*X(4947)-JVS(19481)*X(5250)-JVS(19482)*X(5255))& - &/(JVS(19477)) - X(3930) = (X(3930)-JVS(19468)*X(3931)-JVS(19469)*X(4887)-JVS(19470)*X(4899)-JVS(19471)*X(4947)-JVS(19472)*X(5250)& - &-JVS(19473)*X(5252)-JVS(19474)*X(5256))/(JVS(19467)) - X(3929) = (X(3929)-JVS(19459)*X(4460)-JVS(19460)*X(4783)-JVS(19461)*X(5250)-JVS(19462)*X(5252)-JVS(19463)*X(5253)& - &-JVS(19464)*X(5255)-JVS(19465)*X(5256))/(JVS(19458)) - X(3928) = (X(3928)-JVS(19450)*X(5207)-JVS(19451)*X(5250)-JVS(19452)*X(5252)-JVS(19453)*X(5255)-JVS(19454)*X(5256))& - &/(JVS(19449)) - X(3927) = (X(3927)-JVS(19443)*X(5175)-JVS(19444)*X(5250)-JVS(19445)*X(5252)-JVS(19446)*X(5255)-JVS(19447)*X(5256))& - &/(JVS(19442)) - X(3926) = (X(3926)-JVS(19437)*X(4581)-JVS(19438)*X(5250)-JVS(19439)*X(5252)-JVS(19440)*X(5255)-JVS(19441)*X(5256))& - &/(JVS(19436)) - X(3925) = (X(3925)-JVS(19427)*X(4587)-JVS(19428)*X(5250)-JVS(19429)*X(5252)-JVS(19430)*X(5255)-JVS(19431)*X(5256))& - &/(JVS(19426)) - X(3924) = (X(3924)-JVS(19420)*X(5077)-JVS(19421)*X(5250)-JVS(19422)*X(5252)-JVS(19423)*X(5255)-JVS(19424)*X(5256))& - &/(JVS(19419)) - X(3923) = (X(3923)-JVS(19410)*X(5147)-JVS(19411)*X(5250)-JVS(19412)*X(5252)-JVS(19413)*X(5255)-JVS(19414)*X(5256))& - &/(JVS(19409)) - X(3922) = (X(3922)-JVS(19400)*X(4782)-JVS(19401)*X(5250)-JVS(19402)*X(5252)-JVS(19403)*X(5255)-JVS(19404)*X(5256))& - &/(JVS(19399)) - X(3921) = (X(3921)-JVS(19393)*X(4492)-JVS(19394)*X(5250)-JVS(19395)*X(5252)-JVS(19396)*X(5255)-JVS(19397)*X(5256))& - &/(JVS(19392)) - X(3920) = (X(3920)-JVS(19386)*X(5249)-JVS(19387)*X(5250)-JVS(19388)*X(5252)-JVS(19389)*X(5255)-JVS(19390)*X(5256))& - &/(JVS(19385)) - X(3919) = (X(3919)-JVS(19379)*X(5107)-JVS(19380)*X(5250)-JVS(19381)*X(5252)-JVS(19382)*X(5255)-JVS(19383)*X(5256))& - &/(JVS(19378)) - X(3918) = (X(3918)-JVS(19367)*X(4558)-JVS(19368)*X(4568)-JVS(19369)*X(4674)-JVS(19370)*X(5250)-JVS(19371)*X(5252)& - &-JVS(19372)*X(5255)-JVS(19373)*X(5256))/(JVS(19366)) - X(3917) = (X(3917)-JVS(19354)*X(5144)-JVS(19355)*X(5250)-JVS(19356)*X(5252)-JVS(19357)*X(5255)-JVS(19358)*X(5256))& - &/(JVS(19353)) - X(3916) = (X(3916)-JVS(19343)*X(5138)-JVS(19344)*X(5250)-JVS(19345)*X(5252)-JVS(19346)*X(5255)-JVS(19347)*X(5256))& - &/(JVS(19342)) - X(3915) = (X(3915)-JVS(19333)*X(5147)-JVS(19334)*X(5250)-JVS(19335)*X(5252)-JVS(19336)*X(5255)-JVS(19337)*X(5256))& - &/(JVS(19332)) - X(3914) = (X(3914)-JVS(19322)*X(4895)-JVS(19323)*X(5250)-JVS(19324)*X(5252)-JVS(19325)*X(5255)-JVS(19326)*X(5256))& - &/(JVS(19321)) - X(3913) = (X(3913)-JVS(19311)*X(4350)-JVS(19312)*X(5250)-JVS(19313)*X(5252)-JVS(19314)*X(5255)-JVS(19315)*X(5256))& - &/(JVS(19310)) - X(3912) = (X(3912)-JVS(19303)*X(4766)-JVS(19304)*X(5250)-JVS(19305)*X(5252)-JVS(19306)*X(5255)-JVS(19307)*X(5256))& - &/(JVS(19302)) - X(3911) = (X(3911)-JVS(19293)*X(4927)-JVS(19294)*X(5250)-JVS(19295)*X(5252)-JVS(19296)*X(5255)-JVS(19297)*X(5256))& - &/(JVS(19292)) - X(3910) = (X(3910)-JVS(19282)*X(4884)-JVS(19283)*X(5250)-JVS(19284)*X(5252)-JVS(19285)*X(5255)-JVS(19286)*X(5256))& - &/(JVS(19281)) - X(3909) = (X(3909)-JVS(19275)*X(4345)-JVS(19276)*X(5250)-JVS(19277)*X(5252)-JVS(19278)*X(5255)-JVS(19279)*X(5256))& - &/(JVS(19274)) - X(3908) = (X(3908)-JVS(19268)*X(5044)-JVS(19269)*X(5250)-JVS(19270)*X(5252)-JVS(19271)*X(5255)-JVS(19272)*X(5256))& - &/(JVS(19267)) - X(3907) = (X(3907)-JVS(19261)*X(5212)-JVS(19262)*X(5250)-JVS(19263)*X(5252)-JVS(19264)*X(5255)-JVS(19265)*X(5256))& - &/(JVS(19260)) - X(3906) = (X(3906)-JVS(19254)*X(5108)-JVS(19255)*X(5250)-JVS(19256)*X(5252)-JVS(19257)*X(5255)-JVS(19258)*X(5256))& - &/(JVS(19253)) - X(3905) = (X(3905)-JVS(19246)*X(4925)-JVS(19247)*X(5250)-JVS(19248)*X(5252)-JVS(19249)*X(5255)-JVS(19250)*X(5256))& - &/(JVS(19245)) - X(3904) = (X(3904)-JVS(19236)*X(4719)-JVS(19237)*X(5250)-JVS(19238)*X(5252)-JVS(19239)*X(5255)-JVS(19240)*X(5256))& - &/(JVS(19235)) - X(3903) = (X(3903)-JVS(19229)*X(4397)-JVS(19230)*X(5250)-JVS(19231)*X(5252)-JVS(19232)*X(5255)-JVS(19233)*X(5256))& - &/(JVS(19228)) - X(3902) = (X(3902)-JVS(19222)*X(3951)-JVS(19223)*X(5250)-JVS(19224)*X(5252)-JVS(19225)*X(5255)-JVS(19226)*X(5256))& - &/(JVS(19221)) - X(3901) = (X(3901)-JVS(19214)*X(5041)-JVS(19215)*X(5250)-JVS(19216)*X(5252)-JVS(19217)*X(5255)-JVS(19218)*X(5256))& - &/(JVS(19213)) - X(3900) = (X(3900)-JVS(19205)*X(4609)-JVS(19206)*X(5250)-JVS(19207)*X(5252)-JVS(19208)*X(5255)-JVS(19209)*X(5256))& - &/(JVS(19204)) - X(3899) = (X(3899)-JVS(19196)*X(4890)-JVS(19197)*X(5250)-JVS(19198)*X(5252)-JVS(19199)*X(5255)-JVS(19200)*X(5256))& - &/(JVS(19195)) - X(3898) = (X(3898)-JVS(19188)*X(4988)-JVS(19189)*X(5250)-JVS(19190)*X(5252)-JVS(19191)*X(5255)-JVS(19192)*X(5256))& - &/(JVS(19187)) - X(3897) = (X(3897)-JVS(19181)*X(4344)-JVS(19182)*X(5250)-JVS(19183)*X(5252)-JVS(19184)*X(5255)-JVS(19185)*X(5256))& - &/(JVS(19180)) - X(3896) = (X(3896)-JVS(19174)*X(4793)-JVS(19175)*X(5250)-JVS(19176)*X(5252)-JVS(19177)*X(5255)-JVS(19178)*X(5256))& - &/(JVS(19173)) - X(3895) = (X(3895)-JVS(19163)*X(5189)-JVS(19164)*X(5250)-JVS(19165)*X(5252)-JVS(19166)*X(5255)-JVS(19167)*X(5256))& - &/(JVS(19162)) - X(3894) = (X(3894)-JVS(19156)*X(5238)-JVS(19157)*X(5250)-JVS(19158)*X(5252)-JVS(19159)*X(5255)-JVS(19160)*X(5256))& - &/(JVS(19155)) - X(3893) = (X(3893)-JVS(19148)*X(5192)-JVS(19149)*X(5250)-JVS(19150)*X(5252)-JVS(19151)*X(5255)-JVS(19152)*X(5256))& - &/(JVS(19147)) - X(3892) = (X(3892)-JVS(19140)*X(4698)-JVS(19141)*X(4984)-JVS(19142)*X(5250)-JVS(19143)*X(5253)-JVS(19144)*X(5256))& - &/(JVS(19139)) - X(3891) = (X(3891)-JVS(19132)*X(4988)-JVS(19133)*X(5250)-JVS(19134)*X(5252)-JVS(19135)*X(5255)-JVS(19136)*X(5256))& - &/(JVS(19131)) - X(3890) = (X(3890)-JVS(19125)*X(3901)-JVS(19126)*X(5250)-JVS(19127)*X(5252)-JVS(19128)*X(5255)-JVS(19129)*X(5256))& - &/(JVS(19124)) - X(3889) = (X(3889)-JVS(19116)*X(5061)-JVS(19117)*X(5250)-JVS(19118)*X(5252)-JVS(19119)*X(5255)-JVS(19120)*X(5256))& - &/(JVS(19115)) - X(3888) = (X(3888)-JVS(19108)*X(4700)-JVS(19109)*X(5250)-JVS(19110)*X(5252)-JVS(19111)*X(5255)-JVS(19112)*X(5256))& - &/(JVS(19107)) - X(3887) = (X(3887)-JVS(19099)*X(4700)-JVS(19100)*X(5250)-JVS(19101)*X(5252)-JVS(19102)*X(5255)-JVS(19103)*X(5256))& - &/(JVS(19098)) - X(3886) = (X(3886)-JVS(19092)*X(5207)-JVS(19093)*X(5250)-JVS(19094)*X(5252)-JVS(19095)*X(5255)-JVS(19096)*X(5256))& - &/(JVS(19091)) - X(3885) = (X(3885)-JVS(19085)*X(5147)-JVS(19086)*X(5250)-JVS(19087)*X(5252)-JVS(19088)*X(5255)-JVS(19089)*X(5256))& - &/(JVS(19084)) - X(3884) = (X(3884)-JVS(19077)*X(5165)-JVS(19078)*X(5250)-JVS(19079)*X(5252)-JVS(19080)*X(5255)-JVS(19081)*X(5256))& - &/(JVS(19076)) - X(3883) = (X(3883)-JVS(19070)*X(5250)-JVS(19071)*X(5252)-JVS(19072)*X(5255)-JVS(19073)*X(5256)-JVS(19074)*X(5257))& - &/(JVS(19069)) - X(3882) = (X(3882)-JVS(19063)*X(4216)-JVS(19064)*X(5250)-JVS(19065)*X(5252)-JVS(19066)*X(5255)-JVS(19067)*X(5256))& - &/(JVS(19062)) - X(3881) = (X(3881)-JVS(19054)*X(5112)-JVS(19055)*X(5250)-JVS(19056)*X(5252)-JVS(19057)*X(5255)-JVS(19058)*X(5256))& - &/(JVS(19053)) - X(3880) = (X(3880)-JVS(19044)*X(5065)-JVS(19045)*X(5250)-JVS(19046)*X(5252)-JVS(19047)*X(5255)-JVS(19048)*X(5256))& - &/(JVS(19043)) - X(3879) = (X(3879)-JVS(19034)*X(5045)-JVS(19035)*X(5250)-JVS(19036)*X(5252)-JVS(19037)*X(5255)-JVS(19038)*X(5256))& - &/(JVS(19033)) - X(3878) = (X(3878)-JVS(19023)*X(4593)-JVS(19024)*X(5250)-JVS(19025)*X(5252)-JVS(19026)*X(5255)-JVS(19027)*X(5256))& - &/(JVS(19022)) - X(3877) = (X(3877)-JVS(19016)*X(4886)-JVS(19017)*X(5250)-JVS(19018)*X(5252)-JVS(19019)*X(5255)-JVS(19020)*X(5256))& - &/(JVS(19015)) - X(3876) = (X(3876)-JVS(19006)*X(5169)-JVS(19007)*X(5250)-JVS(19008)*X(5252)-JVS(19009)*X(5255)-JVS(19010)*X(5256))& - &/(JVS(19005)) - X(3875) = (X(3875)-JVS(18999)*X(4733)-JVS(19000)*X(5250)-JVS(19001)*X(5252)-JVS(19002)*X(5255)-JVS(19003)*X(5256))& - &/(JVS(18998)) - X(3874) = (X(3874)-JVS(18990)*X(4157)-JVS(18991)*X(5250)-JVS(18992)*X(5252)-JVS(18993)*X(5255)-JVS(18994)*X(5256))& - &/(JVS(18989)) - X(3873) = (X(3873)-JVS(18981)*X(5061)-JVS(18982)*X(5250)-JVS(18983)*X(5252)-JVS(18984)*X(5255)-JVS(18985)*X(5256))& - &/(JVS(18980)) - X(3872) = (X(3872)-JVS(18973)*X(5175)-JVS(18974)*X(5250)-JVS(18975)*X(5252)-JVS(18976)*X(5255)-JVS(18977)*X(5256))& - &/(JVS(18972)) - X(3871) = (X(3871)-JVS(18966)*X(4586)-JVS(18967)*X(5250)-JVS(18968)*X(5252)-JVS(18969)*X(5255)-JVS(18970)*X(5256))& - &/(JVS(18965)) - X(3870) = (X(3870)-JVS(18956)*X(4942)-JVS(18957)*X(5250)-JVS(18958)*X(5252)-JVS(18959)*X(5255)-JVS(18960)*X(5256))& - &/(JVS(18955)) - X(3869) = (X(3869)-JVS(18947)*X(4974)-JVS(18948)*X(5250)-JVS(18949)*X(5252)-JVS(18950)*X(5255)-JVS(18951)*X(5256))& - &/(JVS(18946)) - X(3868) = (X(3868)-JVS(18937)*X(4901)-JVS(18938)*X(4994)-JVS(18939)*X(5250)-JVS(18940)*X(5252)-JVS(18941)*X(5253)& - &-JVS(18942)*X(5255)-JVS(18943)*X(5256))/(JVS(18936)) - X(3867) = (X(3867)-JVS(18926)*X(4605)-JVS(18927)*X(5250)-JVS(18928)*X(5252)-JVS(18929)*X(5255)-JVS(18930)*X(5256))& - &/(JVS(18925)) - X(3866) = (X(3866)-JVS(18920)*X(4395)-JVS(18921)*X(5250)-JVS(18922)*X(5252)-JVS(18923)*X(5255)-JVS(18924)*X(5256))& - &/(JVS(18919)) - X(3865) = (X(3865)-JVS(18913)*X(4907)-JVS(18914)*X(5250)-JVS(18915)*X(5252)-JVS(18916)*X(5255)-JVS(18917)*X(5256))& - &/(JVS(18912)) - X(3864) = (X(3864)-JVS(18906)*X(5091)-JVS(18907)*X(5250)-JVS(18908)*X(5252)-JVS(18909)*X(5255)-JVS(18910)*X(5256))& - &/(JVS(18905)) - X(3863) = (X(3863)-JVS(18897)*X(4605)-JVS(18898)*X(5250)-JVS(18899)*X(5252)-JVS(18900)*X(5255)-JVS(18901)*X(5256))& - &/(JVS(18896)) - X(3862) = (X(3862)-JVS(18890)*X(4987)-JVS(18891)*X(5250)-JVS(18892)*X(5252)-JVS(18893)*X(5255)-JVS(18894)*X(5256))& - &/(JVS(18889)) - X(3861) = (X(3861)-JVS(18882)*X(4348)-JVS(18883)*X(5250)-JVS(18884)*X(5252)-JVS(18885)*X(5255)-JVS(18886)*X(5256))& - &/(JVS(18881)) - X(3860) = (X(3860)-JVS(18873)*X(4667)-JVS(18874)*X(5250)-JVS(18875)*X(5252)-JVS(18876)*X(5255)-JVS(18877)*X(5256))& - &/(JVS(18872)) - X(3859) = (X(3859)-JVS(18864)*X(5077)-JVS(18865)*X(5250)-JVS(18866)*X(5252)-JVS(18867)*X(5255)-JVS(18868)*X(5256))& - &/(JVS(18863)) - X(3858) = (X(3858)-JVS(18856)*X(5021)-JVS(18857)*X(5250)-JVS(18858)*X(5252)-JVS(18859)*X(5255)-JVS(18860)*X(5256))& - &/(JVS(18855)) - X(3857) = (X(3857)-JVS(18848)*X(4880)-JVS(18849)*X(5250)-JVS(18850)*X(5252)-JVS(18851)*X(5255)-JVS(18852)*X(5256))& - &/(JVS(18847)) - X(3856) = (X(3856)-JVS(18839)*X(5082)-JVS(18840)*X(5250)-JVS(18841)*X(5252)-JVS(18842)*X(5255)-JVS(18843)*X(5256))& - &/(JVS(18838)) - X(3855) = (X(3855)-JVS(18830)*X(4319)-JVS(18831)*X(5250)-JVS(18832)*X(5252)-JVS(18833)*X(5255)-JVS(18834)*X(5256))& - &/(JVS(18829)) - X(3854) = (X(3854)-JVS(18821)*X(5082)-JVS(18822)*X(5250)-JVS(18823)*X(5252)-JVS(18824)*X(5255)-JVS(18825)*X(5256))& - &/(JVS(18820)) - X(3853) = (X(3853)-JVS(18811)*X(5141)-JVS(18812)*X(5250)-JVS(18813)*X(5252)-JVS(18814)*X(5255)-JVS(18815)*X(5256))& - &/(JVS(18810)) - X(3852) = (X(3852)-JVS(18804)*X(5215)-JVS(18805)*X(5250)-JVS(18806)*X(5252)-JVS(18807)*X(5255)-JVS(18808)*X(5256))& - &/(JVS(18803)) - X(3851) = (X(3851)-JVS(18798)*X(4696)-JVS(18799)*X(5250)-JVS(18800)*X(5252)-JVS(18801)*X(5255)-JVS(18802)*X(5256))& - &/(JVS(18797)) - X(3850) = (X(3850)-JVS(18789)*X(5169)-JVS(18790)*X(5250)-JVS(18791)*X(5252)-JVS(18792)*X(5255)-JVS(18793)*X(5256))& - &/(JVS(18788)) - X(3849) = (X(3849)-JVS(18779)*X(4117)-JVS(18780)*X(4120)-JVS(18781)*X(5187)-JVS(18782)*X(5250)-JVS(18783)*X(5252)& - &-JVS(18784)*X(5255)-JVS(18785)*X(5256)-JVS(18786)*X(5258))/(JVS(18778)) - X(3848) = (X(3848)-JVS(18766)*X(5187)-JVS(18767)*X(5250)-JVS(18768)*X(5252)-JVS(18769)*X(5255)-JVS(18770)*X(5256))& - &/(JVS(18765)) - X(3847) = (X(3847)-JVS(18759)*X(5203)-JVS(18760)*X(5250)-JVS(18761)*X(5252)-JVS(18762)*X(5255)-JVS(18763)*X(5256))& - &/(JVS(18758)) - X(3846) = (X(3846)-JVS(18752)*X(4898)-JVS(18753)*X(5250)-JVS(18754)*X(5252)-JVS(18755)*X(5255)-JVS(18756)*X(5256))& - &/(JVS(18751)) - X(3845) = (X(3845)-JVS(18742)*X(4545)-JVS(18743)*X(5250)-JVS(18744)*X(5252)-JVS(18745)*X(5255)-JVS(18746)*X(5256))& - &/(JVS(18741)) - X(3844) = (X(3844)-JVS(18732)*X(5249)-JVS(18733)*X(5250)-JVS(18734)*X(5252)-JVS(18735)*X(5255)-JVS(18736)*X(5256))& - &/(JVS(18731)) - X(3843) = (X(3843)-JVS(18725)*X(5186)-JVS(18726)*X(5250)-JVS(18727)*X(5252)-JVS(18728)*X(5255)-JVS(18729)*X(5256))& - &/(JVS(18724)) - X(3842) = (X(3842)-JVS(18715)*X(4702)-JVS(18716)*X(5250)-JVS(18717)*X(5252)-JVS(18718)*X(5255)-JVS(18719)*X(5256))& - &/(JVS(18714)) - X(3841) = (X(3841)-JVS(18708)*X(5245)-JVS(18709)*X(5250)-JVS(18710)*X(5252)-JVS(18711)*X(5255)-JVS(18712)*X(5256))& - &/(JVS(18707)) - X(3840) = (X(3840)-JVS(18700)*X(5083)-JVS(18701)*X(5250)-JVS(18702)*X(5252)-JVS(18703)*X(5255)-JVS(18704)*X(5256))& - &/(JVS(18699)) - X(3839) = (X(3839)-JVS(18693)*X(4567)-JVS(18694)*X(5250)-JVS(18695)*X(5252)-JVS(18696)*X(5255)-JVS(18697)*X(5256))& - &/(JVS(18692)) - X(3838) = (X(3838)-JVS(18685)*X(4898)-JVS(18686)*X(5250)-JVS(18687)*X(5252)-JVS(18688)*X(5255)-JVS(18689)*X(5256))& - &/(JVS(18684)) - X(3837) = (X(3837)-JVS(18675)*X(5024)-JVS(18676)*X(5250)-JVS(18677)*X(5252)-JVS(18678)*X(5255)-JVS(18679)*X(5256))& - &/(JVS(18674)) - X(3836) = (X(3836)-JVS(18668)*X(5045)-JVS(18669)*X(5250)-JVS(18670)*X(5252)-JVS(18671)*X(5255)-JVS(18672)*X(5256))& - &/(JVS(18667)) - X(3835) = (X(3835)-JVS(18663)*X(5015)-JVS(18664)*X(5250)-JVS(18665)*X(5252))/(JVS(18662)) - X(3834) = (X(3834)-JVS(18659)*X(5250)-JVS(18660)*X(5256)-JVS(18661)*X(5258))/(JVS(18658)) - X(3833) = (X(3833)-JVS(18654)*X(5250)-JVS(18655)*X(5256)-JVS(18656)*X(5258))/(JVS(18653)) - X(3832) = (X(3832)-JVS(18649)*X(5030)-JVS(18650)*X(5250)-JVS(18651)*X(5258))/(JVS(18648)) - X(3831) = (X(3831)-JVS(18645)*X(5250)-JVS(18646)*X(5256)-JVS(18647)*X(5258))/(JVS(18644)) - X(3830) = (X(3830)-JVS(18639)*X(4397)-JVS(18640)*X(5250)-JVS(18641)*X(5256)-JVS(18642)*X(5258))/(JVS(18638)) - X(3829) = (X(3829)-JVS(18633)*X(4322)-JVS(18634)*X(5250)-JVS(18635)*X(5252)-JVS(18636)*X(5255)-JVS(18637)*X(5256))& - &/(JVS(18632)) - X(3828) = (X(3828)-JVS(18626)*X(5250)-JVS(18627)*X(5252)-JVS(18628)*X(5255)-JVS(18629)*X(5256))/(JVS(18625)) - X(3827) = (X(3827)-JVS(18619)*X(5250)-JVS(18620)*X(5252)-JVS(18621)*X(5255)-JVS(18622)*X(5256))/(JVS(18618)) - X(3826) = (X(3826)-JVS(18612)*X(5250)-JVS(18613)*X(5252)-JVS(18614)*X(5255)-JVS(18615)*X(5256))/(JVS(18611)) - X(3825) = (X(3825)-JVS(18603)*X(5250)-JVS(18604)*X(5252)-JVS(18605)*X(5255)-JVS(18606)*X(5256))/(JVS(18602)) - X(3824) = (X(3824)-JVS(18596)*X(5250)-JVS(18597)*X(5252)-JVS(18598)*X(5255)-JVS(18599)*X(5256))/(JVS(18595)) - X(3823) = (X(3823)-JVS(18588)*X(5250)-JVS(18589)*X(5252)-JVS(18590)*X(5255)-JVS(18591)*X(5256))/(JVS(18587)) - X(3822) = (X(3822)-JVS(18582)*X(5119)-JVS(18583)*X(5250)-JVS(18584)*X(5252)-JVS(18585)*X(5255))/(JVS(18581)) - X(3821) = (X(3821)-JVS(18570)*X(4326)-JVS(18571)*X(4726)-JVS(18572)*X(4968)-JVS(18573)*X(5250)-JVS(18574)*X(5252)& - &-JVS(18575)*X(5255)-JVS(18576)*X(5256)-JVS(18577)*X(5258))/(JVS(18569)) - X(3820) = (X(3820)-JVS(18559)*X(5250)-JVS(18560)*X(5252)-JVS(18561)*X(5255)-JVS(18562)*X(5256))/(JVS(18558)) - X(3819) = (X(3819)-JVS(18552)*X(5250)-JVS(18553)*X(5252)-JVS(18554)*X(5255)-JVS(18555)*X(5256))/(JVS(18551)) - X(3818) = (X(3818)-JVS(18546)*X(5250)-JVS(18547)*X(5252)-JVS(18548)*X(5255)-JVS(18549)*X(5256))/(JVS(18545)) - X(3817) = (X(3817)-JVS(18537)*X(5250)-JVS(18538)*X(5252)-JVS(18539)*X(5255)-JVS(18540)*X(5256))/(JVS(18536)) - X(3816) = (X(3816)-JVS(18528)*X(4743)-JVS(18529)*X(4930)-JVS(18530)*X(5250)-JVS(18531)*X(5252)-JVS(18532)*X(5255)& - &-JVS(18533)*X(5256))/(JVS(18527)) - X(3815) = (X(3815)-JVS(18521)*X(5250)-JVS(18522)*X(5252)-JVS(18523)*X(5255)-JVS(18524)*X(5256))/(JVS(18520)) - X(3814) = (X(3814)-JVS(18514)*X(5250)-JVS(18515)*X(5252)-JVS(18516)*X(5255)-JVS(18517)*X(5256))/(JVS(18513)) - X(3813) = (X(3813)-JVS(18507)*X(5250)-JVS(18508)*X(5252)-JVS(18509)*X(5255)-JVS(18510)*X(5256))/(JVS(18506)) - X(3812) = (X(3812)-JVS(18500)*X(5250)-JVS(18501)*X(5252)-JVS(18502)*X(5255)-JVS(18503)*X(5256))/(JVS(18499)) - X(3811) = (X(3811)-JVS(18492)*X(5250)-JVS(18493)*X(5252)-JVS(18494)*X(5255)-JVS(18495)*X(5256))/(JVS(18491)) - X(3810) = (X(3810)-JVS(18486)*X(5250)-JVS(18487)*X(5252)-JVS(18488)*X(5255)-JVS(18489)*X(5256))/(JVS(18485)) - X(3809) = (X(3809)-JVS(18475)*X(4199)-JVS(18476)*X(4875)-JVS(18477)*X(5199)-JVS(18478)*X(5233)-JVS(18479)*X(5250)& - &-JVS(18480)*X(5252)-JVS(18481)*X(5255)-JVS(18482)*X(5256))/(JVS(18474)) - X(3808) = (X(3808)-JVS(18467)*X(5250)-JVS(18468)*X(5252)-JVS(18469)*X(5255)-JVS(18470)*X(5256))/(JVS(18466)) - X(3807) = (X(3807)-JVS(18460)*X(5250)-JVS(18461)*X(5252)-JVS(18462)*X(5255)-JVS(18463)*X(5256))/(JVS(18459)) - X(3806) = (X(3806)-JVS(18454)*X(4600)-JVS(18455)*X(5252)-JVS(18456)*X(5255)-JVS(18457)*X(5256))/(JVS(18453)) - X(3805) = (X(3805)-JVS(18449)*X(5250)-JVS(18450)*X(5252)-JVS(18451)*X(5255)-JVS(18452)*X(5256))/(JVS(18448)) - X(3804) = (X(3804)-JVS(18441)*X(5250)-JVS(18442)*X(5252)-JVS(18443)*X(5255)-JVS(18444)*X(5256))/(JVS(18440)) - X(3803) = (X(3803)-JVS(18435)*X(5250)-JVS(18436)*X(5252)-JVS(18437)*X(5255)-JVS(18438)*X(5256))/(JVS(18434)) - X(3802) = (X(3802)-JVS(18429)*X(5250)-JVS(18430)*X(5252)-JVS(18431)*X(5255)-JVS(18432)*X(5256))/(JVS(18428)) - X(3801) = (X(3801)-JVS(18420)*X(5204)-JVS(18421)*X(5252)-JVS(18422)*X(5255)-JVS(18423)*X(5256))/(JVS(18419)) - X(3800) = (X(3800)-JVS(18412)*X(4619)-JVS(18413)*X(4917)-JVS(18414)*X(5250)-JVS(18415)*X(5252)-JVS(18416)*X(5255)& - &-JVS(18417)*X(5256))/(JVS(18411)) - X(3799) = (X(3799)-JVS(18404)*X(5250)-JVS(18405)*X(5252)-JVS(18406)*X(5255)-JVS(18407)*X(5256))/(JVS(18403)) - X(3798) = (X(3798)-JVS(18397)*X(5250)-JVS(18398)*X(5252)-JVS(18399)*X(5255)-JVS(18400)*X(5256))/(JVS(18396)) - X(3797) = (X(3797)-JVS(18390)*X(5250)-JVS(18391)*X(5252)-JVS(18392)*X(5255)-JVS(18393)*X(5256))/(JVS(18389)) - X(3796) = (X(3796)-JVS(18382)*X(5250)-JVS(18383)*X(5252)-JVS(18384)*X(5255)-JVS(18385)*X(5256))/(JVS(18381)) - X(3795) = (X(3795)-JVS(18375)*X(5250)-JVS(18376)*X(5252)-JVS(18377)*X(5255)-JVS(18378)*X(5256))/(JVS(18374)) - X(3794) = (X(3794)-JVS(18367)*X(5250)-JVS(18368)*X(5252)-JVS(18369)*X(5255)-JVS(18370)*X(5256))/(JVS(18366)) - X(3793) = (X(3793)-JVS(18357)*X(4591)-JVS(18358)*X(4592)-JVS(18359)*X(5250)-JVS(18360)*X(5252)-JVS(18361)*X(5253)& - &-JVS(18362)*X(5255)-JVS(18363)*X(5256)-JVS(18364)*X(5258))/(JVS(18356)) - X(3792) = (X(3792)-JVS(18349)*X(4975)-JVS(18350)*X(5010)-JVS(18351)*X(5250)-JVS(18352)*X(5256))/(JVS(18348)) - X(3791) = (X(3791)-JVS(18344)*X(5250)-JVS(18345)*X(5252)-JVS(18346)*X(5255)-JVS(18347)*X(5256))/(JVS(18343)) - X(3790) = (X(3790)-JVS(18337)*X(5250)-JVS(18338)*X(5252)-JVS(18339)*X(5255)-JVS(18340)*X(5256))/(JVS(18336)) - X(3789) = (X(3789)-JVS(18330)*X(4679)-JVS(18331)*X(5250)-JVS(18332)*X(5252)-JVS(18333)*X(5255)-JVS(18334)*X(5256))& - &/(JVS(18329)) - X(3788) = (X(3788)-JVS(18322)*X(4793)-JVS(18323)*X(5250)-JVS(18324)*X(5252)-JVS(18325)*X(5255)-JVS(18326)*X(5256))& - &/(JVS(18321)) - X(3787) = (X(3787)-JVS(18315)*X(4743)-JVS(18316)*X(5250)-JVS(18317)*X(5252)-JVS(18318)*X(5255)-JVS(18319)*X(5256))& - &/(JVS(18314)) - X(3786) = (X(3786)-JVS(18306)*X(4397)-JVS(18307)*X(5250)-JVS(18308)*X(5252)-JVS(18309)*X(5255)-JVS(18310)*X(5256))& - &/(JVS(18305)) - X(3785) = (X(3785)-JVS(18299)*X(4766)-JVS(18300)*X(5250)-JVS(18301)*X(5252)-JVS(18302)*X(5255)-JVS(18303)*X(5256))& - &/(JVS(18298)) - X(3784) = (X(3784)-JVS(18291)*X(4814)-JVS(18292)*X(5250)-JVS(18293)*X(5252)-JVS(18294)*X(5255)-JVS(18295)*X(5256))& - &/(JVS(18290)) - X(3783) = (X(3783)-JVS(18282)*X(4488)-JVS(18283)*X(5250)-JVS(18284)*X(5252)-JVS(18285)*X(5255)-JVS(18286)*X(5256))& - &/(JVS(18281)) - X(3782) = (X(3782)-JVS(18273)*X(4799)-JVS(18274)*X(5250)-JVS(18275)*X(5252)-JVS(18276)*X(5255)-JVS(18277)*X(5256))& - &/(JVS(18272)) - X(3781) = (X(3781)-JVS(18265)*X(5144)-JVS(18266)*X(5250)-JVS(18267)*X(5252)-JVS(18268)*X(5255)-JVS(18269)*X(5256))& - &/(JVS(18264)) - X(3780) = (X(3780)-JVS(18257)*X(4697)-JVS(18258)*X(4704)-JVS(18259)*X(5250)-JVS(18260)*X(5252)-JVS(18261)*X(5255))& - &/(JVS(18256)) - X(3779) = (X(3779)-JVS(18247)*X(4571)-JVS(18248)*X(5250)-JVS(18249)*X(5252)-JVS(18250)*X(5255)-JVS(18251)*X(5256))& - &/(JVS(18246)) - X(3778) = (X(3778)-JVS(18239)*X(5056)-JVS(18240)*X(5250)-JVS(18241)*X(5252)-JVS(18242)*X(5255)-JVS(18243)*X(5256))& - &/(JVS(18238)) - X(3777) = (X(3777)-JVS(18231)*X(5108)-JVS(18232)*X(5250)-JVS(18233)*X(5252)-JVS(18234)*X(5255)-JVS(18235)*X(5256))& - &/(JVS(18230)) - X(3776) = (X(3776)-JVS(18222)*X(4187)-JVS(18223)*X(5250)-JVS(18224)*X(5252)-JVS(18225)*X(5255)-JVS(18226)*X(5256))& - &/(JVS(18221)) - X(3775) = (X(3775)-JVS(18212)*X(4650)-JVS(18213)*X(5250)-JVS(18214)*X(5252)-JVS(18215)*X(5255)-JVS(18216)*X(5256))& - &/(JVS(18211)) - X(3774) = (X(3774)-JVS(18200)*X(4650)-JVS(18201)*X(5250)-JVS(18202)*X(5252)-JVS(18203)*X(5255)-JVS(18204)*X(5256))& - &/(JVS(18199)) - X(3773) = (X(3773)-JVS(18193)*X(4637)-JVS(18194)*X(5250)-JVS(18195)*X(5252)-JVS(18196)*X(5255)-JVS(18197)*X(5256))& - &/(JVS(18192)) - X(3772) = (X(3772)-JVS(18181)*X(4637)-JVS(18182)*X(5250)-JVS(18183)*X(5252)-JVS(18184)*X(5255)-JVS(18185)*X(5256))& - &/(JVS(18180)) - X(3771) = (X(3771)-JVS(18174)*X(4322)-JVS(18175)*X(5250)-JVS(18176)*X(5252)-JVS(18177)*X(5255)-JVS(18178)*X(5256))& - &/(JVS(18173)) - X(3770) = (X(3770)-JVS(18166)*X(4152)-JVS(18167)*X(5250)-JVS(18168)*X(5252)-JVS(18169)*X(5255)-JVS(18170)*X(5256))& - &/(JVS(18165)) - X(3769) = (X(3769)-JVS(18159)*X(4012)-JVS(18160)*X(5250)-JVS(18161)*X(5252)-JVS(18162)*X(5255)-JVS(18163)*X(5256))& - &/(JVS(18158)) - X(3768) = (X(3768)-JVS(18151)*X(5112)-JVS(18152)*X(5250)-JVS(18153)*X(5252)-JVS(18154)*X(5255)-JVS(18155)*X(5256))& - &/(JVS(18150)) - X(3767) = (X(3767)-JVS(18143)*X(4387)-JVS(18144)*X(5250)-JVS(18145)*X(5252)-JVS(18146)*X(5255)-JVS(18147)*X(5256))& - &/(JVS(18142)) - X(3766) = (X(3766)-JVS(18136)*X(5107)-JVS(18137)*X(5250)-JVS(18138)*X(5252)-JVS(18139)*X(5255)-JVS(18140)*X(5256))& - &/(JVS(18135)) - X(3765) = (X(3765)-JVS(18127)*X(4694)-JVS(18128)*X(4985)-JVS(18129)*X(5250)-JVS(18130)*X(5252)-JVS(18131)*X(5255)& - &-JVS(18132)*X(5256))/(JVS(18126)) - X(3764) = (X(3764)-JVS(18120)*X(4431)-JVS(18121)*X(5250)-JVS(18122)*X(5252)-JVS(18123)*X(5255)-JVS(18124)*X(5256))& - &/(JVS(18119)) - X(3763) = (X(3763)-JVS(18112)*X(5153)-JVS(18113)*X(5250)-JVS(18114)*X(5252)-JVS(18115)*X(5255)-JVS(18116)*X(5256))& - &/(JVS(18111)) - X(3762) = (X(3762)-JVS(18103)*X(4650)-JVS(18104)*X(5250)-JVS(18105)*X(5252)-JVS(18106)*X(5255)-JVS(18107)*X(5256))& - &/(JVS(18102)) - X(3761) = (X(3761)-JVS(18096)*X(4898)-JVS(18097)*X(5250)-JVS(18098)*X(5252)-JVS(18099)*X(5255)-JVS(18100)*X(5256))& - &/(JVS(18095)) - X(3760) = (X(3760)-JVS(18087)*X(3905)-JVS(18088)*X(5250)-JVS(18089)*X(5252)-JVS(18090)*X(5255)-JVS(18091)*X(5256))& - &/(JVS(18086)) - X(3759) = (X(3759)-JVS(18078)*X(4735)-JVS(18079)*X(4889)-JVS(18080)*X(5250)-JVS(18081)*X(5252)-JVS(18082)*X(5255))& - &/(JVS(18077)) - X(3758) = (X(3758)-JVS(18067)*X(5208)-JVS(18068)*X(5250)-JVS(18069)*X(5252)-JVS(18070)*X(5255)-JVS(18071)*X(5256))& - &/(JVS(18066)) - X(3757) = (X(3757)-JVS(18058)*X(4390)-JVS(18059)*X(4607)-JVS(18060)*X(4884)-JVS(18061)*X(5250)-JVS(18062)*X(5252)& - &-JVS(18063)*X(5255))/(JVS(18057)) - X(3756) = (X(3756)-JVS(18049)*X(4590)-JVS(18050)*X(4827)-JVS(18051)*X(5250)-JVS(18052)*X(5252)-JVS(18053)*X(5255)& - &-JVS(18054)*X(5256))/(JVS(18048)) - X(3755) = (X(3755)-JVS(18039)*X(4364)-JVS(18040)*X(4554)-JVS(18041)*X(4596)-JVS(18042)*X(5250)-JVS(18043)*X(5252)& - &-JVS(18044)*X(5255))/(JVS(18038)) - X(3754) = (X(3754)-JVS(18030)*X(4529)-JVS(18031)*X(5250)-JVS(18032)*X(5252)-JVS(18033)*X(5255)-JVS(18034)*X(5256))& - &/(JVS(18029)) - X(3753) = (X(3753)-JVS(18021)*X(4533)-JVS(18022)*X(5250)-JVS(18023)*X(5252)-JVS(18024)*X(5255)-JVS(18025)*X(5256))& - &/(JVS(18020)) - X(3752) = (X(3752)-JVS(18013)*X(4952)-JVS(18014)*X(5250)-JVS(18015)*X(5252)-JVS(18016)*X(5255)-JVS(18017)*X(5256))& - &/(JVS(18012)) - X(3751) = (X(3751)-JVS(18006)*X(5112)-JVS(18007)*X(5250)-JVS(18008)*X(5252)-JVS(18009)*X(5255)-JVS(18010)*X(5256))& - &/(JVS(18005)) - X(3750) = (X(3750)-JVS(17997)*X(3845)-JVS(17998)*X(5250)-JVS(17999)*X(5252)-JVS(18000)*X(5255)-JVS(18001)*X(5256))& - &/(JVS(17996)) - X(3749) = (X(3749)-JVS(17989)*X(5144)-JVS(17990)*X(5250)-JVS(17991)*X(5252)-JVS(17992)*X(5255)-JVS(17993)*X(5256))& - &/(JVS(17988)) - X(3748) = (X(3748)-JVS(17980)*X(4896)-JVS(17981)*X(5250)-JVS(17982)*X(5252)-JVS(17983)*X(5255)-JVS(17984)*X(5256))& - &/(JVS(17979)) - X(3747) = (X(3747)-JVS(17967)*X(4577)-JVS(17968)*X(4722)-JVS(17969)*X(5250)-JVS(17970)*X(5252)-JVS(17971)*X(5255)& - &-JVS(17972)*X(5256))/(JVS(17966)) - X(3746) = (X(3746)-JVS(17955)*X(4379)-JVS(17956)*X(5250)-JVS(17957)*X(5252)-JVS(17958)*X(5255)-JVS(17959)*X(5256))& - &/(JVS(17954)) - X(3745) = (X(3745)-JVS(17947)*X(4925)-JVS(17948)*X(5250)-JVS(17949)*X(5252)-JVS(17950)*X(5255)-JVS(17951)*X(5256))& - &/(JVS(17946)) - X(3744) = (X(3744)-JVS(17938)*X(4925)-JVS(17939)*X(5250)-JVS(17940)*X(5252)-JVS(17941)*X(5255)-JVS(17942)*X(5256))& - &/(JVS(17937)) - X(3743) = (X(3743)-JVS(17931)*X(4681)-JVS(17932)*X(5250)-JVS(17933)*X(5252)-JVS(17934)*X(5255)-JVS(17935)*X(5256))& - &/(JVS(17930)) - X(3742) = (X(3742)-JVS(17923)*X(4448)-JVS(17924)*X(5250)-JVS(17925)*X(5252)-JVS(17926)*X(5255)-JVS(17927)*X(5256))& - &/(JVS(17922)) - X(3741) = (X(3741)-JVS(17914)*X(5198)-JVS(17915)*X(5250)-JVS(17916)*X(5252)-JVS(17917)*X(5255)-JVS(17918)*X(5256))& - &/(JVS(17913)) - X(3740) = (X(3740)-JVS(17903)*X(4603)-JVS(17904)*X(5250)-JVS(17905)*X(5252)-JVS(17906)*X(5255)-JVS(17907)*X(5256))& - &/(JVS(17902)) - X(3739) = (X(3739)-JVS(17896)*X(4895)-JVS(17897)*X(5250)-JVS(17898)*X(5252)-JVS(17899)*X(5255)-JVS(17900)*X(5256))& - &/(JVS(17895)) - X(3738) = (X(3738)-JVS(17889)*X(4743)-JVS(17890)*X(5250)-JVS(17891)*X(5252)-JVS(17892)*X(5255)-JVS(17893)*X(5256))& - &/(JVS(17888)) - X(3737) = (X(3737)-JVS(17881)*X(4672)-JVS(17882)*X(5250)-JVS(17883)*X(5252)-JVS(17884)*X(5255)-JVS(17885)*X(5256))& - &/(JVS(17880)) - X(3736) = (X(3736)-JVS(17873)*X(3737)-JVS(17874)*X(4672)-JVS(17875)*X(5250)-JVS(17876)*X(5252)-JVS(17877)*X(5255))& - &/(JVS(17872)) - X(3735) = (X(3735)-JVS(17863)*X(4714)-JVS(17864)*X(4767)-JVS(17865)*X(4858)-JVS(17866)*X(5250)-JVS(17867)*X(5252)& - &-JVS(17868)*X(5255))/(JVS(17862)) - X(3734) = (X(3734)-JVS(17854)*X(4955)-JVS(17855)*X(5132)-JVS(17856)*X(5224)-JVS(17857)*X(5250)-JVS(17858)*X(5253)& - &-JVS(17859)*X(5255))/(JVS(17853)) - X(3733) = (X(3733)-JVS(17845)*X(5215)-JVS(17846)*X(5250)-JVS(17847)*X(5252)-JVS(17848)*X(5255)-JVS(17849)*X(5256))& - &/(JVS(17844)) - X(3732) = (X(3732)-JVS(17839)*X(4076)-JVS(17840)*X(5250)-JVS(17841)*X(5252)-JVS(17842)*X(5255)-JVS(17843)*X(5256))& - &/(JVS(17838)) - X(3731) = (X(3731)-JVS(17831)*X(5107)-JVS(17832)*X(5250)-JVS(17833)*X(5252)-JVS(17834)*X(5255)-JVS(17835)*X(5256))& - &/(JVS(17830)) - X(3730) = (X(3730)-JVS(17822)*X(4586)-JVS(17823)*X(5250)-JVS(17824)*X(5252)-JVS(17825)*X(5255)-JVS(17826)*X(5256))& - &/(JVS(17821)) - X(3729) = (X(3729)-JVS(17814)*X(4327)-JVS(17815)*X(5250)-JVS(17816)*X(5252)-JVS(17817)*X(5255)-JVS(17818)*X(5256))& - &/(JVS(17813)) - X(3728) = (X(3728)-JVS(17806)*X(4951)-JVS(17807)*X(5250)-JVS(17808)*X(5252)-JVS(17809)*X(5255)-JVS(17810)*X(5256))& - &/(JVS(17805)) - X(3727) = (X(3727)-JVS(17799)*X(4896)-JVS(17800)*X(5250)-JVS(17801)*X(5252)-JVS(17802)*X(5255)-JVS(17803)*X(5256))& - &/(JVS(17798)) - X(3726) = (X(3726)-JVS(17790)*X(3945)-JVS(17791)*X(4505)-JVS(17792)*X(5250)-JVS(17793)*X(5252)-JVS(17794)*X(5255)& - &-JVS(17795)*X(5256)-JVS(17796)*X(5258))/(JVS(17789)) - X(3725) = (X(3725)-JVS(17780)*X(4505)-JVS(17781)*X(5250)-JVS(17782)*X(5252)-JVS(17783)*X(5255)-JVS(17784)*X(5256))& - &/(JVS(17779)) - X(3724) = (X(3724)-JVS(17773)*X(4497)-JVS(17774)*X(5250)-JVS(17775)*X(5252)-JVS(17776)*X(5255)-JVS(17777)*X(5256))& - &/(JVS(17772)) - X(3723) = (X(3723)-JVS(17763)*X(4178)-JVS(17764)*X(4946)-JVS(17765)*X(5250)-JVS(17766)*X(5252)-JVS(17767)*X(5255)& - &-JVS(17768)*X(5256))/(JVS(17762)) - X(3722) = (X(3722)-JVS(17756)*X(4863)-JVS(17757)*X(5250)-JVS(17758)*X(5252)-JVS(17759)*X(5255)-JVS(17760)*X(5256))& - &/(JVS(17755)) - X(3721) = (X(3721)-JVS(17748)*X(5250)-JVS(17749)*X(5252)-JVS(17750)*X(5255)-JVS(17751)*X(5256)-JVS(17752)*X(5258))& - &/(JVS(17747)) - X(3720) = (X(3720)-JVS(17740)*X(3852)-JVS(17741)*X(5250)-JVS(17742)*X(5252)-JVS(17743)*X(5255)-JVS(17744)*X(5256))& - &/(JVS(17739)) - X(3719) = (X(3719)-JVS(17731)*X(4190)-JVS(17732)*X(5250)-JVS(17733)*X(5252)-JVS(17734)*X(5255)-JVS(17735)*X(5256))& - &/(JVS(17730)) - X(3718) = (X(3718)-JVS(17723)*X(5109)-JVS(17724)*X(5250)-JVS(17725)*X(5252)-JVS(17726)*X(5255)-JVS(17727)*X(5256))& - &/(JVS(17722)) - X(3717) = (X(3717)-JVS(17714)*X(4765)-JVS(17715)*X(5250)-JVS(17716)*X(5252)-JVS(17717)*X(5255)-JVS(17718)*X(5256))& - &/(JVS(17713)) - X(3716) = (X(3716)-JVS(17705)*X(4562)-JVS(17706)*X(4881)-JVS(17707)*X(5043)-JVS(17708)*X(5250)-JVS(17709)*X(5252)& - &-JVS(17710)*X(5255))/(JVS(17704)) - X(3715) = (X(3715)-JVS(17696)*X(4485)-JVS(17697)*X(5250)-JVS(17698)*X(5252)-JVS(17699)*X(5255)-JVS(17700)*X(5256))& - &/(JVS(17695)) - X(3714) = (X(3714)-JVS(17688)*X(4448)-JVS(17689)*X(5250)-JVS(17690)*X(5252)-JVS(17691)*X(5255)-JVS(17692)*X(5256))& - &/(JVS(17687)) - X(3713) = (X(3713)-JVS(17680)*X(4896)-JVS(17681)*X(5250)-JVS(17682)*X(5252)-JVS(17683)*X(5255)-JVS(17684)*X(5256))& - &/(JVS(17679)) - X(3712) = (X(3712)-JVS(17672)*X(4398)-JVS(17673)*X(4916)-JVS(17674)*X(5250)-JVS(17675)*X(5252)-JVS(17676)*X(5255)& - &-JVS(17677)*X(5256))/(JVS(17671)) - X(3711) = (X(3711)-JVS(17665)*X(4619)-JVS(17666)*X(5250)-JVS(17667)*X(5252)-JVS(17668)*X(5255)-JVS(17669)*X(5256))& - &/(JVS(17664)) - X(3710) = (X(3710)-JVS(17658)*X(3720)-JVS(17659)*X(5250)-JVS(17660)*X(5252)-JVS(17661)*X(5255)-JVS(17662)*X(5256))& - &/(JVS(17657)) - X(3709) = (X(3709)-JVS(17648)*X(4153)-JVS(17649)*X(5250)-JVS(17650)*X(5252)-JVS(17651)*X(5255)-JVS(17652)*X(5256))& - &/(JVS(17647)) - X(3708) = (X(3708)-JVS(17641)*X(4758)-JVS(17642)*X(5197)-JVS(17643)*X(5250)-JVS(17644)*X(5255))/(JVS(17640)) - X(3707) = (X(3707)-JVS(17635)*X(4758)-JVS(17636)*X(5250)-JVS(17637)*X(5255))/(JVS(17634)) - X(3706) = (X(3706)-JVS(17629)*X(3981)-JVS(17630)*X(5250)-JVS(17631)*X(5252)-JVS(17632)*X(5255)-JVS(17633)*X(5256))& - &/(JVS(17628)) - X(3705) = (X(3705)-JVS(17621)*X(4895)-JVS(17622)*X(5250)-JVS(17623)*X(5252)-JVS(17624)*X(5255)-JVS(17625)*X(5256))& - &/(JVS(17620)) - X(3704) = (X(3704)-JVS(17614)*X(5065)-JVS(17615)*X(5250)-JVS(17616)*X(5252)-JVS(17617)*X(5255)-JVS(17618)*X(5256))& - &/(JVS(17613)) - X(3703) = (X(3703)-JVS(17606)*X(4638)-JVS(17607)*X(5250)-JVS(17608)*X(5252)-JVS(17609)*X(5255)-JVS(17610)*X(5256))& - &/(JVS(17605)) - X(3702) = (X(3702)-JVS(17600)*X(4992)-JVS(17601)*X(5250)-JVS(17602)*X(5255))/(JVS(17599)) - X(3701) = (X(3701)-JVS(17596)*X(5250)-JVS(17597)*X(5256)-JVS(17598)*X(5258))/(JVS(17595)) - X(3700) = (X(3700)-JVS(17589)*X(5022)-JVS(17590)*X(5250)-JVS(17591)*X(5252)-JVS(17592)*X(5255)-JVS(17593)*X(5256))& - &/(JVS(17588)) - X(3699) = (X(3699)-JVS(17582)*X(4488)-JVS(17583)*X(5250)-JVS(17584)*X(5252)-JVS(17585)*X(5255)-JVS(17586)*X(5256))& - &/(JVS(17581)) - X(3698) = (X(3698)-JVS(17575)*X(4652)-JVS(17576)*X(5250)-JVS(17577)*X(5252)-JVS(17578)*X(5255)-JVS(17579)*X(5256))& - &/(JVS(17574)) - X(3697) = (X(3697)-JVS(17567)*X(4326)-JVS(17568)*X(5250)-JVS(17569)*X(5252)-JVS(17570)*X(5255)-JVS(17571)*X(5256))& - &/(JVS(17566)) - X(3696) = (X(3696)-JVS(17560)*X(4637)-JVS(17561)*X(5250)-JVS(17562)*X(5252)-JVS(17563)*X(5255)-JVS(17564)*X(5256))& - &/(JVS(17559)) - X(3695) = (X(3695)-JVS(17553)*X(4927)-JVS(17554)*X(5250)-JVS(17555)*X(5252)-JVS(17556)*X(5255)-JVS(17557)*X(5256))& - &/(JVS(17552)) - X(3694) = (X(3694)-JVS(17546)*X(3858)-JVS(17547)*X(5250)-JVS(17548)*X(5252)-JVS(17549)*X(5255)-JVS(17550)*X(5256))& - &/(JVS(17545)) - X(3693) = (X(3693)-JVS(17536)*X(4861)-JVS(17537)*X(4894)-JVS(17538)*X(4976)-JVS(17539)*X(5250)-JVS(17540)*X(5255))& - &/(JVS(17535)) - X(3692) = (X(3692)-JVS(17529)*X(4952)-JVS(17530)*X(5250)-JVS(17531)*X(5252)-JVS(17532)*X(5255)-JVS(17533)*X(5256))& - &/(JVS(17528)) - X(3691) = (X(3691)-JVS(17522)*X(5065)-JVS(17523)*X(5250)-JVS(17524)*X(5252)-JVS(17525)*X(5255)-JVS(17526)*X(5256))& - &/(JVS(17521)) - X(3690) = (X(3690)-JVS(17513)*X(5138)-JVS(17514)*X(5250)-JVS(17515)*X(5252)-JVS(17516)*X(5255)-JVS(17517)*X(5256))& - &/(JVS(17512)) - X(3689) = (X(3689)-JVS(17504)*X(5181)-JVS(17505)*X(5250)-JVS(17506)*X(5252)-JVS(17507)*X(5255)-JVS(17508)*X(5256))& - &/(JVS(17503)) - X(3688) = (X(3688)-JVS(17494)*X(4878)-JVS(17495)*X(5250)-JVS(17496)*X(5252)-JVS(17497)*X(5255)-JVS(17498)*X(5256))& - &/(JVS(17493)) - X(3687) = (X(3687)-JVS(17484)*X(4793)-JVS(17485)*X(5250)-JVS(17486)*X(5252)-JVS(17487)*X(5255)-JVS(17488)*X(5256))& - &/(JVS(17483)) - X(3686) = (X(3686)-JVS(17477)*X(5131)-JVS(17478)*X(5250)-JVS(17479)*X(5252)-JVS(17480)*X(5255)-JVS(17481)*X(5256))& - &/(JVS(17476)) - X(3685) = (X(3685)-JVS(17469)*X(4488)-JVS(17470)*X(5250)-JVS(17471)*X(5252)-JVS(17472)*X(5255)-JVS(17473)*X(5256))& - &/(JVS(17468)) - X(3684) = (X(3684)-JVS(17463)*X(5250)-JVS(17464)*X(5256)-JVS(17465)*X(5258))/(JVS(17462)) - X(3683) = (X(3683)-JVS(17455)*X(4817)-JVS(17456)*X(4885)-JVS(17457)*X(5250)-JVS(17458)*X(5252)-JVS(17459)*X(5255)& - &-JVS(17460)*X(5256))/(JVS(17454)) - X(3682) = (X(3682)-JVS(17445)*X(4730)-JVS(17446)*X(4734)-JVS(17447)*X(5250)-JVS(17448)*X(5252)-JVS(17449)*X(5255)& - &-JVS(17450)*X(5256))/(JVS(17444)) - X(3681) = (X(3681)-JVS(17438)*X(4535)-JVS(17439)*X(5250)-JVS(17440)*X(5252)-JVS(17441)*X(5255)-JVS(17442)*X(5256))& - &/(JVS(17437)) - X(3680) = (X(3680)-JVS(17430)*X(4799)-JVS(17431)*X(5250)-JVS(17432)*X(5252)-JVS(17433)*X(5255)-JVS(17434)*X(5256))& - &/(JVS(17429)) - X(3679) = (X(3679)-JVS(17422)*X(4448)-JVS(17423)*X(5250)-JVS(17424)*X(5252)-JVS(17425)*X(5255)-JVS(17426)*X(5256))& - &/(JVS(17421)) - X(3678) = (X(3678)-JVS(17414)*X(5138)-JVS(17415)*X(5250)-JVS(17416)*X(5252)-JVS(17417)*X(5255)-JVS(17418)*X(5256))& - &/(JVS(17413)) - X(3677) = (X(3677)-JVS(17406)*X(4927)-JVS(17407)*X(5250)-JVS(17408)*X(5252)-JVS(17409)*X(5255)-JVS(17410)*X(5256))& - &/(JVS(17405)) - X(3676) = (X(3676)-JVS(17399)*X(4616)-JVS(17400)*X(5250)-JVS(17401)*X(5252)-JVS(17402)*X(5255)-JVS(17403)*X(5256))& - &/(JVS(17398)) - X(3675) = (X(3675)-JVS(17391)*X(4045)-JVS(17392)*X(5250)-JVS(17393)*X(5252)-JVS(17394)*X(5255)-JVS(17395)*X(5256))& - &/(JVS(17390)) - X(3674) = (X(3674)-JVS(17384)*X(5146)-JVS(17385)*X(5250)-JVS(17386)*X(5252)-JVS(17387)*X(5255)-JVS(17388)*X(5256))& - &/(JVS(17383)) - X(3673) = (X(3673)-JVS(17376)*X(4381)-JVS(17377)*X(5250)-JVS(17378)*X(5252)-JVS(17379)*X(5255)-JVS(17380)*X(5256))& - &/(JVS(17375)) - X(3672) = (X(3672)-JVS(17368)*X(5040)-JVS(17369)*X(5133)-JVS(17370)*X(5155)-JVS(17371)*X(5250)-JVS(17372)*X(5255))& - &/(JVS(17367)) - X(3671) = (X(3671)-JVS(17361)*X(5250)-JVS(17362)*X(5252)-JVS(17363)*X(5255)-JVS(17364)*X(5256)-JVS(17365)*X(5258))& - &/(JVS(17360)) - X(3670) = (X(3670)-JVS(17353)*X(5153)-JVS(17354)*X(5250)-JVS(17355)*X(5252)-JVS(17356)*X(5255)-JVS(17357)*X(5256))& - &/(JVS(17352)) - X(3669) = (X(3669)-JVS(17347)*X(4951)-JVS(17348)*X(5250)-JVS(17349)*X(5252)-JVS(17350)*X(5255)-JVS(17351)*X(5256))& - &/(JVS(17346)) - X(3668) = (X(3668)-JVS(17340)*X(3955)-JVS(17341)*X(5250)-JVS(17342)*X(5252)-JVS(17343)*X(5255)-JVS(17344)*X(5256))& - &/(JVS(17339)) - X(3667) = (X(3667)-JVS(17332)*X(4886)-JVS(17333)*X(5250)-JVS(17334)*X(5252)-JVS(17335)*X(5255)-JVS(17336)*X(5256))& - &/(JVS(17331)) - X(3666) = (X(3666)-JVS(17325)*X(5250)-JVS(17326)*X(5252)-JVS(17327)*X(5255)-JVS(17328)*X(5256))/(JVS(17324)) - X(3665) = (X(3665)-JVS(17317)*X(5250)-JVS(17318)*X(5252)-JVS(17319)*X(5255)-JVS(17320)*X(5256))/(JVS(17316)) - X(3664) = (X(3664)-JVS(17309)*X(4888)-JVS(17310)*X(5250)-JVS(17311)*X(5252)-JVS(17312)*X(5255)-JVS(17313)*X(5256))& - &/(JVS(17308)) - X(3663) = (X(3663)-JVS(17300)*X(5250)-JVS(17301)*X(5252)-JVS(17302)*X(5255)-JVS(17303)*X(5256))/(JVS(17299)) - X(3662) = (X(3662)-JVS(17293)*X(5115)-JVS(17294)*X(5140)-JVS(17295)*X(5250)-JVS(17296)*X(5256))/(JVS(17292)) - X(3661) = (X(3661)-JVS(17288)*X(5250)-JVS(17289)*X(5252)-JVS(17290)*X(5255)-JVS(17291)*X(5256))/(JVS(17287)) - X(3660) = (X(3660)-JVS(17278)*X(4923)-JVS(17279)*X(5250)-JVS(17280)*X(5255)-JVS(17281)*X(5256))/(JVS(17277)) - X(3659) = (X(3659)-JVS(17273)*X(5250)-JVS(17274)*X(5252)-JVS(17275)*X(5255)-JVS(17276)*X(5256))/(JVS(17272)) - X(3658) = (X(3658)-JVS(17266)*X(5153)-JVS(17267)*X(5252)-JVS(17268)*X(5255)-JVS(17269)*X(5256))/(JVS(17265)) - X(3657) = (X(3657)-JVS(17261)*X(5250)-JVS(17262)*X(5252)-JVS(17263)*X(5255)-JVS(17264)*X(5256))/(JVS(17260)) - X(3656) = (X(3656)-JVS(17248)*X(4476)-JVS(17249)*X(4767)-JVS(17250)*X(4782)-JVS(17251)*X(4852)-JVS(17252)*X(5250)& - &-JVS(17253)*X(5252)-JVS(17254)*X(5255))/(JVS(17247)) - X(3655) = (X(3655)-JVS(17240)*X(5250)-JVS(17241)*X(5252)-JVS(17242)*X(5255)-JVS(17243)*X(5256))/(JVS(17239)) - X(3654) = (X(3654)-JVS(17230)*X(4922)-JVS(17231)*X(5250)-JVS(17232)*X(5255)-JVS(17233)*X(5256))/(JVS(17229)) - X(3653) = (X(3653)-JVS(17225)*X(4814)-JVS(17226)*X(5250)-JVS(17227)*X(5252)-JVS(17228)*X(5255))/(JVS(17224)) - X(3652) = (X(3652)-JVS(17214)*X(4906)-JVS(17215)*X(5128)-JVS(17216)*X(5226)-JVS(17217)*X(5250)-JVS(17218)*X(5252)& - &-JVS(17219)*X(5255)-JVS(17220)*X(5256))/(JVS(17213)) - X(3651) = (X(3651)-JVS(17204)*X(4508)-JVS(17205)*X(4604)-JVS(17206)*X(4606)-JVS(17207)*X(5190)-JVS(17208)*X(5238)& - &-JVS(17209)*X(5250)-JVS(17210)*X(5258))/(JVS(17203)) - X(3650) = (X(3650)-JVS(17196)*X(5250)-JVS(17197)*X(5252)-JVS(17198)*X(5255)-JVS(17199)*X(5256))/(JVS(17195)) - X(3649) = (X(3649)-JVS(17189)*X(5250)-JVS(17190)*X(5252)-JVS(17191)*X(5255)-JVS(17192)*X(5256))/(JVS(17188)) - X(3648) = (X(3648)-JVS(17179)*X(5250)-JVS(17180)*X(5252)-JVS(17181)*X(5255)-JVS(17182)*X(5256))/(JVS(17178)) - X(3647) = (X(3647)-JVS(17169)*X(4570)-JVS(17170)*X(4976)-JVS(17171)*X(5089)-JVS(17172)*X(5141)-JVS(17173)*X(5209)& - &-JVS(17174)*X(5220)-JVS(17175)*X(5258))/(JVS(17168)) - X(3646) = (X(3646)-JVS(17164)*X(5048)-JVS(17165)*X(5092)-JVS(17166)*X(5250)-JVS(17167)*X(5258))/(JVS(17163)) - X(3645) = (X(3645)-JVS(17159)*X(5250)-JVS(17160)*X(5252)-JVS(17161)*X(5255)-JVS(17162)*X(5256))/(JVS(17158)) - X(3644) = (X(3644)-JVS(17146)*X(4308)-JVS(17147)*X(4358)-JVS(17148)*X(5250)-JVS(17149)*X(5252)-JVS(17150)*X(5253)& - &-JVS(17151)*X(5255)-JVS(17152)*X(5256))/(JVS(17145)) - X(3643) = (X(3643)-JVS(17137)*X(5250)-JVS(17138)*X(5252)-JVS(17139)*X(5255)-JVS(17140)*X(5256))/(JVS(17136)) - X(3642) = (X(3642)-JVS(17124)*X(4342)-JVS(17125)*X(5027)-JVS(17126)*X(5250)-JVS(17127)*X(5252)-JVS(17128)*X(5253)& - &-JVS(17129)*X(5255)-JVS(17130)*X(5256))/(JVS(17123)) - X(3641) = (X(3641)-JVS(17114)*X(5250)-JVS(17115)*X(5252)-JVS(17116)*X(5255)-JVS(17117)*X(5256))/(JVS(17113)) - X(3640) = (X(3640)-JVS(17107)*X(5250)-JVS(17108)*X(5252)-JVS(17109)*X(5255)-JVS(17110)*X(5256))/(JVS(17106)) - X(3639) = (X(3639)-JVS(17094)*X(4346)-JVS(17095)*X(4459)-JVS(17096)*X(4653)-JVS(17097)*X(4854)-JVS(17098)*X(5250)& - &-JVS(17099)*X(5253)-JVS(17100)*X(5255))/(JVS(17093)) - X(3638) = (X(3638)-JVS(17073)*X(3990)-JVS(17074)*X(4526)-JVS(17075)*X(4678)-JVS(17076)*X(4921)-JVS(17077)*X(4970)& - &-JVS(17078)*X(5249)-JVS(17079)*X(5250)-JVS(17080)*X(5251)-JVS(17081)*X(5252)-JVS(17082)*X(5253)-JVS(17083)& - &*X(5254)-JVS(17084)*X(5255)-JVS(17085)*X(5256)-JVS(17086)*X(5258))/(JVS(17072)) - X(3637) = (X(3637)-JVS(17063)*X(5250)-JVS(17064)*X(5252)-JVS(17065)*X(5255)-JVS(17066)*X(5256))/(JVS(17062)) - X(3636) = (X(3636)-JVS(17057)*X(5153)-JVS(17058)*X(5252)-JVS(17059)*X(5255)-JVS(17060)*X(5256))/(JVS(17056)) - X(3635) = (X(3635)-JVS(17052)*X(5074)-JVS(17053)*X(5154)-JVS(17054)*X(5250)-JVS(17055)*X(5255))/(JVS(17051)) - X(3634) = (X(3634)-JVS(17045)*X(5166)-JVS(17046)*X(5252)-JVS(17047)*X(5255)-JVS(17048)*X(5256))/(JVS(17044)) - X(3633) = (X(3633)-JVS(17040)*X(4820)-JVS(17041)*X(5250)-JVS(17042)*X(5255)-JVS(17043)*X(5256))/(JVS(17039)) - X(3632) = (X(3632)-JVS(17034)*X(5250)-JVS(17035)*X(5252)-JVS(17036)*X(5255)-JVS(17037)*X(5256))/(JVS(17033)) - X(3631) = (X(3631)-JVS(17027)*X(5250)-JVS(17028)*X(5252)-JVS(17029)*X(5255)-JVS(17030)*X(5256))/(JVS(17026)) - X(3630) = (X(3630)-JVS(17017)*X(4805)-JVS(17018)*X(5002)-JVS(17019)*X(5069)-JVS(17020)*X(5076)-JVS(17021)*X(5205)& - &-JVS(17022)*X(5209)-JVS(17023)*X(5258))/(JVS(17016)) - X(3629) = (X(3629)-JVS(17009)*X(4781)-JVS(17010)*X(4891)-JVS(17011)*X(5250)-JVS(17012)*X(5252)-JVS(17013)*X(5253)& - &-JVS(17014)*X(5255)-JVS(17015)*X(5256))/(JVS(17008)) - X(3628) = (X(3628)-JVS(17001)*X(3835)-JVS(17002)*X(5015)-JVS(17003)*X(5250)-JVS(17004)*X(5255))/(JVS(17000)) - X(3627) = (X(3627)-JVS(16994)*X(5250)-JVS(16995)*X(5252)-JVS(16996)*X(5255)-JVS(16997)*X(5256))/(JVS(16993)) - X(3626) = (X(3626)-JVS(16982)*X(4060)-JVS(16983)*X(4222)-JVS(16984)*X(4751)-JVS(16985)*X(4831)-JVS(16986)*X(5250)& - &-JVS(16987)*X(5252)-JVS(16988)*X(5253)-JVS(16989)*X(5255)-JVS(16990)*X(5256))/(JVS(16981)) - X(3625) = (X(3625)-JVS(16970)*X(5074)-JVS(16971)*X(5250)-JVS(16972)*X(5255))/(JVS(16969)) - X(3624) = (X(3624)-JVS(16966)*X(4935)-JVS(16967)*X(5250)-JVS(16968)*X(5255))/(JVS(16965)) - X(3623) = (X(3623)-JVS(16962)*X(4780)-JVS(16963)*X(5250)-JVS(16964)*X(5255))/(JVS(16961)) - X(3622) = (X(3622)-JVS(16958)*X(5250)-JVS(16959)*X(5256)-JVS(16960)*X(5258))/(JVS(16957)) - X(3621) = (X(3621)-JVS(16953)*X(5091)-JVS(16954)*X(5250)-JVS(16955)*X(5255))/(JVS(16952)) - X(3620) = (X(3620)-JVS(16949)*X(4599)-JVS(16950)*X(5250)-JVS(16951)*X(5255))/(JVS(16948)) - X(3619) = (X(3619)-JVS(16939)*X(4219)-JVS(16940)*X(4368)-JVS(16941)*X(4611)-JVS(16942)*X(4616)-JVS(16943)*X(5250)& - &-JVS(16944)*X(5252)-JVS(16945)*X(5253)-JVS(16946)*X(5255)-JVS(16947)*X(5256))/(JVS(16938)) - X(3618) = (X(3618)-JVS(16928)*X(4982)-JVS(16929)*X(5250)-JVS(16930)*X(5255))/(JVS(16927)) - X(3617) = (X(3617)-JVS(16914)*X(3646)-JVS(16915)*X(4541)-JVS(16916)*X(4678)-JVS(16917)*X(4691)-JVS(16918)*X(4869)& - &-JVS(16919)*X(5250)-JVS(16920)*X(5251)-JVS(16921)*X(5252)-JVS(16922)*X(5253)-JVS(16923)*X(5254)-JVS(16924)& - &*X(5255)-JVS(16925)*X(5256)-JVS(16926)*X(5258))/(JVS(16913)) - X(3616) = (X(3616)-JVS(16904)*X(4646)-JVS(16905)*X(4827)-JVS(16906)*X(5250)-JVS(16907)*X(5252)-JVS(16908)*X(5255))& - &/(JVS(16903)) - X(3615) = (X(3615)-JVS(16894)*X(4779)-JVS(16895)*X(5250)-JVS(16896)*X(5252)-JVS(16897)*X(5255)-JVS(16898)*X(5256))& - &/(JVS(16893)) - X(3614) = (X(3614)-JVS(16886)*X(4718)-JVS(16887)*X(5250)-JVS(16888)*X(5252)-JVS(16889)*X(5255)-JVS(16890)*X(5256))& - &/(JVS(16885)) - X(3613) = (X(3613)-JVS(16878)*X(4442)-JVS(16879)*X(5250)-JVS(16880)*X(5252)-JVS(16881)*X(5255)-JVS(16882)*X(5256))& - &/(JVS(16877)) - X(3612) = (X(3612)-JVS(16870)*X(4648)-JVS(16871)*X(5250)-JVS(16872)*X(5252)-JVS(16873)*X(5255)-JVS(16874)*X(5256))& - &/(JVS(16869)) - X(3611) = (X(3611)-JVS(16862)*X(4625)-JVS(16863)*X(5250)-JVS(16864)*X(5252)-JVS(16865)*X(5255)-JVS(16866)*X(5256))& - &/(JVS(16861)) - X(3610) = (X(3610)-JVS(16854)*X(4725)-JVS(16855)*X(5250)-JVS(16856)*X(5252)-JVS(16857)*X(5255)-JVS(16858)*X(5256))& - &/(JVS(16853)) - X(3609) = (X(3609)-JVS(16846)*X(4876)-JVS(16847)*X(5250)-JVS(16848)*X(5252)-JVS(16849)*X(5255)-JVS(16850)*X(5256))& - &/(JVS(16845)) - X(3608) = (X(3608)-JVS(16836)*X(4341)-JVS(16837)*X(4565)-JVS(16838)*X(4578)-JVS(16839)*X(5250)-JVS(16840)*X(5255))& - &/(JVS(16835)) - X(3607) = (X(3607)-JVS(16829)*X(5081)-JVS(16830)*X(5250)-JVS(16831)*X(5252)-JVS(16832)*X(5255)-JVS(16833)*X(5256))& - &/(JVS(16828)) - X(3606) = (X(3606)-JVS(16819)*X(4575)-JVS(16820)*X(5250)-JVS(16821)*X(5252)-JVS(16822)*X(5255)-JVS(16823)*X(5256))& - &/(JVS(16818)) - X(3605) = (X(3605)-JVS(16811)*X(4699)-JVS(16812)*X(5250)-JVS(16813)*X(5252)-JVS(16814)*X(5255)-JVS(16815)*X(5256))& - &/(JVS(16810)) - X(3604) = (X(3604)-JVS(16803)*X(4686)-JVS(16804)*X(4687)-JVS(16805)*X(5250)-JVS(16806)*X(5253)-JVS(16807)*X(5255))& - &/(JVS(16802)) - X(3603) = (X(3603)-JVS(16794)*X(4554)-JVS(16795)*X(4585)-JVS(16796)*X(5250)-JVS(16797)*X(5252)-JVS(16798)*X(5255))& - &/(JVS(16793)) - X(3602) = (X(3602)-JVS(16786)*X(4116)-JVS(16787)*X(4374)-JVS(16788)*X(5250)-JVS(16789)*X(5252)-JVS(16790)*X(5255))& - &/(JVS(16785)) - X(3601) = (X(3601)-JVS(16777)*X(3620)-JVS(16778)*X(4599)-JVS(16779)*X(5250)-JVS(16780)*X(5252)-JVS(16781)*X(5256))& - &/(JVS(16776)) - X(3600) = (X(3600)-JVS(16767)*X(4335)-JVS(16768)*X(5250)-JVS(16769)*X(5252)-JVS(16770)*X(5255)-JVS(16771)*X(5256))& - &/(JVS(16766)) - X(3599) = (X(3599)-JVS(16759)*X(4003)-JVS(16760)*X(4133)-JVS(16761)*X(5250)-JVS(16762)*X(5252)-JVS(16763)*X(5255))& - &/(JVS(16758)) - X(3598) = (X(3598)-JVS(16749)*X(4809)-JVS(16750)*X(5250)-JVS(16751)*X(5252)-JVS(16752)*X(5255)-JVS(16753)*X(5256))& - &/(JVS(16748)) - X(3597) = (X(3597)-JVS(16742)*X(4296)-JVS(16743)*X(5250)-JVS(16744)*X(5252)-JVS(16745)*X(5255)-JVS(16746)*X(5256))& - &/(JVS(16741)) - X(3596) = (X(3596)-JVS(16735)*X(4425)-JVS(16736)*X(5250)-JVS(16737)*X(5252)-JVS(16738)*X(5255)-JVS(16739)*X(5256))& - &/(JVS(16734)) - X(3595) = (X(3595)-JVS(16728)*X(4025)-JVS(16729)*X(5250)-JVS(16730)*X(5252)-JVS(16731)*X(5255)-JVS(16732)*X(5256))& - &/(JVS(16727)) - X(3594) = (X(3594)-JVS(16720)*X(5061)-JVS(16721)*X(5250)-JVS(16722)*X(5252)-JVS(16723)*X(5255)-JVS(16724)*X(5256))& - &/(JVS(16719)) - X(3593) = (X(3593)-JVS(16710)*X(4323)-JVS(16711)*X(5250)-JVS(16712)*X(5252)-JVS(16713)*X(5255)-JVS(16714)*X(5256))& - &/(JVS(16709)) - X(3592) = (X(3592)-JVS(16702)*X(4777)-JVS(16703)*X(5250)-JVS(16704)*X(5252)-JVS(16705)*X(5255)-JVS(16706)*X(5256))& - &/(JVS(16701)) - X(3591) = (X(3591)-JVS(16695)*X(4900)-JVS(16696)*X(5250)-JVS(16697)*X(5252)-JVS(16698)*X(5255)-JVS(16699)*X(5256))& - &/(JVS(16694)) - X(3590) = (X(3590)-JVS(16686)*X(4993)-JVS(16687)*X(5250)-JVS(16688)*X(5255)-JVS(16689)*X(5256)-JVS(16690)*X(5258))& - &/(JVS(16685)) - X(3589) = (X(3589)-JVS(16674)*X(4821)-JVS(16675)*X(5250)-JVS(16676)*X(5252)-JVS(16677)*X(5255)-JVS(16678)*X(5256))& - &/(JVS(16673)) - X(3588) = (X(3588)-JVS(16666)*X(4701)-JVS(16667)*X(5250)-JVS(16668)*X(5252)-JVS(16669)*X(5255)-JVS(16670)*X(5256))& - &/(JVS(16665)) - X(3587) = (X(3587)-JVS(16658)*X(4732)-JVS(16659)*X(4932)-JVS(16660)*X(5250)-JVS(16661)*X(5252)-JVS(16662)*X(5256))& - &/(JVS(16657)) - X(3586) = (X(3586)-JVS(16651)*X(4337)-JVS(16652)*X(5250)-JVS(16653)*X(5252)-JVS(16654)*X(5255)-JVS(16655)*X(5256))& - &/(JVS(16650)) - X(3585) = (X(3585)-JVS(16644)*X(4351)-JVS(16645)*X(5250)-JVS(16646)*X(5252)-JVS(16647)*X(5255)-JVS(16648)*X(5256))& - &/(JVS(16643)) - X(3584) = (X(3584)-JVS(16637)*X(4803)-JVS(16638)*X(5250)-JVS(16639)*X(5252)-JVS(16640)*X(5255)-JVS(16641)*X(5256))& - &/(JVS(16636)) - X(3583) = (X(3583)-JVS(16629)*X(4974)-JVS(16630)*X(5250)-JVS(16631)*X(5252)-JVS(16632)*X(5255)-JVS(16633)*X(5256))& - &/(JVS(16628)) - X(3582) = (X(3582)-JVS(16619)*X(4773)-JVS(16620)*X(5250)-JVS(16621)*X(5252)-JVS(16622)*X(5255)-JVS(16623)*X(5256))& - &/(JVS(16618)) - X(3581) = (X(3581)-JVS(16612)*X(4400)-JVS(16613)*X(5250)-JVS(16614)*X(5252)-JVS(16615)*X(5255)-JVS(16616)*X(5256))& - &/(JVS(16611)) - X(3580) = (X(3580)-JVS(16604)*X(4158)-JVS(16605)*X(4360)-JVS(16606)*X(5250)-JVS(16607)*X(5252)-JVS(16608)*X(5255))& - &/(JVS(16603)) - X(3579) = (X(3579)-JVS(16595)*X(4280)-JVS(16596)*X(5250)-JVS(16597)*X(5252)-JVS(16598)*X(5255)-JVS(16599)*X(5256))& - &/(JVS(16594)) - X(3578) = (X(3578)-JVS(16588)*X(4674)-JVS(16589)*X(5250)-JVS(16590)*X(5252)-JVS(16591)*X(5255)-JVS(16592)*X(5256))& - &/(JVS(16587)) - X(3577) = (X(3577)-JVS(16580)*X(4370)-JVS(16581)*X(5250)-JVS(16582)*X(5252)-JVS(16583)*X(5255)-JVS(16584)*X(5256))& - &/(JVS(16579)) - X(3576) = (X(3576)-JVS(16573)*X(4720)-JVS(16574)*X(5250)-JVS(16575)*X(5252)-JVS(16576)*X(5255)-JVS(16577)*X(5256))& - &/(JVS(16572)) - X(3575) = (X(3575)-JVS(16565)*X(4881)-JVS(16566)*X(5250)-JVS(16567)*X(5252)-JVS(16568)*X(5255)-JVS(16569)*X(5256))& - &/(JVS(16564)) - X(3574) = (X(3574)-JVS(16558)*X(4511)-JVS(16559)*X(5250)-JVS(16560)*X(5252)-JVS(16561)*X(5255)-JVS(16562)*X(5256))& - &/(JVS(16557)) - X(3573) = (X(3573)-JVS(16551)*X(4707)-JVS(16552)*X(5250)-JVS(16553)*X(5252)-JVS(16554)*X(5255)-JVS(16555)*X(5256))& - &/(JVS(16550)) - X(3572) = (X(3572)-JVS(16543)*X(4972)-JVS(16544)*X(5250)-JVS(16545)*X(5252)-JVS(16546)*X(5255)-JVS(16547)*X(5256))& - &/(JVS(16542)) - X(3571) = (X(3571)-JVS(16536)*X(4163)-JVS(16537)*X(5250)-JVS(16538)*X(5252)-JVS(16539)*X(5255)-JVS(16540)*X(5256))& - &/(JVS(16535)) - X(3570) = (X(3570)-JVS(16528)*X(4727)-JVS(16529)*X(5250)-JVS(16530)*X(5252)-JVS(16531)*X(5255)-JVS(16532)*X(5256))& - &/(JVS(16527)) - X(3569) = (X(3569)-JVS(16520)*X(4568)-JVS(16521)*X(5250)-JVS(16522)*X(5252)-JVS(16523)*X(5255)-JVS(16524)*X(5256))& - &/(JVS(16519)) - X(3568) = (X(3568)-JVS(16512)*X(5252)-JVS(16513)*X(5253)-JVS(16514)*X(5254)-JVS(16515)*X(5256)-JVS(16516)*X(5258))& - &/(JVS(16511)) - X(3567) = (X(3567)-JVS(16505)*X(4971)-JVS(16506)*X(5250)-JVS(16507)*X(5252)-JVS(16508)*X(5255)-JVS(16509)*X(5256))& - &/(JVS(16504)) - X(3566) = (X(3566)-JVS(16497)*X(3965)-JVS(16498)*X(4156)-JVS(16499)*X(4913)-JVS(16500)*X(5252)-JVS(16501)*X(5256))& - &/(JVS(16496)) - X(3565) = (X(3565)-JVS(16491)*X(4703)-JVS(16492)*X(5250)-JVS(16493)*X(5252)-JVS(16494)*X(5255)-JVS(16495)*X(5256))& - &/(JVS(16490)) - X(3564) = (X(3564)-JVS(16482)*X(4183)-JVS(16483)*X(4745)-JVS(16484)*X(5250)-JVS(16485)*X(5252)-JVS(16486)*X(5255)& - &-JVS(16487)*X(5256))/(JVS(16481)) - X(3563) = (X(3563)-JVS(16476)*X(5003)-JVS(16477)*X(5075)-JVS(16478)*X(5250)-JVS(16479)*X(5255))/(JVS(16475)) - X(3562) = (X(3562)-JVS(16470)*X(5250)-JVS(16471)*X(5252)-JVS(16472)*X(5255)-JVS(16473)*X(5256))/(JVS(16469)) - X(3561) = (X(3561)-JVS(16461)*X(4598)-JVS(16462)*X(4972)-JVS(16463)*X(5096)-JVS(16464)*X(5250)-JVS(16465)*X(5252)& - &-JVS(16466)*X(5255))/(JVS(16460)) - X(3560) = (X(3560)-JVS(16454)*X(5250)-JVS(16455)*X(5256)-JVS(16456)*X(5258))/(JVS(16453)) - X(3559) = (X(3559)-JVS(16448)*X(4563)-JVS(16449)*X(4830)-JVS(16450)*X(5250)-JVS(16451)*X(5253))/(JVS(16447)) - X(3558) = (X(3558)-JVS(16440)*X(5047)-JVS(16441)*X(5250)-JVS(16442)*X(5251)-JVS(16443)*X(5252)-JVS(16444)*X(5253)& - &-JVS(16445)*X(5254))/(JVS(16439)) - X(3557) = (X(3557)-JVS(16433)*X(4136)-JVS(16434)*X(4142)-JVS(16435)*X(5130)-JVS(16436)*X(5250)-JVS(16437)*X(5252)& - &-JVS(16438)*X(5255))/(JVS(16432)) - X(3556) = (X(3556)-JVS(16421)*X(4416)-JVS(16422)*X(4480)-JVS(16423)*X(5250)-JVS(16424)*X(5252)-JVS(16425)*X(5255)& - &-JVS(16426)*X(5256))/(JVS(16420)) - X(3555) = (X(3555)-JVS(16413)*X(5005)-JVS(16414)*X(5167)-JVS(16415)*X(5250)-JVS(16416)*X(5255))/(JVS(16412)) - X(3554) = (X(3554)-JVS(16407)*X(5250)-JVS(16408)*X(5252)-JVS(16409)*X(5255)-JVS(16410)*X(5256))/(JVS(16406)) - X(3553) = (X(3553)-JVS(16400)*X(4937)-JVS(16401)*X(5250)-JVS(16402)*X(5256)-JVS(16403)*X(5258))/(JVS(16399)) - X(3552) = (X(3552)-JVS(16395)*X(5173)-JVS(16396)*X(5250)-JVS(16397)*X(5255))/(JVS(16394)) - X(3551) = (X(3551)-JVS(16391)*X(5250)-JVS(16392)*X(5256)-JVS(16393)*X(5258))/(JVS(16390)) - X(3550) = (X(3550)-JVS(16386)*X(5134)-JVS(16387)*X(5250)-JVS(16388)*X(5255))/(JVS(16385)) - X(3549) = (X(3549)-JVS(16381)*X(4711)-JVS(16382)*X(5022)-JVS(16383)*X(5250)-JVS(16384)*X(5252))/(JVS(16380)) - X(3548) = (X(3548)-JVS(16375)*X(4709)-JVS(16376)*X(5250)-JVS(16377)*X(5252)-JVS(16378)*X(5255))/(JVS(16374)) - X(3547) = (X(3547)-JVS(16365)*X(4161)-JVS(16366)*X(4546)-JVS(16367)*X(4561)-JVS(16368)*X(5250)-JVS(16369)*X(5252)& - &-JVS(16370)*X(5255))/(JVS(16364)) - X(3546) = (X(3546)-JVS(16357)*X(4808)-JVS(16358)*X(5250)-JVS(16359)*X(5253)-JVS(16360)*X(5256))/(JVS(16356)) - X(3545) = (X(3545)-JVS(16352)*X(5250)-JVS(16353)*X(5256)-JVS(16354)*X(5258))/(JVS(16351)) - X(3544) = (X(3544)-JVS(16346)*X(4712)-JVS(16347)*X(5250)-JVS(16348)*X(5252)-JVS(16349)*X(5255))/(JVS(16345)) - X(3543) = (X(3543)-JVS(16338)*X(4069)-JVS(16339)*X(5250)-JVS(16340)*X(5255)-JVS(16341)*X(5256))/(JVS(16337)) - X(3542) = (X(3542)-JVS(16329)*X(4582)-JVS(16330)*X(4879)-JVS(16331)*X(5135)-JVS(16332)*X(5250)-JVS(16333)*X(5252)& - &-JVS(16334)*X(5255))/(JVS(16328)) - X(3541) = (X(3541)-JVS(16317)*X(4246)-JVS(16318)*X(4262)-JVS(16319)*X(4304)-JVS(16320)*X(4464)-JVS(16321)*X(5250)& - &-JVS(16322)*X(5252)-JVS(16323)*X(5255)-JVS(16324)*X(5256))/(JVS(16316)) - X(3540) = (X(3540)-JVS(16309)*X(4705)-JVS(16310)*X(5250)-JVS(16311)*X(5255))/(JVS(16308)) - X(3539) = (X(3539)-JVS(16304)*X(5250)-JVS(16305)*X(5252)-JVS(16306)*X(5255)-JVS(16307)*X(5256))/(JVS(16303)) - X(3538) = (X(3538)-JVS(16297)*X(5250)-JVS(16298)*X(5252)-JVS(16299)*X(5255)-JVS(16300)*X(5256))/(JVS(16296)) - X(3537) = (X(3537)-JVS(16290)*X(4573)-JVS(16291)*X(5250)-JVS(16292)*X(5252)-JVS(16293)*X(5255))/(JVS(16289)) - X(3536) = (X(3536)-JVS(16278)*X(4140)-JVS(16279)*X(4473)-JVS(16280)*X(4647)-JVS(16281)*X(4841)-JVS(16282)*X(5250)& - &-JVS(16283)*X(5252)-JVS(16284)*X(5255)-JVS(16285)*X(5256))/(JVS(16277)) - X(3535) = (X(3535)-JVS(16267)*X(4422)-JVS(16268)*X(4440)-JVS(16269)*X(5250)-JVS(16270)*X(5252)-JVS(16271)*X(5255)& - &-JVS(16272)*X(5256))/(JVS(16266)) - X(3534) = (X(3534)-JVS(16259)*X(5250)-JVS(16260)*X(5252)-JVS(16261)*X(5255)-JVS(16262)*X(5256))/(JVS(16258)) - X(3533) = (X(3533)-JVS(16253)*X(5239)-JVS(16254)*X(5250)-JVS(16255)*X(5252))/(JVS(16252)) - X(3532) = (X(3532)-JVS(16248)*X(5005)-JVS(16249)*X(5167)-JVS(16250)*X(5250)-JVS(16251)*X(5253))/(JVS(16247)) - X(3531) = (X(3531)-JVS(16242)*X(5250)-JVS(16243)*X(5252)-JVS(16244)*X(5255)-JVS(16245)*X(5256))/(JVS(16241)) - X(3530) = (X(3530)-JVS(16233)*X(4300)-JVS(16234)*X(4784)-JVS(16235)*X(5250)-JVS(16236)*X(5252)-JVS(16237)*X(5255)& - &-JVS(16238)*X(5256))/(JVS(16232)) - X(3529) = (X(3529)-JVS(16225)*X(5133)-JVS(16226)*X(5155)-JVS(16227)*X(5250)-JVS(16228)*X(5253))/(JVS(16224)) - X(3528) = (X(3528)-JVS(16220)*X(4967)-JVS(16221)*X(5250)-JVS(16222)*X(5255))/(JVS(16219)) - X(3527) = (X(3527)-JVS(16215)*X(5250)-JVS(16216)*X(5252)-JVS(16217)*X(5255)-JVS(16218)*X(5256))/(JVS(16214)) - X(3526) = (X(3526)-JVS(16208)*X(4589)-JVS(16209)*X(5250)-JVS(16210)*X(5255)-JVS(16211)*X(5256))/(JVS(16207)) - X(3525) = (X(3525)-JVS(16202)*X(5250)-JVS(16203)*X(5252)-JVS(16204)*X(5255)-JVS(16205)*X(5256))/(JVS(16201)) - X(3524) = (X(3524)-JVS(16197)*X(4617)-JVS(16198)*X(5250)-JVS(16199)*X(5255))/(JVS(16196)) - X(3523) = (X(3523)-JVS(16192)*X(5250)-JVS(16193)*X(5252)-JVS(16194)*X(5255)-JVS(16195)*X(5256))/(JVS(16191)) - X(3522) = (X(3522)-JVS(16186)*X(4713)-JVS(16187)*X(5250)-JVS(16188)*X(5252)-JVS(16189)*X(5255))/(JVS(16185)) - X(3521) = (X(3521)-JVS(16178)*X(5250)-JVS(16179)*X(5252)-JVS(16180)*X(5255)-JVS(16181)*X(5256))/(JVS(16177)) - X(3520) = (X(3520)-JVS(16172)*X(4695)-JVS(16173)*X(4922)-JVS(16174)*X(5250)-JVS(16175)*X(5252))/(JVS(16171)) - X(3519) = (X(3519)-JVS(16167)*X(4950)-JVS(16168)*X(5250)-JVS(16169)*X(5256)-JVS(16170)*X(5258))/(JVS(16166)) - X(3518) = (X(3518)-JVS(16162)*X(5250)-JVS(16163)*X(5252)-JVS(16164)*X(5255)-JVS(16165)*X(5256))/(JVS(16161)) - X(3517) = (X(3517)-JVS(16156)*X(4988)-JVS(16157)*X(5250)-JVS(16158)*X(5258))/(JVS(16155)) - X(3516) = (X(3516)-JVS(16142)*X(3517)-JVS(16143)*X(4249)-JVS(16144)*X(4757)-JVS(16145)*X(5249)-JVS(16146)*X(5250)& - &-JVS(16147)*X(5251)-JVS(16148)*X(5252)-JVS(16149)*X(5253)-JVS(16150)*X(5254)-JVS(16151)*X(5255)-JVS(16152)& - &*X(5256)-JVS(16153)*X(5258))/(JVS(16141)) - X(3515) = (X(3515)-JVS(16132)*X(4795)-JVS(16133)*X(5036)-JVS(16134)*X(5250)-JVS(16135)*X(5255))/(JVS(16131)) - X(3514) = (X(3514)-JVS(16124)*X(4321)-JVS(16125)*X(4711)-JVS(16126)*X(5016)-JVS(16127)*X(5250)-JVS(16128)*X(5252)& - &-JVS(16129)*X(5255))/(JVS(16123)) - X(3513) = (X(3513)-JVS(16116)*X(4911)-JVS(16117)*X(5250)-JVS(16118)*X(5255)-JVS(16119)*X(5256))/(JVS(16115)) - X(3512) = (X(3512)-JVS(16111)*X(5250)-JVS(16112)*X(5256)-JVS(16113)*X(5258))/(JVS(16110)) - X(3511) = (X(3511)-JVS(16105)*X(5250)-JVS(16106)*X(5252)-JVS(16107)*X(5255)-JVS(16108)*X(5256))/(JVS(16104)) - X(3510) = (X(3510)-JVS(16098)*X(4595)-JVS(16099)*X(5250)-JVS(16100)*X(5255)-JVS(16101)*X(5256))/(JVS(16097)) - X(3509) = (X(3509)-JVS(16092)*X(5250)-JVS(16093)*X(5252)-JVS(16094)*X(5255)-JVS(16095)*X(5256))/(JVS(16091)) - X(3508) = (X(3508)-JVS(16087)*X(5250)-JVS(16088)*X(5256)-JVS(16089)*X(5258))/(JVS(16086)) - X(3507) = (X(3507)-JVS(16081)*X(5250)-JVS(16082)*X(5252)-JVS(16083)*X(5255)-JVS(16084)*X(5256))/(JVS(16080)) - X(3506) = (X(3506)-JVS(16076)*X(5250)-JVS(16077)*X(5256)-JVS(16078)*X(5258))/(JVS(16075)) - X(3505) = (X(3505)-JVS(16070)*X(5109)-JVS(16071)*X(5250)-JVS(16072)*X(5252)-JVS(16073)*X(5255))/(JVS(16069)) - X(3504) = (X(3504)-JVS(16062)*X(4716)-JVS(16063)*X(5250)-JVS(16064)*X(5252)-JVS(16065)*X(5255))/(JVS(16061)) - X(3503) = (X(3503)-JVS(16054)*X(5250)-JVS(16055)*X(5252)-JVS(16056)*X(5255)-JVS(16057)*X(5256))/(JVS(16053)) - X(3502) = (X(3502)-JVS(16047)*X(5133)-JVS(16048)*X(5155)-JVS(16049)*X(5250)-JVS(16050)*X(5255))/(JVS(16046)) - X(3501) = (X(3501)-JVS(16042)*X(4321)-JVS(16043)*X(5250)-JVS(16044)*X(5255))/(JVS(16041)) - X(3500) = (X(3500)-JVS(16037)*X(5005)-JVS(16038)*X(5167)-JVS(16039)*X(5250)-JVS(16040)*X(5255))/(JVS(16036)) - X(3499) = (X(3499)-JVS(16032)*X(5250)-JVS(16033)*X(5256)-JVS(16034)*X(5258))/(JVS(16031)) - X(3498) = (X(3498)-JVS(16024)*X(3757)-JVS(16025)*X(4223)-JVS(16026)*X(4336)-JVS(16027)*X(4390)-JVS(16028)*X(5250)& - &-JVS(16029)*X(5255))/(JVS(16023)) - X(3497) = (X(3497)-JVS(16015)*X(4363)-JVS(16016)*X(4394)-JVS(16017)*X(5250)-JVS(16018)*X(5252)-JVS(16019)*X(5255)& - &-JVS(16020)*X(5256))/(JVS(16014)) - X(3496) = (X(3496)-JVS(16005)*X(4907)-JVS(16006)*X(5252)-JVS(16007)*X(5255)-JVS(16008)*X(5256))/(JVS(16004)) - X(3495) = (X(3495)-JVS(16001)*X(4625)-JVS(16002)*X(5250)-JVS(16003)*X(5255))/(JVS(16000)) - X(3494) = (X(3494)-JVS(15997)*X(5250)-JVS(15998)*X(5256)-JVS(15999)*X(5258))/(JVS(15996)) - X(3493) = (X(3493)-JVS(15991)*X(4715)-JVS(15992)*X(5250)-JVS(15993)*X(5252)-JVS(15994)*X(5255))/(JVS(15990)) - X(3492) = (X(3492)-JVS(15983)*X(5250)-JVS(15984)*X(5252)-JVS(15985)*X(5255)-JVS(15986)*X(5256))/(JVS(15982)) - X(3491) = (X(3491)-JVS(15977)*X(5250)-JVS(15978)*X(5252)-JVS(15979)*X(5255)-JVS(15980)*X(5256))/(JVS(15976)) - X(3490) = (X(3490)-JVS(15970)*X(3620)-JVS(15971)*X(4599)-JVS(15972)*X(5252)-JVS(15973)*X(5256))/(JVS(15969)) - X(3489) = (X(3489)-JVS(15965)*X(5250)-JVS(15966)*X(5252)-JVS(15967)*X(5255)-JVS(15968)*X(5256))/(JVS(15964)) - X(3488) = (X(3488)-JVS(15958)*X(4774)-JVS(15959)*X(5250)-JVS(15960)*X(5255)-JVS(15961)*X(5256))/(JVS(15957)) - X(3487) = (X(3487)-JVS(15953)*X(4948)-JVS(15954)*X(5250)-JVS(15955)*X(5255))/(JVS(15952)) - X(3486) = (X(3486)-JVS(15948)*X(4971)-JVS(15949)*X(5250)-JVS(15950)*X(5252)-JVS(15951)*X(5255))/(JVS(15947)) - X(3485) = (X(3485)-JVS(15941)*X(5022)-JVS(15942)*X(5250)-JVS(15943)*X(5255))/(JVS(15940)) - X(3484) = (X(3484)-JVS(15936)*X(4449)-JVS(15937)*X(4490)-JVS(15938)*X(5250)-JVS(15939)*X(5256))/(JVS(15935)) - X(3483) = (X(3483)-JVS(15931)*X(4732)-JVS(15932)*X(5250)-JVS(15933)*X(5255)-JVS(15934)*X(5256))/(JVS(15930)) - X(3482) = (X(3482)-JVS(15925)*X(5250)-JVS(15926)*X(5256)-JVS(15927)*X(5258))/(JVS(15924)) - X(3481) = (X(3481)-JVS(15919)*X(5250)-JVS(15920)*X(5252)-JVS(15921)*X(5255)-JVS(15922)*X(5256))/(JVS(15918)) - X(3480) = (X(3480)-JVS(15914)*X(4779)-JVS(15915)*X(5250)-JVS(15916)*X(5255))/(JVS(15913)) - X(3479) = (X(3479)-JVS(15907)*X(4096)-JVS(15908)*X(4512)-JVS(15909)*X(4601)-JVS(15910)*X(4786)-JVS(15911)*X(4794)& - &-JVS(15912)*X(5258))/(JVS(15906)) - X(3478) = (X(3478)-JVS(15898)*X(4195)-JVS(15899)*X(4271)-JVS(15900)*X(4273)-JVS(15901)*X(4467)-JVS(15902)*X(5250)& - &-JVS(15903)*X(5252)-JVS(15904)*X(5255)-JVS(15905)*X(5256))/(JVS(15897)) - X(3477) = (X(3477)-JVS(15889)*X(5003)-JVS(15890)*X(5075)-JVS(15891)*X(5250)-JVS(15892)*X(5255))/(JVS(15888)) - X(3476) = (X(3476)-JVS(15883)*X(3618)-JVS(15884)*X(5100)-JVS(15885)*X(5250)-JVS(15886)*X(5255))/(JVS(15882)) - X(3475) = (X(3475)-JVS(15879)*X(4773)-JVS(15880)*X(5250)-JVS(15881)*X(5255))/(JVS(15878)) - X(3474) = (X(3474)-JVS(15871)*X(4041)-JVS(15872)*X(4181)-JVS(15873)*X(5250)-JVS(15874)*X(5252)-JVS(15875)*X(5253)& - &-JVS(15876)*X(5255)-JVS(15877)*X(5256))/(JVS(15870)) - X(3473) = (X(3473)-JVS(15865)*X(4365)-JVS(15866)*X(5250)-JVS(15867)*X(5255))/(JVS(15864)) - X(3472) = (X(3472)-JVS(15861)*X(4609)-JVS(15862)*X(5250)-JVS(15863)*X(5256))/(JVS(15860)) - X(3471) = (X(3471)-JVS(15857)*X(5064)-JVS(15858)*X(5250)-JVS(15859)*X(5256))/(JVS(15856)) - X(3470) = (X(3470)-JVS(15853)*X(4107)-JVS(15854)*X(5250)-JVS(15855)*X(5256))/(JVS(15852)) - X(3469) = (X(3469)-JVS(15848)*X(4887)-JVS(15849)*X(5250)-JVS(15850)*X(5255))/(JVS(15847)) - X(3468) = (X(3468)-JVS(15844)*X(4893)-JVS(15845)*X(5250)-JVS(15846)*X(5255))/(JVS(15843)) - X(3467) = (X(3467)-JVS(15840)*X(4792)-JVS(15841)*X(5250)-JVS(15842)*X(5255))/(JVS(15839)) - X(3466) = (X(3466)-JVS(15836)*X(5250)-JVS(15837)*X(5256)-JVS(15838)*X(5258))/(JVS(15835)) - X(3465) = (X(3465)-JVS(15832)*X(5250)-JVS(15833)*X(5256)-JVS(15834)*X(5258))/(JVS(15831)) - X(3464) = (X(3464)-JVS(15828)*X(3707)-JVS(15829)*X(4758)-JVS(15830)*X(5250))/(JVS(15827)) - X(3463) = (X(3463)-JVS(15824)*X(4864)-JVS(15825)*X(5250)-JVS(15826)*X(5255))/(JVS(15823)) - X(3462) = (X(3462)-JVS(15820)*X(4783)-JVS(15821)*X(5250)-JVS(15822)*X(5255))/(JVS(15819)) - X(3461) = (X(3461)-JVS(15812)*X(4050)-JVS(15813)*X(4051)-JVS(15814)*X(5250)-JVS(15815)*X(5252)-JVS(15816)*X(5253)& - &-JVS(15817)*X(5255)-JVS(15818)*X(5256))/(JVS(15811)) - X(3460) = (X(3460)-JVS(15806)*X(4335)-JVS(15807)*X(5250)-JVS(15808)*X(5252))/(JVS(15805)) - X(3459) = (X(3459)-JVS(15802)*X(4732)-JVS(15803)*X(5250)-JVS(15804)*X(5255))/(JVS(15801)) - X(3458) = (X(3458)-JVS(15798)*X(5034)-JVS(15799)*X(5250)-JVS(15800)*X(5255))/(JVS(15797)) - X(3457) = (X(3457)-JVS(15794)*X(4400)-JVS(15795)*X(5250)-JVS(15796)*X(5252))/(JVS(15793)) - X(3456) = (X(3456)-JVS(15786)*X(4005)-JVS(15787)*X(4100)-JVS(15788)*X(5250)-JVS(15789)*X(5252)-JVS(15790)*X(5253)& - &-JVS(15791)*X(5255)-JVS(15792)*X(5256))/(JVS(15785)) - X(3455) = (X(3455)-JVS(15780)*X(4706)-JVS(15781)*X(5250)-JVS(15782)*X(5255))/(JVS(15779)) - X(3454) = (X(3454)-JVS(15776)*X(4113)-JVS(15777)*X(5250)-JVS(15778)*X(5256))/(JVS(15775)) - X(3453) = (X(3453)-JVS(15771)*X(4877)-JVS(15772)*X(5250)-JVS(15773)*X(5255))/(JVS(15770)) - X(3452) = (X(3452)-JVS(15767)*X(4899)-JVS(15768)*X(5250)-JVS(15769)*X(5255))/(JVS(15766)) - X(3451) = (X(3451)-JVS(15763)*X(4905)-JVS(15764)*X(5250)-JVS(15765)*X(5255))/(JVS(15762)) - X(3450) = (X(3450)-JVS(15759)*X(4887)-JVS(15760)*X(4899)-JVS(15761)*X(5250))/(JVS(15758)) - X(3449) = (X(3449)-JVS(15753)*X(4339)-JVS(15754)*X(5250)-JVS(15755)*X(5255))/(JVS(15752)) - X(3448) = (X(3448)-JVS(15749)*X(5128)-JVS(15750)*X(5250)-JVS(15751)*X(5255))/(JVS(15748)) - X(3447) = (X(3447)-JVS(15745)*X(4157)-JVS(15746)*X(5250)-JVS(15747)*X(5252))/(JVS(15744)) - X(3446) = (X(3446)-JVS(15741)*X(4358)-JVS(15742)*X(5250)-JVS(15743)*X(5255))/(JVS(15740)) - X(3445) = (X(3445)-JVS(15737)*X(4074)-JVS(15738)*X(5250)-JVS(15739)*X(5252))/(JVS(15736)) - X(3444) = (X(3444)-JVS(15733)*X(4647)-JVS(15734)*X(5250)-JVS(15735)*X(5255))/(JVS(15732)) - X(3443) = (X(3443)-JVS(15729)*X(5035)-JVS(15730)*X(5250)-JVS(15731)*X(5252))/(JVS(15728)) - X(3442) = (X(3442)-JVS(15725)*X(5250)-JVS(15726)*X(5256)-JVS(15727)*X(5258))/(JVS(15724)) - X(3441) = (X(3441)-JVS(15721)*X(4769)-JVS(15722)*X(5250)-JVS(15723)*X(5255))/(JVS(15720)) - X(3440) = (X(3440)-JVS(15715)*X(4068)-JVS(15716)*X(5250)-JVS(15717)*X(5252)-JVS(15718)*X(5255)-JVS(15719)*X(5256))& - &/(JVS(15714)) - X(3439) = (X(3439)-JVS(15708)*X(4068)-JVS(15709)*X(5250)-JVS(15710)*X(5252))/(JVS(15707)) - X(3438) = (X(3438)-JVS(15704)*X(4568)-JVS(15705)*X(5250)-JVS(15706)*X(5252))/(JVS(15703)) - X(3437) = (X(3437)-JVS(15700)*X(4937)-JVS(15701)*X(5250)-JVS(15702)*X(5256))/(JVS(15699)) - X(3436) = (X(3436)-JVS(15696)*X(5073)-JVS(15697)*X(5250)-JVS(15698)*X(5253))/(JVS(15695)) - X(3435) = (X(3435)-JVS(15692)*X(4028)-JVS(15693)*X(5250)-JVS(15694)*X(5252))/(JVS(15691)) - X(3434) = (X(3434)-JVS(15686)*X(4920)-JVS(15687)*X(4977)-JVS(15688)*X(5250)-JVS(15689)*X(5253)-JVS(15690)*X(5255))& - &/(JVS(15685)) - X(3433) = (X(3433)-JVS(15678)*X(4803)-JVS(15679)*X(5250)-JVS(15680)*X(5252)-JVS(15681)*X(5255))/(JVS(15677)) - X(3432) = (X(3432)-JVS(15670)*X(3887)-JVS(15671)*X(4700)-JVS(15672)*X(5250)-JVS(15673)*X(5255))/(JVS(15669)) - X(3431) = (X(3431)-JVS(15663)*X(4147)-JVS(15664)*X(5104)-JVS(15665)*X(5250)-JVS(15666)*X(5252)-JVS(15667)*X(5255))& - &/(JVS(15662)) - X(3430) = (X(3430)-JVS(15654)*X(4342)-JVS(15655)*X(5250)-JVS(15656)*X(5252)-JVS(15657)*X(5255)-JVS(15658)*X(5256))& - &/(JVS(15653)) - X(3429) = (X(3429)-JVS(15646)*X(5062)-JVS(15647)*X(5250)-JVS(15648)*X(5252)-JVS(15649)*X(5255)-JVS(15650)*X(5256))& - &/(JVS(15645)) - X(3428) = (X(3428)-JVS(15639)*X(5219)-JVS(15640)*X(5224)-JVS(15641)*X(5250)-JVS(15642)*X(5255))/(JVS(15638)) - X(3427) = (X(3427)-JVS(15633)*X(4377)-JVS(15634)*X(5250)-JVS(15635)*X(5252))/(JVS(15632)) - X(3426) = (X(3426)-JVS(15628)*X(3427)-JVS(15629)*X(4377)-JVS(15630)*X(5250)-JVS(15631)*X(5255))/(JVS(15627)) - X(3425) = (X(3425)-JVS(15620)*X(4363)-JVS(15621)*X(5250)-JVS(15622)*X(5252)-JVS(15623)*X(5255)-JVS(15624)*X(5256))& - &/(JVS(15619)) - X(3424) = (X(3424)-JVS(15612)*X(4196)-JVS(15613)*X(5250)-JVS(15614)*X(5252)-JVS(15615)*X(5255)-JVS(15616)*X(5256))& - &/(JVS(15611)) - X(3423) = (X(3423)-JVS(15604)*X(3772)-JVS(15605)*X(5250)-JVS(15606)*X(5252)-JVS(15607)*X(5255)-JVS(15608)*X(5256))& - &/(JVS(15603)) - X(3422) = (X(3422)-JVS(15597)*X(4473)-JVS(15598)*X(5250)-JVS(15599)*X(5252)-JVS(15600)*X(5255)-JVS(15601)*X(5256))& - &/(JVS(15596)) - X(3421) = (X(3421)-JVS(15590)*X(4237)-JVS(15591)*X(5250)-JVS(15592)*X(5252)-JVS(15593)*X(5255)-JVS(15594)*X(5256))& - &/(JVS(15589)) - X(3420) = (X(3420)-JVS(15583)*X(4172)-JVS(15584)*X(4764)-JVS(15585)*X(5250)-JVS(15586)*X(5252)-JVS(15587)*X(5255))& - &/(JVS(15582)) - X(3419) = (X(3419)-JVS(15574)*X(3441)-JVS(15575)*X(4769)-JVS(15576)*X(5252)-JVS(15577)*X(5256))/(JVS(15573)) - X(3418) = (X(3418)-JVS(15569)*X(3956)-JVS(15570)*X(4714)-JVS(15571)*X(5250)-JVS(15572)*X(5255))/(JVS(15568)) - X(3417) = (X(3417)-JVS(15562)*X(4434)-JVS(15563)*X(5250)-JVS(15564)*X(5252)-JVS(15565)*X(5255)-JVS(15566)*X(5256))& - &/(JVS(15561)) - X(3416) = (X(3416)-JVS(15556)*X(4720)-JVS(15557)*X(5250)-JVS(15558)*X(5252)-JVS(15559)*X(5255))/(JVS(15555)) - X(3415) = (X(3415)-JVS(15547)*X(4354)-JVS(15548)*X(5250)-JVS(15549)*X(5252)-JVS(15550)*X(5255)-JVS(15551)*X(5256))& - &/(JVS(15546)) - X(3414) = (X(3414)-JVS(15540)*X(4194)-JVS(15541)*X(5250)-JVS(15542)*X(5252)-JVS(15543)*X(5255)-JVS(15544)*X(5256))& - &/(JVS(15539)) - X(3413) = (X(3413)-JVS(15533)*X(5118)-JVS(15534)*X(5204)-JVS(15535)*X(5217)-JVS(15536)*X(5218)-JVS(15537)*X(5250))& - &/(JVS(15532)) - X(3412) = (X(3412)-JVS(15527)*X(3819)-JVS(15528)*X(5250)-JVS(15529)*X(5252)-JVS(15530)*X(5255)-JVS(15531)*X(5256))& - &/(JVS(15526)) - X(3411) = (X(3411)-JVS(15518)*X(4725)-JVS(15519)*X(5250)-JVS(15520)*X(5252)-JVS(15521)*X(5255))/(JVS(15517)) - X(3410) = (X(3410)-JVS(15509)*X(3874)-JVS(15510)*X(5250)-JVS(15511)*X(5252)-JVS(15512)*X(5255)-JVS(15513)*X(5256))& - &/(JVS(15508)) - X(3409) = (X(3409)-JVS(15503)*X(3922)-JVS(15504)*X(4782)-JVS(15505)*X(5250)-JVS(15506)*X(5255))/(JVS(15502)) - X(3408) = (X(3408)-JVS(15497)*X(4926)-JVS(15498)*X(4957)-JVS(15499)*X(5250)-JVS(15500)*X(5253))/(JVS(15496)) - X(3407) = (X(3407)-JVS(15490)*X(3728)-JVS(15491)*X(5250)-JVS(15492)*X(5252)-JVS(15493)*X(5255)-JVS(15494)*X(5256))& - &/(JVS(15489)) - X(3406) = (X(3406)-JVS(15483)*X(4726)-JVS(15484)*X(5250)-JVS(15485)*X(5252)-JVS(15486)*X(5255)-JVS(15487)*X(5256))& - &/(JVS(15482)) - X(3405) = (X(3405)-JVS(15476)*X(4610)-JVS(15477)*X(5250)-JVS(15478)*X(5252)-JVS(15479)*X(5255)-JVS(15480)*X(5256))& - &/(JVS(15475)) - X(3404) = (X(3404)-JVS(15468)*X(4901)-JVS(15469)*X(5250)-JVS(15470)*X(5252)-JVS(15471)*X(5255)-JVS(15472)*X(5256))& - &/(JVS(15467)) - X(3403) = (X(3403)-JVS(15460)*X(4167)-JVS(15461)*X(5250)-JVS(15462)*X(5252)-JVS(15463)*X(5255)-JVS(15464)*X(5256))& - &/(JVS(15459)) - X(3402) = (X(3402)-JVS(15451)*X(4415)-JVS(15452)*X(5250)-JVS(15453)*X(5252)-JVS(15454)*X(5255)-JVS(15455)*X(5256))& - &/(JVS(15450)) - X(3401) = (X(3401)-JVS(15445)*X(4795)-JVS(15446)*X(5036)-JVS(15447)*X(5250)-JVS(15448)*X(5253))/(JVS(15444)) - X(3400) = (X(3400)-JVS(15438)*X(4101)-JVS(15439)*X(5250)-JVS(15440)*X(5252)-JVS(15441)*X(5255)-JVS(15442)*X(5256))& - &/(JVS(15437)) - X(3399) = (X(3399)-JVS(15432)*X(3878)-JVS(15433)*X(4593)-JVS(15434)*X(5250)-JVS(15435)*X(5255))/(JVS(15431)) - X(3398) = (X(3398)-JVS(15425)*X(3852)-JVS(15426)*X(5250)-JVS(15427)*X(5252)-JVS(15428)*X(5255)-JVS(15429)*X(5256))& - &/(JVS(15424)) - X(3397) = (X(3397)-JVS(15417)*X(4130)-JVS(15418)*X(4385)-JVS(15419)*X(5250)-JVS(15420)*X(5252)-JVS(15421)*X(5255))& - &/(JVS(15416)) - X(3396) = (X(3396)-JVS(15406)*X(3713)-JVS(15407)*X(5250)-JVS(15408)*X(5252)-JVS(15409)*X(5255)-JVS(15410)*X(5256))& - &/(JVS(15405)) - X(3395) = (X(3395)-JVS(15399)*X(4307)-JVS(15400)*X(5250)-JVS(15401)*X(5252)-JVS(15402)*X(5255)-JVS(15403)*X(5256))& - &/(JVS(15398)) - X(3394) = (X(3394)-JVS(15392)*X(5050)-JVS(15393)*X(5228)-JVS(15394)*X(5250)-JVS(15395)*X(5252)-JVS(15396)*X(5258))& - &/(JVS(15391)) - X(3393) = (X(3393)-JVS(15385)*X(4577)-JVS(15386)*X(5250)-JVS(15387)*X(5252)-JVS(15388)*X(5255)-JVS(15389)*X(5256))& - &/(JVS(15384)) - X(3392) = (X(3392)-JVS(15378)*X(5003)-JVS(15379)*X(5075)-JVS(15380)*X(5250)-JVS(15381)*X(5253))/(JVS(15377)) - X(3391) = (X(3391)-JVS(15372)*X(4890)-JVS(15373)*X(5250)-JVS(15374)*X(5252)-JVS(15375)*X(5255))/(JVS(15371)) - X(3390) = (X(3390)-JVS(15363)*X(4781)-JVS(15364)*X(5250)-JVS(15365)*X(5252)-JVS(15366)*X(5255)-JVS(15367)*X(5256))& - &/(JVS(15362)) - X(3389) = (X(3389)-JVS(15356)*X(4765)-JVS(15357)*X(5250)-JVS(15358)*X(5252)-JVS(15359)*X(5255)-JVS(15360)*X(5256))& - &/(JVS(15355)) - X(3388) = (X(3388)-JVS(15347)*X(4455)-JVS(15348)*X(5250)-JVS(15349)*X(5252)-JVS(15350)*X(5255)-JVS(15351)*X(5256))& - &/(JVS(15346)) - X(3387) = (X(3387)-JVS(15341)*X(4795)-JVS(15342)*X(5036)-JVS(15343)*X(5250)-JVS(15344)*X(5255))/(JVS(15340)) - X(3386) = (X(3386)-JVS(15334)*X(4870)-JVS(15335)*X(5250)-JVS(15336)*X(5252)-JVS(15337)*X(5255)-JVS(15338)*X(5256))& - &/(JVS(15333)) - X(3385) = (X(3385)-JVS(15326)*X(4038)-JVS(15327)*X(4338)-JVS(15328)*X(5250)-JVS(15329)*X(5253)-JVS(15330)*X(5255))& - &/(JVS(15325)) - X(3384) = (X(3384)-JVS(15319)*X(4334)-JVS(15320)*X(5250)-JVS(15321)*X(5252)-JVS(15322)*X(5255)-JVS(15323)*X(5256))& - &/(JVS(15318)) - X(3383) = (X(3383)-JVS(15309)*X(3540)-JVS(15310)*X(4705)-JVS(15311)*X(5250)-JVS(15312)*X(5252)-JVS(15313)*X(5256))& - &/(JVS(15308)) - X(3382) = (X(3382)-JVS(15303)*X(5108)-JVS(15304)*X(5250)-JVS(15305)*X(5252)-JVS(15306)*X(5255))/(JVS(15302)) - X(3381) = (X(3381)-JVS(15295)*X(4643)-JVS(15296)*X(5250)-JVS(15297)*X(5252)-JVS(15298)*X(5255)-JVS(15299)*X(5256))& - &/(JVS(15294)) - X(3380) = (X(3380)-JVS(15288)*X(3774)-JVS(15289)*X(5250)-JVS(15290)*X(5252)-JVS(15291)*X(5255)-JVS(15292)*X(5256))& - &/(JVS(15287)) - X(3379) = (X(3379)-JVS(15283)*X(4821)-JVS(15284)*X(5250)-JVS(15285)*X(5252))/(JVS(15282)) - X(3378) = (X(3378)-JVS(15278)*X(3379)-JVS(15279)*X(4821)-JVS(15280)*X(5250)-JVS(15281)*X(5255))/(JVS(15277)) - X(3377) = (X(3377)-JVS(15270)*X(4876)-JVS(15271)*X(5250)-JVS(15272)*X(5252)-JVS(15273)*X(5255)-JVS(15274)*X(5256))& - &/(JVS(15269)) - X(3376) = (X(3376)-JVS(15263)*X(3842)-JVS(15264)*X(4702)-JVS(15265)*X(5250)-JVS(15266)*X(5255))/(JVS(15262)) - X(3375) = (X(3375)-JVS(15256)*X(4458)-JVS(15257)*X(5250)-JVS(15258)*X(5252)-JVS(15259)*X(5255)-JVS(15260)*X(5256))& - &/(JVS(15255)) - X(3374) = (X(3374)-JVS(15249)*X(3957)-JVS(15250)*X(4825)-JVS(15251)*X(5250)-JVS(15252)*X(5252)-JVS(15253)*X(5255))& - &/(JVS(15248)) - X(3373) = (X(3373)-JVS(15240)*X(4162)-JVS(15241)*X(4748)-JVS(15242)*X(5250)-JVS(15243)*X(5252)-JVS(15244)*X(5255))& - &/(JVS(15239)) - X(3372) = (X(3372)-JVS(15230)*X(3823)-JVS(15231)*X(4529)-JVS(15232)*X(5250)-JVS(15233)*X(5252)-JVS(15234)*X(5255))& - &/(JVS(15229)) - X(3371) = (X(3371)-JVS(15220)*X(4498)-JVS(15221)*X(5250)-JVS(15222)*X(5252)-JVS(15223)*X(5255)-JVS(15224)*X(5256))& - &/(JVS(15219)) - X(3370) = (X(3370)-JVS(15213)*X(4467)-JVS(15214)*X(5250)-JVS(15215)*X(5252)-JVS(15216)*X(5255)-JVS(15217)*X(5256))& - &/(JVS(15212)) - X(3369) = (X(3369)-JVS(15206)*X(5045)-JVS(15207)*X(5250)-JVS(15208)*X(5252)-JVS(15209)*X(5255)-JVS(15210)*X(5256))& - &/(JVS(15205)) - X(3368) = (X(3368)-JVS(15196)*X(3807)-JVS(15197)*X(5250)-JVS(15198)*X(5252)-JVS(15199)*X(5255)-JVS(15200)*X(5256))& - &/(JVS(15195)) - X(3367) = (X(3367)-JVS(15186)*X(4784)-JVS(15187)*X(5250)-JVS(15188)*X(5252)-JVS(15189)*X(5255)-JVS(15190)*X(5256))& - &/(JVS(15185)) - X(3366) = (X(3366)-JVS(15178)*X(3624)-JVS(15179)*X(3702)-JVS(15180)*X(5011)-JVS(15181)*X(5250)-JVS(15182)*X(5255))& - &/(JVS(15177)) - X(3365) = (X(3365)-JVS(15172)*X(4131)-JVS(15173)*X(4624)-JVS(15174)*X(5250)-JVS(15175)*X(5253)-JVS(15176)*X(5255))& - &/(JVS(15171)) - X(3364) = (X(3364)-JVS(15164)*X(3970)-JVS(15165)*X(4723)-JVS(15166)*X(5250)-JVS(15167)*X(5255))/(JVS(15163)) - X(3363) = (X(3363)-JVS(15157)*X(4655)-JVS(15158)*X(5250)-JVS(15159)*X(5252)-JVS(15160)*X(5255)-JVS(15161)*X(5256))& - &/(JVS(15156)) - X(3362) = (X(3362)-JVS(15150)*X(4463)-JVS(15151)*X(5250)-JVS(15152)*X(5252)-JVS(15153)*X(5255)-JVS(15154)*X(5256))& - &/(JVS(15149)) - X(3361) = (X(3361)-JVS(15143)*X(4205)-JVS(15144)*X(5250)-JVS(15145)*X(5252)-JVS(15146)*X(5255)-JVS(15147)*X(5256))& - &/(JVS(15142)) - X(3360) = (X(3360)-JVS(15138)*X(4718)-JVS(15139)*X(5250)-JVS(15140)*X(5252))/(JVS(15137)) - X(3359) = (X(3359)-JVS(15133)*X(3360)-JVS(15134)*X(4718)-JVS(15135)*X(5250)-JVS(15136)*X(5255))/(JVS(15132)) - X(3358) = (X(3358)-JVS(15126)*X(3529)-JVS(15127)*X(5172)-JVS(15128)*X(5250)-JVS(15129)*X(5253))/(JVS(15125)) - X(3357) = (X(3357)-JVS(15122)*X(4701)-JVS(15123)*X(5250)-JVS(15124)*X(5252))/(JVS(15121)) - X(3356) = (X(3356)-JVS(15117)*X(3357)-JVS(15118)*X(4701)-JVS(15119)*X(5250)-JVS(15120)*X(5255))/(JVS(15116)) - X(3355) = (X(3355)-JVS(15109)*X(4409)-JVS(15110)*X(4447)-JVS(15111)*X(5250)-JVS(15112)*X(5253)-JVS(15113)*X(5255))& - &/(JVS(15108)) - X(3354) = (X(3354)-JVS(15102)*X(3904)-JVS(15103)*X(4719)-JVS(15104)*X(5250)-JVS(15105)*X(5255))/(JVS(15101)) - X(3353) = (X(3353)-JVS(15096)*X(4928)-JVS(15097)*X(5250)-JVS(15098)*X(5252))/(JVS(15095)) - X(3352) = (X(3352)-JVS(15091)*X(3353)-JVS(15092)*X(4928)-JVS(15093)*X(5250)-JVS(15094)*X(5255))/(JVS(15090)) - X(3351) = (X(3351)-JVS(15083)*X(4171)-JVS(15084)*X(5250)-JVS(15085)*X(5252)-JVS(15086)*X(5255)-JVS(15087)*X(5256))& - &/(JVS(15082)) - X(3350) = (X(3350)-JVS(15076)*X(4341)-JVS(15077)*X(4520)-JVS(15078)*X(5250)-JVS(15079)*X(5253)-JVS(15080)*X(5255))& - &/(JVS(15075)) - X(3349) = (X(3349)-JVS(15068)*X(3925)-JVS(15069)*X(4587)-JVS(15070)*X(5250)-JVS(15071)*X(5255))/(JVS(15067)) - X(3348) = (X(3348)-JVS(15061)*X(4660)-JVS(15062)*X(5019)-JVS(15063)*X(5250)-JVS(15064)*X(5253)-JVS(15065)*X(5255))& - &/(JVS(15060)) - X(3347) = (X(3347)-JVS(15052)*X(4506)-JVS(15053)*X(5250)-JVS(15054)*X(5252)-JVS(15055)*X(5255)-JVS(15056)*X(5256))& - &/(JVS(15051)) - X(3346) = (X(3346)-JVS(15045)*X(4871)-JVS(15046)*X(5250)-JVS(15047)*X(5252)-JVS(15048)*X(5255)-JVS(15049)*X(5256))& - &/(JVS(15044)) - X(3345) = (X(3345)-JVS(15039)*X(4727)-JVS(15040)*X(5250)-JVS(15041)*X(5252)-JVS(15042)*X(5255))/(JVS(15038)) - X(3344) = (X(3344)-JVS(15030)*X(4060)-JVS(15031)*X(5250)-JVS(15032)*X(5252)-JVS(15033)*X(5255)-JVS(15034)*X(5256))& - &/(JVS(15029)) - X(3343) = (X(3343)-JVS(15022)*X(3790)-JVS(15023)*X(5250)-JVS(15024)*X(5252)-JVS(15025)*X(5255)-JVS(15026)*X(5256))& - &/(JVS(15021)) - X(3342) = (X(3342)-JVS(15012)*X(4399)-JVS(15013)*X(5250)-JVS(15014)*X(5252)-JVS(15015)*X(5255)-JVS(15016)*X(5256))& - &/(JVS(15011)) - X(3341) = (X(3341)-JVS(15005)*X(3910)-JVS(15006)*X(4884)-JVS(15007)*X(5250)-JVS(15008)*X(5255))/(JVS(15004)) - X(3340) = (X(3340)-JVS(15000)*X(4699)-JVS(15001)*X(5250)-JVS(15002)*X(5252))/(JVS(14999)) - X(3339) = (X(3339)-JVS(14995)*X(3340)-JVS(14996)*X(4699)-JVS(14997)*X(5250)-JVS(14998)*X(5255))/(JVS(14994)) - X(3338) = (X(3338)-JVS(14987)*X(3839)-JVS(14988)*X(5250)-JVS(14989)*X(5252)-JVS(14990)*X(5255)-JVS(14991)*X(5256))& - &/(JVS(14986)) - X(3337) = (X(3337)-JVS(14980)*X(4418)-JVS(14981)*X(4659)-JVS(14982)*X(5250)-JVS(14983)*X(5253)-JVS(14984)*X(5255))& - &/(JVS(14979)) - X(3336) = (X(3336)-JVS(14972)*X(4546)-JVS(14973)*X(4561)-JVS(14974)*X(5250)-JVS(14975)*X(5255))/(JVS(14971)) - X(3335) = (X(3335)-JVS(14965)*X(3907)-JVS(14966)*X(5250)-JVS(14967)*X(5252)-JVS(14968)*X(5255)-JVS(14969)*X(5256))& - &/(JVS(14964)) - X(3334) = (X(3334)-JVS(14959)*X(5040)-JVS(14960)*X(5155)-JVS(14961)*X(5250)-JVS(14962)*X(5255))/(JVS(14958)) - X(3333) = (X(3333)-JVS(14953)*X(5045)-JVS(14954)*X(5250)-JVS(14955)*X(5252)-JVS(14956)*X(5255)-JVS(14957)*X(5256))& - &/(JVS(14952)) - X(3332) = (X(3332)-JVS(14945)*X(4055)-JVS(14946)*X(5250)-JVS(14947)*X(5252)-JVS(14948)*X(5255)-JVS(14949)*X(5256))& - &/(JVS(14944)) - X(3331) = (X(3331)-JVS(14937)*X(3797)-JVS(14938)*X(5250)-JVS(14939)*X(5252)-JVS(14940)*X(5255)-JVS(14941)*X(5256))& - &/(JVS(14936)) - X(3330) = (X(3330)-JVS(14927)*X(3801)-JVS(14928)*X(4936)-JVS(14929)*X(5250)-JVS(14930)*X(5252)-JVS(14931)*X(5255))& - &/(JVS(14926)) - X(3329) = (X(3329)-JVS(14919)*X(4464)-JVS(14920)*X(5250)-JVS(14921)*X(5252)-JVS(14922)*X(5255)-JVS(14923)*X(5256))& - &/(JVS(14918)) - X(3328) = (X(3328)-JVS(14913)*X(3767)-JVS(14914)*X(4387)-JVS(14915)*X(5250)-JVS(14916)*X(5255))/(JVS(14912)) - X(3327) = (X(3327)-JVS(14908)*X(4496)-JVS(14909)*X(5250)-JVS(14910)*X(5253))/(JVS(14907)) - X(3326) = (X(3326)-JVS(14904)*X(5155)-JVS(14905)*X(5250)-JVS(14906)*X(5255))/(JVS(14903)) - X(3325) = (X(3325)-JVS(14900)*X(4916)-JVS(14901)*X(5250)-JVS(14902)*X(5255))/(JVS(14899)) - X(3324) = (X(3324)-JVS(14896)*X(4816)-JVS(14897)*X(5250)-JVS(14898)*X(5253))/(JVS(14895)) - X(3323) = (X(3323)-JVS(14892)*X(4681)-JVS(14893)*X(5250)-JVS(14894)*X(5253))/(JVS(14891)) - X(3322) = (X(3322)-JVS(14888)*X(4725)-JVS(14889)*X(5250)-JVS(14890)*X(5252))/(JVS(14887)) - X(3321) = (X(3321)-JVS(14884)*X(3820)-JVS(14885)*X(5250)-JVS(14886)*X(5255))/(JVS(14883)) - X(3320) = (X(3320)-JVS(14880)*X(3796)-JVS(14881)*X(5250)-JVS(14882)*X(5255))/(JVS(14879)) - X(3319) = (X(3319)-JVS(14876)*X(3799)-JVS(14877)*X(5250)-JVS(14878)*X(5255))/(JVS(14875)) - X(3318) = (X(3318)-JVS(14872)*X(4139)-JVS(14873)*X(5250)-JVS(14874)*X(5253))/(JVS(14871)) - X(3317) = (X(3317)-JVS(14868)*X(4622)-JVS(14869)*X(5250)-JVS(14870)*X(5253))/(JVS(14867)) - X(3316) = (X(3316)-JVS(14864)*X(4948)-JVS(14865)*X(5250)-JVS(14866)*X(5253))/(JVS(14863)) - X(3315) = (X(3315)-JVS(14860)*X(4770)-JVS(14861)*X(5250)-JVS(14862)*X(5253))/(JVS(14859)) - X(3314) = (X(3314)-JVS(14856)*X(4594)-JVS(14857)*X(5250)-JVS(14858)*X(5255))/(JVS(14855)) - X(3313) = (X(3313)-JVS(14852)*X(4652)-JVS(14853)*X(5250)-JVS(14854)*X(5253))/(JVS(14851)) - X(3312) = (X(3312)-JVS(14848)*X(4771)-JVS(14849)*X(5250)-JVS(14850)*X(5253))/(JVS(14847)) - X(3311) = (X(3311)-JVS(14844)*X(5090)-JVS(14845)*X(5250)-JVS(14846)*X(5253))/(JVS(14843)) - X(3310) = (X(3310)-JVS(14840)*X(4959)-JVS(14841)*X(5250)-JVS(14842)*X(5255))/(JVS(14839)) - X(3309) = (X(3309)-JVS(14836)*X(4410)-JVS(14837)*X(5250)-JVS(14838)*X(5255))/(JVS(14835)) - X(3308) = (X(3308)-JVS(14830)*X(4582)-JVS(14831)*X(5250)-JVS(14832)*X(5255))/(JVS(14829)) - X(3307) = (X(3307)-JVS(14826)*X(4288)-JVS(14827)*X(5250)-JVS(14828)*X(5253))/(JVS(14825)) - X(3306) = (X(3306)-JVS(14822)*X(4450)-JVS(14823)*X(5250)-JVS(14824)*X(5253))/(JVS(14821)) - X(3305) = (X(3305)-JVS(14815)*X(3318)-JVS(14816)*X(4000)-JVS(14817)*X(5250)-JVS(14818)*X(5252)-JVS(14819)*X(5253)& - &-JVS(14820)*X(5255))/(JVS(14814)) - X(3304) = (X(3304)-JVS(14810)*X(4971)-JVS(14811)*X(5250)-JVS(14812)*X(5252))/(JVS(14809)) - X(3303) = (X(3303)-JVS(14806)*X(4051)-JVS(14807)*X(5250)-JVS(14808)*X(5253))/(JVS(14805)) - X(3302) = (X(3302)-JVS(14802)*X(3934)-JVS(14803)*X(4574)-JVS(14804)*X(5250))/(JVS(14801)) - X(3301) = (X(3301)-JVS(14795)*X(3302)-JVS(14796)*X(4661)-JVS(14797)*X(5250)-JVS(14798)*X(5252)-JVS(14799)*X(5255)& - &-JVS(14800)*X(5256))/(JVS(14794)) - X(3300) = (X(3300)-JVS(14790)*X(4985)-JVS(14791)*X(5250)-JVS(14792)*X(5253))/(JVS(14789)) - X(3299) = (X(3299)-JVS(14786)*X(5129)-JVS(14787)*X(5250)-JVS(14788)*X(5255))/(JVS(14785)) - X(3298) = (X(3298)-JVS(14782)*X(3822)-JVS(14783)*X(4800)-JVS(14784)*X(5250))/(JVS(14781)) - X(3297) = (X(3297)-JVS(14778)*X(4332)-JVS(14779)*X(4475)-JVS(14780)*X(5258))/(JVS(14777)) - X(3296) = (X(3296)-JVS(14771)*X(3631)-JVS(14772)*X(3632)-JVS(14773)*X(5250)-JVS(14774)*X(5252)-JVS(14775)*X(5255)& - &-JVS(14776)*X(5256))/(JVS(14770)) - X(3295) = (X(3295)-JVS(14763)*X(3631)-JVS(14764)*X(5250)-JVS(14765)*X(5255))/(JVS(14762)) - X(3294) = (X(3294)-JVS(14759)*X(4954)-JVS(14760)*X(5250)-JVS(14761)*X(5255))/(JVS(14758)) - X(3293) = (X(3293)-JVS(14755)*X(4818)-JVS(14756)*X(5250)-JVS(14757)*X(5253))/(JVS(14754)) - X(3292) = (X(3292)-JVS(14751)*X(4833)-JVS(14752)*X(5250)-JVS(14753)*X(5253))/(JVS(14750)) - X(3291) = (X(3291)-JVS(14747)*X(4105)-JVS(14748)*X(5250)-JVS(14749)*X(5255))/(JVS(14746)) - X(3290) = (X(3290)-JVS(14743)*X(4993)-JVS(14744)*X(5250)-JVS(14745)*X(5253))/(JVS(14742)) - X(3289) = (X(3289)-JVS(14739)*X(4598)-JVS(14740)*X(5250)-JVS(14741)*X(5255))/(JVS(14738)) - X(3288) = (X(3288)-JVS(14735)*X(4583)-JVS(14736)*X(5250)-JVS(14737)*X(5255))/(JVS(14734)) - X(3287) = (X(3287)-JVS(14731)*X(4126)-JVS(14732)*X(5250)-JVS(14733)*X(5255))/(JVS(14730)) - X(3286) = (X(3286)-JVS(14727)*X(3801)-JVS(14728)*X(5250)-JVS(14729)*X(5255))/(JVS(14726)) - X(3285) = (X(3285)-JVS(14723)*X(4720)-JVS(14724)*X(5250)-JVS(14725)*X(5252))/(JVS(14722)) - X(3284) = (X(3284)-JVS(14716)*X(4161)-JVS(14717)*X(4561)-JVS(14718)*X(5250)-JVS(14719)*X(5252)-JVS(14720)*X(5255)& - &-JVS(14721)*X(5256))/(JVS(14715)) - X(3283) = (X(3283)-JVS(14706)*X(3650)-JVS(14707)*X(3659)-JVS(14708)*X(5250)-JVS(14709)*X(5252)-JVS(14710)*X(5255)& - &-JVS(14711)*X(5256))/(JVS(14705)) - X(3282) = (X(3282)-JVS(14698)*X(4417)-JVS(14699)*X(5250)-JVS(14700)*X(5253))/(JVS(14697)) - X(3281) = (X(3281)-JVS(14691)*X(4106)-JVS(14692)*X(4325)-JVS(14693)*X(5250)-JVS(14694)*X(5252)-JVS(14695)*X(5255)& - &-JVS(14696)*X(5256))/(JVS(14690)) - X(3280) = (X(3280)-JVS(14686)*X(4993)-JVS(14687)*X(5250)-JVS(14688)*X(5255))/(JVS(14685)) - X(3279) = (X(3279)-JVS(14682)*X(3825)-JVS(14683)*X(5250)-JVS(14684)*X(5255))/(JVS(14681)) - X(3278) = (X(3278)-JVS(14678)*X(4345)-JVS(14679)*X(5250)-JVS(14680)*X(5255))/(JVS(14677)) - X(3277) = (X(3277)-JVS(14674)*X(5202)-JVS(14675)*X(5250)-JVS(14676)*X(5255))/(JVS(14673)) - X(3276) = (X(3276)-JVS(14670)*X(4816)-JVS(14671)*X(5250)-JVS(14672)*X(5255))/(JVS(14669)) - X(3275) = (X(3275)-JVS(14666)*X(5079)-JVS(14667)*X(5250)-JVS(14668)*X(5253))/(JVS(14665)) - X(3274) = (X(3274)-JVS(14662)*X(4384)-JVS(14663)*X(5250)-JVS(14664)*X(5255))/(JVS(14661)) - X(3273) = (X(3273)-JVS(14658)*X(3801)-JVS(14659)*X(5250)-JVS(14660)*X(5252))/(JVS(14657)) - X(3272) = (X(3272)-JVS(14654)*X(5075)-JVS(14655)*X(5250)-JVS(14656)*X(5255))/(JVS(14653)) - X(3271) = (X(3271)-JVS(14650)*X(4727)-JVS(14651)*X(5250)-JVS(14652)*X(5252))/(JVS(14649)) - X(3270) = (X(3270)-JVS(14643)*X(3703)-JVS(14644)*X(4638)-JVS(14645)*X(5250)-JVS(14646)*X(5252)-JVS(14647)*X(5253)& - &-JVS(14648)*X(5255))/(JVS(14642)) - X(3269) = (X(3269)-JVS(14632)*X(4174)-JVS(14633)*X(4689)-JVS(14634)*X(5250)-JVS(14635)*X(5252)-JVS(14636)*X(5255)& - &-JVS(14637)*X(5256))/(JVS(14631)) - X(3268) = (X(3268)-JVS(14624)*X(4700)-JVS(14625)*X(5043)-JVS(14626)*X(5250)-JVS(14627)*X(5252)-JVS(14628)*X(5255)& - &-JVS(14629)*X(5256))/(JVS(14623)) - X(3267) = (X(3267)-JVS(14618)*X(4565)-JVS(14619)*X(5250)-JVS(14620)*X(5255))/(JVS(14617)) - X(3266) = (X(3266)-JVS(14614)*X(4476)-JVS(14615)*X(5250)-JVS(14616)*X(5255))/(JVS(14613)) - X(3265) = (X(3265)-JVS(14610)*X(4767)-JVS(14611)*X(5250)-JVS(14612)*X(5255))/(JVS(14609)) - X(3264) = (X(3264)-JVS(14606)*X(4803)-JVS(14607)*X(5250)-JVS(14608)*X(5252))/(JVS(14605)) - X(3263) = (X(3263)-JVS(14602)*X(5250)-JVS(14603)*X(5255)-JVS(14604)*X(5256))/(JVS(14601)) - X(3262) = (X(3262)-JVS(14596)*X(3702)-JVS(14597)*X(4992)-JVS(14598)*X(5250))/(JVS(14595)) - X(3261) = (X(3261)-JVS(14591)*X(4180)-JVS(14592)*X(5250)-JVS(14593)*X(5255))/(JVS(14590)) - X(3260) = (X(3260)-JVS(14587)*X(4860)-JVS(14588)*X(5250)-JVS(14589)*X(5253))/(JVS(14586)) - X(3259) = (X(3259)-JVS(14583)*X(4106)-JVS(14584)*X(5250)-JVS(14585)*X(5255))/(JVS(14582)) - X(3258) = (X(3258)-JVS(14579)*X(4807)-JVS(14580)*X(5250)-JVS(14581)*X(5253))/(JVS(14578)) - X(3257) = (X(3257)-JVS(14575)*X(4831)-JVS(14576)*X(5250)-JVS(14577)*X(5253))/(JVS(14574)) - X(3256) = (X(3256)-JVS(14571)*X(4554)-JVS(14572)*X(5250)-JVS(14573)*X(5255))/(JVS(14570)) - X(3255) = (X(3255)-JVS(14564)*X(3336)-JVS(14565)*X(3547)-JVS(14566)*X(4546)-JVS(14567)*X(5250)-JVS(14568)*X(5252)& - &-JVS(14569)*X(5256))/(JVS(14563)) - X(3254) = (X(3254)-JVS(14560)*X(4954)-JVS(14561)*X(5250)-JVS(14562)*X(5253))/(JVS(14559)) - X(3253) = (X(3253)-JVS(14556)*X(3827)-JVS(14557)*X(5250)-JVS(14558)*X(5255))/(JVS(14555)) - X(3252) = (X(3252)-JVS(14549)*X(4160)-JVS(14550)*X(4688)-JVS(14551)*X(5250)-JVS(14552)*X(5252)-JVS(14553)*X(5255)& - &-JVS(14554)*X(5256))/(JVS(14548)) - X(3251) = (X(3251)-JVS(14544)*X(3624)-JVS(14545)*X(4935)-JVS(14546)*X(5250))/(JVS(14543)) - X(3250) = (X(3250)-JVS(14539)*X(3501)-JVS(14540)*X(3550)-JVS(14541)*X(5250))/(JVS(14538)) - X(3249) = (X(3249)-JVS(14535)*X(4946)-JVS(14536)*X(5250)-JVS(14537)*X(5253))/(JVS(14534)) - X(3248) = (X(3248)-JVS(14531)*X(3913)-JVS(14532)*X(5250)-JVS(14533)*X(5256))/(JVS(14530)) - X(3247) = (X(3247)-JVS(14524)*X(5039)-JVS(14525)*X(5214)-JVS(14526)*X(5250)-JVS(14527)*X(5252)-JVS(14528)*X(5255)& - &-JVS(14529)*X(5256))/(JVS(14523)) - X(3246) = (X(3246)-JVS(14514)*X(3641)-JVS(14515)*X(3648)-JVS(14516)*X(5250)-JVS(14517)*X(5252)-JVS(14518)*X(5255)& - &-JVS(14519)*X(5256))/(JVS(14513)) - X(3245) = (X(3245)-JVS(14503)*X(4351)-JVS(14504)*X(4615)-JVS(14505)*X(5121)-JVS(14506)*X(5250)-JVS(14507)*X(5252)& - &-JVS(14508)*X(5258))/(JVS(14502)) - X(3244) = (X(3244)-JVS(14498)*X(5250)-JVS(14499)*X(5255)-JVS(14500)*X(5256))/(JVS(14497)) - X(3243) = (X(3243)-JVS(14492)*X(4596)-JVS(14493)*X(5250)-JVS(14494)*X(5255))/(JVS(14491)) - X(3242) = (X(3242)-JVS(14482)*X(3564)-JVS(14483)*X(4542)-JVS(14484)*X(4921)-JVS(14485)*X(4940)-JVS(14486)*X(5250)& - &-JVS(14487)*X(5252)-JVS(14488)*X(5253)-JVS(14489)*X(5255)-JVS(14490)*X(5256))/(JVS(14481)) - X(3241) = (X(3241)-JVS(14468)*X(4615)-JVS(14469)*X(5219)-JVS(14470)*X(5250)-JVS(14471)*X(5252)-JVS(14472)*X(5255)& - &-JVS(14473)*X(5256))/(JVS(14467)) - X(3240) = (X(3240)-JVS(14462)*X(4321)-JVS(14463)*X(5250)-JVS(14464)*X(5252))/(JVS(14461)) - X(3239) = (X(3239)-JVS(14458)*X(4836)-JVS(14459)*X(5250)-JVS(14460)*X(5253))/(JVS(14457)) - X(3238) = (X(3238)-JVS(14454)*X(4667)-JVS(14455)*X(5250)-JVS(14456)*X(5255))/(JVS(14453)) - X(3237) = (X(3237)-JVS(14450)*X(4966)-JVS(14451)*X(5250)-JVS(14452)*X(5255))/(JVS(14449)) - X(3236) = (X(3236)-JVS(14446)*X(4657)-JVS(14447)*X(5250)-JVS(14448)*X(5253))/(JVS(14445)) - X(3235) = (X(3235)-JVS(14442)*X(3659)-JVS(14443)*X(5250)-JVS(14444)*X(5255))/(JVS(14441)) - X(3234) = (X(3234)-JVS(14435)*X(4958)-JVS(14436)*X(5020)-JVS(14437)*X(5250)-JVS(14438)*X(5252)-JVS(14439)*X(5255)& - &-JVS(14440)*X(5256))/(JVS(14434)) - X(3233) = (X(3233)-JVS(14424)*X(3855)-JVS(14425)*X(3882)-JVS(14426)*X(4216)-JVS(14427)*X(4319)-JVS(14428)*X(5004)& - &-JVS(14429)*X(5250)-JVS(14430)*X(5252)-JVS(14431)*X(5255)-JVS(14432)*X(5256))/(JVS(14423)) - X(3232) = (X(3232)-JVS(14415)*X(4181)-JVS(14416)*X(5250)-JVS(14417)*X(5253))/(JVS(14414)) - X(3231) = (X(3231)-JVS(14411)*X(4856)-JVS(14412)*X(5250)-JVS(14413)*X(5255))/(JVS(14410)) - X(3230) = (X(3230)-JVS(14407)*X(3831)-JVS(14408)*X(5250)-JVS(14409)*X(5258))/(JVS(14406)) - X(3229) = (X(3229)-JVS(14402)*X(4100)-JVS(14403)*X(5250)-JVS(14404)*X(5253))/(JVS(14401)) - X(3228) = (X(3228)-JVS(14398)*X(5132)-JVS(14399)*X(5250)-JVS(14400)*X(5255))/(JVS(14397)) - X(3227) = (X(3227)-JVS(14393)*X(4948)-JVS(14394)*X(5250)-JVS(14395)*X(5255))/(JVS(14392)) - X(3226) = (X(3226)-JVS(14389)*X(4930)-JVS(14390)*X(5250)-JVS(14391)*X(5255))/(JVS(14388)) - X(3225) = (X(3225)-JVS(14385)*X(4917)-JVS(14386)*X(5250)-JVS(14387)*X(5255))/(JVS(14384)) - X(3224) = (X(3224)-JVS(14381)*X(4826)-JVS(14382)*X(5250)-JVS(14383)*X(5253))/(JVS(14380)) - X(3223) = (X(3223)-JVS(14377)*X(4910)-JVS(14378)*X(5250)-JVS(14379)*X(5253))/(JVS(14376)) - X(3222) = (X(3222)-JVS(14373)*X(5151)-JVS(14374)*X(5250)-JVS(14375)*X(5255))/(JVS(14372)) - X(3221) = (X(3221)-JVS(14369)*X(4888)-JVS(14370)*X(5250)-JVS(14371)*X(5253))/(JVS(14368)) - X(3220) = (X(3220)-JVS(14365)*X(4591)-JVS(14366)*X(5250)-JVS(14367)*X(5253))/(JVS(14364)) - X(3219) = (X(3219)-JVS(14361)*X(5250)-JVS(14362)*X(5255)-JVS(14363)*X(5256))/(JVS(14360)) - X(3218) = (X(3218)-JVS(14355)*X(4443)-JVS(14356)*X(5250)-JVS(14357)*X(5253))/(JVS(14354)) - X(3217) = (X(3217)-JVS(14351)*X(4123)-JVS(14352)*X(5250)-JVS(14353)*X(5255))/(JVS(14350)) - X(3216) = (X(3216)-JVS(14347)*X(3837)-JVS(14348)*X(5250)-JVS(14349)*X(5255))/(JVS(14346)) - X(3215) = (X(3215)-JVS(14340)*X(3216)-JVS(14341)*X(3217)-JVS(14342)*X(3837)-JVS(14343)*X(5250)-JVS(14344)*X(5252)& - &-JVS(14345)*X(5256))/(JVS(14339)) - X(3214) = (X(3214)-JVS(14335)*X(4669)-JVS(14336)*X(5250)-JVS(14337)*X(5255))/(JVS(14334)) - X(3213) = (X(3213)-JVS(14328)*X(3789)-JVS(14329)*X(4679)-JVS(14330)*X(5250)-JVS(14331)*X(5252)-JVS(14332)*X(5253)& - &-JVS(14333)*X(5255))/(JVS(14327)) - X(3212) = (X(3212)-JVS(14320)*X(4722)-JVS(14321)*X(5250)-JVS(14322)*X(5252))/(JVS(14319)) - X(3211) = (X(3211)-JVS(14316)*X(4826)-JVS(14317)*X(5250)-JVS(14318)*X(5255))/(JVS(14315)) - X(3210) = (X(3210)-JVS(14312)*X(4093)-JVS(14313)*X(5068)-JVS(14314)*X(5258))/(JVS(14311)) - X(3209) = (X(3209)-JVS(14308)*X(4968)-JVS(14309)*X(5250)-JVS(14310)*X(5255))/(JVS(14307)) - X(3208) = (X(3208)-JVS(14304)*X(5149)-JVS(14305)*X(5250)-JVS(14306)*X(5255))/(JVS(14303)) - X(3207) = (X(3207)-JVS(14300)*X(4698)-JVS(14301)*X(5250)-JVS(14302)*X(5255))/(JVS(14299)) - X(3206) = (X(3206)-JVS(14296)*X(4892)-JVS(14297)*X(5250)-JVS(14298)*X(5253))/(JVS(14295)) - X(3205) = (X(3205)-JVS(14292)*X(4359)-JVS(14293)*X(5250)-JVS(14294)*X(5255))/(JVS(14291)) - X(3204) = (X(3204)-JVS(14288)*X(5025)-JVS(14289)*X(5250)-JVS(14290)*X(5253))/(JVS(14287)) - X(3203) = (X(3203)-JVS(14284)*X(5036)-JVS(14285)*X(5250)-JVS(14286)*X(5255))/(JVS(14283)) - X(3202) = (X(3202)-JVS(14280)*X(4604)-JVS(14281)*X(4606)-JVS(14282)*X(5258))/(JVS(14279)) - X(3201) = (X(3201)-JVS(14276)*X(4711)-JVS(14277)*X(5250)-JVS(14278)*X(5255))/(JVS(14275)) - X(3200) = (X(3200)-JVS(14272)*X(4813)-JVS(14273)*X(5250)-JVS(14274)*X(5255))/(JVS(14271)) - X(3199) = (X(3199)-JVS(14266)*X(4375)-JVS(14267)*X(5250)-JVS(14268)*X(5253))/(JVS(14265)) - X(3198) = (X(3198)-JVS(14262)*X(4585)-JVS(14263)*X(5250)-JVS(14264)*X(5255))/(JVS(14261)) - X(3197) = (X(3197)-JVS(14258)*X(5033)-JVS(14259)*X(5250)-JVS(14260)*X(5253))/(JVS(14257)) - X(3196) = (X(3196)-JVS(14254)*X(4558)-JVS(14255)*X(5250)-JVS(14256)*X(5255))/(JVS(14253)) - X(3195) = (X(3195)-JVS(14247)*X(3627)-JVS(14248)*X(3663)-JVS(14249)*X(5250)-JVS(14250)*X(5252)-JVS(14251)*X(5255)& - &-JVS(14252)*X(5256))/(JVS(14246)) - X(3194) = (X(3194)-JVS(14236)*X(4786)-JVS(14237)*X(5224)-JVS(14238)*X(5250)-JVS(14239)*X(5252)-JVS(14240)*X(5255)& - &-JVS(14241)*X(5256))/(JVS(14235)) - X(3193) = (X(3193)-JVS(14232)*X(5250)-JVS(14233)*X(5256))/(JVS(14231)) - X(3192) = (X(3192)-JVS(14228)*X(5250)-JVS(14229)*X(5256))/(JVS(14227)) - X(3191) = (X(3191)-JVS(14223)*X(4810)-JVS(14224)*X(5250)-JVS(14225)*X(5253)-JVS(14226)*X(5256))/(JVS(14222)) - X(3190) = (X(3190)-JVS(14218)*X(4632)-JVS(14219)*X(5250)-JVS(14220)*X(5253)-JVS(14221)*X(5256))/(JVS(14217)) - X(3189) = (X(3189)-JVS(14213)*X(4676)-JVS(14214)*X(5250)-JVS(14215)*X(5253)-JVS(14216)*X(5256))/(JVS(14212)) - X(3188) = (X(3188)-JVS(14208)*X(3671)-JVS(14209)*X(3721)-JVS(14210)*X(5250)-JVS(14211)*X(5252))/(JVS(14207)) - X(3187) = (X(3187)-JVS(14203)*X(4791)-JVS(14204)*X(5250)-JVS(14205)*X(5253)-JVS(14206)*X(5256))/(JVS(14202)) - X(3186) = (X(3186)-JVS(14198)*X(4017)-JVS(14199)*X(4018)-JVS(14200)*X(5141)-JVS(14201)*X(5258))/(JVS(14197)) - X(3185) = (X(3185)-JVS(14193)*X(3548)-JVS(14194)*X(4355)-JVS(14195)*X(5250)-JVS(14196)*X(5255))/(JVS(14192)) - X(3184) = (X(3184)-JVS(14186)*X(3493)-JVS(14187)*X(4361)-JVS(14188)*X(5250)-JVS(14189)*X(5255))/(JVS(14185)) - X(3183) = (X(3183)-JVS(14179)*X(3544)-JVS(14180)*X(4389)-JVS(14181)*X(5250)-JVS(14182)*X(5255))/(JVS(14178)) - X(3182) = (X(3182)-JVS(14174)*X(5250)-JVS(14175)*X(5256))/(JVS(14173)) - X(3181) = (X(3181)-JVS(14169)*X(4797)-JVS(14170)*X(5250)-JVS(14171)*X(5253)-JVS(14172)*X(5256))/(JVS(14168)) - X(3180) = (X(3180)-JVS(14166)*X(5250)-JVS(14167)*X(5256))/(JVS(14165)) - X(3179) = (X(3179)-JVS(14162)*X(5250)-JVS(14163)*X(5256))/(JVS(14161)) - X(3178) = (X(3178)-JVS(14157)*X(4790)-JVS(14158)*X(5250)-JVS(14159)*X(5253)-JVS(14160)*X(5256))/(JVS(14156)) - X(3177) = (X(3177)-JVS(14153)*X(4707)-JVS(14154)*X(5250)-JVS(14155)*X(5252))/(JVS(14152)) - X(3176) = (X(3176)-JVS(14148)*X(3177)-JVS(14149)*X(4707)-JVS(14150)*X(5250)-JVS(14151)*X(5255))/(JVS(14147)) - X(3175) = (X(3175)-JVS(14141)*X(4700)-JVS(14142)*X(5043)-JVS(14143)*X(5250)-JVS(14144)*X(5252))/(JVS(14140)) - X(3174) = (X(3174)-JVS(14136)*X(3804)-JVS(14137)*X(5250)-JVS(14138)*X(5252)-JVS(14139)*X(5255))/(JVS(14135)) - X(3173) = (X(3173)-JVS(14128)*X(4809)-JVS(14129)*X(5060)-JVS(14130)*X(5250)-JVS(14131)*X(5252))/(JVS(14127)) - X(3172) = (X(3172)-JVS(14125)*X(5250)-JVS(14126)*X(5256))/(JVS(14124)) - X(3171) = (X(3171)-JVS(14119)*X(4353)-JVS(14120)*X(4923)-JVS(14121)*X(5250)-JVS(14122)*X(5255))/(JVS(14118)) - X(3170) = (X(3170)-JVS(14112)*X(4478)-JVS(14113)*X(5250)-JVS(14114)*X(5253)-JVS(14115)*X(5256))/(JVS(14111)) - X(3169) = (X(3169)-JVS(14109)*X(5250)-JVS(14110)*X(5256))/(JVS(14108)) - X(3168) = (X(3168)-JVS(14104)*X(5146)-JVS(14105)*X(5250)-JVS(14106)*X(5252)-JVS(14107)*X(5255))/(JVS(14103)) - X(3167) = (X(3167)-JVS(14096)*X(4514)-JVS(14097)*X(5250)-JVS(14098)*X(5253)-JVS(14099)*X(5256))/(JVS(14095)) - X(3166) = (X(3166)-JVS(14091)*X(5107)-JVS(14092)*X(5250)-JVS(14093)*X(5252)-JVS(14094)*X(5255))/(JVS(14090)) - X(3165) = (X(3165)-JVS(14083)*X(4457)-JVS(14084)*X(5250)-JVS(14085)*X(5253)-JVS(14086)*X(5256))/(JVS(14082)) - X(3164) = (X(3164)-JVS(14080)*X(5250)-JVS(14081)*X(5256))/(JVS(14079)) - X(3163) = (X(3163)-JVS(14074)*X(4690)-JVS(14075)*X(5250)-JVS(14076)*X(5253)-JVS(14077)*X(5256))/(JVS(14073)) - X(3162) = (X(3162)-JVS(14069)*X(4454)-JVS(14070)*X(5250)-JVS(14071)*X(5253)-JVS(14072)*X(5256))/(JVS(14068)) - X(3161) = (X(3161)-JVS(14064)*X(4965)-JVS(14065)*X(5250)-JVS(14066)*X(5253)-JVS(14067)*X(5256))/(JVS(14063)) - X(3160) = (X(3160)-JVS(14061)*X(4945)-JVS(14062)*X(5250))/(JVS(14060)) - X(3159) = (X(3159)-JVS(14056)*X(4647)-JVS(14057)*X(4723)-JVS(14058)*X(5250)-JVS(14059)*X(5252))/(JVS(14055)) - X(3158) = (X(3158)-JVS(14053)*X(5250)-JVS(14054)*X(5256))/(JVS(14052)) - X(3157) = (X(3157)-JVS(14049)*X(5250)-JVS(14050)*X(5256))/(JVS(14048)) - X(3156) = (X(3156)-JVS(14043)*X(4616)-JVS(14044)*X(5250)-JVS(14045)*X(5252)-JVS(14046)*X(5255))/(JVS(14042)) - X(3155) = (X(3155)-JVS(14037)*X(5166)-JVS(14038)*X(5258))/(JVS(14036)) - X(3154) = (X(3154)-JVS(14034)*X(3835)-JVS(14035)*X(5250))/(JVS(14033)) - X(3153) = (X(3153)-JVS(14029)*X(4438)-JVS(14030)*X(5250)-JVS(14031)*X(5253)-JVS(14032)*X(5256))/(JVS(14028)) - X(3152) = (X(3152)-JVS(14024)*X(4663)-JVS(14025)*X(5250)-JVS(14026)*X(5253)-JVS(14027)*X(5256))/(JVS(14023)) - X(3151) = (X(3151)-JVS(14019)*X(3522)-JVS(14020)*X(4349)-JVS(14021)*X(5250)-JVS(14022)*X(5255))/(JVS(14018)) - X(3150) = (X(3150)-JVS(14012)*X(4495)-JVS(14013)*X(5250)-JVS(14014)*X(5253)-JVS(14015)*X(5256))/(JVS(14011)) - X(3149) = (X(3149)-JVS(14009)*X(5250)-JVS(14010)*X(5256))/(JVS(14008)) - X(3148) = (X(3148)-JVS(14003)*X(5144)-JVS(14004)*X(5250)-JVS(14005)*X(5252)-JVS(14006)*X(5255))/(JVS(14002)) - X(3147) = (X(3147)-JVS(13997)*X(4395)-JVS(13998)*X(5258))/(JVS(13996)) - X(3146) = (X(3146)-JVS(13992)*X(4859)-JVS(13993)*X(5250)-JVS(13994)*X(5253)-JVS(13995)*X(5256))/(JVS(13991)) - X(3145) = (X(3145)-JVS(13989)*X(5250)-JVS(13990)*X(5256))/(JVS(13988)) - X(3144) = (X(3144)-JVS(13986)*X(5250)-JVS(13987)*X(5256))/(JVS(13985)) - X(3143) = (X(3143)-JVS(13981)*X(4682)-JVS(13982)*X(5250)-JVS(13983)*X(5253)-JVS(13984)*X(5256))/(JVS(13980)) - X(3142) = (X(3142)-JVS(13976)*X(4670)-JVS(13977)*X(5250)-JVS(13978)*X(5253)-JVS(13979)*X(5256))/(JVS(13975)) - X(3141) = (X(3141)-JVS(13971)*X(3806)-JVS(13972)*X(4185)-JVS(13973)*X(5250)-JVS(13974)*X(5252))/(JVS(13970)) - X(3140) = (X(3140)-JVS(13966)*X(4479)-JVS(13967)*X(5250)-JVS(13968)*X(5253)-JVS(13969)*X(5256))/(JVS(13965)) - X(3139) = (X(3139)-JVS(13963)*X(5250)-JVS(13964)*X(5256))/(JVS(13962)) - X(3138) = (X(3138)-JVS(13959)*X(5250)-JVS(13960)*X(5256))/(JVS(13958)) - X(3137) = (X(3137)-JVS(13954)*X(4788)-JVS(13955)*X(5250)-JVS(13956)*X(5253)-JVS(13957)*X(5256))/(JVS(13953)) - X(3136) = (X(3136)-JVS(13951)*X(5250)-JVS(13952)*X(5256))/(JVS(13950)) - X(3135) = (X(3135)-JVS(13947)*X(5250)-JVS(13948)*X(5256))/(JVS(13946)) - X(3134) = (X(3134)-JVS(13943)*X(5250)-JVS(13944)*X(5256))/(JVS(13942)) - X(3133) = (X(3133)-JVS(13938)*X(3832)-JVS(13939)*X(3996)-JVS(13940)*X(5089)-JVS(13941)*X(5258))/(JVS(13937)) - X(3132) = (X(3132)-JVS(13933)*X(3814)-JVS(13934)*X(4070)-JVS(13935)*X(5250)-JVS(13936)*X(5255))/(JVS(13932)) - X(3131) = (X(3131)-JVS(13927)*X(5250)-JVS(13928)*X(5256))/(JVS(13926)) - X(3130) = (X(3130)-JVS(13923)*X(5250)-JVS(13924)*X(5256))/(JVS(13922)) - X(3129) = (X(3129)-JVS(13919)*X(5250)-JVS(13920)*X(5256))/(JVS(13918)) - X(3128) = (X(3128)-JVS(13910)*X(4472)-JVS(13911)*X(4612)-JVS(13912)*X(4613)-JVS(13913)*X(4614)-JVS(13914)*X(5250)& - &-JVS(13915)*X(5252)-JVS(13916)*X(5253)-JVS(13917)*X(5255))/(JVS(13909)) - X(3127) = (X(3127)-JVS(13897)*X(4413)-JVS(13898)*X(5250)-JVS(13899)*X(5253)-JVS(13900)*X(5256))/(JVS(13896)) - X(3126) = (X(3126)-JVS(13892)*X(4903)-JVS(13893)*X(5250)-JVS(13894)*X(5252)-JVS(13895)*X(5255))/(JVS(13891)) - X(3125) = (X(3125)-JVS(13884)*X(4408)-JVS(13885)*X(5250)-JVS(13886)*X(5253)-JVS(13887)*X(5256))/(JVS(13883)) - X(3124) = (X(3124)-JVS(13879)*X(3537)-JVS(13880)*X(4566)-JVS(13881)*X(5250)-JVS(13882)*X(5255))/(JVS(13878)) - X(3123) = (X(3123)-JVS(13872)*X(4466)-JVS(13873)*X(5250)-JVS(13874)*X(5253)-JVS(13875)*X(5256))/(JVS(13871)) - X(3122) = (X(3122)-JVS(13867)*X(3794)-JVS(13868)*X(5250)-JVS(13869)*X(5252)-JVS(13870)*X(5255))/(JVS(13866)) - X(3121) = (X(3121)-JVS(13859)*X(4399)-JVS(13860)*X(5250)-JVS(13861)*X(5252)-JVS(13862)*X(5255))/(JVS(13858)) - X(3120) = (X(3120)-JVS(13851)*X(4671)-JVS(13852)*X(5250)-JVS(13853)*X(5253)-JVS(13854)*X(5256))/(JVS(13850)) - X(3119) = (X(3119)-JVS(13846)*X(4487)-JVS(13847)*X(5250)-JVS(13848)*X(5253)-JVS(13849)*X(5256))/(JVS(13845)) - X(3118) = (X(3118)-JVS(13841)*X(4766)-JVS(13842)*X(5250)-JVS(13843)*X(5252)-JVS(13844)*X(5255))/(JVS(13840)) - X(3117) = (X(3117)-JVS(13833)*X(5112)-JVS(13834)*X(5250)-JVS(13835)*X(5252)-JVS(13836)*X(5255))/(JVS(13832)) - X(3116) = (X(3116)-JVS(13825)*X(4402)-JVS(13826)*X(5250)-JVS(13827)*X(5253)-JVS(13828)*X(5256))/(JVS(13824)) - X(3115) = (X(3115)-JVS(13820)*X(3559)-JVS(13821)*X(4563)-JVS(13822)*X(5250)-JVS(13823)*X(5255))/(JVS(13819)) - X(3114) = (X(3114)-JVS(13814)*X(4639)-JVS(13815)*X(5250)-JVS(13816)*X(5253)-JVS(13817)*X(5256))/(JVS(13813)) - X(3113) = (X(3113)-JVS(13811)*X(5250)-JVS(13812)*X(5256))/(JVS(13810)) - X(3112) = (X(3112)-JVS(13806)*X(4509)-JVS(13807)*X(5250)-JVS(13808)*X(5253)-JVS(13809)*X(5256))/(JVS(13805)) - X(3111) = (X(3111)-JVS(13801)*X(4494)-JVS(13802)*X(5250)-JVS(13803)*X(5253)-JVS(13804)*X(5256))/(JVS(13800)) - X(3110) = (X(3110)-JVS(13796)*X(5065)-JVS(13797)*X(5250)-JVS(13798)*X(5252)-JVS(13799)*X(5255))/(JVS(13795)) - X(3109) = (X(3109)-JVS(13788)*X(4586)-JVS(13789)*X(5250)-JVS(13790)*X(5252)-JVS(13791)*X(5255))/(JVS(13787)) - X(3108) = (X(3108)-JVS(13781)*X(4575)-JVS(13782)*X(5250)-JVS(13783)*X(5252))/(JVS(13780)) - X(3107) = (X(3107)-JVS(13776)*X(3108)-JVS(13777)*X(4575)-JVS(13778)*X(5250)-JVS(13779)*X(5255))/(JVS(13775)) - X(3106) = (X(3106)-JVS(13769)*X(4777)-JVS(13770)*X(4837)-JVS(13771)*X(5250)-JVS(13772)*X(5252))/(JVS(13768)) - X(3105) = (X(3105)-JVS(13766)*X(5250)-JVS(13767)*X(5256))/(JVS(13765)) - X(3104) = (X(3104)-JVS(13757)*X(3364)-JVS(13758)*X(3444)-JVS(13759)*X(3536)-JVS(13760)*X(4841)-JVS(13761)*X(5250)& - &-JVS(13762)*X(5252)-JVS(13763)*X(5255)-JVS(13764)*X(5256))/(JVS(13756)) - X(3103) = (X(3103)-JVS(13751)*X(3803)-JVS(13752)*X(5250)-JVS(13753)*X(5252)-JVS(13754)*X(5255))/(JVS(13750)) - X(3102) = (X(3102)-JVS(13743)*X(3658)-JVS(13744)*X(3670)-JVS(13745)*X(5250)-JVS(13746)*X(5252))/(JVS(13742)) - X(3101) = (X(3101)-JVS(13738)*X(4437)-JVS(13739)*X(5250)-JVS(13740)*X(5253)-JVS(13741)*X(5256))/(JVS(13737)) - X(3100) = (X(3100)-JVS(13733)*X(4444)-JVS(13734)*X(5250)-JVS(13735)*X(5253)-JVS(13736)*X(5256))/(JVS(13732)) - X(3099) = (X(3099)-JVS(13728)*X(4819)-JVS(13729)*X(4954)-JVS(13730)*X(5250)-JVS(13731)*X(5255))/(JVS(13727)) - X(3098) = (X(3098)-JVS(13723)*X(4504)-JVS(13724)*X(5250)-JVS(13725)*X(5253)-JVS(13726)*X(5256))/(JVS(13722)) - X(3097) = (X(3097)-JVS(13720)*X(5250)-JVS(13721)*X(5256))/(JVS(13719)) - X(3096) = (X(3096)-JVS(13717)*X(5250)-JVS(13718)*X(5256))/(JVS(13716)) - X(3095) = (X(3095)-JVS(13712)*X(4471)-JVS(13713)*X(5250)-JVS(13714)*X(5253)-JVS(13715)*X(5256))/(JVS(13711)) - X(3094) = (X(3094)-JVS(13707)*X(3455)-JVS(13708)*X(4706)-JVS(13709)*X(5252)-JVS(13710)*X(5256))/(JVS(13706)) - X(3093) = (X(3093)-JVS(13702)*X(4453)-JVS(13703)*X(5250)-JVS(13704)*X(5253)-JVS(13705)*X(5256))/(JVS(13701)) - X(3092) = (X(3092)-JVS(13697)*X(4531)-JVS(13698)*X(5250)-JVS(13699)*X(5253)-JVS(13700)*X(5256))/(JVS(13696)) - X(3091) = (X(3091)-JVS(13692)*X(5138)-JVS(13693)*X(5250)-JVS(13694)*X(5252)-JVS(13695)*X(5255))/(JVS(13691)) - X(3090) = (X(3090)-JVS(13684)*X(3744)-JVS(13685)*X(4925)-JVS(13686)*X(5250)-JVS(13687)*X(5255))/(JVS(13683)) - X(3089) = (X(3089)-JVS(13678)*X(3811)-JVS(13679)*X(5250)-JVS(13680)*X(5252)-JVS(13681)*X(5255))/(JVS(13677)) - X(3088) = (X(3088)-JVS(13670)*X(4798)-JVS(13671)*X(5250)-JVS(13672)*X(5253)-JVS(13673)*X(5256))/(JVS(13669)) - X(3087) = (X(3087)-JVS(13665)*X(4499)-JVS(13666)*X(5250)-JVS(13667)*X(5253)-JVS(13668)*X(5256))/(JVS(13664)) - X(3086) = (X(3086)-JVS(13660)*X(3504)-JVS(13661)*X(4369)-JVS(13662)*X(5250)-JVS(13663)*X(5255))/(JVS(13659)) - X(3085) = (X(3085)-JVS(13653)*X(4407)-JVS(13654)*X(5250)-JVS(13655)*X(5253)-JVS(13656)*X(5256))/(JVS(13652)) - X(3084) = (X(3084)-JVS(13650)*X(5250)-JVS(13651)*X(5256))/(JVS(13649)) - X(3083) = (X(3083)-JVS(13645)*X(4555)-JVS(13646)*X(5145)-JVS(13647)*X(5250)-JVS(13648)*X(5258))/(JVS(13644)) - X(3082) = (X(3082)-JVS(13639)*X(4055)-JVS(13640)*X(5250)-JVS(13641)*X(5252)-JVS(13642)*X(5255))/(JVS(13638)) - X(3081) = (X(3081)-JVS(13632)*X(4173)-JVS(13633)*X(5250)-JVS(13634)*X(5252))/(JVS(13631)) - X(3080) = (X(3080)-JVS(13626)*X(4894)-JVS(13627)*X(5250)-JVS(13628)*X(5252)-JVS(13629)*X(5255)-JVS(13630)*X(5256))& - &/(JVS(13625)) - X(3079) = (X(3079)-JVS(13618)*X(4778)-JVS(13619)*X(5250)-JVS(13620)*X(5252)-JVS(13621)*X(5255)-JVS(13622)*X(5256))& - &/(JVS(13617)) - X(3078) = (X(3078)-JVS(13613)*X(4584)-JVS(13614)*X(5250)-JVS(13615)*X(5255))/(JVS(13612)) - X(3077) = (X(3077)-JVS(13609)*X(3942)-JVS(13610)*X(4579)-JVS(13611)*X(5250))/(JVS(13608)) - X(3076) = (X(3076)-JVS(13605)*X(5078)-JVS(13606)*X(5250)-JVS(13607)*X(5252))/(JVS(13604)) - X(3075) = (X(3075)-JVS(13601)*X(4472)-JVS(13602)*X(5250)-JVS(13603)*X(5253))/(JVS(13600)) - X(3074) = (X(3074)-JVS(13595)*X(3988)-JVS(13596)*X(5250)-JVS(13597)*X(5252)-JVS(13598)*X(5255)-JVS(13599)*X(5256))& - &/(JVS(13594)) - X(3073) = (X(3073)-JVS(13588)*X(4461)-JVS(13589)*X(5250)-JVS(13590)*X(5252)-JVS(13591)*X(5255)-JVS(13592)*X(5256))& - &/(JVS(13587)) - X(3072) = (X(3072)-JVS(13581)*X(3987)-JVS(13582)*X(5250)-JVS(13583)*X(5252)-JVS(13584)*X(5255)-JVS(13585)*X(5256))& - &/(JVS(13580)) - X(3071) = (X(3071)-JVS(13574)*X(4751)-JVS(13575)*X(5250)-JVS(13576)*X(5252)-JVS(13577)*X(5255)-JVS(13578)*X(5256))& - &/(JVS(13573)) - X(3070) = (X(3070)-JVS(13569)*X(4430)-JVS(13570)*X(5250)-JVS(13571)*X(5253))/(JVS(13568)) - X(3069) = (X(3069)-JVS(13563)*X(5032)-JVS(13564)*X(5250)-JVS(13565)*X(5252)-JVS(13566)*X(5255)-JVS(13567)*X(5256))& - &/(JVS(13562)) - X(3068) = (X(3068)-JVS(13557)*X(5032)-JVS(13558)*X(5250)-JVS(13559)*X(5252))/(JVS(13556)) - X(3067) = (X(3067)-JVS(13551)*X(4486)-JVS(13552)*X(5250)-JVS(13553)*X(5252)-JVS(13554)*X(5255)-JVS(13555)*X(5256))& - &/(JVS(13550)) - X(3066) = (X(3066)-JVS(13544)*X(5081)-JVS(13545)*X(5250)-JVS(13546)*X(5252)-JVS(13547)*X(5255)-JVS(13548)*X(5256))& - &/(JVS(13543)) - X(3065) = (X(3065)-JVS(13536)*X(4297)-JVS(13537)*X(5250)-JVS(13538)*X(5252)-JVS(13539)*X(5255)-JVS(13540)*X(5256))& - &/(JVS(13535)) - X(3064) = (X(3064)-JVS(13529)*X(5035)-JVS(13530)*X(5250)-JVS(13531)*X(5252)-JVS(13532)*X(5255)-JVS(13533)*X(5256))& - &/(JVS(13528)) - X(3063) = (X(3063)-JVS(13524)*X(4404)-JVS(13525)*X(5250)-JVS(13526)*X(5253))/(JVS(13523)) - X(3062) = (X(3062)-JVS(13518)*X(4115)-JVS(13519)*X(5250)-JVS(13520)*X(5252)-JVS(13521)*X(5255)-JVS(13522)*X(5256))& - &/(JVS(13517)) - X(3061) = (X(3061)-JVS(13513)*X(4744)-JVS(13514)*X(5250)-JVS(13515)*X(5253))/(JVS(13512)) - X(3060) = (X(3060)-JVS(13509)*X(4626)-JVS(13510)*X(5250)-JVS(13511)*X(5253))/(JVS(13508)) - X(3059) = (X(3059)-JVS(13505)*X(5155)-JVS(13506)*X(5250)-JVS(13507)*X(5253))/(JVS(13504)) - X(3058) = (X(3058)-JVS(13499)*X(4429)-JVS(13500)*X(5250)-JVS(13501)*X(5252)-JVS(13502)*X(5255)-JVS(13503)*X(5256))& - &/(JVS(13498)) - X(3057) = (X(3057)-JVS(13494)*X(4911)-JVS(13495)*X(5250)-JVS(13496)*X(5255))/(JVS(13493)) - X(3056) = (X(3056)-JVS(13488)*X(4915)-JVS(13489)*X(5250)-JVS(13490)*X(5253))/(JVS(13487)) - X(3055) = (X(3055)-JVS(13484)*X(4765)-JVS(13485)*X(5250)-JVS(13486)*X(5255))/(JVS(13483)) - X(3054) = (X(3054)-JVS(13478)*X(3979)-JVS(13479)*X(5250)-JVS(13480)*X(5252)-JVS(13481)*X(5255)-JVS(13482)*X(5256))& - &/(JVS(13477)) - X(3053) = (X(3053)-JVS(13473)*X(4631)-JVS(13474)*X(5250)-JVS(13475)*X(5253))/(JVS(13472)) - X(3052) = (X(3052)-JVS(13469)*X(4299)-JVS(13470)*X(5250)-JVS(13471)*X(5253))/(JVS(13468)) - X(3051) = (X(3051)-JVS(13465)*X(4215)-JVS(13466)*X(5250)-JVS(13467)*X(5253))/(JVS(13464)) - X(3050) = (X(3050)-JVS(13459)*X(3813)-JVS(13460)*X(5250)-JVS(13461)*X(5252)-JVS(13462)*X(5255)-JVS(13463)*X(5256))& - &/(JVS(13458)) - X(3049) = (X(3049)-JVS(13453)*X(4730)-JVS(13454)*X(5250)-JVS(13455)*X(5255))/(JVS(13452)) - X(3048) = (X(3048)-JVS(13447)*X(3980)-JVS(13448)*X(5250)-JVS(13449)*X(5252)-JVS(13450)*X(5255)-JVS(13451)*X(5256))& - &/(JVS(13446)) - X(3047) = (X(3047)-JVS(13441)*X(5232)-JVS(13442)*X(5250)-JVS(13443)*X(5253))/(JVS(13440)) - X(3046) = (X(3046)-JVS(13437)*X(3961)-JVS(13438)*X(5250)-JVS(13439)*X(5255))/(JVS(13436)) - X(3045) = (X(3045)-JVS(13433)*X(4228)-JVS(13434)*X(5250)-JVS(13435)*X(5253))/(JVS(13432)) - X(3044) = (X(3044)-JVS(13429)*X(4353)-JVS(13430)*X(4695)-JVS(13431)*X(5250))/(JVS(13428)) - X(3043) = (X(3043)-JVS(13425)*X(4746)-JVS(13426)*X(5250)-JVS(13427)*X(5255))/(JVS(13424)) - X(3042) = (X(3042)-JVS(13421)*X(4229)-JVS(13422)*X(5250)-JVS(13423)*X(5253))/(JVS(13420)) - X(3041) = (X(3041)-JVS(13415)*X(4346)-JVS(13416)*X(5250)-JVS(13417)*X(5252)-JVS(13418)*X(5255)-JVS(13419)*X(5256))& - &/(JVS(13414)) - X(3040) = (X(3040)-JVS(13409)*X(4221)-JVS(13410)*X(5250)-JVS(13411)*X(5253))/(JVS(13408)) - X(3039) = (X(3039)-JVS(13403)*X(3883)-JVS(13404)*X(5250)-JVS(13405)*X(5252)-JVS(13406)*X(5255)-JVS(13407)*X(5256))& - &/(JVS(13402)) - X(3038) = (X(3038)-JVS(13398)*X(3854)-JVS(13399)*X(5250)-JVS(13400)*X(5255))/(JVS(13397)) - X(3037) = (X(3037)-JVS(13392)*X(4541)-JVS(13393)*X(5250)-JVS(13394)*X(5252)-JVS(13395)*X(5255)-JVS(13396)*X(5256))& - &/(JVS(13391)) - X(3036) = (X(3036)-JVS(13385)*X(4306)-JVS(13386)*X(5250)-JVS(13387)*X(5252)-JVS(13388)*X(5255)-JVS(13389)*X(5256))& - &/(JVS(13384)) - X(3035) = (X(3035)-JVS(13380)*X(4858)-JVS(13381)*X(5250)-JVS(13382)*X(5255))/(JVS(13379)) - X(3034) = (X(3034)-JVS(13376)*X(3982)-JVS(13377)*X(5250)-JVS(13378)*X(5252))/(JVS(13375)) - X(3033) = (X(3033)-JVS(13372)*X(4436)-JVS(13373)*X(5250)-JVS(13374)*X(5255))/(JVS(13371)) - X(3032) = (X(3032)-JVS(13366)*X(5147)-JVS(13367)*X(5250)-JVS(13368)*X(5252)-JVS(13369)*X(5255)-JVS(13370)*X(5256))& - &/(JVS(13365)) - X(3031) = (X(3031)-JVS(13360)*X(5117)-JVS(13361)*X(5250)-JVS(13362)*X(5255))/(JVS(13359)) - X(3030) = (X(3030)-JVS(13354)*X(4097)-JVS(13355)*X(5250)-JVS(13356)*X(5252)-JVS(13357)*X(5255)-JVS(13358)*X(5256))& - &/(JVS(13353)) - X(3029) = (X(3029)-JVS(13349)*X(4839)-JVS(13350)*X(5250)-JVS(13351)*X(5253))/(JVS(13348)) - X(3028) = (X(3028)-JVS(13343)*X(3953)-JVS(13344)*X(5250)-JVS(13345)*X(5252)-JVS(13346)*X(5255)-JVS(13347)*X(5256))& - &/(JVS(13342)) - X(3027) = (X(3027)-JVS(13336)*X(3815)-JVS(13337)*X(5250)-JVS(13338)*X(5252)-JVS(13339)*X(5255)-JVS(13340)*X(5256))& - &/(JVS(13335)) - X(3026) = (X(3026)-JVS(13330)*X(4469)-JVS(13331)*X(5250)-JVS(13332)*X(5253))/(JVS(13329)) - X(3025) = (X(3025)-JVS(13326)*X(4665)-JVS(13327)*X(5250)-JVS(13328)*X(5253))/(JVS(13325)) - X(3024) = (X(3024)-JVS(13322)*X(4515)-JVS(13323)*X(5250)-JVS(13324)*X(5253))/(JVS(13321)) - X(3023) = (X(3023)-JVS(13318)*X(4994)-JVS(13319)*X(5250)-JVS(13320)*X(5253))/(JVS(13317)) - X(3022) = (X(3022)-JVS(13314)*X(4513)-JVS(13315)*X(5250)-JVS(13316)*X(5255))/(JVS(13313)) - X(3021) = (X(3021)-JVS(13310)*X(5158)-JVS(13311)*X(5250)-JVS(13312)*X(5253))/(JVS(13309)) - X(3020) = (X(3020)-JVS(13306)*X(4553)-JVS(13307)*X(5250)-JVS(13308)*X(5253))/(JVS(13305)) - X(3019) = (X(3019)-JVS(13302)*X(4154)-JVS(13303)*X(5250)-JVS(13304)*X(5253))/(JVS(13301)) - X(3018) = (X(3018)-JVS(13298)*X(4814)-JVS(13299)*X(5250)-JVS(13300)*X(5255))/(JVS(13297)) - X(3017) = (X(3017)-JVS(13294)*X(4301)-JVS(13295)*X(5250)-JVS(13296)*X(5253))/(JVS(13293)) - X(3016) = (X(3016)-JVS(13288)*X(4212)-JVS(13289)*X(5250)-JVS(13290)*X(5252)-JVS(13291)*X(5255)-JVS(13292)*X(5256))& - &/(JVS(13287)) - X(3015) = (X(3015)-JVS(13283)*X(4360)-JVS(13284)*X(5250)-JVS(13285)*X(5252))/(JVS(13282)) - X(3014) = (X(3014)-JVS(13279)*X(4203)-JVS(13280)*X(5250)-JVS(13281)*X(5253))/(JVS(13278)) - X(3013) = (X(3013)-JVS(13273)*X(4128)-JVS(13274)*X(5250)-JVS(13275)*X(5252)-JVS(13276)*X(5255)-JVS(13277)*X(5256))& - &/(JVS(13272)) - X(3012) = (X(3012)-JVS(13266)*X(4792)-JVS(13267)*X(5250)-JVS(13268)*X(5253))/(JVS(13265)) - X(3011) = (X(3011)-JVS(13262)*X(5131)-JVS(13263)*X(5250)-JVS(13264)*X(5253))/(JVS(13261)) - X(3010) = (X(3010)-JVS(13258)*X(4955)-JVS(13259)*X(5250)-JVS(13260)*X(5253))/(JVS(13257)) - X(3009) = (X(3009)-JVS(13252)*X(4716)-JVS(13253)*X(5250)-JVS(13254)*X(5252)-JVS(13255)*X(5255)-JVS(13256)*X(5256))& - &/(JVS(13251)) - X(3008) = (X(3008)-JVS(13245)*X(5004)-JVS(13246)*X(5250)-JVS(13247)*X(5253))/(JVS(13244)) - X(3007) = (X(3007)-JVS(13241)*X(4521)-JVS(13242)*X(5250)-JVS(13243)*X(5253))/(JVS(13240)) - X(3006) = (X(3006)-JVS(13237)*X(4371)-JVS(13238)*X(5250)-JVS(13239)*X(5255))/(JVS(13236)) - X(3005) = (X(3005)-JVS(13233)*X(4946)-JVS(13234)*X(5250)-JVS(13235)*X(5255))/(JVS(13232)) - X(3004) = (X(3004)-JVS(13227)*X(4314)-JVS(13228)*X(5250)-JVS(13229)*X(5252)-JVS(13230)*X(5255)-JVS(13231)*X(5256))& - &/(JVS(13226)) - X(3003) = (X(3003)-JVS(13222)*X(5183)-JVS(13223)*X(5250)-JVS(13224)*X(5253))/(JVS(13221)) - X(3002) = (X(3002)-JVS(13218)*X(4879)-JVS(13219)*X(5252)-JVS(13220)*X(5256))/(JVS(13217)) - X(3001) = (X(3001)-JVS(13212)*X(4217)-JVS(13213)*X(5250)-JVS(13214)*X(5252)-JVS(13215)*X(5255)-JVS(13216)*X(5256))& - &/(JVS(13211)) - X(3000) = (X(3000)-JVS(13205)*X(4802)-JVS(13206)*X(5250)-JVS(13207)*X(5252)-JVS(13208)*X(5255)-JVS(13209)*X(5256))& - &/(JVS(13204)) - X(2999) = (X(2999)-JVS(13198)*X(4802)-JVS(13199)*X(5250)-JVS(13200)*X(5252))/(JVS(13197)) - X(2998) = (X(2998)-JVS(13194)*X(4026)-JVS(13195)*X(5250)-JVS(13196)*X(5253))/(JVS(13193)) - X(2997) = (X(2997)-JVS(13188)*X(3850)-JVS(13189)*X(5250)-JVS(13190)*X(5252)-JVS(13191)*X(5255)-JVS(13192)*X(5256))& - &/(JVS(13187)) - X(2996) = (X(2996)-JVS(13181)*X(5127)-JVS(13182)*X(5250)-JVS(13183)*X(5252)-JVS(13184)*X(5255)-JVS(13185)*X(5256))& - &/(JVS(13180)) - X(2995) = (X(2995)-JVS(13173)*X(4245)-JVS(13174)*X(5250)-JVS(13175)*X(5252)-JVS(13176)*X(5255)-JVS(13177)*X(5256))& - &/(JVS(13172)) - X(2994) = (X(2994)-JVS(13166)*X(3663)-JVS(13167)*X(5250)-JVS(13168)*X(5252)-JVS(13169)*X(5255)-JVS(13170)*X(5256))& - &/(JVS(13165)) - X(2993) = (X(2993)-JVS(13160)*X(4763)-JVS(13161)*X(5250)-JVS(13162)*X(5255))/(JVS(13159)) - X(2992) = (X(2992)-JVS(13154)*X(2993)-JVS(13155)*X(4108)-JVS(13156)*X(4763)-JVS(13157)*X(5252)-JVS(13158)*X(5256))& - &/(JVS(13153)) - X(2991) = (X(2991)-JVS(13150)*X(4221)-JVS(13151)*X(5250)-JVS(13152)*X(5255))/(JVS(13149)) - X(2990) = (X(2990)-JVS(13144)*X(5061)-JVS(13145)*X(5250)-JVS(13146)*X(5252)-JVS(13147)*X(5255)-JVS(13148)*X(5256))& - &/(JVS(13143)) - X(2989) = (X(2989)-JVS(13136)*X(4191)-JVS(13137)*X(5250)-JVS(13138)*X(5252)-JVS(13139)*X(5255)-JVS(13140)*X(5256))& - &/(JVS(13135)) - X(2988) = (X(2988)-JVS(13131)*X(4427)-JVS(13132)*X(5250)-JVS(13133)*X(5253))/(JVS(13130)) - X(2987) = (X(2987)-JVS(13127)*X(4984)-JVS(13128)*X(5250)-JVS(13129)*X(5253))/(JVS(13126)) - X(2986) = (X(2986)-JVS(13121)*X(4305)-JVS(13122)*X(5250)-JVS(13123)*X(5252)-JVS(13124)*X(5255)-JVS(13125)*X(5256))& - &/(JVS(13120)) - X(2985) = (X(2985)-JVS(13116)*X(5036)-JVS(13117)*X(5250)-JVS(13118)*X(5255))/(JVS(13115)) - X(2984) = (X(2984)-JVS(13112)*X(4485)-JVS(13113)*X(5250)-JVS(13114)*X(5253))/(JVS(13111)) - X(2983) = (X(2983)-JVS(13106)*X(4837)-JVS(13107)*X(5250)-JVS(13108)*X(5252)-JVS(13109)*X(5255)-JVS(13110)*X(5256))& - &/(JVS(13105)) - X(2982) = (X(2982)-JVS(13099)*X(4704)-JVS(13100)*X(5250)-JVS(13101)*X(5252)-JVS(13102)*X(5255)-JVS(13103)*X(5256))& - &/(JVS(13098)) - X(2981) = (X(2981)-JVS(13092)*X(4802)-JVS(13093)*X(5250)-JVS(13094)*X(5255))/(JVS(13091)) - X(2980) = (X(2980)-JVS(13088)*X(4653)-JVS(13089)*X(5250)-JVS(13090)*X(5253))/(JVS(13087)) - X(2979) = (X(2979)-JVS(13082)*X(3323)-JVS(13083)*X(3743)-JVS(13084)*X(5250)-JVS(13085)*X(5252)-JVS(13086)*X(5255))& - &/(JVS(13081)) - X(2978) = (X(2978)-JVS(13075)*X(4662)-JVS(13076)*X(5250)-JVS(13077)*X(5253))/(JVS(13074)) - X(2977) = (X(2977)-JVS(13071)*X(4969)-JVS(13072)*X(5250)-JVS(13073)*X(5253))/(JVS(13070)) - X(2976) = (X(2976)-JVS(13067)*X(4612)-JVS(13068)*X(5250)-JVS(13069)*X(5255))/(JVS(13066)) - X(2975) = (X(2975)-JVS(13063)*X(4648)-JVS(13064)*X(5250)-JVS(13065)*X(5255))/(JVS(13062)) - X(2974) = (X(2974)-JVS(13057)*X(4974)-JVS(13058)*X(5250)-JVS(13059)*X(5252)-JVS(13060)*X(5255)-JVS(13061)*X(5256))& - &/(JVS(13056)) - X(2973) = (X(2973)-JVS(13049)*X(3297)-JVS(13050)*X(5051)-JVS(13051)*X(5238)-JVS(13052)*X(5250)-JVS(13053)*X(5258))& - &/(JVS(13048)) - X(2972) = (X(2972)-JVS(13042)*X(4348)-JVS(13043)*X(5250)-JVS(13044)*X(5252)-JVS(13045)*X(5255)-JVS(13046)*X(5256))& - &/(JVS(13041)) - X(2971) = (X(2971)-JVS(13037)*X(4277)-JVS(13038)*X(5250)-JVS(13039)*X(5255))/(JVS(13036)) - X(2970) = (X(2970)-JVS(13033)*X(4329)-JVS(13034)*X(5250)-JVS(13035)*X(5253))/(JVS(13032)) - X(2969) = (X(2969)-JVS(13029)*X(4864)-JVS(13030)*X(5250)-JVS(13031)*X(5253))/(JVS(13028)) - X(2968) = (X(2968)-JVS(13023)*X(4503)-JVS(13024)*X(5250)-JVS(13025)*X(5252)-JVS(13026)*X(5255)-JVS(13027)*X(5256))& - &/(JVS(13022)) - X(2967) = (X(2967)-JVS(13016)*X(3975)-JVS(13017)*X(5250)-JVS(13018)*X(5252)-JVS(13019)*X(5255)-JVS(13020)*X(5256))& - &/(JVS(13015)) - X(2966) = (X(2966)-JVS(13010)*X(4599)-JVS(13011)*X(5250)-JVS(13012)*X(5252))/(JVS(13009)) - X(2965) = (X(2965)-JVS(13003)*X(3902)-JVS(13004)*X(3951)-JVS(13005)*X(5250)-JVS(13006)*X(5252)-JVS(13007)*X(5255))& - &/(JVS(13002)) - X(2964) = (X(2964)-JVS(12994)*X(4878)-JVS(12995)*X(5250)-JVS(12996)*X(5252))/(JVS(12993)) - X(2963) = (X(2963)-JVS(12988)*X(4200)-JVS(12989)*X(5250)-JVS(12990)*X(5252)-JVS(12991)*X(5255)-JVS(12992)*X(5256))& - &/(JVS(12987)) - X(2962) = (X(2962)-JVS(12981)*X(3876)-JVS(12982)*X(5250)-JVS(12983)*X(5252)-JVS(12984)*X(5255)-JVS(12985)*X(5256))& - &/(JVS(12980)) - X(2961) = (X(2961)-JVS(12974)*X(3898)-JVS(12975)*X(5250)-JVS(12976)*X(5252)-JVS(12977)*X(5255)-JVS(12978)*X(5256))& - &/(JVS(12973)) - X(2960) = (X(2960)-JVS(12967)*X(4435)-JVS(12968)*X(5250)-JVS(12969)*X(5252)-JVS(12970)*X(5255)-JVS(12971)*X(5256))& - &/(JVS(12966)) - X(2959) = (X(2959)-JVS(12960)*X(3806)-JVS(12961)*X(5250)-JVS(12962)*X(5252)-JVS(12963)*X(5255)-JVS(12964)*X(5256))& - &/(JVS(12959)) - X(2958) = (X(2958)-JVS(12955)*X(4953)-JVS(12956)*X(5250)-JVS(12957)*X(5253))/(JVS(12954)) - X(2957) = (X(2957)-JVS(12951)*X(3998)-JVS(12952)*X(5250)-JVS(12953)*X(5253))/(JVS(12950)) - X(2956) = (X(2956)-JVS(12947)*X(4338)-JVS(12948)*X(5250)-JVS(12949)*X(5253))/(JVS(12946)) - X(2955) = (X(2955)-JVS(12943)*X(4649)-JVS(12944)*X(5250)-JVS(12945)*X(5253))/(JVS(12942)) - X(2954) = (X(2954)-JVS(12937)*X(4368)-JVS(12938)*X(5250)-JVS(12939)*X(5252)-JVS(12940)*X(5255)-JVS(12941)*X(5256))& - &/(JVS(12936)) - X(2953) = (X(2953)-JVS(12929)*X(4597)-JVS(12930)*X(5250)-JVS(12931)*X(5252)-JVS(12932)*X(5255)-JVS(12933)*X(5256))& - &/(JVS(12928)) - X(2952) = (X(2952)-JVS(12920)*X(4276)-JVS(12921)*X(5250)-JVS(12922)*X(5252)-JVS(12923)*X(5255)-JVS(12924)*X(5256))& - &/(JVS(12919)) - X(2951) = (X(2951)-JVS(12915)*X(5029)-JVS(12916)*X(5250)-JVS(12917)*X(5253))/(JVS(12914)) - X(2950) = (X(2950)-JVS(12911)*X(4132)-JVS(12912)*X(5250)-JVS(12913)*X(5253))/(JVS(12910)) - X(2949) = (X(2949)-JVS(12905)*X(4141)-JVS(12906)*X(5250)-JVS(12907)*X(5252)-JVS(12908)*X(5255)-JVS(12909)*X(5256))& - &/(JVS(12904)) - X(2948) = (X(2948)-JVS(12899)*X(4685)-JVS(12900)*X(5250)-JVS(12901)*X(5253))/(JVS(12898)) - X(2947) = (X(2947)-JVS(12895)*X(4891)-JVS(12896)*X(5250)-JVS(12897)*X(5253))/(JVS(12894)) - X(2946) = (X(2946)-JVS(12889)*X(4890)-JVS(12890)*X(5250)-JVS(12891)*X(5252)-JVS(12892)*X(5255)-JVS(12893)*X(5256))& - &/(JVS(12888)) - X(2945) = (X(2945)-JVS(12884)*X(4924)-JVS(12885)*X(5250)-JVS(12886)*X(5253))/(JVS(12883)) - X(2944) = (X(2944)-JVS(12878)*X(5135)-JVS(12879)*X(5250)-JVS(12880)*X(5252)-JVS(12881)*X(5255)-JVS(12882)*X(5256))& - &/(JVS(12877)) - X(2943) = (X(2943)-JVS(12873)*X(3981)-JVS(12874)*X(5250)-JVS(12875)*X(5252))/(JVS(12872)) - X(2942) = (X(2942)-JVS(12869)*X(4137)-JVS(12870)*X(5250)-JVS(12871)*X(5252))/(JVS(12868)) - X(2941) = (X(2941)-JVS(12865)*X(4812)-JVS(12866)*X(5250)-JVS(12867)*X(5253))/(JVS(12864)) - X(2940) = (X(2940)-JVS(12861)*X(4827)-JVS(12862)*X(5250)-JVS(12863)*X(5255))/(JVS(12860)) - X(2939) = (X(2939)-JVS(12855)*X(5150)-JVS(12856)*X(5250)-JVS(12857)*X(5252)-JVS(12858)*X(5255)-JVS(12859)*X(5256))& - &/(JVS(12854)) - X(2938) = (X(2938)-JVS(12847)*X(3424)-JVS(12848)*X(4196)-JVS(12849)*X(5250)-JVS(12850)*X(5252)-JVS(12851)*X(5255))& - &/(JVS(12846)) - X(2937) = (X(2937)-JVS(12838)*X(4232)-JVS(12839)*X(5250)-JVS(12840)*X(5252)-JVS(12841)*X(5255)-JVS(12842)*X(5256))& - &/(JVS(12837)) - X(2936) = (X(2936)-JVS(12833)*X(3701)-JVS(12834)*X(5250)-JVS(12835)*X(5258))/(JVS(12832)) - X(2935) = (X(2935)-JVS(12826)*X(4298)-JVS(12827)*X(5250)-JVS(12828)*X(5252)-JVS(12829)*X(5255)-JVS(12830)*X(5256))& - &/(JVS(12825)) - X(2934) = (X(2934)-JVS(12821)*X(3873)-JVS(12822)*X(5250)-JVS(12823)*X(5252))/(JVS(12820)) - X(2933) = (X(2933)-JVS(12815)*X(5056)-JVS(12816)*X(5250)-JVS(12817)*X(5252)-JVS(12818)*X(5255)-JVS(12819)*X(5256))& - &/(JVS(12814)) - X(2932) = (X(2932)-JVS(12808)*X(3473)-JVS(12809)*X(4365)-JVS(12810)*X(5250))/(JVS(12807)) - X(2931) = (X(2931)-JVS(12801)*X(3848)-JVS(12802)*X(5250)-JVS(12803)*X(5252)-JVS(12804)*X(5255)-JVS(12805)*X(5256))& - &/(JVS(12800)) - X(2930) = (X(2930)-JVS(12796)*X(4138)-JVS(12797)*X(5250)-JVS(12798)*X(5255))/(JVS(12795)) - X(2929) = (X(2929)-JVS(12792)*X(4424)-JVS(12793)*X(5250)-JVS(12794)*X(5253))/(JVS(12791)) - X(2928) = (X(2928)-JVS(12788)*X(4753)-JVS(12789)*X(5250)-JVS(12790)*X(5253))/(JVS(12787)) - X(2927) = (X(2927)-JVS(12784)*X(3684)-JVS(12785)*X(5250)-JVS(12786)*X(5258))/(JVS(12783)) - X(2926) = (X(2926)-JVS(12777)*X(5208)-JVS(12778)*X(5250)-JVS(12779)*X(5252)-JVS(12780)*X(5255)-JVS(12781)*X(5256))& - &/(JVS(12776)) - X(2925) = (X(2925)-JVS(12771)*X(4518)-JVS(12772)*X(5250)-JVS(12773)*X(5253))/(JVS(12770)) - X(2924) = (X(2924)-JVS(12767)*X(4916)-JVS(12768)*X(5250)-JVS(12769)*X(5253))/(JVS(12766)) - X(2923) = (X(2923)-JVS(12763)*X(4920)-JVS(12764)*X(5250)-JVS(12765)*X(5255))/(JVS(12762)) - X(2922) = (X(2922)-JVS(12757)*X(5181)-JVS(12758)*X(5250)-JVS(12759)*X(5252)-JVS(12760)*X(5255)-JVS(12761)*X(5256))& - &/(JVS(12756)) - X(2921) = (X(2921)-JVS(12751)*X(4862)-JVS(12752)*X(5250)-JVS(12753)*X(5253))/(JVS(12750)) - X(2920) = (X(2920)-JVS(12747)*X(4857)-JVS(12748)*X(5250)-JVS(12749)*X(5255))/(JVS(12746)) - X(2919) = (X(2919)-JVS(12741)*X(3937)-JVS(12742)*X(5250)-JVS(12743)*X(5252)-JVS(12744)*X(5255)-JVS(12745)*X(5256))& - &/(JVS(12740)) - X(2918) = (X(2918)-JVS(12734)*X(4293)-JVS(12735)*X(5250)-JVS(12736)*X(5252)-JVS(12737)*X(5255)-JVS(12738)*X(5256))& - &/(JVS(12733)) - X(2917) = (X(2917)-JVS(12729)*X(5108)-JVS(12730)*X(5250)-JVS(12731)*X(5252))/(JVS(12728)) - X(2916) = (X(2916)-JVS(12723)*X(3895)-JVS(12724)*X(5250)-JVS(12725)*X(5252)-JVS(12726)*X(5255)-JVS(12727)*X(5256))& - &/(JVS(12722)) - X(2915) = (X(2915)-JVS(12718)*X(4635)-JVS(12719)*X(5250)-JVS(12720)*X(5253))/(JVS(12717)) - X(2914) = (X(2914)-JVS(12712)*X(4333)-JVS(12713)*X(5200)-JVS(12714)*X(5238)-JVS(12715)*X(5250)-JVS(12716)*X(5258))& - &/(JVS(12711)) - X(2913) = (X(2913)-JVS(12707)*X(4980)-JVS(12708)*X(5250)-JVS(12709)*X(5252))/(JVS(12706)) - X(2912) = (X(2912)-JVS(12701)*X(4607)-JVS(12702)*X(5250)-JVS(12703)*X(5252)-JVS(12704)*X(5255)-JVS(12705)*X(5256))& - &/(JVS(12700)) - X(2911) = (X(2911)-JVS(12696)*X(4308)-JVS(12697)*X(5250)-JVS(12698)*X(5255))/(JVS(12695)) - X(2910) = (X(2910)-JVS(12692)*X(4811)-JVS(12693)*X(5250)-JVS(12694)*X(5255))/(JVS(12691)) - X(2909) = (X(2909)-JVS(12684)*X(3890)-JVS(12685)*X(3901)-JVS(12686)*X(5250)-JVS(12687)*X(5252)-JVS(12688)*X(5255))& - &/(JVS(12683)) - X(2908) = (X(2908)-JVS(12674)*X(3890)-JVS(12675)*X(5250)-JVS(12676)*X(5252))/(JVS(12673)) - X(2907) = (X(2907)-JVS(12670)*X(4739)-JVS(12671)*X(5250)-JVS(12672)*X(5253))/(JVS(12669)) - X(2906) = (X(2906)-JVS(12664)*X(5077)-JVS(12665)*X(5250)-JVS(12666)*X(5252)-JVS(12667)*X(5255)-JVS(12668)*X(5256))& - &/(JVS(12663)) - X(2905) = (X(2905)-JVS(12656)*X(4134)-JVS(12657)*X(5250)-JVS(12658)*X(5252)-JVS(12659)*X(5255)-JVS(12660)*X(5256))& - &/(JVS(12655)) - X(2904) = (X(2904)-JVS(12651)*X(4684)-JVS(12652)*X(5250)-JVS(12653)*X(5253))/(JVS(12650)) - X(2903) = (X(2903)-JVS(12645)*X(4262)-JVS(12646)*X(5250)-JVS(12647)*X(5252)-JVS(12648)*X(5255)-JVS(12649)*X(5256))& - &/(JVS(12644)) - X(2902) = (X(2902)-JVS(12638)*X(4185)-JVS(12639)*X(5250)-JVS(12640)*X(5252)-JVS(12641)*X(5255)-JVS(12642)*X(5256))& - &/(JVS(12637)) - X(2901) = (X(2901)-JVS(12633)*X(4102)-JVS(12634)*X(5250)-JVS(12635)*X(5253))/(JVS(12632)) - X(2900) = (X(2900)-JVS(12629)*X(3810)-JVS(12630)*X(5250)-JVS(12631)*X(5255))/(JVS(12628)) - X(2899) = (X(2899)-JVS(12625)*X(4203)-JVS(12626)*X(5250)-JVS(12627)*X(5255))/(JVS(12624)) - X(2898) = (X(2898)-JVS(12621)*X(4266)-JVS(12622)*X(5250)-JVS(12623)*X(5253))/(JVS(12620)) - X(2897) = (X(2897)-JVS(12615)*X(3860)-JVS(12616)*X(5250)-JVS(12617)*X(5252)-JVS(12618)*X(5255)-JVS(12619)*X(5256))& - &/(JVS(12614)) - X(2896) = (X(2896)-JVS(12610)*X(4283)-JVS(12611)*X(5250)-JVS(12612)*X(5253))/(JVS(12609)) - X(2895) = (X(2895)-JVS(12606)*X(3736)-JVS(12607)*X(3737)-JVS(12608)*X(5250))/(JVS(12605)) - X(2894) = (X(2894)-JVS(12600)*X(4120)-JVS(12601)*X(5250)-JVS(12602)*X(5252)-JVS(12603)*X(5255)-JVS(12604)*X(5256))& - &/(JVS(12599)) - X(2893) = (X(2893)-JVS(12595)*X(4852)-JVS(12596)*X(5250)-JVS(12597)*X(5255))/(JVS(12594)) - X(2892) = (X(2892)-JVS(12591)*X(4124)-JVS(12592)*X(5250)-JVS(12593)*X(5252))/(JVS(12590)) - X(2891) = (X(2891)-JVS(12585)*X(5148)-JVS(12586)*X(5250)-JVS(12587)*X(5252)-JVS(12588)*X(5255)-JVS(12589)*X(5256))& - &/(JVS(12584)) - X(2890) = (X(2890)-JVS(12577)*X(4098)-JVS(12578)*X(5250)-JVS(12579)*X(5252)-JVS(12580)*X(5255)-JVS(12581)*X(5256))& - &/(JVS(12576)) - X(2889) = (X(2889)-JVS(12570)*X(4334)-JVS(12571)*X(5250)-JVS(12572)*X(5252)-JVS(12573)*X(5255)-JVS(12574)*X(5256))& - &/(JVS(12569)) - X(2888) = (X(2888)-JVS(12564)*X(4090)-JVS(12565)*X(5250)-JVS(12566)*X(5252))/(JVS(12563)) - X(2887) = (X(2887)-JVS(12560)*X(4557)-JVS(12561)*X(5250)-JVS(12562)*X(5253))/(JVS(12559)) - X(2886) = (X(2886)-JVS(12556)*X(5179)-JVS(12557)*X(5250)-JVS(12558)*X(5253))/(JVS(12555)) - X(2885) = (X(2885)-JVS(12552)*X(4412)-JVS(12553)*X(5250)-JVS(12554)*X(5253))/(JVS(12551)) - X(2884) = (X(2884)-JVS(12548)*X(4848)-JVS(12549)*X(5250)-JVS(12550)*X(5253))/(JVS(12547)) - X(2883) = (X(2883)-JVS(12544)*X(5117)-JVS(12545)*X(5250)-JVS(12546)*X(5253))/(JVS(12543)) - X(2882) = (X(2882)-JVS(12540)*X(4634)-JVS(12541)*X(5250)-JVS(12542)*X(5253))/(JVS(12539)) - X(2881) = (X(2881)-JVS(12534)*X(4170)-JVS(12535)*X(5250)-JVS(12536)*X(5252)-JVS(12537)*X(5255)-JVS(12538)*X(5256))& - &/(JVS(12533)) - X(2880) = (X(2880)-JVS(12529)*X(5136)-JVS(12530)*X(5250)-JVS(12531)*X(5253))/(JVS(12528)) - X(2879) = (X(2879)-JVS(12525)*X(4855)-JVS(12526)*X(5250)-JVS(12527)*X(5253))/(JVS(12524)) - X(2878) = (X(2878)-JVS(12521)*X(4390)-JVS(12522)*X(5250)-JVS(12523)*X(5255))/(JVS(12520)) - X(2877) = (X(2877)-JVS(12517)*X(4874)-JVS(12518)*X(5250)-JVS(12519)*X(5253))/(JVS(12516)) - X(2876) = (X(2876)-JVS(12513)*X(4986)-JVS(12514)*X(5250)-JVS(12515)*X(5253))/(JVS(12512)) - X(2875) = (X(2875)-JVS(12509)*X(4675)-JVS(12510)*X(5250)-JVS(12511)*X(5255))/(JVS(12508)) - X(2874) = (X(2874)-JVS(12501)*X(4254)-JVS(12502)*X(5250)-JVS(12503)*X(5252)-JVS(12504)*X(5255)-JVS(12505)*X(5256))& - &/(JVS(12500)) - X(2873) = (X(2873)-JVS(12496)*X(4428)-JVS(12497)*X(5250)-JVS(12498)*X(5255))/(JVS(12495)) - X(2872) = (X(2872)-JVS(12492)*X(4433)-JVS(12493)*X(5250)-JVS(12494)*X(5253))/(JVS(12491)) - X(2871) = (X(2871)-JVS(12488)*X(3885)-JVS(12489)*X(5250)-JVS(12490)*X(5255))/(JVS(12487)) - X(2870) = (X(2870)-JVS(12484)*X(4772)-JVS(12485)*X(5250)-JVS(12486)*X(5255))/(JVS(12483)) - X(2869) = (X(2869)-JVS(12478)*X(4364)-JVS(12479)*X(5250)-JVS(12480)*X(5252)-JVS(12481)*X(5255)-JVS(12482)*X(5256))& - &/(JVS(12477)) - X(2868) = (X(2868)-JVS(12473)*X(4957)-JVS(12474)*X(5250)-JVS(12475)*X(5255))/(JVS(12472)) - X(2867) = (X(2867)-JVS(12469)*X(4806)-JVS(12470)*X(5250)-JVS(12471)*X(5253))/(JVS(12468)) - X(2866) = (X(2866)-JVS(12465)*X(4441)-JVS(12466)*X(5250)-JVS(12467)*X(5253))/(JVS(12464)) - X(2865) = (X(2865)-JVS(12459)*X(4263)-JVS(12460)*X(5250)-JVS(12461)*X(5252)-JVS(12462)*X(5255)-JVS(12463)*X(5256))& - &/(JVS(12458)) - X(2864) = (X(2864)-JVS(12454)*X(4853)-JVS(12455)*X(5250)-JVS(12456)*X(5253))/(JVS(12453)) - X(2863) = (X(2863)-JVS(12450)*X(4253)-JVS(12451)*X(5250)-JVS(12452)*X(5253))/(JVS(12449)) - X(2862) = (X(2862)-JVS(12446)*X(4218)-JVS(12447)*X(5250)-JVS(12448)*X(5255))/(JVS(12445)) - X(2861) = (X(2861)-JVS(12440)*X(4420)-JVS(12441)*X(5180)-JVS(12442)*X(5235)-JVS(12443)*X(5252)-JVS(12444)*X(5256))& - &/(JVS(12439)) - X(2860) = (X(2860)-JVS(12436)*X(4921)-JVS(12437)*X(5250)-JVS(12438)*X(5253))/(JVS(12435)) - X(2859) = (X(2859)-JVS(12432)*X(4489)-JVS(12433)*X(5250)-JVS(12434)*X(5253))/(JVS(12431)) - X(2858) = (X(2858)-JVS(12426)*X(3964)-JVS(12427)*X(5250)-JVS(12428)*X(5252)-JVS(12429)*X(5255)-JVS(12430)*X(5256))& - &/(JVS(12425)) - X(2857) = (X(2857)-JVS(12421)*X(4654)-JVS(12422)*X(5250)-JVS(12423)*X(5253))/(JVS(12420)) - X(2856) = (X(2856)-JVS(12415)*X(3882)-JVS(12416)*X(4216)-JVS(12417)*X(5250)-JVS(12418)*X(5252)-JVS(12419)*X(5255))& - &/(JVS(12414)) - X(2855) = (X(2855)-JVS(12407)*X(3882)-JVS(12408)*X(5250)-JVS(12409)*X(5252))/(JVS(12406)) - X(2854) = (X(2854)-JVS(12401)*X(3395)-JVS(12402)*X(3414)-JVS(12403)*X(3596)-JVS(12404)*X(3597)-JVS(12405)*X(5250))& - &/(JVS(12400)) - X(2853) = (X(2853)-JVS(12395)*X(4532)-JVS(12396)*X(5250)-JVS(12397)*X(5252)-JVS(12398)*X(5255)-JVS(12399)*X(5256))& - &/(JVS(12394)) - X(2852) = (X(2852)-JVS(12390)*X(4977)-JVS(12391)*X(5250)-JVS(12392)*X(5253))/(JVS(12389)) - X(2851) = (X(2851)-JVS(12384)*X(4143)-JVS(12385)*X(5250)-JVS(12386)*X(5252)-JVS(12387)*X(5255)-JVS(12388)*X(5256))& - &/(JVS(12383)) - X(2850) = (X(2850)-JVS(12379)*X(4830)-JVS(12380)*X(5250)-JVS(12381)*X(5253))/(JVS(12378)) - X(2849) = (X(2849)-JVS(12373)*X(4608)-JVS(12374)*X(5250)-JVS(12375)*X(5252)-JVS(12376)*X(5255)-JVS(12377)*X(5256))& - &/(JVS(12372)) - X(2848) = (X(2848)-JVS(12368)*X(4629)-JVS(12369)*X(5250)-JVS(12370)*X(5253))/(JVS(12367)) - X(2847) = (X(2847)-JVS(12362)*X(3641)-JVS(12363)*X(5250)-JVS(12364)*X(5252)-JVS(12365)*X(5255)-JVS(12366)*X(5256))& - &/(JVS(12361)) - X(2846) = (X(2846)-JVS(12356)*X(4934)-JVS(12357)*X(5250)-JVS(12358)*X(5253))/(JVS(12355)) - X(2845) = (X(2845)-JVS(12352)*X(4468)-JVS(12353)*X(5250)-JVS(12354)*X(5253))/(JVS(12351)) - X(2844) = (X(2844)-JVS(12348)*X(4517)-JVS(12349)*X(5250)-JVS(12350)*X(5253))/(JVS(12347)) - X(2843) = (X(2843)-JVS(12344)*X(4623)-JVS(12345)*X(5250)-JVS(12346)*X(5253))/(JVS(12343)) - X(2842) = (X(2842)-JVS(12340)*X(4866)-JVS(12341)*X(5250)-JVS(12342)*X(5253))/(JVS(12339)) - X(2841) = (X(2841)-JVS(12336)*X(4760)-JVS(12337)*X(5250)-JVS(12338)*X(5253))/(JVS(12335)) - X(2840) = (X(2840)-JVS(12330)*X(5060)-JVS(12331)*X(5250)-JVS(12332)*X(5252)-JVS(12333)*X(5255)-JVS(12334)*X(5256))& - &/(JVS(12329)) - X(2839) = (X(2839)-JVS(12325)*X(4121)-JVS(12326)*X(5250)-JVS(12327)*X(5252))/(JVS(12324)) - X(2838) = (X(2838)-JVS(12321)*X(4013)-JVS(12322)*X(5250)-JVS(12323)*X(5255))/(JVS(12320)) - X(2837) = (X(2837)-JVS(12315)*X(3468)-JVS(12316)*X(4893)-JVS(12317)*X(5250)-JVS(12318)*X(5252)-JVS(12319)*X(5256))& - &/(JVS(12314)) - X(2836) = (X(2836)-JVS(12310)*X(4756)-JVS(12311)*X(5250)-JVS(12312)*X(5255))/(JVS(12309)) - X(2835) = (X(2835)-JVS(12306)*X(3961)-JVS(12307)*X(5250)-JVS(12308)*X(5252))/(JVS(12305)) - X(2834) = (X(2834)-JVS(12302)*X(3980)-JVS(12303)*X(5250)-JVS(12304)*X(5252))/(JVS(12301)) - X(2833) = (X(2833)-JVS(12298)*X(4445)-JVS(12299)*X(5250)-JVS(12300)*X(5253))/(JVS(12297)) - X(2832) = (X(2832)-JVS(12292)*X(3928)-JVS(12293)*X(5250)-JVS(12294)*X(5252)-JVS(12295)*X(5255)-JVS(12296)*X(5256))& - &/(JVS(12291)) - X(2831) = (X(2831)-JVS(12285)*X(4140)-JVS(12286)*X(5250)-JVS(12287)*X(5252)-JVS(12288)*X(5255)-JVS(12289)*X(5256))& - &/(JVS(12284)) - X(2830) = (X(2830)-JVS(12280)*X(4773)-JVS(12281)*X(5250)-JVS(12282)*X(5253))/(JVS(12279)) - X(2829) = (X(2829)-JVS(12276)*X(4863)-JVS(12277)*X(5250)-JVS(12278)*X(5253))/(JVS(12275)) - X(2828) = (X(2828)-JVS(12272)*X(4640)-JVS(12273)*X(5250)-JVS(12274)*X(5255))/(JVS(12271)) - X(2827) = (X(2827)-JVS(12266)*X(4211)-JVS(12267)*X(5250)-JVS(12268)*X(5252)-JVS(12269)*X(5255)-JVS(12270)*X(5256))& - &/(JVS(12265)) - X(2826) = (X(2826)-JVS(12259)*X(4573)-JVS(12260)*X(5250)-JVS(12261)*X(5252)-JVS(12262)*X(5255)-JVS(12263)*X(5256))& - &/(JVS(12258)) - X(2825) = (X(2825)-JVS(12252)*X(5237)-JVS(12253)*X(5250)-JVS(12254)*X(5253))/(JVS(12251)) - X(2824) = (X(2824)-JVS(12248)*X(4516)-JVS(12249)*X(5250)-JVS(12250)*X(5255))/(JVS(12247)) - X(2823) = (X(2823)-JVS(12244)*X(4539)-JVS(12245)*X(5250)-JVS(12246)*X(5253))/(JVS(12243)) - X(2822) = (X(2822)-JVS(12240)*X(4979)-JVS(12241)*X(5250)-JVS(12242)*X(5253))/(JVS(12239)) - X(2821) = (X(2821)-JVS(12234)*X(3865)-JVS(12235)*X(5250)-JVS(12236)*X(5252)-JVS(12237)*X(5255)-JVS(12238)*X(5256))& - &/(JVS(12233)) - X(2820) = (X(2820)-JVS(12227)*X(4750)-JVS(12228)*X(5250)-JVS(12229)*X(5252)-JVS(12230)*X(5255)-JVS(12231)*X(5256))& - &/(JVS(12226)) - X(2819) = (X(2819)-JVS(12220)*X(4149)-JVS(12221)*X(5250)-JVS(12222)*X(5252)-JVS(12223)*X(5255)-JVS(12224)*X(5256))& - &/(JVS(12219)) - X(2818) = (X(2818)-JVS(12213)*X(4312)-JVS(12214)*X(5250)-JVS(12215)*X(5252)-JVS(12216)*X(5255)-JVS(12217)*X(5256))& - &/(JVS(12212)) - X(2817) = (X(2817)-JVS(12208)*X(4609)-JVS(12209)*X(5250)-JVS(12210)*X(5252))/(JVS(12207)) - X(2816) = (X(2816)-JVS(12202)*X(4159)-JVS(12203)*X(5250)-JVS(12204)*X(5252)-JVS(12205)*X(5255)-JVS(12206)*X(5256))& - &/(JVS(12201)) - X(2815) = (X(2815)-JVS(12197)*X(4316)-JVS(12198)*X(5250)-JVS(12199)*X(5253))/(JVS(12196)) - X(2814) = (X(2814)-JVS(12193)*X(4561)-JVS(12194)*X(5250)-JVS(12195)*X(5252))/(JVS(12192)) - X(2813) = (X(2813)-JVS(12189)*X(5245)-JVS(12190)*X(5250)-JVS(12191)*X(5253))/(JVS(12188)) - X(2812) = (X(2812)-JVS(12185)*X(4189)-JVS(12186)*X(5250)-JVS(12187)*X(5252))/(JVS(12184)) - X(2811) = (X(2811)-JVS(12181)*X(4428)-JVS(12182)*X(5250)-JVS(12183)*X(5253))/(JVS(12180)) - X(2810) = (X(2810)-JVS(12177)*X(4614)-JVS(12178)*X(5250)-JVS(12179)*X(5255))/(JVS(12176)) - X(2809) = (X(2809)-JVS(12173)*X(4572)-JVS(12174)*X(5250)-JVS(12175)*X(5255))/(JVS(12172)) - X(2808) = (X(2808)-JVS(12167)*X(4930)-JVS(12168)*X(5250)-JVS(12169)*X(5253))/(JVS(12166)) - X(2807) = (X(2807)-JVS(12161)*X(2828)-JVS(12162)*X(4640)-JVS(12163)*X(4845)-JVS(12164)*X(5252)-JVS(12165)*X(5256))& - &/(JVS(12160)) - X(2806) = (X(2806)-JVS(12155)*X(3321)-JVS(12156)*X(3820)-JVS(12157)*X(5250)-JVS(12158)*X(5252)-JVS(12159)*X(5256))& - &/(JVS(12154)) - X(2805) = (X(2805)-JVS(12150)*X(4353)-JVS(12151)*X(5250)-JVS(12152)*X(5255))/(JVS(12149)) - X(2804) = (X(2804)-JVS(12146)*X(5214)-JVS(12147)*X(5250)-JVS(12148)*X(5253))/(JVS(12145)) - X(2803) = (X(2803)-JVS(12142)*X(3759)-JVS(12143)*X(4053)-JVS(12144)*X(5250))/(JVS(12141)) - X(2802) = (X(2802)-JVS(12138)*X(5130)-JVS(12139)*X(5250)-JVS(12140)*X(5252))/(JVS(12137)) - X(2801) = (X(2801)-JVS(12134)*X(4259)-JVS(12135)*X(5250)-JVS(12136)*X(5253))/(JVS(12133)) - X(2800) = (X(2800)-JVS(12130)*X(4207)-JVS(12131)*X(5250)-JVS(12132)*X(5253))/(JVS(12129)) - X(2799) = (X(2799)-JVS(12126)*X(3903)-JVS(12127)*X(5250)-JVS(12128)*X(5255))/(JVS(12125)) - X(2798) = (X(2798)-JVS(12120)*X(2799)-JVS(12121)*X(3903)-JVS(12122)*X(5250)-JVS(12123)*X(5252)-JVS(12124)*X(5256))& - &/(JVS(12119)) - X(2797) = (X(2797)-JVS(12115)*X(3992)-JVS(12116)*X(5250)-JVS(12117)*X(5255))/(JVS(12114)) - X(2796) = (X(2796)-JVS(12111)*X(4414)-JVS(12112)*X(5250)-JVS(12113)*X(5253))/(JVS(12110)) - X(2795) = (X(2795)-JVS(12105)*X(4695)-JVS(12106)*X(5250)-JVS(12107)*X(5252)-JVS(12108)*X(5255)-JVS(12109)*X(5256))& - &/(JVS(12104)) - X(2794) = (X(2794)-JVS(12100)*X(4536)-JVS(12101)*X(5250)-JVS(12102)*X(5253))/(JVS(12099)) - X(2793) = (X(2793)-JVS(12096)*X(5100)-JVS(12097)*X(5250)-JVS(12098)*X(5253))/(JVS(12095)) - X(2792) = (X(2792)-JVS(12092)*X(5243)-JVS(12093)*X(5250)-JVS(12094)*X(5253))/(JVS(12091)) - X(2791) = (X(2791)-JVS(12088)*X(4255)-JVS(12089)*X(5250)-JVS(12090)*X(5253))/(JVS(12087)) - X(2790) = (X(2790)-JVS(12084)*X(4949)-JVS(12085)*X(5250)-JVS(12086)*X(5253))/(JVS(12083)) - X(2789) = (X(2789)-JVS(12078)*X(3791)-JVS(12079)*X(5250)-JVS(12080)*X(5252)-JVS(12081)*X(5255)-JVS(12082)*X(5256))& - &/(JVS(12077)) - X(2788) = (X(2788)-JVS(12070)*X(4543)-JVS(12071)*X(5250)-JVS(12072)*X(5252)-JVS(12073)*X(5255)-JVS(12074)*X(5256))& - &/(JVS(12069)) - X(2787) = (X(2787)-JVS(12065)*X(4642)-JVS(12066)*X(5250)-JVS(12067)*X(5253))/(JVS(12064)) - X(2786) = (X(2786)-JVS(12061)*X(4962)-JVS(12062)*X(5250)-JVS(12063)*X(5253))/(JVS(12060)) - X(2785) = (X(2785)-JVS(12057)*X(3893)-JVS(12058)*X(5250)-JVS(12059)*X(5255))/(JVS(12056)) - X(2784) = (X(2784)-JVS(12053)*X(4230)-JVS(12054)*X(5250)-JVS(12055)*X(5253))/(JVS(12052)) - X(2783) = (X(2783)-JVS(12047)*X(4668)-JVS(12048)*X(4677)-JVS(12049)*X(5152)-JVS(12050)*X(5250)-JVS(12051)*X(5255))& - &/(JVS(12046)) - X(2782) = (X(2782)-JVS(12043)*X(4529)-JVS(12044)*X(5250)-JVS(12045)*X(5252))/(JVS(12042)) - X(2781) = (X(2781)-JVS(12039)*X(4738)-JVS(12040)*X(5250)-JVS(12041)*X(5253))/(JVS(12038)) - X(2780) = (X(2780)-JVS(12035)*X(4187)-JVS(12036)*X(5250)-JVS(12037)*X(5253))/(JVS(12034)) - X(2779) = (X(2779)-JVS(12031)*X(4686)-JVS(12032)*X(5250)-JVS(12033)*X(5253))/(JVS(12030)) - X(2778) = (X(2778)-JVS(12027)*X(4523)-JVS(12028)*X(5250)-JVS(12029)*X(5253))/(JVS(12026)) - X(2777) = (X(2777)-JVS(12023)*X(4636)-JVS(12024)*X(5250)-JVS(12025)*X(5253))/(JVS(12022)) - X(2776) = (X(2776)-JVS(12017)*X(3828)-JVS(12018)*X(5250)-JVS(12019)*X(5252)-JVS(12020)*X(5255)-JVS(12021)*X(5256))& - &/(JVS(12016)) - X(2775) = (X(2775)-JVS(12011)*X(3873)-JVS(12012)*X(5250)-JVS(12013)*X(5255))/(JVS(12010)) - X(2774) = (X(2774)-JVS(12007)*X(5053)-JVS(12008)*X(5250)-JVS(12009)*X(5255))/(JVS(12006)) - X(2773) = (X(2773)-JVS(12001)*X(3313)-JVS(12002)*X(3698)-JVS(12003)*X(5250)-JVS(12004)*X(5252)-JVS(12005)*X(5255))& - &/(JVS(12000)) - X(2772) = (X(2772)-JVS(11994)*X(4752)-JVS(11995)*X(5250)-JVS(11996)*X(5253))/(JVS(11993)) - X(2771) = (X(2771)-JVS(11988)*X(4111)-JVS(11989)*X(5250)-JVS(11990)*X(5252)-JVS(11991)*X(5255)-JVS(11992)*X(5256))& - &/(JVS(11987)) - X(2770) = (X(2770)-JVS(11981)*X(3621)-JVS(11982)*X(5091)-JVS(11983)*X(5250)-JVS(11984)*X(5252)-JVS(11985)*X(5256))& - &/(JVS(11980)) - X(2769) = (X(2769)-JVS(11976)*X(4742)-JVS(11977)*X(5250)-JVS(11978)*X(5255))/(JVS(11975)) - X(2768) = (X(2768)-JVS(11970)*X(4182)-JVS(11971)*X(5250)-JVS(11972)*X(5252)-JVS(11973)*X(5255)-JVS(11974)*X(5256))& - &/(JVS(11969)) - X(2767) = (X(2767)-JVS(11963)*X(4886)-JVS(11964)*X(5250)-JVS(11965)*X(5252)-JVS(11966)*X(5255)-JVS(11967)*X(5256))& - &/(JVS(11962)) - X(2766) = (X(2766)-JVS(11957)*X(4888)-JVS(11958)*X(5250)-JVS(11959)*X(5255))/(JVS(11956)) - X(2765) = (X(2765)-JVS(11953)*X(4046)-JVS(11954)*X(5250)-JVS(11955)*X(5253))/(JVS(11952)) - X(2764) = (X(2764)-JVS(11949)*X(4612)-JVS(11950)*X(5250)-JVS(11951)*X(5252))/(JVS(11948)) - X(2763) = (X(2763)-JVS(11945)*X(4267)-JVS(11946)*X(5250)-JVS(11947)*X(5255))/(JVS(11944)) - X(2762) = (X(2762)-JVS(11939)*X(3320)-JVS(11940)*X(3796)-JVS(11941)*X(5250)-JVS(11942)*X(5252)-JVS(11943)*X(5256))& - &/(JVS(11938)) - X(2761) = (X(2761)-JVS(11934)*X(3885)-JVS(11935)*X(5250)-JVS(11936)*X(5252))/(JVS(11933)) - X(2760) = (X(2760)-JVS(11928)*X(4270)-JVS(11929)*X(5250)-JVS(11930)*X(5252)-JVS(11931)*X(5255)-JVS(11932)*X(5256))& - &/(JVS(11927)) - X(2759) = (X(2759)-JVS(11923)*X(4166)-JVS(11924)*X(5250)-JVS(11925)*X(5252))/(JVS(11922)) - X(2758) = (X(2758)-JVS(11917)*X(4031)-JVS(11918)*X(5250)-JVS(11919)*X(5252)-JVS(11920)*X(5255)-JVS(11921)*X(5256))& - &/(JVS(11916)) - X(2757) = (X(2757)-JVS(11912)*X(4611)-JVS(11913)*X(5250)-JVS(11914)*X(5253))/(JVS(11911)) - X(2756) = (X(2756)-JVS(11908)*X(4854)-JVS(11909)*X(5250)-JVS(11910)*X(5253))/(JVS(11907)) - X(2755) = (X(2755)-JVS(11904)*X(4990)-JVS(11905)*X(5250)-JVS(11906)*X(5253))/(JVS(11903)) - X(2754) = (X(2754)-JVS(11900)*X(4299)-JVS(11901)*X(5250)-JVS(11902)*X(5255))/(JVS(11899)) - X(2753) = (X(2753)-JVS(11896)*X(4127)-JVS(11897)*X(5250)-JVS(11898)*X(5255))/(JVS(11895)) - X(2752) = (X(2752)-JVS(11890)*X(4835)-JVS(11891)*X(5250)-JVS(11892)*X(5252)-JVS(11893)*X(5255)-JVS(11894)*X(5256))& - &/(JVS(11889)) - X(2751) = (X(2751)-JVS(11883)*X(4421)-JVS(11884)*X(5250)-JVS(11885)*X(5252)-JVS(11886)*X(5255)-JVS(11887)*X(5256))& - &/(JVS(11882)) - X(2750) = (X(2750)-JVS(11876)*X(3949)-JVS(11877)*X(5250)-JVS(11878)*X(5252)-JVS(11879)*X(5255)-JVS(11880)*X(5256))& - &/(JVS(11875)) - X(2749) = (X(2749)-JVS(11869)*X(4572)-JVS(11870)*X(5250)-JVS(11871)*X(5252)-JVS(11872)*X(5255)-JVS(11873)*X(5256))& - &/(JVS(11868)) - X(2748) = (X(2748)-JVS(11864)*X(4840)-JVS(11865)*X(5194)-JVS(11866)*X(5258))/(JVS(11863)) - X(2747) = (X(2747)-JVS(11858)*X(4562)-JVS(11859)*X(5250)-JVS(11860)*X(5252)-JVS(11861)*X(5255)-JVS(11862)*X(5256))& - &/(JVS(11857)) - X(2746) = (X(2746)-JVS(11851)*X(3886)-JVS(11852)*X(5250)-JVS(11853)*X(5252)-JVS(11854)*X(5255)-JVS(11855)*X(5256))& - &/(JVS(11850)) - X(2745) = (X(2745)-JVS(11843)*X(4374)-JVS(11844)*X(5250)-JVS(11845)*X(5252)-JVS(11846)*X(5255)-JVS(11847)*X(5256))& - &/(JVS(11842)) - X(2744) = (X(2744)-JVS(11835)*X(3990)-JVS(11836)*X(5250)-JVS(11837)*X(5252)-JVS(11838)*X(5255)-JVS(11839)*X(5256))& - &/(JVS(11834)) - X(2743) = (X(2743)-JVS(11830)*X(4380)-JVS(11831)*X(5250)-JVS(11832)*X(5253))/(JVS(11829)) - X(2742) = (X(2742)-JVS(11826)*X(3955)-JVS(11827)*X(5250)-JVS(11828)*X(5252))/(JVS(11825)) - X(2741) = (X(2741)-JVS(11820)*X(4225)-JVS(11821)*X(5250)-JVS(11822)*X(5252)-JVS(11823)*X(5255)-JVS(11824)*X(5256))& - &/(JVS(11819)) - X(2740) = (X(2740)-JVS(11815)*X(3663)-JVS(11816)*X(5250)-JVS(11817)*X(5255))/(JVS(11814)) - X(2739) = (X(2739)-JVS(11809)*X(4188)-JVS(11810)*X(5250)-JVS(11811)*X(5252)-JVS(11812)*X(5255)-JVS(11813)*X(5256))& - &/(JVS(11808)) - X(2738) = (X(2738)-JVS(11804)*X(4281)-JVS(11805)*X(5250)-JVS(11806)*X(5253))/(JVS(11803)) - X(2737) = (X(2737)-JVS(11800)*X(4542)-JVS(11801)*X(5250)-JVS(11802)*X(5255))/(JVS(11799)) - X(2736) = (X(2736)-JVS(11794)*X(4285)-JVS(11795)*X(5250)-JVS(11796)*X(5252)-JVS(11797)*X(5255)-JVS(11798)*X(5256))& - &/(JVS(11793)) - X(2735) = (X(2735)-JVS(11789)*X(5075)-JVS(11790)*X(5250)-JVS(11791)*X(5253))/(JVS(11788)) - X(2734) = (X(2734)-JVS(11783)*X(3654)-JVS(11784)*X(3660)-JVS(11785)*X(4923)-JVS(11786)*X(5252)-JVS(11787)*X(5256))& - &/(JVS(11782)) - X(2733) = (X(2733)-JVS(11777)*X(4204)-JVS(11778)*X(5250)-JVS(11779)*X(5252)-JVS(11780)*X(5255)-JVS(11781)*X(5256))& - &/(JVS(11776)) - X(2732) = (X(2732)-JVS(11770)*X(3235)-JVS(11771)*X(3659)-JVS(11772)*X(5250)-JVS(11773)*X(5252)-JVS(11774)*X(5256))& - &/(JVS(11769)) - X(2731) = (X(2731)-JVS(11763)*X(4273)-JVS(11764)*X(5250)-JVS(11765)*X(5252)-JVS(11766)*X(5255)-JVS(11767)*X(5256))& - &/(JVS(11762)) - X(2730) = (X(2730)-JVS(11758)*X(4911)-JVS(11759)*X(5250)-JVS(11760)*X(5255))/(JVS(11757)) - X(2729) = (X(2729)-JVS(11754)*X(4520)-JVS(11755)*X(5250)-JVS(11756)*X(5253))/(JVS(11753)) - X(2728) = (X(2728)-JVS(11748)*X(3295)-JVS(11749)*X(3631)-JVS(11750)*X(5250)-JVS(11751)*X(5252)-JVS(11752)*X(5256))& - &/(JVS(11747)) - X(2727) = (X(2727)-JVS(11743)*X(4144)-JVS(11744)*X(5250)-JVS(11745)*X(5255))/(JVS(11742)) - X(2726) = (X(2726)-JVS(11739)*X(4850)-JVS(11740)*X(5250)-JVS(11741)*X(5253))/(JVS(11738)) - X(2725) = (X(2725)-JVS(11735)*X(4308)-JVS(11736)*X(5250)-JVS(11737)*X(5253))/(JVS(11734)) - X(2724) = (X(2724)-JVS(11729)*X(4510)-JVS(11730)*X(5250)-JVS(11731)*X(5252)-JVS(11732)*X(5255)-JVS(11733)*X(5256))& - &/(JVS(11728)) - X(2723) = (X(2723)-JVS(11724)*X(4235)-JVS(11725)*X(5250)-JVS(11726)*X(5255))/(JVS(11723)) - X(2722) = (X(2722)-JVS(11718)*X(4789)-JVS(11719)*X(5250)-JVS(11720)*X(5252)-JVS(11721)*X(5255)-JVS(11722)*X(5256))& - &/(JVS(11717)) - X(2721) = (X(2721)-JVS(11712)*X(4620)-JVS(11713)*X(5250)-JVS(11714)*X(5253))/(JVS(11711)) - X(2720) = (X(2720)-JVS(11706)*X(4645)-JVS(11707)*X(5250)-JVS(11708)*X(5252)-JVS(11709)*X(5255)-JVS(11710)*X(5256))& - &/(JVS(11705)) - X(2719) = (X(2719)-JVS(11699)*X(3855)-JVS(11700)*X(4319)-JVS(11701)*X(5250)-JVS(11702)*X(5252)-JVS(11703)*X(5255))& - &/(JVS(11698)) - X(2718) = (X(2718)-JVS(11691)*X(4419)-JVS(11692)*X(5250)-JVS(11693)*X(5253))/(JVS(11690)) - X(2717) = (X(2717)-JVS(11685)*X(5015)-JVS(11686)*X(5250)-JVS(11687)*X(5252)-JVS(11688)*X(5255)-JVS(11689)*X(5256))& - &/(JVS(11684)) - X(2716) = (X(2716)-JVS(11678)*X(3676)-JVS(11679)*X(4610)-JVS(11680)*X(5250)-JVS(11681)*X(5252)-JVS(11682)*X(5255))& - &/(JVS(11677)) - X(2715) = (X(2715)-JVS(11671)*X(5098)-JVS(11672)*X(5250)-JVS(11673)*X(5255))/(JVS(11670)) - X(2714) = (X(2714)-JVS(11667)*X(3238)-JVS(11668)*X(4667)-JVS(11669)*X(5250))/(JVS(11666)) - X(2713) = (X(2713)-JVS(11662)*X(3859)-JVS(11663)*X(5250)-JVS(11664)*X(5252))/(JVS(11661)) - X(2712) = (X(2712)-JVS(11658)*X(4822)-JVS(11659)*X(5250)-JVS(11660)*X(5253))/(JVS(11657)) - X(2711) = (X(2711)-JVS(11654)*X(4589)-JVS(11655)*X(5250)-JVS(11656)*X(5255))/(JVS(11653)) - X(2710) = (X(2710)-JVS(11646)*X(5186)-JVS(11647)*X(5250)-JVS(11648)*X(5252)-JVS(11649)*X(5255)-JVS(11650)*X(5256))& - &/(JVS(11645)) - X(2709) = (X(2709)-JVS(11640)*X(3815)-JVS(11641)*X(5250)-JVS(11642)*X(5255))/(JVS(11639)) - X(2708) = (X(2708)-JVS(11636)*X(5017)-JVS(11637)*X(5250)-JVS(11638)*X(5253))/(JVS(11635)) - X(2707) = (X(2707)-JVS(11630)*X(5195)-JVS(11631)*X(5250)-JVS(11632)*X(5252)-JVS(11633)*X(5255)-JVS(11634)*X(5256))& - &/(JVS(11629)) - X(2706) = (X(2706)-JVS(11623)*X(4372)-JVS(11624)*X(5250)-JVS(11625)*X(5252)-JVS(11626)*X(5255)-JVS(11627)*X(5256))& - &/(JVS(11622)) - X(2705) = (X(2705)-JVS(11618)*X(4460)-JVS(11619)*X(5250)-JVS(11620)*X(5253))/(JVS(11617)) - X(2704) = (X(2704)-JVS(11614)*X(5052)-JVS(11615)*X(5250)-JVS(11616)*X(5253))/(JVS(11613)) - X(2703) = (X(2703)-JVS(11610)*X(5054)-JVS(11611)*X(5250)-JVS(11612)*X(5253))/(JVS(11609)) - X(2702) = (X(2702)-JVS(11606)*X(4522)-JVS(11607)*X(5250)-JVS(11608)*X(5253))/(JVS(11605)) - X(2701) = (X(2701)-JVS(11602)*X(4580)-JVS(11603)*X(5250)-JVS(11604)*X(5252))/(JVS(11601)) - X(2700) = (X(2700)-JVS(11598)*X(4731)-JVS(11599)*X(5250)-JVS(11600)*X(5253))/(JVS(11597)) - X(2699) = (X(2699)-JVS(11592)*X(5192)-JVS(11593)*X(5250)-JVS(11594)*X(5252)-JVS(11595)*X(5255)-JVS(11596)*X(5256))& - &/(JVS(11591)) - X(2698) = (X(2698)-JVS(11586)*X(4275)-JVS(11587)*X(5250)-JVS(11588)*X(5253))/(JVS(11585)) - X(2697) = (X(2697)-JVS(11580)*X(4903)-JVS(11581)*X(5250)-JVS(11582)*X(5252)-JVS(11583)*X(5255)-JVS(11584)*X(5256))& - &/(JVS(11579)) - X(2696) = (X(2696)-JVS(11573)*X(4966)-JVS(11574)*X(5250)-JVS(11575)*X(5253))/(JVS(11572)) - X(2695) = (X(2695)-JVS(11569)*X(4341)-JVS(11570)*X(5250)-JVS(11571)*X(5255))/(JVS(11568)) - X(2694) = (X(2694)-JVS(11563)*X(3846)-JVS(11564)*X(5250)-JVS(11565)*X(5252)-JVS(11566)*X(5255)-JVS(11567)*X(5256))& - &/(JVS(11562)) - X(2693) = (X(2693)-JVS(11558)*X(4785)-JVS(11559)*X(5250)-JVS(11560)*X(5255))/(JVS(11557)) - X(2692) = (X(2692)-JVS(11552)*X(4118)-JVS(11553)*X(5250)-JVS(11554)*X(5252)-JVS(11555)*X(5255)-JVS(11556)*X(5256))& - &/(JVS(11551)) - X(2691) = (X(2691)-JVS(11547)*X(5137)-JVS(11548)*X(5250)-JVS(11549)*X(5253))/(JVS(11546)) - X(2690) = (X(2690)-JVS(11543)*X(4070)-JVS(11544)*X(5250)-JVS(11545)*X(5255))/(JVS(11542)) - X(2689) = (X(2689)-JVS(11539)*X(4917)-JVS(11540)*X(5250)-JVS(11541)*X(5253))/(JVS(11538)) - X(2688) = (X(2688)-JVS(11535)*X(5044)-JVS(11536)*X(5250)-JVS(11537)*X(5253))/(JVS(11534)) - X(2687) = (X(2687)-JVS(11531)*X(4981)-JVS(11532)*X(5250)-JVS(11533)*X(5252))/(JVS(11530)) - X(2686) = (X(2686)-JVS(11527)*X(4674)-JVS(11528)*X(5250)-JVS(11529)*X(5255))/(JVS(11526)) - X(2685) = (X(2685)-JVS(11523)*X(4989)-JVS(11524)*X(5250)-JVS(11525)*X(5253))/(JVS(11522)) - X(2684) = (X(2684)-JVS(11519)*X(5008)-JVS(11520)*X(5250)-JVS(11521)*X(5253))/(JVS(11518)) - X(2683) = (X(2683)-JVS(11515)*X(4241)-JVS(11516)*X(5250)-JVS(11517)*X(5253))/(JVS(11514)) - X(2682) = (X(2682)-JVS(11509)*X(4292)-JVS(11510)*X(5250)-JVS(11511)*X(5252)-JVS(11512)*X(5255)-JVS(11513)*X(5256))& - &/(JVS(11508)) - X(2681) = (X(2681)-JVS(11504)*X(4168)-JVS(11505)*X(5250)-JVS(11506)*X(5253))/(JVS(11503)) - X(2680) = (X(2680)-JVS(11500)*X(4820)-JVS(11501)*X(5250)-JVS(11502)*X(5255))/(JVS(11499)) - X(2679) = (X(2679)-JVS(11492)*X(4991)-JVS(11493)*X(5250)-JVS(11494)*X(5252)-JVS(11495)*X(5255)-JVS(11496)*X(5256))& - &/(JVS(11491)) - X(2678) = (X(2678)-JVS(11487)*X(4243)-JVS(11488)*X(5250)-JVS(11489)*X(5253))/(JVS(11486)) - X(2677) = (X(2677)-JVS(11483)*X(4260)-JVS(11484)*X(5250)-JVS(11485)*X(5253))/(JVS(11482)) - X(2676) = (X(2676)-JVS(11477)*X(4238)-JVS(11478)*X(5250)-JVS(11479)*X(5252)-JVS(11480)*X(5255)-JVS(11481)*X(5256))& - &/(JVS(11476)) - X(2675) = (X(2675)-JVS(11472)*X(5101)-JVS(11473)*X(5250)-JVS(11474)*X(5253))/(JVS(11471)) - X(2674) = (X(2674)-JVS(11468)*X(4451)-JVS(11469)*X(5250)-JVS(11470)*X(5253))/(JVS(11467)) - X(2673) = (X(2673)-JVS(11464)*X(4172)-JVS(11465)*X(5250)-JVS(11466)*X(5252))/(JVS(11463)) - X(2672) = (X(2672)-JVS(11460)*X(4127)-JVS(11461)*X(5250)-JVS(11462)*X(5252))/(JVS(11459)) - X(2671) = (X(2671)-JVS(11456)*X(4680)-JVS(11457)*X(5250)-JVS(11458)*X(5253))/(JVS(11455)) - X(2670) = (X(2670)-JVS(11452)*X(4436)-JVS(11453)*X(5250)-JVS(11454)*X(5253))/(JVS(11451)) - X(2669) = (X(2669)-JVS(11448)*X(4500)-JVS(11449)*X(5250)-JVS(11450)*X(5253))/(JVS(11447)) - X(2668) = (X(2668)-JVS(11442)*X(4303)-JVS(11443)*X(5250)-JVS(11444)*X(5252)-JVS(11445)*X(5255)-JVS(11446)*X(5256))& - &/(JVS(11441)) - X(2667) = (X(2667)-JVS(11435)*X(4447)-JVS(11436)*X(5250)-JVS(11437)*X(5252)-JVS(11438)*X(5255)-JVS(11439)*X(5256))& - &/(JVS(11434)) - X(2666) = (X(2666)-JVS(11430)*X(4679)-JVS(11431)*X(5250)-JVS(11432)*X(5253))/(JVS(11429)) - X(2665) = (X(2665)-JVS(11426)*X(5161)-JVS(11427)*X(5185)-JVS(11428)*X(5250))/(JVS(11425)) - X(2664) = (X(2664)-JVS(11421)*X(4614)-JVS(11422)*X(5250)-JVS(11423)*X(5252))/(JVS(11420)) - X(2663) = (X(2663)-JVS(11417)*X(4613)-JVS(11418)*X(5250)-JVS(11419)*X(5253))/(JVS(11416)) - X(2662) = (X(2662)-JVS(11411)*X(5174)-JVS(11412)*X(5250)-JVS(11413)*X(5252)-JVS(11414)*X(5255)-JVS(11415)*X(5256))& - &/(JVS(11410)) - X(2661) = (X(2661)-JVS(11405)*X(4545)-JVS(11406)*X(5250)-JVS(11407)*X(5252))/(JVS(11404)) - X(2660) = (X(2660)-JVS(11401)*X(4867)-JVS(11402)*X(5250)-JVS(11403)*X(5253))/(JVS(11400)) - X(2659) = (X(2659)-JVS(11395)*X(4347)-JVS(11396)*X(5250)-JVS(11397)*X(5252)-JVS(11398)*X(5255)-JVS(11399)*X(5256))& - &/(JVS(11394)) - X(2658) = (X(2658)-JVS(11389)*X(5021)-JVS(11390)*X(5250)-JVS(11391)*X(5253))/(JVS(11388)) - X(2657) = (X(2657)-JVS(11385)*X(5244)-JVS(11386)*X(5250)-JVS(11387)*X(5253))/(JVS(11384)) - X(2656) = (X(2656)-JVS(11381)*X(4829)-JVS(11382)*X(5250)-JVS(11383)*X(5253))/(JVS(11380)) - X(2655) = (X(2655)-JVS(11377)*X(4548)-JVS(11378)*X(5250)-JVS(11379)*X(5253))/(JVS(11376)) - X(2654) = (X(2654)-JVS(11373)*X(4536)-JVS(11374)*X(5250)-JVS(11375)*X(5255))/(JVS(11372)) - X(2653) = (X(2653)-JVS(11369)*X(3869)-JVS(11370)*X(5250)-JVS(11371)*X(5252))/(JVS(11368)) - X(2652) = (X(2652)-JVS(11365)*X(4026)-JVS(11366)*X(5250)-JVS(11367)*X(5255))/(JVS(11364)) - X(2651) = (X(2651)-JVS(11361)*X(5006)-JVS(11362)*X(5250)-JVS(11363)*X(5253))/(JVS(11360)) - X(2650) = (X(2650)-JVS(11357)*X(4656)-JVS(11358)*X(5250)-JVS(11359)*X(5253))/(JVS(11356)) - X(2649) = (X(2649)-JVS(11353)*X(3828)-JVS(11354)*X(5250)-JVS(11355)*X(5255))/(JVS(11352)) - X(2648) = (X(2648)-JVS(11349)*X(5014)-JVS(11350)*X(5250)-JVS(11351)*X(5253))/(JVS(11348)) - X(2647) = (X(2647)-JVS(11343)*X(5116)-JVS(11344)*X(5250)-JVS(11345)*X(5252)-JVS(11346)*X(5255)-JVS(11347)*X(5256))& - &/(JVS(11342)) - X(2646) = (X(2646)-JVS(11335)*X(5120)-JVS(11336)*X(5250)-JVS(11337)*X(5252)-JVS(11338)*X(5255)-JVS(11339)*X(5256))& - &/(JVS(11334)) - X(2645) = (X(2645)-JVS(11329)*X(4683)-JVS(11330)*X(5250)-JVS(11331)*X(5255))/(JVS(11328)) - X(2644) = (X(2644)-JVS(11321)*X(4357)-JVS(11322)*X(5250)-JVS(11323)*X(5252)-JVS(11324)*X(5255)-JVS(11325)*X(5256))& - &/(JVS(11320)) - X(2643) = (X(2643)-JVS(11314)*X(4202)-JVS(11315)*X(5250)-JVS(11316)*X(5253))/(JVS(11313)) - X(2642) = (X(2642)-JVS(11308)*X(4713)-JVS(11309)*X(5250)-JVS(11310)*X(5252)-JVS(11311)*X(5255)-JVS(11312)*X(5256))& - &/(JVS(11307)) - X(2641) = (X(2641)-JVS(11299)*X(4291)-JVS(11300)*X(5250)-JVS(11301)*X(5252)-JVS(11302)*X(5255)-JVS(11303)*X(5256))& - &/(JVS(11298)) - X(2640) = (X(2640)-JVS(11294)*X(4641)-JVS(11295)*X(5250)-JVS(11296)*X(5253))/(JVS(11293)) - X(2639) = (X(2639)-JVS(11288)*X(5121)-JVS(11289)*X(5250)-JVS(11290)*X(5252)-JVS(11291)*X(5255)-JVS(11292)*X(5256))& - &/(JVS(11287)) - X(2638) = (X(2638)-JVS(11281)*X(4715)-JVS(11282)*X(5250)-JVS(11283)*X(5252)-JVS(11284)*X(5255)-JVS(11285)*X(5256))& - &/(JVS(11280)) - X(2637) = (X(2637)-JVS(11274)*X(5027)-JVS(11275)*X(5250)-JVS(11276)*X(5253))/(JVS(11273)) - X(2636) = (X(2636)-JVS(11270)*X(4664)-JVS(11271)*X(5250)-JVS(11272)*X(5253))/(JVS(11269)) - X(2635) = (X(2635)-JVS(11266)*X(4772)-JVS(11267)*X(5250)-JVS(11268)*X(5253))/(JVS(11265)) - X(2634) = (X(2634)-JVS(11260)*X(3836)-JVS(11261)*X(5250)-JVS(11262)*X(5252)-JVS(11263)*X(5255)-JVS(11264)*X(5256))& - &/(JVS(11259)) - X(2633) = (X(2633)-JVS(11253)*X(3859)-JVS(11254)*X(5250)-JVS(11255)*X(5255))/(JVS(11252)) - X(2632) = (X(2632)-JVS(11249)*X(4633)-JVS(11250)*X(5250)-JVS(11251)*X(5253))/(JVS(11248)) - X(2631) = (X(2631)-JVS(11245)*X(4013)-JVS(11246)*X(5250)-JVS(11247)*X(5253))/(JVS(11244)) - X(2630) = (X(2630)-JVS(11241)*X(4628)-JVS(11242)*X(5250)-JVS(11243)*X(5253))/(JVS(11240)) - X(2629) = (X(2629)-JVS(11237)*X(4119)-JVS(11238)*X(5250)-JVS(11239)*X(5252))/(JVS(11236)) - X(2628) = (X(2628)-JVS(11233)*X(4980)-JVS(11234)*X(5250)-JVS(11235)*X(5255))/(JVS(11232)) - X(2627) = (X(2627)-JVS(11229)*X(4932)-JVS(11230)*X(5250)-JVS(11231)*X(5255))/(JVS(11228)) - X(2626) = (X(2626)-JVS(11225)*X(4091)-JVS(11226)*X(5250)-JVS(11227)*X(5252))/(JVS(11224)) - X(2625) = (X(2625)-JVS(11221)*X(4811)-JVS(11222)*X(5250)-JVS(11223)*X(5255))/(JVS(11220)) - X(2624) = (X(2624)-JVS(11217)*X(3665)-JVS(11218)*X(5250)-JVS(11219)*X(5255))/(JVS(11216)) - X(2623) = (X(2623)-JVS(11211)*X(5132)-JVS(11212)*X(5250)-JVS(11213)*X(5252)-JVS(11214)*X(5255)-JVS(11215)*X(5256))& - &/(JVS(11210)) - X(2622) = (X(2622)-JVS(11206)*X(5171)-JVS(11207)*X(5250)-JVS(11208)*X(5253))/(JVS(11205)) - X(2621) = (X(2621)-JVS(11202)*X(5104)-JVS(11203)*X(5250)-JVS(11204)*X(5252))/(JVS(11201)) - X(2620) = (X(2620)-JVS(11198)*X(4206)-JVS(11199)*X(5250)-JVS(11200)*X(5253))/(JVS(11197)) - X(2619) = (X(2619)-JVS(11194)*X(4456)-JVS(11195)*X(5250)-JVS(11196)*X(5253))/(JVS(11193)) - X(2618) = (X(2618)-JVS(11190)*X(4095)-JVS(11191)*X(5250)-JVS(11192)*X(5255))/(JVS(11189)) - X(2617) = (X(2617)-JVS(11186)*X(4129)-JVS(11187)*X(5250)-JVS(11188)*X(5255))/(JVS(11185)) - X(2616) = (X(2616)-JVS(11182)*X(5025)-JVS(11183)*X(5250)-JVS(11184)*X(5255))/(JVS(11181)) - X(2615) = (X(2615)-JVS(11178)*X(4324)-JVS(11179)*X(5250)-JVS(11180)*X(5253))/(JVS(11177)) - X(2614) = (X(2614)-JVS(11172)*X(5097)-JVS(11173)*X(5250)-JVS(11174)*X(5252)-JVS(11175)*X(5255)-JVS(11176)*X(5256))& - &/(JVS(11171)) - X(2613) = (X(2613)-JVS(11166)*X(4431)-JVS(11167)*X(5250)-JVS(11168)*X(5253))/(JVS(11165)) - X(2612) = (X(2612)-JVS(11162)*X(5106)-JVS(11163)*X(5250)-JVS(11164)*X(5253))/(JVS(11161)) - X(2611) = (X(2611)-JVS(11158)*X(4944)-JVS(11159)*X(5250)-JVS(11160)*X(5253))/(JVS(11157)) - X(2610) = (X(2610)-JVS(11154)*X(5056)-JVS(11155)*X(5250)-JVS(11156)*X(5252))/(JVS(11153)) - X(2609) = (X(2609)-JVS(11150)*X(4823)-JVS(11151)*X(5250)-JVS(11152)*X(5255))/(JVS(11149)) - X(2608) = (X(2608)-JVS(11146)*X(4214)-JVS(11147)*X(5250)-JVS(11148)*X(5253))/(JVS(11145)) - X(2607) = (X(2607)-JVS(11140)*X(4465)-JVS(11141)*X(5250)-JVS(11142)*X(5252)-JVS(11143)*X(5255)-JVS(11144)*X(5256))& - &/(JVS(11139)) - X(2606) = (X(2606)-JVS(11135)*X(5167)-JVS(11136)*X(5250)-JVS(11137)*X(5253))/(JVS(11134)) - X(2605) = (X(2605)-JVS(11131)*X(4133)-JVS(11132)*X(5250)-JVS(11133)*X(5252))/(JVS(11130)) - X(2604) = (X(2604)-JVS(11125)*X(4304)-JVS(11126)*X(5250)-JVS(11127)*X(5252)-JVS(11128)*X(5255)-JVS(11129)*X(5256))& - &/(JVS(11124)) - X(2603) = (X(2603)-JVS(11120)*X(4985)-JVS(11121)*X(5250)-JVS(11122)*X(5255))/(JVS(11119)) - X(2602) = (X(2602)-JVS(11116)*X(4347)-JVS(11117)*X(5250)-JVS(11118)*X(5255))/(JVS(11115)) - X(2601) = (X(2601)-JVS(11112)*X(4675)-JVS(11113)*X(5250)-JVS(11114)*X(5255))/(JVS(11111)) - X(2600) = (X(2600)-JVS(11108)*X(5111)-JVS(11109)*X(5250)-JVS(11110)*X(5253))/(JVS(11107)) - X(2599) = (X(2599)-JVS(11102)*X(4252)-JVS(11103)*X(5250)-JVS(11104)*X(5252)-JVS(11105)*X(5255)-JVS(11106)*X(5256))& - &/(JVS(11101)) - X(2598) = (X(2598)-JVS(11095)*X(4289)-JVS(11096)*X(5250)-JVS(11097)*X(5252)-JVS(11098)*X(5255)-JVS(11099)*X(5256))& - &/(JVS(11094)) - X(2597) = (X(2597)-JVS(11090)*X(4638)-JVS(11091)*X(5250)-JVS(11092)*X(5253))/(JVS(11089)) - X(2596) = (X(2596)-JVS(11084)*X(4578)-JVS(11085)*X(5250)-JVS(11086)*X(5252)-JVS(11087)*X(5255)-JVS(11088)*X(5256))& - &/(JVS(11083)) - X(2595) = (X(2595)-JVS(11077)*X(3808)-JVS(11078)*X(5250)-JVS(11079)*X(5252)-JVS(11080)*X(5255)-JVS(11081)*X(5256))& - &/(JVS(11076)) - X(2594) = (X(2594)-JVS(11069)*X(4712)-JVS(11070)*X(5250)-JVS(11071)*X(5252)-JVS(11072)*X(5255)-JVS(11073)*X(5256))& - &/(JVS(11068)) - X(2593) = (X(2593)-JVS(11062)*X(4847)-JVS(11063)*X(5250)-JVS(11064)*X(5253))/(JVS(11061)) - X(2592) = (X(2592)-JVS(11056)*X(3693)-JVS(11057)*X(4861)-JVS(11058)*X(5250)-JVS(11059)*X(5252)-JVS(11060)*X(5256))& - &/(JVS(11055)) - X(2591) = (X(2591)-JVS(11049)*X(3974)-JVS(11050)*X(5250)-JVS(11051)*X(5252)-JVS(11052)*X(5255)-JVS(11053)*X(5256))& - &/(JVS(11048)) - X(2590) = (X(2590)-JVS(11044)*X(5154)-JVS(11045)*X(5250)-JVS(11046)*X(5255))/(JVS(11043)) - X(2589) = (X(2589)-JVS(11038)*X(4735)-JVS(11039)*X(5250)-JVS(11040)*X(5252)-JVS(11041)*X(5255)-JVS(11042)*X(5256))& - &/(JVS(11037)) - X(2588) = (X(2588)-JVS(11029)*X(4246)-JVS(11030)*X(5250)-JVS(11031)*X(5252)-JVS(11032)*X(5255)-JVS(11033)*X(5256))& - &/(JVS(11028)) - X(2587) = (X(2587)-JVS(11024)*X(5099)-JVS(11025)*X(5250)-JVS(11026)*X(5253))/(JVS(11023)) - X(2586) = (X(2586)-JVS(11018)*X(4193)-JVS(11019)*X(5250)-JVS(11020)*X(5252)-JVS(11021)*X(5255)-JVS(11022)*X(5256))& - &/(JVS(11017)) - X(2585) = (X(2585)-JVS(11013)*X(3641)-JVS(11014)*X(5250)-JVS(11015)*X(5255))/(JVS(11012)) - X(2584) = (X(2584)-JVS(11009)*X(4439)-JVS(11010)*X(5250)-JVS(11011)*X(5253))/(JVS(11008)) - X(2583) = (X(2583)-JVS(11005)*X(4470)-JVS(11006)*X(5250)-JVS(11007)*X(5253))/(JVS(11004)) - X(2582) = (X(2582)-JVS(11001)*X(5034)-JVS(11002)*X(5250)-JVS(11003)*X(5253))/(JVS(11000)) - X(2581) = (X(2581)-JVS(10995)*X(3973)-JVS(10996)*X(5250)-JVS(10997)*X(5252)-JVS(10998)*X(5255)-JVS(10999)*X(5256))& - &/(JVS(10994)) - X(2580) = (X(2580)-JVS(10990)*X(4772)-JVS(10991)*X(5250)-JVS(10992)*X(5255))/(JVS(10989)) - X(2579) = (X(2579)-JVS(10986)*X(4405)-JVS(10987)*X(5250)-JVS(10988)*X(5253))/(JVS(10985)) - X(2578) = (X(2578)-JVS(10980)*X(4117)-JVS(10981)*X(5250)-JVS(10982)*X(5252)-JVS(10983)*X(5255)-JVS(10984)*X(5256))& - &/(JVS(10979)) - X(2577) = (X(2577)-JVS(10973)*X(4271)-JVS(10974)*X(5250)-JVS(10975)*X(5252)-JVS(10976)*X(5255)-JVS(10977)*X(5256))& - &/(JVS(10972)) - X(2576) = (X(2576)-JVS(10968)*X(4269)-JVS(10969)*X(5250)-JVS(10970)*X(5253))/(JVS(10967)) - X(2575) = (X(2575)-JVS(10962)*X(4287)-JVS(10963)*X(5250)-JVS(10964)*X(5252)-JVS(10965)*X(5255)-JVS(10966)*X(5256))& - &/(JVS(10961)) - X(2574) = (X(2574)-JVS(10955)*X(3637)-JVS(10956)*X(5250)-JVS(10957)*X(5252)-JVS(10958)*X(5255)-JVS(10959)*X(5256))& - &/(JVS(10954)) - X(2573) = (X(2573)-JVS(10947)*X(4409)-JVS(10948)*X(5250)-JVS(10949)*X(5253))/(JVS(10946)) - X(2572) = (X(2572)-JVS(10943)*X(4367)-JVS(10944)*X(5250)-JVS(10945)*X(5255))/(JVS(10942)) - X(2571) = (X(2571)-JVS(10939)*X(4673)-JVS(10940)*X(5250)-JVS(10941)*X(5253))/(JVS(10938)) - X(2570) = (X(2570)-JVS(10935)*X(5167)-JVS(10936)*X(5250)-JVS(10937)*X(5255))/(JVS(10934)) - X(2569) = (X(2569)-JVS(10931)*X(4692)-JVS(10932)*X(5250)-JVS(10933)*X(5253))/(JVS(10930)) - X(2568) = (X(2568)-JVS(10927)*X(3217)-JVS(10928)*X(3837)-JVS(10929)*X(5250))/(JVS(10926)) - X(2567) = (X(2567)-JVS(10923)*X(4525)-JVS(10924)*X(5250)-JVS(10925)*X(5253))/(JVS(10922)) - X(2566) = (X(2566)-JVS(10917)*X(4210)-JVS(10918)*X(5250)-JVS(10919)*X(5252)-JVS(10920)*X(5255)-JVS(10921)*X(5256))& - &/(JVS(10916)) - X(2565) = (X(2565)-JVS(10912)*X(3808)-JVS(10913)*X(5250)-JVS(10914)*X(5255))/(JVS(10911)) - X(2564) = (X(2564)-JVS(10908)*X(4624)-JVS(10909)*X(5250)-JVS(10910)*X(5253))/(JVS(10907)) - X(2563) = (X(2563)-JVS(10902)*X(3279)-JVS(10903)*X(3825)-JVS(10904)*X(5250)-JVS(10905)*X(5252)-JVS(10906)*X(5256))& - &/(JVS(10901)) - X(2562) = (X(2562)-JVS(10895)*X(4709)-JVS(10896)*X(5250)-JVS(10897)*X(5252)-JVS(10898)*X(5255)-JVS(10899)*X(5256))& - &/(JVS(10894)) - X(2561) = (X(2561)-JVS(10886)*X(3950)-JVS(10887)*X(5250)-JVS(10888)*X(5252)-JVS(10889)*X(5255)-JVS(10890)*X(5256))& - &/(JVS(10885)) - X(2560) = (X(2560)-JVS(10881)*X(4627)-JVS(10882)*X(5250)-JVS(10883)*X(5253))/(JVS(10880)) - X(2559) = (X(2559)-JVS(10877)*X(4683)-JVS(10878)*X(5250)-JVS(10879)*X(5255))/(JVS(10876)) - X(2558) = (X(2558)-JVS(10873)*X(4336)-JVS(10874)*X(5250)-JVS(10875)*X(5255))/(JVS(10872)) - X(2557) = (X(2557)-JVS(10867)*X(4192)-JVS(10868)*X(5250)-JVS(10869)*X(5252)-JVS(10870)*X(5255)-JVS(10871)*X(5256))& - &/(JVS(10866)) - X(2556) = (X(2556)-JVS(10862)*X(3899)-JVS(10863)*X(5250)-JVS(10864)*X(5255))/(JVS(10861)) - X(2555) = (X(2555)-JVS(10858)*X(3989)-JVS(10859)*X(5250)-JVS(10860)*X(5252))/(JVS(10857)) - X(2554) = (X(2554)-JVS(10854)*X(5033)-JVS(10855)*X(5250)-JVS(10856)*X(5255))/(JVS(10853)) - X(2553) = (X(2553)-JVS(10850)*X(4561)-JVS(10851)*X(5250)-JVS(10852)*X(5255))/(JVS(10849)) - X(2552) = (X(2552)-JVS(10846)*X(4808)-JVS(10847)*X(5250)-JVS(10848)*X(5253))/(JVS(10845)) - X(2551) = (X(2551)-JVS(10840)*X(4317)-JVS(10841)*X(5250)-JVS(10842)*X(5252)-JVS(10843)*X(5255)-JVS(10844)*X(5256))& - &/(JVS(10839)) - X(2550) = (X(2550)-JVS(10833)*X(4161)-JVS(10834)*X(5250)-JVS(10835)*X(5252)-JVS(10836)*X(5255)-JVS(10837)*X(5256))& - &/(JVS(10832)) - X(2549) = (X(2549)-JVS(10826)*X(5096)-JVS(10827)*X(5250)-JVS(10828)*X(5252)-JVS(10829)*X(5255)-JVS(10830)*X(5256))& - &/(JVS(10825)) - X(2548) = (X(2548)-JVS(10819)*X(3361)-JVS(10820)*X(3421)-JVS(10821)*X(3574)-JVS(10822)*X(3579)-JVS(10823)*X(5250))& - &/(JVS(10818)) - X(2547) = (X(2547)-JVS(10815)*X(4590)-JVS(10816)*X(5250)-JVS(10817)*X(5255))/(JVS(10814)) - X(2546) = (X(2546)-JVS(10809)*X(4957)-JVS(10810)*X(5250)-JVS(10811)*X(5253))/(JVS(10808)) - X(2545) = (X(2545)-JVS(10803)*X(3939)-JVS(10804)*X(5250)-JVS(10805)*X(5252)-JVS(10806)*X(5255)-JVS(10807)*X(5256))& - &/(JVS(10802)) - X(2544) = (X(2544)-JVS(10797)*X(5224)-JVS(10798)*X(5250)-JVS(10799)*X(5255))/(JVS(10796)) - X(2543) = (X(2543)-JVS(10793)*X(3869)-JVS(10794)*X(5250)-JVS(10795)*X(5255))/(JVS(10792)) - X(2542) = (X(2542)-JVS(10789)*X(4844)-JVS(10790)*X(5250)-JVS(10791)*X(5252))/(JVS(10788)) - X(2541) = (X(2541)-JVS(10785)*X(4046)-JVS(10786)*X(5250)-JVS(10787)*X(5255))/(JVS(10784)) - X(2540) = (X(2540)-JVS(10781)*X(4563)-JVS(10782)*X(5250)-JVS(10783)*X(5255))/(JVS(10780)) - X(2539) = (X(2539)-JVS(10775)*X(5246)-JVS(10776)*X(5250)-JVS(10777)*X(5252)-JVS(10778)*X(5255)-JVS(10779)*X(5256))& - &/(JVS(10774)) - X(2538) = (X(2538)-JVS(10769)*X(4502)-JVS(10770)*X(5250)-JVS(10771)*X(5253))/(JVS(10768)) - X(2537) = (X(2537)-JVS(10765)*X(5125)-JVS(10766)*X(5250)-JVS(10767)*X(5253))/(JVS(10764)) - X(2536) = (X(2536)-JVS(10759)*X(4265)-JVS(10760)*X(5250)-JVS(10761)*X(5252)-JVS(10762)*X(5255)-JVS(10763)*X(5256))& - &/(JVS(10758)) - X(2535) = (X(2535)-JVS(10752)*X(4195)-JVS(10753)*X(5250)-JVS(10754)*X(5252)-JVS(10755)*X(5255)-JVS(10756)*X(5256))& - &/(JVS(10751)) - X(2534) = (X(2534)-JVS(10747)*X(4099)-JVS(10748)*X(5250)-JVS(10749)*X(5252))/(JVS(10746)) - X(2533) = (X(2533)-JVS(10743)*X(4849)-JVS(10744)*X(5250)-JVS(10745)*X(5253))/(JVS(10742)) - X(2532) = (X(2532)-JVS(10739)*X(3845)-JVS(10740)*X(5250)-JVS(10741)*X(5252))/(JVS(10738)) - X(2531) = (X(2531)-JVS(10735)*X(4516)-JVS(10736)*X(5250)-JVS(10737)*X(5253))/(JVS(10734)) - X(2530) = (X(2530)-JVS(10731)*X(4220)-JVS(10732)*X(5250)-JVS(10733)*X(5253))/(JVS(10730)) - X(2529) = (X(2529)-JVS(10727)*X(4267)-JVS(10728)*X(5250)-JVS(10729)*X(5253))/(JVS(10726)) - X(2528) = (X(2528)-JVS(10721)*X(4646)-JVS(10722)*X(5250)-JVS(10723)*X(5252)-JVS(10724)*X(5255)-JVS(10725)*X(5256))& - &/(JVS(10720)) - X(2527) = (X(2527)-JVS(10714)*X(4660)-JVS(10715)*X(5250)-JVS(10716)*X(5253))/(JVS(10713)) - X(2526) = (X(2526)-JVS(10708)*X(4382)-JVS(10709)*X(5250)-JVS(10710)*X(5252)-JVS(10711)*X(5255)-JVS(10712)*X(5256))& - &/(JVS(10707)) - X(2525) = (X(2525)-JVS(10703)*X(5164)-JVS(10704)*X(5250)-JVS(10705)*X(5253))/(JVS(10702)) - X(2524) = (X(2524)-JVS(10699)*X(4385)-JVS(10700)*X(5250)-JVS(10701)*X(5252))/(JVS(10698)) - X(2523) = (X(2523)-JVS(10695)*X(4659)-JVS(10696)*X(5250)-JVS(10697)*X(5253))/(JVS(10694)) - X(2522) = (X(2522)-JVS(10691)*X(4452)-JVS(10692)*X(5250)-JVS(10693)*X(5253))/(JVS(10690)) - X(2521) = (X(2521)-JVS(10685)*X(3853)-JVS(10686)*X(5250)-JVS(10687)*X(5252)-JVS(10688)*X(5255)-JVS(10689)*X(5256))& - &/(JVS(10684)) - X(2520) = (X(2520)-JVS(10679)*X(3813)-JVS(10680)*X(5250)-JVS(10681)*X(5255))/(JVS(10678)) - X(2519) = (X(2519)-JVS(10675)*X(3893)-JVS(10676)*X(5250)-JVS(10677)*X(5252))/(JVS(10674)) - X(2518) = (X(2518)-JVS(10671)*X(4846)-JVS(10672)*X(5250)-JVS(10673)*X(5253))/(JVS(10670)) - X(2517) = (X(2517)-JVS(10667)*X(4222)-JVS(10668)*X(5250)-JVS(10669)*X(5253))/(JVS(10666)) - X(2516) = (X(2516)-JVS(10661)*X(4146)-JVS(10662)*X(5250)-JVS(10663)*X(5252)-JVS(10664)*X(5255)-JVS(10665)*X(5256))& - &/(JVS(10660)) - X(2515) = (X(2515)-JVS(10656)*X(4484)-JVS(10657)*X(5250)-JVS(10658)*X(5253))/(JVS(10655)) - X(2514) = (X(2514)-JVS(10652)*X(4357)-JVS(10653)*X(5250)-JVS(10654)*X(5252))/(JVS(10651)) - X(2513) = (X(2513)-JVS(10648)*X(3854)-JVS(10649)*X(5250)-JVS(10650)*X(5252))/(JVS(10647)) - X(2512) = (X(2512)-JVS(10642)*X(3985)-JVS(10643)*X(5250)-JVS(10644)*X(5252)-JVS(10645)*X(5255)-JVS(10646)*X(5256))& - &/(JVS(10641)) - X(2511) = (X(2511)-JVS(10636)*X(5038)-JVS(10637)*X(5250)-JVS(10638)*X(5253))/(JVS(10635)) - X(2510) = (X(2510)-JVS(10632)*X(4759)-JVS(10633)*X(5250)-JVS(10634)*X(5253))/(JVS(10631)) - X(2509) = (X(2509)-JVS(10628)*X(3870)-JVS(10629)*X(5250)-JVS(10630)*X(5252))/(JVS(10627)) - X(2508) = (X(2508)-JVS(10622)*X(3994)-JVS(10623)*X(5250)-JVS(10624)*X(5252)-JVS(10625)*X(5255)-JVS(10626)*X(5256))& - &/(JVS(10621)) - X(2507) = (X(2507)-JVS(10617)*X(4831)-JVS(10618)*X(5250)-JVS(10619)*X(5255))/(JVS(10616)) - X(2506) = (X(2506)-JVS(10611)*X(3253)-JVS(10612)*X(3827)-JVS(10613)*X(5250)-JVS(10614)*X(5252)-JVS(10615)*X(5256))& - &/(JVS(10610)) - X(2505) = (X(2505)-JVS(10606)*X(4218)-JVS(10607)*X(5250)-JVS(10608)*X(5253))/(JVS(10605)) - X(2504) = (X(2504)-JVS(10602)*X(4968)-JVS(10603)*X(5250)-JVS(10604)*X(5253))/(JVS(10601)) - X(2503) = (X(2503)-JVS(10598)*X(5007)-JVS(10599)*X(5250)-JVS(10600)*X(5255))/(JVS(10597)) - X(2502) = (X(2502)-JVS(10592)*X(4112)-JVS(10593)*X(5250)-JVS(10594)*X(5252)-JVS(10595)*X(5255)-JVS(10596)*X(5256))& - &/(JVS(10591)) - X(2501) = (X(2501)-JVS(10587)*X(4432)-JVS(10588)*X(5250)-JVS(10589)*X(5255))/(JVS(10586)) - X(2500) = (X(2500)-JVS(10583)*X(5152)-JVS(10584)*X(5250)-JVS(10585)*X(5253))/(JVS(10582)) - X(2499) = (X(2499)-JVS(10579)*X(3791)-JVS(10580)*X(5250)-JVS(10581)*X(5255))/(JVS(10578)) - X(2498) = (X(2498)-JVS(10575)*X(4209)-JVS(10576)*X(5250)-JVS(10577)*X(5253))/(JVS(10574)) - X(2497) = (X(2497)-JVS(10571)*X(4774)-JVS(10572)*X(5250)-JVS(10573)*X(5255))/(JVS(10570)) - X(2496) = (X(2496)-JVS(10567)*X(5088)-JVS(10568)*X(5250)-JVS(10569)*X(5253))/(JVS(10566)) - X(2495) = (X(2495)-JVS(10561)*X(3840)-JVS(10562)*X(5250)-JVS(10563)*X(5252)-JVS(10564)*X(5255)-JVS(10565)*X(5256))& - &/(JVS(10560)) - X(2494) = (X(2494)-JVS(10555)*X(4414)-JVS(10556)*X(5250)-JVS(10557)*X(5255))/(JVS(10554)) - X(2493) = (X(2493)-JVS(10549)*X(3319)-JVS(10550)*X(3799)-JVS(10551)*X(5250)-JVS(10552)*X(5252)-JVS(10553)*X(5256))& - &/(JVS(10548)) - X(2492) = (X(2492)-JVS(10542)*X(4165)-JVS(10543)*X(5250)-JVS(10544)*X(5252)-JVS(10545)*X(5255)-JVS(10546)*X(5256))& - &/(JVS(10541)) - X(2491) = (X(2491)-JVS(10537)*X(4378)-JVS(10538)*X(5250))/(JVS(10536)) - X(2490) = (X(2490)-JVS(10529)*X(3076)-JVS(10530)*X(4980)-JVS(10531)*X(5078)-JVS(10532)*X(5250)-JVS(10533)*X(5252)& - &-JVS(10534)*X(5255)-JVS(10535)*X(5256))/(JVS(10528)) - X(2489) = (X(2489)-JVS(10525)*X(4615)-JVS(10526)*X(5258))/(JVS(10524)) - X(2488) = (X(2488)-JVS(10517)*X(3582)-JVS(10518)*X(3723)-JVS(10519)*X(3765)-JVS(10520)*X(4024)-JVS(10521)*X(4328)& - &-JVS(10522)*X(4507)-JVS(10523)*X(5250))/(JVS(10516)) - X(2487) = (X(2487)-JVS(10513)*X(4527)-JVS(10514)*X(5258))/(JVS(10512)) - X(2486) = (X(2486)-JVS(10510)*X(4599)-JVS(10511)*X(5250))/(JVS(10509)) - X(2485) = (X(2485)-JVS(10506)*X(4877)-JVS(10507)*X(5250))/(JVS(10505)) - X(2484) = (X(2484)-JVS(10503)*X(4897)-JVS(10504)*X(5250))/(JVS(10502)) - X(2483) = (X(2483)-JVS(10500)*X(4779)-JVS(10501)*X(5250))/(JVS(10499)) - X(2482) = (X(2482)-JVS(10497)*X(4558)-JVS(10498)*X(5250))/(JVS(10496)) - X(2481) = (X(2481)-JVS(10494)*X(5050)-JVS(10495)*X(5258))/(JVS(10493)) - X(2480) = (X(2480)-JVS(10486)*X(2626)-JVS(10487)*X(2888)-JVS(10488)*X(4089)-JVS(10489)*X(5250)-JVS(10490)*X(5252)& - &-JVS(10491)*X(5255)-JVS(10492)*X(5256))/(JVS(10485)) - X(2479) = (X(2479)-JVS(10479)*X(5227)-JVS(10480)*X(5258))/(JVS(10478)) - X(2478) = (X(2478)-JVS(10476)*X(4817)-JVS(10477)*X(5250))/(JVS(10475)) - X(2477) = (X(2477)-JVS(10472)*X(4893)-JVS(10473)*X(5250))/(JVS(10471)) - X(2476) = (X(2476)-JVS(10469)*X(5166)-JVS(10470)*X(5258))/(JVS(10468)) - X(2475) = (X(2475)-JVS(10466)*X(4625)-JVS(10467)*X(5250))/(JVS(10465)) - X(2474) = (X(2474)-JVS(10463)*X(4388)-JVS(10464)*X(5250))/(JVS(10462)) - X(2473) = (X(2473)-JVS(10455)*X(3198)-JVS(10456)*X(3888)-JVS(10457)*X(4585)-JVS(10458)*X(5250)-JVS(10459)*X(5252)& - &-JVS(10460)*X(5255)-JVS(10461)*X(5256))/(JVS(10454)) - X(2472) = (X(2472)-JVS(10450)*X(4393)-JVS(10451)*X(5250))/(JVS(10449)) - X(2471) = (X(2471)-JVS(10442)*X(3478)-JVS(10443)*X(3712)-JVS(10444)*X(4029)-JVS(10445)*X(4062)-JVS(10446)*X(4071)& - &-JVS(10447)*X(4086)-JVS(10448)*X(5250))/(JVS(10441)) - X(2470) = (X(2470)-JVS(10438)*X(4988)-JVS(10439)*X(5258))/(JVS(10437)) - X(2469) = (X(2469)-JVS(10434)*X(4754)-JVS(10435)*X(5250)-JVS(10436)*X(5255))/(JVS(10433)) - X(2468) = (X(2468)-JVS(10431)*X(3903)-JVS(10432)*X(5250))/(JVS(10430)) - X(2467) = (X(2467)-JVS(10427)*X(3214)-JVS(10428)*X(4669)-JVS(10429)*X(5250))/(JVS(10426)) - X(2466) = (X(2466)-JVS(10422)*X(4889)-JVS(10423)*X(5250)-JVS(10424)*X(5255))/(JVS(10421)) - X(2465) = (X(2465)-JVS(10415)*X(2687)-JVS(10416)*X(4981)-JVS(10417)*X(5250)-JVS(10418)*X(5252)-JVS(10419)*X(5255)& - &-JVS(10420)*X(5256))/(JVS(10414)) - X(2464) = (X(2464)-JVS(10409)*X(4448)-JVS(10410)*X(5250)-JVS(10411)*X(5256))/(JVS(10408)) - X(2463) = (X(2463)-JVS(10405)*X(3847)-JVS(10406)*X(5250)-JVS(10407)*X(5255))/(JVS(10404)) - X(2462) = (X(2462)-JVS(10401)*X(4089)-JVS(10402)*X(5250)-JVS(10403)*X(5252))/(JVS(10400)) - X(2461) = (X(2461)-JVS(10397)*X(4060)-JVS(10398)*X(5250)-JVS(10399)*X(5252))/(JVS(10396)) - X(2460) = (X(2460)-JVS(10393)*X(4452)-JVS(10394)*X(5250)-JVS(10395)*X(5255))/(JVS(10392)) - X(2459) = (X(2459)-JVS(10389)*X(5148)-JVS(10390)*X(5250)-JVS(10391)*X(5252))/(JVS(10388)) - X(2458) = (X(2458)-JVS(10385)*X(5196)-JVS(10386)*X(5250)-JVS(10387)*X(5252))/(JVS(10384)) - X(2457) = (X(2457)-JVS(10378)*X(2629)-JVS(10379)*X(4119)-JVS(10380)*X(5250)-JVS(10381)*X(5252)-JVS(10382)*X(5255)& - &-JVS(10383)*X(5256))/(JVS(10377)) - X(2456) = (X(2456)-JVS(10372)*X(4995)-JVS(10373)*X(5250)-JVS(10374)*X(5255))/(JVS(10371)) - X(2455) = (X(2455)-JVS(10368)*X(4884)-JVS(10369)*X(5250)-JVS(10370)*X(5255))/(JVS(10367)) - X(2454) = (X(2454)-JVS(10364)*X(3692)-JVS(10365)*X(5250)-JVS(10366)*X(5255))/(JVS(10363)) - X(2453) = (X(2453)-JVS(10360)*X(3836)-JVS(10361)*X(5250)-JVS(10362)*X(5252))/(JVS(10359)) - X(2452) = (X(2452)-JVS(10353)*X(2742)-JVS(10354)*X(3955)-JVS(10355)*X(5250)-JVS(10356)*X(5252)-JVS(10357)*X(5255)& - &-JVS(10358)*X(5256))/(JVS(10352)) - X(2451) = (X(2451)-JVS(10347)*X(3863)-JVS(10348)*X(5250)-JVS(10349)*X(5255))/(JVS(10346)) - X(2450) = (X(2450)-JVS(10343)*X(3724)-JVS(10344)*X(5250)-JVS(10345)*X(5255))/(JVS(10342)) - X(2449) = (X(2449)-JVS(10339)*X(4782)-JVS(10340)*X(5250)-JVS(10341)*X(5255))/(JVS(10338)) - X(2448) = (X(2448)-JVS(10335)*X(3022)-JVS(10336)*X(4513)-JVS(10337)*X(5250))/(JVS(10334)) - X(2447) = (X(2447)-JVS(10329)*X(4476)-JVS(10330)*X(4782)-JVS(10331)*X(5250)-JVS(10332)*X(5252))/(JVS(10328)) - X(2446) = (X(2446)-JVS(10325)*X(3762)-JVS(10326)*X(5250)-JVS(10327)*X(5255))/(JVS(10324)) - X(2445) = (X(2445)-JVS(10321)*X(4644)-JVS(10322)*X(5250)-JVS(10323)*X(5255))/(JVS(10320)) - X(2444) = (X(2444)-JVS(10317)*X(3841)-JVS(10318)*X(5250)-JVS(10319)*X(5252))/(JVS(10316)) - X(2443) = (X(2443)-JVS(10313)*X(4253)-JVS(10314)*X(5250)-JVS(10315)*X(5255))/(JVS(10312)) - X(2442) = (X(2442)-JVS(10309)*X(4370)-JVS(10310)*X(5250)-JVS(10311)*X(5255))/(JVS(10308)) - X(2441) = (X(2441)-JVS(10304)*X(4598)-JVS(10305)*X(4972)-JVS(10306)*X(5250)-JVS(10307)*X(5252))/(JVS(10303)) - X(2440) = (X(2440)-JVS(10300)*X(4130)-JVS(10301)*X(5250)-JVS(10302)*X(5255))/(JVS(10299)) - X(2439) = (X(2439)-JVS(10296)*X(4762)-JVS(10297)*X(5250)-JVS(10298)*X(5255))/(JVS(10295)) - X(2438) = (X(2438)-JVS(10292)*X(3623)-JVS(10293)*X(4780)-JVS(10294)*X(5250))/(JVS(10291)) - X(2437) = (X(2437)-JVS(10287)*X(4116)-JVS(10288)*X(5250)-JVS(10289)*X(5255))/(JVS(10286)) - X(2436) = (X(2436)-JVS(10283)*X(5127)-JVS(10284)*X(5250)-JVS(10285)*X(5252))/(JVS(10282)) - X(2435) = (X(2435)-JVS(10279)*X(5062)-JVS(10280)*X(5250)-JVS(10281)*X(5255))/(JVS(10278)) - X(2434) = (X(2434)-JVS(10275)*X(4316)-JVS(10276)*X(5250)-JVS(10277)*X(5255))/(JVS(10274)) - X(2433) = (X(2433)-JVS(10270)*X(4370)-JVS(10271)*X(5202)-JVS(10272)*X(5250)-JVS(10273)*X(5252))/(JVS(10269)) - X(2432) = (X(2432)-JVS(10266)*X(5138)-JVS(10267)*X(5250)-JVS(10268)*X(5252))/(JVS(10265)) - X(2431) = (X(2431)-JVS(10262)*X(4259)-JVS(10263)*X(5250)-JVS(10264)*X(5255))/(JVS(10261)) - X(2430) = (X(2430)-JVS(10257)*X(2769)-JVS(10258)*X(4742)-JVS(10259)*X(5252)-JVS(10260)*X(5256))/(JVS(10256)) - X(2429) = (X(2429)-JVS(10253)*X(4460)-JVS(10254)*X(5250)-JVS(10255)*X(5255))/(JVS(10252)) - X(2428) = (X(2428)-JVS(10249)*X(4446)-JVS(10250)*X(5250)-JVS(10251)*X(5255))/(JVS(10248)) - X(2427) = (X(2427)-JVS(10245)*X(5145)-JVS(10246)*X(5250)-JVS(10247)*X(5252))/(JVS(10244)) - X(2426) = (X(2426)-JVS(10241)*X(3948)-JVS(10242)*X(5250)-JVS(10243)*X(5255))/(JVS(10240)) - X(2425) = (X(2425)-JVS(10238)*X(4907)-JVS(10239)*X(5258))/(JVS(10237)) - X(2424) = (X(2424)-JVS(10234)*X(4169)-JVS(10235)*X(5250)-JVS(10236)*X(5255))/(JVS(10233)) - X(2423) = (X(2423)-JVS(10230)*X(3905)-JVS(10231)*X(5250)-JVS(10232)*X(5255))/(JVS(10229)) - X(2422) = (X(2422)-JVS(10226)*X(5109)-JVS(10227)*X(5250)-JVS(10228)*X(5255))/(JVS(10225)) - X(2421) = (X(2421)-JVS(10222)*X(5121)-JVS(10223)*X(5202)-JVS(10224)*X(5250))/(JVS(10221)) - X(2420) = (X(2420)-JVS(10218)*X(4152)-JVS(10219)*X(5250)-JVS(10220)*X(5256))/(JVS(10217)) - X(2419) = (X(2419)-JVS(10214)*X(4058)-JVS(10215)*X(5250)-JVS(10216)*X(5252))/(JVS(10213)) - X(2418) = (X(2418)-JVS(10210)*X(3794)-JVS(10211)*X(5250)-JVS(10212)*X(5252))/(JVS(10209)) - X(2417) = (X(2417)-JVS(10206)*X(4416)-JVS(10207)*X(5250)-JVS(10208)*X(5255))/(JVS(10205)) - X(2416) = (X(2416)-JVS(10202)*X(4942)-JVS(10203)*X(5250)-JVS(10204)*X(5255))/(JVS(10201)) - X(2415) = (X(2415)-JVS(10195)*X(2626)-JVS(10196)*X(4091)-JVS(10197)*X(5250)-JVS(10198)*X(5252)-JVS(10199)*X(5255)& - &-JVS(10200)*X(5256))/(JVS(10194)) - X(2414) = (X(2414)-JVS(10189)*X(4489)-JVS(10190)*X(5250)-JVS(10191)*X(5255))/(JVS(10188)) - X(2413) = (X(2413)-JVS(10185)*X(4714)-JVS(10186)*X(5250)-JVS(10187)*X(5255))/(JVS(10184)) - X(2412) = (X(2412)-JVS(10181)*X(5232)-JVS(10182)*X(5250)-JVS(10183)*X(5255))/(JVS(10180)) - X(2411) = (X(2411)-JVS(10177)*X(3916)-JVS(10178)*X(5250)-JVS(10179)*X(5255))/(JVS(10176)) - X(2410) = (X(2410)-JVS(10173)*X(5038)-JVS(10174)*X(5250)-JVS(10175)*X(5255))/(JVS(10172)) - X(2409) = (X(2409)-JVS(10169)*X(5045)-JVS(10170)*X(5250)-JVS(10171)*X(5255))/(JVS(10168)) - X(2408) = (X(2408)-JVS(10165)*X(4764)-JVS(10166)*X(5250)-JVS(10167)*X(5252))/(JVS(10164)) - X(2407) = (X(2407)-JVS(10161)*X(3872)-JVS(10162)*X(5250)-JVS(10163)*X(5255))/(JVS(10160)) - X(2406) = (X(2406)-JVS(10157)*X(3804)-JVS(10158)*X(5250)-JVS(10159)*X(5252))/(JVS(10156)) - X(2405) = (X(2405)-JVS(10153)*X(4368)-JVS(10154)*X(5250)-JVS(10155)*X(5252))/(JVS(10152)) - X(2404) = (X(2404)-JVS(10149)*X(4560)-JVS(10150)*X(5250)-JVS(10151)*X(5255))/(JVS(10148)) - X(2403) = (X(2403)-JVS(10145)*X(4886)-JVS(10146)*X(5250)-JVS(10147)*X(5252))/(JVS(10144)) - X(2402) = (X(2402)-JVS(10141)*X(4269)-JVS(10142)*X(5250)-JVS(10143)*X(5255))/(JVS(10140)) - X(2401) = (X(2401)-JVS(10137)*X(4356)-JVS(10138)*X(5250)-JVS(10139)*X(5255))/(JVS(10136)) - X(2400) = (X(2400)-JVS(10133)*X(5161)-JVS(10134)*X(5250)-JVS(10135)*X(5255))/(JVS(10132)) - X(2399) = (X(2399)-JVS(10126)*X(3533)-JVS(10127)*X(5239)-JVS(10128)*X(5250)-JVS(10129)*X(5252)-JVS(10130)*X(5255)& - &-JVS(10131)*X(5256))/(JVS(10125)) - X(2398) = (X(2398)-JVS(10121)*X(4743)-JVS(10122)*X(5250)-JVS(10123)*X(5256))/(JVS(10120)) - X(2397) = (X(2397)-JVS(10117)*X(5117)-JVS(10118)*X(5250)-JVS(10119)*X(5255))/(JVS(10116)) - X(2396) = (X(2396)-JVS(10113)*X(4281)-JVS(10114)*X(5250)-JVS(10115)*X(5255))/(JVS(10112)) - X(2395) = (X(2395)-JVS(10109)*X(3287)-JVS(10110)*X(4126)-JVS(10111)*X(5250))/(JVS(10108)) - X(2394) = (X(2394)-JVS(10104)*X(4593)-JVS(10105)*X(5250)-JVS(10106)*X(5255))/(JVS(10103)) - X(2393) = (X(2393)-JVS(10101)*X(5076)-JVS(10102)*X(5258))/(JVS(10100)) - X(2392) = (X(2392)-JVS(10097)*X(5035)-JVS(10098)*X(5250)-JVS(10099)*X(5255))/(JVS(10096)) - X(2391) = (X(2391)-JVS(10093)*X(5185)-JVS(10094)*X(5250)-JVS(10095)*X(5255))/(JVS(10092)) - X(2390) = (X(2390)-JVS(10089)*X(4533)-JVS(10090)*X(5250)-JVS(10091)*X(5256))/(JVS(10088)) - X(2389) = (X(2389)-JVS(10085)*X(3680)-JVS(10086)*X(5250)-JVS(10087)*X(5255))/(JVS(10084)) - X(2388) = (X(2388)-JVS(10081)*X(4445)-JVS(10082)*X(5250)-JVS(10083)*X(5255))/(JVS(10080)) - X(2387) = (X(2387)-JVS(10077)*X(3691)-JVS(10078)*X(5250)-JVS(10079)*X(5252))/(JVS(10076)) - X(2386) = (X(2386)-JVS(10073)*X(4236)-JVS(10074)*X(5250)-JVS(10075)*X(5255))/(JVS(10072)) - X(2385) = (X(2385)-JVS(10070)*X(5238)-JVS(10071)*X(5250))/(JVS(10069)) - X(2384) = (X(2384)-JVS(10066)*X(4275)-JVS(10067)*X(5250)-JVS(10068)*X(5255))/(JVS(10065)) - X(2383) = (X(2383)-JVS(10062)*X(3823)-JVS(10063)*X(5250)-JVS(10064)*X(5252))/(JVS(10061)) - X(2382) = (X(2382)-JVS(10059)*X(3443)-JVS(10060)*X(5250))/(JVS(10058)) - X(2381) = (X(2381)-JVS(10054)*X(4926)-JVS(10055)*X(4957)-JVS(10056)*X(5250)-JVS(10057)*X(5255))/(JVS(10053)) - X(2380) = (X(2380)-JVS(10049)*X(5019)-JVS(10050)*X(5250)-JVS(10051)*X(5255))/(JVS(10048)) - X(2379) = (X(2379)-JVS(10044)*X(3232)-JVS(10045)*X(4041)-JVS(10046)*X(5250)-JVS(10047)*X(5255))/(JVS(10043)) - X(2378) = (X(2378)-JVS(10040)*X(3985)-JVS(10041)*X(5250)-JVS(10042)*X(5252))/(JVS(10039)) - X(2377) = (X(2377)-JVS(10033)*X(2458)-JVS(10034)*X(2533)-JVS(10035)*X(3335)-JVS(10036)*X(5196)-JVS(10037)*X(5250)& - &-JVS(10038)*X(5255))/(JVS(10032)) - X(2376) = (X(2376)-JVS(10026)*X(2609)-JVS(10027)*X(4823)-JVS(10028)*X(5252)-JVS(10029)*X(5256))/(JVS(10025)) - X(2375) = (X(2375)-JVS(10022)*X(3676)-JVS(10023)*X(5250)-JVS(10024)*X(5252))/(JVS(10021)) - X(2374) = (X(2374)-JVS(10015)*X(2542)-JVS(10016)*X(4844)-JVS(10017)*X(5250)-JVS(10018)*X(5252)-JVS(10019)*X(5255)& - &-JVS(10020)*X(5256))/(JVS(10014)) - X(2373) = (X(2373)-JVS(10010)*X(4249)-JVS(10011)*X(5250)-JVS(10012)*X(5255))/(JVS(10009)) - X(2372) = (X(2372)-JVS(10006)*X(4055)-JVS(10007)*X(5250)-JVS(10008)*X(5252))/(JVS(10005)) - X(2371) = (X(2371)-JVS(10002)*X(4283)-JVS(10003)*X(5250)-JVS(10004)*X(5255))/(JVS(10001)) - X(2370) = (X(2370)-JVS(9997)*X(4607)-JVS(9998)*X(4884)-JVS(9999)*X(5250)-JVS(10000)*X(5252))/(JVS(9996)) - X(2369) = (X(2369)-JVS(9993)*X(4777)-JVS(9994)*X(5250)-JVS(9995)*X(5255))/(JVS(9992)) - X(2368) = (X(2368)-JVS(9989)*X(4153)-JVS(9990)*X(5250)-JVS(9991)*X(5255))/(JVS(9988)) - X(2367) = (X(2367)-JVS(9984)*X(4574)-JVS(9985)*X(4645)-JVS(9986)*X(5250)-JVS(9987)*X(5252))/(JVS(9983)) - X(2366) = (X(2366)-JVS(9980)*X(4723)-JVS(9981)*X(5250)-JVS(9982)*X(5255))/(JVS(9979)) - X(2365) = (X(2365)-JVS(9976)*X(5151)-JVS(9977)*X(5250)-JVS(9978)*X(5252))/(JVS(9975)) - X(2364) = (X(2364)-JVS(9971)*X(4908)-JVS(9972)*X(5243)-JVS(9973)*X(5250)-JVS(9974)*X(5255))/(JVS(9970)) - X(2363) = (X(2363)-JVS(9967)*X(4881)-JVS(9968)*X(5250)-JVS(9969)*X(5255))/(JVS(9966)) - X(2362) = (X(2362)-JVS(9963)*X(4148)-JVS(9964)*X(5250)-JVS(9965)*X(5255))/(JVS(9962)) - X(2361) = (X(2361)-JVS(9956)*X(3212)-JVS(9957)*X(4722)-JVS(9958)*X(5250)-JVS(9959)*X(5252)-JVS(9960)*X(5255)-JVS(9961)& - &*X(5256))/(JVS(9955)) - X(2360) = (X(2360)-JVS(9951)*X(3954)-JVS(9952)*X(5250)-JVS(9953)*X(5255))/(JVS(9950)) - X(2359) = (X(2359)-JVS(9948)*X(5249)-JVS(9949)*X(5258))/(JVS(9947)) - X(2358) = (X(2358)-JVS(9944)*X(4787)-JVS(9945)*X(5250)-JVS(9946)*X(5255))/(JVS(9943)) - X(2357) = (X(2357)-JVS(9941)*X(4899)-JVS(9942)*X(5250))/(JVS(9940)) - X(2356) = (X(2356)-JVS(9934)*X(2357)-JVS(9935)*X(3452)-JVS(9936)*X(4899)-JVS(9937)*X(5250)-JVS(9938)*X(5252)-JVS(9939)& - &*X(5256))/(JVS(9933)) - X(2355) = (X(2355)-JVS(9930)*X(4571)-JVS(9931)*X(5250)-JVS(9932)*X(5255))/(JVS(9929)) - X(2354) = (X(2354)-JVS(9926)*X(5091)-JVS(9927)*X(5250)-JVS(9928)*X(5252))/(JVS(9925)) - X(2353) = (X(2353)-JVS(9921)*X(3303)-JVS(9922)*X(4050)-JVS(9923)*X(5250)-JVS(9924)*X(5255))/(JVS(9920)) - X(2352) = (X(2352)-JVS(9917)*X(3962)-JVS(9918)*X(5250)-JVS(9919)*X(5252))/(JVS(9916)) - X(2351) = (X(2351)-JVS(9913)*X(4076)-JVS(9914)*X(5250)-JVS(9915)*X(5255))/(JVS(9912)) - X(2350) = (X(2350)-JVS(9909)*X(4974)-JVS(9910)*X(5250)-JVS(9911)*X(5252))/(JVS(9908)) - X(2349) = (X(2349)-JVS(9905)*X(4324)-JVS(9906)*X(5250)-JVS(9907)*X(5255))/(JVS(9904)) - X(2348) = (X(2348)-JVS(9901)*X(3976)-JVS(9902)*X(5250)-JVS(9903)*X(5255))/(JVS(9900)) - X(2347) = (X(2347)-JVS(9897)*X(3990)-JVS(9898)*X(5250)-JVS(9899)*X(5252))/(JVS(9896)) - X(2346) = (X(2346)-JVS(9893)*X(4428)-JVS(9894)*X(5250)-JVS(9895)*X(5255))/(JVS(9892)) - X(2345) = (X(2345)-JVS(9890)*X(3620)-JVS(9891)*X(5250))/(JVS(9889)) - X(2344) = (X(2344)-JVS(9887)*X(4719)-JVS(9888)*X(5250))/(JVS(9886)) - X(2343) = (X(2343)-JVS(9882)*X(4097)-JVS(9883)*X(4146)-JVS(9884)*X(5250)-JVS(9885)*X(5252))/(JVS(9881)) - X(2342) = (X(2342)-JVS(9878)*X(4323)-JVS(9879)*X(5250)-JVS(9880)*X(5255))/(JVS(9877)) - X(2341) = (X(2341)-JVS(9874)*X(4399)-JVS(9875)*X(5250)-JVS(9876)*X(5252))/(JVS(9873)) - X(2340) = (X(2340)-JVS(9869)*X(4824)-JVS(9870)*X(4849)-JVS(9871)*X(5250)-JVS(9872)*X(5255))/(JVS(9868)) - X(2339) = (X(2339)-JVS(9865)*X(4755)-JVS(9866)*X(5250)-JVS(9867)*X(5255))/(JVS(9864)) - X(2338) = (X(2338)-JVS(9861)*X(3847)-JVS(9862)*X(5250)-JVS(9863)*X(5252))/(JVS(9860)) - X(2337) = (X(2337)-JVS(9857)*X(5147)-JVS(9858)*X(5250)-JVS(9859)*X(5252))/(JVS(9856)) - X(2336) = (X(2336)-JVS(9854)*X(4184)-JVS(9855)*X(5250))/(JVS(9853)) - X(2335) = (X(2335)-JVS(9850)*X(3154)-JVS(9851)*X(3628)-JVS(9852)*X(5250))/(JVS(9849)) - X(2334) = (X(2334)-JVS(9844)*X(3819)-JVS(9845)*X(5250)-JVS(9846)*X(5252)-JVS(9847)*X(5255)-JVS(9848)*X(5256))& - &/(JVS(9843)) - X(2333) = (X(2333)-JVS(9838)*X(3819)-JVS(9839)*X(5250)-JVS(9840)*X(5252))/(JVS(9837)) - X(2332) = (X(2332)-JVS(9834)*X(4597)-JVS(9835)*X(5250)-JVS(9836)*X(5252))/(JVS(9833)) - X(2331) = (X(2331)-JVS(9830)*X(4251)-JVS(9831)*X(5250)-JVS(9832)*X(5255))/(JVS(9829)) - X(2330) = (X(2330)-JVS(9826)*X(4715)-JVS(9827)*X(5250)-JVS(9828)*X(5252))/(JVS(9825)) - X(2329) = (X(2329)-JVS(9822)*X(4228)-JVS(9823)*X(5250)-JVS(9824)*X(5255))/(JVS(9821)) - X(2328) = (X(2328)-JVS(9818)*X(3858)-JVS(9819)*X(5250)-JVS(9820)*X(5252))/(JVS(9817)) - X(2327) = (X(2327)-JVS(9814)*X(4319)-JVS(9815)*X(5250)-JVS(9816)*X(5252))/(JVS(9813)) - X(2326) = (X(2326)-JVS(9807)*X(4383)-JVS(9808)*X(4909)-JVS(9809)*X(5241)-JVS(9810)*X(5252)-JVS(9811)*X(5255)-JVS(9812)& - &*X(5256))/(JVS(9806)) - X(2325) = (X(2325)-JVS(9803)*X(3886)-JVS(9804)*X(5250)-JVS(9805)*X(5252))/(JVS(9802)) - X(2324) = (X(2324)-JVS(9796)*X(2462)-JVS(9797)*X(4089)-JVS(9798)*X(5250)-JVS(9799)*X(5252)-JVS(9800)*X(5255)-JVS(9801)& - &*X(5256))/(JVS(9795)) - X(2323) = (X(2323)-JVS(9790)*X(2540)-JVS(9791)*X(4563)-JVS(9792)*X(5252)-JVS(9793)*X(5256))/(JVS(9789)) - X(2322) = (X(2322)-JVS(9784)*X(3807)-JVS(9785)*X(5250)-JVS(9786)*X(5252)-JVS(9787)*X(5255)-JVS(9788)*X(5256))& - &/(JVS(9783)) - X(2321) = (X(2321)-JVS(9778)*X(3807)-JVS(9779)*X(5250)-JVS(9780)*X(5252))/(JVS(9777)) - X(2320) = (X(2320)-JVS(9774)*X(4209)-JVS(9775)*X(5250)-JVS(9776)*X(5255))/(JVS(9773)) - X(2319) = (X(2319)-JVS(9770)*X(4243)-JVS(9771)*X(5250)-JVS(9772)*X(5255))/(JVS(9769)) - X(2318) = (X(2318)-JVS(9766)*X(5208)-JVS(9767)*X(5250)-JVS(9768)*X(5255))/(JVS(9765)) - X(2317) = (X(2317)-JVS(9762)*X(4003)-JVS(9763)*X(5250)-JVS(9764)*X(5252))/(JVS(9761)) - X(2316) = (X(2316)-JVS(9758)*X(3977)-JVS(9759)*X(5250)-JVS(9760)*X(5255))/(JVS(9757)) - X(2315) = (X(2315)-JVS(9754)*X(4761)-JVS(9755)*X(5250)-JVS(9756)*X(5255))/(JVS(9753)) - X(2314) = (X(2314)-JVS(9748)*X(4522)-JVS(9749)*X(5250)-JVS(9750)*X(5255))/(JVS(9747)) - X(2313) = (X(2313)-JVS(9744)*X(5198)-JVS(9745)*X(5250)-JVS(9746)*X(5252))/(JVS(9743)) - X(2312) = (X(2312)-JVS(9740)*X(4315)-JVS(9741)*X(5250)-JVS(9742)*X(5255))/(JVS(9739)) - X(2311) = (X(2311)-JVS(9736)*X(4825)-JVS(9737)*X(5250)-JVS(9738)*X(5252))/(JVS(9735)) - X(2310) = (X(2310)-JVS(9732)*X(3666)-JVS(9733)*X(4152)-JVS(9734)*X(5250))/(JVS(9731)) - X(2309) = (X(2309)-JVS(9728)*X(3507)-JVS(9729)*X(5250)-JVS(9730)*X(5252))/(JVS(9727)) - X(2308) = (X(2308)-JVS(9724)*X(5217)-JVS(9725)*X(5252)-JVS(9726)*X(5256))/(JVS(9723)) - X(2307) = (X(2307)-JVS(9720)*X(4168)-JVS(9721)*X(5250)-JVS(9722)*X(5255))/(JVS(9719)) - X(2306) = (X(2306)-JVS(9716)*X(4995)-JVS(9717)*X(5250)-JVS(9718)*X(5252))/(JVS(9715)) - X(2305) = (X(2305)-JVS(9712)*X(4145)-JVS(9713)*X(5250)-JVS(9714)*X(5255))/(JVS(9711)) - X(2304) = (X(2304)-JVS(9706)*X(3855)-JVS(9707)*X(5250)-JVS(9708)*X(5252)-JVS(9709)*X(5255)-JVS(9710)*X(5256))& - &/(JVS(9705)) - X(2303) = (X(2303)-JVS(9700)*X(3855)-JVS(9701)*X(5250)-JVS(9702)*X(5252))/(JVS(9699)) - X(2302) = (X(2302)-JVS(9696)*X(3481)-JVS(9697)*X(5250)-JVS(9698)*X(5252))/(JVS(9695)) - X(2301) = (X(2301)-JVS(9692)*X(4215)-JVS(9693)*X(5250)-JVS(9694)*X(5255))/(JVS(9691)) - X(2300) = (X(2300)-JVS(9688)*X(4820)-JVS(9689)*X(5250)-JVS(9690)*X(5255))/(JVS(9687)) - X(2299) = (X(2299)-JVS(9684)*X(3749)-JVS(9685)*X(5250)-JVS(9686)*X(5252))/(JVS(9683)) - X(2298) = (X(2298)-JVS(9680)*X(3919)-JVS(9681)*X(5250)-JVS(9682)*X(5255))/(JVS(9679)) - X(2297) = (X(2297)-JVS(9675)*X(4714)-JVS(9676)*X(4767)-JVS(9677)*X(5250)-JVS(9678)*X(5252))/(JVS(9674)) - X(2296) = (X(2296)-JVS(9671)*X(3852)-JVS(9672)*X(5250)-JVS(9673)*X(5252))/(JVS(9670)) - X(2295) = (X(2295)-JVS(9667)*X(4030)-JVS(9668)*X(5250)-JVS(9669)*X(5255))/(JVS(9666)) - X(2294) = (X(2294)-JVS(9661)*X(3738)-JVS(9662)*X(5250)-JVS(9663)*X(5255))/(JVS(9660)) - X(2293) = (X(2293)-JVS(9654)*X(2621)-JVS(9655)*X(5104)-JVS(9656)*X(5250)-JVS(9657)*X(5252)-JVS(9658)*X(5255)-JVS(9659)& - &*X(5256))/(JVS(9653)) - X(2292) = (X(2292)-JVS(9648)*X(5229)-JVS(9649)*X(5250)-JVS(9650)*X(5255))/(JVS(9647)) - X(2291) = (X(2291)-JVS(9644)*X(4577)-JVS(9645)*X(5250)-JVS(9646)*X(5252))/(JVS(9643)) - X(2290) = (X(2290)-JVS(9640)*X(4427)-JVS(9641)*X(5250)-JVS(9642)*X(5255))/(JVS(9639)) - X(2289) = (X(2289)-JVS(9636)*X(3864)-JVS(9637)*X(5250)-JVS(9638)*X(5255))/(JVS(9635)) - X(2288) = (X(2288)-JVS(9631)*X(3844)-JVS(9632)*X(3966)-JVS(9633)*X(5250)-JVS(9634)*X(5252))/(JVS(9630)) - X(2287) = (X(2287)-JVS(9626)*X(3451)-JVS(9627)*X(4905)-JVS(9628)*X(5252)-JVS(9629)*X(5256))/(JVS(9625)) - X(2286) = (X(2286)-JVS(9623)*X(5200)-JVS(9624)*X(5258))/(JVS(9622)) - X(2285) = (X(2285)-JVS(9619)*X(5163)-JVS(9620)*X(5250)-JVS(9621)*X(5252))/(JVS(9618)) - X(2284) = (X(2284)-JVS(9612)*X(2299)-JVS(9613)*X(3749)-JVS(9614)*X(5250)-JVS(9615)*X(5252)-JVS(9616)*X(5255)-JVS(9617)& - &*X(5256))/(JVS(9611)) - X(2283) = (X(2283)-JVS(9606)*X(3220)-JVS(9607)*X(4592)-JVS(9608)*X(5250)-JVS(9609)*X(5255))/(JVS(9605)) - X(2282) = (X(2282)-JVS(9602)*X(4903)-JVS(9603)*X(5250)-JVS(9604)*X(5252))/(JVS(9601)) - X(2281) = (X(2281)-JVS(9598)*X(4799)-JVS(9599)*X(5250)-JVS(9600)*X(5256))/(JVS(9597)) - X(2280) = (X(2280)-JVS(9594)*X(4249)-JVS(9595)*X(5250)-JVS(9596)*X(5252))/(JVS(9593)) - X(2279) = (X(2279)-JVS(9589)*X(2556)-JVS(9590)*X(3899)-JVS(9591)*X(5252)-JVS(9592)*X(5256))/(JVS(9588)) - X(2278) = (X(2278)-JVS(9584)*X(4593)-JVS(9585)*X(5096)-JVS(9586)*X(5250)-JVS(9587)*X(5252))/(JVS(9583)) - X(2277) = (X(2277)-JVS(9580)*X(4696)-JVS(9581)*X(5250)-JVS(9582)*X(5252))/(JVS(9579)) - X(2276) = (X(2276)-JVS(9575)*X(4554)-JVS(9576)*X(4585)-JVS(9577)*X(5250)-JVS(9578)*X(5252))/(JVS(9574)) - X(2275) = (X(2275)-JVS(9571)*X(4196)-JVS(9572)*X(5250)-JVS(9573)*X(5252))/(JVS(9570)) - X(2274) = (X(2274)-JVS(9567)*X(4619)-JVS(9568)*X(5250)-JVS(9569)*X(5256))/(JVS(9566)) - X(2273) = (X(2273)-JVS(9563)*X(4567)-JVS(9564)*X(5250)-JVS(9565)*X(5255))/(JVS(9562)) - X(2272) = (X(2272)-JVS(9556)*X(3496)-JVS(9557)*X(3653)-JVS(9558)*X(5093)-JVS(9559)*X(5250))/(JVS(9555)) - X(2271) = (X(2271)-JVS(9552)*X(4709)-JVS(9553)*X(5250)-JVS(9554)*X(5252))/(JVS(9551)) - X(2270) = (X(2270)-JVS(9548)*X(4735)-JVS(9549)*X(5250)-JVS(9550)*X(5252))/(JVS(9547)) - X(2269) = (X(2269)-JVS(9544)*X(4581)-JVS(9545)*X(5250)-JVS(9546)*X(5255))/(JVS(9543)) - X(2268) = (X(2268)-JVS(9540)*X(3731)-JVS(9541)*X(5250)-JVS(9542)*X(5252))/(JVS(9539)) - X(2267) = (X(2267)-JVS(9536)*X(3687)-JVS(9537)*X(5250)-JVS(9538)*X(5255))/(JVS(9535)) - X(2266) = (X(2266)-JVS(9532)*X(3966)-JVS(9533)*X(5250)-JVS(9534)*X(5255))/(JVS(9531)) - X(2265) = (X(2265)-JVS(9528)*X(2305)-JVS(9529)*X(4145)-JVS(9530)*X(5250))/(JVS(9527)) - X(2264) = (X(2264)-JVS(9523)*X(5082)-JVS(9524)*X(5250)-JVS(9525)*X(5255))/(JVS(9522)) - X(2263) = (X(2263)-JVS(9519)*X(4441)-JVS(9520)*X(5250)-JVS(9521)*X(5255))/(JVS(9518)) - X(2262) = (X(2262)-JVS(9515)*X(3945)-JVS(9516)*X(5250)-JVS(9517)*X(5255))/(JVS(9514)) - X(2261) = (X(2261)-JVS(9511)*X(4411)-JVS(9512)*X(5250)-JVS(9513)*X(5252))/(JVS(9510)) - X(2260) = (X(2260)-JVS(9507)*X(4595)-JVS(9508)*X(5250)-JVS(9509)*X(5255))/(JVS(9506)) - X(2259) = (X(2259)-JVS(9503)*X(3854)-JVS(9504)*X(3859)-JVS(9505)*X(5250))/(JVS(9502)) - X(2258) = (X(2258)-JVS(9500)*X(5093)-JVS(9501)*X(5258))/(JVS(9499)) - X(2257) = (X(2257)-JVS(9496)*X(4216)-JVS(9497)*X(5250)-JVS(9498)*X(5252))/(JVS(9495)) - X(2256) = (X(2256)-JVS(9492)*X(4128)-JVS(9493)*X(5250)-JVS(9494)*X(5252))/(JVS(9491)) - X(2255) = (X(2255)-JVS(9488)*X(3291)-JVS(9489)*X(4105)-JVS(9490)*X(5250))/(JVS(9487)) - X(2254) = (X(2254)-JVS(9483)*X(4541)-JVS(9484)*X(5250)-JVS(9485)*X(5252))/(JVS(9482)) - X(2253) = (X(2253)-JVS(9479)*X(4704)-JVS(9480)*X(5250)-JVS(9481)*X(5252))/(JVS(9478)) - X(2252) = (X(2252)-JVS(9475)*X(5219)-JVS(9476)*X(5250)-JVS(9477)*X(5255))/(JVS(9474)) - X(2251) = (X(2251)-JVS(9471)*X(4207)-JVS(9472)*X(5250)-JVS(9473)*X(5255))/(JVS(9470)) - X(2250) = (X(2250)-JVS(9467)*X(5114)-JVS(9468)*X(5250)-JVS(9469)*X(5252))/(JVS(9466)) - X(2249) = (X(2249)-JVS(9462)*X(3240)-JVS(9463)*X(4321)-JVS(9464)*X(5252)-JVS(9465)*X(5256))/(JVS(9461)) - X(2248) = (X(2248)-JVS(9458)*X(4202)-JVS(9459)*X(5250)-JVS(9460)*X(5255))/(JVS(9457)) - X(2247) = (X(2247)-JVS(9454)*X(5150)-JVS(9455)*X(5250)-JVS(9456)*X(5255))/(JVS(9453)) - X(2246) = (X(2246)-JVS(9450)*X(5061)-JVS(9451)*X(5250)-JVS(9452)*X(5252))/(JVS(9449)) - X(2245) = (X(2245)-JVS(9446)*X(4712)-JVS(9447)*X(5250)-JVS(9448)*X(5252))/(JVS(9445)) - X(2244) = (X(2244)-JVS(9442)*X(3944)-JVS(9443)*X(5250)-JVS(9444)*X(5255))/(JVS(9441)) - X(2243) = (X(2243)-JVS(9438)*X(3160)-JVS(9439)*X(3635)-JVS(9440)*X(5250))/(JVS(9437)) - X(2242) = (X(2242)-JVS(9434)*X(3898)-JVS(9435)*X(5250)-JVS(9436)*X(5252))/(JVS(9433)) - X(2241) = (X(2241)-JVS(9430)*X(3803)-JVS(9431)*X(5250)-JVS(9432)*X(5252))/(JVS(9429)) - X(2240) = (X(2240)-JVS(9426)*X(5036)-JVS(9427)*X(5250)-JVS(9428)*X(5253))/(JVS(9425)) - X(2239) = (X(2239)-JVS(9422)*X(4394)-JVS(9423)*X(5250)-JVS(9424)*X(5252))/(JVS(9421)) - X(2238) = (X(2238)-JVS(9417)*X(2971)-JVS(9418)*X(4277)-JVS(9419)*X(5252)-JVS(9420)*X(5256))/(JVS(9416)) - X(2237) = (X(2237)-JVS(9413)*X(4755)-JVS(9414)*X(5250)-JVS(9415)*X(5252))/(JVS(9412)) - X(2236) = (X(2236)-JVS(9409)*X(4894)-JVS(9410)*X(5250)-JVS(9411)*X(5255))/(JVS(9408)) - X(2235) = (X(2235)-JVS(9405)*X(4411)-JVS(9406)*X(5250)-JVS(9407)*X(5255))/(JVS(9404)) - X(2234) = (X(2234)-JVS(9400)*X(2501)-JVS(9401)*X(4432)-JVS(9402)*X(5252)-JVS(9403)*X(5256))/(JVS(9399)) - X(2233) = (X(2233)-JVS(9396)*X(3778)-JVS(9397)*X(5250)-JVS(9398)*X(5255))/(JVS(9395)) - X(2232) = (X(2232)-JVS(9392)*X(3492)-JVS(9393)*X(5250)-JVS(9394)*X(5252))/(JVS(9391)) - X(2231) = (X(2231)-JVS(9388)*X(2362)-JVS(9389)*X(4148)-JVS(9390)*X(5250))/(JVS(9387)) - X(2230) = (X(2230)-JVS(9383)*X(3621)-JVS(9384)*X(5091)-JVS(9385)*X(5250))/(JVS(9382)) - X(2229) = (X(2229)-JVS(9377)*X(3277)-JVS(9378)*X(5202)-JVS(9379)*X(5252)-JVS(9380)*X(5256))/(JVS(9376)) - X(2228) = (X(2228)-JVS(9373)*X(4502)-JVS(9374)*X(5250)-JVS(9375)*X(5255))/(JVS(9372)) - X(2227) = (X(2227)-JVS(9369)*X(5163)-JVS(9370)*X(5250)-JVS(9371)*X(5255))/(JVS(9368)) - X(2226) = (X(2226)-JVS(9362)*X(2855)-JVS(9363)*X(3882)-JVS(9364)*X(5250)-JVS(9365)*X(5252)-JVS(9366)*X(5255)-JVS(9367)& - &*X(5256))/(JVS(9361)) - X(2225) = (X(2225)-JVS(9356)*X(3318)-JVS(9357)*X(4000)-JVS(9358)*X(5250)-JVS(9359)*X(5255))/(JVS(9355)) - X(2224) = (X(2224)-JVS(9352)*X(3908)-JVS(9353)*X(5250)-JVS(9354)*X(5252))/(JVS(9351)) - X(2223) = (X(2223)-JVS(9348)*X(4901)-JVS(9349)*X(5250)-JVS(9350)*X(5255))/(JVS(9347)) - X(2222) = (X(2222)-JVS(9343)*X(3636)-JVS(9344)*X(4372)-JVS(9345)*X(5250)-JVS(9346)*X(5252))/(JVS(9342)) - X(2221) = (X(2221)-JVS(9339)*X(4355)-JVS(9340)*X(5250)-JVS(9341)*X(5255))/(JVS(9338)) - X(2220) = (X(2220)-JVS(9335)*X(5116)-JVS(9336)*X(5250)-JVS(9337)*X(5252))/(JVS(9334)) - X(2219) = (X(2219)-JVS(9331)*X(4924)-JVS(9332)*X(5250)-JVS(9333)*X(5255))/(JVS(9330)) - X(2218) = (X(2218)-JVS(9327)*X(3667)-JVS(9328)*X(5250)-JVS(9329)*X(5252))/(JVS(9326)) - X(2217) = (X(2217)-JVS(9323)*X(3984)-JVS(9324)*X(5250)-JVS(9325)*X(5255))/(JVS(9322)) - X(2216) = (X(2216)-JVS(9319)*X(5112)-JVS(9320)*X(5250)-JVS(9321)*X(5252))/(JVS(9318)) - X(2215) = (X(2215)-JVS(9315)*X(5081)-JVS(9316)*X(5250)-JVS(9317)*X(5252))/(JVS(9314)) - X(2214) = (X(2214)-JVS(9311)*X(4137)-JVS(9312)*X(5250)-JVS(9313)*X(5255))/(JVS(9310)) - X(2213) = (X(2213)-JVS(9307)*X(4356)-JVS(9308)*X(5250)-JVS(9309)*X(5252))/(JVS(9306)) - X(2212) = (X(2212)-JVS(9304)*X(4508)-JVS(9305)*X(5258))/(JVS(9303)) - X(2211) = (X(2211)-JVS(9300)*X(5243)-JVS(9301)*X(5250)-JVS(9302)*X(5255))/(JVS(9299)) - X(2210) = (X(2210)-JVS(9295)*X(2975)-JVS(9296)*X(4648)-JVS(9297)*X(5252)-JVS(9298)*X(5256))/(JVS(9294)) - X(2209) = (X(2209)-JVS(9291)*X(4120)-JVS(9292)*X(5250)-JVS(9293)*X(5255))/(JVS(9290)) - X(2208) = (X(2208)-JVS(9285)*X(4206)-JVS(9286)*X(5250)-JVS(9287)*X(5255))/(JVS(9284)) - X(2207) = (X(2207)-JVS(9278)*X(2943)-JVS(9279)*X(3981)-JVS(9280)*X(5250)-JVS(9281)*X(5252)-JVS(9282)*X(5255)-JVS(9283)& - &*X(5256))/(JVS(9277)) - X(2206) = (X(2206)-JVS(9272)*X(3690)-JVS(9273)*X(5250)-JVS(9274)*X(5252))/(JVS(9271)) - X(2205) = (X(2205)-JVS(9268)*X(3880)-JVS(9269)*X(5250)-JVS(9270)*X(5255))/(JVS(9267)) - X(2204) = (X(2204)-JVS(9264)*X(4030)-JVS(9265)*X(5250)-JVS(9266)*X(5255))/(JVS(9263)) - X(2203) = (X(2203)-JVS(9259)*X(2723)-JVS(9260)*X(4235)-JVS(9261)*X(5252)-JVS(9262)*X(5256))/(JVS(9258)) - X(2202) = (X(2202)-JVS(9255)*X(3688)-JVS(9256)*X(5250)-JVS(9257)*X(5252))/(JVS(9254)) - X(2201) = (X(2201)-JVS(9250)*X(2930)-JVS(9251)*X(4138)-JVS(9252)*X(5252)-JVS(9253)*X(5256))/(JVS(9249)) - X(2200) = (X(2200)-JVS(9245)*X(3022)-JVS(9246)*X(4513)-JVS(9247)*X(5252)-JVS(9248)*X(5256))/(JVS(9244)) - X(2199) = (X(2199)-JVS(9241)*X(5045)-JVS(9242)*X(5250)-JVS(9243)*X(5252))/(JVS(9240)) - X(2198) = (X(2198)-JVS(9237)*X(4310)-JVS(9238)*X(5250)-JVS(9239)*X(5252))/(JVS(9236)) - X(2197) = (X(2197)-JVS(9233)*X(4697)-JVS(9234)*X(5250)-JVS(9235)*X(5255))/(JVS(9232)) - X(2196) = (X(2196)-JVS(9228)*X(4876)-JVS(9229)*X(5250)-JVS(9230)*X(5252))/(JVS(9227)) - X(2195) = (X(2195)-JVS(9224)*X(4748)-JVS(9225)*X(5250)-JVS(9226)*X(5252))/(JVS(9223)) - X(2194) = (X(2194)-JVS(9220)*X(4571)-JVS(9221)*X(5250)-JVS(9222)*X(5252))/(JVS(9219)) - X(2193) = (X(2193)-JVS(9216)*X(4901)-JVS(9217)*X(5250)-JVS(9218)*X(5252))/(JVS(9215)) - X(2192) = (X(2192)-JVS(9212)*X(5077)-JVS(9213)*X(5250)-JVS(9214)*X(5255))/(JVS(9211)) - X(2191) = (X(2191)-JVS(9208)*X(4436)-JVS(9209)*X(5250)-JVS(9210)*X(5255))/(JVS(9207)) - X(2190) = (X(2190)-JVS(9201)*X(3926)-JVS(9202)*X(4804)-JVS(9203)*X(5250)-JVS(9204)*X(5252)-JVS(9205)*X(5255)-JVS(9206)& - &*X(5256))/(JVS(9200)) - X(2189) = (X(2189)-JVS(9195)*X(3718)-JVS(9196)*X(5250)-JVS(9197)*X(5252))/(JVS(9194)) - X(2188) = (X(2188)-JVS(9191)*X(5142)-JVS(9192)*X(5250)-JVS(9193)*X(5255))/(JVS(9190)) - X(2187) = (X(2187)-JVS(9187)*X(3676)-JVS(9188)*X(5250)-JVS(9189)*X(5255))/(JVS(9186)) - X(2186) = (X(2186)-JVS(9182)*X(3055)-JVS(9183)*X(4765)-JVS(9184)*X(5252)-JVS(9185)*X(5256))/(JVS(9181)) - X(2185) = (X(2185)-JVS(9178)*X(4716)-JVS(9179)*X(5250)-JVS(9180)*X(5252))/(JVS(9177)) - X(2184) = (X(2184)-JVS(9173)*X(3891)-JVS(9174)*X(3963)-JVS(9175)*X(5250)-JVS(9176)*X(5252))/(JVS(9172)) - X(2183) = (X(2183)-JVS(9169)*X(4753)-JVS(9170)*X(5250)-JVS(9171)*X(5255))/(JVS(9168)) - X(2182) = (X(2182)-JVS(9165)*X(3778)-JVS(9166)*X(5250)-JVS(9167)*X(5252))/(JVS(9164)) - X(2181) = (X(2181)-JVS(9160)*X(3921)-JVS(9161)*X(4925)-JVS(9162)*X(5250)-JVS(9163)*X(5252))/(JVS(9159)) - X(2180) = (X(2180)-JVS(9156)*X(3891)-JVS(9157)*X(5250)-JVS(9158)*X(5255))/(JVS(9155)) - X(2179) = (X(2179)-JVS(9152)*X(4972)-JVS(9153)*X(5250)-JVS(9154)*X(5255))/(JVS(9151)) - X(2178) = (X(2178)-JVS(9148)*X(3971)-JVS(9149)*X(5250)-JVS(9150)*X(5255))/(JVS(9147)) - X(2177) = (X(2177)-JVS(9143)*X(3199)-JVS(9144)*X(4376)-JVS(9145)*X(5250)-JVS(9146)*X(5255))/(JVS(9142)) - X(2176) = (X(2176)-JVS(9139)*X(4470)-JVS(9140)*X(5250)-JVS(9141)*X(5255))/(JVS(9138)) - X(2175) = (X(2175)-JVS(9135)*X(3435)-JVS(9136)*X(3445)-JVS(9137)*X(5250))/(JVS(9134)) - X(2174) = (X(2174)-JVS(9131)*X(4925)-JVS(9132)*X(5250)-JVS(9133)*X(5255))/(JVS(9130)) - X(2173) = (X(2173)-JVS(9125)*X(3932)-JVS(9126)*X(5250)-JVS(9127)*X(5252)-JVS(9128)*X(5255)-JVS(9129)*X(5256))& - &/(JVS(9124)) - X(2172) = (X(2172)-JVS(9119)*X(3932)-JVS(9120)*X(5250)-JVS(9121)*X(5252))/(JVS(9118)) - X(2171) = (X(2171)-JVS(9115)*X(4404)-JVS(9116)*X(5250)-JVS(9117)*X(5255))/(JVS(9114)) - X(2170) = (X(2170)-JVS(9110)*X(3043)-JVS(9111)*X(4746)-JVS(9112)*X(5252)-JVS(9113)*X(5256))/(JVS(9109)) - X(2169) = (X(2169)-JVS(9106)*X(5082)-JVS(9107)*X(5250)-JVS(9108)*X(5252))/(JVS(9105)) - X(2168) = (X(2168)-JVS(9102)*X(4733)-JVS(9103)*X(5250)-JVS(9104)*X(5252))/(JVS(9101)) - X(2167) = (X(2167)-JVS(9098)*X(4012)-JVS(9099)*X(5250)-JVS(9100)*X(5256))/(JVS(9097)) - X(2166) = (X(2166)-JVS(9094)*X(4590)-JVS(9095)*X(5250)-JVS(9096)*X(5255))/(JVS(9093)) - X(2165) = (X(2165)-JVS(9090)*X(4940)-JVS(9091)*X(5250)-JVS(9092)*X(5252))/(JVS(9089)) - X(2164) = (X(2164)-JVS(9086)*X(4672)-JVS(9087)*X(5250)-JVS(9088)*X(5252))/(JVS(9085)) - X(2163) = (X(2163)-JVS(9079)*X(3399)-JVS(9080)*X(4318)-JVS(9081)*X(5250)-JVS(9082)*X(5252)-JVS(9083)*X(5255)-JVS(9084)& - &*X(5256))/(JVS(9078)) - X(2162) = (X(2162)-JVS(9073)*X(3552)-JVS(9074)*X(5173)-JVS(9075)*X(5252)-JVS(9076)*X(5256))/(JVS(9072)) - X(2161) = (X(2161)-JVS(9069)*X(5144)-JVS(9070)*X(5250)-JVS(9071)*X(5252))/(JVS(9068)) - X(2160) = (X(2160)-JVS(9065)*X(3963)-JVS(9066)*X(5250)-JVS(9067)*X(5255))/(JVS(9064)) - X(2159) = (X(2159)-JVS(9061)*X(4214)-JVS(9062)*X(5250)-JVS(9063)*X(5255))/(JVS(9060)) - X(2158) = (X(2158)-JVS(9056)*X(3266)-JVS(9057)*X(4476)-JVS(9058)*X(5252)-JVS(9059)*X(5256))/(JVS(9055)) - X(2157) = (X(2157)-JVS(9052)*X(3789)-JVS(9053)*X(5250)-JVS(9054)*X(5252))/(JVS(9051)) - X(2156) = (X(2156)-JVS(9048)*X(4060)-JVS(9049)*X(5250)-JVS(9050)*X(5255))/(JVS(9047)) - X(2155) = (X(2155)-JVS(9044)*X(4197)-JVS(9045)*X(5250)-JVS(9046)*X(5252))/(JVS(9043)) - X(2154) = (X(2154)-JVS(9040)*X(4176)-JVS(9041)*X(5250)-JVS(9042)*X(5255))/(JVS(9039)) - X(2153) = (X(2153)-JVS(9034)*X(4477)-JVS(9035)*X(5250)-JVS(9036)*X(5255))/(JVS(9033)) - X(2152) = (X(2152)-JVS(9030)*X(4440)-JVS(9031)*X(5250)-JVS(9032)*X(5255))/(JVS(9029)) - X(2151) = (X(2151)-JVS(9026)*X(4290)-JVS(9027)*X(5250)-JVS(9028)*X(5255))/(JVS(9025)) - X(2150) = (X(2150)-JVS(9022)*X(5152)-JVS(9023)*X(5250)-JVS(9024)*X(5255))/(JVS(9021)) - X(2149) = (X(2149)-JVS(9018)*X(5186)-JVS(9019)*X(5250)-JVS(9020)*X(5252))/(JVS(9017)) - X(2148) = (X(2148)-JVS(9015)*X(4094)-JVS(9016)*X(5258))/(JVS(9014)) - X(2147) = (X(2147)-JVS(9011)*X(5015)-JVS(9012)*X(5250)-JVS(9013)*X(5255))/(JVS(9010)) - X(2146) = (X(2146)-JVS(9007)*X(4301)-JVS(9008)*X(5250)-JVS(9009)*X(5255))/(JVS(9006)) - X(2145) = (X(2145)-JVS(9002)*X(2797)-JVS(9003)*X(3992)-JVS(9004)*X(5252)-JVS(9005)*X(5256))/(JVS(9001)) - X(2144) = (X(2144)-JVS(8998)*X(4260)-JVS(8999)*X(5250)-JVS(9000)*X(5255))/(JVS(8997)) - X(2143) = (X(2143)-JVS(8993)*X(3307)-JVS(8994)*X(4257)-JVS(8995)*X(5250)-JVS(8996)*X(5255))/(JVS(8992)) - X(2142) = (X(2142)-JVS(8989)*X(4220)-JVS(8990)*X(5250)-JVS(8991)*X(5255))/(JVS(8988)) - X(2141) = (X(2141)-JVS(8985)*X(4135)-JVS(8986)*X(5250)-JVS(8987)*X(5255))/(JVS(8984)) - X(2140) = (X(2140)-JVS(8978)*X(4912)-JVS(8979)*X(5029)-JVS(8980)*X(5250)-JVS(8981)*X(5255))/(JVS(8977)) - X(2139) = (X(2139)-JVS(8974)*X(4812)-JVS(8975)*X(5250)-JVS(8976)*X(5255))/(JVS(8973)) - X(2138) = (X(2138)-JVS(8970)*X(5025)-JVS(8971)*X(5250)-JVS(8972)*X(5255))/(JVS(8969)) - X(2137) = (X(2137)-JVS(8966)*X(4813)-JVS(8967)*X(5250)-JVS(8968)*X(5255))/(JVS(8965)) - X(2136) = (X(2136)-JVS(8962)*X(4442)-JVS(8963)*X(5250)-JVS(8964)*X(5252))/(JVS(8961)) - X(2135) = (X(2135)-JVS(8958)*X(5043)-JVS(8959)*X(5250)-JVS(8960)*X(5255))/(JVS(8957)) - X(2134) = (X(2134)-JVS(8954)*X(2900)-JVS(8955)*X(3810)-JVS(8956)*X(5250))/(JVS(8953)) - X(2133) = (X(2133)-JVS(8949)*X(4608)-JVS(8950)*X(5250)-JVS(8951)*X(5255))/(JVS(8948)) - X(2132) = (X(2132)-JVS(8945)*X(3043)-JVS(8946)*X(4746)-JVS(8947)*X(5250))/(JVS(8944)) - X(2131) = (X(2131)-JVS(8940)*X(4557)-JVS(8941)*X(5250)-JVS(8942)*X(5255))/(JVS(8939)) - X(2130) = (X(2130)-JVS(8936)*X(5204)-JVS(8937)*X(5252)-JVS(8938)*X(5256))/(JVS(8935)) - X(2129) = (X(2129)-JVS(8933)*X(4590)-JVS(8934)*X(5250))/(JVS(8932)) - X(2128) = (X(2128)-JVS(8929)*X(4870)-JVS(8930)*X(5250)-JVS(8931)*X(5252))/(JVS(8928)) - X(2127) = (X(2127)-JVS(8925)*X(3758)-JVS(8926)*X(5250)-JVS(8927)*X(5255))/(JVS(8924)) - X(2126) = (X(2126)-JVS(8921)*X(5145)-JVS(8922)*X(5250)-JVS(8923)*X(5255))/(JVS(8920)) - X(2125) = (X(2125)-JVS(8917)*X(4587)-JVS(8918)*X(5250)-JVS(8919)*X(5255))/(JVS(8916)) - X(2124) = (X(2124)-JVS(8913)*X(4713)-JVS(8914)*X(5250)-JVS(8915)*X(5252))/(JVS(8912)) - X(2123) = (X(2123)-JVS(8909)*X(4646)-JVS(8910)*X(5250)-JVS(8911)*X(5252))/(JVS(8908)) - X(2122) = (X(2122)-JVS(8902)*X(2268)-JVS(8903)*X(3731)-JVS(8904)*X(5250)-JVS(8905)*X(5252)-JVS(8906)*X(5255)-JVS(8907)& - &*X(5256))/(JVS(8901)) - X(2121) = (X(2121)-JVS(8897)*X(4361)-JVS(8898)*X(5250)-JVS(8899)*X(5255))/(JVS(8896)) - X(2120) = (X(2120)-JVS(8893)*X(4424)-JVS(8894)*X(5250)-JVS(8895)*X(5255))/(JVS(8892)) - X(2119) = (X(2119)-JVS(8889)*X(5028)-JVS(8890)*X(5250)-JVS(8891)*X(5255))/(JVS(8888)) - X(2118) = (X(2118)-JVS(8884)*X(5032)-JVS(8885)*X(5250))/(JVS(8883)) - X(2117) = (X(2117)-JVS(8879)*X(2559)-JVS(8880)*X(4683)-JVS(8881)*X(5252)-JVS(8882)*X(5256))/(JVS(8878)) - X(2116) = (X(2116)-JVS(8875)*X(4230)-JVS(8876)*X(5250)-JVS(8877)*X(5255))/(JVS(8874)) - X(2115) = (X(2115)-JVS(8871)*X(4549)-JVS(8872)*X(5250)-JVS(8873)*X(5255))/(JVS(8870)) - X(2114) = (X(2114)-JVS(8867)*X(4719)-JVS(8868)*X(5250)-JVS(8869)*X(5255))/(JVS(8866)) - X(2113) = (X(2113)-JVS(8863)*X(5065)-JVS(8864)*X(5250)-JVS(8865)*X(5252))/(JVS(8862)) - X(2112) = (X(2112)-JVS(8858)*X(3459)-JVS(8859)*X(4732)-JVS(8860)*X(5252)-JVS(8861)*X(5256))/(JVS(8857)) - X(2111) = (X(2111)-JVS(8854)*X(4497)-JVS(8855)*X(5250)-JVS(8856)*X(5255))/(JVS(8853)) - X(2110) = (X(2110)-JVS(8850)*X(4553)-JVS(8851)*X(5250)-JVS(8852)*X(5255))/(JVS(8849)) - X(2109) = (X(2109)-JVS(8846)*X(5174)-JVS(8847)*X(5250)-JVS(8848)*X(5255))/(JVS(8845)) - X(2108) = (X(2108)-JVS(8842)*X(5206)-JVS(8843)*X(5250)-JVS(8844)*X(5252))/(JVS(8841)) - X(2107) = (X(2107)-JVS(8838)*X(4929)-JVS(8839)*X(5250)-JVS(8840)*X(5255))/(JVS(8837)) - X(2106) = (X(2106)-JVS(8834)*X(3884)-JVS(8835)*X(5250)-JVS(8836)*X(5252))/(JVS(8833)) - X(2105) = (X(2105)-JVS(8830)*X(4208)-JVS(8831)*X(5250)-JVS(8832)*X(5255))/(JVS(8829)) - X(2104) = (X(2104)-JVS(8827)*X(5066)-JVS(8828)*X(5258))/(JVS(8826)) - X(2103) = (X(2103)-JVS(8823)*X(3921)-JVS(8824)*X(5250)-JVS(8825)*X(5255))/(JVS(8822)) - X(2102) = (X(2102)-JVS(8818)*X(3229)-JVS(8819)*X(4005)-JVS(8820)*X(5250)-JVS(8821)*X(5255))/(JVS(8817)) - X(2101) = (X(2101)-JVS(8814)*X(5074)-JVS(8815)*X(5154)-JVS(8816)*X(5250))/(JVS(8813)) - X(2100) = (X(2100)-JVS(8808)*X(3658)-JVS(8809)*X(5250)-JVS(8810)*X(5252)-JVS(8811)*X(5255)-JVS(8812)*X(5256))& - &/(JVS(8807)) - X(2099) = (X(2099)-JVS(8802)*X(3658)-JVS(8803)*X(5250)-JVS(8804)*X(5252))/(JVS(8801)) - X(2098) = (X(2098)-JVS(8798)*X(3920)-JVS(8799)*X(5250)-JVS(8800)*X(5255))/(JVS(8797)) - X(2097) = (X(2097)-JVS(8794)*X(5077)-JVS(8795)*X(5250)-JVS(8796)*X(5252))/(JVS(8793)) - X(2096) = (X(2096)-JVS(8789)*X(4171)-JVS(8790)*X(5195)-JVS(8791)*X(5250)-JVS(8792)*X(5252))/(JVS(8788)) - X(2095) = (X(2095)-JVS(8785)*X(3871)-JVS(8786)*X(5250)-JVS(8787)*X(5255))/(JVS(8784)) - X(2094) = (X(2094)-JVS(8781)*X(5146)-JVS(8782)*X(5250)-JVS(8783)*X(5252))/(JVS(8780)) - X(2093) = (X(2093)-JVS(8777)*X(4327)-JVS(8778)*X(5250)-JVS(8779)*X(5255))/(JVS(8776)) - X(2092) = (X(2092)-JVS(8773)*X(5097)-JVS(8774)*X(5250)-JVS(8775)*X(5252))/(JVS(8772)) - X(2091) = (X(2091)-JVS(8769)*X(4025)-JVS(8770)*X(5250)-JVS(8771)*X(5255))/(JVS(8768)) - X(2090) = (X(2090)-JVS(8764)*X(3310)-JVS(8765)*X(4959)-JVS(8766)*X(5252)-JVS(8767)*X(5256))/(JVS(8763)) - X(2089) = (X(2089)-JVS(8760)*X(3669)-JVS(8761)*X(5250)-JVS(8762)*X(5255))/(JVS(8759)) - X(2088) = (X(2088)-JVS(8754)*X(3797)-JVS(8755)*X(5250)-JVS(8756)*X(5252)-JVS(8757)*X(5255)-JVS(8758)*X(5256))& - &/(JVS(8753)) - X(2087) = (X(2087)-JVS(8748)*X(3797)-JVS(8749)*X(5250)-JVS(8750)*X(5252))/(JVS(8747)) - X(2086) = (X(2086)-JVS(8744)*X(5109)-JVS(8745)*X(5250)-JVS(8746)*X(5252))/(JVS(8743)) - X(2085) = (X(2085)-JVS(8739)*X(3261)-JVS(8740)*X(4180)-JVS(8741)*X(5252)-JVS(8742)*X(5256))/(JVS(8738)) - X(2084) = (X(2084)-JVS(8735)*X(4309)-JVS(8736)*X(5250)-JVS(8737)*X(5255))/(JVS(8734)) - X(2083) = (X(2083)-JVS(8731)*X(5161)-JVS(8732)*X(5250)-JVS(8733)*X(5252))/(JVS(8730)) - X(2082) = (X(2082)-JVS(8727)*X(4731)-JVS(8728)*X(5250)-JVS(8729)*X(5255))/(JVS(8726)) - X(2081) = (X(2081)-JVS(8723)*X(5168)-JVS(8724)*X(5220)-JVS(8725)*X(5258))/(JVS(8722)) - X(2080) = (X(2080)-JVS(8719)*X(4724)-JVS(8720)*X(5250)-JVS(8721)*X(5255))/(JVS(8718)) - X(2079) = (X(2079)-JVS(8715)*X(3901)-JVS(8716)*X(5250)-JVS(8717)*X(5252))/(JVS(8714)) - X(2078) = (X(2078)-JVS(8711)*X(3790)-JVS(8712)*X(5250)-JVS(8713)*X(5252))/(JVS(8710)) - X(2077) = (X(2077)-JVS(8707)*X(4705)-JVS(8708)*X(5250)-JVS(8709)*X(5252))/(JVS(8706)) - X(2076) = (X(2076)-JVS(8701)*X(4616)-JVS(8702)*X(5250)-JVS(8703)*X(5252)-JVS(8704)*X(5255)-JVS(8705)*X(5256))& - &/(JVS(8700)) - X(2075) = (X(2075)-JVS(8695)*X(4616)-JVS(8696)*X(5250)-JVS(8697)*X(5252))/(JVS(8694)) - X(2074) = (X(2074)-JVS(8691)*X(4374)-JVS(8692)*X(5250)-JVS(8693)*X(5252))/(JVS(8690)) - X(2073) = (X(2073)-JVS(8685)*X(4059)-JVS(8686)*X(5250)-JVS(8687)*X(5252)-JVS(8688)*X(5255)-JVS(8689)*X(5256))& - &/(JVS(8684)) - X(2072) = (X(2072)-JVS(8679)*X(4059)-JVS(8680)*X(5250)-JVS(8681)*X(5252))/(JVS(8678)) - X(2071) = (X(2071)-JVS(8675)*X(4567)-JVS(8676)*X(5250)-JVS(8677)*X(5255))/(JVS(8674)) - X(2070) = (X(2070)-JVS(8671)*X(5246)-JVS(8672)*X(5250)-JVS(8673)*X(5255))/(JVS(8670)) - X(2069) = (X(2069)-JVS(8667)*X(4700)-JVS(8668)*X(5250)-JVS(8669)*X(5255))/(JVS(8666)) - X(2068) = (X(2068)-JVS(8663)*X(3671)-JVS(8664)*X(5250)-JVS(8665)*X(5255))/(JVS(8662)) - X(2067) = (X(2067)-JVS(8658)*X(4608)-JVS(8659)*X(4702)-JVS(8660)*X(5250)-JVS(8661)*X(5252))/(JVS(8657)) - X(2066) = (X(2066)-JVS(8653)*X(3265)-JVS(8654)*X(4767)-JVS(8655)*X(5252)-JVS(8656)*X(5256))/(JVS(8652)) - X(2065) = (X(2065)-JVS(8649)*X(3940)-JVS(8650)*X(5250)-JVS(8651)*X(5255))/(JVS(8648)) - X(2064) = (X(2064)-JVS(8645)*X(4154)-JVS(8646)*X(5250)-JVS(8647)*X(5255))/(JVS(8644)) - X(2063) = (X(2063)-JVS(8641)*X(3703)-JVS(8642)*X(5250)-JVS(8643)*X(5252))/(JVS(8640)) - X(2062) = (X(2062)-JVS(8637)*X(4538)-JVS(8638)*X(5250)-JVS(8639)*X(5255))/(JVS(8636)) - X(2061) = (X(2061)-JVS(8633)*X(5236)-JVS(8634)*X(5250)-JVS(8635)*X(5252))/(JVS(8632)) - X(2060) = (X(2060)-JVS(8626)*X(2206)-JVS(8627)*X(3690)-JVS(8628)*X(5250)-JVS(8629)*X(5252)-JVS(8630)*X(5255)-JVS(8631)& - &*X(5256))/(JVS(8625)) - X(2059) = (X(2059)-JVS(8621)*X(4389)-JVS(8622)*X(5250)-JVS(8623)*X(5255))/(JVS(8620)) - X(2058) = (X(2058)-JVS(8617)*X(3936)-JVS(8618)*X(5250)-JVS(8619)*X(5255))/(JVS(8616)) - X(2057) = (X(2057)-JVS(8613)*X(5192)-JVS(8614)*X(5250)-JVS(8615)*X(5255))/(JVS(8612)) - X(2056) = (X(2056)-JVS(8606)*X(2532)-JVS(8607)*X(3845)-JVS(8608)*X(5250)-JVS(8609)*X(5252)-JVS(8610)*X(5255)-JVS(8611)& - &*X(5256))/(JVS(8605)) - X(2055) = (X(2055)-JVS(8600)*X(4241)-JVS(8601)*X(5250)-JVS(8602)*X(5255))/(JVS(8599)) - X(2054) = (X(2054)-JVS(8596)*X(4488)-JVS(8597)*X(5250)-JVS(8598)*X(5256))/(JVS(8595)) - X(2053) = (X(2053)-JVS(8592)*X(3739)-JVS(8593)*X(5250)-JVS(8594)*X(5255))/(JVS(8591)) - X(2052) = (X(2052)-JVS(8588)*X(4349)-JVS(8589)*X(5250)-JVS(8590)*X(5255))/(JVS(8587)) - X(2051) = (X(2051)-JVS(8583)*X(3487)-JVS(8584)*X(4740)-JVS(8585)*X(5250)-JVS(8586)*X(5255))/(JVS(8582)) - X(2050) = (X(2050)-JVS(8577)*X(5119)-JVS(8578)*X(5250)-JVS(8579)*X(5252)-JVS(8580)*X(5255)-JVS(8581)*X(5256))& - &/(JVS(8576)) - X(2049) = (X(2049)-JVS(8571)*X(5119)-JVS(8572)*X(5250)-JVS(8573)*X(5252))/(JVS(8570)) - X(2048) = (X(2048)-JVS(8567)*X(4322)-JVS(8568)*X(5250)-JVS(8569)*X(5256))/(JVS(8566)) - X(2047) = (X(2047)-JVS(8563)*X(3814)-JVS(8564)*X(5250)-JVS(8565)*X(5255))/(JVS(8562)) - X(2046) = (X(2046)-JVS(8559)*X(3685)-JVS(8560)*X(5250)-JVS(8561)*X(5255))/(JVS(8558)) - X(2045) = (X(2045)-JVS(8555)*X(4334)-JVS(8556)*X(5250)-JVS(8557)*X(5252))/(JVS(8554)) - X(2044) = (X(2044)-JVS(8551)*X(5228)-JVS(8552)*X(5250)-JVS(8553)*X(5255))/(JVS(8550)) - X(2043) = (X(2043)-JVS(8547)*X(2695)-JVS(8548)*X(4341)-JVS(8549)*X(5250))/(JVS(8546)) - X(2042) = (X(2042)-JVS(8544)*X(5190)-JVS(8545)*X(5258))/(JVS(8543)) - X(2041) = (X(2041)-JVS(8538)*X(3634)-JVS(8539)*X(5250)-JVS(8540)*X(5252)-JVS(8541)*X(5255)-JVS(8542)*X(5256))& - &/(JVS(8537)) - X(2040) = (X(2040)-JVS(8532)*X(3634)-JVS(8533)*X(5250)-JVS(8534)*X(5252))/(JVS(8531)) - X(2039) = (X(2039)-JVS(8528)*X(4329)-JVS(8529)*X(5250)-JVS(8530)*X(5255))/(JVS(8527)) - X(2038) = (X(2038)-JVS(8524)*X(5024)-JVS(8525)*X(5124)-JVS(8526)*X(5258))/(JVS(8523)) - X(2037) = (X(2037)-JVS(8519)*X(4112)-JVS(8520)*X(5129)-JVS(8521)*X(5250)-JVS(8522)*X(5252))/(JVS(8518)) - X(2036) = (X(2036)-JVS(8515)*X(4433)-JVS(8516)*X(5250)-JVS(8517)*X(5255))/(JVS(8514)) - X(2035) = (X(2035)-JVS(8509)*X(3668)-JVS(8510)*X(5250)-JVS(8511)*X(5252)-JVS(8512)*X(5255)-JVS(8513)*X(5256))& - &/(JVS(8508)) - X(2034) = (X(2034)-JVS(8502)*X(3668)-JVS(8503)*X(5250)-JVS(8504)*X(5252))/(JVS(8501)) - X(2033) = (X(2033)-JVS(8496)*X(3715)-JVS(8497)*X(5250)-JVS(8498)*X(5252)-JVS(8499)*X(5255)-JVS(8500)*X(5256))& - &/(JVS(8495)) - X(2032) = (X(2032)-JVS(8489)*X(3715)-JVS(8490)*X(5250)-JVS(8491)*X(5252))/(JVS(8488)) - X(2031) = (X(2031)-JVS(8482)*X(2387)-JVS(8483)*X(3691)-JVS(8484)*X(5250)-JVS(8485)*X(5252)-JVS(8486)*X(5255)-JVS(8487)& - &*X(5256))/(JVS(8481)) - X(2030) = (X(2030)-JVS(8474)*X(2189)-JVS(8475)*X(3718)-JVS(8476)*X(5250)-JVS(8477)*X(5252)-JVS(8478)*X(5255)-JVS(8479)& - &*X(5256))/(JVS(8473)) - X(2029) = (X(2029)-JVS(8468)*X(3623)-JVS(8469)*X(4780)-JVS(8470)*X(5252)-JVS(8471)*X(5256))/(JVS(8467)) - X(2028) = (X(2028)-JVS(8465)*X(4804)-JVS(8466)*X(5250))/(JVS(8464)) - X(2027) = (X(2027)-JVS(8460)*X(3881)-JVS(8461)*X(5250)-JVS(8462)*X(5255))/(JVS(8459)) - X(2026) = (X(2026)-JVS(8456)*X(4744)-JVS(8457)*X(5250)-JVS(8458)*X(5255))/(JVS(8455)) - X(2025) = (X(2025)-JVS(8452)*X(4689)-JVS(8453)*X(5250)-JVS(8454)*X(5255))/(JVS(8451)) - X(2024) = (X(2024)-JVS(8447)*X(3274)-JVS(8448)*X(4384)-JVS(8449)*X(5252)-JVS(8450)*X(5256))/(JVS(8446)) - X(2023) = (X(2023)-JVS(8442)*X(3936)-JVS(8443)*X(3943)-JVS(8444)*X(5250)-JVS(8445)*X(5252))/(JVS(8441)) - X(2022) = (X(2022)-JVS(8438)*X(4135)-JVS(8439)*X(5250)-JVS(8440)*X(5255))/(JVS(8437)) - X(2021) = (X(2021)-JVS(8434)*X(3798)-JVS(8435)*X(5250)-JVS(8436)*X(5252))/(JVS(8433)) - X(2020) = (X(2020)-JVS(8429)*X(5181)-JVS(8430)*X(5250)-JVS(8431)*X(5252))/(JVS(8428)) - X(2019) = (X(2019)-JVS(8425)*X(4886)-JVS(8426)*X(5250)-JVS(8427)*X(5255))/(JVS(8424)) - X(2018) = (X(2018)-JVS(8421)*X(4418)-JVS(8422)*X(5250)-JVS(8423)*X(5255))/(JVS(8420)) - X(2017) = (X(2017)-JVS(8417)*X(4150)-JVS(8418)*X(5250)-JVS(8419)*X(5255))/(JVS(8416)) - X(2016) = (X(2016)-JVS(8413)*X(3941)-JVS(8414)*X(5250)-JVS(8415)*X(5255))/(JVS(8412)) - X(2015) = (X(2015)-JVS(8407)*X(3523)-JVS(8408)*X(5250)-JVS(8409)*X(5252)-JVS(8410)*X(5255)-JVS(8411)*X(5256))& - &/(JVS(8406)) - X(2014) = (X(2014)-JVS(8401)*X(3523)-JVS(8402)*X(5250)-JVS(8403)*X(5252))/(JVS(8400)) - X(2013) = (X(2013)-JVS(8398)*X(5051)-JVS(8399)*X(5258))/(JVS(8397)) - X(2012) = (X(2012)-JVS(8393)*X(3208)-JVS(8394)*X(5149)-JVS(8395)*X(5252)-JVS(8396)*X(5256))/(JVS(8392)) - X(2011) = (X(2011)-JVS(8388)*X(4587)-JVS(8389)*X(5135)-JVS(8390)*X(5250)-JVS(8391)*X(5252))/(JVS(8387)) - X(2010) = (X(2010)-JVS(8384)*X(4364)-JVS(8385)*X(5250)-JVS(8386)*X(5255))/(JVS(8383)) - X(2009) = (X(2009)-JVS(8380)*X(4354)-JVS(8381)*X(5250)-JVS(8382)*X(5255))/(JVS(8379)) - X(2008) = (X(2008)-JVS(8375)*X(2373)-JVS(8376)*X(4249)-JVS(8377)*X(5252)-JVS(8378)*X(5256))/(JVS(8374)) - X(2007) = (X(2007)-JVS(8371)*X(3950)-JVS(8372)*X(5250)-JVS(8373)*X(5252))/(JVS(8370)) - X(2006) = (X(2006)-JVS(8367)*X(4562)-JVS(8368)*X(5250)-JVS(8369)*X(5255))/(JVS(8366)) - X(2005) = (X(2005)-JVS(8362)*X(3205)-JVS(8363)*X(4359)-JVS(8364)*X(5252)-JVS(8365)*X(5256))/(JVS(8361)) - X(2004) = (X(2004)-JVS(8357)*X(3330)-JVS(8358)*X(4936)-JVS(8359)*X(5252)-JVS(8360)*X(5256))/(JVS(8356)) - X(2003) = (X(2003)-JVS(8353)*X(4519)-JVS(8354)*X(5250)-JVS(8355)*X(5253))/(JVS(8352)) - X(2002) = (X(2002)-JVS(8349)*X(5198)-JVS(8350)*X(5250)-JVS(8351)*X(5255))/(JVS(8348)) - X(2001) = (X(2001)-JVS(8345)*X(4161)-JVS(8346)*X(4561)-JVS(8347)*X(5250))/(JVS(8344)) - X(2000) = (X(2000)-JVS(8338)*X(4817)-JVS(8339)*X(4885)-JVS(8340)*X(5250)-JVS(8341)*X(5252)-JVS(8342)*X(5255)-JVS(8343)& - &*X(5256))/(JVS(8337)) - X(1999) = (X(1999)-JVS(8332)*X(4804)-JVS(8333)*X(5250)-JVS(8334)*X(5255))/(JVS(8331)) - X(1998) = (X(1998)-JVS(8325)*X(3015)-JVS(8326)*X(4360)-JVS(8327)*X(5250)-JVS(8328)*X(5252)-JVS(8329)*X(5255)-JVS(8330)& - &*X(5256))/(JVS(8324)) - X(1997) = (X(1997)-JVS(8320)*X(4405)-JVS(8321)*X(5250)-JVS(8322)*X(5255))/(JVS(8319)) - X(1996) = (X(1996)-JVS(8316)*X(5084)-JVS(8317)*X(5250)-JVS(8318)*X(5252))/(JVS(8315)) - X(1995) = (X(1995)-JVS(8311)*X(3927)-JVS(8312)*X(3969)-JVS(8313)*X(5250)-JVS(8314)*X(5252))/(JVS(8310)) - X(1994) = (X(1994)-JVS(8307)*X(5148)-JVS(8308)*X(5250)-JVS(8309)*X(5255))/(JVS(8306)) - X(1993) = (X(1993)-JVS(8303)*X(4541)-JVS(8304)*X(5250)-JVS(8305)*X(5255))/(JVS(8302)) - X(1992) = (X(1992)-JVS(8299)*X(3667)-JVS(8300)*X(5250)-JVS(8301)*X(5255))/(JVS(8298)) - X(1991) = (X(1991)-JVS(8296)*X(4066)-JVS(8297)*X(5250))/(JVS(8295)) - X(1990) = (X(1990)-JVS(8292)*X(3969)-JVS(8293)*X(5250)-JVS(8294)*X(5255))/(JVS(8291)) - X(1989) = (X(1989)-JVS(8285)*X(3447)-JVS(8286)*X(4157)-JVS(8287)*X(5250)-JVS(8288)*X(5252)-JVS(8289)*X(5255)-JVS(8290)& - &*X(5256))/(JVS(8284)) - X(1988) = (X(1988)-JVS(8280)*X(4887)-JVS(8281)*X(5250))/(JVS(8279)) - X(1987) = (X(1987)-JVS(8276)*X(4942)-JVS(8277)*X(5250)-JVS(8278)*X(5252))/(JVS(8275)) - X(1986) = (X(1986)-JVS(8269)*X(2673)-JVS(8270)*X(4172)-JVS(8271)*X(5250)-JVS(8272)*X(5252)-JVS(8273)*X(5255)-JVS(8274)& - &*X(5256))/(JVS(8268)) - X(1985) = (X(1985)-JVS(8264)*X(3838)-JVS(8265)*X(5250)-JVS(8266)*X(5255))/(JVS(8263)) - X(1984) = (X(1984)-JVS(8257)*X(2812)-JVS(8258)*X(4189)-JVS(8259)*X(5250)-JVS(8260)*X(5252)-JVS(8261)*X(5255)-JVS(8262)& - &*X(5256))/(JVS(8256)) - X(1983) = (X(1983)-JVS(8250)*X(3444)-JVS(8251)*X(4841)-JVS(8252)*X(5250)-JVS(8253)*X(5255))/(JVS(8249)) - X(1982) = (X(1982)-JVS(8246)*X(4102)-JVS(8247)*X(5250)-JVS(8248)*X(5255))/(JVS(8245)) - X(1981) = (X(1981)-JVS(8243)*X(4945)-JVS(8244)*X(5250))/(JVS(8242)) - X(1980) = (X(1980)-JVS(8239)*X(4880)-JVS(8240)*X(5250)-JVS(8241)*X(5252))/(JVS(8238)) - X(1979) = (X(1979)-JVS(8235)*X(3679)-JVS(8236)*X(5250)-JVS(8237)*X(5255))/(JVS(8234)) - X(1978) = (X(1978)-JVS(8231)*X(5120)-JVS(8232)*X(5250)-JVS(8233)*X(5252))/(JVS(8230)) - X(1977) = (X(1977)-JVS(8226)*X(4562)-JVS(8227)*X(4881)-JVS(8228)*X(5250)-JVS(8229)*X(5252))/(JVS(8225)) - X(1976) = (X(1976)-JVS(8221)*X(4140)-JVS(8222)*X(4473)-JVS(8223)*X(5250)-JVS(8224)*X(5252))/(JVS(8220)) - X(1975) = (X(1975)-JVS(8214)*X(2888)-JVS(8215)*X(4090)-JVS(8216)*X(5250)-JVS(8217)*X(5252)-JVS(8218)*X(5255)-JVS(8219)& - &*X(5256))/(JVS(8213)) - X(1974) = (X(1974)-JVS(8208)*X(5229)-JVS(8209)*X(5250)-JVS(8210)*X(5252))/(JVS(8207)) - X(1973) = (X(1973)-JVS(8204)*X(3927)-JVS(8205)*X(5250)-JVS(8206)*X(5255))/(JVS(8203)) - X(1972) = (X(1972)-JVS(8200)*X(3698)-JVS(8201)*X(5250)-JVS(8202)*X(5252))/(JVS(8199)) - X(1971) = (X(1971)-JVS(8193)*X(3102)-JVS(8194)*X(3670)-JVS(8195)*X(5250)-JVS(8196)*X(5252)-JVS(8197)*X(5255)-JVS(8198)& - &*X(5256))/(JVS(8192)) - X(1970) = (X(1970)-JVS(8188)*X(4739)-JVS(8189)*X(5250)-JVS(8190)*X(5255))/(JVS(8187)) - X(1969) = (X(1969)-JVS(8184)*X(4516)-JVS(8185)*X(5250)-JVS(8186)*X(5255))/(JVS(8183)) - X(1968) = (X(1968)-JVS(8180)*X(4311)-JVS(8181)*X(5250)-JVS(8182)*X(5255))/(JVS(8179)) - X(1967) = (X(1967)-JVS(8175)*X(3273)-JVS(8176)*X(3801)-JVS(8177)*X(5252)-JVS(8178)*X(5256))/(JVS(8174)) - X(1966) = (X(1966)-JVS(8171)*X(4733)-JVS(8172)*X(5250)-JVS(8173)*X(5255))/(JVS(8170)) - X(1965) = (X(1965)-JVS(8167)*X(5192)-JVS(8168)*X(5250)-JVS(8169)*X(5252))/(JVS(8166)) - X(1964) = (X(1964)-JVS(8163)*X(3811)-JVS(8164)*X(5250)-JVS(8165)*X(5252))/(JVS(8162)) - X(1963) = (X(1963)-JVS(8159)*X(4573)-JVS(8160)*X(5250)-JVS(8161)*X(5252))/(JVS(8158)) - X(1962) = (X(1962)-JVS(8152)*X(2839)-JVS(8153)*X(4121)-JVS(8154)*X(5250)-JVS(8155)*X(5252)-JVS(8156)*X(5255)-JVS(8157)& - &*X(5256))/(JVS(8151)) - X(1961) = (X(1961)-JVS(8143)*X(2908)-JVS(8144)*X(3890)-JVS(8145)*X(5250)-JVS(8146)*X(5252)-JVS(8147)*X(5255)-JVS(8148)& - &*X(5256))/(JVS(8142)) - X(1960) = (X(1960)-JVS(8137)*X(3453)-JVS(8138)*X(4877)-JVS(8139)*X(5252)-JVS(8140)*X(5256))/(JVS(8136)) - X(1959) = (X(1959)-JVS(8134)*X(5153)-JVS(8135)*X(5258))/(JVS(8133)) - X(1958) = (X(1958)-JVS(8130)*X(4131)-JVS(8131)*X(5250)-JVS(8132)*X(5255))/(JVS(8129)) - X(1957) = (X(1957)-JVS(8125)*X(4143)-JVS(8126)*X(4959)-JVS(8127)*X(5250)-JVS(8128)*X(5252))/(JVS(8124)) - X(1956) = (X(1956)-JVS(8121)*X(4687)-JVS(8122)*X(5250)-JVS(8123)*X(5255))/(JVS(8120)) - X(1955) = (X(1955)-JVS(8116)*X(3201)-JVS(8117)*X(4711)-JVS(8118)*X(5252)-JVS(8119)*X(5256))/(JVS(8115)) - X(1954) = (X(1954)-JVS(8112)*X(4583)-JVS(8113)*X(5250)-JVS(8114)*X(5252))/(JVS(8111)) - X(1953) = (X(1953)-JVS(8107)*X(2920)-JVS(8108)*X(3315)-JVS(8109)*X(4857)-JVS(8110)*X(5250))/(JVS(8106)) - X(1952) = (X(1952)-JVS(8102)*X(4610)-JVS(8103)*X(5250)-JVS(8104)*X(5252))/(JVS(8101)) - X(1951) = (X(1951)-JVS(8097)*X(2601)-JVS(8098)*X(4675)-JVS(8099)*X(5252)-JVS(8100)*X(5256))/(JVS(8096)) - X(1950) = (X(1950)-JVS(8093)*X(5028)-JVS(8094)*X(5250)-JVS(8095)*X(5255))/(JVS(8092)) - X(1949) = (X(1949)-JVS(8089)*X(4688)-JVS(8090)*X(5250)-JVS(8091)*X(5255))/(JVS(8088)) - X(1948) = (X(1948)-JVS(8085)*X(4473)-JVS(8086)*X(5250)-JVS(8087)*X(5255))/(JVS(8084)) - X(1947) = (X(1947)-JVS(8081)*X(4284)-JVS(8082)*X(5250)-JVS(8083)*X(5255))/(JVS(8080)) - X(1946) = (X(1946)-JVS(8077)*X(5062)-JVS(8078)*X(5250)-JVS(8079)*X(5252))/(JVS(8076)) - X(1945) = (X(1945)-JVS(8070)*X(2917)-JVS(8071)*X(5108)-JVS(8072)*X(5250)-JVS(8073)*X(5252)-JVS(8074)*X(5255)-JVS(8075)& - &*X(5256))/(JVS(8069)) - X(1944) = (X(1944)-JVS(8064)*X(3299)-JVS(8065)*X(5129)-JVS(8066)*X(5252)-JVS(8067)*X(5256))/(JVS(8063)) - X(1943) = (X(1943)-JVS(8060)*X(4163)-JVS(8061)*X(5250)-JVS(8062)*X(5255))/(JVS(8059)) - X(1942) = (X(1942)-JVS(8054)*X(4019)-JVS(8055)*X(5250)-JVS(8056)*X(5252)-JVS(8057)*X(5255)-JVS(8058)*X(5256))& - &/(JVS(8053)) - X(1941) = (X(1941)-JVS(8048)*X(4019)-JVS(8049)*X(5250)-JVS(8050)*X(5252))/(JVS(8047)) - X(1940) = (X(1940)-JVS(8044)*X(4702)-JVS(8045)*X(5250)-JVS(8046)*X(5255))/(JVS(8043)) - X(1939) = (X(1939)-JVS(8040)*X(4658)-JVS(8041)*X(5250)-JVS(8042)*X(5253))/(JVS(8039)) - X(1938) = (X(1938)-JVS(8036)*X(4885)-JVS(8037)*X(5250)-JVS(8038)*X(5255))/(JVS(8035)) - X(1937) = (X(1937)-JVS(8032)*X(3912)-JVS(8033)*X(5250)-JVS(8034)*X(5255))/(JVS(8031)) - X(1936) = (X(1936)-JVS(8028)*X(4326)-JVS(8029)*X(5250)-JVS(8030)*X(5256))/(JVS(8027)) - X(1935) = (X(1935)-JVS(8024)*X(4158)-JVS(8025)*X(5250)-JVS(8026)*X(5255))/(JVS(8023)) - X(1934) = (X(1934)-JVS(8021)*X(5019)-JVS(8022)*X(5250))/(JVS(8020)) - X(1933) = (X(1933)-JVS(8017)*X(4789)-JVS(8018)*X(5250)-JVS(8019)*X(5252))/(JVS(8016)) - X(1932) = (X(1932)-JVS(8013)*X(4340)-JVS(8014)*X(5250)-JVS(8015)*X(5255))/(JVS(8012)) - X(1931) = (X(1931)-JVS(8007)*X(3902)-JVS(8008)*X(5250)-JVS(8009)*X(5252)-JVS(8010)*X(5255)-JVS(8011)*X(5256))& - &/(JVS(8006)) - X(1930) = (X(1930)-JVS(8001)*X(3902)-JVS(8002)*X(5250)-JVS(8003)*X(5252))/(JVS(8000)) - X(1929) = (X(1929)-JVS(7996)*X(3410)-JVS(7997)*X(3447)-JVS(7998)*X(3591)-JVS(7999)*X(5250))/(JVS(7995)) - X(1928) = (X(1928)-JVS(7993)*X(4199)-JVS(7994)*X(5250))/(JVS(7992)) - X(1927) = (X(1927)-JVS(7988)*X(3308)-JVS(7989)*X(4582)-JVS(7990)*X(5252)-JVS(7991)*X(5256))/(JVS(7987)) - X(1926) = (X(1926)-JVS(7984)*X(4343)-JVS(7985)*X(5250)-JVS(7986)*X(5255))/(JVS(7983)) - X(1925) = (X(1925)-JVS(7980)*X(3006)-JVS(7981)*X(3436)-JVS(7982)*X(5250))/(JVS(7979)) - X(1924) = (X(1924)-JVS(7975)*X(3444)-JVS(7976)*X(4647)-JVS(7977)*X(5252)-JVS(7978)*X(5256))/(JVS(7974)) - X(1923) = (X(1923)-JVS(7969)*X(3637)-JVS(7970)*X(5250)-JVS(7971)*X(5252)-JVS(7972)*X(5255)-JVS(7973)*X(5256))& - &/(JVS(7968)) - X(1922) = (X(1922)-JVS(7963)*X(3637)-JVS(7964)*X(5250)-JVS(7965)*X(5252))/(JVS(7962)) - X(1921) = (X(1921)-JVS(7959)*X(5208)-JVS(7960)*X(5250)-JVS(7961)*X(5252))/(JVS(7958)) - X(1920) = (X(1920)-JVS(7955)*X(4673)-JVS(7956)*X(5250)-JVS(7957)*X(5255))/(JVS(7954)) - X(1919) = (X(1919)-JVS(7951)*X(4766)-JVS(7952)*X(5250)-JVS(7953)*X(5252))/(JVS(7950)) - X(1918) = (X(1918)-JVS(7947)*X(3883)-JVS(7948)*X(5250)-JVS(7949)*X(5252))/(JVS(7946)) - X(1917) = (X(1917)-JVS(7943)*X(4589)-JVS(7944)*X(5250)-JVS(7945)*X(5255))/(JVS(7942)) - X(1916) = (X(1916)-JVS(7940)*X(4724)-JVS(7941)*X(5250))/(JVS(7939)) - X(1915) = (X(1915)-JVS(7935)*X(3867)-JVS(7936)*X(3940)-JVS(7937)*X(5250)-JVS(7938)*X(5252))/(JVS(7934)) - X(1914) = (X(1914)-JVS(7931)*X(4870)-JVS(7932)*X(5250)-JVS(7933)*X(5255))/(JVS(7930)) - X(1913) = (X(1913)-JVS(7927)*X(5122)-JVS(7928)*X(5250)-JVS(7929)*X(5255))/(JVS(7926)) - X(1912) = (X(1912)-JVS(7921)*X(3848)-JVS(7922)*X(5250)-JVS(7923)*X(5252))/(JVS(7920)) - X(1911) = (X(1911)-JVS(7917)*X(3867)-JVS(7918)*X(5250)-JVS(7919)*X(5255))/(JVS(7916)) - X(1910) = (X(1910)-JVS(7911)*X(3496)-JVS(7912)*X(5250)-JVS(7913)*X(5252)-JVS(7914)*X(5255)-JVS(7915)*X(5256))& - &/(JVS(7910)) - X(1909) = (X(1909)-JVS(7905)*X(3496)-JVS(7906)*X(5250)-JVS(7907)*X(5252))/(JVS(7904)) - X(1908) = (X(1908)-JVS(7901)*X(4566)-JVS(7902)*X(5250)-JVS(7903)*X(5255))/(JVS(7900)) - X(1907) = (X(1907)-JVS(7897)*X(4058)-JVS(7898)*X(5250)-JVS(7899)*X(5255))/(JVS(7896)) - X(1906) = (X(1906)-JVS(7890)*X(2198)-JVS(7891)*X(4310)-JVS(7892)*X(5250)-JVS(7893)*X(5252)-JVS(7894)*X(5255)-JVS(7895)& - &*X(5256))/(JVS(7889)) - X(1905) = (X(1905)-JVS(7885)*X(3994)-JVS(7886)*X(5250)-JVS(7887)*X(5252))/(JVS(7884)) - X(1904) = (X(1904)-JVS(7881)*X(4784)-JVS(7882)*X(5250)-JVS(7883)*X(5252))/(JVS(7880)) - X(1903) = (X(1903)-JVS(7874)*X(2232)-JVS(7875)*X(3492)-JVS(7876)*X(5250)-JVS(7877)*X(5252)-JVS(7878)*X(5255)-JVS(7879)& - &*X(5256))/(JVS(7873)) - X(1902) = (X(1902)-JVS(7869)*X(3758)-JVS(7870)*X(5250)-JVS(7871)*X(5252))/(JVS(7868)) - X(1901) = (X(1901)-JVS(7865)*X(4768)-JVS(7866)*X(5250)-JVS(7867)*X(5255))/(JVS(7864)) - X(1900) = (X(1900)-JVS(7861)*X(5122)-JVS(7862)*X(5250)-JVS(7863)*X(5255))/(JVS(7860)) - X(1899) = (X(1899)-JVS(7857)*X(5121)-JVS(7858)*X(5250)-JVS(7859)*X(5255))/(JVS(7856)) - X(1898) = (X(1898)-JVS(7853)*X(3727)-JVS(7854)*X(5250)-JVS(7855)*X(5255))/(JVS(7852)) - X(1897) = (X(1897)-JVS(7849)*X(4161)-JVS(7850)*X(5250)-JVS(7851)*X(5255))/(JVS(7848)) - X(1896) = (X(1896)-JVS(7845)*X(3798)-JVS(7846)*X(5250)-JVS(7847)*X(5252))/(JVS(7844)) - X(1895) = (X(1895)-JVS(7841)*X(5246)-JVS(7842)*X(5250)-JVS(7843)*X(5252))/(JVS(7840)) - X(1894) = (X(1894)-JVS(7836)*X(4364)-JVS(7837)*X(4596)-JVS(7838)*X(5250)-JVS(7839)*X(5252))/(JVS(7835)) - X(1893) = (X(1893)-JVS(7831)*X(2868)-JVS(7832)*X(4926)-JVS(7833)*X(5250)-JVS(7834)*X(5255))/(JVS(7830)) - X(1892) = (X(1892)-JVS(7826)*X(3217)-JVS(7827)*X(4123)-JVS(7828)*X(5252)-JVS(7829)*X(5256))/(JVS(7825)) - X(1891) = (X(1891)-JVS(7821)*X(3618)-JVS(7822)*X(4982)-JVS(7823)*X(5252)-JVS(7824)*X(5256))/(JVS(7820)) - X(1890) = (X(1890)-JVS(7817)*X(4226)-JVS(7818)*X(5250)-JVS(7819)*X(5255))/(JVS(7816)) - X(1889) = (X(1889)-JVS(7813)*X(3952)-JVS(7814)*X(5250)-JVS(7815)*X(5252))/(JVS(7812)) - X(1888) = (X(1888)-JVS(7809)*X(4268)-JVS(7810)*X(5250)-JVS(7811)*X(5255))/(JVS(7808)) - X(1887) = (X(1887)-JVS(7805)*X(4242)-JVS(7806)*X(5250)-JVS(7807)*X(5255))/(JVS(7804)) - X(1886) = (X(1886)-JVS(7801)*X(4645)-JVS(7802)*X(5250)-JVS(7803)*X(5255))/(JVS(7800)) - X(1885) = (X(1885)-JVS(7797)*X(5147)-JVS(7798)*X(5250)-JVS(7799)*X(5255))/(JVS(7796)) - X(1884) = (X(1884)-JVS(7793)*X(4348)-JVS(7794)*X(5250)-JVS(7795)*X(5255))/(JVS(7792)) - X(1883) = (X(1883)-JVS(7789)*X(3743)-JVS(7790)*X(5250)-JVS(7791)*X(5252))/(JVS(7788)) - X(1882) = (X(1882)-JVS(7784)*X(3256)-JVS(7785)*X(4554)-JVS(7786)*X(5252)-JVS(7787)*X(5256))/(JVS(7783)) - X(1881) = (X(1881)-JVS(7780)*X(3521)-JVS(7781)*X(5250)-JVS(7782)*X(5252))/(JVS(7779)) - X(1880) = (X(1880)-JVS(7776)*X(3884)-JVS(7777)*X(5250)-JVS(7778)*X(5255))/(JVS(7775)) - X(1879) = (X(1879)-JVS(7772)*X(4620)-JVS(7773)*X(5250)-JVS(7774)*X(5255))/(JVS(7771)) - X(1878) = (X(1878)-JVS(7768)*X(3439)-JVS(7769)*X(3440)-JVS(7770)*X(5250))/(JVS(7767)) - X(1877) = (X(1877)-JVS(7763)*X(3289)-JVS(7764)*X(4598)-JVS(7765)*X(5252)-JVS(7766)*X(5256))/(JVS(7762)) - X(1876) = (X(1876)-JVS(7759)*X(4784)-JVS(7760)*X(5250)-JVS(7761)*X(5255))/(JVS(7758)) - X(1875) = (X(1875)-JVS(7756)*X(4572)-JVS(7757)*X(5250))/(JVS(7755)) - X(1874) = (X(1874)-JVS(7752)*X(4657)-JVS(7753)*X(5250)-JVS(7754)*X(5255))/(JVS(7751)) - X(1873) = (X(1873)-JVS(7748)*X(4897)-JVS(7749)*X(5250)-JVS(7750)*X(5255))/(JVS(7747)) - X(1872) = (X(1872)-JVS(7743)*X(2805)-JVS(7744)*X(4353)-JVS(7745)*X(5252)-JVS(7746)*X(5256))/(JVS(7742)) - X(1871) = (X(1871)-JVS(7739)*X(4147)-JVS(7740)*X(5250)-JVS(7741)*X(5255))/(JVS(7738)) - X(1870) = (X(1870)-JVS(7733)*X(2405)-JVS(7734)*X(4368)-JVS(7735)*X(4595)-JVS(7736)*X(5250)-JVS(7737)*X(5255))& - &/(JVS(7732)) - X(1869) = (X(1869)-JVS(7727)*X(4368)-JVS(7728)*X(5250)-JVS(7729)*X(5255))/(JVS(7726)) - X(1868) = (X(1868)-JVS(7723)*X(4176)-JVS(7724)*X(5250)-JVS(7725)*X(5255))/(JVS(7722)) - X(1867) = (X(1867)-JVS(7716)*X(2817)-JVS(7717)*X(4609)-JVS(7718)*X(5250)-JVS(7719)*X(5252)-JVS(7720)*X(5255)-JVS(7721)& - &*X(5256))/(JVS(7715)) - X(1866) = (X(1866)-JVS(7710)*X(3462)-JVS(7711)*X(4783)-JVS(7712)*X(5252)-JVS(7713)*X(5256))/(JVS(7709)) - X(1865) = (X(1865)-JVS(7704)*X(4219)-JVS(7705)*X(5250)-JVS(7706)*X(5252)-JVS(7707)*X(5255)-JVS(7708)*X(5256))& - &/(JVS(7703)) - X(1864) = (X(1864)-JVS(7698)*X(4219)-JVS(7699)*X(5250)-JVS(7700)*X(5252))/(JVS(7697)) - X(1863) = (X(1863)-JVS(7694)*X(4761)-JVS(7695)*X(5250)-JVS(7696)*X(5255))/(JVS(7693)) - X(1862) = (X(1862)-JVS(7690)*X(3844)-JVS(7691)*X(5250)-JVS(7692)*X(5255))/(JVS(7689)) - X(1861) = (X(1861)-JVS(7686)*X(3696)-JVS(7687)*X(5250)-JVS(7688)*X(5255))/(JVS(7685)) - X(1860) = (X(1860)-JVS(7679)*X(1881)-JVS(7680)*X(3521)-JVS(7681)*X(5250)-JVS(7682)*X(5252)-JVS(7683)*X(5255)-JVS(7684)& - &*X(5256))/(JVS(7678)) - X(1859) = (X(1859)-JVS(7674)*X(4351)-JVS(7675)*X(5250)-JVS(7676)*X(5255))/(JVS(7673)) - X(1858) = (X(1858)-JVS(7670)*X(2727)-JVS(7671)*X(4144)-JVS(7672)*X(5250))/(JVS(7669)) - X(1857) = (X(1857)-JVS(7666)*X(4905)-JVS(7667)*X(5250))/(JVS(7665)) - X(1856) = (X(1856)-JVS(7662)*X(5150)-JVS(7663)*X(5250)-JVS(7664)*X(5252))/(JVS(7661)) - X(1855) = (X(1855)-JVS(7658)*X(4974)-JVS(7659)*X(5250)-JVS(7660)*X(5255))/(JVS(7657)) - X(1854) = (X(1854)-JVS(7654)*X(4550)-JVS(7655)*X(5250)-JVS(7656)*X(5255))/(JVS(7653)) - X(1853) = (X(1853)-JVS(7651)*X(4923)-JVS(7652)*X(5250))/(JVS(7650)) - X(1852) = (X(1852)-JVS(7644)*X(2701)-JVS(7645)*X(4580)-JVS(7646)*X(5250)-JVS(7647)*X(5252)-JVS(7648)*X(5255)-JVS(7649)& - &*X(5256))/(JVS(7643)) - X(1851) = (X(1851)-JVS(7638)*X(4414)-JVS(7639)*X(5250)-JVS(7640)*X(5255))/(JVS(7637)) - X(1850) = (X(1850)-JVS(7634)*X(3677)-JVS(7635)*X(5250)-JVS(7636)*X(5255))/(JVS(7633)) - X(1849) = (X(1849)-JVS(7630)*X(4171)-JVS(7631)*X(5250)-JVS(7632)*X(5255))/(JVS(7629)) - X(1848) = (X(1848)-JVS(7625)*X(3449)-JVS(7626)*X(4339)-JVS(7627)*X(5252)-JVS(7628)*X(5256))/(JVS(7624)) - X(1847) = (X(1847)-JVS(7619)*X(4087)-JVS(7620)*X(5250)-JVS(7621)*X(5252)-JVS(7622)*X(5255)-JVS(7623)*X(5256))& - &/(JVS(7618)) - X(1846) = (X(1846)-JVS(7613)*X(4087)-JVS(7614)*X(5250)-JVS(7615)*X(5252))/(JVS(7612)) - X(1845) = (X(1845)-JVS(7609)*X(4379)-JVS(7610)*X(5250)-JVS(7611)*X(5256))/(JVS(7608)) - X(1844) = (X(1844)-JVS(7605)*X(3943)-JVS(7606)*X(5250)-JVS(7607)*X(5255))/(JVS(7604)) - X(1843) = (X(1843)-JVS(7601)*X(2439)-JVS(7602)*X(4762)-JVS(7603)*X(5250))/(JVS(7600)) - X(1842) = (X(1842)-JVS(7596)*X(5116)-JVS(7597)*X(5250)-JVS(7598)*X(5255))/(JVS(7595)) - X(1841) = (X(1841)-JVS(7592)*X(4581)-JVS(7593)*X(5250)-JVS(7594)*X(5252))/(JVS(7591)) - X(1840) = (X(1840)-JVS(7588)*X(4069)-JVS(7589)*X(5250)-JVS(7590)*X(5255))/(JVS(7587)) - X(1839) = (X(1839)-JVS(7584)*X(4369)-JVS(7585)*X(5250)-JVS(7586)*X(5255))/(JVS(7583)) - X(1838) = (X(1838)-JVS(7577)*X(2555)-JVS(7578)*X(3989)-JVS(7579)*X(5250)-JVS(7580)*X(5252)-JVS(7581)*X(5255)-JVS(7582)& - &*X(5256))/(JVS(7576)) - X(1837) = (X(1837)-JVS(7572)*X(4835)-JVS(7573)*X(5250)-JVS(7574)*X(5255))/(JVS(7571)) - X(1836) = (X(1836)-JVS(7568)*X(4483)-JVS(7569)*X(5250)-JVS(7570)*X(5255))/(JVS(7567)) - X(1835) = (X(1835)-JVS(7564)*X(3850)-JVS(7565)*X(5250)-JVS(7566)*X(5252))/(JVS(7563)) - X(1834) = (X(1834)-JVS(7560)*X(2469)-JVS(7561)*X(4754)-JVS(7562)*X(5250))/(JVS(7559)) - X(1833) = (X(1833)-JVS(7552)*X(3366)-JVS(7553)*X(3897)-JVS(7554)*X(5011)-JVS(7555)*X(5250)-JVS(7556)*X(5252)-JVS(7557)& - &*X(5256))/(JVS(7551)) - X(1832) = (X(1832)-JVS(7547)*X(3078)-JVS(7548)*X(4584)-JVS(7549)*X(5250))/(JVS(7546)) - X(1831) = (X(1831)-JVS(7542)*X(4586)-JVS(7543)*X(5250)-JVS(7544)*X(5252))/(JVS(7541)) - X(1830) = (X(1830)-JVS(7538)*X(4381)-JVS(7539)*X(5250)-JVS(7540)*X(5255))/(JVS(7537)) - X(1829) = (X(1829)-JVS(7534)*X(4251)-JVS(7535)*X(5250)-JVS(7536)*X(5252))/(JVS(7533)) - X(1828) = (X(1828)-JVS(7530)*X(2737)-JVS(7531)*X(4542)-JVS(7532)*X(5250))/(JVS(7529)) - X(1827) = (X(1827)-JVS(7524)*X(4582)-JVS(7525)*X(4879)-JVS(7526)*X(5250)-JVS(7527)*X(5252))/(JVS(7523)) - X(1826) = (X(1826)-JVS(7520)*X(3528)-JVS(7521)*X(4967)-JVS(7522)*X(5250))/(JVS(7519)) - X(1825) = (X(1825)-JVS(7514)*X(3708)-JVS(7515)*X(5197)-JVS(7516)*X(5252)-JVS(7517)*X(5256))/(JVS(7513)) - X(1824) = (X(1824)-JVS(7510)*X(5107)-JVS(7511)*X(5250)-JVS(7512)*X(5252))/(JVS(7509)) - X(1823) = (X(1823)-JVS(7506)*X(4900)-JVS(7507)*X(5250)-JVS(7508)*X(5252))/(JVS(7505)) - X(1822) = (X(1822)-JVS(7499)*X(2078)-JVS(7500)*X(3790)-JVS(7501)*X(5250)-JVS(7502)*X(5252)-JVS(7503)*X(5255)-JVS(7504)& - &*X(5256))/(JVS(7498)) - X(1821) = (X(1821)-JVS(7491)*X(2309)-JVS(7492)*X(3507)-JVS(7493)*X(5250)-JVS(7494)*X(5252)-JVS(7495)*X(5255)-JVS(7496)& - &*X(5256))/(JVS(7490)) - X(1820) = (X(1820)-JVS(7484)*X(3509)-JVS(7485)*X(5250)-JVS(7486)*X(5252)-JVS(7487)*X(5255)-JVS(7488)*X(5256))& - &/(JVS(7483)) - X(1819) = (X(1819)-JVS(7478)*X(3509)-JVS(7479)*X(5250)-JVS(7480)*X(5252))/(JVS(7477)) - X(1818) = (X(1818)-JVS(7471)*X(2802)-JVS(7472)*X(5130)-JVS(7473)*X(5250)-JVS(7474)*X(5252)-JVS(7475)*X(5255)-JVS(7476)& - &*X(5256))/(JVS(7470)) - X(1817) = (X(1817)-JVS(7465)*X(2487)-JVS(7466)*X(5238)-JVS(7467)*X(5250))/(JVS(7464)) - X(1816) = (X(1816)-JVS(7461)*X(4229)-JVS(7462)*X(5250)-JVS(7463)*X(5255))/(JVS(7460)) - X(1815) = (X(1815)-JVS(7456)*X(3243)-JVS(7457)*X(4596)-JVS(7458)*X(5252)-JVS(7459)*X(5256))/(JVS(7455)) - X(1814) = (X(1814)-JVS(7450)*X(4162)-JVS(7451)*X(5250)-JVS(7452)*X(5252)-JVS(7453)*X(5255)-JVS(7454)*X(5256))& - &/(JVS(7449)) - X(1813) = (X(1813)-JVS(7444)*X(4162)-JVS(7445)*X(5250)-JVS(7446)*X(5252))/(JVS(7443)) - X(1812) = (X(1812)-JVS(7438)*X(3750)-JVS(7439)*X(5250)-JVS(7440)*X(5252)-JVS(7441)*X(5255)-JVS(7442)*X(5256))& - &/(JVS(7437)) - X(1811) = (X(1811)-JVS(7431)*X(3750)-JVS(7432)*X(5250)-JVS(7433)*X(5252))/(JVS(7430)) - X(1810) = (X(1810)-JVS(7426)*X(4125)-JVS(7427)*X(5001)-JVS(7428)*X(5252)-JVS(7429)*X(5256))/(JVS(7425)) - X(1809) = (X(1809)-JVS(7422)*X(5195)-JVS(7423)*X(5250)-JVS(7424)*X(5255))/(JVS(7421)) - X(1808) = (X(1808)-JVS(7417)*X(3198)-JVS(7418)*X(4585)-JVS(7419)*X(5252)-JVS(7420)*X(5256))/(JVS(7416)) - X(1807) = (X(1807)-JVS(7413)*X(3278)-JVS(7414)*X(3909)-JVS(7415)*X(5250))/(JVS(7412)) - X(1806) = (X(1806)-JVS(7409)*X(2501)-JVS(7410)*X(4432)-JVS(7411)*X(5250))/(JVS(7408)) - X(1805) = (X(1805)-JVS(7404)*X(4045)-JVS(7405)*X(5250)-JVS(7406)*X(5256))/(JVS(7403)) - X(1804) = (X(1804)-JVS(7400)*X(4518)-JVS(7401)*X(5250)-JVS(7402)*X(5255))/(JVS(7399)) - X(1803) = (X(1803)-JVS(7393)*X(2759)-JVS(7394)*X(4166)-JVS(7395)*X(5250)-JVS(7396)*X(5252)-JVS(7397)*X(5255)-JVS(7398)& - &*X(5256))/(JVS(7392)) - X(1802) = (X(1802)-JVS(7387)*X(4817)-JVS(7388)*X(5250)-JVS(7389)*X(5255))/(JVS(7386)) - X(1801) = (X(1801)-JVS(7383)*X(4385)-JVS(7384)*X(5250)-JVS(7385)*X(5255))/(JVS(7382)) - X(1800) = (X(1800)-JVS(7379)*X(5185)-JVS(7380)*X(5250)-JVS(7381)*X(5252))/(JVS(7378)) - X(1799) = (X(1799)-JVS(7373)*X(3967)-JVS(7374)*X(5250)-JVS(7375)*X(5252)-JVS(7376)*X(5255)-JVS(7377)*X(5256))& - &/(JVS(7372)) - X(1798) = (X(1798)-JVS(7367)*X(3967)-JVS(7368)*X(5250)-JVS(7369)*X(5252))/(JVS(7366)) - X(1797) = (X(1797)-JVS(7363)*X(2690)-JVS(7364)*X(4070)-JVS(7365)*X(5250))/(JVS(7362)) - X(1796) = (X(1796)-JVS(7356)*X(2302)-JVS(7357)*X(3481)-JVS(7358)*X(5250)-JVS(7359)*X(5252)-JVS(7360)*X(5255)-JVS(7361)& - &*X(5256))/(JVS(7355)) - X(1795) = (X(1795)-JVS(7351)*X(5013)-JVS(7352)*X(5205)-JVS(7353)*X(5258))/(JVS(7350)) - X(1794) = (X(1794)-JVS(7347)*X(3776)-JVS(7348)*X(5250)-JVS(7349)*X(5252))/(JVS(7346)) - X(1793) = (X(1793)-JVS(7343)*X(4136)-JVS(7344)*X(5250)-JVS(7345)*X(5255))/(JVS(7342)) - X(1792) = (X(1792)-JVS(7336)*X(1794)-JVS(7337)*X(3776)-JVS(7338)*X(5250)-JVS(7339)*X(5252)-JVS(7340)*X(5255)-JVS(7341)& - &*X(5256))/(JVS(7335)) - X(1791) = (X(1791)-JVS(7331)*X(2836)-JVS(7332)*X(4756)-JVS(7333)*X(5250))/(JVS(7330)) - X(1790) = (X(1790)-JVS(7326)*X(3314)-JVS(7327)*X(4594)-JVS(7328)*X(5250))/(JVS(7325)) - X(1789) = (X(1789)-JVS(7319)*X(3894)-JVS(7320)*X(5250)-JVS(7321)*X(5252)-JVS(7322)*X(5255)-JVS(7323)*X(5256))& - &/(JVS(7318)) - X(1788) = (X(1788)-JVS(7312)*X(3894)-JVS(7313)*X(5250)-JVS(7314)*X(5252))/(JVS(7311)) - X(1787) = (X(1787)-JVS(7307)*X(3267)-JVS(7308)*X(4565)-JVS(7309)*X(5252)-JVS(7310)*X(5256))/(JVS(7306)) - X(1786) = (X(1786)-JVS(7303)*X(4342)-JVS(7304)*X(5250)-JVS(7305)*X(5252))/(JVS(7302)) - X(1785) = (X(1785)-JVS(7298)*X(4579)-JVS(7299)*X(5149)-JVS(7300)*X(5250)-JVS(7301)*X(5252))/(JVS(7297)) - X(1784) = (X(1784)-JVS(7294)*X(4875)-JVS(7295)*X(5250)-JVS(7296)*X(5255))/(JVS(7293)) - X(1783) = (X(1783)-JVS(7290)*X(4535)-JVS(7291)*X(5250)-JVS(7292)*X(5255))/(JVS(7289)) - X(1782) = (X(1782)-JVS(7285)*X(4387)-JVS(7286)*X(5007)-JVS(7287)*X(5250)-JVS(7288)*X(5252))/(JVS(7284)) - X(1781) = (X(1781)-JVS(7279)*X(3751)-JVS(7280)*X(5250)-JVS(7281)*X(5252)-JVS(7282)*X(5255)-JVS(7283)*X(5256))& - &/(JVS(7278)) - X(1780) = (X(1780)-JVS(7273)*X(3751)-JVS(7274)*X(5250)-JVS(7275)*X(5252))/(JVS(7272)) - X(1779) = (X(1779)-JVS(7269)*X(4778)-JVS(7270)*X(5250)-JVS(7271)*X(5255))/(JVS(7268)) - X(1778) = (X(1778)-JVS(7265)*X(5096)-JVS(7266)*X(5250)-JVS(7267)*X(5255))/(JVS(7264)) - X(1777) = (X(1777)-JVS(7262)*X(4765)-JVS(7263)*X(5250))/(JVS(7261)) - X(1776) = (X(1776)-JVS(7259)*X(4555)-JVS(7260)*X(5258))/(JVS(7258)) - X(1775) = (X(1775)-JVS(7255)*X(4603)-JVS(7256)*X(5250)-JVS(7257)*X(5256))/(JVS(7254)) - X(1774) = (X(1774)-JVS(7251)*X(5135)-JVS(7252)*X(5250)-JVS(7253)*X(5255))/(JVS(7250)) - X(1773) = (X(1773)-JVS(7245)*X(3525)-JVS(7246)*X(5250)-JVS(7247)*X(5252)-JVS(7248)*X(5255)-JVS(7249)*X(5256))& - &/(JVS(7244)) - X(1772) = (X(1772)-JVS(7239)*X(3525)-JVS(7240)*X(5250)-JVS(7241)*X(5252))/(JVS(7238)) - X(1771) = (X(1771)-JVS(7235)*X(5041)-JVS(7236)*X(5250)-JVS(7237)*X(5252))/(JVS(7234)) - X(1770) = (X(1770)-JVS(7231)*X(4266)-JVS(7232)*X(5250)-JVS(7233)*X(5255))/(JVS(7230)) - X(1769) = (X(1769)-JVS(7226)*X(2737)-JVS(7227)*X(4542)-JVS(7228)*X(5252)-JVS(7229)*X(5256))/(JVS(7225)) - X(1768) = (X(1768)-JVS(7222)*X(4661)-JVS(7223)*X(5250)-JVS(7224)*X(5255))/(JVS(7221)) - X(1767) = (X(1767)-JVS(7218)*X(4607)-JVS(7219)*X(5250)-JVS(7220)*X(5255))/(JVS(7217)) - X(1766) = (X(1766)-JVS(7214)*X(3974)-JVS(7215)*X(5250)-JVS(7216)*X(5252))/(JVS(7213)) - X(1765) = (X(1765)-JVS(7209)*X(3227)-JVS(7210)*X(4740)-JVS(7211)*X(5250)-JVS(7212)*X(5255))/(JVS(7208)) - X(1764) = (X(1764)-JVS(7204)*X(4999)-JVS(7205)*X(5232)-JVS(7206)*X(5250)-JVS(7207)*X(5255))/(JVS(7203)) - X(1763) = (X(1763)-JVS(7199)*X(3317)-JVS(7200)*X(4666)-JVS(7201)*X(5250)-JVS(7202)*X(5255))/(JVS(7198)) - X(1762) = (X(1762)-JVS(7195)*X(4552)-JVS(7196)*X(5250)-JVS(7197)*X(5255))/(JVS(7194)) - X(1761) = (X(1761)-JVS(7190)*X(3327)-JVS(7191)*X(4295)-JVS(7192)*X(5250)-JVS(7193)*X(5255))/(JVS(7189)) - X(1760) = (X(1760)-JVS(7185)*X(3238)-JVS(7186)*X(4667)-JVS(7187)*X(5252)-JVS(7188)*X(5256))/(JVS(7184)) - X(1759) = (X(1759)-JVS(7181)*X(4274)-JVS(7182)*X(5250)-JVS(7183)*X(5255))/(JVS(7180)) - X(1758) = (X(1758)-JVS(7177)*X(3990)-JVS(7178)*X(5250)-JVS(7179)*X(5255))/(JVS(7176)) - X(1757) = (X(1757)-JVS(7173)*X(4960)-JVS(7174)*X(5250)-JVS(7175)*X(5255))/(JVS(7172)) - X(1756) = (X(1756)-JVS(7169)*X(4098)-JVS(7170)*X(5250)-JVS(7171)*X(5255))/(JVS(7168)) - X(1755) = (X(1755)-JVS(7160)*X(2509)-JVS(7161)*X(3870)-JVS(7162)*X(5250)-JVS(7163)*X(5252)-JVS(7164)*X(5255)-JVS(7165)& - &*X(5256))/(JVS(7159)) - X(1754) = (X(1754)-JVS(7152)*X(3188)-JVS(7153)*X(3721)-JVS(7154)*X(5250)-JVS(7155)*X(5252)-JVS(7156)*X(5255)-JVS(7157)& - &*X(5256))/(JVS(7151)) - X(1753) = (X(1753)-JVS(7146)*X(5061)-JVS(7147)*X(5250)-JVS(7148)*X(5255))/(JVS(7145)) - X(1752) = (X(1752)-JVS(7142)*X(4363)-JVS(7143)*X(5250)-JVS(7144)*X(5252))/(JVS(7141)) - X(1751) = (X(1751)-JVS(7138)*X(4696)-JVS(7139)*X(5250)-JVS(7140)*X(5255))/(JVS(7137)) - X(1750) = (X(1750)-JVS(7132)*X(2188)-JVS(7133)*X(5142)-JVS(7134)*X(5250)-JVS(7135)*X(5252)-JVS(7136)*X(5256))& - &/(JVS(7131)) - X(1749) = (X(1749)-JVS(7126)*X(5142)-JVS(7127)*X(5250)-JVS(7128)*X(5252))/(JVS(7125)) - X(1748) = (X(1748)-JVS(7121)*X(3625)-JVS(7122)*X(5074)-JVS(7123)*X(5252)-JVS(7124)*X(5256))/(JVS(7120)) - X(1747) = (X(1747)-JVS(7118)*X(3827)-JVS(7119)*X(5250))/(JVS(7117)) - X(1746) = (X(1746)-JVS(7115)*X(4988)-JVS(7116)*X(5258))/(JVS(7114)) - X(1745) = (X(1745)-JVS(7109)*X(3788)-JVS(7110)*X(5250)-JVS(7111)*X(5252)-JVS(7112)*X(5255)-JVS(7113)*X(5256))& - &/(JVS(7108)) - X(1744) = (X(1744)-JVS(7104)*X(4389)-JVS(7105)*X(5250))/(JVS(7103)) - X(1743) = (X(1743)-JVS(7098)*X(2187)-JVS(7099)*X(2375)-JVS(7100)*X(3676)-JVS(7101)*X(5252)-JVS(7102)*X(5256))& - &/(JVS(7097)) - X(1742) = (X(1742)-JVS(7095)*X(4756)-JVS(7096)*X(5250))/(JVS(7094)) - X(1741) = (X(1741)-JVS(7089)*X(2628)-JVS(7090)*X(2913)-JVS(7091)*X(4980)-JVS(7092)*X(5252)-JVS(7093)*X(5256))& - &/(JVS(7088)) - X(1740) = (X(1740)-JVS(7086)*X(4361)-JVS(7087)*X(5250))/(JVS(7085)) - X(1739) = (X(1739)-JVS(7080)*X(5052)-JVS(7081)*X(5250)-JVS(7082)*X(5252)-JVS(7083)*X(5255)-JVS(7084)*X(5256))& - &/(JVS(7079)) - X(1738) = (X(1738)-JVS(7072)*X(2266)-JVS(7073)*X(2288)-JVS(7074)*X(3920)-JVS(7075)*X(3966)-JVS(7076)*X(5250))& - &/(JVS(7071)) - X(1737) = (X(1737)-JVS(7065)*X(2558)-JVS(7066)*X(3341)-JVS(7067)*X(4336)-JVS(7068)*X(5252)-JVS(7069)*X(5256))& - &/(JVS(7064)) - X(1736) = (X(1736)-JVS(7059)*X(2160)-JVS(7060)*X(2184)-JVS(7061)*X(3963)-JVS(7062)*X(3971)-JVS(7063)*X(5250))& - &/(JVS(7058)) - X(1735) = (X(1735)-JVS(7055)*X(4070)-JVS(7056)*X(5250))/(JVS(7054)) - X(1734) = (X(1734)-JVS(7052)*X(4835)-JVS(7053)*X(5250))/(JVS(7051)) - X(1733) = (X(1733)-JVS(7049)*X(5142)-JVS(7050)*X(5250))/(JVS(7048)) - X(1732) = (X(1732)-JVS(7043)*X(4410)-JVS(7044)*X(5250)-JVS(7045)*X(5252)-JVS(7046)*X(5255)-JVS(7047)*X(5256))& - &/(JVS(7042)) - X(1731) = (X(1731)-JVS(7038)*X(4150)-JVS(7039)*X(5250))/(JVS(7037)) - X(1730) = (X(1730)-JVS(7035)*X(5147)-JVS(7036)*X(5250))/(JVS(7034)) - X(1729) = (X(1729)-JVS(7032)*X(3659)-JVS(7033)*X(5250))/(JVS(7031)) - X(1728) = (X(1728)-JVS(7026)*X(2672)-JVS(7027)*X(2753)-JVS(7028)*X(4127)-JVS(7029)*X(5250)-JVS(7030)*X(5255))& - &/(JVS(7025)) - X(1727) = (X(1727)-JVS(7019)*X(4422)-JVS(7020)*X(5250)-JVS(7021)*X(5252)-JVS(7022)*X(5255)-JVS(7023)*X(5256))& - &/(JVS(7018)) - X(1726) = (X(1726)-JVS(7014)*X(4706)-JVS(7015)*X(5250))/(JVS(7013)) - X(1725) = (X(1725)-JVS(7008)*X(1880)-JVS(7009)*X(2106)-JVS(7010)*X(3884)-JVS(7011)*X(5252)-JVS(7012)*X(5256))& - &/(JVS(7007)) - X(1724) = (X(1724)-JVS(7002)*X(2214)-JVS(7003)*X(2942)-JVS(7004)*X(4137)-JVS(7005)*X(5252)-JVS(7006)*X(5256))& - &/(JVS(7001)) - X(1723) = (X(1723)-JVS(6996)*X(2084)-JVS(6997)*X(4309)-JVS(6998)*X(5250)-JVS(6999)*X(5252)-JVS(7000)*X(5256))& - &/(JVS(6995)) - X(1722) = (X(1722)-JVS(6992)*X(4309)-JVS(6993)*X(5250))/(JVS(6991)) - X(1721) = (X(1721)-JVS(6986)*X(2775)-JVS(6987)*X(2934)-JVS(6988)*X(3873)-JVS(6989)*X(5252)-JVS(6990)*X(5256))& - &/(JVS(6985)) - X(1720) = (X(1720)-JVS(6980)*X(1902)-JVS(6981)*X(2127)-JVS(6982)*X(3758)-JVS(6983)*X(5252)-JVS(6984)*X(5256))& - &/(JVS(6979)) - X(1719) = (X(1719)-JVS(6977)*X(4581)-JVS(6978)*X(5250))/(JVS(6976)) - X(1718) = (X(1718)-JVS(6974)*X(4144)-JVS(6975)*X(5250))/(JVS(6973)) - X(1717) = (X(1717)-JVS(6971)*X(3815)-JVS(6972)*X(5250))/(JVS(6970)) - X(1716) = (X(1716)-JVS(6968)*X(3810)-JVS(6969)*X(5250))/(JVS(6967)) - X(1715) = (X(1715)-JVS(6962)*X(2237)-JVS(6963)*X(2339)-JVS(6964)*X(4755)-JVS(6965)*X(5252)-JVS(6966)*X(5256))& - &/(JVS(6961)) - X(1714) = (X(1714)-JVS(6956)*X(3889)-JVS(6957)*X(5250)-JVS(6958)*X(5252)-JVS(6959)*X(5255)-JVS(6960)*X(5256))& - &/(JVS(6955)) - X(1713) = (X(1713)-JVS(6948)*X(3705)-JVS(6949)*X(5250)-JVS(6950)*X(5252)-JVS(6951)*X(5255)-JVS(6952)*X(5256))& - &/(JVS(6947)) - X(1712) = (X(1712)-JVS(6942)*X(2572)-JVS(6943)*X(4367)-JVS(6944)*X(5250))/(JVS(6941)) - X(1711) = (X(1711)-JVS(6938)*X(4367)-JVS(6939)*X(5250))/(JVS(6937)) - X(1710) = (X(1710)-JVS(6932)*X(4481)-JVS(6933)*X(5250)-JVS(6934)*X(5252)-JVS(6935)*X(5255)-JVS(6936)*X(5256))& - &/(JVS(6931)) - X(1709) = (X(1709)-JVS(6927)*X(5238)-JVS(6928)*X(5250))/(JVS(6926)) - X(1708) = (X(1708)-JVS(6924)*X(5238)-JVS(6925)*X(5250))/(JVS(6923)) - X(1707) = (X(1707)-JVS(6921)*X(4349)-JVS(6922)*X(5250))/(JVS(6920)) - X(1706) = (X(1706)-JVS(6915)*X(1973)-JVS(6916)*X(1995)-JVS(6917)*X(3872)-JVS(6918)*X(3927)-JVS(6919)*X(5250))& - &/(JVS(6914)) - X(1705) = (X(1705)-JVS(6911)*X(4827)-JVS(6912)*X(5250))/(JVS(6910)) - X(1704) = (X(1704)-JVS(6908)*X(4583)-JVS(6909)*X(5250))/(JVS(6907)) - X(1703) = (X(1703)-JVS(6905)*X(3147)-JVS(6906)*X(5250))/(JVS(6904)) - X(1702) = (X(1702)-JVS(6899)*X(2338)-JVS(6900)*X(2463)-JVS(6901)*X(3847)-JVS(6902)*X(5252)-JVS(6903)*X(5256))& - &/(JVS(6898)) - X(1701) = (X(1701)-JVS(6896)*X(4755)-JVS(6897)*X(5250))/(JVS(6895)) - X(1700) = (X(1700)-JVS(6893)*X(3808)-JVS(6894)*X(5250))/(JVS(6892)) - X(1699) = (X(1699)-JVS(6887)*X(2878)-JVS(6888)*X(3376)-JVS(6889)*X(4390)-JVS(6890)*X(5252)-JVS(6891)*X(5256))& - &/(JVS(6886)) - X(1698) = (X(1698)-JVS(6884)*X(4513)-JVS(6885)*X(5250))/(JVS(6883)) - X(1697) = (X(1697)-JVS(6881)*X(5208)-JVS(6882)*X(5250))/(JVS(6880)) - X(1696) = (X(1696)-JVS(6875)*X(2943)-JVS(6876)*X(3034)-JVS(6877)*X(3706)-JVS(6878)*X(5250)-JVS(6879)*X(5255))& - &/(JVS(6874)) - X(1695) = (X(1695)-JVS(6867)*X(1974)-JVS(6868)*X(2292)-JVS(6869)*X(5229)-JVS(6870)*X(5252)-JVS(6871)*X(5256))& - &/(JVS(6866)) - X(1694) = (X(1694)-JVS(6864)*X(3889)-JVS(6865)*X(5250))/(JVS(6863)) - X(1693) = (X(1693)-JVS(6861)*X(4880)-JVS(6862)*X(5250))/(JVS(6860)) - X(1692) = (X(1692)-JVS(6855)*X(2182)-JVS(6856)*X(2233)-JVS(6857)*X(3778)-JVS(6858)*X(5252)-JVS(6859)*X(5256))& - &/(JVS(6854)) - X(1691) = (X(1691)-JVS(6849)*X(1887)-JVS(6850)*X(4242)-JVS(6851)*X(5250)-JVS(6852)*X(5252)-JVS(6853)*X(5256))& - &/(JVS(6848)) - X(1690) = (X(1690)-JVS(6845)*X(4584)-JVS(6846)*X(5250))/(JVS(6844)) - X(1689) = (X(1689)-JVS(6839)*X(4987)-JVS(6840)*X(5250)-JVS(6841)*X(5252)-JVS(6842)*X(5255)-JVS(6843)*X(5256))& - &/(JVS(6838)) - X(1688) = (X(1688)-JVS(6834)*X(5238)-JVS(6835)*X(5250))/(JVS(6833)) - X(1687) = (X(1687)-JVS(6831)*X(4761)-JVS(6832)*X(5250))/(JVS(6830)) - X(1686) = (X(1686)-JVS(6828)*X(5229)-JVS(6829)*X(5250))/(JVS(6827)) - X(1685) = (X(1685)-JVS(6825)*X(5173)-JVS(6826)*X(5250))/(JVS(6824)) - X(1684) = (X(1684)-JVS(6818)*X(3550)-JVS(6819)*X(3628)-JVS(6820)*X(5134)-JVS(6821)*X(5252)-JVS(6822)*X(5256))& - &/(JVS(6817)) - X(1683) = (X(1683)-JVS(6815)*X(4589)-JVS(6816)*X(5250))/(JVS(6814)) - X(1682) = (X(1682)-JVS(6812)*X(5002)-JVS(6813)*X(5250))/(JVS(6811)) - X(1681) = (X(1681)-JVS(6809)*X(4347)-JVS(6810)*X(5250))/(JVS(6808)) - X(1680) = (X(1680)-JVS(6803)*X(3725)-JVS(6804)*X(5250)-JVS(6805)*X(5252)-JVS(6806)*X(5255)-JVS(6807)*X(5256))& - &/(JVS(6802)) - X(1679) = (X(1679)-JVS(6795)*X(2306)-JVS(6796)*X(2456)-JVS(6797)*X(4995)-JVS(6798)*X(5252)-JVS(6799)*X(5256))& - &/(JVS(6794)) - X(1678) = (X(1678)-JVS(6792)*X(4136)-JVS(6793)*X(5250))/(JVS(6791)) - X(1677) = (X(1677)-JVS(6786)*X(2426)-JVS(6787)*X(3948)-JVS(6788)*X(5250)-JVS(6789)*X(5252)-JVS(6790)*X(5256))& - &/(JVS(6785)) - X(1676) = (X(1676)-JVS(6782)*X(4987)-JVS(6783)*X(5250))/(JVS(6781)) - X(1675) = (X(1675)-JVS(6776)*X(3752)-JVS(6777)*X(5250)-JVS(6778)*X(5252)-JVS(6779)*X(5255)-JVS(6780)*X(5256))& - &/(JVS(6775)) - X(1674) = (X(1674)-JVS(6771)*X(4355)-JVS(6772)*X(5250))/(JVS(6770)) - X(1673) = (X(1673)-JVS(6768)*X(5081)-JVS(6769)*X(5250))/(JVS(6767)) - X(1672) = (X(1672)-JVS(6765)*X(3799)-JVS(6766)*X(5250))/(JVS(6764)) - X(1671) = (X(1671)-JVS(6762)*X(4780)-JVS(6763)*X(5250))/(JVS(6761)) - X(1670) = (X(1670)-JVS(6759)*X(4889)-JVS(6760)*X(5250))/(JVS(6758)) - X(1669) = (X(1669)-JVS(6756)*X(3828)-JVS(6757)*X(5250))/(JVS(6755)) - X(1668) = (X(1668)-JVS(6753)*X(5028)-JVS(6754)*X(5250))/(JVS(6752)) - X(1667) = (X(1667)-JVS(6747)*X(2519)-JVS(6748)*X(2785)-JVS(6749)*X(3893)-JVS(6750)*X(5252)-JVS(6751)*X(5256))& - &/(JVS(6746)) - X(1666) = (X(1666)-JVS(6744)*X(3814)-JVS(6745)*X(5250))/(JVS(6743)) - X(1665) = (X(1665)-JVS(6741)*X(4992)-JVS(6742)*X(5250))/(JVS(6740)) - X(1664) = (X(1664)-JVS(6738)*X(3796)-JVS(6739)*X(5250))/(JVS(6737)) - X(1663) = (X(1663)-JVS(6732)*X(2513)-JVS(6733)*X(3038)-JVS(6734)*X(3854)-JVS(6735)*X(5252)-JVS(6736)*X(5256))& - &/(JVS(6731)) - X(1662) = (X(1662)-JVS(6726)*X(2126)-JVS(6727)*X(2427)-JVS(6728)*X(5145)-JVS(6729)*X(5252)-JVS(6730)*X(5256))& - &/(JVS(6725)) - X(1661) = (X(1661)-JVS(6720)*X(4113)-JVS(6721)*X(5118)-JVS(6722)*X(5168)-JVS(6723)*X(5252)-JVS(6724)*X(5256))& - &/(JVS(6719)) - X(1660) = (X(1660)-JVS(6714)*X(2136)-JVS(6715)*X(3613)-JVS(6716)*X(4442)-JVS(6717)*X(5250)-JVS(6718)*X(5255))& - &/(JVS(6713)) - X(1659) = (X(1659)-JVS(6709)*X(4911)-JVS(6710)*X(5250))/(JVS(6708)) - X(1658) = (X(1658)-JVS(6706)*X(4126)-JVS(6707)*X(5250))/(JVS(6705)) - X(1657) = (X(1657)-JVS(6702)*X(4043)-JVS(6703)*X(5250)-JVS(6704)*X(5252))/(JVS(6701)) - X(1656) = (X(1656)-JVS(6696)*X(1657)-JVS(6697)*X(2781)-JVS(6698)*X(4043)-JVS(6699)*X(5250)-JVS(6700)*X(5255))& - &/(JVS(6695)) - X(1655) = (X(1655)-JVS(6691)*X(4885)-JVS(6692)*X(5250))/(JVS(6690)) - X(1654) = (X(1654)-JVS(6685)*X(2244)-JVS(6686)*X(3944)-JVS(6687)*X(5250)-JVS(6688)*X(5252)-JVS(6689)*X(5256))& - &/(JVS(6684)) - X(1653) = (X(1653)-JVS(6681)*X(3944)-JVS(6682)*X(5250))/(JVS(6680)) - X(1652) = (X(1652)-JVS(6675)*X(4459)-JVS(6676)*X(5250)-JVS(6677)*X(5252)-JVS(6678)*X(5255)-JVS(6679)*X(5256))& - &/(JVS(6674)) - X(1651) = (X(1651)-JVS(6670)*X(3485)-JVS(6671)*X(5250))/(JVS(6669)) - X(1650) = (X(1650)-JVS(6664)*X(2129)-JVS(6665)*X(2940)-JVS(6666)*X(4827)-JVS(6667)*X(5252)-JVS(6668)*X(5256))& - &/(JVS(6663)) - X(1649) = (X(1649)-JVS(6660)*X(3722)-JVS(6661)*X(5250)-JVS(6662)*X(5252))/(JVS(6659)) - X(1648) = (X(1648)-JVS(6654)*X(1649)-JVS(6655)*X(2829)-JVS(6656)*X(3722)-JVS(6657)*X(5250)-JVS(6658)*X(5255))& - &/(JVS(6653)) - X(1647) = (X(1647)-JVS(6649)*X(3663)-JVS(6650)*X(5250))/(JVS(6648)) - X(1646) = (X(1646)-JVS(6646)*X(4169)-JVS(6647)*X(5250))/(JVS(6645)) - X(1645) = (X(1645)-JVS(6640)*X(3385)-JVS(6641)*X(4038)-JVS(6642)*X(5252)-JVS(6643)*X(5253)-JVS(6644)*X(5256))& - &/(JVS(6639)) - X(1644) = (X(1644)-JVS(6637)*X(4732)-JVS(6638)*X(5250))/(JVS(6636)) - X(1643) = (X(1643)-JVS(6631)*X(1731)-JVS(6632)*X(2017)-JVS(6633)*X(3338)-JVS(6634)*X(4150)-JVS(6635)*X(5250))& - &/(JVS(6630)) - X(1642) = (X(1642)-JVS(6628)*X(5049)-JVS(6629)*X(5258))/(JVS(6627)) - X(1641) = (X(1641)-JVS(6625)*X(5238)-JVS(6626)*X(5250))/(JVS(6624)) - X(1640) = (X(1640)-JVS(6619)*X(1873)-JVS(6620)*X(4897)-JVS(6621)*X(5250)-JVS(6622)*X(5252)-JVS(6623)*X(5256))& - &/(JVS(6618)) - X(1639) = (X(1639)-JVS(6615)*X(3601)-JVS(6616)*X(5250))/(JVS(6614)) - X(1638) = (X(1638)-JVS(6609)*X(2893)-JVS(6610)*X(3418)-JVS(6611)*X(4852)-JVS(6612)*X(5252)-JVS(6613)*X(5256))& - &/(JVS(6608)) - X(1637) = (X(1637)-JVS(6606)*X(3948)-JVS(6607)*X(5250))/(JVS(6605)) - X(1636) = (X(1636)-JVS(6603)*X(4675)-JVS(6604)*X(5250))/(JVS(6602)) - X(1635) = (X(1635)-JVS(6600)*X(5238)-JVS(6601)*X(5250))/(JVS(6599)) - X(1634) = (X(1634)-JVS(6594)*X(2044)-JVS(6595)*X(3394)-JVS(6596)*X(5228)-JVS(6597)*X(5252)-JVS(6598)*X(5256))& - &/(JVS(6593)) - X(1633) = (X(1633)-JVS(6591)*X(4802)-JVS(6592)*X(5250))/(JVS(6590)) - X(1632) = (X(1632)-JVS(6588)*X(4811)-JVS(6589)*X(5250))/(JVS(6587)) - X(1631) = (X(1631)-JVS(6582)*X(2386)-JVS(6583)*X(4236)-JVS(6584)*X(5250)-JVS(6585)*X(5252)-JVS(6586)*X(5256))& - &/(JVS(6581)) - X(1630) = (X(1630)-JVS(6578)*X(4236)-JVS(6579)*X(5250))/(JVS(6577)) - X(1629) = (X(1629)-JVS(6574)*X(4088)-JVS(6575)*X(5250)-JVS(6576)*X(5252))/(JVS(6573)) - X(1628) = (X(1628)-JVS(6568)*X(1629)-JVS(6569)*X(2648)-JVS(6570)*X(4088)-JVS(6571)*X(5250)-JVS(6572)*X(5255))& - &/(JVS(6567)) - X(1627) = (X(1627)-JVS(6560)*X(2633)-JVS(6561)*X(2713)-JVS(6562)*X(3859)-JVS(6563)*X(5252)-JVS(6564)*X(5256))& - &/(JVS(6559)) - X(1626) = (X(1626)-JVS(6557)*X(4159)-JVS(6558)*X(5250))/(JVS(6556)) - X(1625) = (X(1625)-JVS(6554)*X(3625)-JVS(6555)*X(5250))/(JVS(6553)) - X(1624) = (X(1624)-JVS(6548)*X(4989)-JVS(6549)*X(5250)-JVS(6550)*X(5252)-JVS(6551)*X(5255)-JVS(6552)*X(5256))& - &/(JVS(6547)) - X(1623) = (X(1623)-JVS(6543)*X(4683)-JVS(6544)*X(5250))/(JVS(6542)) - X(1622) = (X(1622)-JVS(6537)*X(4480)-JVS(6538)*X(5250)-JVS(6539)*X(5252)-JVS(6540)*X(5255)-JVS(6541)*X(5256))& - &/(JVS(6536)) - X(1621) = (X(1621)-JVS(6532)*X(4804)-JVS(6533)*X(5250))/(JVS(6531)) - X(1620) = (X(1620)-JVS(6526)*X(4734)-JVS(6527)*X(5250)-JVS(6528)*X(5252)-JVS(6529)*X(5255)-JVS(6530)*X(5256))& - &/(JVS(6525)) - X(1619) = (X(1619)-JVS(6521)*X(4542)-JVS(6522)*X(5250))/(JVS(6520)) - X(1618) = (X(1618)-JVS(6518)*X(4418)-JVS(6519)*X(5250))/(JVS(6517)) - X(1617) = (X(1617)-JVS(6512)*X(5044)-JVS(6513)*X(5250)-JVS(6514)*X(5252)-JVS(6515)*X(5255)-JVS(6516)*X(5256))& - &/(JVS(6511)) - X(1616) = (X(1616)-JVS(6504)*X(2761)-JVS(6505)*X(2871)-JVS(6506)*X(3885)-JVS(6507)*X(5252)-JVS(6508)*X(5256))& - &/(JVS(6503)) - X(1615) = (X(1615)-JVS(6501)*X(4135)-JVS(6502)*X(5250))/(JVS(6500)) - X(1614) = (X(1614)-JVS(6495)*X(1801)-JVS(6496)*X(2524)-JVS(6497)*X(4385)-JVS(6498)*X(5252)-JVS(6499)*X(5256))& - &/(JVS(6494)) - X(1613) = (X(1613)-JVS(6492)*X(3813)-JVS(6493)*X(5250))/(JVS(6491)) - X(1612) = (X(1612)-JVS(6489)*X(4746)-JVS(6490)*X(5250))/(JVS(6488)) - X(1611) = (X(1611)-JVS(6486)*X(4754)-JVS(6487)*X(5250))/(JVS(6485)) - X(1610) = (X(1610)-JVS(6482)*X(1836)-JVS(6483)*X(4483)-JVS(6484)*X(5250))/(JVS(6481)) - X(1609) = (X(1609)-JVS(6478)*X(4483)-JVS(6479)*X(5250))/(JVS(6477)) - X(1608) = (X(1608)-JVS(6472)*X(4910)-JVS(6473)*X(5250)-JVS(6474)*X(5252)-JVS(6475)*X(5255)-JVS(6476)*X(5256))& - &/(JVS(6471)) - X(1607) = (X(1607)-JVS(6464)*X(4697)-JVS(6465)*X(5250)-JVS(6466)*X(5252)-JVS(6467)*X(5255)-JVS(6468)*X(5256))& - &/(JVS(6463)) - X(1606) = (X(1606)-JVS(6456)*X(3695)-JVS(6457)*X(5250)-JVS(6458)*X(5252)-JVS(6459)*X(5255)-JVS(6460)*X(5256))& - &/(JVS(6455)) - X(1605) = (X(1605)-JVS(6448)*X(4953)-JVS(6449)*X(5250)-JVS(6450)*X(5252)-JVS(6451)*X(5255)-JVS(6452)*X(5256))& - &/(JVS(6447)) - X(1604) = (X(1604)-JVS(6440)*X(2296)-JVS(6441)*X(3398)-JVS(6442)*X(3852)-JVS(6443)*X(5250)-JVS(6444)*X(5255))& - &/(JVS(6439)) - X(1603) = (X(1603)-JVS(6435)*X(4066)-JVS(6436)*X(5250))/(JVS(6434)) - X(1602) = (X(1602)-JVS(6432)*X(4861)-JVS(6433)*X(5250))/(JVS(6431)) - X(1601) = (X(1601)-JVS(6429)*X(4365)-JVS(6430)*X(5250))/(JVS(6428)) - X(1600) = (X(1600)-JVS(6426)*X(4935)-JVS(6427)*X(5250))/(JVS(6425)) - X(1599) = (X(1599)-JVS(6423)*X(4356)-JVS(6424)*X(5250))/(JVS(6422)) - X(1598) = (X(1598)-JVS(6420)*X(4667)-JVS(6421)*X(5250))/(JVS(6419)) - X(1597) = (X(1597)-JVS(6414)*X(2764)-JVS(6415)*X(2976)-JVS(6416)*X(4612)-JVS(6417)*X(5252)-JVS(6418)*X(5256))& - &/(JVS(6413)) - X(1596) = (X(1596)-JVS(6411)*X(4876)-JVS(6412)*X(5250))/(JVS(6410)) - X(1595) = (X(1595)-JVS(6405)*X(3035)-JVS(6406)*X(3409)-JVS(6407)*X(4858)-JVS(6408)*X(5252)-JVS(6409)*X(5256))& - &/(JVS(6404)) - X(1594) = (X(1594)-JVS(6402)*X(3631)-JVS(6403)*X(5250))/(JVS(6401)) - X(1593) = (X(1593)-JVS(6396)*X(2664)-JVS(6397)*X(2810)-JVS(6398)*X(4614)-JVS(6399)*X(5252)-JVS(6400)*X(5256))& - &/(JVS(6395)) - X(1592) = (X(1592)-JVS(6390)*X(2715)-JVS(6391)*X(3328)-JVS(6392)*X(5098)-JVS(6393)*X(5252)-JVS(6394)*X(5256))& - &/(JVS(6389)) - X(1591) = (X(1591)-JVS(6386)*X(3764)-JVS(6387)*X(5250)-JVS(6388)*X(5252))/(JVS(6385)) - X(1590) = (X(1590)-JVS(6380)*X(1591)-JVS(6381)*X(2613)-JVS(6382)*X(3764)-JVS(6383)*X(5250)-JVS(6384)*X(5255))& - &/(JVS(6379)) - X(1589) = (X(1589)-JVS(6375)*X(3641)-JVS(6376)*X(5250))/(JVS(6374)) - X(1588) = (X(1588)-JVS(6372)*X(4432)-JVS(6373)*X(5250))/(JVS(6371)) - X(1587) = (X(1587)-JVS(6369)*X(4594)-JVS(6370)*X(5250))/(JVS(6368)) - X(1586) = (X(1586)-JVS(6366)*X(4145)-JVS(6367)*X(5250))/(JVS(6365)) - X(1585) = (X(1585)-JVS(6363)*X(4148)-JVS(6364)*X(5250))/(JVS(6362)) - X(1584) = (X(1584)-JVS(6360)*X(4311)-JVS(6361)*X(5250))/(JVS(6359)) - X(1583) = (X(1583)-JVS(6354)*X(1584)-JVS(6355)*X(1968)-JVS(6356)*X(4311)-JVS(6357)*X(5252)-JVS(6358)*X(5256))& - &/(JVS(6353)) - X(1582) = (X(1582)-JVS(6351)*X(4698)-JVS(6352)*X(5250))/(JVS(6350)) - X(1581) = (X(1581)-JVS(6345)*X(1911)-JVS(6346)*X(1915)-JVS(6347)*X(3863)-JVS(6348)*X(3867)-JVS(6349)*X(5250))& - &/(JVS(6344)) - X(1580) = (X(1580)-JVS(6341)*X(5250)-JVS(6342)*X(5256))/(JVS(6340)) - X(1579) = (X(1579)-JVS(6335)*X(4142)-JVS(6336)*X(5250)-JVS(6337)*X(5252)-JVS(6338)*X(5255)-JVS(6339)*X(5256))& - &/(JVS(6334)) - X(1578) = (X(1578)-JVS(6330)*X(4674)-JVS(6331)*X(5250))/(JVS(6329)) - X(1577) = (X(1577)-JVS(6327)*X(4901)-JVS(6328)*X(5250))/(JVS(6326)) - X(1576) = (X(1576)-JVS(6324)*X(4813)-JVS(6325)*X(5250))/(JVS(6323)) - X(1575) = (X(1575)-JVS(6321)*X(3552)-JVS(6322)*X(5250))/(JVS(6320)) - X(1574) = (X(1574)-JVS(6315)*X(2774)-JVS(6316)*X(3077)-JVS(6317)*X(5053)-JVS(6318)*X(5252)-JVS(6319)*X(5256))& - &/(JVS(6314)) - X(1573) = (X(1573)-JVS(6312)*X(5250)-JVS(6313)*X(5256))/(JVS(6311)) - X(1572) = (X(1572)-JVS(6305)*X(4092)-JVS(6306)*X(5250)-JVS(6307)*X(5252)-JVS(6308)*X(5255)-JVS(6309)*X(5256))& - &/(JVS(6304)) - X(1571) = (X(1571)-JVS(6300)*X(4369)-JVS(6301)*X(5250))/(JVS(6299)) - X(1570) = (X(1570)-JVS(6297)*X(4358)-JVS(6298)*X(5250))/(JVS(6296)) - X(1569) = (X(1569)-JVS(6294)*X(5249)-JVS(6295)*X(5258))/(JVS(6293)) - X(1568) = (X(1568)-JVS(6288)*X(2235)-JVS(6289)*X(2261)-JVS(6290)*X(4411)-JVS(6291)*X(5252)-JVS(6292)*X(5256))& - &/(JVS(6287)) - X(1567) = (X(1567)-JVS(6285)*X(3665)-JVS(6286)*X(5250))/(JVS(6284)) - X(1566) = (X(1566)-JVS(6282)*X(4446)-JVS(6283)*X(5250))/(JVS(6281)) - X(1565) = (X(1565)-JVS(6276)*X(2023)-JVS(6277)*X(2058)-JVS(6278)*X(3921)-JVS(6279)*X(3936)-JVS(6280)*X(5250))& - &/(JVS(6275)) - X(1564) = (X(1564)-JVS(6269)*X(2543)-JVS(6270)*X(2653)-JVS(6271)*X(3869)-JVS(6272)*X(5252)-JVS(6273)*X(5256))& - &/(JVS(6268)) - X(1563) = (X(1563)-JVS(6263)*X(2835)-JVS(6264)*X(3046)-JVS(6265)*X(3961)-JVS(6266)*X(5252)-JVS(6267)*X(5256))& - &/(JVS(6262)) - X(1562) = (X(1562)-JVS(6260)*X(4817)-JVS(6261)*X(5250))/(JVS(6259)) - X(1561) = (X(1561)-JVS(6257)*X(4242)-JVS(6258)*X(5250))/(JVS(6256)) - X(1560) = (X(1560)-JVS(6254)*X(4897)-JVS(6255)*X(5250))/(JVS(6253)) - X(1559) = (X(1559)-JVS(6248)*X(1992)-JVS(6249)*X(2218)-JVS(6250)*X(3667)-JVS(6251)*X(5252)-JVS(6252)*X(5256))& - &/(JVS(6247)) - X(1558) = (X(1558)-JVS(6245)*X(4976)-JVS(6246)*X(5250))/(JVS(6244)) - X(1557) = (X(1557)-JVS(6242)*X(4967)-JVS(6243)*X(5250))/(JVS(6241)) - X(1556) = (X(1556)-JVS(6236)*X(3291)-JVS(6237)*X(4105)-JVS(6238)*X(5250)-JVS(6239)*X(5252)-JVS(6240)*X(5256))& - &/(JVS(6235)) - X(1555) = (X(1555)-JVS(6232)*X(3791)-JVS(6233)*X(5250))/(JVS(6231)) - X(1554) = (X(1554)-JVS(6229)*X(3825)-JVS(6230)*X(5250))/(JVS(6228)) - X(1553) = (X(1553)-JVS(6223)*X(2672)-JVS(6224)*X(2753)-JVS(6225)*X(4127)-JVS(6226)*X(5252)-JVS(6227)*X(5256))& - &/(JVS(6222)) - X(1552) = (X(1552)-JVS(6217)*X(1907)-JVS(6218)*X(2419)-JVS(6219)*X(4058)-JVS(6220)*X(5252)-JVS(6221)*X(5256))& - &/(JVS(6216)) - X(1551) = (X(1551)-JVS(6213)*X(3686)-JVS(6214)*X(5250)-JVS(6215)*X(5252))/(JVS(6212)) - X(1550) = (X(1550)-JVS(6207)*X(1551)-JVS(6208)*X(3011)-JVS(6209)*X(3686)-JVS(6210)*X(5250)-JVS(6211)*X(5255))& - &/(JVS(6206)) - X(1549) = (X(1549)-JVS(6202)*X(3820)-JVS(6203)*X(5250))/(JVS(6201)) - X(1548) = (X(1548)-JVS(6199)*X(4566)-JVS(6200)*X(5250))/(JVS(6198)) - X(1547) = (X(1547)-JVS(6195)*X(5090)-JVS(6196)*X(5250)-JVS(6197)*X(5255))/(JVS(6194)) - X(1546) = (X(1546)-JVS(6191)*X(4442)-JVS(6192)*X(5250)-JVS(6193)*X(5255))/(JVS(6190)) - X(1545) = (X(1545)-JVS(6187)*X(5136)-JVS(6188)*X(5250)-JVS(6189)*X(5255))/(JVS(6186)) - X(1544) = (X(1544)-JVS(6183)*X(3874)-JVS(6184)*X(5250)-JVS(6185)*X(5255))/(JVS(6182)) - X(1543) = (X(1543)-JVS(6179)*X(4709)-JVS(6180)*X(5250)-JVS(6181)*X(5255))/(JVS(6178)) - X(1542) = (X(1542)-JVS(6175)*X(3521)-JVS(6176)*X(5250)-JVS(6177)*X(5255))/(JVS(6174)) - X(1541) = (X(1541)-JVS(6171)*X(4867)-JVS(6172)*X(5250)-JVS(6173)*X(5255))/(JVS(6170)) - X(1540) = (X(1540)-JVS(6167)*X(4484)-JVS(6168)*X(5250)-JVS(6169)*X(5255))/(JVS(6166)) - X(1539) = (X(1539)-JVS(6163)*X(4065)-JVS(6164)*X(5250)-JVS(6165)*X(5255))/(JVS(6162)) - X(1538) = (X(1538)-JVS(6159)*X(4346)-JVS(6160)*X(5250)-JVS(6161)*X(5255))/(JVS(6158)) - X(1537) = (X(1537)-JVS(6155)*X(4139)-JVS(6156)*X(5250)-JVS(6157)*X(5255))/(JVS(6154)) - X(1536) = (X(1536)-JVS(6151)*X(3952)-JVS(6152)*X(5250)-JVS(6153)*X(5255))/(JVS(6150)) - X(1535) = (X(1535)-JVS(6147)*X(4074)-JVS(6148)*X(5250)-JVS(6149)*X(5255))/(JVS(6146)) - X(1534) = (X(1534)-JVS(6143)*X(3704)-JVS(6144)*X(5250)-JVS(6145)*X(5255))/(JVS(6142)) - X(1533) = (X(1533)-JVS(6139)*X(4529)-JVS(6140)*X(5250)-JVS(6141)*X(5255))/(JVS(6138)) - X(1532) = (X(1532)-JVS(6135)*X(4193)-JVS(6136)*X(5250)-JVS(6137)*X(5255))/(JVS(6134)) - X(1531) = (X(1531)-JVS(6131)*X(4785)-JVS(6132)*X(5250)-JVS(6133)*X(5252))/(JVS(6130)) - X(1530) = (X(1530)-JVS(6127)*X(3788)-JVS(6128)*X(5250)-JVS(6129)*X(5255))/(JVS(6126)) - X(1529) = (X(1529)-JVS(6123)*X(4578)-JVS(6124)*X(5250)-JVS(6125)*X(5252))/(JVS(6122)) - X(1528) = (X(1528)-JVS(6119)*X(3750)-JVS(6120)*X(5250)-JVS(6121)*X(5255))/(JVS(6118)) - X(1527) = (X(1527)-JVS(6115)*X(4117)-JVS(6116)*X(5250)-JVS(6117)*X(5255))/(JVS(6114)) - X(1526) = (X(1526)-JVS(6111)*X(4715)-JVS(6112)*X(5250)-JVS(6113)*X(5255))/(JVS(6110)) - X(1525) = (X(1525)-JVS(6107)*X(3527)-JVS(6108)*X(5250)-JVS(6109)*X(5255))/(JVS(6106)) - X(1524) = (X(1524)-JVS(6103)*X(4252)-JVS(6104)*X(5250)-JVS(6105)*X(5255))/(JVS(6102)) - X(1523) = (X(1523)-JVS(6099)*X(4940)-JVS(6100)*X(5250)-JVS(6101)*X(5255))/(JVS(6098)) - X(1522) = (X(1522)-JVS(6095)*X(4447)-JVS(6096)*X(5250)-JVS(6097)*X(5255))/(JVS(6094)) - X(1521) = (X(1521)-JVS(6091)*X(3870)-JVS(6092)*X(3961)-JVS(6093)*X(5250))/(JVS(6090)) - X(1520) = (X(1520)-JVS(6087)*X(3863)-JVS(6088)*X(3867)-JVS(6089)*X(5250))/(JVS(6086)) - X(1519) = (X(1519)-JVS(6083)*X(4196)-JVS(6084)*X(5250)-JVS(6085)*X(5255))/(JVS(6082)) - X(1518) = (X(1518)-JVS(6079)*X(4658)-JVS(6080)*X(5250)-JVS(6081)*X(5255))/(JVS(6078)) - X(1517) = (X(1517)-JVS(6075)*X(3876)-JVS(6076)*X(5250)-JVS(6077)*X(5255))/(JVS(6074)) - X(1516) = (X(1516)-JVS(6071)*X(4634)-JVS(6072)*X(5250)-JVS(6073)*X(5255))/(JVS(6070)) - X(1515) = (X(1515)-JVS(6067)*X(3964)-JVS(6068)*X(5250)-JVS(6069)*X(5255))/(JVS(6066)) - X(1514) = (X(1514)-JVS(6063)*X(3889)-JVS(6064)*X(5250)-JVS(6065)*X(5255))/(JVS(6062)) - X(1513) = (X(1513)-JVS(6059)*X(4807)-JVS(6060)*X(5250)-JVS(6061)*X(5255))/(JVS(6058)) - X(1512) = (X(1512)-JVS(6055)*X(4304)-JVS(6056)*X(5250)-JVS(6057)*X(5255))/(JVS(6054)) - X(1511) = (X(1511)-JVS(6051)*X(5044)-JVS(6052)*X(5250)-JVS(6053)*X(5255))/(JVS(6050)) - X(1510) = (X(1510)-JVS(6047)*X(4701)-JVS(6048)*X(5250)-JVS(6049)*X(5255))/(JVS(6046)) - X(1509) = (X(1509)-JVS(6043)*X(5052)-JVS(6044)*X(5250)-JVS(6045)*X(5255))/(JVS(6042)) - X(1508) = (X(1508)-JVS(6039)*X(4271)-JVS(6040)*X(5250)-JVS(6041)*X(5255))/(JVS(6038)) - X(1507) = (X(1507)-JVS(6035)*X(4839)-JVS(6036)*X(5250)-JVS(6037)*X(5255))/(JVS(6034)) - X(1506) = (X(1506)-JVS(6031)*X(3967)-JVS(6032)*X(5250)-JVS(6033)*X(5255))/(JVS(6030)) - X(1505) = (X(1505)-JVS(6027)*X(3882)-JVS(6028)*X(5250)-JVS(6029)*X(5255))/(JVS(6026)) - X(1504) = (X(1504)-JVS(6023)*X(4205)-JVS(6024)*X(5250)-JVS(6025)*X(5255))/(JVS(6022)) - X(1503) = (X(1503)-JVS(6019)*X(3511)-JVS(6020)*X(5250)-JVS(6021)*X(5255))/(JVS(6018)) - X(1502) = (X(1502)-JVS(6015)*X(3928)-JVS(6016)*X(5250)-JVS(6017)*X(5255))/(JVS(6014)) - X(1501) = (X(1501)-JVS(6011)*X(4586)-JVS(6012)*X(5250)-JVS(6013)*X(5255))/(JVS(6010)) - X(1500) = (X(1500)-JVS(6007)*X(5125)-JVS(6008)*X(5250)-JVS(6009)*X(5255))/(JVS(6006)) - X(1499) = (X(1499)-JVS(6003)*X(4357)-JVS(6004)*X(5250)-JVS(6005)*X(5255))/(JVS(6002)) - X(1498) = (X(1498)-JVS(5999)*X(4627)-JVS(6000)*X(5250)-JVS(6001)*X(5255))/(JVS(5998)) - X(1497) = (X(1497)-JVS(5995)*X(3769)-JVS(5996)*X(5250)-JVS(5997)*X(5255))/(JVS(5994)) - X(1496) = (X(1496)-JVS(5991)*X(4189)-JVS(5992)*X(5250)-JVS(5993)*X(5255))/(JVS(5990)) - X(1495) = (X(1495)-JVS(5987)*X(4118)-JVS(5988)*X(5250)-JVS(5989)*X(5255))/(JVS(5986)) - X(1494) = (X(1494)-JVS(5983)*X(4739)-JVS(5984)*X(5250)-JVS(5985)*X(5255))/(JVS(5982)) - X(1493) = (X(1493)-JVS(5979)*X(2312)-JVS(5980)*X(4315)-JVS(5981)*X(5250))/(JVS(5978)) - X(1492) = (X(1492)-JVS(5974)*X(4789)-JVS(5975)*X(5250)-JVS(5976)*X(5255))/(JVS(5973)) - X(1491) = (X(1491)-JVS(5970)*X(5144)-JVS(5971)*X(5250)-JVS(5972)*X(5255))/(JVS(5969)) - X(1490) = (X(1490)-JVS(5966)*X(5120)-JVS(5967)*X(5250)-JVS(5968)*X(5255))/(JVS(5965)) - X(1489) = (X(1489)-JVS(5962)*X(4910)-JVS(5963)*X(5250)-JVS(5964)*X(5255))/(JVS(5961)) - X(1488) = (X(1488)-JVS(5958)*X(5056)-JVS(5959)*X(5250)-JVS(5960)*X(5255))/(JVS(5957)) - X(1487) = (X(1487)-JVS(5954)*X(3907)-JVS(5955)*X(5250)-JVS(5956)*X(5255))/(JVS(5953)) - X(1486) = (X(1486)-JVS(5950)*X(4133)-JVS(5951)*X(5250)-JVS(5952)*X(5255))/(JVS(5949)) - X(1485) = (X(1485)-JVS(5946)*X(4572)-JVS(5947)*X(5250)-JVS(5948)*X(5255))/(JVS(5945)) - X(1484) = (X(1484)-JVS(5942)*X(3509)-JVS(5943)*X(5250)-JVS(5944)*X(5255))/(JVS(5941)) - X(1483) = (X(1483)-JVS(5938)*X(5059)-JVS(5939)*X(5250)-JVS(5940)*X(5255))/(JVS(5937)) - X(1482) = (X(1482)-JVS(5932)*X(4778)-JVS(5933)*X(5250)-JVS(5934)*X(5252))/(JVS(5931)) - X(1481) = (X(1481)-JVS(5928)*X(4633)-JVS(5929)*X(5250)-JVS(5930)*X(5255))/(JVS(5927)) - X(1480) = (X(1480)-JVS(5924)*X(4863)-JVS(5925)*X(5250)-JVS(5926)*X(5255))/(JVS(5923)) - X(1479) = (X(1479)-JVS(5920)*X(5131)-JVS(5921)*X(5250)-JVS(5922)*X(5255))/(JVS(5919)) - X(1478) = (X(1478)-JVS(5916)*X(4360)-JVS(5917)*X(5250)-JVS(5918)*X(5255))/(JVS(5915)) - X(1477) = (X(1477)-JVS(5912)*X(4523)-JVS(5913)*X(5250)-JVS(5914)*X(5255))/(JVS(5911)) - X(1476) = (X(1476)-JVS(5908)*X(4020)-JVS(5909)*X(5250)-JVS(5910)*X(5255))/(JVS(5907)) - X(1475) = (X(1475)-JVS(5904)*X(4962)-JVS(5905)*X(5250)-JVS(5906)*X(5255))/(JVS(5903)) - X(1474) = (X(1474)-JVS(5900)*X(4686)-JVS(5901)*X(5250)-JVS(5902)*X(5255))/(JVS(5899)) - X(1473) = (X(1473)-JVS(5896)*X(4132)-JVS(5897)*X(5250)-JVS(5898)*X(5255))/(JVS(5895)) - X(1472) = (X(1472)-JVS(5892)*X(4506)-JVS(5893)*X(5250)-JVS(5894)*X(5255))/(JVS(5891)) - X(1471) = (X(1471)-JVS(5888)*X(5179)-JVS(5889)*X(5250)-JVS(5890)*X(5255))/(JVS(5887)) - X(1470) = (X(1470)-JVS(5884)*X(3982)-JVS(5885)*X(5250)-JVS(5886)*X(5255))/(JVS(5883)) - X(1469) = (X(1469)-JVS(5880)*X(3894)-JVS(5881)*X(5250)-JVS(5882)*X(5255))/(JVS(5879)) - X(1468) = (X(1468)-JVS(5876)*X(3994)-JVS(5877)*X(5250)-JVS(5878)*X(5255))/(JVS(5875)) - X(1467) = (X(1467)-JVS(5872)*X(4539)-JVS(5873)*X(5250)-JVS(5874)*X(5255))/(JVS(5871)) - X(1466) = (X(1466)-JVS(5868)*X(5106)-JVS(5869)*X(5250)-JVS(5870)*X(5255))/(JVS(5867)) - X(1465) = (X(1465)-JVS(5864)*X(4807)-JVS(5865)*X(5250)-JVS(5866)*X(5255))/(JVS(5863)) - X(1464) = (X(1464)-JVS(5860)*X(4426)-JVS(5861)*X(5250)-JVS(5862)*X(5255))/(JVS(5859)) - X(1463) = (X(1463)-JVS(5856)*X(3908)-JVS(5857)*X(5250)-JVS(5858)*X(5255))/(JVS(5855)) - X(1462) = (X(1462)-JVS(5852)*X(5029)-JVS(5853)*X(5250)-JVS(5854)*X(5255))/(JVS(5851)) - X(1461) = (X(1461)-JVS(5848)*X(4456)-JVS(5849)*X(5250)-JVS(5850)*X(5255))/(JVS(5847)) - X(1460) = (X(1460)-JVS(5844)*X(4770)-JVS(5845)*X(5250)-JVS(5846)*X(5255))/(JVS(5843)) - X(1459) = (X(1459)-JVS(5840)*X(4192)-JVS(5841)*X(5250)-JVS(5842)*X(5255))/(JVS(5839)) - X(1458) = (X(1458)-JVS(5836)*X(3525)-JVS(5837)*X(5250)-JVS(5838)*X(5255))/(JVS(5835)) - X(1457) = (X(1457)-JVS(5832)*X(4460)-JVS(5833)*X(5250)-JVS(5834)*X(5255))/(JVS(5831)) - X(1456) = (X(1456)-JVS(5828)*X(4591)-JVS(5829)*X(5250)-JVS(5830)*X(5255))/(JVS(5827)) - X(1455) = (X(1455)-JVS(5824)*X(4726)-JVS(5825)*X(5250)-JVS(5826)*X(5255))/(JVS(5823)) - X(1454) = (X(1454)-JVS(5820)*X(4738)-JVS(5821)*X(5250)-JVS(5822)*X(5255))/(JVS(5819)) - X(1453) = (X(1453)-JVS(5816)*X(4072)-JVS(5817)*X(5250)-JVS(5818)*X(5255))/(JVS(5815)) - X(1452) = (X(1452)-JVS(5812)*X(4040)-JVS(5813)*X(5250)-JVS(5814)*X(5255))/(JVS(5811)) - X(1451) = (X(1451)-JVS(5808)*X(4028)-JVS(5809)*X(5250)-JVS(5810)*X(5255))/(JVS(5807)) - X(1450) = (X(1450)-JVS(5804)*X(4064)-JVS(5805)*X(5250)-JVS(5806)*X(5255))/(JVS(5803)) - X(1449) = (X(1449)-JVS(5800)*X(4219)-JVS(5801)*X(5250)-JVS(5802)*X(5255))/(JVS(5799)) - X(1448) = (X(1448)-JVS(5796)*X(4623)-JVS(5797)*X(5250)-JVS(5798)*X(5255))/(JVS(5795)) - X(1447) = (X(1447)-JVS(5792)*X(4891)-JVS(5793)*X(5250)-JVS(5794)*X(5255))/(JVS(5791)) - X(1446) = (X(1446)-JVS(5788)*X(4713)-JVS(5789)*X(5250)-JVS(5790)*X(5255))/(JVS(5787)) - X(1445) = (X(1445)-JVS(5784)*X(4087)-JVS(5785)*X(5250)-JVS(5786)*X(5255))/(JVS(5783)) - X(1444) = (X(1444)-JVS(5780)*X(4363)-JVS(5781)*X(5250)-JVS(5782)*X(5255))/(JVS(5779)) - X(1443) = (X(1443)-JVS(5776)*X(3695)-JVS(5777)*X(5250)-JVS(5778)*X(5255))/(JVS(5775)) - X(1442) = (X(1442)-JVS(5772)*X(4664)-JVS(5773)*X(5250)-JVS(5774)*X(5255))/(JVS(5771)) - X(1441) = (X(1441)-JVS(5768)*X(4573)-JVS(5769)*X(5250)-JVS(5770)*X(5255))/(JVS(5767)) - X(1440) = (X(1440)-JVS(5764)*X(4866)-JVS(5765)*X(5250)-JVS(5766)*X(5255))/(JVS(5763)) - X(1439) = (X(1439)-JVS(5760)*X(4342)-JVS(5761)*X(5250)-JVS(5762)*X(5255))/(JVS(5759)) - X(1438) = (X(1438)-JVS(5756)*X(3939)-JVS(5757)*X(5250)-JVS(5758)*X(5255))/(JVS(5755)) - X(1437) = (X(1437)-JVS(5752)*X(4830)-JVS(5753)*X(5250)-JVS(5754)*X(5255))/(JVS(5751)) - X(1436) = (X(1436)-JVS(5748)*X(4862)-JVS(5749)*X(5250)-JVS(5750)*X(5255))/(JVS(5747)) - X(1435) = (X(1435)-JVS(5744)*X(3782)-JVS(5745)*X(5250)-JVS(5746)*X(5255))/(JVS(5743)) - X(1434) = (X(1434)-JVS(5740)*X(4399)-JVS(5741)*X(5250)-JVS(5742)*X(5255))/(JVS(5739)) - X(1433) = (X(1433)-JVS(5736)*X(4816)-JVS(5737)*X(5250)-JVS(5738)*X(5255))/(JVS(5735)) - X(1432) = (X(1432)-JVS(5732)*X(4680)-JVS(5733)*X(5250)-JVS(5734)*X(5255))/(JVS(5731)) - X(1431) = (X(1431)-JVS(5728)*X(4068)-JVS(5729)*X(5250)-JVS(5730)*X(5255))/(JVS(5727)) - X(1430) = (X(1430)-JVS(5724)*X(3979)-JVS(5725)*X(5250)-JVS(5726)*X(5255))/(JVS(5723)) - X(1429) = (X(1429)-JVS(5720)*X(4049)-JVS(5721)*X(5250)-JVS(5722)*X(5255))/(JVS(5719)) - X(1428) = (X(1428)-JVS(5716)*X(4900)-JVS(5717)*X(5250)-JVS(5718)*X(5255))/(JVS(5715)) - X(1427) = (X(1427)-JVS(5712)*X(4067)-JVS(5713)*X(5250)-JVS(5714)*X(5255))/(JVS(5711)) - X(1426) = (X(1426)-JVS(5708)*X(4101)-JVS(5709)*X(5250)-JVS(5710)*X(5255))/(JVS(5707)) - X(1425) = (X(1425)-JVS(5704)*X(5167)-JVS(5705)*X(5250)-JVS(5706)*X(5255))/(JVS(5703)) - X(1424) = (X(1424)-JVS(5700)*X(4849)-JVS(5701)*X(5250)-JVS(5702)*X(5255))/(JVS(5699)) - X(1423) = (X(1423)-JVS(5696)*X(4232)-JVS(5697)*X(5250)-JVS(5698)*X(5255))/(JVS(5695)) - X(1422) = (X(1422)-JVS(5692)*X(4837)-JVS(5693)*X(5250)-JVS(5694)*X(5255))/(JVS(5691)) - X(1421) = (X(1421)-JVS(5688)*X(4002)-JVS(5689)*X(5250)-JVS(5690)*X(5255))/(JVS(5687)) - X(1420) = (X(1420)-JVS(5684)*X(4298)-JVS(5685)*X(5250)-JVS(5686)*X(5255))/(JVS(5683)) - X(1419) = (X(1419)-JVS(5680)*X(4075)-JVS(5681)*X(5250)-JVS(5682)*X(5255))/(JVS(5679)) - X(1418) = (X(1418)-JVS(5676)*X(4443)-JVS(5677)*X(5250)-JVS(5678)*X(5255))/(JVS(5675)) - X(1417) = (X(1417)-JVS(5672)*X(4649)-JVS(5673)*X(5250)-JVS(5674)*X(5255))/(JVS(5671)) - X(1416) = (X(1416)-JVS(5668)*X(3781)-JVS(5669)*X(5250)-JVS(5670)*X(5255))/(JVS(5667)) - X(1415) = (X(1415)-JVS(5664)*X(4718)-JVS(5665)*X(5250)-JVS(5666)*X(5255))/(JVS(5663)) - X(1414) = (X(1414)-JVS(5660)*X(4597)-JVS(5661)*X(5250)-JVS(5662)*X(5255))/(JVS(5659)) - X(1413) = (X(1413)-JVS(5656)*X(3722)-JVS(5657)*X(5250)-JVS(5658)*X(5255))/(JVS(5655)) - X(1412) = (X(1412)-JVS(5652)*X(3753)-JVS(5653)*X(5250)-JVS(5654)*X(5255))/(JVS(5651)) - X(1411) = (X(1411)-JVS(5648)*X(5130)-JVS(5649)*X(5250)-JVS(5650)*X(5255))/(JVS(5647)) - X(1410) = (X(1410)-JVS(5644)*X(3766)-JVS(5645)*X(5250)-JVS(5646)*X(5255))/(JVS(5643)) - X(1409) = (X(1409)-JVS(5640)*X(4654)-JVS(5641)*X(5250)-JVS(5642)*X(5255))/(JVS(5639)) - X(1408) = (X(1408)-JVS(5636)*X(4653)-JVS(5637)*X(5250)-JVS(5638)*X(5255))/(JVS(5635)) - X(1407) = (X(1407)-JVS(5632)*X(4989)-JVS(5633)*X(5250)-JVS(5634)*X(5255))/(JVS(5631)) - X(1406) = (X(1406)-JVS(5628)*X(4871)-JVS(5629)*X(5250)-JVS(5630)*X(5255))/(JVS(5627)) - X(1405) = (X(1405)-JVS(5624)*X(4132)-JVS(5625)*X(5250)-JVS(5626)*X(5255))/(JVS(5623)) - X(1404) = (X(1404)-JVS(5620)*X(4846)-JVS(5621)*X(5250)-JVS(5622)*X(5255))/(JVS(5619)) - X(1403) = (X(1403)-JVS(5616)*X(4692)-JVS(5617)*X(5250)-JVS(5618)*X(5255))/(JVS(5615)) - X(1402) = (X(1402)-JVS(5612)*X(4485)-JVS(5613)*X(5250)-JVS(5614)*X(5255))/(JVS(5611)) - X(1401) = (X(1401)-JVS(5608)*X(3751)-JVS(5609)*X(5250)-JVS(5610)*X(5255))/(JVS(5607)) - X(1400) = (X(1400)-JVS(5604)*X(4814)-JVS(5605)*X(5250)-JVS(5606)*X(5252))/(JVS(5603)) - X(1399) = (X(1399)-JVS(5600)*X(4312)-JVS(5601)*X(5250)-JVS(5602)*X(5255))/(JVS(5599)) - X(1398) = (X(1398)-JVS(5596)*X(4238)-JVS(5597)*X(5250)-JVS(5598)*X(5255))/(JVS(5595)) - X(1397) = (X(1397)-JVS(5592)*X(4042)-JVS(5593)*X(5250)-JVS(5594)*X(5255))/(JVS(5591)) - X(1396) = (X(1396)-JVS(5588)*X(3650)-JVS(5589)*X(5250)-JVS(5590)*X(5255))/(JVS(5587)) - X(1395) = (X(1395)-JVS(5584)*X(4372)-JVS(5585)*X(5250)-JVS(5586)*X(5255))/(JVS(5583)) - X(1394) = (X(1394)-JVS(5580)*X(5017)-JVS(5581)*X(5250)-JVS(5582)*X(5255))/(JVS(5579)) - X(1393) = (X(1393)-JVS(5576)*X(4182)-JVS(5577)*X(5250)-JVS(5578)*X(5255))/(JVS(5575)) - X(1392) = (X(1392)-JVS(5572)*X(4751)-JVS(5573)*X(5250)-JVS(5574)*X(5255))/(JVS(5571)) - X(1391) = (X(1391)-JVS(5568)*X(4143)-JVS(5569)*X(5250)-JVS(5570)*X(5255))/(JVS(5567)) - X(1390) = (X(1390)-JVS(5564)*X(4166)-JVS(5565)*X(5250)-JVS(5566)*X(5255))/(JVS(5563)) - X(1389) = (X(1389)-JVS(5560)*X(4198)-JVS(5561)*X(5250)-JVS(5562)*X(5255))/(JVS(5559)) - X(1388) = (X(1388)-JVS(5556)*X(3772)-JVS(5557)*X(5250)-JVS(5558)*X(5255))/(JVS(5555)) - X(1387) = (X(1387)-JVS(5552)*X(3691)-JVS(5553)*X(5250)-JVS(5554)*X(5255))/(JVS(5551)) - X(1386) = (X(1386)-JVS(5548)*X(4582)-JVS(5549)*X(5135)-JVS(5550)*X(5250))/(JVS(5547)) - X(1385) = (X(1385)-JVS(5544)*X(3492)-JVS(5545)*X(5250)-JVS(5546)*X(5255))/(JVS(5543)) - X(1384) = (X(1384)-JVS(5540)*X(3872)-JVS(5541)*X(3927)-JVS(5542)*X(5250))/(JVS(5539)) - X(1383) = (X(1383)-JVS(5536)*X(4898)-JVS(5537)*X(5250)-JVS(5538)*X(5255))/(JVS(5535)) - X(1382) = (X(1382)-JVS(5532)*X(3688)-JVS(5533)*X(5250)-JVS(5534)*X(5255))/(JVS(5531)) - X(1381) = (X(1381)-JVS(5528)*X(3974)-JVS(5529)*X(5250)-JVS(5530)*X(5255))/(JVS(5527)) - X(1380) = (X(1380)-JVS(5524)*X(5101)-JVS(5525)*X(5250)-JVS(5526)*X(5255))/(JVS(5523)) - X(1379) = (X(1379)-JVS(5520)*X(4200)-JVS(5521)*X(5250)-JVS(5522)*X(5255))/(JVS(5519)) - X(1378) = (X(1378)-JVS(5516)*X(4680)-JVS(5517)*X(5250)-JVS(5518)*X(5255))/(JVS(5515)) - X(1377) = (X(1377)-JVS(5512)*X(3987)-JVS(5513)*X(5250)-JVS(5514)*X(5255))/(JVS(5511)) - X(1376) = (X(1376)-JVS(5508)*X(4458)-JVS(5509)*X(5250)-JVS(5510)*X(5255))/(JVS(5507)) - X(1375) = (X(1375)-JVS(5504)*X(5108)-JVS(5505)*X(5250)-JVS(5506)*X(5255))/(JVS(5503)) - X(1374) = (X(1374)-JVS(5500)*X(3768)-JVS(5501)*X(5250)-JVS(5502)*X(5255))/(JVS(5499)) - X(1373) = (X(1373)-JVS(5496)*X(5039)-JVS(5497)*X(5250)-JVS(5498)*X(5255))/(JVS(5495)) - X(1372) = (X(1372)-JVS(5492)*X(1373)-JVS(5493)*X(5039)-JVS(5494)*X(5250))/(JVS(5491)) - X(1371) = (X(1371)-JVS(5487)*X(3850)-JVS(5488)*X(5250)-JVS(5489)*X(5255))/(JVS(5486)) - X(1370) = (X(1370)-JVS(5483)*X(4654)-JVS(5484)*X(5250)-JVS(5485)*X(5255))/(JVS(5482)) - X(1369) = (X(1369)-JVS(5479)*X(5060)-JVS(5480)*X(5129)-JVS(5481)*X(5250))/(JVS(5478)) - X(1368) = (X(1368)-JVS(5475)*X(4198)-JVS(5476)*X(5250)-JVS(5477)*X(5253))/(JVS(5474)) - X(1367) = (X(1367)-JVS(5471)*X(4119)-JVS(5472)*X(5250)-JVS(5473)*X(5255))/(JVS(5470)) - X(1366) = (X(1366)-JVS(5467)*X(4039)-JVS(5468)*X(5250)-JVS(5469)*X(5255))/(JVS(5466)) - X(1365) = (X(1365)-JVS(5463)*X(3658)-JVS(5464)*X(5250)-JVS(5465)*X(5255))/(JVS(5462)) - X(1364) = (X(1364)-JVS(5459)*X(4337)-JVS(5460)*X(5250)-JVS(5461)*X(5255))/(JVS(5458)) - X(1363) = (X(1363)-JVS(5455)*X(4470)-JVS(5456)*X(5250)-JVS(5457)*X(5255))/(JVS(5454)) - X(1362) = (X(1362)-JVS(5451)*X(3806)-JVS(5452)*X(5250)-JVS(5453)*X(5255))/(JVS(5450)) - X(1361) = (X(1361)-JVS(5447)*X(4023)-JVS(5448)*X(5250)-JVS(5449)*X(5255))/(JVS(5446)) - X(1360) = (X(1360)-JVS(5443)*X(4191)-JVS(5444)*X(5250)-JVS(5445)*X(5255))/(JVS(5442)) - X(1359) = (X(1359)-JVS(5439)*X(3983)-JVS(5440)*X(5250)-JVS(5441)*X(5255))/(JVS(5438)) - X(1358) = (X(1358)-JVS(5435)*X(4314)-JVS(5436)*X(5250)-JVS(5437)*X(5255))/(JVS(5434)) - X(1357) = (X(1357)-JVS(5431)*X(4482)-JVS(5432)*X(5250)-JVS(5433)*X(5255))/(JVS(5430)) - X(1356) = (X(1356)-JVS(5427)*X(4822)-JVS(5428)*X(5250)-JVS(5429)*X(5255))/(JVS(5426)) - X(1355) = (X(1355)-JVS(5423)*X(4375)-JVS(5424)*X(5250)-JVS(5425)*X(5255))/(JVS(5422)) - X(1354) = (X(1354)-JVS(5419)*X(4892)-JVS(5420)*X(5250)-JVS(5421)*X(5255))/(JVS(5418)) - X(1353) = (X(1353)-JVS(5415)*X(3955)-JVS(5416)*X(5250)-JVS(5417)*X(5255))/(JVS(5414)) - X(1352) = (X(1352)-JVS(5411)*X(3670)-JVS(5412)*X(5250)-JVS(5413)*X(5255))/(JVS(5410)) - X(1351) = (X(1351)-JVS(5407)*X(4987)-JVS(5408)*X(5250)-JVS(5409)*X(5255))/(JVS(5406)) - X(1350) = (X(1350)-JVS(5403)*X(5073)-JVS(5404)*X(5250)-JVS(5405)*X(5255))/(JVS(5402)) - X(1349) = (X(1349)-JVS(5399)*X(3690)-JVS(5400)*X(5250)-JVS(5401)*X(5255))/(JVS(5398)) - X(1348) = (X(1348)-JVS(5395)*X(4659)-JVS(5396)*X(5250)-JVS(5397)*X(5255))/(JVS(5394)) - X(1347) = (X(1347)-JVS(5391)*X(5054)-JVS(5392)*X(5250)-JVS(5393)*X(5255))/(JVS(5390)) - X(1346) = (X(1346)-JVS(5387)*X(4758)-JVS(5388)*X(5252)-JVS(5389)*X(5256))/(JVS(5386)) - X(1345) = (X(1345)-JVS(5383)*X(3975)-JVS(5384)*X(5250)-JVS(5385)*X(5255))/(JVS(5382)) - X(1344) = (X(1344)-JVS(5379)*X(4854)-JVS(5380)*X(5250)-JVS(5381)*X(5255))/(JVS(5378)) - X(1343) = (X(1343)-JVS(5375)*X(4833)-JVS(5376)*X(5250)-JVS(5377)*X(5255))/(JVS(5374)) - X(1342) = (X(1342)-JVS(5371)*X(4498)-JVS(5372)*X(5250)-JVS(5373)*X(5255))/(JVS(5370)) - X(1341) = (X(1341)-JVS(5367)*X(3776)-JVS(5368)*X(5250)-JVS(5369)*X(5255))/(JVS(5366)) - X(1340) = (X(1340)-JVS(5363)*X(3989)-JVS(5364)*X(5250)-JVS(5365)*X(5255))/(JVS(5362)) - X(1339) = (X(1339)-JVS(5359)*X(3743)-JVS(5360)*X(5250)-JVS(5361)*X(5255))/(JVS(5358)) - X(1338) = (X(1338)-JVS(5355)*X(4429)-JVS(5356)*X(5250)-JVS(5357)*X(5255))/(JVS(5354)) - X(1337) = (X(1337)-JVS(5351)*X(4646)-JVS(5352)*X(5250)-JVS(5353)*X(5255))/(JVS(5350)) - X(1336) = (X(1336)-JVS(5347)*X(4652)-JVS(5348)*X(5250)-JVS(5349)*X(5255))/(JVS(5346)) - X(1335) = (X(1335)-JVS(5343)*X(3746)-JVS(5344)*X(5250)-JVS(5345)*X(5255))/(JVS(5342)) - X(1334) = (X(1334)-JVS(5339)*X(3920)-JVS(5340)*X(5250)-JVS(5341)*X(5252))/(JVS(5338)) - X(1333) = (X(1333)-JVS(5335)*X(3951)-JVS(5336)*X(5250)-JVS(5337)*X(5255))/(JVS(5334)) - X(1332) = (X(1332)-JVS(5331)*X(4944)-JVS(5332)*X(5250)-JVS(5333)*X(5255))/(JVS(5330)) - X(1331) = (X(1331)-JVS(5327)*X(4748)-JVS(5328)*X(5250)-JVS(5329)*X(5255))/(JVS(5326)) - X(1330) = (X(1330)-JVS(5323)*X(4685)-JVS(5324)*X(5250)-JVS(5325)*X(5255))/(JVS(5322)) - X(1329) = (X(1329)-JVS(5319)*X(4237)-JVS(5320)*X(5250)-JVS(5321)*X(5255))/(JVS(5318)) - X(1328) = (X(1328)-JVS(5315)*X(3841)-JVS(5316)*X(5250)-JVS(5317)*X(5255))/(JVS(5314)) - X(1327) = (X(1327)-JVS(5311)*X(4517)-JVS(5312)*X(5250)-JVS(5313)*X(5255))/(JVS(5310)) - X(1326) = (X(1326)-JVS(5307)*X(4722)-JVS(5308)*X(5250)-JVS(5309)*X(5255))/(JVS(5306)) - X(1325) = (X(1325)-JVS(5303)*X(4953)-JVS(5304)*X(5250)-JVS(5305)*X(5255))/(JVS(5302)) - X(1324) = (X(1324)-JVS(5299)*X(3741)-JVS(5300)*X(5250)-JVS(5301)*X(5255))/(JVS(5298)) - X(1323) = (X(1323)-JVS(5295)*X(4704)-JVS(5296)*X(5250)-JVS(5297)*X(5255))/(JVS(5294)) - X(1322) = (X(1322)-JVS(5291)*X(4217)-JVS(5292)*X(5250)-JVS(5293)*X(5255))/(JVS(5290)) - X(1321) = (X(1321)-JVS(5287)*X(4348)-JVS(5288)*X(5250)-JVS(5289)*X(5252))/(JVS(5286)) - X(1320) = (X(1320)-JVS(5283)*X(5004)-JVS(5284)*X(5250)-JVS(5285)*X(5255))/(JVS(5282)) - X(1319) = (X(1319)-JVS(5279)*X(5214)-JVS(5280)*X(5250)-JVS(5281)*X(5255))/(JVS(5278)) - X(1318) = (X(1318)-JVS(5275)*X(4781)-JVS(5276)*X(5250)-JVS(5277)*X(5255))/(JVS(5274)) - X(1317) = (X(1317)-JVS(5271)*X(5006)-JVS(5272)*X(5250)-JVS(5273)*X(5255))/(JVS(5270)) - X(1316) = (X(1316)-JVS(5267)*X(4626)-JVS(5268)*X(5250)-JVS(5269)*X(5255))/(JVS(5266)) - X(1315) = (X(1315)-JVS(5263)*X(3807)-JVS(5264)*X(5250)-JVS(5265)*X(5255))/(JVS(5262)) - X(1314) = (X(1314)-JVS(5259)*X(3883)-JVS(5260)*X(5250)-JVS(5261)*X(5255))/(JVS(5258)) - X(1313) = (X(1313)-JVS(5255)*X(5081)-JVS(5256)*X(5250)-JVS(5257)*X(5255))/(JVS(5254)) - X(1312) = (X(1312)-JVS(5251)*X(4350)-JVS(5252)*X(5250)-JVS(5253)*X(5255))/(JVS(5250)) - X(1311) = (X(1311)-JVS(5247)*X(4092)-JVS(5248)*X(5250)-JVS(5249)*X(5252))/(JVS(5246)) - X(1310) = (X(1310)-JVS(5243)*X(4055)-JVS(5244)*X(5250)-JVS(5245)*X(5255))/(JVS(5242)) - X(1309) = (X(1309)-JVS(5239)*X(4511)-JVS(5240)*X(5250)-JVS(5241)*X(5255))/(JVS(5238)) - X(1308) = (X(1308)-JVS(5235)*X(4021)-JVS(5236)*X(5250)-JVS(5237)*X(5255))/(JVS(5234)) - X(1307) = (X(1307)-JVS(5231)*X(3823)-JVS(5232)*X(5250)-JVS(5233)*X(5255))/(JVS(5230)) - X(1306) = (X(1306)-JVS(5227)*X(3865)-JVS(5228)*X(5250)-JVS(5229)*X(5255))/(JVS(5226)) - X(1305) = (X(1305)-JVS(5223)*X(4609)-JVS(5224)*X(5250)-JVS(5225)*X(5255))/(JVS(5222)) - X(1304) = (X(1304)-JVS(5219)*X(3731)-JVS(5220)*X(5250)-JVS(5221)*X(5255))/(JVS(5218)) - X(1303) = (X(1303)-JVS(5215)*X(4063)-JVS(5216)*X(5250)-JVS(5217)*X(5255))/(JVS(5214)) - X(1302) = (X(1302)-JVS(5211)*X(4579)-JVS(5212)*X(5250)-JVS(5213)*X(5255))/(JVS(5210)) - X(1301) = (X(1301)-JVS(5207)*X(3937)-JVS(5208)*X(5250)-JVS(5209)*X(5255))/(JVS(5206)) - X(1300) = (X(1300)-JVS(5203)*X(4809)-JVS(5204)*X(5250)-JVS(5205)*X(5255))/(JVS(5202)) - X(1299) = (X(1299)-JVS(5199)*X(4685)-JVS(5200)*X(5250)-JVS(5201)*X(5255))/(JVS(5198)) - X(1298) = (X(1298)-JVS(5195)*X(5186)-JVS(5196)*X(5250)-JVS(5197)*X(5255))/(JVS(5194)) - X(1297) = (X(1297)-JVS(5191)*X(4146)-JVS(5192)*X(4185)-JVS(5193)*X(5250))/(JVS(5190)) - X(1296) = (X(1296)-JVS(5187)*X(4892)-JVS(5188)*X(5250)-JVS(5189)*X(5255))/(JVS(5186)) - X(1295) = (X(1295)-JVS(5183)*X(3902)-JVS(5184)*X(5250)-JVS(5185)*X(5255))/(JVS(5182)) - X(1294) = (X(1294)-JVS(5179)*X(4057)-JVS(5180)*X(5250)-JVS(5181)*X(5255))/(JVS(5178)) - X(1293) = (X(1293)-JVS(5175)*X(4031)-JVS(5176)*X(5250)-JVS(5177)*X(5255))/(JVS(5174)) - X(1292) = (X(1292)-JVS(5171)*X(4170)-JVS(5172)*X(5250)-JVS(5173)*X(5255))/(JVS(5170)) - X(1291) = (X(1291)-JVS(5167)*X(4665)-JVS(5168)*X(5250)-JVS(5169)*X(5255))/(JVS(5166)) - X(1290) = (X(1290)-JVS(5163)*X(4760)-JVS(5164)*X(5250)-JVS(5165)*X(5255))/(JVS(5162)) - X(1289) = (X(1289)-JVS(5159)*X(5020)-JVS(5160)*X(5250)-JVS(5161)*X(5255))/(JVS(5158)) - X(1288) = (X(1288)-JVS(5155)*X(4112)-JVS(5156)*X(5250)-JVS(5157)*X(5255))/(JVS(5154)) - X(1287) = (X(1287)-JVS(5151)*X(3523)-JVS(5152)*X(5250)-JVS(5153)*X(5255))/(JVS(5150)) - X(1286) = (X(1286)-JVS(5147)*X(4088)-JVS(5148)*X(5250)-JVS(5149)*X(5255))/(JVS(5146)) - X(1285) = (X(1285)-JVS(5143)*X(4255)-JVS(5144)*X(5250)-JVS(5145)*X(5255))/(JVS(5142)) - X(1284) = (X(1284)-JVS(5139)*X(3720)-JVS(5140)*X(5250)-JVS(5141)*X(5252))/(JVS(5138)) - X(1283) = (X(1283)-JVS(5135)*X(4338)-JVS(5136)*X(5250)-JVS(5137)*X(5255))/(JVS(5134)) - X(1282) = (X(1282)-JVS(5131)*X(3674)-JVS(5132)*X(5250)-JVS(5133)*X(5255))/(JVS(5130)) - X(1281) = (X(1281)-JVS(5127)*X(4334)-JVS(5128)*X(5250)-JVS(5129)*X(5255))/(JVS(5126)) - X(1280) = (X(1280)-JVS(5123)*X(5132)-JVS(5124)*X(5224)-JVS(5125)*X(5250))/(JVS(5122)) - X(1279) = (X(1279)-JVS(5119)*X(4015)-JVS(5120)*X(5250)-JVS(5121)*X(5255))/(JVS(5118)) - X(1278) = (X(1278)-JVS(5115)*X(4204)-JVS(5116)*X(5250)-JVS(5117)*X(5255))/(JVS(5114)) - X(1277) = (X(1277)-JVS(5111)*X(5021)-JVS(5112)*X(5250)-JVS(5113)*X(5255))/(JVS(5110)) - X(1276) = (X(1276)-JVS(5107)*X(4003)-JVS(5108)*X(5250)-JVS(5109)*X(5255))/(JVS(5106)) - X(1275) = (X(1275)-JVS(5103)*X(4806)-JVS(5104)*X(5250)-JVS(5105)*X(5255))/(JVS(5102)) - X(1274) = (X(1274)-JVS(5099)*X(4656)-JVS(5100)*X(5250)-JVS(5101)*X(5255))/(JVS(5098)) - X(1273) = (X(1273)-JVS(5095)*X(4276)-JVS(5096)*X(5250)-JVS(5097)*X(5255))/(JVS(5094)) - X(1272) = (X(1272)-JVS(5091)*X(3950)-JVS(5092)*X(5250)-JVS(5093)*X(5255))/(JVS(5090)) - X(1271) = (X(1271)-JVS(5087)*X(4532)-JVS(5088)*X(5250)-JVS(5089)*X(5255))/(JVS(5086)) - X(1270) = (X(1270)-JVS(5083)*X(3819)-JVS(5084)*X(5250)-JVS(5085)*X(5255))/(JVS(5082)) - X(1269) = (X(1269)-JVS(5079)*X(3448)-JVS(5080)*X(4330)-JVS(5081)*X(5250))/(JVS(5078)) - X(1268) = (X(1268)-JVS(5075)*X(4435)-JVS(5076)*X(5250)-JVS(5077)*X(5255))/(JVS(5074)) - X(1267) = (X(1267)-JVS(5071)*X(4766)-JVS(5072)*X(5250)-JVS(5073)*X(5255))/(JVS(5070)) - X(1266) = (X(1266)-JVS(5067)*X(3981)-JVS(5068)*X(5250)-JVS(5069)*X(5255))/(JVS(5066)) - X(1265) = (X(1265)-JVS(5063)*X(4844)-JVS(5064)*X(5250)-JVS(5065)*X(5255))/(JVS(5062)) - X(1264) = (X(1264)-JVS(5059)*X(3715)-JVS(5060)*X(5250)-JVS(5061)*X(5255))/(JVS(5058)) - X(1263) = (X(1263)-JVS(5055)*X(4157)-JVS(5056)*X(5250)-JVS(5057)*X(5255))/(JVS(5054)) - X(1262) = (X(1262)-JVS(5051)*X(4880)-JVS(5052)*X(5250)-JVS(5053)*X(5255))/(JVS(5050)) - X(1261) = (X(1261)-JVS(5047)*X(4433)-JVS(5048)*X(5250)-JVS(5049)*X(5255))/(JVS(5046)) - X(1260) = (X(1260)-JVS(5043)*X(5196)-JVS(5044)*X(5250)-JVS(5045)*X(5255))/(JVS(5042)) - X(1259) = (X(1259)-JVS(5039)*X(5112)-JVS(5040)*X(5250)-JVS(5041)*X(5255))/(JVS(5038)) - X(1258) = (X(1258)-JVS(5035)*X(3634)-JVS(5036)*X(5250)-JVS(5037)*X(5255))/(JVS(5034)) - X(1257) = (X(1257)-JVS(5031)*X(1890)-JVS(5032)*X(4226)-JVS(5033)*X(5250))/(JVS(5030)) - X(1256) = (X(1256)-JVS(5026)*X(4628)-JVS(5027)*X(5250)-JVS(5028)*X(5255))/(JVS(5025)) - X(1255) = (X(1255)-JVS(5022)*X(4303)-JVS(5023)*X(5250)-JVS(5024)*X(5255))/(JVS(5021)) - X(1254) = (X(1254)-JVS(5018)*X(4633)-JVS(5019)*X(5250)-JVS(5020)*X(5255))/(JVS(5017)) - X(1253) = (X(1253)-JVS(5014)*X(4246)-JVS(5015)*X(5250)-JVS(5016)*X(5255))/(JVS(5013)) - X(1252) = (X(1252)-JVS(5010)*X(3725)-JVS(5011)*X(5250)-JVS(5012)*X(5255))/(JVS(5009)) - X(1251) = (X(1251)-JVS(5006)*X(5099)-JVS(5007)*X(5250)-JVS(5008)*X(5255))/(JVS(5005)) - X(1250) = (X(1250)-JVS(5002)*X(4681)-JVS(5003)*X(5250)-JVS(5004)*X(5255))/(JVS(5001)) - X(1249) = (X(1249)-JVS(4998)*X(4548)-JVS(4999)*X(5250)-JVS(5000)*X(5255))/(JVS(4997)) - X(1248) = (X(1248)-JVS(4994)*X(4472)-JVS(4995)*X(5250)-JVS(4996)*X(5255))/(JVS(4993)) - X(1247) = (X(1247)-JVS(4990)*X(4638)-JVS(4991)*X(5250)-JVS(4992)*X(5255))/(JVS(4989)) - X(1246) = (X(1246)-JVS(4986)*X(4617)-JVS(4987)*X(5252)-JVS(4988)*X(5256))/(JVS(4985)) - X(1245) = (X(1245)-JVS(4982)*X(4764)-JVS(4983)*X(5250)-JVS(4984)*X(5255))/(JVS(4981)) - X(1244) = (X(1244)-JVS(4978)*X(4430)-JVS(4979)*X(5250)-JVS(4980)*X(5255))/(JVS(4977)) - X(1243) = (X(1243)-JVS(4974)*X(4033)-JVS(4975)*X(5250)-JVS(4976)*X(5255))/(JVS(4973)) - X(1242) = (X(1242)-JVS(4970)*X(5033)-JVS(4971)*X(5250)-JVS(4972)*X(5255))/(JVS(4969)) - X(1241) = (X(1241)-JVS(4966)*X(4091)-JVS(4967)*X(5250)-JVS(4968)*X(5255))/(JVS(4965)) - X(1240) = (X(1240)-JVS(4962)*X(3866)-JVS(4963)*X(5252)-JVS(4964)*X(5256))/(JVS(4961)) - X(1239) = (X(1239)-JVS(4958)*X(3637)-JVS(4959)*X(5250)-JVS(4960)*X(5255))/(JVS(4957)) - X(1238) = (X(1238)-JVS(4954)*X(4812)-JVS(4955)*X(5250)-JVS(4956)*X(5255))/(JVS(4953)) - X(1237) = (X(1237)-JVS(4950)*X(4197)-JVS(4951)*X(5250)-JVS(4952)*X(5255))/(JVS(4949)) - X(1236) = (X(1236)-JVS(4946)*X(4468)-JVS(4947)*X(5250)-JVS(4948)*X(5255))/(JVS(4945)) - X(1235) = (X(1235)-JVS(4942)*X(5181)-JVS(4943)*X(5250)-JVS(4944)*X(5255))/(JVS(4941)) - X(1234) = (X(1234)-JVS(4938)*X(4874)-JVS(4939)*X(5250)-JVS(4940)*X(5255))/(JVS(4937)) - X(1233) = (X(1233)-JVS(4934)*X(4431)-JVS(4935)*X(5250)-JVS(4936)*X(5255))/(JVS(4933)) - X(1232) = (X(1232)-JVS(4930)*X(3539)-JVS(4931)*X(5250)-JVS(4932)*X(5255))/(JVS(4929)) - X(1231) = (X(1231)-JVS(4926)*X(3380)-JVS(4927)*X(3762)-JVS(4928)*X(5250))/(JVS(4925)) - X(1230) = (X(1230)-JVS(4920)*X(4022)-JVS(4921)*X(5250)-JVS(4922)*X(5255))/(JVS(4919)) - X(1229) = (X(1229)-JVS(4916)*X(5075)-JVS(4917)*X(5250)-JVS(4918)*X(5255))/(JVS(4915)) - X(1228) = (X(1228)-JVS(4912)*X(4181)-JVS(4913)*X(5250)-JVS(4914)*X(5255))/(JVS(4911)) - X(1227) = (X(1227)-JVS(4908)*X(4037)-JVS(4909)*X(5250)-JVS(4910)*X(5255))/(JVS(4907)) - X(1226) = (X(1226)-JVS(4904)*X(4450)-JVS(4905)*X(5250)-JVS(4906)*X(5255))/(JVS(4903)) - X(1225) = (X(1225)-JVS(4900)*X(3668)-JVS(4901)*X(5250)-JVS(4902)*X(5255))/(JVS(4899)) - X(1224) = (X(1224)-JVS(4896)*X(4165)-JVS(4897)*X(5250)-JVS(4898)*X(5255))/(JVS(4895)) - X(1223) = (X(1223)-JVS(4892)*X(4434)-JVS(4893)*X(5250)-JVS(4894)*X(5255))/(JVS(4891)) - X(1222) = (X(1222)-JVS(4888)*X(4753)-JVS(4889)*X(5250)-JVS(4890)*X(5255))/(JVS(4887)) - X(1221) = (X(1221)-JVS(4884)*X(4036)-JVS(4885)*X(5250)-JVS(4886)*X(5255))/(JVS(4883)) - X(1220) = (X(1220)-JVS(4880)*X(4578)-JVS(4881)*X(5250)-JVS(4882)*X(5255))/(JVS(4879)) - X(1219) = (X(1219)-JVS(4876)*X(4520)-JVS(4877)*X(5250)-JVS(4878)*X(5255))/(JVS(4875)) - X(1218) = (X(1218)-JVS(4872)*X(3648)-JVS(4873)*X(5250)-JVS(4874)*X(5255))/(JVS(4871)) - X(1217) = (X(1217)-JVS(4868)*X(4318)-JVS(4869)*X(5250)-JVS(4870)*X(5255))/(JVS(4867)) - X(1216) = (X(1216)-JVS(4864)*X(3817)-JVS(4865)*X(5250)-JVS(4866)*X(5252))/(JVS(4863)) - X(1215) = (X(1215)-JVS(4860)*X(4750)-JVS(4861)*X(5250)-JVS(4862)*X(5255))/(JVS(4859)) - X(1214) = (X(1214)-JVS(4856)*X(4580)-JVS(4857)*X(5250)-JVS(4858)*X(5255))/(JVS(4855)) - X(1213) = (X(1213)-JVS(4852)*X(4128)-JVS(4853)*X(5250)-JVS(4854)*X(5255))/(JVS(4851)) - X(1212) = (X(1212)-JVS(4848)*X(3926)-JVS(4849)*X(5250)-JVS(4850)*X(5255))/(JVS(4847)) - X(1211) = (X(1211)-JVS(4844)*X(3811)-JVS(4845)*X(5250)-JVS(4846)*X(5255))/(JVS(4843)) - X(1210) = (X(1210)-JVS(4840)*X(4649)-JVS(4841)*X(5250)-JVS(4842)*X(5255))/(JVS(4839)) - X(1209) = (X(1209)-JVS(4836)*X(4496)-JVS(4837)*X(5250)-JVS(4838)*X(5255))/(JVS(4835)) - X(1208) = (X(1208)-JVS(4832)*X(4222)-JVS(4833)*X(5250)-JVS(4834)*X(5255))/(JVS(4831)) - X(1207) = (X(1207)-JVS(4828)*X(4099)-JVS(4829)*X(5250)-JVS(4830)*X(5255))/(JVS(4827)) - X(1206) = (X(1206)-JVS(4824)*X(4198)-JVS(4825)*X(5250)-JVS(4826)*X(5255))/(JVS(4823)) - X(1205) = (X(1205)-JVS(4820)*X(5236)-JVS(4821)*X(5250)-JVS(4822)*X(5255))/(JVS(4819)) - X(1204) = (X(1204)-JVS(4816)*X(4735)-JVS(4817)*X(5250)-JVS(4818)*X(5255))/(JVS(4815)) - X(1203) = (X(1203)-JVS(4812)*X(3761)-JVS(4813)*X(5250)-JVS(4814)*X(5255))/(JVS(4811)) - X(1202) = (X(1202)-JVS(4808)*X(3784)-JVS(4809)*X(5250)-JVS(4810)*X(5255))/(JVS(4807)) - X(1201) = (X(1201)-JVS(4804)*X(5171)-JVS(4805)*X(5250)-JVS(4806)*X(5255))/(JVS(4803)) - X(1200) = (X(1200)-JVS(4800)*X(3817)-JVS(4801)*X(5250)-JVS(4802)*X(5255))/(JVS(4799)) - X(1199) = (X(1199)-JVS(4796)*X(5245)-JVS(4797)*X(5250)-JVS(4798)*X(5255))/(JVS(4795)) - X(1198) = (X(1198)-JVS(4792)*X(4417)-JVS(4793)*X(5250)-JVS(4794)*X(5255))/(JVS(4791)) - X(1197) = (X(1197)-JVS(4788)*X(4173)-JVS(4789)*X(5250)-JVS(4790)*X(5255))/(JVS(4787)) - X(1196) = (X(1196)-JVS(4784)*X(5088)-JVS(4785)*X(5250)-JVS(4786)*X(5255))/(JVS(4783)) - X(1195) = (X(1195)-JVS(4780)*X(5114)-JVS(4781)*X(5250)-JVS(4782)*X(5255))/(JVS(4779)) - X(1194) = (X(1194)-JVS(4776)*X(4562)-JVS(4777)*X(5043)-JVS(4778)*X(5250))/(JVS(4775)) - X(1193) = (X(1193)-JVS(4772)*X(4836)-JVS(4773)*X(5250)-JVS(4774)*X(5255))/(JVS(4771)) - X(1192) = (X(1192)-JVS(4768)*X(5059)-JVS(4769)*X(5250)-JVS(4770)*X(5255))/(JVS(4767)) - X(1191) = (X(1191)-JVS(4764)*X(4697)-JVS(4765)*X(5250)-JVS(4766)*X(5255))/(JVS(4763)) - X(1190) = (X(1190)-JVS(4760)*X(4225)-JVS(4761)*X(5250)-JVS(4762)*X(5255))/(JVS(4759)) - X(1189) = (X(1189)-JVS(4756)*X(4624)-JVS(4757)*X(5250)-JVS(4758)*X(5255))/(JVS(4755)) - X(1188) = (X(1188)-JVS(4752)*X(4016)-JVS(4753)*X(5250)-JVS(4754)*X(5255))/(JVS(4751)) - X(1187) = (X(1187)-JVS(4748)*X(4317)-JVS(4749)*X(5250)-JVS(4750)*X(5255))/(JVS(4747)) - X(1186) = (X(1186)-JVS(4744)*X(4185)-JVS(4745)*X(5250)-JVS(4746)*X(5255))/(JVS(4743)) - X(1185) = (X(1185)-JVS(4740)*X(4695)-JVS(4741)*X(5250)-JVS(4742)*X(5255))/(JVS(4739)) - X(1184) = (X(1184)-JVS(4736)*X(4208)-JVS(4737)*X(5250)-JVS(4738)*X(5253))/(JVS(4735)) - X(1183) = (X(1183)-JVS(4732)*X(3886)-JVS(4733)*X(5250)-JVS(4734)*X(5255))/(JVS(4731)) - X(1182) = (X(1182)-JVS(4728)*X(4921)-JVS(4729)*X(5250)-JVS(4730)*X(5255))/(JVS(4727)) - X(1181) = (X(1181)-JVS(4724)*X(4098)-JVS(4725)*X(5250)-JVS(4726)*X(5255))/(JVS(4723)) - X(1180) = (X(1180)-JVS(4720)*X(4515)-JVS(4721)*X(5250)-JVS(4722)*X(5255))/(JVS(4719)) - X(1179) = (X(1179)-JVS(4716)*X(3893)-JVS(4717)*X(3932)-JVS(4718)*X(5250))/(JVS(4715)) - X(1178) = (X(1178)-JVS(4712)*X(5041)-JVS(4713)*X(5250)-JVS(4714)*X(5255))/(JVS(4711)) - X(1177) = (X(1177)-JVS(4708)*X(3836)-JVS(4709)*X(5250)-JVS(4710)*X(5255))/(JVS(4707)) - X(1176) = (X(1176)-JVS(4704)*X(4628)-JVS(4705)*X(5250)-JVS(4706)*X(5255))/(JVS(4703)) - X(1175) = (X(1175)-JVS(4700)*X(4846)-JVS(4701)*X(5250)-JVS(4702)*X(5255))/(JVS(4699)) - X(1174) = (X(1174)-JVS(4696)*X(4635)-JVS(4697)*X(5250)-JVS(4698)*X(5255))/(JVS(4695)) - X(1173) = (X(1173)-JVS(4692)*X(4984)-JVS(4693)*X(5250)-JVS(4694)*X(5255))/(JVS(4691)) - X(1172) = (X(1172)-JVS(4688)*X(4111)-JVS(4689)*X(5250)-JVS(4690)*X(5252))/(JVS(4687)) - X(1171) = (X(1171)-JVS(4684)*X(3721)-JVS(4685)*X(5250)-JVS(4686)*X(5255))/(JVS(4683)) - X(1170) = (X(1170)-JVS(4680)*X(3973)-JVS(4681)*X(5250)-JVS(4682)*X(5255))/(JVS(4679)) - X(1169) = (X(1169)-JVS(4676)*X(4464)-JVS(4677)*X(5250)-JVS(4678)*X(5255))/(JVS(4675)) - X(1168) = (X(1168)-JVS(4672)*X(3749)-JVS(4673)*X(5250)-JVS(4674)*X(5255))/(JVS(4671)) - X(1167) = (X(1167)-JVS(4668)*X(4699)-JVS(4669)*X(5250)-JVS(4670)*X(5255))/(JVS(4667)) - X(1166) = (X(1166)-JVS(4664)*X(4285)-JVS(4665)*X(5250)-JVS(4666)*X(5255))/(JVS(4663)) - X(1165) = (X(1165)-JVS(4660)*X(3870)-JVS(4661)*X(5250)-JVS(4662)*X(5255))/(JVS(4659)) - X(1164) = (X(1164)-JVS(4656)*X(3760)-JVS(4657)*X(5250)-JVS(4658)*X(5255))/(JVS(4655)) - X(1163) = (X(1163)-JVS(4652)*X(4485)-JVS(4653)*X(5250)-JVS(4654)*X(5255))/(JVS(4651)) - X(1162) = (X(1162)-JVS(4648)*X(4672)-JVS(4649)*X(5250)-JVS(4650)*X(5255))/(JVS(4647)) - X(1161) = (X(1161)-JVS(4644)*X(4727)-JVS(4645)*X(5250)-JVS(4646)*X(5255))/(JVS(4643)) - X(1160) = (X(1160)-JVS(4640)*X(4610)-JVS(4641)*X(5250)-JVS(4642)*X(5255))/(JVS(4639)) - X(1159) = (X(1159)-JVS(4636)*X(4167)-JVS(4637)*X(5250)-JVS(4638)*X(5255))/(JVS(4635)) - X(1158) = (X(1158)-JVS(4632)*X(4949)-JVS(4633)*X(5250)-JVS(4634)*X(5255))/(JVS(4631)) - X(1157) = (X(1157)-JVS(4628)*X(3491)-JVS(4629)*X(5250)-JVS(4630)*X(5255))/(JVS(4627)) - X(1156) = (X(1156)-JVS(4624)*X(4082)-JVS(4625)*X(5250)-JVS(4626)*X(5255))/(JVS(4623)) - X(1155) = (X(1155)-JVS(4620)*X(4319)-JVS(4621)*X(5250)-JVS(4622)*X(5255))/(JVS(4619)) - X(1154) = (X(1154)-JVS(4616)*X(4525)-JVS(4617)*X(5250)-JVS(4618)*X(5255))/(JVS(4615)) - X(1153) = (X(1153)-JVS(4612)*X(5032)-JVS(4613)*X(5250)-JVS(4614)*X(5255))/(JVS(4611)) - X(1152) = (X(1152)-JVS(4608)*X(4073)-JVS(4609)*X(5250)-JVS(4610)*X(5255))/(JVS(4607)) - X(1151) = (X(1151)-JVS(4604)*X(3872)-JVS(4605)*X(5250)-JVS(4606)*X(5252))/(JVS(4603)) - X(1150) = (X(1150)-JVS(4600)*X(3797)-JVS(4601)*X(5250)-JVS(4602)*X(5255))/(JVS(4599)) - X(1149) = (X(1149)-JVS(4596)*X(3764)-JVS(4597)*X(5250)-JVS(4598)*X(5255))/(JVS(4595)) - X(1148) = (X(1148)-JVS(4592)*X(4287)-JVS(4593)*X(5250)-JVS(4594)*X(5255))/(JVS(4591)) - X(1147) = (X(1147)-JVS(4588)*X(4092)-JVS(4589)*X(5250)-JVS(4590)*X(5255))/(JVS(4587)) - X(1146) = (X(1146)-JVS(4584)*X(4409)-JVS(4585)*X(5250)-JVS(4586)*X(5255))/(JVS(4583)) - X(1145) = (X(1145)-JVS(4580)*X(4903)-JVS(4581)*X(5250)-JVS(4582)*X(5255))/(JVS(4579)) - X(1144) = (X(1144)-JVS(4576)*X(4292)-JVS(4577)*X(5250)-JVS(4578)*X(5255))/(JVS(4575)) - X(1143) = (X(1143)-JVS(4572)*X(4616)-JVS(4573)*X(5250)-JVS(4574)*X(5255))/(JVS(4571)) - X(1142) = (X(1142)-JVS(4568)*X(4374)-JVS(4569)*X(5250)-JVS(4570)*X(5255))/(JVS(4567)) - X(1141) = (X(1141)-JVS(4564)*X(4387)-JVS(4565)*X(5250)-JVS(4566)*X(5255))/(JVS(4563)) - X(1140) = (X(1140)-JVS(4560)*X(4870)-JVS(4561)*X(5150)-JVS(4562)*X(5250))/(JVS(4559)) - X(1139) = (X(1139)-JVS(4556)*X(4142)-JVS(4557)*X(5250)-JVS(4558)*X(5255))/(JVS(4555)) - X(1138) = (X(1138)-JVS(4552)*X(5060)-JVS(4553)*X(5250)-JVS(4554)*X(5255))/(JVS(4551)) - X(1137) = (X(1137)-JVS(4548)*X(4461)-JVS(4549)*X(5250)-JVS(4550)*X(5255))/(JVS(4547)) - X(1136) = (X(1136)-JVS(4544)*X(4716)-JVS(4545)*X(5250)-JVS(4546)*X(5255))/(JVS(4543)) - X(1135) = (X(1135)-JVS(4540)*X(3962)-JVS(4541)*X(5250)-JVS(4542)*X(5255))/(JVS(4539)) - X(1134) = (X(1134)-JVS(4536)*X(5008)-JVS(4537)*X(5250)-JVS(4538)*X(5255))/(JVS(4535)) - X(1133) = (X(1133)-JVS(4532)*X(3396)-JVS(4533)*X(3727)-JVS(4534)*X(5250))/(JVS(4531)) - X(1132) = (X(1132)-JVS(4526)*X(5097)-JVS(4527)*X(5250)-JVS(4528)*X(5255))/(JVS(4525)) - X(1131) = (X(1131)-JVS(4522)*X(3790)-JVS(4523)*X(5250)-JVS(4524)*X(5255))/(JVS(4521)) - X(1130) = (X(1130)-JVS(4518)*X(4459)-JVS(4519)*X(5250)-JVS(4520)*X(5255))/(JVS(4517)) - X(1129) = (X(1129)-JVS(4514)*X(4480)-JVS(4515)*X(5250)-JVS(4516)*X(5255))/(JVS(4513)) - X(1128) = (X(1128)-JVS(4510)*X(5206)-JVS(4511)*X(5250)-JVS(4512)*X(5255))/(JVS(4509)) - X(1127) = (X(1127)-JVS(4506)*X(3728)-JVS(4507)*X(5250)-JVS(4508)*X(5255))/(JVS(4505)) - X(1126) = (X(1126)-JVS(4502)*X(4059)-JVS(4503)*X(5250)-JVS(4504)*X(5255))/(JVS(4501)) - X(1125) = (X(1125)-JVS(4498)*X(4079)-JVS(4499)*X(5250)-JVS(4500)*X(5255))/(JVS(4497)) - X(1124) = (X(1124)-JVS(4494)*X(4473)-JVS(4495)*X(4647)-JVS(4496)*X(5250))/(JVS(4493)) - X(1123) = (X(1123)-JVS(4490)*X(3774)-JVS(4491)*X(5250)-JVS(4492)*X(5255))/(JVS(4489)) - X(1122) = (X(1122)-JVS(4486)*X(4254)-JVS(4487)*X(5250)-JVS(4488)*X(5255))/(JVS(4485)) - X(1121) = (X(1121)-JVS(4482)*X(4607)-JVS(4483)*X(4608)-JVS(4484)*X(5250))/(JVS(4481)) - X(1120) = (X(1120)-JVS(4478)*X(4554)-JVS(4479)*X(4596)-JVS(4480)*X(5250))/(JVS(4477)) - X(1119) = (X(1119)-JVS(4474)*X(3686)-JVS(4475)*X(5250)-JVS(4476)*X(5255))/(JVS(4473)) - X(1118) = (X(1118)-JVS(4470)*X(4425)-JVS(4471)*X(5250)-JVS(4472)*X(5255))/(JVS(4469)) - X(1117) = (X(1117)-JVS(4466)*X(4188)-JVS(4467)*X(5250)-JVS(4468)*X(5255))/(JVS(4465)) - X(1116) = (X(1116)-JVS(4462)*X(4465)-JVS(4463)*X(5250)-JVS(4464)*X(5255))/(JVS(4461)) - X(1115) = (X(1115)-JVS(4458)*X(4270)-JVS(4459)*X(5250)-JVS(4460)*X(5255))/(JVS(4457)) - X(1114) = (X(1114)-JVS(4454)*X(4850)-JVS(4455)*X(5250)-JVS(4456)*X(5255))/(JVS(4453)) - X(1113) = (X(1113)-JVS(4450)*X(1673)-JVS(4451)*X(1777)-JVS(4452)*X(5250))/(JVS(4449)) - X(1112) = (X(1112)-JVS(4446)*X(4971)-JVS(4447)*X(5250)-JVS(4448)*X(5255))/(JVS(4445)) - X(1111) = (X(1111)-JVS(4442)*X(2927)-JVS(4443)*X(4998)-JVS(4444)*X(5250))/(JVS(4441)) - X(1110) = (X(1110)-JVS(4438)*X(4405)-JVS(4439)*X(5250)-JVS(4440)*X(5255))/(JVS(4437)) - X(1109) = (X(1109)-JVS(4434)*X(4986)-JVS(4435)*X(5250)-JVS(4436)*X(5255))/(JVS(4433)) - X(1108) = (X(1108)-JVS(4430)*X(4310)-JVS(4431)*X(5250)-JVS(4432)*X(5255))/(JVS(4429)) - X(1107) = (X(1107)-JVS(4426)*X(5027)-JVS(4427)*X(5250)-JVS(4428)*X(5255))/(JVS(4425)) - X(1106) = (X(1106)-JVS(4422)*X(4380)-JVS(4423)*X(5250)-JVS(4424)*X(5255))/(JVS(4421)) - X(1105) = (X(1105)-JVS(4418)*X(4273)-JVS(4419)*X(5250)-JVS(4420)*X(5255))/(JVS(4417)) - X(1104) = (X(1104)-JVS(4414)*X(4293)-JVS(4415)*X(5250)-JVS(4416)*X(5255))/(JVS(4413)) - X(1103) = (X(1103)-JVS(4410)*X(4575)-JVS(4411)*X(5250)-JVS(4412)*X(5255))/(JVS(4409)) - X(1102) = (X(1102)-JVS(4406)*X(3496)-JVS(4407)*X(5250)-JVS(4408)*X(5255))/(JVS(4405)) - X(1101) = (X(1101)-JVS(4402)*X(4297)-JVS(4403)*X(5250)-JVS(4404)*X(5255))/(JVS(4401)) - X(1100) = (X(1100)-JVS(4398)*X(5137)-JVS(4399)*X(5250)-JVS(4400)*X(5255))/(JVS(4397)) - X(1099) = (X(1099)-JVS(4394)*X(4991)-JVS(4395)*X(5250)-JVS(4396)*X(5255))/(JVS(4393)) - X(1098) = (X(1098)-JVS(4390)*X(4159)-JVS(4391)*X(5250)-JVS(4392)*X(5255))/(JVS(4389)) - X(1097) = (X(1097)-JVS(4386)*X(4915)-JVS(4387)*X(5250)-JVS(4388)*X(5255))/(JVS(4385)) - X(1096) = (X(1096)-JVS(4382)*X(4265)-JVS(4383)*X(5250)-JVS(4384)*X(5255))/(JVS(4381)) - X(1095) = (X(1095)-JVS(4378)*X(4622)-JVS(4379)*X(5250)-JVS(4380)*X(5255))/(JVS(4377)) - X(1094) = (X(1094)-JVS(4374)*X(4410)-JVS(4375)*X(5250)-JVS(4376)*X(5255))/(JVS(4373)) - X(1093) = (X(1093)-JVS(4370)*X(4545)-JVS(4371)*X(5250)-JVS(4372)*X(5255))/(JVS(4369)) - X(1092) = (X(1092)-JVS(4366)*X(4703)-JVS(4367)*X(5250)-JVS(4368)*X(5255))/(JVS(4365)) - X(1091) = (X(1091)-JVS(4362)*X(3999)-JVS(4363)*X(5250)-JVS(4364)*X(5255))/(JVS(4361)) - X(1090) = (X(1090)-JVS(4358)*X(4934)-JVS(4359)*X(5250)-JVS(4360)*X(5255))/(JVS(4357)) - X(1089) = (X(1089)-JVS(4354)*X(3706)-JVS(4355)*X(5250)-JVS(4356)*X(5255))/(JVS(4353)) - X(1088) = (X(1088)-JVS(4350)*X(4141)-JVS(4351)*X(5250)-JVS(4352)*X(5255))/(JVS(4349)) - X(1087) = (X(1087)-JVS(4346)*X(4855)-JVS(4347)*X(5250)-JVS(4348)*X(5255))/(JVS(4345)) - X(1086) = (X(1086)-JVS(4342)*X(4740)-JVS(4343)*X(5250)-JVS(4344)*X(5253))/(JVS(4341)) - X(1085) = (X(1085)-JVS(4338)*X(4759)-JVS(4339)*X(5250)-JVS(4340)*X(5255))/(JVS(4337)) - X(1084) = (X(1084)-JVS(4334)*X(4684)-JVS(4335)*X(5250)-JVS(4336)*X(5255))/(JVS(4333)) - X(1083) = (X(1083)-JVS(4330)*X(4167)-JVS(4331)*X(5250)-JVS(4332)*X(5252))/(JVS(4329)) - X(1082) = (X(1082)-JVS(4326)*X(4878)-JVS(4327)*X(5250)-JVS(4328)*X(5255))/(JVS(4325)) - X(1081) = (X(1081)-JVS(4322)*X(4161)-JVS(4323)*X(5250)-JVS(4324)*X(5252))/(JVS(4321)) - X(1080) = (X(1080)-JVS(4318)*X(3888)-JVS(4319)*X(5250)-JVS(4320)*X(5255))/(JVS(4317)) - X(1079) = (X(1079)-JVS(4314)*X(5107)-JVS(4315)*X(5250)-JVS(4316)*X(5255))/(JVS(4313)) - X(1078) = (X(1078)-JVS(4310)*X(4452)-JVS(4311)*X(5250)-JVS(4312)*X(5255))/(JVS(4309)) - X(1077) = (X(1077)-JVS(4306)*X(3855)-JVS(4307)*X(5250)-JVS(4308)*X(5255))/(JVS(4305)) - X(1076) = (X(1076)-JVS(4302)*X(4051)-JVS(4303)*X(5250)-JVS(4304)*X(5255))/(JVS(4301)) - X(1075) = (X(1075)-JVS(4298)*X(3785)-JVS(4299)*X(5250)-JVS(4300)*X(5255))/(JVS(4297)) - X(1074) = (X(1074)-JVS(4294)*X(4412)-JVS(4295)*X(5250)-JVS(4296)*X(5255))/(JVS(4293)) - X(1073) = (X(1073)-JVS(4290)*X(4829)-JVS(4291)*X(5250)-JVS(4292)*X(5255))/(JVS(4289)) - X(1072) = (X(1072)-JVS(4286)*X(4140)-JVS(4287)*X(5250)-JVS(4288)*X(5255))/(JVS(4285)) - X(1071) = (X(1071)-JVS(4282)*X(3840)-JVS(4283)*X(5250)-JVS(4284)*X(5255))/(JVS(4281)) - X(1070) = (X(1070)-JVS(4278)*X(3703)-JVS(4279)*X(5250)-JVS(4280)*X(5255))/(JVS(4277)) - X(1069) = (X(1069)-JVS(4274)*X(5078)-JVS(4275)*X(5250)-JVS(4276)*X(5255))/(JVS(4273)) - X(1068) = (X(1068)-JVS(4270)*X(1642)-JVS(4271)*X(5228)-JVS(4272)*X(5250))/(JVS(4269)) - X(1067) = (X(1067)-JVS(4266)*X(4822)-JVS(4267)*X(5250)-JVS(4268)*X(5255))/(JVS(4265)) - X(1066) = (X(1066)-JVS(4262)*X(5244)-JVS(4263)*X(5250)-JVS(4264)*X(5255))/(JVS(4261)) - X(1065) = (X(1065)-JVS(4258)*X(4928)-JVS(4259)*X(5250)-JVS(4260)*X(5255))/(JVS(4257)) - X(1064) = (X(1064)-JVS(4254)*X(4611)-JVS(4255)*X(5250)-JVS(4256)*X(5255))/(JVS(4253)) - X(1063) = (X(1063)-JVS(4250)*X(4574)-JVS(4251)*X(5250)-JVS(4252)*X(5255))/(JVS(4249)) - X(1062) = (X(1062)-JVS(4246)*X(3771)-JVS(4247)*X(5250)-JVS(4248)*X(5255))/(JVS(4245)) - X(1061) = (X(1061)-JVS(4242)*X(4034)-JVS(4243)*X(5250)-JVS(4244)*X(5255))/(JVS(4241)) - X(1060) = (X(1060)-JVS(4238)*X(4162)-JVS(4239)*X(5250)-JVS(4240)*X(5255))/(JVS(4237)) - X(1059) = (X(1059)-JVS(4234)*X(4089)-JVS(4235)*X(5250)-JVS(4236)*X(5255))/(JVS(4233)) - X(1058) = (X(1058)-JVS(4230)*X(3863)-JVS(4231)*X(5250)-JVS(4232)*X(5252))/(JVS(4229)) - X(1057) = (X(1057)-JVS(4226)*X(4078)-JVS(4227)*X(5250)-JVS(4228)*X(5252))/(JVS(4225)) - X(1056) = (X(1056)-JVS(4222)*X(3920)-JVS(4223)*X(3966)-JVS(4224)*X(5250))/(JVS(4221)) - X(1055) = (X(1055)-JVS(4218)*X(4662)-JVS(4219)*X(5250)-JVS(4220)*X(5255))/(JVS(4217)) - X(1054) = (X(1054)-JVS(4214)*X(4111)-JVS(4215)*X(4372)-JVS(4216)*X(5250))/(JVS(4213)) - X(1053) = (X(1053)-JVS(4210)*X(3713)-JVS(4211)*X(5250)-JVS(4212)*X(5255))/(JVS(4209)) - X(1052) = (X(1052)-JVS(4206)*X(5138)-JVS(4207)*X(5250)-JVS(4208)*X(5255))/(JVS(4205)) - X(1051) = (X(1051)-JVS(4202)*X(4212)-JVS(4203)*X(5250)-JVS(4204)*X(5255))/(JVS(4201)) - X(1050) = (X(1050)-JVS(4198)*X(4310)-JVS(4199)*X(5116)-JVS(4200)*X(5250))/(JVS(4197)) - X(1049) = (X(1049)-JVS(4194)*X(4707)-JVS(4195)*X(5250)-JVS(4196)*X(5255))/(JVS(4193)) - X(1048) = (X(1048)-JVS(4190)*X(4915)-JVS(4191)*X(5250)-JVS(4192)*X(5255))/(JVS(4189)) - X(1047) = (X(1047)-JVS(4186)*X(4855)-JVS(4187)*X(5250)-JVS(4188)*X(5255))/(JVS(4185)) - X(1046) = (X(1046)-JVS(4182)*X(3848)-JVS(4183)*X(5250)-JVS(4184)*X(5255))/(JVS(4181)) - X(1045) = (X(1045)-JVS(4178)*X(4463)-JVS(4179)*X(5250)-JVS(4180)*X(5255))/(JVS(4177)) - X(1044) = (X(1044)-JVS(4174)*X(4486)-JVS(4175)*X(5250)-JVS(4176)*X(5255))/(JVS(4173)) - X(1043) = (X(1043)-JVS(4170)*X(3745)-JVS(4171)*X(5250)-JVS(4172)*X(5255))/(JVS(4169)) - X(1042) = (X(1042)-JVS(4166)*X(4848)-JVS(4167)*X(5250)-JVS(4168)*X(5255))/(JVS(4165)) - X(1041) = (X(1041)-JVS(4162)*X(5079)-JVS(4163)*X(5250)-JVS(4164)*X(5255))/(JVS(4161)) - X(1040) = (X(1040)-JVS(4158)*X(3407)-JVS(4159)*X(3669)-JVS(4160)*X(5250))/(JVS(4157)) - X(1039) = (X(1039)-JVS(4152)*X(3794)-JVS(4153)*X(5250)-JVS(4154)*X(5255))/(JVS(4151)) - X(1038) = (X(1038)-JVS(4148)*X(4725)-JVS(4149)*X(5250)-JVS(4150)*X(5255))/(JVS(4147)) - X(1037) = (X(1037)-JVS(4144)*X(5137)-JVS(4145)*X(5250)-JVS(4146)*X(5255))/(JVS(4143)) - X(1036) = (X(1036)-JVS(4140)*X(3921)-JVS(4141)*X(3936)-JVS(4142)*X(5250))/(JVS(4139)) - X(1035) = (X(1035)-JVS(4136)*X(4476)-JVS(4137)*X(4767)-JVS(4138)*X(5250))/(JVS(4135)) - X(1034) = (X(1034)-JVS(4132)*X(4568)-JVS(4133)*X(5250)-JVS(4134)*X(5255))/(JVS(4131)) - X(1033) = (X(1033)-JVS(4128)*X(3503)-JVS(4129)*X(5250)-JVS(4130)*X(5255))/(JVS(4127)) - X(1032) = (X(1032)-JVS(4124)*X(3730)-JVS(4125)*X(5250)-JVS(4126)*X(5255))/(JVS(4123)) - X(1031) = (X(1031)-JVS(4120)*X(4829)-JVS(4121)*X(5250)-JVS(4122)*X(5255))/(JVS(4119)) - X(1030) = (X(1030)-JVS(4116)*X(4455)-JVS(4117)*X(5250)-JVS(4118)*X(5255))/(JVS(4115)) - X(1029) = (X(1029)-JVS(4112)*X(4289)-JVS(4113)*X(5250)-JVS(4114)*X(5255))/(JVS(4111)) - X(1028) = (X(1028)-JVS(4108)*X(3678)-JVS(4109)*X(5250)-JVS(4110)*X(5255))/(JVS(4107)) - X(1027) = (X(1027)-JVS(4104)*X(3804)-JVS(4105)*X(5250)-JVS(4106)*X(5255))/(JVS(4103)) - X(1026) = (X(1026)-JVS(4100)*X(4890)-JVS(4101)*X(5250)-JVS(4102)*X(5252))/(JVS(4099)) - X(1025) = (X(1025)-JVS(4096)*X(4194)-JVS(4097)*X(5250)-JVS(4098)*X(5255))/(JVS(4095)) - X(1024) = (X(1024)-JVS(4092)*X(3786)-JVS(4093)*X(5250)-JVS(4094)*X(5255))/(JVS(4091)) - X(1023) = (X(1023)-JVS(4088)*X(3554)-JVS(4089)*X(5250)-JVS(4090)*X(5255))/(JVS(4087)) - X(1022) = (X(1022)-JVS(4084)*X(4818)-JVS(4085)*X(5250)-JVS(4086)*X(5255))/(JVS(4083)) - X(1021) = (X(1021)-JVS(4080)*X(3853)-JVS(4081)*X(5250)-JVS(4082)*X(5255))/(JVS(4079)) - X(1020) = (X(1020)-JVS(4076)*X(3705)-JVS(4077)*X(5250)-JVS(4078)*X(5255))/(JVS(4075)) - X(1019) = (X(1019)-JVS(4072)*X(4120)-JVS(4073)*X(5250)-JVS(4074)*X(5255))/(JVS(4071)) - X(1018) = (X(1018)-JVS(4068)*X(4660)-JVS(4069)*X(5250)-JVS(4070)*X(5255))/(JVS(4067)) - X(1017) = (X(1017)-JVS(4064)*X(4054)-JVS(4065)*X(5250)-JVS(4066)*X(5255))/(JVS(4063)) - X(1016) = (X(1016)-JVS(4060)*X(4720)-JVS(4061)*X(5250)-JVS(4062)*X(5255))/(JVS(4059)) - X(1015) = (X(1015)-JVS(4056)*X(5164)-JVS(4057)*X(5250)-JVS(4058)*X(5255))/(JVS(4055)) - X(1014) = (X(1014)-JVS(4052)*X(4803)-JVS(4053)*X(5250)-JVS(4054)*X(5255))/(JVS(4051)) - X(1013) = (X(1013)-JVS(4048)*X(2627)-JVS(4049)*X(4932)-JVS(4050)*X(5252))/(JVS(4047)) - X(1012) = (X(1012)-JVS(4044)*X(3985)-JVS(4045)*X(5250)-JVS(4046)*X(5255))/(JVS(4043)) - X(1011) = (X(1011)-JVS(4040)*X(4922)-JVS(4041)*X(5252)-JVS(4042)*X(5256))/(JVS(4039)) - X(1010) = (X(1010)-JVS(4036)*X(4577)-JVS(4037)*X(5250)-JVS(4038)*X(5255))/(JVS(4035)) - X(1009) = (X(1009)-JVS(4032)*X(3531)-JVS(4033)*X(5250)-JVS(4034)*X(5255))/(JVS(4031)) - X(1008) = (X(1008)-JVS(4028)*X(4752)-JVS(4029)*X(5250)-JVS(4030)*X(5255))/(JVS(4027)) - X(1007) = (X(1007)-JVS(4024)*X(4201)-JVS(4025)*X(5250)-JVS(4026)*X(5255))/(JVS(4023)) - X(1006) = (X(1006)-JVS(4020)*X(4519)-JVS(4021)*X(5250)-JVS(4022)*X(5255))/(JVS(4019)) - X(1005) = (X(1005)-JVS(4016)*X(4359)-JVS(4017)*X(5250)-JVS(4018)*X(5252))/(JVS(4015)) - X(1004) = (X(1004)-JVS(4012)*X(3789)-JVS(4013)*X(5250)-JVS(4014)*X(5255))/(JVS(4011)) - X(1003) = (X(1003)-JVS(4008)*X(4007)-JVS(4009)*X(5250)-JVS(4010)*X(5255))/(JVS(4007)) - X(1002) = (X(1002)-JVS(4004)*X(4100)-JVS(4005)*X(5250)-JVS(4006)*X(5255))/(JVS(4003)) - X(1001) = (X(1001)-JVS(4000)*X(3963)-JVS(4001)*X(3971)-JVS(4002)*X(5250))/(JVS(3999)) - X(1000) = (X(1000)-JVS(3996)*X(3527)-JVS(3997)*X(5250)-JVS(3998)*X(5252))/(JVS(3995)) - X(999) = (X(999)-JVS(3992)*X(4876)-JVS(3993)*X(5250)-JVS(3994)*X(5255))/(JVS(3991)) - X(998) = (X(998)-JVS(3988)*X(4854)-JVS(3989)*X(5250)-JVS(3990)*X(5255))/(JVS(3987)) - X(997) = (X(997)-JVS(3984)*X(4134)-JVS(3985)*X(5250)-JVS(3986)*X(5255))/(JVS(3983)) - X(996) = (X(996)-JVS(3980)*X(3534)-JVS(3981)*X(5250)-JVS(3982)*X(5255))/(JVS(3979)) - X(995) = (X(995)-JVS(3976)*X(4890)-JVS(3977)*X(5250)-JVS(3978)*X(5255))/(JVS(3975)) - X(994) = (X(994)-JVS(3972)*X(4904)-JVS(3973)*X(5250)-JVS(3974)*X(5255))/(JVS(3971)) - X(993) = (X(993)-JVS(3968)*X(5017)-JVS(3969)*X(5250)-JVS(3970)*X(5255))/(JVS(3967)) - X(992) = (X(992)-JVS(3964)*X(3717)-JVS(3965)*X(5250)-JVS(3966)*X(5255))/(JVS(3963)) - X(991) = (X(991)-JVS(3960)*X(4159)-JVS(3961)*X(5250)-JVS(3962)*X(5252))/(JVS(3959)) - X(990) = (X(990)-JVS(3956)*X(4830)-JVS(3957)*X(5250)-JVS(3958)*X(5255))/(JVS(3955)) - X(989) = (X(989)-JVS(3952)*X(3719)-JVS(3953)*X(5250)-JVS(3954)*X(5255))/(JVS(3951)) - X(988) = (X(988)-JVS(3948)*X(4642)-JVS(3949)*X(5250)-JVS(3950)*X(5255))/(JVS(3947)) - X(987) = (X(987)-JVS(3944)*X(5183)-JVS(3945)*X(5250)-JVS(3946)*X(5255))/(JVS(3943)) - X(986) = (X(986)-JVS(3940)*X(4969)-JVS(3941)*X(5250)-JVS(3942)*X(5255))/(JVS(3939)) - X(985) = (X(985)-JVS(3936)*X(4847)-JVS(3937)*X(5250)-JVS(3938)*X(5255))/(JVS(3935)) - X(984) = (X(984)-JVS(3932)*X(3949)-JVS(3933)*X(5250)-JVS(3934)*X(5255))/(JVS(3931)) - X(983) = (X(983)-JVS(3928)*X(4979)-JVS(3929)*X(5250)-JVS(3930)*X(5255))/(JVS(3927)) - X(982) = (X(982)-JVS(3924)*X(3632)-JVS(3925)*X(5250)-JVS(3926)*X(5255))/(JVS(3923)) - X(981) = (X(981)-JVS(3920)*X(5127)-JVS(3921)*X(5250)-JVS(3922)*X(5255))/(JVS(3919)) - X(980) = (X(980)-JVS(3916)*X(4121)-JVS(3917)*X(5250)-JVS(3918)*X(5255))/(JVS(3915)) - X(979) = (X(979)-JVS(3912)*X(4195)-JVS(3913)*X(5250)-JVS(3914)*X(5255))/(JVS(3911)) - X(978) = (X(978)-JVS(3908)*X(4006)-JVS(3909)*X(5250)-JVS(3910)*X(5255))/(JVS(3907)) - X(977) = (X(977)-JVS(3904)*X(4415)-JVS(3905)*X(5250)-JVS(3906)*X(5255))/(JVS(3903)) - X(976) = (X(976)-JVS(3900)*X(4879)-JVS(3901)*X(5250)-JVS(3902)*X(5255))/(JVS(3899)) - X(975) = (X(975)-JVS(3896)*X(4500)-JVS(3897)*X(5250)-JVS(3898)*X(5255))/(JVS(3895)) - X(974) = (X(974)-JVS(3892)*X(3953)-JVS(3893)*X(5250)-JVS(3894)*X(5255))/(JVS(3891)) - X(973) = (X(973)-JVS(3888)*X(4423)-JVS(3889)*X(5250)-JVS(3890)*X(5255))/(JVS(3887)) - X(972) = (X(972)-JVS(3884)*X(4245)-JVS(3885)*X(5250)-JVS(3886)*X(5255))/(JVS(3883)) - X(971) = (X(971)-JVS(3880)*X(3895)-JVS(3881)*X(5250)-JVS(3882)*X(5255))/(JVS(3879)) - X(970) = (X(970)-JVS(3876)*X(4394)-JVS(3877)*X(5250)-JVS(3878)*X(5255))/(JVS(3875)) - X(969) = (X(969)-JVS(3872)*X(3636)-JVS(3873)*X(5250)-JVS(3874)*X(5255))/(JVS(3871)) - X(968) = (X(968)-JVS(3868)*X(5132)-JVS(3869)*X(5250)-JVS(3870)*X(5255))/(JVS(3867)) - X(967) = (X(967)-JVS(3864)*X(4712)-JVS(3865)*X(5250)-JVS(3866)*X(5255))/(JVS(3863)) - X(966) = (X(966)-JVS(3860)*X(3481)-JVS(3861)*X(5250)-JVS(3862)*X(5255))/(JVS(3859)) - X(965) = (X(965)-JVS(3856)*X(4734)-JVS(3857)*X(5250)-JVS(3858)*X(5255))/(JVS(3855)) - X(964) = (X(964)-JVS(3852)*X(5119)-JVS(3853)*X(5250)-JVS(3854)*X(5255))/(JVS(3851)) - X(963) = (X(963)-JVS(3848)*X(3714)-JVS(3849)*X(5250)-JVS(3850)*X(5255))/(JVS(3847)) - X(962) = (X(962)-JVS(3844)*X(4210)-JVS(3845)*X(5250)-JVS(3846)*X(5255))/(JVS(3843)) - X(961) = (X(961)-JVS(3840)*X(4641)-JVS(3841)*X(5250)-JVS(3842)*X(5255))/(JVS(3839)) - X(960) = (X(960)-JVS(3836)*X(4421)-JVS(3837)*X(5250)-JVS(3838)*X(5255))/(JVS(3835)) - X(959) = (X(959)-JVS(3832)*X(3518)-JVS(3833)*X(5250)-JVS(3834)*X(5255))/(JVS(3831)) - X(958) = (X(958)-JVS(3828)*X(4957)-JVS(3829)*X(5250)-JVS(3830)*X(5255))/(JVS(3827)) - X(957) = (X(957)-JVS(3824)*X(4599)-JVS(3825)*X(5250)-JVS(3826)*X(5252))/(JVS(3823)) - X(956) = (X(956)-JVS(3820)*X(3803)-JVS(3821)*X(5250)-JVS(3822)*X(5255))/(JVS(3819)) - X(955) = (X(955)-JVS(3816)*X(4172)-JVS(3817)*X(5250)-JVS(3818)*X(5255))/(JVS(3815)) - X(954) = (X(954)-JVS(3812)*X(4631)-JVS(3813)*X(5250)-JVS(3814)*X(5255))/(JVS(3811)) - X(953) = (X(953)-JVS(3808)*X(4818)-JVS(3809)*X(5250)-JVS(3810)*X(5255))/(JVS(3807)) - X(952) = (X(952)-JVS(3804)*X(4052)-JVS(3805)*X(5250)-JVS(3806)*X(5255))/(JVS(3803)) - X(951) = (X(951)-JVS(3800)*X(4679)-JVS(3801)*X(5250)-JVS(3802)*X(5255))/(JVS(3799)) - X(950) = (X(950)-JVS(3796)*X(4044)-JVS(3797)*X(5250)-JVS(3798)*X(5255))/(JVS(3795)) - X(949) = (X(949)-JVS(3792)*X(3901)-JVS(3793)*X(5250)-JVS(3794)*X(5255))/(JVS(3791)) - X(948) = (X(948)-JVS(3788)*X(4019)-JVS(3789)*X(5250)-JVS(3790)*X(5255))/(JVS(3787)) - X(947) = (X(947)-JVS(3784)*X(4400)-JVS(3785)*X(5250)-JVS(3786)*X(5255))/(JVS(3783)) - X(946) = (X(946)-JVS(3780)*X(4419)-JVS(3781)*X(5250)-JVS(3782)*X(5255))/(JVS(3779)) - X(945) = (X(945)-JVS(3776)*X(4866)-JVS(3777)*X(5250)-JVS(3778)*X(5255))/(JVS(3775)) - X(944) = (X(944)-JVS(3772)*X(3752)-JVS(3773)*X(5250)-JVS(3774)*X(5255))/(JVS(3771)) - X(943) = (X(943)-JVS(3768)*X(4009)-JVS(3769)*X(5250)-JVS(3770)*X(5255))/(JVS(3767)) - X(942) = (X(942)-JVS(3764)*X(3845)-JVS(3765)*X(5250)-JVS(3766)*X(5255))/(JVS(3763)) - X(941) = (X(941)-JVS(3760)*X(4692)-JVS(3761)*X(5250)-JVS(3762)*X(5255))/(JVS(3759)) - X(940) = (X(940)-JVS(3756)*X(4503)-JVS(3757)*X(5250)-JVS(3758)*X(5255))/(JVS(3755)) - X(939) = (X(939)-JVS(3752)*X(3538)-JVS(3753)*X(5250)-JVS(3754)*X(5255))/(JVS(3751)) - X(938) = (X(938)-JVS(3748)*X(3562)-JVS(3749)*X(5250)-JVS(3750)*X(5255))/(JVS(3747)) - X(937) = (X(937)-JVS(3744)*X(4833)-JVS(3745)*X(5250)-JVS(3746)*X(5255))/(JVS(3743)) - X(936) = (X(936)-JVS(3740)*X(4636)-JVS(3741)*X(5250)-JVS(3742)*X(5255))/(JVS(3739)) - X(935) = (X(935)-JVS(3736)*X(3694)-JVS(3737)*X(5250)-JVS(3738)*X(5255))/(JVS(3735)) - X(934) = (X(934)-JVS(3732)*X(4467)-JVS(3733)*X(5250)-JVS(3734)*X(5255))/(JVS(3731)) - X(933) = (X(933)-JVS(3728)*X(4660)-JVS(3729)*X(5250)-JVS(3730)*X(5255))/(JVS(3727)) - X(932) = (X(932)-JVS(3724)*X(3489)-JVS(3725)*X(5250)-JVS(3726)*X(5255))/(JVS(3723)) - X(931) = (X(931)-JVS(3720)*X(4124)-JVS(3721)*X(5250)-JVS(3722)*X(5255))/(JVS(3719)) - X(930) = (X(930)-JVS(3716)*X(4745)-JVS(3717)*X(5250)-JVS(3718)*X(5255))/(JVS(3715)) - X(929) = (X(929)-JVS(3712)*X(4451)-JVS(3713)*X(5250)-JVS(3714)*X(5255))/(JVS(3711)) - X(928) = (X(928)-JVS(3708)*X(4481)-JVS(3709)*X(5250)-JVS(3710)*X(5255))/(JVS(3707)) - X(927) = (X(927)-JVS(3704)*X(3890)-JVS(3705)*X(5250)-JVS(3706)*X(5255))/(JVS(3703)) - X(926) = (X(926)-JVS(3700)*X(4598)-JVS(3701)*X(5096)-JVS(3702)*X(5250))/(JVS(3699)) - X(925) = (X(925)-JVS(3696)*X(5250)-JVS(3697)*X(5253)-JVS(3698)*X(5255))/(JVS(3695)) - X(924) = (X(924)-JVS(3692)*X(4522)-JVS(3693)*X(5250)-JVS(3694)*X(5255))/(JVS(3691)) - X(923) = (X(923)-JVS(3688)*X(4307)-JVS(3689)*X(5250)-JVS(3690)*X(5255))/(JVS(3687)) - X(922) = (X(922)-JVS(3684)*X(3507)-JVS(3685)*X(5250)-JVS(3686)*X(5255))/(JVS(3683)) - X(921) = (X(921)-JVS(3680)*X(4641)-JVS(3681)*X(5250)-JVS(3682)*X(5255))/(JVS(3679)) - X(920) = (X(920)-JVS(3676)*X(4146)-JVS(3677)*X(5250)-JVS(3678)*X(5255))/(JVS(3675)) - X(919) = (X(919)-JVS(3672)*X(4288)-JVS(3673)*X(5250)-JVS(3674)*X(5255))/(JVS(3671)) - X(918) = (X(918)-JVS(3668)*X(5239)-JVS(3669)*X(5250)-JVS(3670)*X(5255))/(JVS(3667)) - X(917) = (X(917)-JVS(3664)*X(4291)-JVS(3665)*X(5250)-JVS(3666)*X(5255))/(JVS(3663)) - X(916) = (X(916)-JVS(3660)*X(4955)-JVS(3661)*X(5250)-JVS(3662)*X(5255))/(JVS(3659)) - X(915) = (X(915)-JVS(3656)*X(4684)-JVS(3657)*X(5250)-JVS(3658)*X(5255))/(JVS(3655)) - X(914) = (X(914)-JVS(3652)*X(4335)-JVS(3653)*X(5250)-JVS(3654)*X(5255))/(JVS(3651)) - X(913) = (X(913)-JVS(3648)*X(4305)-JVS(3649)*X(5250)-JVS(3650)*X(5255))/(JVS(3647)) - X(912) = (X(912)-JVS(3644)*X(4090)-JVS(3645)*X(5250)-JVS(3646)*X(5255))/(JVS(3643)) - X(911) = (X(911)-JVS(3640)*X(3423)-JVS(3641)*X(3696)-JVS(3642)*X(5250))/(JVS(3639)) - X(910) = (X(910)-JVS(3634)*X(4635)-JVS(3635)*X(5250)-JVS(3636)*X(5255))/(JVS(3633)) - X(909) = (X(909)-JVS(3630)*X(4263)-JVS(3631)*X(5250)-JVS(3632)*X(5255))/(JVS(3629)) - X(908) = (X(908)-JVS(3626)*X(4211)-JVS(3627)*X(5250)-JVS(3628)*X(5255))/(JVS(3625)) - X(907) = (X(907)-JVS(3622)*X(3998)-JVS(3623)*X(5250)-JVS(3624)*X(5255))/(JVS(3621)) - X(906) = (X(906)-JVS(3618)*X(4867)-JVS(3619)*X(5250)-JVS(3620)*X(5255))/(JVS(3617)) - X(905) = (X(905)-JVS(3614)*X(3971)-JVS(3615)*X(5250)-JVS(3616)*X(5252))/(JVS(3613)) - X(904) = (X(904)-JVS(3610)*X(3852)-JVS(3611)*X(5250)-JVS(3612)*X(5255))/(JVS(3609)) - X(903) = (X(903)-JVS(3606)*X(4853)-JVS(3607)*X(5250)-JVS(3608)*X(5255))/(JVS(3605)) - X(902) = (X(902)-JVS(3602)*X(4510)-JVS(3603)*X(5250)-JVS(3604)*X(5255))/(JVS(3601)) - X(901) = (X(901)-JVS(3598)*X(4977)-JVS(3599)*X(5250)-JVS(3600)*X(5255))/(JVS(3597)) - X(900) = (X(900)-JVS(3594)*X(5014)-JVS(3595)*X(5250)-JVS(3596)*X(5255))/(JVS(3593)) - X(899) = (X(899)-JVS(3590)*X(4613)-JVS(3591)*X(5250)-JVS(3592)*X(5255))/(JVS(3589)) - X(898) = (X(898)-JVS(3586)*X(4656)-JVS(3587)*X(5250)-JVS(3588)*X(5255))/(JVS(3585)) - X(897) = (X(897)-JVS(3582)*X(4097)-JVS(3583)*X(5250)-JVS(3584)*X(5255))/(JVS(3581)) - X(896) = (X(896)-JVS(3578)*X(4844)-JVS(3579)*X(5148)-JVS(3580)*X(5250))/(JVS(3577)) - X(895) = (X(895)-JVS(3574)*X(4577)-JVS(3575)*X(4722)-JVS(3576)*X(5250))/(JVS(3573)) - X(894) = (X(894)-JVS(3570)*X(4808)-JVS(3571)*X(5250)-JVS(3572)*X(5255))/(JVS(3569)) - X(893) = (X(893)-JVS(3566)*X(4518)-JVS(3567)*X(5250)-JVS(3568)*X(5255))/(JVS(3565)) - X(892) = (X(892)-JVS(3562)*X(4011)-JVS(3563)*X(5250)-JVS(3564)*X(5255))/(JVS(3561)) - X(891) = (X(891)-JVS(3558)*X(3860)-JVS(3559)*X(5250)-JVS(3560)*X(5255))/(JVS(3557)) - X(890) = (X(890)-JVS(3554)*X(4657)-JVS(3555)*X(5250)-JVS(3556)*X(5255))/(JVS(3553)) - X(889) = (X(889)-JVS(3550)*X(4860)-JVS(3551)*X(5250)-JVS(3552)*X(5255))/(JVS(3549)) - X(888) = (X(888)-JVS(3546)*X(4643)-JVS(3547)*X(5250)-JVS(3548)*X(5255))/(JVS(3545)) - X(887) = (X(887)-JVS(3542)*X(3839)-JVS(3543)*X(5250)-JVS(3544)*X(5255))/(JVS(3541)) - X(886) = (X(886)-JVS(3538)*X(5111)-JVS(3539)*X(5250)-JVS(3540)*X(5255))/(JVS(3537)) - X(885) = (X(885)-JVS(3534)*X(3988)-JVS(3535)*X(5250)-JVS(3536)*X(5255))/(JVS(3533)) - X(884) = (X(884)-JVS(3530)*X(3627)-JVS(3531)*X(5250)-JVS(3532)*X(5255))/(JVS(3529)) - X(883) = (X(883)-JVS(3526)*X(5104)-JVS(3527)*X(5250)-JVS(3528)*X(5255))/(JVS(3525)) - X(882) = (X(882)-JVS(3522)*X(4825)-JVS(3523)*X(5250)-JVS(3524)*X(5255))/(JVS(3521)) - X(881) = (X(881)-JVS(3518)*X(3898)-JVS(3519)*X(5250)-JVS(3520)*X(5255))/(JVS(3517)) - X(880) = (X(880)-JVS(3514)*X(5084)-JVS(3515)*X(5250)-JVS(3516)*X(5255))/(JVS(3513)) - X(879) = (X(879)-JVS(3510)*X(3858)-JVS(3511)*X(5250)-JVS(3512)*X(5255))/(JVS(3509)) - X(878) = (X(878)-JVS(3506)*X(4296)-JVS(3507)*X(5250)-JVS(3508)*X(5255))/(JVS(3505)) - X(877) = (X(877)-JVS(3502)*X(4149)-JVS(3503)*X(5250)-JVS(3504)*X(5255))/(JVS(3501)) - X(876) = (X(876)-JVS(3498)*X(4990)-JVS(3499)*X(5250)-JVS(3500)*X(5255))/(JVS(3497)) - X(875) = (X(875)-JVS(3494)*X(4382)-JVS(3495)*X(5250)-JVS(3496)*X(5255))/(JVS(3493)) - X(874) = (X(874)-JVS(3490)*X(4837)-JVS(3491)*X(4959)-JVS(3492)*X(5250))/(JVS(3489)) - X(873) = (X(873)-JVS(3486)*X(3980)-JVS(3487)*X(5250)-JVS(3488)*X(5255))/(JVS(3485)) - X(872) = (X(872)-JVS(3482)*X(3698)-JVS(3483)*X(5250)-JVS(3484)*X(5255))/(JVS(3481)) - X(871) = (X(871)-JVS(3478)*X(5247)-JVS(3479)*X(5250)-JVS(3480)*X(5255))/(JVS(3477)) - X(870) = (X(870)-JVS(3474)*X(5146)-JVS(3475)*X(5250)-JVS(3476)*X(5255))/(JVS(3473)) - X(869) = (X(869)-JVS(3470)*X(4655)-JVS(3471)*X(5250)-JVS(3472)*X(5255))/(JVS(3469)) - X(868) = (X(868)-JVS(3466)*X(5237)-JVS(3467)*X(5250)-JVS(3468)*X(5255))/(JVS(3465)) - X(867) = (X(867)-JVS(3462)*X(4187)-JVS(3463)*X(5250)-JVS(3464)*X(5255))/(JVS(3461)) - X(866) = (X(866)-JVS(3458)*X(4543)-JVS(3459)*X(5250)-JVS(3460)*X(5255))/(JVS(3457)) - X(865) = (X(865)-JVS(3454)*X(4244)-JVS(3455)*X(5250)-JVS(3456)*X(5255))/(JVS(3453)) - X(864) = (X(864)-JVS(3450)*X(4910)-JVS(3451)*X(5250)-JVS(3452)*X(5255))/(JVS(3449)) - X(863) = (X(863)-JVS(3446)*X(3846)-JVS(3447)*X(5250)-JVS(3448)*X(5255))/(JVS(3445)) - X(862) = (X(862)-JVS(3442)*X(2936)-JVS(3443)*X(4997)-JVS(3444)*X(5250))/(JVS(3441)) - X(861) = (X(861)-JVS(3438)*X(3798)-JVS(3439)*X(5250)-JVS(3440)*X(5255))/(JVS(3437)) - X(860) = (X(860)-JVS(3434)*X(4280)-JVS(3435)*X(5250)-JVS(3436)*X(5255))/(JVS(3433)) - X(859) = (X(859)-JVS(3430)*X(4664)-JVS(3431)*X(5250)-JVS(3432)*X(5255))/(JVS(3429)) - X(858) = (X(858)-JVS(3426)*X(4115)-JVS(3427)*X(5250)-JVS(3428)*X(5255))/(JVS(3425)) - X(857) = (X(857)-JVS(3422)*X(4061)-JVS(3423)*X(5250)-JVS(3424)*X(5255))/(JVS(3421)) - X(856) = (X(856)-JVS(3418)*X(4673)-JVS(3419)*X(5250)-JVS(3420)*X(5255))/(JVS(3417)) - X(855) = (X(855)-JVS(3414)*X(4981)-JVS(3415)*X(5250)-JVS(3416)*X(5255))/(JVS(3413)) - X(854) = (X(854)-JVS(3410)*X(4001)-JVS(3411)*X(5250)-JVS(3412)*X(5255))/(JVS(3409)) - X(853) = (X(853)-JVS(3406)*X(4469)-JVS(3407)*X(5250)-JVS(3408)*X(5255))/(JVS(3405)) - X(852) = (X(852)-JVS(3402)*X(4085)-JVS(3403)*X(5250)-JVS(3404)*X(5255))/(JVS(3401)) - X(851) = (X(851)-JVS(3398)*X(4377)-JVS(3399)*X(5250)-JVS(3400)*X(5255))/(JVS(3397)) - X(850) = (X(850)-JVS(3394)*X(4521)-JVS(3395)*X(5250)-JVS(3396)*X(5255))/(JVS(3393)) - X(849) = (X(849)-JVS(3390)*X(4624)-JVS(3391)*X(5250)-JVS(3392)*X(5255))/(JVS(3389)) - X(848) = (X(848)-JVS(3386)*X(5065)-JVS(3387)*X(5250)-JVS(3388)*X(5255))/(JVS(3385)) - X(847) = (X(847)-JVS(3382)*X(4645)-JVS(3383)*X(5149)-JVS(3384)*X(5250))/(JVS(3381)) - X(846) = (X(846)-JVS(3378)*X(4821)-JVS(3379)*X(5250)-JVS(3380)*X(5255))/(JVS(3377)) - X(845) = (X(845)-JVS(3374)*X(4629)-JVS(3375)*X(5250)-JVS(3376)*X(5255))/(JVS(3373)) - X(844) = (X(844)-JVS(3370)*X(4035)-JVS(3371)*X(5250)-JVS(3372)*X(5255))/(JVS(3369)) - X(843) = (X(843)-JVS(3366)*X(4008)-JVS(3367)*X(5250)-JVS(3368)*X(5255))/(JVS(3365)) - X(842) = (X(842)-JVS(3362)*X(4439)-JVS(3363)*X(5250)-JVS(3364)*X(5255))/(JVS(3361)) - X(841) = (X(841)-JVS(3358)*X(4111)-JVS(3359)*X(5250)-JVS(3360)*X(5255))/(JVS(3357)) - X(840) = (X(840)-JVS(3354)*X(3733)-JVS(3355)*X(5250)-JVS(3356)*X(5252))/(JVS(3353)) - X(839) = (X(839)-JVS(3350)*X(4658)-JVS(3351)*X(5250)-JVS(3352)*X(5255))/(JVS(3349)) - X(838) = (X(838)-JVS(3346)*X(4422)-JVS(3347)*X(5250)-JVS(3348)*X(5255))/(JVS(3345)) - X(837) = (X(837)-JVS(3342)*X(4626)-JVS(3343)*X(5250)-JVS(3344)*X(5255))/(JVS(3341)) - X(836) = (X(836)-JVS(3338)*X(3718)-JVS(3339)*X(5250)-JVS(3340)*X(5255))/(JVS(3337)) - X(835) = (X(835)-JVS(3334)*X(4306)-JVS(3335)*X(5250)-JVS(3336)*X(5255))/(JVS(3333)) - X(834) = (X(834)-JVS(3330)*X(4427)-JVS(3331)*X(5250)-JVS(3332)*X(5255))/(JVS(3329)) - X(833) = (X(833)-JVS(3326)*X(5158)-JVS(3327)*X(5250)-JVS(3328)*X(5255))/(JVS(3325)) - X(832) = (X(832)-JVS(3322)*X(4994)-JVS(3323)*X(5250)-JVS(3324)*X(5255))/(JVS(3321)) - X(831) = (X(831)-JVS(3318)*X(3932)-JVS(3319)*X(5250)-JVS(3320)*X(5255))/(JVS(3317)) - X(830) = (X(830)-JVS(3314)*X(4043)-JVS(3315)*X(5250)-JVS(3316)*X(5255))/(JVS(3313)) - X(829) = (X(829)-JVS(3310)*X(4344)-JVS(3311)*X(5250)-JVS(3312)*X(5255))/(JVS(3309)) - X(828) = (X(828)-JVS(3306)*X(4771)-JVS(3307)*X(5250)-JVS(3308)*X(5255))/(JVS(3305)) - X(827) = (X(827)-JVS(3302)*X(4653)-JVS(3303)*X(5250)-JVS(3304)*X(5255))/(JVS(3301)) - X(826) = (X(826)-JVS(3298)*X(4216)-JVS(3299)*X(5250)-JVS(3300)*X(5255))/(JVS(3297)) - X(825) = (X(825)-JVS(3294)*X(4262)-JVS(3295)*X(5250)-JVS(3296)*X(5255))/(JVS(3293)) - X(824) = (X(824)-JVS(3290)*X(4853)-JVS(3291)*X(5250)-JVS(3292)*X(5255))/(JVS(3289)) - X(823) = (X(823)-JVS(3286)*X(4659)-JVS(3287)*X(5250)-JVS(3288)*X(5255))/(JVS(3285)) - X(822) = (X(822)-JVS(3282)*X(3997)-JVS(3283)*X(5250)-JVS(3284)*X(5255))/(JVS(3281)) - X(821) = (X(821)-JVS(3279)*X(5196)-JVS(3280)*X(5250))/(JVS(3278)) - X(820) = (X(820)-JVS(3274)*X(2115)-JVS(3275)*X(4549)-JVS(3276)*X(5252)-JVS(3277)*X(5256))/(JVS(3273)) - X(819) = (X(819)-JVS(3271)*X(5013)-JVS(3272)*X(5258))/(JVS(3270)) - X(818) = (X(818)-JVS(3266)*X(4943)-JVS(3267)*X(5244)-JVS(3268)*X(5250)-JVS(3269)*X(5255))/(JVS(3265)) - X(817) = (X(817)-JVS(3261)*X(2440)-JVS(3262)*X(4130)-JVS(3263)*X(5252)-JVS(3264)*X(5256))/(JVS(3260)) - X(816) = (X(816)-JVS(3256)*X(2046)-JVS(3257)*X(3685)-JVS(3258)*X(5252)-JVS(3259)*X(5256))/(JVS(3255)) - X(815) = (X(815)-JVS(3251)*X(2166)-JVS(3252)*X(4590)-JVS(3253)*X(5252)-JVS(3254)*X(5256))/(JVS(3250)) - X(814) = (X(814)-JVS(3246)*X(2262)-JVS(3247)*X(3945)-JVS(3248)*X(5252)-JVS(3249)*X(5256))/(JVS(3245)) - X(813) = (X(813)-JVS(3243)*X(4385)-JVS(3244)*X(5250))/(JVS(3242)) - X(812) = (X(812)-JVS(3240)*X(4971)-JVS(3241)*X(5250))/(JVS(3239)) - X(811) = (X(811)-JVS(3237)*X(4727)-JVS(3238)*X(5250))/(JVS(3236)) - X(810) = (X(810)-JVS(3232)*X(1871)-JVS(3233)*X(4147)-JVS(3234)*X(5252)-JVS(3235)*X(5256))/(JVS(3231)) - X(809) = (X(809)-JVS(3227)*X(2093)-JVS(3228)*X(4327)-JVS(3229)*X(5252)-JVS(3230)*X(5256))/(JVS(3226)) - X(808) = (X(808)-JVS(3222)*X(3446)-JVS(3223)*X(4358)-JVS(3224)*X(5252)-JVS(3225)*X(5256))/(JVS(3221)) - X(807) = (X(807)-JVS(3219)*X(4716)-JVS(3220)*X(5250))/(JVS(3218)) - X(806) = (X(806)-JVS(3216)*X(5078)-JVS(3217)*X(5250))/(JVS(3215)) - X(805) = (X(805)-JVS(3213)*X(3780)-JVS(3214)*X(5250))/(JVS(3212)) - X(804) = (X(804)-JVS(3210)*X(4715)-JVS(3211)*X(5250))/(JVS(3209)) - X(803) = (X(803)-JVS(3207)*X(4103)-JVS(3208)*X(5250))/(JVS(3206)) - X(802) = (X(802)-JVS(3202)*X(1793)-JVS(3203)*X(4136)-JVS(3204)*X(5252)-JVS(3205)*X(5256))/(JVS(3201)) - X(801) = (X(801)-JVS(3197)*X(2690)-JVS(3198)*X(4070)-JVS(3199)*X(5252)-JVS(3200)*X(5256))/(JVS(3196)) - X(800) = (X(800)-JVS(3192)*X(2152)-JVS(3193)*X(4440)-JVS(3194)*X(5252)-JVS(3195)*X(5256))/(JVS(3191)) - X(799) = (X(799)-JVS(3189)*X(4900)-JVS(3190)*X(5250))/(JVS(3188)) - X(798) = (X(798)-JVS(3184)*X(2389)-JVS(3185)*X(3680)-JVS(3186)*X(5252)-JVS(3187)*X(5256))/(JVS(3183)) - X(797) = (X(797)-JVS(3179)*X(2180)-JVS(3180)*X(3891)-JVS(3181)*X(5252)-JVS(3182)*X(5256))/(JVS(3178)) - X(796) = (X(796)-JVS(3176)*X(4167)-JVS(3177)*X(5250))/(JVS(3175)) - X(795) = (X(795)-JVS(3171)*X(2348)-JVS(3172)*X(3976)-JVS(3173)*X(5252)-JVS(3174)*X(5256))/(JVS(3170)) - X(794) = (X(794)-JVS(3168)*X(4179)-JVS(3169)*X(5250))/(JVS(3167)) - X(793) = (X(793)-JVS(3165)*X(3950)-JVS(3166)*X(5250))/(JVS(3164)) - X(792) = (X(792)-JVS(3160)*X(1898)-JVS(3161)*X(3727)-JVS(3162)*X(5252)-JVS(3163)*X(5256))/(JVS(3159)) - X(791) = (X(791)-JVS(3155)*X(2027)-JVS(3156)*X(3881)-JVS(3157)*X(5252)-JVS(3158)*X(5256))/(JVS(3154)) - X(790) = (X(790)-JVS(3152)*X(4786)-JVS(3153)*X(5258))/(JVS(3151)) - X(789) = (X(789)-JVS(3149)*X(4410)-JVS(3150)*X(5250))/(JVS(3148)) - X(788) = (X(788)-JVS(3146)*X(4720)-JVS(3147)*X(5250))/(JVS(3145)) - X(787) = (X(787)-JVS(3141)*X(2204)-JVS(3142)*X(4030)-JVS(3143)*X(5252)-JVS(3144)*X(5256))/(JVS(3140)) - X(786) = (X(786)-JVS(3136)*X(1901)-JVS(3137)*X(4768)-JVS(3138)*X(5252)-JVS(3139)*X(5256))/(JVS(3135)) - X(785) = (X(785)-JVS(3133)*X(4803)-JVS(3134)*X(5250))/(JVS(3132)) - X(784) = (X(784)-JVS(3128)*X(2058)-JVS(3129)*X(3936)-JVS(3130)*X(5252)-JVS(3131)*X(5256))/(JVS(3127)) - X(783) = (X(783)-JVS(3123)*X(2103)-JVS(3124)*X(3921)-JVS(3125)*X(5252)-JVS(3126)*X(5256))/(JVS(3122)) - X(782) = (X(782)-JVS(3118)*X(2047)-JVS(3119)*X(3814)-JVS(3120)*X(5252)-JVS(3121)*X(5256))/(JVS(3117)) - X(781) = (X(781)-JVS(3113)*X(2617)-JVS(3114)*X(4129)-JVS(3115)*X(5252)-JVS(3116)*X(5256))/(JVS(3112)) - X(780) = (X(780)-JVS(3108)*X(1783)-JVS(3109)*X(4535)-JVS(3110)*X(5252)-JVS(3111)*X(5256))/(JVS(3107)) - X(779) = (X(779)-JVS(3105)*X(4718)-JVS(3106)*X(5250))/(JVS(3104)) - X(778) = (X(778)-JVS(3100)*X(1908)-JVS(3101)*X(4566)-JVS(3102)*X(5252)-JVS(3103)*X(5256))/(JVS(3099)) - X(777) = (X(777)-JVS(3095)*X(1947)-JVS(3096)*X(4284)-JVS(3097)*X(5252)-JVS(3098)*X(5256))/(JVS(3094)) - X(776) = (X(776)-JVS(3090)*X(2298)-JVS(3091)*X(3919)-JVS(3092)*X(5252)-JVS(3093)*X(5256))/(JVS(3089)) - X(775) = (X(775)-JVS(3085)*X(1985)-JVS(3086)*X(3838)-JVS(3087)*X(5252)-JVS(3088)*X(5256))/(JVS(3084)) - X(774) = (X(774)-JVS(3080)*X(1958)-JVS(3081)*X(4131)-JVS(3082)*X(5252)-JVS(3083)*X(5256))/(JVS(3079)) - X(773) = (X(773)-JVS(3075)*X(1840)-JVS(3076)*X(4069)-JVS(3077)*X(5252)-JVS(3078)*X(5256))/(JVS(3074)) - X(772) = (X(772)-JVS(3072)*X(3715)-JVS(3073)*X(5250))/(JVS(3071)) - X(771) = (X(771)-JVS(3069)*X(4952)-JVS(3070)*X(5258))/(JVS(3068)) - X(770) = (X(770)-JVS(3064)*X(2469)-JVS(3065)*X(4754)-JVS(3066)*X(5252)-JVS(3067)*X(5256))/(JVS(3063)) - X(769) = (X(769)-JVS(3061)*X(4122)-JVS(3062)*X(5250))/(JVS(3060)) - X(768) = (X(768)-JVS(3056)*X(2089)-JVS(3057)*X(3669)-JVS(3058)*X(5252)-JVS(3059)*X(5256))/(JVS(3055)) - X(767) = (X(767)-JVS(3053)*X(3668)-JVS(3054)*X(5250))/(JVS(3052)) - X(766) = (X(766)-JVS(3050)*X(4474)-JVS(3051)*X(5258))/(JVS(3049)) - X(765) = (X(765)-JVS(3045)*X(3018)-JVS(3046)*X(4814)-JVS(3047)*X(5252)-JVS(3048)*X(5256))/(JVS(3044)) - X(764) = (X(764)-JVS(3042)*X(4707)-JVS(3043)*X(5250))/(JVS(3041)) - X(763) = (X(763)-JVS(3039)*X(5226)-JVS(3040)*X(5258))/(JVS(3038)) - X(762) = (X(762)-JVS(3036)*X(4709)-JVS(3037)*X(5250))/(JVS(3035)) - X(761) = (X(761)-JVS(3031)*X(2572)-JVS(3032)*X(4367)-JVS(3033)*X(5252)-JVS(3034)*X(5256))/(JVS(3030)) - X(760) = (X(760)-JVS(3026)*X(4234)-JVS(3027)*X(5250)-JVS(3028)*X(5252)-JVS(3029)*X(5256))/(JVS(3025)) - X(759) = (X(759)-JVS(3022)*X(4951)-JVS(3023)*X(5258))/(JVS(3021)) - X(758) = (X(758)-JVS(3019)*X(4903)-JVS(3020)*X(5250))/(JVS(3018)) - X(757) = (X(757)-JVS(3016)*X(5062)-JVS(3017)*X(5250))/(JVS(3015)) - X(756) = (X(756)-JVS(3011)*X(3624)-JVS(3012)*X(4935)-JVS(3013)*X(5252)-JVS(3014)*X(5256))/(JVS(3010)) - X(755) = (X(755)-JVS(3006)*X(3469)-JVS(3007)*X(4887)-JVS(3008)*X(5252)-JVS(3009)*X(5256))/(JVS(3005)) - X(754) = (X(754)-JVS(3003)*X(4137)-JVS(3004)*X(5250))/(JVS(3002)) - X(753) = (X(753)-JVS(2998)*X(1979)-JVS(2999)*X(3679)-JVS(3000)*X(5252)-JVS(3001)*X(5256))/(JVS(2997)) - X(752) = (X(752)-JVS(2995)*X(3482)-JVS(2996)*X(5258))/(JVS(2994)) - X(751) = (X(751)-JVS(2990)*X(4941)-JVS(2991)*X(5183)-JVS(2992)*X(5250)-JVS(2993)*X(5255))/(JVS(2989)) - X(750) = (X(750)-JVS(2985)*X(2358)-JVS(2986)*X(4787)-JVS(2987)*X(5252)-JVS(2988)*X(5256))/(JVS(2984)) - X(749) = (X(749)-JVS(2980)*X(3473)-JVS(2981)*X(4365)-JVS(2982)*X(5252)-JVS(2983)*X(5256))/(JVS(2979)) - X(748) = (X(748)-JVS(2975)*X(2451)-JVS(2976)*X(3863)-JVS(2977)*X(5252)-JVS(2978)*X(5256))/(JVS(2974)) - X(747) = (X(747)-JVS(2970)*X(1850)-JVS(2971)*X(3677)-JVS(2972)*X(5252)-JVS(2973)*X(5256))/(JVS(2969)) - X(746) = (X(746)-JVS(2965)*X(2351)-JVS(2966)*X(4076)-JVS(2967)*X(5252)-JVS(2968)*X(5256))/(JVS(2964)) - X(745) = (X(745)-JVS(2960)*X(1839)-JVS(2961)*X(4369)-JVS(2962)*X(5252)-JVS(2963)*X(5256))/(JVS(2959)) - X(744) = (X(744)-JVS(2955)*X(1830)-JVS(2956)*X(4381)-JVS(2957)*X(5252)-JVS(2958)*X(5256))/(JVS(2954)) - X(743) = (X(743)-JVS(2950)*X(2294)-JVS(2951)*X(3738)-JVS(2952)*X(5252)-JVS(2953)*X(5256))/(JVS(2949)) - X(742) = (X(742)-JVS(2947)*X(4725)-JVS(2948)*X(5250))/(JVS(2946)) - X(741) = (X(741)-JVS(2942)*X(1757)-JVS(2943)*X(4960)-JVS(2944)*X(5252)-JVS(2945)*X(5256))/(JVS(2941)) - X(740) = (X(740)-JVS(2937)*X(2362)-JVS(2938)*X(4148)-JVS(2939)*X(5252)-JVS(2940)*X(5256))/(JVS(2936)) - X(739) = (X(739)-JVS(2932)*X(2018)-JVS(2933)*X(4418)-JVS(2934)*X(5252)-JVS(2935)*X(5256))/(JVS(2931)) - X(738) = (X(738)-JVS(2929)*X(3560)-JVS(2930)*X(5258))/(JVS(2928)) - X(737) = (X(737)-JVS(2924)*X(1802)-JVS(2925)*X(4817)-JVS(2926)*X(5252)-JVS(2927)*X(5256))/(JVS(2923)) - X(736) = (X(736)-JVS(2920)*X(4078)-JVS(2921)*X(5250)-JVS(2922)*X(5255))/(JVS(2919)) - X(735) = (X(735)-JVS(2915)*X(736)-JVS(2916)*X(1057)-JVS(2917)*X(4078)-JVS(2918)*X(5250))/(JVS(2914)) - X(734) = (X(734)-JVS(2909)*X(3528)-JVS(2910)*X(4967)-JVS(2911)*X(5252)-JVS(2912)*X(5256))/(JVS(2908)) - X(733) = (X(733)-JVS(2904)*X(2450)-JVS(2905)*X(3724)-JVS(2906)*X(5252)-JVS(2907)*X(5256))/(JVS(2903)) - X(732) = (X(732)-JVS(2901)*X(4377)-JVS(2902)*X(5250))/(JVS(2900)) - X(731) = (X(731)-JVS(2896)*X(2445)-JVS(2897)*X(4644)-JVS(2898)*X(5252)-JVS(2899)*X(5256))/(JVS(2895)) - X(730) = (X(730)-JVS(2891)*X(2098)-JVS(2892)*X(3920)-JVS(2893)*X(5252)-JVS(2894)*X(5256))/(JVS(2890)) - X(729) = (X(729)-JVS(2886)*X(1762)-JVS(2887)*X(4552)-JVS(2888)*X(5252)-JVS(2889)*X(5256))/(JVS(2885)) - X(728) = (X(728)-JVS(2881)*X(2071)-JVS(2882)*X(4567)-JVS(2883)*X(5252)-JVS(2884)*X(5256))/(JVS(2880)) - X(727) = (X(727)-JVS(2876)*X(2202)-JVS(2877)*X(3688)-JVS(2878)*X(5252)-JVS(2879)*X(5256))/(JVS(2875)) - X(726) = (X(726)-JVS(2871)*X(1373)-JVS(2872)*X(5039)-JVS(2873)*X(5252)-JVS(2874)*X(5256))/(JVS(2870)) - X(725) = (X(725)-JVS(2868)*X(4459)-JVS(2869)*X(5250))/(JVS(2867)) - X(724) = (X(724)-JVS(2863)*X(1900)-JVS(2864)*X(5122)-JVS(2865)*X(5252)-JVS(2866)*X(5256))/(JVS(2862)) - X(723) = (X(723)-JVS(2860)*X(3508)-JVS(2861)*X(5258))/(JVS(2859)) - X(722) = (X(722)-JVS(2855)*X(2052)-JVS(2856)*X(4349)-JVS(2857)*X(5252)-JVS(2858)*X(5256))/(JVS(2854)) - X(721) = (X(721)-JVS(2850)*X(1973)-JVS(2851)*X(3927)-JVS(2852)*X(5252)-JVS(2853)*X(5256))/(JVS(2849)) - X(720) = (X(720)-JVS(2845)*X(1836)-JVS(2846)*X(4483)-JVS(2847)*X(5252)-JVS(2848)*X(5256))/(JVS(2844)) - X(719) = (X(719)-JVS(2842)*X(4605)-JVS(2843)*X(5258))/(JVS(2841)) - X(718) = (X(718)-JVS(2839)*X(3506)-JVS(2840)*X(5258))/(JVS(2838)) - X(717) = (X(717)-JVS(2834)*X(2900)-JVS(2835)*X(3810)-JVS(2836)*X(5252)-JVS(2837)*X(5256))/(JVS(2833)) - X(716) = (X(716)-JVS(2829)*X(2446)-JVS(2830)*X(3762)-JVS(2831)*X(5252)-JVS(2832)*X(5256))/(JVS(2828)) - X(715) = (X(715)-JVS(2824)*X(5166)-JVS(2825)*X(5204)-JVS(2826)*X(5224)-JVS(2827)*X(5250))/(JVS(2823)) - X(714) = (X(714)-JVS(2819)*X(1932)-JVS(2820)*X(4340)-JVS(2821)*X(5252)-JVS(2822)*X(5256))/(JVS(2818)) - X(713) = (X(713)-JVS(2816)*X(3897)-JVS(2817)*X(5250))/(JVS(2815)) - X(712) = (X(712)-JVS(2811)*X(2454)-JVS(2812)*X(3692)-JVS(2813)*X(5252)-JVS(2814)*X(5256))/(JVS(2810)) - X(711) = (X(711)-JVS(2806)*X(3196)-JVS(2807)*X(4558)-JVS(2808)*X(5252)-JVS(2809)*X(5256))/(JVS(2805)) - X(710) = (X(710)-JVS(2801)*X(2920)-JVS(2802)*X(4857)-JVS(2803)*X(5252)-JVS(2804)*X(5256))/(JVS(2800)) - X(709) = (X(709)-JVS(2796)*X(4843)-JVS(2797)*X(4847)-JVS(2798)*X(5250)-JVS(2799)*X(5255))/(JVS(2795)) - X(708) = (X(708)-JVS(2791)*X(2727)-JVS(2792)*X(4144)-JVS(2793)*X(5252)-JVS(2794)*X(5256))/(JVS(2790)) - X(707) = (X(707)-JVS(2786)*X(3263)-JVS(2787)*X(5250)-JVS(2788)*X(5255)-JVS(2789)*X(5256))/(JVS(2785)) - X(706) = (X(706)-JVS(2781)*X(3231)-JVS(2782)*X(4856)-JVS(2783)*X(5252)-JVS(2784)*X(5256))/(JVS(2780)) - X(705) = (X(705)-JVS(2778)*X(3494)-JVS(2779)*X(5258))/(JVS(2777)) - X(704) = (X(704)-JVS(2773)*X(2062)-JVS(2774)*X(4538)-JVS(2775)*X(5252)-JVS(2776)*X(5256))/(JVS(2772)) - X(703) = (X(703)-JVS(2768)*X(2439)-JVS(2769)*X(4762)-JVS(2770)*X(5252)-JVS(2771)*X(5256))/(JVS(2767)) - X(702) = (X(702)-JVS(2763)*X(5166)-JVS(2764)*X(5217)-JVS(2765)*X(5219)-JVS(2766)*X(5250))/(JVS(2762)) - X(701) = (X(701)-JVS(2760)*X(5024)-JVS(2761)*X(5258))/(JVS(2759)) - X(700) = (X(700)-JVS(2757)*X(3684)-JVS(2758)*X(5258))/(JVS(2756)) - X(699) = (X(699)-JVS(2754)*X(4825)-JVS(2755)*X(5250))/(JVS(2753)) - X(698) = (X(698)-JVS(2749)*X(2059)-JVS(2750)*X(4389)-JVS(2751)*X(5252)-JVS(2752)*X(5256))/(JVS(2748)) - X(697) = (X(697)-JVS(2744)*X(2380)-JVS(2745)*X(5019)-JVS(2746)*X(5252)-JVS(2747)*X(5256))/(JVS(2743)) - X(696) = (X(696)-JVS(2741)*X(4350)-JVS(2742)*X(5250))/(JVS(2740)) - X(695) = (X(695)-JVS(2736)*X(2300)-JVS(2737)*X(4820)-JVS(2738)*X(5252)-JVS(2739)*X(5256))/(JVS(2735)) - X(694) = (X(694)-JVS(2733)*X(4249)-JVS(2734)*X(5250))/(JVS(2732)) - X(693) = (X(693)-JVS(2728)*X(2107)-JVS(2729)*X(4929)-JVS(2730)*X(5252)-JVS(2731)*X(5256))/(JVS(2727)) - X(692) = (X(692)-JVS(2725)*X(3928)-JVS(2726)*X(5250))/(JVS(2724)) - X(691) = (X(691)-JVS(2720)*X(4956)-JVS(2721)*X(5125)-JVS(2722)*X(5250)-JVS(2723)*X(5255))/(JVS(2719)) - X(690) = (X(690)-JVS(2717)*X(3848)-JVS(2718)*X(5250))/(JVS(2716)) - X(689) = (X(689)-JVS(2712)*X(3287)-JVS(2713)*X(4126)-JVS(2714)*X(5252)-JVS(2715)*X(5256))/(JVS(2711)) - X(688) = (X(688)-JVS(2707)*X(2836)-JVS(2708)*X(4756)-JVS(2709)*X(5252)-JVS(2710)*X(5256))/(JVS(2706)) - X(687) = (X(687)-JVS(2702)*X(3006)-JVS(2703)*X(4371)-JVS(2704)*X(5252)-JVS(2705)*X(5256))/(JVS(2701)) - X(686) = (X(686)-JVS(2699)*X(5153)-JVS(2700)*X(5258))/(JVS(2698)) - X(685) = (X(685)-JVS(2696)*X(5166)-JVS(2697)*X(5258))/(JVS(2695)) - X(684) = (X(684)-JVS(2693)*X(5226)-JVS(2694)*X(5258))/(JVS(2692)) - X(683) = (X(683)-JVS(2690)*X(4701)-JVS(2691)*X(5250))/(JVS(2689)) - X(682) = (X(682)-JVS(2685)*X(2428)-JVS(2686)*X(4446)-JVS(2687)*X(5252)-JVS(2688)*X(5256))/(JVS(2684)) - X(681) = (X(681)-JVS(2682)*X(4699)-JVS(2683)*X(5250))/(JVS(2681)) - X(680) = (X(680)-JVS(2677)*X(1269)-JVS(2678)*X(3344)-JVS(2679)*X(5223)-JVS(2680)*X(5250))/(JVS(2676)) - X(679) = (X(679)-JVS(2671)*X(2305)-JVS(2672)*X(4145)-JVS(2673)*X(5252)-JVS(2674)*X(5256))/(JVS(2670)) - X(678) = (X(678)-JVS(2668)*X(4113)-JVS(2669)*X(5250))/(JVS(2667)) - X(677) = (X(677)-JVS(2663)*X(3244)-JVS(2664)*X(5250)-JVS(2665)*X(5255)-JVS(2666)*X(5256))/(JVS(2662)) - X(676) = (X(676)-JVS(2660)*X(3499)-JVS(2661)*X(5258))/(JVS(2659)) - X(675) = (X(675)-JVS(2657)*X(5119)-JVS(2658)*X(5250))/(JVS(2656)) - X(674) = (X(674)-JVS(2652)*X(2730)-JVS(2653)*X(4911)-JVS(2654)*X(5252)-JVS(2655)*X(5256))/(JVS(2651)) - X(673) = (X(673)-JVS(2647)*X(1862)-JVS(2648)*X(3844)-JVS(2649)*X(5252)-JVS(2650)*X(5256))/(JVS(2646)) - X(672) = (X(672)-JVS(2642)*X(2360)-JVS(2643)*X(3954)-JVS(2644)*X(5252)-JVS(2645)*X(5256))/(JVS(2641)) - X(671) = (X(671)-JVS(2639)*X(4712)-JVS(2640)*X(5250))/(JVS(2638)) - X(670) = (X(670)-JVS(2634)*X(1844)-JVS(2635)*X(3943)-JVS(2636)*X(5252)-JVS(2637)*X(5256))/(JVS(2633)) - X(669) = (X(669)-JVS(2629)*X(1999)-JVS(2630)*X(4804)-JVS(2631)*X(5252)-JVS(2632)*X(5256))/(JVS(2628)) - X(668) = (X(668)-JVS(2626)*X(5250)-JVS(2627)*X(5256))/(JVS(2625)) - X(667) = (X(667)-JVS(2623)*X(3883)-JVS(2624)*X(5250))/(JVS(2622)) - X(666) = (X(666)-JVS(2618)*X(3314)-JVS(2619)*X(4594)-JVS(2620)*X(5252)-JVS(2621)*X(5256))/(JVS(2617)) - X(665) = (X(665)-JVS(2613)*X(3049)-JVS(2614)*X(4730)-JVS(2615)*X(5252)-JVS(2616)*X(5256))/(JVS(2612)) - X(664) = (X(664)-JVS(2610)*X(4697)-JVS(2611)*X(5250))/(JVS(2609)) - X(663) = (X(663)-JVS(2605)*X(2266)-JVS(2606)*X(3966)-JVS(2607)*X(5252)-JVS(2608)*X(5256))/(JVS(2604)) - X(662) = (X(662)-JVS(2602)*X(3949)-JVS(2603)*X(5250))/(JVS(2601)) - X(661) = (X(661)-JVS(2599)*X(3898)-JVS(2600)*X(5250))/(JVS(2598)) - X(660) = (X(660)-JVS(2594)*X(2053)-JVS(2595)*X(3739)-JVS(2596)*X(5252)-JVS(2597)*X(5256))/(JVS(2593)) - X(659) = (X(659)-JVS(2591)*X(4141)-JVS(2592)*X(5250))/(JVS(2590)) - X(658) = (X(658)-JVS(2586)*X(1950)-JVS(2587)*X(5028)-JVS(2588)*X(5252)-JVS(2589)*X(5256))/(JVS(2585)) - X(657) = (X(657)-JVS(2583)*X(4142)-JVS(2584)*X(5250))/(JVS(2582)) - X(656) = (X(656)-JVS(2578)*X(2695)-JVS(2579)*X(4341)-JVS(2580)*X(5252)-JVS(2581)*X(5256))/(JVS(2577)) - X(655) = (X(655)-JVS(2573)*X(1784)-JVS(2574)*X(4875)-JVS(2575)*X(5252)-JVS(2576)*X(5256))/(JVS(2572)) - X(654) = (X(654)-JVS(2568)*X(2497)-JVS(2569)*X(4774)-JVS(2570)*X(5252)-JVS(2571)*X(5256))/(JVS(2567)) - X(653) = (X(653)-JVS(2564)*X(3733)-JVS(2565)*X(5250)-JVS(2566)*X(5255))/(JVS(2563)) - X(652) = (X(652)-JVS(2559)*X(653)-JVS(2560)*X(840)-JVS(2561)*X(3733)-JVS(2562)*X(5250))/(JVS(2558)) - X(651) = (X(651)-JVS(2555)*X(4704)-JVS(2556)*X(5250))/(JVS(2554)) - X(650) = (X(650)-JVS(2552)*X(3974)-JVS(2553)*X(5250))/(JVS(2551)) - X(649) = (X(649)-JVS(2547)*X(1990)-JVS(2548)*X(3969)-JVS(2549)*X(5252)-JVS(2550)*X(5256))/(JVS(2546)) - X(648) = (X(648)-JVS(2542)*X(1926)-JVS(2543)*X(4343)-JVS(2544)*X(5252)-JVS(2545)*X(5256))/(JVS(2541)) - X(647) = (X(647)-JVS(2539)*X(4575)-JVS(2540)*X(5250))/(JVS(2538)) - X(646) = (X(646)-JVS(2534)*X(2178)-JVS(2535)*X(3971)-JVS(2536)*X(5252)-JVS(2537)*X(5256))/(JVS(2533)) - X(645) = (X(645)-JVS(2529)*X(2289)-JVS(2530)*X(3864)-JVS(2531)*X(5252)-JVS(2532)*X(5256))/(JVS(2528)) - X(644) = (X(644)-JVS(2524)*X(2111)-JVS(2525)*X(4497)-JVS(2526)*X(5252)-JVS(2527)*X(5256))/(JVS(2523)) - X(643) = (X(643)-JVS(2519)*X(2153)-JVS(2520)*X(4477)-JVS(2521)*X(5252)-JVS(2522)*X(5256))/(JVS(2518)) - X(642) = (X(642)-JVS(2514)*X(4906)-JVS(2515)*X(5128)-JVS(2516)*X(5250)-JVS(2517)*X(5255))/(JVS(2513)) - X(641) = (X(641)-JVS(2509)*X(2923)-JVS(2510)*X(4920)-JVS(2511)*X(5252)-JVS(2512)*X(5256))/(JVS(2508)) - X(640) = (X(640)-JVS(2506)*X(4600)-JVS(2507)*X(5258))/(JVS(2505)) - X(639) = (X(639)-JVS(2501)*X(1911)-JVS(2502)*X(3867)-JVS(2503)*X(5252)-JVS(2504)*X(5256))/(JVS(2500)) - X(638) = (X(638)-JVS(2496)*X(2625)-JVS(2497)*X(4811)-JVS(2498)*X(5252)-JVS(2499)*X(5256))/(JVS(2495)) - X(637) = (X(637)-JVS(2491)*X(2080)-JVS(2492)*X(4724)-JVS(2493)*X(5252)-JVS(2494)*X(5256))/(JVS(2490)) - X(636) = (X(636)-JVS(2488)*X(4573)-JVS(2489)*X(5250))/(JVS(2487)) - X(635) = (X(635)-JVS(2483)*X(2065)-JVS(2484)*X(3940)-JVS(2485)*X(5252)-JVS(2486)*X(5256))/(JVS(2482)) - X(634) = (X(634)-JVS(2480)*X(3817)-JVS(2481)*X(5250))/(JVS(2479)) - X(633) = (X(633)-JVS(2477)*X(4597)-JVS(2478)*X(5250))/(JVS(2476)) - X(632) = (X(632)-JVS(2472)*X(2151)-JVS(2473)*X(4290)-JVS(2474)*X(5252)-JVS(2475)*X(5256))/(JVS(2471)) - X(631) = (X(631)-JVS(2467)*X(4868)-JVS(2468)*X(5106)-JVS(2469)*X(5250)-JVS(2470)*X(5255))/(JVS(2466)) - X(630) = (X(630)-JVS(2462)*X(3207)-JVS(2463)*X(4698)-JVS(2464)*X(5252)-JVS(2465)*X(5256))/(JVS(2461)) - X(629) = (X(629)-JVS(2457)*X(2342)-JVS(2458)*X(4323)-JVS(2459)*X(5252)-JVS(2460)*X(5256))/(JVS(2456)) - X(628) = (X(628)-JVS(2454)*X(3545)-JVS(2455)*X(5258))/(JVS(2453)) - X(627) = (X(627)-JVS(2449)*X(3219)-JVS(2450)*X(5250)-JVS(2451)*X(5255)-JVS(2452)*X(5256))/(JVS(2448)) - X(626) = (X(626)-JVS(2446)*X(2617)-JVS(2447)*X(5250))/(JVS(2445)) - X(625) = (X(625)-JVS(2441)*X(2312)-JVS(2442)*X(4315)-JVS(2443)*X(5252)-JVS(2444)*X(5256))/(JVS(2440)) - X(624) = (X(624)-JVS(2436)*X(2160)-JVS(2437)*X(3963)-JVS(2438)*X(5252)-JVS(2439)*X(5256))/(JVS(2435)) - X(623) = (X(623)-JVS(2431)*X(3702)-JVS(2432)*X(4992)-JVS(2433)*X(5252)-JVS(2434)*X(5256))/(JVS(2430)) - X(622) = (X(622)-JVS(2428)*X(4165)-JVS(2429)*X(5250))/(JVS(2427)) - X(621) = (X(621)-JVS(2425)*X(3988)-JVS(2426)*X(5250))/(JVS(2424)) - X(620) = (X(620)-JVS(2420)*X(1861)-JVS(2421)*X(3696)-JVS(2422)*X(5252)-JVS(2423)*X(5256))/(JVS(2419)) - X(619) = (X(619)-JVS(2415)*X(2022)-JVS(2416)*X(4135)-JVS(2417)*X(5252)-JVS(2418)*X(5256))/(JVS(2414)) - X(618) = (X(618)-JVS(2410)*X(1868)-JVS(2411)*X(4176)-JVS(2412)*X(5252)-JVS(2413)*X(5256))/(JVS(2409)) - X(617) = (X(617)-JVS(2405)*X(2217)-JVS(2406)*X(3984)-JVS(2407)*X(5252)-JVS(2408)*X(5256))/(JVS(2404)) - X(616) = (X(616)-JVS(2402)*X(4713)-JVS(2403)*X(5250))/(JVS(2401)) - X(615) = (X(615)-JVS(2397)*X(2503)-JVS(2398)*X(5007)-JVS(2399)*X(5252)-JVS(2400)*X(5256))/(JVS(2396)) - X(614) = (X(614)-JVS(2394)*X(3830)-JVS(2395)*X(5258))/(JVS(2393)) - X(613) = (X(613)-JVS(2389)*X(4622)-JVS(2390)*X(4919)-JVS(2391)*X(5250)-JVS(2392)*X(5255))/(JVS(2388)) - X(612) = (X(612)-JVS(2386)*X(5175)-JVS(2387)*X(5258))/(JVS(2385)) - X(611) = (X(611)-JVS(2381)*X(4838)-JVS(2382)*X(4944)-JVS(2383)*X(5250)-JVS(2384)*X(5255))/(JVS(2380)) - X(610) = (X(610)-JVS(2376)*X(2618)-JVS(2377)*X(4095)-JVS(2378)*X(5252)-JVS(2379)*X(5256))/(JVS(2375)) - X(609) = (X(609)-JVS(2373)*X(4164)-JVS(2374)*X(5250))/(JVS(2372)) - X(608) = (X(608)-JVS(2370)*X(4105)-JVS(2371)*X(5250))/(JVS(2369)) - X(607) = (X(607)-JVS(2365)*X(5118)-JVS(2366)*X(5166)-JVS(2367)*X(5224)-JVS(2368)*X(5250))/(JVS(2364)) - X(606) = (X(606)-JVS(2360)*X(5166)-JVS(2361)*X(5218)-JVS(2362)*X(5219)-JVS(2363)*X(5250))/(JVS(2359)) - X(605) = (X(605)-JVS(2355)*X(3214)-JVS(2356)*X(4669)-JVS(2357)*X(5252)-JVS(2358)*X(5256))/(JVS(2354)) - X(604) = (X(604)-JVS(2352)*X(4492)-JVS(2353)*X(5258))/(JVS(2351)) - X(603) = (X(603)-JVS(2347)*X(4862)-JVS(2348)*X(5252)-JVS(2349)*X(5255)-JVS(2350)*X(5256))/(JVS(2346)) - X(602) = (X(602)-JVS(2344)*X(3917)-JVS(2345)*X(5250))/(JVS(2343)) - X(601) = (X(601)-JVS(2341)*X(5238)-JVS(2342)*X(5250))/(JVS(2340)) - X(600) = (X(600)-JVS(2336)*X(2424)-JVS(2337)*X(4169)-JVS(2338)*X(5252)-JVS(2339)*X(5256))/(JVS(2335)) - X(599) = (X(599)-JVS(2333)*X(5198)-JVS(2334)*X(5250))/(JVS(2332)) - X(598) = (X(598)-JVS(2330)*X(5181)-JVS(2331)*X(5250))/(JVS(2329)) - X(597) = (X(597)-JVS(2325)*X(2368)-JVS(2326)*X(4153)-JVS(2327)*X(5252)-JVS(2328)*X(5256))/(JVS(2324)) - X(596) = (X(596)-JVS(2320)*X(1937)-JVS(2321)*X(3912)-JVS(2322)*X(5252)-JVS(2323)*X(5256))/(JVS(2319)) - X(595) = (X(595)-JVS(2315)*X(1917)-JVS(2316)*X(4589)-JVS(2317)*X(5252)-JVS(2318)*X(5256))/(JVS(2314)) - X(594) = (X(594)-JVS(2311)*X(4077)-JVS(2312)*X(5250)-JVS(2313)*X(5255))/(JVS(2310)) - X(593) = (X(593)-JVS(2306)*X(594)-JVS(2307)*X(2515)-JVS(2308)*X(4077)-JVS(2309)*X(5250))/(JVS(2305)) - X(592) = (X(592)-JVS(2300)*X(1854)-JVS(2301)*X(4550)-JVS(2302)*X(5252)-JVS(2303)*X(5256))/(JVS(2299)) - X(591) = (X(591)-JVS(2297)*X(3653)-JVS(2298)*X(5250))/(JVS(2296)) - X(590) = (X(590)-JVS(2294)*X(4735)-JVS(2295)*X(5250))/(JVS(2293)) - X(589) = (X(589)-JVS(2289)*X(2137)-JVS(2290)*X(4813)-JVS(2291)*X(5252)-JVS(2292)*X(5256))/(JVS(2288)) - X(588) = (X(588)-JVS(2286)*X(5238)-JVS(2287)*X(5250))/(JVS(2285)) - X(587) = (X(587)-JVS(2283)*X(3876)-JVS(2284)*X(5250))/(JVS(2282)) - X(586) = (X(586)-JVS(2280)*X(4646)-JVS(2281)*X(5250))/(JVS(2279)) - X(585) = (X(585)-JVS(2275)*X(1863)-JVS(2276)*X(4761)-JVS(2277)*X(5252)-JVS(2278)*X(5256))/(JVS(2274)) - X(584) = (X(584)-JVS(2270)*X(2417)-JVS(2271)*X(4416)-JVS(2272)*X(5252)-JVS(2273)*X(5256))/(JVS(2269)) - X(583) = (X(583)-JVS(2267)*X(4190)-JVS(2268)*X(5250))/(JVS(2266)) - X(582) = (X(582)-JVS(2262)*X(1888)-JVS(2263)*X(4268)-JVS(2264)*X(5252)-JVS(2265)*X(5256))/(JVS(2261)) - X(581) = (X(581)-JVS(2257)*X(2404)-JVS(2258)*X(4560)-JVS(2259)*X(5252)-JVS(2260)*X(5256))/(JVS(2256)) - X(580) = (X(580)-JVS(2254)*X(4541)-JVS(2255)*X(5250))/(JVS(2253)) - X(579) = (X(579)-JVS(2251)*X(3755)-JVS(2252)*X(5250))/(JVS(2250)) - X(578) = (X(578)-JVS(2246)*X(3198)-JVS(2247)*X(3888)-JVS(2248)*X(4585)-JVS(2249)*X(5250))/(JVS(2245)) - X(577) = (X(577)-JVS(2243)*X(3836)-JVS(2244)*X(5250))/(JVS(2242)) - X(576) = (X(576)-JVS(2240)*X(4703)-JVS(2241)*X(5250))/(JVS(2239)) - X(575) = (X(575)-JVS(2235)*X(2221)-JVS(2236)*X(4355)-JVS(2237)*X(5252)-JVS(2238)*X(5256))/(JVS(2234)) - X(574) = (X(574)-JVS(2230)*X(2205)-JVS(2231)*X(3880)-JVS(2232)*X(5252)-JVS(2233)*X(5256))/(JVS(2229)) - X(573) = (X(573)-JVS(2225)*X(2068)-JVS(2226)*X(3671)-JVS(2227)*X(5252)-JVS(2228)*X(5256))/(JVS(2224)) - X(572) = (X(572)-JVS(2222)*X(4277)-JVS(2223)*X(5250))/(JVS(2221)) - X(571) = (X(571)-JVS(2217)*X(2095)-JVS(2218)*X(3871)-JVS(2219)*X(5252)-JVS(2220)*X(5256))/(JVS(2216)) - X(570) = (X(570)-JVS(2212)*X(2121)-JVS(2213)*X(4361)-JVS(2214)*X(5252)-JVS(2215)*X(5256))/(JVS(2211)) - X(569) = (X(569)-JVS(2209)*X(3512)-JVS(2210)*X(5258))/(JVS(2208)) - X(568) = (X(568)-JVS(2206)*X(3831)-JVS(2207)*X(5258))/(JVS(2205)) - X(567) = (X(567)-JVS(2203)*X(4343)-JVS(2204)*X(5250))/(JVS(2202)) - X(566) = (X(566)-JVS(2200)*X(5238)-JVS(2201)*X(5250))/(JVS(2199)) - X(565) = (X(565)-JVS(2197)*X(4821)-JVS(2198)*X(5250))/(JVS(2196)) - X(564) = (X(564)-JVS(2192)*X(3078)-JVS(2193)*X(4584)-JVS(2194)*X(5252)-JVS(2195)*X(5256))/(JVS(2191)) - X(563) = (X(563)-JVS(2189)*X(5168)-JVS(2190)*X(5258))/(JVS(2188)) - X(562) = (X(562)-JVS(2185)*X(3720)-JVS(2186)*X(5250)-JVS(2187)*X(5255))/(JVS(2184)) - X(561) = (X(561)-JVS(2180)*X(562)-JVS(2181)*X(1284)-JVS(2182)*X(3720)-JVS(2183)*X(5250))/(JVS(2179)) - X(560) = (X(560)-JVS(2176)*X(3551)-JVS(2177)*X(5258))/(JVS(2175)) - X(559) = (X(559)-JVS(2173)*X(4346)-JVS(2174)*X(5250))/(JVS(2172)) - X(558) = (X(558)-JVS(2170)*X(4096)-JVS(2171)*X(5258))/(JVS(2169)) - X(557) = (X(557)-JVS(2165)*X(1935)-JVS(2166)*X(4158)-JVS(2167)*X(5252)-JVS(2168)*X(5256))/(JVS(2164)) - X(556) = (X(556)-JVS(2162)*X(3850)-JVS(2163)*X(5250))/(JVS(2161)) - X(555) = (X(555)-JVS(2157)*X(2091)-JVS(2158)*X(4025)-JVS(2159)*X(5252)-JVS(2160)*X(5256))/(JVS(2156)) - X(554) = (X(554)-JVS(2154)*X(4128)-JVS(2155)*X(5250))/(JVS(2153)) - X(553) = (X(553)-JVS(2149)*X(2017)-JVS(2150)*X(4150)-JVS(2151)*X(5252)-JVS(2152)*X(5256))/(JVS(2148)) - X(552) = (X(552)-JVS(2144)*X(969)-JVS(2145)*X(3636)-JVS(2146)*X(5252)-JVS(2147)*X(5256))/(JVS(2143)) - X(551) = (X(551)-JVS(2139)*X(2466)-JVS(2140)*X(4889)-JVS(2141)*X(5252)-JVS(2142)*X(5256))/(JVS(2138)) - X(550) = (X(550)-JVS(2134)*X(2267)-JVS(2135)*X(3687)-JVS(2136)*X(5252)-JVS(2137)*X(5256))/(JVS(2133)) - X(549) = (X(549)-JVS(2129)*X(2407)-JVS(2130)*X(3872)-JVS(2131)*X(5252)-JVS(2132)*X(5256))/(JVS(2128)) - X(548) = (X(548)-JVS(2126)*X(5238)-JVS(2127)*X(5250))/(JVS(2125)) - X(547) = (X(547)-JVS(2123)*X(5130)-JVS(2124)*X(5250))/(JVS(2122)) - X(546) = (X(546)-JVS(2120)*X(3885)-JVS(2121)*X(5250))/(JVS(2119)) - X(545) = (X(545)-JVS(2115)*X(1759)-JVS(2116)*X(4274)-JVS(2117)*X(5252)-JVS(2118)*X(5256))/(JVS(2114)) - X(544) = (X(544)-JVS(2110)*X(2437)-JVS(2111)*X(4116)-JVS(2112)*X(5252)-JVS(2113)*X(5256))/(JVS(2109)) - X(543) = (X(543)-JVS(2107)*X(3895)-JVS(2108)*X(5250))/(JVS(2106)) - X(542) = (X(542)-JVS(2104)*X(2482)-JVS(2105)*X(5250))/(JVS(2103)) - X(541) = (X(541)-JVS(2099)*X(2423)-JVS(2100)*X(3905)-JVS(2101)*X(5252)-JVS(2102)*X(5256))/(JVS(2098)) - X(540) = (X(540)-JVS(2096)*X(3994)-JVS(2097)*X(5250))/(JVS(2095)) - X(539) = (X(539)-JVS(2091)*X(2316)-JVS(2092)*X(3977)-JVS(2093)*X(5252)-JVS(2094)*X(5256))/(JVS(2090)) - X(538) = (X(538)-JVS(2088)*X(3701)-JVS(2089)*X(5258))/(JVS(2087)) - X(537) = (X(537)-JVS(2083)*X(1890)-JVS(2084)*X(4226)-JVS(2085)*X(5252)-JVS(2086)*X(5256))/(JVS(2082)) - X(536) = (X(536)-JVS(2080)*X(3990)-JVS(2081)*X(5250))/(JVS(2079)) - X(535) = (X(535)-JVS(2075)*X(1943)-JVS(2076)*X(4163)-JVS(2077)*X(5252)-JVS(2078)*X(5256))/(JVS(2074)) - X(534) = (X(534)-JVS(2070)*X(2016)-JVS(2071)*X(3941)-JVS(2072)*X(5252)-JVS(2073)*X(5256))/(JVS(2069)) - X(533) = (X(533)-JVS(2065)*X(3514)-JVS(2066)*X(5016)-JVS(2067)*X(5252)-JVS(2068)*X(5256))/(JVS(2064)) - X(532) = (X(532)-JVS(2060)*X(2693)-JVS(2061)*X(4785)-JVS(2062)*X(5252)-JVS(2063)*X(5256))/(JVS(2059)) - X(531) = (X(531)-JVS(2057)*X(4928)-JVS(2058)*X(5250))/(JVS(2056)) - X(530) = (X(530)-JVS(2054)*X(4117)-JVS(2055)*X(5250))/(JVS(2053)) - X(529) = (X(529)-JVS(2051)*X(5069)-JVS(2052)*X(5258))/(JVS(2050)) - X(528) = (X(528)-JVS(2046)*X(2411)-JVS(2047)*X(3916)-JVS(2048)*X(5252)-JVS(2049)*X(5256))/(JVS(2045)) - X(527) = (X(527)-JVS(2043)*X(3750)-JVS(2044)*X(5250))/(JVS(2042)) - X(526) = (X(526)-JVS(2040)*X(4189)-JVS(2041)*X(5250))/(JVS(2039)) - X(525) = (X(525)-JVS(2037)*X(3731)-JVS(2038)*X(5250))/(JVS(2036)) - X(524) = (X(524)-JVS(2034)*X(3691)-JVS(2035)*X(5250))/(JVS(2033)) - X(523) = (X(523)-JVS(2031)*X(4055)-JVS(2032)*X(5250))/(JVS(2030)) - X(522) = (X(522)-JVS(2028)*X(5207)-JVS(2029)*X(5258))/(JVS(2027)) - X(521) = (X(521)-JVS(2024)*X(3675)-JVS(2025)*X(5250)-JVS(2026)*X(5255))/(JVS(2023)) - X(520) = (X(520)-JVS(2021)*X(4157)-JVS(2022)*X(5250))/(JVS(2020)) - X(519) = (X(519)-JVS(2017)*X(4523)-JVS(2018)*X(5250)-JVS(2019)*X(5255))/(JVS(2016)) - X(518) = (X(518)-JVS(2013)*X(3699)-JVS(2014)*X(5250)-JVS(2015)*X(5255))/(JVS(2012)) - X(517) = (X(517)-JVS(2010)*X(4399)-JVS(2011)*X(5250))/(JVS(2009)) - X(516) = (X(516)-JVS(2007)*X(4089)-JVS(2008)*X(5250))/(JVS(2006)) - X(515) = (X(515)-JVS(2003)*X(5044)-JVS(2004)*X(5250)-JVS(2005)*X(5255))/(JVS(2002)) - X(514) = (X(514)-JVS(2000)*X(4794)-JVS(2001)*X(5258))/(JVS(1999)) - X(513) = (X(513)-JVS(1997)*X(4920)-JVS(1998)*X(5250))/(JVS(1996)) - X(512) = (X(512)-JVS(1994)*X(4612)-JVS(1995)*X(5250))/(JVS(1993)) - X(511) = (X(511)-JVS(1991)*X(3890)-JVS(1992)*X(5250))/(JVS(1990)) - X(510) = (X(510)-JVS(1987)*X(1359)-JVS(1988)*X(3983)-JVS(1989)*X(5250))/(JVS(1986)) - X(509) = (X(509)-JVS(1983)*X(3983)-JVS(1984)*X(5250))/(JVS(1982)) - X(508) = (X(508)-JVS(1979)*X(3710)-JVS(1980)*X(5250)-JVS(1981)*X(5255))/(JVS(1978)) - X(507) = (X(507)-JVS(1975)*X(4738)-JVS(1976)*X(5250)-JVS(1977)*X(5255))/(JVS(1974)) - X(506) = (X(506)-JVS(1971)*X(4636)-JVS(1972)*X(5250)-JVS(1973)*X(5255))/(JVS(1970)) - X(505) = (X(505)-JVS(1968)*X(3819)-JVS(1969)*X(5250))/(JVS(1967)) - X(504) = (X(504)-JVS(1965)*X(5061)-JVS(1966)*X(5250))/(JVS(1964)) - X(503) = (X(503)-JVS(1961)*X(4139)-JVS(1962)*X(5250)-JVS(1963)*X(5255))/(JVS(1960)) - X(502) = (X(502)-JVS(1958)*X(3706)-JVS(1959)*X(5250))/(JVS(1957)) - X(501) = (X(501)-JVS(1955)*X(3952)-JVS(1956)*X(5250))/(JVS(1954)) - X(500) = (X(500)-JVS(1952)*X(4820)-JVS(1953)*X(5250))/(JVS(1951)) - X(499) = (X(499)-JVS(1948)*X(4770)-JVS(1949)*X(5250)-JVS(1950)*X(5255))/(JVS(1947)) - X(498) = (X(498)-JVS(1945)*X(4374)-JVS(1946)*X(5250))/(JVS(1944)) - X(497) = (X(497)-JVS(1942)*X(4785)-JVS(1943)*X(5250))/(JVS(1941)) - X(496) = (X(496)-JVS(1938)*X(4989)-JVS(1939)*X(5250)-JVS(1940)*X(5255))/(JVS(1937)) - X(495) = (X(495)-JVS(1935)*X(5192)-JVS(1936)*X(5250))/(JVS(1934)) - X(494) = (X(494)-JVS(1932)*X(4776)-JVS(1933)*X(5250))/(JVS(1931)) - X(493) = (X(493)-JVS(1929)*X(4119)-JVS(1930)*X(5250))/(JVS(1928)) - X(492) = (X(492)-JVS(1925)*X(5006)-JVS(1926)*X(5250)-JVS(1927)*X(5255))/(JVS(1924)) - X(491) = (X(491)-JVS(1921)*X(3740)-JVS(1922)*X(5250)-JVS(1923)*X(5255))/(JVS(1920)) - X(490) = (X(490)-JVS(1917)*X(491)-JVS(1918)*X(3740)-JVS(1919)*X(5250))/(JVS(1916)) - X(489) = (X(489)-JVS(1912)*X(5052)-JVS(1913)*X(5250)-JVS(1914)*X(5255))/(JVS(1911)) - X(488) = (X(488)-JVS(1908)*X(3873)-JVS(1909)*X(3989)-JVS(1910)*X(5250))/(JVS(1907)) - X(487) = (X(487)-JVS(1905)*X(4568)-JVS(1906)*X(5250))/(JVS(1904)) - X(486) = (X(486)-JVS(1902)*X(5107)-JVS(1903)*X(5250))/(JVS(1901)) - X(485) = (X(485)-JVS(1899)*X(3696)-JVS(1900)*X(5250))/(JVS(1898)) - X(484) = (X(484)-JVS(1895)*X(4382)-JVS(1896)*X(4932)-JVS(1897)*X(5250))/(JVS(1894)) - X(483) = (X(483)-JVS(1891)*X(3474)-JVS(1892)*X(5250)-JVS(1893)*X(5253))/(JVS(1890)) - X(482) = (X(482)-JVS(1888)*X(4120)-JVS(1889)*X(5250))/(JVS(1887)) - X(481) = (X(481)-JVS(1885)*X(3908)-JVS(1886)*X(5250))/(JVS(1884)) - X(480) = (X(480)-JVS(1882)*X(3525)-JVS(1883)*X(5250))/(JVS(1881)) - X(479) = (X(479)-JVS(1878)*X(4934)-JVS(1879)*X(5250)-JVS(1880)*X(5255))/(JVS(1877)) - X(478) = (X(478)-JVS(1875)*X(3703)-JVS(1876)*X(5250))/(JVS(1874)) - X(477) = (X(477)-JVS(1872)*X(4601)-JVS(1873)*X(5258))/(JVS(1871)) - X(476) = (X(476)-JVS(1869)*X(3743)-JVS(1870)*X(5250))/(JVS(1868)) - X(475) = (X(475)-JVS(1866)*X(4400)-JVS(1867)*X(5250))/(JVS(1865)) - X(474) = (X(474)-JVS(1862)*X(4850)-JVS(1863)*X(5250)-JVS(1864)*X(5255))/(JVS(1861)) - X(473) = (X(473)-JVS(1859)*X(4614)-JVS(1860)*X(5250))/(JVS(1858)) - X(472) = (X(472)-JVS(1855)*X(508)-JVS(1856)*X(3710)-JVS(1857)*X(5250))/(JVS(1854)) - X(471) = (X(471)-JVS(1851)*X(4219)-JVS(1852)*X(5250))/(JVS(1850)) - X(470) = (X(470)-JVS(1847)*X(4839)-JVS(1848)*X(5250)-JVS(1849)*X(5255))/(JVS(1846)) - X(469) = (X(469)-JVS(1844)*X(3749)-JVS(1845)*X(5250))/(JVS(1843)) - X(468) = (X(468)-JVS(1841)*X(3751)-JVS(1842)*X(5250))/(JVS(1840)) - X(467) = (X(467)-JVS(1838)*X(4043)-JVS(1839)*X(5250))/(JVS(1837)) - X(466) = (X(466)-JVS(1835)*X(5045)-JVS(1836)*X(5250))/(JVS(1834)) - X(465) = (X(465)-JVS(1832)*X(4059)-JVS(1833)*X(5250))/(JVS(1831)) - X(464) = (X(464)-JVS(1829)*X(3807)-JVS(1830)*X(5250))/(JVS(1828)) - X(463) = (X(463)-JVS(1826)*X(5015)-JVS(1827)*X(5250))/(JVS(1825)) - X(462) = (X(462)-JVS(1823)*X(3901)-JVS(1824)*X(5250))/(JVS(1822)) - X(461) = (X(461)-JVS(1819)*X(4591)-JVS(1820)*X(5250)-JVS(1821)*X(5255))/(JVS(1818)) - X(460) = (X(460)-JVS(1816)*X(5138)-JVS(1817)*X(5250))/(JVS(1815)) - X(459) = (X(459)-JVS(1812)*X(3770)-JVS(1813)*X(5250)-JVS(1814)*X(5255))/(JVS(1811)) - X(458) = (X(458)-JVS(1809)*X(5173)-JVS(1810)*X(5250))/(JVS(1808)) - X(457) = (X(457)-JVS(1805)*X(4953)-JVS(1806)*X(5250)-JVS(1807)*X(5255))/(JVS(1804)) - X(456) = (X(456)-JVS(1801)*X(5090)-JVS(1802)*X(5250)-JVS(1803)*X(5255))/(JVS(1800)) - X(455) = (X(455)-JVS(1797)*X(518)-JVS(1798)*X(3699)-JVS(1799)*X(5250))/(JVS(1796)) - X(454) = (X(454)-JVS(1793)*X(3741)-JVS(1794)*X(5250))/(JVS(1792)) - X(453) = (X(453)-JVS(1790)*X(5112)-JVS(1791)*X(5250))/(JVS(1789)) - X(452) = (X(452)-JVS(1787)*X(5114)-JVS(1788)*X(5250))/(JVS(1786)) - X(451) = (X(451)-JVS(1784)*X(3644)-JVS(1785)*X(5250))/(JVS(1783)) - X(450) = (X(450)-JVS(1777)*X(931)-JVS(1778)*X(2892)-JVS(1779)*X(4124)-JVS(1780)*X(5250)-JVS(1781)*X(5252)-JVS(1782)& - &*X(5256))/(JVS(1776)) - X(449) = (X(449)-JVS(1772)*X(4665)-JVS(1773)*X(5250)-JVS(1774)*X(5255))/(JVS(1771)) - X(448) = (X(448)-JVS(1769)*X(3423)-JVS(1770)*X(5250))/(JVS(1768)) - X(447) = (X(447)-JVS(1766)*X(5238)-JVS(1767)*X(5250))/(JVS(1765)) - X(446) = (X(446)-JVS(1763)*X(3797)-JVS(1764)*X(5250))/(JVS(1762)) - X(445) = (X(445)-JVS(1756)*X(1207)-JVS(1757)*X(2534)-JVS(1758)*X(4099)-JVS(1759)*X(5250)-JVS(1760)*X(5252)-JVS(1761)& - &*X(5256))/(JVS(1755)) - X(444) = (X(444)-JVS(1752)*X(3776)-JVS(1753)*X(5250))/(JVS(1751)) - X(443) = (X(443)-JVS(1745)*X(1093)-JVS(1746)*X(2661)-JVS(1747)*X(4545)-JVS(1748)*X(5250)-JVS(1749)*X(5252)-JVS(1750)& - &*X(5256))/(JVS(1744)) - X(442) = (X(442)-JVS(1741)*X(4545)-JVS(1742)*X(5250))/(JVS(1740)) - X(441) = (X(441)-JVS(1738)*X(4172)-JVS(1739)*X(5250))/(JVS(1737)) - X(440) = (X(440)-JVS(1735)*X(5039)-JVS(1736)*X(5250))/(JVS(1734)) - X(439) = (X(439)-JVS(1732)*X(5206)-JVS(1733)*X(5250))/(JVS(1731)) - X(438) = (X(438)-JVS(1728)*X(4634)-JVS(1729)*X(5250)-JVS(1730)*X(5255))/(JVS(1727)) - X(437) = (X(437)-JVS(1725)*X(3718)-JVS(1726)*X(5250))/(JVS(1724)) - X(436) = (X(436)-JVS(1722)*X(3804)-JVS(1723)*X(5250))/(JVS(1721)) - X(435) = (X(435)-JVS(1718)*X(3869)-JVS(1719)*X(3967)-JVS(1720)*X(5250))/(JVS(1717)) - X(434) = (X(434)-JVS(1714)*X(5079)-JVS(1715)*X(5250)-JVS(1716)*X(5255))/(JVS(1713)) - X(433) = (X(433)-JVS(1710)*X(5054)-JVS(1711)*X(5250)-JVS(1712)*X(5255))/(JVS(1709)) - X(432) = (X(432)-JVS(1707)*X(3790)-JVS(1708)*X(5250))/(JVS(1706)) - X(431) = (X(431)-JVS(1704)*X(3492)-JVS(1705)*X(5250))/(JVS(1703)) - X(430) = (X(430)-JVS(1701)*X(4098)-JVS(1702)*X(5250))/(JVS(1700)) - X(429) = (X(429)-JVS(1698)*X(5065)-JVS(1699)*X(5250))/(JVS(1697)) - X(428) = (X(428)-JVS(1695)*X(3811)-JVS(1696)*X(5250))/(JVS(1694)) - X(427) = (X(427)-JVS(1692)*X(4789)-JVS(1693)*X(5250))/(JVS(1691)) - X(426) = (X(426)-JVS(1689)*X(5238)-JVS(1690)*X(5250))/(JVS(1688)) - X(425) = (X(425)-JVS(1686)*X(3778)-JVS(1687)*X(5250))/(JVS(1685)) - X(424) = (X(424)-JVS(1683)*X(4974)-JVS(1684)*X(5250))/(JVS(1682)) - X(423) = (X(423)-JVS(1679)*X(4181)-JVS(1680)*X(5250)-JVS(1681)*X(5255))/(JVS(1678)) - X(422) = (X(422)-JVS(1676)*X(3541)-JVS(1677)*X(5250))/(JVS(1675)) - X(421) = (X(421)-JVS(1669)*X(1082)-JVS(1670)*X(2964)-JVS(1671)*X(4878)-JVS(1672)*X(5250)-JVS(1673)*X(5252)-JVS(1674)& - &*X(5256))/(JVS(1668)) - X(420) = (X(420)-JVS(1664)*X(4662)-JVS(1665)*X(5250)-JVS(1666)*X(5255))/(JVS(1663)) - X(419) = (X(419)-JVS(1661)*X(4605)-JVS(1662)*X(5258))/(JVS(1660)) - X(418) = (X(418)-JVS(1658)*X(3845)-JVS(1659)*X(5250))/(JVS(1657)) - X(417) = (X(417)-JVS(1655)*X(4616)-JVS(1656)*X(5250))/(JVS(1654)) - X(416) = (X(416)-JVS(1652)*X(4995)-JVS(1653)*X(5250))/(JVS(1651)) - X(415) = (X(415)-JVS(1649)*X(4672)-JVS(1650)*X(5250))/(JVS(1648)) - X(414) = (X(414)-JVS(1645)*X(4234)-JVS(1646)*X(5250)-JVS(1647)*X(5255))/(JVS(1644)) - X(413) = (X(413)-JVS(1642)*X(4940)-JVS(1643)*X(5250))/(JVS(1641)) - X(412) = (X(412)-JVS(1639)*X(5146)-JVS(1640)*X(5250))/(JVS(1638)) - X(411) = (X(411)-JVS(1636)*X(4147)-JVS(1637)*X(5250))/(JVS(1635)) - X(410) = (X(410)-JVS(1633)*X(3722)-JVS(1634)*X(5250))/(JVS(1632)) - X(409) = (X(409)-JVS(1630)*X(3789)-JVS(1631)*X(5250))/(JVS(1629)) - X(408) = (X(408)-JVS(1627)*X(4360)-JVS(1628)*X(5250))/(JVS(1626)) - X(407) = (X(407)-JVS(1620)*X(1197)-JVS(1621)*X(3081)-JVS(1622)*X(4173)-JVS(1623)*X(5250)-JVS(1624)*X(5252)-JVS(1625)& - &*X(5256))/(JVS(1619)) - X(406) = (X(406)-JVS(1616)*X(4130)-JVS(1617)*X(5250))/(JVS(1615)) - X(405) = (X(405)-JVS(1612)*X(4240)-JVS(1613)*X(5250)-JVS(1614)*X(5255))/(JVS(1611)) - X(404) = (X(404)-JVS(1608)*X(405)-JVS(1609)*X(4240)-JVS(1610)*X(5250))/(JVS(1607)) - X(403) = (X(403)-JVS(1604)*X(4240)-JVS(1605)*X(5250))/(JVS(1603)) - X(402) = (X(402)-JVS(1601)*X(4069)-JVS(1602)*X(5250))/(JVS(1600)) - X(401) = (X(401)-JVS(1598)*X(5236)-JVS(1599)*X(5250))/(JVS(1597)) - X(400) = (X(400)-JVS(1595)*X(4166)-JVS(1596)*X(5250))/(JVS(1594)) - X(399) = (X(399)-JVS(1592)*X(3858)-JVS(1593)*X(5250))/(JVS(1591)) - X(398) = (X(398)-JVS(1588)*X(3697)-JVS(1589)*X(5250)-JVS(1590)*X(5255))/(JVS(1587)) - X(397) = (X(397)-JVS(1584)*X(398)-JVS(1585)*X(3697)-JVS(1586)*X(5250))/(JVS(1583)) - X(396) = (X(396)-JVS(1580)*X(3521)-JVS(1581)*X(5250))/(JVS(1579)) - X(395) = (X(395)-JVS(1577)*X(3733)-JVS(1578)*X(5250))/(JVS(1576)) - X(394) = (X(394)-JVS(1574)*X(4162)-JVS(1575)*X(5250))/(JVS(1573)) - X(393) = (X(393)-JVS(1570)*X(5008)-JVS(1571)*X(5250)-JVS(1572)*X(5255))/(JVS(1569)) - X(392) = (X(392)-JVS(1567)*X(4669)-JVS(1568)*X(5250))/(JVS(1566)) - X(391) = (X(391)-JVS(1564)*X(4107)-JVS(1565)*X(5250))/(JVS(1563)) - X(390) = (X(390)-JVS(1561)*X(4342)-JVS(1562)*X(5250))/(JVS(1560)) - X(389) = (X(389)-JVS(1557)*X(4338)-JVS(1558)*X(5250)-JVS(1559)*X(5255))/(JVS(1556)) - X(388) = (X(388)-JVS(1553)*X(4652)-JVS(1554)*X(5250)-JVS(1555)*X(5255))/(JVS(1552)) - X(387) = (X(387)-JVS(1549)*X(3461)-JVS(1550)*X(5250)-JVS(1551)*X(5253))/(JVS(1548)) - X(386) = (X(386)-JVS(1546)*X(4832)-JVS(1547)*X(5258))/(JVS(1545)) - X(385) = (X(385)-JVS(1543)*X(4890)-JVS(1544)*X(5250))/(JVS(1542)) - X(384) = (X(384)-JVS(1539)*X(4380)-JVS(1540)*X(5250)-JVS(1541)*X(5255))/(JVS(1538)) - X(383) = (X(383)-JVS(1536)*X(4942)-JVS(1537)*X(5250))/(JVS(1535)) - X(382) = (X(382)-JVS(1533)*X(4442)-JVS(1534)*X(5250))/(JVS(1532)) - X(381) = (X(381)-JVS(1530)*X(4610)-JVS(1531)*X(5250))/(JVS(1529)) - X(380) = (X(380)-JVS(1527)*X(5186)-JVS(1528)*X(5250))/(JVS(1526)) - X(379) = (X(379)-JVS(1523)*X(4994)-JVS(1524)*X(5250)-JVS(1525)*X(5255))/(JVS(1522)) - X(378) = (X(378)-JVS(1519)*X(4863)-JVS(1520)*X(5250)-JVS(1521)*X(5255))/(JVS(1518)) - X(377) = (X(377)-JVS(1516)*X(4176)-JVS(1517)*X(5250))/(JVS(1515)) - X(376) = (X(376)-JVS(1512)*X(4623)-JVS(1513)*X(5250)-JVS(1514)*X(5255))/(JVS(1511)) - X(375) = (X(375)-JVS(1508)*X(4752)-JVS(1509)*X(5250)-JVS(1510)*X(5255))/(JVS(1507)) - X(374) = (X(374)-JVS(1505)*X(4335)-JVS(1506)*X(5250))/(JVS(1504)) - X(373) = (X(373)-JVS(1501)*X(459)-JVS(1502)*X(3770)-JVS(1503)*X(5250))/(JVS(1500)) - X(372) = (X(372)-JVS(1497)*X(3699)-JVS(1498)*X(5250))/(JVS(1496)) - X(371) = (X(371)-JVS(1494)*X(5122)-JVS(1495)*X(5250))/(JVS(1493)) - X(370) = (X(370)-JVS(1488)*X(1007)-JVS(1489)*X(4201)-JVS(1490)*X(5250)-JVS(1491)*X(5252)-JVS(1492)*X(5256))& - &/(JVS(1487)) - X(369) = (X(369)-JVS(1484)*X(4201)-JVS(1485)*X(5250))/(JVS(1483)) - X(368) = (X(368)-JVS(1481)*X(4226)-JVS(1482)*X(5250))/(JVS(1480)) - X(367) = (X(367)-JVS(1477)*X(5245)-JVS(1478)*X(5250)-JVS(1479)*X(5255))/(JVS(1476)) - X(366) = (X(366)-JVS(1474)*X(4124)-JVS(1475)*X(5250))/(JVS(1473)) - X(365) = (X(365)-JVS(1471)*X(4173)-JVS(1472)*X(5250))/(JVS(1470)) - X(364) = (X(364)-JVS(1467)*X(5131)-JVS(1468)*X(5250)-JVS(1469)*X(5255))/(JVS(1466)) - X(363) = (X(363)-JVS(1463)*X(4836)-JVS(1464)*X(5250)-JVS(1465)*X(5255))/(JVS(1462)) - X(362) = (X(362)-JVS(1460)*X(4970)-JVS(1461)*X(5258))/(JVS(1459)) - X(361) = (X(361)-JVS(1457)*X(3823)-JVS(1458)*X(5250))/(JVS(1456)) - X(360) = (X(360)-JVS(1453)*X(4681)-JVS(1454)*X(5250)-JVS(1455)*X(5255))/(JVS(1452)) - X(359) = (X(359)-JVS(1450)*X(3710)-JVS(1451)*X(5250))/(JVS(1449)) - X(358) = (X(358)-JVS(1447)*X(4030)-JVS(1448)*X(5250))/(JVS(1446)) - X(357) = (X(357)-JVS(1444)*X(3855)-JVS(1445)*X(5250))/(JVS(1443)) - X(356) = (X(356)-JVS(1441)*X(3762)-JVS(1442)*X(5250))/(JVS(1440)) - X(355) = (X(355)-JVS(1438)*X(4359)-JVS(1439)*X(5250))/(JVS(1437)) - X(354) = (X(354)-JVS(1435)*X(3955)-JVS(1436)*X(5250))/(JVS(1434)) - X(353) = (X(353)-JVS(1432)*X(4766)-JVS(1433)*X(5250))/(JVS(1431)) - X(352) = (X(352)-JVS(1429)*X(4687)-JVS(1430)*X(5250))/(JVS(1428)) - X(351) = (X(351)-JVS(1425)*X(4496)-JVS(1426)*X(5250)-JVS(1427)*X(5255))/(JVS(1424)) - X(350) = (X(350)-JVS(1422)*X(3853)-JVS(1423)*X(5250))/(JVS(1421)) - X(349) = (X(349)-JVS(1419)*X(4696)-JVS(1420)*X(5250))/(JVS(1418)) - X(348) = (X(348)-JVS(1416)*X(4348)-JVS(1417)*X(5250))/(JVS(1415)) - X(347) = (X(347)-JVS(1413)*X(4077)-JVS(1414)*X(5250))/(JVS(1412)) - X(346) = (X(346)-JVS(1410)*X(4058)-JVS(1411)*X(5250))/(JVS(1409)) - X(345) = (X(345)-JVS(1407)*X(5163)-JVS(1408)*X(5250))/(JVS(1406)) - X(344) = (X(344)-JVS(1404)*X(4078)-JVS(1405)*X(5250))/(JVS(1403)) - X(343) = (X(343)-JVS(1400)*X(4949)-JVS(1401)*X(5250)-JVS(1402)*X(5255))/(JVS(1399)) - X(342) = (X(342)-JVS(1397)*X(5238)-JVS(1398)*X(5250))/(JVS(1396)) - X(341) = (X(341)-JVS(1393)*X(4100)-JVS(1394)*X(5250)-JVS(1395)*X(5255))/(JVS(1392)) - X(340) = (X(340)-JVS(1390)*X(4857)-JVS(1391)*X(5250))/(JVS(1389)) - X(339) = (X(339)-JVS(1387)*X(4886)-JVS(1388)*X(5250))/(JVS(1386)) - X(338) = (X(338)-JVS(1384)*X(5082)-JVS(1385)*X(5250))/(JVS(1383)) - X(337) = (X(337)-JVS(1381)*X(5250)-JVS(1382)*X(5252))/(JVS(1380)) - X(336) = (X(336)-JVS(1378)*X(3852)-JVS(1379)*X(5250))/(JVS(1377)) - X(335) = (X(335)-JVS(1375)*X(5007)-JVS(1376)*X(5250))/(JVS(1374)) - X(334) = (X(334)-JVS(1372)*X(3841)-JVS(1373)*X(5250))/(JVS(1371)) - X(333) = (X(333)-JVS(1369)*X(3667)-JVS(1370)*X(5250))/(JVS(1368)) - X(332) = (X(332)-JVS(1366)*X(3509)-JVS(1367)*X(5250))/(JVS(1365)) - X(331) = (X(331)-JVS(1363)*X(3407)-JVS(1364)*X(5250))/(JVS(1362)) - X(330) = (X(330)-JVS(1359)*X(5164)-JVS(1360)*X(5250)-JVS(1361)*X(5255))/(JVS(1358)) - X(329) = (X(329)-JVS(1355)*X(4500)-JVS(1356)*X(5250)-JVS(1357)*X(5255))/(JVS(1354)) - X(328) = (X(328)-JVS(1351)*X(3866)-JVS(1352)*X(5250)-JVS(1353)*X(5255))/(JVS(1350)) - X(327) = (X(327)-JVS(1348)*X(4512)-JVS(1349)*X(5258))/(JVS(1347)) - X(326) = (X(326)-JVS(1341)*X(970)-JVS(1342)*X(2239)-JVS(1343)*X(4394)-JVS(1344)*X(5250)-JVS(1345)*X(5252)-JVS(1346)& - &*X(5256))/(JVS(1340)) - X(325) = (X(325)-JVS(1337)*X(5041)-JVS(1338)*X(5250))/(JVS(1336)) - X(324) = (X(324)-JVS(1333)*X(3711)-JVS(1334)*X(5250)-JVS(1335)*X(5255))/(JVS(1332)) - X(323) = (X(323)-JVS(1329)*X(324)-JVS(1330)*X(3711)-JVS(1331)*X(5250))/(JVS(1328)) - X(322) = (X(322)-JVS(1325)*X(3711)-JVS(1326)*X(5250))/(JVS(1324)) - X(321) = (X(321)-JVS(1322)*X(4368)-JVS(1323)*X(5250))/(JVS(1321)) - X(320) = (X(320)-JVS(1319)*X(4196)-JVS(1320)*X(5250))/(JVS(1318)) - X(319) = (X(319)-JVS(1316)*X(4060)-JVS(1317)*X(5250))/(JVS(1315)) - X(318) = (X(318)-JVS(1312)*X(521)-JVS(1313)*X(3675)-JVS(1314)*X(5250))/(JVS(1311)) - X(317) = (X(317)-JVS(1308)*X(3985)-JVS(1309)*X(5250))/(JVS(1307)) - X(316) = (X(316)-JVS(1305)*X(4571)-JVS(1306)*X(5250))/(JVS(1304)) - X(315) = (X(315)-JVS(1298)*X(1245)-JVS(1299)*X(2408)-JVS(1300)*X(4764)-JVS(1301)*X(5250)-JVS(1302)*X(5252)-JVS(1303)& - &*X(5256))/(JVS(1297)) - X(314) = (X(314)-JVS(1294)*X(5108)-JVS(1295)*X(5250))/(JVS(1293)) - X(313) = (X(313)-JVS(1291)*X(3698)-JVS(1292)*X(5250))/(JVS(1290)) - X(312) = (X(312)-JVS(1288)*X(3727)-JVS(1289)*X(5250))/(JVS(1287)) - X(311) = (X(311)-JVS(1285)*X(3840)-JVS(1286)*X(5250))/(JVS(1284)) - X(310) = (X(310)-JVS(1282)*X(3962)-JVS(1283)*X(5250))/(JVS(1281)) - X(309) = (X(309)-JVS(1278)*X(4611)-JVS(1279)*X(5250)-JVS(1280)*X(5255))/(JVS(1277)) - X(308) = (X(308)-JVS(1275)*X(5077)-JVS(1276)*X(5250))/(JVS(1274)) - X(307) = (X(307)-JVS(1272)*X(3637)-JVS(1273)*X(5250))/(JVS(1271)) - X(306) = (X(306)-JVS(1269)*X(4251)-JVS(1270)*X(5250))/(JVS(1268)) - X(305) = (X(305)-JVS(1266)*X(4599)-JVS(1267)*X(5250))/(JVS(1265)) - X(304) = (X(304)-JVS(1263)*X(4980)-JVS(1264)*X(5250))/(JVS(1262)) - X(303) = (X(303)-JVS(1260)*X(3720)-JVS(1261)*X(5250))/(JVS(1259)) - X(302) = (X(302)-JVS(1257)*X(5022)-JVS(1258)*X(5250))/(JVS(1256)) - X(301) = (X(301)-JVS(1253)*X(5179)-JVS(1254)*X(5250)-JVS(1255)*X(5255))/(JVS(1252)) - X(300) = (X(300)-JVS(1246)*X(454)-JVS(1247)*X(1324)-JVS(1248)*X(3741)-JVS(1249)*X(5250)-JVS(1250)*X(5252)-JVS(1251)& - &*X(5256))/(JVS(1245)) - X(299) = (X(299)-JVS(1243)*X(3697)-JVS(1244)*X(5250))/(JVS(1242)) - X(298) = (X(298)-JVS(1240)*X(4981)-JVS(1241)*X(5250))/(JVS(1239)) - X(297) = (X(297)-JVS(1233)*X(1155)-JVS(1234)*X(2327)-JVS(1235)*X(4319)-JVS(1236)*X(5250)-JVS(1237)*X(5252)-JVS(1238)& - &*X(5256))/(JVS(1232)) - X(296) = (X(296)-JVS(1229)*X(3882)-JVS(1230)*X(5250))/(JVS(1228)) - X(295) = (X(295)-JVS(1226)*X(3690)-JVS(1227)*X(5250))/(JVS(1225)) - X(294) = (X(294)-JVS(1222)*X(4955)-JVS(1223)*X(5250)-JVS(1224)*X(5255))/(JVS(1221)) - X(293) = (X(293)-JVS(1219)*X(4492)-JVS(1220)*X(5258))/(JVS(1218)) - X(292) = (X(292)-JVS(1216)*X(4003)-JVS(1217)*X(5250))/(JVS(1215)) - X(291) = (X(291)-JVS(1212)*X(4771)-JVS(1213)*X(5250)-JVS(1214)*X(5255))/(JVS(1211)) - X(290) = (X(290)-JVS(1205)*X(826)-JVS(1206)*X(2257)-JVS(1207)*X(4216)-JVS(1208)*X(5250)-JVS(1209)*X(5252)-JVS(1210)& - &*X(5256))/(JVS(1204)) - X(289) = (X(289)-JVS(1201)*X(5120)-JVS(1202)*X(5250))/(JVS(1200)) - X(288) = (X(288)-JVS(1198)*X(5238)-JVS(1199)*X(5250))/(JVS(1197)) - X(287) = (X(287)-JVS(1194)*X(4808)-JVS(1195)*X(5250)-JVS(1196)*X(5255))/(JVS(1193)) - X(286) = (X(286)-JVS(1191)*X(5185)-JVS(1192)*X(5250))/(JVS(1190)) - X(285) = (X(285)-JVS(1188)*X(4778)-JVS(1189)*X(5250))/(JVS(1187)) - X(284) = (X(284)-JVS(1185)*X(4357)-JVS(1186)*X(5250))/(JVS(1184)) - X(283) = (X(283)-JVS(1182)*X(3794)-JVS(1183)*X(5250))/(JVS(1181)) - X(282) = (X(282)-JVS(1178)*X(4979)-JVS(1179)*X(5250)-JVS(1180)*X(5255))/(JVS(1177)) - X(281) = (X(281)-JVS(1175)*X(4762)-JVS(1176)*X(5250))/(JVS(1174)) - X(280) = (X(280)-JVS(1171)*X(5088)-JVS(1172)*X(5250)-JVS(1173)*X(5255))/(JVS(1170)) - X(279) = (X(279)-JVS(1168)*X(4131)-JVS(1169)*X(5250))/(JVS(1167)) - X(278) = (X(278)-JVS(1165)*X(4814)-JVS(1166)*X(5250))/(JVS(1164)) - X(277) = (X(277)-JVS(1162)*X(3481)-JVS(1163)*X(5250))/(JVS(1161)) - X(276) = (X(276)-JVS(1158)*X(4187)-JVS(1159)*X(5250)-JVS(1160)*X(5255))/(JVS(1157)) - X(275) = (X(275)-JVS(1154)*X(4679)-JVS(1155)*X(5250)-JVS(1156)*X(5255))/(JVS(1153)) - X(274) = (X(274)-JVS(1151)*X(3803)-JVS(1152)*X(5250))/(JVS(1150)) - X(273) = (X(273)-JVS(1148)*X(3675)-JVS(1149)*X(5250))/(JVS(1147)) - X(272) = (X(272)-JVS(1144)*X(4222)-JVS(1145)*X(5250)-JVS(1146)*X(5255))/(JVS(1143)) - X(271) = (X(271)-JVS(1137)*X(599)-JVS(1138)*X(2002)-JVS(1139)*X(2313)-JVS(1140)*X(5198)-JVS(1141)*X(5252)-JVS(1142)& - &*X(5256))/(JVS(1136)) - X(270) = (X(270)-JVS(1134)*X(5238)-JVS(1135)*X(5250))/(JVS(1133)) - X(269) = (X(269)-JVS(1131)*X(5144)-JVS(1132)*X(5250))/(JVS(1130)) - X(268) = (X(268)-JVS(1128)*X(4019)-JVS(1129)*X(5250))/(JVS(1127)) - X(267) = (X(267)-JVS(1125)*X(3770)-JVS(1126)*X(5250))/(JVS(1124)) - X(266) = (X(266)-JVS(1122)*X(3764)-JVS(1123)*X(5250))/(JVS(1121)) - X(265) = (X(265)-JVS(1118)*X(5021)-JVS(1119)*X(5250)-JVS(1120)*X(5255))/(JVS(1117)) - X(264) = (X(264)-JVS(1114)*X(3305)-JVS(1115)*X(5250)-JVS(1116)*X(5253))/(JVS(1113)) - X(263) = (X(263)-JVS(1111)*X(3975)-JVS(1112)*X(5250))/(JVS(1110)) - X(262) = (X(262)-JVS(1108)*X(3507)-JVS(1109)*X(5250))/(JVS(1107)) - X(261) = (X(261)-JVS(1104)*X(2590)-JVS(1105)*X(5154)-JVS(1106)*X(5252))/(JVS(1103)) - X(260) = (X(260)-JVS(1100)*X(5231)-JVS(1101)*X(5233)-JVS(1102)*X(5250))/(JVS(1099)) - X(259) = (X(259)-JVS(1097)*X(3396)-JVS(1098)*X(5250))/(JVS(1096)) - X(258) = (X(258)-JVS(1093)*X(4962)-JVS(1094)*X(5250)-JVS(1095)*X(5255))/(JVS(1092)) - X(257) = (X(257)-JVS(1090)*X(3686)-JVS(1091)*X(5250))/(JVS(1089)) - X(256) = (X(256)-JVS(1087)*X(4363)-JVS(1088)*X(5250))/(JVS(1086)) - X(255) = (X(255)-JVS(1083)*X(4977)-JVS(1084)*X(5250)-JVS(1085)*X(5255))/(JVS(1082)) - X(254) = (X(254)-JVS(1076)*X(1470)-JVS(1077)*X(3034)-JVS(1078)*X(3982)-JVS(1079)*X(5250)-JVS(1080)*X(5252)-JVS(1081)& - &*X(5256))/(JVS(1075)) - X(253) = (X(253)-JVS(1072)*X(5238)-JVS(1073)*X(5250))/(JVS(1071)) - X(252) = (X(252)-JVS(1068)*X(5027)-JVS(1069)*X(5250)-JVS(1070)*X(5255))/(JVS(1067)) - X(251) = (X(251)-JVS(1064)*X(5014)-JVS(1065)*X(5250)-JVS(1066)*X(5255))/(JVS(1063)) - X(250) = (X(250)-JVS(1062)*X(5250))/(JVS(1061)) - X(249) = (X(249)-JVS(1059)*X(5195)-JVS(1060)*X(5250))/(JVS(1058)) - X(248) = (X(248)-JVS(1056)*X(4088)-JVS(1057)*X(5250))/(JVS(1055)) - X(247) = (X(247)-JVS(1053)*X(4315)-JVS(1054)*X(5250))/(JVS(1052)) - X(246) = (X(246)-JVS(1050)*X(5059)-JVS(1051)*X(5250))/(JVS(1049)) - X(245) = (X(245)-JVS(1047)*X(2548)-JVS(1048)*X(5250))/(JVS(1046)) - X(244) = (X(244)-JVS(1044)*X(3380)-JVS(1045)*X(5250))/(JVS(1043)) - X(243) = (X(243)-JVS(1041)*X(3517)-JVS(1042)*X(5258))/(JVS(1040)) - X(242) = (X(242)-JVS(1038)*X(4733)-JVS(1039)*X(5250))/(JVS(1037)) - X(241) = (X(241)-JVS(1034)*X(4638)-JVS(1035)*X(5250)-JVS(1036)*X(5255))/(JVS(1033)) - X(240) = (X(240)-JVS(1030)*X(4629)-JVS(1031)*X(5250)-JVS(1032)*X(5255))/(JVS(1029)) - X(239) = (X(239)-JVS(1027)*X(4474)-JVS(1028)*X(5258))/(JVS(1026)) - X(238) = (X(238)-JVS(1024)*X(3670)-JVS(1025)*X(5250))/(JVS(1023)) - X(237) = (X(237)-JVS(1020)*X(5237)-JVS(1021)*X(5250)-JVS(1022)*X(5255))/(JVS(1019)) - X(236) = (X(236)-JVS(1017)*X(5257)-JVS(1018)*X(5258))/(JVS(1016)) - X(235) = (X(235)-JVS(1014)*X(5238)-JVS(1015)*X(5250))/(JVS(1013)) - X(234) = (X(234)-JVS(1011)*X(4586)-JVS(1012)*X(5250))/(JVS(1010)) - X(233) = (X(233)-JVS(1008)*X(3669)-JVS(1009)*X(5250))/(JVS(1007)) - X(232) = (X(232)-JVS(1004)*X(2010)-JVS(1005)*X(4364)-JVS(1006)*X(5250))/(JVS(1003)) - X(231) = (X(231)-JVS(1001)*X(3758)-JVS(1002)*X(5250))/(JVS(1000)) - X(230) = (X(230)-JVS(997)*X(4642)-JVS(998)*X(5250)-JVS(999)*X(5255))/(JVS(996)) - X(229) = (X(229)-JVS(994)*X(3405)-JVS(995)*X(5250))/(JVS(993)) - X(228) = (X(228)-JVS(991)*X(5109)-JVS(992)*X(5250))/(JVS(990)) - X(227) = (X(227)-JVS(987)*X(4375)-JVS(988)*X(5250)-JVS(989)*X(5255))/(JVS(986)) - X(226) = (X(226)-JVS(984)*X(5091)-JVS(985)*X(5250))/(JVS(983)) - X(225) = (X(225)-JVS(981)*X(3523)-JVS(982)*X(5250))/(JVS(980)) - X(224) = (X(224)-JVS(978)*X(5175)-JVS(979)*X(5258))/(JVS(977)) - X(223) = (X(223)-JVS(975)*X(3688)-JVS(976)*X(5250))/(JVS(974)) - X(222) = (X(222)-JVS(971)*X(4862)-JVS(972)*X(5250)-JVS(973)*X(5255))/(JVS(970)) - X(221) = (X(221)-JVS(968)*X(5238)-JVS(969)*X(5250))/(JVS(967)) - X(220) = (X(220)-JVS(965)*X(4334)-JVS(966)*X(5250))/(JVS(964)) - X(219) = (X(219)-JVS(962)*X(4567)-JVS(963)*X(5250))/(JVS(961)) - X(218) = (X(218)-JVS(959)*X(3902)-JVS(960)*X(5250))/(JVS(958)) - X(217) = (X(217)-JVS(956)*X(3621)-JVS(957)*X(5250))/(JVS(955)) - X(216) = (X(216)-JVS(952)*X(3456)-JVS(953)*X(5250)-JVS(954)*X(5253))/(JVS(951)) - X(215) = (X(215)-JVS(948)*X(4431)-JVS(949)*X(5250)-JVS(950)*X(5255))/(JVS(947)) - X(214) = (X(214)-JVS(945)*X(3832)-JVS(946)*X(5258))/(JVS(944)) - X(213) = (X(213)-JVS(942)*X(3951)-JVS(943)*X(5250))/(JVS(941)) - X(212) = (X(212)-JVS(939)*X(3740)-JVS(940)*X(5250))/(JVS(938)) - X(211) = (X(211)-JVS(932)*X(1331)-JVS(933)*X(2195)-JVS(934)*X(4748)-JVS(935)*X(5250)-JVS(936)*X(5252)-JVS(937)& - &*X(5256))/(JVS(931)) - X(210) = (X(210)-JVS(927)*X(4484)-JVS(928)*X(5250)-JVS(929)*X(5255))/(JVS(926)) - X(209) = (X(209)-JVS(924)*X(4580)-JVS(925)*X(5250))/(JVS(923)) - X(208) = (X(208)-JVS(921)*X(4127)-JVS(922)*X(5250))/(JVS(920)) - X(207) = (X(207)-JVS(917)*X(4848)-JVS(918)*X(5250)-JVS(919)*X(5255))/(JVS(916)) - X(206) = (X(206)-JVS(911)*X(871)-JVS(912)*X(5247)-JVS(913)*X(5250)-JVS(914)*X(5252)-JVS(915)*X(5256))/(JVS(910)) - X(205) = (X(205)-JVS(904)*X(2169)-JVS(905)*X(2264)-JVS(906)*X(5082)-JVS(907)*X(5252)-JVS(908)*X(5256))/(JVS(903)) - X(204) = (X(204)-JVS(898)*X(1335)-JVS(899)*X(3746)-JVS(900)*X(5250)-JVS(901)*X(5252)-JVS(902)*X(5256))/(JVS(897)) - X(203) = (X(203)-JVS(891)*X(1463)-JVS(892)*X(2224)-JVS(893)*X(3908)-JVS(894)*X(5252)-JVS(895)*X(5256))/(JVS(890)) - X(202) = (X(202)-JVS(885)*X(1966)-JVS(886)*X(2168)-JVS(887)*X(4733)-JVS(888)*X(5252)-JVS(889)*X(5256))/(JVS(884)) - X(201) = (X(201)-JVS(879)*X(562)-JVS(880)*X(1284)-JVS(881)*X(3720)-JVS(882)*X(5252)-JVS(883)*X(5256))/(JVS(878)) - X(200) = (X(200)-JVS(873)*X(1829)-JVS(874)*X(2331)-JVS(875)*X(4251)-JVS(876)*X(5252)-JVS(877)*X(5256))/(JVS(872)) - X(199) = (X(199)-JVS(867)*X(1205)-JVS(868)*X(2061)-JVS(869)*X(5236)-JVS(870)*X(5252)-JVS(871)*X(5256))/(JVS(866)) - X(198) = (X(198)-JVS(865)*X(5250))/(JVS(864)) - X(197) = (X(197)-JVS(859)*X(1259)-JVS(860)*X(2216)-JVS(861)*X(5112)-JVS(862)*X(5252)-JVS(863)*X(5256))/(JVS(858)) - X(196) = (X(196)-JVS(853)*X(848)-JVS(854)*X(2113)-JVS(855)*X(5065)-JVS(856)*X(5252)-JVS(857)*X(5256))/(JVS(852)) - X(195) = (X(195)-JVS(847)*X(1262)-JVS(848)*X(1980)-JVS(849)*X(4880)-JVS(850)*X(5252)-JVS(851)*X(5256))/(JVS(846)) - X(194) = (X(194)-JVS(841)*X(4107)-JVS(842)*X(5013)-JVS(843)*X(5218)-JVS(844)*X(5252)-JVS(845)*X(5256))/(JVS(840)) - X(193) = (X(193)-JVS(835)*X(879)-JVS(836)*X(2328)-JVS(837)*X(3858)-JVS(838)*X(5252)-JVS(839)*X(5256))/(JVS(834)) - X(192) = (X(192)-JVS(829)*X(1079)-JVS(830)*X(1824)-JVS(831)*X(5107)-JVS(832)*X(5252)-JVS(833)*X(5256))/(JVS(828)) - X(191) = (X(191)-JVS(823)*X(1413)-JVS(824)*X(1649)-JVS(825)*X(3722)-JVS(826)*X(5252)-JVS(827)*X(5256))/(JVS(822)) - X(190) = (X(190)-JVS(817)*X(1149)-JVS(818)*X(1591)-JVS(819)*X(3764)-JVS(820)*X(5252)-JVS(821)*X(5256))/(JVS(816)) - X(189) = (X(189)-JVS(811)*X(1523)-JVS(812)*X(2165)-JVS(813)*X(4940)-JVS(814)*X(5252)-JVS(815)*X(5256))/(JVS(810)) - X(188) = (X(188)-JVS(805)*X(1536)-JVS(806)*X(1889)-JVS(807)*X(3952)-JVS(808)*X(5252)-JVS(809)*X(5256))/(JVS(804)) - X(187) = (X(187)-JVS(799)*X(1286)-JVS(800)*X(1629)-JVS(801)*X(4088)-JVS(802)*X(5252)-JVS(803)*X(5256))/(JVS(798)) - X(186) = (X(186)-JVS(793)*X(1052)-JVS(794)*X(2432)-JVS(795)*X(5138)-JVS(796)*X(5252)-JVS(797)*X(5256))/(JVS(792)) - X(185) = (X(185)-JVS(787)*X(1841)-JVS(788)*X(2269)-JVS(789)*X(4581)-JVS(790)*X(5252)-JVS(791)*X(5256))/(JVS(786)) - X(184) = (X(184)-JVS(781)*X(870)-JVS(782)*X(2094)-JVS(783)*X(5146)-JVS(784)*X(5252)-JVS(785)*X(5256))/(JVS(780)) - X(183) = (X(183)-JVS(775)*X(1195)-JVS(776)*X(2250)-JVS(777)*X(5114)-JVS(778)*X(5252)-JVS(779)*X(5256))/(JVS(774)) - X(182) = (X(182)-JVS(769)*X(1260)-JVS(770)*X(2458)-JVS(771)*X(5196)-JVS(772)*X(5252)-JVS(773)*X(5256))/(JVS(768)) - X(181) = (X(181)-JVS(767)*X(5250))/(JVS(766)) - X(180) = (X(180)-JVS(761)*X(1237)-JVS(762)*X(2155)-JVS(763)*X(4197)-JVS(764)*X(5252)-JVS(765)*X(5256))/(JVS(760)) - X(179) = (X(179)-JVS(755)*X(2365)-JVS(756)*X(3222)-JVS(757)*X(5151)-JVS(758)*X(5252)-JVS(759)*X(5256))/(JVS(754)) - X(178) = (X(178)-JVS(749)*X(872)-JVS(750)*X(1972)-JVS(751)*X(3698)-JVS(752)*X(5252)-JVS(753)*X(5256))/(JVS(748)) - X(177) = (X(177)-JVS(743)*X(1491)-JVS(744)*X(2161)-JVS(745)*X(5144)-JVS(746)*X(5252)-JVS(747)*X(5256))/(JVS(742)) - X(176) = (X(176)-JVS(737)*X(653)-JVS(738)*X(840)-JVS(739)*X(3733)-JVS(740)*X(5252)-JVS(741)*X(5256))/(JVS(736)) - X(175) = (X(175)-JVS(731)*X(2083)-JVS(732)*X(2400)-JVS(733)*X(5161)-JVS(734)*X(5252)-JVS(735)*X(5256))/(JVS(730)) - X(174) = (X(174)-JVS(725)*X(1119)-JVS(726)*X(1551)-JVS(727)*X(3686)-JVS(728)*X(5252)-JVS(729)*X(5256))/(JVS(724)) - X(173) = (X(173)-JVS(719)*X(1328)-JVS(720)*X(2444)-JVS(721)*X(3841)-JVS(722)*X(5252)-JVS(723)*X(5256))/(JVS(718)) - X(172) = (X(172)-JVS(713)*X(1128)-JVS(714)*X(2108)-JVS(715)*X(5206)-JVS(716)*X(5252)-JVS(717)*X(5256))/(JVS(712)) - X(171) = (X(171)-JVS(707)*X(2086)-JVS(708)*X(2422)-JVS(709)*X(5109)-JVS(710)*X(5252)-JVS(711)*X(5256))/(JVS(706)) - X(170) = (X(170)-JVS(701)*X(994)-JVS(702)*X(4904)-JVS(703)*X(5250)-JVS(704)*X(5252)-JVS(705)*X(5256))/(JVS(700)) - X(169) = (X(169)-JVS(694)*X(935)-JVS(695)*X(3694)-JVS(696)*X(5250)-JVS(697)*X(5252)-JVS(698)*X(5256))/(JVS(693)) - X(168) = (X(168)-JVS(687)*X(1070)-JVS(688)*X(2063)-JVS(689)*X(3703)-JVS(690)*X(5252)-JVS(691)*X(5256))/(JVS(686)) - X(167) = (X(167)-JVS(681)*X(2213)-JVS(682)*X(2401)-JVS(683)*X(4356)-JVS(684)*X(5252)-JVS(685)*X(5256))/(JVS(680)) - X(166) = (X(166)-JVS(675)*X(1501)-JVS(676)*X(1831)-JVS(677)*X(4586)-JVS(678)*X(5252)-JVS(679)*X(5256))/(JVS(674)) - X(165) = (X(165)-JVS(669)*X(1751)-JVS(670)*X(2277)-JVS(671)*X(4696)-JVS(672)*X(5252)-JVS(673)*X(5256))/(JVS(668)) - X(164) = (X(164)-JVS(663)*X(1357)-JVS(664)*X(4482)-JVS(665)*X(5250)-JVS(666)*X(5252)-JVS(667)*X(5256))/(JVS(662)) - X(163) = (X(163)-JVS(656)*X(973)-JVS(657)*X(4423)-JVS(658)*X(5250)-JVS(659)*X(5252)-JVS(660)*X(5256))/(JVS(655)) - X(162) = (X(162)-JVS(649)*X(1135)-JVS(650)*X(2352)-JVS(651)*X(3962)-JVS(652)*X(5252)-JVS(653)*X(5256))/(JVS(648)) - X(161) = (X(161)-JVS(643)*X(1267)-JVS(644)*X(1919)-JVS(645)*X(4766)-JVS(646)*X(5252)-JVS(647)*X(5256))/(JVS(642)) - X(160) = (X(160)-JVS(637)*X(2227)-JVS(638)*X(2285)-JVS(639)*X(5163)-JVS(640)*X(5252)-JVS(641)*X(5256))/(JVS(636)) - X(159) = (X(159)-JVS(631)*X(949)-JVS(632)*X(2079)-JVS(633)*X(3901)-JVS(634)*X(5252)-JVS(635)*X(5256))/(JVS(630)) - X(158) = (X(158)-JVS(625)*X(880)-JVS(626)*X(1996)-JVS(627)*X(5084)-JVS(628)*X(5252)-JVS(629)*X(5256))/(JVS(624)) - X(157) = (X(157)-JVS(619)*X(1339)-JVS(620)*X(1883)-JVS(621)*X(3743)-JVS(622)*X(5252)-JVS(623)*X(5256))/(JVS(618)) - X(156) = (X(156)-JVS(613)*X(1178)-JVS(614)*X(1771)-JVS(615)*X(5041)-JVS(616)*X(5252)-JVS(617)*X(5256))/(JVS(612)) - X(155) = (X(155)-JVS(607)*X(1987)-JVS(608)*X(2416)-JVS(609)*X(4942)-JVS(610)*X(5252)-JVS(611)*X(5256))/(JVS(606)) - X(154) = (X(154)-JVS(601)*X(736)-JVS(602)*X(1057)-JVS(603)*X(4078)-JVS(604)*X(5252)-JVS(605)*X(5256))/(JVS(600)) - X(153) = (X(153)-JVS(595)*X(1800)-JVS(596)*X(2391)-JVS(597)*X(5185)-JVS(598)*X(5252)-JVS(599)*X(5256))/(JVS(594)) - X(152) = (X(152)-JVS(589)*X(1464)-JVS(590)*X(4426)-JVS(591)*X(5250)-JVS(592)*X(5252)-JVS(593)*X(5256))/(JVS(588)) - X(151) = (X(151)-JVS(582)*X(1004)-JVS(583)*X(2157)-JVS(584)*X(3789)-JVS(585)*X(5252)-JVS(586)*X(5256))/(JVS(581)) - X(150) = (X(150)-JVS(576)*X(1954)-JVS(577)*X(3288)-JVS(578)*X(4583)-JVS(579)*X(5252)-JVS(580)*X(5256))/(JVS(575)) - X(149) = (X(149)-JVS(570)*X(830)-JVS(571)*X(1657)-JVS(572)*X(4043)-JVS(573)*X(5252)-JVS(574)*X(5256))/(JVS(569)) - X(148) = (X(148)-JVS(567)*X(5169)-JVS(568)*X(5258))/(JVS(566)) - X(147) = (X(147)-JVS(564)*X(640)-JVS(565)*X(5250))/(JVS(563)) - X(146) = (X(146)-JVS(559)*X(1383)-JVS(560)*X(4898)-JVS(561)*X(5252)-JVS(562)*X(5256))/(JVS(558)) - X(145) = (X(145)-JVS(554)*X(405)-JVS(555)*X(4240)-JVS(556)*X(5252)-JVS(557)*X(5256))/(JVS(553)) - X(144) = (X(144)-JVS(551)*X(5056)-JVS(552)*X(5250))/(JVS(550)) - X(143) = (X(143)-JVS(548)*X(3554)-JVS(549)*X(5250))/(JVS(547)) - X(142) = (X(142)-JVS(545)*X(3478)-JVS(546)*X(5250))/(JVS(544)) - X(141) = (X(141)-JVS(540)*X(1192)-JVS(541)*X(5059)-JVS(542)*X(5252)-JVS(543)*X(5256))/(JVS(539)) - X(140) = (X(140)-JVS(535)*X(1374)-JVS(536)*X(3768)-JVS(537)*X(5252)-JVS(538)*X(5256))/(JVS(534)) - X(139) = (X(139)-JVS(532)*X(4878)-JVS(533)*X(5250))/(JVS(531)) - X(138) = (X(138)-JVS(527)*X(2143)-JVS(528)*X(4257)-JVS(529)*X(5252)-JVS(530)*X(5256))/(JVS(526)) - X(137) = (X(137)-JVS(524)*X(5253)-JVS(525)*X(5256))/(JVS(523)) - X(136) = (X(136)-JVS(521)*X(3538)-JVS(522)*X(5250))/(JVS(520)) - X(135) = (X(135)-JVS(518)*X(4028)-JVS(519)*X(5250))/(JVS(517)) - X(134) = (X(134)-JVS(515)*X(4319)-JVS(516)*X(5250))/(JVS(514)) - X(133) = (X(133)-JVS(512)*X(4121)-JVS(513)*X(5250))/(JVS(511)) - X(132) = (X(132)-JVS(507)*X(1032)-JVS(508)*X(3730)-JVS(509)*X(5252)-JVS(510)*X(5256))/(JVS(506)) - X(131) = (X(131)-JVS(504)*X(4805)-JVS(505)*X(5258))/(JVS(503)) - X(130) = (X(130)-JVS(499)*X(491)-JVS(500)*X(3740)-JVS(501)*X(5252)-JVS(502)*X(5256))/(JVS(498)) - X(129) = (X(129)-JVS(496)*X(3527)-JVS(497)*X(5250))/(JVS(495)) - X(128) = (X(128)-JVS(493)*X(4167)-JVS(494)*X(5250))/(JVS(492)) - X(127) = (X(127)-JVS(490)*X(3886)-JVS(491)*X(5250))/(JVS(489)) - X(126) = (X(126)-JVS(487)*X(4411)-JVS(488)*X(5250))/(JVS(486)) - X(125) = (X(125)-JVS(482)*X(1089)-JVS(483)*X(3706)-JVS(484)*X(5252)-JVS(485)*X(5256))/(JVS(481)) - X(124) = (X(124)-JVS(479)*X(3511)-JVS(480)*X(5250))/(JVS(478)) - X(123) = (X(123)-JVS(476)*X(3160)-JVS(477)*X(5250))/(JVS(475)) - X(122) = (X(122)-JVS(473)*X(2854)-JVS(474)*X(5250))/(JVS(472)) - X(121) = (X(121)-JVS(469)*X(5084)-JVS(470)*X(5250))/(JVS(468)) - X(120) = (X(120)-JVS(464)*X(398)-JVS(465)*X(3697)-JVS(466)*X(5252)-JVS(467)*X(5256))/(JVS(463)) - X(119) = (X(119)-JVS(461)*X(3503)-JVS(462)*X(5250))/(JVS(460)) - X(118) = (X(118)-JVS(458)*X(4734)-JVS(459)*X(5250))/(JVS(457)) - X(117) = (X(117)-JVS(453)*X(1075)-JVS(454)*X(3785)-JVS(455)*X(5252)-JVS(456)*X(5256))/(JVS(452)) - X(116) = (X(116)-JVS(448)*X(521)-JVS(449)*X(3675)-JVS(450)*X(5252)-JVS(451)*X(5256))/(JVS(447)) - X(115) = (X(115)-JVS(443)*X(1956)-JVS(444)*X(4687)-JVS(445)*X(5252)-JVS(446)*X(5256))/(JVS(442)) - X(114) = (X(114)-JVS(440)*X(4963)-JVS(441)*X(5250))/(JVS(439)) - X(113) = (X(113)-JVS(435)*X(1333)-JVS(436)*X(3951)-JVS(437)*X(5252)-JVS(438)*X(5256))/(JVS(434)) - X(112) = (X(112)-JVS(432)*X(5189)-JVS(433)*X(5258))/(JVS(431)) - X(111) = (X(111)-JVS(429)*X(3489)-JVS(430)*X(5250))/(JVS(428)) - X(110) = (X(110)-JVS(426)*X(4828)-JVS(427)*X(5250))/(JVS(425)) - X(109) = (X(109)-JVS(423)*X(3491)-JVS(424)*X(5250))/(JVS(422)) - X(108) = (X(108)-JVS(420)*X(4748)-JVS(421)*X(5250))/(JVS(419)) - X(107) = (X(107)-JVS(415)*X(459)-JVS(416)*X(3770)-JVS(417)*X(5252)-JVS(418)*X(5256))/(JVS(414)) - X(106) = (X(106)-JVS(412)*X(3753)-JVS(413)*X(5250))/(JVS(411)) - X(105) = (X(105)-JVS(409)*X(5219)-JVS(410)*X(5250))/(JVS(408)) - X(104) = (X(104)-JVS(406)*X(4090)-JVS(407)*X(5250))/(JVS(405)) - X(103) = (X(103)-JVS(403)*X(3769)-JVS(404)*X(5250))/(JVS(402)) - X(102) = (X(102)-JVS(400)*X(4529)-JVS(401)*X(5250))/(JVS(399)) - X(101) = (X(101)-JVS(397)*X(4423)-JVS(398)*X(5250))/(JVS(396)) - X(100) = (X(100)-JVS(394)*X(3752)-JVS(395)*X(5250))/(JVS(393)) - X(99) = (X(99)-JVS(391)*X(5104)-JVS(392)*X(5250))/(JVS(390)) - X(98) = (X(98)-JVS(388)*X(4482)-JVS(389)*X(5250))/(JVS(387)) - X(97) = (X(97)-JVS(383)*X(324)-JVS(384)*X(3711)-JVS(385)*X(5252)-JVS(386)*X(5256))/(JVS(382)) - X(96) = (X(96)-JVS(378)*X(1397)-JVS(379)*X(4042)-JVS(380)*X(5252)-JVS(381)*X(5256))/(JVS(377)) - X(95) = (X(95)-JVS(375)*X(4091)-JVS(376)*X(5250))/(JVS(374)) - X(94) = (X(94)-JVS(372)*X(3786)-JVS(373)*X(5250))/(JVS(371)) - X(93) = (X(93)-JVS(369)*X(3782)-JVS(370)*X(5250))/(JVS(368)) - X(92) = (X(92)-JVS(364)*X(1359)-JVS(365)*X(3983)-JVS(366)*X(5252)-JVS(367)*X(5256))/(JVS(363)) - X(91) = (X(91)-JVS(359)*X(1282)-JVS(360)*X(3674)-JVS(361)*X(5252)-JVS(362)*X(5256))/(JVS(358)) - X(90) = (X(90)-JVS(356)*X(3771)-JVS(357)*X(5250))/(JVS(355)) - X(89) = (X(89)-JVS(353)*X(4068)-JVS(354)*X(5250))/(JVS(352)) - X(88) = (X(88)-JVS(348)*X(594)-JVS(349)*X(4077)-JVS(350)*X(5252)-JVS(351)*X(5256))/(JVS(347)) - X(87) = (X(87)-JVS(345)*X(4394)-JVS(346)*X(5250))/(JVS(344)) - X(86) = (X(86)-JVS(342)*X(5228)-JVS(343)*X(5253))/(JVS(341)) - X(85) = (X(85)-JVS(339)*X(4507)-JVS(340)*X(5250))/(JVS(338)) - X(84) = (X(84)-JVS(336)*X(3534)-JVS(337)*X(5250))/(JVS(335)) - X(83) = (X(83)-JVS(333)*X(4216)-JVS(334)*X(5250))/(JVS(332)) - X(82) = (X(82)-JVS(328)*X(963)-JVS(329)*X(3714)-JVS(330)*X(5252)-JVS(331)*X(5256))/(JVS(327)) - X(81) = (X(81)-JVS(325)*X(3817)-JVS(326)*X(5250))/(JVS(324)) - X(80) = (X(80)-JVS(320)*X(992)-JVS(321)*X(3717)-JVS(322)*X(5252)-JVS(323)*X(5256))/(JVS(319)) - X(79) = (X(79)-JVS(317)*X(3981)-JVS(318)*X(5250))/(JVS(316)) - X(78) = (X(78)-JVS(312)*X(1435)-JVS(313)*X(3782)-JVS(314)*X(5252)-JVS(315)*X(5256))/(JVS(311)) - X(77) = (X(77)-JVS(309)*X(2932)-JVS(310)*X(5250))/(JVS(308)) - X(76) = (X(76)-JVS(304)*X(989)-JVS(305)*X(3719)-JVS(306)*X(5252)-JVS(307)*X(5256))/(JVS(303)) - X(75) = (X(75)-JVS(301)*X(422)-JVS(302)*X(5250))/(JVS(300)) - X(74) = (X(74)-JVS(298)*X(3650)-JVS(299)*X(5250))/(JVS(297)) - X(73) = (X(73)-JVS(295)*X(4422)-JVS(296)*X(5250))/(JVS(294)) - X(72) = (X(72)-JVS(292)*X(3746)-JVS(293)*X(5250))/(JVS(291)) - X(71) = (X(71)-JVS(289)*X(3539)-JVS(290)*X(5250))/(JVS(288)) - X(70) = (X(70)-JVS(286)*X(4894)-JVS(287)*X(5250))/(JVS(285)) - X(69) = (X(69)-JVS(281)*X(508)-JVS(282)*X(3710)-JVS(283)*X(5252)-JVS(284)*X(5256))/(JVS(280)) - X(68) = (X(68)-JVS(278)*X(3627)-JVS(279)*X(5250))/(JVS(277)) - X(67) = (X(67)-JVS(275)*X(4570)-JVS(276)*X(5258))/(JVS(274)) - X(66) = (X(66)-JVS(270)*X(1410)-JVS(271)*X(3766)-JVS(272)*X(5252)-JVS(273)*X(5256))/(JVS(269)) - X(65) = (X(65)-JVS(265)*X(1497)-JVS(266)*X(3769)-JVS(267)*X(5252)-JVS(268)*X(5256))/(JVS(264)) - X(64) = (X(64)-JVS(262)*X(3894)-JVS(263)*X(5250))/(JVS(261)) - X(63) = (X(63)-JVS(259)*X(4481)-JVS(260)*X(5250))/(JVS(258)) - X(62) = (X(62)-JVS(256)*X(5174)-JVS(257)*X(5250))/(JVS(255)) - X(61) = (X(61)-JVS(253)*X(5187)-JVS(254)*X(5258))/(JVS(252)) - X(60) = (X(60)-JVS(250)*X(4234)-JVS(251)*X(5250))/(JVS(249)) - X(59) = (X(59)-JVS(247)*X(4764)-JVS(248)*X(5250))/(JVS(246)) - X(58) = (X(58)-JVS(244)*X(3695)-JVS(245)*X(5250))/(JVS(243)) - X(57) = (X(57)-JVS(239)*X(1062)-JVS(240)*X(3771)-JVS(241)*X(5252)-JVS(242)*X(5256))/(JVS(238)) - X(56) = (X(56)-JVS(236)*X(4621)-JVS(237)*X(5250))/(JVS(235)) - X(55) = (X(55)-JVS(233)*X(3939)-JVS(234)*X(5250))/(JVS(232)) - X(54) = (X(54)-JVS(230)*X(4074)-JVS(231)*X(5250))/(JVS(229)) - X(53) = (X(53)-JVS(227)*X(4904)-JVS(228)*X(5250))/(JVS(226)) - X(52) = (X(52)-JVS(224)*X(4133)-JVS(225)*X(5250))/(JVS(223)) - X(51) = (X(51)-JVS(219)*X(2260)-JVS(220)*X(4595)-JVS(221)*X(5252)-JVS(222)*X(5256))/(JVS(218)) - X(50) = (X(50)-JVS(214)*X(1416)-JVS(215)*X(3781)-JVS(216)*X(5252)-JVS(217)*X(5256))/(JVS(213)) - X(49) = (X(49)-JVS(209)*X(1203)-JVS(210)*X(3761)-JVS(211)*X(5252)-JVS(212)*X(5256))/(JVS(208)) - X(48) = (X(48)-JVS(206)*X(3428)-JVS(207)*X(5250))/(JVS(205)) - X(47) = (X(47)-JVS(203)*X(3562)-JVS(204)*X(5250))/(JVS(202)) - X(46) = (X(46)-JVS(200)*X(3725)-JVS(201)*X(5250))/(JVS(199)) - X(45) = (X(45)-JVS(195)*X(1202)-JVS(196)*X(3784)-JVS(197)*X(5252)-JVS(198)*X(5256))/(JVS(194)) - X(44) = (X(44)-JVS(190)*X(1279)-JVS(191)*X(4015)-JVS(192)*X(5252)-JVS(193)*X(5256))/(JVS(189)) - X(43) = (X(43)-JVS(185)*X(1534)-JVS(186)*X(3704)-JVS(187)*X(5252)-JVS(188)*X(5256))/(JVS(184)) - X(42) = (X(42)-JVS(180)*X(1043)-JVS(181)*X(3745)-JVS(182)*X(5252)-JVS(183)*X(5256))/(JVS(179)) - X(41) = (X(41)-JVS(177)*X(3705)-JVS(178)*X(5250))/(JVS(176)) - X(40) = (X(40)-JVS(174)*X(3694)-JVS(175)*X(5250))/(JVS(173)) - X(39) = (X(39)-JVS(171)*X(3788)-JVS(172)*X(5250))/(JVS(170)) - X(38) = (X(38)-JVS(168)*X(4480)-JVS(169)*X(5250))/(JVS(167)) - X(37) = (X(37)-JVS(165)*X(3442)-JVS(166)*X(5258))/(JVS(164)) - X(36) = (X(36)-JVS(160)*X(865)-JVS(161)*X(4244)-JVS(162)*X(5252)-JVS(163)*X(5256))/(JVS(159)) - X(35) = (X(35)-JVS(155)*X(1028)-JVS(156)*X(3678)-JVS(157)*X(5252)-JVS(158)*X(5256))/(JVS(154)) - X(34) = (X(34)-JVS(152)*X(4099)-JVS(153)*X(5250))/(JVS(151)) - X(33) = (X(33)-JVS(149)*X(3714)-JVS(150)*X(5250))/(JVS(148)) - X(32) = (X(32)-JVS(146)*X(3721)-JVS(147)*X(5250))/(JVS(145)) - X(31) = (X(31)-JVS(143)*X(3531)-JVS(144)*X(5250))/(JVS(142)) - X(30) = (X(30)-JVS(140)*X(5247)-JVS(141)*X(5250))/(JVS(139)) - X(29) = (X(29)-JVS(137)*X(4976)-JVS(138)*X(5258))/(JVS(136)) - X(28) = (X(28)-JVS(134)*X(3982)-JVS(135)*X(5250))/(JVS(133)) - X(27) = (X(27)-JVS(131)*X(5083)-JVS(132)*X(5258))/(JVS(130)) - X(26) = (X(26)-JVS(128)*X(4426)-JVS(129)*X(5250))/(JVS(127)) - X(25) = (X(25)-JVS(123)*X(1761)-JVS(124)*X(4295)-JVS(125)*X(5252)-JVS(126)*X(5256))/(JVS(122)) - X(24) = (X(24)-JVS(120)*X(4092)-JVS(121)*X(5250))/(JVS(119)) - X(23) = (X(23)-JVS(117)*X(2854)-JVS(118)*X(5250))/(JVS(116)) - X(22) = (X(22)-JVS(114)*X(3798)-JVS(115)*X(5250))/(JVS(113)) - X(21) = (X(21)-JVS(111)*X(3428)-JVS(112)*X(5250))/(JVS(110)) - X(20) = (X(20)-JVS(108)*X(5095)-JVS(109)*X(5258))/(JVS(107)) - X(19) = (X(19)-JVS(105)*X(5002)-JVS(106)*X(5258))/(JVS(104)) - X(18) = (X(18)-JVS(102)*X(3632)-JVS(103)*X(5250))/(JVS(101)) - X(17) = (X(17)-JVS(99)*X(3518)-JVS(100)*X(5250))/(JVS(98)) - X(16) = (X(16)-JVS(94)*X(1412)-JVS(95)*X(3753)-JVS(96)*X(5252)-JVS(97)*X(5256))/(JVS(93)) - X(15) = (X(15)-JVS(91)*X(245)-JVS(92)*X(5250))/(JVS(90)) - X(14) = (X(14)-JVS(86)*X(518)-JVS(87)*X(3699)-JVS(88)*X(5252)-JVS(89)*X(5256))/(JVS(85)) - X(13) = (X(13)-JVS(83)*X(3648)-JVS(84)*X(5250))/(JVS(82)) - X(12) = (X(12)-JVS(80)*X(4330)-JVS(81)*X(5250))/(JVS(79)) - X(11) = (X(11)-JVS(78)*X(4114))/(JVS(77)) - X(10) = (X(10)-JVS(74)*X(4519)-JVS(75)*X(5250)-JVS(76)*X(5255))/(JVS(73)) - X(9) = (X(9)-JVS(70)*X(285)-JVS(71)*X(5127)-JVS(72)*X(5250))/(JVS(69)) - X(8) = (X(8)-JVS(68)*X(2478))/(JVS(67)) - X(7) = (X(7)-JVS(66)*X(3432))/(JVS(65)) - X(6) = (X(6)-JVS(64)*X(1916))/(JVS(63)) - X(5) = (X(5)-JVS(61)*X(5250)-JVS(62)*X(5254))/(JVS(60)) - X(4) = (X(4)-JVS(59)*X(5258))/(JVS(58)) - X(3) = (X(3)-JVS(7)*X(5)-JVS(8)*X(3568)-JVS(9)*X(4213)-JVS(10)*X(4247)-JVS(11)*X(4250)-JVS(12)*X(4258)-JVS(13)*X(4264)& - &-JVS(14)*X(4282)-JVS(15)*X(4286)-JVS(16)*X(4302)-JVS(17)*X(4320)-JVS(18)*X(4526)-JVS(19)*X(4544)-JVS(20)*X(4551)& - &-JVS(21)*X(4556)-JVS(22)*X(4621)-JVS(23)*X(4668)-JVS(24)*X(4677)-JVS(25)*X(4678)-JVS(26)*X(4691)-JVS(27)*X(4741)& - &-JVS(28)*X(4757)-JVS(29)*X(4776)-JVS(30)*X(4819)-JVS(31)*X(4824)-JVS(32)*X(4828)-JVS(33)*X(4838)-JVS(34)*X(4843)& - &-JVS(35)*X(4868)-JVS(36)*X(4869)-JVS(37)*X(4906)-JVS(38)*X(4908)-JVS(39)*X(4912)-JVS(40)*X(4919)-JVS(41)*X(4941)& - &-JVS(42)*X(4943)-JVS(43)*X(4956)-JVS(44)*X(4963)-JVS(45)*X(4997)-JVS(46)*X(4998)-JVS(47)*X(4999)-JVS(48)*X(5040)& - &-JVS(49)*X(5047)-JVS(50)*X(5048)-JVS(51)*X(5070)-JVS(52)*X(5092)-JVS(53)*X(5102)-JVS(54)*X(5156)-JVS(55)*X(5170)& - &-JVS(56)*X(5223)-JVS(57)*X(5254))/(JVS(6)) - X(2) = (X(2)-JVS(5)*X(3))/(JVS(4)) - X(1) = (X(1)-JVS(2)*X(137)-JVS(3)*X(5201))/(JVS(1)) - -END SUBROUTINE KppSolve - -! End of KppSolve function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! KppSolveTR - sparse, transposed back substitution -! Arguments : -! JVS - sparse Jacobian of variables -! X - Vector for variables -! XX - Vector for output variables -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE KppSolveTR ( JVS, X, XX ) - -! JVS - sparse Jacobian of variables - REAL(kind=dp) :: JVS(LU_NONZERO) -! X - Vector for variables - REAL(kind=dp) :: X(NVAR) -! XX - Vector for output variables - REAL(kind=dp) :: XX(NVAR) - - XX(1) = X(1)/JVS(1) - XX(2) = X(2)/JVS(4) - XX(3) = (X(3)-JVS(5)*XX(2))/(JVS(6)) - XX(4) = X(4)/JVS(58) - XX(5) = (X(5)-JVS(7)*XX(3))/(JVS(60)) - XX(6) = X(6)/JVS(63) - XX(7) = X(7)/JVS(65) - XX(8) = X(8)/JVS(67) - XX(9) = X(9)/JVS(69) - XX(10) = X(10)/JVS(73) - XX(11) = X(11)/JVS(77) - XX(12) = X(12)/JVS(79) - XX(13) = X(13)/JVS(82) - XX(14) = X(14)/JVS(85) - XX(15) = X(15)/JVS(90) - XX(16) = X(16)/JVS(93) - XX(17) = X(17)/JVS(98) - XX(18) = X(18)/JVS(101) - XX(19) = X(19)/JVS(104) - XX(20) = X(20)/JVS(107) - XX(21) = X(21)/JVS(110) - XX(22) = X(22)/JVS(113) - XX(23) = X(23)/JVS(116) - XX(24) = X(24)/JVS(119) - XX(25) = X(25)/JVS(122) - XX(26) = X(26)/JVS(127) - XX(27) = X(27)/JVS(130) - XX(28) = X(28)/JVS(133) - XX(29) = X(29)/JVS(136) - XX(30) = X(30)/JVS(139) - XX(31) = X(31)/JVS(142) - XX(32) = X(32)/JVS(145) - XX(33) = X(33)/JVS(148) - XX(34) = X(34)/JVS(151) - XX(35) = X(35)/JVS(154) - XX(36) = X(36)/JVS(159) - XX(37) = X(37)/JVS(164) - XX(38) = X(38)/JVS(167) - XX(39) = X(39)/JVS(170) - XX(40) = X(40)/JVS(173) - XX(41) = X(41)/JVS(176) - XX(42) = X(42)/JVS(179) - XX(43) = X(43)/JVS(184) - XX(44) = X(44)/JVS(189) - XX(45) = X(45)/JVS(194) - XX(46) = X(46)/JVS(199) - XX(47) = X(47)/JVS(202) - XX(48) = X(48)/JVS(205) - XX(49) = X(49)/JVS(208) - XX(50) = X(50)/JVS(213) - XX(51) = X(51)/JVS(218) - XX(52) = X(52)/JVS(223) - XX(53) = X(53)/JVS(226) - XX(54) = X(54)/JVS(229) - XX(55) = X(55)/JVS(232) - XX(56) = X(56)/JVS(235) - XX(57) = X(57)/JVS(238) - XX(58) = X(58)/JVS(243) - XX(59) = X(59)/JVS(246) - XX(60) = X(60)/JVS(249) - XX(61) = X(61)/JVS(252) - XX(62) = X(62)/JVS(255) - XX(63) = X(63)/JVS(258) - XX(64) = X(64)/JVS(261) - XX(65) = X(65)/JVS(264) - XX(66) = X(66)/JVS(269) - XX(67) = X(67)/JVS(274) - XX(68) = X(68)/JVS(277) - XX(69) = X(69)/JVS(280) - XX(70) = X(70)/JVS(285) - XX(71) = X(71)/JVS(288) - XX(72) = X(72)/JVS(291) - XX(73) = X(73)/JVS(294) - XX(74) = X(74)/JVS(297) - XX(75) = X(75)/JVS(300) - XX(76) = X(76)/JVS(303) - XX(77) = X(77)/JVS(308) - XX(78) = X(78)/JVS(311) - XX(79) = X(79)/JVS(316) - XX(80) = X(80)/JVS(319) - XX(81) = X(81)/JVS(324) - XX(82) = X(82)/JVS(327) - XX(83) = X(83)/JVS(332) - XX(84) = X(84)/JVS(335) - XX(85) = X(85)/JVS(338) - XX(86) = X(86)/JVS(341) - XX(87) = X(87)/JVS(344) - XX(88) = X(88)/JVS(347) - XX(89) = X(89)/JVS(352) - XX(90) = X(90)/JVS(355) - XX(91) = X(91)/JVS(358) - XX(92) = X(92)/JVS(363) - XX(93) = X(93)/JVS(368) - XX(94) = X(94)/JVS(371) - XX(95) = X(95)/JVS(374) - XX(96) = X(96)/JVS(377) - XX(97) = X(97)/JVS(382) - XX(98) = X(98)/JVS(387) - XX(99) = X(99)/JVS(390) - XX(100) = X(100)/JVS(393) - XX(101) = X(101)/JVS(396) - XX(102) = X(102)/JVS(399) - XX(103) = X(103)/JVS(402) - XX(104) = X(104)/JVS(405) - XX(105) = X(105)/JVS(408) - XX(106) = X(106)/JVS(411) - XX(107) = X(107)/JVS(414) - XX(108) = X(108)/JVS(419) - XX(109) = X(109)/JVS(422) - XX(110) = X(110)/JVS(425) - XX(111) = X(111)/JVS(428) - XX(112) = X(112)/JVS(431) - XX(113) = X(113)/JVS(434) - XX(114) = X(114)/JVS(439) - XX(115) = X(115)/JVS(442) - XX(116) = X(116)/JVS(447) - XX(117) = X(117)/JVS(452) - XX(118) = X(118)/JVS(457) - XX(119) = X(119)/JVS(460) - XX(120) = X(120)/JVS(463) - XX(121) = X(121)/JVS(468) - XX(122) = X(122)/JVS(472) - XX(123) = X(123)/JVS(475) - XX(124) = X(124)/JVS(478) - XX(125) = X(125)/JVS(481) - XX(126) = X(126)/JVS(486) - XX(127) = X(127)/JVS(489) - XX(128) = X(128)/JVS(492) - XX(129) = X(129)/JVS(495) - XX(130) = X(130)/JVS(498) - XX(131) = X(131)/JVS(503) - XX(132) = X(132)/JVS(506) - XX(133) = X(133)/JVS(511) - XX(134) = X(134)/JVS(514) - XX(135) = X(135)/JVS(517) - XX(136) = X(136)/JVS(520) - XX(137) = (X(137)-JVS(2)*XX(1))/(JVS(523)) - XX(138) = X(138)/JVS(526) - XX(139) = X(139)/JVS(531) - XX(140) = X(140)/JVS(534) - XX(141) = X(141)/JVS(539) - XX(142) = X(142)/JVS(544) - XX(143) = X(143)/JVS(547) - XX(144) = X(144)/JVS(550) - XX(145) = X(145)/JVS(553) - XX(146) = X(146)/JVS(558) - XX(147) = X(147)/JVS(563) - XX(148) = X(148)/JVS(566) - XX(149) = X(149)/JVS(569) - XX(150) = X(150)/JVS(575) - XX(151) = X(151)/JVS(581) - XX(152) = X(152)/JVS(588) - XX(153) = X(153)/JVS(594) - XX(154) = X(154)/JVS(600) - XX(155) = X(155)/JVS(606) - XX(156) = X(156)/JVS(612) - XX(157) = X(157)/JVS(618) - XX(158) = X(158)/JVS(624) - XX(159) = X(159)/JVS(630) - XX(160) = X(160)/JVS(636) - XX(161) = X(161)/JVS(642) - XX(162) = X(162)/JVS(648) - XX(163) = X(163)/JVS(655) - XX(164) = X(164)/JVS(662) - XX(165) = X(165)/JVS(668) - XX(166) = X(166)/JVS(674) - XX(167) = X(167)/JVS(680) - XX(168) = X(168)/JVS(686) - XX(169) = X(169)/JVS(693) - XX(170) = X(170)/JVS(700) - XX(171) = X(171)/JVS(706) - XX(172) = X(172)/JVS(712) - XX(173) = X(173)/JVS(718) - XX(174) = X(174)/JVS(724) - XX(175) = X(175)/JVS(730) - XX(176) = X(176)/JVS(736) - XX(177) = X(177)/JVS(742) - XX(178) = X(178)/JVS(748) - XX(179) = X(179)/JVS(754) - XX(180) = X(180)/JVS(760) - XX(181) = X(181)/JVS(766) - XX(182) = X(182)/JVS(768) - XX(183) = X(183)/JVS(774) - XX(184) = X(184)/JVS(780) - XX(185) = X(185)/JVS(786) - XX(186) = X(186)/JVS(792) - XX(187) = X(187)/JVS(798) - XX(188) = X(188)/JVS(804) - XX(189) = X(189)/JVS(810) - XX(190) = X(190)/JVS(816) - XX(191) = X(191)/JVS(822) - XX(192) = X(192)/JVS(828) - XX(193) = X(193)/JVS(834) - XX(194) = X(194)/JVS(840) - XX(195) = X(195)/JVS(846) - XX(196) = X(196)/JVS(852) - XX(197) = X(197)/JVS(858) - XX(198) = X(198)/JVS(864) - XX(199) = X(199)/JVS(866) - XX(200) = X(200)/JVS(872) - XX(201) = X(201)/JVS(878) - XX(202) = X(202)/JVS(884) - XX(203) = X(203)/JVS(890) - XX(204) = X(204)/JVS(897) - XX(205) = X(205)/JVS(903) - XX(206) = X(206)/JVS(910) - XX(207) = X(207)/JVS(916) - XX(208) = X(208)/JVS(920) - XX(209) = X(209)/JVS(923) - XX(210) = X(210)/JVS(926) - XX(211) = X(211)/JVS(931) - XX(212) = X(212)/JVS(938) - XX(213) = X(213)/JVS(941) - XX(214) = X(214)/JVS(944) - XX(215) = X(215)/JVS(947) - XX(216) = X(216)/JVS(951) - XX(217) = X(217)/JVS(955) - XX(218) = X(218)/JVS(958) - XX(219) = X(219)/JVS(961) - XX(220) = X(220)/JVS(964) - XX(221) = X(221)/JVS(967) - XX(222) = X(222)/JVS(970) - XX(223) = X(223)/JVS(974) - XX(224) = X(224)/JVS(977) - XX(225) = X(225)/JVS(980) - XX(226) = X(226)/JVS(983) - XX(227) = X(227)/JVS(986) - XX(228) = X(228)/JVS(990) - XX(229) = X(229)/JVS(993) - XX(230) = X(230)/JVS(996) - XX(231) = X(231)/JVS(1000) - XX(232) = X(232)/JVS(1003) - XX(233) = X(233)/JVS(1007) - XX(234) = X(234)/JVS(1010) - XX(235) = X(235)/JVS(1013) - XX(236) = X(236)/JVS(1016) - XX(237) = X(237)/JVS(1019) - XX(238) = X(238)/JVS(1023) - XX(239) = X(239)/JVS(1026) - XX(240) = X(240)/JVS(1029) - XX(241) = X(241)/JVS(1033) - XX(242) = X(242)/JVS(1037) - XX(243) = X(243)/JVS(1040) - XX(244) = X(244)/JVS(1043) - XX(245) = (X(245)-JVS(91)*XX(15))/(JVS(1046)) - XX(246) = X(246)/JVS(1049) - XX(247) = X(247)/JVS(1052) - XX(248) = X(248)/JVS(1055) - XX(249) = X(249)/JVS(1058) - XX(250) = X(250)/JVS(1061) - XX(251) = X(251)/JVS(1063) - XX(252) = X(252)/JVS(1067) - XX(253) = X(253)/JVS(1071) - XX(254) = X(254)/JVS(1075) - XX(255) = X(255)/JVS(1082) - XX(256) = X(256)/JVS(1086) - XX(257) = X(257)/JVS(1089) - XX(258) = X(258)/JVS(1092) - XX(259) = X(259)/JVS(1096) - XX(260) = X(260)/JVS(1099) - XX(261) = X(261)/JVS(1103) - XX(262) = X(262)/JVS(1107) - XX(263) = X(263)/JVS(1110) - XX(264) = X(264)/JVS(1113) - XX(265) = X(265)/JVS(1117) - XX(266) = X(266)/JVS(1121) - XX(267) = X(267)/JVS(1124) - XX(268) = X(268)/JVS(1127) - XX(269) = X(269)/JVS(1130) - XX(270) = X(270)/JVS(1133) - XX(271) = X(271)/JVS(1136) - XX(272) = X(272)/JVS(1143) - XX(273) = X(273)/JVS(1147) - XX(274) = X(274)/JVS(1150) - XX(275) = X(275)/JVS(1153) - XX(276) = X(276)/JVS(1157) - XX(277) = X(277)/JVS(1161) - XX(278) = X(278)/JVS(1164) - XX(279) = X(279)/JVS(1167) - XX(280) = X(280)/JVS(1170) - XX(281) = X(281)/JVS(1174) - XX(282) = X(282)/JVS(1177) - XX(283) = X(283)/JVS(1181) - XX(284) = X(284)/JVS(1184) - XX(285) = (X(285)-JVS(70)*XX(9))/(JVS(1187)) - XX(286) = X(286)/JVS(1190) - XX(287) = X(287)/JVS(1193) - XX(288) = X(288)/JVS(1197) - XX(289) = X(289)/JVS(1200) - XX(290) = X(290)/JVS(1204) - XX(291) = X(291)/JVS(1211) - XX(292) = X(292)/JVS(1215) - XX(293) = X(293)/JVS(1218) - XX(294) = X(294)/JVS(1221) - XX(295) = X(295)/JVS(1225) - XX(296) = X(296)/JVS(1228) - XX(297) = X(297)/JVS(1232) - XX(298) = X(298)/JVS(1239) - XX(299) = X(299)/JVS(1242) - XX(300) = X(300)/JVS(1245) - XX(301) = X(301)/JVS(1252) - XX(302) = X(302)/JVS(1256) - XX(303) = X(303)/JVS(1259) - XX(304) = X(304)/JVS(1262) - XX(305) = X(305)/JVS(1265) - XX(306) = X(306)/JVS(1268) - XX(307) = X(307)/JVS(1271) - XX(308) = X(308)/JVS(1274) - XX(309) = X(309)/JVS(1277) - XX(310) = X(310)/JVS(1281) - XX(311) = X(311)/JVS(1284) - XX(312) = X(312)/JVS(1287) - XX(313) = X(313)/JVS(1290) - XX(314) = X(314)/JVS(1293) - XX(315) = X(315)/JVS(1297) - XX(316) = X(316)/JVS(1304) - XX(317) = X(317)/JVS(1307) - XX(318) = X(318)/JVS(1311) - XX(319) = X(319)/JVS(1315) - XX(320) = X(320)/JVS(1318) - XX(321) = X(321)/JVS(1321) - XX(322) = X(322)/JVS(1324) - XX(323) = X(323)/JVS(1328) - XX(324) = (X(324)-JVS(383)*XX(97)-JVS(1329)*XX(323))/(JVS(1332)) - XX(325) = X(325)/JVS(1336) - XX(326) = X(326)/JVS(1340) - XX(327) = X(327)/JVS(1347) - XX(328) = X(328)/JVS(1350) - XX(329) = X(329)/JVS(1354) - XX(330) = X(330)/JVS(1358) - XX(331) = X(331)/JVS(1362) - XX(332) = X(332)/JVS(1365) - XX(333) = X(333)/JVS(1368) - XX(334) = X(334)/JVS(1371) - XX(335) = X(335)/JVS(1374) - XX(336) = X(336)/JVS(1377) - XX(337) = X(337)/JVS(1380) - XX(338) = X(338)/JVS(1383) - XX(339) = X(339)/JVS(1386) - XX(340) = X(340)/JVS(1389) - XX(341) = X(341)/JVS(1392) - XX(342) = X(342)/JVS(1396) - XX(343) = X(343)/JVS(1399) - XX(344) = X(344)/JVS(1403) - XX(345) = X(345)/JVS(1406) - XX(346) = X(346)/JVS(1409) - XX(347) = X(347)/JVS(1412) - XX(348) = X(348)/JVS(1415) - XX(349) = X(349)/JVS(1418) - XX(350) = X(350)/JVS(1421) - XX(351) = X(351)/JVS(1424) - XX(352) = X(352)/JVS(1428) - XX(353) = X(353)/JVS(1431) - XX(354) = X(354)/JVS(1434) - XX(355) = X(355)/JVS(1437) - XX(356) = X(356)/JVS(1440) - XX(357) = X(357)/JVS(1443) - XX(358) = X(358)/JVS(1446) - XX(359) = X(359)/JVS(1449) - XX(360) = X(360)/JVS(1452) - XX(361) = X(361)/JVS(1456) - XX(362) = X(362)/JVS(1459) - XX(363) = X(363)/JVS(1462) - XX(364) = X(364)/JVS(1466) - XX(365) = X(365)/JVS(1470) - XX(366) = X(366)/JVS(1473) - XX(367) = X(367)/JVS(1476) - XX(368) = X(368)/JVS(1480) - XX(369) = X(369)/JVS(1483) - XX(370) = X(370)/JVS(1487) - XX(371) = X(371)/JVS(1493) - XX(372) = X(372)/JVS(1496) - XX(373) = X(373)/JVS(1500) - XX(374) = X(374)/JVS(1504) - XX(375) = X(375)/JVS(1507) - XX(376) = X(376)/JVS(1511) - XX(377) = X(377)/JVS(1515) - XX(378) = X(378)/JVS(1518) - XX(379) = X(379)/JVS(1522) - XX(380) = X(380)/JVS(1526) - XX(381) = X(381)/JVS(1529) - XX(382) = X(382)/JVS(1532) - XX(383) = X(383)/JVS(1535) - XX(384) = X(384)/JVS(1538) - XX(385) = X(385)/JVS(1542) - XX(386) = X(386)/JVS(1545) - XX(387) = X(387)/JVS(1548) - XX(388) = X(388)/JVS(1552) - XX(389) = X(389)/JVS(1556) - XX(390) = X(390)/JVS(1560) - XX(391) = X(391)/JVS(1563) - XX(392) = X(392)/JVS(1566) - XX(393) = X(393)/JVS(1569) - XX(394) = X(394)/JVS(1573) - XX(395) = X(395)/JVS(1576) - XX(396) = X(396)/JVS(1579) - XX(397) = X(397)/JVS(1583) - XX(398) = (X(398)-JVS(464)*XX(120)-JVS(1584)*XX(397))/(JVS(1587)) - XX(399) = X(399)/JVS(1591) - XX(400) = X(400)/JVS(1594) - XX(401) = X(401)/JVS(1597) - XX(402) = X(402)/JVS(1600) - XX(403) = X(403)/JVS(1603) - XX(404) = X(404)/JVS(1607) - XX(405) = (X(405)-JVS(554)*XX(145)-JVS(1608)*XX(404))/(JVS(1611)) - XX(406) = X(406)/JVS(1615) - XX(407) = X(407)/JVS(1619) - XX(408) = X(408)/JVS(1626) - XX(409) = X(409)/JVS(1629) - XX(410) = X(410)/JVS(1632) - XX(411) = X(411)/JVS(1635) - XX(412) = X(412)/JVS(1638) - XX(413) = X(413)/JVS(1641) - XX(414) = X(414)/JVS(1644) - XX(415) = X(415)/JVS(1648) - XX(416) = X(416)/JVS(1651) - XX(417) = X(417)/JVS(1654) - XX(418) = X(418)/JVS(1657) - XX(419) = X(419)/JVS(1660) - XX(420) = X(420)/JVS(1663) - XX(421) = X(421)/JVS(1668) - XX(422) = (X(422)-JVS(301)*XX(75))/(JVS(1675)) - XX(423) = X(423)/JVS(1678) - XX(424) = X(424)/JVS(1682) - XX(425) = X(425)/JVS(1685) - XX(426) = X(426)/JVS(1688) - XX(427) = X(427)/JVS(1691) - XX(428) = X(428)/JVS(1694) - XX(429) = X(429)/JVS(1697) - XX(430) = X(430)/JVS(1700) - XX(431) = X(431)/JVS(1703) - XX(432) = X(432)/JVS(1706) - XX(433) = X(433)/JVS(1709) - XX(434) = X(434)/JVS(1713) - XX(435) = X(435)/JVS(1717) - XX(436) = X(436)/JVS(1721) - XX(437) = X(437)/JVS(1724) - XX(438) = X(438)/JVS(1727) - XX(439) = X(439)/JVS(1731) - XX(440) = X(440)/JVS(1734) - XX(441) = X(441)/JVS(1737) - XX(442) = X(442)/JVS(1740) - XX(443) = X(443)/JVS(1744) - XX(444) = X(444)/JVS(1751) - XX(445) = X(445)/JVS(1755) - XX(446) = X(446)/JVS(1762) - XX(447) = X(447)/JVS(1765) - XX(448) = X(448)/JVS(1768) - XX(449) = X(449)/JVS(1771) - XX(450) = X(450)/JVS(1776) - XX(451) = X(451)/JVS(1783) - XX(452) = X(452)/JVS(1786) - XX(453) = X(453)/JVS(1789) - XX(454) = (X(454)-JVS(1246)*XX(300))/(JVS(1792)) - XX(455) = X(455)/JVS(1796) - XX(456) = X(456)/JVS(1800) - XX(457) = X(457)/JVS(1804) - XX(458) = X(458)/JVS(1808) - XX(459) = (X(459)-JVS(415)*XX(107)-JVS(1501)*XX(373))/(JVS(1811)) - XX(460) = X(460)/JVS(1815) - XX(461) = X(461)/JVS(1818) - XX(462) = X(462)/JVS(1822) - XX(463) = X(463)/JVS(1825) - XX(464) = X(464)/JVS(1828) - XX(465) = X(465)/JVS(1831) - XX(466) = X(466)/JVS(1834) - XX(467) = X(467)/JVS(1837) - XX(468) = X(468)/JVS(1840) - XX(469) = X(469)/JVS(1843) - XX(470) = X(470)/JVS(1846) - XX(471) = X(471)/JVS(1850) - XX(472) = X(472)/JVS(1854) - XX(473) = X(473)/JVS(1858) - XX(474) = X(474)/JVS(1861) - XX(475) = X(475)/JVS(1865) - XX(476) = X(476)/JVS(1868) - XX(477) = X(477)/JVS(1871) - XX(478) = X(478)/JVS(1874) - XX(479) = X(479)/JVS(1877) - XX(480) = X(480)/JVS(1881) - XX(481) = X(481)/JVS(1884) - XX(482) = X(482)/JVS(1887) - XX(483) = X(483)/JVS(1890) - XX(484) = X(484)/JVS(1894) - XX(485) = X(485)/JVS(1898) - XX(486) = X(486)/JVS(1901) - XX(487) = X(487)/JVS(1904) - XX(488) = X(488)/JVS(1907) - XX(489) = X(489)/JVS(1911) - XX(490) = X(490)/JVS(1916) - XX(491) = (X(491)-JVS(499)*XX(130)-JVS(1917)*XX(490))/(JVS(1920)) - XX(492) = X(492)/JVS(1924) - XX(493) = X(493)/JVS(1928) - XX(494) = X(494)/JVS(1931) - XX(495) = X(495)/JVS(1934) - XX(496) = X(496)/JVS(1937) - XX(497) = X(497)/JVS(1941) - XX(498) = X(498)/JVS(1944) - XX(499) = X(499)/JVS(1947) - XX(500) = X(500)/JVS(1951) - XX(501) = X(501)/JVS(1954) - XX(502) = X(502)/JVS(1957) - XX(503) = X(503)/JVS(1960) - XX(504) = X(504)/JVS(1964) - XX(505) = X(505)/JVS(1967) - XX(506) = X(506)/JVS(1970) - XX(507) = X(507)/JVS(1974) - XX(508) = (X(508)-JVS(281)*XX(69)-JVS(1855)*XX(472))/(JVS(1978)) - XX(509) = X(509)/JVS(1982) - XX(510) = X(510)/JVS(1986) - XX(511) = X(511)/JVS(1990) - XX(512) = X(512)/JVS(1993) - XX(513) = X(513)/JVS(1996) - XX(514) = X(514)/JVS(1999) - XX(515) = X(515)/JVS(2002) - XX(516) = X(516)/JVS(2006) - XX(517) = X(517)/JVS(2009) - XX(518) = (X(518)-JVS(86)*XX(14)-JVS(1797)*XX(455))/(JVS(2012)) - XX(519) = X(519)/JVS(2016) - XX(520) = X(520)/JVS(2020) - XX(521) = (X(521)-JVS(448)*XX(116)-JVS(1312)*XX(318))/(JVS(2023)) - XX(522) = X(522)/JVS(2027) - XX(523) = X(523)/JVS(2030) - XX(524) = X(524)/JVS(2033) - XX(525) = X(525)/JVS(2036) - XX(526) = X(526)/JVS(2039) - XX(527) = X(527)/JVS(2042) - XX(528) = X(528)/JVS(2045) - XX(529) = X(529)/JVS(2050) - XX(530) = X(530)/JVS(2053) - XX(531) = X(531)/JVS(2056) - XX(532) = X(532)/JVS(2059) - XX(533) = X(533)/JVS(2064) - XX(534) = X(534)/JVS(2069) - XX(535) = X(535)/JVS(2074) - XX(536) = X(536)/JVS(2079) - XX(537) = X(537)/JVS(2082) - XX(538) = X(538)/JVS(2087) - XX(539) = X(539)/JVS(2090) - XX(540) = X(540)/JVS(2095) - XX(541) = X(541)/JVS(2098) - XX(542) = X(542)/JVS(2103) - XX(543) = X(543)/JVS(2106) - XX(544) = X(544)/JVS(2109) - XX(545) = X(545)/JVS(2114) - XX(546) = X(546)/JVS(2119) - XX(547) = X(547)/JVS(2122) - XX(548) = X(548)/JVS(2125) - XX(549) = X(549)/JVS(2128) - XX(550) = X(550)/JVS(2133) - XX(551) = X(551)/JVS(2138) - XX(552) = X(552)/JVS(2143) - XX(553) = X(553)/JVS(2148) - XX(554) = X(554)/JVS(2153) - XX(555) = X(555)/JVS(2156) - XX(556) = X(556)/JVS(2161) - XX(557) = X(557)/JVS(2164) - XX(558) = X(558)/JVS(2169) - XX(559) = X(559)/JVS(2172) - XX(560) = X(560)/JVS(2175) - XX(561) = X(561)/JVS(2179) - XX(562) = (X(562)-JVS(879)*XX(201)-JVS(2180)*XX(561))/(JVS(2184)) - XX(563) = X(563)/JVS(2188) - XX(564) = X(564)/JVS(2191) - XX(565) = X(565)/JVS(2196) - XX(566) = X(566)/JVS(2199) - XX(567) = X(567)/JVS(2202) - XX(568) = X(568)/JVS(2205) - XX(569) = X(569)/JVS(2208) - XX(570) = X(570)/JVS(2211) - XX(571) = X(571)/JVS(2216) - XX(572) = X(572)/JVS(2221) - XX(573) = X(573)/JVS(2224) - XX(574) = X(574)/JVS(2229) - XX(575) = X(575)/JVS(2234) - XX(576) = X(576)/JVS(2239) - XX(577) = X(577)/JVS(2242) - XX(578) = X(578)/JVS(2245) - XX(579) = X(579)/JVS(2250) - XX(580) = X(580)/JVS(2253) - XX(581) = X(581)/JVS(2256) - XX(582) = X(582)/JVS(2261) - XX(583) = X(583)/JVS(2266) - XX(584) = X(584)/JVS(2269) - XX(585) = X(585)/JVS(2274) - XX(586) = X(586)/JVS(2279) - XX(587) = X(587)/JVS(2282) - XX(588) = X(588)/JVS(2285) - XX(589) = X(589)/JVS(2288) - XX(590) = X(590)/JVS(2293) - XX(591) = X(591)/JVS(2296) - XX(592) = X(592)/JVS(2299) - XX(593) = X(593)/JVS(2305) - XX(594) = (X(594)-JVS(348)*XX(88)-JVS(2306)*XX(593))/(JVS(2310)) - XX(595) = X(595)/JVS(2314) - XX(596) = X(596)/JVS(2319) - XX(597) = X(597)/JVS(2324) - XX(598) = X(598)/JVS(2329) - XX(599) = (X(599)-JVS(1137)*XX(271))/(JVS(2332)) - XX(600) = X(600)/JVS(2335) - XX(601) = X(601)/JVS(2340) - XX(602) = X(602)/JVS(2343) - XX(603) = X(603)/JVS(2346) - XX(604) = X(604)/JVS(2351) - XX(605) = X(605)/JVS(2354) - XX(606) = X(606)/JVS(2359) - XX(607) = X(607)/JVS(2364) - XX(608) = X(608)/JVS(2369) - XX(609) = X(609)/JVS(2372) - XX(610) = X(610)/JVS(2375) - XX(611) = X(611)/JVS(2380) - XX(612) = X(612)/JVS(2385) - XX(613) = X(613)/JVS(2388) - XX(614) = X(614)/JVS(2393) - XX(615) = X(615)/JVS(2396) - XX(616) = X(616)/JVS(2401) - XX(617) = X(617)/JVS(2404) - XX(618) = X(618)/JVS(2409) - XX(619) = X(619)/JVS(2414) - XX(620) = X(620)/JVS(2419) - XX(621) = X(621)/JVS(2424) - XX(622) = X(622)/JVS(2427) - XX(623) = X(623)/JVS(2430) - XX(624) = X(624)/JVS(2435) - XX(625) = X(625)/JVS(2440) - XX(626) = X(626)/JVS(2445) - XX(627) = X(627)/JVS(2448) - XX(628) = X(628)/JVS(2453) - XX(629) = X(629)/JVS(2456) - XX(630) = X(630)/JVS(2461) - XX(631) = X(631)/JVS(2466) - XX(632) = X(632)/JVS(2471) - XX(633) = X(633)/JVS(2476) - XX(634) = X(634)/JVS(2479) - XX(635) = X(635)/JVS(2482) - XX(636) = X(636)/JVS(2487) - XX(637) = X(637)/JVS(2490) - XX(638) = X(638)/JVS(2495) - XX(639) = X(639)/JVS(2500) - XX(640) = (X(640)-JVS(564)*XX(147))/(JVS(2505)) - XX(641) = X(641)/JVS(2508) - XX(642) = X(642)/JVS(2513) - XX(643) = X(643)/JVS(2518) - XX(644) = X(644)/JVS(2523) - XX(645) = X(645)/JVS(2528) - XX(646) = X(646)/JVS(2533) - XX(647) = X(647)/JVS(2538) - XX(648) = X(648)/JVS(2541) - XX(649) = X(649)/JVS(2546) - XX(650) = X(650)/JVS(2551) - XX(651) = X(651)/JVS(2554) - XX(652) = X(652)/JVS(2558) - XX(653) = (X(653)-JVS(737)*XX(176)-JVS(2559)*XX(652))/(JVS(2563)) - XX(654) = X(654)/JVS(2567) - XX(655) = X(655)/JVS(2572) - XX(656) = X(656)/JVS(2577) - XX(657) = X(657)/JVS(2582) - XX(658) = X(658)/JVS(2585) - XX(659) = X(659)/JVS(2590) - XX(660) = X(660)/JVS(2593) - XX(661) = X(661)/JVS(2598) - XX(662) = X(662)/JVS(2601) - XX(663) = X(663)/JVS(2604) - XX(664) = X(664)/JVS(2609) - XX(665) = X(665)/JVS(2612) - XX(666) = X(666)/JVS(2617) - XX(667) = X(667)/JVS(2622) - XX(668) = X(668)/JVS(2625) - XX(669) = X(669)/JVS(2628) - XX(670) = X(670)/JVS(2633) - XX(671) = X(671)/JVS(2638) - XX(672) = X(672)/JVS(2641) - XX(673) = X(673)/JVS(2646) - XX(674) = X(674)/JVS(2651) - XX(675) = X(675)/JVS(2656) - XX(676) = X(676)/JVS(2659) - XX(677) = X(677)/JVS(2662) - XX(678) = X(678)/JVS(2667) - XX(679) = X(679)/JVS(2670) - XX(680) = X(680)/JVS(2676) - XX(681) = X(681)/JVS(2681) - XX(682) = X(682)/JVS(2684) - XX(683) = X(683)/JVS(2689) - XX(684) = X(684)/JVS(2692) - XX(685) = X(685)/JVS(2695) - XX(686) = X(686)/JVS(2698) - XX(687) = X(687)/JVS(2701) - XX(688) = X(688)/JVS(2706) - XX(689) = X(689)/JVS(2711) - XX(690) = X(690)/JVS(2716) - XX(691) = X(691)/JVS(2719) - XX(692) = X(692)/JVS(2724) - XX(693) = X(693)/JVS(2727) - XX(694) = X(694)/JVS(2732) - XX(695) = X(695)/JVS(2735) - XX(696) = X(696)/JVS(2740) - XX(697) = X(697)/JVS(2743) - XX(698) = X(698)/JVS(2748) - XX(699) = X(699)/JVS(2753) - XX(700) = X(700)/JVS(2756) - XX(701) = X(701)/JVS(2759) - XX(702) = X(702)/JVS(2762) - XX(703) = X(703)/JVS(2767) - XX(704) = X(704)/JVS(2772) - XX(705) = X(705)/JVS(2777) - XX(706) = X(706)/JVS(2780) - XX(707) = X(707)/JVS(2785) - XX(708) = X(708)/JVS(2790) - XX(709) = X(709)/JVS(2795) - XX(710) = X(710)/JVS(2800) - XX(711) = X(711)/JVS(2805) - XX(712) = X(712)/JVS(2810) - XX(713) = X(713)/JVS(2815) - XX(714) = X(714)/JVS(2818) - XX(715) = X(715)/JVS(2823) - XX(716) = X(716)/JVS(2828) - XX(717) = X(717)/JVS(2833) - XX(718) = X(718)/JVS(2838) - XX(719) = X(719)/JVS(2841) - XX(720) = X(720)/JVS(2844) - XX(721) = X(721)/JVS(2849) - XX(722) = X(722)/JVS(2854) - XX(723) = X(723)/JVS(2859) - XX(724) = X(724)/JVS(2862) - XX(725) = X(725)/JVS(2867) - XX(726) = X(726)/JVS(2870) - XX(727) = X(727)/JVS(2875) - XX(728) = X(728)/JVS(2880) - XX(729) = X(729)/JVS(2885) - XX(730) = X(730)/JVS(2890) - XX(731) = X(731)/JVS(2895) - XX(732) = X(732)/JVS(2900) - XX(733) = X(733)/JVS(2903) - XX(734) = X(734)/JVS(2908) - XX(735) = X(735)/JVS(2914) - XX(736) = (X(736)-JVS(601)*XX(154)-JVS(2915)*XX(735))/(JVS(2919)) - XX(737) = X(737)/JVS(2923) - XX(738) = X(738)/JVS(2928) - XX(739) = X(739)/JVS(2931) - XX(740) = X(740)/JVS(2936) - XX(741) = X(741)/JVS(2941) - XX(742) = X(742)/JVS(2946) - XX(743) = X(743)/JVS(2949) - XX(744) = X(744)/JVS(2954) - XX(745) = X(745)/JVS(2959) - XX(746) = X(746)/JVS(2964) - XX(747) = X(747)/JVS(2969) - XX(748) = X(748)/JVS(2974) - XX(749) = X(749)/JVS(2979) - XX(750) = X(750)/JVS(2984) - XX(751) = X(751)/JVS(2989) - XX(752) = X(752)/JVS(2994) - XX(753) = X(753)/JVS(2997) - XX(754) = X(754)/JVS(3002) - XX(755) = X(755)/JVS(3005) - XX(756) = X(756)/JVS(3010) - XX(757) = X(757)/JVS(3015) - XX(758) = X(758)/JVS(3018) - XX(759) = X(759)/JVS(3021) - XX(760) = X(760)/JVS(3025) - XX(761) = X(761)/JVS(3030) - XX(762) = X(762)/JVS(3035) - XX(763) = X(763)/JVS(3038) - XX(764) = X(764)/JVS(3041) - XX(765) = X(765)/JVS(3044) - XX(766) = X(766)/JVS(3049) - XX(767) = X(767)/JVS(3052) - XX(768) = X(768)/JVS(3055) - XX(769) = X(769)/JVS(3060) - XX(770) = X(770)/JVS(3063) - XX(771) = X(771)/JVS(3068) - XX(772) = X(772)/JVS(3071) - XX(773) = X(773)/JVS(3074) - XX(774) = X(774)/JVS(3079) - XX(775) = X(775)/JVS(3084) - XX(776) = X(776)/JVS(3089) - XX(777) = X(777)/JVS(3094) - XX(778) = X(778)/JVS(3099) - XX(779) = X(779)/JVS(3104) - XX(780) = X(780)/JVS(3107) - XX(781) = X(781)/JVS(3112) - XX(782) = X(782)/JVS(3117) - XX(783) = X(783)/JVS(3122) - XX(784) = X(784)/JVS(3127) - XX(785) = X(785)/JVS(3132) - XX(786) = X(786)/JVS(3135) - XX(787) = X(787)/JVS(3140) - XX(788) = X(788)/JVS(3145) - XX(789) = X(789)/JVS(3148) - XX(790) = X(790)/JVS(3151) - XX(791) = X(791)/JVS(3154) - XX(792) = X(792)/JVS(3159) - XX(793) = X(793)/JVS(3164) - XX(794) = X(794)/JVS(3167) - XX(795) = X(795)/JVS(3170) - XX(796) = X(796)/JVS(3175) - XX(797) = X(797)/JVS(3178) - XX(798) = X(798)/JVS(3183) - XX(799) = X(799)/JVS(3188) - XX(800) = X(800)/JVS(3191) - XX(801) = X(801)/JVS(3196) - XX(802) = X(802)/JVS(3201) - XX(803) = X(803)/JVS(3206) - XX(804) = X(804)/JVS(3209) - XX(805) = X(805)/JVS(3212) - XX(806) = X(806)/JVS(3215) - XX(807) = X(807)/JVS(3218) - XX(808) = X(808)/JVS(3221) - XX(809) = X(809)/JVS(3226) - XX(810) = X(810)/JVS(3231) - XX(811) = X(811)/JVS(3236) - XX(812) = X(812)/JVS(3239) - XX(813) = X(813)/JVS(3242) - XX(814) = X(814)/JVS(3245) - XX(815) = X(815)/JVS(3250) - XX(816) = X(816)/JVS(3255) - XX(817) = X(817)/JVS(3260) - XX(818) = X(818)/JVS(3265) - XX(819) = X(819)/JVS(3270) - XX(820) = X(820)/JVS(3273) - XX(821) = X(821)/JVS(3278) - XX(822) = X(822)/JVS(3281) - XX(823) = X(823)/JVS(3285) - XX(824) = X(824)/JVS(3289) - XX(825) = X(825)/JVS(3293) - XX(826) = (X(826)-JVS(1205)*XX(290))/(JVS(3297)) - XX(827) = X(827)/JVS(3301) - XX(828) = X(828)/JVS(3305) - XX(829) = X(829)/JVS(3309) - XX(830) = (X(830)-JVS(570)*XX(149))/(JVS(3313)) - XX(831) = X(831)/JVS(3317) - XX(832) = X(832)/JVS(3321) - XX(833) = X(833)/JVS(3325) - XX(834) = X(834)/JVS(3329) - XX(835) = X(835)/JVS(3333) - XX(836) = X(836)/JVS(3337) - XX(837) = X(837)/JVS(3341) - XX(838) = X(838)/JVS(3345) - XX(839) = X(839)/JVS(3349) - XX(840) = (X(840)-JVS(738)*XX(176)-JVS(2560)*XX(652))/(JVS(3353)) - XX(841) = X(841)/JVS(3357) - XX(842) = X(842)/JVS(3361) - XX(843) = X(843)/JVS(3365) - XX(844) = X(844)/JVS(3369) - XX(845) = X(845)/JVS(3373) - XX(846) = X(846)/JVS(3377) - XX(847) = X(847)/JVS(3381) - XX(848) = (X(848)-JVS(853)*XX(196))/(JVS(3385)) - XX(849) = X(849)/JVS(3389) - XX(850) = X(850)/JVS(3393) - XX(851) = X(851)/JVS(3397) - XX(852) = X(852)/JVS(3401) - XX(853) = X(853)/JVS(3405) - XX(854) = X(854)/JVS(3409) - XX(855) = X(855)/JVS(3413) - XX(856) = X(856)/JVS(3417) - XX(857) = X(857)/JVS(3421) - XX(858) = X(858)/JVS(3425) - XX(859) = X(859)/JVS(3429) - XX(860) = X(860)/JVS(3433) - XX(861) = X(861)/JVS(3437) - XX(862) = X(862)/JVS(3441) - XX(863) = X(863)/JVS(3445) - XX(864) = X(864)/JVS(3449) - XX(865) = (X(865)-JVS(160)*XX(36))/(JVS(3453)) - XX(866) = X(866)/JVS(3457) - XX(867) = X(867)/JVS(3461) - XX(868) = X(868)/JVS(3465) - XX(869) = X(869)/JVS(3469) - XX(870) = (X(870)-JVS(781)*XX(184))/(JVS(3473)) - XX(871) = (X(871)-JVS(911)*XX(206))/(JVS(3477)) - XX(872) = (X(872)-JVS(749)*XX(178))/(JVS(3481)) - XX(873) = X(873)/JVS(3485) - XX(874) = X(874)/JVS(3489) - XX(875) = X(875)/JVS(3493) - XX(876) = X(876)/JVS(3497) - XX(877) = X(877)/JVS(3501) - XX(878) = X(878)/JVS(3505) - XX(879) = (X(879)-JVS(835)*XX(193))/(JVS(3509)) - XX(880) = (X(880)-JVS(625)*XX(158))/(JVS(3513)) - XX(881) = X(881)/JVS(3517) - XX(882) = X(882)/JVS(3521) - XX(883) = X(883)/JVS(3525) - XX(884) = X(884)/JVS(3529) - XX(885) = X(885)/JVS(3533) - XX(886) = X(886)/JVS(3537) - XX(887) = X(887)/JVS(3541) - XX(888) = X(888)/JVS(3545) - XX(889) = X(889)/JVS(3549) - XX(890) = X(890)/JVS(3553) - XX(891) = X(891)/JVS(3557) - XX(892) = X(892)/JVS(3561) - XX(893) = X(893)/JVS(3565) - XX(894) = X(894)/JVS(3569) - XX(895) = X(895)/JVS(3573) - XX(896) = X(896)/JVS(3577) - XX(897) = X(897)/JVS(3581) - XX(898) = X(898)/JVS(3585) - XX(899) = X(899)/JVS(3589) - XX(900) = X(900)/JVS(3593) - XX(901) = X(901)/JVS(3597) - XX(902) = X(902)/JVS(3601) - XX(903) = X(903)/JVS(3605) - XX(904) = X(904)/JVS(3609) - XX(905) = X(905)/JVS(3613) - XX(906) = X(906)/JVS(3617) - XX(907) = X(907)/JVS(3621) - XX(908) = X(908)/JVS(3625) - XX(909) = X(909)/JVS(3629) - XX(910) = X(910)/JVS(3633) - XX(911) = X(911)/JVS(3639) - XX(912) = X(912)/JVS(3643) - XX(913) = X(913)/JVS(3647) - XX(914) = X(914)/JVS(3651) - XX(915) = X(915)/JVS(3655) - XX(916) = X(916)/JVS(3659) - XX(917) = X(917)/JVS(3663) - XX(918) = X(918)/JVS(3667) - XX(919) = X(919)/JVS(3671) - XX(920) = X(920)/JVS(3675) - XX(921) = X(921)/JVS(3679) - XX(922) = X(922)/JVS(3683) - XX(923) = X(923)/JVS(3687) - XX(924) = X(924)/JVS(3691) - XX(925) = X(925)/JVS(3695) - XX(926) = X(926)/JVS(3699) - XX(927) = X(927)/JVS(3703) - XX(928) = X(928)/JVS(3707) - XX(929) = X(929)/JVS(3711) - XX(930) = X(930)/JVS(3715) - XX(931) = (X(931)-JVS(1777)*XX(450))/(JVS(3719)) - XX(932) = X(932)/JVS(3723) - XX(933) = X(933)/JVS(3727) - XX(934) = X(934)/JVS(3731) - XX(935) = (X(935)-JVS(694)*XX(169))/(JVS(3735)) - XX(936) = X(936)/JVS(3739) - XX(937) = X(937)/JVS(3743) - XX(938) = X(938)/JVS(3747) - XX(939) = X(939)/JVS(3751) - XX(940) = X(940)/JVS(3755) - XX(941) = X(941)/JVS(3759) - XX(942) = X(942)/JVS(3763) - XX(943) = X(943)/JVS(3767) - XX(944) = X(944)/JVS(3771) - XX(945) = X(945)/JVS(3775) - XX(946) = X(946)/JVS(3779) - XX(947) = X(947)/JVS(3783) - XX(948) = X(948)/JVS(3787) - XX(949) = (X(949)-JVS(631)*XX(159))/(JVS(3791)) - XX(950) = X(950)/JVS(3795) - XX(951) = X(951)/JVS(3799) - XX(952) = X(952)/JVS(3803) - XX(953) = X(953)/JVS(3807) - XX(954) = X(954)/JVS(3811) - XX(955) = X(955)/JVS(3815) - XX(956) = X(956)/JVS(3819) - XX(957) = X(957)/JVS(3823) - XX(958) = X(958)/JVS(3827) - XX(959) = X(959)/JVS(3831) - XX(960) = X(960)/JVS(3835) - XX(961) = X(961)/JVS(3839) - XX(962) = X(962)/JVS(3843) - XX(963) = (X(963)-JVS(328)*XX(82))/(JVS(3847)) - XX(964) = X(964)/JVS(3851) - XX(965) = X(965)/JVS(3855) - XX(966) = X(966)/JVS(3859) - XX(967) = X(967)/JVS(3863) - XX(968) = X(968)/JVS(3867) - XX(969) = (X(969)-JVS(2144)*XX(552))/(JVS(3871)) - XX(970) = (X(970)-JVS(1341)*XX(326))/(JVS(3875)) - XX(971) = X(971)/JVS(3879) - XX(972) = X(972)/JVS(3883) - XX(973) = (X(973)-JVS(656)*XX(163))/(JVS(3887)) - XX(974) = X(974)/JVS(3891) - XX(975) = X(975)/JVS(3895) - XX(976) = X(976)/JVS(3899) - XX(977) = X(977)/JVS(3903) - XX(978) = X(978)/JVS(3907) - XX(979) = X(979)/JVS(3911) - XX(980) = X(980)/JVS(3915) - XX(981) = X(981)/JVS(3919) - XX(982) = X(982)/JVS(3923) - XX(983) = X(983)/JVS(3927) - XX(984) = X(984)/JVS(3931) - XX(985) = X(985)/JVS(3935) - XX(986) = X(986)/JVS(3939) - XX(987) = X(987)/JVS(3943) - XX(988) = X(988)/JVS(3947) - XX(989) = (X(989)-JVS(304)*XX(76))/(JVS(3951)) - XX(990) = X(990)/JVS(3955) - XX(991) = X(991)/JVS(3959) - XX(992) = (X(992)-JVS(320)*XX(80))/(JVS(3963)) - XX(993) = X(993)/JVS(3967) - XX(994) = (X(994)-JVS(701)*XX(170))/(JVS(3971)) - XX(995) = X(995)/JVS(3975) - XX(996) = X(996)/JVS(3979) - XX(997) = X(997)/JVS(3983) - XX(998) = X(998)/JVS(3987) - XX(999) = X(999)/JVS(3991) - XX(1000) = X(1000)/JVS(3995) - XX(1001) = X(1001)/JVS(3999) - XX(1002) = X(1002)/JVS(4003) - XX(1003) = X(1003)/JVS(4007) - XX(1004) = (X(1004)-JVS(582)*XX(151))/(JVS(4011)) - XX(1005) = X(1005)/JVS(4015) - XX(1006) = X(1006)/JVS(4019) - XX(1007) = (X(1007)-JVS(1488)*XX(370))/(JVS(4023)) - XX(1008) = X(1008)/JVS(4027) - XX(1009) = X(1009)/JVS(4031) - XX(1010) = X(1010)/JVS(4035) - XX(1011) = X(1011)/JVS(4039) - XX(1012) = X(1012)/JVS(4043) - XX(1013) = X(1013)/JVS(4047) - XX(1014) = X(1014)/JVS(4051) - XX(1015) = X(1015)/JVS(4055) - XX(1016) = X(1016)/JVS(4059) - XX(1017) = X(1017)/JVS(4063) - XX(1018) = X(1018)/JVS(4067) - XX(1019) = X(1019)/JVS(4071) - XX(1020) = X(1020)/JVS(4075) - XX(1021) = X(1021)/JVS(4079) - XX(1022) = X(1022)/JVS(4083) - XX(1023) = X(1023)/JVS(4087) - XX(1024) = X(1024)/JVS(4091) - XX(1025) = X(1025)/JVS(4095) - XX(1026) = X(1026)/JVS(4099) - XX(1027) = X(1027)/JVS(4103) - XX(1028) = (X(1028)-JVS(155)*XX(35))/(JVS(4107)) - XX(1029) = X(1029)/JVS(4111) - XX(1030) = X(1030)/JVS(4115) - XX(1031) = X(1031)/JVS(4119) - XX(1032) = (X(1032)-JVS(507)*XX(132))/(JVS(4123)) - XX(1033) = X(1033)/JVS(4127) - XX(1034) = X(1034)/JVS(4131) - XX(1035) = X(1035)/JVS(4135) - XX(1036) = X(1036)/JVS(4139) - XX(1037) = X(1037)/JVS(4143) - XX(1038) = X(1038)/JVS(4147) - XX(1039) = X(1039)/JVS(4151) - XX(1040) = X(1040)/JVS(4157) - XX(1041) = X(1041)/JVS(4161) - XX(1042) = X(1042)/JVS(4165) - XX(1043) = (X(1043)-JVS(180)*XX(42))/(JVS(4169)) - XX(1044) = X(1044)/JVS(4173) - XX(1045) = X(1045)/JVS(4177) - XX(1046) = X(1046)/JVS(4181) - XX(1047) = X(1047)/JVS(4185) - XX(1048) = X(1048)/JVS(4189) - XX(1049) = X(1049)/JVS(4193) - XX(1050) = X(1050)/JVS(4197) - XX(1051) = X(1051)/JVS(4201) - XX(1052) = (X(1052)-JVS(793)*XX(186))/(JVS(4205)) - XX(1053) = X(1053)/JVS(4209) - XX(1054) = X(1054)/JVS(4213) - XX(1055) = X(1055)/JVS(4217) - XX(1056) = X(1056)/JVS(4221) - XX(1057) = (X(1057)-JVS(602)*XX(154)-JVS(2916)*XX(735))/(JVS(4225)) - XX(1058) = X(1058)/JVS(4229) - XX(1059) = X(1059)/JVS(4233) - XX(1060) = X(1060)/JVS(4237) - XX(1061) = X(1061)/JVS(4241) - XX(1062) = (X(1062)-JVS(239)*XX(57))/(JVS(4245)) - XX(1063) = X(1063)/JVS(4249) - XX(1064) = X(1064)/JVS(4253) - XX(1065) = X(1065)/JVS(4257) - XX(1066) = X(1066)/JVS(4261) - XX(1067) = X(1067)/JVS(4265) - XX(1068) = X(1068)/JVS(4269) - XX(1069) = X(1069)/JVS(4273) - XX(1070) = (X(1070)-JVS(687)*XX(168))/(JVS(4277)) - XX(1071) = X(1071)/JVS(4281) - XX(1072) = X(1072)/JVS(4285) - XX(1073) = X(1073)/JVS(4289) - XX(1074) = X(1074)/JVS(4293) - XX(1075) = (X(1075)-JVS(453)*XX(117))/(JVS(4297)) - XX(1076) = X(1076)/JVS(4301) - XX(1077) = X(1077)/JVS(4305) - XX(1078) = X(1078)/JVS(4309) - XX(1079) = (X(1079)-JVS(829)*XX(192))/(JVS(4313)) - XX(1080) = X(1080)/JVS(4317) - XX(1081) = X(1081)/JVS(4321) - XX(1082) = (X(1082)-JVS(1669)*XX(421))/(JVS(4325)) - XX(1083) = X(1083)/JVS(4329) - XX(1084) = X(1084)/JVS(4333) - XX(1085) = X(1085)/JVS(4337) - XX(1086) = X(1086)/JVS(4341) - XX(1087) = X(1087)/JVS(4345) - XX(1088) = X(1088)/JVS(4349) - XX(1089) = (X(1089)-JVS(482)*XX(125))/(JVS(4353)) - XX(1090) = X(1090)/JVS(4357) - XX(1091) = X(1091)/JVS(4361) - XX(1092) = X(1092)/JVS(4365) - XX(1093) = (X(1093)-JVS(1745)*XX(443))/(JVS(4369)) - XX(1094) = X(1094)/JVS(4373) - XX(1095) = X(1095)/JVS(4377) - XX(1096) = X(1096)/JVS(4381) - XX(1097) = X(1097)/JVS(4385) - XX(1098) = X(1098)/JVS(4389) - XX(1099) = X(1099)/JVS(4393) - XX(1100) = X(1100)/JVS(4397) - XX(1101) = X(1101)/JVS(4401) - XX(1102) = X(1102)/JVS(4405) - XX(1103) = X(1103)/JVS(4409) - XX(1104) = X(1104)/JVS(4413) - XX(1105) = X(1105)/JVS(4417) - XX(1106) = X(1106)/JVS(4421) - XX(1107) = X(1107)/JVS(4425) - XX(1108) = X(1108)/JVS(4429) - XX(1109) = X(1109)/JVS(4433) - XX(1110) = X(1110)/JVS(4437) - XX(1111) = X(1111)/JVS(4441) - XX(1112) = X(1112)/JVS(4445) - XX(1113) = X(1113)/JVS(4449) - XX(1114) = X(1114)/JVS(4453) - XX(1115) = X(1115)/JVS(4457) - XX(1116) = X(1116)/JVS(4461) - XX(1117) = X(1117)/JVS(4465) - XX(1118) = X(1118)/JVS(4469) - XX(1119) = (X(1119)-JVS(725)*XX(174))/(JVS(4473)) - XX(1120) = X(1120)/JVS(4477) - XX(1121) = X(1121)/JVS(4481) - XX(1122) = X(1122)/JVS(4485) - XX(1123) = X(1123)/JVS(4489) - XX(1124) = X(1124)/JVS(4493) - XX(1125) = X(1125)/JVS(4497) - XX(1126) = X(1126)/JVS(4501) - XX(1127) = X(1127)/JVS(4505) - XX(1128) = (X(1128)-JVS(713)*XX(172))/(JVS(4509)) - XX(1129) = X(1129)/JVS(4513) - XX(1130) = X(1130)/JVS(4517) - XX(1131) = X(1131)/JVS(4521) - XX(1132) = X(1132)/JVS(4525) - XX(1133) = X(1133)/JVS(4531) - XX(1134) = X(1134)/JVS(4535) - XX(1135) = (X(1135)-JVS(649)*XX(162))/(JVS(4539)) - XX(1136) = X(1136)/JVS(4543) - XX(1137) = X(1137)/JVS(4547) - XX(1138) = X(1138)/JVS(4551) - XX(1139) = X(1139)/JVS(4555) - XX(1140) = X(1140)/JVS(4559) - XX(1141) = X(1141)/JVS(4563) - XX(1142) = X(1142)/JVS(4567) - XX(1143) = X(1143)/JVS(4571) - XX(1144) = X(1144)/JVS(4575) - XX(1145) = X(1145)/JVS(4579) - XX(1146) = X(1146)/JVS(4583) - XX(1147) = X(1147)/JVS(4587) - XX(1148) = X(1148)/JVS(4591) - XX(1149) = (X(1149)-JVS(817)*XX(190))/(JVS(4595)) - XX(1150) = X(1150)/JVS(4599) - XX(1151) = X(1151)/JVS(4603) - XX(1152) = X(1152)/JVS(4607) - XX(1153) = X(1153)/JVS(4611) - XX(1154) = X(1154)/JVS(4615) - XX(1155) = (X(1155)-JVS(1233)*XX(297))/(JVS(4619)) - XX(1156) = X(1156)/JVS(4623) - XX(1157) = X(1157)/JVS(4627) - XX(1158) = X(1158)/JVS(4631) - XX(1159) = X(1159)/JVS(4635) - XX(1160) = X(1160)/JVS(4639) - XX(1161) = X(1161)/JVS(4643) - XX(1162) = X(1162)/JVS(4647) - XX(1163) = X(1163)/JVS(4651) - XX(1164) = X(1164)/JVS(4655) - XX(1165) = X(1165)/JVS(4659) - XX(1166) = X(1166)/JVS(4663) - XX(1167) = X(1167)/JVS(4667) - XX(1168) = X(1168)/JVS(4671) - XX(1169) = X(1169)/JVS(4675) - XX(1170) = X(1170)/JVS(4679) - XX(1171) = X(1171)/JVS(4683) - XX(1172) = X(1172)/JVS(4687) - XX(1173) = X(1173)/JVS(4691) - XX(1174) = X(1174)/JVS(4695) - XX(1175) = X(1175)/JVS(4699) - XX(1176) = X(1176)/JVS(4703) - XX(1177) = X(1177)/JVS(4707) - XX(1178) = (X(1178)-JVS(613)*XX(156))/(JVS(4711)) - XX(1179) = X(1179)/JVS(4715) - XX(1180) = X(1180)/JVS(4719) - XX(1181) = X(1181)/JVS(4723) - XX(1182) = X(1182)/JVS(4727) - XX(1183) = X(1183)/JVS(4731) - XX(1184) = X(1184)/JVS(4735) - XX(1185) = X(1185)/JVS(4739) - XX(1186) = X(1186)/JVS(4743) - XX(1187) = X(1187)/JVS(4747) - XX(1188) = X(1188)/JVS(4751) - XX(1189) = X(1189)/JVS(4755) - XX(1190) = X(1190)/JVS(4759) - XX(1191) = X(1191)/JVS(4763) - XX(1192) = (X(1192)-JVS(540)*XX(141))/(JVS(4767)) - XX(1193) = X(1193)/JVS(4771) - XX(1194) = X(1194)/JVS(4775) - XX(1195) = (X(1195)-JVS(775)*XX(183))/(JVS(4779)) - XX(1196) = X(1196)/JVS(4783) - XX(1197) = (X(1197)-JVS(1620)*XX(407))/(JVS(4787)) - XX(1198) = X(1198)/JVS(4791) - XX(1199) = X(1199)/JVS(4795) - XX(1200) = X(1200)/JVS(4799) - XX(1201) = X(1201)/JVS(4803) - XX(1202) = (X(1202)-JVS(195)*XX(45))/(JVS(4807)) - XX(1203) = (X(1203)-JVS(209)*XX(49))/(JVS(4811)) - XX(1204) = X(1204)/JVS(4815) - XX(1205) = (X(1205)-JVS(867)*XX(199))/(JVS(4819)) - XX(1206) = X(1206)/JVS(4823) - XX(1207) = (X(1207)-JVS(1756)*XX(445))/(JVS(4827)) - XX(1208) = X(1208)/JVS(4831) - XX(1209) = X(1209)/JVS(4835) - XX(1210) = X(1210)/JVS(4839) - XX(1211) = X(1211)/JVS(4843) - XX(1212) = X(1212)/JVS(4847) - XX(1213) = X(1213)/JVS(4851) - XX(1214) = X(1214)/JVS(4855) - XX(1215) = X(1215)/JVS(4859) - XX(1216) = X(1216)/JVS(4863) - XX(1217) = X(1217)/JVS(4867) - XX(1218) = X(1218)/JVS(4871) - XX(1219) = X(1219)/JVS(4875) - XX(1220) = X(1220)/JVS(4879) - XX(1221) = X(1221)/JVS(4883) - XX(1222) = X(1222)/JVS(4887) - XX(1223) = X(1223)/JVS(4891) - XX(1224) = X(1224)/JVS(4895) - XX(1225) = X(1225)/JVS(4899) - XX(1226) = X(1226)/JVS(4903) - XX(1227) = X(1227)/JVS(4907) - XX(1228) = X(1228)/JVS(4911) - XX(1229) = X(1229)/JVS(4915) - XX(1230) = X(1230)/JVS(4919) - XX(1231) = X(1231)/JVS(4925) - XX(1232) = X(1232)/JVS(4929) - XX(1233) = X(1233)/JVS(4933) - XX(1234) = X(1234)/JVS(4937) - XX(1235) = X(1235)/JVS(4941) - XX(1236) = X(1236)/JVS(4945) - XX(1237) = (X(1237)-JVS(761)*XX(180))/(JVS(4949)) - XX(1238) = X(1238)/JVS(4953) - XX(1239) = X(1239)/JVS(4957) - XX(1240) = X(1240)/JVS(4961) - XX(1241) = X(1241)/JVS(4965) - XX(1242) = X(1242)/JVS(4969) - XX(1243) = X(1243)/JVS(4973) - XX(1244) = X(1244)/JVS(4977) - XX(1245) = (X(1245)-JVS(1298)*XX(315))/(JVS(4981)) - XX(1246) = X(1246)/JVS(4985) - XX(1247) = X(1247)/JVS(4989) - XX(1248) = X(1248)/JVS(4993) - XX(1249) = X(1249)/JVS(4997) - XX(1250) = X(1250)/JVS(5001) - XX(1251) = X(1251)/JVS(5005) - XX(1252) = X(1252)/JVS(5009) - XX(1253) = X(1253)/JVS(5013) - XX(1254) = X(1254)/JVS(5017) - XX(1255) = X(1255)/JVS(5021) - XX(1256) = X(1256)/JVS(5025) - XX(1257) = X(1257)/JVS(5030) - XX(1258) = X(1258)/JVS(5034) - XX(1259) = (X(1259)-JVS(859)*XX(197))/(JVS(5038)) - XX(1260) = (X(1260)-JVS(769)*XX(182))/(JVS(5042)) - XX(1261) = X(1261)/JVS(5046) - XX(1262) = (X(1262)-JVS(847)*XX(195))/(JVS(5050)) - XX(1263) = X(1263)/JVS(5054) - XX(1264) = X(1264)/JVS(5058) - XX(1265) = X(1265)/JVS(5062) - XX(1266) = X(1266)/JVS(5066) - XX(1267) = (X(1267)-JVS(643)*XX(161))/(JVS(5070)) - XX(1268) = X(1268)/JVS(5074) - XX(1269) = (X(1269)-JVS(2677)*XX(680))/(JVS(5078)) - XX(1270) = X(1270)/JVS(5082) - XX(1271) = X(1271)/JVS(5086) - XX(1272) = X(1272)/JVS(5090) - XX(1273) = X(1273)/JVS(5094) - XX(1274) = X(1274)/JVS(5098) - XX(1275) = X(1275)/JVS(5102) - XX(1276) = X(1276)/JVS(5106) - XX(1277) = X(1277)/JVS(5110) - XX(1278) = X(1278)/JVS(5114) - XX(1279) = (X(1279)-JVS(190)*XX(44))/(JVS(5118)) - XX(1280) = X(1280)/JVS(5122) - XX(1281) = X(1281)/JVS(5126) - XX(1282) = (X(1282)-JVS(359)*XX(91))/(JVS(5130)) - XX(1283) = X(1283)/JVS(5134) - XX(1284) = (X(1284)-JVS(880)*XX(201)-JVS(2181)*XX(561))/(JVS(5138)) - XX(1285) = X(1285)/JVS(5142) - XX(1286) = (X(1286)-JVS(799)*XX(187))/(JVS(5146)) - XX(1287) = X(1287)/JVS(5150) - XX(1288) = X(1288)/JVS(5154) - XX(1289) = X(1289)/JVS(5158) - XX(1290) = X(1290)/JVS(5162) - XX(1291) = X(1291)/JVS(5166) - XX(1292) = X(1292)/JVS(5170) - XX(1293) = X(1293)/JVS(5174) - XX(1294) = X(1294)/JVS(5178) - XX(1295) = X(1295)/JVS(5182) - XX(1296) = X(1296)/JVS(5186) - XX(1297) = X(1297)/JVS(5190) - XX(1298) = X(1298)/JVS(5194) - XX(1299) = X(1299)/JVS(5198) - XX(1300) = X(1300)/JVS(5202) - XX(1301) = X(1301)/JVS(5206) - XX(1302) = X(1302)/JVS(5210) - XX(1303) = X(1303)/JVS(5214) - XX(1304) = X(1304)/JVS(5218) - XX(1305) = X(1305)/JVS(5222) - XX(1306) = X(1306)/JVS(5226) - XX(1307) = X(1307)/JVS(5230) - XX(1308) = X(1308)/JVS(5234) - XX(1309) = X(1309)/JVS(5238) - XX(1310) = X(1310)/JVS(5242) - XX(1311) = X(1311)/JVS(5246) - XX(1312) = X(1312)/JVS(5250) - XX(1313) = X(1313)/JVS(5254) - XX(1314) = X(1314)/JVS(5258) - XX(1315) = X(1315)/JVS(5262) - XX(1316) = X(1316)/JVS(5266) - XX(1317) = X(1317)/JVS(5270) - XX(1318) = X(1318)/JVS(5274) - XX(1319) = X(1319)/JVS(5278) - XX(1320) = X(1320)/JVS(5282) - XX(1321) = X(1321)/JVS(5286) - XX(1322) = X(1322)/JVS(5290) - XX(1323) = X(1323)/JVS(5294) - XX(1324) = (X(1324)-JVS(1247)*XX(300))/(JVS(5298)) - XX(1325) = X(1325)/JVS(5302) - XX(1326) = X(1326)/JVS(5306) - XX(1327) = X(1327)/JVS(5310) - XX(1328) = (X(1328)-JVS(719)*XX(173))/(JVS(5314)) - XX(1329) = X(1329)/JVS(5318) - XX(1330) = X(1330)/JVS(5322) - XX(1331) = (X(1331)-JVS(932)*XX(211))/(JVS(5326)) - XX(1332) = X(1332)/JVS(5330) - XX(1333) = (X(1333)-JVS(435)*XX(113))/(JVS(5334)) - XX(1334) = X(1334)/JVS(5338) - XX(1335) = (X(1335)-JVS(898)*XX(204))/(JVS(5342)) - XX(1336) = X(1336)/JVS(5346) - XX(1337) = X(1337)/JVS(5350) - XX(1338) = X(1338)/JVS(5354) - XX(1339) = (X(1339)-JVS(619)*XX(157))/(JVS(5358)) - XX(1340) = X(1340)/JVS(5362) - XX(1341) = X(1341)/JVS(5366) - XX(1342) = X(1342)/JVS(5370) - XX(1343) = X(1343)/JVS(5374) - XX(1344) = X(1344)/JVS(5378) - XX(1345) = X(1345)/JVS(5382) - XX(1346) = X(1346)/JVS(5386) - XX(1347) = X(1347)/JVS(5390) - XX(1348) = X(1348)/JVS(5394) - XX(1349) = X(1349)/JVS(5398) - XX(1350) = X(1350)/JVS(5402) - XX(1351) = X(1351)/JVS(5406) - XX(1352) = X(1352)/JVS(5410) - XX(1353) = X(1353)/JVS(5414) - XX(1354) = X(1354)/JVS(5418) - XX(1355) = X(1355)/JVS(5422) - XX(1356) = X(1356)/JVS(5426) - XX(1357) = (X(1357)-JVS(663)*XX(164))/(JVS(5430)) - XX(1358) = X(1358)/JVS(5434) - XX(1359) = (X(1359)-JVS(364)*XX(92)-JVS(1987)*XX(510))/(JVS(5438)) - XX(1360) = X(1360)/JVS(5442) - XX(1361) = X(1361)/JVS(5446) - XX(1362) = X(1362)/JVS(5450) - XX(1363) = X(1363)/JVS(5454) - XX(1364) = X(1364)/JVS(5458) - XX(1365) = X(1365)/JVS(5462) - XX(1366) = X(1366)/JVS(5466) - XX(1367) = X(1367)/JVS(5470) - XX(1368) = X(1368)/JVS(5474) - XX(1369) = X(1369)/JVS(5478) - XX(1370) = X(1370)/JVS(5482) - XX(1371) = X(1371)/JVS(5486) - XX(1372) = X(1372)/JVS(5491) - XX(1373) = (X(1373)-JVS(2871)*XX(726)-JVS(5492)*XX(1372))/(JVS(5495)) - XX(1374) = (X(1374)-JVS(535)*XX(140))/(JVS(5499)) - XX(1375) = X(1375)/JVS(5503) - XX(1376) = X(1376)/JVS(5507) - XX(1377) = X(1377)/JVS(5511) - XX(1378) = X(1378)/JVS(5515) - XX(1379) = X(1379)/JVS(5519) - XX(1380) = X(1380)/JVS(5523) - XX(1381) = X(1381)/JVS(5527) - XX(1382) = X(1382)/JVS(5531) - XX(1383) = (X(1383)-JVS(559)*XX(146))/(JVS(5535)) - XX(1384) = X(1384)/JVS(5539) - XX(1385) = X(1385)/JVS(5543) - XX(1386) = X(1386)/JVS(5547) - XX(1387) = X(1387)/JVS(5551) - XX(1388) = X(1388)/JVS(5555) - XX(1389) = X(1389)/JVS(5559) - XX(1390) = X(1390)/JVS(5563) - XX(1391) = X(1391)/JVS(5567) - XX(1392) = X(1392)/JVS(5571) - XX(1393) = X(1393)/JVS(5575) - XX(1394) = X(1394)/JVS(5579) - XX(1395) = X(1395)/JVS(5583) - XX(1396) = X(1396)/JVS(5587) - XX(1397) = (X(1397)-JVS(378)*XX(96))/(JVS(5591)) - XX(1398) = X(1398)/JVS(5595) - XX(1399) = X(1399)/JVS(5599) - XX(1400) = X(1400)/JVS(5603) - XX(1401) = X(1401)/JVS(5607) - XX(1402) = X(1402)/JVS(5611) - XX(1403) = X(1403)/JVS(5615) - XX(1404) = X(1404)/JVS(5619) - XX(1405) = X(1405)/JVS(5623) - XX(1406) = X(1406)/JVS(5627) - XX(1407) = X(1407)/JVS(5631) - XX(1408) = X(1408)/JVS(5635) - XX(1409) = X(1409)/JVS(5639) - XX(1410) = (X(1410)-JVS(270)*XX(66))/(JVS(5643)) - XX(1411) = X(1411)/JVS(5647) - XX(1412) = (X(1412)-JVS(94)*XX(16))/(JVS(5651)) - XX(1413) = (X(1413)-JVS(823)*XX(191))/(JVS(5655)) - XX(1414) = X(1414)/JVS(5659) - XX(1415) = X(1415)/JVS(5663) - XX(1416) = (X(1416)-JVS(214)*XX(50))/(JVS(5667)) - XX(1417) = X(1417)/JVS(5671) - XX(1418) = X(1418)/JVS(5675) - XX(1419) = X(1419)/JVS(5679) - XX(1420) = X(1420)/JVS(5683) - XX(1421) = X(1421)/JVS(5687) - XX(1422) = X(1422)/JVS(5691) - XX(1423) = X(1423)/JVS(5695) - XX(1424) = X(1424)/JVS(5699) - XX(1425) = X(1425)/JVS(5703) - XX(1426) = X(1426)/JVS(5707) - XX(1427) = X(1427)/JVS(5711) - XX(1428) = X(1428)/JVS(5715) - XX(1429) = X(1429)/JVS(5719) - XX(1430) = X(1430)/JVS(5723) - XX(1431) = X(1431)/JVS(5727) - XX(1432) = X(1432)/JVS(5731) - XX(1433) = X(1433)/JVS(5735) - XX(1434) = X(1434)/JVS(5739) - XX(1435) = (X(1435)-JVS(312)*XX(78))/(JVS(5743)) - XX(1436) = X(1436)/JVS(5747) - XX(1437) = X(1437)/JVS(5751) - XX(1438) = X(1438)/JVS(5755) - XX(1439) = X(1439)/JVS(5759) - XX(1440) = X(1440)/JVS(5763) - XX(1441) = X(1441)/JVS(5767) - XX(1442) = X(1442)/JVS(5771) - XX(1443) = X(1443)/JVS(5775) - XX(1444) = X(1444)/JVS(5779) - XX(1445) = X(1445)/JVS(5783) - XX(1446) = X(1446)/JVS(5787) - XX(1447) = X(1447)/JVS(5791) - XX(1448) = X(1448)/JVS(5795) - XX(1449) = X(1449)/JVS(5799) - XX(1450) = X(1450)/JVS(5803) - XX(1451) = X(1451)/JVS(5807) - XX(1452) = X(1452)/JVS(5811) - XX(1453) = X(1453)/JVS(5815) - XX(1454) = X(1454)/JVS(5819) - XX(1455) = X(1455)/JVS(5823) - XX(1456) = X(1456)/JVS(5827) - XX(1457) = X(1457)/JVS(5831) - XX(1458) = X(1458)/JVS(5835) - XX(1459) = X(1459)/JVS(5839) - XX(1460) = X(1460)/JVS(5843) - XX(1461) = X(1461)/JVS(5847) - XX(1462) = X(1462)/JVS(5851) - XX(1463) = (X(1463)-JVS(891)*XX(203))/(JVS(5855)) - XX(1464) = (X(1464)-JVS(589)*XX(152))/(JVS(5859)) - XX(1465) = X(1465)/JVS(5863) - XX(1466) = X(1466)/JVS(5867) - XX(1467) = X(1467)/JVS(5871) - XX(1468) = X(1468)/JVS(5875) - XX(1469) = X(1469)/JVS(5879) - XX(1470) = (X(1470)-JVS(1076)*XX(254))/(JVS(5883)) - XX(1471) = X(1471)/JVS(5887) - XX(1472) = X(1472)/JVS(5891) - XX(1473) = X(1473)/JVS(5895) - XX(1474) = X(1474)/JVS(5899) - XX(1475) = X(1475)/JVS(5903) - XX(1476) = X(1476)/JVS(5907) - XX(1477) = X(1477)/JVS(5911) - XX(1478) = X(1478)/JVS(5915) - XX(1479) = X(1479)/JVS(5919) - XX(1480) = X(1480)/JVS(5923) - XX(1481) = X(1481)/JVS(5927) - XX(1482) = X(1482)/JVS(5931) - XX(1483) = X(1483)/JVS(5937) - XX(1484) = X(1484)/JVS(5941) - XX(1485) = X(1485)/JVS(5945) - XX(1486) = X(1486)/JVS(5949) - XX(1487) = X(1487)/JVS(5953) - XX(1488) = X(1488)/JVS(5957) - XX(1489) = X(1489)/JVS(5961) - XX(1490) = X(1490)/JVS(5965) - XX(1491) = (X(1491)-JVS(743)*XX(177))/(JVS(5969)) - XX(1492) = X(1492)/JVS(5973) - XX(1493) = X(1493)/JVS(5978) - XX(1494) = X(1494)/JVS(5982) - XX(1495) = X(1495)/JVS(5986) - XX(1496) = X(1496)/JVS(5990) - XX(1497) = (X(1497)-JVS(265)*XX(65))/(JVS(5994)) - XX(1498) = X(1498)/JVS(5998) - XX(1499) = X(1499)/JVS(6002) - XX(1500) = X(1500)/JVS(6006) - XX(1501) = (X(1501)-JVS(675)*XX(166))/(JVS(6010)) - XX(1502) = X(1502)/JVS(6014) - XX(1503) = X(1503)/JVS(6018) - XX(1504) = X(1504)/JVS(6022) - XX(1505) = X(1505)/JVS(6026) - XX(1506) = X(1506)/JVS(6030) - XX(1507) = X(1507)/JVS(6034) - XX(1508) = X(1508)/JVS(6038) - XX(1509) = X(1509)/JVS(6042) - XX(1510) = X(1510)/JVS(6046) - XX(1511) = X(1511)/JVS(6050) - XX(1512) = X(1512)/JVS(6054) - XX(1513) = X(1513)/JVS(6058) - XX(1514) = X(1514)/JVS(6062) - XX(1515) = X(1515)/JVS(6066) - XX(1516) = X(1516)/JVS(6070) - XX(1517) = X(1517)/JVS(6074) - XX(1518) = X(1518)/JVS(6078) - XX(1519) = X(1519)/JVS(6082) - XX(1520) = X(1520)/JVS(6086) - XX(1521) = X(1521)/JVS(6090) - XX(1522) = X(1522)/JVS(6094) - XX(1523) = (X(1523)-JVS(811)*XX(189))/(JVS(6098)) - XX(1524) = X(1524)/JVS(6102) - XX(1525) = X(1525)/JVS(6106) - XX(1526) = X(1526)/JVS(6110) - XX(1527) = X(1527)/JVS(6114) - XX(1528) = X(1528)/JVS(6118) - XX(1529) = X(1529)/JVS(6122) - XX(1530) = X(1530)/JVS(6126) - XX(1531) = X(1531)/JVS(6130) - XX(1532) = X(1532)/JVS(6134) - XX(1533) = X(1533)/JVS(6138) - XX(1534) = (X(1534)-JVS(185)*XX(43))/(JVS(6142)) - XX(1535) = X(1535)/JVS(6146) - XX(1536) = (X(1536)-JVS(805)*XX(188))/(JVS(6150)) - XX(1537) = X(1537)/JVS(6154) - XX(1538) = X(1538)/JVS(6158) - XX(1539) = X(1539)/JVS(6162) - XX(1540) = X(1540)/JVS(6166) - XX(1541) = X(1541)/JVS(6170) - XX(1542) = X(1542)/JVS(6174) - XX(1543) = X(1543)/JVS(6178) - XX(1544) = X(1544)/JVS(6182) - XX(1545) = X(1545)/JVS(6186) - XX(1546) = X(1546)/JVS(6190) - XX(1547) = X(1547)/JVS(6194) - XX(1548) = X(1548)/JVS(6198) - XX(1549) = X(1549)/JVS(6201) - XX(1550) = X(1550)/JVS(6206) - XX(1551) = (X(1551)-JVS(726)*XX(174)-JVS(6207)*XX(1550))/(JVS(6212)) - XX(1552) = X(1552)/JVS(6216) - XX(1553) = X(1553)/JVS(6222) - XX(1554) = X(1554)/JVS(6228) - XX(1555) = X(1555)/JVS(6231) - XX(1556) = X(1556)/JVS(6235) - XX(1557) = X(1557)/JVS(6241) - XX(1558) = X(1558)/JVS(6244) - XX(1559) = X(1559)/JVS(6247) - XX(1560) = X(1560)/JVS(6253) - XX(1561) = X(1561)/JVS(6256) - XX(1562) = X(1562)/JVS(6259) - XX(1563) = X(1563)/JVS(6262) - XX(1564) = X(1564)/JVS(6268) - XX(1565) = X(1565)/JVS(6275) - XX(1566) = X(1566)/JVS(6281) - XX(1567) = X(1567)/JVS(6284) - XX(1568) = X(1568)/JVS(6287) - XX(1569) = X(1569)/JVS(6293) - XX(1570) = X(1570)/JVS(6296) - XX(1571) = X(1571)/JVS(6299) - XX(1572) = X(1572)/JVS(6304) - XX(1573) = X(1573)/JVS(6311) - XX(1574) = X(1574)/JVS(6314) - XX(1575) = X(1575)/JVS(6320) - XX(1576) = X(1576)/JVS(6323) - XX(1577) = X(1577)/JVS(6326) - XX(1578) = X(1578)/JVS(6329) - XX(1579) = X(1579)/JVS(6334) - XX(1580) = X(1580)/JVS(6340) - XX(1581) = X(1581)/JVS(6344) - XX(1582) = X(1582)/JVS(6350) - XX(1583) = X(1583)/JVS(6353) - XX(1584) = (X(1584)-JVS(6354)*XX(1583))/(JVS(6359)) - XX(1585) = X(1585)/JVS(6362) - XX(1586) = X(1586)/JVS(6365) - XX(1587) = X(1587)/JVS(6368) - XX(1588) = X(1588)/JVS(6371) - XX(1589) = X(1589)/JVS(6374) - XX(1590) = X(1590)/JVS(6379) - XX(1591) = (X(1591)-JVS(818)*XX(190)-JVS(6380)*XX(1590))/(JVS(6385)) - XX(1592) = X(1592)/JVS(6389) - XX(1593) = X(1593)/JVS(6395) - XX(1594) = X(1594)/JVS(6401) - XX(1595) = X(1595)/JVS(6404) - XX(1596) = X(1596)/JVS(6410) - XX(1597) = X(1597)/JVS(6413) - XX(1598) = X(1598)/JVS(6419) - XX(1599) = X(1599)/JVS(6422) - XX(1600) = X(1600)/JVS(6425) - XX(1601) = X(1601)/JVS(6428) - XX(1602) = X(1602)/JVS(6431) - XX(1603) = X(1603)/JVS(6434) - XX(1604) = X(1604)/JVS(6439) - XX(1605) = X(1605)/JVS(6447) - XX(1606) = X(1606)/JVS(6455) - XX(1607) = X(1607)/JVS(6463) - XX(1608) = X(1608)/JVS(6471) - XX(1609) = X(1609)/JVS(6477) - XX(1610) = X(1610)/JVS(6481) - XX(1611) = X(1611)/JVS(6485) - XX(1612) = X(1612)/JVS(6488) - XX(1613) = X(1613)/JVS(6491) - XX(1614) = X(1614)/JVS(6494) - XX(1615) = X(1615)/JVS(6500) - XX(1616) = X(1616)/JVS(6503) - XX(1617) = X(1617)/JVS(6511) - XX(1618) = X(1618)/JVS(6517) - XX(1619) = X(1619)/JVS(6520) - XX(1620) = X(1620)/JVS(6525) - XX(1621) = X(1621)/JVS(6531) - XX(1622) = X(1622)/JVS(6536) - XX(1623) = X(1623)/JVS(6542) - XX(1624) = X(1624)/JVS(6547) - XX(1625) = X(1625)/JVS(6553) - XX(1626) = X(1626)/JVS(6556) - XX(1627) = X(1627)/JVS(6559) - XX(1628) = X(1628)/JVS(6567) - XX(1629) = (X(1629)-JVS(800)*XX(187)-JVS(6568)*XX(1628))/(JVS(6573)) - XX(1630) = X(1630)/JVS(6577) - XX(1631) = X(1631)/JVS(6581) - XX(1632) = X(1632)/JVS(6587) - XX(1633) = X(1633)/JVS(6590) - XX(1634) = X(1634)/JVS(6593) - XX(1635) = X(1635)/JVS(6599) - XX(1636) = X(1636)/JVS(6602) - XX(1637) = X(1637)/JVS(6605) - XX(1638) = X(1638)/JVS(6608) - XX(1639) = X(1639)/JVS(6614) - XX(1640) = X(1640)/JVS(6618) - XX(1641) = X(1641)/JVS(6624) - XX(1642) = (X(1642)-JVS(4270)*XX(1068))/(JVS(6627)) - XX(1643) = X(1643)/JVS(6630) - XX(1644) = X(1644)/JVS(6636) - XX(1645) = X(1645)/JVS(6639) - XX(1646) = X(1646)/JVS(6645) - XX(1647) = X(1647)/JVS(6648) - XX(1648) = X(1648)/JVS(6653) - XX(1649) = (X(1649)-JVS(824)*XX(191)-JVS(6654)*XX(1648))/(JVS(6659)) - XX(1650) = X(1650)/JVS(6663) - XX(1651) = X(1651)/JVS(6669) - XX(1652) = X(1652)/JVS(6674) - XX(1653) = X(1653)/JVS(6680) - XX(1654) = X(1654)/JVS(6684) - XX(1655) = X(1655)/JVS(6690) - XX(1656) = X(1656)/JVS(6695) - XX(1657) = (X(1657)-JVS(571)*XX(149)-JVS(6696)*XX(1656))/(JVS(6701)) - XX(1658) = X(1658)/JVS(6705) - XX(1659) = X(1659)/JVS(6708) - XX(1660) = X(1660)/JVS(6713) - XX(1661) = X(1661)/JVS(6719) - XX(1662) = X(1662)/JVS(6725) - XX(1663) = X(1663)/JVS(6731) - XX(1664) = X(1664)/JVS(6737) - XX(1665) = X(1665)/JVS(6740) - XX(1666) = X(1666)/JVS(6743) - XX(1667) = X(1667)/JVS(6746) - XX(1668) = X(1668)/JVS(6752) - XX(1669) = X(1669)/JVS(6755) - XX(1670) = X(1670)/JVS(6758) - XX(1671) = X(1671)/JVS(6761) - XX(1672) = X(1672)/JVS(6764) - XX(1673) = (X(1673)-JVS(4450)*XX(1113))/(JVS(6767)) - XX(1674) = X(1674)/JVS(6770) - XX(1675) = X(1675)/JVS(6775) - XX(1676) = X(1676)/JVS(6781) - XX(1677) = X(1677)/JVS(6785) - XX(1678) = X(1678)/JVS(6791) - XX(1679) = X(1679)/JVS(6794) - XX(1680) = X(1680)/JVS(6802) - XX(1681) = X(1681)/JVS(6808) - XX(1682) = X(1682)/JVS(6811) - XX(1683) = X(1683)/JVS(6814) - XX(1684) = X(1684)/JVS(6817) - XX(1685) = X(1685)/JVS(6824) - XX(1686) = X(1686)/JVS(6827) - XX(1687) = X(1687)/JVS(6830) - XX(1688) = X(1688)/JVS(6833) - XX(1689) = X(1689)/JVS(6838) - XX(1690) = X(1690)/JVS(6844) - XX(1691) = X(1691)/JVS(6848) - XX(1692) = X(1692)/JVS(6854) - XX(1693) = X(1693)/JVS(6860) - XX(1694) = X(1694)/JVS(6863) - XX(1695) = X(1695)/JVS(6866) - XX(1696) = X(1696)/JVS(6874) - XX(1697) = X(1697)/JVS(6880) - XX(1698) = X(1698)/JVS(6883) - XX(1699) = X(1699)/JVS(6886) - XX(1700) = X(1700)/JVS(6892) - XX(1701) = X(1701)/JVS(6895) - XX(1702) = X(1702)/JVS(6898) - XX(1703) = X(1703)/JVS(6904) - XX(1704) = X(1704)/JVS(6907) - XX(1705) = X(1705)/JVS(6910) - XX(1706) = X(1706)/JVS(6914) - XX(1707) = X(1707)/JVS(6920) - XX(1708) = X(1708)/JVS(6923) - XX(1709) = X(1709)/JVS(6926) - XX(1710) = X(1710)/JVS(6931) - XX(1711) = X(1711)/JVS(6937) - XX(1712) = X(1712)/JVS(6941) - XX(1713) = X(1713)/JVS(6947) - XX(1714) = X(1714)/JVS(6955) - XX(1715) = X(1715)/JVS(6961) - XX(1716) = X(1716)/JVS(6967) - XX(1717) = X(1717)/JVS(6970) - XX(1718) = X(1718)/JVS(6973) - XX(1719) = X(1719)/JVS(6976) - XX(1720) = X(1720)/JVS(6979) - XX(1721) = X(1721)/JVS(6985) - XX(1722) = X(1722)/JVS(6991) - XX(1723) = X(1723)/JVS(6995) - XX(1724) = X(1724)/JVS(7001) - XX(1725) = X(1725)/JVS(7007) - XX(1726) = X(1726)/JVS(7013) - XX(1727) = X(1727)/JVS(7018) - XX(1728) = X(1728)/JVS(7025) - XX(1729) = X(1729)/JVS(7031) - XX(1730) = X(1730)/JVS(7034) - XX(1731) = (X(1731)-JVS(6631)*XX(1643))/(JVS(7037)) - XX(1732) = X(1732)/JVS(7042) - XX(1733) = X(1733)/JVS(7048) - XX(1734) = X(1734)/JVS(7051) - XX(1735) = X(1735)/JVS(7054) - XX(1736) = X(1736)/JVS(7058) - XX(1737) = X(1737)/JVS(7064) - XX(1738) = X(1738)/JVS(7071) - XX(1739) = X(1739)/JVS(7079) - XX(1740) = X(1740)/JVS(7085) - XX(1741) = X(1741)/JVS(7088) - XX(1742) = X(1742)/JVS(7094) - XX(1743) = X(1743)/JVS(7097) - XX(1744) = X(1744)/JVS(7103) - XX(1745) = X(1745)/JVS(7108) - XX(1746) = X(1746)/JVS(7114) - XX(1747) = X(1747)/JVS(7117) - XX(1748) = X(1748)/JVS(7120) - XX(1749) = X(1749)/JVS(7125) - XX(1750) = X(1750)/JVS(7131) - XX(1751) = (X(1751)-JVS(669)*XX(165))/(JVS(7137)) - XX(1752) = X(1752)/JVS(7141) - XX(1753) = X(1753)/JVS(7145) - XX(1754) = X(1754)/JVS(7151) - XX(1755) = X(1755)/JVS(7159) - XX(1756) = X(1756)/JVS(7168) - XX(1757) = (X(1757)-JVS(2942)*XX(741))/(JVS(7172)) - XX(1758) = X(1758)/JVS(7176) - XX(1759) = (X(1759)-JVS(2115)*XX(545))/(JVS(7180)) - XX(1760) = X(1760)/JVS(7184) - XX(1761) = (X(1761)-JVS(123)*XX(25))/(JVS(7189)) - XX(1762) = (X(1762)-JVS(2886)*XX(729))/(JVS(7194)) - XX(1763) = X(1763)/JVS(7198) - XX(1764) = X(1764)/JVS(7203) - XX(1765) = X(1765)/JVS(7208) - XX(1766) = X(1766)/JVS(7213) - XX(1767) = X(1767)/JVS(7217) - XX(1768) = X(1768)/JVS(7221) - XX(1769) = X(1769)/JVS(7225) - XX(1770) = X(1770)/JVS(7230) - XX(1771) = (X(1771)-JVS(614)*XX(156))/(JVS(7234)) - XX(1772) = X(1772)/JVS(7238) - XX(1773) = X(1773)/JVS(7244) - XX(1774) = X(1774)/JVS(7250) - XX(1775) = X(1775)/JVS(7254) - XX(1776) = X(1776)/JVS(7258) - XX(1777) = (X(1777)-JVS(4451)*XX(1113))/(JVS(7261)) - XX(1778) = X(1778)/JVS(7264) - XX(1779) = X(1779)/JVS(7268) - XX(1780) = X(1780)/JVS(7272) - XX(1781) = X(1781)/JVS(7278) - XX(1782) = X(1782)/JVS(7284) - XX(1783) = (X(1783)-JVS(3108)*XX(780))/(JVS(7289)) - XX(1784) = (X(1784)-JVS(2573)*XX(655))/(JVS(7293)) - XX(1785) = X(1785)/JVS(7297) - XX(1786) = X(1786)/JVS(7302) - XX(1787) = X(1787)/JVS(7306) - XX(1788) = X(1788)/JVS(7311) - XX(1789) = X(1789)/JVS(7318) - XX(1790) = X(1790)/JVS(7325) - XX(1791) = X(1791)/JVS(7330) - XX(1792) = X(1792)/JVS(7335) - XX(1793) = (X(1793)-JVS(3202)*XX(802))/(JVS(7342)) - XX(1794) = (X(1794)-JVS(7336)*XX(1792))/(JVS(7346)) - XX(1795) = X(1795)/JVS(7350) - XX(1796) = X(1796)/JVS(7355) - XX(1797) = X(1797)/JVS(7362) - XX(1798) = X(1798)/JVS(7366) - XX(1799) = X(1799)/JVS(7372) - XX(1800) = (X(1800)-JVS(595)*XX(153))/(JVS(7378)) - XX(1801) = (X(1801)-JVS(6495)*XX(1614))/(JVS(7382)) - XX(1802) = (X(1802)-JVS(2924)*XX(737))/(JVS(7386)) - XX(1803) = X(1803)/JVS(7392) - XX(1804) = X(1804)/JVS(7399) - XX(1805) = X(1805)/JVS(7403) - XX(1806) = X(1806)/JVS(7408) - XX(1807) = X(1807)/JVS(7412) - XX(1808) = X(1808)/JVS(7416) - XX(1809) = X(1809)/JVS(7421) - XX(1810) = X(1810)/JVS(7425) - XX(1811) = X(1811)/JVS(7430) - XX(1812) = X(1812)/JVS(7437) - XX(1813) = X(1813)/JVS(7443) - XX(1814) = X(1814)/JVS(7449) - XX(1815) = X(1815)/JVS(7455) - XX(1816) = X(1816)/JVS(7460) - XX(1817) = X(1817)/JVS(7464) - XX(1818) = X(1818)/JVS(7470) - XX(1819) = X(1819)/JVS(7477) - XX(1820) = X(1820)/JVS(7483) - XX(1821) = X(1821)/JVS(7490) - XX(1822) = X(1822)/JVS(7498) - XX(1823) = X(1823)/JVS(7505) - XX(1824) = (X(1824)-JVS(830)*XX(192))/(JVS(7509)) - XX(1825) = X(1825)/JVS(7513) - XX(1826) = X(1826)/JVS(7519) - XX(1827) = X(1827)/JVS(7523) - XX(1828) = X(1828)/JVS(7529) - XX(1829) = (X(1829)-JVS(873)*XX(200))/(JVS(7533)) - XX(1830) = (X(1830)-JVS(2955)*XX(744))/(JVS(7537)) - XX(1831) = (X(1831)-JVS(676)*XX(166))/(JVS(7541)) - XX(1832) = X(1832)/JVS(7546) - XX(1833) = X(1833)/JVS(7551) - XX(1834) = X(1834)/JVS(7559) - XX(1835) = X(1835)/JVS(7563) - XX(1836) = (X(1836)-JVS(2845)*XX(720)-JVS(6482)*XX(1610))/(JVS(7567)) - XX(1837) = X(1837)/JVS(7571) - XX(1838) = X(1838)/JVS(7576) - XX(1839) = (X(1839)-JVS(2960)*XX(745))/(JVS(7583)) - XX(1840) = (X(1840)-JVS(3075)*XX(773))/(JVS(7587)) - XX(1841) = (X(1841)-JVS(787)*XX(185))/(JVS(7591)) - XX(1842) = X(1842)/JVS(7595) - XX(1843) = X(1843)/JVS(7600) - XX(1844) = (X(1844)-JVS(2634)*XX(670))/(JVS(7604)) - XX(1845) = X(1845)/JVS(7608) - XX(1846) = X(1846)/JVS(7612) - XX(1847) = X(1847)/JVS(7618) - XX(1848) = X(1848)/JVS(7624) - XX(1849) = X(1849)/JVS(7629) - XX(1850) = (X(1850)-JVS(2970)*XX(747))/(JVS(7633)) - XX(1851) = X(1851)/JVS(7637) - XX(1852) = X(1852)/JVS(7643) - XX(1853) = X(1853)/JVS(7650) - XX(1854) = (X(1854)-JVS(2300)*XX(592))/(JVS(7653)) - XX(1855) = X(1855)/JVS(7657) - XX(1856) = X(1856)/JVS(7661) - XX(1857) = X(1857)/JVS(7665) - XX(1858) = X(1858)/JVS(7669) - XX(1859) = X(1859)/JVS(7673) - XX(1860) = X(1860)/JVS(7678) - XX(1861) = (X(1861)-JVS(2420)*XX(620))/(JVS(7685)) - XX(1862) = (X(1862)-JVS(2647)*XX(673))/(JVS(7689)) - XX(1863) = (X(1863)-JVS(2275)*XX(585))/(JVS(7693)) - XX(1864) = X(1864)/JVS(7697) - XX(1865) = X(1865)/JVS(7703) - XX(1866) = X(1866)/JVS(7709) - XX(1867) = X(1867)/JVS(7715) - XX(1868) = (X(1868)-JVS(2410)*XX(618))/(JVS(7722)) - XX(1869) = X(1869)/JVS(7726) - XX(1870) = X(1870)/JVS(7732) - XX(1871) = (X(1871)-JVS(3232)*XX(810))/(JVS(7738)) - XX(1872) = X(1872)/JVS(7742) - XX(1873) = (X(1873)-JVS(6619)*XX(1640))/(JVS(7747)) - XX(1874) = X(1874)/JVS(7751) - XX(1875) = X(1875)/JVS(7755) - XX(1876) = X(1876)/JVS(7758) - XX(1877) = X(1877)/JVS(7762) - XX(1878) = X(1878)/JVS(7767) - XX(1879) = X(1879)/JVS(7771) - XX(1880) = (X(1880)-JVS(7008)*XX(1725))/(JVS(7775)) - XX(1881) = (X(1881)-JVS(7679)*XX(1860))/(JVS(7779)) - XX(1882) = X(1882)/JVS(7783) - XX(1883) = (X(1883)-JVS(620)*XX(157))/(JVS(7788)) - XX(1884) = X(1884)/JVS(7792) - XX(1885) = X(1885)/JVS(7796) - XX(1886) = X(1886)/JVS(7800) - XX(1887) = (X(1887)-JVS(6849)*XX(1691))/(JVS(7804)) - XX(1888) = (X(1888)-JVS(2262)*XX(582))/(JVS(7808)) - XX(1889) = (X(1889)-JVS(806)*XX(188))/(JVS(7812)) - XX(1890) = (X(1890)-JVS(2083)*XX(537)-JVS(5031)*XX(1257))/(JVS(7816)) - XX(1891) = X(1891)/JVS(7820) - XX(1892) = X(1892)/JVS(7825) - XX(1893) = X(1893)/JVS(7830) - XX(1894) = X(1894)/JVS(7835) - XX(1895) = X(1895)/JVS(7840) - XX(1896) = X(1896)/JVS(7844) - XX(1897) = X(1897)/JVS(7848) - XX(1898) = (X(1898)-JVS(3160)*XX(792))/(JVS(7852)) - XX(1899) = X(1899)/JVS(7856) - XX(1900) = (X(1900)-JVS(2863)*XX(724))/(JVS(7860)) - XX(1901) = (X(1901)-JVS(3136)*XX(786))/(JVS(7864)) - XX(1902) = (X(1902)-JVS(6980)*XX(1720))/(JVS(7868)) - XX(1903) = X(1903)/JVS(7873) - XX(1904) = X(1904)/JVS(7880) - XX(1905) = X(1905)/JVS(7884) - XX(1906) = X(1906)/JVS(7889) - XX(1907) = (X(1907)-JVS(6217)*XX(1552))/(JVS(7896)) - XX(1908) = (X(1908)-JVS(3100)*XX(778))/(JVS(7900)) - XX(1909) = X(1909)/JVS(7904) - XX(1910) = X(1910)/JVS(7910) - XX(1911) = (X(1911)-JVS(2501)*XX(639)-JVS(6345)*XX(1581))/(JVS(7916)) - XX(1912) = X(1912)/JVS(7920) - XX(1913) = X(1913)/JVS(7926) - XX(1914) = X(1914)/JVS(7930) - XX(1915) = (X(1915)-JVS(6346)*XX(1581))/(JVS(7934)) - XX(1916) = (X(1916)-JVS(64)*XX(6))/(JVS(7939)) - XX(1917) = (X(1917)-JVS(2315)*XX(595))/(JVS(7942)) - XX(1918) = X(1918)/JVS(7946) - XX(1919) = (X(1919)-JVS(644)*XX(161))/(JVS(7950)) - XX(1920) = X(1920)/JVS(7954) - XX(1921) = X(1921)/JVS(7958) - XX(1922) = X(1922)/JVS(7962) - XX(1923) = X(1923)/JVS(7968) - XX(1924) = X(1924)/JVS(7974) - XX(1925) = X(1925)/JVS(7979) - XX(1926) = (X(1926)-JVS(2542)*XX(648))/(JVS(7983)) - XX(1927) = X(1927)/JVS(7987) - XX(1928) = X(1928)/JVS(7992) - XX(1929) = X(1929)/JVS(7995) - XX(1930) = X(1930)/JVS(8000) - XX(1931) = X(1931)/JVS(8006) - XX(1932) = (X(1932)-JVS(2819)*XX(714))/(JVS(8012)) - XX(1933) = X(1933)/JVS(8016) - XX(1934) = X(1934)/JVS(8020) - XX(1935) = (X(1935)-JVS(2165)*XX(557))/(JVS(8023)) - XX(1936) = X(1936)/JVS(8027) - XX(1937) = (X(1937)-JVS(2320)*XX(596))/(JVS(8031)) - XX(1938) = X(1938)/JVS(8035) - XX(1939) = X(1939)/JVS(8039) - XX(1940) = X(1940)/JVS(8043) - XX(1941) = X(1941)/JVS(8047) - XX(1942) = X(1942)/JVS(8053) - XX(1943) = (X(1943)-JVS(2075)*XX(535))/(JVS(8059)) - XX(1944) = X(1944)/JVS(8063) - XX(1945) = X(1945)/JVS(8069) - XX(1946) = X(1946)/JVS(8076) - XX(1947) = (X(1947)-JVS(3095)*XX(777))/(JVS(8080)) - XX(1948) = X(1948)/JVS(8084) - XX(1949) = X(1949)/JVS(8088) - XX(1950) = (X(1950)-JVS(2586)*XX(658))/(JVS(8092)) - XX(1951) = X(1951)/JVS(8096) - XX(1952) = X(1952)/JVS(8101) - XX(1953) = X(1953)/JVS(8106) - XX(1954) = (X(1954)-JVS(576)*XX(150))/(JVS(8111)) - XX(1955) = X(1955)/JVS(8115) - XX(1956) = (X(1956)-JVS(443)*XX(115))/(JVS(8120)) - XX(1957) = X(1957)/JVS(8124) - XX(1958) = (X(1958)-JVS(3080)*XX(774))/(JVS(8129)) - XX(1959) = X(1959)/JVS(8133) - XX(1960) = X(1960)/JVS(8136) - XX(1961) = X(1961)/JVS(8142) - XX(1962) = X(1962)/JVS(8151) - XX(1963) = X(1963)/JVS(8158) - XX(1964) = X(1964)/JVS(8162) - XX(1965) = X(1965)/JVS(8166) - XX(1966) = (X(1966)-JVS(885)*XX(202))/(JVS(8170)) - XX(1967) = X(1967)/JVS(8174) - XX(1968) = (X(1968)-JVS(6355)*XX(1583))/(JVS(8179)) - XX(1969) = X(1969)/JVS(8183) - XX(1970) = X(1970)/JVS(8187) - XX(1971) = X(1971)/JVS(8192) - XX(1972) = (X(1972)-JVS(750)*XX(178))/(JVS(8199)) - XX(1973) = (X(1973)-JVS(2850)*XX(721)-JVS(6915)*XX(1706))/(JVS(8203)) - XX(1974) = (X(1974)-JVS(6867)*XX(1695))/(JVS(8207)) - XX(1975) = X(1975)/JVS(8213) - XX(1976) = X(1976)/JVS(8220) - XX(1977) = X(1977)/JVS(8225) - XX(1978) = X(1978)/JVS(8230) - XX(1979) = (X(1979)-JVS(2998)*XX(753))/(JVS(8234)) - XX(1980) = (X(1980)-JVS(848)*XX(195))/(JVS(8238)) - XX(1981) = X(1981)/JVS(8242) - XX(1982) = X(1982)/JVS(8245) - XX(1983) = X(1983)/JVS(8249) - XX(1984) = X(1984)/JVS(8256) - XX(1985) = (X(1985)-JVS(3085)*XX(775))/(JVS(8263)) - XX(1986) = X(1986)/JVS(8268) - XX(1987) = (X(1987)-JVS(607)*XX(155))/(JVS(8275)) - XX(1988) = X(1988)/JVS(8279) - XX(1989) = X(1989)/JVS(8284) - XX(1990) = (X(1990)-JVS(2547)*XX(649))/(JVS(8291)) - XX(1991) = X(1991)/JVS(8295) - XX(1992) = (X(1992)-JVS(6248)*XX(1559))/(JVS(8298)) - XX(1993) = X(1993)/JVS(8302) - XX(1994) = X(1994)/JVS(8306) - XX(1995) = (X(1995)-JVS(6916)*XX(1706))/(JVS(8310)) - XX(1996) = (X(1996)-JVS(626)*XX(158))/(JVS(8315)) - XX(1997) = X(1997)/JVS(8319) - XX(1998) = X(1998)/JVS(8324) - XX(1999) = (X(1999)-JVS(2629)*XX(669))/(JVS(8331)) - XX(2000) = X(2000)/JVS(8337) - XX(2001) = X(2001)/JVS(8344) - XX(2002) = (X(2002)-JVS(1138)*XX(271))/(JVS(8348)) - XX(2003) = X(2003)/JVS(8352) - XX(2004) = X(2004)/JVS(8356) - XX(2005) = X(2005)/JVS(8361) - XX(2006) = X(2006)/JVS(8366) - XX(2007) = X(2007)/JVS(8370) - XX(2008) = X(2008)/JVS(8374) - XX(2009) = X(2009)/JVS(8379) - XX(2010) = (X(2010)-JVS(1004)*XX(232))/(JVS(8383)) - XX(2011) = X(2011)/JVS(8387) - XX(2012) = X(2012)/JVS(8392) - XX(2013) = X(2013)/JVS(8397) - XX(2014) = X(2014)/JVS(8400) - XX(2015) = X(2015)/JVS(8406) - XX(2016) = (X(2016)-JVS(2070)*XX(534))/(JVS(8412)) - XX(2017) = (X(2017)-JVS(2149)*XX(553)-JVS(6632)*XX(1643))/(JVS(8416)) - XX(2018) = (X(2018)-JVS(2932)*XX(739))/(JVS(8420)) - XX(2019) = X(2019)/JVS(8424) - XX(2020) = X(2020)/JVS(8428) - XX(2021) = X(2021)/JVS(8433) - XX(2022) = (X(2022)-JVS(2415)*XX(619))/(JVS(8437)) - XX(2023) = (X(2023)-JVS(6276)*XX(1565))/(JVS(8441)) - XX(2024) = X(2024)/JVS(8446) - XX(2025) = X(2025)/JVS(8451) - XX(2026) = X(2026)/JVS(8455) - XX(2027) = (X(2027)-JVS(3155)*XX(791))/(JVS(8459)) - XX(2028) = X(2028)/JVS(8464) - XX(2029) = X(2029)/JVS(8467) - XX(2030) = X(2030)/JVS(8473) - XX(2031) = X(2031)/JVS(8481) - XX(2032) = X(2032)/JVS(8488) - XX(2033) = X(2033)/JVS(8495) - XX(2034) = X(2034)/JVS(8501) - XX(2035) = X(2035)/JVS(8508) - XX(2036) = X(2036)/JVS(8514) - XX(2037) = X(2037)/JVS(8518) - XX(2038) = X(2038)/JVS(8523) - XX(2039) = X(2039)/JVS(8527) - XX(2040) = X(2040)/JVS(8531) - XX(2041) = X(2041)/JVS(8537) - XX(2042) = X(2042)/JVS(8543) - XX(2043) = X(2043)/JVS(8546) - XX(2044) = (X(2044)-JVS(6594)*XX(1634))/(JVS(8550)) - XX(2045) = X(2045)/JVS(8554) - XX(2046) = (X(2046)-JVS(3256)*XX(816))/(JVS(8558)) - XX(2047) = (X(2047)-JVS(3118)*XX(782))/(JVS(8562)) - XX(2048) = X(2048)/JVS(8566) - XX(2049) = X(2049)/JVS(8570) - XX(2050) = X(2050)/JVS(8576) - XX(2051) = X(2051)/JVS(8582) - XX(2052) = (X(2052)-JVS(2855)*XX(722))/(JVS(8587)) - XX(2053) = (X(2053)-JVS(2594)*XX(660))/(JVS(8591)) - XX(2054) = X(2054)/JVS(8595) - XX(2055) = X(2055)/JVS(8599) - XX(2056) = X(2056)/JVS(8605) - XX(2057) = X(2057)/JVS(8612) - XX(2058) = (X(2058)-JVS(3128)*XX(784)-JVS(6277)*XX(1565))/(JVS(8616)) - XX(2059) = (X(2059)-JVS(2749)*XX(698))/(JVS(8620)) - XX(2060) = X(2060)/JVS(8625) - XX(2061) = (X(2061)-JVS(868)*XX(199))/(JVS(8632)) - XX(2062) = (X(2062)-JVS(2773)*XX(704))/(JVS(8636)) - XX(2063) = (X(2063)-JVS(688)*XX(168))/(JVS(8640)) - XX(2064) = X(2064)/JVS(8644) - XX(2065) = (X(2065)-JVS(2483)*XX(635))/(JVS(8648)) - XX(2066) = X(2066)/JVS(8652) - XX(2067) = X(2067)/JVS(8657) - XX(2068) = (X(2068)-JVS(2225)*XX(573))/(JVS(8662)) - XX(2069) = X(2069)/JVS(8666) - XX(2070) = X(2070)/JVS(8670) - XX(2071) = (X(2071)-JVS(2881)*XX(728))/(JVS(8674)) - XX(2072) = X(2072)/JVS(8678) - XX(2073) = X(2073)/JVS(8684) - XX(2074) = X(2074)/JVS(8690) - XX(2075) = X(2075)/JVS(8694) - XX(2076) = X(2076)/JVS(8700) - XX(2077) = X(2077)/JVS(8706) - XX(2078) = (X(2078)-JVS(7499)*XX(1822))/(JVS(8710)) - XX(2079) = (X(2079)-JVS(632)*XX(159))/(JVS(8714)) - XX(2080) = (X(2080)-JVS(2491)*XX(637))/(JVS(8718)) - XX(2081) = X(2081)/JVS(8722) - XX(2082) = X(2082)/JVS(8726) - XX(2083) = (X(2083)-JVS(731)*XX(175))/(JVS(8730)) - XX(2084) = (X(2084)-JVS(6996)*XX(1723))/(JVS(8734)) - XX(2085) = X(2085)/JVS(8738) - XX(2086) = (X(2086)-JVS(707)*XX(171))/(JVS(8743)) - XX(2087) = X(2087)/JVS(8747) - XX(2088) = X(2088)/JVS(8753) - XX(2089) = (X(2089)-JVS(3056)*XX(768))/(JVS(8759)) - XX(2090) = X(2090)/JVS(8763) - XX(2091) = (X(2091)-JVS(2157)*XX(555))/(JVS(8768)) - XX(2092) = X(2092)/JVS(8772) - XX(2093) = (X(2093)-JVS(3227)*XX(809))/(JVS(8776)) - XX(2094) = (X(2094)-JVS(782)*XX(184))/(JVS(8780)) - XX(2095) = (X(2095)-JVS(2217)*XX(571))/(JVS(8784)) - XX(2096) = X(2096)/JVS(8788) - XX(2097) = X(2097)/JVS(8793) - XX(2098) = (X(2098)-JVS(2891)*XX(730))/(JVS(8797)) - XX(2099) = X(2099)/JVS(8801) - XX(2100) = X(2100)/JVS(8807) - XX(2101) = X(2101)/JVS(8813) - XX(2102) = X(2102)/JVS(8817) - XX(2103) = (X(2103)-JVS(3123)*XX(783))/(JVS(8822)) - XX(2104) = X(2104)/JVS(8826) - XX(2105) = X(2105)/JVS(8829) - XX(2106) = (X(2106)-JVS(7009)*XX(1725))/(JVS(8833)) - XX(2107) = (X(2107)-JVS(2728)*XX(693))/(JVS(8837)) - XX(2108) = (X(2108)-JVS(714)*XX(172))/(JVS(8841)) - XX(2109) = X(2109)/JVS(8845) - XX(2110) = X(2110)/JVS(8849) - XX(2111) = (X(2111)-JVS(2524)*XX(644))/(JVS(8853)) - XX(2112) = X(2112)/JVS(8857) - XX(2113) = (X(2113)-JVS(854)*XX(196))/(JVS(8862)) - XX(2114) = X(2114)/JVS(8866) - XX(2115) = (X(2115)-JVS(3274)*XX(820))/(JVS(8870)) - XX(2116) = X(2116)/JVS(8874) - XX(2117) = X(2117)/JVS(8878) - XX(2118) = X(2118)/JVS(8883) - XX(2119) = X(2119)/JVS(8888) - XX(2120) = X(2120)/JVS(8892) - XX(2121) = (X(2121)-JVS(2212)*XX(570))/(JVS(8896)) - XX(2122) = X(2122)/JVS(8901) - XX(2123) = X(2123)/JVS(8908) - XX(2124) = X(2124)/JVS(8912) - XX(2125) = X(2125)/JVS(8916) - XX(2126) = (X(2126)-JVS(6726)*XX(1662))/(JVS(8920)) - XX(2127) = (X(2127)-JVS(6981)*XX(1720))/(JVS(8924)) - XX(2128) = X(2128)/JVS(8928) - XX(2129) = (X(2129)-JVS(6664)*XX(1650))/(JVS(8932)) - XX(2130) = X(2130)/JVS(8935) - XX(2131) = X(2131)/JVS(8939) - XX(2132) = X(2132)/JVS(8944) - XX(2133) = X(2133)/JVS(8948) - XX(2134) = X(2134)/JVS(8953) - XX(2135) = X(2135)/JVS(8957) - XX(2136) = (X(2136)-JVS(6714)*XX(1660))/(JVS(8961)) - XX(2137) = (X(2137)-JVS(2289)*XX(589))/(JVS(8965)) - XX(2138) = X(2138)/JVS(8969) - XX(2139) = X(2139)/JVS(8973) - XX(2140) = X(2140)/JVS(8977) - XX(2141) = X(2141)/JVS(8984) - XX(2142) = X(2142)/JVS(8988) - XX(2143) = (X(2143)-JVS(527)*XX(138))/(JVS(8992)) - XX(2144) = X(2144)/JVS(8997) - XX(2145) = X(2145)/JVS(9001) - XX(2146) = X(2146)/JVS(9006) - XX(2147) = X(2147)/JVS(9010) - XX(2148) = X(2148)/JVS(9014) - XX(2149) = X(2149)/JVS(9017) - XX(2150) = X(2150)/JVS(9021) - XX(2151) = (X(2151)-JVS(2472)*XX(632))/(JVS(9025)) - XX(2152) = (X(2152)-JVS(3192)*XX(800))/(JVS(9029)) - XX(2153) = (X(2153)-JVS(2519)*XX(643))/(JVS(9033)) - XX(2154) = X(2154)/JVS(9039) - XX(2155) = (X(2155)-JVS(762)*XX(180))/(JVS(9043)) - XX(2156) = X(2156)/JVS(9047) - XX(2157) = (X(2157)-JVS(583)*XX(151))/(JVS(9051)) - XX(2158) = X(2158)/JVS(9055) - XX(2159) = X(2159)/JVS(9060) - XX(2160) = (X(2160)-JVS(2436)*XX(624)-JVS(7059)*XX(1736))/(JVS(9064)) - XX(2161) = (X(2161)-JVS(744)*XX(177))/(JVS(9068)) - XX(2162) = X(2162)/JVS(9072) - XX(2163) = X(2163)/JVS(9078) - XX(2164) = X(2164)/JVS(9085) - XX(2165) = (X(2165)-JVS(812)*XX(189))/(JVS(9089)) - XX(2166) = (X(2166)-JVS(3251)*XX(815))/(JVS(9093)) - XX(2167) = X(2167)/JVS(9097) - XX(2168) = (X(2168)-JVS(886)*XX(202))/(JVS(9101)) - XX(2169) = (X(2169)-JVS(904)*XX(205))/(JVS(9105)) - XX(2170) = X(2170)/JVS(9109) - XX(2171) = X(2171)/JVS(9114) - XX(2172) = X(2172)/JVS(9118) - XX(2173) = X(2173)/JVS(9124) - XX(2174) = X(2174)/JVS(9130) - XX(2175) = X(2175)/JVS(9134) - XX(2176) = X(2176)/JVS(9138) - XX(2177) = X(2177)/JVS(9142) - XX(2178) = (X(2178)-JVS(2534)*XX(646))/(JVS(9147)) - XX(2179) = X(2179)/JVS(9151) - XX(2180) = (X(2180)-JVS(3179)*XX(797))/(JVS(9155)) - XX(2181) = X(2181)/JVS(9159) - XX(2182) = (X(2182)-JVS(6855)*XX(1692))/(JVS(9164)) - XX(2183) = X(2183)/JVS(9168) - XX(2184) = (X(2184)-JVS(7060)*XX(1736))/(JVS(9172)) - XX(2185) = X(2185)/JVS(9177) - XX(2186) = X(2186)/JVS(9181) - XX(2187) = (X(2187)-JVS(7098)*XX(1743))/(JVS(9186)) - XX(2188) = (X(2188)-JVS(7132)*XX(1750))/(JVS(9190)) - XX(2189) = (X(2189)-JVS(8474)*XX(2030))/(JVS(9194)) - XX(2190) = X(2190)/JVS(9200) - XX(2191) = X(2191)/JVS(9207) - XX(2192) = X(2192)/JVS(9211) - XX(2193) = X(2193)/JVS(9215) - XX(2194) = X(2194)/JVS(9219) - XX(2195) = (X(2195)-JVS(933)*XX(211))/(JVS(9223)) - XX(2196) = X(2196)/JVS(9227) - XX(2197) = X(2197)/JVS(9232) - XX(2198) = (X(2198)-JVS(7890)*XX(1906))/(JVS(9236)) - XX(2199) = X(2199)/JVS(9240) - XX(2200) = X(2200)/JVS(9244) - XX(2201) = X(2201)/JVS(9249) - XX(2202) = (X(2202)-JVS(2876)*XX(727))/(JVS(9254)) - XX(2203) = X(2203)/JVS(9258) - XX(2204) = (X(2204)-JVS(3141)*XX(787))/(JVS(9263)) - XX(2205) = (X(2205)-JVS(2230)*XX(574))/(JVS(9267)) - XX(2206) = (X(2206)-JVS(8626)*XX(2060))/(JVS(9271)) - XX(2207) = X(2207)/JVS(9277) - XX(2208) = X(2208)/JVS(9284) - XX(2209) = X(2209)/JVS(9290) - XX(2210) = X(2210)/JVS(9294) - XX(2211) = X(2211)/JVS(9299) - XX(2212) = X(2212)/JVS(9303) - XX(2213) = (X(2213)-JVS(681)*XX(167))/(JVS(9306)) - XX(2214) = (X(2214)-JVS(7002)*XX(1724))/(JVS(9310)) - XX(2215) = X(2215)/JVS(9314) - XX(2216) = (X(2216)-JVS(860)*XX(197))/(JVS(9318)) - XX(2217) = (X(2217)-JVS(2405)*XX(617))/(JVS(9322)) - XX(2218) = (X(2218)-JVS(6249)*XX(1559))/(JVS(9326)) - XX(2219) = X(2219)/JVS(9330) - XX(2220) = X(2220)/JVS(9334) - XX(2221) = (X(2221)-JVS(2235)*XX(575))/(JVS(9338)) - XX(2222) = X(2222)/JVS(9342) - XX(2223) = X(2223)/JVS(9347) - XX(2224) = (X(2224)-JVS(892)*XX(203))/(JVS(9351)) - XX(2225) = X(2225)/JVS(9355) - XX(2226) = X(2226)/JVS(9361) - XX(2227) = (X(2227)-JVS(637)*XX(160))/(JVS(9368)) - XX(2228) = X(2228)/JVS(9372) - XX(2229) = X(2229)/JVS(9376) - XX(2230) = X(2230)/JVS(9382) - XX(2231) = X(2231)/JVS(9387) - XX(2232) = (X(2232)-JVS(7874)*XX(1903))/(JVS(9391)) - XX(2233) = (X(2233)-JVS(6856)*XX(1692))/(JVS(9395)) - XX(2234) = X(2234)/JVS(9399) - XX(2235) = (X(2235)-JVS(6288)*XX(1568))/(JVS(9404)) - XX(2236) = X(2236)/JVS(9408) - XX(2237) = (X(2237)-JVS(6962)*XX(1715))/(JVS(9412)) - XX(2238) = X(2238)/JVS(9416) - XX(2239) = (X(2239)-JVS(1342)*XX(326))/(JVS(9421)) - XX(2240) = X(2240)/JVS(9425) - XX(2241) = X(2241)/JVS(9429) - XX(2242) = X(2242)/JVS(9433) - XX(2243) = X(2243)/JVS(9437) - XX(2244) = (X(2244)-JVS(6685)*XX(1654))/(JVS(9441)) - XX(2245) = X(2245)/JVS(9445) - XX(2246) = X(2246)/JVS(9449) - XX(2247) = X(2247)/JVS(9453) - XX(2248) = X(2248)/JVS(9457) - XX(2249) = X(2249)/JVS(9461) - XX(2250) = (X(2250)-JVS(776)*XX(183))/(JVS(9466)) - XX(2251) = X(2251)/JVS(9470) - XX(2252) = X(2252)/JVS(9474) - XX(2253) = X(2253)/JVS(9478) - XX(2254) = X(2254)/JVS(9482) - XX(2255) = X(2255)/JVS(9487) - XX(2256) = X(2256)/JVS(9491) - XX(2257) = (X(2257)-JVS(1206)*XX(290))/(JVS(9495)) - XX(2258) = X(2258)/JVS(9499) - XX(2259) = X(2259)/JVS(9502) - XX(2260) = (X(2260)-JVS(219)*XX(51))/(JVS(9506)) - XX(2261) = (X(2261)-JVS(6289)*XX(1568))/(JVS(9510)) - XX(2262) = (X(2262)-JVS(3246)*XX(814))/(JVS(9514)) - XX(2263) = X(2263)/JVS(9518) - XX(2264) = (X(2264)-JVS(905)*XX(205))/(JVS(9522)) - XX(2265) = X(2265)/JVS(9527) - XX(2266) = (X(2266)-JVS(2605)*XX(663)-JVS(7072)*XX(1738))/(JVS(9531)) - XX(2267) = (X(2267)-JVS(2134)*XX(550))/(JVS(9535)) - XX(2268) = (X(2268)-JVS(8902)*XX(2122))/(JVS(9539)) - XX(2269) = (X(2269)-JVS(788)*XX(185))/(JVS(9543)) - XX(2270) = X(2270)/JVS(9547) - XX(2271) = X(2271)/JVS(9551) - XX(2272) = X(2272)/JVS(9555) - XX(2273) = X(2273)/JVS(9562) - XX(2274) = X(2274)/JVS(9566) - XX(2275) = X(2275)/JVS(9570) - XX(2276) = X(2276)/JVS(9574) - XX(2277) = (X(2277)-JVS(670)*XX(165))/(JVS(9579)) - XX(2278) = X(2278)/JVS(9583) - XX(2279) = X(2279)/JVS(9588) - XX(2280) = X(2280)/JVS(9593) - XX(2281) = X(2281)/JVS(9597) - XX(2282) = X(2282)/JVS(9601) - XX(2283) = X(2283)/JVS(9605) - XX(2284) = X(2284)/JVS(9611) - XX(2285) = (X(2285)-JVS(638)*XX(160))/(JVS(9618)) - XX(2286) = X(2286)/JVS(9622) - XX(2287) = X(2287)/JVS(9625) - XX(2288) = (X(2288)-JVS(7073)*XX(1738))/(JVS(9630)) - XX(2289) = (X(2289)-JVS(2529)*XX(645))/(JVS(9635)) - XX(2290) = X(2290)/JVS(9639) - XX(2291) = X(2291)/JVS(9643) - XX(2292) = (X(2292)-JVS(6868)*XX(1695))/(JVS(9647)) - XX(2293) = X(2293)/JVS(9653) - XX(2294) = (X(2294)-JVS(2950)*XX(743))/(JVS(9660)) - XX(2295) = X(2295)/JVS(9666) - XX(2296) = (X(2296)-JVS(6440)*XX(1604))/(JVS(9670)) - XX(2297) = X(2297)/JVS(9674) - XX(2298) = (X(2298)-JVS(3090)*XX(776))/(JVS(9679)) - XX(2299) = (X(2299)-JVS(9612)*XX(2284))/(JVS(9683)) - XX(2300) = (X(2300)-JVS(2736)*XX(695))/(JVS(9687)) - XX(2301) = X(2301)/JVS(9691) - XX(2302) = (X(2302)-JVS(7356)*XX(1796))/(JVS(9695)) - XX(2303) = X(2303)/JVS(9699) - XX(2304) = X(2304)/JVS(9705) - XX(2305) = (X(2305)-JVS(2671)*XX(679)-JVS(9528)*XX(2265))/(JVS(9711)) - XX(2306) = (X(2306)-JVS(6795)*XX(1679))/(JVS(9715)) - XX(2307) = X(2307)/JVS(9719) - XX(2308) = X(2308)/JVS(9723) - XX(2309) = (X(2309)-JVS(7491)*XX(1821))/(JVS(9727)) - XX(2310) = X(2310)/JVS(9731) - XX(2311) = X(2311)/JVS(9735) - XX(2312) = (X(2312)-JVS(2441)*XX(625)-JVS(5979)*XX(1493))/(JVS(9739)) - XX(2313) = (X(2313)-JVS(1139)*XX(271))/(JVS(9743)) - XX(2314) = X(2314)/JVS(9747) - XX(2315) = X(2315)/JVS(9753) - XX(2316) = (X(2316)-JVS(2091)*XX(539))/(JVS(9757)) - XX(2317) = X(2317)/JVS(9761) - XX(2318) = X(2318)/JVS(9765) - XX(2319) = X(2319)/JVS(9769) - XX(2320) = X(2320)/JVS(9773) - XX(2321) = X(2321)/JVS(9777) - XX(2322) = X(2322)/JVS(9783) - XX(2323) = X(2323)/JVS(9789) - XX(2324) = X(2324)/JVS(9795) - XX(2325) = X(2325)/JVS(9802) - XX(2326) = X(2326)/JVS(9806) - XX(2327) = (X(2327)-JVS(1234)*XX(297))/(JVS(9813)) - XX(2328) = (X(2328)-JVS(836)*XX(193))/(JVS(9817)) - XX(2329) = X(2329)/JVS(9821) - XX(2330) = X(2330)/JVS(9825) - XX(2331) = (X(2331)-JVS(874)*XX(200))/(JVS(9829)) - XX(2332) = X(2332)/JVS(9833) - XX(2333) = X(2333)/JVS(9837) - XX(2334) = X(2334)/JVS(9843) - XX(2335) = X(2335)/JVS(9849) - XX(2336) = X(2336)/JVS(9853) - XX(2337) = X(2337)/JVS(9856) - XX(2338) = (X(2338)-JVS(6899)*XX(1702))/(JVS(9860)) - XX(2339) = (X(2339)-JVS(6963)*XX(1715))/(JVS(9864)) - XX(2340) = X(2340)/JVS(9868) - XX(2341) = X(2341)/JVS(9873) - XX(2342) = (X(2342)-JVS(2457)*XX(629))/(JVS(9877)) - XX(2343) = X(2343)/JVS(9881) - XX(2344) = X(2344)/JVS(9886) - XX(2345) = X(2345)/JVS(9889) - XX(2346) = X(2346)/JVS(9892) - XX(2347) = X(2347)/JVS(9896) - XX(2348) = (X(2348)-JVS(3171)*XX(795))/(JVS(9900)) - XX(2349) = X(2349)/JVS(9904) - XX(2350) = X(2350)/JVS(9908) - XX(2351) = (X(2351)-JVS(2965)*XX(746))/(JVS(9912)) - XX(2352) = (X(2352)-JVS(650)*XX(162))/(JVS(9916)) - XX(2353) = X(2353)/JVS(9920) - XX(2354) = X(2354)/JVS(9925) - XX(2355) = X(2355)/JVS(9929) - XX(2356) = X(2356)/JVS(9933) - XX(2357) = (X(2357)-JVS(9934)*XX(2356))/(JVS(9940)) - XX(2358) = (X(2358)-JVS(2985)*XX(750))/(JVS(9943)) - XX(2359) = X(2359)/JVS(9947) - XX(2360) = (X(2360)-JVS(2642)*XX(672))/(JVS(9950)) - XX(2361) = X(2361)/JVS(9955) - XX(2362) = (X(2362)-JVS(2937)*XX(740)-JVS(9388)*XX(2231))/(JVS(9962)) - XX(2363) = X(2363)/JVS(9966) - XX(2364) = X(2364)/JVS(9970) - XX(2365) = (X(2365)-JVS(755)*XX(179))/(JVS(9975)) - XX(2366) = X(2366)/JVS(9979) - XX(2367) = X(2367)/JVS(9983) - XX(2368) = (X(2368)-JVS(2325)*XX(597))/(JVS(9988)) - XX(2369) = X(2369)/JVS(9992) - XX(2370) = X(2370)/JVS(9996) - XX(2371) = X(2371)/JVS(10001) - XX(2372) = X(2372)/JVS(10005) - XX(2373) = (X(2373)-JVS(8375)*XX(2008))/(JVS(10009)) - XX(2374) = X(2374)/JVS(10014) - XX(2375) = (X(2375)-JVS(7099)*XX(1743))/(JVS(10021)) - XX(2376) = X(2376)/JVS(10025) - XX(2377) = X(2377)/JVS(10032) - XX(2378) = X(2378)/JVS(10039) - XX(2379) = X(2379)/JVS(10043) - XX(2380) = (X(2380)-JVS(2744)*XX(697))/(JVS(10048)) - XX(2381) = X(2381)/JVS(10053) - XX(2382) = X(2382)/JVS(10058) - XX(2383) = X(2383)/JVS(10061) - XX(2384) = X(2384)/JVS(10065) - XX(2385) = X(2385)/JVS(10069) - XX(2386) = (X(2386)-JVS(6582)*XX(1631))/(JVS(10072)) - XX(2387) = (X(2387)-JVS(8482)*XX(2031))/(JVS(10076)) - XX(2388) = X(2388)/JVS(10080) - XX(2389) = (X(2389)-JVS(3184)*XX(798))/(JVS(10084)) - XX(2390) = X(2390)/JVS(10088) - XX(2391) = (X(2391)-JVS(596)*XX(153))/(JVS(10092)) - XX(2392) = X(2392)/JVS(10096) - XX(2393) = X(2393)/JVS(10100) - XX(2394) = X(2394)/JVS(10103) - XX(2395) = X(2395)/JVS(10108) - XX(2396) = X(2396)/JVS(10112) - XX(2397) = X(2397)/JVS(10116) - XX(2398) = X(2398)/JVS(10120) - XX(2399) = X(2399)/JVS(10125) - XX(2400) = (X(2400)-JVS(732)*XX(175))/(JVS(10132)) - XX(2401) = (X(2401)-JVS(682)*XX(167))/(JVS(10136)) - XX(2402) = X(2402)/JVS(10140) - XX(2403) = X(2403)/JVS(10144) - XX(2404) = (X(2404)-JVS(2257)*XX(581))/(JVS(10148)) - XX(2405) = (X(2405)-JVS(7733)*XX(1870))/(JVS(10152)) - XX(2406) = X(2406)/JVS(10156) - XX(2407) = (X(2407)-JVS(2129)*XX(549))/(JVS(10160)) - XX(2408) = (X(2408)-JVS(1299)*XX(315))/(JVS(10164)) - XX(2409) = X(2409)/JVS(10168) - XX(2410) = X(2410)/JVS(10172) - XX(2411) = (X(2411)-JVS(2046)*XX(528))/(JVS(10176)) - XX(2412) = X(2412)/JVS(10180) - XX(2413) = X(2413)/JVS(10184) - XX(2414) = X(2414)/JVS(10188) - XX(2415) = X(2415)/JVS(10194) - XX(2416) = (X(2416)-JVS(608)*XX(155))/(JVS(10201)) - XX(2417) = (X(2417)-JVS(2270)*XX(584))/(JVS(10205)) - XX(2418) = X(2418)/JVS(10209) - XX(2419) = (X(2419)-JVS(6218)*XX(1552))/(JVS(10213)) - XX(2420) = X(2420)/JVS(10217) - XX(2421) = X(2421)/JVS(10221) - XX(2422) = (X(2422)-JVS(708)*XX(171))/(JVS(10225)) - XX(2423) = (X(2423)-JVS(2099)*XX(541))/(JVS(10229)) - XX(2424) = (X(2424)-JVS(2336)*XX(600))/(JVS(10233)) - XX(2425) = X(2425)/JVS(10237) - XX(2426) = (X(2426)-JVS(6786)*XX(1677))/(JVS(10240)) - XX(2427) = (X(2427)-JVS(6727)*XX(1662))/(JVS(10244)) - XX(2428) = (X(2428)-JVS(2685)*XX(682))/(JVS(10248)) - XX(2429) = X(2429)/JVS(10252) - XX(2430) = X(2430)/JVS(10256) - XX(2431) = X(2431)/JVS(10261) - XX(2432) = (X(2432)-JVS(794)*XX(186))/(JVS(10265)) - XX(2433) = X(2433)/JVS(10269) - XX(2434) = X(2434)/JVS(10274) - XX(2435) = X(2435)/JVS(10278) - XX(2436) = X(2436)/JVS(10282) - XX(2437) = (X(2437)-JVS(2110)*XX(544))/(JVS(10286)) - XX(2438) = X(2438)/JVS(10291) - XX(2439) = (X(2439)-JVS(2768)*XX(703)-JVS(7601)*XX(1843))/(JVS(10295)) - XX(2440) = (X(2440)-JVS(3261)*XX(817))/(JVS(10299)) - XX(2441) = X(2441)/JVS(10303) - XX(2442) = X(2442)/JVS(10308) - XX(2443) = X(2443)/JVS(10312) - XX(2444) = (X(2444)-JVS(720)*XX(173))/(JVS(10316)) - XX(2445) = (X(2445)-JVS(2896)*XX(731))/(JVS(10320)) - XX(2446) = (X(2446)-JVS(2829)*XX(716))/(JVS(10324)) - XX(2447) = X(2447)/JVS(10328) - XX(2448) = X(2448)/JVS(10334) - XX(2449) = X(2449)/JVS(10338) - XX(2450) = (X(2450)-JVS(2904)*XX(733))/(JVS(10342)) - XX(2451) = (X(2451)-JVS(2975)*XX(748))/(JVS(10346)) - XX(2452) = X(2452)/JVS(10352) - XX(2453) = X(2453)/JVS(10359) - XX(2454) = (X(2454)-JVS(2811)*XX(712))/(JVS(10363)) - XX(2455) = X(2455)/JVS(10367) - XX(2456) = (X(2456)-JVS(6796)*XX(1679))/(JVS(10371)) - XX(2457) = X(2457)/JVS(10377) - XX(2458) = (X(2458)-JVS(770)*XX(182)-JVS(10033)*XX(2377))/(JVS(10384)) - XX(2459) = X(2459)/JVS(10388) - XX(2460) = X(2460)/JVS(10392) - XX(2461) = X(2461)/JVS(10396) - XX(2462) = (X(2462)-JVS(9796)*XX(2324))/(JVS(10400)) - XX(2463) = (X(2463)-JVS(6900)*XX(1702))/(JVS(10404)) - XX(2464) = X(2464)/JVS(10408) - XX(2465) = X(2465)/JVS(10414) - XX(2466) = (X(2466)-JVS(2139)*XX(551))/(JVS(10421)) - XX(2467) = X(2467)/JVS(10426) - XX(2468) = X(2468)/JVS(10430) - XX(2469) = (X(2469)-JVS(3064)*XX(770)-JVS(7560)*XX(1834))/(JVS(10433)) - XX(2470) = X(2470)/JVS(10437) - XX(2471) = X(2471)/JVS(10441) - XX(2472) = X(2472)/JVS(10449) - XX(2473) = X(2473)/JVS(10454) - XX(2474) = X(2474)/JVS(10462) - XX(2475) = X(2475)/JVS(10465) - XX(2476) = X(2476)/JVS(10468) - XX(2477) = X(2477)/JVS(10471) - XX(2478) = (X(2478)-JVS(68)*XX(8))/(JVS(10475)) - XX(2479) = X(2479)/JVS(10478) - XX(2480) = X(2480)/JVS(10485) - XX(2481) = X(2481)/JVS(10493) - XX(2482) = (X(2482)-JVS(2104)*XX(542))/(JVS(10496)) - XX(2483) = X(2483)/JVS(10499) - XX(2484) = X(2484)/JVS(10502) - XX(2485) = X(2485)/JVS(10505) - XX(2486) = X(2486)/JVS(10509) - XX(2487) = (X(2487)-JVS(7465)*XX(1817))/(JVS(10512)) - XX(2488) = X(2488)/JVS(10516) - XX(2489) = X(2489)/JVS(10524) - XX(2490) = X(2490)/JVS(10528) - XX(2491) = X(2491)/JVS(10536) - XX(2492) = X(2492)/JVS(10541) - XX(2493) = X(2493)/JVS(10548) - XX(2494) = X(2494)/JVS(10554) - XX(2495) = X(2495)/JVS(10560) - XX(2496) = X(2496)/JVS(10566) - XX(2497) = (X(2497)-JVS(2568)*XX(654))/(JVS(10570)) - XX(2498) = X(2498)/JVS(10574) - XX(2499) = X(2499)/JVS(10578) - XX(2500) = X(2500)/JVS(10582) - XX(2501) = (X(2501)-JVS(7409)*XX(1806)-JVS(9400)*XX(2234))/(JVS(10586)) - XX(2502) = X(2502)/JVS(10591) - XX(2503) = (X(2503)-JVS(2397)*XX(615))/(JVS(10597)) - XX(2504) = X(2504)/JVS(10601) - XX(2505) = X(2505)/JVS(10605) - XX(2506) = X(2506)/JVS(10610) - XX(2507) = X(2507)/JVS(10616) - XX(2508) = X(2508)/JVS(10621) - XX(2509) = (X(2509)-JVS(7160)*XX(1755))/(JVS(10627)) - XX(2510) = X(2510)/JVS(10631) - XX(2511) = X(2511)/JVS(10635) - XX(2512) = X(2512)/JVS(10641) - XX(2513) = (X(2513)-JVS(6732)*XX(1663))/(JVS(10647)) - XX(2514) = X(2514)/JVS(10651) - XX(2515) = (X(2515)-JVS(2307)*XX(593))/(JVS(10655)) - XX(2516) = X(2516)/JVS(10660) - XX(2517) = X(2517)/JVS(10666) - XX(2518) = X(2518)/JVS(10670) - XX(2519) = (X(2519)-JVS(6747)*XX(1667))/(JVS(10674)) - XX(2520) = X(2520)/JVS(10678) - XX(2521) = X(2521)/JVS(10684) - XX(2522) = X(2522)/JVS(10690) - XX(2523) = X(2523)/JVS(10694) - XX(2524) = (X(2524)-JVS(6496)*XX(1614))/(JVS(10698)) - XX(2525) = X(2525)/JVS(10702) - XX(2526) = X(2526)/JVS(10707) - XX(2527) = X(2527)/JVS(10713) - XX(2528) = X(2528)/JVS(10720) - XX(2529) = X(2529)/JVS(10726) - XX(2530) = X(2530)/JVS(10730) - XX(2531) = X(2531)/JVS(10734) - XX(2532) = (X(2532)-JVS(8606)*XX(2056))/(JVS(10738)) - XX(2533) = (X(2533)-JVS(10034)*XX(2377))/(JVS(10742)) - XX(2534) = (X(2534)-JVS(1757)*XX(445))/(JVS(10746)) - XX(2535) = X(2535)/JVS(10751) - XX(2536) = X(2536)/JVS(10758) - XX(2537) = X(2537)/JVS(10764) - XX(2538) = X(2538)/JVS(10768) - XX(2539) = X(2539)/JVS(10774) - XX(2540) = (X(2540)-JVS(9790)*XX(2323))/(JVS(10780)) - XX(2541) = X(2541)/JVS(10784) - XX(2542) = (X(2542)-JVS(10015)*XX(2374))/(JVS(10788)) - XX(2543) = (X(2543)-JVS(6269)*XX(1564))/(JVS(10792)) - XX(2544) = X(2544)/JVS(10796) - XX(2545) = X(2545)/JVS(10802) - XX(2546) = X(2546)/JVS(10808) - XX(2547) = X(2547)/JVS(10814) - XX(2548) = (X(2548)-JVS(1047)*XX(245))/(JVS(10818)) - XX(2549) = X(2549)/JVS(10825) - XX(2550) = X(2550)/JVS(10832) - XX(2551) = X(2551)/JVS(10839) - XX(2552) = X(2552)/JVS(10845) - XX(2553) = X(2553)/JVS(10849) - XX(2554) = X(2554)/JVS(10853) - XX(2555) = (X(2555)-JVS(7577)*XX(1838))/(JVS(10857)) - XX(2556) = (X(2556)-JVS(9589)*XX(2279))/(JVS(10861)) - XX(2557) = X(2557)/JVS(10866) - XX(2558) = (X(2558)-JVS(7065)*XX(1737))/(JVS(10872)) - XX(2559) = (X(2559)-JVS(8879)*XX(2117))/(JVS(10876)) - XX(2560) = X(2560)/JVS(10880) - XX(2561) = X(2561)/JVS(10885) - XX(2562) = X(2562)/JVS(10894) - XX(2563) = X(2563)/JVS(10901) - XX(2564) = X(2564)/JVS(10907) - XX(2565) = X(2565)/JVS(10911) - XX(2566) = X(2566)/JVS(10916) - XX(2567) = X(2567)/JVS(10922) - XX(2568) = X(2568)/JVS(10926) - XX(2569) = X(2569)/JVS(10930) - XX(2570) = X(2570)/JVS(10934) - XX(2571) = X(2571)/JVS(10938) - XX(2572) = (X(2572)-JVS(3031)*XX(761)-JVS(6942)*XX(1712))/(JVS(10942)) - XX(2573) = X(2573)/JVS(10946) - XX(2574) = X(2574)/JVS(10954) - XX(2575) = X(2575)/JVS(10961) - XX(2576) = X(2576)/JVS(10967) - XX(2577) = X(2577)/JVS(10972) - XX(2578) = X(2578)/JVS(10979) - XX(2579) = X(2579)/JVS(10985) - XX(2580) = X(2580)/JVS(10989) - XX(2581) = X(2581)/JVS(10994) - XX(2582) = X(2582)/JVS(11000) - XX(2583) = X(2583)/JVS(11004) - XX(2584) = X(2584)/JVS(11008) - XX(2585) = X(2585)/JVS(11012) - XX(2586) = X(2586)/JVS(11017) - XX(2587) = X(2587)/JVS(11023) - XX(2588) = X(2588)/JVS(11028) - XX(2589) = X(2589)/JVS(11037) - XX(2590) = (X(2590)-JVS(1104)*XX(261))/(JVS(11043)) - XX(2591) = X(2591)/JVS(11048) - XX(2592) = X(2592)/JVS(11055) - XX(2593) = X(2593)/JVS(11061) - XX(2594) = X(2594)/JVS(11068) - XX(2595) = X(2595)/JVS(11076) - XX(2596) = X(2596)/JVS(11083) - XX(2597) = X(2597)/JVS(11089) - XX(2598) = X(2598)/JVS(11094) - XX(2599) = X(2599)/JVS(11101) - XX(2600) = X(2600)/JVS(11107) - XX(2601) = (X(2601)-JVS(8097)*XX(1951))/(JVS(11111)) - XX(2602) = X(2602)/JVS(11115) - XX(2603) = X(2603)/JVS(11119) - XX(2604) = X(2604)/JVS(11124) - XX(2605) = X(2605)/JVS(11130) - XX(2606) = X(2606)/JVS(11134) - XX(2607) = X(2607)/JVS(11139) - XX(2608) = X(2608)/JVS(11145) - XX(2609) = (X(2609)-JVS(10026)*XX(2376))/(JVS(11149)) - XX(2610) = X(2610)/JVS(11153) - XX(2611) = X(2611)/JVS(11157) - XX(2612) = X(2612)/JVS(11161) - XX(2613) = (X(2613)-JVS(6381)*XX(1590))/(JVS(11165)) - XX(2614) = X(2614)/JVS(11171) - XX(2615) = X(2615)/JVS(11177) - XX(2616) = X(2616)/JVS(11181) - XX(2617) = (X(2617)-JVS(2446)*XX(626)-JVS(3113)*XX(781))/(JVS(11185)) - XX(2618) = (X(2618)-JVS(2376)*XX(610))/(JVS(11189)) - XX(2619) = X(2619)/JVS(11193) - XX(2620) = X(2620)/JVS(11197) - XX(2621) = (X(2621)-JVS(9654)*XX(2293))/(JVS(11201)) - XX(2622) = X(2622)/JVS(11205) - XX(2623) = X(2623)/JVS(11210) - XX(2624) = X(2624)/JVS(11216) - XX(2625) = (X(2625)-JVS(2496)*XX(638))/(JVS(11220)) - XX(2626) = (X(2626)-JVS(10195)*XX(2415)-JVS(10486)*XX(2480))/(JVS(11224)) - XX(2627) = (X(2627)-JVS(4048)*XX(1013))/(JVS(11228)) - XX(2628) = (X(2628)-JVS(7089)*XX(1741))/(JVS(11232)) - XX(2629) = (X(2629)-JVS(10378)*XX(2457))/(JVS(11236)) - XX(2630) = X(2630)/JVS(11240) - XX(2631) = X(2631)/JVS(11244) - XX(2632) = X(2632)/JVS(11248) - XX(2633) = (X(2633)-JVS(6560)*XX(1627))/(JVS(11252)) - XX(2634) = X(2634)/JVS(11259) - XX(2635) = X(2635)/JVS(11265) - XX(2636) = X(2636)/JVS(11269) - XX(2637) = X(2637)/JVS(11273) - XX(2638) = X(2638)/JVS(11280) - XX(2639) = X(2639)/JVS(11287) - XX(2640) = X(2640)/JVS(11293) - XX(2641) = X(2641)/JVS(11298) - XX(2642) = X(2642)/JVS(11307) - XX(2643) = X(2643)/JVS(11313) - XX(2644) = X(2644)/JVS(11320) - XX(2645) = X(2645)/JVS(11328) - XX(2646) = X(2646)/JVS(11334) - XX(2647) = X(2647)/JVS(11342) - XX(2648) = (X(2648)-JVS(6569)*XX(1628))/(JVS(11348)) - XX(2649) = X(2649)/JVS(11352) - XX(2650) = X(2650)/JVS(11356) - XX(2651) = X(2651)/JVS(11360) - XX(2652) = X(2652)/JVS(11364) - XX(2653) = (X(2653)-JVS(6270)*XX(1564))/(JVS(11368)) - XX(2654) = X(2654)/JVS(11372) - XX(2655) = X(2655)/JVS(11376) - XX(2656) = X(2656)/JVS(11380) - XX(2657) = X(2657)/JVS(11384) - XX(2658) = X(2658)/JVS(11388) - XX(2659) = X(2659)/JVS(11394) - XX(2660) = X(2660)/JVS(11400) - XX(2661) = (X(2661)-JVS(1746)*XX(443))/(JVS(11404)) - XX(2662) = X(2662)/JVS(11410) - XX(2663) = X(2663)/JVS(11416) - XX(2664) = (X(2664)-JVS(6396)*XX(1593))/(JVS(11420)) - XX(2665) = X(2665)/JVS(11425) - XX(2666) = X(2666)/JVS(11429) - XX(2667) = X(2667)/JVS(11434) - XX(2668) = X(2668)/JVS(11441) - XX(2669) = X(2669)/JVS(11447) - XX(2670) = X(2670)/JVS(11451) - XX(2671) = X(2671)/JVS(11455) - XX(2672) = (X(2672)-JVS(6223)*XX(1553)-JVS(7026)*XX(1728))/(JVS(11459)) - XX(2673) = (X(2673)-JVS(8269)*XX(1986))/(JVS(11463)) - XX(2674) = X(2674)/JVS(11467) - XX(2675) = X(2675)/JVS(11471) - XX(2676) = X(2676)/JVS(11476) - XX(2677) = X(2677)/JVS(11482) - XX(2678) = X(2678)/JVS(11486) - XX(2679) = X(2679)/JVS(11491) - XX(2680) = X(2680)/JVS(11499) - XX(2681) = X(2681)/JVS(11503) - XX(2682) = X(2682)/JVS(11508) - XX(2683) = X(2683)/JVS(11514) - XX(2684) = X(2684)/JVS(11518) - XX(2685) = X(2685)/JVS(11522) - XX(2686) = X(2686)/JVS(11526) - XX(2687) = (X(2687)-JVS(10415)*XX(2465))/(JVS(11530)) - XX(2688) = X(2688)/JVS(11534) - XX(2689) = X(2689)/JVS(11538) - XX(2690) = (X(2690)-JVS(3197)*XX(801)-JVS(7363)*XX(1797))/(JVS(11542)) - XX(2691) = X(2691)/JVS(11546) - XX(2692) = X(2692)/JVS(11551) - XX(2693) = (X(2693)-JVS(2060)*XX(532))/(JVS(11557)) - XX(2694) = X(2694)/JVS(11562) - XX(2695) = (X(2695)-JVS(2578)*XX(656)-JVS(8547)*XX(2043))/(JVS(11568)) - XX(2696) = X(2696)/JVS(11572) - XX(2697) = X(2697)/JVS(11579) - XX(2698) = X(2698)/JVS(11585) - XX(2699) = X(2699)/JVS(11591) - XX(2700) = X(2700)/JVS(11597) - XX(2701) = (X(2701)-JVS(7644)*XX(1852))/(JVS(11601)) - XX(2702) = X(2702)/JVS(11605) - XX(2703) = X(2703)/JVS(11609) - XX(2704) = X(2704)/JVS(11613) - XX(2705) = X(2705)/JVS(11617) - XX(2706) = X(2706)/JVS(11622) - XX(2707) = X(2707)/JVS(11629) - XX(2708) = X(2708)/JVS(11635) - XX(2709) = X(2709)/JVS(11639) - XX(2710) = X(2710)/JVS(11645) - XX(2711) = X(2711)/JVS(11653) - XX(2712) = X(2712)/JVS(11657) - XX(2713) = (X(2713)-JVS(6561)*XX(1627))/(JVS(11661)) - XX(2714) = X(2714)/JVS(11666) - XX(2715) = (X(2715)-JVS(6390)*XX(1592))/(JVS(11670)) - XX(2716) = X(2716)/JVS(11677) - XX(2717) = X(2717)/JVS(11684) - XX(2718) = X(2718)/JVS(11690) - XX(2719) = X(2719)/JVS(11698) - XX(2720) = X(2720)/JVS(11705) - XX(2721) = X(2721)/JVS(11711) - XX(2722) = X(2722)/JVS(11717) - XX(2723) = (X(2723)-JVS(9259)*XX(2203))/(JVS(11723)) - XX(2724) = X(2724)/JVS(11728) - XX(2725) = X(2725)/JVS(11734) - XX(2726) = X(2726)/JVS(11738) - XX(2727) = (X(2727)-JVS(2791)*XX(708)-JVS(7670)*XX(1858))/(JVS(11742)) - XX(2728) = X(2728)/JVS(11747) - XX(2729) = X(2729)/JVS(11753) - XX(2730) = (X(2730)-JVS(2652)*XX(674))/(JVS(11757)) - XX(2731) = X(2731)/JVS(11762) - XX(2732) = X(2732)/JVS(11769) - XX(2733) = X(2733)/JVS(11776) - XX(2734) = X(2734)/JVS(11782) - XX(2735) = X(2735)/JVS(11788) - XX(2736) = X(2736)/JVS(11793) - XX(2737) = (X(2737)-JVS(7226)*XX(1769)-JVS(7530)*XX(1828))/(JVS(11799)) - XX(2738) = X(2738)/JVS(11803) - XX(2739) = X(2739)/JVS(11808) - XX(2740) = X(2740)/JVS(11814) - XX(2741) = X(2741)/JVS(11819) - XX(2742) = (X(2742)-JVS(10353)*XX(2452))/(JVS(11825)) - XX(2743) = X(2743)/JVS(11829) - XX(2744) = X(2744)/JVS(11834) - XX(2745) = X(2745)/JVS(11842) - XX(2746) = X(2746)/JVS(11850) - XX(2747) = X(2747)/JVS(11857) - XX(2748) = X(2748)/JVS(11863) - XX(2749) = X(2749)/JVS(11868) - XX(2750) = X(2750)/JVS(11875) - XX(2751) = X(2751)/JVS(11882) - XX(2752) = X(2752)/JVS(11889) - XX(2753) = (X(2753)-JVS(6224)*XX(1553)-JVS(7027)*XX(1728))/(JVS(11895)) - XX(2754) = X(2754)/JVS(11899) - XX(2755) = X(2755)/JVS(11903) - XX(2756) = X(2756)/JVS(11907) - XX(2757) = X(2757)/JVS(11911) - XX(2758) = X(2758)/JVS(11916) - XX(2759) = (X(2759)-JVS(7393)*XX(1803))/(JVS(11922)) - XX(2760) = X(2760)/JVS(11927) - XX(2761) = (X(2761)-JVS(6504)*XX(1616))/(JVS(11933)) - XX(2762) = X(2762)/JVS(11938) - XX(2763) = X(2763)/JVS(11944) - XX(2764) = (X(2764)-JVS(6414)*XX(1597))/(JVS(11948)) - XX(2765) = X(2765)/JVS(11952) - XX(2766) = X(2766)/JVS(11956) - XX(2767) = X(2767)/JVS(11962) - XX(2768) = X(2768)/JVS(11969) - XX(2769) = (X(2769)-JVS(10257)*XX(2430))/(JVS(11975)) - XX(2770) = X(2770)/JVS(11980) - XX(2771) = X(2771)/JVS(11987) - XX(2772) = X(2772)/JVS(11993) - XX(2773) = X(2773)/JVS(12000) - XX(2774) = (X(2774)-JVS(6315)*XX(1574))/(JVS(12006)) - XX(2775) = (X(2775)-JVS(6986)*XX(1721))/(JVS(12010)) - XX(2776) = X(2776)/JVS(12016) - XX(2777) = X(2777)/JVS(12022) - XX(2778) = X(2778)/JVS(12026) - XX(2779) = X(2779)/JVS(12030) - XX(2780) = X(2780)/JVS(12034) - XX(2781) = (X(2781)-JVS(6697)*XX(1656))/(JVS(12038)) - XX(2782) = X(2782)/JVS(12042) - XX(2783) = X(2783)/JVS(12046) - XX(2784) = X(2784)/JVS(12052) - XX(2785) = (X(2785)-JVS(6748)*XX(1667))/(JVS(12056)) - XX(2786) = X(2786)/JVS(12060) - XX(2787) = X(2787)/JVS(12064) - XX(2788) = X(2788)/JVS(12069) - XX(2789) = X(2789)/JVS(12077) - XX(2790) = X(2790)/JVS(12083) - XX(2791) = X(2791)/JVS(12087) - XX(2792) = X(2792)/JVS(12091) - XX(2793) = X(2793)/JVS(12095) - XX(2794) = X(2794)/JVS(12099) - XX(2795) = X(2795)/JVS(12104) - XX(2796) = X(2796)/JVS(12110) - XX(2797) = (X(2797)-JVS(9002)*XX(2145))/(JVS(12114)) - XX(2798) = X(2798)/JVS(12119) - XX(2799) = (X(2799)-JVS(12120)*XX(2798))/(JVS(12125)) - XX(2800) = X(2800)/JVS(12129) - XX(2801) = X(2801)/JVS(12133) - XX(2802) = (X(2802)-JVS(7471)*XX(1818))/(JVS(12137)) - XX(2803) = X(2803)/JVS(12141) - XX(2804) = X(2804)/JVS(12145) - XX(2805) = (X(2805)-JVS(7743)*XX(1872))/(JVS(12149)) - XX(2806) = X(2806)/JVS(12154) - XX(2807) = X(2807)/JVS(12160) - XX(2808) = X(2808)/JVS(12166) - XX(2809) = X(2809)/JVS(12172) - XX(2810) = (X(2810)-JVS(6397)*XX(1593))/(JVS(12176)) - XX(2811) = X(2811)/JVS(12180) - XX(2812) = (X(2812)-JVS(8257)*XX(1984))/(JVS(12184)) - XX(2813) = X(2813)/JVS(12188) - XX(2814) = X(2814)/JVS(12192) - XX(2815) = X(2815)/JVS(12196) - XX(2816) = X(2816)/JVS(12201) - XX(2817) = (X(2817)-JVS(7716)*XX(1867))/(JVS(12207)) - XX(2818) = X(2818)/JVS(12212) - XX(2819) = X(2819)/JVS(12219) - XX(2820) = X(2820)/JVS(12226) - XX(2821) = X(2821)/JVS(12233) - XX(2822) = X(2822)/JVS(12239) - XX(2823) = X(2823)/JVS(12243) - XX(2824) = X(2824)/JVS(12247) - XX(2825) = X(2825)/JVS(12251) - XX(2826) = X(2826)/JVS(12258) - XX(2827) = X(2827)/JVS(12265) - XX(2828) = (X(2828)-JVS(12161)*XX(2807))/(JVS(12271)) - XX(2829) = (X(2829)-JVS(6655)*XX(1648))/(JVS(12275)) - XX(2830) = X(2830)/JVS(12279) - XX(2831) = X(2831)/JVS(12284) - XX(2832) = X(2832)/JVS(12291) - XX(2833) = X(2833)/JVS(12297) - XX(2834) = X(2834)/JVS(12301) - XX(2835) = (X(2835)-JVS(6263)*XX(1563))/(JVS(12305)) - XX(2836) = (X(2836)-JVS(2707)*XX(688)-JVS(7331)*XX(1791))/(JVS(12309)) - XX(2837) = X(2837)/JVS(12314) - XX(2838) = X(2838)/JVS(12320) - XX(2839) = (X(2839)-JVS(8152)*XX(1962))/(JVS(12324)) - XX(2840) = X(2840)/JVS(12329) - XX(2841) = X(2841)/JVS(12335) - XX(2842) = X(2842)/JVS(12339) - XX(2843) = X(2843)/JVS(12343) - XX(2844) = X(2844)/JVS(12347) - XX(2845) = X(2845)/JVS(12351) - XX(2846) = X(2846)/JVS(12355) - XX(2847) = X(2847)/JVS(12361) - XX(2848) = X(2848)/JVS(12367) - XX(2849) = X(2849)/JVS(12372) - XX(2850) = X(2850)/JVS(12378) - XX(2851) = X(2851)/JVS(12383) - XX(2852) = X(2852)/JVS(12389) - XX(2853) = X(2853)/JVS(12394) - XX(2854) = (X(2854)-JVS(117)*XX(23)-JVS(473)*XX(122))/(JVS(12400)) - XX(2855) = (X(2855)-JVS(9362)*XX(2226))/(JVS(12406)) - XX(2856) = X(2856)/JVS(12414) - XX(2857) = X(2857)/JVS(12420) - XX(2858) = X(2858)/JVS(12425) - XX(2859) = X(2859)/JVS(12431) - XX(2860) = X(2860)/JVS(12435) - XX(2861) = X(2861)/JVS(12439) - XX(2862) = X(2862)/JVS(12445) - XX(2863) = X(2863)/JVS(12449) - XX(2864) = X(2864)/JVS(12453) - XX(2865) = X(2865)/JVS(12458) - XX(2866) = X(2866)/JVS(12464) - XX(2867) = X(2867)/JVS(12468) - XX(2868) = (X(2868)-JVS(7831)*XX(1893))/(JVS(12472)) - XX(2869) = X(2869)/JVS(12477) - XX(2870) = X(2870)/JVS(12483) - XX(2871) = (X(2871)-JVS(6505)*XX(1616))/(JVS(12487)) - XX(2872) = X(2872)/JVS(12491) - XX(2873) = X(2873)/JVS(12495) - XX(2874) = X(2874)/JVS(12500) - XX(2875) = X(2875)/JVS(12508) - XX(2876) = X(2876)/JVS(12512) - XX(2877) = X(2877)/JVS(12516) - XX(2878) = (X(2878)-JVS(6887)*XX(1699))/(JVS(12520)) - XX(2879) = X(2879)/JVS(12524) - XX(2880) = X(2880)/JVS(12528) - XX(2881) = X(2881)/JVS(12533) - XX(2882) = X(2882)/JVS(12539) - XX(2883) = X(2883)/JVS(12543) - XX(2884) = X(2884)/JVS(12547) - XX(2885) = X(2885)/JVS(12551) - XX(2886) = X(2886)/JVS(12555) - XX(2887) = X(2887)/JVS(12559) - XX(2888) = (X(2888)-JVS(8214)*XX(1975)-JVS(10487)*XX(2480))/(JVS(12563)) - XX(2889) = X(2889)/JVS(12569) - XX(2890) = X(2890)/JVS(12576) - XX(2891) = X(2891)/JVS(12584) - XX(2892) = (X(2892)-JVS(1778)*XX(450))/(JVS(12590)) - XX(2893) = (X(2893)-JVS(6609)*XX(1638))/(JVS(12594)) - XX(2894) = X(2894)/JVS(12599) - XX(2895) = X(2895)/JVS(12605) - XX(2896) = X(2896)/JVS(12609) - XX(2897) = X(2897)/JVS(12614) - XX(2898) = X(2898)/JVS(12620) - XX(2899) = X(2899)/JVS(12624) - XX(2900) = (X(2900)-JVS(2834)*XX(717)-JVS(8954)*XX(2134))/(JVS(12628)) - XX(2901) = X(2901)/JVS(12632) - XX(2902) = X(2902)/JVS(12637) - XX(2903) = X(2903)/JVS(12644) - XX(2904) = X(2904)/JVS(12650) - XX(2905) = X(2905)/JVS(12655) - XX(2906) = X(2906)/JVS(12663) - XX(2907) = X(2907)/JVS(12669) - XX(2908) = (X(2908)-JVS(8143)*XX(1961))/(JVS(12673)) - XX(2909) = X(2909)/JVS(12683) - XX(2910) = X(2910)/JVS(12691) - XX(2911) = X(2911)/JVS(12695) - XX(2912) = X(2912)/JVS(12700) - XX(2913) = (X(2913)-JVS(7090)*XX(1741))/(JVS(12706)) - XX(2914) = X(2914)/JVS(12711) - XX(2915) = X(2915)/JVS(12717) - XX(2916) = X(2916)/JVS(12722) - XX(2917) = (X(2917)-JVS(8070)*XX(1945))/(JVS(12728)) - XX(2918) = X(2918)/JVS(12733) - XX(2919) = X(2919)/JVS(12740) - XX(2920) = (X(2920)-JVS(2801)*XX(710)-JVS(8107)*XX(1953))/(JVS(12746)) - XX(2921) = X(2921)/JVS(12750) - XX(2922) = X(2922)/JVS(12756) - XX(2923) = (X(2923)-JVS(2509)*XX(641))/(JVS(12762)) - XX(2924) = X(2924)/JVS(12766) - XX(2925) = X(2925)/JVS(12770) - XX(2926) = X(2926)/JVS(12776) - XX(2927) = (X(2927)-JVS(4442)*XX(1111))/(JVS(12783)) - XX(2928) = X(2928)/JVS(12787) - XX(2929) = X(2929)/JVS(12791) - XX(2930) = (X(2930)-JVS(9250)*XX(2201))/(JVS(12795)) - XX(2931) = X(2931)/JVS(12800) - XX(2932) = (X(2932)-JVS(309)*XX(77))/(JVS(12807)) - XX(2933) = X(2933)/JVS(12814) - XX(2934) = (X(2934)-JVS(6987)*XX(1721))/(JVS(12820)) - XX(2935) = X(2935)/JVS(12825) - XX(2936) = (X(2936)-JVS(3442)*XX(862))/(JVS(12832)) - XX(2937) = X(2937)/JVS(12837) - XX(2938) = X(2938)/JVS(12846) - XX(2939) = X(2939)/JVS(12854) - XX(2940) = (X(2940)-JVS(6665)*XX(1650))/(JVS(12860)) - XX(2941) = X(2941)/JVS(12864) - XX(2942) = (X(2942)-JVS(7003)*XX(1724))/(JVS(12868)) - XX(2943) = (X(2943)-JVS(6875)*XX(1696)-JVS(9278)*XX(2207))/(JVS(12872)) - XX(2944) = X(2944)/JVS(12877) - XX(2945) = X(2945)/JVS(12883) - XX(2946) = X(2946)/JVS(12888) - XX(2947) = X(2947)/JVS(12894) - XX(2948) = X(2948)/JVS(12898) - XX(2949) = X(2949)/JVS(12904) - XX(2950) = X(2950)/JVS(12910) - XX(2951) = X(2951)/JVS(12914) - XX(2952) = X(2952)/JVS(12919) - XX(2953) = X(2953)/JVS(12928) - XX(2954) = X(2954)/JVS(12936) - XX(2955) = X(2955)/JVS(12942) - XX(2956) = X(2956)/JVS(12946) - XX(2957) = X(2957)/JVS(12950) - XX(2958) = X(2958)/JVS(12954) - XX(2959) = X(2959)/JVS(12959) - XX(2960) = X(2960)/JVS(12966) - XX(2961) = X(2961)/JVS(12973) - XX(2962) = X(2962)/JVS(12980) - XX(2963) = X(2963)/JVS(12987) - XX(2964) = (X(2964)-JVS(1670)*XX(421))/(JVS(12993)) - XX(2965) = X(2965)/JVS(13002) - XX(2966) = X(2966)/JVS(13009) - XX(2967) = X(2967)/JVS(13015) - XX(2968) = X(2968)/JVS(13022) - XX(2969) = X(2969)/JVS(13028) - XX(2970) = X(2970)/JVS(13032) - XX(2971) = (X(2971)-JVS(9417)*XX(2238))/(JVS(13036)) - XX(2972) = X(2972)/JVS(13041) - XX(2973) = X(2973)/JVS(13048) - XX(2974) = X(2974)/JVS(13056) - XX(2975) = (X(2975)-JVS(9295)*XX(2210))/(JVS(13062)) - XX(2976) = (X(2976)-JVS(6415)*XX(1597))/(JVS(13066)) - XX(2977) = X(2977)/JVS(13070) - XX(2978) = X(2978)/JVS(13074) - XX(2979) = X(2979)/JVS(13081) - XX(2980) = X(2980)/JVS(13087) - XX(2981) = X(2981)/JVS(13091) - XX(2982) = X(2982)/JVS(13098) - XX(2983) = X(2983)/JVS(13105) - XX(2984) = X(2984)/JVS(13111) - XX(2985) = X(2985)/JVS(13115) - XX(2986) = X(2986)/JVS(13120) - XX(2987) = X(2987)/JVS(13126) - XX(2988) = X(2988)/JVS(13130) - XX(2989) = X(2989)/JVS(13135) - XX(2990) = X(2990)/JVS(13143) - XX(2991) = X(2991)/JVS(13149) - XX(2992) = X(2992)/JVS(13153) - XX(2993) = (X(2993)-JVS(13154)*XX(2992))/(JVS(13159)) - XX(2994) = X(2994)/JVS(13165) - XX(2995) = X(2995)/JVS(13172) - XX(2996) = X(2996)/JVS(13180) - XX(2997) = X(2997)/JVS(13187) - XX(2998) = X(2998)/JVS(13193) - XX(2999) = X(2999)/JVS(13197) - XX(3000) = X(3000)/JVS(13204) - XX(3001) = X(3001)/JVS(13211) - XX(3002) = X(3002)/JVS(13217) - XX(3003) = X(3003)/JVS(13221) - XX(3004) = X(3004)/JVS(13226) - XX(3005) = X(3005)/JVS(13232) - XX(3006) = (X(3006)-JVS(2702)*XX(687)-JVS(7980)*XX(1925))/(JVS(13236)) - XX(3007) = X(3007)/JVS(13240) - XX(3008) = X(3008)/JVS(13244) - XX(3009) = X(3009)/JVS(13251) - XX(3010) = X(3010)/JVS(13257) - XX(3011) = (X(3011)-JVS(6208)*XX(1550))/(JVS(13261)) - XX(3012) = X(3012)/JVS(13265) - XX(3013) = X(3013)/JVS(13272) - XX(3014) = X(3014)/JVS(13278) - XX(3015) = (X(3015)-JVS(8325)*XX(1998))/(JVS(13282)) - XX(3016) = X(3016)/JVS(13287) - XX(3017) = X(3017)/JVS(13293) - XX(3018) = (X(3018)-JVS(3045)*XX(765))/(JVS(13297)) - XX(3019) = X(3019)/JVS(13301) - XX(3020) = X(3020)/JVS(13305) - XX(3021) = X(3021)/JVS(13309) - XX(3022) = (X(3022)-JVS(9245)*XX(2200)-JVS(10335)*XX(2448))/(JVS(13313)) - XX(3023) = X(3023)/JVS(13317) - XX(3024) = X(3024)/JVS(13321) - XX(3025) = X(3025)/JVS(13325) - XX(3026) = X(3026)/JVS(13329) - XX(3027) = X(3027)/JVS(13335) - XX(3028) = X(3028)/JVS(13342) - XX(3029) = X(3029)/JVS(13348) - XX(3030) = X(3030)/JVS(13353) - XX(3031) = X(3031)/JVS(13359) - XX(3032) = X(3032)/JVS(13365) - XX(3033) = X(3033)/JVS(13371) - XX(3034) = (X(3034)-JVS(1077)*XX(254)-JVS(6876)*XX(1696))/(JVS(13375)) - XX(3035) = (X(3035)-JVS(6405)*XX(1595))/(JVS(13379)) - XX(3036) = X(3036)/JVS(13384) - XX(3037) = X(3037)/JVS(13391) - XX(3038) = (X(3038)-JVS(6733)*XX(1663))/(JVS(13397)) - XX(3039) = X(3039)/JVS(13402) - XX(3040) = X(3040)/JVS(13408) - XX(3041) = X(3041)/JVS(13414) - XX(3042) = X(3042)/JVS(13420) - XX(3043) = (X(3043)-JVS(8945)*XX(2132)-JVS(9110)*XX(2170))/(JVS(13424)) - XX(3044) = X(3044)/JVS(13428) - XX(3045) = X(3045)/JVS(13432) - XX(3046) = (X(3046)-JVS(6264)*XX(1563))/(JVS(13436)) - XX(3047) = X(3047)/JVS(13440) - XX(3048) = X(3048)/JVS(13446) - XX(3049) = (X(3049)-JVS(2613)*XX(665))/(JVS(13452)) - XX(3050) = X(3050)/JVS(13458) - XX(3051) = X(3051)/JVS(13464) - XX(3052) = X(3052)/JVS(13468) - XX(3053) = X(3053)/JVS(13472) - XX(3054) = X(3054)/JVS(13477) - XX(3055) = (X(3055)-JVS(9182)*XX(2186))/(JVS(13483)) - XX(3056) = X(3056)/JVS(13487) - XX(3057) = X(3057)/JVS(13493) - XX(3058) = X(3058)/JVS(13498) - XX(3059) = X(3059)/JVS(13504) - XX(3060) = X(3060)/JVS(13508) - XX(3061) = X(3061)/JVS(13512) - XX(3062) = X(3062)/JVS(13517) - XX(3063) = X(3063)/JVS(13523) - XX(3064) = X(3064)/JVS(13528) - XX(3065) = X(3065)/JVS(13535) - XX(3066) = X(3066)/JVS(13543) - XX(3067) = X(3067)/JVS(13550) - XX(3068) = X(3068)/JVS(13556) - XX(3069) = X(3069)/JVS(13562) - XX(3070) = X(3070)/JVS(13568) - XX(3071) = X(3071)/JVS(13573) - XX(3072) = X(3072)/JVS(13580) - XX(3073) = X(3073)/JVS(13587) - XX(3074) = X(3074)/JVS(13594) - XX(3075) = X(3075)/JVS(13600) - XX(3076) = (X(3076)-JVS(10529)*XX(2490))/(JVS(13604)) - XX(3077) = (X(3077)-JVS(6316)*XX(1574))/(JVS(13608)) - XX(3078) = (X(3078)-JVS(2192)*XX(564)-JVS(7547)*XX(1832))/(JVS(13612)) - XX(3079) = X(3079)/JVS(13617) - XX(3080) = X(3080)/JVS(13625) - XX(3081) = (X(3081)-JVS(1621)*XX(407))/(JVS(13631)) - XX(3082) = X(3082)/JVS(13638) - XX(3083) = X(3083)/JVS(13644) - XX(3084) = X(3084)/JVS(13649) - XX(3085) = X(3085)/JVS(13652) - XX(3086) = X(3086)/JVS(13659) - XX(3087) = X(3087)/JVS(13664) - XX(3088) = X(3088)/JVS(13669) - XX(3089) = X(3089)/JVS(13677) - XX(3090) = X(3090)/JVS(13683) - XX(3091) = X(3091)/JVS(13691) - XX(3092) = X(3092)/JVS(13696) - XX(3093) = X(3093)/JVS(13701) - XX(3094) = X(3094)/JVS(13706) - XX(3095) = X(3095)/JVS(13711) - XX(3096) = X(3096)/JVS(13716) - XX(3097) = X(3097)/JVS(13719) - XX(3098) = X(3098)/JVS(13722) - XX(3099) = X(3099)/JVS(13727) - XX(3100) = X(3100)/JVS(13732) - XX(3101) = X(3101)/JVS(13737) - XX(3102) = (X(3102)-JVS(8193)*XX(1971))/(JVS(13742)) - XX(3103) = X(3103)/JVS(13750) - XX(3104) = X(3104)/JVS(13756) - XX(3105) = X(3105)/JVS(13765) - XX(3106) = X(3106)/JVS(13768) - XX(3107) = X(3107)/JVS(13775) - XX(3108) = (X(3108)-JVS(13776)*XX(3107))/(JVS(13780)) - XX(3109) = X(3109)/JVS(13787) - XX(3110) = X(3110)/JVS(13795) - XX(3111) = X(3111)/JVS(13800) - XX(3112) = X(3112)/JVS(13805) - XX(3113) = X(3113)/JVS(13810) - XX(3114) = X(3114)/JVS(13813) - XX(3115) = X(3115)/JVS(13819) - XX(3116) = X(3116)/JVS(13824) - XX(3117) = X(3117)/JVS(13832) - XX(3118) = X(3118)/JVS(13840) - XX(3119) = X(3119)/JVS(13845) - XX(3120) = X(3120)/JVS(13850) - XX(3121) = X(3121)/JVS(13858) - XX(3122) = X(3122)/JVS(13866) - XX(3123) = X(3123)/JVS(13871) - XX(3124) = X(3124)/JVS(13878) - XX(3125) = X(3125)/JVS(13883) - XX(3126) = X(3126)/JVS(13891) - XX(3127) = X(3127)/JVS(13896) - XX(3128) = X(3128)/JVS(13909) - XX(3129) = X(3129)/JVS(13918) - XX(3130) = X(3130)/JVS(13922) - XX(3131) = X(3131)/JVS(13926) - XX(3132) = X(3132)/JVS(13932) - XX(3133) = X(3133)/JVS(13937) - XX(3134) = X(3134)/JVS(13942) - XX(3135) = X(3135)/JVS(13946) - XX(3136) = X(3136)/JVS(13950) - XX(3137) = X(3137)/JVS(13953) - XX(3138) = X(3138)/JVS(13958) - XX(3139) = X(3139)/JVS(13962) - XX(3140) = X(3140)/JVS(13965) - XX(3141) = X(3141)/JVS(13970) - XX(3142) = X(3142)/JVS(13975) - XX(3143) = X(3143)/JVS(13980) - XX(3144) = X(3144)/JVS(13985) - XX(3145) = X(3145)/JVS(13988) - XX(3146) = X(3146)/JVS(13991) - XX(3147) = (X(3147)-JVS(6905)*XX(1703))/(JVS(13996)) - XX(3148) = X(3148)/JVS(14002) - XX(3149) = X(3149)/JVS(14008) - XX(3150) = X(3150)/JVS(14011) - XX(3151) = X(3151)/JVS(14018) - XX(3152) = X(3152)/JVS(14023) - XX(3153) = X(3153)/JVS(14028) - XX(3154) = (X(3154)-JVS(9850)*XX(2335))/(JVS(14033)) - XX(3155) = X(3155)/JVS(14036) - XX(3156) = X(3156)/JVS(14042) - XX(3157) = X(3157)/JVS(14048) - XX(3158) = X(3158)/JVS(14052) - XX(3159) = X(3159)/JVS(14055) - XX(3160) = (X(3160)-JVS(476)*XX(123)-JVS(9438)*XX(2243))/(JVS(14060)) - XX(3161) = X(3161)/JVS(14063) - XX(3162) = X(3162)/JVS(14068) - XX(3163) = X(3163)/JVS(14073) - XX(3164) = X(3164)/JVS(14079) - XX(3165) = X(3165)/JVS(14082) - XX(3166) = X(3166)/JVS(14090) - XX(3167) = X(3167)/JVS(14095) - XX(3168) = X(3168)/JVS(14103) - XX(3169) = X(3169)/JVS(14108) - XX(3170) = X(3170)/JVS(14111) - XX(3171) = X(3171)/JVS(14118) - XX(3172) = X(3172)/JVS(14124) - XX(3173) = X(3173)/JVS(14127) - XX(3174) = X(3174)/JVS(14135) - XX(3175) = X(3175)/JVS(14140) - XX(3176) = X(3176)/JVS(14147) - XX(3177) = (X(3177)-JVS(14148)*XX(3176))/(JVS(14152)) - XX(3178) = X(3178)/JVS(14156) - XX(3179) = X(3179)/JVS(14161) - XX(3180) = X(3180)/JVS(14165) - XX(3181) = X(3181)/JVS(14168) - XX(3182) = X(3182)/JVS(14173) - XX(3183) = X(3183)/JVS(14178) - XX(3184) = X(3184)/JVS(14185) - XX(3185) = X(3185)/JVS(14192) - XX(3186) = X(3186)/JVS(14197) - XX(3187) = X(3187)/JVS(14202) - XX(3188) = (X(3188)-JVS(7152)*XX(1754))/(JVS(14207)) - XX(3189) = X(3189)/JVS(14212) - XX(3190) = X(3190)/JVS(14217) - XX(3191) = X(3191)/JVS(14222) - XX(3192) = X(3192)/JVS(14227) - XX(3193) = X(3193)/JVS(14231) - XX(3194) = X(3194)/JVS(14235) - XX(3195) = X(3195)/JVS(14246) - XX(3196) = (X(3196)-JVS(2806)*XX(711))/(JVS(14253)) - XX(3197) = X(3197)/JVS(14257) - XX(3198) = (X(3198)-JVS(2246)*XX(578)-JVS(7417)*XX(1808)-JVS(10455)*XX(2473))/(JVS(14261)) - XX(3199) = (X(3199)-JVS(9143)*XX(2177))/(JVS(14265)) - XX(3200) = X(3200)/JVS(14271) - XX(3201) = (X(3201)-JVS(8116)*XX(1955))/(JVS(14275)) - XX(3202) = X(3202)/JVS(14279) - XX(3203) = X(3203)/JVS(14283) - XX(3204) = X(3204)/JVS(14287) - XX(3205) = (X(3205)-JVS(8362)*XX(2005))/(JVS(14291)) - XX(3206) = X(3206)/JVS(14295) - XX(3207) = (X(3207)-JVS(2462)*XX(630))/(JVS(14299)) - XX(3208) = (X(3208)-JVS(8393)*XX(2012))/(JVS(14303)) - XX(3209) = X(3209)/JVS(14307) - XX(3210) = X(3210)/JVS(14311) - XX(3211) = X(3211)/JVS(14315) - XX(3212) = (X(3212)-JVS(9956)*XX(2361))/(JVS(14319)) - XX(3213) = X(3213)/JVS(14327) - XX(3214) = (X(3214)-JVS(2355)*XX(605)-JVS(10427)*XX(2467))/(JVS(14334)) - XX(3215) = X(3215)/JVS(14339) - XX(3216) = (X(3216)-JVS(14340)*XX(3215))/(JVS(14346)) - XX(3217) = (X(3217)-JVS(7826)*XX(1892)-JVS(10927)*XX(2568)-JVS(14341)*XX(3215))/(JVS(14350)) - XX(3218) = X(3218)/JVS(14354) - XX(3219) = (X(3219)-JVS(2449)*XX(627))/(JVS(14360)) - XX(3220) = (X(3220)-JVS(9606)*XX(2283))/(JVS(14364)) - XX(3221) = X(3221)/JVS(14368) - XX(3222) = (X(3222)-JVS(756)*XX(179))/(JVS(14372)) - XX(3223) = X(3223)/JVS(14376) - XX(3224) = X(3224)/JVS(14380) - XX(3225) = X(3225)/JVS(14384) - XX(3226) = X(3226)/JVS(14388) - XX(3227) = (X(3227)-JVS(7209)*XX(1765))/(JVS(14392)) - XX(3228) = X(3228)/JVS(14397) - XX(3229) = (X(3229)-JVS(8818)*XX(2102))/(JVS(14401)) - XX(3230) = X(3230)/JVS(14406) - XX(3231) = (X(3231)-JVS(2781)*XX(706))/(JVS(14410)) - XX(3232) = (X(3232)-JVS(10044)*XX(2379))/(JVS(14414)) - XX(3233) = X(3233)/JVS(14423) - XX(3234) = X(3234)/JVS(14434) - XX(3235) = (X(3235)-JVS(11770)*XX(2732))/(JVS(14441)) - XX(3236) = X(3236)/JVS(14445) - XX(3237) = X(3237)/JVS(14449) - XX(3238) = (X(3238)-JVS(7185)*XX(1760)-JVS(11667)*XX(2714))/(JVS(14453)) - XX(3239) = X(3239)/JVS(14457) - XX(3240) = (X(3240)-JVS(9462)*XX(2249))/(JVS(14461)) - XX(3241) = X(3241)/JVS(14467) - XX(3242) = X(3242)/JVS(14481) - XX(3243) = (X(3243)-JVS(7456)*XX(1815))/(JVS(14491)) - XX(3244) = (X(3244)-JVS(2663)*XX(677))/(JVS(14497)) - XX(3245) = X(3245)/JVS(14502) - XX(3246) = X(3246)/JVS(14513) - XX(3247) = X(3247)/JVS(14523) - XX(3248) = X(3248)/JVS(14530) - XX(3249) = X(3249)/JVS(14534) - XX(3250) = X(3250)/JVS(14538) - XX(3251) = X(3251)/JVS(14543) - XX(3252) = X(3252)/JVS(14548) - XX(3253) = (X(3253)-JVS(10611)*XX(2506))/(JVS(14555)) - XX(3254) = X(3254)/JVS(14559) - XX(3255) = X(3255)/JVS(14563) - XX(3256) = (X(3256)-JVS(7784)*XX(1882))/(JVS(14570)) - XX(3257) = X(3257)/JVS(14574) - XX(3258) = X(3258)/JVS(14578) - XX(3259) = X(3259)/JVS(14582) - XX(3260) = X(3260)/JVS(14586) - XX(3261) = (X(3261)-JVS(8739)*XX(2085))/(JVS(14590)) - XX(3262) = X(3262)/JVS(14595) - XX(3263) = (X(3263)-JVS(2786)*XX(707))/(JVS(14601)) - XX(3264) = X(3264)/JVS(14605) - XX(3265) = (X(3265)-JVS(8653)*XX(2066))/(JVS(14609)) - XX(3266) = (X(3266)-JVS(9056)*XX(2158))/(JVS(14613)) - XX(3267) = (X(3267)-JVS(7307)*XX(1787))/(JVS(14617)) - XX(3268) = X(3268)/JVS(14623) - XX(3269) = X(3269)/JVS(14631) - XX(3270) = X(3270)/JVS(14642) - XX(3271) = X(3271)/JVS(14649) - XX(3272) = X(3272)/JVS(14653) - XX(3273) = (X(3273)-JVS(8175)*XX(1967))/(JVS(14657)) - XX(3274) = (X(3274)-JVS(8447)*XX(2024))/(JVS(14661)) - XX(3275) = X(3275)/JVS(14665) - XX(3276) = X(3276)/JVS(14669) - XX(3277) = (X(3277)-JVS(9377)*XX(2229))/(JVS(14673)) - XX(3278) = (X(3278)-JVS(7413)*XX(1807))/(JVS(14677)) - XX(3279) = (X(3279)-JVS(10902)*XX(2563))/(JVS(14681)) - XX(3280) = X(3280)/JVS(14685) - XX(3281) = X(3281)/JVS(14690) - XX(3282) = X(3282)/JVS(14697) - XX(3283) = X(3283)/JVS(14705) - XX(3284) = X(3284)/JVS(14715) - XX(3285) = X(3285)/JVS(14722) - XX(3286) = X(3286)/JVS(14726) - XX(3287) = (X(3287)-JVS(2712)*XX(689)-JVS(10109)*XX(2395))/(JVS(14730)) - XX(3288) = (X(3288)-JVS(577)*XX(150))/(JVS(14734)) - XX(3289) = (X(3289)-JVS(7763)*XX(1877))/(JVS(14738)) - XX(3290) = X(3290)/JVS(14742) - XX(3291) = (X(3291)-JVS(6236)*XX(1556)-JVS(9488)*XX(2255))/(JVS(14746)) - XX(3292) = X(3292)/JVS(14750) - XX(3293) = X(3293)/JVS(14754) - XX(3294) = X(3294)/JVS(14758) - XX(3295) = (X(3295)-JVS(11748)*XX(2728))/(JVS(14762)) - XX(3296) = X(3296)/JVS(14770) - XX(3297) = (X(3297)-JVS(13049)*XX(2973))/(JVS(14777)) - XX(3298) = X(3298)/JVS(14781) - XX(3299) = (X(3299)-JVS(8064)*XX(1944))/(JVS(14785)) - XX(3300) = X(3300)/JVS(14789) - XX(3301) = X(3301)/JVS(14794) - XX(3302) = (X(3302)-JVS(14795)*XX(3301))/(JVS(14801)) - XX(3303) = (X(3303)-JVS(9921)*XX(2353))/(JVS(14805)) - XX(3304) = X(3304)/JVS(14809) - XX(3305) = (X(3305)-JVS(1114)*XX(264))/(JVS(14814)) - XX(3306) = X(3306)/JVS(14821) - XX(3307) = (X(3307)-JVS(8993)*XX(2143))/(JVS(14825)) - XX(3308) = (X(3308)-JVS(7988)*XX(1927))/(JVS(14829)) - XX(3309) = X(3309)/JVS(14835) - XX(3310) = (X(3310)-JVS(8764)*XX(2090))/(JVS(14839)) - XX(3311) = X(3311)/JVS(14843) - XX(3312) = X(3312)/JVS(14847) - XX(3313) = (X(3313)-JVS(12001)*XX(2773))/(JVS(14851)) - XX(3314) = (X(3314)-JVS(2618)*XX(666)-JVS(7326)*XX(1790))/(JVS(14855)) - XX(3315) = (X(3315)-JVS(8108)*XX(1953))/(JVS(14859)) - XX(3316) = X(3316)/JVS(14863) - XX(3317) = (X(3317)-JVS(7199)*XX(1763))/(JVS(14867)) - XX(3318) = (X(3318)-JVS(9356)*XX(2225)-JVS(14815)*XX(3305))/(JVS(14871)) - XX(3319) = (X(3319)-JVS(10549)*XX(2493))/(JVS(14875)) - XX(3320) = (X(3320)-JVS(11939)*XX(2762))/(JVS(14879)) - XX(3321) = (X(3321)-JVS(12155)*XX(2806))/(JVS(14883)) - XX(3322) = X(3322)/JVS(14887) - XX(3323) = (X(3323)-JVS(13082)*XX(2979))/(JVS(14891)) - XX(3324) = X(3324)/JVS(14895) - XX(3325) = X(3325)/JVS(14899) - XX(3326) = X(3326)/JVS(14903) - XX(3327) = (X(3327)-JVS(7190)*XX(1761))/(JVS(14907)) - XX(3328) = (X(3328)-JVS(6391)*XX(1592))/(JVS(14912)) - XX(3329) = X(3329)/JVS(14918) - XX(3330) = (X(3330)-JVS(8357)*XX(2004))/(JVS(14926)) - XX(3331) = X(3331)/JVS(14936) - XX(3332) = X(3332)/JVS(14944) - XX(3333) = X(3333)/JVS(14952) - XX(3334) = X(3334)/JVS(14958) - XX(3335) = (X(3335)-JVS(10035)*XX(2377))/(JVS(14964)) - XX(3336) = (X(3336)-JVS(14564)*XX(3255))/(JVS(14971)) - XX(3337) = X(3337)/JVS(14979) - XX(3338) = (X(3338)-JVS(6633)*XX(1643))/(JVS(14986)) - XX(3339) = X(3339)/JVS(14994) - XX(3340) = (X(3340)-JVS(14995)*XX(3339))/(JVS(14999)) - XX(3341) = (X(3341)-JVS(7066)*XX(1737))/(JVS(15004)) - XX(3342) = X(3342)/JVS(15011) - XX(3343) = X(3343)/JVS(15021) - XX(3344) = (X(3344)-JVS(2678)*XX(680))/(JVS(15029)) - XX(3345) = X(3345)/JVS(15038) - XX(3346) = X(3346)/JVS(15044) - XX(3347) = X(3347)/JVS(15051) - XX(3348) = X(3348)/JVS(15060) - XX(3349) = X(3349)/JVS(15067) - XX(3350) = X(3350)/JVS(15075) - XX(3351) = X(3351)/JVS(15082) - XX(3352) = X(3352)/JVS(15090) - XX(3353) = (X(3353)-JVS(15091)*XX(3352))/(JVS(15095)) - XX(3354) = X(3354)/JVS(15101) - XX(3355) = X(3355)/JVS(15108) - XX(3356) = X(3356)/JVS(15116) - XX(3357) = (X(3357)-JVS(15117)*XX(3356))/(JVS(15121)) - XX(3358) = X(3358)/JVS(15125) - XX(3359) = X(3359)/JVS(15132) - XX(3360) = (X(3360)-JVS(15133)*XX(3359))/(JVS(15137)) - XX(3361) = (X(3361)-JVS(10819)*XX(2548))/(JVS(15142)) - XX(3362) = X(3362)/JVS(15149) - XX(3363) = X(3363)/JVS(15156) - XX(3364) = (X(3364)-JVS(13757)*XX(3104))/(JVS(15163)) - XX(3365) = X(3365)/JVS(15171) - XX(3366) = (X(3366)-JVS(7552)*XX(1833))/(JVS(15177)) - XX(3367) = X(3367)/JVS(15185) - XX(3368) = X(3368)/JVS(15195) - XX(3369) = X(3369)/JVS(15205) - XX(3370) = X(3370)/JVS(15212) - XX(3371) = X(3371)/JVS(15219) - XX(3372) = X(3372)/JVS(15229) - XX(3373) = X(3373)/JVS(15239) - XX(3374) = X(3374)/JVS(15248) - XX(3375) = X(3375)/JVS(15255) - XX(3376) = (X(3376)-JVS(6888)*XX(1699))/(JVS(15262)) - XX(3377) = X(3377)/JVS(15269) - XX(3378) = X(3378)/JVS(15277) - XX(3379) = (X(3379)-JVS(15278)*XX(3378))/(JVS(15282)) - XX(3380) = (X(3380)-JVS(1044)*XX(244)-JVS(4926)*XX(1231))/(JVS(15287)) - XX(3381) = X(3381)/JVS(15294) - XX(3382) = X(3382)/JVS(15302) - XX(3383) = X(3383)/JVS(15308) - XX(3384) = X(3384)/JVS(15318) - XX(3385) = (X(3385)-JVS(6640)*XX(1645))/(JVS(15325)) - XX(3386) = X(3386)/JVS(15333) - XX(3387) = X(3387)/JVS(15340) - XX(3388) = X(3388)/JVS(15346) - XX(3389) = X(3389)/JVS(15355) - XX(3390) = X(3390)/JVS(15362) - XX(3391) = X(3391)/JVS(15371) - XX(3392) = X(3392)/JVS(15377) - XX(3393) = X(3393)/JVS(15384) - XX(3394) = (X(3394)-JVS(6595)*XX(1634))/(JVS(15391)) - XX(3395) = (X(3395)-JVS(12401)*XX(2854))/(JVS(15398)) - XX(3396) = (X(3396)-JVS(1097)*XX(259)-JVS(4532)*XX(1133))/(JVS(15405)) - XX(3397) = X(3397)/JVS(15416) - XX(3398) = (X(3398)-JVS(6441)*XX(1604))/(JVS(15424)) - XX(3399) = (X(3399)-JVS(9079)*XX(2163))/(JVS(15431)) - XX(3400) = X(3400)/JVS(15437) - XX(3401) = X(3401)/JVS(15444) - XX(3402) = X(3402)/JVS(15450) - XX(3403) = X(3403)/JVS(15459) - XX(3404) = X(3404)/JVS(15467) - XX(3405) = (X(3405)-JVS(994)*XX(229))/(JVS(15475)) - XX(3406) = X(3406)/JVS(15482) - XX(3407) = (X(3407)-JVS(1363)*XX(331)-JVS(4158)*XX(1040))/(JVS(15489)) - XX(3408) = X(3408)/JVS(15496) - XX(3409) = (X(3409)-JVS(6406)*XX(1595))/(JVS(15502)) - XX(3410) = (X(3410)-JVS(7996)*XX(1929))/(JVS(15508)) - XX(3411) = X(3411)/JVS(15517) - XX(3412) = X(3412)/JVS(15526) - XX(3413) = X(3413)/JVS(15532) - XX(3414) = (X(3414)-JVS(12402)*XX(2854))/(JVS(15539)) - XX(3415) = X(3415)/JVS(15546) - XX(3416) = X(3416)/JVS(15555) - XX(3417) = X(3417)/JVS(15561) - XX(3418) = (X(3418)-JVS(6610)*XX(1638))/(JVS(15568)) - XX(3419) = X(3419)/JVS(15573) - XX(3420) = X(3420)/JVS(15582) - XX(3421) = (X(3421)-JVS(10820)*XX(2548))/(JVS(15589)) - XX(3422) = X(3422)/JVS(15596) - XX(3423) = (X(3423)-JVS(1769)*XX(448)-JVS(3640)*XX(911))/(JVS(15603)) - XX(3424) = (X(3424)-JVS(12847)*XX(2938))/(JVS(15611)) - XX(3425) = X(3425)/JVS(15619) - XX(3426) = X(3426)/JVS(15627) - XX(3427) = (X(3427)-JVS(15628)*XX(3426))/(JVS(15632)) - XX(3428) = (X(3428)-JVS(111)*XX(21)-JVS(206)*XX(48))/(JVS(15638)) - XX(3429) = X(3429)/JVS(15645) - XX(3430) = X(3430)/JVS(15653) - XX(3431) = X(3431)/JVS(15662) - XX(3432) = (X(3432)-JVS(66)*XX(7))/(JVS(15669)) - XX(3433) = X(3433)/JVS(15677) - XX(3434) = X(3434)/JVS(15685) - XX(3435) = (X(3435)-JVS(9135)*XX(2175))/(JVS(15691)) - XX(3436) = (X(3436)-JVS(7981)*XX(1925))/(JVS(15695)) - XX(3437) = X(3437)/JVS(15699) - XX(3438) = X(3438)/JVS(15703) - XX(3439) = (X(3439)-JVS(7768)*XX(1878))/(JVS(15707)) - XX(3440) = (X(3440)-JVS(7769)*XX(1878))/(JVS(15714)) - XX(3441) = (X(3441)-JVS(15574)*XX(3419))/(JVS(15720)) - XX(3442) = (X(3442)-JVS(165)*XX(37))/(JVS(15724)) - XX(3443) = (X(3443)-JVS(10059)*XX(2382))/(JVS(15728)) - XX(3444) = (X(3444)-JVS(7975)*XX(1924)-JVS(8250)*XX(1983)-JVS(13758)*XX(3104))/(JVS(15732)) - XX(3445) = (X(3445)-JVS(9136)*XX(2175))/(JVS(15736)) - XX(3446) = (X(3446)-JVS(3222)*XX(808))/(JVS(15740)) - XX(3447) = (X(3447)-JVS(7997)*XX(1929)-JVS(8285)*XX(1989))/(JVS(15744)) - XX(3448) = (X(3448)-JVS(5079)*XX(1269))/(JVS(15748)) - XX(3449) = (X(3449)-JVS(7625)*XX(1848))/(JVS(15752)) - XX(3450) = X(3450)/JVS(15758) - XX(3451) = (X(3451)-JVS(9626)*XX(2287))/(JVS(15762)) - XX(3452) = (X(3452)-JVS(9935)*XX(2356))/(JVS(15766)) - XX(3453) = (X(3453)-JVS(8137)*XX(1960))/(JVS(15770)) - XX(3454) = X(3454)/JVS(15775) - XX(3455) = (X(3455)-JVS(13707)*XX(3094))/(JVS(15779)) - XX(3456) = (X(3456)-JVS(952)*XX(216))/(JVS(15785)) - XX(3457) = X(3457)/JVS(15793) - XX(3458) = X(3458)/JVS(15797) - XX(3459) = (X(3459)-JVS(8858)*XX(2112))/(JVS(15801)) - XX(3460) = X(3460)/JVS(15805) - XX(3461) = (X(3461)-JVS(1549)*XX(387))/(JVS(15811)) - XX(3462) = (X(3462)-JVS(7710)*XX(1866))/(JVS(15819)) - XX(3463) = X(3463)/JVS(15823) - XX(3464) = X(3464)/JVS(15827) - XX(3465) = X(3465)/JVS(15831) - XX(3466) = X(3466)/JVS(15835) - XX(3467) = X(3467)/JVS(15839) - XX(3468) = (X(3468)-JVS(12315)*XX(2837))/(JVS(15843)) - XX(3469) = (X(3469)-JVS(3006)*XX(755))/(JVS(15847)) - XX(3470) = X(3470)/JVS(15852) - XX(3471) = X(3471)/JVS(15856) - XX(3472) = X(3472)/JVS(15860) - XX(3473) = (X(3473)-JVS(2980)*XX(749)-JVS(12808)*XX(2932))/(JVS(15864)) - XX(3474) = (X(3474)-JVS(1891)*XX(483))/(JVS(15870)) - XX(3475) = X(3475)/JVS(15878) - XX(3476) = X(3476)/JVS(15882) - XX(3477) = X(3477)/JVS(15888) - XX(3478) = (X(3478)-JVS(545)*XX(142)-JVS(10442)*XX(2471))/(JVS(15897)) - XX(3479) = X(3479)/JVS(15906) - XX(3480) = X(3480)/JVS(15913) - XX(3481) = (X(3481)-JVS(1162)*XX(277)-JVS(3860)*XX(966)-JVS(7357)*XX(1796)-JVS(9696)*XX(2302))/(JVS(15918)) - XX(3482) = (X(3482)-JVS(2995)*XX(752))/(JVS(15924)) - XX(3483) = X(3483)/JVS(15930) - XX(3484) = X(3484)/JVS(15935) - XX(3485) = (X(3485)-JVS(6670)*XX(1651))/(JVS(15940)) - XX(3486) = X(3486)/JVS(15947) - XX(3487) = (X(3487)-JVS(8583)*XX(2051))/(JVS(15952)) - XX(3488) = X(3488)/JVS(15957) - XX(3489) = (X(3489)-JVS(429)*XX(111)-JVS(3724)*XX(932))/(JVS(15964)) - XX(3490) = X(3490)/JVS(15969) - XX(3491) = (X(3491)-JVS(423)*XX(109)-JVS(4628)*XX(1157))/(JVS(15976)) - XX(3492) = (X(3492)-JVS(1704)*XX(431)-JVS(5544)*XX(1385)-JVS(7875)*XX(1903)-JVS(9392)*XX(2232))/(JVS(15982)) - XX(3493) = (X(3493)-JVS(14186)*XX(3184))/(JVS(15990)) - XX(3494) = (X(3494)-JVS(2778)*XX(705))/(JVS(15996)) - XX(3495) = X(3495)/JVS(16000) - XX(3496) = (X(3496)-JVS(4406)*XX(1102)-JVS(7905)*XX(1909)-JVS(7911)*XX(1910)-JVS(9556)*XX(2272))/(JVS(16004)) - XX(3497) = X(3497)/JVS(16014) - XX(3498) = X(3498)/JVS(16023) - XX(3499) = (X(3499)-JVS(2660)*XX(676))/(JVS(16031)) - XX(3500) = X(3500)/JVS(16036) - XX(3501) = (X(3501)-JVS(14539)*XX(3250))/(JVS(16041)) - XX(3502) = X(3502)/JVS(16046) - XX(3503) = (X(3503)-JVS(461)*XX(119)-JVS(4128)*XX(1033))/(JVS(16053)) - XX(3504) = (X(3504)-JVS(13660)*XX(3086))/(JVS(16061)) - XX(3505) = X(3505)/JVS(16069) - XX(3506) = (X(3506)-JVS(2839)*XX(718))/(JVS(16075)) - XX(3507) = (X(3507)-JVS(1108)*XX(262)-JVS(3684)*XX(922)-JVS(7492)*XX(1821)-JVS(9728)*XX(2309))/(JVS(16080)) - XX(3508) = (X(3508)-JVS(2860)*XX(723))/(JVS(16086)) - XX(3509) = (X(3509)-JVS(1366)*XX(332)-JVS(5942)*XX(1484)-JVS(7478)*XX(1819)-JVS(7484)*XX(1820))/(JVS(16091)) - XX(3510) = X(3510)/JVS(16097) - XX(3511) = (X(3511)-JVS(479)*XX(124)-JVS(6019)*XX(1503))/(JVS(16104)) - XX(3512) = (X(3512)-JVS(2209)*XX(569))/(JVS(16110)) - XX(3513) = X(3513)/JVS(16115) - XX(3514) = (X(3514)-JVS(2065)*XX(533))/(JVS(16123)) - XX(3515) = X(3515)/JVS(16131) - XX(3516) = X(3516)/JVS(16141) - XX(3517) = (X(3517)-JVS(1041)*XX(243)-JVS(16142)*XX(3516))/(JVS(16155)) - XX(3518) = (X(3518)-JVS(99)*XX(17)-JVS(3832)*XX(959))/(JVS(16161)) - XX(3519) = X(3519)/JVS(16166) - XX(3520) = X(3520)/JVS(16171) - XX(3521) = (X(3521)-JVS(1580)*XX(396)-JVS(6175)*XX(1542)-JVS(7680)*XX(1860)-JVS(7780)*XX(1881))/(JVS(16177)) - XX(3522) = (X(3522)-JVS(14019)*XX(3151))/(JVS(16185)) - XX(3523) = (X(3523)-JVS(981)*XX(225)-JVS(5151)*XX(1287)-JVS(8401)*XX(2014)-JVS(8407)*XX(2015))/(JVS(16191)) - XX(3524) = X(3524)/JVS(16196) - XX(3525) = (X(3525)-JVS(1882)*XX(480)-JVS(5836)*XX(1458)-JVS(7239)*XX(1772)-JVS(7245)*XX(1773))/(JVS(16201)) - XX(3526) = X(3526)/JVS(16207) - XX(3527) = (X(3527)-JVS(496)*XX(129)-JVS(3996)*XX(1000)-JVS(6107)*XX(1525))/(JVS(16214)) - XX(3528) = (X(3528)-JVS(2909)*XX(734)-JVS(7520)*XX(1826))/(JVS(16219)) - XX(3529) = (X(3529)-JVS(15126)*XX(3358))/(JVS(16224)) - XX(3530) = X(3530)/JVS(16232) - XX(3531) = (X(3531)-JVS(143)*XX(31)-JVS(4032)*XX(1009))/(JVS(16241)) - XX(3532) = X(3532)/JVS(16247) - XX(3533) = (X(3533)-JVS(10126)*XX(2399))/(JVS(16252)) - XX(3534) = (X(3534)-JVS(336)*XX(84)-JVS(3980)*XX(996))/(JVS(16258)) - XX(3535) = X(3535)/JVS(16266) - XX(3536) = (X(3536)-JVS(13759)*XX(3104))/(JVS(16277)) - XX(3537) = (X(3537)-JVS(13879)*XX(3124))/(JVS(16289)) - XX(3538) = (X(3538)-JVS(521)*XX(136)-JVS(3752)*XX(939))/(JVS(16296)) - XX(3539) = (X(3539)-JVS(289)*XX(71)-JVS(4930)*XX(1232))/(JVS(16303)) - XX(3540) = (X(3540)-JVS(15309)*XX(3383))/(JVS(16308)) - XX(3541) = (X(3541)-JVS(1676)*XX(422))/(JVS(16316)) - XX(3542) = X(3542)/JVS(16328) - XX(3543) = X(3543)/JVS(16337) - XX(3544) = (X(3544)-JVS(14179)*XX(3183))/(JVS(16345)) - XX(3545) = (X(3545)-JVS(2454)*XX(628))/(JVS(16351)) - XX(3546) = X(3546)/JVS(16356) - XX(3547) = (X(3547)-JVS(14565)*XX(3255))/(JVS(16364)) - XX(3548) = (X(3548)-JVS(14193)*XX(3185))/(JVS(16374)) - XX(3549) = X(3549)/JVS(16380) - XX(3550) = (X(3550)-JVS(6818)*XX(1684)-JVS(14540)*XX(3250))/(JVS(16385)) - XX(3551) = (X(3551)-JVS(2176)*XX(560))/(JVS(16390)) - XX(3552) = (X(3552)-JVS(6321)*XX(1575)-JVS(9073)*XX(2162))/(JVS(16394)) - XX(3553) = X(3553)/JVS(16399) - XX(3554) = (X(3554)-JVS(548)*XX(143)-JVS(4088)*XX(1023))/(JVS(16406)) - XX(3555) = X(3555)/JVS(16412) - XX(3556) = X(3556)/JVS(16420) - XX(3557) = X(3557)/JVS(16432) - XX(3558) = X(3558)/JVS(16439) - XX(3559) = (X(3559)-JVS(13820)*XX(3115))/(JVS(16447)) - XX(3560) = (X(3560)-JVS(2929)*XX(738))/(JVS(16453)) - XX(3561) = X(3561)/JVS(16460) - XX(3562) = (X(3562)-JVS(203)*XX(47)-JVS(3748)*XX(938))/(JVS(16469)) - XX(3563) = X(3563)/JVS(16475) - XX(3564) = (X(3564)-JVS(14482)*XX(3242))/(JVS(16481)) - XX(3565) = X(3565)/JVS(16490) - XX(3566) = X(3566)/JVS(16496) - XX(3567) = X(3567)/JVS(16504) - XX(3568) = (X(3568)-JVS(8)*XX(3))/(JVS(16511)) - XX(3569) = X(3569)/JVS(16519) - XX(3570) = X(3570)/JVS(16527) - XX(3571) = X(3571)/JVS(16535) - XX(3572) = X(3572)/JVS(16542) - XX(3573) = X(3573)/JVS(16550) - XX(3574) = (X(3574)-JVS(10821)*XX(2548))/(JVS(16557)) - XX(3575) = X(3575)/JVS(16564) - XX(3576) = X(3576)/JVS(16572) - XX(3577) = X(3577)/JVS(16579) - XX(3578) = X(3578)/JVS(16587) - XX(3579) = (X(3579)-JVS(10822)*XX(2548))/(JVS(16594)) - XX(3580) = X(3580)/JVS(16603) - XX(3581) = X(3581)/JVS(16611) - XX(3582) = (X(3582)-JVS(10517)*XX(2488))/(JVS(16618)) - XX(3583) = X(3583)/JVS(16628) - XX(3584) = X(3584)/JVS(16636) - XX(3585) = X(3585)/JVS(16643) - XX(3586) = X(3586)/JVS(16650) - XX(3587) = X(3587)/JVS(16657) - XX(3588) = X(3588)/JVS(16665) - XX(3589) = X(3589)/JVS(16673) - XX(3590) = X(3590)/JVS(16685) - XX(3591) = (X(3591)-JVS(7998)*XX(1929))/(JVS(16694)) - XX(3592) = X(3592)/JVS(16701) - XX(3593) = X(3593)/JVS(16709) - XX(3594) = X(3594)/JVS(16719) - XX(3595) = X(3595)/JVS(16727) - XX(3596) = (X(3596)-JVS(12403)*XX(2854))/(JVS(16734)) - XX(3597) = (X(3597)-JVS(12404)*XX(2854))/(JVS(16741)) - XX(3598) = X(3598)/JVS(16748) - XX(3599) = X(3599)/JVS(16758) - XX(3600) = X(3600)/JVS(16766) - XX(3601) = (X(3601)-JVS(6615)*XX(1639))/(JVS(16776)) - XX(3602) = X(3602)/JVS(16785) - XX(3603) = X(3603)/JVS(16793) - XX(3604) = X(3604)/JVS(16802) - XX(3605) = X(3605)/JVS(16810) - XX(3606) = X(3606)/JVS(16818) - XX(3607) = X(3607)/JVS(16828) - XX(3608) = X(3608)/JVS(16835) - XX(3609) = X(3609)/JVS(16845) - XX(3610) = X(3610)/JVS(16853) - XX(3611) = X(3611)/JVS(16861) - XX(3612) = X(3612)/JVS(16869) - XX(3613) = (X(3613)-JVS(6715)*XX(1660))/(JVS(16877)) - XX(3614) = X(3614)/JVS(16885) - XX(3615) = X(3615)/JVS(16893) - XX(3616) = X(3616)/JVS(16903) - XX(3617) = X(3617)/JVS(16913) - XX(3618) = (X(3618)-JVS(7821)*XX(1891)-JVS(15883)*XX(3476))/(JVS(16927)) - XX(3619) = X(3619)/JVS(16938) - XX(3620) = (X(3620)-JVS(9890)*XX(2345)-JVS(15970)*XX(3490)-JVS(16777)*XX(3601))/(JVS(16948)) - XX(3621) = (X(3621)-JVS(956)*XX(217)-JVS(9383)*XX(2230)-JVS(11981)*XX(2770))/(JVS(16952)) - XX(3622) = X(3622)/JVS(16957) - XX(3623) = (X(3623)-JVS(8468)*XX(2029)-JVS(10292)*XX(2438))/(JVS(16961)) - XX(3624) = (X(3624)-JVS(3011)*XX(756)-JVS(14544)*XX(3251)-JVS(15178)*XX(3366))/(JVS(16965)) - XX(3625) = (X(3625)-JVS(6554)*XX(1625)-JVS(7121)*XX(1748))/(JVS(16969)) - XX(3626) = X(3626)/JVS(16981) - XX(3627) = (X(3627)-JVS(278)*XX(68)-JVS(3530)*XX(884)-JVS(14247)*XX(3195))/(JVS(16993)) - XX(3628) = (X(3628)-JVS(6819)*XX(1684)-JVS(9851)*XX(2335))/(JVS(17000)) - XX(3629) = X(3629)/JVS(17008) - XX(3630) = X(3630)/JVS(17016) - XX(3631) = (X(3631)-JVS(6402)*XX(1594)-JVS(11749)*XX(2728)-JVS(14763)*XX(3295)-JVS(14771)*XX(3296))/(JVS(17026)) - XX(3632) = (X(3632)-JVS(102)*XX(18)-JVS(3924)*XX(982)-JVS(14772)*XX(3296))/(JVS(17033)) - XX(3633) = X(3633)/JVS(17039) - XX(3634) = (X(3634)-JVS(5035)*XX(1258)-JVS(8532)*XX(2040)-JVS(8538)*XX(2041))/(JVS(17044)) - XX(3635) = (X(3635)-JVS(9439)*XX(2243))/(JVS(17051)) - XX(3636) = (X(3636)-JVS(2145)*XX(552)-JVS(3872)*XX(969)-JVS(9343)*XX(2222))/(JVS(17056)) - XX(3637) = (X(3637)-JVS(1272)*XX(307)-JVS(4958)*XX(1239)-JVS(7963)*XX(1922)-JVS(7969)*XX(1923)-JVS(10955)*XX(2574))& - &/(JVS(17062)) - XX(3638) = X(3638)/JVS(17072) - XX(3639) = X(3639)/JVS(17093) - XX(3640) = X(3640)/JVS(17106) - XX(3641) = (X(3641)-JVS(6375)*XX(1589)-JVS(11013)*XX(2585)-JVS(12362)*XX(2847)-JVS(14514)*XX(3246))/(JVS(17113)) - XX(3642) = X(3642)/JVS(17123) - XX(3643) = X(3643)/JVS(17136) - XX(3644) = (X(3644)-JVS(1784)*XX(451))/(JVS(17145)) - XX(3645) = X(3645)/JVS(17158) - XX(3646) = (X(3646)-JVS(16914)*XX(3617))/(JVS(17163)) - XX(3647) = X(3647)/JVS(17168) - XX(3648) = (X(3648)-JVS(83)*XX(13)-JVS(4872)*XX(1218)-JVS(14515)*XX(3246))/(JVS(17178)) - XX(3649) = X(3649)/JVS(17188) - XX(3650) = (X(3650)-JVS(298)*XX(74)-JVS(5588)*XX(1396)-JVS(14706)*XX(3283))/(JVS(17195)) - XX(3651) = X(3651)/JVS(17203) - XX(3652) = X(3652)/JVS(17213) - XX(3653) = (X(3653)-JVS(2297)*XX(591)-JVS(9557)*XX(2272))/(JVS(17224)) - XX(3654) = (X(3654)-JVS(11783)*XX(2734))/(JVS(17229)) - XX(3655) = X(3655)/JVS(17239) - XX(3656) = X(3656)/JVS(17247) - XX(3657) = X(3657)/JVS(17260) - XX(3658) = (X(3658)-JVS(5463)*XX(1365)-JVS(8802)*XX(2099)-JVS(8808)*XX(2100)-JVS(13743)*XX(3102))/(JVS(17265)) - XX(3659) = (X(3659)-JVS(7032)*XX(1729)-JVS(11771)*XX(2732)-JVS(14442)*XX(3235)-JVS(14707)*XX(3283))/(JVS(17272)) - XX(3660) = (X(3660)-JVS(11784)*XX(2734))/(JVS(17277)) - XX(3661) = X(3661)/JVS(17287) - XX(3662) = X(3662)/JVS(17292) - XX(3663) = (X(3663)-JVS(6649)*XX(1647)-JVS(11815)*XX(2740)-JVS(13166)*XX(2994)-JVS(14248)*XX(3195))/(JVS(17299)) - XX(3664) = X(3664)/JVS(17308) - XX(3665) = (X(3665)-JVS(6285)*XX(1567)-JVS(11217)*XX(2624))/(JVS(17316)) - XX(3666) = (X(3666)-JVS(9732)*XX(2310))/(JVS(17324)) - XX(3667) = (X(3667)-JVS(1369)*XX(333)-JVS(6250)*XX(1559)-JVS(8299)*XX(1992)-JVS(9327)*XX(2218))/(JVS(17331)) - XX(3668) = (X(3668)-JVS(3053)*XX(767)-JVS(4900)*XX(1225)-JVS(8502)*XX(2034)-JVS(8509)*XX(2035))/(JVS(17339)) - XX(3669) = (X(3669)-JVS(1008)*XX(233)-JVS(3057)*XX(768)-JVS(4159)*XX(1040)-JVS(8760)*XX(2089))/(JVS(17346)) - XX(3670) = (X(3670)-JVS(1024)*XX(238)-JVS(5411)*XX(1352)-JVS(8194)*XX(1971)-JVS(13744)*XX(3102))/(JVS(17352)) - XX(3671) = (X(3671)-JVS(2226)*XX(573)-JVS(8663)*XX(2068)-JVS(14208)*XX(3188))/(JVS(17360)) - XX(3672) = X(3672)/JVS(17367) - XX(3673) = X(3673)/JVS(17375) - XX(3674) = (X(3674)-JVS(360)*XX(91)-JVS(5131)*XX(1282))/(JVS(17383)) - XX(3675) = (X(3675)-JVS(449)*XX(116)-JVS(1148)*XX(273)-JVS(1313)*XX(318)-JVS(2024)*XX(521))/(JVS(17390)) - XX(3676) = (X(3676)-JVS(7100)*XX(1743)-JVS(9187)*XX(2187)-JVS(10022)*XX(2375)-JVS(11678)*XX(2716))/(JVS(17398)) - XX(3677) = (X(3677)-JVS(2971)*XX(747)-JVS(7634)*XX(1850))/(JVS(17405)) - XX(3678) = (X(3678)-JVS(156)*XX(35)-JVS(4108)*XX(1028))/(JVS(17413)) - XX(3679) = (X(3679)-JVS(2999)*XX(753)-JVS(8235)*XX(1979))/(JVS(17421)) - XX(3680) = (X(3680)-JVS(3185)*XX(798)-JVS(10085)*XX(2389))/(JVS(17429)) - XX(3681) = X(3681)/JVS(17437) - XX(3682) = X(3682)/JVS(17444) - XX(3683) = X(3683)/JVS(17454) - XX(3684) = (X(3684)-JVS(2757)*XX(700)-JVS(12784)*XX(2927))/(JVS(17462)) - XX(3685) = (X(3685)-JVS(3257)*XX(816)-JVS(8559)*XX(2046))/(JVS(17468)) - XX(3686) = (X(3686)-JVS(727)*XX(174)-JVS(1090)*XX(257)-JVS(4474)*XX(1119)-JVS(6209)*XX(1550)-JVS(6213)*XX(1551))& - &/(JVS(17476)) - XX(3687) = (X(3687)-JVS(2135)*XX(550)-JVS(9536)*XX(2267))/(JVS(17483)) - XX(3688) = (X(3688)-JVS(975)*XX(223)-JVS(2877)*XX(727)-JVS(5532)*XX(1382)-JVS(9255)*XX(2202))/(JVS(17493)) - XX(3689) = X(3689)/JVS(17503) - XX(3690) = (X(3690)-JVS(1226)*XX(295)-JVS(5399)*XX(1349)-JVS(8627)*XX(2060)-JVS(9272)*XX(2206))/(JVS(17512)) - XX(3691) = (X(3691)-JVS(2034)*XX(524)-JVS(5552)*XX(1387)-JVS(8483)*XX(2031)-JVS(10077)*XX(2387))/(JVS(17521)) - XX(3692) = (X(3692)-JVS(2812)*XX(712)-JVS(10364)*XX(2454))/(JVS(17528)) - XX(3693) = (X(3693)-JVS(11056)*XX(2592))/(JVS(17535)) - XX(3694) = (X(3694)-JVS(174)*XX(40)-JVS(695)*XX(169)-JVS(3736)*XX(935))/(JVS(17545)) - XX(3695) = (X(3695)-JVS(244)*XX(58)-JVS(5776)*XX(1443)-JVS(6456)*XX(1606))/(JVS(17552)) - XX(3696) = (X(3696)-JVS(1899)*XX(485)-JVS(2421)*XX(620)-JVS(3641)*XX(911)-JVS(7686)*XX(1861))/(JVS(17559)) - XX(3697) = (X(3697)-JVS(465)*XX(120)-JVS(1243)*XX(299)-JVS(1585)*XX(397)-JVS(1588)*XX(398))/(JVS(17566)) - XX(3698) = (X(3698)-JVS(751)*XX(178)-JVS(1291)*XX(313)-JVS(3482)*XX(872)-JVS(8200)*XX(1972)-JVS(12002)*XX(2773))& - &/(JVS(17574)) - XX(3699) = (X(3699)-JVS(87)*XX(14)-JVS(1497)*XX(372)-JVS(1798)*XX(455)-JVS(2013)*XX(518))/(JVS(17581)) - XX(3700) = X(3700)/JVS(17588) - XX(3701) = (X(3701)-JVS(2088)*XX(538)-JVS(12833)*XX(2936))/(JVS(17595)) - XX(3702) = (X(3702)-JVS(2431)*XX(623)-JVS(14596)*XX(3262)-JVS(15179)*XX(3366))/(JVS(17599)) - XX(3703) = (X(3703)-JVS(689)*XX(168)-JVS(1875)*XX(478)-JVS(4278)*XX(1070)-JVS(8641)*XX(2063)-JVS(14643)*XX(3270))& - &/(JVS(17605)) - XX(3704) = (X(3704)-JVS(186)*XX(43)-JVS(6143)*XX(1534))/(JVS(17613)) - XX(3705) = (X(3705)-JVS(177)*XX(41)-JVS(4076)*XX(1020)-JVS(6948)*XX(1713))/(JVS(17620)) - XX(3706) = (X(3706)-JVS(483)*XX(125)-JVS(1958)*XX(502)-JVS(4354)*XX(1089)-JVS(6877)*XX(1696))/(JVS(17628)) - XX(3707) = (X(3707)-JVS(15828)*XX(3464))/(JVS(17634)) - XX(3708) = (X(3708)-JVS(7514)*XX(1825))/(JVS(17640)) - XX(3709) = X(3709)/JVS(17647) - XX(3710) = (X(3710)-JVS(282)*XX(69)-JVS(1450)*XX(359)-JVS(1856)*XX(472)-JVS(1979)*XX(508))/(JVS(17657)) - XX(3711) = (X(3711)-JVS(384)*XX(97)-JVS(1325)*XX(322)-JVS(1330)*XX(323)-JVS(1333)*XX(324))/(JVS(17664)) - XX(3712) = (X(3712)-JVS(10443)*XX(2471))/(JVS(17671)) - XX(3713) = (X(3713)-JVS(4210)*XX(1053)-JVS(15406)*XX(3396))/(JVS(17679)) - XX(3714) = (X(3714)-JVS(149)*XX(33)-JVS(329)*XX(82)-JVS(3848)*XX(963))/(JVS(17687)) - XX(3715) = (X(3715)-JVS(3072)*XX(772)-JVS(5059)*XX(1264)-JVS(8489)*XX(2032)-JVS(8496)*XX(2033))/(JVS(17695)) - XX(3716) = X(3716)/JVS(17704) - XX(3717) = (X(3717)-JVS(321)*XX(80)-JVS(3964)*XX(992))/(JVS(17713)) - XX(3718) = (X(3718)-JVS(1725)*XX(437)-JVS(3338)*XX(836)-JVS(8475)*XX(2030)-JVS(9195)*XX(2189))/(JVS(17722)) - XX(3719) = (X(3719)-JVS(305)*XX(76)-JVS(3952)*XX(989))/(JVS(17730)) - XX(3720) = (X(3720)-JVS(881)*XX(201)-JVS(1260)*XX(303)-JVS(2182)*XX(561)-JVS(2185)*XX(562)-JVS(5139)*XX(1284)& - &-JVS(17658)*XX(3710))/(JVS(17739)) - XX(3721) = (X(3721)-JVS(146)*XX(32)-JVS(4684)*XX(1171)-JVS(7153)*XX(1754)-JVS(14209)*XX(3188))/(JVS(17747)) - XX(3722) = (X(3722)-JVS(825)*XX(191)-JVS(1633)*XX(410)-JVS(5656)*XX(1413)-JVS(6656)*XX(1648)-JVS(6660)*XX(1649))& - &/(JVS(17755)) - XX(3723) = (X(3723)-JVS(10518)*XX(2488))/(JVS(17762)) - XX(3724) = (X(3724)-JVS(2905)*XX(733)-JVS(10343)*XX(2450))/(JVS(17772)) - XX(3725) = (X(3725)-JVS(200)*XX(46)-JVS(5010)*XX(1252)-JVS(6803)*XX(1680))/(JVS(17779)) - XX(3726) = X(3726)/JVS(17789) - XX(3727) = (X(3727)-JVS(1288)*XX(312)-JVS(3161)*XX(792)-JVS(4533)*XX(1133)-JVS(7853)*XX(1898))/(JVS(17798)) - XX(3728) = (X(3728)-JVS(4506)*XX(1127)-JVS(15490)*XX(3407))/(JVS(17805)) - XX(3729) = X(3729)/JVS(17813) - XX(3730) = (X(3730)-JVS(508)*XX(132)-JVS(4124)*XX(1032))/(JVS(17821)) - XX(3731) = (X(3731)-JVS(2037)*XX(525)-JVS(5219)*XX(1304)-JVS(8903)*XX(2122)-JVS(9540)*XX(2268))/(JVS(17830)) - XX(3732) = X(3732)/JVS(17838) - XX(3733) = (X(3733)-JVS(739)*XX(176)-JVS(1577)*XX(395)-JVS(2561)*XX(652)-JVS(2564)*XX(653)-JVS(3354)*XX(840))& - &/(JVS(17844)) - XX(3734) = X(3734)/JVS(17853) - XX(3735) = X(3735)/JVS(17862) - XX(3736) = (X(3736)-JVS(12606)*XX(2895))/(JVS(17872)) - XX(3737) = (X(3737)-JVS(12607)*XX(2895)-JVS(17873)*XX(3736))/(JVS(17880)) - XX(3738) = (X(3738)-JVS(2951)*XX(743)-JVS(9661)*XX(2294))/(JVS(17888)) - XX(3739) = (X(3739)-JVS(2595)*XX(660)-JVS(8592)*XX(2053))/(JVS(17895)) - XX(3740) = (X(3740)-JVS(500)*XX(130)-JVS(939)*XX(212)-JVS(1918)*XX(490)-JVS(1921)*XX(491))/(JVS(17902)) - XX(3741) = (X(3741)-JVS(1248)*XX(300)-JVS(1793)*XX(454)-JVS(5299)*XX(1324))/(JVS(17913)) - XX(3742) = X(3742)/JVS(17922) - XX(3743) = (X(3743)-JVS(621)*XX(157)-JVS(1869)*XX(476)-JVS(5359)*XX(1339)-JVS(7789)*XX(1883)-JVS(13083)*XX(2979))& - &/(JVS(17930)) - XX(3744) = (X(3744)-JVS(13684)*XX(3090))/(JVS(17937)) - XX(3745) = (X(3745)-JVS(181)*XX(42)-JVS(4170)*XX(1043))/(JVS(17946)) - XX(3746) = (X(3746)-JVS(292)*XX(72)-JVS(899)*XX(204)-JVS(5343)*XX(1335))/(JVS(17954)) - XX(3747) = X(3747)/JVS(17966) - XX(3748) = X(3748)/JVS(17979) - XX(3749) = (X(3749)-JVS(1844)*XX(469)-JVS(4672)*XX(1168)-JVS(9613)*XX(2284)-JVS(9684)*XX(2299))/(JVS(17988)) - XX(3750) = (X(3750)-JVS(2043)*XX(527)-JVS(6119)*XX(1528)-JVS(7431)*XX(1811)-JVS(7438)*XX(1812))/(JVS(17996)) - XX(3751) = (X(3751)-JVS(1841)*XX(468)-JVS(5608)*XX(1401)-JVS(7273)*XX(1780)-JVS(7279)*XX(1781))/(JVS(18005)) - XX(3752) = (X(3752)-JVS(394)*XX(100)-JVS(3772)*XX(944)-JVS(6776)*XX(1675))/(JVS(18012)) - XX(3753) = (X(3753)-JVS(95)*XX(16)-JVS(412)*XX(106)-JVS(5652)*XX(1412))/(JVS(18020)) - XX(3754) = X(3754)/JVS(18029) - XX(3755) = (X(3755)-JVS(2251)*XX(579))/(JVS(18038)) - XX(3756) = X(3756)/JVS(18048) - XX(3757) = (X(3757)-JVS(16024)*XX(3498))/(JVS(18057)) - XX(3758) = (X(3758)-JVS(1001)*XX(231)-JVS(6982)*XX(1720)-JVS(7869)*XX(1902)-JVS(8925)*XX(2127))/(JVS(18066)) - XX(3759) = (X(3759)-JVS(12142)*XX(2803))/(JVS(18077)) - XX(3760) = (X(3760)-JVS(4656)*XX(1164))/(JVS(18086)) - XX(3761) = (X(3761)-JVS(210)*XX(49)-JVS(4812)*XX(1203))/(JVS(18095)) - XX(3762) = (X(3762)-JVS(1441)*XX(356)-JVS(2830)*XX(716)-JVS(4927)*XX(1231)-JVS(10325)*XX(2446))/(JVS(18102)) - XX(3763) = X(3763)/JVS(18111) - XX(3764) = (X(3764)-JVS(819)*XX(190)-JVS(1122)*XX(266)-JVS(4596)*XX(1149)-JVS(6382)*XX(1590)-JVS(6386)*XX(1591))& - &/(JVS(18119)) - XX(3765) = (X(3765)-JVS(10519)*XX(2488))/(JVS(18126)) - XX(3766) = (X(3766)-JVS(271)*XX(66)-JVS(5644)*XX(1410))/(JVS(18135)) - XX(3767) = (X(3767)-JVS(14913)*XX(3328))/(JVS(18142)) - XX(3768) = (X(3768)-JVS(536)*XX(140)-JVS(5500)*XX(1374))/(JVS(18150)) - XX(3769) = (X(3769)-JVS(266)*XX(65)-JVS(403)*XX(103)-JVS(5995)*XX(1497))/(JVS(18158)) - XX(3770) = (X(3770)-JVS(416)*XX(107)-JVS(1125)*XX(267)-JVS(1502)*XX(373)-JVS(1812)*XX(459))/(JVS(18165)) - XX(3771) = (X(3771)-JVS(240)*XX(57)-JVS(356)*XX(90)-JVS(4246)*XX(1062))/(JVS(18173)) - XX(3772) = (X(3772)-JVS(5556)*XX(1388)-JVS(15604)*XX(3423))/(JVS(18180)) - XX(3773) = X(3773)/JVS(18192) - XX(3774) = (X(3774)-JVS(4490)*XX(1123)-JVS(15288)*XX(3380))/(JVS(18199)) - XX(3775) = X(3775)/JVS(18211) - XX(3776) = (X(3776)-JVS(1752)*XX(444)-JVS(5367)*XX(1341)-JVS(7337)*XX(1792)-JVS(7347)*XX(1794))/(JVS(18221)) - XX(3777) = X(3777)/JVS(18230) - XX(3778) = (X(3778)-JVS(1686)*XX(425)-JVS(6857)*XX(1692)-JVS(9165)*XX(2182)-JVS(9396)*XX(2233))/(JVS(18238)) - XX(3779) = X(3779)/JVS(18246) - XX(3780) = (X(3780)-JVS(3213)*XX(805))/(JVS(18256)) - XX(3781) = (X(3781)-JVS(215)*XX(50)-JVS(5668)*XX(1416))/(JVS(18264)) - XX(3782) = (X(3782)-JVS(313)*XX(78)-JVS(369)*XX(93)-JVS(5744)*XX(1435))/(JVS(18272)) - XX(3783) = X(3783)/JVS(18281) - XX(3784) = (X(3784)-JVS(196)*XX(45)-JVS(4808)*XX(1202))/(JVS(18290)) - XX(3785) = (X(3785)-JVS(454)*XX(117)-JVS(4298)*XX(1075))/(JVS(18298)) - XX(3786) = (X(3786)-JVS(372)*XX(94)-JVS(4092)*XX(1024))/(JVS(18305)) - XX(3787) = X(3787)/JVS(18314) - XX(3788) = (X(3788)-JVS(171)*XX(39)-JVS(6127)*XX(1530)-JVS(7109)*XX(1745))/(JVS(18321)) - XX(3789) = (X(3789)-JVS(584)*XX(151)-JVS(1630)*XX(409)-JVS(4012)*XX(1004)-JVS(9052)*XX(2157)-JVS(14328)*XX(3213))& - &/(JVS(18329)) - XX(3790) = (X(3790)-JVS(1707)*XX(432)-JVS(4522)*XX(1131)-JVS(7500)*XX(1822)-JVS(8711)*XX(2078)-JVS(15022)*XX(3343))& - &/(JVS(18336)) - XX(3791) = (X(3791)-JVS(6232)*XX(1555)-JVS(10579)*XX(2499)-JVS(12078)*XX(2789))/(JVS(18343)) - XX(3792) = X(3792)/JVS(18348) - XX(3793) = X(3793)/JVS(18356) - XX(3794) = (X(3794)-JVS(1182)*XX(283)-JVS(4152)*XX(1039)-JVS(10210)*XX(2418)-JVS(13867)*XX(3122))/(JVS(18366)) - XX(3795) = X(3795)/JVS(18374) - XX(3796) = (X(3796)-JVS(6738)*XX(1664)-JVS(11940)*XX(2762)-JVS(14880)*XX(3320))/(JVS(18381)) - XX(3797) = (X(3797)-JVS(1763)*XX(446)-JVS(4600)*XX(1150)-JVS(8748)*XX(2087)-JVS(8754)*XX(2088)-JVS(14937)*XX(3331))& - &/(JVS(18389)) - XX(3798) = (X(3798)-JVS(114)*XX(22)-JVS(3438)*XX(861)-JVS(7845)*XX(1896)-JVS(8434)*XX(2021))/(JVS(18396)) - XX(3799) = (X(3799)-JVS(6765)*XX(1672)-JVS(10550)*XX(2493)-JVS(14876)*XX(3319))/(JVS(18403)) - XX(3800) = X(3800)/JVS(18411) - XX(3801) = (X(3801)-JVS(8176)*XX(1967)-JVS(14658)*XX(3273)-JVS(14727)*XX(3286)-JVS(14927)*XX(3330))/(JVS(18419)) - XX(3802) = X(3802)/JVS(18428) - XX(3803) = (X(3803)-JVS(1151)*XX(274)-JVS(3820)*XX(956)-JVS(9430)*XX(2241)-JVS(13751)*XX(3103))/(JVS(18434)) - XX(3804) = (X(3804)-JVS(1722)*XX(436)-JVS(4104)*XX(1027)-JVS(10157)*XX(2406)-JVS(14136)*XX(3174))/(JVS(18440)) - XX(3805) = X(3805)/JVS(18448) - XX(3806) = (X(3806)-JVS(5451)*XX(1362)-JVS(12960)*XX(2959)-JVS(13971)*XX(3141))/(JVS(18453)) - XX(3807) = (X(3807)-JVS(1829)*XX(464)-JVS(5263)*XX(1315)-JVS(9778)*XX(2321)-JVS(9784)*XX(2322)-JVS(15196)*XX(3368))& - &/(JVS(18459)) - XX(3808) = (X(3808)-JVS(6893)*XX(1700)-JVS(10912)*XX(2565)-JVS(11077)*XX(2595))/(JVS(18466)) - XX(3809) = X(3809)/JVS(18474) - XX(3810) = (X(3810)-JVS(2835)*XX(717)-JVS(6968)*XX(1716)-JVS(8955)*XX(2134)-JVS(12629)*XX(2900))/(JVS(18485)) - XX(3811) = (X(3811)-JVS(1695)*XX(428)-JVS(4844)*XX(1211)-JVS(8163)*XX(1964)-JVS(13678)*XX(3089))/(JVS(18491)) - XX(3812) = X(3812)/JVS(18499) - XX(3813) = (X(3813)-JVS(6492)*XX(1613)-JVS(10679)*XX(2520)-JVS(13459)*XX(3050))/(JVS(18506)) - XX(3814) = (X(3814)-JVS(3119)*XX(782)-JVS(6744)*XX(1666)-JVS(8563)*XX(2047)-JVS(13933)*XX(3132))/(JVS(18513)) - XX(3815) = (X(3815)-JVS(6971)*XX(1717)-JVS(11640)*XX(2709)-JVS(13336)*XX(3027))/(JVS(18520)) - XX(3816) = X(3816)/JVS(18527) - XX(3817) = (X(3817)-JVS(325)*XX(81)-JVS(2480)*XX(634)-JVS(4800)*XX(1200)-JVS(4864)*XX(1216))/(JVS(18536)) - XX(3818) = X(3818)/JVS(18545) - XX(3819) = (X(3819)-JVS(1968)*XX(505)-JVS(5083)*XX(1270)-JVS(9838)*XX(2333)-JVS(9844)*XX(2334)-JVS(15527)*XX(3412))& - &/(JVS(18551)) - XX(3820) = (X(3820)-JVS(6202)*XX(1549)-JVS(12156)*XX(2806)-JVS(14884)*XX(3321))/(JVS(18558)) - XX(3821) = X(3821)/JVS(18569) - XX(3822) = (X(3822)-JVS(14782)*XX(3298))/(JVS(18581)) - XX(3823) = (X(3823)-JVS(1457)*XX(361)-JVS(5231)*XX(1307)-JVS(10062)*XX(2383)-JVS(15230)*XX(3372))/(JVS(18587)) - XX(3824) = X(3824)/JVS(18595) - XX(3825) = (X(3825)-JVS(6229)*XX(1554)-JVS(10903)*XX(2563)-JVS(14682)*XX(3279))/(JVS(18602)) - XX(3826) = X(3826)/JVS(18611) - XX(3827) = (X(3827)-JVS(7118)*XX(1747)-JVS(10612)*XX(2506)-JVS(14556)*XX(3253))/(JVS(18618)) - XX(3828) = (X(3828)-JVS(6756)*XX(1669)-JVS(11353)*XX(2649)-JVS(12017)*XX(2776))/(JVS(18625)) - XX(3829) = X(3829)/JVS(18632) - XX(3830) = (X(3830)-JVS(2394)*XX(614))/(JVS(18638)) - XX(3831) = (X(3831)-JVS(2206)*XX(568)-JVS(14407)*XX(3230))/(JVS(18644)) - XX(3832) = (X(3832)-JVS(945)*XX(214)-JVS(13938)*XX(3133))/(JVS(18648)) - XX(3833) = X(3833)/JVS(18653) - XX(3834) = X(3834)/JVS(18658) - XX(3835) = (X(3835)-JVS(14034)*XX(3154)-JVS(17001)*XX(3628))/(JVS(18662)) - XX(3836) = (X(3836)-JVS(2243)*XX(577)-JVS(4708)*XX(1177)-JVS(10360)*XX(2453)-JVS(11260)*XX(2634))/(JVS(18667)) - XX(3837) = (X(3837)-JVS(10928)*XX(2568)-JVS(14342)*XX(3215)-JVS(14347)*XX(3216))/(JVS(18674)) - XX(3838) = (X(3838)-JVS(3086)*XX(775)-JVS(8264)*XX(1985))/(JVS(18684)) - XX(3839) = (X(3839)-JVS(3542)*XX(887)-JVS(14987)*XX(3338))/(JVS(18692)) - XX(3840) = (X(3840)-JVS(1285)*XX(311)-JVS(4282)*XX(1071)-JVS(10561)*XX(2495))/(JVS(18699)) - XX(3841) = (X(3841)-JVS(721)*XX(173)-JVS(1372)*XX(334)-JVS(5315)*XX(1328)-JVS(10317)*XX(2444))/(JVS(18707)) - XX(3842) = (X(3842)-JVS(15263)*XX(3376))/(JVS(18714)) - XX(3843) = X(3843)/JVS(18724) - XX(3844) = (X(3844)-JVS(2648)*XX(673)-JVS(7690)*XX(1862)-JVS(9631)*XX(2288))/(JVS(18731)) - XX(3845) = (X(3845)-JVS(1658)*XX(418)-JVS(3764)*XX(942)-JVS(8607)*XX(2056)-JVS(10739)*XX(2532)-JVS(17997)*XX(3750))& - &/(JVS(18741)) - XX(3846) = (X(3846)-JVS(3446)*XX(863)-JVS(11563)*XX(2694))/(JVS(18751)) - XX(3847) = (X(3847)-JVS(6901)*XX(1702)-JVS(9861)*XX(2338)-JVS(10405)*XX(2463))/(JVS(18758)) - XX(3848) = (X(3848)-JVS(2717)*XX(690)-JVS(4182)*XX(1046)-JVS(7921)*XX(1912)-JVS(12801)*XX(2931))/(JVS(18765)) - XX(3849) = X(3849)/JVS(18778) - XX(3850) = (X(3850)-JVS(2162)*XX(556)-JVS(5487)*XX(1371)-JVS(7564)*XX(1835)-JVS(13188)*XX(2997))/(JVS(18788)) - XX(3851) = X(3851)/JVS(18797) - XX(3852) = (X(3852)-JVS(1378)*XX(336)-JVS(3610)*XX(904)-JVS(6442)*XX(1604)-JVS(9671)*XX(2296)-JVS(15425)*XX(3398)& - &-JVS(17740)*XX(3720))/(JVS(18803)) - XX(3853) = (X(3853)-JVS(1422)*XX(350)-JVS(4080)*XX(1021)-JVS(10685)*XX(2521))/(JVS(18810)) - XX(3854) = (X(3854)-JVS(6734)*XX(1663)-JVS(9503)*XX(2259)-JVS(10648)*XX(2513)-JVS(13398)*XX(3038))/(JVS(18820)) - XX(3855) = (X(3855)-JVS(1444)*XX(357)-JVS(4306)*XX(1077)-JVS(9700)*XX(2303)-JVS(9706)*XX(2304)-JVS(11699)*XX(2719)& - &-JVS(14424)*XX(3233))/(JVS(18829)) - XX(3856) = X(3856)/JVS(18838) - XX(3857) = X(3857)/JVS(18847) - XX(3858) = (X(3858)-JVS(837)*XX(193)-JVS(1592)*XX(399)-JVS(3510)*XX(879)-JVS(9818)*XX(2328)-JVS(17546)*XX(3694))& - &/(JVS(18855)) - XX(3859) = (X(3859)-JVS(6562)*XX(1627)-JVS(9504)*XX(2259)-JVS(11253)*XX(2633)-JVS(11662)*XX(2713))/(JVS(18863)) - XX(3860) = (X(3860)-JVS(3558)*XX(891)-JVS(12615)*XX(2897))/(JVS(18872)) - XX(3861) = X(3861)/JVS(18881) - XX(3862) = X(3862)/JVS(18889) - XX(3863) = (X(3863)-JVS(2976)*XX(748)-JVS(4230)*XX(1058)-JVS(6087)*XX(1520)-JVS(6347)*XX(1581)-JVS(10347)*XX(2451))& - &/(JVS(18896)) - XX(3864) = (X(3864)-JVS(2530)*XX(645)-JVS(9636)*XX(2289))/(JVS(18905)) - XX(3865) = (X(3865)-JVS(5227)*XX(1306)-JVS(12234)*XX(2821))/(JVS(18912)) - XX(3866) = (X(3866)-JVS(1351)*XX(328)-JVS(4962)*XX(1240))/(JVS(18919)) - XX(3867) = (X(3867)-JVS(2502)*XX(639)-JVS(6088)*XX(1520)-JVS(6348)*XX(1581)-JVS(7917)*XX(1911)-JVS(7935)*XX(1915))& - &/(JVS(18925)) - XX(3868) = X(3868)/JVS(18936) - XX(3869) = (X(3869)-JVS(1718)*XX(435)-JVS(6271)*XX(1564)-JVS(10793)*XX(2543)-JVS(11369)*XX(2653))/(JVS(18946)) - XX(3870) = (X(3870)-JVS(4660)*XX(1165)-JVS(6091)*XX(1521)-JVS(7161)*XX(1755)-JVS(10628)*XX(2509))/(JVS(18955)) - XX(3871) = (X(3871)-JVS(2218)*XX(571)-JVS(8785)*XX(2095))/(JVS(18965)) - XX(3872) = (X(3872)-JVS(2130)*XX(549)-JVS(4604)*XX(1151)-JVS(5540)*XX(1384)-JVS(6917)*XX(1706)-JVS(10161)*XX(2407))& - &/(JVS(18972)) - XX(3873) = (X(3873)-JVS(1908)*XX(488)-JVS(6988)*XX(1721)-JVS(12011)*XX(2775)-JVS(12821)*XX(2934))/(JVS(18980)) - XX(3874) = (X(3874)-JVS(6183)*XX(1544)-JVS(15509)*XX(3410))/(JVS(18989)) - XX(3875) = X(3875)/JVS(18998) - XX(3876) = (X(3876)-JVS(2283)*XX(587)-JVS(6075)*XX(1517)-JVS(12981)*XX(2962))/(JVS(19005)) - XX(3877) = X(3877)/JVS(19015) - XX(3878) = (X(3878)-JVS(15432)*XX(3399))/(JVS(19022)) - XX(3879) = X(3879)/JVS(19033) - XX(3880) = (X(3880)-JVS(2231)*XX(574)-JVS(9268)*XX(2205))/(JVS(19043)) - XX(3881) = (X(3881)-JVS(3156)*XX(791)-JVS(8460)*XX(2027))/(JVS(19053)) - XX(3882) = (X(3882)-JVS(1229)*XX(296)-JVS(6027)*XX(1505)-JVS(9363)*XX(2226)-JVS(12407)*XX(2855)-JVS(12415)*XX(2856)& - &-JVS(14425)*XX(3233))/(JVS(19062)) - XX(3883) = (X(3883)-JVS(2623)*XX(667)-JVS(5259)*XX(1314)-JVS(7947)*XX(1918)-JVS(13403)*XX(3039))/(JVS(19069)) - XX(3884) = (X(3884)-JVS(7010)*XX(1725)-JVS(7776)*XX(1880)-JVS(8834)*XX(2106))/(JVS(19076)) - XX(3885) = (X(3885)-JVS(2120)*XX(546)-JVS(6506)*XX(1616)-JVS(11934)*XX(2761)-JVS(12488)*XX(2871))/(JVS(19084)) - XX(3886) = (X(3886)-JVS(490)*XX(127)-JVS(4732)*XX(1183)-JVS(9803)*XX(2325)-JVS(11851)*XX(2746))/(JVS(19091)) - XX(3887) = (X(3887)-JVS(15670)*XX(3432))/(JVS(19098)) - XX(3888) = (X(3888)-JVS(2247)*XX(578)-JVS(4318)*XX(1080)-JVS(10456)*XX(2473))/(JVS(19107)) - XX(3889) = (X(3889)-JVS(6063)*XX(1514)-JVS(6864)*XX(1694)-JVS(6956)*XX(1714))/(JVS(19115)) - XX(3890) = (X(3890)-JVS(1991)*XX(511)-JVS(3704)*XX(927)-JVS(8144)*XX(1961)-JVS(12674)*XX(2908)-JVS(12684)*XX(2909))& - &/(JVS(19124)) - XX(3891) = (X(3891)-JVS(3180)*XX(797)-JVS(9156)*XX(2180)-JVS(9173)*XX(2184))/(JVS(19131)) - XX(3892) = X(3892)/JVS(19139) - XX(3893) = (X(3893)-JVS(4716)*XX(1179)-JVS(6749)*XX(1667)-JVS(10675)*XX(2519)-JVS(12057)*XX(2785))/(JVS(19147)) - XX(3894) = (X(3894)-JVS(262)*XX(64)-JVS(5880)*XX(1469)-JVS(7312)*XX(1788)-JVS(7319)*XX(1789))/(JVS(19155)) - XX(3895) = (X(3895)-JVS(2107)*XX(543)-JVS(3880)*XX(971)-JVS(12723)*XX(2916))/(JVS(19162)) - XX(3896) = X(3896)/JVS(19173) - XX(3897) = (X(3897)-JVS(2816)*XX(713)-JVS(7553)*XX(1833))/(JVS(19180)) - XX(3898) = (X(3898)-JVS(2599)*XX(661)-JVS(3518)*XX(881)-JVS(9434)*XX(2242)-JVS(12974)*XX(2961))/(JVS(19187)) - XX(3899) = (X(3899)-JVS(9590)*XX(2279)-JVS(10862)*XX(2556))/(JVS(19195)) - XX(3900) = X(3900)/JVS(19204) - XX(3901) = (X(3901)-JVS(633)*XX(159)-JVS(1823)*XX(462)-JVS(3792)*XX(949)-JVS(8715)*XX(2079)-JVS(12685)*XX(2909)& - &-JVS(19125)*XX(3890))/(JVS(19213)) - XX(3902) = (X(3902)-JVS(959)*XX(218)-JVS(5183)*XX(1295)-JVS(8001)*XX(1930)-JVS(8007)*XX(1931)-JVS(13003)*XX(2965))& - &/(JVS(19221)) - XX(3903) = (X(3903)-JVS(10431)*XX(2468)-JVS(12121)*XX(2798)-JVS(12126)*XX(2799))/(JVS(19228)) - XX(3904) = (X(3904)-JVS(15102)*XX(3354))/(JVS(19235)) - XX(3905) = (X(3905)-JVS(2100)*XX(541)-JVS(10230)*XX(2423)-JVS(18087)*XX(3760))/(JVS(19245)) - XX(3906) = X(3906)/JVS(19253) - XX(3907) = (X(3907)-JVS(5954)*XX(1487)-JVS(14965)*XX(3335))/(JVS(19260)) - XX(3908) = (X(3908)-JVS(893)*XX(203)-JVS(1885)*XX(481)-JVS(5856)*XX(1463)-JVS(9352)*XX(2224))/(JVS(19267)) - XX(3909) = (X(3909)-JVS(7414)*XX(1807))/(JVS(19274)) - XX(3910) = (X(3910)-JVS(15005)*XX(3341))/(JVS(19281)) - XX(3911) = X(3911)/JVS(19292) - XX(3912) = (X(3912)-JVS(2321)*XX(596)-JVS(8032)*XX(1937))/(JVS(19302)) - XX(3913) = (X(3913)-JVS(14531)*XX(3248))/(JVS(19310)) - XX(3914) = X(3914)/JVS(19321) - XX(3915) = X(3915)/JVS(19332) - XX(3916) = (X(3916)-JVS(2047)*XX(528)-JVS(10177)*XX(2411))/(JVS(19342)) - XX(3917) = (X(3917)-JVS(2344)*XX(602))/(JVS(19353)) - XX(3918) = X(3918)/JVS(19366) - XX(3919) = (X(3919)-JVS(3091)*XX(776)-JVS(9680)*XX(2298))/(JVS(19378)) - XX(3920) = (X(3920)-JVS(2892)*XX(730)-JVS(4222)*XX(1056)-JVS(5339)*XX(1334)-JVS(7074)*XX(1738)-JVS(8798)*XX(2098))& - &/(JVS(19385)) - XX(3921) = (X(3921)-JVS(3124)*XX(783)-JVS(4140)*XX(1036)-JVS(6278)*XX(1565)-JVS(8823)*XX(2103)-JVS(9160)*XX(2181))& - &/(JVS(19392)) - XX(3922) = (X(3922)-JVS(15503)*XX(3409))/(JVS(19399)) - XX(3923) = X(3923)/JVS(19409) - XX(3924) = X(3924)/JVS(19419) - XX(3925) = (X(3925)-JVS(15068)*XX(3349))/(JVS(19426)) - XX(3926) = (X(3926)-JVS(4848)*XX(1212)-JVS(9201)*XX(2190))/(JVS(19436)) - XX(3927) = (X(3927)-JVS(2851)*XX(721)-JVS(5541)*XX(1384)-JVS(6918)*XX(1706)-JVS(8204)*XX(1973)-JVS(8311)*XX(1995))& - &/(JVS(19442)) - XX(3928) = (X(3928)-JVS(2725)*XX(692)-JVS(6015)*XX(1502)-JVS(12292)*XX(2832))/(JVS(19449)) - XX(3929) = X(3929)/JVS(19458) - XX(3930) = X(3930)/JVS(19467) - XX(3931) = (X(3931)-JVS(19468)*XX(3930))/(JVS(19477)) - XX(3932) = (X(3932)-JVS(3318)*XX(831)-JVS(4717)*XX(1179)-JVS(9119)*XX(2172)-JVS(9125)*XX(2173))/(JVS(19486)) - XX(3933) = X(3933)/JVS(19493) - XX(3934) = (X(3934)-JVS(14802)*XX(3302))/(JVS(19502)) - XX(3935) = X(3935)/JVS(19511) - XX(3936) = (X(3936)-JVS(3129)*XX(784)-JVS(4141)*XX(1036)-JVS(6279)*XX(1565)-JVS(8442)*XX(2023)-JVS(8617)*XX(2058))& - &/(JVS(19517)) - XX(3937) = (X(3937)-JVS(5207)*XX(1301)-JVS(12741)*XX(2919))/(JVS(19525)) - XX(3938) = X(3938)/JVS(19533) - XX(3939) = (X(3939)-JVS(233)*XX(55)-JVS(5756)*XX(1438)-JVS(10803)*XX(2545))/(JVS(19540)) - XX(3940) = (X(3940)-JVS(2484)*XX(635)-JVS(7936)*XX(1915)-JVS(8649)*XX(2065))/(JVS(19547)) - XX(3941) = (X(3941)-JVS(2071)*XX(534)-JVS(8413)*XX(2016))/(JVS(19557)) - XX(3942) = (X(3942)-JVS(13609)*XX(3077))/(JVS(19564)) - XX(3943) = (X(3943)-JVS(2635)*XX(670)-JVS(7605)*XX(1844)-JVS(8443)*XX(2023))/(JVS(19571)) - XX(3944) = (X(3944)-JVS(6681)*XX(1653)-JVS(6686)*XX(1654)-JVS(9442)*XX(2244))/(JVS(19578)) - XX(3945) = (X(3945)-JVS(3247)*XX(814)-JVS(9515)*XX(2262)-JVS(17790)*XX(3726))/(JVS(19585)) - XX(3946) = X(3946)/JVS(19596) - XX(3947) = X(3947)/JVS(19606) - XX(3948) = (X(3948)-JVS(6606)*XX(1637)-JVS(6787)*XX(1677)-JVS(10241)*XX(2426))/(JVS(19614)) - XX(3949) = (X(3949)-JVS(2602)*XX(662)-JVS(3932)*XX(984)-JVS(11876)*XX(2750))/(JVS(19621)) - XX(3950) = (X(3950)-JVS(3165)*XX(793)-JVS(5091)*XX(1272)-JVS(8371)*XX(2007)-JVS(10886)*XX(2561))/(JVS(19628)) - XX(3951) = (X(3951)-JVS(436)*XX(113)-JVS(942)*XX(213)-JVS(5335)*XX(1333)-JVS(13004)*XX(2965)-JVS(19222)*XX(3902))& - &/(JVS(19637)) - XX(3952) = (X(3952)-JVS(807)*XX(188)-JVS(1955)*XX(501)-JVS(6151)*XX(1536)-JVS(7813)*XX(1889))/(JVS(19644)) - XX(3953) = (X(3953)-JVS(3892)*XX(974)-JVS(13343)*XX(3028))/(JVS(19652)) - XX(3954) = (X(3954)-JVS(2643)*XX(672)-JVS(9951)*XX(2360))/(JVS(19661)) - XX(3955) = (X(3955)-JVS(1435)*XX(354)-JVS(5415)*XX(1353)-JVS(10354)*XX(2452)-JVS(11826)*XX(2742)-JVS(17340)*XX(3668))& - &/(JVS(19670)) - XX(3956) = (X(3956)-JVS(15569)*XX(3418))/(JVS(19677)) - XX(3957) = (X(3957)-JVS(15249)*XX(3374))/(JVS(19686)) - XX(3958) = X(3958)/JVS(19695) - XX(3959) = X(3959)/JVS(19706) - XX(3960) = X(3960)/JVS(19715) - XX(3961) = (X(3961)-JVS(6092)*XX(1521)-JVS(6265)*XX(1563)-JVS(12306)*XX(2835)-JVS(13437)*XX(3046))/(JVS(19723)) - XX(3962) = (X(3962)-JVS(651)*XX(162)-JVS(1282)*XX(310)-JVS(4540)*XX(1135)-JVS(9917)*XX(2352))/(JVS(19730)) - XX(3963) = (X(3963)-JVS(2437)*XX(624)-JVS(4000)*XX(1001)-JVS(7061)*XX(1736)-JVS(9065)*XX(2160)-JVS(9174)*XX(2184))& - &/(JVS(19736)) - XX(3964) = (X(3964)-JVS(6067)*XX(1515)-JVS(12426)*XX(2858))/(JVS(19745)) - XX(3965) = (X(3965)-JVS(16497)*XX(3566))/(JVS(19754)) - XX(3966) = (X(3966)-JVS(2606)*XX(663)-JVS(4223)*XX(1056)-JVS(7075)*XX(1738)-JVS(9532)*XX(2266)-JVS(9632)*XX(2288))& - &/(JVS(19760)) - XX(3967) = (X(3967)-JVS(1719)*XX(435)-JVS(6031)*XX(1506)-JVS(7367)*XX(1798)-JVS(7373)*XX(1799))/(JVS(19769)) - XX(3968) = X(3968)/JVS(19778) - XX(3969) = (X(3969)-JVS(2548)*XX(649)-JVS(8292)*XX(1990)-JVS(8312)*XX(1995))/(JVS(19785)) - XX(3970) = (X(3970)-JVS(15164)*XX(3364))/(JVS(19792)) - XX(3971) = (X(3971)-JVS(2535)*XX(646)-JVS(3614)*XX(905)-JVS(4001)*XX(1001)-JVS(7062)*XX(1736)-JVS(9148)*XX(2178))& - &/(JVS(19799)) - XX(3972) = X(3972)/JVS(19807) - XX(3973) = (X(3973)-JVS(4680)*XX(1170)-JVS(10995)*XX(2581))/(JVS(19815)) - XX(3974) = (X(3974)-JVS(2552)*XX(650)-JVS(5528)*XX(1381)-JVS(7214)*XX(1766)-JVS(11049)*XX(2591))/(JVS(19822)) - XX(3975) = (X(3975)-JVS(1111)*XX(263)-JVS(5383)*XX(1345)-JVS(13016)*XX(2967))/(JVS(19830)) - XX(3976) = (X(3976)-JVS(3172)*XX(795)-JVS(9901)*XX(2348))/(JVS(19838)) - XX(3977) = (X(3977)-JVS(2092)*XX(539)-JVS(9758)*XX(2316))/(JVS(19848)) - XX(3978) = X(3978)/JVS(19859) - XX(3979) = (X(3979)-JVS(5724)*XX(1430)-JVS(13478)*XX(3054))/(JVS(19870)) - XX(3980) = (X(3980)-JVS(3486)*XX(873)-JVS(12302)*XX(2834)-JVS(13447)*XX(3048))/(JVS(19877)) - XX(3981) = (X(3981)-JVS(317)*XX(79)-JVS(5067)*XX(1266)-JVS(9279)*XX(2207)-JVS(12873)*XX(2943)-JVS(17629)*XX(3706))& - &/(JVS(19887)) - XX(3982) = (X(3982)-JVS(134)*XX(28)-JVS(1078)*XX(254)-JVS(5884)*XX(1470)-JVS(13376)*XX(3034)-JVS(19888)*XX(3981))& - &/(JVS(19894)) - XX(3983) = (X(3983)-JVS(365)*XX(92)-JVS(1983)*XX(509)-JVS(1988)*XX(510)-JVS(5439)*XX(1359))/(JVS(19901)) - XX(3984) = (X(3984)-JVS(2406)*XX(617)-JVS(9323)*XX(2217))/(JVS(19909)) - XX(3985) = (X(3985)-JVS(1308)*XX(317)-JVS(4044)*XX(1012)-JVS(10040)*XX(2378)-JVS(10642)*XX(2512))/(JVS(19916)) - XX(3986) = X(3986)/JVS(19927) - XX(3987) = (X(3987)-JVS(5512)*XX(1377)-JVS(13581)*XX(3072))/(JVS(19934)) - XX(3988) = (X(3988)-JVS(2425)*XX(621)-JVS(3534)*XX(885)-JVS(13595)*XX(3074))/(JVS(19941)) - XX(3989) = (X(3989)-JVS(1909)*XX(488)-JVS(5363)*XX(1340)-JVS(7578)*XX(1838)-JVS(10858)*XX(2555))/(JVS(19950)) - XX(3990) = (X(3990)-JVS(2080)*XX(536)-JVS(7177)*XX(1758)-JVS(9897)*XX(2347)-JVS(11835)*XX(2744)-JVS(17073)*XX(3638))& - &/(JVS(19956)) - XX(3991) = X(3991)/JVS(19965) - XX(3992) = (X(3992)-JVS(9003)*XX(2145)-JVS(12115)*XX(2797))/(JVS(19974)) - XX(3993) = X(3993)/JVS(19983) - XX(3994) = (X(3994)-JVS(2096)*XX(540)-JVS(5876)*XX(1468)-JVS(7885)*XX(1905)-JVS(10622)*XX(2508))/(JVS(19992)) - XX(3995) = X(3995)/JVS(20002) - XX(3996) = (X(3996)-JVS(13939)*XX(3133))/(JVS(20009)) - XX(3997) = (X(3997)-JVS(3282)*XX(822))/(JVS(20014)) - XX(3998) = (X(3998)-JVS(3622)*XX(907)-JVS(12951)*XX(2957))/(JVS(20025)) - XX(3999) = (X(3999)-JVS(4362)*XX(1091))/(JVS(20033)) - XX(4000) = (X(4000)-JVS(9357)*XX(2225)-JVS(14816)*XX(3305))/(JVS(20045)) - XX(4001) = (X(4001)-JVS(3410)*XX(854))/(JVS(20053)) - XX(4002) = (X(4002)-JVS(5688)*XX(1421))/(JVS(20061)) - XX(4003) = (X(4003)-JVS(1216)*XX(292)-JVS(5107)*XX(1276)-JVS(9762)*XX(2317)-JVS(16759)*XX(3599))/(JVS(20069)) - XX(4004) = X(4004)/JVS(20077) - XX(4005) = (X(4005)-JVS(8819)*XX(2102)-JVS(15786)*XX(3456))/(JVS(20087)) - XX(4006) = (X(4006)-JVS(3908)*XX(978))/(JVS(20095)) - XX(4007) = (X(4007)-JVS(4008)*XX(1003))/(JVS(20103)) - XX(4008) = (X(4008)-JVS(3366)*XX(843))/(JVS(20111)) - XX(4009) = (X(4009)-JVS(3768)*XX(943))/(JVS(20119)) - XX(4010) = X(4010)/JVS(20127) - XX(4011) = (X(4011)-JVS(3562)*XX(892))/(JVS(20132)) - XX(4012) = (X(4012)-JVS(9098)*XX(2167)-JVS(18159)*XX(3769))/(JVS(20145)) - XX(4013) = (X(4013)-JVS(11245)*XX(2631)-JVS(12321)*XX(2838))/(JVS(20157)) - XX(4014) = X(4014)/JVS(20173) - XX(4015) = (X(4015)-JVS(191)*XX(44)-JVS(5119)*XX(1279))/(JVS(20182)) - XX(4016) = (X(4016)-JVS(4752)*XX(1188))/(JVS(20190)) - XX(4017) = (X(4017)-JVS(14198)*XX(3186))/(JVS(20198)) - XX(4018) = (X(4018)-JVS(14199)*XX(3186))/(JVS(20203)) - XX(4019) = (X(4019)-JVS(1128)*XX(268)-JVS(3788)*XX(948)-JVS(8048)*XX(1941)-JVS(8054)*XX(1942))/(JVS(20209)) - XX(4020) = (X(4020)-JVS(5908)*XX(1476))/(JVS(20217)) - XX(4021) = (X(4021)-JVS(5235)*XX(1308))/(JVS(20225)) - XX(4022) = (X(4022)-JVS(4920)*XX(1230))/(JVS(20233)) - XX(4023) = (X(4023)-JVS(5447)*XX(1361))/(JVS(20241)) - XX(4024) = (X(4024)-JVS(10520)*XX(2488))/(JVS(20250)) - XX(4025) = (X(4025)-JVS(2158)*XX(555)-JVS(8769)*XX(2091)-JVS(16728)*XX(3595))/(JVS(20260)) - XX(4026) = (X(4026)-JVS(11365)*XX(2652)-JVS(13194)*XX(2998))/(JVS(20269)) - XX(4027) = X(4027)/JVS(20276) - XX(4028) = (X(4028)-JVS(518)*XX(135)-JVS(5808)*XX(1451)-JVS(15692)*XX(3435))/(JVS(20282)) - XX(4029) = (X(4029)-JVS(10444)*XX(2471))/(JVS(20289)) - XX(4030) = (X(4030)-JVS(1447)*XX(358)-JVS(3142)*XX(787)-JVS(9264)*XX(2204)-JVS(9667)*XX(2295))/(JVS(20298)) - XX(4031) = (X(4031)-JVS(5175)*XX(1293)-JVS(11917)*XX(2758))/(JVS(20306)) - XX(4032) = X(4032)/JVS(20312) - XX(4033) = (X(4033)-JVS(4974)*XX(1243))/(JVS(20317)) - XX(4034) = (X(4034)-JVS(4242)*XX(1061))/(JVS(20325)) - XX(4035) = (X(4035)-JVS(3370)*XX(844))/(JVS(20333)) - XX(4036) = (X(4036)-JVS(4884)*XX(1221))/(JVS(20341)) - XX(4037) = (X(4037)-JVS(4908)*XX(1227))/(JVS(20349)) - XX(4038) = (X(4038)-JVS(6641)*XX(1645)-JVS(15326)*XX(3385))/(JVS(20360)) - XX(4039) = (X(4039)-JVS(5467)*XX(1366))/(JVS(20368)) - XX(4040) = (X(4040)-JVS(5812)*XX(1452))/(JVS(20376)) - XX(4041) = (X(4041)-JVS(10045)*XX(2379)-JVS(15871)*XX(3474))/(JVS(20388)) - XX(4042) = (X(4042)-JVS(379)*XX(96)-JVS(5592)*XX(1397))/(JVS(20402)) - XX(4043) = (X(4043)-JVS(572)*XX(149)-JVS(1838)*XX(467)-JVS(3314)*XX(830)-JVS(6698)*XX(1656)-JVS(6702)*XX(1657))& - &/(JVS(20411)) - XX(4044) = (X(4044)-JVS(3796)*XX(950))/(JVS(20419)) - XX(4045) = (X(4045)-JVS(7404)*XX(1805)-JVS(17391)*XX(3675))/(JVS(20432)) - XX(4046) = (X(4046)-JVS(10785)*XX(2541)-JVS(11953)*XX(2765))/(JVS(20444)) - XX(4047) = X(4047)/JVS(20455) - XX(4048) = X(4048)/JVS(20466) - XX(4049) = (X(4049)-JVS(5720)*XX(1429))/(JVS(20477)) - XX(4050) = (X(4050)-JVS(9922)*XX(2353)-JVS(15812)*XX(3461))/(JVS(20487)) - XX(4051) = (X(4051)-JVS(4302)*XX(1076)-JVS(14806)*XX(3303)-JVS(15813)*XX(3461)-JVS(20488)*XX(4050))/(JVS(20503)) - XX(4052) = (X(4052)-JVS(3804)*XX(952))/(JVS(20514)) - XX(4053) = (X(4053)-JVS(12143)*XX(2803))/(JVS(20524)) - XX(4054) = (X(4054)-JVS(4064)*XX(1017))/(JVS(20532)) - XX(4055) = (X(4055)-JVS(2031)*XX(523)-JVS(5243)*XX(1310)-JVS(10006)*XX(2372)-JVS(13639)*XX(3082)-JVS(14945)*XX(3332))& - &/(JVS(20540)) - XX(4056) = X(4056)/JVS(20546) - XX(4057) = (X(4057)-JVS(5179)*XX(1294))/(JVS(20551)) - XX(4058) = (X(4058)-JVS(1410)*XX(346)-JVS(6219)*XX(1552)-JVS(7897)*XX(1907)-JVS(10214)*XX(2419))/(JVS(20561)) - XX(4059) = (X(4059)-JVS(1832)*XX(465)-JVS(4502)*XX(1126)-JVS(8679)*XX(2072)-JVS(8685)*XX(2073))/(JVS(20570)) - XX(4060) = (X(4060)-JVS(1316)*XX(319)-JVS(9048)*XX(2156)-JVS(10397)*XX(2461)-JVS(15030)*XX(3344)-JVS(16982)*XX(3626))& - &/(JVS(20583)) - XX(4061) = (X(4061)-JVS(3422)*XX(857))/(JVS(20591)) - XX(4062) = (X(4062)-JVS(10445)*XX(2471))/(JVS(20600)) - XX(4063) = (X(4063)-JVS(5215)*XX(1303))/(JVS(20608)) - XX(4064) = (X(4064)-JVS(5804)*XX(1450))/(JVS(20616)) - XX(4065) = (X(4065)-JVS(6163)*XX(1539))/(JVS(20624)) - XX(4066) = (X(4066)-JVS(6435)*XX(1603)-JVS(8296)*XX(1991))/(JVS(20631)) - XX(4067) = (X(4067)-JVS(5712)*XX(1427))/(JVS(20637)) - XX(4068) = (X(4068)-JVS(353)*XX(89)-JVS(5728)*XX(1431)-JVS(15708)*XX(3439)-JVS(15715)*XX(3440))/(JVS(20646)) - XX(4069) = (X(4069)-JVS(1601)*XX(402)-JVS(3076)*XX(773)-JVS(7588)*XX(1840)-JVS(16338)*XX(3543))/(JVS(20655)) - XX(4070) = (X(4070)-JVS(3198)*XX(801)-JVS(7055)*XX(1735)-JVS(7364)*XX(1797)-JVS(11543)*XX(2690)-JVS(13934)*XX(3132))& - &/(JVS(20662)) - XX(4071) = (X(4071)-JVS(10446)*XX(2471))/(JVS(20668)) - XX(4072) = (X(4072)-JVS(5816)*XX(1453))/(JVS(20676)) - XX(4073) = (X(4073)-JVS(4608)*XX(1152))/(JVS(20684)) - XX(4074) = (X(4074)-JVS(230)*XX(54)-JVS(6147)*XX(1535)-JVS(15737)*XX(3445))/(JVS(20693)) - XX(4075) = (X(4075)-JVS(5680)*XX(1419))/(JVS(20699)) - XX(4076) = (X(4076)-JVS(2966)*XX(746)-JVS(9913)*XX(2351)-JVS(17839)*XX(3732))/(JVS(20709)) - XX(4077) = (X(4077)-JVS(349)*XX(88)-JVS(1413)*XX(347)-JVS(2308)*XX(593)-JVS(2311)*XX(594))/(JVS(20717)) - XX(4078) = (X(4078)-JVS(603)*XX(154)-JVS(1404)*XX(344)-JVS(2917)*XX(735)-JVS(2920)*XX(736)-JVS(4226)*XX(1057))& - &/(JVS(20726)) - XX(4079) = (X(4079)-JVS(4498)*XX(1125))/(JVS(20734)) - XX(4080) = X(4080)/JVS(20742) - XX(4081) = X(4081)/JVS(20748) - XX(4082) = (X(4082)-JVS(4624)*XX(1156))/(JVS(20756)) - XX(4083) = X(4083)/JVS(20764) - XX(4084) = X(4084)/JVS(20773) - XX(4085) = (X(4085)-JVS(3402)*XX(852))/(JVS(20781)) - XX(4086) = (X(4086)-JVS(10447)*XX(2471))/(JVS(20790)) - XX(4087) = (X(4087)-JVS(5784)*XX(1445)-JVS(7613)*XX(1846)-JVS(7619)*XX(1847))/(JVS(20798)) - XX(4088) = (X(4088)-JVS(801)*XX(187)-JVS(1056)*XX(248)-JVS(5147)*XX(1286)-JVS(6570)*XX(1628)-JVS(6574)*XX(1629))& - &/(JVS(20807)) - XX(4089) = (X(4089)-JVS(2007)*XX(516)-JVS(4234)*XX(1059)-JVS(9797)*XX(2324)-JVS(10401)*XX(2462)-JVS(10488)*XX(2480))& - &/(JVS(20818)) - XX(4090) = (X(4090)-JVS(406)*XX(104)-JVS(3644)*XX(912)-JVS(8215)*XX(1975)-JVS(12564)*XX(2888)-JVS(20819)*XX(4089))& - &/(JVS(20826)) - XX(4091) = (X(4091)-JVS(375)*XX(95)-JVS(4966)*XX(1241)-JVS(10196)*XX(2415)-JVS(11225)*XX(2626)-JVS(20820)*XX(4089))& - &/(JVS(20833)) - XX(4092) = (X(4092)-JVS(120)*XX(24)-JVS(4588)*XX(1147)-JVS(5247)*XX(1311)-JVS(6305)*XX(1572))/(JVS(20846)) - XX(4093) = (X(4093)-JVS(14312)*XX(3210))/(JVS(20854)) - XX(4094) = (X(4094)-JVS(9015)*XX(2148))/(JVS(20859)) - XX(4095) = (X(4095)-JVS(2377)*XX(610)-JVS(11190)*XX(2618))/(JVS(20864)) - XX(4096) = (X(4096)-JVS(2170)*XX(558)-JVS(15907)*XX(3479))/(JVS(20870)) - XX(4097) = (X(4097)-JVS(3582)*XX(897)-JVS(9882)*XX(2343)-JVS(13354)*XX(3030))/(JVS(20876)) - XX(4098) = (X(4098)-JVS(1701)*XX(430)-JVS(4724)*XX(1181)-JVS(7169)*XX(1756)-JVS(12577)*XX(2890))/(JVS(20886)) - XX(4099) = (X(4099)-JVS(152)*XX(34)-JVS(1758)*XX(445)-JVS(4828)*XX(1207)-JVS(10747)*XX(2534))/(JVS(20894)) - XX(4100) = (X(4100)-JVS(1393)*XX(341)-JVS(4004)*XX(1002)-JVS(14402)*XX(3229)-JVS(15787)*XX(3456)-JVS(20088)*XX(4005))& - &/(JVS(20903)) - XX(4101) = (X(4101)-JVS(5708)*XX(1426)-JVS(15438)*XX(3400))/(JVS(20914)) - XX(4102) = (X(4102)-JVS(8246)*XX(1982)-JVS(12633)*XX(2901))/(JVS(20924)) - XX(4103) = (X(4103)-JVS(3207)*XX(803))/(JVS(20935)) - XX(4104) = X(4104)/JVS(20948) - XX(4105) = (X(4105)-JVS(2370)*XX(608)-JVS(6237)*XX(1556)-JVS(9489)*XX(2255)-JVS(14747)*XX(3291))/(JVS(20960)) - XX(4106) = (X(4106)-JVS(14583)*XX(3259)-JVS(14691)*XX(3281))/(JVS(20967)) - XX(4107) = (X(4107)-JVS(841)*XX(194)-JVS(1564)*XX(391)-JVS(15853)*XX(3470))/(JVS(20973)) - XX(4108) = (X(4108)-JVS(13155)*XX(2992))/(JVS(20979)) - XX(4109) = X(4109)/JVS(20992) - XX(4110) = X(4110)/JVS(21006) - XX(4111) = (X(4111)-JVS(3358)*XX(841)-JVS(4214)*XX(1054)-JVS(4688)*XX(1172)-JVS(11988)*XX(2771))/(JVS(21012)) - XX(4112) = (X(4112)-JVS(5155)*XX(1288)-JVS(8519)*XX(2037)-JVS(10592)*XX(2502))/(JVS(21019)) - XX(4113) = (X(4113)-JVS(2668)*XX(678)-JVS(6720)*XX(1661)-JVS(15776)*XX(3454))/(JVS(21025)) - XX(4114) = (X(4114)-JVS(78)*XX(11))/(JVS(21032)) - XX(4115) = (X(4115)-JVS(3426)*XX(858)-JVS(13518)*XX(3062))/(JVS(21040)) - XX(4116) = (X(4116)-JVS(2111)*XX(544)-JVS(10287)*XX(2437)-JVS(16786)*XX(3602))/(JVS(21048)) - XX(4117) = (X(4117)-JVS(2054)*XX(530)-JVS(6115)*XX(1527)-JVS(10980)*XX(2578)-JVS(18779)*XX(3849))/(JVS(21055)) - XX(4118) = (X(4118)-JVS(5987)*XX(1495)-JVS(11552)*XX(2692))/(JVS(21064)) - XX(4119) = (X(4119)-JVS(1929)*XX(493)-JVS(5471)*XX(1367)-JVS(10379)*XX(2457)-JVS(11237)*XX(2629))/(JVS(21074)) - XX(4120) = (X(4120)-JVS(1888)*XX(482)-JVS(4072)*XX(1019)-JVS(9291)*XX(2209)-JVS(12600)*XX(2894)-JVS(18780)*XX(3849))& - &/(JVS(21084)) - XX(4121) = (X(4121)-JVS(512)*XX(133)-JVS(3916)*XX(980)-JVS(8153)*XX(1962)-JVS(12325)*XX(2839))/(JVS(21092)) - XX(4122) = (X(4122)-JVS(3061)*XX(769))/(JVS(21103)) - XX(4123) = (X(4123)-JVS(7827)*XX(1892)-JVS(14351)*XX(3217))/(JVS(21111)) - XX(4124) = (X(4124)-JVS(1474)*XX(366)-JVS(1779)*XX(450)-JVS(3720)*XX(931)-JVS(12591)*XX(2892))/(JVS(21118)) - XX(4125) = (X(4125)-JVS(7426)*XX(1810))/(JVS(21128)) - XX(4126) = (X(4126)-JVS(2713)*XX(689)-JVS(6706)*XX(1658)-JVS(10110)*XX(2395)-JVS(14731)*XX(3287))/(JVS(21139)) - XX(4127) = (X(4127)-JVS(921)*XX(208)-JVS(6225)*XX(1553)-JVS(7028)*XX(1728)-JVS(11460)*XX(2672)-JVS(11896)*XX(2753))& - &/(JVS(21147)) - XX(4128) = (X(4128)-JVS(2154)*XX(554)-JVS(4852)*XX(1213)-JVS(9492)*XX(2256)-JVS(13273)*XX(3013))/(JVS(21154)) - XX(4129) = (X(4129)-JVS(3114)*XX(781)-JVS(11186)*XX(2617))/(JVS(21161)) - XX(4130) = (X(4130)-JVS(1616)*XX(406)-JVS(3262)*XX(817)-JVS(10300)*XX(2440)-JVS(15417)*XX(3397))/(JVS(21170)) - XX(4131) = (X(4131)-JVS(1168)*XX(279)-JVS(3081)*XX(774)-JVS(8130)*XX(1958)-JVS(15172)*XX(3365))/(JVS(21178)) - XX(4132) = (X(4132)-JVS(5624)*XX(1405)-JVS(5896)*XX(1473)-JVS(12911)*XX(2950))/(JVS(21187)) - XX(4133) = (X(4133)-JVS(224)*XX(52)-JVS(5950)*XX(1486)-JVS(11131)*XX(2605)-JVS(16760)*XX(3599))/(JVS(21195)) - XX(4134) = (X(4134)-JVS(3984)*XX(997)-JVS(12656)*XX(2905))/(JVS(21201)) - XX(4135) = (X(4135)-JVS(2416)*XX(619)-JVS(6501)*XX(1615)-JVS(8438)*XX(2022)-JVS(8985)*XX(2141))/(JVS(21208)) - XX(4136) = (X(4136)-JVS(3203)*XX(802)-JVS(6792)*XX(1678)-JVS(7343)*XX(1793)-JVS(16433)*XX(3557))/(JVS(21216)) - XX(4137) = (X(4137)-JVS(3003)*XX(754)-JVS(7004)*XX(1724)-JVS(9311)*XX(2214)-JVS(12869)*XX(2942)-JVS(20403)*XX(4042))& - &/(JVS(21226)) - XX(4138) = (X(4138)-JVS(9251)*XX(2201)-JVS(12796)*XX(2930))/(JVS(21235)) - XX(4139) = (X(4139)-JVS(1961)*XX(503)-JVS(6155)*XX(1537)-JVS(14872)*XX(3318)-JVS(20046)*XX(4000))/(JVS(21244)) - XX(4140) = (X(4140)-JVS(4286)*XX(1072)-JVS(8221)*XX(1976)-JVS(12285)*XX(2831)-JVS(16278)*XX(3536))/(JVS(21251)) - XX(4141) = (X(4141)-JVS(2591)*XX(659)-JVS(4350)*XX(1088)-JVS(12905)*XX(2949))/(JVS(21257)) - XX(4142) = (X(4142)-JVS(2583)*XX(657)-JVS(4556)*XX(1139)-JVS(6335)*XX(1579)-JVS(16434)*XX(3557))/(JVS(21264)) - XX(4143) = (X(4143)-JVS(5568)*XX(1391)-JVS(8125)*XX(1957)-JVS(12384)*XX(2851))/(JVS(21271)) - XX(4144) = (X(4144)-JVS(2792)*XX(708)-JVS(6974)*XX(1718)-JVS(7671)*XX(1858)-JVS(11743)*XX(2727))/(JVS(21278)) - XX(4145) = (X(4145)-JVS(2672)*XX(679)-JVS(6366)*XX(1586)-JVS(9529)*XX(2265)-JVS(9712)*XX(2305))/(JVS(21285)) - XX(4146) = (X(4146)-JVS(3676)*XX(920)-JVS(5191)*XX(1297)-JVS(9883)*XX(2343)-JVS(10661)*XX(2516))/(JVS(21291)) - XX(4147) = (X(4147)-JVS(1636)*XX(411)-JVS(3233)*XX(810)-JVS(7739)*XX(1871)-JVS(15663)*XX(3431))/(JVS(21299)) - XX(4148) = (X(4148)-JVS(2938)*XX(740)-JVS(6363)*XX(1585)-JVS(9389)*XX(2231)-JVS(9963)*XX(2362))/(JVS(21306)) - XX(4149) = (X(4149)-JVS(3502)*XX(877)-JVS(12220)*XX(2819))/(JVS(21313)) - XX(4150) = (X(4150)-JVS(2150)*XX(553)-JVS(6634)*XX(1643)-JVS(7038)*XX(1731)-JVS(8417)*XX(2017))/(JVS(21323)) - XX(4151) = X(4151)/JVS(21331) - XX(4152) = (X(4152)-JVS(9733)*XX(2310)-JVS(10218)*XX(2420)-JVS(18166)*XX(3770))/(JVS(21343)) - XX(4153) = (X(4153)-JVS(2326)*XX(597)-JVS(9989)*XX(2368)-JVS(17648)*XX(3709))/(JVS(21351)) - XX(4154) = (X(4154)-JVS(8645)*XX(2064)-JVS(13302)*XX(3019))/(JVS(21363)) - XX(4155) = X(4155)/JVS(21371) - XX(4156) = (X(4156)-JVS(16498)*XX(3566))/(JVS(21377)) - XX(4157) = (X(4157)-JVS(2021)*XX(520)-JVS(5055)*XX(1263)-JVS(8286)*XX(1989)-JVS(15745)*XX(3447)-JVS(18990)*XX(3874))& - &/(JVS(21387)) - XX(4158) = (X(4158)-JVS(2166)*XX(557)-JVS(8024)*XX(1935)-JVS(16604)*XX(3580))/(JVS(21395)) - XX(4159) = (X(4159)-JVS(3960)*XX(991)-JVS(4390)*XX(1098)-JVS(6557)*XX(1626)-JVS(12202)*XX(2816))/(JVS(21401)) - XX(4160) = (X(4160)-JVS(14549)*XX(3252))/(JVS(21409)) - XX(4161) = (X(4161)-JVS(4322)*XX(1081)-JVS(7849)*XX(1897)-JVS(8345)*XX(2001)-JVS(10833)*XX(2550)-JVS(14716)*XX(3284)& - &-JVS(16365)*XX(3547))/(JVS(21417)) - XX(4162) = (X(4162)-JVS(1574)*XX(394)-JVS(4238)*XX(1060)-JVS(7444)*XX(1813)-JVS(7450)*XX(1814)-JVS(15240)*XX(3373))& - &/(JVS(21426)) - XX(4163) = (X(4163)-JVS(2076)*XX(535)-JVS(8060)*XX(1943)-JVS(16536)*XX(3571))/(JVS(21434)) - XX(4164) = (X(4164)-JVS(2373)*XX(609))/(JVS(21445)) - XX(4165) = (X(4165)-JVS(2428)*XX(622)-JVS(4896)*XX(1224)-JVS(10542)*XX(2492))/(JVS(21451)) - XX(4166) = (X(4166)-JVS(1595)*XX(400)-JVS(5564)*XX(1390)-JVS(7394)*XX(1803)-JVS(11923)*XX(2759))/(JVS(21459)) - XX(4167) = (X(4167)-JVS(493)*XX(128)-JVS(3176)*XX(796)-JVS(4330)*XX(1083)-JVS(4636)*XX(1159)-JVS(15460)*XX(3403))& - &/(JVS(21467)) - XX(4168) = (X(4168)-JVS(9720)*XX(2307)-JVS(11504)*XX(2681))/(JVS(21476)) - XX(4169) = (X(4169)-JVS(2337)*XX(600)-JVS(6646)*XX(1646)-JVS(10234)*XX(2424))/(JVS(21486)) - XX(4170) = (X(4170)-JVS(5171)*XX(1292)-JVS(12534)*XX(2881))/(JVS(21495)) - XX(4171) = (X(4171)-JVS(7630)*XX(1849)-JVS(8789)*XX(2096)-JVS(15083)*XX(3351))/(JVS(21502)) - XX(4172) = (X(4172)-JVS(1738)*XX(441)-JVS(3816)*XX(955)-JVS(8270)*XX(1986)-JVS(11464)*XX(2673)-JVS(15583)*XX(3420))& - &/(JVS(21511)) - XX(4173) = (X(4173)-JVS(1471)*XX(365)-JVS(1622)*XX(407)-JVS(4788)*XX(1197)-JVS(13632)*XX(3081)-JVS(21075)*XX(4119))& - &/(JVS(21520)) - XX(4174) = (X(4174)-JVS(14632)*XX(3269))/(JVS(21528)) - XX(4175) = X(4175)/JVS(21540) - XX(4176) = (X(4176)-JVS(1516)*XX(377)-JVS(2411)*XX(618)-JVS(7723)*XX(1868)-JVS(9040)*XX(2154))/(JVS(21550)) - XX(4177) = X(4177)/JVS(21560) - XX(4178) = (X(4178)-JVS(17763)*XX(3723))/(JVS(21570)) - XX(4179) = (X(4179)-JVS(3168)*XX(794))/(JVS(21581)) - XX(4180) = (X(4180)-JVS(8740)*XX(2085)-JVS(14591)*XX(3261))/(JVS(21588)) - XX(4181) = (X(4181)-JVS(1679)*XX(423)-JVS(4912)*XX(1228)-JVS(14415)*XX(3232)-JVS(15872)*XX(3474)-JVS(20389)*XX(4041))& - &/(JVS(21604)) - XX(4182) = (X(4182)-JVS(5576)*XX(1393)-JVS(11970)*XX(2768))/(JVS(21615)) - XX(4183) = (X(4183)-JVS(16482)*XX(3564))/(JVS(21628)) - XX(4184) = (X(4184)-JVS(9854)*XX(2336))/(JVS(21639)) - XX(4185) = (X(4185)-JVS(4744)*XX(1186)-JVS(5192)*XX(1297)-JVS(12638)*XX(2902)-JVS(13972)*XX(3141))/(JVS(21646)) - XX(4186) = X(4186)/JVS(21658) - XX(4187) = (X(4187)-JVS(1158)*XX(276)-JVS(3462)*XX(867)-JVS(12035)*XX(2780)-JVS(18222)*XX(3776))/(JVS(21667)) - XX(4188) = (X(4188)-JVS(4466)*XX(1117)-JVS(11809)*XX(2739))/(JVS(21676)) - XX(4189) = (X(4189)-JVS(2040)*XX(526)-JVS(5991)*XX(1496)-JVS(8258)*XX(1984)-JVS(12185)*XX(2812))/(JVS(21687)) - XX(4190) = (X(4190)-JVS(2267)*XX(583)-JVS(17731)*XX(3719))/(JVS(21696)) - XX(4191) = (X(4191)-JVS(5443)*XX(1360)-JVS(13136)*XX(2989))/(JVS(21704)) - XX(4192) = (X(4192)-JVS(5840)*XX(1459)-JVS(10867)*XX(2557))/(JVS(21712)) - XX(4193) = (X(4193)-JVS(6135)*XX(1532)-JVS(11018)*XX(2586))/(JVS(21721)) - XX(4194) = (X(4194)-JVS(4096)*XX(1025)-JVS(15540)*XX(3414))/(JVS(21730)) - XX(4195) = (X(4195)-JVS(3912)*XX(979)-JVS(10752)*XX(2535)-JVS(15898)*XX(3478))/(JVS(21739)) - XX(4196) = (X(4196)-JVS(1319)*XX(320)-JVS(6083)*XX(1519)-JVS(9571)*XX(2275)-JVS(12848)*XX(2938)-JVS(15612)*XX(3424))& - &/(JVS(21752)) - XX(4197) = (X(4197)-JVS(763)*XX(180)-JVS(4950)*XX(1237)-JVS(9044)*XX(2155))/(JVS(21761)) - XX(4198) = (X(4198)-JVS(4824)*XX(1206)-JVS(5475)*XX(1368)-JVS(5560)*XX(1389))/(JVS(21770)) - XX(4199) = (X(4199)-JVS(7993)*XX(1928)-JVS(18475)*XX(3809))/(JVS(21784)) - XX(4200) = (X(4200)-JVS(5520)*XX(1379)-JVS(12988)*XX(2963))/(JVS(21793)) - XX(4201) = (X(4201)-JVS(1484)*XX(369)-JVS(1489)*XX(370)-JVS(4024)*XX(1007)-JVS(19671)*XX(3955))/(JVS(21802)) - XX(4202) = (X(4202)-JVS(9458)*XX(2248)-JVS(11314)*XX(2643))/(JVS(21813)) - XX(4203) = (X(4203)-JVS(12625)*XX(2899)-JVS(13279)*XX(3014))/(JVS(21823)) - XX(4204) = (X(4204)-JVS(5115)*XX(1278)-JVS(11777)*XX(2733))/(JVS(21832)) - XX(4205) = (X(4205)-JVS(6023)*XX(1504)-JVS(15143)*XX(3361))/(JVS(21841)) - XX(4206) = (X(4206)-JVS(9285)*XX(2208)-JVS(11198)*XX(2620))/(JVS(21850)) - XX(4207) = (X(4207)-JVS(9471)*XX(2251)-JVS(12130)*XX(2800))/(JVS(21860)) - XX(4208) = (X(4208)-JVS(4736)*XX(1184)-JVS(8830)*XX(2105))/(JVS(21870)) - XX(4209) = (X(4209)-JVS(9774)*XX(2320)-JVS(10575)*XX(2498))/(JVS(21880)) - XX(4210) = (X(4210)-JVS(3844)*XX(962)-JVS(10917)*XX(2566))/(JVS(21889)) - XX(4211) = (X(4211)-JVS(3626)*XX(908)-JVS(12266)*XX(2827))/(JVS(21899)) - XX(4212) = (X(4212)-JVS(4202)*XX(1051)-JVS(13288)*XX(3016))/(JVS(21908)) - XX(4213) = (X(4213)-JVS(9)*XX(3))/(JVS(21916)) - XX(4214) = (X(4214)-JVS(9061)*XX(2159)-JVS(11146)*XX(2608))/(JVS(21928)) - XX(4215) = (X(4215)-JVS(9692)*XX(2301)-JVS(13465)*XX(3051))/(JVS(21937)) - XX(4216) = (X(4216)-JVS(333)*XX(83)-JVS(1207)*XX(290)-JVS(3298)*XX(826)-JVS(9496)*XX(2257)-JVS(12416)*XX(2856)& - &-JVS(14426)*XX(3233)-JVS(19063)*XX(3882))/(JVS(21951)) - XX(4217) = (X(4217)-JVS(5291)*XX(1322)-JVS(13212)*XX(3001))/(JVS(21960)) - XX(4218) = (X(4218)-JVS(10606)*XX(2505)-JVS(12446)*XX(2862))/(JVS(21972)) - XX(4219) = (X(4219)-JVS(1851)*XX(471)-JVS(5800)*XX(1449)-JVS(7698)*XX(1864)-JVS(7704)*XX(1865)-JVS(16939)*XX(3619))& - &/(JVS(21984)) - XX(4220) = (X(4220)-JVS(8989)*XX(2142)-JVS(10731)*XX(2530))/(JVS(21997)) - XX(4221) = (X(4221)-JVS(13150)*XX(2991)-JVS(13409)*XX(3040))/(JVS(22010)) - XX(4222) = (X(4222)-JVS(1144)*XX(272)-JVS(4832)*XX(1208)-JVS(10667)*XX(2517)-JVS(16983)*XX(3626)-JVS(20584)*XX(4060))& - &/(JVS(22020)) - XX(4223) = (X(4223)-JVS(16025)*XX(3498))/(JVS(22030)) - XX(4224) = X(4224)/JVS(22043) - XX(4225) = (X(4225)-JVS(4760)*XX(1190)-JVS(11820)*XX(2741))/(JVS(22052)) - XX(4226) = (X(4226)-JVS(1481)*XX(368)-JVS(2084)*XX(537)-JVS(5032)*XX(1257)-JVS(7817)*XX(1890))/(JVS(22065)) - XX(4227) = X(4227)/JVS(22074) - XX(4228) = (X(4228)-JVS(9822)*XX(2329)-JVS(13433)*XX(3045))/(JVS(22085)) - XX(4229) = (X(4229)-JVS(7461)*XX(1816)-JVS(13421)*XX(3042))/(JVS(22096)) - XX(4230) = (X(4230)-JVS(8875)*XX(2116)-JVS(12053)*XX(2784))/(JVS(22106)) - XX(4231) = X(4231)/JVS(22118) - XX(4232) = (X(4232)-JVS(5696)*XX(1423)-JVS(12838)*XX(2937))/(JVS(22127)) - XX(4233) = X(4233)/JVS(22136) - XX(4234) = (X(4234)-JVS(250)*XX(60)-JVS(1645)*XX(414)-JVS(3026)*XX(760))/(JVS(22147)) - XX(4235) = (X(4235)-JVS(9260)*XX(2203)-JVS(11724)*XX(2723))/(JVS(22158)) - XX(4236) = (X(4236)-JVS(6578)*XX(1630)-JVS(6583)*XX(1631)-JVS(10073)*XX(2386))/(JVS(22167)) - XX(4237) = (X(4237)-JVS(5319)*XX(1329)-JVS(15590)*XX(3421))/(JVS(22176)) - XX(4238) = (X(4238)-JVS(5596)*XX(1398)-JVS(11477)*XX(2676))/(JVS(22186)) - XX(4239) = X(4239)/JVS(22198) - XX(4240) = (X(4240)-JVS(555)*XX(145)-JVS(1604)*XX(403)-JVS(1609)*XX(404)-JVS(1612)*XX(405))/(JVS(22207)) - XX(4241) = (X(4241)-JVS(8600)*XX(2055)-JVS(11515)*XX(2683))/(JVS(22221)) - XX(4242) = (X(4242)-JVS(6257)*XX(1561)-JVS(6850)*XX(1691)-JVS(7805)*XX(1887))/(JVS(22230)) - XX(4243) = (X(4243)-JVS(9770)*XX(2319)-JVS(11487)*XX(2678))/(JVS(22240)) - XX(4244) = (X(4244)-JVS(161)*XX(36)-JVS(3454)*XX(865)-JVS(19975)*XX(3992))/(JVS(22249)) - XX(4245) = (X(4245)-JVS(3884)*XX(972)-JVS(13173)*XX(2995))/(JVS(22258)) - XX(4246) = (X(4246)-JVS(5014)*XX(1253)-JVS(11029)*XX(2588)-JVS(16317)*XX(3541))/(JVS(22267)) - XX(4247) = (X(4247)-JVS(10)*XX(3))/(JVS(22275)) - XX(4248) = X(4248)/JVS(22292) - XX(4249) = (X(4249)-JVS(2733)*XX(694)-JVS(8376)*XX(2008)-JVS(9594)*XX(2280)-JVS(10010)*XX(2373)-JVS(16143)*XX(3516))& - &/(JVS(22301)) - XX(4250) = (X(4250)-JVS(11)*XX(3))/(JVS(22309)) - XX(4251) = (X(4251)-JVS(875)*XX(200)-JVS(1269)*XX(306)-JVS(7534)*XX(1829)-JVS(9830)*XX(2331))/(JVS(22320)) - XX(4252) = (X(4252)-JVS(6103)*XX(1524)-JVS(11102)*XX(2599))/(JVS(22329)) - XX(4253) = (X(4253)-JVS(10313)*XX(2443)-JVS(12450)*XX(2863))/(JVS(22342)) - XX(4254) = (X(4254)-JVS(4486)*XX(1122)-JVS(12501)*XX(2874))/(JVS(22352)) - XX(4255) = (X(4255)-JVS(5143)*XX(1285)-JVS(12088)*XX(2791)-JVS(20799)*XX(4087))/(JVS(22361)) - XX(4256) = X(4256)/JVS(22370) - XX(4257) = (X(4257)-JVS(528)*XX(138)-JVS(8994)*XX(2143))/(JVS(22381)) - XX(4258) = (X(4258)-JVS(12)*XX(3))/(JVS(22390)) - XX(4259) = (X(4259)-JVS(10262)*XX(2431)-JVS(12134)*XX(2801))/(JVS(22399)) - XX(4260) = (X(4260)-JVS(8998)*XX(2144)-JVS(11483)*XX(2677))/(JVS(22409)) - XX(4261) = X(4261)/JVS(22421) - XX(4262) = (X(4262)-JVS(3294)*XX(825)-JVS(12645)*XX(2903)-JVS(16318)*XX(3541))/(JVS(22430)) - XX(4263) = (X(4263)-JVS(3630)*XX(909)-JVS(12459)*XX(2865))/(JVS(22441)) - XX(4264) = (X(4264)-JVS(13)*XX(3))/(JVS(22449)) - XX(4265) = (X(4265)-JVS(4382)*XX(1096)-JVS(10759)*XX(2536))/(JVS(22458)) - XX(4266) = (X(4266)-JVS(7231)*XX(1770)-JVS(12621)*XX(2898))/(JVS(22468)) - XX(4267) = (X(4267)-JVS(10727)*XX(2529)-JVS(11945)*XX(2763))/(JVS(22479)) - XX(4268) = (X(4268)-JVS(2263)*XX(582)-JVS(7809)*XX(1888))/(JVS(22488)) - XX(4269) = (X(4269)-JVS(10141)*XX(2402)-JVS(10968)*XX(2576))/(JVS(22498)) - XX(4270) = (X(4270)-JVS(4458)*XX(1115)-JVS(11928)*XX(2760))/(JVS(22508)) - XX(4271) = (X(4271)-JVS(6039)*XX(1508)-JVS(10973)*XX(2577)-JVS(15899)*XX(3478))/(JVS(22517)) - XX(4272) = (X(4272)-JVS(20749)*XX(4081))/(JVS(22525)) - XX(4273) = (X(4273)-JVS(4418)*XX(1105)-JVS(11763)*XX(2731)-JVS(15900)*XX(3478))/(JVS(22531)) - XX(4274) = (X(4274)-JVS(2116)*XX(545)-JVS(7181)*XX(1759))/(JVS(22541)) - XX(4275) = (X(4275)-JVS(10066)*XX(2384)-JVS(11586)*XX(2698))/(JVS(22550)) - XX(4276) = (X(4276)-JVS(5095)*XX(1273)-JVS(12920)*XX(2952))/(JVS(22559)) - XX(4277) = (X(4277)-JVS(2222)*XX(572)-JVS(9418)*XX(2238)-JVS(13037)*XX(2971))/(JVS(22569)) - XX(4278) = X(4278)/JVS(22584) - XX(4279) = X(4279)/JVS(22596) - XX(4280) = (X(4280)-JVS(3434)*XX(860)-JVS(16595)*XX(3579))/(JVS(22605)) - XX(4281) = (X(4281)-JVS(10113)*XX(2396)-JVS(11804)*XX(2738))/(JVS(22614)) - XX(4282) = (X(4282)-JVS(14)*XX(3))/(JVS(22622)) - XX(4283) = (X(4283)-JVS(10002)*XX(2371)-JVS(12610)*XX(2896))/(JVS(22631)) - XX(4284) = (X(4284)-JVS(3096)*XX(777)-JVS(8081)*XX(1947))/(JVS(22641)) - XX(4285) = (X(4285)-JVS(4664)*XX(1166)-JVS(11794)*XX(2736))/(JVS(22650)) - XX(4286) = (X(4286)-JVS(15)*XX(3))/(JVS(22658)) - XX(4287) = (X(4287)-JVS(4592)*XX(1148)-JVS(10962)*XX(2575))/(JVS(22667)) - XX(4288) = (X(4288)-JVS(3672)*XX(919)-JVS(14826)*XX(3307)-JVS(22382)*XX(4257))/(JVS(22676)) - XX(4289) = (X(4289)-JVS(4112)*XX(1029)-JVS(11095)*XX(2598))/(JVS(22685)) - XX(4290) = (X(4290)-JVS(2473)*XX(632)-JVS(9026)*XX(2151))/(JVS(22698)) - XX(4291) = (X(4291)-JVS(3664)*XX(917)-JVS(11299)*XX(2641))/(JVS(22707)) - XX(4292) = (X(4292)-JVS(4576)*XX(1144)-JVS(11509)*XX(2682))/(JVS(22716)) - XX(4293) = (X(4293)-JVS(4414)*XX(1104)-JVS(12734)*XX(2918))/(JVS(22725)) - XX(4294) = X(4294)/JVS(22740) - XX(4295) = (X(4295)-JVS(124)*XX(25)-JVS(7191)*XX(1761))/(JVS(22760)) - XX(4296) = (X(4296)-JVS(3506)*XX(878)-JVS(16742)*XX(3597))/(JVS(22770)) - XX(4297) = (X(4297)-JVS(4402)*XX(1101)-JVS(13536)*XX(3065))/(JVS(22779)) - XX(4298) = (X(4298)-JVS(5684)*XX(1420)-JVS(12826)*XX(2935))/(JVS(22788)) - XX(4299) = (X(4299)-JVS(11900)*XX(2754)-JVS(13469)*XX(3052))/(JVS(22801)) - XX(4300) = (X(4300)-JVS(16233)*XX(3530))/(JVS(22813)) - XX(4301) = (X(4301)-JVS(9007)*XX(2146)-JVS(13294)*XX(3017))/(JVS(22823)) - XX(4302) = (X(4302)-JVS(16)*XX(3))/(JVS(22831)) - XX(4303) = (X(4303)-JVS(5022)*XX(1255)-JVS(11442)*XX(2668))/(JVS(22840)) - XX(4304) = (X(4304)-JVS(6055)*XX(1512)-JVS(11125)*XX(2604)-JVS(16319)*XX(3541))/(JVS(22849)) - XX(4305) = (X(4305)-JVS(3648)*XX(913)-JVS(13121)*XX(2986))/(JVS(22858)) - XX(4306) = (X(4306)-JVS(3334)*XX(835)-JVS(13385)*XX(3036))/(JVS(22867)) - XX(4307) = (X(4307)-JVS(3688)*XX(923)-JVS(15399)*XX(3395))/(JVS(22876)) - XX(4308) = (X(4308)-JVS(11735)*XX(2725)-JVS(12696)*XX(2911)-JVS(17146)*XX(3644))/(JVS(22889)) - XX(4309) = (X(4309)-JVS(6992)*XX(1722)-JVS(6997)*XX(1723)-JVS(8735)*XX(2084))/(JVS(22899)) - XX(4310) = (X(4310)-JVS(4198)*XX(1050)-JVS(4430)*XX(1108)-JVS(7891)*XX(1906)-JVS(9237)*XX(2198))/(JVS(22910)) - XX(4311) = (X(4311)-JVS(6356)*XX(1583)-JVS(6360)*XX(1584)-JVS(8180)*XX(1968))/(JVS(22922)) - XX(4312) = (X(4312)-JVS(5600)*XX(1399)-JVS(12213)*XX(2818))/(JVS(22931)) - XX(4313) = X(4313)/JVS(22946) - XX(4314) = (X(4314)-JVS(5435)*XX(1358)-JVS(13227)*XX(3004))/(JVS(22955)) - XX(4315) = (X(4315)-JVS(1053)*XX(247)-JVS(2442)*XX(625)-JVS(5980)*XX(1493)-JVS(9740)*XX(2312))/(JVS(22967)) - XX(4316) = (X(4316)-JVS(10275)*XX(2434)-JVS(12197)*XX(2815))/(JVS(22978)) - XX(4317) = (X(4317)-JVS(4748)*XX(1187)-JVS(10840)*XX(2551))/(JVS(22987)) - XX(4318) = (X(4318)-JVS(4868)*XX(1217)-JVS(9080)*XX(2163))/(JVS(22996)) - XX(4319) = (X(4319)-JVS(515)*XX(134)-JVS(1235)*XX(297)-JVS(4620)*XX(1155)-JVS(9814)*XX(2327)-JVS(11700)*XX(2719)& - &-JVS(14427)*XX(3233)-JVS(18830)*XX(3855))/(JVS(23009)) - XX(4320) = (X(4320)-JVS(17)*XX(3))/(JVS(23017)) - XX(4321) = (X(4321)-JVS(9463)*XX(2249)-JVS(14462)*XX(3240)-JVS(16042)*XX(3501)-JVS(16124)*XX(3514))/(JVS(23025)) - XX(4322) = (X(4322)-JVS(8567)*XX(2048)-JVS(18174)*XX(3771)-JVS(18633)*XX(3829))/(JVS(23036)) - XX(4323) = (X(4323)-JVS(2458)*XX(629)-JVS(9878)*XX(2342)-JVS(16710)*XX(3593))/(JVS(23044)) - XX(4324) = (X(4324)-JVS(9905)*XX(2349)-JVS(11178)*XX(2615))/(JVS(23056)) - XX(4325) = (X(4325)-JVS(14692)*XX(3281))/(JVS(23070)) - XX(4326) = (X(4326)-JVS(8028)*XX(1936)-JVS(17567)*XX(3697)-JVS(18570)*XX(3821)-JVS(22222)*XX(4241))/(JVS(23083)) - XX(4327) = (X(4327)-JVS(3228)*XX(809)-JVS(8777)*XX(2093)-JVS(17814)*XX(3729))/(JVS(23091)) - XX(4328) = (X(4328)-JVS(10521)*XX(2488))/(JVS(23099)) - XX(4329) = (X(4329)-JVS(8528)*XX(2039)-JVS(13033)*XX(2970))/(JVS(23114)) - XX(4330) = (X(4330)-JVS(80)*XX(12)-JVS(5080)*XX(1269))/(JVS(23121)) - XX(4331) = X(4331)/JVS(23140) - XX(4332) = (X(4332)-JVS(14778)*XX(3297))/(JVS(23152)) - XX(4333) = (X(4333)-JVS(12712)*XX(2914))/(JVS(23159)) - XX(4334) = (X(4334)-JVS(965)*XX(220)-JVS(5127)*XX(1281)-JVS(8555)*XX(2045)-JVS(12570)*XX(2889)-JVS(15319)*XX(3384)& - &-JVS(19615)*XX(3948))/(JVS(23168)) - XX(4335) = (X(4335)-JVS(1505)*XX(374)-JVS(3652)*XX(914)-JVS(15806)*XX(3460)-JVS(16767)*XX(3600)-JVS(22570)*XX(4277))& - &/(JVS(23176)) - XX(4336) = (X(4336)-JVS(7067)*XX(1737)-JVS(10873)*XX(2558)-JVS(16026)*XX(3498)-JVS(22031)*XX(4223))/(JVS(23184)) - XX(4337) = (X(4337)-JVS(5459)*XX(1364)-JVS(16651)*XX(3586))/(JVS(23191)) - XX(4338) = (X(4338)-JVS(1557)*XX(389)-JVS(5135)*XX(1283)-JVS(12947)*XX(2956)-JVS(15327)*XX(3385)-JVS(20361)*XX(4038)& - &-JVS(20467)*XX(4048))/(JVS(23200)) - XX(4339) = (X(4339)-JVS(7626)*XX(1848)-JVS(15753)*XX(3449)-JVS(22097)*XX(4229))/(JVS(23206)) - XX(4340) = (X(4340)-JVS(2820)*XX(714)-JVS(8013)*XX(1932))/(JVS(23215)) - XX(4341) = (X(4341)-JVS(2579)*XX(656)-JVS(8548)*XX(2043)-JVS(11569)*XX(2695)-JVS(15076)*XX(3350)-JVS(16836)*XX(3608))& - &/(JVS(23221)) - XX(4342) = (X(4342)-JVS(1561)*XX(390)-JVS(5760)*XX(1439)-JVS(7303)*XX(1786)-JVS(15654)*XX(3430)-JVS(17124)*XX(3642))& - &/(JVS(23229)) - XX(4343) = (X(4343)-JVS(2203)*XX(567)-JVS(2543)*XX(648)-JVS(7984)*XX(1926))/(JVS(23238)) - XX(4344) = (X(4344)-JVS(3310)*XX(829)-JVS(19181)*XX(3897))/(JVS(23248)) - XX(4345) = (X(4345)-JVS(14678)*XX(3278)-JVS(19275)*XX(3909))/(JVS(23257)) - XX(4346) = (X(4346)-JVS(2173)*XX(559)-JVS(6159)*XX(1538)-JVS(13415)*XX(3041)-JVS(17094)*XX(3639)-JVS(19716)*XX(3960))& - &/(JVS(23265)) - XX(4347) = (X(4347)-JVS(6809)*XX(1681)-JVS(11116)*XX(2602)-JVS(11395)*XX(2659))/(JVS(23272)) - XX(4348) = (X(4348)-JVS(1416)*XX(348)-JVS(5287)*XX(1321)-JVS(7793)*XX(1884)-JVS(13042)*XX(2972)-JVS(18882)*XX(3861)& - &-JVS(22107)*XX(4230))/(JVS(23280)) - XX(4349) = (X(4349)-JVS(2856)*XX(722)-JVS(6921)*XX(1707)-JVS(8588)*XX(2052)-JVS(14020)*XX(3151))/(JVS(23288)) - XX(4350) = (X(4350)-JVS(2741)*XX(696)-JVS(5251)*XX(1312)-JVS(19311)*XX(3913)-JVS(22585)*XX(4278))/(JVS(23297)) - XX(4351) = (X(4351)-JVS(7674)*XX(1859)-JVS(14503)*XX(3245)-JVS(16644)*XX(3585))/(JVS(23304)) - XX(4352) = X(4352)/JVS(23315) - XX(4353) = (X(4353)-JVS(7744)*XX(1872)-JVS(12150)*XX(2805)-JVS(13429)*XX(3044)-JVS(14119)*XX(3171))/(JVS(23325)) - XX(4354) = (X(4354)-JVS(8380)*XX(2009)-JVS(15547)*XX(3415))/(JVS(23332)) - XX(4355) = (X(4355)-JVS(2236)*XX(575)-JVS(6771)*XX(1674)-JVS(9339)*XX(2221)-JVS(14194)*XX(3185))/(JVS(23340)) - XX(4356) = (X(4356)-JVS(683)*XX(167)-JVS(6423)*XX(1599)-JVS(9307)*XX(2213)-JVS(10137)*XX(2401))/(JVS(23348)) - XX(4357) = (X(4357)-JVS(1185)*XX(284)-JVS(6003)*XX(1499)-JVS(10652)*XX(2514)-JVS(11321)*XX(2644))/(JVS(23355)) - XX(4358) = (X(4358)-JVS(3223)*XX(808)-JVS(6297)*XX(1570)-JVS(15741)*XX(3446)-JVS(17147)*XX(3644))/(JVS(23362)) - XX(4359) = (X(4359)-JVS(1438)*XX(355)-JVS(4016)*XX(1005)-JVS(8363)*XX(2005)-JVS(14292)*XX(3205)-JVS(19966)*XX(3991)& - &-JVS(22410)*XX(4260))/(JVS(23370)) - XX(4360) = (X(4360)-JVS(1627)*XX(408)-JVS(5916)*XX(1478)-JVS(8326)*XX(1998)-JVS(13283)*XX(3015)-JVS(16605)*XX(3580))& - &/(JVS(23380)) - XX(4361) = (X(4361)-JVS(2213)*XX(570)-JVS(7086)*XX(1740)-JVS(8897)*XX(2121)-JVS(14187)*XX(3184))/(JVS(23388)) - XX(4362) = X(4362)/JVS(23396) - XX(4363) = (X(4363)-JVS(1087)*XX(256)-JVS(5780)*XX(1444)-JVS(7142)*XX(1752)-JVS(15620)*XX(3425)-JVS(16015)*XX(3497))& - &/(JVS(23405)) - XX(4364) = (X(4364)-JVS(1005)*XX(232)-JVS(7836)*XX(1894)-JVS(8384)*XX(2010)-JVS(12478)*XX(2869)-JVS(18039)*XX(3755)& - &-JVS(22979)*XX(4316))/(JVS(23412)) - XX(4365) = (X(4365)-JVS(2981)*XX(749)-JVS(6429)*XX(1601)-JVS(12809)*XX(2932)-JVS(15865)*XX(3473))/(JVS(23423)) - XX(4366) = X(4366)/JVS(23443) - XX(4367) = (X(4367)-JVS(3032)*XX(761)-JVS(6938)*XX(1711)-JVS(6943)*XX(1712)-JVS(10943)*XX(2572)-JVS(21065)*XX(4118))& - &/(JVS(23455)) - XX(4368) = (X(4368)-JVS(1322)*XX(321)-JVS(7727)*XX(1869)-JVS(7734)*XX(1870)-JVS(10153)*XX(2405)-JVS(12937)*XX(2954)& - &-JVS(16940)*XX(3619)-JVS(21900)*XX(4211))/(JVS(23462)) - XX(4369) = (X(4369)-JVS(2961)*XX(745)-JVS(6300)*XX(1571)-JVS(7584)*XX(1839)-JVS(13661)*XX(3086))/(JVS(23470)) - XX(4370) = (X(4370)-JVS(10270)*XX(2433)-JVS(10309)*XX(2442)-JVS(16580)*XX(3577))/(JVS(23477)) - XX(4371) = (X(4371)-JVS(2703)*XX(687)-JVS(13237)*XX(3006))/(JVS(23484)) - XX(4372) = (X(4372)-JVS(4215)*XX(1054)-JVS(5584)*XX(1395)-JVS(9344)*XX(2222)-JVS(11623)*XX(2706))/(JVS(23490)) - XX(4373) = (X(4373)-JVS(22400)*XX(4259))/(JVS(23500)) - XX(4374) = (X(4374)-JVS(1945)*XX(498)-JVS(4568)*XX(1142)-JVS(8691)*XX(2074)-JVS(11843)*XX(2745)-JVS(16787)*XX(3602))& - &/(JVS(23509)) - XX(4375) = (X(4375)-JVS(987)*XX(227)-JVS(5423)*XX(1355)-JVS(14266)*XX(3199))/(JVS(23518)) - XX(4376) = (X(4376)-JVS(9144)*XX(2177))/(JVS(23530)) - XX(4377) = (X(4377)-JVS(2901)*XX(732)-JVS(3398)*XX(851)-JVS(15629)*XX(3426)-JVS(15633)*XX(3427))/(JVS(23539)) - XX(4378) = (X(4378)-JVS(10537)*XX(2491))/(JVS(23547)) - XX(4379) = (X(4379)-JVS(7609)*XX(1845)-JVS(17955)*XX(3746)-JVS(19526)*XX(3937)-JVS(21929)*XX(4214))/(JVS(23555)) - XX(4380) = (X(4380)-JVS(1539)*XX(384)-JVS(4422)*XX(1106)-JVS(11830)*XX(2743))/(JVS(23564)) - XX(4381) = (X(4381)-JVS(2956)*XX(744)-JVS(7538)*XX(1830)-JVS(17376)*XX(3673))/(JVS(23572)) - XX(4382) = (X(4382)-JVS(1895)*XX(484)-JVS(3494)*XX(875)-JVS(10708)*XX(2526))/(JVS(23578)) - XX(4383) = (X(4383)-JVS(9807)*XX(2326))/(JVS(23589)) - XX(4384) = (X(4384)-JVS(8448)*XX(2024)-JVS(14662)*XX(3274))/(JVS(23601)) - XX(4385) = (X(4385)-JVS(3243)*XX(813)-JVS(6497)*XX(1614)-JVS(7383)*XX(1801)-JVS(10699)*XX(2524)-JVS(15418)*XX(3397)& - &-JVS(21171)*XX(4130))/(JVS(23612)) - XX(4386) = X(4386)/JVS(23623) - XX(4387) = (X(4387)-JVS(4564)*XX(1141)-JVS(7285)*XX(1782)-JVS(14914)*XX(3328)-JVS(18143)*XX(3767)-JVS(23624)*XX(4386))& - &/(JVS(23635)) - XX(4388) = (X(4388)-JVS(10463)*XX(2474))/(JVS(23644)) - XX(4389) = (X(4389)-JVS(2750)*XX(698)-JVS(7104)*XX(1744)-JVS(8621)*XX(2059)-JVS(14180)*XX(3183))/(JVS(23652)) - XX(4390) = (X(4390)-JVS(6889)*XX(1699)-JVS(12521)*XX(2878)-JVS(16027)*XX(3498)-JVS(18058)*XX(3757))/(JVS(23660)) - XX(4391) = X(4391)/JVS(23673) - XX(4392) = X(4392)/JVS(23693) - XX(4393) = (X(4393)-JVS(10450)*XX(2472))/(JVS(23705)) - XX(4394) = (X(4394)-JVS(345)*XX(87)-JVS(1343)*XX(326)-JVS(3876)*XX(970)-JVS(9422)*XX(2239)-JVS(16016)*XX(3497)& - &-JVS(23406)*XX(4363))/(JVS(23715)) - XX(4395) = (X(4395)-JVS(13997)*XX(3147)-JVS(18920)*XX(3866)-JVS(19935)*XX(3987))/(JVS(23721)) - XX(4396) = X(4396)/JVS(23728) - XX(4397) = (X(4397)-JVS(18306)*XX(3786)-JVS(18639)*XX(3830)-JVS(19229)*XX(3903))/(JVS(23735)) - XX(4398) = (X(4398)-JVS(17672)*XX(3712))/(JVS(23746)) - XX(4399) = (X(4399)-JVS(2010)*XX(517)-JVS(5740)*XX(1434)-JVS(9874)*XX(2341)-JVS(13859)*XX(3121)-JVS(15012)*XX(3342))& - &/(JVS(23757)) - XX(4400) = (X(4400)-JVS(1866)*XX(475)-JVS(3784)*XX(947)-JVS(15794)*XX(3457)-JVS(16612)*XX(3581))/(JVS(23765)) - XX(4401) = X(4401)/JVS(23777) - XX(4402) = (X(4402)-JVS(13825)*XX(3116)-JVS(20334)*XX(4035)-JVS(22330)*XX(4252)-JVS(22932)*XX(4312))/(JVS(23787)) - XX(4403) = X(4403)/JVS(23824) - XX(4404) = (X(4404)-JVS(9115)*XX(2171)-JVS(13524)*XX(3063))/(JVS(23844)) - XX(4405) = (X(4405)-JVS(4438)*XX(1110)-JVS(8320)*XX(1997)-JVS(10986)*XX(2579))/(JVS(23853)) - XX(4406) = X(4406)/JVS(23862) - XX(4407) = (X(4407)-JVS(13653)*XX(3085)-JVS(20120)*XX(4009))/(JVS(23874)) - XX(4408) = (X(4408)-JVS(13884)*XX(3125)-JVS(20700)*XX(4075))/(JVS(23884)) - XX(4409) = (X(4409)-JVS(4584)*XX(1146)-JVS(10947)*XX(2573)-JVS(15109)*XX(3355))/(JVS(23894)) - XX(4410) = (X(4410)-JVS(3149)*XX(789)-JVS(4374)*XX(1094)-JVS(7043)*XX(1732)-JVS(14836)*XX(3309)-JVS(23895)*XX(4409))& - &/(JVS(23905)) - XX(4411) = (X(4411)-JVS(487)*XX(126)-JVS(6290)*XX(1568)-JVS(9405)*XX(2235)-JVS(9511)*XX(2261))/(JVS(23914)) - XX(4412) = (X(4412)-JVS(4294)*XX(1074)-JVS(12552)*XX(2885)-JVS(23915)*XX(4411))/(JVS(23926)) - XX(4413) = (X(4413)-JVS(13897)*XX(3127)-JVS(20533)*XX(4054)-JVS(21890)*XX(4210)-JVS(22956)*XX(4314)-JVS(23825)& - &*XX(4403))/(JVS(23936)) - XX(4414) = (X(4414)-JVS(7638)*XX(1851)-JVS(10555)*XX(2494)-JVS(12111)*XX(2796))/(JVS(23945)) - XX(4415) = (X(4415)-JVS(3904)*XX(977)-JVS(15451)*XX(3402))/(JVS(23954)) - XX(4416) = (X(4416)-JVS(2271)*XX(584)-JVS(10206)*XX(2417)-JVS(16421)*XX(3556))/(JVS(23963)) - XX(4417) = (X(4417)-JVS(4792)*XX(1198)-JVS(14698)*XX(3282)-JVS(22187)*XX(4238))/(JVS(23975)) - XX(4418) = (X(4418)-JVS(2933)*XX(739)-JVS(6518)*XX(1618)-JVS(8421)*XX(2018)-JVS(14980)*XX(3337))/(JVS(23985)) - XX(4419) = (X(4419)-JVS(3780)*XX(946)-JVS(11691)*XX(2718))/(JVS(23997)) - XX(4420) = (X(4420)-JVS(12440)*XX(2861))/(JVS(24007)) - XX(4421) = (X(4421)-JVS(3836)*XX(960)-JVS(11883)*XX(2751))/(JVS(24020)) - XX(4422) = (X(4422)-JVS(295)*XX(73)-JVS(3346)*XX(838)-JVS(7019)*XX(1727)-JVS(16267)*XX(3535))/(JVS(24029)) - XX(4423) = (X(4423)-JVS(397)*XX(101)-JVS(657)*XX(163)-JVS(3888)*XX(973))/(JVS(24043)) - XX(4424) = (X(4424)-JVS(8893)*XX(2120)-JVS(12792)*XX(2929)-JVS(22075)*XX(4227))/(JVS(24054)) - XX(4425) = (X(4425)-JVS(4470)*XX(1118)-JVS(16735)*XX(3596))/(JVS(24063)) - XX(4426) = (X(4426)-JVS(128)*XX(26)-JVS(590)*XX(152)-JVS(5860)*XX(1464))/(JVS(24081)) - XX(4427) = (X(4427)-JVS(3330)*XX(834)-JVS(9640)*XX(2290)-JVS(13131)*XX(2988))/(JVS(24092)) - XX(4428) = (X(4428)-JVS(9893)*XX(2346)-JVS(12181)*XX(2811)-JVS(12496)*XX(2873))/(JVS(24101)) - XX(4429) = (X(4429)-JVS(5355)*XX(1338)-JVS(13499)*XX(3058))/(JVS(24112)) - XX(4430) = (X(4430)-JVS(4978)*XX(1244)-JVS(13569)*XX(3070))/(JVS(24124)) - XX(4431) = (X(4431)-JVS(948)*XX(215)-JVS(4934)*XX(1233)-JVS(11166)*XX(2613)-JVS(18120)*XX(3764))/(JVS(24136)) - XX(4432) = (X(4432)-JVS(6372)*XX(1588)-JVS(7410)*XX(1806)-JVS(9401)*XX(2234)-JVS(10587)*XX(2501))/(JVS(24146)) - XX(4433) = (X(4433)-JVS(5047)*XX(1261)-JVS(8515)*XX(2036)-JVS(12492)*XX(2872))/(JVS(24156)) - XX(4434) = (X(4434)-JVS(4892)*XX(1223)-JVS(15562)*XX(3417)-JVS(23826)*XX(4403))/(JVS(24165)) - XX(4435) = (X(4435)-JVS(5075)*XX(1268)-JVS(12967)*XX(2960))/(JVS(24176)) - XX(4436) = (X(4436)-JVS(9208)*XX(2191)-JVS(11452)*XX(2670)-JVS(13372)*XX(3033))/(JVS(24185)) - XX(4437) = (X(4437)-JVS(13738)*XX(3101)-JVS(20112)*XX(4008))/(JVS(24195)) - XX(4438) = (X(4438)-JVS(14029)*XX(3153)-JVS(20757)*XX(4082))/(JVS(24205)) - XX(4439) = (X(4439)-JVS(3362)*XX(842)-JVS(11009)*XX(2584))/(JVS(24215)) - XX(4440) = (X(4440)-JVS(3193)*XX(800)-JVS(9030)*XX(2152)-JVS(16268)*XX(3535))/(JVS(24224)) - XX(4441) = (X(4441)-JVS(9519)*XX(2263)-JVS(12465)*XX(2866))/(JVS(24237)) - XX(4442) = (X(4442)-JVS(1533)*XX(382)-JVS(6191)*XX(1546)-JVS(6716)*XX(1660)-JVS(8962)*XX(2136)-JVS(16878)*XX(3613))& - &/(JVS(24250)) - XX(4443) = (X(4443)-JVS(5676)*XX(1418)-JVS(14355)*XX(3218)-JVS(22509)*XX(4270))/(JVS(24262)) - XX(4444) = (X(4444)-JVS(13733)*XX(3100)-JVS(20015)*XX(3997)-JVS(22771)*XX(4296)-JVS(22877)*XX(4307)-JVS(24082)& - &*XX(4426))/(JVS(24272)) - XX(4445) = (X(4445)-JVS(10081)*XX(2388)-JVS(12298)*XX(2833))/(JVS(24282)) - XX(4446) = (X(4446)-JVS(2686)*XX(682)-JVS(6282)*XX(1566)-JVS(10249)*XX(2428))/(JVS(24291)) - XX(4447) = (X(4447)-JVS(6095)*XX(1522)-JVS(11435)*XX(2667)-JVS(15110)*XX(3355))/(JVS(24302)) - XX(4448) = (X(4448)-JVS(10409)*XX(2464)-JVS(17422)*XX(3679)-JVS(17688)*XX(3714)-JVS(17923)*XX(3742)-JVS(22343)& - &*XX(4253))/(JVS(24315)) - XX(4449) = (X(4449)-JVS(15936)*XX(3484))/(JVS(24327)) - XX(4450) = (X(4450)-JVS(4904)*XX(1226)-JVS(14822)*XX(3306)-JVS(22353)*XX(4254))/(JVS(24339)) - XX(4451) = (X(4451)-JVS(3712)*XX(929)-JVS(11468)*XX(2674)-JVS(22250)*XX(4244))/(JVS(24348)) - XX(4452) = (X(4452)-JVS(4310)*XX(1078)-JVS(10393)*XX(2460)-JVS(10691)*XX(2522))/(JVS(24358)) - XX(4453) = (X(4453)-JVS(13702)*XX(3093)-JVS(20218)*XX(4020))/(JVS(24368)) - XX(4454) = (X(4454)-JVS(14069)*XX(3162)-JVS(20552)*XX(4057)-JVS(22268)*XX(4246)-JVS(22850)*XX(4304)-JVS(24044)& - &*XX(4423))/(JVS(24378)) - XX(4455) = (X(4455)-JVS(4116)*XX(1030)-JVS(15347)*XX(3388)-JVS(23827)*XX(4403))/(JVS(24387)) - XX(4456) = (X(4456)-JVS(5848)*XX(1461)-JVS(11194)*XX(2619))/(JVS(24397)) - XX(4457) = (X(4457)-JVS(14083)*XX(3165)-JVS(20609)*XX(4063))/(JVS(24407)) - XX(4458) = (X(4458)-JVS(5508)*XX(1376)-JVS(15256)*XX(3375))/(JVS(24416)) - XX(4459) = (X(4459)-JVS(2868)*XX(725)-JVS(4518)*XX(1130)-JVS(6675)*XX(1652)-JVS(17095)*XX(3639))/(JVS(24425)) - XX(4460) = (X(4460)-JVS(5832)*XX(1457)-JVS(10253)*XX(2429)-JVS(11618)*XX(2705)-JVS(19459)*XX(3929))/(JVS(24436)) - XX(4461) = (X(4461)-JVS(4548)*XX(1137)-JVS(13588)*XX(3073))/(JVS(24447)) - XX(4462) = X(4462)/JVS(24456) - XX(4463) = (X(4463)-JVS(4178)*XX(1045)-JVS(15150)*XX(3362)-JVS(23828)*XX(4403))/(JVS(24465)) - XX(4464) = (X(4464)-JVS(4676)*XX(1169)-JVS(14919)*XX(3329)-JVS(16320)*XX(3541)-JVS(24045)*XX(4423))/(JVS(24474)) - XX(4465) = (X(4465)-JVS(4462)*XX(1116)-JVS(11140)*XX(2607))/(JVS(24484)) - XX(4466) = (X(4466)-JVS(13872)*XX(3123)-JVS(20625)*XX(4065)-JVS(22177)*XX(4237)-JVS(22606)*XX(4280))/(JVS(24494)) - XX(4467) = (X(4467)-JVS(3732)*XX(934)-JVS(15213)*XX(3370)-JVS(15901)*XX(3478))/(JVS(24503)) - XX(4468) = (X(4468)-JVS(4946)*XX(1236)-JVS(12352)*XX(2845))/(JVS(24513)) - XX(4469) = (X(4469)-JVS(3406)*XX(853)-JVS(13330)*XX(3026))/(JVS(24523)) - XX(4470) = (X(4470)-JVS(5455)*XX(1363)-JVS(9139)*XX(2176)-JVS(11005)*XX(2583))/(JVS(24533)) - XX(4471) = (X(4471)-JVS(13712)*XX(3095)-JVS(20318)*XX(4033)-JVS(22708)*XX(4291)-JVS(22726)*XX(4293))/(JVS(24543)) - XX(4472) = (X(4472)-JVS(4994)*XX(1248)-JVS(13601)*XX(3075)-JVS(13910)*XX(3128))/(JVS(24552)) - XX(4473) = (X(4473)-JVS(4494)*XX(1124)-JVS(8085)*XX(1948)-JVS(8222)*XX(1976)-JVS(15597)*XX(3422)-JVS(16279)*XX(3536))& - &/(JVS(24561)) - XX(4474) = (X(4474)-JVS(1027)*XX(239)-JVS(3050)*XX(766)-JVS(21252)*XX(4140)-JVS(24562)*XX(4473))/(JVS(24568)) - XX(4475) = (X(4475)-JVS(14779)*XX(3297)-JVS(23160)*XX(4333))/(JVS(24572)) - XX(4476) = (X(4476)-JVS(4136)*XX(1035)-JVS(9057)*XX(2158)-JVS(10329)*XX(2447)-JVS(14614)*XX(3266)-JVS(17248)*XX(3656))& - &/(JVS(24579)) - XX(4477) = (X(4477)-JVS(2520)*XX(643)-JVS(9034)*XX(2153)-JVS(19696)*XX(3958))/(JVS(24590)) - XX(4478) = (X(4478)-JVS(14112)*XX(3170)-JVS(23531)*XX(4376))/(JVS(24602)) - XX(4479) = (X(4479)-JVS(13966)*XX(3140)-JVS(20191)*XX(4016))/(JVS(24612)) - XX(4480) = (X(4480)-JVS(168)*XX(38)-JVS(4514)*XX(1129)-JVS(6537)*XX(1622)-JVS(16422)*XX(3556))/(JVS(24621)) - XX(4481) = (X(4481)-JVS(259)*XX(63)-JVS(3708)*XX(928)-JVS(6932)*XX(1710))/(JVS(24633)) - XX(4482) = (X(4482)-JVS(388)*XX(98)-JVS(664)*XX(164)-JVS(5431)*XX(1357))/(JVS(24652)) - XX(4483) = (X(4483)-JVS(2846)*XX(720)-JVS(6478)*XX(1609)-JVS(6483)*XX(1610)-JVS(7568)*XX(1836))/(JVS(24665)) - XX(4484) = (X(4484)-JVS(927)*XX(210)-JVS(6167)*XX(1540)-JVS(10656)*XX(2515)-JVS(20718)*XX(4077))/(JVS(24675)) - XX(4485) = (X(4485)-JVS(4652)*XX(1163)-JVS(5612)*XX(1402)-JVS(13112)*XX(2984)-JVS(17696)*XX(3715))/(JVS(24690)) - XX(4486) = (X(4486)-JVS(4174)*XX(1044)-JVS(13551)*XX(3067))/(JVS(24702)) - XX(4487) = (X(4487)-JVS(13846)*XX(3119)-JVS(20685)*XX(4073)-JVS(21794)*XX(4200)-JVS(22841)*XX(4303))/(JVS(24712)) - XX(4488) = (X(4488)-JVS(8596)*XX(2054)-JVS(17469)*XX(3685)-JVS(17582)*XX(3699)-JVS(18282)*XX(3783)-JVS(22011)& - &*XX(4221))/(JVS(24725)) - XX(4489) = (X(4489)-JVS(10189)*XX(2414)-JVS(12432)*XX(2859))/(JVS(24736)) - XX(4490) = (X(4490)-JVS(15937)*XX(3484))/(JVS(24752)) - XX(4491) = (X(4491)-JVS(20669)*XX(4071))/(JVS(24771)) - XX(4492) = (X(4492)-JVS(1219)*XX(293)-JVS(2352)*XX(604)-JVS(19393)*XX(3921)-JVS(19518)*XX(3936)-JVS(19572)*XX(3943)& - &-JVS(20834)*XX(4091)-JVS(20847)*XX(4092)-JVS(21803)*XX(4201))/(JVS(24778)) - XX(4493) = X(4493)/JVS(24798) - XX(4494) = (X(4494)-JVS(13801)*XX(3111)-JVS(20350)*XX(4037))/(JVS(24810)) - XX(4495) = (X(4495)-JVS(14012)*XX(3150)-JVS(20054)*XX(4001))/(JVS(24820)) - XX(4496) = (X(4496)-JVS(1425)*XX(351)-JVS(4836)*XX(1209)-JVS(14908)*XX(3327)-JVS(22761)*XX(4295))/(JVS(24830)) - XX(4497) = (X(4497)-JVS(2525)*XX(644)-JVS(8854)*XX(2111)-JVS(17773)*XX(3724))/(JVS(24843)) - XX(4498) = (X(4498)-JVS(5371)*XX(1342)-JVS(15220)*XX(3371))/(JVS(24852)) - XX(4499) = (X(4499)-JVS(13665)*XX(3087)-JVS(20617)*XX(4064)-JVS(22668)*XX(4287)-JVS(22780)*XX(4297)-JVS(23829)& - &*XX(4403))/(JVS(24862)) - XX(4500) = (X(4500)-JVS(1355)*XX(329)-JVS(3896)*XX(975)-JVS(11448)*XX(2669)-JVS(20562)*XX(4058))/(JVS(24871)) - XX(4501) = X(4501)/JVS(24885) - XX(4502) = (X(4502)-JVS(9373)*XX(2228)-JVS(10769)*XX(2538)-JVS(22137)*XX(4233))/(JVS(24894)) - XX(4503) = (X(4503)-JVS(3756)*XX(940)-JVS(13023)*XX(2968))/(JVS(24905)) - XX(4504) = (X(4504)-JVS(13723)*XX(3098)-JVS(20782)*XX(4085))/(JVS(24915)) - XX(4505) = (X(4505)-JVS(17780)*XX(3725)-JVS(17791)*XX(3726)-JVS(19586)*XX(3945))/(JVS(24922)) - XX(4506) = (X(4506)-JVS(5892)*XX(1472)-JVS(15052)*XX(3347))/(JVS(24931)) - XX(4507) = (X(4507)-JVS(339)*XX(85)-JVS(10522)*XX(2488))/(JVS(24999)) - XX(4508) = (X(4508)-JVS(9304)*XX(2212)-JVS(17204)*XX(3651))/(JVS(25015)) - XX(4509) = (X(4509)-JVS(13806)*XX(3112)-JVS(20062)*XX(4002)-JVS(22053)*XX(4225)-JVS(22717)*XX(4292)-JVS(25000)& - &*XX(4507))/(JVS(25022)) - XX(4510) = (X(4510)-JVS(3602)*XX(902)-JVS(11729)*XX(2724))/(JVS(25034)) - XX(4511) = (X(4511)-JVS(5239)*XX(1309)-JVS(16558)*XX(3574)-JVS(24653)*XX(4482))/(JVS(25043)) - XX(4512) = (X(4512)-JVS(1348)*XX(327)-JVS(15908)*XX(3479)-JVS(21020)*XX(4112))/(JVS(25050)) - XX(4513) = (X(4513)-JVS(6884)*XX(1698)-JVS(9246)*XX(2200)-JVS(10336)*XX(2448)-JVS(13314)*XX(3022))/(JVS(25057)) - XX(4514) = (X(4514)-JVS(14096)*XX(3167)-JVS(20478)*XX(4049)-JVS(21961)*XX(4217)-JVS(22459)*XX(4265)-JVS(25001)& - &*XX(4507))/(JVS(25067)) - XX(4515) = (X(4515)-JVS(4720)*XX(1180)-JVS(13322)*XX(3024))/(JVS(25077)) - XX(4516) = (X(4516)-JVS(8184)*XX(1969)-JVS(10735)*XX(2531)-JVS(12248)*XX(2824))/(JVS(25086)) - XX(4517) = (X(4517)-JVS(5311)*XX(1327)-JVS(12348)*XX(2844))/(JVS(25096)) - XX(4518) = (X(4518)-JVS(3566)*XX(893)-JVS(7400)*XX(1804)-JVS(12771)*XX(2925))/(JVS(25106)) - XX(4519) = (X(4519)-JVS(74)*XX(10)-JVS(4020)*XX(1006)-JVS(8353)*XX(2003))/(JVS(25117)) - XX(4520) = (X(4520)-JVS(4876)*XX(1219)-JVS(11754)*XX(2729)-JVS(15077)*XX(3350)-JVS(24485)*XX(4465))/(JVS(25127)) - XX(4521) = (X(4521)-JVS(3394)*XX(850)-JVS(13241)*XX(3007))/(JVS(25139)) - XX(4522) = (X(4522)-JVS(3692)*XX(924)-JVS(9748)*XX(2314)-JVS(11606)*XX(2702))/(JVS(25149)) - XX(4523) = (X(4523)-JVS(2017)*XX(519)-JVS(5912)*XX(1477)-JVS(12027)*XX(2778)-JVS(22911)*XX(4310))/(JVS(25159)) - XX(4524) = X(4524)/JVS(25173) - XX(4525) = (X(4525)-JVS(4616)*XX(1154)-JVS(10923)*XX(2567)-JVS(19697)*XX(3958)-JVS(24591)*XX(4477))/(JVS(25188)) - XX(4526) = (X(4526)-JVS(18)*XX(3)-JVS(17074)*XX(3638))/(JVS(25196)) - XX(4527) = (X(4527)-JVS(10513)*XX(2487))/(JVS(25203)) - XX(4528) = X(4528)/JVS(25210) - XX(4529) = (X(4529)-JVS(400)*XX(102)-JVS(6139)*XX(1533)-JVS(12043)*XX(2782)-JVS(15231)*XX(3372)-JVS(18030)*XX(3754))& - &/(JVS(25225)) - XX(4530) = X(4530)/JVS(25233) - XX(4531) = (X(4531)-JVS(13697)*XX(3092)-JVS(20735)*XX(4079)-JVS(21740)*XX(4195)-JVS(22532)*XX(4273))/(JVS(25244)) - XX(4532) = (X(4532)-JVS(5087)*XX(1271)-JVS(12395)*XX(2853))/(JVS(25255)) - XX(4533) = (X(4533)-JVS(10089)*XX(2390)-JVS(18021)*XX(3753)-JVS(20174)*XX(4014)-JVS(22802)*XX(4299))/(JVS(25268)) - XX(4534) = X(4534)/JVS(25279) - XX(4535) = (X(4535)-JVS(3109)*XX(780)-JVS(7290)*XX(1783)-JVS(17438)*XX(3681)-JVS(21541)*XX(4175)-JVS(24283)*XX(4445))& - &/(JVS(25289)) - XX(4536) = (X(4536)-JVS(11373)*XX(2654)-JVS(12100)*XX(2794))/(JVS(25303)) - XX(4537) = X(4537)/JVS(25316) - XX(4538) = (X(4538)-JVS(2774)*XX(704)-JVS(8637)*XX(2062))/(JVS(25326)) - XX(4539) = (X(4539)-JVS(5872)*XX(1467)-JVS(12244)*XX(2823))/(JVS(25338)) - XX(4540) = X(4540)/JVS(25356) - XX(4541) = (X(4541)-JVS(2254)*XX(580)-JVS(8303)*XX(1993)-JVS(9483)*XX(2254)-JVS(13392)*XX(3037)-JVS(16915)*XX(3617))& - &/(JVS(25365)) - XX(4542) = (X(4542)-JVS(6521)*XX(1619)-JVS(7227)*XX(1769)-JVS(7531)*XX(1828)-JVS(11800)*XX(2737)-JVS(14483)*XX(3242))& - &/(JVS(25374)) - XX(4543) = (X(4543)-JVS(3458)*XX(866)-JVS(12070)*XX(2788))/(JVS(25384)) - XX(4544) = (X(4544)-JVS(19)*XX(3))/(JVS(25396)) - XX(4545) = (X(4545)-JVS(1741)*XX(442)-JVS(1747)*XX(443)-JVS(4370)*XX(1093)-JVS(11405)*XX(2661)-JVS(18742)*XX(3845))& - &/(JVS(25411)) - XX(4546) = (X(4546)-JVS(14566)*XX(3255)-JVS(14972)*XX(3336)-JVS(16366)*XX(3547))/(JVS(25421)) - XX(4547) = X(4547)/JVS(25436) - XX(4548) = (X(4548)-JVS(4998)*XX(1249)-JVS(11377)*XX(2655))/(JVS(25448)) - XX(4549) = (X(4549)-JVS(3275)*XX(820)-JVS(8871)*XX(2115))/(JVS(25459)) - XX(4550) = (X(4550)-JVS(2301)*XX(592)-JVS(7654)*XX(1854))/(JVS(25471)) - XX(4551) = (X(4551)-JVS(20)*XX(3))/(JVS(25480)) - XX(4552) = (X(4552)-JVS(2887)*XX(729)-JVS(7195)*XX(1762))/(JVS(25492)) - XX(4553) = (X(4553)-JVS(8850)*XX(2110)-JVS(13306)*XX(3020))/(JVS(25503)) - XX(4554) = (X(4554)-JVS(4478)*XX(1120)-JVS(7785)*XX(1882)-JVS(9575)*XX(2276)-JVS(14571)*XX(3256)-JVS(16794)*XX(3603)& - &-JVS(18040)*XX(3755)-JVS(25504)*XX(4553))/(JVS(25512)) - XX(4555) = (X(4555)-JVS(7259)*XX(1776)-JVS(13645)*XX(3083)-JVS(23413)*XX(4364)-JVS(25211)*XX(4528)-JVS(25513)& - &*XX(4554))/(JVS(25518)) - XX(4556) = (X(4556)-JVS(21)*XX(3))/(JVS(25524)) - XX(4557) = (X(4557)-JVS(8940)*XX(2131)-JVS(12560)*XX(2887))/(JVS(25536)) - XX(4558) = (X(4558)-JVS(2807)*XX(711)-JVS(10497)*XX(2482)-JVS(14254)*XX(3196)-JVS(19367)*XX(3918)-JVS(21814)*XX(4202)& - &-JVS(25537)*XX(4557))/(JVS(25545)) - XX(4559) = X(4559)/JVS(25556) - XX(4560) = (X(4560)-JVS(2258)*XX(581)-JVS(10149)*XX(2404))/(JVS(25570)) - XX(4561) = (X(4561)-JVS(8346)*XX(2001)-JVS(10850)*XX(2553)-JVS(12193)*XX(2814)-JVS(14717)*XX(3284)-JVS(14973)*XX(3336)& - &-JVS(16367)*XX(3547)-JVS(25422)*XX(4546))/(JVS(25579)) - XX(4562) = (X(4562)-JVS(4776)*XX(1194)-JVS(8226)*XX(1977)-JVS(8367)*XX(2006)-JVS(11858)*XX(2747)-JVS(17705)*XX(3716))& - &/(JVS(25588)) - XX(4563) = (X(4563)-JVS(9791)*XX(2323)-JVS(10781)*XX(2540)-JVS(13821)*XX(3115)-JVS(16448)*XX(3559))/(JVS(25596)) - XX(4564) = X(4564)/JVS(25606) - XX(4565) = (X(4565)-JVS(7308)*XX(1787)-JVS(14618)*XX(3267)-JVS(16837)*XX(3608))/(JVS(25619)) - XX(4566) = (X(4566)-JVS(3101)*XX(778)-JVS(6199)*XX(1548)-JVS(7901)*XX(1908)-JVS(13880)*XX(3124)-JVS(22542)*XX(4274))& - &/(JVS(25626)) - XX(4567) = (X(4567)-JVS(962)*XX(219)-JVS(2882)*XX(728)-JVS(8675)*XX(2071)-JVS(9563)*XX(2273)-JVS(18693)*XX(3839))& - &/(JVS(25635)) - XX(4568) = (X(4568)-JVS(1905)*XX(487)-JVS(4132)*XX(1034)-JVS(15704)*XX(3438)-JVS(16520)*XX(3569)-JVS(19368)*XX(3918))& - &/(JVS(25643)) - XX(4569) = X(4569)/JVS(25657) - XX(4570) = (X(4570)-JVS(275)*XX(67)-JVS(17169)*XX(3647))/(JVS(25663)) - XX(4571) = (X(4571)-JVS(1305)*XX(316)-JVS(9220)*XX(2194)-JVS(9930)*XX(2355)-JVS(18247)*XX(3779))/(JVS(25671)) - XX(4572) = (X(4572)-JVS(5946)*XX(1485)-JVS(7756)*XX(1875)-JVS(11869)*XX(2749)-JVS(12173)*XX(2809)-JVS(21041)*XX(4115))& - &/(JVS(25679)) - XX(4573) = (X(4573)-JVS(2488)*XX(636)-JVS(5768)*XX(1441)-JVS(8159)*XX(1963)-JVS(12259)*XX(2826)-JVS(16290)*XX(3537)& - &-JVS(22543)*XX(4274))/(JVS(25686)) - XX(4574) = (X(4574)-JVS(4250)*XX(1063)-JVS(9984)*XX(2367)-JVS(14803)*XX(3302)-JVS(19503)*XX(3934)-JVS(19707)*XX(3959))& - &/(JVS(25693)) - XX(4575) = (X(4575)-JVS(2539)*XX(647)-JVS(4410)*XX(1103)-JVS(13777)*XX(3107)-JVS(13781)*XX(3108)-JVS(16819)*XX(3606))& - &/(JVS(25700)) - XX(4576) = (X(4576)-JVS(21771)*XX(4198))/(JVS(25711)) - XX(4577) = (X(4577)-JVS(3574)*XX(895)-JVS(4036)*XX(1010)-JVS(9644)*XX(2291)-JVS(15385)*XX(3393)-JVS(17967)*XX(3747))& - &/(JVS(25721)) - XX(4578) = (X(4578)-JVS(4880)*XX(1220)-JVS(6123)*XX(1529)-JVS(11084)*XX(2596)-JVS(16838)*XX(3608))/(JVS(25727)) - XX(4579) = (X(4579)-JVS(5211)*XX(1302)-JVS(7298)*XX(1785)-JVS(13610)*XX(3077)-JVS(19565)*XX(3942))/(JVS(25734)) - XX(4580) = (X(4580)-JVS(924)*XX(209)-JVS(4856)*XX(1214)-JVS(7645)*XX(1852)-JVS(11602)*XX(2701)-JVS(20949)*XX(4104))& - &/(JVS(25745)) - XX(4581) = (X(4581)-JVS(789)*XX(185)-JVS(6977)*XX(1719)-JVS(7592)*XX(1841)-JVS(9544)*XX(2269)-JVS(19437)*XX(3926))& - &/(JVS(25753)) - XX(4582) = (X(4582)-JVS(5548)*XX(1386)-JVS(7524)*XX(1827)-JVS(7989)*XX(1927)-JVS(14830)*XX(3308)-JVS(16329)*XX(3542))& - &/(JVS(25761)) - XX(4583) = (X(4583)-JVS(578)*XX(150)-JVS(6908)*XX(1704)-JVS(8112)*XX(1954)-JVS(14735)*XX(3288))/(JVS(25769)) - XX(4584) = (X(4584)-JVS(2193)*XX(564)-JVS(6845)*XX(1690)-JVS(7548)*XX(1832)-JVS(13613)*XX(3078)-JVS(21236)*XX(4138))& - &/(JVS(25776)) - XX(4585) = (X(4585)-JVS(2248)*XX(578)-JVS(7418)*XX(1808)-JVS(9576)*XX(2276)-JVS(10457)*XX(2473)-JVS(14262)*XX(3198)& - &-JVS(16795)*XX(3603)-JVS(25505)*XX(4553))/(JVS(25784)) - XX(4586) = (X(4586)-JVS(677)*XX(166)-JVS(1011)*XX(234)-JVS(6011)*XX(1501)-JVS(7542)*XX(1831)-JVS(13788)*XX(3109)& - &-JVS(17822)*XX(3730)-JVS(18966)*XX(3871))/(JVS(25791)) - XX(4587) = (X(4587)-JVS(8388)*XX(2011)-JVS(8917)*XX(2125)-JVS(15069)*XX(3349)-JVS(19427)*XX(3925))/(JVS(25799)) - XX(4588) = X(4588)/JVS(25808) - XX(4589) = (X(4589)-JVS(2316)*XX(595)-JVS(6815)*XX(1683)-JVS(7943)*XX(1917)-JVS(11654)*XX(2711)-JVS(16208)*XX(3526))& - &/(JVS(25820)) - XX(4590) = (X(4590)-JVS(3252)*XX(815)-JVS(8933)*XX(2129)-JVS(9094)*XX(2166)-JVS(10815)*XX(2547)-JVS(18049)*XX(3756))& - &/(JVS(25828)) - XX(4591) = (X(4591)-JVS(1819)*XX(461)-JVS(5828)*XX(1456)-JVS(14365)*XX(3220)-JVS(18357)*XX(3793)-JVS(20468)*XX(4048))& - &/(JVS(25845)) - XX(4592) = (X(4592)-JVS(9607)*XX(2283)-JVS(18358)*XX(3793)-JVS(20469)*XX(4048))/(JVS(25858)) - XX(4593) = (X(4593)-JVS(9584)*XX(2278)-JVS(10104)*XX(2394)-JVS(15433)*XX(3399)-JVS(19023)*XX(3878))/(JVS(25866)) - XX(4594) = (X(4594)-JVS(2619)*XX(666)-JVS(6369)*XX(1587)-JVS(7327)*XX(1790)-JVS(14856)*XX(3314)-JVS(21496)*XX(4170))& - &/(JVS(25874)) - XX(4595) = (X(4595)-JVS(220)*XX(51)-JVS(7735)*XX(1870)-JVS(9507)*XX(2260)-JVS(16098)*XX(3510)-JVS(21901)*XX(4211))& - &/(JVS(25882)) - XX(4596) = (X(4596)-JVS(4479)*XX(1120)-JVS(7457)*XX(1815)-JVS(7837)*XX(1894)-JVS(14492)*XX(3243)-JVS(18041)*XX(3755))& - &/(JVS(25890)) - XX(4597) = (X(4597)-JVS(2477)*XX(633)-JVS(5660)*XX(1414)-JVS(9834)*XX(2332)-JVS(12929)*XX(2953)-JVS(20950)*XX(4104))& - &/(JVS(25899)) - XX(4598) = (X(4598)-JVS(3700)*XX(926)-JVS(7764)*XX(1877)-JVS(10304)*XX(2441)-JVS(14739)*XX(3289)-JVS(16461)*XX(3561))& - &/(JVS(25906)) - XX(4599) = (X(4599)-JVS(1266)*XX(305)-JVS(3824)*XX(957)-JVS(10510)*XX(2486)-JVS(13010)*XX(2966)-JVS(15971)*XX(3490)& - &-JVS(16778)*XX(3601)-JVS(16949)*XX(3620)-JVS(23444)*XX(4366))/(JVS(25914)) - XX(4600) = (X(4600)-JVS(2506)*XX(640)-JVS(18454)*XX(3806)-JVS(20727)*XX(4078)-JVS(20827)*XX(4090)-JVS(20848)*XX(4092)& - &-JVS(20877)*XX(4097)-JVS(21292)*XX(4146)-JVS(21332)*XX(4151)-JVS(21647)*XX(4185)-JVS(21659)*XX(4186)& - &-JVS(22208)*XX(4240)-JVS(22469)*XX(4266)-JVS(22824)*XX(4301)-JVS(22832)*XX(4302)-JVS(25412)*XX(4545))& - &/(JVS(25920)) - XX(4601) = (X(4601)-JVS(1872)*XX(477)-JVS(15909)*XX(3479)-JVS(21272)*XX(4143)-JVS(23018)*XX(4320))/(JVS(25924)) - XX(4602) = X(4602)/JVS(25961) - XX(4603) = (X(4603)-JVS(7255)*XX(1775)-JVS(17903)*XX(3740)-JVS(21435)*XX(4163)-JVS(22480)*XX(4267)-JVS(22890)*XX(4308)& - &-JVS(23747)*XX(4398)-JVS(25962)*XX(4602))/(JVS(25983)) - XX(4604) = (X(4604)-JVS(14280)*XX(3202)-JVS(17205)*XX(3651)-JVS(23161)*XX(4333))/(JVS(25989)) - XX(4605) = (X(4605)-JVS(1661)*XX(419)-JVS(2842)*XX(719)-JVS(18897)*XX(3863)-JVS(18926)*XX(3867)-JVS(19548)*XX(3940)& - &-JVS(19993)*XX(3994)-JVS(21279)*XX(4144)-JVS(21307)*XX(4148))/(JVS(25993)) - XX(4606) = (X(4606)-JVS(14281)*XX(3202)-JVS(17206)*XX(3651)-JVS(23162)*XX(4333))/(JVS(25997)) - XX(4607) = (X(4607)-JVS(4482)*XX(1121)-JVS(7218)*XX(1767)-JVS(9997)*XX(2370)-JVS(12701)*XX(2912)-JVS(18059)*XX(3757)& - &-JVS(22032)*XX(4223))/(JVS(26004)) - XX(4608) = (X(4608)-JVS(4483)*XX(1121)-JVS(8658)*XX(2067)-JVS(8949)*XX(2133)-JVS(12373)*XX(2849)-JVS(22033)*XX(4223))& - &/(JVS(26013)) - XX(4609) = (X(4609)-JVS(5223)*XX(1305)-JVS(7717)*XX(1867)-JVS(12208)*XX(2817)-JVS(15861)*XX(3472)-JVS(19205)*XX(3900)& - &-JVS(21985)*XX(4219)-JVS(23463)*XX(4368))/(JVS(26020)) - XX(4610) = (X(4610)-JVS(1530)*XX(381)-JVS(4640)*XX(1160)-JVS(8102)*XX(1952)-JVS(11679)*XX(2716)-JVS(15476)*XX(3405)& - &-JVS(19808)*XX(3972)-JVS(20585)*XX(4060)-JVS(22021)*XX(4222)-JVS(22119)*XX(4231))/(JVS(26027)) - XX(4611) = (X(4611)-JVS(1278)*XX(309)-JVS(4254)*XX(1064)-JVS(11912)*XX(2757)-JVS(16941)*XX(3619)-JVS(21986)*XX(4219))& - &/(JVS(26036)) - XX(4612) = (X(4612)-JVS(1994)*XX(512)-JVS(6416)*XX(1597)-JVS(11949)*XX(2764)-JVS(13067)*XX(2976)-JVS(13911)*XX(3128))& - &/(JVS(26048)) - XX(4613) = (X(4613)-JVS(3590)*XX(899)-JVS(11417)*XX(2663)-JVS(13912)*XX(3128))/(JVS(26059)) - XX(4614) = (X(4614)-JVS(1859)*XX(473)-JVS(6398)*XX(1593)-JVS(11421)*XX(2664)-JVS(12177)*XX(2810)-JVS(13913)*XX(3128))& - &/(JVS(26071)) - XX(4615) = (X(4615)-JVS(10525)*XX(2489)-JVS(14468)*XX(3241)-JVS(14504)*XX(3245)-JVS(25212)*XX(4528))/(JVS(26078)) - XX(4616) = (X(4616)-JVS(1655)*XX(417)-JVS(4572)*XX(1143)-JVS(8695)*XX(2075)-JVS(8701)*XX(2076)-JVS(14043)*XX(3156)& - &-JVS(16942)*XX(3619)-JVS(17399)*XX(3676)-JVS(21148)*XX(4127)-JVS(22120)*XX(4231)-JVS(25883)*XX(4595)& - &-JVS(26049)*XX(4612)-JVS(26060)*XX(4613)-JVS(26072)*XX(4614))/(JVS(26084)) - XX(4617) = (X(4617)-JVS(4986)*XX(1246)-JVS(16197)*XX(3524)-JVS(19755)*XX(3965)-JVS(23590)*XX(4383))/(JVS(26089)) - XX(4618) = X(4618)/JVS(26107) - XX(4619) = (X(4619)-JVS(9567)*XX(2274)-JVS(17665)*XX(3711)-JVS(18412)*XX(3800)-JVS(20290)*XX(4029)-JVS(23573)*XX(4381)& - &-JVS(25304)*XX(4536)-JVS(25963)*XX(4602))/(JVS(26127)) - XX(4620) = (X(4620)-JVS(7772)*XX(1879)-JVS(11712)*XX(2721)-JVS(25964)*XX(4602))/(JVS(26138)) - XX(4621) = (X(4621)-JVS(22)*XX(3)-JVS(236)*XX(56))/(JVS(26146)) - XX(4622) = (X(4622)-JVS(2389)*XX(613)-JVS(4378)*XX(1095)-JVS(14868)*XX(3317))/(JVS(26171)) - XX(4623) = (X(4623)-JVS(1512)*XX(376)-JVS(5796)*XX(1448)-JVS(12344)*XX(2843))/(JVS(26180)) - XX(4624) = (X(4624)-JVS(3390)*XX(849)-JVS(4756)*XX(1189)-JVS(10908)*XX(2564)-JVS(15173)*XX(3365)-JVS(21179)*XX(4131))& - &/(JVS(26195)) - XX(4625) = (X(4625)-JVS(10466)*XX(2475)-JVS(16001)*XX(3495)-JVS(16862)*XX(3611))/(JVS(26204)) - XX(4626) = (X(4626)-JVS(3342)*XX(837)-JVS(5267)*XX(1316)-JVS(13509)*XX(3060)-JVS(24147)*XX(4432))/(JVS(26214)) - XX(4627) = (X(4627)-JVS(5999)*XX(1498)-JVS(10881)*XX(2560)-JVS(22997)*XX(4318))/(JVS(26223)) - XX(4628) = (X(4628)-JVS(4704)*XX(1176)-JVS(5026)*XX(1256)-JVS(11241)*XX(2630))/(JVS(26232)) - XX(4629) = (X(4629)-JVS(1030)*XX(240)-JVS(3374)*XX(845)-JVS(12368)*XX(2848))/(JVS(26242)) - XX(4630) = X(4630)/JVS(26252) - XX(4631) = (X(4631)-JVS(3812)*XX(954)-JVS(13473)*XX(3053)-JVS(21542)*XX(4175)-JVS(21705)*XX(4191))/(JVS(26265)) - XX(4632) = (X(4632)-JVS(14218)*XX(3190)-JVS(20592)*XX(4061)-JVS(22259)*XX(4245)-JVS(23830)*XX(4403)-JVS(24166)& - &*XX(4434)-JVS(25002)*XX(4507))/(JVS(26276)) - XX(4633) = (X(4633)-JVS(5018)*XX(1254)-JVS(5928)*XX(1481)-JVS(11249)*XX(2632))/(JVS(26286)) - XX(4634) = (X(4634)-JVS(1728)*XX(438)-JVS(6071)*XX(1516)-JVS(12540)*XX(2882))/(JVS(26295)) - XX(4635) = (X(4635)-JVS(3634)*XX(910)-JVS(4696)*XX(1174)-JVS(12718)*XX(2915))/(JVS(26305)) - XX(4636) = (X(4636)-JVS(1971)*XX(506)-JVS(3740)*XX(936)-JVS(12023)*XX(2777))/(JVS(26314)) - XX(4637) = (X(4637)-JVS(17560)*XX(3696)-JVS(18181)*XX(3772)-JVS(18193)*XX(3773))/(JVS(26322)) - XX(4638) = (X(4638)-JVS(1034)*XX(241)-JVS(4990)*XX(1247)-JVS(11090)*XX(2597)-JVS(14644)*XX(3270)-JVS(17606)*XX(3703)& - &-JVS(22968)*XX(4315))/(JVS(26332)) - XX(4639) = (X(4639)-JVS(13814)*XX(3114)-JVS(20242)*XX(4023)-JVS(21722)*XX(4193)-JVS(21909)*XX(4212)-JVS(23141)& - &*XX(4331))/(JVS(26342)) - XX(4640) = (X(4640)-JVS(12162)*XX(2807)-JVS(12272)*XX(2828))/(JVS(26352)) - XX(4641) = (X(4641)-JVS(3680)*XX(921)-JVS(3840)*XX(961)-JVS(11294)*XX(2640))/(JVS(26362)) - XX(4642) = (X(4642)-JVS(997)*XX(230)-JVS(3948)*XX(988)-JVS(12065)*XX(2787))/(JVS(26372)) - XX(4643) = (X(4643)-JVS(3546)*XX(888)-JVS(15295)*XX(3381)-JVS(23142)*XX(4331))/(JVS(26381)) - XX(4644) = (X(4644)-JVS(2897)*XX(731)-JVS(10321)*XX(2445)-JVS(20951)*XX(4104))/(JVS(26396)) - XX(4645) = (X(4645)-JVS(3382)*XX(847)-JVS(7801)*XX(1886)-JVS(9985)*XX(2367)-JVS(11706)*XX(2720)-JVS(19708)*XX(3959))& - &/(JVS(26405)) - XX(4646) = (X(4646)-JVS(2280)*XX(586)-JVS(5351)*XX(1337)-JVS(8909)*XX(2123)-JVS(10721)*XX(2528)-JVS(16904)*XX(3616))& - &/(JVS(26413)) - XX(4647) = (X(4647)-JVS(4495)*XX(1124)-JVS(7976)*XX(1924)-JVS(14056)*XX(3159)-JVS(15733)*XX(3444)-JVS(16280)*XX(3536))& - &/(JVS(26423)) - XX(4648) = (X(4648)-JVS(9296)*XX(2210)-JVS(13063)*XX(2975)-JVS(16870)*XX(3612)-JVS(22442)*XX(4263))/(JVS(26434)) - XX(4649) = (X(4649)-JVS(4840)*XX(1210)-JVS(5672)*XX(1417)-JVS(12943)*XX(2955)-JVS(25058)*XX(4513))/(JVS(26444)) - XX(4650) = (X(4650)-JVS(18103)*XX(3762)-JVS(18200)*XX(3774)-JVS(18212)*XX(3775))/(JVS(26452)) - XX(4651) = X(4651)/JVS(26465) - XX(4652) = (X(4652)-JVS(1553)*XX(388)-JVS(5347)*XX(1336)-JVS(14852)*XX(3313)-JVS(17575)*XX(3698)-JVS(21952)*XX(4216))& - &/(JVS(26478)) - XX(4653) = (X(4653)-JVS(3302)*XX(827)-JVS(5636)*XX(1408)-JVS(13088)*XX(2980)-JVS(17096)*XX(3639)-JVS(24426)*XX(4459))& - &/(JVS(26487)) - XX(4654) = (X(4654)-JVS(5483)*XX(1370)-JVS(5640)*XX(1409)-JVS(12421)*XX(2857)-JVS(22923)*XX(4311))/(JVS(26497)) - XX(4655) = (X(4655)-JVS(3470)*XX(869)-JVS(15157)*XX(3363)-JVS(23143)*XX(4331))/(JVS(26506)) - XX(4656) = (X(4656)-JVS(3586)*XX(898)-JVS(5099)*XX(1274)-JVS(11357)*XX(2650))/(JVS(26516)) - XX(4657) = (X(4657)-JVS(3554)*XX(890)-JVS(7752)*XX(1874)-JVS(14446)*XX(3236))/(JVS(26525)) - XX(4658) = (X(4658)-JVS(3350)*XX(839)-JVS(6079)*XX(1518)-JVS(8040)*XX(1939))/(JVS(26538)) - XX(4659) = (X(4659)-JVS(3286)*XX(823)-JVS(5395)*XX(1348)-JVS(10695)*XX(2523)-JVS(14981)*XX(3337)-JVS(23986)*XX(4418))& - &/(JVS(26548)) - XX(4660) = (X(4660)-JVS(3728)*XX(933)-JVS(4068)*XX(1018)-JVS(10714)*XX(2527)-JVS(15061)*XX(3348))/(JVS(26557)) - XX(4661) = (X(4661)-JVS(7222)*XX(1768)-JVS(14796)*XX(3301))/(JVS(26566)) - XX(4662) = (X(4662)-JVS(1664)*XX(420)-JVS(4218)*XX(1055)-JVS(13075)*XX(2978))/(JVS(26576)) - XX(4663) = (X(4663)-JVS(14024)*XX(3152)-JVS(20677)*XX(4072)-JVS(22128)*XX(4232)-JVS(23831)*XX(4403)-JVS(24388)& - &*XX(4455)-JVS(25003)*XX(4507))/(JVS(26587)) - XX(4664) = (X(4664)-JVS(3430)*XX(859)-JVS(5772)*XX(1442)-JVS(11270)*XX(2636))/(JVS(26604)) - XX(4665) = (X(4665)-JVS(1772)*XX(449)-JVS(5167)*XX(1291)-JVS(13326)*XX(3025))/(JVS(26613)) - XX(4666) = (X(4666)-JVS(7200)*XX(1763))/(JVS(26627)) - XX(4667) = (X(4667)-JVS(6420)*XX(1598)-JVS(7186)*XX(1760)-JVS(11668)*XX(2714)-JVS(14454)*XX(3238)-JVS(18873)*XX(3860)& - &-JVS(25965)*XX(4602))/(JVS(26641)) - XX(4668) = (X(4668)-JVS(23)*XX(3)-JVS(12047)*XX(2783))/(JVS(26649)) - XX(4669) = (X(4669)-JVS(1567)*XX(392)-JVS(2356)*XX(605)-JVS(10428)*XX(2467)-JVS(14335)*XX(3214)-JVS(21677)*XX(4188))& - &/(JVS(26661)) - XX(4670) = (X(4670)-JVS(13976)*XX(3142)-JVS(20104)*XX(4007)-JVS(21713)*XX(4192)-JVS(22988)*XX(4317)-JVS(23144)& - &*XX(4331))/(JVS(26671)) - XX(4671) = (X(4671)-JVS(13851)*XX(3120)-JVS(20133)*XX(4011)-JVS(22859)*XX(4305)-JVS(24853)*XX(4498)-JVS(25004)& - &*XX(4507))/(JVS(26682)) - XX(4672) = (X(4672)-JVS(1649)*XX(415)-JVS(4648)*XX(1162)-JVS(9086)*XX(2164)-JVS(17874)*XX(3736)-JVS(17881)*XX(3737)& - &-JVS(24592)*XX(4477)-JVS(25189)*XX(4525))/(JVS(26696)) - XX(4673) = (X(4673)-JVS(3418)*XX(856)-JVS(7955)*XX(1920)-JVS(10939)*XX(2571))/(JVS(26709)) - XX(4674) = (X(4674)-JVS(6330)*XX(1578)-JVS(11527)*XX(2686)-JVS(16588)*XX(3578)-JVS(19369)*XX(3918))/(JVS(26718)) - XX(4675) = (X(4675)-JVS(6603)*XX(1636)-JVS(8098)*XX(1951)-JVS(11112)*XX(2601)-JVS(12509)*XX(2875)-JVS(19653)*XX(3953)& - &-JVS(25966)*XX(4602))/(JVS(26729)) - XX(4676) = (X(4676)-JVS(14213)*XX(3189)-JVS(20369)*XX(4039)-JVS(21833)*XX(4204)-JVS(24932)*XX(4506)-JVS(25005)& - &*XX(4507))/(JVS(26740)) - XX(4677) = (X(4677)-JVS(24)*XX(3)-JVS(12048)*XX(2783))/(JVS(26748)) - XX(4678) = (X(4678)-JVS(25)*XX(3)-JVS(16916)*XX(3617)-JVS(17075)*XX(3638))/(JVS(26755)) - XX(4679) = (X(4679)-JVS(1154)*XX(275)-JVS(3800)*XX(951)-JVS(11430)*XX(2666)-JVS(14329)*XX(3213)-JVS(18330)*XX(3789)& - &-JVS(23010)*XX(4319))/(JVS(26765)) - XX(4680) = (X(4680)-JVS(5516)*XX(1378)-JVS(5732)*XX(1432)-JVS(11456)*XX(2671))/(JVS(26775)) - XX(4681) = (X(4681)-JVS(1453)*XX(360)-JVS(5002)*XX(1250)-JVS(14892)*XX(3323)-JVS(17931)*XX(3743)-JVS(22066)*XX(4226))& - &/(JVS(26785)) - XX(4682) = (X(4682)-JVS(13981)*XX(3143)-JVS(20377)*XX(4040)-JVS(22686)*XX(4289)-JVS(23832)*XX(4403)-JVS(24466)& - &*XX(4463)-JVS(25006)*XX(4507))/(JVS(26796)) - XX(4683) = (X(4683)-JVS(6543)*XX(1623)-JVS(8880)*XX(2117)-JVS(10877)*XX(2559)-JVS(11329)*XX(2645)-JVS(19816)*XX(3973)& - &-JVS(25967)*XX(4602))/(JVS(26806)) - XX(4684) = (X(4684)-JVS(3656)*XX(915)-JVS(4334)*XX(1084)-JVS(12651)*XX(2904))/(JVS(26815)) - XX(4685) = (X(4685)-JVS(5199)*XX(1299)-JVS(5323)*XX(1330)-JVS(12899)*XX(2948))/(JVS(26825)) - XX(4686) = (X(4686)-JVS(5900)*XX(1474)-JVS(12031)*XX(2779)-JVS(16803)*XX(3604)-JVS(25385)*XX(4543))/(JVS(26838)) - XX(4687) = (X(4687)-JVS(444)*XX(115)-JVS(1429)*XX(352)-JVS(8121)*XX(1956)-JVS(16804)*XX(3604)-JVS(25386)*XX(4543))& - &/(JVS(26852)) - XX(4688) = (X(4688)-JVS(8089)*XX(1949)-JVS(14550)*XX(3252))/(JVS(26862)) - XX(4689) = (X(4689)-JVS(8452)*XX(2025)-JVS(14633)*XX(3269))/(JVS(26872)) - XX(4690) = (X(4690)-JVS(14074)*XX(3163)-JVS(20096)*XX(4006)-JVS(22789)*XX(4298)-JVS(23955)*XX(4415)-JVS(25007)& - &*XX(4507))/(JVS(26883)) - XX(4691) = (X(4691)-JVS(26)*XX(3)-JVS(16917)*XX(3617))/(JVS(26890)) - XX(4692) = (X(4692)-JVS(3760)*XX(941)-JVS(5616)*XX(1403)-JVS(10931)*XX(2569))/(JVS(26900)) - XX(4693) = X(4693)/JVS(26972) - XX(4694) = (X(4694)-JVS(18127)*XX(3765)-JVS(26973)*XX(4693))/(JVS(27004)) - XX(4695) = (X(4695)-JVS(4740)*XX(1185)-JVS(12105)*XX(2795)-JVS(13430)*XX(3044)-JVS(16172)*XX(3520))/(JVS(27012)) - XX(4696) = (X(4696)-JVS(671)*XX(165)-JVS(1419)*XX(349)-JVS(7138)*XX(1751)-JVS(9580)*XX(2277)-JVS(18798)*XX(3851)& - &-JVS(19951)*XX(3989)-JVS(25078)*XX(4515))/(JVS(27020)) - XX(4697) = (X(4697)-JVS(2610)*XX(664)-JVS(4764)*XX(1191)-JVS(6464)*XX(1607)-JVS(9233)*XX(2197)-JVS(18257)*XX(3780))& - &/(JVS(27028)) - XX(4698) = (X(4698)-JVS(2463)*XX(630)-JVS(6351)*XX(1582)-JVS(14300)*XX(3207)-JVS(19140)*XX(3892))/(JVS(27037)) - XX(4699) = (X(4699)-JVS(2682)*XX(681)-JVS(4668)*XX(1167)-JVS(14996)*XX(3339)-JVS(15000)*XX(3340)-JVS(16811)*XX(3605))& - &/(JVS(27044)) - XX(4700) = (X(4700)-JVS(8667)*XX(2069)-JVS(14141)*XX(3175)-JVS(14624)*XX(3268)-JVS(15671)*XX(3432)-JVS(19099)*XX(3887)& - &-JVS(19108)*XX(3888))/(JVS(27052)) - XX(4701) = (X(4701)-JVS(2690)*XX(683)-JVS(6047)*XX(1510)-JVS(15118)*XX(3356)-JVS(15122)*XX(3357)-JVS(16666)*XX(3588))& - &/(JVS(27059)) - XX(4702) = (X(4702)-JVS(8044)*XX(1940)-JVS(8659)*XX(2067)-JVS(15264)*XX(3376)-JVS(18715)*XX(3842)-JVS(22034)*XX(4223))& - &/(JVS(27068)) - XX(4703) = (X(4703)-JVS(2240)*XX(576)-JVS(4366)*XX(1092)-JVS(16491)*XX(3565)-JVS(25280)*XX(4534))/(JVS(27074)) - XX(4704) = (X(4704)-JVS(2555)*XX(651)-JVS(5295)*XX(1323)-JVS(9479)*XX(2253)-JVS(13099)*XX(2982)-JVS(18258)*XX(3780))& - &/(JVS(27080)) - XX(4705) = (X(4705)-JVS(8707)*XX(2077)-JVS(15310)*XX(3383)-JVS(16309)*XX(3540))/(JVS(27087)) - XX(4706) = (X(4706)-JVS(7014)*XX(1726)-JVS(13708)*XX(3094)-JVS(15780)*XX(3455)-JVS(23071)*XX(4325))/(JVS(27094)) - XX(4707) = (X(4707)-JVS(3042)*XX(764)-JVS(4194)*XX(1049)-JVS(14149)*XX(3176)-JVS(14153)*XX(3177)-JVS(16551)*XX(3573)& - &-JVS(25437)*XX(4547))/(JVS(27101)) - XX(4708) = X(4708)/JVS(27117) - XX(4709) = (X(4709)-JVS(3036)*XX(762)-JVS(6179)*XX(1543)-JVS(9552)*XX(2271)-JVS(10895)*XX(2562)-JVS(16375)*XX(3548)& - &-JVS(24113)*XX(4429))/(JVS(27129)) - XX(4710) = X(4710)/JVS(27146) - XX(4711) = (X(4711)-JVS(8117)*XX(1955)-JVS(14276)*XX(3201)-JVS(16125)*XX(3514)-JVS(16381)*XX(3549)-JVS(22086)& - &*XX(4228))/(JVS(27154)) - XX(4712) = (X(4712)-JVS(2639)*XX(671)-JVS(3864)*XX(967)-JVS(9446)*XX(2245)-JVS(11069)*XX(2594)-JVS(16346)*XX(3544)& - &-JVS(24021)*XX(4421))/(JVS(27161)) - XX(4713) = (X(4713)-JVS(2402)*XX(616)-JVS(5788)*XX(1446)-JVS(8913)*XX(2124)-JVS(11308)*XX(2642)-JVS(16186)*XX(3522)& - &-JVS(24448)*XX(4461))/(JVS(27168)) - XX(4714) = (X(4714)-JVS(9675)*XX(2297)-JVS(10185)*XX(2413)-JVS(15570)*XX(3418)-JVS(17863)*XX(3735)-JVS(19678)*XX(3956)& - &-JVS(19746)*XX(3964)-JVS(26108)*XX(4618))/(JVS(27177)) - XX(4715) = (X(4715)-JVS(3210)*XX(804)-JVS(6111)*XX(1526)-JVS(9826)*XX(2330)-JVS(11281)*XX(2638)-JVS(15991)*XX(3493)& - &-JVS(25256)*XX(4532))/(JVS(27184)) - XX(4716) = (X(4716)-JVS(3219)*XX(807)-JVS(4544)*XX(1136)-JVS(9178)*XX(2185)-JVS(13252)*XX(3009)-JVS(16062)*XX(3504)& - &-JVS(24177)*XX(4435))/(JVS(27191)) - XX(4717) = (X(4717)-JVS(22998)*XX(4318)-JVS(26224)*XX(4627))/(JVS(27201)) - XX(4718) = (X(4718)-JVS(3105)*XX(779)-JVS(5664)*XX(1415)-JVS(15134)*XX(3359)-JVS(15138)*XX(3360)-JVS(16886)*XX(3614))& - &/(JVS(27208)) - XX(4719) = (X(4719)-JVS(8867)*XX(2114)-JVS(9887)*XX(2344)-JVS(15103)*XX(3354)-JVS(19236)*XX(3904))/(JVS(27218)) - XX(4720) = (X(4720)-JVS(3146)*XX(788)-JVS(4060)*XX(1016)-JVS(14723)*XX(3285)-JVS(15556)*XX(3416)-JVS(16573)*XX(3576)& - &-JVS(27118)*XX(4708))/(JVS(27225)) - XX(4721) = X(4721)/JVS(27253) - XX(4722) = (X(4722)-JVS(3575)*XX(895)-JVS(5307)*XX(1326)-JVS(9957)*XX(2361)-JVS(14320)*XX(3212)-JVS(17968)*XX(3747))& - &/(JVS(27265)) - XX(4723) = (X(4723)-JVS(9980)*XX(2366)-JVS(14057)*XX(3159)-JVS(15165)*XX(3364)-JVS(19793)*XX(3970)-JVS(23258)& - &*XX(4345))/(JVS(27273)) - XX(4724) = (X(4724)-JVS(2492)*XX(637)-JVS(7940)*XX(1916)-JVS(8719)*XX(2080)-JVS(23316)*XX(4352))/(JVS(27283)) - XX(4725) = (X(4725)-JVS(2947)*XX(742)-JVS(4148)*XX(1038)-JVS(14888)*XX(3322)-JVS(15518)*XX(3411)-JVS(16854)*XX(3610))& - &/(JVS(27290)) - XX(4726) = (X(4726)-JVS(5824)*XX(1455)-JVS(15483)*XX(3406)-JVS(18571)*XX(3821)-JVS(23100)*XX(4328))/(JVS(27302)) - XX(4727) = (X(4727)-JVS(3237)*XX(811)-JVS(4644)*XX(1161)-JVS(14650)*XX(3271)-JVS(15039)*XX(3345)-JVS(16528)*XX(3570))& - &/(JVS(27309)) - XX(4728) = X(4728)/JVS(27324) - XX(4729) = (X(4729)-JVS(26816)*XX(4684))/(JVS(27352)) - XX(4730) = (X(4730)-JVS(2614)*XX(665)-JVS(13453)*XX(3049)-JVS(17445)*XX(3682)-JVS(22199)*XX(4239))/(JVS(27360)) - XX(4731) = (X(4731)-JVS(8727)*XX(2082)-JVS(11598)*XX(2700)-JVS(21543)*XX(4175)-JVS(23115)*XX(4329))/(JVS(27369)) - XX(4732) = (X(4732)-JVS(6637)*XX(1644)-JVS(8859)*XX(2112)-JVS(15802)*XX(3459)-JVS(15931)*XX(3483)-JVS(16658)*XX(3587)& - &-JVS(25234)*XX(4530))/(JVS(27375)) - XX(4733) = (X(4733)-JVS(887)*XX(202)-JVS(1038)*XX(242)-JVS(8171)*XX(1966)-JVS(9102)*XX(2168)-JVS(18999)*XX(3875)& - &-JVS(19770)*XX(3967))/(JVS(27383)) - XX(4734) = (X(4734)-JVS(458)*XX(118)-JVS(3856)*XX(965)-JVS(6526)*XX(1620)-JVS(17446)*XX(3682)-JVS(22200)*XX(4239))& - &/(JVS(27393)) - XX(4735) = (X(4735)-JVS(2294)*XX(590)-JVS(4816)*XX(1204)-JVS(9548)*XX(2270)-JVS(11038)*XX(2589)-JVS(18078)*XX(3759))& - &/(JVS(27399)) - XX(4736) = (X(4736)-JVS(19579)*XX(3944))/(JVS(27410)) - XX(4737) = X(4737)/JVS(27421) - XX(4738) = (X(4738)-JVS(1975)*XX(507)-JVS(5820)*XX(1454)-JVS(12039)*XX(2781)-JVS(20412)*XX(4043))/(JVS(27432)) - XX(4739) = (X(4739)-JVS(5983)*XX(1494)-JVS(8188)*XX(1970)-JVS(12670)*XX(2907))/(JVS(27444)) - XX(4740) = (X(4740)-JVS(4342)*XX(1086)-JVS(7210)*XX(1765)-JVS(8584)*XX(2051))/(JVS(27458)) - XX(4741) = (X(4741)-JVS(27)*XX(3))/(JVS(27470)) - XX(4742) = (X(4742)-JVS(10258)*XX(2430)-JVS(11976)*XX(2769))/(JVS(27483)) - XX(4743) = (X(4743)-JVS(10121)*XX(2398)-JVS(17889)*XX(3738)-JVS(18315)*XX(3787)-JVS(18528)*XX(3816)-JVS(19902)& - &*XX(3983)-JVS(20791)*XX(4086)-JVS(21973)*XX(4218)-JVS(25305)*XX(4536)-JVS(25968)*XX(4602))/(JVS(27497)) - XX(4744) = (X(4744)-JVS(8456)*XX(2026)-JVS(13513)*XX(3061)-JVS(25969)*XX(4602)-JVS(26139)*XX(4620))/(JVS(27505)) - XX(4745) = (X(4745)-JVS(3716)*XX(930)-JVS(16483)*XX(3564))/(JVS(27515)) - XX(4746) = (X(4746)-JVS(6489)*XX(1612)-JVS(8946)*XX(2132)-JVS(9111)*XX(2170)-JVS(13425)*XX(3043)-JVS(21629)*XX(4183)& - &-JVS(27516)*XX(4745))/(JVS(27525)) - XX(4747) = X(4747)/JVS(27536) - XX(4748) = (X(4748)-JVS(420)*XX(108)-JVS(934)*XX(211)-JVS(5327)*XX(1331)-JVS(9224)*XX(2195)-JVS(15241)*XX(3373)& - &-JVS(21427)*XX(4162))/(JVS(27559)) - XX(4749) = (X(4749)-JVS(21129)*XX(4125)-JVS(23591)*XX(4383))/(JVS(27574)) - XX(4750) = (X(4750)-JVS(4860)*XX(1215)-JVS(12227)*XX(2820))/(JVS(27584)) - XX(4751) = (X(4751)-JVS(5572)*XX(1392)-JVS(13574)*XX(3071)-JVS(16984)*XX(3626))/(JVS(27594)) - XX(4752) = (X(4752)-JVS(1508)*XX(375)-JVS(4028)*XX(1008)-JVS(11994)*XX(2772)-JVS(20210)*XX(4019))/(JVS(27609)) - XX(4753) = (X(4753)-JVS(4888)*XX(1222)-JVS(9169)*XX(2183)-JVS(12788)*XX(2928))/(JVS(27621)) - XX(4754) = (X(4754)-JVS(3065)*XX(770)-JVS(6486)*XX(1611)-JVS(7561)*XX(1834)-JVS(10434)*XX(2469))/(JVS(27630)) - XX(4755) = (X(4755)-JVS(6896)*XX(1701)-JVS(6964)*XX(1715)-JVS(9413)*XX(2237)-JVS(9865)*XX(2339)-JVS(23916)*XX(4411))& - &/(JVS(27644)) - XX(4756) = (X(4756)-JVS(2708)*XX(688)-JVS(7095)*XX(1742)-JVS(7332)*XX(1791)-JVS(12310)*XX(2836))/(JVS(27653)) - XX(4757) = (X(4757)-JVS(28)*XX(3)-JVS(16144)*XX(3516))/(JVS(27663)) - XX(4758) = (X(4758)-JVS(5387)*XX(1346)-JVS(15829)*XX(3464)-JVS(17635)*XX(3707)-JVS(17641)*XX(3708)-JVS(19756)*XX(3965)& - &-JVS(21130)*XX(4125)-JVS(24008)*XX(4420))/(JVS(27671)) - XX(4759) = (X(4759)-JVS(4338)*XX(1085)-JVS(10632)*XX(2510)-JVS(25970)*XX(4602))/(JVS(27682)) - XX(4760) = (X(4760)-JVS(5163)*XX(1290)-JVS(12336)*XX(2841))/(JVS(27704)) - XX(4761) = (X(4761)-JVS(2276)*XX(585)-JVS(6831)*XX(1687)-JVS(7694)*XX(1863)-JVS(9754)*XX(2315))/(JVS(27713)) - XX(4762) = (X(4762)-JVS(1175)*XX(281)-JVS(2769)*XX(703)-JVS(7602)*XX(1843)-JVS(10296)*XX(2439))/(JVS(27722)) - XX(4763) = (X(4763)-JVS(13156)*XX(2992)-JVS(13160)*XX(2993))/(JVS(27735)) - XX(4764) = (X(4764)-JVS(247)*XX(59)-JVS(1300)*XX(315)-JVS(4982)*XX(1245)-JVS(10165)*XX(2408)-JVS(15584)*XX(3420)& - &-JVS(21512)*XX(4172))/(JVS(27750)) - XX(4765) = (X(4765)-JVS(7262)*XX(1777)-JVS(9183)*XX(2186)-JVS(13484)*XX(3055)-JVS(15356)*XX(3389)-JVS(17714)*XX(3717)& - &-JVS(19662)*XX(3954))/(JVS(27760)) - XX(4766) = (X(4766)-JVS(645)*XX(161)-JVS(1432)*XX(353)-JVS(5071)*XX(1267)-JVS(7951)*XX(1919)-JVS(13841)*XX(3118)& - &-JVS(18299)*XX(3785)-JVS(19303)*XX(3912))/(JVS(27768)) - XX(4767) = (X(4767)-JVS(4137)*XX(1035)-JVS(8654)*XX(2066)-JVS(9676)*XX(2297)-JVS(14610)*XX(3265)-JVS(17249)*XX(3656)& - &-JVS(17864)*XX(3735)-JVS(26109)*XX(4618))/(JVS(27779)) - XX(4768) = (X(4768)-JVS(3137)*XX(786)-JVS(7865)*XX(1901))/(JVS(27797)) - XX(4769) = (X(4769)-JVS(15575)*XX(3419)-JVS(15721)*XX(3441)-JVS(26110)*XX(4618))/(JVS(27815)) - XX(4770) = (X(4770)-JVS(1948)*XX(499)-JVS(5844)*XX(1460)-JVS(14860)*XX(3315)-JVS(27484)*XX(4742))/(JVS(27825)) - XX(4771) = (X(4771)-JVS(1212)*XX(291)-JVS(3306)*XX(828)-JVS(14848)*XX(3312))/(JVS(27835)) - XX(4772) = (X(4772)-JVS(10990)*XX(2580)-JVS(11266)*XX(2635)-JVS(12484)*XX(2870)-JVS(22741)*XX(4294)-JVS(23317)& - &*XX(4352)-JVS(26974)*XX(4693))/(JVS(27846)) - XX(4773) = (X(4773)-JVS(12280)*XX(2830)-JVS(15879)*XX(3475)-JVS(16619)*XX(3582))/(JVS(27858)) - XX(4774) = (X(4774)-JVS(2569)*XX(654)-JVS(10571)*XX(2497)-JVS(15958)*XX(3488))/(JVS(27867)) - XX(4775) = (X(4775)-JVS(22138)*XX(4233)-JVS(24895)*XX(4502))/(JVS(27882)) - XX(4776) = (X(4776)-JVS(29)*XX(3)-JVS(1932)*XX(494))/(JVS(27890)) - XX(4777) = (X(4777)-JVS(9993)*XX(2369)-JVS(13769)*XX(3106)-JVS(16702)*XX(3592)-JVS(21033)*XX(4114)-JVS(25150)& - &*XX(4522))/(JVS(27899)) - XX(4778) = (X(4778)-JVS(1188)*XX(285)-JVS(5932)*XX(1482)-JVS(7269)*XX(1779)-JVS(13618)*XX(3079)-JVS(19534)*XX(3938)& - &-JVS(20993)*XX(4109)-JVS(21861)*XX(4207))/(JVS(27907)) - XX(4779) = (X(4779)-JVS(10500)*XX(2483)-JVS(15914)*XX(3480)-JVS(16894)*XX(3615)-JVS(22201)*XX(4239)-JVS(23694)& - &*XX(4392))/(JVS(27915)) - XX(4780) = (X(4780)-JVS(6762)*XX(1671)-JVS(8469)*XX(2029)-JVS(10293)*XX(2438)-JVS(16962)*XX(3623)-JVS(19871)*XX(3979))& - &/(JVS(27924)) - XX(4781) = (X(4781)-JVS(5275)*XX(1318)-JVS(15363)*XX(3390)-JVS(17009)*XX(3629)-JVS(25327)*XX(4538))/(JVS(27931)) - XX(4782) = (X(4782)-JVS(10330)*XX(2447)-JVS(10339)*XX(2449)-JVS(15504)*XX(3409)-JVS(17250)*XX(3656)-JVS(19400)& - &*XX(3922)-JVS(23249)*XX(4344)-JVS(26111)*XX(4618))/(JVS(27941)) - XX(4783) = (X(4783)-JVS(7711)*XX(1866)-JVS(15820)*XX(3462)-JVS(19460)*XX(3929)-JVS(19984)*XX(3993))/(JVS(27947)) - XX(4784) = (X(4784)-JVS(7759)*XX(1876)-JVS(7881)*XX(1904)-JVS(15186)*XX(3367)-JVS(16234)*XX(3530)-JVS(22814)*XX(4300)& - &-JVS(24292)*XX(4446)-JVS(26414)*XX(4646))/(JVS(27955)) - XX(4785) = (X(4785)-JVS(1942)*XX(497)-JVS(2061)*XX(532)-JVS(6131)*XX(1531)-JVS(11558)*XX(2693)-JVS(19512)*XX(3935)& - &-JVS(22241)*XX(4243)-JVS(22293)*XX(4248))/(JVS(27963)) - XX(4786) = (X(4786)-JVS(3152)*XX(790)-JVS(14236)*XX(3194)-JVS(15910)*XX(3479)-JVS(22276)*XX(4247))/(JVS(27969)) - XX(4787) = (X(4787)-JVS(2986)*XX(750)-JVS(9944)*XX(2358)-JVS(23778)*XX(4401))/(JVS(27977)) - XX(4788) = (X(4788)-JVS(13954)*XX(3137)-JVS(20420)*XX(4044)-JVS(22560)*XX(4276)-JVS(23145)*XX(4331)-JVS(26382)& - &*XX(4643)-JVS(26975)*XX(4693))/(JVS(27988)) - XX(4789) = (X(4789)-JVS(1692)*XX(427)-JVS(5974)*XX(1492)-JVS(8017)*XX(1933)-JVS(11718)*XX(2722)-JVS(19607)*XX(3947)& - &-JVS(20719)*XX(4077)-JVS(21460)*XX(4166)-JVS(22586)*XX(4278)-JVS(23298)*XX(4350)-JVS(24676)*XX(4484)& - &-JVS(24691)*XX(4485))/(JVS(28000)) - XX(4790) = (X(4790)-JVS(14157)*XX(3178)-JVS(20226)*XX(4021)-JVS(21731)*XX(4194)-JVS(24064)*XX(4425)-JVS(24083)& - &*XX(4426))/(JVS(28010)) - XX(4791) = (X(4791)-JVS(14203)*XX(3187)-JVS(20034)*XX(3999)-JVS(21842)*XX(4205)-JVS(24654)*XX(4482)-JVS(25044)& - &*XX(4511))/(JVS(28021)) - XX(4792) = (X(4792)-JVS(13266)*XX(3012)-JVS(15840)*XX(3467))/(JVS(28037)) - XX(4793) = (X(4793)-JVS(17484)*XX(3687)-JVS(18322)*XX(3788)-JVS(19174)*XX(3896))/(JVS(28047)) - XX(4794) = (X(4794)-JVS(2000)*XX(514)-JVS(15911)*XX(3479)-JVS(19878)*XX(3980)-JVS(20800)*XX(4087)-JVS(22362)*XX(4255)& - &-JVS(23192)*XX(4337))/(JVS(28054)) - XX(4795) = (X(4795)-JVS(15341)*XX(3387)-JVS(15445)*XX(3401)-JVS(16132)*XX(3515))/(JVS(28061)) - XX(4796) = X(4796)/JVS(28130) - XX(4797) = (X(4797)-JVS(14169)*XX(3181)-JVS(20342)*XX(4036)-JVS(22431)*XX(4262)-JVS(24046)*XX(4423)-JVS(24475)& - &*XX(4464)-JVS(28131)*XX(4796))/(JVS(28154)) - XX(4798) = (X(4798)-JVS(13670)*XX(3088)-JVS(20234)*XX(4022)-JVS(22868)*XX(4306)-JVS(24417)*XX(4458)-JVS(25008)& - &*XX(4507)-JVS(28132)*XX(4796))/(JVS(28167)) - XX(4799) = (X(4799)-JVS(9598)*XX(2281)-JVS(17430)*XX(3680)-JVS(18273)*XX(3782)-JVS(19779)*XX(3968)-JVS(20456)*XX(4047)& - &-JVS(20601)*XX(4062)-JVS(21824)*XX(4203)-JVS(24238)*XX(4441)-JVS(24328)*XX(4449)-JVS(25971)*XX(4602)& - &-JVS(28133)*XX(4796))/(JVS(28180)) - XX(4800) = (X(4800)-JVS(14783)*XX(3298)-JVS(22900)*XX(4309))/(JVS(28187)) - XX(4801) = X(4801)/JVS(28211) - XX(4802) = (X(4802)-JVS(6591)*XX(1633)-JVS(13092)*XX(2981)-JVS(13198)*XX(2999)-JVS(13205)*XX(3000)-JVS(23625)*XX(4386)& - &-JVS(23674)*XX(4391)-JVS(28212)*XX(4801))/(JVS(28228)) - XX(4803) = (X(4803)-JVS(3133)*XX(785)-JVS(4052)*XX(1014)-JVS(14606)*XX(3264)-JVS(15678)*XX(3433)-JVS(16637)*XX(3584)& - &-JVS(25438)*XX(4547)-JVS(27459)*XX(4740))/(JVS(28235)) - XX(4804) = (X(4804)-JVS(2630)*XX(669)-JVS(6532)*XX(1621)-JVS(8332)*XX(1999)-JVS(8465)*XX(2028)-JVS(9202)*XX(2190)& - &-JVS(20525)*XX(4053)-JVS(22642)*XX(4284))/(JVS(28245)) - XX(4805) = (X(4805)-JVS(504)*XX(131)-JVS(17017)*XX(3630)-JVS(21589)*XX(4180)-JVS(22742)*XX(4294))/(JVS(28251)) - XX(4806) = (X(4806)-JVS(5103)*XX(1275)-JVS(12469)*XX(2867)-JVS(19839)*XX(3976)-JVS(24457)*XX(4462)-JVS(27683)& - &*XX(4759))/(JVS(28263)) - XX(4807) = (X(4807)-JVS(5864)*XX(1465)-JVS(6059)*XX(1513)-JVS(14579)*XX(3258))/(JVS(28273)) - XX(4808) = (X(4808)-JVS(1194)*XX(287)-JVS(3570)*XX(894)-JVS(10846)*XX(2552)-JVS(16357)*XX(3546)-JVS(25472)*XX(4550))& - &/(JVS(28283)) - XX(4809) = (X(4809)-JVS(5203)*XX(1300)-JVS(14128)*XX(3173)-JVS(16749)*XX(3598)-JVS(20980)*XX(4108)-JVS(24359)& - &*XX(4452))/(JVS(28293)) - XX(4810) = (X(4810)-JVS(14223)*XX(3191)-JVS(20326)*XX(4034)-JVS(22651)*XX(4285)-JVS(23146)*XX(4331)-JVS(26507)& - &*XX(4655)-JVS(26976)*XX(4693))/(JVS(28304)) - XX(4811) = (X(4811)-JVS(2497)*XX(638)-JVS(6588)*XX(1632)-JVS(11221)*XX(2625)-JVS(12692)*XX(2910)-JVS(23602)*XX(4384))& - &/(JVS(28315)) - XX(4812) = (X(4812)-JVS(4954)*XX(1238)-JVS(8974)*XX(2139)-JVS(12865)*XX(2941))/(JVS(28328)) - XX(4813) = (X(4813)-JVS(2290)*XX(589)-JVS(6324)*XX(1576)-JVS(8966)*XX(2137)-JVS(14272)*XX(3200))/(JVS(28339)) - XX(4814) = (X(4814)-JVS(1165)*XX(278)-JVS(3046)*XX(765)-JVS(5604)*XX(1400)-JVS(13298)*XX(3018)-JVS(17225)*XX(3653)& - &-JVS(18291)*XX(3784)-JVS(20404)*XX(4042)-JVS(25035)*XX(4510))/(JVS(28348)) - XX(4815) = (X(4815)-JVS(22076)*XX(4227)-JVS(24055)*XX(4424))/(JVS(28361)) - XX(4816) = (X(4816)-JVS(5736)*XX(1433)-JVS(14670)*XX(3276)-JVS(14896)*XX(3324)-JVS(23445)*XX(4366))/(JVS(28370)) - XX(4817) = (X(4817)-JVS(2925)*XX(737)-JVS(6260)*XX(1562)-JVS(7387)*XX(1802)-JVS(8338)*XX(2000)-JVS(10476)*XX(2478)& - &-JVS(17455)*XX(3683)-JVS(22643)*XX(4284))/(JVS(28381)) - XX(4818) = (X(4818)-JVS(3808)*XX(953)-JVS(4084)*XX(1022)-JVS(14755)*XX(3293))/(JVS(28389)) - XX(4819) = (X(4819)-JVS(30)*XX(3)-JVS(13728)*XX(3099))/(JVS(28397)) - XX(4820) = (X(4820)-JVS(1952)*XX(500)-JVS(2737)*XX(695)-JVS(9688)*XX(2300)-JVS(11500)*XX(2680)-JVS(17040)*XX(3633)& - &-JVS(24398)*XX(4456)-JVS(24906)*XX(4503))/(JVS(28408)) - XX(4821) = (X(4821)-JVS(2197)*XX(565)-JVS(3378)*XX(846)-JVS(15279)*XX(3378)-JVS(15283)*XX(3379)-JVS(16674)*XX(3589)& - &-JVS(27254)*XX(4721))/(JVS(28415)) - XX(4822) = (X(4822)-JVS(4266)*XX(1067)-JVS(5427)*XX(1356)-JVS(11658)*XX(2712)-JVS(25972)*XX(4602))/(JVS(28427)) - XX(4823) = (X(4823)-JVS(10027)*XX(2376)-JVS(11150)*XX(2609)-JVS(25973)*XX(4602)-JVS(27119)*XX(4708))/(JVS(28448)) - XX(4824) = (X(4824)-JVS(31)*XX(3)-JVS(9869)*XX(2340))/(JVS(28457)) - XX(4825) = (X(4825)-JVS(2754)*XX(699)-JVS(3522)*XX(882)-JVS(9736)*XX(2311)-JVS(15250)*XX(3374)-JVS(19687)*XX(3957)& - &-JVS(25680)*XX(4572))/(JVS(28466)) - XX(4826) = (X(4826)-JVS(14316)*XX(3211)-JVS(14381)*XX(3224)-JVS(19494)*XX(3933)-JVS(21871)*XX(4208)-JVS(22743)& - &*XX(4294))/(JVS(28476)) - XX(4827) = (X(4827)-JVS(6666)*XX(1650)-JVS(6911)*XX(1705)-JVS(12861)*XX(2940)-JVS(16905)*XX(3616)-JVS(18050)*XX(3756))& - &/(JVS(28488)) - XX(4828) = (X(4828)-JVS(32)*XX(3)-JVS(426)*XX(110)-JVS(26466)*XX(4651))/(JVS(28495)) - XX(4829) = (X(4829)-JVS(4120)*XX(1031)-JVS(4290)*XX(1073)-JVS(11381)*XX(2656)-JVS(26807)*XX(4683))/(JVS(28505)) - XX(4830) = (X(4830)-JVS(3956)*XX(990)-JVS(5752)*XX(1437)-JVS(12379)*XX(2850)-JVS(16449)*XX(3559))/(JVS(28517)) - XX(4831) = (X(4831)-JVS(10617)*XX(2507)-JVS(14575)*XX(3257)-JVS(16985)*XX(3626))/(JVS(28531)) - XX(4832) = (X(4832)-JVS(1546)*XX(386)-JVS(21162)*XX(4129)-JVS(28532)*XX(4831))/(JVS(28544)) - XX(4833) = (X(4833)-JVS(3744)*XX(937)-JVS(5375)*XX(1343)-JVS(14751)*XX(3292))/(JVS(28554)) - XX(4834) = (X(4834)-JVS(20563)*XX(4058)-JVS(24872)*XX(4500)-JVS(24886)*XX(4501))/(JVS(28569)) - XX(4835) = (X(4835)-JVS(7052)*XX(1734)-JVS(7572)*XX(1837)-JVS(11890)*XX(2752)-JVS(24753)*XX(4490))/(JVS(28577)) - XX(4836) = (X(4836)-JVS(1463)*XX(363)-JVS(4772)*XX(1193)-JVS(14458)*XX(3239))/(JVS(28586)) - XX(4837) = (X(4837)-JVS(3490)*XX(874)-JVS(5692)*XX(1422)-JVS(13106)*XX(2983)-JVS(13770)*XX(3106))/(JVS(28596)) - XX(4838) = (X(4838)-JVS(33)*XX(3)-JVS(2381)*XX(611))/(JVS(28605)) - XX(4839) = (X(4839)-JVS(1847)*XX(470)-JVS(6035)*XX(1507)-JVS(13349)*XX(3029)-JVS(22148)*XX(4234))/(JVS(28622)) - XX(4840) = (X(4840)-JVS(11864)*XX(2748)-JVS(23163)*XX(4333)-JVS(23326)*XX(4353)-JVS(24102)*XX(4428)-JVS(27013)& - &*XX(4695))/(JVS(28630)) - XX(4841) = (X(4841)-JVS(8251)*XX(1983)-JVS(13760)*XX(3104)-JVS(16281)*XX(3536))/(JVS(28641)) - XX(4842) = X(4842)/JVS(28666) - XX(4843) = (X(4843)-JVS(34)*XX(3)-JVS(2796)*XX(709))/(JVS(28678)) - XX(4844) = (X(4844)-JVS(3578)*XX(896)-JVS(5063)*XX(1265)-JVS(10016)*XX(2374)-JVS(10789)*XX(2542))/(JVS(28691)) - XX(4845) = (X(4845)-JVS(12163)*XX(2807)-JVS(23854)*XX(4405))/(JVS(28705)) - XX(4846) = (X(4846)-JVS(4700)*XX(1175)-JVS(5620)*XX(1404)-JVS(10671)*XX(2518))/(JVS(28717)) - XX(4847) = (X(4847)-JVS(2797)*XX(709)-JVS(3936)*XX(985)-JVS(11062)*XX(2593))/(JVS(28734)) - XX(4848) = (X(4848)-JVS(917)*XX(207)-JVS(4166)*XX(1042)-JVS(12548)*XX(2884))/(JVS(28745)) - XX(4849) = (X(4849)-JVS(5700)*XX(1424)-JVS(9870)*XX(2340)-JVS(10743)*XX(2533))/(JVS(28761)) - XX(4850) = (X(4850)-JVS(1862)*XX(474)-JVS(4454)*XX(1114)-JVS(11739)*XX(2726))/(JVS(28783)) - XX(4851) = (X(4851)-JVS(21881)*XX(4209))/(JVS(28801)) - XX(4852) = (X(4852)-JVS(6611)*XX(1638)-JVS(12595)*XX(2893)-JVS(17251)*XX(3656)-JVS(26112)*XX(4618))/(JVS(28814)) - XX(4853) = (X(4853)-JVS(3290)*XX(824)-JVS(3606)*XX(903)-JVS(12454)*XX(2864)-JVS(27736)*XX(4763))/(JVS(28830)) - XX(4854) = (X(4854)-JVS(3988)*XX(998)-JVS(5379)*XX(1344)-JVS(11908)*XX(2756)-JVS(17097)*XX(3639)-JVS(23266)*XX(4346)& - &-JVS(27737)*XX(4763)-JVS(28831)*XX(4853))/(JVS(28845)) - XX(4855) = (X(4855)-JVS(4186)*XX(1047)-JVS(4346)*XX(1087)-JVS(12525)*XX(2879)-JVS(21762)*XX(4197))/(JVS(28858)) - XX(4856) = (X(4856)-JVS(2782)*XX(706)-JVS(14411)*XX(3231)-JVS(20994)*XX(4109))/(JVS(28869)) - XX(4857) = (X(4857)-JVS(1390)*XX(340)-JVS(2802)*XX(710)-JVS(8109)*XX(1953)-JVS(12747)*XX(2920)-JVS(27485)*XX(4742))& - &/(JVS(28882)) - XX(4858) = (X(4858)-JVS(6407)*XX(1595)-JVS(13380)*XX(3035)-JVS(17865)*XX(3735)-JVS(26113)*XX(4618))/(JVS(28892)) - XX(4859) = (X(4859)-JVS(13992)*XX(3146)-JVS(20638)*XX(4067)-JVS(22518)*XX(4271)-JVS(24504)*XX(4467)-JVS(28134)& - &*XX(4796))/(JVS(28903)) - XX(4860) = (X(4860)-JVS(3550)*XX(889)-JVS(14587)*XX(3260))/(JVS(28914)) - XX(4861) = (X(4861)-JVS(6432)*XX(1602)-JVS(11057)*XX(2592)-JVS(17536)*XX(3693))/(JVS(28925)) - XX(4862) = (X(4862)-JVS(971)*XX(222)-JVS(2347)*XX(603)-JVS(5748)*XX(1436)-JVS(12751)*XX(2921)-JVS(22443)*XX(4263))& - &/(JVS(28937)) - XX(4863) = (X(4863)-JVS(1519)*XX(378)-JVS(5924)*XX(1480)-JVS(12276)*XX(2829)-JVS(17756)*XX(3722)-JVS(21753)*XX(4196))& - &/(JVS(28951)) - XX(4864) = (X(4864)-JVS(13029)*XX(2969)-JVS(15824)*XX(3463))/(JVS(28968)) - XX(4865) = (X(4865)-JVS(21202)*XX(4134))/(JVS(28988)) - XX(4866) = (X(4866)-JVS(3776)*XX(945)-JVS(5764)*XX(1440)-JVS(12340)*XX(2842))/(JVS(28999)) - XX(4867) = (X(4867)-JVS(3618)*XX(906)-JVS(6171)*XX(1541)-JVS(11401)*XX(2660))/(JVS(29013)) - XX(4868) = (X(4868)-JVS(35)*XX(3)-JVS(2467)*XX(631))/(JVS(29023)) - XX(4869) = (X(4869)-JVS(36)*XX(3)-JVS(16918)*XX(3617))/(JVS(29032)) - XX(4870) = (X(4870)-JVS(4560)*XX(1140)-JVS(7931)*XX(1914)-JVS(8929)*XX(2128)-JVS(15334)*XX(3386))/(JVS(29047)) - XX(4871) = (X(4871)-JVS(5628)*XX(1406)-JVS(15045)*XX(3346))/(JVS(29065)) - XX(4872) = X(4872)/JVS(29079) - XX(4873) = (X(4873)-JVS(22632)*XX(4283))/(JVS(29093)) - XX(4874) = (X(4874)-JVS(4938)*XX(1234)-JVS(12517)*XX(2877))/(JVS(29109)) - XX(4875) = (X(4875)-JVS(2574)*XX(655)-JVS(7294)*XX(1784)-JVS(18476)*XX(3809))/(JVS(29123)) - XX(4876) = (X(4876)-JVS(3992)*XX(999)-JVS(6411)*XX(1596)-JVS(9228)*XX(2196)-JVS(15270)*XX(3377)-JVS(16846)*XX(3609)& - &-JVS(27780)*XX(4767)-JVS(28815)*XX(4852))/(JVS(29133)) - XX(4877) = (X(4877)-JVS(8138)*XX(1960)-JVS(10506)*XX(2485)-JVS(15771)*XX(3453)-JVS(21785)*XX(4199)-JVS(23845)*XX(4404)& - &-JVS(27120)*XX(4708)-JVS(27325)*XX(4728))/(JVS(29140)) - XX(4878) = (X(4878)-JVS(532)*XX(139)-JVS(1671)*XX(421)-JVS(4326)*XX(1082)-JVS(12994)*XX(2964)-JVS(17494)*XX(3688)& - &-JVS(19597)*XX(3946)-JVS(22321)*XX(4251)-JVS(25317)*XX(4537)-JVS(29110)*XX(4874))/(JVS(29148)) - XX(4879) = (X(4879)-JVS(3900)*XX(976)-JVS(7525)*XX(1827)-JVS(13218)*XX(3002)-JVS(16330)*XX(3542)-JVS(21372)*XX(4155)& - &-JVS(24093)*XX(4427))/(JVS(29156)) - XX(4880) = (X(4880)-JVS(849)*XX(195)-JVS(5051)*XX(1262)-JVS(6861)*XX(1693)-JVS(8239)*XX(1980)-JVS(18848)*XX(3857)& - &-JVS(25097)*XX(4517)-JVS(26114)*XX(4618)-JVS(28816)*XX(4852))/(JVS(29163)) - XX(4881) = (X(4881)-JVS(8227)*XX(1977)-JVS(9967)*XX(2363)-JVS(16565)*XX(3575)-JVS(17706)*XX(3716)-JVS(21410)*XX(4160)& - &-JVS(24157)*XX(4433))/(JVS(29171)) - XX(4882) = (X(4882)-JVS(22251)*XX(4244)-JVS(23333)*XX(4354)-JVS(24349)*XX(4451)-JVS(25357)*XX(4540)-JVS(27798)& - &*XX(4768))/(JVS(29184)) - XX(4883) = (X(4883)-JVS(20183)*XX(4015)-JVS(26435)*XX(4648))/(JVS(29195)) - XX(4884) = (X(4884)-JVS(9998)*XX(2370)-JVS(10368)*XX(2455)-JVS(15006)*XX(3341)-JVS(18060)*XX(3757)-JVS(19282)*XX(3910)& - &-JVS(25829)*XX(4590)-JVS(29066)*XX(4871))/(JVS(29204)) - XX(4885) = (X(4885)-JVS(6691)*XX(1655)-JVS(8036)*XX(1938)-JVS(8339)*XX(2000)-JVS(17456)*XX(3683)-JVS(20995)*XX(4109))& - &/(JVS(29214)) - XX(4886) = (X(4886)-JVS(1387)*XX(339)-JVS(8425)*XX(2019)-JVS(10145)*XX(2403)-JVS(11963)*XX(2767)-JVS(17332)*XX(3667)& - &-JVS(19016)*XX(3877)-JVS(19928)*XX(3986)-JVS(22912)*XX(4310)-JVS(25160)*XX(4523)-JVS(25174)*XX(4524))& - &/(JVS(29222)) - XX(4887) = (X(4887)-JVS(3007)*XX(755)-JVS(8280)*XX(1988)-JVS(15759)*XX(3450)-JVS(15848)*XX(3469)-JVS(19469)*XX(3930)& - &-JVS(19478)*XX(3931))/(JVS(29233)) - XX(4888) = (X(4888)-JVS(11957)*XX(2766)-JVS(14369)*XX(3221)-JVS(17309)*XX(3664)-JVS(23556)*XX(4379))/(JVS(29243)) - XX(4889) = (X(4889)-JVS(2140)*XX(551)-JVS(6759)*XX(1670)-JVS(10422)*XX(2466)-JVS(18079)*XX(3759)-JVS(20526)*XX(4053))& - &/(JVS(29253)) - XX(4890) = (X(4890)-JVS(1543)*XX(385)-JVS(3976)*XX(995)-JVS(4100)*XX(1026)-JVS(12889)*XX(2946)-JVS(15372)*XX(3391)& - &-JVS(19196)*XX(3899))/(JVS(29265)) - XX(4891) = (X(4891)-JVS(5792)*XX(1447)-JVS(12895)*XX(2947)-JVS(17010)*XX(3629)-JVS(25328)*XX(4538)-JVS(27932)& - &*XX(4781))/(JVS(29274)) - XX(4892) = (X(4892)-JVS(5187)*XX(1296)-JVS(5419)*XX(1354)-JVS(14296)*XX(3206)-JVS(24666)*XX(4483))/(JVS(29284)) - XX(4893) = (X(4893)-JVS(10472)*XX(2477)-JVS(12316)*XX(2837)-JVS(15844)*XX(3468)-JVS(21131)*XX(4125))/(JVS(29296)) - XX(4894) = (X(4894)-JVS(286)*XX(70)-JVS(9409)*XX(2236)-JVS(13626)*XX(3080)-JVS(17537)*XX(3693)-JVS(22371)*XX(4256))& - &/(JVS(29304)) - XX(4895) = (X(4895)-JVS(17621)*XX(3705)-JVS(17896)*XX(3739)-JVS(19322)*XX(3914)-JVS(27826)*XX(4770)-JVS(28883)& - &*XX(4857))/(JVS(29315)) - XX(4896) = (X(4896)-JVS(17680)*XX(3713)-JVS(17799)*XX(3727)-JVS(17980)*XX(3748)-JVS(26567)*XX(4661))/(JVS(29326)) - XX(4897) = (X(4897)-JVS(6254)*XX(1560)-JVS(6620)*XX(1640)-JVS(7748)*XX(1873)-JVS(10503)*XX(2484))/(JVS(29338)) - XX(4898) = (X(4898)-JVS(560)*XX(146)-JVS(5536)*XX(1383)-JVS(18096)*XX(3761)-JVS(18685)*XX(3838)-JVS(18752)*XX(3846)& - &-JVS(23397)*XX(4362)-JVS(24486)*XX(4465)-JVS(25128)*XX(4520))/(JVS(29351)) - XX(4899) = (X(4899)-JVS(9936)*XX(2356)-JVS(9941)*XX(2357)-JVS(15760)*XX(3450)-JVS(15767)*XX(3452)-JVS(19470)*XX(3930)& - &-JVS(19479)*XX(3931))/(JVS(29362)) - XX(4900) = (X(4900)-JVS(3189)*XX(799)-JVS(5716)*XX(1428)-JVS(7506)*XX(1823)-JVS(16695)*XX(3591)-JVS(21265)*XX(4142))& - &/(JVS(29372)) - XX(4901) = (X(4901)-JVS(6327)*XX(1577)-JVS(9216)*XX(2193)-JVS(9348)*XX(2223)-JVS(15468)*XX(3404)-JVS(18937)*XX(3868)& - &-JVS(26424)*XX(4647)-JVS(28642)*XX(4841))/(JVS(29385)) - XX(4902) = X(4902)/JVS(29400) - XX(4903) = (X(4903)-JVS(3019)*XX(758)-JVS(4580)*XX(1145)-JVS(9602)*XX(2282)-JVS(11580)*XX(2697)-JVS(13892)*XX(3126)& - &-JVS(22159)*XX(4235))/(JVS(29415)) - XX(4904) = (X(4904)-JVS(227)*XX(53)-JVS(702)*XX(170)-JVS(3972)*XX(994))/(JVS(29443)) - XX(4905) = (X(4905)-JVS(7666)*XX(1857)-JVS(9627)*XX(2287)-JVS(15763)*XX(3451)-JVS(21132)*XX(4125))/(JVS(29460)) - XX(4906) = (X(4906)-JVS(37)*XX(3)-JVS(2514)*XX(642)-JVS(17214)*XX(3652))/(JVS(29468)) - XX(4907) = (X(4907)-JVS(10238)*XX(2425)-JVS(16005)*XX(3496)-JVS(18913)*XX(3865)-JVS(25213)*XX(4528))/(JVS(29475)) - XX(4908) = (X(4908)-JVS(38)*XX(3)-JVS(9971)*XX(2364))/(JVS(29482)) - XX(4909) = (X(4909)-JVS(9808)*XX(2326))/(JVS(29509)) - XX(4910) = (X(4910)-JVS(3450)*XX(864)-JVS(5962)*XX(1489)-JVS(6472)*XX(1608)-JVS(14377)*XX(3223)-JVS(25413)*XX(4545))& - &/(JVS(29537)) - XX(4911) = (X(4911)-JVS(2653)*XX(674)-JVS(6709)*XX(1659)-JVS(11758)*XX(2730)-JVS(13494)*XX(3057)-JVS(16116)*XX(3513)& - &-JVS(24514)*XX(4468))/(JVS(29550)) - XX(4912) = (X(4912)-JVS(39)*XX(3)-JVS(8978)*XX(2140))/(JVS(29558)) - XX(4913) = (X(4913)-JVS(16499)*XX(3566)-JVS(19757)*XX(3965))/(JVS(29575)) - XX(4914) = (X(4914)-JVS(22383)*XX(4257)-JVS(22677)*XX(4288)-JVS(22699)*XX(4290)-JVS(25571)*XX(4560))/(JVS(29587)) - XX(4915) = (X(4915)-JVS(4190)*XX(1048)-JVS(4386)*XX(1097)-JVS(13488)*XX(3056)-JVS(26353)*XX(4640))/(JVS(29600)) - XX(4916) = (X(4916)-JVS(12767)*XX(2924)-JVS(14900)*XX(3325)-JVS(17673)*XX(3712)-JVS(23748)*XX(4398)-JVS(28135)& - &*XX(4796))/(JVS(29621)) - XX(4917) = (X(4917)-JVS(11539)*XX(2689)-JVS(14385)*XX(3225)-JVS(18413)*XX(3800)-JVS(20291)*XX(4029))/(JVS(29636)) - XX(4918) = X(4918)/JVS(29667) - XX(4919) = (X(4919)-JVS(40)*XX(3)-JVS(2390)*XX(613)-JVS(26628)*XX(4666))/(JVS(29681)) - XX(4920) = (X(4920)-JVS(1997)*XX(513)-JVS(2510)*XX(641)-JVS(12763)*XX(2923)-JVS(15686)*XX(3434)-JVS(27585)*XX(4750))& - &/(JVS(29694)) - XX(4921) = (X(4921)-JVS(4728)*XX(1182)-JVS(12436)*XX(2860)-JVS(14484)*XX(3242)-JVS(17076)*XX(3638))/(JVS(29710)) - XX(4922) = (X(4922)-JVS(4040)*XX(1011)-JVS(16173)*XX(3520)-JVS(17230)*XX(3654)-JVS(21378)*XX(4156)-JVS(28706)& - &*XX(4845))/(JVS(29720)) - XX(4923) = (X(4923)-JVS(7651)*XX(1853)-JVS(11785)*XX(2734)-JVS(14120)*XX(3171)-JVS(17278)*XX(3660)-JVS(21379)& - &*XX(4156))/(JVS(29730)) - XX(4924) = (X(4924)-JVS(9331)*XX(2219)-JVS(12884)*XX(2945))/(JVS(29747)) - XX(4925) = (X(4925)-JVS(9131)*XX(2174)-JVS(9161)*XX(2181)-JVS(13685)*XX(3090)-JVS(17938)*XX(3744)-JVS(17947)*XX(3745)& - &-JVS(19246)*XX(3905)-JVS(21697)*XX(4190)-JVS(21998)*XX(4220)-JVS(24799)*XX(4493)-JVS(29401)*XX(4902))& - &/(JVS(29759)) - XX(4926) = (X(4926)-JVS(7832)*XX(1893)-JVS(10054)*XX(2381)-JVS(15497)*XX(3408)-JVS(25493)*XX(4552))/(JVS(29768)) - XX(4927) = (X(4927)-JVS(17406)*XX(3677)-JVS(17553)*XX(3695)-JVS(19293)*XX(3911)-JVS(25473)*XX(4550)-JVS(28284)& - &*XX(4808))/(JVS(29779)) - XX(4928) = (X(4928)-JVS(2057)*XX(531)-JVS(4258)*XX(1065)-JVS(15092)*XX(3352)-JVS(15096)*XX(3353)-JVS(23706)*XX(4393)& - &-JVS(27255)*XX(4721)-JVS(28428)*XX(4822)-JVS(28449)*XX(4823)-JVS(28969)*XX(4864))/(JVS(29788)) - XX(4929) = (X(4929)-JVS(2729)*XX(693)-JVS(8838)*XX(2107))/(JVS(29805)) - XX(4930) = (X(4930)-JVS(12167)*XX(2808)-JVS(14389)*XX(3226)-JVS(18529)*XX(3816)-JVS(20792)*XX(4086))/(JVS(29822)) - XX(4931) = X(4931)/JVS(29853) - XX(4932) = (X(4932)-JVS(1896)*XX(484)-JVS(4049)*XX(1013)-JVS(11229)*XX(2627)-JVS(16659)*XX(3587)-JVS(25235)*XX(4530)& - &-JVS(27121)*XX(4708)-JVS(28938)*XX(4862))/(JVS(29866)) - XX(4933) = (X(4933)-JVS(22571)*XX(4277)-JVS(26233)*XX(4628)-JVS(27978)*XX(4787)-JVS(28989)*XX(4865))/(JVS(29876)) - XX(4934) = (X(4934)-JVS(1878)*XX(479)-JVS(4358)*XX(1090)-JVS(12356)*XX(2846)-JVS(23675)*XX(4391)-JVS(28213)*XX(4801))& - &/(JVS(29884)) - XX(4935) = (X(4935)-JVS(3012)*XX(756)-JVS(6426)*XX(1600)-JVS(14545)*XX(3251)-JVS(16966)*XX(3624))/(JVS(29895)) - XX(4936) = (X(4936)-JVS(8358)*XX(2004)-JVS(14928)*XX(3330)-JVS(19985)*XX(3993))/(JVS(29907)) - XX(4937) = (X(4937)-JVS(15700)*XX(3437)-JVS(16400)*XX(3553)-JVS(19831)*XX(3975)-JVS(23964)*XX(4416)-JVS(24622)& - &*XX(4480)-JVS(24634)*XX(4481)-JVS(24923)*XX(4505)-JVS(29244)*XX(4888))/(JVS(29919)) - XX(4938) = X(4938)/JVS(29989) - XX(4939) = X(4939)/JVS(30024) - XX(4940) = (X(4940)-JVS(813)*XX(189)-JVS(1642)*XX(413)-JVS(6099)*XX(1523)-JVS(9090)*XX(2165)-JVS(14485)*XX(3242))& - &/(JVS(30046)) - XX(4941) = (X(4941)-JVS(41)*XX(3)-JVS(2990)*XX(751))/(JVS(30063)) - XX(4942) = (X(4942)-JVS(609)*XX(155)-JVS(1536)*XX(383)-JVS(8276)*XX(1987)-JVS(10202)*XX(2416)-JVS(18956)*XX(3870))& - &/(JVS(30079)) - XX(4943) = (X(4943)-JVS(42)*XX(3)-JVS(3266)*XX(818))/(JVS(30097)) - XX(4944) = (X(4944)-JVS(2382)*XX(611)-JVS(5331)*XX(1332)-JVS(11158)*XX(2611))/(JVS(30122)) - XX(4945) = (X(4945)-JVS(8243)*XX(1981)-JVS(14061)*XX(3160)-JVS(22372)*XX(4256)-JVS(25107)*XX(4518)-JVS(27847)& - &*XX(4772))/(JVS(30131)) - XX(4946) = (X(4946)-JVS(13233)*XX(3005)-JVS(14535)*XX(3249)-JVS(17764)*XX(3723)-JVS(21571)*XX(4178)-JVS(26977)& - &*XX(4693)-JVS(29444)*XX(4904))/(JVS(30138)) - XX(4947) = (X(4947)-JVS(19471)*XX(3930)-JVS(19480)*XX(3931)-JVS(29990)*XX(4938))/(JVS(30165)) - XX(4948) = (X(4948)-JVS(14393)*XX(3227)-JVS(14864)*XX(3316)-JVS(15953)*XX(3487)-JVS(27460)*XX(4740)-JVS(29363)& - &*XX(4899)-JVS(29991)*XX(4938)-JVS(30166)*XX(4947))/(JVS(30177)) - XX(4949) = (X(4949)-JVS(1400)*XX(343)-JVS(4632)*XX(1158)-JVS(12084)*XX(2790))/(JVS(30195)) - XX(4950) = (X(4950)-JVS(16167)*XX(3519)-JVS(24030)*XX(4422)-JVS(24225)*XX(4440)-JVS(26662)*XX(4669)-JVS(29992)& - &*XX(4938))/(JVS(30208)) - XX(4951) = (X(4951)-JVS(3022)*XX(759)-JVS(17347)*XX(3669)-JVS(17806)*XX(3728)-JVS(26467)*XX(4651)-JVS(28496)*XX(4828))& - &/(JVS(30221)) - XX(4952) = (X(4952)-JVS(3069)*XX(771)-JVS(17529)*XX(3692)-JVS(18013)*XX(3752)-JVS(26147)*XX(4621)-JVS(29806)*XX(4929))& - &/(JVS(30234)) - XX(4953) = (X(4953)-JVS(1805)*XX(457)-JVS(5303)*XX(1325)-JVS(6448)*XX(1605)-JVS(12955)*XX(2958)-JVS(19731)*XX(3962)& - &-JVS(20887)*XX(4098)-JVS(26333)*XX(4638))/(JVS(30249)) - XX(4954) = (X(4954)-JVS(13729)*XX(3099)-JVS(14560)*XX(3254)-JVS(14759)*XX(3294))/(JVS(30262)) - XX(4955) = (X(4955)-JVS(1222)*XX(294)-JVS(3660)*XX(916)-JVS(13258)*XX(3010)-JVS(17854)*XX(3734))/(JVS(30273)) - XX(4956) = (X(4956)-JVS(43)*XX(3)-JVS(2720)*XX(691))/(JVS(30284)) - XX(4957) = (X(4957)-JVS(3828)*XX(958)-JVS(10055)*XX(2381)-JVS(10809)*XX(2546)-JVS(12473)*XX(2868)-JVS(15498)*XX(3408)& - &-JVS(20184)*XX(4015)-JVS(25494)*XX(4552)-JVS(26436)*XX(4648)-JVS(29769)*XX(4926))/(JVS(30295)) - XX(4958) = (X(4958)-JVS(14435)*XX(3234))/(JVS(30321)) - XX(4959) = (X(4959)-JVS(3491)*XX(874)-JVS(8126)*XX(1957)-JVS(8765)*XX(2090)-JVS(14840)*XX(3310))/(JVS(30341)) - XX(4960) = (X(4960)-JVS(2943)*XX(741)-JVS(7173)*XX(1757)-JVS(22597)*XX(4279)-JVS(25460)*XX(4549))/(JVS(30355)) - XX(4961) = (X(4961)-JVS(21938)*XX(4215))/(JVS(30368)) - XX(4962) = (X(4962)-JVS(1093)*XX(258)-JVS(5904)*XX(1475)-JVS(12061)*XX(2786))/(JVS(30382)) - XX(4963) = (X(4963)-JVS(44)*XX(3)-JVS(440)*XX(114))/(JVS(30395)) - XX(4964) = (X(4964)-JVS(26172)*XX(4622)-JVS(26629)*XX(4666))/(JVS(30417)) - XX(4965) = (X(4965)-JVS(14064)*XX(3161)-JVS(26630)*XX(4666)-JVS(28904)*XX(4859))/(JVS(30433)) - XX(4966) = (X(4966)-JVS(11573)*XX(2696)-JVS(14450)*XX(3237))/(JVS(30452)) - XX(4967) = (X(4967)-JVS(2910)*XX(734)-JVS(6242)*XX(1557)-JVS(7521)*XX(1826)-JVS(16220)*XX(3528)-JVS(22160)*XX(4235))& - &/(JVS(30465)) - XX(4968) = (X(4968)-JVS(10602)*XX(2504)-JVS(14308)*XX(3209)-JVS(18572)*XX(3821)-JVS(23101)*XX(4328)-JVS(28136)& - &*XX(4796)-JVS(29445)*XX(4904)-JVS(29993)*XX(4938))/(JVS(30474)) - XX(4969) = (X(4969)-JVS(3940)*XX(986)-JVS(13071)*XX(2977)-JVS(19910)*XX(3984)-JVS(29402)*XX(4902))/(JVS(30487)) - XX(4970) = (X(4970)-JVS(1460)*XX(362)-JVS(17077)*XX(3638)-JVS(19957)*XX(3990)-JVS(25197)*XX(4526)-JVS(27537)*XX(4747))& - &/(JVS(30497)) - XX(4971) = (X(4971)-JVS(3240)*XX(812)-JVS(4446)*XX(1112)-JVS(14810)*XX(3304)-JVS(15948)*XX(3486)-JVS(16505)*XX(3567)& - &-JVS(26253)*XX(4630)-JVS(28718)*XX(4846)-JVS(29576)*XX(4913)-JVS(29994)*XX(4938)-JVS(30167)*XX(4947))& - &/(JVS(30505)) - XX(4972) = (X(4972)-JVS(9152)*XX(2179)-JVS(10305)*XX(2441)-JVS(16462)*XX(3561)-JVS(16543)*XX(3572)-JVS(21529)*XX(4174)& - &-JVS(24534)*XX(4470)-JVS(28870)*XX(4856)-JVS(30025)*XX(4939))/(JVS(30512)) - XX(4973) = X(4973)/JVS(30535) - XX(4974) = (X(4974)-JVS(1683)*XX(424)-JVS(7658)*XX(1855)-JVS(9909)*XX(2350)-JVS(13057)*XX(2974)-JVS(16629)*XX(3583)& - &-JVS(18947)*XX(3869)-JVS(25875)*XX(4594)-JVS(27645)*XX(4755))/(JVS(30553)) - XX(4975) = (X(4975)-JVS(18349)*XX(3792)-JVS(25423)*XX(4546)-JVS(28214)*XX(4801)-JVS(29885)*XX(4934))/(JVS(30566)) - XX(4976) = (X(4976)-JVS(137)*XX(29)-JVS(6245)*XX(1558)-JVS(17170)*XX(3647)-JVS(17538)*XX(3693)-JVS(24009)*XX(4420)& - &-JVS(28252)*XX(4805))/(JVS(30572)) - XX(4977) = (X(4977)-JVS(1083)*XX(255)-JVS(3598)*XX(901)-JVS(12390)*XX(2852)-JVS(15687)*XX(3434)-JVS(27586)*XX(4750)& - &-JVS(29695)*XX(4920))/(JVS(30581)) - XX(4978) = (X(4978)-JVS(22149)*XX(4234)-JVS(28623)*XX(4839))/(JVS(30598)) - XX(4979) = (X(4979)-JVS(1178)*XX(282)-JVS(3928)*XX(983)-JVS(12240)*XX(2822)-JVS(28215)*XX(4801))/(JVS(30610)) - XX(4980) = (X(4980)-JVS(1263)*XX(304)-JVS(7091)*XX(1741)-JVS(10530)*XX(2490)-JVS(11233)*XX(2628)-JVS(12707)*XX(2913)& - &-JVS(25557)*XX(4559)-JVS(28915)*XX(4860))/(JVS(30623)) - XX(4981) = (X(4981)-JVS(1240)*XX(298)-JVS(3414)*XX(855)-JVS(10416)*XX(2465)-JVS(11531)*XX(2687))/(JVS(30642)) - XX(4982) = (X(4982)-JVS(7822)*XX(1891)-JVS(16928)*XX(3618)-JVS(21133)*XX(4125))/(JVS(30653)) - XX(4983) = X(4983)/JVS(30683) - XX(4984) = (X(4984)-JVS(4692)*XX(1173)-JVS(13127)*XX(2987)-JVS(19141)*XX(3892)-JVS(25461)*XX(4549))/(JVS(30707)) - XX(4985) = (X(4985)-JVS(11120)*XX(2603)-JVS(14790)*XX(3300)-JVS(18128)*XX(3765)-JVS(27005)*XX(4694)-JVS(29446)& - &*XX(4904))/(JVS(30724)) - XX(4986) = (X(4986)-JVS(4434)*XX(1109)-JVS(12513)*XX(2876)-JVS(20670)*XX(4071)-JVS(24772)*XX(4491)-JVS(28137)& - &*XX(4796))/(JVS(30752)) - XX(4987) = (X(4987)-JVS(5407)*XX(1351)-JVS(6782)*XX(1676)-JVS(6839)*XX(1689)-JVS(18890)*XX(3862)-JVS(23987)*XX(4418)& - &-JVS(26549)*XX(4659))/(JVS(30762)) - XX(4988) = (X(4988)-JVS(7115)*XX(1746)-JVS(10438)*XX(2470)-JVS(16156)*XX(3517)-JVS(19132)*XX(3891)-JVS(19188)*XX(3898)& - &-JVS(19737)*XX(3963)-JVS(19800)*XX(3971)-JVS(22302)*XX(4249)-JVS(27526)*XX(4746)-JVS(27538)*XX(4747)& - &-JVS(27631)*XX(4754)-JVS(27654)*XX(4756)-JVS(27664)*XX(4757)-JVS(30498)*XX(4970))/(JVS(30770)) - XX(4989) = (X(4989)-JVS(1938)*XX(496)-JVS(5632)*XX(1407)-JVS(6548)*XX(1624)-JVS(11523)*XX(2685)-JVS(26766)*XX(4679)& - &-JVS(27799)*XX(4768))/(JVS(30782)) - XX(4990) = (X(4990)-JVS(3498)*XX(876)-JVS(11904)*XX(2755)-JVS(19860)*XX(3978)-JVS(28893)*XX(4858))/(JVS(30794)) - XX(4991) = (X(4991)-JVS(4394)*XX(1099)-JVS(11492)*XX(2679))/(JVS(30817)) - XX(4992) = (X(4992)-JVS(2432)*XX(623)-JVS(6741)*XX(1665)-JVS(14597)*XX(3262)-JVS(17600)*XX(3702))/(JVS(30831)) - XX(4993) = (X(4993)-JVS(14686)*XX(3280)-JVS(14743)*XX(3290)-JVS(16686)*XX(3590)-JVS(20251)*XX(4024)-JVS(22744)& - &*XX(4294)-JVS(26978)*XX(4693)-JVS(29447)*XX(4904))/(JVS(30840)) - XX(4994) = (X(4994)-JVS(1523)*XX(379)-JVS(3322)*XX(832)-JVS(13318)*XX(3023)-JVS(18938)*XX(3868)-JVS(28643)*XX(4841)& - &-JVS(29386)*XX(4901))/(JVS(30851)) - XX(4995) = (X(4995)-JVS(1652)*XX(416)-JVS(6797)*XX(1679)-JVS(9716)*XX(2306)-JVS(10372)*XX(2456))/(JVS(30870)) - XX(4996) = (X(4996)-JVS(25495)*XX(4552)-JVS(27800)*XX(4768)-JVS(29770)*XX(4926))/(JVS(30894)) - XX(4997) = (X(4997)-JVS(45)*XX(3)-JVS(3443)*XX(862)-JVS(29668)*XX(4918))/(JVS(30904)) - XX(4998) = (X(4998)-JVS(46)*XX(3)-JVS(4443)*XX(1111)-JVS(29854)*XX(4931))/(JVS(30915)) - XX(4999) = (X(4999)-JVS(47)*XX(3)-JVS(7204)*XX(1764))/(JVS(30926)) - XX(5000) = X(5000)/JVS(30964) - XX(5001) = (X(5001)-JVS(7427)*XX(1810)-JVS(21134)*XX(4125))/(JVS(31002)) - XX(5002) = (X(5002)-JVS(105)*XX(19)-JVS(6812)*XX(1682)-JVS(17018)*XX(3630)-JVS(23207)*XX(4339)-JVS(23592)*XX(4383)& - &-JVS(25664)*XX(4570)-JVS(27575)*XX(4749)-JVS(30654)*XX(4982)-JVS(30684)*XX(4983)-JVS(31003)*XX(5001))& - &/(JVS(31013)) - XX(5003) = (X(5003)-JVS(15378)*XX(3392)-JVS(15889)*XX(3477)-JVS(16476)*XX(3563)-JVS(22745)*XX(4294)-JVS(26979)& - &*XX(4693))/(JVS(31022)) - XX(5004) = (X(5004)-JVS(5283)*XX(1320)-JVS(13245)*XX(3008)-JVS(14428)*XX(3233)-JVS(27801)*XX(4768))/(JVS(31047)) - XX(5005) = (X(5005)-JVS(16037)*XX(3500)-JVS(16248)*XX(3532)-JVS(16413)*XX(3555)-JVS(23863)*XX(4406)-JVS(28138)& - &*XX(4796)-JVS(30685)*XX(4983))/(JVS(31062)) - XX(5006) = (X(5006)-JVS(1925)*XX(492)-JVS(5271)*XX(1317)-JVS(11361)*XX(2651)-JVS(20571)*XX(4059))/(JVS(31088)) - XX(5007) = (X(5007)-JVS(1375)*XX(335)-JVS(2398)*XX(615)-JVS(7286)*XX(1782)-JVS(10598)*XX(2503)-JVS(23626)*XX(4386)& - &-JVS(29995)*XX(4938))/(JVS(31106)) - XX(5008) = (X(5008)-JVS(1570)*XX(393)-JVS(4536)*XX(1134)-JVS(11519)*XX(2684)-JVS(23627)*XX(4386)-JVS(29996)*XX(4938)& - &-JVS(31107)*XX(5007))/(JVS(31123)) - XX(5009) = (X(5009)-JVS(22615)*XX(4281))/(JVS(31138)) - XX(5010) = (X(5010)-JVS(18350)*XX(3792)-JVS(23917)*XX(4411)-JVS(25424)*XX(4546)-JVS(25580)*XX(4561)-JVS(28216)& - &*XX(4801)-JVS(30611)*XX(4979))/(JVS(31159)) - XX(5011) = (X(5011)-JVS(7554)*XX(1833)-JVS(15180)*XX(3366))/(JVS(31180)) - XX(5012) = (X(5012)-JVS(21851)*XX(4206))/(JVS(31202)) - XX(5013) = (X(5013)-JVS(842)*XX(194)-JVS(3271)*XX(819)-JVS(7351)*XX(1795)-JVS(25481)*XX(4551)-JVS(26749)*XX(4677))& - &/(JVS(31213)) - XX(5014) = (X(5014)-JVS(1064)*XX(251)-JVS(3594)*XX(900)-JVS(11349)*XX(2648)-JVS(20808)*XX(4088)-JVS(27751)*XX(4764))& - &/(JVS(31225)) - XX(5015) = (X(5015)-JVS(1826)*XX(463)-JVS(9011)*XX(2147)-JVS(11685)*XX(2717)-JVS(17002)*XX(3628)-JVS(18663)*XX(3835)& - &-JVS(24437)*XX(4460)-JVS(29510)*XX(4909))/(JVS(31235)) - XX(5016) = (X(5016)-JVS(2066)*XX(533)-JVS(16126)*XX(3514)-JVS(25607)*XX(4564))/(JVS(31249)) - XX(5017) = (X(5017)-JVS(3968)*XX(993)-JVS(5580)*XX(1394)-JVS(11636)*XX(2708))/(JVS(31265)) - XX(5018) = (X(5018)-JVS(24553)*XX(4472)-JVS(29807)*XX(4929))/(JVS(31282)) - XX(5019) = (X(5019)-JVS(2745)*XX(697)-JVS(8021)*XX(1934)-JVS(10049)*XX(2380)-JVS(15062)*XX(3348)-JVS(20952)*XX(4104)& - &-JVS(29014)*XX(4867)-JVS(29403)*XX(4902))/(JVS(31295)) - XX(5020) = (X(5020)-JVS(5159)*XX(1289)-JVS(14436)*XX(3234)-JVS(25608)*XX(4564)-JVS(30322)*XX(4958))/(JVS(31307)) - XX(5021) = (X(5021)-JVS(1118)*XX(265)-JVS(5111)*XX(1277)-JVS(11389)*XX(2658)-JVS(18856)*XX(3858)-JVS(21388)*XX(4157)& - &-JVS(22044)*XX(4224)-JVS(22762)*XX(4295)-JVS(24831)*XX(4496)-JVS(24844)*XX(4497))/(JVS(31319)) - XX(5022) = (X(5022)-JVS(1257)*XX(302)-JVS(15941)*XX(3485)-JVS(16382)*XX(3549)-JVS(17589)*XX(3700)-JVS(20026)*XX(3998)& - &-JVS(20632)*XX(4066)-JVS(22087)*XX(4228)-JVS(27445)*XX(4739)-JVS(27622)*XX(4753))/(JVS(31329)) - XX(5023) = X(5023)/JVS(31359) - XX(5024) = (X(5024)-JVS(2760)*XX(701)-JVS(8524)*XX(2038)-JVS(18675)*XX(3837)-JVS(22310)*XX(4250)-JVS(23446)*XX(4366)& - &-JVS(28371)*XX(4816)-JVS(31360)*XX(5023))/(JVS(31376)) - XX(5025) = (X(5025)-JVS(8970)*XX(2138)-JVS(11182)*XX(2616)-JVS(14288)*XX(3204)-JVS(19986)*XX(3993)-JVS(25665)*XX(4570)& - &-JVS(30655)*XX(4982)-JVS(30686)*XX(4983)-JVS(31004)*XX(5001))/(JVS(31384)) - XX(5026) = X(5026)/JVS(31405) - XX(5027) = (X(5027)-JVS(1068)*XX(252)-JVS(4426)*XX(1107)-JVS(11274)*XX(2637)-JVS(17125)*XX(3642)-JVS(23230)*XX(4342)& - &-JVS(23239)*XX(4343))/(JVS(31423)) - XX(5028) = (X(5028)-JVS(2587)*XX(658)-JVS(6753)*XX(1668)-JVS(8093)*XX(1950)-JVS(8889)*XX(2119)-JVS(27433)*XX(4738)& - &-JVS(27560)*XX(4748))/(JVS(31432)) - XX(5029) = (X(5029)-JVS(5852)*XX(1462)-JVS(8979)*XX(2140)-JVS(12915)*XX(2951)-JVS(29588)*XX(4914))/(JVS(31452)) - XX(5030) = (X(5030)-JVS(18649)*XX(3832)-JVS(24924)*XX(4505)-JVS(26719)*XX(4674)-JVS(27471)*XX(4741)-JVS(29780)& - &*XX(4927)-JVS(29997)*XX(4938))/(JVS(31464)) - XX(5031) = (X(5031)-JVS(21314)*XX(4149))/(JVS(31502)) - XX(5032) = (X(5032)-JVS(4612)*XX(1153)-JVS(8884)*XX(2118)-JVS(13557)*XX(3068)-JVS(13563)*XX(3069)-JVS(21418)*XX(4161)& - &-JVS(27038)*XX(4698)-JVS(27925)*XX(4780)-JVS(28217)*XX(4801)-JVS(30965)*XX(5000)-JVS(31181)*XX(5011)& - &-JVS(31503)*XX(5031))/(JVS(31516)) - XX(5033) = (X(5033)-JVS(4970)*XX(1242)-JVS(10854)*XX(2554)-JVS(14258)*XX(3197)-JVS(25609)*XX(4564)-JVS(28253)& - &*XX(4805))/(JVS(31523)) - XX(5034) = (X(5034)-JVS(11001)*XX(2582)-JVS(15798)*XX(3458)-JVS(20457)*XX(4047)-JVS(20602)*XX(4062)-JVS(28139)& - &*XX(4796)-JVS(30687)*XX(4983))/(JVS(31539)) - XX(5035) = (X(5035)-JVS(10097)*XX(2392)-JVS(13529)*XX(3064)-JVS(15729)*XX(3443)-JVS(19987)*XX(3993)-JVS(28477)& - &*XX(4826))/(JVS(31548)) - XX(5036) = (X(5036)-JVS(9426)*XX(2240)-JVS(13116)*XX(2985)-JVS(14284)*XX(3203)-JVS(15342)*XX(3387)-JVS(15446)*XX(3401)& - &-JVS(16133)*XX(3515)-JVS(28062)*XX(4795)-JVS(28140)*XX(4796)-JVS(29511)*XX(4909)-JVS(30688)*XX(4983))& - &/(JVS(31566)) - XX(5037) = (X(5037)-JVS(20774)*XX(4084)-JVS(27095)*XX(4706))/(JVS(31589)) - XX(5038) = (X(5038)-JVS(10173)*XX(2410)-JVS(10636)*XX(2511))/(JVS(31614)) - XX(5039) = (X(5039)-JVS(1735)*XX(440)-JVS(2872)*XX(726)-JVS(5493)*XX(1372)-JVS(5496)*XX(1373)-JVS(14524)*XX(3247))& - &/(JVS(31635)) - XX(5040) = (X(5040)-JVS(48)*XX(3)-JVS(14959)*XX(3334)-JVS(17368)*XX(3672)-JVS(26980)*XX(4693))/(JVS(31650)) - XX(5041) = (X(5041)-JVS(615)*XX(156)-JVS(1337)*XX(325)-JVS(4712)*XX(1178)-JVS(7235)*XX(1771)-JVS(19214)*XX(3901)& - &-JVS(23613)*XX(4385)-JVS(28329)*XX(4812)-JVS(31048)*XX(5004))/(JVS(31662)) - XX(5042) = (X(5042)-JVS(26296)*XX(4634))/(JVS(31677)) - XX(5043) = (X(5043)-JVS(4777)*XX(1194)-JVS(8958)*XX(2135)-JVS(14142)*XX(3175)-JVS(14625)*XX(3268)-JVS(17707)*XX(3716)& - &-JVS(29855)*XX(4931)-JVS(30369)*XX(4961))/(JVS(31689)) - XX(5044) = (X(5044)-JVS(2003)*XX(515)-JVS(6051)*XX(1511)-JVS(6512)*XX(1617)-JVS(11535)*XX(2688)-JVS(19268)*XX(3908)& - &-JVS(21085)*XX(4120)-JVS(26786)*XX(4681)-JVS(27610)*XX(4752)-JVS(28667)*XX(4842)-JVS(31266)*XX(5017))& - &/(JVS(31704)) - XX(5045) = (X(5045)-JVS(1835)*XX(466)-JVS(9241)*XX(2199)-JVS(10169)*XX(2409)-JVS(14953)*XX(3333)-JVS(15206)*XX(3369)& - &-JVS(18668)*XX(3836)-JVS(19034)*XX(3879)-JVS(20961)*XX(4105)-JVS(28587)*XX(4836)-JVS(28644)*XX(4841)& - &-JVS(29998)*XX(4938)-JVS(30643)*XX(4981))/(JVS(31714)) - XX(5046) = X(5046)/JVS(31769) - XX(5047) = (X(5047)-JVS(49)*XX(3)-JVS(16440)*XX(3558)-JVS(27595)*XX(4751)-JVS(28533)*XX(4831)-JVS(31770)*XX(5046))& - &/(JVS(31816)) - XX(5048) = (X(5048)-JVS(50)*XX(3)-JVS(17164)*XX(3646)-JVS(25366)*XX(4541)-JVS(27539)*XX(4747)-JVS(29033)*XX(4869)& - &-JVS(30047)*XX(4940)-JVS(31771)*XX(5046))/(JVS(31827)) - XX(5049) = (X(5049)-JVS(6628)*XX(1642)-JVS(21402)*XX(4159)-JVS(23946)*XX(4414)-JVS(25809)*XX(4588)-JVS(28802)*XX(4851)& - &-JVS(30927)*XX(4999)-JVS(31361)*XX(5023)-JVS(31772)*XX(5046))/(JVS(31841)) - XX(5050) = (X(5050)-JVS(10494)*XX(2481)-JVS(15392)*XX(3394)-JVS(25087)*XX(4516)-JVS(25810)*XX(4588)-JVS(26650)& - &*XX(4668)-JVS(27376)*XX(4732)-JVS(31773)*XX(5046))/(JVS(31852)) - XX(5051) = (X(5051)-JVS(8398)*XX(2013)-JVS(13050)*XX(2973)-JVS(25214)*XX(4528)-JVS(25694)*XX(4574)-JVS(25735)*XX(4579)& - &-JVS(26406)*XX(4645)-JVS(27284)*XX(4724)-JVS(29748)*XX(4924)-JVS(30064)*XX(4941)-JVS(31774)*XX(5046))& - &/(JVS(31859)) - XX(5052) = (X(5052)-JVS(1912)*XX(489)-JVS(6043)*XX(1509)-JVS(7080)*XX(1739)-JVS(11614)*XX(2704)-JVS(26479)*XX(4652)& - &-JVS(27802)*XX(4768))/(JVS(31871)) - XX(5053) = (X(5053)-JVS(6317)*XX(1574)-JVS(12007)*XX(2774)-JVS(19709)*XX(3959))/(JVS(31889)) - XX(5054) = (X(5054)-JVS(1710)*XX(433)-JVS(5391)*XX(1347)-JVS(11610)*XX(2703)-JVS(21049)*XX(4116)-JVS(23695)*XX(4392))& - &/(JVS(31908)) - XX(5055) = X(5055)/JVS(31931) - XX(5056) = (X(5056)-JVS(551)*XX(144)-JVS(5958)*XX(1488)-JVS(11154)*XX(2610)-JVS(12815)*XX(2933)-JVS(18239)*XX(3778)& - &-JVS(21007)*XX(4110)-JVS(21155)*XX(4128)-JVS(22598)*XX(4279)-JVS(25462)*XX(4549)-JVS(26243)*XX(4629)& - &-JVS(30708)*XX(4984))/(JVS(31945)) - XX(5057) = X(5057)/JVS(31962) - XX(5058) = (X(5058)-JVS(23363)*XX(4358)-JVS(25811)*XX(4588)-JVS(27122)*XX(4708)-JVS(29622)*XX(4916)-JVS(30222)& - &*XX(4951)-JVS(30689)*XX(4983)-JVS(31615)*XX(5038)-JVS(31775)*XX(5046))/(JVS(31990)) - XX(5059) = (X(5059)-JVS(541)*XX(141)-JVS(1050)*XX(246)-JVS(4768)*XX(1192)-JVS(5938)*XX(1483)-JVS(31616)*XX(5038))& - &/(JVS(32023)) - XX(5060) = (X(5060)-JVS(4552)*XX(1138)-JVS(5479)*XX(1369)-JVS(12330)*XX(2840)-JVS(14129)*XX(3173)-JVS(30966)*XX(5000))& - &/(JVS(32045)) - XX(5061) = (X(5061)-JVS(1965)*XX(504)-JVS(7146)*XX(1753)-JVS(9450)*XX(2246)-JVS(13144)*XX(2990)-JVS(16720)*XX(3594)& - &-JVS(18981)*XX(3873)-JVS(19116)*XX(3889)-JVS(23169)*XX(4334)-JVS(27029)*XX(4697)-JVS(29999)*XX(4938)& - &-JVS(31124)*XX(5008))/(JVS(32058)) - XX(5062) = (X(5062)-JVS(3016)*XX(757)-JVS(8077)*XX(1946)-JVS(10279)*XX(2435)-JVS(15646)*XX(3429)-JVS(31108)*XX(5007))& - &/(JVS(32076)) - XX(5063) = (X(5063)-JVS(23356)*XX(4357)-JVS(26614)*XX(4665)-JVS(27422)*XX(4737)-JVS(30536)*XX(4973)-JVS(31109)& - &*XX(5007)-JVS(31125)*XX(5008)-JVS(31406)*XX(5026))/(JVS(32093)) - XX(5064) = (X(5064)-JVS(15857)*XX(3471)-JVS(26373)*XX(4642)-JVS(27081)*XX(4704)-JVS(29048)*XX(4870)-JVS(30537)& - &*XX(4973)-JVS(31407)*XX(5026))/(JVS(32109)) - XX(5065) = (X(5065)-JVS(855)*XX(196)-JVS(1698)*XX(429)-JVS(3386)*XX(848)-JVS(8863)*XX(2113)-JVS(13796)*XX(3110)& - &-JVS(17522)*XX(3691)-JVS(17614)*XX(3704)-JVS(19044)*XX(3880)-JVS(21446)*XX(4164)-JVS(22188)*XX(4238)& - &-JVS(23341)*XX(4355)-JVS(23976)*XX(4417)-JVS(24114)*XX(4429)-JVS(27130)*XX(4709)-JVS(27147)*XX(4710)& - &-JVS(28784)*XX(4850)-JVS(30080)*XX(4942))/(JVS(32116)) - XX(5066) = (X(5066)-JVS(8827)*XX(2104)-JVS(21452)*XX(4165)-JVS(25812)*XX(4588)-JVS(26323)*XX(4637)-JVS(26873)*XX(4689)& - &-JVS(27883)*XX(4775)-JVS(29637)*XX(4917)-JVS(29669)*XX(4918)-JVS(30905)*XX(4997)-JVS(31139)*XX(5009)& - &-JVS(31617)*XX(5038)-JVS(31776)*XX(5046)-JVS(32024)*XX(5059))/(JVS(32129)) - XX(5067) = (X(5067)-JVS(22551)*XX(4275))/(JVS(32145)) - XX(5068) = (X(5068)-JVS(14313)*XX(3210)-JVS(21258)*XX(4141)-JVS(25813)*XX(4588)-JVS(26453)*XX(4650)-JVS(26863)& - &*XX(4688)-JVS(28362)*XX(4815)-JVS(29823)*XX(4930)-JVS(29856)*XX(4931)-JVS(30370)*XX(4961)-JVS(30916)& - &*XX(4998)-JVS(31618)*XX(5038)-JVS(31777)*XX(5046)-JVS(32025)*XX(5059))/(JVS(32163)) - XX(5069) = (X(5069)-JVS(2051)*XX(529)-JVS(17019)*XX(3630)-JVS(19541)*XX(3939)-JVS(21917)*XX(4213)-JVS(24186)*XX(4436)& - &-JVS(29512)*XX(4909)-JVS(31778)*XX(5046))/(JVS(32174)) - XX(5070) = (X(5070)-JVS(51)*XX(3)-JVS(23833)*XX(4403)-JVS(31779)*XX(5046))/(JVS(32186)) - XX(5071) = (X(5071)-JVS(30196)*XX(4949))/(JVS(32215)) - XX(5072) = (X(5072)-JVS(24427)*XX(4459)-JVS(26488)*XX(4653)-JVS(28390)*XX(4818)-JVS(28832)*XX(4853)-JVS(30356)& - &*XX(4960)-JVS(30709)*XX(4984)-JVS(30967)*XX(5000))/(JVS(32233)) - XX(5073) = (X(5073)-JVS(5403)*XX(1350)-JVS(15696)*XX(3436)-JVS(23485)*XX(4371)-JVS(24703)*XX(4486))/(JVS(32248)) - XX(5074) = (X(5074)-JVS(7122)*XX(1748)-JVS(8814)*XX(2101)-JVS(16970)*XX(3625)-JVS(17052)*XX(3635)-JVS(20633)*XX(4066)& - &-JVS(22373)*XX(4256)-JVS(25118)*XX(4519)-JVS(27446)*XX(4739)-JVS(27623)*XX(4753))/(JVS(32260)) - XX(5075) = (X(5075)-JVS(4916)*XX(1229)-JVS(11789)*XX(2735)-JVS(14654)*XX(3272)-JVS(15379)*XX(3392)-JVS(15890)*XX(3477)& - &-JVS(16477)*XX(3563)-JVS(22746)*XX(4294)-JVS(25610)*XX(4564)-JVS(26981)*XX(4693)-JVS(31023)*XX(5003))& - &/(JVS(32270)) - XX(5076) = (X(5076)-JVS(10101)*XX(2393)-JVS(17020)*XX(3630)-JVS(23273)*XX(4347)-JVS(24925)*XX(4505)-JVS(27472)& - &*XX(4741)-JVS(30000)*XX(4938)-JVS(30475)*XX(4968)-JVS(30690)*XX(4983)-JVS(31780)*XX(5046))/(JVS(32281)) - XX(5077) = (X(5077)-JVS(1275)*XX(308)-JVS(8794)*XX(2097)-JVS(9212)*XX(2192)-JVS(12664)*XX(2906)-JVS(18864)*XX(3859)& - &-JVS(19420)*XX(3924)-JVS(22947)*XX(4313)-JVS(27836)*XX(4771)-JVS(28570)*XX(4834)-JVS(28692)*XX(4844)& - &-JVS(31963)*XX(5057)-JVS(32046)*XX(5060))/(JVS(32289)) - XX(5078) = (X(5078)-JVS(3216)*XX(806)-JVS(4274)*XX(1069)-JVS(10531)*XX(2490)-JVS(13605)*XX(3076)-JVS(24563)*XX(4473)& - &-JVS(30342)*XX(4959)-JVS(31203)*XX(5012))/(JVS(32302)) - XX(5079) = (X(5079)-JVS(1714)*XX(434)-JVS(4162)*XX(1041)-JVS(14666)*XX(3275)-JVS(32047)*XX(5060))/(JVS(32323)) - XX(5080) = X(5080)/JVS(32351) - XX(5081) = (X(5081)-JVS(5255)*XX(1313)-JVS(6768)*XX(1673)-JVS(9315)*XX(2215)-JVS(13544)*XX(3066)-JVS(16829)*XX(3607)& - &-JVS(21396)*XX(4158)-JVS(27761)*XX(4765)-JVS(28264)*XX(4806)-JVS(29124)*XX(4875)-JVS(30871)*XX(4995)& - &-JVS(30895)*XX(4996)-JVS(31049)*XX(5004))/(JVS(32372)) - XX(5082) = (X(5082)-JVS(906)*XX(205)-JVS(1384)*XX(338)-JVS(9106)*XX(2169)-JVS(9523)*XX(2264)-JVS(18821)*XX(3854)& - &-JVS(18839)*XX(3856)-JVS(22948)*XX(4313)-JVS(24524)*XX(4469)-JVS(25558)*XX(4559)-JVS(28571)*XX(4834)& - &-JVS(28693)*XX(4844)-JVS(28916)*XX(4860)-JVS(30624)*XX(4980)-JVS(30644)*XX(4981)-JVS(31964)*XX(5057)& - &-JVS(32048)*XX(5060)-JVS(32324)*XX(5079))/(JVS(32380)) - XX(5083) = (X(5083)-JVS(131)*XX(27)-JVS(18700)*XX(3840)-JVS(19917)*XX(3985)-JVS(21763)*XX(4197)-JVS(22168)*XX(4236)& - &-JVS(27540)*XX(4747)-JVS(28668)*XX(4842)-JVS(28859)*XX(4855)-JVS(31089)*XX(5006)-JVS(31267)*XX(5017))& - &/(JVS(32398)) - XX(5084) = (X(5084)-JVS(469)*XX(121)-JVS(627)*XX(158)-JVS(3514)*XX(880)-JVS(8316)*XX(1996)-JVS(24216)*XX(4439)& - &-JVS(25572)*XX(4560)-JVS(31090)*XX(5006))/(JVS(32411)) - XX(5085) = (X(5085)-JVS(20211)*XX(4019)-JVS(27611)*XX(4752))/(JVS(32441)) - XX(5086) = (X(5086)-JVS(22489)*XX(4268))/(JVS(32482)) - XX(5087) = (X(5087)-JVS(29749)*XX(4924))/(JVS(32507)) - XX(5088) = (X(5088)-JVS(1171)*XX(280)-JVS(4784)*XX(1196)-JVS(10567)*XX(2496)-JVS(22322)*XX(4251)-JVS(25318)*XX(4537)& - &-JVS(29111)*XX(4874)-JVS(29266)*XX(4890)-JVS(30001)*XX(4938)-JVS(30343)*XX(4959)-JVS(30538)*XX(4973)& - &-JVS(31204)*XX(5012))/(JVS(32524)) - XX(5089) = (X(5089)-JVS(13940)*XX(3133)-JVS(17171)*XX(3647)-JVS(25546)*XX(4558)-JVS(29316)*XX(4895)-JVS(30725)& - &*XX(4985)-JVS(31504)*XX(5031))/(JVS(32541)) - XX(5090) = (X(5090)-JVS(1801)*XX(456)-JVS(6195)*XX(1547)-JVS(14844)*XX(3311)-JVS(28694)*XX(4844)-JVS(30539)*XX(4973)& - &-JVS(31965)*XX(5057))/(JVS(32553)) - XX(5091) = (X(5091)-JVS(984)*XX(226)-JVS(9384)*XX(2230)-JVS(9926)*XX(2354)-JVS(11982)*XX(2770)-JVS(16953)*XX(3621)& - &-JVS(18906)*XX(3864)-JVS(21112)*XX(4123)-JVS(23447)*XX(4366)-JVS(25620)*XX(4565)-JVS(25915)*XX(4599)& - &-JVS(28803)*XX(4851)-JVS(31362)*XX(5023)-JVS(31377)*XX(5024)-JVS(31781)*XX(5046))/(JVS(32564)) - XX(5092) = (X(5092)-JVS(52)*XX(3)-JVS(17165)*XX(3646)-JVS(25367)*XX(4541)-JVS(27541)*XX(4747)-JVS(29034)*XX(4869)& - &-JVS(30048)*XX(4940)-JVS(30499)*XX(4970)-JVS(31636)*XX(5039)-JVS(31782)*XX(5046))/(JVS(32573)) - XX(5093) = (X(5093)-JVS(9500)*XX(2258)-JVS(9558)*XX(2272)-JVS(23222)*XX(4341)-JVS(25215)*XX(4528)-JVS(25728)*XX(4578)& - &-JVS(27891)*XX(4776)-JVS(28804)*XX(4851)-JVS(31363)*XX(5023)-JVS(31783)*XX(5046))/(JVS(32587)) - XX(5094) = (X(5094)-JVS(25538)*XX(4557))/(JVS(32611)) - XX(5095) = (X(5095)-JVS(108)*XX(20)-JVS(19622)*XX(3949)-JVS(19629)*XX(3950)-JVS(20572)*XX(4059)-JVS(22231)*XX(4242)& - &-JVS(27542)*XX(4747)-JVS(31091)*XX(5006)-JVS(32442)*XX(5085))/(JVS(32640)) - XX(5096) = (X(5096)-JVS(3701)*XX(926)-JVS(7265)*XX(1778)-JVS(9585)*XX(2278)-JVS(10826)*XX(2549)-JVS(16463)*XX(3561)& - &-JVS(28871)*XX(4856)-JVS(30026)*XX(4939)-JVS(31140)*XX(5009))/(JVS(32651)) - XX(5097) = (X(5097)-JVS(4526)*XX(1132)-JVS(8773)*XX(2092)-JVS(11172)*XX(2614)-JVS(21140)*XX(4126)-JVS(25175)*XX(4524)& - &-JVS(30197)*XX(4949)-JVS(31408)*XX(5026))/(JVS(32672)) - XX(5098) = (X(5098)-JVS(6392)*XX(1592)-JVS(11671)*XX(2715)-JVS(23628)*XX(4386)-JVS(30002)*XX(4938))/(JVS(32704)) - XX(5099) = (X(5099)-JVS(5006)*XX(1251)-JVS(11024)*XX(2587)-JVS(21630)*XX(4183)-JVS(27517)*XX(4745)-JVS(30500)*XX(4970)& - &-JVS(31637)*XX(5039)-JVS(31784)*XX(5046))/(JVS(32726)) - XX(5100) = (X(5100)-JVS(12096)*XX(2793)-JVS(15884)*XX(3476)-JVS(30691)*XX(4983))/(JVS(32756)) - XX(5101) = (X(5101)-JVS(5524)*XX(1380)-JVS(11472)*XX(2675)-JVS(30968)*XX(5000))/(JVS(32786)) - XX(5102) = (X(5102)-JVS(53)*XX(3)-JVS(26982)*XX(4693)-JVS(31785)*XX(5046))/(JVS(32806)) - XX(5103) = (X(5103)-JVS(20750)*XX(4081)-JVS(20775)*XX(4084)-JVS(27075)*XX(4703)-JVS(27326)*XX(4728)-JVS(30453)& - &*XX(4966)-JVS(30692)*XX(4983)-JVS(32187)*XX(5070)-JVS(32807)*XX(5102))/(JVS(32825)) - XX(5104) = (X(5104)-JVS(391)*XX(99)-JVS(3526)*XX(883)-JVS(9655)*XX(2293)-JVS(11202)*XX(2621)-JVS(15664)*XX(3431)& - &-JVS(21300)*XX(4147)-JVS(26710)*XX(4673))/(JVS(32849)) - XX(5105) = X(5105)/JVS(32867) - XX(5106) = (X(5106)-JVS(2468)*XX(631)-JVS(5868)*XX(1466)-JVS(11162)*XX(2612))/(JVS(32913)) - XX(5107) = (X(5107)-JVS(831)*XX(192)-JVS(1902)*XX(486)-JVS(4314)*XX(1079)-JVS(7510)*XX(1824)-JVS(14091)*XX(3166)& - &-JVS(17831)*XX(3731)-JVS(18136)*XX(3766)-JVS(19379)*XX(3919)-JVS(21104)*XX(4122)-JVS(22510)*XX(4270)& - &-JVS(23653)*XX(4389)-JVS(24022)*XX(4421)-JVS(24263)*XX(4443)-JVS(27162)*XX(4712)-JVS(27769)*XX(4766)& - &-JVS(30123)*XX(4944))/(JVS(32926)) - XX(5108) = (X(5108)-JVS(1294)*XX(314)-JVS(5504)*XX(1375)-JVS(8071)*XX(1945)-JVS(12729)*XX(2917)-JVS(15303)*XX(3382)& - &-JVS(18231)*XX(3777)-JVS(19254)*XX(3906)-JVS(25627)*XX(4566)-JVS(25687)*XX(4573)-JVS(25777)*XX(4584))& - &/(JVS(32937)) - XX(5109) = (X(5109)-JVS(709)*XX(171)-JVS(991)*XX(228)-JVS(8744)*XX(2086)-JVS(10226)*XX(2422)-JVS(16070)*XX(3505)& - &-JVS(17723)*XX(3718)-JVS(22815)*XX(4300)-JVS(23661)*XX(4390)-JVS(24293)*XX(4446)-JVS(25754)*XX(4581)& - &-JVS(26415)*XX(4646)-JVS(27956)*XX(4784)-JVS(29067)*XX(4871))/(JVS(32945)) - XX(5110) = (X(5110)-JVS(20968)*XX(4106))/(JVS(32972)) - XX(5111) = (X(5111)-JVS(3538)*XX(886)-JVS(11108)*XX(2600)-JVS(22490)*XX(4268)-JVS(24458)*XX(4462)-JVS(27684)*XX(4759)& - &-JVS(29125)*XX(4875))/(JVS(32992)) - XX(5112) = (X(5112)-JVS(861)*XX(197)-JVS(1790)*XX(453)-JVS(5039)*XX(1259)-JVS(9319)*XX(2216)-JVS(13833)*XX(3117)& - &-JVS(18006)*XX(3751)-JVS(18151)*XX(3768)-JVS(19054)*XX(3881)-JVS(20936)*XX(4103)-JVS(23289)*XX(4349)& - &-JVS(24125)*XX(4430)-JVS(24449)*XX(4461)-JVS(27169)*XX(4713)-JVS(29094)*XX(4873)-JVS(30081)*XX(4942))& - &/(JVS(33006)) - XX(5113) = (X(5113)-JVS(24459)*XX(4462)-JVS(27685)*XX(4759)-JVS(29126)*XX(4875))/(JVS(33021)) - XX(5114) = (X(5114)-JVS(777)*XX(183)-JVS(1787)*XX(452)-JVS(4780)*XX(1195)-JVS(9467)*XX(2250)-JVS(19638)*XX(3951)& - &-JVS(21227)*XX(4137)-JVS(22587)*XX(4278)-JVS(25036)*XX(4510)-JVS(31050)*XX(5004))/(JVS(33033)) - XX(5115) = (X(5115)-JVS(17293)*XX(3662)-JVS(26181)*XX(4623)-JVS(29000)*XX(4866)-JVS(29080)*XX(4872))/(JVS(33051)) - XX(5116) = (X(5116)-JVS(4199)*XX(1050)-JVS(7596)*XX(1842)-JVS(9335)*XX(2220)-JVS(11343)*XX(2647)-JVS(23371)*XX(4359)& - &-JVS(25176)*XX(4524)-JVS(27423)*XX(4737)-JVS(31110)*XX(5007)-JVS(31126)*XX(5008)-JVS(31409)*XX(5026)& - &-JVS(32216)*XX(5071)-JVS(32705)*XX(5098))/(JVS(33069)) - XX(5117) = (X(5117)-JVS(10117)*XX(2397)-JVS(12544)*XX(2883)-JVS(13360)*XX(3031)-JVS(30003)*XX(4938)-JVS(32706)& - &*XX(5098))/(JVS(33091)) - XX(5118) = (X(5118)-JVS(2365)*XX(607)-JVS(6721)*XX(1661)-JVS(15533)*XX(3413)-JVS(21026)*XX(4113)-JVS(25339)*XX(4539)& - &-JVS(29908)*XX(4936)-JVS(32612)*XX(5094))/(JVS(33102)) - XX(5119) = (X(5119)-JVS(2657)*XX(675)-JVS(3852)*XX(964)-JVS(8571)*XX(2049)-JVS(8577)*XX(2050)-JVS(18582)*XX(3822)& - &-JVS(22901)*XX(4309)-JVS(28188)*XX(4800)-JVS(28218)*XX(4801)-JVS(28229)*XX(4802)-JVS(28316)*XX(4811)& - &-JVS(30004)*XX(4938)-JVS(30818)*XX(4991)-JVS(31182)*XX(5011)-JVS(31410)*XX(5026)-JVS(31505)*XX(5031)& - &-JVS(32673)*XX(5097)-JVS(32707)*XX(5098)-JVS(33070)*XX(5116)-JVS(33092)*XX(5117))/(JVS(33114)) - XX(5120) = (X(5120)-JVS(1201)*XX(289)-JVS(5966)*XX(1490)-JVS(8231)*XX(1978)-JVS(11335)*XX(2646)-JVS(23676)*XX(4391)& - &-JVS(27908)*XX(4778)-JVS(28219)*XX(4801)-JVS(30027)*XX(4939)-JVS(31183)*XX(5011)-JVS(31932)*XX(5055))& - &/(JVS(33126)) - XX(5121) = (X(5121)-JVS(7857)*XX(1899)-JVS(10222)*XX(2421)-JVS(11288)*XX(2639)-JVS(14505)*XX(3245)-JVS(32508)& - &*XX(5087))/(JVS(33146)) - XX(5122) = (X(5122)-JVS(1494)*XX(371)-JVS(2864)*XX(724)-JVS(7861)*XX(1900)-JVS(7927)*XX(1913)-JVS(24137)*XX(4431)& - &-JVS(26697)*XX(4672)-JVS(26839)*XX(4686)-JVS(26853)*XX(4687))/(JVS(33163)) - XX(5123) = (X(5123)-JVS(20776)*XX(4084)-JVS(25814)*XX(4588)-JVS(28578)*XX(4835)-JVS(30235)*XX(4952)-JVS(30753)& - &*XX(4986)-JVS(31283)*XX(5018)-JVS(31786)*XX(5046)-JVS(32026)*XX(5059)-JVS(32808)*XX(5102))/(JVS(33203)) - XX(5124) = (X(5124)-JVS(8525)*XX(2038)-JVS(21503)*XX(4171))/(JVS(33216)) - XX(5125) = (X(5125)-JVS(2721)*XX(691)-JVS(6007)*XX(1500)-JVS(10765)*XX(2537))/(JVS(33289)) - XX(5126) = (X(5126)-JVS(20751)*XX(4081)-JVS(25815)*XX(4588)-JVS(29141)*XX(4877)-JVS(29327)*XX(4896)-JVS(30454)& - &*XX(4966)-JVS(30693)*XX(4983)-JVS(31540)*XX(5034)-JVS(31619)*XX(5038)-JVS(32027)*XX(5059)-JVS(32146)& - &*XX(5067)-JVS(32188)*XX(5070))/(JVS(33317)) - XX(5127) = (X(5127)-JVS(71)*XX(9)-JVS(3920)*XX(981)-JVS(10283)*XX(2436)-JVS(13181)*XX(2996)-JVS(20996)*XX(4109)& - &-JVS(30028)*XX(4939))/(JVS(33327)) - XX(5128) = (X(5128)-JVS(2515)*XX(642)-JVS(15749)*XX(3448)-JVS(17215)*XX(3652)-JVS(23122)*XX(4330))/(JVS(33345)) - XX(5129) = (X(5129)-JVS(5480)*XX(1369)-JVS(8065)*XX(1944)-JVS(8520)*XX(2037)-JVS(14786)*XX(3299)-JVS(30969)*XX(5000))& - &/(JVS(33378)) - XX(5130) = (X(5130)-JVS(2123)*XX(547)-JVS(5648)*XX(1411)-JVS(7472)*XX(1818)-JVS(12138)*XX(2802)-JVS(16435)*XX(3557)& - &-JVS(21217)*XX(4136)-JVS(32787)*XX(5101)-JVS(33379)*XX(5129))/(JVS(33406)) - XX(5131) = (X(5131)-JVS(1467)*XX(364)-JVS(5920)*XX(1479)-JVS(13262)*XX(3011)-JVS(17477)*XX(3686)-JVS(24251)*XX(4442))& - &/(JVS(33429)) - XX(5132) = (X(5132)-JVS(3868)*XX(968)-JVS(5123)*XX(1280)-JVS(11211)*XX(2623)-JVS(14398)*XX(3228)-JVS(17855)*XX(3734)& - &-JVS(20871)*XX(4096)-JVS(22499)*XX(4269)-JVS(23318)*XX(4352)-JVS(25525)*XX(4556)-JVS(29305)*XX(4894)& - &-JVS(30323)*XX(4958)-JVS(31787)*XX(5046))/(JVS(33441)) - XX(5133) = (X(5133)-JVS(16047)*XX(3502)-JVS(16225)*XX(3529)-JVS(17369)*XX(3672)-JVS(22747)*XX(4294)-JVS(26983)& - &*XX(4693))/(JVS(33451)) - XX(5134) = (X(5134)-JVS(6820)*XX(1684)-JVS(16386)*XX(3550)-JVS(32352)*XX(5080))/(JVS(33470)) - XX(5135) = (X(5135)-JVS(5549)*XX(1386)-JVS(7251)*XX(1774)-JVS(8389)*XX(2011)-JVS(12878)*XX(2944)-JVS(16331)*XX(3542)& - &-JVS(29095)*XX(4873)-JVS(29254)*XX(4889)-JVS(31890)*XX(5053))/(JVS(33487)) - XX(5136) = (X(5136)-JVS(6187)*XX(1545)-JVS(12529)*XX(2880)-JVS(32147)*XX(5067))/(JVS(33512)) - XX(5137) = (X(5137)-JVS(4144)*XX(1037)-JVS(4398)*XX(1100)-JVS(11547)*XX(2691)-JVS(31891)*XX(5053))/(JVS(33562)) - XX(5138) = (X(5138)-JVS(795)*XX(186)-JVS(1816)*XX(460)-JVS(4206)*XX(1052)-JVS(10266)*XX(2432)-JVS(13692)*XX(3091)& - &-JVS(17414)*XX(3678)-JVS(17513)*XX(3690)-JVS(19343)*XX(3916)-JVS(21582)*XX(4179)-JVS(22354)*XX(4254)& - &-JVS(23389)*XX(4361)-JVS(24340)*XX(4450)-JVS(25257)*XX(4532)-JVS(27148)*XX(4710)-JVS(27185)*XX(4715)& - &-JVS(27705)*XX(4760)-JVS(28785)*XX(4850)-JVS(30082)*XX(4942)-JVS(33052)*XX(5115)-JVS(33513)*XX(5136)& - &-JVS(33563)*XX(5137))/(JVS(33575)) - XX(5139) = X(5139)/JVS(33698) - XX(5140) = (X(5140)-JVS(17294)*XX(3662)-JVS(27400)*XX(4735)-JVS(29001)*XX(4866)-JVS(30383)*XX(4962)-JVS(30872)& - &*XX(4995)-JVS(31892)*XX(5053)-JVS(33564)*XX(5137)-JVS(33699)*XX(5139))/(JVS(33729)) - XX(5141) = (X(5141)-JVS(14200)*XX(3186)-JVS(17172)*XX(3647)-JVS(18811)*XX(3853)-JVS(28048)*XX(4793)-JVS(29696)& - &*XX(4920)-JVS(30139)*XX(4946)-JVS(30582)*XX(4977)-JVS(32189)*XX(5070)-JVS(32757)*XX(5100)-JVS(33700)& - &*XX(5139))/(JVS(33752)) - XX(5142) = (X(5142)-JVS(7049)*XX(1733)-JVS(7126)*XX(1749)-JVS(7133)*XX(1750)-JVS(9191)*XX(2188))/(JVS(33815)) - XX(5143) = (X(5143)-JVS(31893)*XX(5053)-JVS(33565)*XX(5137)-JVS(33701)*XX(5139))/(JVS(33886)) - XX(5144) = (X(5144)-JVS(745)*XX(177)-JVS(1131)*XX(269)-JVS(5970)*XX(1491)-JVS(9069)*XX(2161)-JVS(14003)*XX(3148)& - &-JVS(17989)*XX(3749)-JVS(18265)*XX(3781)-JVS(19354)*XX(3917)-JVS(19849)*XX(3977)-JVS(23471)*XX(4369)& - &-JVS(24178)*XX(4435)-JVS(25140)*XX(4521)-JVS(27192)*XX(4716)-JVS(31141)*XX(5009)-JVS(32652)*XX(5096)& - &-JVS(33566)*XX(5137)-JVS(33702)*XX(5139)-JVS(33887)*XX(5143))/(JVS(33901)) - XX(5145) = (X(5145)-JVS(6728)*XX(1662)-JVS(8921)*XX(2126)-JVS(10245)*XX(2427)-JVS(13646)*XX(3083))/(JVS(33944)) - XX(5146) = (X(5146)-JVS(783)*XX(184)-JVS(1639)*XX(412)-JVS(3474)*XX(870)-JVS(8781)*XX(2094)-JVS(14104)*XX(3168)& - &-JVS(17384)*XX(3674)-JVS(19558)*XX(3941)-JVS(23998)*XX(4419)-JVS(27266)*XX(4722)-JVS(29416)*XX(4903)& - &-JVS(30371)*XX(4961)-JVS(30466)*XX(4967)-JVS(31690)*XX(5043)-JVS(31933)*XX(5055)-JVS(31966)*XX(5057)& - &-JVS(32788)*XX(5101)-JVS(32914)*XX(5106)-JVS(32973)*XX(5110)-JVS(33380)*XX(5129)-JVS(33945)*XX(5145))& - &/(JVS(33961)) - XX(5147) = (X(5147)-JVS(7035)*XX(1730)-JVS(7797)*XX(1885)-JVS(9857)*XX(2337)-JVS(13366)*XX(3032)-JVS(19085)*XX(3885)& - &-JVS(19333)*XX(3915)-JVS(19410)*XX(3923)-JVS(22913)*XX(4310)-JVS(23918)*XX(4411)-JVS(23927)*XX(4412)& - &-JVS(25177)*XX(4524)-JVS(26577)*XX(4662)-JVS(28597)*XX(4837)-JVS(29049)*XX(4870)-JVS(30540)*XX(4973)& - &-JVS(31205)*XX(5012)-JVS(31411)*XX(5026)-JVS(31678)*XX(5042)-JVS(32077)*XX(5062)-JVS(32217)*XX(5071)& - &-JVS(32708)*XX(5098)-JVS(33093)*XX(5117)-JVS(33147)*XX(5121)-JVS(33816)*XX(5142))/(JVS(33977)) - XX(5148) = (X(5148)-JVS(3579)*XX(896)-JVS(8307)*XX(1994)-JVS(10389)*XX(2459)-JVS(12585)*XX(2891)-JVS(27964)*XX(4785)& - &-JVS(30541)*XX(4973)-JVS(30873)*XX(4995)-JVS(31967)*XX(5057)-JVS(32789)*XX(5101)-JVS(33328)*XX(5127)& - &-JVS(33381)*XX(5129))/(JVS(33997)) - XX(5149) = (X(5149)-JVS(3383)*XX(847)-JVS(7299)*XX(1785)-JVS(8394)*XX(2012)-JVS(14304)*XX(3208)-JVS(19710)*XX(3959)& - &-JVS(32148)*XX(5067)-JVS(33703)*XX(5139))/(JVS(34017)) - XX(5150) = (X(5150)-JVS(4561)*XX(1140)-JVS(7662)*XX(1856)-JVS(9454)*XX(2247)-JVS(12855)*XX(2939)-JVS(23281)*XX(4348)& - &-JVS(30542)*XX(4973)-JVS(31934)*XX(5055))/(JVS(34039)) - XX(5151) = (X(5151)-JVS(757)*XX(179)-JVS(9976)*XX(2365)-JVS(14373)*XX(3222)-JVS(23677)*XX(4391)-JVS(28220)*XX(4801)& - &-JVS(29215)*XX(4885)-JVS(30029)*XX(4939)-JVS(31184)*XX(5011)-JVS(33946)*XX(5145))/(JVS(34061)) - XX(5152) = (X(5152)-JVS(9022)*XX(2150)-JVS(10583)*XX(2500)-JVS(12049)*XX(2783))/(JVS(34103)) - XX(5153) = (X(5153)-JVS(2699)*XX(686)-JVS(8134)*XX(1959)-JVS(17057)*XX(3636)-JVS(17266)*XX(3658)-JVS(17353)*XX(3670)& - &-JVS(18112)*XX(3763)-JVS(21013)*XX(4111)-JVS(23491)*XX(4372)-JVS(23501)*XX(4373)-JVS(25821)*XX(4589)& - &-JVS(28398)*XX(4819)-JVS(31788)*XX(5046)-JVS(31842)*XX(5049)-JVS(31853)*XX(5050)-JVS(32588)*XX(5093)& - &-JVS(33217)*XX(5124)-JVS(34104)*XX(5152))/(JVS(34121)) - XX(5154) = (X(5154)-JVS(1105)*XX(261)-JVS(8815)*XX(2101)-JVS(11044)*XX(2590)-JVS(17053)*XX(3635)-JVS(22374)*XX(4256)& - &-JVS(23548)*XX(4378)-JVS(30132)*XX(4945)-JVS(30324)*XX(4958)-JVS(31024)*XX(5003)-JVS(31063)*XX(5005)& - &-JVS(32271)*XX(5075)-JVS(32353)*XX(5080)-JVS(33452)*XX(5133)-JVS(34105)*XX(5152))/(JVS(34130)) - XX(5155) = (X(5155)-JVS(13505)*XX(3059)-JVS(14904)*XX(3326)-JVS(14960)*XX(3334)-JVS(16048)*XX(3502)-JVS(16226)& - &*XX(3529)-JVS(17370)*XX(3672)-JVS(22748)*XX(4294)-JVS(26984)*XX(4693)-JVS(33453)*XX(5133))/(JVS(34144)) - XX(5156) = (X(5156)-JVS(54)*XX(3)-JVS(31789)*XX(5046))/(JVS(34162)) - XX(5157) = (X(5157)-JVS(20865)*XX(4095)-JVS(31894)*XX(5053)-JVS(32974)*XX(5110)-JVS(33704)*XX(5139))/(JVS(34189)) - XX(5158) = (X(5158)-JVS(3326)*XX(833)-JVS(13310)*XX(3021))/(JVS(34238)) - XX(5159) = (X(5159)-JVS(24800)*XX(4493)-JVS(26558)*XX(4660)-JVS(29015)*XX(4867)-JVS(30488)*XX(4969)-JVS(31296)& - &*XX(5019)-JVS(31308)*XX(5020)-JVS(32354)*XX(5080)-JVS(32993)*XX(5111))/(JVS(34259)) - XX(5160) = X(5160)/JVS(34487) - XX(5161) = (X(5161)-JVS(733)*XX(175)-JVS(8731)*XX(2083)-JVS(10133)*XX(2400)-JVS(11426)*XX(2665)-JVS(21487)*XX(4169)& - &-JVS(23696)*XX(4392)-JVS(32868)*XX(5105)-JVS(33888)*XX(5143))/(JVS(34543)) - XX(5162) = (X(5162)-JVS(27706)*XX(4760)-JVS(31860)*XX(5051)-JVS(32149)*XX(5067)-JVS(33705)*XX(5139)-JVS(33817)& - &*XX(5142)-JVS(34018)*XX(5149)-JVS(34106)*XX(5152))/(JVS(34568)) - XX(5163) = (X(5163)-JVS(639)*XX(160)-JVS(1407)*XX(345)-JVS(9369)*XX(2227)-JVS(9619)*XX(2285)-JVS(19487)*XX(3932)& - &-JVS(22294)*XX(4248)-JVS(22422)*XX(4261)-JVS(28746)*XX(4848)-JVS(30874)*XX(4995)-JVS(31935)*XX(5055)& - &-JVS(33329)*XX(5127)-JVS(34040)*XX(5150)-JVS(34239)*XX(5158))/(JVS(34583)) - XX(5164) = (X(5164)-JVS(1359)*XX(330)-JVS(4056)*XX(1015)-JVS(10703)*XX(2525)-JVS(32509)*XX(5087))/(JVS(34608)) - XX(5165) = (X(5165)-JVS(19077)*XX(3884)-JVS(29081)*XX(4872)-JVS(30124)*XX(4944)-JVS(33514)*XX(5136)-JVS(33889)& - &*XX(5143)-JVS(34019)*XX(5149))/(JVS(34653)) - XX(5166) = (X(5166)-JVS(2360)*XX(606)-JVS(2366)*XX(607)-JVS(2696)*XX(685)-JVS(2763)*XX(702)-JVS(2824)*XX(715)& - &-JVS(10469)*XX(2476)-JVS(14037)*XX(3155)-JVS(17045)*XX(3634)-JVS(22659)*XX(4286)-JVS(27868)*XX(4774)& - &-JVS(28055)*XX(4794)-JVS(29469)*XX(4906)-JVS(29476)*XX(4907)-JVS(29513)*XX(4909)-JVS(29577)*XX(4913)& - &-JVS(30263)*XX(4954)-JVS(30396)*XX(4963)-JVS(31790)*XX(5046)-JVS(32175)*XX(5069)-JVS(32589)*XX(5093)& - &-JVS(33103)*XX(5118)-JVS(33330)*XX(5127)-JVS(33442)*XX(5132)-JVS(33471)*XX(5134)-JVS(34107)*XX(5152)& - &-JVS(34240)*XX(5158)-JVS(34488)*XX(5160))/(JVS(34663)) - XX(5167) = (X(5167)-JVS(5704)*XX(1425)-JVS(10935)*XX(2570)-JVS(11135)*XX(2606)-JVS(16038)*XX(3500)-JVS(16249)*XX(3532)& - &-JVS(16414)*XX(3555)-JVS(23864)*XX(4406)-JVS(28141)*XX(4796)-JVS(30694)*XX(4983)-JVS(31064)*XX(5005)& - &-JVS(33454)*XX(5133))/(JVS(34676)) - XX(5168) = (X(5168)-JVS(2189)*XX(563)-JVS(6722)*XX(1661)-JVS(8723)*XX(2081)-JVS(22623)*XX(4282)-JVS(29514)*XX(4909)& - &-JVS(30928)*XX(4999)-JVS(31236)*XX(5015)-JVS(31567)*XX(5036)-JVS(31791)*XX(5046)-JVS(32613)*XX(5094))& - &/(JVS(34689)) - XX(5169) = (X(5169)-JVS(567)*XX(148)-JVS(18789)*XX(3850)-JVS(19006)*XX(3876)-JVS(27543)*XX(4747)-JVS(28735)*XX(4847)& - &-JVS(30763)*XX(4987))/(JVS(34709)) - XX(5170) = (X(5170)-JVS(55)*XX(3)-JVS(28142)*XX(4796)-JVS(31792)*XX(5046))/(JVS(34737)) - XX(5171) = (X(5171)-JVS(4804)*XX(1201)-JVS(11206)*XX(2622))/(JVS(34771)) - XX(5172) = (X(5172)-JVS(15127)*XX(3358)-JVS(22749)*XX(4294))/(JVS(34805)) - XX(5173) = (X(5173)-JVS(1809)*XX(458)-JVS(6825)*XX(1685)-JVS(9074)*XX(2162)-JVS(16395)*XX(3552)-JVS(26526)*XX(4657)& - &-JVS(26539)*XX(4658)-JVS(30133)*XX(4945)-JVS(30325)*XX(4958)-JVS(34108)*XX(5152)-JVS(34145)*XX(5155)& - &-JVS(34677)*XX(5167)-JVS(34806)*XX(5172))/(JVS(34826)) - XX(5174) = (X(5174)-JVS(256)*XX(62)-JVS(8846)*XX(2109)-JVS(11411)*XX(2662)-JVS(23549)*XX(4378)-JVS(25611)*XX(4564)& - &-JVS(31025)*XX(5003)-JVS(31065)*XX(5005)-JVS(32272)*XX(5075)-JVS(32355)*XX(5080)-JVS(33455)*XX(5133)& - &-JVS(34807)*XX(5172))/(JVS(34835)) - XX(5175) = (X(5175)-JVS(978)*XX(224)-JVS(2386)*XX(612)-JVS(18973)*XX(3872)-JVS(19443)*XX(3927)-JVS(19786)*XX(3969)& - &-JVS(21209)*XX(4135)-JVS(21286)*XX(4145)-JVS(28458)*XX(4824)-JVS(28669)*XX(4842)-JVS(28762)*XX(4849)& - &-JVS(31268)*XX(5017)-JVS(31705)*XX(5044)-JVS(31793)*XX(5046)-JVS(31909)*XX(5054)-JVS(32249)*XX(5073)& - &-JVS(32412)*XX(5084)-JVS(32443)*XX(5085)-JVS(32869)*XX(5105)-JVS(34772)*XX(5171))/(JVS(34848)) - XX(5176) = (X(5176)-JVS(28763)*XX(4849)-JVS(30764)*XX(4987)-JVS(32250)*XX(5073))/(JVS(34874)) - XX(5177) = (X(5177)-JVS(26315)*XX(4636)-JVS(31250)*XX(5016)-JVS(32356)*XX(5080))/(JVS(34901)) - XX(5178) = (X(5178)-JVS(31895)*XX(5053)-JVS(32709)*XX(5098)-JVS(33706)*XX(5139)-JVS(33818)*XX(5142))/(JVS(34955)) - XX(5179) = (X(5179)-JVS(1253)*XX(301)-JVS(5888)*XX(1471)-JVS(12556)*XX(2886))/(JVS(34994)) - XX(5180) = (X(5180)-JVS(12441)*XX(2861)-JVS(34109)*XX(5152))/(JVS(35035)) - XX(5181) = (X(5181)-JVS(2330)*XX(598)-JVS(4942)*XX(1235)-JVS(8429)*XX(2020)-JVS(12757)*XX(2922)-JVS(17504)*XX(3689)& - &-JVS(19645)*XX(3952)-JVS(23381)*XX(4360)-JVS(28349)*XX(4814)-JVS(29185)*XX(4882)-JVS(29196)*XX(4883)& - &-JVS(30296)*XX(4957)-JVS(30384)*XX(4962)-JVS(30875)*XX(4995)-JVS(30896)*XX(4996)-JVS(31051)*XX(5004)& - &-JVS(32373)*XX(5081)-JVS(32483)*XX(5086)-JVS(32994)*XX(5111)-JVS(33022)*XX(5113)-JVS(33218)*XX(5124)& - &-JVS(34122)*XX(5153)-JVS(34738)*XX(5170)-JVS(35036)*XX(5180))/(JVS(35051)) - XX(5182) = X(5182)/JVS(35128) - XX(5183) = (X(5183)-JVS(2991)*XX(751)-JVS(3944)*XX(987)-JVS(13222)*XX(3003)-JVS(33819)*XX(5142))/(JVS(35344)) - XX(5184) = X(5184)/JVS(35400) - XX(5185) = (X(5185)-JVS(597)*XX(153)-JVS(1191)*XX(286)-JVS(7379)*XX(1800)-JVS(10093)*XX(2391)-JVS(11427)*XX(2665)& - &-JVS(23510)*XX(4374)-JVS(23697)*XX(4392)-JVS(29082)*XX(4872)-JVS(32870)*XX(5105)-JVS(33515)*XX(5136)& - &-JVS(33890)*XX(5143)-JVS(34020)*XX(5149)-JVS(34773)*XX(5171)-JVS(35345)*XX(5183)-JVS(35401)*XX(5184))& - &/(JVS(35431)) - XX(5186) = (X(5186)-JVS(1527)*XX(380)-JVS(5195)*XX(1298)-JVS(9018)*XX(2149)-JVS(11646)*XX(2710)-JVS(18725)*XX(3843)& - &-JVS(19724)*XX(3961)-JVS(23185)*XX(4336)-JVS(23349)*XX(4356)-JVS(23424)*XX(4365)-JVS(23456)*XX(4367)& - &-JVS(25770)*XX(4583)-JVS(26266)*XX(4631)-JVS(27202)*XX(4717)-JVS(28489)*XX(4827)-JVS(29068)*XX(4871)& - &-JVS(29670)*XX(4918)-JVS(29750)*XX(4924)-JVS(32975)*XX(5110)-JVS(33053)*XX(5115)-JVS(33290)*XX(5125)& - &-JVS(33516)*XX(5136)-JVS(33730)*XX(5140)-JVS(33820)*XX(5142)-JVS(33891)*XX(5143)-JVS(33947)*XX(5145)& - &-JVS(34021)*XX(5149)-JVS(34190)*XX(5157)-JVS(34241)*XX(5158)-JVS(34489)*XX(5160)-JVS(34544)*XX(5161)& - &-JVS(34609)*XX(5164)-JVS(34774)*XX(5171)-JVS(35346)*XX(5183)-JVS(35402)*XX(5184)-JVS(35432)*XX(5185))& - &/(JVS(35440)) - XX(5187) = (X(5187)-JVS(253)*XX(61)-JVS(18766)*XX(3848)-JVS(18781)*XX(3849)-JVS(21056)*XX(4117)-JVS(27544)*XX(4747)& - &-JVS(27916)*XX(4779)-JVS(31424)*XX(5027)-JVS(31910)*XX(5054)-JVS(32871)*XX(5105)-JVS(33346)*XX(5128)& - &-JVS(34775)*XX(5171)-JVS(35403)*XX(5184))/(JVS(35449)) - XX(5188) = X(5188)/JVS(35543) - XX(5189) = (X(5189)-JVS(432)*XX(112)-JVS(19163)*XX(3895)-JVS(19823)*XX(3974)-JVS(26205)*XX(4625)-JVS(27545)*XX(4747)& - &-JVS(30274)*XX(4955)-JVS(31364)*XX(5023)-JVS(32357)*XX(5080)-JVS(33472)*XX(5134)-JVS(34902)*XX(5177)& - &-JVS(35544)*XX(5188))/(JVS(35580)) - XX(5190) = (X(5190)-JVS(8544)*XX(2042)-JVS(17207)*XX(3651)-JVS(25216)*XX(4528)-JVS(25867)*XX(4593)-JVS(25907)*XX(4598)& - &-JVS(28382)*XX(4817)-JVS(28872)*XX(4856)-JVS(30030)*XX(4939)-JVS(30285)*XX(4956)-JVS(30513)*XX(4972)& - &-JVS(31142)*XX(5009)-JVS(31794)*XX(5046)-JVS(32653)*XX(5096)-JVS(33291)*XX(5125)-JVS(33948)*XX(5145)& - &-JVS(34110)*XX(5152)-JVS(34242)*XX(5158)-JVS(34490)*XX(5160)-JVS(34610)*XX(5164))/(JVS(35590)) - XX(5191) = (X(5191)-JVS(33821)*XX(5142)-JVS(35347)*XX(5183))/(JVS(35692)) - XX(5192) = (X(5192)-JVS(1935)*XX(495)-JVS(8167)*XX(1965)-JVS(8613)*XX(2057)-JVS(11592)*XX(2699)-JVS(19148)*XX(3893)& - &-JVS(19861)*XX(3978)-JVS(22295)*XX(4248)-JVS(22423)*XX(4261)-JVS(28747)*XX(4848)-JVS(28894)*XX(4858)& - &-JVS(30819)*XX(4991)-JVS(30876)*XX(4995)-JVS(31936)*XX(5055)-JVS(33331)*XX(5127)-JVS(34041)*XX(5150)& - &-JVS(34062)*XX(5151)-JVS(34243)*XX(5158)-JVS(34491)*XX(5160)-JVS(34611)*XX(5164)-JVS(35348)*XX(5183)& - &-JVS(35404)*XX(5184)-JVS(35693)*XX(5191))/(JVS(35712)) - XX(5193) = X(5193)/JVS(35995) - XX(5194) = (X(5194)-JVS(11865)*XX(2748)-JVS(23579)*XX(4382)-JVS(25217)*XX(4528)-JVS(28939)*XX(4862)-JVS(29867)& - &*XX(4932)-JVS(30264)*XX(4954)-JVS(31365)*XX(5023)-JVS(31620)*XX(5038)-JVS(33219)*XX(5124)-JVS(34111)& - &*XX(5152)-JVS(34739)*XX(5170)-JVS(35037)*XX(5180))/(JVS(36037)) - XX(5195) = (X(5195)-JVS(1059)*XX(249)-JVS(7422)*XX(1809)-JVS(8790)*XX(2096)-JVS(11630)*XX(2707))/(JVS(36090)) - XX(5196) = (X(5196)-JVS(771)*XX(182)-JVS(3279)*XX(821)-JVS(5043)*XX(1260)-JVS(10036)*XX(2377)-JVS(10385)*XX(2458)& - &-JVS(21324)*XX(4150)-JVS(26397)*XX(4644)-JVS(29404)*XX(4902)-JVS(32251)*XX(5073)-JVS(32444)*XX(5085)& - &-JVS(34776)*XX(5171)-JVS(34903)*XX(5177)-JVS(34995)*XX(5179))/(JVS(36117)) - XX(5197) = (X(5197)-JVS(7515)*XX(1825)-JVS(17642)*XX(3708)-JVS(32358)*XX(5080))/(JVS(36171)) - XX(5198) = (X(5198)-JVS(1140)*XX(271)-JVS(2333)*XX(599)-JVS(8349)*XX(2002)-JVS(9744)*XX(2313)-JVS(17914)*XX(3741)& - &-JVS(25746)*XX(4580)-JVS(25900)*XX(4597)-JVS(29405)*XX(4902)-JVS(29589)*XX(4914)-JVS(32872)*XX(5105)& - &-JVS(34492)*XX(5160)-JVS(34777)*XX(5171)-JVS(35129)*XX(5182)-JVS(36172)*XX(5197))/(JVS(36192)) - XX(5199) = (X(5199)-JVS(18477)*XX(3809))/(JVS(36256)) - XX(5200) = (X(5200)-JVS(9623)*XX(2286)-JVS(12713)*XX(2914)-JVS(23305)*XX(4351)-JVS(23478)*XX(4370)-JVS(25218)*XX(4528)& - &-JVS(28707)*XX(4845)-JVS(29515)*XX(4909)-JVS(30098)*XX(4943)-JVS(31795)*XX(5046)-JVS(32510)*XX(5087)& - &-JVS(33148)*XX(5121)-JVS(35545)*XX(5188)-JVS(35996)*XX(5193))/(JVS(36287)) - XX(5201) = (X(5201)-JVS(3)*XX(1))/(JVS(36717)) - XX(5202) = (X(5202)-JVS(9378)*XX(2229)-JVS(10223)*XX(2421)-JVS(10271)*XX(2433)-JVS(14674)*XX(3277)-JVS(32511)*XX(5087)& - &-JVS(35546)*XX(5188)-JVS(35997)*XX(5193)-JVS(36718)*XX(5201))/(JVS(36791)) - XX(5203) = (X(5203)-JVS(18759)*XX(3847)-JVS(20003)*XX(3995)-JVS(26354)*XX(4640)-JVS(27738)*XX(4763)-JVS(29601)& - &*XX(4915)-JVS(30970)*XX(5000)-JVS(32218)*XX(5071)-JVS(32512)*XX(5087)-JVS(32915)*XX(5106)-JVS(33149)& - &*XX(5121)-JVS(33949)*XX(5145)-JVS(34493)*XX(5160)-JVS(35547)*XX(5188)-JVS(35998)*XX(5193)-JVS(36719)& - &*XX(5201)-JVS(36792)*XX(5202))/(JVS(36845)) - XX(5204) = (X(5204)-JVS(2825)*XX(715)-JVS(8936)*XX(2130)-JVS(15534)*XX(3413)-JVS(18420)*XX(3801)-JVS(21027)*XX(4113)& - &-JVS(25340)*XX(4539)-JVS(26090)*XX(4617)-JVS(27576)*XX(4749)-JVS(28545)*XX(4832)-JVS(29909)*XX(4936)& - &-JVS(31005)*XX(5001)-JVS(31014)*XX(5002)-JVS(31817)*XX(5047)-JVS(32614)*XX(5094)-JVS(32758)*XX(5100)& - &-JVS(33104)*XX(5118)-JVS(33473)*XX(5134)-JVS(34163)*XX(5156)-JVS(34690)*XX(5168)-JVS(34740)*XX(5170)& - &-JVS(35548)*XX(5188)-JVS(36257)*XX(5199)-JVS(36720)*XX(5201))/(JVS(36857)) - XX(5205) = (X(5205)-JVS(7352)*XX(1795)-JVS(17021)*XX(3630)-JVS(25482)*XX(4551)-JVS(29306)*XX(4894)-JVS(31385)*XX(5025)& - &-JVS(31549)*XX(5035)-JVS(31796)*XX(5046)-JVS(32615)*XX(5094)-JVS(32759)*XX(5100)-JVS(34164)*XX(5156)& - &-JVS(34678)*XX(5167)-JVS(34741)*XX(5170)-JVS(34808)*XX(5172)-JVS(35549)*XX(5188)-JVS(36721)*XX(5201))& - &/(JVS(36870)) - XX(5206) = (X(5206)-JVS(715)*XX(172)-JVS(1732)*XX(439)-JVS(4510)*XX(1128)-JVS(8842)*XX(2108)-JVS(21631)*XX(4183)& - &-JVS(23716)*XX(4394)-JVS(27394)*XX(4734)-JVS(27518)*XX(4745)-JVS(32850)*XX(5104)-JVS(34494)*XX(5160)& - &-JVS(34996)*XX(5179)-JVS(35405)*XX(5184)-JVS(36091)*XX(5195)-JVS(36722)*XX(5201))/(JVS(36883)) - XX(5207) = (X(5207)-JVS(2028)*XX(522)-JVS(19092)*XX(3886)-JVS(19450)*XX(3928)-JVS(20809)*XX(4088)-JVS(21551)*XX(4176)& - &-JVS(22391)*XX(4258)-JVS(27546)*XX(4747)-JVS(27752)*XX(4764)-JVS(28952)*XX(4863)-JVS(31226)*XX(5014)& - &-JVS(31797)*XX(5046)-JVS(32851)*XX(5104)-JVS(34495)*XX(5160)-JVS(35130)*XX(5182)-JVS(35406)*XX(5184)& - &-JVS(36092)*XX(5195)-JVS(36723)*XX(5201))/(JVS(36903)) - XX(5208) = (X(5208)-JVS(6881)*XX(1697)-JVS(7959)*XX(1921)-JVS(9766)*XX(2318)-JVS(12777)*XX(2926)-JVS(18067)*XX(3758)& - &-JVS(25358)*XX(4540)-JVS(26407)*XX(4645)-JVS(29050)*XX(4870)-JVS(30385)*XX(4962)-JVS(30543)*XX(4973)& - &-JVS(30877)*XX(4995)-JVS(33707)*XX(5139)-JVS(35349)*XX(5183)-JVS(35407)*XX(5184)-JVS(35694)*XX(5191)& - &-JVS(35999)*XX(5193)-JVS(36093)*XX(5195)-JVS(36724)*XX(5201))/(JVS(36929)) - XX(5209) = (X(5209)-JVS(17022)*XX(3630)-JVS(17173)*XX(3647)-JVS(27859)*XX(4773)-JVS(28926)*XX(4861)-JVS(29448)& - &*XX(4904)-JVS(29781)*XX(4927)-JVS(30695)*XX(4983)-JVS(30841)*XX(4993)-JVS(32760)*XX(5100)-JVS(34165)& - &*XX(5156)-JVS(34742)*XX(5170)-JVS(34809)*XX(5172)-JVS(36725)*XX(5201))/(JVS(36953)) - XX(5210) = (X(5210)-JVS(32761)*XX(5100)-JVS(36726)*XX(5201))/(JVS(37022)) - XX(5211) = (X(5211)-JVS(34997)*XX(5179)-JVS(36727)*XX(5201))/(JVS(37066)) - XX(5212) = (X(5212)-JVS(19261)*XX(3907)-JVS(27933)*XX(4781)-JVS(29275)*XX(4891)-JVS(32252)*XX(5073)-JVS(33347)& - &*XX(5128)-JVS(34998)*XX(5179)-JVS(35550)*XX(5188)-JVS(37067)*XX(5211))/(JVS(37088)) - XX(5213) = (X(5213)-JVS(21119)*XX(4124)-JVS(21688)*XX(4189)-JVS(23216)*XX(4340)-JVS(24801)*XX(4493)-JVS(30489)& - &*XX(4969)-JVS(31453)*XX(5029)-JVS(32484)*XX(5086)-JVS(32995)*XX(5111)-JVS(34260)*XX(5159)-JVS(34496)& - &*XX(5160)-JVS(34778)*XX(5171)-JVS(35131)*XX(5182)-JVS(36173)*XX(5197)-JVS(36193)*XX(5198)-JVS(36258)& - &*XX(5199)-JVS(36728)*XX(5201)-JVS(37023)*XX(5210))/(JVS(37112)) - XX(5214) = (X(5214)-JVS(5279)*XX(1319)-JVS(12146)*XX(2804)-JVS(14525)*XX(3247))/(JVS(37184)) - XX(5215) = (X(5215)-JVS(17845)*XX(3733)-JVS(18804)*XX(3852)-JVS(19895)*XX(3982)-JVS(21521)*XX(4173)-JVS(22209)& - &*XX(4240)-JVS(23906)*XX(4410)-JVS(24303)*XX(4447)-JVS(26196)*XX(4624)-JVS(26605)*XX(4664)-JVS(28001)& - &*XX(4789)-JVS(28846)*XX(4854)-JVS(29373)*XX(4900)-JVS(29538)*XX(4910)-JVS(30971)*XX(5000)-JVS(31052)& - &*XX(5004)-JVS(31320)*XX(5021)-JVS(32234)*XX(5072)-JVS(32485)*XX(5086)-JVS(32790)*XX(5101)-JVS(32996)& - &*XX(5111)-JVS(33382)*XX(5129)-JVS(34497)*XX(5160)-JVS(35132)*XX(5182)-JVS(36729)*XX(5201)-JVS(37185)& - &*XX(5214))/(JVS(37219)) - XX(5216) = (X(5216)-JVS(28143)*XX(4796)-JVS(30696)*XX(4983))/(JVS(37263)) - XX(5217) = (X(5217)-JVS(2764)*XX(702)-JVS(9724)*XX(2308)-JVS(15535)*XX(3413)-JVS(20974)*XX(4107)-JVS(23026)*XX(4321)& - &-JVS(25449)*XX(4548)-JVS(27672)*XX(4758)-JVS(28546)*XX(4832)-JVS(30573)*XX(4976)-JVS(31006)*XX(5001)& - &-JVS(31214)*XX(5013)-JVS(31251)*XX(5016)-JVS(31798)*XX(5046)-JVS(31818)*XX(5047)-JVS(32359)*XX(5080)& - &-JVS(32565)*XX(5091)-JVS(32616)*XX(5094)-JVS(34166)*XX(5156)-JVS(34743)*XX(5170)-JVS(34810)*XX(5172)& - &-JVS(34827)*XX(5173)-JVS(35038)*XX(5180)-JVS(35551)*XX(5188)-JVS(36174)*XX(5197)-JVS(36259)*XX(5199)& - &-JVS(36730)*XX(5201)-JVS(36871)*XX(5205)-JVS(36954)*XX(5209)-JVS(37024)*XX(5210)-JVS(37264)*XX(5216))& - &/(JVS(37285)) - XX(5218) = (X(5218)-JVS(843)*XX(194)-JVS(2361)*XX(606)-JVS(15536)*XX(3413)-JVS(20975)*XX(4107)-JVS(25450)*XX(4548)& - &-JVS(31215)*XX(5013)-JVS(31252)*XX(5016)-JVS(31799)*XX(5046)-JVS(32360)*XX(5080)-JVS(32566)*XX(5091)& - &-JVS(34828)*XX(5173)-JVS(35039)*XX(5180)-JVS(35552)*XX(5188)-JVS(36260)*XX(5199)-JVS(36731)*XX(5201)& - &-JVS(36872)*XX(5205)-JVS(36955)*XX(5209)-JVS(37025)*XX(5210)-JVS(37265)*XX(5216))/(JVS(37296)) - XX(5219) = (X(5219)-JVS(409)*XX(105)-JVS(2362)*XX(606)-JVS(2765)*XX(702)-JVS(9475)*XX(2252)-JVS(14469)*XX(3241)& - &-JVS(15639)*XX(3428)-JVS(26079)*XX(4615)-JVS(28927)*XX(4861)-JVS(31550)*XX(5035)-JVS(31651)*XX(5040)& - &-JVS(31800)*XX(5046)-JVS(32261)*XX(5074)-JVS(32617)*XX(5094)-JVS(33474)*XX(5134)-JVS(34131)*XX(5154)& - &-JVS(34146)*XX(5155)-JVS(34679)*XX(5167)-JVS(34811)*XX(5172)-JVS(34836)*XX(5174)-JVS(35040)*XX(5180)& - &-JVS(35553)*XX(5188)-JVS(36261)*XX(5199)-JVS(36732)*XX(5201)-JVS(37026)*XX(5210)-JVS(37266)*XX(5216)& - &-JVS(37286)*XX(5217)-JVS(37297)*XX(5218))/(JVS(37309)) - XX(5220) = (X(5220)-JVS(8724)*XX(2081)-JVS(17174)*XX(3647)-JVS(27155)*XX(4711)-JVS(30929)*XX(4999)-JVS(31524)*XX(5033)& - &-JVS(31801)*XX(5046)-JVS(32361)*XX(5080)-JVS(34167)*XX(5156)-JVS(34744)*XX(5170)-JVS(34812)*XX(5172)& - &-JVS(34837)*XX(5174)-JVS(36262)*XX(5199)-JVS(36733)*XX(5201)-JVS(36956)*XX(5209)-JVS(37027)*XX(5210)& - &-JVS(37267)*XX(5216))/(JVS(37326)) - XX(5221) = (X(5221)-JVS(23865)*XX(4406)-JVS(33456)*XX(5133)-JVS(34147)*XX(5155)-JVS(34813)*XX(5172)-JVS(35554)& - &*XX(5188))/(JVS(37360)) - XX(5222) = (X(5222)-JVS(36734)*XX(5201))/(JVS(37652)) - XX(5223) = (X(5223)-JVS(56)*XX(3)-JVS(2679)*XX(680)-JVS(31802)*XX(5046))/(JVS(37714)) - XX(5224) = (X(5224)-JVS(2367)*XX(607)-JVS(2826)*XX(715)-JVS(5124)*XX(1280)-JVS(10797)*XX(2544)-JVS(14237)*XX(3194)& - &-JVS(15640)*XX(3428)-JVS(17856)*XX(3734)-JVS(27970)*XX(4786)-JVS(28928)*XX(4861)-JVS(31330)*XX(5022)& - &-JVS(31551)*XX(5035)-JVS(31803)*XX(5046)-JVS(32362)*XX(5080)-JVS(32618)*XX(5094)-JVS(33105)*XX(5118)& - &-JVS(33475)*XX(5134)-JVS(34691)*XX(5168)-JVS(34814)*XX(5172)-JVS(34838)*XX(5174)-JVS(35555)*XX(5188)& - &-JVS(36263)*XX(5199)-JVS(36735)*XX(5201)-JVS(36858)*XX(5204)-JVS(36873)*XX(5205)-JVS(36957)*XX(5209)& - &-JVS(37028)*XX(5210)-JVS(37268)*XX(5216)-JVS(37327)*XX(5220)-JVS(37361)*XX(5221)-JVS(37653)*XX(5222)& - &-JVS(37715)*XX(5223))/(JVS(37740)) - XX(5225) = (X(5225)-JVS(19495)*XX(3933)-JVS(21872)*XX(4208)-JVS(32363)*XX(5080)-JVS(36264)*XX(5199)-JVS(36736)& - &*XX(5201)-JVS(37269)*XX(5216)-JVS(37654)*XX(5222))/(JVS(37775)) - XX(5226) = (X(5226)-JVS(2693)*XX(684)-JVS(3039)*XX(763)-JVS(17216)*XX(3652)-JVS(27948)*XX(4783)-JVS(29910)*XX(4936)& - &-JVS(30972)*XX(5000)-JVS(31568)*XX(5036)-JVS(32619)*XX(5094)-JVS(33348)*XX(5128)-JVS(34168)*XX(5156)& - &-JVS(34498)*XX(5160)-JVS(35556)*XX(5188)-JVS(36737)*XX(5201)-JVS(37270)*XX(5216)-JVS(37362)*XX(5221)& - &-JVS(37655)*XX(5222)-JVS(37716)*XX(5223))/(JVS(37812)) - XX(5227) = (X(5227)-JVS(10479)*XX(2479)-JVS(25219)*XX(4528)-JVS(31253)*XX(5016)-JVS(31309)*XX(5020)-JVS(32364)& - &*XX(5080)-JVS(32809)*XX(5102)-JVS(36000)*XX(5193)-JVS(36265)*XX(5199)-JVS(36288)*XX(5200)-JVS(36738)& - &*XX(5201)-JVS(36793)*XX(5202)-JVS(37029)*XX(5210)-JVS(37271)*XX(5216)-JVS(37656)*XX(5222)-JVS(37717)& - &*XX(5223)-JVS(37776)*XX(5225))/(JVS(37827)) - XX(5228) = (X(5228)-JVS(342)*XX(86)-JVS(4271)*XX(1068)-JVS(6596)*XX(1634)-JVS(8551)*XX(2044)-JVS(15393)*XX(3394))& - &/(JVS(37955)) - XX(5229) = (X(5229)-JVS(6828)*XX(1686)-JVS(6869)*XX(1695)-JVS(8208)*XX(1974)-JVS(9648)*XX(2292)-JVS(30878)*XX(4995)& - &-JVS(33150)*XX(5121)-JVS(35408)*XX(5184)-JVS(35557)*XX(5188)-JVS(35695)*XX(5191)-JVS(36001)*XX(5193)& - &-JVS(36094)*XX(5195)-JVS(36739)*XX(5201)-JVS(37657)*XX(5222)-JVS(37956)*XX(5228))/(JVS(38007)) - XX(5230) = (X(5230)-JVS(27088)*XX(4705)-JVS(31937)*XX(5055)-JVS(33220)*XX(5124)-JVS(33292)*XX(5125)-JVS(33950)& - &*XX(5145)-JVS(34499)*XX(5160)-JVS(34612)*XX(5164)-JVS(35041)*XX(5180)-JVS(35696)*XX(5191)-JVS(36002)& - &*XX(5193)-JVS(36095)*XX(5195)-JVS(36740)*XX(5201)-JVS(36794)*XX(5202)-JVS(37658)*XX(5222)-JVS(37718)& - &*XX(5223)-JVS(37957)*XX(5228)-JVS(38008)*XX(5229))/(JVS(38079)) - XX(5231) = (X(5231)-JVS(1100)*XX(260)-JVS(36741)*XX(5201))/(JVS(38763)) - XX(5232) = (X(5232)-JVS(7205)*XX(1764)-JVS(10181)*XX(2412)-JVS(13441)*XX(3047)-JVS(38764)*XX(5231))/(JVS(38923)) - XX(5233) = (X(5233)-JVS(1101)*XX(260)-JVS(18478)*XX(3809)-JVS(36742)*XX(5201)-JVS(37272)*XX(5216)-JVS(38765)*XX(5231))& - &/(JVS(39176)) - XX(5234) = (X(5234)-JVS(36743)*XX(5201)-JVS(38766)*XX(5231)-JVS(38924)*XX(5232)-JVS(39177)*XX(5233))/(JVS(39325)) - XX(5235) = (X(5235)-JVS(12442)*XX(2861)-JVS(24010)*XX(4420)-JVS(38767)*XX(5231)-JVS(39178)*XX(5233)-JVS(39326)& - &*XX(5234))/(JVS(39386)) - XX(5236) = (X(5236)-JVS(869)*XX(199)-JVS(1598)*XX(401)-JVS(4820)*XX(1205)-JVS(8633)*XX(2061)-JVS(25636)*XX(4567)& - &-JVS(26398)*XX(4644)-JVS(29406)*XX(4902)-JVS(31092)*XX(5006)-JVS(32641)*XX(5095)-JVS(33023)*XX(5113)& - &-JVS(34779)*XX(5171)-JVS(34904)*XX(5177)-JVS(35581)*XX(5189)-JVS(36175)*XX(5197)-JVS(36266)*XX(5199)& - &-JVS(36744)*XX(5201)-JVS(37089)*XX(5212)-JVS(37186)*XX(5214)-JVS(37273)*XX(5216)-JVS(37659)*XX(5222)& - &-JVS(37719)*XX(5223)-JVS(37741)*XX(5224)-JVS(37777)*XX(5225)-JVS(37813)*XX(5226)-JVS(37958)*XX(5228)& - &-JVS(38768)*XX(5231)-JVS(38925)*XX(5232)-JVS(39179)*XX(5233)-JVS(39327)*XX(5234)-JVS(39387)*XX(5235))& - &/(JVS(39409)) - XX(5237) = (X(5237)-JVS(1020)*XX(237)-JVS(3466)*XX(868)-JVS(12252)*XX(2825)-JVS(36096)*XX(5195)-JVS(38769)*XX(5231)& - &-JVS(39328)*XX(5234))/(JVS(39478)) - XX(5238) = (X(5238)-JVS(968)*XX(221)-JVS(1014)*XX(235)-JVS(1072)*XX(253)-JVS(1134)*XX(270)-JVS(1198)*XX(288)-JVS(1397)& - &*XX(342)-JVS(1689)*XX(426)-JVS(1766)*XX(447)-JVS(2126)*XX(548)-JVS(2200)*XX(566)-JVS(2286)*XX(588)-JVS(2341)& - &*XX(601)-JVS(6600)*XX(1635)-JVS(6625)*XX(1641)-JVS(6834)*XX(1688)-JVS(6924)*XX(1708)-JVS(6927)*XX(1709)& - &-JVS(7466)*XX(1817)-JVS(10070)*XX(2385)-JVS(12714)*XX(2914)-JVS(13051)*XX(2973)-JVS(17208)*XX(3651)& - &-JVS(19156)*XX(3894)-JVS(20895)*XX(4099)-JVS(21093)*XX(4121)-JVS(25672)*XX(4571)-JVS(25722)*XX(4577)& - &-JVS(25792)*XX(4586)-JVS(27021)*XX(4696)-JVS(27384)*XX(4733)-JVS(27411)*XX(4736)-JVS(27646)*XX(4755)& - &-JVS(27770)*XX(4766)-JVS(29112)*XX(4874)-JVS(29134)*XX(4876)-JVS(29149)*XX(4878)-JVS(29164)*XX(4880)& - &-JVS(29223)*XX(4886)-JVS(29267)*XX(4890)-JVS(29387)*XX(4901)-JVS(29417)*XX(4903)-JVS(29551)*XX(4911)& - &-JVS(29602)*XX(4915)-JVS(30005)*XX(4938)-JVS(30083)*XX(4942)-JVS(30198)*XX(4949)-JVS(30344)*XX(4959)& - &-JVS(30467)*XX(4967)-JVS(30544)*XX(4973)-JVS(30554)*XX(4974)-JVS(30567)*XX(4975)-JVS(30612)*XX(4979)& - &-JVS(30625)*XX(4980)-JVS(30645)*XX(4981)-JVS(30795)*XX(4990)-JVS(30820)*XX(4991)-JVS(30852)*XX(4994)& - &-JVS(31160)*XX(5010)-JVS(31185)*XX(5011)-JVS(31206)*XX(5012)-JVS(31412)*XX(5026)-JVS(31506)*XX(5031)& - &-JVS(31517)*XX(5032)-JVS(31679)*XX(5042)-JVS(31715)*XX(5045)-JVS(31946)*XX(5056)-JVS(31968)*XX(5057)& - &-JVS(32049)*XX(5060)-JVS(32059)*XX(5061)-JVS(32078)*XX(5062)-JVS(32094)*XX(5063)-JVS(32110)*XX(5064)& - &-JVS(32117)*XX(5065)-JVS(32219)*XX(5071)-JVS(32290)*XX(5077)-JVS(32303)*XX(5078)-JVS(32325)*XX(5079)& - &-JVS(32381)*XX(5082)-JVS(32513)*XX(5087)-JVS(32525)*XX(5088)-JVS(32554)*XX(5090)-JVS(32674)*XX(5097)& - &-JVS(32710)*XX(5098)-JVS(32791)*XX(5101)-JVS(32916)*XX(5106)-JVS(32927)*XX(5107)-JVS(32938)*XX(5108)& - &-JVS(32946)*XX(5109)-JVS(32976)*XX(5110)-JVS(33007)*XX(5112)-JVS(33054)*XX(5115)-JVS(33071)*XX(5116)& - &-JVS(33094)*XX(5117)-JVS(33115)*XX(5119)-JVS(33127)*XX(5120)-JVS(33151)*XX(5121)-JVS(33293)*XX(5125)& - &-JVS(33383)*XX(5129)-JVS(33488)*XX(5135)-JVS(33517)*XX(5136)-JVS(33567)*XX(5137)-JVS(33576)*XX(5138)& - &-JVS(33708)*XX(5139)-JVS(33731)*XX(5140)-JVS(33822)*XX(5142)-JVS(33892)*XX(5143)-JVS(33902)*XX(5144)& - &-JVS(33951)*XX(5145)-JVS(33962)*XX(5146)-JVS(33978)*XX(5147)-JVS(33998)*XX(5148)-JVS(34022)*XX(5149)& - &-JVS(34042)*XX(5150)-JVS(34063)*XX(5151)-JVS(34191)*XX(5157)-JVS(34244)*XX(5158)-JVS(34500)*XX(5160)& - &-JVS(34545)*XX(5161)-JVS(34569)*XX(5162)-JVS(34584)*XX(5163)-JVS(34613)*XX(5164)-JVS(34654)*XX(5165)& - &-JVS(34780)*XX(5171)-JVS(34956)*XX(5178)-JVS(35052)*XX(5181)-JVS(35133)*XX(5182)-JVS(35350)*XX(5183)& - &-JVS(35409)*XX(5184)-JVS(35433)*XX(5185)-JVS(35441)*XX(5186)-JVS(35558)*XX(5188)-JVS(35591)*XX(5190)& - &-JVS(35697)*XX(5191)-JVS(35713)*XX(5192)-JVS(36003)*XX(5193)-JVS(36038)*XX(5194)-JVS(36097)*XX(5195)& - &-JVS(36176)*XX(5197)-JVS(36267)*XX(5199)-JVS(36289)*XX(5200)-JVS(36745)*XX(5201)-JVS(36795)*XX(5202)& - &-JVS(36846)*XX(5203)-JVS(36930)*XX(5208)-JVS(37068)*XX(5211)-JVS(37187)*XX(5214)-JVS(37274)*XX(5216)& - &-JVS(37660)*XX(5222)-JVS(37720)*XX(5223)-JVS(37959)*XX(5228)-JVS(38009)*XX(5229)-JVS(38080)*XX(5230)& - &-JVS(38770)*XX(5231)-JVS(38926)*XX(5232)-JVS(39180)*XX(5233)-JVS(39329)*XX(5234)-JVS(39388)*XX(5235)& - &-JVS(39479)*XX(5237))/(JVS(39531)) - XX(5239) = (X(5239)-JVS(3668)*XX(918)-JVS(10127)*XX(2399)-JVS(16253)*XX(3533)-JVS(28294)*XX(4809)-JVS(31969)*XX(5057)& - &-JVS(32792)*XX(5101)-JVS(33384)*XX(5129)-JVS(34501)*XX(5160)-JVS(36746)*XX(5201)-JVS(37960)*XX(5228)& - &-JVS(38771)*XX(5231)-JVS(39181)*XX(5233)-JVS(39389)*XX(5235))/(JVS(39554)) - XX(5240) = (X(5240)-JVS(20413)*XX(4043)-JVS(27434)*XX(4738)-JVS(27561)*XX(4748)-JVS(33407)*XX(5130)-JVS(34502)& - &*XX(5160)-JVS(35134)*XX(5182)-JVS(36747)*XX(5201)-JVS(37188)*XX(5214)-JVS(37961)*XX(5228)-JVS(38772)& - &*XX(5231)-JVS(38927)*XX(5232)-JVS(39182)*XX(5233)-JVS(39390)*XX(5235)-JVS(39480)*XX(5237))/(JVS(39585)) - XX(5241) = (X(5241)-JVS(9809)*XX(2326)-JVS(23593)*XX(4383)-JVS(35559)*XX(5188)-JVS(37661)*XX(5222)-JVS(38773)& - &*XX(5231))/(JVS(39669)) - XX(5242) = (X(5242)-JVS(34245)*XX(5158)-JVS(36748)*XX(5201)-JVS(37662)*XX(5222)-JVS(38774)*XX(5231)-JVS(39670)& - &*XX(5241))/(JVS(39755)) - XX(5243) = (X(5243)-JVS(9300)*XX(2211)-JVS(9972)*XX(2364)-JVS(12092)*XX(2792)-JVS(34503)*XX(5160)-JVS(37962)*XX(5228)& - &-JVS(38775)*XX(5231)-JVS(39671)*XX(5241))/(JVS(39808)) - XX(5244) = (X(5244)-JVS(3267)*XX(818)-JVS(4262)*XX(1066)-JVS(11385)*XX(2657)-JVS(37963)*XX(5228)-JVS(38776)*XX(5231))& - &/(JVS(40437)) - XX(5245) = (X(5245)-JVS(1477)*XX(367)-JVS(4796)*XX(1199)-JVS(12189)*XX(2813)-JVS(18708)*XX(3841)-JVS(28409)*XX(4820)& - &-JVS(30031)*XX(4939)-JVS(30599)*XX(4978)-JVS(32326)*XX(5079)-JVS(34246)*XX(5158)-JVS(34504)*XX(5160)& - &-JVS(34999)*XX(5179)-JVS(35560)*XX(5188)-JVS(36749)*XX(5201)-JVS(37069)*XX(5211)-JVS(37663)*XX(5222)& - &-JVS(37964)*XX(5228)-JVS(38777)*XX(5231)-JVS(39672)*XX(5241)-JVS(39756)*XX(5242)-JVS(39809)*XX(5243)& - &-JVS(40438)*XX(5244))/(JVS(40462)) - XX(5246) = (X(5246)-JVS(7841)*XX(1895)-JVS(8671)*XX(2070)-JVS(10775)*XX(2539)-JVS(27361)*XX(4730)-JVS(30545)*XX(4973)& - &-JVS(36098)*XX(5195)-JVS(36750)*XX(5201)-JVS(38778)*XX(5231)-JVS(38928)*XX(5232)-JVS(39330)*XX(5234)& - &-JVS(39481)*XX(5237)-JVS(39757)*XX(5242)-JVS(40439)*XX(5244))/(JVS(40497)) - XX(5247) = (X(5247)-JVS(140)*XX(30)-JVS(912)*XX(206)-JVS(3478)*XX(871)-JVS(28467)*XX(4825)-JVS(28624)*XX(4839)& - &-JVS(30600)*XX(4978)-JVS(33408)*XX(5130)-JVS(34505)*XX(5160)-JVS(35000)*XX(5179)-JVS(36751)*XX(5201)& - &-JVS(37070)*XX(5211)-JVS(37965)*XX(5228)-JVS(38779)*XX(5231)-JVS(38929)*XX(5232)-JVS(39331)*XX(5234)& - &-JVS(39482)*XX(5237)-JVS(39673)*XX(5241)-JVS(39758)*XX(5242)-JVS(39810)*XX(5243)-JVS(40440)*XX(5244)& - &-JVS(40498)*XX(5246))/(JVS(40529)) - XX(5248) = (X(5248)-JVS(25375)*XX(4542)-JVS(27714)*XX(4761)-JVS(27723)*XX(4762)-JVS(29711)*XX(4921)-JVS(30049)& - &*XX(4940)-JVS(31433)*XX(5028)-JVS(31638)*XX(5039)-JVS(31872)*XX(5052)-JVS(33034)*XX(5114)-JVS(33409)& - &*XX(5130)-JVS(33430)*XX(5131)-JVS(34506)*XX(5160)-JVS(35135)*XX(5182)-JVS(35410)*XX(5184)-JVS(36099)& - &*XX(5195)-JVS(36752)*XX(5201)-JVS(37071)*XX(5211)-JVS(37189)*XX(5214)-JVS(37966)*XX(5228)-JVS(38780)& - &*XX(5231)-JVS(38930)*XX(5232)-JVS(39183)*XX(5233)-JVS(39332)*XX(5234)-JVS(39391)*XX(5235)-JVS(39483)& - &*XX(5237)-JVS(39555)*XX(5239)-JVS(39586)*XX(5240)-JVS(39674)*XX(5241)-JVS(39759)*XX(5242)-JVS(39811)& - &*XX(5243)-JVS(40441)*XX(5244)-JVS(40463)*XX(5245)-JVS(40499)*XX(5246)-JVS(40530)*XX(5247))/(JVS(40560)) - XX(5249) = (X(5249)-JVS(6294)*XX(1569)-JVS(9948)*XX(2359)-JVS(16145)*XX(3516)-JVS(17078)*XX(3638)-JVS(18732)*XX(3844)& - &-JVS(19386)*XX(3920)-JVS(19761)*XX(3966)-JVS(25376)*XX(4542)-JVS(26756)*XX(4678)-JVS(26891)*XX(4691)& - &-JVS(27715)*XX(4761)-JVS(29712)*XX(4921)-JVS(30050)*XX(4940)-JVS(31434)*XX(5028)-JVS(31639)*XX(5039)& - &-JVS(31804)*XX(5046)-JVS(31873)*XX(5052)-JVS(33035)*XX(5114)-JVS(33164)*XX(5122)-JVS(33410)*XX(5130)& - &-JVS(33431)*XX(5131)-JVS(34507)*XX(5160)-JVS(35136)*XX(5182)-JVS(35411)*XX(5184)-JVS(36100)*XX(5195)& - &-JVS(36753)*XX(5201)-JVS(37072)*XX(5211)-JVS(37190)*XX(5214)-JVS(37967)*XX(5228)-JVS(38781)*XX(5231)& - &-JVS(38931)*XX(5232)-JVS(39184)*XX(5233)-JVS(39333)*XX(5234)-JVS(39392)*XX(5235)-JVS(39484)*XX(5237)& - &-JVS(39556)*XX(5239)-JVS(39587)*XX(5240)-JVS(39675)*XX(5241)-JVS(39760)*XX(5242)-JVS(39812)*XX(5243)& - &-JVS(40442)*XX(5244)-JVS(40464)*XX(5245)-JVS(40500)*XX(5246)-JVS(40531)*XX(5247)-JVS(40561)*XX(5248))& - &/(JVS(40577)) - XX(5250) = (X(5250)-JVS(61)*XX(5)-JVS(72)*XX(9)-JVS(75)*XX(10)-JVS(81)*XX(12)-JVS(84)*XX(13)-JVS(92)*XX(15)-JVS(100)& - &*XX(17)-JVS(103)*XX(18)-JVS(112)*XX(21)-JVS(115)*XX(22)-JVS(118)*XX(23)-JVS(121)*XX(24)-JVS(129)*XX(26)& - &-JVS(135)*XX(28)-JVS(141)*XX(30)-JVS(144)*XX(31)-JVS(147)*XX(32)-JVS(150)*XX(33)-JVS(153)*XX(34)-JVS(169)& - &*XX(38)-JVS(172)*XX(39)-JVS(175)*XX(40)-JVS(178)*XX(41)-JVS(201)*XX(46)-JVS(204)*XX(47)-JVS(207)*XX(48)& - &-JVS(225)*XX(52)-JVS(228)*XX(53)-JVS(231)*XX(54)-JVS(234)*XX(55)-JVS(237)*XX(56)-JVS(245)*XX(58)-JVS(248)& - &*XX(59)-JVS(251)*XX(60)-JVS(257)*XX(62)-JVS(260)*XX(63)-JVS(263)*XX(64)-JVS(279)*XX(68)-JVS(287)*XX(70)& - &-JVS(290)*XX(71)-JVS(293)*XX(72)-JVS(296)*XX(73)-JVS(299)*XX(74)-JVS(302)*XX(75)-JVS(310)*XX(77)-JVS(318)& - &*XX(79)-JVS(326)*XX(81)-JVS(334)*XX(83)-JVS(337)*XX(84)-JVS(340)*XX(85)-JVS(346)*XX(87)-JVS(354)*XX(89)& - &-JVS(357)*XX(90)-JVS(370)*XX(93)-JVS(373)*XX(94)-JVS(376)*XX(95)-JVS(389)*XX(98)-JVS(392)*XX(99)-JVS(395)& - &*XX(100)-JVS(398)*XX(101)-JVS(401)*XX(102)-JVS(404)*XX(103)-JVS(407)*XX(104)-JVS(410)*XX(105)-JVS(413)& - &*XX(106)-JVS(421)*XX(108)-JVS(424)*XX(109)-JVS(427)*XX(110)-JVS(430)*XX(111)-JVS(441)*XX(114)-JVS(459)& - &*XX(118)-JVS(462)*XX(119)-JVS(470)*XX(121)-JVS(474)*XX(122)-JVS(477)*XX(123)-JVS(480)*XX(124)-JVS(488)& - &*XX(126)-JVS(491)*XX(127)-JVS(494)*XX(128)-JVS(497)*XX(129)-JVS(513)*XX(133)-JVS(516)*XX(134)-JVS(519)& - &*XX(135)-JVS(522)*XX(136)-JVS(533)*XX(139)-JVS(546)*XX(142)-JVS(549)*XX(143)-JVS(552)*XX(144)-JVS(565)& - &*XX(147)-JVS(591)*XX(152)-JVS(658)*XX(163)-JVS(665)*XX(164)-JVS(696)*XX(169)-JVS(703)*XX(170)-JVS(767)& - &*XX(181)-JVS(865)*XX(198)-JVS(900)*XX(204)-JVS(913)*XX(206)-JVS(918)*XX(207)-JVS(922)*XX(208)-JVS(925)& - &*XX(209)-JVS(928)*XX(210)-JVS(935)*XX(211)-JVS(940)*XX(212)-JVS(943)*XX(213)-JVS(949)*XX(215)-JVS(953)& - &*XX(216)-JVS(957)*XX(217)-JVS(960)*XX(218)-JVS(963)*XX(219)-JVS(966)*XX(220)-JVS(969)*XX(221)-JVS(972)& - &*XX(222)-JVS(976)*XX(223)-JVS(982)*XX(225)-JVS(985)*XX(226)-JVS(988)*XX(227)-JVS(992)*XX(228)-JVS(995)& - &*XX(229)-JVS(998)*XX(230)-JVS(1002)*XX(231)-JVS(1006)*XX(232)-JVS(1009)*XX(233)-JVS(1012)*XX(234)-JVS(1015)& - &*XX(235)-JVS(1021)*XX(237)-JVS(1025)*XX(238)-JVS(1031)*XX(240)-JVS(1035)*XX(241)-JVS(1039)*XX(242)-JVS(1045)& - &*XX(244)-JVS(1048)*XX(245)-JVS(1051)*XX(246)-JVS(1054)*XX(247)-JVS(1057)*XX(248)-JVS(1060)*XX(249)-JVS(1062)& - &*XX(250)-JVS(1065)*XX(251)-JVS(1069)*XX(252)-JVS(1073)*XX(253)-JVS(1079)*XX(254)-JVS(1084)*XX(255)-JVS(1088)& - &*XX(256)-JVS(1091)*XX(257)-JVS(1094)*XX(258)-JVS(1098)*XX(259)-JVS(1102)*XX(260)-JVS(1109)*XX(262)-JVS(1112)& - &*XX(263)-JVS(1115)*XX(264)-JVS(1119)*XX(265)-JVS(1123)*XX(266)-JVS(1126)*XX(267)-JVS(1129)*XX(268)-JVS(1132)& - &*XX(269)-JVS(1135)*XX(270)-JVS(1145)*XX(272)-JVS(1149)*XX(273)-JVS(1152)*XX(274)-JVS(1155)*XX(275)-JVS(1159)& - &*XX(276)-JVS(1163)*XX(277)-JVS(1166)*XX(278)-JVS(1169)*XX(279)-JVS(1172)*XX(280)-JVS(1176)*XX(281)-JVS(1179)& - &*XX(282)-JVS(1183)*XX(283)-JVS(1186)*XX(284)-JVS(1189)*XX(285)-JVS(1192)*XX(286)-JVS(1195)*XX(287)-JVS(1199)& - &*XX(288)-JVS(1202)*XX(289)-JVS(1208)*XX(290)-JVS(1213)*XX(291)-JVS(1217)*XX(292)-JVS(1223)*XX(294)-JVS(1227)& - &*XX(295)-JVS(1230)*XX(296)-JVS(1236)*XX(297)-JVS(1241)*XX(298)-JVS(1244)*XX(299)-JVS(1249)*XX(300)-JVS(1254)& - &*XX(301)-JVS(1258)*XX(302)-JVS(1261)*XX(303)-JVS(1264)*XX(304)-JVS(1267)*XX(305)-JVS(1270)*XX(306)-JVS(1273)& - &*XX(307)-JVS(1276)*XX(308)-JVS(1279)*XX(309)-JVS(1283)*XX(310)-JVS(1286)*XX(311)-JVS(1289)*XX(312)-JVS(1292)& - &*XX(313)-JVS(1295)*XX(314)-JVS(1301)*XX(315)-JVS(1306)*XX(316)-JVS(1309)*XX(317)-JVS(1314)*XX(318)-JVS(1317)& - &*XX(319)-JVS(1320)*XX(320)-JVS(1323)*XX(321)-JVS(1326)*XX(322)-JVS(1331)*XX(323)-JVS(1334)*XX(324)-JVS(1338)& - &*XX(325)-JVS(1344)*XX(326)-JVS(1352)*XX(328)-JVS(1356)*XX(329)-JVS(1360)*XX(330)-JVS(1364)*XX(331)-JVS(1367)& - &*XX(332)-JVS(1370)*XX(333)-JVS(1373)*XX(334)-JVS(1376)*XX(335)-JVS(1379)*XX(336)-JVS(1381)*XX(337)-JVS(1385)& - &*XX(338)-JVS(1388)*XX(339)-JVS(1391)*XX(340)-JVS(1394)*XX(341)-JVS(1398)*XX(342)-JVS(1401)*XX(343)-JVS(1405)& - &*XX(344)-JVS(1408)*XX(345)-JVS(1411)*XX(346)-JVS(1414)*XX(347)-JVS(1417)*XX(348)-JVS(1420)*XX(349)-JVS(1423)& - &*XX(350)-JVS(1426)*XX(351)-JVS(1430)*XX(352)-JVS(1433)*XX(353)-JVS(1436)*XX(354)-JVS(1439)*XX(355)-JVS(1442)& - &*XX(356)-JVS(1445)*XX(357)-JVS(1448)*XX(358)-JVS(1451)*XX(359)-JVS(1454)*XX(360)-JVS(1458)*XX(361)-JVS(1464)& - &*XX(363)-JVS(1468)*XX(364)-JVS(1472)*XX(365)-JVS(1475)*XX(366)-JVS(1478)*XX(367)-JVS(1482)*XX(368)-JVS(1485)& - &*XX(369)-JVS(1490)*XX(370)-JVS(1495)*XX(371)-JVS(1498)*XX(372)-JVS(1503)*XX(373)-JVS(1506)*XX(374)-JVS(1509)& - &*XX(375)-JVS(1513)*XX(376)-JVS(1517)*XX(377)-JVS(1520)*XX(378)-JVS(1524)*XX(379)-JVS(1528)*XX(380)-JVS(1531)& - &*XX(381)-JVS(1534)*XX(382)-JVS(1537)*XX(383)-JVS(1540)*XX(384)-JVS(1544)*XX(385)-JVS(1550)*XX(387)-JVS(1554)& - &*XX(388)-JVS(1558)*XX(389)-JVS(1562)*XX(390)-JVS(1565)*XX(391)-JVS(1568)*XX(392)-JVS(1571)*XX(393)-JVS(1575)& - &*XX(394)-JVS(1578)*XX(395)-JVS(1581)*XX(396)-JVS(1586)*XX(397)-JVS(1589)*XX(398)-JVS(1593)*XX(399)-JVS(1596)& - &*XX(400)-JVS(1599)*XX(401)-JVS(1602)*XX(402)-JVS(1605)*XX(403)-JVS(1610)*XX(404)-JVS(1613)*XX(405)-JVS(1617)& - &*XX(406)-JVS(1623)*XX(407)-JVS(1628)*XX(408)-JVS(1631)*XX(409)-JVS(1634)*XX(410)-JVS(1637)*XX(411)-JVS(1640)& - &*XX(412)-JVS(1643)*XX(413)-JVS(1646)*XX(414)-JVS(1650)*XX(415)-JVS(1653)*XX(416)-JVS(1656)*XX(417)-JVS(1659)& - &*XX(418)-JVS(1665)*XX(420)-JVS(1672)*XX(421)-JVS(1677)*XX(422)-JVS(1680)*XX(423)-JVS(1684)*XX(424)-JVS(1687)& - &*XX(425)-JVS(1690)*XX(426)-JVS(1693)*XX(427)-JVS(1696)*XX(428)-JVS(1699)*XX(429)-JVS(1702)*XX(430)-JVS(1705)& - &*XX(431)-JVS(1708)*XX(432)-JVS(1711)*XX(433)-JVS(1715)*XX(434)-JVS(1720)*XX(435)-JVS(1723)*XX(436)-JVS(1726)& - &*XX(437)-JVS(1729)*XX(438)-JVS(1733)*XX(439)-JVS(1736)*XX(440)-JVS(1739)*XX(441)-JVS(1742)*XX(442)-JVS(1748)& - &*XX(443)-JVS(1753)*XX(444)-JVS(1759)*XX(445)-JVS(1764)*XX(446)-JVS(1767)*XX(447)-JVS(1770)*XX(448)-JVS(1773)& - &*XX(449)-JVS(1780)*XX(450)-JVS(1785)*XX(451)-JVS(1788)*XX(452)-JVS(1791)*XX(453)-JVS(1794)*XX(454)-JVS(1799)& - &*XX(455)-JVS(1802)*XX(456)-JVS(1806)*XX(457)-JVS(1810)*XX(458)-JVS(1813)*XX(459)-JVS(1817)*XX(460)-JVS(1820)& - &*XX(461)-JVS(1824)*XX(462)-JVS(1827)*XX(463)-JVS(1830)*XX(464)-JVS(1833)*XX(465)-JVS(1836)*XX(466)-JVS(1839)& - &*XX(467)-JVS(1842)*XX(468)-JVS(1845)*XX(469)-JVS(1848)*XX(470)-JVS(1852)*XX(471)-JVS(1857)*XX(472)-JVS(1860)& - &*XX(473)-JVS(1863)*XX(474)-JVS(1867)*XX(475)-JVS(1870)*XX(476)-JVS(1876)*XX(478)-JVS(1879)*XX(479)-JVS(1883)& - &*XX(480)-JVS(1886)*XX(481)-JVS(1889)*XX(482)-JVS(1892)*XX(483)-JVS(1897)*XX(484)-JVS(1900)*XX(485)-JVS(1903)& - &*XX(486)-JVS(1906)*XX(487)-JVS(1910)*XX(488)-JVS(1913)*XX(489)-JVS(1919)*XX(490)-JVS(1922)*XX(491)-JVS(1926)& - &*XX(492)-JVS(1930)*XX(493)-JVS(1933)*XX(494)-JVS(1936)*XX(495)-JVS(1939)*XX(496)-JVS(1943)*XX(497)-JVS(1946)& - &*XX(498)-JVS(1949)*XX(499)-JVS(1953)*XX(500)-JVS(1956)*XX(501)-JVS(1959)*XX(502)-JVS(1962)*XX(503)-JVS(1966)& - &*XX(504)-JVS(1969)*XX(505)-JVS(1972)*XX(506)-JVS(1976)*XX(507)-JVS(1980)*XX(508)-JVS(1984)*XX(509)-JVS(1989)& - &*XX(510)-JVS(1992)*XX(511)-JVS(1995)*XX(512)-JVS(1998)*XX(513)-JVS(2004)*XX(515)-JVS(2008)*XX(516)-JVS(2011)& - &*XX(517)-JVS(2014)*XX(518)-JVS(2018)*XX(519)-JVS(2022)*XX(520)-JVS(2025)*XX(521)-JVS(2032)*XX(523)-JVS(2035)& - &*XX(524)-JVS(2038)*XX(525)-JVS(2041)*XX(526)-JVS(2044)*XX(527)-JVS(2055)*XX(530)-JVS(2058)*XX(531)-JVS(2081)& - &*XX(536)-JVS(2097)*XX(540)-JVS(2105)*XX(542)-JVS(2108)*XX(543)-JVS(2121)*XX(546)-JVS(2124)*XX(547)-JVS(2127)& - &*XX(548)-JVS(2155)*XX(554)-JVS(2163)*XX(556)-JVS(2174)*XX(559)-JVS(2183)*XX(561)-JVS(2186)*XX(562)-JVS(2198)& - &*XX(565)-JVS(2201)*XX(566)-JVS(2204)*XX(567)-JVS(2223)*XX(572)-JVS(2241)*XX(576)-JVS(2244)*XX(577)-JVS(2249)& - &*XX(578)-JVS(2252)*XX(579)-JVS(2255)*XX(580)-JVS(2268)*XX(583)-JVS(2281)*XX(586)-JVS(2284)*XX(587)-JVS(2287)& - &*XX(588)-JVS(2295)*XX(590)-JVS(2298)*XX(591)-JVS(2309)*XX(593)-JVS(2312)*XX(594)-JVS(2331)*XX(598)-JVS(2334)& - &*XX(599)-JVS(2342)*XX(601)-JVS(2345)*XX(602)-JVS(2363)*XX(606)-JVS(2368)*XX(607)-JVS(2371)*XX(608)-JVS(2374)& - &*XX(609)-JVS(2383)*XX(611)-JVS(2391)*XX(613)-JVS(2403)*XX(616)-JVS(2426)*XX(621)-JVS(2429)*XX(622)-JVS(2447)& - &*XX(626)-JVS(2450)*XX(627)-JVS(2469)*XX(631)-JVS(2478)*XX(633)-JVS(2481)*XX(634)-JVS(2489)*XX(636)-JVS(2516)& - &*XX(642)-JVS(2540)*XX(647)-JVS(2553)*XX(650)-JVS(2556)*XX(651)-JVS(2562)*XX(652)-JVS(2565)*XX(653)-JVS(2584)& - &*XX(657)-JVS(2592)*XX(659)-JVS(2600)*XX(661)-JVS(2603)*XX(662)-JVS(2611)*XX(664)-JVS(2624)*XX(667)-JVS(2626)& - &*XX(668)-JVS(2640)*XX(671)-JVS(2658)*XX(675)-JVS(2664)*XX(677)-JVS(2669)*XX(678)-JVS(2680)*XX(680)-JVS(2683)& - &*XX(681)-JVS(2691)*XX(683)-JVS(2718)*XX(690)-JVS(2722)*XX(691)-JVS(2726)*XX(692)-JVS(2734)*XX(694)-JVS(2742)& - &*XX(696)-JVS(2755)*XX(699)-JVS(2766)*XX(702)-JVS(2787)*XX(707)-JVS(2798)*XX(709)-JVS(2817)*XX(713)-JVS(2827)& - &*XX(715)-JVS(2869)*XX(725)-JVS(2902)*XX(732)-JVS(2918)*XX(735)-JVS(2921)*XX(736)-JVS(2948)*XX(742)-JVS(2992)& - &*XX(751)-JVS(3004)*XX(754)-JVS(3017)*XX(757)-JVS(3020)*XX(758)-JVS(3027)*XX(760)-JVS(3037)*XX(762)-JVS(3043)& - &*XX(764)-JVS(3054)*XX(767)-JVS(3062)*XX(769)-JVS(3073)*XX(772)-JVS(3106)*XX(779)-JVS(3134)*XX(785)-JVS(3147)& - &*XX(788)-JVS(3150)*XX(789)-JVS(3166)*XX(793)-JVS(3169)*XX(794)-JVS(3177)*XX(796)-JVS(3190)*XX(799)-JVS(3208)& - &*XX(803)-JVS(3211)*XX(804)-JVS(3214)*XX(805)-JVS(3217)*XX(806)-JVS(3220)*XX(807)-JVS(3238)*XX(811)-JVS(3241)& - &*XX(812)-JVS(3244)*XX(813)-JVS(3268)*XX(818)-JVS(3280)*XX(821)-JVS(3283)*XX(822)-JVS(3287)*XX(823)-JVS(3291)& - &*XX(824)-JVS(3295)*XX(825)-JVS(3299)*XX(826)-JVS(3303)*XX(827)-JVS(3307)*XX(828)-JVS(3311)*XX(829)-JVS(3315)& - &*XX(830)-JVS(3319)*XX(831)-JVS(3323)*XX(832)-JVS(3327)*XX(833)-JVS(3331)*XX(834)-JVS(3335)*XX(835)-JVS(3339)& - &*XX(836)-JVS(3343)*XX(837)-JVS(3347)*XX(838)-JVS(3351)*XX(839)-JVS(3355)*XX(840)-JVS(3359)*XX(841)-JVS(3363)& - &*XX(842)-JVS(3367)*XX(843)-JVS(3371)*XX(844)-JVS(3375)*XX(845)-JVS(3379)*XX(846)-JVS(3384)*XX(847)-JVS(3387)& - &*XX(848)-JVS(3391)*XX(849)-JVS(3395)*XX(850)-JVS(3399)*XX(851)-JVS(3403)*XX(852)-JVS(3407)*XX(853)-JVS(3411)& - &*XX(854)-JVS(3415)*XX(855)-JVS(3419)*XX(856)-JVS(3423)*XX(857)-JVS(3427)*XX(858)-JVS(3431)*XX(859)-JVS(3435)& - &*XX(860)-JVS(3439)*XX(861)-JVS(3444)*XX(862)-JVS(3447)*XX(863)-JVS(3451)*XX(864)-JVS(3455)*XX(865)-JVS(3459)& - &*XX(866)-JVS(3463)*XX(867)-JVS(3467)*XX(868)-JVS(3471)*XX(869)-JVS(3475)*XX(870)-JVS(3479)*XX(871)-JVS(3483)& - &*XX(872)-JVS(3487)*XX(873)-JVS(3492)*XX(874)-JVS(3495)*XX(875)-JVS(3499)*XX(876)-JVS(3503)*XX(877)-JVS(3507)& - &*XX(878)-JVS(3511)*XX(879)-JVS(3515)*XX(880)-JVS(3519)*XX(881)-JVS(3523)*XX(882)-JVS(3527)*XX(883)-JVS(3531)& - &*XX(884)-JVS(3535)*XX(885)-JVS(3539)*XX(886)-JVS(3543)*XX(887)-JVS(3547)*XX(888)-JVS(3551)*XX(889)-JVS(3555)& - &*XX(890)-JVS(3559)*XX(891)-JVS(3563)*XX(892)-JVS(3567)*XX(893)-JVS(3571)*XX(894)-JVS(3576)*XX(895)-JVS(3580)& - &*XX(896)-JVS(3583)*XX(897)-JVS(3587)*XX(898)-JVS(3591)*XX(899)-JVS(3595)*XX(900)-JVS(3599)*XX(901)-JVS(3603)& - &*XX(902)-JVS(3607)*XX(903)-JVS(3611)*XX(904)-JVS(3615)*XX(905)-JVS(3619)*XX(906)-JVS(3623)*XX(907)-JVS(3627)& - &*XX(908)-JVS(3631)*XX(909)-JVS(3635)*XX(910)-JVS(3642)*XX(911)-JVS(3645)*XX(912)-JVS(3649)*XX(913)-JVS(3653)& - &*XX(914)-JVS(3657)*XX(915)-JVS(3661)*XX(916)-JVS(3665)*XX(917)-JVS(3669)*XX(918)-JVS(3673)*XX(919)-JVS(3677)& - &*XX(920)-JVS(3681)*XX(921)-JVS(3685)*XX(922)-JVS(3689)*XX(923)-JVS(3693)*XX(924)-JVS(3696)*XX(925)-JVS(3702)& - &*XX(926)-JVS(3705)*XX(927)-JVS(3709)*XX(928)-JVS(3713)*XX(929)-JVS(3717)*XX(930)-JVS(3721)*XX(931)-JVS(3725)& - &*XX(932)-JVS(3729)*XX(933)-JVS(3733)*XX(934)-JVS(3737)*XX(935)-JVS(3741)*XX(936)-JVS(3745)*XX(937)-JVS(3749)& - &*XX(938)-JVS(3753)*XX(939)-JVS(3757)*XX(940)-JVS(3761)*XX(941)-JVS(3765)*XX(942)-JVS(3769)*XX(943)-JVS(3773)& - &*XX(944)-JVS(3777)*XX(945)-JVS(3781)*XX(946)-JVS(3785)*XX(947)-JVS(3789)*XX(948)-JVS(3793)*XX(949)-JVS(3797)& - &*XX(950)-JVS(3801)*XX(951)-JVS(3805)*XX(952)-JVS(3809)*XX(953)-JVS(3813)*XX(954)-JVS(3817)*XX(955)-JVS(3821)& - &*XX(956)-JVS(3825)*XX(957)-JVS(3829)*XX(958)-JVS(3833)*XX(959)-JVS(3837)*XX(960)-JVS(3841)*XX(961)-JVS(3845)& - &*XX(962)-JVS(3849)*XX(963)-JVS(3853)*XX(964)-JVS(3857)*XX(965)-JVS(3861)*XX(966)-JVS(3865)*XX(967)-JVS(3869)& - &*XX(968)-JVS(3873)*XX(969)-JVS(3877)*XX(970)-JVS(3881)*XX(971)-JVS(3885)*XX(972)-JVS(3889)*XX(973)-JVS(3893)& - &*XX(974)-JVS(3897)*XX(975)-JVS(3901)*XX(976)-JVS(3905)*XX(977)-JVS(3909)*XX(978)-JVS(3913)*XX(979)-JVS(3917)& - &*XX(980)-JVS(3921)*XX(981)-JVS(3925)*XX(982)-JVS(3929)*XX(983)-JVS(3933)*XX(984)-JVS(3937)*XX(985)-JVS(3941)& - &*XX(986)-JVS(3945)*XX(987)-JVS(3949)*XX(988)-JVS(3953)*XX(989)-JVS(3957)*XX(990)-JVS(3961)*XX(991)-JVS(3965)& - &*XX(992)-JVS(3969)*XX(993)-JVS(3973)*XX(994)-JVS(3977)*XX(995)-JVS(3981)*XX(996)-JVS(3985)*XX(997)-JVS(3989)& - &*XX(998)-JVS(3993)*XX(999)-JVS(3997)*XX(1000)-JVS(4002)*XX(1001)-JVS(4005)*XX(1002)-JVS(4009)*XX(1003)& - &-JVS(4013)*XX(1004)-JVS(4017)*XX(1005)-JVS(4021)*XX(1006)-JVS(4025)*XX(1007)-JVS(4029)*XX(1008)-JVS(4033)& - &*XX(1009)-JVS(4037)*XX(1010)-JVS(4045)*XX(1012)-JVS(4053)*XX(1014)-JVS(4057)*XX(1015)-JVS(4061)*XX(1016)& - &-JVS(4065)*XX(1017)-JVS(4069)*XX(1018)-JVS(4073)*XX(1019)-JVS(4077)*XX(1020)-JVS(4081)*XX(1021)-JVS(4085)& - &*XX(1022)-JVS(4089)*XX(1023)-JVS(4093)*XX(1024)-JVS(4097)*XX(1025)-JVS(4101)*XX(1026)-JVS(4105)*XX(1027)& - &-JVS(4109)*XX(1028)-JVS(4113)*XX(1029)-JVS(4117)*XX(1030)-JVS(4121)*XX(1031)-JVS(4125)*XX(1032)-JVS(4129)& - &*XX(1033)-JVS(4133)*XX(1034)-JVS(4138)*XX(1035)-JVS(4142)*XX(1036)-JVS(4145)*XX(1037)-JVS(4149)*XX(1038)& - &-JVS(4153)*XX(1039)-JVS(4160)*XX(1040)-JVS(4163)*XX(1041)-JVS(4167)*XX(1042)-JVS(4171)*XX(1043)-JVS(4175)& - &*XX(1044)-JVS(4179)*XX(1045)-JVS(4183)*XX(1046)-JVS(4187)*XX(1047)-JVS(4191)*XX(1048)-JVS(4195)*XX(1049)& - &-JVS(4200)*XX(1050)-JVS(4203)*XX(1051)-JVS(4207)*XX(1052)-JVS(4211)*XX(1053)-JVS(4216)*XX(1054)-JVS(4219)& - &*XX(1055)-JVS(4224)*XX(1056)-JVS(4227)*XX(1057)-JVS(4231)*XX(1058)-JVS(4235)*XX(1059)-JVS(4239)*XX(1060)& - &-JVS(4243)*XX(1061)-JVS(4247)*XX(1062)-JVS(4251)*XX(1063)-JVS(4255)*XX(1064)-JVS(4259)*XX(1065)-JVS(4263)& - &*XX(1066)-JVS(4267)*XX(1067)-JVS(4272)*XX(1068)-JVS(4275)*XX(1069)-JVS(4279)*XX(1070)-JVS(4283)*XX(1071)& - &-JVS(4287)*XX(1072)-JVS(4291)*XX(1073)-JVS(4295)*XX(1074)-JVS(4299)*XX(1075)-JVS(4303)*XX(1076)-JVS(4307)& - &*XX(1077)-JVS(4311)*XX(1078)-JVS(4315)*XX(1079)-JVS(4319)*XX(1080)-JVS(4323)*XX(1081)-JVS(4327)*XX(1082)& - &-JVS(4331)*XX(1083)-JVS(4335)*XX(1084)-JVS(4339)*XX(1085)-JVS(4343)*XX(1086)-JVS(4347)*XX(1087)-JVS(4351)& - &*XX(1088)-JVS(4355)*XX(1089)-JVS(4359)*XX(1090)-JVS(4363)*XX(1091)-JVS(4367)*XX(1092)-JVS(4371)*XX(1093)& - &-JVS(4375)*XX(1094)-JVS(4379)*XX(1095)-JVS(4383)*XX(1096)-JVS(4387)*XX(1097)-JVS(4391)*XX(1098)-JVS(4395)& - &*XX(1099)-JVS(4399)*XX(1100)-JVS(4403)*XX(1101)-JVS(4407)*XX(1102)-JVS(4411)*XX(1103)-JVS(4415)*XX(1104)& - &-JVS(4419)*XX(1105)-JVS(4423)*XX(1106)-JVS(4427)*XX(1107)-JVS(4431)*XX(1108)-JVS(4435)*XX(1109)-JVS(4439)& - &*XX(1110)-JVS(4444)*XX(1111)-JVS(4447)*XX(1112)-JVS(4452)*XX(1113)-JVS(4455)*XX(1114)-JVS(4459)*XX(1115)& - &-JVS(4463)*XX(1116)-JVS(4467)*XX(1117)-JVS(4471)*XX(1118)-JVS(4475)*XX(1119)-JVS(4480)*XX(1120)-JVS(4484)& - &*XX(1121)-JVS(4487)*XX(1122)-JVS(4491)*XX(1123)-JVS(4496)*XX(1124)-JVS(4499)*XX(1125)-JVS(4503)*XX(1126)& - &-JVS(4507)*XX(1127)-JVS(4511)*XX(1128)-JVS(4515)*XX(1129)-JVS(4519)*XX(1130)-JVS(4523)*XX(1131)-JVS(4527)& - &*XX(1132)-JVS(4534)*XX(1133)-JVS(4537)*XX(1134)-JVS(4541)*XX(1135)-JVS(4545)*XX(1136)-JVS(4549)*XX(1137)& - &-JVS(4553)*XX(1138)-JVS(4557)*XX(1139)-JVS(4562)*XX(1140)-JVS(4565)*XX(1141)-JVS(4569)*XX(1142)-JVS(4573)& - &*XX(1143)-JVS(4577)*XX(1144)-JVS(4581)*XX(1145)-JVS(4585)*XX(1146)-JVS(4589)*XX(1147)-JVS(4593)*XX(1148)& - &-JVS(4597)*XX(1149)-JVS(4601)*XX(1150)-JVS(4605)*XX(1151)-JVS(4609)*XX(1152)-JVS(4613)*XX(1153)-JVS(4617)& - &*XX(1154)-JVS(4621)*XX(1155)-JVS(4625)*XX(1156)-JVS(4629)*XX(1157)-JVS(4633)*XX(1158)-JVS(4637)*XX(1159)& - &-JVS(4641)*XX(1160)-JVS(4645)*XX(1161)-JVS(4649)*XX(1162)-JVS(4653)*XX(1163)-JVS(4657)*XX(1164)-JVS(4661)& - &*XX(1165)-JVS(4665)*XX(1166)-JVS(4669)*XX(1167)-JVS(4673)*XX(1168)-JVS(4677)*XX(1169)-JVS(4681)*XX(1170)& - &-JVS(4685)*XX(1171)-JVS(4689)*XX(1172)-JVS(4693)*XX(1173)-JVS(4697)*XX(1174)-JVS(4701)*XX(1175)-JVS(4705)& - &*XX(1176)-JVS(4709)*XX(1177)-JVS(4713)*XX(1178)-JVS(4718)*XX(1179)-JVS(4721)*XX(1180)-JVS(4725)*XX(1181)& - &-JVS(4729)*XX(1182)-JVS(4733)*XX(1183)-JVS(4737)*XX(1184)-JVS(4741)*XX(1185)-JVS(4745)*XX(1186)-JVS(4749)& - &*XX(1187)-JVS(4753)*XX(1188)-JVS(4757)*XX(1189)-JVS(4761)*XX(1190)-JVS(4765)*XX(1191)-JVS(4769)*XX(1192)& - &-JVS(4773)*XX(1193)-JVS(4778)*XX(1194)-JVS(4781)*XX(1195)-JVS(4785)*XX(1196)-JVS(4789)*XX(1197)-JVS(4793)& - &*XX(1198)-JVS(4797)*XX(1199)-JVS(4801)*XX(1200)-JVS(4805)*XX(1201)-JVS(4809)*XX(1202)-JVS(4813)*XX(1203)& - &-JVS(4817)*XX(1204)-JVS(4821)*XX(1205)-JVS(4825)*XX(1206)-JVS(4829)*XX(1207)-JVS(4833)*XX(1208)-JVS(4837)& - &*XX(1209)-JVS(4841)*XX(1210)-JVS(4845)*XX(1211)-JVS(4849)*XX(1212)-JVS(4853)*XX(1213)-JVS(4857)*XX(1214)& - &-JVS(4861)*XX(1215)-JVS(4865)*XX(1216)-JVS(4869)*XX(1217)-JVS(4873)*XX(1218)-JVS(4877)*XX(1219)-JVS(4881)& - &*XX(1220)-JVS(4885)*XX(1221)-JVS(4889)*XX(1222)-JVS(4893)*XX(1223)-JVS(4897)*XX(1224)-JVS(4901)*XX(1225)& - &-JVS(4905)*XX(1226)-JVS(4909)*XX(1227)-JVS(4913)*XX(1228)-JVS(4917)*XX(1229)-JVS(4921)*XX(1230)-JVS(4928)& - &*XX(1231)-JVS(4931)*XX(1232)-JVS(4935)*XX(1233)-JVS(4939)*XX(1234)-JVS(4943)*XX(1235)-JVS(4947)*XX(1236)& - &-JVS(4951)*XX(1237)-JVS(4955)*XX(1238)-JVS(4959)*XX(1239)-JVS(4967)*XX(1241)-JVS(4971)*XX(1242)-JVS(4975)& - &*XX(1243)-JVS(4979)*XX(1244)-JVS(4983)*XX(1245)-JVS(4991)*XX(1247)-JVS(4995)*XX(1248)-JVS(4999)*XX(1249)& - &-JVS(5003)*XX(1250)-JVS(5007)*XX(1251)-JVS(5011)*XX(1252)-JVS(5015)*XX(1253)-JVS(5019)*XX(1254)-JVS(5023)& - &*XX(1255)-JVS(5027)*XX(1256)-JVS(5033)*XX(1257)-JVS(5036)*XX(1258)-JVS(5040)*XX(1259)-JVS(5044)*XX(1260)& - &-JVS(5048)*XX(1261)-JVS(5052)*XX(1262)-JVS(5056)*XX(1263)-JVS(5060)*XX(1264)-JVS(5064)*XX(1265)-JVS(5068)& - &*XX(1266)-JVS(5072)*XX(1267)-JVS(5076)*XX(1268)-JVS(5081)*XX(1269)-JVS(5084)*XX(1270)-JVS(5088)*XX(1271)& - &-JVS(5092)*XX(1272)-JVS(5096)*XX(1273)-JVS(5100)*XX(1274)-JVS(5104)*XX(1275)-JVS(5108)*XX(1276)-JVS(5112)& - &*XX(1277)-JVS(5116)*XX(1278)-JVS(5120)*XX(1279)-JVS(5125)*XX(1280)-JVS(5128)*XX(1281)-JVS(5132)*XX(1282)& - &-JVS(5136)*XX(1283)-JVS(5140)*XX(1284)-JVS(5144)*XX(1285)-JVS(5148)*XX(1286)-JVS(5152)*XX(1287)-JVS(5156)& - &*XX(1288)-JVS(5160)*XX(1289)-JVS(5164)*XX(1290)-JVS(5168)*XX(1291)-JVS(5172)*XX(1292)-JVS(5176)*XX(1293)& - &-JVS(5180)*XX(1294)-JVS(5184)*XX(1295)-JVS(5188)*XX(1296)-JVS(5193)*XX(1297)-JVS(5196)*XX(1298)-JVS(5200)& - &*XX(1299)-JVS(5204)*XX(1300)-JVS(5208)*XX(1301)-JVS(5212)*XX(1302)-JVS(5216)*XX(1303)-JVS(5220)*XX(1304)& - &-JVS(5224)*XX(1305)-JVS(5228)*XX(1306)-JVS(5232)*XX(1307)-JVS(5236)*XX(1308)-JVS(5240)*XX(1309)-JVS(5244)& - &*XX(1310)-JVS(5248)*XX(1311)-JVS(5252)*XX(1312)-JVS(5256)*XX(1313)-JVS(5260)*XX(1314)-JVS(5264)*XX(1315)& - &-JVS(5268)*XX(1316)-JVS(5272)*XX(1317)-JVS(5276)*XX(1318)-JVS(5280)*XX(1319)-JVS(5284)*XX(1320)-JVS(5288)& - &*XX(1321)-JVS(5292)*XX(1322)-JVS(5296)*XX(1323)-JVS(5300)*XX(1324)-JVS(5304)*XX(1325)-JVS(5308)*XX(1326)& - &-JVS(5312)*XX(1327)-JVS(5316)*XX(1328)-JVS(5320)*XX(1329)-JVS(5324)*XX(1330)-JVS(5328)*XX(1331)-JVS(5332)& - &*XX(1332)-JVS(5336)*XX(1333)-JVS(5340)*XX(1334)-JVS(5344)*XX(1335)-JVS(5348)*XX(1336)-JVS(5352)*XX(1337)& - &-JVS(5356)*XX(1338)-JVS(5360)*XX(1339)-JVS(5364)*XX(1340)-JVS(5368)*XX(1341)-JVS(5372)*XX(1342)-JVS(5376)& - &*XX(1343)-JVS(5380)*XX(1344)-JVS(5384)*XX(1345)-JVS(5392)*XX(1347)-JVS(5396)*XX(1348)-JVS(5400)*XX(1349)& - &-JVS(5404)*XX(1350)-JVS(5408)*XX(1351)-JVS(5412)*XX(1352)-JVS(5416)*XX(1353)-JVS(5420)*XX(1354)-JVS(5424)& - &*XX(1355)-JVS(5428)*XX(1356)-JVS(5432)*XX(1357)-JVS(5436)*XX(1358)-JVS(5440)*XX(1359)-JVS(5444)*XX(1360)& - &-JVS(5448)*XX(1361)-JVS(5452)*XX(1362)-JVS(5456)*XX(1363)-JVS(5460)*XX(1364)-JVS(5464)*XX(1365)-JVS(5468)& - &*XX(1366)-JVS(5472)*XX(1367)-JVS(5476)*XX(1368)-JVS(5481)*XX(1369)-JVS(5484)*XX(1370)-JVS(5488)*XX(1371)& - &-JVS(5494)*XX(1372)-JVS(5497)*XX(1373)-JVS(5501)*XX(1374)-JVS(5505)*XX(1375)-JVS(5509)*XX(1376)-JVS(5513)& - &*XX(1377)-JVS(5517)*XX(1378)-JVS(5521)*XX(1379)-JVS(5525)*XX(1380)-JVS(5529)*XX(1381)-JVS(5533)*XX(1382)& - &-JVS(5537)*XX(1383)-JVS(5542)*XX(1384)-JVS(5545)*XX(1385)-JVS(5550)*XX(1386)-JVS(5553)*XX(1387)-JVS(5557)& - &*XX(1388)-JVS(5561)*XX(1389)-JVS(5565)*XX(1390)-JVS(5569)*XX(1391)-JVS(5573)*XX(1392)-JVS(5577)*XX(1393)& - &-JVS(5581)*XX(1394)-JVS(5585)*XX(1395)-JVS(5589)*XX(1396)-JVS(5593)*XX(1397)-JVS(5597)*XX(1398)-JVS(5601)& - &*XX(1399)-JVS(5605)*XX(1400)-JVS(5609)*XX(1401)-JVS(5613)*XX(1402)-JVS(5617)*XX(1403)-JVS(5621)*XX(1404)& - &-JVS(5625)*XX(1405)-JVS(5629)*XX(1406)-JVS(5633)*XX(1407)-JVS(5637)*XX(1408)-JVS(5641)*XX(1409)-JVS(5645)& - &*XX(1410)-JVS(5649)*XX(1411)-JVS(5653)*XX(1412)-JVS(5657)*XX(1413)-JVS(5661)*XX(1414)-JVS(5665)*XX(1415)& - &-JVS(5669)*XX(1416)-JVS(5673)*XX(1417)-JVS(5677)*XX(1418)-JVS(5681)*XX(1419)-JVS(5685)*XX(1420)-JVS(5689)& - &*XX(1421)-JVS(5693)*XX(1422)-JVS(5697)*XX(1423)-JVS(5701)*XX(1424)-JVS(5705)*XX(1425)-JVS(5709)*XX(1426)& - &-JVS(5713)*XX(1427)-JVS(5717)*XX(1428)-JVS(5721)*XX(1429)-JVS(5725)*XX(1430)-JVS(5729)*XX(1431)-JVS(5733)& - &*XX(1432)-JVS(5737)*XX(1433)-JVS(5741)*XX(1434)-JVS(5745)*XX(1435)-JVS(5749)*XX(1436)-JVS(5753)*XX(1437)& - &-JVS(5757)*XX(1438)-JVS(5761)*XX(1439)-JVS(5765)*XX(1440)-JVS(5769)*XX(1441)-JVS(5773)*XX(1442)-JVS(5777)& - &*XX(1443)-JVS(5781)*XX(1444)-JVS(5785)*XX(1445)-JVS(5789)*XX(1446)-JVS(5793)*XX(1447)-JVS(5797)*XX(1448)& - &-JVS(5801)*XX(1449)-JVS(5805)*XX(1450)-JVS(5809)*XX(1451)-JVS(5813)*XX(1452)-JVS(5817)*XX(1453)-JVS(5821)& - &*XX(1454)-JVS(5825)*XX(1455)-JVS(5829)*XX(1456)-JVS(5833)*XX(1457)-JVS(5837)*XX(1458)-JVS(5841)*XX(1459)& - &-JVS(5845)*XX(1460)-JVS(5849)*XX(1461)-JVS(5853)*XX(1462)-JVS(5857)*XX(1463)-JVS(5861)*XX(1464)-JVS(5865)& - &*XX(1465)-JVS(5869)*XX(1466)-JVS(5873)*XX(1467)-JVS(5877)*XX(1468)-JVS(5881)*XX(1469)-JVS(5885)*XX(1470)& - &-JVS(5889)*XX(1471)-JVS(5893)*XX(1472)-JVS(5897)*XX(1473)-JVS(5901)*XX(1474)-JVS(5905)*XX(1475)-JVS(5909)& - &*XX(1476)-JVS(5913)*XX(1477)-JVS(5917)*XX(1478)-JVS(5921)*XX(1479)-JVS(5925)*XX(1480)-JVS(5929)*XX(1481)& - &-JVS(5933)*XX(1482)-JVS(5939)*XX(1483)-JVS(5943)*XX(1484)-JVS(5947)*XX(1485)-JVS(5951)*XX(1486)-JVS(5955)& - &*XX(1487)-JVS(5959)*XX(1488)-JVS(5963)*XX(1489)-JVS(5967)*XX(1490)-JVS(5971)*XX(1491)-JVS(5975)*XX(1492)& - &-JVS(5981)*XX(1493)-JVS(5984)*XX(1494)-JVS(5988)*XX(1495)-JVS(5992)*XX(1496)-JVS(5996)*XX(1497)-JVS(6000)& - &*XX(1498)-JVS(6004)*XX(1499)-JVS(6008)*XX(1500)-JVS(6012)*XX(1501)-JVS(6016)*XX(1502)-JVS(6020)*XX(1503)& - &-JVS(6024)*XX(1504)-JVS(6028)*XX(1505)-JVS(6032)*XX(1506)-JVS(6036)*XX(1507)-JVS(6040)*XX(1508)-JVS(6044)& - &*XX(1509)-JVS(6048)*XX(1510)-JVS(6052)*XX(1511)-JVS(6056)*XX(1512)-JVS(6060)*XX(1513)-JVS(6064)*XX(1514)& - &-JVS(6068)*XX(1515)-JVS(6072)*XX(1516)-JVS(6076)*XX(1517)-JVS(6080)*XX(1518)-JVS(6084)*XX(1519)-JVS(6089)& - &*XX(1520)-JVS(6093)*XX(1521)-JVS(6096)*XX(1522)-JVS(6100)*XX(1523)-JVS(6104)*XX(1524)-JVS(6108)*XX(1525)& - &-JVS(6112)*XX(1526)-JVS(6116)*XX(1527)-JVS(6120)*XX(1528)-JVS(6124)*XX(1529)-JVS(6128)*XX(1530)-JVS(6132)& - &*XX(1531)-JVS(6136)*XX(1532)-JVS(6140)*XX(1533)-JVS(6144)*XX(1534)-JVS(6148)*XX(1535)-JVS(6152)*XX(1536)& - &-JVS(6156)*XX(1537)-JVS(6160)*XX(1538)-JVS(6164)*XX(1539)-JVS(6168)*XX(1540)-JVS(6172)*XX(1541)-JVS(6176)& - &*XX(1542)-JVS(6180)*XX(1543)-JVS(6184)*XX(1544)-JVS(6188)*XX(1545)-JVS(6192)*XX(1546)-JVS(6196)*XX(1547)& - &-JVS(6200)*XX(1548)-JVS(6203)*XX(1549)-JVS(6210)*XX(1550)-JVS(6214)*XX(1551)-JVS(6230)*XX(1554)-JVS(6233)& - &*XX(1555)-JVS(6238)*XX(1556)-JVS(6243)*XX(1557)-JVS(6246)*XX(1558)-JVS(6255)*XX(1560)-JVS(6258)*XX(1561)& - &-JVS(6261)*XX(1562)-JVS(6280)*XX(1565)-JVS(6283)*XX(1566)-JVS(6286)*XX(1567)-JVS(6298)*XX(1570)-JVS(6301)& - &*XX(1571)-JVS(6306)*XX(1572)-JVS(6312)*XX(1573)-JVS(6322)*XX(1575)-JVS(6325)*XX(1576)-JVS(6328)*XX(1577)& - &-JVS(6331)*XX(1578)-JVS(6336)*XX(1579)-JVS(6341)*XX(1580)-JVS(6349)*XX(1581)-JVS(6352)*XX(1582)-JVS(6361)& - &*XX(1584)-JVS(6364)*XX(1585)-JVS(6367)*XX(1586)-JVS(6370)*XX(1587)-JVS(6373)*XX(1588)-JVS(6376)*XX(1589)& - &-JVS(6383)*XX(1590)-JVS(6387)*XX(1591)-JVS(6403)*XX(1594)-JVS(6412)*XX(1596)-JVS(6421)*XX(1598)-JVS(6424)& - &*XX(1599)-JVS(6427)*XX(1600)-JVS(6430)*XX(1601)-JVS(6433)*XX(1602)-JVS(6436)*XX(1603)-JVS(6443)*XX(1604)& - &-JVS(6449)*XX(1605)-JVS(6457)*XX(1606)-JVS(6465)*XX(1607)-JVS(6473)*XX(1608)-JVS(6479)*XX(1609)-JVS(6484)& - &*XX(1610)-JVS(6487)*XX(1611)-JVS(6490)*XX(1612)-JVS(6493)*XX(1613)-JVS(6502)*XX(1615)-JVS(6513)*XX(1617)& - &-JVS(6519)*XX(1618)-JVS(6522)*XX(1619)-JVS(6527)*XX(1620)-JVS(6533)*XX(1621)-JVS(6538)*XX(1622)-JVS(6544)& - &*XX(1623)-JVS(6549)*XX(1624)-JVS(6555)*XX(1625)-JVS(6558)*XX(1626)-JVS(6571)*XX(1628)-JVS(6575)*XX(1629)& - &-JVS(6579)*XX(1630)-JVS(6584)*XX(1631)-JVS(6589)*XX(1632)-JVS(6592)*XX(1633)-JVS(6601)*XX(1635)-JVS(6604)& - &*XX(1636)-JVS(6607)*XX(1637)-JVS(6616)*XX(1639)-JVS(6621)*XX(1640)-JVS(6626)*XX(1641)-JVS(6635)*XX(1643)& - &-JVS(6638)*XX(1644)-JVS(6647)*XX(1646)-JVS(6650)*XX(1647)-JVS(6657)*XX(1648)-JVS(6661)*XX(1649)-JVS(6671)& - &*XX(1651)-JVS(6676)*XX(1652)-JVS(6682)*XX(1653)-JVS(6687)*XX(1654)-JVS(6692)*XX(1655)-JVS(6699)*XX(1656)& - &-JVS(6703)*XX(1657)-JVS(6707)*XX(1658)-JVS(6710)*XX(1659)-JVS(6717)*XX(1660)-JVS(6739)*XX(1664)-JVS(6742)& - &*XX(1665)-JVS(6745)*XX(1666)-JVS(6754)*XX(1668)-JVS(6757)*XX(1669)-JVS(6760)*XX(1670)-JVS(6763)*XX(1671)& - &-JVS(6766)*XX(1672)-JVS(6769)*XX(1673)-JVS(6772)*XX(1674)-JVS(6777)*XX(1675)-JVS(6783)*XX(1676)-JVS(6788)& - &*XX(1677)-JVS(6793)*XX(1678)-JVS(6804)*XX(1680)-JVS(6810)*XX(1681)-JVS(6813)*XX(1682)-JVS(6816)*XX(1683)& - &-JVS(6826)*XX(1685)-JVS(6829)*XX(1686)-JVS(6832)*XX(1687)-JVS(6835)*XX(1688)-JVS(6840)*XX(1689)-JVS(6846)& - &*XX(1690)-JVS(6851)*XX(1691)-JVS(6862)*XX(1693)-JVS(6865)*XX(1694)-JVS(6878)*XX(1696)-JVS(6882)*XX(1697)& - &-JVS(6885)*XX(1698)-JVS(6894)*XX(1700)-JVS(6897)*XX(1701)-JVS(6906)*XX(1703)-JVS(6909)*XX(1704)-JVS(6912)& - &*XX(1705)-JVS(6919)*XX(1706)-JVS(6922)*XX(1707)-JVS(6925)*XX(1708)-JVS(6928)*XX(1709)-JVS(6933)*XX(1710)& - &-JVS(6939)*XX(1711)-JVS(6944)*XX(1712)-JVS(6949)*XX(1713)-JVS(6957)*XX(1714)-JVS(6969)*XX(1716)-JVS(6972)& - &*XX(1717)-JVS(6975)*XX(1718)-JVS(6978)*XX(1719)-JVS(6993)*XX(1722)-JVS(6998)*XX(1723)-JVS(7015)*XX(1726)& - &-JVS(7020)*XX(1727)-JVS(7029)*XX(1728)-JVS(7033)*XX(1729)-JVS(7036)*XX(1730)-JVS(7039)*XX(1731)-JVS(7044)& - &*XX(1732)-JVS(7050)*XX(1733)-JVS(7053)*XX(1734)-JVS(7056)*XX(1735)-JVS(7063)*XX(1736)-JVS(7076)*XX(1738)& - &-JVS(7081)*XX(1739)-JVS(7087)*XX(1740)-JVS(7096)*XX(1742)-JVS(7105)*XX(1744)-JVS(7110)*XX(1745)-JVS(7119)& - &*XX(1747)-JVS(7127)*XX(1749)-JVS(7134)*XX(1750)-JVS(7139)*XX(1751)-JVS(7143)*XX(1752)-JVS(7147)*XX(1753)& - &-JVS(7154)*XX(1754)-JVS(7162)*XX(1755)-JVS(7170)*XX(1756)-JVS(7174)*XX(1757)-JVS(7178)*XX(1758)-JVS(7182)& - &*XX(1759)-JVS(7192)*XX(1761)-JVS(7196)*XX(1762)-JVS(7201)*XX(1763)-JVS(7206)*XX(1764)-JVS(7211)*XX(1765)& - &-JVS(7215)*XX(1766)-JVS(7219)*XX(1767)-JVS(7223)*XX(1768)-JVS(7232)*XX(1770)-JVS(7236)*XX(1771)-JVS(7240)& - &*XX(1772)-JVS(7246)*XX(1773)-JVS(7252)*XX(1774)-JVS(7256)*XX(1775)-JVS(7263)*XX(1777)-JVS(7266)*XX(1778)& - &-JVS(7270)*XX(1779)-JVS(7274)*XX(1780)-JVS(7280)*XX(1781)-JVS(7287)*XX(1782)-JVS(7291)*XX(1783)-JVS(7295)& - &*XX(1784)-JVS(7300)*XX(1785)-JVS(7304)*XX(1786)-JVS(7313)*XX(1788)-JVS(7320)*XX(1789)-JVS(7328)*XX(1790)& - &-JVS(7333)*XX(1791)-JVS(7338)*XX(1792)-JVS(7344)*XX(1793)-JVS(7348)*XX(1794)-JVS(7358)*XX(1796)-JVS(7365)& - &*XX(1797)-JVS(7368)*XX(1798)-JVS(7374)*XX(1799)-JVS(7380)*XX(1800)-JVS(7384)*XX(1801)-JVS(7388)*XX(1802)& - &-JVS(7395)*XX(1803)-JVS(7401)*XX(1804)-JVS(7405)*XX(1805)-JVS(7411)*XX(1806)-JVS(7415)*XX(1807)-JVS(7423)& - &*XX(1809)-JVS(7432)*XX(1811)-JVS(7439)*XX(1812)-JVS(7445)*XX(1813)-JVS(7451)*XX(1814)-JVS(7462)*XX(1816)& - &-JVS(7467)*XX(1817)-JVS(7473)*XX(1818)-JVS(7479)*XX(1819)-JVS(7485)*XX(1820)-JVS(7493)*XX(1821)-JVS(7501)& - &*XX(1822)-JVS(7507)*XX(1823)-JVS(7511)*XX(1824)-JVS(7522)*XX(1826)-JVS(7526)*XX(1827)-JVS(7532)*XX(1828)& - &-JVS(7535)*XX(1829)-JVS(7539)*XX(1830)-JVS(7543)*XX(1831)-JVS(7549)*XX(1832)-JVS(7555)*XX(1833)-JVS(7562)& - &*XX(1834)-JVS(7565)*XX(1835)-JVS(7569)*XX(1836)-JVS(7573)*XX(1837)-JVS(7579)*XX(1838)-JVS(7585)*XX(1839)& - &-JVS(7589)*XX(1840)-JVS(7593)*XX(1841)-JVS(7597)*XX(1842)-JVS(7603)*XX(1843)-JVS(7606)*XX(1844)-JVS(7610)& - &*XX(1845)-JVS(7614)*XX(1846)-JVS(7620)*XX(1847)-JVS(7631)*XX(1849)-JVS(7635)*XX(1850)-JVS(7639)*XX(1851)& - &-JVS(7646)*XX(1852)-JVS(7652)*XX(1853)-JVS(7655)*XX(1854)-JVS(7659)*XX(1855)-JVS(7663)*XX(1856)-JVS(7667)& - &*XX(1857)-JVS(7672)*XX(1858)-JVS(7675)*XX(1859)-JVS(7681)*XX(1860)-JVS(7687)*XX(1861)-JVS(7691)*XX(1862)& - &-JVS(7695)*XX(1863)-JVS(7699)*XX(1864)-JVS(7705)*XX(1865)-JVS(7718)*XX(1867)-JVS(7724)*XX(1868)-JVS(7728)& - &*XX(1869)-JVS(7736)*XX(1870)-JVS(7740)*XX(1871)-JVS(7749)*XX(1873)-JVS(7753)*XX(1874)-JVS(7757)*XX(1875)& - &-JVS(7760)*XX(1876)-JVS(7770)*XX(1878)-JVS(7773)*XX(1879)-JVS(7777)*XX(1880)-JVS(7781)*XX(1881)-JVS(7790)& - &*XX(1883)-JVS(7794)*XX(1884)-JVS(7798)*XX(1885)-JVS(7802)*XX(1886)-JVS(7806)*XX(1887)-JVS(7810)*XX(1888)& - &-JVS(7814)*XX(1889)-JVS(7818)*XX(1890)-JVS(7833)*XX(1893)-JVS(7838)*XX(1894)-JVS(7842)*XX(1895)-JVS(7846)& - &*XX(1896)-JVS(7850)*XX(1897)-JVS(7854)*XX(1898)-JVS(7858)*XX(1899)-JVS(7862)*XX(1900)-JVS(7866)*XX(1901)& - &-JVS(7870)*XX(1902)-JVS(7876)*XX(1903)-JVS(7882)*XX(1904)-JVS(7886)*XX(1905)-JVS(7892)*XX(1906)-JVS(7898)& - &*XX(1907)-JVS(7902)*XX(1908)-JVS(7906)*XX(1909)-JVS(7912)*XX(1910)-JVS(7918)*XX(1911)-JVS(7922)*XX(1912)& - &-JVS(7928)*XX(1913)-JVS(7932)*XX(1914)-JVS(7937)*XX(1915)-JVS(7941)*XX(1916)-JVS(7944)*XX(1917)-JVS(7948)& - &*XX(1918)-JVS(7952)*XX(1919)-JVS(7956)*XX(1920)-JVS(7960)*XX(1921)-JVS(7964)*XX(1922)-JVS(7970)*XX(1923)& - &-JVS(7982)*XX(1925)-JVS(7985)*XX(1926)-JVS(7994)*XX(1928)-JVS(7999)*XX(1929)-JVS(8002)*XX(1930)-JVS(8008)& - &*XX(1931)-JVS(8014)*XX(1932)-JVS(8018)*XX(1933)-JVS(8022)*XX(1934)-JVS(8025)*XX(1935)-JVS(8029)*XX(1936)& - &-JVS(8033)*XX(1937)-JVS(8037)*XX(1938)-JVS(8041)*XX(1939)-JVS(8045)*XX(1940)-JVS(8049)*XX(1941)-JVS(8055)& - &*XX(1942)-JVS(8061)*XX(1943)-JVS(8072)*XX(1945)-JVS(8078)*XX(1946)-JVS(8082)*XX(1947)-JVS(8086)*XX(1948)& - &-JVS(8090)*XX(1949)-JVS(8094)*XX(1950)-JVS(8103)*XX(1952)-JVS(8110)*XX(1953)-JVS(8113)*XX(1954)-JVS(8122)& - &*XX(1956)-JVS(8127)*XX(1957)-JVS(8131)*XX(1958)-JVS(8145)*XX(1961)-JVS(8154)*XX(1962)-JVS(8160)*XX(1963)& - &-JVS(8164)*XX(1964)-JVS(8168)*XX(1965)-JVS(8172)*XX(1966)-JVS(8181)*XX(1968)-JVS(8185)*XX(1969)-JVS(8189)& - &*XX(1970)-JVS(8195)*XX(1971)-JVS(8201)*XX(1972)-JVS(8205)*XX(1973)-JVS(8209)*XX(1974)-JVS(8216)*XX(1975)& - &-JVS(8223)*XX(1976)-JVS(8228)*XX(1977)-JVS(8232)*XX(1978)-JVS(8236)*XX(1979)-JVS(8240)*XX(1980)-JVS(8244)& - &*XX(1981)-JVS(8247)*XX(1982)-JVS(8252)*XX(1983)-JVS(8259)*XX(1984)-JVS(8265)*XX(1985)-JVS(8271)*XX(1986)& - &-JVS(8277)*XX(1987)-JVS(8281)*XX(1988)-JVS(8287)*XX(1989)-JVS(8293)*XX(1990)-JVS(8297)*XX(1991)-JVS(8300)& - &*XX(1992)-JVS(8304)*XX(1993)-JVS(8308)*XX(1994)-JVS(8313)*XX(1995)-JVS(8317)*XX(1996)-JVS(8321)*XX(1997)& - &-JVS(8327)*XX(1998)-JVS(8333)*XX(1999)-JVS(8340)*XX(2000)-JVS(8347)*XX(2001)-JVS(8350)*XX(2002)-JVS(8354)& - &*XX(2003)-JVS(8368)*XX(2006)-JVS(8372)*XX(2007)-JVS(8381)*XX(2009)-JVS(8385)*XX(2010)-JVS(8390)*XX(2011)& - &-JVS(8402)*XX(2014)-JVS(8408)*XX(2015)-JVS(8414)*XX(2016)-JVS(8418)*XX(2017)-JVS(8422)*XX(2018)-JVS(8426)& - &*XX(2019)-JVS(8430)*XX(2020)-JVS(8435)*XX(2021)-JVS(8439)*XX(2022)-JVS(8444)*XX(2023)-JVS(8453)*XX(2025)& - &-JVS(8457)*XX(2026)-JVS(8461)*XX(2027)-JVS(8466)*XX(2028)-JVS(8476)*XX(2030)-JVS(8484)*XX(2031)-JVS(8490)& - &*XX(2032)-JVS(8497)*XX(2033)-JVS(8503)*XX(2034)-JVS(8510)*XX(2035)-JVS(8516)*XX(2036)-JVS(8521)*XX(2037)& - &-JVS(8529)*XX(2039)-JVS(8533)*XX(2040)-JVS(8539)*XX(2041)-JVS(8549)*XX(2043)-JVS(8552)*XX(2044)-JVS(8556)& - &*XX(2045)-JVS(8560)*XX(2046)-JVS(8564)*XX(2047)-JVS(8568)*XX(2048)-JVS(8572)*XX(2049)-JVS(8578)*XX(2050)& - &-JVS(8585)*XX(2051)-JVS(8589)*XX(2052)-JVS(8593)*XX(2053)-JVS(8597)*XX(2054)-JVS(8601)*XX(2055)-JVS(8608)& - &*XX(2056)-JVS(8614)*XX(2057)-JVS(8618)*XX(2058)-JVS(8622)*XX(2059)-JVS(8628)*XX(2060)-JVS(8634)*XX(2061)& - &-JVS(8638)*XX(2062)-JVS(8642)*XX(2063)-JVS(8646)*XX(2064)-JVS(8650)*XX(2065)-JVS(8660)*XX(2067)-JVS(8664)& - &*XX(2068)-JVS(8668)*XX(2069)-JVS(8672)*XX(2070)-JVS(8676)*XX(2071)-JVS(8680)*XX(2072)-JVS(8686)*XX(2073)& - &-JVS(8692)*XX(2074)-JVS(8696)*XX(2075)-JVS(8702)*XX(2076)-JVS(8708)*XX(2077)-JVS(8712)*XX(2078)-JVS(8716)& - &*XX(2079)-JVS(8720)*XX(2080)-JVS(8728)*XX(2082)-JVS(8732)*XX(2083)-JVS(8736)*XX(2084)-JVS(8745)*XX(2086)& - &-JVS(8749)*XX(2087)-JVS(8755)*XX(2088)-JVS(8761)*XX(2089)-JVS(8770)*XX(2091)-JVS(8774)*XX(2092)-JVS(8778)& - &*XX(2093)-JVS(8782)*XX(2094)-JVS(8786)*XX(2095)-JVS(8791)*XX(2096)-JVS(8795)*XX(2097)-JVS(8799)*XX(2098)& - &-JVS(8803)*XX(2099)-JVS(8809)*XX(2100)-JVS(8816)*XX(2101)-JVS(8820)*XX(2102)-JVS(8824)*XX(2103)-JVS(8831)& - &*XX(2105)-JVS(8835)*XX(2106)-JVS(8839)*XX(2107)-JVS(8843)*XX(2108)-JVS(8847)*XX(2109)-JVS(8851)*XX(2110)& - &-JVS(8855)*XX(2111)-JVS(8864)*XX(2113)-JVS(8868)*XX(2114)-JVS(8872)*XX(2115)-JVS(8876)*XX(2116)-JVS(8885)& - &*XX(2118)-JVS(8890)*XX(2119)-JVS(8894)*XX(2120)-JVS(8898)*XX(2121)-JVS(8904)*XX(2122)-JVS(8910)*XX(2123)& - &-JVS(8914)*XX(2124)-JVS(8918)*XX(2125)-JVS(8922)*XX(2126)-JVS(8926)*XX(2127)-JVS(8930)*XX(2128)-JVS(8934)& - &*XX(2129)-JVS(8941)*XX(2131)-JVS(8947)*XX(2132)-JVS(8950)*XX(2133)-JVS(8956)*XX(2134)-JVS(8959)*XX(2135)& - &-JVS(8963)*XX(2136)-JVS(8967)*XX(2137)-JVS(8971)*XX(2138)-JVS(8975)*XX(2139)-JVS(8980)*XX(2140)-JVS(8986)& - &*XX(2141)-JVS(8990)*XX(2142)-JVS(8995)*XX(2143)-JVS(8999)*XX(2144)-JVS(9008)*XX(2146)-JVS(9012)*XX(2147)& - &-JVS(9019)*XX(2149)-JVS(9023)*XX(2150)-JVS(9027)*XX(2151)-JVS(9031)*XX(2152)-JVS(9035)*XX(2153)-JVS(9041)& - &*XX(2154)-JVS(9045)*XX(2155)-JVS(9049)*XX(2156)-JVS(9053)*XX(2157)-JVS(9062)*XX(2159)-JVS(9066)*XX(2160)& - &-JVS(9070)*XX(2161)-JVS(9081)*XX(2163)-JVS(9087)*XX(2164)-JVS(9091)*XX(2165)-JVS(9095)*XX(2166)-JVS(9099)& - &*XX(2167)-JVS(9103)*XX(2168)-JVS(9107)*XX(2169)-JVS(9116)*XX(2171)-JVS(9120)*XX(2172)-JVS(9126)*XX(2173)& - &-JVS(9132)*XX(2174)-JVS(9137)*XX(2175)-JVS(9140)*XX(2176)-JVS(9145)*XX(2177)-JVS(9149)*XX(2178)-JVS(9153)& - &*XX(2179)-JVS(9157)*XX(2180)-JVS(9162)*XX(2181)-JVS(9166)*XX(2182)-JVS(9170)*XX(2183)-JVS(9175)*XX(2184)& - &-JVS(9179)*XX(2185)-JVS(9188)*XX(2187)-JVS(9192)*XX(2188)-JVS(9196)*XX(2189)-JVS(9203)*XX(2190)-JVS(9209)& - &*XX(2191)-JVS(9213)*XX(2192)-JVS(9217)*XX(2193)-JVS(9221)*XX(2194)-JVS(9225)*XX(2195)-JVS(9229)*XX(2196)& - &-JVS(9234)*XX(2197)-JVS(9238)*XX(2198)-JVS(9242)*XX(2199)-JVS(9256)*XX(2202)-JVS(9265)*XX(2204)-JVS(9269)& - &*XX(2205)-JVS(9273)*XX(2206)-JVS(9280)*XX(2207)-JVS(9286)*XX(2208)-JVS(9292)*XX(2209)-JVS(9301)*XX(2211)& - &-JVS(9308)*XX(2213)-JVS(9312)*XX(2214)-JVS(9316)*XX(2215)-JVS(9320)*XX(2216)-JVS(9324)*XX(2217)-JVS(9328)& - &*XX(2218)-JVS(9332)*XX(2219)-JVS(9336)*XX(2220)-JVS(9340)*XX(2221)-JVS(9345)*XX(2222)-JVS(9349)*XX(2223)& - &-JVS(9353)*XX(2224)-JVS(9358)*XX(2225)-JVS(9364)*XX(2226)-JVS(9370)*XX(2227)-JVS(9374)*XX(2228)-JVS(9385)& - &*XX(2230)-JVS(9390)*XX(2231)-JVS(9393)*XX(2232)-JVS(9397)*XX(2233)-JVS(9406)*XX(2235)-JVS(9410)*XX(2236)& - &-JVS(9414)*XX(2237)-JVS(9423)*XX(2239)-JVS(9427)*XX(2240)-JVS(9431)*XX(2241)-JVS(9435)*XX(2242)-JVS(9440)& - &*XX(2243)-JVS(9443)*XX(2244)-JVS(9447)*XX(2245)-JVS(9451)*XX(2246)-JVS(9455)*XX(2247)-JVS(9459)*XX(2248)& - &-JVS(9468)*XX(2250)-JVS(9472)*XX(2251)-JVS(9476)*XX(2252)-JVS(9480)*XX(2253)-JVS(9484)*XX(2254)-JVS(9490)& - &*XX(2255)-JVS(9493)*XX(2256)-JVS(9497)*XX(2257)-JVS(9505)*XX(2259)-JVS(9508)*XX(2260)-JVS(9512)*XX(2261)& - &-JVS(9516)*XX(2262)-JVS(9520)*XX(2263)-JVS(9524)*XX(2264)-JVS(9530)*XX(2265)-JVS(9533)*XX(2266)-JVS(9537)& - &*XX(2267)-JVS(9541)*XX(2268)-JVS(9545)*XX(2269)-JVS(9549)*XX(2270)-JVS(9553)*XX(2271)-JVS(9559)*XX(2272)& - &-JVS(9564)*XX(2273)-JVS(9568)*XX(2274)-JVS(9572)*XX(2275)-JVS(9577)*XX(2276)-JVS(9581)*XX(2277)-JVS(9586)& - &*XX(2278)-JVS(9595)*XX(2280)-JVS(9599)*XX(2281)-JVS(9603)*XX(2282)-JVS(9608)*XX(2283)-JVS(9614)*XX(2284)& - &-JVS(9620)*XX(2285)-JVS(9633)*XX(2288)-JVS(9637)*XX(2289)-JVS(9641)*XX(2290)-JVS(9645)*XX(2291)-JVS(9649)& - &*XX(2292)-JVS(9656)*XX(2293)-JVS(9662)*XX(2294)-JVS(9668)*XX(2295)-JVS(9672)*XX(2296)-JVS(9677)*XX(2297)& - &-JVS(9681)*XX(2298)-JVS(9685)*XX(2299)-JVS(9689)*XX(2300)-JVS(9693)*XX(2301)-JVS(9697)*XX(2302)-JVS(9701)& - &*XX(2303)-JVS(9707)*XX(2304)-JVS(9713)*XX(2305)-JVS(9717)*XX(2306)-JVS(9721)*XX(2307)-JVS(9729)*XX(2309)& - &-JVS(9734)*XX(2310)-JVS(9737)*XX(2311)-JVS(9741)*XX(2312)-JVS(9745)*XX(2313)-JVS(9749)*XX(2314)-JVS(9755)& - &*XX(2315)-JVS(9759)*XX(2316)-JVS(9763)*XX(2317)-JVS(9767)*XX(2318)-JVS(9771)*XX(2319)-JVS(9775)*XX(2320)& - &-JVS(9779)*XX(2321)-JVS(9785)*XX(2322)-JVS(9798)*XX(2324)-JVS(9804)*XX(2325)-JVS(9815)*XX(2327)-JVS(9819)& - &*XX(2328)-JVS(9823)*XX(2329)-JVS(9827)*XX(2330)-JVS(9831)*XX(2331)-JVS(9835)*XX(2332)-JVS(9839)*XX(2333)& - &-JVS(9845)*XX(2334)-JVS(9852)*XX(2335)-JVS(9855)*XX(2336)-JVS(9858)*XX(2337)-JVS(9862)*XX(2338)-JVS(9866)& - &*XX(2339)-JVS(9871)*XX(2340)-JVS(9875)*XX(2341)-JVS(9879)*XX(2342)-JVS(9884)*XX(2343)-JVS(9888)*XX(2344)& - &-JVS(9891)*XX(2345)-JVS(9894)*XX(2346)-JVS(9898)*XX(2347)-JVS(9902)*XX(2348)-JVS(9906)*XX(2349)-JVS(9910)& - &*XX(2350)-JVS(9914)*XX(2351)-JVS(9918)*XX(2352)-JVS(9923)*XX(2353)-JVS(9927)*XX(2354)-JVS(9931)*XX(2355)& - &-JVS(9937)*XX(2356)-JVS(9942)*XX(2357)-JVS(9945)*XX(2358)-JVS(9952)*XX(2360)-JVS(9958)*XX(2361)-JVS(9964)& - &*XX(2362)-JVS(9968)*XX(2363)-JVS(9973)*XX(2364)-JVS(9977)*XX(2365)-JVS(9981)*XX(2366)-JVS(9986)*XX(2367)& - &-JVS(9990)*XX(2368)-JVS(9994)*XX(2369)-JVS(9999)*XX(2370)-JVS(10003)*XX(2371)-JVS(10007)*XX(2372)-JVS(10011)& - &*XX(2373)-JVS(10017)*XX(2374)-JVS(10023)*XX(2375)-JVS(10037)*XX(2377)-JVS(10041)*XX(2378)-JVS(10046)& - &*XX(2379)-JVS(10050)*XX(2380)-JVS(10056)*XX(2381)-JVS(10060)*XX(2382)-JVS(10063)*XX(2383)-JVS(10067)& - &*XX(2384)-JVS(10071)*XX(2385)-JVS(10074)*XX(2386)-JVS(10078)*XX(2387)-JVS(10082)*XX(2388)-JVS(10086)& - &*XX(2389)-JVS(10090)*XX(2390)-JVS(10094)*XX(2391)-JVS(10098)*XX(2392)-JVS(10105)*XX(2394)-JVS(10111)& - &*XX(2395)-JVS(10114)*XX(2396)-JVS(10118)*XX(2397)-JVS(10122)*XX(2398)-JVS(10128)*XX(2399)-JVS(10134)& - &*XX(2400)-JVS(10138)*XX(2401)-JVS(10142)*XX(2402)-JVS(10146)*XX(2403)-JVS(10150)*XX(2404)-JVS(10154)& - &*XX(2405)-JVS(10158)*XX(2406)-JVS(10162)*XX(2407)-JVS(10166)*XX(2408)-JVS(10170)*XX(2409)-JVS(10174)& - &*XX(2410)-JVS(10178)*XX(2411)-JVS(10182)*XX(2412)-JVS(10186)*XX(2413)-JVS(10190)*XX(2414)-JVS(10197)& - &*XX(2415)-JVS(10203)*XX(2416)-JVS(10207)*XX(2417)-JVS(10211)*XX(2418)-JVS(10215)*XX(2419)-JVS(10219)& - &*XX(2420)-JVS(10224)*XX(2421)-JVS(10227)*XX(2422)-JVS(10231)*XX(2423)-JVS(10235)*XX(2424)-JVS(10242)& - &*XX(2426)-JVS(10246)*XX(2427)-JVS(10250)*XX(2428)-JVS(10254)*XX(2429)-JVS(10263)*XX(2431)-JVS(10267)& - &*XX(2432)-JVS(10272)*XX(2433)-JVS(10276)*XX(2434)-JVS(10280)*XX(2435)-JVS(10284)*XX(2436)-JVS(10288)& - &*XX(2437)-JVS(10294)*XX(2438)-JVS(10297)*XX(2439)-JVS(10301)*XX(2440)-JVS(10306)*XX(2441)-JVS(10310)& - &*XX(2442)-JVS(10314)*XX(2443)-JVS(10318)*XX(2444)-JVS(10322)*XX(2445)-JVS(10326)*XX(2446)-JVS(10331)& - &*XX(2447)-JVS(10337)*XX(2448)-JVS(10340)*XX(2449)-JVS(10344)*XX(2450)-JVS(10348)*XX(2451)-JVS(10355)& - &*XX(2452)-JVS(10361)*XX(2453)-JVS(10365)*XX(2454)-JVS(10369)*XX(2455)-JVS(10373)*XX(2456)-JVS(10380)& - &*XX(2457)-JVS(10386)*XX(2458)-JVS(10390)*XX(2459)-JVS(10394)*XX(2460)-JVS(10398)*XX(2461)-JVS(10402)& - &*XX(2462)-JVS(10406)*XX(2463)-JVS(10410)*XX(2464)-JVS(10417)*XX(2465)-JVS(10423)*XX(2466)-JVS(10429)& - &*XX(2467)-JVS(10432)*XX(2468)-JVS(10435)*XX(2469)-JVS(10448)*XX(2471)-JVS(10451)*XX(2472)-JVS(10458)& - &*XX(2473)-JVS(10464)*XX(2474)-JVS(10467)*XX(2475)-JVS(10473)*XX(2477)-JVS(10477)*XX(2478)-JVS(10489)& - &*XX(2480)-JVS(10498)*XX(2482)-JVS(10501)*XX(2483)-JVS(10504)*XX(2484)-JVS(10507)*XX(2485)-JVS(10511)& - &*XX(2486)-JVS(10523)*XX(2488)-JVS(10532)*XX(2490)-JVS(10538)*XX(2491)-JVS(10543)*XX(2492)-JVS(10551)& - &*XX(2493)-JVS(10556)*XX(2494)-JVS(10562)*XX(2495)-JVS(10568)*XX(2496)-JVS(10572)*XX(2497)-JVS(10576)& - &*XX(2498)-JVS(10580)*XX(2499)-JVS(10584)*XX(2500)-JVS(10588)*XX(2501)-JVS(10593)*XX(2502)-JVS(10599)& - &*XX(2503)-JVS(10603)*XX(2504)-JVS(10607)*XX(2505)-JVS(10613)*XX(2506)-JVS(10618)*XX(2507)-JVS(10623)& - &*XX(2508)-JVS(10629)*XX(2509)-JVS(10633)*XX(2510)-JVS(10637)*XX(2511)-JVS(10643)*XX(2512)-JVS(10649)& - &*XX(2513)-JVS(10653)*XX(2514)-JVS(10657)*XX(2515)-JVS(10662)*XX(2516)-JVS(10668)*XX(2517)-JVS(10672)& - &*XX(2518)-JVS(10676)*XX(2519)-JVS(10680)*XX(2520)-JVS(10686)*XX(2521)-JVS(10692)*XX(2522)-JVS(10696)& - &*XX(2523)-JVS(10700)*XX(2524)-JVS(10704)*XX(2525)-JVS(10709)*XX(2526)-JVS(10715)*XX(2527)-JVS(10722)& - &*XX(2528)-JVS(10728)*XX(2529)-JVS(10732)*XX(2530)-JVS(10736)*XX(2531)-JVS(10740)*XX(2532)-JVS(10744)& - &*XX(2533)-JVS(10748)*XX(2534)-JVS(10753)*XX(2535)-JVS(10760)*XX(2536)-JVS(10766)*XX(2537)-JVS(10770)& - &*XX(2538)-JVS(10776)*XX(2539)-JVS(10782)*XX(2540)-JVS(10786)*XX(2541)-JVS(10790)*XX(2542)-JVS(10794)& - &*XX(2543)-JVS(10798)*XX(2544)-JVS(10804)*XX(2545)-JVS(10810)*XX(2546)-JVS(10816)*XX(2547)-JVS(10823)& - &*XX(2548)-JVS(10827)*XX(2549)-JVS(10834)*XX(2550)-JVS(10841)*XX(2551)-JVS(10847)*XX(2552)-JVS(10851)& - &*XX(2553)-JVS(10855)*XX(2554)-JVS(10859)*XX(2555)-JVS(10863)*XX(2556)-JVS(10868)*XX(2557)-JVS(10874)& - &*XX(2558)-JVS(10878)*XX(2559)-JVS(10882)*XX(2560)-JVS(10887)*XX(2561)-JVS(10896)*XX(2562)-JVS(10904)& - &*XX(2563)-JVS(10909)*XX(2564)-JVS(10913)*XX(2565)-JVS(10918)*XX(2566)-JVS(10924)*XX(2567)-JVS(10929)& - &*XX(2568)-JVS(10932)*XX(2569)-JVS(10936)*XX(2570)-JVS(10940)*XX(2571)-JVS(10944)*XX(2572)-JVS(10948)& - &*XX(2573)-JVS(10956)*XX(2574)-JVS(10963)*XX(2575)-JVS(10969)*XX(2576)-JVS(10974)*XX(2577)-JVS(10981)& - &*XX(2578)-JVS(10987)*XX(2579)-JVS(10991)*XX(2580)-JVS(10996)*XX(2581)-JVS(11002)*XX(2582)-JVS(11006)& - &*XX(2583)-JVS(11010)*XX(2584)-JVS(11014)*XX(2585)-JVS(11019)*XX(2586)-JVS(11025)*XX(2587)-JVS(11030)& - &*XX(2588)-JVS(11039)*XX(2589)-JVS(11045)*XX(2590)-JVS(11050)*XX(2591)-JVS(11058)*XX(2592)-JVS(11063)& - &*XX(2593)-JVS(11070)*XX(2594)-JVS(11078)*XX(2595)-JVS(11085)*XX(2596)-JVS(11091)*XX(2597)-JVS(11096)& - &*XX(2598)-JVS(11103)*XX(2599)-JVS(11109)*XX(2600)-JVS(11113)*XX(2601)-JVS(11117)*XX(2602)-JVS(11121)& - &*XX(2603)-JVS(11126)*XX(2604)-JVS(11132)*XX(2605)-JVS(11136)*XX(2606)-JVS(11141)*XX(2607)-JVS(11147)& - &*XX(2608)-JVS(11151)*XX(2609)-JVS(11155)*XX(2610)-JVS(11159)*XX(2611)-JVS(11163)*XX(2612)-JVS(11167)& - &*XX(2613)-JVS(11173)*XX(2614)-JVS(11179)*XX(2615)-JVS(11183)*XX(2616)-JVS(11187)*XX(2617)-JVS(11191)& - &*XX(2618)-JVS(11195)*XX(2619)-JVS(11199)*XX(2620)-JVS(11203)*XX(2621)-JVS(11207)*XX(2622)-JVS(11212)& - &*XX(2623)-JVS(11218)*XX(2624)-JVS(11222)*XX(2625)-JVS(11226)*XX(2626)-JVS(11230)*XX(2627)-JVS(11234)& - &*XX(2628)-JVS(11238)*XX(2629)-JVS(11242)*XX(2630)-JVS(11246)*XX(2631)-JVS(11250)*XX(2632)-JVS(11254)& - &*XX(2633)-JVS(11261)*XX(2634)-JVS(11267)*XX(2635)-JVS(11271)*XX(2636)-JVS(11275)*XX(2637)-JVS(11282)& - &*XX(2638)-JVS(11289)*XX(2639)-JVS(11295)*XX(2640)-JVS(11300)*XX(2641)-JVS(11309)*XX(2642)-JVS(11315)& - &*XX(2643)-JVS(11322)*XX(2644)-JVS(11330)*XX(2645)-JVS(11336)*XX(2646)-JVS(11344)*XX(2647)-JVS(11350)& - &*XX(2648)-JVS(11354)*XX(2649)-JVS(11358)*XX(2650)-JVS(11362)*XX(2651)-JVS(11366)*XX(2652)-JVS(11370)& - &*XX(2653)-JVS(11374)*XX(2654)-JVS(11378)*XX(2655)-JVS(11382)*XX(2656)-JVS(11386)*XX(2657)-JVS(11390)& - &*XX(2658)-JVS(11396)*XX(2659)-JVS(11402)*XX(2660)-JVS(11406)*XX(2661)-JVS(11412)*XX(2662)-JVS(11418)& - &*XX(2663)-JVS(11422)*XX(2664)-JVS(11428)*XX(2665)-JVS(11431)*XX(2666)-JVS(11436)*XX(2667)-JVS(11443)& - &*XX(2668)-JVS(11449)*XX(2669)-JVS(11453)*XX(2670)-JVS(11457)*XX(2671)-JVS(11461)*XX(2672)-JVS(11465)& - &*XX(2673)-JVS(11469)*XX(2674)-JVS(11473)*XX(2675)-JVS(11478)*XX(2676)-JVS(11484)*XX(2677)-JVS(11488)& - &*XX(2678)-JVS(11493)*XX(2679)-JVS(11501)*XX(2680)-JVS(11505)*XX(2681)-JVS(11510)*XX(2682)-JVS(11516)& - &*XX(2683)-JVS(11520)*XX(2684)-JVS(11524)*XX(2685)-JVS(11528)*XX(2686)-JVS(11532)*XX(2687)-JVS(11536)& - &*XX(2688)-JVS(11540)*XX(2689)-JVS(11544)*XX(2690)-JVS(11548)*XX(2691)-JVS(11553)*XX(2692)-JVS(11559)& - &*XX(2693)-JVS(11564)*XX(2694)-JVS(11570)*XX(2695)-JVS(11574)*XX(2696)-JVS(11581)*XX(2697)-JVS(11587)& - &*XX(2698)-JVS(11593)*XX(2699)-JVS(11599)*XX(2700)-JVS(11603)*XX(2701)-JVS(11607)*XX(2702)-JVS(11611)& - &*XX(2703)-JVS(11615)*XX(2704)-JVS(11619)*XX(2705)-JVS(11624)*XX(2706)-JVS(11631)*XX(2707)-JVS(11637)& - &*XX(2708)-JVS(11641)*XX(2709)-JVS(11647)*XX(2710)-JVS(11655)*XX(2711)-JVS(11659)*XX(2712)-JVS(11663)& - &*XX(2713)-JVS(11669)*XX(2714)-JVS(11672)*XX(2715)-JVS(11680)*XX(2716)-JVS(11686)*XX(2717)-JVS(11692)& - &*XX(2718)-JVS(11701)*XX(2719)-JVS(11707)*XX(2720)-JVS(11713)*XX(2721)-JVS(11719)*XX(2722)-JVS(11725)& - &*XX(2723)-JVS(11730)*XX(2724)-JVS(11736)*XX(2725)-JVS(11740)*XX(2726)-JVS(11744)*XX(2727)-JVS(11750)& - &*XX(2728)-JVS(11755)*XX(2729)-JVS(11759)*XX(2730)-JVS(11764)*XX(2731)-JVS(11772)*XX(2732)-JVS(11778)& - &*XX(2733)-JVS(11790)*XX(2735)-JVS(11795)*XX(2736)-JVS(11801)*XX(2737)-JVS(11805)*XX(2738)-JVS(11810)& - &*XX(2739)-JVS(11816)*XX(2740)-JVS(11821)*XX(2741)-JVS(11827)*XX(2742)-JVS(11831)*XX(2743)-JVS(11836)& - &*XX(2744)-JVS(11844)*XX(2745)-JVS(11852)*XX(2746)-JVS(11859)*XX(2747)-JVS(11870)*XX(2749)-JVS(11877)& - &*XX(2750)-JVS(11884)*XX(2751)-JVS(11891)*XX(2752)-JVS(11897)*XX(2753)-JVS(11901)*XX(2754)-JVS(11905)& - &*XX(2755)-JVS(11909)*XX(2756)-JVS(11913)*XX(2757)-JVS(11918)*XX(2758)-JVS(11924)*XX(2759)-JVS(11929)& - &*XX(2760)-JVS(11935)*XX(2761)-JVS(11941)*XX(2762)-JVS(11946)*XX(2763)-JVS(11950)*XX(2764)-JVS(11954)& - &*XX(2765)-JVS(11958)*XX(2766)-JVS(11964)*XX(2767)-JVS(11971)*XX(2768)-JVS(11977)*XX(2769)-JVS(11983)& - &*XX(2770)-JVS(11989)*XX(2771)-JVS(11995)*XX(2772)-JVS(12003)*XX(2773)-JVS(12008)*XX(2774)-JVS(12012)& - &*XX(2775)-JVS(12018)*XX(2776)-JVS(12024)*XX(2777)-JVS(12028)*XX(2778)-JVS(12032)*XX(2779)-JVS(12036)& - &*XX(2780)-JVS(12040)*XX(2781)-JVS(12044)*XX(2782)-JVS(12050)*XX(2783)-JVS(12054)*XX(2784)-JVS(12058)& - &*XX(2785)-JVS(12062)*XX(2786)-JVS(12066)*XX(2787)-JVS(12071)*XX(2788)-JVS(12079)*XX(2789)-JVS(12085)& - &*XX(2790)-JVS(12089)*XX(2791)-JVS(12093)*XX(2792)-JVS(12097)*XX(2793)-JVS(12101)*XX(2794)-JVS(12106)& - &*XX(2795)-JVS(12112)*XX(2796)-JVS(12116)*XX(2797)-JVS(12122)*XX(2798)-JVS(12127)*XX(2799)-JVS(12131)& - &*XX(2800)-JVS(12135)*XX(2801)-JVS(12139)*XX(2802)-JVS(12144)*XX(2803)-JVS(12147)*XX(2804)-JVS(12151)& - &*XX(2805)-JVS(12157)*XX(2806)-JVS(12168)*XX(2808)-JVS(12174)*XX(2809)-JVS(12178)*XX(2810)-JVS(12182)& - &*XX(2811)-JVS(12186)*XX(2812)-JVS(12190)*XX(2813)-JVS(12194)*XX(2814)-JVS(12198)*XX(2815)-JVS(12203)& - &*XX(2816)-JVS(12209)*XX(2817)-JVS(12214)*XX(2818)-JVS(12221)*XX(2819)-JVS(12228)*XX(2820)-JVS(12235)& - &*XX(2821)-JVS(12241)*XX(2822)-JVS(12245)*XX(2823)-JVS(12249)*XX(2824)-JVS(12253)*XX(2825)-JVS(12260)& - &*XX(2826)-JVS(12267)*XX(2827)-JVS(12273)*XX(2828)-JVS(12277)*XX(2829)-JVS(12281)*XX(2830)-JVS(12286)& - &*XX(2831)-JVS(12293)*XX(2832)-JVS(12299)*XX(2833)-JVS(12303)*XX(2834)-JVS(12307)*XX(2835)-JVS(12311)& - &*XX(2836)-JVS(12317)*XX(2837)-JVS(12322)*XX(2838)-JVS(12326)*XX(2839)-JVS(12331)*XX(2840)-JVS(12337)& - &*XX(2841)-JVS(12341)*XX(2842)-JVS(12345)*XX(2843)-JVS(12349)*XX(2844)-JVS(12353)*XX(2845)-JVS(12357)& - &*XX(2846)-JVS(12363)*XX(2847)-JVS(12369)*XX(2848)-JVS(12374)*XX(2849)-JVS(12380)*XX(2850)-JVS(12385)& - &*XX(2851)-JVS(12391)*XX(2852)-JVS(12396)*XX(2853)-JVS(12405)*XX(2854)-JVS(12408)*XX(2855)-JVS(12417)& - &*XX(2856)-JVS(12422)*XX(2857)-JVS(12427)*XX(2858)-JVS(12433)*XX(2859)-JVS(12437)*XX(2860)-JVS(12447)& - &*XX(2862)-JVS(12451)*XX(2863)-JVS(12455)*XX(2864)-JVS(12460)*XX(2865)-JVS(12466)*XX(2866)-JVS(12470)& - &*XX(2867)-JVS(12474)*XX(2868)-JVS(12479)*XX(2869)-JVS(12485)*XX(2870)-JVS(12489)*XX(2871)-JVS(12493)& - &*XX(2872)-JVS(12497)*XX(2873)-JVS(12502)*XX(2874)-JVS(12510)*XX(2875)-JVS(12514)*XX(2876)-JVS(12518)& - &*XX(2877)-JVS(12522)*XX(2878)-JVS(12526)*XX(2879)-JVS(12530)*XX(2880)-JVS(12535)*XX(2881)-JVS(12541)& - &*XX(2882)-JVS(12545)*XX(2883)-JVS(12549)*XX(2884)-JVS(12553)*XX(2885)-JVS(12557)*XX(2886)-JVS(12561)& - &*XX(2887)-JVS(12565)*XX(2888)-JVS(12571)*XX(2889)-JVS(12578)*XX(2890)-JVS(12586)*XX(2891)-JVS(12592)& - &*XX(2892)-JVS(12596)*XX(2893)-JVS(12601)*XX(2894)-JVS(12608)*XX(2895)-JVS(12611)*XX(2896)-JVS(12616)& - &*XX(2897)-JVS(12622)*XX(2898)-JVS(12626)*XX(2899)-JVS(12630)*XX(2900)-JVS(12634)*XX(2901)-JVS(12639)& - &*XX(2902)-JVS(12646)*XX(2903)-JVS(12652)*XX(2904)-JVS(12657)*XX(2905)-JVS(12665)*XX(2906)-JVS(12671)& - &*XX(2907)-JVS(12675)*XX(2908)-JVS(12686)*XX(2909)-JVS(12693)*XX(2910)-JVS(12697)*XX(2911)-JVS(12702)& - &*XX(2912)-JVS(12708)*XX(2913)-JVS(12715)*XX(2914)-JVS(12719)*XX(2915)-JVS(12724)*XX(2916)-JVS(12730)& - &*XX(2917)-JVS(12735)*XX(2918)-JVS(12742)*XX(2919)-JVS(12748)*XX(2920)-JVS(12752)*XX(2921)-JVS(12758)& - &*XX(2922)-JVS(12764)*XX(2923)-JVS(12768)*XX(2924)-JVS(12772)*XX(2925)-JVS(12778)*XX(2926)-JVS(12785)& - &*XX(2927)-JVS(12789)*XX(2928)-JVS(12793)*XX(2929)-JVS(12797)*XX(2930)-JVS(12802)*XX(2931)-JVS(12810)& - &*XX(2932)-JVS(12816)*XX(2933)-JVS(12822)*XX(2934)-JVS(12827)*XX(2935)-JVS(12834)*XX(2936)-JVS(12839)& - &*XX(2937)-JVS(12849)*XX(2938)-JVS(12856)*XX(2939)-JVS(12862)*XX(2940)-JVS(12866)*XX(2941)-JVS(12870)& - &*XX(2942)-JVS(12874)*XX(2943)-JVS(12879)*XX(2944)-JVS(12885)*XX(2945)-JVS(12890)*XX(2946)-JVS(12896)& - &*XX(2947)-JVS(12900)*XX(2948)-JVS(12906)*XX(2949)-JVS(12912)*XX(2950)-JVS(12916)*XX(2951)-JVS(12921)& - &*XX(2952)-JVS(12930)*XX(2953)-JVS(12938)*XX(2954)-JVS(12944)*XX(2955)-JVS(12948)*XX(2956)-JVS(12952)& - &*XX(2957)-JVS(12956)*XX(2958)-JVS(12961)*XX(2959)-JVS(12968)*XX(2960)-JVS(12975)*XX(2961)-JVS(12982)& - &*XX(2962)-JVS(12989)*XX(2963)-JVS(12995)*XX(2964)-JVS(13005)*XX(2965)-JVS(13011)*XX(2966)-JVS(13017)& - &*XX(2967)-JVS(13024)*XX(2968)-JVS(13030)*XX(2969)-JVS(13034)*XX(2970)-JVS(13038)*XX(2971)-JVS(13043)& - &*XX(2972)-JVS(13052)*XX(2973)-JVS(13058)*XX(2974)-JVS(13064)*XX(2975)-JVS(13068)*XX(2976)-JVS(13072)& - &*XX(2977)-JVS(13076)*XX(2978)-JVS(13084)*XX(2979)-JVS(13089)*XX(2980)-JVS(13093)*XX(2981)-JVS(13100)& - &*XX(2982)-JVS(13107)*XX(2983)-JVS(13113)*XX(2984)-JVS(13117)*XX(2985)-JVS(13122)*XX(2986)-JVS(13128)& - &*XX(2987)-JVS(13132)*XX(2988)-JVS(13137)*XX(2989)-JVS(13145)*XX(2990)-JVS(13151)*XX(2991)-JVS(13161)& - &*XX(2993)-JVS(13167)*XX(2994)-JVS(13174)*XX(2995)-JVS(13182)*XX(2996)-JVS(13189)*XX(2997)-JVS(13195)& - &*XX(2998)-JVS(13199)*XX(2999)-JVS(13206)*XX(3000)-JVS(13213)*XX(3001)-JVS(13223)*XX(3003)-JVS(13228)& - &*XX(3004)-JVS(13234)*XX(3005)-JVS(13238)*XX(3006)-JVS(13242)*XX(3007)-JVS(13246)*XX(3008)-JVS(13253)& - &*XX(3009)-JVS(13259)*XX(3010)-JVS(13263)*XX(3011)-JVS(13267)*XX(3012)-JVS(13274)*XX(3013)-JVS(13280)& - &*XX(3014)-JVS(13284)*XX(3015)-JVS(13289)*XX(3016)-JVS(13295)*XX(3017)-JVS(13299)*XX(3018)-JVS(13303)& - &*XX(3019)-JVS(13307)*XX(3020)-JVS(13311)*XX(3021)-JVS(13315)*XX(3022)-JVS(13319)*XX(3023)-JVS(13323)& - &*XX(3024)-JVS(13327)*XX(3025)-JVS(13331)*XX(3026)-JVS(13337)*XX(3027)-JVS(13344)*XX(3028)-JVS(13350)& - &*XX(3029)-JVS(13355)*XX(3030)-JVS(13361)*XX(3031)-JVS(13367)*XX(3032)-JVS(13373)*XX(3033)-JVS(13377)& - &*XX(3034)-JVS(13381)*XX(3035)-JVS(13386)*XX(3036)-JVS(13393)*XX(3037)-JVS(13399)*XX(3038)-JVS(13404)& - &*XX(3039)-JVS(13410)*XX(3040)-JVS(13416)*XX(3041)-JVS(13422)*XX(3042)-JVS(13426)*XX(3043)-JVS(13431)& - &*XX(3044)-JVS(13434)*XX(3045)-JVS(13438)*XX(3046)-JVS(13442)*XX(3047)-JVS(13448)*XX(3048)-JVS(13454)& - &*XX(3049)-JVS(13460)*XX(3050)-JVS(13466)*XX(3051)-JVS(13470)*XX(3052)-JVS(13474)*XX(3053)-JVS(13479)& - &*XX(3054)-JVS(13485)*XX(3055)-JVS(13489)*XX(3056)-JVS(13495)*XX(3057)-JVS(13500)*XX(3058)-JVS(13506)& - &*XX(3059)-JVS(13510)*XX(3060)-JVS(13514)*XX(3061)-JVS(13519)*XX(3062)-JVS(13525)*XX(3063)-JVS(13530)& - &*XX(3064)-JVS(13537)*XX(3065)-JVS(13545)*XX(3066)-JVS(13552)*XX(3067)-JVS(13558)*XX(3068)-JVS(13564)& - &*XX(3069)-JVS(13570)*XX(3070)-JVS(13575)*XX(3071)-JVS(13582)*XX(3072)-JVS(13589)*XX(3073)-JVS(13596)& - &*XX(3074)-JVS(13602)*XX(3075)-JVS(13606)*XX(3076)-JVS(13611)*XX(3077)-JVS(13614)*XX(3078)-JVS(13619)& - &*XX(3079)-JVS(13627)*XX(3080)-JVS(13633)*XX(3081)-JVS(13640)*XX(3082)-JVS(13647)*XX(3083)-JVS(13650)& - &*XX(3084)-JVS(13654)*XX(3085)-JVS(13662)*XX(3086)-JVS(13666)*XX(3087)-JVS(13671)*XX(3088)-JVS(13679)& - &*XX(3089)-JVS(13686)*XX(3090)-JVS(13693)*XX(3091)-JVS(13698)*XX(3092)-JVS(13703)*XX(3093)-JVS(13713)& - &*XX(3095)-JVS(13717)*XX(3096)-JVS(13720)*XX(3097)-JVS(13724)*XX(3098)-JVS(13730)*XX(3099)-JVS(13734)& - &*XX(3100)-JVS(13739)*XX(3101)-JVS(13745)*XX(3102)-JVS(13752)*XX(3103)-JVS(13761)*XX(3104)-JVS(13766)& - &*XX(3105)-JVS(13771)*XX(3106)-JVS(13778)*XX(3107)-JVS(13782)*XX(3108)-JVS(13789)*XX(3109)-JVS(13797)& - &*XX(3110)-JVS(13802)*XX(3111)-JVS(13807)*XX(3112)-JVS(13811)*XX(3113)-JVS(13815)*XX(3114)-JVS(13822)& - &*XX(3115)-JVS(13826)*XX(3116)-JVS(13834)*XX(3117)-JVS(13842)*XX(3118)-JVS(13847)*XX(3119)-JVS(13852)& - &*XX(3120)-JVS(13860)*XX(3121)-JVS(13868)*XX(3122)-JVS(13873)*XX(3123)-JVS(13881)*XX(3124)-JVS(13885)& - &*XX(3125)-JVS(13893)*XX(3126)-JVS(13898)*XX(3127)-JVS(13914)*XX(3128)-JVS(13919)*XX(3129)-JVS(13923)& - &*XX(3130)-JVS(13927)*XX(3131)-JVS(13935)*XX(3132)-JVS(13943)*XX(3134)-JVS(13947)*XX(3135)-JVS(13951)& - &*XX(3136)-JVS(13955)*XX(3137)-JVS(13959)*XX(3138)-JVS(13963)*XX(3139)-JVS(13967)*XX(3140)-JVS(13973)& - &*XX(3141)-JVS(13977)*XX(3142)-JVS(13982)*XX(3143)-JVS(13986)*XX(3144)-JVS(13989)*XX(3145)-JVS(13993)& - &*XX(3146)-JVS(14004)*XX(3148)-JVS(14009)*XX(3149)-JVS(14013)*XX(3150)-JVS(14021)*XX(3151)-JVS(14025)& - &*XX(3152)-JVS(14030)*XX(3153)-JVS(14035)*XX(3154)-JVS(14044)*XX(3156)-JVS(14049)*XX(3157)-JVS(14053)& - &*XX(3158)-JVS(14058)*XX(3159)-JVS(14062)*XX(3160)-JVS(14065)*XX(3161)-JVS(14070)*XX(3162)-JVS(14075)& - &*XX(3163)-JVS(14080)*XX(3164)-JVS(14084)*XX(3165)-JVS(14092)*XX(3166)-JVS(14097)*XX(3167)-JVS(14105)& - &*XX(3168)-JVS(14109)*XX(3169)-JVS(14113)*XX(3170)-JVS(14121)*XX(3171)-JVS(14125)*XX(3172)-JVS(14130)& - &*XX(3173)-JVS(14137)*XX(3174)-JVS(14143)*XX(3175)-JVS(14150)*XX(3176)-JVS(14154)*XX(3177)-JVS(14158)& - &*XX(3178)-JVS(14162)*XX(3179)-JVS(14166)*XX(3180)-JVS(14170)*XX(3181)-JVS(14174)*XX(3182)-JVS(14181)& - &*XX(3183)-JVS(14188)*XX(3184)-JVS(14195)*XX(3185)-JVS(14204)*XX(3187)-JVS(14210)*XX(3188)-JVS(14214)& - &*XX(3189)-JVS(14219)*XX(3190)-JVS(14224)*XX(3191)-JVS(14228)*XX(3192)-JVS(14232)*XX(3193)-JVS(14238)& - &*XX(3194)-JVS(14249)*XX(3195)-JVS(14255)*XX(3196)-JVS(14259)*XX(3197)-JVS(14263)*XX(3198)-JVS(14267)& - &*XX(3199)-JVS(14273)*XX(3200)-JVS(14277)*XX(3201)-JVS(14285)*XX(3203)-JVS(14289)*XX(3204)-JVS(14293)& - &*XX(3205)-JVS(14297)*XX(3206)-JVS(14301)*XX(3207)-JVS(14305)*XX(3208)-JVS(14309)*XX(3209)-JVS(14317)& - &*XX(3211)-JVS(14321)*XX(3212)-JVS(14330)*XX(3213)-JVS(14336)*XX(3214)-JVS(14343)*XX(3215)-JVS(14348)& - &*XX(3216)-JVS(14352)*XX(3217)-JVS(14356)*XX(3218)-JVS(14361)*XX(3219)-JVS(14366)*XX(3220)-JVS(14370)& - &*XX(3221)-JVS(14374)*XX(3222)-JVS(14378)*XX(3223)-JVS(14382)*XX(3224)-JVS(14386)*XX(3225)-JVS(14390)& - &*XX(3226)-JVS(14394)*XX(3227)-JVS(14399)*XX(3228)-JVS(14403)*XX(3229)-JVS(14408)*XX(3230)-JVS(14412)& - &*XX(3231)-JVS(14416)*XX(3232)-JVS(14429)*XX(3233)-JVS(14437)*XX(3234)-JVS(14443)*XX(3235)-JVS(14447)& - &*XX(3236)-JVS(14451)*XX(3237)-JVS(14455)*XX(3238)-JVS(14459)*XX(3239)-JVS(14463)*XX(3240)-JVS(14470)& - &*XX(3241)-JVS(14486)*XX(3242)-JVS(14493)*XX(3243)-JVS(14498)*XX(3244)-JVS(14506)*XX(3245)-JVS(14516)& - &*XX(3246)-JVS(14526)*XX(3247)-JVS(14532)*XX(3248)-JVS(14536)*XX(3249)-JVS(14541)*XX(3250)-JVS(14546)& - &*XX(3251)-JVS(14551)*XX(3252)-JVS(14557)*XX(3253)-JVS(14561)*XX(3254)-JVS(14567)*XX(3255)-JVS(14572)& - &*XX(3256)-JVS(14576)*XX(3257)-JVS(14580)*XX(3258)-JVS(14584)*XX(3259)-JVS(14588)*XX(3260)-JVS(14592)& - &*XX(3261)-JVS(14598)*XX(3262)-JVS(14602)*XX(3263)-JVS(14607)*XX(3264)-JVS(14611)*XX(3265)-JVS(14615)& - &*XX(3266)-JVS(14619)*XX(3267)-JVS(14626)*XX(3268)-JVS(14634)*XX(3269)-JVS(14645)*XX(3270)-JVS(14651)& - &*XX(3271)-JVS(14655)*XX(3272)-JVS(14659)*XX(3273)-JVS(14663)*XX(3274)-JVS(14667)*XX(3275)-JVS(14671)& - &*XX(3276)-JVS(14675)*XX(3277)-JVS(14679)*XX(3278)-JVS(14683)*XX(3279)-JVS(14687)*XX(3280)-JVS(14693)& - &*XX(3281)-JVS(14699)*XX(3282)-JVS(14708)*XX(3283)-JVS(14718)*XX(3284)-JVS(14724)*XX(3285)-JVS(14728)& - &*XX(3286)-JVS(14732)*XX(3287)-JVS(14736)*XX(3288)-JVS(14740)*XX(3289)-JVS(14744)*XX(3290)-JVS(14748)& - &*XX(3291)-JVS(14752)*XX(3292)-JVS(14756)*XX(3293)-JVS(14760)*XX(3294)-JVS(14764)*XX(3295)-JVS(14773)& - &*XX(3296)-JVS(14784)*XX(3298)-JVS(14787)*XX(3299)-JVS(14791)*XX(3300)-JVS(14797)*XX(3301)-JVS(14804)& - &*XX(3302)-JVS(14807)*XX(3303)-JVS(14811)*XX(3304)-JVS(14817)*XX(3305)-JVS(14823)*XX(3306)-JVS(14827)& - &*XX(3307)-JVS(14831)*XX(3308)-JVS(14837)*XX(3309)-JVS(14841)*XX(3310)-JVS(14845)*XX(3311)-JVS(14849)& - &*XX(3312)-JVS(14853)*XX(3313)-JVS(14857)*XX(3314)-JVS(14861)*XX(3315)-JVS(14865)*XX(3316)-JVS(14869)& - &*XX(3317)-JVS(14873)*XX(3318)-JVS(14877)*XX(3319)-JVS(14881)*XX(3320)-JVS(14885)*XX(3321)-JVS(14889)& - &*XX(3322)-JVS(14893)*XX(3323)-JVS(14897)*XX(3324)-JVS(14901)*XX(3325)-JVS(14905)*XX(3326)-JVS(14909)& - &*XX(3327)-JVS(14915)*XX(3328)-JVS(14920)*XX(3329)-JVS(14929)*XX(3330)-JVS(14938)*XX(3331)-JVS(14946)& - &*XX(3332)-JVS(14954)*XX(3333)-JVS(14961)*XX(3334)-JVS(14966)*XX(3335)-JVS(14974)*XX(3336)-JVS(14982)& - &*XX(3337)-JVS(14988)*XX(3338)-JVS(14997)*XX(3339)-JVS(15001)*XX(3340)-JVS(15007)*XX(3341)-JVS(15013)& - &*XX(3342)-JVS(15023)*XX(3343)-JVS(15031)*XX(3344)-JVS(15040)*XX(3345)-JVS(15046)*XX(3346)-JVS(15053)& - &*XX(3347)-JVS(15063)*XX(3348)-JVS(15070)*XX(3349)-JVS(15078)*XX(3350)-JVS(15084)*XX(3351)-JVS(15093)& - &*XX(3352)-JVS(15097)*XX(3353)-JVS(15104)*XX(3354)-JVS(15111)*XX(3355)-JVS(15119)*XX(3356)-JVS(15123)& - &*XX(3357)-JVS(15128)*XX(3358)-JVS(15135)*XX(3359)-JVS(15139)*XX(3360)-JVS(15144)*XX(3361)-JVS(15151)& - &*XX(3362)-JVS(15158)*XX(3363)-JVS(15166)*XX(3364)-JVS(15174)*XX(3365)-JVS(15181)*XX(3366)-JVS(15187)& - &*XX(3367)-JVS(15197)*XX(3368)-JVS(15207)*XX(3369)-JVS(15214)*XX(3370)-JVS(15221)*XX(3371)-JVS(15232)& - &*XX(3372)-JVS(15242)*XX(3373)-JVS(15251)*XX(3374)-JVS(15257)*XX(3375)-JVS(15265)*XX(3376)-JVS(15271)& - &*XX(3377)-JVS(15280)*XX(3378)-JVS(15284)*XX(3379)-JVS(15289)*XX(3380)-JVS(15296)*XX(3381)-JVS(15304)& - &*XX(3382)-JVS(15311)*XX(3383)-JVS(15320)*XX(3384)-JVS(15328)*XX(3385)-JVS(15335)*XX(3386)-JVS(15343)& - &*XX(3387)-JVS(15348)*XX(3388)-JVS(15357)*XX(3389)-JVS(15364)*XX(3390)-JVS(15373)*XX(3391)-JVS(15380)& - &*XX(3392)-JVS(15386)*XX(3393)-JVS(15394)*XX(3394)-JVS(15400)*XX(3395)-JVS(15407)*XX(3396)-JVS(15419)& - &*XX(3397)-JVS(15426)*XX(3398)-JVS(15434)*XX(3399)-JVS(15439)*XX(3400)-JVS(15447)*XX(3401)-JVS(15452)& - &*XX(3402)-JVS(15461)*XX(3403)-JVS(15469)*XX(3404)-JVS(15477)*XX(3405)-JVS(15484)*XX(3406)-JVS(15491)& - &*XX(3407)-JVS(15499)*XX(3408)-JVS(15505)*XX(3409)-JVS(15510)*XX(3410)-JVS(15519)*XX(3411)-JVS(15528)& - &*XX(3412)-JVS(15537)*XX(3413)-JVS(15541)*XX(3414)-JVS(15548)*XX(3415)-JVS(15557)*XX(3416)-JVS(15563)& - &*XX(3417)-JVS(15571)*XX(3418)-JVS(15585)*XX(3420)-JVS(15591)*XX(3421)-JVS(15598)*XX(3422)-JVS(15605)& - &*XX(3423)-JVS(15613)*XX(3424)-JVS(15621)*XX(3425)-JVS(15630)*XX(3426)-JVS(15634)*XX(3427)-JVS(15641)& - &*XX(3428)-JVS(15647)*XX(3429)-JVS(15655)*XX(3430)-JVS(15665)*XX(3431)-JVS(15672)*XX(3432)-JVS(15679)& - &*XX(3433)-JVS(15688)*XX(3434)-JVS(15693)*XX(3435)-JVS(15697)*XX(3436)-JVS(15701)*XX(3437)-JVS(15705)& - &*XX(3438)-JVS(15709)*XX(3439)-JVS(15716)*XX(3440)-JVS(15722)*XX(3441)-JVS(15725)*XX(3442)-JVS(15730)& - &*XX(3443)-JVS(15734)*XX(3444)-JVS(15738)*XX(3445)-JVS(15742)*XX(3446)-JVS(15746)*XX(3447)-JVS(15750)& - &*XX(3448)-JVS(15754)*XX(3449)-JVS(15761)*XX(3450)-JVS(15764)*XX(3451)-JVS(15768)*XX(3452)-JVS(15772)& - &*XX(3453)-JVS(15777)*XX(3454)-JVS(15781)*XX(3455)-JVS(15788)*XX(3456)-JVS(15795)*XX(3457)-JVS(15799)& - &*XX(3458)-JVS(15803)*XX(3459)-JVS(15807)*XX(3460)-JVS(15814)*XX(3461)-JVS(15821)*XX(3462)-JVS(15825)& - &*XX(3463)-JVS(15830)*XX(3464)-JVS(15832)*XX(3465)-JVS(15836)*XX(3466)-JVS(15841)*XX(3467)-JVS(15845)& - &*XX(3468)-JVS(15849)*XX(3469)-JVS(15854)*XX(3470)-JVS(15858)*XX(3471)-JVS(15862)*XX(3472)-JVS(15866)& - &*XX(3473)-JVS(15873)*XX(3474)-JVS(15880)*XX(3475)-JVS(15885)*XX(3476)-JVS(15891)*XX(3477)-JVS(15902)& - &*XX(3478)-JVS(15915)*XX(3480)-JVS(15919)*XX(3481)-JVS(15925)*XX(3482)-JVS(15932)*XX(3483)-JVS(15938)& - &*XX(3484)-JVS(15942)*XX(3485)-JVS(15949)*XX(3486)-JVS(15954)*XX(3487)-JVS(15959)*XX(3488)-JVS(15965)& - &*XX(3489)-JVS(15977)*XX(3491)-JVS(15983)*XX(3492)-JVS(15992)*XX(3493)-JVS(15997)*XX(3494)-JVS(16002)& - &*XX(3495)-JVS(16017)*XX(3497)-JVS(16028)*XX(3498)-JVS(16032)*XX(3499)-JVS(16039)*XX(3500)-JVS(16043)& - &*XX(3501)-JVS(16049)*XX(3502)-JVS(16054)*XX(3503)-JVS(16063)*XX(3504)-JVS(16071)*XX(3505)-JVS(16076)& - &*XX(3506)-JVS(16081)*XX(3507)-JVS(16087)*XX(3508)-JVS(16092)*XX(3509)-JVS(16099)*XX(3510)-JVS(16105)& - &*XX(3511)-JVS(16111)*XX(3512)-JVS(16117)*XX(3513)-JVS(16127)*XX(3514)-JVS(16134)*XX(3515)-JVS(16146)& - &*XX(3516)-JVS(16157)*XX(3517)-JVS(16162)*XX(3518)-JVS(16168)*XX(3519)-JVS(16174)*XX(3520)-JVS(16178)& - &*XX(3521)-JVS(16187)*XX(3522)-JVS(16192)*XX(3523)-JVS(16198)*XX(3524)-JVS(16202)*XX(3525)-JVS(16209)& - &*XX(3526)-JVS(16215)*XX(3527)-JVS(16221)*XX(3528)-JVS(16227)*XX(3529)-JVS(16235)*XX(3530)-JVS(16242)& - &*XX(3531)-JVS(16250)*XX(3532)-JVS(16254)*XX(3533)-JVS(16259)*XX(3534)-JVS(16269)*XX(3535)-JVS(16282)& - &*XX(3536)-JVS(16291)*XX(3537)-JVS(16297)*XX(3538)-JVS(16304)*XX(3539)-JVS(16310)*XX(3540)-JVS(16321)& - &*XX(3541)-JVS(16332)*XX(3542)-JVS(16339)*XX(3543)-JVS(16347)*XX(3544)-JVS(16352)*XX(3545)-JVS(16358)& - &*XX(3546)-JVS(16368)*XX(3547)-JVS(16376)*XX(3548)-JVS(16383)*XX(3549)-JVS(16387)*XX(3550)-JVS(16391)& - &*XX(3551)-JVS(16396)*XX(3552)-JVS(16401)*XX(3553)-JVS(16407)*XX(3554)-JVS(16415)*XX(3555)-JVS(16423)& - &*XX(3556)-JVS(16436)*XX(3557)-JVS(16441)*XX(3558)-JVS(16450)*XX(3559)-JVS(16454)*XX(3560)-JVS(16464)& - &*XX(3561)-JVS(16470)*XX(3562)-JVS(16478)*XX(3563)-JVS(16484)*XX(3564)-JVS(16492)*XX(3565)-JVS(16506)& - &*XX(3567)-JVS(16521)*XX(3569)-JVS(16529)*XX(3570)-JVS(16537)*XX(3571)-JVS(16544)*XX(3572)-JVS(16552)& - &*XX(3573)-JVS(16559)*XX(3574)-JVS(16566)*XX(3575)-JVS(16574)*XX(3576)-JVS(16581)*XX(3577)-JVS(16589)& - &*XX(3578)-JVS(16596)*XX(3579)-JVS(16606)*XX(3580)-JVS(16613)*XX(3581)-JVS(16620)*XX(3582)-JVS(16630)& - &*XX(3583)-JVS(16638)*XX(3584)-JVS(16645)*XX(3585)-JVS(16652)*XX(3586)-JVS(16660)*XX(3587)-JVS(16667)& - &*XX(3588)-JVS(16675)*XX(3589)-JVS(16687)*XX(3590)-JVS(16696)*XX(3591)-JVS(16703)*XX(3592)-JVS(16711)& - &*XX(3593)-JVS(16721)*XX(3594)-JVS(16729)*XX(3595)-JVS(16736)*XX(3596)-JVS(16743)*XX(3597)-JVS(16750)& - &*XX(3598)-JVS(16761)*XX(3599)-JVS(16768)*XX(3600)-JVS(16779)*XX(3601)-JVS(16788)*XX(3602)-JVS(16796)& - &*XX(3603)-JVS(16805)*XX(3604)-JVS(16812)*XX(3605)-JVS(16820)*XX(3606)-JVS(16830)*XX(3607)-JVS(16839)& - &*XX(3608)-JVS(16847)*XX(3609)-JVS(16855)*XX(3610)-JVS(16863)*XX(3611)-JVS(16871)*XX(3612)-JVS(16879)& - &*XX(3613)-JVS(16887)*XX(3614)-JVS(16895)*XX(3615)-JVS(16906)*XX(3616)-JVS(16919)*XX(3617)-JVS(16929)& - &*XX(3618)-JVS(16943)*XX(3619)-JVS(16950)*XX(3620)-JVS(16954)*XX(3621)-JVS(16958)*XX(3622)-JVS(16963)& - &*XX(3623)-JVS(16967)*XX(3624)-JVS(16971)*XX(3625)-JVS(16986)*XX(3626)-JVS(16994)*XX(3627)-JVS(17003)& - &*XX(3628)-JVS(17011)*XX(3629)-JVS(17027)*XX(3631)-JVS(17034)*XX(3632)-JVS(17041)*XX(3633)-JVS(17054)& - &*XX(3635)-JVS(17063)*XX(3637)-JVS(17079)*XX(3638)-JVS(17098)*XX(3639)-JVS(17107)*XX(3640)-JVS(17114)& - &*XX(3641)-JVS(17126)*XX(3642)-JVS(17137)*XX(3643)-JVS(17148)*XX(3644)-JVS(17159)*XX(3645)-JVS(17166)& - &*XX(3646)-JVS(17179)*XX(3648)-JVS(17189)*XX(3649)-JVS(17196)*XX(3650)-JVS(17209)*XX(3651)-JVS(17217)& - &*XX(3652)-JVS(17226)*XX(3653)-JVS(17231)*XX(3654)-JVS(17240)*XX(3655)-JVS(17252)*XX(3656)-JVS(17261)& - &*XX(3657)-JVS(17273)*XX(3659)-JVS(17279)*XX(3660)-JVS(17288)*XX(3661)-JVS(17295)*XX(3662)-JVS(17300)& - &*XX(3663)-JVS(17310)*XX(3664)-JVS(17317)*XX(3665)-JVS(17325)*XX(3666)-JVS(17333)*XX(3667)-JVS(17341)& - &*XX(3668)-JVS(17348)*XX(3669)-JVS(17354)*XX(3670)-JVS(17361)*XX(3671)-JVS(17371)*XX(3672)-JVS(17377)& - &*XX(3673)-JVS(17385)*XX(3674)-JVS(17392)*XX(3675)-JVS(17400)*XX(3676)-JVS(17407)*XX(3677)-JVS(17415)& - &*XX(3678)-JVS(17423)*XX(3679)-JVS(17431)*XX(3680)-JVS(17439)*XX(3681)-JVS(17447)*XX(3682)-JVS(17457)& - &*XX(3683)-JVS(17463)*XX(3684)-JVS(17470)*XX(3685)-JVS(17478)*XX(3686)-JVS(17485)*XX(3687)-JVS(17495)& - &*XX(3688)-JVS(17505)*XX(3689)-JVS(17514)*XX(3690)-JVS(17523)*XX(3691)-JVS(17530)*XX(3692)-JVS(17539)& - &*XX(3693)-JVS(17547)*XX(3694)-JVS(17554)*XX(3695)-JVS(17561)*XX(3696)-JVS(17568)*XX(3697)-JVS(17576)& - &*XX(3698)-JVS(17583)*XX(3699)-JVS(17590)*XX(3700)-JVS(17596)*XX(3701)-JVS(17601)*XX(3702)-JVS(17607)& - &*XX(3703)-JVS(17615)*XX(3704)-JVS(17622)*XX(3705)-JVS(17630)*XX(3706)-JVS(17636)*XX(3707)-JVS(17643)& - &*XX(3708)-JVS(17649)*XX(3709)-JVS(17659)*XX(3710)-JVS(17666)*XX(3711)-JVS(17674)*XX(3712)-JVS(17681)& - &*XX(3713)-JVS(17689)*XX(3714)-JVS(17697)*XX(3715)-JVS(17708)*XX(3716)-JVS(17715)*XX(3717)-JVS(17724)& - &*XX(3718)-JVS(17732)*XX(3719)-JVS(17741)*XX(3720)-JVS(17748)*XX(3721)-JVS(17757)*XX(3722)-JVS(17765)& - &*XX(3723)-JVS(17774)*XX(3724)-JVS(17781)*XX(3725)-JVS(17792)*XX(3726)-JVS(17800)*XX(3727)-JVS(17807)& - &*XX(3728)-JVS(17815)*XX(3729)-JVS(17823)*XX(3730)-JVS(17832)*XX(3731)-JVS(17840)*XX(3732)-JVS(17846)& - &*XX(3733)-JVS(17857)*XX(3734)-JVS(17866)*XX(3735)-JVS(17875)*XX(3736)-JVS(17882)*XX(3737)-JVS(17890)& - &*XX(3738)-JVS(17897)*XX(3739)-JVS(17904)*XX(3740)-JVS(17915)*XX(3741)-JVS(17924)*XX(3742)-JVS(17932)& - &*XX(3743)-JVS(17939)*XX(3744)-JVS(17948)*XX(3745)-JVS(17956)*XX(3746)-JVS(17969)*XX(3747)-JVS(17981)& - &*XX(3748)-JVS(17990)*XX(3749)-JVS(17998)*XX(3750)-JVS(18007)*XX(3751)-JVS(18014)*XX(3752)-JVS(18022)& - &*XX(3753)-JVS(18031)*XX(3754)-JVS(18042)*XX(3755)-JVS(18051)*XX(3756)-JVS(18061)*XX(3757)-JVS(18068)& - &*XX(3758)-JVS(18080)*XX(3759)-JVS(18088)*XX(3760)-JVS(18097)*XX(3761)-JVS(18104)*XX(3762)-JVS(18113)& - &*XX(3763)-JVS(18121)*XX(3764)-JVS(18129)*XX(3765)-JVS(18137)*XX(3766)-JVS(18144)*XX(3767)-JVS(18152)& - &*XX(3768)-JVS(18160)*XX(3769)-JVS(18167)*XX(3770)-JVS(18175)*XX(3771)-JVS(18182)*XX(3772)-JVS(18194)& - &*XX(3773)-JVS(18201)*XX(3774)-JVS(18213)*XX(3775)-JVS(18223)*XX(3776)-JVS(18232)*XX(3777)-JVS(18240)& - &*XX(3778)-JVS(18248)*XX(3779)-JVS(18259)*XX(3780)-JVS(18266)*XX(3781)-JVS(18274)*XX(3782)-JVS(18283)& - &*XX(3783)-JVS(18292)*XX(3784)-JVS(18300)*XX(3785)-JVS(18307)*XX(3786)-JVS(18316)*XX(3787)-JVS(18323)& - &*XX(3788)-JVS(18331)*XX(3789)-JVS(18337)*XX(3790)-JVS(18344)*XX(3791)-JVS(18351)*XX(3792)-JVS(18359)& - &*XX(3793)-JVS(18367)*XX(3794)-JVS(18375)*XX(3795)-JVS(18382)*XX(3796)-JVS(18390)*XX(3797)-JVS(18397)& - &*XX(3798)-JVS(18404)*XX(3799)-JVS(18414)*XX(3800)-JVS(18429)*XX(3802)-JVS(18435)*XX(3803)-JVS(18441)& - &*XX(3804)-JVS(18449)*XX(3805)-JVS(18460)*XX(3807)-JVS(18467)*XX(3808)-JVS(18479)*XX(3809)-JVS(18486)& - &*XX(3810)-JVS(18492)*XX(3811)-JVS(18500)*XX(3812)-JVS(18507)*XX(3813)-JVS(18514)*XX(3814)-JVS(18521)& - &*XX(3815)-JVS(18530)*XX(3816)-JVS(18537)*XX(3817)-JVS(18546)*XX(3818)-JVS(18552)*XX(3819)-JVS(18559)& - &*XX(3820)-JVS(18573)*XX(3821)-JVS(18583)*XX(3822)-JVS(18588)*XX(3823)-JVS(18596)*XX(3824)-JVS(18603)& - &*XX(3825)-JVS(18612)*XX(3826)-JVS(18619)*XX(3827)-JVS(18626)*XX(3828)-JVS(18634)*XX(3829)-JVS(18640)& - &*XX(3830)-JVS(18645)*XX(3831)-JVS(18650)*XX(3832)-JVS(18654)*XX(3833)-JVS(18659)*XX(3834)-JVS(18664)& - &*XX(3835)-JVS(18669)*XX(3836)-JVS(18676)*XX(3837)-JVS(18686)*XX(3838)-JVS(18694)*XX(3839)-JVS(18701)& - &*XX(3840)-JVS(18709)*XX(3841)-JVS(18716)*XX(3842)-JVS(18726)*XX(3843)-JVS(18733)*XX(3844)-JVS(18743)& - &*XX(3845)-JVS(18753)*XX(3846)-JVS(18760)*XX(3847)-JVS(18767)*XX(3848)-JVS(18782)*XX(3849)-JVS(18790)& - &*XX(3850)-JVS(18799)*XX(3851)-JVS(18805)*XX(3852)-JVS(18812)*XX(3853)-JVS(18822)*XX(3854)-JVS(18831)& - &*XX(3855)-JVS(18840)*XX(3856)-JVS(18849)*XX(3857)-JVS(18857)*XX(3858)-JVS(18865)*XX(3859)-JVS(18874)& - &*XX(3860)-JVS(18883)*XX(3861)-JVS(18891)*XX(3862)-JVS(18898)*XX(3863)-JVS(18907)*XX(3864)-JVS(18914)& - &*XX(3865)-JVS(18921)*XX(3866)-JVS(18927)*XX(3867)-JVS(18939)*XX(3868)-JVS(18948)*XX(3869)-JVS(18957)& - &*XX(3870)-JVS(18967)*XX(3871)-JVS(18974)*XX(3872)-JVS(18982)*XX(3873)-JVS(18991)*XX(3874)-JVS(19000)& - &*XX(3875)-JVS(19007)*XX(3876)-JVS(19017)*XX(3877)-JVS(19024)*XX(3878)-JVS(19035)*XX(3879)-JVS(19045)& - &*XX(3880)-JVS(19055)*XX(3881)-JVS(19064)*XX(3882)-JVS(19070)*XX(3883)-JVS(19078)*XX(3884)-JVS(19086)& - &*XX(3885)-JVS(19093)*XX(3886)-JVS(19100)*XX(3887)-JVS(19109)*XX(3888)-JVS(19117)*XX(3889)-JVS(19126)& - &*XX(3890)-JVS(19133)*XX(3891)-JVS(19142)*XX(3892)-JVS(19149)*XX(3893)-JVS(19157)*XX(3894)-JVS(19164)& - &*XX(3895)-JVS(19175)*XX(3896)-JVS(19182)*XX(3897)-JVS(19189)*XX(3898)-JVS(19197)*XX(3899)-JVS(19206)& - &*XX(3900)-JVS(19215)*XX(3901)-JVS(19223)*XX(3902)-JVS(19230)*XX(3903)-JVS(19237)*XX(3904)-JVS(19247)& - &*XX(3905)-JVS(19255)*XX(3906)-JVS(19262)*XX(3907)-JVS(19269)*XX(3908)-JVS(19276)*XX(3909)-JVS(19283)& - &*XX(3910)-JVS(19294)*XX(3911)-JVS(19304)*XX(3912)-JVS(19312)*XX(3913)-JVS(19323)*XX(3914)-JVS(19334)& - &*XX(3915)-JVS(19344)*XX(3916)-JVS(19355)*XX(3917)-JVS(19370)*XX(3918)-JVS(19380)*XX(3919)-JVS(19387)& - &*XX(3920)-JVS(19394)*XX(3921)-JVS(19401)*XX(3922)-JVS(19411)*XX(3923)-JVS(19421)*XX(3924)-JVS(19428)& - &*XX(3925)-JVS(19438)*XX(3926)-JVS(19444)*XX(3927)-JVS(19451)*XX(3928)-JVS(19461)*XX(3929)-JVS(19472)& - &*XX(3930)-JVS(19481)*XX(3931)-JVS(19488)*XX(3932)-JVS(19496)*XX(3933)-JVS(19504)*XX(3934)-JVS(19513)& - &*XX(3935)-JVS(19519)*XX(3936)-JVS(19527)*XX(3937)-JVS(19535)*XX(3938)-JVS(19542)*XX(3939)-JVS(19549)& - &*XX(3940)-JVS(19559)*XX(3941)-JVS(19566)*XX(3942)-JVS(19573)*XX(3943)-JVS(19580)*XX(3944)-JVS(19587)& - &*XX(3945)-JVS(19598)*XX(3946)-JVS(19608)*XX(3947)-JVS(19616)*XX(3948)-JVS(19623)*XX(3949)-JVS(19630)& - &*XX(3950)-JVS(19639)*XX(3951)-JVS(19646)*XX(3952)-JVS(19654)*XX(3953)-JVS(19663)*XX(3954)-JVS(19672)& - &*XX(3955)-JVS(19679)*XX(3956)-JVS(19688)*XX(3957)-JVS(19698)*XX(3958)-JVS(19711)*XX(3959)-JVS(19717)& - &*XX(3960)-JVS(19725)*XX(3961)-JVS(19732)*XX(3962)-JVS(19738)*XX(3963)-JVS(19747)*XX(3964)-JVS(19758)& - &*XX(3965)-JVS(19762)*XX(3966)-JVS(19771)*XX(3967)-JVS(19780)*XX(3968)-JVS(19787)*XX(3969)-JVS(19794)& - &*XX(3970)-JVS(19801)*XX(3971)-JVS(19809)*XX(3972)-JVS(19817)*XX(3973)-JVS(19824)*XX(3974)-JVS(19832)& - &*XX(3975)-JVS(19840)*XX(3976)-JVS(19850)*XX(3977)-JVS(19862)*XX(3978)-JVS(19872)*XX(3979)-JVS(19879)& - &*XX(3980)-JVS(19889)*XX(3981)-JVS(19896)*XX(3982)-JVS(19903)*XX(3983)-JVS(19911)*XX(3984)-JVS(19918)& - &*XX(3985)-JVS(19929)*XX(3986)-JVS(19936)*XX(3987)-JVS(19942)*XX(3988)-JVS(19952)*XX(3989)-JVS(19958)& - &*XX(3990)-JVS(19967)*XX(3991)-JVS(19976)*XX(3992)-JVS(19988)*XX(3993)-JVS(19994)*XX(3994)-JVS(20004)& - &*XX(3995)-JVS(20010)*XX(3996)-JVS(20016)*XX(3997)-JVS(20027)*XX(3998)-JVS(20035)*XX(3999)-JVS(20047)& - &*XX(4000)-JVS(20055)*XX(4001)-JVS(20063)*XX(4002)-JVS(20070)*XX(4003)-JVS(20078)*XX(4004)-JVS(20089)& - &*XX(4005)-JVS(20097)*XX(4006)-JVS(20105)*XX(4007)-JVS(20113)*XX(4008)-JVS(20121)*XX(4009)-JVS(20128)& - &*XX(4010)-JVS(20134)*XX(4011)-JVS(20146)*XX(4012)-JVS(20158)*XX(4013)-JVS(20175)*XX(4014)-JVS(20185)& - &*XX(4015)-JVS(20192)*XX(4016)-JVS(20199)*XX(4017)-JVS(20204)*XX(4018)-JVS(20212)*XX(4019)-JVS(20219)& - &*XX(4020)-JVS(20227)*XX(4021)-JVS(20235)*XX(4022)-JVS(20243)*XX(4023)-JVS(20252)*XX(4024)-JVS(20261)& - &*XX(4025)-JVS(20270)*XX(4026)-JVS(20277)*XX(4027)-JVS(20283)*XX(4028)-JVS(20292)*XX(4029)-JVS(20299)& - &*XX(4030)-JVS(20307)*XX(4031)-JVS(20313)*XX(4032)-JVS(20319)*XX(4033)-JVS(20327)*XX(4034)-JVS(20335)& - &*XX(4035)-JVS(20343)*XX(4036)-JVS(20351)*XX(4037)-JVS(20362)*XX(4038)-JVS(20370)*XX(4039)-JVS(20378)& - &*XX(4040)-JVS(20390)*XX(4041)-JVS(20405)*XX(4042)-JVS(20414)*XX(4043)-JVS(20421)*XX(4044)-JVS(20433)& - &*XX(4045)-JVS(20445)*XX(4046)-JVS(20458)*XX(4047)-JVS(20470)*XX(4048)-JVS(20479)*XX(4049)-JVS(20489)& - &*XX(4050)-JVS(20504)*XX(4051)-JVS(20515)*XX(4052)-JVS(20527)*XX(4053)-JVS(20534)*XX(4054)-JVS(20541)& - &*XX(4055)-JVS(20547)*XX(4056)-JVS(20553)*XX(4057)-JVS(20564)*XX(4058)-JVS(20573)*XX(4059)-JVS(20586)& - &*XX(4060)-JVS(20593)*XX(4061)-JVS(20603)*XX(4062)-JVS(20610)*XX(4063)-JVS(20618)*XX(4064)-JVS(20626)& - &*XX(4065)-JVS(20634)*XX(4066)-JVS(20639)*XX(4067)-JVS(20647)*XX(4068)-JVS(20656)*XX(4069)-JVS(20663)& - &*XX(4070)-JVS(20671)*XX(4071)-JVS(20678)*XX(4072)-JVS(20686)*XX(4073)-JVS(20694)*XX(4074)-JVS(20701)& - &*XX(4075)-JVS(20710)*XX(4076)-JVS(20720)*XX(4077)-JVS(20728)*XX(4078)-JVS(20736)*XX(4079)-JVS(20743)& - &*XX(4080)-JVS(20752)*XX(4081)-JVS(20758)*XX(4082)-JVS(20765)*XX(4083)-JVS(20777)*XX(4084)-JVS(20783)& - &*XX(4085)-JVS(20793)*XX(4086)-JVS(20801)*XX(4087)-JVS(20810)*XX(4088)-JVS(20821)*XX(4089)-JVS(20828)& - &*XX(4090)-JVS(20835)*XX(4091)-JVS(20849)*XX(4092)-JVS(20855)*XX(4093)-JVS(20860)*XX(4094)-JVS(20866)& - &*XX(4095)-JVS(20872)*XX(4096)-JVS(20878)*XX(4097)-JVS(20888)*XX(4098)-JVS(20896)*XX(4099)-JVS(20904)& - &*XX(4100)-JVS(20915)*XX(4101)-JVS(20925)*XX(4102)-JVS(20937)*XX(4103)-JVS(20953)*XX(4104)-JVS(20962)& - &*XX(4105)-JVS(20969)*XX(4106)-JVS(20976)*XX(4107)-JVS(20981)*XX(4108)-JVS(20997)*XX(4109)-JVS(21008)& - &*XX(4110)-JVS(21014)*XX(4111)-JVS(21021)*XX(4112)-JVS(21028)*XX(4113)-JVS(21034)*XX(4114)-JVS(21042)& - &*XX(4115)-JVS(21050)*XX(4116)-JVS(21057)*XX(4117)-JVS(21066)*XX(4118)-JVS(21076)*XX(4119)-JVS(21086)& - &*XX(4120)-JVS(21094)*XX(4121)-JVS(21105)*XX(4122)-JVS(21113)*XX(4123)-JVS(21120)*XX(4124)-JVS(21135)& - &*XX(4125)-JVS(21141)*XX(4126)-JVS(21149)*XX(4127)-JVS(21156)*XX(4128)-JVS(21172)*XX(4130)-JVS(21180)& - &*XX(4131)-JVS(21188)*XX(4132)-JVS(21196)*XX(4133)-JVS(21203)*XX(4134)-JVS(21218)*XX(4136)-JVS(21228)& - &*XX(4137)-JVS(21237)*XX(4138)-JVS(21245)*XX(4139)-JVS(21253)*XX(4140)-JVS(21259)*XX(4141)-JVS(21266)& - &*XX(4142)-JVS(21273)*XX(4143)-JVS(21293)*XX(4146)-JVS(21301)*XX(4147)-JVS(21315)*XX(4149)-JVS(21325)& - &*XX(4150)-JVS(21333)*XX(4151)-JVS(21344)*XX(4152)-JVS(21352)*XX(4153)-JVS(21364)*XX(4154)-JVS(21373)& - &*XX(4155)-JVS(21380)*XX(4156)-JVS(21389)*XX(4157)-JVS(21397)*XX(4158)-JVS(21403)*XX(4159)-JVS(21411)& - &*XX(4160)-JVS(21419)*XX(4161)-JVS(21428)*XX(4162)-JVS(21436)*XX(4163)-JVS(21447)*XX(4164)-JVS(21453)& - &*XX(4165)-JVS(21461)*XX(4166)-JVS(21468)*XX(4167)-JVS(21477)*XX(4168)-JVS(21488)*XX(4169)-JVS(21497)& - &*XX(4170)-JVS(21504)*XX(4171)-JVS(21513)*XX(4172)-JVS(21522)*XX(4173)-JVS(21530)*XX(4174)-JVS(21544)& - &*XX(4175)-JVS(21561)*XX(4177)-JVS(21572)*XX(4178)-JVS(21583)*XX(4179)-JVS(21590)*XX(4180)-JVS(21605)& - &*XX(4181)-JVS(21616)*XX(4182)-JVS(21632)*XX(4183)-JVS(21640)*XX(4184)-JVS(21648)*XX(4185)-JVS(21660)& - &*XX(4186)-JVS(21668)*XX(4187)-JVS(21678)*XX(4188)-JVS(21689)*XX(4189)-JVS(21698)*XX(4190)-JVS(21706)& - &*XX(4191)-JVS(21714)*XX(4192)-JVS(21723)*XX(4193)-JVS(21732)*XX(4194)-JVS(21741)*XX(4195)-JVS(21754)& - &*XX(4196)-JVS(21764)*XX(4197)-JVS(21772)*XX(4198)-JVS(21786)*XX(4199)-JVS(21795)*XX(4200)-JVS(21804)& - &*XX(4201)-JVS(21815)*XX(4202)-JVS(21825)*XX(4203)-JVS(21834)*XX(4204)-JVS(21843)*XX(4205)-JVS(21852)& - &*XX(4206)-JVS(21862)*XX(4207)-JVS(21873)*XX(4208)-JVS(21882)*XX(4209)-JVS(21891)*XX(4210)-JVS(21902)& - &*XX(4211)-JVS(21910)*XX(4212)-JVS(21930)*XX(4214)-JVS(21939)*XX(4215)-JVS(21953)*XX(4216)-JVS(21962)& - &*XX(4217)-JVS(21974)*XX(4218)-JVS(21987)*XX(4219)-JVS(21999)*XX(4220)-JVS(22012)*XX(4221)-JVS(22022)& - &*XX(4222)-JVS(22035)*XX(4223)-JVS(22045)*XX(4224)-JVS(22054)*XX(4225)-JVS(22067)*XX(4226)-JVS(22077)& - &*XX(4227)-JVS(22088)*XX(4228)-JVS(22098)*XX(4229)-JVS(22108)*XX(4230)-JVS(22121)*XX(4231)-JVS(22129)& - &*XX(4232)-JVS(22139)*XX(4233)-JVS(22150)*XX(4234)-JVS(22161)*XX(4235)-JVS(22169)*XX(4236)-JVS(22178)& - &*XX(4237)-JVS(22189)*XX(4238)-JVS(22202)*XX(4239)-JVS(22210)*XX(4240)-JVS(22223)*XX(4241)-JVS(22232)& - &*XX(4242)-JVS(22242)*XX(4243)-JVS(22252)*XX(4244)-JVS(22260)*XX(4245)-JVS(22269)*XX(4246)-JVS(22296)& - &*XX(4248)-JVS(22303)*XX(4249)-JVS(22323)*XX(4251)-JVS(22331)*XX(4252)-JVS(22344)*XX(4253)-JVS(22355)& - &*XX(4254)-JVS(22363)*XX(4255)-JVS(22375)*XX(4256)-JVS(22384)*XX(4257)-JVS(22401)*XX(4259)-JVS(22411)& - &*XX(4260)-JVS(22424)*XX(4261)-JVS(22432)*XX(4262)-JVS(22444)*XX(4263)-JVS(22460)*XX(4265)-JVS(22470)& - &*XX(4266)-JVS(22481)*XX(4267)-JVS(22491)*XX(4268)-JVS(22500)*XX(4269)-JVS(22511)*XX(4270)-JVS(22519)& - &*XX(4271)-JVS(22526)*XX(4272)-JVS(22533)*XX(4273)-JVS(22544)*XX(4274)-JVS(22552)*XX(4275)-JVS(22561)& - &*XX(4276)-JVS(22572)*XX(4277)-JVS(22588)*XX(4278)-JVS(22599)*XX(4279)-JVS(22607)*XX(4280)-JVS(22616)& - &*XX(4281)-JVS(22633)*XX(4283)-JVS(22644)*XX(4284)-JVS(22652)*XX(4285)-JVS(22669)*XX(4287)-JVS(22678)& - &*XX(4288)-JVS(22687)*XX(4289)-JVS(22700)*XX(4290)-JVS(22709)*XX(4291)-JVS(22718)*XX(4292)-JVS(22727)& - &*XX(4293)-JVS(22750)*XX(4294)-JVS(22763)*XX(4295)-JVS(22772)*XX(4296)-JVS(22781)*XX(4297)-JVS(22790)& - &*XX(4298)-JVS(22803)*XX(4299)-JVS(22816)*XX(4300)-JVS(22825)*XX(4301)-JVS(22842)*XX(4303)-JVS(22851)& - &*XX(4304)-JVS(22860)*XX(4305)-JVS(22869)*XX(4306)-JVS(22878)*XX(4307)-JVS(22891)*XX(4308)-JVS(22902)& - &*XX(4309)-JVS(22914)*XX(4310)-JVS(22924)*XX(4311)-JVS(22933)*XX(4312)-JVS(22949)*XX(4313)-JVS(22957)& - &*XX(4314)-JVS(22969)*XX(4315)-JVS(22980)*XX(4316)-JVS(22989)*XX(4317)-JVS(22999)*XX(4318)-JVS(23011)& - &*XX(4319)-JVS(23037)*XX(4322)-JVS(23045)*XX(4323)-JVS(23057)*XX(4324)-JVS(23072)*XX(4325)-JVS(23084)& - &*XX(4326)-JVS(23092)*XX(4327)-JVS(23102)*XX(4328)-JVS(23116)*XX(4329)-JVS(23123)*XX(4330)-JVS(23147)& - &*XX(4331)-JVS(23153)*XX(4332)-JVS(23164)*XX(4333)-JVS(23170)*XX(4334)-JVS(23177)*XX(4335)-JVS(23186)& - &*XX(4336)-JVS(23193)*XX(4337)-JVS(23201)*XX(4338)-JVS(23208)*XX(4339)-JVS(23217)*XX(4340)-JVS(23223)& - &*XX(4341)-JVS(23231)*XX(4342)-JVS(23240)*XX(4343)-JVS(23250)*XX(4344)-JVS(23259)*XX(4345)-JVS(23267)& - &*XX(4346)-JVS(23274)*XX(4347)-JVS(23282)*XX(4348)-JVS(23290)*XX(4349)-JVS(23299)*XX(4350)-JVS(23306)& - &*XX(4351)-JVS(23319)*XX(4352)-JVS(23327)*XX(4353)-JVS(23334)*XX(4354)-JVS(23342)*XX(4355)-JVS(23350)& - &*XX(4356)-JVS(23357)*XX(4357)-JVS(23364)*XX(4358)-JVS(23372)*XX(4359)-JVS(23382)*XX(4360)-JVS(23390)& - &*XX(4361)-JVS(23398)*XX(4362)-JVS(23407)*XX(4363)-JVS(23414)*XX(4364)-JVS(23425)*XX(4365)-JVS(23448)& - &*XX(4366)-JVS(23457)*XX(4367)-JVS(23464)*XX(4368)-JVS(23472)*XX(4369)-JVS(23479)*XX(4370)-JVS(23486)& - &*XX(4371)-JVS(23492)*XX(4372)-JVS(23502)*XX(4373)-JVS(23511)*XX(4374)-JVS(23519)*XX(4375)-JVS(23532)& - &*XX(4376)-JVS(23540)*XX(4377)-JVS(23550)*XX(4378)-JVS(23557)*XX(4379)-JVS(23565)*XX(4380)-JVS(23574)& - &*XX(4381)-JVS(23580)*XX(4382)-JVS(23594)*XX(4383)-JVS(23603)*XX(4384)-JVS(23614)*XX(4385)-JVS(23629)& - &*XX(4386)-JVS(23636)*XX(4387)-JVS(23645)*XX(4388)-JVS(23654)*XX(4389)-JVS(23662)*XX(4390)-JVS(23678)& - &*XX(4391)-JVS(23698)*XX(4392)-JVS(23707)*XX(4393)-JVS(23717)*XX(4394)-JVS(23722)*XX(4395)-JVS(23729)& - &*XX(4396)-JVS(23736)*XX(4397)-JVS(23749)*XX(4398)-JVS(23758)*XX(4399)-JVS(23766)*XX(4400)-JVS(23779)& - &*XX(4401)-JVS(23788)*XX(4402)-JVS(23834)*XX(4403)-JVS(23846)*XX(4404)-JVS(23855)*XX(4405)-JVS(23866)& - &*XX(4406)-JVS(23875)*XX(4407)-JVS(23885)*XX(4408)-JVS(23896)*XX(4409)-JVS(23907)*XX(4410)-JVS(23919)& - &*XX(4411)-JVS(23928)*XX(4412)-JVS(23937)*XX(4413)-JVS(23947)*XX(4414)-JVS(23956)*XX(4415)-JVS(23965)& - &*XX(4416)-JVS(23977)*XX(4417)-JVS(23988)*XX(4418)-JVS(23999)*XX(4419)-JVS(24011)*XX(4420)-JVS(24023)& - &*XX(4421)-JVS(24031)*XX(4422)-JVS(24047)*XX(4423)-JVS(24056)*XX(4424)-JVS(24065)*XX(4425)-JVS(24084)& - &*XX(4426)-JVS(24094)*XX(4427)-JVS(24103)*XX(4428)-JVS(24115)*XX(4429)-JVS(24126)*XX(4430)-JVS(24138)& - &*XX(4431)-JVS(24148)*XX(4432)-JVS(24158)*XX(4433)-JVS(24167)*XX(4434)-JVS(24179)*XX(4435)-JVS(24187)& - &*XX(4436)-JVS(24196)*XX(4437)-JVS(24206)*XX(4438)-JVS(24217)*XX(4439)-JVS(24226)*XX(4440)-JVS(24239)& - &*XX(4441)-JVS(24252)*XX(4442)-JVS(24264)*XX(4443)-JVS(24273)*XX(4444)-JVS(24284)*XX(4445)-JVS(24294)& - &*XX(4446)-JVS(24304)*XX(4447)-JVS(24316)*XX(4448)-JVS(24329)*XX(4449)-JVS(24341)*XX(4450)-JVS(24350)& - &*XX(4451)-JVS(24360)*XX(4452)-JVS(24369)*XX(4453)-JVS(24379)*XX(4454)-JVS(24389)*XX(4455)-JVS(24399)& - &*XX(4456)-JVS(24408)*XX(4457)-JVS(24418)*XX(4458)-JVS(24428)*XX(4459)-JVS(24438)*XX(4460)-JVS(24450)& - &*XX(4461)-JVS(24460)*XX(4462)-JVS(24467)*XX(4463)-JVS(24476)*XX(4464)-JVS(24487)*XX(4465)-JVS(24495)& - &*XX(4466)-JVS(24505)*XX(4467)-JVS(24515)*XX(4468)-JVS(24525)*XX(4469)-JVS(24535)*XX(4470)-JVS(24544)& - &*XX(4471)-JVS(24554)*XX(4472)-JVS(24564)*XX(4473)-JVS(24569)*XX(4474)-JVS(24573)*XX(4475)-JVS(24580)& - &*XX(4476)-JVS(24593)*XX(4477)-JVS(24603)*XX(4478)-JVS(24613)*XX(4479)-JVS(24623)*XX(4480)-JVS(24635)& - &*XX(4481)-JVS(24655)*XX(4482)-JVS(24667)*XX(4483)-JVS(24677)*XX(4484)-JVS(24692)*XX(4485)-JVS(24704)& - &*XX(4486)-JVS(24713)*XX(4487)-JVS(24726)*XX(4488)-JVS(24737)*XX(4489)-JVS(24754)*XX(4490)-JVS(24773)& - &*XX(4491)-JVS(24779)*XX(4492)-JVS(24802)*XX(4493)-JVS(24811)*XX(4494)-JVS(24821)*XX(4495)-JVS(24832)& - &*XX(4496)-JVS(24845)*XX(4497)-JVS(24854)*XX(4498)-JVS(24863)*XX(4499)-JVS(24873)*XX(4500)-JVS(24887)& - &*XX(4501)-JVS(24896)*XX(4502)-JVS(24907)*XX(4503)-JVS(24916)*XX(4504)-JVS(24926)*XX(4505)-JVS(24933)& - &*XX(4506)-JVS(25009)*XX(4507)-JVS(25016)*XX(4508)-JVS(25023)*XX(4509)-JVS(25037)*XX(4510)-JVS(25045)& - &*XX(4511)-JVS(25051)*XX(4512)-JVS(25059)*XX(4513)-JVS(25068)*XX(4514)-JVS(25079)*XX(4515)-JVS(25088)& - &*XX(4516)-JVS(25098)*XX(4517)-JVS(25108)*XX(4518)-JVS(25119)*XX(4519)-JVS(25129)*XX(4520)-JVS(25141)& - &*XX(4521)-JVS(25151)*XX(4522)-JVS(25161)*XX(4523)-JVS(25178)*XX(4524)-JVS(25190)*XX(4525)-JVS(25204)& - &*XX(4527)-JVS(25220)*XX(4528)-JVS(25226)*XX(4529)-JVS(25236)*XX(4530)-JVS(25245)*XX(4531)-JVS(25258)& - &*XX(4532)-JVS(25269)*XX(4533)-JVS(25281)*XX(4534)-JVS(25290)*XX(4535)-JVS(25306)*XX(4536)-JVS(25319)& - &*XX(4537)-JVS(25329)*XX(4538)-JVS(25341)*XX(4539)-JVS(25359)*XX(4540)-JVS(25368)*XX(4541)-JVS(25377)& - &*XX(4542)-JVS(25387)*XX(4543)-JVS(25397)*XX(4544)-JVS(25414)*XX(4545)-JVS(25425)*XX(4546)-JVS(25439)& - &*XX(4547)-JVS(25451)*XX(4548)-JVS(25463)*XX(4549)-JVS(25474)*XX(4550)-JVS(25496)*XX(4552)-JVS(25506)& - &*XX(4553)-JVS(25514)*XX(4554)-JVS(25519)*XX(4555)-JVS(25526)*XX(4556)-JVS(25539)*XX(4557)-JVS(25547)& - &*XX(4558)-JVS(25559)*XX(4559)-JVS(25573)*XX(4560)-JVS(25581)*XX(4561)-JVS(25589)*XX(4562)-JVS(25597)& - &*XX(4563)-JVS(25612)*XX(4564)-JVS(25621)*XX(4565)-JVS(25628)*XX(4566)-JVS(25637)*XX(4567)-JVS(25644)& - &*XX(4568)-JVS(25658)*XX(4569)-JVS(25666)*XX(4570)-JVS(25673)*XX(4571)-JVS(25681)*XX(4572)-JVS(25688)& - &*XX(4573)-JVS(25695)*XX(4574)-JVS(25701)*XX(4575)-JVS(25712)*XX(4576)-JVS(25723)*XX(4577)-JVS(25729)& - &*XX(4578)-JVS(25736)*XX(4579)-JVS(25747)*XX(4580)-JVS(25755)*XX(4581)-JVS(25762)*XX(4582)-JVS(25771)& - &*XX(4583)-JVS(25778)*XX(4584)-JVS(25785)*XX(4585)-JVS(25793)*XX(4586)-JVS(25800)*XX(4587)-JVS(25816)& - &*XX(4588)-JVS(25822)*XX(4589)-JVS(25830)*XX(4590)-JVS(25846)*XX(4591)-JVS(25859)*XX(4592)-JVS(25868)& - &*XX(4593)-JVS(25876)*XX(4594)-JVS(25884)*XX(4595)-JVS(25891)*XX(4596)-JVS(25901)*XX(4597)-JVS(25908)& - &*XX(4598)-JVS(25916)*XX(4599)-JVS(25921)*XX(4600)-JVS(25925)*XX(4601)-JVS(25974)*XX(4602)-JVS(25984)& - &*XX(4603)-JVS(25990)*XX(4604)-JVS(25994)*XX(4605)-JVS(25998)*XX(4606)-JVS(26005)*XX(4607)-JVS(26014)& - &*XX(4608)-JVS(26021)*XX(4609)-JVS(26028)*XX(4610)-JVS(26037)*XX(4611)-JVS(26050)*XX(4612)-JVS(26061)& - &*XX(4613)-JVS(26073)*XX(4614)-JVS(26080)*XX(4615)-JVS(26085)*XX(4616)-JVS(26115)*XX(4618)-JVS(26128)& - &*XX(4619)-JVS(26140)*XX(4620)-JVS(26173)*XX(4622)-JVS(26182)*XX(4623)-JVS(26197)*XX(4624)-JVS(26206)& - &*XX(4625)-JVS(26215)*XX(4626)-JVS(26225)*XX(4627)-JVS(26234)*XX(4628)-JVS(26244)*XX(4629)-JVS(26254)& - &*XX(4630)-JVS(26267)*XX(4631)-JVS(26277)*XX(4632)-JVS(26287)*XX(4633)-JVS(26297)*XX(4634)-JVS(26306)& - &*XX(4635)-JVS(26316)*XX(4636)-JVS(26324)*XX(4637)-JVS(26334)*XX(4638)-JVS(26343)*XX(4639)-JVS(26355)& - &*XX(4640)-JVS(26363)*XX(4641)-JVS(26374)*XX(4642)-JVS(26383)*XX(4643)-JVS(26399)*XX(4644)-JVS(26408)& - &*XX(4645)-JVS(26416)*XX(4646)-JVS(26425)*XX(4647)-JVS(26437)*XX(4648)-JVS(26445)*XX(4649)-JVS(26454)& - &*XX(4650)-JVS(26468)*XX(4651)-JVS(26480)*XX(4652)-JVS(26489)*XX(4653)-JVS(26498)*XX(4654)-JVS(26508)& - &*XX(4655)-JVS(26517)*XX(4656)-JVS(26527)*XX(4657)-JVS(26540)*XX(4658)-JVS(26550)*XX(4659)-JVS(26559)& - &*XX(4660)-JVS(26568)*XX(4661)-JVS(26578)*XX(4662)-JVS(26588)*XX(4663)-JVS(26606)*XX(4664)-JVS(26615)& - &*XX(4665)-JVS(26631)*XX(4666)-JVS(26642)*XX(4667)-JVS(26663)*XX(4669)-JVS(26672)*XX(4670)-JVS(26683)& - &*XX(4671)-JVS(26698)*XX(4672)-JVS(26711)*XX(4673)-JVS(26720)*XX(4674)-JVS(26730)*XX(4675)-JVS(26741)& - &*XX(4676)-JVS(26767)*XX(4679)-JVS(26776)*XX(4680)-JVS(26787)*XX(4681)-JVS(26797)*XX(4682)-JVS(26808)& - &*XX(4683)-JVS(26817)*XX(4684)-JVS(26826)*XX(4685)-JVS(26840)*XX(4686)-JVS(26854)*XX(4687)-JVS(26864)& - &*XX(4688)-JVS(26874)*XX(4689)-JVS(26884)*XX(4690)-JVS(26901)*XX(4692)-JVS(26985)*XX(4693)-JVS(27006)& - &*XX(4694)-JVS(27014)*XX(4695)-JVS(27022)*XX(4696)-JVS(27030)*XX(4697)-JVS(27039)*XX(4698)-JVS(27045)& - &*XX(4699)-JVS(27053)*XX(4700)-JVS(27060)*XX(4701)-JVS(27069)*XX(4702)-JVS(27076)*XX(4703)-JVS(27082)& - &*XX(4704)-JVS(27089)*XX(4705)-JVS(27096)*XX(4706)-JVS(27102)*XX(4707)-JVS(27123)*XX(4708)-JVS(27131)& - &*XX(4709)-JVS(27149)*XX(4710)-JVS(27156)*XX(4711)-JVS(27163)*XX(4712)-JVS(27170)*XX(4713)-JVS(27178)& - &*XX(4714)-JVS(27186)*XX(4715)-JVS(27193)*XX(4716)-JVS(27203)*XX(4717)-JVS(27209)*XX(4718)-JVS(27219)& - &*XX(4719)-JVS(27226)*XX(4720)-JVS(27256)*XX(4721)-JVS(27267)*XX(4722)-JVS(27274)*XX(4723)-JVS(27285)& - &*XX(4724)-JVS(27291)*XX(4725)-JVS(27303)*XX(4726)-JVS(27310)*XX(4727)-JVS(27327)*XX(4728)-JVS(27353)& - &*XX(4729)-JVS(27362)*XX(4730)-JVS(27370)*XX(4731)-JVS(27377)*XX(4732)-JVS(27385)*XX(4733)-JVS(27395)& - &*XX(4734)-JVS(27401)*XX(4735)-JVS(27412)*XX(4736)-JVS(27424)*XX(4737)-JVS(27435)*XX(4738)-JVS(27447)& - &*XX(4739)-JVS(27461)*XX(4740)-JVS(27473)*XX(4741)-JVS(27486)*XX(4742)-JVS(27498)*XX(4743)-JVS(27506)& - &*XX(4744)-JVS(27519)*XX(4745)-JVS(27527)*XX(4746)-JVS(27547)*XX(4747)-JVS(27562)*XX(4748)-JVS(27577)& - &*XX(4749)-JVS(27587)*XX(4750)-JVS(27596)*XX(4751)-JVS(27612)*XX(4752)-JVS(27624)*XX(4753)-JVS(27632)& - &*XX(4754)-JVS(27647)*XX(4755)-JVS(27655)*XX(4756)-JVS(27665)*XX(4757)-JVS(27686)*XX(4759)-JVS(27707)& - &*XX(4760)-JVS(27716)*XX(4761)-JVS(27724)*XX(4762)-JVS(27739)*XX(4763)-JVS(27753)*XX(4764)-JVS(27762)& - &*XX(4765)-JVS(27771)*XX(4766)-JVS(27781)*XX(4767)-JVS(27803)*XX(4768)-JVS(27816)*XX(4769)-JVS(27827)& - &*XX(4770)-JVS(27837)*XX(4771)-JVS(27848)*XX(4772)-JVS(27860)*XX(4773)-JVS(27869)*XX(4774)-JVS(27884)& - &*XX(4775)-JVS(27900)*XX(4777)-JVS(27909)*XX(4778)-JVS(27917)*XX(4779)-JVS(27926)*XX(4780)-JVS(27934)& - &*XX(4781)-JVS(27942)*XX(4782)-JVS(27949)*XX(4783)-JVS(27957)*XX(4784)-JVS(27965)*XX(4785)-JVS(27971)& - &*XX(4786)-JVS(27979)*XX(4787)-JVS(27989)*XX(4788)-JVS(28002)*XX(4789)-JVS(28011)*XX(4790)-JVS(28022)& - &*XX(4791)-JVS(28038)*XX(4792)-JVS(28049)*XX(4793)-JVS(28056)*XX(4794)-JVS(28063)*XX(4795)-JVS(28144)& - &*XX(4796)-JVS(28155)*XX(4797)-JVS(28168)*XX(4798)-JVS(28181)*XX(4799)-JVS(28189)*XX(4800)-JVS(28221)& - &*XX(4801)-JVS(28230)*XX(4802)-JVS(28236)*XX(4803)-JVS(28246)*XX(4804)-JVS(28254)*XX(4805)-JVS(28265)& - &*XX(4806)-JVS(28274)*XX(4807)-JVS(28285)*XX(4808)-JVS(28295)*XX(4809)-JVS(28305)*XX(4810)-JVS(28317)& - &*XX(4811)-JVS(28330)*XX(4812)-JVS(28340)*XX(4813)-JVS(28350)*XX(4814)-JVS(28363)*XX(4815)-JVS(28372)& - &*XX(4816)-JVS(28383)*XX(4817)-JVS(28391)*XX(4818)-JVS(28410)*XX(4820)-JVS(28416)*XX(4821)-JVS(28429)& - &*XX(4822)-JVS(28450)*XX(4823)-JVS(28468)*XX(4825)-JVS(28478)*XX(4826)-JVS(28490)*XX(4827)-JVS(28506)& - &*XX(4829)-JVS(28518)*XX(4830)-JVS(28534)*XX(4831)-JVS(28547)*XX(4832)-JVS(28555)*XX(4833)-JVS(28572)& - &*XX(4834)-JVS(28579)*XX(4835)-JVS(28588)*XX(4836)-JVS(28598)*XX(4837)-JVS(28606)*XX(4838)-JVS(28625)& - &*XX(4839)-JVS(28631)*XX(4840)-JVS(28645)*XX(4841)-JVS(28670)*XX(4842)-JVS(28679)*XX(4843)-JVS(28695)& - &*XX(4844)-JVS(28708)*XX(4845)-JVS(28719)*XX(4846)-JVS(28736)*XX(4847)-JVS(28748)*XX(4848)-JVS(28764)& - &*XX(4849)-JVS(28786)*XX(4850)-JVS(28805)*XX(4851)-JVS(28817)*XX(4852)-JVS(28833)*XX(4853)-JVS(28847)& - &*XX(4854)-JVS(28860)*XX(4855)-JVS(28873)*XX(4856)-JVS(28884)*XX(4857)-JVS(28895)*XX(4858)-JVS(28905)& - &*XX(4859)-JVS(28917)*XX(4860)-JVS(28929)*XX(4861)-JVS(28940)*XX(4862)-JVS(28953)*XX(4863)-JVS(28970)& - &*XX(4864)-JVS(28990)*XX(4865)-JVS(29002)*XX(4866)-JVS(29016)*XX(4867)-JVS(29024)*XX(4868)-JVS(29035)& - &*XX(4869)-JVS(29051)*XX(4870)-JVS(29069)*XX(4871)-JVS(29083)*XX(4872)-JVS(29096)*XX(4873)-JVS(29113)& - &*XX(4874)-JVS(29127)*XX(4875)-JVS(29135)*XX(4876)-JVS(29142)*XX(4877)-JVS(29150)*XX(4878)-JVS(29157)& - &*XX(4879)-JVS(29165)*XX(4880)-JVS(29172)*XX(4881)-JVS(29186)*XX(4882)-JVS(29197)*XX(4883)-JVS(29205)& - &*XX(4884)-JVS(29216)*XX(4885)-JVS(29224)*XX(4886)-JVS(29234)*XX(4887)-JVS(29245)*XX(4888)-JVS(29255)& - &*XX(4889)-JVS(29268)*XX(4890)-JVS(29276)*XX(4891)-JVS(29285)*XX(4892)-JVS(29297)*XX(4893)-JVS(29307)& - &*XX(4894)-JVS(29317)*XX(4895)-JVS(29328)*XX(4896)-JVS(29339)*XX(4897)-JVS(29352)*XX(4898)-JVS(29364)& - &*XX(4899)-JVS(29374)*XX(4900)-JVS(29388)*XX(4901)-JVS(29407)*XX(4902)-JVS(29418)*XX(4903)-JVS(29449)& - &*XX(4904)-JVS(29461)*XX(4905)-JVS(29477)*XX(4907)-JVS(29483)*XX(4908)-JVS(29516)*XX(4909)-JVS(29539)& - &*XX(4910)-JVS(29552)*XX(4911)-JVS(29559)*XX(4912)-JVS(29578)*XX(4913)-JVS(29590)*XX(4914)-JVS(29603)& - &*XX(4915)-JVS(29623)*XX(4916)-JVS(29638)*XX(4917)-JVS(29671)*XX(4918)-JVS(29682)*XX(4919)-JVS(29697)& - &*XX(4920)-JVS(29713)*XX(4921)-JVS(29721)*XX(4922)-JVS(29731)*XX(4923)-JVS(29751)*XX(4924)-JVS(29760)& - &*XX(4925)-JVS(29771)*XX(4926)-JVS(29782)*XX(4927)-JVS(29789)*XX(4928)-JVS(29808)*XX(4929)-JVS(29824)& - &*XX(4930)-JVS(29857)*XX(4931)-JVS(29868)*XX(4932)-JVS(29877)*XX(4933)-JVS(29886)*XX(4934)-JVS(29896)& - &*XX(4935)-JVS(29911)*XX(4936)-JVS(29920)*XX(4937)-JVS(30006)*XX(4938)-JVS(30032)*XX(4939)-JVS(30051)& - &*XX(4940)-JVS(30065)*XX(4941)-JVS(30084)*XX(4942)-JVS(30099)*XX(4943)-JVS(30125)*XX(4944)-JVS(30134)& - &*XX(4945)-JVS(30140)*XX(4946)-JVS(30168)*XX(4947)-JVS(30178)*XX(4948)-JVS(30199)*XX(4949)-JVS(30209)& - &*XX(4950)-JVS(30223)*XX(4951)-JVS(30236)*XX(4952)-JVS(30250)*XX(4953)-JVS(30265)*XX(4954)-JVS(30275)& - &*XX(4955)-JVS(30286)*XX(4956)-JVS(30297)*XX(4957)-JVS(30326)*XX(4958)-JVS(30345)*XX(4959)-JVS(30357)& - &*XX(4960)-JVS(30372)*XX(4961)-JVS(30386)*XX(4962)-JVS(30397)*XX(4963)-JVS(30418)*XX(4964)-JVS(30434)& - &*XX(4965)-JVS(30455)*XX(4966)-JVS(30468)*XX(4967)-JVS(30476)*XX(4968)-JVS(30490)*XX(4969)-JVS(30501)& - &*XX(4970)-JVS(30506)*XX(4971)-JVS(30514)*XX(4972)-JVS(30546)*XX(4973)-JVS(30555)*XX(4974)-JVS(30568)& - &*XX(4975)-JVS(30574)*XX(4976)-JVS(30583)*XX(4977)-JVS(30601)*XX(4978)-JVS(30613)*XX(4979)-JVS(30626)& - &*XX(4980)-JVS(30646)*XX(4981)-JVS(30656)*XX(4982)-JVS(30697)*XX(4983)-JVS(30710)*XX(4984)-JVS(30726)& - &*XX(4985)-JVS(30754)*XX(4986)-JVS(30765)*XX(4987)-JVS(30771)*XX(4988)-JVS(30783)*XX(4989)-JVS(30796)& - &*XX(4990)-JVS(30821)*XX(4991)-JVS(30832)*XX(4992)-JVS(30842)*XX(4993)-JVS(30853)*XX(4994)-JVS(30879)& - &*XX(4995)-JVS(30897)*XX(4996)-JVS(30906)*XX(4997)-JVS(30917)*XX(4998)-JVS(30973)*XX(5000)-JVS(31007)& - &*XX(5001)-JVS(31015)*XX(5002)-JVS(31026)*XX(5003)-JVS(31053)*XX(5004)-JVS(31066)*XX(5005)-JVS(31093)& - &*XX(5006)-JVS(31111)*XX(5007)-JVS(31127)*XX(5008)-JVS(31143)*XX(5009)-JVS(31161)*XX(5010)-JVS(31186)& - &*XX(5011)-JVS(31207)*XX(5012)-JVS(31216)*XX(5013)-JVS(31227)*XX(5014)-JVS(31237)*XX(5015)-JVS(31254)& - &*XX(5016)-JVS(31269)*XX(5017)-JVS(31284)*XX(5018)-JVS(31297)*XX(5019)-JVS(31310)*XX(5020)-JVS(31321)& - &*XX(5021)-JVS(31331)*XX(5022)-JVS(31366)*XX(5023)-JVS(31378)*XX(5024)-JVS(31386)*XX(5025)-JVS(31413)& - &*XX(5026)-JVS(31425)*XX(5027)-JVS(31435)*XX(5028)-JVS(31454)*XX(5029)-JVS(31465)*XX(5030)-JVS(31507)& - &*XX(5031)-JVS(31518)*XX(5032)-JVS(31525)*XX(5033)-JVS(31541)*XX(5034)-JVS(31552)*XX(5035)-JVS(31569)& - &*XX(5036)-JVS(31590)*XX(5037)-JVS(31621)*XX(5038)-JVS(31640)*XX(5039)-JVS(31652)*XX(5040)-JVS(31663)& - &*XX(5041)-JVS(31680)*XX(5042)-JVS(31691)*XX(5043)-JVS(31706)*XX(5044)-JVS(31716)*XX(5045)-JVS(31805)& - &*XX(5046)-JVS(31819)*XX(5047)-JVS(31828)*XX(5048)-JVS(31843)*XX(5049)-JVS(31854)*XX(5050)-JVS(31861)& - &*XX(5051)-JVS(31874)*XX(5052)-JVS(31896)*XX(5053)-JVS(31911)*XX(5054)-JVS(31938)*XX(5055)-JVS(31947)& - &*XX(5056)-JVS(31970)*XX(5057)-JVS(31991)*XX(5058)-JVS(32028)*XX(5059)-JVS(32050)*XX(5060)-JVS(32060)& - &*XX(5061)-JVS(32079)*XX(5062)-JVS(32095)*XX(5063)-JVS(32111)*XX(5064)-JVS(32118)*XX(5065)-JVS(32130)& - &*XX(5066)-JVS(32150)*XX(5067)-JVS(32164)*XX(5068)-JVS(32176)*XX(5069)-JVS(32190)*XX(5070)-JVS(32220)& - &*XX(5071)-JVS(32235)*XX(5072)-JVS(32253)*XX(5073)-JVS(32262)*XX(5074)-JVS(32273)*XX(5075)-JVS(32282)& - &*XX(5076)-JVS(32291)*XX(5077)-JVS(32304)*XX(5078)-JVS(32327)*XX(5079)-JVS(32365)*XX(5080)-JVS(32374)& - &*XX(5081)-JVS(32382)*XX(5082)-JVS(32399)*XX(5083)-JVS(32413)*XX(5084)-JVS(32445)*XX(5085)-JVS(32486)& - &*XX(5086)-JVS(32514)*XX(5087)-JVS(32526)*XX(5088)-JVS(32542)*XX(5089)-JVS(32555)*XX(5090)-JVS(32567)& - &*XX(5091)-JVS(32574)*XX(5092)-JVS(32590)*XX(5093)-JVS(32620)*XX(5094)-JVS(32642)*XX(5095)-JVS(32654)& - &*XX(5096)-JVS(32675)*XX(5097)-JVS(32711)*XX(5098)-JVS(32727)*XX(5099)-JVS(32762)*XX(5100)-JVS(32793)& - &*XX(5101)-JVS(32810)*XX(5102)-JVS(32826)*XX(5103)-JVS(32852)*XX(5104)-JVS(32873)*XX(5105)-JVS(32917)& - &*XX(5106)-JVS(32928)*XX(5107)-JVS(32939)*XX(5108)-JVS(32947)*XX(5109)-JVS(32977)*XX(5110)-JVS(32997)& - &*XX(5111)-JVS(33008)*XX(5112)-JVS(33024)*XX(5113)-JVS(33036)*XX(5114)-JVS(33055)*XX(5115)-JVS(33072)& - &*XX(5116)-JVS(33095)*XX(5117)-JVS(33106)*XX(5118)-JVS(33116)*XX(5119)-JVS(33128)*XX(5120)-JVS(33152)& - &*XX(5121)-JVS(33165)*XX(5122)-JVS(33204)*XX(5123)-JVS(33221)*XX(5124)-JVS(33294)*XX(5125)-JVS(33318)& - &*XX(5126)-JVS(33332)*XX(5127)-JVS(33349)*XX(5128)-JVS(33385)*XX(5129)-JVS(33411)*XX(5130)-JVS(33432)& - &*XX(5131)-JVS(33443)*XX(5132)-JVS(33457)*XX(5133)-JVS(33476)*XX(5134)-JVS(33489)*XX(5135)-JVS(33518)& - &*XX(5136)-JVS(33568)*XX(5137)-JVS(33577)*XX(5138)-JVS(33709)*XX(5139)-JVS(33732)*XX(5140)-JVS(33753)& - &*XX(5141)-JVS(33823)*XX(5142)-JVS(33893)*XX(5143)-JVS(33903)*XX(5144)-JVS(33952)*XX(5145)-JVS(33963)& - &*XX(5146)-JVS(33979)*XX(5147)-JVS(33999)*XX(5148)-JVS(34023)*XX(5149)-JVS(34043)*XX(5150)-JVS(34064)& - &*XX(5151)-JVS(34112)*XX(5152)-JVS(34123)*XX(5153)-JVS(34132)*XX(5154)-JVS(34148)*XX(5155)-JVS(34169)& - &*XX(5156)-JVS(34192)*XX(5157)-JVS(34247)*XX(5158)-JVS(34261)*XX(5159)-JVS(34508)*XX(5160)-JVS(34546)& - &*XX(5161)-JVS(34570)*XX(5162)-JVS(34585)*XX(5163)-JVS(34614)*XX(5164)-JVS(34655)*XX(5165)-JVS(34664)& - &*XX(5166)-JVS(34680)*XX(5167)-JVS(34692)*XX(5168)-JVS(34710)*XX(5169)-JVS(34745)*XX(5170)-JVS(34781)& - &*XX(5171)-JVS(34815)*XX(5172)-JVS(34829)*XX(5173)-JVS(34839)*XX(5174)-JVS(34849)*XX(5175)-JVS(34875)& - &*XX(5176)-JVS(34905)*XX(5177)-JVS(34957)*XX(5178)-JVS(35001)*XX(5179)-JVS(35042)*XX(5180)-JVS(35053)& - &*XX(5181)-JVS(35137)*XX(5182)-JVS(35351)*XX(5183)-JVS(35412)*XX(5184)-JVS(35434)*XX(5185)-JVS(35442)& - &*XX(5186)-JVS(35450)*XX(5187)-JVS(35561)*XX(5188)-JVS(35582)*XX(5189)-JVS(35592)*XX(5190)-JVS(35698)& - &*XX(5191)-JVS(35714)*XX(5192)-JVS(36004)*XX(5193)-JVS(36039)*XX(5194)-JVS(36101)*XX(5195)-JVS(36118)& - &*XX(5196)-JVS(36177)*XX(5197)-JVS(36194)*XX(5198)-JVS(36268)*XX(5199)-JVS(36290)*XX(5200)-JVS(36754)& - &*XX(5201)-JVS(36796)*XX(5202)-JVS(36847)*XX(5203)-JVS(36859)*XX(5204)-JVS(36874)*XX(5205)-JVS(36884)& - &*XX(5206)-JVS(36904)*XX(5207)-JVS(36931)*XX(5208)-JVS(36958)*XX(5209)-JVS(37030)*XX(5210)-JVS(37073)& - &*XX(5211)-JVS(37090)*XX(5212)-JVS(37113)*XX(5213)-JVS(37191)*XX(5214)-JVS(37220)*XX(5215)-JVS(37275)& - &*XX(5216)-JVS(37287)*XX(5217)-JVS(37298)*XX(5218)-JVS(37310)*XX(5219)-JVS(37328)*XX(5220)-JVS(37363)& - &*XX(5221)-JVS(37664)*XX(5222)-JVS(37721)*XX(5223)-JVS(37742)*XX(5224)-JVS(37778)*XX(5225)-JVS(37814)& - &*XX(5226)-JVS(37828)*XX(5227)-JVS(37968)*XX(5228)-JVS(38010)*XX(5229)-JVS(38081)*XX(5230)-JVS(38782)& - &*XX(5231)-JVS(38932)*XX(5232)-JVS(39185)*XX(5233)-JVS(39334)*XX(5234)-JVS(39393)*XX(5235)-JVS(39410)& - &*XX(5236)-JVS(39485)*XX(5237)-JVS(39532)*XX(5238)-JVS(39557)*XX(5239)-JVS(39588)*XX(5240)-JVS(39676)& - &*XX(5241)-JVS(39761)*XX(5242)-JVS(39813)*XX(5243)-JVS(40443)*XX(5244)-JVS(40465)*XX(5245)-JVS(40501)& - &*XX(5246)-JVS(40532)*XX(5247)-JVS(40562)*XX(5248)-JVS(40578)*XX(5249))/(JVS(45056)) - XX(5251) = (X(5251)-JVS(16147)*XX(3516)-JVS(16442)*XX(3558)-JVS(16920)*XX(3617)-JVS(17080)*XX(3638)-JVS(21918)& - &*XX(4213)-JVS(22277)*XX(4247)-JVS(22311)*XX(4250)-JVS(22392)*XX(4258)-JVS(22450)*XX(4264)-JVS(22624)& - &*XX(4282)-JVS(22660)*XX(4286)-JVS(22833)*XX(4302)-JVS(23019)*XX(4320)-JVS(25198)*XX(4526)-JVS(25398)& - &*XX(4544)-JVS(25483)*XX(4551)-JVS(25527)*XX(4556)-JVS(26148)*XX(4621)-JVS(26469)*XX(4651)-JVS(26651)& - &*XX(4668)-JVS(26750)*XX(4677)-JVS(26757)*XX(4678)-JVS(26892)*XX(4691)-JVS(27474)*XX(4741)-JVS(27597)& - &*XX(4751)-JVS(27666)*XX(4757)-JVS(27892)*XX(4776)-JVS(28399)*XX(4819)-JVS(28459)*XX(4824)-JVS(28497)& - &*XX(4828)-JVS(28535)*XX(4831)-JVS(28607)*XX(4838)-JVS(28680)*XX(4843)-JVS(29025)*XX(4868)-JVS(29036)& - &*XX(4869)-JVS(29470)*XX(4906)-JVS(29484)*XX(4908)-JVS(29517)*XX(4909)-JVS(29560)*XX(4912)-JVS(29672)& - &*XX(4918)-JVS(29683)*XX(4919)-JVS(29809)*XX(4929)-JVS(29858)*XX(4931)-JVS(30007)*XX(4938)-JVS(30052)& - &*XX(4940)-JVS(30066)*XX(4941)-JVS(30100)*XX(4943)-JVS(30287)*XX(4956)-JVS(30327)*XX(4958)-JVS(30398)& - &*XX(4963)-JVS(30419)*XX(4964)-JVS(30435)*XX(4965)-JVS(30907)*XX(4997)-JVS(30918)*XX(4998)-JVS(30930)& - &*XX(4999)-JVS(30974)*XX(5000)-JVS(31285)*XX(5018)-JVS(31367)*XX(5023)-JVS(31641)*XX(5039)-JVS(31653)& - &*XX(5040)-JVS(31806)*XX(5046)-JVS(31820)*XX(5047)-JVS(31829)*XX(5048)-JVS(32029)*XX(5059)-JVS(32191)& - &*XX(5070)-JVS(32575)*XX(5092)-JVS(32811)*XX(5102)-JVS(32918)*XX(5106)-JVS(33166)*XX(5122)-JVS(33295)& - &*XX(5125)-JVS(33433)*XX(5131)-JVS(33710)*XX(5139)-JVS(33824)*XX(5142)-JVS(33953)*XX(5145)-JVS(34170)& - &*XX(5156)-JVS(34509)*XX(5160)-JVS(34656)*XX(5165)-JVS(34711)*XX(5169)-JVS(34746)*XX(5170)-JVS(34876)& - &*XX(5176)-JVS(34958)*XX(5178)-JVS(35002)*XX(5179)-JVS(35043)*XX(5180)-JVS(35138)*XX(5182)-JVS(35352)& - &*XX(5183)-JVS(35562)*XX(5188)-JVS(35699)*XX(5191)-JVS(36005)*XX(5193)-JVS(36040)*XX(5194)-JVS(36102)& - &*XX(5195)-JVS(36119)*XX(5196)-JVS(36178)*XX(5197)-JVS(36195)*XX(5198)-JVS(36269)*XX(5199)-JVS(36755)& - &*XX(5201)-JVS(36797)*XX(5202)-JVS(36848)*XX(5203)-JVS(36932)*XX(5208)-JVS(37031)*XX(5210)-JVS(37074)& - &*XX(5211)-JVS(37091)*XX(5212)-JVS(37114)*XX(5213)-JVS(37192)*XX(5214)-JVS(37221)*XX(5215)-JVS(37276)& - &*XX(5216)-JVS(37364)*XX(5221)-JVS(37665)*XX(5222)-JVS(37722)*XX(5223)-JVS(37779)*XX(5225)-JVS(37815)& - &*XX(5226)-JVS(37829)*XX(5227)-JVS(37969)*XX(5228)-JVS(38011)*XX(5229)-JVS(38082)*XX(5230)-JVS(38783)& - &*XX(5231)-JVS(38933)*XX(5232)-JVS(39186)*XX(5233)-JVS(39335)*XX(5234)-JVS(39394)*XX(5235)-JVS(39411)& - &*XX(5236)-JVS(39486)*XX(5237)-JVS(39533)*XX(5238)-JVS(39558)*XX(5239)-JVS(39589)*XX(5240)-JVS(39677)& - &*XX(5241)-JVS(39762)*XX(5242)-JVS(39814)*XX(5243)-JVS(40444)*XX(5244)-JVS(40466)*XX(5245)-JVS(40502)& - &*XX(5246)-JVS(40533)*XX(5247)-JVS(40563)*XX(5248)-JVS(40579)*XX(5249)-JVS(45057)*XX(5250))/(JVS(46582)) - XX(5252) = (X(5252)-JVS(88)*XX(14)-JVS(96)*XX(16)-JVS(125)*XX(25)-JVS(157)*XX(35)-JVS(162)*XX(36)-JVS(182)*XX(42)& - &-JVS(187)*XX(43)-JVS(192)*XX(44)-JVS(197)*XX(45)-JVS(211)*XX(49)-JVS(216)*XX(50)-JVS(221)*XX(51)-JVS(241)& - &*XX(57)-JVS(267)*XX(65)-JVS(272)*XX(66)-JVS(283)*XX(69)-JVS(306)*XX(76)-JVS(314)*XX(78)-JVS(322)*XX(80)& - &-JVS(330)*XX(82)-JVS(350)*XX(88)-JVS(361)*XX(91)-JVS(366)*XX(92)-JVS(380)*XX(96)-JVS(385)*XX(97)-JVS(417)& - &*XX(107)-JVS(437)*XX(113)-JVS(445)*XX(115)-JVS(450)*XX(116)-JVS(455)*XX(117)-JVS(466)*XX(120)-JVS(484)& - &*XX(125)-JVS(501)*XX(130)-JVS(509)*XX(132)-JVS(529)*XX(138)-JVS(537)*XX(140)-JVS(542)*XX(141)-JVS(556)& - &*XX(145)-JVS(561)*XX(146)-JVS(573)*XX(149)-JVS(579)*XX(150)-JVS(585)*XX(151)-JVS(592)*XX(152)-JVS(598)& - &*XX(153)-JVS(604)*XX(154)-JVS(610)*XX(155)-JVS(616)*XX(156)-JVS(622)*XX(157)-JVS(628)*XX(158)-JVS(634)& - &*XX(159)-JVS(640)*XX(160)-JVS(646)*XX(161)-JVS(652)*XX(162)-JVS(659)*XX(163)-JVS(666)*XX(164)-JVS(672)& - &*XX(165)-JVS(678)*XX(166)-JVS(684)*XX(167)-JVS(690)*XX(168)-JVS(697)*XX(169)-JVS(704)*XX(170)-JVS(710)& - &*XX(171)-JVS(716)*XX(172)-JVS(722)*XX(173)-JVS(728)*XX(174)-JVS(734)*XX(175)-JVS(740)*XX(176)-JVS(746)& - &*XX(177)-JVS(752)*XX(178)-JVS(758)*XX(179)-JVS(764)*XX(180)-JVS(772)*XX(182)-JVS(778)*XX(183)-JVS(784)& - &*XX(184)-JVS(790)*XX(185)-JVS(796)*XX(186)-JVS(802)*XX(187)-JVS(808)*XX(188)-JVS(814)*XX(189)-JVS(820)& - &*XX(190)-JVS(826)*XX(191)-JVS(832)*XX(192)-JVS(838)*XX(193)-JVS(844)*XX(194)-JVS(850)*XX(195)-JVS(856)& - &*XX(196)-JVS(862)*XX(197)-JVS(870)*XX(199)-JVS(876)*XX(200)-JVS(882)*XX(201)-JVS(888)*XX(202)-JVS(894)& - &*XX(203)-JVS(901)*XX(204)-JVS(907)*XX(205)-JVS(914)*XX(206)-JVS(936)*XX(211)-JVS(1080)*XX(254)-JVS(1106)& - &*XX(261)-JVS(1141)*XX(271)-JVS(1209)*XX(290)-JVS(1237)*XX(297)-JVS(1250)*XX(300)-JVS(1302)*XX(315)-JVS(1345)& - &*XX(326)-JVS(1382)*XX(337)-JVS(1491)*XX(370)-JVS(1624)*XX(407)-JVS(1673)*XX(421)-JVS(1749)*XX(443)-JVS(1760)& - &*XX(445)-JVS(1781)*XX(450)-JVS(2048)*XX(528)-JVS(2062)*XX(532)-JVS(2067)*XX(533)-JVS(2072)*XX(534)-JVS(2077)& - &*XX(535)-JVS(2085)*XX(537)-JVS(2093)*XX(539)-JVS(2101)*XX(541)-JVS(2112)*XX(544)-JVS(2117)*XX(545)-JVS(2131)& - &*XX(549)-JVS(2136)*XX(550)-JVS(2141)*XX(551)-JVS(2146)*XX(552)-JVS(2151)*XX(553)-JVS(2159)*XX(555)-JVS(2167)& - &*XX(557)-JVS(2194)*XX(564)-JVS(2214)*XX(570)-JVS(2219)*XX(571)-JVS(2227)*XX(573)-JVS(2232)*XX(574)-JVS(2237)& - &*XX(575)-JVS(2259)*XX(581)-JVS(2264)*XX(582)-JVS(2272)*XX(584)-JVS(2277)*XX(585)-JVS(2291)*XX(589)-JVS(2302)& - &*XX(592)-JVS(2317)*XX(595)-JVS(2322)*XX(596)-JVS(2327)*XX(597)-JVS(2338)*XX(600)-JVS(2348)*XX(603)-JVS(2357)& - &*XX(605)-JVS(2378)*XX(610)-JVS(2399)*XX(615)-JVS(2407)*XX(617)-JVS(2412)*XX(618)-JVS(2417)*XX(619)-JVS(2422)& - &*XX(620)-JVS(2433)*XX(623)-JVS(2438)*XX(624)-JVS(2443)*XX(625)-JVS(2459)*XX(629)-JVS(2464)*XX(630)-JVS(2474)& - &*XX(632)-JVS(2485)*XX(635)-JVS(2493)*XX(637)-JVS(2498)*XX(638)-JVS(2503)*XX(639)-JVS(2511)*XX(641)-JVS(2521)& - &*XX(643)-JVS(2526)*XX(644)-JVS(2531)*XX(645)-JVS(2536)*XX(646)-JVS(2544)*XX(648)-JVS(2549)*XX(649)-JVS(2570)& - &*XX(654)-JVS(2575)*XX(655)-JVS(2580)*XX(656)-JVS(2588)*XX(658)-JVS(2596)*XX(660)-JVS(2607)*XX(663)-JVS(2615)& - &*XX(665)-JVS(2620)*XX(666)-JVS(2631)*XX(669)-JVS(2636)*XX(670)-JVS(2644)*XX(672)-JVS(2649)*XX(673)-JVS(2654)& - &*XX(674)-JVS(2673)*XX(679)-JVS(2687)*XX(682)-JVS(2704)*XX(687)-JVS(2709)*XX(688)-JVS(2714)*XX(689)-JVS(2730)& - &*XX(693)-JVS(2738)*XX(695)-JVS(2746)*XX(697)-JVS(2751)*XX(698)-JVS(2770)*XX(703)-JVS(2775)*XX(704)-JVS(2783)& - &*XX(706)-JVS(2793)*XX(708)-JVS(2803)*XX(710)-JVS(2808)*XX(711)-JVS(2813)*XX(712)-JVS(2821)*XX(714)-JVS(2831)& - &*XX(716)-JVS(2836)*XX(717)-JVS(2847)*XX(720)-JVS(2852)*XX(721)-JVS(2857)*XX(722)-JVS(2865)*XX(724)-JVS(2873)& - &*XX(726)-JVS(2878)*XX(727)-JVS(2883)*XX(728)-JVS(2888)*XX(729)-JVS(2893)*XX(730)-JVS(2898)*XX(731)-JVS(2906)& - &*XX(733)-JVS(2911)*XX(734)-JVS(2926)*XX(737)-JVS(2934)*XX(739)-JVS(2939)*XX(740)-JVS(2944)*XX(741)-JVS(2952)& - &*XX(743)-JVS(2957)*XX(744)-JVS(2962)*XX(745)-JVS(2967)*XX(746)-JVS(2972)*XX(747)-JVS(2977)*XX(748)-JVS(2982)& - &*XX(749)-JVS(2987)*XX(750)-JVS(3000)*XX(753)-JVS(3008)*XX(755)-JVS(3013)*XX(756)-JVS(3028)*XX(760)-JVS(3033)& - &*XX(761)-JVS(3047)*XX(765)-JVS(3058)*XX(768)-JVS(3066)*XX(770)-JVS(3077)*XX(773)-JVS(3082)*XX(774)-JVS(3087)& - &*XX(775)-JVS(3092)*XX(776)-JVS(3097)*XX(777)-JVS(3102)*XX(778)-JVS(3110)*XX(780)-JVS(3115)*XX(781)-JVS(3120)& - &*XX(782)-JVS(3125)*XX(783)-JVS(3130)*XX(784)-JVS(3138)*XX(786)-JVS(3143)*XX(787)-JVS(3157)*XX(791)-JVS(3162)& - &*XX(792)-JVS(3173)*XX(795)-JVS(3181)*XX(797)-JVS(3186)*XX(798)-JVS(3194)*XX(800)-JVS(3199)*XX(801)-JVS(3204)& - &*XX(802)-JVS(3224)*XX(808)-JVS(3229)*XX(809)-JVS(3234)*XX(810)-JVS(3248)*XX(814)-JVS(3253)*XX(815)-JVS(3258)& - &*XX(816)-JVS(3263)*XX(817)-JVS(3276)*XX(820)-JVS(3356)*XX(840)-JVS(3616)*XX(905)-JVS(3826)*XX(957)-JVS(3962)& - &*XX(991)-JVS(3998)*XX(1000)-JVS(4018)*XX(1005)-JVS(4041)*XX(1011)-JVS(4050)*XX(1013)-JVS(4102)*XX(1026)& - &-JVS(4228)*XX(1057)-JVS(4232)*XX(1058)-JVS(4324)*XX(1081)-JVS(4332)*XX(1083)-JVS(4606)*XX(1151)-JVS(4690)& - &*XX(1172)-JVS(4866)*XX(1216)-JVS(4963)*XX(1240)-JVS(4987)*XX(1246)-JVS(5141)*XX(1284)-JVS(5249)*XX(1311)& - &-JVS(5289)*XX(1321)-JVS(5341)*XX(1334)-JVS(5388)*XX(1346)-JVS(5606)*XX(1400)-JVS(5934)*XX(1482)-JVS(6125)& - &*XX(1529)-JVS(6133)*XX(1531)-JVS(6215)*XX(1551)-JVS(6220)*XX(1552)-JVS(6226)*XX(1553)-JVS(6239)*XX(1556)& - &-JVS(6251)*XX(1559)-JVS(6266)*XX(1563)-JVS(6272)*XX(1564)-JVS(6291)*XX(1568)-JVS(6307)*XX(1572)-JVS(6318)& - &*XX(1574)-JVS(6337)*XX(1579)-JVS(6357)*XX(1583)-JVS(6388)*XX(1591)-JVS(6393)*XX(1592)-JVS(6399)*XX(1593)& - &-JVS(6408)*XX(1595)-JVS(6417)*XX(1597)-JVS(6450)*XX(1605)-JVS(6458)*XX(1606)-JVS(6466)*XX(1607)-JVS(6474)& - &*XX(1608)-JVS(6498)*XX(1614)-JVS(6507)*XX(1616)-JVS(6514)*XX(1617)-JVS(6528)*XX(1620)-JVS(6539)*XX(1622)& - &-JVS(6550)*XX(1624)-JVS(6563)*XX(1627)-JVS(6576)*XX(1629)-JVS(6585)*XX(1631)-JVS(6597)*XX(1634)-JVS(6612)& - &*XX(1638)-JVS(6622)*XX(1640)-JVS(6642)*XX(1645)-JVS(6662)*XX(1649)-JVS(6667)*XX(1650)-JVS(6677)*XX(1652)& - &-JVS(6688)*XX(1654)-JVS(6704)*XX(1657)-JVS(6723)*XX(1661)-JVS(6729)*XX(1662)-JVS(6735)*XX(1663)-JVS(6750)& - &*XX(1667)-JVS(6778)*XX(1675)-JVS(6789)*XX(1677)-JVS(6798)*XX(1679)-JVS(6805)*XX(1680)-JVS(6821)*XX(1684)& - &-JVS(6841)*XX(1689)-JVS(6852)*XX(1691)-JVS(6858)*XX(1692)-JVS(6870)*XX(1695)-JVS(6890)*XX(1699)-JVS(6902)& - &*XX(1702)-JVS(6934)*XX(1710)-JVS(6950)*XX(1713)-JVS(6958)*XX(1714)-JVS(6965)*XX(1715)-JVS(6983)*XX(1720)& - &-JVS(6989)*XX(1721)-JVS(6999)*XX(1723)-JVS(7005)*XX(1724)-JVS(7011)*XX(1725)-JVS(7021)*XX(1727)-JVS(7045)& - &*XX(1732)-JVS(7068)*XX(1737)-JVS(7082)*XX(1739)-JVS(7092)*XX(1741)-JVS(7101)*XX(1743)-JVS(7111)*XX(1745)& - &-JVS(7123)*XX(1748)-JVS(7128)*XX(1749)-JVS(7135)*XX(1750)-JVS(7144)*XX(1752)-JVS(7155)*XX(1754)-JVS(7163)& - &*XX(1755)-JVS(7187)*XX(1760)-JVS(7216)*XX(1766)-JVS(7228)*XX(1769)-JVS(7237)*XX(1771)-JVS(7241)*XX(1772)& - &-JVS(7247)*XX(1773)-JVS(7275)*XX(1780)-JVS(7281)*XX(1781)-JVS(7288)*XX(1782)-JVS(7301)*XX(1785)-JVS(7305)& - &*XX(1786)-JVS(7309)*XX(1787)-JVS(7314)*XX(1788)-JVS(7321)*XX(1789)-JVS(7339)*XX(1792)-JVS(7349)*XX(1794)& - &-JVS(7359)*XX(1796)-JVS(7369)*XX(1798)-JVS(7375)*XX(1799)-JVS(7381)*XX(1800)-JVS(7396)*XX(1803)-JVS(7419)& - &*XX(1808)-JVS(7428)*XX(1810)-JVS(7433)*XX(1811)-JVS(7440)*XX(1812)-JVS(7446)*XX(1813)-JVS(7452)*XX(1814)& - &-JVS(7458)*XX(1815)-JVS(7474)*XX(1818)-JVS(7480)*XX(1819)-JVS(7486)*XX(1820)-JVS(7494)*XX(1821)-JVS(7502)& - &*XX(1822)-JVS(7508)*XX(1823)-JVS(7512)*XX(1824)-JVS(7516)*XX(1825)-JVS(7527)*XX(1827)-JVS(7536)*XX(1829)& - &-JVS(7544)*XX(1831)-JVS(7556)*XX(1833)-JVS(7566)*XX(1835)-JVS(7580)*XX(1838)-JVS(7594)*XX(1841)-JVS(7615)& - &*XX(1846)-JVS(7621)*XX(1847)-JVS(7627)*XX(1848)-JVS(7647)*XX(1852)-JVS(7664)*XX(1856)-JVS(7682)*XX(1860)& - &-JVS(7700)*XX(1864)-JVS(7706)*XX(1865)-JVS(7712)*XX(1866)-JVS(7719)*XX(1867)-JVS(7745)*XX(1872)-JVS(7765)& - &*XX(1877)-JVS(7782)*XX(1881)-JVS(7786)*XX(1882)-JVS(7791)*XX(1883)-JVS(7815)*XX(1889)-JVS(7823)*XX(1891)& - &-JVS(7828)*XX(1892)-JVS(7839)*XX(1894)-JVS(7843)*XX(1895)-JVS(7847)*XX(1896)-JVS(7871)*XX(1902)-JVS(7877)& - &*XX(1903)-JVS(7883)*XX(1904)-JVS(7887)*XX(1905)-JVS(7893)*XX(1906)-JVS(7907)*XX(1909)-JVS(7913)*XX(1910)& - &-JVS(7923)*XX(1912)-JVS(7938)*XX(1915)-JVS(7949)*XX(1918)-JVS(7953)*XX(1919)-JVS(7961)*XX(1921)-JVS(7965)& - &*XX(1922)-JVS(7971)*XX(1923)-JVS(7977)*XX(1924)-JVS(7990)*XX(1927)-JVS(8003)*XX(1930)-JVS(8009)*XX(1931)& - &-JVS(8019)*XX(1933)-JVS(8050)*XX(1941)-JVS(8056)*XX(1942)-JVS(8066)*XX(1944)-JVS(8073)*XX(1945)-JVS(8079)& - &*XX(1946)-JVS(8099)*XX(1951)-JVS(8104)*XX(1952)-JVS(8114)*XX(1954)-JVS(8118)*XX(1955)-JVS(8128)*XX(1957)& - &-JVS(8139)*XX(1960)-JVS(8146)*XX(1961)-JVS(8155)*XX(1962)-JVS(8161)*XX(1963)-JVS(8165)*XX(1964)-JVS(8169)& - &*XX(1965)-JVS(8177)*XX(1967)-JVS(8196)*XX(1971)-JVS(8202)*XX(1972)-JVS(8210)*XX(1974)-JVS(8217)*XX(1975)& - &-JVS(8224)*XX(1976)-JVS(8229)*XX(1977)-JVS(8233)*XX(1978)-JVS(8241)*XX(1980)-JVS(8260)*XX(1984)-JVS(8272)& - &*XX(1986)-JVS(8278)*XX(1987)-JVS(8288)*XX(1989)-JVS(8314)*XX(1995)-JVS(8318)*XX(1996)-JVS(8328)*XX(1998)& - &-JVS(8341)*XX(2000)-JVS(8359)*XX(2004)-JVS(8364)*XX(2005)-JVS(8373)*XX(2007)-JVS(8377)*XX(2008)-JVS(8391)& - &*XX(2011)-JVS(8395)*XX(2012)-JVS(8403)*XX(2014)-JVS(8409)*XX(2015)-JVS(8431)*XX(2020)-JVS(8436)*XX(2021)& - &-JVS(8445)*XX(2023)-JVS(8449)*XX(2024)-JVS(8470)*XX(2029)-JVS(8477)*XX(2030)-JVS(8485)*XX(2031)-JVS(8491)& - &*XX(2032)-JVS(8498)*XX(2033)-JVS(8504)*XX(2034)-JVS(8511)*XX(2035)-JVS(8522)*XX(2037)-JVS(8534)*XX(2040)& - &-JVS(8540)*XX(2041)-JVS(8557)*XX(2045)-JVS(8573)*XX(2049)-JVS(8579)*XX(2050)-JVS(8609)*XX(2056)-JVS(8629)& - &*XX(2060)-JVS(8635)*XX(2061)-JVS(8643)*XX(2063)-JVS(8655)*XX(2066)-JVS(8661)*XX(2067)-JVS(8681)*XX(2072)& - &-JVS(8687)*XX(2073)-JVS(8693)*XX(2074)-JVS(8697)*XX(2075)-JVS(8703)*XX(2076)-JVS(8709)*XX(2077)-JVS(8713)& - &*XX(2078)-JVS(8717)*XX(2079)-JVS(8733)*XX(2083)-JVS(8741)*XX(2085)-JVS(8746)*XX(2086)-JVS(8750)*XX(2087)& - &-JVS(8756)*XX(2088)-JVS(8766)*XX(2090)-JVS(8775)*XX(2092)-JVS(8783)*XX(2094)-JVS(8792)*XX(2096)-JVS(8796)& - &*XX(2097)-JVS(8804)*XX(2099)-JVS(8810)*XX(2100)-JVS(8836)*XX(2106)-JVS(8844)*XX(2108)-JVS(8860)*XX(2112)& - &-JVS(8865)*XX(2113)-JVS(8881)*XX(2117)-JVS(8905)*XX(2122)-JVS(8911)*XX(2123)-JVS(8915)*XX(2124)-JVS(8931)& - &*XX(2128)-JVS(8937)*XX(2130)-JVS(8964)*XX(2136)-JVS(9004)*XX(2145)-JVS(9020)*XX(2149)-JVS(9046)*XX(2155)& - &-JVS(9054)*XX(2157)-JVS(9058)*XX(2158)-JVS(9071)*XX(2161)-JVS(9075)*XX(2162)-JVS(9082)*XX(2163)-JVS(9088)& - &*XX(2164)-JVS(9092)*XX(2165)-JVS(9104)*XX(2168)-JVS(9108)*XX(2169)-JVS(9112)*XX(2170)-JVS(9121)*XX(2172)& - &-JVS(9127)*XX(2173)-JVS(9163)*XX(2181)-JVS(9167)*XX(2182)-JVS(9176)*XX(2184)-JVS(9180)*XX(2185)-JVS(9184)& - &*XX(2186)-JVS(9197)*XX(2189)-JVS(9204)*XX(2190)-JVS(9218)*XX(2193)-JVS(9222)*XX(2194)-JVS(9226)*XX(2195)& - &-JVS(9230)*XX(2196)-JVS(9239)*XX(2198)-JVS(9243)*XX(2199)-JVS(9247)*XX(2200)-JVS(9252)*XX(2201)-JVS(9257)& - &*XX(2202)-JVS(9261)*XX(2203)-JVS(9274)*XX(2206)-JVS(9281)*XX(2207)-JVS(9297)*XX(2210)-JVS(9309)*XX(2213)& - &-JVS(9317)*XX(2215)-JVS(9321)*XX(2216)-JVS(9329)*XX(2218)-JVS(9337)*XX(2220)-JVS(9346)*XX(2222)-JVS(9354)& - &*XX(2224)-JVS(9365)*XX(2226)-JVS(9379)*XX(2229)-JVS(9394)*XX(2232)-JVS(9402)*XX(2234)-JVS(9415)*XX(2237)& - &-JVS(9419)*XX(2238)-JVS(9424)*XX(2239)-JVS(9432)*XX(2241)-JVS(9436)*XX(2242)-JVS(9448)*XX(2245)-JVS(9452)& - &*XX(2246)-JVS(9464)*XX(2249)-JVS(9469)*XX(2250)-JVS(9481)*XX(2253)-JVS(9485)*XX(2254)-JVS(9494)*XX(2256)& - &-JVS(9498)*XX(2257)-JVS(9513)*XX(2261)-JVS(9542)*XX(2268)-JVS(9550)*XX(2270)-JVS(9554)*XX(2271)-JVS(9573)& - &*XX(2275)-JVS(9578)*XX(2276)-JVS(9582)*XX(2277)-JVS(9587)*XX(2278)-JVS(9591)*XX(2279)-JVS(9596)*XX(2280)& - &-JVS(9604)*XX(2282)-JVS(9615)*XX(2284)-JVS(9621)*XX(2285)-JVS(9628)*XX(2287)-JVS(9634)*XX(2288)-JVS(9646)& - &*XX(2291)-JVS(9657)*XX(2293)-JVS(9673)*XX(2296)-JVS(9678)*XX(2297)-JVS(9686)*XX(2299)-JVS(9698)*XX(2302)& - &-JVS(9702)*XX(2303)-JVS(9708)*XX(2304)-JVS(9718)*XX(2306)-JVS(9725)*XX(2308)-JVS(9730)*XX(2309)-JVS(9738)& - &*XX(2311)-JVS(9746)*XX(2313)-JVS(9764)*XX(2317)-JVS(9780)*XX(2321)-JVS(9786)*XX(2322)-JVS(9792)*XX(2323)& - &-JVS(9799)*XX(2324)-JVS(9805)*XX(2325)-JVS(9810)*XX(2326)-JVS(9816)*XX(2327)-JVS(9820)*XX(2328)-JVS(9828)& - &*XX(2330)-JVS(9836)*XX(2332)-JVS(9840)*XX(2333)-JVS(9846)*XX(2334)-JVS(9859)*XX(2337)-JVS(9863)*XX(2338)& - &-JVS(9876)*XX(2341)-JVS(9885)*XX(2343)-JVS(9899)*XX(2347)-JVS(9911)*XX(2350)-JVS(9919)*XX(2352)-JVS(9928)& - &*XX(2354)-JVS(9938)*XX(2356)-JVS(9959)*XX(2361)-JVS(9978)*XX(2365)-JVS(9987)*XX(2367)-JVS(10000)*XX(2370)& - &-JVS(10008)*XX(2372)-JVS(10018)*XX(2374)-JVS(10024)*XX(2375)-JVS(10028)*XX(2376)-JVS(10042)*XX(2378)& - &-JVS(10064)*XX(2383)-JVS(10079)*XX(2387)-JVS(10129)*XX(2399)-JVS(10147)*XX(2403)-JVS(10155)*XX(2405)& - &-JVS(10159)*XX(2406)-JVS(10167)*XX(2408)-JVS(10198)*XX(2415)-JVS(10212)*XX(2418)-JVS(10216)*XX(2419)& - &-JVS(10247)*XX(2427)-JVS(10259)*XX(2430)-JVS(10268)*XX(2432)-JVS(10273)*XX(2433)-JVS(10285)*XX(2436)& - &-JVS(10307)*XX(2441)-JVS(10319)*XX(2444)-JVS(10332)*XX(2447)-JVS(10356)*XX(2452)-JVS(10362)*XX(2453)& - &-JVS(10381)*XX(2457)-JVS(10387)*XX(2458)-JVS(10391)*XX(2459)-JVS(10399)*XX(2461)-JVS(10403)*XX(2462)& - &-JVS(10418)*XX(2465)-JVS(10459)*XX(2473)-JVS(10490)*XX(2480)-JVS(10533)*XX(2490)-JVS(10544)*XX(2492)& - &-JVS(10552)*XX(2493)-JVS(10563)*XX(2495)-JVS(10594)*XX(2502)-JVS(10614)*XX(2506)-JVS(10624)*XX(2508)& - &-JVS(10630)*XX(2509)-JVS(10644)*XX(2512)-JVS(10650)*XX(2513)-JVS(10654)*XX(2514)-JVS(10663)*XX(2516)& - &-JVS(10677)*XX(2519)-JVS(10687)*XX(2521)-JVS(10701)*XX(2524)-JVS(10710)*XX(2526)-JVS(10723)*XX(2528)& - &-JVS(10741)*XX(2532)-JVS(10749)*XX(2534)-JVS(10754)*XX(2535)-JVS(10761)*XX(2536)-JVS(10777)*XX(2539)& - &-JVS(10791)*XX(2542)-JVS(10805)*XX(2545)-JVS(10828)*XX(2549)-JVS(10835)*XX(2550)-JVS(10842)*XX(2551)& - &-JVS(10860)*XX(2555)-JVS(10869)*XX(2557)-JVS(10888)*XX(2561)-JVS(10897)*XX(2562)-JVS(10905)*XX(2563)& - &-JVS(10919)*XX(2566)-JVS(10957)*XX(2574)-JVS(10964)*XX(2575)-JVS(10975)*XX(2577)-JVS(10982)*XX(2578)& - &-JVS(10997)*XX(2581)-JVS(11020)*XX(2586)-JVS(11031)*XX(2588)-JVS(11040)*XX(2589)-JVS(11051)*XX(2591)& - &-JVS(11059)*XX(2592)-JVS(11071)*XX(2594)-JVS(11079)*XX(2595)-JVS(11086)*XX(2596)-JVS(11097)*XX(2598)& - &-JVS(11104)*XX(2599)-JVS(11127)*XX(2604)-JVS(11133)*XX(2605)-JVS(11142)*XX(2607)-JVS(11156)*XX(2610)& - &-JVS(11174)*XX(2614)-JVS(11204)*XX(2621)-JVS(11213)*XX(2623)-JVS(11227)*XX(2626)-JVS(11239)*XX(2629)& - &-JVS(11262)*XX(2634)-JVS(11283)*XX(2638)-JVS(11290)*XX(2639)-JVS(11301)*XX(2641)-JVS(11310)*XX(2642)& - &-JVS(11323)*XX(2644)-JVS(11337)*XX(2646)-JVS(11345)*XX(2647)-JVS(11371)*XX(2653)-JVS(11397)*XX(2659)& - &-JVS(11407)*XX(2661)-JVS(11413)*XX(2662)-JVS(11423)*XX(2664)-JVS(11437)*XX(2667)-JVS(11444)*XX(2668)& - &-JVS(11462)*XX(2672)-JVS(11466)*XX(2673)-JVS(11479)*XX(2676)-JVS(11494)*XX(2679)-JVS(11511)*XX(2682)& - &-JVS(11533)*XX(2687)-JVS(11554)*XX(2692)-JVS(11565)*XX(2694)-JVS(11582)*XX(2697)-JVS(11594)*XX(2699)& - &-JVS(11604)*XX(2701)-JVS(11625)*XX(2706)-JVS(11632)*XX(2707)-JVS(11648)*XX(2710)-JVS(11664)*XX(2713)& - &-JVS(11681)*XX(2716)-JVS(11687)*XX(2717)-JVS(11702)*XX(2719)-JVS(11708)*XX(2720)-JVS(11720)*XX(2722)& - &-JVS(11731)*XX(2724)-JVS(11751)*XX(2728)-JVS(11765)*XX(2731)-JVS(11773)*XX(2732)-JVS(11779)*XX(2733)& - &-JVS(11786)*XX(2734)-JVS(11796)*XX(2736)-JVS(11811)*XX(2739)-JVS(11822)*XX(2741)-JVS(11828)*XX(2742)& - &-JVS(11837)*XX(2744)-JVS(11845)*XX(2745)-JVS(11853)*XX(2746)-JVS(11860)*XX(2747)-JVS(11871)*XX(2749)& - &-JVS(11878)*XX(2750)-JVS(11885)*XX(2751)-JVS(11892)*XX(2752)-JVS(11919)*XX(2758)-JVS(11925)*XX(2759)& - &-JVS(11930)*XX(2760)-JVS(11936)*XX(2761)-JVS(11942)*XX(2762)-JVS(11951)*XX(2764)-JVS(11965)*XX(2767)& - &-JVS(11972)*XX(2768)-JVS(11984)*XX(2770)-JVS(11990)*XX(2771)-JVS(12004)*XX(2773)-JVS(12019)*XX(2776)& - &-JVS(12045)*XX(2782)-JVS(12072)*XX(2788)-JVS(12080)*XX(2789)-JVS(12107)*XX(2795)-JVS(12123)*XX(2798)& - &-JVS(12140)*XX(2802)-JVS(12158)*XX(2806)-JVS(12164)*XX(2807)-JVS(12187)*XX(2812)-JVS(12195)*XX(2814)& - &-JVS(12204)*XX(2816)-JVS(12210)*XX(2817)-JVS(12215)*XX(2818)-JVS(12222)*XX(2819)-JVS(12229)*XX(2820)& - &-JVS(12236)*XX(2821)-JVS(12261)*XX(2826)-JVS(12268)*XX(2827)-JVS(12287)*XX(2831)-JVS(12294)*XX(2832)& - &-JVS(12304)*XX(2834)-JVS(12308)*XX(2835)-JVS(12318)*XX(2837)-JVS(12327)*XX(2839)-JVS(12332)*XX(2840)& - &-JVS(12364)*XX(2847)-JVS(12375)*XX(2849)-JVS(12386)*XX(2851)-JVS(12397)*XX(2853)-JVS(12409)*XX(2855)& - &-JVS(12418)*XX(2856)-JVS(12428)*XX(2858)-JVS(12443)*XX(2861)-JVS(12461)*XX(2865)-JVS(12480)*XX(2869)& - &-JVS(12503)*XX(2874)-JVS(12536)*XX(2881)-JVS(12566)*XX(2888)-JVS(12572)*XX(2889)-JVS(12579)*XX(2890)& - &-JVS(12587)*XX(2891)-JVS(12593)*XX(2892)-JVS(12602)*XX(2894)-JVS(12617)*XX(2897)-JVS(12640)*XX(2902)& - &-JVS(12647)*XX(2903)-JVS(12658)*XX(2905)-JVS(12666)*XX(2906)-JVS(12676)*XX(2908)-JVS(12687)*XX(2909)& - &-JVS(12703)*XX(2912)-JVS(12709)*XX(2913)-JVS(12725)*XX(2916)-JVS(12731)*XX(2917)-JVS(12736)*XX(2918)& - &-JVS(12743)*XX(2919)-JVS(12759)*XX(2922)-JVS(12779)*XX(2926)-JVS(12803)*XX(2931)-JVS(12817)*XX(2933)& - &-JVS(12823)*XX(2934)-JVS(12828)*XX(2935)-JVS(12840)*XX(2937)-JVS(12850)*XX(2938)-JVS(12857)*XX(2939)& - &-JVS(12871)*XX(2942)-JVS(12875)*XX(2943)-JVS(12880)*XX(2944)-JVS(12891)*XX(2946)-JVS(12907)*XX(2949)& - &-JVS(12922)*XX(2952)-JVS(12931)*XX(2953)-JVS(12939)*XX(2954)-JVS(12962)*XX(2959)-JVS(12969)*XX(2960)& - &-JVS(12976)*XX(2961)-JVS(12983)*XX(2962)-JVS(12990)*XX(2963)-JVS(12996)*XX(2964)-JVS(13006)*XX(2965)& - &-JVS(13012)*XX(2966)-JVS(13018)*XX(2967)-JVS(13025)*XX(2968)-JVS(13044)*XX(2972)-JVS(13059)*XX(2974)& - &-JVS(13085)*XX(2979)-JVS(13101)*XX(2982)-JVS(13108)*XX(2983)-JVS(13123)*XX(2986)-JVS(13138)*XX(2989)& - &-JVS(13146)*XX(2990)-JVS(13157)*XX(2992)-JVS(13168)*XX(2994)-JVS(13175)*XX(2995)-JVS(13183)*XX(2996)& - &-JVS(13190)*XX(2997)-JVS(13200)*XX(2999)-JVS(13207)*XX(3000)-JVS(13214)*XX(3001)-JVS(13219)*XX(3002)& - &-JVS(13229)*XX(3004)-JVS(13254)*XX(3009)-JVS(13275)*XX(3013)-JVS(13285)*XX(3015)-JVS(13290)*XX(3016)& - &-JVS(13338)*XX(3027)-JVS(13345)*XX(3028)-JVS(13356)*XX(3030)-JVS(13368)*XX(3032)-JVS(13378)*XX(3034)& - &-JVS(13387)*XX(3036)-JVS(13394)*XX(3037)-JVS(13405)*XX(3039)-JVS(13417)*XX(3041)-JVS(13449)*XX(3048)& - &-JVS(13461)*XX(3050)-JVS(13480)*XX(3054)-JVS(13501)*XX(3058)-JVS(13520)*XX(3062)-JVS(13531)*XX(3064)& - &-JVS(13538)*XX(3065)-JVS(13546)*XX(3066)-JVS(13553)*XX(3067)-JVS(13559)*XX(3068)-JVS(13565)*XX(3069)& - &-JVS(13576)*XX(3071)-JVS(13583)*XX(3072)-JVS(13590)*XX(3073)-JVS(13597)*XX(3074)-JVS(13607)*XX(3076)& - &-JVS(13620)*XX(3079)-JVS(13628)*XX(3080)-JVS(13634)*XX(3081)-JVS(13641)*XX(3082)-JVS(13680)*XX(3089)& - &-JVS(13694)*XX(3091)-JVS(13709)*XX(3094)-JVS(13746)*XX(3102)-JVS(13753)*XX(3103)-JVS(13762)*XX(3104)& - &-JVS(13772)*XX(3106)-JVS(13783)*XX(3108)-JVS(13790)*XX(3109)-JVS(13798)*XX(3110)-JVS(13835)*XX(3117)& - &-JVS(13843)*XX(3118)-JVS(13861)*XX(3121)-JVS(13869)*XX(3122)-JVS(13894)*XX(3126)-JVS(13915)*XX(3128)& - &-JVS(13974)*XX(3141)-JVS(14005)*XX(3148)-JVS(14045)*XX(3156)-JVS(14059)*XX(3159)-JVS(14093)*XX(3166)& - &-JVS(14106)*XX(3168)-JVS(14131)*XX(3173)-JVS(14138)*XX(3174)-JVS(14144)*XX(3175)-JVS(14155)*XX(3177)& - &-JVS(14211)*XX(3188)-JVS(14239)*XX(3194)-JVS(14250)*XX(3195)-JVS(14322)*XX(3212)-JVS(14331)*XX(3213)& - &-JVS(14344)*XX(3215)-JVS(14430)*XX(3233)-JVS(14438)*XX(3234)-JVS(14464)*XX(3240)-JVS(14471)*XX(3241)& - &-JVS(14487)*XX(3242)-JVS(14507)*XX(3245)-JVS(14517)*XX(3246)-JVS(14527)*XX(3247)-JVS(14552)*XX(3252)& - &-JVS(14568)*XX(3255)-JVS(14608)*XX(3264)-JVS(14627)*XX(3268)-JVS(14635)*XX(3269)-JVS(14646)*XX(3270)& - &-JVS(14652)*XX(3271)-JVS(14660)*XX(3273)-JVS(14694)*XX(3281)-JVS(14709)*XX(3283)-JVS(14719)*XX(3284)& - &-JVS(14725)*XX(3285)-JVS(14774)*XX(3296)-JVS(14798)*XX(3301)-JVS(14812)*XX(3304)-JVS(14818)*XX(3305)& - &-JVS(14890)*XX(3322)-JVS(14921)*XX(3329)-JVS(14930)*XX(3330)-JVS(14939)*XX(3331)-JVS(14947)*XX(3332)& - &-JVS(14955)*XX(3333)-JVS(14967)*XX(3335)-JVS(14989)*XX(3338)-JVS(15002)*XX(3340)-JVS(15014)*XX(3342)& - &-JVS(15024)*XX(3343)-JVS(15032)*XX(3344)-JVS(15041)*XX(3345)-JVS(15047)*XX(3346)-JVS(15054)*XX(3347)& - &-JVS(15085)*XX(3351)-JVS(15098)*XX(3353)-JVS(15124)*XX(3357)-JVS(15140)*XX(3360)-JVS(15145)*XX(3361)& - &-JVS(15152)*XX(3362)-JVS(15159)*XX(3363)-JVS(15188)*XX(3367)-JVS(15198)*XX(3368)-JVS(15208)*XX(3369)& - &-JVS(15215)*XX(3370)-JVS(15222)*XX(3371)-JVS(15233)*XX(3372)-JVS(15243)*XX(3373)-JVS(15252)*XX(3374)& - &-JVS(15258)*XX(3375)-JVS(15272)*XX(3377)-JVS(15285)*XX(3379)-JVS(15290)*XX(3380)-JVS(15297)*XX(3381)& - &-JVS(15305)*XX(3382)-JVS(15312)*XX(3383)-JVS(15321)*XX(3384)-JVS(15336)*XX(3386)-JVS(15349)*XX(3388)& - &-JVS(15358)*XX(3389)-JVS(15365)*XX(3390)-JVS(15374)*XX(3391)-JVS(15387)*XX(3393)-JVS(15395)*XX(3394)& - &-JVS(15401)*XX(3395)-JVS(15408)*XX(3396)-JVS(15420)*XX(3397)-JVS(15427)*XX(3398)-JVS(15440)*XX(3400)& - &-JVS(15453)*XX(3402)-JVS(15462)*XX(3403)-JVS(15470)*XX(3404)-JVS(15478)*XX(3405)-JVS(15485)*XX(3406)& - &-JVS(15492)*XX(3407)-JVS(15511)*XX(3410)-JVS(15520)*XX(3411)-JVS(15529)*XX(3412)-JVS(15542)*XX(3414)& - &-JVS(15549)*XX(3415)-JVS(15558)*XX(3416)-JVS(15564)*XX(3417)-JVS(15576)*XX(3419)-JVS(15586)*XX(3420)& - &-JVS(15592)*XX(3421)-JVS(15599)*XX(3422)-JVS(15606)*XX(3423)-JVS(15614)*XX(3424)-JVS(15622)*XX(3425)& - &-JVS(15635)*XX(3427)-JVS(15648)*XX(3429)-JVS(15656)*XX(3430)-JVS(15666)*XX(3431)-JVS(15680)*XX(3433)& - &-JVS(15694)*XX(3435)-JVS(15706)*XX(3438)-JVS(15710)*XX(3439)-JVS(15717)*XX(3440)-JVS(15731)*XX(3443)& - &-JVS(15739)*XX(3445)-JVS(15747)*XX(3447)-JVS(15789)*XX(3456)-JVS(15796)*XX(3457)-JVS(15808)*XX(3460)& - &-JVS(15815)*XX(3461)-JVS(15874)*XX(3474)-JVS(15903)*XX(3478)-JVS(15920)*XX(3481)-JVS(15950)*XX(3486)& - &-JVS(15966)*XX(3489)-JVS(15972)*XX(3490)-JVS(15978)*XX(3491)-JVS(15984)*XX(3492)-JVS(15993)*XX(3493)& - &-JVS(16006)*XX(3496)-JVS(16018)*XX(3497)-JVS(16055)*XX(3503)-JVS(16064)*XX(3504)-JVS(16072)*XX(3505)& - &-JVS(16082)*XX(3507)-JVS(16093)*XX(3509)-JVS(16106)*XX(3511)-JVS(16128)*XX(3514)-JVS(16148)*XX(3516)& - &-JVS(16163)*XX(3518)-JVS(16175)*XX(3520)-JVS(16179)*XX(3521)-JVS(16188)*XX(3522)-JVS(16193)*XX(3523)& - &-JVS(16203)*XX(3525)-JVS(16216)*XX(3527)-JVS(16236)*XX(3530)-JVS(16243)*XX(3531)-JVS(16255)*XX(3533)& - &-JVS(16260)*XX(3534)-JVS(16270)*XX(3535)-JVS(16283)*XX(3536)-JVS(16292)*XX(3537)-JVS(16298)*XX(3538)& - &-JVS(16305)*XX(3539)-JVS(16322)*XX(3541)-JVS(16333)*XX(3542)-JVS(16348)*XX(3544)-JVS(16369)*XX(3547)& - &-JVS(16377)*XX(3548)-JVS(16384)*XX(3549)-JVS(16408)*XX(3554)-JVS(16424)*XX(3556)-JVS(16437)*XX(3557)& - &-JVS(16443)*XX(3558)-JVS(16465)*XX(3561)-JVS(16471)*XX(3562)-JVS(16485)*XX(3564)-JVS(16493)*XX(3565)& - &-JVS(16500)*XX(3566)-JVS(16507)*XX(3567)-JVS(16512)*XX(3568)-JVS(16522)*XX(3569)-JVS(16530)*XX(3570)& - &-JVS(16538)*XX(3571)-JVS(16545)*XX(3572)-JVS(16553)*XX(3573)-JVS(16560)*XX(3574)-JVS(16567)*XX(3575)& - &-JVS(16575)*XX(3576)-JVS(16582)*XX(3577)-JVS(16590)*XX(3578)-JVS(16597)*XX(3579)-JVS(16607)*XX(3580)& - &-JVS(16614)*XX(3581)-JVS(16621)*XX(3582)-JVS(16631)*XX(3583)-JVS(16639)*XX(3584)-JVS(16646)*XX(3585)& - &-JVS(16653)*XX(3586)-JVS(16661)*XX(3587)-JVS(16668)*XX(3588)-JVS(16676)*XX(3589)-JVS(16697)*XX(3591)& - &-JVS(16704)*XX(3592)-JVS(16712)*XX(3593)-JVS(16722)*XX(3594)-JVS(16730)*XX(3595)-JVS(16737)*XX(3596)& - &-JVS(16744)*XX(3597)-JVS(16751)*XX(3598)-JVS(16762)*XX(3599)-JVS(16769)*XX(3600)-JVS(16780)*XX(3601)& - &-JVS(16789)*XX(3602)-JVS(16797)*XX(3603)-JVS(16813)*XX(3605)-JVS(16821)*XX(3606)-JVS(16831)*XX(3607)& - &-JVS(16848)*XX(3609)-JVS(16856)*XX(3610)-JVS(16864)*XX(3611)-JVS(16872)*XX(3612)-JVS(16880)*XX(3613)& - &-JVS(16888)*XX(3614)-JVS(16896)*XX(3615)-JVS(16907)*XX(3616)-JVS(16921)*XX(3617)-JVS(16944)*XX(3619)& - &-JVS(16987)*XX(3626)-JVS(16995)*XX(3627)-JVS(17012)*XX(3629)-JVS(17028)*XX(3631)-JVS(17035)*XX(3632)& - &-JVS(17046)*XX(3634)-JVS(17058)*XX(3636)-JVS(17064)*XX(3637)-JVS(17081)*XX(3638)-JVS(17108)*XX(3640)& - &-JVS(17115)*XX(3641)-JVS(17127)*XX(3642)-JVS(17138)*XX(3643)-JVS(17149)*XX(3644)-JVS(17160)*XX(3645)& - &-JVS(17180)*XX(3648)-JVS(17190)*XX(3649)-JVS(17197)*XX(3650)-JVS(17218)*XX(3652)-JVS(17227)*XX(3653)& - &-JVS(17241)*XX(3655)-JVS(17253)*XX(3656)-JVS(17262)*XX(3657)-JVS(17267)*XX(3658)-JVS(17274)*XX(3659)& - &-JVS(17289)*XX(3661)-JVS(17301)*XX(3663)-JVS(17311)*XX(3664)-JVS(17318)*XX(3665)-JVS(17326)*XX(3666)& - &-JVS(17334)*XX(3667)-JVS(17342)*XX(3668)-JVS(17349)*XX(3669)-JVS(17355)*XX(3670)-JVS(17362)*XX(3671)& - &-JVS(17378)*XX(3673)-JVS(17386)*XX(3674)-JVS(17393)*XX(3675)-JVS(17401)*XX(3676)-JVS(17408)*XX(3677)& - &-JVS(17416)*XX(3678)-JVS(17424)*XX(3679)-JVS(17432)*XX(3680)-JVS(17440)*XX(3681)-JVS(17448)*XX(3682)& - &-JVS(17458)*XX(3683)-JVS(17471)*XX(3685)-JVS(17479)*XX(3686)-JVS(17486)*XX(3687)-JVS(17496)*XX(3688)& - &-JVS(17506)*XX(3689)-JVS(17515)*XX(3690)-JVS(17524)*XX(3691)-JVS(17531)*XX(3692)-JVS(17548)*XX(3694)& - &-JVS(17555)*XX(3695)-JVS(17562)*XX(3696)-JVS(17569)*XX(3697)-JVS(17577)*XX(3698)-JVS(17584)*XX(3699)& - &-JVS(17591)*XX(3700)-JVS(17608)*XX(3703)-JVS(17616)*XX(3704)-JVS(17623)*XX(3705)-JVS(17631)*XX(3706)& - &-JVS(17650)*XX(3709)-JVS(17660)*XX(3710)-JVS(17667)*XX(3711)-JVS(17675)*XX(3712)-JVS(17682)*XX(3713)& - &-JVS(17690)*XX(3714)-JVS(17698)*XX(3715)-JVS(17709)*XX(3716)-JVS(17716)*XX(3717)-JVS(17725)*XX(3718)& - &-JVS(17733)*XX(3719)-JVS(17742)*XX(3720)-JVS(17749)*XX(3721)-JVS(17758)*XX(3722)-JVS(17766)*XX(3723)& - &-JVS(17775)*XX(3724)-JVS(17782)*XX(3725)-JVS(17793)*XX(3726)-JVS(17801)*XX(3727)-JVS(17808)*XX(3728)& - &-JVS(17816)*XX(3729)-JVS(17824)*XX(3730)-JVS(17833)*XX(3731)-JVS(17841)*XX(3732)-JVS(17847)*XX(3733)& - &-JVS(17867)*XX(3735)-JVS(17876)*XX(3736)-JVS(17883)*XX(3737)-JVS(17891)*XX(3738)-JVS(17898)*XX(3739)& - &-JVS(17905)*XX(3740)-JVS(17916)*XX(3741)-JVS(17925)*XX(3742)-JVS(17933)*XX(3743)-JVS(17940)*XX(3744)& - &-JVS(17949)*XX(3745)-JVS(17957)*XX(3746)-JVS(17970)*XX(3747)-JVS(17982)*XX(3748)-JVS(17991)*XX(3749)& - &-JVS(17999)*XX(3750)-JVS(18008)*XX(3751)-JVS(18015)*XX(3752)-JVS(18023)*XX(3753)-JVS(18032)*XX(3754)& - &-JVS(18043)*XX(3755)-JVS(18052)*XX(3756)-JVS(18062)*XX(3757)-JVS(18069)*XX(3758)-JVS(18081)*XX(3759)& - &-JVS(18089)*XX(3760)-JVS(18098)*XX(3761)-JVS(18105)*XX(3762)-JVS(18114)*XX(3763)-JVS(18122)*XX(3764)& - &-JVS(18130)*XX(3765)-JVS(18138)*XX(3766)-JVS(18145)*XX(3767)-JVS(18153)*XX(3768)-JVS(18161)*XX(3769)& - &-JVS(18168)*XX(3770)-JVS(18176)*XX(3771)-JVS(18183)*XX(3772)-JVS(18195)*XX(3773)-JVS(18202)*XX(3774)& - &-JVS(18214)*XX(3775)-JVS(18224)*XX(3776)-JVS(18233)*XX(3777)-JVS(18241)*XX(3778)-JVS(18249)*XX(3779)& - &-JVS(18260)*XX(3780)-JVS(18267)*XX(3781)-JVS(18275)*XX(3782)-JVS(18284)*XX(3783)-JVS(18293)*XX(3784)& - &-JVS(18301)*XX(3785)-JVS(18308)*XX(3786)-JVS(18317)*XX(3787)-JVS(18324)*XX(3788)-JVS(18332)*XX(3789)& - &-JVS(18338)*XX(3790)-JVS(18345)*XX(3791)-JVS(18360)*XX(3793)-JVS(18368)*XX(3794)-JVS(18376)*XX(3795)& - &-JVS(18383)*XX(3796)-JVS(18391)*XX(3797)-JVS(18398)*XX(3798)-JVS(18405)*XX(3799)-JVS(18415)*XX(3800)& - &-JVS(18421)*XX(3801)-JVS(18430)*XX(3802)-JVS(18436)*XX(3803)-JVS(18442)*XX(3804)-JVS(18450)*XX(3805)& - &-JVS(18455)*XX(3806)-JVS(18461)*XX(3807)-JVS(18468)*XX(3808)-JVS(18480)*XX(3809)-JVS(18487)*XX(3810)& - &-JVS(18493)*XX(3811)-JVS(18501)*XX(3812)-JVS(18508)*XX(3813)-JVS(18515)*XX(3814)-JVS(18522)*XX(3815)& - &-JVS(18531)*XX(3816)-JVS(18538)*XX(3817)-JVS(18547)*XX(3818)-JVS(18553)*XX(3819)-JVS(18560)*XX(3820)& - &-JVS(18574)*XX(3821)-JVS(18584)*XX(3822)-JVS(18589)*XX(3823)-JVS(18597)*XX(3824)-JVS(18604)*XX(3825)& - &-JVS(18613)*XX(3826)-JVS(18620)*XX(3827)-JVS(18627)*XX(3828)-JVS(18635)*XX(3829)-JVS(18665)*XX(3835)& - &-JVS(18670)*XX(3836)-JVS(18677)*XX(3837)-JVS(18687)*XX(3838)-JVS(18695)*XX(3839)-JVS(18702)*XX(3840)& - &-JVS(18710)*XX(3841)-JVS(18717)*XX(3842)-JVS(18727)*XX(3843)-JVS(18734)*XX(3844)-JVS(18744)*XX(3845)& - &-JVS(18754)*XX(3846)-JVS(18761)*XX(3847)-JVS(18768)*XX(3848)-JVS(18783)*XX(3849)-JVS(18791)*XX(3850)& - &-JVS(18800)*XX(3851)-JVS(18806)*XX(3852)-JVS(18813)*XX(3853)-JVS(18823)*XX(3854)-JVS(18832)*XX(3855)& - &-JVS(18841)*XX(3856)-JVS(18850)*XX(3857)-JVS(18858)*XX(3858)-JVS(18866)*XX(3859)-JVS(18875)*XX(3860)& - &-JVS(18884)*XX(3861)-JVS(18892)*XX(3862)-JVS(18899)*XX(3863)-JVS(18908)*XX(3864)-JVS(18915)*XX(3865)& - &-JVS(18922)*XX(3866)-JVS(18928)*XX(3867)-JVS(18940)*XX(3868)-JVS(18949)*XX(3869)-JVS(18958)*XX(3870)& - &-JVS(18968)*XX(3871)-JVS(18975)*XX(3872)-JVS(18983)*XX(3873)-JVS(18992)*XX(3874)-JVS(19001)*XX(3875)& - &-JVS(19008)*XX(3876)-JVS(19018)*XX(3877)-JVS(19025)*XX(3878)-JVS(19036)*XX(3879)-JVS(19046)*XX(3880)& - &-JVS(19056)*XX(3881)-JVS(19065)*XX(3882)-JVS(19071)*XX(3883)-JVS(19079)*XX(3884)-JVS(19087)*XX(3885)& - &-JVS(19094)*XX(3886)-JVS(19101)*XX(3887)-JVS(19110)*XX(3888)-JVS(19118)*XX(3889)-JVS(19127)*XX(3890)& - &-JVS(19134)*XX(3891)-JVS(19150)*XX(3893)-JVS(19158)*XX(3894)-JVS(19165)*XX(3895)-JVS(19176)*XX(3896)& - &-JVS(19183)*XX(3897)-JVS(19190)*XX(3898)-JVS(19198)*XX(3899)-JVS(19207)*XX(3900)-JVS(19216)*XX(3901)& - &-JVS(19224)*XX(3902)-JVS(19231)*XX(3903)-JVS(19238)*XX(3904)-JVS(19248)*XX(3905)-JVS(19256)*XX(3906)& - &-JVS(19263)*XX(3907)-JVS(19270)*XX(3908)-JVS(19277)*XX(3909)-JVS(19284)*XX(3910)-JVS(19295)*XX(3911)& - &-JVS(19305)*XX(3912)-JVS(19313)*XX(3913)-JVS(19324)*XX(3914)-JVS(19335)*XX(3915)-JVS(19345)*XX(3916)& - &-JVS(19356)*XX(3917)-JVS(19371)*XX(3918)-JVS(19381)*XX(3919)-JVS(19388)*XX(3920)-JVS(19395)*XX(3921)& - &-JVS(19402)*XX(3922)-JVS(19412)*XX(3923)-JVS(19422)*XX(3924)-JVS(19429)*XX(3925)-JVS(19439)*XX(3926)& - &-JVS(19445)*XX(3927)-JVS(19452)*XX(3928)-JVS(19462)*XX(3929)-JVS(19473)*XX(3930)-JVS(19489)*XX(3932)& - &-JVS(19497)*XX(3933)-JVS(19505)*XX(3934)-JVS(19514)*XX(3935)-JVS(19520)*XX(3936)-JVS(19528)*XX(3937)& - &-JVS(19536)*XX(3938)-JVS(19543)*XX(3939)-JVS(19550)*XX(3940)-JVS(19560)*XX(3941)-JVS(19567)*XX(3942)& - &-JVS(19574)*XX(3943)-JVS(19581)*XX(3944)-JVS(19588)*XX(3945)-JVS(19599)*XX(3946)-JVS(19609)*XX(3947)& - &-JVS(19617)*XX(3948)-JVS(19624)*XX(3949)-JVS(19631)*XX(3950)-JVS(19640)*XX(3951)-JVS(19647)*XX(3952)& - &-JVS(19655)*XX(3953)-JVS(19664)*XX(3954)-JVS(19673)*XX(3955)-JVS(19680)*XX(3956)-JVS(19689)*XX(3957)& - &-JVS(19699)*XX(3958)-JVS(19712)*XX(3959)-JVS(19718)*XX(3960)-JVS(19726)*XX(3961)-JVS(19733)*XX(3962)& - &-JVS(19739)*XX(3963)-JVS(19748)*XX(3964)-JVS(19763)*XX(3966)-JVS(19772)*XX(3967)-JVS(19781)*XX(3968)& - &-JVS(19788)*XX(3969)-JVS(19795)*XX(3970)-JVS(19802)*XX(3971)-JVS(19810)*XX(3972)-JVS(19818)*XX(3973)& - &-JVS(19825)*XX(3974)-JVS(19833)*XX(3975)-JVS(19841)*XX(3976)-JVS(19851)*XX(3977)-JVS(19863)*XX(3978)& - &-JVS(19873)*XX(3979)-JVS(19880)*XX(3980)-JVS(19890)*XX(3981)-JVS(19897)*XX(3982)-JVS(19904)*XX(3983)& - &-JVS(19912)*XX(3984)-JVS(19919)*XX(3985)-JVS(19930)*XX(3986)-JVS(19937)*XX(3987)-JVS(19943)*XX(3988)& - &-JVS(19953)*XX(3989)-JVS(19959)*XX(3990)-JVS(19968)*XX(3991)-JVS(19977)*XX(3992)-JVS(19995)*XX(3994)& - &-JVS(20005)*XX(3995)-JVS(20017)*XX(3997)-JVS(20028)*XX(3998)-JVS(20036)*XX(3999)-JVS(20048)*XX(4000)& - &-JVS(20056)*XX(4001)-JVS(20064)*XX(4002)-JVS(20071)*XX(4003)-JVS(20079)*XX(4004)-JVS(20090)*XX(4005)& - &-JVS(20098)*XX(4006)-JVS(20106)*XX(4007)-JVS(20114)*XX(4008)-JVS(20122)*XX(4009)-JVS(20135)*XX(4011)& - &-JVS(20147)*XX(4012)-JVS(20159)*XX(4013)-JVS(20176)*XX(4014)-JVS(20186)*XX(4015)-JVS(20193)*XX(4016)& - &-JVS(20213)*XX(4019)-JVS(20220)*XX(4020)-JVS(20228)*XX(4021)-JVS(20236)*XX(4022)-JVS(20244)*XX(4023)& - &-JVS(20253)*XX(4024)-JVS(20262)*XX(4025)-JVS(20271)*XX(4026)-JVS(20284)*XX(4028)-JVS(20293)*XX(4029)& - &-JVS(20300)*XX(4030)-JVS(20308)*XX(4031)-JVS(20320)*XX(4033)-JVS(20328)*XX(4034)-JVS(20336)*XX(4035)& - &-JVS(20344)*XX(4036)-JVS(20352)*XX(4037)-JVS(20363)*XX(4038)-JVS(20371)*XX(4039)-JVS(20379)*XX(4040)& - &-JVS(20391)*XX(4041)-JVS(20406)*XX(4042)-JVS(20415)*XX(4043)-JVS(20422)*XX(4044)-JVS(20434)*XX(4045)& - &-JVS(20446)*XX(4046)-JVS(20459)*XX(4047)-JVS(20471)*XX(4048)-JVS(20480)*XX(4049)-JVS(20490)*XX(4050)& - &-JVS(20505)*XX(4051)-JVS(20516)*XX(4052)-JVS(20528)*XX(4053)-JVS(20535)*XX(4054)-JVS(20542)*XX(4055)& - &-JVS(20554)*XX(4057)-JVS(20565)*XX(4058)-JVS(20574)*XX(4059)-JVS(20587)*XX(4060)-JVS(20594)*XX(4061)& - &-JVS(20604)*XX(4062)-JVS(20611)*XX(4063)-JVS(20619)*XX(4064)-JVS(20627)*XX(4065)-JVS(20635)*XX(4066)& - &-JVS(20640)*XX(4067)-JVS(20648)*XX(4068)-JVS(20657)*XX(4069)-JVS(20664)*XX(4070)-JVS(20672)*XX(4071)& - &-JVS(20679)*XX(4072)-JVS(20687)*XX(4073)-JVS(20695)*XX(4074)-JVS(20702)*XX(4075)-JVS(20711)*XX(4076)& - &-JVS(20721)*XX(4077)-JVS(20729)*XX(4078)-JVS(20737)*XX(4079)-JVS(20759)*XX(4082)-JVS(20784)*XX(4085)& - &-JVS(20794)*XX(4086)-JVS(20802)*XX(4087)-JVS(20811)*XX(4088)-JVS(20822)*XX(4089)-JVS(20829)*XX(4090)& - &-JVS(20836)*XX(4091)-JVS(20850)*XX(4092)-JVS(20867)*XX(4095)-JVS(20873)*XX(4096)-JVS(20879)*XX(4097)& - &-JVS(20889)*XX(4098)-JVS(20897)*XX(4099)-JVS(20905)*XX(4100)-JVS(20916)*XX(4101)-JVS(20926)*XX(4102)& - &-JVS(20938)*XX(4103)-JVS(20954)*XX(4104)-JVS(20963)*XX(4105)-JVS(20970)*XX(4106)-JVS(20982)*XX(4108)& - &-JVS(20998)*XX(4109)-JVS(21009)*XX(4110)-JVS(21015)*XX(4111)-JVS(21022)*XX(4112)-JVS(21035)*XX(4114)& - &-JVS(21043)*XX(4115)-JVS(21051)*XX(4116)-JVS(21058)*XX(4117)-JVS(21067)*XX(4118)-JVS(21077)*XX(4119)& - &-JVS(21087)*XX(4120)-JVS(21095)*XX(4121)-JVS(21106)*XX(4122)-JVS(21114)*XX(4123)-JVS(21121)*XX(4124)& - &-JVS(21142)*XX(4126)-JVS(21150)*XX(4127)-JVS(21157)*XX(4128)-JVS(21163)*XX(4129)-JVS(21173)*XX(4130)& - &-JVS(21181)*XX(4131)-JVS(21197)*XX(4133)-JVS(21204)*XX(4134)-JVS(21210)*XX(4135)-JVS(21219)*XX(4136)& - &-JVS(21229)*XX(4137)-JVS(21238)*XX(4138)-JVS(21246)*XX(4139)-JVS(21254)*XX(4140)-JVS(21260)*XX(4141)& - &-JVS(21267)*XX(4142)-JVS(21274)*XX(4143)-JVS(21280)*XX(4144)-JVS(21287)*XX(4145)-JVS(21294)*XX(4146)& - &-JVS(21302)*XX(4147)-JVS(21308)*XX(4148)-JVS(21316)*XX(4149)-JVS(21326)*XX(4150)-JVS(21334)*XX(4151)& - &-JVS(21345)*XX(4152)-JVS(21353)*XX(4153)-JVS(21365)*XX(4154)-JVS(21374)*XX(4155)-JVS(21390)*XX(4157)& - &-JVS(21398)*XX(4158)-JVS(21404)*XX(4159)-JVS(21412)*XX(4160)-JVS(21420)*XX(4161)-JVS(21429)*XX(4162)& - &-JVS(21437)*XX(4163)-JVS(21448)*XX(4164)-JVS(21454)*XX(4165)-JVS(21462)*XX(4166)-JVS(21469)*XX(4167)& - &-JVS(21478)*XX(4168)-JVS(21489)*XX(4169)-JVS(21498)*XX(4170)-JVS(21505)*XX(4171)-JVS(21514)*XX(4172)& - &-JVS(21523)*XX(4173)-JVS(21531)*XX(4174)-JVS(21545)*XX(4175)-JVS(21552)*XX(4176)-JVS(21562)*XX(4177)& - &-JVS(21573)*XX(4178)-JVS(21584)*XX(4179)-JVS(21591)*XX(4180)-JVS(21606)*XX(4181)-JVS(21617)*XX(4182)& - &-JVS(21633)*XX(4183)-JVS(21641)*XX(4184)-JVS(21649)*XX(4185)-JVS(21661)*XX(4186)-JVS(21669)*XX(4187)& - &-JVS(21679)*XX(4188)-JVS(21690)*XX(4189)-JVS(21699)*XX(4190)-JVS(21707)*XX(4191)-JVS(21715)*XX(4192)& - &-JVS(21724)*XX(4193)-JVS(21733)*XX(4194)-JVS(21742)*XX(4195)-JVS(21755)*XX(4196)-JVS(21765)*XX(4197)& - &-JVS(21773)*XX(4198)-JVS(21787)*XX(4199)-JVS(21796)*XX(4200)-JVS(21805)*XX(4201)-JVS(21816)*XX(4202)& - &-JVS(21826)*XX(4203)-JVS(21835)*XX(4204)-JVS(21844)*XX(4205)-JVS(21853)*XX(4206)-JVS(21863)*XX(4207)& - &-JVS(21874)*XX(4208)-JVS(21883)*XX(4209)-JVS(21892)*XX(4210)-JVS(21903)*XX(4211)-JVS(21911)*XX(4212)& - &-JVS(21919)*XX(4213)-JVS(21931)*XX(4214)-JVS(21940)*XX(4215)-JVS(21954)*XX(4216)-JVS(21963)*XX(4217)& - &-JVS(21975)*XX(4218)-JVS(21988)*XX(4219)-JVS(22000)*XX(4220)-JVS(22013)*XX(4221)-JVS(22023)*XX(4222)& - &-JVS(22036)*XX(4223)-JVS(22046)*XX(4224)-JVS(22055)*XX(4225)-JVS(22068)*XX(4226)-JVS(22078)*XX(4227)& - &-JVS(22089)*XX(4228)-JVS(22099)*XX(4229)-JVS(22109)*XX(4230)-JVS(22122)*XX(4231)-JVS(22130)*XX(4232)& - &-JVS(22140)*XX(4233)-JVS(22151)*XX(4234)-JVS(22162)*XX(4235)-JVS(22170)*XX(4236)-JVS(22179)*XX(4237)& - &-JVS(22190)*XX(4238)-JVS(22203)*XX(4239)-JVS(22211)*XX(4240)-JVS(22224)*XX(4241)-JVS(22233)*XX(4242)& - &-JVS(22243)*XX(4243)-JVS(22253)*XX(4244)-JVS(22261)*XX(4245)-JVS(22270)*XX(4246)-JVS(22278)*XX(4247)& - &-JVS(22297)*XX(4248)-JVS(22304)*XX(4249)-JVS(22312)*XX(4250)-JVS(22324)*XX(4251)-JVS(22332)*XX(4252)& - &-JVS(22345)*XX(4253)-JVS(22356)*XX(4254)-JVS(22364)*XX(4255)-JVS(22376)*XX(4256)-JVS(22385)*XX(4257)& - &-JVS(22393)*XX(4258)-JVS(22402)*XX(4259)-JVS(22412)*XX(4260)-JVS(22425)*XX(4261)-JVS(22433)*XX(4262)& - &-JVS(22445)*XX(4263)-JVS(22451)*XX(4264)-JVS(22461)*XX(4265)-JVS(22471)*XX(4266)-JVS(22482)*XX(4267)& - &-JVS(22492)*XX(4268)-JVS(22501)*XX(4269)-JVS(22512)*XX(4270)-JVS(22520)*XX(4271)-JVS(22534)*XX(4273)& - &-JVS(22545)*XX(4274)-JVS(22553)*XX(4275)-JVS(22562)*XX(4276)-JVS(22573)*XX(4277)-JVS(22589)*XX(4278)& - &-JVS(22600)*XX(4279)-JVS(22608)*XX(4280)-JVS(22617)*XX(4281)-JVS(22625)*XX(4282)-JVS(22634)*XX(4283)& - &-JVS(22645)*XX(4284)-JVS(22653)*XX(4285)-JVS(22661)*XX(4286)-JVS(22670)*XX(4287)-JVS(22679)*XX(4288)& - &-JVS(22688)*XX(4289)-JVS(22701)*XX(4290)-JVS(22710)*XX(4291)-JVS(22719)*XX(4292)-JVS(22728)*XX(4293)& - &-JVS(22751)*XX(4294)-JVS(22764)*XX(4295)-JVS(22773)*XX(4296)-JVS(22782)*XX(4297)-JVS(22791)*XX(4298)& - &-JVS(22804)*XX(4299)-JVS(22817)*XX(4300)-JVS(22826)*XX(4301)-JVS(22834)*XX(4302)-JVS(22843)*XX(4303)& - &-JVS(22852)*XX(4304)-JVS(22861)*XX(4305)-JVS(22870)*XX(4306)-JVS(22879)*XX(4307)-JVS(22892)*XX(4308)& - &-JVS(22903)*XX(4309)-JVS(22915)*XX(4310)-JVS(22925)*XX(4311)-JVS(22934)*XX(4312)-JVS(22950)*XX(4313)& - &-JVS(22958)*XX(4314)-JVS(22970)*XX(4315)-JVS(22981)*XX(4316)-JVS(22990)*XX(4317)-JVS(23000)*XX(4318)& - &-JVS(23012)*XX(4319)-JVS(23020)*XX(4320)-JVS(23027)*XX(4321)-JVS(23038)*XX(4322)-JVS(23046)*XX(4323)& - &-JVS(23058)*XX(4324)-JVS(23073)*XX(4325)-JVS(23085)*XX(4326)-JVS(23093)*XX(4327)-JVS(23103)*XX(4328)& - &-JVS(23117)*XX(4329)-JVS(23148)*XX(4331)-JVS(23171)*XX(4334)-JVS(23178)*XX(4335)-JVS(23187)*XX(4336)& - &-JVS(23194)*XX(4337)-JVS(23202)*XX(4338)-JVS(23209)*XX(4339)-JVS(23218)*XX(4340)-JVS(23224)*XX(4341)& - &-JVS(23232)*XX(4342)-JVS(23241)*XX(4343)-JVS(23251)*XX(4344)-JVS(23260)*XX(4345)-JVS(23268)*XX(4346)& - &-JVS(23275)*XX(4347)-JVS(23283)*XX(4348)-JVS(23291)*XX(4349)-JVS(23300)*XX(4350)-JVS(23307)*XX(4351)& - &-JVS(23320)*XX(4352)-JVS(23328)*XX(4353)-JVS(23335)*XX(4354)-JVS(23343)*XX(4355)-JVS(23351)*XX(4356)& - &-JVS(23358)*XX(4357)-JVS(23365)*XX(4358)-JVS(23373)*XX(4359)-JVS(23383)*XX(4360)-JVS(23391)*XX(4361)& - &-JVS(23399)*XX(4362)-JVS(23408)*XX(4363)-JVS(23415)*XX(4364)-JVS(23426)*XX(4365)-JVS(23449)*XX(4366)& - &-JVS(23458)*XX(4367)-JVS(23465)*XX(4368)-JVS(23473)*XX(4369)-JVS(23480)*XX(4370)-JVS(23487)*XX(4371)& - &-JVS(23493)*XX(4372)-JVS(23503)*XX(4373)-JVS(23512)*XX(4374)-JVS(23520)*XX(4375)-JVS(23533)*XX(4376)& - &-JVS(23541)*XX(4377)-JVS(23551)*XX(4378)-JVS(23558)*XX(4379)-JVS(23566)*XX(4380)-JVS(23575)*XX(4381)& - &-JVS(23581)*XX(4382)-JVS(23595)*XX(4383)-JVS(23604)*XX(4384)-JVS(23615)*XX(4385)-JVS(23630)*XX(4386)& - &-JVS(23637)*XX(4387)-JVS(23646)*XX(4388)-JVS(23655)*XX(4389)-JVS(23663)*XX(4390)-JVS(23679)*XX(4391)& - &-JVS(23699)*XX(4392)-JVS(23708)*XX(4393)-JVS(23718)*XX(4394)-JVS(23750)*XX(4398)-JVS(23759)*XX(4399)& - &-JVS(23767)*XX(4400)-JVS(23780)*XX(4401)-JVS(23789)*XX(4402)-JVS(23835)*XX(4403)-JVS(23847)*XX(4404)& - &-JVS(23856)*XX(4405)-JVS(23867)*XX(4406)-JVS(23876)*XX(4407)-JVS(23886)*XX(4408)-JVS(23897)*XX(4409)& - &-JVS(23908)*XX(4410)-JVS(23920)*XX(4411)-JVS(23929)*XX(4412)-JVS(23938)*XX(4413)-JVS(23948)*XX(4414)& - &-JVS(23957)*XX(4415)-JVS(23966)*XX(4416)-JVS(23978)*XX(4417)-JVS(23989)*XX(4418)-JVS(24000)*XX(4419)& - &-JVS(24012)*XX(4420)-JVS(24024)*XX(4421)-JVS(24032)*XX(4422)-JVS(24048)*XX(4423)-JVS(24057)*XX(4424)& - &-JVS(24066)*XX(4425)-JVS(24085)*XX(4426)-JVS(24095)*XX(4427)-JVS(24104)*XX(4428)-JVS(24116)*XX(4429)& - &-JVS(24127)*XX(4430)-JVS(24139)*XX(4431)-JVS(24149)*XX(4432)-JVS(24159)*XX(4433)-JVS(24168)*XX(4434)& - &-JVS(24180)*XX(4435)-JVS(24188)*XX(4436)-JVS(24197)*XX(4437)-JVS(24207)*XX(4438)-JVS(24218)*XX(4439)& - &-JVS(24227)*XX(4440)-JVS(24240)*XX(4441)-JVS(24253)*XX(4442)-JVS(24265)*XX(4443)-JVS(24274)*XX(4444)& - &-JVS(24285)*XX(4445)-JVS(24295)*XX(4446)-JVS(24305)*XX(4447)-JVS(24317)*XX(4448)-JVS(24330)*XX(4449)& - &-JVS(24342)*XX(4450)-JVS(24351)*XX(4451)-JVS(24361)*XX(4452)-JVS(24370)*XX(4453)-JVS(24380)*XX(4454)& - &-JVS(24390)*XX(4455)-JVS(24400)*XX(4456)-JVS(24409)*XX(4457)-JVS(24419)*XX(4458)-JVS(24429)*XX(4459)& - &-JVS(24439)*XX(4460)-JVS(24451)*XX(4461)-JVS(24468)*XX(4463)-JVS(24477)*XX(4464)-JVS(24488)*XX(4465)& - &-JVS(24496)*XX(4466)-JVS(24506)*XX(4467)-JVS(24516)*XX(4468)-JVS(24526)*XX(4469)-JVS(24536)*XX(4470)& - &-JVS(24545)*XX(4471)-JVS(24555)*XX(4472)-JVS(24565)*XX(4473)-JVS(24581)*XX(4476)-JVS(24594)*XX(4477)& - &-JVS(24604)*XX(4478)-JVS(24614)*XX(4479)-JVS(24624)*XX(4480)-JVS(24636)*XX(4481)-JVS(24656)*XX(4482)& - &-JVS(24668)*XX(4483)-JVS(24678)*XX(4484)-JVS(24693)*XX(4485)-JVS(24705)*XX(4486)-JVS(24714)*XX(4487)& - &-JVS(24727)*XX(4488)-JVS(24738)*XX(4489)-JVS(24755)*XX(4490)-JVS(24774)*XX(4491)-JVS(24803)*XX(4493)& - &-JVS(24812)*XX(4494)-JVS(24822)*XX(4495)-JVS(24833)*XX(4496)-JVS(24846)*XX(4497)-JVS(24855)*XX(4498)& - &-JVS(24864)*XX(4499)-JVS(24874)*XX(4500)-JVS(24888)*XX(4501)-JVS(24897)*XX(4502)-JVS(24908)*XX(4503)& - &-JVS(24917)*XX(4504)-JVS(24934)*XX(4506)-JVS(25010)*XX(4507)-JVS(25024)*XX(4509)-JVS(25038)*XX(4510)& - &-JVS(25046)*XX(4511)-JVS(25060)*XX(4513)-JVS(25069)*XX(4514)-JVS(25080)*XX(4515)-JVS(25089)*XX(4516)& - &-JVS(25099)*XX(4517)-JVS(25109)*XX(4518)-JVS(25120)*XX(4519)-JVS(25130)*XX(4520)-JVS(25142)*XX(4521)& - &-JVS(25152)*XX(4522)-JVS(25162)*XX(4523)-JVS(25179)*XX(4524)-JVS(25191)*XX(4525)-JVS(25199)*XX(4526)& - &-JVS(25227)*XX(4529)-JVS(25237)*XX(4530)-JVS(25246)*XX(4531)-JVS(25259)*XX(4532)-JVS(25270)*XX(4533)& - &-JVS(25282)*XX(4534)-JVS(25291)*XX(4535)-JVS(25307)*XX(4536)-JVS(25320)*XX(4537)-JVS(25330)*XX(4538)& - &-JVS(25342)*XX(4539)-JVS(25360)*XX(4540)-JVS(25369)*XX(4541)-JVS(25378)*XX(4542)-JVS(25388)*XX(4543)& - &-JVS(25399)*XX(4544)-JVS(25415)*XX(4545)-JVS(25426)*XX(4546)-JVS(25440)*XX(4547)-JVS(25452)*XX(4548)& - &-JVS(25464)*XX(4549)-JVS(25475)*XX(4550)-JVS(25484)*XX(4551)-JVS(25497)*XX(4552)-JVS(25507)*XX(4553)& - &-JVS(25515)*XX(4554)-JVS(25528)*XX(4556)-JVS(25540)*XX(4557)-JVS(25548)*XX(4558)-JVS(25560)*XX(4559)& - &-JVS(25574)*XX(4560)-JVS(25582)*XX(4561)-JVS(25590)*XX(4562)-JVS(25598)*XX(4563)-JVS(25613)*XX(4564)& - &-JVS(25622)*XX(4565)-JVS(25629)*XX(4566)-JVS(25638)*XX(4567)-JVS(25645)*XX(4568)-JVS(25659)*XX(4569)& - &-JVS(25674)*XX(4571)-JVS(25682)*XX(4572)-JVS(25689)*XX(4573)-JVS(25696)*XX(4574)-JVS(25702)*XX(4575)& - &-JVS(25713)*XX(4576)-JVS(25724)*XX(4577)-JVS(25730)*XX(4578)-JVS(25737)*XX(4579)-JVS(25748)*XX(4580)& - &-JVS(25756)*XX(4581)-JVS(25763)*XX(4582)-JVS(25772)*XX(4583)-JVS(25779)*XX(4584)-JVS(25786)*XX(4585)& - &-JVS(25794)*XX(4586)-JVS(25801)*XX(4587)-JVS(25823)*XX(4589)-JVS(25831)*XX(4590)-JVS(25847)*XX(4591)& - &-JVS(25860)*XX(4592)-JVS(25869)*XX(4593)-JVS(25877)*XX(4594)-JVS(25885)*XX(4595)-JVS(25892)*XX(4596)& - &-JVS(25902)*XX(4597)-JVS(25909)*XX(4598)-JVS(25917)*XX(4599)-JVS(25975)*XX(4602)-JVS(25985)*XX(4603)& - &-JVS(26006)*XX(4607)-JVS(26015)*XX(4608)-JVS(26022)*XX(4609)-JVS(26029)*XX(4610)-JVS(26038)*XX(4611)& - &-JVS(26051)*XX(4612)-JVS(26062)*XX(4613)-JVS(26074)*XX(4614)-JVS(26081)*XX(4615)-JVS(26086)*XX(4616)& - &-JVS(26091)*XX(4617)-JVS(26116)*XX(4618)-JVS(26129)*XX(4619)-JVS(26141)*XX(4620)-JVS(26149)*XX(4621)& - &-JVS(26174)*XX(4622)-JVS(26183)*XX(4623)-JVS(26198)*XX(4624)-JVS(26207)*XX(4625)-JVS(26216)*XX(4626)& - &-JVS(26226)*XX(4627)-JVS(26235)*XX(4628)-JVS(26245)*XX(4629)-JVS(26255)*XX(4630)-JVS(26268)*XX(4631)& - &-JVS(26278)*XX(4632)-JVS(26288)*XX(4633)-JVS(26298)*XX(4634)-JVS(26307)*XX(4635)-JVS(26317)*XX(4636)& - &-JVS(26325)*XX(4637)-JVS(26335)*XX(4638)-JVS(26344)*XX(4639)-JVS(26356)*XX(4640)-JVS(26364)*XX(4641)& - &-JVS(26375)*XX(4642)-JVS(26384)*XX(4643)-JVS(26400)*XX(4644)-JVS(26409)*XX(4645)-JVS(26417)*XX(4646)& - &-JVS(26426)*XX(4647)-JVS(26438)*XX(4648)-JVS(26446)*XX(4649)-JVS(26455)*XX(4650)-JVS(26470)*XX(4651)& - &-JVS(26481)*XX(4652)-JVS(26490)*XX(4653)-JVS(26499)*XX(4654)-JVS(26509)*XX(4655)-JVS(26518)*XX(4656)& - &-JVS(26528)*XX(4657)-JVS(26541)*XX(4658)-JVS(26551)*XX(4659)-JVS(26560)*XX(4660)-JVS(26569)*XX(4661)& - &-JVS(26579)*XX(4662)-JVS(26589)*XX(4663)-JVS(26607)*XX(4664)-JVS(26616)*XX(4665)-JVS(26632)*XX(4666)& - &-JVS(26643)*XX(4667)-JVS(26652)*XX(4668)-JVS(26664)*XX(4669)-JVS(26673)*XX(4670)-JVS(26684)*XX(4671)& - &-JVS(26699)*XX(4672)-JVS(26712)*XX(4673)-JVS(26721)*XX(4674)-JVS(26731)*XX(4675)-JVS(26742)*XX(4676)& - &-JVS(26751)*XX(4677)-JVS(26758)*XX(4678)-JVS(26768)*XX(4679)-JVS(26777)*XX(4680)-JVS(26788)*XX(4681)& - &-JVS(26798)*XX(4682)-JVS(26809)*XX(4683)-JVS(26818)*XX(4684)-JVS(26827)*XX(4685)-JVS(26841)*XX(4686)& - &-JVS(26855)*XX(4687)-JVS(26865)*XX(4688)-JVS(26875)*XX(4689)-JVS(26885)*XX(4690)-JVS(26893)*XX(4691)& - &-JVS(26902)*XX(4692)-JVS(26986)*XX(4693)-JVS(27007)*XX(4694)-JVS(27015)*XX(4695)-JVS(27023)*XX(4696)& - &-JVS(27031)*XX(4697)-JVS(27040)*XX(4698)-JVS(27046)*XX(4699)-JVS(27054)*XX(4700)-JVS(27061)*XX(4701)& - &-JVS(27070)*XX(4702)-JVS(27077)*XX(4703)-JVS(27083)*XX(4704)-JVS(27090)*XX(4705)-JVS(27097)*XX(4706)& - &-JVS(27103)*XX(4707)-JVS(27124)*XX(4708)-JVS(27132)*XX(4709)-JVS(27150)*XX(4710)-JVS(27157)*XX(4711)& - &-JVS(27164)*XX(4712)-JVS(27171)*XX(4713)-JVS(27179)*XX(4714)-JVS(27187)*XX(4715)-JVS(27194)*XX(4716)& - &-JVS(27204)*XX(4717)-JVS(27210)*XX(4718)-JVS(27220)*XX(4719)-JVS(27227)*XX(4720)-JVS(27257)*XX(4721)& - &-JVS(27268)*XX(4722)-JVS(27275)*XX(4723)-JVS(27286)*XX(4724)-JVS(27292)*XX(4725)-JVS(27304)*XX(4726)& - &-JVS(27311)*XX(4727)-JVS(27328)*XX(4728)-JVS(27354)*XX(4729)-JVS(27363)*XX(4730)-JVS(27371)*XX(4731)& - &-JVS(27378)*XX(4732)-JVS(27386)*XX(4733)-JVS(27396)*XX(4734)-JVS(27402)*XX(4735)-JVS(27413)*XX(4736)& - &-JVS(27425)*XX(4737)-JVS(27436)*XX(4738)-JVS(27448)*XX(4739)-JVS(27462)*XX(4740)-JVS(27475)*XX(4741)& - &-JVS(27487)*XX(4742)-JVS(27499)*XX(4743)-JVS(27507)*XX(4744)-JVS(27520)*XX(4745)-JVS(27528)*XX(4746)& - &-JVS(27563)*XX(4748)-JVS(27578)*XX(4749)-JVS(27588)*XX(4750)-JVS(27598)*XX(4751)-JVS(27613)*XX(4752)& - &-JVS(27625)*XX(4753)-JVS(27633)*XX(4754)-JVS(27648)*XX(4755)-JVS(27656)*XX(4756)-JVS(27667)*XX(4757)& - &-JVS(27673)*XX(4758)-JVS(27687)*XX(4759)-JVS(27708)*XX(4760)-JVS(27717)*XX(4761)-JVS(27725)*XX(4762)& - &-JVS(27740)*XX(4763)-JVS(27754)*XX(4764)-JVS(27763)*XX(4765)-JVS(27772)*XX(4766)-JVS(27782)*XX(4767)& - &-JVS(27804)*XX(4768)-JVS(27817)*XX(4769)-JVS(27828)*XX(4770)-JVS(27838)*XX(4771)-JVS(27849)*XX(4772)& - &-JVS(27861)*XX(4773)-JVS(27870)*XX(4774)-JVS(27885)*XX(4775)-JVS(27893)*XX(4776)-JVS(27901)*XX(4777)& - &-JVS(27910)*XX(4778)-JVS(27918)*XX(4779)-JVS(27927)*XX(4780)-JVS(27935)*XX(4781)-JVS(27943)*XX(4782)& - &-JVS(27950)*XX(4783)-JVS(27958)*XX(4784)-JVS(27966)*XX(4785)-JVS(27972)*XX(4786)-JVS(27980)*XX(4787)& - &-JVS(27990)*XX(4788)-JVS(28003)*XX(4789)-JVS(28012)*XX(4790)-JVS(28023)*XX(4791)-JVS(28039)*XX(4792)& - &-JVS(28050)*XX(4793)-JVS(28064)*XX(4795)-JVS(28145)*XX(4796)-JVS(28156)*XX(4797)-JVS(28169)*XX(4798)& - &-JVS(28182)*XX(4799)-JVS(28190)*XX(4800)-JVS(28222)*XX(4801)-JVS(28231)*XX(4802)-JVS(28237)*XX(4803)& - &-JVS(28247)*XX(4804)-JVS(28266)*XX(4806)-JVS(28275)*XX(4807)-JVS(28286)*XX(4808)-JVS(28296)*XX(4809)& - &-JVS(28306)*XX(4810)-JVS(28318)*XX(4811)-JVS(28331)*XX(4812)-JVS(28341)*XX(4813)-JVS(28351)*XX(4814)& - &-JVS(28364)*XX(4815)-JVS(28373)*XX(4816)-JVS(28384)*XX(4817)-JVS(28392)*XX(4818)-JVS(28400)*XX(4819)& - &-JVS(28411)*XX(4820)-JVS(28417)*XX(4821)-JVS(28430)*XX(4822)-JVS(28451)*XX(4823)-JVS(28460)*XX(4824)& - &-JVS(28469)*XX(4825)-JVS(28479)*XX(4826)-JVS(28491)*XX(4827)-JVS(28498)*XX(4828)-JVS(28507)*XX(4829)& - &-JVS(28519)*XX(4830)-JVS(28536)*XX(4831)-JVS(28548)*XX(4832)-JVS(28556)*XX(4833)-JVS(28573)*XX(4834)& - &-JVS(28580)*XX(4835)-JVS(28589)*XX(4836)-JVS(28599)*XX(4837)-JVS(28608)*XX(4838)-JVS(28626)*XX(4839)& - &-JVS(28646)*XX(4841)-JVS(28671)*XX(4842)-JVS(28681)*XX(4843)-JVS(28696)*XX(4844)-JVS(28709)*XX(4845)& - &-JVS(28720)*XX(4846)-JVS(28737)*XX(4847)-JVS(28749)*XX(4848)-JVS(28765)*XX(4849)-JVS(28787)*XX(4850)& - &-JVS(28806)*XX(4851)-JVS(28818)*XX(4852)-JVS(28834)*XX(4853)-JVS(28848)*XX(4854)-JVS(28861)*XX(4855)& - &-JVS(28874)*XX(4856)-JVS(28885)*XX(4857)-JVS(28896)*XX(4858)-JVS(28906)*XX(4859)-JVS(28918)*XX(4860)& - &-JVS(28930)*XX(4861)-JVS(28941)*XX(4862)-JVS(28954)*XX(4863)-JVS(28971)*XX(4864)-JVS(28991)*XX(4865)& - &-JVS(29003)*XX(4866)-JVS(29017)*XX(4867)-JVS(29026)*XX(4868)-JVS(29037)*XX(4869)-JVS(29052)*XX(4870)& - &-JVS(29070)*XX(4871)-JVS(29084)*XX(4872)-JVS(29097)*XX(4873)-JVS(29114)*XX(4874)-JVS(29128)*XX(4875)& - &-JVS(29136)*XX(4876)-JVS(29143)*XX(4877)-JVS(29151)*XX(4878)-JVS(29158)*XX(4879)-JVS(29166)*XX(4880)& - &-JVS(29173)*XX(4881)-JVS(29187)*XX(4882)-JVS(29198)*XX(4883)-JVS(29206)*XX(4884)-JVS(29217)*XX(4885)& - &-JVS(29225)*XX(4886)-JVS(29235)*XX(4887)-JVS(29246)*XX(4888)-JVS(29256)*XX(4889)-JVS(29269)*XX(4890)& - &-JVS(29277)*XX(4891)-JVS(29286)*XX(4892)-JVS(29298)*XX(4893)-JVS(29308)*XX(4894)-JVS(29318)*XX(4895)& - &-JVS(29329)*XX(4896)-JVS(29340)*XX(4897)-JVS(29353)*XX(4898)-JVS(29365)*XX(4899)-JVS(29375)*XX(4900)& - &-JVS(29389)*XX(4901)-JVS(29408)*XX(4902)-JVS(29419)*XX(4903)-JVS(29450)*XX(4904)-JVS(29462)*XX(4905)& - &-JVS(29471)*XX(4906)-JVS(29485)*XX(4908)-JVS(29518)*XX(4909)-JVS(29540)*XX(4910)-JVS(29553)*XX(4911)& - &-JVS(29561)*XX(4912)-JVS(29579)*XX(4913)-JVS(29591)*XX(4914)-JVS(29604)*XX(4915)-JVS(29624)*XX(4916)& - &-JVS(29639)*XX(4917)-JVS(29673)*XX(4918)-JVS(29684)*XX(4919)-JVS(29698)*XX(4920)-JVS(29714)*XX(4921)& - &-JVS(29722)*XX(4922)-JVS(29732)*XX(4923)-JVS(29752)*XX(4924)-JVS(29761)*XX(4925)-JVS(29772)*XX(4926)& - &-JVS(29783)*XX(4927)-JVS(29790)*XX(4928)-JVS(29810)*XX(4929)-JVS(29825)*XX(4930)-JVS(29859)*XX(4931)& - &-JVS(29869)*XX(4932)-JVS(29878)*XX(4933)-JVS(29887)*XX(4934)-JVS(29897)*XX(4935)-JVS(29912)*XX(4936)& - &-JVS(29921)*XX(4937)-JVS(30008)*XX(4938)-JVS(30033)*XX(4939)-JVS(30053)*XX(4940)-JVS(30067)*XX(4941)& - &-JVS(30085)*XX(4942)-JVS(30101)*XX(4943)-JVS(30126)*XX(4944)-JVS(30135)*XX(4945)-JVS(30141)*XX(4946)& - &-JVS(30169)*XX(4947)-JVS(30179)*XX(4948)-JVS(30200)*XX(4949)-JVS(30210)*XX(4950)-JVS(30224)*XX(4951)& - &-JVS(30237)*XX(4952)-JVS(30251)*XX(4953)-JVS(30266)*XX(4954)-JVS(30276)*XX(4955)-JVS(30288)*XX(4956)& - &-JVS(30298)*XX(4957)-JVS(30328)*XX(4958)-JVS(30346)*XX(4959)-JVS(30358)*XX(4960)-JVS(30373)*XX(4961)& - &-JVS(30387)*XX(4962)-JVS(30399)*XX(4963)-JVS(30420)*XX(4964)-JVS(30436)*XX(4965)-JVS(30456)*XX(4966)& - &-JVS(30469)*XX(4967)-JVS(30477)*XX(4968)-JVS(30491)*XX(4969)-JVS(30507)*XX(4971)-JVS(30515)*XX(4972)& - &-JVS(30547)*XX(4973)-JVS(30556)*XX(4974)-JVS(30569)*XX(4975)-JVS(30584)*XX(4977)-JVS(30602)*XX(4978)& - &-JVS(30614)*XX(4979)-JVS(30627)*XX(4980)-JVS(30647)*XX(4981)-JVS(30657)*XX(4982)-JVS(30698)*XX(4983)& - &-JVS(30711)*XX(4984)-JVS(30727)*XX(4985)-JVS(30755)*XX(4986)-JVS(30766)*XX(4987)-JVS(30784)*XX(4989)& - &-JVS(30797)*XX(4990)-JVS(30822)*XX(4991)-JVS(30833)*XX(4992)-JVS(30843)*XX(4993)-JVS(30854)*XX(4994)& - &-JVS(30880)*XX(4995)-JVS(30898)*XX(4996)-JVS(30908)*XX(4997)-JVS(30919)*XX(4998)-JVS(30931)*XX(4999)& - &-JVS(30975)*XX(5000)-JVS(31008)*XX(5001)-JVS(31027)*XX(5003)-JVS(31054)*XX(5004)-JVS(31067)*XX(5005)& - &-JVS(31094)*XX(5006)-JVS(31112)*XX(5007)-JVS(31128)*XX(5008)-JVS(31144)*XX(5009)-JVS(31162)*XX(5010)& - &-JVS(31187)*XX(5011)-JVS(31208)*XX(5012)-JVS(31217)*XX(5013)-JVS(31228)*XX(5014)-JVS(31238)*XX(5015)& - &-JVS(31255)*XX(5016)-JVS(31270)*XX(5017)-JVS(31286)*XX(5018)-JVS(31298)*XX(5019)-JVS(31311)*XX(5020)& - &-JVS(31322)*XX(5021)-JVS(31332)*XX(5022)-JVS(31368)*XX(5023)-JVS(31379)*XX(5024)-JVS(31387)*XX(5025)& - &-JVS(31414)*XX(5026)-JVS(31426)*XX(5027)-JVS(31436)*XX(5028)-JVS(31455)*XX(5029)-JVS(31466)*XX(5030)& - &-JVS(31508)*XX(5031)-JVS(31519)*XX(5032)-JVS(31526)*XX(5033)-JVS(31542)*XX(5034)-JVS(31553)*XX(5035)& - &-JVS(31570)*XX(5036)-JVS(31591)*XX(5037)-JVS(31622)*XX(5038)-JVS(31642)*XX(5039)-JVS(31654)*XX(5040)& - &-JVS(31664)*XX(5041)-JVS(31681)*XX(5042)-JVS(31692)*XX(5043)-JVS(31707)*XX(5044)-JVS(31717)*XX(5045)& - &-JVS(31807)*XX(5046)-JVS(31821)*XX(5047)-JVS(31830)*XX(5048)-JVS(31844)*XX(5049)-JVS(31855)*XX(5050)& - &-JVS(31875)*XX(5052)-JVS(31897)*XX(5053)-JVS(31912)*XX(5054)-JVS(31939)*XX(5055)-JVS(31948)*XX(5056)& - &-JVS(31971)*XX(5057)-JVS(31992)*XX(5058)-JVS(32030)*XX(5059)-JVS(32051)*XX(5060)-JVS(32061)*XX(5061)& - &-JVS(32080)*XX(5062)-JVS(32096)*XX(5063)-JVS(32112)*XX(5064)-JVS(32119)*XX(5065)-JVS(32131)*XX(5066)& - &-JVS(32151)*XX(5067)-JVS(32165)*XX(5068)-JVS(32177)*XX(5069)-JVS(32192)*XX(5070)-JVS(32221)*XX(5071)& - &-JVS(32236)*XX(5072)-JVS(32254)*XX(5073)-JVS(32263)*XX(5074)-JVS(32274)*XX(5075)-JVS(32283)*XX(5076)& - &-JVS(32292)*XX(5077)-JVS(32305)*XX(5078)-JVS(32328)*XX(5079)-JVS(32366)*XX(5080)-JVS(32375)*XX(5081)& - &-JVS(32383)*XX(5082)-JVS(32400)*XX(5083)-JVS(32414)*XX(5084)-JVS(32446)*XX(5085)-JVS(32487)*XX(5086)& - &-JVS(32515)*XX(5087)-JVS(32527)*XX(5088)-JVS(32543)*XX(5089)-JVS(32556)*XX(5090)-JVS(32568)*XX(5091)& - &-JVS(32576)*XX(5092)-JVS(32591)*XX(5093)-JVS(32621)*XX(5094)-JVS(32643)*XX(5095)-JVS(32655)*XX(5096)& - &-JVS(32676)*XX(5097)-JVS(32712)*XX(5098)-JVS(32728)*XX(5099)-JVS(32763)*XX(5100)-JVS(32794)*XX(5101)& - &-JVS(32812)*XX(5102)-JVS(32827)*XX(5103)-JVS(32853)*XX(5104)-JVS(32874)*XX(5105)-JVS(32919)*XX(5106)& - &-JVS(32929)*XX(5107)-JVS(32940)*XX(5108)-JVS(32948)*XX(5109)-JVS(32978)*XX(5110)-JVS(32998)*XX(5111)& - &-JVS(33009)*XX(5112)-JVS(33025)*XX(5113)-JVS(33037)*XX(5114)-JVS(33056)*XX(5115)-JVS(33073)*XX(5116)& - &-JVS(33096)*XX(5117)-JVS(33107)*XX(5118)-JVS(33117)*XX(5119)-JVS(33129)*XX(5120)-JVS(33153)*XX(5121)& - &-JVS(33167)*XX(5122)-JVS(33205)*XX(5123)-JVS(33222)*XX(5124)-JVS(33296)*XX(5125)-JVS(33319)*XX(5126)& - &-JVS(33333)*XX(5127)-JVS(33350)*XX(5128)-JVS(33386)*XX(5129)-JVS(33412)*XX(5130)-JVS(33434)*XX(5131)& - &-JVS(33444)*XX(5132)-JVS(33458)*XX(5133)-JVS(33477)*XX(5134)-JVS(33490)*XX(5135)-JVS(33519)*XX(5136)& - &-JVS(33569)*XX(5137)-JVS(33578)*XX(5138)-JVS(33711)*XX(5139)-JVS(33733)*XX(5140)-JVS(33754)*XX(5141)& - &-JVS(33825)*XX(5142)-JVS(33894)*XX(5143)-JVS(33904)*XX(5144)-JVS(33954)*XX(5145)-JVS(33964)*XX(5146)& - &-JVS(33980)*XX(5147)-JVS(34000)*XX(5148)-JVS(34024)*XX(5149)-JVS(34044)*XX(5150)-JVS(34065)*XX(5151)& - &-JVS(34113)*XX(5152)-JVS(34124)*XX(5153)-JVS(34133)*XX(5154)-JVS(34149)*XX(5155)-JVS(34171)*XX(5156)& - &-JVS(34193)*XX(5157)-JVS(34248)*XX(5158)-JVS(34262)*XX(5159)-JVS(34510)*XX(5160)-JVS(34547)*XX(5161)& - &-JVS(34571)*XX(5162)-JVS(34586)*XX(5163)-JVS(34615)*XX(5164)-JVS(34657)*XX(5165)-JVS(34681)*XX(5167)& - &-JVS(34693)*XX(5168)-JVS(34712)*XX(5169)-JVS(34747)*XX(5170)-JVS(34782)*XX(5171)-JVS(34816)*XX(5172)& - &-JVS(34830)*XX(5173)-JVS(34840)*XX(5174)-JVS(34850)*XX(5175)-JVS(34877)*XX(5176)-JVS(34906)*XX(5177)& - &-JVS(34959)*XX(5178)-JVS(35003)*XX(5179)-JVS(35044)*XX(5180)-JVS(35054)*XX(5181)-JVS(35139)*XX(5182)& - &-JVS(35353)*XX(5183)-JVS(35413)*XX(5184)-JVS(35435)*XX(5185)-JVS(35443)*XX(5186)-JVS(35451)*XX(5187)& - &-JVS(35563)*XX(5188)-JVS(35583)*XX(5189)-JVS(35593)*XX(5190)-JVS(35700)*XX(5191)-JVS(35715)*XX(5192)& - &-JVS(36006)*XX(5193)-JVS(36041)*XX(5194)-JVS(36103)*XX(5195)-JVS(36120)*XX(5196)-JVS(36179)*XX(5197)& - &-JVS(36196)*XX(5198)-JVS(36270)*XX(5199)-JVS(36291)*XX(5200)-JVS(36756)*XX(5201)-JVS(36798)*XX(5202)& - &-JVS(36849)*XX(5203)-JVS(36860)*XX(5204)-JVS(36875)*XX(5205)-JVS(36885)*XX(5206)-JVS(36905)*XX(5207)& - &-JVS(36933)*XX(5208)-JVS(36959)*XX(5209)-JVS(37032)*XX(5210)-JVS(37075)*XX(5211)-JVS(37092)*XX(5212)& - &-JVS(37115)*XX(5213)-JVS(37193)*XX(5214)-JVS(37222)*XX(5215)-JVS(37277)*XX(5216)-JVS(37288)*XX(5217)& - &-JVS(37299)*XX(5218)-JVS(37311)*XX(5219)-JVS(37329)*XX(5220)-JVS(37365)*XX(5221)-JVS(37666)*XX(5222)& - &-JVS(37723)*XX(5223)-JVS(37743)*XX(5224)-JVS(37780)*XX(5225)-JVS(37816)*XX(5226)-JVS(37830)*XX(5227)& - &-JVS(37970)*XX(5228)-JVS(38012)*XX(5229)-JVS(38083)*XX(5230)-JVS(38784)*XX(5231)-JVS(38934)*XX(5232)& - &-JVS(39187)*XX(5233)-JVS(39336)*XX(5234)-JVS(39395)*XX(5235)-JVS(39412)*XX(5236)-JVS(39487)*XX(5237)& - &-JVS(39534)*XX(5238)-JVS(39559)*XX(5239)-JVS(39590)*XX(5240)-JVS(39678)*XX(5241)-JVS(39763)*XX(5242)& - &-JVS(39815)*XX(5243)-JVS(40445)*XX(5244)-JVS(40467)*XX(5245)-JVS(40503)*XX(5246)-JVS(40534)*XX(5247)& - &-JVS(40564)*XX(5248)-JVS(40580)*XX(5249)-JVS(45058)*XX(5250)-JVS(46583)*XX(5251))/(JVS(47934)) - XX(5253) = (X(5253)-JVS(343)*XX(86)-JVS(524)*XX(137)-JVS(954)*XX(216)-JVS(1116)*XX(264)-JVS(1551)*XX(387)-JVS(1893)& - &*XX(483)-JVS(3697)*XX(925)-JVS(4344)*XX(1086)-JVS(4738)*XX(1184)-JVS(5477)*XX(1368)-JVS(6643)*XX(1645)& - &-JVS(8042)*XX(1939)-JVS(8355)*XX(2003)-JVS(9428)*XX(2240)-JVS(10569)*XX(2496)-JVS(10577)*XX(2498)-JVS(10585)& - &*XX(2500)-JVS(10604)*XX(2504)-JVS(10608)*XX(2505)-JVS(10634)*XX(2510)-JVS(10638)*XX(2511)-JVS(10658)& - &*XX(2515)-JVS(10669)*XX(2517)-JVS(10673)*XX(2518)-JVS(10693)*XX(2522)-JVS(10697)*XX(2523)-JVS(10705)& - &*XX(2525)-JVS(10716)*XX(2527)-JVS(10729)*XX(2529)-JVS(10733)*XX(2530)-JVS(10737)*XX(2531)-JVS(10745)& - &*XX(2533)-JVS(10767)*XX(2537)-JVS(10771)*XX(2538)-JVS(10811)*XX(2546)-JVS(10848)*XX(2552)-JVS(10883)& - &*XX(2560)-JVS(10910)*XX(2564)-JVS(10925)*XX(2567)-JVS(10933)*XX(2569)-JVS(10941)*XX(2571)-JVS(10949)& - &*XX(2573)-JVS(10970)*XX(2576)-JVS(10988)*XX(2579)-JVS(11003)*XX(2582)-JVS(11007)*XX(2583)-JVS(11011)& - &*XX(2584)-JVS(11026)*XX(2587)-JVS(11064)*XX(2593)-JVS(11092)*XX(2597)-JVS(11110)*XX(2600)-JVS(11137)& - &*XX(2606)-JVS(11148)*XX(2608)-JVS(11160)*XX(2611)-JVS(11164)*XX(2612)-JVS(11168)*XX(2613)-JVS(11180)& - &*XX(2615)-JVS(11196)*XX(2619)-JVS(11200)*XX(2620)-JVS(11208)*XX(2622)-JVS(11243)*XX(2630)-JVS(11247)& - &*XX(2631)-JVS(11251)*XX(2632)-JVS(11268)*XX(2635)-JVS(11272)*XX(2636)-JVS(11276)*XX(2637)-JVS(11296)& - &*XX(2640)-JVS(11316)*XX(2643)-JVS(11351)*XX(2648)-JVS(11359)*XX(2650)-JVS(11363)*XX(2651)-JVS(11379)& - &*XX(2655)-JVS(11383)*XX(2656)-JVS(11387)*XX(2657)-JVS(11391)*XX(2658)-JVS(11403)*XX(2660)-JVS(11419)& - &*XX(2663)-JVS(11432)*XX(2666)-JVS(11450)*XX(2669)-JVS(11454)*XX(2670)-JVS(11458)*XX(2671)-JVS(11470)& - &*XX(2674)-JVS(11474)*XX(2675)-JVS(11485)*XX(2677)-JVS(11489)*XX(2678)-JVS(11506)*XX(2681)-JVS(11517)& - &*XX(2683)-JVS(11521)*XX(2684)-JVS(11525)*XX(2685)-JVS(11537)*XX(2688)-JVS(11541)*XX(2689)-JVS(11549)& - &*XX(2691)-JVS(11575)*XX(2696)-JVS(11588)*XX(2698)-JVS(11600)*XX(2700)-JVS(11608)*XX(2702)-JVS(11612)& - &*XX(2703)-JVS(11616)*XX(2704)-JVS(11620)*XX(2705)-JVS(11638)*XX(2708)-JVS(11660)*XX(2712)-JVS(11693)& - &*XX(2718)-JVS(11714)*XX(2721)-JVS(11737)*XX(2725)-JVS(11741)*XX(2726)-JVS(11756)*XX(2729)-JVS(11791)& - &*XX(2735)-JVS(11806)*XX(2738)-JVS(11832)*XX(2743)-JVS(11906)*XX(2755)-JVS(11910)*XX(2756)-JVS(11914)& - &*XX(2757)-JVS(11955)*XX(2765)-JVS(11996)*XX(2772)-JVS(12025)*XX(2777)-JVS(12029)*XX(2778)-JVS(12033)& - &*XX(2779)-JVS(12037)*XX(2780)-JVS(12041)*XX(2781)-JVS(12055)*XX(2784)-JVS(12063)*XX(2786)-JVS(12067)& - &*XX(2787)-JVS(12086)*XX(2790)-JVS(12090)*XX(2791)-JVS(12094)*XX(2792)-JVS(12098)*XX(2793)-JVS(12102)& - &*XX(2794)-JVS(12113)*XX(2796)-JVS(12132)*XX(2800)-JVS(12136)*XX(2801)-JVS(12148)*XX(2804)-JVS(12169)& - &*XX(2808)-JVS(12183)*XX(2811)-JVS(12191)*XX(2813)-JVS(12199)*XX(2815)-JVS(12242)*XX(2822)-JVS(12246)& - &*XX(2823)-JVS(12254)*XX(2825)-JVS(12278)*XX(2829)-JVS(12282)*XX(2830)-JVS(12300)*XX(2833)-JVS(12338)& - &*XX(2841)-JVS(12342)*XX(2842)-JVS(12346)*XX(2843)-JVS(12350)*XX(2844)-JVS(12354)*XX(2845)-JVS(12358)& - &*XX(2846)-JVS(12370)*XX(2848)-JVS(12381)*XX(2850)-JVS(12392)*XX(2852)-JVS(12423)*XX(2857)-JVS(12434)& - &*XX(2859)-JVS(12438)*XX(2860)-JVS(12452)*XX(2863)-JVS(12456)*XX(2864)-JVS(12467)*XX(2866)-JVS(12471)& - &*XX(2867)-JVS(12494)*XX(2872)-JVS(12515)*XX(2876)-JVS(12519)*XX(2877)-JVS(12527)*XX(2879)-JVS(12531)& - &*XX(2880)-JVS(12542)*XX(2882)-JVS(12546)*XX(2883)-JVS(12550)*XX(2884)-JVS(12554)*XX(2885)-JVS(12558)& - &*XX(2886)-JVS(12562)*XX(2887)-JVS(12612)*XX(2896)-JVS(12623)*XX(2898)-JVS(12635)*XX(2901)-JVS(12653)& - &*XX(2904)-JVS(12672)*XX(2907)-JVS(12720)*XX(2915)-JVS(12753)*XX(2921)-JVS(12769)*XX(2924)-JVS(12773)& - &*XX(2925)-JVS(12790)*XX(2928)-JVS(12794)*XX(2929)-JVS(12867)*XX(2941)-JVS(12886)*XX(2945)-JVS(12897)& - &*XX(2947)-JVS(12901)*XX(2948)-JVS(12913)*XX(2950)-JVS(12917)*XX(2951)-JVS(12945)*XX(2955)-JVS(12949)& - &*XX(2956)-JVS(12953)*XX(2957)-JVS(12957)*XX(2958)-JVS(13031)*XX(2969)-JVS(13035)*XX(2970)-JVS(13073)& - &*XX(2977)-JVS(13077)*XX(2978)-JVS(13090)*XX(2980)-JVS(13114)*XX(2984)-JVS(13129)*XX(2987)-JVS(13133)& - &*XX(2988)-JVS(13196)*XX(2998)-JVS(13224)*XX(3003)-JVS(13243)*XX(3007)-JVS(13247)*XX(3008)-JVS(13260)& - &*XX(3010)-JVS(13264)*XX(3011)-JVS(13268)*XX(3012)-JVS(13281)*XX(3014)-JVS(13296)*XX(3017)-JVS(13304)& - &*XX(3019)-JVS(13308)*XX(3020)-JVS(13312)*XX(3021)-JVS(13320)*XX(3023)-JVS(13324)*XX(3024)-JVS(13328)& - &*XX(3025)-JVS(13332)*XX(3026)-JVS(13351)*XX(3029)-JVS(13411)*XX(3040)-JVS(13423)*XX(3042)-JVS(13435)& - &*XX(3045)-JVS(13443)*XX(3047)-JVS(13467)*XX(3051)-JVS(13471)*XX(3052)-JVS(13475)*XX(3053)-JVS(13490)& - &*XX(3056)-JVS(13507)*XX(3059)-JVS(13511)*XX(3060)-JVS(13515)*XX(3061)-JVS(13526)*XX(3063)-JVS(13571)& - &*XX(3070)-JVS(13603)*XX(3075)-JVS(13655)*XX(3085)-JVS(13667)*XX(3087)-JVS(13672)*XX(3088)-JVS(13699)& - &*XX(3092)-JVS(13704)*XX(3093)-JVS(13714)*XX(3095)-JVS(13725)*XX(3098)-JVS(13735)*XX(3100)-JVS(13740)& - &*XX(3101)-JVS(13803)*XX(3111)-JVS(13808)*XX(3112)-JVS(13816)*XX(3114)-JVS(13827)*XX(3116)-JVS(13848)& - &*XX(3119)-JVS(13853)*XX(3120)-JVS(13874)*XX(3123)-JVS(13886)*XX(3125)-JVS(13899)*XX(3127)-JVS(13916)& - &*XX(3128)-JVS(13956)*XX(3137)-JVS(13968)*XX(3140)-JVS(13978)*XX(3142)-JVS(13983)*XX(3143)-JVS(13994)& - &*XX(3146)-JVS(14014)*XX(3150)-JVS(14026)*XX(3152)-JVS(14031)*XX(3153)-JVS(14066)*XX(3161)-JVS(14071)& - &*XX(3162)-JVS(14076)*XX(3163)-JVS(14085)*XX(3165)-JVS(14098)*XX(3167)-JVS(14114)*XX(3170)-JVS(14159)& - &*XX(3178)-JVS(14171)*XX(3181)-JVS(14205)*XX(3187)-JVS(14215)*XX(3189)-JVS(14220)*XX(3190)-JVS(14225)& - &*XX(3191)-JVS(14260)*XX(3197)-JVS(14268)*XX(3199)-JVS(14290)*XX(3204)-JVS(14298)*XX(3206)-JVS(14332)& - &*XX(3213)-JVS(14357)*XX(3218)-JVS(14367)*XX(3220)-JVS(14371)*XX(3221)-JVS(14379)*XX(3223)-JVS(14383)& - &*XX(3224)-JVS(14404)*XX(3229)-JVS(14417)*XX(3232)-JVS(14448)*XX(3236)-JVS(14460)*XX(3239)-JVS(14488)& - &*XX(3242)-JVS(14537)*XX(3249)-JVS(14562)*XX(3254)-JVS(14577)*XX(3257)-JVS(14581)*XX(3258)-JVS(14589)& - &*XX(3260)-JVS(14647)*XX(3270)-JVS(14668)*XX(3275)-JVS(14700)*XX(3282)-JVS(14745)*XX(3290)-JVS(14753)& - &*XX(3292)-JVS(14757)*XX(3293)-JVS(14792)*XX(3300)-JVS(14808)*XX(3303)-JVS(14819)*XX(3305)-JVS(14824)& - &*XX(3306)-JVS(14828)*XX(3307)-JVS(14846)*XX(3311)-JVS(14850)*XX(3312)-JVS(14854)*XX(3313)-JVS(14862)& - &*XX(3315)-JVS(14866)*XX(3316)-JVS(14870)*XX(3317)-JVS(14874)*XX(3318)-JVS(14894)*XX(3323)-JVS(14898)& - &*XX(3324)-JVS(14910)*XX(3327)-JVS(14983)*XX(3337)-JVS(15064)*XX(3348)-JVS(15079)*XX(3350)-JVS(15112)& - &*XX(3355)-JVS(15129)*XX(3358)-JVS(15175)*XX(3365)-JVS(15329)*XX(3385)-JVS(15381)*XX(3392)-JVS(15448)& - &*XX(3401)-JVS(15500)*XX(3408)-JVS(15689)*XX(3434)-JVS(15698)*XX(3436)-JVS(15790)*XX(3456)-JVS(15816)& - &*XX(3461)-JVS(15875)*XX(3474)-JVS(16149)*XX(3516)-JVS(16228)*XX(3529)-JVS(16251)*XX(3532)-JVS(16359)& - &*XX(3546)-JVS(16444)*XX(3558)-JVS(16451)*XX(3559)-JVS(16513)*XX(3568)-JVS(16806)*XX(3604)-JVS(16922)& - &*XX(3617)-JVS(16945)*XX(3619)-JVS(16988)*XX(3626)-JVS(17013)*XX(3629)-JVS(17082)*XX(3638)-JVS(17099)& - &*XX(3639)-JVS(17128)*XX(3642)-JVS(17150)*XX(3644)-JVS(17858)*XX(3734)-JVS(18361)*XX(3793)-JVS(18941)& - &*XX(3868)-JVS(19143)*XX(3892)-JVS(19463)*XX(3929)-JVS(19498)*XX(3933)-JVS(19700)*XX(3958)-JVS(19864)& - &*XX(3978)-JVS(19989)*XX(3993)-JVS(20029)*XX(3998)-JVS(20049)*XX(4000)-JVS(20091)*XX(4005)-JVS(20160)& - &*XX(4013)-JVS(20272)*XX(4026)-JVS(20364)*XX(4038)-JVS(20392)*XX(4041)-JVS(20447)*XX(4046)-JVS(20472)& - &*XX(4048)-JVS(20491)*XX(4050)-JVS(20506)*XX(4051)-JVS(20517)*XX(4052)-JVS(20906)*XX(4100)-JVS(20917)& - &*XX(4101)-JVS(20927)*XX(4102)-JVS(21189)*XX(4132)-JVS(21247)*XX(4139)-JVS(21366)*XX(4154)-JVS(21479)& - &*XX(4168)-JVS(21546)*XX(4175)-JVS(21607)*XX(4181)-JVS(21618)*XX(4182)-JVS(21634)*XX(4183)-JVS(21642)& - &*XX(4184)-JVS(21670)*XX(4187)-JVS(21716)*XX(4192)-JVS(21725)*XX(4193)-JVS(21734)*XX(4194)-JVS(21743)& - &*XX(4195)-JVS(21756)*XX(4196)-JVS(21774)*XX(4198)-JVS(21788)*XX(4199)-JVS(21797)*XX(4200)-JVS(21817)& - &*XX(4202)-JVS(21827)*XX(4203)-JVS(21836)*XX(4204)-JVS(21845)*XX(4205)-JVS(21854)*XX(4206)-JVS(21864)& - &*XX(4207)-JVS(21875)*XX(4208)-JVS(21884)*XX(4209)-JVS(21893)*XX(4210)-JVS(21912)*XX(4212)-JVS(21920)& - &*XX(4213)-JVS(21932)*XX(4214)-JVS(21941)*XX(4215)-JVS(21955)*XX(4216)-JVS(21964)*XX(4217)-JVS(21976)& - &*XX(4218)-JVS(22001)*XX(4220)-JVS(22014)*XX(4221)-JVS(22024)*XX(4222)-JVS(22047)*XX(4224)-JVS(22056)& - &*XX(4225)-JVS(22069)*XX(4226)-JVS(22079)*XX(4227)-JVS(22090)*XX(4228)-JVS(22100)*XX(4229)-JVS(22110)& - &*XX(4230)-JVS(22131)*XX(4232)-JVS(22141)*XX(4233)-JVS(22180)*XX(4237)-JVS(22225)*XX(4241)-JVS(22244)& - &*XX(4243)-JVS(22262)*XX(4245)-JVS(22271)*XX(4246)-JVS(22279)*XX(4247)-JVS(22313)*XX(4250)-JVS(22333)& - &*XX(4252)-JVS(22346)*XX(4253)-JVS(22365)*XX(4255)-JVS(22386)*XX(4257)-JVS(22394)*XX(4258)-JVS(22403)& - &*XX(4259)-JVS(22413)*XX(4260)-JVS(22434)*XX(4262)-JVS(22452)*XX(4264)-JVS(22462)*XX(4265)-JVS(22472)& - &*XX(4266)-JVS(22483)*XX(4267)-JVS(22502)*XX(4269)-JVS(22521)*XX(4271)-JVS(22535)*XX(4273)-JVS(22554)& - &*XX(4275)-JVS(22563)*XX(4276)-JVS(22609)*XX(4280)-JVS(22618)*XX(4281)-JVS(22626)*XX(4282)-JVS(22635)& - &*XX(4283)-JVS(22654)*XX(4285)-JVS(22662)*XX(4286)-JVS(22671)*XX(4287)-JVS(22680)*XX(4288)-JVS(22689)& - &*XX(4289)-JVS(22702)*XX(4290)-JVS(22711)*XX(4291)-JVS(22720)*XX(4292)-JVS(22729)*XX(4293)-JVS(22765)& - &*XX(4295)-JVS(22774)*XX(4296)-JVS(22783)*XX(4297)-JVS(22792)*XX(4298)-JVS(22805)*XX(4299)-JVS(22827)& - &*XX(4301)-JVS(22835)*XX(4302)-JVS(22844)*XX(4303)-JVS(22853)*XX(4304)-JVS(22862)*XX(4305)-JVS(22871)& - &*XX(4306)-JVS(22880)*XX(4307)-JVS(22893)*XX(4308)-JVS(22935)*XX(4312)-JVS(22959)*XX(4314)-JVS(22971)& - &*XX(4315)-JVS(22982)*XX(4316)-JVS(22991)*XX(4317)-JVS(23013)*XX(4319)-JVS(23021)*XX(4320)-JVS(23059)& - &*XX(4324)-JVS(23074)*XX(4325)-JVS(23118)*XX(4329)-JVS(23124)*XX(4330)-JVS(23149)*XX(4331)-JVS(23203)& - &*XX(4338)-JVS(23242)*XX(4343)-JVS(23321)*XX(4352)-JVS(23450)*XX(4366)-JVS(23521)*XX(4375)-JVS(23534)& - &*XX(4376)-JVS(23567)*XX(4380)-JVS(23631)*XX(4386)-JVS(23680)*XX(4391)-JVS(23700)*XX(4392)-JVS(23790)& - &*XX(4402)-JVS(23836)*XX(4403)-JVS(23848)*XX(4404)-JVS(23857)*XX(4405)-JVS(23868)*XX(4406)-JVS(23877)& - &*XX(4407)-JVS(23887)*XX(4408)-JVS(23898)*XX(4409)-JVS(23930)*XX(4412)-JVS(23939)*XX(4413)-JVS(23949)& - &*XX(4414)-JVS(23958)*XX(4415)-JVS(23979)*XX(4417)-JVS(24001)*XX(4419)-JVS(24049)*XX(4423)-JVS(24058)& - &*XX(4424)-JVS(24067)*XX(4425)-JVS(24086)*XX(4426)-JVS(24096)*XX(4427)-JVS(24105)*XX(4428)-JVS(24128)& - &*XX(4430)-JVS(24140)*XX(4431)-JVS(24160)*XX(4433)-JVS(24169)*XX(4434)-JVS(24189)*XX(4436)-JVS(24198)& - &*XX(4437)-JVS(24208)*XX(4438)-JVS(24219)*XX(4439)-JVS(24241)*XX(4441)-JVS(24254)*XX(4442)-JVS(24266)& - &*XX(4443)-JVS(24275)*XX(4444)-JVS(24286)*XX(4445)-JVS(24306)*XX(4447)-JVS(24331)*XX(4449)-JVS(24343)& - &*XX(4450)-JVS(24352)*XX(4451)-JVS(24362)*XX(4452)-JVS(24371)*XX(4453)-JVS(24381)*XX(4454)-JVS(24391)& - &*XX(4455)-JVS(24401)*XX(4456)-JVS(24410)*XX(4457)-JVS(24420)*XX(4458)-JVS(24440)*XX(4460)-JVS(24461)& - &*XX(4462)-JVS(24469)*XX(4463)-JVS(24478)*XX(4464)-JVS(24497)*XX(4466)-JVS(24507)*XX(4467)-JVS(24517)& - &*XX(4468)-JVS(24527)*XX(4469)-JVS(24537)*XX(4470)-JVS(24546)*XX(4471)-JVS(24556)*XX(4472)-JVS(24605)& - &*XX(4478)-JVS(24615)*XX(4479)-JVS(24657)*XX(4482)-JVS(24679)*XX(4484)-JVS(24694)*XX(4485)-JVS(24706)& - &*XX(4486)-JVS(24715)*XX(4487)-JVS(24739)*XX(4489)-JVS(24756)*XX(4490)-JVS(24813)*XX(4494)-JVS(24823)& - &*XX(4495)-JVS(24834)*XX(4496)-JVS(24847)*XX(4497)-JVS(24856)*XX(4498)-JVS(24865)*XX(4499)-JVS(24875)& - &*XX(4500)-JVS(24889)*XX(4501)-JVS(24898)*XX(4502)-JVS(24909)*XX(4503)-JVS(24918)*XX(4504)-JVS(24935)& - &*XX(4506)-JVS(25011)*XX(4507)-JVS(25025)*XX(4509)-JVS(25047)*XX(4511)-JVS(25070)*XX(4514)-JVS(25081)& - &*XX(4515)-JVS(25090)*XX(4516)-JVS(25100)*XX(4517)-JVS(25110)*XX(4518)-JVS(25121)*XX(4519)-JVS(25131)& - &*XX(4520)-JVS(25143)*XX(4521)-JVS(25153)*XX(4522)-JVS(25163)*XX(4523)-JVS(25180)*XX(4524)-JVS(25192)& - &*XX(4525)-JVS(25200)*XX(4526)-JVS(25247)*XX(4531)-JVS(25283)*XX(4534)-JVS(25308)*XX(4536)-JVS(25321)& - &*XX(4537)-JVS(25331)*XX(4538)-JVS(25343)*XX(4539)-JVS(25361)*XX(4540)-JVS(25389)*XX(4543)-JVS(25400)& - &*XX(4544)-JVS(25453)*XX(4548)-JVS(25485)*XX(4551)-JVS(25508)*XX(4553)-JVS(25529)*XX(4556)-JVS(25541)& - &*XX(4557)-JVS(25561)*XX(4559)-JVS(25575)*XX(4560)-JVS(25614)*XX(4564)-JVS(25848)*XX(4591)-JVS(25861)& - &*XX(4592)-JVS(25976)*XX(4602)-JVS(26039)*XX(4611)-JVS(26052)*XX(4612)-JVS(26063)*XX(4613)-JVS(26075)& - &*XX(4614)-JVS(26117)*XX(4618)-JVS(26142)*XX(4620)-JVS(26150)*XX(4621)-JVS(26175)*XX(4622)-JVS(26184)& - &*XX(4623)-JVS(26199)*XX(4624)-JVS(26217)*XX(4626)-JVS(26227)*XX(4627)-JVS(26236)*XX(4628)-JVS(26246)& - &*XX(4629)-JVS(26269)*XX(4631)-JVS(26279)*XX(4632)-JVS(26289)*XX(4633)-JVS(26299)*XX(4634)-JVS(26308)& - &*XX(4635)-JVS(26318)*XX(4636)-JVS(26336)*XX(4638)-JVS(26345)*XX(4639)-JVS(26365)*XX(4641)-JVS(26376)& - &*XX(4642)-JVS(26385)*XX(4643)-JVS(26447)*XX(4649)-JVS(26471)*XX(4651)-JVS(26482)*XX(4652)-JVS(26491)& - &*XX(4653)-JVS(26500)*XX(4654)-JVS(26510)*XX(4655)-JVS(26519)*XX(4656)-JVS(26529)*XX(4657)-JVS(26542)& - &*XX(4658)-JVS(26552)*XX(4659)-JVS(26561)*XX(4660)-JVS(26580)*XX(4662)-JVS(26590)*XX(4663)-JVS(26608)& - &*XX(4664)-JVS(26617)*XX(4665)-JVS(26633)*XX(4666)-JVS(26644)*XX(4667)-JVS(26653)*XX(4668)-JVS(26674)& - &*XX(4670)-JVS(26685)*XX(4671)-JVS(26700)*XX(4672)-JVS(26713)*XX(4673)-JVS(26732)*XX(4675)-JVS(26743)& - &*XX(4676)-JVS(26752)*XX(4677)-JVS(26759)*XX(4678)-JVS(26769)*XX(4679)-JVS(26778)*XX(4680)-JVS(26789)& - &*XX(4681)-JVS(26799)*XX(4682)-JVS(26819)*XX(4684)-JVS(26828)*XX(4685)-JVS(26842)*XX(4686)-JVS(26856)& - &*XX(4687)-JVS(26886)*XX(4690)-JVS(26894)*XX(4691)-JVS(26903)*XX(4692)-JVS(26987)*XX(4693)-JVS(27008)& - &*XX(4694)-JVS(27151)*XX(4710)-JVS(27305)*XX(4726)-JVS(27372)*XX(4731)-JVS(27426)*XX(4737)-JVS(27437)& - &*XX(4738)-JVS(27449)*XX(4739)-JVS(27463)*XX(4740)-JVS(27476)*XX(4741)-JVS(27488)*XX(4742)-JVS(27508)& - &*XX(4744)-JVS(27521)*XX(4745)-JVS(27564)*XX(4748)-JVS(27579)*XX(4749)-JVS(27589)*XX(4750)-JVS(27599)& - &*XX(4751)-JVS(27614)*XX(4752)-JVS(27626)*XX(4753)-JVS(27649)*XX(4755)-JVS(27668)*XX(4757)-JVS(27688)& - &*XX(4759)-JVS(27709)*XX(4760)-JVS(27755)*XX(4764)-JVS(27805)*XX(4768)-JVS(27818)*XX(4769)-JVS(27829)& - &*XX(4770)-JVS(27839)*XX(4771)-JVS(27850)*XX(4772)-JVS(27862)*XX(4773)-JVS(27886)*XX(4775)-JVS(27894)& - &*XX(4776)-JVS(27981)*XX(4787)-JVS(27991)*XX(4788)-JVS(28013)*XX(4790)-JVS(28024)*XX(4791)-JVS(28040)& - &*XX(4792)-JVS(28065)*XX(4795)-JVS(28146)*XX(4796)-JVS(28157)*XX(4797)-JVS(28170)*XX(4798)-JVS(28223)& - &*XX(4801)-JVS(28267)*XX(4806)-JVS(28276)*XX(4807)-JVS(28287)*XX(4808)-JVS(28307)*XX(4810)-JVS(28332)& - &*XX(4812)-JVS(28342)*XX(4813)-JVS(28365)*XX(4815)-JVS(28374)*XX(4816)-JVS(28393)*XX(4818)-JVS(28401)& - &*XX(4819)-JVS(28431)*XX(4822)-JVS(28452)*XX(4823)-JVS(28461)*XX(4824)-JVS(28480)*XX(4826)-JVS(28499)& - &*XX(4828)-JVS(28508)*XX(4829)-JVS(28520)*XX(4830)-JVS(28537)*XX(4831)-JVS(28557)*XX(4833)-JVS(28590)& - &*XX(4836)-JVS(28609)*XX(4838)-JVS(28627)*XX(4839)-JVS(28647)*XX(4841)-JVS(28672)*XX(4842)-JVS(28682)& - &*XX(4843)-JVS(28721)*XX(4846)-JVS(28738)*XX(4847)-JVS(28750)*XX(4848)-JVS(28766)*XX(4849)-JVS(28788)& - &*XX(4850)-JVS(28819)*XX(4852)-JVS(28835)*XX(4853)-JVS(28849)*XX(4854)-JVS(28862)*XX(4855)-JVS(28886)& - &*XX(4857)-JVS(28897)*XX(4858)-JVS(28907)*XX(4859)-JVS(28919)*XX(4860)-JVS(28942)*XX(4862)-JVS(28955)& - &*XX(4863)-JVS(28972)*XX(4864)-JVS(28992)*XX(4865)-JVS(29004)*XX(4866)-JVS(29018)*XX(4867)-JVS(29027)& - &*XX(4868)-JVS(29038)*XX(4869)-JVS(29053)*XX(4870)-JVS(29085)*XX(4872)-JVS(29098)*XX(4873)-JVS(29115)& - &*XX(4874)-JVS(29129)*XX(4875)-JVS(29236)*XX(4887)-JVS(29247)*XX(4888)-JVS(29278)*XX(4891)-JVS(29287)& - &*XX(4892)-JVS(29299)*XX(4893)-JVS(29341)*XX(4897)-JVS(29354)*XX(4898)-JVS(29376)*XX(4900)-JVS(29409)& - &*XX(4902)-JVS(29451)*XX(4904)-JVS(29463)*XX(4905)-JVS(29472)*XX(4906)-JVS(29486)*XX(4908)-JVS(29519)& - &*XX(4909)-JVS(29541)*XX(4910)-JVS(29562)*XX(4912)-JVS(29592)*XX(4914)-JVS(29605)*XX(4915)-JVS(29625)& - &*XX(4916)-JVS(29640)*XX(4917)-JVS(29674)*XX(4918)-JVS(29685)*XX(4919)-JVS(29715)*XX(4921)-JVS(29753)& - &*XX(4924)-JVS(29773)*XX(4926)-JVS(29811)*XX(4929)-JVS(29826)*XX(4930)-JVS(29860)*XX(4931)-JVS(29888)& - &*XX(4934)-JVS(29898)*XX(4935)-JVS(29913)*XX(4936)-JVS(30009)*XX(4938)-JVS(30034)*XX(4939)-JVS(30054)& - &*XX(4940)-JVS(30068)*XX(4941)-JVS(30086)*XX(4942)-JVS(30102)*XX(4943)-JVS(30127)*XX(4944)-JVS(30142)& - &*XX(4946)-JVS(30170)*XX(4947)-JVS(30180)*XX(4948)-JVS(30201)*XX(4949)-JVS(30252)*XX(4953)-JVS(30267)& - &*XX(4954)-JVS(30277)*XX(4955)-JVS(30289)*XX(4956)-JVS(30299)*XX(4957)-JVS(30329)*XX(4958)-JVS(30347)& - &*XX(4959)-JVS(30359)*XX(4960)-JVS(30374)*XX(4961)-JVS(30388)*XX(4962)-JVS(30400)*XX(4963)-JVS(30421)& - &*XX(4964)-JVS(30437)*XX(4965)-JVS(30457)*XX(4966)-JVS(30478)*XX(4968)-JVS(30492)*XX(4969)-JVS(30548)& - &*XX(4973)-JVS(30585)*XX(4977)-JVS(30603)*XX(4978)-JVS(30615)*XX(4979)-JVS(30628)*XX(4980)-JVS(30648)& - &*XX(4981)-JVS(30699)*XX(4983)-JVS(30712)*XX(4984)-JVS(30728)*XX(4985)-JVS(30756)*XX(4986)-JVS(30785)& - &*XX(4989)-JVS(30798)*XX(4990)-JVS(30823)*XX(4991)-JVS(30834)*XX(4992)-JVS(30844)*XX(4993)-JVS(30855)& - &*XX(4994)-JVS(30881)*XX(4995)-JVS(30909)*XX(4997)-JVS(30920)*XX(4998)-JVS(30932)*XX(4999)-JVS(30976)& - &*XX(5000)-JVS(31009)*XX(5001)-JVS(31028)*XX(5003)-JVS(31055)*XX(5004)-JVS(31068)*XX(5005)-JVS(31095)& - &*XX(5006)-JVS(31113)*XX(5007)-JVS(31129)*XX(5008)-JVS(31145)*XX(5009)-JVS(31188)*XX(5011)-JVS(31209)& - &*XX(5012)-JVS(31229)*XX(5014)-JVS(31256)*XX(5016)-JVS(31271)*XX(5017)-JVS(31287)*XX(5018)-JVS(31299)& - &*XX(5019)-JVS(31312)*XX(5020)-JVS(31323)*XX(5021)-JVS(31369)*XX(5023)-JVS(31388)*XX(5025)-JVS(31415)& - &*XX(5026)-JVS(31427)*XX(5027)-JVS(31456)*XX(5029)-JVS(31509)*XX(5031)-JVS(31527)*XX(5033)-JVS(31543)& - &*XX(5034)-JVS(31571)*XX(5036)-JVS(31592)*XX(5037)-JVS(31623)*XX(5038)-JVS(31643)*XX(5039)-JVS(31655)& - &*XX(5040)-JVS(31665)*XX(5041)-JVS(31682)*XX(5042)-JVS(31693)*XX(5043)-JVS(31708)*XX(5044)-JVS(31808)& - &*XX(5046)-JVS(31822)*XX(5047)-JVS(31831)*XX(5048)-JVS(31876)*XX(5052)-JVS(31913)*XX(5054)-JVS(31940)& - &*XX(5055)-JVS(31972)*XX(5057)-JVS(31993)*XX(5058)-JVS(32031)*XX(5059)-JVS(32052)*XX(5060)-JVS(32081)& - &*XX(5062)-JVS(32132)*XX(5066)-JVS(32152)*XX(5067)-JVS(32166)*XX(5068)-JVS(32193)*XX(5070)-JVS(32222)& - &*XX(5071)-JVS(32237)*XX(5072)-JVS(32255)*XX(5073)-JVS(32275)*XX(5075)-JVS(32306)*XX(5078)-JVS(32329)& - &*XX(5079)-JVS(32367)*XX(5080)-JVS(32401)*XX(5083)-JVS(32415)*XX(5084)-JVS(32447)*XX(5085)-JVS(32488)& - &*XX(5086)-JVS(32516)*XX(5087)-JVS(32528)*XX(5088)-JVS(32544)*XX(5089)-JVS(32557)*XX(5090)-JVS(32577)& - &*XX(5092)-JVS(32622)*XX(5094)-JVS(32644)*XX(5095)-JVS(32656)*XX(5096)-JVS(32677)*XX(5097)-JVS(32713)& - &*XX(5098)-JVS(32729)*XX(5099)-JVS(32764)*XX(5100)-JVS(32795)*XX(5101)-JVS(32813)*XX(5102)-JVS(32828)& - &*XX(5103)-JVS(32854)*XX(5104)-JVS(32875)*XX(5105)-JVS(32920)*XX(5106)-JVS(32999)*XX(5111)-JVS(33026)& - &*XX(5113)-JVS(33038)*XX(5114)-JVS(33057)*XX(5115)-JVS(33074)*XX(5116)-JVS(33097)*XX(5117)-JVS(33130)& - &*XX(5120)-JVS(33154)*XX(5121)-JVS(33168)*XX(5122)-JVS(33206)*XX(5123)-JVS(33297)*XX(5125)-JVS(33320)& - &*XX(5126)-JVS(33351)*XX(5128)-JVS(33387)*XX(5129)-JVS(33413)*XX(5130)-JVS(33435)*XX(5131)-JVS(33459)& - &*XX(5133)-JVS(33478)*XX(5134)-JVS(33491)*XX(5135)-JVS(33520)*XX(5136)-JVS(33570)*XX(5137)-JVS(33712)& - &*XX(5139)-JVS(33734)*XX(5140)-JVS(33755)*XX(5141)-JVS(33826)*XX(5142)-JVS(33895)*XX(5143)-JVS(33955)& - &*XX(5145)-JVS(33981)*XX(5147)-JVS(34001)*XX(5148)-JVS(34025)*XX(5149)-JVS(34045)*XX(5150)-JVS(34066)& - &*XX(5151)-JVS(34114)*XX(5152)-JVS(34150)*XX(5155)-JVS(34172)*XX(5156)-JVS(34194)*XX(5157)-JVS(34249)& - &*XX(5158)-JVS(34511)*XX(5160)-JVS(34548)*XX(5161)-JVS(34572)*XX(5162)-JVS(34587)*XX(5163)-JVS(34616)& - &*XX(5164)-JVS(34658)*XX(5165)-JVS(34682)*XX(5167)-JVS(34713)*XX(5169)-JVS(34748)*XX(5170)-JVS(34783)& - &*XX(5171)-JVS(34817)*XX(5172)-JVS(34878)*XX(5176)-JVS(34907)*XX(5177)-JVS(34960)*XX(5178)-JVS(35004)& - &*XX(5179)-JVS(35045)*XX(5180)-JVS(35140)*XX(5182)-JVS(35354)*XX(5183)-JVS(35414)*XX(5184)-JVS(35436)& - &*XX(5185)-JVS(35452)*XX(5187)-JVS(35564)*XX(5188)-JVS(35584)*XX(5189)-JVS(35701)*XX(5191)-JVS(35716)& - &*XX(5192)-JVS(36007)*XX(5193)-JVS(36042)*XX(5194)-JVS(36104)*XX(5195)-JVS(36121)*XX(5196)-JVS(36180)& - &*XX(5197)-JVS(36197)*XX(5198)-JVS(36271)*XX(5199)-JVS(36292)*XX(5200)-JVS(36757)*XX(5201)-JVS(36799)& - &*XX(5202)-JVS(36850)*XX(5203)-JVS(36886)*XX(5206)-JVS(36906)*XX(5207)-JVS(36934)*XX(5208)-JVS(37033)& - &*XX(5210)-JVS(37076)*XX(5211)-JVS(37093)*XX(5212)-JVS(37116)*XX(5213)-JVS(37194)*XX(5214)-JVS(37223)& - &*XX(5215)-JVS(37278)*XX(5216)-JVS(37366)*XX(5221)-JVS(37667)*XX(5222)-JVS(37724)*XX(5223)-JVS(37744)& - &*XX(5224)-JVS(37781)*XX(5225)-JVS(37817)*XX(5226)-JVS(37831)*XX(5227)-JVS(37971)*XX(5228)-JVS(38013)& - &*XX(5229)-JVS(38084)*XX(5230)-JVS(38785)*XX(5231)-JVS(38935)*XX(5232)-JVS(39188)*XX(5233)-JVS(39337)& - &*XX(5234)-JVS(39396)*XX(5235)-JVS(39413)*XX(5236)-JVS(39488)*XX(5237)-JVS(39535)*XX(5238)-JVS(39560)& - &*XX(5239)-JVS(39591)*XX(5240)-JVS(39679)*XX(5241)-JVS(39764)*XX(5242)-JVS(39816)*XX(5243)-JVS(40446)& - &*XX(5244)-JVS(40468)*XX(5245)-JVS(40504)*XX(5246)-JVS(40535)*XX(5247)-JVS(40565)*XX(5248)-JVS(40581)& - &*XX(5249)-JVS(45059)*XX(5250)-JVS(46584)*XX(5251)-JVS(47935)*XX(5252))/(JVS(50211)) - XX(5254) = (X(5254)-JVS(57)*XX(3)-JVS(62)*XX(5)-JVS(16150)*XX(3516)-JVS(16445)*XX(3558)-JVS(16514)*XX(3568)-JVS(16923)& - &*XX(3617)-JVS(17083)*XX(3638)-JVS(21921)*XX(4213)-JVS(22280)*XX(4247)-JVS(22314)*XX(4250)-JVS(22395)& - &*XX(4258)-JVS(22453)*XX(4264)-JVS(22627)*XX(4282)-JVS(22663)*XX(4286)-JVS(22836)*XX(4302)-JVS(23022)& - &*XX(4320)-JVS(25201)*XX(4526)-JVS(25401)*XX(4544)-JVS(25486)*XX(4551)-JVS(25530)*XX(4556)-JVS(26151)& - &*XX(4621)-JVS(26472)*XX(4651)-JVS(26654)*XX(4668)-JVS(26753)*XX(4677)-JVS(26760)*XX(4678)-JVS(26895)& - &*XX(4691)-JVS(27477)*XX(4741)-JVS(27600)*XX(4751)-JVS(27669)*XX(4757)-JVS(27895)*XX(4776)-JVS(28402)& - &*XX(4819)-JVS(28462)*XX(4824)-JVS(28500)*XX(4828)-JVS(28538)*XX(4831)-JVS(28610)*XX(4838)-JVS(28683)& - &*XX(4843)-JVS(29028)*XX(4868)-JVS(29039)*XX(4869)-JVS(29473)*XX(4906)-JVS(29487)*XX(4908)-JVS(29520)& - &*XX(4909)-JVS(29563)*XX(4912)-JVS(29675)*XX(4918)-JVS(29686)*XX(4919)-JVS(29812)*XX(4929)-JVS(29861)& - &*XX(4931)-JVS(30010)*XX(4938)-JVS(30055)*XX(4940)-JVS(30069)*XX(4941)-JVS(30103)*XX(4943)-JVS(30290)& - &*XX(4956)-JVS(30330)*XX(4958)-JVS(30401)*XX(4963)-JVS(30422)*XX(4964)-JVS(30438)*XX(4965)-JVS(30910)& - &*XX(4997)-JVS(30921)*XX(4998)-JVS(30933)*XX(4999)-JVS(30977)*XX(5000)-JVS(31288)*XX(5018)-JVS(31370)& - &*XX(5023)-JVS(31644)*XX(5039)-JVS(31656)*XX(5040)-JVS(31809)*XX(5046)-JVS(31823)*XX(5047)-JVS(31832)& - &*XX(5048)-JVS(32032)*XX(5059)-JVS(32194)*XX(5070)-JVS(32578)*XX(5092)-JVS(32814)*XX(5102)-JVS(32921)& - &*XX(5106)-JVS(33169)*XX(5122)-JVS(33298)*XX(5125)-JVS(33436)*XX(5131)-JVS(33713)*XX(5139)-JVS(33827)& - &*XX(5142)-JVS(33956)*XX(5145)-JVS(34173)*XX(5156)-JVS(34512)*XX(5160)-JVS(34659)*XX(5165)-JVS(34714)& - &*XX(5169)-JVS(34749)*XX(5170)-JVS(34879)*XX(5176)-JVS(34961)*XX(5178)-JVS(35005)*XX(5179)-JVS(35046)& - &*XX(5180)-JVS(35141)*XX(5182)-JVS(35355)*XX(5183)-JVS(35565)*XX(5188)-JVS(35702)*XX(5191)-JVS(36008)& - &*XX(5193)-JVS(36043)*XX(5194)-JVS(36105)*XX(5195)-JVS(36122)*XX(5196)-JVS(36181)*XX(5197)-JVS(36198)& - &*XX(5198)-JVS(36272)*XX(5199)-JVS(36758)*XX(5201)-JVS(36800)*XX(5202)-JVS(36851)*XX(5203)-JVS(36935)& - &*XX(5208)-JVS(37034)*XX(5210)-JVS(37077)*XX(5211)-JVS(37094)*XX(5212)-JVS(37117)*XX(5213)-JVS(37195)& - &*XX(5214)-JVS(37224)*XX(5215)-JVS(37279)*XX(5216)-JVS(37367)*XX(5221)-JVS(37668)*XX(5222)-JVS(37725)& - &*XX(5223)-JVS(37782)*XX(5225)-JVS(37818)*XX(5226)-JVS(37832)*XX(5227)-JVS(37972)*XX(5228)-JVS(38014)& - &*XX(5229)-JVS(38085)*XX(5230)-JVS(38786)*XX(5231)-JVS(38936)*XX(5232)-JVS(39189)*XX(5233)-JVS(39338)& - &*XX(5234)-JVS(39397)*XX(5235)-JVS(39414)*XX(5236)-JVS(39489)*XX(5237)-JVS(39536)*XX(5238)-JVS(39561)& - &*XX(5239)-JVS(39592)*XX(5240)-JVS(39680)*XX(5241)-JVS(39765)*XX(5242)-JVS(39817)*XX(5243)-JVS(40447)& - &*XX(5244)-JVS(40469)*XX(5245)-JVS(40505)*XX(5246)-JVS(40536)*XX(5247)-JVS(40566)*XX(5248)-JVS(40582)& - &*XX(5249)-JVS(45060)*XX(5250)-JVS(46585)*XX(5251)-JVS(47936)*XX(5252)-JVS(50212)*XX(5253))/(JVS(50320)) - XX(5255) = (X(5255)-JVS(76)*XX(10)-JVS(919)*XX(207)-JVS(929)*XX(210)-JVS(950)*XX(215)-JVS(973)*XX(222)-JVS(989)& - &*XX(227)-JVS(999)*XX(230)-JVS(1022)*XX(237)-JVS(1032)*XX(240)-JVS(1036)*XX(241)-JVS(1066)*XX(251)-JVS(1070)& - &*XX(252)-JVS(1085)*XX(255)-JVS(1095)*XX(258)-JVS(1120)*XX(265)-JVS(1146)*XX(272)-JVS(1156)*XX(275)-JVS(1160)& - &*XX(276)-JVS(1173)*XX(280)-JVS(1180)*XX(282)-JVS(1196)*XX(287)-JVS(1214)*XX(291)-JVS(1224)*XX(294)-JVS(1255)& - &*XX(301)-JVS(1280)*XX(309)-JVS(1335)*XX(324)-JVS(1353)*XX(328)-JVS(1357)*XX(329)-JVS(1361)*XX(330)-JVS(1395)& - &*XX(341)-JVS(1402)*XX(343)-JVS(1427)*XX(351)-JVS(1455)*XX(360)-JVS(1465)*XX(363)-JVS(1469)*XX(364)-JVS(1479)& - &*XX(367)-JVS(1510)*XX(375)-JVS(1514)*XX(376)-JVS(1521)*XX(378)-JVS(1525)*XX(379)-JVS(1541)*XX(384)-JVS(1555)& - &*XX(388)-JVS(1559)*XX(389)-JVS(1572)*XX(393)-JVS(1590)*XX(398)-JVS(1614)*XX(405)-JVS(1647)*XX(414)-JVS(1666)& - &*XX(420)-JVS(1681)*XX(423)-JVS(1712)*XX(433)-JVS(1716)*XX(434)-JVS(1730)*XX(438)-JVS(1774)*XX(449)-JVS(1803)& - &*XX(456)-JVS(1807)*XX(457)-JVS(1814)*XX(459)-JVS(1821)*XX(461)-JVS(1849)*XX(470)-JVS(1864)*XX(474)-JVS(1880)& - &*XX(479)-JVS(1914)*XX(489)-JVS(1923)*XX(491)-JVS(1927)*XX(492)-JVS(1940)*XX(496)-JVS(1950)*XX(499)-JVS(1963)& - &*XX(503)-JVS(1973)*XX(506)-JVS(1977)*XX(507)-JVS(1981)*XX(508)-JVS(2005)*XX(515)-JVS(2015)*XX(518)-JVS(2019)& - &*XX(519)-JVS(2026)*XX(521)-JVS(2187)*XX(562)-JVS(2313)*XX(594)-JVS(2349)*XX(603)-JVS(2384)*XX(611)-JVS(2392)& - &*XX(613)-JVS(2451)*XX(627)-JVS(2470)*XX(631)-JVS(2517)*XX(642)-JVS(2566)*XX(653)-JVS(2665)*XX(677)-JVS(2723)& - &*XX(691)-JVS(2788)*XX(707)-JVS(2799)*XX(709)-JVS(2922)*XX(736)-JVS(2993)*XX(751)-JVS(3269)*XX(818)-JVS(3284)& - &*XX(822)-JVS(3288)*XX(823)-JVS(3292)*XX(824)-JVS(3296)*XX(825)-JVS(3300)*XX(826)-JVS(3304)*XX(827)-JVS(3308)& - &*XX(828)-JVS(3312)*XX(829)-JVS(3316)*XX(830)-JVS(3320)*XX(831)-JVS(3324)*XX(832)-JVS(3328)*XX(833)-JVS(3332)& - &*XX(834)-JVS(3336)*XX(835)-JVS(3340)*XX(836)-JVS(3344)*XX(837)-JVS(3348)*XX(838)-JVS(3352)*XX(839)-JVS(3360)& - &*XX(841)-JVS(3364)*XX(842)-JVS(3368)*XX(843)-JVS(3372)*XX(844)-JVS(3376)*XX(845)-JVS(3380)*XX(846)-JVS(3388)& - &*XX(848)-JVS(3392)*XX(849)-JVS(3396)*XX(850)-JVS(3400)*XX(851)-JVS(3404)*XX(852)-JVS(3408)*XX(853)-JVS(3412)& - &*XX(854)-JVS(3416)*XX(855)-JVS(3420)*XX(856)-JVS(3424)*XX(857)-JVS(3428)*XX(858)-JVS(3432)*XX(859)-JVS(3436)& - &*XX(860)-JVS(3440)*XX(861)-JVS(3448)*XX(863)-JVS(3452)*XX(864)-JVS(3456)*XX(865)-JVS(3460)*XX(866)-JVS(3464)& - &*XX(867)-JVS(3468)*XX(868)-JVS(3472)*XX(869)-JVS(3476)*XX(870)-JVS(3480)*XX(871)-JVS(3484)*XX(872)-JVS(3488)& - &*XX(873)-JVS(3496)*XX(875)-JVS(3500)*XX(876)-JVS(3504)*XX(877)-JVS(3508)*XX(878)-JVS(3512)*XX(879)-JVS(3516)& - &*XX(880)-JVS(3520)*XX(881)-JVS(3524)*XX(882)-JVS(3528)*XX(883)-JVS(3532)*XX(884)-JVS(3536)*XX(885)-JVS(3540)& - &*XX(886)-JVS(3544)*XX(887)-JVS(3548)*XX(888)-JVS(3552)*XX(889)-JVS(3556)*XX(890)-JVS(3560)*XX(891)-JVS(3564)& - &*XX(892)-JVS(3568)*XX(893)-JVS(3572)*XX(894)-JVS(3584)*XX(897)-JVS(3588)*XX(898)-JVS(3592)*XX(899)-JVS(3596)& - &*XX(900)-JVS(3600)*XX(901)-JVS(3604)*XX(902)-JVS(3608)*XX(903)-JVS(3612)*XX(904)-JVS(3620)*XX(906)-JVS(3624)& - &*XX(907)-JVS(3628)*XX(908)-JVS(3632)*XX(909)-JVS(3636)*XX(910)-JVS(3646)*XX(912)-JVS(3650)*XX(913)-JVS(3654)& - &*XX(914)-JVS(3658)*XX(915)-JVS(3662)*XX(916)-JVS(3666)*XX(917)-JVS(3670)*XX(918)-JVS(3674)*XX(919)-JVS(3678)& - &*XX(920)-JVS(3682)*XX(921)-JVS(3686)*XX(922)-JVS(3690)*XX(923)-JVS(3694)*XX(924)-JVS(3698)*XX(925)-JVS(3706)& - &*XX(927)-JVS(3710)*XX(928)-JVS(3714)*XX(929)-JVS(3718)*XX(930)-JVS(3722)*XX(931)-JVS(3726)*XX(932)-JVS(3730)& - &*XX(933)-JVS(3734)*XX(934)-JVS(3738)*XX(935)-JVS(3742)*XX(936)-JVS(3746)*XX(937)-JVS(3750)*XX(938)-JVS(3754)& - &*XX(939)-JVS(3758)*XX(940)-JVS(3762)*XX(941)-JVS(3766)*XX(942)-JVS(3770)*XX(943)-JVS(3774)*XX(944)-JVS(3778)& - &*XX(945)-JVS(3782)*XX(946)-JVS(3786)*XX(947)-JVS(3790)*XX(948)-JVS(3794)*XX(949)-JVS(3798)*XX(950)-JVS(3802)& - &*XX(951)-JVS(3806)*XX(952)-JVS(3810)*XX(953)-JVS(3814)*XX(954)-JVS(3818)*XX(955)-JVS(3822)*XX(956)-JVS(3830)& - &*XX(958)-JVS(3834)*XX(959)-JVS(3838)*XX(960)-JVS(3842)*XX(961)-JVS(3846)*XX(962)-JVS(3850)*XX(963)-JVS(3854)& - &*XX(964)-JVS(3858)*XX(965)-JVS(3862)*XX(966)-JVS(3866)*XX(967)-JVS(3870)*XX(968)-JVS(3874)*XX(969)-JVS(3878)& - &*XX(970)-JVS(3882)*XX(971)-JVS(3886)*XX(972)-JVS(3890)*XX(973)-JVS(3894)*XX(974)-JVS(3898)*XX(975)-JVS(3902)& - &*XX(976)-JVS(3906)*XX(977)-JVS(3910)*XX(978)-JVS(3914)*XX(979)-JVS(3918)*XX(980)-JVS(3922)*XX(981)-JVS(3926)& - &*XX(982)-JVS(3930)*XX(983)-JVS(3934)*XX(984)-JVS(3938)*XX(985)-JVS(3942)*XX(986)-JVS(3946)*XX(987)-JVS(3950)& - &*XX(988)-JVS(3954)*XX(989)-JVS(3958)*XX(990)-JVS(3966)*XX(992)-JVS(3970)*XX(993)-JVS(3974)*XX(994)-JVS(3978)& - &*XX(995)-JVS(3982)*XX(996)-JVS(3986)*XX(997)-JVS(3990)*XX(998)-JVS(3994)*XX(999)-JVS(4006)*XX(1002)& - &-JVS(4010)*XX(1003)-JVS(4014)*XX(1004)-JVS(4022)*XX(1006)-JVS(4026)*XX(1007)-JVS(4030)*XX(1008)-JVS(4034)& - &*XX(1009)-JVS(4038)*XX(1010)-JVS(4046)*XX(1012)-JVS(4054)*XX(1014)-JVS(4058)*XX(1015)-JVS(4062)*XX(1016)& - &-JVS(4066)*XX(1017)-JVS(4070)*XX(1018)-JVS(4074)*XX(1019)-JVS(4078)*XX(1020)-JVS(4082)*XX(1021)-JVS(4086)& - &*XX(1022)-JVS(4090)*XX(1023)-JVS(4094)*XX(1024)-JVS(4098)*XX(1025)-JVS(4106)*XX(1027)-JVS(4110)*XX(1028)& - &-JVS(4114)*XX(1029)-JVS(4118)*XX(1030)-JVS(4122)*XX(1031)-JVS(4126)*XX(1032)-JVS(4130)*XX(1033)-JVS(4134)& - &*XX(1034)-JVS(4146)*XX(1037)-JVS(4150)*XX(1038)-JVS(4154)*XX(1039)-JVS(4164)*XX(1041)-JVS(4168)*XX(1042)& - &-JVS(4172)*XX(1043)-JVS(4176)*XX(1044)-JVS(4180)*XX(1045)-JVS(4184)*XX(1046)-JVS(4188)*XX(1047)-JVS(4192)& - &*XX(1048)-JVS(4196)*XX(1049)-JVS(4204)*XX(1051)-JVS(4208)*XX(1052)-JVS(4212)*XX(1053)-JVS(4220)*XX(1055)& - &-JVS(4236)*XX(1059)-JVS(4240)*XX(1060)-JVS(4244)*XX(1061)-JVS(4248)*XX(1062)-JVS(4252)*XX(1063)-JVS(4256)& - &*XX(1064)-JVS(4260)*XX(1065)-JVS(4264)*XX(1066)-JVS(4268)*XX(1067)-JVS(4276)*XX(1069)-JVS(4280)*XX(1070)& - &-JVS(4284)*XX(1071)-JVS(4288)*XX(1072)-JVS(4292)*XX(1073)-JVS(4296)*XX(1074)-JVS(4300)*XX(1075)-JVS(4304)& - &*XX(1076)-JVS(4308)*XX(1077)-JVS(4312)*XX(1078)-JVS(4316)*XX(1079)-JVS(4320)*XX(1080)-JVS(4328)*XX(1082)& - &-JVS(4336)*XX(1084)-JVS(4340)*XX(1085)-JVS(4348)*XX(1087)-JVS(4352)*XX(1088)-JVS(4356)*XX(1089)-JVS(4360)& - &*XX(1090)-JVS(4364)*XX(1091)-JVS(4368)*XX(1092)-JVS(4372)*XX(1093)-JVS(4376)*XX(1094)-JVS(4380)*XX(1095)& - &-JVS(4384)*XX(1096)-JVS(4388)*XX(1097)-JVS(4392)*XX(1098)-JVS(4396)*XX(1099)-JVS(4400)*XX(1100)-JVS(4404)& - &*XX(1101)-JVS(4408)*XX(1102)-JVS(4412)*XX(1103)-JVS(4416)*XX(1104)-JVS(4420)*XX(1105)-JVS(4424)*XX(1106)& - &-JVS(4428)*XX(1107)-JVS(4432)*XX(1108)-JVS(4436)*XX(1109)-JVS(4440)*XX(1110)-JVS(4448)*XX(1112)-JVS(4456)& - &*XX(1114)-JVS(4460)*XX(1115)-JVS(4464)*XX(1116)-JVS(4468)*XX(1117)-JVS(4472)*XX(1118)-JVS(4476)*XX(1119)& - &-JVS(4488)*XX(1122)-JVS(4492)*XX(1123)-JVS(4500)*XX(1125)-JVS(4504)*XX(1126)-JVS(4508)*XX(1127)-JVS(4512)& - &*XX(1128)-JVS(4516)*XX(1129)-JVS(4520)*XX(1130)-JVS(4524)*XX(1131)-JVS(4528)*XX(1132)-JVS(4538)*XX(1134)& - &-JVS(4542)*XX(1135)-JVS(4546)*XX(1136)-JVS(4550)*XX(1137)-JVS(4554)*XX(1138)-JVS(4558)*XX(1139)-JVS(4566)& - &*XX(1141)-JVS(4570)*XX(1142)-JVS(4574)*XX(1143)-JVS(4578)*XX(1144)-JVS(4582)*XX(1145)-JVS(4586)*XX(1146)& - &-JVS(4590)*XX(1147)-JVS(4594)*XX(1148)-JVS(4598)*XX(1149)-JVS(4602)*XX(1150)-JVS(4610)*XX(1152)-JVS(4614)& - &*XX(1153)-JVS(4618)*XX(1154)-JVS(4622)*XX(1155)-JVS(4626)*XX(1156)-JVS(4630)*XX(1157)-JVS(4634)*XX(1158)& - &-JVS(4638)*XX(1159)-JVS(4642)*XX(1160)-JVS(4646)*XX(1161)-JVS(4650)*XX(1162)-JVS(4654)*XX(1163)-JVS(4658)& - &*XX(1164)-JVS(4662)*XX(1165)-JVS(4666)*XX(1166)-JVS(4670)*XX(1167)-JVS(4674)*XX(1168)-JVS(4678)*XX(1169)& - &-JVS(4682)*XX(1170)-JVS(4686)*XX(1171)-JVS(4694)*XX(1173)-JVS(4698)*XX(1174)-JVS(4702)*XX(1175)-JVS(4706)& - &*XX(1176)-JVS(4710)*XX(1177)-JVS(4714)*XX(1178)-JVS(4722)*XX(1180)-JVS(4726)*XX(1181)-JVS(4730)*XX(1182)& - &-JVS(4734)*XX(1183)-JVS(4742)*XX(1185)-JVS(4746)*XX(1186)-JVS(4750)*XX(1187)-JVS(4754)*XX(1188)-JVS(4758)& - &*XX(1189)-JVS(4762)*XX(1190)-JVS(4766)*XX(1191)-JVS(4770)*XX(1192)-JVS(4774)*XX(1193)-JVS(4782)*XX(1195)& - &-JVS(4786)*XX(1196)-JVS(4790)*XX(1197)-JVS(4794)*XX(1198)-JVS(4798)*XX(1199)-JVS(4802)*XX(1200)-JVS(4806)& - &*XX(1201)-JVS(4810)*XX(1202)-JVS(4814)*XX(1203)-JVS(4818)*XX(1204)-JVS(4822)*XX(1205)-JVS(4826)*XX(1206)& - &-JVS(4830)*XX(1207)-JVS(4834)*XX(1208)-JVS(4838)*XX(1209)-JVS(4842)*XX(1210)-JVS(4846)*XX(1211)-JVS(4850)& - &*XX(1212)-JVS(4854)*XX(1213)-JVS(4858)*XX(1214)-JVS(4862)*XX(1215)-JVS(4870)*XX(1217)-JVS(4874)*XX(1218)& - &-JVS(4878)*XX(1219)-JVS(4882)*XX(1220)-JVS(4886)*XX(1221)-JVS(4890)*XX(1222)-JVS(4894)*XX(1223)-JVS(4898)& - &*XX(1224)-JVS(4902)*XX(1225)-JVS(4906)*XX(1226)-JVS(4910)*XX(1227)-JVS(4914)*XX(1228)-JVS(4918)*XX(1229)& - &-JVS(4922)*XX(1230)-JVS(4932)*XX(1232)-JVS(4936)*XX(1233)-JVS(4940)*XX(1234)-JVS(4944)*XX(1235)-JVS(4948)& - &*XX(1236)-JVS(4952)*XX(1237)-JVS(4956)*XX(1238)-JVS(4960)*XX(1239)-JVS(4968)*XX(1241)-JVS(4972)*XX(1242)& - &-JVS(4976)*XX(1243)-JVS(4980)*XX(1244)-JVS(4984)*XX(1245)-JVS(4992)*XX(1247)-JVS(4996)*XX(1248)-JVS(5000)& - &*XX(1249)-JVS(5004)*XX(1250)-JVS(5008)*XX(1251)-JVS(5012)*XX(1252)-JVS(5016)*XX(1253)-JVS(5020)*XX(1254)& - &-JVS(5024)*XX(1255)-JVS(5028)*XX(1256)-JVS(5037)*XX(1258)-JVS(5041)*XX(1259)-JVS(5045)*XX(1260)-JVS(5049)& - &*XX(1261)-JVS(5053)*XX(1262)-JVS(5057)*XX(1263)-JVS(5061)*XX(1264)-JVS(5065)*XX(1265)-JVS(5069)*XX(1266)& - &-JVS(5073)*XX(1267)-JVS(5077)*XX(1268)-JVS(5085)*XX(1270)-JVS(5089)*XX(1271)-JVS(5093)*XX(1272)-JVS(5097)& - &*XX(1273)-JVS(5101)*XX(1274)-JVS(5105)*XX(1275)-JVS(5109)*XX(1276)-JVS(5113)*XX(1277)-JVS(5117)*XX(1278)& - &-JVS(5121)*XX(1279)-JVS(5129)*XX(1281)-JVS(5133)*XX(1282)-JVS(5137)*XX(1283)-JVS(5145)*XX(1285)-JVS(5149)& - &*XX(1286)-JVS(5153)*XX(1287)-JVS(5157)*XX(1288)-JVS(5161)*XX(1289)-JVS(5165)*XX(1290)-JVS(5169)*XX(1291)& - &-JVS(5173)*XX(1292)-JVS(5177)*XX(1293)-JVS(5181)*XX(1294)-JVS(5185)*XX(1295)-JVS(5189)*XX(1296)-JVS(5197)& - &*XX(1298)-JVS(5201)*XX(1299)-JVS(5205)*XX(1300)-JVS(5209)*XX(1301)-JVS(5213)*XX(1302)-JVS(5217)*XX(1303)& - &-JVS(5221)*XX(1304)-JVS(5225)*XX(1305)-JVS(5229)*XX(1306)-JVS(5233)*XX(1307)-JVS(5237)*XX(1308)-JVS(5241)& - &*XX(1309)-JVS(5245)*XX(1310)-JVS(5253)*XX(1312)-JVS(5257)*XX(1313)-JVS(5261)*XX(1314)-JVS(5265)*XX(1315)& - &-JVS(5269)*XX(1316)-JVS(5273)*XX(1317)-JVS(5277)*XX(1318)-JVS(5281)*XX(1319)-JVS(5285)*XX(1320)-JVS(5293)& - &*XX(1322)-JVS(5297)*XX(1323)-JVS(5301)*XX(1324)-JVS(5305)*XX(1325)-JVS(5309)*XX(1326)-JVS(5313)*XX(1327)& - &-JVS(5317)*XX(1328)-JVS(5321)*XX(1329)-JVS(5325)*XX(1330)-JVS(5329)*XX(1331)-JVS(5333)*XX(1332)-JVS(5337)& - &*XX(1333)-JVS(5345)*XX(1335)-JVS(5349)*XX(1336)-JVS(5353)*XX(1337)-JVS(5357)*XX(1338)-JVS(5361)*XX(1339)& - &-JVS(5365)*XX(1340)-JVS(5369)*XX(1341)-JVS(5373)*XX(1342)-JVS(5377)*XX(1343)-JVS(5381)*XX(1344)-JVS(5385)& - &*XX(1345)-JVS(5393)*XX(1347)-JVS(5397)*XX(1348)-JVS(5401)*XX(1349)-JVS(5405)*XX(1350)-JVS(5409)*XX(1351)& - &-JVS(5413)*XX(1352)-JVS(5417)*XX(1353)-JVS(5421)*XX(1354)-JVS(5425)*XX(1355)-JVS(5429)*XX(1356)-JVS(5433)& - &*XX(1357)-JVS(5437)*XX(1358)-JVS(5441)*XX(1359)-JVS(5445)*XX(1360)-JVS(5449)*XX(1361)-JVS(5453)*XX(1362)& - &-JVS(5457)*XX(1363)-JVS(5461)*XX(1364)-JVS(5465)*XX(1365)-JVS(5469)*XX(1366)-JVS(5473)*XX(1367)-JVS(5485)& - &*XX(1370)-JVS(5489)*XX(1371)-JVS(5498)*XX(1373)-JVS(5502)*XX(1374)-JVS(5506)*XX(1375)-JVS(5510)*XX(1376)& - &-JVS(5514)*XX(1377)-JVS(5518)*XX(1378)-JVS(5522)*XX(1379)-JVS(5526)*XX(1380)-JVS(5530)*XX(1381)-JVS(5534)& - &*XX(1382)-JVS(5538)*XX(1383)-JVS(5546)*XX(1385)-JVS(5554)*XX(1387)-JVS(5558)*XX(1388)-JVS(5562)*XX(1389)& - &-JVS(5566)*XX(1390)-JVS(5570)*XX(1391)-JVS(5574)*XX(1392)-JVS(5578)*XX(1393)-JVS(5582)*XX(1394)-JVS(5586)& - &*XX(1395)-JVS(5590)*XX(1396)-JVS(5594)*XX(1397)-JVS(5598)*XX(1398)-JVS(5602)*XX(1399)-JVS(5610)*XX(1401)& - &-JVS(5614)*XX(1402)-JVS(5618)*XX(1403)-JVS(5622)*XX(1404)-JVS(5626)*XX(1405)-JVS(5630)*XX(1406)-JVS(5634)& - &*XX(1407)-JVS(5638)*XX(1408)-JVS(5642)*XX(1409)-JVS(5646)*XX(1410)-JVS(5650)*XX(1411)-JVS(5654)*XX(1412)& - &-JVS(5658)*XX(1413)-JVS(5662)*XX(1414)-JVS(5666)*XX(1415)-JVS(5670)*XX(1416)-JVS(5674)*XX(1417)-JVS(5678)& - &*XX(1418)-JVS(5682)*XX(1419)-JVS(5686)*XX(1420)-JVS(5690)*XX(1421)-JVS(5694)*XX(1422)-JVS(5698)*XX(1423)& - &-JVS(5702)*XX(1424)-JVS(5706)*XX(1425)-JVS(5710)*XX(1426)-JVS(5714)*XX(1427)-JVS(5718)*XX(1428)-JVS(5722)& - &*XX(1429)-JVS(5726)*XX(1430)-JVS(5730)*XX(1431)-JVS(5734)*XX(1432)-JVS(5738)*XX(1433)-JVS(5742)*XX(1434)& - &-JVS(5746)*XX(1435)-JVS(5750)*XX(1436)-JVS(5754)*XX(1437)-JVS(5758)*XX(1438)-JVS(5762)*XX(1439)-JVS(5766)& - &*XX(1440)-JVS(5770)*XX(1441)-JVS(5774)*XX(1442)-JVS(5778)*XX(1443)-JVS(5782)*XX(1444)-JVS(5786)*XX(1445)& - &-JVS(5790)*XX(1446)-JVS(5794)*XX(1447)-JVS(5798)*XX(1448)-JVS(5802)*XX(1449)-JVS(5806)*XX(1450)-JVS(5810)& - &*XX(1451)-JVS(5814)*XX(1452)-JVS(5818)*XX(1453)-JVS(5822)*XX(1454)-JVS(5826)*XX(1455)-JVS(5830)*XX(1456)& - &-JVS(5834)*XX(1457)-JVS(5838)*XX(1458)-JVS(5842)*XX(1459)-JVS(5846)*XX(1460)-JVS(5850)*XX(1461)-JVS(5854)& - &*XX(1462)-JVS(5858)*XX(1463)-JVS(5862)*XX(1464)-JVS(5866)*XX(1465)-JVS(5870)*XX(1466)-JVS(5874)*XX(1467)& - &-JVS(5878)*XX(1468)-JVS(5882)*XX(1469)-JVS(5886)*XX(1470)-JVS(5890)*XX(1471)-JVS(5894)*XX(1472)-JVS(5898)& - &*XX(1473)-JVS(5902)*XX(1474)-JVS(5906)*XX(1475)-JVS(5910)*XX(1476)-JVS(5914)*XX(1477)-JVS(5918)*XX(1478)& - &-JVS(5922)*XX(1479)-JVS(5926)*XX(1480)-JVS(5930)*XX(1481)-JVS(5940)*XX(1483)-JVS(5944)*XX(1484)-JVS(5948)& - &*XX(1485)-JVS(5952)*XX(1486)-JVS(5956)*XX(1487)-JVS(5960)*XX(1488)-JVS(5964)*XX(1489)-JVS(5968)*XX(1490)& - &-JVS(5972)*XX(1491)-JVS(5976)*XX(1492)-JVS(5985)*XX(1494)-JVS(5989)*XX(1495)-JVS(5993)*XX(1496)-JVS(5997)& - &*XX(1497)-JVS(6001)*XX(1498)-JVS(6005)*XX(1499)-JVS(6009)*XX(1500)-JVS(6013)*XX(1501)-JVS(6017)*XX(1502)& - &-JVS(6021)*XX(1503)-JVS(6025)*XX(1504)-JVS(6029)*XX(1505)-JVS(6033)*XX(1506)-JVS(6037)*XX(1507)-JVS(6041)& - &*XX(1508)-JVS(6045)*XX(1509)-JVS(6049)*XX(1510)-JVS(6053)*XX(1511)-JVS(6057)*XX(1512)-JVS(6061)*XX(1513)& - &-JVS(6065)*XX(1514)-JVS(6069)*XX(1515)-JVS(6073)*XX(1516)-JVS(6077)*XX(1517)-JVS(6081)*XX(1518)-JVS(6085)& - &*XX(1519)-JVS(6097)*XX(1522)-JVS(6101)*XX(1523)-JVS(6105)*XX(1524)-JVS(6109)*XX(1525)-JVS(6113)*XX(1526)& - &-JVS(6117)*XX(1527)-JVS(6121)*XX(1528)-JVS(6129)*XX(1530)-JVS(6137)*XX(1532)-JVS(6141)*XX(1533)-JVS(6145)& - &*XX(1534)-JVS(6149)*XX(1535)-JVS(6153)*XX(1536)-JVS(6157)*XX(1537)-JVS(6161)*XX(1538)-JVS(6165)*XX(1539)& - &-JVS(6169)*XX(1540)-JVS(6173)*XX(1541)-JVS(6177)*XX(1542)-JVS(6181)*XX(1543)-JVS(6185)*XX(1544)-JVS(6189)& - &*XX(1545)-JVS(6193)*XX(1546)-JVS(6197)*XX(1547)-JVS(6211)*XX(1550)-JVS(6308)*XX(1572)-JVS(6338)*XX(1579)& - &-JVS(6384)*XX(1590)-JVS(6444)*XX(1604)-JVS(6451)*XX(1605)-JVS(6459)*XX(1606)-JVS(6467)*XX(1607)-JVS(6475)& - &*XX(1608)-JVS(6515)*XX(1617)-JVS(6529)*XX(1620)-JVS(6540)*XX(1622)-JVS(6551)*XX(1624)-JVS(6572)*XX(1628)& - &-JVS(6658)*XX(1648)-JVS(6678)*XX(1652)-JVS(6700)*XX(1656)-JVS(6718)*XX(1660)-JVS(6779)*XX(1675)-JVS(6806)& - &*XX(1680)-JVS(6842)*XX(1689)-JVS(6879)*XX(1696)-JVS(6935)*XX(1710)-JVS(6951)*XX(1713)-JVS(6959)*XX(1714)& - &-JVS(7022)*XX(1727)-JVS(7030)*XX(1728)-JVS(7046)*XX(1732)-JVS(7083)*XX(1739)-JVS(7112)*XX(1745)-JVS(7140)& - &*XX(1751)-JVS(7148)*XX(1753)-JVS(7156)*XX(1754)-JVS(7164)*XX(1755)-JVS(7171)*XX(1756)-JVS(7175)*XX(1757)& - &-JVS(7179)*XX(1758)-JVS(7183)*XX(1759)-JVS(7193)*XX(1761)-JVS(7197)*XX(1762)-JVS(7202)*XX(1763)-JVS(7207)& - &*XX(1764)-JVS(7212)*XX(1765)-JVS(7220)*XX(1767)-JVS(7224)*XX(1768)-JVS(7233)*XX(1770)-JVS(7248)*XX(1773)& - &-JVS(7253)*XX(1774)-JVS(7267)*XX(1778)-JVS(7271)*XX(1779)-JVS(7282)*XX(1781)-JVS(7292)*XX(1783)-JVS(7296)& - &*XX(1784)-JVS(7322)*XX(1789)-JVS(7340)*XX(1792)-JVS(7345)*XX(1793)-JVS(7360)*XX(1796)-JVS(7376)*XX(1799)& - &-JVS(7385)*XX(1801)-JVS(7389)*XX(1802)-JVS(7397)*XX(1803)-JVS(7402)*XX(1804)-JVS(7424)*XX(1809)-JVS(7441)& - &*XX(1812)-JVS(7453)*XX(1814)-JVS(7463)*XX(1816)-JVS(7475)*XX(1818)-JVS(7487)*XX(1820)-JVS(7495)*XX(1821)& - &-JVS(7503)*XX(1822)-JVS(7540)*XX(1830)-JVS(7570)*XX(1836)-JVS(7574)*XX(1837)-JVS(7581)*XX(1838)-JVS(7586)& - &*XX(1839)-JVS(7590)*XX(1840)-JVS(7598)*XX(1842)-JVS(7607)*XX(1844)-JVS(7622)*XX(1847)-JVS(7632)*XX(1849)& - &-JVS(7636)*XX(1850)-JVS(7640)*XX(1851)-JVS(7648)*XX(1852)-JVS(7656)*XX(1854)-JVS(7660)*XX(1855)-JVS(7676)& - &*XX(1859)-JVS(7683)*XX(1860)-JVS(7688)*XX(1861)-JVS(7692)*XX(1862)-JVS(7696)*XX(1863)-JVS(7707)*XX(1865)& - &-JVS(7720)*XX(1867)-JVS(7725)*XX(1868)-JVS(7729)*XX(1869)-JVS(7737)*XX(1870)-JVS(7741)*XX(1871)-JVS(7750)& - &*XX(1873)-JVS(7754)*XX(1874)-JVS(7761)*XX(1876)-JVS(7774)*XX(1879)-JVS(7778)*XX(1880)-JVS(7795)*XX(1884)& - &-JVS(7799)*XX(1885)-JVS(7803)*XX(1886)-JVS(7807)*XX(1887)-JVS(7811)*XX(1888)-JVS(7819)*XX(1890)-JVS(7834)& - &*XX(1893)-JVS(7851)*XX(1897)-JVS(7855)*XX(1898)-JVS(7859)*XX(1899)-JVS(7863)*XX(1900)-JVS(7867)*XX(1901)& - &-JVS(7878)*XX(1903)-JVS(7894)*XX(1906)-JVS(7899)*XX(1907)-JVS(7903)*XX(1908)-JVS(7914)*XX(1910)-JVS(7919)& - &*XX(1911)-JVS(7929)*XX(1913)-JVS(7933)*XX(1914)-JVS(7945)*XX(1917)-JVS(7957)*XX(1920)-JVS(7972)*XX(1923)& - &-JVS(7986)*XX(1926)-JVS(8010)*XX(1931)-JVS(8015)*XX(1932)-JVS(8026)*XX(1935)-JVS(8034)*XX(1937)-JVS(8038)& - &*XX(1938)-JVS(8046)*XX(1940)-JVS(8057)*XX(1942)-JVS(8062)*XX(1943)-JVS(8074)*XX(1945)-JVS(8083)*XX(1947)& - &-JVS(8087)*XX(1948)-JVS(8091)*XX(1949)-JVS(8095)*XX(1950)-JVS(8123)*XX(1956)-JVS(8132)*XX(1958)-JVS(8147)& - &*XX(1961)-JVS(8156)*XX(1962)-JVS(8173)*XX(1966)-JVS(8182)*XX(1968)-JVS(8186)*XX(1969)-JVS(8190)*XX(1970)& - &-JVS(8197)*XX(1971)-JVS(8206)*XX(1973)-JVS(8218)*XX(1975)-JVS(8237)*XX(1979)-JVS(8248)*XX(1982)-JVS(8253)& - &*XX(1983)-JVS(8261)*XX(1984)-JVS(8266)*XX(1985)-JVS(8273)*XX(1986)-JVS(8289)*XX(1989)-JVS(8294)*XX(1990)& - &-JVS(8301)*XX(1992)-JVS(8305)*XX(1993)-JVS(8309)*XX(1994)-JVS(8322)*XX(1997)-JVS(8329)*XX(1998)-JVS(8334)& - &*XX(1999)-JVS(8342)*XX(2000)-JVS(8351)*XX(2002)-JVS(8369)*XX(2006)-JVS(8382)*XX(2009)-JVS(8386)*XX(2010)& - &-JVS(8410)*XX(2015)-JVS(8415)*XX(2016)-JVS(8419)*XX(2017)-JVS(8423)*XX(2018)-JVS(8427)*XX(2019)-JVS(8440)& - &*XX(2022)-JVS(8454)*XX(2025)-JVS(8458)*XX(2026)-JVS(8462)*XX(2027)-JVS(8478)*XX(2030)-JVS(8486)*XX(2031)& - &-JVS(8499)*XX(2033)-JVS(8512)*XX(2035)-JVS(8517)*XX(2036)-JVS(8530)*XX(2039)-JVS(8541)*XX(2041)-JVS(8553)& - &*XX(2044)-JVS(8561)*XX(2046)-JVS(8565)*XX(2047)-JVS(8580)*XX(2050)-JVS(8586)*XX(2051)-JVS(8590)*XX(2052)& - &-JVS(8594)*XX(2053)-JVS(8602)*XX(2055)-JVS(8610)*XX(2056)-JVS(8615)*XX(2057)-JVS(8619)*XX(2058)-JVS(8623)& - &*XX(2059)-JVS(8630)*XX(2060)-JVS(8639)*XX(2062)-JVS(8647)*XX(2064)-JVS(8651)*XX(2065)-JVS(8665)*XX(2068)& - &-JVS(8669)*XX(2069)-JVS(8673)*XX(2070)-JVS(8677)*XX(2071)-JVS(8688)*XX(2073)-JVS(8704)*XX(2076)-JVS(8721)& - &*XX(2080)-JVS(8729)*XX(2082)-JVS(8737)*XX(2084)-JVS(8757)*XX(2088)-JVS(8762)*XX(2089)-JVS(8771)*XX(2091)& - &-JVS(8779)*XX(2093)-JVS(8787)*XX(2095)-JVS(8800)*XX(2098)-JVS(8811)*XX(2100)-JVS(8821)*XX(2102)-JVS(8825)& - &*XX(2103)-JVS(8832)*XX(2105)-JVS(8840)*XX(2107)-JVS(8848)*XX(2109)-JVS(8852)*XX(2110)-JVS(8856)*XX(2111)& - &-JVS(8869)*XX(2114)-JVS(8873)*XX(2115)-JVS(8877)*XX(2116)-JVS(8891)*XX(2119)-JVS(8895)*XX(2120)-JVS(8899)& - &*XX(2121)-JVS(8906)*XX(2122)-JVS(8919)*XX(2125)-JVS(8923)*XX(2126)-JVS(8927)*XX(2127)-JVS(8942)*XX(2131)& - &-JVS(8951)*XX(2133)-JVS(8960)*XX(2135)-JVS(8968)*XX(2137)-JVS(8972)*XX(2138)-JVS(8976)*XX(2139)-JVS(8981)& - &*XX(2140)-JVS(8987)*XX(2141)-JVS(8991)*XX(2142)-JVS(8996)*XX(2143)-JVS(9000)*XX(2144)-JVS(9009)*XX(2146)& - &-JVS(9013)*XX(2147)-JVS(9024)*XX(2150)-JVS(9028)*XX(2151)-JVS(9032)*XX(2152)-JVS(9036)*XX(2153)-JVS(9042)& - &*XX(2154)-JVS(9050)*XX(2156)-JVS(9063)*XX(2159)-JVS(9067)*XX(2160)-JVS(9083)*XX(2163)-JVS(9096)*XX(2166)& - &-JVS(9117)*XX(2171)-JVS(9128)*XX(2173)-JVS(9133)*XX(2174)-JVS(9141)*XX(2176)-JVS(9146)*XX(2177)-JVS(9150)& - &*XX(2178)-JVS(9154)*XX(2179)-JVS(9158)*XX(2180)-JVS(9171)*XX(2183)-JVS(9189)*XX(2187)-JVS(9193)*XX(2188)& - &-JVS(9205)*XX(2190)-JVS(9210)*XX(2191)-JVS(9214)*XX(2192)-JVS(9235)*XX(2197)-JVS(9266)*XX(2204)-JVS(9270)& - &*XX(2205)-JVS(9282)*XX(2207)-JVS(9287)*XX(2208)-JVS(9293)*XX(2209)-JVS(9302)*XX(2211)-JVS(9313)*XX(2214)& - &-JVS(9325)*XX(2217)-JVS(9333)*XX(2219)-JVS(9341)*XX(2221)-JVS(9350)*XX(2223)-JVS(9359)*XX(2225)-JVS(9366)& - &*XX(2226)-JVS(9371)*XX(2227)-JVS(9375)*XX(2228)-JVS(9398)*XX(2233)-JVS(9407)*XX(2235)-JVS(9411)*XX(2236)& - &-JVS(9444)*XX(2244)-JVS(9456)*XX(2247)-JVS(9460)*XX(2248)-JVS(9473)*XX(2251)-JVS(9477)*XX(2252)-JVS(9509)& - &*XX(2260)-JVS(9517)*XX(2262)-JVS(9521)*XX(2263)-JVS(9525)*XX(2264)-JVS(9534)*XX(2266)-JVS(9538)*XX(2267)& - &-JVS(9546)*XX(2269)-JVS(9565)*XX(2273)-JVS(9609)*XX(2283)-JVS(9616)*XX(2284)-JVS(9638)*XX(2289)-JVS(9642)& - &*XX(2290)-JVS(9650)*XX(2292)-JVS(9658)*XX(2293)-JVS(9663)*XX(2294)-JVS(9669)*XX(2295)-JVS(9682)*XX(2298)& - &-JVS(9690)*XX(2300)-JVS(9694)*XX(2301)-JVS(9709)*XX(2304)-JVS(9714)*XX(2305)-JVS(9722)*XX(2307)-JVS(9742)& - &*XX(2312)-JVS(9750)*XX(2314)-JVS(9756)*XX(2315)-JVS(9760)*XX(2316)-JVS(9768)*XX(2318)-JVS(9772)*XX(2319)& - &-JVS(9776)*XX(2320)-JVS(9787)*XX(2322)-JVS(9800)*XX(2324)-JVS(9811)*XX(2326)-JVS(9824)*XX(2329)-JVS(9832)& - &*XX(2331)-JVS(9847)*XX(2334)-JVS(9867)*XX(2339)-JVS(9872)*XX(2340)-JVS(9880)*XX(2342)-JVS(9895)*XX(2346)& - &-JVS(9903)*XX(2348)-JVS(9907)*XX(2349)-JVS(9915)*XX(2351)-JVS(9924)*XX(2353)-JVS(9932)*XX(2355)-JVS(9946)& - &*XX(2358)-JVS(9953)*XX(2360)-JVS(9960)*XX(2361)-JVS(9965)*XX(2362)-JVS(9969)*XX(2363)-JVS(9974)*XX(2364)& - &-JVS(9982)*XX(2366)-JVS(9991)*XX(2368)-JVS(9995)*XX(2369)-JVS(10004)*XX(2371)-JVS(10012)*XX(2373)-JVS(10019)& - &*XX(2374)-JVS(10038)*XX(2377)-JVS(10047)*XX(2379)-JVS(10051)*XX(2380)-JVS(10057)*XX(2381)-JVS(10068)& - &*XX(2384)-JVS(10075)*XX(2386)-JVS(10083)*XX(2388)-JVS(10087)*XX(2389)-JVS(10095)*XX(2391)-JVS(10099)& - &*XX(2392)-JVS(10106)*XX(2394)-JVS(10115)*XX(2396)-JVS(10119)*XX(2397)-JVS(10130)*XX(2399)-JVS(10135)& - &*XX(2400)-JVS(10139)*XX(2401)-JVS(10143)*XX(2402)-JVS(10151)*XX(2404)-JVS(10163)*XX(2407)-JVS(10171)& - &*XX(2409)-JVS(10175)*XX(2410)-JVS(10179)*XX(2411)-JVS(10183)*XX(2412)-JVS(10187)*XX(2413)-JVS(10191)& - &*XX(2414)-JVS(10199)*XX(2415)-JVS(10204)*XX(2416)-JVS(10208)*XX(2417)-JVS(10228)*XX(2422)-JVS(10232)& - &*XX(2423)-JVS(10236)*XX(2424)-JVS(10243)*XX(2426)-JVS(10251)*XX(2428)-JVS(10255)*XX(2429)-JVS(10264)& - &*XX(2431)-JVS(10277)*XX(2434)-JVS(10281)*XX(2435)-JVS(10289)*XX(2437)-JVS(10298)*XX(2439)-JVS(10302)& - &*XX(2440)-JVS(10311)*XX(2442)-JVS(10315)*XX(2443)-JVS(10323)*XX(2445)-JVS(10327)*XX(2446)-JVS(10341)& - &*XX(2449)-JVS(10345)*XX(2450)-JVS(10349)*XX(2451)-JVS(10357)*XX(2452)-JVS(10366)*XX(2454)-JVS(10370)& - &*XX(2455)-JVS(10374)*XX(2456)-JVS(10382)*XX(2457)-JVS(10395)*XX(2460)-JVS(10407)*XX(2463)-JVS(10419)& - &*XX(2465)-JVS(10424)*XX(2466)-JVS(10436)*XX(2469)-JVS(10460)*XX(2473)-JVS(10491)*XX(2480)-JVS(10534)& - &*XX(2490)-JVS(10545)*XX(2492)-JVS(10557)*XX(2494)-JVS(10564)*XX(2495)-JVS(10573)*XX(2497)-JVS(10581)& - &*XX(2499)-JVS(10589)*XX(2501)-JVS(10595)*XX(2502)-JVS(10600)*XX(2503)-JVS(10619)*XX(2507)-JVS(10625)& - &*XX(2508)-JVS(10645)*XX(2512)-JVS(10664)*XX(2516)-JVS(10681)*XX(2520)-JVS(10688)*XX(2521)-JVS(10711)& - &*XX(2526)-JVS(10724)*XX(2528)-JVS(10755)*XX(2535)-JVS(10762)*XX(2536)-JVS(10778)*XX(2539)-JVS(10783)& - &*XX(2540)-JVS(10787)*XX(2541)-JVS(10795)*XX(2543)-JVS(10799)*XX(2544)-JVS(10806)*XX(2545)-JVS(10817)& - &*XX(2547)-JVS(10829)*XX(2549)-JVS(10836)*XX(2550)-JVS(10843)*XX(2551)-JVS(10852)*XX(2553)-JVS(10856)& - &*XX(2554)-JVS(10864)*XX(2556)-JVS(10870)*XX(2557)-JVS(10875)*XX(2558)-JVS(10879)*XX(2559)-JVS(10889)& - &*XX(2561)-JVS(10898)*XX(2562)-JVS(10914)*XX(2565)-JVS(10920)*XX(2566)-JVS(10937)*XX(2570)-JVS(10945)& - &*XX(2572)-JVS(10958)*XX(2574)-JVS(10965)*XX(2575)-JVS(10976)*XX(2577)-JVS(10983)*XX(2578)-JVS(10992)& - &*XX(2580)-JVS(10998)*XX(2581)-JVS(11015)*XX(2585)-JVS(11021)*XX(2586)-JVS(11032)*XX(2588)-JVS(11041)& - &*XX(2589)-JVS(11046)*XX(2590)-JVS(11052)*XX(2591)-JVS(11072)*XX(2594)-JVS(11080)*XX(2595)-JVS(11087)& - &*XX(2596)-JVS(11098)*XX(2598)-JVS(11105)*XX(2599)-JVS(11114)*XX(2601)-JVS(11118)*XX(2602)-JVS(11122)& - &*XX(2603)-JVS(11128)*XX(2604)-JVS(11143)*XX(2607)-JVS(11152)*XX(2609)-JVS(11175)*XX(2614)-JVS(11184)& - &*XX(2616)-JVS(11188)*XX(2617)-JVS(11192)*XX(2618)-JVS(11214)*XX(2623)-JVS(11219)*XX(2624)-JVS(11223)& - &*XX(2625)-JVS(11231)*XX(2627)-JVS(11235)*XX(2628)-JVS(11255)*XX(2633)-JVS(11263)*XX(2634)-JVS(11284)& - &*XX(2638)-JVS(11291)*XX(2639)-JVS(11302)*XX(2641)-JVS(11311)*XX(2642)-JVS(11324)*XX(2644)-JVS(11331)& - &*XX(2645)-JVS(11338)*XX(2646)-JVS(11346)*XX(2647)-JVS(11355)*XX(2649)-JVS(11367)*XX(2652)-JVS(11375)& - &*XX(2654)-JVS(11398)*XX(2659)-JVS(11414)*XX(2662)-JVS(11438)*XX(2667)-JVS(11445)*XX(2668)-JVS(11480)& - &*XX(2676)-JVS(11495)*XX(2679)-JVS(11502)*XX(2680)-JVS(11512)*XX(2682)-JVS(11529)*XX(2686)-JVS(11545)& - &*XX(2690)-JVS(11555)*XX(2692)-JVS(11560)*XX(2693)-JVS(11566)*XX(2694)-JVS(11571)*XX(2695)-JVS(11583)& - &*XX(2697)-JVS(11595)*XX(2699)-JVS(11626)*XX(2706)-JVS(11633)*XX(2707)-JVS(11642)*XX(2709)-JVS(11649)& - &*XX(2710)-JVS(11656)*XX(2711)-JVS(11673)*XX(2715)-JVS(11682)*XX(2716)-JVS(11688)*XX(2717)-JVS(11703)& - &*XX(2719)-JVS(11709)*XX(2720)-JVS(11721)*XX(2722)-JVS(11726)*XX(2723)-JVS(11732)*XX(2724)-JVS(11745)& - &*XX(2727)-JVS(11760)*XX(2730)-JVS(11766)*XX(2731)-JVS(11780)*XX(2733)-JVS(11797)*XX(2736)-JVS(11802)& - &*XX(2737)-JVS(11812)*XX(2739)-JVS(11817)*XX(2740)-JVS(11823)*XX(2741)-JVS(11838)*XX(2744)-JVS(11846)& - &*XX(2745)-JVS(11854)*XX(2746)-JVS(11861)*XX(2747)-JVS(11872)*XX(2749)-JVS(11879)*XX(2750)-JVS(11886)& - &*XX(2751)-JVS(11893)*XX(2752)-JVS(11898)*XX(2753)-JVS(11902)*XX(2754)-JVS(11920)*XX(2758)-JVS(11931)& - &*XX(2760)-JVS(11947)*XX(2763)-JVS(11959)*XX(2766)-JVS(11966)*XX(2767)-JVS(11973)*XX(2768)-JVS(11978)& - &*XX(2769)-JVS(11991)*XX(2771)-JVS(12005)*XX(2773)-JVS(12009)*XX(2774)-JVS(12013)*XX(2775)-JVS(12020)& - &*XX(2776)-JVS(12051)*XX(2783)-JVS(12059)*XX(2785)-JVS(12073)*XX(2788)-JVS(12081)*XX(2789)-JVS(12108)& - &*XX(2795)-JVS(12117)*XX(2797)-JVS(12128)*XX(2799)-JVS(12152)*XX(2805)-JVS(12175)*XX(2809)-JVS(12179)& - &*XX(2810)-JVS(12205)*XX(2816)-JVS(12216)*XX(2818)-JVS(12223)*XX(2819)-JVS(12230)*XX(2820)-JVS(12237)& - &*XX(2821)-JVS(12250)*XX(2824)-JVS(12262)*XX(2826)-JVS(12269)*XX(2827)-JVS(12274)*XX(2828)-JVS(12288)& - &*XX(2831)-JVS(12295)*XX(2832)-JVS(12312)*XX(2836)-JVS(12323)*XX(2838)-JVS(12333)*XX(2840)-JVS(12365)& - &*XX(2847)-JVS(12376)*XX(2849)-JVS(12387)*XX(2851)-JVS(12398)*XX(2853)-JVS(12419)*XX(2856)-JVS(12429)& - &*XX(2858)-JVS(12448)*XX(2862)-JVS(12462)*XX(2865)-JVS(12475)*XX(2868)-JVS(12481)*XX(2869)-JVS(12486)& - &*XX(2870)-JVS(12490)*XX(2871)-JVS(12498)*XX(2873)-JVS(12504)*XX(2874)-JVS(12511)*XX(2875)-JVS(12523)& - &*XX(2878)-JVS(12537)*XX(2881)-JVS(12573)*XX(2889)-JVS(12580)*XX(2890)-JVS(12588)*XX(2891)-JVS(12597)& - &*XX(2893)-JVS(12603)*XX(2894)-JVS(12618)*XX(2897)-JVS(12627)*XX(2899)-JVS(12631)*XX(2900)-JVS(12641)& - &*XX(2902)-JVS(12648)*XX(2903)-JVS(12659)*XX(2905)-JVS(12667)*XX(2906)-JVS(12688)*XX(2909)-JVS(12694)& - &*XX(2910)-JVS(12698)*XX(2911)-JVS(12704)*XX(2912)-JVS(12726)*XX(2916)-JVS(12737)*XX(2918)-JVS(12744)& - &*XX(2919)-JVS(12749)*XX(2920)-JVS(12760)*XX(2922)-JVS(12765)*XX(2923)-JVS(12780)*XX(2926)-JVS(12798)& - &*XX(2930)-JVS(12804)*XX(2931)-JVS(12818)*XX(2933)-JVS(12829)*XX(2935)-JVS(12841)*XX(2937)-JVS(12851)& - &*XX(2938)-JVS(12858)*XX(2939)-JVS(12863)*XX(2940)-JVS(12881)*XX(2944)-JVS(12892)*XX(2946)-JVS(12908)& - &*XX(2949)-JVS(12923)*XX(2952)-JVS(12932)*XX(2953)-JVS(12940)*XX(2954)-JVS(12963)*XX(2959)-JVS(12970)& - &*XX(2960)-JVS(12977)*XX(2961)-JVS(12984)*XX(2962)-JVS(12991)*XX(2963)-JVS(13007)*XX(2965)-JVS(13019)& - &*XX(2967)-JVS(13026)*XX(2968)-JVS(13039)*XX(2971)-JVS(13045)*XX(2972)-JVS(13060)*XX(2974)-JVS(13065)& - &*XX(2975)-JVS(13069)*XX(2976)-JVS(13086)*XX(2979)-JVS(13094)*XX(2981)-JVS(13102)*XX(2982)-JVS(13109)& - &*XX(2983)-JVS(13118)*XX(2985)-JVS(13124)*XX(2986)-JVS(13139)*XX(2989)-JVS(13147)*XX(2990)-JVS(13152)& - &*XX(2991)-JVS(13162)*XX(2993)-JVS(13169)*XX(2994)-JVS(13176)*XX(2995)-JVS(13184)*XX(2996)-JVS(13191)& - &*XX(2997)-JVS(13208)*XX(3000)-JVS(13215)*XX(3001)-JVS(13230)*XX(3004)-JVS(13235)*XX(3005)-JVS(13239)& - &*XX(3006)-JVS(13255)*XX(3009)-JVS(13276)*XX(3013)-JVS(13291)*XX(3016)-JVS(13300)*XX(3018)-JVS(13316)& - &*XX(3022)-JVS(13339)*XX(3027)-JVS(13346)*XX(3028)-JVS(13357)*XX(3030)-JVS(13362)*XX(3031)-JVS(13369)& - &*XX(3032)-JVS(13374)*XX(3033)-JVS(13382)*XX(3035)-JVS(13388)*XX(3036)-JVS(13395)*XX(3037)-JVS(13400)& - &*XX(3038)-JVS(13406)*XX(3039)-JVS(13418)*XX(3041)-JVS(13427)*XX(3043)-JVS(13439)*XX(3046)-JVS(13450)& - &*XX(3048)-JVS(13455)*XX(3049)-JVS(13462)*XX(3050)-JVS(13481)*XX(3054)-JVS(13486)*XX(3055)-JVS(13496)& - &*XX(3057)-JVS(13502)*XX(3058)-JVS(13521)*XX(3062)-JVS(13532)*XX(3064)-JVS(13539)*XX(3065)-JVS(13547)& - &*XX(3066)-JVS(13554)*XX(3067)-JVS(13566)*XX(3069)-JVS(13577)*XX(3071)-JVS(13584)*XX(3072)-JVS(13591)& - &*XX(3073)-JVS(13598)*XX(3074)-JVS(13615)*XX(3078)-JVS(13621)*XX(3079)-JVS(13629)*XX(3080)-JVS(13642)& - &*XX(3082)-JVS(13663)*XX(3086)-JVS(13681)*XX(3089)-JVS(13687)*XX(3090)-JVS(13695)*XX(3091)-JVS(13731)& - &*XX(3099)-JVS(13754)*XX(3103)-JVS(13763)*XX(3104)-JVS(13779)*XX(3107)-JVS(13791)*XX(3109)-JVS(13799)& - &*XX(3110)-JVS(13823)*XX(3115)-JVS(13836)*XX(3117)-JVS(13844)*XX(3118)-JVS(13862)*XX(3121)-JVS(13870)& - &*XX(3122)-JVS(13882)*XX(3124)-JVS(13895)*XX(3126)-JVS(13917)*XX(3128)-JVS(13936)*XX(3132)-JVS(14006)& - &*XX(3148)-JVS(14022)*XX(3151)-JVS(14046)*XX(3156)-JVS(14094)*XX(3166)-JVS(14107)*XX(3168)-JVS(14122)& - &*XX(3171)-JVS(14139)*XX(3174)-JVS(14151)*XX(3176)-JVS(14182)*XX(3183)-JVS(14189)*XX(3184)-JVS(14196)& - &*XX(3185)-JVS(14240)*XX(3194)-JVS(14251)*XX(3195)-JVS(14256)*XX(3196)-JVS(14264)*XX(3198)-JVS(14274)& - &*XX(3200)-JVS(14278)*XX(3201)-JVS(14286)*XX(3203)-JVS(14294)*XX(3205)-JVS(14302)*XX(3207)-JVS(14306)& - &*XX(3208)-JVS(14310)*XX(3209)-JVS(14318)*XX(3211)-JVS(14333)*XX(3213)-JVS(14337)*XX(3214)-JVS(14349)& - &*XX(3216)-JVS(14353)*XX(3217)-JVS(14362)*XX(3219)-JVS(14375)*XX(3222)-JVS(14387)*XX(3225)-JVS(14391)& - &*XX(3226)-JVS(14395)*XX(3227)-JVS(14400)*XX(3228)-JVS(14413)*XX(3231)-JVS(14431)*XX(3233)-JVS(14439)& - &*XX(3234)-JVS(14444)*XX(3235)-JVS(14452)*XX(3237)-JVS(14456)*XX(3238)-JVS(14472)*XX(3241)-JVS(14489)& - &*XX(3242)-JVS(14494)*XX(3243)-JVS(14499)*XX(3244)-JVS(14518)*XX(3246)-JVS(14528)*XX(3247)-JVS(14553)& - &*XX(3252)-JVS(14558)*XX(3253)-JVS(14573)*XX(3256)-JVS(14585)*XX(3259)-JVS(14593)*XX(3261)-JVS(14603)& - &*XX(3263)-JVS(14612)*XX(3265)-JVS(14616)*XX(3266)-JVS(14620)*XX(3267)-JVS(14628)*XX(3268)-JVS(14636)& - &*XX(3269)-JVS(14648)*XX(3270)-JVS(14656)*XX(3272)-JVS(14664)*XX(3274)-JVS(14672)*XX(3276)-JVS(14676)& - &*XX(3277)-JVS(14680)*XX(3278)-JVS(14684)*XX(3279)-JVS(14688)*XX(3280)-JVS(14695)*XX(3281)-JVS(14710)& - &*XX(3283)-JVS(14720)*XX(3284)-JVS(14729)*XX(3286)-JVS(14733)*XX(3287)-JVS(14737)*XX(3288)-JVS(14741)& - &*XX(3289)-JVS(14749)*XX(3291)-JVS(14761)*XX(3294)-JVS(14765)*XX(3295)-JVS(14775)*XX(3296)-JVS(14788)& - &*XX(3299)-JVS(14799)*XX(3301)-JVS(14820)*XX(3305)-JVS(14832)*XX(3308)-JVS(14838)*XX(3309)-JVS(14842)& - &*XX(3310)-JVS(14858)*XX(3314)-JVS(14878)*XX(3319)-JVS(14882)*XX(3320)-JVS(14886)*XX(3321)-JVS(14902)& - &*XX(3325)-JVS(14906)*XX(3326)-JVS(14916)*XX(3328)-JVS(14922)*XX(3329)-JVS(14931)*XX(3330)-JVS(14940)& - &*XX(3331)-JVS(14948)*XX(3332)-JVS(14956)*XX(3333)-JVS(14962)*XX(3334)-JVS(14968)*XX(3335)-JVS(14975)& - &*XX(3336)-JVS(14984)*XX(3337)-JVS(14990)*XX(3338)-JVS(14998)*XX(3339)-JVS(15008)*XX(3341)-JVS(15015)& - &*XX(3342)-JVS(15025)*XX(3343)-JVS(15033)*XX(3344)-JVS(15042)*XX(3345)-JVS(15048)*XX(3346)-JVS(15055)& - &*XX(3347)-JVS(15065)*XX(3348)-JVS(15071)*XX(3349)-JVS(15080)*XX(3350)-JVS(15086)*XX(3351)-JVS(15094)& - &*XX(3352)-JVS(15105)*XX(3354)-JVS(15113)*XX(3355)-JVS(15120)*XX(3356)-JVS(15136)*XX(3359)-JVS(15146)& - &*XX(3361)-JVS(15153)*XX(3362)-JVS(15160)*XX(3363)-JVS(15167)*XX(3364)-JVS(15176)*XX(3365)-JVS(15182)& - &*XX(3366)-JVS(15189)*XX(3367)-JVS(15199)*XX(3368)-JVS(15209)*XX(3369)-JVS(15216)*XX(3370)-JVS(15223)& - &*XX(3371)-JVS(15234)*XX(3372)-JVS(15244)*XX(3373)-JVS(15253)*XX(3374)-JVS(15259)*XX(3375)-JVS(15266)& - &*XX(3376)-JVS(15273)*XX(3377)-JVS(15281)*XX(3378)-JVS(15291)*XX(3380)-JVS(15298)*XX(3381)-JVS(15306)& - &*XX(3382)-JVS(15322)*XX(3384)-JVS(15330)*XX(3385)-JVS(15337)*XX(3386)-JVS(15344)*XX(3387)-JVS(15350)& - &*XX(3388)-JVS(15359)*XX(3389)-JVS(15366)*XX(3390)-JVS(15375)*XX(3391)-JVS(15388)*XX(3393)-JVS(15402)& - &*XX(3395)-JVS(15409)*XX(3396)-JVS(15421)*XX(3397)-JVS(15428)*XX(3398)-JVS(15435)*XX(3399)-JVS(15441)& - &*XX(3400)-JVS(15454)*XX(3402)-JVS(15463)*XX(3403)-JVS(15471)*XX(3404)-JVS(15479)*XX(3405)-JVS(15486)& - &*XX(3406)-JVS(15493)*XX(3407)-JVS(15506)*XX(3409)-JVS(15512)*XX(3410)-JVS(15521)*XX(3411)-JVS(15530)& - &*XX(3412)-JVS(15543)*XX(3414)-JVS(15550)*XX(3415)-JVS(15559)*XX(3416)-JVS(15565)*XX(3417)-JVS(15572)& - &*XX(3418)-JVS(15587)*XX(3420)-JVS(15593)*XX(3421)-JVS(15600)*XX(3422)-JVS(15607)*XX(3423)-JVS(15615)& - &*XX(3424)-JVS(15623)*XX(3425)-JVS(15631)*XX(3426)-JVS(15642)*XX(3428)-JVS(15649)*XX(3429)-JVS(15657)& - &*XX(3430)-JVS(15667)*XX(3431)-JVS(15673)*XX(3432)-JVS(15681)*XX(3433)-JVS(15690)*XX(3434)-JVS(15718)& - &*XX(3440)-JVS(15723)*XX(3441)-JVS(15735)*XX(3444)-JVS(15743)*XX(3446)-JVS(15751)*XX(3448)-JVS(15755)& - &*XX(3449)-JVS(15765)*XX(3451)-JVS(15769)*XX(3452)-JVS(15773)*XX(3453)-JVS(15782)*XX(3455)-JVS(15791)& - &*XX(3456)-JVS(15800)*XX(3458)-JVS(15804)*XX(3459)-JVS(15817)*XX(3461)-JVS(15822)*XX(3462)-JVS(15826)& - &*XX(3463)-JVS(15842)*XX(3467)-JVS(15846)*XX(3468)-JVS(15850)*XX(3469)-JVS(15867)*XX(3473)-JVS(15876)& - &*XX(3474)-JVS(15881)*XX(3475)-JVS(15886)*XX(3476)-JVS(15892)*XX(3477)-JVS(15904)*XX(3478)-JVS(15916)& - &*XX(3480)-JVS(15921)*XX(3481)-JVS(15933)*XX(3483)-JVS(15943)*XX(3485)-JVS(15951)*XX(3486)-JVS(15955)& - &*XX(3487)-JVS(15960)*XX(3488)-JVS(15967)*XX(3489)-JVS(15979)*XX(3491)-JVS(15985)*XX(3492)-JVS(15994)& - &*XX(3493)-JVS(16003)*XX(3495)-JVS(16007)*XX(3496)-JVS(16019)*XX(3497)-JVS(16029)*XX(3498)-JVS(16040)& - &*XX(3500)-JVS(16044)*XX(3501)-JVS(16050)*XX(3502)-JVS(16056)*XX(3503)-JVS(16065)*XX(3504)-JVS(16073)& - &*XX(3505)-JVS(16083)*XX(3507)-JVS(16094)*XX(3509)-JVS(16100)*XX(3510)-JVS(16107)*XX(3511)-JVS(16118)& - &*XX(3513)-JVS(16129)*XX(3514)-JVS(16135)*XX(3515)-JVS(16151)*XX(3516)-JVS(16164)*XX(3518)-JVS(16180)& - &*XX(3521)-JVS(16189)*XX(3522)-JVS(16194)*XX(3523)-JVS(16199)*XX(3524)-JVS(16204)*XX(3525)-JVS(16210)& - &*XX(3526)-JVS(16217)*XX(3527)-JVS(16222)*XX(3528)-JVS(16237)*XX(3530)-JVS(16244)*XX(3531)-JVS(16261)& - &*XX(3534)-JVS(16271)*XX(3535)-JVS(16284)*XX(3536)-JVS(16293)*XX(3537)-JVS(16299)*XX(3538)-JVS(16306)& - &*XX(3539)-JVS(16311)*XX(3540)-JVS(16323)*XX(3541)-JVS(16334)*XX(3542)-JVS(16340)*XX(3543)-JVS(16349)& - &*XX(3544)-JVS(16370)*XX(3547)-JVS(16378)*XX(3548)-JVS(16388)*XX(3550)-JVS(16397)*XX(3552)-JVS(16409)& - &*XX(3554)-JVS(16416)*XX(3555)-JVS(16425)*XX(3556)-JVS(16438)*XX(3557)-JVS(16466)*XX(3561)-JVS(16472)& - &*XX(3562)-JVS(16479)*XX(3563)-JVS(16486)*XX(3564)-JVS(16494)*XX(3565)-JVS(16508)*XX(3567)-JVS(16523)& - &*XX(3569)-JVS(16531)*XX(3570)-JVS(16539)*XX(3571)-JVS(16546)*XX(3572)-JVS(16554)*XX(3573)-JVS(16561)& - &*XX(3574)-JVS(16568)*XX(3575)-JVS(16576)*XX(3576)-JVS(16583)*XX(3577)-JVS(16591)*XX(3578)-JVS(16598)& - &*XX(3579)-JVS(16608)*XX(3580)-JVS(16615)*XX(3581)-JVS(16622)*XX(3582)-JVS(16632)*XX(3583)-JVS(16640)& - &*XX(3584)-JVS(16647)*XX(3585)-JVS(16654)*XX(3586)-JVS(16669)*XX(3588)-JVS(16677)*XX(3589)-JVS(16688)& - &*XX(3590)-JVS(16698)*XX(3591)-JVS(16705)*XX(3592)-JVS(16713)*XX(3593)-JVS(16723)*XX(3594)-JVS(16731)& - &*XX(3595)-JVS(16738)*XX(3596)-JVS(16745)*XX(3597)-JVS(16752)*XX(3598)-JVS(16763)*XX(3599)-JVS(16770)& - &*XX(3600)-JVS(16790)*XX(3602)-JVS(16798)*XX(3603)-JVS(16807)*XX(3604)-JVS(16814)*XX(3605)-JVS(16822)& - &*XX(3606)-JVS(16832)*XX(3607)-JVS(16840)*XX(3608)-JVS(16849)*XX(3609)-JVS(16857)*XX(3610)-JVS(16865)& - &*XX(3611)-JVS(16873)*XX(3612)-JVS(16881)*XX(3613)-JVS(16889)*XX(3614)-JVS(16897)*XX(3615)-JVS(16908)& - &*XX(3616)-JVS(16924)*XX(3617)-JVS(16930)*XX(3618)-JVS(16946)*XX(3619)-JVS(16951)*XX(3620)-JVS(16955)& - &*XX(3621)-JVS(16964)*XX(3623)-JVS(16968)*XX(3624)-JVS(16972)*XX(3625)-JVS(16989)*XX(3626)-JVS(16996)& - &*XX(3627)-JVS(17004)*XX(3628)-JVS(17014)*XX(3629)-JVS(17029)*XX(3631)-JVS(17036)*XX(3632)-JVS(17042)& - &*XX(3633)-JVS(17047)*XX(3634)-JVS(17055)*XX(3635)-JVS(17059)*XX(3636)-JVS(17065)*XX(3637)-JVS(17084)& - &*XX(3638)-JVS(17100)*XX(3639)-JVS(17109)*XX(3640)-JVS(17116)*XX(3641)-JVS(17129)*XX(3642)-JVS(17139)& - &*XX(3643)-JVS(17151)*XX(3644)-JVS(17161)*XX(3645)-JVS(17181)*XX(3648)-JVS(17191)*XX(3649)-JVS(17198)& - &*XX(3650)-JVS(17219)*XX(3652)-JVS(17228)*XX(3653)-JVS(17232)*XX(3654)-JVS(17242)*XX(3655)-JVS(17254)& - &*XX(3656)-JVS(17263)*XX(3657)-JVS(17268)*XX(3658)-JVS(17275)*XX(3659)-JVS(17280)*XX(3660)-JVS(17290)& - &*XX(3661)-JVS(17302)*XX(3663)-JVS(17312)*XX(3664)-JVS(17319)*XX(3665)-JVS(17327)*XX(3666)-JVS(17335)& - &*XX(3667)-JVS(17343)*XX(3668)-JVS(17350)*XX(3669)-JVS(17356)*XX(3670)-JVS(17363)*XX(3671)-JVS(17372)& - &*XX(3672)-JVS(17379)*XX(3673)-JVS(17387)*XX(3674)-JVS(17394)*XX(3675)-JVS(17402)*XX(3676)-JVS(17409)& - &*XX(3677)-JVS(17417)*XX(3678)-JVS(17425)*XX(3679)-JVS(17433)*XX(3680)-JVS(17441)*XX(3681)-JVS(17449)& - &*XX(3682)-JVS(17459)*XX(3683)-JVS(17472)*XX(3685)-JVS(17480)*XX(3686)-JVS(17487)*XX(3687)-JVS(17497)& - &*XX(3688)-JVS(17507)*XX(3689)-JVS(17516)*XX(3690)-JVS(17525)*XX(3691)-JVS(17532)*XX(3692)-JVS(17540)& - &*XX(3693)-JVS(17549)*XX(3694)-JVS(17556)*XX(3695)-JVS(17563)*XX(3696)-JVS(17570)*XX(3697)-JVS(17578)& - &*XX(3698)-JVS(17585)*XX(3699)-JVS(17592)*XX(3700)-JVS(17602)*XX(3702)-JVS(17609)*XX(3703)-JVS(17617)& - &*XX(3704)-JVS(17624)*XX(3705)-JVS(17632)*XX(3706)-JVS(17637)*XX(3707)-JVS(17644)*XX(3708)-JVS(17651)& - &*XX(3709)-JVS(17661)*XX(3710)-JVS(17668)*XX(3711)-JVS(17676)*XX(3712)-JVS(17683)*XX(3713)-JVS(17691)& - &*XX(3714)-JVS(17699)*XX(3715)-JVS(17710)*XX(3716)-JVS(17717)*XX(3717)-JVS(17726)*XX(3718)-JVS(17734)& - &*XX(3719)-JVS(17743)*XX(3720)-JVS(17750)*XX(3721)-JVS(17759)*XX(3722)-JVS(17767)*XX(3723)-JVS(17776)& - &*XX(3724)-JVS(17783)*XX(3725)-JVS(17794)*XX(3726)-JVS(17802)*XX(3727)-JVS(17809)*XX(3728)-JVS(17817)& - &*XX(3729)-JVS(17825)*XX(3730)-JVS(17834)*XX(3731)-JVS(17842)*XX(3732)-JVS(17848)*XX(3733)-JVS(17859)& - &*XX(3734)-JVS(17868)*XX(3735)-JVS(17877)*XX(3736)-JVS(17884)*XX(3737)-JVS(17892)*XX(3738)-JVS(17899)& - &*XX(3739)-JVS(17906)*XX(3740)-JVS(17917)*XX(3741)-JVS(17926)*XX(3742)-JVS(17934)*XX(3743)-JVS(17941)& - &*XX(3744)-JVS(17950)*XX(3745)-JVS(17958)*XX(3746)-JVS(17971)*XX(3747)-JVS(17983)*XX(3748)-JVS(17992)& - &*XX(3749)-JVS(18000)*XX(3750)-JVS(18009)*XX(3751)-JVS(18016)*XX(3752)-JVS(18024)*XX(3753)-JVS(18033)& - &*XX(3754)-JVS(18044)*XX(3755)-JVS(18053)*XX(3756)-JVS(18063)*XX(3757)-JVS(18070)*XX(3758)-JVS(18082)& - &*XX(3759)-JVS(18090)*XX(3760)-JVS(18099)*XX(3761)-JVS(18106)*XX(3762)-JVS(18115)*XX(3763)-JVS(18123)& - &*XX(3764)-JVS(18131)*XX(3765)-JVS(18139)*XX(3766)-JVS(18146)*XX(3767)-JVS(18154)*XX(3768)-JVS(18162)& - &*XX(3769)-JVS(18169)*XX(3770)-JVS(18177)*XX(3771)-JVS(18184)*XX(3772)-JVS(18196)*XX(3773)-JVS(18203)& - &*XX(3774)-JVS(18215)*XX(3775)-JVS(18225)*XX(3776)-JVS(18234)*XX(3777)-JVS(18242)*XX(3778)-JVS(18250)& - &*XX(3779)-JVS(18261)*XX(3780)-JVS(18268)*XX(3781)-JVS(18276)*XX(3782)-JVS(18285)*XX(3783)-JVS(18294)& - &*XX(3784)-JVS(18302)*XX(3785)-JVS(18309)*XX(3786)-JVS(18318)*XX(3787)-JVS(18325)*XX(3788)-JVS(18333)& - &*XX(3789)-JVS(18339)*XX(3790)-JVS(18346)*XX(3791)-JVS(18362)*XX(3793)-JVS(18369)*XX(3794)-JVS(18377)& - &*XX(3795)-JVS(18384)*XX(3796)-JVS(18392)*XX(3797)-JVS(18399)*XX(3798)-JVS(18406)*XX(3799)-JVS(18416)& - &*XX(3800)-JVS(18422)*XX(3801)-JVS(18431)*XX(3802)-JVS(18437)*XX(3803)-JVS(18443)*XX(3804)-JVS(18451)& - &*XX(3805)-JVS(18456)*XX(3806)-JVS(18462)*XX(3807)-JVS(18469)*XX(3808)-JVS(18481)*XX(3809)-JVS(18488)& - &*XX(3810)-JVS(18494)*XX(3811)-JVS(18502)*XX(3812)-JVS(18509)*XX(3813)-JVS(18516)*XX(3814)-JVS(18523)& - &*XX(3815)-JVS(18532)*XX(3816)-JVS(18539)*XX(3817)-JVS(18548)*XX(3818)-JVS(18554)*XX(3819)-JVS(18561)& - &*XX(3820)-JVS(18575)*XX(3821)-JVS(18585)*XX(3822)-JVS(18590)*XX(3823)-JVS(18598)*XX(3824)-JVS(18605)& - &*XX(3825)-JVS(18614)*XX(3826)-JVS(18621)*XX(3827)-JVS(18628)*XX(3828)-JVS(18636)*XX(3829)-JVS(18671)& - &*XX(3836)-JVS(18678)*XX(3837)-JVS(18688)*XX(3838)-JVS(18696)*XX(3839)-JVS(18703)*XX(3840)-JVS(18711)& - &*XX(3841)-JVS(18718)*XX(3842)-JVS(18728)*XX(3843)-JVS(18735)*XX(3844)-JVS(18745)*XX(3845)-JVS(18755)& - &*XX(3846)-JVS(18762)*XX(3847)-JVS(18769)*XX(3848)-JVS(18784)*XX(3849)-JVS(18792)*XX(3850)-JVS(18801)& - &*XX(3851)-JVS(18807)*XX(3852)-JVS(18814)*XX(3853)-JVS(18824)*XX(3854)-JVS(18833)*XX(3855)-JVS(18842)& - &*XX(3856)-JVS(18851)*XX(3857)-JVS(18859)*XX(3858)-JVS(18867)*XX(3859)-JVS(18876)*XX(3860)-JVS(18885)& - &*XX(3861)-JVS(18893)*XX(3862)-JVS(18900)*XX(3863)-JVS(18909)*XX(3864)-JVS(18916)*XX(3865)-JVS(18923)& - &*XX(3866)-JVS(18929)*XX(3867)-JVS(18942)*XX(3868)-JVS(18950)*XX(3869)-JVS(18959)*XX(3870)-JVS(18969)& - &*XX(3871)-JVS(18976)*XX(3872)-JVS(18984)*XX(3873)-JVS(18993)*XX(3874)-JVS(19002)*XX(3875)-JVS(19009)& - &*XX(3876)-JVS(19019)*XX(3877)-JVS(19026)*XX(3878)-JVS(19037)*XX(3879)-JVS(19047)*XX(3880)-JVS(19057)& - &*XX(3881)-JVS(19066)*XX(3882)-JVS(19072)*XX(3883)-JVS(19080)*XX(3884)-JVS(19088)*XX(3885)-JVS(19095)& - &*XX(3886)-JVS(19102)*XX(3887)-JVS(19111)*XX(3888)-JVS(19119)*XX(3889)-JVS(19128)*XX(3890)-JVS(19135)& - &*XX(3891)-JVS(19151)*XX(3893)-JVS(19159)*XX(3894)-JVS(19166)*XX(3895)-JVS(19177)*XX(3896)-JVS(19184)& - &*XX(3897)-JVS(19191)*XX(3898)-JVS(19199)*XX(3899)-JVS(19208)*XX(3900)-JVS(19217)*XX(3901)-JVS(19225)& - &*XX(3902)-JVS(19232)*XX(3903)-JVS(19239)*XX(3904)-JVS(19249)*XX(3905)-JVS(19257)*XX(3906)-JVS(19264)& - &*XX(3907)-JVS(19271)*XX(3908)-JVS(19278)*XX(3909)-JVS(19285)*XX(3910)-JVS(19296)*XX(3911)-JVS(19306)& - &*XX(3912)-JVS(19314)*XX(3913)-JVS(19325)*XX(3914)-JVS(19336)*XX(3915)-JVS(19346)*XX(3916)-JVS(19357)& - &*XX(3917)-JVS(19372)*XX(3918)-JVS(19382)*XX(3919)-JVS(19389)*XX(3920)-JVS(19396)*XX(3921)-JVS(19403)& - &*XX(3922)-JVS(19413)*XX(3923)-JVS(19423)*XX(3924)-JVS(19430)*XX(3925)-JVS(19440)*XX(3926)-JVS(19446)& - &*XX(3927)-JVS(19453)*XX(3928)-JVS(19464)*XX(3929)-JVS(19482)*XX(3931)-JVS(19490)*XX(3932)-JVS(19499)& - &*XX(3933)-JVS(19506)*XX(3934)-JVS(19515)*XX(3935)-JVS(19521)*XX(3936)-JVS(19529)*XX(3937)-JVS(19537)& - &*XX(3938)-JVS(19544)*XX(3939)-JVS(19551)*XX(3940)-JVS(19561)*XX(3941)-JVS(19568)*XX(3942)-JVS(19575)& - &*XX(3943)-JVS(19582)*XX(3944)-JVS(19589)*XX(3945)-JVS(19600)*XX(3946)-JVS(19610)*XX(3947)-JVS(19618)& - &*XX(3948)-JVS(19625)*XX(3949)-JVS(19632)*XX(3950)-JVS(19641)*XX(3951)-JVS(19648)*XX(3952)-JVS(19656)& - &*XX(3953)-JVS(19665)*XX(3954)-JVS(19674)*XX(3955)-JVS(19681)*XX(3956)-JVS(19690)*XX(3957)-JVS(19701)& - &*XX(3958)-JVS(19713)*XX(3959)-JVS(19719)*XX(3960)-JVS(19727)*XX(3961)-JVS(19734)*XX(3962)-JVS(19740)& - &*XX(3963)-JVS(19749)*XX(3964)-JVS(19759)*XX(3965)-JVS(19764)*XX(3966)-JVS(19773)*XX(3967)-JVS(19782)& - &*XX(3968)-JVS(19789)*XX(3969)-JVS(19796)*XX(3970)-JVS(19803)*XX(3971)-JVS(19811)*XX(3972)-JVS(19819)& - &*XX(3973)-JVS(19826)*XX(3974)-JVS(19834)*XX(3975)-JVS(19842)*XX(3976)-JVS(19852)*XX(3977)-JVS(19865)& - &*XX(3978)-JVS(19874)*XX(3979)-JVS(19881)*XX(3980)-JVS(19891)*XX(3981)-JVS(19898)*XX(3982)-JVS(19905)& - &*XX(3983)-JVS(19913)*XX(3984)-JVS(19920)*XX(3985)-JVS(19931)*XX(3986)-JVS(19938)*XX(3987)-JVS(19944)& - &*XX(3988)-JVS(19954)*XX(3989)-JVS(19960)*XX(3990)-JVS(19969)*XX(3991)-JVS(19978)*XX(3992)-JVS(19990)& - &*XX(3993)-JVS(19996)*XX(3994)-JVS(20006)*XX(3995)-JVS(20018)*XX(3997)-JVS(20030)*XX(3998)-JVS(20037)& - &*XX(3999)-JVS(20050)*XX(4000)-JVS(20057)*XX(4001)-JVS(20065)*XX(4002)-JVS(20072)*XX(4003)-JVS(20080)& - &*XX(4004)-JVS(20092)*XX(4005)-JVS(20099)*XX(4006)-JVS(20107)*XX(4007)-JVS(20115)*XX(4008)-JVS(20123)& - &*XX(4009)-JVS(20136)*XX(4011)-JVS(20148)*XX(4012)-JVS(20161)*XX(4013)-JVS(20177)*XX(4014)-JVS(20187)& - &*XX(4015)-JVS(20194)*XX(4016)-JVS(20214)*XX(4019)-JVS(20221)*XX(4020)-JVS(20229)*XX(4021)-JVS(20237)& - &*XX(4022)-JVS(20245)*XX(4023)-JVS(20254)*XX(4024)-JVS(20263)*XX(4025)-JVS(20273)*XX(4026)-JVS(20285)& - &*XX(4028)-JVS(20294)*XX(4029)-JVS(20301)*XX(4030)-JVS(20309)*XX(4031)-JVS(20321)*XX(4033)-JVS(20329)& - &*XX(4034)-JVS(20337)*XX(4035)-JVS(20345)*XX(4036)-JVS(20353)*XX(4037)-JVS(20365)*XX(4038)-JVS(20372)& - &*XX(4039)-JVS(20380)*XX(4040)-JVS(20393)*XX(4041)-JVS(20407)*XX(4042)-JVS(20416)*XX(4043)-JVS(20423)& - &*XX(4044)-JVS(20435)*XX(4045)-JVS(20448)*XX(4046)-JVS(20460)*XX(4047)-JVS(20473)*XX(4048)-JVS(20481)& - &*XX(4049)-JVS(20492)*XX(4050)-JVS(20507)*XX(4051)-JVS(20518)*XX(4052)-JVS(20529)*XX(4053)-JVS(20536)& - &*XX(4054)-JVS(20543)*XX(4055)-JVS(20555)*XX(4057)-JVS(20566)*XX(4058)-JVS(20575)*XX(4059)-JVS(20588)& - &*XX(4060)-JVS(20595)*XX(4061)-JVS(20605)*XX(4062)-JVS(20612)*XX(4063)-JVS(20620)*XX(4064)-JVS(20628)& - &*XX(4065)-JVS(20641)*XX(4067)-JVS(20649)*XX(4068)-JVS(20658)*XX(4069)-JVS(20665)*XX(4070)-JVS(20673)& - &*XX(4071)-JVS(20680)*XX(4072)-JVS(20688)*XX(4073)-JVS(20696)*XX(4074)-JVS(20703)*XX(4075)-JVS(20712)& - &*XX(4076)-JVS(20722)*XX(4077)-JVS(20730)*XX(4078)-JVS(20738)*XX(4079)-JVS(20760)*XX(4082)-JVS(20785)& - &*XX(4085)-JVS(20795)*XX(4086)-JVS(20803)*XX(4087)-JVS(20812)*XX(4088)-JVS(20823)*XX(4089)-JVS(20830)& - &*XX(4090)-JVS(20837)*XX(4091)-JVS(20851)*XX(4092)-JVS(20868)*XX(4095)-JVS(20880)*XX(4097)-JVS(20890)& - &*XX(4098)-JVS(20898)*XX(4099)-JVS(20907)*XX(4100)-JVS(20918)*XX(4101)-JVS(20928)*XX(4102)-JVS(20939)& - &*XX(4103)-JVS(20955)*XX(4104)-JVS(20964)*XX(4105)-JVS(20971)*XX(4106)-JVS(20977)*XX(4107)-JVS(20983)& - &*XX(4108)-JVS(20999)*XX(4109)-JVS(21010)*XX(4110)-JVS(21016)*XX(4111)-JVS(21023)*XX(4112)-JVS(21029)& - &*XX(4113)-JVS(21036)*XX(4114)-JVS(21044)*XX(4115)-JVS(21052)*XX(4116)-JVS(21059)*XX(4117)-JVS(21068)& - &*XX(4118)-JVS(21078)*XX(4119)-JVS(21088)*XX(4120)-JVS(21096)*XX(4121)-JVS(21107)*XX(4122)-JVS(21115)& - &*XX(4123)-JVS(21122)*XX(4124)-JVS(21136)*XX(4125)-JVS(21143)*XX(4126)-JVS(21151)*XX(4127)-JVS(21158)& - &*XX(4128)-JVS(21164)*XX(4129)-JVS(21174)*XX(4130)-JVS(21182)*XX(4131)-JVS(21190)*XX(4132)-JVS(21198)& - &*XX(4133)-JVS(21205)*XX(4134)-JVS(21211)*XX(4135)-JVS(21220)*XX(4136)-JVS(21230)*XX(4137)-JVS(21239)& - &*XX(4138)-JVS(21248)*XX(4139)-JVS(21255)*XX(4140)-JVS(21261)*XX(4141)-JVS(21268)*XX(4142)-JVS(21275)& - &*XX(4143)-JVS(21281)*XX(4144)-JVS(21288)*XX(4145)-JVS(21295)*XX(4146)-JVS(21303)*XX(4147)-JVS(21309)& - &*XX(4148)-JVS(21317)*XX(4149)-JVS(21327)*XX(4150)-JVS(21335)*XX(4151)-JVS(21346)*XX(4152)-JVS(21354)& - &*XX(4153)-JVS(21367)*XX(4154)-JVS(21375)*XX(4155)-JVS(21391)*XX(4157)-JVS(21399)*XX(4158)-JVS(21405)& - &*XX(4159)-JVS(21413)*XX(4160)-JVS(21421)*XX(4161)-JVS(21430)*XX(4162)-JVS(21438)*XX(4163)-JVS(21449)& - &*XX(4164)-JVS(21455)*XX(4165)-JVS(21463)*XX(4166)-JVS(21470)*XX(4167)-JVS(21480)*XX(4168)-JVS(21490)& - &*XX(4169)-JVS(21499)*XX(4170)-JVS(21506)*XX(4171)-JVS(21515)*XX(4172)-JVS(21524)*XX(4173)-JVS(21532)& - &*XX(4174)-JVS(21547)*XX(4175)-JVS(21553)*XX(4176)-JVS(21563)*XX(4177)-JVS(21574)*XX(4178)-JVS(21585)& - &*XX(4179)-JVS(21592)*XX(4180)-JVS(21608)*XX(4181)-JVS(21619)*XX(4182)-JVS(21635)*XX(4183)-JVS(21643)& - &*XX(4184)-JVS(21650)*XX(4185)-JVS(21662)*XX(4186)-JVS(21671)*XX(4187)-JVS(21680)*XX(4188)-JVS(21691)& - &*XX(4189)-JVS(21700)*XX(4190)-JVS(21708)*XX(4191)-JVS(21717)*XX(4192)-JVS(21726)*XX(4193)-JVS(21735)& - &*XX(4194)-JVS(21744)*XX(4195)-JVS(21757)*XX(4196)-JVS(21766)*XX(4197)-JVS(21775)*XX(4198)-JVS(21789)& - &*XX(4199)-JVS(21798)*XX(4200)-JVS(21806)*XX(4201)-JVS(21818)*XX(4202)-JVS(21828)*XX(4203)-JVS(21837)& - &*XX(4204)-JVS(21846)*XX(4205)-JVS(21855)*XX(4206)-JVS(21865)*XX(4207)-JVS(21876)*XX(4208)-JVS(21885)& - &*XX(4209)-JVS(21894)*XX(4210)-JVS(21904)*XX(4211)-JVS(21913)*XX(4212)-JVS(21933)*XX(4214)-JVS(21942)& - &*XX(4215)-JVS(21956)*XX(4216)-JVS(21965)*XX(4217)-JVS(21977)*XX(4218)-JVS(21989)*XX(4219)-JVS(22002)& - &*XX(4220)-JVS(22015)*XX(4221)-JVS(22025)*XX(4222)-JVS(22037)*XX(4223)-JVS(22048)*XX(4224)-JVS(22057)& - &*XX(4225)-JVS(22070)*XX(4226)-JVS(22080)*XX(4227)-JVS(22091)*XX(4228)-JVS(22101)*XX(4229)-JVS(22111)& - &*XX(4230)-JVS(22123)*XX(4231)-JVS(22132)*XX(4232)-JVS(22142)*XX(4233)-JVS(22152)*XX(4234)-JVS(22163)& - &*XX(4235)-JVS(22171)*XX(4236)-JVS(22181)*XX(4237)-JVS(22191)*XX(4238)-JVS(22204)*XX(4239)-JVS(22212)& - &*XX(4240)-JVS(22226)*XX(4241)-JVS(22234)*XX(4242)-JVS(22245)*XX(4243)-JVS(22254)*XX(4244)-JVS(22263)& - &*XX(4245)-JVS(22272)*XX(4246)-JVS(22298)*XX(4248)-JVS(22305)*XX(4249)-JVS(22325)*XX(4251)-JVS(22334)& - &*XX(4252)-JVS(22347)*XX(4253)-JVS(22357)*XX(4254)-JVS(22366)*XX(4255)-JVS(22377)*XX(4256)-JVS(22387)& - &*XX(4257)-JVS(22404)*XX(4259)-JVS(22414)*XX(4260)-JVS(22426)*XX(4261)-JVS(22435)*XX(4262)-JVS(22446)& - &*XX(4263)-JVS(22463)*XX(4265)-JVS(22473)*XX(4266)-JVS(22484)*XX(4267)-JVS(22493)*XX(4268)-JVS(22503)& - &*XX(4269)-JVS(22513)*XX(4270)-JVS(22522)*XX(4271)-JVS(22536)*XX(4273)-JVS(22546)*XX(4274)-JVS(22555)& - &*XX(4275)-JVS(22564)*XX(4276)-JVS(22574)*XX(4277)-JVS(22590)*XX(4278)-JVS(22601)*XX(4279)-JVS(22610)& - &*XX(4280)-JVS(22619)*XX(4281)-JVS(22636)*XX(4283)-JVS(22646)*XX(4284)-JVS(22655)*XX(4285)-JVS(22672)& - &*XX(4287)-JVS(22681)*XX(4288)-JVS(22690)*XX(4289)-JVS(22703)*XX(4290)-JVS(22712)*XX(4291)-JVS(22721)& - &*XX(4292)-JVS(22730)*XX(4293)-JVS(22752)*XX(4294)-JVS(22766)*XX(4295)-JVS(22775)*XX(4296)-JVS(22784)& - &*XX(4297)-JVS(22793)*XX(4298)-JVS(22806)*XX(4299)-JVS(22818)*XX(4300)-JVS(22828)*XX(4301)-JVS(22845)& - &*XX(4303)-JVS(22854)*XX(4304)-JVS(22863)*XX(4305)-JVS(22872)*XX(4306)-JVS(22881)*XX(4307)-JVS(22894)& - &*XX(4308)-JVS(22904)*XX(4309)-JVS(22916)*XX(4310)-JVS(22926)*XX(4311)-JVS(22936)*XX(4312)-JVS(22951)& - &*XX(4313)-JVS(22960)*XX(4314)-JVS(22972)*XX(4315)-JVS(22983)*XX(4316)-JVS(22992)*XX(4317)-JVS(23001)& - &*XX(4318)-JVS(23014)*XX(4319)-JVS(23028)*XX(4321)-JVS(23039)*XX(4322)-JVS(23047)*XX(4323)-JVS(23060)& - &*XX(4324)-JVS(23075)*XX(4325)-JVS(23086)*XX(4326)-JVS(23094)*XX(4327)-JVS(23104)*XX(4328)-JVS(23119)& - &*XX(4329)-JVS(23150)*XX(4331)-JVS(23172)*XX(4334)-JVS(23179)*XX(4335)-JVS(23188)*XX(4336)-JVS(23195)& - &*XX(4337)-JVS(23204)*XX(4338)-JVS(23210)*XX(4339)-JVS(23219)*XX(4340)-JVS(23225)*XX(4341)-JVS(23233)& - &*XX(4342)-JVS(23243)*XX(4343)-JVS(23252)*XX(4344)-JVS(23261)*XX(4345)-JVS(23269)*XX(4346)-JVS(23276)& - &*XX(4347)-JVS(23284)*XX(4348)-JVS(23292)*XX(4349)-JVS(23301)*XX(4350)-JVS(23308)*XX(4351)-JVS(23322)& - &*XX(4352)-JVS(23329)*XX(4353)-JVS(23336)*XX(4354)-JVS(23344)*XX(4355)-JVS(23352)*XX(4356)-JVS(23359)& - &*XX(4357)-JVS(23366)*XX(4358)-JVS(23374)*XX(4359)-JVS(23384)*XX(4360)-JVS(23392)*XX(4361)-JVS(23400)& - &*XX(4362)-JVS(23409)*XX(4363)-JVS(23416)*XX(4364)-JVS(23427)*XX(4365)-JVS(23451)*XX(4366)-JVS(23459)& - &*XX(4367)-JVS(23466)*XX(4368)-JVS(23474)*XX(4369)-JVS(23481)*XX(4370)-JVS(23488)*XX(4371)-JVS(23494)& - &*XX(4372)-JVS(23504)*XX(4373)-JVS(23513)*XX(4374)-JVS(23522)*XX(4375)-JVS(23535)*XX(4376)-JVS(23542)& - &*XX(4377)-JVS(23552)*XX(4378)-JVS(23559)*XX(4379)-JVS(23568)*XX(4380)-JVS(23576)*XX(4381)-JVS(23582)& - &*XX(4382)-JVS(23596)*XX(4383)-JVS(23605)*XX(4384)-JVS(23616)*XX(4385)-JVS(23632)*XX(4386)-JVS(23638)& - &*XX(4387)-JVS(23647)*XX(4388)-JVS(23656)*XX(4389)-JVS(23664)*XX(4390)-JVS(23681)*XX(4391)-JVS(23701)& - &*XX(4392)-JVS(23709)*XX(4393)-JVS(23719)*XX(4394)-JVS(23751)*XX(4398)-JVS(23760)*XX(4399)-JVS(23768)& - &*XX(4400)-JVS(23781)*XX(4401)-JVS(23791)*XX(4402)-JVS(23837)*XX(4403)-JVS(23849)*XX(4404)-JVS(23858)& - &*XX(4405)-JVS(23869)*XX(4406)-JVS(23878)*XX(4407)-JVS(23888)*XX(4408)-JVS(23899)*XX(4409)-JVS(23909)& - &*XX(4410)-JVS(23921)*XX(4411)-JVS(23931)*XX(4412)-JVS(23940)*XX(4413)-JVS(23950)*XX(4414)-JVS(23959)& - &*XX(4415)-JVS(23967)*XX(4416)-JVS(23980)*XX(4417)-JVS(23990)*XX(4418)-JVS(24002)*XX(4419)-JVS(24013)& - &*XX(4420)-JVS(24025)*XX(4421)-JVS(24033)*XX(4422)-JVS(24050)*XX(4423)-JVS(24059)*XX(4424)-JVS(24068)& - &*XX(4425)-JVS(24087)*XX(4426)-JVS(24097)*XX(4427)-JVS(24106)*XX(4428)-JVS(24117)*XX(4429)-JVS(24129)& - &*XX(4430)-JVS(24141)*XX(4431)-JVS(24150)*XX(4432)-JVS(24161)*XX(4433)-JVS(24170)*XX(4434)-JVS(24181)& - &*XX(4435)-JVS(24190)*XX(4436)-JVS(24199)*XX(4437)-JVS(24209)*XX(4438)-JVS(24220)*XX(4439)-JVS(24228)& - &*XX(4440)-JVS(24242)*XX(4441)-JVS(24255)*XX(4442)-JVS(24267)*XX(4443)-JVS(24276)*XX(4444)-JVS(24287)& - &*XX(4445)-JVS(24296)*XX(4446)-JVS(24307)*XX(4447)-JVS(24318)*XX(4448)-JVS(24332)*XX(4449)-JVS(24344)& - &*XX(4450)-JVS(24353)*XX(4451)-JVS(24363)*XX(4452)-JVS(24372)*XX(4453)-JVS(24382)*XX(4454)-JVS(24392)& - &*XX(4455)-JVS(24402)*XX(4456)-JVS(24411)*XX(4457)-JVS(24421)*XX(4458)-JVS(24430)*XX(4459)-JVS(24441)& - &*XX(4460)-JVS(24452)*XX(4461)-JVS(24470)*XX(4463)-JVS(24479)*XX(4464)-JVS(24489)*XX(4465)-JVS(24498)& - &*XX(4466)-JVS(24508)*XX(4467)-JVS(24518)*XX(4468)-JVS(24528)*XX(4469)-JVS(24538)*XX(4470)-JVS(24547)& - &*XX(4471)-JVS(24557)*XX(4472)-JVS(24566)*XX(4473)-JVS(24582)*XX(4476)-JVS(24595)*XX(4477)-JVS(24606)& - &*XX(4478)-JVS(24616)*XX(4479)-JVS(24625)*XX(4480)-JVS(24637)*XX(4481)-JVS(24658)*XX(4482)-JVS(24669)& - &*XX(4483)-JVS(24680)*XX(4484)-JVS(24695)*XX(4485)-JVS(24707)*XX(4486)-JVS(24716)*XX(4487)-JVS(24728)& - &*XX(4488)-JVS(24740)*XX(4489)-JVS(24757)*XX(4490)-JVS(24775)*XX(4491)-JVS(24804)*XX(4493)-JVS(24814)& - &*XX(4494)-JVS(24824)*XX(4495)-JVS(24835)*XX(4496)-JVS(24848)*XX(4497)-JVS(24857)*XX(4498)-JVS(24866)& - &*XX(4499)-JVS(24876)*XX(4500)-JVS(24890)*XX(4501)-JVS(24899)*XX(4502)-JVS(24910)*XX(4503)-JVS(24919)& - &*XX(4504)-JVS(24936)*XX(4506)-JVS(25012)*XX(4507)-JVS(25026)*XX(4509)-JVS(25039)*XX(4510)-JVS(25048)& - &*XX(4511)-JVS(25061)*XX(4513)-JVS(25071)*XX(4514)-JVS(25082)*XX(4515)-JVS(25091)*XX(4516)-JVS(25101)& - &*XX(4517)-JVS(25111)*XX(4518)-JVS(25122)*XX(4519)-JVS(25132)*XX(4520)-JVS(25144)*XX(4521)-JVS(25154)& - &*XX(4522)-JVS(25164)*XX(4523)-JVS(25181)*XX(4524)-JVS(25193)*XX(4525)-JVS(25228)*XX(4529)-JVS(25238)& - &*XX(4530)-JVS(25248)*XX(4531)-JVS(25260)*XX(4532)-JVS(25271)*XX(4533)-JVS(25284)*XX(4534)-JVS(25292)& - &*XX(4535)-JVS(25309)*XX(4536)-JVS(25322)*XX(4537)-JVS(25332)*XX(4538)-JVS(25344)*XX(4539)-JVS(25362)& - &*XX(4540)-JVS(25370)*XX(4541)-JVS(25379)*XX(4542)-JVS(25390)*XX(4543)-JVS(25416)*XX(4545)-JVS(25427)& - &*XX(4546)-JVS(25441)*XX(4547)-JVS(25454)*XX(4548)-JVS(25465)*XX(4549)-JVS(25476)*XX(4550)-JVS(25498)& - &*XX(4552)-JVS(25509)*XX(4553)-JVS(25516)*XX(4554)-JVS(25542)*XX(4557)-JVS(25549)*XX(4558)-JVS(25562)& - &*XX(4559)-JVS(25576)*XX(4560)-JVS(25583)*XX(4561)-JVS(25591)*XX(4562)-JVS(25599)*XX(4563)-JVS(25615)& - &*XX(4564)-JVS(25623)*XX(4565)-JVS(25630)*XX(4566)-JVS(25639)*XX(4567)-JVS(25646)*XX(4568)-JVS(25660)& - &*XX(4569)-JVS(25675)*XX(4571)-JVS(25683)*XX(4572)-JVS(25690)*XX(4573)-JVS(25697)*XX(4574)-JVS(25703)& - &*XX(4575)-JVS(25714)*XX(4576)-JVS(25725)*XX(4577)-JVS(25731)*XX(4578)-JVS(25738)*XX(4579)-JVS(25749)& - &*XX(4580)-JVS(25757)*XX(4581)-JVS(25764)*XX(4582)-JVS(25773)*XX(4583)-JVS(25780)*XX(4584)-JVS(25787)& - &*XX(4585)-JVS(25795)*XX(4586)-JVS(25802)*XX(4587)-JVS(25824)*XX(4589)-JVS(25832)*XX(4590)-JVS(25849)& - &*XX(4591)-JVS(25862)*XX(4592)-JVS(25870)*XX(4593)-JVS(25878)*XX(4594)-JVS(25886)*XX(4595)-JVS(25893)& - &*XX(4596)-JVS(25903)*XX(4597)-JVS(25910)*XX(4598)-JVS(25918)*XX(4599)-JVS(25977)*XX(4602)-JVS(25986)& - &*XX(4603)-JVS(26007)*XX(4607)-JVS(26016)*XX(4608)-JVS(26023)*XX(4609)-JVS(26030)*XX(4610)-JVS(26040)& - &*XX(4611)-JVS(26053)*XX(4612)-JVS(26064)*XX(4613)-JVS(26076)*XX(4614)-JVS(26087)*XX(4616)-JVS(26092)& - &*XX(4617)-JVS(26118)*XX(4618)-JVS(26130)*XX(4619)-JVS(26143)*XX(4620)-JVS(26176)*XX(4622)-JVS(26185)& - &*XX(4623)-JVS(26200)*XX(4624)-JVS(26208)*XX(4625)-JVS(26218)*XX(4626)-JVS(26228)*XX(4627)-JVS(26237)& - &*XX(4628)-JVS(26247)*XX(4629)-JVS(26256)*XX(4630)-JVS(26270)*XX(4631)-JVS(26280)*XX(4632)-JVS(26290)& - &*XX(4633)-JVS(26300)*XX(4634)-JVS(26309)*XX(4635)-JVS(26319)*XX(4636)-JVS(26326)*XX(4637)-JVS(26337)& - &*XX(4638)-JVS(26346)*XX(4639)-JVS(26357)*XX(4640)-JVS(26366)*XX(4641)-JVS(26377)*XX(4642)-JVS(26386)& - &*XX(4643)-JVS(26401)*XX(4644)-JVS(26410)*XX(4645)-JVS(26418)*XX(4646)-JVS(26427)*XX(4647)-JVS(26439)& - &*XX(4648)-JVS(26448)*XX(4649)-JVS(26456)*XX(4650)-JVS(26473)*XX(4651)-JVS(26483)*XX(4652)-JVS(26492)& - &*XX(4653)-JVS(26501)*XX(4654)-JVS(26511)*XX(4655)-JVS(26520)*XX(4656)-JVS(26530)*XX(4657)-JVS(26543)& - &*XX(4658)-JVS(26553)*XX(4659)-JVS(26562)*XX(4660)-JVS(26570)*XX(4661)-JVS(26581)*XX(4662)-JVS(26591)& - &*XX(4663)-JVS(26609)*XX(4664)-JVS(26618)*XX(4665)-JVS(26634)*XX(4666)-JVS(26645)*XX(4667)-JVS(26665)& - &*XX(4669)-JVS(26675)*XX(4670)-JVS(26686)*XX(4671)-JVS(26701)*XX(4672)-JVS(26714)*XX(4673)-JVS(26722)& - &*XX(4674)-JVS(26733)*XX(4675)-JVS(26744)*XX(4676)-JVS(26770)*XX(4679)-JVS(26779)*XX(4680)-JVS(26790)& - &*XX(4681)-JVS(26800)*XX(4682)-JVS(26810)*XX(4683)-JVS(26820)*XX(4684)-JVS(26829)*XX(4685)-JVS(26843)& - &*XX(4686)-JVS(26857)*XX(4687)-JVS(26866)*XX(4688)-JVS(26876)*XX(4689)-JVS(26887)*XX(4690)-JVS(26904)& - &*XX(4692)-JVS(26988)*XX(4693)-JVS(27009)*XX(4694)-JVS(27016)*XX(4695)-JVS(27024)*XX(4696)-JVS(27032)& - &*XX(4697)-JVS(27041)*XX(4698)-JVS(27047)*XX(4699)-JVS(27055)*XX(4700)-JVS(27062)*XX(4701)-JVS(27071)& - &*XX(4702)-JVS(27078)*XX(4703)-JVS(27084)*XX(4704)-JVS(27091)*XX(4705)-JVS(27098)*XX(4706)-JVS(27104)& - &*XX(4707)-JVS(27125)*XX(4708)-JVS(27133)*XX(4709)-JVS(27152)*XX(4710)-JVS(27158)*XX(4711)-JVS(27165)& - &*XX(4712)-JVS(27172)*XX(4713)-JVS(27180)*XX(4714)-JVS(27188)*XX(4715)-JVS(27195)*XX(4716)-JVS(27205)& - &*XX(4717)-JVS(27211)*XX(4718)-JVS(27221)*XX(4719)-JVS(27228)*XX(4720)-JVS(27258)*XX(4721)-JVS(27269)& - &*XX(4722)-JVS(27276)*XX(4723)-JVS(27287)*XX(4724)-JVS(27293)*XX(4725)-JVS(27306)*XX(4726)-JVS(27312)& - &*XX(4727)-JVS(27329)*XX(4728)-JVS(27355)*XX(4729)-JVS(27364)*XX(4730)-JVS(27373)*XX(4731)-JVS(27379)& - &*XX(4732)-JVS(27387)*XX(4733)-JVS(27397)*XX(4734)-JVS(27403)*XX(4735)-JVS(27414)*XX(4736)-JVS(27427)& - &*XX(4737)-JVS(27438)*XX(4738)-JVS(27450)*XX(4739)-JVS(27464)*XX(4740)-JVS(27489)*XX(4742)-JVS(27500)& - &*XX(4743)-JVS(27509)*XX(4744)-JVS(27522)*XX(4745)-JVS(27529)*XX(4746)-JVS(27565)*XX(4748)-JVS(27580)& - &*XX(4749)-JVS(27590)*XX(4750)-JVS(27601)*XX(4751)-JVS(27615)*XX(4752)-JVS(27627)*XX(4753)-JVS(27634)& - &*XX(4754)-JVS(27650)*XX(4755)-JVS(27657)*XX(4756)-JVS(27674)*XX(4758)-JVS(27689)*XX(4759)-JVS(27710)& - &*XX(4760)-JVS(27718)*XX(4761)-JVS(27726)*XX(4762)-JVS(27741)*XX(4763)-JVS(27756)*XX(4764)-JVS(27764)& - &*XX(4765)-JVS(27773)*XX(4766)-JVS(27783)*XX(4767)-JVS(27806)*XX(4768)-JVS(27819)*XX(4769)-JVS(27830)& - &*XX(4770)-JVS(27840)*XX(4771)-JVS(27851)*XX(4772)-JVS(27863)*XX(4773)-JVS(27871)*XX(4774)-JVS(27887)& - &*XX(4775)-JVS(27902)*XX(4777)-JVS(27911)*XX(4778)-JVS(27919)*XX(4779)-JVS(27928)*XX(4780)-JVS(27936)& - &*XX(4781)-JVS(27944)*XX(4782)-JVS(27951)*XX(4783)-JVS(27959)*XX(4784)-JVS(27967)*XX(4785)-JVS(27982)& - &*XX(4787)-JVS(27992)*XX(4788)-JVS(28004)*XX(4789)-JVS(28014)*XX(4790)-JVS(28025)*XX(4791)-JVS(28041)& - &*XX(4792)-JVS(28051)*XX(4793)-JVS(28066)*XX(4795)-JVS(28147)*XX(4796)-JVS(28158)*XX(4797)-JVS(28171)& - &*XX(4798)-JVS(28183)*XX(4799)-JVS(28191)*XX(4800)-JVS(28224)*XX(4801)-JVS(28232)*XX(4802)-JVS(28238)& - &*XX(4803)-JVS(28248)*XX(4804)-JVS(28268)*XX(4806)-JVS(28277)*XX(4807)-JVS(28288)*XX(4808)-JVS(28297)& - &*XX(4809)-JVS(28308)*XX(4810)-JVS(28319)*XX(4811)-JVS(28333)*XX(4812)-JVS(28343)*XX(4813)-JVS(28352)& - &*XX(4814)-JVS(28366)*XX(4815)-JVS(28375)*XX(4816)-JVS(28385)*XX(4817)-JVS(28394)*XX(4818)-JVS(28412)& - &*XX(4820)-JVS(28418)*XX(4821)-JVS(28432)*XX(4822)-JVS(28453)*XX(4823)-JVS(28470)*XX(4825)-JVS(28481)& - &*XX(4826)-JVS(28492)*XX(4827)-JVS(28509)*XX(4829)-JVS(28521)*XX(4830)-JVS(28539)*XX(4831)-JVS(28558)& - &*XX(4833)-JVS(28574)*XX(4834)-JVS(28581)*XX(4835)-JVS(28591)*XX(4836)-JVS(28600)*XX(4837)-JVS(28628)& - &*XX(4839)-JVS(28648)*XX(4841)-JVS(28673)*XX(4842)-JVS(28697)*XX(4844)-JVS(28710)*XX(4845)-JVS(28722)& - &*XX(4846)-JVS(28739)*XX(4847)-JVS(28751)*XX(4848)-JVS(28767)*XX(4849)-JVS(28789)*XX(4850)-JVS(28807)& - &*XX(4851)-JVS(28820)*XX(4852)-JVS(28836)*XX(4853)-JVS(28850)*XX(4854)-JVS(28863)*XX(4855)-JVS(28875)& - &*XX(4856)-JVS(28887)*XX(4857)-JVS(28898)*XX(4858)-JVS(28908)*XX(4859)-JVS(28920)*XX(4860)-JVS(28931)& - &*XX(4861)-JVS(28943)*XX(4862)-JVS(28956)*XX(4863)-JVS(28973)*XX(4864)-JVS(28993)*XX(4865)-JVS(29005)& - &*XX(4866)-JVS(29019)*XX(4867)-JVS(29054)*XX(4870)-JVS(29071)*XX(4871)-JVS(29086)*XX(4872)-JVS(29099)& - &*XX(4873)-JVS(29116)*XX(4874)-JVS(29130)*XX(4875)-JVS(29137)*XX(4876)-JVS(29144)*XX(4877)-JVS(29152)& - &*XX(4878)-JVS(29159)*XX(4879)-JVS(29167)*XX(4880)-JVS(29174)*XX(4881)-JVS(29188)*XX(4882)-JVS(29199)& - &*XX(4883)-JVS(29207)*XX(4884)-JVS(29218)*XX(4885)-JVS(29226)*XX(4886)-JVS(29237)*XX(4887)-JVS(29248)& - &*XX(4888)-JVS(29257)*XX(4889)-JVS(29270)*XX(4890)-JVS(29279)*XX(4891)-JVS(29288)*XX(4892)-JVS(29300)& - &*XX(4893)-JVS(29309)*XX(4894)-JVS(29319)*XX(4895)-JVS(29330)*XX(4896)-JVS(29342)*XX(4897)-JVS(29355)& - &*XX(4898)-JVS(29366)*XX(4899)-JVS(29377)*XX(4900)-JVS(29390)*XX(4901)-JVS(29410)*XX(4902)-JVS(29420)& - &*XX(4903)-JVS(29452)*XX(4904)-JVS(29464)*XX(4905)-JVS(29521)*XX(4909)-JVS(29542)*XX(4910)-JVS(29554)& - &*XX(4911)-JVS(29580)*XX(4913)-JVS(29593)*XX(4914)-JVS(29606)*XX(4915)-JVS(29626)*XX(4916)-JVS(29641)& - &*XX(4917)-JVS(29676)*XX(4918)-JVS(29699)*XX(4920)-JVS(29716)*XX(4921)-JVS(29723)*XX(4922)-JVS(29733)& - &*XX(4923)-JVS(29754)*XX(4924)-JVS(29762)*XX(4925)-JVS(29774)*XX(4926)-JVS(29784)*XX(4927)-JVS(29791)& - &*XX(4928)-JVS(29813)*XX(4929)-JVS(29827)*XX(4930)-JVS(29862)*XX(4931)-JVS(29870)*XX(4932)-JVS(29879)& - &*XX(4933)-JVS(29889)*XX(4934)-JVS(29899)*XX(4935)-JVS(29914)*XX(4936)-JVS(29922)*XX(4937)-JVS(30011)& - &*XX(4938)-JVS(30035)*XX(4939)-JVS(30056)*XX(4940)-JVS(30087)*XX(4942)-JVS(30128)*XX(4944)-JVS(30143)& - &*XX(4946)-JVS(30171)*XX(4947)-JVS(30181)*XX(4948)-JVS(30202)*XX(4949)-JVS(30211)*XX(4950)-JVS(30225)& - &*XX(4951)-JVS(30238)*XX(4952)-JVS(30253)*XX(4953)-JVS(30268)*XX(4954)-JVS(30278)*XX(4955)-JVS(30300)& - &*XX(4957)-JVS(30331)*XX(4958)-JVS(30348)*XX(4959)-JVS(30360)*XX(4960)-JVS(30375)*XX(4961)-JVS(30389)& - &*XX(4962)-JVS(30423)*XX(4964)-JVS(30439)*XX(4965)-JVS(30458)*XX(4966)-JVS(30470)*XX(4967)-JVS(30479)& - &*XX(4968)-JVS(30493)*XX(4969)-JVS(30502)*XX(4970)-JVS(30508)*XX(4971)-JVS(30516)*XX(4972)-JVS(30549)& - &*XX(4973)-JVS(30557)*XX(4974)-JVS(30570)*XX(4975)-JVS(30586)*XX(4977)-JVS(30604)*XX(4978)-JVS(30616)& - &*XX(4979)-JVS(30629)*XX(4980)-JVS(30649)*XX(4981)-JVS(30658)*XX(4982)-JVS(30700)*XX(4983)-JVS(30713)& - &*XX(4984)-JVS(30729)*XX(4985)-JVS(30757)*XX(4986)-JVS(30767)*XX(4987)-JVS(30786)*XX(4989)-JVS(30799)& - &*XX(4990)-JVS(30824)*XX(4991)-JVS(30835)*XX(4992)-JVS(30845)*XX(4993)-JVS(30856)*XX(4994)-JVS(30882)& - &*XX(4995)-JVS(30899)*XX(4996)-JVS(30978)*XX(5000)-JVS(31010)*XX(5001)-JVS(31029)*XX(5003)-JVS(31056)& - &*XX(5004)-JVS(31069)*XX(5005)-JVS(31096)*XX(5006)-JVS(31114)*XX(5007)-JVS(31130)*XX(5008)-JVS(31146)& - &*XX(5009)-JVS(31163)*XX(5010)-JVS(31189)*XX(5011)-JVS(31210)*XX(5012)-JVS(31230)*XX(5014)-JVS(31239)& - &*XX(5015)-JVS(31257)*XX(5016)-JVS(31272)*XX(5017)-JVS(31289)*XX(5018)-JVS(31300)*XX(5019)-JVS(31313)& - &*XX(5020)-JVS(31324)*XX(5021)-JVS(31333)*XX(5022)-JVS(31371)*XX(5023)-JVS(31380)*XX(5024)-JVS(31389)& - &*XX(5025)-JVS(31416)*XX(5026)-JVS(31428)*XX(5027)-JVS(31437)*XX(5028)-JVS(31457)*XX(5029)-JVS(31467)& - &*XX(5030)-JVS(31510)*XX(5031)-JVS(31520)*XX(5032)-JVS(31528)*XX(5033)-JVS(31544)*XX(5034)-JVS(31554)& - &*XX(5035)-JVS(31572)*XX(5036)-JVS(31593)*XX(5037)-JVS(31624)*XX(5038)-JVS(31645)*XX(5039)-JVS(31666)& - &*XX(5041)-JVS(31683)*XX(5042)-JVS(31694)*XX(5043)-JVS(31709)*XX(5044)-JVS(31718)*XX(5045)-JVS(31810)& - &*XX(5046)-JVS(31845)*XX(5049)-JVS(31856)*XX(5050)-JVS(31877)*XX(5052)-JVS(31898)*XX(5053)-JVS(31914)& - &*XX(5054)-JVS(31941)*XX(5055)-JVS(31949)*XX(5056)-JVS(31973)*XX(5057)-JVS(31994)*XX(5058)-JVS(32033)& - &*XX(5059)-JVS(32053)*XX(5060)-JVS(32062)*XX(5061)-JVS(32082)*XX(5062)-JVS(32097)*XX(5063)-JVS(32113)& - &*XX(5064)-JVS(32120)*XX(5065)-JVS(32133)*XX(5066)-JVS(32153)*XX(5067)-JVS(32167)*XX(5068)-JVS(32178)& - &*XX(5069)-JVS(32223)*XX(5071)-JVS(32238)*XX(5072)-JVS(32256)*XX(5073)-JVS(32264)*XX(5074)-JVS(32276)& - &*XX(5075)-JVS(32284)*XX(5076)-JVS(32293)*XX(5077)-JVS(32307)*XX(5078)-JVS(32330)*XX(5079)-JVS(32368)& - &*XX(5080)-JVS(32376)*XX(5081)-JVS(32384)*XX(5082)-JVS(32402)*XX(5083)-JVS(32416)*XX(5084)-JVS(32448)& - &*XX(5085)-JVS(32489)*XX(5086)-JVS(32517)*XX(5087)-JVS(32529)*XX(5088)-JVS(32545)*XX(5089)-JVS(32558)& - &*XX(5090)-JVS(32569)*XX(5091)-JVS(32592)*XX(5093)-JVS(32623)*XX(5094)-JVS(32645)*XX(5095)-JVS(32657)& - &*XX(5096)-JVS(32678)*XX(5097)-JVS(32714)*XX(5098)-JVS(32730)*XX(5099)-JVS(32765)*XX(5100)-JVS(32796)& - &*XX(5101)-JVS(32815)*XX(5102)-JVS(32829)*XX(5103)-JVS(32855)*XX(5104)-JVS(32876)*XX(5105)-JVS(32922)& - &*XX(5106)-JVS(32930)*XX(5107)-JVS(32941)*XX(5108)-JVS(32949)*XX(5109)-JVS(32979)*XX(5110)-JVS(33000)& - &*XX(5111)-JVS(33010)*XX(5112)-JVS(33027)*XX(5113)-JVS(33039)*XX(5114)-JVS(33058)*XX(5115)-JVS(33075)& - &*XX(5116)-JVS(33098)*XX(5117)-JVS(33108)*XX(5118)-JVS(33118)*XX(5119)-JVS(33131)*XX(5120)-JVS(33155)& - &*XX(5121)-JVS(33170)*XX(5122)-JVS(33207)*XX(5123)-JVS(33223)*XX(5124)-JVS(33299)*XX(5125)-JVS(33321)& - &*XX(5126)-JVS(33334)*XX(5127)-JVS(33352)*XX(5128)-JVS(33388)*XX(5129)-JVS(33414)*XX(5130)-JVS(33437)& - &*XX(5131)-JVS(33445)*XX(5132)-JVS(33460)*XX(5133)-JVS(33479)*XX(5134)-JVS(33492)*XX(5135)-JVS(33521)& - &*XX(5136)-JVS(33571)*XX(5137)-JVS(33579)*XX(5138)-JVS(33714)*XX(5139)-JVS(33735)*XX(5140)-JVS(33756)& - &*XX(5141)-JVS(33828)*XX(5142)-JVS(33896)*XX(5143)-JVS(33905)*XX(5144)-JVS(33957)*XX(5145)-JVS(33965)& - &*XX(5146)-JVS(33982)*XX(5147)-JVS(34002)*XX(5148)-JVS(34026)*XX(5149)-JVS(34046)*XX(5150)-JVS(34067)& - &*XX(5151)-JVS(34115)*XX(5152)-JVS(34125)*XX(5153)-JVS(34134)*XX(5154)-JVS(34151)*XX(5155)-JVS(34174)& - &*XX(5156)-JVS(34195)*XX(5157)-JVS(34250)*XX(5158)-JVS(34263)*XX(5159)-JVS(34513)*XX(5160)-JVS(34549)& - &*XX(5161)-JVS(34573)*XX(5162)-JVS(34588)*XX(5163)-JVS(34617)*XX(5164)-JVS(34660)*XX(5165)-JVS(34683)& - &*XX(5167)-JVS(34694)*XX(5168)-JVS(34715)*XX(5169)-JVS(34750)*XX(5170)-JVS(34784)*XX(5171)-JVS(34818)& - &*XX(5172)-JVS(34831)*XX(5173)-JVS(34841)*XX(5174)-JVS(34851)*XX(5175)-JVS(34880)*XX(5176)-JVS(34908)& - &*XX(5177)-JVS(34962)*XX(5178)-JVS(35006)*XX(5179)-JVS(35047)*XX(5180)-JVS(35055)*XX(5181)-JVS(35142)& - &*XX(5182)-JVS(35356)*XX(5183)-JVS(35415)*XX(5184)-JVS(35437)*XX(5185)-JVS(35444)*XX(5186)-JVS(35453)& - &*XX(5187)-JVS(35566)*XX(5188)-JVS(35585)*XX(5189)-JVS(35594)*XX(5190)-JVS(35703)*XX(5191)-JVS(35717)& - &*XX(5192)-JVS(36009)*XX(5193)-JVS(36044)*XX(5194)-JVS(36106)*XX(5195)-JVS(36123)*XX(5196)-JVS(36182)& - &*XX(5197)-JVS(36199)*XX(5198)-JVS(36273)*XX(5199)-JVS(36293)*XX(5200)-JVS(36759)*XX(5201)-JVS(36801)& - &*XX(5202)-JVS(36852)*XX(5203)-JVS(36861)*XX(5204)-JVS(36876)*XX(5205)-JVS(36887)*XX(5206)-JVS(36907)& - &*XX(5207)-JVS(36936)*XX(5208)-JVS(36960)*XX(5209)-JVS(37035)*XX(5210)-JVS(37078)*XX(5211)-JVS(37095)& - &*XX(5212)-JVS(37118)*XX(5213)-JVS(37196)*XX(5214)-JVS(37225)*XX(5215)-JVS(37280)*XX(5216)-JVS(37289)& - &*XX(5217)-JVS(37300)*XX(5218)-JVS(37312)*XX(5219)-JVS(37330)*XX(5220)-JVS(37368)*XX(5221)-JVS(37669)& - &*XX(5222)-JVS(37726)*XX(5223)-JVS(37745)*XX(5224)-JVS(37783)*XX(5225)-JVS(37819)*XX(5226)-JVS(37833)& - &*XX(5227)-JVS(37973)*XX(5228)-JVS(38015)*XX(5229)-JVS(38086)*XX(5230)-JVS(38787)*XX(5231)-JVS(38937)& - &*XX(5232)-JVS(39190)*XX(5233)-JVS(39339)*XX(5234)-JVS(39398)*XX(5235)-JVS(39415)*XX(5236)-JVS(39490)& - &*XX(5237)-JVS(39537)*XX(5238)-JVS(39562)*XX(5239)-JVS(39593)*XX(5240)-JVS(39681)*XX(5241)-JVS(39766)& - &*XX(5242)-JVS(39818)*XX(5243)-JVS(40448)*XX(5244)-JVS(40470)*XX(5245)-JVS(40506)*XX(5246)-JVS(40537)& - &*XX(5247)-JVS(40567)*XX(5248)-JVS(40583)*XX(5249)-JVS(45061)*XX(5250)-JVS(46586)*XX(5251)-JVS(47937)& - &*XX(5252)-JVS(50213)*XX(5253)-JVS(50321)*XX(5254))/(JVS(53212)) - XX(5256) = (X(5256)-JVS(89)*XX(14)-JVS(97)*XX(16)-JVS(126)*XX(25)-JVS(158)*XX(35)-JVS(163)*XX(36)-JVS(183)*XX(42)& - &-JVS(188)*XX(43)-JVS(193)*XX(44)-JVS(198)*XX(45)-JVS(212)*XX(49)-JVS(217)*XX(50)-JVS(222)*XX(51)-JVS(242)& - &*XX(57)-JVS(268)*XX(65)-JVS(273)*XX(66)-JVS(284)*XX(69)-JVS(307)*XX(76)-JVS(315)*XX(78)-JVS(323)*XX(80)& - &-JVS(331)*XX(82)-JVS(351)*XX(88)-JVS(362)*XX(91)-JVS(367)*XX(92)-JVS(381)*XX(96)-JVS(386)*XX(97)-JVS(418)& - &*XX(107)-JVS(438)*XX(113)-JVS(446)*XX(115)-JVS(451)*XX(116)-JVS(456)*XX(117)-JVS(467)*XX(120)-JVS(485)& - &*XX(125)-JVS(502)*XX(130)-JVS(510)*XX(132)-JVS(525)*XX(137)-JVS(530)*XX(138)-JVS(538)*XX(140)-JVS(543)& - &*XX(141)-JVS(557)*XX(145)-JVS(562)*XX(146)-JVS(574)*XX(149)-JVS(580)*XX(150)-JVS(586)*XX(151)-JVS(593)& - &*XX(152)-JVS(599)*XX(153)-JVS(605)*XX(154)-JVS(611)*XX(155)-JVS(617)*XX(156)-JVS(623)*XX(157)-JVS(629)& - &*XX(158)-JVS(635)*XX(159)-JVS(641)*XX(160)-JVS(647)*XX(161)-JVS(653)*XX(162)-JVS(660)*XX(163)-JVS(667)& - &*XX(164)-JVS(673)*XX(165)-JVS(679)*XX(166)-JVS(685)*XX(167)-JVS(691)*XX(168)-JVS(698)*XX(169)-JVS(705)& - &*XX(170)-JVS(711)*XX(171)-JVS(717)*XX(172)-JVS(723)*XX(173)-JVS(729)*XX(174)-JVS(735)*XX(175)-JVS(741)& - &*XX(176)-JVS(747)*XX(177)-JVS(753)*XX(178)-JVS(759)*XX(179)-JVS(765)*XX(180)-JVS(773)*XX(182)-JVS(779)& - &*XX(183)-JVS(785)*XX(184)-JVS(791)*XX(185)-JVS(797)*XX(186)-JVS(803)*XX(187)-JVS(809)*XX(188)-JVS(815)& - &*XX(189)-JVS(821)*XX(190)-JVS(827)*XX(191)-JVS(833)*XX(192)-JVS(839)*XX(193)-JVS(845)*XX(194)-JVS(851)& - &*XX(195)-JVS(857)*XX(196)-JVS(863)*XX(197)-JVS(871)*XX(199)-JVS(877)*XX(200)-JVS(883)*XX(201)-JVS(889)& - &*XX(202)-JVS(895)*XX(203)-JVS(902)*XX(204)-JVS(908)*XX(205)-JVS(915)*XX(206)-JVS(937)*XX(211)-JVS(1081)& - &*XX(254)-JVS(1142)*XX(271)-JVS(1210)*XX(290)-JVS(1238)*XX(297)-JVS(1251)*XX(300)-JVS(1303)*XX(315)-JVS(1346)& - &*XX(326)-JVS(1492)*XX(370)-JVS(1625)*XX(407)-JVS(1674)*XX(421)-JVS(1750)*XX(443)-JVS(1761)*XX(445)-JVS(1782)& - &*XX(450)-JVS(2049)*XX(528)-JVS(2063)*XX(532)-JVS(2068)*XX(533)-JVS(2073)*XX(534)-JVS(2078)*XX(535)-JVS(2086)& - &*XX(537)-JVS(2094)*XX(539)-JVS(2102)*XX(541)-JVS(2113)*XX(544)-JVS(2118)*XX(545)-JVS(2132)*XX(549)-JVS(2137)& - &*XX(550)-JVS(2142)*XX(551)-JVS(2147)*XX(552)-JVS(2152)*XX(553)-JVS(2160)*XX(555)-JVS(2168)*XX(557)-JVS(2195)& - &*XX(564)-JVS(2215)*XX(570)-JVS(2220)*XX(571)-JVS(2228)*XX(573)-JVS(2233)*XX(574)-JVS(2238)*XX(575)-JVS(2260)& - &*XX(581)-JVS(2265)*XX(582)-JVS(2273)*XX(584)-JVS(2278)*XX(585)-JVS(2292)*XX(589)-JVS(2303)*XX(592)-JVS(2318)& - &*XX(595)-JVS(2323)*XX(596)-JVS(2328)*XX(597)-JVS(2339)*XX(600)-JVS(2350)*XX(603)-JVS(2358)*XX(605)-JVS(2379)& - &*XX(610)-JVS(2400)*XX(615)-JVS(2408)*XX(617)-JVS(2413)*XX(618)-JVS(2418)*XX(619)-JVS(2423)*XX(620)-JVS(2434)& - &*XX(623)-JVS(2439)*XX(624)-JVS(2444)*XX(625)-JVS(2452)*XX(627)-JVS(2460)*XX(629)-JVS(2465)*XX(630)-JVS(2475)& - &*XX(632)-JVS(2486)*XX(635)-JVS(2494)*XX(637)-JVS(2499)*XX(638)-JVS(2504)*XX(639)-JVS(2512)*XX(641)-JVS(2522)& - &*XX(643)-JVS(2527)*XX(644)-JVS(2532)*XX(645)-JVS(2537)*XX(646)-JVS(2545)*XX(648)-JVS(2550)*XX(649)-JVS(2571)& - &*XX(654)-JVS(2576)*XX(655)-JVS(2581)*XX(656)-JVS(2589)*XX(658)-JVS(2597)*XX(660)-JVS(2608)*XX(663)-JVS(2616)& - &*XX(665)-JVS(2621)*XX(666)-JVS(2627)*XX(668)-JVS(2632)*XX(669)-JVS(2637)*XX(670)-JVS(2645)*XX(672)-JVS(2650)& - &*XX(673)-JVS(2655)*XX(674)-JVS(2666)*XX(677)-JVS(2674)*XX(679)-JVS(2688)*XX(682)-JVS(2705)*XX(687)-JVS(2710)& - &*XX(688)-JVS(2715)*XX(689)-JVS(2731)*XX(693)-JVS(2739)*XX(695)-JVS(2747)*XX(697)-JVS(2752)*XX(698)-JVS(2771)& - &*XX(703)-JVS(2776)*XX(704)-JVS(2784)*XX(706)-JVS(2789)*XX(707)-JVS(2794)*XX(708)-JVS(2804)*XX(710)-JVS(2809)& - &*XX(711)-JVS(2814)*XX(712)-JVS(2822)*XX(714)-JVS(2832)*XX(716)-JVS(2837)*XX(717)-JVS(2848)*XX(720)-JVS(2853)& - &*XX(721)-JVS(2858)*XX(722)-JVS(2866)*XX(724)-JVS(2874)*XX(726)-JVS(2879)*XX(727)-JVS(2884)*XX(728)-JVS(2889)& - &*XX(729)-JVS(2894)*XX(730)-JVS(2899)*XX(731)-JVS(2907)*XX(733)-JVS(2912)*XX(734)-JVS(2927)*XX(737)-JVS(2935)& - &*XX(739)-JVS(2940)*XX(740)-JVS(2945)*XX(741)-JVS(2953)*XX(743)-JVS(2958)*XX(744)-JVS(2963)*XX(745)-JVS(2968)& - &*XX(746)-JVS(2973)*XX(747)-JVS(2978)*XX(748)-JVS(2983)*XX(749)-JVS(2988)*XX(750)-JVS(3001)*XX(753)-JVS(3009)& - &*XX(755)-JVS(3014)*XX(756)-JVS(3029)*XX(760)-JVS(3034)*XX(761)-JVS(3048)*XX(765)-JVS(3059)*XX(768)-JVS(3067)& - &*XX(770)-JVS(3078)*XX(773)-JVS(3083)*XX(774)-JVS(3088)*XX(775)-JVS(3093)*XX(776)-JVS(3098)*XX(777)-JVS(3103)& - &*XX(778)-JVS(3111)*XX(780)-JVS(3116)*XX(781)-JVS(3121)*XX(782)-JVS(3126)*XX(783)-JVS(3131)*XX(784)-JVS(3139)& - &*XX(786)-JVS(3144)*XX(787)-JVS(3158)*XX(791)-JVS(3163)*XX(792)-JVS(3174)*XX(795)-JVS(3182)*XX(797)-JVS(3187)& - &*XX(798)-JVS(3195)*XX(800)-JVS(3200)*XX(801)-JVS(3205)*XX(802)-JVS(3225)*XX(808)-JVS(3230)*XX(809)-JVS(3235)& - &*XX(810)-JVS(3249)*XX(814)-JVS(3254)*XX(815)-JVS(3259)*XX(816)-JVS(3264)*XX(817)-JVS(3277)*XX(820)-JVS(4042)& - &*XX(1011)-JVS(4964)*XX(1240)-JVS(4988)*XX(1246)-JVS(5389)*XX(1346)-JVS(6221)*XX(1552)-JVS(6227)*XX(1553)& - &-JVS(6240)*XX(1556)-JVS(6252)*XX(1559)-JVS(6267)*XX(1563)-JVS(6273)*XX(1564)-JVS(6292)*XX(1568)-JVS(6309)& - &*XX(1572)-JVS(6313)*XX(1573)-JVS(6319)*XX(1574)-JVS(6339)*XX(1579)-JVS(6342)*XX(1580)-JVS(6358)*XX(1583)& - &-JVS(6394)*XX(1592)-JVS(6400)*XX(1593)-JVS(6409)*XX(1595)-JVS(6418)*XX(1597)-JVS(6452)*XX(1605)-JVS(6460)& - &*XX(1606)-JVS(6468)*XX(1607)-JVS(6476)*XX(1608)-JVS(6499)*XX(1614)-JVS(6508)*XX(1616)-JVS(6516)*XX(1617)& - &-JVS(6530)*XX(1620)-JVS(6541)*XX(1622)-JVS(6552)*XX(1624)-JVS(6564)*XX(1627)-JVS(6586)*XX(1631)-JVS(6598)& - &*XX(1634)-JVS(6613)*XX(1638)-JVS(6623)*XX(1640)-JVS(6644)*XX(1645)-JVS(6668)*XX(1650)-JVS(6679)*XX(1652)& - &-JVS(6689)*XX(1654)-JVS(6724)*XX(1661)-JVS(6730)*XX(1662)-JVS(6736)*XX(1663)-JVS(6751)*XX(1667)-JVS(6780)& - &*XX(1675)-JVS(6790)*XX(1677)-JVS(6799)*XX(1679)-JVS(6807)*XX(1680)-JVS(6822)*XX(1684)-JVS(6843)*XX(1689)& - &-JVS(6853)*XX(1691)-JVS(6859)*XX(1692)-JVS(6871)*XX(1695)-JVS(6891)*XX(1699)-JVS(6903)*XX(1702)-JVS(6936)& - &*XX(1710)-JVS(6952)*XX(1713)-JVS(6960)*XX(1714)-JVS(6966)*XX(1715)-JVS(6984)*XX(1720)-JVS(6990)*XX(1721)& - &-JVS(7000)*XX(1723)-JVS(7006)*XX(1724)-JVS(7012)*XX(1725)-JVS(7023)*XX(1727)-JVS(7047)*XX(1732)-JVS(7069)& - &*XX(1737)-JVS(7084)*XX(1739)-JVS(7093)*XX(1741)-JVS(7102)*XX(1743)-JVS(7113)*XX(1745)-JVS(7124)*XX(1748)& - &-JVS(7136)*XX(1750)-JVS(7157)*XX(1754)-JVS(7165)*XX(1755)-JVS(7188)*XX(1760)-JVS(7229)*XX(1769)-JVS(7249)& - &*XX(1773)-JVS(7257)*XX(1775)-JVS(7283)*XX(1781)-JVS(7310)*XX(1787)-JVS(7323)*XX(1789)-JVS(7341)*XX(1792)& - &-JVS(7361)*XX(1796)-JVS(7377)*XX(1799)-JVS(7398)*XX(1803)-JVS(7406)*XX(1805)-JVS(7420)*XX(1808)-JVS(7429)& - &*XX(1810)-JVS(7442)*XX(1812)-JVS(7454)*XX(1814)-JVS(7459)*XX(1815)-JVS(7476)*XX(1818)-JVS(7488)*XX(1820)& - &-JVS(7496)*XX(1821)-JVS(7504)*XX(1822)-JVS(7517)*XX(1825)-JVS(7557)*XX(1833)-JVS(7582)*XX(1838)-JVS(7611)& - &*XX(1845)-JVS(7623)*XX(1847)-JVS(7628)*XX(1848)-JVS(7649)*XX(1852)-JVS(7684)*XX(1860)-JVS(7708)*XX(1865)& - &-JVS(7713)*XX(1866)-JVS(7721)*XX(1867)-JVS(7746)*XX(1872)-JVS(7766)*XX(1877)-JVS(7787)*XX(1882)-JVS(7824)& - &*XX(1891)-JVS(7829)*XX(1892)-JVS(7879)*XX(1903)-JVS(7895)*XX(1906)-JVS(7915)*XX(1910)-JVS(7973)*XX(1923)& - &-JVS(7978)*XX(1924)-JVS(7991)*XX(1927)-JVS(8011)*XX(1931)-JVS(8030)*XX(1936)-JVS(8058)*XX(1942)-JVS(8067)& - &*XX(1944)-JVS(8075)*XX(1945)-JVS(8100)*XX(1951)-JVS(8119)*XX(1955)-JVS(8140)*XX(1960)-JVS(8148)*XX(1961)& - &-JVS(8157)*XX(1962)-JVS(8178)*XX(1967)-JVS(8198)*XX(1971)-JVS(8219)*XX(1975)-JVS(8262)*XX(1984)-JVS(8274)& - &*XX(1986)-JVS(8290)*XX(1989)-JVS(8330)*XX(1998)-JVS(8343)*XX(2000)-JVS(8360)*XX(2004)-JVS(8365)*XX(2005)& - &-JVS(8378)*XX(2008)-JVS(8396)*XX(2012)-JVS(8411)*XX(2015)-JVS(8450)*XX(2024)-JVS(8471)*XX(2029)-JVS(8479)& - &*XX(2030)-JVS(8487)*XX(2031)-JVS(8500)*XX(2033)-JVS(8513)*XX(2035)-JVS(8542)*XX(2041)-JVS(8569)*XX(2048)& - &-JVS(8581)*XX(2050)-JVS(8598)*XX(2054)-JVS(8611)*XX(2056)-JVS(8631)*XX(2060)-JVS(8656)*XX(2066)-JVS(8689)& - &*XX(2073)-JVS(8705)*XX(2076)-JVS(8742)*XX(2085)-JVS(8758)*XX(2088)-JVS(8767)*XX(2090)-JVS(8812)*XX(2100)& - &-JVS(8861)*XX(2112)-JVS(8882)*XX(2117)-JVS(8907)*XX(2122)-JVS(8938)*XX(2130)-JVS(9005)*XX(2145)-JVS(9059)& - &*XX(2158)-JVS(9076)*XX(2162)-JVS(9084)*XX(2163)-JVS(9100)*XX(2167)-JVS(9113)*XX(2170)-JVS(9129)*XX(2173)& - &-JVS(9185)*XX(2186)-JVS(9206)*XX(2190)-JVS(9248)*XX(2200)-JVS(9253)*XX(2201)-JVS(9262)*XX(2203)-JVS(9283)& - &*XX(2207)-JVS(9298)*XX(2210)-JVS(9367)*XX(2226)-JVS(9380)*XX(2229)-JVS(9403)*XX(2234)-JVS(9420)*XX(2238)& - &-JVS(9465)*XX(2249)-JVS(9569)*XX(2274)-JVS(9592)*XX(2279)-JVS(9600)*XX(2281)-JVS(9617)*XX(2284)-JVS(9629)& - &*XX(2287)-JVS(9659)*XX(2293)-JVS(9710)*XX(2304)-JVS(9726)*XX(2308)-JVS(9788)*XX(2322)-JVS(9793)*XX(2323)& - &-JVS(9801)*XX(2324)-JVS(9812)*XX(2326)-JVS(9848)*XX(2334)-JVS(9939)*XX(2356)-JVS(9961)*XX(2361)-JVS(10020)& - &*XX(2374)-JVS(10029)*XX(2376)-JVS(10091)*XX(2390)-JVS(10123)*XX(2398)-JVS(10131)*XX(2399)-JVS(10200)& - &*XX(2415)-JVS(10220)*XX(2420)-JVS(10260)*XX(2430)-JVS(10358)*XX(2452)-JVS(10383)*XX(2457)-JVS(10411)& - &*XX(2464)-JVS(10420)*XX(2465)-JVS(10461)*XX(2473)-JVS(10492)*XX(2480)-JVS(10535)*XX(2490)-JVS(10546)& - &*XX(2492)-JVS(10553)*XX(2493)-JVS(10565)*XX(2495)-JVS(10596)*XX(2502)-JVS(10615)*XX(2506)-JVS(10626)& - &*XX(2508)-JVS(10646)*XX(2512)-JVS(10665)*XX(2516)-JVS(10689)*XX(2521)-JVS(10712)*XX(2526)-JVS(10725)& - &*XX(2528)-JVS(10756)*XX(2535)-JVS(10763)*XX(2536)-JVS(10779)*XX(2539)-JVS(10807)*XX(2545)-JVS(10830)& - &*XX(2549)-JVS(10837)*XX(2550)-JVS(10844)*XX(2551)-JVS(10871)*XX(2557)-JVS(10890)*XX(2561)-JVS(10899)& - &*XX(2562)-JVS(10906)*XX(2563)-JVS(10921)*XX(2566)-JVS(10959)*XX(2574)-JVS(10966)*XX(2575)-JVS(10977)& - &*XX(2577)-JVS(10984)*XX(2578)-JVS(10999)*XX(2581)-JVS(11022)*XX(2586)-JVS(11033)*XX(2588)-JVS(11042)& - &*XX(2589)-JVS(11053)*XX(2591)-JVS(11060)*XX(2592)-JVS(11073)*XX(2594)-JVS(11081)*XX(2595)-JVS(11088)& - &*XX(2596)-JVS(11099)*XX(2598)-JVS(11106)*XX(2599)-JVS(11129)*XX(2604)-JVS(11144)*XX(2607)-JVS(11176)& - &*XX(2614)-JVS(11215)*XX(2623)-JVS(11264)*XX(2634)-JVS(11285)*XX(2638)-JVS(11292)*XX(2639)-JVS(11303)& - &*XX(2641)-JVS(11312)*XX(2642)-JVS(11325)*XX(2644)-JVS(11339)*XX(2646)-JVS(11347)*XX(2647)-JVS(11399)& - &*XX(2659)-JVS(11415)*XX(2662)-JVS(11439)*XX(2667)-JVS(11446)*XX(2668)-JVS(11481)*XX(2676)-JVS(11496)& - &*XX(2679)-JVS(11513)*XX(2682)-JVS(11556)*XX(2692)-JVS(11567)*XX(2694)-JVS(11584)*XX(2697)-JVS(11596)& - &*XX(2699)-JVS(11627)*XX(2706)-JVS(11634)*XX(2707)-JVS(11650)*XX(2710)-JVS(11689)*XX(2717)-JVS(11710)& - &*XX(2720)-JVS(11722)*XX(2722)-JVS(11733)*XX(2724)-JVS(11752)*XX(2728)-JVS(11767)*XX(2731)-JVS(11774)& - &*XX(2732)-JVS(11781)*XX(2733)-JVS(11787)*XX(2734)-JVS(11798)*XX(2736)-JVS(11813)*XX(2739)-JVS(11824)& - &*XX(2741)-JVS(11839)*XX(2744)-JVS(11847)*XX(2745)-JVS(11855)*XX(2746)-JVS(11862)*XX(2747)-JVS(11873)& - &*XX(2749)-JVS(11880)*XX(2750)-JVS(11887)*XX(2751)-JVS(11894)*XX(2752)-JVS(11921)*XX(2758)-JVS(11932)& - &*XX(2760)-JVS(11943)*XX(2762)-JVS(11967)*XX(2767)-JVS(11974)*XX(2768)-JVS(11985)*XX(2770)-JVS(11992)& - &*XX(2771)-JVS(12021)*XX(2776)-JVS(12074)*XX(2788)-JVS(12082)*XX(2789)-JVS(12109)*XX(2795)-JVS(12124)& - &*XX(2798)-JVS(12159)*XX(2806)-JVS(12165)*XX(2807)-JVS(12206)*XX(2816)-JVS(12217)*XX(2818)-JVS(12224)& - &*XX(2819)-JVS(12231)*XX(2820)-JVS(12238)*XX(2821)-JVS(12263)*XX(2826)-JVS(12270)*XX(2827)-JVS(12289)& - &*XX(2831)-JVS(12296)*XX(2832)-JVS(12319)*XX(2837)-JVS(12334)*XX(2840)-JVS(12366)*XX(2847)-JVS(12377)& - &*XX(2849)-JVS(12388)*XX(2851)-JVS(12399)*XX(2853)-JVS(12430)*XX(2858)-JVS(12444)*XX(2861)-JVS(12463)& - &*XX(2865)-JVS(12482)*XX(2869)-JVS(12505)*XX(2874)-JVS(12538)*XX(2881)-JVS(12574)*XX(2889)-JVS(12581)& - &*XX(2890)-JVS(12589)*XX(2891)-JVS(12604)*XX(2894)-JVS(12619)*XX(2897)-JVS(12642)*XX(2902)-JVS(12649)& - &*XX(2903)-JVS(12660)*XX(2905)-JVS(12668)*XX(2906)-JVS(12705)*XX(2912)-JVS(12727)*XX(2916)-JVS(12738)& - &*XX(2918)-JVS(12745)*XX(2919)-JVS(12761)*XX(2922)-JVS(12781)*XX(2926)-JVS(12805)*XX(2931)-JVS(12819)& - &*XX(2933)-JVS(12830)*XX(2935)-JVS(12842)*XX(2937)-JVS(12859)*XX(2939)-JVS(12882)*XX(2944)-JVS(12893)& - &*XX(2946)-JVS(12909)*XX(2949)-JVS(12924)*XX(2952)-JVS(12933)*XX(2953)-JVS(12941)*XX(2954)-JVS(12964)& - &*XX(2959)-JVS(12971)*XX(2960)-JVS(12978)*XX(2961)-JVS(12985)*XX(2962)-JVS(12992)*XX(2963)-JVS(13020)& - &*XX(2967)-JVS(13027)*XX(2968)-JVS(13046)*XX(2972)-JVS(13061)*XX(2974)-JVS(13103)*XX(2982)-JVS(13110)& - &*XX(2983)-JVS(13125)*XX(2986)-JVS(13140)*XX(2989)-JVS(13148)*XX(2990)-JVS(13158)*XX(2992)-JVS(13170)& - &*XX(2994)-JVS(13177)*XX(2995)-JVS(13185)*XX(2996)-JVS(13192)*XX(2997)-JVS(13209)*XX(3000)-JVS(13216)& - &*XX(3001)-JVS(13220)*XX(3002)-JVS(13231)*XX(3004)-JVS(13256)*XX(3009)-JVS(13277)*XX(3013)-JVS(13292)& - &*XX(3016)-JVS(13340)*XX(3027)-JVS(13347)*XX(3028)-JVS(13358)*XX(3030)-JVS(13370)*XX(3032)-JVS(13389)& - &*XX(3036)-JVS(13396)*XX(3037)-JVS(13407)*XX(3039)-JVS(13419)*XX(3041)-JVS(13451)*XX(3048)-JVS(13463)& - &*XX(3050)-JVS(13482)*XX(3054)-JVS(13503)*XX(3058)-JVS(13522)*XX(3062)-JVS(13533)*XX(3064)-JVS(13540)& - &*XX(3065)-JVS(13548)*XX(3066)-JVS(13555)*XX(3067)-JVS(13567)*XX(3069)-JVS(13578)*XX(3071)-JVS(13585)& - &*XX(3072)-JVS(13592)*XX(3073)-JVS(13599)*XX(3074)-JVS(13622)*XX(3079)-JVS(13630)*XX(3080)-JVS(13651)& - &*XX(3084)-JVS(13656)*XX(3085)-JVS(13668)*XX(3087)-JVS(13673)*XX(3088)-JVS(13700)*XX(3092)-JVS(13705)& - &*XX(3093)-JVS(13710)*XX(3094)-JVS(13715)*XX(3095)-JVS(13718)*XX(3096)-JVS(13721)*XX(3097)-JVS(13726)& - &*XX(3098)-JVS(13736)*XX(3100)-JVS(13741)*XX(3101)-JVS(13764)*XX(3104)-JVS(13767)*XX(3105)-JVS(13804)& - &*XX(3111)-JVS(13809)*XX(3112)-JVS(13812)*XX(3113)-JVS(13817)*XX(3114)-JVS(13828)*XX(3116)-JVS(13849)& - &*XX(3119)-JVS(13854)*XX(3120)-JVS(13875)*XX(3123)-JVS(13887)*XX(3125)-JVS(13900)*XX(3127)-JVS(13920)& - &*XX(3129)-JVS(13924)*XX(3130)-JVS(13928)*XX(3131)-JVS(13944)*XX(3134)-JVS(13948)*XX(3135)-JVS(13952)& - &*XX(3136)-JVS(13957)*XX(3137)-JVS(13960)*XX(3138)-JVS(13964)*XX(3139)-JVS(13969)*XX(3140)-JVS(13979)& - &*XX(3142)-JVS(13984)*XX(3143)-JVS(13987)*XX(3144)-JVS(13990)*XX(3145)-JVS(13995)*XX(3146)-JVS(14010)& - &*XX(3149)-JVS(14015)*XX(3150)-JVS(14027)*XX(3152)-JVS(14032)*XX(3153)-JVS(14050)*XX(3157)-JVS(14054)& - &*XX(3158)-JVS(14067)*XX(3161)-JVS(14072)*XX(3162)-JVS(14077)*XX(3163)-JVS(14081)*XX(3164)-JVS(14086)& - &*XX(3165)-JVS(14099)*XX(3167)-JVS(14110)*XX(3169)-JVS(14115)*XX(3170)-JVS(14126)*XX(3172)-JVS(14160)& - &*XX(3178)-JVS(14163)*XX(3179)-JVS(14167)*XX(3180)-JVS(14172)*XX(3181)-JVS(14175)*XX(3182)-JVS(14206)& - &*XX(3187)-JVS(14216)*XX(3189)-JVS(14221)*XX(3190)-JVS(14226)*XX(3191)-JVS(14229)*XX(3192)-JVS(14233)& - &*XX(3193)-JVS(14241)*XX(3194)-JVS(14252)*XX(3195)-JVS(14345)*XX(3215)-JVS(14363)*XX(3219)-JVS(14432)& - &*XX(3233)-JVS(14440)*XX(3234)-JVS(14473)*XX(3241)-JVS(14490)*XX(3242)-JVS(14500)*XX(3244)-JVS(14519)& - &*XX(3246)-JVS(14529)*XX(3247)-JVS(14533)*XX(3248)-JVS(14554)*XX(3252)-JVS(14569)*XX(3255)-JVS(14604)& - &*XX(3263)-JVS(14629)*XX(3268)-JVS(14637)*XX(3269)-JVS(14696)*XX(3281)-JVS(14711)*XX(3283)-JVS(14721)& - &*XX(3284)-JVS(14776)*XX(3296)-JVS(14800)*XX(3301)-JVS(14923)*XX(3329)-JVS(14941)*XX(3331)-JVS(14949)& - &*XX(3332)-JVS(14957)*XX(3333)-JVS(14969)*XX(3335)-JVS(14991)*XX(3338)-JVS(15016)*XX(3342)-JVS(15026)& - &*XX(3343)-JVS(15034)*XX(3344)-JVS(15049)*XX(3346)-JVS(15056)*XX(3347)-JVS(15087)*XX(3351)-JVS(15147)& - &*XX(3361)-JVS(15154)*XX(3362)-JVS(15161)*XX(3363)-JVS(15190)*XX(3367)-JVS(15200)*XX(3368)-JVS(15210)& - &*XX(3369)-JVS(15217)*XX(3370)-JVS(15224)*XX(3371)-JVS(15260)*XX(3375)-JVS(15274)*XX(3377)-JVS(15292)& - &*XX(3380)-JVS(15299)*XX(3381)-JVS(15313)*XX(3383)-JVS(15323)*XX(3384)-JVS(15338)*XX(3386)-JVS(15351)& - &*XX(3388)-JVS(15360)*XX(3389)-JVS(15367)*XX(3390)-JVS(15389)*XX(3393)-JVS(15403)*XX(3395)-JVS(15410)& - &*XX(3396)-JVS(15429)*XX(3398)-JVS(15442)*XX(3400)-JVS(15455)*XX(3402)-JVS(15464)*XX(3403)-JVS(15472)& - &*XX(3404)-JVS(15480)*XX(3405)-JVS(15487)*XX(3406)-JVS(15494)*XX(3407)-JVS(15513)*XX(3410)-JVS(15531)& - &*XX(3412)-JVS(15544)*XX(3414)-JVS(15551)*XX(3415)-JVS(15566)*XX(3417)-JVS(15577)*XX(3419)-JVS(15594)& - &*XX(3421)-JVS(15601)*XX(3422)-JVS(15608)*XX(3423)-JVS(15616)*XX(3424)-JVS(15624)*XX(3425)-JVS(15650)& - &*XX(3429)-JVS(15658)*XX(3430)-JVS(15702)*XX(3437)-JVS(15719)*XX(3440)-JVS(15726)*XX(3442)-JVS(15778)& - &*XX(3454)-JVS(15792)*XX(3456)-JVS(15818)*XX(3461)-JVS(15833)*XX(3465)-JVS(15837)*XX(3466)-JVS(15855)& - &*XX(3470)-JVS(15859)*XX(3471)-JVS(15863)*XX(3472)-JVS(15877)*XX(3474)-JVS(15905)*XX(3478)-JVS(15922)& - &*XX(3481)-JVS(15926)*XX(3482)-JVS(15934)*XX(3483)-JVS(15939)*XX(3484)-JVS(15961)*XX(3488)-JVS(15968)& - &*XX(3489)-JVS(15973)*XX(3490)-JVS(15980)*XX(3491)-JVS(15986)*XX(3492)-JVS(15998)*XX(3494)-JVS(16008)& - &*XX(3496)-JVS(16020)*XX(3497)-JVS(16033)*XX(3499)-JVS(16057)*XX(3503)-JVS(16077)*XX(3506)-JVS(16084)& - &*XX(3507)-JVS(16088)*XX(3508)-JVS(16095)*XX(3509)-JVS(16101)*XX(3510)-JVS(16108)*XX(3511)-JVS(16112)& - &*XX(3512)-JVS(16119)*XX(3513)-JVS(16152)*XX(3516)-JVS(16165)*XX(3518)-JVS(16169)*XX(3519)-JVS(16181)& - &*XX(3521)-JVS(16195)*XX(3523)-JVS(16205)*XX(3525)-JVS(16211)*XX(3526)-JVS(16218)*XX(3527)-JVS(16238)& - &*XX(3530)-JVS(16245)*XX(3531)-JVS(16262)*XX(3534)-JVS(16272)*XX(3535)-JVS(16285)*XX(3536)-JVS(16300)& - &*XX(3538)-JVS(16307)*XX(3539)-JVS(16324)*XX(3541)-JVS(16341)*XX(3543)-JVS(16353)*XX(3545)-JVS(16360)& - &*XX(3546)-JVS(16392)*XX(3551)-JVS(16402)*XX(3553)-JVS(16410)*XX(3554)-JVS(16426)*XX(3556)-JVS(16455)& - &*XX(3560)-JVS(16473)*XX(3562)-JVS(16487)*XX(3564)-JVS(16495)*XX(3565)-JVS(16501)*XX(3566)-JVS(16509)& - &*XX(3567)-JVS(16515)*XX(3568)-JVS(16524)*XX(3569)-JVS(16532)*XX(3570)-JVS(16540)*XX(3571)-JVS(16547)& - &*XX(3572)-JVS(16555)*XX(3573)-JVS(16562)*XX(3574)-JVS(16569)*XX(3575)-JVS(16577)*XX(3576)-JVS(16584)& - &*XX(3577)-JVS(16592)*XX(3578)-JVS(16599)*XX(3579)-JVS(16616)*XX(3581)-JVS(16623)*XX(3582)-JVS(16633)& - &*XX(3583)-JVS(16641)*XX(3584)-JVS(16648)*XX(3585)-JVS(16655)*XX(3586)-JVS(16662)*XX(3587)-JVS(16670)& - &*XX(3588)-JVS(16678)*XX(3589)-JVS(16689)*XX(3590)-JVS(16699)*XX(3591)-JVS(16706)*XX(3592)-JVS(16714)& - &*XX(3593)-JVS(16724)*XX(3594)-JVS(16732)*XX(3595)-JVS(16739)*XX(3596)-JVS(16746)*XX(3597)-JVS(16753)& - &*XX(3598)-JVS(16771)*XX(3600)-JVS(16781)*XX(3601)-JVS(16815)*XX(3605)-JVS(16823)*XX(3606)-JVS(16833)& - &*XX(3607)-JVS(16850)*XX(3609)-JVS(16858)*XX(3610)-JVS(16866)*XX(3611)-JVS(16874)*XX(3612)-JVS(16882)& - &*XX(3613)-JVS(16890)*XX(3614)-JVS(16898)*XX(3615)-JVS(16925)*XX(3617)-JVS(16947)*XX(3619)-JVS(16959)& - &*XX(3622)-JVS(16990)*XX(3626)-JVS(16997)*XX(3627)-JVS(17015)*XX(3629)-JVS(17030)*XX(3631)-JVS(17037)& - &*XX(3632)-JVS(17043)*XX(3633)-JVS(17048)*XX(3634)-JVS(17060)*XX(3636)-JVS(17066)*XX(3637)-JVS(17085)& - &*XX(3638)-JVS(17110)*XX(3640)-JVS(17117)*XX(3641)-JVS(17130)*XX(3642)-JVS(17140)*XX(3643)-JVS(17152)& - &*XX(3644)-JVS(17162)*XX(3645)-JVS(17182)*XX(3648)-JVS(17192)*XX(3649)-JVS(17199)*XX(3650)-JVS(17220)& - &*XX(3652)-JVS(17233)*XX(3654)-JVS(17243)*XX(3655)-JVS(17264)*XX(3657)-JVS(17269)*XX(3658)-JVS(17276)& - &*XX(3659)-JVS(17281)*XX(3660)-JVS(17291)*XX(3661)-JVS(17296)*XX(3662)-JVS(17303)*XX(3663)-JVS(17313)& - &*XX(3664)-JVS(17320)*XX(3665)-JVS(17328)*XX(3666)-JVS(17336)*XX(3667)-JVS(17344)*XX(3668)-JVS(17351)& - &*XX(3669)-JVS(17357)*XX(3670)-JVS(17364)*XX(3671)-JVS(17380)*XX(3673)-JVS(17388)*XX(3674)-JVS(17395)& - &*XX(3675)-JVS(17403)*XX(3676)-JVS(17410)*XX(3677)-JVS(17418)*XX(3678)-JVS(17426)*XX(3679)-JVS(17434)& - &*XX(3680)-JVS(17442)*XX(3681)-JVS(17450)*XX(3682)-JVS(17460)*XX(3683)-JVS(17464)*XX(3684)-JVS(17473)& - &*XX(3685)-JVS(17481)*XX(3686)-JVS(17488)*XX(3687)-JVS(17498)*XX(3688)-JVS(17508)*XX(3689)-JVS(17517)& - &*XX(3690)-JVS(17526)*XX(3691)-JVS(17533)*XX(3692)-JVS(17550)*XX(3694)-JVS(17557)*XX(3695)-JVS(17564)& - &*XX(3696)-JVS(17571)*XX(3697)-JVS(17579)*XX(3698)-JVS(17586)*XX(3699)-JVS(17593)*XX(3700)-JVS(17597)& - &*XX(3701)-JVS(17610)*XX(3703)-JVS(17618)*XX(3704)-JVS(17625)*XX(3705)-JVS(17633)*XX(3706)-JVS(17652)& - &*XX(3709)-JVS(17662)*XX(3710)-JVS(17669)*XX(3711)-JVS(17677)*XX(3712)-JVS(17684)*XX(3713)-JVS(17692)& - &*XX(3714)-JVS(17700)*XX(3715)-JVS(17718)*XX(3717)-JVS(17727)*XX(3718)-JVS(17735)*XX(3719)-JVS(17744)& - &*XX(3720)-JVS(17751)*XX(3721)-JVS(17760)*XX(3722)-JVS(17768)*XX(3723)-JVS(17777)*XX(3724)-JVS(17784)& - &*XX(3725)-JVS(17795)*XX(3726)-JVS(17803)*XX(3727)-JVS(17810)*XX(3728)-JVS(17818)*XX(3729)-JVS(17826)& - &*XX(3730)-JVS(17835)*XX(3731)-JVS(17843)*XX(3732)-JVS(17849)*XX(3733)-JVS(17885)*XX(3737)-JVS(17893)& - &*XX(3738)-JVS(17900)*XX(3739)-JVS(17907)*XX(3740)-JVS(17918)*XX(3741)-JVS(17927)*XX(3742)-JVS(17935)& - &*XX(3743)-JVS(17942)*XX(3744)-JVS(17951)*XX(3745)-JVS(17959)*XX(3746)-JVS(17972)*XX(3747)-JVS(17984)& - &*XX(3748)-JVS(17993)*XX(3749)-JVS(18001)*XX(3750)-JVS(18010)*XX(3751)-JVS(18017)*XX(3752)-JVS(18025)& - &*XX(3753)-JVS(18034)*XX(3754)-JVS(18054)*XX(3756)-JVS(18071)*XX(3758)-JVS(18091)*XX(3760)-JVS(18100)& - &*XX(3761)-JVS(18107)*XX(3762)-JVS(18116)*XX(3763)-JVS(18124)*XX(3764)-JVS(18132)*XX(3765)-JVS(18140)& - &*XX(3766)-JVS(18147)*XX(3767)-JVS(18155)*XX(3768)-JVS(18163)*XX(3769)-JVS(18170)*XX(3770)-JVS(18178)& - &*XX(3771)-JVS(18185)*XX(3772)-JVS(18197)*XX(3773)-JVS(18204)*XX(3774)-JVS(18216)*XX(3775)-JVS(18226)& - &*XX(3776)-JVS(18235)*XX(3777)-JVS(18243)*XX(3778)-JVS(18251)*XX(3779)-JVS(18269)*XX(3781)-JVS(18277)& - &*XX(3782)-JVS(18286)*XX(3783)-JVS(18295)*XX(3784)-JVS(18303)*XX(3785)-JVS(18310)*XX(3786)-JVS(18319)& - &*XX(3787)-JVS(18326)*XX(3788)-JVS(18334)*XX(3789)-JVS(18340)*XX(3790)-JVS(18347)*XX(3791)-JVS(18352)& - &*XX(3792)-JVS(18363)*XX(3793)-JVS(18370)*XX(3794)-JVS(18378)*XX(3795)-JVS(18385)*XX(3796)-JVS(18393)& - &*XX(3797)-JVS(18400)*XX(3798)-JVS(18407)*XX(3799)-JVS(18417)*XX(3800)-JVS(18423)*XX(3801)-JVS(18432)& - &*XX(3802)-JVS(18438)*XX(3803)-JVS(18444)*XX(3804)-JVS(18452)*XX(3805)-JVS(18457)*XX(3806)-JVS(18463)& - &*XX(3807)-JVS(18470)*XX(3808)-JVS(18482)*XX(3809)-JVS(18489)*XX(3810)-JVS(18495)*XX(3811)-JVS(18503)& - &*XX(3812)-JVS(18510)*XX(3813)-JVS(18517)*XX(3814)-JVS(18524)*XX(3815)-JVS(18533)*XX(3816)-JVS(18540)& - &*XX(3817)-JVS(18549)*XX(3818)-JVS(18555)*XX(3819)-JVS(18562)*XX(3820)-JVS(18576)*XX(3821)-JVS(18591)& - &*XX(3823)-JVS(18599)*XX(3824)-JVS(18606)*XX(3825)-JVS(18615)*XX(3826)-JVS(18622)*XX(3827)-JVS(18629)& - &*XX(3828)-JVS(18637)*XX(3829)-JVS(18641)*XX(3830)-JVS(18646)*XX(3831)-JVS(18655)*XX(3833)-JVS(18660)& - &*XX(3834)-JVS(18672)*XX(3836)-JVS(18679)*XX(3837)-JVS(18689)*XX(3838)-JVS(18697)*XX(3839)-JVS(18704)& - &*XX(3840)-JVS(18712)*XX(3841)-JVS(18719)*XX(3842)-JVS(18729)*XX(3843)-JVS(18736)*XX(3844)-JVS(18746)& - &*XX(3845)-JVS(18756)*XX(3846)-JVS(18763)*XX(3847)-JVS(18770)*XX(3848)-JVS(18785)*XX(3849)-JVS(18793)& - &*XX(3850)-JVS(18802)*XX(3851)-JVS(18808)*XX(3852)-JVS(18815)*XX(3853)-JVS(18825)*XX(3854)-JVS(18834)& - &*XX(3855)-JVS(18843)*XX(3856)-JVS(18852)*XX(3857)-JVS(18860)*XX(3858)-JVS(18868)*XX(3859)-JVS(18877)& - &*XX(3860)-JVS(18886)*XX(3861)-JVS(18894)*XX(3862)-JVS(18901)*XX(3863)-JVS(18910)*XX(3864)-JVS(18917)& - &*XX(3865)-JVS(18924)*XX(3866)-JVS(18930)*XX(3867)-JVS(18943)*XX(3868)-JVS(18951)*XX(3869)-JVS(18960)& - &*XX(3870)-JVS(18970)*XX(3871)-JVS(18977)*XX(3872)-JVS(18985)*XX(3873)-JVS(18994)*XX(3874)-JVS(19003)& - &*XX(3875)-JVS(19010)*XX(3876)-JVS(19020)*XX(3877)-JVS(19027)*XX(3878)-JVS(19038)*XX(3879)-JVS(19048)& - &*XX(3880)-JVS(19058)*XX(3881)-JVS(19067)*XX(3882)-JVS(19073)*XX(3883)-JVS(19081)*XX(3884)-JVS(19089)& - &*XX(3885)-JVS(19096)*XX(3886)-JVS(19103)*XX(3887)-JVS(19112)*XX(3888)-JVS(19120)*XX(3889)-JVS(19129)& - &*XX(3890)-JVS(19136)*XX(3891)-JVS(19144)*XX(3892)-JVS(19152)*XX(3893)-JVS(19160)*XX(3894)-JVS(19167)& - &*XX(3895)-JVS(19178)*XX(3896)-JVS(19185)*XX(3897)-JVS(19192)*XX(3898)-JVS(19200)*XX(3899)-JVS(19209)& - &*XX(3900)-JVS(19218)*XX(3901)-JVS(19226)*XX(3902)-JVS(19233)*XX(3903)-JVS(19240)*XX(3904)-JVS(19250)& - &*XX(3905)-JVS(19258)*XX(3906)-JVS(19265)*XX(3907)-JVS(19272)*XX(3908)-JVS(19279)*XX(3909)-JVS(19286)& - &*XX(3910)-JVS(19297)*XX(3911)-JVS(19307)*XX(3912)-JVS(19315)*XX(3913)-JVS(19326)*XX(3914)-JVS(19337)& - &*XX(3915)-JVS(19347)*XX(3916)-JVS(19358)*XX(3917)-JVS(19373)*XX(3918)-JVS(19383)*XX(3919)-JVS(19390)& - &*XX(3920)-JVS(19397)*XX(3921)-JVS(19404)*XX(3922)-JVS(19414)*XX(3923)-JVS(19424)*XX(3924)-JVS(19431)& - &*XX(3925)-JVS(19441)*XX(3926)-JVS(19447)*XX(3927)-JVS(19454)*XX(3928)-JVS(19465)*XX(3929)-JVS(19474)& - &*XX(3930)-JVS(19491)*XX(3932)-JVS(19500)*XX(3933)-JVS(19507)*XX(3934)-JVS(19516)*XX(3935)-JVS(19522)& - &*XX(3936)-JVS(19530)*XX(3937)-JVS(19538)*XX(3938)-JVS(19545)*XX(3939)-JVS(19552)*XX(3940)-JVS(19562)& - &*XX(3941)-JVS(19569)*XX(3942)-JVS(19576)*XX(3943)-JVS(19583)*XX(3944)-JVS(19590)*XX(3945)-JVS(19601)& - &*XX(3946)-JVS(19611)*XX(3947)-JVS(19619)*XX(3948)-JVS(19626)*XX(3949)-JVS(19633)*XX(3950)-JVS(19642)& - &*XX(3951)-JVS(19649)*XX(3952)-JVS(19657)*XX(3953)-JVS(19666)*XX(3954)-JVS(19675)*XX(3955)-JVS(19682)& - &*XX(3956)-JVS(19691)*XX(3957)-JVS(19702)*XX(3958)-JVS(19720)*XX(3960)-JVS(19728)*XX(3961)-JVS(19735)& - &*XX(3962)-JVS(19741)*XX(3963)-JVS(19750)*XX(3964)-JVS(19765)*XX(3966)-JVS(19774)*XX(3967)-JVS(19783)& - &*XX(3968)-JVS(19790)*XX(3969)-JVS(19797)*XX(3970)-JVS(19804)*XX(3971)-JVS(19812)*XX(3972)-JVS(19820)& - &*XX(3973)-JVS(19827)*XX(3974)-JVS(19835)*XX(3975)-JVS(19843)*XX(3976)-JVS(19853)*XX(3977)-JVS(19866)& - &*XX(3978)-JVS(19875)*XX(3979)-JVS(19882)*XX(3980)-JVS(19892)*XX(3981)-JVS(19899)*XX(3982)-JVS(19906)& - &*XX(3983)-JVS(19914)*XX(3984)-JVS(19921)*XX(3985)-JVS(19932)*XX(3986)-JVS(19939)*XX(3987)-JVS(19945)& - &*XX(3988)-JVS(19955)*XX(3989)-JVS(19961)*XX(3990)-JVS(19970)*XX(3991)-JVS(19979)*XX(3992)-JVS(19997)& - &*XX(3994)-JVS(20007)*XX(3995)-JVS(20011)*XX(3996)-JVS(20019)*XX(3997)-JVS(20031)*XX(3998)-JVS(20038)& - &*XX(3999)-JVS(20051)*XX(4000)-JVS(20058)*XX(4001)-JVS(20066)*XX(4002)-JVS(20073)*XX(4003)-JVS(20081)& - &*XX(4004)-JVS(20093)*XX(4005)-JVS(20100)*XX(4006)-JVS(20108)*XX(4007)-JVS(20116)*XX(4008)-JVS(20124)& - &*XX(4009)-JVS(20129)*XX(4010)-JVS(20137)*XX(4011)-JVS(20149)*XX(4012)-JVS(20162)*XX(4013)-JVS(20178)& - &*XX(4014)-JVS(20188)*XX(4015)-JVS(20195)*XX(4016)-JVS(20200)*XX(4017)-JVS(20205)*XX(4018)-JVS(20215)& - &*XX(4019)-JVS(20222)*XX(4020)-JVS(20230)*XX(4021)-JVS(20238)*XX(4022)-JVS(20246)*XX(4023)-JVS(20255)& - &*XX(4024)-JVS(20264)*XX(4025)-JVS(20274)*XX(4026)-JVS(20278)*XX(4027)-JVS(20286)*XX(4028)-JVS(20295)& - &*XX(4029)-JVS(20302)*XX(4030)-JVS(20310)*XX(4031)-JVS(20314)*XX(4032)-JVS(20322)*XX(4033)-JVS(20330)& - &*XX(4034)-JVS(20338)*XX(4035)-JVS(20346)*XX(4036)-JVS(20354)*XX(4037)-JVS(20366)*XX(4038)-JVS(20373)& - &*XX(4039)-JVS(20381)*XX(4040)-JVS(20394)*XX(4041)-JVS(20408)*XX(4042)-JVS(20417)*XX(4043)-JVS(20424)& - &*XX(4044)-JVS(20436)*XX(4045)-JVS(20449)*XX(4046)-JVS(20461)*XX(4047)-JVS(20474)*XX(4048)-JVS(20482)& - &*XX(4049)-JVS(20493)*XX(4050)-JVS(20508)*XX(4051)-JVS(20519)*XX(4052)-JVS(20530)*XX(4053)-JVS(20537)& - &*XX(4054)-JVS(20544)*XX(4055)-JVS(20548)*XX(4056)-JVS(20556)*XX(4057)-JVS(20567)*XX(4058)-JVS(20576)& - &*XX(4059)-JVS(20589)*XX(4060)-JVS(20596)*XX(4061)-JVS(20606)*XX(4062)-JVS(20613)*XX(4063)-JVS(20621)& - &*XX(4064)-JVS(20629)*XX(4065)-JVS(20642)*XX(4067)-JVS(20650)*XX(4068)-JVS(20659)*XX(4069)-JVS(20666)& - &*XX(4070)-JVS(20674)*XX(4071)-JVS(20681)*XX(4072)-JVS(20689)*XX(4073)-JVS(20697)*XX(4074)-JVS(20704)& - &*XX(4075)-JVS(20713)*XX(4076)-JVS(20723)*XX(4077)-JVS(20731)*XX(4078)-JVS(20739)*XX(4079)-JVS(20744)& - &*XX(4080)-JVS(20753)*XX(4081)-JVS(20761)*XX(4082)-JVS(20766)*XX(4083)-JVS(20778)*XX(4084)-JVS(20786)& - &*XX(4085)-JVS(20796)*XX(4086)-JVS(20804)*XX(4087)-JVS(20813)*XX(4088)-JVS(20824)*XX(4089)-JVS(20831)& - &*XX(4090)-JVS(20838)*XX(4091)-JVS(20852)*XX(4092)-JVS(20856)*XX(4093)-JVS(20861)*XX(4094)-JVS(20869)& - &*XX(4095)-JVS(20881)*XX(4097)-JVS(20891)*XX(4098)-JVS(20899)*XX(4099)-JVS(20908)*XX(4100)-JVS(20919)& - &*XX(4101)-JVS(20929)*XX(4102)-JVS(20940)*XX(4103)-JVS(20956)*XX(4104)-JVS(20965)*XX(4105)-JVS(20972)& - &*XX(4106)-JVS(20984)*XX(4108)-JVS(21000)*XX(4109)-JVS(21011)*XX(4110)-JVS(21017)*XX(4111)-JVS(21024)& - &*XX(4112)-JVS(21037)*XX(4114)-JVS(21045)*XX(4115)-JVS(21053)*XX(4116)-JVS(21060)*XX(4117)-JVS(21069)& - &*XX(4118)-JVS(21079)*XX(4119)-JVS(21089)*XX(4120)-JVS(21097)*XX(4121)-JVS(21108)*XX(4122)-JVS(21116)& - &*XX(4123)-JVS(21123)*XX(4124)-JVS(21144)*XX(4126)-JVS(21152)*XX(4127)-JVS(21159)*XX(4128)-JVS(21165)& - &*XX(4129)-JVS(21175)*XX(4130)-JVS(21183)*XX(4131)-JVS(21191)*XX(4132)-JVS(21199)*XX(4133)-JVS(21206)& - &*XX(4134)-JVS(21212)*XX(4135)-JVS(21221)*XX(4136)-JVS(21231)*XX(4137)-JVS(21240)*XX(4138)-JVS(21249)& - &*XX(4139)-JVS(21256)*XX(4140)-JVS(21262)*XX(4141)-JVS(21269)*XX(4142)-JVS(21276)*XX(4143)-JVS(21282)& - &*XX(4144)-JVS(21289)*XX(4145)-JVS(21296)*XX(4146)-JVS(21304)*XX(4147)-JVS(21310)*XX(4148)-JVS(21318)& - &*XX(4149)-JVS(21328)*XX(4150)-JVS(21336)*XX(4151)-JVS(21347)*XX(4152)-JVS(21355)*XX(4153)-JVS(21368)& - &*XX(4154)-JVS(21376)*XX(4155)-JVS(21381)*XX(4156)-JVS(21392)*XX(4157)-JVS(21400)*XX(4158)-JVS(21406)& - &*XX(4159)-JVS(21414)*XX(4160)-JVS(21422)*XX(4161)-JVS(21431)*XX(4162)-JVS(21439)*XX(4163)-JVS(21450)& - &*XX(4164)-JVS(21456)*XX(4165)-JVS(21464)*XX(4166)-JVS(21471)*XX(4167)-JVS(21481)*XX(4168)-JVS(21491)& - &*XX(4169)-JVS(21500)*XX(4170)-JVS(21507)*XX(4171)-JVS(21516)*XX(4172)-JVS(21525)*XX(4173)-JVS(21533)& - &*XX(4174)-JVS(21548)*XX(4175)-JVS(21554)*XX(4176)-JVS(21564)*XX(4177)-JVS(21575)*XX(4178)-JVS(21586)& - &*XX(4179)-JVS(21593)*XX(4180)-JVS(21609)*XX(4181)-JVS(21620)*XX(4182)-JVS(21636)*XX(4183)-JVS(21644)& - &*XX(4184)-JVS(21651)*XX(4185)-JVS(21663)*XX(4186)-JVS(21672)*XX(4187)-JVS(21681)*XX(4188)-JVS(21692)& - &*XX(4189)-JVS(21701)*XX(4190)-JVS(21709)*XX(4191)-JVS(21718)*XX(4192)-JVS(21727)*XX(4193)-JVS(21736)& - &*XX(4194)-JVS(21745)*XX(4195)-JVS(21758)*XX(4196)-JVS(21767)*XX(4197)-JVS(21776)*XX(4198)-JVS(21790)& - &*XX(4199)-JVS(21799)*XX(4200)-JVS(21807)*XX(4201)-JVS(21819)*XX(4202)-JVS(21829)*XX(4203)-JVS(21838)& - &*XX(4204)-JVS(21847)*XX(4205)-JVS(21856)*XX(4206)-JVS(21866)*XX(4207)-JVS(21877)*XX(4208)-JVS(21886)& - &*XX(4209)-JVS(21895)*XX(4210)-JVS(21905)*XX(4211)-JVS(21914)*XX(4212)-JVS(21934)*XX(4214)-JVS(21943)& - &*XX(4215)-JVS(21957)*XX(4216)-JVS(21966)*XX(4217)-JVS(21978)*XX(4218)-JVS(21990)*XX(4219)-JVS(22003)& - &*XX(4220)-JVS(22016)*XX(4221)-JVS(22026)*XX(4222)-JVS(22049)*XX(4224)-JVS(22058)*XX(4225)-JVS(22071)& - &*XX(4226)-JVS(22081)*XX(4227)-JVS(22092)*XX(4228)-JVS(22102)*XX(4229)-JVS(22112)*XX(4230)-JVS(22124)& - &*XX(4231)-JVS(22133)*XX(4232)-JVS(22143)*XX(4233)-JVS(22153)*XX(4234)-JVS(22164)*XX(4235)-JVS(22172)& - &*XX(4236)-JVS(22182)*XX(4237)-JVS(22192)*XX(4238)-JVS(22205)*XX(4239)-JVS(22213)*XX(4240)-JVS(22227)& - &*XX(4241)-JVS(22235)*XX(4242)-JVS(22246)*XX(4243)-JVS(22255)*XX(4244)-JVS(22264)*XX(4245)-JVS(22273)& - &*XX(4246)-JVS(22299)*XX(4248)-JVS(22306)*XX(4249)-JVS(22326)*XX(4251)-JVS(22335)*XX(4252)-JVS(22348)& - &*XX(4253)-JVS(22358)*XX(4254)-JVS(22367)*XX(4255)-JVS(22388)*XX(4257)-JVS(22405)*XX(4259)-JVS(22415)& - &*XX(4260)-JVS(22427)*XX(4261)-JVS(22436)*XX(4262)-JVS(22447)*XX(4263)-JVS(22464)*XX(4265)-JVS(22474)& - &*XX(4266)-JVS(22485)*XX(4267)-JVS(22494)*XX(4268)-JVS(22504)*XX(4269)-JVS(22514)*XX(4270)-JVS(22523)& - &*XX(4271)-JVS(22527)*XX(4272)-JVS(22537)*XX(4273)-JVS(22547)*XX(4274)-JVS(22556)*XX(4275)-JVS(22565)& - &*XX(4276)-JVS(22575)*XX(4277)-JVS(22591)*XX(4278)-JVS(22602)*XX(4279)-JVS(22611)*XX(4280)-JVS(22620)& - &*XX(4281)-JVS(22637)*XX(4283)-JVS(22647)*XX(4284)-JVS(22656)*XX(4285)-JVS(22673)*XX(4287)-JVS(22682)& - &*XX(4288)-JVS(22691)*XX(4289)-JVS(22704)*XX(4290)-JVS(22713)*XX(4291)-JVS(22722)*XX(4292)-JVS(22731)& - &*XX(4293)-JVS(22753)*XX(4294)-JVS(22767)*XX(4295)-JVS(22776)*XX(4296)-JVS(22785)*XX(4297)-JVS(22794)& - &*XX(4298)-JVS(22807)*XX(4299)-JVS(22819)*XX(4300)-JVS(22829)*XX(4301)-JVS(22846)*XX(4303)-JVS(22855)& - &*XX(4304)-JVS(22864)*XX(4305)-JVS(22873)*XX(4306)-JVS(22882)*XX(4307)-JVS(22895)*XX(4308)-JVS(22905)& - &*XX(4309)-JVS(22917)*XX(4310)-JVS(22927)*XX(4311)-JVS(22937)*XX(4312)-JVS(22952)*XX(4313)-JVS(22961)& - &*XX(4314)-JVS(22973)*XX(4315)-JVS(22984)*XX(4316)-JVS(22993)*XX(4317)-JVS(23002)*XX(4318)-JVS(23015)& - &*XX(4319)-JVS(23029)*XX(4321)-JVS(23040)*XX(4322)-JVS(23048)*XX(4323)-JVS(23061)*XX(4324)-JVS(23076)& - &*XX(4325)-JVS(23087)*XX(4326)-JVS(23095)*XX(4327)-JVS(23105)*XX(4328)-JVS(23120)*XX(4329)-JVS(23151)& - &*XX(4331)-JVS(23154)*XX(4332)-JVS(23165)*XX(4333)-JVS(23173)*XX(4334)-JVS(23180)*XX(4335)-JVS(23189)& - &*XX(4336)-JVS(23196)*XX(4337)-JVS(23205)*XX(4338)-JVS(23211)*XX(4339)-JVS(23220)*XX(4340)-JVS(23226)& - &*XX(4341)-JVS(23234)*XX(4342)-JVS(23244)*XX(4343)-JVS(23253)*XX(4344)-JVS(23262)*XX(4345)-JVS(23270)& - &*XX(4346)-JVS(23277)*XX(4347)-JVS(23285)*XX(4348)-JVS(23293)*XX(4349)-JVS(23302)*XX(4350)-JVS(23309)& - &*XX(4351)-JVS(23323)*XX(4352)-JVS(23330)*XX(4353)-JVS(23337)*XX(4354)-JVS(23345)*XX(4355)-JVS(23353)& - &*XX(4356)-JVS(23360)*XX(4357)-JVS(23367)*XX(4358)-JVS(23375)*XX(4359)-JVS(23385)*XX(4360)-JVS(23393)& - &*XX(4361)-JVS(23401)*XX(4362)-JVS(23410)*XX(4363)-JVS(23417)*XX(4364)-JVS(23428)*XX(4365)-JVS(23452)& - &*XX(4366)-JVS(23460)*XX(4367)-JVS(23467)*XX(4368)-JVS(23475)*XX(4369)-JVS(23482)*XX(4370)-JVS(23489)& - &*XX(4371)-JVS(23495)*XX(4372)-JVS(23505)*XX(4373)-JVS(23514)*XX(4374)-JVS(23523)*XX(4375)-JVS(23536)& - &*XX(4376)-JVS(23543)*XX(4377)-JVS(23560)*XX(4379)-JVS(23569)*XX(4380)-JVS(23577)*XX(4381)-JVS(23583)& - &*XX(4382)-JVS(23597)*XX(4383)-JVS(23606)*XX(4384)-JVS(23617)*XX(4385)-JVS(23639)*XX(4387)-JVS(23648)& - &*XX(4388)-JVS(23657)*XX(4389)-JVS(23665)*XX(4390)-JVS(23682)*XX(4391)-JVS(23702)*XX(4392)-JVS(23710)& - &*XX(4393)-JVS(23720)*XX(4394)-JVS(23723)*XX(4395)-JVS(23730)*XX(4396)-JVS(23737)*XX(4397)-JVS(23752)& - &*XX(4398)-JVS(23761)*XX(4399)-JVS(23769)*XX(4400)-JVS(23782)*XX(4401)-JVS(23792)*XX(4402)-JVS(23838)& - &*XX(4403)-JVS(23850)*XX(4404)-JVS(23859)*XX(4405)-JVS(23870)*XX(4406)-JVS(23879)*XX(4407)-JVS(23889)& - &*XX(4408)-JVS(23900)*XX(4409)-JVS(23910)*XX(4410)-JVS(23922)*XX(4411)-JVS(23932)*XX(4412)-JVS(23941)& - &*XX(4413)-JVS(23951)*XX(4414)-JVS(23960)*XX(4415)-JVS(23968)*XX(4416)-JVS(23981)*XX(4417)-JVS(23991)& - &*XX(4418)-JVS(24003)*XX(4419)-JVS(24014)*XX(4420)-JVS(24026)*XX(4421)-JVS(24034)*XX(4422)-JVS(24051)& - &*XX(4423)-JVS(24060)*XX(4424)-JVS(24069)*XX(4425)-JVS(24088)*XX(4426)-JVS(24098)*XX(4427)-JVS(24107)& - &*XX(4428)-JVS(24118)*XX(4429)-JVS(24130)*XX(4430)-JVS(24142)*XX(4431)-JVS(24151)*XX(4432)-JVS(24162)& - &*XX(4433)-JVS(24171)*XX(4434)-JVS(24182)*XX(4435)-JVS(24191)*XX(4436)-JVS(24200)*XX(4437)-JVS(24210)& - &*XX(4438)-JVS(24221)*XX(4439)-JVS(24229)*XX(4440)-JVS(24243)*XX(4441)-JVS(24256)*XX(4442)-JVS(24268)& - &*XX(4443)-JVS(24277)*XX(4444)-JVS(24288)*XX(4445)-JVS(24297)*XX(4446)-JVS(24308)*XX(4447)-JVS(24319)& - &*XX(4448)-JVS(24333)*XX(4449)-JVS(24345)*XX(4450)-JVS(24354)*XX(4451)-JVS(24364)*XX(4452)-JVS(24373)& - &*XX(4453)-JVS(24383)*XX(4454)-JVS(24393)*XX(4455)-JVS(24403)*XX(4456)-JVS(24412)*XX(4457)-JVS(24422)& - &*XX(4458)-JVS(24431)*XX(4459)-JVS(24442)*XX(4460)-JVS(24453)*XX(4461)-JVS(24462)*XX(4462)-JVS(24471)& - &*XX(4463)-JVS(24480)*XX(4464)-JVS(24490)*XX(4465)-JVS(24499)*XX(4466)-JVS(24509)*XX(4467)-JVS(24519)& - &*XX(4468)-JVS(24529)*XX(4469)-JVS(24539)*XX(4470)-JVS(24548)*XX(4471)-JVS(24558)*XX(4472)-JVS(24567)& - &*XX(4473)-JVS(24570)*XX(4474)-JVS(24574)*XX(4475)-JVS(24583)*XX(4476)-JVS(24596)*XX(4477)-JVS(24607)& - &*XX(4478)-JVS(24617)*XX(4479)-JVS(24626)*XX(4480)-JVS(24638)*XX(4481)-JVS(24659)*XX(4482)-JVS(24670)& - &*XX(4483)-JVS(24681)*XX(4484)-JVS(24696)*XX(4485)-JVS(24708)*XX(4486)-JVS(24717)*XX(4487)-JVS(24729)& - &*XX(4488)-JVS(24741)*XX(4489)-JVS(24758)*XX(4490)-JVS(24776)*XX(4491)-JVS(24780)*XX(4492)-JVS(24805)& - &*XX(4493)-JVS(24815)*XX(4494)-JVS(24825)*XX(4495)-JVS(24836)*XX(4496)-JVS(24849)*XX(4497)-JVS(24858)& - &*XX(4498)-JVS(24867)*XX(4499)-JVS(24877)*XX(4500)-JVS(24891)*XX(4501)-JVS(24900)*XX(4502)-JVS(24911)& - &*XX(4503)-JVS(24920)*XX(4504)-JVS(24927)*XX(4505)-JVS(24937)*XX(4506)-JVS(25013)*XX(4507)-JVS(25017)& - &*XX(4508)-JVS(25027)*XX(4509)-JVS(25040)*XX(4510)-JVS(25049)*XX(4511)-JVS(25052)*XX(4512)-JVS(25062)& - &*XX(4513)-JVS(25072)*XX(4514)-JVS(25083)*XX(4515)-JVS(25092)*XX(4516)-JVS(25102)*XX(4517)-JVS(25112)& - &*XX(4518)-JVS(25123)*XX(4519)-JVS(25133)*XX(4520)-JVS(25145)*XX(4521)-JVS(25155)*XX(4522)-JVS(25165)& - &*XX(4523)-JVS(25182)*XX(4524)-JVS(25194)*XX(4525)-JVS(25205)*XX(4527)-JVS(25221)*XX(4528)-JVS(25229)& - &*XX(4529)-JVS(25239)*XX(4530)-JVS(25249)*XX(4531)-JVS(25261)*XX(4532)-JVS(25272)*XX(4533)-JVS(25285)& - &*XX(4534)-JVS(25293)*XX(4535)-JVS(25310)*XX(4536)-JVS(25323)*XX(4537)-JVS(25333)*XX(4538)-JVS(25345)& - &*XX(4539)-JVS(25363)*XX(4540)-JVS(25371)*XX(4541)-JVS(25380)*XX(4542)-JVS(25391)*XX(4543)-JVS(25402)& - &*XX(4544)-JVS(25417)*XX(4545)-JVS(25428)*XX(4546)-JVS(25442)*XX(4547)-JVS(25455)*XX(4548)-JVS(25466)& - &*XX(4549)-JVS(25477)*XX(4550)-JVS(25499)*XX(4552)-JVS(25510)*XX(4553)-JVS(25517)*XX(4554)-JVS(25520)& - &*XX(4555)-JVS(25543)*XX(4557)-JVS(25550)*XX(4558)-JVS(25563)*XX(4559)-JVS(25577)*XX(4560)-JVS(25584)& - &*XX(4561)-JVS(25592)*XX(4562)-JVS(25600)*XX(4563)-JVS(25616)*XX(4564)-JVS(25624)*XX(4565)-JVS(25631)& - &*XX(4566)-JVS(25640)*XX(4567)-JVS(25647)*XX(4568)-JVS(25661)*XX(4569)-JVS(25667)*XX(4570)-JVS(25676)& - &*XX(4571)-JVS(25684)*XX(4572)-JVS(25691)*XX(4573)-JVS(25698)*XX(4574)-JVS(25704)*XX(4575)-JVS(25715)& - &*XX(4576)-JVS(25726)*XX(4577)-JVS(25732)*XX(4578)-JVS(25739)*XX(4579)-JVS(25750)*XX(4580)-JVS(25758)& - &*XX(4581)-JVS(25765)*XX(4582)-JVS(25774)*XX(4583)-JVS(25781)*XX(4584)-JVS(25788)*XX(4585)-JVS(25796)& - &*XX(4586)-JVS(25803)*XX(4587)-JVS(25817)*XX(4588)-JVS(25825)*XX(4589)-JVS(25833)*XX(4590)-JVS(25850)& - &*XX(4591)-JVS(25863)*XX(4592)-JVS(25871)*XX(4593)-JVS(25879)*XX(4594)-JVS(25887)*XX(4595)-JVS(25894)& - &*XX(4596)-JVS(25904)*XX(4597)-JVS(25911)*XX(4598)-JVS(25919)*XX(4599)-JVS(25922)*XX(4600)-JVS(25926)& - &*XX(4601)-JVS(25978)*XX(4602)-JVS(25987)*XX(4603)-JVS(25991)*XX(4604)-JVS(25995)*XX(4605)-JVS(25999)& - &*XX(4606)-JVS(26008)*XX(4607)-JVS(26017)*XX(4608)-JVS(26024)*XX(4609)-JVS(26031)*XX(4610)-JVS(26041)& - &*XX(4611)-JVS(26054)*XX(4612)-JVS(26065)*XX(4613)-JVS(26077)*XX(4614)-JVS(26088)*XX(4616)-JVS(26093)& - &*XX(4617)-JVS(26119)*XX(4618)-JVS(26131)*XX(4619)-JVS(26144)*XX(4620)-JVS(26177)*XX(4622)-JVS(26186)& - &*XX(4623)-JVS(26201)*XX(4624)-JVS(26209)*XX(4625)-JVS(26219)*XX(4626)-JVS(26229)*XX(4627)-JVS(26238)& - &*XX(4628)-JVS(26248)*XX(4629)-JVS(26257)*XX(4630)-JVS(26271)*XX(4631)-JVS(26281)*XX(4632)-JVS(26291)& - &*XX(4633)-JVS(26301)*XX(4634)-JVS(26310)*XX(4635)-JVS(26320)*XX(4636)-JVS(26327)*XX(4637)-JVS(26338)& - &*XX(4638)-JVS(26347)*XX(4639)-JVS(26358)*XX(4640)-JVS(26367)*XX(4641)-JVS(26378)*XX(4642)-JVS(26387)& - &*XX(4643)-JVS(26402)*XX(4644)-JVS(26411)*XX(4645)-JVS(26419)*XX(4646)-JVS(26428)*XX(4647)-JVS(26440)& - &*XX(4648)-JVS(26449)*XX(4649)-JVS(26457)*XX(4650)-JVS(26474)*XX(4651)-JVS(26484)*XX(4652)-JVS(26493)& - &*XX(4653)-JVS(26502)*XX(4654)-JVS(26512)*XX(4655)-JVS(26521)*XX(4656)-JVS(26531)*XX(4657)-JVS(26544)& - &*XX(4658)-JVS(26554)*XX(4659)-JVS(26563)*XX(4660)-JVS(26571)*XX(4661)-JVS(26582)*XX(4662)-JVS(26592)& - &*XX(4663)-JVS(26610)*XX(4664)-JVS(26619)*XX(4665)-JVS(26635)*XX(4666)-JVS(26646)*XX(4667)-JVS(26666)& - &*XX(4669)-JVS(26676)*XX(4670)-JVS(26687)*XX(4671)-JVS(26702)*XX(4672)-JVS(26715)*XX(4673)-JVS(26723)& - &*XX(4674)-JVS(26734)*XX(4675)-JVS(26745)*XX(4676)-JVS(26771)*XX(4679)-JVS(26780)*XX(4680)-JVS(26791)& - &*XX(4681)-JVS(26801)*XX(4682)-JVS(26811)*XX(4683)-JVS(26821)*XX(4684)-JVS(26830)*XX(4685)-JVS(26844)& - &*XX(4686)-JVS(26858)*XX(4687)-JVS(26867)*XX(4688)-JVS(26877)*XX(4689)-JVS(26888)*XX(4690)-JVS(26905)& - &*XX(4692)-JVS(26989)*XX(4693)-JVS(27010)*XX(4694)-JVS(27017)*XX(4695)-JVS(27025)*XX(4696)-JVS(27033)& - &*XX(4697)-JVS(27042)*XX(4698)-JVS(27048)*XX(4699)-JVS(27056)*XX(4700)-JVS(27063)*XX(4701)-JVS(27072)& - &*XX(4702)-JVS(27079)*XX(4703)-JVS(27085)*XX(4704)-JVS(27092)*XX(4705)-JVS(27099)*XX(4706)-JVS(27105)& - &*XX(4707)-JVS(27126)*XX(4708)-JVS(27134)*XX(4709)-JVS(27153)*XX(4710)-JVS(27159)*XX(4711)-JVS(27166)& - &*XX(4712)-JVS(27173)*XX(4713)-JVS(27181)*XX(4714)-JVS(27189)*XX(4715)-JVS(27196)*XX(4716)-JVS(27206)& - &*XX(4717)-JVS(27212)*XX(4718)-JVS(27222)*XX(4719)-JVS(27229)*XX(4720)-JVS(27259)*XX(4721)-JVS(27270)& - &*XX(4722)-JVS(27277)*XX(4723)-JVS(27288)*XX(4724)-JVS(27294)*XX(4725)-JVS(27307)*XX(4726)-JVS(27313)& - &*XX(4727)-JVS(27330)*XX(4728)-JVS(27356)*XX(4729)-JVS(27365)*XX(4730)-JVS(27374)*XX(4731)-JVS(27380)& - &*XX(4732)-JVS(27388)*XX(4733)-JVS(27398)*XX(4734)-JVS(27404)*XX(4735)-JVS(27415)*XX(4736)-JVS(27428)& - &*XX(4737)-JVS(27439)*XX(4738)-JVS(27451)*XX(4739)-JVS(27465)*XX(4740)-JVS(27490)*XX(4742)-JVS(27501)& - &*XX(4743)-JVS(27510)*XX(4744)-JVS(27523)*XX(4745)-JVS(27530)*XX(4746)-JVS(27548)*XX(4747)-JVS(27566)& - &*XX(4748)-JVS(27581)*XX(4749)-JVS(27591)*XX(4750)-JVS(27602)*XX(4751)-JVS(27616)*XX(4752)-JVS(27628)& - &*XX(4753)-JVS(27635)*XX(4754)-JVS(27651)*XX(4755)-JVS(27658)*XX(4756)-JVS(27675)*XX(4758)-JVS(27690)& - &*XX(4759)-JVS(27711)*XX(4760)-JVS(27719)*XX(4761)-JVS(27727)*XX(4762)-JVS(27742)*XX(4763)-JVS(27757)& - &*XX(4764)-JVS(27765)*XX(4765)-JVS(27774)*XX(4766)-JVS(27784)*XX(4767)-JVS(27807)*XX(4768)-JVS(27820)& - &*XX(4769)-JVS(27831)*XX(4770)-JVS(27841)*XX(4771)-JVS(27852)*XX(4772)-JVS(27864)*XX(4773)-JVS(27872)& - &*XX(4774)-JVS(27888)*XX(4775)-JVS(27903)*XX(4777)-JVS(27912)*XX(4778)-JVS(27920)*XX(4779)-JVS(27929)& - &*XX(4780)-JVS(27937)*XX(4781)-JVS(27945)*XX(4782)-JVS(27952)*XX(4783)-JVS(27960)*XX(4784)-JVS(27968)& - &*XX(4785)-JVS(27983)*XX(4787)-JVS(27993)*XX(4788)-JVS(28005)*XX(4789)-JVS(28015)*XX(4790)-JVS(28026)& - &*XX(4791)-JVS(28042)*XX(4792)-JVS(28052)*XX(4793)-JVS(28057)*XX(4794)-JVS(28067)*XX(4795)-JVS(28148)& - &*XX(4796)-JVS(28159)*XX(4797)-JVS(28172)*XX(4798)-JVS(28184)*XX(4799)-JVS(28192)*XX(4800)-JVS(28225)& - &*XX(4801)-JVS(28233)*XX(4802)-JVS(28239)*XX(4803)-JVS(28249)*XX(4804)-JVS(28255)*XX(4805)-JVS(28269)& - &*XX(4806)-JVS(28278)*XX(4807)-JVS(28289)*XX(4808)-JVS(28298)*XX(4809)-JVS(28309)*XX(4810)-JVS(28320)& - &*XX(4811)-JVS(28334)*XX(4812)-JVS(28344)*XX(4813)-JVS(28353)*XX(4814)-JVS(28367)*XX(4815)-JVS(28376)& - &*XX(4816)-JVS(28386)*XX(4817)-JVS(28395)*XX(4818)-JVS(28413)*XX(4820)-JVS(28419)*XX(4821)-JVS(28433)& - &*XX(4822)-JVS(28454)*XX(4823)-JVS(28471)*XX(4825)-JVS(28482)*XX(4826)-JVS(28493)*XX(4827)-JVS(28510)& - &*XX(4829)-JVS(28522)*XX(4830)-JVS(28540)*XX(4831)-JVS(28549)*XX(4832)-JVS(28559)*XX(4833)-JVS(28575)& - &*XX(4834)-JVS(28582)*XX(4835)-JVS(28592)*XX(4836)-JVS(28601)*XX(4837)-JVS(28611)*XX(4838)-JVS(28629)& - &*XX(4839)-JVS(28632)*XX(4840)-JVS(28649)*XX(4841)-JVS(28674)*XX(4842)-JVS(28684)*XX(4843)-JVS(28698)& - &*XX(4844)-JVS(28711)*XX(4845)-JVS(28723)*XX(4846)-JVS(28740)*XX(4847)-JVS(28752)*XX(4848)-JVS(28768)& - &*XX(4849)-JVS(28790)*XX(4850)-JVS(28808)*XX(4851)-JVS(28821)*XX(4852)-JVS(28837)*XX(4853)-JVS(28851)& - &*XX(4854)-JVS(28864)*XX(4855)-JVS(28876)*XX(4856)-JVS(28888)*XX(4857)-JVS(28899)*XX(4858)-JVS(28909)& - &*XX(4859)-JVS(28921)*XX(4860)-JVS(28932)*XX(4861)-JVS(28944)*XX(4862)-JVS(28957)*XX(4863)-JVS(28974)& - &*XX(4864)-JVS(28994)*XX(4865)-JVS(29006)*XX(4866)-JVS(29020)*XX(4867)-JVS(29029)*XX(4868)-JVS(29055)& - &*XX(4870)-JVS(29072)*XX(4871)-JVS(29087)*XX(4872)-JVS(29100)*XX(4873)-JVS(29117)*XX(4874)-JVS(29131)& - &*XX(4875)-JVS(29138)*XX(4876)-JVS(29145)*XX(4877)-JVS(29153)*XX(4878)-JVS(29160)*XX(4879)-JVS(29168)& - &*XX(4880)-JVS(29175)*XX(4881)-JVS(29189)*XX(4882)-JVS(29200)*XX(4883)-JVS(29208)*XX(4884)-JVS(29219)& - &*XX(4885)-JVS(29227)*XX(4886)-JVS(29238)*XX(4887)-JVS(29249)*XX(4888)-JVS(29258)*XX(4889)-JVS(29271)& - &*XX(4890)-JVS(29280)*XX(4891)-JVS(29289)*XX(4892)-JVS(29301)*XX(4893)-JVS(29310)*XX(4894)-JVS(29320)& - &*XX(4895)-JVS(29331)*XX(4896)-JVS(29343)*XX(4897)-JVS(29356)*XX(4898)-JVS(29367)*XX(4899)-JVS(29378)& - &*XX(4900)-JVS(29391)*XX(4901)-JVS(29411)*XX(4902)-JVS(29421)*XX(4903)-JVS(29453)*XX(4904)-JVS(29465)& - &*XX(4905)-JVS(29478)*XX(4907)-JVS(29488)*XX(4908)-JVS(29522)*XX(4909)-JVS(29543)*XX(4910)-JVS(29555)& - &*XX(4911)-JVS(29564)*XX(4912)-JVS(29581)*XX(4913)-JVS(29594)*XX(4914)-JVS(29607)*XX(4915)-JVS(29627)& - &*XX(4916)-JVS(29642)*XX(4917)-JVS(29677)*XX(4918)-JVS(29687)*XX(4919)-JVS(29700)*XX(4920)-JVS(29717)& - &*XX(4921)-JVS(29724)*XX(4922)-JVS(29734)*XX(4923)-JVS(29755)*XX(4924)-JVS(29763)*XX(4925)-JVS(29775)& - &*XX(4926)-JVS(29785)*XX(4927)-JVS(29792)*XX(4928)-JVS(29814)*XX(4929)-JVS(29828)*XX(4930)-JVS(29863)& - &*XX(4931)-JVS(29871)*XX(4932)-JVS(29880)*XX(4933)-JVS(29890)*XX(4934)-JVS(29900)*XX(4935)-JVS(29915)& - &*XX(4936)-JVS(29923)*XX(4937)-JVS(30012)*XX(4938)-JVS(30036)*XX(4939)-JVS(30057)*XX(4940)-JVS(30070)& - &*XX(4941)-JVS(30088)*XX(4942)-JVS(30104)*XX(4943)-JVS(30129)*XX(4944)-JVS(30144)*XX(4946)-JVS(30172)& - &*XX(4947)-JVS(30182)*XX(4948)-JVS(30203)*XX(4949)-JVS(30212)*XX(4950)-JVS(30226)*XX(4951)-JVS(30239)& - &*XX(4952)-JVS(30254)*XX(4953)-JVS(30269)*XX(4954)-JVS(30279)*XX(4955)-JVS(30291)*XX(4956)-JVS(30301)& - &*XX(4957)-JVS(30332)*XX(4958)-JVS(30349)*XX(4959)-JVS(30361)*XX(4960)-JVS(30376)*XX(4961)-JVS(30390)& - &*XX(4962)-JVS(30402)*XX(4963)-JVS(30424)*XX(4964)-JVS(30440)*XX(4965)-JVS(30459)*XX(4966)-JVS(30471)& - &*XX(4967)-JVS(30480)*XX(4968)-JVS(30494)*XX(4969)-JVS(30509)*XX(4971)-JVS(30517)*XX(4972)-JVS(30550)& - &*XX(4973)-JVS(30558)*XX(4974)-JVS(30571)*XX(4975)-JVS(30575)*XX(4976)-JVS(30587)*XX(4977)-JVS(30605)& - &*XX(4978)-JVS(30617)*XX(4979)-JVS(30630)*XX(4980)-JVS(30650)*XX(4981)-JVS(30659)*XX(4982)-JVS(30701)& - &*XX(4983)-JVS(30714)*XX(4984)-JVS(30730)*XX(4985)-JVS(30758)*XX(4986)-JVS(30768)*XX(4987)-JVS(30772)& - &*XX(4988)-JVS(30787)*XX(4989)-JVS(30800)*XX(4990)-JVS(30825)*XX(4991)-JVS(30836)*XX(4992)-JVS(30846)& - &*XX(4993)-JVS(30857)*XX(4994)-JVS(30883)*XX(4995)-JVS(30900)*XX(4996)-JVS(30911)*XX(4997)-JVS(30922)& - &*XX(4998)-JVS(30979)*XX(5000)-JVS(31011)*XX(5001)-JVS(31016)*XX(5002)-JVS(31030)*XX(5003)-JVS(31057)& - &*XX(5004)-JVS(31070)*XX(5005)-JVS(31097)*XX(5006)-JVS(31115)*XX(5007)-JVS(31131)*XX(5008)-JVS(31147)& - &*XX(5009)-JVS(31164)*XX(5010)-JVS(31190)*XX(5011)-JVS(31211)*XX(5012)-JVS(31231)*XX(5014)-JVS(31240)& - &*XX(5015)-JVS(31258)*XX(5016)-JVS(31273)*XX(5017)-JVS(31290)*XX(5018)-JVS(31301)*XX(5019)-JVS(31314)& - &*XX(5020)-JVS(31325)*XX(5021)-JVS(31334)*XX(5022)-JVS(31372)*XX(5023)-JVS(31381)*XX(5024)-JVS(31390)& - &*XX(5025)-JVS(31417)*XX(5026)-JVS(31429)*XX(5027)-JVS(31438)*XX(5028)-JVS(31458)*XX(5029)-JVS(31468)& - &*XX(5030)-JVS(31511)*XX(5031)-JVS(31521)*XX(5032)-JVS(31529)*XX(5033)-JVS(31545)*XX(5034)-JVS(31555)& - &*XX(5035)-JVS(31573)*XX(5036)-JVS(31594)*XX(5037)-JVS(31625)*XX(5038)-JVS(31646)*XX(5039)-JVS(31667)& - &*XX(5041)-JVS(31684)*XX(5042)-JVS(31695)*XX(5043)-JVS(31710)*XX(5044)-JVS(31719)*XX(5045)-JVS(31811)& - &*XX(5046)-JVS(31824)*XX(5047)-JVS(31833)*XX(5048)-JVS(31846)*XX(5049)-JVS(31857)*XX(5050)-JVS(31862)& - &*XX(5051)-JVS(31878)*XX(5052)-JVS(31899)*XX(5053)-JVS(31915)*XX(5054)-JVS(31942)*XX(5055)-JVS(31950)& - &*XX(5056)-JVS(31974)*XX(5057)-JVS(31995)*XX(5058)-JVS(32034)*XX(5059)-JVS(32054)*XX(5060)-JVS(32063)& - &*XX(5061)-JVS(32083)*XX(5062)-JVS(32098)*XX(5063)-JVS(32114)*XX(5064)-JVS(32121)*XX(5065)-JVS(32134)& - &*XX(5066)-JVS(32154)*XX(5067)-JVS(32168)*XX(5068)-JVS(32179)*XX(5069)-JVS(32195)*XX(5070)-JVS(32224)& - &*XX(5071)-JVS(32239)*XX(5072)-JVS(32257)*XX(5073)-JVS(32265)*XX(5074)-JVS(32277)*XX(5075)-JVS(32285)& - &*XX(5076)-JVS(32294)*XX(5077)-JVS(32308)*XX(5078)-JVS(32331)*XX(5079)-JVS(32369)*XX(5080)-JVS(32377)& - &*XX(5081)-JVS(32385)*XX(5082)-JVS(32403)*XX(5083)-JVS(32417)*XX(5084)-JVS(32449)*XX(5085)-JVS(32490)& - &*XX(5086)-JVS(32518)*XX(5087)-JVS(32530)*XX(5088)-JVS(32546)*XX(5089)-JVS(32559)*XX(5090)-JVS(32570)& - &*XX(5091)-JVS(32579)*XX(5092)-JVS(32593)*XX(5093)-JVS(32624)*XX(5094)-JVS(32646)*XX(5095)-JVS(32658)& - &*XX(5096)-JVS(32679)*XX(5097)-JVS(32715)*XX(5098)-JVS(32731)*XX(5099)-JVS(32766)*XX(5100)-JVS(32797)& - &*XX(5101)-JVS(32816)*XX(5102)-JVS(32830)*XX(5103)-JVS(32856)*XX(5104)-JVS(32877)*XX(5105)-JVS(32923)& - &*XX(5106)-JVS(32931)*XX(5107)-JVS(32942)*XX(5108)-JVS(32950)*XX(5109)-JVS(32980)*XX(5110)-JVS(33001)& - &*XX(5111)-JVS(33011)*XX(5112)-JVS(33028)*XX(5113)-JVS(33040)*XX(5114)-JVS(33059)*XX(5115)-JVS(33076)& - &*XX(5116)-JVS(33099)*XX(5117)-JVS(33109)*XX(5118)-JVS(33119)*XX(5119)-JVS(33132)*XX(5120)-JVS(33156)& - &*XX(5121)-JVS(33171)*XX(5122)-JVS(33208)*XX(5123)-JVS(33224)*XX(5124)-JVS(33300)*XX(5125)-JVS(33322)& - &*XX(5126)-JVS(33335)*XX(5127)-JVS(33353)*XX(5128)-JVS(33389)*XX(5129)-JVS(33415)*XX(5130)-JVS(33438)& - &*XX(5131)-JVS(33446)*XX(5132)-JVS(33461)*XX(5133)-JVS(33480)*XX(5134)-JVS(33493)*XX(5135)-JVS(33522)& - &*XX(5136)-JVS(33572)*XX(5137)-JVS(33580)*XX(5138)-JVS(33715)*XX(5139)-JVS(33736)*XX(5140)-JVS(33757)& - &*XX(5141)-JVS(33829)*XX(5142)-JVS(33897)*XX(5143)-JVS(33906)*XX(5144)-JVS(33958)*XX(5145)-JVS(33966)& - &*XX(5146)-JVS(33983)*XX(5147)-JVS(34003)*XX(5148)-JVS(34027)*XX(5149)-JVS(34047)*XX(5150)-JVS(34068)& - &*XX(5151)-JVS(34116)*XX(5152)-JVS(34126)*XX(5153)-JVS(34152)*XX(5155)-JVS(34175)*XX(5156)-JVS(34196)& - &*XX(5157)-JVS(34251)*XX(5158)-JVS(34264)*XX(5159)-JVS(34514)*XX(5160)-JVS(34550)*XX(5161)-JVS(34574)& - &*XX(5162)-JVS(34589)*XX(5163)-JVS(34618)*XX(5164)-JVS(34661)*XX(5165)-JVS(34665)*XX(5166)-JVS(34684)& - &*XX(5167)-JVS(34695)*XX(5168)-JVS(34716)*XX(5169)-JVS(34751)*XX(5170)-JVS(34785)*XX(5171)-JVS(34819)& - &*XX(5172)-JVS(34832)*XX(5173)-JVS(34842)*XX(5174)-JVS(34852)*XX(5175)-JVS(34881)*XX(5176)-JVS(34909)& - &*XX(5177)-JVS(34963)*XX(5178)-JVS(35007)*XX(5179)-JVS(35048)*XX(5180)-JVS(35056)*XX(5181)-JVS(35143)& - &*XX(5182)-JVS(35357)*XX(5183)-JVS(35416)*XX(5184)-JVS(35438)*XX(5185)-JVS(35445)*XX(5186)-JVS(35454)& - &*XX(5187)-JVS(35567)*XX(5188)-JVS(35586)*XX(5189)-JVS(35595)*XX(5190)-JVS(35704)*XX(5191)-JVS(35718)& - &*XX(5192)-JVS(36010)*XX(5193)-JVS(36045)*XX(5194)-JVS(36107)*XX(5195)-JVS(36124)*XX(5196)-JVS(36183)& - &*XX(5197)-JVS(36200)*XX(5198)-JVS(36274)*XX(5199)-JVS(36294)*XX(5200)-JVS(36760)*XX(5201)-JVS(36802)& - &*XX(5202)-JVS(36853)*XX(5203)-JVS(36862)*XX(5204)-JVS(36877)*XX(5205)-JVS(36888)*XX(5206)-JVS(36908)& - &*XX(5207)-JVS(36937)*XX(5208)-JVS(36961)*XX(5209)-JVS(37036)*XX(5210)-JVS(37079)*XX(5211)-JVS(37096)& - &*XX(5212)-JVS(37119)*XX(5213)-JVS(37197)*XX(5214)-JVS(37226)*XX(5215)-JVS(37281)*XX(5216)-JVS(37290)& - &*XX(5217)-JVS(37301)*XX(5218)-JVS(37313)*XX(5219)-JVS(37331)*XX(5220)-JVS(37369)*XX(5221)-JVS(37670)& - &*XX(5222)-JVS(37727)*XX(5223)-JVS(37746)*XX(5224)-JVS(37784)*XX(5225)-JVS(37820)*XX(5226)-JVS(37834)& - &*XX(5227)-JVS(37974)*XX(5228)-JVS(38016)*XX(5229)-JVS(38087)*XX(5230)-JVS(38788)*XX(5231)-JVS(38938)& - &*XX(5232)-JVS(39191)*XX(5233)-JVS(39340)*XX(5234)-JVS(39399)*XX(5235)-JVS(39416)*XX(5236)-JVS(39491)& - &*XX(5237)-JVS(39538)*XX(5238)-JVS(39563)*XX(5239)-JVS(39594)*XX(5240)-JVS(39682)*XX(5241)-JVS(39767)& - &*XX(5242)-JVS(39819)*XX(5243)-JVS(40449)*XX(5244)-JVS(40471)*XX(5245)-JVS(40507)*XX(5246)-JVS(40538)& - &*XX(5247)-JVS(40568)*XX(5248)-JVS(40584)*XX(5249)-JVS(45062)*XX(5250)-JVS(46587)*XX(5251)-JVS(47938)& - &*XX(5252)-JVS(50214)*XX(5253)-JVS(50322)*XX(5254)-JVS(53213)*XX(5255))/(JVS(54814)) - XX(5257) = (X(5257)-JVS(1017)*XX(236)-JVS(19074)*XX(3883)-JVS(19946)*XX(3988)-JVS(22454)*XX(4264)-JVS(27531)*XX(4746)& - &-JVS(27549)*XX(4747)-JVS(27636)*XX(4754)-JVS(27659)*XX(4756)-JVS(27728)*XX(4762)-JVS(30788)*XX(4989)& - &-JVS(31232)*XX(5014)-JVS(31668)*XX(5041)-JVS(31812)*XX(5046)-JVS(32732)*XX(5099)-JVS(32857)*XX(5104)& - &-JVS(33439)*XX(5131)-JVS(34515)*XX(5160)-JVS(35144)*XX(5182)-JVS(35417)*XX(5184)-JVS(36108)*XX(5195)& - &-JVS(36761)*XX(5201)-JVS(36889)*XX(5206)-JVS(36909)*XX(5207)-JVS(37080)*XX(5211)-JVS(37198)*XX(5214)& - &-JVS(37728)*XX(5223)-JVS(37975)*XX(5228)-JVS(38789)*XX(5231)-JVS(38939)*XX(5232)-JVS(39192)*XX(5233)& - &-JVS(39341)*XX(5234)-JVS(39400)*XX(5235)-JVS(39492)*XX(5237)-JVS(39564)*XX(5239)-JVS(39595)*XX(5240)& - &-JVS(39683)*XX(5241)-JVS(39768)*XX(5242)-JVS(39820)*XX(5243)-JVS(40450)*XX(5244)-JVS(40472)*XX(5245)& - &-JVS(40508)*XX(5246)-JVS(40539)*XX(5247)-JVS(40569)*XX(5248)-JVS(45063)*XX(5250)-JVS(46588)*XX(5251)& - &-JVS(47939)*XX(5252)-JVS(50215)*XX(5253)-JVS(50323)*XX(5254)-JVS(53214)*XX(5255)-JVS(54815)*XX(5256))& - &/(JVS(54837)) - XX(5258) = (X(5258)-JVS(59)*XX(4)-JVS(106)*XX(19)-JVS(109)*XX(20)-JVS(132)*XX(27)-JVS(138)*XX(29)-JVS(166)*XX(37)& - &-JVS(254)*XX(61)-JVS(276)*XX(67)-JVS(433)*XX(112)-JVS(505)*XX(131)-JVS(568)*XX(148)-JVS(946)*XX(214)& - &-JVS(979)*XX(224)-JVS(1018)*XX(236)-JVS(1028)*XX(239)-JVS(1042)*XX(243)-JVS(1220)*XX(293)-JVS(1349)*XX(327)& - &-JVS(1461)*XX(362)-JVS(1547)*XX(386)-JVS(1662)*XX(419)-JVS(1873)*XX(477)-JVS(2001)*XX(514)-JVS(2029)*XX(522)& - &-JVS(2052)*XX(529)-JVS(2089)*XX(538)-JVS(2171)*XX(558)-JVS(2177)*XX(560)-JVS(2190)*XX(563)-JVS(2207)*XX(568)& - &-JVS(2210)*XX(569)-JVS(2353)*XX(604)-JVS(2387)*XX(612)-JVS(2395)*XX(614)-JVS(2455)*XX(628)-JVS(2507)*XX(640)& - &-JVS(2661)*XX(676)-JVS(2694)*XX(684)-JVS(2697)*XX(685)-JVS(2700)*XX(686)-JVS(2758)*XX(700)-JVS(2761)*XX(701)& - &-JVS(2779)*XX(705)-JVS(2840)*XX(718)-JVS(2843)*XX(719)-JVS(2861)*XX(723)-JVS(2930)*XX(738)-JVS(2996)*XX(752)& - &-JVS(3023)*XX(759)-JVS(3040)*XX(763)-JVS(3051)*XX(766)-JVS(3070)*XX(771)-JVS(3153)*XX(790)-JVS(3272)*XX(819)& - &-JVS(6295)*XX(1569)-JVS(6629)*XX(1642)-JVS(7116)*XX(1746)-JVS(7260)*XX(1776)-JVS(7353)*XX(1795)-JVS(8135)& - &*XX(1959)-JVS(8399)*XX(2013)-JVS(8526)*XX(2038)-JVS(8545)*XX(2042)-JVS(8725)*XX(2081)-JVS(8828)*XX(2104)& - &-JVS(9016)*XX(2148)-JVS(9305)*XX(2212)-JVS(9501)*XX(2258)-JVS(9624)*XX(2286)-JVS(9949)*XX(2359)-JVS(10102)& - &*XX(2393)-JVS(10239)*XX(2425)-JVS(10439)*XX(2470)-JVS(10470)*XX(2476)-JVS(10480)*XX(2479)-JVS(10495)& - &*XX(2481)-JVS(10514)*XX(2487)-JVS(10526)*XX(2489)-JVS(11866)*XX(2748)-JVS(12716)*XX(2914)-JVS(12786)& - &*XX(2927)-JVS(12835)*XX(2936)-JVS(13053)*XX(2973)-JVS(13648)*XX(3083)-JVS(13941)*XX(3133)-JVS(13998)& - &*XX(3147)-JVS(14038)*XX(3155)-JVS(14201)*XX(3186)-JVS(14282)*XX(3202)-JVS(14314)*XX(3210)-JVS(14409)& - &*XX(3230)-JVS(14508)*XX(3245)-JVS(14780)*XX(3297)-JVS(15396)*XX(3394)-JVS(15727)*XX(3442)-JVS(15834)& - &*XX(3465)-JVS(15838)*XX(3466)-JVS(15912)*XX(3479)-JVS(15927)*XX(3482)-JVS(15999)*XX(3494)-JVS(16034)& - &*XX(3499)-JVS(16078)*XX(3506)-JVS(16089)*XX(3508)-JVS(16113)*XX(3512)-JVS(16153)*XX(3516)-JVS(16158)& - &*XX(3517)-JVS(16170)*XX(3519)-JVS(16354)*XX(3545)-JVS(16393)*XX(3551)-JVS(16403)*XX(3553)-JVS(16456)& - &*XX(3560)-JVS(16516)*XX(3568)-JVS(16690)*XX(3590)-JVS(16926)*XX(3617)-JVS(16960)*XX(3622)-JVS(17023)& - &*XX(3630)-JVS(17086)*XX(3638)-JVS(17167)*XX(3646)-JVS(17175)*XX(3647)-JVS(17210)*XX(3651)-JVS(17365)& - &*XX(3671)-JVS(17465)*XX(3684)-JVS(17598)*XX(3701)-JVS(17752)*XX(3721)-JVS(17796)*XX(3726)-JVS(18364)& - &*XX(3793)-JVS(18577)*XX(3821)-JVS(18642)*XX(3830)-JVS(18647)*XX(3831)-JVS(18651)*XX(3832)-JVS(18656)& - &*XX(3833)-JVS(18661)*XX(3834)-JVS(18786)*XX(3849)-JVS(20012)*XX(3996)-JVS(20020)*XX(3997)-JVS(20039)& - &*XX(3999)-JVS(20059)*XX(4001)-JVS(20067)*XX(4002)-JVS(20101)*XX(4006)-JVS(20109)*XX(4007)-JVS(20117)& - &*XX(4008)-JVS(20125)*XX(4009)-JVS(20130)*XX(4010)-JVS(20138)*XX(4011)-JVS(20179)*XX(4014)-JVS(20196)& - &*XX(4016)-JVS(20201)*XX(4017)-JVS(20206)*XX(4018)-JVS(20223)*XX(4020)-JVS(20231)*XX(4021)-JVS(20239)& - &*XX(4022)-JVS(20247)*XX(4023)-JVS(20256)*XX(4024)-JVS(20279)*XX(4027)-JVS(20315)*XX(4032)-JVS(20323)& - &*XX(4033)-JVS(20331)*XX(4034)-JVS(20339)*XX(4035)-JVS(20347)*XX(4036)-JVS(20355)*XX(4037)-JVS(20374)& - &*XX(4039)-JVS(20382)*XX(4040)-JVS(20425)*XX(4044)-JVS(20475)*XX(4048)-JVS(20483)*XX(4049)-JVS(20538)& - &*XX(4054)-JVS(20549)*XX(4056)-JVS(20557)*XX(4057)-JVS(20597)*XX(4061)-JVS(20614)*XX(4063)-JVS(20622)& - &*XX(4064)-JVS(20630)*XX(4065)-JVS(20643)*XX(4067)-JVS(20682)*XX(4072)-JVS(20690)*XX(4073)-JVS(20705)& - &*XX(4075)-JVS(20732)*XX(4078)-JVS(20740)*XX(4079)-JVS(20745)*XX(4080)-JVS(20754)*XX(4081)-JVS(20762)& - &*XX(4082)-JVS(20767)*XX(4083)-JVS(20779)*XX(4084)-JVS(20787)*XX(4085)-JVS(20857)*XX(4093)-JVS(20862)& - &*XX(4094)-JVS(20874)*XX(4096)-JVS(21166)*XX(4129)-JVS(21192)*XX(4132)-JVS(21213)*XX(4135)-JVS(21283)& - &*XX(4144)-JVS(21290)*XX(4145)-JVS(21311)*XX(4148)-JVS(21555)*XX(4176)-JVS(21808)*XX(4201)-JVS(21922)& - &*XX(4213)-JVS(22173)*XX(4236)-JVS(22214)*XX(4240)-JVS(22236)*XX(4242)-JVS(22281)*XX(4247)-JVS(22307)& - &*XX(4249)-JVS(22315)*XX(4250)-JVS(22396)*XX(4258)-JVS(22455)*XX(4264)-JVS(22528)*XX(4272)-JVS(22628)& - &*XX(4282)-JVS(22664)*XX(4286)-JVS(22754)*XX(4294)-JVS(22837)*XX(4302)-JVS(22928)*XX(4311)-JVS(23023)& - &*XX(4320)-JVS(23106)*XX(4328)-JVS(23125)*XX(4330)-JVS(23155)*XX(4332)-JVS(23166)*XX(4333)-JVS(23181)& - &*XX(4335)-JVS(23324)*XX(4352)-JVS(23537)*XX(4376)-JVS(23544)*XX(4377)-JVS(23598)*XX(4383)-JVS(23640)& - &*XX(4387)-JVS(23649)*XX(4388)-JVS(23724)*XX(4395)-JVS(23731)*XX(4396)-JVS(23738)*XX(4397)-JVS(23753)& - &*XX(4398)-JVS(23762)*XX(4399)-JVS(23770)*XX(4400)-JVS(23783)*XX(4401)-JVS(23793)*XX(4402)-JVS(23839)& - &*XX(4403)-JVS(23880)*XX(4407)-JVS(23890)*XX(4408)-JVS(23942)*XX(4413)-JVS(23969)*XX(4416)-JVS(24015)& - &*XX(4420)-JVS(24035)*XX(4422)-JVS(24152)*XX(4432)-JVS(24201)*XX(4437)-JVS(24211)*XX(4438)-JVS(24230)& - &*XX(4440)-JVS(24278)*XX(4444)-JVS(24374)*XX(4453)-JVS(24384)*XX(4454)-JVS(24413)*XX(4457)-JVS(24500)& - &*XX(4466)-JVS(24549)*XX(4471)-JVS(24571)*XX(4474)-JVS(24575)*XX(4475)-JVS(24584)*XX(4476)-JVS(24608)& - &*XX(4478)-JVS(24618)*XX(4479)-JVS(24627)*XX(4480)-JVS(24639)*XX(4481)-JVS(24660)*XX(4482)-JVS(24671)& - &*XX(4483)-JVS(24718)*XX(4487)-JVS(24777)*XX(4491)-JVS(24781)*XX(4492)-JVS(24806)*XX(4493)-JVS(24816)& - &*XX(4494)-JVS(24826)*XX(4495)-JVS(24868)*XX(4499)-JVS(24921)*XX(4504)-JVS(24928)*XX(4505)-JVS(25014)& - &*XX(4507)-JVS(25018)*XX(4508)-JVS(25028)*XX(4509)-JVS(25053)*XX(4512)-JVS(25063)*XX(4513)-JVS(25073)& - &*XX(4514)-JVS(25202)*XX(4526)-JVS(25206)*XX(4527)-JVS(25222)*XX(4528)-JVS(25250)*XX(4531)-JVS(25372)& - &*XX(4541)-JVS(25381)*XX(4542)-JVS(25403)*XX(4544)-JVS(25418)*XX(4545)-JVS(25443)*XX(4547)-JVS(25478)& - &*XX(4550)-JVS(25487)*XX(4551)-JVS(25521)*XX(4555)-JVS(25531)*XX(4556)-JVS(25593)*XX(4562)-JVS(25601)& - &*XX(4563)-JVS(25648)*XX(4568)-JVS(25662)*XX(4569)-JVS(25668)*XX(4570)-JVS(25705)*XX(4575)-JVS(25716)& - &*XX(4576)-JVS(25766)*XX(4582)-JVS(25789)*XX(4585)-JVS(25804)*XX(4587)-JVS(25818)*XX(4588)-JVS(25864)& - &*XX(4592)-JVS(25895)*XX(4596)-JVS(25923)*XX(4600)-JVS(25927)*XX(4601)-JVS(25988)*XX(4603)-JVS(25992)& - &*XX(4604)-JVS(25996)*XX(4605)-JVS(26000)*XX(4606)-JVS(26009)*XX(4607)-JVS(26018)*XX(4608)-JVS(26082)& - &*XX(4615)-JVS(26120)*XX(4618)-JVS(26152)*XX(4621)-JVS(26210)*XX(4625)-JVS(26220)*XX(4626)-JVS(26258)& - &*XX(4630)-JVS(26282)*XX(4632)-JVS(26292)*XX(4633)-JVS(26311)*XX(4635)-JVS(26328)*XX(4637)-JVS(26348)& - &*XX(4639)-JVS(26368)*XX(4641)-JVS(26429)*XX(4647)-JVS(26450)*XX(4649)-JVS(26458)*XX(4650)-JVS(26503)& - &*XX(4654)-JVS(26522)*XX(4656)-JVS(26572)*XX(4661)-JVS(26593)*XX(4663)-JVS(26636)*XX(4666)-JVS(26647)& - &*XX(4667)-JVS(26655)*XX(4668)-JVS(26667)*XX(4669)-JVS(26677)*XX(4670)-JVS(26688)*XX(4671)-JVS(26724)& - &*XX(4674)-JVS(26735)*XX(4675)-JVS(26746)*XX(4676)-JVS(26754)*XX(4677)-JVS(26761)*XX(4678)-JVS(26781)& - &*XX(4680)-JVS(26802)*XX(4682)-JVS(26812)*XX(4683)-JVS(26831)*XX(4685)-JVS(26868)*XX(4688)-JVS(26878)& - &*XX(4689)-JVS(26889)*XX(4690)-JVS(26896)*XX(4691)-JVS(26906)*XX(4692)-JVS(26990)*XX(4693)-JVS(27011)& - &*XX(4694)-JVS(27049)*XX(4699)-JVS(27057)*XX(4700)-JVS(27064)*XX(4701)-JVS(27073)*XX(4702)-JVS(27106)& - &*XX(4707)-JVS(27127)*XX(4708)-JVS(27182)*XX(4714)-JVS(27213)*XX(4718)-JVS(27223)*XX(4719)-JVS(27230)& - &*XX(4720)-JVS(27260)*XX(4721)-JVS(27278)*XX(4723)-JVS(27295)*XX(4725)-JVS(27314)*XX(4727)-JVS(27331)& - &*XX(4728)-JVS(27357)*XX(4729)-JVS(27466)*XX(4740)-JVS(27478)*XX(4741)-JVS(27532)*XX(4746)-JVS(27550)& - &*XX(4747)-JVS(27637)*XX(4754)-JVS(27660)*XX(4756)-JVS(27670)*XX(4757)-JVS(27720)*XX(4761)-JVS(27729)& - &*XX(4762)-JVS(27785)*XX(4767)-JVS(27821)*XX(4769)-JVS(27873)*XX(4774)-JVS(27896)*XX(4776)-JVS(27904)& - &*XX(4777)-JVS(27921)*XX(4779)-JVS(27946)*XX(4782)-JVS(27973)*XX(4786)-JVS(27994)*XX(4788)-JVS(28016)& - &*XX(4790)-JVS(28027)*XX(4791)-JVS(28043)*XX(4792)-JVS(28053)*XX(4793)-JVS(28058)*XX(4794)-JVS(28149)& - &*XX(4796)-JVS(28160)*XX(4797)-JVS(28173)*XX(4798)-JVS(28240)*XX(4803)-JVS(28250)*XX(4804)-JVS(28256)& - &*XX(4805)-JVS(28279)*XX(4807)-JVS(28299)*XX(4809)-JVS(28310)*XX(4810)-JVS(28345)*XX(4813)-JVS(28403)& - &*XX(4819)-JVS(28420)*XX(4821)-JVS(28434)*XX(4822)-JVS(28455)*XX(4823)-JVS(28463)*XX(4824)-JVS(28501)& - &*XX(4828)-JVS(28511)*XX(4829)-JVS(28523)*XX(4830)-JVS(28541)*XX(4831)-JVS(28550)*XX(4832)-JVS(28560)& - &*XX(4833)-JVS(28602)*XX(4837)-JVS(28612)*XX(4838)-JVS(28633)*XX(4840)-JVS(28650)*XX(4841)-JVS(28675)& - &*XX(4842)-JVS(28685)*XX(4843)-JVS(28712)*XX(4845)-JVS(28724)*XX(4846)-JVS(28741)*XX(4847)-JVS(28865)& - &*XX(4855)-JVS(28889)*XX(4857)-JVS(28910)*XX(4859)-JVS(28958)*XX(4863)-JVS(28975)*XX(4864)-JVS(28995)& - &*XX(4865)-JVS(29030)*XX(4868)-JVS(29040)*XX(4869)-JVS(29073)*XX(4871)-JVS(29101)*XX(4873)-JVS(29161)& - &*XX(4879)-JVS(29176)*XX(4881)-JVS(29209)*XX(4884)-JVS(29239)*XX(4887)-JVS(29259)*XX(4889)-JVS(29290)& - &*XX(4892)-JVS(29302)*XX(4893)-JVS(29321)*XX(4895)-JVS(29332)*XX(4896)-JVS(29344)*XX(4897)-JVS(29357)& - &*XX(4898)-JVS(29368)*XX(4899)-JVS(29454)*XX(4904)-JVS(29466)*XX(4905)-JVS(29474)*XX(4906)-JVS(29479)& - &*XX(4907)-JVS(29489)*XX(4908)-JVS(29523)*XX(4909)-JVS(29544)*XX(4910)-JVS(29565)*XX(4912)-JVS(29582)& - &*XX(4913)-JVS(29628)*XX(4916)-JVS(29643)*XX(4917)-JVS(29678)*XX(4918)-JVS(29688)*XX(4919)-JVS(29701)& - &*XX(4920)-JVS(29725)*XX(4922)-JVS(29735)*XX(4923)-JVS(29756)*XX(4924)-JVS(29764)*XX(4925)-JVS(29786)& - &*XX(4927)-JVS(29793)*XX(4928)-JVS(29815)*XX(4929)-JVS(29829)*XX(4930)-JVS(29864)*XX(4931)-JVS(29881)& - &*XX(4933)-JVS(29901)*XX(4935)-JVS(30013)*XX(4938)-JVS(30058)*XX(4940)-JVS(30071)*XX(4941)-JVS(30105)& - &*XX(4943)-JVS(30130)*XX(4944)-JVS(30173)*XX(4947)-JVS(30183)*XX(4948)-JVS(30227)*XX(4951)-JVS(30240)& - &*XX(4952)-JVS(30255)*XX(4953)-JVS(30270)*XX(4954)-JVS(30292)*XX(4956)-JVS(30333)*XX(4958)-JVS(30350)& - &*XX(4959)-JVS(30377)*XX(4961)-JVS(30403)*XX(4963)-JVS(30425)*XX(4964)-JVS(30441)*XX(4965)-JVS(30460)& - &*XX(4966)-JVS(30495)*XX(4969)-JVS(30503)*XX(4970)-JVS(30510)*XX(4971)-JVS(30576)*XX(4976)-JVS(30588)& - &*XX(4977)-JVS(30660)*XX(4982)-JVS(30702)*XX(4983)-JVS(30731)*XX(4985)-JVS(30759)*XX(4986)-JVS(30769)& - &*XX(4987)-JVS(30773)*XX(4988)-JVS(30789)*XX(4989)-JVS(30826)*XX(4991)-JVS(30837)*XX(4992)-JVS(30912)& - &*XX(4997)-JVS(30923)*XX(4998)-JVS(30934)*XX(4999)-JVS(30980)*XX(5000)-JVS(31012)*XX(5001)-JVS(31017)& - &*XX(5002)-JVS(31098)*XX(5006)-JVS(31116)*XX(5007)-JVS(31148)*XX(5009)-JVS(31191)*XX(5011)-JVS(31212)& - &*XX(5012)-JVS(31218)*XX(5013)-JVS(31233)*XX(5014)-JVS(31274)*XX(5017)-JVS(31291)*XX(5018)-JVS(31326)& - &*XX(5021)-JVS(31335)*XX(5022)-JVS(31373)*XX(5023)-JVS(31382)*XX(5024)-JVS(31430)*XX(5027)-JVS(31439)& - &*XX(5028)-JVS(31459)*XX(5029)-JVS(31512)*XX(5031)-JVS(31546)*XX(5034)-JVS(31595)*XX(5037)-JVS(31626)& - &*XX(5038)-JVS(31647)*XX(5039)-JVS(31657)*XX(5040)-JVS(31669)*XX(5041)-JVS(31696)*XX(5043)-JVS(31711)& - &*XX(5044)-JVS(31813)*XX(5046)-JVS(31825)*XX(5047)-JVS(31834)*XX(5048)-JVS(31847)*XX(5049)-JVS(31858)& - &*XX(5050)-JVS(31863)*XX(5051)-JVS(31879)*XX(5052)-JVS(31900)*XX(5053)-JVS(31916)*XX(5054)-JVS(31996)& - &*XX(5058)-JVS(32035)*XX(5059)-JVS(32055)*XX(5060)-JVS(32084)*XX(5062)-JVS(32135)*XX(5066)-JVS(32155)& - &*XX(5067)-JVS(32169)*XX(5068)-JVS(32180)*XX(5069)-JVS(32196)*XX(5070)-JVS(32266)*XX(5074)-JVS(32286)& - &*XX(5076)-JVS(32370)*XX(5080)-JVS(32404)*XX(5083)-JVS(32418)*XX(5084)-JVS(32450)*XX(5085)-JVS(32491)& - &*XX(5086)-JVS(32519)*XX(5087)-JVS(32547)*XX(5089)-JVS(32571)*XX(5091)-JVS(32580)*XX(5092)-JVS(32594)& - &*XX(5093)-JVS(32625)*XX(5094)-JVS(32647)*XX(5095)-JVS(32716)*XX(5098)-JVS(32733)*XX(5099)-JVS(32767)& - &*XX(5100)-JVS(32817)*XX(5102)-JVS(32831)*XX(5103)-JVS(32858)*XX(5104)-JVS(32878)*XX(5105)-JVS(32924)& - &*XX(5106)-JVS(32981)*XX(5110)-JVS(33002)*XX(5111)-JVS(33029)*XX(5113)-JVS(33041)*XX(5114)-JVS(33172)& - &*XX(5122)-JVS(33209)*XX(5123)-JVS(33225)*XX(5124)-JVS(33301)*XX(5125)-JVS(33323)*XX(5126)-JVS(33336)& - &*XX(5127)-JVS(33354)*XX(5128)-JVS(33390)*XX(5129)-JVS(33416)*XX(5130)-JVS(33440)*XX(5131)-JVS(33494)& - &*XX(5135)-JVS(33523)*XX(5136)-JVS(33573)*XX(5137)-JVS(33716)*XX(5139)-JVS(33758)*XX(5141)-JVS(33830)& - &*XX(5142)-JVS(33959)*XX(5145)-JVS(34028)*XX(5149)-JVS(34117)*XX(5152)-JVS(34127)*XX(5153)-JVS(34135)& - &*XX(5154)-JVS(34153)*XX(5155)-JVS(34176)*XX(5156)-JVS(34197)*XX(5157)-JVS(34252)*XX(5158)-JVS(34265)& - &*XX(5159)-JVS(34516)*XX(5160)-JVS(34619)*XX(5164)-JVS(34662)*XX(5165)-JVS(34666)*XX(5166)-JVS(34685)& - &*XX(5167)-JVS(34696)*XX(5168)-JVS(34717)*XX(5169)-JVS(34752)*XX(5170)-JVS(34786)*XX(5171)-JVS(34820)& - &*XX(5172)-JVS(34833)*XX(5173)-JVS(34853)*XX(5175)-JVS(34882)*XX(5176)-JVS(34910)*XX(5177)-JVS(34964)& - &*XX(5178)-JVS(35008)*XX(5179)-JVS(35049)*XX(5180)-JVS(35145)*XX(5182)-JVS(35358)*XX(5183)-JVS(35418)& - &*XX(5184)-JVS(35455)*XX(5187)-JVS(35568)*XX(5188)-JVS(35587)*XX(5189)-JVS(35596)*XX(5190)-JVS(35705)& - &*XX(5191)-JVS(36011)*XX(5193)-JVS(36046)*XX(5194)-JVS(36109)*XX(5195)-JVS(36125)*XX(5196)-JVS(36184)& - &*XX(5197)-JVS(36201)*XX(5198)-JVS(36275)*XX(5199)-JVS(36295)*XX(5200)-JVS(36762)*XX(5201)-JVS(36803)& - &*XX(5202)-JVS(36854)*XX(5203)-JVS(36863)*XX(5204)-JVS(36878)*XX(5205)-JVS(36890)*XX(5206)-JVS(36910)& - &*XX(5207)-JVS(36938)*XX(5208)-JVS(36962)*XX(5209)-JVS(37037)*XX(5210)-JVS(37081)*XX(5211)-JVS(37097)& - &*XX(5212)-JVS(37120)*XX(5213)-JVS(37199)*XX(5214)-JVS(37227)*XX(5215)-JVS(37282)*XX(5216)-JVS(37291)& - &*XX(5217)-JVS(37302)*XX(5218)-JVS(37314)*XX(5219)-JVS(37332)*XX(5220)-JVS(37370)*XX(5221)-JVS(37671)& - &*XX(5222)-JVS(37729)*XX(5223)-JVS(37747)*XX(5224)-JVS(37785)*XX(5225)-JVS(37821)*XX(5226)-JVS(37835)& - &*XX(5227)-JVS(37976)*XX(5228)-JVS(38017)*XX(5229)-JVS(38088)*XX(5230)-JVS(38790)*XX(5231)-JVS(38940)& - &*XX(5232)-JVS(39193)*XX(5233)-JVS(39342)*XX(5234)-JVS(39401)*XX(5235)-JVS(39417)*XX(5236)-JVS(39493)& - &*XX(5237)-JVS(39539)*XX(5238)-JVS(39565)*XX(5239)-JVS(39596)*XX(5240)-JVS(39684)*XX(5241)-JVS(39769)& - &*XX(5242)-JVS(39821)*XX(5243)-JVS(40451)*XX(5244)-JVS(40473)*XX(5245)-JVS(40509)*XX(5246)-JVS(40540)& - &*XX(5247)-JVS(40570)*XX(5248)-JVS(40585)*XX(5249)-JVS(45064)*XX(5250)-JVS(46589)*XX(5251)-JVS(47940)& - &*XX(5252)-JVS(50216)*XX(5253)-JVS(50324)*XX(5254)-JVS(53215)*XX(5255)-JVS(54816)*XX(5256)-JVS(54838)& - &*XX(5257))/(JVS(55272)) - XX(5258) = XX(5258) - XX(5257) = XX(5257)-JVS(55271)*XX(5258) - XX(5256) = XX(5256)-JVS(54836)*XX(5257)-JVS(55270)*XX(5258) - XX(5255) = XX(5255)-JVS(54813)*XX(5256)-JVS(54835)*XX(5257)-JVS(55269)*XX(5258) - XX(5254) = XX(5254)-JVS(53211)*XX(5255)-JVS(54812)*XX(5256)-JVS(54834)*XX(5257)-JVS(55268)*XX(5258) - XX(5253) = XX(5253)-JVS(50319)*XX(5254)-JVS(53210)*XX(5255)-JVS(54811)*XX(5256)-JVS(54833)*XX(5257)-JVS(55267)& - &*XX(5258) - XX(5252) = XX(5252)-JVS(50210)*XX(5253)-JVS(50318)*XX(5254)-JVS(53209)*XX(5255)-JVS(54810)*XX(5256)-JVS(54832)& - &*XX(5257)-JVS(55266)*XX(5258) - XX(5251) = XX(5251)-JVS(47933)*XX(5252)-JVS(50209)*XX(5253)-JVS(50317)*XX(5254)-JVS(53208)*XX(5255)-JVS(54809)& - &*XX(5256)-JVS(54831)*XX(5257)-JVS(55265)*XX(5258) - XX(5250) = XX(5250)-JVS(46581)*XX(5251)-JVS(47932)*XX(5252)-JVS(50208)*XX(5253)-JVS(50316)*XX(5254)-JVS(53207)& - &*XX(5255)-JVS(54808)*XX(5256)-JVS(54830)*XX(5257)-JVS(55264)*XX(5258) - XX(5249) = XX(5249)-JVS(45055)*XX(5250)-JVS(46580)*XX(5251)-JVS(47931)*XX(5252)-JVS(50207)*XX(5253)-JVS(50315)& - &*XX(5254)-JVS(53206)*XX(5255)-JVS(54807)*XX(5256)-JVS(55263)*XX(5258) - XX(5248) = XX(5248)-JVS(45054)*XX(5250)-JVS(46579)*XX(5251)-JVS(47930)*XX(5252)-JVS(50206)*XX(5253)-JVS(53205)& - &*XX(5255)-JVS(54806)*XX(5256)-JVS(55262)*XX(5258) - XX(5247) = XX(5247)-JVS(45053)*XX(5250)-JVS(46578)*XX(5251)-JVS(47929)*XX(5252)-JVS(50205)*XX(5253)-JVS(53204)& - &*XX(5255)-JVS(54805)*XX(5256)-JVS(55261)*XX(5258) - XX(5246) = XX(5246)-JVS(45052)*XX(5250)-JVS(46577)*XX(5251)-JVS(47928)*XX(5252)-JVS(50204)*XX(5253)-JVS(53203)& - &*XX(5255)-JVS(54804)*XX(5256)-JVS(55260)*XX(5258) - XX(5245) = XX(5245)-JVS(40496)*XX(5246)-JVS(45051)*XX(5250)-JVS(46576)*XX(5251)-JVS(47927)*XX(5252)-JVS(50203)& - &*XX(5253)-JVS(53202)*XX(5255)-JVS(54803)*XX(5256)-JVS(55259)*XX(5258) - XX(5244) = XX(5244)-JVS(45050)*XX(5250)-JVS(46575)*XX(5251)-JVS(47926)*XX(5252)-JVS(50202)*XX(5253)-JVS(53201)& - &*XX(5255)-JVS(54802)*XX(5256)-JVS(55258)*XX(5258) - XX(5243) = XX(5243)-JVS(40436)*XX(5244)-JVS(45049)*XX(5250)-JVS(46574)*XX(5251)-JVS(47925)*XX(5252)-JVS(50201)& - &*XX(5253)-JVS(53200)*XX(5255)-JVS(54801)*XX(5256)-JVS(55257)*XX(5258) - XX(5242) = XX(5242)-JVS(40435)*XX(5244)-JVS(45048)*XX(5250)-JVS(46573)*XX(5251)-JVS(47924)*XX(5252)-JVS(50200)& - &*XX(5253)-JVS(53199)*XX(5255)-JVS(54800)*XX(5256) - XX(5241) = XX(5241)-JVS(40434)*XX(5244)-JVS(45047)*XX(5250)-JVS(46572)*XX(5251)-JVS(47923)*XX(5252)-JVS(50199)& - &*XX(5253)-JVS(53198)*XX(5255)-JVS(54799)*XX(5256) - XX(5240) = XX(5240)-JVS(39668)*XX(5241)-JVS(39807)*XX(5243)-JVS(40433)*XX(5244)-JVS(45046)*XX(5250)-JVS(46571)& - &*XX(5251)-JVS(47922)*XX(5252)-JVS(50198)*XX(5253)-JVS(53197)*XX(5255)-JVS(54798)*XX(5256)-JVS(55256)& - &*XX(5258) - XX(5239) = XX(5239)-JVS(39667)*XX(5241)-JVS(39806)*XX(5243)-JVS(40432)*XX(5244)-JVS(45045)*XX(5250)-JVS(46570)& - &*XX(5251)-JVS(47921)*XX(5252)-JVS(50197)*XX(5253)-JVS(53196)*XX(5255)-JVS(54797)*XX(5256)-JVS(55255)& - &*XX(5258) - XX(5238) = XX(5238)-JVS(39666)*XX(5241)-JVS(39754)*XX(5242)-JVS(39805)*XX(5243)-JVS(40431)*XX(5244)-JVS(40495)& - &*XX(5246)-JVS(45044)*XX(5250)-JVS(46569)*XX(5251)-JVS(47920)*XX(5252)-JVS(50196)*XX(5253)-JVS(50314)& - &*XX(5254)-JVS(53195)*XX(5255)-JVS(54796)*XX(5256)-JVS(55254)*XX(5258) - XX(5237) = XX(5237)-JVS(45043)*XX(5250)-JVS(46568)*XX(5251)-JVS(47919)*XX(5252)-JVS(50195)*XX(5253)-JVS(53194)& - &*XX(5255)-JVS(54795)*XX(5256)-JVS(55253)*XX(5258) - XX(5236) = XX(5236)-JVS(39665)*XX(5241)-JVS(39753)*XX(5242)-JVS(39804)*XX(5243)-JVS(40430)*XX(5244)-JVS(40494)& - &*XX(5246)-JVS(45042)*XX(5250)-JVS(46567)*XX(5251)-JVS(47918)*XX(5252)-JVS(50194)*XX(5253)-JVS(50313)& - &*XX(5254)-JVS(53193)*XX(5255)-JVS(54794)*XX(5256)-JVS(55252)*XX(5258) - XX(5235) = XX(5235)-JVS(45041)*XX(5250)-JVS(46566)*XX(5251)-JVS(47917)*XX(5252)-JVS(50193)*XX(5253)-JVS(53192)& - &*XX(5255)-JVS(54793)*XX(5256)-JVS(55251)*XX(5258) - XX(5234) = XX(5234)-JVS(45040)*XX(5250)-JVS(46565)*XX(5251)-JVS(47916)*XX(5252)-JVS(50192)*XX(5253)-JVS(53191)& - &*XX(5255)-JVS(54792)*XX(5256)-JVS(55250)*XX(5258) - XX(5233) = XX(5233)-JVS(45039)*XX(5250)-JVS(46564)*XX(5251)-JVS(47915)*XX(5252)-JVS(50191)*XX(5253)-JVS(53190)& - &*XX(5255)-JVS(54791)*XX(5256)-JVS(55249)*XX(5258) - XX(5232) = XX(5232)-JVS(45038)*XX(5250)-JVS(46563)*XX(5251)-JVS(47914)*XX(5252)-JVS(50190)*XX(5253)-JVS(53189)& - &*XX(5255)-JVS(54790)*XX(5256)-JVS(55248)*XX(5258) - XX(5231) = XX(5231)-JVS(45037)*XX(5250)-JVS(46562)*XX(5251)-JVS(50189)*XX(5253)-JVS(53188)*XX(5255)-JVS(54789)& - &*XX(5256) - XX(5230) = XX(5230)-JVS(38762)*XX(5231)-JVS(39324)*XX(5234)-JVS(39385)*XX(5235)-JVS(39477)*XX(5237)-JVS(39664)& - &*XX(5241)-JVS(39752)*XX(5242)-JVS(40429)*XX(5244)-JVS(45036)*XX(5250)-JVS(46561)*XX(5251)-JVS(47913)& - &*XX(5252)-JVS(50188)*XX(5253)-JVS(50312)*XX(5254)-JVS(53187)*XX(5255)-JVS(54788)*XX(5256)-JVS(55247)& - &*XX(5258) - XX(5229) = XX(5229)-JVS(38761)*XX(5231)-JVS(39323)*XX(5234)-JVS(39384)*XX(5235)-JVS(39476)*XX(5237)-JVS(40428)& - &*XX(5244)-JVS(45035)*XX(5250)-JVS(46560)*XX(5251)-JVS(47912)*XX(5252)-JVS(50187)*XX(5253)-JVS(53186)& - &*XX(5255)-JVS(54787)*XX(5256)-JVS(55246)*XX(5258) - XX(5228) = XX(5228)-JVS(38760)*XX(5231)-JVS(45034)*XX(5250)-JVS(47911)*XX(5252)-JVS(50186)*XX(5253)-JVS(53185)& - &*XX(5255)-JVS(54786)*XX(5256) - XX(5227) = XX(5227)-JVS(37954)*XX(5228)-JVS(38759)*XX(5231)-JVS(38922)*XX(5232)-JVS(39175)*XX(5233)-JVS(39322)& - &*XX(5234)-JVS(39383)*XX(5235)-JVS(39530)*XX(5238)-JVS(40427)*XX(5244)-JVS(45033)*XX(5250)-JVS(46559)& - &*XX(5251)-JVS(47910)*XX(5252)-JVS(50185)*XX(5253)-JVS(50311)*XX(5254)-JVS(53184)*XX(5255)-JVS(54785)& - &*XX(5256)-JVS(55245)*XX(5258) - XX(5226) = XX(5226)-JVS(37953)*XX(5228)-JVS(38758)*XX(5231)-JVS(39174)*XX(5233)-JVS(39663)*XX(5241)-JVS(39803)& - &*XX(5243)-JVS(40426)*XX(5244)-JVS(45032)*XX(5250)-JVS(46558)*XX(5251)-JVS(47909)*XX(5252)-JVS(50184)& - &*XX(5253)-JVS(50310)*XX(5254)-JVS(53183)*XX(5255)-JVS(54784)*XX(5256)-JVS(55244)*XX(5258) - XX(5225) = XX(5225)-JVS(38921)*XX(5232)-JVS(39173)*XX(5233)-JVS(39321)*XX(5234)-JVS(40425)*XX(5244)-JVS(45031)& - &*XX(5250)-JVS(46557)*XX(5251)-JVS(47908)*XX(5252)-JVS(50183)*XX(5253)-JVS(53182)*XX(5255)-JVS(54783)& - &*XX(5256)-JVS(55243)*XX(5258) - XX(5224) = XX(5224)-JVS(37774)*XX(5225)-JVS(37811)*XX(5226)-JVS(37952)*XX(5228)-JVS(38757)*XX(5231)-JVS(38920)& - &*XX(5232)-JVS(39172)*XX(5233)-JVS(39320)*XX(5234)-JVS(39662)*XX(5241)-JVS(40424)*XX(5244)-JVS(45030)& - &*XX(5250)-JVS(46556)*XX(5251)-JVS(47907)*XX(5252)-JVS(50182)*XX(5253)-JVS(50309)*XX(5254)-JVS(53181)& - &*XX(5255)-JVS(54782)*XX(5256)-JVS(55242)*XX(5258) - XX(5223) = XX(5223)-JVS(38756)*XX(5231)-JVS(45029)*XX(5250)-JVS(46555)*XX(5251)-JVS(47906)*XX(5252)-JVS(50181)& - &*XX(5253)-JVS(50308)*XX(5254)-JVS(53180)*XX(5255)-JVS(54781)*XX(5256) - XX(5222) = XX(5222)-JVS(40423)*XX(5244)-JVS(45028)*XX(5250)-JVS(46554)*XX(5251)-JVS(50180)*XX(5253)-JVS(53179)& - &*XX(5255)-JVS(54780)*XX(5256) - XX(5221) = XX(5221)-JVS(37651)*XX(5222)-JVS(38755)*XX(5231)-JVS(40422)*XX(5244)-JVS(45027)*XX(5250)-JVS(46553)& - &*XX(5251)-JVS(47905)*XX(5252)-JVS(50179)*XX(5253)-JVS(53178)*XX(5255)-JVS(54779)*XX(5256)-JVS(55241)& - &*XX(5258) - XX(5220) = XX(5220)-JVS(37359)*XX(5221)-JVS(37650)*XX(5222)-JVS(37773)*XX(5225)-JVS(37951)*XX(5228)-JVS(38754)& - &*XX(5231)-JVS(38919)*XX(5232)-JVS(39171)*XX(5233)-JVS(39319)*XX(5234)-JVS(40421)*XX(5244)-JVS(45026)& - &*XX(5250)-JVS(46552)*XX(5251)-JVS(47904)*XX(5252)-JVS(50178)*XX(5253)-JVS(50307)*XX(5254)-JVS(53177)& - &*XX(5255)-JVS(54778)*XX(5256)-JVS(55240)*XX(5258) - XX(5219) = XX(5219)-JVS(37325)*XX(5220)-JVS(37358)*XX(5221)-JVS(37649)*XX(5222)-JVS(37713)*XX(5223)-JVS(37772)& - &*XX(5225)-JVS(37826)*XX(5227)-JVS(37950)*XX(5228)-JVS(38753)*XX(5231)-JVS(38918)*XX(5232)-JVS(39170)& - &*XX(5233)-JVS(39318)*XX(5234)-JVS(39382)*XX(5235)-JVS(40420)*XX(5244)-JVS(45025)*XX(5250)-JVS(46551)& - &*XX(5251)-JVS(47903)*XX(5252)-JVS(50177)*XX(5253)-JVS(50306)*XX(5254)-JVS(53176)*XX(5255)-JVS(54777)& - &*XX(5256)-JVS(55239)*XX(5258) - XX(5218) = XX(5218)-JVS(37308)*XX(5219)-JVS(37324)*XX(5220)-JVS(37357)*XX(5221)-JVS(37648)*XX(5222)-JVS(37712)& - &*XX(5223)-JVS(37771)*XX(5225)-JVS(37949)*XX(5228)-JVS(38752)*XX(5231)-JVS(38917)*XX(5232)-JVS(39169)& - &*XX(5233)-JVS(39317)*XX(5234)-JVS(40419)*XX(5244)-JVS(45024)*XX(5250)-JVS(46550)*XX(5251)-JVS(47902)& - &*XX(5252)-JVS(50176)*XX(5253)-JVS(50305)*XX(5254)-JVS(53175)*XX(5255)-JVS(54776)*XX(5256)-JVS(55238)& - &*XX(5258) - XX(5217) = XX(5217)-JVS(37295)*XX(5218)-JVS(37307)*XX(5219)-JVS(37323)*XX(5220)-JVS(37356)*XX(5221)-JVS(37647)& - &*XX(5222)-JVS(37711)*XX(5223)-JVS(37770)*XX(5225)-JVS(37948)*XX(5228)-JVS(38751)*XX(5231)-JVS(38916)& - &*XX(5232)-JVS(39168)*XX(5233)-JVS(39316)*XX(5234)-JVS(39381)*XX(5235)-JVS(40418)*XX(5244)-JVS(45023)& - &*XX(5250)-JVS(46549)*XX(5251)-JVS(47901)*XX(5252)-JVS(50175)*XX(5253)-JVS(50304)*XX(5254)-JVS(53174)& - &*XX(5255)-JVS(54775)*XX(5256)-JVS(55237)*XX(5258) - XX(5216) = XX(5216)-JVS(45022)*XX(5250)-JVS(46548)*XX(5251)-JVS(47900)*XX(5252)-JVS(50174)*XX(5253)-JVS(53173)& - &*XX(5255)-JVS(54774)*XX(5256)-JVS(55236)*XX(5258) - XX(5215) = XX(5215)-JVS(37262)*XX(5216)-JVS(37947)*XX(5228)-JVS(38750)*XX(5231)-JVS(39167)*XX(5233)-JVS(39380)& - &*XX(5235)-JVS(39475)*XX(5237)-JVS(39661)*XX(5241)-JVS(39802)*XX(5243)-JVS(40417)*XX(5244)-JVS(45021)& - &*XX(5250)-JVS(46547)*XX(5251)-JVS(47899)*XX(5252)-JVS(50173)*XX(5253)-JVS(53172)*XX(5255)-JVS(54773)& - &*XX(5256)-JVS(55235)*XX(5258) - XX(5214) = XX(5214)-JVS(39166)*XX(5233)-JVS(39379)*XX(5235)-JVS(45020)*XX(5250)-JVS(46546)*XX(5251)-JVS(47898)& - &*XX(5252)-JVS(50172)*XX(5253)-JVS(53171)*XX(5255)-JVS(54772)*XX(5256)-JVS(55234)*XX(5258) - XX(5213) = XX(5213)-JVS(37183)*XX(5214)-JVS(37261)*XX(5216)-JVS(37646)*XX(5222)-JVS(37946)*XX(5228)-JVS(38749)& - &*XX(5231)-JVS(38915)*XX(5232)-JVS(39315)*XX(5234)-JVS(39378)*XX(5235)-JVS(39660)*XX(5241)-JVS(40416)& - &*XX(5244)-JVS(45019)*XX(5250)-JVS(46545)*XX(5251)-JVS(47897)*XX(5252)-JVS(50171)*XX(5253)-JVS(53170)& - &*XX(5255)-JVS(54771)*XX(5256)-JVS(55233)*XX(5258) - XX(5212) = XX(5212)-JVS(37645)*XX(5222)-JVS(37810)*XX(5226)-JVS(37945)*XX(5228)-JVS(38748)*XX(5231)-JVS(39659)& - &*XX(5241)-JVS(39751)*XX(5242)-JVS(40415)*XX(5244)-JVS(40493)*XX(5246)-JVS(45018)*XX(5250)-JVS(46544)& - &*XX(5251)-JVS(47896)*XX(5252)-JVS(50170)*XX(5253)-JVS(53169)*XX(5255)-JVS(54770)*XX(5256)-JVS(55232)& - &*XX(5258) - XX(5211) = XX(5211)-JVS(39750)*XX(5242)-JVS(40492)*XX(5246)-JVS(45017)*XX(5250)-JVS(46543)*XX(5251)-JVS(47895)& - &*XX(5252)-JVS(50169)*XX(5253)-JVS(53168)*XX(5255)-JVS(54769)*XX(5256)-JVS(55231)*XX(5258) - XX(5210) = XX(5210)-JVS(37260)*XX(5216)-JVS(37644)*XX(5222)-JVS(40414)*XX(5244)-JVS(45016)*XX(5250)-JVS(46542)& - &*XX(5251)-JVS(47894)*XX(5252)-JVS(50168)*XX(5253)-JVS(53167)*XX(5255)-JVS(54768)*XX(5256) - XX(5209) = XX(5209)-JVS(37021)*XX(5210)-JVS(37259)*XX(5216)-JVS(37643)*XX(5222)-JVS(37944)*XX(5228)-JVS(38747)& - &*XX(5231)-JVS(39165)*XX(5233)-JVS(40413)*XX(5244)-JVS(45015)*XX(5250)-JVS(46541)*XX(5251)-JVS(47893)& - &*XX(5252)-JVS(50167)*XX(5253)-JVS(50303)*XX(5254)-JVS(53166)*XX(5255)-JVS(54767)*XX(5256)-JVS(55230)& - &*XX(5258) - XX(5208) = XX(5208)-JVS(37943)*XX(5228)-JVS(38078)*XX(5230)-JVS(38746)*XX(5231)-JVS(39314)*XX(5234)-JVS(39377)& - &*XX(5235)-JVS(39474)*XX(5237)-JVS(39749)*XX(5242)-JVS(40412)*XX(5244)-JVS(45014)*XX(5250)-JVS(46540)& - &*XX(5251)-JVS(47892)*XX(5252)-JVS(50166)*XX(5253)-JVS(53165)*XX(5255)-JVS(54766)*XX(5256)-JVS(55229)& - &*XX(5258) - XX(5207) = XX(5207)-JVS(37182)*XX(5214)-JVS(37710)*XX(5223)-JVS(37942)*XX(5228)-JVS(38745)*XX(5231)-JVS(39313)& - &*XX(5234)-JVS(39376)*XX(5235)-JVS(39473)*XX(5237)-JVS(39553)*XX(5239)-JVS(39584)*XX(5240)-JVS(39658)& - &*XX(5241)-JVS(40411)*XX(5244)-JVS(45013)*XX(5250)-JVS(46539)*XX(5251)-JVS(47891)*XX(5252)-JVS(50165)& - &*XX(5253)-JVS(50302)*XX(5254)-JVS(53164)*XX(5255)-JVS(54765)*XX(5256)-JVS(55228)*XX(5258) - XX(5206) = XX(5206)-JVS(37065)*XX(5211)-JVS(37941)*XX(5228)-JVS(38744)*XX(5231)-JVS(38914)*XX(5232)-JVS(39312)& - &*XX(5234)-JVS(39472)*XX(5237)-JVS(39657)*XX(5241)-JVS(39748)*XX(5242)-JVS(40410)*XX(5244)-JVS(40461)& - &*XX(5245)-JVS(40491)*XX(5246)-JVS(40528)*XX(5247)-JVS(45012)*XX(5250)-JVS(46538)*XX(5251)-JVS(47890)& - &*XX(5252)-JVS(50164)*XX(5253)-JVS(53163)*XX(5255)-JVS(54764)*XX(5256)-JVS(55227)*XX(5258) - XX(5205) = XX(5205)-JVS(36952)*XX(5209)-JVS(37020)*XX(5210)-JVS(37258)*XX(5216)-JVS(37355)*XX(5221)-JVS(37642)& - &*XX(5222)-JVS(38743)*XX(5231)-JVS(39164)*XX(5233)-JVS(40409)*XX(5244)-JVS(45011)*XX(5250)-JVS(46537)& - &*XX(5251)-JVS(47889)*XX(5252)-JVS(50163)*XX(5253)-JVS(50301)*XX(5254)-JVS(53162)*XX(5255)-JVS(54763)& - &*XX(5256)-JVS(55226)*XX(5258) - XX(5204) = XX(5204)-JVS(36869)*XX(5205)-JVS(36951)*XX(5209)-JVS(37257)*XX(5216)-JVS(37322)*XX(5220)-JVS(37354)& - &*XX(5221)-JVS(37641)*XX(5222)-JVS(37739)*XX(5224)-JVS(37940)*XX(5228)-JVS(38742)*XX(5231)-JVS(38913)& - &*XX(5232)-JVS(39163)*XX(5233)-JVS(39311)*XX(5234)-JVS(39656)*XX(5241)-JVS(40408)*XX(5244)-JVS(45010)& - &*XX(5250)-JVS(46536)*XX(5251)-JVS(47888)*XX(5252)-JVS(50162)*XX(5253)-JVS(50300)*XX(5254)-JVS(53161)& - &*XX(5255)-JVS(54762)*XX(5256)-JVS(55225)*XX(5258) - XX(5203) = XX(5203)-JVS(37640)*XX(5222)-JVS(37939)*XX(5228)-JVS(38741)*XX(5231)-JVS(39375)*XX(5235)-JVS(39655)& - &*XX(5241)-JVS(39801)*XX(5243)-JVS(40407)*XX(5244)-JVS(45009)*XX(5250)-JVS(46535)*XX(5251)-JVS(47887)& - &*XX(5252)-JVS(50161)*XX(5253)-JVS(53160)*XX(5255)-JVS(54761)*XX(5256)-JVS(55224)*XX(5258) - XX(5202) = XX(5202)-JVS(37639)*XX(5222)-JVS(37938)*XX(5228)-JVS(38740)*XX(5231)-JVS(39374)*XX(5235)-JVS(40406)& - &*XX(5244)-JVS(45008)*XX(5250)-JVS(46534)*XX(5251)-JVS(47886)*XX(5252)-JVS(50160)*XX(5253)-JVS(53159)& - &*XX(5255)-JVS(54760)*XX(5256) - XX(5201) = XX(5201)-JVS(45007)*XX(5250)-JVS(50159)*XX(5253)-JVS(54759)*XX(5256) - XX(5200) = XX(5200)-JVS(36716)*XX(5201)-JVS(36790)*XX(5202)-JVS(37638)*XX(5222)-JVS(37709)*XX(5223)-JVS(37937)& - &*XX(5228)-JVS(38739)*XX(5231)-JVS(39373)*XX(5235)-JVS(39529)*XX(5238)-JVS(40405)*XX(5244)-JVS(45006)& - &*XX(5250)-JVS(46533)*XX(5251)-JVS(47885)*XX(5252)-JVS(50158)*XX(5253)-JVS(50299)*XX(5254)-JVS(53158)& - &*XX(5255)-JVS(54758)*XX(5256)-JVS(55223)*XX(5258) - XX(5199) = XX(5199)-JVS(36715)*XX(5201)-JVS(37256)*XX(5216)-JVS(40404)*XX(5244)-JVS(45005)*XX(5250)-JVS(46532)& - &*XX(5251)-JVS(53157)*XX(5255)-JVS(54757)*XX(5256) - XX(5198) = XX(5198)-JVS(36255)*XX(5199)-JVS(36714)*XX(5201)-JVS(37181)*XX(5214)-JVS(37936)*XX(5228)-JVS(38738)& - &*XX(5231)-JVS(38912)*XX(5232)-JVS(39372)*XX(5235)-JVS(39654)*XX(5241)-JVS(40403)*XX(5244)-JVS(45004)& - &*XX(5250)-JVS(46531)*XX(5251)-JVS(47884)*XX(5252)-JVS(50157)*XX(5253)-JVS(53156)*XX(5255)-JVS(54756)& - &*XX(5256) - XX(5197) = XX(5197)-JVS(36254)*XX(5199)-JVS(38737)*XX(5231)-JVS(38911)*XX(5232)-JVS(40402)*XX(5244)-JVS(45003)& - &*XX(5250)-JVS(46530)*XX(5251)-JVS(47883)*XX(5252)-JVS(50156)*XX(5253)-JVS(53155)*XX(5255)-JVS(54755)& - &*XX(5256) - XX(5196) = XX(5196)-JVS(36170)*XX(5197)-JVS(36253)*XX(5199)-JVS(36713)*XX(5201)-JVS(37064)*XX(5211)-JVS(37769)& - &*XX(5225)-JVS(38910)*XX(5232)-JVS(39310)*XX(5234)-JVS(39747)*XX(5242)-JVS(40401)*XX(5244)-JVS(40490)& - &*XX(5246)-JVS(45002)*XX(5250)-JVS(46529)*XX(5251)-JVS(47882)*XX(5252)-JVS(50155)*XX(5253)-JVS(53154)& - &*XX(5255)-JVS(54754)*XX(5256)-JVS(55222)*XX(5258) - XX(5195) = XX(5195)-JVS(38736)*XX(5231)-JVS(39309)*XX(5234)-JVS(45001)*XX(5250)-JVS(47881)*XX(5252)-JVS(50154)& - &*XX(5253)-JVS(53153)*XX(5255)-JVS(54753)*XX(5256) - XX(5194) = XX(5194)-JVS(36089)*XX(5195)-JVS(36712)*XX(5201)-JVS(37708)*XX(5223)-JVS(38735)*XX(5231)-JVS(38909)& - &*XX(5232)-JVS(39162)*XX(5233)-JVS(39308)*XX(5234)-JVS(45000)*XX(5250)-JVS(46528)*XX(5251)-JVS(47880)& - &*XX(5252)-JVS(50153)*XX(5253)-JVS(50298)*XX(5254)-JVS(53152)*XX(5255)-JVS(54752)*XX(5256)-JVS(55221)& - &*XX(5258) - XX(5193) = XX(5193)-JVS(36711)*XX(5201)-JVS(37935)*XX(5228)-JVS(39371)*XX(5235)-JVS(40400)*XX(5244)-JVS(44999)& - &*XX(5250)-JVS(46527)*XX(5251)-JVS(53151)*XX(5255)-JVS(54751)*XX(5256) - XX(5192) = XX(5192)-JVS(35994)*XX(5193)-JVS(36088)*XX(5195)-JVS(36710)*XX(5201)-JVS(36789)*XX(5202)-JVS(37063)& - &*XX(5211)-JVS(37637)*XX(5222)-JVS(37934)*XX(5228)-JVS(38006)*XX(5229)-JVS(38734)*XX(5231)-JVS(38908)& - &*XX(5232)-JVS(39471)*XX(5237)-JVS(39653)*XX(5241)-JVS(39746)*XX(5242)-JVS(40399)*XX(5244)-JVS(44998)& - &*XX(5250)-JVS(46526)*XX(5251)-JVS(47879)*XX(5252)-JVS(50152)*XX(5253)-JVS(53150)*XX(5255)-JVS(54750)& - &*XX(5256)-JVS(55220)*XX(5258) - XX(5191) = XX(5191)-JVS(35993)*XX(5193)-JVS(36087)*XX(5195)-JVS(36709)*XX(5201)-JVS(44997)*XX(5250)-JVS(46525)& - &*XX(5251)-JVS(47878)*XX(5252)-JVS(50151)*XX(5253)-JVS(53149)*XX(5255)-JVS(54749)*XX(5256)-JVS(55219)& - &*XX(5258) - XX(5190) = XX(5190)-JVS(35691)*XX(5191)-JVS(35992)*XX(5193)-JVS(36708)*XX(5201)-JVS(36788)*XX(5202)-JVS(37636)& - &*XX(5222)-JVS(37707)*XX(5223)-JVS(37933)*XX(5228)-JVS(38005)*XX(5229)-JVS(38077)*XX(5230)-JVS(38733)& - &*XX(5231)-JVS(38907)*XX(5232)-JVS(39528)*XX(5238)-JVS(39652)*XX(5241)-JVS(40398)*XX(5244)-JVS(44996)& - &*XX(5250)-JVS(46524)*XX(5251)-JVS(47877)*XX(5252)-JVS(50150)*XX(5253)-JVS(50297)*XX(5254)-JVS(53148)& - &*XX(5255)-JVS(54748)*XX(5256)-JVS(55218)*XX(5258) - XX(5189) = XX(5189)-JVS(36252)*XX(5199)-JVS(36707)*XX(5201)-JVS(37635)*XX(5222)-JVS(37706)*XX(5223)-JVS(37738)& - &*XX(5224)-JVS(37768)*XX(5225)-JVS(38732)*XX(5231)-JVS(38906)*XX(5232)-JVS(39307)*XX(5234)-JVS(40397)& - &*XX(5244)-JVS(44995)*XX(5250)-JVS(46523)*XX(5251)-JVS(47876)*XX(5252)-JVS(50149)*XX(5253)-JVS(53147)& - &*XX(5255)-JVS(54747)*XX(5256)-JVS(55217)*XX(5258) - XX(5188) = XX(5188)-JVS(37634)*XX(5222)-JVS(38731)*XX(5231)-JVS(40396)*XX(5244)-JVS(44994)*XX(5250)-JVS(53146)& - &*XX(5255) - XX(5187) = XX(5187)-JVS(35542)*XX(5188)-JVS(36086)*XX(5195)-JVS(36169)*XX(5197)-JVS(36251)*XX(5199)-JVS(36706)& - &*XX(5201)-JVS(37180)*XX(5214)-JVS(37705)*XX(5223)-JVS(37809)*XX(5226)-JVS(37932)*XX(5228)-JVS(38730)& - &*XX(5231)-JVS(39470)*XX(5237)-JVS(39651)*XX(5241)-JVS(40395)*XX(5244)-JVS(44993)*XX(5250)-JVS(46522)& - &*XX(5251)-JVS(47875)*XX(5252)-JVS(50148)*XX(5253)-JVS(53145)*XX(5255)-JVS(54746)*XX(5256)-JVS(55216)& - &*XX(5258) - XX(5186) = XX(5186)-JVS(35690)*XX(5191)-JVS(35991)*XX(5193)-JVS(36085)*XX(5195)-JVS(36168)*XX(5197)-JVS(36250)& - &*XX(5199)-JVS(36705)*XX(5201)-JVS(36787)*XX(5202)-JVS(37179)*XX(5214)-JVS(37633)*XX(5222)-JVS(37931)& - &*XX(5228)-JVS(38004)*XX(5229)-JVS(38729)*XX(5231)-JVS(38905)*XX(5232)-JVS(39370)*XX(5235)-JVS(39469)& - &*XX(5237)-JVS(39650)*XX(5241)-JVS(40394)*XX(5244)-JVS(44992)*XX(5250)-JVS(46521)*XX(5251)-JVS(47874)& - &*XX(5252)-JVS(50147)*XX(5253)-JVS(53144)*XX(5255)-JVS(54745)*XX(5256)-JVS(55215)*XX(5258) - XX(5185) = XX(5185)-JVS(35689)*XX(5191)-JVS(35990)*XX(5193)-JVS(36084)*XX(5195)-JVS(36167)*XX(5197)-JVS(36249)& - &*XX(5199)-JVS(36704)*XX(5201)-JVS(37178)*XX(5214)-JVS(38728)*XX(5231)-JVS(39468)*XX(5237)-JVS(40393)& - &*XX(5244)-JVS(44991)*XX(5250)-JVS(46520)*XX(5251)-JVS(47873)*XX(5252)-JVS(50146)*XX(5253)-JVS(53143)& - &*XX(5255)-JVS(54744)*XX(5256)-JVS(55214)*XX(5258) - XX(5184) = XX(5184)-JVS(36083)*XX(5195)-JVS(36703)*XX(5201)-JVS(39467)*XX(5237)-JVS(44990)*XX(5250)-JVS(46519)& - &*XX(5251)-JVS(53142)*XX(5255)-JVS(54743)*XX(5256) - XX(5183) = XX(5183)-JVS(35989)*XX(5193)-JVS(36082)*XX(5195)-JVS(44989)*XX(5250)-JVS(46518)*XX(5251)-JVS(47872)& - &*XX(5252)-JVS(50145)*XX(5253)-JVS(53141)*XX(5255)-JVS(54742)*XX(5256)-JVS(55213)*XX(5258) - XX(5182) = XX(5182)-JVS(36702)*XX(5201)-JVS(37177)*XX(5214)-JVS(39369)*XX(5235)-JVS(44988)*XX(5250)-JVS(46517)& - &*XX(5251)-JVS(53140)*XX(5255)-JVS(54741)*XX(5256) - XX(5181) = XX(5181)-JVS(35127)*XX(5182)-JVS(35399)*XX(5184)-JVS(35589)*XX(5190)-JVS(36036)*XX(5194)-JVS(36081)& - &*XX(5195)-JVS(36286)*XX(5200)-JVS(36701)*XX(5201)-JVS(37062)*XX(5211)-JVS(37176)*XX(5214)-JVS(37255)& - &*XX(5216)-JVS(37632)*XX(5222)-JVS(37704)*XX(5223)-JVS(38727)*XX(5231)-JVS(38904)*XX(5232)-JVS(39161)& - &*XX(5233)-JVS(39306)*XX(5234)-JVS(39368)*XX(5235)-JVS(44987)*XX(5250)-JVS(46516)*XX(5251)-JVS(47871)& - &*XX(5252)-JVS(50144)*XX(5253)-JVS(50296)*XX(5254)-JVS(53139)*XX(5255)-JVS(54740)*XX(5256)-JVS(55212)& - &*XX(5258) - XX(5180) = XX(5180)-JVS(36700)*XX(5201)-JVS(38726)*XX(5231)-JVS(44986)*XX(5250)-JVS(46515)*XX(5251)-JVS(47870)& - &*XX(5252)-JVS(50143)*XX(5253)-JVS(53138)*XX(5255)-JVS(54739)*XX(5256)-JVS(55211)*XX(5258) - XX(5179) = XX(5179)-JVS(39745)*XX(5242)-JVS(40489)*XX(5246)-JVS(44985)*XX(5250)-JVS(46514)*XX(5251)-JVS(47869)& - &*XX(5252)-JVS(50142)*XX(5253)-JVS(53137)*XX(5255)-JVS(54738)*XX(5256)-JVS(55210)*XX(5258) - XX(5178) = XX(5178)-JVS(35343)*XX(5183)-JVS(35988)*XX(5193)-JVS(36080)*XX(5195)-JVS(36166)*XX(5197)-JVS(36699)& - &*XX(5201)-JVS(38725)*XX(5231)-JVS(40392)*XX(5244)-JVS(40488)*XX(5246)-JVS(44984)*XX(5250)-JVS(46513)& - &*XX(5251)-JVS(47868)*XX(5252)-JVS(50141)*XX(5253)-JVS(53136)*XX(5255)-JVS(54737)*XX(5256) - XX(5177) = XX(5177)-JVS(36248)*XX(5199)-JVS(36698)*XX(5201)-JVS(37767)*XX(5225)-JVS(38903)*XX(5232)-JVS(39305)& - &*XX(5234)-JVS(40391)*XX(5244)-JVS(44983)*XX(5250)-JVS(46512)*XX(5251)-JVS(47867)*XX(5252)-JVS(50140)& - &*XX(5253)-JVS(53135)*XX(5255)-JVS(54736)*XX(5256)-JVS(55209)*XX(5258) - XX(5176) = XX(5176)-JVS(34993)*XX(5179)-JVS(36116)*XX(5196)-JVS(36697)*XX(5201)-JVS(37061)*XX(5211)-JVS(38724)& - &*XX(5231)-JVS(39744)*XX(5242)-JVS(40390)*XX(5244)-JVS(44982)*XX(5250)-JVS(46511)*XX(5251)-JVS(47866)& - &*XX(5252)-JVS(50139)*XX(5253)-JVS(53134)*XX(5255)-JVS(54735)*XX(5256)-JVS(55208)*XX(5258) - XX(5175) = XX(5175)-JVS(34873)*XX(5176)-JVS(34900)*XX(5177)-JVS(34992)*XX(5179)-JVS(35126)*XX(5182)-JVS(35398)& - &*XX(5184)-JVS(35579)*XX(5189)-JVS(36115)*XX(5196)-JVS(36165)*XX(5197)-JVS(36247)*XX(5199)-JVS(36696)& - &*XX(5201)-JVS(37060)*XX(5211)-JVS(37175)*XX(5214)-JVS(38723)*XX(5231)-JVS(39466)*XX(5237)-JVS(39743)& - &*XX(5242)-JVS(40389)*XX(5244)-JVS(44981)*XX(5250)-JVS(46510)*XX(5251)-JVS(47865)*XX(5252)-JVS(50138)& - &*XX(5253)-JVS(50295)*XX(5254)-JVS(53133)*XX(5255)-JVS(54734)*XX(5256)-JVS(55207)*XX(5258) - XX(5174) = XX(5174)-JVS(36246)*XX(5199)-JVS(37019)*XX(5210)-JVS(37254)*XX(5216)-JVS(37353)*XX(5221)-JVS(37631)& - &*XX(5222)-JVS(38722)*XX(5231)-JVS(38902)*XX(5232)-JVS(39160)*XX(5233)-JVS(39304)*XX(5234)-JVS(40388)& - &*XX(5244)-JVS(44980)*XX(5250)-JVS(46509)*XX(5251)-JVS(47864)*XX(5252)-JVS(50137)*XX(5253)-JVS(53132)& - &*XX(5255)-JVS(54733)*XX(5256)-JVS(55206)*XX(5258) - XX(5173) = XX(5173)-JVS(35034)*XX(5180)-JVS(35541)*XX(5188)-JVS(36245)*XX(5199)-JVS(37018)*XX(5210)-JVS(37253)& - &*XX(5216)-JVS(37352)*XX(5221)-JVS(37630)*XX(5222)-JVS(38721)*XX(5231)-JVS(39159)*XX(5233)-JVS(40387)& - &*XX(5244)-JVS(44979)*XX(5250)-JVS(46508)*XX(5251)-JVS(47863)*XX(5252)-JVS(50136)*XX(5253)-JVS(53131)& - &*XX(5255)-JVS(54732)*XX(5256)-JVS(55205)*XX(5258) - XX(5172) = XX(5172)-JVS(38720)*XX(5231)-JVS(40386)*XX(5244)-JVS(44978)*XX(5250)-JVS(46507)*XX(5251)-JVS(47862)& - &*XX(5252)-JVS(50135)*XX(5253)-JVS(53130)*XX(5255)-JVS(54731)*XX(5256) - XX(5171) = XX(5171)-JVS(36164)*XX(5197)-JVS(36244)*XX(5199)-JVS(44977)*XX(5250)-JVS(46506)*XX(5251)-JVS(47861)& - &*XX(5252)-JVS(50134)*XX(5253)-JVS(53129)*XX(5255)-JVS(54730)*XX(5256) - XX(5170) = XX(5170)-JVS(39158)*XX(5233)-JVS(44976)*XX(5250)-JVS(46505)*XX(5251)-JVS(47860)*XX(5252)-JVS(50133)& - &*XX(5253)-JVS(50294)*XX(5254)-JVS(53128)*XX(5255)-JVS(54729)*XX(5256) - XX(5169) = XX(5169)-JVS(34872)*XX(5176)-JVS(34991)*XX(5179)-JVS(36695)*XX(5201)-JVS(37087)*XX(5212)-JVS(37703)& - &*XX(5223)-JVS(38719)*XX(5231)-JVS(39408)*XX(5236)-JVS(40385)*XX(5244)-JVS(44975)*XX(5250)-JVS(46504)& - &*XX(5251)-JVS(47859)*XX(5252)-JVS(50132)*XX(5253)-JVS(53127)*XX(5255)-JVS(54728)*XX(5256)-JVS(55204)& - &*XX(5258) - XX(5168) = XX(5168)-JVS(35540)*XX(5188)-JVS(37252)*XX(5216)-JVS(37321)*XX(5220)-JVS(37629)*XX(5222)-JVS(38718)& - &*XX(5231)-JVS(38901)*XX(5232)-JVS(39157)*XX(5233)-JVS(39303)*XX(5234)-JVS(40384)*XX(5244)-JVS(44974)& - &*XX(5250)-JVS(46503)*XX(5251)-JVS(47858)*XX(5252)-JVS(50131)*XX(5253)-JVS(50293)*XX(5254)-JVS(53126)& - &*XX(5255)-JVS(54727)*XX(5256)-JVS(55203)*XX(5258) - XX(5167) = XX(5167)-JVS(34804)*XX(5172)-JVS(37251)*XX(5216)-JVS(37351)*XX(5221)-JVS(37628)*XX(5222)-JVS(38717)& - &*XX(5231)-JVS(40383)*XX(5244)-JVS(44973)*XX(5250)-JVS(46502)*XX(5251)-JVS(47857)*XX(5252)-JVS(50130)& - &*XX(5253)-JVS(53125)*XX(5255)-JVS(54726)*XX(5256)-JVS(55202)*XX(5258) - XX(5166) = XX(5166)-JVS(34675)*XX(5167)-JVS(34688)*XX(5168)-JVS(34736)*XX(5170)-JVS(34825)*XX(5173)-JVS(35539)& - &*XX(5188)-JVS(36035)*XX(5194)-JVS(36243)*XX(5199)-JVS(36285)*XX(5200)-JVS(36694)*XX(5201)-JVS(36856)& - &*XX(5204)-JVS(36868)*XX(5205)-JVS(36950)*XX(5209)-JVS(37017)*XX(5210)-JVS(37284)*XX(5217)-JVS(37294)& - &*XX(5218)-JVS(37306)*XX(5219)-JVS(37320)*XX(5220)-JVS(37350)*XX(5221)-JVS(37627)*XX(5222)-JVS(37702)& - &*XX(5223)-JVS(37737)*XX(5224)-JVS(37808)*XX(5226)-JVS(37825)*XX(5227)-JVS(37930)*XX(5228)-JVS(38716)& - &*XX(5231)-JVS(38900)*XX(5232)-JVS(39156)*XX(5233)-JVS(39302)*XX(5234)-JVS(39367)*XX(5235)-JVS(39649)& - &*XX(5241)-JVS(39742)*XX(5242)-JVS(40382)*XX(5244)-JVS(44972)*XX(5250)-JVS(46501)*XX(5251)-JVS(47856)& - &*XX(5252)-JVS(50129)*XX(5253)-JVS(50292)*XX(5254)-JVS(53124)*XX(5255)-JVS(54725)*XX(5256)-JVS(55201)& - &*XX(5258) - XX(5165) = XX(5165)-JVS(35342)*XX(5183)-JVS(35688)*XX(5191)-JVS(36693)*XX(5201)-JVS(36928)*XX(5208)-JVS(38076)& - &*XX(5230)-JVS(38715)*XX(5231)-JVS(44971)*XX(5250)-JVS(46500)*XX(5251)-JVS(47855)*XX(5252)-JVS(50128)& - &*XX(5253)-JVS(53123)*XX(5255)-JVS(54724)*XX(5256)-JVS(55200)*XX(5258) - XX(5164) = XX(5164)-JVS(35987)*XX(5193)-JVS(36692)*XX(5201)-JVS(36786)*XX(5202)-JVS(44970)*XX(5250)-JVS(46499)& - &*XX(5251)-JVS(47854)*XX(5252)-JVS(50127)*XX(5253)-JVS(53122)*XX(5255)-JVS(54723)*XX(5256)-JVS(55199)& - &*XX(5258) - XX(5163) = XX(5163)-JVS(34607)*XX(5164)-JVS(34652)*XX(5165)-JVS(35397)*XX(5184)-JVS(36079)*XX(5195)-JVS(36691)& - &*XX(5201)-JVS(36785)*XX(5202)-JVS(37059)*XX(5211)-JVS(37626)*XX(5222)-JVS(38714)*XX(5231)-JVS(38899)& - &*XX(5232)-JVS(39648)*XX(5241)-JVS(39741)*XX(5242)-JVS(40381)*XX(5244)-JVS(44969)*XX(5250)-JVS(46498)& - &*XX(5251)-JVS(47853)*XX(5252)-JVS(50126)*XX(5253)-JVS(53121)*XX(5255)-JVS(54722)*XX(5256)-JVS(55198)& - &*XX(5258) - XX(5162) = XX(5162)-JVS(34582)*XX(5163)-JVS(34651)*XX(5165)-JVS(35341)*XX(5183)-JVS(35687)*XX(5191)-JVS(35986)& - &*XX(5193)-JVS(36078)*XX(5195)-JVS(36242)*XX(5199)-JVS(36690)*XX(5201)-JVS(37701)*XX(5223)-JVS(38713)& - &*XX(5231)-JVS(39527)*XX(5238)-JVS(40380)*XX(5244)-JVS(44968)*XX(5250)-JVS(46497)*XX(5251)-JVS(47852)& - &*XX(5252)-JVS(50125)*XX(5253)-JVS(50291)*XX(5254)-JVS(53120)*XX(5255)-JVS(54721)*XX(5256)-JVS(55197)& - &*XX(5258) - XX(5161) = XX(5161)-JVS(34770)*XX(5171)-JVS(35340)*XX(5183)-JVS(35985)*XX(5193)-JVS(36077)*XX(5195)-JVS(36163)& - &*XX(5197)-JVS(36689)*XX(5201)-JVS(37174)*XX(5214)-JVS(38712)*XX(5231)-JVS(39465)*XX(5237)-JVS(40379)& - &*XX(5244)-JVS(44967)*XX(5250)-JVS(46496)*XX(5251)-JVS(47851)*XX(5252)-JVS(50124)*XX(5253)-JVS(53119)& - &*XX(5255)-JVS(54720)*XX(5256)-JVS(55196)*XX(5258) - XX(5160) = XX(5160)-JVS(37929)*XX(5228)-JVS(39647)*XX(5241)-JVS(40378)*XX(5244)-JVS(44966)*XX(5250) - XX(5159) = XX(5159)-JVS(34769)*XX(5171)-JVS(36162)*XX(5197)-JVS(36241)*XX(5199)-JVS(36688)*XX(5201)-JVS(37016)& - &*XX(5210)-JVS(37173)*XX(5214)-JVS(37250)*XX(5216)-JVS(37625)*XX(5222)-JVS(38711)*XX(5231)-JVS(38898)& - &*XX(5232)-JVS(39301)*XX(5234)-JVS(40377)*XX(5244)-JVS(44965)*XX(5250)-JVS(46495)*XX(5251)-JVS(47850)& - &*XX(5252)-JVS(50123)*XX(5253)-JVS(53118)*XX(5255)-JVS(54719)*XX(5256)-JVS(55195)*XX(5258) - XX(5158) = XX(5158)-JVS(37624)*XX(5222)-JVS(39646)*XX(5241)-JVS(44964)*XX(5250)-JVS(46494)*XX(5251)-JVS(47849)& - &*XX(5252)-JVS(50122)*XX(5253)-JVS(53117)*XX(5255)-JVS(54718)*XX(5256) - XX(5157) = XX(5157)-JVS(34237)*XX(5158)-JVS(35339)*XX(5183)-JVS(35984)*XX(5193)-JVS(36687)*XX(5201)-JVS(37623)& - &*XX(5222)-JVS(38710)*XX(5231)-JVS(39645)*XX(5241)-JVS(40376)*XX(5244)-JVS(44963)*XX(5250)-JVS(46493)& - &*XX(5251)-JVS(47848)*XX(5252)-JVS(50121)*XX(5253)-JVS(53116)*XX(5255)-JVS(54717)*XX(5256) - XX(5156) = XX(5156)-JVS(37622)*XX(5222)-JVS(44962)*XX(5250)-JVS(46492)*XX(5251)-JVS(47847)*XX(5252)-JVS(50120)& - &*XX(5253)-JVS(50290)*XX(5254)-JVS(53115)*XX(5255)-JVS(54716)*XX(5256) - XX(5155) = XX(5155)-JVS(34803)*XX(5172)-JVS(35538)*XX(5188)-JVS(37621)*XX(5222)-JVS(38709)*XX(5231)-JVS(40375)& - &*XX(5244)-JVS(44961)*XX(5250)-JVS(46491)*XX(5251)-JVS(47846)*XX(5252)-JVS(50119)*XX(5253)-JVS(53114)& - &*XX(5255)-JVS(54715)*XX(5256)-JVS(55194)*XX(5258) - XX(5154) = XX(5154)-JVS(34143)*XX(5155)-JVS(34674)*XX(5167)-JVS(34802)*XX(5172)-JVS(35033)*XX(5180)-JVS(35537)& - &*XX(5188)-JVS(36240)*XX(5199)-JVS(37015)*XX(5210)-JVS(37249)*XX(5216)-JVS(37349)*XX(5221)-JVS(37620)& - &*XX(5222)-JVS(38708)*XX(5231)-JVS(38897)*XX(5232)-JVS(39155)*XX(5233)-JVS(39300)*XX(5234)-JVS(40374)& - &*XX(5244)-JVS(44960)*XX(5250)-JVS(46490)*XX(5251)-JVS(47845)*XX(5252)-JVS(50118)*XX(5253)-JVS(53113)& - &*XX(5255)-JVS(54714)*XX(5256)-JVS(55193)*XX(5258) - XX(5153) = XX(5153)-JVS(34735)*XX(5170)-JVS(35032)*XX(5180)-JVS(36034)*XX(5194)-JVS(36076)*XX(5195)-JVS(36686)& - &*XX(5201)-JVS(37700)*XX(5223)-JVS(38707)*XX(5231)-JVS(38896)*XX(5232)-JVS(39154)*XX(5233)-JVS(39299)& - &*XX(5234)-JVS(44959)*XX(5250)-JVS(46489)*XX(5251)-JVS(47844)*XX(5252)-JVS(50117)*XX(5253)-JVS(50289)& - &*XX(5254)-JVS(53112)*XX(5255)-JVS(54713)*XX(5256)-JVS(55192)*XX(5258) - XX(5152) = XX(5152)-JVS(38706)*XX(5231)-JVS(44958)*XX(5250)-JVS(46488)*XX(5251)-JVS(47843)*XX(5252)-JVS(50116)& - &*XX(5253)-JVS(53111)*XX(5255)-JVS(54712)*XX(5256)-JVS(55191)*XX(5258) - XX(5151) = XX(5151)-JVS(34236)*XX(5158)-JVS(34486)*XX(5160)-JVS(34606)*XX(5164)-JVS(36685)*XX(5201)-JVS(36784)& - &*XX(5202)-JVS(37619)*XX(5222)-JVS(38705)*XX(5231)-JVS(38895)*XX(5232)-JVS(39644)*XX(5241)-JVS(40373)& - &*XX(5244)-JVS(44957)*XX(5250)-JVS(46487)*XX(5251)-JVS(47842)*XX(5252)-JVS(50115)*XX(5253)-JVS(53110)& - &*XX(5255)-JVS(54711)*XX(5256) - XX(5150) = XX(5150)-JVS(34605)*XX(5164)-JVS(35396)*XX(5184)-JVS(36075)*XX(5195)-JVS(36684)*XX(5201)-JVS(36783)& - &*XX(5202)-JVS(38704)*XX(5231)-JVS(39740)*XX(5242)-JVS(40372)*XX(5244)-JVS(44956)*XX(5250)-JVS(46486)& - &*XX(5251)-JVS(47841)*XX(5252)-JVS(50114)*XX(5253)-JVS(53109)*XX(5255)-JVS(54710)*XX(5256) - XX(5149) = XX(5149)-JVS(35338)*XX(5183)-JVS(35686)*XX(5191)-JVS(36683)*XX(5201)-JVS(38703)*XX(5231)-JVS(44955)& - &*XX(5250)-JVS(46485)*XX(5251)-JVS(47840)*XX(5252)-JVS(50113)*XX(5253)-JVS(53108)*XX(5255)-JVS(54709)& - &*XX(5256) - XX(5148) = XX(5148)-JVS(34235)*XX(5158)-JVS(34485)*XX(5160)-JVS(35395)*XX(5184)-JVS(36074)*XX(5195)-JVS(36682)& - &*XX(5201)-JVS(37058)*XX(5211)-JVS(38702)*XX(5231)-JVS(38894)*XX(5232)-JVS(39643)*XX(5241)-JVS(39739)& - &*XX(5242)-JVS(39800)*XX(5243)-JVS(40371)*XX(5244)-JVS(44954)*XX(5250)-JVS(46484)*XX(5251)-JVS(47839)& - &*XX(5252)-JVS(50112)*XX(5253)-JVS(53107)*XX(5255)-JVS(54708)*XX(5256) - XX(5147) = XX(5147)-JVS(34954)*XX(5178)-JVS(35337)*XX(5183)-JVS(35536)*XX(5188)-JVS(35983)*XX(5193)-JVS(36073)& - &*XX(5195)-JVS(36161)*XX(5197)-JVS(36284)*XX(5200)-JVS(36681)*XX(5201)-JVS(38701)*XX(5231)-JVS(39738)& - &*XX(5242)-JVS(40370)*XX(5244)-JVS(44953)*XX(5250)-JVS(46483)*XX(5251)-JVS(47838)*XX(5252)-JVS(50111)& - &*XX(5253)-JVS(53106)*XX(5255)-JVS(54707)*XX(5256)-JVS(55190)*XX(5258) - XX(5146) = XX(5146)-JVS(33976)*XX(5147)-JVS(33996)*XX(5148)-JVS(34234)*XX(5158)-JVS(34484)*XX(5160)-JVS(34604)& - &*XX(5164)-JVS(36680)*XX(5201)-JVS(36782)*XX(5202)-JVS(36844)*XX(5203)-JVS(37618)*XX(5222)-JVS(38700)& - &*XX(5231)-JVS(38893)*XX(5232)-JVS(39642)*XX(5241)-JVS(39737)*XX(5242)-JVS(39799)*XX(5243)-JVS(40369)& - &*XX(5244)-JVS(44952)*XX(5250)-JVS(46482)*XX(5251)-JVS(47837)*XX(5252)-JVS(50110)*XX(5253)-JVS(53105)& - &*XX(5255)-JVS(54706)*XX(5256)-JVS(55189)*XX(5258) - XX(5145) = XX(5145)-JVS(34483)*XX(5160)-JVS(36781)*XX(5202)-JVS(44951)*XX(5250)-JVS(47836)*XX(5252)-JVS(50109)& - &*XX(5253)-JVS(53104)*XX(5255)-JVS(54705)*XX(5256) - XX(5144) = XX(5144)-JVS(33943)*XX(5145)-JVS(34233)*XX(5158)-JVS(34542)*XX(5161)-JVS(34581)*XX(5163)-JVS(35336)& - &*XX(5183)-JVS(35430)*XX(5185)-JVS(35685)*XX(5191)-JVS(35982)*XX(5193)-JVS(36679)*XX(5201)-JVS(38003)& - &*XX(5229)-JVS(38075)*XX(5230)-JVS(38699)*XX(5231)-JVS(38892)*XX(5232)-JVS(39641)*XX(5241)-JVS(44950)& - &*XX(5250)-JVS(46481)*XX(5251)-JVS(47835)*XX(5252)-JVS(50108)*XX(5253)-JVS(53103)*XX(5255)-JVS(54704)& - &*XX(5256)-JVS(55188)*XX(5258) - XX(5143) = XX(5143)-JVS(35335)*XX(5183)-JVS(36678)*XX(5201)-JVS(38698)*XX(5231)-JVS(44949)*XX(5250)-JVS(46480)& - &*XX(5251)-JVS(47834)*XX(5252)-JVS(50107)*XX(5253)-JVS(53102)*XX(5255)-JVS(54703)*XX(5256)-JVS(55187)& - &*XX(5258) - XX(5142) = XX(5142)-JVS(35981)*XX(5193)-JVS(36072)*XX(5195)-JVS(44948)*XX(5250)-JVS(47833)*XX(5252)-JVS(50106)& - &*XX(5253)-JVS(53101)*XX(5255)-JVS(54702)*XX(5256) - XX(5141) = XX(5141)-JVS(33814)*XX(5142)-JVS(34161)*XX(5156)-JVS(35334)*XX(5183)-JVS(35684)*XX(5191)-JVS(35980)& - &*XX(5193)-JVS(36677)*XX(5201)-JVS(37248)*XX(5216)-JVS(37617)*XX(5222)-JVS(38697)*XX(5231)-JVS(40368)& - &*XX(5244)-JVS(44947)*XX(5250)-JVS(46479)*XX(5251)-JVS(47832)*XX(5252)-JVS(50105)*XX(5253)-JVS(50288)& - &*XX(5254)-JVS(53100)*XX(5255)-JVS(54701)*XX(5256)-JVS(55186)*XX(5258) - XX(5140) = XX(5140)-JVS(33813)*XX(5142)-JVS(33885)*XX(5143)-JVS(34541)*XX(5161)-JVS(35333)*XX(5183)-JVS(35394)& - &*XX(5184)-JVS(36676)*XX(5201)-JVS(38696)*XX(5231)-JVS(38891)*XX(5232)-JVS(44946)*XX(5250)-JVS(46478)& - &*XX(5251)-JVS(47831)*XX(5252)-JVS(50104)*XX(5253)-JVS(53099)*XX(5255)-JVS(54700)*XX(5256)-JVS(55185)& - &*XX(5258) - XX(5139) = XX(5139)-JVS(35332)*XX(5183)-JVS(36675)*XX(5201)-JVS(44945)*XX(5250)-JVS(46477)*XX(5251)-JVS(53098)& - &*XX(5255)-JVS(54699)*XX(5256) - XX(5138) = XX(5138)-JVS(33697)*XX(5139)-JVS(33728)*XX(5140)-JVS(33884)*XX(5143)-JVS(33900)*XX(5144)-JVS(34016)& - &*XX(5149)-JVS(34540)*XX(5161)-JVS(34567)*XX(5162)-JVS(34580)*XX(5163)-JVS(34650)*XX(5165)-JVS(35331)& - &*XX(5183)-JVS(35429)*XX(5185)-JVS(35683)*XX(5191)-JVS(35979)*XX(5193)-JVS(36674)*XX(5201)-JVS(38695)& - &*XX(5231)-JVS(44944)*XX(5250)-JVS(46476)*XX(5251)-JVS(47830)*XX(5252)-JVS(50103)*XX(5253)-JVS(53097)& - &*XX(5255)-JVS(54698)*XX(5256)-JVS(55184)*XX(5258) - XX(5137) = XX(5137)-JVS(33696)*XX(5139)-JVS(35330)*XX(5183)-JVS(38694)*XX(5231)-JVS(44943)*XX(5250)-JVS(46475)& - &*XX(5251)-JVS(47829)*XX(5252)-JVS(50102)*XX(5253)-JVS(53096)*XX(5255)-JVS(54697)*XX(5256)-JVS(55183)& - &*XX(5258) - XX(5136) = XX(5136)-JVS(34015)*XX(5149)-JVS(35682)*XX(5191)-JVS(36673)*XX(5201)-JVS(38693)*XX(5231)-JVS(44942)& - &*XX(5250)-JVS(46474)*XX(5251)-JVS(47828)*XX(5252)-JVS(50101)*XX(5253)-JVS(53095)*XX(5255)-JVS(54696)& - &*XX(5256) - XX(5135) = XX(5135)-JVS(33511)*XX(5136)-JVS(33561)*XX(5137)-JVS(33695)*XX(5139)-JVS(34014)*XX(5149)-JVS(34649)& - &*XX(5165)-JVS(35329)*XX(5183)-JVS(36672)*XX(5201)-JVS(36927)*XX(5208)-JVS(38692)*XX(5231)-JVS(38890)& - &*XX(5232)-JVS(44941)*XX(5250)-JVS(46473)*XX(5251)-JVS(47827)*XX(5252)-JVS(50100)*XX(5253)-JVS(53094)& - &*XX(5255)-JVS(54695)*XX(5256) - XX(5134) = XX(5134)-JVS(35535)*XX(5188)-JVS(36239)*XX(5199)-JVS(37616)*XX(5222)-JVS(38889)*XX(5232)-JVS(40367)& - &*XX(5244)-JVS(44940)*XX(5250)-JVS(46472)*XX(5251)-JVS(47826)*XX(5252)-JVS(50099)*XX(5253)-JVS(53093)& - &*XX(5255)-JVS(54694)*XX(5256) - XX(5133) = XX(5133)-JVS(34801)*XX(5172)-JVS(37615)*XX(5222)-JVS(38691)*XX(5231)-JVS(40366)*XX(5244)-JVS(44939)& - &*XX(5250)-JVS(46471)*XX(5251)-JVS(47825)*XX(5252)-JVS(50098)*XX(5253)-JVS(53092)*XX(5255)-JVS(54693)& - &*XX(5256)-JVS(55182)*XX(5258) - XX(5132) = XX(5132)-JVS(33469)*XX(5134)-JVS(34102)*XX(5152)-JVS(34673)*XX(5167)-JVS(34824)*XX(5173)-JVS(35534)& - &*XX(5188)-JVS(36238)*XX(5199)-JVS(37014)*XX(5210)-JVS(37614)*XX(5222)-JVS(37699)*XX(5223)-JVS(37807)& - &*XX(5226)-JVS(38690)*XX(5231)-JVS(38888)*XX(5232)-JVS(39153)*XX(5233)-JVS(40365)*XX(5244)-JVS(44938)& - &*XX(5250)-JVS(46470)*XX(5251)-JVS(47824)*XX(5252)-JVS(50097)*XX(5253)-JVS(50287)*XX(5254)-JVS(53091)& - &*XX(5255)-JVS(54692)*XX(5256)-JVS(55181)*XX(5258) - XX(5131) = XX(5131)-JVS(37057)*XX(5211)-JVS(39552)*XX(5239)-JVS(40460)*XX(5245)-JVS(44937)*XX(5250)-JVS(46469)& - &*XX(5251)-JVS(47823)*XX(5252)-JVS(50096)*XX(5253)-JVS(53090)*XX(5255)-JVS(54691)*XX(5256)-JVS(55180)& - &*XX(5258) - XX(5130) = XX(5130)-JVS(34482)*XX(5160)-JVS(38689)*XX(5231)-JVS(38887)*XX(5232)-JVS(39464)*XX(5237)-JVS(39798)& - &*XX(5243)-JVS(44936)*XX(5250)-JVS(46468)*XX(5251)-JVS(47822)*XX(5252)-JVS(50095)*XX(5253)-JVS(53089)& - &*XX(5255)-JVS(54690)*XX(5256) - XX(5129) = XX(5129)-JVS(34481)*XX(5160)-JVS(38688)*XX(5231)-JVS(39797)*XX(5243)-JVS(44935)*XX(5250)-JVS(46467)& - &*XX(5251)-JVS(47821)*XX(5252)-JVS(50094)*XX(5253)-JVS(53088)*XX(5255)-JVS(54689)*XX(5256) - XX(5128) = XX(5128)-JVS(35533)*XX(5188)-JVS(37928)*XX(5228)-JVS(38687)*XX(5231)-JVS(39640)*XX(5241)-JVS(40364)& - &*XX(5244)-JVS(44934)*XX(5250)-JVS(46466)*XX(5251)-JVS(47820)*XX(5252)-JVS(50093)*XX(5253)-JVS(53087)& - &*XX(5255)-JVS(54688)*XX(5256)-JVS(55179)*XX(5258) - XX(5127) = XX(5127)-JVS(34232)*XX(5158)-JVS(36671)*XX(5201)-JVS(38686)*XX(5231)-JVS(38886)*XX(5232)-JVS(39639)& - &*XX(5241)-JVS(39736)*XX(5242)-JVS(44933)*XX(5250)-JVS(46465)*XX(5251)-JVS(47819)*XX(5252)-JVS(50092)& - &*XX(5253)-JVS(53086)*XX(5255)-JVS(54687)*XX(5256) - XX(5126) = XX(5126)-JVS(33694)*XX(5139)-JVS(33812)*XX(5142)-JVS(34734)*XX(5170)-JVS(35328)*XX(5183)-JVS(35681)& - &*XX(5191)-JVS(35978)*XX(5193)-JVS(36670)*XX(5201)-JVS(37247)*XX(5216)-JVS(38685)*XX(5231)-JVS(39152)& - &*XX(5233)-JVS(44932)*XX(5250)-JVS(46464)*XX(5251)-JVS(47818)*XX(5252)-JVS(50091)*XX(5253)-JVS(50286)& - &*XX(5254)-JVS(53085)*XX(5255)-JVS(54686)*XX(5256)-JVS(55178)*XX(5258) - XX(5125) = XX(5125)-JVS(35680)*XX(5191)-JVS(38002)*XX(5229)-JVS(44931)*XX(5250)-JVS(46463)*XX(5251)-JVS(47817)& - &*XX(5252)-JVS(50090)*XX(5253)-JVS(53084)*XX(5255)-JVS(54685)*XX(5256)-JVS(55177)*XX(5258) - XX(5124) = XX(5124)-JVS(35031)*XX(5180)-JVS(36071)*XX(5195)-JVS(37698)*XX(5223)-JVS(38684)*XX(5231)-JVS(39298)& - &*XX(5234)-JVS(44930)*XX(5250)-JVS(46462)*XX(5251)-JVS(47816)*XX(5252)-JVS(50089)*XX(5253)-JVS(53083)& - &*XX(5255)-JVS(54684)*XX(5256)-JVS(55176)*XX(5258) - XX(5123) = XX(5123)-JVS(34733)*XX(5170)-JVS(35977)*XX(5193)-JVS(36237)*XX(5199)-JVS(36669)*XX(5201)-JVS(37013)& - &*XX(5210)-JVS(37613)*XX(5222)-JVS(37927)*XX(5228)-JVS(38683)*XX(5231)-JVS(39151)*XX(5233)-JVS(40363)& - &*XX(5244)-JVS(44929)*XX(5250)-JVS(46461)*XX(5251)-JVS(47815)*XX(5252)-JVS(50088)*XX(5253)-JVS(50285)& - &*XX(5254)-JVS(53082)*XX(5255)-JVS(54683)*XX(5256)-JVS(55175)*XX(5258) - XX(5122) = XX(5122)-JVS(35125)*XX(5182)-JVS(37172)*XX(5214)-JVS(37926)*XX(5228)-JVS(38682)*XX(5231)-JVS(39551)& - &*XX(5239)-JVS(44928)*XX(5250)-JVS(46460)*XX(5251)-JVS(47814)*XX(5252)-JVS(50087)*XX(5253)-JVS(53081)& - &*XX(5255)-JVS(54682)*XX(5256)-JVS(55174)*XX(5258) - XX(5121) = XX(5121)-JVS(35532)*XX(5188)-JVS(35976)*XX(5193)-JVS(36668)*XX(5201)-JVS(38681)*XX(5231)-JVS(44927)& - &*XX(5250)-JVS(46459)*XX(5251)-JVS(47813)*XX(5252)-JVS(50086)*XX(5253)-JVS(53080)*XX(5255)-JVS(54681)& - &*XX(5256) - XX(5120) = XX(5120)-JVS(34231)*XX(5158)-JVS(34603)*XX(5164)-JVS(36667)*XX(5201)-JVS(36780)*XX(5202)-JVS(37612)& - &*XX(5222)-JVS(38680)*XX(5231)-JVS(38885)*XX(5232)-JVS(39638)*XX(5241)-JVS(39735)*XX(5242)-JVS(40362)& - &*XX(5244)-JVS(44926)*XX(5250)-JVS(46458)*XX(5251)-JVS(47812)*XX(5252)-JVS(50085)*XX(5253)-JVS(53079)& - &*XX(5255)-JVS(54680)*XX(5256) - XX(5119) = XX(5119)-JVS(33125)*XX(5120)-JVS(33145)*XX(5121)-JVS(33811)*XX(5142)-JVS(34060)*XX(5151)-JVS(35327)& - &*XX(5183)-JVS(35531)*XX(5188)-JVS(35975)*XX(5193)-JVS(36160)*XX(5197)-JVS(36666)*XX(5201)-JVS(36779)& - &*XX(5202)-JVS(37611)*XX(5222)-JVS(38679)*XX(5231)-JVS(39637)*XX(5241)-JVS(40361)*XX(5244)-JVS(44925)& - &*XX(5250)-JVS(46457)*XX(5251)-JVS(47811)*XX(5252)-JVS(50084)*XX(5253)-JVS(53078)*XX(5255)-JVS(54679)& - &*XX(5256)-JVS(55173)*XX(5258) - XX(5118) = XX(5118)-JVS(33468)*XX(5134)-JVS(34687)*XX(5168)-JVS(35530)*XX(5188)-JVS(36665)*XX(5201)-JVS(36867)& - &*XX(5205)-JVS(37319)*XX(5220)-JVS(37348)*XX(5221)-JVS(37610)*XX(5222)-JVS(37736)*XX(5224)-JVS(44924)& - &*XX(5250)-JVS(46456)*XX(5251)-JVS(47810)*XX(5252)-JVS(50083)*XX(5253)-JVS(53077)*XX(5255)-JVS(54678)& - &*XX(5256) - XX(5117) = XX(5117)-JVS(33810)*XX(5142)-JVS(35326)*XX(5183)-JVS(35974)*XX(5193)-JVS(36159)*XX(5197)-JVS(40360)& - &*XX(5244)-JVS(44923)*XX(5250)-JVS(46455)*XX(5251)-JVS(47809)*XX(5252)-JVS(50082)*XX(5253)-JVS(53076)& - &*XX(5255)-JVS(54677)*XX(5256)-JVS(55172)*XX(5258) - XX(5116) = XX(5116)-JVS(33090)*XX(5117)-JVS(33144)*XX(5121)-JVS(35529)*XX(5188)-JVS(35973)*XX(5193)-JVS(36158)& - &*XX(5197)-JVS(36664)*XX(5201)-JVS(38678)*XX(5231)-JVS(40359)*XX(5244)-JVS(44922)*XX(5250)-JVS(46454)& - &*XX(5251)-JVS(47808)*XX(5252)-JVS(50081)*XX(5253)-JVS(53075)*XX(5255)-JVS(54676)*XX(5256)-JVS(55171)& - &*XX(5258) - XX(5115) = XX(5115)-JVS(33510)*XX(5136)-JVS(33883)*XX(5143)-JVS(34013)*XX(5149)-JVS(34539)*XX(5161)-JVS(35428)& - &*XX(5185)-JVS(36663)*XX(5201)-JVS(44921)*XX(5250)-JVS(46453)*XX(5251)-JVS(47807)*XX(5252)-JVS(50080)& - &*XX(5253)-JVS(53074)*XX(5255)-JVS(54675)*XX(5256)-JVS(55170)*XX(5258) - XX(5114) = XX(5114)-JVS(34480)*XX(5160)-JVS(35124)*XX(5182)-JVS(35393)*XX(5184)-JVS(36662)*XX(5201)-JVS(38884)& - &*XX(5232)-JVS(39583)*XX(5240)-JVS(44920)*XX(5250)-JVS(46452)*XX(5251)-JVS(47806)*XX(5252)-JVS(50079)& - &*XX(5253)-JVS(53073)*XX(5255)-JVS(54674)*XX(5256)-JVS(55169)*XX(5258) - XX(5113) = XX(5113)-JVS(36661)*XX(5201)-JVS(37171)*XX(5214)-JVS(37246)*XX(5216)-JVS(37609)*XX(5222)-JVS(38677)& - &*XX(5231)-JVS(38883)*XX(5232)-JVS(39366)*XX(5235)-JVS(44919)*XX(5250)-JVS(46451)*XX(5251)-JVS(47805)& - &*XX(5252)-JVS(50078)*XX(5253)-JVS(53072)*XX(5255)-JVS(54673)*XX(5256) - XX(5112) = XX(5112)-JVS(33050)*XX(5115)-JVS(33288)*XX(5125)-JVS(33486)*XX(5135)-JVS(33560)*XX(5137)-JVS(33693)& - &*XX(5139)-JVS(33727)*XX(5140)-JVS(33882)*XX(5143)-JVS(34538)*XX(5161)-JVS(34566)*XX(5162)-JVS(34648)& - &*XX(5165)-JVS(35325)*XX(5183)-JVS(35972)*XX(5193)-JVS(36660)*XX(5201)-JVS(38074)*XX(5230)-JVS(44918)& - &*XX(5250)-JVS(46450)*XX(5251)-JVS(47804)*XX(5252)-JVS(50077)*XX(5253)-JVS(53071)*XX(5255)-JVS(54672)& - &*XX(5256) - XX(5111) = XX(5111)-JVS(36659)*XX(5201)-JVS(37170)*XX(5214)-JVS(37245)*XX(5216)-JVS(38676)*XX(5231)-JVS(44917)& - &*XX(5250)-JVS(46449)*XX(5251)-JVS(47803)*XX(5252)-JVS(50076)*XX(5253)-JVS(53070)*XX(5255)-JVS(54671)& - &*XX(5256) - XX(5110) = XX(5110)-JVS(34230)*XX(5158)-JVS(37608)*XX(5222)-JVS(39636)*XX(5241)-JVS(40358)*XX(5244)-JVS(44916)& - &*XX(5250)-JVS(46448)*XX(5251)-JVS(47802)*XX(5252)-JVS(50075)*XX(5253)-JVS(53069)*XX(5255)-JVS(54670)& - &*XX(5256) - XX(5109) = XX(5109)-JVS(32971)*XX(5110)-JVS(33287)*XX(5125)-JVS(33509)*XX(5136)-JVS(34012)*XX(5149)-JVS(34038)& - &*XX(5150)-JVS(34188)*XX(5157)-JVS(34229)*XX(5158)-JVS(35971)*XX(5193)-JVS(36157)*XX(5197)-JVS(36926)& - &*XX(5208)-JVS(38073)*XX(5230)-JVS(38675)*XX(5231)-JVS(39734)*XX(5242)-JVS(40357)*XX(5244)-JVS(40487)& - &*XX(5246)-JVS(44915)*XX(5250)-JVS(47801)*XX(5252)-JVS(50074)*XX(5253)-JVS(53068)*XX(5255)-JVS(54669)& - &*XX(5256) - XX(5108) = XX(5108)-JVS(33559)*XX(5137)-JVS(33881)*XX(5143)-JVS(34037)*XX(5150)-JVS(34228)*XX(5158)-JVS(34537)& - &*XX(5161)-JVS(34768)*XX(5171)-JVS(35324)*XX(5183)-JVS(35427)*XX(5185)-JVS(35970)*XX(5193)-JVS(39733)& - &*XX(5242)-JVS(40356)*XX(5244)-JVS(40486)*XX(5246)-JVS(44914)*XX(5250)-JVS(46447)*XX(5251)-JVS(47800)& - &*XX(5252)-JVS(50073)*XX(5253)-JVS(53067)*XX(5255)-JVS(54668)*XX(5256) - XX(5107) = XX(5107)-JVS(32936)*XX(5108)-JVS(33508)*XX(5136)-JVS(33558)*XX(5137)-JVS(33692)*XX(5139)-JVS(33880)& - &*XX(5143)-JVS(34536)*XX(5161)-JVS(34565)*XX(5162)-JVS(34647)*XX(5165)-JVS(35323)*XX(5183)-JVS(35969)& - &*XX(5193)-JVS(36925)*XX(5208)-JVS(38072)*XX(5230)-JVS(38674)*XX(5231)-JVS(44913)*XX(5250)-JVS(46446)& - &*XX(5251)-JVS(47799)*XX(5252)-JVS(50072)*XX(5253)-JVS(53066)*XX(5255)-JVS(54667)*XX(5256)-JVS(55168)& - &*XX(5258) - XX(5106) = XX(5106)-JVS(33942)*XX(5145)-JVS(34479)*XX(5160)-JVS(44912)*XX(5250)-JVS(46445)*XX(5251)-JVS(47798)& - &*XX(5252)-JVS(50071)*XX(5253)-JVS(53065)*XX(5255)-JVS(54666)*XX(5256)-JVS(55167)*XX(5258) - XX(5105) = XX(5105)-JVS(34767)*XX(5171)-JVS(36156)*XX(5197)-JVS(36658)*XX(5201)-JVS(37169)*XX(5214)-JVS(40355)& - &*XX(5244)-JVS(44911)*XX(5250)-JVS(46444)*XX(5251)-JVS(53064)*XX(5255)-JVS(54665)*XX(5256) - XX(5104) = XX(5104)-JVS(34478)*XX(5160)-JVS(35392)*XX(5184)-JVS(38673)*XX(5231)-JVS(39463)*XX(5237)-JVS(44910)& - &*XX(5250)-JVS(46443)*XX(5251)-JVS(47797)*XX(5252)-JVS(50070)*XX(5253)-JVS(53063)*XX(5255)-JVS(54664)& - &*XX(5256)-JVS(55166)*XX(5258) - XX(5103) = XX(5103)-JVS(33691)*XX(5139)-JVS(35322)*XX(5183)-JVS(35679)*XX(5191)-JVS(35968)*XX(5193)-JVS(37244)& - &*XX(5216)-JVS(37607)*XX(5222)-JVS(39150)*XX(5233)-JVS(40354)*XX(5244)-JVS(44909)*XX(5250)-JVS(46442)& - &*XX(5251)-JVS(47796)*XX(5252)-JVS(50069)*XX(5253)-JVS(50284)*XX(5254)-JVS(53062)*XX(5255)-JVS(54663)& - &*XX(5256)-JVS(55165)*XX(5258) - XX(5102) = XX(5102)-JVS(37606)*XX(5222)-JVS(40353)*XX(5244)-JVS(44908)*XX(5250)-JVS(46441)*XX(5251)-JVS(47795)& - &*XX(5252)-JVS(50068)*XX(5253)-JVS(50283)*XX(5254)-JVS(53061)*XX(5255)-JVS(54662)*XX(5256) - XX(5101) = XX(5101)-JVS(33377)*XX(5129)-JVS(34477)*XX(5160)-JVS(39796)*XX(5243)-JVS(44907)*XX(5250)-JVS(46440)& - &*XX(5251)-JVS(47794)*XX(5252)-JVS(50067)*XX(5253)-JVS(53060)*XX(5255)-JVS(54661)*XX(5256) - XX(5100) = XX(5100)-JVS(37243)*XX(5216)-JVS(37605)*XX(5222)-JVS(40352)*XX(5244)-JVS(44906)*XX(5250)-JVS(46439)& - &*XX(5251)-JVS(47793)*XX(5252)-JVS(50066)*XX(5253)-JVS(53059)*XX(5255)-JVS(54660)*XX(5256) - XX(5099) = XX(5099)-JVS(33428)*XX(5131)-JVS(36882)*XX(5206)-JVS(37697)*XX(5223)-JVS(38672)*XX(5231)-JVS(39365)& - &*XX(5235)-JVS(40527)*XX(5247)-JVS(44905)*XX(5250)-JVS(46438)*XX(5251)-JVS(47792)*XX(5252)-JVS(50065)& - &*XX(5253)-JVS(50282)*XX(5254)-JVS(53058)*XX(5255)-JVS(54659)*XX(5256)-JVS(55164)*XX(5258) - XX(5098) = XX(5098)-JVS(35967)*XX(5193)-JVS(36155)*XX(5197)-JVS(40351)*XX(5244)-JVS(44904)*XX(5250)-JVS(47791)& - &*XX(5252)-JVS(50064)*XX(5253)-JVS(53057)*XX(5255)-JVS(54658)*XX(5256) - XX(5097) = XX(5097)-JVS(32703)*XX(5098)-JVS(33089)*XX(5117)-JVS(33143)*XX(5121)-JVS(35528)*XX(5188)-JVS(36657)& - &*XX(5201)-JVS(38671)*XX(5231)-JVS(40350)*XX(5244)-JVS(44903)*XX(5250)-JVS(46437)*XX(5251)-JVS(47790)& - &*XX(5252)-JVS(50063)*XX(5253)-JVS(53056)*XX(5255)-JVS(54657)*XX(5256)-JVS(55163)*XX(5258) - XX(5096) = XX(5096)-JVS(33941)*XX(5145)-JVS(34227)*XX(5158)-JVS(36656)*XX(5201)-JVS(38001)*XX(5229)-JVS(38071)& - &*XX(5230)-JVS(38670)*XX(5231)-JVS(38882)*XX(5232)-JVS(39635)*XX(5241)-JVS(44902)*XX(5250)-JVS(46436)& - &*XX(5251)-JVS(47789)*XX(5252)-JVS(50062)*XX(5253)-JVS(53055)*XX(5255)-JVS(54656)*XX(5256) - XX(5095) = XX(5095)-JVS(33020)*XX(5113)-JVS(34899)*XX(5177)-JVS(35578)*XX(5189)-JVS(36655)*XX(5201)-JVS(37696)& - &*XX(5223)-JVS(38669)*XX(5231)-JVS(40349)*XX(5244)-JVS(44901)*XX(5250)-JVS(46435)*XX(5251)-JVS(47788)& - &*XX(5252)-JVS(50061)*XX(5253)-JVS(53054)*XX(5255)-JVS(54655)*XX(5256)-JVS(55162)*XX(5258) - XX(5094) = XX(5094)-JVS(37604)*XX(5222)-JVS(44900)*XX(5250)-JVS(46434)*XX(5251)-JVS(47787)*XX(5252)-JVS(50060)& - &*XX(5253)-JVS(53053)*XX(5255)-JVS(54654)*XX(5256) - XX(5093) = XX(5093)-JVS(36033)*XX(5194)-JVS(36654)*XX(5201)-JVS(37695)*XX(5223)-JVS(38668)*XX(5231)-JVS(38881)& - &*XX(5232)-JVS(39297)*XX(5234)-JVS(44899)*XX(5250)-JVS(46433)*XX(5251)-JVS(47786)*XX(5252)-JVS(50059)& - &*XX(5253)-JVS(50281)*XX(5254)-JVS(53052)*XX(5255)-JVS(54653)*XX(5256)-JVS(55161)*XX(5258) - XX(5092) = XX(5092)-JVS(33427)*XX(5131)-JVS(37694)*XX(5223)-JVS(38667)*XX(5231)-JVS(39364)*XX(5235)-JVS(40526)& - &*XX(5247)-JVS(44898)*XX(5250)-JVS(46432)*XX(5251)-JVS(47785)*XX(5252)-JVS(50058)*XX(5253)-JVS(50280)& - &*XX(5254)-JVS(53051)*XX(5255)-JVS(54652)*XX(5256)-JVS(54829)*XX(5257)-JVS(55160)*XX(5258) - XX(5091) = XX(5091)-JVS(36653)*XX(5201)-JVS(37693)*XX(5223)-JVS(38666)*XX(5231)-JVS(38880)*XX(5232)-JVS(39149)& - &*XX(5233)-JVS(39296)*XX(5234)-JVS(44897)*XX(5250)-JVS(46431)*XX(5251)-JVS(47784)*XX(5252)-JVS(50057)& - &*XX(5253)-JVS(50279)*XX(5254)-JVS(53050)*XX(5255)-JVS(54651)*XX(5256)-JVS(55159)*XX(5258) - XX(5090) = XX(5090)-JVS(32785)*XX(5101)-JVS(33376)*XX(5129)-JVS(34476)*XX(5160)-JVS(36070)*XX(5195)-JVS(36652)& - &*XX(5201)-JVS(38665)*XX(5231)-JVS(39295)*XX(5234)-JVS(39732)*XX(5242)-JVS(40348)*XX(5244)-JVS(44896)& - &*XX(5250)-JVS(46430)*XX(5251)-JVS(47783)*XX(5252)-JVS(50056)*XX(5253)-JVS(53049)*XX(5255)-JVS(54650)& - &*XX(5256)-JVS(55158)*XX(5258) - XX(5089) = XX(5089)-JVS(32755)*XX(5100)-JVS(32805)*XX(5102)-JVS(34160)*XX(5156)-JVS(35966)*XX(5193)-JVS(36651)& - &*XX(5201)-JVS(37603)*XX(5222)-JVS(37925)*XX(5228)-JVS(38664)*XX(5231)-JVS(40347)*XX(5244)-JVS(44895)& - &*XX(5250)-JVS(46429)*XX(5251)-JVS(47782)*XX(5252)-JVS(50055)*XX(5253)-JVS(53048)*XX(5255)-JVS(54649)& - &*XX(5256)-JVS(55157)*XX(5258) - XX(5088) = XX(5088)-JVS(34953)*XX(5178)-JVS(35965)*XX(5193)-JVS(36069)*XX(5195)-JVS(36154)*XX(5197)-JVS(36650)& - &*XX(5201)-JVS(38663)*XX(5231)-JVS(39294)*XX(5234)-JVS(39731)*XX(5242)-JVS(40346)*XX(5244)-JVS(44894)& - &*XX(5250)-JVS(46428)*XX(5251)-JVS(47781)*XX(5252)-JVS(50054)*XX(5253)-JVS(53047)*XX(5255)-JVS(54648)& - &*XX(5256)-JVS(55156)*XX(5258) - XX(5087) = XX(5087)-JVS(35964)*XX(5193)-JVS(36649)*XX(5201)-JVS(44893)*XX(5250)-JVS(46427)*XX(5251)-JVS(47780)& - &*XX(5252)-JVS(50053)*XX(5253)-JVS(53046)*XX(5255)-JVS(54647)*XX(5256) - XX(5086) = XX(5086)-JVS(32991)*XX(5111)-JVS(36648)*XX(5201)-JVS(37168)*XX(5214)-JVS(38662)*XX(5231)-JVS(44892)& - &*XX(5250)-JVS(46426)*XX(5251)-JVS(47779)*XX(5252)-JVS(50052)*XX(5253)-JVS(53045)*XX(5255)-JVS(54646)& - &*XX(5256) - XX(5085) = XX(5085)-JVS(34898)*XX(5177)-JVS(36647)*XX(5201)-JVS(44891)*XX(5250)-JVS(46425)*XX(5251)-JVS(47778)& - &*XX(5252)-JVS(50051)*XX(5253)-JVS(53044)*XX(5255)-JVS(54645)*XX(5256)-JVS(55155)*XX(5258) - XX(5084) = XX(5084)-JVS(32440)*XX(5085)-JVS(32866)*XX(5105)-JVS(35123)*XX(5182)-JVS(35577)*XX(5189)-JVS(40345)& - &*XX(5244)-JVS(44890)*XX(5250)-JVS(46424)*XX(5251)-JVS(47777)*XX(5252)-JVS(50050)*XX(5253)-JVS(53043)& - &*XX(5255)-JVS(54644)*XX(5256)-JVS(55154)*XX(5258) - XX(5083) = XX(5083)-JVS(32410)*XX(5084)-JVS(32439)*XX(5085)-JVS(32481)*XX(5086)-JVS(32639)*XX(5095)-JVS(35576)& - &*XX(5189)-JVS(36646)*XX(5201)-JVS(37692)*XX(5223)-JVS(38661)*XX(5231)-JVS(40344)*XX(5244)-JVS(44889)& - &*XX(5250)-JVS(46423)*XX(5251)-JVS(47776)*XX(5252)-JVS(50049)*XX(5253)-JVS(53042)*XX(5255)-JVS(54643)& - &*XX(5256)-JVS(55153)*XX(5258) - XX(5082) = XX(5082)-JVS(32552)*XX(5090)-JVS(32784)*XX(5101)-JVS(33375)*XX(5129)-JVS(33809)*XX(5142)-JVS(34475)& - &*XX(5160)-JVS(35527)*XX(5188)-JVS(36068)*XX(5195)-JVS(36645)*XX(5201)-JVS(37924)*XX(5228)-JVS(38660)& - &*XX(5231)-JVS(39293)*XX(5234)-JVS(39795)*XX(5243)-JVS(44888)*XX(5250)-JVS(46422)*XX(5251)-JVS(47775)& - &*XX(5252)-JVS(50048)*XX(5253)-JVS(53041)*XX(5255)-JVS(54642)*XX(5256)-JVS(55152)*XX(5258) - XX(5081) = XX(5081)-JVS(32480)*XX(5086)-JVS(32990)*XX(5111)-JVS(33215)*XX(5124)-JVS(35122)*XX(5182)-JVS(35391)& - &*XX(5184)-JVS(36032)*XX(5194)-JVS(36283)*XX(5200)-JVS(36644)*XX(5201)-JVS(37167)*XX(5214)-JVS(37242)& - &*XX(5216)-JVS(38659)*XX(5231)-JVS(39292)*XX(5234)-JVS(44887)*XX(5250)-JVS(46421)*XX(5251)-JVS(47774)& - &*XX(5252)-JVS(50047)*XX(5253)-JVS(53040)*XX(5255)-JVS(54641)*XX(5256)-JVS(55151)*XX(5258) - XX(5080) = XX(5080)-JVS(36236)*XX(5199)-JVS(38879)*XX(5232)-JVS(40343)*XX(5244)-JVS(44886)*XX(5250)-JVS(53039)& - &*XX(5255) - XX(5079) = XX(5079)-JVS(34474)*XX(5160)-JVS(35526)*XX(5188)-JVS(38658)*XX(5231)-JVS(39794)*XX(5243)-JVS(44885)& - &*XX(5250)-JVS(46420)*XX(5251)-JVS(47773)*XX(5252)-JVS(50046)*XX(5253)-JVS(53038)*XX(5255)-JVS(54640)& - &*XX(5256)-JVS(55150)*XX(5258) - XX(5078) = XX(5078)-JVS(33808)*XX(5142)-JVS(33995)*XX(5148)-JVS(34473)*XX(5160)-JVS(34952)*XX(5178)-JVS(35963)& - &*XX(5193)-JVS(36643)*XX(5201)-JVS(38657)*XX(5231)-JVS(40342)*XX(5244)-JVS(44884)*XX(5250)-JVS(46419)& - &*XX(5251)-JVS(47772)*XX(5252)-JVS(50045)*XX(5253)-JVS(53037)*XX(5255)-JVS(54639)*XX(5256) - XX(5077) = XX(5077)-JVS(32301)*XX(5078)-JVS(32322)*XX(5079)-JVS(32551)*XX(5090)-JVS(32783)*XX(5101)-JVS(33374)& - &*XX(5129)-JVS(34472)*XX(5160)-JVS(34951)*XX(5178)-JVS(36067)*XX(5195)-JVS(36642)*XX(5201)-JVS(38656)& - &*XX(5231)-JVS(39291)*XX(5234)-JVS(39793)*XX(5243)-JVS(44883)*XX(5250)-JVS(46418)*XX(5251)-JVS(47771)& - &*XX(5252)-JVS(50044)*XX(5253)-JVS(53036)*XX(5255)-JVS(54638)*XX(5256)-JVS(55149)*XX(5258) - XX(5076) = XX(5076)-JVS(32702)*XX(5098)-JVS(32754)*XX(5100)-JVS(34471)*XX(5160)-JVS(34732)*XX(5170)-JVS(36153)& - &*XX(5197)-JVS(36641)*XX(5201)-JVS(37012)*XX(5210)-JVS(37241)*XX(5216)-JVS(37923)*XX(5228)-JVS(39148)& - &*XX(5233)-JVS(40341)*XX(5244)-JVS(44882)*XX(5250)-JVS(46417)*XX(5251)-JVS(47770)*XX(5252)-JVS(50043)& - &*XX(5253)-JVS(50278)*XX(5254)-JVS(53035)*XX(5255)-JVS(54637)*XX(5256)-JVS(55148)*XX(5258) - XX(5075) = XX(5075)-JVS(32350)*XX(5080)-JVS(34800)*XX(5172)-JVS(37011)*XX(5210)-JVS(37347)*XX(5221)-JVS(39147)& - &*XX(5233)-JVS(39290)*XX(5234)-JVS(40340)*XX(5244)-JVS(44881)*XX(5250)-JVS(47769)*XX(5252)-JVS(50042)& - &*XX(5253)-JVS(53034)*XX(5255)-JVS(54636)*XX(5256)-JVS(55147)*XX(5258) - XX(5074) = XX(5074)-JVS(34142)*XX(5155)-JVS(34672)*XX(5167)-JVS(35525)*XX(5188)-JVS(37346)*XX(5221)-JVS(37766)& - &*XX(5225)-JVS(38878)*XX(5232)-JVS(39146)*XX(5233)-JVS(39289)*XX(5234)-JVS(44880)*XX(5250)-JVS(46416)& - &*XX(5251)-JVS(47768)*XX(5252)-JVS(50041)*XX(5253)-JVS(53033)*XX(5255)-JVS(54635)*XX(5256)-JVS(55146)& - &*XX(5258) - XX(5073) = XX(5073)-JVS(34990)*XX(5179)-JVS(37056)*XX(5211)-JVS(39730)*XX(5242)-JVS(40339)*XX(5244)-JVS(44879)& - &*XX(5250)-JVS(46415)*XX(5251)-JVS(47767)*XX(5252)-JVS(50040)*XX(5253)-JVS(53032)*XX(5255)-JVS(54634)& - &*XX(5256) - XX(5072) = XX(5072)-JVS(32782)*XX(5101)-JVS(33373)*XX(5129)-JVS(34470)*XX(5160)-JVS(35121)*XX(5182)-JVS(36640)& - &*XX(5201)-JVS(37166)*XX(5214)-JVS(38655)*XX(5231)-JVS(39792)*XX(5243)-JVS(44878)*XX(5250)-JVS(46414)& - &*XX(5251)-JVS(47766)*XX(5252)-JVS(50039)*XX(5253)-JVS(53031)*XX(5255)-JVS(54633)*XX(5256)-JVS(55145)& - &*XX(5258) - XX(5071) = XX(5071)-JVS(33142)*XX(5121)-JVS(35524)*XX(5188)-JVS(36639)*XX(5201)-JVS(44877)*XX(5250)-JVS(46413)& - &*XX(5251)-JVS(47765)*XX(5252)-JVS(50038)*XX(5253)-JVS(53030)*XX(5255)-JVS(54632)*XX(5256)-JVS(55144)& - &*XX(5258) - XX(5070) = XX(5070)-JVS(33690)*XX(5139)-JVS(35321)*XX(5183)-JVS(44876)*XX(5250)-JVS(46412)*XX(5251)-JVS(47764)& - &*XX(5252)-JVS(50037)*XX(5253)-JVS(50277)*XX(5254)-JVS(53029)*XX(5255)-JVS(54631)*XX(5256) - XX(5069) = XX(5069)-JVS(34731)*XX(5170)-JVS(36638)*XX(5201)-JVS(36949)*XX(5209)-JVS(37602)*XX(5222)-JVS(38654)& - &*XX(5231)-JVS(39145)*XX(5233)-JVS(40338)*XX(5244)-JVS(44875)*XX(5250)-JVS(46411)*XX(5251)-JVS(47763)& - &*XX(5252)-JVS(50036)*XX(5253)-JVS(50276)*XX(5254)-JVS(53028)*XX(5255)-JVS(54630)*XX(5256)-JVS(55143)& - &*XX(5258) - XX(5068) = XX(5068)-JVS(32912)*XX(5106)-JVS(33940)*XX(5145)-JVS(34730)*XX(5170)-JVS(36637)*XX(5201)-JVS(36843)& - &*XX(5203)-JVS(38653)*XX(5231)-JVS(39144)*XX(5233)-JVS(44874)*XX(5250)-JVS(46410)*XX(5251)-JVS(47762)& - &*XX(5252)-JVS(50035)*XX(5253)-JVS(50275)*XX(5254)-JVS(53027)*XX(5255)-JVS(54629)*XX(5256)-JVS(55142)& - &*XX(5258) - XX(5067) = XX(5067)-JVS(35678)*XX(5191)-JVS(36636)*XX(5201)-JVS(38652)*XX(5231)-JVS(44873)*XX(5250)-JVS(46409)& - &*XX(5251)-JVS(47761)*XX(5252)-JVS(50034)*XX(5253)-JVS(53026)*XX(5255)-JVS(54628)*XX(5256) - XX(5066) = XX(5066)-JVS(33286)*XX(5125)-JVS(34729)*XX(5170)-JVS(36635)*XX(5201)-JVS(38000)*XX(5229)-JVS(38070)& - &*XX(5230)-JVS(38651)*XX(5231)-JVS(39143)*XX(5233)-JVS(44872)*XX(5250)-JVS(46408)*XX(5251)-JVS(47760)& - &*XX(5252)-JVS(50033)*XX(5253)-JVS(50274)*XX(5254)-JVS(53025)*XX(5255)-JVS(54627)*XX(5256)-JVS(55141)& - &*XX(5258) - XX(5065) = XX(5065)-JVS(33005)*XX(5112)-JVS(33049)*XX(5115)-JVS(33557)*XX(5137)-JVS(33689)*XX(5139)-JVS(33726)& - &*XX(5140)-JVS(33879)*XX(5143)-JVS(34535)*XX(5161)-JVS(34564)*XX(5162)-JVS(35320)*XX(5183)-JVS(35962)& - &*XX(5193)-JVS(36634)*XX(5201)-JVS(44871)*XX(5250)-JVS(46407)*XX(5251)-JVS(47759)*XX(5252)-JVS(50032)& - &*XX(5253)-JVS(53024)*XX(5255)-JVS(54626)*XX(5256)-JVS(55140)*XX(5258) - XX(5064) = XX(5064)-JVS(32671)*XX(5097)-JVS(32701)*XX(5098)-JVS(33088)*XX(5117)-JVS(35961)*XX(5193)-JVS(36066)& - &*XX(5195)-JVS(36633)*XX(5201)-JVS(38650)*XX(5231)-JVS(38877)*XX(5232)-JVS(39729)*XX(5242)-JVS(40337)& - &*XX(5244)-JVS(44870)*XX(5250)-JVS(46406)*XX(5251)-JVS(47758)*XX(5252)-JVS(50031)*XX(5253)-JVS(53023)& - &*XX(5255)-JVS(54625)*XX(5256)-JVS(55139)*XX(5258) - XX(5063) = XX(5063)-JVS(32700)*XX(5098)-JVS(33068)*XX(5116)-JVS(33087)*XX(5117)-JVS(35960)*XX(5193)-JVS(36065)& - &*XX(5195)-JVS(36152)*XX(5197)-JVS(36632)*XX(5201)-JVS(39142)*XX(5233)-JVS(39728)*XX(5242)-JVS(40336)& - &*XX(5244)-JVS(44869)*XX(5250)-JVS(46405)*XX(5251)-JVS(47757)*XX(5252)-JVS(50030)*XX(5253)-JVS(53022)& - &*XX(5255)-JVS(54624)*XX(5256)-JVS(55138)*XX(5258) - XX(5062) = XX(5062)-JVS(33807)*XX(5142)-JVS(34950)*XX(5178)-JVS(35959)*XX(5193)-JVS(36151)*XX(5197)-JVS(40335)& - &*XX(5244)-JVS(44868)*XX(5250)-JVS(47756)*XX(5252)-JVS(50029)*XX(5253)-JVS(53021)*XX(5255)-JVS(54623)& - &*XX(5256) - XX(5061) = XX(5061)-JVS(32075)*XX(5062)-JVS(32092)*XX(5063)-JVS(32108)*XX(5064)-JVS(32699)*XX(5098)-JVS(33086)& - &*XX(5117)-JVS(34949)*XX(5178)-JVS(35958)*XX(5193)-JVS(36150)*XX(5197)-JVS(38649)*XX(5231)-JVS(38876)& - &*XX(5232)-JVS(40334)*XX(5244)-JVS(44867)*XX(5250)-JVS(46404)*XX(5251)-JVS(47755)*XX(5252)-JVS(50028)& - &*XX(5253)-JVS(53020)*XX(5255)-JVS(54622)*XX(5256)-JVS(55137)*XX(5258) - XX(5060) = XX(5060)-JVS(34469)*XX(5160)-JVS(38648)*XX(5231)-JVS(39791)*XX(5243)-JVS(44866)*XX(5250)-JVS(46403)& - &*XX(5251)-JVS(47754)*XX(5252)-JVS(50027)*XX(5253)-JVS(53019)*XX(5255)-JVS(54621)*XX(5256) - XX(5059) = XX(5059)-JVS(39141)*XX(5233)-JVS(44865)*XX(5250)-JVS(46402)*XX(5251)-JVS(47753)*XX(5252)-JVS(50026)& - &*XX(5253)-JVS(53018)*XX(5255)-JVS(54620)*XX(5256) - XX(5058) = XX(5058)-JVS(32022)*XX(5059)-JVS(34728)*XX(5170)-JVS(36631)*XX(5201)-JVS(37240)*XX(5216)-JVS(38647)& - &*XX(5231)-JVS(39140)*XX(5233)-JVS(39363)*XX(5235)-JVS(44864)*XX(5250)-JVS(46401)*XX(5251)-JVS(47752)& - &*XX(5252)-JVS(50025)*XX(5253)-JVS(50273)*XX(5254)-JVS(53017)*XX(5255)-JVS(54619)*XX(5256)-JVS(55136)& - &*XX(5258) - XX(5057) = XX(5057)-JVS(32781)*XX(5101)-JVS(33372)*XX(5129)-JVS(36630)*XX(5201)-JVS(44863)*XX(5250)-JVS(46400)& - &*XX(5251)-JVS(53016)*XX(5255)-JVS(54618)*XX(5256) - XX(5056) = XX(5056)-JVS(31961)*XX(5057)-JVS(32780)*XX(5101)-JVS(33371)*XX(5129)-JVS(33994)*XX(5148)-JVS(34468)& - &*XX(5160)-JVS(35120)*XX(5182)-JVS(35677)*XX(5191)-JVS(36629)*XX(5201)-JVS(37999)*XX(5229)-JVS(38646)& - &*XX(5231)-JVS(39790)*XX(5243)-JVS(44862)*XX(5250)-JVS(46399)*XX(5251)-JVS(47751)*XX(5252)-JVS(50024)& - &*XX(5253)-JVS(53015)*XX(5255)-JVS(54617)*XX(5256)-JVS(55135)*XX(5258) - XX(5055) = XX(5055)-JVS(34602)*XX(5164)-JVS(36628)*XX(5201)-JVS(36778)*XX(5202)-JVS(39727)*XX(5242)-JVS(44861)& - &*XX(5250)-JVS(46398)*XX(5251)-JVS(53014)*XX(5255)-JVS(54616)*XX(5256) - XX(5054) = XX(5054)-JVS(32865)*XX(5105)-JVS(35390)*XX(5184)-JVS(39462)*XX(5237)-JVS(40333)*XX(5244)-JVS(44860)& - &*XX(5250)-JVS(46397)*XX(5251)-JVS(47750)*XX(5252)-JVS(50023)*XX(5253)-JVS(53013)*XX(5255)-JVS(54615)& - &*XX(5256)-JVS(55134)*XX(5258) - XX(5053) = XX(5053)-JVS(33688)*XX(5139)-JVS(35319)*XX(5183)-JVS(38645)*XX(5231)-JVS(44859)*XX(5250)-JVS(47749)& - &*XX(5252)-JVS(50022)*XX(5253)-JVS(53012)*XX(5255)-JVS(54614)*XX(5256) - XX(5052) = XX(5052)-JVS(33032)*XX(5114)-JVS(33405)*XX(5130)-JVS(35119)*XX(5182)-JVS(39582)*XX(5240)-JVS(44858)& - &*XX(5250)-JVS(46396)*XX(5251)-JVS(47748)*XX(5252)-JVS(50021)*XX(5253)-JVS(53011)*XX(5255)-JVS(54613)& - &*XX(5256)-JVS(55133)*XX(5258) - XX(5051) = XX(5051)-JVS(32144)*XX(5067)-JVS(33687)*XX(5139)-JVS(33806)*XX(5142)-JVS(34011)*XX(5149)-JVS(34101)& - &*XX(5152)-JVS(35318)*XX(5183)-JVS(35676)*XX(5191)-JVS(35957)*XX(5193)-JVS(36235)*XX(5199)-JVS(37691)& - &*XX(5223)-JVS(38644)*XX(5231)-JVS(39526)*XX(5238)-JVS(40332)*XX(5244)-JVS(44857)*XX(5250)-JVS(46395)& - &*XX(5251)-JVS(47747)*XX(5252)-JVS(50020)*XX(5253)-JVS(50272)*XX(5254)-JVS(53010)*XX(5255)-JVS(54612)& - &*XX(5256)-JVS(55132)*XX(5258) - XX(5050) = XX(5050)-JVS(34100)*XX(5152)-JVS(34727)*XX(5170)-JVS(35030)*XX(5180)-JVS(36627)*XX(5201)-JVS(38643)& - &*XX(5231)-JVS(39139)*XX(5233)-JVS(44856)*XX(5250)-JVS(46394)*XX(5251)-JVS(47746)*XX(5252)-JVS(50019)& - &*XX(5253)-JVS(50271)*XX(5254)-JVS(53009)*XX(5255)-JVS(54611)*XX(5256)-JVS(55131)*XX(5258) - XX(5049) = XX(5049)-JVS(34726)*XX(5170)-JVS(36626)*XX(5201)-JVS(38642)*XX(5231)-JVS(38875)*XX(5232)-JVS(39138)& - &*XX(5233)-JVS(39288)*XX(5234)-JVS(44855)*XX(5250)-JVS(46393)*XX(5251)-JVS(47745)*XX(5252)-JVS(50018)& - &*XX(5253)-JVS(50270)*XX(5254)-JVS(53008)*XX(5255)-JVS(54610)*XX(5256)-JVS(55130)*XX(5258) - XX(5048) = XX(5048)-JVS(37690)*XX(5223)-JVS(38641)*XX(5231)-JVS(40525)*XX(5247)-JVS(44854)*XX(5250)-JVS(46392)& - &*XX(5251)-JVS(47744)*XX(5252)-JVS(50017)*XX(5253)-JVS(50269)*XX(5254)-JVS(53007)*XX(5255)-JVS(54609)& - &*XX(5256)-JVS(54828)*XX(5257)-JVS(55129)*XX(5258) - XX(5047) = XX(5047)-JVS(37601)*XX(5222)-JVS(37922)*XX(5228)-JVS(44853)*XX(5250)-JVS(46391)*XX(5251)-JVS(47743)& - &*XX(5252)-JVS(50016)*XX(5253)-JVS(50268)*XX(5254)-JVS(53006)*XX(5255)-JVS(54608)*XX(5256) - XX(5046) = XX(5046)-JVS(44852)*XX(5250)-JVS(53005)*XX(5255) - XX(5045) = XX(5045)-JVS(32321)*XX(5079)-JVS(32670)*XX(5097)-JVS(33370)*XX(5129)-JVS(34467)*XX(5160)-JVS(35956)& - &*XX(5193)-JVS(36149)*XX(5197)-JVS(36625)*XX(5201)-JVS(37921)*XX(5228)-JVS(38640)*XX(5231)-JVS(40331)& - &*XX(5244)-JVS(44851)*XX(5250)-JVS(46390)*XX(5251)-JVS(47742)*XX(5252)-JVS(50015)*XX(5253)-JVS(53004)& - &*XX(5255)-JVS(54607)*XX(5256)-JVS(55128)*XX(5258) - XX(5044) = XX(5044)-JVS(31907)*XX(5054)-JVS(32409)*XX(5084)-JVS(32438)*XX(5085)-JVS(34897)*XX(5177)-JVS(36624)& - &*XX(5201)-JVS(44850)*XX(5250)-JVS(46389)*XX(5251)-JVS(47741)*XX(5252)-JVS(50014)*XX(5253)-JVS(53003)& - &*XX(5255)-JVS(54606)*XX(5256)-JVS(55127)*XX(5258) - XX(5043) = XX(5043)-JVS(32911)*XX(5106)-JVS(33939)*XX(5145)-JVS(36623)*XX(5201)-JVS(36842)*XX(5203)-JVS(38639)& - &*XX(5231)-JVS(38874)*XX(5232)-JVS(44849)*XX(5250)-JVS(46388)*XX(5251)-JVS(47740)*XX(5252)-JVS(50013)& - &*XX(5253)-JVS(53002)*XX(5255)-JVS(54605)*XX(5256) - XX(5042) = XX(5042)-JVS(32074)*XX(5062)-JVS(34948)*XX(5178)-JVS(35955)*XX(5193)-JVS(36282)*XX(5200)-JVS(36622)& - &*XX(5201)-JVS(44848)*XX(5250)-JVS(46387)*XX(5251)-JVS(47739)*XX(5252)-JVS(50012)*XX(5253)-JVS(53001)& - &*XX(5255)-JVS(54604)*XX(5256)-JVS(55126)*XX(5258) - XX(5041) = XX(5041)-JVS(34466)*XX(5160)-JVS(35118)*XX(5182)-JVS(35389)*XX(5184)-JVS(36902)*XX(5207)-JVS(38638)& - &*XX(5231)-JVS(44847)*XX(5250)-JVS(46386)*XX(5251)-JVS(47738)*XX(5252)-JVS(50011)*XX(5253)-JVS(53000)& - &*XX(5255)-JVS(54603)*XX(5256)-JVS(55125)*XX(5258) - XX(5040) = XX(5040)-JVS(31768)*XX(5046)-JVS(35523)*XX(5188)-JVS(37345)*XX(5221)-JVS(37600)*XX(5222)-JVS(40330)& - &*XX(5244)-JVS(44846)*XX(5250)-JVS(46385)*XX(5251)-JVS(47737)*XX(5252)-JVS(50010)*XX(5253)-JVS(50267)& - &*XX(5254)-JVS(52999)*XX(5255)-JVS(54602)*XX(5256) - XX(5039) = XX(5039)-JVS(33426)*XX(5131)-JVS(39362)*XX(5235)-JVS(44845)*XX(5250)-JVS(47736)*XX(5252)-JVS(50009)& - &*XX(5253)-JVS(52998)*XX(5255)-JVS(54601)*XX(5256) - XX(5038) = XX(5038)-JVS(39137)*XX(5233)-JVS(44844)*XX(5250)-JVS(46384)*XX(5251)-JVS(47735)*XX(5252)-JVS(50008)& - &*XX(5253)-JVS(52997)*XX(5255)-JVS(54600)*XX(5256) - XX(5037) = XX(5037)-JVS(32753)*XX(5100)-JVS(32804)*XX(5102)-JVS(35954)*XX(5193)-JVS(36234)*XX(5199)-JVS(37010)& - &*XX(5210)-JVS(37599)*XX(5222)-JVS(40329)*XX(5244)-JVS(44843)*XX(5250)-JVS(46383)*XX(5251)-JVS(47734)& - &*XX(5252)-JVS(50007)*XX(5253)-JVS(52996)*XX(5255)-JVS(54599)*XX(5256)-JVS(55124)*XX(5258) - XX(5036) = XX(5036)-JVS(37239)*XX(5216)-JVS(37598)*XX(5222)-JVS(38637)*XX(5231)-JVS(39136)*XX(5233)-JVS(40328)& - &*XX(5244)-JVS(44842)*XX(5250)-JVS(46382)*XX(5251)-JVS(47733)*XX(5252)-JVS(50006)*XX(5253)-JVS(52995)& - &*XX(5255)-JVS(54598)*XX(5256)-JVS(55123)*XX(5258) - XX(5035) = XX(5035)-JVS(32610)*XX(5094)-JVS(34799)*XX(5172)-JVS(35522)*XX(5188)-JVS(37597)*XX(5222)-JVS(39135)& - &*XX(5233)-JVS(40327)*XX(5244)-JVS(44841)*XX(5250)-JVS(46381)*XX(5251)-JVS(47732)*XX(5252)-JVS(50005)& - &*XX(5253)-JVS(52994)*XX(5255)-JVS(54597)*XX(5256) - XX(5034) = XX(5034)-JVS(32021)*XX(5059)-JVS(33686)*XX(5139)-JVS(33805)*XX(5142)-JVS(35317)*XX(5183)-JVS(37238)& - &*XX(5216)-JVS(44840)*XX(5250)-JVS(46380)*XX(5251)-JVS(47731)*XX(5252)-JVS(50004)*XX(5253)-JVS(52993)& - &*XX(5255)-JVS(54596)*XX(5256)-JVS(55122)*XX(5258) - XX(5033) = XX(5033)-JVS(32349)*XX(5080)-JVS(34725)*XX(5170)-JVS(34798)*XX(5172)-JVS(37009)*XX(5210)-JVS(39134)& - &*XX(5233)-JVS(39287)*XX(5234)-JVS(40326)*XX(5244)-JVS(44839)*XX(5250)-JVS(46379)*XX(5251)-JVS(47730)& - &*XX(5252)-JVS(50003)*XX(5253)-JVS(52992)*XX(5255)-JVS(54595)*XX(5256)-JVS(55121)*XX(5258) - XX(5032) = XX(5032)-JVS(32779)*XX(5101)-JVS(33369)*XX(5129)-JVS(34465)*XX(5160)-JVS(36621)*XX(5201)-JVS(37596)& - &*XX(5222)-JVS(38636)*XX(5231)-JVS(38873)*XX(5232)-JVS(39634)*XX(5241)-JVS(39789)*XX(5243)-JVS(40325)& - &*XX(5244)-JVS(44838)*XX(5250)-JVS(46378)*XX(5251)-JVS(47729)*XX(5252)-JVS(50002)*XX(5253)-JVS(52991)& - &*XX(5255)-JVS(54594)*XX(5256) - XX(5031) = XX(5031)-JVS(38635)*XX(5231)-JVS(40324)*XX(5244)-JVS(44837)*XX(5250)-JVS(46377)*XX(5251)-JVS(47728)& - &*XX(5252)-JVS(50001)*XX(5253)-JVS(52990)*XX(5255)-JVS(54593)*XX(5256) - XX(5030) = XX(5030)-JVS(31501)*XX(5031)-JVS(31588)*XX(5037)-JVS(31767)*XX(5046)-JVS(32280)*XX(5076)-JVS(32698)& - &*XX(5098)-JVS(32803)*XX(5102)-JVS(36148)*XX(5197)-JVS(36620)*XX(5201)-JVS(36948)*XX(5209)-JVS(37595)& - &*XX(5222)-JVS(38634)*XX(5231)-JVS(39133)*XX(5233)-JVS(40323)*XX(5244)-JVS(44836)*XX(5250)-JVS(46376)& - &*XX(5251)-JVS(47727)*XX(5252)-JVS(50000)*XX(5253)-JVS(50266)*XX(5254)-JVS(52989)*XX(5255)-JVS(54592)& - &*XX(5256)-JVS(55120)*XX(5258) - XX(5029) = XX(5029)-JVS(34464)*XX(5160)-JVS(35117)*XX(5182)-JVS(36191)*XX(5198)-JVS(36619)*XX(5201)-JVS(40322)& - &*XX(5244)-JVS(44835)*XX(5250)-JVS(46375)*XX(5251)-JVS(47726)*XX(5252)-JVS(49999)*XX(5253)-JVS(52988)& - &*XX(5255)-JVS(54591)*XX(5256)-JVS(55119)*XX(5258) - XX(5028) = XX(5028)-JVS(33404)*XX(5130)-JVS(35116)*XX(5182)-JVS(37165)*XX(5214)-JVS(39581)*XX(5240)-JVS(40321)& - &*XX(5244)-JVS(44834)*XX(5250)-JVS(46374)*XX(5251)-JVS(47725)*XX(5252)-JVS(49998)*XX(5253)-JVS(52987)& - &*XX(5255)-JVS(54590)*XX(5256)-JVS(55118)*XX(5258) - XX(5027) = XX(5027)-JVS(33344)*XX(5128)-JVS(35521)*XX(5188)-JVS(36064)*XX(5195)-JVS(37806)*XX(5226)-JVS(39461)& - &*XX(5237)-JVS(44833)*XX(5250)-JVS(46373)*XX(5251)-JVS(47724)*XX(5252)-JVS(49997)*XX(5253)-JVS(52986)& - &*XX(5255)-JVS(54589)*XX(5256)-JVS(55117)*XX(5258) - XX(5026) = XX(5026)-JVS(32697)*XX(5098)-JVS(33085)*XX(5117)-JVS(36618)*XX(5201)-JVS(44832)*XX(5250)-JVS(46372)& - &*XX(5251)-JVS(52985)*XX(5255)-JVS(54588)*XX(5256) - XX(5025) = XX(5025)-JVS(32609)*XX(5094)-JVS(32752)*XX(5100)-JVS(34159)*XX(5156)-JVS(35520)*XX(5188)-JVS(37237)& - &*XX(5216)-JVS(37594)*XX(5222)-JVS(40320)*XX(5244)-JVS(44831)*XX(5250)-JVS(46371)*XX(5251)-JVS(47723)& - &*XX(5252)-JVS(49996)*XX(5253)-JVS(52984)*XX(5255)-JVS(54587)*XX(5256)-JVS(55116)*XX(5258) - XX(5024) = XX(5024)-JVS(31766)*XX(5046)-JVS(36617)*XX(5201)-JVS(37689)*XX(5223)-JVS(38633)*XX(5231)-JVS(38872)& - &*XX(5232)-JVS(44830)*XX(5250)-JVS(46370)*XX(5251)-JVS(47722)*XX(5252)-JVS(49995)*XX(5253)-JVS(50265)& - &*XX(5254)-JVS(52983)*XX(5255)-JVS(54586)*XX(5256)-JVS(55115)*XX(5258) - XX(5023) = XX(5023)-JVS(36616)*XX(5201)-JVS(38871)*XX(5232)-JVS(44829)*XX(5250)-JVS(46369)*XX(5251)-JVS(52982)& - &*XX(5255)-JVS(54585)*XX(5256) - XX(5022) = XX(5022)-JVS(35519)*XX(5188)-JVS(37344)*XX(5221)-JVS(37593)*XX(5222)-JVS(37765)*XX(5225)-JVS(38632)& - &*XX(5231)-JVS(39132)*XX(5233)-JVS(39286)*XX(5234)-JVS(44828)*XX(5250)-JVS(46368)*XX(5251)-JVS(47721)& - &*XX(5252)-JVS(49994)*XX(5253)-JVS(52981)*XX(5255)-JVS(54584)*XX(5256)-JVS(55114)*XX(5258) - XX(5021) = XX(5021)-JVS(34463)*XX(5160)-JVS(35115)*XX(5182)-JVS(36615)*XX(5201)-JVS(37164)*XX(5214)-JVS(38631)& - &*XX(5231)-JVS(44827)*XX(5250)-JVS(46367)*XX(5251)-JVS(47720)*XX(5252)-JVS(49993)*XX(5253)-JVS(52980)& - &*XX(5255)-JVS(54583)*XX(5256)-JVS(55113)*XX(5258) - XX(5020) = XX(5020)-JVS(32348)*XX(5080)-JVS(37008)*XX(5210)-JVS(37592)*XX(5222)-JVS(38630)*XX(5231)-JVS(39285)& - &*XX(5234)-JVS(40319)*XX(5244)-JVS(44826)*XX(5250)-JVS(47719)*XX(5252)-JVS(49992)*XX(5253)-JVS(52979)& - &*XX(5255)-JVS(54582)*XX(5256) - XX(5019) = XX(5019)-JVS(31306)*XX(5020)-JVS(34766)*XX(5171)-JVS(36147)*XX(5197)-JVS(36614)*XX(5201)-JVS(37007)& - &*XX(5210)-JVS(38629)*XX(5231)-JVS(38870)*XX(5232)-JVS(44825)*XX(5250)-JVS(46366)*XX(5251)-JVS(47718)& - &*XX(5252)-JVS(49991)*XX(5253)-JVS(52978)*XX(5255)-JVS(54581)*XX(5256)-JVS(55112)*XX(5258) - XX(5018) = XX(5018)-JVS(36613)*XX(5201)-JVS(38628)*XX(5231)-JVS(40318)*XX(5244)-JVS(44824)*XX(5250)-JVS(46365)& - &*XX(5251)-JVS(47717)*XX(5252)-JVS(49990)*XX(5253)-JVS(52977)*XX(5255)-JVS(54580)*XX(5256) - XX(5017) = XX(5017)-JVS(32408)*XX(5084)-JVS(32437)*XX(5085)-JVS(44823)*XX(5250)-JVS(46364)*XX(5251)-JVS(47716)& - &*XX(5252)-JVS(49989)*XX(5253)-JVS(52976)*XX(5255)-JVS(54579)*XX(5256)-JVS(55111)*XX(5258) - XX(5016) = XX(5016)-JVS(32347)*XX(5080)-JVS(37764)*XX(5225)-JVS(39284)*XX(5234)-JVS(40317)*XX(5244)-JVS(44822)& - &*XX(5250)-JVS(47715)*XX(5252)-JVS(49988)*XX(5253)-JVS(52975)*XX(5255)-JVS(54578)*XX(5256) - XX(5015) = XX(5015)-JVS(31565)*XX(5036)-JVS(32608)*XX(5094)-JVS(35518)*XX(5188)-JVS(37591)*XX(5222)-JVS(38627)& - &*XX(5231)-JVS(38869)*XX(5232)-JVS(39131)*XX(5233)-JVS(39283)*XX(5234)-JVS(40316)*XX(5244)-JVS(44821)& - &*XX(5250)-JVS(46363)*XX(5251)-JVS(47714)*XX(5252)-JVS(49987)*XX(5253)-JVS(52974)*XX(5255)-JVS(54577)& - &*XX(5256)-JVS(55110)*XX(5258) - XX(5014) = XX(5014)-JVS(32848)*XX(5104)-JVS(35114)*XX(5182)-JVS(37163)*XX(5214)-JVS(44820)*XX(5250)-JVS(46362)& - &*XX(5251)-JVS(47713)*XX(5252)-JVS(49986)*XX(5253)-JVS(52973)*XX(5255)-JVS(54576)*XX(5256)-JVS(55109)& - &*XX(5258) - XX(5013) = XX(5013)-JVS(31765)*XX(5046)-JVS(32563)*XX(5091)-JVS(34823)*XX(5173)-JVS(35029)*XX(5180)-JVS(35517)& - &*XX(5188)-JVS(37590)*XX(5222)-JVS(38626)*XX(5231)-JVS(39130)*XX(5233)-JVS(44819)*XX(5250)-JVS(46361)& - &*XX(5251)-JVS(47712)*XX(5252)-JVS(49985)*XX(5253)-JVS(50264)*XX(5254)-JVS(52972)*XX(5255)-JVS(54575)& - &*XX(5256)-JVS(55108)*XX(5258) - XX(5012) = XX(5012)-JVS(34947)*XX(5178)-JVS(36612)*XX(5201)-JVS(44818)*XX(5250)-JVS(46360)*XX(5251)-JVS(47711)& - &*XX(5252)-JVS(49984)*XX(5253)-JVS(52971)*XX(5255)-JVS(54574)*XX(5256) - XX(5011) = XX(5011)-JVS(37589)*XX(5222)-JVS(40315)*XX(5244)-JVS(44817)*XX(5250)-JVS(47710)*XX(5252)-JVS(49983)& - &*XX(5253)-JVS(52970)*XX(5255)-JVS(54573)*XX(5256) - XX(5010) = XX(5010)-JVS(31179)*XX(5011)-JVS(32214)*XX(5071)-JVS(34059)*XX(5151)-JVS(35516)*XX(5188)-JVS(36611)& - &*XX(5201)-JVS(37588)*XX(5222)-JVS(38625)*XX(5231)-JVS(39633)*XX(5241)-JVS(40314)*XX(5244)-JVS(44816)& - &*XX(5250)-JVS(46359)*XX(5251)-JVS(47709)*XX(5252)-JVS(49982)*XX(5253)-JVS(52969)*XX(5255)-JVS(54572)& - &*XX(5256)-JVS(55107)*XX(5258) - XX(5009) = XX(5009)-JVS(36610)*XX(5201)-JVS(38069)*XX(5230)-JVS(44815)*XX(5250)-JVS(46358)*XX(5251)-JVS(47708)& - &*XX(5252)-JVS(49981)*XX(5253)-JVS(52968)*XX(5255)-JVS(54571)*XX(5256) - XX(5008) = XX(5008)-JVS(35953)*XX(5193)-JVS(36146)*XX(5197)-JVS(40313)*XX(5244)-JVS(44814)*XX(5250)-JVS(46357)& - &*XX(5251)-JVS(47707)*XX(5252)-JVS(49980)*XX(5253)-JVS(52967)*XX(5255)-JVS(54570)*XX(5256)-JVS(55106)& - &*XX(5258) - XX(5007) = XX(5007)-JVS(35952)*XX(5193)-JVS(36145)*XX(5197)-JVS(40312)*XX(5244)-JVS(44813)*XX(5250)-JVS(47706)& - &*XX(5252)-JVS(49979)*XX(5253)-JVS(52966)*XX(5255)-JVS(54569)*XX(5256) - XX(5006) = XX(5006)-JVS(35575)*XX(5189)-JVS(44812)*XX(5250)-JVS(46356)*XX(5251)-JVS(47705)*XX(5252)-JVS(49978)& - &*XX(5253)-JVS(52965)*XX(5255)-JVS(54568)*XX(5256)-JVS(55105)*XX(5258) - XX(5005) = XX(5005)-JVS(33450)*XX(5133)-JVS(37236)*XX(5216)-JVS(37587)*XX(5222)-JVS(44811)*XX(5250)-JVS(46355)& - &*XX(5251)-JVS(47704)*XX(5252)-JVS(49977)*XX(5253)-JVS(52964)*XX(5255)-JVS(54567)*XX(5256)-JVS(55104)& - &*XX(5258) - XX(5004) = XX(5004)-JVS(35113)*XX(5182)-JVS(44810)*XX(5250)-JVS(46354)*XX(5251)-JVS(47703)*XX(5252)-JVS(49976)& - &*XX(5253)-JVS(52963)*XX(5255)-JVS(54566)*XX(5256)-JVS(55103)*XX(5258) - XX(5003) = XX(5003)-JVS(34797)*XX(5172)-JVS(37006)*XX(5210)-JVS(39129)*XX(5233)-JVS(40311)*XX(5244)-JVS(44809)& - &*XX(5250)-JVS(47702)*XX(5252)-JVS(49975)*XX(5253)-JVS(52962)*XX(5255)-JVS(54565)*XX(5256)-JVS(55102)& - &*XX(5258) - XX(5002) = XX(5002)-JVS(32607)*XX(5094)-JVS(32751)*XX(5100)-JVS(34158)*XX(5156)-JVS(34724)*XX(5170)-JVS(35515)& - &*XX(5188)-JVS(36609)*XX(5201)-JVS(36947)*XX(5209)-JVS(37235)*XX(5216)-JVS(37586)*XX(5222)-JVS(38624)& - &*XX(5231)-JVS(39128)*XX(5233)-JVS(39632)*XX(5241)-JVS(40310)*XX(5244)-JVS(44808)*XX(5250)-JVS(46353)& - &*XX(5251)-JVS(47701)*XX(5252)-JVS(49974)*XX(5253)-JVS(52961)*XX(5255)-JVS(54564)*XX(5256)-JVS(55101)& - &*XX(5258) - XX(5001) = XX(5001)-JVS(32606)*XX(5094)-JVS(37585)*XX(5222)-JVS(44807)*XX(5250)-JVS(46352)*XX(5251)-JVS(47700)& - &*XX(5252)-JVS(49973)*XX(5253)-JVS(52960)*XX(5255)-JVS(54563)*XX(5256) - XX(5000) = XX(5000)-JVS(34462)*XX(5160)-JVS(39788)*XX(5243)-JVS(44806)*XX(5250)-JVS(46351)*XX(5251)-JVS(52959)& - &*XX(5255) - XX(4999) = XX(4999)-JVS(31764)*XX(5046)-JVS(38623)*XX(5231)-JVS(39282)*XX(5234)-JVS(44805)*XX(5250)-JVS(46350)& - &*XX(5251)-JVS(47699)*XX(5252)-JVS(49972)*XX(5253)-JVS(50263)*XX(5254)-JVS(52958)*XX(5255)-JVS(54562)& - &*XX(5256) - XX(4998) = XX(4998)-JVS(31763)*XX(5046)-JVS(32910)*XX(5106)-JVS(36608)*XX(5201)-JVS(44804)*XX(5250)-JVS(46349)& - &*XX(5251)-JVS(47698)*XX(5252)-JVS(49971)*XX(5253)-JVS(50262)*XX(5254)-JVS(52957)*XX(5255)-JVS(54561)& - &*XX(5256) - XX(4997) = XX(4997)-JVS(31762)*XX(5046)-JVS(33285)*XX(5125)-JVS(36607)*XX(5201)-JVS(44803)*XX(5250)-JVS(46348)& - &*XX(5251)-JVS(47697)*XX(5252)-JVS(49970)*XX(5253)-JVS(50261)*XX(5254)-JVS(52956)*XX(5255)-JVS(54560)& - &*XX(5256) - XX(4996) = XX(4996)-JVS(31046)*XX(5004)-JVS(32479)*XX(5086)-JVS(35112)*XX(5182)-JVS(36606)*XX(5201)-JVS(37162)& - &*XX(5214)-JVS(38622)*XX(5231)-JVS(44802)*XX(5250)-JVS(46347)*XX(5251)-JVS(47696)*XX(5252)-JVS(49969)& - &*XX(5253)-JVS(52955)*XX(5255)-JVS(54559)*XX(5256)-JVS(55100)*XX(5258) - XX(4995) = XX(4995)-JVS(35388)*XX(5184)-JVS(44801)*XX(5250)-JVS(47695)*XX(5252)-JVS(49968)*XX(5253)-JVS(52954)& - &*XX(5255)-JVS(54558)*XX(5256) - XX(4994) = XX(4994)-JVS(32669)*XX(5097)-JVS(33067)*XX(5116)-JVS(33938)*XX(5145)-JVS(34461)*XX(5160)-JVS(35951)& - &*XX(5193)-JVS(40309)*XX(5244)-JVS(44800)*XX(5250)-JVS(46346)*XX(5251)-JVS(47694)*XX(5252)-JVS(49967)& - &*XX(5253)-JVS(52953)*XX(5255)-JVS(54557)*XX(5256)-JVS(55099)*XX(5258) - XX(4993) = XX(4993)-JVS(32750)*XX(5100)-JVS(34796)*XX(5172)-JVS(37920)*XX(5228)-JVS(38621)*XX(5231)-JVS(39127)& - &*XX(5233)-JVS(40308)*XX(5244)-JVS(44799)*XX(5250)-JVS(46345)*XX(5251)-JVS(47693)*XX(5252)-JVS(49966)& - &*XX(5253)-JVS(52952)*XX(5255)-JVS(54556)*XX(5256)-JVS(55098)*XX(5258) - XX(4992) = XX(4992)-JVS(31178)*XX(5011)-JVS(31500)*XX(5031)-JVS(33685)*XX(5139)-JVS(33751)*XX(5141)-JVS(35316)& - &*XX(5183)-JVS(37584)*XX(5222)-JVS(40307)*XX(5244)-JVS(44798)*XX(5250)-JVS(46344)*XX(5251)-JVS(47692)& - &*XX(5252)-JVS(49965)*XX(5253)-JVS(52951)*XX(5255)-JVS(54555)*XX(5256) - XX(4991) = XX(4991)-JVS(35950)*XX(5193)-JVS(40306)*XX(5244)-JVS(44797)*XX(5250)-JVS(46343)*XX(5251)-JVS(47691)& - &*XX(5252)-JVS(49964)*XX(5253)-JVS(52950)*XX(5255)-JVS(54554)*XX(5256) - XX(4990) = XX(4990)-JVS(30816)*XX(4991)-JVS(34058)*XX(5151)-JVS(35315)*XX(5183)-JVS(35675)*XX(5191)-JVS(35711)& - &*XX(5192)-JVS(37998)*XX(5229)-JVS(40305)*XX(5244)-JVS(44796)*XX(5250)-JVS(46342)*XX(5251)-JVS(47690)& - &*XX(5252)-JVS(49963)*XX(5253)-JVS(52949)*XX(5255)-JVS(54553)*XX(5256) - XX(4989) = XX(4989)-JVS(31661)*XX(5041)-JVS(32847)*XX(5104)-JVS(35111)*XX(5182)-JVS(36901)*XX(5207)-JVS(44795)& - &*XX(5250)-JVS(46341)*XX(5251)-JVS(47689)*XX(5252)-JVS(49962)*XX(5253)-JVS(52948)*XX(5255)-JVS(54552)& - &*XX(5256)-JVS(55097)*XX(5258) - XX(4988) = XX(4988)-JVS(30781)*XX(4989)-JVS(31224)*XX(5014)-JVS(31634)*XX(5039)-JVS(31660)*XX(5041)-JVS(31761)& - &*XX(5046)-JVS(31826)*XX(5048)-JVS(32572)*XX(5092)-JVS(32725)*XX(5099)-JVS(33162)*XX(5122)-JVS(36881)& - &*XX(5206)-JVS(36900)*XX(5207)-JVS(37688)*XX(5223)-JVS(37919)*XX(5228)-JVS(38620)*XX(5231)-JVS(40304)& - &*XX(5244)-JVS(40524)*XX(5247)-JVS(40576)*XX(5249)-JVS(44794)*XX(5250)-JVS(46340)*XX(5251)-JVS(47688)& - &*XX(5252)-JVS(49961)*XX(5253)-JVS(50260)*XX(5254)-JVS(52947)*XX(5255)-JVS(54551)*XX(5256)-JVS(54827)& - &*XX(5257)-JVS(55096)*XX(5258) - XX(4987) = XX(4987)-JVS(34989)*XX(5179)-JVS(36605)*XX(5201)-JVS(38619)*XX(5231)-JVS(40303)*XX(5244)-JVS(44793)& - &*XX(5250)-JVS(46339)*XX(5251)-JVS(47687)*XX(5252)-JVS(49960)*XX(5253)-JVS(52946)*XX(5255)-JVS(54550)& - &*XX(5256)-JVS(55095)*XX(5258) - XX(4986) = XX(4986)-JVS(32020)*XX(5059)-JVS(37583)*XX(5222)-JVS(37918)*XX(5228)-JVS(40302)*XX(5244)-JVS(44792)& - &*XX(5250)-JVS(46338)*XX(5251)-JVS(47686)*XX(5252)-JVS(49959)*XX(5253)-JVS(52945)*XX(5255)-JVS(54549)& - &*XX(5256)-JVS(55094)*XX(5258) - XX(4985) = XX(4985)-JVS(32749)*XX(5100)-JVS(37582)*XX(5222)-JVS(37917)*XX(5228)-JVS(38618)*XX(5231)-JVS(40301)& - &*XX(5244)-JVS(44791)*XX(5250)-JVS(46337)*XX(5251)-JVS(47685)*XX(5252)-JVS(49958)*XX(5253)-JVS(52944)& - &*XX(5255)-JVS(54548)*XX(5256) - XX(4984) = XX(4984)-JVS(32778)*XX(5101)-JVS(33368)*XX(5129)-JVS(36604)*XX(5201)-JVS(38617)*XX(5231)-JVS(39787)& - &*XX(5243)-JVS(44790)*XX(5250)-JVS(46336)*XX(5251)-JVS(47684)*XX(5252)-JVS(49957)*XX(5253)-JVS(52943)& - &*XX(5255)-JVS(54547)*XX(5256) - XX(4983) = XX(4983)-JVS(37234)*XX(5216)-JVS(44789)*XX(5250)-JVS(46335)*XX(5251)-JVS(52942)*XX(5255) - XX(4982) = XX(4982)-JVS(30682)*XX(4983)-JVS(31001)*XX(5001)-JVS(32748)*XX(5100)-JVS(37581)*XX(5222)-JVS(40300)& - &*XX(5244)-JVS(44788)*XX(5250)-JVS(46334)*XX(5251)-JVS(47683)*XX(5252)-JVS(49956)*XX(5253)-JVS(52941)& - &*XX(5255)-JVS(54546)*XX(5256) - XX(4981) = XX(4981)-JVS(33367)*XX(5129)-JVS(34460)*XX(5160)-JVS(37916)*XX(5228)-JVS(38616)*XX(5231)-JVS(44787)& - &*XX(5250)-JVS(47682)*XX(5252)-JVS(49955)*XX(5253)-JVS(52940)*XX(5255)-JVS(54545)*XX(5256) - XX(4980) = XX(4980)-JVS(30641)*XX(4981)-JVS(33804)*XX(5142)-JVS(34459)*XX(5160)-JVS(36603)*XX(5201)-JVS(38615)& - &*XX(5231)-JVS(44786)*XX(5250)-JVS(46333)*XX(5251)-JVS(47681)*XX(5252)-JVS(49954)*XX(5253)-JVS(52939)& - &*XX(5255)-JVS(54544)*XX(5256) - XX(4979) = XX(4979)-JVS(31177)*XX(5011)-JVS(34057)*XX(5151)-JVS(39631)*XX(5241)-JVS(40299)*XX(5244)-JVS(44785)& - &*XX(5250)-JVS(46332)*XX(5251)-JVS(47680)*XX(5252)-JVS(49953)*XX(5253)-JVS(52938)*XX(5255)-JVS(54543)& - &*XX(5256)-JVS(55093)*XX(5258) - XX(4978) = XX(4978)-JVS(34458)*XX(5160)-JVS(34988)*XX(5179)-JVS(36602)*XX(5201)-JVS(37055)*XX(5211)-JVS(44784)& - &*XX(5250)-JVS(46331)*XX(5251)-JVS(47679)*XX(5252)-JVS(49952)*XX(5253)-JVS(52937)*XX(5255)-JVS(54542)& - &*XX(5256)-JVS(55092)*XX(5258) - XX(4977) = XX(4977)-JVS(35314)*XX(5183)-JVS(35674)*XX(5191)-JVS(35949)*XX(5193)-JVS(40298)*XX(5244)-JVS(44783)& - &*XX(5250)-JVS(46330)*XX(5251)-JVS(47678)*XX(5252)-JVS(49951)*XX(5253)-JVS(52936)*XX(5255)-JVS(54541)& - &*XX(5256)-JVS(55091)*XX(5258) - XX(4976) = XX(4976)-JVS(34157)*XX(5156)-JVS(34723)*XX(5170)-JVS(34795)*XX(5172)-JVS(36601)*XX(5201)-JVS(36946)& - &*XX(5209)-JVS(37005)*XX(5210)-JVS(37580)*XX(5222)-JVS(38614)*XX(5231)-JVS(39126)*XX(5233)-JVS(39281)& - &*XX(5234)-JVS(39361)*XX(5235)-JVS(40297)*XX(5244)-JVS(44782)*XX(5250)-JVS(46329)*XX(5251)-JVS(47677)& - &*XX(5252)-JVS(49950)*XX(5253)-JVS(52935)*XX(5255)-JVS(54540)*XX(5256)-JVS(55090)*XX(5258) - XX(4975) = XX(4975)-JVS(30609)*XX(4979)-JVS(31176)*XX(5011)-JVS(33124)*XX(5120)-JVS(34056)*XX(5151)-JVS(36600)& - &*XX(5201)-JVS(36777)*XX(5202)-JVS(39630)*XX(5241)-JVS(40296)*XX(5244)-JVS(44781)*XX(5250)-JVS(46328)& - &*XX(5251)-JVS(47676)*XX(5252)-JVS(49949)*XX(5253)-JVS(52934)*XX(5255)-JVS(54539)*XX(5256)-JVS(55089)& - &*XX(5258) - XX(4974) = XX(4974)-JVS(30565)*XX(4975)-JVS(31158)*XX(5010)-JVS(31515)*XX(5032)-JVS(32044)*XX(5060)-JVS(32213)& - &*XX(5071)-JVS(32909)*XX(5106)-JVS(34457)*XX(5160)-JVS(36841)*XX(5203)-JVS(40295)*XX(5244)-JVS(44780)& - &*XX(5250)-JVS(46327)*XX(5251)-JVS(47675)*XX(5252)-JVS(49948)*XX(5253)-JVS(52933)*XX(5255)-JVS(54538)& - &*XX(5256) - XX(4973) = XX(4973)-JVS(36063)*XX(5195)-JVS(39726)*XX(5242)-JVS(40294)*XX(5244)-JVS(44779)*XX(5250)-JVS(52932)& - &*XX(5255) - XX(4972) = XX(4972)-JVS(33937)*XX(5145)-JVS(34226)*XX(5158)-JVS(36599)*XX(5201)-JVS(37997)*XX(5229)-JVS(38068)& - &*XX(5230)-JVS(38613)*XX(5231)-JVS(38868)*XX(5232)-JVS(39629)*XX(5241)-JVS(44778)*XX(5250)-JVS(46326)& - &*XX(5251)-JVS(47674)*XX(5252)-JVS(49947)*XX(5253)-JVS(52931)*XX(5255)-JVS(54537)*XX(5256)-JVS(55088)& - &*XX(5258) - XX(4971) = XX(4971)-JVS(32747)*XX(5100)-JVS(36144)*XX(5197)-JVS(36233)*XX(5199)-JVS(36598)*XX(5201)-JVS(37004)& - &*XX(5210)-JVS(37579)*XX(5222)-JVS(39125)*XX(5233)-JVS(40293)*XX(5244)-JVS(44777)*XX(5250)-JVS(46325)& - &*XX(5251)-JVS(47673)*XX(5252)-JVS(49946)*XX(5253)-JVS(52930)*XX(5255)-JVS(54536)*XX(5256)-JVS(55087)& - &*XX(5258) - XX(4970) = XX(4970)-JVS(31633)*XX(5039)-JVS(31760)*XX(5046)-JVS(37687)*XX(5223)-JVS(38612)*XX(5231)-JVS(44776)& - &*XX(5250)-JVS(46324)*XX(5251)-JVS(47672)*XX(5252)-JVS(49945)*XX(5253)-JVS(50259)*XX(5254)-JVS(52929)& - &*XX(5255)-JVS(54535)*XX(5256)-JVS(55086)*XX(5258) - XX(4969) = XX(4969)-JVS(34765)*XX(5171)-JVS(36597)*XX(5201)-JVS(38611)*XX(5231)-JVS(44775)*XX(5250)-JVS(46323)& - &*XX(5251)-JVS(47671)*XX(5252)-JVS(49944)*XX(5253)-JVS(52928)*XX(5255)-JVS(54534)*XX(5256) - XX(4968) = XX(4968)-JVS(30681)*XX(4983)-JVS(32746)*XX(5100)-JVS(36143)*XX(5197)-JVS(37915)*XX(5228)-JVS(40292)& - &*XX(5244)-JVS(44774)*XX(5250)-JVS(46322)*XX(5251)-JVS(47670)*XX(5252)-JVS(49943)*XX(5253)-JVS(52927)& - &*XX(5255)-JVS(54533)*XX(5256)-JVS(55085)*XX(5258) - XX(4967) = XX(4967)-JVS(31960)*XX(5057)-JVS(32777)*XX(5101)-JVS(32970)*XX(5110)-JVS(33366)*XX(5129)-JVS(37578)& - &*XX(5222)-JVS(38610)*XX(5231)-JVS(40291)*XX(5244)-JVS(44773)*XX(5250)-JVS(47669)*XX(5252)-JVS(49942)& - &*XX(5253)-JVS(52926)*XX(5255)-JVS(54532)*XX(5256) - XX(4966) = XX(4966)-JVS(30680)*XX(4983)-JVS(33684)*XX(5139)-JVS(35313)*XX(5183)-JVS(44772)*XX(5250)-JVS(46321)& - &*XX(5251)-JVS(47668)*XX(5252)-JVS(49941)*XX(5253)-JVS(52925)*XX(5255)-JVS(54531)*XX(5256) - XX(4965) = XX(4965)-JVS(32019)*XX(5059)-JVS(36596)*XX(5201)-JVS(44771)*XX(5250)-JVS(46320)*XX(5251)-JVS(47667)& - &*XX(5252)-JVS(49940)*XX(5253)-JVS(52924)*XX(5255)-JVS(54530)*XX(5256)-JVS(55084)*XX(5258) - XX(4964) = XX(4964)-JVS(30432)*XX(4965)-JVS(36595)*XX(5201)-JVS(44770)*XX(5250)-JVS(46319)*XX(5251)-JVS(47666)& - &*XX(5252)-JVS(49939)*XX(5253)-JVS(52923)*XX(5255)-JVS(54529)*XX(5256)-JVS(55083)*XX(5258) - XX(4963) = XX(4963)-JVS(31759)*XX(5046)-JVS(39628)*XX(5241)-JVS(39725)*XX(5242)-JVS(44769)*XX(5250)-JVS(46318)& - &*XX(5251)-JVS(47665)*XX(5252)-JVS(49938)*XX(5253)-JVS(50258)*XX(5254)-JVS(54528)*XX(5256) - XX(4962) = XX(4962)-JVS(30869)*XX(4995)-JVS(35387)*XX(5184)-JVS(44768)*XX(5250)-JVS(46317)*XX(5251)-JVS(47664)& - &*XX(5252)-JVS(49937)*XX(5253)-JVS(52922)*XX(5255)-JVS(54527)*XX(5256)-JVS(55082)*XX(5258) - XX(4961) = XX(4961)-JVS(36594)*XX(5201)-JVS(36840)*XX(5203)-JVS(44767)*XX(5250)-JVS(46316)*XX(5251)-JVS(47663)& - &*XX(5252)-JVS(49936)*XX(5253)-JVS(52921)*XX(5255)-JVS(54526)*XX(5256) - XX(4960) = XX(4960)-JVS(30706)*XX(4984)-JVS(34456)*XX(5160)-JVS(36593)*XX(5201)-JVS(37161)*XX(5214)-JVS(38609)& - &*XX(5231)-JVS(39786)*XX(5243)-JVS(44766)*XX(5250)-JVS(46315)*XX(5251)-JVS(47662)*XX(5252)-JVS(49935)& - &*XX(5253)-JVS(52920)*XX(5255)-JVS(54525)*XX(5256) - XX(4959) = XX(4959)-JVS(31201)*XX(5012)-JVS(34946)*XX(5178)-JVS(38608)*XX(5231)-JVS(44765)*XX(5250)-JVS(47661)& - &*XX(5252)-JVS(49934)*XX(5253)-JVS(52919)*XX(5255)-JVS(54524)*XX(5256) - XX(4958) = XX(4958)-JVS(37003)*XX(5210)-JVS(37577)*XX(5222)-JVS(38607)*XX(5231)-JVS(44764)*XX(5250)-JVS(49933)& - &*XX(5253)-JVS(52918)*XX(5255) - XX(4957) = XX(4957)-JVS(31045)*XX(5004)-JVS(32478)*XX(5086)-JVS(33019)*XX(5113)-JVS(38606)*XX(5231)-JVS(39280)& - &*XX(5234)-JVS(44763)*XX(5250)-JVS(46314)*XX(5251)-JVS(47660)*XX(5252)-JVS(49932)*XX(5253)-JVS(52917)& - &*XX(5255)-JVS(54523)*XX(5256)-JVS(55081)*XX(5258) - XX(4956) = XX(4956)-JVS(31758)*XX(5046)-JVS(37996)*XX(5229)-JVS(38067)*XX(5230)-JVS(44762)*XX(5250)-JVS(46313)& - &*XX(5251)-JVS(47659)*XX(5252)-JVS(49931)*XX(5253)-JVS(50257)*XX(5254)-JVS(54522)*XX(5256) - XX(4955) = XX(4955)-JVS(33467)*XX(5134)-JVS(37735)*XX(5224)-JVS(38605)*XX(5231)-JVS(38867)*XX(5232)-JVS(40290)& - &*XX(5244)-JVS(44761)*XX(5250)-JVS(46312)*XX(5251)-JVS(47658)*XX(5252)-JVS(49930)*XX(5253)-JVS(52916)& - &*XX(5255)-JVS(54521)*XX(5256)-JVS(55080)*XX(5258) - XX(4954) = XX(4954)-JVS(38604)*XX(5231)-JVS(39279)*XX(5234)-JVS(44760)*XX(5250)-JVS(46311)*XX(5251)-JVS(47657)& - &*XX(5252)-JVS(49929)*XX(5253)-JVS(52915)*XX(5255)-JVS(54520)*XX(5256)-JVS(55079)*XX(5258) - XX(4953) = XX(4953)-JVS(31087)*XX(5006)-JVS(31422)*XX(5027)-JVS(32397)*XX(5083)-JVS(32638)*XX(5095)-JVS(35448)& - &*XX(5187)-JVS(44759)*XX(5250)-JVS(46310)*XX(5251)-JVS(47656)*XX(5252)-JVS(49928)*XX(5253)-JVS(52914)& - &*XX(5255)-JVS(54519)*XX(5256)-JVS(55078)*XX(5258) - XX(4952) = XX(4952)-JVS(31281)*XX(5018)-JVS(31757)*XX(5046)-JVS(38603)*XX(5231)-JVS(40289)*XX(5244)-JVS(44758)& - &*XX(5250)-JVS(46309)*XX(5251)-JVS(47655)*XX(5252)-JVS(49927)*XX(5253)-JVS(50256)*XX(5254)-JVS(52913)& - &*XX(5255)-JVS(54518)*XX(5256)-JVS(55077)*XX(5258) - XX(4951) = XX(4951)-JVS(31756)*XX(5046)-JVS(36592)*XX(5201)-JVS(39360)*XX(5235)-JVS(44757)*XX(5250)-JVS(46308)& - &*XX(5251)-JVS(47654)*XX(5252)-JVS(49926)*XX(5253)-JVS(50255)*XX(5254)-JVS(52912)*XX(5255)-JVS(54517)& - &*XX(5256)-JVS(55076)*XX(5258) - XX(4950) = XX(4950)-JVS(30220)*XX(4951)-JVS(30233)*XX(4952)-JVS(31989)*XX(5058)-JVS(32279)*XX(5076)-JVS(33202)& - &*XX(5123)-JVS(36142)*XX(5197)-JVS(37576)*XX(5222)-JVS(38602)*XX(5231)-JVS(39124)*XX(5233)-JVS(39627)& - &*XX(5241)-JVS(40288)*XX(5244)-JVS(44756)*XX(5250)-JVS(46307)*XX(5251)-JVS(47653)*XX(5252)-JVS(49925)& - &*XX(5253)-JVS(52911)*XX(5255)-JVS(54516)*XX(5256)-JVS(55075)*XX(5258) - XX(4949) = XX(4949)-JVS(33141)*XX(5121)-JVS(35514)*XX(5188)-JVS(44755)*XX(5250)-JVS(46306)*XX(5251)-JVS(47652)& - &*XX(5252)-JVS(49924)*XX(5253)-JVS(52910)*XX(5255)-JVS(54515)*XX(5256)-JVS(55074)*XX(5258) - XX(4948) = XX(4948)-JVS(31587)*XX(5037)-JVS(36141)*XX(5197)-JVS(37575)*XX(5222)-JVS(37914)*XX(5228)-JVS(40287)& - &*XX(5244)-JVS(44754)*XX(5250)-JVS(46305)*XX(5251)-JVS(47651)*XX(5252)-JVS(49923)*XX(5253)-JVS(52909)& - &*XX(5255)-JVS(54514)*XX(5256)-JVS(55073)*XX(5258) - XX(4947) = XX(4947)-JVS(36140)*XX(5197)-JVS(37574)*XX(5222)-JVS(40286)*XX(5244)-JVS(44753)*XX(5250)-JVS(46304)& - &*XX(5251)-JVS(47650)*XX(5252)-JVS(49922)*XX(5253)-JVS(52908)*XX(5255)-JVS(54513)*XX(5256) - XX(4946) = XX(4946)-JVS(32745)*XX(5100)-JVS(33683)*XX(5139)-JVS(33803)*XX(5142)-JVS(38601)*XX(5231)-JVS(40285)& - &*XX(5244)-JVS(44752)*XX(5250)-JVS(46303)*XX(5251)-JVS(47649)*XX(5252)-JVS(49921)*XX(5253)-JVS(52907)& - &*XX(5255)-JVS(54512)*XX(5256)-JVS(55072)*XX(5258) - XX(4945) = XX(4945)-JVS(30320)*XX(4958)-JVS(34099)*XX(5152)-JVS(34141)*XX(5155)-JVS(34671)*XX(5167)-JVS(34794)& - &*XX(5172)-JVS(35028)*XX(5180)-JVS(35513)*XX(5188)-JVS(36232)*XX(5199)-JVS(38600)*XX(5231)-JVS(39123)& - &*XX(5233)-JVS(40284)*XX(5244)-JVS(44751)*XX(5250)-JVS(46302)*XX(5251)-JVS(47648)*XX(5252)-JVS(49920)& - &*XX(5253)-JVS(52906)*XX(5255)-JVS(54511)*XX(5256)-JVS(55071)*XX(5258) - XX(4944) = XX(4944)-JVS(36924)*XX(5208)-JVS(38066)*XX(5230)-JVS(44750)*XX(5250)-JVS(46301)*XX(5251)-JVS(47647)& - &*XX(5252)-JVS(49919)*XX(5253)-JVS(52905)*XX(5255)-JVS(54510)*XX(5256)-JVS(55070)*XX(5258) - XX(4943) = XX(4943)-JVS(31755)*XX(5046)-JVS(35948)*XX(5193)-JVS(37913)*XX(5228)-JVS(44749)*XX(5250)-JVS(46300)& - &*XX(5251)-JVS(47646)*XX(5252)-JVS(49918)*XX(5253)-JVS(50254)*XX(5254)-JVS(54509)*XX(5256) - XX(4942) = XX(4942)-JVS(33048)*XX(5115)-JVS(33725)*XX(5140)-JVS(34563)*XX(5162)-JVS(44748)*XX(5250)-JVS(47645)& - &*XX(5252)-JVS(49917)*XX(5253)-JVS(52904)*XX(5255)-JVS(54508)*XX(5256) - XX(4941) = XX(4941)-JVS(31754)*XX(5046)-JVS(33802)*XX(5142)-JVS(35673)*XX(5191)-JVS(44747)*XX(5250)-JVS(46299)& - &*XX(5251)-JVS(47644)*XX(5252)-JVS(49916)*XX(5253)-JVS(50253)*XX(5254)-JVS(54507)*XX(5256) - XX(4940) = XX(4940)-JVS(40523)*XX(5247)-JVS(44746)*XX(5250)-JVS(47643)*XX(5252)-JVS(49915)*XX(5253)-JVS(52903)& - &*XX(5255)-JVS(54506)*XX(5256) - XX(4939) = XX(4939)-JVS(34225)*XX(5158)-JVS(36591)*XX(5201)-JVS(44745)*XX(5250)-JVS(46298)*XX(5251)-JVS(52902)& - &*XX(5255)-JVS(54505)*XX(5256) - XX(4938) = XX(4938)-JVS(36139)*XX(5197)-JVS(40283)*XX(5244)-JVS(44744)*XX(5250) - XX(4937) = XX(4937)-JVS(29988)*XX(4938)-JVS(30232)*XX(4952)-JVS(32278)*XX(5076)-JVS(32696)*XX(5098)-JVS(33201)& - &*XX(5123)-JVS(36590)*XX(5201)-JVS(37573)*XX(5222)-JVS(37912)*XX(5228)-JVS(38599)*XX(5231)-JVS(39122)& - &*XX(5233)-JVS(40282)*XX(5244)-JVS(44743)*XX(5250)-JVS(46297)*XX(5251)-JVS(47642)*XX(5252)-JVS(49914)& - &*XX(5253)-JVS(52901)*XX(5255)-JVS(54504)*XX(5256)-JVS(55069)*XX(5258) - XX(4936) = XX(4936)-JVS(32605)*XX(5094)-JVS(35512)*XX(5188)-JVS(37343)*XX(5221)-JVS(44742)*XX(5250)-JVS(46296)& - &*XX(5251)-JVS(47641)*XX(5252)-JVS(49913)*XX(5253)-JVS(52900)*XX(5255)-JVS(54503)*XX(5256) - XX(4935) = XX(4935)-JVS(30723)*XX(4985)-JVS(31175)*XX(5011)-JVS(31499)*XX(5031)-JVS(32540)*XX(5089)-JVS(37572)& - &*XX(5222)-JVS(40281)*XX(5244)-JVS(44741)*XX(5250)-JVS(46295)*XX(5251)-JVS(47640)*XX(5252)-JVS(49912)& - &*XX(5253)-JVS(52899)*XX(5255)-JVS(54502)*XX(5256) - XX(4934) = XX(4934)-JVS(31174)*XX(5011)-JVS(33123)*XX(5120)-JVS(36776)*XX(5202)-JVS(39626)*XX(5241)-JVS(40280)& - &*XX(5244)-JVS(44740)*XX(5250)-JVS(46294)*XX(5251)-JVS(47639)*XX(5252)-JVS(49911)*XX(5253)-JVS(52898)& - &*XX(5255)-JVS(54501)*XX(5256)-JVS(55068)*XX(5258) - XX(4933) = XX(4933)-JVS(33682)*XX(5139)-JVS(34187)*XX(5157)-JVS(35312)*XX(5183)-JVS(35947)*XX(5193)-JVS(36589)& - &*XX(5201)-JVS(37571)*XX(5222)-JVS(40279)*XX(5244)-JVS(44739)*XX(5250)-JVS(46293)*XX(5251)-JVS(47638)& - &*XX(5252)-JVS(49910)*XX(5253)-JVS(52897)*XX(5255)-JVS(54500)*XX(5256)-JVS(55067)*XX(5258) - XX(4932) = XX(4932)-JVS(31613)*XX(5038)-JVS(34098)*XX(5152)-JVS(35027)*XX(5180)-JVS(36588)*XX(5201)-JVS(38598)& - &*XX(5231)-JVS(39121)*XX(5233)-JVS(39278)*XX(5234)-JVS(44738)*XX(5250)-JVS(46292)*XX(5251)-JVS(47637)& - &*XX(5252)-JVS(49909)*XX(5253)-JVS(52896)*XX(5255)-JVS(54499)*XX(5256)-JVS(55066)*XX(5258) - XX(4931) = XX(4931)-JVS(32908)*XX(5106)-JVS(36587)*XX(5201)-JVS(44737)*XX(5250)-JVS(46291)*XX(5251)-JVS(52895)& - &*XX(5255)-JVS(54498)*XX(5256) - XX(4930) = XX(4930)-JVS(29852)*XX(4931)-JVS(32018)*XX(5059)-JVS(33936)*XX(5145)-JVS(44736)*XX(5250)-JVS(46290)& - &*XX(5251)-JVS(47636)*XX(5252)-JVS(49908)*XX(5253)-JVS(52894)*XX(5255)-JVS(54497)*XX(5256)-JVS(55065)& - &*XX(5258) - XX(4929) = XX(4929)-JVS(38597)*XX(5231)-JVS(40278)*XX(5244)-JVS(44735)*XX(5250)-JVS(47635)*XX(5252)-JVS(49907)& - &*XX(5253)-JVS(52893)*XX(5255)-JVS(54496)*XX(5256) - XX(4928) = XX(4928)-JVS(29851)*XX(4931)-JVS(30679)*XX(4983)-JVS(31612)*XX(5038)-JVS(32907)*XX(5106)-JVS(33284)& - &*XX(5125)-JVS(36586)*XX(5201)-JVS(39120)*XX(5233)-JVS(44734)*XX(5250)-JVS(46289)*XX(5251)-JVS(47634)& - &*XX(5252)-JVS(49906)*XX(5253)-JVS(52892)*XX(5255)-JVS(54495)*XX(5256)-JVS(55064)*XX(5258) - XX(4927) = XX(4927)-JVS(36585)*XX(5201)-JVS(38596)*XX(5231)-JVS(40277)*XX(5244)-JVS(44733)*XX(5250)-JVS(46288)& - &*XX(5251)-JVS(47633)*XX(5252)-JVS(49905)*XX(5253)-JVS(52891)*XX(5255)-JVS(54494)*XX(5256)-JVS(55063)& - &*XX(5258) - XX(4926) = XX(4926)-JVS(31044)*XX(5004)-JVS(32477)*XX(5086)-JVS(38595)*XX(5231)-JVS(44732)*XX(5250)-JVS(46287)& - &*XX(5251)-JVS(47632)*XX(5252)-JVS(49904)*XX(5253)-JVS(52890)*XX(5255)-JVS(54493)*XX(5256)-JVS(55062)& - &*XX(5258) - XX(4925) = XX(4925)-JVS(30486)*XX(4969)-JVS(31451)*XX(5029)-JVS(32989)*XX(5111)-JVS(34455)*XX(5160)-JVS(34764)& - &*XX(5171)-JVS(36584)*XX(5201)-JVS(37111)*XX(5213)-JVS(40276)*XX(5244)-JVS(44731)*XX(5250)-JVS(46286)& - &*XX(5251)-JVS(47631)*XX(5252)-JVS(49903)*XX(5253)-JVS(52889)*XX(5255)-JVS(54492)*XX(5256) - XX(4924) = XX(4924)-JVS(35946)*XX(5193)-JVS(44730)*XX(5250)-JVS(46285)*XX(5251)-JVS(47630)*XX(5252)-JVS(49902)& - &*XX(5253)-JVS(52888)*XX(5255)-JVS(54491)*XX(5256) - XX(4923) = XX(4923)-JVS(29746)*XX(4924)-JVS(32506)*XX(5087)-JVS(35945)*XX(5193)-JVS(36583)*XX(5201)-JVS(37570)& - &*XX(5222)-JVS(39119)*XX(5233)-JVS(40275)*XX(5244)-JVS(44729)*XX(5250)-JVS(46284)*XX(5251)-JVS(47629)& - &*XX(5252)-JVS(49901)*XX(5253)-JVS(52887)*XX(5255)-JVS(54490)*XX(5256) - XX(4922) = XX(4922)-JVS(29729)*XX(4923)-JVS(35944)*XX(5193)-JVS(36582)*XX(5201)-JVS(37002)*XX(5210)-JVS(37569)& - &*XX(5222)-JVS(39118)*XX(5233)-JVS(40274)*XX(5244)-JVS(44728)*XX(5250)-JVS(46283)*XX(5251)-JVS(47628)& - &*XX(5252)-JVS(49900)*XX(5253)-JVS(52886)*XX(5255)-JVS(54489)*XX(5256)-JVS(55061)*XX(5258) - XX(4921) = XX(4921)-JVS(30045)*XX(4940)-JVS(31632)*XX(5039)-JVS(40522)*XX(5247)-JVS(44727)*XX(5250)-JVS(46282)& - &*XX(5251)-JVS(47627)*XX(5252)-JVS(49899)*XX(5253)-JVS(52885)*XX(5255)-JVS(54488)*XX(5256)-JVS(55060)& - &*XX(5258) - XX(4920) = XX(4920)-JVS(35311)*XX(5183)-JVS(35672)*XX(5191)-JVS(35943)*XX(5193)-JVS(40273)*XX(5244)-JVS(44726)& - &*XX(5250)-JVS(46281)*XX(5251)-JVS(47626)*XX(5252)-JVS(49898)*XX(5253)-JVS(52884)*XX(5255)-JVS(54487)& - &*XX(5256) - XX(4919) = XX(4919)-JVS(30416)*XX(4964)-JVS(30431)*XX(4965)-JVS(31753)*XX(5046)-JVS(44725)*XX(5250)-JVS(46280)& - &*XX(5251)-JVS(47625)*XX(5252)-JVS(49897)*XX(5253)-JVS(50252)*XX(5254)-JVS(52883)*XX(5255)-JVS(54486)& - &*XX(5256) - XX(4918) = XX(4918)-JVS(33283)*XX(5125)-JVS(36581)*XX(5201)-JVS(44724)*XX(5250)-JVS(46279)*XX(5251)-JVS(52882)& - &*XX(5255)-JVS(54485)*XX(5256) - XX(4917) = XX(4917)-JVS(29666)*XX(4918)-JVS(32017)*XX(5059)-JVS(37995)*XX(5229)-JVS(44723)*XX(5250)-JVS(46278)& - &*XX(5251)-JVS(47624)*XX(5252)-JVS(49896)*XX(5253)-JVS(52881)*XX(5255)-JVS(54484)*XX(5256)-JVS(55059)& - &*XX(5258) - XX(4916) = XX(4916)-JVS(30678)*XX(4983)-JVS(32016)*XX(5059)-JVS(39117)*XX(5233)-JVS(44722)*XX(5250)-JVS(46277)& - &*XX(5251)-JVS(47623)*XX(5252)-JVS(49895)*XX(5253)-JVS(52880)*XX(5255)-JVS(54483)*XX(5256)-JVS(55058)& - &*XX(5258) - XX(4915) = XX(4915)-JVS(32505)*XX(5087)-JVS(35942)*XX(5193)-JVS(37568)*XX(5222)-JVS(44721)*XX(5250)-JVS(46276)& - &*XX(5251)-JVS(47622)*XX(5252)-JVS(49894)*XX(5253)-JVS(52879)*XX(5255)-JVS(54482)*XX(5256)-JVS(55057)& - &*XX(5258) - XX(4914) = XX(4914)-JVS(34454)*XX(5160)-JVS(35110)*XX(5182)-JVS(36580)*XX(5201)-JVS(40272)*XX(5244)-JVS(44720)& - &*XX(5250)-JVS(46275)*XX(5251)-JVS(47621)*XX(5252)-JVS(49893)*XX(5253)-JVS(52878)*XX(5255)-JVS(54481)& - &*XX(5256) - XX(4913) = XX(4913)-JVS(36231)*XX(5199)-JVS(37567)*XX(5222)-JVS(39116)*XX(5233)-JVS(40271)*XX(5244)-JVS(44719)& - &*XX(5250)-JVS(46274)*XX(5251)-JVS(47620)*XX(5252)-JVS(49892)*XX(5253)-JVS(52877)*XX(5255)-JVS(54480)& - &*XX(5256) - XX(4912) = XX(4912)-JVS(31752)*XX(5046)-JVS(36190)*XX(5198)-JVS(37110)*XX(5213)-JVS(44718)*XX(5250)-JVS(46273)& - &*XX(5251)-JVS(47619)*XX(5252)-JVS(49891)*XX(5253)-JVS(50251)*XX(5254)-JVS(52876)*XX(5255)-JVS(54479)& - &*XX(5256) - XX(4911) = XX(4911)-JVS(29599)*XX(4915)-JVS(30194)*XX(4949)-JVS(30815)*XX(4991)-JVS(31498)*XX(5031)-JVS(32906)& - &*XX(5106)-JVS(35941)*XX(5193)-JVS(36579)*XX(5201)-JVS(40270)*XX(5244)-JVS(44717)*XX(5250)-JVS(46272)& - &*XX(5251)-JVS(47618)*XX(5252)-JVS(49890)*XX(5253)-JVS(52875)*XX(5255)-JVS(54478)*XX(5256) - XX(4910) = XX(4910)-JVS(31318)*XX(5021)-JVS(32476)*XX(5086)-JVS(34453)*XX(5160)-JVS(44716)*XX(5250)-JVS(46271)& - &*XX(5251)-JVS(47617)*XX(5252)-JVS(49889)*XX(5253)-JVS(52874)*XX(5255)-JVS(54477)*XX(5256)-JVS(55056)& - &*XX(5258) - XX(4909) = XX(4909)-JVS(37566)*XX(5222)-JVS(38594)*XX(5231)-JVS(40269)*XX(5244)-JVS(44715)*XX(5250)-JVS(49888)& - &*XX(5253) - XX(4908) = XX(4908)-JVS(30963)*XX(5000)-JVS(31751)*XX(5046)-JVS(34452)*XX(5160)-JVS(44714)*XX(5250)-JVS(46270)& - &*XX(5251)-JVS(47616)*XX(5252)-JVS(49887)*XX(5253)-JVS(50250)*XX(5254)-JVS(52873)*XX(5255)-JVS(54476)& - &*XX(5256) - XX(4907) = XX(4907)-JVS(29574)*XX(4913)-JVS(30394)*XX(4963)-JVS(33326)*XX(5127)-JVS(34451)*XX(5160)-JVS(36031)& - &*XX(5194)-JVS(37686)*XX(5223)-JVS(38593)*XX(5231)-JVS(39625)*XX(5241)-JVS(39724)*XX(5242)-JVS(40268)& - &*XX(5244)-JVS(44713)*XX(5250)-JVS(46269)*XX(5251)-JVS(47615)*XX(5252)-JVS(49886)*XX(5253)-JVS(52872)& - &*XX(5255)-JVS(54475)*XX(5256)-JVS(55055)*XX(5258) - XX(4906) = XX(4906)-JVS(31750)*XX(5046)-JVS(37805)*XX(5226)-JVS(37911)*XX(5228)-JVS(38592)*XX(5231)-JVS(40267)& - &*XX(5244)-JVS(44712)*XX(5250)-JVS(46268)*XX(5251)-JVS(47614)*XX(5252)-JVS(49885)*XX(5253)-JVS(50249)& - &*XX(5254)-JVS(54474)*XX(5256) - XX(4905) = XX(4905)-JVS(31000)*XX(5001)-JVS(32604)*XX(5094)-JVS(32824)*XX(5103)-JVS(35310)*XX(5183)-JVS(37565)& - &*XX(5222)-JVS(44711)*XX(5250)-JVS(46267)*XX(5251)-JVS(47613)*XX(5252)-JVS(49884)*XX(5253)-JVS(52871)& - &*XX(5255)-JVS(54473)*XX(5256) - XX(4904) = XX(4904)-JVS(32744)*XX(5100)-JVS(44710)*XX(5250)-JVS(47612)*XX(5252)-JVS(49883)*XX(5253)-JVS(52870)& - &*XX(5255)-JVS(54472)*XX(5256) - XX(4903) = XX(4903)-JVS(32969)*XX(5110)-JVS(34450)*XX(5160)-JVS(38591)*XX(5231)-JVS(39624)*XX(5241)-JVS(39723)& - &*XX(5242)-JVS(39785)*XX(5243)-JVS(44709)*XX(5250)-JVS(47611)*XX(5252)-JVS(49882)*XX(5253)-JVS(52869)& - &*XX(5255)-JVS(54471)*XX(5256) - XX(4902) = XX(4902)-JVS(34763)*XX(5171)-JVS(36578)*XX(5201)-JVS(44708)*XX(5250)-JVS(46266)*XX(5251)-JVS(52868)& - &*XX(5255)-JVS(54470)*XX(5256) - XX(4901) = XX(4901)-JVS(32668)*XX(5097)-JVS(33066)*XX(5116)-JVS(33935)*XX(5145)-JVS(34449)*XX(5160)-JVS(35940)& - &*XX(5193)-JVS(40266)*XX(5244)-JVS(44707)*XX(5250)-JVS(47610)*XX(5252)-JVS(49881)*XX(5253)-JVS(52867)& - &*XX(5255)-JVS(54469)*XX(5256) - XX(4900) = XX(4900)-JVS(32475)*XX(5086)-JVS(37160)*XX(5214)-JVS(38590)*XX(5231)-JVS(39115)*XX(5233)-JVS(39460)& - &*XX(5237)-JVS(44706)*XX(5250)-JVS(46265)*XX(5251)-JVS(47609)*XX(5252)-JVS(49880)*XX(5253)-JVS(52866)& - &*XX(5255)-JVS(54468)*XX(5256) - XX(4899) = XX(4899)-JVS(29987)*XX(4938)-JVS(30164)*XX(4947)-JVS(31586)*XX(5037)-JVS(37564)*XX(5222)-JVS(40265)& - &*XX(5244)-JVS(44705)*XX(5250)-JVS(46264)*XX(5251)-JVS(47608)*XX(5252)-JVS(49879)*XX(5253)-JVS(52865)& - &*XX(5255)-JVS(54467)*XX(5256) - XX(4898) = XX(4898)-JVS(34448)*XX(5160)-JVS(36577)*XX(5201)-JVS(37159)*XX(5214)-JVS(38589)*XX(5231)-JVS(38866)& - &*XX(5232)-JVS(44704)*XX(5250)-JVS(46263)*XX(5251)-JVS(47607)*XX(5252)-JVS(49878)*XX(5253)-JVS(52864)& - &*XX(5255)-JVS(54466)*XX(5256) - XX(4897) = XX(4897)-JVS(31538)*XX(5034)-JVS(33316)*XX(5126)-JVS(35309)*XX(5183)-JVS(36230)*XX(5199)-JVS(40264)& - &*XX(5244)-JVS(44703)*XX(5250)-JVS(46262)*XX(5251)-JVS(47606)*XX(5252)-JVS(49877)*XX(5253)-JVS(52863)& - &*XX(5255)-JVS(54465)*XX(5256) - XX(4896) = XX(4896)-JVS(32143)*XX(5067)-JVS(33681)*XX(5139)-JVS(35671)*XX(5191)-JVS(36576)*XX(5201)-JVS(44702)& - &*XX(5250)-JVS(46261)*XX(5251)-JVS(47605)*XX(5252)-JVS(49876)*XX(5253)-JVS(52862)*XX(5255)-JVS(54464)& - &*XX(5256)-JVS(55054)*XX(5258) - XX(4895) = XX(4895)-JVS(35939)*XX(5193)-JVS(36575)*XX(5201)-JVS(38588)*XX(5231)-JVS(40263)*XX(5244)-JVS(44701)& - &*XX(5250)-JVS(46260)*XX(5251)-JVS(47604)*XX(5252)-JVS(49875)*XX(5253)-JVS(52861)*XX(5255)-JVS(54463)& - &*XX(5256)-JVS(55053)*XX(5258) - XX(4894) = XX(4894)-JVS(34670)*XX(5167)-JVS(35511)*XX(5188)-JVS(37001)*XX(5210)-JVS(37563)*XX(5222)-JVS(39114)& - &*XX(5233)-JVS(44700)*XX(5250)-JVS(46259)*XX(5251)-JVS(47603)*XX(5252)-JVS(49874)*XX(5253)-JVS(52860)& - &*XX(5255)-JVS(54462)*XX(5256) - XX(4893) = XX(4893)-JVS(30999)*XX(5001)-JVS(31585)*XX(5037)-JVS(32603)*XX(5094)-JVS(37562)*XX(5222)-JVS(40262)& - &*XX(5244)-JVS(44699)*XX(5250)-JVS(46258)*XX(5251)-JVS(47602)*XX(5252)-JVS(49873)*XX(5253)-JVS(52859)& - &*XX(5255)-JVS(54461)*XX(5256) - XX(4892) = XX(4892)-JVS(30751)*XX(4986)-JVS(33200)*XX(5123)-JVS(37910)*XX(5228)-JVS(40261)*XX(5244)-JVS(44698)& - &*XX(5250)-JVS(46257)*XX(5251)-JVS(47601)*XX(5252)-JVS(49872)*XX(5253)-JVS(52858)*XX(5255)-JVS(54460)& - &*XX(5256)-JVS(55052)*XX(5258) - XX(4891) = XX(4891)-JVS(33343)*XX(5128)-JVS(34987)*XX(5179)-JVS(35510)*XX(5188)-JVS(37804)*XX(5226)-JVS(40485)& - &*XX(5246)-JVS(44697)*XX(5250)-JVS(46256)*XX(5251)-JVS(47600)*XX(5252)-JVS(49871)*XX(5253)-JVS(52857)& - &*XX(5255)-JVS(54459)*XX(5256) - XX(4890) = XX(4890)-JVS(29986)*XX(4938)-JVS(30534)*XX(4973)-JVS(35938)*XX(5193)-JVS(39277)*XX(5234)-JVS(39722)& - &*XX(5242)-JVS(40260)*XX(5244)-JVS(44696)*XX(5250)-JVS(47599)*XX(5252)-JVS(49870)*XX(5253)-JVS(52856)& - &*XX(5255)-JVS(54458)*XX(5256) - XX(4889) = XX(4889)-JVS(31888)*XX(5053)-JVS(33507)*XX(5136)-JVS(33556)*XX(5137)-JVS(34010)*XX(5149)-JVS(38865)& - &*XX(5232)-JVS(44695)*XX(5250)-JVS(46255)*XX(5251)-JVS(47598)*XX(5252)-JVS(49869)*XX(5253)-JVS(52855)& - &*XX(5255)-JVS(54457)*XX(5256) - XX(4888) = XX(4888)-JVS(29985)*XX(4938)-JVS(37909)*XX(5228)-JVS(38587)*XX(5231)-JVS(40259)*XX(5244)-JVS(44694)& - &*XX(5250)-JVS(46254)*XX(5251)-JVS(47597)*XX(5252)-JVS(49868)*XX(5253)-JVS(52854)*XX(5255)-JVS(54456)& - &*XX(5256)-JVS(55051)*XX(5258) - XX(4887) = XX(4887)-JVS(29984)*XX(4938)-JVS(30163)*XX(4947)-JVS(33199)*XX(5123)-JVS(37561)*XX(5222)-JVS(40258)& - &*XX(5244)-JVS(44693)*XX(5250)-JVS(46253)*XX(5251)-JVS(47596)*XX(5252)-JVS(49867)*XX(5253)-JVS(52853)& - &*XX(5255)-JVS(54455)*XX(5256) - XX(4886) = XX(4886)-JVS(29384)*XX(4901)-JVS(30850)*XX(4994)-JVS(31404)*XX(5026)-JVS(33140)*XX(5121)-JVS(36574)& - &*XX(5201)-JVS(40257)*XX(5244)-JVS(44692)*XX(5250)-JVS(46252)*XX(5251)-JVS(47595)*XX(5252)-JVS(49866)& - &*XX(5253)-JVS(52852)*XX(5255)-JVS(54454)*XX(5256)-JVS(55050)*XX(5258) - XX(4885) = XX(4885)-JVS(30023)*XX(4939)-JVS(34224)*XX(5158)-JVS(34601)*XX(5164)-JVS(36775)*XX(5202)-JVS(38586)& - &*XX(5231)-JVS(38864)*XX(5232)-JVS(39623)*XX(5241)-JVS(44691)*XX(5250)-JVS(46251)*XX(5251)-JVS(47594)& - &*XX(5252)-JVS(49865)*XX(5253)-JVS(52851)*XX(5255)-JVS(54453)*XX(5256) - XX(4884) = XX(4884)-JVS(32968)*XX(5110)-JVS(33282)*XX(5125)-JVS(34223)*XX(5158)-JVS(34600)*XX(5164)-JVS(35937)& - &*XX(5193)-JVS(36138)*XX(5197)-JVS(38065)*XX(5230)-JVS(40256)*XX(5244)-JVS(44690)*XX(5250)-JVS(47593)& - &*XX(5252)-JVS(49864)*XX(5253)-JVS(52850)*XX(5255)-JVS(54452)*XX(5256) - XX(4883) = XX(4883)-JVS(30294)*XX(4957)-JVS(30893)*XX(4996)-JVS(33018)*XX(5113)-JVS(38585)*XX(5231)-JVS(39276)& - &*XX(5234)-JVS(44689)*XX(5250)-JVS(46250)*XX(5251)-JVS(47592)*XX(5252)-JVS(49863)*XX(5253)-JVS(52849)& - &*XX(5255)-JVS(54451)*XX(5256) - XX(4882) = XX(4882)-JVS(29194)*XX(4883)-JVS(30381)*XX(4962)-JVS(30868)*XX(4995)-JVS(30892)*XX(4996)-JVS(35109)& - &*XX(5182)-JVS(36573)*XX(5201)-JVS(37054)*XX(5211)-JVS(44688)*XX(5250)-JVS(46249)*XX(5251)-JVS(47591)& - &*XX(5252)-JVS(49862)*XX(5253)-JVS(52848)*XX(5255)-JVS(54450)*XX(5256) - XX(4881) = XX(4881)-JVS(29850)*XX(4931)-JVS(33934)*XX(5145)-JVS(36572)*XX(5201)-JVS(36839)*XX(5203)-JVS(38584)& - &*XX(5231)-JVS(38863)*XX(5232)-JVS(44687)*XX(5250)-JVS(46248)*XX(5251)-JVS(47590)*XX(5252)-JVS(49861)& - &*XX(5253)-JVS(52847)*XX(5255)-JVS(54449)*XX(5256)-JVS(55049)*XX(5258) - XX(4880) = XX(4880)-JVS(29549)*XX(4911)-JVS(30814)*XX(4991)-JVS(33139)*XX(5121)-JVS(35308)*XX(5183)-JVS(35936)& - &*XX(5193)-JVS(36571)*XX(5201)-JVS(40255)*XX(5244)-JVS(44686)*XX(5250)-JVS(46247)*XX(5251)-JVS(47589)& - &*XX(5252)-JVS(49860)*XX(5253)-JVS(52846)*XX(5255)-JVS(54448)*XX(5256) - XX(4879) = XX(4879)-JVS(29252)*XX(4889)-JVS(34646)*XX(5165)-JVS(36570)*XX(5201)-JVS(36923)*XX(5208)-JVS(38583)& - &*XX(5231)-JVS(38862)*XX(5232)-JVS(44685)*XX(5250)-JVS(46246)*XX(5251)-JVS(47588)*XX(5252)-JVS(49859)& - &*XX(5253)-JVS(52845)*XX(5255)-JVS(54447)*XX(5256)-JVS(55048)*XX(5258) - XX(4878) = XX(4878)-JVS(29264)*XX(4890)-JVS(30340)*XX(4959)-JVS(31200)*XX(5012)-JVS(32523)*XX(5088)-JVS(34945)& - &*XX(5178)-JVS(35670)*XX(5191)-JVS(36569)*XX(5201)-JVS(44684)*XX(5250)-JVS(46245)*XX(5251)-JVS(47587)& - &*XX(5252)-JVS(49858)*XX(5253)-JVS(52844)*XX(5255)-JVS(54446)*XX(5256) - XX(4877) = XX(4877)-JVS(30451)*XX(4966)-JVS(31611)*XX(5038)-JVS(33680)*XX(5139)-JVS(35307)*XX(5183)-JVS(35935)& - &*XX(5193)-JVS(37233)*XX(5216)-JVS(39113)*XX(5233)-JVS(44683)*XX(5250)-JVS(46244)*XX(5251)-JVS(47586)& - &*XX(5252)-JVS(49857)*XX(5253)-JVS(52843)*XX(5255)-JVS(54445)*XX(5256) - XX(4876) = XX(4876)-JVS(30813)*XX(4991)-JVS(33801)*XX(5142)-JVS(34534)*XX(5161)-JVS(35306)*XX(5183)-JVS(35426)& - &*XX(5185)-JVS(35669)*XX(5191)-JVS(35934)*XX(5193)-JVS(40254)*XX(5244)-JVS(44682)*XX(5250)-JVS(47585)& - &*XX(5252)-JVS(49856)*XX(5253)-JVS(52842)*XX(5255)-JVS(54444)*XX(5256) - XX(4875) = XX(4875)-JVS(37232)*XX(5216)-JVS(38582)*XX(5231)-JVS(44681)*XX(5250)-JVS(46243)*XX(5251)-JVS(47584)& - &*XX(5252)-JVS(49855)*XX(5253)-JVS(52841)*XX(5255)-JVS(54443)*XX(5256) - XX(4874) = XX(4874)-JVS(30339)*XX(4959)-JVS(31199)*XX(5012)-JVS(44680)*XX(5250)-JVS(46242)*XX(5251)-JVS(47583)& - &*XX(5252)-JVS(49854)*XX(5253)-JVS(52840)*XX(5255)-JVS(54442)*XX(5256) - XX(4873) = XX(4873)-JVS(34645)*XX(5165)-JVS(36568)*XX(5201)-JVS(44679)*XX(5250)-JVS(46241)*XX(5251)-JVS(47582)& - &*XX(5252)-JVS(49853)*XX(5253)-JVS(52839)*XX(5255)-JVS(54441)*XX(5256) - XX(4872) = XX(4872)-JVS(33506)*XX(5136)-JVS(33878)*XX(5143)-JVS(34009)*XX(5149)-JVS(36567)*XX(5201)-JVS(44678)& - &*XX(5250)-JVS(46240)*XX(5251)-JVS(52838)*XX(5255)-JVS(54440)*XX(5256) - XX(4871) = XX(4871)-JVS(32967)*XX(5110)-JVS(35933)*XX(5193)-JVS(36137)*XX(5197)-JVS(44677)*XX(5250)-JVS(47581)& - &*XX(5252)-JVS(49852)*XX(5253)-JVS(52837)*XX(5255)-JVS(54439)*XX(5256) - XX(4870) = XX(4870)-JVS(30533)*XX(4973)-JVS(35932)*XX(5193)-JVS(36062)*XX(5195)-JVS(44676)*XX(5250)-JVS(47580)& - &*XX(5252)-JVS(49851)*XX(5253)-JVS(52836)*XX(5255)-JVS(54438)*XX(5256) - XX(4869) = XX(4869)-JVS(30044)*XX(4940)-JVS(31749)*XX(5046)-JVS(44675)*XX(5250)-JVS(46239)*XX(5251)-JVS(47579)& - &*XX(5252)-JVS(49850)*XX(5253)-JVS(50248)*XX(5254)-JVS(54437)*XX(5256) - XX(4868) = XX(4868)-JVS(31748)*XX(5046)-JVS(33933)*XX(5145)-JVS(36838)*XX(5203)-JVS(44674)*XX(5250)-JVS(46238)& - &*XX(5251)-JVS(47578)*XX(5252)-JVS(49849)*XX(5253)-JVS(50247)*XX(5254)-JVS(54436)*XX(5256) - XX(4867) = XX(4867)-JVS(31305)*XX(5020)-JVS(37000)*XX(5210)-JVS(44673)*XX(5250)-JVS(46237)*XX(5251)-JVS(47577)& - &*XX(5252)-JVS(49848)*XX(5253)-JVS(52835)*XX(5255)-JVS(54435)*XX(5256)-JVS(55047)*XX(5258) - XX(4866) = XX(4866)-JVS(33877)*XX(5143)-JVS(34533)*XX(5161)-JVS(44672)*XX(5250)-JVS(46236)*XX(5251)-JVS(47576)& - &*XX(5252)-JVS(49847)*XX(5253)-JVS(52834)*XX(5255)-JVS(54434)*XX(5256)-JVS(55046)*XX(5258) - XX(4865) = XX(4865)-JVS(35305)*XX(5183)-JVS(35931)*XX(5193)-JVS(40253)*XX(5244)-JVS(44671)*XX(5250)-JVS(46235)& - &*XX(5251)-JVS(47575)*XX(5252)-JVS(49846)*XX(5253)-JVS(52833)*XX(5255)-JVS(54433)*XX(5256) - XX(4864) = XX(4864)-JVS(29849)*XX(4931)-JVS(30677)*XX(4983)-JVS(33281)*XX(5125)-JVS(44670)*XX(5250)-JVS(46234)& - &*XX(5251)-JVS(47574)*XX(5252)-JVS(49845)*XX(5253)-JVS(52832)*XX(5255)-JVS(54432)*XX(5256) - XX(4863) = XX(4863)-JVS(35108)*XX(5182)-JVS(39550)*XX(5239)-JVS(44669)*XX(5250)-JVS(46233)*XX(5251)-JVS(47573)& - &*XX(5252)-JVS(49844)*XX(5253)-JVS(52831)*XX(5255)-JVS(54431)*XX(5256)-JVS(55045)*XX(5258) - XX(4862) = XX(4862)-JVS(38581)*XX(5231)-JVS(39275)*XX(5234)-JVS(44668)*XX(5250)-JVS(46232)*XX(5251)-JVS(47572)& - &*XX(5252)-JVS(49843)*XX(5253)-JVS(52830)*XX(5255)-JVS(54430)*XX(5256)-JVS(55044)*XX(5258) - XX(4861) = XX(4861)-JVS(36999)*XX(5210)-JVS(37560)*XX(5222)-JVS(39112)*XX(5233)-JVS(44667)*XX(5250)-JVS(46231)& - &*XX(5251)-JVS(47571)*XX(5252)-JVS(49842)*XX(5253)-JVS(52829)*XX(5255)-JVS(54429)*XX(5256) - XX(4860) = XX(4860)-JVS(30640)*XX(4981)-JVS(34447)*XX(5160)-JVS(38580)*XX(5231)-JVS(44666)*XX(5250)-JVS(46230)& - &*XX(5251)-JVS(47570)*XX(5252)-JVS(49841)*XX(5253)-JVS(52828)*XX(5255)-JVS(54428)*XX(5256) - XX(4859) = XX(4859)-JVS(32015)*XX(5059)-JVS(36566)*XX(5201)-JVS(44665)*XX(5250)-JVS(46229)*XX(5251)-JVS(47569)& - &*XX(5252)-JVS(49840)*XX(5253)-JVS(52827)*XX(5255)-JVS(54427)*XX(5256)-JVS(55043)*XX(5258) - XX(4858) = XX(4858)-JVS(30812)*XX(4991)-JVS(35304)*XX(5183)-JVS(35668)*XX(5191)-JVS(40252)*XX(5244)-JVS(44664)& - &*XX(5250)-JVS(47568)*XX(5252)-JVS(49839)*XX(5253)-JVS(52826)*XX(5255)-JVS(54426)*XX(5256) - XX(4857) = XX(4857)-JVS(35930)*XX(5193)-JVS(38579)*XX(5231)-JVS(40251)*XX(5244)-JVS(44663)*XX(5250)-JVS(46228)& - &*XX(5251)-JVS(47567)*XX(5252)-JVS(49838)*XX(5253)-JVS(52825)*XX(5255)-JVS(54425)*XX(5256) - XX(4856) = XX(4856)-JVS(30022)*XX(4939)-JVS(33932)*XX(5145)-JVS(38861)*XX(5232)-JVS(39622)*XX(5241)-JVS(44662)& - &*XX(5250)-JVS(47566)*XX(5252)-JVS(49837)*XX(5253)-JVS(52824)*XX(5255)-JVS(54424)*XX(5256) - XX(4855) = XX(4855)-JVS(31086)*XX(5006)-JVS(32637)*XX(5095)-JVS(44661)*XX(5250)-JVS(46227)*XX(5251)-JVS(47565)& - &*XX(5252)-JVS(49836)*XX(5253)-JVS(52823)*XX(5255)-JVS(54423)*XX(5256)-JVS(55042)*XX(5258) - XX(4854) = XX(4854)-JVS(30962)*XX(5000)-JVS(34446)*XX(5160)-JVS(36565)*XX(5201)-JVS(44660)*XX(5250)-JVS(46226)& - &*XX(5251)-JVS(47564)*XX(5252)-JVS(49835)*XX(5253)-JVS(52822)*XX(5255)-JVS(54422)*XX(5256)-JVS(55041)& - &*XX(5258) - XX(4853) = XX(4853)-JVS(30961)*XX(5000)-JVS(34445)*XX(5160)-JVS(44659)*XX(5250)-JVS(46225)*XX(5251)-JVS(47563)& - &*XX(5252)-JVS(49834)*XX(5253)-JVS(52821)*XX(5255)-JVS(54421)*XX(5256)-JVS(55040)*XX(5258) - XX(4852) = XX(4852)-JVS(30811)*XX(4991)-JVS(35303)*XX(5183)-JVS(35929)*XX(5193)-JVS(40250)*XX(5244)-JVS(44658)& - &*XX(5250)-JVS(47562)*XX(5252)-JVS(49833)*XX(5253)-JVS(52820)*XX(5255)-JVS(54420)*XX(5256) - XX(4851) = XX(4851)-JVS(31358)*XX(5023)-JVS(36564)*XX(5201)-JVS(39274)*XX(5234)-JVS(44657)*XX(5250)-JVS(46224)& - &*XX(5251)-JVS(47561)*XX(5252)-JVS(49832)*XX(5253)-JVS(52819)*XX(5255)-JVS(54419)*XX(5256) - XX(4850) = XX(4850)-JVS(30078)*XX(4942)-JVS(34562)*XX(5162)-JVS(44656)*XX(5250)-JVS(46223)*XX(5251)-JVS(47560)& - &*XX(5252)-JVS(49831)*XX(5253)-JVS(52818)*XX(5255)-JVS(54418)*XX(5256)-JVS(55039)*XX(5258) - XX(4849) = XX(4849)-JVS(32247)*XX(5073)-JVS(36114)*XX(5196)-JVS(44655)*XX(5250)-JVS(46222)*XX(5251)-JVS(47559)& - &*XX(5252)-JVS(49830)*XX(5253)-JVS(52817)*XX(5255)-JVS(54417)*XX(5256)-JVS(55038)*XX(5258) - XX(4848) = XX(4848)-JVS(31930)*XX(5055)-JVS(34036)*XX(5150)-JVS(44654)*XX(5250)-JVS(46221)*XX(5251)-JVS(47558)& - &*XX(5252)-JVS(49829)*XX(5253)-JVS(52816)*XX(5255)-JVS(54416)*XX(5256)-JVS(55037)*XX(5258) - XX(4847) = XX(4847)-JVS(37086)*XX(5212)-JVS(39407)*XX(5236)-JVS(44653)*XX(5250)-JVS(46220)*XX(5251)-JVS(47557)& - &*XX(5252)-JVS(49828)*XX(5253)-JVS(52815)*XX(5255)-JVS(54415)*XX(5256)-JVS(55036)*XX(5258) - XX(4846) = XX(4846)-JVS(29983)*XX(4938)-JVS(30162)*XX(4947)-JVS(44652)*XX(5250)-JVS(46219)*XX(5251)-JVS(47556)& - &*XX(5252)-JVS(49827)*XX(5253)-JVS(52814)*XX(5255)-JVS(54414)*XX(5256)-JVS(55035)*XX(5258) - XX(4845) = XX(4845)-JVS(35928)*XX(5193)-JVS(36563)*XX(5201)-JVS(44651)*XX(5250)-JVS(46218)*XX(5251)-JVS(47555)& - &*XX(5252)-JVS(49826)*XX(5253)-JVS(52813)*XX(5255)-JVS(54413)*XX(5256)-JVS(55034)*XX(5258) - XX(4844) = XX(4844)-JVS(31959)*XX(5057)-JVS(34444)*XX(5160)-JVS(36061)*XX(5195)-JVS(39273)*XX(5234)-JVS(44650)& - &*XX(5250)-JVS(47554)*XX(5252)-JVS(49825)*XX(5253)-JVS(52812)*XX(5255)-JVS(54412)*XX(5256) - XX(4843) = XX(4843)-JVS(31747)*XX(5046)-JVS(34708)*XX(5169)-JVS(39406)*XX(5236)-JVS(44649)*XX(5250)-JVS(46217)& - &*XX(5251)-JVS(47553)*XX(5252)-JVS(49824)*XX(5253)-JVS(50246)*XX(5254)-JVS(54411)*XX(5256) - XX(4842) = XX(4842)-JVS(31264)*XX(5017)-JVS(32407)*XX(5084)-JVS(36562)*XX(5201)-JVS(44648)*XX(5250)-JVS(46216)& - &*XX(5251)-JVS(52811)*XX(5255)-JVS(54410)*XX(5256) - XX(4841) = XX(4841)-JVS(34443)*XX(5160)-JVS(40249)*XX(5244)-JVS(44647)*XX(5250)-JVS(47552)*XX(5252)-JVS(49823)& - &*XX(5253)-JVS(52810)*XX(5255)-JVS(54409)*XX(5256) - XX(4840) = XX(4840)-JVS(28704)*XX(4845)-JVS(29719)*XX(4922)-JVS(29728)*XX(4923)-JVS(29745)*XX(4924)-JVS(30096)& - &*XX(4943)-JVS(32504)*XX(5087)-JVS(34722)*XX(5170)-JVS(35927)*XX(5193)-JVS(36561)*XX(5201)-JVS(36998)& - &*XX(5210)-JVS(37908)*XX(5228)-JVS(38578)*XX(5231)-JVS(39111)*XX(5233)-JVS(39525)*XX(5238)-JVS(44646)& - &*XX(5250)-JVS(46215)*XX(5251)-JVS(47551)*XX(5252)-JVS(49822)*XX(5253)-JVS(52809)*XX(5255)-JVS(54408)& - &*XX(5256)-JVS(55033)*XX(5258) - XX(4839) = XX(4839)-JVS(34442)*XX(5160)-JVS(34986)*XX(5179)-JVS(37053)*XX(5211)-JVS(44645)*XX(5250)-JVS(47550)& - &*XX(5252)-JVS(49821)*XX(5253)-JVS(52808)*XX(5255)-JVS(54407)*XX(5256)-JVS(55032)*XX(5258) - XX(4838) = XX(4838)-JVS(31746)*XX(5046)-JVS(34644)*XX(5165)-JVS(36922)*XX(5208)-JVS(44644)*XX(5250)-JVS(46214)& - &*XX(5251)-JVS(47549)*XX(5252)-JVS(49820)*XX(5253)-JVS(50245)*XX(5254)-JVS(54406)*XX(5256) - XX(4837) = XX(4837)-JVS(31198)*XX(5012)-JVS(34944)*XX(5178)-JVS(35509)*XX(5188)-JVS(35926)*XX(5193)-JVS(38577)& - &*XX(5231)-JVS(44643)*XX(5250)-JVS(47548)*XX(5252)-JVS(49819)*XX(5253)-JVS(52807)*XX(5255)-JVS(54405)& - &*XX(5256) - XX(4836) = XX(4836)-JVS(28640)*XX(4841)-JVS(29982)*XX(4938)-JVS(38576)*XX(5231)-JVS(44642)*XX(5250)-JVS(46213)& - &*XX(5251)-JVS(47547)*XX(5252)-JVS(49818)*XX(5253)-JVS(52806)*XX(5255)-JVS(54404)*XX(5256)-JVS(55031)& - &*XX(5258) - XX(4835) = XX(4835)-JVS(36229)*XX(5199)-JVS(36560)*XX(5201)-JVS(36997)*XX(5210)-JVS(37559)*XX(5222)-JVS(39110)& - &*XX(5233)-JVS(40248)*XX(5244)-JVS(44641)*XX(5250)-JVS(46212)*XX(5251)-JVS(47546)*XX(5252)-JVS(49817)& - &*XX(5253)-JVS(52805)*XX(5255)-JVS(54403)*XX(5256) - XX(4834) = XX(4834)-JVS(32043)*XX(5060)-JVS(32320)*XX(5079)-JVS(36559)*XX(5201)-JVS(44640)*XX(5250)-JVS(46211)& - &*XX(5251)-JVS(47545)*XX(5252)-JVS(49816)*XX(5253)-JVS(52804)*XX(5255)-JVS(54402)*XX(5256)-JVS(55030)& - &*XX(5258) - XX(4833) = XX(4833)-JVS(29232)*XX(4887)-JVS(33198)*XX(5123)-JVS(37907)*XX(5228)-JVS(44639)*XX(5250)-JVS(46210)& - &*XX(5251)-JVS(47544)*XX(5252)-JVS(49815)*XX(5253)-JVS(52803)*XX(5255)-JVS(54401)*XX(5256)-JVS(55029)& - &*XX(5258) - XX(4832) = XX(4832)-JVS(31815)*XX(5047)-JVS(36945)*XX(5209)-JVS(38575)*XX(5231)-JVS(44638)*XX(5250)-JVS(46209)& - &*XX(5251)-JVS(47543)*XX(5252)-JVS(49814)*XX(5253)-JVS(52802)*XX(5255)-JVS(54400)*XX(5256)-JVS(55028)& - &*XX(5258) - XX(4831) = XX(4831)-JVS(44637)*XX(5250)-JVS(46208)*XX(5251)-JVS(47542)*XX(5252)-JVS(49813)*XX(5253)-JVS(52801)& - &*XX(5255)-JVS(54399)*XX(5256) - XX(4830) = XX(4830)-JVS(29350)*XX(4898)-JVS(29536)*XX(4910)-JVS(38574)*XX(5231)-JVS(44636)*XX(5250)-JVS(46207)& - &*XX(5251)-JVS(47541)*XX(5252)-JVS(49812)*XX(5253)-JVS(52800)*XX(5255)-JVS(54398)*XX(5256)-JVS(55027)& - &*XX(5258) - XX(4829) = XX(4829)-JVS(29635)*XX(4917)-JVS(29665)*XX(4918)-JVS(32128)*XX(5066)-JVS(44635)*XX(5250)-JVS(46206)& - &*XX(5251)-JVS(47540)*XX(5252)-JVS(49811)*XX(5253)-JVS(52799)*XX(5255)-JVS(54397)*XX(5256)-JVS(55026)& - &*XX(5258) - XX(4828) = XX(4828)-JVS(31745)*XX(5046)-JVS(36558)*XX(5201)-JVS(39359)*XX(5235)-JVS(44634)*XX(5250)-JVS(46205)& - &*XX(5251)-JVS(47539)*XX(5252)-JVS(49810)*XX(5253)-JVS(50244)*XX(5254)-JVS(52798)*XX(5255)-JVS(54396)& - &*XX(5256) - XX(4827) = XX(4827)-JVS(29744)*XX(4924)-JVS(32966)*XX(5110)-JVS(34222)*XX(5158)-JVS(34599)*XX(5164)-JVS(35925)& - &*XX(5193)-JVS(36774)*XX(5202)-JVS(40247)*XX(5244)-JVS(44633)*XX(5250)-JVS(47538)*XX(5252)-JVS(49809)& - &*XX(5253)-JVS(52797)*XX(5255)-JVS(54395)*XX(5256) - XX(4826) = XX(4826)-JVS(34793)*XX(5172)-JVS(37558)*XX(5222)-JVS(39109)*XX(5233)-JVS(40246)*XX(5244)-JVS(44632)& - &*XX(5250)-JVS(46204)*XX(5251)-JVS(47537)*XX(5252)-JVS(49808)*XX(5253)-JVS(52796)*XX(5255)-JVS(54394)& - &*XX(5256) - XX(4825) = XX(4825)-JVS(28621)*XX(4839)-JVS(30597)*XX(4978)-JVS(33403)*XX(5130)-JVS(37052)*XX(5211)-JVS(39272)& - &*XX(5234)-JVS(39459)*XX(5237)-JVS(44631)*XX(5250)-JVS(46203)*XX(5251)-JVS(47536)*XX(5252)-JVS(49807)& - &*XX(5253)-JVS(52795)*XX(5255)-JVS(54393)*XX(5256) - XX(4824) = XX(4824)-JVS(31744)*XX(5046)-JVS(34871)*XX(5176)-JVS(36113)*XX(5196)-JVS(44630)*XX(5250)-JVS(46202)& - &*XX(5251)-JVS(47535)*XX(5252)-JVS(49806)*XX(5253)-JVS(50243)*XX(5254)-JVS(52794)*XX(5255)-JVS(54392)& - &*XX(5256) - XX(4823) = XX(4823)-JVS(31610)*XX(5038)-JVS(39108)*XX(5233)-JVS(44629)*XX(5250)-JVS(46201)*XX(5251)-JVS(47534)& - &*XX(5252)-JVS(49805)*XX(5253)-JVS(52793)*XX(5255)-JVS(54391)*XX(5256) - XX(4822) = XX(4822)-JVS(28447)*XX(4823)-JVS(44628)*XX(5250)-JVS(46200)*XX(5251)-JVS(47533)*XX(5252)-JVS(49804)& - &*XX(5253)-JVS(52792)*XX(5255)-JVS(54390)*XX(5256)-JVS(55025)*XX(5258) - XX(4821) = XX(4821)-JVS(28426)*XX(4822)-JVS(28446)*XX(4823)-JVS(36557)*XX(5201)-JVS(36996)*XX(5210)-JVS(37557)& - &*XX(5222)-JVS(40245)*XX(5244)-JVS(44627)*XX(5250)-JVS(46199)*XX(5251)-JVS(47532)*XX(5252)-JVS(49803)& - &*XX(5253)-JVS(52791)*XX(5255)-JVS(54389)*XX(5256) - XX(4820) = XX(4820)-JVS(30021)*XX(4939)-JVS(32319)*XX(5079)-JVS(34221)*XX(5158)-JVS(34441)*XX(5160)-JVS(36556)& - &*XX(5201)-JVS(39721)*XX(5242)-JVS(44626)*XX(5250)-JVS(46198)*XX(5251)-JVS(47531)*XX(5252)-JVS(49802)& - &*XX(5253)-JVS(52790)*XX(5255)-JVS(54388)*XX(5256) - XX(4819) = XX(4819)-JVS(31743)*XX(5046)-JVS(36030)*XX(5194)-JVS(38573)*XX(5231)-JVS(44625)*XX(5250)-JVS(46197)& - &*XX(5251)-JVS(47530)*XX(5252)-JVS(49801)*XX(5253)-JVS(50242)*XX(5254)-JVS(52789)*XX(5255)-JVS(54387)& - &*XX(5256) - XX(4818) = XX(4818)-JVS(30354)*XX(4960)-JVS(34440)*XX(5160)-JVS(35107)*XX(5182)-JVS(44624)*XX(5250)-JVS(46196)& - &*XX(5251)-JVS(47529)*XX(5252)-JVS(49800)*XX(5253)-JVS(52788)*XX(5255)-JVS(54386)*XX(5256)-JVS(55024)& - &*XX(5258) - XX(4817) = XX(4817)-JVS(30020)*XX(4939)-JVS(34097)*XX(5152)-JVS(34220)*XX(5158)-JVS(34598)*XX(5164)-JVS(38572)& - &*XX(5231)-JVS(40244)*XX(5244)-JVS(44623)*XX(5250)-JVS(46195)*XX(5251)-JVS(47528)*XX(5252)-JVS(49799)& - &*XX(5253)-JVS(52787)*XX(5255)-JVS(54385)*XX(5256) - XX(4816) = XX(4816)-JVS(31357)*XX(5023)-JVS(38571)*XX(5231)-JVS(38860)*XX(5232)-JVS(44622)*XX(5250)-JVS(46194)& - &*XX(5251)-JVS(47527)*XX(5252)-JVS(49798)*XX(5253)-JVS(52786)*XX(5255)-JVS(54384)*XX(5256)-JVS(55023)& - &*XX(5258) - XX(4815) = XX(4815)-JVS(31609)*XX(5038)-JVS(32905)*XX(5106)-JVS(36555)*XX(5201)-JVS(39107)*XX(5233)-JVS(44621)& - &*XX(5250)-JVS(46193)*XX(5251)-JVS(47526)*XX(5252)-JVS(49797)*XX(5253)-JVS(52785)*XX(5255)-JVS(54383)& - &*XX(5256) - XX(4814) = XX(4814)-JVS(29183)*XX(4882)-JVS(33214)*XX(5124)-JVS(34120)*XX(5153)-JVS(35106)*XX(5182)-JVS(36029)& - &*XX(5194)-JVS(38859)*XX(5232)-JVS(44620)*XX(5250)-JVS(46192)*XX(5251)-JVS(47525)*XX(5252)-JVS(49796)& - &*XX(5253)-JVS(52784)*XX(5255)-JVS(54382)*XX(5256) - XX(4813) = XX(4813)-JVS(28987)*XX(4865)-JVS(33679)*XX(5139)-JVS(33750)*XX(5141)-JVS(35302)*XX(5183)-JVS(44619)& - &*XX(5250)-JVS(46191)*XX(5251)-JVS(47524)*XX(5252)-JVS(49795)*XX(5253)-JVS(52783)*XX(5255)-JVS(54381)& - &*XX(5256) - XX(4812) = XX(4812)-JVS(31043)*XX(5004)-JVS(35105)*XX(5182)-JVS(38570)*XX(5231)-JVS(44618)*XX(5250)-JVS(46190)& - &*XX(5251)-JVS(47523)*XX(5252)-JVS(49794)*XX(5253)-JVS(52782)*XX(5255)-JVS(54380)*XX(5256)-JVS(55022)& - &*XX(5258) - XX(4811) = XX(4811)-JVS(29981)*XX(4938)-JVS(30810)*XX(4991)-JVS(31403)*XX(5026)-JVS(31497)*XX(5031)-JVS(33084)& - &*XX(5117)-JVS(40243)*XX(5244)-JVS(44617)*XX(5250)-JVS(46189)*XX(5251)-JVS(47522)*XX(5252)-JVS(49793)& - &*XX(5253)-JVS(52781)*XX(5255)-JVS(54379)*XX(5256) - XX(4810) = XX(4810)-JVS(29980)*XX(4938)-JVS(36554)*XX(5201)-JVS(40242)*XX(5244)-JVS(44616)*XX(5250)-JVS(46188)& - &*XX(5251)-JVS(47521)*XX(5252)-JVS(49792)*XX(5253)-JVS(52780)*XX(5255)-JVS(54378)*XX(5256)-JVS(55021)& - &*XX(5258) - XX(4809) = XX(4809)-JVS(34439)*XX(5160)-JVS(36553)*XX(5201)-JVS(38569)*XX(5231)-JVS(44615)*XX(5250)-JVS(46187)& - &*XX(5251)-JVS(47520)*XX(5252)-JVS(49791)*XX(5253)-JVS(52779)*XX(5255)-JVS(54377)*XX(5256)-JVS(55020)& - &*XX(5258) - XX(4808) = XX(4808)-JVS(36552)*XX(5201)-JVS(38568)*XX(5231)-JVS(40241)*XX(5244)-JVS(44614)*XX(5250)-JVS(46186)& - &*XX(5251)-JVS(47519)*XX(5252)-JVS(49790)*XX(5253)-JVS(52778)*XX(5255)-JVS(54376)*XX(5256)-JVS(55019)& - &*XX(5258) - XX(4807) = XX(4807)-JVS(29894)*XX(4935)-JVS(32539)*XX(5089)-JVS(37906)*XX(5228)-JVS(44613)*XX(5250)-JVS(46185)& - &*XX(5251)-JVS(47518)*XX(5252)-JVS(49789)*XX(5253)-JVS(52777)*XX(5255)-JVS(54375)*XX(5256)-JVS(55018)& - &*XX(5258) - XX(4806) = XX(4806)-JVS(29122)*XX(4875)-JVS(36551)*XX(5201)-JVS(37158)*XX(5214)-JVS(38567)*XX(5231)-JVS(44612)& - &*XX(5250)-JVS(46184)*XX(5251)-JVS(47517)*XX(5252)-JVS(49788)*XX(5253)-JVS(52776)*XX(5255)-JVS(54374)& - &*XX(5256) - XX(4805) = XX(4805)-JVS(34721)*XX(5170)-JVS(34792)*XX(5172)-JVS(36995)*XX(5210)-JVS(39106)*XX(5233)-JVS(40240)& - &*XX(5244)-JVS(44611)*XX(5250)-JVS(46183)*XX(5251)-JVS(47516)*XX(5252)-JVS(49787)*XX(5253)-JVS(52775)& - &*XX(5255)-JVS(54373)*XX(5256)-JVS(55017)*XX(5258) - XX(4804) = XX(4804)-JVS(31887)*XX(5053)-JVS(33505)*XX(5136)-JVS(33555)*XX(5137)-JVS(34096)*XX(5152)-JVS(35301)& - &*XX(5183)-JVS(38566)*XX(5231)-JVS(44610)*XX(5250)-JVS(46182)*XX(5251)-JVS(47515)*XX(5252)-JVS(49786)& - &*XX(5253)-JVS(52774)*XX(5255)-JVS(54372)*XX(5256) - XX(4803) = XX(4803)-JVS(30161)*XX(4947)-JVS(32743)*XX(5100)-JVS(36550)*XX(5201)-JVS(36994)*XX(5210)-JVS(37556)& - &*XX(5222)-JVS(44609)*XX(5250)-JVS(46181)*XX(5251)-JVS(47514)*XX(5252)-JVS(49785)*XX(5253)-JVS(52773)& - &*XX(5255)-JVS(54371)*XX(5256)-JVS(55016)*XX(5258) - XX(4802) = XX(4802)-JVS(29979)*XX(4938)-JVS(31173)*XX(5011)-JVS(35924)*XX(5193)-JVS(36773)*XX(5202)-JVS(37555)& - &*XX(5222)-JVS(39621)*XX(5241)-JVS(40239)*XX(5244)-JVS(44608)*XX(5250)-JVS(47513)*XX(5252)-JVS(49784)& - &*XX(5253)-JVS(52772)*XX(5255)-JVS(54370)*XX(5256) - XX(4801) = XX(4801)-JVS(31172)*XX(5011)-JVS(39620)*XX(5241)-JVS(40238)*XX(5244)-JVS(44607)*XX(5250) - XX(4800) = XX(4800)-JVS(28210)*XX(4801)-JVS(28227)*XX(4802)-JVS(28314)*XX(4811)-JVS(32667)*XX(5097)-JVS(33065)& - &*XX(5116)-JVS(34055)*XX(5151)-JVS(40237)*XX(5244)-JVS(44606)*XX(5250)-JVS(47512)*XX(5252)-JVS(49783)& - &*XX(5253)-JVS(52771)*XX(5255)-JVS(54369)*XX(5256) - XX(4799) = XX(4799)-JVS(28986)*XX(4865)-JVS(32014)*XX(5059)-JVS(33678)*XX(5139)-JVS(33800)*XX(5142)-JVS(35300)& - &*XX(5183)-JVS(35667)*XX(5191)-JVS(36549)*XX(5201)-JVS(37554)*XX(5222)-JVS(40236)*XX(5244)-JVS(44605)& - &*XX(5250)-JVS(46180)*XX(5251)-JVS(47511)*XX(5252)-JVS(49782)*XX(5253)-JVS(52770)*XX(5255)-JVS(54368)& - &*XX(5256) - XX(4798) = XX(4798)-JVS(29442)*XX(4904)-JVS(36548)*XX(5201)-JVS(44604)*XX(5250)-JVS(46179)*XX(5251)-JVS(47510)& - &*XX(5252)-JVS(49781)*XX(5253)-JVS(52769)*XX(5255)-JVS(54367)*XX(5256)-JVS(55015)*XX(5258) - XX(4797) = XX(4797)-JVS(30450)*XX(4966)-JVS(36547)*XX(5201)-JVS(44603)*XX(5250)-JVS(46178)*XX(5251)-JVS(47509)& - &*XX(5252)-JVS(49780)*XX(5253)-JVS(52768)*XX(5255)-JVS(54366)*XX(5256)-JVS(55014)*XX(5258) - XX(4796) = XX(4796)-JVS(44602)*XX(5250)-JVS(46177)*XX(5251)-JVS(52767)*XX(5255) - XX(4795) = XX(4795)-JVS(28129)*XX(4796)-JVS(30676)*XX(4983)-JVS(39105)*XX(5233)-JVS(44601)*XX(5250)-JVS(46176)& - &*XX(5251)-JVS(47508)*XX(5252)-JVS(49779)*XX(5253)-JVS(52766)*XX(5255)-JVS(54365)*XX(5256)-JVS(55013)& - &*XX(5258) - XX(4794) = XX(4794)-JVS(29508)*XX(4909)-JVS(29573)*XX(4913)-JVS(30393)*XX(4963)-JVS(37685)*XX(5223)-JVS(37803)& - &*XX(5226)-JVS(38565)*XX(5231)-JVS(39358)*XX(5235)-JVS(39720)*XX(5242)-JVS(44600)*XX(5250)-JVS(46175)& - &*XX(5251)-JVS(47507)*XX(5252)-JVS(49778)*XX(5253)-JVS(52765)*XX(5255)-JVS(54364)*XX(5256)-JVS(55012)& - &*XX(5258) - XX(4793) = XX(4793)-JVS(29693)*XX(4920)-JVS(30580)*XX(4977)-JVS(36546)*XX(5201)-JVS(44599)*XX(5250)-JVS(46174)& - &*XX(5251)-JVS(47506)*XX(5252)-JVS(49777)*XX(5253)-JVS(52764)*XX(5255)-JVS(54363)*XX(5256)-JVS(55011)& - &*XX(5258) - XX(4792) = XX(4792)-JVS(29664)*XX(4918)-JVS(30675)*XX(4983)-JVS(33280)*XX(5125)-JVS(44598)*XX(5250)-JVS(46173)& - &*XX(5251)-JVS(47505)*XX(5252)-JVS(49776)*XX(5253)-JVS(52763)*XX(5255)-JVS(54362)*XX(5256) - XX(4791) = XX(4791)-JVS(28036)*XX(4792)-JVS(28128)*XX(4796)-JVS(36545)*XX(5201)-JVS(44597)*XX(5250)-JVS(46172)& - &*XX(5251)-JVS(47504)*XX(5252)-JVS(49775)*XX(5253)-JVS(52762)*XX(5255)-JVS(54361)*XX(5256)-JVS(55010)& - &*XX(5258) - XX(4790) = XX(4790)-JVS(28127)*XX(4796)-JVS(28967)*XX(4864)-JVS(36544)*XX(5201)-JVS(44596)*XX(5250)-JVS(46171)& - &*XX(5251)-JVS(47503)*XX(5252)-JVS(49774)*XX(5253)-JVS(52761)*XX(5255)-JVS(54360)*XX(5256)-JVS(55009)& - &*XX(5258) - XX(4789) = XX(4789)-JVS(31042)*XX(5004)-JVS(32232)*XX(5072)-JVS(34438)*XX(5160)-JVS(36543)*XX(5201)-JVS(39104)& - &*XX(5233)-JVS(44595)*XX(5250)-JVS(46170)*XX(5251)-JVS(47502)*XX(5252)-JVS(49773)*XX(5253)-JVS(52760)& - &*XX(5255)-JVS(54359)*XX(5256)-JVS(55008)*XX(5258) - XX(4788) = XX(4788)-JVS(29978)*XX(4938)-JVS(36542)*XX(5201)-JVS(40235)*XX(5244)-JVS(44594)*XX(5250)-JVS(46169)& - &*XX(5251)-JVS(47501)*XX(5252)-JVS(49772)*XX(5253)-JVS(52759)*XX(5255)-JVS(54358)*XX(5256)-JVS(55007)& - &*XX(5258) - XX(4787) = XX(4787)-JVS(28985)*XX(4865)-JVS(33677)*XX(5139)-JVS(35299)*XX(5183)-JVS(37553)*XX(5222)-JVS(40234)& - &*XX(5244)-JVS(44593)*XX(5250)-JVS(47500)*XX(5252)-JVS(49771)*XX(5253)-JVS(52758)*XX(5255)-JVS(54357)& - &*XX(5256) - XX(4786) = XX(4786)-JVS(31328)*XX(5022)-JVS(31742)*XX(5046)-JVS(32346)*XX(5080)-JVS(37684)*XX(5223)-JVS(37763)& - &*XX(5225)-JVS(37802)*XX(5226)-JVS(38564)*XX(5231)-JVS(44592)*XX(5250)-JVS(46168)*XX(5251)-JVS(47499)& - &*XX(5252)-JVS(49770)*XX(5253)-JVS(50241)*XX(5254)-JVS(52757)*XX(5255)-JVS(54356)*XX(5256)-JVS(55006)& - &*XX(5258) - XX(4785) = XX(4785)-JVS(30532)*XX(4973)-JVS(30867)*XX(4995)-JVS(33325)*XX(5127)-JVS(36541)*XX(5201)-JVS(37051)& - &*XX(5211)-JVS(40233)*XX(5244)-JVS(44591)*XX(5250)-JVS(46167)*XX(5251)-JVS(47498)*XX(5252)-JVS(49769)& - &*XX(5253)-JVS(52756)*XX(5255)-JVS(54355)*XX(5256) - XX(4784) = XX(4784)-JVS(32965)*XX(5110)-JVS(34035)*XX(5150)-JVS(34219)*XX(5158)-JVS(35923)*XX(5193)-JVS(39719)& - &*XX(5242)-JVS(40232)*XX(5244)-JVS(40484)*XX(5246)-JVS(44590)*XX(5250)-JVS(47497)*XX(5252)-JVS(49768)& - &*XX(5253)-JVS(52755)*XX(5255)-JVS(54354)*XX(5256) - XX(4783) = XX(4783)-JVS(30960)*XX(5000)-JVS(31564)*XX(5036)-JVS(32602)*XX(5094)-JVS(35508)*XX(5188)-JVS(37552)& - &*XX(5222)-JVS(38563)*XX(5231)-JVS(44589)*XX(5250)-JVS(46166)*XX(5251)-JVS(47496)*XX(5252)-JVS(49767)& - &*XX(5253)-JVS(52754)*XX(5255)-JVS(54353)*XX(5256) - XX(4782) = XX(4782)-JVS(30809)*XX(4991)-JVS(31496)*XX(5031)-JVS(35298)*XX(5183)-JVS(35666)*XX(5191)-JVS(35922)& - &*XX(5193)-JVS(37551)*XX(5222)-JVS(40231)*XX(5244)-JVS(44588)*XX(5250)-JVS(47495)*XX(5252)-JVS(49766)& - &*XX(5253)-JVS(52753)*XX(5255)-JVS(54352)*XX(5256) - XX(4781) = XX(4781)-JVS(33342)*XX(5128)-JVS(34985)*XX(5179)-JVS(35507)*XX(5188)-JVS(37801)*XX(5226)-JVS(40483)& - &*XX(5246)-JVS(44587)*XX(5250)-JVS(47494)*XX(5252)-JVS(49765)*XX(5253)-JVS(52752)*XX(5255)-JVS(54351)& - &*XX(5256) - XX(4780) = XX(4780)-JVS(30959)*XX(5000)-JVS(31495)*XX(5031)-JVS(34437)*XX(5160)-JVS(37550)*XX(5222)-JVS(38562)& - &*XX(5231)-JVS(39784)*XX(5243)-JVS(40230)*XX(5244)-JVS(44586)*XX(5250)-JVS(47493)*XX(5252)-JVS(49764)& - &*XX(5253)-JVS(52751)*XX(5255)-JVS(54350)*XX(5256) - XX(4779) = XX(4779)-JVS(32864)*XX(5105)-JVS(36540)*XX(5201)-JVS(39458)*XX(5237)-JVS(40229)*XX(5244)-JVS(44585)& - &*XX(5250)-JVS(46165)*XX(5251)-JVS(47492)*XX(5252)-JVS(49763)*XX(5253)-JVS(52750)*XX(5255)-JVS(54349)& - &*XX(5256) - XX(4778) = XX(4778)-JVS(30019)*XX(4939)-JVS(31929)*XX(5055)-JVS(36539)*XX(5201)-JVS(38561)*XX(5231)-JVS(38858)& - &*XX(5232)-JVS(39619)*XX(5241)-JVS(44584)*XX(5250)-JVS(46164)*XX(5251)-JVS(47491)*XX(5252)-JVS(49762)& - &*XX(5253)-JVS(52749)*XX(5255)-JVS(54348)*XX(5256) - XX(4777) = XX(4777)-JVS(34943)*XX(5178)-JVS(35506)*XX(5188)-JVS(35921)*XX(5193)-JVS(36538)*XX(5201)-JVS(38560)& - &*XX(5231)-JVS(44583)*XX(5250)-JVS(46163)*XX(5251)-JVS(47490)*XX(5252)-JVS(49761)*XX(5253)-JVS(52748)& - &*XX(5255)-JVS(54347)*XX(5256)-JVS(55005)*XX(5258) - XX(4776) = XX(4776)-JVS(31356)*XX(5023)-JVS(31741)*XX(5046)-JVS(38857)*XX(5232)-JVS(44582)*XX(5250)-JVS(46162)& - &*XX(5251)-JVS(47489)*XX(5252)-JVS(49760)*XX(5253)-JVS(50240)*XX(5254)-JVS(52747)*XX(5255)-JVS(54346)& - &*XX(5256) - XX(4775) = XX(4775)-JVS(31608)*XX(5038)-JVS(33279)*XX(5125)-JVS(36537)*XX(5201)-JVS(39103)*XX(5233)-JVS(44581)& - &*XX(5250)-JVS(46161)*XX(5251)-JVS(47488)*XX(5252)-JVS(49759)*XX(5253)-JVS(52746)*XX(5255)-JVS(54345)& - &*XX(5256) - XX(4774) = XX(4774)-JVS(30261)*XX(4954)-JVS(32586)*XX(5093)-JVS(36536)*XX(5201)-JVS(38559)*XX(5231)-JVS(44580)& - &*XX(5250)-JVS(46160)*XX(5251)-JVS(47487)*XX(5252)-JVS(49758)*XX(5253)-JVS(52745)*XX(5255)-JVS(54344)& - &*XX(5256) - XX(4773) = XX(4773)-JVS(29441)*XX(4904)-JVS(30674)*XX(4983)-JVS(37549)*XX(5222)-JVS(40228)*XX(5244)-JVS(44579)& - &*XX(5250)-JVS(46159)*XX(5251)-JVS(47486)*XX(5252)-JVS(49757)*XX(5253)-JVS(52744)*XX(5255)-JVS(54343)& - &*XX(5256) - XX(4772) = XX(4772)-JVS(34095)*XX(5152)-JVS(34791)*XX(5172)-JVS(36228)*XX(5199)-JVS(40227)*XX(5244)-JVS(44578)& - &*XX(5250)-JVS(47485)*XX(5252)-JVS(49756)*XX(5253)-JVS(52743)*XX(5255)-JVS(54342)*XX(5256)-JVS(55004)& - &*XX(5258) - XX(4771) = XX(4771)-JVS(32300)*XX(5078)-JVS(34942)*XX(5178)-JVS(38558)*XX(5231)-JVS(44577)*XX(5250)-JVS(46158)& - &*XX(5251)-JVS(47484)*XX(5252)-JVS(49755)*XX(5253)-JVS(52742)*XX(5255)-JVS(54341)*XX(5256)-JVS(55003)& - &*XX(5258) - XX(4770) = XX(4770)-JVS(28881)*XX(4857)-JVS(38557)*XX(5231)-JVS(40226)*XX(5244)-JVS(44576)*XX(5250)-JVS(46157)& - &*XX(5251)-JVS(47483)*XX(5252)-JVS(49754)*XX(5253)-JVS(52741)*XX(5255)-JVS(54340)*XX(5256)-JVS(55002)& - &*XX(5258) - XX(4769) = XX(4769)-JVS(30808)*XX(4991)-JVS(33676)*XX(5139)-JVS(35297)*XX(5183)-JVS(40225)*XX(5244)-JVS(44575)& - &*XX(5250)-JVS(46156)*XX(5251)-JVS(47482)*XX(5252)-JVS(49753)*XX(5253)-JVS(52740)*XX(5255)-JVS(54339)& - &*XX(5256) - XX(4768) = XX(4768)-JVS(35104)*XX(5182)-JVS(44574)*XX(5250)-JVS(47481)*XX(5252)-JVS(49752)*XX(5253)-JVS(52739)& - &*XX(5255)-JVS(54338)*XX(5256) - XX(4767) = XX(4767)-JVS(30807)*XX(4991)-JVS(35296)*XX(5183)-JVS(35665)*XX(5191)-JVS(35920)*XX(5193)-JVS(40224)& - &*XX(5244)-JVS(44573)*XX(5250)-JVS(47480)*XX(5252)-JVS(49751)*XX(5253)-JVS(52738)*XX(5255)-JVS(54337)& - &*XX(5256) - XX(4766) = XX(4766)-JVS(32935)*XX(5108)-JVS(33504)*XX(5136)-JVS(35295)*XX(5183)-JVS(35919)*XX(5193)-JVS(36921)& - &*XX(5208)-JVS(44572)*XX(5250)-JVS(47479)*XX(5252)-JVS(49750)*XX(5253)-JVS(52737)*XX(5255)-JVS(54336)& - &*XX(5256) - XX(4765) = XX(4765)-JVS(28262)*XX(4806)-JVS(32988)*XX(5111)-JVS(36028)*XX(5194)-JVS(36281)*XX(5200)-JVS(38556)& - &*XX(5231)-JVS(39271)*XX(5234)-JVS(44571)*XX(5250)-JVS(46155)*XX(5251)-JVS(47478)*XX(5252)-JVS(49749)& - &*XX(5253)-JVS(52736)*XX(5255)-JVS(54335)*XX(5256) - XX(4764) = XX(4764)-JVS(32846)*XX(5104)-JVS(35103)*XX(5182)-JVS(37157)*XX(5214)-JVS(44570)*XX(5250)-JVS(47477)& - &*XX(5252)-JVS(49748)*XX(5253)-JVS(52735)*XX(5255)-JVS(54334)*XX(5256) - XX(4763) = XX(4763)-JVS(30958)*XX(5000)-JVS(34436)*XX(5160)-JVS(44569)*XX(5250)-JVS(46154)*XX(5251)-JVS(47476)& - &*XX(5252)-JVS(49747)*XX(5253)-JVS(52734)*XX(5255)-JVS(54333)*XX(5256) - XX(4762) = XX(4762)-JVS(33425)*XX(5131)-JVS(35102)*XX(5182)-JVS(37156)*XX(5214)-JVS(44568)*XX(5250)-JVS(47475)& - &*XX(5252)-JVS(49746)*XX(5253)-JVS(52733)*XX(5255)-JVS(54332)*XX(5256) - XX(4761) = XX(4761)-JVS(31870)*XX(5052)-JVS(38555)*XX(5231)-JVS(44567)*XX(5250)-JVS(46153)*XX(5251)-JVS(47474)& - &*XX(5252)-JVS(49745)*XX(5253)-JVS(52732)*XX(5255)-JVS(54331)*XX(5256) - XX(4760) = XX(4760)-JVS(34579)*XX(5163)-JVS(34643)*XX(5165)-JVS(44566)*XX(5250)-JVS(46152)*XX(5251)-JVS(47473)& - &*XX(5252)-JVS(49744)*XX(5253)-JVS(52731)*XX(5255)-JVS(54330)*XX(5256) - XX(4759) = XX(4759)-JVS(29121)*XX(4875)-JVS(44565)*XX(5250)-JVS(46151)*XX(5251)-JVS(47472)*XX(5252)-JVS(49743)& - &*XX(5253)-JVS(52730)*XX(5255)-JVS(54329)*XX(5256) - XX(4758) = XX(4758)-JVS(30998)*XX(5001)-JVS(36136)*XX(5197)-JVS(36227)*XX(5199)-JVS(37548)*XX(5222)-JVS(38554)& - &*XX(5231)-JVS(39102)*XX(5233)-JVS(39357)*XX(5235)-JVS(40223)*XX(5244)-JVS(44564)*XX(5250)-JVS(46150)& - &*XX(5251)-JVS(47471)*XX(5252)-JVS(49742)*XX(5253)-JVS(52729)*XX(5255)-JVS(54328)*XX(5256) - XX(4757) = XX(4757)-JVS(31740)*XX(5046)-JVS(33161)*XX(5122)-JVS(44563)*XX(5250)-JVS(46149)*XX(5251)-JVS(47470)& - &*XX(5252)-JVS(49741)*XX(5253)-JVS(50239)*XX(5254)-JVS(54327)*XX(5256) - XX(4756) = XX(4756)-JVS(30780)*XX(4989)-JVS(38553)*XX(5231)-JVS(44562)*XX(5250)-JVS(46148)*XX(5251)-JVS(47469)& - &*XX(5252)-JVS(49740)*XX(5253)-JVS(52728)*XX(5255)-JVS(54326)*XX(5256) - XX(4755) = XX(4755)-JVS(32042)*XX(5060)-JVS(32212)*XX(5071)-JVS(36837)*XX(5203)-JVS(44561)*XX(5250)-JVS(47468)& - &*XX(5252)-JVS(49739)*XX(5253)-JVS(52727)*XX(5255)-JVS(54325)*XX(5256) - XX(4754) = XX(4754)-JVS(31223)*XX(5014)-JVS(36899)*XX(5207)-JVS(40222)*XX(5244)-JVS(44560)*XX(5250)-JVS(47467)& - &*XX(5252)-JVS(49738)*XX(5253)-JVS(52726)*XX(5255)-JVS(54324)*XX(5256) - XX(4753) = XX(4753)-JVS(37342)*XX(5221)-JVS(44559)*XX(5250)-JVS(46147)*XX(5251)-JVS(47466)*XX(5252)-JVS(49737)& - &*XX(5253)-JVS(52725)*XX(5255)-JVS(54323)*XX(5256)-JVS(55001)*XX(5258) - XX(4752) = XX(4752)-JVS(34896)*XX(5177)-JVS(44558)*XX(5250)-JVS(46146)*XX(5251)-JVS(47465)*XX(5252)-JVS(49736)& - &*XX(5253)-JVS(52724)*XX(5255)-JVS(54322)*XX(5256)-JVS(55000)*XX(5258) - XX(4751) = XX(4751)-JVS(37547)*XX(5222)-JVS(44557)*XX(5250)-JVS(46145)*XX(5251)-JVS(47464)*XX(5252)-JVS(49735)& - &*XX(5253)-JVS(52723)*XX(5255)-JVS(54321)*XX(5256) - XX(4750) = XX(4750)-JVS(35918)*XX(5193)-JVS(40221)*XX(5244)-JVS(44556)*XX(5250)-JVS(46144)*XX(5251)-JVS(47463)& - &*XX(5252)-JVS(49734)*XX(5253)-JVS(52722)*XX(5255)-JVS(54320)*XX(5256) - XX(4749) = XX(4749)-JVS(30997)*XX(5001)-JVS(37546)*XX(5222)-JVS(38552)*XX(5231)-JVS(39618)*XX(5241)-JVS(40220)& - &*XX(5244)-JVS(44555)*XX(5250)-JVS(46143)*XX(5251)-JVS(52721)*XX(5255) - XX(4748) = XX(4748)-JVS(33402)*XX(5130)-JVS(35101)*XX(5182)-JVS(37155)*XX(5214)-JVS(44554)*XX(5250)-JVS(47462)& - &*XX(5252)-JVS(49733)*XX(5253)-JVS(52720)*XX(5255)-JVS(54319)*XX(5256) - XX(4747) = XX(4747)-JVS(37683)*XX(5223)-JVS(44553)*XX(5250)-JVS(46142)*XX(5251)-JVS(52719)*XX(5255) - XX(4746) = XX(4746)-JVS(38551)*XX(5231)-JVS(40521)*XX(5247)-JVS(44552)*XX(5250)-JVS(46141)*XX(5251)-JVS(47461)& - &*XX(5252)-JVS(49732)*XX(5253)-JVS(52718)*XX(5255)-JVS(54318)*XX(5256) - XX(4745) = XX(4745)-JVS(38550)*XX(5231)-JVS(40520)*XX(5247)-JVS(44551)*XX(5250)-JVS(47460)*XX(5252)-JVS(49731)& - &*XX(5253)-JVS(52717)*XX(5255)-JVS(54317)*XX(5256) - XX(4744) = XX(4744)-JVS(32904)*XX(5106)-JVS(33278)*XX(5125)-JVS(36836)*XX(5203)-JVS(38064)*XX(5230)-JVS(44550)& - &*XX(5250)-JVS(46140)*XX(5251)-JVS(47459)*XX(5252)-JVS(49730)*XX(5253)-JVS(52716)*XX(5255)-JVS(54316)& - &*XX(5256) - XX(4743) = XX(4743)-JVS(27504)*XX(4744)-JVS(27881)*XX(4775)-JVS(28360)*XX(4815)-JVS(29848)*XX(4931)-JVS(32013)& - &*XX(5059)-JVS(32903)*XX(5106)-JVS(33931)*XX(5145)-JVS(39101)*XX(5233)-JVS(44549)*XX(5250)-JVS(46139)& - &*XX(5251)-JVS(47458)*XX(5252)-JVS(49729)*XX(5253)-JVS(52715)*XX(5255)-JVS(54315)*XX(5256) - XX(4742) = XX(4742)-JVS(38549)*XX(5231)-JVS(40219)*XX(5244)-JVS(44548)*XX(5250)-JVS(46138)*XX(5251)-JVS(47457)& - &*XX(5252)-JVS(49728)*XX(5253)-JVS(52714)*XX(5255)-JVS(54314)*XX(5256) - XX(4741) = XX(4741)-JVS(29977)*XX(4938)-JVS(31739)*XX(5046)-JVS(46137)*XX(5251)-JVS(47456)*XX(5252)-JVS(49727)& - &*XX(5253)-JVS(50238)*XX(5254)-JVS(54313)*XX(5256) - XX(4740) = XX(4740)-JVS(30160)*XX(4947)-JVS(44547)*XX(5250)-JVS(47455)*XX(5252)-JVS(49726)*XX(5253)-JVS(52713)& - &*XX(5255)-JVS(54312)*XX(5256)-JVS(54999)*XX(5258) - XX(4739) = XX(4739)-JVS(37762)*XX(5225)-JVS(44546)*XX(5250)-JVS(46136)*XX(5251)-JVS(47454)*XX(5252)-JVS(49725)& - &*XX(5253)-JVS(52712)*XX(5255)-JVS(54311)*XX(5256)-JVS(54998)*XX(5258) - XX(4738) = XX(4738)-JVS(27558)*XX(4748)-JVS(44545)*XX(5250)-JVS(46135)*XX(5251)-JVS(47453)*XX(5252)-JVS(49724)& - &*XX(5253)-JVS(52711)*XX(5255)-JVS(54310)*XX(5256)-JVS(54997)*XX(5258) - XX(4737) = XX(4737)-JVS(31105)*XX(5007)-JVS(31122)*XX(5008)-JVS(31402)*XX(5026)-JVS(36535)*XX(5201)-JVS(44544)& - &*XX(5250)-JVS(46134)*XX(5251)-JVS(52710)*XX(5255)-JVS(54309)*XX(5256) - XX(4736) = XX(4736)-JVS(29162)*XX(4880)-JVS(32902)*XX(5106)-JVS(33799)*XX(5142)-JVS(33930)*XX(5145)-JVS(34435)& - &*XX(5160)-JVS(35294)*XX(5183)-JVS(44543)*XX(5250)-JVS(47452)*XX(5252)-JVS(49723)*XX(5253)-JVS(52709)& - &*XX(5255)-JVS(54308)*XX(5256) - XX(4735) = XX(4735)-JVS(31886)*XX(5053)-JVS(33554)*XX(5137)-JVS(33876)*XX(5143)-JVS(38548)*XX(5231)-JVS(38856)& - &*XX(5232)-JVS(44542)*XX(5250)-JVS(46133)*XX(5251)-JVS(47451)*XX(5252)-JVS(49722)*XX(5253)-JVS(52708)& - &*XX(5255)-JVS(54307)*XX(5256) - XX(4734) = XX(4734)-JVS(36060)*XX(5195)-JVS(36534)*XX(5201)-JVS(38855)*XX(5232)-JVS(39457)*XX(5237)-JVS(40459)& - &*XX(5245)-JVS(44541)*XX(5250)-JVS(46132)*XX(5251)-JVS(47450)*XX(5252)-JVS(49721)*XX(5253)-JVS(52707)& - &*XX(5255)-JVS(54306)*XX(5256) - XX(4733) = XX(4733)-JVS(30564)*XX(4975)-JVS(30793)*XX(4990)-JVS(31157)*XX(5010)-JVS(35710)*XX(5192)-JVS(36533)& - &*XX(5201)-JVS(44540)*XX(5250)-JVS(46131)*XX(5251)-JVS(47449)*XX(5252)-JVS(49720)*XX(5253)-JVS(52706)& - &*XX(5255)-JVS(54305)*XX(5256) - XX(4732) = XX(4732)-JVS(34094)*XX(5152)-JVS(35026)*XX(5180)-JVS(36532)*XX(5201)-JVS(38547)*XX(5231)-JVS(39100)& - &*XX(5233)-JVS(44539)*XX(5250)-JVS(46130)*XX(5251)-JVS(47448)*XX(5252)-JVS(49719)*XX(5253)-JVS(52705)& - &*XX(5255)-JVS(54304)*XX(5256) - XX(4731) = XX(4731)-JVS(33798)*XX(5142)-JVS(35293)*XX(5183)-JVS(35917)*XX(5193)-JVS(36226)*XX(5199)-JVS(40218)& - &*XX(5244)-JVS(44538)*XX(5250)-JVS(46129)*XX(5251)-JVS(47447)*XX(5252)-JVS(49718)*XX(5253)-JVS(52704)& - &*XX(5255)-JVS(54303)*XX(5256) - XX(4730) = XX(4730)-JVS(36059)*XX(5195)-JVS(36531)*XX(5201)-JVS(38546)*XX(5231)-JVS(38854)*XX(5232)-JVS(39456)& - &*XX(5237)-JVS(44537)*XX(5250)-JVS(46128)*XX(5251)-JVS(47446)*XX(5252)-JVS(49717)*XX(5253)-JVS(52703)& - &*XX(5255)-JVS(54302)*XX(5256) - XX(4729) = XX(4729)-JVS(30996)*XX(5001)-JVS(36530)*XX(5201)-JVS(37545)*XX(5222)-JVS(44536)*XX(5250)-JVS(46127)& - &*XX(5251)-JVS(47445)*XX(5252)-JVS(49716)*XX(5253)-JVS(52702)*XX(5255)-JVS(54301)*XX(5256)-JVS(54996)& - &*XX(5258) - XX(4728) = XX(4728)-JVS(30449)*XX(4966)-JVS(33675)*XX(5139)-JVS(35292)*XX(5183)-JVS(39099)*XX(5233)-JVS(44535)& - &*XX(5250)-JVS(46126)*XX(5251)-JVS(52701)*XX(5255) - XX(4727) = XX(4727)-JVS(27323)*XX(4728)-JVS(27351)*XX(4729)-JVS(29572)*XX(4913)-JVS(33674)*XX(5139)-JVS(35291)& - &*XX(5183)-JVS(44534)*XX(5250)-JVS(46125)*XX(5251)-JVS(47444)*XX(5252)-JVS(49715)*XX(5253)-JVS(52700)& - &*XX(5255)-JVS(54300)*XX(5256) - XX(4726) = XX(4726)-JVS(28126)*XX(4796)-JVS(29440)*XX(4904)-JVS(29976)*XX(4938)-JVS(37905)*XX(5228)-JVS(40217)& - &*XX(5244)-JVS(44533)*XX(5250)-JVS(46124)*XX(5251)-JVS(47443)*XX(5252)-JVS(49714)*XX(5253)-JVS(52699)& - &*XX(5255)-JVS(54299)*XX(5256) - XX(4725) = XX(4725)-JVS(27322)*XX(4728)-JVS(27350)*XX(4729)-JVS(30995)*XX(5001)-JVS(33673)*XX(5139)-JVS(35290)& - &*XX(5183)-JVS(44532)*XX(5250)-JVS(46123)*XX(5251)-JVS(47442)*XX(5252)-JVS(49713)*XX(5253)-JVS(52698)& - &*XX(5255)-JVS(54298)*XX(5256) - XX(4724) = XX(4724)-JVS(29743)*XX(4924)-JVS(34093)*XX(5152)-JVS(35916)*XX(5193)-JVS(36225)*XX(5199)-JVS(38545)& - &*XX(5231)-JVS(40216)*XX(5244)-JVS(44531)*XX(5250)-JVS(47441)*XX(5252)-JVS(49712)*XX(5253)-JVS(52697)& - &*XX(5255)-JVS(54297)*XX(5256) - XX(4723) = XX(4723)-JVS(29975)*XX(4938)-JVS(34434)*XX(5160)-JVS(35915)*XX(5193)-JVS(37544)*XX(5222)-JVS(38544)& - &*XX(5231)-JVS(40215)*XX(5244)-JVS(44530)*XX(5250)-JVS(47440)*XX(5252)-JVS(49711)*XX(5253)-JVS(52696)& - &*XX(5255)-JVS(54296)*XX(5256) - XX(4722) = XX(4722)-JVS(29414)*XX(4903)-JVS(30464)*XX(4967)-JVS(31928)*XX(5055)-JVS(33993)*XX(5148)-JVS(34433)& - &*XX(5160)-JVS(40214)*XX(5244)-JVS(44529)*XX(5250)-JVS(47439)*XX(5252)-JVS(49710)*XX(5253)-JVS(52695)& - &*XX(5255)-JVS(54295)*XX(5256) - XX(4721) = XX(4721)-JVS(28425)*XX(4822)-JVS(28445)*XX(4823)-JVS(36529)*XX(5201)-JVS(44528)*XX(5250)-JVS(46122)& - &*XX(5251)-JVS(52694)*XX(5255)-JVS(54294)*XX(5256) - XX(4720) = XX(4720)-JVS(27252)*XX(4721)-JVS(28424)*XX(4822)-JVS(28444)*XX(4823)-JVS(31607)*XX(5038)-JVS(39098)& - &*XX(5233)-JVS(44527)*XX(5250)-JVS(46121)*XX(5251)-JVS(47438)*XX(5252)-JVS(49709)*XX(5253)-JVS(52693)& - &*XX(5255)-JVS(54293)*XX(5256) - XX(4719) = XX(4719)-JVS(28984)*XX(4865)-JVS(32142)*XX(5067)-JVS(35289)*XX(5183)-JVS(35664)*XX(5191)-JVS(37543)& - &*XX(5222)-JVS(40213)*XX(5244)-JVS(44526)*XX(5250)-JVS(47437)*XX(5252)-JVS(49708)*XX(5253)-JVS(52692)& - &*XX(5255)-JVS(54292)*XX(5256) - XX(4718) = XX(4718)-JVS(27349)*XX(4729)-JVS(30994)*XX(5001)-JVS(36993)*XX(5210)-JVS(37542)*XX(5222)-JVS(40212)& - &*XX(5244)-JVS(44525)*XX(5250)-JVS(46120)*XX(5251)-JVS(47436)*XX(5252)-JVS(49707)*XX(5253)-JVS(52691)& - &*XX(5255)-JVS(54291)*XX(5256) - XX(4717) = XX(4717)-JVS(29663)*XX(4918)-JVS(33277)*XX(5125)-JVS(36528)*XX(5201)-JVS(38543)*XX(5231)-JVS(39356)& - &*XX(5235)-JVS(44524)*XX(5250)-JVS(46119)*XX(5251)-JVS(47435)*XX(5252)-JVS(49706)*XX(5253)-JVS(52690)& - &*XX(5255)-JVS(54290)*XX(5256) - XX(4716) = XX(4716)-JVS(33553)*XX(5137)-JVS(33672)*XX(5139)-JVS(33875)*XX(5143)-JVS(35288)*XX(5183)-JVS(35663)& - &*XX(5191)-JVS(44523)*XX(5250)-JVS(46118)*XX(5251)-JVS(47434)*XX(5252)-JVS(49705)*XX(5253)-JVS(52689)& - &*XX(5255)-JVS(54289)*XX(5256) - XX(4715) = XX(4715)-JVS(27703)*XX(4760)-JVS(33552)*XX(5137)-JVS(33671)*XX(5139)-JVS(33874)*XX(5143)-JVS(34561)& - &*XX(5162)-JVS(44522)*XX(5250)-JVS(46117)*XX(5251)-JVS(47433)*XX(5252)-JVS(49704)*XX(5253)-JVS(52688)& - &*XX(5255)-JVS(54288)*XX(5256) - XX(4714) = XX(4714)-JVS(30806)*XX(4991)-JVS(35287)*XX(5183)-JVS(35662)*XX(5191)-JVS(35914)*XX(5193)-JVS(40211)& - &*XX(5244)-JVS(44521)*XX(5250)-JVS(46116)*XX(5251)-JVS(47432)*XX(5252)-JVS(49703)*XX(5253)-JVS(52687)& - &*XX(5255)-JVS(54287)*XX(5256) - XX(4713) = XX(4713)-JVS(33276)*XX(5125)-JVS(33551)*XX(5137)-JVS(33670)*XX(5139)-JVS(33873)*XX(5143)-JVS(38063)& - &*XX(5230)-JVS(44520)*XX(5250)-JVS(46115)*XX(5251)-JVS(47431)*XX(5252)-JVS(49702)*XX(5253)-JVS(52686)& - &*XX(5255)-JVS(54286)*XX(5256) - XX(4712) = XX(4712)-JVS(30121)*XX(4944)-JVS(33550)*XX(5137)-JVS(33669)*XX(5139)-JVS(33872)*XX(5143)-JVS(34642)& - &*XX(5165)-JVS(44519)*XX(5250)-JVS(46114)*XX(5251)-JVS(47430)*XX(5252)-JVS(49701)*XX(5253)-JVS(52685)& - &*XX(5255)-JVS(54285)*XX(5256) - XX(4711) = XX(4711)-JVS(32345)*XX(5080)-JVS(37541)*XX(5222)-JVS(37761)*XX(5225)-JVS(39270)*XX(5234)-JVS(40210)& - &*XX(5244)-JVS(44518)*XX(5250)-JVS(46113)*XX(5251)-JVS(47429)*XX(5252)-JVS(49700)*XX(5253)-JVS(52684)& - &*XX(5255)-JVS(54284)*XX(5256) - XX(4710) = XX(4710)-JVS(28782)*XX(4850)-JVS(30077)*XX(4942)-JVS(36527)*XX(5201)-JVS(44517)*XX(5250)-JVS(46112)& - &*XX(5251)-JVS(52683)*XX(5255)-JVS(54283)*XX(5256) - XX(4709) = XX(4709)-JVS(27145)*XX(4710)-JVS(28781)*XX(4850)-JVS(33549)*XX(5137)-JVS(33668)*XX(5139)-JVS(33871)& - &*XX(5143)-JVS(44516)*XX(5250)-JVS(46111)*XX(5251)-JVS(47428)*XX(5252)-JVS(49699)*XX(5253)-JVS(52682)& - &*XX(5255)-JVS(54282)*XX(5256) - XX(4708) = XX(4708)-JVS(31606)*XX(5038)-JVS(39097)*XX(5233)-JVS(44515)*XX(5250)-JVS(46110)*XX(5251)-JVS(52681)& - &*XX(5255) - XX(4707) = XX(4707)-JVS(27116)*XX(4708)-JVS(27457)*XX(4740)-JVS(30159)*XX(4947)-JVS(36526)*XX(5201)-JVS(39096)& - &*XX(5233)-JVS(44514)*XX(5250)-JVS(46109)*XX(5251)-JVS(47427)*XX(5252)-JVS(49698)*XX(5253)-JVS(52680)& - &*XX(5255)-JVS(54281)*XX(5256) - XX(4706) = XX(4706)-JVS(32742)*XX(5100)-JVS(36224)*XX(5199)-JVS(36992)*XX(5210)-JVS(37540)*XX(5222)-JVS(40209)& - &*XX(5244)-JVS(44513)*XX(5250)-JVS(46108)*XX(5251)-JVS(47426)*XX(5252)-JVS(49697)*XX(5253)-JVS(52679)& - &*XX(5255)-JVS(54280)*XX(5256) - XX(4705) = XX(4705)-JVS(31927)*XX(5055)-JVS(33929)*XX(5145)-JVS(35913)*XX(5193)-JVS(39355)*XX(5235)-JVS(39718)& - &*XX(5242)-JVS(44512)*XX(5250)-JVS(46107)*XX(5251)-JVS(47425)*XX(5252)-JVS(49696)*XX(5253)-JVS(52678)& - &*XX(5255)-JVS(54279)*XX(5256) - XX(4704) = XX(4704)-JVS(31401)*XX(5026)-JVS(32695)*XX(5098)-JVS(33083)*XX(5117)-JVS(38542)*XX(5231)-JVS(38853)& - &*XX(5232)-JVS(44511)*XX(5250)-JVS(46106)*XX(5251)-JVS(47424)*XX(5252)-JVS(49695)*XX(5253)-JVS(52677)& - &*XX(5255)-JVS(54278)*XX(5256) - XX(4703) = XX(4703)-JVS(27321)*XX(4728)-JVS(33667)*XX(5139)-JVS(35286)*XX(5183)-JVS(37539)*XX(5222)-JVS(40208)& - &*XX(5244)-JVS(44510)*XX(5250)-JVS(46105)*XX(5251)-JVS(47423)*XX(5252)-JVS(49694)*XX(5253)-JVS(52676)& - &*XX(5255)-JVS(54277)*XX(5256) - XX(4702) = XX(4702)-JVS(27217)*XX(4719)-JVS(29064)*XX(4871)-JVS(33275)*XX(5125)-JVS(35912)*XX(5193)-JVS(38062)& - &*XX(5230)-JVS(40207)*XX(5244)-JVS(44509)*XX(5250)-JVS(47422)*XX(5252)-JVS(49693)*XX(5253)-JVS(52675)& - &*XX(5255)-JVS(54276)*XX(5256) - XX(4701) = XX(4701)-JVS(27251)*XX(4721)-JVS(27320)*XX(4728)-JVS(28443)*XX(4823)-JVS(33666)*XX(5139)-JVS(35285)& - &*XX(5183)-JVS(44508)*XX(5250)-JVS(46104)*XX(5251)-JVS(47421)*XX(5252)-JVS(49692)*XX(5253)-JVS(52674)& - &*XX(5255)-JVS(54275)*XX(5256) - XX(4700) = XX(4700)-JVS(30367)*XX(4961)-JVS(32901)*XX(5106)-JVS(34092)*XX(5152)-JVS(34432)*XX(5160)-JVS(36835)& - &*XX(5203)-JVS(38541)*XX(5231)-JVS(44507)*XX(5250)-JVS(47420)*XX(5252)-JVS(49691)*XX(5253)-JVS(52673)& - &*XX(5255)-JVS(54274)*XX(5256) - XX(4699) = XX(4699)-JVS(27348)*XX(4729)-JVS(29571)*XX(4913)-JVS(36991)*XX(5210)-JVS(37538)*XX(5222)-JVS(40206)& - &*XX(5244)-JVS(44506)*XX(5250)-JVS(46103)*XX(5251)-JVS(47419)*XX(5252)-JVS(49690)*XX(5253)-JVS(52672)& - &*XX(5255)-JVS(54273)*XX(5256) - XX(4698) = XX(4698)-JVS(32776)*XX(5101)-JVS(33365)*XX(5129)-JVS(36525)*XX(5201)-JVS(38540)*XX(5231)-JVS(38852)& - &*XX(5232)-JVS(44505)*XX(5250)-JVS(46102)*XX(5251)-JVS(47418)*XX(5252)-JVS(49689)*XX(5253)-JVS(52671)& - &*XX(5255)-JVS(54272)*XX(5256) - XX(4697) = XX(4697)-JVS(31121)*XX(5008)-JVS(32694)*XX(5098)-JVS(33082)*XX(5117)-JVS(38539)*XX(5231)-JVS(38851)& - &*XX(5232)-JVS(44504)*XX(5250)-JVS(46101)*XX(5251)-JVS(47417)*XX(5252)-JVS(49688)*XX(5253)-JVS(52670)& - &*XX(5255)-JVS(54271)*XX(5256) - XX(4696) = XX(4696)-JVS(31676)*XX(5042)-JVS(32091)*XX(5063)-JVS(32107)*XX(5064)-JVS(33975)*XX(5147)-JVS(36524)& - &*XX(5201)-JVS(44503)*XX(5250)-JVS(46100)*XX(5251)-JVS(47416)*XX(5252)-JVS(49687)*XX(5253)-JVS(52669)& - &*XX(5255)-JVS(54270)*XX(5256) - XX(4695) = XX(4695)-JVS(28703)*XX(4845)-JVS(32503)*XX(5087)-JVS(35911)*XX(5193)-JVS(36990)*XX(5210)-JVS(39095)& - &*XX(5233)-JVS(44502)*XX(5250)-JVS(46099)*XX(5251)-JVS(47415)*XX(5252)-JVS(49686)*XX(5253)-JVS(52668)& - &*XX(5255)-JVS(54269)*XX(5256) - XX(4694) = XX(4694)-JVS(29439)*XX(4904)-JVS(37537)*XX(5222)-JVS(37904)*XX(5228)-JVS(40205)*XX(5244)-JVS(44501)& - &*XX(5250)-JVS(46098)*XX(5251)-JVS(52667)*XX(5255) - XX(4693) = XX(4693)-JVS(40204)*XX(5244)-JVS(44500)*XX(5250)-JVS(52666)*XX(5255) - XX(4692) = XX(4692)-JVS(29295)*XX(4893)-JVS(31584)*XX(5037)-JVS(44499)*XX(5250)-JVS(46097)*XX(5251)-JVS(47414)& - &*XX(5252)-JVS(49685)*XX(5253)-JVS(52665)*XX(5255)-JVS(54268)*XX(5256)-JVS(54995)*XX(5258) - XX(4691) = XX(4691)-JVS(30043)*XX(4940)-JVS(31738)*XX(5046)-JVS(40559)*XX(5248)-JVS(44498)*XX(5250)-JVS(46096)& - &*XX(5251)-JVS(47413)*XX(5252)-JVS(49684)*XX(5253)-JVS(50237)*XX(5254)-JVS(54267)*XX(5256) - XX(4690) = XX(4690)-JVS(26971)*XX(4693)-JVS(29438)*XX(4904)-JVS(36523)*XX(5201)-JVS(44497)*XX(5250)-JVS(47412)& - &*XX(5252)-JVS(49683)*XX(5253)-JVS(52664)*XX(5255)-JVS(54266)*XX(5256)-JVS(54994)*XX(5258) - XX(4689) = XX(4689)-JVS(29662)*XX(4918)-JVS(31137)*XX(5009)-JVS(38061)*XX(5230)-JVS(44496)*XX(5250)-JVS(46095)& - &*XX(5251)-JVS(47411)*XX(5252)-JVS(49682)*XX(5253)-JVS(52663)*XX(5255)-JVS(54265)*XX(5256) - XX(4688) = XX(4688)-JVS(29847)*XX(4931)-JVS(30366)*XX(4961)-JVS(36834)*XX(5203)-JVS(44495)*XX(5250)-JVS(46094)& - &*XX(5251)-JVS(47410)*XX(5252)-JVS(49681)*XX(5253)-JVS(52662)*XX(5255)-JVS(54264)*XX(5256) - XX(4687) = XX(4687)-JVS(37903)*XX(5228)-JVS(38538)*XX(5231)-JVS(44494)*XX(5250)-JVS(46093)*XX(5251)-JVS(47409)& - &*XX(5252)-JVS(49680)*XX(5253)-JVS(52661)*XX(5255)-JVS(54263)*XX(5256) - XX(4686) = XX(4686)-JVS(26851)*XX(4687)-JVS(37902)*XX(5228)-JVS(38537)*XX(5231)-JVS(44493)*XX(5250)-JVS(46092)& - &*XX(5251)-JVS(47408)*XX(5252)-JVS(49679)*XX(5253)-JVS(52660)*XX(5255)-JVS(54262)*XX(5256) - XX(4685) = XX(4685)-JVS(30830)*XX(4992)-JVS(33749)*XX(5141)-JVS(35910)*XX(5193)-JVS(44492)*XX(5250)-JVS(47407)& - &*XX(5252)-JVS(49678)*XX(5253)-JVS(52659)*XX(5255)-JVS(54261)*XX(5256)-JVS(54993)*XX(5258) - XX(4684) = XX(4684)-JVS(30993)*XX(5001)-JVS(37536)*XX(5222)-JVS(44491)*XX(5250)-JVS(46091)*XX(5251)-JVS(47406)& - &*XX(5252)-JVS(49677)*XX(5253)-JVS(52658)*XX(5255)-JVS(54260)*XX(5256)-JVS(54992)*XX(5258) - XX(4683) = XX(4683)-JVS(29634)*XX(4917)-JVS(29661)*XX(4918)-JVS(32127)*XX(5066)-JVS(44490)*XX(5250)-JVS(46090)& - &*XX(5251)-JVS(47405)*XX(5252)-JVS(49676)*XX(5253)-JVS(52657)*XX(5255)-JVS(54259)*XX(5256) - XX(4682) = XX(4682)-JVS(29437)*XX(4904)-JVS(35284)*XX(5183)-JVS(36522)*XX(5201)-JVS(44489)*XX(5250)-JVS(47404)& - &*XX(5252)-JVS(49675)*XX(5253)-JVS(52656)*XX(5255)-JVS(54258)*XX(5256)-JVS(54991)*XX(5258) - XX(4681) = XX(4681)-JVS(27608)*XX(4752)-JVS(32436)*XX(5085)-JVS(44488)*XX(5250)-JVS(46089)*XX(5251)-JVS(47403)& - &*XX(5252)-JVS(49674)*XX(5253)-JVS(52655)*XX(5255)-JVS(54257)*XX(5256)-JVS(54990)*XX(5258) - XX(4680) = XX(4680)-JVS(31171)*XX(5011)-JVS(31494)*XX(5031)-JVS(44487)*XX(5250)-JVS(46088)*XX(5251)-JVS(47402)& - &*XX(5252)-JVS(49673)*XX(5253)-JVS(52654)*XX(5255)-JVS(54256)*XX(5256)-JVS(54989)*XX(5258) - XX(4679) = XX(4679)-JVS(27796)*XX(4768)-JVS(32845)*XX(5104)-JVS(44486)*XX(5250)-JVS(46087)*XX(5251)-JVS(47401)& - &*XX(5252)-JVS(49672)*XX(5253)-JVS(52653)*XX(5255)-JVS(54255)*XX(5256)-JVS(54988)*XX(5258) - XX(4678) = XX(4678)-JVS(30042)*XX(4940)-JVS(31631)*XX(5039)-JVS(40575)*XX(5249)-JVS(44485)*XX(5250)-JVS(46086)& - &*XX(5251)-JVS(47400)*XX(5252)-JVS(49671)*XX(5253)-JVS(50236)*XX(5254)-JVS(54254)*XX(5256) - XX(4677) = XX(4677)-JVS(31737)*XX(5046)-JVS(35025)*XX(5180)-JVS(38536)*XX(5231)-JVS(44484)*XX(5250)-JVS(46085)& - &*XX(5251)-JVS(47399)*XX(5252)-JVS(49670)*XX(5253)-JVS(50235)*XX(5254)-JVS(54253)*XX(5256) - XX(4676) = XX(4676)-JVS(26970)*XX(4693)-JVS(29436)*XX(4904)-JVS(36521)*XX(5201)-JVS(44483)*XX(5250)-JVS(47398)& - &*XX(5252)-JVS(49669)*XX(5253)-JVS(52652)*XX(5255)-JVS(54252)*XX(5256)-JVS(54987)*XX(5258) - XX(4675) = XX(4675)-JVS(29821)*XX(4930)-JVS(29846)*XX(4931)-JVS(32162)*XX(5068)-JVS(44482)*XX(5250)-JVS(46084)& - &*XX(5251)-JVS(47397)*XX(5252)-JVS(49668)*XX(5253)-JVS(52651)*XX(5255)-JVS(54251)*XX(5256) - XX(4674) = XX(4674)-JVS(29974)*XX(4938)-JVS(31493)*XX(5031)-JVS(37535)*XX(5222)-JVS(40203)*XX(5244)-JVS(44481)& - &*XX(5250)-JVS(47396)*XX(5252)-JVS(49667)*XX(5253)-JVS(52650)*XX(5255)-JVS(54250)*XX(5256) - XX(4673) = XX(4673)-JVS(35386)*XX(5184)-JVS(38535)*XX(5231)-JVS(39455)*XX(5237)-JVS(44480)*XX(5250)-JVS(47395)& - &*XX(5252)-JVS(49666)*XX(5253)-JVS(52649)*XX(5255)-JVS(54249)*XX(5256)-JVS(54986)*XX(5258) - XX(4672) = XX(4672)-JVS(26837)*XX(4686)-JVS(26850)*XX(4687)-JVS(39549)*XX(5239)-JVS(44479)*XX(5250)-JVS(46083)& - &*XX(5251)-JVS(47394)*XX(5252)-JVS(49665)*XX(5253)-JVS(52648)*XX(5255)-JVS(54248)*XX(5256) - XX(4671) = XX(4671)-JVS(26969)*XX(4693)-JVS(29435)*XX(4904)-JVS(36520)*XX(5201)-JVS(44478)*XX(5250)-JVS(47393)& - &*XX(5252)-JVS(49664)*XX(5253)-JVS(52647)*XX(5255)-JVS(54247)*XX(5256)-JVS(54985)*XX(5258) - XX(4670) = XX(4670)-JVS(26968)*XX(4693)-JVS(29973)*XX(4938)-JVS(44477)*XX(5250)-JVS(46082)*XX(5251)-JVS(47392)& - &*XX(5252)-JVS(49663)*XX(5253)-JVS(52646)*XX(5255)-JVS(54246)*XX(5256)-JVS(54984)*XX(5258) - XX(4669) = XX(4669)-JVS(37534)*XX(5222)-JVS(38534)*XX(5231)-JVS(40202)*XX(5244)-JVS(44476)*XX(5250)-JVS(46081)& - &*XX(5251)-JVS(47391)*XX(5252)-JVS(49662)*XX(5253)-JVS(52645)*XX(5255)-JVS(54245)*XX(5256) - XX(4668) = XX(4668)-JVS(31736)*XX(5046)-JVS(35024)*XX(5180)-JVS(38533)*XX(5231)-JVS(44475)*XX(5250)-JVS(46080)& - &*XX(5251)-JVS(47390)*XX(5252)-JVS(49661)*XX(5253)-JVS(50234)*XX(5254)-JVS(54244)*XX(5256) - XX(4667) = XX(4667)-JVS(31537)*XX(5034)-JVS(33315)*XX(5126)-JVS(33665)*XX(5139)-JVS(44474)*XX(5250)-JVS(46079)& - &*XX(5251)-JVS(47389)*XX(5252)-JVS(49660)*XX(5253)-JVS(52644)*XX(5255)-JVS(54243)*XX(5256) - XX(4666) = XX(4666)-JVS(30430)*XX(4965)-JVS(44473)*XX(5250)-JVS(47388)*XX(5252)-JVS(49659)*XX(5253)-JVS(52643)& - &*XX(5255)-JVS(54242)*XX(5256) - XX(4665) = XX(4665)-JVS(27420)*XX(4737)-JVS(33064)*XX(5116)-JVS(44472)*XX(5250)-JVS(46078)*XX(5251)-JVS(47387)& - &*XX(5252)-JVS(49658)*XX(5253)-JVS(52642)*XX(5255)-JVS(54241)*XX(5256)-JVS(54983)*XX(5258) - XX(4664) = XX(4664)-JVS(29371)*XX(4900)-JVS(32474)*XX(5086)-JVS(44471)*XX(5250)-JVS(46077)*XX(5251)-JVS(47386)& - &*XX(5252)-JVS(49657)*XX(5253)-JVS(52641)*XX(5255)-JVS(54240)*XX(5256)-JVS(54982)*XX(5258) - XX(4663) = XX(4663)-JVS(29434)*XX(4904)-JVS(35283)*XX(5183)-JVS(36519)*XX(5201)-JVS(44470)*XX(5250)-JVS(47385)& - &*XX(5252)-JVS(49656)*XX(5253)-JVS(52640)*XX(5255)-JVS(54239)*XX(5256)-JVS(54981)*XX(5258) - XX(4662) = XX(4662)-JVS(29046)*XX(4870)-JVS(30531)*XX(4973)-JVS(44469)*XX(5250)-JVS(46076)*XX(5251)-JVS(47384)& - &*XX(5252)-JVS(49655)*XX(5253)-JVS(52639)*XX(5255)-JVS(54238)*XX(5256)-JVS(54980)*XX(5258) - XX(4661) = XX(4661)-JVS(32141)*XX(5067)-JVS(33664)*XX(5139)-JVS(35661)*XX(5191)-JVS(44468)*XX(5250)-JVS(46075)& - &*XX(5251)-JVS(47383)*XX(5252)-JVS(49654)*XX(5253)-JVS(52638)*XX(5255)-JVS(54237)*XX(5256) - XX(4660) = XX(4660)-JVS(29012)*XX(4867)-JVS(31294)*XX(5019)-JVS(44467)*XX(5250)-JVS(46074)*XX(5251)-JVS(47382)& - &*XX(5252)-JVS(49653)*XX(5253)-JVS(52637)*XX(5255)-JVS(54236)*XX(5256)-JVS(54979)*XX(5258) - XX(4659) = XX(4659)-JVS(34984)*XX(5179)-JVS(38532)*XX(5231)-JVS(44466)*XX(5250)-JVS(46073)*XX(5251)-JVS(47381)& - &*XX(5252)-JVS(49652)*XX(5253)-JVS(52636)*XX(5255)-JVS(54235)*XX(5256)-JVS(54978)*XX(5258) - XX(4658) = XX(4658)-JVS(30319)*XX(4958)-JVS(44465)*XX(5250)-JVS(46072)*XX(5251)-JVS(47380)*XX(5252)-JVS(49651)& - &*XX(5253)-JVS(52635)*XX(5255)-JVS(54234)*XX(5256)-JVS(54977)*XX(5258) - XX(4657) = XX(4657)-JVS(26537)*XX(4658)-JVS(30318)*XX(4958)-JVS(44464)*XX(5250)-JVS(46071)*XX(5251)-JVS(47379)& - &*XX(5252)-JVS(49650)*XX(5253)-JVS(52634)*XX(5255)-JVS(54233)*XX(5256)-JVS(54976)*XX(5258) - XX(4656) = XX(4656)-JVS(28338)*XX(4813)-JVS(33748)*XX(5141)-JVS(35660)*XX(5191)-JVS(44463)*XX(5250)-JVS(47378)& - &*XX(5252)-JVS(49649)*XX(5253)-JVS(52633)*XX(5255)-JVS(54232)*XX(5256)-JVS(54975)*XX(5258) - XX(4655) = XX(4655)-JVS(26967)*XX(4693)-JVS(29972)*XX(4938)-JVS(36518)*XX(5201)-JVS(44462)*XX(5250)-JVS(46070)& - &*XX(5251)-JVS(47377)*XX(5252)-JVS(49648)*XX(5253)-JVS(52632)*XX(5255)-JVS(54231)*XX(5256) - XX(4654) = XX(4654)-JVS(33197)*XX(5123)-JVS(35282)*XX(5183)-JVS(35659)*XX(5191)-JVS(44461)*XX(5250)-JVS(47376)& - &*XX(5252)-JVS(49647)*XX(5253)-JVS(52631)*XX(5255)-JVS(54230)*XX(5256)-JVS(54974)*XX(5258) - XX(4653) = XX(4653)-JVS(28829)*XX(4853)-JVS(38531)*XX(5231)-JVS(44460)*XX(5250)-JVS(46069)*XX(5251)-JVS(47375)& - &*XX(5252)-JVS(49646)*XX(5253)-JVS(52630)*XX(5255)-JVS(54229)*XX(5256)-JVS(54973)*XX(5258) - XX(4652) = XX(4652)-JVS(27795)*XX(4768)-JVS(33401)*XX(5130)-JVS(44459)*XX(5250)-JVS(46068)*XX(5251)-JVS(47374)& - &*XX(5252)-JVS(49645)*XX(5253)-JVS(52629)*XX(5255)-JVS(54228)*XX(5256)-JVS(54972)*XX(5258) - XX(4651) = XX(4651)-JVS(36517)*XX(5201)-JVS(39354)*XX(5235)-JVS(44458)*XX(5250)-JVS(46067)*XX(5251)-JVS(52628)& - &*XX(5255)-JVS(54227)*XX(5256) - XX(4650) = XX(4650)-JVS(26861)*XX(4688)-JVS(36516)*XX(5201)-JVS(44457)*XX(5250)-JVS(46066)*XX(5251)-JVS(47373)& - &*XX(5252)-JVS(49644)*XX(5253)-JVS(52627)*XX(5255)-JVS(54226)*XX(5256)-JVS(54971)*XX(5258) - XX(4649) = XX(4649)-JVS(29620)*XX(4916)-JVS(31988)*XX(5058)-JVS(44456)*XX(5250)-JVS(46065)*XX(5251)-JVS(47372)& - &*XX(5252)-JVS(49643)*XX(5253)-JVS(52626)*XX(5255)-JVS(54225)*XX(5256)-JVS(54970)*XX(5258) - XX(4648) = XX(4648)-JVS(33017)*XX(5113)-JVS(38530)*XX(5231)-JVS(39269)*XX(5234)-JVS(44455)*XX(5250)-JVS(46064)& - &*XX(5251)-JVS(47371)*XX(5252)-JVS(49642)*XX(5253)-JVS(52625)*XX(5255)-JVS(54224)*XX(5256) - XX(4647) = XX(4647)-JVS(28639)*XX(4841)-JVS(34431)*XX(5160)-JVS(35909)*XX(5193)-JVS(40201)*XX(5244)-JVS(44454)& - &*XX(5250)-JVS(47370)*XX(5252)-JVS(49641)*XX(5253)-JVS(52624)*XX(5255)-JVS(54223)*XX(5256) - XX(4646) = XX(4646)-JVS(32964)*XX(5110)-JVS(34218)*XX(5158)-JVS(35908)*XX(5193)-JVS(39717)*XX(5242)-JVS(44453)& - &*XX(5250)-JVS(47369)*XX(5252)-JVS(49640)*XX(5253)-JVS(52623)*XX(5255)-JVS(54222)*XX(5256) - XX(4645) = XX(4645)-JVS(33663)*XX(5139)-JVS(35281)*XX(5183)-JVS(35658)*XX(5191)-JVS(38529)*XX(5231)-JVS(44452)& - &*XX(5250)-JVS(47368)*XX(5252)-JVS(49639)*XX(5253)-JVS(52622)*XX(5255)-JVS(54221)*XX(5256) - XX(4644) = XX(4644)-JVS(29399)*XX(4902)-JVS(36135)*XX(5197)-JVS(38850)*XX(5232)-JVS(40200)*XX(5244)-JVS(44451)& - &*XX(5250)-JVS(47367)*XX(5252)-JVS(49638)*XX(5253)-JVS(52621)*XX(5255)-JVS(54220)*XX(5256) - XX(4643) = XX(4643)-JVS(26966)*XX(4693)-JVS(29971)*XX(4938)-JVS(36515)*XX(5201)-JVS(44450)*XX(5250)-JVS(46063)& - &*XX(5251)-JVS(47366)*XX(5252)-JVS(49637)*XX(5253)-JVS(52620)*XX(5255)-JVS(54219)*XX(5256) - XX(4642) = XX(4642)-JVS(31400)*XX(5026)-JVS(32666)*XX(5097)-JVS(44449)*XX(5250)-JVS(46062)*XX(5251)-JVS(47365)& - &*XX(5252)-JVS(49636)*XX(5253)-JVS(52619)*XX(5255)-JVS(54218)*XX(5256)-JVS(54969)*XX(5258) - XX(4641) = XX(4641)-JVS(26640)*XX(4667)-JVS(33314)*XX(5126)-JVS(44448)*XX(5250)-JVS(46061)*XX(5251)-JVS(47364)& - &*XX(5252)-JVS(49635)*XX(5253)-JVS(52618)*XX(5255)-JVS(54217)*XX(5256)-JVS(54968)*XX(5258) - XX(4640) = XX(4640)-JVS(32502)*XX(5087)-JVS(35907)*XX(5193)-JVS(37533)*XX(5222)-JVS(44447)*XX(5250)-JVS(46060)& - &*XX(5251)-JVS(47363)*XX(5252)-JVS(49634)*XX(5253)-JVS(52617)*XX(5255)-JVS(54216)*XX(5256) - XX(4639) = XX(4639)-JVS(26965)*XX(4693)-JVS(29970)*XX(4938)-JVS(44446)*XX(5250)-JVS(46059)*XX(5251)-JVS(47362)& - &*XX(5252)-JVS(49633)*XX(5253)-JVS(52616)*XX(5255)-JVS(54215)*XX(5256)-JVS(54967)*XX(5258) - XX(4638) = XX(4638)-JVS(31085)*XX(5006)-JVS(32636)*XX(5095)-JVS(44445)*XX(5250)-JVS(46058)*XX(5251)-JVS(47361)& - &*XX(5252)-JVS(49632)*XX(5253)-JVS(52615)*XX(5255)-JVS(54214)*XX(5256)-JVS(54966)*XX(5258) - XX(4637) = XX(4637)-JVS(26871)*XX(4689)-JVS(36514)*XX(5201)-JVS(44444)*XX(5250)-JVS(46057)*XX(5251)-JVS(47360)& - &*XX(5252)-JVS(49631)*XX(5253)-JVS(52614)*XX(5255)-JVS(54213)*XX(5256)-JVS(54965)*XX(5258) - XX(4636) = XX(4636)-JVS(31248)*XX(5016)-JVS(32344)*XX(5080)-JVS(44443)*XX(5250)-JVS(46056)*XX(5251)-JVS(47359)& - &*XX(5252)-JVS(49630)*XX(5253)-JVS(52613)*XX(5255)-JVS(54212)*XX(5256)-JVS(54964)*XX(5258) - XX(4635) = XX(4635)-JVS(26728)*XX(4675)-JVS(32161)*XX(5068)-JVS(44442)*XX(5250)-JVS(46055)*XX(5251)-JVS(47358)& - &*XX(5252)-JVS(49629)*XX(5253)-JVS(52612)*XX(5255)-JVS(54211)*XX(5256)-JVS(54963)*XX(5258) - XX(4634) = XX(4634)-JVS(32073)*XX(5062)-JVS(34941)*XX(5178)-JVS(44441)*XX(5250)-JVS(46054)*XX(5251)-JVS(47357)& - &*XX(5252)-JVS(49628)*XX(5253)-JVS(52611)*XX(5255)-JVS(54210)*XX(5256)-JVS(54962)*XX(5258) - XX(4633) = XX(4633)-JVS(29459)*XX(4905)-JVS(32823)*XX(5103)-JVS(44440)*XX(5250)-JVS(46053)*XX(5251)-JVS(47356)& - &*XX(5252)-JVS(49627)*XX(5253)-JVS(52610)*XX(5255)-JVS(54209)*XX(5256)-JVS(54961)*XX(5258) - XX(4632) = XX(4632)-JVS(29433)*XX(4904)-JVS(35280)*XX(5183)-JVS(36513)*XX(5201)-JVS(44439)*XX(5250)-JVS(47355)& - &*XX(5252)-JVS(49626)*XX(5253)-JVS(52609)*XX(5255)-JVS(54208)*XX(5256)-JVS(54960)*XX(5258) - XX(4631) = XX(4631)-JVS(33797)*XX(5142)-JVS(35279)*XX(5183)-JVS(38528)*XX(5231)-JVS(44438)*XX(5250)-JVS(46052)& - &*XX(5251)-JVS(47354)*XX(5252)-JVS(49625)*XX(5253)-JVS(52608)*XX(5255)-JVS(54207)*XX(5256) - XX(4630) = XX(4630)-JVS(28716)*XX(4846)-JVS(29570)*XX(4913)-JVS(30158)*XX(4947)-JVS(36512)*XX(5201)-JVS(40199)& - &*XX(5244)-JVS(44437)*XX(5250)-JVS(46051)*XX(5251)-JVS(52607)*XX(5255)-JVS(54206)*XX(5256) - XX(4629) = XX(4629)-JVS(31958)*XX(5057)-JVS(33992)*XX(5148)-JVS(44436)*XX(5250)-JVS(46050)*XX(5251)-JVS(47353)& - &*XX(5252)-JVS(49624)*XX(5253)-JVS(52606)*XX(5255)-JVS(54205)*XX(5256)-JVS(54959)*XX(5258) - XX(4628) = XX(4628)-JVS(27976)*XX(4787)-JVS(34186)*XX(5157)-JVS(44435)*XX(5250)-JVS(46049)*XX(5251)-JVS(47352)& - &*XX(5252)-JVS(49623)*XX(5253)-JVS(52605)*XX(5255)-JVS(54204)*XX(5256)-JVS(54958)*XX(5258) - XX(4627) = XX(4627)-JVS(29660)*XX(4918)-JVS(33274)*XX(5125)-JVS(38527)*XX(5231)-JVS(44434)*XX(5250)-JVS(46048)& - &*XX(5251)-JVS(47351)*XX(5252)-JVS(49622)*XX(5253)-JVS(52604)*XX(5255)-JVS(54203)*XX(5256) - XX(4626) = XX(4626)-JVS(30750)*XX(4986)-JVS(33196)*XX(5123)-JVS(44433)*XX(5250)-JVS(46047)*XX(5251)-JVS(47350)& - &*XX(5252)-JVS(49621)*XX(5253)-JVS(52603)*XX(5255)-JVS(54202)*XX(5256)-JVS(54957)*XX(5258) - XX(4625) = XX(4625)-JVS(31355)*XX(5023)-JVS(32343)*XX(5080)-JVS(40198)*XX(5244)-JVS(44432)*XX(5250)-JVS(46046)& - &*XX(5251)-JVS(47349)*XX(5252)-JVS(49620)*XX(5253)-JVS(52602)*XX(5255)-JVS(54201)*XX(5256) - XX(4624) = XX(4624)-JVS(28844)*XX(4854)-JVS(38526)*XX(5231)-JVS(44431)*XX(5250)-JVS(46045)*XX(5251)-JVS(47348)& - &*XX(5252)-JVS(49619)*XX(5253)-JVS(52601)*XX(5255)-JVS(54200)*XX(5256)-JVS(54956)*XX(5258) - XX(4623) = XX(4623)-JVS(29078)*XX(4872)-JVS(35425)*XX(5185)-JVS(44430)*XX(5250)-JVS(46044)*XX(5251)-JVS(47347)& - &*XX(5252)-JVS(49618)*XX(5253)-JVS(52600)*XX(5255)-JVS(54199)*XX(5256)-JVS(54955)*XX(5258) - XX(4622) = XX(4622)-JVS(26626)*XX(4666)-JVS(30429)*XX(4965)-JVS(44429)*XX(5250)-JVS(46043)*XX(5251)-JVS(47346)& - &*XX(5252)-JVS(49617)*XX(5253)-JVS(52599)*XX(5255)-JVS(54198)*XX(5256)-JVS(54954)*XX(5258) - XX(4621) = XX(4621)-JVS(29804)*XX(4929)-JVS(31280)*XX(5018)-JVS(31735)*XX(5046)-JVS(44428)*XX(5250)-JVS(46042)& - &*XX(5251)-JVS(47345)*XX(5252)-JVS(49616)*XX(5253)-JVS(50233)*XX(5254)-JVS(54197)*XX(5256) - XX(4620) = XX(4620)-JVS(33273)*XX(5125)-JVS(38060)*XX(5230)-JVS(44427)*XX(5250)-JVS(46041)*XX(5251)-JVS(47344)& - &*XX(5252)-JVS(49615)*XX(5253)-JVS(52598)*XX(5255)-JVS(54196)*XX(5256) - XX(4619) = XX(4619)-JVS(26137)*XX(4620)-JVS(27880)*XX(4775)-JVS(29659)*XX(4918)-JVS(32012)*XX(5059)-JVS(33272)& - &*XX(5125)-JVS(37994)*XX(5229)-JVS(39094)*XX(5233)-JVS(44426)*XX(5250)-JVS(46040)*XX(5251)-JVS(47343)& - &*XX(5252)-JVS(49614)*XX(5253)-JVS(52597)*XX(5255)-JVS(54195)*XX(5256) - XX(4618) = XX(4618)-JVS(30805)*XX(4991)-JVS(35278)*XX(5183)-JVS(40197)*XX(5244)-JVS(44425)*XX(5250) - XX(4617) = XX(4617)-JVS(27573)*XX(4749)-JVS(36223)*XX(5199)-JVS(37532)*XX(5222)-JVS(38525)*XX(5231)-JVS(39093)& - &*XX(5233)-JVS(39617)*XX(5241)-JVS(40196)*XX(5244)-JVS(44424)*XX(5250)-JVS(46039)*XX(5251)-JVS(47342)& - &*XX(5252)-JVS(49613)*XX(5253)-JVS(52596)*XX(5255)-JVS(54194)*XX(5256) - XX(4616) = XX(4616)-JVS(29803)*XX(4929)-JVS(33796)*XX(5142)-JVS(35906)*XX(5193)-JVS(36511)*XX(5201)-JVS(37901)& - &*XX(5228)-JVS(38524)*XX(5231)-JVS(40195)*XX(5244)-JVS(44423)*XX(5250)-JVS(46038)*XX(5251)-JVS(47341)& - &*XX(5252)-JVS(49612)*XX(5253)-JVS(52595)*XX(5255)-JVS(54193)*XX(5256) - XX(4615) = XX(4615)-JVS(31649)*XX(5040)-JVS(32259)*XX(5074)-JVS(34129)*XX(5154)-JVS(35505)*XX(5188)-JVS(37341)& - &*XX(5221)-JVS(37682)*XX(5223)-JVS(37824)*XX(5227)-JVS(38523)*XX(5231)-JVS(44422)*XX(5250)-JVS(46037)& - &*XX(5251)-JVS(49611)*XX(5253)-JVS(52594)*XX(5255)-JVS(54953)*XX(5258) - XX(4614) = XX(4614)-JVS(37900)*XX(5228)-JVS(38522)*XX(5231)-JVS(40194)*XX(5244)-JVS(44421)*XX(5250)-JVS(47340)& - &*XX(5252)-JVS(49610)*XX(5253)-JVS(52593)*XX(5255)-JVS(54192)*XX(5256) - XX(4613) = XX(4613)-JVS(26070)*XX(4614)-JVS(40193)*XX(5244)-JVS(44420)*XX(5250)-JVS(46036)*XX(5251)-JVS(47339)& - &*XX(5252)-JVS(49609)*XX(5253)-JVS(52592)*XX(5255)-JVS(54191)*XX(5256) - XX(4612) = XX(4612)-JVS(35905)*XX(5193)-JVS(40192)*XX(5244)-JVS(44419)*XX(5250)-JVS(47338)*XX(5252)-JVS(49608)& - &*XX(5253)-JVS(52591)*XX(5255)-JVS(54190)*XX(5256) - XX(4611) = XX(4611)-JVS(26047)*XX(4612)-JVS(33795)*XX(5142)-JVS(44418)*XX(5250)-JVS(46035)*XX(5251)-JVS(47337)& - &*XX(5252)-JVS(49607)*XX(5253)-JVS(52590)*XX(5255)-JVS(54189)*XX(5256)-JVS(54952)*XX(5258) - XX(4610) = XX(4610)-JVS(26058)*XX(4613)-JVS(26069)*XX(4614)-JVS(36510)*XX(5201)-JVS(37899)*XX(5228)-JVS(44417)& - &*XX(5250)-JVS(46034)*XX(5251)-JVS(47336)*XX(5252)-JVS(49606)*XX(5253)-JVS(52589)*XX(5255)-JVS(54188)& - &*XX(5256)-JVS(54951)*XX(5258) - XX(4609) = XX(4609)-JVS(26026)*XX(4610)-JVS(26035)*XX(4611)-JVS(26046)*XX(4612)-JVS(33794)*XX(5142)-JVS(35904)& - &*XX(5193)-JVS(36509)*XX(5201)-JVS(38521)*XX(5231)-JVS(44416)*XX(5250)-JVS(46033)*XX(5251)-JVS(47335)& - &*XX(5252)-JVS(49605)*XX(5253)-JVS(52588)*XX(5255)-JVS(54187)*XX(5256) - XX(4608) = XX(4608)-JVS(29063)*XX(4871)-JVS(33271)*XX(5125)-JVS(35903)*XX(5193)-JVS(38059)*XX(5230)-JVS(40191)& - &*XX(5244)-JVS(44415)*XX(5250)-JVS(47334)*XX(5252)-JVS(49604)*XX(5253)-JVS(52587)*XX(5255)-JVS(54186)& - &*XX(5256) - XX(4607) = XX(4607)-JVS(29062)*XX(4871)-JVS(33270)*XX(5125)-JVS(35902)*XX(5193)-JVS(38058)*XX(5230)-JVS(40190)& - &*XX(5244)-JVS(44414)*XX(5250)-JVS(47333)*XX(5252)-JVS(49603)*XX(5253)-JVS(52586)*XX(5255)-JVS(54185)& - &*XX(5256) - XX(4606) = XX(4606)-JVS(26003)*XX(4607)-JVS(26012)*XX(4608)-JVS(27067)*XX(4702)-JVS(29203)*XX(4884)-JVS(30095)& - &*XX(4943)-JVS(30283)*XX(4956)-JVS(33928)*XX(5145)-JVS(35901)*XX(5193)-JVS(37898)*XX(5228)-JVS(37993)& - &*XX(5229)-JVS(38057)*XX(5230)-JVS(39524)*XX(5238)-JVS(44413)*XX(5250)-JVS(46032)*XX(5251)-JVS(52585)& - &*XX(5255)-JVS(54184)*XX(5256)-JVS(54950)*XX(5258) - XX(4605) = XX(4605)-JVS(28677)*XX(4843)-JVS(28733)*XX(4847)-JVS(28857)*XX(4855)-JVS(30248)*XX(4953)-JVS(32396)& - &*XX(5083)-JVS(34707)*XX(5169)-JVS(34847)*XX(5175)-JVS(38520)*XX(5231)-JVS(39405)*XX(5236)-JVS(40189)& - &*XX(5244)-JVS(44412)*XX(5250)-JVS(46031)*XX(5251)-JVS(47332)*XX(5252)-JVS(49602)*XX(5253)-JVS(52584)& - &*XX(5255)-JVS(54183)*XX(5256)-JVS(54949)*XX(5258) - XX(4604) = XX(4604)-JVS(26002)*XX(4607)-JVS(26011)*XX(4608)-JVS(27066)*XX(4702)-JVS(29202)*XX(4884)-JVS(30094)& - &*XX(4943)-JVS(30282)*XX(4956)-JVS(33927)*XX(5145)-JVS(35900)*XX(5193)-JVS(37897)*XX(5228)-JVS(37992)& - &*XX(5229)-JVS(38056)*XX(5230)-JVS(39523)*XX(5238)-JVS(44411)*XX(5250)-JVS(46030)*XX(5251)-JVS(52583)& - &*XX(5255)-JVS(54182)*XX(5256)-JVS(54948)*XX(5258) - XX(4603) = XX(4603)-JVS(28125)*XX(4796)-JVS(31605)*XX(5038)-JVS(32011)*XX(5059)-JVS(39092)*XX(5233)-JVS(44410)& - &*XX(5250)-JVS(46029)*XX(5251)-JVS(47331)*XX(5252)-JVS(49601)*XX(5253)-JVS(52582)*XX(5255)-JVS(54181)& - &*XX(5256) - XX(4602) = XX(4602)-JVS(44409)*XX(5250)-JVS(46028)*XX(5251)-JVS(52581)*XX(5255) - XX(4601) = XX(4601)-JVS(27898)*XX(4777)-JVS(28595)*XX(4837)-JVS(30338)*XX(4959)-JVS(31197)*XX(5012)-JVS(31734)& - &*XX(5046)-JVS(32693)*XX(5098)-JVS(34940)*XX(5178)-JVS(37681)*XX(5223)-JVS(38519)*XX(5231)-JVS(44408)& - &*XX(5250)-JVS(46027)*XX(5251)-JVS(47330)*XX(5252)-JVS(49600)*XX(5253)-JVS(50232)*XX(5254)-JVS(52580)& - &*XX(5255)-JVS(54180)*XX(5256)-JVS(54947)*XX(5258) - XX(4600) = XX(4600)-JVS(27535)*XX(4747)-JVS(29535)*XX(4910)-JVS(31733)*XX(5046)-JVS(32473)*XX(5086)-JVS(34258)& - &*XX(5159)-JVS(34430)*XX(5160)-JVS(36508)*XX(5201)-JVS(37218)*XX(5215)-JVS(38518)*XX(5231)-JVS(44407)& - &*XX(5250)-JVS(46026)*XX(5251)-JVS(47329)*XX(5252)-JVS(49599)*XX(5253)-JVS(50231)*XX(5254)-JVS(52579)& - &*XX(5255)-JVS(54179)*XX(5256)-JVS(54946)*XX(5258) - XX(4599) = XX(4599)-JVS(31354)*XX(5023)-JVS(38517)*XX(5231)-JVS(38849)*XX(5232)-JVS(39268)*XX(5234)-JVS(44406)& - &*XX(5250)-JVS(46025)*XX(5251)-JVS(47328)*XX(5252)-JVS(49598)*XX(5253)-JVS(52578)*XX(5255)-JVS(54178)& - &*XX(5256) - XX(4598) = XX(4598)-JVS(28868)*XX(4856)-JVS(37991)*XX(5229)-JVS(38055)*XX(5230)-JVS(38516)*XX(5231)-JVS(38848)& - &*XX(5232)-JVS(44405)*XX(5250)-JVS(47327)*XX(5252)-JVS(49597)*XX(5253)-JVS(52577)*XX(5255)-JVS(54177)& - &*XX(5256) - XX(4597) = XX(4597)-JVS(29398)*XX(4902)-JVS(32863)*XX(5105)-JVS(36134)*XX(5197)-JVS(38515)*XX(5231)-JVS(38847)& - &*XX(5232)-JVS(44404)*XX(5250)-JVS(47326)*XX(5252)-JVS(49596)*XX(5253)-JVS(52576)*XX(5255)-JVS(54176)& - &*XX(5256) - XX(4596) = XX(4596)-JVS(34429)*XX(5160)-JVS(38514)*XX(5231)-JVS(39267)*XX(5234)-JVS(39783)*XX(5243)-JVS(44403)& - &*XX(5250)-JVS(46024)*XX(5251)-JVS(47325)*XX(5252)-JVS(49595)*XX(5253)-JVS(52575)*XX(5255)-JVS(54175)& - &*XX(5256) - XX(4595) = XX(4595)-JVS(33793)*XX(5142)-JVS(35899)*XX(5193)-JVS(36507)*XX(5201)-JVS(38513)*XX(5231)-JVS(44402)& - &*XX(5250)-JVS(46023)*XX(5251)-JVS(47324)*XX(5252)-JVS(49594)*XX(5253)-JVS(52574)*XX(5255)-JVS(54174)& - &*XX(5256) - XX(4594) = XX(4594)-JVS(32900)*XX(5106)-JVS(34428)*XX(5160)-JVS(36833)*XX(5203)-JVS(40188)*XX(5244)-JVS(44401)& - &*XX(5250)-JVS(46022)*XX(5251)-JVS(47323)*XX(5252)-JVS(49593)*XX(5253)-JVS(52573)*XX(5255)-JVS(54173)& - &*XX(5256) - XX(4593) = XX(4593)-JVS(28380)*XX(4817)-JVS(31136)*XX(5009)-JVS(33269)*XX(5125)-JVS(38054)*XX(5230)-JVS(38512)& - &*XX(5231)-JVS(44400)*XX(5250)-JVS(47322)*XX(5252)-JVS(49592)*XX(5253)-JVS(52572)*XX(5255)-JVS(54172)& - &*XX(5256) - XX(4592) = XX(4592)-JVS(28166)*XX(4798)-JVS(36506)*XX(5201)-JVS(44399)*XX(5250)-JVS(47321)*XX(5252)-JVS(49591)& - &*XX(5253)-JVS(52571)*XX(5255)-JVS(54171)*XX(5256)-JVS(54945)*XX(5258) - XX(4591) = XX(4591)-JVS(25857)*XX(4592)-JVS(28165)*XX(4798)-JVS(36505)*XX(5201)-JVS(44398)*XX(5250)-JVS(46021)& - &*XX(5251)-JVS(47320)*XX(5252)-JVS(49590)*XX(5253)-JVS(52570)*XX(5255)-JVS(54170)*XX(5256)-JVS(54944)& - &*XX(5258) - XX(4590) = XX(4590)-JVS(32963)*XX(5110)-JVS(34217)*XX(5158)-JVS(34597)*XX(5164)-JVS(35898)*XX(5193)-JVS(40187)& - &*XX(5244)-JVS(44397)*XX(5250)-JVS(47319)*XX(5252)-JVS(49589)*XX(5253)-JVS(52569)*XX(5255)-JVS(54169)& - &*XX(5256) - XX(4589) = XX(4589)-JVS(34091)*XX(5152)-JVS(36504)*XX(5201)-JVS(38846)*XX(5232)-JVS(39266)*XX(5234)-JVS(44396)& - &*XX(5250)-JVS(46020)*XX(5251)-JVS(47318)*XX(5252)-JVS(49588)*XX(5253)-JVS(52568)*XX(5255)-JVS(54168)& - &*XX(5256) - XX(4588) = XX(4588)-JVS(34720)*XX(5170)-JVS(38511)*XX(5231)-JVS(44395)*XX(5250)-JVS(46019)*XX(5251)-JVS(52567)& - &*XX(5255) - XX(4587) = XX(4587)-JVS(28244)*XX(4804)-JVS(29092)*XX(4873)-JVS(30120)*XX(4944)-JVS(34641)*XX(5165)-JVS(38510)& - &*XX(5231)-JVS(44394)*XX(5250)-JVS(47317)*XX(5252)-JVS(49587)*XX(5253)-JVS(52566)*XX(5255)-JVS(54167)& - &*XX(5256) - XX(4586) = XX(4586)-JVS(29108)*XX(4874)-JVS(33113)*XX(5119)-JVS(33974)*XX(5147)-JVS(38509)*XX(5231)-JVS(40186)& - &*XX(5244)-JVS(44393)*XX(5250)-JVS(47316)*XX(5252)-JVS(49586)*XX(5253)-JVS(52565)*XX(5255)-JVS(54166)& - &*XX(5256) - XX(4585) = XX(4585)-JVS(30957)*XX(5000)-JVS(34090)*XX(5152)-JVS(34427)*XX(5160)-JVS(35023)*XX(5180)-JVS(44392)& - &*XX(5250)-JVS(46018)*XX(5251)-JVS(47315)*XX(5252)-JVS(49585)*XX(5253)-JVS(52564)*XX(5255)-JVS(54165)& - &*XX(5256) - XX(4584) = XX(4584)-JVS(34216)*XX(5158)-JVS(35277)*XX(5183)-JVS(35897)*XX(5193)-JVS(39716)*XX(5242)-JVS(44391)& - &*XX(5250)-JVS(46017)*XX(5251)-JVS(47314)*XX(5252)-JVS(49584)*XX(5253)-JVS(52563)*XX(5255)-JVS(54164)& - &*XX(5256) - XX(4583) = XX(4583)-JVS(28487)*XX(4827)-JVS(33926)*XX(5145)-JVS(34185)*XX(5157)-JVS(35276)*XX(5183)-JVS(36772)& - &*XX(5202)-JVS(44390)*XX(5250)-JVS(47313)*XX(5252)-JVS(49583)*XX(5253)-JVS(52562)*XX(5255)-JVS(54163)& - &*XX(5256) - XX(4582) = XX(4582)-JVS(29251)*XX(4889)-JVS(34640)*XX(5165)-JVS(36920)*XX(5208)-JVS(38508)*XX(5231)-JVS(38845)& - &*XX(5232)-JVS(44389)*XX(5250)-JVS(47312)*XX(5252)-JVS(49582)*XX(5253)-JVS(52561)*XX(5255)-JVS(54162)& - &*XX(5256) - XX(4581) = XX(4581)-JVS(33503)*XX(5136)-JVS(34008)*XX(5149)-JVS(34184)*XX(5157)-JVS(38507)*XX(5231)-JVS(40185)& - &*XX(5244)-JVS(44388)*XX(5250)-JVS(47311)*XX(5252)-JVS(49581)*XX(5253)-JVS(52560)*XX(5255)-JVS(54161)& - &*XX(5256) - XX(4580) = XX(4580)-JVS(25898)*XX(4597)-JVS(29397)*XX(4902)-JVS(34426)*XX(5160)-JVS(36133)*XX(5197)-JVS(38844)& - &*XX(5232)-JVS(44387)*XX(5250)-JVS(47310)*XX(5252)-JVS(49580)*XX(5253)-JVS(52559)*XX(5255)-JVS(54160)& - &*XX(5256) - XX(4579) = XX(4579)-JVS(27282)*XX(4724)-JVS(32140)*XX(5067)-JVS(35275)*XX(5183)-JVS(35657)*XX(5191)-JVS(38506)& - &*XX(5231)-JVS(44386)*XX(5250)-JVS(47309)*XX(5252)-JVS(49579)*XX(5253)-JVS(52558)*XX(5255)-JVS(54159)& - &*XX(5256) - XX(4578) = XX(4578)-JVS(28800)*XX(4851)-JVS(31353)*XX(5023)-JVS(38505)*XX(5231)-JVS(38843)*XX(5232)-JVS(39265)& - &*XX(5234)-JVS(44385)*XX(5250)-JVS(47308)*XX(5252)-JVS(49578)*XX(5253)-JVS(52557)*XX(5255)-JVS(54158)& - &*XX(5256) - XX(4577) = XX(4577)-JVS(29413)*XX(4903)-JVS(30463)*XX(4967)-JVS(33991)*XX(5148)-JVS(35896)*XX(5193)-JVS(40184)& - &*XX(5244)-JVS(44384)*XX(5250)-JVS(47307)*XX(5252)-JVS(49577)*XX(5253)-JVS(52556)*XX(5255)-JVS(54157)& - &*XX(5256) - XX(4576) = XX(4576)-JVS(27814)*XX(4769)-JVS(36503)*XX(5201)-JVS(44383)*XX(5250)-JVS(46016)*XX(5251)-JVS(47306)& - &*XX(5252)-JVS(49576)*XX(5253)-JVS(52555)*XX(5255)-JVS(54156)*XX(5256)-JVS(54943)*XX(5258) - XX(4575) = XX(4575)-JVS(25710)*XX(4576)-JVS(27115)*XX(4708)-JVS(27813)*XX(4769)-JVS(39091)*XX(5233)-JVS(44382)& - &*XX(5250)-JVS(46015)*XX(5251)-JVS(47305)*XX(5252)-JVS(49575)*XX(5253)-JVS(52554)*XX(5255)-JVS(54155)& - &*XX(5256) - XX(4574) = XX(4574)-JVS(33662)*XX(5139)-JVS(35274)*XX(5183)-JVS(35656)*XX(5191)-JVS(38504)*XX(5231)-JVS(44381)& - &*XX(5250)-JVS(46014)*XX(5251)-JVS(47304)*XX(5252)-JVS(49574)*XX(5253)-JVS(52553)*XX(5255)-JVS(54154)& - &*XX(5256) - XX(4573) = XX(4573)-JVS(33548)*XX(5137)-JVS(33870)*XX(5143)-JVS(34762)*XX(5171)-JVS(35895)*XX(5193)-JVS(40183)& - &*XX(5244)-JVS(44380)*XX(5250)-JVS(47303)*XX(5252)-JVS(49573)*XX(5253)-JVS(52552)*XX(5255)-JVS(54153)& - &*XX(5256) - XX(4572) = XX(4572)-JVS(28620)*XX(4839)-JVS(30596)*XX(4978)-JVS(39264)*XX(5234)-JVS(39454)*XX(5237)-JVS(44379)& - &*XX(5250)-JVS(46013)*XX(5251)-JVS(47302)*XX(5252)-JVS(49572)*XX(5253)-JVS(52551)*XX(5255)-JVS(54152)& - &*XX(5256) - XX(4571) = XX(4571)-JVS(27409)*XX(4736)-JVS(33792)*XX(5142)-JVS(33925)*XX(5145)-JVS(35655)*XX(5191)-JVS(36832)& - &*XX(5203)-JVS(44378)*XX(5250)-JVS(47301)*XX(5252)-JVS(49571)*XX(5253)-JVS(52550)*XX(5255)-JVS(54151)& - &*XX(5256) - XX(4570) = XX(4570)-JVS(30652)*XX(4982)-JVS(30673)*XX(4983)-JVS(34156)*XX(5156)-JVS(37231)*XX(5216)-JVS(37531)& - &*XX(5222)-JVS(40182)*XX(5244)-JVS(44377)*XX(5250)-JVS(46012)*XX(5251)-JVS(52549)*XX(5255)-JVS(54942)& - &*XX(5258) - XX(4569) = XX(4569)-JVS(26774)*XX(4680)-JVS(30992)*XX(5001)-JVS(31170)*XX(5011)-JVS(36502)*XX(5201)-JVS(40181)& - &*XX(5244)-JVS(44376)*XX(5250)-JVS(46011)*XX(5251)-JVS(52548)*XX(5255)-JVS(54150)*XX(5256) - XX(4568) = XX(4568)-JVS(25656)*XX(4569)-JVS(30991)*XX(5001)-JVS(31492)*XX(5031)-JVS(37530)*XX(5222)-JVS(40180)& - &*XX(5244)-JVS(44375)*XX(5250)-JVS(47300)*XX(5252)-JVS(49570)*XX(5253)-JVS(52547)*XX(5255)-JVS(54149)& - &*XX(5256) - XX(4567) = XX(4567)-JVS(26395)*XX(4644)-JVS(31084)*XX(5006)-JVS(32635)*XX(5095)-JVS(38503)*XX(5231)-JVS(40179)& - &*XX(5244)-JVS(44374)*XX(5250)-JVS(47299)*XX(5252)-JVS(49569)*XX(5253)-JVS(52546)*XX(5255)-JVS(54148)& - &*XX(5256) - XX(4566) = XX(4566)-JVS(33547)*XX(5137)-JVS(33869)*XX(5143)-JVS(34761)*XX(5171)-JVS(35894)*XX(5193)-JVS(40178)& - &*XX(5244)-JVS(44373)*XX(5250)-JVS(47298)*XX(5252)-JVS(49568)*XX(5253)-JVS(52545)*XX(5255)-JVS(54147)& - &*XX(5256) - XX(4565) = XX(4565)-JVS(28799)*XX(4851)-JVS(31352)*XX(5023)-JVS(38842)*XX(5232)-JVS(39263)*XX(5234)-JVS(44372)& - &*XX(5250)-JVS(46010)*XX(5251)-JVS(47297)*XX(5252)-JVS(49567)*XX(5253)-JVS(52544)*XX(5255)-JVS(54146)& - &*XX(5256) - XX(4564) = XX(4564)-JVS(32342)*XX(5080)-JVS(39262)*XX(5234)-JVS(40177)*XX(5244)-JVS(44371)*XX(5250)-JVS(52543)& - &*XX(5255) - XX(4563) = XX(4563)-JVS(28516)*XX(4830)-JVS(29349)*XX(4898)-JVS(29534)*XX(4910)-JVS(38502)*XX(5231)-JVS(44370)& - &*XX(5250)-JVS(46009)*XX(5251)-JVS(47296)*XX(5252)-JVS(49566)*XX(5253)-JVS(52542)*XX(5255)-JVS(54145)& - &*XX(5256) - XX(4562) = XX(4562)-JVS(29845)*XX(4931)-JVS(33924)*XX(5145)-JVS(36831)*XX(5203)-JVS(38501)*XX(5231)-JVS(38841)& - &*XX(5232)-JVS(44369)*XX(5250)-JVS(47295)*XX(5252)-JVS(49565)*XX(5253)-JVS(52541)*XX(5255)-JVS(54144)& - &*XX(5256) - XX(4561) = XX(4561)-JVS(28209)*XX(4801)-JVS(35504)*XX(5188)-JVS(37529)*XX(5222)-JVS(38500)*XX(5231)-JVS(44368)& - &*XX(5250)-JVS(46008)*XX(5251)-JVS(47294)*XX(5252)-JVS(49564)*XX(5253)-JVS(52540)*XX(5255)-JVS(54143)& - &*XX(5256) - XX(4560) = XX(4560)-JVS(35100)*XX(5182)-JVS(40176)*XX(5244)-JVS(44367)*XX(5250)-JVS(47293)*XX(5252)-JVS(49563)& - &*XX(5253)-JVS(52539)*XX(5255)-JVS(54142)*XX(5256) - XX(4559) = XX(4559)-JVS(28913)*XX(4860)-JVS(30639)*XX(4981)-JVS(36501)*XX(5201)-JVS(44366)*XX(5250)-JVS(46007)& - &*XX(5251)-JVS(52538)*XX(5255)-JVS(54141)*XX(5256) - XX(4558) = XX(4558)-JVS(31491)*XX(5031)-JVS(37528)*XX(5222)-JVS(40175)*XX(5244)-JVS(44365)*XX(5250)-JVS(46006)& - &*XX(5251)-JVS(47292)*XX(5252)-JVS(49562)*XX(5253)-JVS(52537)*XX(5255)-JVS(54140)*XX(5256) - XX(4557) = XX(4557)-JVS(37527)*XX(5222)-JVS(44364)*XX(5250)-JVS(46005)*XX(5251)-JVS(47291)*XX(5252)-JVS(49561)& - &*XX(5253)-JVS(52536)*XX(5255)-JVS(54139)*XX(5256) - XX(4556) = XX(4556)-JVS(30317)*XX(4958)-JVS(31732)*XX(5046)-JVS(46004)*XX(5251)-JVS(47290)*XX(5252)-JVS(49560)& - &*XX(5253)-JVS(50230)*XX(5254)-JVS(54138)*XX(5256) - XX(4555) = XX(4555)-JVS(25783)*XX(4585)-JVS(25889)*XX(4596)-JVS(29481)*XX(4908)-JVS(30956)*XX(5000)-JVS(34425)& - &*XX(5160)-JVS(36771)*XX(5202)-JVS(37680)*XX(5223)-JVS(38499)*XX(5231)-JVS(39782)*XX(5243)-JVS(44363)& - &*XX(5250)-JVS(46003)*XX(5251)-JVS(47289)*XX(5252)-JVS(49559)*XX(5253)-JVS(52535)*XX(5255)-JVS(54137)& - &*XX(5256)-JVS(54941)*XX(5258) - XX(4554) = XX(4554)-JVS(30955)*XX(5000)-JVS(38498)*XX(5231)-JVS(39781)*XX(5243)-JVS(44362)*XX(5250)-JVS(46002)& - &*XX(5251)-JVS(47288)*XX(5252)-JVS(49558)*XX(5253)-JVS(52534)*XX(5255)-JVS(54136)*XX(5256) - XX(4553) = XX(4553)-JVS(30954)*XX(5000)-JVS(44361)*XX(5250)-JVS(46001)*XX(5251)-JVS(47287)*XX(5252)-JVS(49557)& - &*XX(5253)-JVS(52533)*XX(5255)-JVS(54135)*XX(5256) - XX(4552) = XX(4552)-JVS(31041)*XX(5004)-JVS(38497)*XX(5231)-JVS(44360)*XX(5250)-JVS(47286)*XX(5252)-JVS(49556)& - &*XX(5253)-JVS(52532)*XX(5255)-JVS(54134)*XX(5256) - XX(4551) = XX(4551)-JVS(31731)*XX(5046)-JVS(35503)*XX(5188)-JVS(46000)*XX(5251)-JVS(47285)*XX(5252)-JVS(49555)& - &*XX(5253)-JVS(50229)*XX(5254)-JVS(54133)*XX(5256) - XX(4550) = XX(4550)-JVS(38496)*XX(5231)-JVS(40174)*XX(5244)-JVS(44359)*XX(5250)-JVS(47284)*XX(5252)-JVS(49554)& - &*XX(5253)-JVS(52531)*XX(5255)-JVS(54132)*XX(5256) - XX(4549) = XX(4549)-JVS(38495)*XX(5231)-JVS(39780)*XX(5243)-JVS(44358)*XX(5250)-JVS(47283)*XX(5252)-JVS(49553)& - &*XX(5253)-JVS(52530)*XX(5255)-JVS(54131)*XX(5256) - XX(4548) = XX(4548)-JVS(31247)*XX(5016)-JVS(44357)*XX(5250)-JVS(45999)*XX(5251)-JVS(47282)*XX(5252)-JVS(49552)& - &*XX(5253)-JVS(52529)*XX(5255)-JVS(54130)*XX(5256) - XX(4547) = XX(4547)-JVS(27456)*XX(4740)-JVS(30157)*XX(4947)-JVS(36500)*XX(5201)-JVS(44356)*XX(5250)-JVS(45998)& - &*XX(5251)-JVS(52528)*XX(5255)-JVS(54129)*XX(5256) - XX(4546) = XX(4546)-JVS(28208)*XX(4801)-JVS(44355)*XX(5250)-JVS(45997)*XX(5251)-JVS(47281)*XX(5252)-JVS(49551)& - &*XX(5253)-JVS(52527)*XX(5255)-JVS(54128)*XX(5256) - XX(4545) = XX(4545)-JVS(32472)*XX(5086)-JVS(34424)*XX(5160)-JVS(44354)*XX(5250)-JVS(47280)*XX(5252)-JVS(49550)& - &*XX(5253)-JVS(52526)*XX(5255)-JVS(54127)*XX(5256) - XX(4544) = XX(4544)-JVS(31730)*XX(5046)-JVS(34423)*XX(5160)-JVS(45996)*XX(5251)-JVS(47279)*XX(5252)-JVS(49549)& - &*XX(5253)-JVS(50228)*XX(5254)-JVS(54126)*XX(5256) - XX(4543) = XX(4543)-JVS(38494)*XX(5231)-JVS(44353)*XX(5250)-JVS(45995)*XX(5251)-JVS(47278)*XX(5252)-JVS(49548)& - &*XX(5253)-JVS(52525)*XX(5255)-JVS(54125)*XX(5256) - XX(4542) = XX(4542)-JVS(40519)*XX(5247)-JVS(44352)*XX(5250)-JVS(45994)*XX(5251)-JVS(47277)*XX(5252)-JVS(49547)& - &*XX(5253)-JVS(52524)*XX(5255)-JVS(54124)*XX(5256) - XX(4541) = XX(4541)-JVS(30041)*XX(4940)-JVS(38493)*XX(5231)-JVS(44351)*XX(5250)-JVS(47276)*XX(5252)-JVS(49546)& - &*XX(5253)-JVS(52523)*XX(5255)-JVS(54123)*XX(5256) - XX(4540) = XX(4540)-JVS(30380)*XX(4962)-JVS(30866)*XX(4995)-JVS(36499)*XX(5201)-JVS(44350)*XX(5250)-JVS(45993)& - &*XX(5251)-JVS(52522)*XX(5255)-JVS(54122)*XX(5256) - XX(4539) = XX(4539)-JVS(29906)*XX(4936)-JVS(44349)*XX(5250)-JVS(45992)*XX(5251)-JVS(47275)*XX(5252)-JVS(49545)& - &*XX(5253)-JVS(52521)*XX(5255)-JVS(54121)*XX(5256) - XX(4538) = XX(4538)-JVS(34983)*XX(5179)-JVS(35502)*XX(5188)-JVS(44348)*XX(5250)-JVS(47274)*XX(5252)-JVS(49544)& - &*XX(5253)-JVS(52520)*XX(5255)-JVS(54120)*XX(5256) - XX(4537) = XX(4537)-JVS(29107)*XX(4874)-JVS(30337)*XX(4959)-JVS(36498)*XX(5201)-JVS(44347)*XX(5250)-JVS(45991)& - &*XX(5251)-JVS(52519)*XX(5255)-JVS(54119)*XX(5256) - XX(4536) = XX(4536)-JVS(27879)*XX(4775)-JVS(44346)*XX(5250)-JVS(45990)*XX(5251)-JVS(47273)*XX(5252)-JVS(49543)& - &*XX(5253)-JVS(52518)*XX(5255)-JVS(54118)*XX(5256) - XX(4535) = XX(4535)-JVS(33791)*XX(5142)-JVS(35273)*XX(5183)-JVS(35654)*XX(5191)-JVS(36222)*XX(5199)-JVS(40173)& - &*XX(5244)-JVS(44345)*XX(5250)-JVS(45989)*XX(5251)-JVS(47272)*XX(5252)-JVS(49542)*XX(5253)-JVS(52517)& - &*XX(5255)-JVS(54117)*XX(5256) - XX(4534) = XX(4534)-JVS(33661)*XX(5139)-JVS(35272)*XX(5183)-JVS(37526)*XX(5222)-JVS(40172)*XX(5244)-JVS(44344)& - &*XX(5250)-JVS(45988)*XX(5251)-JVS(52516)*XX(5255) - XX(4533) = XX(4533)-JVS(25278)*XX(4534)-JVS(25288)*XX(4535)-JVS(28124)*XX(4796)-JVS(33660)*XX(5139)-JVS(37525)& - &*XX(5222)-JVS(37896)*XX(5228)-JVS(44343)*XX(5250)-JVS(45987)*XX(5251)-JVS(47271)*XX(5252)-JVS(49541)& - &*XX(5253)-JVS(52515)*XX(5255)-JVS(54116)*XX(5256) - XX(4532) = XX(4532)-JVS(27702)*XX(4760)-JVS(33659)*XX(5139)-JVS(44342)*XX(5250)-JVS(45986)*XX(5251)-JVS(47270)& - &*XX(5252)-JVS(49540)*XX(5253)-JVS(52514)*XX(5255)-JVS(54115)*XX(5256) - XX(4531) = XX(4531)-JVS(28123)*XX(4796)-JVS(32010)*XX(5059)-JVS(44341)*XX(5250)-JVS(47269)*XX(5252)-JVS(49539)& - &*XX(5253)-JVS(52513)*XX(5255)-JVS(54114)*XX(5256)-JVS(54940)*XX(5258) - XX(4530) = XX(4530)-JVS(34089)*XX(5152)-JVS(36497)*XX(5201)-JVS(38492)*XX(5231)-JVS(44340)*XX(5250)-JVS(45985)& - &*XX(5251)-JVS(49538)*XX(5253)-JVS(52512)*XX(5255)-JVS(54113)*XX(5256) - XX(4529) = XX(4529)-JVS(29778)*XX(4927)-JVS(30749)*XX(4986)-JVS(31583)*XX(5037)-JVS(36944)*XX(5209)-JVS(37524)& - &*XX(5222)-JVS(37895)*XX(5228)-JVS(39090)*XX(5233)-JVS(44339)*XX(5250)-JVS(47268)*XX(5252)-JVS(49537)& - &*XX(5253)-JVS(52511)*XX(5255)-JVS(54112)*XX(5256) - XX(4528) = XX(4528)-JVS(37679)*XX(5223)-JVS(44338)*XX(5250)-JVS(45984)*XX(5251)-JVS(52510)*XX(5255) - XX(4527) = XX(4527)-JVS(25209)*XX(4528)-JVS(25760)*XX(4582)-JVS(25798)*XX(4587)-JVS(28604)*XX(4838)-JVS(29155)& - &*XX(4879)-JVS(32072)*XX(5062)-JVS(33485)*XX(5135)-JVS(34639)*XX(5165)-JVS(36919)*XX(5208)-JVS(38491)& - &*XX(5231)-JVS(39522)*XX(5238)-JVS(44337)*XX(5250)-JVS(45983)*XX(5251)-JVS(52509)*XX(5255)-JVS(54111)& - &*XX(5256)-JVS(54939)*XX(5258) - XX(4526) = XX(4526)-JVS(31630)*XX(5039)-JVS(31729)*XX(5046)-JVS(44336)*XX(5250)-JVS(45982)*XX(5251)-JVS(47267)& - &*XX(5252)-JVS(49536)*XX(5253)-JVS(50227)*XX(5254)-JVS(54110)*XX(5256) - XX(4525) = XX(4525)-JVS(26836)*XX(4686)-JVS(26849)*XX(4687)-JVS(44335)*XX(5250)-JVS(45981)*XX(5251)-JVS(47266)& - &*XX(5252)-JVS(49535)*XX(5253)-JVS(52508)*XX(5255)-JVS(54109)*XX(5256) - XX(4524) = XX(4524)-JVS(31399)*XX(5026)-JVS(33138)*XX(5121)-JVS(40171)*XX(5244)-JVS(44334)*XX(5250)-JVS(52507)& - &*XX(5255) - XX(4523) = XX(4523)-JVS(25172)*XX(4524)-JVS(44333)*XX(5250)-JVS(45980)*XX(5251)-JVS(47265)*XX(5252)-JVS(49534)& - &*XX(5253)-JVS(52506)*XX(5255)-JVS(54108)*XX(5256)-JVS(54938)*XX(5258) - XX(4522) = XX(4522)-JVS(34939)*XX(5178)-JVS(44332)*XX(5250)-JVS(45979)*XX(5251)-JVS(47264)*XX(5252)-JVS(49533)& - &*XX(5253)-JVS(52505)*XX(5255)-JVS(54107)*XX(5256)-JVS(54937)*XX(5258) - XX(4521) = XX(4521)-JVS(31135)*XX(5009)-JVS(32650)*XX(5096)-JVS(44331)*XX(5250)-JVS(45978)*XX(5251)-JVS(47263)& - &*XX(5252)-JVS(49532)*XX(5253)-JVS(52504)*XX(5255)-JVS(54106)*XX(5256) - XX(4520) = XX(4520)-JVS(38490)*XX(5231)-JVS(38840)*XX(5232)-JVS(44330)*XX(5250)-JVS(45977)*XX(5251)-JVS(47262)& - &*XX(5252)-JVS(49531)*XX(5253)-JVS(52503)*XX(5255)-JVS(54105)*XX(5256) - XX(4519) = XX(4519)-JVS(37340)*XX(5221)-JVS(44329)*XX(5250)-JVS(45976)*XX(5251)-JVS(47261)*XX(5252)-JVS(49530)& - &*XX(5253)-JVS(52502)*XX(5255)-JVS(54104)*XX(5256)-JVS(54936)*XX(5258) - XX(4518) = XX(4518)-JVS(30316)*XX(4958)-JVS(44328)*XX(5250)-JVS(45975)*XX(5251)-JVS(47260)*XX(5252)-JVS(49529)& - &*XX(5253)-JVS(52501)*XX(5255)-JVS(54103)*XX(5256)-JVS(54935)*XX(5258) - XX(4517) = XX(4517)-JVS(26106)*XX(4618)-JVS(28813)*XX(4852)-JVS(44327)*XX(5250)-JVS(45974)*XX(5251)-JVS(47259)& - &*XX(5252)-JVS(49528)*XX(5253)-JVS(52500)*XX(5255)-JVS(54102)*XX(5256) - XX(4516) = XX(4516)-JVS(35022)*XX(5180)-JVS(44326)*XX(5250)-JVS(45973)*XX(5251)-JVS(47258)*XX(5252)-JVS(49527)& - &*XX(5253)-JVS(52499)*XX(5255)-JVS(54101)*XX(5256)-JVS(54934)*XX(5258) - XX(4515) = XX(4515)-JVS(31675)*XX(5042)-JVS(33973)*XX(5147)-JVS(44325)*XX(5250)-JVS(45972)*XX(5251)-JVS(47257)& - &*XX(5252)-JVS(49526)*XX(5253)-JVS(52498)*XX(5255)-JVS(54100)*XX(5256) - XX(4514) = XX(4514)-JVS(28122)*XX(4796)-JVS(29432)*XX(4904)-JVS(44324)*XX(5250)-JVS(47256)*XX(5252)-JVS(49525)& - &*XX(5253)-JVS(52497)*XX(5255)-JVS(54099)*XX(5256)-JVS(54933)*XX(5258) - XX(4513) = XX(4513)-JVS(29619)*XX(4916)-JVS(31987)*XX(5058)-JVS(44323)*XX(5250)-JVS(45971)*XX(5251)-JVS(47255)& - &*XX(5252)-JVS(49524)*XX(5253)-JVS(52496)*XX(5255)-JVS(54098)*XX(5256) - XX(4512) = XX(4512)-JVS(25395)*XX(4544)-JVS(28292)*XX(4809)-JVS(30953)*XX(5000)-JVS(32041)*XX(5060)-JVS(33364)& - &*XX(5129)-JVS(34422)*XX(5160)-JVS(37678)*XX(5223)-JVS(38489)*XX(5231)-JVS(39616)*XX(5241)-JVS(44322)& - &*XX(5250)-JVS(45970)*XX(5251)-JVS(47254)*XX(5252)-JVS(49523)*XX(5253)-JVS(52495)*XX(5255)-JVS(54097)& - &*XX(5256)-JVS(54932)*XX(5258) - XX(4511) = XX(4511)-JVS(28035)*XX(4792)-JVS(36496)*XX(5201)-JVS(44321)*XX(5250)-JVS(45969)*XX(5251)-JVS(47253)& - &*XX(5252)-JVS(49522)*XX(5253)-JVS(52494)*XX(5255)-JVS(54096)*XX(5256) - XX(4510) = XX(4510)-JVS(35099)*XX(5182)-JVS(38839)*XX(5232)-JVS(44320)*XX(5250)-JVS(45968)*XX(5251)-JVS(47252)& - &*XX(5252)-JVS(49521)*XX(5253)-JVS(52493)*XX(5255)-JVS(54095)*XX(5256) - XX(4509) = XX(4509)-JVS(26964)*XX(4693)-JVS(29431)*XX(4904)-JVS(44319)*XX(5250)-JVS(47251)*XX(5252)-JVS(49520)& - &*XX(5253)-JVS(52492)*XX(5255)-JVS(54094)*XX(5256)-JVS(54931)*XX(5258) - XX(4508) = XX(4508)-JVS(25208)*XX(4528)-JVS(25587)*XX(4562)-JVS(27051)*XX(4700)-JVS(29022)*XX(4868)-JVS(29170)& - &*XX(4881)-JVS(31688)*XX(5043)-JVS(33923)*XX(5145)-JVS(36830)*XX(5203)-JVS(37990)*XX(5229)-JVS(38488)& - &*XX(5231)-JVS(39521)*XX(5238)-JVS(44318)*XX(5250)-JVS(45967)*XX(5251)-JVS(52491)*XX(5255)-JVS(54093)& - &*XX(5256)-JVS(54930)*XX(5258) - XX(4507) = XX(4507)-JVS(29430)*XX(4904)-JVS(44317)*XX(5250)-JVS(49519)*XX(5253) - XX(4506) = XX(4506)-JVS(24998)*XX(4507)-JVS(26963)*XX(4693)-JVS(36495)*XX(5201)-JVS(44316)*XX(5250)-JVS(47250)& - &*XX(5252)-JVS(49518)*XX(5253)-JVS(52490)*XX(5255)-JVS(54092)*XX(5256) - XX(4505) = XX(4505)-JVS(32692)*XX(5098)-JVS(44315)*XX(5250)-JVS(45966)*XX(5251)-JVS(47249)*XX(5252)-JVS(49517)& - &*XX(5253)-JVS(52489)*XX(5255)-JVS(54091)*XX(5256)-JVS(54929)*XX(5258) - XX(4504) = XX(4504)-JVS(26586)*XX(4663)-JVS(36494)*XX(5201)-JVS(44314)*XX(5250)-JVS(47248)*XX(5252)-JVS(49516)& - &*XX(5253)-JVS(52488)*XX(5255)-JVS(54090)*XX(5256)-JVS(54928)*XX(5258) - XX(4503) = XX(4503)-JVS(34215)*XX(5158)-JVS(34421)*XX(5160)-JVS(44313)*XX(5250)-JVS(45965)*XX(5251)-JVS(47247)& - &*XX(5252)-JVS(49515)*XX(5253)-JVS(52487)*XX(5255)-JVS(54089)*XX(5256) - XX(4502) = XX(4502)-JVS(33268)*XX(5125)-JVS(36493)*XX(5201)-JVS(44312)*XX(5250)-JVS(45964)*XX(5251)-JVS(47246)& - &*XX(5252)-JVS(49514)*XX(5253)-JVS(52486)*XX(5255)-JVS(54088)*XX(5256) - XX(4501) = XX(4501)-JVS(32040)*XX(5060)-JVS(32318)*XX(5079)-JVS(36492)*XX(5201)-JVS(44311)*XX(5250)-JVS(45963)& - &*XX(5251)-JVS(52485)*XX(5255)-JVS(54087)*XX(5256) - XX(4500) = XX(4500)-JVS(24884)*XX(4501)-JVS(44310)*XX(5250)-JVS(45962)*XX(5251)-JVS(47245)*XX(5252)-JVS(49513)& - &*XX(5253)-JVS(52484)*XX(5255)-JVS(54086)*XX(5256)-JVS(54927)*XX(5258) - XX(4499) = XX(4499)-JVS(24997)*XX(4507)-JVS(35271)*XX(5183)-JVS(44309)*XX(5250)-JVS(47244)*XX(5252)-JVS(49512)& - &*XX(5253)-JVS(52483)*XX(5255)-JVS(54085)*XX(5256)-JVS(54926)*XX(5258) - XX(4498) = XX(4498)-JVS(24996)*XX(4507)-JVS(26962)*XX(4693)-JVS(36491)*XX(5201)-JVS(44308)*XX(5250)-JVS(47243)& - &*XX(5252)-JVS(49511)*XX(5253)-JVS(52482)*XX(5255)-JVS(54084)*XX(5256) - XX(4497) = XX(4497)-JVS(34420)*XX(5160)-JVS(35098)*XX(5182)-JVS(44307)*XX(5250)-JVS(47242)*XX(5252)-JVS(49510)& - &*XX(5253)-JVS(52481)*XX(5255)-JVS(54083)*XX(5256) - XX(4496) = XX(4496)-JVS(24842)*XX(4497)-JVS(44306)*XX(5250)-JVS(45961)*XX(5251)-JVS(47241)*XX(5252)-JVS(49509)& - &*XX(5253)-JVS(52480)*XX(5255)-JVS(54082)*XX(5256)-JVS(54925)*XX(5258) - XX(4495) = XX(4495)-JVS(26739)*XX(4676)-JVS(36490)*XX(5201)-JVS(44305)*XX(5250)-JVS(47240)*XX(5252)-JVS(49508)& - &*XX(5253)-JVS(52479)*XX(5255)-JVS(54081)*XX(5256)-JVS(54924)*XX(5258) - XX(4494) = XX(4494)-JVS(28303)*XX(4810)-JVS(36489)*XX(5201)-JVS(44304)*XX(5250)-JVS(47239)*XX(5252)-JVS(49507)& - &*XX(5253)-JVS(52478)*XX(5255)-JVS(54080)*XX(5256)-JVS(54923)*XX(5258) - XX(4493) = XX(4493)-JVS(30485)*XX(4969)-JVS(32987)*XX(5111)-JVS(36488)*XX(5201)-JVS(40170)*XX(5244)-JVS(44303)& - &*XX(5250)-JVS(54079)*XX(5256) - XX(4492) = XX(4492)-JVS(24797)*XX(4493)-JVS(25595)*XX(4563)-JVS(29557)*XX(4912)-JVS(29758)*XX(4925)-JVS(31450)& - &*XX(5029)-JVS(34257)*XX(5159)-JVS(34419)*XX(5160)-JVS(36189)*XX(5198)-JVS(37109)*XX(5213)-JVS(44302)& - &*XX(5250)-JVS(45960)*XX(5251)-JVS(47238)*XX(5252)-JVS(49506)*XX(5253)-JVS(52477)*XX(5255)-JVS(54078)& - &*XX(5256)-JVS(54922)*XX(5258) - XX(4491) = XX(4491)-JVS(28121)*XX(4796)-JVS(32009)*XX(5059)-JVS(37523)*XX(5222)-JVS(37894)*XX(5228)-JVS(40169)& - &*XX(5244)-JVS(44301)*XX(5250)-JVS(45959)*XX(5251)-JVS(52476)*XX(5255) - XX(4490) = XX(4490)-JVS(36221)*XX(5199)-JVS(36487)*XX(5201)-JVS(40168)*XX(5244)-JVS(44300)*XX(5250)-JVS(45958)& - &*XX(5251)-JVS(52475)*XX(5255)-JVS(54077)*XX(5256) - XX(4489) = XX(4489)-JVS(25960)*XX(4602)-JVS(35893)*XX(5193)-JVS(40167)*XX(5244)-JVS(44299)*XX(5250)-JVS(47237)& - &*XX(5252)-JVS(49505)*XX(5253)-JVS(52474)*XX(5255)-JVS(54076)*XX(5256) - XX(4488) = XX(4488)-JVS(24735)*XX(4489)-JVS(24751)*XX(4490)-JVS(24770)*XX(4491)-JVS(25959)*XX(4602)-JVS(39089)& - &*XX(5233)-JVS(40166)*XX(5244)-JVS(44298)*XX(5250)-JVS(45957)*XX(5251)-JVS(47236)*XX(5252)-JVS(49504)& - &*XX(5253)-JVS(52473)*XX(5255)-JVS(54075)*XX(5256) - XX(4487) = XX(4487)-JVS(24995)*XX(4507)-JVS(26961)*XX(4693)-JVS(44297)*XX(5250)-JVS(47235)*XX(5252)-JVS(49503)& - &*XX(5253)-JVS(52472)*XX(5255)-JVS(54074)*XX(5256)-JVS(54921)*XX(5258) - XX(4486) = XX(4486)-JVS(39715)*XX(5242)-JVS(40165)*XX(5244)-JVS(44296)*XX(5250)-JVS(45956)*XX(5251)-JVS(47234)& - &*XX(5252)-JVS(49502)*XX(5253)-JVS(52471)*XX(5255)-JVS(54073)*XX(5256) - XX(4485) = XX(4485)-JVS(32231)*XX(5072)-JVS(44295)*XX(5250)-JVS(45955)*XX(5251)-JVS(47233)*XX(5252)-JVS(49501)& - &*XX(5253)-JVS(52470)*XX(5255)-JVS(54072)*XX(5256)-JVS(54920)*XX(5258) - XX(4484) = XX(4484)-JVS(24689)*XX(4485)-JVS(44294)*XX(5250)-JVS(45954)*XX(5251)-JVS(47232)*XX(5252)-JVS(49500)& - &*XX(5253)-JVS(52469)*XX(5255)-JVS(54071)*XX(5256)-JVS(54919)*XX(5258) - XX(4483) = XX(4483)-JVS(30748)*XX(4986)-JVS(33195)*XX(5123)-JVS(40164)*XX(5244)-JVS(44293)*XX(5250)-JVS(47231)& - &*XX(5252)-JVS(49499)*XX(5253)-JVS(52468)*XX(5255)-JVS(54070)*XX(5256) - XX(4482) = XX(4482)-JVS(28034)*XX(4792)-JVS(44292)*XX(5250)-JVS(47230)*XX(5252)-JVS(49498)*XX(5253)-JVS(52467)& - &*XX(5255)-JVS(54069)*XX(5256) - XX(4481) = XX(4481)-JVS(29969)*XX(4938)-JVS(40163)*XX(5244)-JVS(44291)*XX(5250)-JVS(47229)*XX(5252)-JVS(49497)& - &*XX(5253)-JVS(52466)*XX(5255)-JVS(54068)*XX(5256) - XX(4480) = XX(4480)-JVS(24632)*XX(4481)-JVS(32691)*XX(5098)-JVS(40162)*XX(5244)-JVS(44290)*XX(5250)-JVS(47228)& - &*XX(5252)-JVS(49496)*XX(5253)-JVS(52465)*XX(5255)-JVS(54067)*XX(5256) - XX(4479) = XX(4479)-JVS(28020)*XX(4791)-JVS(36486)*XX(5201)-JVS(44289)*XX(5250)-JVS(47227)*XX(5252)-JVS(49495)& - &*XX(5253)-JVS(52464)*XX(5255)-JVS(54066)*XX(5256)-JVS(54918)*XX(5258) - XX(4478) = XX(4478)-JVS(26882)*XX(4690)-JVS(36485)*XX(5201)-JVS(44288)*XX(5250)-JVS(47226)*XX(5252)-JVS(49494)& - &*XX(5253)-JVS(52463)*XX(5255)-JVS(54065)*XX(5256)-JVS(54917)*XX(5258) - XX(4477) = XX(4477)-JVS(26835)*XX(4686)-JVS(26848)*XX(4687)-JVS(44287)*XX(5250)-JVS(45953)*XX(5251)-JVS(47225)& - &*XX(5252)-JVS(49493)*XX(5253)-JVS(52462)*XX(5255)-JVS(54064)*XX(5256) - XX(4476) = XX(4476)-JVS(26105)*XX(4618)-JVS(35270)*XX(5183)-JVS(35653)*XX(5191)-JVS(35892)*XX(5193)-JVS(44286)& - &*XX(5250)-JVS(47224)*XX(5252)-JVS(49492)*XX(5253)-JVS(52461)*XX(5255)-JVS(54063)*XX(5256) - XX(4475) = XX(4475)-JVS(24578)*XX(4476)-JVS(27176)*XX(4714)-JVS(27778)*XX(4767)-JVS(27940)*XX(4782)-JVS(30062)& - &*XX(4941)-JVS(30093)*XX(4943)-JVS(33790)*XX(5142)-JVS(35652)*XX(5191)-JVS(35891)*XX(5193)-JVS(37893)& - &*XX(5228)-JVS(39520)*XX(5238)-JVS(44285)*XX(5250)-JVS(45952)*XX(5251)-JVS(52460)*XX(5255)-JVS(54062)& - &*XX(5256)-JVS(54916)*XX(5258) - XX(4474) = XX(4474)-JVS(25394)*XX(4544)-JVS(26422)*XX(4647)-JVS(27272)*XX(4723)-JVS(30092)*XX(4943)-JVS(34418)& - &*XX(5160)-JVS(35890)*XX(5193)-JVS(37892)*XX(5228)-JVS(39615)*XX(5241)-JVS(40161)*XX(5244)-JVS(44284)& - &*XX(5250)-JVS(45951)*XX(5251)-JVS(47223)*XX(5252)-JVS(49491)*XX(5253)-JVS(52459)*XX(5255)-JVS(54061)& - &*XX(5256)-JVS(54915)*XX(5258) - XX(4473) = XX(4473)-JVS(34417)*XX(5160)-JVS(35889)*XX(5193)-JVS(40160)*XX(5244)-JVS(44283)*XX(5250)-JVS(47222)& - &*XX(5252)-JVS(49490)*XX(5253)-JVS(52458)*XX(5255)-JVS(54060)*XX(5256) - XX(4472) = XX(4472)-JVS(29802)*XX(4929)-JVS(40159)*XX(5244)-JVS(44282)*XX(5250)-JVS(45950)*XX(5251)-JVS(47221)& - &*XX(5252)-JVS(49489)*XX(5253)-JVS(52457)*XX(5255)-JVS(54059)*XX(5256) - XX(4471) = XX(4471)-JVS(24994)*XX(4507)-JVS(26960)*XX(4693)-JVS(44281)*XX(5250)-JVS(47220)*XX(5252)-JVS(49488)& - &*XX(5253)-JVS(52456)*XX(5255)-JVS(54058)*XX(5256)-JVS(54914)*XX(5258) - XX(4470) = XX(4470)-JVS(38053)*XX(5230)-JVS(44280)*XX(5250)-JVS(45949)*XX(5251)-JVS(47219)*XX(5252)-JVS(49487)& - &*XX(5253)-JVS(52455)*XX(5255)-JVS(54057)*XX(5256)-JVS(54913)*XX(5258) - XX(4469) = XX(4469)-JVS(25555)*XX(4559)-JVS(30622)*XX(4980)-JVS(44279)*XX(5250)-JVS(45948)*XX(5251)-JVS(47218)& - &*XX(5252)-JVS(49486)*XX(5253)-JVS(52454)*XX(5255)-JVS(54056)*XX(5256) - XX(4468) = XX(4468)-JVS(30804)*XX(4991)-JVS(31490)*XX(5031)-JVS(44278)*XX(5250)-JVS(45947)*XX(5251)-JVS(47217)& - &*XX(5252)-JVS(49485)*XX(5253)-JVS(52453)*XX(5255)-JVS(54055)*XX(5256) - XX(4467) = XX(4467)-JVS(32008)*XX(5059)-JVS(36484)*XX(5201)-JVS(44277)*XX(5250)-JVS(45946)*XX(5251)-JVS(47216)& - &*XX(5252)-JVS(49484)*XX(5253)-JVS(52452)*XX(5255)-JVS(54054)*XX(5256) - XX(4466) = XX(4466)-JVS(24651)*XX(4482)-JVS(28120)*XX(4796)-JVS(44276)*XX(5250)-JVS(47215)*XX(5252)-JVS(49483)& - &*XX(5253)-JVS(52451)*XX(5255)-JVS(54053)*XX(5256)-JVS(54912)*XX(5258) - XX(4465) = XX(4465)-JVS(38487)*XX(5231)-JVS(38838)*XX(5232)-JVS(44275)*XX(5250)-JVS(45945)*XX(5251)-JVS(47214)& - &*XX(5252)-JVS(49482)*XX(5253)-JVS(52450)*XX(5255)-JVS(54052)*XX(5256) - XX(4464) = XX(4464)-JVS(30448)*XX(4966)-JVS(36483)*XX(5201)-JVS(44274)*XX(5250)-JVS(45944)*XX(5251)-JVS(47213)& - &*XX(5252)-JVS(49481)*XX(5253)-JVS(52449)*XX(5255)-JVS(54051)*XX(5256) - XX(4463) = XX(4463)-JVS(24993)*XX(4507)-JVS(35269)*XX(5183)-JVS(36482)*XX(5201)-JVS(44273)*XX(5250)-JVS(47212)& - &*XX(5252)-JVS(49480)*XX(5253)-JVS(52448)*XX(5255)-JVS(54050)*XX(5256) - XX(4462) = XX(4462)-JVS(27681)*XX(4759)-JVS(29120)*XX(4875)-JVS(36481)*XX(5201)-JVS(37154)*XX(5214)-JVS(44272)& - &*XX(5250)-JVS(45943)*XX(5251)-JVS(52447)*XX(5255)-JVS(54049)*XX(5256) - XX(4461) = XX(4461)-JVS(33267)*XX(5125)-JVS(33658)*XX(5139)-JVS(44271)*XX(5250)-JVS(45942)*XX(5251)-JVS(47211)& - &*XX(5252)-JVS(49479)*XX(5253)-JVS(52446)*XX(5255)-JVS(54048)*XX(5256) - XX(4460) = XX(4460)-JVS(31563)*XX(5036)-JVS(32601)*XX(5094)-JVS(44270)*XX(5250)-JVS(47210)*XX(5252)-JVS(49478)& - &*XX(5253)-JVS(52445)*XX(5255)-JVS(54047)*XX(5256)-JVS(54911)*XX(5258) - XX(4459) = XX(4459)-JVS(28828)*XX(4853)-JVS(38486)*XX(5231)-JVS(44269)*XX(5250)-JVS(45941)*XX(5251)-JVS(47209)& - &*XX(5252)-JVS(49477)*XX(5253)-JVS(52444)*XX(5255)-JVS(54046)*XX(5256) - XX(4458) = XX(4458)-JVS(24992)*XX(4507)-JVS(36480)*XX(5201)-JVS(44268)*XX(5250)-JVS(45940)*XX(5251)-JVS(47208)& - &*XX(5252)-JVS(49476)*XX(5253)-JVS(52443)*XX(5255)-JVS(54045)*XX(5256) - XX(4457) = XX(4457)-JVS(28009)*XX(4790)-JVS(36479)*XX(5201)-JVS(44267)*XX(5250)-JVS(47207)*XX(5252)-JVS(49475)& - &*XX(5253)-JVS(52442)*XX(5255)-JVS(54044)*XX(5256)-JVS(54910)*XX(5258) - XX(4456) = XX(4456)-JVS(24904)*XX(4503)-JVS(30018)*XX(4939)-JVS(34416)*XX(5160)-JVS(44266)*XX(5250)-JVS(47206)& - &*XX(5252)-JVS(49474)*XX(5253)-JVS(52441)*XX(5255)-JVS(54043)*XX(5256) - XX(4455) = XX(4455)-JVS(24991)*XX(4507)-JVS(35268)*XX(5183)-JVS(36478)*XX(5201)-JVS(44265)*XX(5250)-JVS(47205)& - &*XX(5252)-JVS(49473)*XX(5253)-JVS(52440)*XX(5255)-JVS(54042)*XX(5256) - XX(4454) = XX(4454)-JVS(28119)*XX(4796)-JVS(30447)*XX(4966)-JVS(44264)*XX(5250)-JVS(47204)*XX(5252)-JVS(49472)& - &*XX(5253)-JVS(52439)*XX(5255)-JVS(54041)*XX(5256)-JVS(54909)*XX(5258) - XX(4453) = XX(4453)-JVS(28153)*XX(4797)-JVS(36477)*XX(5201)-JVS(44263)*XX(5250)-JVS(47203)*XX(5252)-JVS(49471)& - &*XX(5253)-JVS(52438)*XX(5255)-JVS(54040)*XX(5256)-JVS(54908)*XX(5258) - XX(4452) = XX(4452)-JVS(34415)*XX(5160)-JVS(44262)*XX(5250)-JVS(45939)*XX(5251)-JVS(47202)*XX(5252)-JVS(49470)& - &*XX(5253)-JVS(52437)*XX(5255)-JVS(54039)*XX(5256)-JVS(54907)*XX(5258) - XX(4451) = XX(4451)-JVS(25355)*XX(4540)-JVS(37050)*XX(5211)-JVS(44261)*XX(5250)-JVS(45938)*XX(5251)-JVS(47201)& - &*XX(5252)-JVS(49469)*XX(5253)-JVS(52436)*XX(5255)-JVS(54038)*XX(5256) - XX(4450) = XX(4450)-JVS(27144)*XX(4710)-JVS(38485)*XX(5231)-JVS(44260)*XX(5250)-JVS(45937)*XX(5251)-JVS(47200)& - &*XX(5252)-JVS(49468)*XX(5253)-JVS(52435)*XX(5255)-JVS(54037)*XX(5256) - XX(4449) = XX(4449)-JVS(25958)*XX(4602)-JVS(36476)*XX(5201)-JVS(40158)*XX(5244)-JVS(44259)*XX(5250)-JVS(45936)& - &*XX(5251)-JVS(52434)*XX(5255)-JVS(54036)*XX(5256) - XX(4448) = XX(4448)-JVS(24326)*XX(4449)-JVS(24734)*XX(4489)-JVS(24769)*XX(4491)-JVS(31489)*XX(5031)-JVS(37522)& - &*XX(5222)-JVS(40157)*XX(5244)-JVS(44258)*XX(5250)-JVS(45935)*XX(5251)-JVS(47199)*XX(5252)-JVS(49467)& - &*XX(5253)-JVS(52433)*XX(5255)-JVS(54035)*XX(5256) - XX(4447) = XX(4447)-JVS(37153)*XX(5214)-JVS(38484)*XX(5231)-JVS(44257)*XX(5250)-JVS(45934)*XX(5251)-JVS(47198)& - &*XX(5252)-JVS(49466)*XX(5253)-JVS(52432)*XX(5255)-JVS(54034)*XX(5256) - XX(4446) = XX(4446)-JVS(32962)*XX(5110)-JVS(39714)*XX(5242)-JVS(40156)*XX(5244)-JVS(44256)*XX(5250)-JVS(47197)& - &*XX(5252)-JVS(49465)*XX(5253)-JVS(52431)*XX(5255)-JVS(54033)*XX(5256) - XX(4445) = XX(4445)-JVS(35267)*XX(5183)-JVS(35651)*XX(5191)-JVS(36220)*XX(5199)-JVS(44255)*XX(5250)-JVS(47196)& - &*XX(5252)-JVS(49464)*XX(5253)-JVS(52430)*XX(5255)-JVS(54032)*XX(5256) - XX(4444) = XX(4444)-JVS(28118)*XX(4796)-JVS(28966)*XX(4864)-JVS(44254)*XX(5250)-JVS(47195)*XX(5252)-JVS(49463)& - &*XX(5253)-JVS(52429)*XX(5255)-JVS(54031)*XX(5256)-JVS(54906)*XX(5258) - XX(4443) = XX(4443)-JVS(34560)*XX(5162)-JVS(38483)*XX(5231)-JVS(44253)*XX(5250)-JVS(45933)*XX(5251)-JVS(47194)& - &*XX(5252)-JVS(49462)*XX(5253)-JVS(52428)*XX(5255)-JVS(54030)*XX(5256) - XX(4442) = XX(4442)-JVS(37049)*XX(5211)-JVS(39548)*XX(5239)-JVS(40458)*XX(5245)-JVS(44252)*XX(5250)-JVS(47193)& - &*XX(5252)-JVS(49461)*XX(5253)-JVS(52427)*XX(5255)-JVS(54029)*XX(5256) - XX(4441) = XX(4441)-JVS(24325)*XX(4449)-JVS(35266)*XX(5183)-JVS(35650)*XX(5191)-JVS(44251)*XX(5250)-JVS(47192)& - &*XX(5252)-JVS(49460)*XX(5253)-JVS(52426)*XX(5255)-JVS(54028)*XX(5256) - XX(4440) = XX(4440)-JVS(26660)*XX(4669)-JVS(39614)*XX(5241)-JVS(40155)*XX(5244)-JVS(44250)*XX(5250)-JVS(47191)& - &*XX(5252)-JVS(49459)*XX(5253)-JVS(52425)*XX(5255)-JVS(54027)*XX(5256) - XX(4439) = XX(4439)-JVS(25569)*XX(4560)-JVS(32862)*XX(5105)-JVS(44249)*XX(5250)-JVS(45932)*XX(5251)-JVS(47190)& - &*XX(5252)-JVS(49458)*XX(5253)-JVS(52424)*XX(5255)-JVS(54026)*XX(5256) - XX(4438) = XX(4438)-JVS(26795)*XX(4682)-JVS(36475)*XX(5201)-JVS(44248)*XX(5250)-JVS(47189)*XX(5252)-JVS(49457)& - &*XX(5253)-JVS(52423)*XX(5255)-JVS(54025)*XX(5256)-JVS(54905)*XX(5258) - XX(4437) = XX(4437)-JVS(26275)*XX(4632)-JVS(36474)*XX(5201)-JVS(44247)*XX(5250)-JVS(47188)*XX(5252)-JVS(49456)& - &*XX(5253)-JVS(52422)*XX(5255)-JVS(54024)*XX(5256)-JVS(54904)*XX(5258) - XX(4436) = XX(4436)-JVS(29507)*XX(4909)-JVS(44246)*XX(5250)-JVS(45931)*XX(5251)-JVS(47187)*XX(5252)-JVS(49455)& - &*XX(5253)-JVS(52421)*XX(5255)-JVS(54023)*XX(5256)-JVS(54903)*XX(5258) - XX(4435) = XX(4435)-JVS(33657)*XX(5139)-JVS(35265)*XX(5183)-JVS(44245)*XX(5250)-JVS(45930)*XX(5251)-JVS(47186)& - &*XX(5252)-JVS(49454)*XX(5253)-JVS(52420)*XX(5255)-JVS(54022)*XX(5256) - XX(4434) = XX(4434)-JVS(24990)*XX(4507)-JVS(35264)*XX(5183)-JVS(36473)*XX(5201)-JVS(44244)*XX(5250)-JVS(47185)& - &*XX(5252)-JVS(49453)*XX(5253)-JVS(52419)*XX(5255)-JVS(54021)*XX(5256) - XX(4433) = XX(4433)-JVS(36829)*XX(5203)-JVS(44243)*XX(5250)-JVS(45929)*XX(5251)-JVS(47184)*XX(5252)-JVS(49452)& - &*XX(5253)-JVS(52418)*XX(5255)-JVS(54020)*XX(5256)-JVS(54902)*XX(5258) - XX(4432) = XX(4432)-JVS(30747)*XX(4986)-JVS(33194)*XX(5123)-JVS(44242)*XX(5250)-JVS(45928)*XX(5251)-JVS(47183)& - &*XX(5252)-JVS(49451)*XX(5253)-JVS(52417)*XX(5255)-JVS(54019)*XX(5256) - XX(4431) = XX(4431)-JVS(26695)*XX(4672)-JVS(44241)*XX(5250)-JVS(45927)*XX(5251)-JVS(47182)*XX(5252)-JVS(49450)& - &*XX(5253)-JVS(52416)*XX(5255)-JVS(54018)*XX(5256)-JVS(54901)*XX(5258) - XX(4430) = XX(4430)-JVS(29091)*XX(4873)-JVS(33484)*XX(5135)-JVS(44240)*XX(5250)-JVS(45926)*XX(5251)-JVS(47181)& - &*XX(5252)-JVS(49449)*XX(5253)-JVS(52415)*XX(5255)-JVS(54017)*XX(5256) - XX(4429) = XX(4429)-JVS(28780)*XX(4850)-JVS(33656)*XX(5139)-JVS(44239)*XX(5250)-JVS(45925)*XX(5251)-JVS(47180)& - &*XX(5252)-JVS(49448)*XX(5253)-JVS(52414)*XX(5255)-JVS(54016)*XX(5256) - XX(4428) = XX(4428)-JVS(35888)*XX(5193)-JVS(44238)*XX(5250)-JVS(45924)*XX(5251)-JVS(47179)*XX(5252)-JVS(49447)& - &*XX(5253)-JVS(52413)*XX(5255)-JVS(54015)*XX(5256)-JVS(54900)*XX(5258) - XX(4427) = XX(4427)-JVS(34638)*XX(5165)-JVS(44237)*XX(5250)-JVS(45923)*XX(5251)-JVS(47178)*XX(5252)-JVS(49446)& - &*XX(5253)-JVS(52412)*XX(5255)-JVS(54014)*XX(5256)-JVS(54899)*XX(5258) - XX(4426) = XX(4426)-JVS(28965)*XX(4864)-JVS(44236)*XX(5250)-JVS(47177)*XX(5252)-JVS(49445)*XX(5253)-JVS(52411)& - &*XX(5255)-JVS(54013)*XX(5256) - XX(4425) = XX(4425)-JVS(24080)*XX(4426)-JVS(36472)*XX(5201)-JVS(44235)*XX(5250)-JVS(45922)*XX(5251)-JVS(47176)& - &*XX(5252)-JVS(49444)*XX(5253)-JVS(52410)*XX(5255)-JVS(54012)*XX(5256) - XX(4424) = XX(4424)-JVS(32899)*XX(5106)-JVS(36471)*XX(5201)-JVS(44234)*XX(5250)-JVS(45921)*XX(5251)-JVS(47175)& - &*XX(5252)-JVS(49443)*XX(5253)-JVS(52409)*XX(5255)-JVS(54011)*XX(5256) - XX(4423) = XX(4423)-JVS(30446)*XX(4966)-JVS(44233)*XX(5250)-JVS(47174)*XX(5252)-JVS(49442)*XX(5253)-JVS(52408)& - &*XX(5255)-JVS(54010)*XX(5256) - XX(4422) = XX(4422)-JVS(26659)*XX(4669)-JVS(39613)*XX(5241)-JVS(40154)*XX(5244)-JVS(44232)*XX(5250)-JVS(47173)& - &*XX(5252)-JVS(49441)*XX(5253)-JVS(52407)*XX(5255)-JVS(54009)*XX(5256) - XX(4421) = XX(4421)-JVS(30119)*XX(4944)-JVS(33655)*XX(5139)-JVS(44231)*XX(5250)-JVS(45920)*XX(5251)-JVS(47172)& - &*XX(5252)-JVS(49440)*XX(5253)-JVS(52406)*XX(5255)-JVS(54008)*XX(5256) - XX(4420) = XX(4420)-JVS(38482)*XX(5231)-JVS(39088)*XX(5233)-JVS(39353)*XX(5235)-JVS(44230)*XX(5250)-JVS(45919)& - &*XX(5251)-JVS(52405)*XX(5255) - XX(4419) = XX(4419)-JVS(30365)*XX(4961)-JVS(31687)*XX(5043)-JVS(44229)*XX(5250)-JVS(45918)*XX(5251)-JVS(47171)& - &*XX(5252)-JVS(49439)*XX(5253)-JVS(52404)*XX(5255)-JVS(54007)*XX(5256) - XX(4418) = XX(4418)-JVS(34982)*XX(5179)-JVS(38481)*XX(5231)-JVS(44228)*XX(5250)-JVS(45917)*XX(5251)-JVS(47170)& - &*XX(5252)-JVS(49438)*XX(5253)-JVS(52403)*XX(5255)-JVS(54006)*XX(5256) - XX(4417) = XX(4417)-JVS(27143)*XX(4710)-JVS(35887)*XX(5193)-JVS(44227)*XX(5250)-JVS(45916)*XX(5251)-JVS(47169)& - &*XX(5252)-JVS(49437)*XX(5253)-JVS(52402)*XX(5255)-JVS(54005)*XX(5256) - XX(4416) = XX(4416)-JVS(24631)*XX(4481)-JVS(32690)*XX(5098)-JVS(40153)*XX(5244)-JVS(44226)*XX(5250)-JVS(47168)& - &*XX(5252)-JVS(49436)*XX(5253)-JVS(52401)*XX(5255)-JVS(54004)*XX(5256) - XX(4415) = XX(4415)-JVS(24989)*XX(4507)-JVS(26959)*XX(4693)-JVS(36470)*XX(5201)-JVS(44225)*XX(5250)-JVS(47167)& - &*XX(5252)-JVS(49435)*XX(5253)-JVS(52400)*XX(5255)-JVS(54003)*XX(5256) - XX(4414) = XX(4414)-JVS(39261)*XX(5234)-JVS(44224)*XX(5250)-JVS(45915)*XX(5251)-JVS(47166)*XX(5252)-JVS(49434)& - &*XX(5253)-JVS(52399)*XX(5255)-JVS(54002)*XX(5256)-JVS(54898)*XX(5258) - XX(4413) = XX(4413)-JVS(24988)*XX(4507)-JVS(35263)*XX(5183)-JVS(44223)*XX(5250)-JVS(47165)*XX(5252)-JVS(49433)& - &*XX(5253)-JVS(52398)*XX(5255)-JVS(54001)*XX(5256)-JVS(54897)*XX(5258) - XX(4412) = XX(4412)-JVS(32071)*XX(5062)-JVS(32211)*XX(5071)-JVS(44222)*XX(5250)-JVS(45914)*XX(5251)-JVS(47164)& - &*XX(5252)-JVS(49432)*XX(5253)-JVS(52397)*XX(5255)-JVS(54000)*XX(5256) - XX(4411) = XX(4411)-JVS(32210)*XX(5071)-JVS(44221)*XX(5250)-JVS(47163)*XX(5252)-JVS(49431)*XX(5253)-JVS(52396)& - &*XX(5255)-JVS(53999)*XX(5256) - XX(4410) = XX(4410)-JVS(24301)*XX(4447)-JVS(35097)*XX(5182)-JVS(37152)*XX(5214)-JVS(44220)*XX(5250)-JVS(45913)& - &*XX(5251)-JVS(47162)*XX(5252)-JVS(49430)*XX(5253)-JVS(52395)*XX(5255)-JVS(53998)*XX(5256) - XX(4409) = XX(4409)-JVS(24300)*XX(4447)-JVS(37151)*XX(5214)-JVS(44219)*XX(5250)-JVS(45912)*XX(5251)-JVS(47161)& - &*XX(5252)-JVS(49429)*XX(5253)-JVS(52394)*XX(5255)-JVS(53997)*XX(5256) - XX(4408) = XX(4408)-JVS(26681)*XX(4671)-JVS(36469)*XX(5201)-JVS(44218)*XX(5250)-JVS(47160)*XX(5252)-JVS(49428)& - &*XX(5253)-JVS(52393)*XX(5255)-JVS(53996)*XX(5256)-JVS(54896)*XX(5258) - XX(4407) = XX(4407)-JVS(27987)*XX(4788)-JVS(36468)*XX(5201)-JVS(44217)*XX(5250)-JVS(47159)*XX(5252)-JVS(49427)& - &*XX(5253)-JVS(52392)*XX(5255)-JVS(53995)*XX(5256)-JVS(54895)*XX(5258) - XX(4406) = XX(4406)-JVS(33449)*XX(5133)-JVS(37521)*XX(5222)-JVS(44216)*XX(5250)-JVS(45911)*XX(5251)-JVS(49426)& - &*XX(5253)-JVS(52391)*XX(5255) - XX(4405) = XX(4405)-JVS(35886)*XX(5193)-JVS(44215)*XX(5250)-JVS(45910)*XX(5251)-JVS(47158)*XX(5252)-JVS(49425)& - &*XX(5253)-JVS(52390)*XX(5255)-JVS(53994)*XX(5256)-JVS(54894)*XX(5258) - XX(4404) = XX(4404)-JVS(35262)*XX(5183)-JVS(35885)*XX(5193)-JVS(44214)*XX(5250)-JVS(45909)*XX(5251)-JVS(47157)& - &*XX(5252)-JVS(49424)*XX(5253)-JVS(52389)*XX(5255)-JVS(53993)*XX(5256) - XX(4403) = XX(4403)-JVS(35261)*XX(5183)-JVS(44213)*XX(5250)-JVS(52388)*XX(5255) - XX(4402) = XX(4402)-JVS(23823)*XX(4403)-JVS(24987)*XX(4507)-JVS(44212)*XX(5250)-JVS(47156)*XX(5252)-JVS(49423)& - &*XX(5253)-JVS(52387)*XX(5255)-JVS(53992)*XX(5256)-JVS(54893)*XX(5258) - XX(4401) = XX(4401)-JVS(28983)*XX(4865)-JVS(33654)*XX(5139)-JVS(35260)*XX(5183)-JVS(37520)*XX(5222)-JVS(40152)& - &*XX(5244)-JVS(44211)*XX(5250)-JVS(52386)*XX(5255) - XX(4400) = XX(4400)-JVS(23776)*XX(4401)-JVS(25655)*XX(4569)-JVS(30990)*XX(5001)-JVS(33653)*XX(5139)-JVS(44210)& - &*XX(5250)-JVS(47155)*XX(5252)-JVS(49422)*XX(5253)-JVS(52385)*XX(5255)-JVS(53991)*XX(5256) - XX(4399) = XX(4399)-JVS(29618)*XX(4916)-JVS(30219)*XX(4951)-JVS(31986)*XX(5058)-JVS(39087)*XX(5233)-JVS(44209)& - &*XX(5250)-JVS(47154)*XX(5252)-JVS(49421)*XX(5253)-JVS(52384)*XX(5255)-JVS(53990)*XX(5256) - XX(4398) = XX(4398)-JVS(28117)*XX(4796)-JVS(32007)*XX(5059)-JVS(39086)*XX(5233)-JVS(44208)*XX(5250)-JVS(45908)& - &*XX(5251)-JVS(52383)*XX(5255) - XX(4397) = XX(4397)-JVS(23745)*XX(4398)-JVS(25243)*XX(4531)-JVS(25982)*XX(4603)-JVS(28116)*XX(4796)-JVS(30428)& - &*XX(4965)-JVS(36467)*XX(5201)-JVS(39085)*XX(5233)-JVS(44207)*XX(5250)-JVS(47153)*XX(5252)-JVS(49420)& - &*XX(5253)-JVS(52382)*XX(5255)-JVS(53989)*XX(5256)-JVS(54892)*XX(5258) - XX(4396) = XX(4396)-JVS(25056)*XX(4513)-JVS(25807)*XX(4588)-JVS(26443)*XX(4649)-JVS(27224)*XX(4720)-JVS(27250)& - &*XX(4721)-JVS(31985)*XX(5058)-JVS(36466)*XX(5201)-JVS(44206)*XX(5250)-JVS(45907)*XX(5251)-JVS(52381)& - &*XX(5255)-JVS(53988)*XX(5256)-JVS(54891)*XX(5258) - XX(4395) = XX(4395)-JVS(23727)*XX(4396)-JVS(23734)*XX(4397)-JVS(23756)*XX(4399)-JVS(25207)*XX(4528)-JVS(26625)& - &*XX(4666)-JVS(29680)*XX(4919)-JVS(30415)*XX(4964)-JVS(38480)*XX(5231)-JVS(44205)*XX(5250)-JVS(45906)& - &*XX(5251)-JVS(47152)*XX(5252)-JVS(49419)*XX(5253)-JVS(52380)*XX(5255)-JVS(53987)*XX(5256)-JVS(54890)& - &*XX(5258) - XX(4394) = XX(4394)-JVS(27392)*XX(4734)-JVS(32844)*XX(5104)-JVS(34981)*XX(5179)-JVS(37048)*XX(5211)-JVS(44204)& - &*XX(5250)-JVS(47151)*XX(5252)-JVS(49418)*XX(5253)-JVS(52379)*XX(5255)-JVS(53986)*XX(5256) - XX(4393) = XX(4393)-JVS(27249)*XX(4721)-JVS(28442)*XX(4823)-JVS(28964)*XX(4864)-JVS(29844)*XX(4931)-JVS(32898)& - &*XX(5106)-JVS(39084)*XX(5233)-JVS(44203)*XX(5250)-JVS(45905)*XX(5251)-JVS(52378)*XX(5255) - XX(4392) = XX(4392)-JVS(32861)*XX(5105)-JVS(39453)*XX(5237)-JVS(40151)*XX(5244)-JVS(44202)*XX(5250)-JVS(52377)& - &*XX(5255) - XX(4391) = XX(4391)-JVS(28207)*XX(4801)-JVS(36770)*XX(5202)-JVS(40150)*XX(5244)-JVS(44201)*XX(5250)-JVS(52376)& - &*XX(5255) - XX(4390) = XX(4390)-JVS(29061)*XX(4871)-JVS(33266)*XX(5125)-JVS(38052)*XX(5230)-JVS(40149)*XX(5244)-JVS(44200)& - &*XX(5250)-JVS(47150)*XX(5252)-JVS(49417)*XX(5253)-JVS(52375)*XX(5255)-JVS(53985)*XX(5256) - XX(4389) = XX(4389)-JVS(24019)*XX(4421)-JVS(30118)*XX(4944)-JVS(33546)*XX(5137)-JVS(33868)*XX(5143)-JVS(44199)& - &*XX(5250)-JVS(47149)*XX(5252)-JVS(49416)*XX(5253)-JVS(52374)*XX(5255)-JVS(53984)*XX(5256) - XX(4388) = XX(4388)-JVS(27248)*XX(4721)-JVS(28033)*XX(4792)-JVS(28441)*XX(4823)-JVS(29658)*XX(4918)-JVS(33265)& - &*XX(5125)-JVS(39083)*XX(5233)-JVS(44198)*XX(5250)-JVS(45904)*XX(5251)-JVS(52373)*XX(5255) - XX(4387) = XX(4387)-JVS(29968)*XX(4938)-JVS(35884)*XX(5193)-JVS(40148)*XX(5244)-JVS(44197)*XX(5250)-JVS(47148)& - &*XX(5252)-JVS(49415)*XX(5253)-JVS(52372)*XX(5255)-JVS(53983)*XX(5256) - XX(4386) = XX(4386)-JVS(29967)*XX(4938)-JVS(35883)*XX(5193)-JVS(40147)*XX(5244)-JVS(44196)*XX(5250)-JVS(52371)& - &*XX(5255) - XX(4385) = XX(4385)-JVS(28327)*XX(4812)-JVS(34414)*XX(5160)-JVS(38479)*XX(5231)-JVS(44195)*XX(5250)-JVS(45903)& - &*XX(5251)-JVS(47147)*XX(5252)-JVS(49414)*XX(5253)-JVS(52370)*XX(5255)-JVS(53982)*XX(5256) - XX(4384) = XX(4384)-JVS(29966)*XX(4938)-JVS(31488)*XX(5031)-JVS(40146)*XX(5244)-JVS(44194)*XX(5250)-JVS(45902)& - &*XX(5251)-JVS(47146)*XX(5252)-JVS(49413)*XX(5253)-JVS(52369)*XX(5255)-JVS(53981)*XX(5256) - XX(4383) = XX(4383)-JVS(37519)*XX(5222)-JVS(38478)*XX(5231)-JVS(39612)*XX(5241)-JVS(40145)*XX(5244)-JVS(44193)& - &*XX(5250) - XX(4382) = XX(4382)-JVS(28936)*XX(4862)-JVS(31351)*XX(5023)-JVS(39260)*XX(5234)-JVS(44192)*XX(5250)-JVS(45901)& - &*XX(5251)-JVS(47145)*XX(5252)-JVS(49412)*XX(5253)-JVS(52368)*XX(5255)-JVS(53980)*XX(5256) - XX(4381) = XX(4381)-JVS(25957)*XX(4602)-JVS(26136)*XX(4620)-JVS(33264)*XX(5125)-JVS(44191)*XX(5250)-JVS(45900)& - &*XX(5251)-JVS(47144)*XX(5252)-JVS(49411)*XX(5253)-JVS(52367)*XX(5255)-JVS(53979)*XX(5256) - XX(4380) = XX(4380)-JVS(27643)*XX(4755)-JVS(36828)*XX(5203)-JVS(44190)*XX(5250)-JVS(45899)*XX(5251)-JVS(47143)& - &*XX(5252)-JVS(49410)*XX(5253)-JVS(52366)*XX(5255)-JVS(53978)*XX(5256)-JVS(54889)*XX(5258) - XX(4379) = XX(4379)-JVS(29965)*XX(4938)-JVS(37891)*XX(5228)-JVS(40144)*XX(5244)-JVS(44189)*XX(5250)-JVS(45898)& - &*XX(5251)-JVS(47142)*XX(5252)-JVS(49409)*XX(5253)-JVS(52365)*XX(5255)-JVS(53977)*XX(5256) - XX(4378) = XX(4378)-JVS(31021)*XX(5003)-JVS(31061)*XX(5005)-JVS(32269)*XX(5075)-JVS(37518)*XX(5222)-JVS(39082)& - &*XX(5233)-JVS(39259)*XX(5234)-JVS(44188)*XX(5250)-JVS(49408)*XX(5253)-JVS(52364)*XX(5255) - XX(4377) = XX(4377)-JVS(23643)*XX(4388)-JVS(27247)*XX(4721)-JVS(33263)*XX(5125)-JVS(44187)*XX(5250)-JVS(45897)& - &*XX(5251)-JVS(47141)*XX(5252)-JVS(49407)*XX(5253)-JVS(52363)*XX(5255)-JVS(53976)*XX(5256) - XX(4376) = XX(4376)-JVS(24601)*XX(4478)-JVS(44186)*XX(5250)-JVS(47140)*XX(5252)-JVS(49406)*XX(5253)-JVS(52362)& - &*XX(5255)-JVS(53975)*XX(5256) - XX(4375) = XX(4375)-JVS(23529)*XX(4376)-JVS(24600)*XX(4478)-JVS(44185)*XX(5250)-JVS(45896)*XX(5251)-JVS(47139)& - &*XX(5252)-JVS(49405)*XX(5253)-JVS(52361)*XX(5255)-JVS(53974)*XX(5256)-JVS(54888)*XX(5258) - XX(4374) = XX(4374)-JVS(23692)*XX(4392)-JVS(35385)*XX(5184)-JVS(35882)*XX(5193)-JVS(40143)*XX(5244)-JVS(44184)& - &*XX(5250)-JVS(47138)*XX(5252)-JVS(49404)*XX(5253)-JVS(52360)*XX(5255)-JVS(53973)*XX(5256) - XX(4373) = XX(4373)-JVS(36027)*XX(5194)-JVS(36465)*XX(5201)-JVS(44183)*XX(5250)-JVS(45895)*XX(5251)-JVS(47137)& - &*XX(5252)-JVS(49403)*XX(5253)-JVS(52359)*XX(5255)-JVS(53972)*XX(5256) - XX(4372) = XX(4372)-JVS(23499)*XX(4373)-JVS(32585)*XX(5093)-JVS(36026)*XX(5194)-JVS(38477)*XX(5231)-JVS(44182)& - &*XX(5250)-JVS(47136)*XX(5252)-JVS(49402)*XX(5253)-JVS(52358)*XX(5255)-JVS(53971)*XX(5256) - XX(4371) = XX(4371)-JVS(24701)*XX(4486)-JVS(34980)*XX(5179)-JVS(37047)*XX(5211)-JVS(40142)*XX(5244)-JVS(44181)& - &*XX(5250)-JVS(47135)*XX(5252)-JVS(49401)*XX(5253)-JVS(52357)*XX(5255)-JVS(53970)*XX(5256) - XX(4370) = XX(4370)-JVS(29506)*XX(4909)-JVS(32501)*XX(5087)-JVS(35881)*XX(5193)-JVS(38476)*XX(5231)-JVS(44180)& - &*XX(5250)-JVS(47134)*XX(5252)-JVS(49400)*XX(5253)-JVS(52356)*XX(5255)-JVS(53969)*XX(5256) - XX(4369) = XX(4369)-JVS(24175)*XX(4435)-JVS(33545)*XX(5137)-JVS(33867)*XX(5143)-JVS(35259)*XX(5183)-JVS(44179)& - &*XX(5250)-JVS(47133)*XX(5252)-JVS(49399)*XX(5253)-JVS(52355)*XX(5255)-JVS(53968)*XX(5256) - XX(4368) = XX(4368)-JVS(26045)*XX(4612)-JVS(33789)*XX(5142)-JVS(35880)*XX(5193)-JVS(38475)*XX(5231)-JVS(44178)& - &*XX(5250)-JVS(47132)*XX(5252)-JVS(49398)*XX(5253)-JVS(52354)*XX(5255)-JVS(53967)*XX(5256) - XX(4367) = XX(4367)-JVS(35258)*XX(5183)-JVS(35649)*XX(5191)-JVS(35879)*XX(5193)-JVS(44177)*XX(5250)-JVS(45894)& - &*XX(5251)-JVS(47131)*XX(5252)-JVS(49397)*XX(5253)-JVS(52353)*XX(5255)-JVS(53966)*XX(5256) - XX(4366) = XX(4366)-JVS(31350)*XX(5023)-JVS(38474)*XX(5231)-JVS(38837)*XX(5232)-JVS(44176)*XX(5250)-JVS(52352)& - &*XX(5255) - XX(4365) = XX(4365)-JVS(26264)*XX(4631)-JVS(35257)*XX(5183)-JVS(35648)*XX(5191)-JVS(39452)*XX(5237)-JVS(44175)& - &*XX(5250)-JVS(47130)*XX(5252)-JVS(49396)*XX(5253)-JVS(52351)*XX(5255)-JVS(53965)*XX(5256) - XX(4364) = XX(4364)-JVS(30952)*XX(5000)-JVS(38473)*XX(5231)-JVS(39779)*XX(5243)-JVS(44174)*XX(5250)-JVS(45893)& - &*XX(5251)-JVS(47129)*XX(5252)-JVS(49395)*XX(5253)-JVS(52350)*XX(5255)-JVS(53964)*XX(5256) - XX(4363) = XX(4363)-JVS(27391)*XX(4734)-JVS(32843)*XX(5104)-JVS(34979)*XX(5179)-JVS(37046)*XX(5211)-JVS(44173)& - &*XX(5250)-JVS(47128)*XX(5252)-JVS(49394)*XX(5253)-JVS(52349)*XX(5255)-JVS(53963)*XX(5256) - XX(4362) = XX(4362)-JVS(24483)*XX(4465)-JVS(25126)*XX(4520)-JVS(36464)*XX(5201)-JVS(37150)*XX(5214)-JVS(38836)& - &*XX(5232)-JVS(44172)*XX(5250)-JVS(45892)*XX(5251)-JVS(52348)*XX(5255)-JVS(53962)*XX(5256) - XX(4361) = XX(4361)-JVS(25254)*XX(4532)-JVS(27701)*XX(4760)-JVS(33544)*XX(5137)-JVS(33866)*XX(5143)-JVS(44171)& - &*XX(5250)-JVS(47127)*XX(5252)-JVS(49393)*XX(5253)-JVS(52347)*XX(5255)-JVS(53961)*XX(5256) - XX(4360) = XX(4360)-JVS(29193)*XX(4883)-JVS(30865)*XX(4995)-JVS(30891)*XX(4996)-JVS(37149)*XX(5214)-JVS(44170)& - &*XX(5250)-JVS(47126)*XX(5252)-JVS(49392)*XX(5253)-JVS(52346)*XX(5255)-JVS(53960)*XX(5256) - XX(4359) = XX(4359)-JVS(32209)*XX(5071)-JVS(36463)*XX(5201)-JVS(38472)*XX(5231)-JVS(44169)*XX(5250)-JVS(45891)& - &*XX(5251)-JVS(47125)*XX(5252)-JVS(49391)*XX(5253)-JVS(52345)*XX(5255)-JVS(53959)*XX(5256) - XX(4358) = XX(4358)-JVS(27114)*XX(4708)-JVS(31604)*XX(5038)-JVS(39081)*XX(5233)-JVS(44168)*XX(5250)-JVS(45890)& - &*XX(5251)-JVS(47124)*XX(5252)-JVS(49390)*XX(5253)-JVS(52344)*XX(5255)-JVS(53958)*XX(5256) - XX(4357) = XX(4357)-JVS(30530)*XX(4973)-JVS(35878)*XX(5193)-JVS(39080)*XX(5233)-JVS(39713)*XX(5242)-JVS(44167)& - &*XX(5250)-JVS(47123)*XX(5252)-JVS(49389)*XX(5253)-JVS(52343)*XX(5255)-JVS(53957)*XX(5256) - XX(4356) = XX(4356)-JVS(23422)*XX(4365)-JVS(27200)*XX(4717)-JVS(37989)*XX(5229)-JVS(39451)*XX(5237)-JVS(44166)& - &*XX(5250)-JVS(47122)*XX(5252)-JVS(49388)*XX(5253)-JVS(52342)*XX(5255)-JVS(53956)*XX(5256) - XX(4355) = XX(4355)-JVS(24111)*XX(4429)-JVS(28779)*XX(4850)-JVS(33543)*XX(5137)-JVS(33865)*XX(5143)-JVS(44165)& - &*XX(5250)-JVS(47121)*XX(5252)-JVS(49387)*XX(5253)-JVS(52341)*XX(5255)-JVS(53955)*XX(5256) - XX(4354) = XX(4354)-JVS(27794)*XX(4768)-JVS(29192)*XX(4883)-JVS(30890)*XX(4996)-JVS(35096)*XX(5182)-JVS(44164)& - &*XX(5250)-JVS(47120)*XX(5252)-JVS(49386)*XX(5253)-JVS(52340)*XX(5255)-JVS(53954)*XX(5256) - XX(4353) = XX(4353)-JVS(29742)*XX(4924)-JVS(32500)*XX(5087)-JVS(36989)*XX(5210)-JVS(44163)*XX(5250)-JVS(45889)& - &*XX(5251)-JVS(47119)*XX(5252)-JVS(49385)*XX(5253)-JVS(52339)*XX(5255)-JVS(53953)*XX(5256) - XX(4352) = XX(4352)-JVS(34088)*XX(5152)-JVS(36219)*XX(5199)-JVS(40141)*XX(5244)-JVS(44162)*XX(5250)-JVS(49384)& - &*XX(5253) - XX(4351) = XX(4351)-JVS(28702)*XX(4845)-JVS(35501)*XX(5188)-JVS(35877)*XX(5193)-JVS(38471)*XX(5231)-JVS(44161)& - &*XX(5250)-JVS(47118)*XX(5252)-JVS(49383)*XX(5253)-JVS(52338)*XX(5255)-JVS(53952)*XX(5256) - XX(4350) = XX(4350)-JVS(31040)*XX(5004)-JVS(36462)*XX(5201)-JVS(39079)*XX(5233)-JVS(44160)*XX(5250)-JVS(45888)& - &*XX(5251)-JVS(47117)*XX(5252)-JVS(49382)*XX(5253)-JVS(52337)*XX(5255)-JVS(53951)*XX(5256) - XX(4349) = XX(4349)-JVS(24446)*XX(4461)-JVS(33262)*XX(5125)-JVS(33542)*XX(5137)-JVS(33864)*XX(5143)-JVS(44159)& - &*XX(5250)-JVS(47116)*XX(5252)-JVS(49381)*XX(5253)-JVS(52336)*XX(5255)-JVS(53950)*XX(5256) - XX(4348) = XX(4348)-JVS(35384)*XX(5184)-JVS(36461)*XX(5201)-JVS(38470)*XX(5231)-JVS(44158)*XX(5250)-JVS(45887)& - &*XX(5251)-JVS(47115)*XX(5252)-JVS(49380)*XX(5253)-JVS(52335)*XX(5255)-JVS(53949)*XX(5256) - XX(4347) = XX(4347)-JVS(29964)*XX(4938)-JVS(36988)*XX(5210)-JVS(39078)*XX(5233)-JVS(40140)*XX(5244)-JVS(44157)& - &*XX(5250)-JVS(47114)*XX(5252)-JVS(49379)*XX(5253)-JVS(52334)*XX(5255)-JVS(53948)*XX(5256) - XX(4346) = XX(4346)-JVS(27734)*XX(4763)-JVS(28827)*XX(4853)-JVS(36460)*XX(5201)-JVS(44156)*XX(5250)-JVS(45886)& - &*XX(5251)-JVS(47113)*XX(5252)-JVS(49378)*XX(5253)-JVS(52333)*XX(5255)-JVS(53947)*XX(5256) - XX(4345) = XX(4345)-JVS(29963)*XX(4938)-JVS(37517)*XX(5222)-JVS(38469)*XX(5231)-JVS(40139)*XX(5244)-JVS(44155)& - &*XX(5250)-JVS(47112)*XX(5252)-JVS(49377)*XX(5253)-JVS(52332)*XX(5255)-JVS(53946)*XX(5256) - XX(4344) = XX(4344)-JVS(31487)*XX(5031)-JVS(35876)*XX(5193)-JVS(37516)*XX(5222)-JVS(40138)*XX(5244)-JVS(44154)& - &*XX(5250)-JVS(47111)*XX(5252)-JVS(49376)*XX(5253)-JVS(52331)*XX(5255)-JVS(53945)*XX(5256) - XX(4343) = XX(4343)-JVS(35500)*XX(5188)-JVS(39450)*XX(5237)-JVS(44153)*XX(5250)-JVS(47110)*XX(5252)-JVS(49375)& - &*XX(5253)-JVS(52330)*XX(5255)-JVS(53944)*XX(5256) - XX(4342) = XX(4342)-JVS(23237)*XX(4343)-JVS(33341)*XX(5128)-JVS(36058)*XX(5195)-JVS(37800)*XX(5226)-JVS(44152)& - &*XX(5250)-JVS(47109)*XX(5252)-JVS(49374)*XX(5253)-JVS(52329)*XX(5255)-JVS(53943)*XX(5256) - XX(4341) = XX(4341)-JVS(28798)*XX(4851)-JVS(38835)*XX(5232)-JVS(39258)*XX(5234)-JVS(44151)*XX(5250)-JVS(45885)& - &*XX(5251)-JVS(47108)*XX(5252)-JVS(49373)*XX(5253)-JVS(52328)*XX(5255)-JVS(53942)*XX(5256) - XX(4340) = XX(4340)-JVS(24796)*XX(4493)-JVS(32471)*XX(5086)-JVS(34256)*XX(5159)-JVS(40137)*XX(5244)-JVS(44150)& - &*XX(5250)-JVS(47107)*XX(5252)-JVS(49372)*XX(5253)-JVS(52327)*XX(5255)-JVS(53941)*XX(5256) - XX(4339) = XX(4339)-JVS(23588)*XX(4383)-JVS(27572)*XX(4749)-JVS(39077)*XX(5233)-JVS(44149)*XX(5250)-JVS(45884)& - &*XX(5251)-JVS(47106)*XX(5252)-JVS(49371)*XX(5253)-JVS(52326)*XX(5255)-JVS(53940)*XX(5256) - XX(4338) = XX(4338)-JVS(28164)*XX(4798)-JVS(36459)*XX(5201)-JVS(44148)*XX(5250)-JVS(45883)*XX(5251)-JVS(47105)& - &*XX(5252)-JVS(49370)*XX(5253)-JVS(52325)*XX(5255)-JVS(53939)*XX(5256)-JVS(54887)*XX(5258) - XX(4337) = XX(4337)-JVS(29505)*XX(4909)-JVS(38468)*XX(5231)-JVS(39352)*XX(5235)-JVS(39712)*XX(5242)-JVS(44147)& - &*XX(5250)-JVS(47104)*XX(5252)-JVS(49369)*XX(5253)-JVS(52324)*XX(5255)-JVS(53938)*XX(5256) - XX(4336) = XX(4336)-JVS(29060)*XX(4871)-JVS(33261)*XX(5125)-JVS(35875)*XX(5193)-JVS(40136)*XX(5244)-JVS(44146)& - &*XX(5250)-JVS(47103)*XX(5252)-JVS(49368)*XX(5253)-JVS(52323)*XX(5255)-JVS(53937)*XX(5256) - XX(4335) = XX(4335)-JVS(23775)*XX(4401)-JVS(29875)*XX(4933)-JVS(33652)*XX(5139)-JVS(44145)*XX(5250)-JVS(45882)& - &*XX(5251)-JVS(47102)*XX(5252)-JVS(49367)*XX(5253)-JVS(52322)*XX(5255)-JVS(53936)*XX(5256) - XX(4334) = XX(4334)-JVS(27027)*XX(4697)-JVS(29962)*XX(4938)-JVS(32689)*XX(5098)-JVS(40135)*XX(5244)-JVS(44144)& - &*XX(5250)-JVS(47101)*XX(5252)-JVS(49366)*XX(5253)-JVS(52321)*XX(5255)-JVS(53935)*XX(5256) - XX(4333) = XX(4333)-JVS(30091)*XX(4943)-JVS(37890)*XX(5228)-JVS(39519)*XX(5238)-JVS(44143)*XX(5250)-JVS(45881)& - &*XX(5251)-JVS(52320)*XX(5255) - XX(4332) = XX(4332)-JVS(23158)*XX(4333)-JVS(24577)*XX(4476)-JVS(27175)*XX(4714)-JVS(27777)*XX(4767)-JVS(27939)& - &*XX(4782)-JVS(30061)*XX(4941)-JVS(33788)*XX(5142)-JVS(35647)*XX(5191)-JVS(35874)*XX(5193)-JVS(39518)& - &*XX(5238)-JVS(44142)*XX(5250)-JVS(45880)*XX(5251)-JVS(52319)*XX(5255)-JVS(53934)*XX(5256)-JVS(54886)& - &*XX(5258) - XX(4331) = XX(4331)-JVS(29961)*XX(4938)-JVS(44141)*XX(5250)-JVS(45879)*XX(5251)-JVS(49365)*XX(5253) - XX(4330) = XX(4330)-JVS(33340)*XX(5128)-JVS(35499)*XX(5188)-JVS(38467)*XX(5231)-JVS(39611)*XX(5241)-JVS(40134)& - &*XX(5244)-JVS(44140)*XX(5250)-JVS(45878)*XX(5251)-JVS(49364)*XX(5253)-JVS(52318)*XX(5255)-JVS(53933)& - &*XX(5256)-JVS(54885)*XX(5258) - XX(4329) = XX(4329)-JVS(36218)*XX(5199)-JVS(40133)*XX(5244)-JVS(44139)*XX(5250)-JVS(47100)*XX(5252)-JVS(49363)& - &*XX(5253)-JVS(52317)*XX(5255)-JVS(53932)*XX(5256) - XX(4328) = XX(4328)-JVS(29429)*XX(4904)-JVS(29960)*XX(4938)-JVS(37889)*XX(5228)-JVS(44138)*XX(5250)-JVS(45877)& - &*XX(5251)-JVS(52316)*XX(5255) - XX(4327) = XX(4327)-JVS(23113)*XX(4329)-JVS(36217)*XX(5199)-JVS(40132)*XX(5244)-JVS(44137)*XX(5250)-JVS(45876)& - &*XX(5251)-JVS(47099)*XX(5252)-JVS(49362)*XX(5253)-JVS(52315)*XX(5255)-JVS(53931)*XX(5256) - XX(4326) = XX(4326)-JVS(23090)*XX(4327)-JVS(23098)*XX(4328)-JVS(24750)*XX(4490)-JVS(28115)*XX(4796)-JVS(39076)& - &*XX(5233)-JVS(40131)*XX(5244)-JVS(44136)*XX(5250)-JVS(47098)*XX(5252)-JVS(49361)*XX(5253)-JVS(52314)& - &*XX(5255)-JVS(53930)*XX(5256) - XX(4325) = XX(4325)-JVS(32741)*XX(5100)-JVS(36216)*XX(5199)-JVS(37515)*XX(5222)-JVS(40130)*XX(5244)-JVS(44135)& - &*XX(5250)-JVS(45875)*XX(5251)-JVS(52313)*XX(5255) - XX(4324) = XX(4324)-JVS(23069)*XX(4325)-JVS(40129)*XX(5244)-JVS(44134)*XX(5250)-JVS(45874)*XX(5251)-JVS(47097)& - &*XX(5252)-JVS(49360)*XX(5253)-JVS(52312)*XX(5255)-JVS(53929)*XX(5256) - XX(4323) = XX(4323)-JVS(23112)*XX(4329)-JVS(31486)*XX(5031)-JVS(40128)*XX(5244)-JVS(44133)*XX(5250)-JVS(45873)& - &*XX(5251)-JVS(47096)*XX(5252)-JVS(49359)*XX(5253)-JVS(52311)*XX(5255)-JVS(53928)*XX(5256) - XX(4322) = XX(4322)-JVS(23043)*XX(4323)-JVS(23055)*XX(4324)-JVS(26958)*XX(4693)-JVS(37514)*XX(5222)-JVS(40127)& - &*XX(5244)-JVS(44132)*XX(5250)-JVS(45872)*XX(5251)-JVS(47095)*XX(5252)-JVS(49358)*XX(5253)-JVS(52310)& - &*XX(5255)-JVS(53927)*XX(5256) - XX(4321) = XX(4321)-JVS(32341)*XX(5080)-JVS(37513)*XX(5222)-JVS(38834)*XX(5232)-JVS(39257)*XX(5234)-JVS(40126)& - &*XX(5244)-JVS(44131)*XX(5250)-JVS(45871)*XX(5251)-JVS(47094)*XX(5252)-JVS(49357)*XX(5253)-JVS(52309)& - &*XX(5255)-JVS(53926)*XX(5256) - XX(4320) = XX(4320)-JVS(31728)*XX(5046)-JVS(34938)*XX(5178)-JVS(45870)*XX(5251)-JVS(47093)*XX(5252)-JVS(49356)& - &*XX(5253)-JVS(50226)*XX(5254)-JVS(53925)*XX(5256) - XX(4319) = XX(4319)-JVS(27793)*XX(4768)-JVS(32842)*XX(5104)-JVS(44130)*XX(5250)-JVS(47092)*XX(5252)-JVS(49355)& - &*XX(5253)-JVS(52308)*XX(5255)-JVS(53924)*XX(5256) - XX(4318) = XX(4318)-JVS(33260)*XX(5125)-JVS(38466)*XX(5231)-JVS(44129)*XX(5250)-JVS(47091)*XX(5252)-JVS(49354)& - &*XX(5253)-JVS(52307)*XX(5255)-JVS(53923)*XX(5256) - XX(4317) = XX(4317)-JVS(23139)*XX(4331)-JVS(26957)*XX(4693)-JVS(44128)*XX(5250)-JVS(47090)*XX(5252)-JVS(49353)& - &*XX(5253)-JVS(52306)*XX(5255)-JVS(53922)*XX(5256) - XX(4316) = XX(4316)-JVS(30951)*XX(5000)-JVS(44127)*XX(5250)-JVS(45869)*XX(5251)-JVS(47089)*XX(5252)-JVS(49352)& - &*XX(5253)-JVS(52305)*XX(5255)-JVS(53921)*XX(5256) - XX(4315) = XX(4315)-JVS(31083)*XX(5006)-JVS(32634)*XX(5095)-JVS(44126)*XX(5250)-JVS(47088)*XX(5252)-JVS(49351)& - &*XX(5253)-JVS(52304)*XX(5255)-JVS(53920)*XX(5256) - XX(4314) = XX(4314)-JVS(23822)*XX(4403)-JVS(24986)*XX(4507)-JVS(44125)*XX(5250)-JVS(47087)*XX(5252)-JVS(49350)& - &*XX(5253)-JVS(52303)*XX(5255)-JVS(53919)*XX(5256) - XX(4313) = XX(4313)-JVS(28690)*XX(4844)-JVS(32550)*XX(5090)-JVS(36458)*XX(5201)-JVS(44124)*XX(5250)-JVS(45868)& - &*XX(5251)-JVS(52302)*XX(5255)-JVS(53918)*XX(5256) - XX(4312) = XX(4312)-JVS(23821)*XX(4403)-JVS(24985)*XX(4507)-JVS(44123)*XX(5250)-JVS(47086)*XX(5252)-JVS(49349)& - &*XX(5253)-JVS(52301)*XX(5255)-JVS(53917)*XX(5256) - XX(4311) = XX(4311)-JVS(33193)*XX(5123)-JVS(35256)*XX(5183)-JVS(44122)*XX(5250)-JVS(47085)*XX(5252)-JVS(49348)& - &*XX(5253)-JVS(52300)*XX(5255)-JVS(53916)*XX(5256) - XX(4310) = XX(4310)-JVS(25171)*XX(4524)-JVS(44121)*XX(5250)-JVS(47084)*XX(5252)-JVS(49347)*XX(5253)-JVS(52299)& - &*XX(5255)-JVS(53915)*XX(5256) - XX(4309) = XX(4309)-JVS(28206)*XX(4801)-JVS(40125)*XX(5244)-JVS(44120)*XX(5250)-JVS(47083)*XX(5252)-JVS(49346)& - &*XX(5253)-JVS(52298)*XX(5255)-JVS(53914)*XX(5256) - XX(4308) = XX(4308)-JVS(31603)*XX(5038)-JVS(44119)*XX(5250)-JVS(45867)*XX(5251)-JVS(47082)*XX(5252)-JVS(49345)& - &*XX(5253)-JVS(52297)*XX(5255)-JVS(53913)*XX(5256) - XX(4307) = XX(4307)-JVS(24079)*XX(4426)-JVS(28114)*XX(4796)-JVS(44118)*XX(5250)-JVS(47081)*XX(5252)-JVS(49344)& - &*XX(5253)-JVS(52296)*XX(5255)-JVS(53912)*XX(5256) - XX(4306) = XX(4306)-JVS(24984)*XX(4507)-JVS(28113)*XX(4796)-JVS(44117)*XX(5250)-JVS(47080)*XX(5252)-JVS(49343)& - &*XX(5253)-JVS(52295)*XX(5255)-JVS(53911)*XX(5256) - XX(4305) = XX(4305)-JVS(24983)*XX(4507)-JVS(26956)*XX(4693)-JVS(44116)*XX(5250)-JVS(47079)*XX(5252)-JVS(49342)& - &*XX(5253)-JVS(52294)*XX(5255)-JVS(53910)*XX(5256) - XX(4304) = XX(4304)-JVS(24042)*XX(4423)-JVS(28112)*XX(4796)-JVS(44115)*XX(5250)-JVS(47078)*XX(5252)-JVS(49341)& - &*XX(5253)-JVS(52293)*XX(5255)-JVS(53909)*XX(5256) - XX(4303) = XX(4303)-JVS(24982)*XX(4507)-JVS(26955)*XX(4693)-JVS(44114)*XX(5250)-JVS(47077)*XX(5252)-JVS(49340)& - &*XX(5253)-JVS(52292)*XX(5255)-JVS(53908)*XX(5256) - XX(4302) = XX(4302)-JVS(31727)*XX(5046)-JVS(37217)*XX(5215)-JVS(45866)*XX(5251)-JVS(47076)*XX(5252)-JVS(49339)& - &*XX(5253)-JVS(50225)*XX(5254)-JVS(53907)*XX(5256) - XX(4301) = XX(4301)-JVS(37216)*XX(5215)-JVS(44113)*XX(5250)-JVS(45865)*XX(5251)-JVS(47075)*XX(5252)-JVS(49338)& - &*XX(5253)-JVS(52291)*XX(5255)-JVS(53906)*XX(5256) - XX(4300) = XX(4300)-JVS(24290)*XX(4446)-JVS(26412)*XX(4646)-JVS(34034)*XX(5150)-JVS(40124)*XX(5244)-JVS(40482)& - &*XX(5246)-JVS(44112)*XX(5250)-JVS(52290)*XX(5255) - XX(4299) = XX(4299)-JVS(25277)*XX(4534)-JVS(44111)*XX(5250)-JVS(45864)*XX(5251)-JVS(47074)*XX(5252)-JVS(49337)& - &*XX(5253)-JVS(52289)*XX(5255)-JVS(53905)*XX(5256) - XX(4298) = XX(4298)-JVS(24981)*XX(4507)-JVS(26954)*XX(4693)-JVS(44110)*XX(5250)-JVS(47073)*XX(5252)-JVS(49336)& - &*XX(5253)-JVS(52288)*XX(5255)-JVS(53904)*XX(5256) - XX(4297) = XX(4297)-JVS(23820)*XX(4403)-JVS(24980)*XX(4507)-JVS(44109)*XX(5250)-JVS(47072)*XX(5252)-JVS(49335)& - &*XX(5253)-JVS(52287)*XX(5255)-JVS(53903)*XX(5256) - XX(4296) = XX(4296)-JVS(24078)*XX(4426)-JVS(28111)*XX(4796)-JVS(44108)*XX(5250)-JVS(47071)*XX(5252)-JVS(49334)& - &*XX(5253)-JVS(52286)*XX(5255)-JVS(53902)*XX(5256) - XX(4295) = XX(4295)-JVS(24841)*XX(4497)-JVS(44107)*XX(5250)-JVS(47070)*XX(5252)-JVS(49333)*XX(5253)-JVS(52285)& - &*XX(5255)-JVS(53901)*XX(5256) - XX(4294) = XX(4294)-JVS(34790)*XX(5172)-JVS(40123)*XX(5244)-JVS(44106)*XX(5250) - XX(4293) = XX(4293)-JVS(24979)*XX(4507)-JVS(26953)*XX(4693)-JVS(44105)*XX(5250)-JVS(47069)*XX(5252)-JVS(49332)& - &*XX(5253)-JVS(52284)*XX(5255)-JVS(53900)*XX(5256) - XX(4292) = XX(4292)-JVS(24978)*XX(4507)-JVS(26952)*XX(4693)-JVS(44104)*XX(5250)-JVS(47068)*XX(5252)-JVS(49331)& - &*XX(5253)-JVS(52283)*XX(5255)-JVS(53899)*XX(5256) - XX(4291) = XX(4291)-JVS(24977)*XX(4507)-JVS(26951)*XX(4693)-JVS(44103)*XX(5250)-JVS(47067)*XX(5252)-JVS(49330)& - &*XX(5253)-JVS(52282)*XX(5255)-JVS(53898)*XX(5256) - XX(4290) = XX(4290)-JVS(25568)*XX(4560)-JVS(34413)*XX(5160)-JVS(44102)*XX(5250)-JVS(47066)*XX(5252)-JVS(49329)& - &*XX(5253)-JVS(52281)*XX(5255)-JVS(53897)*XX(5256) - XX(4289) = XX(4289)-JVS(23819)*XX(4403)-JVS(24976)*XX(4507)-JVS(44101)*XX(5250)-JVS(47065)*XX(5252)-JVS(49328)& - &*XX(5253)-JVS(52280)*XX(5255)-JVS(53896)*XX(5256) - XX(4288) = XX(4288)-JVS(22697)*XX(4290)-JVS(44100)*XX(5250)-JVS(45863)*XX(5251)-JVS(47064)*XX(5252)-JVS(49327)& - &*XX(5253)-JVS(52279)*XX(5255)-JVS(53895)*XX(5256) - XX(4287) = XX(4287)-JVS(23818)*XX(4403)-JVS(24975)*XX(4507)-JVS(44099)*XX(5250)-JVS(47063)*XX(5252)-JVS(49326)& - &*XX(5253)-JVS(52278)*XX(5255)-JVS(53894)*XX(5256) - XX(4286) = XX(4286)-JVS(31726)*XX(5046)-JVS(37823)*XX(5227)-JVS(45862)*XX(5251)-JVS(47062)*XX(5252)-JVS(49325)& - &*XX(5253)-JVS(50224)*XX(5254)-JVS(53893)*XX(5256) - XX(4285) = XX(4285)-JVS(23138)*XX(4331)-JVS(26950)*XX(4693)-JVS(44098)*XX(5250)-JVS(47061)*XX(5252)-JVS(49324)& - &*XX(5253)-JVS(52277)*XX(5255)-JVS(53892)*XX(5256) - XX(4284) = XX(4284)-JVS(34087)*XX(5152)-JVS(38465)*XX(5231)-JVS(44097)*XX(5250)-JVS(47060)*XX(5252)-JVS(49323)& - &*XX(5253)-JVS(52276)*XX(5255)-JVS(53891)*XX(5256) - XX(4283) = XX(4283)-JVS(34637)*XX(5165)-JVS(44096)*XX(5250)-JVS(45861)*XX(5251)-JVS(47059)*XX(5252)-JVS(49322)& - &*XX(5253)-JVS(52275)*XX(5255)-JVS(53890)*XX(5256) - XX(4282) = XX(4282)-JVS(29504)*XX(4909)-JVS(31725)*XX(5046)-JVS(45860)*XX(5251)-JVS(47058)*XX(5252)-JVS(49321)& - &*XX(5253)-JVS(50223)*XX(5254)-JVS(53889)*XX(5256) - XX(4281) = XX(4281)-JVS(38051)*XX(5230)-JVS(44095)*XX(5250)-JVS(45859)*XX(5251)-JVS(47057)*XX(5252)-JVS(49320)& - &*XX(5253)-JVS(52274)*XX(5255)-JVS(53888)*XX(5256) - XX(4280) = XX(4280)-JVS(24650)*XX(4482)-JVS(28110)*XX(4796)-JVS(44094)*XX(5250)-JVS(47056)*XX(5252)-JVS(49319)& - &*XX(5253)-JVS(52273)*XX(5255)-JVS(53887)*XX(5256) - XX(4279) = XX(4279)-JVS(25458)*XX(4549)-JVS(30705)*XX(4984)-JVS(36457)*XX(5201)-JVS(44093)*XX(5250)-JVS(45858)& - &*XX(5251)-JVS(52272)*XX(5255)-JVS(53886)*XX(5256) - XX(4278) = XX(4278)-JVS(31039)*XX(5004)-JVS(36456)*XX(5201)-JVS(44092)*XX(5250)-JVS(45857)*XX(5251)-JVS(52271)& - &*XX(5255)-JVS(53885)*XX(5256) - XX(4277) = XX(4277)-JVS(33651)*XX(5139)-JVS(44091)*XX(5250)-JVS(45856)*XX(5251)-JVS(47055)*XX(5252)-JVS(49318)& - &*XX(5253)-JVS(52270)*XX(5255)-JVS(53884)*XX(5256) - XX(4276) = XX(4276)-JVS(23137)*XX(4331)-JVS(26949)*XX(4693)-JVS(44090)*XX(5250)-JVS(47054)*XX(5252)-JVS(49317)& - &*XX(5253)-JVS(52269)*XX(5255)-JVS(53883)*XX(5256) - XX(4275) = XX(4275)-JVS(35646)*XX(5191)-JVS(44089)*XX(5250)-JVS(45855)*XX(5251)-JVS(47053)*XX(5252)-JVS(49316)& - &*XX(5253)-JVS(52268)*XX(5255)-JVS(53882)*XX(5256) - XX(4274) = XX(4274)-JVS(34760)*XX(5171)-JVS(35873)*XX(5193)-JVS(44088)*XX(5250)-JVS(47052)*XX(5252)-JVS(49315)& - &*XX(5253)-JVS(52267)*XX(5255)-JVS(53881)*XX(5256) - XX(4273) = XX(4273)-JVS(28109)*XX(4796)-JVS(32006)*XX(5059)-JVS(44087)*XX(5250)-JVS(47051)*XX(5252)-JVS(49314)& - &*XX(5253)-JVS(52266)*XX(5255)-JVS(53880)*XX(5256) - XX(4272) = XX(4272)-JVS(26285)*XX(4633)-JVS(27308)*XX(4727)-JVS(27347)*XX(4729)-JVS(29458)*XX(4905)-JVS(32185)& - &*XX(5070)-JVS(35255)*XX(5183)-JVS(35645)*XX(5191)-JVS(36455)*XX(5201)-JVS(40122)*XX(5244)-JVS(44086)& - &*XX(5250)-JVS(45854)*XX(5251)-JVS(52265)*XX(5255)-JVS(53879)*XX(5256)-JVS(54884)*XX(5258) - XX(4271) = XX(4271)-JVS(28108)*XX(4796)-JVS(32005)*XX(5059)-JVS(44085)*XX(5250)-JVS(47050)*XX(5252)-JVS(49313)& - &*XX(5253)-JVS(52264)*XX(5255)-JVS(53878)*XX(5256) - XX(4270) = XX(4270)-JVS(34559)*XX(5162)-JVS(38464)*XX(5231)-JVS(44084)*XX(5250)-JVS(47049)*XX(5252)-JVS(49312)& - &*XX(5253)-JVS(52263)*XX(5255)-JVS(53877)*XX(5256) - XX(4269) = XX(4269)-JVS(37799)*XX(5226)-JVS(44083)*XX(5250)-JVS(45853)*XX(5251)-JVS(47048)*XX(5252)-JVS(49311)& - &*XX(5253)-JVS(52262)*XX(5255)-JVS(53876)*XX(5256) - XX(4268) = XX(4268)-JVS(37148)*XX(5214)-JVS(38463)*XX(5231)-JVS(44082)*XX(5250)-JVS(47047)*XX(5252)-JVS(49310)& - &*XX(5253)-JVS(52261)*XX(5255)-JVS(53875)*XX(5256) - XX(4267) = XX(4267)-JVS(25956)*XX(4602)-JVS(44081)*XX(5250)-JVS(45852)*XX(5251)-JVS(47046)*XX(5252)-JVS(49309)& - &*XX(5253)-JVS(52260)*XX(5255)-JVS(53874)*XX(5256) - XX(4266) = XX(4266)-JVS(37215)*XX(5215)-JVS(44080)*XX(5250)-JVS(45851)*XX(5251)-JVS(47045)*XX(5252)-JVS(49308)& - &*XX(5253)-JVS(52259)*XX(5255)-JVS(53873)*XX(5256) - XX(4265) = XX(4265)-JVS(24974)*XX(4507)-JVS(28107)*XX(4796)-JVS(44079)*XX(5250)-JVS(47044)*XX(5252)-JVS(49307)& - &*XX(5253)-JVS(52258)*XX(5255)-JVS(53872)*XX(5256) - XX(4264) = XX(4264)-JVS(31724)*XX(5046)-JVS(40558)*XX(5248)-JVS(45850)*XX(5251)-JVS(47043)*XX(5252)-JVS(49306)& - &*XX(5253)-JVS(50222)*XX(5254)-JVS(53871)*XX(5256) - XX(4263) = XX(4263)-JVS(38462)*XX(5231)-JVS(39256)*XX(5234)-JVS(44078)*XX(5250)-JVS(47042)*XX(5252)-JVS(49305)& - &*XX(5253)-JVS(52257)*XX(5255)-JVS(53870)*XX(5256) - XX(4262) = XX(4262)-JVS(24041)*XX(4423)-JVS(28106)*XX(4796)-JVS(44077)*XX(5250)-JVS(47041)*XX(5252)-JVS(49304)& - &*XX(5253)-JVS(52256)*XX(5255)-JVS(53869)*XX(5256) - XX(4261) = XX(4261)-JVS(28744)*XX(4848)-JVS(34033)*XX(5150)-JVS(36454)*XX(5201)-JVS(44076)*XX(5250)-JVS(45849)& - &*XX(5251)-JVS(52255)*XX(5255)-JVS(53868)*XX(5256) - XX(4260) = XX(4260)-JVS(32208)*XX(5071)-JVS(44075)*XX(5250)-JVS(45848)*XX(5251)-JVS(47040)*XX(5252)-JVS(49303)& - &*XX(5253)-JVS(52254)*XX(5255)-JVS(53867)*XX(5256) - XX(4259) = XX(4259)-JVS(36025)*XX(5194)-JVS(44074)*XX(5250)-JVS(45847)*XX(5251)-JVS(47039)*XX(5252)-JVS(49302)& - &*XX(5253)-JVS(52253)*XX(5255)-JVS(53866)*XX(5256) - XX(4258) = XX(4258)-JVS(31723)*XX(5046)-JVS(39580)*XX(5240)-JVS(45846)*XX(5251)-JVS(47038)*XX(5252)-JVS(49301)& - &*XX(5253)-JVS(50221)*XX(5254)-JVS(53865)*XX(5256) - XX(4257) = XX(4257)-JVS(22696)*XX(4290)-JVS(44073)*XX(5250)-JVS(47037)*XX(5252)-JVS(49300)*XX(5253)-JVS(52252)& - &*XX(5255)-JVS(53864)*XX(5256) - XX(4256) = XX(4256)-JVS(34669)*XX(5167)-JVS(35498)*XX(5188)-JVS(39075)*XX(5233)-JVS(44072)*XX(5250)-JVS(49299)& - &*XX(5253)-JVS(52251)*XX(5255) - XX(4255) = XX(4255)-JVS(37798)*XX(5226)-JVS(44071)*XX(5250)-JVS(45845)*XX(5251)-JVS(47036)*XX(5252)-JVS(49298)& - &*XX(5253)-JVS(52250)*XX(5255)-JVS(53863)*XX(5256) - XX(4254) = XX(4254)-JVS(27142)*XX(4710)-JVS(38461)*XX(5231)-JVS(44070)*XX(5250)-JVS(47035)*XX(5252)-JVS(49297)& - &*XX(5253)-JVS(52249)*XX(5255)-JVS(53862)*XX(5256) - XX(4253) = XX(4253)-JVS(24324)*XX(4449)-JVS(40121)*XX(5244)-JVS(44069)*XX(5250)-JVS(47034)*XX(5252)-JVS(49296)& - &*XX(5253)-JVS(52248)*XX(5255)-JVS(53861)*XX(5256) - XX(4252) = XX(4252)-JVS(23817)*XX(4403)-JVS(24973)*XX(4507)-JVS(44068)*XX(5250)-JVS(47033)*XX(5252)-JVS(49295)& - &*XX(5253)-JVS(52247)*XX(5255)-JVS(53860)*XX(5256) - XX(4251) = XX(4251)-JVS(25315)*XX(4537)-JVS(29263)*XX(4890)-JVS(44067)*XX(5250)-JVS(47032)*XX(5252)-JVS(49294)& - &*XX(5253)-JVS(52246)*XX(5255)-JVS(53859)*XX(5256) - XX(4250) = XX(4250)-JVS(31349)*XX(5023)-JVS(31722)*XX(5046)-JVS(45844)*XX(5251)-JVS(47031)*XX(5252)-JVS(49293)& - &*XX(5253)-JVS(50220)*XX(5254)-JVS(53858)*XX(5256) - XX(4249) = XX(4249)-JVS(33160)*XX(5122)-JVS(38460)*XX(5231)-JVS(44066)*XX(5250)-JVS(47030)*XX(5252)-JVS(49292)& - &*XX(5253)-JVS(52245)*XX(5255)-JVS(53857)*XX(5256) - XX(4248) = XX(4248)-JVS(30864)*XX(4995)-JVS(33324)*XX(5127)-JVS(37045)*XX(5211)-JVS(40120)*XX(5244)-JVS(44065)& - &*XX(5250)-JVS(52244)*XX(5255) - XX(4247) = XX(4247)-JVS(31721)*XX(5046)-JVS(37760)*XX(5225)-JVS(45843)*XX(5251)-JVS(47029)*XX(5252)-JVS(49291)& - &*XX(5253)-JVS(50219)*XX(5254)-JVS(53856)*XX(5256) - XX(4246) = XX(4246)-JVS(24040)*XX(4423)-JVS(28105)*XX(4796)-JVS(44064)*XX(5250)-JVS(47028)*XX(5252)-JVS(49290)& - &*XX(5253)-JVS(52243)*XX(5255)-JVS(53855)*XX(5256) - XX(4245) = XX(4245)-JVS(23816)*XX(4403)-JVS(24972)*XX(4507)-JVS(44063)*XX(5250)-JVS(47027)*XX(5252)-JVS(49289)& - &*XX(5253)-JVS(52242)*XX(5255)-JVS(53854)*XX(5256) - XX(4244) = XX(4244)-JVS(25354)*XX(4540)-JVS(44062)*XX(5250)-JVS(45842)*XX(5251)-JVS(47026)*XX(5252)-JVS(49288)& - &*XX(5253)-JVS(52241)*XX(5255)-JVS(53853)*XX(5256) - XX(4243) = XX(4243)-JVS(30529)*XX(4973)-JVS(44061)*XX(5250)-JVS(45841)*XX(5251)-JVS(47025)*XX(5252)-JVS(49287)& - &*XX(5253)-JVS(52240)*XX(5255)-JVS(53852)*XX(5256) - XX(4242) = XX(4242)-JVS(33016)*XX(5113)-JVS(40119)*XX(5244)-JVS(44060)*XX(5250)-JVS(47024)*XX(5252)-JVS(49286)& - &*XX(5253)-JVS(52239)*XX(5255)-JVS(53851)*XX(5256) - XX(4241) = XX(4241)-JVS(24749)*XX(4490)-JVS(40118)*XX(5244)-JVS(44059)*XX(5250)-JVS(47023)*XX(5252)-JVS(49285)& - &*XX(5253)-JVS(52238)*XX(5255)-JVS(53850)*XX(5256) - XX(4240) = XX(4240)-JVS(29533)*XX(4910)-JVS(44058)*XX(5250)-JVS(47022)*XX(5252)-JVS(49284)*XX(5253)-JVS(52237)& - &*XX(5255)-JVS(53849)*XX(5256) - XX(4239) = XX(4239)-JVS(36453)*XX(5201)-JVS(39449)*XX(5237)-JVS(44057)*XX(5250)-JVS(45840)*XX(5251)-JVS(52236)& - &*XX(5255)-JVS(53848)*XX(5256) - XX(4238) = XX(4238)-JVS(27141)*XX(4710)-JVS(35872)*XX(5193)-JVS(44056)*XX(5250)-JVS(47021)*XX(5252)-JVS(49283)& - &*XX(5253)-JVS(52235)*XX(5255)-JVS(53847)*XX(5256) - XX(4237) = XX(4237)-JVS(24649)*XX(4482)-JVS(28104)*XX(4796)-JVS(44055)*XX(5250)-JVS(47020)*XX(5252)-JVS(49282)& - &*XX(5253)-JVS(52234)*XX(5255)-JVS(53846)*XX(5256) - XX(4236) = XX(4236)-JVS(32470)*XX(5086)-JVS(40117)*XX(5244)-JVS(44054)*XX(5250)-JVS(47019)*XX(5252)-JVS(49281)& - &*XX(5253)-JVS(52233)*XX(5255)-JVS(53845)*XX(5256) - XX(4235) = XX(4235)-JVS(32961)*XX(5110)-JVS(38459)*XX(5231)-JVS(44053)*XX(5250)-JVS(47018)*XX(5252)-JVS(49280)& - &*XX(5253)-JVS(52232)*XX(5255)-JVS(53844)*XX(5256) - XX(4234) = XX(4234)-JVS(34412)*XX(5160)-JVS(34978)*XX(5179)-JVS(44052)*XX(5250)-JVS(47017)*XX(5252)-JVS(49279)& - &*XX(5253)-JVS(52231)*XX(5255)-JVS(53843)*XX(5256) - XX(4233) = XX(4233)-JVS(33259)*XX(5125)-JVS(36452)*XX(5201)-JVS(44051)*XX(5250)-JVS(45839)*XX(5251)-JVS(52230)& - &*XX(5255)-JVS(53842)*XX(5256) - XX(4232) = XX(4232)-JVS(23815)*XX(4403)-JVS(24971)*XX(4507)-JVS(44050)*XX(5250)-JVS(47016)*XX(5252)-JVS(49278)& - &*XX(5253)-JVS(52229)*XX(5255)-JVS(53841)*XX(5256) - XX(4231) = XX(4231)-JVS(26057)*XX(4613)-JVS(26068)*XX(4614)-JVS(36451)*XX(5201)-JVS(44049)*XX(5250)-JVS(45838)& - &*XX(5251)-JVS(52228)*XX(5255)-JVS(53840)*XX(5256) - XX(4230) = XX(4230)-JVS(35383)*XX(5184)-JVS(44048)*XX(5250)-JVS(45837)*XX(5251)-JVS(47015)*XX(5252)-JVS(49277)& - &*XX(5253)-JVS(52227)*XX(5255)-JVS(53839)*XX(5256) - XX(4229) = XX(4229)-JVS(27571)*XX(4749)-JVS(44047)*XX(5250)-JVS(45836)*XX(5251)-JVS(47014)*XX(5252)-JVS(49276)& - &*XX(5253)-JVS(52226)*XX(5255)-JVS(53838)*XX(5256) - XX(4228) = XX(4228)-JVS(37759)*XX(5225)-JVS(44046)*XX(5250)-JVS(47013)*XX(5252)-JVS(49275)*XX(5253)-JVS(52225)& - &*XX(5255)-JVS(53837)*XX(5256) - XX(4227) = XX(4227)-JVS(32897)*XX(5106)-JVS(36450)*XX(5201)-JVS(44045)*XX(5250)-JVS(45835)*XX(5251)-JVS(52224)& - &*XX(5255)-JVS(53836)*XX(5256) - XX(4226) = XX(4226)-JVS(27607)*XX(4752)-JVS(32435)*XX(5085)-JVS(44044)*XX(5250)-JVS(47012)*XX(5252)-JVS(49274)& - &*XX(5253)-JVS(52223)*XX(5255)-JVS(53835)*XX(5256) - XX(4225) = XX(4225)-JVS(24970)*XX(4507)-JVS(26948)*XX(4693)-JVS(44043)*XX(5250)-JVS(47011)*XX(5252)-JVS(49273)& - &*XX(5253)-JVS(52222)*XX(5255)-JVS(53834)*XX(5256) - XX(4224) = XX(4224)-JVS(22759)*XX(4295)-JVS(24829)*XX(4496)-JVS(36449)*XX(5201)-JVS(44042)*XX(5250)-JVS(45834)& - &*XX(5251)-JVS(52221)*XX(5255)-JVS(53833)*XX(5256) - XX(4223) = XX(4223)-JVS(29059)*XX(4871)-JVS(33258)*XX(5125)-JVS(35871)*XX(5193)-JVS(40116)*XX(5244)-JVS(44041)& - &*XX(5250)-JVS(52220)*XX(5255) - XX(4222) = XX(4222)-JVS(44040)*XX(5250)-JVS(45833)*XX(5251)-JVS(47010)*XX(5252)-JVS(49272)*XX(5253)-JVS(52219)& - &*XX(5255)-JVS(53832)*XX(5256)-JVS(54883)*XX(5258) - XX(4221) = XX(4221)-JVS(24748)*XX(4490)-JVS(44039)*XX(5250)-JVS(45832)*XX(5251)-JVS(47009)*XX(5252)-JVS(49271)& - &*XX(5253)-JVS(52218)*XX(5255)-JVS(53831)*XX(5256) - XX(4220) = XX(4220)-JVS(29396)*XX(4902)-JVS(44038)*XX(5250)-JVS(45831)*XX(5251)-JVS(47008)*XX(5252)-JVS(49270)& - &*XX(5253)-JVS(52217)*XX(5255)-JVS(53830)*XX(5256) - XX(4219) = XX(4219)-JVS(26044)*XX(4612)-JVS(33787)*XX(5142)-JVS(44037)*XX(5250)-JVS(47007)*XX(5252)-JVS(49269)& - &*XX(5253)-JVS(52216)*XX(5255)-JVS(53829)*XX(5256) - XX(4218) = XX(4218)-JVS(28359)*XX(4815)-JVS(44036)*XX(5250)-JVS(45830)*XX(5251)-JVS(47006)*XX(5252)-JVS(49268)& - &*XX(5253)-JVS(52215)*XX(5255)-JVS(53828)*XX(5256) - XX(4217) = XX(4217)-JVS(24969)*XX(4507)-JVS(28103)*XX(4796)-JVS(44035)*XX(5250)-JVS(47005)*XX(5252)-JVS(49267)& - &*XX(5253)-JVS(52214)*XX(5255)-JVS(53827)*XX(5256) - XX(4216) = XX(4216)-JVS(27792)*XX(4768)-JVS(33400)*XX(5130)-JVS(44034)*XX(5250)-JVS(47004)*XX(5252)-JVS(49266)& - &*XX(5253)-JVS(52213)*XX(5255)-JVS(53826)*XX(5256) - XX(4215) = XX(4215)-JVS(36827)*XX(5203)-JVS(44033)*XX(5250)-JVS(45829)*XX(5251)-JVS(47003)*XX(5252)-JVS(49265)& - &*XX(5253)-JVS(52212)*XX(5255)-JVS(53825)*XX(5256) - XX(4214) = XX(4214)-JVS(29959)*XX(4938)-JVS(44032)*XX(5250)-JVS(45828)*XX(5251)-JVS(47002)*XX(5252)-JVS(49264)& - &*XX(5253)-JVS(52211)*XX(5255)-JVS(53824)*XX(5256) - XX(4213) = XX(4213)-JVS(29503)*XX(4909)-JVS(31720)*XX(5046)-JVS(45827)*XX(5251)-JVS(47001)*XX(5252)-JVS(49263)& - &*XX(5253)-JVS(50218)*XX(5254)-JVS(53823)*XX(5256) - XX(4212) = XX(4212)-JVS(23136)*XX(4331)-JVS(26947)*XX(4693)-JVS(44031)*XX(5250)-JVS(47000)*XX(5252)-JVS(49262)& - &*XX(5253)-JVS(52210)*XX(5255)-JVS(53822)*XX(5256) - XX(4211) = XX(4211)-JVS(35870)*XX(5193)-JVS(38458)*XX(5231)-JVS(44030)*XX(5250)-JVS(46999)*XX(5252)-JVS(49261)& - &*XX(5253)-JVS(52209)*XX(5255)-JVS(53821)*XX(5256) - XX(4210) = XX(4210)-JVS(23814)*XX(4403)-JVS(24968)*XX(4507)-JVS(44029)*XX(5250)-JVS(46998)*XX(5252)-JVS(49260)& - &*XX(5253)-JVS(52208)*XX(5255)-JVS(53820)*XX(5256) - XX(4209) = XX(4209)-JVS(31348)*XX(5023)-JVS(44028)*XX(5250)-JVS(45826)*XX(5251)-JVS(46997)*XX(5252)-JVS(49259)& - &*XX(5253)-JVS(52207)*XX(5255)-JVS(53819)*XX(5256) - XX(4208) = XX(4208)-JVS(37512)*XX(5222)-JVS(44027)*XX(5250)-JVS(46996)*XX(5252)-JVS(49258)*XX(5253)-JVS(52206)& - &*XX(5255)-JVS(53818)*XX(5256) - XX(4207) = XX(4207)-JVS(31926)*XX(5055)-JVS(44026)*XX(5250)-JVS(45825)*XX(5251)-JVS(46995)*XX(5252)-JVS(49257)& - &*XX(5253)-JVS(52205)*XX(5255)-JVS(53817)*XX(5256) - XX(4206) = XX(4206)-JVS(34937)*XX(5178)-JVS(44025)*XX(5250)-JVS(45824)*XX(5251)-JVS(46994)*XX(5252)-JVS(49256)& - &*XX(5253)-JVS(52204)*XX(5255)-JVS(53816)*XX(5256) - XX(4205) = XX(4205)-JVS(24648)*XX(4482)-JVS(28102)*XX(4796)-JVS(44024)*XX(5250)-JVS(46993)*XX(5252)-JVS(49255)& - &*XX(5253)-JVS(52203)*XX(5255)-JVS(53815)*XX(5256) - XX(4204) = XX(4204)-JVS(24967)*XX(4507)-JVS(26946)*XX(4693)-JVS(44023)*XX(5250)-JVS(46992)*XX(5252)-JVS(49254)& - &*XX(5253)-JVS(52202)*XX(5255)-JVS(53814)*XX(5256) - XX(4203) = XX(4203)-JVS(28982)*XX(4865)-JVS(44022)*XX(5250)-JVS(45823)*XX(5251)-JVS(46991)*XX(5252)-JVS(49253)& - &*XX(5253)-JVS(52201)*XX(5255)-JVS(53813)*XX(5256) - XX(4202) = XX(4202)-JVS(31485)*XX(5031)-JVS(44021)*XX(5250)-JVS(45822)*XX(5251)-JVS(46990)*XX(5252)-JVS(49252)& - &*XX(5253)-JVS(52200)*XX(5255)-JVS(53812)*XX(5256) - XX(4201) = XX(4201)-JVS(24795)*XX(4493)-JVS(34411)*XX(5160)-JVS(44020)*XX(5250)-JVS(46989)*XX(5252)-JVS(49251)& - &*XX(5253)-JVS(52199)*XX(5255)-JVS(53811)*XX(5256) - XX(4200) = XX(4200)-JVS(24966)*XX(4507)-JVS(26945)*XX(4693)-JVS(44019)*XX(5250)-JVS(46988)*XX(5252)-JVS(49250)& - &*XX(5253)-JVS(52198)*XX(5255)-JVS(53810)*XX(5256) - XX(4199) = XX(4199)-JVS(23843)*XX(4404)-JVS(31602)*XX(5038)-JVS(35254)*XX(5183)-JVS(37230)*XX(5216)-JVS(44018)& - &*XX(5250)-JVS(45821)*XX(5251)-JVS(52197)*XX(5255) - XX(4198) = XX(4198)-JVS(27812)*XX(4769)-JVS(44017)*XX(5250)-JVS(46987)*XX(5252)-JVS(49249)*XX(5253)-JVS(52196)& - &*XX(5255)-JVS(53809)*XX(5256)-JVS(54882)*XX(5258) - XX(4197) = XX(4197)-JVS(31082)*XX(5006)-JVS(32633)*XX(5095)-JVS(44016)*XX(5250)-JVS(46986)*XX(5252)-JVS(49248)& - &*XX(5253)-JVS(52195)*XX(5255)-JVS(53808)*XX(5256) - XX(4196) = XX(4196)-JVS(35095)*XX(5182)-JVS(39547)*XX(5239)-JVS(44015)*XX(5250)-JVS(46985)*XX(5252)-JVS(49247)& - &*XX(5253)-JVS(52194)*XX(5255)-JVS(53807)*XX(5256) - XX(4195) = XX(4195)-JVS(28101)*XX(4796)-JVS(32004)*XX(5059)-JVS(44014)*XX(5250)-JVS(46984)*XX(5252)-JVS(49246)& - &*XX(5253)-JVS(52193)*XX(5255)-JVS(53806)*XX(5256) - XX(4194) = XX(4194)-JVS(24077)*XX(4426)-JVS(28100)*XX(4796)-JVS(44013)*XX(5250)-JVS(46983)*XX(5252)-JVS(49245)& - &*XX(5253)-JVS(52192)*XX(5255)-JVS(53805)*XX(5256) - XX(4193) = XX(4193)-JVS(23135)*XX(4331)-JVS(26944)*XX(4693)-JVS(44012)*XX(5250)-JVS(46982)*XX(5252)-JVS(49244)& - &*XX(5253)-JVS(52191)*XX(5255)-JVS(53804)*XX(5256) - XX(4192) = XX(4192)-JVS(23134)*XX(4331)-JVS(26943)*XX(4693)-JVS(44011)*XX(5250)-JVS(46981)*XX(5252)-JVS(49243)& - &*XX(5253)-JVS(52190)*XX(5255)-JVS(53803)*XX(5256) - XX(4191) = XX(4191)-JVS(35253)*XX(5183)-JVS(38457)*XX(5231)-JVS(44010)*XX(5250)-JVS(45820)*XX(5251)-JVS(46980)& - &*XX(5252)-JVS(49242)*XX(5253)-JVS(52189)*XX(5255)-JVS(53802)*XX(5256) - XX(4190) = XX(4190)-JVS(21996)*XX(4220)-JVS(24794)*XX(4493)-JVS(30484)*XX(4969)-JVS(44009)*XX(5250)-JVS(46979)& - &*XX(5252)-JVS(49241)*XX(5253)-JVS(52188)*XX(5255)-JVS(53801)*XX(5256) - XX(4189) = XX(4189)-JVS(23214)*XX(4340)-JVS(24793)*XX(4493)-JVS(34410)*XX(5160)-JVS(44008)*XX(5250)-JVS(46978)& - &*XX(5252)-JVS(49240)*XX(5253)-JVS(52187)*XX(5255)-JVS(53800)*XX(5256) - XX(4188) = XX(4188)-JVS(38456)*XX(5231)-JVS(40115)*XX(5244)-JVS(44007)*XX(5250)-JVS(45819)*XX(5251)-JVS(46977)& - &*XX(5252)-JVS(49239)*XX(5253)-JVS(52186)*XX(5255)-JVS(53799)*XX(5256) - XX(4187) = XX(4187)-JVS(30414)*XX(4964)-JVS(44006)*XX(5250)-JVS(45818)*XX(5251)-JVS(46976)*XX(5252)-JVS(49238)& - &*XX(5253)-JVS(52185)*XX(5255)-JVS(53798)*XX(5256)-JVS(54881)*XX(5258) - XX(4186) = XX(4186)-JVS(22822)*XX(4301)-JVS(36448)*XX(5201)-JVS(37214)*XX(5215)-JVS(44005)*XX(5250)-JVS(45817)& - &*XX(5251)-JVS(52184)*XX(5255)-JVS(53797)*XX(5256) - XX(4185) = XX(4185)-JVS(21657)*XX(4186)-JVS(37213)*XX(5215)-JVS(38455)*XX(5231)-JVS(44004)*XX(5250)-JVS(46975)& - &*XX(5252)-JVS(49237)*XX(5253)-JVS(52183)*XX(5255)-JVS(53796)*XX(5256) - XX(4184) = XX(4184)-JVS(28099)*XX(4796)-JVS(33650)*XX(5139)-JVS(35252)*XX(5183)-JVS(37888)*XX(5228)-JVS(44003)& - &*XX(5250)-JVS(45816)*XX(5251)-JVS(49236)*XX(5253)-JVS(52182)*XX(5255) - XX(4183) = XX(4183)-JVS(27514)*XX(4745)-JVS(38454)*XX(5231)-JVS(40518)*XX(5247)-JVS(44002)*XX(5250)-JVS(52181)& - &*XX(5255) - XX(4182) = XX(4182)-JVS(27003)*XX(4694)-JVS(44001)*XX(5250)-JVS(45815)*XX(5251)-JVS(46974)*XX(5252)-JVS(49235)& - &*XX(5253)-JVS(52180)*XX(5255)-JVS(53795)*XX(5256) - XX(4181) = XX(4181)-JVS(21614)*XX(4182)-JVS(44000)*XX(5250)-JVS(45814)*XX(5251)-JVS(46973)*XX(5252)-JVS(49234)& - &*XX(5253)-JVS(52179)*XX(5255)-JVS(53794)*XX(5256)-JVS(54880)*XX(5258) - XX(4180) = XX(4180)-JVS(22739)*XX(4294)-JVS(36987)*XX(5210)-JVS(39074)*XX(5233)-JVS(43999)*XX(5250)-JVS(46972)& - &*XX(5252)-JVS(49233)*XX(5253)-JVS(52178)*XX(5255)-JVS(53793)*XX(5256) - XX(4179) = XX(4179)-JVS(22351)*XX(4254)-JVS(23387)*XX(4361)-JVS(27183)*XX(4715)-JVS(27700)*XX(4760)-JVS(34532)& - &*XX(5161)-JVS(35251)*XX(5183)-JVS(43998)*XX(5250)-JVS(52177)*XX(5255) - XX(4178) = XX(4178)-JVS(26942)*XX(4693)-JVS(29428)*XX(4904)-JVS(33649)*XX(5139)-JVS(33786)*XX(5142)-JVS(40114)& - &*XX(5244)-JVS(43997)*XX(5250)-JVS(45813)*XX(5251)-JVS(52176)*XX(5255) - XX(4177) = XX(4177)-JVS(26104)*XX(4618)-JVS(29325)*XX(4896)-JVS(30218)*XX(4951)-JVS(30231)*XX(4952)-JVS(31984)& - &*XX(5058)-JVS(33192)*XX(5123)-JVS(33313)*XX(5126)-JVS(33648)*XX(5139)-JVS(37511)*XX(5222)-JVS(52175)& - &*XX(5255) - XX(4176) = XX(4176)-JVS(28950)*XX(4863)-JVS(35094)*XX(5182)-JVS(37147)*XX(5214)-JVS(43996)*XX(5250)-JVS(46971)& - &*XX(5252)-JVS(49232)*XX(5253)-JVS(52174)*XX(5255)-JVS(53792)*XX(5256) - XX(4175) = XX(4175)-JVS(33785)*XX(5142)-JVS(35250)*XX(5183)-JVS(43995)*XX(5250)-JVS(45812)*XX(5251)-JVS(52173)& - &*XX(5255) - XX(4174) = XX(4174)-JVS(24532)*XX(4470)-JVS(36447)*XX(5201)-JVS(38050)*XX(5230)-JVS(43994)*XX(5250)-JVS(45811)& - &*XX(5251)-JVS(49231)*XX(5253)-JVS(52172)*XX(5255)-JVS(53791)*XX(5256) - XX(4173) = XX(4173)-JVS(23904)*XX(4410)-JVS(34409)*XX(5160)-JVS(35093)*XX(5182)-JVS(43993)*XX(5250)-JVS(46970)& - &*XX(5252)-JVS(49230)*XX(5253)-JVS(52171)*XX(5255)-JVS(53790)*XX(5256) - XX(4172) = XX(4172)-JVS(32841)*XX(5104)-JVS(35092)*XX(5182)-JVS(37146)*XX(5214)-JVS(43992)*XX(5250)-JVS(46969)& - &*XX(5252)-JVS(49229)*XX(5253)-JVS(52170)*XX(5255)-JVS(53789)*XX(5256) - XX(4171) = XX(4171)-JVS(35021)*XX(5180)-JVS(38453)*XX(5231)-JVS(39255)*XX(5234)-JVS(43991)*XX(5250)-JVS(46968)& - &*XX(5252)-JVS(49228)*XX(5253)-JVS(52169)*XX(5255)-JVS(53788)*XX(5256) - XX(4170) = XX(4170)-JVS(34408)*XX(5160)-JVS(40113)*XX(5244)-JVS(43990)*XX(5250)-JVS(45810)*XX(5251)-JVS(46967)& - &*XX(5252)-JVS(49227)*XX(5253)-JVS(52168)*XX(5255)-JVS(53787)*XX(5256) - XX(4169) = XX(4169)-JVS(23691)*XX(4392)-JVS(35869)*XX(5193)-JVS(39448)*XX(5237)-JVS(43989)*XX(5250)-JVS(46966)& - &*XX(5252)-JVS(49226)*XX(5253)-JVS(52167)*XX(5255)-JVS(53786)*XX(5256) - XX(4168) = XX(4168)-JVS(33647)*XX(5139)-JVS(35249)*XX(5183)-JVS(35644)*XX(5191)-JVS(43988)*XX(5250)-JVS(46965)& - &*XX(5252)-JVS(49225)*XX(5253)-JVS(52166)*XX(5255)-JVS(53785)*XX(5256) - XX(4167) = XX(4167)-JVS(21475)*XX(4168)-JVS(28046)*XX(4793)-JVS(33646)*XX(5139)-JVS(33747)*XX(5141)-JVS(37510)& - &*XX(5222)-JVS(43987)*XX(5250)-JVS(46964)*XX(5252)-JVS(49224)*XX(5253)-JVS(52165)*XX(5255)-JVS(53784)& - &*XX(5256) - XX(4166) = XX(4166)-JVS(22583)*XX(4278)-JVS(23296)*XX(4350)-JVS(34407)*XX(5160)-JVS(43986)*XX(5250)-JVS(46963)& - &*XX(5252)-JVS(49223)*XX(5253)-JVS(52164)*XX(5255)-JVS(53783)*XX(5256) - XX(4165) = XX(4165)-JVS(27878)*XX(4775)-JVS(29657)*XX(4918)-JVS(39073)*XX(5233)-JVS(43985)*XX(5250)-JVS(46962)& - &*XX(5252)-JVS(49222)*XX(5253)-JVS(52163)*XX(5255)-JVS(53782)*XX(5256) - XX(4164) = XX(4164)-JVS(22185)*XX(4238)-JVS(23339)*XX(4355)-JVS(27128)*XX(4709)-JVS(28778)*XX(4850)-JVS(34531)& - &*XX(5161)-JVS(35248)*XX(5183)-JVS(43984)*XX(5250)-JVS(52162)*XX(5255) - XX(4163) = XX(4163)-JVS(22478)*XX(4267)-JVS(25955)*XX(4602)-JVS(43983)*XX(5250)-JVS(45809)*XX(5251)-JVS(46961)& - &*XX(5252)-JVS(49221)*XX(5253)-JVS(52161)*XX(5255)-JVS(53781)*XX(5256) - XX(4162) = XX(4162)-JVS(33399)*XX(5130)-JVS(35091)*XX(5182)-JVS(37145)*XX(5214)-JVS(43982)*XX(5250)-JVS(46960)& - &*XX(5252)-JVS(49220)*XX(5253)-JVS(52160)*XX(5255)-JVS(53780)*XX(5256) - XX(4161) = XX(4161)-JVS(28205)*XX(4801)-JVS(38452)*XX(5231)-JVS(43981)*XX(5250)-JVS(45808)*XX(5251)-JVS(46959)& - &*XX(5252)-JVS(49219)*XX(5253)-JVS(52159)*XX(5255)-JVS(53779)*XX(5256) - XX(4160) = XX(4160)-JVS(24155)*XX(4433)-JVS(36446)*XX(5201)-JVS(36826)*XX(5203)-JVS(43980)*XX(5250)-JVS(45807)& - &*XX(5251)-JVS(49218)*XX(5253)-JVS(52158)*XX(5255)-JVS(53778)*XX(5256) - XX(4159) = XX(4159)-JVS(28797)*XX(4851)-JVS(39072)*XX(5233)-JVS(39254)*XX(5234)-JVS(43979)*XX(5250)-JVS(46958)& - &*XX(5252)-JVS(49217)*XX(5253)-JVS(52157)*XX(5255)-JVS(53777)*XX(5256) - XX(4158) = XX(4158)-JVS(30863)*XX(4995)-JVS(30889)*XX(4996)-JVS(37144)*XX(5214)-JVS(43978)*XX(5250)-JVS(46957)& - &*XX(5252)-JVS(49216)*XX(5253)-JVS(52156)*XX(5255)-JVS(53776)*XX(5256) - XX(4157) = XX(4157)-JVS(34406)*XX(5160)-JVS(37143)*XX(5214)-JVS(38451)*XX(5231)-JVS(43977)*XX(5250)-JVS(46956)& - &*XX(5252)-JVS(49215)*XX(5253)-JVS(52155)*XX(5255)-JVS(53775)*XX(5256) - XX(4156) = XX(4156)-JVS(29727)*XX(4923)-JVS(36445)*XX(5201)-JVS(37509)*XX(5222)-JVS(39071)*XX(5233)-JVS(40112)& - &*XX(5244)-JVS(43976)*XX(5250)-JVS(45806)*XX(5251)-JVS(49214)*XX(5253)-JVS(52154)*XX(5255)-JVS(53774)& - &*XX(5256) - XX(4155) = XX(4155)-JVS(24091)*XX(4427)-JVS(34636)*XX(5165)-JVS(36444)*XX(5201)-JVS(43975)*XX(5250)-JVS(45805)& - &*XX(5251)-JVS(49213)*XX(5253)-JVS(52153)*XX(5255)-JVS(53773)*XX(5256) - XX(4154) = XX(4154)-JVS(21783)*XX(4199)-JVS(35868)*XX(5193)-JVS(40111)*XX(5244)-JVS(43974)*XX(5250)-JVS(46955)& - &*XX(5252)-JVS(49212)*XX(5253)-JVS(52152)*XX(5255)-JVS(53772)*XX(5256) - XX(4153) = XX(4153)-JVS(21539)*XX(4175)-JVS(27368)*XX(4731)-JVS(40110)*XX(5244)-JVS(43973)*XX(5250)-JVS(45804)& - &*XX(5251)-JVS(46954)*XX(5252)-JVS(49211)*XX(5253)-JVS(52151)*XX(5255)-JVS(53771)*XX(5256) - XX(4152) = XX(4152)-JVS(21350)*XX(4153)-JVS(21362)*XX(4154)-JVS(26103)*XX(4618)-JVS(39070)*XX(5233)-JVS(43972)& - &*XX(5250)-JVS(45803)*XX(5251)-JVS(46953)*XX(5252)-JVS(49210)*XX(5253)-JVS(52150)*XX(5255)-JVS(53770)& - &*XX(5256) - XX(4151) = XX(4151)-JVS(22467)*XX(4266)-JVS(36443)*XX(5201)-JVS(37212)*XX(5215)-JVS(43971)*XX(5250)-JVS(45802)& - &*XX(5251)-JVS(49209)*XX(5253)-JVS(52149)*XX(5255)-JVS(53769)*XX(5256) - XX(4150) = XX(4150)-JVS(26394)*XX(4644)-JVS(32434)*XX(5085)-JVS(40109)*XX(5244)-JVS(43970)*XX(5250)-JVS(46952)& - &*XX(5252)-JVS(49208)*XX(5253)-JVS(52148)*XX(5255)-JVS(53768)*XX(5256) - XX(4149) = XX(4149)-JVS(38450)*XX(5231)-JVS(40108)*XX(5244)-JVS(43969)*XX(5250)-JVS(45801)*XX(5251)-JVS(46951)& - &*XX(5252)-JVS(49207)*XX(5253)-JVS(52147)*XX(5255)-JVS(53767)*XX(5256) - XX(4148) = XX(4148)-JVS(28856)*XX(4855)-JVS(32395)*XX(5083)-JVS(40107)*XX(5244)-JVS(43968)*XX(5250)-JVS(46950)& - &*XX(5252)-JVS(49206)*XX(5253)-JVS(52146)*XX(5255)-JVS(53766)*XX(5256) - XX(4147) = XX(4147)-JVS(26708)*XX(4673)-JVS(38449)*XX(5231)-JVS(43967)*XX(5250)-JVS(45800)*XX(5251)-JVS(46949)& - &*XX(5252)-JVS(49205)*XX(5253)-JVS(52145)*XX(5255)-JVS(53765)*XX(5256) - XX(4146) = XX(4146)-JVS(21656)*XX(4186)-JVS(37211)*XX(5215)-JVS(38448)*XX(5231)-JVS(43966)*XX(5250)-JVS(46948)& - &*XX(5252)-JVS(49204)*XX(5253)-JVS(52144)*XX(5255)-JVS(53764)*XX(5256) - XX(4145) = XX(4145)-JVS(28665)*XX(4842)-JVS(31263)*XX(5017)-JVS(40106)*XX(5244)-JVS(43965)*XX(5250)-JVS(46947)& - &*XX(5252)-JVS(49203)*XX(5253)-JVS(52143)*XX(5255)-JVS(53763)*XX(5256) - XX(4144) = XX(4144)-JVS(30247)*XX(4953)-JVS(38447)*XX(5231)-JVS(43964)*XX(5250)-JVS(45799)*XX(5251)-JVS(46946)& - &*XX(5252)-JVS(49202)*XX(5253)-JVS(52142)*XX(5255)-JVS(53762)*XX(5256) - XX(4143) = XX(4143)-JVS(31196)*XX(5012)-JVS(34936)*XX(5178)-JVS(38446)*XX(5231)-JVS(43963)*XX(5250)-JVS(46945)& - &*XX(5252)-JVS(49201)*XX(5253)-JVS(52141)*XX(5255)-JVS(53761)*XX(5256) - XX(4142) = XX(4142)-JVS(39069)*XX(5233)-JVS(39447)*XX(5237)-JVS(43962)*XX(5250)-JVS(45798)*XX(5251)-JVS(46944)& - &*XX(5252)-JVS(49200)*XX(5253)-JVS(52140)*XX(5255)-JVS(53760)*XX(5256) - XX(4141) = XX(4141)-JVS(28358)*XX(4815)-JVS(29843)*XX(4931)-JVS(39068)*XX(5233)-JVS(43961)*XX(5250)-JVS(46943)& - &*XX(5252)-JVS(49199)*XX(5253)-JVS(52139)*XX(5255)-JVS(53759)*XX(5256) - XX(4140) = XX(4140)-JVS(34405)*XX(5160)-JVS(35867)*XX(5193)-JVS(40105)*XX(5244)-JVS(43960)*XX(5250)-JVS(46942)& - &*XX(5252)-JVS(49198)*XX(5253)-JVS(52138)*XX(5255)-JVS(53758)*XX(5256) - XX(4139) = XX(4139)-JVS(27301)*XX(4726)-JVS(43959)*XX(5250)-JVS(45797)*XX(5251)-JVS(46941)*XX(5252)-JVS(49197)& - &*XX(5253)-JVS(52137)*XX(5255)-JVS(53757)*XX(5256)-JVS(54879)*XX(5258) - XX(4138) = XX(4138)-JVS(34214)*XX(5158)-JVS(35866)*XX(5193)-JVS(43958)*XX(5250)-JVS(45796)*XX(5251)-JVS(46940)& - &*XX(5252)-JVS(49196)*XX(5253)-JVS(52136)*XX(5255)-JVS(53756)*XX(5256) - XX(4137) = XX(4137)-JVS(22582)*XX(4278)-JVS(25033)*XX(4510)-JVS(34404)*XX(5160)-JVS(43957)*XX(5250)-JVS(46939)& - &*XX(5252)-JVS(49195)*XX(5253)-JVS(52135)*XX(5255)-JVS(53755)*XX(5256) - XX(4136) = XX(4136)-JVS(38833)*XX(5232)-JVS(39446)*XX(5237)-JVS(43956)*XX(5250)-JVS(45795)*XX(5251)-JVS(46938)& - &*XX(5252)-JVS(49194)*XX(5253)-JVS(52134)*XX(5255)-JVS(53754)*XX(5256) - XX(4135) = XX(4135)-JVS(31703)*XX(5044)-JVS(38445)*XX(5231)-JVS(43955)*XX(5250)-JVS(45794)*XX(5251)-JVS(46937)& - &*XX(5252)-JVS(49193)*XX(5253)-JVS(52133)*XX(5255)-JVS(53753)*XX(5256) - XX(4134) = XX(4134)-JVS(35865)*XX(5193)-JVS(40104)*XX(5244)-JVS(43954)*XX(5250)-JVS(45793)*XX(5251)-JVS(46936)& - &*XX(5252)-JVS(49192)*XX(5253)-JVS(52132)*XX(5255)-JVS(53752)*XX(5256) - XX(4133) = XX(4133)-JVS(27857)*XX(4773)-JVS(30746)*XX(4986)-JVS(31463)*XX(5030)-JVS(37508)*XX(5222)-JVS(37887)& - &*XX(5228)-JVS(43953)*XX(5250)-JVS(46935)*XX(5252)-JVS(49191)*XX(5253)-JVS(52131)*XX(5255)-JVS(53751)& - &*XX(5256) - XX(4132) = XX(4132)-JVS(29337)*XX(4897)-JVS(33312)*XX(5126)-JVS(35864)*XX(5193)-JVS(43952)*XX(5250)-JVS(49190)& - &*XX(5253)-JVS(52130)*XX(5255)-JVS(53750)*XX(5256)-JVS(54878)*XX(5258) - XX(4131) = XX(4131)-JVS(28843)*XX(4854)-JVS(38444)*XX(5231)-JVS(43951)*XX(5250)-JVS(45792)*XX(5251)-JVS(46934)& - &*XX(5252)-JVS(49189)*XX(5253)-JVS(52129)*XX(5255)-JVS(53749)*XX(5256) - XX(4130) = XX(4130)-JVS(28326)*XX(4812)-JVS(38443)*XX(5231)-JVS(43950)*XX(5250)-JVS(45791)*XX(5251)-JVS(46933)& - &*XX(5252)-JVS(49188)*XX(5253)-JVS(52128)*XX(5255)-JVS(53748)*XX(5256) - XX(4129) = XX(4129)-JVS(28530)*XX(4831)-JVS(38442)*XX(5231)-JVS(43949)*XX(5250)-JVS(45790)*XX(5251)-JVS(46932)& - &*XX(5252)-JVS(49187)*XX(5253)-JVS(52127)*XX(5255)-JVS(53747)*XX(5256) - XX(4128) = XX(4128)-JVS(22595)*XX(4279)-JVS(34403)*XX(5160)-JVS(35090)*XX(5182)-JVS(43948)*XX(5250)-JVS(46931)& - &*XX(5252)-JVS(49186)*XX(5253)-JVS(52126)*XX(5255)-JVS(53746)*XX(5256) - XX(4127) = XX(4127)-JVS(29801)*XX(4929)-JVS(35863)*XX(5193)-JVS(37886)*XX(5228)-JVS(43947)*XX(5250)-JVS(46930)& - &*XX(5252)-JVS(49185)*XX(5253)-JVS(52125)*XX(5255)-JVS(53745)*XX(5256) - XX(4126) = XX(4126)-JVS(30193)*XX(4949)-JVS(38441)*XX(5231)-JVS(43946)*XX(5250)-JVS(45789)*XX(5251)-JVS(46929)& - &*XX(5252)-JVS(49184)*XX(5253)-JVS(52124)*XX(5255)-JVS(53744)*XX(5256) - XX(4125) = XX(4125)-JVS(30989)*XX(5001)-JVS(37507)*XX(5222)-JVS(43945)*XX(5250)-JVS(45788)*XX(5251)-JVS(52123)& - &*XX(5255) - XX(4124) = XX(4124)-JVS(21686)*XX(4189)-JVS(24792)*XX(4493)-JVS(34402)*XX(5160)-JVS(43944)*XX(5250)-JVS(46928)& - &*XX(5252)-JVS(49183)*XX(5253)-JVS(52122)*XX(5255)-JVS(53743)*XX(5256) - XX(4123) = XX(4123)-JVS(23442)*XX(4366)-JVS(39067)*XX(5233)-JVS(43943)*XX(5250)-JVS(45787)*XX(5251)-JVS(46927)& - &*XX(5252)-JVS(49182)*XX(5253)-JVS(52121)*XX(5255)-JVS(53742)*XX(5256) - XX(4122) = XX(4122)-JVS(22507)*XX(4270)-JVS(23651)*XX(4389)-JVS(27160)*XX(4712)-JVS(30117)*XX(4944)-JVS(34530)& - &*XX(5161)-JVS(35247)*XX(5183)-JVS(43942)*XX(5250)-JVS(52120)*XX(5255) - XX(4121) = XX(4121)-JVS(33784)*XX(5142)-JVS(34935)*XX(5178)-JVS(35862)*XX(5193)-JVS(43941)*XX(5250)-JVS(46926)& - &*XX(5252)-JVS(49181)*XX(5253)-JVS(52119)*XX(5255)-JVS(53741)*XX(5256) - XX(4120) = XX(4120)-JVS(31906)*XX(5054)-JVS(36442)*XX(5201)-JVS(43940)*XX(5250)-JVS(45786)*XX(5251)-JVS(46925)& - &*XX(5252)-JVS(49180)*XX(5253)-JVS(52118)*XX(5255)-JVS(53740)*XX(5256) - XX(4119) = XX(4119)-JVS(23903)*XX(4410)-JVS(34401)*XX(5160)-JVS(35089)*XX(5182)-JVS(43939)*XX(5250)-JVS(46924)& - &*XX(5252)-JVS(49179)*XX(5253)-JVS(52117)*XX(5255)-JVS(53739)*XX(5256) - XX(4118) = XX(4118)-JVS(35246)*XX(5183)-JVS(35861)*XX(5193)-JVS(43938)*XX(5250)-JVS(45785)*XX(5251)-JVS(46923)& - &*XX(5252)-JVS(49178)*XX(5253)-JVS(52116)*XX(5255)-JVS(53738)*XX(5256) - XX(4117) = XX(4117)-JVS(31905)*XX(5054)-JVS(36441)*XX(5201)-JVS(38440)*XX(5231)-JVS(43937)*XX(5250)-JVS(46922)& - &*XX(5252)-JVS(49177)*XX(5253)-JVS(52115)*XX(5255)-JVS(53737)*XX(5256) - XX(4116) = XX(4116)-JVS(23690)*XX(4392)-JVS(35382)*XX(5184)-JVS(40103)*XX(5244)-JVS(43936)*XX(5250)-JVS(46921)& - &*XX(5252)-JVS(49176)*XX(5253)-JVS(52114)*XX(5255)-JVS(53736)*XX(5256) - XX(4115) = XX(4115)-JVS(28619)*XX(4839)-JVS(39253)*XX(5234)-JVS(43935)*XX(5250)-JVS(45784)*XX(5251)-JVS(46920)& - &*XX(5252)-JVS(49175)*XX(5253)-JVS(52113)*XX(5255)-JVS(53735)*XX(5256) - XX(4114) = XX(4114)-JVS(25148)*XX(4522)-JVS(34934)*XX(5178)-JVS(36440)*XX(5201)-JVS(43934)*XX(5250)-JVS(45783)& - &*XX(5251)-JVS(49174)*XX(5253)-JVS(52112)*XX(5255)-JVS(53734)*XX(5256) - XX(4113) = XX(4113)-JVS(25337)*XX(4539)-JVS(29905)*XX(4936)-JVS(33101)*XX(5118)-JVS(33466)*XX(5134)-JVS(36439)& - &*XX(5201)-JVS(37318)*XX(5220)-JVS(43933)*XX(5250)-JVS(45782)*XX(5251)-JVS(52111)*XX(5255)-JVS(53733)& - &*XX(5256) - XX(4112) = XX(4112)-JVS(30950)*XX(5000)-JVS(34400)*XX(5160)-JVS(38439)*XX(5231)-JVS(43932)*XX(5250)-JVS(46919)& - &*XX(5252)-JVS(49173)*XX(5253)-JVS(52110)*XX(5255)-JVS(53732)*XX(5256) - XX(4111) = XX(4111)-JVS(32584)*XX(5093)-JVS(36024)*XX(5194)-JVS(38438)*XX(5231)-JVS(43931)*XX(5250)-JVS(46918)& - &*XX(5252)-JVS(49172)*XX(5253)-JVS(52109)*XX(5255)-JVS(53731)*XX(5256) - XX(4110) = XX(4110)-JVS(21153)*XX(4128)-JVS(26241)*XX(4629)-JVS(33990)*XX(5148)-JVS(36438)*XX(5201)-JVS(43930)& - &*XX(5250)-JVS(45781)*XX(5251)-JVS(52108)*XX(5255)-JVS(53730)*XX(5256) - XX(4109) = XX(4109)-JVS(30017)*XX(4939)-JVS(38832)*XX(5232)-JVS(39610)*XX(5241)-JVS(43929)*XX(5250)-JVS(52107)& - &*XX(5255) - XX(4108) = XX(4108)-JVS(24357)*XX(4452)-JVS(34399)*XX(5160)-JVS(36437)*XX(5201)-JVS(43928)*XX(5250)-JVS(45780)& - &*XX(5251)-JVS(49171)*XX(5253)-JVS(52106)*XX(5255)-JVS(53729)*XX(5256) - XX(4107) = XX(4107)-JVS(25447)*XX(4548)-JVS(31246)*XX(5016)-JVS(32562)*XX(5091)-JVS(36436)*XX(5201)-JVS(36866)& - &*XX(5205)-JVS(37293)*XX(5218)-JVS(43927)*XX(5250)-JVS(45779)*XX(5251)-JVS(52105)*XX(5255)-JVS(53728)& - &*XX(5256) - XX(4106) = XX(4106)-JVS(37506)*XX(5222)-JVS(40102)*XX(5244)-JVS(43926)*XX(5250)-JVS(45778)*XX(5251)-JVS(46917)& - &*XX(5252)-JVS(49170)*XX(5253)-JVS(52104)*XX(5255)-JVS(53727)*XX(5256) - XX(4105) = XX(4105)-JVS(32317)*XX(5079)-JVS(38437)*XX(5231)-JVS(43925)*XX(5250)-JVS(45777)*XX(5251)-JVS(46916)& - &*XX(5252)-JVS(49169)*XX(5253)-JVS(52103)*XX(5255)-JVS(53726)*XX(5256) - XX(4104) = XX(4104)-JVS(29395)*XX(4902)-JVS(36132)*XX(5197)-JVS(38831)*XX(5232)-JVS(43924)*XX(5250)-JVS(52102)& - &*XX(5255) - XX(4103) = XX(4103)-JVS(23287)*XX(4349)-JVS(27167)*XX(4713)-JVS(33257)*XX(5125)-JVS(33483)*XX(5135)-JVS(34529)& - &*XX(5161)-JVS(35245)*XX(5183)-JVS(43923)*XX(5250)-JVS(52101)*XX(5255) - XX(4102) = XX(4102)-JVS(25954)*XX(4602)-JVS(35244)*XX(5183)-JVS(35643)*XX(5191)-JVS(43922)*XX(5250)-JVS(46915)& - &*XX(5252)-JVS(49168)*XX(5253)-JVS(52100)*XX(5255)-JVS(53725)*XX(5256) - XX(4101) = XX(4101)-JVS(36986)*XX(5210)-JVS(43921)*XX(5250)-JVS(45776)*XX(5251)-JVS(46914)*XX(5252)-JVS(49167)& - &*XX(5253)-JVS(52099)*XX(5255)-JVS(53724)*XX(5256) - XX(4100) = XX(4100)-JVS(20913)*XX(4101)-JVS(43920)*XX(5250)-JVS(45775)*XX(5251)-JVS(46913)*XX(5252)-JVS(49166)& - &*XX(5253)-JVS(52098)*XX(5255)-JVS(53723)*XX(5256)-JVS(54877)*XX(5258) - XX(4099) = XX(4099)-JVS(25720)*XX(4577)-JVS(34398)*XX(5160)-JVS(38049)*XX(5230)-JVS(43919)*XX(5250)-JVS(46912)& - &*XX(5252)-JVS(49165)*XX(5253)-JVS(52097)*XX(5255)-JVS(53722)*XX(5256) - XX(4098) = XX(4098)-JVS(31421)*XX(5027)-JVS(35447)*XX(5187)-JVS(43918)*XX(5250)-JVS(45774)*XX(5251)-JVS(46911)& - &*XX(5252)-JVS(49164)*XX(5253)-JVS(52096)*XX(5255)-JVS(53721)*XX(5256) - XX(4097) = XX(4097)-JVS(21655)*XX(4186)-JVS(37210)*XX(5215)-JVS(38436)*XX(5231)-JVS(43917)*XX(5250)-JVS(46910)& - &*XX(5252)-JVS(49163)*XX(5253)-JVS(52095)*XX(5255)-JVS(53720)*XX(5256) - XX(4096) = XX(4096)-JVS(23314)*XX(4352)-JVS(25523)*XX(4556)-JVS(30315)*XX(4958)-JVS(34822)*XX(5173)-JVS(37677)& - &*XX(5223)-JVS(38435)*XX(5231)-JVS(43916)*XX(5250)-JVS(45773)*XX(5251)-JVS(52094)*XX(5255)-JVS(54876)& - &*XX(5258) - XX(4095) = XX(4095)-JVS(32960)*XX(5110)-JVS(34213)*XX(5158)-JVS(35860)*XX(5193)-JVS(43915)*XX(5250)-JVS(46909)& - &*XX(5252)-JVS(49162)*XX(5253)-JVS(52093)*XX(5255)-JVS(53719)*XX(5256) - XX(4094) = XX(4094)-JVS(23538)*XX(4377)-JVS(26805)*XX(4683)-JVS(27246)*XX(4721)-JVS(28504)*XX(4829)-JVS(30903)& - &*XX(4997)-JVS(33256)*XX(5125)-JVS(36435)*XX(5201)-JVS(38048)*XX(5230)-JVS(43914)*XX(5250)-JVS(45772)& - &*XX(5251)-JVS(52092)*XX(5255)-JVS(53718)*XX(5256)-JVS(54875)*XX(5258) - XX(4093) = XX(4093)-JVS(26304)*XX(4635)-JVS(26727)*XX(4675)-JVS(27245)*XX(4721)-JVS(29787)*XX(4928)-JVS(30914)& - &*XX(4998)-JVS(32896)*XX(5106)-JVS(36434)*XX(5201)-JVS(36825)*XX(5203)-JVS(43913)*XX(5250)-JVS(45771)& - &*XX(5251)-JVS(52091)*XX(5255)-JVS(53717)*XX(5256)-JVS(54874)*XX(5258) - XX(4092) = XX(4092)-JVS(34255)*XX(5159)-JVS(43912)*XX(5250)-JVS(46908)*XX(5252)-JVS(49161)*XX(5253)-JVS(52090)& - &*XX(5255)-JVS(53716)*XX(5256) - XX(4091) = XX(4091)-JVS(20845)*XX(4092)-JVS(34397)*XX(5160)-JVS(43911)*XX(5250)-JVS(46907)*XX(5252)-JVS(49160)& - &*XX(5253)-JVS(52089)*XX(5255)-JVS(53715)*XX(5256) - XX(4090) = XX(4090)-JVS(20844)*XX(4092)-JVS(34396)*XX(5160)-JVS(43910)*XX(5250)-JVS(46906)*XX(5252)-JVS(49159)& - &*XX(5253)-JVS(52088)*XX(5255)-JVS(53714)*XX(5256) - XX(4089) = XX(4089)-JVS(20843)*XX(4092)-JVS(43909)*XX(5250)-JVS(46905)*XX(5252)-JVS(49158)*XX(5253)-JVS(52087)& - &*XX(5255)-JVS(53713)*XX(5256) - XX(4088) = XX(4088)-JVS(27749)*XX(4764)-JVS(43908)*XX(5250)-JVS(46904)*XX(5252)-JVS(49157)*XX(5253)-JVS(52086)& - &*XX(5255)-JVS(53712)*XX(5256) - XX(4087) = XX(4087)-JVS(37797)*XX(5226)-JVS(43907)*XX(5250)-JVS(46903)*XX(5252)-JVS(49156)*XX(5253)-JVS(52085)& - &*XX(5255)-JVS(53711)*XX(5256) - XX(4086) = XX(4086)-JVS(29842)*XX(4931)-JVS(32003)*XX(5059)-JVS(33922)*XX(5145)-JVS(43906)*XX(5250)-JVS(45770)& - &*XX(5251)-JVS(52084)*XX(5255) - XX(4085) = XX(4085)-JVS(24914)*XX(4504)-JVS(43905)*XX(5250)-JVS(46902)*XX(5252)-JVS(49155)*XX(5253)-JVS(52083)& - &*XX(5255)-JVS(53710)*XX(5256) - XX(4084) = XX(4084)-JVS(32802)*XX(5102)-JVS(35859)*XX(5193)-JVS(40101)*XX(5244)-JVS(43904)*XX(5250)-JVS(45769)& - &*XX(5251)-JVS(52082)*XX(5255) - XX(4083) = XX(4083)-JVS(20772)*XX(4084)-JVS(26899)*XX(4692)-JVS(27043)*XX(4699)-JVS(27346)*XX(4729)-JVS(29294)& - &*XX(4893)-JVS(36433)*XX(5201)-JVS(40100)*XX(5244)-JVS(43903)*XX(5250)-JVS(45768)*XX(5251)-JVS(52081)& - &*XX(5255)-JVS(53709)*XX(5256)-JVS(54873)*XX(5258) - XX(4082) = XX(4082)-JVS(24204)*XX(4438)-JVS(43902)*XX(5250)-JVS(46901)*XX(5252)-JVS(49154)*XX(5253)-JVS(52080)& - &*XX(5255)-JVS(53708)*XX(5256) - XX(4081) = XX(4081)-JVS(32184)*XX(5070)-JVS(35243)*XX(5183)-JVS(35642)*XX(5191)-JVS(43901)*XX(5250)-JVS(45767)& - &*XX(5251)-JVS(52079)*XX(5255) - XX(4080) = XX(4080)-JVS(20747)*XX(4081)-JVS(21186)*XX(4132)-JVS(27289)*XX(4725)-JVS(27345)*XX(4729)-JVS(29336)& - &*XX(4897)-JVS(35242)*XX(5183)-JVS(36432)*XX(5201)-JVS(43900)*XX(5250)-JVS(45766)*XX(5251)-JVS(52078)& - &*XX(5255)-JVS(53707)*XX(5256)-JVS(54872)*XX(5258) - XX(4079) = XX(4079)-JVS(25242)*XX(4531)-JVS(43899)*XX(5250)-JVS(46900)*XX(5252)-JVS(49153)*XX(5253)-JVS(52077)& - &*XX(5255)-JVS(53706)*XX(5256) - XX(4078) = XX(4078)-JVS(25410)*XX(4545)-JVS(43898)*XX(5250)-JVS(46899)*XX(5252)-JVS(49152)*XX(5253)-JVS(52076)& - &*XX(5255)-JVS(53705)*XX(5256) - XX(4077) = XX(4077)-JVS(24688)*XX(4485)-JVS(43897)*XX(5250)-JVS(46898)*XX(5252)-JVS(49151)*XX(5253)-JVS(52075)& - &*XX(5255)-JVS(53704)*XX(5256) - XX(4076) = XX(4076)-JVS(20923)*XX(4102)-JVS(25953)*XX(4602)-JVS(35241)*XX(5183)-JVS(43896)*XX(5250)-JVS(45765)& - &*XX(5251)-JVS(46897)*XX(5252)-JVS(49150)*XX(5253)-JVS(52074)*XX(5255)-JVS(53703)*XX(5256) - XX(4075) = XX(4075)-JVS(23883)*XX(4408)-JVS(43895)*XX(5250)-JVS(46896)*XX(5252)-JVS(49149)*XX(5253)-JVS(52073)& - &*XX(5255)-JVS(53702)*XX(5256) - XX(4074) = XX(4074)-JVS(21559)*XX(4177)-JVS(29617)*XX(4916)-JVS(33783)*XX(5142)-JVS(37505)*XX(5222)-JVS(43894)& - &*XX(5250)-JVS(46895)*XX(5252)-JVS(49148)*XX(5253)-JVS(52072)*XX(5255)-JVS(53701)*XX(5256) - XX(4073) = XX(4073)-JVS(24711)*XX(4487)-JVS(43893)*XX(5250)-JVS(46894)*XX(5252)-JVS(49147)*XX(5253)-JVS(52071)& - &*XX(5255)-JVS(53700)*XX(5256) - XX(4072) = XX(4072)-JVS(26585)*XX(4663)-JVS(43892)*XX(5250)-JVS(46893)*XX(5252)-JVS(49146)*XX(5253)-JVS(52070)& - &*XX(5255)-JVS(53699)*XX(5256) - XX(4071) = XX(4071)-JVS(32002)*XX(5059)-JVS(37504)*XX(5222)-JVS(37885)*XX(5228)-JVS(43891)*XX(5250)-JVS(45764)& - &*XX(5251)-JVS(52069)*XX(5255) - XX(4070) = XX(4070)-JVS(21603)*XX(4181)-JVS(25844)*XX(4591)-JVS(38434)*XX(5231)-JVS(43890)*XX(5250)-JVS(45763)& - &*XX(5251)-JVS(46892)*XX(5252)-JVS(49145)*XX(5253)-JVS(52068)*XX(5255)-JVS(53698)*XX(5256) - XX(4069) = XX(4069)-JVS(26170)*XX(4622)-JVS(36431)*XX(5201)-JVS(38433)*XX(5231)-JVS(43889)*XX(5250)-JVS(45762)& - &*XX(5251)-JVS(46891)*XX(5252)-JVS(49144)*XX(5253)-JVS(52067)*XX(5255)-JVS(53697)*XX(5256) - XX(4068) = XX(4068)-JVS(20654)*XX(4069)-JVS(26169)*XX(4622)-JVS(37884)*XX(5228)-JVS(38432)*XX(5231)-JVS(43888)& - &*XX(5250)-JVS(46890)*XX(5252)-JVS(49143)*XX(5253)-JVS(52066)*XX(5255)-JVS(53696)*XX(5256) - XX(4067) = XX(4067)-JVS(28902)*XX(4859)-JVS(43887)*XX(5250)-JVS(46889)*XX(5252)-JVS(49142)*XX(5253)-JVS(52065)& - &*XX(5255)-JVS(53695)*XX(5256) - XX(4066) = XX(4066)-JVS(27443)*XX(4739)-JVS(27620)*XX(4753)-JVS(35497)*XX(5188)-JVS(37758)*XX(5225)-JVS(39066)& - &*XX(5233)-JVS(43886)*XX(5250)-JVS(45761)*XX(5251)-JVS(49141)*XX(5253)-JVS(52064)*XX(5255) - XX(4065) = XX(4065)-JVS(24493)*XX(4466)-JVS(43885)*XX(5250)-JVS(46888)*XX(5252)-JVS(49140)*XX(5253)-JVS(52063)& - &*XX(5255)-JVS(53694)*XX(5256) - XX(4064) = XX(4064)-JVS(24861)*XX(4499)-JVS(43884)*XX(5250)-JVS(46887)*XX(5252)-JVS(49139)*XX(5253)-JVS(52062)& - &*XX(5255)-JVS(53693)*XX(5256) - XX(4063) = XX(4063)-JVS(24406)*XX(4457)-JVS(43883)*XX(5250)-JVS(46886)*XX(5252)-JVS(49138)*XX(5253)-JVS(52061)& - &*XX(5255)-JVS(53692)*XX(5256) - XX(4062) = XX(4062)-JVS(32001)*XX(5059)-JVS(33645)*XX(5139)-JVS(33782)*XX(5142)-JVS(43882)*XX(5250)-JVS(45760)& - &*XX(5251)-JVS(52060)*XX(5255) - XX(4061) = XX(4061)-JVS(26274)*XX(4632)-JVS(43881)*XX(5250)-JVS(46885)*XX(5252)-JVS(49137)*XX(5253)-JVS(52059)& - &*XX(5255)-JVS(53691)*XX(5256) - XX(4060) = XX(4060)-JVS(43880)*XX(5250)-JVS(45759)*XX(5251)-JVS(46884)*XX(5252)-JVS(49136)*XX(5253)-JVS(52058)& - &*XX(5255)-JVS(53690)*XX(5256) - XX(4059) = XX(4059)-JVS(35574)*XX(5189)-JVS(43879)*XX(5250)-JVS(46883)*XX(5252)-JVS(49135)*XX(5253)-JVS(52057)& - &*XX(5255)-JVS(53689)*XX(5256) - XX(4058) = XX(4058)-JVS(24883)*XX(4501)-JVS(43878)*XX(5250)-JVS(46882)*XX(5252)-JVS(49134)*XX(5253)-JVS(52056)& - &*XX(5255)-JVS(53688)*XX(5256) - XX(4057) = XX(4057)-JVS(24377)*XX(4454)-JVS(43877)*XX(5250)-JVS(46881)*XX(5252)-JVS(49133)*XX(5253)-JVS(52055)& - &*XX(5255)-JVS(53687)*XX(5256) - XX(4056) = XX(4056)-JVS(20771)*XX(4084)-JVS(24664)*XX(4483)-JVS(27207)*XX(4718)-JVS(27344)*XX(4729)-JVS(29283)& - &*XX(4892)-JVS(36430)*XX(5201)-JVS(40099)*XX(5244)-JVS(43876)*XX(5250)-JVS(45758)*XX(5251)-JVS(52054)& - &*XX(5255)-JVS(53686)*XX(5256)-JVS(54871)*XX(5258) - XX(4055) = XX(4055)-JVS(29314)*XX(4895)-JVS(30722)*XX(4985)-JVS(32538)*XX(5089)-JVS(37503)*XX(5222)-JVS(43875)& - &*XX(5250)-JVS(46880)*XX(5252)-JVS(49132)*XX(5253)-JVS(52053)*XX(5255)-JVS(53685)*XX(5256) - XX(4054) = XX(4054)-JVS(23935)*XX(4413)-JVS(43874)*XX(5250)-JVS(46879)*XX(5252)-JVS(49131)*XX(5253)-JVS(52052)& - &*XX(5255)-JVS(53684)*XX(5256) - XX(4053) = XX(4053)-JVS(31885)*XX(5053)-JVS(33502)*XX(5136)-JVS(33541)*XX(5137)-JVS(43873)*XX(5250)-JVS(45757)& - &*XX(5251)-JVS(52051)*XX(5255) - XX(4052) = XX(4052)-JVS(21638)*XX(4184)-JVS(43872)*XX(5250)-JVS(46878)*XX(5252)-JVS(49130)*XX(5253)-JVS(52050)& - &*XX(5255)-JVS(53683)*XX(5256) - XX(4051) = XX(4051)-JVS(20513)*XX(4052)-JVS(43871)*XX(5250)-JVS(45756)*XX(5251)-JVS(46877)*XX(5252)-JVS(49129)& - &*XX(5253)-JVS(52049)*XX(5255)-JVS(53682)*XX(5256) - XX(4050) = XX(4050)-JVS(20512)*XX(4052)-JVS(43870)*XX(5250)-JVS(46876)*XX(5252)-JVS(49128)*XX(5253)-JVS(52048)& - &*XX(5255)-JVS(53681)*XX(5256) - XX(4049) = XX(4049)-JVS(25066)*XX(4514)-JVS(43869)*XX(5250)-JVS(46875)*XX(5252)-JVS(49127)*XX(5253)-JVS(52047)& - &*XX(5255)-JVS(53680)*XX(5256) - XX(4048) = XX(4048)-JVS(28163)*XX(4798)-JVS(36429)*XX(5201)-JVS(43868)*XX(5250)-JVS(53679)*XX(5256) - XX(4047) = XX(4047)-JVS(20599)*XX(4062)-JVS(28098)*XX(4796)-JVS(35240)*XX(5183)-JVS(43867)*XX(5250)-JVS(45755)& - &*XX(5251)-JVS(52046)*XX(5255) - XX(4046) = XX(4046)-JVS(21782)*XX(4199)-JVS(43866)*XX(5250)-JVS(45754)*XX(5251)-JVS(46874)*XX(5252)-JVS(49126)& - &*XX(5253)-JVS(52045)*XX(5255)-JVS(53678)*XX(5256) - XX(4045) = XX(4045)-JVS(20443)*XX(4046)-JVS(20454)*XX(4047)-JVS(20708)*XX(4076)-JVS(39065)*XX(5233)-JVS(43865)& - &*XX(5250)-JVS(46873)*XX(5252)-JVS(49125)*XX(5253)-JVS(52044)*XX(5255)-JVS(53677)*XX(5256) - XX(4044) = XX(4044)-JVS(27986)*XX(4788)-JVS(43864)*XX(5250)-JVS(46872)*XX(5252)-JVS(49124)*XX(5253)-JVS(52043)& - &*XX(5255)-JVS(53676)*XX(5256) - XX(4043) = XX(4043)-JVS(27557)*XX(4748)-JVS(43863)*XX(5250)-JVS(46871)*XX(5252)-JVS(49123)*XX(5253)-JVS(52042)& - &*XX(5255)-JVS(53675)*XX(5256) - XX(4042) = XX(4042)-JVS(25032)*XX(4510)-JVS(43862)*XX(5250)-JVS(46870)*XX(5252)-JVS(49122)*XX(5253)-JVS(52041)& - &*XX(5255)-JVS(53674)*XX(5256) - XX(4041) = XX(4041)-JVS(21613)*XX(4182)-JVS(43861)*XX(5250)-JVS(46869)*XX(5252)-JVS(49121)*XX(5253)-JVS(52040)& - &*XX(5255)-JVS(53673)*XX(5256) - XX(4040) = XX(4040)-JVS(26794)*XX(4682)-JVS(43860)*XX(5250)-JVS(46868)*XX(5252)-JVS(49120)*XX(5253)-JVS(52039)& - &*XX(5255)-JVS(53672)*XX(5256) - XX(4039) = XX(4039)-JVS(26738)*XX(4676)-JVS(43859)*XX(5250)-JVS(46867)*XX(5252)-JVS(49119)*XX(5253)-JVS(52038)& - &*XX(5255)-JVS(53671)*XX(5256) - XX(4038) = XX(4038)-JVS(20465)*XX(4048)-JVS(43858)*XX(5250)-JVS(46866)*XX(5252)-JVS(49118)*XX(5253)-JVS(52037)& - &*XX(5255)-JVS(53670)*XX(5256) - XX(4037) = XX(4037)-JVS(24809)*XX(4494)-JVS(43857)*XX(5250)-JVS(46865)*XX(5252)-JVS(49117)*XX(5253)-JVS(52036)& - &*XX(5255)-JVS(53669)*XX(5256) - XX(4036) = XX(4036)-JVS(28152)*XX(4797)-JVS(43856)*XX(5250)-JVS(46864)*XX(5252)-JVS(49116)*XX(5253)-JVS(52035)& - &*XX(5255)-JVS(53668)*XX(5256) - XX(4035) = XX(4035)-JVS(23786)*XX(4402)-JVS(43855)*XX(5250)-JVS(46863)*XX(5252)-JVS(49115)*XX(5253)-JVS(52034)& - &*XX(5255)-JVS(53667)*XX(5256) - XX(4034) = XX(4034)-JVS(28302)*XX(4810)-JVS(43854)*XX(5250)-JVS(46862)*XX(5252)-JVS(49114)*XX(5253)-JVS(52033)& - &*XX(5255)-JVS(53666)*XX(5256) - XX(4033) = XX(4033)-JVS(24542)*XX(4471)-JVS(43853)*XX(5250)-JVS(46861)*XX(5252)-JVS(49113)*XX(5253)-JVS(52032)& - &*XX(5255)-JVS(53665)*XX(5256) - XX(4032) = XX(4032)-JVS(20746)*XX(4081)-JVS(26361)*XX(4641)-JVS(26639)*XX(4667)-JVS(27058)*XX(4701)-JVS(27244)& - &*XX(4721)-JVS(35239)*XX(5183)-JVS(36428)*XX(5201)-JVS(43852)*XX(5250)-JVS(45753)*XX(5251)-JVS(52031)& - &*XX(5255)-JVS(53664)*XX(5256)-JVS(54870)*XX(5258) - XX(4031) = XX(4031)-JVS(26168)*XX(4622)-JVS(38431)*XX(5231)-JVS(43851)*XX(5250)-JVS(45752)*XX(5251)-JVS(46860)& - &*XX(5252)-JVS(49112)*XX(5253)-JVS(52030)*XX(5255)-JVS(53663)*XX(5256) - XX(4030) = XX(4030)-JVS(20305)*XX(4031)-JVS(26167)*XX(4622)-JVS(35858)*XX(5193)-JVS(40098)*XX(5244)-JVS(43850)& - &*XX(5250)-JVS(46859)*XX(5252)-JVS(49111)*XX(5253)-JVS(52029)*XX(5255)-JVS(53662)*XX(5256) - XX(4029) = XX(4029)-JVS(29656)*XX(4918)-JVS(32000)*XX(5059)-JVS(37988)*XX(5229)-JVS(43849)*XX(5250)-JVS(45751)& - &*XX(5251)-JVS(52028)*XX(5255) - XX(4028) = XX(4028)-JVS(29616)*XX(4916)-JVS(30207)*XX(4950)-JVS(37502)*XX(5222)-JVS(37883)*XX(5228)-JVS(43848)& - &*XX(5250)-JVS(46858)*XX(5252)-JVS(49110)*XX(5253)-JVS(52027)*XX(5255)-JVS(53661)*XX(5256) - XX(4027) = XX(4027)-JVS(20770)*XX(4084)-JVS(25435)*XX(4547)-JVS(28234)*XX(4803)-JVS(29361)*XX(4899)-JVS(30176)& - &*XX(4948)-JVS(36427)*XX(5201)-JVS(40097)*XX(5244)-JVS(43847)*XX(5250)-JVS(45750)*XX(5251)-JVS(52026)& - &*XX(5255)-JVS(53660)*XX(5256)-JVS(54869)*XX(5258) - XX(4026) = XX(4026)-JVS(36215)*XX(5199)-JVS(43846)*XX(5250)-JVS(45749)*XX(5251)-JVS(46857)*XX(5252)-JVS(49109)& - &*XX(5253)-JVS(52025)*XX(5255)-JVS(53659)*XX(5256) - XX(4025) = XX(4025)-JVS(20268)*XX(4026)-JVS(36214)*XX(5199)-JVS(40096)*XX(5244)-JVS(43845)*XX(5250)-JVS(45748)& - &*XX(5251)-JVS(46856)*XX(5252)-JVS(49108)*XX(5253)-JVS(52024)*XX(5255)-JVS(53658)*XX(5256) - XX(4024) = XX(4024)-JVS(29427)*XX(4904)-JVS(37882)*XX(5228)-JVS(39064)*XX(5233)-JVS(43844)*XX(5250)-JVS(45747)& - &*XX(5251)-JVS(52023)*XX(5255) - XX(4023) = XX(4023)-JVS(26341)*XX(4639)-JVS(43843)*XX(5250)-JVS(46855)*XX(5252)-JVS(49107)*XX(5253)-JVS(52022)& - &*XX(5255)-JVS(53657)*XX(5256) - XX(4022) = XX(4022)-JVS(28162)*XX(4798)-JVS(43842)*XX(5250)-JVS(46854)*XX(5252)-JVS(49106)*XX(5253)-JVS(52021)& - &*XX(5255)-JVS(53656)*XX(5256) - XX(4021) = XX(4021)-JVS(28008)*XX(4790)-JVS(43841)*XX(5250)-JVS(46853)*XX(5252)-JVS(49105)*XX(5253)-JVS(52020)& - &*XX(5255)-JVS(53655)*XX(5256) - XX(4020) = XX(4020)-JVS(24367)*XX(4453)-JVS(43840)*XX(5250)-JVS(46852)*XX(5252)-JVS(49104)*XX(5253)-JVS(52019)& - &*XX(5255)-JVS(53654)*XX(5256) - XX(4019) = XX(4019)-JVS(34895)*XX(5177)-JVS(43839)*XX(5250)-JVS(46851)*XX(5252)-JVS(49103)*XX(5253)-JVS(52018)& - &*XX(5255)-JVS(53653)*XX(5256) - XX(4018) = XX(4018)-JVS(23764)*XX(4400)-JVS(25654)*XX(4569)-JVS(26824)*XX(4685)-JVS(30829)*XX(4992)-JVS(32183)& - &*XX(5070)-JVS(35238)*XX(5183)-JVS(36426)*XX(5201)-JVS(43838)*XX(5250)-JVS(45746)*XX(5251)-JVS(52017)& - &*XX(5255)-JVS(53652)*XX(5256)-JVS(54868)*XX(5258) - XX(4017) = XX(4017)-JVS(23175)*XX(4335)-JVS(26515)*XX(4656)-JVS(28337)*XX(4813)-JVS(29874)*XX(4933)-JVS(32182)& - &*XX(5070)-JVS(35237)*XX(5183)-JVS(36425)*XX(5201)-JVS(43837)*XX(5250)-JVS(45745)*XX(5251)-JVS(52016)& - &*XX(5255)-JVS(53651)*XX(5256)-JVS(54867)*XX(5258) - XX(4016) = XX(4016)-JVS(24611)*XX(4479)-JVS(43836)*XX(5250)-JVS(46850)*XX(5252)-JVS(49102)*XX(5253)-JVS(52015)& - &*XX(5255)-JVS(53650)*XX(5256) - XX(4015) = XX(4015)-JVS(26433)*XX(4648)-JVS(43835)*XX(5250)-JVS(46849)*XX(5252)-JVS(49101)*XX(5253)-JVS(52014)& - &*XX(5255)-JVS(53649)*XX(5256) - XX(4014) = XX(4014)-JVS(28097)*XX(4796)-JVS(37501)*XX(5222)-JVS(37881)*XX(5228)-JVS(43834)*XX(5250)-JVS(45744)& - &*XX(5251)-JVS(52013)*XX(5255) - XX(4013) = XX(4013)-JVS(23068)*XX(4325)-JVS(43833)*XX(5250)-JVS(45743)*XX(5251)-JVS(46848)*XX(5252)-JVS(49100)& - &*XX(5253)-JVS(52012)*XX(5255)-JVS(53648)*XX(5256) - XX(4012) = XX(4012)-JVS(20156)*XX(4013)-JVS(20172)*XX(4014)-JVS(20259)*XX(4025)-JVS(37500)*XX(5222)-JVS(43832)& - &*XX(5250)-JVS(46847)*XX(5252)-JVS(49099)*XX(5253)-JVS(52011)*XX(5255)-JVS(53647)*XX(5256) - XX(4011) = XX(4011)-JVS(26680)*XX(4671)-JVS(43831)*XX(5250)-JVS(46846)*XX(5252)-JVS(49098)*XX(5253)-JVS(52010)& - &*XX(5255)-JVS(53646)*XX(5256) - XX(4010) = XX(4010)-JVS(20769)*XX(4084)-JVS(24145)*XX(4432)-JVS(26213)*XX(4626)-JVS(27243)*XX(4721)-JVS(28414)& - &*XX(4821)-JVS(36424)*XX(5201)-JVS(40095)*XX(5244)-JVS(43830)*XX(5250)-JVS(45742)*XX(5251)-JVS(52009)& - &*XX(5255)-JVS(53645)*XX(5256)-JVS(54866)*XX(5258) - XX(4009) = XX(4009)-JVS(23873)*XX(4407)-JVS(43829)*XX(5250)-JVS(46845)*XX(5252)-JVS(49097)*XX(5253)-JVS(52008)& - &*XX(5255)-JVS(53644)*XX(5256) - XX(4008) = XX(4008)-JVS(24194)*XX(4437)-JVS(43828)*XX(5250)-JVS(46844)*XX(5252)-JVS(49096)*XX(5253)-JVS(52007)& - &*XX(5255)-JVS(53643)*XX(5256) - XX(4007) = XX(4007)-JVS(26670)*XX(4670)-JVS(43827)*XX(5250)-JVS(46843)*XX(5252)-JVS(49095)*XX(5253)-JVS(52006)& - &*XX(5255)-JVS(53642)*XX(5256) - XX(4006) = XX(4006)-JVS(26881)*XX(4690)-JVS(43826)*XX(5250)-JVS(46842)*XX(5252)-JVS(49094)*XX(5253)-JVS(52005)& - &*XX(5255)-JVS(53641)*XX(5256) - XX(4005) = XX(4005)-JVS(20912)*XX(4101)-JVS(43825)*XX(5250)-JVS(46841)*XX(5252)-JVS(49093)*XX(5253)-JVS(52004)& - &*XX(5255)-JVS(53640)*XX(5256) - XX(4004) = XX(4004)-JVS(29313)*XX(4895)-JVS(29777)*XX(4927)-JVS(32537)*XX(5089)-JVS(33191)*XX(5123)-JVS(36943)& - &*XX(5209)-JVS(37499)*XX(5222)-JVS(39063)*XX(5233)-JVS(52003)*XX(5255) - XX(4003) = XX(4003)-JVS(20076)*XX(4004)-JVS(27856)*XX(4773)-JVS(30745)*XX(4986)-JVS(37498)*XX(5222)-JVS(43824)& - &*XX(5250)-JVS(46840)*XX(5252)-JVS(49092)*XX(5253)-JVS(52002)*XX(5255)-JVS(53639)*XX(5256) - XX(4002) = XX(4002)-JVS(25021)*XX(4509)-JVS(43823)*XX(5250)-JVS(46839)*XX(5252)-JVS(49091)*XX(5253)-JVS(52001)& - &*XX(5255)-JVS(53638)*XX(5256) - XX(4001) = XX(4001)-JVS(24819)*XX(4495)-JVS(43822)*XX(5250)-JVS(46838)*XX(5252)-JVS(49090)*XX(5253)-JVS(52000)& - &*XX(5255)-JVS(53637)*XX(5256) - XX(4000) = XX(4000)-JVS(27300)*XX(4726)-JVS(43821)*XX(5250)-JVS(46837)*XX(5252)-JVS(49089)*XX(5253)-JVS(51999)& - &*XX(5255)-JVS(53636)*XX(5256) - XX(3999) = XX(3999)-JVS(28019)*XX(4791)-JVS(43820)*XX(5250)-JVS(46836)*XX(5252)-JVS(49088)*XX(5253)-JVS(51998)& - &*XX(5255)-JVS(53635)*XX(5256) - XX(3998) = XX(3998)-JVS(37757)*XX(5225)-JVS(43819)*XX(5250)-JVS(46835)*XX(5252)-JVS(49087)*XX(5253)-JVS(51997)& - &*XX(5255)-JVS(53634)*XX(5256) - XX(3997) = XX(3997)-JVS(24271)*XX(4444)-JVS(43818)*XX(5250)-JVS(46834)*XX(5252)-JVS(49086)*XX(5253)-JVS(51996)& - &*XX(5255)-JVS(53633)*XX(5256) - XX(3996) = XX(3996)-JVS(25642)*XX(4568)-JVS(25653)*XX(4569)-JVS(28272)*XX(4807)-JVS(29893)*XX(4935)-JVS(32801)& - &*XX(5102)-JVS(36423)*XX(5201)-JVS(40094)*XX(5244)-JVS(43817)*XX(5250)-JVS(45741)*XX(5251)-JVS(51995)& - &*XX(5255)-JVS(53632)*XX(5256)-JVS(54865)*XX(5258) - XX(3995) = XX(3995)-JVS(26351)*XX(4640)-JVS(29598)*XX(4915)-JVS(36422)*XX(5201)-JVS(43816)*XX(5250)-JVS(45740)& - &*XX(5251)-JVS(51994)*XX(5255)-JVS(53631)*XX(5256) - XX(3994) = XX(3994)-JVS(34846)*XX(5175)-JVS(38430)*XX(5231)-JVS(43815)*XX(5250)-JVS(46833)*XX(5252)-JVS(49085)& - &*XX(5253)-JVS(51993)*XX(5255)-JVS(53630)*XX(5256) - XX(3993) = XX(3993)-JVS(32600)*XX(5094)-JVS(35496)*XX(5188)-JVS(43814)*XX(5250)-JVS(45739)*XX(5251)-JVS(51992)& - &*XX(5255) - XX(3992) = XX(3992)-JVS(25353)*XX(4540)-JVS(43813)*XX(5250)-JVS(45738)*XX(5251)-JVS(46832)*XX(5252)-JVS(49084)& - &*XX(5253)-JVS(51991)*XX(5255)-JVS(53629)*XX(5256) - XX(3991) = XX(3991)-JVS(22408)*XX(4260)-JVS(32207)*XX(5071)-JVS(36421)*XX(5201)-JVS(43812)*XX(5250)-JVS(45737)& - &*XX(5251)-JVS(51990)*XX(5255)-JVS(53628)*XX(5256) - XX(3990) = XX(3990)-JVS(31629)*XX(5039)-JVS(38429)*XX(5231)-JVS(43811)*XX(5250)-JVS(46831)*XX(5252)-JVS(49083)& - &*XX(5253)-JVS(51989)*XX(5255)-JVS(53627)*XX(5256) - XX(3989) = XX(3989)-JVS(32090)*XX(5063)-JVS(32106)*XX(5064)-JVS(43810)*XX(5250)-JVS(46830)*XX(5252)-JVS(49082)& - &*XX(5253)-JVS(51988)*XX(5255)-JVS(53626)*XX(5256) - XX(3988) = XX(3988)-JVS(38428)*XX(5231)-JVS(40557)*XX(5248)-JVS(43809)*XX(5250)-JVS(46829)*XX(5252)-JVS(49081)& - &*XX(5253)-JVS(51987)*XX(5255)-JVS(53625)*XX(5256) - XX(3987) = XX(3987)-JVS(30413)*XX(4964)-JVS(38427)*XX(5231)-JVS(43808)*XX(5250)-JVS(46828)*XX(5252)-JVS(49080)& - &*XX(5253)-JVS(51986)*XX(5255)-JVS(53624)*XX(5256) - XX(3986) = XX(3986)-JVS(22909)*XX(4310)-JVS(25158)*XX(4523)-JVS(36420)*XX(5201)-JVS(43807)*XX(5250)-JVS(45736)& - &*XX(5251)-JVS(51985)*XX(5255)-JVS(53623)*XX(5256) - XX(3985) = XX(3985)-JVS(28664)*XX(4842)-JVS(38426)*XX(5231)-JVS(43806)*XX(5250)-JVS(46827)*XX(5252)-JVS(49079)& - &*XX(5253)-JVS(51984)*XX(5255)-JVS(53622)*XX(5256) - XX(3984) = XX(3984)-JVS(34759)*XX(5171)-JVS(38425)*XX(5231)-JVS(43805)*XX(5250)-JVS(46826)*XX(5252)-JVS(49078)& - &*XX(5253)-JVS(51983)*XX(5255)-JVS(53621)*XX(5256) - XX(3983) = XX(3983)-JVS(21971)*XX(4218)-JVS(25302)*XX(4536)-JVS(43804)*XX(5250)-JVS(46825)*XX(5252)-JVS(49077)& - &*XX(5253)-JVS(51982)*XX(5255)-JVS(53620)*XX(5256) - XX(3982) = XX(3982)-JVS(26603)*XX(4664)-JVS(34395)*XX(5160)-JVS(43803)*XX(5250)-JVS(46824)*XX(5252)-JVS(49076)& - &*XX(5253)-JVS(51981)*XX(5255)-JVS(53619)*XX(5256) - XX(3981) = XX(3981)-JVS(26602)*XX(4664)-JVS(34394)*XX(5160)-JVS(43802)*XX(5250)-JVS(46823)*XX(5252)-JVS(49075)& - &*XX(5253)-JVS(51980)*XX(5255)-JVS(53618)*XX(5256) - XX(3980) = XX(3980)-JVS(38424)*XX(5231)-JVS(39711)*XX(5242)-JVS(43801)*XX(5250)-JVS(46822)*XX(5252)-JVS(49074)& - &*XX(5253)-JVS(51979)*XX(5255)-JVS(53617)*XX(5256) - XX(3979) = XX(3979)-JVS(31484)*XX(5031)-JVS(38423)*XX(5231)-JVS(43800)*XX(5250)-JVS(46821)*XX(5252)-JVS(49073)& - &*XX(5253)-JVS(51978)*XX(5255)-JVS(53616)*XX(5256) - XX(3978) = XX(3978)-JVS(28891)*XX(4858)-JVS(34054)*XX(5151)-JVS(37987)*XX(5229)-JVS(40093)*XX(5244)-JVS(43799)& - &*XX(5250) - XX(3977) = XX(3977)-JVS(25138)*XX(4521)-JVS(35857)*XX(5193)-JVS(43798)*XX(5250)-JVS(46820)*XX(5252)-JVS(49072)& - &*XX(5253)-JVS(51977)*XX(5255)-JVS(53615)*XX(5256) - XX(3976) = XX(3976)-JVS(27680)*XX(4759)-JVS(38422)*XX(5231)-JVS(43797)*XX(5250)-JVS(46819)*XX(5252)-JVS(49071)& - &*XX(5253)-JVS(51976)*XX(5255)-JVS(53614)*XX(5256) - XX(3975) = XX(3975)-JVS(29958)*XX(4938)-JVS(37497)*XX(5222)-JVS(43796)*XX(5250)-JVS(46818)*XX(5252)-JVS(49070)& - &*XX(5253)-JVS(51975)*XX(5255)-JVS(53613)*XX(5256) - XX(3974) = XX(3974)-JVS(34894)*XX(5177)-JVS(38421)*XX(5231)-JVS(43795)*XX(5250)-JVS(46817)*XX(5252)-JVS(49069)& - &*XX(5253)-JVS(51974)*XX(5255)-JVS(53612)*XX(5256) - XX(3973) = XX(3973)-JVS(25952)*XX(4602)-JVS(29655)*XX(4918)-JVS(43794)*XX(5250)-JVS(46816)*XX(5252)-JVS(49068)& - &*XX(5253)-JVS(51973)*XX(5255)-JVS(53611)*XX(5256) - XX(3972) = XX(3972)-JVS(20582)*XX(4060)-JVS(22019)*XX(4222)-JVS(36419)*XX(5201)-JVS(43793)*XX(5250)-JVS(45735)& - &*XX(5251)-JVS(51972)*XX(5255)-JVS(53610)*XX(5256) - XX(3971) = XX(3971)-JVS(32724)*XX(5099)-JVS(43792)*XX(5250)-JVS(46815)*XX(5252)-JVS(49067)*XX(5253)-JVS(51971)& - &*XX(5255)-JVS(53609)*XX(5256)-JVS(54826)*XX(5257) - XX(3970) = XX(3970)-JVS(23256)*XX(4345)-JVS(34393)*XX(5160)-JVS(35856)*XX(5193)-JVS(40092)*XX(5244)-JVS(43791)& - &*XX(5250)-JVS(49066)*XX(5253)-JVS(51970)*XX(5255) - XX(3969) = XX(3969)-JVS(28760)*XX(4849)-JVS(34870)*XX(5176)-JVS(43790)*XX(5250)-JVS(46814)*XX(5252)-JVS(49065)& - &*XX(5253)-JVS(51969)*XX(5255)-JVS(53608)*XX(5256) - XX(3968) = XX(3968)-JVS(21822)*XX(4203)-JVS(25951)*XX(4602)-JVS(35236)*XX(5183)-JVS(40091)*XX(5244)-JVS(43789)& - &*XX(5250)-JVS(45734)*XX(5251)-JVS(51968)*XX(5255) - XX(3967) = XX(3967)-JVS(30563)*XX(4975)-JVS(31156)*XX(5010)-JVS(43788)*XX(5250)-JVS(46813)*XX(5252)-JVS(49064)& - &*XX(5253)-JVS(51967)*XX(5255)-JVS(53607)*XX(5256) - XX(3966) = XX(3966)-JVS(29709)*XX(4921)-JVS(40556)*XX(5248)-JVS(43787)*XX(5250)-JVS(46812)*XX(5252)-JVS(49063)& - &*XX(5253)-JVS(51966)*XX(5255)-JVS(53606)*XX(5256) - XX(3965) = XX(3965)-JVS(36213)*XX(5199)-JVS(37496)*XX(5222)-JVS(39062)*XX(5233)-JVS(40090)*XX(5244)-JVS(43786)& - &*XX(5250)-JVS(45733)*XX(5251)-JVS(51965)*XX(5255) - XX(3964) = XX(3964)-JVS(35855)*XX(5193)-JVS(43785)*XX(5250)-JVS(45732)*XX(5251)-JVS(46811)*XX(5252)-JVS(49062)& - &*XX(5253)-JVS(51964)*XX(5255)-JVS(53605)*XX(5256) - XX(3963) = XX(3963)-JVS(32723)*XX(5099)-JVS(43784)*XX(5250)-JVS(46810)*XX(5252)-JVS(49061)*XX(5253)-JVS(51963)& - &*XX(5255)-JVS(53604)*XX(5256)-JVS(54825)*XX(5257) - XX(3962) = XX(3962)-JVS(20885)*XX(4098)-JVS(32394)*XX(5083)-JVS(43783)*XX(5250)-JVS(46809)*XX(5252)-JVS(49060)& - &*XX(5253)-JVS(51962)*XX(5255)-JVS(53603)*XX(5256) - XX(3961) = XX(3961)-JVS(33047)*XX(5115)-JVS(33724)*XX(5140)-JVS(43782)*XX(5250)-JVS(46808)*XX(5252)-JVS(49059)& - &*XX(5253)-JVS(51961)*XX(5255)-JVS(53602)*XX(5256) - XX(3960) = XX(3960)-JVS(27733)*XX(4763)-JVS(28826)*XX(4853)-JVS(36418)*XX(5201)-JVS(43781)*XX(5250)-JVS(45731)& - &*XX(5251)-JVS(51960)*XX(5255)-JVS(53601)*XX(5256) - XX(3959) = XX(3959)-JVS(33644)*XX(5139)-JVS(35235)*XX(5183)-JVS(38420)*XX(5231)-JVS(43780)*XX(5250)-JVS(51959)& - &*XX(5255) - XX(3958) = XX(3958)-JVS(26834)*XX(4686)-JVS(26847)*XX(4687)-JVS(43779)*XX(5250)-JVS(45730)*XX(5251)-JVS(51958)& - &*XX(5255) - XX(3957) = XX(3957)-JVS(25678)*XX(4572)-JVS(28618)*XX(4839)-JVS(33398)*XX(5130)-JVS(37044)*XX(5211)-JVS(39445)& - &*XX(5237)-JVS(43778)*XX(5250)-JVS(51957)*XX(5255) - XX(3956) = XX(3956)-JVS(19744)*XX(3964)-JVS(35234)*XX(5183)-JVS(35641)*XX(5191)-JVS(35854)*XX(5193)-JVS(43777)& - &*XX(5250)-JVS(49058)*XX(5253)-JVS(51956)*XX(5255) - XX(3955) = XX(3955)-JVS(24791)*XX(4493)-JVS(34392)*XX(5160)-JVS(43776)*XX(5250)-JVS(46807)*XX(5252)-JVS(49057)& - &*XX(5253)-JVS(51955)*XX(5255)-JVS(53600)*XX(5256) - XX(3954) = XX(3954)-JVS(32986)*XX(5111)-JVS(38419)*XX(5231)-JVS(43775)*XX(5250)-JVS(46806)*XX(5252)-JVS(49056)& - &*XX(5253)-JVS(51954)*XX(5255)-JVS(53599)*XX(5256) - XX(3953) = XX(3953)-JVS(25950)*XX(4602)-JVS(29841)*XX(4931)-JVS(43774)*XX(5250)-JVS(46805)*XX(5252)-JVS(49055)& - &*XX(5253)-JVS(51953)*XX(5255)-JVS(53598)*XX(5256) - XX(3952) = XX(3952)-JVS(23379)*XX(4360)-JVS(29182)*XX(4882)-JVS(43773)*XX(5250)-JVS(46804)*XX(5252)-JVS(49054)& - &*XX(5253)-JVS(51952)*XX(5255)-JVS(53597)*XX(5256) - XX(3951) = XX(3951)-JVS(21225)*XX(4137)-JVS(35381)*XX(5184)-JVS(43772)*XX(5250)-JVS(46803)*XX(5252)-JVS(49053)& - &*XX(5253)-JVS(51951)*XX(5255)-JVS(53596)*XX(5256) - XX(3950) = XX(3950)-JVS(32433)*XX(5085)-JVS(38418)*XX(5231)-JVS(43771)*XX(5250)-JVS(46802)*XX(5252)-JVS(49052)& - &*XX(5253)-JVS(51950)*XX(5255)-JVS(53595)*XX(5256) - XX(3949) = XX(3949)-JVS(32432)*XX(5085)-JVS(38417)*XX(5231)-JVS(43770)*XX(5250)-JVS(46801)*XX(5252)-JVS(49051)& - &*XX(5253)-JVS(51949)*XX(5255)-JVS(53594)*XX(5256) - XX(3948) = XX(3948)-JVS(29957)*XX(4938)-JVS(40089)*XX(5244)-JVS(43769)*XX(5250)-JVS(46800)*XX(5252)-JVS(49050)& - &*XX(5253)-JVS(51948)*XX(5255)-JVS(53593)*XX(5256) - XX(3947) = XX(3947)-JVS(20716)*XX(4077)-JVS(24674)*XX(4484)-JVS(36417)*XX(5201)-JVS(43768)*XX(5250)-JVS(45729)& - &*XX(5251)-JVS(51947)*XX(5255)-JVS(53592)*XX(5256) - XX(3946) = XX(3946)-JVS(22319)*XX(4251)-JVS(32522)*XX(5088)-JVS(36416)*XX(5201)-JVS(43767)*XX(5250)-JVS(45728)& - &*XX(5251)-JVS(51946)*XX(5255)-JVS(53591)*XX(5256) - XX(3945) = XX(3945)-JVS(32688)*XX(5098)-JVS(43766)*XX(5250)-JVS(45727)*XX(5251)-JVS(46799)*XX(5252)-JVS(49049)& - &*XX(5253)-JVS(51945)*XX(5255)-JVS(53590)*XX(5256) - XX(3944) = XX(3944)-JVS(34391)*XX(5160)-JVS(35233)*XX(5183)-JVS(43765)*XX(5250)-JVS(46798)*XX(5252)-JVS(49048)& - &*XX(5253)-JVS(51944)*XX(5255)-JVS(53589)*XX(5256) - XX(3943) = XX(3943)-JVS(31449)*XX(5029)-JVS(37108)*XX(5213)-JVS(43764)*XX(5250)-JVS(46797)*XX(5252)-JVS(49047)& - &*XX(5253)-JVS(51943)*XX(5255)-JVS(53588)*XX(5256) - XX(3942) = XX(3942)-JVS(27281)*XX(4724)-JVS(35232)*XX(5183)-JVS(35640)*XX(5191)-JVS(38416)*XX(5231)-JVS(43763)& - &*XX(5250)-JVS(49046)*XX(5253)-JVS(51942)*XX(5255) - XX(3941) = XX(3941)-JVS(23996)*XX(4419)-JVS(38415)*XX(5231)-JVS(43762)*XX(5250)-JVS(46796)*XX(5252)-JVS(49045)& - &*XX(5253)-JVS(51941)*XX(5255)-JVS(53587)*XX(5256) - XX(3940) = XX(3940)-JVS(28732)*XX(4847)-JVS(34706)*XX(5169)-JVS(43761)*XX(5250)-JVS(46795)*XX(5252)-JVS(49044)& - &*XX(5253)-JVS(51940)*XX(5255)-JVS(53586)*XX(5256) - XX(3939) = XX(3939)-JVS(29502)*XX(4909)-JVS(39061)*XX(5233)-JVS(43760)*XX(5250)-JVS(46794)*XX(5252)-JVS(49043)& - &*XX(5253)-JVS(51939)*XX(5255)-JVS(53585)*XX(5256) - XX(3938) = XX(3938)-JVS(21859)*XX(4207)-JVS(31925)*XX(5055)-JVS(36415)*XX(5201)-JVS(43759)*XX(5250)-JVS(45726)& - &*XX(5251)-JVS(51938)*XX(5255)-JVS(53584)*XX(5256) - XX(3937) = XX(3937)-JVS(29956)*XX(4938)-JVS(43758)*XX(5250)-JVS(45725)*XX(5251)-JVS(46793)*XX(5252)-JVS(49042)& - &*XX(5253)-JVS(51937)*XX(5255)-JVS(53583)*XX(5256) - XX(3936) = XX(3936)-JVS(31448)*XX(5029)-JVS(37107)*XX(5213)-JVS(43757)*XX(5250)-JVS(46792)*XX(5252)-JVS(49041)& - &*XX(5253)-JVS(51936)*XX(5255)-JVS(53582)*XX(5256) - XX(3935) = XX(3935)-JVS(22239)*XX(4243)-JVS(30528)*XX(4973)-JVS(36414)*XX(5201)-JVS(43756)*XX(5250)-JVS(45724)& - &*XX(5251)-JVS(51935)*XX(5255)-JVS(53581)*XX(5256) - XX(3934) = XX(3934)-JVS(33643)*XX(5139)-JVS(35639)*XX(5191)-JVS(38414)*XX(5231)-JVS(43755)*XX(5250)-JVS(45723)& - &*XX(5251)-JVS(49040)*XX(5253)-JVS(51934)*XX(5255) - XX(3933) = XX(3933)-JVS(21869)*XX(4208)-JVS(39060)*XX(5233)-JVS(40088)*XX(5244)-JVS(43754)*XX(5250)-JVS(49039)& - &*XX(5253) - XX(3932) = XX(3932)-JVS(22291)*XX(4248)-JVS(22420)*XX(4261)-JVS(43753)*XX(5250)-JVS(46791)*XX(5252)-JVS(49038)& - &*XX(5253)-JVS(51933)*XX(5255)-JVS(53580)*XX(5256) - XX(3931) = XX(3931)-JVS(29955)*XX(4938)-JVS(30156)*XX(4947)-JVS(37495)*XX(5222)-JVS(40087)*XX(5244)-JVS(43752)& - &*XX(5250)-JVS(45722)*XX(5251)-JVS(51932)*XX(5255) - XX(3930) = XX(3930)-JVS(29954)*XX(4938)-JVS(37494)*XX(5222)-JVS(40086)*XX(5244)-JVS(45721)*XX(5251)-JVS(51931)& - &*XX(5255) - XX(3929) = XX(3929)-JVS(31562)*XX(5036)-JVS(32599)*XX(5094)-JVS(43751)*XX(5250)-JVS(49037)*XX(5253)-JVS(51930)& - &*XX(5255) - XX(3928) = XX(3928)-JVS(38413)*XX(5231)-JVS(39579)*XX(5240)-JVS(43750)*XX(5250)-JVS(46790)*XX(5252)-JVS(49036)& - &*XX(5253)-JVS(51929)*XX(5255)-JVS(53579)*XX(5256) - XX(3927) = XX(3927)-JVS(28759)*XX(4849)-JVS(34869)*XX(5176)-JVS(43749)*XX(5250)-JVS(46789)*XX(5252)-JVS(49035)& - &*XX(5253)-JVS(51928)*XX(5255)-JVS(53578)*XX(5256) - XX(3926) = XX(3926)-JVS(33501)*XX(5136)-JVS(38412)*XX(5231)-JVS(43748)*XX(5250)-JVS(46788)*XX(5252)-JVS(49034)& - &*XX(5253)-JVS(51927)*XX(5255)-JVS(53577)*XX(5256) - XX(3925) = XX(3925)-JVS(28243)*XX(4804)-JVS(30116)*XX(4944)-JVS(34635)*XX(5165)-JVS(38411)*XX(5231)-JVS(43747)& - &*XX(5250)-JVS(49033)*XX(5253)-JVS(51926)*XX(5255) - XX(3924) = XX(3924)-JVS(27834)*XX(4771)-JVS(32299)*XX(5078)-JVS(36413)*XX(5201)-JVS(43746)*XX(5250)-JVS(45720)& - &*XX(5251)-JVS(51925)*XX(5255)-JVS(53576)*XX(5256) - XX(3923) = XX(3923)-JVS(23913)*XX(4411)-JVS(23925)*XX(4412)-JVS(36412)*XX(5201)-JVS(43745)*XX(5250)-JVS(45719)& - &*XX(5251)-JVS(51924)*XX(5255)-JVS(53575)*XX(5256) - XX(3922) = XX(3922)-JVS(23247)*XX(4344)-JVS(35638)*XX(5191)-JVS(35853)*XX(5193)-JVS(40085)*XX(5244)-JVS(43744)& - &*XX(5250)-JVS(49032)*XX(5253)-JVS(51923)*XX(5255) - XX(3921) = XX(3921)-JVS(31447)*XX(5029)-JVS(37106)*XX(5213)-JVS(43743)*XX(5250)-JVS(46787)*XX(5252)-JVS(49031)& - &*XX(5253)-JVS(51922)*XX(5255)-JVS(53574)*XX(5256) - XX(3920) = XX(3920)-JVS(29708)*XX(4921)-JVS(40555)*XX(5248)-JVS(43742)*XX(5250)-JVS(46786)*XX(5252)-JVS(49030)& - &*XX(5253)-JVS(51921)*XX(5255)-JVS(53573)*XX(5256) - XX(3919) = XX(3919)-JVS(24261)*XX(4443)-JVS(35852)*XX(5193)-JVS(43741)*XX(5250)-JVS(46785)*XX(5252)-JVS(49029)& - &*XX(5253)-JVS(51920)*XX(5255)-JVS(53572)*XX(5256) - XX(3918) = XX(3918)-JVS(31483)*XX(5031)-JVS(37493)*XX(5222)-JVS(40084)*XX(5244)-JVS(43740)*XX(5250)-JVS(51919)& - &*XX(5255) - XX(3917) = XX(3917)-JVS(23469)*XX(4369)-JVS(27190)*XX(4716)-JVS(34528)*XX(5161)-JVS(35231)*XX(5183)-JVS(35424)& - &*XX(5185)-JVS(43739)*XX(5250)-JVS(51918)*XX(5255) - XX(3916) = XX(3916)-JVS(24338)*XX(4450)-JVS(35851)*XX(5193)-JVS(43738)*XX(5250)-JVS(46784)*XX(5252)-JVS(49028)& - &*XX(5253)-JVS(51917)*XX(5255)-JVS(53571)*XX(5256) - XX(3915) = XX(3915)-JVS(26575)*XX(4662)-JVS(29045)*XX(4870)-JVS(36411)*XX(5201)-JVS(43737)*XX(5250)-JVS(45718)& - &*XX(5251)-JVS(51916)*XX(5255)-JVS(53570)*XX(5256) - XX(3914) = XX(3914)-JVS(27824)*XX(4770)-JVS(28880)*XX(4857)-JVS(36410)*XX(5201)-JVS(43736)*XX(5250)-JVS(45717)& - &*XX(5251)-JVS(51915)*XX(5255)-JVS(53569)*XX(5256) - XX(3913) = XX(3913)-JVS(31038)*XX(5004)-JVS(36409)*XX(5201)-JVS(39059)*XX(5233)-JVS(43735)*XX(5250)-JVS(45716)& - &*XX(5251)-JVS(51914)*XX(5255)-JVS(53568)*XX(5256) - XX(3912) = XX(3912)-JVS(33500)*XX(5136)-JVS(35850)*XX(5193)-JVS(43734)*XX(5250)-JVS(46783)*XX(5252)-JVS(49027)& - &*XX(5253)-JVS(51913)*XX(5255)-JVS(53567)*XX(5256) - XX(3911) = XX(3911)-JVS(25470)*XX(4550)-JVS(28282)*XX(4808)-JVS(36408)*XX(5201)-JVS(43733)*XX(5250)-JVS(45715)& - &*XX(5251)-JVS(51912)*XX(5255)-JVS(53566)*XX(5256) - XX(3910) = XX(3910)-JVS(25827)*XX(4590)-JVS(33255)*XX(5125)-JVS(35849)*XX(5193)-JVS(38047)*XX(5230)-JVS(43732)& - &*XX(5250)-JVS(49026)*XX(5253)-JVS(51911)*XX(5255) - XX(3909) = XX(3909)-JVS(29953)*XX(4938)-JVS(37492)*XX(5222)-JVS(38410)*XX(5231)-JVS(40083)*XX(5244)-JVS(43731)& - &*XX(5250)-JVS(49025)*XX(5253)-JVS(51910)*XX(5255) - XX(3908) = XX(3908)-JVS(21083)*XX(4120)-JVS(28663)*XX(4842)-JVS(43730)*XX(5250)-JVS(46782)*XX(5252)-JVS(49024)& - &*XX(5253)-JVS(51909)*XX(5255)-JVS(53565)*XX(5256) - XX(3907) = XX(3907)-JVS(32246)*XX(5073)-JVS(38409)*XX(5231)-JVS(43729)*XX(5250)-JVS(46781)*XX(5252)-JVS(49023)& - &*XX(5253)-JVS(51908)*XX(5255)-JVS(53564)*XX(5256) - XX(3906) = XX(3906)-JVS(25625)*XX(4566)-JVS(25775)*XX(4584)-JVS(34527)*XX(5161)-JVS(35230)*XX(5183)-JVS(40082)& - &*XX(5244)-JVS(40481)*XX(5246)-JVS(43728)*XX(5250) - XX(3905) = XX(3905)-JVS(21695)*XX(4190)-JVS(34390)*XX(5160)-JVS(43727)*XX(5250)-JVS(46780)*XX(5252)-JVS(49022)& - &*XX(5253)-JVS(51907)*XX(5255)-JVS(53563)*XX(5256) - XX(3904) = XX(3904)-JVS(28981)*XX(4865)-JVS(35229)*XX(5183)-JVS(35637)*XX(5191)-JVS(37491)*XX(5222)-JVS(43726)& - &*XX(5250)-JVS(49021)*XX(5253)-JVS(51906)*XX(5255) - XX(3903) = XX(3903)-JVS(23744)*XX(4398)-JVS(39058)*XX(5233)-JVS(43725)*XX(5250)-JVS(46779)*XX(5252)-JVS(49020)& - &*XX(5253)-JVS(51905)*XX(5255)-JVS(53562)*XX(5256) - XX(3902) = XX(3902)-JVS(21224)*XX(4137)-JVS(35380)*XX(5184)-JVS(43724)*XX(5250)-JVS(46778)*XX(5252)-JVS(49019)& - &*XX(5253)-JVS(51904)*XX(5255)-JVS(53561)*XX(5256) - XX(3901) = XX(3901)-JVS(23611)*XX(4385)-JVS(35379)*XX(5184)-JVS(43723)*XX(5250)-JVS(46777)*XX(5252)-JVS(49018)& - &*XX(5253)-JVS(51903)*XX(5255)-JVS(53560)*XX(5256) - XX(3900) = XX(3900)-JVS(21983)*XX(4219)-JVS(26034)*XX(4611)-JVS(36407)*XX(5201)-JVS(43722)*XX(5250)-JVS(45714)& - &*XX(5251)-JVS(51902)*XX(5255)-JVS(53559)*XX(5256) - XX(3899) = XX(3899)-JVS(29952)*XX(4938)-JVS(39252)*XX(5234)-JVS(43721)*XX(5250)-JVS(46776)*XX(5252)-JVS(49017)& - &*XX(5253)-JVS(51901)*XX(5255)-JVS(53558)*XX(5256) - XX(3898) = XX(3898)-JVS(38408)*XX(5231)-JVS(40574)*XX(5249)-JVS(43720)*XX(5250)-JVS(46775)*XX(5252)-JVS(49016)& - &*XX(5253)-JVS(51900)*XX(5255)-JVS(53557)*XX(5256) - XX(3897) = XX(3897)-JVS(31482)*XX(5031)-JVS(35848)*XX(5193)-JVS(37490)*XX(5222)-JVS(40081)*XX(5244)-JVS(43719)& - &*XX(5250)-JVS(49015)*XX(5253)-JVS(51899)*XX(5255) - XX(3896) = XX(3896)-JVS(29692)*XX(4920)-JVS(30579)*XX(4977)-JVS(36406)*XX(5201)-JVS(43718)*XX(5250)-JVS(45713)& - &*XX(5251)-JVS(51898)*XX(5255)-JVS(53556)*XX(5256) - XX(3895) = XX(3895)-JVS(34893)*XX(5177)-JVS(38407)*XX(5231)-JVS(43717)*XX(5250)-JVS(46774)*XX(5252)-JVS(49014)& - &*XX(5253)-JVS(51897)*XX(5255)-JVS(53555)*XX(5256) - XX(3894) = XX(3894)-JVS(33921)*XX(5145)-JVS(34389)*XX(5160)-JVS(43716)*XX(5250)-JVS(46773)*XX(5252)-JVS(49013)& - &*XX(5253)-JVS(51896)*XX(5255)-JVS(53554)*XX(5256) - XX(3893) = XX(3893)-JVS(22290)*XX(4248)-JVS(22419)*XX(4261)-JVS(43715)*XX(5250)-JVS(46772)*XX(5252)-JVS(49012)& - &*XX(5253)-JVS(51895)*XX(5255)-JVS(53553)*XX(5256) - XX(3892) = XX(3892)-JVS(32775)*XX(5101)-JVS(33363)*XX(5129)-JVS(36405)*XX(5201)-JVS(43714)*XX(5250)-JVS(45712)& - &*XX(5251)-JVS(51894)*XX(5255)-JVS(53552)*XX(5256) - XX(3891) = XX(3891)-JVS(32722)*XX(5099)-JVS(43713)*XX(5250)-JVS(46771)*XX(5252)-JVS(49011)*XX(5253)-JVS(51893)& - &*XX(5255)-JVS(53551)*XX(5256)-JVS(54824)*XX(5257) - XX(3890) = XX(3890)-JVS(23610)*XX(4385)-JVS(35378)*XX(5184)-JVS(43712)*XX(5250)-JVS(46770)*XX(5252)-JVS(49010)& - &*XX(5253)-JVS(51892)*XX(5255)-JVS(53550)*XX(5256) - XX(3889) = XX(3889)-JVS(34933)*XX(5178)-JVS(40080)*XX(5244)-JVS(43711)*XX(5250)-JVS(46769)*XX(5252)-JVS(49009)& - &*XX(5253)-JVS(51891)*XX(5255)-JVS(53549)*XX(5256) - XX(3888) = XX(3888)-JVS(34086)*XX(5152)-JVS(34388)*XX(5160)-JVS(43710)*XX(5250)-JVS(46768)*XX(5252)-JVS(49008)& - &*XX(5253)-JVS(51890)*XX(5255)-JVS(53548)*XX(5256) - XX(3887) = XX(3887)-JVS(19106)*XX(3888)-JVS(32895)*XX(5106)-JVS(36824)*XX(5203)-JVS(38406)*XX(5231)-JVS(43709)& - &*XX(5250)-JVS(49007)*XX(5253)-JVS(51889)*XX(5255) - XX(3886) = XX(3886)-JVS(38405)*XX(5231)-JVS(39578)*XX(5240)-JVS(43708)*XX(5250)-JVS(46767)*XX(5252)-JVS(49006)& - &*XX(5253)-JVS(51888)*XX(5255)-JVS(53547)*XX(5256) - XX(3885) = XX(3885)-JVS(19331)*XX(3915)-JVS(19408)*XX(3923)-JVS(43707)*XX(5250)-JVS(46766)*XX(5252)-JVS(49005)& - &*XX(5253)-JVS(51887)*XX(5255)-JVS(53546)*XX(5256) - XX(3884) = XX(3884)-JVS(29077)*XX(4872)-JVS(33863)*XX(5143)-JVS(43706)*XX(5250)-JVS(46765)*XX(5252)-JVS(49004)& - &*XX(5253)-JVS(51886)*XX(5255)-JVS(53545)*XX(5256) - XX(3883) = XX(3883)-JVS(38404)*XX(5231)-JVS(40554)*XX(5248)-JVS(43705)*XX(5250)-JVS(46764)*XX(5252)-JVS(49003)& - &*XX(5253)-JVS(51885)*XX(5255)-JVS(53544)*XX(5256) - XX(3882) = XX(3882)-JVS(27791)*XX(4768)-JVS(33397)*XX(5130)-JVS(43704)*XX(5250)-JVS(46763)*XX(5252)-JVS(49002)& - &*XX(5253)-JVS(51884)*XX(5255)-JVS(53543)*XX(5256) - XX(3881) = XX(3881)-JVS(24123)*XX(4430)-JVS(35847)*XX(5193)-JVS(43703)*XX(5250)-JVS(46762)*XX(5252)-JVS(49001)& - &*XX(5253)-JVS(51883)*XX(5255)-JVS(53542)*XX(5256) - XX(3880) = XX(3880)-JVS(23974)*XX(4417)-JVS(35846)*XX(5193)-JVS(43702)*XX(5250)-JVS(46761)*XX(5252)-JVS(49000)& - &*XX(5253)-JVS(51882)*XX(5255)-JVS(53541)*XX(5256) - XX(3879) = XX(3879)-JVS(28585)*XX(4836)-JVS(32665)*XX(5097)-JVS(36404)*XX(5201)-JVS(43701)*XX(5250)-JVS(45711)& - &*XX(5251)-JVS(51881)*XX(5255)-JVS(53540)*XX(5256) - XX(3878) = XX(3878)-JVS(28379)*XX(4817)-JVS(33254)*XX(5125)-JVS(38046)*XX(5230)-JVS(38403)*XX(5231)-JVS(43700)& - &*XX(5250)-JVS(48999)*XX(5253)-JVS(51880)*XX(5255) - XX(3877) = XX(3877)-JVS(29383)*XX(4901)-JVS(30849)*XX(4994)-JVS(36403)*XX(5201)-JVS(43699)*XX(5250)-JVS(45710)& - &*XX(5251)-JVS(51879)*XX(5255)-JVS(53539)*XX(5256) - XX(3876) = XX(3876)-JVS(34868)*XX(5176)-JVS(38402)*XX(5231)-JVS(43698)*XX(5250)-JVS(46760)*XX(5252)-JVS(48998)& - &*XX(5253)-JVS(51878)*XX(5255)-JVS(53538)*XX(5256) - XX(3875) = XX(3875)-JVS(30792)*XX(4990)-JVS(35709)*XX(5192)-JVS(36402)*XX(5201)-JVS(43697)*XX(5250)-JVS(45709)& - &*XX(5251)-JVS(51877)*XX(5255)-JVS(53537)*XX(5256) - XX(3874) = XX(3874)-JVS(37142)*XX(5214)-JVS(38401)*XX(5231)-JVS(43696)*XX(5250)-JVS(46759)*XX(5252)-JVS(48997)& - &*XX(5253)-JVS(51876)*XX(5255)-JVS(53536)*XX(5256) - XX(3873) = XX(3873)-JVS(32089)*XX(5063)-JVS(32105)*XX(5064)-JVS(43695)*XX(5250)-JVS(46758)*XX(5252)-JVS(48996)& - &*XX(5253)-JVS(51875)*XX(5255)-JVS(53535)*XX(5256) - XX(3872) = XX(3872)-JVS(28758)*XX(4849)-JVS(34867)*XX(5176)-JVS(43694)*XX(5250)-JVS(46757)*XX(5252)-JVS(48995)& - &*XX(5253)-JVS(51874)*XX(5255)-JVS(53534)*XX(5256) - XX(3871) = XX(3871)-JVS(29106)*XX(4874)-JVS(38400)*XX(5231)-JVS(43693)*XX(5250)-JVS(46756)*XX(5252)-JVS(48994)& - &*XX(5253)-JVS(51873)*XX(5255)-JVS(53533)*XX(5256) - XX(3870) = XX(3870)-JVS(33046)*XX(5115)-JVS(33723)*XX(5140)-JVS(43692)*XX(5250)-JVS(46755)*XX(5252)-JVS(48993)& - &*XX(5253)-JVS(51872)*XX(5255)-JVS(53532)*XX(5256) - XX(3869) = XX(3869)-JVS(30562)*XX(4975)-JVS(31155)*XX(5010)-JVS(43691)*XX(5250)-JVS(46754)*XX(5252)-JVS(48992)& - &*XX(5253)-JVS(51871)*XX(5255)-JVS(53531)*XX(5256) - XX(3868) = XX(3868)-JVS(28638)*XX(4841)-JVS(32664)*XX(5097)-JVS(33920)*XX(5145)-JVS(40079)*XX(5244)-JVS(43690)& - &*XX(5250) - XX(3867) = XX(3867)-JVS(28731)*XX(4847)-JVS(34705)*XX(5169)-JVS(43689)*XX(5250)-JVS(46753)*XX(5252)-JVS(48991)& - &*XX(5253)-JVS(51870)*XX(5255)-JVS(53530)*XX(5256) - XX(3866) = XX(3866)-JVS(30412)*XX(4964)-JVS(38399)*XX(5231)-JVS(43688)*XX(5250)-JVS(46752)*XX(5252)-JVS(48990)& - &*XX(5253)-JVS(51869)*XX(5255)-JVS(53529)*XX(5256) - XX(3865) = XX(3865)-JVS(38398)*XX(5231)-JVS(39710)*XX(5242)-JVS(43687)*XX(5250)-JVS(46751)*XX(5252)-JVS(48989)& - &*XX(5253)-JVS(51868)*XX(5255)-JVS(53528)*XX(5256) - XX(3864) = XX(3864)-JVS(23441)*XX(4366)-JVS(38830)*XX(5232)-JVS(43686)*XX(5250)-JVS(46750)*XX(5252)-JVS(48988)& - &*XX(5253)-JVS(51867)*XX(5255)-JVS(53527)*XX(5256) - XX(3863) = XX(3863)-JVS(28730)*XX(4847)-JVS(34704)*XX(5169)-JVS(43685)*XX(5250)-JVS(46749)*XX(5252)-JVS(48987)& - &*XX(5253)-JVS(51866)*XX(5255)-JVS(53526)*XX(5256) - XX(3862) = XX(3862)-JVS(23984)*XX(4418)-JVS(26547)*XX(4659)-JVS(36401)*XX(5201)-JVS(43684)*XX(5250)-JVS(45708)& - &*XX(5251)-JVS(51865)*XX(5255)-JVS(53525)*XX(5256) - XX(3861) = XX(3861)-JVS(22105)*XX(4230)-JVS(35377)*XX(5184)-JVS(36400)*XX(5201)-JVS(43683)*XX(5250)-JVS(45707)& - &*XX(5251)-JVS(51864)*XX(5255)-JVS(53524)*XX(5256) - XX(3860) = XX(3860)-JVS(25949)*XX(4602)-JVS(33642)*XX(5139)-JVS(43682)*XX(5250)-JVS(46748)*XX(5252)-JVS(48986)& - &*XX(5253)-JVS(51863)*XX(5255)-JVS(53523)*XX(5256) - XX(3859) = XX(3859)-JVS(22945)*XX(4313)-JVS(28568)*XX(4834)-JVS(43681)*XX(5250)-JVS(46747)*XX(5252)-JVS(48985)& - &*XX(5253)-JVS(51862)*XX(5255)-JVS(53522)*XX(5256) - XX(3858) = XX(3858)-JVS(21386)*XX(4157)-JVS(22042)*XX(4224)-JVS(43680)*XX(5250)-JVS(46746)*XX(5252)-JVS(48984)& - &*XX(5253)-JVS(51861)*XX(5255)-JVS(53521)*XX(5256) - XX(3857) = XX(3857)-JVS(25095)*XX(4517)-JVS(28812)*XX(4852)-JVS(36399)*XX(5201)-JVS(43679)*XX(5250)-JVS(45706)& - &*XX(5251)-JVS(51860)*XX(5255)-JVS(53520)*XX(5256) - XX(3856) = XX(3856)-JVS(24522)*XX(4469)-JVS(30621)*XX(4980)-JVS(36398)*XX(5201)-JVS(43678)*XX(5250)-JVS(45705)& - &*XX(5251)-JVS(51859)*XX(5255)-JVS(53519)*XX(5256) - XX(3855) = XX(3855)-JVS(27790)*XX(4768)-JVS(32840)*XX(5104)-JVS(43677)*XX(5250)-JVS(46745)*XX(5252)-JVS(48983)& - &*XX(5253)-JVS(51858)*XX(5255)-JVS(53518)*XX(5256) - XX(3854) = XX(3854)-JVS(22944)*XX(4313)-JVS(28567)*XX(4834)-JVS(43676)*XX(5250)-JVS(46744)*XX(5252)-JVS(48982)& - &*XX(5253)-JVS(51857)*XX(5255)-JVS(53517)*XX(5256) - XX(3853) = XX(3853)-JVS(33641)*XX(5139)-JVS(37489)*XX(5222)-JVS(43675)*XX(5250)-JVS(46743)*XX(5252)-JVS(48981)& - &*XX(5253)-JVS(51856)*XX(5255)-JVS(53516)*XX(5256) - XX(3852) = XX(3852)-JVS(21519)*XX(4173)-JVS(26194)*XX(4624)-JVS(43674)*XX(5250)-JVS(46742)*XX(5252)-JVS(48980)& - &*XX(5253)-JVS(51855)*XX(5255)-JVS(53515)*XX(5256) - XX(3851) = XX(3851)-JVS(25076)*XX(4515)-JVS(33972)*XX(5147)-JVS(36397)*XX(5201)-JVS(43673)*XX(5250)-JVS(45704)& - &*XX(5251)-JVS(51854)*XX(5255)-JVS(53514)*XX(5256) - XX(3850) = XX(3850)-JVS(34866)*XX(5176)-JVS(38397)*XX(5231)-JVS(43672)*XX(5250)-JVS(46741)*XX(5252)-JVS(48979)& - &*XX(5253)-JVS(51853)*XX(5255)-JVS(53513)*XX(5256) - XX(3849) = XX(3849)-JVS(31904)*XX(5054)-JVS(36396)*XX(5201)-JVS(43671)*XX(5250)-JVS(53512)*XX(5256) - XX(3848) = XX(3848)-JVS(18777)*XX(3849)-JVS(38396)*XX(5231)-JVS(43670)*XX(5250)-JVS(46740)*XX(5252)-JVS(48978)& - &*XX(5253)-JVS(51852)*XX(5255)-JVS(53511)*XX(5256) - XX(3847) = XX(3847)-JVS(20001)*XX(3995)-JVS(32206)*XX(5071)-JVS(43669)*XX(5250)-JVS(46739)*XX(5252)-JVS(48977)& - &*XX(5253)-JVS(51851)*XX(5255)-JVS(53510)*XX(5256) - XX(3846) = XX(3846)-JVS(23395)*XX(4362)-JVS(38395)*XX(5231)-JVS(43668)*XX(5250)-JVS(46738)*XX(5252)-JVS(48976)& - &*XX(5253)-JVS(51850)*XX(5255)-JVS(53509)*XX(5256) - XX(3845) = XX(3845)-JVS(32469)*XX(5086)-JVS(34387)*XX(5160)-JVS(43667)*XX(5250)-JVS(46737)*XX(5252)-JVS(48975)& - &*XX(5253)-JVS(51849)*XX(5255)-JVS(53508)*XX(5256) - XX(3844) = XX(3844)-JVS(29707)*XX(4921)-JVS(40553)*XX(5248)-JVS(43666)*XX(5250)-JVS(46736)*XX(5252)-JVS(48974)& - &*XX(5253)-JVS(51848)*XX(5255)-JVS(53507)*XX(5256) - XX(3843) = XX(3843)-JVS(23183)*XX(4336)-JVS(23347)*XX(4356)-JVS(23454)*XX(4367)-JVS(25768)*XX(4583)-JVS(35228)& - &*XX(5183)-JVS(37986)*XX(5229)-JVS(43665)*XX(5250) - XX(3842) = XX(3842)-JVS(27216)*XX(4719)-JVS(35845)*XX(5193)-JVS(38045)*XX(5230)-JVS(40078)*XX(5244)-JVS(43664)& - &*XX(5250)-JVS(48973)*XX(5253)-JVS(51847)*XX(5255) - XX(3841) = XX(3841)-JVS(28407)*XX(4820)-JVS(30595)*XX(4978)-JVS(43663)*XX(5250)-JVS(46735)*XX(5252)-JVS(48972)& - &*XX(5253)-JVS(51846)*XX(5255)-JVS(53506)*XX(5256) - XX(3840) = XX(3840)-JVS(28662)*XX(4842)-JVS(38394)*XX(5231)-JVS(43662)*XX(5250)-JVS(46734)*XX(5252)-JVS(48971)& - &*XX(5253)-JVS(51845)*XX(5255)-JVS(53505)*XX(5256) - XX(3839) = XX(3839)-JVS(26393)*XX(4644)-JVS(38393)*XX(5231)-JVS(43661)*XX(5250)-JVS(46733)*XX(5252)-JVS(48970)& - &*XX(5253)-JVS(51844)*XX(5255)-JVS(53504)*XX(5256) - XX(3838) = XX(3838)-JVS(18750)*XX(3846)-JVS(34386)*XX(5160)-JVS(43660)*XX(5250)-JVS(46732)*XX(5252)-JVS(48969)& - &*XX(5253)-JVS(51843)*XX(5255)-JVS(53503)*XX(5256) - XX(3837) = XX(3837)-JVS(23440)*XX(4366)-JVS(43659)*XX(5250)-JVS(45703)*XX(5251)-JVS(46731)*XX(5252)-JVS(48968)& - &*XX(5253)-JVS(51842)*XX(5255)-JVS(53502)*XX(5256) - XX(3836) = XX(3836)-JVS(19032)*XX(3879)-JVS(20959)*XX(4105)-JVS(43658)*XX(5250)-JVS(46730)*XX(5252)-JVS(48967)& - &*XX(5253)-JVS(51841)*XX(5255)-JVS(53501)*XX(5256) - XX(3835) = XX(3835)-JVS(24435)*XX(4460)-JVS(29501)*XX(4909)-JVS(31561)*XX(5036)-JVS(35495)*XX(5188)-JVS(38829)& - &*XX(5232)-JVS(39057)*XX(5233)-JVS(39251)*XX(5234)-JVS(43657)*XX(5250)-JVS(45702)*XX(5251)-JVS(48966)& - &*XX(5253)-JVS(51840)*XX(5255) - XX(3834) = XX(3834)-JVS(25434)*XX(4547)-JVS(25806)*XX(4588)-JVS(27100)*XX(4707)-JVS(28553)*XX(4833)-JVS(29231)& - &*XX(4887)-JVS(36395)*XX(5201)-JVS(43656)*XX(5250)-JVS(45701)*XX(5251)-JVS(51839)*XX(5255)-JVS(53500)& - &*XX(5256)-JVS(54864)*XX(5258) - XX(3833) = XX(3833)-JVS(22921)*XX(4311)-JVS(25699)*XX(4575)-JVS(25709)*XX(4576)-JVS(25805)*XX(4588)-JVS(26496)& - &*XX(4654)-JVS(36394)*XX(5201)-JVS(43655)*XX(5250)-JVS(45700)*XX(5251)-JVS(51838)*XX(5255)-JVS(53499)& - &*XX(5256)-JVS(54863)*XX(5258) - XX(3832) = XX(3832)-JVS(26717)*XX(4674)-JVS(27469)*XX(4741)-JVS(29951)*XX(4938)-JVS(32800)*XX(5102)-JVS(36131)& - &*XX(5197)-JVS(37488)*XX(5222)-JVS(40077)*XX(5244)-JVS(43654)*XX(5250)-JVS(45699)*XX(5251)-JVS(51837)& - &*XX(5255)-JVS(54862)*XX(5258) - XX(3831) = XX(3831)-JVS(23813)*XX(4403)-JVS(24376)*XX(4454)-JVS(28096)*XX(4796)-JVS(35227)*XX(5183)-JVS(36393)& - &*XX(5201)-JVS(39056)*XX(5233)-JVS(43653)*XX(5250)-JVS(45698)*XX(5251)-JVS(51836)*XX(5255)-JVS(53498)& - &*XX(5256)-JVS(54861)*XX(5258) - XX(3830) = XX(3830)-JVS(23743)*XX(4398)-JVS(25241)*XX(4531)-JVS(28095)*XX(4796)-JVS(36392)*XX(5201)-JVS(43652)& - &*XX(5250)-JVS(51835)*XX(5255)-JVS(53497)*XX(5256)-JVS(54860)*XX(5258) - XX(3829) = XX(3829)-JVS(26941)*XX(4693)-JVS(37487)*XX(5222)-JVS(40076)*XX(5244)-JVS(43651)*XX(5250)-JVS(45697)& - &*XX(5251)-JVS(51834)*XX(5255) - XX(3828) = XX(3828)-JVS(18631)*XX(3829)-JVS(23035)*XX(4322)-JVS(37486)*XX(5222)-JVS(43650)*XX(5250)-JVS(46729)& - &*XX(5252)-JVS(48965)*XX(5253)-JVS(51833)*XX(5255)-JVS(53496)*XX(5256) - XX(3827) = XX(3827)-JVS(24724)*XX(4488)-JVS(24768)*XX(4491)-JVS(39055)*XX(5233)-JVS(43649)*XX(5250)-JVS(46728)& - &*XX(5252)-JVS(48964)*XX(5253)-JVS(51832)*XX(5255)-JVS(53495)*XX(5256) - XX(3826) = XX(3826)-JVS(29324)*XX(4896)-JVS(30230)*XX(4952)-JVS(33190)*XX(5123)-JVS(33311)*XX(5126)-JVS(33640)& - &*XX(5139)-JVS(36942)*XX(5209)-JVS(37485)*XX(5222)-JVS(51831)*XX(5255) - XX(3825) = XX(3825)-JVS(20171)*XX(4014)-JVS(25267)*XX(4533)-JVS(33639)*XX(5139)-JVS(43648)*XX(5250)-JVS(46727)& - &*XX(5252)-JVS(48963)*XX(5253)-JVS(51830)*XX(5255)-JVS(53494)*XX(5256) - XX(3824) = XX(3824)-JVS(30217)*XX(4951)-JVS(30229)*XX(4952)-JVS(31983)*XX(5058)-JVS(33189)*XX(5123)-JVS(36941)& - &*XX(5209)-JVS(37484)*XX(5222)-JVS(39054)*XX(5233)-JVS(51829)*XX(5255) - XX(3823) = XX(3823)-JVS(18594)*XX(3824)-JVS(30744)*XX(4986)-JVS(39053)*XX(5233)-JVS(43647)*XX(5250)-JVS(46726)& - &*XX(5252)-JVS(48962)*XX(5253)-JVS(51828)*XX(5255)-JVS(53493)*XX(5256) - XX(3822) = XX(3822)-JVS(22898)*XX(4309)-JVS(28313)*XX(4811)-JVS(32663)*XX(5097)-JVS(33122)*XX(5120)-JVS(34053)& - &*XX(5151)-JVS(40075)*XX(5244)-JVS(43646)*XX(5250)-JVS(51827)*XX(5255) - XX(3821) = XX(3821)-JVS(23097)*XX(4328)-JVS(28094)*XX(4796)-JVS(40074)*XX(5244)-JVS(43645)*XX(5250) - XX(3820) = XX(3820)-JVS(18568)*XX(3821)-JVS(23082)*XX(4326)-JVS(39052)*XX(5233)-JVS(43644)*XX(5250)-JVS(46725)& - &*XX(5252)-JVS(48961)*XX(5253)-JVS(51826)*XX(5255)-JVS(53492)*XX(5256) - XX(3819) = XX(3819)-JVS(20661)*XX(4070)-JVS(21602)*XX(4181)-JVS(37880)*XX(5228)-JVS(43643)*XX(5250)-JVS(46724)& - &*XX(5252)-JVS(48960)*XX(5253)-JVS(51825)*XX(5255)-JVS(53491)*XX(5256) - XX(3818) = XX(3818)-JVS(28045)*XX(4793)-JVS(29312)*XX(4895)-JVS(32536)*XX(5089)-JVS(33638)*XX(5139)-JVS(33746)& - &*XX(5141)-JVS(37483)*XX(5222)-JVS(51824)*XX(5255) - XX(3817) = XX(3817)-JVS(18544)*XX(3818)-JVS(30721)*XX(4985)-JVS(33637)*XX(5139)-JVS(43642)*XX(5250)-JVS(46723)& - &*XX(5252)-JVS(48959)*XX(5253)-JVS(51823)*XX(5255)-JVS(53490)*XX(5256) - XX(3816) = XX(3816)-JVS(20789)*XX(4086)-JVS(29840)*XX(4931)-JVS(43641)*XX(5250)-JVS(45696)*XX(5251)-JVS(51822)& - &*XX(5255) - XX(3815) = XX(3815)-JVS(18526)*XX(3816)-JVS(27496)*XX(4743)-JVS(39051)*XX(5233)-JVS(43640)*XX(5250)-JVS(46722)& - &*XX(5252)-JVS(48958)*XX(5253)-JVS(51821)*XX(5255)-JVS(53489)*XX(5256) - XX(3814) = XX(3814)-JVS(25843)*XX(4591)-JVS(38392)*XX(5231)-JVS(43639)*XX(5250)-JVS(45695)*XX(5251)-JVS(46721)& - &*XX(5252)-JVS(48957)*XX(5253)-JVS(51820)*XX(5255)-JVS(53488)*XX(5256) - XX(3813) = XX(3813)-JVS(20431)*XX(4045)-JVS(20453)*XX(4047)-JVS(39050)*XX(5233)-JVS(43638)*XX(5250)-JVS(46720)& - &*XX(5252)-JVS(48956)*XX(5253)-JVS(51819)*XX(5255)-JVS(53487)*XX(5256) - XX(3812) = XX(3812)-JVS(29323)*XX(4896)-JVS(30216)*XX(4951)-JVS(31982)*XX(5058)-JVS(33310)*XX(5126)-JVS(33636)& - &*XX(5139)-JVS(39049)*XX(5233)-JVS(51818)*XX(5255) - XX(3811) = XX(3811)-JVS(18498)*XX(3812)-JVS(31536)*XX(5034)-JVS(39048)*XX(5233)-JVS(43637)*XX(5250)-JVS(46719)& - &*XX(5252)-JVS(48955)*XX(5253)-JVS(51817)*XX(5255)-JVS(53486)*XX(5256) - XX(3810) = XX(3810)-JVS(20502)*XX(4051)-JVS(38391)*XX(5231)-JVS(43636)*XX(5250)-JVS(45694)*XX(5251)-JVS(46718)& - &*XX(5252)-JVS(48954)*XX(5253)-JVS(51816)*XX(5255)-JVS(53485)*XX(5256) - XX(3809) = XX(3809)-JVS(37229)*XX(5216)-JVS(43635)*XX(5250)-JVS(45693)*XX(5251)-JVS(51815)*XX(5255) - XX(3808) = XX(3808)-JVS(20144)*XX(4012)-JVS(20170)*XX(4014)-JVS(37482)*XX(5222)-JVS(43634)*XX(5250)-JVS(46717)& - &*XX(5252)-JVS(48953)*XX(5253)-JVS(51814)*XX(5255)-JVS(53484)*XX(5256) - XX(3807) = XX(3807)-JVS(20297)*XX(4030)-JVS(26166)*XX(4622)-JVS(33781)*XX(5142)-JVS(43633)*XX(5250)-JVS(46716)& - &*XX(5252)-JVS(48952)*XX(5253)-JVS(51813)*XX(5255)-JVS(53483)*XX(5256) - XX(3806) = XX(3806)-JVS(21330)*XX(4151)-JVS(37209)*XX(5215)-JVS(38390)*XX(5231)-JVS(43632)*XX(5250)-JVS(46715)& - &*XX(5252)-JVS(48951)*XX(5253)-JVS(51812)*XX(5255)-JVS(53482)*XX(5256) - XX(3805) = XX(3805)-JVS(26321)*XX(4637)-JVS(29654)*XX(4918)-JVS(30215)*XX(4951)-JVS(31981)*XX(5058)-JVS(32126)& - &*XX(5066)-JVS(39047)*XX(5233)-JVS(51811)*XX(5255) - XX(3804) = XX(3804)-JVS(18447)*XX(3805)-JVS(29633)*XX(4917)-JVS(39046)*XX(5233)-JVS(43631)*XX(5250)-JVS(46714)& - &*XX(5252)-JVS(48950)*XX(5253)-JVS(51810)*XX(5255)-JVS(53481)*XX(5256) - XX(3803) = XX(3803)-JVS(29918)*XX(4937)-JVS(29950)*XX(4938)-JVS(30743)*XX(4986)-JVS(43630)*XX(5250)-JVS(46713)& - &*XX(5252)-JVS(48949)*XX(5253)-JVS(51809)*XX(5255)-JVS(53480)*XX(5256) - XX(3802) = XX(3802)-JVS(29322)*XX(4896)-JVS(30228)*XX(4952)-JVS(32822)*XX(5103)-JVS(33635)*XX(5139)-JVS(36940)& - &*XX(5209)-JVS(37481)*XX(5222)-JVS(39045)*XX(5233)-JVS(51808)*XX(5255) - XX(3801) = XX(3801)-JVS(35494)*XX(5188)-JVS(39044)*XX(5233)-JVS(43629)*XX(5250)-JVS(45692)*XX(5251)-JVS(46712)& - &*XX(5252)-JVS(48948)*XX(5253)-JVS(51807)*XX(5255)-JVS(53479)*XX(5256) - XX(3800) = XX(3800)-JVS(20288)*XX(4029)-JVS(29653)*XX(4918)-JVS(43628)*XX(5250)-JVS(45691)*XX(5251)-JVS(51806)& - &*XX(5255) - XX(3799) = XX(3799)-JVS(18410)*XX(3800)-JVS(26126)*XX(4619)-JVS(39043)*XX(5233)-JVS(43627)*XX(5250)-JVS(46711)& - &*XX(5252)-JVS(48947)*XX(5253)-JVS(51805)*XX(5255)-JVS(53478)*XX(5256) - XX(3798) = XX(3798)-JVS(18610)*XX(3826)-JVS(30742)*XX(4986)-JVS(33634)*XX(5139)-JVS(43626)*XX(5250)-JVS(46710)& - &*XX(5252)-JVS(48946)*XX(5253)-JVS(51804)*XX(5255)-JVS(53477)*XX(5256) - XX(3797) = XX(3797)-JVS(18512)*XX(3814)-JVS(25842)*XX(4591)-JVS(37879)*XX(5228)-JVS(43625)*XX(5250)-JVS(46709)& - &*XX(5252)-JVS(48945)*XX(5253)-JVS(51803)*XX(5255)-JVS(53476)*XX(5256) - XX(3796) = XX(3796)-JVS(24314)*XX(4448)-JVS(24767)*XX(4491)-JVS(37480)*XX(5222)-JVS(43624)*XX(5250)-JVS(46708)& - &*XX(5252)-JVS(48944)*XX(5253)-JVS(51802)*XX(5255)-JVS(53475)*XX(5256) - XX(3795) = XX(3795)-JVS(26451)*XX(4650)-JVS(29839)*XX(4931)-JVS(30214)*XX(4951)-JVS(31980)*XX(5058)-JVS(32160)& - &*XX(5068)-JVS(39042)*XX(5233)-JVS(51801)*XX(5255) - XX(3794) = XX(3794)-JVS(18373)*XX(3795)-JVS(29820)*XX(4930)-JVS(39041)*XX(5233)-JVS(43623)*XX(5250)-JVS(46707)& - &*XX(5252)-JVS(48943)*XX(5253)-JVS(51800)*XX(5255)-JVS(53474)*XX(5256) - XX(3793) = XX(3793)-JVS(20464)*XX(4048)-JVS(25856)*XX(4592)-JVS(48942)*XX(5253)-JVS(54859)*XX(5258) - XX(3792) = XX(3792)-JVS(25420)*XX(4546)-JVS(30608)*XX(4979)-JVS(34052)*XX(5151)-JVS(36391)*XX(5201)-JVS(43622)& - &*XX(5250)-JVS(45690)*XX(5251)-JVS(51799)*XX(5255)-JVS(53473)*XX(5256) - XX(3791) = XX(3791)-JVS(20452)*XX(4047)-JVS(28179)*XX(4799)-JVS(37479)*XX(5222)-JVS(43621)*XX(5250)-JVS(46706)& - &*XX(5252)-JVS(48941)*XX(5253)-JVS(51798)*XX(5255)-JVS(53472)*XX(5256) - XX(3790) = XX(3790)-JVS(18484)*XX(3810)-JVS(20501)*XX(4051)-JVS(37878)*XX(5228)-JVS(43620)*XX(5250)-JVS(46705)& - &*XX(5252)-JVS(48940)*XX(5253)-JVS(51797)*XX(5255)-JVS(53471)*XX(5256) - XX(3789) = XX(3789)-JVS(23008)*XX(4319)-JVS(43619)*XX(5250)-JVS(46704)*XX(5252)-JVS(48939)*XX(5253)-JVS(51796)& - &*XX(5255)-JVS(53470)*XX(5256) - XX(3788) = XX(3788)-JVS(19172)*XX(3896)-JVS(43618)*XX(5250)-JVS(46703)*XX(5252)-JVS(48938)*XX(5253)-JVS(51795)& - &*XX(5255)-JVS(53469)*XX(5256) - XX(3787) = XX(3787)-JVS(25948)*XX(4602)-JVS(27503)*XX(4744)-JVS(32894)*XX(5106)-JVS(43617)*XX(5250)-JVS(45689)& - &*XX(5251)-JVS(51794)*XX(5255) - XX(3786) = XX(3786)-JVS(25981)*XX(4603)-JVS(43616)*XX(5250)-JVS(46702)*XX(5252)-JVS(48937)*XX(5253)-JVS(51793)& - &*XX(5255)-JVS(53468)*XX(5256) - XX(3785) = XX(3785)-JVS(19301)*XX(3912)-JVS(43615)*XX(5250)-JVS(46701)*XX(5252)-JVS(48936)*XX(5253)-JVS(51792)& - &*XX(5255)-JVS(53467)*XX(5256) - XX(3784) = XX(3784)-JVS(20401)*XX(4042)-JVS(43614)*XX(5250)-JVS(46700)*XX(5252)-JVS(48935)*XX(5253)-JVS(51791)& - &*XX(5255)-JVS(53466)*XX(5256) - XX(3783) = XX(3783)-JVS(24733)*XX(4489)-JVS(25947)*XX(4602)-JVS(40073)*XX(5244)-JVS(43613)*XX(5250)-JVS(45688)& - &*XX(5251)-JVS(51790)*XX(5255) - XX(3782) = XX(3782)-JVS(24236)*XX(4441)-JVS(43612)*XX(5250)-JVS(46699)*XX(5252)-JVS(48934)*XX(5253)-JVS(51789)& - &*XX(5255)-JVS(53465)*XX(5256) - XX(3781) = XX(3781)-JVS(19847)*XX(3977)-JVS(43611)*XX(5250)-JVS(46698)*XX(5252)-JVS(48933)*XX(5253)-JVS(51788)& - &*XX(5255)-JVS(53464)*XX(5256) - XX(3780) = XX(3780)-JVS(32687)*XX(5098)-JVS(33081)*XX(5117)-JVS(38828)*XX(5232)-JVS(43610)*XX(5250)-JVS(45687)& - &*XX(5251)-JVS(51787)*XX(5255) - XX(3779) = XX(3779)-JVS(27408)*XX(4736)-JVS(33780)*XX(5142)-JVS(33919)*XX(5145)-JVS(35636)*XX(5191)-JVS(36823)& - &*XX(5203)-JVS(51786)*XX(5255) - XX(3778) = XX(3778)-JVS(21005)*XX(4110)-JVS(43609)*XX(5250)-JVS(46697)*XX(5252)-JVS(48932)*XX(5253)-JVS(51785)& - &*XX(5255)-JVS(53463)*XX(5256) - XX(3777) = XX(3777)-JVS(19252)*XX(3906)-JVS(25685)*XX(4573)-JVS(34032)*XX(5150)-JVS(35226)*XX(5183)-JVS(43608)& - &*XX(5250)-JVS(51784)*XX(5255) - XX(3776) = XX(3776)-JVS(30411)*XX(4964)-JVS(43607)*XX(5250)-JVS(46696)*XX(5252)-JVS(48931)*XX(5253)-JVS(51783)& - &*XX(5255)-JVS(53462)*XX(5256) - XX(3775) = XX(3775)-JVS(26860)*XX(4688)-JVS(36390)*XX(5201)-JVS(43606)*XX(5250)-JVS(45686)*XX(5251)-JVS(51782)& - &*XX(5255)-JVS(53461)*XX(5256) - XX(3774) = XX(3774)-JVS(18210)*XX(3775)-JVS(43605)*XX(5250)-JVS(46695)*XX(5252)-JVS(48930)*XX(5253)-JVS(51781)& - &*XX(5255)-JVS(53460)*XX(5256) - XX(3773) = XX(3773)-JVS(26870)*XX(4689)-JVS(36389)*XX(5201)-JVS(43604)*XX(5250)-JVS(45685)*XX(5251)-JVS(51780)& - &*XX(5255)-JVS(53459)*XX(5256) - XX(3772) = XX(3772)-JVS(18191)*XX(3773)-JVS(43603)*XX(5250)-JVS(46694)*XX(5252)-JVS(48929)*XX(5253)-JVS(51779)& - &*XX(5255)-JVS(53458)*XX(5256) - XX(3771) = XX(3771)-JVS(23054)*XX(4324)-JVS(43602)*XX(5250)-JVS(46693)*XX(5252)-JVS(48928)*XX(5253)-JVS(51778)& - &*XX(5255)-JVS(53457)*XX(5256) - XX(3770) = XX(3770)-JVS(21361)*XX(4154)-JVS(43601)*XX(5250)-JVS(46692)*XX(5252)-JVS(48927)*XX(5253)-JVS(51777)& - &*XX(5255)-JVS(53456)*XX(5256) - XX(3769) = XX(3769)-JVS(20155)*XX(4013)-JVS(43600)*XX(5250)-JVS(46691)*XX(5252)-JVS(48926)*XX(5253)-JVS(51776)& - &*XX(5255)-JVS(53455)*XX(5256) - XX(3768) = XX(3768)-JVS(19052)*XX(3881)-JVS(43599)*XX(5250)-JVS(46690)*XX(5252)-JVS(48925)*XX(5253)-JVS(51775)& - &*XX(5255)-JVS(53454)*XX(5256) - XX(3767) = XX(3767)-JVS(29949)*XX(4938)-JVS(35844)*XX(5193)-JVS(40072)*XX(5244)-JVS(43598)*XX(5250)-JVS(48924)& - &*XX(5253)-JVS(51774)*XX(5255) - XX(3766) = XX(3766)-JVS(19377)*XX(3919)-JVS(43597)*XX(5250)-JVS(46689)*XX(5252)-JVS(48923)*XX(5253)-JVS(51773)& - &*XX(5255)-JVS(53453)*XX(5256) - XX(3765) = XX(3765)-JVS(29426)*XX(4904)-JVS(37478)*XX(5222)-JVS(37877)*XX(5228)-JVS(40071)*XX(5244)-JVS(43596)& - &*XX(5250) - XX(3764) = XX(3764)-JVS(26694)*XX(4672)-JVS(43595)*XX(5250)-JVS(46688)*XX(5252)-JVS(48922)*XX(5253)-JVS(51772)& - &*XX(5255)-JVS(53452)*XX(5256) - XX(3763) = XX(3763)-JVS(25819)*XX(4589)-JVS(34085)*XX(5152)-JVS(38389)*XX(5231)-JVS(43594)*XX(5250)-JVS(45684)& - &*XX(5251)-JVS(51771)*XX(5255) - XX(3762) = XX(3762)-JVS(18209)*XX(3775)-JVS(43593)*XX(5250)-JVS(46687)*XX(5252)-JVS(48921)*XX(5253)-JVS(51770)& - &*XX(5255)-JVS(53451)*XX(5256) - XX(3761) = XX(3761)-JVS(18683)*XX(3838)-JVS(43592)*XX(5250)-JVS(46686)*XX(5252)-JVS(48920)*XX(5253)-JVS(51769)& - &*XX(5255)-JVS(53450)*XX(5256) - XX(3760) = XX(3760)-JVS(21694)*XX(4190)-JVS(43591)*XX(5250)-JVS(46685)*XX(5252)-JVS(48919)*XX(5253)-JVS(51768)& - &*XX(5255)-JVS(53449)*XX(5256) - XX(3759) = XX(3759)-JVS(31884)*XX(5053)-JVS(33540)*XX(5137)-JVS(38827)*XX(5232)-JVS(43590)*XX(5250)-JVS(45683)& - &*XX(5251)-JVS(51767)*XX(5255) - XX(3758) = XX(3758)-JVS(25352)*XX(4540)-JVS(43589)*XX(5250)-JVS(46684)*XX(5252)-JVS(48918)*XX(5253)-JVS(51766)& - &*XX(5255)-JVS(53448)*XX(5256) - XX(3757) = XX(3757)-JVS(29058)*XX(4871)-JVS(33253)*XX(5125)-JVS(38044)*XX(5230)-JVS(40070)*XX(5244)-JVS(43588)& - &*XX(5250) - XX(3756) = XX(3756)-JVS(32959)*XX(5110)-JVS(34596)*XX(5164)-JVS(40069)*XX(5244)-JVS(43587)*XX(5250)-JVS(51765)& - &*XX(5255) - XX(3755) = XX(3755)-JVS(38388)*XX(5231)-JVS(39778)*XX(5243)-JVS(43586)*XX(5250)-JVS(45682)*XX(5251)-JVS(51764)& - &*XX(5255) - XX(3754) = XX(3754)-JVS(29776)*XX(4927)-JVS(31582)*XX(5037)-JVS(36939)*XX(5209)-JVS(37477)*XX(5222)-JVS(39040)& - &*XX(5233)-JVS(51763)*XX(5255) - XX(3753) = XX(3753)-JVS(22800)*XX(4299)-JVS(43585)*XX(5250)-JVS(46683)*XX(5252)-JVS(48917)*XX(5253)-JVS(51762)& - &*XX(5255)-JVS(53447)*XX(5256) - XX(3752) = XX(3752)-JVS(31279)*XX(5018)-JVS(43584)*XX(5250)-JVS(46682)*XX(5252)-JVS(48916)*XX(5253)-JVS(51761)& - &*XX(5255)-JVS(53446)*XX(5256) - XX(3751) = XX(3751)-JVS(20934)*XX(4103)-JVS(43583)*XX(5250)-JVS(46681)*XX(5252)-JVS(48915)*XX(5253)-JVS(51760)& - &*XX(5255)-JVS(53445)*XX(5256) - XX(3750) = XX(3750)-JVS(32468)*XX(5086)-JVS(43582)*XX(5250)-JVS(46680)*XX(5252)-JVS(48914)*XX(5253)-JVS(51759)& - &*XX(5255)-JVS(53444)*XX(5256) - XX(3749) = XX(3749)-JVS(19352)*XX(3917)-JVS(43581)*XX(5250)-JVS(46679)*XX(5252)-JVS(48913)*XX(5253)-JVS(51758)& - &*XX(5255)-JVS(53443)*XX(5256) - XX(3748) = XX(3748)-JVS(26565)*XX(4661)-JVS(36388)*XX(5201)-JVS(43580)*XX(5250)-JVS(45681)*XX(5251)-JVS(51757)& - &*XX(5255)-JVS(53442)*XX(5256) - XX(3747) = XX(3747)-JVS(29412)*XX(4903)-JVS(30462)*XX(4967)-JVS(33989)*XX(5148)-JVS(40068)*XX(5244)-JVS(43579)& - &*XX(5250) - XX(3746) = XX(3746)-JVS(21927)*XX(4214)-JVS(43578)*XX(5250)-JVS(46678)*XX(5252)-JVS(48912)*XX(5253)-JVS(51756)& - &*XX(5255)-JVS(53441)*XX(5256) - XX(3745) = XX(3745)-JVS(19244)*XX(3905)-JVS(43577)*XX(5250)-JVS(46677)*XX(5252)-JVS(48911)*XX(5253)-JVS(51755)& - &*XX(5255)-JVS(53440)*XX(5256) - XX(3744) = XX(3744)-JVS(17945)*XX(3745)-JVS(31446)*XX(5029)-JVS(37105)*XX(5213)-JVS(43576)*XX(5250)-JVS(48910)& - &*XX(5253)-JVS(51754)*XX(5255) - XX(3743) = XX(3743)-JVS(22064)*XX(4226)-JVS(43575)*XX(5250)-JVS(46676)*XX(5252)-JVS(48909)*XX(5253)-JVS(51753)& - &*XX(5255)-JVS(53439)*XX(5256) - XX(3742) = XX(3742)-JVS(24732)*XX(4489)-JVS(31481)*XX(5031)-JVS(40067)*XX(5244)-JVS(43574)*XX(5250)-JVS(45680)& - &*XX(5251)-JVS(51752)*XX(5255) - XX(3741) = XX(3741)-JVS(25744)*XX(4580)-JVS(43573)*XX(5250)-JVS(46675)*XX(5252)-JVS(48908)*XX(5253)-JVS(51751)& - &*XX(5255)-JVS(53438)*XX(5256) - XX(3740) = XX(3740)-JVS(22888)*XX(4308)-JVS(43572)*XX(5250)-JVS(46674)*XX(5252)-JVS(48907)*XX(5253)-JVS(51750)& - &*XX(5255)-JVS(53437)*XX(5256) - XX(3739) = XX(3739)-JVS(19320)*XX(3914)-JVS(43571)*XX(5250)-JVS(46673)*XX(5252)-JVS(48906)*XX(5253)-JVS(51749)& - &*XX(5255)-JVS(53436)*XX(5256) - XX(3738) = XX(3738)-JVS(18313)*XX(3787)-JVS(43570)*XX(5250)-JVS(46672)*XX(5252)-JVS(48905)*XX(5253)-JVS(51748)& - &*XX(5255)-JVS(53435)*XX(5256) - XX(3737) = XX(3737)-JVS(24589)*XX(4477)-JVS(25187)*XX(4525)-JVS(39546)*XX(5239)-JVS(43569)*XX(5250)-JVS(45679)& - &*XX(5251)-JVS(51747)*XX(5255) - XX(3736) = XX(3736)-JVS(24588)*XX(4477)-JVS(25186)*XX(4525)-JVS(39545)*XX(5239)-JVS(43568)*XX(5250)-JVS(45678)& - &*XX(5251)-JVS(51746)*XX(5255) - XX(3735) = XX(3735)-JVS(26102)*XX(4618)-JVS(35635)*XX(5191)-JVS(40066)*XX(5244)-JVS(43567)*XX(5250)-JVS(51745)& - &*XX(5255) - XX(3734) = XX(3734)-JVS(33465)*XX(5134)-JVS(38387)*XX(5231)-JVS(38826)*XX(5232)-JVS(40065)*XX(5244)-JVS(43566)& - &*XX(5250) - XX(3733) = XX(3733)-JVS(27999)*XX(4789)-JVS(43565)*XX(5250)-JVS(46671)*XX(5252)-JVS(48904)*XX(5253)-JVS(51744)& - &*XX(5255)-JVS(53434)*XX(5256) - XX(3732) = XX(3732)-JVS(20922)*XX(4102)-JVS(25946)*XX(4602)-JVS(35225)*XX(5183)-JVS(43564)*XX(5250)-JVS(45677)& - &*XX(5251)-JVS(51743)*XX(5255) - XX(3731) = XX(3731)-JVS(21102)*XX(4122)-JVS(43563)*XX(5250)-JVS(46670)*XX(5252)-JVS(48903)*XX(5253)-JVS(51742)& - &*XX(5255)-JVS(53433)*XX(5256) - XX(3730) = XX(3730)-JVS(18964)*XX(3871)-JVS(43562)*XX(5250)-JVS(46669)*XX(5252)-JVS(48902)*XX(5253)-JVS(51741)& - &*XX(5255)-JVS(53432)*XX(5256) - XX(3729) = XX(3729)-JVS(23111)*XX(4329)-JVS(36212)*XX(5199)-JVS(40064)*XX(5244)-JVS(43561)*XX(5250)-JVS(45676)& - &*XX(5251)-JVS(51740)*XX(5255) - XX(3728) = XX(3728)-JVS(26464)*XX(4651)-JVS(43560)*XX(5250)-JVS(46668)*XX(5252)-JVS(48901)*XX(5253)-JVS(51739)& - &*XX(5255)-JVS(53431)*XX(5256) - XX(3727) = XX(3727)-JVS(17978)*XX(3748)-JVS(43559)*XX(5250)-JVS(46667)*XX(5252)-JVS(48900)*XX(5253)-JVS(51738)& - &*XX(5255)-JVS(53430)*XX(5256) - XX(3726) = XX(3726)-JVS(32686)*XX(5098)-JVS(43558)*XX(5250)-JVS(45675)*XX(5251)-JVS(51737)*XX(5255) - XX(3725) = XX(3725)-JVS(17788)*XX(3726)-JVS(43557)*XX(5250)-JVS(46666)*XX(5252)-JVS(48899)*XX(5253)-JVS(51736)& - &*XX(5255)-JVS(53429)*XX(5256) - XX(3724) = XX(3724)-JVS(35088)*XX(5182)-JVS(43556)*XX(5250)-JVS(46665)*XX(5252)-JVS(48898)*XX(5253)-JVS(51735)& - &*XX(5255)-JVS(53428)*XX(5256) - XX(3723) = XX(3723)-JVS(29425)*XX(4904)-JVS(33633)*XX(5139)-JVS(33779)*XX(5142)-JVS(40063)*XX(5244)-JVS(43555)& - &*XX(5250) - XX(3722) = XX(3722)-JVS(21751)*XX(4196)-JVS(43554)*XX(5250)-JVS(46664)*XX(5252)-JVS(48897)*XX(5253)-JVS(51734)& - &*XX(5255)-JVS(53427)*XX(5256) - XX(3721) = XX(3721)-JVS(34385)*XX(5160)-JVS(43553)*XX(5250)-JVS(46663)*XX(5252)-JVS(48896)*XX(5253)-JVS(51733)& - &*XX(5255)-JVS(53426)*XX(5256) - XX(3720) = XX(3720)-JVS(26193)*XX(4624)-JVS(43552)*XX(5250)-JVS(46662)*XX(5252)-JVS(48895)*XX(5253)-JVS(51732)& - &*XX(5255)-JVS(53425)*XX(5256) - XX(3719) = XX(3719)-JVS(21995)*XX(4220)-JVS(43551)*XX(5250)-JVS(46661)*XX(5252)-JVS(48894)*XX(5253)-JVS(51731)& - &*XX(5255)-JVS(53424)*XX(5256) - XX(3718) = XX(3718)-JVS(22812)*XX(4300)-JVS(43550)*XX(5250)-JVS(46660)*XX(5252)-JVS(48893)*XX(5253)-JVS(51730)& - &*XX(5255)-JVS(53423)*XX(5256) - XX(3717) = XX(3717)-JVS(28261)*XX(4806)-JVS(43549)*XX(5250)-JVS(46659)*XX(5252)-JVS(48892)*XX(5253)-JVS(51729)& - &*XX(5255)-JVS(53422)*XX(5256) - XX(3716) = XX(3716)-JVS(29838)*XX(4931)-JVS(33918)*XX(5145)-JVS(38825)*XX(5232)-JVS(43548)*XX(5250)-JVS(51728)& - &*XX(5255) - XX(3715) = XX(3715)-JVS(32230)*XX(5072)-JVS(43547)*XX(5250)-JVS(46658)*XX(5252)-JVS(48891)*XX(5253)-JVS(51727)& - &*XX(5255)-JVS(53421)*XX(5256) - XX(3714) = XX(3714)-JVS(22341)*XX(4253)-JVS(43546)*XX(5250)-JVS(46657)*XX(5252)-JVS(48890)*XX(5253)-JVS(51726)& - &*XX(5255)-JVS(53420)*XX(5256) - XX(3713) = XX(3713)-JVS(17977)*XX(3748)-JVS(43545)*XX(5250)-JVS(46656)*XX(5252)-JVS(48889)*XX(5253)-JVS(51725)& - &*XX(5255)-JVS(53419)*XX(5256) - XX(3712) = XX(3712)-JVS(31999)*XX(5059)-JVS(39039)*XX(5233)-JVS(43544)*XX(5250)-JVS(45674)*XX(5251)-JVS(51724)& - &*XX(5255) - XX(3711) = XX(3711)-JVS(25301)*XX(4536)-JVS(43543)*XX(5250)-JVS(46655)*XX(5252)-JVS(48888)*XX(5253)-JVS(51723)& - &*XX(5255)-JVS(53418)*XX(5256) - XX(3710) = XX(3710)-JVS(26192)*XX(4624)-JVS(43542)*XX(5250)-JVS(46654)*XX(5252)-JVS(48887)*XX(5253)-JVS(51722)& - &*XX(5255)-JVS(53417)*XX(5256) - XX(3709) = XX(3709)-JVS(21538)*XX(4175)-JVS(27367)*XX(4731)-JVS(40062)*XX(5244)-JVS(43541)*XX(5250)-JVS(45673)& - &*XX(5251)-JVS(51721)*XX(5255) - XX(3708) = XX(3708)-JVS(36130)*XX(5197)-JVS(36211)*XX(5199)-JVS(38386)*XX(5231)-JVS(40061)*XX(5244)-JVS(43540)& - &*XX(5250)-JVS(45672)*XX(5251) - XX(3707) = XX(3707)-JVS(17639)*XX(3708)-JVS(19753)*XX(3965)-JVS(21127)*XX(4125)-JVS(24006)*XX(4420)-JVS(37476)& - &*XX(5222)-JVS(38385)*XX(5231)-JVS(40060)*XX(5244)-JVS(43539)*XX(5250)-JVS(45671)*XX(5251)-JVS(51720)& - &*XX(5255) - XX(3706) = XX(3706)-JVS(26601)*XX(4664)-JVS(43538)*XX(5250)-JVS(46653)*XX(5252)-JVS(48886)*XX(5253)-JVS(51719)& - &*XX(5255)-JVS(53416)*XX(5256) - XX(3705) = XX(3705)-JVS(19319)*XX(3914)-JVS(43537)*XX(5250)-JVS(46652)*XX(5252)-JVS(48885)*XX(5253)-JVS(51718)& - &*XX(5255)-JVS(53415)*XX(5256) - XX(3704) = XX(3704)-JVS(19042)*XX(3880)-JVS(43536)*XX(5250)-JVS(46651)*XX(5252)-JVS(48884)*XX(5253)-JVS(51717)& - &*XX(5255)-JVS(53414)*XX(5256) - XX(3703) = XX(3703)-JVS(22966)*XX(4315)-JVS(43535)*XX(5250)-JVS(46650)*XX(5252)-JVS(48883)*XX(5253)-JVS(51716)& - &*XX(5255)-JVS(53413)*XX(5256) - XX(3702) = XX(3702)-JVS(31169)*XX(5011)-JVS(31480)*XX(5031)-JVS(33632)*XX(5139)-JVS(33745)*XX(5141)-JVS(35224)& - &*XX(5183)-JVS(37475)*XX(5222)-JVS(40059)*XX(5244)-JVS(43534)*XX(5250)-JVS(45670)*XX(5251)-JVS(51715)& - &*XX(5255) - XX(3701) = XX(3701)-JVS(24492)*XX(4466)-JVS(28093)*XX(4796)-JVS(33252)*XX(5125)-JVS(36387)*XX(5201)-JVS(39038)& - &*XX(5233)-JVS(43533)*XX(5250)-JVS(45669)*XX(5251)-JVS(51714)*XX(5255)-JVS(53412)*XX(5256)-JVS(54858)& - &*XX(5258) - XX(3700) = XX(3700)-JVS(35493)*XX(5188)-JVS(37756)*XX(5225)-JVS(38384)*XX(5231)-JVS(39250)*XX(5234)-JVS(48882)& - &*XX(5253)-JVS(51713)*XX(5255) - XX(3699) = XX(3699)-JVS(22009)*XX(4221)-JVS(43532)*XX(5250)-JVS(46649)*XX(5252)-JVS(48881)*XX(5253)-JVS(51712)& - &*XX(5255)-JVS(53411)*XX(5256) - XX(3698) = XX(3698)-JVS(21950)*XX(4216)-JVS(43531)*XX(5250)-JVS(46648)*XX(5252)-JVS(48880)*XX(5253)-JVS(51711)& - &*XX(5255)-JVS(53410)*XX(5256) - XX(3697) = XX(3697)-JVS(22220)*XX(4241)-JVS(43530)*XX(5250)-JVS(46647)*XX(5252)-JVS(48879)*XX(5253)-JVS(51710)& - &*XX(5255)-JVS(53409)*XX(5256) - XX(3696) = XX(3696)-JVS(18190)*XX(3773)-JVS(43529)*XX(5250)-JVS(46646)*XX(5252)-JVS(48878)*XX(5253)-JVS(51709)& - &*XX(5255)-JVS(53408)*XX(5256) - XX(3695) = XX(3695)-JVS(19291)*XX(3911)-JVS(43528)*XX(5250)-JVS(46645)*XX(5252)-JVS(48877)*XX(5253)-JVS(51708)& - &*XX(5255)-JVS(53407)*XX(5256) - XX(3694) = XX(3694)-JVS(21385)*XX(4157)-JVS(43527)*XX(5250)-JVS(46644)*XX(5252)-JVS(48876)*XX(5253)-JVS(51707)& - &*XX(5255)-JVS(53406)*XX(5256) - XX(3693) = XX(3693)-JVS(36985)*XX(5210)-JVS(37474)*XX(5222)-JVS(39037)*XX(5233)-JVS(43526)*XX(5250)-JVS(45668)& - &*XX(5251)-JVS(51706)*XX(5255) - XX(3692) = XX(3692)-JVS(31278)*XX(5018)-JVS(43525)*XX(5250)-JVS(46643)*XX(5252)-JVS(48875)*XX(5253)-JVS(51705)& - &*XX(5255)-JVS(53405)*XX(5256) - XX(3691) = XX(3691)-JVS(21444)*XX(4164)-JVS(43524)*XX(5250)-JVS(46642)*XX(5252)-JVS(48874)*XX(5253)-JVS(51704)& - &*XX(5255)-JVS(53404)*XX(5256) - XX(3690) = XX(3690)-JVS(21580)*XX(4179)-JVS(43523)*XX(5250)-JVS(46641)*XX(5252)-JVS(48873)*XX(5253)-JVS(51703)& - &*XX(5255)-JVS(53403)*XX(5256) - XX(3689) = XX(3689)-JVS(32371)*XX(5081)-JVS(33213)*XX(5124)-JVS(35588)*XX(5190)-JVS(36280)*XX(5200)-JVS(43522)& - &*XX(5250)-JVS(45667)*XX(5251) - XX(3688) = XX(3688)-JVS(19595)*XX(3946)-JVS(43521)*XX(5250)-JVS(46640)*XX(5252)-JVS(48872)*XX(5253)-JVS(51702)& - &*XX(5255)-JVS(53402)*XX(5256) - XX(3687) = XX(3687)-JVS(19171)*XX(3896)-JVS(43520)*XX(5250)-JVS(46639)*XX(5252)-JVS(48871)*XX(5253)-JVS(51701)& - &*XX(5255)-JVS(53401)*XX(5256) - XX(3686) = XX(3686)-JVS(24249)*XX(4442)-JVS(43519)*XX(5250)-JVS(46638)*XX(5252)-JVS(48870)*XX(5253)-JVS(51700)& - &*XX(5255)-JVS(53400)*XX(5256) - XX(3685) = XX(3685)-JVS(18280)*XX(3783)-JVS(43518)*XX(5250)-JVS(46637)*XX(5252)-JVS(48869)*XX(5253)-JVS(51699)& - &*XX(5255)-JVS(53399)*XX(5256) - XX(3684) = XX(3684)-JVS(24270)*XX(4444)-JVS(28092)*XX(4796)-JVS(32893)*XX(5106)-JVS(36386)*XX(5201)-JVS(39036)& - &*XX(5233)-JVS(43517)*XX(5250)-JVS(45666)*XX(5251)-JVS(51698)*XX(5255)-JVS(53398)*XX(5256)-JVS(54857)& - &*XX(5258) - XX(3683) = XX(3683)-JVS(30016)*XX(4939)-JVS(34595)*XX(5164)-JVS(43516)*XX(5250)-JVS(45665)*XX(5251)-JVS(51697)& - &*XX(5255) - XX(3682) = XX(3682)-JVS(22197)*XX(4239)-JVS(36057)*XX(5195)-JVS(38824)*XX(5232)-JVS(43515)*XX(5250)-JVS(51696)& - &*XX(5255) - XX(3681) = XX(3681)-JVS(21537)*XX(4175)-JVS(24281)*XX(4445)-JVS(40058)*XX(5244)-JVS(43514)*XX(5250)-JVS(45664)& - &*XX(5251)-JVS(51695)*XX(5255) - XX(3680) = XX(3680)-JVS(19777)*XX(3968)-JVS(43513)*XX(5250)-JVS(46636)*XX(5252)-JVS(48868)*XX(5253)-JVS(51694)& - &*XX(5255)-JVS(53397)*XX(5256) - XX(3679) = XX(3679)-JVS(17921)*XX(3742)-JVS(43512)*XX(5250)-JVS(46635)*XX(5252)-JVS(48867)*XX(5253)-JVS(51693)& - &*XX(5255)-JVS(53396)*XX(5256) - XX(3678) = XX(3678)-JVS(19341)*XX(3916)-JVS(43511)*XX(5250)-JVS(46634)*XX(5252)-JVS(48866)*XX(5253)-JVS(51692)& - &*XX(5255)-JVS(53395)*XX(5256) - XX(3677) = XX(3677)-JVS(19290)*XX(3911)-JVS(43510)*XX(5250)-JVS(46633)*XX(5252)-JVS(48865)*XX(5253)-JVS(51691)& - &*XX(5255)-JVS(53394)*XX(5256) - XX(3676) = XX(3676)-JVS(22117)*XX(4231)-JVS(43509)*XX(5250)-JVS(46632)*XX(5252)-JVS(48864)*XX(5253)-JVS(51690)& - &*XX(5255)-JVS(53393)*XX(5256) - XX(3675) = XX(3675)-JVS(20442)*XX(4046)-JVS(43508)*XX(5250)-JVS(46631)*XX(5252)-JVS(48863)*XX(5253)-JVS(51689)& - &*XX(5255)-JVS(53392)*XX(5256) - XX(3674) = XX(3674)-JVS(19556)*XX(3941)-JVS(43507)*XX(5250)-JVS(46630)*XX(5252)-JVS(48862)*XX(5253)-JVS(51688)& - &*XX(5255)-JVS(53391)*XX(5256) - XX(3673) = XX(3673)-JVS(25945)*XX(4602)-JVS(26135)*XX(4620)-JVS(33251)*XX(5125)-JVS(43506)*XX(5250)-JVS(45663)& - &*XX(5251)-JVS(51687)*XX(5255) - XX(3672) = XX(3672)-JVS(26940)*XX(4693)-JVS(37473)*XX(5222)-JVS(43505)*XX(5250)-JVS(45662)*XX(5251)-JVS(48861)& - &*XX(5253)-JVS(51686)*XX(5255) - XX(3671) = XX(3671)-JVS(34384)*XX(5160)-JVS(43504)*XX(5250)-JVS(46629)*XX(5252)-JVS(48860)*XX(5253)-JVS(51685)& - &*XX(5255)-JVS(53390)*XX(5256) - XX(3670) = XX(3670)-JVS(31840)*XX(5049)-JVS(43503)*XX(5250)-JVS(46628)*XX(5252)-JVS(48859)*XX(5253)-JVS(51684)& - &*XX(5255)-JVS(53389)*XX(5256) - XX(3669) = XX(3669)-JVS(26463)*XX(4651)-JVS(43502)*XX(5250)-JVS(46627)*XX(5252)-JVS(48858)*XX(5253)-JVS(51683)& - &*XX(5255)-JVS(53388)*XX(5256) - XX(3668) = XX(3668)-JVS(24790)*XX(4493)-JVS(43501)*XX(5250)-JVS(46626)*XX(5252)-JVS(48857)*XX(5253)-JVS(51682)& - &*XX(5255)-JVS(53387)*XX(5256) - XX(3667) = XX(3667)-JVS(19926)*XX(3986)-JVS(43500)*XX(5250)-JVS(46625)*XX(5252)-JVS(48856)*XX(5253)-JVS(51681)& - &*XX(5255)-JVS(53386)*XX(5256) - XX(3666) = XX(3666)-JVS(26101)*XX(4618)-JVS(39035)*XX(5233)-JVS(43499)*XX(5250)-JVS(45661)*XX(5251)-JVS(48855)& - &*XX(5253)-JVS(51680)*XX(5255) - XX(3665) = XX(3665)-JVS(17323)*XX(3666)-JVS(21342)*XX(4152)-JVS(43498)*XX(5250)-JVS(46624)*XX(5252)-JVS(48854)& - &*XX(5253)-JVS(51679)*XX(5255)-JVS(53385)*XX(5256) - XX(3664) = XX(3664)-JVS(23554)*XX(4379)-JVS(29948)*XX(4938)-JVS(40057)*XX(5244)-JVS(43497)*XX(5250)-JVS(51678)& - &*XX(5255) - XX(3663) = XX(3663)-JVS(17307)*XX(3664)-JVS(39034)*XX(5233)-JVS(43496)*XX(5250)-JVS(46623)*XX(5252)-JVS(48853)& - &*XX(5253)-JVS(51677)*XX(5255)-JVS(53384)*XX(5256) - XX(3662) = XX(3662)-JVS(28998)*XX(4866)-JVS(34526)*XX(5161)-JVS(36385)*XX(5201)-JVS(43495)*XX(5250)-JVS(45660)& - &*XX(5251)-JVS(51676)*XX(5255)-JVS(53383)*XX(5256) - XX(3661) = XX(3661)-JVS(23517)*XX(4375)-JVS(23528)*XX(4376)-JVS(43494)*XX(5250)-JVS(45659)*XX(5251)-JVS(48852)& - &*XX(5253)-JVS(51675)*XX(5255)-JVS(53382)*XX(5256) - XX(3660) = XX(3660)-JVS(29726)*XX(4923)-JVS(35843)*XX(5193)-JVS(36384)*XX(5201)-JVS(39033)*XX(5233)-JVS(43493)& - &*XX(5250)-JVS(48851)*XX(5253)-JVS(53381)*XX(5256) - XX(3659) = XX(3659)-JVS(21569)*XX(4178)-JVS(33631)*XX(5139)-JVS(43492)*XX(5250)-JVS(46622)*XX(5252)-JVS(48850)& - &*XX(5253)-JVS(51674)*XX(5255)-JVS(53380)*XX(5256) - XX(3658) = XX(3658)-JVS(31839)*XX(5049)-JVS(31851)*XX(5050)-JVS(43491)*XX(5250)-JVS(46621)*XX(5252)-JVS(48849)& - &*XX(5253)-JVS(51673)*XX(5255)-JVS(53379)*XX(5256) - XX(3657) = XX(3657)-JVS(20086)*XX(4005)-JVS(20902)*XX(4100)-JVS(36383)*XX(5201)-JVS(43490)*XX(5250)-JVS(45658)& - &*XX(5251)-JVS(51672)*XX(5255)-JVS(53378)*XX(5256) - XX(3656) = XX(3656)-JVS(26100)*XX(4618)-JVS(35223)*XX(5183)-JVS(35842)*XX(5193)-JVS(43489)*XX(5250) - XX(3655) = XX(3655)-JVS(20044)*XX(4000)-JVS(21243)*XX(4139)-JVS(36382)*XX(5201)-JVS(43488)*XX(5250)-JVS(45657)& - &*XX(5251)-JVS(51671)*XX(5255)-JVS(53377)*XX(5256) - XX(3654) = XX(3654)-JVS(29718)*XX(4922)-JVS(35841)*XX(5193)-JVS(36381)*XX(5201)-JVS(39032)*XX(5233)-JVS(43487)& - &*XX(5250)-JVS(48848)*XX(5253)-JVS(53376)*XX(5256) - XX(3653) = XX(3653)-JVS(18289)*XX(3784)-JVS(33212)*XX(5124)-JVS(34119)*XX(5153)-JVS(36023)*XX(5194)-JVS(43486)& - &*XX(5250)-JVS(45656)*XX(5251)-JVS(51670)*XX(5255) - XX(3652) = XX(3652)-JVS(37876)*XX(5228)-JVS(38383)*XX(5231)-JVS(40056)*XX(5244)-JVS(45655)*XX(5251) - XX(3651) = XX(3651)-JVS(33917)*XX(5145)-JVS(37985)*XX(5229)-JVS(39517)*XX(5238)-JVS(43485)*XX(5250) - XX(3650) = XX(3650)-JVS(21568)*XX(4178)-JVS(33630)*XX(5139)-JVS(43484)*XX(5250)-JVS(46620)*XX(5252)-JVS(48847)& - &*XX(5253)-JVS(51669)*XX(5255)-JVS(53375)*XX(5256) - XX(3649) = XX(3649)-JVS(18220)*XX(3776)-JVS(21666)*XX(4187)-JVS(36380)*XX(5201)-JVS(43483)*XX(5250)-JVS(45654)& - &*XX(5251)-JVS(51668)*XX(5255)-JVS(53374)*XX(5256) - XX(3648) = XX(3648)-JVS(27002)*XX(4694)-JVS(37472)*XX(5222)-JVS(43482)*XX(5250)-JVS(46619)*XX(5252)-JVS(48846)& - &*XX(5253)-JVS(51667)*XX(5255)-JVS(53373)*XX(5256) - XX(3647) = XX(3647)-JVS(34155)*XX(5156)-JVS(40055)*XX(5244)-JVS(43481)*XX(5250)-JVS(45653)*XX(5251) - XX(3646) = XX(3646)-JVS(25364)*XX(4541)-JVS(27534)*XX(4747)-JVS(29031)*XX(4869)-JVS(30040)*XX(4940)-JVS(38382)& - &*XX(5231)-JVS(43480)*XX(5250)-JVS(54856)*XX(5258) - XX(3645) = XX(3645)-JVS(20387)*XX(4041)-JVS(21601)*XX(4181)-JVS(36379)*XX(5201)-JVS(43479)*XX(5250)-JVS(45652)& - &*XX(5251)-JVS(51666)*XX(5255)-JVS(53372)*XX(5256) - XX(3644) = XX(3644)-JVS(31601)*XX(5038)-JVS(43478)*XX(5250)-JVS(45651)*XX(5251)-JVS(51665)*XX(5255) - XX(3643) = XX(3643)-JVS(25841)*XX(4591)-JVS(25855)*XX(4592)-JVS(36378)*XX(5201)-JVS(43477)*XX(5250)-JVS(45650)& - &*XX(5251)-JVS(51664)*XX(5255)-JVS(53371)*XX(5256) - XX(3642) = XX(3642)-JVS(23236)*XX(4343)-JVS(33339)*XX(5128)-JVS(36056)*XX(5195)-JVS(43476)*XX(5250) - XX(3641) = XX(3641)-JVS(27001)*XX(4694)-JVS(37471)*XX(5222)-JVS(43475)*XX(5250)-JVS(46618)*XX(5252)-JVS(48845)& - &*XX(5253)-JVS(51663)*XX(5255)-JVS(53370)*XX(5256) - XX(3640) = XX(3640)-JVS(20359)*XX(4038)-JVS(23199)*XX(4338)-JVS(36377)*XX(5201)-JVS(43474)*XX(5250)-JVS(45649)& - &*XX(5251)-JVS(51662)*XX(5255)-JVS(53369)*XX(5256) - XX(3639) = XX(3639)-JVS(28825)*XX(4853)-JVS(43473)*XX(5250)-JVS(45648)*XX(5251)-JVS(51661)*XX(5255) - XX(3638) = XX(3638)-JVS(31628)*XX(5039)-JVS(43472)*XX(5250) - XX(3637) = XX(3637)-JVS(20581)*XX(4060)-JVS(37875)*XX(5228)-JVS(43471)*XX(5250)-JVS(46617)*XX(5252)-JVS(48844)& - &*XX(5253)-JVS(51660)*XX(5255)-JVS(53368)*XX(5256) - XX(3636) = XX(3636)-JVS(18110)*XX(3763)-JVS(23498)*XX(4373)-JVS(43470)*XX(5250)-JVS(46616)*XX(5252)-JVS(48843)& - &*XX(5253)-JVS(51659)*XX(5255)-JVS(53367)*XX(5256) - XX(3635) = XX(3635)-JVS(34140)*XX(5155)-JVS(35492)*XX(5188)-JVS(38823)*XX(5232)-JVS(43469)*XX(5250)-JVS(45647)& - &*XX(5251)-JVS(48842)*XX(5253)-JVS(51658)*XX(5255) - XX(3634) = XX(3634)-JVS(32173)*XX(5069)-JVS(34686)*XX(5168)-JVS(43468)*XX(5250)-JVS(46615)*XX(5252)-JVS(48841)& - &*XX(5253)-JVS(51657)*XX(5255)-JVS(53366)*XX(5256) - XX(3633) = XX(3633)-JVS(24396)*XX(4456)-JVS(24903)*XX(4503)-JVS(36376)*XX(5201)-JVS(43467)*XX(5250)-JVS(45646)& - &*XX(5251)-JVS(51656)*XX(5255)-JVS(53365)*XX(5256) - XX(3632) = XX(3632)-JVS(27000)*XX(4694)-JVS(33629)*XX(5139)-JVS(43466)*XX(5250)-JVS(46614)*XX(5252)-JVS(48840)& - &*XX(5253)-JVS(51655)*XX(5255)-JVS(53364)*XX(5256) - XX(3631) = XX(3631)-JVS(26999)*XX(4694)-JVS(33628)*XX(5139)-JVS(43465)*XX(5250)-JVS(46613)*XX(5252)-JVS(48839)& - &*XX(5253)-JVS(51654)*XX(5255)-JVS(53363)*XX(5256) - XX(3630) = XX(3630)-JVS(34719)*XX(5170)-JVS(43464)*XX(5250)-JVS(45645)*XX(5251)-JVS(51653)*XX(5255) - XX(3629) = XX(3629)-JVS(25325)*XX(4538)-JVS(33338)*XX(5128)-JVS(40480)*XX(5246)-JVS(43463)*XX(5250) - XX(3628) = XX(3628)-JVS(31560)*XX(5036)-JVS(35491)*XX(5188)-JVS(38822)*XX(5232)-JVS(43462)*XX(5250)-JVS(45644)& - &*XX(5251)-JVS(48838)*XX(5253)-JVS(51652)*XX(5255) - XX(3627) = XX(3627)-JVS(17306)*XX(3664)-JVS(39031)*XX(5233)-JVS(43461)*XX(5250)-JVS(46612)*XX(5252)-JVS(48837)& - &*XX(5253)-JVS(51651)*XX(5255)-JVS(53362)*XX(5256) - XX(3626) = XX(3626)-JVS(43460)*XX(5250)-JVS(45643)*XX(5251)-JVS(51650)*XX(5255) - XX(3625) = XX(3625)-JVS(17050)*XX(3635)-JVS(25116)*XX(4519)-JVS(32258)*XX(5074)-JVS(35490)*XX(5188)-JVS(39030)& - &*XX(5233)-JVS(39249)*XX(5234)-JVS(43459)*XX(5250)-JVS(48836)*XX(5253)-JVS(51649)*XX(5255) - XX(3624) = XX(3624)-JVS(30720)*XX(4985)-JVS(31168)*XX(5011)-JVS(31479)*XX(5031)-JVS(32535)*XX(5089)-JVS(37470)& - &*XX(5222)-JVS(40054)*XX(5244)-JVS(43458)*XX(5250)-JVS(45642)*XX(5251)-JVS(51648)*XX(5255) - XX(3623) = XX(3623)-JVS(19869)*XX(3979)-JVS(27923)*XX(4780)-JVS(30949)*XX(5000)-JVS(34383)*XX(5160)-JVS(37469)& - &*XX(5222)-JVS(39777)*XX(5243)-JVS(40053)*XX(5244)-JVS(43457)*XX(5250)-JVS(51647)*XX(5255) - XX(3622) = XX(3622)-JVS(20768)*XX(4084)-JVS(24663)*XX(4483)-JVS(26251)*XX(4630)-JVS(30504)*XX(4971)-JVS(40052)& - &*XX(5244)-JVS(43456)*XX(5250)-JVS(45641)*XX(5251)-JVS(51646)*XX(5255)-JVS(54855)*XX(5258) - XX(3621) = XX(3621)-JVS(18904)*XX(3864)-JVS(21110)*XX(4123)-JVS(25618)*XX(4565)-JVS(31375)*XX(5024)-JVS(32561)& - &*XX(5091)-JVS(38381)*XX(5231)-JVS(38821)*XX(5232)-JVS(43455)*XX(5250)-JVS(51645)*XX(5255) - XX(3620) = XX(3620)-JVS(23439)*XX(4366)-JVS(25913)*XX(4599)-JVS(31347)*XX(5023)-JVS(38380)*XX(5231)-JVS(39248)& - &*XX(5234)-JVS(43454)*XX(5250)-JVS(45640)*XX(5251)-JVS(48835)*XX(5253)-JVS(51644)*XX(5255) - XX(3619) = XX(3619)-JVS(26043)*XX(4612)-JVS(33778)*XX(5142)-JVS(43453)*XX(5250) - XX(3618) = XX(3618)-JVS(21126)*XX(4125)-JVS(30651)*XX(4982)-JVS(30672)*XX(4983)-JVS(32740)*XX(5100)-JVS(37468)& - &*XX(5222)-JVS(40051)*XX(5244)-JVS(43452)*XX(5250)-JVS(45639)*XX(5251)-JVS(51643)*XX(5255) - XX(3617) = XX(3617)-JVS(30039)*XX(4940)-JVS(43451)*XX(5250) - XX(3616) = XX(3616)-JVS(32958)*XX(5110)-JVS(34212)*XX(5158)-JVS(35840)*XX(5193)-JVS(43450)*XX(5250)-JVS(51642)& - &*XX(5255) - XX(3615) = XX(3615)-JVS(22196)*XX(4239)-JVS(23689)*XX(4392)-JVS(40050)*XX(5244)-JVS(45638)*XX(5251)-JVS(51641)& - &*XX(5255) - XX(3614) = XX(3614)-JVS(27343)*XX(4729)-JVS(30988)*XX(5001)-JVS(36984)*XX(5210)-JVS(37467)*XX(5222)-JVS(51640)& - &*XX(5255) - XX(3613) = XX(3613)-JVS(37043)*XX(5211)-JVS(39544)*XX(5239)-JVS(40457)*XX(5245)-JVS(43449)*XX(5250)-JVS(51639)& - &*XX(5255) - XX(3612) = XX(3612)-JVS(22440)*XX(4263)-JVS(33015)*XX(5113)-JVS(43448)*XX(5250)-JVS(45637)*XX(5251)-JVS(51638)& - &*XX(5255) - XX(3611) = XX(3611)-JVS(31346)*XX(5023)-JVS(32340)*XX(5080)-JVS(40049)*XX(5244)-JVS(45636)*XX(5251)-JVS(51637)& - &*XX(5255) - XX(3610) = XX(3610)-JVS(27319)*XX(4728)-JVS(27342)*XX(4729)-JVS(30987)*XX(5001)-JVS(33627)*XX(5139)-JVS(51636)& - &*XX(5255) - XX(3609) = XX(3609)-JVS(28811)*XX(4852)-JVS(33777)*XX(5142)-JVS(34525)*XX(5161)-JVS(35222)*XX(5183)-JVS(43447)& - &*XX(5250) - XX(3608) = XX(3608)-JVS(28796)*XX(4851)-JVS(38820)*XX(5232)-JVS(39247)*XX(5234)-JVS(43446)*XX(5250)-JVS(51635)& - &*XX(5255) - XX(3607) = XX(3607)-JVS(27759)*XX(4765)-JVS(33211)*XX(5124)-JVS(36022)*XX(5194)-JVS(43445)*XX(5250)-JVS(45635)& - &*XX(5251) - XX(3606) = XX(3606)-JVS(25708)*XX(4576)-JVS(27113)*XX(4708)-JVS(27811)*XX(4769)-JVS(39029)*XX(5233)-JVS(51634)& - &*XX(5255) - XX(3605) = XX(3605)-JVS(27341)*XX(4729)-JVS(29569)*XX(4913)-JVS(36983)*XX(5210)-JVS(37466)*XX(5222)-JVS(51633)& - &*XX(5255) - XX(3604) = XX(3604)-JVS(25383)*XX(4543)-JVS(37874)*XX(5228)-JVS(43444)*XX(5250)-JVS(45634)*XX(5251)-JVS(51632)& - &*XX(5255) - XX(3603) = XX(3603)-JVS(25502)*XX(4553)-JVS(30948)*XX(5000)-JVS(43443)*XX(5250)-JVS(45633)*XX(5251)-JVS(51631)& - &*XX(5255) - XX(3602) = XX(3602)-JVS(23688)*XX(4392)-JVS(35376)*XX(5184)-JVS(40048)*XX(5244)-JVS(43442)*XX(5250)-JVS(51630)& - &*XX(5255) - XX(3601) = XX(3601)-JVS(39246)*XX(5234)-JVS(43441)*XX(5250)-JVS(45632)*XX(5251)-JVS(48834)*XX(5253)-JVS(51629)& - &*XX(5255) - XX(3600) = XX(3600)-JVS(22568)*XX(4277)-JVS(23774)*XX(4401)-JVS(29873)*XX(4933)-JVS(33626)*XX(5139)-JVS(51628)& - &*XX(5255) - XX(3599) = XX(3599)-JVS(27855)*XX(4773)-JVS(30741)*XX(4986)-JVS(37465)*XX(5222)-JVS(43440)*XX(5250)-JVS(51627)& - &*XX(5255) - XX(3598) = XX(3598)-JVS(20978)*XX(4108)-JVS(34382)*XX(5160)-JVS(38379)*XX(5231)-JVS(48833)*XX(5253)-JVS(51626)& - &*XX(5255) - XX(3597) = XX(3597)-JVS(24076)*XX(4426)-JVS(28091)*XX(4796)-JVS(43439)*XX(5250)-JVS(48832)*XX(5253)-JVS(51625)& - &*XX(5255) - XX(3596) = XX(3596)-JVS(24075)*XX(4426)-JVS(36375)*XX(5201)-JVS(43438)*XX(5250)-JVS(45631)*XX(5251)-JVS(48831)& - &*XX(5253) - XX(3595) = XX(3595)-JVS(20267)*XX(4026)-JVS(36210)*XX(5199)-JVS(40047)*XX(5244)-JVS(43437)*XX(5250)-JVS(45630)& - &*XX(5251) - XX(3594) = XX(3594)-JVS(19114)*XX(3889)-JVS(23167)*XX(4334)-JVS(32070)*XX(5062)-JVS(40046)*XX(5244)-JVS(43436)& - &*XX(5250) - XX(3593) = XX(3593)-JVS(23110)*XX(4329)-JVS(31478)*XX(5031)-JVS(40045)*XX(5244)-JVS(43435)*XX(5250)-JVS(45629)& - &*XX(5251) - XX(3592) = XX(3592)-JVS(21031)*XX(4114)-JVS(34932)*XX(5178)-JVS(38378)*XX(5231)-JVS(48830)*XX(5253)-JVS(51624)& - &*XX(5255) - XX(3591) = XX(3591)-JVS(21263)*XX(4142)-JVS(37141)*XX(5214)-JVS(38377)*XX(5231)-JVS(43434)*XX(5250)-JVS(51623)& - &*XX(5255) - XX(3590) = XX(3590)-JVS(20249)*XX(4024)-JVS(26939)*XX(4693)-JVS(43433)*XX(5250)-JVS(45628)*XX(5251)-JVS(51622)& - &*XX(5255) - XX(3589) = XX(3589)-JVS(27242)*XX(4721)-JVS(28440)*XX(4823)-JVS(36982)*XX(5210)-JVS(37464)*XX(5222)-JVS(51621)& - &*XX(5255) - XX(3588) = XX(3588)-JVS(27241)*XX(4721)-JVS(27318)*XX(4728)-JVS(28439)*XX(4823)-JVS(33625)*XX(5139)-JVS(51620)& - &*XX(5255) - XX(3587) = XX(3587)-JVS(25232)*XX(4530)-JVS(35020)*XX(5180)-JVS(43432)*XX(5250)-JVS(45627)*XX(5251)-JVS(51619)& - &*XX(5255) - XX(3586) = XX(3586)-JVS(29500)*XX(4909)-JVS(38376)*XX(5231)-JVS(39351)*XX(5235)-JVS(39709)*XX(5242)-JVS(48829)& - &*XX(5253) - XX(3585) = XX(3585)-JVS(28701)*XX(4845)-JVS(35839)*XX(5193)-JVS(38375)*XX(5231)-JVS(48828)*XX(5253)-JVS(51618)& - &*XX(5255) - XX(3584) = XX(3584)-JVS(25433)*XX(4547)-JVS(30155)*XX(4947)-JVS(36981)*XX(5210)-JVS(37463)*XX(5222)-JVS(51617)& - &*XX(5255) - XX(3583) = XX(3583)-JVS(25873)*XX(4594)-JVS(27642)*XX(4755)-JVS(31514)*XX(5032)-JVS(40044)*XX(5244)-JVS(43431)& - &*XX(5250) - XX(3582) = XX(3582)-JVS(29424)*XX(4904)-JVS(37462)*XX(5222)-JVS(43430)*XX(5250)-JVS(45626)*XX(5251)-JVS(51616)& - &*XX(5255) - XX(3581) = XX(3581)-JVS(23773)*XX(4401)-JVS(25652)*XX(4569)-JVS(30986)*XX(5001)-JVS(33624)*XX(5139)-JVS(51615)& - &*XX(5255) - XX(3580) = XX(3580)-JVS(30862)*XX(4995)-JVS(30888)*XX(4996)-JVS(37140)*XX(5214)-JVS(43429)*XX(5250)-JVS(51614)& - &*XX(5255) - XX(3579) = XX(3579)-JVS(24647)*XX(4482)-JVS(28090)*XX(4796)-JVS(43428)*XX(5250)-JVS(48827)*XX(5253)-JVS(51613)& - &*XX(5255) - XX(3578) = XX(3578)-JVS(19365)*XX(3918)-JVS(29947)*XX(4938)-JVS(37461)*XX(5222)-JVS(40043)*XX(5244)-JVS(51612)& - &*XX(5255) - XX(3577) = XX(3577)-JVS(29499)*XX(4909)-JVS(35838)*XX(5193)-JVS(38374)*XX(5231)-JVS(48826)*XX(5253)-JVS(51611)& - &*XX(5255) - XX(3576) = XX(3576)-JVS(27112)*XX(4708)-JVS(27240)*XX(4721)-JVS(28438)*XX(4823)-JVS(39028)*XX(5233)-JVS(51610)& - &*XX(5255) - XX(3575) = XX(3575)-JVS(21408)*XX(4160)-JVS(36822)*XX(5203)-JVS(38373)*XX(5231)-JVS(48825)*XX(5253)-JVS(51609)& - &*XX(5255) - XX(3574) = XX(3574)-JVS(24646)*XX(4482)-JVS(36374)*XX(5201)-JVS(43427)*XX(5250)-JVS(45625)*XX(5251)-JVS(48824)& - &*XX(5253) - XX(3573) = XX(3573)-JVS(25432)*XX(4547)-JVS(27111)*XX(4708)-JVS(30154)*XX(4947)-JVS(39027)*XX(5233)-JVS(51608)& - &*XX(5255) - XX(3572) = XX(3572)-JVS(21527)*XX(4174)-JVS(38043)*XX(5230)-JVS(38372)*XX(5231)-JVS(48823)*XX(5253)-JVS(51607)& - &*XX(5255) - XX(3571) = XX(3571)-JVS(22477)*XX(4267)-JVS(25944)*XX(4602)-JVS(43426)*XX(5250)-JVS(45624)*XX(5251)-JVS(51606)& - &*XX(5255) - XX(3570) = XX(3570)-JVS(27317)*XX(4728)-JVS(27340)*XX(4729)-JVS(29568)*XX(4913)-JVS(33623)*XX(5139)-JVS(51605)& - &*XX(5255) - XX(3569) = XX(3569)-JVS(19364)*XX(3918)-JVS(25651)*XX(4569)-JVS(30985)*XX(5001)-JVS(37460)*XX(5222)-JVS(51604)& - &*XX(5255) - XX(3568) = XX(3568)-JVS(46611)*XX(5252)-JVS(48822)*XX(5253)-JVS(50217)*XX(5254)-JVS(53361)*XX(5256)-JVS(54854)& - &*XX(5258) - XX(3567) = XX(3567)-JVS(26250)*XX(4630)-JVS(30153)*XX(4947)-JVS(36980)*XX(5210)-JVS(37459)*XX(5222)-JVS(51603)& - &*XX(5255) - XX(3566) = XX(3566)-JVS(37458)*XX(5222)-JVS(39026)*XX(5233)-JVS(40042)*XX(5244)-JVS(45623)*XX(5251)-JVS(51602)& - &*XX(5255) - XX(3565) = XX(3565)-JVS(27316)*XX(4728)-JVS(33622)*XX(5139)-JVS(37457)*XX(5222)-JVS(40041)*XX(5244)-JVS(51601)& - &*XX(5255) - XX(3564) = XX(3564)-JVS(38371)*XX(5231)-JVS(40517)*XX(5247)-JVS(43425)*XX(5250)-JVS(51600)*XX(5255) - XX(3563) = XX(3563)-JVS(22738)*XX(4294)-JVS(31020)*XX(5003)-JVS(39025)*XX(5233)-JVS(43424)*XX(5250)-JVS(48821)& - &*XX(5253)-JVS(51599)*XX(5255) - XX(3562) = XX(3562)-JVS(20430)*XX(4045)-JVS(43423)*XX(5250)-JVS(46610)*XX(5252)-JVS(48820)*XX(5253)-JVS(51598)& - &*XX(5255)-JVS(53360)*XX(5256) - XX(3561) = XX(3561)-JVS(28867)*XX(4856)-JVS(37984)*XX(5229)-JVS(38819)*XX(5232)-JVS(43422)*XX(5250) - XX(3560) = XX(3560)-JVS(20169)*XX(4014)-JVS(24710)*XX(4487)-JVS(26938)*XX(4693)-JVS(36373)*XX(5201)-JVS(43421)& - &*XX(5250)-JVS(51597)*XX(5255)-JVS(53359)*XX(5256)-JVS(54853)*XX(5258) - XX(3559) = XX(3559)-JVS(29348)*XX(4898)-JVS(29532)*XX(4910)-JVS(38370)*XX(5231)-JVS(43420)*XX(5250)-JVS(45622)& - &*XX(5251)-JVS(51596)*XX(5255) - XX(3558) = XX(3558)-JVS(27593)*XX(4751)-JVS(28529)*XX(4831)-JVS(37873)*XX(5228)-JVS(43419)*XX(5250) - XX(3557) = XX(3557)-JVS(39444)*XX(5237)-JVS(43418)*XX(5250)-JVS(45621)*XX(5251)-JVS(51595)*XX(5255) - XX(3556) = XX(3556)-JVS(24630)*XX(4481)-JVS(32685)*XX(5098)-JVS(40040)*XX(5244)-JVS(43417)*XX(5250) - XX(3555) = XX(3555)-JVS(30671)*XX(4983)-JVS(31060)*XX(5005)-JVS(37456)*XX(5222)-JVS(43416)*XX(5250)-JVS(48819)& - &*XX(5253)-JVS(51594)*XX(5255) - XX(3554) = XX(3554)-JVS(26125)*XX(4619)-JVS(43415)*XX(5250)-JVS(46609)*XX(5252)-JVS(48818)*XX(5253)-JVS(51593)& - &*XX(5255)-JVS(53358)*XX(5256) - XX(3553) = XX(3553)-JVS(23962)*XX(4416)-JVS(24620)*XX(4480)-JVS(24629)*XX(4481)-JVS(43414)*XX(5250)-JVS(53357)& - &*XX(5256)-JVS(54852)*XX(5258) - XX(3552) = XX(3552)-JVS(26536)*XX(4658)-JVS(30314)*XX(4958)-JVS(34821)*XX(5173)-JVS(35019)*XX(5180)-JVS(35489)& - &*XX(5188)-JVS(43413)*XX(5250)-JVS(45620)*XX(5251)-JVS(51592)*XX(5255) - XX(3551) = XX(3551)-JVS(16684)*XX(3590)-JVS(23812)*XX(4403)-JVS(24860)*XX(4499)-JVS(36372)*XX(5201)-JVS(43412)& - &*XX(5250)-JVS(51591)*XX(5255)-JVS(53356)*XX(5256)-JVS(54851)*XX(5258) - XX(3550) = XX(3550)-JVS(32339)*XX(5080)-JVS(33464)*XX(5134)-JVS(35488)*XX(5188)-JVS(37455)*XX(5222)-JVS(38818)& - &*XX(5232)-JVS(43411)*XX(5250)-JVS(45619)*XX(5251)-JVS(51590)*XX(5255) - XX(3549) = XX(3549)-JVS(22084)*XX(4228)-JVS(37454)*XX(5222)-JVS(39245)*XX(5234)-JVS(43410)*XX(5250)-JVS(48817)& - &*XX(5253)-JVS(51589)*XX(5255) - XX(3548) = XX(3548)-JVS(24110)*XX(4429)-JVS(27140)*XX(4710)-JVS(28777)*XX(4850)-JVS(33539)*XX(5137)-JVS(43409)& - &*XX(5250)-JVS(51588)*XX(5255) - XX(3547) = XX(3547)-JVS(28204)*XX(4801)-JVS(43408)*XX(5250)-JVS(45618)*XX(5251)-JVS(51587)*XX(5255) - XX(3546) = XX(3546)-JVS(36371)*XX(5201)-JVS(40039)*XX(5244)-JVS(43407)*XX(5250)-JVS(45617)*XX(5251)-JVS(51586)& - &*XX(5255)-JVS(53355)*XX(5256) - XX(3545) = XX(3545)-JVS(16683)*XX(3590)-JVS(25065)*XX(4514)-JVS(28089)*XX(4796)-JVS(36370)*XX(5201)-JVS(43406)& - &*XX(5250)-JVS(51585)*XX(5255)-JVS(53354)*XX(5256)-JVS(54850)*XX(5258) - XX(3544) = XX(3544)-JVS(24018)*XX(4421)-JVS(30115)*XX(4944)-JVS(33538)*XX(5137)-JVS(34634)*XX(5165)-JVS(43405)& - &*XX(5250)-JVS(51584)*XX(5255) - XX(3543) = XX(3543)-JVS(26165)*XX(4622)-JVS(36369)*XX(5201)-JVS(43404)*XX(5250)-JVS(45616)*XX(5251)-JVS(51583)& - &*XX(5255)-JVS(53353)*XX(5256) - XX(3542) = XX(3542)-JVS(29250)*XX(4889)-JVS(36918)*XX(5208)-JVS(38817)*XX(5232)-JVS(43403)*XX(5250) - XX(3541) = XX(3541)-JVS(24039)*XX(4423)-JVS(43402)*XX(5250)-JVS(48816)*XX(5253) - XX(3540) = XX(3540)-JVS(27086)*XX(4705)-JVS(33916)*XX(5145)-JVS(35837)*XX(5193)-JVS(39350)*XX(5235)-JVS(39708)& - &*XX(5242)-JVS(43401)*XX(5250)-JVS(45615)*XX(5251)-JVS(51582)*XX(5255) - XX(3539) = XX(3539)-JVS(27495)*XX(4743)-JVS(43400)*XX(5250)-JVS(46608)*XX(5252)-JVS(48815)*XX(5253)-JVS(51581)& - &*XX(5255)-JVS(53352)*XX(5256) - XX(3538) = XX(3538)-JVS(24723)*XX(4488)-JVS(43399)*XX(5250)-JVS(46607)*XX(5252)-JVS(48814)*XX(5253)-JVS(51580)& - &*XX(5255)-JVS(53351)*XX(5256) - XX(3537) = XX(3537)-JVS(22540)*XX(4274)-JVS(33537)*XX(5137)-JVS(35836)*XX(5193)-JVS(40038)*XX(5244)-JVS(43398)& - &*XX(5250)-JVS(51579)*XX(5255) - XX(3536) = XX(3536)-JVS(34381)*XX(5160)-JVS(40037)*XX(5244)-JVS(43397)*XX(5250) - XX(3535) = XX(3535)-JVS(26658)*XX(4669)-JVS(39609)*XX(5241)-JVS(40036)*XX(5244)-JVS(43396)*XX(5250) - XX(3534) = XX(3534)-JVS(20143)*XX(4012)-JVS(43395)*XX(5250)-JVS(46606)*XX(5252)-JVS(48813)*XX(5253)-JVS(51578)& - &*XX(5255)-JVS(53350)*XX(5256) - XX(3533) = XX(3533)-JVS(28291)*XX(4809)-JVS(34380)*XX(5160)-JVS(39024)*XX(5233)-JVS(39349)*XX(5235)-JVS(43394)& - &*XX(5250)-JVS(45614)*XX(5251)-JVS(48812)*XX(5253)-JVS(51577)*XX(5255) - XX(3532) = XX(3532)-JVS(23861)*XX(4406)-JVS(31059)*XX(5005)-JVS(43393)*XX(5250)-JVS(48811)*XX(5253)-JVS(51576)& - &*XX(5255)-JVS(53349)*XX(5256) - XX(3531) = XX(3531)-JVS(24313)*XX(4448)-JVS(43392)*XX(5250)-JVS(46605)*XX(5252)-JVS(48810)*XX(5253)-JVS(51575)& - &*XX(5255)-JVS(53348)*XX(5256) - XX(3530) = XX(3530)-JVS(24289)*XX(4446)-JVS(40035)*XX(5244)-JVS(40479)*XX(5246)-JVS(43391)*XX(5250) - XX(3529) = XX(3529)-JVS(33448)*XX(5133)-JVS(34789)*XX(5172)-JVS(38369)*XX(5231)-JVS(43390)*XX(5250)-JVS(45613)& - &*XX(5251)-JVS(48809)*XX(5253) - XX(3528) = XX(3528)-JVS(22157)*XX(4235)-JVS(30461)*XX(4967)-JVS(31957)*XX(5057)-JVS(32774)*XX(5101)-JVS(33362)& - &*XX(5129)-JVS(37453)*XX(5222)-JVS(40034)*XX(5244)-JVS(43389)*XX(5250) - XX(3527) = XX(3527)-JVS(18427)*XX(3802)-JVS(43388)*XX(5250)-JVS(46604)*XX(5252)-JVS(48808)*XX(5253)-JVS(51574)& - &*XX(5255)-JVS(53347)*XX(5256) - XX(3526) = XX(3526)-JVS(34084)*XX(5152)-JVS(36368)*XX(5201)-JVS(43387)*XX(5250)-JVS(45612)*XX(5251)-JVS(51573)& - &*XX(5255)-JVS(53346)*XX(5256) - XX(3525) = XX(3525)-JVS(17238)*XX(3655)-JVS(43386)*XX(5250)-JVS(46603)*XX(5252)-JVS(48807)*XX(5253)-JVS(51572)& - &*XX(5255)-JVS(53345)*XX(5256) - XX(3524) = XX(3524)-JVS(19752)*XX(3965)-JVS(23587)*XX(4383)-JVS(27570)*XX(4749)-JVS(38368)*XX(5231)-JVS(39023)& - &*XX(5233)-JVS(43385)*XX(5250)-JVS(45611)*XX(5251)-JVS(51571)*XX(5255) - XX(3523) = XX(3523)-JVS(17135)*XX(3643)-JVS(43384)*XX(5250)-JVS(46602)*XX(5252)-JVS(48806)*XX(5253)-JVS(51570)& - &*XX(5255)-JVS(53344)*XX(5256) - XX(3522) = XX(3522)-JVS(24445)*XX(4461)-JVS(33250)*XX(5125)-JVS(33536)*XX(5137)-JVS(38042)*XX(5230)-JVS(43383)& - &*XX(5250)-JVS(51569)*XX(5255) - XX(3521) = XX(3521)-JVS(17286)*XX(3661)-JVS(43382)*XX(5250)-JVS(46601)*XX(5252)-JVS(48805)*XX(5253)-JVS(51568)& - &*XX(5255)-JVS(53343)*XX(5256) - XX(3520) = XX(3520)-JVS(28700)*XX(4845)-JVS(36979)*XX(5210)-JVS(43381)*XX(5250)-JVS(45610)*XX(5251)-JVS(48804)& - &*XX(5253)-JVS(51567)*XX(5255) - XX(3519) = XX(3519)-JVS(24028)*XX(4422)-JVS(24223)*XX(4440)-JVS(26657)*XX(4669)-JVS(43380)*XX(5250)-JVS(53342)& - &*XX(5256)-JVS(54849)*XX(5258) - XX(3518) = XX(3518)-JVS(23034)*XX(4322)-JVS(43379)*XX(5250)-JVS(46600)*XX(5252)-JVS(48803)*XX(5253)-JVS(51566)& - &*XX(5255)-JVS(53341)*XX(5256) - XX(3517) = XX(3517)-JVS(22300)*XX(4249)-JVS(27533)*XX(4747)-JVS(27662)*XX(4757)-JVS(33159)*XX(5122)-JVS(38367)& - &*XX(5231)-JVS(43378)*XX(5250)-JVS(54848)*XX(5258) - XX(3516) = XX(3516)-JVS(33158)*XX(5122)-JVS(43377)*XX(5250) - XX(3515) = XX(3515)-JVS(28060)*XX(4795)-JVS(30670)*XX(4983)-JVS(39022)*XX(5233)-JVS(43376)*XX(5250)-JVS(45609)& - &*XX(5251)-JVS(51565)*XX(5255) - XX(3514) = XX(3514)-JVS(32338)*XX(5080)-JVS(39244)*XX(5234)-JVS(40033)*XX(5244)-JVS(43375)*XX(5250) - XX(3513) = XX(3513)-JVS(24512)*XX(4468)-JVS(29597)*XX(4915)-JVS(36367)*XX(5201)-JVS(40032)*XX(5244)-JVS(43374)& - &*XX(5250)-JVS(53340)*XX(5256) - XX(3512) = XX(3512)-JVS(16682)*XX(3590)-JVS(25020)*XX(4509)-JVS(26937)*XX(4693)-JVS(36366)*XX(5201)-JVS(43373)& - &*XX(5250)-JVS(51564)*XX(5255)-JVS(53339)*XX(5256)-JVS(54847)*XX(5258) - XX(3511) = XX(3511)-JVS(28178)*XX(4799)-JVS(43372)*XX(5250)-JVS(46599)*XX(5252)-JVS(48802)*XX(5253)-JVS(51563)& - &*XX(5255)-JVS(53338)*XX(5256) - XX(3510) = XX(3510)-JVS(33776)*XX(5142)-JVS(36365)*XX(5201)-JVS(43371)*XX(5250)-JVS(45608)*XX(5251)-JVS(51562)& - &*XX(5255)-JVS(53337)*XX(5256) - XX(3509) = XX(3509)-JVS(17105)*XX(3640)-JVS(43370)*XX(5250)-JVS(46598)*XX(5252)-JVS(48801)*XX(5253)-JVS(51561)& - &*XX(5255)-JVS(53336)*XX(5256) - XX(3508) = XX(3508)-JVS(24541)*XX(4471)-JVS(24766)*XX(4491)-JVS(26936)*XX(4693)-JVS(36364)*XX(5201)-JVS(43369)& - &*XX(5250)-JVS(51560)*XX(5255)-JVS(53335)*XX(5256)-JVS(54846)*XX(5258) - XX(3507) = XX(3507)-JVS(17259)*XX(3657)-JVS(43368)*XX(5250)-JVS(46597)*XX(5252)-JVS(48800)*XX(5253)-JVS(51559)& - &*XX(5255)-JVS(53334)*XX(5256) - XX(3506) = XX(3506)-JVS(23811)*XX(4403)-JVS(23934)*XX(4413)-JVS(24765)*XX(4491)-JVS(36363)*XX(5201)-JVS(43367)& - &*XX(5250)-JVS(51558)*XX(5255)-JVS(53333)*XX(5256)-JVS(54845)*XX(5258) - XX(3505) = XX(3505)-JVS(23659)*XX(4390)-JVS(25752)*XX(4581)-JVS(27954)*XX(4784)-JVS(36917)*XX(5208)-JVS(40031)& - &*XX(5244)-JVS(43366)*XX(5250) - XX(3504) = XX(3504)-JVS(24174)*XX(4435)-JVS(33535)*XX(5137)-JVS(35221)*XX(5183)-JVS(35634)*XX(5191)-JVS(43365)& - &*XX(5250)-JVS(51557)*XX(5255) - XX(3503) = XX(3503)-JVS(21341)*XX(4152)-JVS(43364)*XX(5250)-JVS(46596)*XX(5252)-JVS(48799)*XX(5253)-JVS(51556)& - &*XX(5255)-JVS(53332)*XX(5256) - XX(3502) = XX(3502)-JVS(22737)*XX(4294)-JVS(33447)*XX(5133)-JVS(43363)*XX(5250)-JVS(45607)*XX(5251)-JVS(48798)& - &*XX(5253)-JVS(51555)*XX(5255) - XX(3501) = XX(3501)-JVS(16122)*XX(3514)-JVS(32337)*XX(5080)-JVS(37452)*XX(5222)-JVS(38816)*XX(5232)-JVS(39243)& - &*XX(5234)-JVS(43362)*XX(5250)-JVS(45606)*XX(5251)-JVS(51554)*XX(5255) - XX(3500) = XX(3500)-JVS(23860)*XX(4406)-JVS(28088)*XX(4796)-JVS(37451)*XX(5222)-JVS(43361)*XX(5250)-JVS(48797)& - &*XX(5253)-JVS(51553)*XX(5255) - XX(3499) = XX(3499)-JVS(20168)*XX(4014)-JVS(23785)*XX(4402)-JVS(23810)*XX(4403)-JVS(36362)*XX(5201)-JVS(43360)& - &*XX(5250)-JVS(51552)*XX(5255)-JVS(53331)*XX(5256)-JVS(54844)*XX(5258) - XX(3498) = XX(3498)-JVS(29057)*XX(4871)-JVS(33249)*XX(5125)-JVS(40030)*XX(5244)-JVS(43359)*XX(5250) - XX(3497) = XX(3497)-JVS(27390)*XX(4734)-JVS(32839)*XX(5104)-JVS(34977)*XX(5179)-JVS(43358)*XX(5250) - XX(3496) = XX(3496)-JVS(36021)*XX(5194)-JVS(43357)*XX(5250)-JVS(46595)*XX(5252)-JVS(48796)*XX(5253)-JVS(51551)& - &*XX(5255)-JVS(53330)*XX(5256) - XX(3495) = XX(3495)-JVS(16860)*XX(3611)-JVS(26203)*XX(4625)-JVS(31345)*XX(5023)-JVS(32336)*XX(5080)-JVS(40029)& - &*XX(5244)-JVS(43356)*XX(5250)-JVS(45605)*XX(5251)-JVS(51550)*XX(5255) - XX(3494) = XX(3494)-JVS(26669)*XX(4670)-JVS(26935)*XX(4693)-JVS(26998)*XX(4694)-JVS(36361)*XX(5201)-JVS(43355)& - &*XX(5250)-JVS(51549)*XX(5255)-JVS(53329)*XX(5256)-JVS(54843)*XX(5258) - XX(3493) = XX(3493)-JVS(25253)*XX(4532)-JVS(27699)*XX(4760)-JVS(33534)*XX(5137)-JVS(34558)*XX(5162)-JVS(43354)& - &*XX(5250)-JVS(51548)*XX(5255) - XX(3492) = XX(3492)-JVS(17157)*XX(3645)-JVS(43353)*XX(5250)-JVS(46594)*XX(5252)-JVS(48795)*XX(5253)-JVS(51547)& - &*XX(5255)-JVS(53328)*XX(5256) - XX(3491) = XX(3491)-JVS(23081)*XX(4326)-JVS(43352)*XX(5250)-JVS(46593)*XX(5252)-JVS(48794)*XX(5253)-JVS(51546)& - &*XX(5255)-JVS(53327)*XX(5256) - XX(3490) = XX(3490)-JVS(16775)*XX(3601)-JVS(23438)*XX(4366)-JVS(38366)*XX(5231)-JVS(39242)*XX(5234)-JVS(48793)& - &*XX(5253)-JVS(51545)*XX(5255) - XX(3489) = XX(3489)-JVS(25266)*XX(4533)-JVS(43351)*XX(5250)-JVS(46592)*XX(5252)-JVS(48792)*XX(5253)-JVS(51544)& - &*XX(5255)-JVS(53326)*XX(5256) - XX(3488) = XX(3488)-JVS(30260)*XX(4954)-JVS(36360)*XX(5201)-JVS(43350)*XX(5250)-JVS(45604)*XX(5251)-JVS(51543)& - &*XX(5255)-JVS(53325)*XX(5256) - XX(3487) = XX(3487)-JVS(27455)*XX(4740)-JVS(29360)*XX(4899)-JVS(30152)*XX(4947)-JVS(30175)*XX(4948)-JVS(40028)& - &*XX(5244)-JVS(43349)*XX(5250)-JVS(45603)*XX(5251)-JVS(51542)*XX(5255) - XX(3486) = XX(3486)-JVS(28715)*XX(4846)-JVS(30151)*XX(4947)-JVS(32739)*XX(5100)-JVS(37450)*XX(5222)-JVS(43348)& - &*XX(5250)-JVS(51541)*XX(5255) - XX(3485) = XX(3485)-JVS(17587)*XX(3700)-JVS(20024)*XX(3998)-JVS(31327)*XX(5022)-JVS(37449)*XX(5222)-JVS(39241)& - &*XX(5234)-JVS(43347)*XX(5250)-JVS(48791)*XX(5253)-JVS(51540)*XX(5255) - XX(3484) = XX(3484)-JVS(36359)*XX(5201)-JVS(40027)*XX(5244)-JVS(43346)*XX(5250)-JVS(45602)*XX(5251)-JVS(51539)& - &*XX(5255)-JVS(53324)*XX(5256) - XX(3483) = XX(3483)-JVS(25231)*XX(4530)-JVS(36358)*XX(5201)-JVS(43345)*XX(5250)-JVS(45601)*XX(5251)-JVS(51538)& - &*XX(5255)-JVS(53323)*XX(5256) - XX(3482) = XX(3482)-JVS(18567)*XX(3821)-JVS(26340)*XX(4639)-JVS(26934)*XX(4693)-JVS(36357)*XX(5201)-JVS(43344)& - &*XX(5250)-JVS(51537)*XX(5255)-JVS(53322)*XX(5256)-JVS(54842)*XX(5258) - XX(3481) = XX(3481)-JVS(17187)*XX(3649)-JVS(43343)*XX(5250)-JVS(46591)*XX(5252)-JVS(48790)*XX(5253)-JVS(51536)& - &*XX(5255)-JVS(53321)*XX(5256) - XX(3480) = XX(3480)-JVS(16892)*XX(3615)-JVS(22195)*XX(4239)-JVS(23687)*XX(4392)-JVS(27914)*XX(4779)-JVS(40026)& - &*XX(5244)-JVS(43342)*XX(5250)-JVS(45600)*XX(5251)-JVS(51535)*XX(5255) - XX(3479) = XX(3479)-JVS(37676)*XX(5223)-JVS(43341)*XX(5250)-JVS(45599)*XX(5251)-JVS(51534)*XX(5255) - XX(3478) = XX(3478)-JVS(31998)*XX(5059)-JVS(43340)*XX(5250)-JVS(48789)*XX(5253) - XX(3477) = XX(3477)-JVS(26933)*XX(4693)-JVS(36978)*XX(5210)-JVS(39021)*XX(5233)-JVS(43339)*XX(5250)-JVS(48788)& - &*XX(5253)-JVS(51533)*XX(5255) - XX(3476) = XX(3476)-JVS(30669)*XX(4983)-JVS(32738)*XX(5100)-JVS(37448)*XX(5222)-JVS(40025)*XX(5244)-JVS(43338)& - &*XX(5250)-JVS(51532)*XX(5255) - XX(3475) = XX(3475)-JVS(16617)*XX(3582)-JVS(27854)*XX(4773)-JVS(30668)*XX(4983)-JVS(40024)*XX(5244)-JVS(43337)& - &*XX(5250)-JVS(45598)*XX(5251)-JVS(51531)*XX(5255) - XX(3474) = XX(3474)-JVS(21612)*XX(4182)-JVS(43336)*XX(5250)-JVS(48787)*XX(5253) - XX(3473) = XX(3473)-JVS(23421)*XX(4365)-JVS(26263)*XX(4631)-JVS(35220)*XX(5183)-JVS(35633)*XX(5191)-JVS(39443)& - &*XX(5237)-JVS(43335)*XX(5250)-JVS(51530)*XX(5255) - XX(3472) = XX(3472)-JVS(19203)*XX(3900)-JVS(23461)*XX(4368)-JVS(26025)*XX(4610)-JVS(36356)*XX(5201)-JVS(43334)& - &*XX(5250)-JVS(51529)*XX(5255)-JVS(53320)*XX(5256) - XX(3471) = XX(3471)-JVS(26371)*XX(4642)-JVS(32662)*XX(5097)-JVS(36355)*XX(5201)-JVS(43333)*XX(5250)-JVS(45597)& - &*XX(5251)-JVS(51528)*XX(5255)-JVS(53319)*XX(5256) - XX(3470) = XX(3470)-JVS(25446)*XX(4548)-JVS(31245)*XX(5016)-JVS(36354)*XX(5201)-JVS(43332)*XX(5250)-JVS(45596)& - &*XX(5251)-JVS(51527)*XX(5255)-JVS(53318)*XX(5256) - XX(3469) = XX(3469)-JVS(19476)*XX(3931)-JVS(29230)*XX(4887)-JVS(33188)*XX(5123)-JVS(40023)*XX(5244)-JVS(43331)& - &*XX(5250)-JVS(45595)*XX(5251)-JVS(51526)*XX(5255) - XX(3468) = XX(3468)-JVS(21125)*XX(4125)-JVS(29293)*XX(4893)-JVS(31581)*XX(5037)-JVS(40022)*XX(5244)-JVS(43330)& - &*XX(5250)-JVS(45594)*XX(5251)-JVS(51525)*XX(5255) - XX(3467) = XX(3467)-JVS(28032)*XX(4792)-JVS(29652)*XX(4918)-JVS(30667)*XX(4983)-JVS(33248)*XX(5125)-JVS(43329)& - &*XX(5250)-JVS(45593)*XX(5251)-JVS(51524)*XX(5255) - XX(3466) = XX(3466)-JVS(23157)*XX(4333)-JVS(23634)*XX(4387)-JVS(31104)*XX(5007)-JVS(35835)*XX(5193)-JVS(43328)& - &*XX(5250)-JVS(53317)*XX(5256)-JVS(54841)*XX(5258) - XX(3465) = XX(3465)-JVS(23156)*XX(4333)-JVS(23633)*XX(4387)-JVS(31103)*XX(5007)-JVS(35834)*XX(5193)-JVS(43327)& - &*XX(5250)-JVS(53316)*XX(5256)-JVS(54840)*XX(5258) - XX(3464) = XX(3464)-JVS(17638)*XX(3708)-JVS(19751)*XX(3965)-JVS(24005)*XX(4420)-JVS(37447)*XX(5222)-JVS(38365)& - &*XX(5231)-JVS(40021)*XX(5244)-JVS(43326)*XX(5250) - XX(3463) = XX(3463)-JVS(28963)*XX(4864)-JVS(29837)*XX(4931)-JVS(30666)*XX(4983)-JVS(33247)*XX(5125)-JVS(43325)& - &*XX(5250)-JVS(45592)*XX(5251)-JVS(51523)*XX(5255) - XX(3462) = XX(3462)-JVS(30947)*XX(5000)-JVS(32598)*XX(5094)-JVS(37446)*XX(5222)-JVS(38364)*XX(5231)-JVS(43324)& - &*XX(5250)-JVS(45591)*XX(5251)-JVS(51522)*XX(5255) - XX(3461) = XX(3461)-JVS(20511)*XX(4052)-JVS(43323)*XX(5250)-JVS(48786)*XX(5253) - XX(3460) = XX(3460)-JVS(22567)*XX(4277)-JVS(23772)*XX(4401)-JVS(29872)*XX(4933)-JVS(33621)*XX(5139)-JVS(43322)& - &*XX(5250)-JVS(48785)*XX(5253)-JVS(51521)*XX(5255) - XX(3459) = XX(3459)-JVS(15929)*XX(3483)-JVS(25230)*XX(4530)-JVS(35018)*XX(5180)-JVS(39020)*XX(5233)-JVS(43321)& - &*XX(5250)-JVS(45590)*XX(5251)-JVS(51520)*XX(5255) - XX(3458) = XX(3458)-JVS(20598)*XX(4062)-JVS(30665)*XX(4983)-JVS(31535)*XX(5034)-JVS(35219)*XX(5183)-JVS(43320)& - &*XX(5250)-JVS(45589)*XX(5251)-JVS(51519)*XX(5255) - XX(3457) = XX(3457)-JVS(23771)*XX(4401)-JVS(25650)*XX(4569)-JVS(30984)*XX(5001)-JVS(33620)*XX(5139)-JVS(43319)& - &*XX(5250)-JVS(48784)*XX(5253)-JVS(51518)*XX(5255) - XX(3456) = XX(3456)-JVS(20911)*XX(4101)-JVS(43318)*XX(5250)-JVS(48783)*XX(5253) - XX(3455) = XX(3455)-JVS(23067)*XX(4325)-JVS(27093)*XX(4706)-JVS(36977)*XX(5210)-JVS(37445)*XX(5222)-JVS(40020)& - &*XX(5244)-JVS(43317)*XX(5250)-JVS(51517)*XX(5255) - XX(3454) = XX(3454)-JVS(25336)*XX(4539)-JVS(29904)*XX(4936)-JVS(36353)*XX(5201)-JVS(43316)*XX(5250)-JVS(45588)& - &*XX(5251)-JVS(51516)*XX(5255)-JVS(53315)*XX(5256) - XX(3453) = XX(3453)-JVS(27110)*XX(4708)-JVS(29139)*XX(4877)-JVS(33619)*XX(5139)-JVS(35218)*XX(5183)-JVS(39019)& - &*XX(5233)-JVS(43315)*XX(5250)-JVS(51515)*XX(5255) - XX(3452) = XX(3452)-JVS(19475)*XX(3931)-JVS(29359)*XX(4899)-JVS(31580)*XX(5037)-JVS(40019)*XX(5244)-JVS(43314)& - &*XX(5250)-JVS(45587)*XX(5251)-JVS(51514)*XX(5255) - XX(3451) = XX(3451)-JVS(21124)*XX(4125)-JVS(29457)*XX(4905)-JVS(32821)*XX(5103)-JVS(35217)*XX(5183)-JVS(43313)& - &*XX(5250)-JVS(45586)*XX(5251)-JVS(51513)*XX(5255) - XX(3450) = XX(3450)-JVS(19466)*XX(3930)-JVS(29946)*XX(4938)-JVS(37444)*XX(5222)-JVS(40018)*XX(5244)-JVS(43312)& - &*XX(5250)-JVS(45585)*XX(5251)-JVS(51512)*XX(5255) - XX(3449) = XX(3449)-JVS(22095)*XX(4229)-JVS(23586)*XX(4383)-JVS(27569)*XX(4749)-JVS(39018)*XX(5233)-JVS(43311)& - &*XX(5250)-JVS(45584)*XX(5251)-JVS(51511)*XX(5255) - XX(3448) = XX(3448)-JVS(17212)*XX(3652)-JVS(33337)*XX(5128)-JVS(35487)*XX(5188)-JVS(40017)*XX(5244)-JVS(43310)& - &*XX(5250)-JVS(45583)*XX(5251)-JVS(51510)*XX(5255) - XX(3447) = XX(3447)-JVS(18988)*XX(3874)-JVS(34379)*XX(5160)-JVS(37139)*XX(5214)-JVS(38363)*XX(5231)-JVS(43309)& - &*XX(5250)-JVS(48782)*XX(5253)-JVS(51509)*XX(5255) - XX(3446) = XX(3446)-JVS(17144)*XX(3644)-JVS(23361)*XX(4358)-JVS(27109)*XX(4708)-JVS(39017)*XX(5233)-JVS(43308)& - &*XX(5250)-JVS(45582)*XX(5251)-JVS(51508)*XX(5255) - XX(3445) = XX(3445)-JVS(21558)*XX(4177)-JVS(29615)*XX(4916)-JVS(33775)*XX(5142)-JVS(37443)*XX(5222)-JVS(43307)& - &*XX(5250)-JVS(48781)*XX(5253)-JVS(51507)*XX(5255) - XX(3444) = XX(3444)-JVS(26421)*XX(4647)-JVS(28637)*XX(4841)-JVS(34378)*XX(5160)-JVS(35833)*XX(5193)-JVS(40016)& - &*XX(5244)-JVS(43306)*XX(5250)-JVS(51506)*XX(5255) - XX(3443) = XX(3443)-JVS(28475)*XX(4826)-JVS(35486)*XX(5188)-JVS(37442)*XX(5222)-JVS(39016)*XX(5233)-JVS(43305)& - &*XX(5250)-JVS(48780)*XX(5253)-JVS(51505)*XX(5255) - XX(3442) = XX(3442)-JVS(17359)*XX(3671)-JVS(17746)*XX(3721)-JVS(34377)*XX(5160)-JVS(39608)*XX(5241)-JVS(43304)& - &*XX(5250)-JVS(53314)*XX(5256)-JVS(54839)*XX(5258) - XX(3441) = XX(3441)-JVS(26099)*XX(4618)-JVS(27810)*XX(4769)-JVS(33618)*XX(5139)-JVS(40015)*XX(5244)-JVS(43303)& - &*XX(5250)-JVS(45581)*XX(5251)-JVS(51504)*XX(5255) - XX(3440) = XX(3440)-JVS(20653)*XX(4069)-JVS(26164)*XX(4622)-JVS(37872)*XX(5228)-JVS(43302)*XX(5250) - XX(3439) = XX(3439)-JVS(15713)*XX(3440)-JVS(20652)*XX(4069)-JVS(26163)*XX(4622)-JVS(37871)*XX(5228)-JVS(38362)& - &*XX(5231)-JVS(43301)*XX(5250)-JVS(48779)*XX(5253) - XX(3438) = XX(3438)-JVS(19363)*XX(3918)-JVS(25649)*XX(4569)-JVS(30983)*XX(5001)-JVS(37441)*XX(5222)-JVS(43300)& - &*XX(5250)-JVS(48778)*XX(5253)-JVS(51503)*XX(5255) - XX(3437) = XX(3437)-JVS(16398)*XX(3553)-JVS(19829)*XX(3975)-JVS(29242)*XX(4888)-JVS(36352)*XX(5201)-JVS(43299)& - &*XX(5250)-JVS(51502)*XX(5255)-JVS(53313)*XX(5256) - XX(3436) = XX(3436)-JVS(24700)*XX(4486)-JVS(32245)*XX(5073)-JVS(34976)*XX(5179)-JVS(40014)*XX(5244)-JVS(43298)& - &*XX(5250)-JVS(45580)*XX(5251)-JVS(48777)*XX(5253) - XX(3435) = XX(3435)-JVS(29614)*XX(4916)-JVS(30206)*XX(4950)-JVS(37440)*XX(5222)-JVS(37870)*XX(5228)-JVS(43297)& - &*XX(5250)-JVS(48776)*XX(5253)-JVS(51501)*XX(5255) - XX(3434) = XX(3434)-JVS(27583)*XX(4750)-JVS(35216)*XX(5183)-JVS(40013)*XX(5244)-JVS(43296)*XX(5250) - XX(3433) = XX(3433)-JVS(27454)*XX(4740)-JVS(30150)*XX(4947)-JVS(32737)*XX(5100)-JVS(37439)*XX(5222)-JVS(43295)& - &*XX(5250) - XX(3432) = XX(3432)-JVS(19105)*XX(3888)-JVS(32892)*XX(5106)-JVS(38361)*XX(5231)-JVS(43294)*XX(5250)-JVS(48775)& - &*XX(5253) - XX(3431) = XX(3431)-JVS(26707)*XX(4673)-JVS(43293)*XX(5250)-JVS(45579)*XX(5251)-JVS(51500)*XX(5255) - XX(3430) = XX(3430)-JVS(17122)*XX(3642)-JVS(36055)*XX(5195)-JVS(37796)*XX(5226)-JVS(51499)*XX(5255) - XX(3429) = XX(3429)-JVS(33774)*XX(5142)-JVS(34931)*XX(5178)-JVS(35832)*XX(5193)-JVS(51498)*XX(5255) - XX(3428) = XX(3428)-JVS(28924)*XX(4861)-JVS(31547)*XX(5035)-JVS(33463)*XX(5134)-JVS(34834)*XX(5174)-JVS(43292)& - &*XX(5250) - XX(3427) = XX(3427)-JVS(27239)*XX(4721)-JVS(33246)*XX(5125)-JVS(43291)*XX(5250)-JVS(45578)*XX(5251)-JVS(48774)& - &*XX(5253)-JVS(51497)*XX(5255) - XX(3426) = XX(3426)-JVS(27238)*XX(4721)-JVS(33245)*XX(5125)-JVS(43290)*XX(5250)-JVS(45577)*XX(5251)-JVS(51496)& - &*XX(5255) - XX(3425) = XX(3425)-JVS(16013)*XX(3497)-JVS(32838)*XX(5104)-JVS(37042)*XX(5211)-JVS(51495)*XX(5255) - XX(3424) = XX(3424)-JVS(35087)*XX(5182)-JVS(39543)*XX(5239)-JVS(43289)*XX(5250)-JVS(51494)*XX(5255) - XX(3423) = XX(3423)-JVS(18189)*XX(3773)-JVS(43288)*XX(5250)-JVS(48773)*XX(5253)-JVS(51493)*XX(5255) - XX(3422) = XX(3422)-JVS(16276)*XX(3536)-JVS(34376)*XX(5160)-JVS(35831)*XX(5193)-JVS(51492)*XX(5255) - XX(3421) = XX(3421)-JVS(24645)*XX(4482)-JVS(28087)*XX(4796)-JVS(43287)*XX(5250)-JVS(48772)*XX(5253) - XX(3420) = XX(3420)-JVS(32837)*XX(5104)-JVS(35086)*XX(5182)-JVS(37138)*XX(5214)-JVS(43286)*XX(5250) - XX(3419) = XX(3419)-JVS(26098)*XX(4618)-JVS(33617)*XX(5139)-JVS(40012)*XX(5244)-JVS(45576)*XX(5251)-JVS(51491)& - &*XX(5255) - XX(3418) = XX(3418)-JVS(19743)*XX(3964)-JVS(35215)*XX(5183)-JVS(35830)*XX(5193)-JVS(43285)*XX(5250)-JVS(48771)& - &*XX(5253) - XX(3417) = XX(3417)-JVS(23809)*XX(4403)-JVS(24965)*XX(4507)-JVS(36351)*XX(5201)-JVS(48770)*XX(5253) - XX(3416) = XX(3416)-JVS(28423)*XX(4822)-JVS(28437)*XX(4823)-JVS(31600)*XX(5038)-JVS(39015)*XX(5233)-JVS(43284)& - &*XX(5250) - XX(3415) = XX(3415)-JVS(27789)*XX(4768)-JVS(30887)*XX(4996)-JVS(35085)*XX(5182)-JVS(51490)*XX(5255) - XX(3414) = XX(3414)-JVS(24074)*XX(4426)-JVS(28086)*XX(4796)-JVS(43283)*XX(5250)-JVS(48769)*XX(5253) - XX(3413) = XX(3413)-JVS(36865)*XX(5205)-JVS(37317)*XX(5220)-JVS(43282)*XX(5250)-JVS(51489)*XX(5255) - XX(3412) = XX(3412)-JVS(20660)*XX(4070)-JVS(21600)*XX(4181)-JVS(37869)*XX(5228)-JVS(43281)*XX(5250) - XX(3411) = XX(3411)-JVS(27339)*XX(4729)-JVS(35214)*XX(5183)-JVS(43280)*XX(5250)-JVS(45575)*XX(5251)-JVS(51488)& - &*XX(5255) - XX(3410) = XX(3410)-JVS(37137)*XX(5214)-JVS(38360)*XX(5231)-JVS(43279)*XX(5250)-JVS(51487)*XX(5255) - XX(3409) = XX(3409)-JVS(23246)*XX(4344)-JVS(35632)*XX(5191)-JVS(40011)*XX(5244)-JVS(43278)*XX(5250)-JVS(48768)& - &*XX(5253) - XX(3408) = XX(3408)-JVS(29767)*XX(4926)-JVS(32467)*XX(5086)-JVS(43277)*XX(5250)-JVS(45574)*XX(5251)-JVS(48767)& - &*XX(5253) - XX(3407) = XX(3407)-JVS(26462)*XX(4651)-JVS(43276)*XX(5250)-JVS(48766)*XX(5253)-JVS(51486)*XX(5255) - XX(3406) = XX(3406)-JVS(18566)*XX(3821)-JVS(45573)*XX(5251)-JVS(48765)*XX(5253)-JVS(51485)*XX(5255) - XX(3405) = XX(3405)-JVS(19806)*XX(3972)-JVS(37868)*XX(5228)-JVS(43275)*XX(5250)-JVS(51484)*XX(5255) - XX(3404) = XX(3404)-JVS(18935)*XX(3868)-JVS(33915)*XX(5145)-JVS(35829)*XX(5193)-JVS(51483)*XX(5255) - XX(3403) = XX(3403)-JVS(28044)*XX(4793)-JVS(33616)*XX(5139)-JVS(33744)*XX(5141)-JVS(51482)*XX(5255) - XX(3402) = XX(3402)-JVS(24964)*XX(4507)-JVS(26932)*XX(4693)-JVS(36350)*XX(5201)-JVS(48764)*XX(5253) - XX(3401) = XX(3401)-JVS(28059)*XX(4795)-JVS(39014)*XX(5233)-JVS(43274)*XX(5250)-JVS(48763)*XX(5253)-JVS(53312)& - &*XX(5256) - XX(3400) = XX(3400)-JVS(36976)*XX(5210)-JVS(45572)*XX(5251)-JVS(48762)*XX(5253)-JVS(51481)*XX(5255) - XX(3399) = XX(3399)-JVS(28378)*XX(4817)-JVS(33244)*XX(5125)-JVS(38359)*XX(5231)-JVS(43273)*XX(5250)-JVS(48761)& - &*XX(5253) - XX(3398) = XX(3398)-JVS(17738)*XX(3720)-JVS(21518)*XX(4173)-JVS(43272)*XX(5250)-JVS(51480)*XX(5255) - XX(3397) = XX(3397)-JVS(28325)*XX(4812)-JVS(43271)*XX(5250)-JVS(45571)*XX(5251)-JVS(51479)*XX(5255) - XX(3396) = XX(3396)-JVS(17976)*XX(3748)-JVS(43270)*XX(5250)-JVS(48760)*XX(5253)-JVS(51478)*XX(5255) - XX(3395) = XX(3395)-JVS(24073)*XX(4426)-JVS(28085)*XX(4796)-JVS(43269)*XX(5250)-JVS(48759)*XX(5253) - XX(3394) = XX(3394)-JVS(38358)*XX(5231)-JVS(43268)*XX(5250)-JVS(48758)*XX(5253)-JVS(51477)*XX(5255) - XX(3393) = XX(3393)-JVS(17965)*XX(3747)-JVS(33988)*XX(5148)-JVS(35828)*XX(5193)-JVS(51476)*XX(5255) - XX(3392) = XX(3392)-JVS(31019)*XX(5003)-JVS(36975)*XX(5210)-JVS(43267)*XX(5250)-JVS(48757)*XX(5253)-JVS(53311)& - &*XX(5256) - XX(3391) = XX(3391)-JVS(19194)*XX(3899)-JVS(39707)*XX(5242)-JVS(40010)*XX(5244)-JVS(43266)*XX(5250)-JVS(51475)& - &*XX(5255) - XX(3390) = XX(3390)-JVS(17007)*XX(3629)-JVS(37795)*XX(5226)-JVS(40478)*XX(5246)-JVS(51474)*XX(5255) - XX(3389) = XX(3389)-JVS(17712)*XX(3717)-JVS(36279)*XX(5200)-JVS(43265)*XX(5250)-JVS(45570)*XX(5251) - XX(3388) = XX(3388)-JVS(23808)*XX(4403)-JVS(24963)*XX(4507)-JVS(36349)*XX(5201)-JVS(48756)*XX(5253) - XX(3387) = XX(3387)-JVS(28084)*XX(4796)-JVS(39013)*XX(5233)-JVS(43264)*XX(5250)-JVS(45569)*XX(5251)-JVS(51473)& - &*XX(5255) - XX(3386) = XX(3386)-JVS(30527)*XX(4973)-JVS(35827)*XX(5193)-JVS(36054)*XX(5195)-JVS(51472)*XX(5255) - XX(3385) = XX(3385)-JVS(20358)*XX(4038)-JVS(20463)*XX(4048)-JVS(43263)*XX(5250)-JVS(48755)*XX(5253) - XX(3384) = XX(3384)-JVS(19613)*XX(3948)-JVS(32684)*XX(5098)-JVS(40009)*XX(5244)-JVS(43262)*XX(5250) - XX(3383) = XX(3383)-JVS(35826)*XX(5193)-JVS(39348)*XX(5235)-JVS(39706)*XX(5242)-JVS(51471)*XX(5255) - XX(3382) = XX(3382)-JVS(19251)*XX(3906)-JVS(35423)*XX(5185)-JVS(40008)*XX(5244)-JVS(43261)*XX(5250)-JVS(51470)& - &*XX(5255) - XX(3381) = XX(3381)-JVS(23133)*XX(4331)-JVS(26931)*XX(4693)-JVS(36348)*XX(5201)-JVS(48754)*XX(5253) - XX(3380) = XX(3380)-JVS(18208)*XX(3775)-JVS(43260)*XX(5250)-JVS(48753)*XX(5253)-JVS(51469)*XX(5255) - XX(3379) = XX(3379)-JVS(27237)*XX(4721)-JVS(40007)*XX(5244)-JVS(43259)*XX(5250)-JVS(45568)*XX(5251)-JVS(48752)& - &*XX(5253)-JVS(51468)*XX(5255) - XX(3378) = XX(3378)-JVS(27236)*XX(4721)-JVS(40006)*XX(5244)-JVS(43258)*XX(5250)-JVS(45567)*XX(5251)-JVS(51467)& - &*XX(5255) - XX(3377) = XX(3377)-JVS(16844)*XX(3609)-JVS(33773)*XX(5142)-JVS(35631)*XX(5191)-JVS(51466)*XX(5255) - XX(3376) = XX(3376)-JVS(27215)*XX(4719)-JVS(38041)*XX(5230)-JVS(40005)*XX(5244)-JVS(43257)*XX(5250)-JVS(48751)& - &*XX(5253) - XX(3375) = XX(3375)-JVS(24962)*XX(4507)-JVS(36347)*XX(5201)-JVS(45566)*XX(5251)-JVS(48750)*XX(5253) - XX(3374) = XX(3374)-JVS(25677)*XX(4572)-JVS(28617)*XX(4839)-JVS(39442)*XX(5237)-JVS(43256)*XX(5250) - XX(3373) = XX(3373)-JVS(33396)*XX(5130)-JVS(35084)*XX(5182)-JVS(37136)*XX(5214)-JVS(43255)*XX(5250) - XX(3372) = XX(3372)-JVS(30740)*XX(4986)-JVS(39012)*XX(5233)-JVS(43254)*XX(5250)-JVS(51465)*XX(5255) - XX(3371) = XX(3371)-JVS(24961)*XX(4507)-JVS(26930)*XX(4693)-JVS(36346)*XX(5201)-JVS(48749)*XX(5253) - XX(3370) = XX(3370)-JVS(15896)*XX(3478)-JVS(36345)*XX(5201)-JVS(45565)*XX(5251)-JVS(48748)*XX(5253) - XX(3369) = XX(3369)-JVS(18666)*XX(3836)-JVS(30638)*XX(4981)-JVS(40004)*XX(5244)-JVS(43253)*XX(5250) - XX(3368) = XX(3368)-JVS(20296)*XX(4030)-JVS(26162)*XX(4622)-JVS(33772)*XX(5142)-JVS(43252)*XX(5250) - XX(3367) = XX(3367)-JVS(16231)*XX(3530)-JVS(35825)*XX(5193)-JVS(40477)*XX(5246)-JVS(51464)*XX(5255) - XX(3366) = XX(3366)-JVS(31167)*XX(5011)-JVS(37438)*XX(5222)-JVS(40003)*XX(5244)-JVS(43251)*XX(5250) - XX(3365) = XX(3365)-JVS(28842)*XX(4854)-JVS(43250)*XX(5250)-JVS(45564)*XX(5251)-JVS(51463)*XX(5255) - XX(3364) = XX(3364)-JVS(23255)*XX(4345)-JVS(34375)*XX(5160)-JVS(40002)*XX(5244)-JVS(43249)*XX(5250)-JVS(48747)& - &*XX(5253) - XX(3363) = XX(3363)-JVS(23132)*XX(4331)-JVS(26929)*XX(4693)-JVS(36344)*XX(5201)-JVS(48746)*XX(5253) - XX(3362) = XX(3362)-JVS(23807)*XX(4403)-JVS(24960)*XX(4507)-JVS(36343)*XX(5201)-JVS(48745)*XX(5253) - XX(3361) = XX(3361)-JVS(24644)*XX(4482)-JVS(28083)*XX(4796)-JVS(43248)*XX(5250)-JVS(48744)*XX(5253) - XX(3360) = XX(3360)-JVS(27338)*XX(4729)-JVS(40001)*XX(5244)-JVS(43247)*XX(5250)-JVS(45563)*XX(5251)-JVS(48743)& - &*XX(5253)-JVS(51462)*XX(5255) - XX(3359) = XX(3359)-JVS(27337)*XX(4729)-JVS(40000)*XX(5244)-JVS(43246)*XX(5250)-JVS(45562)*XX(5251)-JVS(51461)& - &*XX(5255) - XX(3358) = XX(3358)-JVS(34788)*XX(5172)-JVS(38357)*XX(5231)-JVS(43245)*XX(5250)-JVS(45561)*XX(5251)-JVS(48742)& - &*XX(5253) - XX(3357) = XX(3357)-JVS(27235)*XX(4721)-JVS(35213)*XX(5183)-JVS(43244)*XX(5250)-JVS(45560)*XX(5251)-JVS(48741)& - &*XX(5253)-JVS(51460)*XX(5255) - XX(3356) = XX(3356)-JVS(27234)*XX(4721)-JVS(35212)*XX(5183)-JVS(43243)*XX(5250)-JVS(45559)*XX(5251)-JVS(51459)& - &*XX(5255) - XX(3355) = XX(3355)-JVS(37135)*XX(5214)-JVS(43242)*XX(5250)-JVS(45558)*XX(5251)-JVS(51458)*XX(5255) - XX(3354) = XX(3354)-JVS(28980)*XX(4865)-JVS(35211)*XX(5183)-JVS(37437)*XX(5222)-JVS(43241)*XX(5250)-JVS(48740)& - &*XX(5253) - XX(3353) = XX(3353)-JVS(27233)*XX(4721)-JVS(32891)*XX(5106)-JVS(43240)*XX(5250)-JVS(45557)*XX(5251)-JVS(48739)& - &*XX(5253)-JVS(51457)*XX(5255) - XX(3352) = XX(3352)-JVS(27232)*XX(4721)-JVS(32890)*XX(5106)-JVS(43239)*XX(5250)-JVS(45556)*XX(5251)-JVS(51456)& - &*XX(5255) - XX(3351) = XX(3351)-JVS(35017)*XX(5180)-JVS(38356)*XX(5231)-JVS(48738)*XX(5253)-JVS(51455)*XX(5255) - XX(3350) = XX(3350)-JVS(38815)*XX(5232)-JVS(43238)*XX(5250)-JVS(45555)*XX(5251)-JVS(51454)*XX(5255) - XX(3349) = XX(3349)-JVS(28242)*XX(4804)-JVS(30114)*XX(4944)-JVS(38355)*XX(5231)-JVS(43237)*XX(5250)-JVS(48737)& - &*XX(5253) - XX(3348) = XX(3348)-JVS(29011)*XX(4867)-JVS(43236)*XX(5250)-JVS(45554)*XX(5251)-JVS(51453)*XX(5255) - XX(3347) = XX(3347)-JVS(24959)*XX(4507)-JVS(26928)*XX(4693)-JVS(36342)*XX(5201)-JVS(48736)*XX(5253) - XX(3346) = XX(3346)-JVS(32957)*XX(5110)-JVS(35824)*XX(5193)-JVS(36129)*XX(5197)-JVS(51452)*XX(5255) - XX(3345) = XX(3345)-JVS(27336)*XX(4729)-JVS(35210)*XX(5183)-JVS(43235)*XX(5250)-JVS(45553)*XX(5251)-JVS(51451)& - &*XX(5255) - XX(3344) = XX(3344)-JVS(16980)*XX(3626)-JVS(43234)*XX(5250)-JVS(45552)*XX(5251)-JVS(51450)*XX(5255) - XX(3343) = XX(3343)-JVS(18483)*XX(3810)-JVS(20500)*XX(4051)-JVS(37867)*XX(5228)-JVS(43233)*XX(5250) - XX(3342) = XX(3342)-JVS(30213)*XX(4951)-JVS(31979)*XX(5058)-JVS(39011)*XX(5233)-JVS(51449)*XX(5255) - XX(3341) = XX(3341)-JVS(25826)*XX(4590)-JVS(33243)*XX(5125)-JVS(35823)*XX(5193)-JVS(43232)*XX(5250)-JVS(48735)& - &*XX(5253) - XX(3340) = XX(3340)-JVS(27335)*XX(4729)-JVS(39999)*XX(5244)-JVS(43231)*XX(5250)-JVS(45551)*XX(5251)-JVS(48734)& - &*XX(5253)-JVS(51448)*XX(5255) - XX(3339) = XX(3339)-JVS(27334)*XX(4729)-JVS(39998)*XX(5244)-JVS(43230)*XX(5250)-JVS(45550)*XX(5251)-JVS(51447)& - &*XX(5255) - XX(3338) = XX(3338)-JVS(26392)*XX(4644)-JVS(38354)*XX(5231)-JVS(43229)*XX(5250)-JVS(51446)*XX(5255) - XX(3337) = XX(3337)-JVS(34975)*XX(5179)-JVS(43228)*XX(5250)-JVS(45549)*XX(5251)-JVS(51445)*XX(5255) - XX(3336) = XX(3336)-JVS(25419)*XX(4546)-JVS(28203)*XX(4801)-JVS(43227)*XX(5250)-JVS(45548)*XX(5251)-JVS(51444)& - &*XX(5255) - XX(3335) = XX(3335)-JVS(32244)*XX(5073)-JVS(38353)*XX(5231)-JVS(43226)*XX(5250)-JVS(51443)*XX(5255) - XX(3334) = XX(3334)-JVS(17366)*XX(3672)-JVS(35485)*XX(5188)-JVS(43225)*XX(5250)-JVS(48733)*XX(5253)-JVS(51442)& - &*XX(5255) - XX(3333) = XX(3333)-JVS(15204)*XX(3369)-JVS(30637)*XX(4981)-JVS(35822)*XX(5193)-JVS(51441)*XX(5255) - XX(3332) = XX(3332)-JVS(29311)*XX(4895)-JVS(32534)*XX(5089)-JVS(37436)*XX(5222)-JVS(51440)*XX(5255) - XX(3331) = XX(3331)-JVS(18511)*XX(3814)-JVS(25840)*XX(4591)-JVS(37866)*XX(5228)-JVS(43224)*XX(5250) - XX(3330) = XX(3330)-JVS(35484)*XX(5188)-JVS(43223)*XX(5250)-JVS(45547)*XX(5251)-JVS(51439)*XX(5255) - XX(3329) = XX(3329)-JVS(16315)*XX(3541)-JVS(36341)*XX(5201)-JVS(45546)*XX(5251)-JVS(48732)*XX(5253) - XX(3328) = XX(3328)-JVS(29945)*XX(4938)-JVS(35821)*XX(5193)-JVS(39997)*XX(5244)-JVS(43222)*XX(5250)-JVS(48731)& - &*XX(5253) - XX(3327) = XX(3327)-JVS(22758)*XX(4295)-JVS(24828)*XX(4496)-JVS(24840)*XX(4497)-JVS(43221)*XX(5250)-JVS(45545)& - &*XX(5251)-JVS(48730)*XX(5253) - XX(3326) = XX(3326)-JVS(16045)*XX(3502)-JVS(34139)*XX(5155)-JVS(35483)*XX(5188)-JVS(43220)*XX(5250)-JVS(48729)& - &*XX(5253)-JVS(51438)*XX(5255) - XX(3325) = XX(3325)-JVS(17670)*XX(3712)-JVS(29613)*XX(4916)-JVS(30664)*XX(4983)-JVS(43219)*XX(5250)-JVS(45544)& - &*XX(5251)-JVS(51437)*XX(5255) - XX(3324) = XX(3324)-JVS(23437)*XX(4366)-JVS(28369)*XX(4816)-JVS(43218)*XX(5250)-JVS(45543)*XX(5251)-JVS(48728)& - &*XX(5253)-JVS(53310)*XX(5256) - XX(3323) = XX(3323)-JVS(22063)*XX(4226)-JVS(26784)*XX(4681)-JVS(43217)*XX(5250)-JVS(45542)*XX(5251)-JVS(48727)& - &*XX(5253)-JVS(51436)*XX(5255) - XX(3322) = XX(3322)-JVS(15516)*XX(3411)-JVS(27333)*XX(4729)-JVS(35209)*XX(5183)-JVS(43216)*XX(5250)-JVS(48726)& - &*XX(5253)-JVS(51435)*XX(5255) - XX(3321) = XX(3321)-JVS(18557)*XX(3820)-JVS(18565)*XX(3821)-JVS(23080)*XX(4326)-JVS(39010)*XX(5233)-JVS(43215)& - &*XX(5250)-JVS(48725)*XX(5253) - XX(3320) = XX(3320)-JVS(18380)*XX(3796)-JVS(24312)*XX(4448)-JVS(24764)*XX(4491)-JVS(37435)*XX(5222)-JVS(43214)& - &*XX(5250)-JVS(48724)*XX(5253) - XX(3319) = XX(3319)-JVS(18402)*XX(3799)-JVS(18409)*XX(3800)-JVS(26124)*XX(4619)-JVS(39009)*XX(5233)-JVS(43213)& - &*XX(5250)-JVS(48723)*XX(5253) - XX(3318) = XX(3318)-JVS(20043)*XX(4000)-JVS(21242)*XX(4139)-JVS(27299)*XX(4726)-JVS(43212)*XX(5250)-JVS(45541)& - &*XX(5251)-JVS(48722)*XX(5253) - XX(3317) = XX(3317)-JVS(26161)*XX(4622)-JVS(26624)*XX(4666)-JVS(30427)*XX(4965)-JVS(43211)*XX(5250)-JVS(45540)& - &*XX(5251)-JVS(48721)*XX(5253) - XX(3316) = XX(3316)-JVS(30174)*XX(4948)-JVS(31579)*XX(5037)-JVS(37865)*XX(5228)-JVS(43210)*XX(5250)-JVS(45539)& - &*XX(5251)-JVS(48720)*XX(5253) - XX(3315) = XX(3315)-JVS(27482)*XX(4742)-JVS(27823)*XX(4770)-JVS(39996)*XX(5244)-JVS(43209)*XX(5250)-JVS(45538)& - &*XX(5251)-JVS(48719)*XX(5253) - XX(3314) = XX(3314)-JVS(21494)*XX(4170)-JVS(25872)*XX(4594)-JVS(32889)*XX(5106)-JVS(36821)*XX(5203)-JVS(39995)& - &*XX(5244)-JVS(43208)*XX(5250) - XX(3313) = XX(3313)-JVS(21949)*XX(4216)-JVS(26477)*XX(4652)-JVS(43207)*XX(5250)-JVS(45537)*XX(5251)-JVS(48718)& - &*XX(5253)-JVS(51434)*XX(5255) - XX(3312) = XX(3312)-JVS(27833)*XX(4771)-JVS(34930)*XX(5178)-JVS(38352)*XX(5231)-JVS(43206)*XX(5250)-JVS(45536)& - &*XX(5251)-JVS(48717)*XX(5253) - XX(3311) = XX(3311)-JVS(30526)*XX(4973)-JVS(32549)*XX(5090)-JVS(38351)*XX(5231)-JVS(43205)*XX(5250)-JVS(45535)& - &*XX(5251)-JVS(48716)*XX(5253) - XX(3310) = XX(3310)-JVS(30336)*XX(4959)-JVS(31195)*XX(5012)-JVS(34929)*XX(5178)-JVS(38350)*XX(5231)-JVS(43204)& - &*XX(5250)-JVS(51433)*XX(5255) - XX(3309) = XX(3309)-JVS(23893)*XX(4409)-JVS(24299)*XX(4447)-JVS(37134)*XX(5214)-JVS(43203)*XX(5250)-JVS(45534)& - &*XX(5251)-JVS(51432)*XX(5255) - XX(3308) = XX(3308)-JVS(16327)*XX(3542)-JVS(25759)*XX(4582)-JVS(34633)*XX(5165)-JVS(38349)*XX(5231)-JVS(43202)& - &*XX(5250)-JVS(51431)*XX(5255) - XX(3307) = XX(3307)-JVS(22380)*XX(4257)-JVS(22675)*XX(4288)-JVS(22695)*XX(4290)-JVS(43201)*XX(5250)-JVS(45533)& - &*XX(5251)-JVS(48715)*XX(5253) - XX(3306) = XX(3306)-JVS(24337)*XX(4450)-JVS(27139)*XX(4710)-JVS(38348)*XX(5231)-JVS(43200)*XX(5250)-JVS(45532)& - &*XX(5251)-JVS(48714)*XX(5253) - XX(3305) = XX(3305)-JVS(27298)*XX(4726)-JVS(43199)*XX(5250)-JVS(48713)*XX(5253) - XX(3304) = XX(3304)-JVS(15946)*XX(3486)-JVS(26249)*XX(4630)-JVS(37434)*XX(5222)-JVS(43198)*XX(5250)-JVS(48712)& - &*XX(5253)-JVS(51430)*XX(5255) - XX(3303) = XX(3303)-JVS(15810)*XX(3461)-JVS(20486)*XX(4050)-JVS(20499)*XX(4051)-JVS(43197)*XX(5250)-JVS(45531)& - &*XX(5251)-JVS(48711)*XX(5253) - XX(3302) = XX(3302)-JVS(33615)*XX(5139)-JVS(35630)*XX(5191)-JVS(43196)*XX(5250)-JVS(45530)*XX(5251)-JVS(48710)& - &*XX(5253)-JVS(51429)*XX(5255) - XX(3301) = XX(3301)-JVS(35629)*XX(5191)-JVS(45529)*XX(5251)-JVS(51428)*XX(5255) - XX(3300) = XX(3300)-JVS(30719)*XX(4985)-JVS(37433)*XX(5222)-JVS(38347)*XX(5231)-JVS(43195)*XX(5250)-JVS(45528)& - &*XX(5251)-JVS(48709)*XX(5253) - XX(3299) = XX(3299)-JVS(30946)*XX(5000)-JVS(33361)*XX(5129)-JVS(34374)*XX(5160)-JVS(38346)*XX(5231)-JVS(43194)& - &*XX(5250)-JVS(51427)*XX(5255) - XX(3298) = XX(3298)-JVS(22897)*XX(4309)-JVS(28312)*XX(4811)-JVS(32661)*XX(5097)-JVS(34051)*XX(5151)-JVS(39994)& - &*XX(5244)-JVS(43193)*XX(5250) - XX(3297) = XX(3297)-JVS(30060)*XX(4941)-JVS(33771)*XX(5142)-JVS(39516)*XX(5238)-JVS(43192)*XX(5250)-JVS(45527)& - &*XX(5251)-JVS(51426)*XX(5255) - XX(3296) = XX(3296)-JVS(26997)*XX(4694)-JVS(33614)*XX(5139)-JVS(51425)*XX(5255) - XX(3295) = XX(3295)-JVS(14769)*XX(3296)-JVS(17025)*XX(3631)-JVS(26996)*XX(4694)-JVS(33613)*XX(5139)-JVS(43191)& - &*XX(5250)-JVS(48708)*XX(5253) - XX(3294) = XX(3294)-JVS(30259)*XX(4954)-JVS(38345)*XX(5231)-JVS(39240)*XX(5234)-JVS(43190)*XX(5250)-JVS(45526)& - &*XX(5251)-JVS(51424)*XX(5255) - XX(3293) = XX(3293)-JVS(28388)*XX(4818)-JVS(34373)*XX(5160)-JVS(35083)*XX(5182)-JVS(43189)*XX(5250)-JVS(45525)& - &*XX(5251)-JVS(48707)*XX(5253) - XX(3292) = XX(3292)-JVS(28552)*XX(4833)-JVS(33187)*XX(5123)-JVS(37864)*XX(5228)-JVS(43188)*XX(5250)-JVS(45524)& - &*XX(5251)-JVS(48706)*XX(5253) - XX(3291) = XX(3291)-JVS(20958)*XX(4105)-JVS(32316)*XX(5079)-JVS(38344)*XX(5231)-JVS(43187)*XX(5250)-JVS(45523)& - &*XX(5251)-JVS(51423)*XX(5255) - XX(3290) = XX(3290)-JVS(30839)*XX(4993)-JVS(38343)*XX(5231)-JVS(39008)*XX(5233)-JVS(43186)*XX(5250)-JVS(45522)& - &*XX(5251)-JVS(48705)*XX(5253) - XX(3289) = XX(3289)-JVS(16459)*XX(3561)-JVS(25905)*XX(4598)-JVS(38040)*XX(5230)-JVS(38342)*XX(5231)-JVS(43185)& - &*XX(5250)-JVS(51422)*XX(5255) - XX(3288) = XX(3288)-JVS(25767)*XX(4583)-JVS(28486)*XX(4827)-JVS(33914)*XX(5145)-JVS(34183)*XX(5157)-JVS(35208)& - &*XX(5183)-JVS(43184)*XX(5250) - XX(3287) = XX(3287)-JVS(21138)*XX(4126)-JVS(30192)*XX(4949)-JVS(38341)*XX(5231)-JVS(43183)*XX(5250)-JVS(45521)& - &*XX(5251)-JVS(51421)*XX(5255) - XX(3286) = XX(3286)-JVS(14925)*XX(3330)-JVS(35482)*XX(5188)-JVS(39007)*XX(5233)-JVS(43182)*XX(5250)-JVS(45520)& - &*XX(5251)-JVS(51420)*XX(5255) - XX(3285) = XX(3285)-JVS(15554)*XX(3416)-JVS(27231)*XX(4721)-JVS(39006)*XX(5233)-JVS(43181)*XX(5250)-JVS(48704)& - &*XX(5253)-JVS(51419)*XX(5255) - XX(3284) = XX(3284)-JVS(28202)*XX(4801)-JVS(38340)*XX(5231)-JVS(51418)*XX(5255) - XX(3283) = XX(3283)-JVS(21567)*XX(4178)-JVS(33612)*XX(5139)-JVS(51417)*XX(5255) - XX(3282) = XX(3282)-JVS(23973)*XX(4417)-JVS(27138)*XX(4710)-JVS(35820)*XX(5193)-JVS(43180)*XX(5250)-JVS(45519)& - &*XX(5251)-JVS(48703)*XX(5253) - XX(3281) = XX(3281)-JVS(37432)*XX(5222)-JVS(39993)*XX(5244)-JVS(45518)*XX(5251) - XX(3280) = XX(3280)-JVS(20248)*XX(4024)-JVS(22736)*XX(4294)-JVS(30838)*XX(4993)-JVS(43179)*XX(5250)-JVS(45517)& - &*XX(5251)-JVS(51416)*XX(5255) - XX(3279) = XX(3279)-JVS(18601)*XX(3825)-JVS(20167)*XX(4014)-JVS(25265)*XX(4533)-JVS(33611)*XX(5139)-JVS(43178)& - &*XX(5250)-JVS(48702)*XX(5253) - XX(3278) = XX(3278)-JVS(19273)*XX(3909)-JVS(23254)*XX(4345)-JVS(37431)*XX(5222)-JVS(39992)*XX(5244)-JVS(43177)& - &*XX(5250)-JVS(48701)*XX(5253) - XX(3277) = XX(3277)-JVS(32499)*XX(5087)-JVS(35819)*XX(5193)-JVS(36769)*XX(5202)-JVS(38339)*XX(5231)-JVS(43176)& - &*XX(5250)-JVS(51415)*XX(5255) - XX(3276) = XX(3276)-JVS(23436)*XX(4366)-JVS(28368)*XX(4816)-JVS(38338)*XX(5231)-JVS(38814)*XX(5232)-JVS(43175)& - &*XX(5250)-JVS(45516)*XX(5251) - XX(3275) = XX(3275)-JVS(32315)*XX(5079)-JVS(35481)*XX(5188)-JVS(38337)*XX(5231)-JVS(43174)*XX(5250)-JVS(45515)& - &*XX(5251)-JVS(48700)*XX(5253) - XX(3274) = XX(3274)-JVS(23600)*XX(4384)-JVS(29944)*XX(4938)-JVS(31477)*XX(5031)-JVS(39991)*XX(5244)-JVS(43173)& - &*XX(5250)-JVS(45514)*XX(5251) - XX(3273) = XX(3273)-JVS(14924)*XX(3330)-JVS(35480)*XX(5188)-JVS(39005)*XX(5233)-JVS(43172)*XX(5250)-JVS(45513)& - &*XX(5251)-JVS(48699)*XX(5253) - XX(3272) = XX(3272)-JVS(16474)*XX(3563)-JVS(25605)*XX(4564)-JVS(32268)*XX(5075)-JVS(43171)*XX(5250)-JVS(48698)& - &*XX(5253)-JVS(51414)*XX(5255) - XX(3271) = XX(3271)-JVS(15037)*XX(3345)-JVS(27332)*XX(4729)-JVS(35207)*XX(5183)-JVS(43170)*XX(5250)-JVS(48697)& - &*XX(5253)-JVS(51413)*XX(5255) - XX(3270) = XX(3270)-JVS(22965)*XX(4315)-JVS(43169)*XX(5250)-JVS(51412)*XX(5255) - XX(3269) = XX(3269)-JVS(38039)*XX(5230)-JVS(45512)*XX(5251)-JVS(51411)*XX(5255) - XX(3268) = XX(3268)-JVS(36820)*XX(5203)-JVS(38336)*XX(5231)-JVS(51410)*XX(5255) - XX(3267) = XX(3267)-JVS(16834)*XX(3608)-JVS(31344)*XX(5023)-JVS(39239)*XX(5234)-JVS(43168)*XX(5250)-JVS(45511)& - &*XX(5251)-JVS(51409)*XX(5255) - XX(3266) = XX(3266)-JVS(17246)*XX(3656)-JVS(24576)*XX(4476)-JVS(35628)*XX(5191)-JVS(35818)*XX(5193)-JVS(43167)& - &*XX(5250)-JVS(51408)*XX(5255) - XX(3265) = XX(3265)-JVS(17861)*XX(3735)-JVS(27776)*XX(4767)-JVS(35627)*XX(5191)-JVS(35817)*XX(5193)-JVS(43166)& - &*XX(5250)-JVS(51407)*XX(5255) - XX(3264) = XX(3264)-JVS(15676)*XX(3433)-JVS(25431)*XX(4547)-JVS(37430)*XX(5222)-JVS(43165)*XX(5250)-JVS(48696)& - &*XX(5253)-JVS(51406)*XX(5255) - XX(3263) = XX(3263)-JVS(17112)*XX(3641)-JVS(17177)*XX(3648)-JVS(36340)*XX(5201)-JVS(43164)*XX(5250)-JVS(51405)& - &*XX(5255)-JVS(53309)*XX(5256) - XX(3262) = XX(3262)-JVS(31476)*XX(5031)-JVS(33610)*XX(5139)-JVS(35206)*XX(5183)-JVS(43163)*XX(5250)-JVS(45510)& - &*XX(5251)-JVS(51404)*XX(5255) - XX(3261) = XX(3261)-JVS(21587)*XX(4180)-JVS(22735)*XX(4294)-JVS(36974)*XX(5210)-JVS(39004)*XX(5233)-JVS(43162)& - &*XX(5250)-JVS(51403)*XX(5255) - XX(3260) = XX(3260)-JVS(28912)*XX(4860)-JVS(34372)*XX(5160)-JVS(38335)*XX(5231)-JVS(43161)*XX(5250)-JVS(45509)& - &*XX(5251)-JVS(48695)*XX(5253) - XX(3259) = XX(3259)-JVS(14689)*XX(3281)-JVS(20966)*XX(4106)-JVS(37429)*XX(5222)-JVS(39990)*XX(5244)-JVS(43160)& - &*XX(5250)-JVS(45508)*XX(5251) - XX(3258) = XX(3258)-JVS(28271)*XX(4807)-JVS(32533)*XX(5089)-JVS(37863)*XX(5228)-JVS(43159)*XX(5250)-JVS(45507)& - &*XX(5251)-JVS(48694)*XX(5253) - XX(3257) = XX(3257)-JVS(16979)*XX(3626)-JVS(28528)*XX(4831)-JVS(43158)*XX(5250)-JVS(45506)*XX(5251)-JVS(48693)& - &*XX(5253)-JVS(53308)*XX(5256) - XX(3256) = XX(3256)-JVS(16792)*XX(3603)-JVS(25511)*XX(4554)-JVS(30945)*XX(5000)-JVS(38334)*XX(5231)-JVS(43157)& - &*XX(5250)-JVS(51402)*XX(5255) - XX(3255) = XX(3255)-JVS(28201)*XX(4801)-JVS(45505)*XX(5251)-JVS(51401)*XX(5255) - XX(3254) = XX(3254)-JVS(30258)*XX(4954)-JVS(39238)*XX(5234)-JVS(43156)*XX(5250)-JVS(45504)*XX(5251)-JVS(48692)& - &*XX(5253)-JVS(53307)*XX(5256) - XX(3253) = XX(3253)-JVS(18617)*XX(3827)-JVS(24722)*XX(4488)-JVS(24763)*XX(4491)-JVS(39003)*XX(5233)-JVS(43155)& - &*XX(5250)-JVS(48691)*XX(5253) - XX(3252) = XX(3252)-JVS(36819)*XX(5203)-JVS(45503)*XX(5251)-JVS(51400)*XX(5255) - XX(3251) = XX(3251)-JVS(30718)*XX(4985)-JVS(31475)*XX(5031)-JVS(39989)*XX(5244)-JVS(43154)*XX(5250)-JVS(45502)& - &*XX(5251)-JVS(51399)*XX(5255) - XX(3250) = XX(3250)-JVS(32335)*XX(5080)-JVS(37428)*XX(5222)-JVS(38813)*XX(5232)-JVS(43153)*XX(5250)-JVS(45501)& - &*XX(5251)-JVS(51398)*XX(5255) - XX(3249) = XX(3249)-JVS(30137)*XX(4946)-JVS(33609)*XX(5139)-JVS(38333)*XX(5231)-JVS(43152)*XX(5250)-JVS(45500)& - &*XX(5251)-JVS(48690)*XX(5253) - XX(3248) = XX(3248)-JVS(31037)*XX(5004)-JVS(36339)*XX(5201)-JVS(43151)*XX(5250)-JVS(45499)*XX(5251)-JVS(51397)& - &*XX(5255)-JVS(53306)*XX(5256) - XX(3247) = XX(3247)-JVS(39347)*XX(5235)-JVS(43150)*XX(5250)-JVS(51396)*XX(5255) - XX(3246) = XX(3246)-JVS(26995)*XX(4694)-JVS(37427)*XX(5222)-JVS(51395)*XX(5255) - XX(3245) = XX(3245)-JVS(35479)*XX(5188)-JVS(43149)*XX(5250)-JVS(48689)*XX(5253) - XX(3244) = XX(3244)-JVS(17024)*XX(3631)-JVS(17032)*XX(3632)-JVS(36338)*XX(5201)-JVS(43148)*XX(5250)-JVS(51394)& - &*XX(5255)-JVS(53305)*XX(5256) - XX(3243) = XX(3243)-JVS(18037)*XX(3755)-JVS(25888)*XX(4596)-JVS(34371)*XX(5160)-JVS(39237)*XX(5234)-JVS(43147)& - &*XX(5250)-JVS(51393)*XX(5255) - XX(3242) = XX(3242)-JVS(40516)*XX(5247)-JVS(43146)*XX(5250) - XX(3241) = XX(3241)-JVS(37822)*XX(5227)-JVS(38332)*XX(5231)-JVS(51392)*XX(5255) - XX(3240) = XX(3240)-JVS(16121)*XX(3514)-JVS(37426)*XX(5222)-JVS(39236)*XX(5234)-JVS(43145)*XX(5250)-JVS(45498)& - &*XX(5251)-JVS(48688)*XX(5253) - XX(3239) = XX(3239)-JVS(28584)*XX(4836)-JVS(29943)*XX(4938)-JVS(38331)*XX(5231)-JVS(43144)*XX(5250)-JVS(45497)& - &*XX(5251)-JVS(48687)*XX(5253) - XX(3238) = XX(3238)-JVS(18871)*XX(3860)-JVS(31534)*XX(5034)-JVS(33309)*XX(5126)-JVS(43143)*XX(5250)-JVS(45496)& - &*XX(5251)-JVS(51391)*XX(5255) - XX(3237) = XX(3237)-JVS(30445)*XX(4966)-JVS(30663)*XX(4983)-JVS(33608)*XX(5139)-JVS(35205)*XX(5183)-JVS(43142)& - &*XX(5250)-JVS(51390)*XX(5255) - XX(3236) = XX(3236)-JVS(26535)*XX(4658)-JVS(30313)*XX(4958)-JVS(43141)*XX(5250)-JVS(45495)*XX(5251)-JVS(48686)& - &*XX(5253)-JVS(51389)*XX(5255) - XX(3235) = XX(3235)-JVS(14704)*XX(3283)-JVS(17271)*XX(3659)-JVS(21566)*XX(4178)-JVS(33607)*XX(5139)-JVS(43140)& - &*XX(5250)-JVS(48685)*XX(5253) - XX(3234) = XX(3234)-JVS(37425)*XX(5222)-JVS(38330)*XX(5231)-JVS(51388)*XX(5255) - XX(3233) = XX(3233)-JVS(27788)*XX(4768)-JVS(43139)*XX(5250) - XX(3232) = XX(3232)-JVS(15869)*XX(3474)-JVS(20386)*XX(4041)-JVS(21599)*XX(4181)-JVS(43138)*XX(5250)-JVS(45494)& - &*XX(5251)-JVS(48684)*XX(5253) - XX(3231) = XX(3231)-JVS(20991)*XX(4109)-JVS(28866)*XX(4856)-JVS(33913)*XX(5145)-JVS(38812)*XX(5232)-JVS(43137)& - &*XX(5250)-JVS(51387)*XX(5255) - XX(3230) = XX(3230)-JVS(23806)*XX(4403)-JVS(35204)*XX(5183)-JVS(39002)*XX(5233)-JVS(43136)*XX(5250)-JVS(45493)& - &*XX(5251)-JVS(51386)*XX(5255) - XX(3229) = XX(3229)-JVS(15784)*XX(3456)-JVS(20085)*XX(4005)-JVS(20901)*XX(4100)-JVS(43135)*XX(5250)-JVS(45492)& - &*XX(5251)-JVS(48683)*XX(5253) - XX(3228) = XX(3228)-JVS(22497)*XX(4269)-JVS(29303)*XX(4894)-JVS(37794)*XX(5226)-JVS(43134)*XX(5250)-JVS(45491)& - &*XX(5251)-JVS(51385)*XX(5255) - XX(3227) = XX(3227)-JVS(29358)*XX(4899)-JVS(30149)*XX(4947)-JVS(39988)*XX(5244)-JVS(43133)*XX(5250)-JVS(45490)& - &*XX(5251)-JVS(51384)*XX(5255) - XX(3226) = XX(3226)-JVS(20788)*XX(4086)-JVS(29819)*XX(4930)-JVS(29836)*XX(4931)-JVS(43132)*XX(5250)-JVS(45489)& - &*XX(5251)-JVS(51383)*XX(5255) - XX(3225) = XX(3225)-JVS(20287)*XX(4029)-JVS(29632)*XX(4917)-JVS(29651)*XX(4918)-JVS(43131)*XX(5250)-JVS(45488)& - &*XX(5251)-JVS(51382)*XX(5255) - XX(3224) = XX(3224)-JVS(19492)*XX(3933)-JVS(28474)*XX(4826)-JVS(43130)*XX(5250)-JVS(45487)*XX(5251)-JVS(48682)& - &*XX(5253)-JVS(53304)*XX(5256) - XX(3223) = XX(3223)-JVS(29531)*XX(4910)-JVS(32466)*XX(5086)-JVS(34370)*XX(5160)-JVS(43129)*XX(5250)-JVS(45486)& - &*XX(5251)-JVS(48681)*XX(5253) - XX(3222) = XX(3222)-JVS(28200)*XX(4801)-JVS(29213)*XX(4885)-JVS(33912)*XX(5145)-JVS(34050)*XX(5151)-JVS(39987)& - &*XX(5244)-JVS(43128)*XX(5250) - XX(3221) = XX(3221)-JVS(29241)*XX(4888)-JVS(29942)*XX(4938)-JVS(38329)*XX(5231)-JVS(43127)*XX(5250)-JVS(45485)& - &*XX(5251)-JVS(48680)*XX(5253) - XX(3220) = XX(3220)-JVS(18355)*XX(3793)-JVS(25839)*XX(4591)-JVS(25854)*XX(4592)-JVS(43126)*XX(5250)-JVS(45484)& - &*XX(5251)-JVS(48679)*XX(5253) - XX(3219) = XX(3219)-JVS(17194)*XX(3650)-JVS(17270)*XX(3659)-JVS(36337)*XX(5201)-JVS(43125)*XX(5250)-JVS(51381)& - &*XX(5255)-JVS(53303)*XX(5256) - XX(3218) = XX(3218)-JVS(24260)*XX(4443)-JVS(34557)*XX(5162)-JVS(38328)*XX(5231)-JVS(43124)*XX(5250)-JVS(45483)& - &*XX(5251)-JVS(48678)*XX(5253) - XX(3217) = XX(3217)-JVS(23435)*XX(4366)-JVS(39001)*XX(5233)-JVS(43123)*XX(5250)-JVS(45482)*XX(5251)-JVS(51380)& - &*XX(5255) - XX(3216) = XX(3216)-JVS(18673)*XX(3837)-JVS(23434)*XX(4366)-JVS(43122)*XX(5250)-JVS(45481)*XX(5251)-JVS(51379)& - &*XX(5255) - XX(3215) = XX(3215)-JVS(23433)*XX(4366)-JVS(45480)*XX(5251)-JVS(51378)*XX(5255) - XX(3214) = XX(3214)-JVS(21675)*XX(4188)-JVS(26656)*XX(4669)-JVS(37424)*XX(5222)-JVS(39986)*XX(5244)-JVS(43121)& - &*XX(5250)-JVS(45479)*XX(5251) - XX(3213) = XX(3213)-JVS(23007)*XX(4319)-JVS(43120)*XX(5250)-JVS(51377)*XX(5255) - XX(3212) = XX(3212)-JVS(17964)*XX(3747)-JVS(31924)*XX(5055)-JVS(34369)*XX(5160)-JVS(43119)*XX(5250)-JVS(48677)& - &*XX(5253)-JVS(51376)*XX(5255) - XX(3211) = XX(3211)-JVS(22734)*XX(4294)-JVS(28473)*XX(4826)-JVS(39000)*XX(5233)-JVS(43118)*XX(5250)-JVS(48676)& - &*XX(5253)-JVS(51375)*XX(5255) - XX(3210) = XX(3210)-JVS(30913)*XX(4998)-JVS(32888)*XX(5106)-JVS(36818)*XX(5203)-JVS(43117)*XX(5250)-JVS(45478)& - &*XX(5251)-JVS(51374)*XX(5255) - XX(3209) = XX(3209)-JVS(23096)*XX(4328)-JVS(30473)*XX(4968)-JVS(30662)*XX(4983)-JVS(39985)*XX(5244)-JVS(43116)& - &*XX(5250)-JVS(51373)*XX(5255) - XX(3208) = XX(3208)-JVS(32139)*XX(5067)-JVS(34007)*XX(5149)-JVS(35626)*XX(5191)-JVS(38327)*XX(5231)-JVS(43115)& - &*XX(5250)-JVS(51372)*XX(5255) - XX(3207) = XX(3207)-JVS(27036)*XX(4698)-JVS(32773)*XX(5101)-JVS(33360)*XX(5129)-JVS(38326)*XX(5231)-JVS(43114)& - &*XX(5250)-JVS(45477)*XX(5251) - XX(3206) = XX(3206)-JVS(29282)*XX(4892)-JVS(33186)*XX(5123)-JVS(37862)*XX(5228)-JVS(43113)*XX(5250)-JVS(45476)& - &*XX(5251)-JVS(48675)*XX(5253) - XX(3205) = XX(3205)-JVS(19964)*XX(3991)-JVS(23369)*XX(4359)-JVS(32205)*XX(5071)-JVS(38325)*XX(5231)-JVS(43112)& - &*XX(5250)-JVS(51371)*XX(5255) - XX(3204) = XX(3204)-JVS(19982)*XX(3993)-JVS(31383)*XX(5025)-JVS(43111)*XX(5250)-JVS(45475)*XX(5251)-JVS(48674)& - &*XX(5253)-JVS(53302)*XX(5256) - XX(3203) = XX(3203)-JVS(16130)*XX(3515)-JVS(29498)*XX(4909)-JVS(31559)*XX(5036)-JVS(43110)*XX(5250)-JVS(48673)& - &*XX(5253)-JVS(51370)*XX(5255) - XX(3202) = XX(3202)-JVS(17202)*XX(3651)-JVS(30281)*XX(4956)-JVS(37983)*XX(5229)-JVS(43109)*XX(5250)-JVS(45474)& - &*XX(5251)-JVS(51369)*XX(5255) - XX(3201) = XX(3201)-JVS(16120)*XX(3514)-JVS(37423)*XX(5222)-JVS(39235)*XX(5234)-JVS(43108)*XX(5250)-JVS(45473)& - &*XX(5251)-JVS(51368)*XX(5255) - XX(3200) = XX(3200)-JVS(28979)*XX(4865)-JVS(33606)*XX(5139)-JVS(35203)*XX(5183)-JVS(43107)*XX(5250)-JVS(45472)& - &*XX(5251)-JVS(51367)*XX(5255) - XX(3199) = XX(3199)-JVS(23516)*XX(4375)-JVS(23527)*XX(4376)-JVS(24599)*XX(4478)-JVS(43106)*XX(5250)-JVS(45471)& - &*XX(5251)-JVS(48672)*XX(5253) - XX(3198) = XX(3198)-JVS(25782)*XX(4585)-JVS(34083)*XX(5152)-JVS(34368)*XX(5160)-JVS(35016)*XX(5180)-JVS(43105)& - &*XX(5250)-JVS(51366)*XX(5255) - XX(3197) = XX(3197)-JVS(25604)*XX(4564)-JVS(31522)*XX(5033)-JVS(43104)*XX(5250)-JVS(45470)*XX(5251)-JVS(48671)& - &*XX(5253)-JVS(53301)*XX(5256) - XX(3196) = XX(3196)-JVS(19362)*XX(3918)-JVS(25544)*XX(4558)-JVS(37422)*XX(5222)-JVS(43103)*XX(5250)-JVS(45469)& - &*XX(5251)-JVS(51365)*XX(5255) - XX(3195) = XX(3195)-JVS(17305)*XX(3664)-JVS(38999)*XX(5233)-JVS(51364)*XX(5255) - XX(3194) = XX(3194)-JVS(37793)*XX(5226)-JVS(38324)*XX(5231)-JVS(51363)*XX(5255) - XX(3193) = XX(3193)-JVS(16052)*XX(3503)-JVS(16074)*XX(3506)-JVS(17315)*XX(3665)-JVS(24203)*XX(4438)-JVS(36336)& - &*XX(5201)-JVS(43102)*XX(5250)-JVS(51362)*XX(5255)-JVS(53300)*XX(5256) - XX(3192) = XX(3192)-JVS(14230)*XX(3193)-JVS(18388)*XX(3797)-JVS(18652)*XX(3833)-JVS(20692)*XX(4074)-JVS(36335)& - &*XX(5201)-JVS(43101)*XX(5250)-JVS(51361)*XX(5255)-JVS(53299)*XX(5256) - XX(3191) = XX(3191)-JVS(22649)*XX(4285)-JVS(26505)*XX(4655)-JVS(43100)*XX(5250)-JVS(53298)*XX(5256) - XX(3190) = XX(3190)-JVS(22257)*XX(4245)-JVS(24164)*XX(4434)-JVS(43099)*XX(5250)-JVS(53297)*XX(5256) - XX(3189) = XX(3189)-JVS(21831)*XX(4204)-JVS(24930)*XX(4506)-JVS(43098)*XX(5250)-JVS(53296)*XX(5256) - XX(3188) = XX(3188)-JVS(34367)*XX(5160)-JVS(43097)*XX(5250)-JVS(48670)*XX(5253)-JVS(51360)*XX(5255) - XX(3187) = XX(3187)-JVS(21840)*XX(4205)-JVS(25042)*XX(4511)-JVS(43096)*XX(5250)-JVS(53295)*XX(5256) - XX(3186) = XX(3186)-JVS(32181)*XX(5070)-JVS(35202)*XX(5183)-JVS(43095)*XX(5250)-JVS(45468)*XX(5251) - XX(3185) = XX(3185)-JVS(24109)*XX(4429)-JVS(28776)*XX(4850)-JVS(33533)*XX(5137)-JVS(43094)*XX(5250) - XX(3184) = XX(3184)-JVS(25252)*XX(4532)-JVS(27698)*XX(4760)-JVS(33532)*XX(5137)-JVS(43093)*XX(5250) - XX(3183) = XX(3183)-JVS(24017)*XX(4421)-JVS(30113)*XX(4944)-JVS(33531)*XX(5137)-JVS(43092)*XX(5250) - XX(3182) = XX(3182)-JVS(14496)*XX(3244)-JVS(18535)*XX(3817)-JVS(18550)*XX(3819)-JVS(20202)*XX(4018)-JVS(36334)& - &*XX(5201)-JVS(43091)*XX(5250)-JVS(51359)*XX(5255)-JVS(53294)*XX(5256) - XX(3181) = XX(3181)-JVS(22429)*XX(4262)-JVS(24473)*XX(4464)-JVS(43090)*XX(5250)-JVS(53293)*XX(5256) - XX(3180) = XX(3180)-JVS(15923)*XX(3482)-JVS(16992)*XX(3627)-JVS(17298)*XX(3663)-JVS(24808)*XX(4494)-JVS(36333)& - &*XX(5201)-JVS(43089)*XX(5250)-JVS(51358)*XX(5255)-JVS(53292)*XX(5256) - XX(3179) = XX(3179)-JVS(14164)*XX(3180)-JVS(16176)*XX(3521)-JVS(16956)*XX(3622)-JVS(18433)*XX(3803)-JVS(36332)& - &*XX(5201)-JVS(43088)*XX(5250)-JVS(51357)*XX(5255)-JVS(53291)*XX(5256) - XX(3178) = XX(3178)-JVS(21729)*XX(4194)-JVS(24062)*XX(4425)-JVS(43087)*XX(5250)-JVS(53290)*XX(5256) - XX(3177) = XX(3177)-JVS(25430)*XX(4547)-JVS(43086)*XX(5250)-JVS(45467)*XX(5251)-JVS(48669)*XX(5253)-JVS(51356)& - &*XX(5255) - XX(3176) = XX(3176)-JVS(25429)*XX(4547)-JVS(43085)*XX(5250)-JVS(45466)*XX(5251)-JVS(51355)*XX(5255) - XX(3175) = XX(3175)-JVS(14622)*XX(3268)-JVS(30364)*XX(4961)-JVS(43084)*XX(5250)-JVS(48668)*XX(5253) - XX(3174) = XX(3174)-JVS(29631)*XX(4917)-JVS(38998)*XX(5233)-JVS(43083)*XX(5250)-JVS(51354)*XX(5255) - XX(3173) = XX(3173)-JVS(34366)*XX(5160)-JVS(38323)*XX(5231)-JVS(43082)*XX(5250)-JVS(48667)*XX(5253) - XX(3172) = XX(3172)-JVS(16302)*XX(3539)-JVS(17461)*XX(3684)-JVS(18519)*XX(3815)-JVS(24405)*XX(4457)-JVS(36331)& - &*XX(5201)-JVS(43081)*XX(5250)-JVS(51353)*XX(5255)-JVS(53289)*XX(5256) - XX(3171) = XX(3171)-JVS(29741)*XX(4924)-JVS(43080)*XX(5250)-JVS(45465)*XX(5251)-JVS(51352)*XX(5255) - XX(3170) = XX(3170)-JVS(26880)*XX(4690)-JVS(36330)*XX(5201)-JVS(43079)*XX(5250)-JVS(53288)*XX(5256) - XX(3169) = XX(3169)-JVS(14359)*XX(3219)-JVS(18335)*XX(3790)-JVS(20197)*XX(4017)-JVS(21466)*XX(4167)-JVS(36329)& - &*XX(5201)-JVS(43078)*XX(5250)-JVS(51351)*XX(5255)-JVS(53287)*XX(5256) - XX(3168) = XX(3168)-JVS(17382)*XX(3674)-JVS(33971)*XX(5147)-JVS(39984)*XX(5244)-JVS(43077)*XX(5250) - XX(3167) = XX(3167)-JVS(21959)*XX(4217)-JVS(22457)*XX(4265)-JVS(43076)*XX(5250)-JVS(53286)*XX(5256) - XX(3166) = XX(3166)-JVS(18134)*XX(3766)-JVS(27767)*XX(4766)-JVS(35201)*XX(5183)-JVS(43075)*XX(5250) - XX(3165) = XX(3165)-JVS(28007)*XX(4790)-JVS(36328)*XX(5201)-JVS(43074)*XX(5250)-JVS(53285)*XX(5256) - XX(3164) = XX(3164)-JVS(16030)*XX(3499)-JVS(16103)*XX(3511)-JVS(18342)*XX(3791)-JVS(24193)*XX(4437)-JVS(36327)& - &*XX(5201)-JVS(43073)*XX(5250)-JVS(51350)*XX(5255)-JVS(53284)*XX(5256) - XX(3163) = XX(3163)-JVS(22787)*XX(4298)-JVS(23953)*XX(4415)-JVS(43072)*XX(5250)-JVS(53283)*XX(5256) - XX(3162) = XX(3162)-JVS(22266)*XX(4246)-JVS(22848)*XX(4304)-JVS(43071)*XX(5250)-JVS(53282)*XX(5256) - XX(3161) = XX(3161)-JVS(28901)*XX(4859)-JVS(36326)*XX(5201)-JVS(43070)*XX(5250)-JVS(53281)*XX(5256) - XX(3160) = XX(3160)-JVS(27845)*XX(4772)-JVS(34082)*XX(5152)-JVS(34138)*XX(5155)-JVS(35478)*XX(5188)-JVS(43069)& - &*XX(5250)-JVS(45464)*XX(5251)-JVS(48666)*XX(5253)-JVS(51349)*XX(5255) - XX(3159) = XX(3159)-JVS(34365)*XX(5160)-JVS(35816)*XX(5193)-JVS(43068)*XX(5250)-JVS(48665)*XX(5253) - XX(3158) = XX(3158)-JVS(15975)*XX(3491)-JVS(16085)*XX(3508)-JVS(18556)*XX(3820)-JVS(24598)*XX(4478)-JVS(36325)& - &*XX(5201)-JVS(43067)*XX(5250)-JVS(51348)*XX(5255)-JVS(53280)*XX(5256) - XX(3157) = XX(3157)-JVS(16295)*XX(3538)-JVS(16350)*XX(3545)-JVS(18354)*XX(3793)-JVS(18616)*XX(3827)-JVS(36324)& - &*XX(5201)-JVS(43066)*XX(5250)-JVS(51347)*XX(5255)-JVS(53279)*XX(5256) - XX(3156) = XX(3156)-JVS(17397)*XX(3676)-JVS(21146)*XX(4127)-JVS(25881)*XX(4595)-JVS(43065)*XX(5250) - XX(3155) = XX(3155)-JVS(22657)*XX(4286)-JVS(27866)*XX(4774)-JVS(36278)*XX(5200)-JVS(37861)*XX(5228)-JVS(38322)& - &*XX(5231)-JVS(43064)*XX(5250)-JVS(45463)*XX(5251)-JVS(51346)*XX(5255) - XX(3154) = XX(3154)-JVS(24434)*XX(4460)-JVS(29497)*XX(4909)-JVS(31558)*XX(5036)-JVS(38997)*XX(5233)-JVS(43063)& - &*XX(5250)-JVS(45462)*XX(5251)-JVS(48664)*XX(5253)-JVS(51345)*XX(5255) - XX(3153) = XX(3153)-JVS(26793)*XX(4682)-JVS(36323)*XX(5201)-JVS(43062)*XX(5250)-JVS(53278)*XX(5256) - XX(3152) = XX(3152)-JVS(22126)*XX(4232)-JVS(24386)*XX(4455)-JVS(43061)*XX(5250)-JVS(53277)*XX(5256) - XX(3151) = XX(3151)-JVS(24444)*XX(4461)-JVS(33242)*XX(5125)-JVS(33530)*XX(5137)-JVS(43060)*XX(5250) - XX(3150) = XX(3150)-JVS(26737)*XX(4676)-JVS(36322)*XX(5201)-JVS(43059)*XX(5250)-JVS(53276)*XX(5256) - XX(3149) = XX(3149)-JVS(16405)*XX(3554)-JVS(17594)*XX(3701)-JVS(18401)*XX(3799)-JVS(24610)*XX(4479)-JVS(36321)& - &*XX(5201)-JVS(43058)*XX(5250)-JVS(51344)*XX(5255)-JVS(53275)*XX(5256) - XX(3148) = XX(3148)-JVS(18263)*XX(3781)-JVS(34578)*XX(5163)-JVS(35200)*XX(5183)-JVS(43057)*XX(5250) - XX(3147) = XX(3147)-JVS(23726)*XX(4396)-JVS(23733)*XX(4397)-JVS(23755)*XX(4399)-JVS(26623)*XX(4666)-JVS(29679)& - &*XX(4919)-JVS(43056)*XX(5250)-JVS(45461)*XX(5251)-JVS(51343)*XX(5255) - XX(3146) = XX(3146)-JVS(22516)*XX(4271)-JVS(24502)*XX(4467)-JVS(43055)*XX(5250)-JVS(53274)*XX(5256) - XX(3145) = XX(3145)-JVS(14051)*XX(3158)-JVS(16190)*XX(3523)-JVS(18657)*XX(3834)-JVS(20281)*XX(4028)-JVS(36320)& - &*XX(5201)-JVS(43054)*XX(5250)-JVS(51342)*XX(5255)-JVS(53273)*XX(5256) - XX(3144) = XX(3144)-JVS(14007)*XX(3149)-JVS(18439)*XX(3804)-JVS(18458)*XX(3807)-JVS(20858)*XX(4094)-JVS(36319)& - &*XX(5201)-JVS(43053)*XX(5250)-JVS(51341)*XX(5255)-JVS(53272)*XX(5256) - XX(3143) = XX(3143)-JVS(22684)*XX(4289)-JVS(24464)*XX(4463)-JVS(43052)*XX(5250)-JVS(53271)*XX(5256) - XX(3142) = XX(3142)-JVS(21711)*XX(4192)-JVS(22986)*XX(4317)-JVS(43051)*XX(5250)-JVS(53270)*XX(5256) - XX(3141) = XX(3141)-JVS(37208)*XX(5215)-JVS(38321)*XX(5231)-JVS(43050)*XX(5250)-JVS(48663)*XX(5253) - XX(3140) = XX(3140)-JVS(28018)*XX(4791)-JVS(36318)*XX(5201)-JVS(43049)*XX(5250)-JVS(53269)*XX(5256) - XX(3139) = XX(3139)-JVS(15995)*XX(3494)-JVS(16160)*XX(3518)-JVS(18624)*XX(3828)-JVS(23872)*XX(4407)-JVS(36317)& - &*XX(5201)-JVS(43048)*XX(5250)-JVS(51340)*XX(5255)-JVS(53268)*XX(5256) - XX(3138) = XX(3138)-JVS(13961)*XX(3139)-JVS(16200)*XX(3525)-JVS(20275)*XX(4027)-JVS(21194)*XX(4133)-JVS(36316)& - &*XX(5201)-JVS(43047)*XX(5250)-JVS(51339)*XX(5255)-JVS(53267)*XX(5256) - XX(3137) = XX(3137)-JVS(22558)*XX(4276)-JVS(26380)*XX(4643)-JVS(43046)*XX(5250)-JVS(53266)*XX(5256) - XX(3136) = XX(3136)-JVS(16468)*XX(3562)-JVS(18505)*XX(3813)-JVS(18643)*XX(3831)-JVS(24366)*XX(4453)-JVS(36315)& - &*XX(5201)-JVS(43045)*XX(5250)-JVS(51338)*XX(5255)-JVS(53265)*XX(5256) - XX(3135) = XX(3135)-JVS(16109)*XX(3512)-JVS(16257)*XX(3534)-JVS(18465)*XX(3808)-JVS(24818)*XX(4495)-JVS(36314)& - &*XX(5201)-JVS(43044)*XX(5250)-JVS(51337)*XX(5255)-JVS(53264)*XX(5256) - XX(3134) = XX(3134)-JVS(13945)*XX(3135)-JVS(16079)*XX(3507)-JVS(20763)*XX(4083)-JVS(25224)*XX(4529)-JVS(36313)& - &*XX(5201)-JVS(43043)*XX(5250)-JVS(51336)*XX(5255)-JVS(53263)*XX(5256) - XX(3133) = XX(3133)-JVS(32799)*XX(5102)-JVS(39983)*XX(5244)-JVS(43042)*XX(5250)-JVS(45460)*XX(5251) - XX(3132) = XX(3132)-JVS(25838)*XX(4591)-JVS(43041)*XX(5250)-JVS(45459)*XX(5251)-JVS(51335)*XX(5255) - XX(3131) = XX(3131)-JVS(16240)*XX(3531)-JVS(16452)*XX(3560)-JVS(18379)*XX(3796)-JVS(23882)*XX(4408)-JVS(36312)& - &*XX(5201)-JVS(43040)*XX(5250)-JVS(51334)*XX(5255)-JVS(53262)*XX(5256) - XX(3130) = XX(3130)-JVS(15963)*XX(3489)-JVS(16389)*XX(3551)-JVS(18600)*XX(3825)-JVS(24913)*XX(4504)-JVS(36311)& - &*XX(5201)-JVS(43039)*XX(5250)-JVS(51333)*XX(5255)-JVS(53261)*XX(5256) - XX(3129) = XX(3129)-JVS(13921)*XX(3130)-JVS(16213)*XX(3527)-JVS(18387)*XX(3797)-JVS(22524)*XX(4272)-JVS(36310)& - &*XX(5201)-JVS(43038)*XX(5250)-JVS(51332)*XX(5255)-JVS(53260)*XX(5256) - XX(3128) = XX(3128)-JVS(39982)*XX(5244)-JVS(43037)*XX(5250) - XX(3127) = XX(3127)-JVS(21888)*XX(4210)-JVS(22954)*XX(4314)-JVS(43036)*XX(5250)-JVS(53259)*XX(5256) - XX(3126) = XX(3126)-JVS(22156)*XX(4235)-JVS(39607)*XX(5241)-JVS(39776)*XX(5243)-JVS(43035)*XX(5250) - XX(3125) = XX(3125)-JVS(26679)*XX(4671)-JVS(36309)*XX(5201)-JVS(43034)*XX(5250)-JVS(53258)*XX(5256) - XX(3124) = XX(3124)-JVS(22539)*XX(4274)-JVS(33529)*XX(5137)-JVS(39981)*XX(5244)-JVS(43033)*XX(5250) - XX(3123) = XX(3123)-JVS(22175)*XX(4237)-JVS(22604)*XX(4280)-JVS(43032)*XX(5250)-JVS(53257)*XX(5256) - XX(3122) = XX(3122)-JVS(29818)*XX(4930)-JVS(38996)*XX(5233)-JVS(43031)*XX(5250)-JVS(51331)*XX(5255) - XX(3121) = XX(3121)-JVS(29612)*XX(4916)-JVS(38995)*XX(5233)-JVS(43030)*XX(5250)-JVS(51330)*XX(5255) - XX(3120) = XX(3120)-JVS(22857)*XX(4305)-JVS(24851)*XX(4498)-JVS(43029)*XX(5250)-JVS(53256)*XX(5256) - XX(3119) = XX(3119)-JVS(21792)*XX(4200)-JVS(22839)*XX(4303)-JVS(43028)*XX(5250)-JVS(53255)*XX(5256) - XX(3118) = XX(3118)-JVS(18297)*XX(3785)-JVS(35199)*XX(5183)-JVS(36916)*XX(5208)-JVS(43027)*XX(5250) - XX(3117) = XX(3117)-JVS(18149)*XX(3768)-JVS(30076)*XX(4942)-JVS(35198)*XX(5183)-JVS(43026)*XX(5250) - XX(3116) = XX(3116)-JVS(22328)*XX(4252)-JVS(22930)*XX(4312)-JVS(43025)*XX(5250)-JVS(53254)*XX(5256) - XX(3115) = XX(3115)-JVS(29530)*XX(4910)-JVS(43024)*XX(5250)-JVS(45458)*XX(5251)-JVS(51329)*XX(5255) - XX(3114) = XX(3114)-JVS(21720)*XX(4193)-JVS(21907)*XX(4212)-JVS(43023)*XX(5250)-JVS(53253)*XX(5256) - XX(3113) = XX(3113)-JVS(14078)*XX(3164)-JVS(18386)*XX(3797)-JVS(18395)*XX(3798)-JVS(20741)*XX(4080)-JVS(36308)& - &*XX(5201)-JVS(43022)*XX(5250)-JVS(51328)*XX(5255)-JVS(53252)*XX(5256) - XX(3112) = XX(3112)-JVS(22051)*XX(4225)-JVS(22715)*XX(4292)-JVS(43021)*XX(5250)-JVS(53251)*XX(5256) - XX(3111) = XX(3111)-JVS(28301)*XX(4810)-JVS(36307)*XX(5201)-JVS(43020)*XX(5250)-JVS(53250)*XX(5256) - XX(3110) = XX(3110)-JVS(17612)*XX(3704)-JVS(33004)*XX(5112)-JVS(35197)*XX(5183)-JVS(43019)*XX(5250) - XX(3109) = XX(3109)-JVS(17820)*XX(3730)-JVS(33970)*XX(5147)-JVS(39980)*XX(5244)-JVS(43018)*XX(5250) - XX(3108) = XX(3108)-JVS(25707)*XX(4576)-JVS(43017)*XX(5250)-JVS(45457)*XX(5251)-JVS(48662)*XX(5253)-JVS(51327)& - &*XX(5255) - XX(3107) = XX(3107)-JVS(25706)*XX(4576)-JVS(43016)*XX(5250)-JVS(45456)*XX(5251)-JVS(51326)*XX(5255) - XX(3106) = XX(3106)-JVS(35477)*XX(5188)-JVS(35815)*XX(5193)-JVS(43015)*XX(5250)-JVS(48661)*XX(5253) - XX(3105) = XX(3105)-JVS(13949)*XX(3136)-JVS(15917)*XX(3481)-JVS(18490)*XX(3811)-JVS(20311)*XX(4032)-JVS(36306)& - &*XX(5201)-JVS(43014)*XX(5250)-JVS(51325)*XX(5255)-JVS(53249)*XX(5256) - XX(3104) = XX(3104)-JVS(34364)*XX(5160)-JVS(39979)*XX(5244) - XX(3103) = XX(3103)-JVS(29941)*XX(4938)-JVS(30739)*XX(4986)-JVS(43013)*XX(5250)-JVS(51324)*XX(5255) - XX(3102) = XX(3102)-JVS(31838)*XX(5049)-JVS(43012)*XX(5250)-JVS(48660)*XX(5253)-JVS(51323)*XX(5255) - XX(3101) = XX(3101)-JVS(26273)*XX(4632)-JVS(36305)*XX(5201)-JVS(43011)*XX(5250)-JVS(53248)*XX(5256) - XX(3100) = XX(3100)-JVS(22769)*XX(4296)-JVS(22875)*XX(4307)-JVS(43010)*XX(5250)-JVS(53247)*XX(5256) - XX(3099) = XX(3099)-JVS(38320)*XX(5231)-JVS(43009)*XX(5250)-JVS(45455)*XX(5251)-JVS(51322)*XX(5255) - XX(3098) = XX(3098)-JVS(26584)*XX(4663)-JVS(36304)*XX(5201)-JVS(43008)*XX(5250)-JVS(53246)*XX(5256) - XX(3097) = XX(3097)-JVS(14600)*XX(3263)-JVS(15981)*XX(3492)-JVS(20008)*XX(3996)-JVS(20539)*XX(4055)-JVS(36303)& - &*XX(5201)-JVS(43007)*XX(5250)-JVS(51321)*XX(5255)-JVS(53245)*XX(5256) - XX(3096) = XX(3096)-JVS(13925)*XX(3131)-JVS(16090)*XX(3509)-JVS(20068)*XX(4003)-JVS(20545)*XX(4056)-JVS(36302)& - &*XX(5201)-JVS(43006)*XX(5250)-JVS(51320)*XX(5255)-JVS(53244)*XX(5256) - XX(3095) = XX(3095)-JVS(22706)*XX(4291)-JVS(22724)*XX(4293)-JVS(43005)*XX(5250)-JVS(53243)*XX(5256) - XX(3094) = XX(3094)-JVS(36973)*XX(5210)-JVS(37421)*XX(5222)-JVS(39978)*XX(5244)-JVS(51319)*XX(5255) - XX(3093) = XX(3093)-JVS(28151)*XX(4797)-JVS(36301)*XX(5201)-JVS(43004)*XX(5250)-JVS(53242)*XX(5256) - XX(3092) = XX(3092)-JVS(21738)*XX(4195)-JVS(22530)*XX(4273)-JVS(43003)*XX(5250)-JVS(53241)*XX(5256) - XX(3091) = XX(3091)-JVS(17412)*XX(3678)-JVS(33899)*XX(5144)-JVS(35196)*XX(5183)-JVS(43002)*XX(5250) - XX(3090) = XX(3090)-JVS(17944)*XX(3745)-JVS(31445)*XX(5029)-JVS(43001)*XX(5250)-JVS(48659)*XX(5253) - XX(3089) = XX(3089)-JVS(31533)*XX(5034)-JVS(38994)*XX(5233)-JVS(43000)*XX(5250)-JVS(51318)*XX(5255) - XX(3088) = XX(3088)-JVS(22866)*XX(4306)-JVS(24415)*XX(4458)-JVS(42999)*XX(5250)-JVS(53240)*XX(5256) - XX(3087) = XX(3087)-JVS(22666)*XX(4287)-JVS(22778)*XX(4297)-JVS(42998)*XX(5250)-JVS(53239)*XX(5256) - XX(3086) = XX(3086)-JVS(24173)*XX(4435)-JVS(33528)*XX(5137)-JVS(35195)*XX(5183)-JVS(42997)*XX(5250) - XX(3085) = XX(3085)-JVS(27985)*XX(4788)-JVS(36300)*XX(5201)-JVS(42996)*XX(5250)-JVS(53238)*XX(5256) - XX(3084) = XX(3084)-JVS(14123)*XX(3172)-JVS(18365)*XX(3794)-JVS(20645)*XX(4068)-JVS(20853)*XX(4093)-JVS(36299)& - &*XX(5201)-JVS(42995)*XX(5250)-JVS(51317)*XX(5255)-JVS(53237)*XX(5256) - XX(3083) = XX(3083)-JVS(34363)*XX(5160)-JVS(36768)*XX(5202)-JVS(42994)*XX(5250)-JVS(51316)*XX(5255) - XX(3082) = XX(3082)-JVS(30717)*XX(4985)-JVS(37420)*XX(5222)-JVS(42993)*XX(5250)-JVS(51315)*XX(5255) - XX(3081) = XX(3081)-JVS(21073)*XX(4119)-JVS(34362)*XX(5160)-JVS(35082)*XX(5182)-JVS(42992)*XX(5250)-JVS(48658)& - &*XX(5253) - XX(3080) = XX(3080)-JVS(35476)*XX(5188)-JVS(38993)*XX(5233)-JVS(51314)*XX(5255) - XX(3079) = XX(3079)-JVS(31923)*XX(5055)-JVS(38319)*XX(5231)-JVS(51313)*XX(5255) - XX(3078) = XX(3078)-JVS(21234)*XX(4138)-JVS(34211)*XX(5158)-JVS(35194)*XX(5183)-JVS(39705)*XX(5242)-JVS(42991)& - &*XX(5250) - XX(3077) = XX(3077)-JVS(27280)*XX(4724)-JVS(35193)*XX(5183)-JVS(38318)*XX(5231)-JVS(42990)*XX(5250)-JVS(48657)& - &*XX(5253) - XX(3076) = XX(3076)-JVS(33770)*XX(5142)-JVS(34361)*XX(5160)-JVS(35814)*XX(5193)-JVS(42989)*XX(5250)-JVS(48656)& - &*XX(5253) - XX(3075) = XX(3075)-JVS(13908)*XX(3128)-JVS(24551)*XX(4472)-JVS(42988)*XX(5250)-JVS(45454)*XX(5251)-JVS(48655)& - &*XX(5253) - XX(3074) = XX(3074)-JVS(38317)*XX(5231)-JVS(40552)*XX(5248)-JVS(48654)*XX(5253) - XX(3073) = XX(3073)-JVS(33241)*XX(5125)-JVS(33605)*XX(5139)-JVS(45453)*XX(5251) - XX(3072) = XX(3072)-JVS(30410)*XX(4964)-JVS(38316)*XX(5231)-JVS(51312)*XX(5255) - XX(3071) = XX(3071)-JVS(16978)*XX(3626)-JVS(37419)*XX(5222)-JVS(51311)*XX(5255) - XX(3070) = XX(3070)-JVS(24122)*XX(4430)-JVS(29090)*XX(4873)-JVS(42987)*XX(5250)-JVS(45452)*XX(5251)-JVS(48653)& - &*XX(5253) - XX(3069) = XX(3069)-JVS(27035)*XX(4698)-JVS(34360)*XX(5160)-JVS(39606)*XX(5241) - XX(3068) = XX(3068)-JVS(13561)*XX(3069)-JVS(34359)*XX(5160)-JVS(37418)*XX(5222)-JVS(42986)*XX(5250)-JVS(48652)& - &*XX(5253) - XX(3067) = XX(3067)-JVS(39704)*XX(5242)-JVS(39977)*XX(5244)-JVS(45451)*XX(5251) - XX(3066) = XX(3066)-JVS(16827)*XX(3607)-JVS(21394)*XX(4158)-JVS(51310)*XX(5255) - XX(3065) = XX(3065)-JVS(23805)*XX(4403)-JVS(24958)*XX(4507)-JVS(48651)*XX(5253) - XX(3064) = XX(3064)-JVS(35475)*XX(5188)-JVS(38992)*XX(5233)-JVS(51309)*XX(5255) - XX(3063) = XX(3063)-JVS(23842)*XX(4404)-JVS(35813)*XX(5193)-JVS(42985)*XX(5250)-JVS(45450)*XX(5251)-JVS(48650)& - &*XX(5253) - XX(3062) = XX(3062)-JVS(28616)*XX(4839)-JVS(39234)*XX(5234)-JVS(45449)*XX(5251) - XX(3061) = XX(3061)-JVS(25943)*XX(4602)-JVS(27502)*XX(4744)-JVS(36817)*XX(5203)-JVS(42984)*XX(5250)-JVS(48649)& - &*XX(5253) - XX(3060) = XX(3060)-JVS(26212)*XX(4626)-JVS(33185)*XX(5123)-JVS(42983)*XX(5250)-JVS(45448)*XX(5251)-JVS(48648)& - &*XX(5253) - XX(3059) = XX(3059)-JVS(16223)*XX(3529)-JVS(34137)*XX(5155)-JVS(42982)*XX(5250)-JVS(48647)*XX(5253)-JVS(51308)& - &*XX(5255) - XX(3058) = XX(3058)-JVS(28775)*XX(4850)-JVS(33604)*XX(5139)-JVS(45447)*XX(5251) - XX(3057) = XX(3057)-JVS(16114)*XX(3513)-JVS(32887)*XX(5106)-JVS(39976)*XX(5244)-JVS(42981)*XX(5250)-JVS(51307)& - &*XX(5255) - XX(3056) = XX(3056)-JVS(29596)*XX(4915)-JVS(37417)*XX(5222)-JVS(42980)*XX(5250)-JVS(45446)*XX(5251)-JVS(48646)& - &*XX(5253) - XX(3055) = XX(3055)-JVS(15354)*XX(3389)-JVS(19660)*XX(3954)-JVS(27758)*XX(4765)-JVS(42979)*XX(5250)-JVS(51306)& - &*XX(5255) - XX(3054) = XX(3054)-JVS(31474)*XX(5031)-JVS(38315)*XX(5231)-JVS(51305)*XX(5255) - XX(3053) = XX(3053)-JVS(21536)*XX(4175)-JVS(26262)*XX(4631)-JVS(42978)*XX(5250)-JVS(45445)*XX(5251)-JVS(48645)& - &*XX(5253) - XX(3052) = XX(3052)-JVS(22799)*XX(4299)-JVS(25276)*XX(4534)-JVS(42977)*XX(5250)-JVS(45444)*XX(5251)-JVS(48644)& - &*XX(5253) - XX(3051) = XX(3051)-JVS(21936)*XX(4215)-JVS(36816)*XX(5203)-JVS(42976)*XX(5250)-JVS(45443)*XX(5251)-JVS(48643)& - &*XX(5253) - XX(3050) = XX(3050)-JVS(20451)*XX(4047)-JVS(38991)*XX(5233)-JVS(48642)*XX(5253) - XX(3049) = XX(3049)-JVS(22194)*XX(4239)-JVS(27359)*XX(4730)-JVS(38314)*XX(5231)-JVS(39441)*XX(5237)-JVS(42975)& - &*XX(5250) - XX(3048) = XX(3048)-JVS(38313)*XX(5231)-JVS(39703)*XX(5242)-JVS(51304)*XX(5255) - XX(3047) = XX(3047)-JVS(38312)*XX(5231)-JVS(38811)*XX(5232)-JVS(42974)*XX(5250)-JVS(45442)*XX(5251)-JVS(48641)& - &*XX(5253) - XX(3046) = XX(3046)-JVS(19722)*XX(3961)-JVS(33045)*XX(5115)-JVS(33722)*XX(5140)-JVS(42973)*XX(5250)-JVS(51303)& - &*XX(5255) - XX(3045) = XX(3045)-JVS(22083)*XX(4228)-JVS(37755)*XX(5225)-JVS(42972)*XX(5250)-JVS(48640)*XX(5253)-JVS(53236)& - &*XX(5256) - XX(3044) = XX(3044)-JVS(32498)*XX(5087)-JVS(36972)*XX(5210)-JVS(42971)*XX(5250)-JVS(45441)*XX(5251)-JVS(51302)& - &*XX(5255) - XX(3043) = XX(3043)-JVS(21627)*XX(4183)-JVS(27513)*XX(4745)-JVS(42970)*XX(5250)-JVS(45440)*XX(5251)-JVS(51301)& - &*XX(5255) - XX(3042) = XX(3042)-JVS(22094)*XX(4229)-JVS(27568)*XX(4749)-JVS(42969)*XX(5250)-JVS(45439)*XX(5251)-JVS(48639)& - &*XX(5253) - XX(3041) = XX(3041)-JVS(19714)*XX(3960)-JVS(45438)*XX(5251)-JVS(51300)*XX(5255) - XX(3040) = XX(3040)-JVS(22008)*XX(4221)-JVS(24747)*XX(4490)-JVS(42968)*XX(5250)-JVS(45437)*XX(5251)-JVS(48638)& - &*XX(5253) - XX(3039) = XX(3039)-JVS(38311)*XX(5231)-JVS(40551)*XX(5248)-JVS(51299)*XX(5255) - XX(3038) = XX(3038)-JVS(18819)*XX(3854)-JVS(22943)*XX(4313)-JVS(28566)*XX(4834)-JVS(42967)*XX(5250)-JVS(51298)& - &*XX(5255) - XX(3037) = XX(3037)-JVS(16912)*XX(3617)-JVS(38310)*XX(5231)-JVS(51297)*XX(5255) - XX(3036) = XX(3036)-JVS(24957)*XX(4507)-JVS(28082)*XX(4796)-JVS(48637)*XX(5253) - XX(3035) = XX(3035)-JVS(26097)*XX(4618)-JVS(28890)*XX(4858)-JVS(35625)*XX(5191)-JVS(39975)*XX(5244)-JVS(42966)& - &*XX(5250) - XX(3034) = XX(3034)-JVS(19886)*XX(3981)-JVS(26600)*XX(4664)-JVS(34358)*XX(5160)-JVS(42965)*XX(5250)-JVS(48636)& - &*XX(5253) - XX(3033) = XX(3033)-JVS(24184)*XX(4436)-JVS(29496)*XX(4909)-JVS(42964)*XX(5250)-JVS(45436)*XX(5251)-JVS(51296)& - &*XX(5255) - XX(3032) = XX(3032)-JVS(19083)*XX(3885)-JVS(31674)*XX(5042)-JVS(51295)*XX(5255) - XX(3031) = XX(3031)-JVS(32683)*XX(5098)-JVS(33080)*XX(5117)-JVS(35192)*XX(5183)-JVS(39974)*XX(5244)-JVS(42963)& - &*XX(5250) - XX(3030) = XX(3030)-JVS(37207)*XX(5215)-JVS(38309)*XX(5231)-JVS(48635)*XX(5253) - XX(3029) = XX(3029)-JVS(28615)*XX(4839)-JVS(34357)*XX(5160)-JVS(37041)*XX(5211)-JVS(42962)*XX(5250)-JVS(48634)& - &*XX(5253) - XX(3028) = XX(3028)-JVS(25942)*XX(4602)-JVS(29835)*XX(4931)-JVS(51294)*XX(5255) - XX(3027) = XX(3027)-JVS(18525)*XX(3816)-JVS(38990)*XX(5233)-JVS(48633)*XX(5253) - XX(3026) = XX(3026)-JVS(24521)*XX(4469)-JVS(25554)*XX(4559)-JVS(42961)*XX(5250)-JVS(45435)*XX(5251)-JVS(48632)& - &*XX(5253) - XX(3025) = XX(3025)-JVS(26612)*XX(4665)-JVS(27419)*XX(4737)-JVS(42960)*XX(5250)-JVS(45434)*XX(5251)-JVS(48631)& - &*XX(5253) - XX(3024) = XX(3024)-JVS(25075)*XX(4515)-JVS(31673)*XX(5042)-JVS(42959)*XX(5250)-JVS(45433)*XX(5251)-JVS(48630)& - &*XX(5253) - XX(3023) = XX(3023)-JVS(18934)*XX(3868)-JVS(30848)*XX(4994)-JVS(42958)*XX(5250)-JVS(45432)*XX(5251)-JVS(48629)& - &*XX(5253) - XX(3022) = XX(3022)-JVS(29611)*XX(4916)-JVS(31978)*XX(5058)-JVS(42957)*XX(5250)-JVS(45431)*XX(5251)-JVS(51293)& - &*XX(5255) - XX(3021) = XX(3021)-JVS(34210)*XX(5158)-JVS(37416)*XX(5222)-JVS(42956)*XX(5250)-JVS(45430)*XX(5251)-JVS(48628)& - &*XX(5253) - XX(3020) = XX(3020)-JVS(25501)*XX(4553)-JVS(30944)*XX(5000)-JVS(42955)*XX(5250)-JVS(45429)*XX(5251)-JVS(48627)& - &*XX(5253) - XX(3019) = XX(3019)-JVS(21360)*XX(4154)-JVS(21781)*XX(4199)-JVS(35812)*XX(5193)-JVS(42954)*XX(5250)-JVS(48626)& - &*XX(5253) - XX(3018) = XX(3018)-JVS(17223)*XX(3653)-JVS(28347)*XX(4814)-JVS(29181)*XX(4882)-JVS(42953)*XX(5250)-JVS(51292)& - &*XX(5255) - XX(3017) = XX(3017)-JVS(22821)*XX(4301)-JVS(37206)*XX(5215)-JVS(42952)*XX(5250)-JVS(45428)*XX(5251)-JVS(48625)& - &*XX(5253) - XX(3016) = XX(3016)-JVS(23131)*XX(4331)-JVS(26927)*XX(4693)-JVS(48624)*XX(5253) - XX(3015) = XX(3015)-JVS(16602)*XX(3580)-JVS(29191)*XX(4883)-JVS(42951)*XX(5250)-JVS(48623)*XX(5253)-JVS(51291)& - &*XX(5255) - XX(3014) = XX(3014)-JVS(21821)*XX(4203)-JVS(28978)*XX(4865)-JVS(42950)*XX(5250)-JVS(45427)*XX(5251)-JVS(48622)& - &*XX(5253) - XX(3013) = XX(3013)-JVS(34356)*XX(5160)-JVS(35081)*XX(5182)-JVS(51290)*XX(5255) - XX(3012) = XX(3012)-JVS(28031)*XX(4792)-JVS(29650)*XX(4918)-JVS(42949)*XX(5250)-JVS(45426)*XX(5251)-JVS(48621)& - &*XX(5253) - XX(3011) = XX(3011)-JVS(24248)*XX(4442)-JVS(33424)*XX(5131)-JVS(42948)*XX(5250)-JVS(45425)*XX(5251)-JVS(48620)& - &*XX(5253) - XX(3010) = XX(3010)-JVS(17852)*XX(3734)-JVS(30272)*XX(4955)-JVS(42947)*XX(5250)-JVS(45424)*XX(5251)-JVS(48619)& - &*XX(5253) - XX(3009) = XX(3009)-JVS(33862)*XX(5143)-JVS(35624)*XX(5191)-JVS(51289)*XX(5255) - XX(3008) = XX(3008)-JVS(31036)*XX(5004)-JVS(35080)*XX(5182)-JVS(42946)*XX(5250)-JVS(45423)*XX(5251)-JVS(48618)& - &*XX(5253) - XX(3007) = XX(3007)-JVS(25137)*XX(4521)-JVS(31134)*XX(5009)-JVS(42945)*XX(5250)-JVS(45422)*XX(5251)-JVS(48617)& - &*XX(5253) - XX(3006) = XX(3006)-JVS(24699)*XX(4486)-JVS(34974)*XX(5179)-JVS(37040)*XX(5211)-JVS(39973)*XX(5244)-JVS(42944)& - &*XX(5250) - XX(3005) = XX(3005)-JVS(17761)*XX(3723)-JVS(30136)*XX(4946)-JVS(33603)*XX(5139)-JVS(39972)*XX(5244)-JVS(42943)& - &*XX(5250) - XX(3004) = XX(3004)-JVS(23804)*XX(4403)-JVS(24956)*XX(4507)-JVS(51288)*XX(5255) - XX(3003) = XX(3003)-JVS(35191)*XX(5183)-JVS(35811)*XX(5193)-JVS(42942)*XX(5250)-JVS(45421)*XX(5251)-JVS(48616)& - &*XX(5253) - XX(3002) = XX(3002)-JVS(21370)*XX(4155)-JVS(34632)*XX(5165)-JVS(38308)*XX(5231)-JVS(48615)*XX(5253)-JVS(51287)& - &*XX(5255) - XX(3001) = XX(3001)-JVS(24955)*XX(4507)-JVS(28081)*XX(4796)-JVS(51286)*XX(5255) - XX(3000) = XX(3000)-JVS(28199)*XX(4801)-JVS(35810)*XX(5193)-JVS(51285)*XX(5255) - XX(2999) = XX(2999)-JVS(13203)*XX(3000)-JVS(23622)*XX(4386)-JVS(37415)*XX(5222)-JVS(42941)*XX(5250)-JVS(48614)& - &*XX(5253) - XX(2998) = XX(2998)-JVS(20266)*XX(4026)-JVS(36209)*XX(5199)-JVS(42940)*XX(5250)-JVS(45420)*XX(5251)-JVS(48613)& - &*XX(5253) - XX(2997) = XX(2997)-JVS(34865)*XX(5176)-JVS(38307)*XX(5231)-JVS(51284)*XX(5255) - XX(2996) = XX(2996)-JVS(38306)*XX(5231)-JVS(39702)*XX(5242)-JVS(51283)*XX(5255) - XX(2995) = XX(2995)-JVS(23803)*XX(4403)-JVS(24954)*XX(4507)-JVS(48612)*XX(5253) - XX(2994) = XX(2994)-JVS(17304)*XX(3664)-JVS(38989)*XX(5233)-JVS(48611)*XX(5253) - XX(2993) = XX(2993)-JVS(27732)*XX(4763)-JVS(34355)*XX(5160)-JVS(42939)*XX(5250)-JVS(45419)*XX(5251)-JVS(51282)& - &*XX(5255) - XX(2992) = XX(2992)-JVS(34354)*XX(5160)-JVS(45418)*XX(5251)-JVS(51281)*XX(5255) - XX(2991) = XX(2991)-JVS(22007)*XX(4221)-JVS(24746)*XX(4490)-JVS(42938)*XX(5250)-JVS(45417)*XX(5251)-JVS(51280)& - &*XX(5255) - XX(2990) = XX(2990)-JVS(16718)*XX(3594)-JVS(18979)*XX(3873)-JVS(51279)*XX(5255) - XX(2989) = XX(2989)-JVS(35190)*XX(5183)-JVS(38305)*XX(5231)-JVS(45416)*XX(5251) - XX(2988) = XX(2988)-JVS(24090)*XX(4427)-JVS(34631)*XX(5165)-JVS(42937)*XX(5250)-JVS(45415)*XX(5251)-JVS(48610)& - &*XX(5253) - XX(2987) = XX(2987)-JVS(19138)*XX(3892)-JVS(30704)*XX(4984)-JVS(42936)*XX(5250)-JVS(45414)*XX(5251)-JVS(48609)& - &*XX(5253) - XX(2986) = XX(2986)-JVS(24953)*XX(4507)-JVS(26926)*XX(4693)-JVS(48608)*XX(5253) - XX(2985) = XX(2985)-JVS(15339)*XX(3387)-JVS(29495)*XX(4909)-JVS(42935)*XX(5250)-JVS(48607)*XX(5253)-JVS(51278)& - &*XX(5255) - XX(2984) = XX(2984)-JVS(24687)*XX(4485)-JVS(32229)*XX(5072)-JVS(42934)*XX(5250)-JVS(45413)*XX(5251)-JVS(48606)& - &*XX(5253) - XX(2983) = XX(2983)-JVS(34928)*XX(5178)-JVS(38304)*XX(5231)-JVS(51277)*XX(5255) - XX(2982) = XX(2982)-JVS(31398)*XX(5026)-JVS(38303)*XX(5231)-JVS(51276)*XX(5255) - XX(2981) = XX(2981)-JVS(13202)*XX(3000)-JVS(23672)*XX(4391)-JVS(28226)*XX(4802)-JVS(39605)*XX(5241)-JVS(42933)& - &*XX(5250) - XX(2980) = XX(2980)-JVS(17092)*XX(3639)-JVS(26486)*XX(4653)-JVS(42932)*XX(5250)-JVS(45412)*XX(5251)-JVS(48605)& - &*XX(5253) - XX(2979) = XX(2979)-JVS(22062)*XX(4226)-JVS(42931)*XX(5250)-JVS(51275)*XX(5255) - XX(2978) = XX(2978)-JVS(26574)*XX(4662)-JVS(30525)*XX(4973)-JVS(42930)*XX(5250)-JVS(45411)*XX(5251)-JVS(48604)& - &*XX(5253) - XX(2977) = XX(2977)-JVS(29394)*XX(4902)-JVS(30483)*XX(4969)-JVS(42929)*XX(5250)-JVS(45410)*XX(5251)-JVS(48603)& - &*XX(5253) - XX(2976) = XX(2976)-JVS(13907)*XX(3128)-JVS(26042)*XX(4612)-JVS(35809)*XX(5193)-JVS(42928)*XX(5250)-JVS(51274)& - &*XX(5255) - XX(2975) = XX(2975)-JVS(16868)*XX(3612)-JVS(26432)*XX(4648)-JVS(42927)*XX(5250)-JVS(45409)*XX(5251)-JVS(51273)& - &*XX(5255) - XX(2974) = XX(2974)-JVS(16627)*XX(3583)-JVS(18945)*XX(3869)-JVS(51272)*XX(5255) - XX(2973) = XX(2973)-JVS(33769)*XX(5142)-JVS(39515)*XX(5238)-JVS(42926)*XX(5250) - XX(2972) = XX(2972)-JVS(35375)*XX(5184)-JVS(38302)*XX(5231)-JVS(51271)*XX(5255) - XX(2971) = XX(2971)-JVS(22566)*XX(4277)-JVS(33602)*XX(5139)-JVS(42925)*XX(5250)-JVS(45408)*XX(5251)-JVS(51270)& - &*XX(5255) - XX(2970) = XX(2970)-JVS(23109)*XX(4329)-JVS(36208)*XX(5199)-JVS(39971)*XX(5244)-JVS(42924)*XX(5250)-JVS(48602)& - &*XX(5253) - XX(2969) = XX(2969)-JVS(28962)*XX(4864)-JVS(29834)*XX(4931)-JVS(42923)*XX(5250)-JVS(45407)*XX(5251)-JVS(48601)& - &*XX(5253) - XX(2968) = XX(2968)-JVS(34209)*XX(5158)-JVS(34353)*XX(5160)-JVS(45406)*XX(5251) - XX(2967) = XX(2967)-JVS(29940)*XX(4938)-JVS(37414)*XX(5222)-JVS(51269)*XX(5255) - XX(2966) = XX(2966)-JVS(16774)*XX(3601)-JVS(42922)*XX(5250)-JVS(45405)*XX(5251)-JVS(48600)*XX(5253)-JVS(51268)& - &*XX(5255) - XX(2965) = XX(2965)-JVS(21223)*XX(4137)-JVS(35374)*XX(5184)-JVS(42921)*XX(5250) - XX(2964) = XX(2964)-JVS(17492)*XX(3688)-JVS(34927)*XX(5178)-JVS(35623)*XX(5191)-JVS(42920)*XX(5250)-JVS(48599)& - &*XX(5253) - XX(2963) = XX(2963)-JVS(24952)*XX(4507)-JVS(26925)*XX(4693)-JVS(51267)*XX(5255) - XX(2962) = XX(2962)-JVS(34864)*XX(5176)-JVS(38301)*XX(5231)-JVS(48598)*XX(5253) - XX(2961) = XX(2961)-JVS(38300)*XX(5231)-JVS(40573)*XX(5249)-JVS(51266)*XX(5255) - XX(2960) = XX(2960)-JVS(33601)*XX(5139)-JVS(35189)*XX(5183)-JVS(45404)*XX(5251) - XX(2959) = XX(2959)-JVS(37205)*XX(5215)-JVS(38299)*XX(5231)-JVS(48597)*XX(5253) - XX(2958) = XX(2958)-JVS(30246)*XX(4953)-JVS(32393)*XX(5083)-JVS(42919)*XX(5250)-JVS(45403)*XX(5251)-JVS(48596)& - &*XX(5253) - XX(2957) = XX(2957)-JVS(20023)*XX(3998)-JVS(37754)*XX(5225)-JVS(42918)*XX(5250)-JVS(48595)*XX(5253)-JVS(53235)& - &*XX(5256) - XX(2956) = XX(2956)-JVS(15324)*XX(3385)-JVS(23198)*XX(4338)-JVS(42917)*XX(5250)-JVS(45402)*XX(5251)-JVS(48594)& - &*XX(5253) - XX(2955) = XX(2955)-JVS(26442)*XX(4649)-JVS(31977)*XX(5058)-JVS(42916)*XX(5250)-JVS(45401)*XX(5251)-JVS(48593)& - &*XX(5253) - XX(2954) = XX(2954)-JVS(16937)*XX(3619)-JVS(38298)*XX(5231)-JVS(51265)*XX(5255) - XX(2953) = XX(2953)-JVS(32860)*XX(5105)-JVS(38297)*XX(5231)-JVS(51264)*XX(5255) - XX(2952) = XX(2952)-JVS(23130)*XX(4331)-JVS(26924)*XX(4693)-JVS(48592)*XX(5253) - XX(2951) = XX(2951)-JVS(29586)*XX(4914)-JVS(31444)*XX(5029)-JVS(42915)*XX(5250)-JVS(45400)*XX(5251)-JVS(48591)& - &*XX(5253) - XX(2950) = XX(2950)-JVS(21185)*XX(4132)-JVS(33308)*XX(5126)-JVS(35808)*XX(5193)-JVS(42914)*XX(5250)-JVS(48590)& - &*XX(5253) - XX(2949) = XX(2949)-JVS(29833)*XX(4931)-JVS(38988)*XX(5233)-JVS(51263)*XX(5255) - XX(2948) = XX(2948)-JVS(26823)*XX(4685)-JVS(33743)*XX(5141)-JVS(35807)*XX(5193)-JVS(42913)*XX(5250)-JVS(48589)& - &*XX(5253) - XX(2947) = XX(2947)-JVS(17006)*XX(3629)-JVS(29273)*XX(4891)-JVS(42912)*XX(5250)-JVS(45399)*XX(5251)-JVS(48588)& - &*XX(5253) - XX(2946) = XX(2946)-JVS(30524)*XX(4973)-JVS(35806)*XX(5193)-JVS(51262)*XX(5255) - XX(2945) = XX(2945)-JVS(29740)*XX(4924)-JVS(35805)*XX(5193)-JVS(42911)*XX(5250)-JVS(45398)*XX(5251)-JVS(48587)& - &*XX(5253) - XX(2944) = XX(2944)-JVS(34630)*XX(5165)-JVS(38296)*XX(5231)-JVS(51261)*XX(5255) - XX(2943) = XX(2943)-JVS(17627)*XX(3706)-JVS(26599)*XX(4664)-JVS(34352)*XX(5160)-JVS(42910)*XX(5250)-JVS(48586)& - &*XX(5253) - XX(2942) = XX(2942)-JVS(20400)*XX(4042)-JVS(22581)*XX(4278)-JVS(34351)*XX(5160)-JVS(42909)*XX(5250)-JVS(48585)& - &*XX(5253) - XX(2941) = XX(2941)-JVS(28324)*XX(4812)-JVS(35079)*XX(5182)-JVS(42908)*XX(5250)-JVS(45397)*XX(5251)-JVS(48584)& - &*XX(5253) - XX(2940) = XX(2940)-JVS(18047)*XX(3756)-JVS(28485)*XX(4827)-JVS(34594)*XX(5164)-JVS(35804)*XX(5193)-JVS(42907)& - &*XX(5250) - XX(2939) = XX(2939)-JVS(23279)*XX(4348)-JVS(31922)*XX(5055)-JVS(51260)*XX(5255) - XX(2938) = XX(2938)-JVS(35078)*XX(5182)-JVS(39542)*XX(5239)-JVS(42906)*XX(5250) - XX(2937) = XX(2937)-JVS(23802)*XX(4403)-JVS(24951)*XX(4507)-JVS(48583)*XX(5253) - XX(2936) = XX(2936)-JVS(33240)*XX(5125)-JVS(38987)*XX(5233)-JVS(42905)*XX(5250)-JVS(45396)*XX(5251)-JVS(51259)& - &*XX(5255) - XX(2935) = XX(2935)-JVS(24950)*XX(4507)-JVS(26923)*XX(4693)-JVS(48582)*XX(5253) - XX(2934) = XX(2934)-JVS(32088)*XX(5063)-JVS(32104)*XX(5064)-JVS(42904)*XX(5250)-JVS(48581)*XX(5253)-JVS(51258)& - &*XX(5255) - XX(2933) = XX(2933)-JVS(18237)*XX(3778)-JVS(34350)*XX(5160)-JVS(37982)*XX(5229) - XX(2932) = XX(2932)-JVS(26261)*XX(4631)-JVS(35188)*XX(5183)-JVS(39440)*XX(5237)-JVS(42903)*XX(5250)-JVS(51257)& - &*XX(5255) - XX(2931) = XX(2931)-JVS(18776)*XX(3849)-JVS(38295)*XX(5231)-JVS(51256)*XX(5255) - XX(2930) = XX(2930)-JVS(21233)*XX(4138)-JVS(34208)*XX(5158)-JVS(35803)*XX(5193)-JVS(42902)*XX(5250)-JVS(45395)& - &*XX(5251) - XX(2929) = XX(2929)-JVS(22073)*XX(4227)-JVS(24053)*XX(4424)-JVS(42901)*XX(5250)-JVS(45394)*XX(5251)-JVS(48580)& - &*XX(5253) - XX(2928) = XX(2928)-JVS(27619)*XX(4753)-JVS(37339)*XX(5221)-JVS(42900)*XX(5250)-JVS(45393)*XX(5251)-JVS(48579)& - &*XX(5253) - XX(2927) = XX(2927)-JVS(32886)*XX(5106)-JVS(38986)*XX(5233)-JVS(42899)*XX(5250)-JVS(45392)*XX(5251)-JVS(51255)& - &*XX(5255) - XX(2926) = XX(2926)-JVS(18065)*XX(3758)-JVS(38038)*XX(5230)-JVS(51254)*XX(5255) - XX(2925) = XX(2925)-JVS(25105)*XX(4518)-JVS(30312)*XX(4958)-JVS(42898)*XX(5250)-JVS(45391)*XX(5251)-JVS(48578)& - &*XX(5253) - XX(2924) = XX(2924)-JVS(29610)*XX(4916)-JVS(38985)*XX(5233)-JVS(42897)*XX(5250)-JVS(45390)*XX(5251)-JVS(48577)& - &*XX(5253) - XX(2923) = XX(2923)-JVS(15684)*XX(3434)-JVS(29691)*XX(4920)-JVS(35622)*XX(5191)-JVS(39970)*XX(5244)-JVS(42896)& - &*XX(5250) - XX(2922) = XX(2922)-JVS(17502)*XX(3689)-JVS(19643)*XX(3952)-JVS(51253)*XX(5255) - XX(2921) = XX(2921)-JVS(28935)*XX(4862)-JVS(39233)*XX(5234)-JVS(42895)*XX(5250)-JVS(45389)*XX(5251)-JVS(48576)& - &*XX(5253) - XX(2920) = XX(2920)-JVS(27481)*XX(4742)-JVS(28879)*XX(4857)-JVS(35802)*XX(5193)-JVS(39969)*XX(5244)-JVS(42894)& - &*XX(5250) - XX(2919) = XX(2919)-JVS(29939)*XX(4938)-JVS(45388)*XX(5251)-JVS(48575)*XX(5253) - XX(2918) = XX(2918)-JVS(24949)*XX(4507)-JVS(26922)*XX(4693)-JVS(48574)*XX(5253) - XX(2917) = XX(2917)-JVS(15301)*XX(3382)-JVS(18229)*XX(3777)-JVS(42893)*XX(5250)-JVS(48573)*XX(5253)-JVS(51252)& - &*XX(5255) - XX(2916) = XX(2916)-JVS(34892)*XX(5177)-JVS(38294)*XX(5231)-JVS(48572)*XX(5253) - XX(2915) = XX(2915)-JVS(26303)*XX(4635)-JVS(32159)*XX(5068)-JVS(42892)*XX(5250)-JVS(45387)*XX(5251)-JVS(48571)& - &*XX(5253) - XX(2914) = XX(2914)-JVS(37860)*XX(5228)-JVS(39514)*XX(5238)-JVS(42891)*XX(5250) - XX(2913) = XX(2913)-JVS(25553)*XX(4559)-JVS(30636)*XX(4981)-JVS(38293)*XX(5231)-JVS(42890)*XX(5250)-JVS(48570)& - &*XX(5253) - XX(2912) = XX(2912)-JVS(35801)*XX(5193)-JVS(38037)*XX(5230)-JVS(51251)*XX(5255) - XX(2911) = XX(2911)-JVS(17143)*XX(3644)-JVS(22887)*XX(4308)-JVS(42889)*XX(5250)-JVS(45386)*XX(5251)-JVS(51250)& - &*XX(5255) - XX(2910) = XX(2910)-JVS(23599)*XX(4384)-JVS(30803)*XX(4991)-JVS(33079)*XX(5117)-JVS(39968)*XX(5244)-JVS(42888)& - &*XX(5250) - XX(2909) = XX(2909)-JVS(23609)*XX(4385)-JVS(35373)*XX(5184)-JVS(42887)*XX(5250) - XX(2908) = XX(2908)-JVS(12682)*XX(2909)-JVS(23608)*XX(4385)-JVS(35372)*XX(5184)-JVS(42886)*XX(5250)-JVS(48569)& - &*XX(5253) - XX(2907) = XX(2907)-JVS(27442)*XX(4739)-JVS(37753)*XX(5225)-JVS(42885)*XX(5250)-JVS(45385)*XX(5251)-JVS(48568)& - &*XX(5253) - XX(2906) = XX(2906)-JVS(18862)*XX(3859)-JVS(19418)*XX(3924)-JVS(51249)*XX(5255) - XX(2905) = XX(2905)-JVS(35800)*XX(5193)-JVS(39967)*XX(5244)-JVS(45384)*XX(5251) - XX(2904) = XX(2904)-JVS(26814)*XX(4684)-JVS(37413)*XX(5222)-JVS(42884)*XX(5250)-JVS(45383)*XX(5251)-JVS(48567)& - &*XX(5253) - XX(2903) = XX(2903)-JVS(16314)*XX(3541)-JVS(28080)*XX(4796)-JVS(48566)*XX(5253) - XX(2902) = XX(2902)-JVS(37204)*XX(5215)-JVS(38292)*XX(5231)-JVS(51248)*XX(5255) - XX(2901) = XX(2901)-JVS(20921)*XX(4102)-JVS(25941)*XX(4602)-JVS(35621)*XX(5191)-JVS(42883)*XX(5250)-JVS(48565)& - &*XX(5253) - XX(2900) = XX(2900)-JVS(20498)*XX(4051)-JVS(38291)*XX(5231)-JVS(42882)*XX(5250)-JVS(45382)*XX(5251)-JVS(51247)& - &*XX(5255) - XX(2899) = XX(2899)-JVS(21820)*XX(4203)-JVS(28977)*XX(4865)-JVS(42881)*XX(5250)-JVS(45381)*XX(5251)-JVS(51246)& - &*XX(5255) - XX(2898) = XX(2898)-JVS(22466)*XX(4266)-JVS(37203)*XX(5215)-JVS(42880)*XX(5250)-JVS(45380)*XX(5251)-JVS(48564)& - &*XX(5253) - XX(2897) = XX(2897)-JVS(25940)*XX(4602)-JVS(33600)*XX(5139)-JVS(51245)*XX(5255) - XX(2896) = XX(2896)-JVS(22630)*XX(4283)-JVS(34629)*XX(5165)-JVS(42879)*XX(5250)-JVS(45379)*XX(5251)-JVS(48563)& - &*XX(5253) - XX(2895) = XX(2895)-JVS(24587)*XX(4477)-JVS(25185)*XX(4525)-JVS(42878)*XX(5250)-JVS(45378)*XX(5251)-JVS(51244)& - &*XX(5255) - XX(2894) = XX(2894)-JVS(18775)*XX(3849)-JVS(45377)*XX(5251)-JVS(51243)*XX(5255) - XX(2893) = XX(2893)-JVS(26096)*XX(4618)-JVS(28810)*XX(4852)-JVS(35187)*XX(5183)-JVS(35799)*XX(5193)-JVS(42877)& - &*XX(5250) - XX(2892) = XX(2892)-JVS(21685)*XX(4189)-JVS(24789)*XX(4493)-JVS(34349)*XX(5160)-JVS(42876)*XX(5250)-JVS(48562)& - &*XX(5253) - XX(2891) = XX(2891)-JVS(27962)*XX(4785)-JVS(31956)*XX(5057)-JVS(51242)*XX(5255) - XX(2890) = XX(2890)-JVS(35446)*XX(5187)-JVS(45376)*XX(5251)-JVS(51241)*XX(5255) - XX(2889) = XX(2889)-JVS(15317)*XX(3384)-JVS(27026)*XX(4697)-JVS(51240)*XX(5255) - XX(2888) = XX(2888)-JVS(20817)*XX(4089)-JVS(20842)*XX(4092)-JVS(34348)*XX(5160)-JVS(42875)*XX(5250)-JVS(48561)& - &*XX(5253) - XX(2887) = XX(2887)-JVS(25535)*XX(4557)-JVS(37412)*XX(5222)-JVS(42874)*XX(5250)-JVS(45375)*XX(5251)-JVS(48560)& - &*XX(5253) - XX(2886) = XX(2886)-JVS(34973)*XX(5179)-JVS(39701)*XX(5242)-JVS(42873)*XX(5250)-JVS(45374)*XX(5251)-JVS(48559)& - &*XX(5253) - XX(2885) = XX(2885)-JVS(23924)*XX(4412)-JVS(32204)*XX(5071)-JVS(42872)*XX(5250)-JVS(45373)*XX(5251)-JVS(48558)& - &*XX(5253) - XX(2884) = XX(2884)-JVS(28743)*XX(4848)-JVS(31921)*XX(5055)-JVS(42871)*XX(5250)-JVS(45372)*XX(5251)-JVS(48557)& - &*XX(5253) - XX(2883) = XX(2883)-JVS(29938)*XX(4938)-JVS(33078)*XX(5117)-JVS(42870)*XX(5250)-JVS(45371)*XX(5251)-JVS(48556)& - &*XX(5253) - XX(2882) = XX(2882)-JVS(26294)*XX(4634)-JVS(34926)*XX(5178)-JVS(42869)*XX(5250)-JVS(45370)*XX(5251)-JVS(48555)& - &*XX(5253) - XX(2881) = XX(2881)-JVS(34347)*XX(5160)-JVS(39966)*XX(5244)-JVS(45369)*XX(5251) - XX(2880) = XX(2880)-JVS(32138)*XX(5067)-JVS(33499)*XX(5136)-JVS(42868)*XX(5250)-JVS(45368)*XX(5251)-JVS(48554)& - &*XX(5253) - XX(2879) = XX(2879)-JVS(28855)*XX(4855)-JVS(32632)*XX(5095)-JVS(42867)*XX(5250)-JVS(45367)*XX(5251)-JVS(48553)& - &*XX(5253) - XX(2878) = XX(2878)-JVS(16022)*XX(3498)-JVS(23658)*XX(4390)-JVS(38036)*XX(5230)-JVS(39965)*XX(5244)-JVS(42866)& - &*XX(5250) - XX(2877) = XX(2877)-JVS(29105)*XX(4874)-JVS(31194)*XX(5012)-JVS(42865)*XX(5250)-JVS(45366)*XX(5251)-JVS(48552)& - &*XX(5253) - XX(2876) = XX(2876)-JVS(30738)*XX(4986)-JVS(37411)*XX(5222)-JVS(42864)*XX(5250)-JVS(45365)*XX(5251)-JVS(48551)& - &*XX(5253) - XX(2875) = XX(2875)-JVS(19651)*XX(3953)-JVS(29817)*XX(4930)-JVS(42863)*XX(5250)-JVS(45364)*XX(5251)-JVS(51239)& - &*XX(5255) - XX(2874) = XX(2874)-JVS(27137)*XX(4710)-JVS(38290)*XX(5231)-JVS(51238)*XX(5255) - XX(2873) = XX(2873)-JVS(24100)*XX(4428)-JVS(35798)*XX(5193)-JVS(42862)*XX(5250)-JVS(45363)*XX(5251)-JVS(51237)& - &*XX(5255) - XX(2872) = XX(2872)-JVS(24154)*XX(4433)-JVS(36815)*XX(5203)-JVS(42861)*XX(5250)-JVS(45362)*XX(5251)-JVS(48550)& - &*XX(5253) - XX(2871) = XX(2871)-JVS(19082)*XX(3885)-JVS(19330)*XX(3915)-JVS(19407)*XX(3923)-JVS(42860)*XX(5250)-JVS(51236)& - &*XX(5255) - XX(2870) = XX(2870)-JVS(22733)*XX(4294)-JVS(27844)*XX(4772)-JVS(34081)*XX(5152)-JVS(42859)*XX(5250)-JVS(48549)& - &*XX(5253) - XX(2869) = XX(2869)-JVS(30943)*XX(5000)-JVS(38289)*XX(5231)-JVS(48548)*XX(5253) - XX(2868) = XX(2868)-JVS(20181)*XX(4015)-JVS(25491)*XX(4552)-JVS(29766)*XX(4926)-JVS(42858)*XX(5250)-JVS(51235)& - &*XX(5255) - XX(2867) = XX(2867)-JVS(24455)*XX(4462)-JVS(28260)*XX(4806)-JVS(42857)*XX(5250)-JVS(45361)*XX(5251)-JVS(48547)& - &*XX(5253) - XX(2866) = XX(2866)-JVS(24235)*XX(4441)-JVS(24323)*XX(4449)-JVS(35620)*XX(5191)-JVS(42856)*XX(5250)-JVS(48546)& - &*XX(5253) - XX(2865) = XX(2865)-JVS(38288)*XX(5231)-JVS(39232)*XX(5234)-JVS(51234)*XX(5255) - XX(2864) = XX(2864)-JVS(28824)*XX(4853)-JVS(34346)*XX(5160)-JVS(42855)*XX(5250)-JVS(45360)*XX(5251)-JVS(48545)& - &*XX(5253) - XX(2863) = XX(2863)-JVS(22340)*XX(4253)-JVS(24322)*XX(4449)-JVS(39964)*XX(5244)-JVS(42854)*XX(5250)-JVS(48544)& - &*XX(5253) - XX(2862) = XX(2862)-JVS(21970)*XX(4218)-JVS(28357)*XX(4815)-JVS(42853)*XX(5250)-JVS(45359)*XX(5251)-JVS(51233)& - &*XX(5255) - XX(2861) = XX(2861)-JVS(38287)*XX(5231)-JVS(45358)*XX(5251)-JVS(51232)*XX(5255) - XX(2860) = XX(2860)-JVS(14480)*XX(3242)-JVS(29706)*XX(4921)-JVS(42852)*XX(5250)-JVS(45357)*XX(5251)-JVS(48543)& - &*XX(5253) - XX(2859) = XX(2859)-JVS(24731)*XX(4489)-JVS(25939)*XX(4602)-JVS(35797)*XX(5193)-JVS(42851)*XX(5250)-JVS(48542)& - &*XX(5253) - XX(2858) = XX(2858)-JVS(35796)*XX(5193)-JVS(45356)*XX(5251)-JVS(48541)*XX(5253) - XX(2857) = XX(2857)-JVS(26495)*XX(4654)-JVS(33184)*XX(5123)-JVS(35619)*XX(5191)-JVS(42850)*XX(5250)-JVS(48540)& - &*XX(5253) - XX(2856) = XX(2856)-JVS(14422)*XX(3233)-JVS(33395)*XX(5130)-JVS(42849)*XX(5250) - XX(2855) = XX(2855)-JVS(12413)*XX(2856)-JVS(14421)*XX(3233)-JVS(33394)*XX(5130)-JVS(42848)*XX(5250)-JVS(48539)& - &*XX(5253) - XX(2854) = XX(2854)-JVS(24072)*XX(4426)-JVS(42847)*XX(5250)-JVS(48538)*XX(5253) - XX(2853) = XX(2853)-JVS(27697)*XX(4760)-JVS(33599)*XX(5139)-JVS(45355)*XX(5251) - XX(2852) = XX(2852)-JVS(15683)*XX(3434)-JVS(30578)*XX(4977)-JVS(42846)*XX(5250)-JVS(45354)*XX(5251)-JVS(48537)& - &*XX(5253) - XX(2851) = XX(2851)-JVS(34925)*XX(5178)-JVS(38286)*XX(5231)-JVS(48536)*XX(5253) - XX(2850) = XX(2850)-JVS(16446)*XX(3559)-JVS(28515)*XX(4830)-JVS(42845)*XX(5250)-JVS(45353)*XX(5251)-JVS(48535)& - &*XX(5253) - XX(2849) = XX(2849)-JVS(35795)*XX(5193)-JVS(38035)*XX(5230)-JVS(51231)*XX(5255) - XX(2848) = XX(2848)-JVS(26240)*XX(4629)-JVS(31955)*XX(5057)-JVS(42844)*XX(5250)-JVS(45352)*XX(5251)-JVS(48534)& - &*XX(5253) - XX(2847) = XX(2847)-JVS(26994)*XX(4694)-JVS(37410)*XX(5222)-JVS(48533)*XX(5253) - XX(2846) = XX(2846)-JVS(23671)*XX(4391)-JVS(29883)*XX(4934)-JVS(42843)*XX(5250)-JVS(45351)*XX(5251)-JVS(48532)& - &*XX(5253) - XX(2845) = XX(2845)-JVS(24511)*XX(4468)-JVS(31473)*XX(5031)-JVS(42842)*XX(5250)-JVS(45350)*XX(5251)-JVS(48531)& - &*XX(5253) - XX(2844) = XX(2844)-JVS(25094)*XX(4517)-JVS(26095)*XX(4618)-JVS(42841)*XX(5250)-JVS(45349)*XX(5251)-JVS(48530)& - &*XX(5253) - XX(2843) = XX(2843)-JVS(26179)*XX(4623)-JVS(29076)*XX(4872)-JVS(42840)*XX(5250)-JVS(45348)*XX(5251)-JVS(48529)& - &*XX(5253) - XX(2842) = XX(2842)-JVS(28997)*XX(4866)-JVS(33861)*XX(5143)-JVS(42839)*XX(5250)-JVS(45347)*XX(5251)-JVS(48528)& - &*XX(5253) - XX(2841) = XX(2841)-JVS(27696)*XX(4760)-JVS(34628)*XX(5165)-JVS(42838)*XX(5250)-JVS(45346)*XX(5251)-JVS(48527)& - &*XX(5253) - XX(2840) = XX(2840)-JVS(34345)*XX(5160)-JVS(38285)*XX(5231)-JVS(51230)*XX(5255) - XX(2839) = XX(2839)-JVS(33768)*XX(5142)-JVS(34924)*XX(5178)-JVS(35794)*XX(5193)-JVS(42837)*XX(5250)-JVS(48526)& - &*XX(5253) - XX(2838) = XX(2838)-JVS(20154)*XX(4013)-JVS(23066)*XX(4325)-JVS(42836)*XX(5250)-JVS(45345)*XX(5251)-JVS(51229)& - &*XX(5255) - XX(2837) = XX(2837)-JVS(31578)*XX(5037)-JVS(45344)*XX(5251)-JVS(51228)*XX(5255) - XX(2836) = XX(2836)-JVS(30779)*XX(4989)-JVS(38284)*XX(5231)-JVS(42835)*XX(5250)-JVS(45343)*XX(5251)-JVS(51227)& - &*XX(5255) - XX(2835) = XX(2835)-JVS(33044)*XX(5115)-JVS(33721)*XX(5140)-JVS(42834)*XX(5250)-JVS(48525)*XX(5253)-JVS(51226)& - &*XX(5255) - XX(2834) = XX(2834)-JVS(13445)*XX(3048)-JVS(38283)*XX(5231)-JVS(39700)*XX(5242)-JVS(42833)*XX(5250)-JVS(48524)& - &*XX(5253) - XX(2833) = XX(2833)-JVS(24280)*XX(4445)-JVS(35618)*XX(5191)-JVS(36207)*XX(5199)-JVS(42832)*XX(5250)-JVS(48523)& - &*XX(5253) - XX(2832) = XX(2832)-JVS(38282)*XX(5231)-JVS(39577)*XX(5240)-JVS(48522)*XX(5253) - XX(2831) = XX(2831)-JVS(34344)*XX(5160)-JVS(35793)*XX(5193)-JVS(48521)*XX(5253) - XX(2830) = XX(2830)-JVS(27853)*XX(4773)-JVS(37409)*XX(5222)-JVS(42831)*XX(5250)-JVS(45342)*XX(5251)-JVS(48520)& - &*XX(5253) - XX(2829) = XX(2829)-JVS(21750)*XX(4196)-JVS(28949)*XX(4863)-JVS(42830)*XX(5250)-JVS(45341)*XX(5251)-JVS(48519)& - &*XX(5253) - XX(2828) = XX(2828)-JVS(35792)*XX(5193)-JVS(37408)*XX(5222)-JVS(42829)*XX(5250)-JVS(45340)*XX(5251)-JVS(51225)& - &*XX(5255) - XX(2827) = XX(2827)-JVS(35791)*XX(5193)-JVS(38281)*XX(5231)-JVS(51224)*XX(5255) - XX(2826) = XX(2826)-JVS(33860)*XX(5143)-JVS(35790)*XX(5193)-JVS(51223)*XX(5255) - XX(2825) = XX(2825)-JVS(39231)*XX(5234)-JVS(39439)*XX(5237)-JVS(42828)*XX(5250)-JVS(45339)*XX(5251)-JVS(48518)& - &*XX(5253) - XX(2824) = XX(2824)-JVS(25085)*XX(4516)-JVS(35015)*XX(5180)-JVS(42827)*XX(5250)-JVS(45338)*XX(5251)-JVS(51222)& - &*XX(5255) - XX(2823) = XX(2823)-JVS(25335)*XX(4539)-JVS(29903)*XX(4936)-JVS(42826)*XX(5250)-JVS(45337)*XX(5251)-JVS(48517)& - &*XX(5253) - XX(2822) = XX(2822)-JVS(28198)*XX(4801)-JVS(30607)*XX(4979)-JVS(42825)*XX(5250)-JVS(45336)*XX(5251)-JVS(48516)& - &*XX(5253) - XX(2821) = XX(2821)-JVS(38280)*XX(5231)-JVS(39699)*XX(5242)-JVS(48515)*XX(5253) - XX(2820) = XX(2820)-JVS(35789)*XX(5193)-JVS(39963)*XX(5244)-JVS(45335)*XX(5251) - XX(2819) = XX(2819)-JVS(38279)*XX(5231)-JVS(39962)*XX(5244)-JVS(45334)*XX(5251) - XX(2818) = XX(2818)-JVS(23801)*XX(4403)-JVS(24948)*XX(4507)-JVS(48514)*XX(5253) - XX(2817) = XX(2817)-JVS(19202)*XX(3900)-JVS(21982)*XX(4219)-JVS(38278)*XX(5231)-JVS(42824)*XX(5250)-JVS(48513)& - &*XX(5253) - XX(2816) = XX(2816)-JVS(38984)*XX(5233)-JVS(39230)*XX(5234)-JVS(51221)*XX(5255) - XX(2815) = XX(2815)-JVS(22977)*XX(4316)-JVS(30942)*XX(5000)-JVS(42823)*XX(5250)-JVS(45333)*XX(5251)-JVS(48512)& - &*XX(5253) - XX(2814) = XX(2814)-JVS(14714)*XX(3284)-JVS(35474)*XX(5188)-JVS(37407)*XX(5222)-JVS(42822)*XX(5250)-JVS(48511)& - &*XX(5253) - XX(2813) = XX(2813)-JVS(30594)*XX(4978)-JVS(40456)*XX(5245)-JVS(42821)*XX(5250)-JVS(45332)*XX(5251)-JVS(48510)& - &*XX(5253) - XX(2812) = XX(2812)-JVS(23213)*XX(4340)-JVS(24788)*XX(4493)-JVS(34343)*XX(5160)-JVS(42820)*XX(5250)-JVS(48509)& - &*XX(5253) - XX(2811) = XX(2811)-JVS(24099)*XX(4428)-JVS(35788)*XX(5193)-JVS(42819)*XX(5250)-JVS(45331)*XX(5251)-JVS(48508)& - &*XX(5253) - XX(2810) = XX(2810)-JVS(13906)*XX(3128)-JVS(26067)*XX(4614)-JVS(37859)*XX(5228)-JVS(38277)*XX(5231)-JVS(42818)& - &*XX(5250) - XX(2809) = XX(2809)-JVS(21039)*XX(4115)-JVS(28614)*XX(4839)-JVS(39438)*XX(5237)-JVS(42817)*XX(5250)-JVS(45330)& - &*XX(5251) - XX(2808) = XX(2808)-JVS(29816)*XX(4930)-JVS(29832)*XX(4931)-JVS(42816)*XX(5250)-JVS(45329)*XX(5251)-JVS(48507)& - &*XX(5253) - XX(2807) = XX(2807)-JVS(35787)*XX(5193)-JVS(45328)*XX(5251)-JVS(51220)*XX(5255) - XX(2806) = XX(2806)-JVS(18564)*XX(3821)-JVS(38983)*XX(5233)-JVS(48506)*XX(5253) - XX(2805) = XX(2805)-JVS(14117)*XX(3171)-JVS(32497)*XX(5087)-JVS(42815)*XX(5250)-JVS(45327)*XX(5251)-JVS(51219)& - &*XX(5255) - XX(2804) = XX(2804)-JVS(37133)*XX(5214)-JVS(38982)*XX(5233)-JVS(42814)*XX(5250)-JVS(45326)*XX(5251)-JVS(48505)& - &*XX(5253) - XX(2803) = XX(2803)-JVS(31883)*XX(5053)-JVS(33527)*XX(5137)-JVS(42813)*XX(5250)-JVS(45325)*XX(5251)-JVS(51218)& - &*XX(5255) - XX(2802) = XX(2802)-JVS(16431)*XX(3557)-JVS(21215)*XX(4136)-JVS(34342)*XX(5160)-JVS(42812)*XX(5250)-JVS(48504)& - &*XX(5253) - XX(2801) = XX(2801)-JVS(22398)*XX(4259)-JVS(36020)*XX(5194)-JVS(42811)*XX(5250)-JVS(45324)*XX(5251)-JVS(48503)& - &*XX(5253) - XX(2800) = XX(2800)-JVS(21858)*XX(4207)-JVS(31920)*XX(5055)-JVS(42810)*XX(5250)-JVS(45323)*XX(5251)-JVS(48502)& - &*XX(5253) - XX(2799) = XX(2799)-JVS(19227)*XX(3903)-JVS(23742)*XX(4398)-JVS(38981)*XX(5233)-JVS(42809)*XX(5250)-JVS(48501)& - &*XX(5253) - XX(2798) = XX(2798)-JVS(23741)*XX(4398)-JVS(38980)*XX(5233)-JVS(48500)*XX(5253) - XX(2797) = XX(2797)-JVS(19973)*XX(3992)-JVS(25351)*XX(4540)-JVS(42808)*XX(5250)-JVS(45322)*XX(5251)-JVS(51217)& - &*XX(5255) - XX(2796) = XX(2796)-JVS(23944)*XX(4414)-JVS(39229)*XX(5234)-JVS(42807)*XX(5250)-JVS(45321)*XX(5251)-JVS(48499)& - &*XX(5253) - XX(2795) = XX(2795)-JVS(35786)*XX(5193)-JVS(38979)*XX(5233)-JVS(51216)*XX(5255) - XX(2794) = XX(2794)-JVS(25300)*XX(4536)-JVS(27877)*XX(4775)-JVS(42806)*XX(5250)-JVS(45320)*XX(5251)-JVS(48498)& - &*XX(5253) - XX(2793) = XX(2793)-JVS(32736)*XX(5100)-JVS(37406)*XX(5222)-JVS(42805)*XX(5250)-JVS(45319)*XX(5251)-JVS(48497)& - &*XX(5253) - XX(2792) = XX(2792)-JVS(34341)*XX(5160)-JVS(39775)*XX(5243)-JVS(42804)*XX(5250)-JVS(45318)*XX(5251)-JVS(48496)& - &*XX(5253) - XX(2791) = XX(2791)-JVS(22360)*XX(4255)-JVS(37792)*XX(5226)-JVS(42803)*XX(5250)-JVS(45317)*XX(5251)-JVS(48495)& - &*XX(5253) - XX(2790) = XX(2790)-JVS(30191)*XX(4949)-JVS(35473)*XX(5188)-JVS(42802)*XX(5250)-JVS(45316)*XX(5251)-JVS(48494)& - &*XX(5253) - XX(2789) = XX(2789)-JVS(20450)*XX(4047)-JVS(37405)*XX(5222)-JVS(48493)*XX(5253) - XX(2788) = XX(2788)-JVS(38276)*XX(5231)-JVS(45315)*XX(5251)-JVS(51215)*XX(5255) - XX(2787) = XX(2787)-JVS(26370)*XX(4642)-JVS(31397)*XX(5026)-JVS(42801)*XX(5250)-JVS(45314)*XX(5251)-JVS(48492)& - &*XX(5253) - XX(2786) = XX(2786)-JVS(30379)*XX(4962)-JVS(35371)*XX(5184)-JVS(42800)*XX(5250)-JVS(45313)*XX(5251)-JVS(48491)& - &*XX(5253) - XX(2785) = XX(2785)-JVS(19146)*XX(3893)-JVS(22289)*XX(4248)-JVS(22418)*XX(4261)-JVS(42799)*XX(5250)-JVS(51214)& - &*XX(5255) - XX(2784) = XX(2784)-JVS(22104)*XX(4230)-JVS(35370)*XX(5184)-JVS(42798)*XX(5250)-JVS(45312)*XX(5251)-JVS(48490)& - &*XX(5253) - XX(2783) = XX(2783)-JVS(38275)*XX(5231)-JVS(42797)*XX(5250)-JVS(48489)*XX(5253) - XX(2782) = XX(2782)-JVS(15228)*XX(3372)-JVS(18028)*XX(3754)-JVS(37858)*XX(5228)-JVS(42796)*XX(5250)-JVS(48488)& - &*XX(5253) - XX(2781) = XX(2781)-JVS(27431)*XX(4738)-JVS(27556)*XX(4748)-JVS(42795)*XX(5250)-JVS(45311)*XX(5251)-JVS(48487)& - &*XX(5253) - XX(2780) = XX(2780)-JVS(21665)*XX(4187)-JVS(30409)*XX(4964)-JVS(42794)*XX(5250)-JVS(45310)*XX(5251)-JVS(48486)& - &*XX(5253) - XX(2779) = XX(2779)-JVS(16801)*XX(3604)-JVS(26833)*XX(4686)-JVS(42793)*XX(5250)-JVS(45309)*XX(5251)-JVS(48485)& - &*XX(5253) - XX(2778) = XX(2778)-JVS(25157)*XX(4523)-JVS(25170)*XX(4524)-JVS(42792)*XX(5250)-JVS(45308)*XX(5251)-JVS(48484)& - &*XX(5253) - XX(2777) = XX(2777)-JVS(26313)*XX(4636)-JVS(32334)*XX(5080)-JVS(42791)*XX(5250)-JVS(45307)*XX(5251)-JVS(48483)& - &*XX(5253) - XX(2776) = XX(2776)-JVS(18630)*XX(3829)-JVS(37404)*XX(5222)-JVS(48482)*XX(5253) - XX(2775) = XX(2775)-JVS(18978)*XX(3873)-JVS(32087)*XX(5063)-JVS(32103)*XX(5064)-JVS(42790)*XX(5250)-JVS(51213)& - &*XX(5255) - XX(2774) = XX(2774)-JVS(31882)*XX(5053)-JVS(33598)*XX(5139)-JVS(35186)*XX(5183)-JVS(38274)*XX(5231)-JVS(42789)& - &*XX(5250) - XX(2773) = XX(2773)-JVS(21948)*XX(4216)-JVS(42788)*XX(5250)-JVS(51212)*XX(5255) - XX(2772) = XX(2772)-JVS(27606)*XX(4752)-JVS(34891)*XX(5177)-JVS(42787)*XX(5250)-JVS(45306)*XX(5251)-JVS(48481)& - &*XX(5253) - XX(2771) = XX(2771)-JVS(36019)*XX(5194)-JVS(38273)*XX(5231)-JVS(51211)*XX(5255) - XX(2770) = XX(2770)-JVS(31374)*XX(5024)-JVS(38272)*XX(5231)-JVS(51210)*XX(5255) - XX(2769) = XX(2769)-JVS(27480)*XX(4742)-JVS(38271)*XX(5231)-JVS(39961)*XX(5244)-JVS(42786)*XX(5250)-JVS(45305)& - &*XX(5251) - XX(2768) = XX(2768)-JVS(26993)*XX(4694)-JVS(45304)*XX(5251)-JVS(48480)*XX(5253) - XX(2767) = XX(2767)-JVS(17330)*XX(3667)-JVS(19014)*XX(3877)-JVS(51209)*XX(5255) - XX(2766) = XX(2766)-JVS(23553)*XX(4379)-JVS(29240)*XX(4888)-JVS(29937)*XX(4938)-JVS(39960)*XX(5244)-JVS(42785)& - &*XX(5250) - XX(2765) = XX(2765)-JVS(20441)*XX(4046)-JVS(21780)*XX(4199)-JVS(42784)*XX(5250)-JVS(45303)*XX(5251)-JVS(48479)& - &*XX(5253) - XX(2764) = XX(2764)-JVS(13905)*XX(3128)-JVS(35785)*XX(5193)-JVS(42783)*XX(5250)-JVS(48478)*XX(5253)-JVS(51208)& - &*XX(5255) - XX(2763) = XX(2763)-JVS(22476)*XX(4267)-JVS(25938)*XX(4602)-JVS(42782)*XX(5250)-JVS(45302)*XX(5251)-JVS(51207)& - &*XX(5255) - XX(2762) = XX(2762)-JVS(24762)*XX(4491)-JVS(37403)*XX(5222)-JVS(48477)*XX(5253) - XX(2761) = XX(2761)-JVS(19329)*XX(3915)-JVS(19406)*XX(3923)-JVS(42781)*XX(5250)-JVS(48476)*XX(5253)-JVS(51206)& - &*XX(5255) - XX(2760) = XX(2760)-JVS(34556)*XX(5162)-JVS(38270)*XX(5231)-JVS(51205)*XX(5255) - XX(2759) = XX(2759)-JVS(22580)*XX(4278)-JVS(23295)*XX(4350)-JVS(34340)*XX(5160)-JVS(42780)*XX(5250)-JVS(48475)& - &*XX(5253) - XX(2758) = XX(2758)-JVS(26160)*XX(4622)-JVS(38269)*XX(5231)-JVS(45301)*XX(5251) - XX(2757) = XX(2757)-JVS(16936)*XX(3619)-JVS(26033)*XX(4611)-JVS(42779)*XX(5250)-JVS(45300)*XX(5251)-JVS(48474)& - &*XX(5253) - XX(2756) = XX(2756)-JVS(17091)*XX(3639)-JVS(28841)*XX(4854)-JVS(42778)*XX(5250)-JVS(45299)*XX(5251)-JVS(48473)& - &*XX(5253) - XX(2755) = XX(2755)-JVS(19858)*XX(3978)-JVS(30791)*XX(4990)-JVS(42777)*XX(5250)-JVS(45298)*XX(5251)-JVS(48472)& - &*XX(5253) - XX(2754) = XX(2754)-JVS(22798)*XX(4299)-JVS(25275)*XX(4534)-JVS(42776)*XX(5250)-JVS(45297)*XX(5251)-JVS(51204)& - &*XX(5255) - XX(2753) = XX(2753)-JVS(21145)*XX(4127)-JVS(29800)*XX(4929)-JVS(35784)*XX(5193)-JVS(37857)*XX(5228)-JVS(42775)& - &*XX(5250) - XX(2752) = XX(2752)-JVS(37402)*XX(5222)-JVS(38978)*XX(5233)-JVS(51203)*XX(5255) - XX(2751) = XX(2751)-JVS(30112)*XX(4944)-JVS(33597)*XX(5139)-JVS(45296)*XX(5251) - XX(2750) = XX(2750)-JVS(32431)*XX(5085)-JVS(38268)*XX(5231)-JVS(48471)*XX(5253) - XX(2749) = XX(2749)-JVS(30593)*XX(4978)-JVS(39437)*XX(5237)-JVS(45295)*XX(5251) - XX(2748) = XX(2748)-JVS(34718)*XX(5170)-JVS(38267)*XX(5231)-JVS(42774)*XX(5250)-JVS(45294)*XX(5251)-JVS(51202)& - &*XX(5255) - XX(2747) = XX(2747)-JVS(36814)*XX(5203)-JVS(38266)*XX(5231)-JVS(51201)*XX(5255) - XX(2746) = XX(2746)-JVS(38265)*XX(5231)-JVS(39576)*XX(5240)-JVS(51200)*XX(5255) - XX(2745) = XX(2745)-JVS(35369)*XX(5184)-JVS(35783)*XX(5193)-JVS(51199)*XX(5255) - XX(2744) = XX(2744)-JVS(17071)*XX(3638)-JVS(38264)*XX(5231)-JVS(51198)*XX(5255) - XX(2743) = XX(2743)-JVS(23563)*XX(4380)-JVS(36813)*XX(5203)-JVS(42773)*XX(5250)-JVS(45293)*XX(5251)-JVS(48470)& - &*XX(5253) - XX(2742) = XX(2742)-JVS(17338)*XX(3668)-JVS(24787)*XX(4493)-JVS(34339)*XX(5160)-JVS(42772)*XX(5250)-JVS(48469)& - &*XX(5253) - XX(2741) = XX(2741)-JVS(24947)*XX(4507)-JVS(26921)*XX(4693)-JVS(51197)*XX(5255) - XX(2740) = XX(2740)-JVS(13164)*XX(2994)-JVS(14245)*XX(3195)-JVS(17297)*XX(3663)-JVS(42771)*XX(5250)-JVS(48468)& - &*XX(5253) - XX(2739) = XX(2739)-JVS(38263)*XX(5231)-JVS(39959)*XX(5244)-JVS(45292)*XX(5251) - XX(2738) = XX(2738)-JVS(22613)*XX(4281)-JVS(38034)*XX(5230)-JVS(42770)*XX(5250)-JVS(45291)*XX(5251)-JVS(48467)& - &*XX(5253) - XX(2737) = XX(2737)-JVS(14479)*XX(3242)-JVS(40515)*XX(5247)-JVS(42769)*XX(5250)-JVS(45290)*XX(5251)-JVS(51196)& - &*XX(5255) - XX(2736) = XX(2736)-JVS(23129)*XX(4331)-JVS(26920)*XX(4693)-JVS(48466)*XX(5253) - XX(2735) = XX(2735)-JVS(15376)*XX(3392)-JVS(32267)*XX(5075)-JVS(42768)*XX(5250)-JVS(48465)*XX(5253)-JVS(51195)& - &*XX(5255) - XX(2734) = XX(2734)-JVS(35782)*XX(5193)-JVS(38977)*XX(5233)-JVS(48464)*XX(5253) - XX(2733) = XX(2733)-JVS(24946)*XX(4507)-JVS(26919)*XX(4693)-JVS(48463)*XX(5253) - XX(2732) = XX(2732)-JVS(21565)*XX(4178)-JVS(33596)*XX(5139)-JVS(48462)*XX(5253) - XX(2731) = XX(2731)-JVS(15895)*XX(3478)-JVS(28079)*XX(4796)-JVS(51194)*XX(5255) - XX(2730) = XX(2730)-JVS(13492)*XX(3057)-JVS(29548)*XX(4911)-JVS(30190)*XX(4949)-JVS(35781)*XX(5193)-JVS(42767)& - &*XX(5250) - XX(2729) = XX(2729)-JVS(15074)*XX(3350)-JVS(25125)*XX(4520)-JVS(42766)*XX(5250)-JVS(45289)*XX(5251)-JVS(48461)& - &*XX(5253) - XX(2728) = XX(2728)-JVS(26992)*XX(4694)-JVS(33595)*XX(5139)-JVS(48460)*XX(5253) - XX(2727) = XX(2727)-JVS(30245)*XX(4953)-JVS(38262)*XX(5231)-JVS(42765)*XX(5250)-JVS(45288)*XX(5251)-JVS(51193)& - &*XX(5255) - XX(2726) = XX(2726)-JVS(28774)*XX(4850)-JVS(34555)*XX(5162)-JVS(42764)*XX(5250)-JVS(45287)*XX(5251)-JVS(48459)& - &*XX(5253) - XX(2725) = XX(2725)-JVS(17142)*XX(3644)-JVS(22886)*XX(4308)-JVS(42763)*XX(5250)-JVS(45286)*XX(5251)-JVS(48458)& - &*XX(5253) - XX(2724) = XX(2724)-JVS(35077)*XX(5182)-JVS(38810)*XX(5232)-JVS(45285)*XX(5251) - XX(2723) = XX(2723)-JVS(22155)*XX(4235)-JVS(32956)*XX(5110)-JVS(38261)*XX(5231)-JVS(42762)*XX(5250)-JVS(51192)& - &*XX(5255) - XX(2722) = XX(2722)-JVS(19605)*XX(3947)-JVS(21458)*XX(4166)-JVS(51191)*XX(5255) - XX(2721) = XX(2721)-JVS(25937)*XX(4602)-JVS(26134)*XX(4620)-JVS(38033)*XX(5230)-JVS(42761)*XX(5250)-JVS(48457)& - &*XX(5253) - XX(2720) = XX(2720)-JVS(35617)*XX(5191)-JVS(38260)*XX(5231)-JVS(51190)*XX(5255) - XX(2719) = XX(2719)-JVS(14420)*XX(3233)-JVS(32836)*XX(5104)-JVS(42760)*XX(5250) - XX(2718) = XX(2718)-JVS(23995)*XX(4419)-JVS(30363)*XX(4961)-JVS(42759)*XX(5250)-JVS(45284)*XX(5251)-JVS(48456)& - &*XX(5253) - XX(2717) = XX(2717)-JVS(29494)*XX(4909)-JVS(39228)*XX(5234)-JVS(51189)*XX(5255) - XX(2716) = XX(2716)-JVS(22116)*XX(4231)-JVS(42758)*XX(5250)-JVS(51188)*XX(5255) - XX(2715) = XX(2715)-JVS(29936)*XX(4938)-JVS(32682)*XX(5098)-JVS(35780)*XX(5193)-JVS(39958)*XX(5244)-JVS(42757)& - &*XX(5250) - XX(2714) = XX(2714)-JVS(18870)*XX(3860)-JVS(31532)*XX(5034)-JVS(42756)*XX(5250)-JVS(45283)*XX(5251)-JVS(51187)& - &*XX(5255) - XX(2713) = XX(2713)-JVS(22942)*XX(4313)-JVS(28565)*XX(4834)-JVS(42755)*XX(5250)-JVS(48455)*XX(5253)-JVS(51186)& - &*XX(5255) - XX(2712) = XX(2712)-JVS(25936)*XX(4602)-JVS(28422)*XX(4822)-JVS(42754)*XX(5250)-JVS(45282)*XX(5251)-JVS(48454)& - &*XX(5253) - XX(2711) = XX(2711)-JVS(16206)*XX(3526)-JVS(34080)*XX(5152)-JVS(38809)*XX(5232)-JVS(42753)*XX(5250)-JVS(51185)& - &*XX(5255) - XX(2710) = XX(2710)-JVS(18723)*XX(3843)-JVS(19721)*XX(3961)-JVS(51184)*XX(5255) - XX(2709) = XX(2709)-JVS(13334)*XX(3027)-JVS(18518)*XX(3815)-JVS(27494)*XX(4743)-JVS(42752)*XX(5250)-JVS(48453)& - &*XX(5253) - XX(2708) = XX(2708)-JVS(31262)*XX(5017)-JVS(32430)*XX(5085)-JVS(42751)*XX(5250)-JVS(45281)*XX(5251)-JVS(48452)& - &*XX(5253) - XX(2707) = XX(2707)-JVS(38259)*XX(5231)-JVS(39227)*XX(5234)-JVS(51183)*XX(5255) - XX(2706) = XX(2706)-JVS(36018)*XX(5194)-JVS(38258)*XX(5231)-JVS(51182)*XX(5255) - XX(2705) = XX(2705)-JVS(19457)*XX(3929)-JVS(24433)*XX(4460)-JVS(42750)*XX(5250)-JVS(48451)*XX(5253)-JVS(53234)& - &*XX(5256) - XX(2704) = XX(2704)-JVS(31869)*XX(5052)-JVS(39575)*XX(5240)-JVS(42749)*XX(5250)-JVS(45280)*XX(5251)-JVS(48450)& - &*XX(5253) - XX(2703) = XX(2703)-JVS(23686)*XX(4392)-JVS(31903)*XX(5054)-JVS(42748)*XX(5250)-JVS(45279)*XX(5251)-JVS(48449)& - &*XX(5253) - XX(2702) = XX(2702)-JVS(25147)*XX(4522)-JVS(34923)*XX(5178)-JVS(42747)*XX(5250)-JVS(45278)*XX(5251)-JVS(48448)& - &*XX(5253) - XX(2701) = XX(2701)-JVS(20947)*XX(4104)-JVS(25897)*XX(4597)-JVS(34338)*XX(5160)-JVS(42746)*XX(5250)-JVS(48447)& - &*XX(5253) - XX(2700) = XX(2700)-JVS(21535)*XX(4175)-JVS(27366)*XX(4731)-JVS(35779)*XX(5193)-JVS(42745)*XX(5250)-JVS(48446)& - &*XX(5253) - XX(2699) = XX(2699)-JVS(19145)*XX(3893)-JVS(19857)*XX(3978)-JVS(51181)*XX(5255) - XX(2698) = XX(2698)-JVS(22549)*XX(4275)-JVS(35616)*XX(5191)-JVS(42744)*XX(5250)-JVS(45277)*XX(5251)-JVS(48445)& - &*XX(5253) - XX(2697) = XX(2697)-JVS(34337)*XX(5160)-JVS(39698)*XX(5242)-JVS(51180)*XX(5255) - XX(2696) = XX(2696)-JVS(30444)*XX(4966)-JVS(33594)*XX(5139)-JVS(42743)*XX(5250)-JVS(45276)*XX(5251)-JVS(48444)& - &*XX(5253) - XX(2695) = XX(2695)-JVS(15073)*XX(3350)-JVS(38808)*XX(5232)-JVS(39226)*XX(5234)-JVS(42742)*XX(5250)-JVS(51179)& - &*XX(5255) - XX(2694) = XX(2694)-JVS(23394)*XX(4362)-JVS(38257)*XX(5231)-JVS(51178)*XX(5255) - XX(2693) = XX(2693)-JVS(19510)*XX(3935)-JVS(22288)*XX(4248)-JVS(27961)*XX(4785)-JVS(42741)*XX(5250)-JVS(51177)& - &*XX(5255) - XX(2692) = XX(2692)-JVS(35185)*XX(5183)-JVS(35778)*XX(5193)-JVS(45275)*XX(5251) - XX(2691) = XX(2691)-JVS(33526)*XX(5137)-JVS(33593)*XX(5139)-JVS(42740)*XX(5250)-JVS(45274)*XX(5251)-JVS(48443)& - &*XX(5253) - XX(2690) = XX(2690)-JVS(21598)*XX(4181)-JVS(38256)*XX(5231)-JVS(42739)*XX(5250)-JVS(45273)*XX(5251)-JVS(51176)& - &*XX(5255) - XX(2689) = XX(2689)-JVS(29630)*XX(4917)-JVS(29649)*XX(4918)-JVS(42738)*XX(5250)-JVS(45272)*XX(5251)-JVS(48442)& - &*XX(5253) - XX(2688) = XX(2688)-JVS(28661)*XX(4842)-JVS(31702)*XX(5044)-JVS(42737)*XX(5250)-JVS(45271)*XX(5251)-JVS(48441)& - &*XX(5253) - XX(2687) = XX(2687)-JVS(34336)*XX(5160)-JVS(37856)*XX(5228)-JVS(38255)*XX(5231)-JVS(42736)*XX(5250)-JVS(48440)& - &*XX(5253) - XX(2686) = XX(2686)-JVS(16586)*XX(3578)-JVS(19361)*XX(3918)-JVS(26716)*XX(4674)-JVS(39957)*XX(5244)-JVS(42735)& - &*XX(5250) - XX(2685) = XX(2685)-JVS(30778)*XX(4989)-JVS(36898)*XX(5207)-JVS(42734)*XX(5250)-JVS(45270)*XX(5251)-JVS(48439)& - &*XX(5253) - XX(2684) = XX(2684)-JVS(23621)*XX(4386)-JVS(31120)*XX(5008)-JVS(42733)*XX(5250)-JVS(45269)*XX(5251)-JVS(48438)& - &*XX(5253) - XX(2683) = XX(2683)-JVS(22219)*XX(4241)-JVS(24745)*XX(4490)-JVS(39956)*XX(5244)-JVS(42732)*XX(5250)-JVS(48437)& - &*XX(5253) - XX(2682) = XX(2682)-JVS(24945)*XX(4507)-JVS(26918)*XX(4693)-JVS(48436)*XX(5253) - XX(2681) = XX(2681)-JVS(21474)*XX(4168)-JVS(33592)*XX(5139)-JVS(35615)*XX(5191)-JVS(42731)*XX(5250)-JVS(48435)& - &*XX(5253) - XX(2680) = XX(2680)-JVS(17038)*XX(3633)-JVS(32314)*XX(5079)-JVS(34207)*XX(5158)-JVS(42730)*XX(5250)-JVS(51175)& - &*XX(5255) - XX(2679) = XX(2679)-JVS(35777)*XX(5193)-JVS(39955)*XX(5244)-JVS(45268)*XX(5251) - XX(2678) = XX(2678)-JVS(22238)*XX(4243)-JVS(30523)*XX(4973)-JVS(42729)*XX(5250)-JVS(45267)*XX(5251)-JVS(48434)& - &*XX(5253) - XX(2677) = XX(2677)-JVS(22407)*XX(4260)-JVS(32203)*XX(5071)-JVS(42728)*XX(5250)-JVS(45266)*XX(5251)-JVS(48433)& - &*XX(5253) - XX(2676) = XX(2676)-JVS(27136)*XX(4710)-JVS(35776)*XX(5193)-JVS(51174)*XX(5255) - XX(2675) = XX(2675)-JVS(30941)*XX(5000)-JVS(32772)*XX(5101)-JVS(42727)*XX(5250)-JVS(45265)*XX(5251)-JVS(48432)& - &*XX(5253) - XX(2674) = XX(2674)-JVS(24347)*XX(4451)-JVS(37039)*XX(5211)-JVS(42726)*XX(5250)-JVS(45264)*XX(5251)-JVS(48431)& - &*XX(5253) - XX(2673) = XX(2673)-JVS(15581)*XX(3420)-JVS(32835)*XX(5104)-JVS(35076)*XX(5182)-JVS(42725)*XX(5250)-JVS(48430)& - &*XX(5253) - XX(2672) = XX(2672)-JVS(29799)*XX(4929)-JVS(35775)*XX(5193)-JVS(37855)*XX(5228)-JVS(42724)*XX(5250)-JVS(48429)& - &*XX(5253) - XX(2671) = XX(2671)-JVS(26773)*XX(4680)-JVS(31472)*XX(5031)-JVS(42723)*XX(5250)-JVS(45263)*XX(5251)-JVS(48428)& - &*XX(5253) - XX(2670) = XX(2670)-JVS(24183)*XX(4436)-JVS(29493)*XX(4909)-JVS(42722)*XX(5250)-JVS(45262)*XX(5251)-JVS(48427)& - &*XX(5253) - XX(2669) = XX(2669)-JVS(24870)*XX(4500)-JVS(24882)*XX(4501)-JVS(42721)*XX(5250)-JVS(45261)*XX(5251)-JVS(48426)& - &*XX(5253) - XX(2668) = XX(2668)-JVS(24944)*XX(4507)-JVS(26917)*XX(4693)-JVS(48425)*XX(5253) - XX(2667) = XX(2667)-JVS(37132)*XX(5214)-JVS(38254)*XX(5231)-JVS(45260)*XX(5251) - XX(2666) = XX(2666)-JVS(14326)*XX(3213)-JVS(26764)*XX(4679)-JVS(42720)*XX(5250)-JVS(45259)*XX(5251)-JVS(48424)& - &*XX(5253) - XX(2665) = XX(2665)-JVS(33859)*XX(5143)-JVS(35184)*XX(5183)-JVS(36053)*XX(5195)-JVS(42719)*XX(5250)-JVS(51173)& - &*XX(5255) - XX(2664) = XX(2664)-JVS(13904)*XX(3128)-JVS(37854)*XX(5228)-JVS(38253)*XX(5231)-JVS(42718)*XX(5250)-JVS(48423)& - &*XX(5253) - XX(2663) = XX(2663)-JVS(13903)*XX(3128)-JVS(26056)*XX(4613)-JVS(42717)*XX(5250)-JVS(45258)*XX(5251)-JVS(48422)& - &*XX(5253) - XX(2662) = XX(2662)-JVS(37401)*XX(5222)-JVS(39225)*XX(5234)-JVS(51172)*XX(5255) - XX(2661) = XX(2661)-JVS(18740)*XX(3845)-JVS(32465)*XX(5086)-JVS(34335)*XX(5160)-JVS(42716)*XX(5250)-JVS(48421)& - &*XX(5253) - XX(2660) = XX(2660)-JVS(29010)*XX(4867)-JVS(36971)*XX(5210)-JVS(42715)*XX(5250)-JVS(45257)*XX(5251)-JVS(48420)& - &*XX(5253) - XX(2659) = XX(2659)-JVS(29935)*XX(4938)-JVS(38976)*XX(5233)-JVS(51171)*XX(5255) - XX(2658) = XX(2658)-JVS(22041)*XX(4224)-JVS(31317)*XX(5021)-JVS(42714)*XX(5250)-JVS(45256)*XX(5251)-JVS(48419)& - &*XX(5253) - XX(2657) = XX(2657)-JVS(38252)*XX(5231)-JVS(39954)*XX(5244)-JVS(42713)*XX(5250)-JVS(45255)*XX(5251)-JVS(48418)& - &*XX(5253) - XX(2656) = XX(2656)-JVS(28503)*XX(4829)-JVS(32125)*XX(5066)-JVS(42712)*XX(5250)-JVS(45254)*XX(5251)-JVS(48417)& - &*XX(5253) - XX(2655) = XX(2655)-JVS(25445)*XX(4548)-JVS(31244)*XX(5016)-JVS(42711)*XX(5250)-JVS(45253)*XX(5251)-JVS(48416)& - &*XX(5253) - XX(2654) = XX(2654)-JVS(25299)*XX(4536)-JVS(27876)*XX(4775)-JVS(42710)*XX(5250)-JVS(45252)*XX(5251)-JVS(51170)& - &*XX(5255) - XX(2653) = XX(2653)-JVS(30561)*XX(4975)-JVS(31154)*XX(5010)-JVS(42709)*XX(5250)-JVS(48415)*XX(5253)-JVS(51169)& - &*XX(5255) - XX(2652) = XX(2652)-JVS(20265)*XX(4026)-JVS(36206)*XX(5199)-JVS(42708)*XX(5250)-JVS(45251)*XX(5251)-JVS(51168)& - &*XX(5255) - XX(2651) = XX(2651)-JVS(31081)*XX(5006)-JVS(35573)*XX(5189)-JVS(42707)*XX(5250)-JVS(45250)*XX(5251)-JVS(48414)& - &*XX(5253) - XX(2650) = XX(2650)-JVS(26514)*XX(4656)-JVS(33742)*XX(5141)-JVS(35614)*XX(5191)-JVS(42706)*XX(5250)-JVS(48413)& - &*XX(5253) - XX(2649) = XX(2649)-JVS(12015)*XX(2776)-JVS(18623)*XX(3828)-JVS(23033)*XX(4322)-JVS(42705)*XX(5250)-JVS(48412)& - &*XX(5253) - XX(2648) = XX(2648)-JVS(27748)*XX(4764)-JVS(31222)*XX(5014)-JVS(42704)*XX(5250)-JVS(45249)*XX(5251)-JVS(48411)& - &*XX(5253) - XX(2647) = XX(2647)-JVS(23368)*XX(4359)-JVS(27418)*XX(4737)-JVS(51167)*XX(5255) - XX(2646) = XX(2646)-JVS(23670)*XX(4391)-JVS(27906)*XX(4778)-JVS(51166)*XX(5255) - XX(2645) = XX(2645)-JVS(19814)*XX(3973)-JVS(29629)*XX(4917)-JVS(42703)*XX(5250)-JVS(45248)*XX(5251)-JVS(51165)& - &*XX(5255) - XX(2644) = XX(2644)-JVS(35774)*XX(5193)-JVS(39697)*XX(5242)-JVS(51164)*XX(5255) - XX(2643) = XX(2643)-JVS(21812)*XX(4202)-JVS(31471)*XX(5031)-JVS(42702)*XX(5250)-JVS(45247)*XX(5251)-JVS(48410)& - &*XX(5253) - XX(2642) = XX(2642)-JVS(33858)*XX(5143)-JVS(38032)*XX(5230)-JVS(51163)*XX(5255) - XX(2641) = XX(2641)-JVS(24943)*XX(4507)-JVS(26916)*XX(4693)-JVS(51162)*XX(5255) - XX(2640) = XX(2640)-JVS(26360)*XX(4641)-JVS(33307)*XX(5126)-JVS(42701)*XX(5250)-JVS(45246)*XX(5251)-JVS(48409)& - &*XX(5253) - XX(2639) = XX(2639)-JVS(35773)*XX(5193)-JVS(38251)*XX(5231)-JVS(51161)*XX(5255) - XX(2638) = XX(2638)-JVS(33857)*XX(5143)-JVS(34554)*XX(5162)-JVS(51160)*XX(5255) - XX(2637) = XX(2637)-JVS(17121)*XX(3642)-JVS(31420)*XX(5027)-JVS(42700)*XX(5250)-JVS(45245)*XX(5251)-JVS(48408)& - &*XX(5253) - XX(2636) = XX(2636)-JVS(26598)*XX(4664)-JVS(32464)*XX(5086)-JVS(42699)*XX(5250)-JVS(45244)*XX(5251)-JVS(48407)& - &*XX(5253) - XX(2635) = XX(2635)-JVS(23313)*XX(4352)-JVS(27843)*XX(4772)-JVS(42698)*XX(5250)-JVS(48406)*XX(5253)-JVS(53233)& - &*XX(5256) - XX(2634) = XX(2634)-JVS(19031)*XX(3879)-JVS(20957)*XX(4105)-JVS(51159)*XX(5255) - XX(2633) = XX(2633)-JVS(18861)*XX(3859)-JVS(22941)*XX(4313)-JVS(28564)*XX(4834)-JVS(42697)*XX(5250)-JVS(51158)& - &*XX(5255) - XX(2632) = XX(2632)-JVS(26284)*XX(4633)-JVS(32820)*XX(5103)-JVS(42696)*XX(5250)-JVS(45243)*XX(5251)-JVS(48405)& - &*XX(5253) - XX(2631) = XX(2631)-JVS(20153)*XX(4013)-JVS(23065)*XX(4325)-JVS(42695)*XX(5250)-JVS(45242)*XX(5251)-JVS(48404)& - &*XX(5253) - XX(2630) = XX(2630)-JVS(26231)*XX(4628)-JVS(34182)*XX(5157)-JVS(42694)*XX(5250)-JVS(45241)*XX(5251)-JVS(48403)& - &*XX(5253) - XX(2629) = XX(2629)-JVS(23902)*XX(4410)-JVS(34334)*XX(5160)-JVS(35075)*XX(5182)-JVS(42693)*XX(5250)-JVS(48402)& - &*XX(5253) - XX(2628) = XX(2628)-JVS(25552)*XX(4559)-JVS(30620)*XX(4980)-JVS(30635)*XX(4981)-JVS(38250)*XX(5231)-JVS(42692)& - &*XX(5250) - XX(2627) = XX(2627)-JVS(29865)*XX(4932)-JVS(38249)*XX(5231)-JVS(38975)*XX(5233)-JVS(42691)*XX(5250)-JVS(51157)& - &*XX(5255) - XX(2626) = XX(2626)-JVS(20816)*XX(4089)-JVS(20841)*XX(4092)-JVS(34333)*XX(5160)-JVS(42690)*XX(5250)-JVS(48401)& - &*XX(5253) - XX(2625) = XX(2625)-JVS(12690)*XX(2910)-JVS(28311)*XX(4811)-JVS(31396)*XX(5026)-JVS(39953)*XX(5244)-JVS(42689)& - &*XX(5250) - XX(2624) = XX(2624)-JVS(17314)*XX(3665)-JVS(17322)*XX(3666)-JVS(21340)*XX(4152)-JVS(42688)*XX(5250)-JVS(48400)& - &*XX(5253) - XX(2623) = XX(2623)-JVS(37791)*XX(5226)-JVS(38248)*XX(5231)-JVS(51156)*XX(5255) - XX(2622) = XX(2622)-JVS(34758)*XX(5171)-JVS(36205)*XX(5199)-JVS(42687)*XX(5250)-JVS(45240)*XX(5251)-JVS(48399)& - &*XX(5253) - XX(2621) = XX(2621)-JVS(15661)*XX(3431)-JVS(21298)*XX(4147)-JVS(34332)*XX(5160)-JVS(42686)*XX(5250)-JVS(48398)& - &*XX(5253) - XX(2620) = XX(2620)-JVS(21849)*XX(4206)-JVS(34922)*XX(5178)-JVS(42685)*XX(5250)-JVS(45239)*XX(5251)-JVS(48397)& - &*XX(5253) - XX(2619) = XX(2619)-JVS(24395)*XX(4456)-JVS(30015)*XX(4939)-JVS(34331)*XX(5160)-JVS(42684)*XX(5250)-JVS(48396)& - &*XX(5253) - XX(2618) = XX(2618)-JVS(20863)*XX(4095)-JVS(32955)*XX(5110)-JVS(34206)*XX(5158)-JVS(35772)*XX(5193)-JVS(42683)& - &*XX(5250) - XX(2617) = XX(2617)-JVS(28527)*XX(4831)-JVS(38247)*XX(5231)-JVS(42682)*XX(5250)-JVS(45238)*XX(5251)-JVS(51155)& - &*XX(5255) - XX(2616) = XX(2616)-JVS(19981)*XX(3993)-JVS(35472)*XX(5188)-JVS(42681)*XX(5250)-JVS(45237)*XX(5251)-JVS(51154)& - &*XX(5255) - XX(2615) = XX(2615)-JVS(23053)*XX(4324)-JVS(23064)*XX(4325)-JVS(42680)*XX(5250)-JVS(45236)*XX(5251)-JVS(48395)& - &*XX(5253) - XX(2614) = XX(2614)-JVS(21137)*XX(4126)-JVS(31395)*XX(5026)-JVS(51153)*XX(5255) - XX(2613) = XX(2613)-JVS(24135)*XX(4431)-JVS(26693)*XX(4672)-JVS(42679)*XX(5250)-JVS(45235)*XX(5251)-JVS(48394)& - &*XX(5253) - XX(2612) = XX(2612)-JVS(32885)*XX(5106)-JVS(34330)*XX(5160)-JVS(42678)*XX(5250)-JVS(45234)*XX(5251)-JVS(48393)& - &*XX(5253) - XX(2611) = XX(2611)-JVS(30111)*XX(4944)-JVS(38031)*XX(5230)-JVS(42677)*XX(5250)-JVS(45233)*XX(5251)-JVS(48392)& - &*XX(5253) - XX(2610) = XX(2610)-JVS(12813)*XX(2933)-JVS(34329)*XX(5160)-JVS(35613)*XX(5191)-JVS(42676)*XX(5250)-JVS(48391)& - &*XX(5253) - XX(2609) = XX(2609)-JVS(25935)*XX(4602)-JVS(38974)*XX(5233)-JVS(42675)*XX(5250)-JVS(45232)*XX(5251)-JVS(51152)& - &*XX(5255) - XX(2608) = XX(2608)-JVS(21926)*XX(4214)-JVS(29934)*XX(4938)-JVS(42674)*XX(5250)-JVS(45231)*XX(5251)-JVS(48390)& - &*XX(5253) - XX(2607) = XX(2607)-JVS(38246)*XX(5231)-JVS(38807)*XX(5232)-JVS(45230)*XX(5251) - XX(2606) = XX(2606)-JVS(16246)*XX(3532)-JVS(34668)*XX(5167)-JVS(42673)*XX(5250)-JVS(48389)*XX(5253)-JVS(51151)& - &*XX(5255) - XX(2605) = XX(2605)-JVS(16757)*XX(3599)-JVS(31462)*XX(5030)-JVS(37853)*XX(5228)-JVS(42672)*XX(5250)-JVS(48388)& - &*XX(5253) - XX(2604) = XX(2604)-JVS(16313)*XX(3541)-JVS(28078)*XX(4796)-JVS(51150)*XX(5255) - XX(2603) = XX(2603)-JVS(18125)*XX(3765)-JVS(30716)*XX(4985)-JVS(37400)*XX(5222)-JVS(39952)*XX(5244)-JVS(42671)& - &*XX(5250) - XX(2602) = XX(2602)-JVS(11393)*XX(2659)-JVS(23271)*XX(4347)-JVS(36970)*XX(5210)-JVS(39951)*XX(5244)-JVS(42670)& - &*XX(5250) - XX(2601) = XX(2601)-JVS(12507)*XX(2875)-JVS(32158)*XX(5068)-JVS(42669)*XX(5250)-JVS(45229)*XX(5251)-JVS(51149)& - &*XX(5255) - XX(2600) = XX(2600)-JVS(24454)*XX(4462)-JVS(32985)*XX(5111)-JVS(42668)*XX(5250)-JVS(45228)*XX(5251)-JVS(48387)& - &*XX(5253) - XX(2599) = XX(2599)-JVS(23800)*XX(4403)-JVS(24942)*XX(4507)-JVS(51148)*XX(5255) - XX(2598) = XX(2598)-JVS(23799)*XX(4403)-JVS(24941)*XX(4507)-JVS(48386)*XX(5253) - XX(2597) = XX(2597)-JVS(14641)*XX(3270)-JVS(26331)*XX(4638)-JVS(42667)*XX(5250)-JVS(45227)*XX(5251)-JVS(48385)& - &*XX(5253) - XX(2596) = XX(2596)-JVS(31343)*XX(5023)-JVS(38245)*XX(5231)-JVS(51147)*XX(5255) - XX(2595) = XX(2595)-JVS(20166)*XX(4014)-JVS(37399)*XX(5222)-JVS(48384)*XX(5253) - XX(2594) = XX(2594)-JVS(33856)*XX(5143)-JVS(34627)*XX(5165)-JVS(51146)*XX(5255) - XX(2593) = XX(2593)-JVS(28729)*XX(4847)-JVS(37085)*XX(5212)-JVS(42666)*XX(5250)-JVS(45226)*XX(5251)-JVS(48383)& - &*XX(5253) - XX(2592) = XX(2592)-JVS(37398)*XX(5222)-JVS(38973)*XX(5233)-JVS(51145)*XX(5255) - XX(2591) = XX(2591)-JVS(34890)*XX(5177)-JVS(38244)*XX(5231)-JVS(51144)*XX(5255) - XX(2590) = XX(2590)-JVS(22369)*XX(4256)-JVS(23546)*XX(4378)-JVS(34128)*XX(5154)-JVS(42665)*XX(5250)-JVS(51143)& - &*XX(5255) - XX(2589) = XX(2589)-JVS(33855)*XX(5143)-JVS(38243)*XX(5231)-JVS(51142)*XX(5255) - XX(2588) = XX(2588)-JVS(16312)*XX(3541)-JVS(28077)*XX(4796)-JVS(48382)*XX(5253) - XX(2587) = XX(2587)-JVS(21626)*XX(4183)-JVS(32721)*XX(5099)-JVS(42664)*XX(5250)-JVS(45225)*XX(5251)-JVS(48381)& - &*XX(5253) - XX(2586) = XX(2586)-JVS(23128)*XX(4331)-JVS(26915)*XX(4693)-JVS(51141)*XX(5255) - XX(2585) = XX(2585)-JVS(12360)*XX(2847)-JVS(14512)*XX(3246)-JVS(17111)*XX(3641)-JVS(42663)*XX(5250)-JVS(48380)& - &*XX(5253) - XX(2584) = XX(2584)-JVS(24214)*XX(4439)-JVS(32859)*XX(5105)-JVS(42662)*XX(5250)-JVS(45224)*XX(5251)-JVS(48379)& - &*XX(5253) - XX(2583) = XX(2583)-JVS(24531)*XX(4470)-JVS(38030)*XX(5230)-JVS(42661)*XX(5250)-JVS(45223)*XX(5251)-JVS(48378)& - &*XX(5253) - XX(2582) = XX(2582)-JVS(31531)*XX(5034)-JVS(33591)*XX(5139)-JVS(42660)*XX(5250)-JVS(45222)*XX(5251)-JVS(48377)& - &*XX(5253) - XX(2581) = XX(2581)-JVS(25934)*XX(4602)-JVS(29648)*XX(4918)-JVS(51140)*XX(5255) - XX(2580) = XX(2580)-JVS(23312)*XX(4352)-JVS(26914)*XX(4693)-JVS(34079)*XX(5152)-JVS(42659)*XX(5250)-JVS(48376)& - &*XX(5253) - XX(2579) = XX(2579)-JVS(23852)*XX(4405)-JVS(35771)*XX(5193)-JVS(42658)*XX(5250)-JVS(45221)*XX(5251)-JVS(48375)& - &*XX(5253) - XX(2578) = XX(2578)-JVS(18774)*XX(3849)-JVS(38242)*XX(5231)-JVS(48374)*XX(5253) - XX(2577) = XX(2577)-JVS(15894)*XX(3478)-JVS(28076)*XX(4796)-JVS(48373)*XX(5253) - XX(2576) = XX(2576)-JVS(22496)*XX(4269)-JVS(37790)*XX(5226)-JVS(42657)*XX(5250)-JVS(45220)*XX(5251)-JVS(48372)& - &*XX(5253) - XX(2575) = XX(2575)-JVS(23798)*XX(4403)-JVS(24940)*XX(4507)-JVS(51139)*XX(5255) - XX(2574) = XX(2574)-JVS(20580)*XX(4060)-JVS(37852)*XX(5228)-JVS(42656)*XX(5250) - XX(2573) = XX(2573)-JVS(15107)*XX(3355)-JVS(23892)*XX(4409)-JVS(42655)*XX(5250)-JVS(45219)*XX(5251)-JVS(48371)& - &*XX(5253) - XX(2572) = XX(2572)-JVS(21063)*XX(4118)-JVS(23453)*XX(4367)-JVS(35183)*XX(5183)-JVS(35612)*XX(5191)-JVS(42654)& - &*XX(5250) - XX(2571) = XX(2571)-JVS(26706)*XX(4673)-JVS(35368)*XX(5184)-JVS(38241)*XX(5231)-JVS(42653)*XX(5250)-JVS(48370)& - &*XX(5253) - XX(2570) = XX(2570)-JVS(16411)*XX(3555)-JVS(34667)*XX(5167)-JVS(37338)*XX(5221)-JVS(42652)*XX(5250)-JVS(51138)& - &*XX(5255) - XX(2569) = XX(2569)-JVS(26898)*XX(4692)-JVS(31577)*XX(5037)-JVS(42651)*XX(5250)-JVS(45218)*XX(5251)-JVS(48369)& - &*XX(5253) - XX(2568) = XX(2568)-JVS(14338)*XX(3215)-JVS(23432)*XX(4366)-JVS(42650)*XX(5250)-JVS(45217)*XX(5251)-JVS(51137)& - &*XX(5255) - XX(2567) = XX(2567)-JVS(19694)*XX(3958)-JVS(25184)*XX(4525)-JVS(42649)*XX(5250)-JVS(45216)*XX(5251)-JVS(48368)& - &*XX(5253) - XX(2566) = XX(2566)-JVS(23797)*XX(4403)-JVS(24939)*XX(4507)-JVS(48367)*XX(5253) - XX(2565) = XX(2565)-JVS(11075)*XX(2595)-JVS(18464)*XX(3808)-JVS(20142)*XX(4012)-JVS(42648)*XX(5250)-JVS(48366)& - &*XX(5253) - XX(2564) = XX(2564)-JVS(15170)*XX(3365)-JVS(26191)*XX(4624)-JVS(42647)*XX(5250)-JVS(45215)*XX(5251)-JVS(48365)& - &*XX(5253) - XX(2563) = XX(2563)-JVS(20165)*XX(4014)-JVS(33590)*XX(5139)-JVS(48364)*XX(5253) - XX(2562) = XX(2562)-JVS(27135)*XX(4710)-JVS(33854)*XX(5143)-JVS(51136)*XX(5255) - XX(2561) = XX(2561)-JVS(32429)*XX(5085)-JVS(38240)*XX(5231)-JVS(51135)*XX(5255) - XX(2560) = XX(2560)-JVS(26222)*XX(4627)-JVS(29647)*XX(4918)-JVS(42646)*XX(5250)-JVS(45214)*XX(5251)-JVS(48363)& - &*XX(5253) - XX(2559) = XX(2559)-JVS(11327)*XX(2645)-JVS(32124)*XX(5066)-JVS(42645)*XX(5250)-JVS(45213)*XX(5251)-JVS(51134)& - &*XX(5255) - XX(2558) = XX(2558)-JVS(16021)*XX(3498)-JVS(23182)*XX(4336)-JVS(33239)*XX(5125)-JVS(35770)*XX(5193)-JVS(42644)& - &*XX(5250) - XX(2557) = XX(2557)-JVS(23127)*XX(4331)-JVS(26913)*XX(4693)-JVS(48362)*XX(5253) - XX(2556) = XX(2556)-JVS(19193)*XX(3899)-JVS(29933)*XX(4938)-JVS(39224)*XX(5234)-JVS(42643)*XX(5250)-JVS(51133)& - &*XX(5255) - XX(2555) = XX(2555)-JVS(32086)*XX(5063)-JVS(32102)*XX(5064)-JVS(42642)*XX(5250)-JVS(48361)*XX(5253)-JVS(51132)& - &*XX(5255) - XX(2554) = XX(2554)-JVS(25603)*XX(4564)-JVS(39223)*XX(5234)-JVS(39950)*XX(5244)-JVS(42641)*XX(5250)-JVS(45212)& - &*XX(5251) - XX(2553) = XX(2553)-JVS(14713)*XX(3284)-JVS(14970)*XX(3336)-JVS(25578)*XX(4561)-JVS(42640)*XX(5250)-JVS(51131)& - &*XX(5255) - XX(2552) = XX(2552)-JVS(16355)*XX(3546)-JVS(28281)*XX(4808)-JVS(42639)*XX(5250)-JVS(45211)*XX(5251)-JVS(48360)& - &*XX(5253) - XX(2551) = XX(2551)-JVS(23126)*XX(4331)-JVS(26912)*XX(4693)-JVS(51130)*XX(5255) - XX(2550) = XX(2550)-JVS(28197)*XX(4801)-JVS(38239)*XX(5231)-JVS(51129)*XX(5255) - XX(2549) = XX(2549)-JVS(38029)*XX(5230)-JVS(38238)*XX(5231)-JVS(51128)*XX(5255) - XX(2548) = XX(2548)-JVS(24643)*XX(4482)-JVS(42638)*XX(5250)-JVS(48359)*XX(5253) - XX(2547) = XX(2547)-JVS(32954)*XX(5110)-JVS(34205)*XX(5158)-JVS(35769)*XX(5193)-JVS(42637)*XX(5250)-JVS(48358)& - &*XX(5253) - XX(2546) = XX(2546)-JVS(15495)*XX(3408)-JVS(30293)*XX(4957)-JVS(42636)*XX(5250)-JVS(48357)*XX(5253)-JVS(51127)& - &*XX(5255) - XX(2545) = XX(2545)-JVS(29492)*XX(4909)-JVS(38972)*XX(5233)-JVS(51126)*XX(5255) - XX(2544) = XX(2544)-JVS(14234)*XX(3194)-JVS(15637)*XX(3428)-JVS(17851)*XX(3734)-JVS(37734)*XX(5224)-JVS(42635)& - &*XX(5250) - XX(2543) = XX(2543)-JVS(18944)*XX(3869)-JVS(30560)*XX(4975)-JVS(31153)*XX(5010)-JVS(42634)*XX(5250)-JVS(51125)& - &*XX(5255) - XX(2542) = XX(2542)-JVS(34328)*XX(5160)-JVS(36052)*XX(5195)-JVS(39222)*XX(5234)-JVS(42633)*XX(5250)-JVS(48356)& - &*XX(5253) - XX(2541) = XX(2541)-JVS(20440)*XX(4046)-JVS(21779)*XX(4199)-JVS(42632)*XX(5250)-JVS(45210)*XX(5251)-JVS(51124)& - &*XX(5255) - XX(2540) = XX(2540)-JVS(13818)*XX(3115)-JVS(28514)*XX(4830)-JVS(29529)*XX(4910)-JVS(38237)*XX(5231)-JVS(42631)& - &*XX(5250) - XX(2539) = XX(2539)-JVS(27358)*XX(4730)-JVS(39696)*XX(5242)-JVS(51123)*XX(5255) - XX(2538) = XX(2538)-JVS(22135)*XX(4233)-JVS(24893)*XX(4502)-JVS(42630)*XX(5250)-JVS(45209)*XX(5251)-JVS(48355)& - &*XX(5253) - XX(2537) = XX(2537)-JVS(33238)*XX(5125)-JVS(35611)*XX(5191)-JVS(42629)*XX(5250)-JVS(45208)*XX(5251)-JVS(48354)& - &*XX(5253) - XX(2536) = XX(2536)-JVS(24938)*XX(4507)-JVS(28075)*XX(4796)-JVS(48353)*XX(5253) - XX(2535) = XX(2535)-JVS(15893)*XX(3478)-JVS(28074)*XX(4796)-JVS(48352)*XX(5253) - XX(2534) = XX(2534)-JVS(25719)*XX(4577)-JVS(34327)*XX(5160)-JVS(38028)*XX(5230)-JVS(42628)*XX(5250)-JVS(48351)& - &*XX(5253) - XX(2533) = XX(2533)-JVS(28757)*XX(4849)-JVS(32243)*XX(5073)-JVS(42627)*XX(5250)-JVS(45207)*XX(5251)-JVS(48350)& - &*XX(5253) - XX(2532) = XX(2532)-JVS(17995)*XX(3750)-JVS(32463)*XX(5086)-JVS(34326)*XX(5160)-JVS(42626)*XX(5250)-JVS(48349)& - &*XX(5253) - XX(2531) = XX(2531)-JVS(25084)*XX(4516)-JVS(35014)*XX(5180)-JVS(42625)*XX(5250)-JVS(45206)*XX(5251)-JVS(48348)& - &*XX(5253) - XX(2530) = XX(2530)-JVS(21994)*XX(4220)-JVS(29393)*XX(4902)-JVS(42624)*XX(5250)-JVS(45205)*XX(5251)-JVS(48347)& - &*XX(5253) - XX(2529) = XX(2529)-JVS(22475)*XX(4267)-JVS(25933)*XX(4602)-JVS(42623)*XX(5250)-JVS(45204)*XX(5251)-JVS(48346)& - &*XX(5253) - XX(2528) = XX(2528)-JVS(35768)*XX(5193)-JVS(39695)*XX(5242)-JVS(51122)*XX(5255) - XX(2527) = XX(2527)-JVS(15059)*XX(3348)-JVS(26556)*XX(4660)-JVS(42622)*XX(5250)-JVS(45203)*XX(5251)-JVS(48345)& - &*XX(5253) - XX(2526) = XX(2526)-JVS(39221)*XX(5234)-JVS(45202)*XX(5251)-JVS(51121)*XX(5255) - XX(2525) = XX(2525)-JVS(32496)*XX(5087)-JVS(34593)*XX(5164)-JVS(42621)*XX(5250)-JVS(45201)*XX(5251)-JVS(48344)& - &*XX(5253) - XX(2524) = XX(2524)-JVS(15415)*XX(3397)-JVS(21169)*XX(4130)-JVS(34325)*XX(5160)-JVS(42620)*XX(5250)-JVS(48343)& - &*XX(5253) - XX(2523) = XX(2523)-JVS(14978)*XX(3337)-JVS(26546)*XX(4659)-JVS(42619)*XX(5250)-JVS(45200)*XX(5251)-JVS(48342)& - &*XX(5253) - XX(2522) = XX(2522)-JVS(24356)*XX(4452)-JVS(34324)*XX(5160)-JVS(42618)*XX(5250)-JVS(45199)*XX(5251)-JVS(48341)& - &*XX(5253) - XX(2521) = XX(2521)-JVS(33589)*XX(5139)-JVS(37397)*XX(5222)-JVS(51120)*XX(5255) - XX(2520) = XX(2520)-JVS(13457)*XX(3050)-JVS(18504)*XX(3813)-JVS(20429)*XX(4045)-JVS(42617)*XX(5250)-JVS(48340)& - &*XX(5253) - XX(2519) = XX(2519)-JVS(22287)*XX(4248)-JVS(22417)*XX(4261)-JVS(42616)*XX(5250)-JVS(48339)*XX(5253)-JVS(51119)& - &*XX(5255) - XX(2518) = XX(2518)-JVS(28714)*XX(4846)-JVS(29932)*XX(4938)-JVS(42615)*XX(5250)-JVS(45198)*XX(5251)-JVS(48338)& - &*XX(5253) - XX(2517) = XX(2517)-JVS(16977)*XX(3626)-JVS(22018)*XX(4222)-JVS(42614)*XX(5250)-JVS(45197)*XX(5251)-JVS(48337)& - &*XX(5253) - XX(2516) = XX(2516)-JVS(37202)*XX(5215)-JVS(38236)*XX(5231)-JVS(51118)*XX(5255) - XX(2515) = XX(2515)-JVS(24673)*XX(4484)-JVS(24686)*XX(4485)-JVS(42613)*XX(5250)-JVS(45196)*XX(5251)-JVS(48336)& - &*XX(5253) - XX(2514) = XX(2514)-JVS(11319)*XX(2644)-JVS(30522)*XX(4973)-JVS(38971)*XX(5233)-JVS(42612)*XX(5250)-JVS(48335)& - &*XX(5253) - XX(2513) = XX(2513)-JVS(22940)*XX(4313)-JVS(28563)*XX(4834)-JVS(42611)*XX(5250)-JVS(48334)*XX(5253)-JVS(51117)& - &*XX(5255) - XX(2512) = XX(2512)-JVS(28660)*XX(4842)-JVS(38235)*XX(5231)-JVS(51116)*XX(5255) - XX(2511) = XX(2511)-JVS(31599)*XX(5038)-JVS(38970)*XX(5233)-JVS(42610)*XX(5250)-JVS(45195)*XX(5251)-JVS(48333)& - &*XX(5253) - XX(2510) = XX(2510)-JVS(25932)*XX(4602)-JVS(27679)*XX(4759)-JVS(42609)*XX(5250)-JVS(45194)*XX(5251)-JVS(48332)& - &*XX(5253) - XX(2509) = XX(2509)-JVS(33043)*XX(5115)-JVS(33720)*XX(5140)-JVS(42608)*XX(5250)-JVS(48331)*XX(5253)-JVS(51115)& - &*XX(5255) - XX(2508) = XX(2508)-JVS(34845)*XX(5175)-JVS(38234)*XX(5231)-JVS(51114)*XX(5255) - XX(2507) = XX(2507)-JVS(16976)*XX(3626)-JVS(28526)*XX(4831)-JVS(42607)*XX(5250)-JVS(45193)*XX(5251)-JVS(51113)& - &*XX(5255) - XX(2506) = XX(2506)-JVS(24761)*XX(4491)-JVS(38969)*XX(5233)-JVS(48330)*XX(5253) - XX(2505) = XX(2505)-JVS(21969)*XX(4218)-JVS(28356)*XX(4815)-JVS(42606)*XX(5250)-JVS(45192)*XX(5251)-JVS(48329)& - &*XX(5253) - XX(2504) = XX(2504)-JVS(29931)*XX(4938)-JVS(30472)*XX(4968)-JVS(42605)*XX(5250)-JVS(45191)*XX(5251)-JVS(48328)& - &*XX(5253) - XX(2503) = XX(2503)-JVS(23620)*XX(4386)-JVS(31102)*XX(5007)-JVS(35767)*XX(5193)-JVS(42604)*XX(5250)-JVS(51112)& - &*XX(5255) - XX(2502) = XX(2502)-JVS(34323)*XX(5160)-JVS(38233)*XX(5231)-JVS(48327)*XX(5253) - XX(2501) = XX(2501)-JVS(30737)*XX(4986)-JVS(33183)*XX(5123)-JVS(42603)*XX(5250)-JVS(45190)*XX(5251)-JVS(51111)& - &*XX(5255) - XX(2500) = XX(2500)-JVS(34078)*XX(5152)-JVS(38232)*XX(5231)-JVS(42602)*XX(5250)-JVS(45189)*XX(5251)-JVS(48326)& - &*XX(5253) - XX(2499) = XX(2499)-JVS(12076)*XX(2789)-JVS(18341)*XX(3791)-JVS(28177)*XX(4799)-JVS(42601)*XX(5250)-JVS(48325)& - &*XX(5253) - XX(2498) = XX(2498)-JVS(21879)*XX(4209)-JVS(31342)*XX(5023)-JVS(42600)*XX(5250)-JVS(45188)*XX(5251)-JVS(48324)& - &*XX(5253) - XX(2497) = XX(2497)-JVS(15956)*XX(3488)-JVS(27865)*XX(4774)-JVS(30257)*XX(4954)-JVS(38231)*XX(5231)-JVS(42599)& - &*XX(5250) - XX(2496) = XX(2496)-JVS(25314)*XX(4537)-JVS(32521)*XX(5088)-JVS(42598)*XX(5250)-JVS(45187)*XX(5251)-JVS(48323)& - &*XX(5253) - XX(2495) = XX(2495)-JVS(28659)*XX(4842)-JVS(38230)*XX(5231)-JVS(48322)*XX(5253) - XX(2494) = XX(2494)-JVS(23943)*XX(4414)-JVS(39220)*XX(5234)-JVS(42597)*XX(5250)-JVS(45186)*XX(5251)-JVS(51110)& - &*XX(5255) - XX(2493) = XX(2493)-JVS(18408)*XX(3800)-JVS(38968)*XX(5233)-JVS(48321)*XX(5253) - XX(2492) = XX(2492)-JVS(29646)*XX(4918)-JVS(38967)*XX(5233)-JVS(51109)*XX(5255) - XX(2491) = XX(2491)-JVS(31018)*XX(5003)-JVS(31058)*XX(5005)-JVS(37396)*XX(5222)-JVS(38966)*XX(5233)-JVS(42596)& - &*XX(5250)-JVS(48320)*XX(5253)-JVS(51108)*XX(5255) - XX(2490) = XX(2490)-JVS(33767)*XX(5142)-JVS(34322)*XX(5160) - XX(2489) = XX(2489)-JVS(14501)*XX(3245)-JVS(31648)*XX(5040)-JVS(35471)*XX(5188)-JVS(42595)*XX(5250)-JVS(45185)& - &*XX(5251)-JVS(48319)*XX(5253)-JVS(51107)*XX(5255) - XX(2488) = XX(2488)-JVS(29423)*XX(4904)-JVS(42594)*XX(5250) - XX(2487) = XX(2487)-JVS(28603)*XX(4838)-JVS(32069)*XX(5062)-JVS(36915)*XX(5208)-JVS(39513)*XX(5238)-JVS(42593)& - &*XX(5250)-JVS(45184)*XX(5251)-JVS(51106)*XX(5255) - XX(2486) = XX(2486)-JVS(16773)*XX(3601)-JVS(31341)*XX(5023)-JVS(39219)*XX(5234)-JVS(42592)*XX(5250)-JVS(45183)& - &*XX(5251)-JVS(48318)*XX(5253)-JVS(51105)*XX(5255) - XX(2485) = XX(2485)-JVS(21778)*XX(4199)-JVS(27108)*XX(4708)-JVS(27315)*XX(4728)-JVS(35182)*XX(5183)-JVS(42591)& - &*XX(5250)-JVS(45182)*XX(5251)-JVS(51104)*XX(5255) - XX(2484) = XX(2484)-JVS(31530)*XX(5034)-JVS(35181)*XX(5183)-JVS(36204)*XX(5199)-JVS(39949)*XX(5244)-JVS(42590)& - &*XX(5250)-JVS(45181)*XX(5251)-JVS(51103)*XX(5255) - XX(2483) = XX(2483)-JVS(16891)*XX(3615)-JVS(22193)*XX(4239)-JVS(23685)*XX(4392)-JVS(39948)*XX(5244)-JVS(42589)& - &*XX(5250)-JVS(45180)*XX(5251)-JVS(51102)*XX(5255) - XX(2482) = XX(2482)-JVS(19360)*XX(3918)-JVS(21811)*XX(4202)-JVS(25534)*XX(4557)-JVS(39947)*XX(5244)-JVS(42588)& - &*XX(5250)-JVS(45179)*XX(5251)-JVS(51101)*XX(5255) - XX(2481) = XX(2481)-JVS(15390)*XX(3394)-JVS(26648)*XX(4668)-JVS(38229)*XX(5231)-JVS(42587)*XX(5250)-JVS(45178)& - &*XX(5251)-JVS(48317)*XX(5253)-JVS(51100)*XX(5255) - XX(2480) = XX(2480)-JVS(20840)*XX(4092)-JVS(42586)*XX(5250) - XX(2479) = XX(2479)-JVS(32798)*XX(5102)-JVS(35766)*XX(5193)-JVS(38228)*XX(5231)-JVS(39946)*XX(5244)-JVS(42585)& - &*XX(5250)-JVS(45177)*XX(5251)-JVS(51099)*XX(5255) - XX(2478) = XX(2478)-JVS(22640)*XX(4284)-JVS(30014)*XX(4939)-JVS(34204)*XX(5158)-JVS(38227)*XX(5231)-JVS(39945)& - &*XX(5244)-JVS(42584)*XX(5250)-JVS(48316)*XX(5253) - XX(2477) = XX(2477)-JVS(12313)*XX(2837)-JVS(31576)*XX(5037)-JVS(32597)*XX(5094)-JVS(39944)*XX(5244)-JVS(42583)& - &*XX(5250)-JVS(45176)*XX(5251)-JVS(51098)*XX(5255) - XX(2476) = XX(2476)-JVS(29467)*XX(4906)-JVS(36277)*XX(5200)-JVS(38226)*XX(5231)-JVS(39943)*XX(5244)-JVS(42582)& - &*XX(5250)-JVS(45175)*XX(5251)-JVS(51097)*XX(5255) - XX(2475) = XX(2475)-JVS(16859)*XX(3611)-JVS(31340)*XX(5023)-JVS(32333)*XX(5080)-JVS(39942)*XX(5244)-JVS(42581)& - &*XX(5250)-JVS(45174)*XX(5251)-JVS(51096)*XX(5255) - XX(2474) = XX(2474)-JVS(28030)*XX(4792)-JVS(29645)*XX(4918)-JVS(33237)*XX(5125)-JVS(38965)*XX(5233)-JVS(42580)& - &*XX(5250)-JVS(45173)*XX(5251)-JVS(51095)*XX(5255) - XX(2473) = XX(2473)-JVS(34077)*XX(5152)-JVS(34321)*XX(5160) - XX(2472) = XX(2472)-JVS(28961)*XX(4864)-JVS(29831)*XX(4931)-JVS(32884)*XX(5106)-JVS(38964)*XX(5233)-JVS(42579)& - &*XX(5250)-JVS(45172)*XX(5251)-JVS(51094)*XX(5255) - XX(2471) = XX(2471)-JVS(31997)*XX(5059)-JVS(42578)*XX(5250) - XX(2470) = XX(2470)-JVS(16154)*XX(3517)-JVS(27629)*XX(4754)-JVS(27652)*XX(4756)-JVS(31659)*XX(5041)-JVS(37851)& - &*XX(5228)-JVS(42577)*XX(5250) - XX(2469) = XX(2469)-JVS(31221)*XX(5014)-JVS(36897)*XX(5207)-JVS(39941)*XX(5244)-JVS(42576)*XX(5250) - XX(2468) = XX(2468)-JVS(12118)*XX(2798)-JVS(23740)*XX(4398)-JVS(38963)*XX(5233)-JVS(42575)*XX(5250)-JVS(48315)& - &*XX(5253)-JVS(51093)*XX(5255) - XX(2467) = XX(2467)-JVS(21674)*XX(4188)-JVS(39940)*XX(5244)-JVS(42574)*XX(5250)-JVS(45171)*XX(5251) - XX(2466) = XX(2466)-JVS(18076)*XX(3759)-JVS(20523)*XX(4053)-JVS(42573)*XX(5250)-JVS(51092)*XX(5255) - XX(2465) = XX(2465)-JVS(34320)*XX(5160)-JVS(37850)*XX(5228) - XX(2464) = XX(2464)-JVS(17420)*XX(3679)-JVS(17686)*XX(3714)-JVS(42572)*XX(5250)-JVS(53232)*XX(5256) - XX(2463) = XX(2463)-JVS(18757)*XX(3847)-JVS(20000)*XX(3995)-JVS(42571)*XX(5250)-JVS(51091)*XX(5255) - XX(2462) = XX(2462)-JVS(10484)*XX(2480)-JVS(42570)*XX(5250)-JVS(48314)*XX(5253)-JVS(51090)*XX(5255) - XX(2461) = XX(2461)-JVS(15028)*XX(3344)-JVS(16975)*XX(3626)-JVS(42569)*XX(5250)-JVS(48313)*XX(5253) - XX(2460) = XX(2460)-JVS(24355)*XX(4452)-JVS(34319)*XX(5160)-JVS(42568)*XX(5250)-JVS(48312)*XX(5253) - XX(2459) = XX(2459)-JVS(12583)*XX(2891)-JVS(31954)*XX(5057)-JVS(42567)*XX(5250)-JVS(48311)*XX(5253) - XX(2458) = XX(2458)-JVS(21322)*XX(4150)-JVS(32242)*XX(5073)-JVS(42566)*XX(5250)-JVS(48310)*XX(5253) - XX(2457) = XX(2457)-JVS(23901)*XX(4410)-JVS(34318)*XX(5160) - XX(2456) = XX(2456)-JVS(30861)*XX(4995)-JVS(35367)*XX(5184)-JVS(42565)*XX(5250)-JVS(51089)*XX(5255) - XX(2455) = XX(2455)-JVS(15003)*XX(3341)-JVS(19280)*XX(3910)-JVS(29201)*XX(4884)-JVS(42564)*XX(5250) - XX(2454) = XX(2454)-JVS(17527)*XX(3692)-JVS(31277)*XX(5018)-JVS(42563)*XX(5250)-JVS(48309)*XX(5253) - XX(2453) = XX(2453)-JVS(11258)*XX(2634)-JVS(19030)*XX(3879)-JVS(42562)*XX(5250)-JVS(48308)*XX(5253) - XX(2452) = XX(2452)-JVS(17337)*XX(3668)-JVS(34317)*XX(5160) - XX(2451) = XX(2451)-JVS(18895)*XX(3863)-JVS(34703)*XX(5169)-JVS(42561)*XX(5250)-JVS(51088)*XX(5255) - XX(2450) = XX(2450)-JVS(17771)*XX(3724)-JVS(35074)*XX(5182)-JVS(42560)*XX(5250)-JVS(51087)*XX(5255) - XX(2449) = XX(2449)-JVS(15501)*XX(3409)-JVS(19398)*XX(3922)-JVS(27938)*XX(4782)-JVS(42559)*XX(5250) - XX(2448) = XX(2448)-JVS(29609)*XX(4916)-JVS(42558)*XX(5250)-JVS(45170)*XX(5251)-JVS(51086)*XX(5255) - XX(2447) = XX(2447)-JVS(17245)*XX(3656)-JVS(42557)*XX(5250)-JVS(48307)*XX(5253) - XX(2446) = XX(2446)-JVS(18101)*XX(3762)-JVS(18207)*XX(3775)-JVS(42556)*XX(5250)-JVS(51085)*XX(5255) - XX(2445) = XX(2445)-JVS(20946)*XX(4104)-JVS(26391)*XX(4644)-JVS(39939)*XX(5244)-JVS(42555)*XX(5250) - XX(2444) = XX(2444)-JVS(28406)*XX(4820)-JVS(30592)*XX(4978)-JVS(42554)*XX(5250)-JVS(48306)*XX(5253) - XX(2443) = XX(2443)-JVS(22339)*XX(4253)-JVS(24321)*XX(4449)-JVS(39938)*XX(5244)-JVS(42553)*XX(5250) - XX(2442) = XX(2442)-JVS(16578)*XX(3577)-JVS(23476)*XX(4370)-JVS(29491)*XX(4909)-JVS(42552)*XX(5250) - XX(2441) = XX(2441)-JVS(16458)*XX(3561)-JVS(42551)*XX(5250)-JVS(48305)*XX(5253) - XX(2440) = XX(2440)-JVS(15414)*XX(3397)-JVS(28323)*XX(4812)-JVS(38225)*XX(5231)-JVS(42550)*XX(5250) - XX(2439) = XX(2439)-JVS(33423)*XX(5131)-JVS(35073)*XX(5182)-JVS(37131)*XX(5214)-JVS(42549)*XX(5250) - XX(2438) = XX(2438)-JVS(19868)*XX(3979)-JVS(39774)*XX(5243)-JVS(39937)*XX(5244)-JVS(42548)*XX(5250) - XX(2437) = XX(2437)-JVS(23684)*XX(4392)-JVS(35366)*XX(5184)-JVS(39936)*XX(5244)-JVS(42547)*XX(5250) - XX(2436) = XX(2436)-JVS(13179)*XX(2996)-JVS(20990)*XX(4109)-JVS(42546)*XX(5250)-JVS(48304)*XX(5253) - XX(2435) = XX(2435)-JVS(15644)*XX(3429)-JVS(32068)*XX(5062)-JVS(34921)*XX(5178)-JVS(42545)*XX(5250) - XX(2434) = XX(2434)-JVS(22976)*XX(4316)-JVS(30940)*XX(5000)-JVS(42544)*XX(5250)-JVS(48303)*XX(5253) - XX(2433) = XX(2433)-JVS(32495)*XX(5087)-JVS(42543)*XX(5250)-JVS(48302)*XX(5253) - XX(2432) = XX(2432)-JVS(13690)*XX(3091)-JVS(17511)*XX(3690)-JVS(42542)*XX(5250)-JVS(48301)*XX(5253) - XX(2431) = XX(2431)-JVS(22397)*XX(4259)-JVS(36017)*XX(5194)-JVS(42541)*XX(5250)-JVS(51084)*XX(5255) - XX(2430) = XX(2430)-JVS(38224)*XX(5231)-JVS(39935)*XX(5244)-JVS(45169)*XX(5251) - XX(2429) = XX(2429)-JVS(19456)*XX(3929)-JVS(24432)*XX(4460)-JVS(42540)*XX(5250)-JVS(48300)*XX(5253) - XX(2428) = XX(2428)-JVS(32953)*XX(5110)-JVS(39694)*XX(5242)-JVS(39934)*XX(5244)-JVS(42539)*XX(5250) - XX(2427) = XX(2427)-JVS(34316)*XX(5160)-JVS(42538)*XX(5250)-JVS(48299)*XX(5253)-JVS(51083)*XX(5255) - XX(2426) = XX(2426)-JVS(19612)*XX(3948)-JVS(29930)*XX(4938)-JVS(39933)*XX(5244)-JVS(42537)*XX(5250) - XX(2425) = XX(2425)-JVS(29567)*XX(4913)-JVS(30392)*XX(4963)-JVS(34315)*XX(5160)-JVS(39604)*XX(5241)-JVS(42536)& - &*XX(5250)-JVS(51082)*XX(5255) - XX(2424) = XX(2424)-JVS(21485)*XX(4169)-JVS(35765)*XX(5193)-JVS(39436)*XX(5237)-JVS(42535)*XX(5250) - XX(2423) = XX(2423)-JVS(18085)*XX(3760)-JVS(19243)*XX(3905)-JVS(34314)*XX(5160)-JVS(42534)*XX(5250) - XX(2422) = XX(2422)-JVS(16068)*XX(3505)-JVS(17721)*XX(3718)-JVS(32944)*XX(5109)-JVS(42533)*XX(5250) - XX(2421) = XX(2421)-JVS(32494)*XX(5087)-JVS(35470)*XX(5188)-JVS(42532)*XX(5250)-JVS(51081)*XX(5255) - XX(2420) = XX(2420)-JVS(18164)*XX(3770)-JVS(21349)*XX(4153)-JVS(42531)*XX(5250)-JVS(53231)*XX(5256) - XX(2419) = XX(2419)-JVS(24881)*XX(4501)-JVS(42530)*XX(5250)-JVS(48298)*XX(5253)-JVS(51080)*XX(5255) - XX(2418) = XX(2418)-JVS(13865)*XX(3122)-JVS(18372)*XX(3795)-JVS(42529)*XX(5250)-JVS(48297)*XX(5253) - XX(2417) = XX(2417)-JVS(16419)*XX(3556)-JVS(23961)*XX(4416)-JVS(42528)*XX(5250)-JVS(48296)*XX(5253) - XX(2416) = XX(2416)-JVS(18954)*XX(3870)-JVS(30075)*XX(4942)-JVS(34553)*XX(5162)-JVS(42527)*XX(5250) - XX(2415) = XX(2415)-JVS(20815)*XX(4089)-JVS(34313)*XX(5160) - XX(2414) = XX(2414)-JVS(24730)*XX(4489)-JVS(25931)*XX(4602)-JVS(39932)*XX(5244)-JVS(42526)*XX(5250) - XX(2413) = XX(2413)-JVS(15567)*XX(3418)-JVS(19676)*XX(3956)-JVS(27174)*XX(4714)-JVS(42525)*XX(5250) - XX(2412) = XX(2412)-JVS(38223)*XX(5231)-JVS(38806)*XX(5232)-JVS(42524)*XX(5250)-JVS(51079)*XX(5255) - XX(2411) = XX(2411)-JVS(19340)*XX(3916)-JVS(24336)*XX(4450)-JVS(35764)*XX(5193)-JVS(42523)*XX(5250) - XX(2410) = XX(2410)-JVS(31598)*XX(5038)-JVS(38962)*XX(5233)-JVS(42522)*XX(5250)-JVS(51078)*XX(5255) - XX(2409) = XX(2409)-JVS(14951)*XX(3333)-JVS(15203)*XX(3369)-JVS(31713)*XX(5045)-JVS(42521)*XX(5250) - XX(2408) = XX(2408)-JVS(15580)*XX(3420)-JVS(21510)*XX(4172)-JVS(42520)*XX(5250)-JVS(48295)*XX(5253) - XX(2407) = XX(2407)-JVS(18971)*XX(3872)-JVS(34863)*XX(5176)-JVS(42519)*XX(5250)-JVS(51077)*XX(5255) - XX(2406) = XX(2406)-JVS(14134)*XX(3174)-JVS(18446)*XX(3805)-JVS(42518)*XX(5250)-JVS(48294)*XX(5253) - XX(2405) = XX(2405)-JVS(12935)*XX(2954)-JVS(21898)*XX(4211)-JVS(42517)*XX(5250)-JVS(48293)*XX(5253) - XX(2404) = XX(2404)-JVS(25567)*XX(4560)-JVS(35072)*XX(5182)-JVS(39931)*XX(5244)-JVS(42516)*XX(5250) - XX(2403) = XX(2403)-JVS(11961)*XX(2767)-JVS(19013)*XX(3877)-JVS(42515)*XX(5250)-JVS(48292)*XX(5253) - XX(2402) = XX(2402)-JVS(22495)*XX(4269)-JVS(37789)*XX(5226)-JVS(42514)*XX(5250)-JVS(51076)*XX(5255) - XX(2401) = XX(2401)-JVS(23346)*XX(4356)-JVS(23420)*XX(4365)-JVS(27199)*XX(4717)-JVS(42513)*XX(5250) - XX(2400) = XX(2400)-JVS(21484)*XX(4169)-JVS(33853)*XX(5143)-JVS(34524)*XX(5161)-JVS(42512)*XX(5250) - XX(2399) = XX(2399)-JVS(34312)*XX(5160)-JVS(39346)*XX(5235) - XX(2398) = XX(2398)-JVS(17887)*XX(3738)-JVS(19900)*XX(3983)-JVS(42511)*XX(5250)-JVS(53230)*XX(5256) - XX(2397) = XX(2397)-JVS(32681)*XX(5098)-JVS(33766)*XX(5142)-JVS(39930)*XX(5244)-JVS(42510)*XX(5250) - XX(2396) = XX(2396)-JVS(22612)*XX(4281)-JVS(38027)*XX(5230)-JVS(42509)*XX(5250)-JVS(51075)*XX(5255) - XX(2395) = XX(2395)-JVS(30189)*XX(4949)-JVS(42508)*XX(5250)-JVS(45168)*XX(5251)-JVS(51074)*XX(5255) - XX(2394) = XX(2394)-JVS(15430)*XX(3399)-JVS(19021)*XX(3878)-JVS(25865)*XX(4593)-JVS(42507)*XX(5250) - XX(2393) = XX(2393)-JVS(27468)*XX(4741)-JVS(34311)*XX(5160)-JVS(36128)*XX(5197)-JVS(37849)*XX(5228)-JVS(39929)& - &*XX(5244)-JVS(42506)*XX(5250) - XX(2392) = XX(2392)-JVS(13527)*XX(3064)-JVS(19980)*XX(3993)-JVS(42505)*XX(5250)-JVS(45167)*XX(5251) - XX(2391) = XX(2391)-JVS(23508)*XX(4374)-JVS(29075)*XX(4872)-JVS(35422)*XX(5185)-JVS(42504)*XX(5250) - XX(2390) = XX(2390)-JVS(18019)*XX(3753)-JVS(25287)*XX(4535)-JVS(42503)*XX(5250)-JVS(53229)*XX(5256) - XX(2389) = XX(2389)-JVS(17428)*XX(3680)-JVS(19776)*XX(3968)-JVS(42502)*XX(5250)-JVS(48291)*XX(5253) - XX(2388) = XX(2388)-JVS(24279)*XX(4445)-JVS(35180)*XX(5183)-JVS(36203)*XX(5199)-JVS(42501)*XX(5250) - XX(2387) = XX(2387)-JVS(21443)*XX(4164)-JVS(42500)*XX(5250)-JVS(48290)*XX(5253)-JVS(51073)*XX(5255) - XX(2386) = XX(2386)-JVS(22166)*XX(4236)-JVS(32462)*XX(5086)-JVS(39928)*XX(5244)-JVS(42499)*XX(5250) - XX(2385) = XX(2385)-JVS(25670)*XX(4571)-JVS(27382)*XX(4733)-JVS(30552)*XX(4974)-JVS(31944)*XX(5056)-JVS(39512)& - &*XX(5238)-JVS(42498)*XX(5250) - XX(2384) = XX(2384)-JVS(22548)*XX(4275)-JVS(35610)*XX(5191)-JVS(42497)*XX(5250)-JVS(51072)*XX(5255) - XX(2383) = XX(2383)-JVS(15227)*XX(3372)-JVS(18593)*XX(3824)-JVS(42496)*XX(5250)-JVS(48289)*XX(5253) - XX(2382) = XX(2382)-JVS(28472)*XX(4826)-JVS(37395)*XX(5222)-JVS(38961)*XX(5233)-JVS(42495)*XX(5250)-JVS(48288)& - &*XX(5253)-JVS(51071)*XX(5255) - XX(2381) = XX(2381)-JVS(25490)*XX(4552)-JVS(42494)*XX(5250)-JVS(51070)*XX(5255) - XX(2380) = XX(2380)-JVS(15058)*XX(3348)-JVS(29009)*XX(4867)-JVS(38222)*XX(5231)-JVS(42493)*XX(5250) - XX(2379) = XX(2379)-JVS(15868)*XX(3474)-JVS(20385)*XX(4041)-JVS(42492)*XX(5250) - XX(2378) = XX(2378)-JVS(28658)*XX(4842)-JVS(38221)*XX(5231)-JVS(42491)*XX(5250)-JVS(48287)*XX(5253) - XX(2377) = XX(2377)-JVS(32241)*XX(5073)-JVS(42490)*XX(5250) - XX(2376) = XX(2376)-JVS(38960)*XX(5233)-JVS(45166)*XX(5251)-JVS(51069)*XX(5255) - XX(2375) = XX(2375)-JVS(22115)*XX(4231)-JVS(42489)*XX(5250)-JVS(48286)*XX(5253)-JVS(51068)*XX(5255) - XX(2374) = XX(2374)-JVS(34310)*XX(5160)-JVS(36051)*XX(5195) - XX(2373) = XX(2373)-JVS(16140)*XX(3516)-JVS(38220)*XX(5231)-JVS(42488)*XX(5250)-JVS(51067)*XX(5255) - XX(2372) = XX(2372)-JVS(13637)*XX(3082)-JVS(14943)*XX(3332)-JVS(42487)*XX(5250)-JVS(48285)*XX(5253) - XX(2371) = XX(2371)-JVS(22629)*XX(4283)-JVS(34626)*XX(5165)-JVS(42486)*XX(5250)-JVS(51066)*XX(5255) - XX(2370) = XX(2370)-JVS(18056)*XX(3757)-JVS(42485)*XX(5250)-JVS(48284)*XX(5253) - XX(2369) = XX(2369)-JVS(16700)*XX(3592)-JVS(21030)*XX(4114)-JVS(27897)*XX(4777)-JVS(42484)*XX(5250) - XX(2368) = XX(2368)-JVS(17646)*XX(3709)-JVS(21348)*XX(4153)-JVS(42483)*XX(5250)-JVS(48283)*XX(5253) - XX(2367) = XX(2367)-JVS(19705)*XX(3959)-JVS(42482)*XX(5250)-JVS(48282)*XX(5253) - XX(2366) = XX(2366)-JVS(15162)*XX(3364)-JVS(19791)*XX(3970)-JVS(27271)*XX(4723)-JVS(42481)*XX(5250) - XX(2365) = XX(2365)-JVS(28196)*XX(4801)-JVS(29212)*XX(4885)-JVS(42480)*XX(5250)-JVS(48281)*XX(5253) - XX(2364) = XX(2364)-JVS(34309)*XX(5160)-JVS(42479)*XX(5250)-JVS(51065)*XX(5255) - XX(2363) = XX(2363)-JVS(16563)*XX(3575)-JVS(21407)*XX(4160)-JVS(29169)*XX(4881)-JVS(42478)*XX(5250) - XX(2362) = XX(2362)-JVS(28854)*XX(4855)-JVS(32392)*XX(5083)-JVS(39927)*XX(5244)-JVS(42477)*XX(5250) - XX(2361) = XX(2361)-JVS(17963)*XX(3747)-JVS(51064)*XX(5255) - XX(2360) = XX(2360)-JVS(19659)*XX(3954)-JVS(32984)*XX(5111)-JVS(38219)*XX(5231)-JVS(42476)*XX(5250) - XX(2359) = XX(2359)-JVS(16139)*XX(3516)-JVS(27712)*XX(4761)-JVS(31431)*XX(5028)-JVS(33031)*XX(5114)-JVS(37848)& - &*XX(5228)-JVS(42475)*XX(5250) - XX(2358) = XX(2358)-JVS(28976)*XX(4865)-JVS(35179)*XX(5183)-JVS(37394)*XX(5222)-JVS(42474)*XX(5250) - XX(2357) = XX(2357)-JVS(15757)*XX(3450)-JVS(31575)*XX(5037)-JVS(39926)*XX(5244)-JVS(42473)*XX(5250)-JVS(45165)& - &*XX(5251)-JVS(51063)*XX(5255) - XX(2356) = XX(2356)-JVS(31574)*XX(5037)-JVS(39925)*XX(5244) - XX(2355) = XX(2355)-JVS(18245)*XX(3779)-JVS(25669)*XX(4571)-JVS(27407)*XX(4736)-JVS(42472)*XX(5250) - XX(2354) = XX(2354)-JVS(11979)*XX(2770)-JVS(25912)*XX(4599)-JVS(42471)*XX(5250)-JVS(48280)*XX(5253) - XX(2353) = XX(2353)-JVS(15809)*XX(3461)-JVS(20485)*XX(4050)-JVS(42470)*XX(5250) - XX(2352) = XX(2352)-JVS(20884)*XX(4098)-JVS(32391)*XX(5083)-JVS(42469)*XX(5250)-JVS(48279)*XX(5253) - XX(2351) = XX(2351)-JVS(17837)*XX(3732)-JVS(20707)*XX(4076)-JVS(42468)*XX(5250)-JVS(48278)*XX(5253) - XX(2350) = XX(2350)-JVS(13055)*XX(2974)-JVS(16626)*XX(3583)-JVS(42467)*XX(5250)-JVS(48277)*XX(5253) - XX(2349) = XX(2349)-JVS(23052)*XX(4324)-JVS(23063)*XX(4325)-JVS(39924)*XX(5244)-JVS(42466)*XX(5250) - XX(2348) = XX(2348)-JVS(19837)*XX(3976)-JVS(27678)*XX(4759)-JVS(38218)*XX(5231)-JVS(42465)*XX(5250) - XX(2347) = XX(2347)-JVS(17070)*XX(3638)-JVS(38217)*XX(5231)-JVS(42464)*XX(5250)-JVS(48276)*XX(5253) - XX(2346) = XX(2346)-JVS(35763)*XX(5193)-JVS(42463)*XX(5250)-JVS(45164)*XX(5251)-JVS(51062)*XX(5255) - XX(2345) = XX(2345)-JVS(16772)*XX(3601)-JVS(31339)*XX(5023)-JVS(39218)*XX(5234)-JVS(42462)*XX(5250)-JVS(45163)& - &*XX(5251)-JVS(48275)*XX(5253) - XX(2344) = XX(2344)-JVS(15100)*XX(3354)-JVS(32137)*XX(5067)-JVS(39923)*XX(5244)-JVS(42461)*XX(5250)-JVS(48274)& - &*XX(5253)-JVS(51061)*XX(5255) - XX(2343) = XX(2343)-JVS(21654)*XX(4186)-JVS(42460)*XX(5250)-JVS(48273)*XX(5253) - XX(2342) = XX(2342)-JVS(16708)*XX(3593)-JVS(23042)*XX(4323)-JVS(42459)*XX(5250)-JVS(48272)*XX(5253) - XX(2341) = XX(2341)-JVS(13857)*XX(3121)-JVS(15010)*XX(3342)-JVS(42458)*XX(5250)-JVS(48271)*XX(5253) - XX(2340) = XX(2340)-JVS(36112)*XX(5196)-JVS(42457)*XX(5250)-JVS(51060)*XX(5255) - XX(2339) = XX(2339)-JVS(27641)*XX(4755)-JVS(36812)*XX(5203)-JVS(42456)*XX(5250)-JVS(51059)*XX(5255) - XX(2338) = XX(2338)-JVS(19999)*XX(3995)-JVS(42455)*XX(5250)-JVS(48270)*XX(5253)-JVS(51058)*XX(5255) - XX(2337) = XX(2337)-JVS(13364)*XX(3032)-JVS(31672)*XX(5042)-JVS(42454)*XX(5250)-JVS(48269)*XX(5253) - XX(2336) = XX(2336)-JVS(28073)*XX(4796)-JVS(33588)*XX(5139)-JVS(35178)*XX(5183)-JVS(42453)*XX(5250)-JVS(45162)& - &*XX(5251)-JVS(51057)*XX(5255) - XX(2335) = XX(2335)-JVS(31557)*XX(5036)-JVS(42452)*XX(5250)-JVS(45161)*XX(5251)-JVS(51056)*XX(5255) - XX(2334) = XX(2334)-JVS(15525)*XX(3412)-JVS(51055)*XX(5255) - XX(2333) = XX(2333)-JVS(9842)*XX(2334)-JVS(15524)*XX(3412)-JVS(42451)*XX(5250)-JVS(48268)*XX(5253) - XX(2332) = XX(2332)-JVS(12927)*XX(2953)-JVS(20945)*XX(4104)-JVS(42450)*XX(5250)-JVS(48267)*XX(5253) - XX(2331) = XX(2331)-JVS(22318)*XX(4251)-JVS(25313)*XX(4537)-JVS(29262)*XX(4890)-JVS(42449)*XX(5250) - XX(2330) = XX(2330)-JVS(11279)*XX(2638)-JVS(15989)*XX(3493)-JVS(42448)*XX(5250)-JVS(48266)*XX(5253) - XX(2329) = XX(2329)-JVS(22082)*XX(4228)-JVS(37752)*XX(5225)-JVS(42447)*XX(5250)-JVS(51054)*XX(5255) - XX(2328) = XX(2328)-JVS(17544)*XX(3694)-JVS(22040)*XX(4224)-JVS(42446)*XX(5250)-JVS(48265)*XX(5253) - XX(2327) = XX(2327)-JVS(11697)*XX(2719)-JVS(18828)*XX(3855)-JVS(42445)*XX(5250)-JVS(48264)*XX(5253) - XX(2326) = XX(2326)-JVS(38216)*XX(5231)-JVS(39922)*XX(5244) - XX(2325) = XX(2325)-JVS(38215)*XX(5231)-JVS(39574)*XX(5240)-JVS(42444)*XX(5250)-JVS(48263)*XX(5253) - XX(2324) = XX(2324)-JVS(10483)*XX(2480)-JVS(51053)*XX(5255) - XX(2323) = XX(2323)-JVS(28513)*XX(4830)-JVS(29528)*XX(4910)-JVS(38214)*XX(5231) - XX(2322) = XX(2322)-JVS(15194)*XX(3368)-JVS(51052)*XX(5255) - XX(2321) = XX(2321)-JVS(9782)*XX(2322)-JVS(15193)*XX(3368)-JVS(42443)*XX(5250)-JVS(48262)*XX(5253) - XX(2320) = XX(2320)-JVS(21878)*XX(4209)-JVS(31338)*XX(5023)-JVS(42442)*XX(5250)-JVS(51051)*XX(5255) - XX(2319) = XX(2319)-JVS(22237)*XX(4243)-JVS(30521)*XX(4973)-JVS(42441)*XX(5250)-JVS(51050)*XX(5255) - XX(2318) = XX(2318)-JVS(12775)*XX(2926)-JVS(36914)*XX(5208)-JVS(38026)*XX(5230)-JVS(42440)*XX(5250) - XX(2317) = XX(2317)-JVS(16756)*XX(3599)-JVS(20075)*XX(4004)-JVS(42439)*XX(5250)-JVS(48261)*XX(5253) - XX(2316) = XX(2316)-JVS(19846)*XX(3977)-JVS(25136)*XX(4521)-JVS(35762)*XX(5193)-JVS(42438)*XX(5250) - XX(2315) = XX(2315)-JVS(31868)*XX(5052)-JVS(42437)*XX(5250)-JVS(45160)*XX(5251)-JVS(51049)*XX(5255) - XX(2314) = XX(2314)-JVS(25146)*XX(4522)-JVS(34920)*XX(5178)-JVS(42436)*XX(5250)-JVS(48260)*XX(5253) - XX(2313) = XX(2313)-JVS(17912)*XX(3741)-JVS(29585)*XX(4914)-JVS(42435)*XX(5250)-JVS(48259)*XX(5253) - XX(2312) = XX(2312)-JVS(31080)*XX(5006)-JVS(32631)*XX(5095)-JVS(42434)*XX(5250)-JVS(51048)*XX(5255) - XX(2311) = XX(2311)-JVS(15247)*XX(3374)-JVS(19685)*XX(3957)-JVS(42433)*XX(5250)-JVS(48258)*XX(5253) - XX(2310) = XX(2310)-JVS(26094)*XX(4618)-JVS(42432)*XX(5250)-JVS(45159)*XX(5251)-JVS(51047)*XX(5255) - XX(2309) = XX(2309)-JVS(17258)*XX(3657)-JVS(42431)*XX(5250)-JVS(48257)*XX(5253)-JVS(51046)*XX(5255) - XX(2308) = XX(2308)-JVS(23024)*XX(4321)-JVS(28543)*XX(4832)-JVS(37316)*XX(5220)-JVS(51045)*XX(5255) - XX(2307) = XX(2307)-JVS(21473)*XX(4168)-JVS(33587)*XX(5139)-JVS(35177)*XX(5183)-JVS(42430)*XX(5250) - XX(2306) = XX(2306)-JVS(35365)*XX(5184)-JVS(42429)*XX(5250)-JVS(48256)*XX(5253)-JVS(51044)*XX(5255) - XX(2305) = XX(2305)-JVS(28657)*XX(4842)-JVS(31261)*XX(5017)-JVS(39921)*XX(5244)-JVS(42428)*XX(5250) - XX(2304) = XX(2304)-JVS(14419)*XX(3233)-JVS(32834)*XX(5104) - XX(2303) = XX(2303)-JVS(9704)*XX(2304)-JVS(11696)*XX(2719)-JVS(42427)*XX(5250)-JVS(48255)*XX(5253) - XX(2302) = XX(2302)-JVS(17186)*XX(3649)-JVS(42426)*XX(5250)-JVS(48254)*XX(5253)-JVS(51043)*XX(5255) - XX(2301) = XX(2301)-JVS(21935)*XX(4215)-JVS(36811)*XX(5203)-JVS(42425)*XX(5250)-JVS(51042)*XX(5255) - XX(2300) = XX(2300)-JVS(11498)*XX(2680)-JVS(32313)*XX(5079)-JVS(39693)*XX(5242)-JVS(42424)*XX(5250) - XX(2299) = XX(2299)-JVS(19351)*XX(3917)-JVS(42423)*XX(5250)-JVS(48253)*XX(5253)-JVS(51041)*XX(5255) - XX(2298) = XX(2298)-JVS(19376)*XX(3919)-JVS(24259)*XX(4443)-JVS(35761)*XX(5193)-JVS(42422)*XX(5250) - XX(2297) = XX(2297)-JVS(17860)*XX(3735)-JVS(42421)*XX(5250)-JVS(48252)*XX(5253) - XX(2296) = XX(2296)-JVS(15423)*XX(3398)-JVS(17737)*XX(3720)-JVS(42420)*XX(5250)-JVS(48251)*XX(5253) - XX(2295) = XX(2295)-JVS(20304)*XX(4031)-JVS(26159)*XX(4622)-JVS(39920)*XX(5244)-JVS(42419)*XX(5250) - XX(2294) = XX(2294)-JVS(17886)*XX(3738)-JVS(18312)*XX(3787)-JVS(42418)*XX(5250)-JVS(48250)*XX(5253) - XX(2293) = XX(2293)-JVS(21297)*XX(4147)-JVS(34308)*XX(5160) - XX(2292) = XX(2292)-JVS(35609)*XX(5191)-JVS(37981)*XX(5229)-JVS(42417)*XX(5250)-JVS(51040)*XX(5255) - XX(2291) = XX(2291)-JVS(15383)*XX(3393)-JVS(17962)*XX(3747)-JVS(42416)*XX(5250)-JVS(48249)*XX(5253) - XX(2290) = XX(2290)-JVS(24089)*XX(4427)-JVS(34625)*XX(5165)-JVS(42415)*XX(5250)-JVS(48248)*XX(5253) - XX(2289) = XX(2289)-JVS(18903)*XX(3864)-JVS(23431)*XX(4366)-JVS(38805)*XX(5232)-JVS(42414)*XX(5250) - XX(2288) = XX(2288)-JVS(29705)*XX(4921)-JVS(42413)*XX(5250)-JVS(48247)*XX(5253) - XX(2287) = XX(2287)-JVS(32819)*XX(5103)-JVS(45158)*XX(5251)-JVS(51039)*XX(5255) - XX(2286) = XX(2286)-JVS(12710)*XX(2914)-JVS(30090)*XX(4943)-JVS(37847)*XX(5228)-JVS(42412)*XX(5250)-JVS(45157)& - &*XX(5251)-JVS(51038)*XX(5255) - XX(2285) = XX(2285)-JVS(19485)*XX(3932)-JVS(34624)*XX(5165)-JVS(42411)*XX(5250)-JVS(48246)*XX(5253) - XX(2284) = XX(2284)-JVS(19350)*XX(3917)-JVS(51037)*XX(5255) - XX(2283) = XX(2283)-JVS(18353)*XX(3793)-JVS(25853)*XX(4592)-JVS(42410)*XX(5250) - XX(2282) = XX(2282)-JVS(11578)*XX(2697)-JVS(13890)*XX(3126)-JVS(42409)*XX(5250)-JVS(48245)*XX(5253) - XX(2281) = XX(2281)-JVS(17427)*XX(3680)-JVS(18271)*XX(3782)-JVS(42408)*XX(5250)-JVS(53228)*XX(5256) - XX(2280) = XX(2280)-JVS(16138)*XX(3516)-JVS(38213)*XX(5231)-JVS(42407)*XX(5250)-JVS(48244)*XX(5253) - XX(2279) = XX(2279)-JVS(29929)*XX(4938)-JVS(39217)*XX(5234)-JVS(51036)*XX(5255) - XX(2278) = XX(2278)-JVS(31133)*XX(5009)-JVS(42406)*XX(5250)-JVS(48243)*XX(5253) - XX(2277) = XX(2277)-JVS(18796)*XX(3851)-JVS(19949)*XX(3989)-JVS(42405)*XX(5250)-JVS(48242)*XX(5253) - XX(2276) = XX(2276)-JVS(16791)*XX(3603)-JVS(42404)*XX(5250)-JVS(48241)*XX(5253) - XX(2275) = XX(2275)-JVS(12845)*XX(2938)-JVS(15610)*XX(3424)-JVS(42403)*XX(5250)-JVS(48240)*XX(5253) - XX(2274) = XX(2274)-JVS(17663)*XX(3711)-JVS(23571)*XX(4381)-JVS(42402)*XX(5250)-JVS(53227)*XX(5256) - XX(2273) = XX(2273)-JVS(18691)*XX(3839)-JVS(31079)*XX(5006)-JVS(39919)*XX(5244)-JVS(42401)*XX(5250) - XX(2272) = XX(2272)-JVS(36016)*XX(5194)-JVS(42400)*XX(5250)-JVS(51035)*XX(5255) - XX(2271) = XX(2271)-JVS(10893)*XX(2562)-JVS(16373)*XX(3548)-JVS(42399)*XX(5250)-JVS(48239)*XX(5253) - XX(2270) = XX(2270)-JVS(11036)*XX(2589)-JVS(18075)*XX(3759)-JVS(42398)*XX(5250)-JVS(48238)*XX(5253) - XX(2269) = XX(2269)-JVS(19435)*XX(3926)-JVS(25751)*XX(4581)-JVS(34181)*XX(5157)-JVS(42397)*XX(5250) - XX(2268) = XX(2268)-JVS(21101)*XX(4122)-JVS(42396)*XX(5250)-JVS(48237)*XX(5253)-JVS(51034)*XX(5255) - XX(2267) = XX(2267)-JVS(17482)*XX(3687)-JVS(19170)*XX(3896)-JVS(42395)*XX(5250)-JVS(48236)*XX(5253) - XX(2266) = XX(2266)-JVS(29704)*XX(4921)-JVS(40550)*XX(5248)-JVS(42394)*XX(5250)-JVS(51033)*XX(5255) - XX(2265) = XX(2265)-JVS(28656)*XX(4842)-JVS(31260)*XX(5017)-JVS(39918)*XX(5244)-JVS(42393)*XX(5250) - XX(2264) = XX(2264)-JVS(18818)*XX(3854)-JVS(18837)*XX(3856)-JVS(32379)*XX(5082)-JVS(42392)*XX(5250) - XX(2263) = XX(2263)-JVS(24234)*XX(4441)-JVS(24320)*XX(4449)-JVS(35176)*XX(5183)-JVS(42391)*XX(5250) - XX(2262) = XX(2262)-JVS(17787)*XX(3726)-JVS(19584)*XX(3945)-JVS(42390)*XX(5250)-JVS(48235)*XX(5253) - XX(2261) = XX(2261)-JVS(32202)*XX(5071)-JVS(42389)*XX(5250)-JVS(48234)*XX(5253)-JVS(51032)*XX(5255) - XX(2260) = XX(2260)-JVS(16096)*XX(3510)-JVS(25880)*XX(4595)-JVS(33765)*XX(5142)-JVS(42388)*XX(5250) - XX(2259) = XX(2259)-JVS(22939)*XX(4313)-JVS(28562)*XX(4834)-JVS(42387)*XX(5250)-JVS(51031)*XX(5255) - XX(2258) = XX(2258)-JVS(27889)*XX(4776)-JVS(38804)*XX(5232)-JVS(39216)*XX(5234)-JVS(42386)*XX(5250)-JVS(45156)& - &*XX(5251)-JVS(51030)*XX(5255) - XX(2257) = XX(2257)-JVS(12412)*XX(2856)-JVS(19061)*XX(3882)-JVS(42385)*XX(5250)-JVS(48233)*XX(5253) - XX(2256) = XX(2256)-JVS(13271)*XX(3013)-JVS(22594)*XX(4279)-JVS(42384)*XX(5250)-JVS(48232)*XX(5253) - XX(2255) = XX(2255)-JVS(32312)*XX(5079)-JVS(42383)*XX(5250)-JVS(45155)*XX(5251)-JVS(51029)*XX(5255) - XX(2254) = XX(2254)-JVS(16911)*XX(3617)-JVS(38212)*XX(5231)-JVS(42382)*XX(5250)-JVS(48231)*XX(5253) - XX(2253) = XX(2253)-JVS(13097)*XX(2982)-JVS(18255)*XX(3780)-JVS(42381)*XX(5250)-JVS(48230)*XX(5253) - XX(2252) = XX(2252)-JVS(14466)*XX(3241)-JVS(15636)*XX(3428)-JVS(37305)*XX(5219)-JVS(42380)*XX(5250) - XX(2251) = XX(2251)-JVS(21857)*XX(4207)-JVS(31919)*XX(5055)-JVS(42379)*XX(5250)-JVS(51028)*XX(5255) - XX(2250) = XX(2250)-JVS(19636)*XX(3951)-JVS(39573)*XX(5240)-JVS(42378)*XX(5250)-JVS(48229)*XX(5253) - XX(2249) = XX(2249)-JVS(37393)*XX(5222)-JVS(39215)*XX(5234)-JVS(42377)*XX(5250) - XX(2248) = XX(2248)-JVS(21810)*XX(4202)-JVS(31470)*XX(5031)-JVS(42376)*XX(5250)-JVS(51027)*XX(5255) - XX(2247) = XX(2247)-JVS(12853)*XX(2939)-JVS(31918)*XX(5055)-JVS(34031)*XX(5150)-JVS(42375)*XX(5250) - XX(2246) = XX(2246)-JVS(13142)*XX(2990)-JVS(16717)*XX(3594)-JVS(42374)*XX(5250)-JVS(48228)*XX(5253) - XX(2245) = XX(2245)-JVS(11067)*XX(2594)-JVS(16344)*XX(3544)-JVS(42373)*XX(5250)-JVS(48227)*XX(5253) - XX(2244) = XX(2244)-JVS(19577)*XX(3944)-JVS(34307)*XX(5160)-JVS(35175)*XX(5183)-JVS(42372)*XX(5250) - XX(2243) = XX(2243)-JVS(34136)*XX(5155)-JVS(42371)*XX(5250)-JVS(45154)*XX(5251)-JVS(51026)*XX(5255) - XX(2242) = XX(2242)-JVS(38211)*XX(5231)-JVS(40572)*XX(5249)-JVS(42370)*XX(5250)-JVS(48226)*XX(5253) - XX(2241) = XX(2241)-JVS(13749)*XX(3103)-JVS(29917)*XX(4937)-JVS(42369)*XX(5250)-JVS(48225)*XX(5253) - XX(2240) = XX(2240)-JVS(15443)*XX(3401)-JVS(31556)*XX(5036)-JVS(42368)*XX(5250)-JVS(48224)*XX(5253) - XX(2239) = XX(2239)-JVS(16012)*XX(3497)-JVS(23404)*XX(4363)-JVS(42367)*XX(5250)-JVS(48223)*XX(5253) - XX(2238) = XX(2238)-JVS(33586)*XX(5139)-JVS(45153)*XX(5251)-JVS(51025)*XX(5255) - XX(2237) = XX(2237)-JVS(36810)*XX(5203)-JVS(42366)*XX(5250)-JVS(48222)*XX(5253)-JVS(51024)*XX(5255) - XX(2236) = XX(2236)-JVS(13624)*XX(3080)-JVS(17534)*XX(3693)-JVS(42365)*XX(5250)-JVS(51023)*XX(5255) - XX(2235) = XX(2235)-JVS(23912)*XX(4411)-JVS(32201)*XX(5071)-JVS(42364)*XX(5250)-JVS(51022)*XX(5255) - XX(2234) = XX(2234)-JVS(33182)*XX(5123)-JVS(45152)*XX(5251)-JVS(51021)*XX(5255) - XX(2233) = XX(2233)-JVS(18236)*XX(3778)-JVS(21004)*XX(4110)-JVS(42363)*XX(5250)-JVS(51020)*XX(5255) - XX(2232) = XX(2232)-JVS(17156)*XX(3645)-JVS(42362)*XX(5250)-JVS(48221)*XX(5253)-JVS(51019)*XX(5255) - XX(2231) = XX(2231)-JVS(28853)*XX(4855)-JVS(32390)*XX(5083)-JVS(39917)*XX(5244)-JVS(42361)*XX(5250) - XX(2230) = XX(2230)-JVS(18902)*XX(3864)-JVS(38210)*XX(5231)-JVS(38803)*XX(5232)-JVS(42360)*XX(5250) - XX(2229) = XX(2229)-JVS(35760)*XX(5193)-JVS(38209)*XX(5231)-JVS(51018)*XX(5255) - XX(2228) = XX(2228)-JVS(22134)*XX(4233)-JVS(24892)*XX(4502)-JVS(42359)*XX(5250)-JVS(51017)*XX(5255) - XX(2227) = XX(2227)-JVS(19484)*XX(3932)-JVS(34577)*XX(5163)-JVS(34623)*XX(5165)-JVS(42358)*XX(5250) - XX(2226) = XX(2226)-JVS(14418)*XX(3233)-JVS(33393)*XX(5130) - XX(2225) = XX(2225)-JVS(14813)*XX(3305)-JVS(20042)*XX(4000)-JVS(42357)*XX(5250) - XX(2224) = XX(2224)-JVS(21082)*XX(4120)-JVS(28655)*XX(4842)-JVS(42356)*XX(5250)-JVS(48220)*XX(5253) - XX(2223) = XX(2223)-JVS(15466)*XX(3404)-JVS(18933)*XX(3868)-JVS(29382)*XX(4901)-JVS(42355)*XX(5250) - XX(2222) = XX(2222)-JVS(23497)*XX(4373)-JVS(42354)*XX(5250)-JVS(48219)*XX(5253) - XX(2221) = XX(2221)-JVS(14191)*XX(3185)-JVS(28773)*XX(4850)-JVS(33852)*XX(5143)-JVS(42353)*XX(5250) - XX(2220) = XX(2220)-JVS(11341)*XX(2647)-JVS(27417)*XX(4737)-JVS(42352)*XX(5250)-JVS(48218)*XX(5253) - XX(2219) = XX(2219)-JVS(29739)*XX(4924)-JVS(35759)*XX(5193)-JVS(42351)*XX(5250)-JVS(51016)*XX(5255) - XX(2218) = XX(2218)-JVS(19925)*XX(3986)-JVS(42350)*XX(5250)-JVS(48217)*XX(5253)-JVS(51015)*XX(5255) - XX(2217) = XX(2217)-JVS(19908)*XX(3984)-JVS(34757)*XX(5171)-JVS(38208)*XX(5231)-JVS(42349)*XX(5250) - XX(2216) = XX(2216)-JVS(13831)*XX(3117)-JVS(18004)*XX(3751)-JVS(42348)*XX(5250)-JVS(48216)*XX(5253) - XX(2215) = XX(2215)-JVS(13542)*XX(3066)-JVS(16826)*XX(3607)-JVS(42347)*XX(5250)-JVS(48215)*XX(5253) - XX(2214) = XX(2214)-JVS(20399)*XX(4042)-JVS(22579)*XX(4278)-JVS(34306)*XX(5160)-JVS(42346)*XX(5250) - XX(2213) = XX(2213)-JVS(23419)*XX(4365)-JVS(27198)*XX(4717)-JVS(42345)*XX(5250)-JVS(48214)*XX(5253) - XX(2212) = XX(2212)-JVS(17201)*XX(3651)-JVS(29021)*XX(4868)-JVS(33911)*XX(5145)-JVS(42344)*XX(5250)-JVS(45151)& - &*XX(5251)-JVS(51014)*XX(5255) - XX(2211) = XX(2211)-JVS(34305)*XX(5160)-JVS(39773)*XX(5243)-JVS(42343)*XX(5250)-JVS(51013)*XX(5255) - XX(2210) = XX(2210)-JVS(16867)*XX(3612)-JVS(45150)*XX(5251)-JVS(51012)*XX(5255) - XX(2209) = XX(2209)-JVS(31902)*XX(5054)-JVS(42342)*XX(5250)-JVS(45149)*XX(5251)-JVS(51011)*XX(5255) - XX(2208) = XX(2208)-JVS(21848)*XX(4206)-JVS(34919)*XX(5178)-JVS(42341)*XX(5250)-JVS(51010)*XX(5255) - XX(2207) = XX(2207)-JVS(17626)*XX(3706)-JVS(34304)*XX(5160) - XX(2206) = XX(2206)-JVS(21579)*XX(4179)-JVS(42340)*XX(5250)-JVS(48213)*XX(5253)-JVS(51009)*XX(5255) - XX(2205) = XX(2205)-JVS(19041)*XX(3880)-JVS(23972)*XX(4417)-JVS(35758)*XX(5193)-JVS(42339)*XX(5250) - XX(2204) = XX(2204)-JVS(9665)*XX(2295)-JVS(26158)*XX(4622)-JVS(35757)*XX(5193)-JVS(42338)*XX(5250) - XX(2203) = XX(2203)-JVS(32952)*XX(5110)-JVS(38207)*XX(5231)-JVS(51008)*XX(5255) - XX(2202) = XX(2202)-JVS(19594)*XX(3946)-JVS(42337)*XX(5250)-JVS(48212)*XX(5253)-JVS(51007)*XX(5255) - XX(2201) = XX(2201)-JVS(34203)*XX(5158)-JVS(35756)*XX(5193)-JVS(45148)*XX(5251) - XX(2200) = XX(2200)-JVS(31976)*XX(5058)-JVS(45147)*XX(5251)-JVS(51006)*XX(5255) - XX(2199) = XX(2199)-JVS(14950)*XX(3333)-JVS(15202)*XX(3369)-JVS(42336)*XX(5250)-JVS(48211)*XX(5253) - XX(2198) = XX(2198)-JVS(25169)*XX(4524)-JVS(42335)*XX(5250)-JVS(48210)*XX(5253)-JVS(51005)*XX(5255) - XX(2197) = XX(2197)-JVS(31119)*XX(5008)-JVS(42334)*XX(5250)-JVS(45146)*XX(5251)-JVS(51004)*XX(5255) - XX(2196) = XX(2196)-JVS(15268)*XX(3377)-JVS(16843)*XX(3609)-JVS(42333)*XX(5250)-JVS(48209)*XX(5253) - XX(2195) = XX(2195)-JVS(15238)*XX(3373)-JVS(21425)*XX(4162)-JVS(42332)*XX(5250)-JVS(48208)*XX(5253) - XX(2194) = XX(2194)-JVS(18244)*XX(3779)-JVS(27406)*XX(4736)-JVS(42331)*XX(5250)-JVS(48207)*XX(5253) - XX(2193) = XX(2193)-JVS(15465)*XX(3404)-JVS(18932)*XX(3868)-JVS(42330)*XX(5250)-JVS(48206)*XX(5253) - XX(2192) = XX(2192)-JVS(12662)*XX(2906)-JVS(19417)*XX(3924)-JVS(32288)*XX(5077)-JVS(42329)*XX(5250) - XX(2191) = XX(2191)-JVS(29490)*XX(4909)-JVS(42328)*XX(5250)-JVS(45145)*XX(5251)-JVS(51003)*XX(5255) - XX(2190) = XX(2190)-JVS(33498)*XX(5136)-JVS(38206)*XX(5231) - XX(2189) = XX(2189)-JVS(22811)*XX(4300)-JVS(42327)*XX(5250)-JVS(48205)*XX(5253)-JVS(51002)*XX(5255) - XX(2188) = XX(2188)-JVS(33764)*XX(5142)-JVS(35755)*XX(5193)-JVS(42326)*XX(5250)-JVS(51001)*XX(5255) - XX(2187) = XX(2187)-JVS(17396)*XX(3676)-JVS(22114)*XX(4231)-JVS(42325)*XX(5250)-JVS(51000)*XX(5255) - XX(2186) = XX(2186)-JVS(15353)*XX(3389)-JVS(19658)*XX(3954)-JVS(50999)*XX(5255) - XX(2185) = XX(2185)-JVS(13250)*XX(3009)-JVS(16060)*XX(3504)-JVS(42324)*XX(5250)-JVS(48204)*XX(5253) - XX(2184) = XX(2184)-JVS(32720)*XX(5099)-JVS(42323)*XX(5250)-JVS(48203)*XX(5253) - XX(2183) = XX(2183)-JVS(27618)*XX(4753)-JVS(37337)*XX(5221)-JVS(42322)*XX(5250)-JVS(48202)*XX(5253) - XX(2182) = XX(2182)-JVS(21003)*XX(4110)-JVS(42321)*XX(5250)-JVS(48201)*XX(5253)-JVS(50998)*XX(5255) - XX(2181) = XX(2181)-JVS(37104)*XX(5213)-JVS(42320)*XX(5250)-JVS(48200)*XX(5253) - XX(2180) = XX(2180)-JVS(19130)*XX(3891)-JVS(42319)*XX(5250)-JVS(48199)*XX(5253)-JVS(54823)*XX(5257) - XX(2179) = XX(2179)-JVS(16541)*XX(3572)-JVS(21526)*XX(4174)-JVS(30511)*XX(4972)-JVS(42318)*XX(5250) - XX(2178) = XX(2178)-JVS(19798)*XX(3971)-JVS(42317)*XX(5250)-JVS(50997)*XX(5255)-JVS(54822)*XX(5257) - XX(2177) = XX(2177)-JVS(23526)*XX(4376)-JVS(24597)*XX(4478)-JVS(42316)*XX(5250) - XX(2176) = XX(2176)-JVS(24530)*XX(4470)-JVS(38025)*XX(5230)-JVS(42315)*XX(5250)-JVS(48198)*XX(5253) - XX(2175) = XX(2175)-JVS(29608)*XX(4916)-JVS(37392)*XX(5222)-JVS(42314)*XX(5250)-JVS(50996)*XX(5255) - XX(2174) = XX(2174)-JVS(13682)*XX(3090)-JVS(17936)*XX(3744)-JVS(29757)*XX(4925)-JVS(42313)*XX(5250) - XX(2173) = XX(2173)-JVS(22416)*XX(4261)-JVS(50995)*XX(5255) - XX(2172) = XX(2172)-JVS(9123)*XX(2173)-JVS(22286)*XX(4248)-JVS(42312)*XX(5250)-JVS(48197)*XX(5253) - XX(2171) = XX(2171)-JVS(23841)*XX(4404)-JVS(35174)*XX(5183)-JVS(42311)*XX(5250)-JVS(45144)*XX(5251) - XX(2170) = XX(2170)-JVS(21625)*XX(4183)-JVS(45143)*XX(5251)-JVS(50994)*XX(5255) - XX(2169) = XX(2169)-JVS(18817)*XX(3854)-JVS(18836)*XX(3856)-JVS(42310)*XX(5250)-JVS(48196)*XX(5253) - XX(2168) = XX(2168)-JVS(18997)*XX(3875)-JVS(19768)*XX(3967)-JVS(42309)*XX(5250)-JVS(48195)*XX(5253) - XX(2167) = XX(2167)-JVS(18157)*XX(3769)-JVS(20258)*XX(4025)-JVS(42308)*XX(5250)-JVS(53226)*XX(5256) - XX(2166) = XX(2166)-JVS(10813)*XX(2547)-JVS(18046)*XX(3756)-JVS(42307)*XX(5250)-JVS(48194)*XX(5253) - XX(2165) = XX(2165)-JVS(14478)*XX(3242)-JVS(40514)*XX(5247)-JVS(42306)*XX(5250)-JVS(48193)*XX(5253) - XX(2164) = XX(2164)-JVS(17871)*XX(3736)-JVS(17879)*XX(3737)-JVS(42305)*XX(5250)-JVS(48192)*XX(5253) - XX(2163) = XX(2163)-JVS(33236)*XX(5125)-JVS(38205)*XX(5231) - XX(2162) = XX(2162)-JVS(35013)*XX(5180)-JVS(35469)*XX(5188)-JVS(50993)*XX(5255) - XX(2161) = XX(2161)-JVS(14001)*XX(3148)-JVS(17987)*XX(3749)-JVS(42304)*XX(5250)-JVS(48191)*XX(5253) - XX(2160) = XX(2160)-JVS(32719)*XX(5099)-JVS(42303)*XX(5250)-JVS(50992)*XX(5255)-JVS(54821)*XX(5257) - XX(2159) = XX(2159)-JVS(21925)*XX(4214)-JVS(29928)*XX(4938)-JVS(42302)*XX(5250)-JVS(50991)*XX(5255) - XX(2158) = XX(2158)-JVS(35608)*XX(5191)-JVS(35754)*XX(5193)-JVS(50990)*XX(5255) - XX(2157) = XX(2157)-JVS(14325)*XX(3213)-JVS(23006)*XX(4319)-JVS(42301)*XX(5250)-JVS(48190)*XX(5253) - XX(2156) = XX(2156)-JVS(15027)*XX(3344)-JVS(16974)*XX(3626)-JVS(20579)*XX(4060)-JVS(42300)*XX(5250) - XX(2155) = XX(2155)-JVS(31078)*XX(5006)-JVS(32630)*XX(5095)-JVS(42299)*XX(5250)-JVS(48189)*XX(5253) - XX(2154) = XX(2154)-JVS(28948)*XX(4863)-JVS(35071)*XX(5182)-JVS(37130)*XX(5214)-JVS(42298)*XX(5250) - XX(2153) = XX(2153)-JVS(19693)*XX(3958)-JVS(24586)*XX(4477)-JVS(42297)*XX(5250)-JVS(50989)*XX(5255) - XX(2152) = XX(2152)-JVS(16265)*XX(3535)-JVS(24222)*XX(4440)-JVS(42296)*XX(5250)-JVS(48188)*XX(5253) - XX(2151) = XX(2151)-JVS(22694)*XX(4290)-JVS(25566)*XX(4560)-JVS(34303)*XX(5160)-JVS(42295)*XX(5250) - XX(2150) = XX(2150)-JVS(34076)*XX(5152)-JVS(38204)*XX(5231)-JVS(42294)*XX(5250)-JVS(48187)*XX(5253) - XX(2149) = XX(2149)-JVS(11644)*XX(2710)-JVS(18722)*XX(3843)-JVS(42293)*XX(5250)-JVS(48186)*XX(5253) - XX(2148) = XX(2148)-JVS(30902)*XX(4997)-JVS(33235)*XX(5125)-JVS(38024)*XX(5230)-JVS(42292)*XX(5250)-JVS(45142)& - &*XX(5251)-JVS(50988)*XX(5255) - XX(2147) = XX(2147)-JVS(11683)*XX(2717)-JVS(16999)*XX(3628)-JVS(31234)*XX(5015)-JVS(42291)*XX(5250) - XX(2146) = XX(2146)-JVS(22820)*XX(4301)-JVS(37201)*XX(5215)-JVS(42290)*XX(5250)-JVS(50987)*XX(5255) - XX(2145) = XX(2145)-JVS(25350)*XX(4540)-JVS(45141)*XX(5251)-JVS(50986)*XX(5255) - XX(2144) = XX(2144)-JVS(22406)*XX(4260)-JVS(32200)*XX(5071)-JVS(42289)*XX(5250)-JVS(50985)*XX(5255) - XX(2143) = XX(2143)-JVS(22379)*XX(4257)-JVS(22693)*XX(4290)-JVS(42288)*XX(5250) - XX(2142) = XX(2142)-JVS(21993)*XX(4220)-JVS(29392)*XX(4902)-JVS(42287)*XX(5250)-JVS(48185)*XX(5253) - XX(2141) = XX(2141)-JVS(31701)*XX(5044)-JVS(42286)*XX(5250)-JVS(45140)*XX(5251)-JVS(50984)*XX(5255) - XX(2140) = XX(2140)-JVS(36188)*XX(5198)-JVS(42285)*XX(5250)-JVS(50983)*XX(5255) - XX(2139) = XX(2139)-JVS(28322)*XX(4812)-JVS(31035)*XX(5004)-JVS(38203)*XX(5231)-JVS(42284)*XX(5250) - XX(2138) = XX(2138)-JVS(35468)*XX(5188)-JVS(42283)*XX(5250)-JVS(45139)*XX(5251)-JVS(50982)*XX(5255) - XX(2137) = XX(2137)-JVS(14270)*XX(3200)-JVS(33741)*XX(5141)-JVS(35173)*XX(5183)-JVS(42282)*XX(5250) - XX(2136) = XX(2136)-JVS(16876)*XX(3613)-JVS(40455)*XX(5245)-JVS(42281)*XX(5250)-JVS(48184)*XX(5253) - XX(2135) = XX(2135)-JVS(14621)*XX(3268)-JVS(30362)*XX(4961)-JVS(31686)*XX(5043)-JVS(42280)*XX(5250) - XX(2134) = XX(2134)-JVS(20497)*XX(4051)-JVS(42279)*XX(5250)-JVS(45138)*XX(5251)-JVS(50981)*XX(5255) - XX(2133) = XX(2133)-JVS(12371)*XX(2849)-JVS(22029)*XX(4223)-JVS(26010)*XX(4608)-JVS(42278)*XX(5250) - XX(2132) = XX(2132)-JVS(27512)*XX(4745)-JVS(42277)*XX(5250)-JVS(45137)*XX(5251)-JVS(50980)*XX(5255) - XX(2131) = XX(2131)-JVS(25533)*XX(4557)-JVS(37391)*XX(5222)-JVS(42276)*XX(5250)-JVS(50979)*XX(5255) - XX(2130) = XX(2130)-JVS(18418)*XX(3801)-JVS(28542)*XX(4832)-JVS(36864)*XX(5205)-JVS(50978)*XX(5255) - XX(2129) = XX(2129)-JVS(10812)*XX(2547)-JVS(34592)*XX(5164)-JVS(35753)*XX(5193)-JVS(42275)*XX(5250)-JVS(48183)& - &*XX(5253)-JVS(50977)*XX(5255) - XX(2128) = XX(2128)-JVS(15332)*XX(3386)-JVS(30520)*XX(4973)-JVS(42274)*XX(5250)-JVS(48182)*XX(5253) - XX(2127) = XX(2127)-JVS(18064)*XX(3758)-JVS(25349)*XX(4540)-JVS(42273)*XX(5250)-JVS(50976)*XX(5255) - XX(2126) = XX(2126)-JVS(33910)*XX(5145)-JVS(34302)*XX(5160)-JVS(42272)*XX(5250)-JVS(50975)*XX(5255) - XX(2125) = XX(2125)-JVS(15066)*XX(3349)-JVS(19425)*XX(3925)-JVS(25797)*XX(4587)-JVS(42271)*XX(5250) - XX(2124) = XX(2124)-JVS(11306)*XX(2642)-JVS(16184)*XX(3522)-JVS(42270)*XX(5250)-JVS(48181)*XX(5253) - XX(2123) = XX(2123)-JVS(10719)*XX(2528)-JVS(16902)*XX(3616)-JVS(42269)*XX(5250)-JVS(48180)*XX(5253) - XX(2122) = XX(2122)-JVS(21100)*XX(4122)-JVS(50974)*XX(5255) - XX(2121) = XX(2121)-JVS(14184)*XX(3184)-JVS(27695)*XX(4760)-JVS(33851)*XX(5143)-JVS(42268)*XX(5250) - XX(2120) = XX(2120)-JVS(22072)*XX(4227)-JVS(24052)*XX(4424)-JVS(42267)*XX(5250)-JVS(50973)*XX(5255) - XX(2119) = XX(2119)-JVS(27430)*XX(4738)-JVS(39572)*XX(5240)-JVS(39916)*XX(5244)-JVS(42266)*XX(5250) - XX(2118) = XX(2118)-JVS(21416)*XX(4161)-JVS(27034)*XX(4698)-JVS(27922)*XX(4780)-JVS(33359)*XX(5129)-JVS(39915)& - &*XX(5244)-JVS(42265)*XX(5250) - XX(2117) = XX(2117)-JVS(32123)*XX(5066)-JVS(45136)*XX(5251)-JVS(50972)*XX(5255) - XX(2116) = XX(2116)-JVS(22103)*XX(4230)-JVS(35364)*XX(5184)-JVS(42264)*XX(5250)-JVS(50971)*XX(5255) - XX(2115) = XX(2115)-JVS(25457)*XX(4549)-JVS(38202)*XX(5231)-JVS(39772)*XX(5243)-JVS(42263)*XX(5250) - XX(2114) = XX(2114)-JVS(15099)*XX(3354)-JVS(19234)*XX(3904)-JVS(27214)*XX(4719)-JVS(42262)*XX(5250) - XX(2113) = XX(2113)-JVS(13794)*XX(3110)-JVS(17520)*XX(3691)-JVS(42261)*XX(5250)-JVS(48179)*XX(5253) - XX(2112) = XX(2112)-JVS(35012)*XX(5180)-JVS(38959)*XX(5233)-JVS(50970)*XX(5255) - XX(2111) = XX(2111)-JVS(17770)*XX(3724)-JVS(24839)*XX(4497)-JVS(34301)*XX(5160)-JVS(42260)*XX(5250) - XX(2110) = XX(2110)-JVS(25500)*XX(4553)-JVS(30939)*XX(5000)-JVS(42259)*XX(5250)-JVS(50969)*XX(5255) - XX(2109) = XX(2109)-JVS(11409)*XX(2662)-JVS(25602)*XX(4564)-JVS(42258)*XX(5250)-JVS(45135)*XX(5251) - XX(2108) = XX(2108)-JVS(21624)*XX(4183)-JVS(23714)*XX(4394)-JVS(42257)*XX(5250)-JVS(48178)*XX(5253) - XX(2107) = XX(2107)-JVS(29798)*XX(4929)-JVS(38201)*XX(5231)-JVS(39914)*XX(5244)-JVS(42256)*XX(5250) - XX(2106) = XX(2106)-JVS(33850)*XX(5143)-JVS(42255)*XX(5250)-JVS(48177)*XX(5253)-JVS(50968)*XX(5255) - XX(2105) = XX(2105)-JVS(21868)*XX(4208)-JVS(37390)*XX(5222)-JVS(42254)*XX(5250)-JVS(48176)*XX(5253) - XX(2104) = XX(2104)-JVS(30901)*XX(4997)-JVS(33234)*XX(5125)-JVS(38023)*XX(5230)-JVS(42253)*XX(5250)-JVS(45134)& - &*XX(5251)-JVS(50967)*XX(5255) - XX(2103) = XX(2103)-JVS(19391)*XX(3921)-JVS(37103)*XX(5213)-JVS(42252)*XX(5250)-JVS(50966)*XX(5255) - XX(2102) = XX(2102)-JVS(15783)*XX(3456)-JVS(20084)*XX(4005)-JVS(42251)*XX(5250) - XX(2101) = XX(2101)-JVS(17049)*XX(3635)-JVS(22368)*XX(4256)-JVS(42250)*XX(5250)-JVS(50965)*XX(5255) - XX(2100) = XX(2100)-JVS(31850)*XX(5050)-JVS(50964)*XX(5255) - XX(2099) = XX(2099)-JVS(8806)*XX(2100)-JVS(31849)*XX(5050)-JVS(42249)*XX(5250)-JVS(48175)*XX(5253) - XX(2098) = XX(2098)-JVS(19384)*XX(3920)-JVS(40549)*XX(5248)-JVS(42248)*XX(5250)-JVS(50963)*XX(5255) - XX(2097) = XX(2097)-JVS(12661)*XX(2906)-JVS(19416)*XX(3924)-JVS(42247)*XX(5250)-JVS(48174)*XX(5253) - XX(2096) = XX(2096)-JVS(39214)*XX(5234)-JVS(42246)*XX(5250)-JVS(48173)*XX(5253) - XX(2095) = XX(2095)-JVS(18963)*XX(3871)-JVS(29104)*XX(4874)-JVS(38200)*XX(5231)-JVS(42245)*XX(5250) - XX(2094) = XX(2094)-JVS(14102)*XX(3168)-JVS(27264)*XX(4722)-JVS(42244)*XX(5250)-JVS(48172)*XX(5253) - XX(2093) = XX(2093)-JVS(17812)*XX(3729)-JVS(23089)*XX(4327)-JVS(42243)*XX(5250)-JVS(48171)*XX(5253) - XX(2092) = XX(2092)-JVS(11170)*XX(2614)-JVS(31394)*XX(5026)-JVS(42242)*XX(5250)-JVS(48170)*XX(5253) - XX(2091) = XX(2091)-JVS(16726)*XX(3595)-JVS(20257)*XX(4025)-JVS(42241)*XX(5250)-JVS(48169)*XX(5253) - XX(2090) = XX(2090)-JVS(34918)*XX(5178)-JVS(38199)*XX(5231)-JVS(50962)*XX(5255) - XX(2089) = XX(2089)-JVS(17345)*XX(3669)-JVS(26461)*XX(4651)-JVS(42240)*XX(5250)-JVS(50961)*XX(5255) - XX(2088) = XX(2088)-JVS(14935)*XX(3331)-JVS(50960)*XX(5255) - XX(2087) = XX(2087)-JVS(8752)*XX(2088)-JVS(14934)*XX(3331)-JVS(42239)*XX(5250)-JVS(48168)*XX(5253) - XX(2086) = XX(2086)-JVS(16067)*XX(3505)-JVS(17720)*XX(3718)-JVS(42238)*XX(5250)-JVS(48167)*XX(5253) - XX(2085) = XX(2085)-JVS(22732)*XX(4294)-JVS(38958)*XX(5233)-JVS(50959)*XX(5255) - XX(2084) = XX(2084)-JVS(22896)*XX(4309)-JVS(28195)*XX(4801)-JVS(39913)*XX(5244)-JVS(42237)*XX(5250) - XX(2083) = XX(2083)-JVS(21483)*XX(4169)-JVS(33849)*XX(5143)-JVS(42236)*XX(5250)-JVS(48166)*XX(5253) - XX(2082) = XX(2082)-JVS(21534)*XX(4175)-JVS(23108)*XX(4329)-JVS(39912)*XX(5244)-JVS(42235)*XX(5250) - XX(2081) = XX(2081)-JVS(30925)*XX(4999)-JVS(38957)*XX(5233)-JVS(42234)*XX(5250)-JVS(50958)*XX(5255) - XX(2080) = XX(2080)-JVS(27279)*XX(4724)-JVS(34075)*XX(5152)-JVS(35752)*XX(5193)-JVS(42233)*XX(5250) - XX(2079) = XX(2079)-JVS(12681)*XX(2909)-JVS(19123)*XX(3890)-JVS(42232)*XX(5250)-JVS(48165)*XX(5253) - XX(2078) = XX(2078)-JVS(15020)*XX(3343)-JVS(42231)*XX(5250)-JVS(48164)*XX(5253)-JVS(50957)*XX(5255) - XX(2077) = XX(2077)-JVS(15307)*XX(3383)-JVS(39692)*XX(5242)-JVS(42230)*XX(5250)-JVS(48163)*XX(5253) - XX(2076) = XX(2076)-JVS(16935)*XX(3619)-JVS(37846)*XX(5228) - XX(2075) = XX(2075)-JVS(8699)*XX(2076)-JVS(14041)*XX(3156)-JVS(42229)*XX(5250)-JVS(48162)*XX(5253) - XX(2074) = XX(2074)-JVS(11841)*XX(2745)-JVS(16784)*XX(3602)-JVS(42228)*XX(5250)-JVS(48161)*XX(5253) - XX(2073) = XX(2073)-JVS(35572)*XX(5189)-JVS(50956)*XX(5255) - XX(2072) = XX(2072)-JVS(8683)*XX(2073)-JVS(35571)*XX(5189)-JVS(42227)*XX(5250)-JVS(48160)*XX(5253) - XX(2071) = XX(2071)-JVS(9561)*XX(2273)-JVS(32629)*XX(5095)-JVS(39911)*XX(5244)-JVS(42226)*XX(5250) - XX(2070) = XX(2070)-JVS(10773)*XX(2539)-JVS(39691)*XX(5242)-JVS(40476)*XX(5246)-JVS(42225)*XX(5250) - XX(2069) = XX(2069)-JVS(15668)*XX(3432)-JVS(19097)*XX(3887)-JVS(27050)*XX(4700)-JVS(42224)*XX(5250) - XX(2068) = XX(2068)-JVS(17358)*XX(3671)-JVS(34300)*XX(5160)-JVS(42223)*XX(5250)-JVS(48159)*XX(5253) - XX(2067) = XX(2067)-JVS(22028)*XX(4223)-JVS(42222)*XX(5250)-JVS(48158)*XX(5253) - XX(2066) = XX(2066)-JVS(35607)*XX(5191)-JVS(35751)*XX(5193)-JVS(50955)*XX(5255) - XX(2065) = XX(2065)-JVS(19546)*XX(3940)-JVS(34702)*XX(5169)-JVS(42221)*XX(5250)-JVS(48157)*XX(5253) - XX(2064) = XX(2064)-JVS(21359)*XX(4154)-JVS(21777)*XX(4199)-JVS(39910)*XX(5244)-JVS(42220)*XX(5250) - XX(2063) = XX(2063)-JVS(14640)*XX(3270)-JVS(22964)*XX(4315)-JVS(42219)*XX(5250)-JVS(48156)*XX(5253) - XX(2062) = XX(2062)-JVS(25324)*XX(4538)-JVS(34972)*XX(5179)-JVS(35467)*XX(5188)-JVS(42218)*XX(5250) - XX(2061) = XX(2061)-JVS(25634)*XX(4567)-JVS(37084)*XX(5212)-JVS(42217)*XX(5250)-JVS(48155)*XX(5253) - XX(2060) = XX(2060)-JVS(21578)*XX(4179)-JVS(50954)*XX(5255) - XX(2059) = XX(2059)-JVS(14177)*XX(3183)-JVS(30110)*XX(4944)-JVS(33848)*XX(5143)-JVS(42216)*XX(5250) - XX(2058) = XX(2058)-JVS(31443)*XX(5029)-JVS(37102)*XX(5213)-JVS(42215)*XX(5250)-JVS(50953)*XX(5255) - XX(2057) = XX(2057)-JVS(11590)*XX(2699)-JVS(19856)*XX(3978)-JVS(35708)*XX(5192)-JVS(42214)*XX(5250) - XX(2056) = XX(2056)-JVS(17994)*XX(3750)-JVS(34299)*XX(5160) - XX(2055) = XX(2055)-JVS(22218)*XX(4241)-JVS(24744)*XX(4490)-JVS(39909)*XX(5244)-JVS(42213)*XX(5250) - XX(2054) = XX(2054)-JVS(17467)*XX(3685)-JVS(17580)*XX(3699)-JVS(42212)*XX(5250)-JVS(53225)*XX(5256) - XX(2053) = XX(2053)-JVS(17894)*XX(3739)-JVS(19318)*XX(3914)-JVS(42211)*XX(5250)-JVS(48154)*XX(5253) - XX(2052) = XX(2052)-JVS(14017)*XX(3151)-JVS(33233)*XX(5125)-JVS(33847)*XX(5143)-JVS(42210)*XX(5250) - XX(2051) = XX(2051)-JVS(27453)*XX(4740)-JVS(30148)*XX(4947)-JVS(42209)*XX(5250) - XX(2050) = XX(2050)-JVS(28186)*XX(4800)-JVS(50952)*XX(5255) - XX(2049) = XX(2049)-JVS(8575)*XX(2050)-JVS(18580)*XX(3822)-JVS(42208)*XX(5250)-JVS(48153)*XX(5253) - XX(2048) = XX(2048)-JVS(18172)*XX(3771)-JVS(23041)*XX(4323)-JVS(42207)*XX(5250)-JVS(53224)*XX(5256) - XX(2047) = XX(2047)-JVS(13931)*XX(3132)-JVS(25837)*XX(4591)-JVS(38198)*XX(5231)-JVS(42206)*XX(5250) - XX(2046) = XX(2046)-JVS(17466)*XX(3685)-JVS(18279)*XX(3783)-JVS(42205)*XX(5250)-JVS(48152)*XX(5253) - XX(2045) = XX(2045)-JVS(12568)*XX(2889)-JVS(15316)*XX(3384)-JVS(42204)*XX(5250)-JVS(48151)*XX(5253) - XX(2044) = XX(2044)-JVS(37845)*XX(5228)-JVS(38197)*XX(5231)-JVS(42203)*XX(5250)-JVS(50951)*XX(5255) - XX(2043) = XX(2043)-JVS(15072)*XX(3350)-JVS(38802)*XX(5232)-JVS(42202)*XX(5250)-JVS(50950)*XX(5255) - XX(2042) = XX(2042)-JVS(17200)*XX(3651)-JVS(30280)*XX(4956)-JVS(37980)*XX(5229)-JVS(42201)*XX(5250)-JVS(45133)& - &*XX(5251)-JVS(50949)*XX(5255) - XX(2041) = XX(2041)-JVS(32172)*XX(5069)-JVS(50948)*XX(5255) - XX(2040) = XX(2040)-JVS(8536)*XX(2041)-JVS(32171)*XX(5069)-JVS(42200)*XX(5250)-JVS(48150)*XX(5253) - XX(2039) = XX(2039)-JVS(23107)*XX(4329)-JVS(36202)*XX(5199)-JVS(39908)*XX(5244)-JVS(42199)*XX(5250) - XX(2038) = XX(2038)-JVS(37675)*XX(5223)-JVS(42198)*XX(5250)-JVS(45132)*XX(5251)-JVS(50947)*XX(5255) - XX(2037) = XX(2037)-JVS(30938)*XX(5000)-JVS(42197)*XX(5250)-JVS(48149)*XX(5253) - XX(2036) = XX(2036)-JVS(24153)*XX(4433)-JVS(36809)*XX(5203)-JVS(42196)*XX(5250)-JVS(48148)*XX(5253) - XX(2035) = XX(2035)-JVS(24786)*XX(4493)-JVS(50946)*XX(5255) - XX(2034) = XX(2034)-JVS(8507)*XX(2035)-JVS(24785)*XX(4493)-JVS(42195)*XX(5250)-JVS(48147)*XX(5253) - XX(2033) = XX(2033)-JVS(32228)*XX(5072)-JVS(50945)*XX(5255) - XX(2032) = XX(2032)-JVS(8494)*XX(2033)-JVS(32227)*XX(5072)-JVS(42194)*XX(5250)-JVS(48146)*XX(5253) - XX(2031) = XX(2031)-JVS(21442)*XX(4164)-JVS(50944)*XX(5255) - XX(2030) = XX(2030)-JVS(22810)*XX(4300)-JVS(50943)*XX(5255) - XX(2029) = XX(2029)-JVS(34298)*XX(5160)-JVS(37389)*XX(5222)-JVS(50942)*XX(5255) - XX(2028) = XX(2028)-JVS(22639)*XX(4284)-JVS(33525)*XX(5137)-JVS(35172)*XX(5183)-JVS(38196)*XX(5231)-JVS(42193)& - &*XX(5250)-JVS(48145)*XX(5253) - XX(2027) = XX(2027)-JVS(19051)*XX(3881)-JVS(24121)*XX(4430)-JVS(35750)*XX(5193)-JVS(42192)*XX(5250) - XX(2026) = XX(2026)-JVS(25930)*XX(4602)-JVS(26133)*XX(4620)-JVS(32883)*XX(5106)-JVS(42191)*XX(5250) - XX(2025) = XX(2025)-JVS(14630)*XX(3269)-JVS(26869)*XX(4689)-JVS(29644)*XX(4918)-JVS(42190)*XX(5250) - XX(2024) = XX(2024)-JVS(29927)*XX(4938)-JVS(39907)*XX(5244)-JVS(45131)*XX(5251) - XX(2023) = XX(2023)-JVS(31442)*XX(5029)-JVS(42189)*XX(5250)-JVS(48144)*XX(5253) - XX(2022) = XX(2022)-JVS(8983)*XX(2141)-JVS(31700)*XX(5044)-JVS(38195)*XX(5231)-JVS(42188)*XX(5250) - XX(2021) = XX(2021)-JVS(30736)*XX(4986)-JVS(33585)*XX(5139)-JVS(42187)*XX(5250)-JVS(50941)*XX(5255) - XX(2020) = XX(2020)-JVS(12755)*XX(2922)-JVS(17501)*XX(3689)-JVS(42186)*XX(5250)-JVS(48143)*XX(5253) - XX(2019) = XX(2019)-JVS(11960)*XX(2767)-JVS(19012)*XX(3877)-JVS(29221)*XX(4886)-JVS(42185)*XX(5250) - XX(2018) = XX(2018)-JVS(14977)*XX(3337)-JVS(34971)*XX(5179)-JVS(38194)*XX(5231)-JVS(42184)*XX(5250) - XX(2017) = XX(2017)-JVS(26390)*XX(4644)-JVS(32428)*XX(5085)-JVS(39906)*XX(5244)-JVS(42183)*XX(5250) - XX(2016) = XX(2016)-JVS(19555)*XX(3941)-JVS(23994)*XX(4419)-JVS(38193)*XX(5231)-JVS(42182)*XX(5250) - XX(2015) = XX(2015)-JVS(17134)*XX(3643)-JVS(50940)*XX(5255) - XX(2014) = XX(2014)-JVS(8405)*XX(2015)-JVS(17133)*XX(3643)-JVS(42181)*XX(5250)-JVS(48142)*XX(5253) - XX(2013) = XX(2013)-JVS(13047)*XX(2973)-JVS(30059)*XX(4941)-JVS(33763)*XX(5142)-JVS(42180)*XX(5250)-JVS(45130)& - &*XX(5251)-JVS(50939)*XX(5255) - XX(2012) = XX(2012)-JVS(35606)*XX(5191)-JVS(38192)*XX(5231)-JVS(50938)*XX(5255) - XX(2011) = XX(2011)-JVS(29089)*XX(4873)-JVS(42179)*XX(5250)-JVS(48141)*XX(5253) - XX(2010) = XX(2010)-JVS(12476)*XX(2869)-JVS(22975)*XX(4316)-JVS(23411)*XX(4364)-JVS(42178)*XX(5250) - XX(2009) = XX(2009)-JVS(15545)*XX(3415)-JVS(23331)*XX(4354)-JVS(30886)*XX(4996)-JVS(42177)*XX(5250) - XX(2008) = XX(2008)-JVS(16137)*XX(3516)-JVS(38191)*XX(5231)-JVS(50937)*XX(5255) - XX(2007) = XX(2007)-JVS(32427)*XX(5085)-JVS(38190)*XX(5231)-JVS(42176)*XX(5250)-JVS(48140)*XX(5253) - XX(2006) = XX(2006)-JVS(11856)*XX(2747)-JVS(17703)*XX(3716)-JVS(25586)*XX(4562)-JVS(42175)*XX(5250) - XX(2005) = XX(2005)-JVS(32199)*XX(5071)-JVS(38189)*XX(5231)-JVS(50936)*XX(5255) - XX(2004) = XX(2004)-JVS(35466)*XX(5188)-JVS(45129)*XX(5251)-JVS(50935)*XX(5255) - XX(2003) = XX(2003)-JVS(25115)*XX(4519)-JVS(37336)*XX(5221)-JVS(45128)*XX(5251)-JVS(48139)*XX(5253) - XX(2002) = XX(2002)-JVS(17911)*XX(3741)-JVS(29584)*XX(4914)-JVS(36187)*XX(5198)-JVS(42174)*XX(5250) - XX(2001) = XX(2001)-JVS(14712)*XX(3284)-JVS(16363)*XX(3547)-JVS(42173)*XX(5250)-JVS(50934)*XX(5255) - XX(2000) = XX(2000)-JVS(34202)*XX(5158)-JVS(38188)*XX(5231) - XX(1999) = XX(1999)-JVS(20522)*XX(4053)-JVS(28241)*XX(4804)-JVS(42172)*XX(5250)-JVS(48138)*XX(5253) - XX(1998) = XX(1998)-JVS(29190)*XX(4883)-JVS(50933)*XX(5255) - XX(1997) = XX(1997)-JVS(23851)*XX(4405)-JVS(35749)*XX(5193)-JVS(42171)*XX(5250)-JVS(48137)*XX(5253) - XX(1996) = XX(1996)-JVS(31077)*XX(5006)-JVS(32426)*XX(5085)-JVS(42170)*XX(5250)-JVS(48136)*XX(5253) - XX(1995) = XX(1995)-JVS(28756)*XX(4849)-JVS(42169)*XX(5250)-JVS(48135)*XX(5253) - XX(1994) = XX(1994)-JVS(12582)*XX(2891)-JVS(31953)*XX(5057)-JVS(33987)*XX(5148)-JVS(42168)*XX(5250) - XX(1993) = XX(1993)-JVS(13390)*XX(3037)-JVS(16910)*XX(3617)-JVS(38187)*XX(5231)-JVS(42167)*XX(5250) - XX(1992) = XX(1992)-JVS(17329)*XX(3667)-JVS(19924)*XX(3986)-JVS(42166)*XX(5250)-JVS(50932)*XX(5255) - XX(1991) = XX(1991)-JVS(27441)*XX(4739)-JVS(37751)*XX(5225)-JVS(42165)*XX(5250)-JVS(45127)*XX(5251)-JVS(48134)& - &*XX(5253)-JVS(50931)*XX(5255) - XX(1990) = XX(1990)-JVS(19784)*XX(3969)-JVS(34862)*XX(5176)-JVS(42164)*XX(5250)-JVS(48133)*XX(5253) - XX(1989) = XX(1989)-JVS(18987)*XX(3874)-JVS(34297)*XX(5160) - XX(1988) = XX(1988)-JVS(15756)*XX(3450)-JVS(33181)*XX(5123)-JVS(39905)*XX(5244)-JVS(42163)*XX(5250)-JVS(45126)& - &*XX(5251)-JVS(50930)*XX(5255) - XX(1987) = XX(1987)-JVS(18953)*XX(3870)-JVS(34552)*XX(5162)-JVS(42162)*XX(5250)-JVS(48132)*XX(5253) - XX(1986) = XX(1986)-JVS(32833)*XX(5104)-JVS(35070)*XX(5182) - XX(1985) = XX(1985)-JVS(18682)*XX(3838)-JVS(18749)*XX(3846)-JVS(34296)*XX(5160)-JVS(42161)*XX(5250) - XX(1984) = XX(1984)-JVS(23212)*XX(4340)-JVS(34295)*XX(5160) - XX(1983) = XX(1983)-JVS(13755)*XX(3104)-JVS(28636)*XX(4841)-JVS(42160)*XX(5250) - XX(1982) = XX(1982)-JVS(20920)*XX(4102)-JVS(25929)*XX(4602)-JVS(35171)*XX(5183)-JVS(42159)*XX(5250) - XX(1981) = XX(1981)-JVS(25104)*XX(4518)-JVS(30311)*XX(4958)-JVS(42158)*XX(5250)-JVS(45125)*XX(5251)-JVS(48131)& - &*XX(5253)-JVS(50929)*XX(5255) - XX(1980) = XX(1980)-JVS(18846)*XX(3857)-JVS(29547)*XX(4911)-JVS(42157)*XX(5250)-JVS(48130)*XX(5253) - XX(1979) = XX(1979)-JVS(17419)*XX(3679)-JVS(17920)*XX(3742)-JVS(42156)*XX(5250)-JVS(48129)*XX(5253) - XX(1978) = XX(1978)-JVS(11333)*XX(2646)-JVS(23669)*XX(4391)-JVS(42155)*XX(5250)-JVS(48128)*XX(5253) - XX(1977) = XX(1977)-JVS(17702)*XX(3716)-JVS(42154)*XX(5250)-JVS(48127)*XX(5253) - XX(1976) = XX(1976)-JVS(16275)*XX(3536)-JVS(42153)*XX(5250)-JVS(48126)*XX(5253) - XX(1975) = XX(1975)-JVS(20814)*XX(4089)-JVS(34294)*XX(5160) - XX(1974) = XX(1974)-JVS(35605)*XX(5191)-JVS(42152)*XX(5250)-JVS(48125)*XX(5253)-JVS(50928)*XX(5255) - XX(1973) = XX(1973)-JVS(28755)*XX(4849)-JVS(34861)*XX(5176)-JVS(42151)*XX(5250)-JVS(50927)*XX(5255) - XX(1972) = XX(1972)-JVS(11999)*XX(2773)-JVS(21947)*XX(4216)-JVS(42150)*XX(5250)-JVS(48124)*XX(5253) - XX(1971) = XX(1971)-JVS(31837)*XX(5049)-JVS(50926)*XX(5255) - XX(1970) = XX(1970)-JVS(27440)*XX(4739)-JVS(37750)*XX(5225)-JVS(42149)*XX(5250)-JVS(48123)*XX(5253) - XX(1969) = XX(1969)-JVS(35011)*XX(5180)-JVS(42148)*XX(5250)-JVS(45124)*XX(5251)-JVS(50925)*XX(5255) - XX(1968) = XX(1968)-JVS(22920)*XX(4311)-JVS(33180)*XX(5123)-JVS(35170)*XX(5183)-JVS(42147)*XX(5250) - XX(1967) = XX(1967)-JVS(35465)*XX(5188)-JVS(38956)*XX(5233)-JVS(42146)*XX(5250) - XX(1966) = XX(1966)-JVS(18996)*XX(3875)-JVS(19767)*XX(3967)-JVS(27381)*XX(4733)-JVS(42145)*XX(5250) - XX(1965) = XX(1965)-JVS(11589)*XX(2699)-JVS(19855)*XX(3978)-JVS(42144)*XX(5250)-JVS(48122)*XX(5253) - XX(1964) = XX(1964)-JVS(13676)*XX(3089)-JVS(18497)*XX(3812)-JVS(42143)*XX(5250)-JVS(48121)*XX(5253) - XX(1963) = XX(1963)-JVS(12257)*XX(2826)-JVS(16288)*XX(3537)-JVS(42142)*XX(5250)-JVS(48120)*XX(5253) - XX(1962) = XX(1962)-JVS(33762)*XX(5142)-JVS(34917)*XX(5178) - XX(1961) = XX(1961)-JVS(23607)*XX(4385)-JVS(35363)*XX(5184) - XX(1960) = XX(1960)-JVS(33584)*XX(5139)-JVS(38955)*XX(5233)-JVS(50924)*XX(5255) - XX(1959) = XX(1959)-JVS(28396)*XX(4819)-JVS(33210)*XX(5124)-JVS(38186)*XX(5231)-JVS(42141)*XX(5250)-JVS(45123)& - &*XX(5251)-JVS(50923)*XX(5255) - XX(1958) = XX(1958)-JVS(15169)*XX(3365)-JVS(28840)*XX(4854)-JVS(38185)*XX(5231)-JVS(42140)*XX(5250) - XX(1957) = XX(1957)-JVS(31193)*XX(5012)-JVS(42139)*XX(5250)-JVS(48119)*XX(5253) - XX(1956) = XX(1956)-JVS(16800)*XX(3604)-JVS(26846)*XX(4687)-JVS(37844)*XX(5228)-JVS(42138)*XX(5250) - XX(1955) = XX(1955)-JVS(37388)*XX(5222)-JVS(39213)*XX(5234)-JVS(50922)*XX(5255) - XX(1954) = XX(1954)-JVS(28484)*XX(4827)-JVS(34180)*XX(5157)-JVS(42137)*XX(5250)-JVS(48118)*XX(5253) - XX(1953) = XX(1953)-JVS(27479)*XX(4742)-JVS(39904)*XX(5244)-JVS(42136)*XX(5250) - XX(1952) = XX(1952)-JVS(11676)*XX(2716)-JVS(15474)*XX(3405)-JVS(42135)*XX(5250)-JVS(48117)*XX(5253) - XX(1951) = XX(1951)-JVS(32157)*XX(5068)-JVS(45122)*XX(5251)-JVS(50921)*XX(5255) - XX(1950) = XX(1950)-JVS(8887)*XX(2119)-JVS(39571)*XX(5240)-JVS(39903)*XX(5244)-JVS(42134)*XX(5250) - XX(1949) = XX(1949)-JVS(14547)*XX(3252)-JVS(26859)*XX(4688)-JVS(29830)*XX(4931)-JVS(42133)*XX(5250) - XX(1948) = XX(1948)-JVS(15595)*XX(3422)-JVS(16274)*XX(3536)-JVS(24560)*XX(4473)-JVS(42132)*XX(5250) - XX(1947) = XX(1947)-JVS(22638)*XX(4284)-JVS(34074)*XX(5152)-JVS(38184)*XX(5231)-JVS(42131)*XX(5250) - XX(1946) = XX(1946)-JVS(15643)*XX(3429)-JVS(34916)*XX(5178)-JVS(42130)*XX(5250)-JVS(48116)*XX(5253) - XX(1945) = XX(1945)-JVS(18228)*XX(3777)-JVS(50920)*XX(5255) - XX(1944) = XX(1944)-JVS(34293)*XX(5160)-JVS(38183)*XX(5231)-JVS(50919)*XX(5255) - XX(1943) = XX(1943)-JVS(16534)*XX(3571)-JVS(21433)*XX(4163)-JVS(42129)*XX(5250)-JVS(48115)*XX(5253) - XX(1942) = XX(1942)-JVS(34889)*XX(5177)-JVS(50918)*XX(5255) - XX(1941) = XX(1941)-JVS(8052)*XX(1942)-JVS(34888)*XX(5177)-JVS(42128)*XX(5250)-JVS(48114)*XX(5253) - XX(1940) = XX(1940)-JVS(15261)*XX(3376)-JVS(18713)*XX(3842)-JVS(27065)*XX(4702)-JVS(42127)*XX(5250) - XX(1939) = XX(1939)-JVS(26534)*XX(4658)-JVS(30310)*XX(4958)-JVS(45121)*XX(5251)-JVS(48113)*XX(5253) - XX(1938) = XX(1938)-JVS(8336)*XX(2000)-JVS(17453)*XX(3683)-JVS(29211)*XX(4885)-JVS(42126)*XX(5250) - XX(1937) = XX(1937)-JVS(19300)*XX(3912)-JVS(33497)*XX(5136)-JVS(35748)*XX(5193)-JVS(42125)*XX(5250) - XX(1936) = XX(1936)-JVS(17565)*XX(3697)-JVS(23088)*XX(4327)-JVS(42124)*XX(5250)-JVS(53223)*XX(5256) - XX(1935) = XX(1935)-JVS(21393)*XX(4158)-JVS(30885)*XX(4996)-JVS(42123)*XX(5250)-JVS(50917)*XX(5255) - XX(1934) = XX(1934)-JVS(15057)*XX(3348)-JVS(20944)*XX(4104)-JVS(31304)*XX(5020)-JVS(38801)*XX(5232)-JVS(42122)& - &*XX(5250)-JVS(50916)*XX(5255) - XX(1933) = XX(1933)-JVS(11716)*XX(2722)-JVS(19604)*XX(3947)-JVS(42121)*XX(5250)-JVS(48112)*XX(5253) - XX(1932) = XX(1932)-JVS(24784)*XX(4493)-JVS(32461)*XX(5086)-JVS(39902)*XX(5244)-JVS(42120)*XX(5250) - XX(1931) = XX(1931)-JVS(21222)*XX(4137)-JVS(35362)*XX(5184) - XX(1930) = XX(1930)-JVS(8005)*XX(1931)-JVS(13001)*XX(2965)-JVS(42119)*XX(5250)-JVS(48111)*XX(5253) - XX(1929) = XX(1929)-JVS(37129)*XX(5214)-JVS(42118)*XX(5250)-JVS(50915)*XX(5255) - XX(1928) = XX(1928)-JVS(18473)*XX(3809)-JVS(23840)*XX(4404)-JVS(35169)*XX(5183)-JVS(42117)*XX(5250)-JVS(45120)& - &*XX(5251)-JVS(50914)*XX(5255) - XX(1927) = XX(1927)-JVS(34622)*XX(5165)-JVS(38182)*XX(5231)-JVS(50913)*XX(5255) - XX(1926) = XX(1926)-JVS(23235)*XX(4343)-JVS(35464)*XX(5188)-JVS(39435)*XX(5237)-JVS(42116)*XX(5250) - XX(1925) = XX(1925)-JVS(24698)*XX(4486)-JVS(34970)*XX(5179)-JVS(39901)*XX(5244)-JVS(42115)*XX(5250) - XX(1924) = XX(1924)-JVS(34292)*XX(5160)-JVS(35747)*XX(5193)-JVS(50912)*XX(5255) - XX(1923) = XX(1923)-JVS(10953)*XX(2574)-JVS(50911)*XX(5255) - XX(1922) = XX(1922)-JVS(7967)*XX(1923)-JVS(10952)*XX(2574)-JVS(42114)*XX(5250)-JVS(48110)*XX(5253) - XX(1921) = XX(1921)-JVS(12774)*XX(2926)-JVS(38022)*XX(5230)-JVS(42113)*XX(5250)-JVS(48109)*XX(5253) - XX(1920) = XX(1920)-JVS(26705)*XX(4673)-JVS(38181)*XX(5231)-JVS(39434)*XX(5237)-JVS(42112)*XX(5250) - XX(1919) = XX(1919)-JVS(13839)*XX(3118)-JVS(32934)*XX(5108)-JVS(42111)*XX(5250)-JVS(48108)*XX(5253) - XX(1918) = XX(1918)-JVS(38180)*XX(5231)-JVS(40548)*XX(5248)-JVS(42110)*XX(5250)-JVS(48107)*XX(5253) - XX(1917) = XX(1917)-JVS(11652)*XX(2711)-JVS(34073)*XX(5152)-JVS(39212)*XX(5234)-JVS(42109)*XX(5250) - XX(1916) = XX(1916)-JVS(23311)*XX(4352)-JVS(29738)*XX(4924)-JVS(38179)*XX(5231)-JVS(42108)*XX(5250)-JVS(48106)& - &*XX(5253)-JVS(50910)*XX(5255) - XX(1915) = XX(1915)-JVS(28728)*XX(4847)-JVS(42107)*XX(5250)-JVS(48105)*XX(5253) - XX(1914) = XX(1914)-JVS(15331)*XX(3386)-JVS(29044)*XX(4870)-JVS(30519)*XX(4973)-JVS(42106)*XX(5250) - XX(1913) = XX(1913)-JVS(24134)*XX(4431)-JVS(35069)*XX(5182)-JVS(37128)*XX(5214)-JVS(42105)*XX(5250) - XX(1912) = XX(1912)-JVS(18773)*XX(3849)-JVS(38178)*XX(5231)-JVS(42104)*XX(5250)-JVS(48104)*XX(5253) - XX(1911) = XX(1911)-JVS(28727)*XX(4847)-JVS(34701)*XX(5169)-JVS(42103)*XX(5250)-JVS(50909)*XX(5255) - XX(1910) = XX(1910)-JVS(36015)*XX(5194)-JVS(50908)*XX(5255) - XX(1909) = XX(1909)-JVS(7909)*XX(1910)-JVS(36014)*XX(5194)-JVS(42102)*XX(5250)-JVS(48103)*XX(5253) - XX(1908) = XX(1908)-JVS(13877)*XX(3124)-JVS(33846)*XX(5143)-JVS(39900)*XX(5244)-JVS(42101)*XX(5250) - XX(1907) = XX(1907)-JVS(20560)*XX(4058)-JVS(24880)*XX(4501)-JVS(42100)*XX(5250)-JVS(50907)*XX(5255) - XX(1906) = XX(1906)-JVS(25168)*XX(4524)-JVS(50906)*XX(5255) - XX(1905) = XX(1905)-JVS(34844)*XX(5175)-JVS(38177)*XX(5231)-JVS(42099)*XX(5250)-JVS(48102)*XX(5253) - XX(1904) = XX(1904)-JVS(15184)*XX(3367)-JVS(16230)*XX(3530)-JVS(42098)*XX(5250)-JVS(48101)*XX(5253) - XX(1903) = XX(1903)-JVS(17155)*XX(3645)-JVS(50905)*XX(5255) - XX(1902) = XX(1902)-JVS(25348)*XX(4540)-JVS(42097)*XX(5250)-JVS(48100)*XX(5253)-JVS(50904)*XX(5255) - XX(1901) = XX(1901)-JVS(27787)*XX(4768)-JVS(35068)*XX(5182)-JVS(42096)*XX(5250)-JVS(50903)*XX(5255) - XX(1900) = XX(1900)-JVS(7925)*XX(1913)-JVS(24133)*XX(4431)-JVS(35067)*XX(5182)-JVS(42095)*XX(5250) - XX(1899) = XX(1899)-JVS(11286)*XX(2639)-JVS(33137)*XX(5121)-JVS(35463)*XX(5188)-JVS(42094)*XX(5250) - XX(1898) = XX(1898)-JVS(17797)*XX(3727)-JVS(17975)*XX(3748)-JVS(42093)*XX(5250)-JVS(50902)*XX(5255) - XX(1897) = XX(1897)-JVS(10831)*XX(2550)-JVS(16362)*XX(3547)-JVS(21415)*XX(4161)-JVS(42092)*XX(5250) - XX(1896) = XX(1896)-JVS(8432)*XX(2021)-JVS(18609)*XX(3826)-JVS(42091)*XX(5250)-JVS(48099)*XX(5253) - XX(1895) = XX(1895)-JVS(10772)*XX(2539)-JVS(39690)*XX(5242)-JVS(42090)*XX(5250)-JVS(48098)*XX(5253) - XX(1894) = XX(1894)-JVS(18036)*XX(3755)-JVS(42089)*XX(5250)-JVS(48097)*XX(5253) - XX(1893) = XX(1893)-JVS(25489)*XX(4552)-JVS(29765)*XX(4926)-JVS(42088)*XX(5250) - XX(1892) = XX(1892)-JVS(23430)*XX(4366)-JVS(38954)*XX(5233)-JVS(50901)*XX(5255) - XX(1891) = XX(1891)-JVS(30661)*XX(4983)-JVS(37387)*XX(5222)-JVS(50900)*XX(5255) - XX(1890) = XX(1890)-JVS(27605)*XX(4752)-JVS(32425)*XX(5085)-JVS(42087)*XX(5250)-JVS(50899)*XX(5255) - XX(1889) = XX(1889)-JVS(23378)*XX(4360)-JVS(29180)*XX(4882)-JVS(42086)*XX(5250)-JVS(48096)*XX(5253) - XX(1888) = XX(1888)-JVS(22487)*XX(4268)-JVS(37127)*XX(5214)-JVS(38176)*XX(5231)-JVS(42085)*XX(5250) - XX(1887) = XX(1887)-JVS(22229)*XX(4242)-JVS(33014)*XX(5113)-JVS(39899)*XX(5244)-JVS(42084)*XX(5250) - XX(1886) = XX(1886)-JVS(11704)*XX(2720)-JVS(19704)*XX(3959)-JVS(26404)*XX(4645)-JVS(42083)*XX(5250) - XX(1885) = XX(1885)-JVS(13363)*XX(3032)-JVS(31671)*XX(5042)-JVS(33969)*XX(5147)-JVS(42082)*XX(5250) - XX(1884) = XX(1884)-JVS(13040)*XX(2972)-JVS(18880)*XX(3861)-JVS(23278)*XX(4348)-JVS(42081)*XX(5250) - XX(1883) = XX(1883)-JVS(13080)*XX(2979)-JVS(22061)*XX(4226)-JVS(42080)*XX(5250)-JVS(48095)*XX(5253) - XX(1882) = XX(1882)-JVS(30937)*XX(5000)-JVS(38175)*XX(5231)-JVS(50898)*XX(5255) - XX(1881) = XX(1881)-JVS(17285)*XX(3661)-JVS(42079)*XX(5250)-JVS(48094)*XX(5253)-JVS(50897)*XX(5255) - XX(1880) = XX(1880)-JVS(19075)*XX(3884)-JVS(33845)*XX(5143)-JVS(42078)*XX(5250)-JVS(50896)*XX(5255) - XX(1879) = XX(1879)-JVS(25928)*XX(4602)-JVS(26132)*XX(4620)-JVS(33232)*XX(5125)-JVS(42077)*XX(5250) - XX(1878) = XX(1878)-JVS(20651)*XX(4069)-JVS(26157)*XX(4622)-JVS(37843)*XX(5228)-JVS(42076)*XX(5250) - XX(1877) = XX(1877)-JVS(38021)*XX(5230)-JVS(38174)*XX(5231)-JVS(50895)*XX(5255) - XX(1876) = XX(1876)-JVS(15183)*XX(3367)-JVS(16229)*XX(3530)-JVS(27953)*XX(4784)-JVS(42075)*XX(5250) - XX(1875) = XX(1875)-JVS(12171)*XX(2809)-JVS(30591)*XX(4978)-JVS(39433)*XX(5237)-JVS(42074)*XX(5250)-JVS(45119)& - &*XX(5251)-JVS(50894)*XX(5255) - XX(1874) = XX(1874)-JVS(26524)*XX(4657)-JVS(30309)*XX(4958)-JVS(42073)*XX(5250)-JVS(50893)*XX(5255) - XX(1873) = XX(1873)-JVS(29335)*XX(4897)-JVS(33306)*XX(5126)-JVS(39898)*XX(5244)-JVS(42072)*XX(5250) - XX(1872) = XX(1872)-JVS(32493)*XX(5087)-JVS(45118)*XX(5251)-JVS(50892)*XX(5255) - XX(1871) = XX(1871)-JVS(15660)*XX(3431)-JVS(26704)*XX(4673)-JVS(38173)*XX(5231)-JVS(42071)*XX(5250) - XX(1870) = XX(1870)-JVS(21897)*XX(4211)-JVS(42070)*XX(5250) - XX(1869) = XX(1869)-JVS(7731)*XX(1870)-JVS(12934)*XX(2954)-JVS(42069)*XX(5250)-JVS(50891)*XX(5255) - XX(1868) = XX(1868)-JVS(9038)*XX(2154)-JVS(28947)*XX(4863)-JVS(35066)*XX(5182)-JVS(42068)*XX(5250) - XX(1867) = XX(1867)-JVS(21981)*XX(4219)-JVS(38172)*XX(5231) - XX(1866) = XX(1866)-JVS(37386)*XX(5222)-JVS(38171)*XX(5231)-JVS(50890)*XX(5255) - XX(1865) = XX(1865)-JVS(16934)*XX(3619)-JVS(50889)*XX(5255) - XX(1864) = XX(1864)-JVS(7702)*XX(1865)-JVS(16933)*XX(3619)-JVS(42067)*XX(5250)-JVS(48093)*XX(5253) - XX(1863) = XX(1863)-JVS(9752)*XX(2315)-JVS(31867)*XX(5052)-JVS(38170)*XX(5231)-JVS(42066)*XX(5250) - XX(1862) = XX(1862)-JVS(18730)*XX(3844)-JVS(40547)*XX(5248)-JVS(42065)*XX(5250)-JVS(48092)*XX(5253) - XX(1861) = XX(1861)-JVS(17558)*XX(3696)-JVS(18188)*XX(3773)-JVS(42064)*XX(5250)-JVS(50888)*XX(5255) - XX(1860) = XX(1860)-JVS(17284)*XX(3661)-JVS(50887)*XX(5255) - XX(1859) = XX(1859)-JVS(16642)*XX(3585)-JVS(23303)*XX(4351)-JVS(28699)*XX(4845)-JVS(42063)*XX(5250) - XX(1858) = XX(1858)-JVS(30244)*XX(4953)-JVS(42062)*XX(5250)-JVS(45117)*XX(5251)-JVS(50886)*XX(5255) - XX(1857) = XX(1857)-JVS(32596)*XX(5094)-JVS(32818)*XX(5103)-JVS(35168)*XX(5183)-JVS(42061)*XX(5250)-JVS(45116)& - &*XX(5251)-JVS(50885)*XX(5255) - XX(1856) = XX(1856)-JVS(12852)*XX(2939)-JVS(31917)*XX(5055)-JVS(42060)*XX(5250)-JVS(48091)*XX(5253) - XX(1855) = XX(1855)-JVS(13054)*XX(2974)-JVS(16625)*XX(3583)-JVS(30551)*XX(4974)-JVS(42059)*XX(5250) - XX(1854) = XX(1854)-JVS(25469)*XX(4550)-JVS(38169)*XX(5231)-JVS(39897)*XX(5244)-JVS(42058)*XX(5250) - XX(1853) = XX(1853)-JVS(14116)*XX(3171)-JVS(32492)*XX(5087)-JVS(42057)*XX(5250)-JVS(45115)*XX(5251)-JVS(48090)& - &*XX(5253)-JVS(50884)*XX(5255) - XX(1852) = XX(1852)-JVS(25896)*XX(4597)-JVS(34291)*XX(5160) - XX(1851) = XX(1851)-JVS(39211)*XX(5234)-JVS(42056)*XX(5250)-JVS(45114)*XX(5251)-JVS(50883)*XX(5255) - XX(1850) = XX(1850)-JVS(17404)*XX(3677)-JVS(19289)*XX(3911)-JVS(42055)*XX(5250)-JVS(48089)*XX(5253) - XX(1849) = XX(1849)-JVS(15081)*XX(3351)-JVS(21501)*XX(4171)-JVS(35010)*XX(5180)-JVS(42054)*XX(5250) - XX(1848) = XX(1848)-JVS(23585)*XX(4383)-JVS(38953)*XX(5233)-JVS(50882)*XX(5255) - XX(1847) = XX(1847)-JVS(37788)*XX(5226)-JVS(50881)*XX(5255) - XX(1846) = XX(1846)-JVS(7617)*XX(1847)-JVS(37787)*XX(5226)-JVS(42053)*XX(5250)-JVS(48088)*XX(5253) - XX(1845) = XX(1845)-JVS(17953)*XX(3746)-JVS(19524)*XX(3937)-JVS(42052)*XX(5250)-JVS(53222)*XX(5256) - XX(1844) = XX(1844)-JVS(19570)*XX(3943)-JVS(37101)*XX(5213)-JVS(42051)*XX(5250)-JVS(48087)*XX(5253) - XX(1843) = XX(1843)-JVS(33422)*XX(5131)-JVS(35065)*XX(5182)-JVS(37126)*XX(5214)-JVS(42050)*XX(5250) - XX(1842) = XX(1842)-JVS(11340)*XX(2647)-JVS(27416)*XX(4737)-JVS(33063)*XX(5116)-JVS(42049)*XX(5250) - XX(1841) = XX(1841)-JVS(19434)*XX(3926)-JVS(34179)*XX(5157)-JVS(42048)*XX(5250)-JVS(48086)*XX(5253) - XX(1840) = XX(1840)-JVS(16336)*XX(3543)-JVS(26156)*XX(4622)-JVS(38168)*XX(5231)-JVS(42047)*XX(5250) - XX(1839) = XX(1839)-JVS(13658)*XX(3086)-JVS(33844)*XX(5143)-JVS(35167)*XX(5183)-JVS(42046)*XX(5250) - XX(1838) = XX(1838)-JVS(32085)*XX(5063)-JVS(50880)*XX(5255) - XX(1837) = XX(1837)-JVS(11888)*XX(2752)-JVS(24743)*XX(4490)-JVS(28576)*XX(4835)-JVS(42045)*XX(5250) - XX(1836) = XX(1836)-JVS(30735)*XX(4986)-JVS(33179)*XX(5123)-JVS(39896)*XX(5244)-JVS(42044)*XX(5250) - XX(1835) = XX(1835)-JVS(34860)*XX(5176)-JVS(38167)*XX(5231)-JVS(42043)*XX(5250)-JVS(48085)*XX(5253) - XX(1834) = XX(1834)-JVS(31220)*XX(5014)-JVS(36896)*XX(5207)-JVS(39895)*XX(5244)-JVS(42042)*XX(5250) - XX(1833) = XX(1833)-JVS(37385)*XX(5222)-JVS(39894)*XX(5244) - XX(1832) = XX(1832)-JVS(21232)*XX(4138)-JVS(34201)*XX(5158)-JVS(35166)*XX(5183)-JVS(42041)*XX(5250) - XX(1831) = XX(1831)-JVS(13786)*XX(3109)-JVS(33112)*XX(5119)-JVS(42040)*XX(5250)-JVS(48084)*XX(5253) - XX(1830) = XX(1830)-JVS(17374)*XX(3673)-JVS(23570)*XX(4381)-JVS(42039)*XX(5250)-JVS(48083)*XX(5253) - XX(1829) = XX(1829)-JVS(25312)*XX(4537)-JVS(29261)*XX(4890)-JVS(42038)*XX(5250)-JVS(48082)*XX(5253) - XX(1828) = XX(1828)-JVS(40513)*XX(5247)-JVS(42037)*XX(5250)-JVS(45113)*XX(5251)-JVS(50879)*XX(5255) - XX(1827) = XX(1827)-JVS(16326)*XX(3542)-JVS(42036)*XX(5250)-JVS(48081)*XX(5253) - XX(1826) = XX(1826)-JVS(22154)*XX(4235)-JVS(32771)*XX(5101)-JVS(39893)*XX(5244)-JVS(42035)*XX(5250) - XX(1825) = XX(1825)-JVS(38166)*XX(5231)-JVS(39892)*XX(5244)-JVS(45112)*XX(5251) - XX(1824) = XX(1824)-JVS(14089)*XX(3166)-JVS(17829)*XX(3731)-JVS(42034)*XX(5250)-JVS(48080)*XX(5253) - XX(1823) = XX(1823)-JVS(16693)*XX(3591)-JVS(32460)*XX(5086)-JVS(42033)*XX(5250)-JVS(48079)*XX(5253) - XX(1822) = XX(1822)-JVS(15019)*XX(3343)-JVS(50878)*XX(5255) - XX(1821) = XX(1821)-JVS(17257)*XX(3657)-JVS(50877)*XX(5255) - XX(1820) = XX(1820)-JVS(17104)*XX(3640)-JVS(50876)*XX(5255) - XX(1819) = XX(1819)-JVS(7482)*XX(1820)-JVS(17103)*XX(3640)-JVS(42032)*XX(5250)-JVS(48078)*XX(5253) - XX(1818) = XX(1818)-JVS(21214)*XX(4136)-JVS(34290)*XX(5160) - XX(1817) = XX(1817)-JVS(32067)*XX(5062)-JVS(36913)*XX(5208)-JVS(39511)*XX(5238)-JVS(42031)*XX(5250) - XX(1816) = XX(1816)-JVS(22093)*XX(4229)-JVS(27567)*XX(4749)-JVS(42030)*XX(5250)-JVS(50875)*XX(5255) - XX(1815) = XX(1815)-JVS(34289)*XX(5160)-JVS(39210)*XX(5234)-JVS(50874)*XX(5255) - XX(1814) = XX(1814)-JVS(33392)*XX(5130)-JVS(35064)*XX(5182) - XX(1813) = XX(1813)-JVS(7448)*XX(1814)-JVS(15237)*XX(3373)-JVS(42029)*XX(5250)-JVS(48077)*XX(5253) - XX(1812) = XX(1812)-JVS(32459)*XX(5086)-JVS(50873)*XX(5255) - XX(1811) = XX(1811)-JVS(7436)*XX(1812)-JVS(32458)*XX(5086)-JVS(42028)*XX(5250)-JVS(48076)*XX(5253) - XX(1810) = XX(1810)-JVS(37384)*XX(5222)-JVS(45111)*XX(5251)-JVS(50872)*XX(5255) - XX(1809) = XX(1809)-JVS(11628)*XX(2707)-JVS(36050)*XX(5195)-JVS(39209)*XX(5234)-JVS(42027)*XX(5250) - XX(1808) = XX(1808)-JVS(34288)*XX(5160)-JVS(35009)*XX(5180)-JVS(50871)*XX(5255) - XX(1807) = XX(1807)-JVS(37383)*XX(5222)-JVS(39891)*XX(5244)-JVS(42026)*XX(5250)-JVS(48075)*XX(5253) - XX(1806) = XX(1806)-JVS(30734)*XX(4986)-JVS(42025)*XX(5250)-JVS(45110)*XX(5251)-JVS(50870)*XX(5255) - XX(1805) = XX(1805)-JVS(17389)*XX(3675)-JVS(20706)*XX(4076)-JVS(42024)*XX(5250)-JVS(53221)*XX(5256) - XX(1804) = XX(1804)-JVS(25103)*XX(4518)-JVS(30308)*XX(4958)-JVS(42023)*XX(5250)-JVS(48074)*XX(5253) - XX(1803) = XX(1803)-JVS(23294)*XX(4350)-JVS(34287)*XX(5160) - XX(1802) = XX(1802)-JVS(17452)*XX(3683)-JVS(28377)*XX(4817)-JVS(42022)*XX(5250)-JVS(48073)*XX(5253) - XX(1801) = XX(1801)-JVS(15413)*XX(3397)-JVS(21168)*XX(4130)-JVS(34286)*XX(5160)-JVS(42021)*XX(5250) - XX(1800) = XX(1800)-JVS(23507)*XX(4374)-JVS(29074)*XX(4872)-JVS(42020)*XX(5250)-JVS(48072)*XX(5253) - XX(1799) = XX(1799)-JVS(30559)*XX(4975)-JVS(50869)*XX(5255) - XX(1798) = XX(1798)-JVS(7371)*XX(1799)-JVS(31152)*XX(5010)-JVS(42019)*XX(5250)-JVS(48071)*XX(5253) - XX(1797) = XX(1797)-JVS(21597)*XX(4181)-JVS(42018)*XX(5250)-JVS(45109)*XX(5251)-JVS(50868)*XX(5255) - XX(1796) = XX(1796)-JVS(17185)*XX(3649)-JVS(50867)*XX(5255) - XX(1795) = XX(1795)-JVS(25479)*XX(4551)-JVS(37382)*XX(5222)-JVS(42017)*XX(5250)-JVS(50866)*XX(5255) - XX(1794) = XX(1794)-JVS(30408)*XX(4964)-JVS(42016)*XX(5250)-JVS(48070)*XX(5253)-JVS(50865)*XX(5255) - XX(1793) = XX(1793)-JVS(16430)*XX(3557)-JVS(39432)*XX(5237)-JVS(42015)*XX(5250)-JVS(45108)*XX(5251) - XX(1792) = XX(1792)-JVS(30407)*XX(4964)-JVS(50864)*XX(5255) - XX(1791) = XX(1791)-JVS(30777)*XX(4989)-JVS(42014)*XX(5250)-JVS(45107)*XX(5251)-JVS(50863)*XX(5255) - XX(1790) = XX(1790)-JVS(21493)*XX(4170)-JVS(32882)*XX(5106)-JVS(39890)*XX(5244)-JVS(42013)*XX(5250) - XX(1789) = XX(1789)-JVS(33909)*XX(5145)-JVS(34285)*XX(5160) - XX(1788) = XX(1788)-JVS(7317)*XX(1789)-JVS(34284)*XX(5160)-JVS(42012)*XX(5250)-JVS(48069)*XX(5253) - XX(1787) = XX(1787)-JVS(31337)*XX(5023)-JVS(39208)*XX(5234)-JVS(50862)*XX(5255) - XX(1786) = XX(1786)-JVS(15652)*XX(3430)-JVS(17120)*XX(3642)-JVS(42011)*XX(5250)-JVS(48068)*XX(5253) - XX(1785) = XX(1785)-JVS(32136)*XX(5067)-JVS(42010)*XX(5250)-JVS(48067)*XX(5253) - XX(1784) = XX(1784)-JVS(18472)*XX(3809)-JVS(29119)*XX(4875)-JVS(38165)*XX(5231)-JVS(42009)*XX(5250) - XX(1783) = XX(1783)-JVS(17436)*XX(3681)-JVS(25286)*XX(4535)-JVS(42008)*XX(5250)-JVS(48066)*XX(5253) - XX(1782) = XX(1782)-JVS(23619)*XX(4386)-JVS(42007)*XX(5250)-JVS(48065)*XX(5253) - XX(1781) = XX(1781)-JVS(20933)*XX(4103)-JVS(50861)*XX(5255) - XX(1780) = XX(1780)-JVS(7277)*XX(1781)-JVS(20932)*XX(4103)-JVS(42006)*XX(5250)-JVS(48064)*XX(5253) - XX(1779) = XX(1779)-JVS(13616)*XX(3079)-JVS(19532)*XX(3938)-JVS(27905)*XX(4778)-JVS(42005)*XX(5250) - XX(1778) = XX(1778)-JVS(10824)*XX(2549)-JVS(31132)*XX(5009)-JVS(32649)*XX(5096)-JVS(42004)*XX(5250) - XX(1777) = XX(1777)-JVS(15352)*XX(3389)-JVS(36013)*XX(5194)-JVS(39207)*XX(5234)-JVS(42003)*XX(5250)-JVS(45106)& - &*XX(5251)-JVS(50860)*XX(5255) - XX(1776) = XX(1776)-JVS(13643)*XX(3083)-JVS(29480)*XX(4908)-JVS(34283)*XX(5160)-JVS(42002)*XX(5250)-JVS(45105)& - &*XX(5251)-JVS(50859)*XX(5255) - XX(1775) = XX(1775)-JVS(17901)*XX(3740)-JVS(21432)*XX(4163)-JVS(42001)*XX(5250)-JVS(53220)*XX(5256) - XX(1774) = XX(1774)-JVS(12876)*XX(2944)-JVS(29088)*XX(4873)-JVS(33482)*XX(5135)-JVS(42000)*XX(5250) - XX(1773) = XX(1773)-JVS(17237)*XX(3655)-JVS(50858)*XX(5255) - XX(1772) = XX(1772)-JVS(7243)*XX(1773)-JVS(17236)*XX(3655)-JVS(41999)*XX(5250)-JVS(48063)*XX(5253) - XX(1771) = XX(1771)-JVS(19212)*XX(3901)-JVS(36895)*XX(5207)-JVS(41998)*XX(5250)-JVS(48062)*XX(5253) - XX(1770) = XX(1770)-JVS(22465)*XX(4266)-JVS(37200)*XX(5215)-JVS(41997)*XX(5250)-JVS(48061)*XX(5253) - XX(1769) = XX(1769)-JVS(14477)*XX(3242)-JVS(45104)*XX(5251)-JVS(50857)*XX(5255) - XX(1768) = XX(1768)-JVS(14793)*XX(3301)-JVS(26564)*XX(4661)-JVS(33583)*XX(5139)-JVS(41996)*XX(5250) - XX(1767) = XX(1767)-JVS(12699)*XX(2912)-JVS(18055)*XX(3757)-JVS(26001)*XX(4607)-JVS(41995)*XX(5250) - XX(1766) = XX(1766)-JVS(34887)*XX(5177)-JVS(38164)*XX(5231)-JVS(41994)*XX(5250)-JVS(48060)*XX(5253) - XX(1765) = XX(1765)-JVS(30147)*XX(4947)-JVS(41993)*XX(5250)-JVS(50856)*XX(5255) - XX(1764) = XX(1764)-JVS(38163)*XX(5231)-JVS(41992)*XX(5250)-JVS(50855)*XX(5255) - XX(1763) = XX(1763)-JVS(26622)*XX(4666)-JVS(30426)*XX(4965)-JVS(41991)*XX(5250) - XX(1762) = XX(1762)-JVS(25488)*XX(4552)-JVS(31034)*XX(5004)-JVS(38162)*XX(5231)-JVS(41990)*XX(5250) - XX(1761) = XX(1761)-JVS(22757)*XX(4295)-JVS(24838)*XX(4497)-JVS(41989)*XX(5250) - XX(1760) = XX(1760)-JVS(33305)*XX(5126)-JVS(45103)*XX(5251)-JVS(50854)*XX(5255) - XX(1759) = XX(1759)-JVS(22538)*XX(4274)-JVS(34756)*XX(5171)-JVS(35746)*XX(5193)-JVS(41988)*XX(5250) - XX(1758) = XX(1758)-JVS(11833)*XX(2744)-JVS(17069)*XX(3638)-JVS(38161)*XX(5231)-JVS(41987)*XX(5250) - XX(1757) = XX(1757)-JVS(30353)*XX(4960)-JVS(34282)*XX(5160)-JVS(37125)*XX(5214)-JVS(41986)*XX(5250) - XX(1756) = XX(1756)-JVS(31419)*XX(5027)-JVS(41985)*XX(5250)-JVS(45102)*XX(5251)-JVS(50853)*XX(5255) - XX(1755) = XX(1755)-JVS(33042)*XX(5115)-JVS(50852)*XX(5255) - XX(1754) = XX(1754)-JVS(34281)*XX(5160)-JVS(50851)*XX(5255) - XX(1753) = XX(1753)-JVS(13141)*XX(2990)-JVS(16716)*XX(3594)-JVS(32057)*XX(5061)-JVS(41984)*XX(5250) - XX(1752) = XX(1752)-JVS(15618)*XX(3425)-JVS(16011)*XX(3497)-JVS(41983)*XX(5250)-JVS(48059)*XX(5253) - XX(1751) = XX(1751)-JVS(18795)*XX(3851)-JVS(19948)*XX(3989)-JVS(27019)*XX(4696)-JVS(41982)*XX(5250) - XX(1750) = XX(1750)-JVS(35745)*XX(5193)-JVS(50850)*XX(5255) - XX(1749) = XX(1749)-JVS(7130)*XX(1750)-JVS(35744)*XX(5193)-JVS(41981)*XX(5250)-JVS(48058)*XX(5253) - XX(1748) = XX(1748)-JVS(35462)*XX(5188)-JVS(39206)*XX(5234)-JVS(48057)*XX(5253) - XX(1747) = XX(1747)-JVS(10609)*XX(2506)-JVS(24721)*XX(4488)-JVS(41980)*XX(5250)-JVS(48056)*XX(5253)-JVS(50849)& - &*XX(5255) - XX(1746) = XX(1746)-JVS(27524)*XX(4746)-JVS(30496)*XX(4970)-JVS(36880)*XX(5206)-JVS(41979)*XX(5250)-JVS(50848)& - &*XX(5255) - XX(1745) = XX(1745)-JVS(19169)*XX(3896)-JVS(50847)*XX(5255) - XX(1744) = XX(1744)-JVS(14176)*XX(3183)-JVS(30109)*XX(4944)-JVS(33843)*XX(5143)-JVS(41978)*XX(5250)-JVS(50846)& - &*XX(5255) - XX(1743) = XX(1743)-JVS(22113)*XX(4231)-JVS(50845)*XX(5255) - XX(1742) = XX(1742)-JVS(7329)*XX(1791)-JVS(30776)*XX(4989)-JVS(38160)*XX(5231)-JVS(41977)*XX(5250)-JVS(50844)*XX(5255) - XX(1741) = XX(1741)-JVS(30634)*XX(4981)-JVS(38159)*XX(5231) - XX(1740) = XX(1740)-JVS(14183)*XX(3184)-JVS(27694)*XX(4760)-JVS(33842)*XX(5143)-JVS(41976)*XX(5250)-JVS(50843)& - &*XX(5255) - XX(1739) = XX(1739)-JVS(26476)*XX(4652)-JVS(33030)*XX(5114) - XX(1738) = XX(1738)-JVS(29703)*XX(4921)-JVS(41975)*XX(5250) - XX(1737) = XX(1737)-JVS(33231)*XX(5125)-JVS(35743)*XX(5193) - XX(1736) = XX(1736)-JVS(32718)*XX(5099)-JVS(41974)*XX(5250) - XX(1735) = XX(1735)-JVS(13930)*XX(3132)-JVS(21596)*XX(4181)-JVS(38158)*XX(5231)-JVS(41973)*XX(5250)-JVS(50842)& - &*XX(5255) - XX(1734) = XX(1734)-JVS(24742)*XX(4490)-JVS(36969)*XX(5210)-JVS(41972)*XX(5250)-JVS(45101)*XX(5251)-JVS(50841)& - &*XX(5255) - XX(1733) = XX(1733)-JVS(7129)*XX(1750)-JVS(35742)*XX(5193)-JVS(36049)*XX(5195)-JVS(41971)*XX(5250)-JVS(50840)*XX(5255) - XX(1732) = XX(1732)-JVS(35063)*XX(5182)-JVS(37124)*XX(5214) - XX(1731) = XX(1731)-JVS(26389)*XX(4644)-JVS(32424)*XX(5085)-JVS(39889)*XX(5244)-JVS(41970)*XX(5250)-JVS(50839)& - &*XX(5255) - XX(1730) = XX(1730)-JVS(22908)*XX(4310)-JVS(28594)*XX(4837)-JVS(31670)*XX(5042)-JVS(41969)*XX(5250)-JVS(50838)& - &*XX(5255) - XX(1729) = XX(1729)-JVS(11768)*XX(2732)-JVS(14703)*XX(3283)-JVS(41968)*XX(5250)-JVS(48055)*XX(5253)-JVS(50837)& - &*XX(5255) - XX(1728) = XX(1728)-JVS(29797)*XX(4929)-JVS(41967)*XX(5250) - XX(1727) = XX(1727)-JVS(16264)*XX(3535)-JVS(50836)*XX(5255) - XX(1726) = XX(1726)-JVS(23062)*XX(4325)-JVS(36968)*XX(5210)-JVS(39888)*XX(5244)-JVS(41966)*XX(5250)-JVS(50835)& - &*XX(5255) - XX(1725) = XX(1725)-JVS(33841)*XX(5143)-JVS(50834)*XX(5255) - XX(1724) = XX(1724)-JVS(20398)*XX(4042)-JVS(34280)*XX(5160) - XX(1723) = XX(1723)-JVS(28194)*XX(4801)-JVS(39887)*XX(5244) - XX(1722) = XX(1722)-JVS(6994)*XX(1723)-JVS(28193)*XX(4801)-JVS(39886)*XX(5244)-JVS(41965)*XX(5250)-JVS(50833)*XX(5255) - XX(1721) = XX(1721)-JVS(32101)*XX(5064)-JVS(50832)*XX(5255) - XX(1720) = XX(1720)-JVS(25347)*XX(4540)-JVS(50831)*XX(5255) - XX(1719) = XX(1719)-JVS(34006)*XX(5149)-JVS(34178)*XX(5157)-JVS(39885)*XX(5244)-JVS(41964)*XX(5250)-JVS(50830)& - &*XX(5255) - XX(1718) = XX(1718)-JVS(7668)*XX(1858)-JVS(30243)*XX(4953)-JVS(38157)*XX(5231)-JVS(41963)*XX(5250)-JVS(50829)*XX(5255) - XX(1717) = XX(1717)-JVS(13333)*XX(3027)-JVS(27493)*XX(4743)-JVS(41962)*XX(5250)-JVS(48054)*XX(5253)-JVS(50828)& - &*XX(5255) - XX(1716) = XX(1716)-JVS(8952)*XX(2134)-JVS(20496)*XX(4051)-JVS(38156)*XX(5231)-JVS(41961)*XX(5250)-JVS(50827)*XX(5255) - XX(1715) = XX(1715)-JVS(36808)*XX(5203)-JVS(50826)*XX(5255) - XX(1714) = XX(1714)-JVS(34915)*XX(5178)-JVS(39884)*XX(5244) - XX(1713) = XX(1713)-JVS(19317)*XX(3914)-JVS(50825)*XX(5255) - XX(1712) = XX(1712)-JVS(21062)*XX(4118)-JVS(35165)*XX(5183)-JVS(41960)*XX(5250) - XX(1711) = XX(1711)-JVS(6940)*XX(1712)-JVS(35164)*XX(5183)-JVS(35604)*XX(5191)-JVS(41959)*XX(5250)-JVS(50824)*XX(5255) - XX(1710) = XX(1710)-JVS(29926)*XX(4938)-JVS(39883)*XX(5244) - XX(1709) = XX(1709)-JVS(30074)*XX(4942)-JVS(32943)*XX(5109)-JVS(35439)*XX(5186)-JVS(39510)*XX(5238)-JVS(41958)& - &*XX(5250) - XX(1708) = XX(1708)-JVS(29132)*XX(4876)-JVS(34576)*XX(5163)-JVS(35707)*XX(5192)-JVS(39509)*XX(5238)-JVS(41957)& - &*XX(5250) - XX(1707) = XX(1707)-JVS(14016)*XX(3151)-JVS(33230)*XX(5125)-JVS(33840)*XX(5143)-JVS(41956)*XX(5250)-JVS(50823)& - &*XX(5255) - XX(1706) = XX(1706)-JVS(28754)*XX(4849)-JVS(41955)*XX(5250) - XX(1705) = XX(1705)-JVS(16901)*XX(3616)-JVS(29737)*XX(4924)-JVS(36767)*XX(5202)-JVS(41954)*XX(5250)-JVS(50822)& - &*XX(5255) - XX(1704) = XX(1704)-JVS(34177)*XX(5157)-JVS(35163)*XX(5183)-JVS(36766)*XX(5202)-JVS(41953)*XX(5250)-JVS(50821)& - &*XX(5255) - XX(1703) = XX(1703)-JVS(23725)*XX(4396)-JVS(23732)*XX(4397)-JVS(23754)*XX(4399)-JVS(41952)*XX(5250)-JVS(50820)& - &*XX(5255) - XX(1702) = XX(1702)-JVS(19998)*XX(3995)-JVS(50819)*XX(5255) - XX(1701) = XX(1701)-JVS(23911)*XX(4411)-JVS(32039)*XX(5060)-JVS(36807)*XX(5203)-JVS(41951)*XX(5250)-JVS(50818)& - &*XX(5255) - XX(1700) = XX(1700)-JVS(11074)*XX(2595)-JVS(20141)*XX(4012)-JVS(41950)*XX(5250)-JVS(48053)*XX(5253)-JVS(50817)& - &*XX(5255) - XX(1699) = XX(1699)-JVS(38020)*XX(5230)-JVS(39882)*XX(5244) - XX(1698) = XX(1698)-JVS(10333)*XX(2448)-JVS(31975)*XX(5058)-JVS(41949)*XX(5250)-JVS(45100)*XX(5251)-JVS(50816)& - &*XX(5255) - XX(1697) = XX(1697)-JVS(26403)*XX(4645)-JVS(29043)*XX(4870)-JVS(38019)*XX(5230)-JVS(41948)*XX(5250)-JVS(50815)& - &*XX(5255) - XX(1696) = XX(1696)-JVS(26597)*XX(4664)-JVS(41947)*XX(5250) - XX(1695) = XX(1695)-JVS(35603)*XX(5191)-JVS(50814)*XX(5255) - XX(1694) = XX(1694)-JVS(6954)*XX(1714)-JVS(34914)*XX(5178)-JVS(39881)*XX(5244)-JVS(41946)*XX(5250)-JVS(50813)*XX(5255) - XX(1693) = XX(1693)-JVS(18845)*XX(3857)-JVS(33136)*XX(5121)-JVS(35162)*XX(5183)-JVS(41945)*XX(5250)-JVS(50812)& - &*XX(5255) - XX(1692) = XX(1692)-JVS(21002)*XX(4110)-JVS(50811)*XX(5255) - XX(1691) = XX(1691)-JVS(33013)*XX(5113)-JVS(39880)*XX(5244) - XX(1690) = XX(1690)-JVS(7545)*XX(1832)-JVS(35161)*XX(5183)-JVS(39689)*XX(5242)-JVS(41944)*XX(5250)-JVS(50810)*XX(5255) - XX(1689) = XX(1689)-JVS(18888)*XX(3862)-JVS(39879)*XX(5244) - XX(1688) = XX(1688)-JVS(31712)*XX(5045)-JVS(32287)*XX(5077)-JVS(32378)*XX(5082)-JVS(39508)*XX(5238)-JVS(41943)& - &*XX(5250) - XX(1687) = XX(1687)-JVS(9751)*XX(2315)-JVS(31866)*XX(5052)-JVS(38155)*XX(5231)-JVS(41942)*XX(5250)-JVS(50809)*XX(5255) - XX(1686) = XX(1686)-JVS(30860)*XX(4995)-JVS(33135)*XX(5121)-JVS(35602)*XX(5191)-JVS(41941)*XX(5250)-JVS(50808)& - &*XX(5255) - XX(1685) = XX(1685)-JVS(26523)*XX(4657)-JVS(30307)*XX(4958)-JVS(41940)*XX(5250)-JVS(45099)*XX(5251)-JVS(50807)& - &*XX(5255) - XX(1684) = XX(1684)-JVS(35461)*XX(5188)-JVS(38800)*XX(5232) - XX(1683) = XX(1683)-JVS(11651)*XX(2711)-JVS(34072)*XX(5152)-JVS(39205)*XX(5234)-JVS(41939)*XX(5250)-JVS(50806)& - &*XX(5255) - XX(1682) = XX(1682)-JVS(32595)*XX(5094)-JVS(37381)*XX(5222)-JVS(41938)*XX(5250)-JVS(45098)*XX(5251)-JVS(50805)& - &*XX(5255) - XX(1681) = XX(1681)-JVS(11392)*XX(2659)-JVS(36967)*XX(5210)-JVS(39878)*XX(5244)-JVS(41937)*XX(5250)-JVS(50804)& - &*XX(5255) - XX(1680) = XX(1680)-JVS(17786)*XX(3726)-JVS(50803)*XX(5255) - XX(1679) = XX(1679)-JVS(35361)*XX(5184)-JVS(50802)*XX(5255) - XX(1678) = XX(1678)-JVS(16429)*XX(3557)-JVS(38799)*XX(5232)-JVS(39431)*XX(5237)-JVS(41936)*XX(5250)-JVS(50801)& - &*XX(5255) - XX(1677) = XX(1677)-JVS(29925)*XX(4938)-JVS(39877)*XX(5244) - XX(1676) = XX(1676)-JVS(6837)*XX(1689)-JVS(18887)*XX(3862)-JVS(39876)*XX(5244)-JVS(41935)*XX(5250)-JVS(50800)*XX(5255) - XX(1675) = XX(1675)-JVS(31276)*XX(5018)-JVS(50799)*XX(5255) - XX(1674) = XX(1674)-JVS(14190)*XX(3185)-JVS(28772)*XX(4850)-JVS(33839)*XX(5143)-JVS(41934)*XX(5250)-JVS(50798)& - &*XX(5255) - XX(1673) = XX(1673)-JVS(16825)*XX(3607)-JVS(36276)*XX(5200)-JVS(39204)*XX(5234)-JVS(41933)*XX(5250)-JVS(50797)& - &*XX(5255) - XX(1672) = XX(1672)-JVS(10547)*XX(2493)-JVS(26123)*XX(4619)-JVS(41932)*XX(5250)-JVS(48052)*XX(5253)-JVS(50796)& - &*XX(5255) - XX(1671) = XX(1671)-JVS(10290)*XX(2438)-JVS(30936)*XX(5000)-JVS(39875)*XX(5244)-JVS(41931)*XX(5250)-JVS(50795)& - &*XX(5255) - XX(1670) = XX(1670)-JVS(18074)*XX(3759)-JVS(34005)*XX(5149)-JVS(38798)*XX(5232)-JVS(41930)*XX(5250)-JVS(50794)& - &*XX(5255) - XX(1669) = XX(1669)-JVS(12014)*XX(2776)-JVS(23032)*XX(4322)-JVS(41929)*XX(5250)-JVS(48051)*XX(5253)-JVS(50793)& - &*XX(5255) - XX(1668) = XX(1668)-JVS(8886)*XX(2119)-JVS(39570)*XX(5240)-JVS(39874)*XX(5244)-JVS(41928)*XX(5250)-JVS(50792)*XX(5255) - XX(1667) = XX(1667)-JVS(22285)*XX(4248)-JVS(50791)*XX(5255) - XX(1666) = XX(1666)-JVS(13929)*XX(3132)-JVS(25836)*XX(4591)-JVS(38154)*XX(5231)-JVS(41927)*XX(5250)-JVS(50790)& - &*XX(5255) - XX(1665) = XX(1665)-JVS(14594)*XX(3262)-JVS(33740)*XX(5141)-JVS(39873)*XX(5244)-JVS(41926)*XX(5250)-JVS(50789)& - &*XX(5255) - XX(1664) = XX(1664)-JVS(11937)*XX(2762)-JVS(24311)*XX(4448)-JVS(41925)*XX(5250)-JVS(48050)*XX(5253)-JVS(50788)& - &*XX(5255) - XX(1663) = XX(1663)-JVS(28561)*XX(4834)-JVS(50787)*XX(5255) - XX(1662) = XX(1662)-JVS(34279)*XX(5160)-JVS(50786)*XX(5255) - XX(1661) = XX(1661)-JVS(37315)*XX(5220)-JVS(50785)*XX(5255) - XX(1660) = XX(1660)-JVS(40454)*XX(5245)-JVS(41924)*XX(5250) - XX(1659) = XX(1659)-JVS(13491)*XX(3057)-JVS(30188)*XX(4949)-JVS(35741)*XX(5193)-JVS(41923)*XX(5250)-JVS(50784)& - &*XX(5255) - XX(1658) = XX(1658)-JVS(10107)*XX(2395)-JVS(30187)*XX(4949)-JVS(38153)*XX(5231)-JVS(41922)*XX(5250)-JVS(50783)& - &*XX(5255) - XX(1657) = XX(1657)-JVS(27555)*XX(4748)-JVS(41921)*XX(5250)-JVS(48049)*XX(5253) - XX(1656) = XX(1656)-JVS(27554)*XX(4748)-JVS(41920)*XX(5250) - XX(1655) = XX(1655)-JVS(20989)*XX(4109)-JVS(36765)*XX(5202)-JVS(38797)*XX(5232)-JVS(41919)*XX(5250)-JVS(50782)& - &*XX(5255) - XX(1654) = XX(1654)-JVS(34278)*XX(5160)-JVS(35160)*XX(5183) - XX(1653) = XX(1653)-JVS(6683)*XX(1654)-JVS(34277)*XX(5160)-JVS(35159)*XX(5183)-JVS(41918)*XX(5250)-JVS(50781)*XX(5255) - XX(1652) = XX(1652)-JVS(28823)*XX(4853)-JVS(38152)*XX(5231) - XX(1651) = XX(1651)-JVS(20022)*XX(3998)-JVS(37380)*XX(5222)-JVS(39203)*XX(5234)-JVS(41917)*XX(5250)-JVS(48048)& - &*XX(5253) - XX(1650) = XX(1650)-JVS(34591)*XX(5164)-JVS(35740)*XX(5193) - XX(1649) = XX(1649)-JVS(21749)*XX(4196)-JVS(41916)*XX(5250)-JVS(48047)*XX(5253) - XX(1648) = XX(1648)-JVS(21748)*XX(4196)-JVS(41915)*XX(5250) - XX(1647) = XX(1647)-JVS(13163)*XX(2994)-JVS(14244)*XX(3195)-JVS(41914)*XX(5250)-JVS(48046)*XX(5253)-JVS(50780)& - &*XX(5255) - XX(1646) = XX(1646)-JVS(23683)*XX(4392)-JVS(35739)*XX(5193)-JVS(39430)*XX(5237)-JVS(41913)*XX(5250)-JVS(50779)& - &*XX(5255) - XX(1645) = XX(1645)-JVS(20462)*XX(4048)-JVS(48045)*XX(5253) - XX(1644) = XX(1644)-JVS(15928)*XX(3483)-JVS(16656)*XX(3587)-JVS(41912)*XX(5250)-JVS(45097)*XX(5251)-JVS(50778)& - &*XX(5255) - XX(1643) = XX(1643)-JVS(26388)*XX(4644)-JVS(41911)*XX(5250) - XX(1642) = XX(1642)-JVS(30924)*XX(4999)-JVS(38151)*XX(5231)-JVS(41910)*XX(5250)-JVS(45096)*XX(5251)-JVS(50777)& - &*XX(5255) - XX(1641) = XX(1641)-JVS(21091)*XX(4121)-JVS(27018)*XX(4696)-JVS(32056)*XX(5061)-JVS(39507)*XX(5238)-JVS(41909)& - &*XX(5250) - XX(1640) = XX(1640)-JVS(33304)*XX(5126)-JVS(39872)*XX(5244) - XX(1639) = XX(1639)-JVS(39202)*XX(5234)-JVS(41908)*XX(5250)-JVS(45095)*XX(5251)-JVS(48044)*XX(5253)-JVS(50776)& - &*XX(5255) - XX(1638) = XX(1638)-JVS(35158)*XX(5183)-JVS(35738)*XX(5193) - XX(1637) = XX(1637)-JVS(6784)*XX(1677)-JVS(29924)*XX(4938)-JVS(39871)*XX(5244)-JVS(41907)*XX(5250)-JVS(50775)*XX(5255) - XX(1636) = XX(1636)-JVS(12506)*XX(2875)-JVS(32156)*XX(5068)-JVS(41906)*XX(5250)-JVS(45094)*XX(5251)-JVS(50774)& - &*XX(5255) - XX(1635) = XX(1635)-JVS(29381)*XX(4901)-JVS(32298)*XX(5078)-JVS(33968)*XX(5147)-JVS(39506)*XX(5238)-JVS(41905)& - &*XX(5250) - XX(1634) = XX(1634)-JVS(38150)*XX(5231)-JVS(50773)*XX(5255) - XX(1633) = XX(1633)-JVS(13201)*XX(3000)-JVS(23668)*XX(4391)-JVS(39603)*XX(5241)-JVS(41904)*XX(5250)-JVS(50772)& - &*XX(5255) - XX(1632) = XX(1632)-JVS(12689)*XX(2910)-JVS(31393)*XX(5026)-JVS(39870)*XX(5244)-JVS(41903)*XX(5250)-JVS(50771)& - &*XX(5255) - XX(1631) = XX(1631)-JVS(32457)*XX(5086)-JVS(39869)*XX(5244) - XX(1630) = XX(1630)-JVS(6580)*XX(1631)-JVS(32456)*XX(5086)-JVS(39868)*XX(5244)-JVS(41902)*XX(5250)-JVS(50770)*XX(5255) - XX(1629) = XX(1629)-JVS(27747)*XX(4764)-JVS(41901)*XX(5250)-JVS(48043)*XX(5253) - XX(1628) = XX(1628)-JVS(27746)*XX(4764)-JVS(41900)*XX(5250) - XX(1627) = XX(1627)-JVS(22938)*XX(4313)-JVS(50769)*XX(5255) - XX(1626) = XX(1626)-JVS(28795)*XX(4851)-JVS(38952)*XX(5233)-JVS(39201)*XX(5234)-JVS(41899)*XX(5250)-JVS(50768)& - &*XX(5255) - XX(1625) = XX(1625)-JVS(25114)*XX(4519)-JVS(35460)*XX(5188)-JVS(38951)*XX(5233)-JVS(41898)*XX(5250)-JVS(48042)& - &*XX(5253) - XX(1624) = XX(1624)-JVS(26763)*XX(4679)-JVS(31658)*XX(5041) - XX(1623) = XX(1623)-JVS(11326)*XX(2645)-JVS(32122)*XX(5066)-JVS(41897)*XX(5250)-JVS(45093)*XX(5251)-JVS(50767)& - &*XX(5255) - XX(1622) = XX(1622)-JVS(16418)*XX(3556)-JVS(50766)*XX(5255) - XX(1621) = XX(1621)-JVS(8463)*XX(2028)-JVS(9199)*XX(2190)-JVS(41896)*XX(5250)-JVS(48041)*XX(5253)-JVS(50765)*XX(5255) - XX(1620) = XX(1620)-JVS(17443)*XX(3682)-JVS(40453)*XX(5245) - XX(1619) = XX(1619)-JVS(7528)*XX(1828)-JVS(14476)*XX(3242)-JVS(41895)*XX(5250)-JVS(45092)*XX(5251)-JVS(50764)*XX(5255) - XX(1618) = XX(1618)-JVS(14976)*XX(3337)-JVS(34969)*XX(5179)-JVS(38149)*XX(5231)-JVS(41894)*XX(5250)-JVS(50763)& - &*XX(5255) - XX(1617) = XX(1617)-JVS(19266)*XX(3908)-JVS(26783)*XX(4681) - XX(1616) = XX(1616)-JVS(19328)*XX(3915)-JVS(50762)*XX(5255) - XX(1615) = XX(1615)-JVS(8982)*XX(2141)-JVS(31699)*XX(5044)-JVS(38148)*XX(5231)-JVS(41893)*XX(5250)-JVS(50761)*XX(5255) - XX(1614) = XX(1614)-JVS(21167)*XX(4130)-JVS(34276)*XX(5160) - XX(1613) = XX(1613)-JVS(13456)*XX(3050)-JVS(20428)*XX(4045)-JVS(41892)*XX(5250)-JVS(48040)*XX(5253)-JVS(50760)& - &*XX(5255) - XX(1612) = XX(1612)-JVS(8943)*XX(2132)-JVS(21623)*XX(4183)-JVS(41891)*XX(5250)-JVS(45091)*XX(5251)-JVS(50759)*XX(5255) - XX(1611) = XX(1611)-JVS(7558)*XX(1834)-JVS(36894)*XX(5207)-JVS(39867)*XX(5244)-JVS(41890)*XX(5250)-JVS(50758)*XX(5255) - XX(1610) = XX(1610)-JVS(30733)*XX(4986)-JVS(39866)*XX(5244)-JVS(41889)*XX(5250) - XX(1609) = XX(1609)-JVS(6480)*XX(1610)-JVS(33178)*XX(5123)-JVS(39865)*XX(5244)-JVS(41888)*XX(5250)-JVS(50757)*XX(5255) - XX(1608) = XX(1608)-JVS(25409)*XX(4545)-JVS(31316)*XX(5021) - XX(1607) = XX(1607)-JVS(31118)*XX(5008)-JVS(38147)*XX(5231) - XX(1606) = XX(1606)-JVS(19288)*XX(3911)-JVS(50756)*XX(5255) - XX(1605) = XX(1605)-JVS(19729)*XX(3962)-JVS(26330)*XX(4638) - XX(1604) = XX(1604)-JVS(17736)*XX(3720)-JVS(41887)*XX(5250) - XX(1603) = XX(1603)-JVS(27617)*XX(4753)-JVS(35459)*XX(5188)-JVS(38950)*XX(5233)-JVS(41886)*XX(5250)-JVS(48039)& - &*XX(5253) - XX(1602) = XX(1602)-JVS(11054)*XX(2592)-JVS(36966)*XX(5210)-JVS(41885)*XX(5250)-JVS(45090)*XX(5251)-JVS(50755)& - &*XX(5255) - XX(1601) = XX(1601)-JVS(12806)*XX(2932)-JVS(35601)*XX(5191)-JVS(39429)*XX(5237)-JVS(41884)*XX(5250)-JVS(50754)& - &*XX(5255) - XX(1600) = XX(1600)-JVS(14542)*XX(3251)-JVS(32532)*XX(5089)-JVS(39864)*XX(5244)-JVS(41883)*XX(5250)-JVS(50753)& - &*XX(5255) - XX(1599) = XX(1599)-JVS(27197)*XX(4717)-JVS(37979)*XX(5229)-JVS(39428)*XX(5237)-JVS(41882)*XX(5250)-JVS(50752)& - &*XX(5255) - XX(1598) = XX(1598)-JVS(11665)*XX(2714)-JVS(33303)*XX(5126)-JVS(41881)*XX(5250)-JVS(45089)*XX(5251)-JVS(50751)& - &*XX(5255) - XX(1597) = XX(1597)-JVS(35737)*XX(5193)-JVS(50750)*XX(5255) - XX(1596) = XX(1596)-JVS(16842)*XX(3609)-JVS(27775)*XX(4767)-JVS(35421)*XX(5185)-JVS(41880)*XX(5250)-JVS(50749)& - &*XX(5255) - XX(1595) = XX(1595)-JVS(35600)*XX(5191)-JVS(39863)*XX(5244) - XX(1594) = XX(1594)-JVS(11746)*XX(2728)-JVS(14768)*XX(3296)-JVS(41879)*XX(5250)-JVS(48038)*XX(5253)-JVS(50748)& - &*XX(5255) - XX(1593) = XX(1593)-JVS(37842)*XX(5228)-JVS(38146)*XX(5231) - XX(1592) = XX(1592)-JVS(35736)*XX(5193)-JVS(39862)*XX(5244) - XX(1591) = XX(1591)-JVS(26692)*XX(4672)-JVS(41878)*XX(5250)-JVS(48037)*XX(5253) - XX(1590) = XX(1590)-JVS(26691)*XX(4672)-JVS(41877)*XX(5250) - XX(1589) = XX(1589)-JVS(12359)*XX(2847)-JVS(14511)*XX(3246)-JVS(41876)*XX(5250)-JVS(48036)*XX(5253)-JVS(50747)& - &*XX(5255) - XX(1588) = XX(1588)-JVS(7407)*XX(1806)-JVS(33177)*XX(5123)-JVS(41875)*XX(5250)-JVS(45088)*XX(5251)-JVS(50746)*XX(5255) - XX(1587) = XX(1587)-JVS(7324)*XX(1790)-JVS(36806)*XX(5203)-JVS(39861)*XX(5244)-JVS(41874)*XX(5250)-JVS(50745)*XX(5255) - XX(1586) = XX(1586)-JVS(9526)*XX(2265)-JVS(28654)*XX(4842)-JVS(39860)*XX(5244)-JVS(41873)*XX(5250)-JVS(50744)*XX(5255) - XX(1585) = XX(1585)-JVS(9386)*XX(2231)-JVS(32389)*XX(5083)-JVS(39859)*XX(5244)-JVS(41872)*XX(5250)-JVS(50743)*XX(5255) - XX(1584) = XX(1584)-JVS(33176)*XX(5123)-JVS(35157)*XX(5183)-JVS(41871)*XX(5250)-JVS(50742)*XX(5255) - XX(1583) = XX(1583)-JVS(33175)*XX(5123)-JVS(35156)*XX(5183) - XX(1582) = XX(1582)-JVS(19137)*XX(3892)-JVS(33358)*XX(5129)-JVS(38796)*XX(5232)-JVS(41870)*XX(5250)-JVS(50741)& - &*XX(5255) - XX(1581) = XX(1581)-JVS(28726)*XX(4847)-JVS(41869)*XX(5250) - XX(1580) = XX(1580)-JVS(26019)*XX(4609)-JVS(26083)*XX(4616)-JVS(36298)*XX(5201)-JVS(41868)*XX(5250)-JVS(53219)& - &*XX(5256) - XX(1579) = XX(1579)-JVS(38949)*XX(5233)-JVS(39427)*XX(5237) - XX(1578) = XX(1578)-JVS(16585)*XX(3578)-JVS(19359)*XX(3918)-JVS(39858)*XX(5244)-JVS(41867)*XX(5250)-JVS(50740)& - &*XX(5255) - XX(1577) = XX(1577)-JVS(18931)*XX(3868)-JVS(26420)*XX(4647)-JVS(33062)*XX(5116)-JVS(41866)*XX(5250)-JVS(50739)& - &*XX(5255) - XX(1576) = XX(1576)-JVS(14269)*XX(3200)-JVS(33739)*XX(5141)-JVS(35155)*XX(5183)-JVS(41865)*XX(5250)-JVS(50738)& - &*XX(5255) - XX(1575) = XX(1575)-JVS(26533)*XX(4658)-JVS(30306)*XX(4958)-JVS(41864)*XX(5250)-JVS(45087)*XX(5251)-JVS(50737)& - &*XX(5255) - XX(1574) = XX(1574)-JVS(35154)*XX(5183)-JVS(38145)*XX(5231) - XX(1573) = XX(1573)-JVS(23562)*XX(4380)-JVS(36297)*XX(5201)-JVS(39541)*XX(5239)-JVS(41863)*XX(5250)-JVS(53218)& - &*XX(5256) - XX(1572) = XX(1572)-JVS(34254)*XX(5159)-JVS(50736)*XX(5255) - XX(1571) = XX(1571)-JVS(13657)*XX(3086)-JVS(33838)*XX(5143)-JVS(35153)*XX(5183)-JVS(41862)*XX(5250)-JVS(50735)& - &*XX(5255) - XX(1570) = XX(1570)-JVS(17141)*XX(3644)-JVS(27107)*XX(4708)-JVS(41861)*XX(5250)-JVS(45086)*XX(5251)-JVS(50734)& - &*XX(5255) - XX(1569) = XX(1569)-JVS(17068)*XX(3638)-JVS(25373)*XX(4542)-JVS(30038)*XX(4940)-JVS(41860)*XX(5250)-JVS(50733)& - &*XX(5255) - XX(1568) = XX(1568)-JVS(32198)*XX(5071)-JVS(50732)*XX(5255) - XX(1567) = XX(1567)-JVS(17321)*XX(3666)-JVS(21339)*XX(4152)-JVS(41859)*XX(5250)-JVS(48035)*XX(5253)-JVS(50731)& - &*XX(5255) - XX(1566) = XX(1566)-JVS(32951)*XX(5110)-JVS(39688)*XX(5242)-JVS(39857)*XX(5244)-JVS(41858)*XX(5250)-JVS(50730)& - &*XX(5255) - XX(1565) = XX(1565)-JVS(31441)*XX(5029)-JVS(41857)*XX(5250) - XX(1564) = XX(1564)-JVS(31151)*XX(5010)-JVS(50729)*XX(5255) - XX(1563) = XX(1563)-JVS(33719)*XX(5140)-JVS(50728)*XX(5255) - XX(1562) = XX(1562)-JVS(8335)*XX(2000)-JVS(10474)*XX(2478)-JVS(41856)*XX(5250)-JVS(48034)*XX(5253)-JVS(50727)*XX(5255) - XX(1561) = XX(1561)-JVS(6847)*XX(1691)-JVS(33012)*XX(5113)-JVS(39856)*XX(5244)-JVS(41855)*XX(5250)-JVS(50726)*XX(5255) - XX(1560) = XX(1560)-JVS(6617)*XX(1640)-JVS(33302)*XX(5126)-JVS(39855)*XX(5244)-JVS(41854)*XX(5250)-JVS(50725)*XX(5255) - XX(1559) = XX(1559)-JVS(19923)*XX(3986)-JVS(50724)*XX(5255) - XX(1558) = XX(1558)-JVS(36965)*XX(5210)-JVS(38948)*XX(5233)-JVS(39854)*XX(5244)-JVS(41853)*XX(5250)-JVS(50723)& - &*XX(5255) - XX(1557) = XX(1557)-JVS(7518)*XX(1826)-JVS(31952)*XX(5057)-JVS(39853)*XX(5244)-JVS(41852)*XX(5250)-JVS(50722)*XX(5255) - XX(1556) = XX(1556)-JVS(32311)*XX(5079)-JVS(38144)*XX(5231) - XX(1555) = XX(1555)-JVS(12075)*XX(2789)-JVS(28176)*XX(4799)-JVS(41851)*XX(5250)-JVS(48033)*XX(5253)-JVS(50721)& - &*XX(5255) - XX(1554) = XX(1554)-JVS(10900)*XX(2563)-JVS(25264)*XX(4533)-JVS(41850)*XX(5250)-JVS(48032)*XX(5253)-JVS(50720)& - &*XX(5255) - XX(1553) = XX(1553)-JVS(35735)*XX(5193)-JVS(37841)*XX(5228) - XX(1552) = XX(1552)-JVS(24879)*XX(4501)-JVS(50719)*XX(5255) - XX(1551) = XX(1551)-JVS(24247)*XX(4442)-JVS(41849)*XX(5250)-JVS(48031)*XX(5253) - XX(1550) = XX(1550)-JVS(24246)*XX(4442)-JVS(41848)*XX(5250) - XX(1549) = XX(1549)-JVS(12153)*XX(2806)-JVS(23079)*XX(4326)-JVS(41847)*XX(5250)-JVS(48030)*XX(5253)-JVS(50718)& - &*XX(5255) - XX(1548) = XX(1548)-JVS(13876)*XX(3124)-JVS(33837)*XX(5143)-JVS(39852)*XX(5244)-JVS(41846)*XX(5250)-JVS(50717)& - &*XX(5255) - XX(1547) = XX(1547)-JVS(28689)*XX(4844)-JVS(32548)*XX(5090)-JVS(41845)*XX(5250) - XX(1546) = XX(1546)-JVS(6712)*XX(1660)-JVS(16875)*XX(3613)-JVS(41844)*XX(5250) - XX(1545) = XX(1545)-JVS(33496)*XX(5136)-JVS(34004)*XX(5149)-JVS(41843)*XX(5250) - XX(1544) = XX(1544)-JVS(15507)*XX(3410)-JVS(18986)*XX(3874)-JVS(41842)*XX(5250) - XX(1543) = XX(1543)-JVS(10892)*XX(2562)-JVS(16372)*XX(3548)-JVS(41841)*XX(5250) - XX(1542) = XX(1542)-JVS(7677)*XX(1860)-JVS(17283)*XX(3661)-JVS(41840)*XX(5250) - XX(1541) = XX(1541)-JVS(29008)*XX(4867)-JVS(31303)*XX(5020)-JVS(41839)*XX(5250) - XX(1540) = XX(1540)-JVS(20715)*XX(4077)-JVS(24672)*XX(4484)-JVS(41838)*XX(5250) - XX(1539) = XX(1539)-JVS(20623)*XX(4065)-JVS(24491)*XX(4466)-JVS(41837)*XX(5250) - XX(1538) = XX(1538)-JVS(13413)*XX(3041)-JVS(17090)*XX(3639)-JVS(41836)*XX(5250) - XX(1537) = XX(1537)-JVS(20041)*XX(4000)-JVS(21241)*XX(4139)-JVS(41835)*XX(5250) - XX(1536) = XX(1536)-JVS(23377)*XX(4360)-JVS(29179)*XX(4882)-JVS(41834)*XX(5250) - XX(1535) = XX(1535)-JVS(20691)*XX(4074)-JVS(21557)*XX(4177)-JVS(41833)*XX(5250) - XX(1534) = XX(1534)-JVS(17611)*XX(3704)-JVS(19040)*XX(3880)-JVS(41832)*XX(5250) - XX(1533) = XX(1533)-JVS(18027)*XX(3754)-JVS(25223)*XX(4529)-JVS(41831)*XX(5250) - XX(1532) = XX(1532)-JVS(11016)*XX(2586)-JVS(21719)*XX(4193)-JVS(41830)*XX(5250) - XX(1531) = XX(1531)-JVS(19509)*XX(3935)-JVS(41829)*XX(5250)-JVS(48029)*XX(5253) - XX(1530) = XX(1530)-JVS(7107)*XX(1745)-JVS(18320)*XX(3788)-JVS(41828)*XX(5250) - XX(1529) = XX(1529)-JVS(28794)*XX(4851)-JVS(41827)*XX(5250)-JVS(48028)*XX(5253) - XX(1528) = XX(1528)-JVS(7435)*XX(1812)-JVS(32455)*XX(5086)-JVS(41826)*XX(5250) - XX(1527) = XX(1527)-JVS(10978)*XX(2578)-JVS(21054)*XX(4117)-JVS(41825)*XX(5250) - XX(1526) = XX(1526)-JVS(11278)*XX(2638)-JVS(15988)*XX(3493)-JVS(41824)*XX(5250) - XX(1525) = XX(1525)-JVS(16212)*XX(3527)-JVS(18426)*XX(3802)-JVS(41823)*XX(5250) - XX(1524) = XX(1524)-JVS(11100)*XX(2599)-JVS(22327)*XX(4252)-JVS(41822)*XX(5250) - XX(1523) = XX(1523)-JVS(14475)*XX(3242)-JVS(40512)*XX(5247)-JVS(41821)*XX(5250) - XX(1522) = XX(1522)-JVS(11433)*XX(2667)-JVS(15106)*XX(3355)-JVS(41820)*XX(5250) - XX(1521) = XX(1521)-JVS(33718)*XX(5140)-JVS(41819)*XX(5250)-JVS(50716)*XX(5255) - XX(1520) = XX(1520)-JVS(6343)*XX(1581)-JVS(41818)*XX(5250)-JVS(50715)*XX(5255) - XX(1519) = XX(1519)-JVS(12844)*XX(2938)-JVS(15609)*XX(3424)-JVS(41817)*XX(5250) - XX(1518) = XX(1518)-JVS(26532)*XX(4658)-JVS(30305)*XX(4958)-JVS(41816)*XX(5250) - XX(1517) = XX(1517)-JVS(12979)*XX(2962)-JVS(19004)*XX(3876)-JVS(41815)*XX(5250) - XX(1516) = XX(1516)-JVS(26293)*XX(4634)-JVS(32066)*XX(5062)-JVS(41814)*XX(5250) - XX(1515) = XX(1515)-JVS(12424)*XX(2858)-JVS(19742)*XX(3964)-JVS(41813)*XX(5250) - XX(1514) = XX(1514)-JVS(6953)*XX(1714)-JVS(19113)*XX(3889)-JVS(41812)*XX(5250) - XX(1513) = XX(1513)-JVS(29892)*XX(4935)-JVS(41811)*XX(5250)-JVS(50714)*XX(5255) - XX(1512) = XX(1512)-JVS(11123)*XX(2604)-JVS(22847)*XX(4304)-JVS(41810)*XX(5250) - XX(1511) = XX(1511)-JVS(6510)*XX(1617)-JVS(31698)*XX(5044)-JVS(41809)*XX(5250) - XX(1510) = XX(1510)-JVS(15115)*XX(3356)-JVS(16664)*XX(3588)-JVS(41808)*XX(5250) - XX(1509) = XX(1509)-JVS(7078)*XX(1739)-JVS(31865)*XX(5052)-JVS(41807)*XX(5250) - XX(1508) = XX(1508)-JVS(10971)*XX(2577)-JVS(22515)*XX(4271)-JVS(41806)*XX(5250) - XX(1507) = XX(1507)-JVS(22146)*XX(4234)-JVS(28613)*XX(4839)-JVS(41805)*XX(5250) - XX(1506) = XX(1506)-JVS(7370)*XX(1799)-JVS(31150)*XX(5010)-JVS(41804)*XX(5250) - XX(1505) = XX(1505)-JVS(9360)*XX(2226)-JVS(12411)*XX(2856)-JVS(41803)*XX(5250) - XX(1504) = XX(1504)-JVS(15141)*XX(3361)-JVS(21839)*XX(4205)-JVS(41802)*XX(5250) - XX(1503) = XX(1503)-JVS(16102)*XX(3511)-JVS(28175)*XX(4799)-JVS(41801)*XX(5250) - XX(1502) = XX(1502)-JVS(12290)*XX(2832)-JVS(19448)*XX(3928)-JVS(41800)*XX(5250) - XX(1501) = XX(1501)-JVS(13785)*XX(3109)-JVS(33111)*XX(5119)-JVS(41799)*XX(5250) - XX(1500) = XX(1500)-JVS(33229)*XX(5125)-JVS(37978)*XX(5229)-JVS(41798)*XX(5250) - XX(1499) = XX(1499)-JVS(11318)*XX(2644)-JVS(23354)*XX(4357)-JVS(41797)*XX(5250) - XX(1498) = XX(1498)-JVS(22995)*XX(4318)-JVS(26221)*XX(4627)-JVS(41796)*XX(5250) - XX(1497) = XX(1497)-JVS(18156)*XX(3769)-JVS(20152)*XX(4013)-JVS(41795)*XX(5250) - XX(1496) = XX(1496)-JVS(8255)*XX(1984)-JVS(21684)*XX(4189)-JVS(41794)*XX(5250) - XX(1495) = XX(1495)-JVS(11550)*XX(2692)-JVS(21061)*XX(4118)-JVS(41793)*XX(5250) - XX(1494) = XX(1494)-JVS(37749)*XX(5225)-JVS(41792)*XX(5250)-JVS(48027)*XX(5253) - XX(1493) = XX(1493)-JVS(31076)*XX(5006)-JVS(41791)*XX(5250)-JVS(50713)*XX(5255) - XX(1492) = XX(1492)-JVS(11715)*XX(2722)-JVS(19603)*XX(3947)-JVS(41790)*XX(5250) - XX(1491) = XX(1491)-JVS(14000)*XX(3148)-JVS(17986)*XX(3749)-JVS(41789)*XX(5250) - XX(1490) = XX(1490)-JVS(11332)*XX(2646)-JVS(23667)*XX(4391)-JVS(41788)*XX(5250) - XX(1489) = XX(1489)-JVS(6470)*XX(1608)-JVS(41787)*XX(5250)-JVS(50712)*XX(5255) - XX(1488) = XX(1488)-JVS(12812)*XX(2933)-JVS(31943)*XX(5056)-JVS(41786)*XX(5250) - XX(1487) = XX(1487)-JVS(14963)*XX(3335)-JVS(19259)*XX(3907)-JVS(41785)*XX(5250) - XX(1486) = XX(1486)-JVS(21193)*XX(4133)-JVS(31461)*XX(5030)-JVS(41784)*XX(5250) - XX(1485) = XX(1485)-JVS(11867)*XX(2749)-JVS(12170)*XX(2809)-JVS(41783)*XX(5250) - XX(1484) = XX(1484)-JVS(7481)*XX(1820)-JVS(17102)*XX(3640)-JVS(41782)*XX(5250) - XX(1483) = XX(1483)-JVS(41781)*XX(5250)-JVS(45085)*XX(5251)-JVS(50711)*XX(5255) - XX(1482) = XX(1482)-JVS(19531)*XX(3938)-JVS(41780)*XX(5250)-JVS(48026)*XX(5253) - XX(1481) = XX(1481)-JVS(29456)*XX(4905)-JVS(41779)*XX(5250)-JVS(50710)*XX(5255) - XX(1480) = XX(1480)-JVS(17754)*XX(3722)-JVS(28946)*XX(4863)-JVS(41778)*XX(5250) - XX(1479) = XX(1479)-JVS(17475)*XX(3686)-JVS(33421)*XX(5131)-JVS(41777)*XX(5250) - XX(1478) = XX(1478)-JVS(8323)*XX(1998)-JVS(16601)*XX(3580)-JVS(41776)*XX(5250) - XX(1477) = XX(1477)-JVS(22907)*XX(4310)-JVS(25156)*XX(4523)-JVS(41775)*XX(5250) - XX(1476) = XX(1476)-JVS(20216)*XX(4020)-JVS(24365)*XX(4453)-JVS(41774)*XX(5250) - XX(1475) = XX(1475)-JVS(30378)*XX(4962)-JVS(30859)*XX(4995)-JVS(41773)*XX(5250) - XX(1474) = XX(1474)-JVS(26832)*XX(4686)-JVS(26845)*XX(4687)-JVS(41772)*XX(5250) - XX(1473) = XX(1473)-JVS(21184)*XX(4132)-JVS(29334)*XX(4897)-JVS(41771)*XX(5250) - XX(1472) = XX(1472)-JVS(15050)*XX(3347)-JVS(24929)*XX(4506)-JVS(41770)*XX(5250) - XX(1471) = XX(1471)-JVS(34968)*XX(5179)-JVS(40475)*XX(5246)-JVS(41769)*XX(5250) - XX(1470) = XX(1470)-JVS(19885)*XX(3981)-JVS(19893)*XX(3982)-JVS(41768)*XX(5250) - XX(1469) = XX(1469)-JVS(7316)*XX(1789)-JVS(19154)*XX(3894)-JVS(41767)*XX(5250) - XX(1468) = XX(1468)-JVS(10620)*XX(2508)-JVS(19991)*XX(3994)-JVS(41766)*XX(5250) - XX(1467) = XX(1467)-JVS(25334)*XX(4539)-JVS(29902)*XX(4936)-JVS(41765)*XX(5250) - XX(1466) = XX(1466)-JVS(32881)*XX(5106)-JVS(33908)*XX(5145)-JVS(41764)*XX(5250) - XX(1465) = XX(1465)-JVS(28270)*XX(4807)-JVS(29891)*XX(4935)-JVS(41763)*XX(5250) - XX(1464) = XX(1464)-JVS(24071)*XX(4426)-JVS(28960)*XX(4864)-JVS(41762)*XX(5250) - XX(1463) = XX(1463)-JVS(21081)*XX(4120)-JVS(28653)*XX(4842)-JVS(41761)*XX(5250) - XX(1462) = XX(1462)-JVS(31440)*XX(5029)-JVS(36186)*XX(5198)-JVS(41760)*XX(5250) - XX(1461) = XX(1461)-JVS(24394)*XX(4456)-JVS(24902)*XX(4503)-JVS(41759)*XX(5250) - XX(1460) = XX(1460)-JVS(27822)*XX(4770)-JVS(28878)*XX(4857)-JVS(41758)*XX(5250) - XX(1459) = XX(1459)-JVS(10865)*XX(2557)-JVS(21710)*XX(4192)-JVS(41757)*XX(5250) - XX(1458) = XX(1458)-JVS(7242)*XX(1773)-JVS(17235)*XX(3655)-JVS(41756)*XX(5250) - XX(1457) = XX(1457)-JVS(19455)*XX(3929)-JVS(41755)*XX(5250)-JVS(48025)*XX(5253) - XX(1456) = XX(1456)-JVS(25835)*XX(4591)-JVS(25852)*XX(4592)-JVS(41754)*XX(5250) - XX(1455) = XX(1455)-JVS(15481)*XX(3406)-JVS(27297)*XX(4726)-JVS(41753)*XX(5250) - XX(1454) = XX(1454)-JVS(20410)*XX(4043)-JVS(27429)*XX(4738)-JVS(41752)*XX(5250) - XX(1453) = XX(1453)-JVS(20675)*XX(4072)-JVS(26583)*XX(4663)-JVS(41751)*XX(5250) - XX(1452) = XX(1452)-JVS(20375)*XX(4040)-JVS(26792)*XX(4682)-JVS(41750)*XX(5250) - XX(1451) = XX(1451)-JVS(20280)*XX(4028)-JVS(30205)*XX(4950)-JVS(41749)*XX(5250) - XX(1450) = XX(1450)-JVS(20615)*XX(4064)-JVS(24859)*XX(4499)-JVS(41748)*XX(5250) - XX(1449) = XX(1449)-JVS(7701)*XX(1865)-JVS(16932)*XX(3619)-JVS(41747)*XX(5250) - XX(1448) = XX(1448)-JVS(26178)*XX(4623)-JVS(35420)*XX(5185)-JVS(41746)*XX(5250) - XX(1447) = XX(1447)-JVS(27930)*XX(4781)-JVS(29272)*XX(4891)-JVS(41745)*XX(5250) - XX(1446) = XX(1446)-JVS(11305)*XX(2642)-JVS(16183)*XX(3522)-JVS(41744)*XX(5250) - XX(1445) = XX(1445)-JVS(7616)*XX(1847)-JVS(37786)*XX(5226)-JVS(41743)*XX(5250) - XX(1444) = XX(1444)-JVS(15617)*XX(3425)-JVS(16010)*XX(3497)-JVS(41742)*XX(5250) - XX(1443) = XX(1443)-JVS(6454)*XX(1606)-JVS(17551)*XX(3695)-JVS(41741)*XX(5250) - XX(1442) = XX(1442)-JVS(29370)*XX(4900)-JVS(41740)*XX(5250)-JVS(50709)*XX(5255) - XX(1441) = XX(1441)-JVS(12256)*XX(2826)-JVS(16287)*XX(3537)-JVS(41739)*XX(5250) - XX(1440) = XX(1440)-JVS(34523)*XX(5161)-JVS(41738)*XX(5250)-JVS(50708)*XX(5255) - XX(1439) = XX(1439)-JVS(15651)*XX(3430)-JVS(17119)*XX(3642)-JVS(41737)*XX(5250) - XX(1438) = XX(1438)-JVS(10801)*XX(2545)-JVS(19539)*XX(3939)-JVS(41736)*XX(5250) - XX(1437) = XX(1437)-JVS(28512)*XX(4830)-JVS(29347)*XX(4898)-JVS(41735)*XX(5250) - XX(1436) = XX(1436)-JVS(22439)*XX(4263)-JVS(28934)*XX(4862)-JVS(41734)*XX(5250) - XX(1435) = XX(1435)-JVS(18270)*XX(3782)-JVS(24233)*XX(4441)-JVS(41733)*XX(5250) - XX(1434) = XX(1434)-JVS(13856)*XX(3121)-JVS(15009)*XX(3342)-JVS(41732)*XX(5250) - XX(1433) = XX(1433)-JVS(38143)*XX(5231)-JVS(38795)*XX(5232)-JVS(41731)*XX(5250) - XX(1432) = XX(1432)-JVS(31166)*XX(5011)-JVS(41730)*XX(5250)-JVS(50707)*XX(5255) - XX(1431) = XX(1431)-JVS(15712)*XX(3440)-JVS(20644)*XX(4068)-JVS(41729)*XX(5250) - XX(1430) = XX(1430)-JVS(13476)*XX(3054)-JVS(19867)*XX(3979)-JVS(41728)*XX(5250) - XX(1429) = XX(1429)-JVS(20476)*XX(4049)-JVS(25064)*XX(4514)-JVS(41727)*XX(5250) - XX(1428) = XX(1428)-JVS(16692)*XX(3591)-JVS(32454)*XX(5086)-JVS(41726)*XX(5250) - XX(1427) = XX(1427)-JVS(20636)*XX(4067)-JVS(28900)*XX(4859)-JVS(41725)*XX(5250) - XX(1426) = XX(1426)-JVS(15436)*XX(3400)-JVS(20910)*XX(4101)-JVS(41724)*XX(5250) - XX(1425) = XX(1425)-JVS(16035)*XX(3500)-JVS(41723)*XX(5250)-JVS(50706)*XX(5255) - XX(1424) = XX(1424)-JVS(28753)*XX(4849)-JVS(36111)*XX(5196)-JVS(41722)*XX(5250) - XX(1423) = XX(1423)-JVS(12836)*XX(2937)-JVS(22125)*XX(4232)-JVS(41721)*XX(5250) - XX(1422) = XX(1422)-JVS(13104)*XX(2983)-JVS(28593)*XX(4837)-JVS(41720)*XX(5250) - XX(1421) = XX(1421)-JVS(20060)*XX(4002)-JVS(25019)*XX(4509)-JVS(41719)*XX(5250) - XX(1420) = XX(1420)-JVS(12824)*XX(2935)-JVS(22786)*XX(4298)-JVS(41718)*XX(5250) - XX(1419) = XX(1419)-JVS(20698)*XX(4075)-JVS(23881)*XX(4408)-JVS(41717)*XX(5250) - XX(1418) = XX(1418)-JVS(22506)*XX(4270)-JVS(24258)*XX(4443)-JVS(41716)*XX(5250) - XX(1417) = XX(1417)-JVS(25055)*XX(4513)-JVS(26441)*XX(4649)-JVS(41715)*XX(5250) - XX(1416) = XX(1416)-JVS(18262)*XX(3781)-JVS(19845)*XX(3977)-JVS(41714)*XX(5250) - XX(1415) = XX(1415)-JVS(15131)*XX(3359)-JVS(16884)*XX(3614)-JVS(41713)*XX(5250) - XX(1414) = XX(1414)-JVS(12926)*XX(2953)-JVS(20943)*XX(4104)-JVS(41712)*XX(5250) - XX(1413) = XX(1413)-JVS(6652)*XX(1648)-JVS(21747)*XX(4196)-JVS(41711)*XX(5250) - XX(1412) = XX(1412)-JVS(18018)*XX(3753)-JVS(22797)*XX(4299)-JVS(41710)*XX(5250) - XX(1411) = XX(1411)-JVS(7469)*XX(1818)-JVS(33391)*XX(5130)-JVS(41709)*XX(5250) - XX(1410) = XX(1410)-JVS(18133)*XX(3766)-JVS(19375)*XX(3919)-JVS(41708)*XX(5250) - XX(1409) = XX(1409)-JVS(22919)*XX(4311)-JVS(41707)*XX(5250)-JVS(50705)*XX(5255) - XX(1408) = XX(1408)-JVS(24424)*XX(4459)-JVS(26485)*XX(4653)-JVS(41706)*XX(5250) - XX(1407) = XX(1407)-JVS(6546)*XX(1624)-JVS(30775)*XX(4989)-JVS(41705)*XX(5250) - XX(1406) = XX(1406)-JVS(15043)*XX(3346)-JVS(29056)*XX(4871)-JVS(41704)*XX(5250) - XX(1405) = XX(1405)-JVS(29333)*XX(4897)-JVS(41703)*XX(5250)-JVS(50704)*XX(5255) - XX(1404) = XX(1404)-JVS(28713)*XX(4846)-JVS(30146)*XX(4947)-JVS(41702)*XX(5250) - XX(1403) = XX(1403)-JVS(29292)*XX(4893)-JVS(41701)*XX(5250)-JVS(50703)*XX(5255) - XX(1402) = XX(1402)-JVS(17694)*XX(3715)-JVS(24685)*XX(4485)-JVS(41700)*XX(5250) - XX(1401) = XX(1401)-JVS(7276)*XX(1781)-JVS(20931)*XX(4103)-JVS(41699)*XX(5250) - XX(1400) = XX(1400)-JVS(17222)*XX(3653)-JVS(41698)*XX(5250)-JVS(48024)*XX(5253) - XX(1399) = XX(1399)-JVS(12211)*XX(2818)-JVS(22929)*XX(4312)-JVS(41697)*XX(5250) - XX(1398) = XX(1398)-JVS(11475)*XX(2676)-JVS(22184)*XX(4238)-JVS(41696)*XX(5250) - XX(1397) = XX(1397)-JVS(20397)*XX(4042)-JVS(25031)*XX(4510)-JVS(41695)*XX(5250) - XX(1396) = XX(1396)-JVS(14702)*XX(3283)-JVS(17193)*XX(3650)-JVS(41694)*XX(5250) - XX(1395) = XX(1395)-JVS(11621)*XX(2706)-JVS(23496)*XX(4373)-JVS(41693)*XX(5250) - XX(1394) = XX(1394)-JVS(32406)*XX(5084)-JVS(41692)*XX(5250)-JVS(50702)*XX(5255) - XX(1393) = XX(1393)-JVS(11968)*XX(2768)-JVS(21611)*XX(4182)-JVS(41691)*XX(5250) - XX(1392) = XX(1392)-JVS(13572)*XX(3071)-JVS(27592)*XX(4751)-JVS(41690)*XX(5250) - XX(1391) = XX(1391)-JVS(12382)*XX(2851)-JVS(21270)*XX(4143)-JVS(41689)*XX(5250) - XX(1390) = XX(1390)-JVS(7391)*XX(1803)-JVS(21457)*XX(4166)-JVS(41688)*XX(5250) - XX(1389) = XX(1389)-JVS(27809)*XX(4769)-JVS(41687)*XX(5250)-JVS(50701)*XX(5255) - XX(1388) = XX(1388)-JVS(15602)*XX(3423)-JVS(18179)*XX(3772)-JVS(41686)*XX(5250) - XX(1387) = XX(1387)-JVS(8480)*XX(2031)-JVS(21441)*XX(4164)-JVS(41685)*XX(5250) - XX(1386) = XX(1386)-JVS(16325)*XX(3542)-JVS(41684)*XX(5250)-JVS(50700)*XX(5255) - XX(1385) = XX(1385)-JVS(7872)*XX(1903)-JVS(17154)*XX(3645)-JVS(41683)*XX(5250) - XX(1384) = XX(1384)-JVS(6913)*XX(1706)-JVS(41682)*XX(5250)-JVS(50699)*XX(5255) - XX(1383) = XX(1383)-JVS(18094)*XX(3761)-JVS(29346)*XX(4898)-JVS(41681)*XX(5250) - XX(1382) = XX(1382)-JVS(17491)*XX(3688)-JVS(19593)*XX(3946)-JVS(41680)*XX(5250) - XX(1381) = XX(1381)-JVS(11047)*XX(2591)-JVS(19821)*XX(3974)-JVS(41679)*XX(5250) - XX(1380) = XX(1380)-JVS(32770)*XX(5101)-JVS(33357)*XX(5129)-JVS(41678)*XX(5250) - XX(1379) = XX(1379)-JVS(12986)*XX(2963)-JVS(21791)*XX(4200)-JVS(41677)*XX(5250) - XX(1378) = XX(1378)-JVS(26772)*XX(4680)-JVS(31165)*XX(5011)-JVS(41676)*XX(5250) - XX(1377) = XX(1377)-JVS(13579)*XX(3072)-JVS(19933)*XX(3987)-JVS(41675)*XX(5250) - XX(1376) = XX(1376)-JVS(15254)*XX(3375)-JVS(24414)*XX(4458)-JVS(41674)*XX(5250) - XX(1375) = XX(1375)-JVS(8068)*XX(1945)-JVS(15300)*XX(3382)-JVS(41673)*XX(5250) - XX(1374) = XX(1374)-JVS(18148)*XX(3768)-JVS(19050)*XX(3881)-JVS(41672)*XX(5250) - XX(1373) = XX(1373)-JVS(14522)*XX(3247)-JVS(33420)*XX(5131)-JVS(41671)*XX(5250) - XX(1372) = XX(1372)-JVS(14521)*XX(3247)-JVS(33419)*XX(5131)-JVS(41670)*XX(5250) - XX(1371) = XX(1371)-JVS(13186)*XX(2997)-JVS(18787)*XX(3850)-JVS(41669)*XX(5250) - XX(1370) = XX(1370)-JVS(22918)*XX(4311)-JVS(26494)*XX(4654)-JVS(41668)*XX(5250) - XX(1369) = XX(1369)-JVS(30935)*XX(5000)-JVS(41667)*XX(5250)-JVS(50698)*XX(5255) - XX(1368) = XX(1368)-JVS(21769)*XX(4198)-JVS(41666)*XX(5250)-JVS(48023)*XX(5253) - XX(1367) = XX(1367)-JVS(10376)*XX(2457)-JVS(21072)*XX(4119)-JVS(41665)*XX(5250) - XX(1366) = XX(1366)-JVS(20367)*XX(4039)-JVS(26736)*XX(4676)-JVS(41664)*XX(5250) - XX(1365) = XX(1365)-JVS(8805)*XX(2100)-JVS(31848)*XX(5050)-JVS(41663)*XX(5250) - XX(1364) = XX(1364)-JVS(16649)*XX(3586)-JVS(23190)*XX(4337)-JVS(41662)*XX(5250) - XX(1363) = XX(1363)-JVS(38018)*XX(5230)-JVS(41661)*XX(5250)-JVS(48022)*XX(5253) - XX(1362) = XX(1362)-JVS(12958)*XX(2959)-JVS(21329)*XX(4151)-JVS(41660)*XX(5250) - XX(1361) = XX(1361)-JVS(20240)*XX(4023)-JVS(26339)*XX(4639)-JVS(41659)*XX(5250) - XX(1360) = XX(1360)-JVS(13134)*XX(2989)-JVS(21703)*XX(4191)-JVS(41658)*XX(5250) - XX(1359) = XX(1359)-JVS(21968)*XX(4218)-JVS(25298)*XX(4536)-JVS(41657)*XX(5250) - XX(1358) = XX(1358)-JVS(13225)*XX(3004)-JVS(22953)*XX(4314)-JVS(41656)*XX(5250) - XX(1357) = XX(1357)-JVS(24642)*XX(4482)-JVS(28029)*XX(4792)-JVS(41655)*XX(5250) - XX(1356) = XX(1356)-JVS(28436)*XX(4823)-JVS(41654)*XX(5250)-JVS(50697)*XX(5255) - XX(1355) = XX(1355)-JVS(23515)*XX(4375)-JVS(23525)*XX(4376)-JVS(41653)*XX(5250) - XX(1354) = XX(1354)-JVS(24662)*XX(4483)-JVS(41652)*XX(5250)-JVS(50696)*XX(5255) - XX(1353) = XX(1353)-JVS(10351)*XX(2452)-JVS(19669)*XX(3955)-JVS(41651)*XX(5250) - XX(1352) = XX(1352)-JVS(8191)*XX(1971)-JVS(31836)*XX(5049)-JVS(41650)*XX(5250) - XX(1351) = XX(1351)-JVS(6836)*XX(1689)-JVS(30761)*XX(4987)-JVS(41649)*XX(5250) - XX(1350) = XX(1350)-JVS(23483)*XX(4371)-JVS(32240)*XX(5073)-JVS(41648)*XX(5250) - XX(1349) = XX(1349)-JVS(8624)*XX(2060)-JVS(21577)*XX(4179)-JVS(41647)*XX(5250) - XX(1348) = XX(1348)-JVS(23983)*XX(4418)-JVS(26545)*XX(4659)-JVS(41646)*XX(5250) - XX(1347) = XX(1347)-JVS(21047)*XX(4116)-JVS(31901)*XX(5054)-JVS(41645)*XX(5250) - XX(1346) = XX(1346)-JVS(24004)*XX(4420)-JVS(37379)*XX(5222)-JVS(41644)*XX(5250) - XX(1345) = XX(1345)-JVS(13014)*XX(2967)-JVS(19828)*XX(3975)-JVS(41643)*XX(5250) - XX(1344) = XX(1344)-JVS(23264)*XX(4346)-JVS(41642)*XX(5250)-JVS(50695)*XX(5255) - XX(1343) = XX(1343)-JVS(29229)*XX(4887)-JVS(41641)*XX(5250)-JVS(50694)*XX(5255) - XX(1342) = XX(1342)-JVS(15218)*XX(3371)-JVS(24850)*XX(4498)-JVS(41640)*XX(5250) - XX(1341) = XX(1341)-JVS(7334)*XX(1792)-JVS(30406)*XX(4964)-JVS(41639)*XX(5250) - XX(1340) = XX(1340)-JVS(7575)*XX(1838)-JVS(32100)*XX(5064)-JVS(41638)*XX(5250) - XX(1339) = XX(1339)-JVS(13079)*XX(2979)-JVS(22060)*XX(4226)-JVS(41637)*XX(5250) - XX(1338) = XX(1338)-JVS(13497)*XX(3058)-JVS(24108)*XX(4429)-JVS(41636)*XX(5250) - XX(1337) = XX(1337)-JVS(10718)*XX(2528)-JVS(16900)*XX(3616)-JVS(41635)*XX(5250) - XX(1336) = XX(1336)-JVS(17573)*XX(3698)-JVS(26475)*XX(4652)-JVS(41634)*XX(5250) - XX(1335) = XX(1335)-JVS(17952)*XX(3746)-JVS(21924)*XX(4214)-JVS(41633)*XX(5250) - XX(1334) = XX(1334)-JVS(40546)*XX(5248)-JVS(41632)*XX(5250)-JVS(48021)*XX(5253) - XX(1333) = XX(1333)-JVS(13000)*XX(2965)-JVS(19220)*XX(3902)-JVS(41631)*XX(5250) - XX(1332) = XX(1332)-JVS(30108)*XX(4944)-JVS(36912)*XX(5208)-JVS(41630)*XX(5250) - XX(1331) = XX(1331)-JVS(21424)*XX(4162)-JVS(27553)*XX(4748)-JVS(41629)*XX(5250) - XX(1330) = XX(1330)-JVS(30828)*XX(4992)-JVS(41628)*XX(5250)-JVS(50693)*XX(5255) - XX(1329) = XX(1329)-JVS(15588)*XX(3421)-JVS(22174)*XX(4237)-JVS(41627)*XX(5250) - XX(1328) = XX(1328)-JVS(28405)*XX(4820)-JVS(30590)*XX(4978)-JVS(41626)*XX(5250) - XX(1327) = XX(1327)-JVS(25093)*XX(4517)-JVS(28809)*XX(4852)-JVS(41625)*XX(5250) - XX(1326) = XX(1326)-JVS(9954)*XX(2361)-JVS(27263)*XX(4722)-JVS(41624)*XX(5250) - XX(1325) = XX(1325)-JVS(6446)*XX(1605)-JVS(30242)*XX(4953)-JVS(41623)*XX(5250) - XX(1324) = XX(1324)-JVS(17910)*XX(3741)-JVS(25743)*XX(4580)-JVS(41622)*XX(5250) - XX(1323) = XX(1323)-JVS(13096)*XX(2982)-JVS(18254)*XX(3780)-JVS(41621)*XX(5250) - XX(1322) = XX(1322)-JVS(13210)*XX(3001)-JVS(21958)*XX(4217)-JVS(41620)*XX(5250) - XX(1321) = XX(1321)-JVS(18879)*XX(3861)-JVS(41619)*XX(5250)-JVS(48020)*XX(5253) - XX(1320) = XX(1320)-JVS(27786)*XX(4768)-JVS(31033)*XX(5004)-JVS(41618)*XX(5250) - XX(1319) = XX(1319)-JVS(37123)*XX(5214)-JVS(39345)*XX(5235)-JVS(41617)*XX(5250) - XX(1318) = XX(1318)-JVS(15361)*XX(3390)-JVS(17005)*XX(3629)-JVS(41616)*XX(5250) - XX(1317) = XX(1317)-JVS(20569)*XX(4059)-JVS(31075)*XX(5006)-JVS(41615)*XX(5250) - XX(1316) = XX(1316)-JVS(24144)*XX(4432)-JVS(41614)*XX(5250)-JVS(50692)*XX(5255) - XX(1315) = XX(1315)-JVS(9781)*XX(2322)-JVS(15192)*XX(3368)-JVS(41613)*XX(5250) - XX(1314) = XX(1314)-JVS(13401)*XX(3039)-JVS(19068)*XX(3883)-JVS(41612)*XX(5250) - XX(1313) = XX(1313)-JVS(13541)*XX(3066)-JVS(16824)*XX(3607)-JVS(41611)*XX(5250) - XX(1312) = XX(1312)-JVS(19309)*XX(3913)-JVS(22578)*XX(4278)-JVS(41610)*XX(5250) - XX(1311) = XX(1311)-JVS(34253)*XX(5159)-JVS(41609)*XX(5250)-JVS(48019)*XX(5253) - XX(1310) = XX(1310)-JVS(13636)*XX(3082)-JVS(14942)*XX(3332)-JVS(41608)*XX(5250) - XX(1309) = XX(1309)-JVS(16556)*XX(3574)-JVS(25041)*XX(4511)-JVS(41607)*XX(5250) - XX(1308) = XX(1308)-JVS(20224)*XX(4021)-JVS(28006)*XX(4790)-JVS(41606)*XX(5250) - XX(1307) = XX(1307)-JVS(15226)*XX(3372)-JVS(18592)*XX(3824)-JVS(41605)*XX(5250) - XX(1306) = XX(1306)-JVS(12232)*XX(2821)-JVS(18911)*XX(3865)-JVS(41604)*XX(5250) - XX(1305) = XX(1305)-JVS(7714)*XX(1867)-JVS(19201)*XX(3900)-JVS(41603)*XX(5250) - XX(1304) = XX(1304)-JVS(8900)*XX(2122)-JVS(21099)*XX(4122)-JVS(41602)*XX(5250) - XX(1303) = XX(1303)-JVS(20607)*XX(4063)-JVS(24404)*XX(4457)-JVS(41601)*XX(5250) - XX(1302) = XX(1302)-JVS(19563)*XX(3942)-JVS(25733)*XX(4579)-JVS(41600)*XX(5250) - XX(1301) = XX(1301)-JVS(12739)*XX(2919)-JVS(19523)*XX(3937)-JVS(41599)*XX(5250) - XX(1300) = XX(1300)-JVS(16747)*XX(3598)-JVS(28290)*XX(4809)-JVS(41598)*XX(5250) - XX(1299) = XX(1299)-JVS(26822)*XX(4685)-JVS(30827)*XX(4992)-JVS(41597)*XX(5250) - XX(1298) = XX(1298)-JVS(11643)*XX(2710)-JVS(18721)*XX(3843)-JVS(41596)*XX(5250) - XX(1297) = XX(1297)-JVS(21653)*XX(4186)-JVS(41595)*XX(5250)-JVS(50691)*XX(5255) - XX(1296) = XX(1296)-JVS(24661)*XX(4483)-JVS(29281)*XX(4892)-JVS(41594)*XX(5250) - XX(1295) = XX(1295)-JVS(8004)*XX(1931)-JVS(12999)*XX(2965)-JVS(41593)*XX(5250) - XX(1294) = XX(1294)-JVS(20550)*XX(4057)-JVS(24375)*XX(4454)-JVS(41592)*XX(5250) - XX(1293) = XX(1293)-JVS(11915)*XX(2758)-JVS(20303)*XX(4031)-JVS(41591)*XX(5250) - XX(1292) = XX(1292)-JVS(12532)*XX(2881)-JVS(21492)*XX(4170)-JVS(41590)*XX(5250) - XX(1291) = XX(1291)-JVS(26611)*XX(4665)-JVS(33061)*XX(5116)-JVS(41589)*XX(5250) - XX(1290) = XX(1290)-JVS(27693)*XX(4760)-JVS(34575)*XX(5163)-JVS(41588)*XX(5250) - XX(1289) = XX(1289)-JVS(14433)*XX(3234)-JVS(36964)*XX(5210)-JVS(41587)*XX(5250) - XX(1288) = XX(1288)-JVS(10590)*XX(2502)-JVS(21018)*XX(4112)-JVS(41586)*XX(5250) - XX(1287) = XX(1287)-JVS(8404)*XX(2015)-JVS(17132)*XX(3643)-JVS(41585)*XX(5250) - XX(1286) = XX(1286)-JVS(6566)*XX(1628)-JVS(27745)*XX(4764)-JVS(41584)*XX(5250) - XX(1285) = XX(1285)-JVS(20797)*XX(4087)-JVS(22359)*XX(4255)-JVS(41583)*XX(5250) - XX(1284) = XX(1284)-JVS(17656)*XX(3710)-JVS(41582)*XX(5250)-JVS(48018)*XX(5253) - XX(1283) = XX(1283)-JVS(20357)*XX(4038)-JVS(23197)*XX(4338)-JVS(41581)*XX(5250) - XX(1282) = XX(1282)-JVS(17381)*XX(3674)-JVS(19554)*XX(3941)-JVS(41580)*XX(5250) - XX(1281) = XX(1281)-JVS(12567)*XX(2889)-JVS(15315)*XX(3384)-JVS(41579)*XX(5250) - XX(1280) = XX(1280)-JVS(17850)*XX(3734)-JVS(41578)*XX(5250)-JVS(50690)*XX(5255) - XX(1279) = XX(1279)-JVS(20180)*XX(4015)-JVS(26431)*XX(4648)-JVS(41577)*XX(5250) - XX(1278) = XX(1278)-JVS(11775)*XX(2733)-JVS(21830)*XX(4204)-JVS(41576)*XX(5250) - XX(1277) = XX(1277)-JVS(18854)*XX(3858)-JVS(31315)*XX(5021)-JVS(41575)*XX(5250) - XX(1276) = XX(1276)-JVS(16755)*XX(3599)-JVS(20074)*XX(4004)-JVS(41574)*XX(5250) - XX(1275) = XX(1275)-JVS(19836)*XX(3976)-JVS(28259)*XX(4806)-JVS(41573)*XX(5250) - XX(1274) = XX(1274)-JVS(26513)*XX(4656)-JVS(28336)*XX(4813)-JVS(41572)*XX(5250) - XX(1273) = XX(1273)-JVS(12918)*XX(2952)-JVS(22557)*XX(4276)-JVS(41571)*XX(5250) - XX(1272) = XX(1272)-JVS(10884)*XX(2561)-JVS(19627)*XX(3950)-JVS(41570)*XX(5250) - XX(1271) = XX(1271)-JVS(12393)*XX(2853)-JVS(25251)*XX(4532)-JVS(41569)*XX(5250) - XX(1270) = XX(1270)-JVS(9841)*XX(2334)-JVS(15523)*XX(3412)-JVS(41568)*XX(5250) - XX(1269) = XX(1269)-JVS(39851)*XX(5244)-JVS(41567)*XX(5250)-JVS(50689)*XX(5255) - XX(1268) = XX(1268)-JVS(12965)*XX(2960)-JVS(24172)*XX(4435)-JVS(41566)*XX(5250) - XX(1267) = XX(1267)-JVS(13838)*XX(3118)-JVS(32933)*XX(5108)-JVS(41565)*XX(5250) - XX(1266) = XX(1266)-JVS(9276)*XX(2207)-JVS(19884)*XX(3981)-JVS(41564)*XX(5250) - XX(1265) = XX(1265)-JVS(10013)*XX(2374)-JVS(28688)*XX(4844)-JVS(41563)*XX(5250) - XX(1264) = XX(1264)-JVS(8493)*XX(2033)-JVS(32226)*XX(5072)-JVS(41562)*XX(5250) - XX(1263) = XX(1263)-JVS(8283)*XX(1989)-JVS(21384)*XX(4157)-JVS(41561)*XX(5250) - XX(1262) = XX(1262)-JVS(18844)*XX(3857)-JVS(29546)*XX(4911)-JVS(41560)*XX(5250) - XX(1261) = XX(1261)-JVS(36805)*XX(5203)-JVS(41559)*XX(5250)-JVS(48017)*XX(5253) - XX(1260) = XX(1260)-JVS(10031)*XX(2377)-JVS(21321)*XX(4150)-JVS(41558)*XX(5250) - XX(1259) = XX(1259)-JVS(13830)*XX(3117)-JVS(18003)*XX(3751)-JVS(41557)*XX(5250) - XX(1258) = XX(1258)-JVS(8535)*XX(2041)-JVS(32170)*XX(5069)-JVS(41556)*XX(5250) - XX(1257) = XX(1257)-JVS(27604)*XX(4752)-JVS(41555)*XX(5250)-JVS(50688)*XX(5255) - XX(1256) = XX(1256)-JVS(27975)*XX(4787)-JVS(41554)*XX(5250)-JVS(50687)*XX(5255) - XX(1255) = XX(1255)-JVS(11440)*XX(2668)-JVS(22838)*XX(4303)-JVS(41553)*XX(5250) - XX(1254) = XX(1254)-JVS(26283)*XX(4633)-JVS(29455)*XX(4905)-JVS(41552)*XX(5250) - XX(1253) = XX(1253)-JVS(11027)*XX(2588)-JVS(22265)*XX(4246)-JVS(41551)*XX(5250) - XX(1252) = XX(1252)-JVS(6801)*XX(1680)-JVS(17778)*XX(3725)-JVS(41550)*XX(5250) - XX(1251) = XX(1251)-JVS(32717)*XX(5099)-JVS(36879)*XX(5206)-JVS(41549)*XX(5250) - XX(1250) = XX(1250)-JVS(17929)*XX(3743)-JVS(26782)*XX(4681)-JVS(41548)*XX(5250) - XX(1249) = XX(1249)-JVS(25444)*XX(4548)-JVS(31243)*XX(5016)-JVS(41547)*XX(5250) - XX(1248) = XX(1248)-JVS(24550)*XX(4472)-JVS(29796)*XX(4929)-JVS(41546)*XX(5250) - XX(1247) = XX(1247)-JVS(17604)*XX(3703)-JVS(26329)*XX(4638)-JVS(41545)*XX(5250) - XX(1246) = XX(1246)-JVS(23584)*XX(4383)-JVS(38947)*XX(5233)-JVS(41544)*XX(5250) - XX(1245) = XX(1245)-JVS(21509)*XX(4172)-JVS(27744)*XX(4764)-JVS(41543)*XX(5250) - XX(1244) = XX(1244)-JVS(24120)*XX(4430)-JVS(33481)*XX(5135)-JVS(41542)*XX(5250) - XX(1243) = XX(1243)-JVS(20316)*XX(4033)-JVS(24540)*XX(4471)-JVS(41541)*XX(5250) - XX(1242) = XX(1242)-JVS(39200)*XX(5234)-JVS(39850)*XX(5244)-JVS(41540)*XX(5250) - XX(1241) = XX(1241)-JVS(10193)*XX(2415)-JVS(20832)*XX(4091)-JVS(41539)*XX(5250) - XX(1240) = XX(1240)-JVS(30405)*XX(4964)-JVS(38142)*XX(5231)-JVS(48016)*XX(5253) - XX(1239) = XX(1239)-JVS(7966)*XX(1923)-JVS(10951)*XX(2574)-JVS(41538)*XX(5250) - XX(1238) = XX(1238)-JVS(31032)*XX(5004)-JVS(38141)*XX(5231)-JVS(41537)*XX(5250) - XX(1237) = XX(1237)-JVS(31074)*XX(5006)-JVS(32628)*XX(5095)-JVS(41536)*XX(5250) - XX(1236) = XX(1236)-JVS(24510)*XX(4468)-JVS(30802)*XX(4991)-JVS(41535)*XX(5250) - XX(1235) = XX(1235)-JVS(12754)*XX(2922)-JVS(17500)*XX(3689)-JVS(41534)*XX(5250) - XX(1234) = XX(1234)-JVS(29103)*XX(4874)-JVS(30335)*XX(4959)-JVS(41533)*XX(5250) - XX(1233) = XX(1233)-JVS(18118)*XX(3764)-JVS(24132)*XX(4431)-JVS(41532)*XX(5250) - XX(1232) = XX(1232)-JVS(16301)*XX(3539)-JVS(27492)*XX(4743)-JVS(41531)*XX(5250) - XX(1231) = XX(1231)-JVS(18206)*XX(3775)-JVS(41530)*XX(5250)-JVS(50686)*XX(5255) - XX(1230) = XX(1230)-JVS(20232)*XX(4022)-JVS(28161)*XX(4798)-JVS(41529)*XX(5250) - XX(1229) = XX(1229)-JVS(15887)*XX(3477)-JVS(41528)*XX(5250)-JVS(50685)*XX(5255) - XX(1228) = XX(1228)-JVS(20384)*XX(4041)-JVS(21595)*XX(4181)-JVS(41527)*XX(5250) - XX(1227) = XX(1227)-JVS(20348)*XX(4037)-JVS(24807)*XX(4494)-JVS(41526)*XX(5250) - XX(1226) = XX(1226)-JVS(22350)*XX(4254)-JVS(24335)*XX(4450)-JVS(41525)*XX(5250) - XX(1225) = XX(1225)-JVS(8506)*XX(2035)-JVS(24783)*XX(4493)-JVS(41524)*XX(5250) - XX(1224) = XX(1224)-JVS(10540)*XX(2492)-JVS(27875)*XX(4775)-JVS(41523)*XX(5250) - XX(1223) = XX(1223)-JVS(15560)*XX(3417)-JVS(24163)*XX(4434)-JVS(41522)*XX(5250) - XX(1222) = XX(1222)-JVS(37335)*XX(5221)-JVS(41521)*XX(5250)-JVS(48015)*XX(5253) - XX(1221) = XX(1221)-JVS(20340)*XX(4036)-JVS(28150)*XX(4797)-JVS(41520)*XX(5250) - XX(1220) = XX(1220)-JVS(11082)*XX(2596)-JVS(28793)*XX(4851)-JVS(41519)*XX(5250) - XX(1219) = XX(1219)-JVS(24482)*XX(4465)-JVS(25124)*XX(4520)-JVS(41518)*XX(5250) - XX(1218) = XX(1218)-JVS(14510)*XX(3246)-JVS(17176)*XX(3648)-JVS(41517)*XX(5250) - XX(1217) = XX(1217)-JVS(9077)*XX(2163)-JVS(22994)*XX(4318)-JVS(41516)*XX(5250) - XX(1216) = XX(1216)-JVS(18543)*XX(3818)-JVS(41515)*XX(5250)-JVS(48014)*XX(5253) - XX(1215) = XX(1215)-JVS(12225)*XX(2820)-JVS(27582)*XX(4750)-JVS(41514)*XX(5250) - XX(1214) = XX(1214)-JVS(7642)*XX(1852)-JVS(25742)*XX(4580)-JVS(41513)*XX(5250) - XX(1213) = XX(1213)-JVS(13270)*XX(3013)-JVS(22593)*XX(4279)-JVS(41512)*XX(5250) - XX(1212) = XX(1212)-JVS(9198)*XX(2190)-JVS(19433)*XX(3926)-JVS(41511)*XX(5250) - XX(1211) = XX(1211)-JVS(13675)*XX(3089)-JVS(18496)*XX(3812)-JVS(41510)*XX(5250) - XX(1210) = XX(1210)-JVS(25054)*XX(4513)-JVS(41509)*XX(5250)-JVS(50684)*XX(5255) - XX(1209) = XX(1209)-JVS(22756)*XX(4295)-JVS(24827)*XX(4496)-JVS(41508)*XX(5250) - XX(1208) = XX(1208)-JVS(20578)*XX(4060)-JVS(22017)*XX(4222)-JVS(41507)*XX(5250) - XX(1207) = XX(1207)-JVS(20893)*XX(4099)-JVS(25718)*XX(4577)-JVS(41506)*XX(5250) - XX(1206) = XX(1206)-JVS(21768)*XX(4198)-JVS(27808)*XX(4769)-JVS(41505)*XX(5250) - XX(1205) = XX(1205)-JVS(25633)*XX(4567)-JVS(37083)*XX(5212)-JVS(41504)*XX(5250) - XX(1204) = XX(1204)-JVS(11035)*XX(2589)-JVS(18073)*XX(3759)-JVS(41503)*XX(5250) - XX(1203) = XX(1203)-JVS(18093)*XX(3761)-JVS(18681)*XX(3838)-JVS(41502)*XX(5250) - XX(1202) = XX(1202)-JVS(18288)*XX(3784)-JVS(20396)*XX(4042)-JVS(41501)*XX(5250) - XX(1201) = XX(1201)-JVS(34755)*XX(5171)-JVS(36127)*XX(5197)-JVS(41500)*XX(5250) - XX(1200) = XX(1200)-JVS(18534)*XX(3817)-JVS(18542)*XX(3818)-JVS(41499)*XX(5250) - XX(1199) = XX(1199)-JVS(18706)*XX(3841)-JVS(40452)*XX(5245)-JVS(41498)*XX(5250) - XX(1198) = XX(1198)-JVS(22183)*XX(4238)-JVS(23971)*XX(4417)-JVS(41497)*XX(5250) - XX(1197) = XX(1197)-JVS(21071)*XX(4119)-JVS(21517)*XX(4173)-JVS(41496)*XX(5250) - XX(1196) = XX(1196)-JVS(22317)*XX(4251)-JVS(32520)*XX(5088)-JVS(41495)*XX(5250) - XX(1195) = XX(1195)-JVS(19635)*XX(3951)-JVS(39569)*XX(5240)-JVS(41494)*XX(5250) - XX(1194) = XX(1194)-JVS(17701)*XX(3716)-JVS(41493)*XX(5250)-JVS(50683)*XX(5255) - XX(1193) = XX(1193)-JVS(28583)*XX(4836)-JVS(28635)*XX(4841)-JVS(41492)*XX(5250) - XX(1192) = XX(1192)-JVS(5936)*XX(1483)-JVS(31597)*XX(5038)-JVS(41491)*XX(5250) - XX(1191) = XX(1191)-JVS(6462)*XX(1607)-JVS(9231)*XX(2197)-JVS(41490)*XX(5250) - XX(1190) = XX(1190)-JVS(11818)*XX(2741)-JVS(22050)*XX(4225)-JVS(41489)*XX(5250) - XX(1189) = XX(1189)-JVS(21177)*XX(4131)-JVS(41488)*XX(5250)-JVS(50682)*XX(5255) - XX(1188) = XX(1188)-JVS(20189)*XX(4016)-JVS(24609)*XX(4479)-JVS(41487)*XX(5250) - XX(1187) = XX(1187)-JVS(10838)*XX(2551)-JVS(22985)*XX(4317)-JVS(41486)*XX(5250) - XX(1186) = XX(1186)-JVS(12636)*XX(2902)-JVS(21645)*XX(4185)-JVS(41485)*XX(5250) - XX(1185) = XX(1185)-JVS(12103)*XX(2795)-JVS(36963)*XX(5210)-JVS(41484)*XX(5250) - XX(1184) = XX(1184)-JVS(21867)*XX(4208)-JVS(41483)*XX(5250)-JVS(48013)*XX(5253) - XX(1183) = XX(1183)-JVS(11849)*XX(2746)-JVS(19090)*XX(3886)-JVS(41482)*XX(5250) - XX(1182) = XX(1182)-JVS(29702)*XX(4921)-JVS(30037)*XX(4940)-JVS(41481)*XX(5250) - XX(1181) = XX(1181)-JVS(7167)*XX(1756)-JVS(12575)*XX(2890)-JVS(41480)*XX(5250) - XX(1180) = XX(1180)-JVS(25074)*XX(4515)-JVS(33967)*XX(5147)-JVS(41479)*XX(5250) - XX(1179) = XX(1179)-JVS(22284)*XX(4248)-JVS(41478)*XX(5250)-JVS(50681)*XX(5255) - XX(1178) = XX(1178)-JVS(19211)*XX(3901)-JVS(36893)*XX(5207)-JVS(41477)*XX(5250) - XX(1177) = XX(1177)-JVS(11257)*XX(2634)-JVS(19029)*XX(3879)-JVS(41476)*XX(5250) - XX(1176) = XX(1176)-JVS(26230)*XX(4628)-JVS(27974)*XX(4787)-JVS(41475)*XX(5250) - XX(1175) = XX(1175)-JVS(30145)*XX(4947)-JVS(41474)*XX(5250)-JVS(50680)*XX(5255) - XX(1174) = XX(1174)-JVS(26726)*XX(4675)-JVS(41473)*XX(5250)-JVS(50679)*XX(5255) - XX(1173) = XX(1173)-JVS(25456)*XX(4549)-JVS(30703)*XX(4984)-JVS(41472)*XX(5250) - XX(1172) = XX(1172)-JVS(32583)*XX(5093)-JVS(41471)*XX(5250)-JVS(48012)*XX(5253) - XX(1171) = XX(1171)-JVS(7150)*XX(1754)-JVS(17745)*XX(3721)-JVS(41470)*XX(5250) - XX(1170) = XX(1170)-JVS(10993)*XX(2581)-JVS(19813)*XX(3973)-JVS(41469)*XX(5250) - XX(1169) = XX(1169)-JVS(14917)*XX(3329)-JVS(24472)*XX(4464)-JVS(41468)*XX(5250) - XX(1168) = XX(1168)-JVS(9610)*XX(2284)-JVS(19349)*XX(3917)-JVS(41467)*XX(5250) - XX(1167) = XX(1167)-JVS(14993)*XX(3339)-JVS(16809)*XX(3605)-JVS(41466)*XX(5250) - XX(1166) = XX(1166)-JVS(11792)*XX(2736)-JVS(22648)*XX(4285)-JVS(41465)*XX(5250) - XX(1165) = XX(1165)-JVS(7158)*XX(1755)-JVS(33717)*XX(5140)-JVS(41464)*XX(5250) - XX(1164) = XX(1164)-JVS(18084)*XX(3760)-JVS(21693)*XX(4190)-JVS(41463)*XX(5250) - XX(1163) = XX(1163)-JVS(17693)*XX(3715)-JVS(41462)*XX(5250)-JVS(50678)*XX(5255) - XX(1162) = XX(1162)-JVS(17870)*XX(3736)-JVS(17878)*XX(3737)-JVS(41461)*XX(5250) - XX(1161) = XX(1161)-JVS(15036)*XX(3345)-JVS(16526)*XX(3570)-JVS(41460)*XX(5250) - XX(1160) = XX(1160)-JVS(11675)*XX(2716)-JVS(15473)*XX(3405)-JVS(41459)*XX(5250) - XX(1159) = XX(1159)-JVS(15458)*XX(3403)-JVS(21465)*XX(4167)-JVS(41458)*XX(5250) - XX(1158) = XX(1158)-JVS(30186)*XX(4949)-JVS(33134)*XX(5121)-JVS(41457)*XX(5250) - XX(1157) = XX(1157)-JVS(15974)*XX(3491)-JVS(23078)*XX(4326)-JVS(41456)*XX(5250) - XX(1156) = XX(1156)-JVS(20755)*XX(4082)-JVS(24202)*XX(4438)-JVS(41455)*XX(5250) - XX(1155) = XX(1155)-JVS(18827)*XX(3855)-JVS(23005)*XX(4319)-JVS(41454)*XX(5250) - XX(1154) = XX(1154)-JVS(24585)*XX(4477)-JVS(25183)*XX(4525)-JVS(41453)*XX(5250) - XX(1153) = XX(1153)-JVS(13560)*XX(3069)-JVS(31513)*XX(5032)-JVS(41452)*XX(5250) - XX(1152) = XX(1152)-JVS(20683)*XX(4073)-JVS(24709)*XX(4487)-JVS(41451)*XX(5250) - XX(1151) = XX(1151)-JVS(34859)*XX(5176)-JVS(41450)*XX(5250)-JVS(48011)*XX(5253) - XX(1150) = XX(1150)-JVS(8751)*XX(2088)-JVS(14933)*XX(3331)-JVS(41449)*XX(5250) - XX(1149) = XX(1149)-JVS(6378)*XX(1590)-JVS(26690)*XX(4672)-JVS(41448)*XX(5250) - XX(1148) = XX(1148)-JVS(10960)*XX(2575)-JVS(22665)*XX(4287)-JVS(41447)*XX(5250) - XX(1147) = XX(1147)-JVS(6303)*XX(1572)-JVS(20839)*XX(4092)-JVS(41446)*XX(5250) - XX(1146) = XX(1146)-JVS(23891)*XX(4409)-JVS(24298)*XX(4447)-JVS(41445)*XX(5250) - XX(1145) = XX(1145)-JVS(11577)*XX(2697)-JVS(13889)*XX(3126)-JVS(41444)*XX(5250) - XX(1144) = XX(1144)-JVS(11507)*XX(2682)-JVS(22714)*XX(4292)-JVS(41443)*XX(5250) - XX(1143) = XX(1143)-JVS(8698)*XX(2076)-JVS(14040)*XX(3156)-JVS(41442)*XX(5250) - XX(1142) = XX(1142)-JVS(11840)*XX(2745)-JVS(16783)*XX(3602)-JVS(41441)*XX(5250) - XX(1141) = XX(1141)-JVS(14911)*XX(3328)-JVS(18141)*XX(3767)-JVS(41440)*XX(5250) - XX(1140) = XX(1140)-JVS(30518)*XX(4973)-JVS(41439)*XX(5250)-JVS(50677)*XX(5255) - XX(1139) = XX(1139)-JVS(6333)*XX(1579)-JVS(16428)*XX(3557)-JVS(41438)*XX(5250) - XX(1138) = XX(1138)-JVS(12328)*XX(2840)-JVS(32038)*XX(5060)-JVS(41437)*XX(5250) - XX(1137) = XX(1137)-JVS(13586)*XX(3073)-JVS(24443)*XX(4461)-JVS(41436)*XX(5250) - XX(1136) = XX(1136)-JVS(13249)*XX(3009)-JVS(16059)*XX(3504)-JVS(41435)*XX(5250) - XX(1135) = XX(1135)-JVS(20883)*XX(4098)-JVS(32388)*XX(5083)-JVS(41434)*XX(5250) - XX(1134) = XX(1134)-JVS(31101)*XX(5007)-JVS(31117)*XX(5008)-JVS(41433)*XX(5250) - XX(1133) = XX(1133)-JVS(17974)*XX(3748)-JVS(41432)*XX(5250)-JVS(50676)*XX(5255) - XX(1132) = XX(1132)-JVS(11169)*XX(2614)-JVS(31392)*XX(5026)-JVS(41431)*XX(5250) - XX(1131) = XX(1131)-JVS(7497)*XX(1822)-JVS(15018)*XX(3343)-JVS(41430)*XX(5250) - XX(1130) = XX(1130)-JVS(6673)*XX(1652)-JVS(17089)*XX(3639)-JVS(41429)*XX(5250) - XX(1129) = XX(1129)-JVS(6535)*XX(1622)-JVS(24619)*XX(4480)-JVS(41428)*XX(5250) - XX(1128) = XX(1128)-JVS(21622)*XX(4183)-JVS(23713)*XX(4394)-JVS(41427)*XX(5250) - XX(1127) = XX(1127)-JVS(15488)*XX(3407)-JVS(17804)*XX(3728)-JVS(41426)*XX(5250) - XX(1126) = XX(1126)-JVS(8682)*XX(2073)-JVS(35570)*XX(5189)-JVS(41425)*XX(5250) - XX(1125) = XX(1125)-JVS(20733)*XX(4079)-JVS(25240)*XX(4531)-JVS(41424)*XX(5250) - XX(1124) = XX(1124)-JVS(16273)*XX(3536)-JVS(41423)*XX(5250)-JVS(50675)*XX(5255) - XX(1123) = XX(1123)-JVS(15286)*XX(3380)-JVS(18198)*XX(3774)-JVS(41422)*XX(5250) - XX(1122) = XX(1122)-JVS(12499)*XX(2874)-JVS(22349)*XX(4254)-JVS(41421)*XX(5250) - XX(1121) = XX(1121)-JVS(22027)*XX(4223)-JVS(41420)*XX(5250)-JVS(50674)*XX(5255) - XX(1120) = XX(1120)-JVS(18035)*XX(3755)-JVS(41419)*XX(5250)-JVS(50673)*XX(5255) - XX(1119) = XX(1119)-JVS(6205)*XX(1550)-JVS(24245)*XX(4442)-JVS(41418)*XX(5250) - XX(1118) = XX(1118)-JVS(16733)*XX(3596)-JVS(24061)*XX(4425)-JVS(41417)*XX(5250) - XX(1117) = XX(1117)-JVS(11807)*XX(2739)-JVS(21673)*XX(4188)-JVS(41416)*XX(5250) - XX(1116) = XX(1116)-JVS(11138)*XX(2607)-JVS(24481)*XX(4465)-JVS(41415)*XX(5250) - XX(1115) = XX(1115)-JVS(11926)*XX(2760)-JVS(22505)*XX(4270)-JVS(41414)*XX(5250) - XX(1114) = XX(1114)-JVS(28771)*XX(4850)-JVS(30073)*XX(4942)-JVS(41413)*XX(5250) - XX(1113) = XX(1113)-JVS(39199)*XX(5234)-JVS(41412)*XX(5250)-JVS(50672)*XX(5255) - XX(1112) = XX(1112)-JVS(15945)*XX(3486)-JVS(16503)*XX(3567)-JVS(41411)*XX(5250) - XX(1111) = XX(1111)-JVS(32880)*XX(5106)-JVS(41410)*XX(5250)-JVS(50671)*XX(5255) - XX(1110) = XX(1110)-JVS(35734)*XX(5193)-JVS(41409)*XX(5250)-JVS(48010)*XX(5253) - XX(1109) = XX(1109)-JVS(20667)*XX(4071)-JVS(30732)*XX(4986)-JVS(41408)*XX(5250) - XX(1108) = XX(1108)-JVS(7888)*XX(1906)-JVS(25167)*XX(4524)-JVS(41407)*XX(5250) - XX(1107) = XX(1107)-JVS(23228)*XX(4342)-JVS(31418)*XX(5027)-JVS(41406)*XX(5250) - XX(1106) = XX(1106)-JVS(23561)*XX(4380)-JVS(27640)*XX(4755)-JVS(41405)*XX(5250) - XX(1105) = XX(1105)-JVS(11761)*XX(2731)-JVS(22529)*XX(4273)-JVS(41404)*XX(5250) - XX(1104) = XX(1104)-JVS(12732)*XX(2918)-JVS(22723)*XX(4293)-JVS(41403)*XX(5250) - XX(1103) = XX(1103)-JVS(13774)*XX(3107)-JVS(16817)*XX(3606)-JVS(41402)*XX(5250) - XX(1102) = XX(1102)-JVS(7908)*XX(1910)-JVS(36012)*XX(5194)-JVS(41401)*XX(5250) - XX(1101) = XX(1101)-JVS(13534)*XX(3065)-JVS(22777)*XX(4297)-JVS(41400)*XX(5250) - XX(1100) = XX(1100)-JVS(31881)*XX(5053)-JVS(33524)*XX(5137)-JVS(41399)*XX(5250) - XX(1099) = XX(1099)-JVS(11490)*XX(2679)-JVS(30801)*XX(4991)-JVS(41398)*XX(5250) - XX(1098) = XX(1098)-JVS(12200)*XX(2816)-JVS(28792)*XX(4851)-JVS(41397)*XX(5250) - XX(1097) = XX(1097)-JVS(26350)*XX(4640)-JVS(41396)*XX(5250)-JVS(50670)*XX(5255) - XX(1096) = XX(1096)-JVS(10757)*XX(2536)-JVS(22456)*XX(4265)-JVS(41395)*XX(5250) - XX(1095) = XX(1095)-JVS(26155)*XX(4622)-JVS(26621)*XX(4666)-JVS(41394)*XX(5250) - XX(1094) = XX(1094)-JVS(7041)*XX(1732)-JVS(14834)*XX(3309)-JVS(41393)*XX(5250) - XX(1093) = XX(1093)-JVS(18739)*XX(3845)-JVS(25408)*XX(4545)-JVS(41392)*XX(5250) - XX(1092) = XX(1092)-JVS(16489)*XX(3565)-JVS(25274)*XX(4534)-JVS(41391)*XX(5250) - XX(1091) = XX(1091)-JVS(20032)*XX(3999)-JVS(28017)*XX(4791)-JVS(41390)*XX(5250) - XX(1090) = XX(1090)-JVS(29882)*XX(4934)-JVS(33121)*XX(5120)-JVS(41389)*XX(5250) - XX(1089) = XX(1089)-JVS(6873)*XX(1696)-JVS(26596)*XX(4664)-JVS(41388)*XX(5250) - XX(1088) = XX(1088)-JVS(12903)*XX(2949)-JVS(28355)*XX(4815)-JVS(41387)*XX(5250) - XX(1087) = XX(1087)-JVS(21760)*XX(4197)-JVS(41386)*XX(5250)-JVS(50669)*XX(5255) - XX(1086) = XX(1086)-JVS(27452)*XX(4740)-JVS(41385)*XX(5250)-JVS(48009)*XX(5253) - XX(1085) = XX(1085)-JVS(27677)*XX(4759)-JVS(29118)*XX(4875)-JVS(41384)*XX(5250) - XX(1084) = XX(1084)-JVS(30982)*XX(5001)-JVS(41383)*XX(5250)-JVS(50668)*XX(5255) - XX(1083) = XX(1083)-JVS(15457)*XX(3403)-JVS(41382)*XX(5250)-JVS(48008)*XX(5253) - XX(1082) = XX(1082)-JVS(17490)*XX(3688)-JVS(29147)*XX(4878)-JVS(41381)*XX(5250) - XX(1081) = XX(1081)-JVS(16361)*XX(3547)-JVS(41380)*XX(5250)-JVS(48007)*XX(5253) - XX(1080) = XX(1080)-JVS(10453)*XX(2473)-JVS(19104)*XX(3888)-JVS(41379)*XX(5250) - XX(1079) = XX(1079)-JVS(14088)*XX(3166)-JVS(17828)*XX(3731)-JVS(41378)*XX(5250) - XX(1078) = XX(1078)-JVS(34275)*XX(5160)-JVS(41377)*XX(5250)-JVS(48006)*XX(5253) - XX(1077) = XX(1077)-JVS(9703)*XX(2304)-JVS(11695)*XX(2719)-JVS(41376)*XX(5250) - XX(1076) = XX(1076)-JVS(20484)*XX(4050)-JVS(20495)*XX(4051)-JVS(41375)*XX(5250) - XX(1075) = XX(1075)-JVS(18296)*XX(3785)-JVS(19299)*XX(3912)-JVS(41374)*XX(5250) - XX(1074) = XX(1074)-JVS(23923)*XX(4412)-JVS(32065)*XX(5062)-JVS(41373)*XX(5250) - XX(1073) = XX(1073)-JVS(26804)*XX(4683)-JVS(41372)*XX(5250)-JVS(50667)*XX(5255) - XX(1072) = XX(1072)-JVS(12283)*XX(2831)-JVS(21250)*XX(4140)-JVS(41371)*XX(5250) - XX(1071) = XX(1071)-JVS(10559)*XX(2495)-JVS(18698)*XX(3840)-JVS(41370)*XX(5250) - XX(1070) = XX(1070)-JVS(14639)*XX(3270)-JVS(22963)*XX(4315)-JVS(41369)*XX(5250) - XX(1069) = XX(1069)-JVS(10527)*XX(2490)-JVS(32297)*XX(5078)-JVS(41368)*XX(5250) - XX(1068) = XX(1068)-JVS(38140)*XX(5231)-JVS(41367)*XX(5250)-JVS(50666)*XX(5255) - XX(1067) = XX(1067)-JVS(28421)*XX(4822)-JVS(28435)*XX(4823)-JVS(41366)*XX(5250) - XX(1066) = XX(1066)-JVS(37840)*XX(5228)-JVS(39849)*XX(5244)-JVS(41365)*XX(5250) - XX(1065) = XX(1065)-JVS(15089)*XX(3352)-JVS(23704)*XX(4393)-JVS(41364)*XX(5250) - XX(1064) = XX(1064)-JVS(21980)*XX(4219)-JVS(26032)*XX(4611)-JVS(41363)*XX(5250) - XX(1063) = XX(1063)-JVS(19501)*XX(3934)-JVS(25692)*XX(4574)-JVS(41362)*XX(5250) - XX(1062) = XX(1062)-JVS(18171)*XX(3771)-JVS(23051)*XX(4324)-JVS(41361)*XX(5250) - XX(1061) = XX(1061)-JVS(20324)*XX(4034)-JVS(28300)*XX(4810)-JVS(41360)*XX(5250) - XX(1060) = XX(1060)-JVS(7447)*XX(1814)-JVS(15236)*XX(3373)-JVS(41359)*XX(5250) - XX(1059) = XX(1059)-JVS(9794)*XX(2324)-JVS(10482)*XX(2480)-JVS(41358)*XX(5250) - XX(1058) = XX(1058)-JVS(34700)*XX(5169)-JVS(41357)*XX(5250)-JVS(48005)*XX(5253) - XX(1057) = XX(1057)-JVS(25407)*XX(4545)-JVS(41356)*XX(5250)-JVS(48004)*XX(5253) - XX(1056) = XX(1056)-JVS(7070)*XX(1738)-JVS(41355)*XX(5250)-JVS(50665)*XX(5255) - XX(1055) = XX(1055)-JVS(26573)*XX(4662)-JVS(29042)*XX(4870)-JVS(41354)*XX(5250) - XX(1054) = XX(1054)-JVS(32582)*XX(5093)-JVS(41353)*XX(5250)-JVS(50664)*XX(5255) - XX(1053) = XX(1053)-JVS(15404)*XX(3396)-JVS(17678)*XX(3713)-JVS(41352)*XX(5250) - XX(1052) = XX(1052)-JVS(13689)*XX(3091)-JVS(17510)*XX(3690)-JVS(41351)*XX(5250) - XX(1051) = XX(1051)-JVS(13286)*XX(3016)-JVS(21906)*XX(4212)-JVS(41350)*XX(5250) - XX(1050) = XX(1050)-JVS(25166)*XX(4524)-JVS(41349)*XX(5250)-JVS(50663)*XX(5255) - XX(1049) = XX(1049)-JVS(14146)*XX(3176)-JVS(16549)*XX(3573)-JVS(41348)*XX(5250) - XX(1048) = XX(1048)-JVS(26349)*XX(4640)-JVS(29595)*XX(4915)-JVS(41347)*XX(5250) - XX(1047) = XX(1047)-JVS(21759)*XX(4197)-JVS(28852)*XX(4855)-JVS(41346)*XX(5250) - XX(1046) = XX(1046)-JVS(12799)*XX(2931)-JVS(18764)*XX(3848)-JVS(41345)*XX(5250) - XX(1045) = XX(1045)-JVS(15148)*XX(3362)-JVS(24463)*XX(4463)-JVS(41344)*XX(5250) - XX(1044) = XX(1044)-JVS(13549)*XX(3067)-JVS(24697)*XX(4486)-JVS(41343)*XX(5250) - XX(1043) = XX(1043)-JVS(17943)*XX(3745)-JVS(19242)*XX(3905)-JVS(41342)*XX(5250) - XX(1042) = XX(1042)-JVS(28742)*XX(4848)-JVS(34030)*XX(5150)-JVS(41341)*XX(5250) - XX(1041) = XX(1041)-JVS(32037)*XX(5060)-JVS(32310)*XX(5079)-JVS(41340)*XX(5250) - XX(1040) = XX(1040)-JVS(26460)*XX(4651)-JVS(41339)*XX(5250)-JVS(50662)*XX(5255) - XX(1039) = XX(1039)-JVS(13864)*XX(3122)-JVS(18371)*XX(3795)-JVS(41338)*XX(5250) - XX(1038) = XX(1038)-JVS(15515)*XX(3411)-JVS(16852)*XX(3610)-JVS(41337)*XX(5250) - XX(1037) = XX(1037)-JVS(31880)*XX(5053)-JVS(41336)*XX(5250)-JVS(50661)*XX(5255) - XX(1036) = XX(1036)-JVS(6274)*XX(1565)-JVS(41335)*XX(5250)-JVS(50660)*XX(5255) - XX(1035) = XX(1035)-JVS(17244)*XX(3656)-JVS(41334)*XX(5250)-JVS(50659)*XX(5255) - XX(1034) = XX(1034)-JVS(16518)*XX(3569)-JVS(25641)*XX(4568)-JVS(41333)*XX(5250) - XX(1033) = XX(1033)-JVS(16051)*XX(3503)-JVS(21338)*XX(4152)-JVS(41332)*XX(5250) - XX(1032) = XX(1032)-JVS(17819)*XX(3730)-JVS(18962)*XX(3871)-JVS(41331)*XX(5250) - XX(1031) = XX(1031)-JVS(26803)*XX(4683)-JVS(28502)*XX(4829)-JVS(41330)*XX(5250) - XX(1030) = XX(1030)-JVS(15345)*XX(3388)-JVS(24385)*XX(4455)-JVS(41329)*XX(5250) - XX(1029) = XX(1029)-JVS(11093)*XX(2598)-JVS(22683)*XX(4289)-JVS(41328)*XX(5250) - XX(1028) = XX(1028)-JVS(17411)*XX(3678)-JVS(19339)*XX(3916)-JVS(41327)*XX(5250) - XX(1027) = XX(1027)-JVS(14133)*XX(3174)-JVS(18445)*XX(3805)-JVS(41326)*XX(5250) - XX(1026) = XX(1026)-JVS(15370)*XX(3391)-JVS(41325)*XX(5250)-JVS(48003)*XX(5253) - XX(1025) = XX(1025)-JVS(15538)*XX(3414)-JVS(21728)*XX(4194)-JVS(41324)*XX(5250) - XX(1024) = XX(1024)-JVS(18304)*XX(3786)-JVS(25980)*XX(4603)-JVS(41323)*XX(5250) - XX(1023) = XX(1023)-JVS(16404)*XX(3554)-JVS(26122)*XX(4619)-JVS(41322)*XX(5250) - XX(1022) = XX(1022)-JVS(28387)*XX(4818)-JVS(30352)*XX(4960)-JVS(41321)*XX(5250) - XX(1021) = XX(1021)-JVS(10683)*XX(2521)-JVS(18809)*XX(3853)-JVS(41320)*XX(5250) - XX(1020) = XX(1020)-JVS(6946)*XX(1713)-JVS(17619)*XX(3705)-JVS(41319)*XX(5250) - XX(1019) = XX(1019)-JVS(9289)*XX(2209)-JVS(12598)*XX(2894)-JVS(41318)*XX(5250) - XX(1018) = XX(1018)-JVS(26555)*XX(4660)-JVS(31293)*XX(5019)-JVS(41317)*XX(5250) - XX(1017) = XX(1017)-JVS(20531)*XX(4054)-JVS(23933)*XX(4413)-JVS(41316)*XX(5250) - XX(1016) = XX(1016)-JVS(15553)*XX(3416)-JVS(16571)*XX(3576)-JVS(41315)*XX(5250) - XX(1015) = XX(1015)-JVS(34590)*XX(5164)-JVS(36764)*XX(5202)-JVS(41314)*XX(5250) - XX(1014) = XX(1014)-JVS(15675)*XX(3433)-JVS(16635)*XX(3584)-JVS(41313)*XX(5250) - XX(1013) = XX(1013)-JVS(38139)*XX(5231)-JVS(38946)*XX(5233)-JVS(50658)*XX(5255) - XX(1012) = XX(1012)-JVS(10640)*XX(2512)-JVS(19915)*XX(3985)-JVS(41312)*XX(5250) - XX(1011) = XX(1011)-JVS(35733)*XX(5193)-JVS(38945)*XX(5233)-JVS(48002)*XX(5253) - XX(1010) = XX(1010)-JVS(15382)*XX(3393)-JVS(17961)*XX(3747)-JVS(41311)*XX(5250) - XX(1009) = XX(1009)-JVS(16239)*XX(3531)-JVS(24310)*XX(4448)-JVS(41310)*XX(5250) - XX(1008) = XX(1008)-JVS(20208)*XX(4019)-JVS(27603)*XX(4752)-JVS(41309)*XX(5250) - XX(1007) = XX(1007)-JVS(19668)*XX(3955)-JVS(21801)*XX(4201)-JVS(41308)*XX(5250) - XX(1006) = XX(1006)-JVS(25113)*XX(4519)-JVS(37334)*XX(5221)-JVS(41307)*XX(5250) - XX(1005) = XX(1005)-JVS(19963)*XX(3991)-JVS(41306)*XX(5250)-JVS(48001)*XX(5253) - XX(1004) = XX(1004)-JVS(14324)*XX(3213)-JVS(23004)*XX(4319)-JVS(41305)*XX(5250) - XX(1003) = XX(1003)-JVS(20102)*XX(4007)-JVS(26668)*XX(4670)-JVS(41304)*XX(5250) - XX(1002) = XX(1002)-JVS(20083)*XX(4005)-JVS(20900)*XX(4100)-JVS(41303)*XX(5250) - XX(1001) = XX(1001)-JVS(7057)*XX(1736)-JVS(41302)*XX(5250)-JVS(50657)*XX(5255) - XX(1000) = XX(1000)-JVS(18425)*XX(3802)-JVS(41301)*XX(5250)-JVS(48000)*XX(5253) - XX(999) = XX(999)-JVS(15267)*XX(3377)-JVS(16841)*XX(3609)-JVS(41300)*XX(5250) - XX(998) = XX(998)-JVS(23263)*XX(4346)-JVS(28839)*XX(4854)-JVS(41299)*XX(5250) - XX(997) = XX(997)-JVS(12654)*XX(2905)-JVS(21200)*XX(4134)-JVS(41298)*XX(5250) - XX(996) = XX(996)-JVS(16256)*XX(3534)-JVS(20140)*XX(4012)-JVS(41297)*XX(5250) - XX(995) = XX(995)-JVS(12887)*XX(2946)-JVS(15369)*XX(3391)-JVS(41296)*XX(5250) - XX(994) = XX(994)-JVS(29422)*XX(4904)-JVS(32735)*XX(5100)-JVS(41295)*XX(5250) - XX(993) = XX(993)-JVS(31259)*XX(5017)-JVS(32405)*XX(5084)-JVS(41294)*XX(5250) - XX(992) = XX(992)-JVS(17711)*XX(3717)-JVS(28258)*XX(4806)-JVS(41293)*XX(5250) - XX(991) = XX(991)-JVS(28791)*XX(4851)-JVS(41292)*XX(5250)-JVS(47999)*XX(5253) - XX(990) = XX(990)-JVS(29345)*XX(4898)-JVS(41291)*XX(5250)-JVS(50656)*XX(5255) - XX(989) = XX(989)-JVS(17729)*XX(3719)-JVS(21992)*XX(4220)-JVS(41290)*XX(5250) - XX(988) = XX(988)-JVS(26369)*XX(4642)-JVS(32660)*XX(5097)-JVS(41289)*XX(5250) - XX(987) = XX(987)-JVS(33761)*XX(5142)-JVS(35152)*XX(5183)-JVS(41288)*XX(5250) - XX(986) = XX(986)-JVS(19907)*XX(3984)-JVS(30482)*XX(4969)-JVS(41287)*XX(5250) - XX(985) = XX(985)-JVS(28725)*XX(4847)-JVS(39404)*XX(5236)-JVS(41286)*XX(5250) - XX(984) = XX(984)-JVS(11874)*XX(2750)-JVS(19620)*XX(3949)-JVS(41285)*XX(5250) - XX(983) = XX(983)-JVS(30606)*XX(4979)-JVS(34049)*XX(5151)-JVS(41284)*XX(5250) - XX(982) = XX(982)-JVS(14767)*XX(3296)-JVS(17031)*XX(3632)-JVS(41283)*XX(5250) - XX(981) = XX(981)-JVS(13178)*XX(2996)-JVS(20988)*XX(4109)-JVS(41282)*XX(5250) - XX(980) = XX(980)-JVS(8150)*XX(1962)-JVS(21090)*XX(4121)-JVS(41281)*XX(5250) - XX(979) = XX(979)-JVS(10750)*XX(2535)-JVS(21737)*XX(4195)-JVS(41280)*XX(5250) - XX(978) = XX(978)-JVS(20094)*XX(4006)-JVS(26879)*XX(4690)-JVS(41279)*XX(5250) - XX(977) = XX(977)-JVS(15449)*XX(3402)-JVS(23952)*XX(4415)-JVS(41278)*XX(5250) - XX(976) = XX(976)-JVS(21369)*XX(4155)-JVS(29154)*XX(4879)-JVS(41277)*XX(5250) - XX(975) = XX(975)-JVS(20559)*XX(4058)-JVS(24869)*XX(4500)-JVS(41276)*XX(5250) - XX(974) = XX(974)-JVS(13341)*XX(3028)-JVS(19650)*XX(3953)-JVS(41275)*XX(5250) - XX(973) = XX(973)-JVS(24038)*XX(4423)-JVS(30443)*XX(4966)-JVS(41274)*XX(5250) - XX(972) = XX(972)-JVS(13171)*XX(2995)-JVS(22256)*XX(4245)-JVS(41273)*XX(5250) - XX(971) = XX(971)-JVS(12721)*XX(2916)-JVS(19161)*XX(3895)-JVS(41272)*XX(5250) - XX(970) = XX(970)-JVS(23403)*XX(4363)-JVS(23712)*XX(4394)-JVS(41271)*XX(5250) - XX(969) = XX(969)-JVS(18109)*XX(3763)-JVS(41270)*XX(5250)-JVS(50655)*XX(5255) - XX(968) = XX(968)-JVS(11209)*XX(2623)-JVS(14396)*XX(3228)-JVS(41269)*XX(5250) - XX(967) = XX(967)-JVS(11066)*XX(2594)-JVS(16343)*XX(3544)-JVS(41268)*XX(5250) - XX(966) = XX(966)-JVS(7354)*XX(1796)-JVS(17184)*XX(3649)-JVS(41267)*XX(5250) - XX(965) = XX(965)-JVS(6524)*XX(1620)-JVS(27389)*XX(4734)-JVS(41266)*XX(5250) - XX(964) = XX(964)-JVS(8574)*XX(2050)-JVS(18579)*XX(3822)-JVS(41265)*XX(5250) - XX(963) = XX(963)-JVS(17685)*XX(3714)-JVS(22338)*XX(4253)-JVS(41264)*XX(5250) - XX(962) = XX(962)-JVS(10915)*XX(2566)-JVS(21887)*XX(4210)-JVS(41263)*XX(5250) - XX(961) = XX(961)-JVS(26638)*XX(4667)-JVS(41262)*XX(5250)-JVS(50654)*XX(5255) - XX(960) = XX(960)-JVS(11881)*XX(2751)-JVS(24016)*XX(4421)-JVS(41261)*XX(5250) - XX(959) = XX(959)-JVS(16159)*XX(3518)-JVS(23031)*XX(4322)-JVS(41260)*XX(5250) - XX(958) = XX(958)-JVS(10052)*XX(2381)-JVS(41259)*XX(5250)-JVS(50653)*XX(5255) - XX(957) = XX(957)-JVS(13008)*XX(2966)-JVS(41258)*XX(5250)-JVS(50652)*XX(5255) - XX(956) = XX(956)-JVS(13748)*XX(3103)-JVS(29916)*XX(4937)-JVS(41257)*XX(5250) - XX(955) = XX(955)-JVS(8267)*XX(1986)-JVS(15579)*XX(3420)-JVS(41256)*XX(5250) - XX(954) = XX(954)-JVS(21702)*XX(4191)-JVS(26260)*XX(4631)-JVS(41255)*XX(5250) - XX(953) = XX(953)-JVS(30351)*XX(4960)-JVS(41254)*XX(5250)-JVS(50651)*XX(5255) - XX(952) = XX(952)-JVS(20510)*XX(4052)-JVS(21637)*XX(4184)-JVS(41253)*XX(5250) - XX(951) = XX(951)-JVS(18328)*XX(3789)-JVS(26762)*XX(4679)-JVS(41252)*XX(5250) - XX(950) = XX(950)-JVS(20418)*XX(4044)-JVS(27984)*XX(4788)-JVS(41251)*XX(5250) - XX(949) = XX(949)-JVS(12680)*XX(2909)-JVS(19122)*XX(3890)-JVS(41250)*XX(5250) - XX(948) = XX(948)-JVS(8051)*XX(1942)-JVS(34886)*XX(5177)-JVS(41249)*XX(5250) - XX(947) = XX(947)-JVS(16610)*XX(3581)-JVS(23763)*XX(4400)-JVS(41248)*XX(5250) - XX(946) = XX(946)-JVS(23993)*XX(4419)-JVS(31685)*XX(5043)-JVS(41247)*XX(5250) - XX(945) = XX(945)-JVS(28996)*XX(4866)-JVS(34522)*XX(5161)-JVS(41246)*XX(5250) - XX(944) = XX(944)-JVS(6774)*XX(1675)-JVS(18011)*XX(3752)-JVS(41245)*XX(5250) - XX(943) = XX(943)-JVS(20118)*XX(4009)-JVS(23871)*XX(4407)-JVS(41244)*XX(5250) - XX(942) = XX(942)-JVS(8604)*XX(2056)-JVS(18738)*XX(3845)-JVS(41243)*XX(5250) - XX(941) = XX(941)-JVS(26897)*XX(4692)-JVS(29291)*XX(4893)-JVS(41242)*XX(5250) - XX(940) = XX(940)-JVS(13021)*XX(2968)-JVS(24901)*XX(4503)-JVS(41241)*XX(5250) - XX(939) = XX(939)-JVS(16294)*XX(3538)-JVS(24720)*XX(4488)-JVS(41240)*XX(5250) - XX(938) = XX(938)-JVS(16467)*XX(3562)-JVS(20427)*XX(4045)-JVS(41239)*XX(5250) - XX(937) = XX(937)-JVS(28551)*XX(4833)-JVS(29228)*XX(4887)-JVS(41238)*XX(5250) - XX(936) = XX(936)-JVS(26312)*XX(4636)-JVS(31242)*XX(5016)-JVS(41237)*XX(5250) - XX(935) = XX(935)-JVS(17543)*XX(3694)-JVS(21383)*XX(4157)-JVS(41236)*XX(5250) - XX(934) = XX(934)-JVS(15211)*XX(3370)-JVS(24501)*XX(4467)-JVS(41235)*XX(5250) - XX(933) = XX(933)-JVS(31292)*XX(5019)-JVS(41234)*XX(5250)-JVS(50650)*XX(5255) - XX(932) = XX(932)-JVS(15962)*XX(3489)-JVS(25263)*XX(4533)-JVS(41233)*XX(5250) - XX(931) = XX(931)-JVS(21117)*XX(4124)-JVS(21683)*XX(4189)-JVS(41232)*XX(5250) - XX(930) = XX(930)-JVS(16480)*XX(3564)-JVS(27511)*XX(4745)-JVS(41231)*XX(5250) - XX(929) = XX(929)-JVS(22248)*XX(4244)-JVS(24346)*XX(4451)-JVS(41230)*XX(5250) - XX(928) = XX(928)-JVS(6930)*XX(1710)-JVS(24628)*XX(4481)-JVS(41229)*XX(5250) - XX(927) = XX(927)-JVS(8141)*XX(1961)-JVS(12679)*XX(2909)-JVS(41228)*XX(5250) - XX(926) = XX(926)-JVS(16457)*XX(3561)-JVS(41227)*XX(5250)-JVS(50649)*XX(5255) - XX(925) = XX(925)-JVS(41226)*XX(5250)-JVS(47998)*XX(5253)-JVS(50648)*XX(5255) - XX(924) = XX(924)-JVS(34913)*XX(5178)-JVS(41225)*XX(5250)-JVS(47997)*XX(5253) - XX(923) = XX(923)-JVS(15397)*XX(3395)-JVS(22874)*XX(4307)-JVS(41224)*XX(5250) - XX(922) = XX(922)-JVS(7489)*XX(1821)-JVS(17256)*XX(3657)-JVS(41223)*XX(5250) - XX(921) = XX(921)-JVS(26359)*XX(4641)-JVS(26637)*XX(4667)-JVS(41222)*XX(5250) - XX(920) = XX(920)-JVS(10659)*XX(2516)-JVS(21652)*XX(4186)-JVS(41221)*XX(5250) - XX(919) = XX(919)-JVS(22378)*XX(4257)-JVS(22674)*XX(4288)-JVS(41220)*XX(5250) - XX(918) = XX(918)-JVS(10124)*XX(2399)-JVS(39540)*XX(5239)-JVS(41219)*XX(5250) - XX(917) = XX(917)-JVS(11297)*XX(2641)-JVS(22705)*XX(4291)-JVS(41218)*XX(5250) - XX(916) = XX(916)-JVS(30271)*XX(4955)-JVS(37733)*XX(5224)-JVS(41217)*XX(5250) - XX(915) = XX(915)-JVS(26813)*XX(4684)-JVS(30981)*XX(5001)-JVS(41216)*XX(5250) - XX(914) = XX(914)-JVS(16765)*XX(3600)-JVS(23174)*XX(4335)-JVS(41215)*XX(5250) - XX(913) = XX(913)-JVS(13119)*XX(2986)-JVS(22856)*XX(4305)-JVS(41214)*XX(5250) - XX(912) = XX(912)-JVS(8212)*XX(1975)-JVS(20825)*XX(4090)-JVS(41213)*XX(5250) - XX(911) = XX(911)-JVS(18187)*XX(3773)-JVS(41212)*XX(5250)-JVS(50647)*XX(5255) - XX(910) = XX(910)-JVS(26302)*XX(4635)-JVS(26725)*XX(4675)-JVS(41211)*XX(5250) - XX(909) = XX(909)-JVS(12457)*XX(2865)-JVS(22438)*XX(4263)-JVS(41210)*XX(5250) - XX(908) = XX(908)-JVS(12264)*XX(2827)-JVS(21896)*XX(4211)-JVS(41209)*XX(5250) - XX(907) = XX(907)-JVS(20021)*XX(3998)-JVS(37748)*XX(5225)-JVS(41208)*XX(5250) - XX(906) = XX(906)-JVS(31302)*XX(5020)-JVS(41207)*XX(5250)-JVS(50646)*XX(5255) - XX(905) = XX(905)-JVS(41206)*XX(5250)-JVS(47996)*XX(5253)-JVS(54820)*XX(5257) - XX(904) = XX(904)-JVS(6438)*XX(1604)-JVS(15422)*XX(3398)-JVS(41205)*XX(5250) - XX(903) = XX(903)-JVS(27731)*XX(4763)-JVS(41204)*XX(5250)-JVS(50645)*XX(5255) - XX(902) = XX(902)-JVS(11727)*XX(2724)-JVS(25030)*XX(4510)-JVS(41203)*XX(5250) - XX(901) = XX(901)-JVS(29690)*XX(4920)-JVS(30577)*XX(4977)-JVS(41202)*XX(5250) - XX(900) = XX(900)-JVS(20806)*XX(4088)-JVS(31219)*XX(5014)-JVS(41201)*XX(5250) - XX(899) = XX(899)-JVS(26055)*XX(4613)-JVS(26066)*XX(4614)-JVS(41200)*XX(5250) - XX(898) = XX(898)-JVS(28335)*XX(4813)-JVS(41199)*XX(5250)-JVS(50644)*XX(5255) - XX(897) = XX(897)-JVS(13352)*XX(3030)-JVS(20875)*XX(4097)-JVS(41198)*XX(5250) - XX(896) = XX(896)-JVS(31951)*XX(5057)-JVS(41197)*XX(5250)-JVS(50643)*XX(5255) - XX(895) = XX(895)-JVS(17960)*XX(3747)-JVS(41196)*XX(5250)-JVS(50642)*XX(5255) - XX(894) = XX(894)-JVS(25468)*XX(4550)-JVS(28280)*XX(4808)-JVS(41195)*XX(5250) - XX(893) = XX(893)-JVS(30304)*XX(4958)-JVS(41194)*XX(5250)-JVS(47995)*XX(5253) - XX(892) = XX(892)-JVS(20131)*XX(4011)-JVS(26678)*XX(4671)-JVS(41193)*XX(5250) - XX(891) = XX(891)-JVS(12613)*XX(2897)-JVS(18869)*XX(3860)-JVS(41192)*XX(5250) - XX(890) = XX(890)-JVS(30303)*XX(4958)-JVS(41191)*XX(5250)-JVS(50641)*XX(5255) - XX(889) = XX(889)-JVS(28911)*XX(4860)-JVS(30633)*XX(4981)-JVS(41190)*XX(5250) - XX(888) = XX(888)-JVS(15293)*XX(3381)-JVS(26379)*XX(4643)-JVS(41189)*XX(5250) - XX(887) = XX(887)-JVS(14985)*XX(3338)-JVS(18690)*XX(3839)-JVS(41188)*XX(5250) - XX(886) = XX(886)-JVS(22486)*XX(4268)-JVS(32983)*XX(5111)-JVS(41187)*XX(5250) - XX(885) = XX(885)-JVS(13593)*XX(3074)-JVS(19940)*XX(3988)-JVS(41186)*XX(5250) - XX(884) = XX(884)-JVS(14243)*XX(3195)-JVS(16991)*XX(3627)-JVS(41185)*XX(5250) - XX(883) = XX(883)-JVS(9652)*XX(2293)-JVS(32832)*XX(5104)-JVS(41184)*XX(5250) - XX(882) = XX(882)-JVS(15246)*XX(3374)-JVS(19684)*XX(3957)-JVS(41183)*XX(5250) - XX(881) = XX(881)-JVS(12972)*XX(2961)-JVS(19186)*XX(3898)-JVS(41182)*XX(5250) - XX(880) = XX(880)-JVS(31073)*XX(5006)-JVS(32423)*XX(5085)-JVS(41181)*XX(5250) - XX(879) = XX(879)-JVS(17542)*XX(3694)-JVS(22039)*XX(4224)-JVS(41180)*XX(5250) - XX(878) = XX(878)-JVS(16740)*XX(3597)-JVS(22768)*XX(4296)-JVS(41179)*XX(5250) - XX(877) = XX(877)-JVS(12218)*XX(2819)-JVS(21312)*XX(4149)-JVS(41178)*XX(5250) - XX(876) = XX(876)-JVS(30790)*XX(4990)-JVS(35706)*XX(5192)-JVS(41177)*XX(5250) - XX(875) = XX(875)-JVS(10706)*XX(2526)-JVS(31336)*XX(5023)-JVS(41176)*XX(5250) - XX(874) = XX(874)-JVS(31192)*XX(5012)-JVS(41175)*XX(5250)-JVS(50640)*XX(5255) - XX(873) = XX(873)-JVS(13444)*XX(3048)-JVS(19876)*XX(3980)-JVS(41174)*XX(5250) - XX(872) = XX(872)-JVS(11998)*XX(2773)-JVS(21946)*XX(4216)-JVS(41173)*XX(5250) - XX(871) = XX(871)-JVS(28465)*XX(4825)-JVS(40511)*XX(5247)-JVS(41172)*XX(5250) - XX(870) = XX(870)-JVS(14101)*XX(3168)-JVS(27262)*XX(4722)-JVS(41171)*XX(5250) - XX(869) = XX(869)-JVS(15155)*XX(3363)-JVS(26504)*XX(4655)-JVS(41170)*XX(5250) - XX(868) = XX(868)-JVS(36048)*XX(5195)-JVS(39426)*XX(5237)-JVS(41169)*XX(5250) - XX(867) = XX(867)-JVS(18219)*XX(3776)-JVS(21664)*XX(4187)-JVS(41168)*XX(5250) - XX(866) = XX(866)-JVS(12068)*XX(2788)-JVS(25382)*XX(4543)-JVS(41167)*XX(5250) - XX(865) = XX(865)-JVS(19972)*XX(3992)-JVS(22247)*XX(4244)-JVS(41166)*XX(5250) - XX(864) = XX(864)-JVS(6469)*XX(1608)-JVS(29527)*XX(4910)-JVS(41165)*XX(5250) - XX(863) = XX(863)-JVS(11561)*XX(2694)-JVS(18748)*XX(3846)-JVS(41164)*XX(5250) - XX(862) = XX(862)-JVS(33228)*XX(5125)-JVS(41163)*XX(5250)-JVS(50639)*XX(5255) - XX(861) = XX(861)-JVS(18394)*XX(3798)-JVS(18608)*XX(3826)-JVS(41162)*XX(5250) - XX(860) = XX(860)-JVS(16593)*XX(3579)-JVS(22603)*XX(4280)-JVS(41161)*XX(5250) - XX(859) = XX(859)-JVS(26595)*XX(4664)-JVS(29369)*XX(4900)-JVS(41160)*XX(5250) - XX(858) = XX(858)-JVS(13516)*XX(3062)-JVS(21038)*XX(4115)-JVS(41159)*XX(5250) - XX(857) = XX(857)-JVS(20590)*XX(4061)-JVS(26272)*XX(4632)-JVS(41158)*XX(5250) - XX(856) = XX(856)-JVS(38138)*XX(5231)-JVS(39425)*XX(5237)-JVS(41157)*XX(5250) - XX(855) = XX(855)-JVS(10413)*XX(2465)-JVS(30632)*XX(4981)-JVS(41156)*XX(5250) - XX(854) = XX(854)-JVS(20052)*XX(4001)-JVS(24817)*XX(4495)-JVS(41155)*XX(5250) - XX(853) = XX(853)-JVS(24520)*XX(4469)-JVS(30619)*XX(4980)-JVS(41154)*XX(5250) - XX(852) = XX(852)-JVS(20780)*XX(4085)-JVS(24912)*XX(4504)-JVS(41153)*XX(5250) - XX(851) = XX(851)-JVS(15626)*XX(3426)-JVS(23642)*XX(4388)-JVS(41152)*XX(5250) - XX(850) = XX(850)-JVS(25135)*XX(4521)-JVS(32648)*XX(5096)-JVS(41151)*XX(5250) - XX(849) = XX(849)-JVS(21176)*XX(4131)-JVS(26190)*XX(4624)-JVS(41150)*XX(5250) - XX(848) = XX(848)-JVS(13793)*XX(3110)-JVS(17519)*XX(3691)-JVS(41149)*XX(5250) - XX(847) = XX(847)-JVS(19703)*XX(3959)-JVS(41148)*XX(5250)-JVS(50638)*XX(5255) - XX(846) = XX(846)-JVS(15276)*XX(3378)-JVS(16672)*XX(3589)-JVS(41147)*XX(5250) - XX(845) = XX(845)-JVS(26239)*XX(4629)-JVS(33986)*XX(5148)-JVS(41146)*XX(5250) - XX(844) = XX(844)-JVS(20332)*XX(4035)-JVS(23784)*XX(4402)-JVS(41145)*XX(5250) - XX(843) = XX(843)-JVS(20110)*XX(4008)-JVS(24192)*XX(4437)-JVS(41144)*XX(5250) - XX(842) = XX(842)-JVS(24213)*XX(4439)-JVS(25565)*XX(4560)-JVS(41143)*XX(5250) - XX(841) = XX(841)-JVS(11986)*XX(2771)-JVS(32581)*XX(5093)-JVS(41142)*XX(5250) - XX(840) = XX(840)-JVS(27998)*XX(4789)-JVS(41141)*XX(5250)-JVS(47994)*XX(5253) - XX(839) = XX(839)-JVS(30302)*XX(4958)-JVS(41140)*XX(5250)-JVS(50637)*XX(5255) - XX(838) = XX(838)-JVS(7017)*XX(1727)-JVS(24027)*XX(4422)-JVS(41139)*XX(5250) - XX(837) = XX(837)-JVS(24143)*XX(4432)-JVS(26211)*XX(4626)-JVS(41138)*XX(5250) - XX(836) = XX(836)-JVS(8472)*XX(2030)-JVS(22809)*XX(4300)-JVS(41137)*XX(5250) - XX(835) = XX(835)-JVS(13383)*XX(3036)-JVS(22865)*XX(4306)-JVS(41136)*XX(5250) - XX(834) = XX(834)-JVS(34621)*XX(5165)-JVS(41135)*XX(5250)-JVS(47993)*XX(5253) - XX(833) = XX(833)-JVS(34200)*XX(5158)-JVS(39602)*XX(5241)-JVS(41134)*XX(5250) - XX(832) = XX(832)-JVS(29380)*XX(4901)-JVS(30847)*XX(4994)-JVS(41133)*XX(5250) - XX(831) = XX(831)-JVS(9122)*XX(2173)-JVS(22283)*XX(4248)-JVS(41132)*XX(5250) - XX(830) = XX(830)-JVS(6694)*XX(1656)-JVS(27552)*XX(4748)-JVS(41131)*XX(5250) - XX(829) = XX(829)-JVS(19179)*XX(3897)-JVS(23245)*XX(4344)-JVS(41130)*XX(5250) - XX(828) = XX(828)-JVS(27832)*XX(4771)-JVS(32296)*XX(5078)-JVS(41129)*XX(5250) - XX(827) = XX(827)-JVS(24423)*XX(4459)-JVS(41128)*XX(5250)-JVS(50636)*XX(5255) - XX(826) = XX(826)-JVS(19060)*XX(3882)-JVS(21945)*XX(4216)-JVS(41127)*XX(5250) - XX(825) = XX(825)-JVS(12643)*XX(2903)-JVS(22428)*XX(4262)-JVS(41126)*XX(5250) - XX(824) = XX(824)-JVS(27730)*XX(4763)-JVS(28822)*XX(4853)-JVS(41125)*XX(5250) - XX(823) = XX(823)-JVS(23982)*XX(4418)-JVS(41124)*XX(5250)-JVS(50635)*XX(5255) - XX(822) = XX(822)-JVS(20013)*XX(3997)-JVS(24269)*XX(4444)-JVS(41123)*XX(5250) - XX(821) = XX(821)-JVS(10030)*XX(2377)-JVS(21320)*XX(4150)-JVS(41122)*XX(5250)-JVS(50634)*XX(5255) - XX(820) = XX(820)-JVS(38137)*XX(5231)-JVS(39771)*XX(5243) - XX(819) = XX(819)-JVS(26747)*XX(4677)-JVS(38944)*XX(5233)-JVS(41121)*XX(5250)-JVS(47992)*XX(5253) - XX(818) = XX(818)-JVS(37839)*XX(5228)-JVS(41120)*XX(5250) - XX(817) = XX(817)-JVS(28321)*XX(4812)-JVS(38136)*XX(5231) - XX(816) = XX(816)-JVS(18278)*XX(3783)-JVS(47991)*XX(5253) - XX(815) = XX(815)-JVS(18045)*XX(3756)-JVS(47990)*XX(5253) - XX(814) = XX(814)-JVS(17785)*XX(3726)-JVS(47989)*XX(5253) - XX(813) = XX(813)-JVS(15412)*XX(3397)-JVS(34274)*XX(5160)-JVS(41119)*XX(5250)-JVS(50633)*XX(5255) - XX(812) = XX(812)-JVS(15944)*XX(3486)-JVS(16502)*XX(3567)-JVS(41118)*XX(5250)-JVS(50632)*XX(5255) - XX(811) = XX(811)-JVS(15035)*XX(3345)-JVS(16525)*XX(3570)-JVS(41117)*XX(5250)-JVS(50631)*XX(5255) - XX(810) = XX(810)-JVS(26703)*XX(4673)-JVS(38135)*XX(5231) - XX(809) = XX(809)-JVS(17811)*XX(3729)-JVS(47988)*XX(5253) - XX(808) = XX(808)-JVS(38943)*XX(5233)-JVS(50630)*XX(5255) - XX(807) = XX(807)-JVS(13248)*XX(3009)-JVS(16058)*XX(3504)-JVS(41116)*XX(5250)-JVS(50629)*XX(5255) - XX(806) = XX(806)-JVS(24559)*XX(4473)-JVS(30334)*XX(4959)-JVS(33985)*XX(5148)-JVS(41115)*XX(5250) - XX(805) = XX(805)-JVS(33077)*XX(5117)-JVS(41114)*XX(5250)-JVS(45084)*XX(5251)-JVS(50628)*XX(5255) - XX(804) = XX(804)-JVS(11277)*XX(2638)-JVS(15987)*XX(3493)-JVS(41113)*XX(5250)-JVS(50627)*XX(5255) - XX(803) = XX(803)-JVS(23286)*XX(4349)-JVS(33227)*XX(5125)-JVS(34521)*XX(5161)-JVS(41112)*XX(5250) - XX(802) = XX(802)-JVS(39424)*XX(5237)-JVS(45083)*XX(5251) - XX(801) = XX(801)-JVS(21594)*XX(4181)-JVS(38134)*XX(5231) - XX(800) = XX(800)-JVS(16263)*XX(3535)-JVS(47987)*XX(5253) - XX(799) = XX(799)-JVS(16691)*XX(3591)-JVS(32453)*XX(5086)-JVS(41111)*XX(5250)-JVS(50626)*XX(5255) - XX(798) = XX(798)-JVS(19775)*XX(3968)-JVS(47986)*XX(5253) - XX(797) = XX(797)-JVS(47985)*XX(5253)-JVS(54819)*XX(5257) - XX(796) = XX(796)-JVS(21472)*XX(4168)-JVS(37378)*XX(5222)-JVS(41110)*XX(5250)-JVS(50625)*XX(5255) - XX(795) = XX(795)-JVS(27676)*XX(4759)-JVS(38133)*XX(5231) - XX(794) = XX(794)-JVS(23386)*XX(4361)-JVS(27692)*XX(4760)-JVS(34520)*XX(5161)-JVS(41109)*XX(5250) - XX(793) = XX(793)-JVS(32422)*XX(5085)-JVS(38132)*XX(5231)-JVS(41108)*XX(5250)-JVS(50624)*XX(5255) - XX(792) = XX(792)-JVS(17973)*XX(3748)-JVS(50623)*XX(5255) - XX(791) = XX(791)-JVS(24119)*XX(4430)-JVS(35732)*XX(5193) - XX(790) = XX(790)-JVS(22274)*XX(4247)-JVS(32332)*XX(5080)-JVS(41107)*XX(5250)-JVS(47984)*XX(5253) - XX(789) = XX(789)-JVS(7040)*XX(1732)-JVS(14833)*XX(3309)-JVS(41106)*XX(5250)-JVS(50622)*XX(5255) - XX(788) = XX(788)-JVS(15552)*XX(3416)-JVS(16570)*XX(3576)-JVS(41105)*XX(5250)-JVS(50621)*XX(5255) - XX(787) = XX(787)-JVS(26154)*XX(4622)-JVS(35731)*XX(5193) - XX(786) = XX(786)-JVS(35062)*XX(5182)-JVS(50620)*XX(5255) - XX(785) = XX(785)-JVS(15674)*XX(3433)-JVS(16634)*XX(3584)-JVS(41104)*XX(5250)-JVS(50619)*XX(5255) - XX(784) = XX(784)-JVS(37100)*XX(5213)-JVS(50618)*XX(5255) - XX(783) = XX(783)-JVS(37099)*XX(5213)-JVS(50617)*XX(5255) - XX(782) = XX(782)-JVS(25834)*XX(4591)-JVS(38131)*XX(5231) - XX(781) = XX(781)-JVS(28525)*XX(4831)-JVS(38130)*XX(5231) - XX(780) = XX(780)-JVS(17435)*XX(3681)-JVS(47983)*XX(5253) - XX(779) = XX(779)-JVS(15130)*XX(3359)-JVS(16883)*XX(3614)-JVS(41103)*XX(5250)-JVS(50616)*XX(5255) - XX(778) = XX(778)-JVS(33836)*XX(5143)-JVS(39848)*XX(5244) - XX(777) = XX(777)-JVS(34071)*XX(5152)-JVS(38129)*XX(5231) - XX(776) = XX(776)-JVS(24257)*XX(4443)-JVS(35730)*XX(5193) - XX(775) = XX(775)-JVS(18747)*XX(3846)-JVS(34273)*XX(5160) - XX(774) = XX(774)-JVS(28838)*XX(4854)-JVS(38128)*XX(5231) - XX(773) = XX(773)-JVS(26153)*XX(4622)-JVS(38127)*XX(5231) - XX(772) = XX(772)-JVS(8492)*XX(2033)-JVS(32225)*XX(5072)-JVS(41102)*XX(5250)-JVS(50615)*XX(5255) - XX(771) = XX(771)-JVS(26145)*XX(4621)-JVS(29795)*XX(4929)-JVS(41101)*XX(5250)-JVS(45082)*XX(5251) - XX(770) = XX(770)-JVS(36892)*XX(5207)-JVS(39847)*XX(5244) - XX(769) = XX(769)-JVS(23650)*XX(4389)-JVS(30107)*XX(4944)-JVS(34519)*XX(5161)-JVS(41100)*XX(5250) - XX(768) = XX(768)-JVS(26459)*XX(4651)-JVS(50614)*XX(5255) - XX(767) = XX(767)-JVS(8505)*XX(2035)-JVS(24782)*XX(4493)-JVS(41099)*XX(5250)-JVS(50613)*XX(5255) - XX(766) = XX(766)-JVS(30089)*XX(4943)-JVS(37838)*XX(5228)-JVS(41098)*XX(5250)-JVS(45081)*XX(5251) - XX(765) = XX(765)-JVS(29178)*XX(4882)-JVS(50612)*XX(5255) - XX(764) = XX(764)-JVS(14145)*XX(3176)-JVS(16548)*XX(3573)-JVS(41097)*XX(5250)-JVS(50611)*XX(5255) - XX(763) = XX(763)-JVS(34154)*XX(5156)-JVS(39846)*XX(5244)-JVS(41096)*XX(5250)-JVS(45080)*XX(5251) - XX(762) = XX(762)-JVS(10891)*XX(2562)-JVS(16371)*XX(3548)-JVS(41095)*XX(5250)-JVS(50610)*XX(5255) - XX(761) = XX(761)-JVS(35151)*XX(5183)-JVS(35599)*XX(5191) - XX(760) = XX(760)-JVS(34272)*XX(5160)-JVS(34967)*XX(5179) - XX(759) = XX(759)-JVS(28494)*XX(4828)-JVS(39344)*XX(5235)-JVS(41094)*XX(5250)-JVS(45079)*XX(5251) - XX(758) = XX(758)-JVS(11576)*XX(2697)-JVS(13888)*XX(3126)-JVS(41093)*XX(5250)-JVS(50609)*XX(5255) - XX(757) = XX(757)-JVS(31100)*XX(5007)-JVS(34912)*XX(5178)-JVS(41092)*XX(5250)-JVS(50608)*XX(5255) - XX(756) = XX(756)-JVS(32531)*XX(5089)-JVS(39845)*XX(5244) - XX(755) = XX(755)-JVS(33174)*XX(5123)-JVS(39844)*XX(5244) - XX(754) = XX(754)-JVS(22577)*XX(4278)-JVS(34271)*XX(5160)-JVS(41091)*XX(5250)-JVS(50607)*XX(5255) - XX(753) = XX(753)-JVS(17919)*XX(3742)-JVS(47982)*XX(5253) - XX(752) = XX(752)-JVS(18563)*XX(3821)-JVS(26911)*XX(4693)-JVS(41090)*XX(5250)-JVS(50606)*XX(5255) - XX(751) = XX(751)-JVS(33760)*XX(5142)-JVS(41089)*XX(5250) - XX(750) = XX(750)-JVS(35150)*XX(5183)-JVS(37377)*XX(5222) - XX(749) = XX(749)-JVS(35598)*XX(5191)-JVS(39423)*XX(5237) - XX(748) = XX(748)-JVS(34699)*XX(5169)-JVS(50605)*XX(5255) - XX(747) = XX(747)-JVS(19287)*XX(3911)-JVS(47981)*XX(5253) - XX(746) = XX(746)-JVS(17836)*XX(3732)-JVS(47980)*XX(5253) - XX(745) = XX(745)-JVS(33835)*XX(5143)-JVS(35149)*XX(5183) - XX(744) = XX(744)-JVS(17373)*XX(3673)-JVS(47979)*XX(5253) - XX(743) = XX(743)-JVS(18311)*XX(3787)-JVS(47978)*XX(5253) - XX(742) = XX(742)-JVS(15514)*XX(3411)-JVS(16851)*XX(3610)-JVS(41088)*XX(5250)-JVS(50604)*XX(5255) - XX(741) = XX(741)-JVS(34270)*XX(5160)-JVS(37122)*XX(5214) - XX(740) = XX(740)-JVS(32387)*XX(5083)-JVS(39843)*XX(5244) - XX(739) = XX(739)-JVS(34966)*XX(5179)-JVS(38126)*XX(5231) - XX(738) = XX(738)-JVS(20164)*XX(4014)-JVS(26910)*XX(4693)-JVS(41087)*XX(5250)-JVS(50603)*XX(5255) - XX(737) = XX(737)-JVS(17451)*XX(3683)-JVS(47977)*XX(5253) - XX(736) = XX(736)-JVS(25406)*XX(4545)-JVS(41086)*XX(5250) - XX(735) = XX(735)-JVS(25405)*XX(4545)-JVS(41085)*XX(5250) - XX(734) = XX(734)-JVS(33356)*XX(5129)-JVS(37376)*XX(5222) - XX(733) = XX(733)-JVS(35061)*XX(5182)-JVS(50602)*XX(5255) - XX(732) = XX(732)-JVS(15625)*XX(3426)-JVS(23641)*XX(4388)-JVS(41084)*XX(5250)-JVS(50601)*XX(5255) - XX(731) = XX(731)-JVS(20942)*XX(4104)-JVS(39842)*XX(5244) - XX(730) = XX(730)-JVS(40545)*XX(5248)-JVS(50600)*XX(5255) - XX(729) = XX(729)-JVS(31031)*XX(5004)-JVS(38125)*XX(5231) - XX(728) = XX(728)-JVS(32627)*XX(5095)-JVS(39841)*XX(5244) - XX(727) = XX(727)-JVS(19592)*XX(3946)-JVS(50599)*XX(5255) - XX(726) = XX(726)-JVS(14520)*XX(3247)-JVS(33418)*XX(5131) - XX(725) = XX(725)-JVS(6672)*XX(1652)-JVS(17088)*XX(3639)-JVS(41083)*XX(5250)-JVS(50598)*XX(5255) - XX(724) = XX(724)-JVS(24131)*XX(4431)-JVS(35060)*XX(5182) - XX(723) = XX(723)-JVS(24760)*XX(4491)-JVS(26909)*XX(4693)-JVS(41082)*XX(5250)-JVS(50597)*XX(5255) - XX(722) = XX(722)-JVS(33226)*XX(5125)-JVS(33834)*XX(5143) - XX(721) = XX(721)-JVS(34858)*XX(5176)-JVS(50596)*XX(5255) - XX(720) = XX(720)-JVS(33173)*XX(5123)-JVS(39840)*XX(5244) - XX(719) = XX(719)-JVS(28676)*XX(4843)-JVS(39403)*XX(5236)-JVS(41081)*XX(5250)-JVS(45078)*XX(5251) - XX(718) = XX(718)-JVS(23796)*XX(4403)-JVS(24759)*XX(4491)-JVS(41080)*XX(5250)-JVS(50595)*XX(5255) - XX(717) = XX(717)-JVS(20494)*XX(4051)-JVS(38124)*XX(5231) - XX(716) = XX(716)-JVS(18205)*XX(3775)-JVS(50594)*XX(5255) - XX(715) = XX(715)-JVS(36855)*XX(5204)-JVS(37732)*XX(5224) - XX(714) = XX(714)-JVS(32452)*XX(5086)-JVS(39839)*XX(5244) - XX(713) = XX(713)-JVS(7550)*XX(1833)-JVS(31469)*XX(5031)-JVS(41079)*XX(5250)-JVS(47976)*XX(5253) - XX(712) = XX(712)-JVS(31275)*XX(5018)-JVS(47975)*XX(5253) - XX(711) = XX(711)-JVS(37375)*XX(5222)-JVS(50593)*XX(5255) - XX(710) = XX(710)-JVS(35729)*XX(5193)-JVS(39838)*XX(5244) - XX(709) = XX(709)-JVS(39402)*XX(5236)-JVS(41078)*XX(5250) - XX(708) = XX(708)-JVS(30241)*XX(4953)-JVS(38123)*XX(5231) - XX(707) = XX(707)-JVS(14599)*XX(3263)-JVS(50592)*XX(5255) - XX(706) = XX(706)-JVS(20987)*XX(4109)-JVS(50591)*XX(5255) - XX(705) = XX(705)-JVS(26908)*XX(4693)-JVS(26991)*XX(4694)-JVS(41077)*XX(5250)-JVS(50590)*XX(5255) - XX(704) = XX(704)-JVS(34965)*XX(5179)-JVS(35458)*XX(5188) - XX(703) = XX(703)-JVS(33417)*XX(5131)-JVS(35059)*XX(5182) - XX(702) = XX(702)-JVS(37283)*XX(5217)-JVS(37304)*XX(5219) - XX(701) = XX(701)-JVS(22308)*XX(4250)-JVS(38794)*XX(5232)-JVS(45077)*XX(5251)-JVS(50589)*XX(5255) - XX(700) = XX(700)-JVS(12782)*XX(2927)-JVS(28072)*XX(4796)-JVS(41076)*XX(5250)-JVS(50588)*XX(5255) - XX(699) = XX(699)-JVS(15245)*XX(3374)-JVS(19683)*XX(3957)-JVS(41075)*XX(5250)-JVS(50587)*XX(5255) - XX(698) = XX(698)-JVS(30106)*XX(4944)-JVS(33833)*XX(5143) - XX(697) = XX(697)-JVS(29007)*XX(4867)-JVS(38122)*XX(5231) - XX(696) = XX(696)-JVS(19308)*XX(3913)-JVS(22576)*XX(4278)-JVS(41074)*XX(5250)-JVS(50586)*XX(5255) - XX(695) = XX(695)-JVS(32309)*XX(5079)-JVS(39687)*XX(5242) - XX(694) = XX(694)-JVS(16136)*XX(3516)-JVS(38121)*XX(5231)-JVS(41073)*XX(5250)-JVS(50585)*XX(5255) - XX(693) = XX(693)-JVS(38120)*XX(5231)-JVS(39837)*XX(5244) - XX(692) = XX(692)-JVS(38119)*XX(5231)-JVS(39568)*XX(5240)-JVS(41072)*XX(5250)-JVS(47974)*XX(5253) - XX(691) = XX(691)-JVS(37977)*XX(5229)-JVS(41071)*XX(5250) - XX(690) = XX(690)-JVS(18772)*XX(3849)-JVS(38118)*XX(5231)-JVS(41070)*XX(5250)-JVS(50584)*XX(5255) - XX(689) = XX(689)-JVS(30185)*XX(4949)-JVS(38117)*XX(5231) - XX(688) = XX(688)-JVS(30774)*XX(4989)-JVS(38116)*XX(5231) - XX(687) = XX(687)-JVS(37038)*XX(5211)-JVS(39836)*XX(5244) - XX(686) = XX(686)-JVS(37674)*XX(5223)-JVS(41069)*XX(5250)-JVS(45076)*XX(5251)-JVS(50583)*XX(5255) - XX(685) = XX(685)-JVS(37673)*XX(5223)-JVS(41068)*XX(5250)-JVS(45075)*XX(5251)-JVS(50582)*XX(5255) - XX(684) = XX(684)-JVS(37672)*XX(5223)-JVS(41067)*XX(5250)-JVS(45074)*XX(5251)-JVS(50581)*XX(5255) - XX(683) = XX(683)-JVS(15114)*XX(3356)-JVS(16663)*XX(3588)-JVS(41066)*XX(5250)-JVS(50580)*XX(5255) - XX(682) = XX(682)-JVS(39686)*XX(5242)-JVS(39835)*XX(5244) - XX(681) = XX(681)-JVS(14992)*XX(3339)-JVS(16808)*XX(3605)-JVS(41065)*XX(5250)-JVS(50579)*XX(5255) - XX(680) = XX(680)-JVS(41064)*XX(5250)-JVS(50578)*XX(5255) - XX(679) = XX(679)-JVS(28652)*XX(4842)-JVS(39834)*XX(5244) - XX(678) = XX(678)-JVS(15774)*XX(3454)-JVS(33462)*XX(5134)-JVS(41063)*XX(5250)-JVS(50577)*XX(5255) - XX(677) = XX(677)-JVS(14495)*XX(3244)-JVS(50576)*XX(5255) - XX(676) = XX(676)-JVS(20163)*XX(4014)-JVS(23795)*XX(4403)-JVS(41062)*XX(5250)-JVS(50575)*XX(5255) - XX(675) = XX(675)-JVS(18578)*XX(3822)-JVS(28185)*XX(4800)-JVS(41061)*XX(5250)-JVS(50574)*XX(5255) - XX(674) = XX(674)-JVS(30184)*XX(4949)-JVS(35728)*XX(5193) - XX(673) = XX(673)-JVS(40544)*XX(5248)-JVS(47973)*XX(5253) - XX(672) = XX(672)-JVS(32982)*XX(5111)-JVS(38115)*XX(5231) - XX(671) = XX(671)-JVS(11065)*XX(2594)-JVS(16342)*XX(3544)-JVS(41060)*XX(5250)-JVS(50573)*XX(5255) - XX(670) = XX(670)-JVS(37098)*XX(5213)-JVS(47972)*XX(5253) - XX(669) = XX(669)-JVS(20521)*XX(4053)-JVS(47971)*XX(5253) - XX(668) = XX(668)-JVS(17061)*XX(3637)-JVS(36296)*XX(5201)-JVS(41059)*XX(5250)-JVS(53217)*XX(5256) - XX(667) = XX(667)-JVS(38114)*XX(5231)-JVS(40543)*XX(5248)-JVS(41058)*XX(5250)-JVS(50572)*XX(5255) - XX(666) = XX(666)-JVS(36804)*XX(5203)-JVS(39833)*XX(5244) - XX(665) = XX(665)-JVS(38113)*XX(5231)-JVS(39422)*XX(5237) - XX(664) = XX(664)-JVS(6461)*XX(1607)-JVS(18253)*XX(3780)-JVS(41057)*XX(5250)-JVS(50571)*XX(5255) - XX(663) = XX(663)-JVS(40542)*XX(5248)-JVS(50570)*XX(5255) - XX(662) = XX(662)-JVS(32421)*XX(5085)-JVS(38112)*XX(5231)-JVS(41056)*XX(5250)-JVS(47970)*XX(5253) - XX(661) = XX(661)-JVS(38111)*XX(5231)-JVS(40571)*XX(5249)-JVS(41055)*XX(5250)-JVS(50569)*XX(5255) - XX(660) = XX(660)-JVS(19316)*XX(3914)-JVS(47969)*XX(5253) - XX(659) = XX(659)-JVS(12902)*XX(2949)-JVS(28354)*XX(4815)-JVS(41054)*XX(5250)-JVS(50568)*XX(5255) - XX(658) = XX(658)-JVS(39567)*XX(5240)-JVS(39832)*XX(5244) - XX(657) = XX(657)-JVS(6332)*XX(1579)-JVS(16427)*XX(3557)-JVS(41053)*XX(5250)-JVS(50567)*XX(5255) - XX(656) = XX(656)-JVS(38793)*XX(5232)-JVS(39198)*XX(5234) - XX(655) = XX(655)-JVS(18471)*XX(3809)-JVS(38110)*XX(5231) - XX(654) = XX(654)-JVS(30256)*XX(4954)-JVS(38109)*XX(5231) - XX(653) = XX(653)-JVS(27997)*XX(4789)-JVS(41052)*XX(5250) - XX(652) = XX(652)-JVS(27996)*XX(4789)-JVS(41051)*XX(5250) - XX(651) = XX(651)-JVS(13095)*XX(2982)-JVS(18252)*XX(3780)-JVS(41050)*XX(5250)-JVS(50566)*XX(5255) - XX(650) = XX(650)-JVS(34885)*XX(5177)-JVS(38108)*XX(5231)-JVS(41049)*XX(5250)-JVS(50565)*XX(5255) - XX(649) = XX(649)-JVS(34857)*XX(5176)-JVS(47968)*XX(5253) - XX(648) = XX(648)-JVS(35457)*XX(5188)-JVS(39421)*XX(5237) - XX(647) = XX(647)-JVS(13773)*XX(3107)-JVS(16816)*XX(3606)-JVS(41048)*XX(5250)-JVS(50564)*XX(5255) - XX(646) = XX(646)-JVS(50563)*XX(5255)-JVS(54818)*XX(5257) - XX(645) = XX(645)-JVS(23429)*XX(4366)-JVS(38792)*XX(5232) - XX(644) = XX(644)-JVS(17769)*XX(3724)-JVS(34269)*XX(5160) - XX(643) = XX(643)-JVS(19692)*XX(3958)-JVS(50562)*XX(5255) - XX(642) = XX(642)-JVS(17211)*XX(3652)-JVS(41047)*XX(5250) - XX(641) = XX(641)-JVS(35597)*XX(5191)-JVS(39831)*XX(5244) - XX(640) = XX(640)-JVS(20725)*XX(4078)-JVS(22206)*XX(4240)-JVS(22830)*XX(4302)-JVS(41046)*XX(5250) - XX(639) = XX(639)-JVS(34698)*XX(5169)-JVS(50561)*XX(5255) - XX(638) = XX(638)-JVS(31391)*XX(5026)-JVS(39830)*XX(5244) - XX(637) = XX(637)-JVS(34070)*XX(5152)-JVS(35727)*XX(5193) - XX(636) = XX(636)-JVS(12255)*XX(2826)-JVS(16286)*XX(3537)-JVS(41045)*XX(5250)-JVS(50560)*XX(5255) - XX(635) = XX(635)-JVS(34697)*XX(5169)-JVS(47967)*XX(5253) - XX(634) = XX(634)-JVS(30715)*XX(4985)-JVS(33582)*XX(5139)-JVS(41044)*XX(5250)-JVS(50559)*XX(5255) - XX(633) = XX(633)-JVS(12925)*XX(2953)-JVS(20941)*XX(4104)-JVS(41043)*XX(5250)-JVS(50558)*XX(5255) - XX(632) = XX(632)-JVS(25564)*XX(4560)-JVS(34268)*XX(5160) - XX(631) = XX(631)-JVS(33907)*XX(5145)-JVS(41042)*XX(5250) - XX(630) = XX(630)-JVS(32769)*XX(5101)-JVS(38107)*XX(5231) - XX(629) = XX(629)-JVS(16707)*XX(3593)-JVS(47966)*XX(5253) - XX(628) = XX(628)-JVS(16681)*XX(3590)-JVS(28071)*XX(4796)-JVS(41041)*XX(5250)-JVS(50557)*XX(5255) - XX(627) = XX(627)-JVS(14358)*XX(3219)-JVS(50556)*XX(5255) - XX(626) = XX(626)-JVS(28524)*XX(4831)-JVS(41040)*XX(5250)-JVS(45073)*XX(5251)-JVS(50555)*XX(5255) - XX(625) = XX(625)-JVS(32626)*XX(5095)-JVS(50554)*XX(5255) - XX(624) = XX(624)-JVS(50553)*XX(5255)-JVS(54817)*XX(5257) - XX(623) = XX(623)-JVS(33738)*XX(5141)-JVS(39829)*XX(5244) - XX(622) = XX(622)-JVS(10539)*XX(2492)-JVS(27874)*XX(4775)-JVS(41039)*XX(5250)-JVS(50552)*XX(5255) - XX(621) = XX(621)-JVS(38106)*XX(5231)-JVS(40541)*XX(5248)-JVS(41038)*XX(5250)-JVS(47965)*XX(5253) - XX(620) = XX(620)-JVS(18186)*XX(3773)-JVS(50551)*XX(5255) - XX(619) = XX(619)-JVS(31697)*XX(5044)-JVS(38105)*XX(5231) - XX(618) = XX(618)-JVS(28945)*XX(4863)-JVS(35058)*XX(5182) - XX(617) = XX(617)-JVS(34754)*XX(5171)-JVS(38104)*XX(5231) - XX(616) = XX(616)-JVS(11304)*XX(2642)-JVS(16182)*XX(3522)-JVS(41037)*XX(5250)-JVS(50550)*XX(5255) - XX(615) = XX(615)-JVS(35726)*XX(5193)-JVS(50549)*XX(5255) - XX(614) = XX(614)-JVS(23739)*XX(4398)-JVS(28070)*XX(4796)-JVS(41036)*XX(5250)-JVS(50548)*XX(5255) - XX(613) = XX(613)-JVS(26620)*XX(4666)-JVS(41035)*XX(5250) - XX(612) = XX(612)-JVS(28456)*XX(4824)-JVS(36110)*XX(5196)-JVS(41034)*XX(5250)-JVS(45072)*XX(5251) - XX(611) = XX(611)-JVS(36911)*XX(5208)-JVS(41033)*XX(5250) - XX(610) = XX(610)-JVS(34199)*XX(5158)-JVS(35725)*XX(5193) - XX(609) = XX(609)-JVS(23338)*XX(4355)-JVS(28770)*XX(4850)-JVS(34518)*XX(5161)-JVS(41032)*XX(5250) - XX(608) = XX(608)-JVS(6234)*XX(1556)-JVS(9486)*XX(2255)-JVS(41031)*XX(5250)-JVS(50547)*XX(5255) - XX(607) = XX(607)-JVS(33100)*XX(5118)-JVS(37731)*XX(5224) - XX(606) = XX(606)-JVS(37292)*XX(5218)-JVS(37303)*XX(5219) - XX(605) = XX(605)-JVS(37374)*XX(5222)-JVS(39828)*XX(5244) - XX(604) = XX(604)-JVS(29556)*XX(4912)-JVS(36185)*XX(5198)-JVS(41030)*XX(5250)-JVS(45071)*XX(5251) - XX(603) = XX(603)-JVS(39197)*XX(5234)-JVS(50546)*XX(5255) - XX(602) = XX(602)-JVS(23468)*XX(4369)-JVS(34517)*XX(5161)-JVS(35148)*XX(5183)-JVS(41029)*XX(5250) - XX(601) = XX(601)-JVS(27639)*XX(4755)-JVS(30631)*XX(4981)-JVS(39505)*XX(5238)-JVS(41028)*XX(5250) - XX(600) = XX(600)-JVS(35724)*XX(5193)-JVS(39420)*XX(5237) - XX(599) = XX(599)-JVS(17909)*XX(3741)-JVS(29583)*XX(4914)-JVS(41027)*XX(5250)-JVS(50545)*XX(5255) - XX(598) = XX(598)-JVS(17499)*XX(3689)-JVS(28346)*XX(4814)-JVS(41026)*XX(5250)-JVS(50544)*XX(5255) - XX(597) = XX(597)-JVS(17645)*XX(3709)-JVS(47964)*XX(5253) - XX(596) = XX(596)-JVS(33495)*XX(5136)-JVS(35723)*XX(5193) - XX(595) = XX(595)-JVS(34069)*XX(5152)-JVS(39196)*XX(5234) - XX(594) = XX(594)-JVS(24684)*XX(4485)-JVS(41025)*XX(5250) - XX(593) = XX(593)-JVS(24683)*XX(4485)-JVS(41024)*XX(5250) - XX(592) = XX(592)-JVS(38103)*XX(5231)-JVS(39827)*XX(5244) - XX(591) = XX(591)-JVS(18287)*XX(3784)-JVS(34118)*XX(5153)-JVS(41023)*XX(5250)-JVS(45070)*XX(5251) - XX(590) = XX(590)-JVS(11034)*XX(2589)-JVS(18072)*XX(3759)-JVS(41022)*XX(5250)-JVS(50543)*XX(5255) - XX(589) = XX(589)-JVS(33737)*XX(5141)-JVS(35147)*XX(5183) - XX(588) = XX(588)-JVS(20892)*XX(4099)-JVS(33960)*XX(5146)-JVS(39504)*XX(5238)-JVS(41021)*XX(5250) - XX(587) = XX(587)-JVS(34856)*XX(5176)-JVS(38102)*XX(5231)-JVS(41020)*XX(5250)-JVS(47963)*XX(5253) - XX(586) = XX(586)-JVS(10717)*XX(2528)-JVS(16899)*XX(3616)-JVS(41019)*XX(5250)-JVS(50542)*XX(5255) - XX(585) = XX(585)-JVS(31864)*XX(5052)-JVS(38101)*XX(5231) - XX(584) = XX(584)-JVS(16417)*XX(3556)-JVS(47962)*XX(5253) - XX(583) = XX(583)-JVS(17728)*XX(3719)-JVS(30481)*XX(4969)-JVS(41018)*XX(5250)-JVS(47961)*XX(5253) - XX(582) = XX(582)-JVS(37121)*XX(5214)-JVS(38100)*XX(5231) - XX(581) = XX(581)-JVS(35057)*XX(5182)-JVS(39826)*XX(5244) - XX(580) = XX(580)-JVS(16909)*XX(3617)-JVS(38099)*XX(5231)-JVS(41017)*XX(5250)-JVS(50541)*XX(5255) - XX(579) = XX(579)-JVS(39770)*XX(5243)-JVS(41016)*XX(5250)-JVS(45069)*XX(5251)-JVS(50540)*XX(5255) - XX(578) = XX(578)-JVS(10452)*XX(2473)-JVS(41015)*XX(5250) - XX(577) = XX(577)-JVS(11256)*XX(2634)-JVS(19028)*XX(3879)-JVS(41014)*XX(5250)-JVS(50539)*XX(5255) - XX(576) = XX(576)-JVS(16488)*XX(3565)-JVS(25273)*XX(4534)-JVS(41013)*XX(5250)-JVS(50538)*XX(5255) - XX(575) = XX(575)-JVS(28769)*XX(4850)-JVS(33832)*XX(5143) - XX(574) = XX(574)-JVS(23970)*XX(4417)-JVS(35722)*XX(5193) - XX(573) = XX(573)-JVS(34267)*XX(5160)-JVS(47960)*XX(5253) - XX(572) = XX(572)-JVS(33581)*XX(5139)-JVS(41012)*XX(5250)-JVS(45068)*XX(5251)-JVS(50537)*XX(5255) - XX(571) = XX(571)-JVS(29102)*XX(4874)-JVS(38098)*XX(5231) - XX(570) = XX(570)-JVS(27691)*XX(4760)-JVS(33831)*XX(5143) - XX(569) = XX(569)-JVS(16680)*XX(3590)-JVS(26907)*XX(4693)-JVS(41011)*XX(5250)-JVS(50536)*XX(5255) - XX(568) = XX(568)-JVS(14405)*XX(3230)-JVS(28069)*XX(4796)-JVS(41010)*XX(5250)-JVS(50535)*XX(5255) - XX(567) = XX(567)-JVS(35456)*XX(5188)-JVS(39419)*XX(5237)-JVS(41009)*XX(5250)-JVS(50534)*XX(5255) - XX(566) = XX(566)-JVS(19153)*XX(3894)-JVS(29220)*XX(4886)-JVS(39503)*XX(5238)-JVS(41008)*XX(5250) - XX(565) = XX(565)-JVS(15275)*XX(3378)-JVS(16671)*XX(3589)-JVS(41007)*XX(5250)-JVS(50533)*XX(5255) - XX(564) = XX(564)-JVS(35146)*XX(5183)-JVS(39685)*XX(5242) - XX(563) = XX(563)-JVS(22621)*XX(4282)-JVS(37373)*XX(5222)-JVS(41006)*XX(5250)-JVS(47959)*XX(5253) - XX(562) = XX(562)-JVS(17655)*XX(3710)-JVS(41005)*XX(5250) - XX(561) = XX(561)-JVS(17654)*XX(3710)-JVS(41004)*XX(5250) - XX(560) = XX(560)-JVS(16679)*XX(3590)-JVS(23794)*XX(4403)-JVS(41003)*XX(5250)-JVS(50532)*XX(5255) - XX(559) = XX(559)-JVS(13412)*XX(3041)-JVS(17087)*XX(3639)-JVS(41002)*XX(5250)-JVS(50531)*XX(5255) - XX(558) = XX(558)-JVS(23310)*XX(4352)-JVS(25522)*XX(4556)-JVS(41001)*XX(5250)-JVS(50530)*XX(5255) - XX(557) = XX(557)-JVS(30884)*XX(4996)-JVS(50529)*XX(5255) - XX(556) = XX(556)-JVS(34855)*XX(5176)-JVS(38097)*XX(5231)-JVS(41000)*XX(5250)-JVS(50528)*XX(5255) - XX(555) = XX(555)-JVS(16725)*XX(3595)-JVS(47958)*XX(5253) - XX(554) = XX(554)-JVS(13269)*XX(3013)-JVS(22592)*XX(4279)-JVS(40999)*XX(5250)-JVS(50527)*XX(5255) - XX(553) = XX(553)-JVS(32420)*XX(5085)-JVS(39825)*XX(5244) - XX(552) = XX(552)-JVS(18108)*XX(3763)-JVS(50526)*XX(5255) - XX(551) = XX(551)-JVS(20520)*XX(4053)-JVS(50525)*XX(5255) - XX(550) = XX(550)-JVS(19168)*XX(3896)-JVS(47957)*XX(5253) - XX(549) = XX(549)-JVS(34854)*XX(5176)-JVS(50524)*XX(5255) - XX(548) = XX(548)-JVS(25790)*XX(4586)-JVS(29146)*XX(4878)-JVS(39502)*XX(5238)-JVS(40998)*XX(5250) - XX(547) = XX(547)-JVS(7468)*XX(1818)-JVS(32768)*XX(5101)-JVS(39418)*XX(5237)-JVS(40997)*XX(5250) - XX(546) = XX(546)-JVS(19327)*XX(3915)-JVS(19405)*XX(3923)-JVS(40996)*XX(5250)-JVS(50523)*XX(5255) - XX(545) = XX(545)-JVS(34753)*XX(5171)-JVS(35721)*XX(5193) - XX(544) = XX(544)-JVS(35360)*XX(5184)-JVS(39824)*XX(5244) - XX(543) = XX(543)-JVS(34884)*XX(5177)-JVS(38096)*XX(5231)-JVS(40995)*XX(5250)-JVS(47956)*XX(5253) - XX(542) = XX(542)-JVS(21809)*XX(4202)-JVS(25532)*XX(4557)-JVS(39823)*XX(5244)-JVS(40994)*XX(5250) - XX(541) = XX(541)-JVS(18083)*XX(3760)-JVS(34266)*XX(5160) - XX(540) = XX(540)-JVS(34843)*XX(5175)-JVS(38095)*XX(5231)-JVS(40993)*XX(5250)-JVS(50522)*XX(5255) - XX(539) = XX(539)-JVS(25134)*XX(4521)-JVS(35720)*XX(5193) - XX(538) = XX(538)-JVS(12831)*XX(2936)-JVS(28068)*XX(4796)-JVS(40992)*XX(5250)-JVS(50521)*XX(5255) - XX(537) = XX(537)-JVS(32419)*XX(5085)-JVS(50520)*XX(5255) - XX(536) = XX(536)-JVS(17067)*XX(3638)-JVS(38094)*XX(5231)-JVS(40991)*XX(5250)-JVS(50519)*XX(5255) - XX(535) = XX(535)-JVS(16533)*XX(3571)-JVS(47955)*XX(5253) - XX(534) = XX(534)-JVS(23992)*XX(4419)-JVS(38093)*XX(5231) - XX(533) = XX(533)-JVS(39195)*XX(5234)-JVS(39822)*XX(5244) - XX(532) = XX(532)-JVS(22282)*XX(4248)-JVS(50518)*XX(5255) - XX(531) = XX(531)-JVS(15088)*XX(3352)-JVS(23703)*XX(4393)-JVS(40990)*XX(5250)-JVS(50517)*XX(5255) - XX(530) = XX(530)-JVS(18771)*XX(3849)-JVS(38092)*XX(5231)-JVS(40989)*XX(5250)-JVS(47954)*XX(5253) - XX(529) = XX(529)-JVS(21915)*XX(4213)-JVS(37372)*XX(5222)-JVS(40988)*XX(5250)-JVS(47953)*XX(5253) - XX(528) = XX(528)-JVS(24334)*XX(4450)-JVS(35719)*XX(5193) - XX(527) = XX(527)-JVS(7434)*XX(1812)-JVS(32451)*XX(5086)-JVS(40987)*XX(5250)-JVS(50516)*XX(5255) - XX(526) = XX(526)-JVS(8254)*XX(1984)-JVS(40986)*XX(5250)-JVS(50515)*XX(5255) - XX(525) = XX(525)-JVS(21098)*XX(4122)-JVS(40985)*XX(5250)-JVS(50514)*XX(5255) - XX(524) = XX(524)-JVS(21440)*XX(4164)-JVS(40984)*XX(5250)-JVS(50513)*XX(5255) - XX(523) = XX(523)-JVS(13635)*XX(3082)-JVS(40983)*XX(5250)-JVS(50512)*XX(5255) - XX(522) = XX(522)-JVS(21549)*XX(4176)-JVS(22389)*XX(4258)-JVS(40982)*XX(5250) - XX(521) = XX(521)-JVS(20439)*XX(4046)-JVS(40981)*XX(5250) - XX(520) = XX(520)-JVS(8282)*XX(1989)-JVS(40980)*XX(5250)-JVS(50511)*XX(5255) - XX(519) = XX(519)-JVS(22906)*XX(4310)-JVS(40979)*XX(5250) - XX(518) = XX(518)-JVS(22006)*XX(4221)-JVS(40978)*XX(5250) - XX(517) = XX(517)-JVS(13855)*XX(3121)-JVS(40977)*XX(5250)-JVS(50510)*XX(5255) - XX(516) = XX(516)-JVS(10481)*XX(2480)-JVS(40976)*XX(5250)-JVS(50509)*XX(5255) - XX(515) = XX(515)-JVS(6509)*XX(1617)-JVS(40975)*XX(5250) - XX(514) = XX(514)-JVS(29566)*XX(4913)-JVS(30391)*XX(4963)-JVS(40974)*XX(5250) - XX(513) = XX(513)-JVS(15682)*XX(3434)-JVS(40973)*XX(5250)-JVS(50508)*XX(5255) - XX(512) = XX(512)-JVS(13902)*XX(3128)-JVS(40972)*XX(5250)-JVS(50507)*XX(5255) - XX(511) = XX(511)-JVS(12678)*XX(2909)-JVS(40971)*XX(5250)-JVS(50506)*XX(5255) - XX(510) = XX(510)-JVS(21967)*XX(4218)-JVS(40970)*XX(5250) - XX(509) = XX(509)-JVS(1985)*XX(510)-JVS(40969)*XX(5250)-JVS(50505)*XX(5255) - XX(508) = XX(508)-JVS(26189)*XX(4624)-JVS(40968)*XX(5250) - XX(507) = XX(507)-JVS(20409)*XX(4043)-JVS(40967)*XX(5250) - XX(506) = XX(506)-JVS(31241)*XX(5016)-JVS(40966)*XX(5250) - XX(505) = XX(505)-JVS(15522)*XX(3412)-JVS(40965)*XX(5250)-JVS(50504)*XX(5255) - XX(504) = XX(504)-JVS(16715)*XX(3594)-JVS(40964)*XX(5250)-JVS(50503)*XX(5255) - XX(503) = XX(503)-JVS(20040)*XX(4000)-JVS(40963)*XX(5250) - XX(502) = XX(502)-JVS(6872)*XX(1696)-JVS(40962)*XX(5250)-JVS(50502)*XX(5255) - XX(501) = XX(501)-JVS(29177)*XX(4882)-JVS(40961)*XX(5250)-JVS(50501)*XX(5255) - XX(500) = XX(500)-JVS(11497)*XX(2680)-JVS(40960)*XX(5250)-JVS(50500)*XX(5255) - XX(499) = XX(499)-JVS(28877)*XX(4857)-JVS(40959)*XX(5250) - XX(498) = XX(498)-JVS(16782)*XX(3602)-JVS(40958)*XX(5250)-JVS(50499)*XX(5255) - XX(497) = XX(497)-JVS(19508)*XX(3935)-JVS(40957)*XX(5250)-JVS(50498)*XX(5255) - XX(496) = XX(496)-JVS(6545)*XX(1624)-JVS(40956)*XX(5250) - XX(495) = XX(495)-JVS(19854)*XX(3978)-JVS(40955)*XX(5250)-JVS(50497)*XX(5255) - XX(494) = XX(494)-JVS(38791)*XX(5232)-JVS(40954)*XX(5250)-JVS(50496)*XX(5255) - XX(493) = XX(493)-JVS(10375)*XX(2457)-JVS(40953)*XX(5250)-JVS(50495)*XX(5255) - XX(492) = XX(492)-JVS(20568)*XX(4059)-JVS(40952)*XX(5250) - XX(491) = XX(491)-JVS(22885)*XX(4308)-JVS(40951)*XX(5250) - XX(490) = XX(490)-JVS(22884)*XX(4308)-JVS(40950)*XX(5250) - XX(489) = XX(489)-JVS(7077)*XX(1739)-JVS(40949)*XX(5250) - XX(488) = XX(488)-JVS(32099)*XX(5064)-JVS(40948)*XX(5250) - XX(487) = XX(487)-JVS(16517)*XX(3569)-JVS(40947)*XX(5250)-JVS(50494)*XX(5255) - XX(486) = XX(486)-JVS(14087)*XX(3166)-JVS(40946)*XX(5250)-JVS(50493)*XX(5255) - XX(485) = XX(485)-JVS(3638)*XX(911)-JVS(40945)*XX(5250)-JVS(50492)*XX(5255) - XX(484) = XX(484)-JVS(28933)*XX(4862)-JVS(40944)*XX(5250) - XX(483) = XX(483)-JVS(21610)*XX(4182)-JVS(40943)*XX(5250) - XX(482) = XX(482)-JVS(9288)*XX(2209)-JVS(40942)*XX(5250)-JVS(50491)*XX(5255) - XX(481) = XX(481)-JVS(28651)*XX(4842)-JVS(40941)*XX(5250)-JVS(50490)*XX(5255) - XX(480) = XX(480)-JVS(17234)*XX(3655)-JVS(40940)*XX(5250)-JVS(50489)*XX(5255) - XX(479) = XX(479)-JVS(33120)*XX(5120)-JVS(40939)*XX(5250) - XX(478) = XX(478)-JVS(14638)*XX(3270)-JVS(40938)*XX(5250)-JVS(50488)*XX(5255) - XX(477) = XX(477)-JVS(23016)*XX(4320)-JVS(32680)*XX(5098)-JVS(40937)*XX(5250) - XX(476) = XX(476)-JVS(13078)*XX(2979)-JVS(40936)*XX(5250)-JVS(50487)*XX(5255) - XX(475) = XX(475)-JVS(16609)*XX(3581)-JVS(40935)*XX(5250)-JVS(50486)*XX(5255) - XX(474) = XX(474)-JVS(30072)*XX(4942)-JVS(40934)*XX(5250) - XX(473) = XX(473)-JVS(13901)*XX(3128)-JVS(40933)*XX(5250)-JVS(50485)*XX(5255) - XX(472) = XX(472)-JVS(26188)*XX(4624)-JVS(40932)*XX(5250) - XX(471) = XX(471)-JVS(16931)*XX(3619)-JVS(40931)*XX(5250)-JVS(50484)*XX(5255) - XX(470) = XX(470)-JVS(22145)*XX(4234)-JVS(40930)*XX(5250) - XX(469) = XX(469)-JVS(19348)*XX(3917)-JVS(40929)*XX(5250)-JVS(50483)*XX(5255) - XX(468) = XX(468)-JVS(20930)*XX(4103)-JVS(40928)*XX(5250)-JVS(50482)*XX(5255) - XX(467) = XX(467)-JVS(6693)*XX(1656)-JVS(40927)*XX(5250)-JVS(50481)*XX(5255) - XX(466) = XX(466)-JVS(15201)*XX(3369)-JVS(40926)*XX(5250)-JVS(50480)*XX(5255) - XX(465) = XX(465)-JVS(35569)*XX(5189)-JVS(40925)*XX(5250)-JVS(50479)*XX(5255) - XX(464) = XX(464)-JVS(15191)*XX(3368)-JVS(40924)*XX(5250)-JVS(50478)*XX(5255) - XX(463) = XX(463)-JVS(16998)*XX(3628)-JVS(40923)*XX(5250)-JVS(50477)*XX(5255) - XX(462) = XX(462)-JVS(12677)*XX(2909)-JVS(40922)*XX(5250)-JVS(50476)*XX(5255) - XX(461) = XX(461)-JVS(25851)*XX(4592)-JVS(40921)*XX(5250) - XX(460) = XX(460)-JVS(13688)*XX(3091)-JVS(40920)*XX(5250)-JVS(50475)*XX(5255) - XX(459) = XX(459)-JVS(21358)*XX(4154)-JVS(40919)*XX(5250) - XX(458) = XX(458)-JVS(6823)*XX(1685)-JVS(40918)*XX(5250)-JVS(50474)*XX(5255) - XX(457) = XX(457)-JVS(6445)*XX(1605)-JVS(40917)*XX(5250) - XX(456) = XX(456)-JVS(28687)*XX(4844)-JVS(40916)*XX(5250) - XX(455) = XX(455)-JVS(22005)*XX(4221)-JVS(40915)*XX(5250) - XX(454) = XX(454)-JVS(25741)*XX(4580)-JVS(40914)*XX(5250)-JVS(50473)*XX(5255) - XX(453) = XX(453)-JVS(13829)*XX(3117)-JVS(40913)*XX(5250)-JVS(50472)*XX(5255) - XX(452) = XX(452)-JVS(39566)*XX(5240)-JVS(40912)*XX(5250)-JVS(50471)*XX(5255) - XX(451) = XX(451)-JVS(40911)*XX(5250)-JVS(45067)*XX(5251)-JVS(50470)*XX(5255) - XX(450) = XX(450)-JVS(21682)*XX(4189) - XX(449) = XX(449)-JVS(33060)*XX(5116)-JVS(40910)*XX(5250) - XX(448) = XX(448)-JVS(3637)*XX(911)-JVS(40909)*XX(5250)-JVS(47952)*XX(5253) - XX(447) = XX(447)-JVS(27766)*XX(4766)-JVS(39501)*XX(5238)-JVS(40908)*XX(5250) - XX(446) = XX(446)-JVS(14932)*XX(3331)-JVS(40907)*XX(5250)-JVS(50469)*XX(5255) - XX(445) = XX(445)-JVS(25717)*XX(4577) - XX(444) = XX(444)-JVS(30404)*XX(4964)-JVS(40906)*XX(5250)-JVS(50468)*XX(5255) - XX(443) = XX(443)-JVS(18737)*XX(3845) - XX(442) = XX(442)-JVS(1743)*XX(443)-JVS(40905)*XX(5250)-JVS(50467)*XX(5255) - XX(441) = XX(441)-JVS(15578)*XX(3420)-JVS(40904)*XX(5250)-JVS(50466)*XX(5255) - XX(440) = XX(440)-JVS(5490)*XX(1372)-JVS(40903)*XX(5250)-JVS(50465)*XX(5255) - XX(439) = XX(439)-JVS(21621)*XX(4183)-JVS(40902)*XX(5250)-JVS(50464)*XX(5255) - XX(438) = XX(438)-JVS(32064)*XX(5062)-JVS(40901)*XX(5250) - XX(437) = XX(437)-JVS(22808)*XX(4300)-JVS(40900)*XX(5250)-JVS(50463)*XX(5255) - XX(436) = XX(436)-JVS(14132)*XX(3174)-JVS(40899)*XX(5250)-JVS(50462)*XX(5255) - XX(435) = XX(435)-JVS(31149)*XX(5010)-JVS(40898)*XX(5250) - XX(434) = XX(434)-JVS(32036)*XX(5060)-JVS(40897)*XX(5250) - XX(433) = XX(433)-JVS(21046)*XX(4116)-JVS(40896)*XX(5250) - XX(432) = XX(432)-JVS(15017)*XX(3343)-JVS(40895)*XX(5250)-JVS(50461)*XX(5255) - XX(431) = XX(431)-JVS(17153)*XX(3645)-JVS(40894)*XX(5250)-JVS(50460)*XX(5255) - XX(430) = XX(430)-JVS(7166)*XX(1756)-JVS(40893)*XX(5250)-JVS(50459)*XX(5255) - XX(429) = XX(429)-JVS(13792)*XX(3110)-JVS(40892)*XX(5250)-JVS(50458)*XX(5255) - XX(428) = XX(428)-JVS(13674)*XX(3089)-JVS(40891)*XX(5250)-JVS(50457)*XX(5255) - XX(427) = XX(427)-JVS(19602)*XX(3947)-JVS(40890)*XX(5250)-JVS(50456)*XX(5255) - XX(426) = XX(426)-JVS(33574)*XX(5138)-JVS(39500)*XX(5238)-JVS(40889)*XX(5250) - XX(425) = XX(425)-JVS(21001)*XX(4110)-JVS(40888)*XX(5250)-JVS(50455)*XX(5255) - XX(424) = XX(424)-JVS(16624)*XX(3583)-JVS(40887)*XX(5250)-JVS(50454)*XX(5255) - XX(423) = XX(423)-JVS(20383)*XX(4041)-JVS(40886)*XX(5250) - XX(422) = XX(422)-JVS(24037)*XX(4423)-JVS(40885)*XX(5250)-JVS(47951)*XX(5253) - XX(421) = XX(421)-JVS(17489)*XX(3688) - XX(420) = XX(420)-JVS(29041)*XX(4870)-JVS(40884)*XX(5250) - XX(419) = XX(419)-JVS(21277)*XX(4144)-JVS(21305)*XX(4148)-JVS(40883)*XX(5250) - XX(418) = XX(418)-JVS(8603)*XX(2056)-JVS(40882)*XX(5250)-JVS(50453)*XX(5255) - XX(417) = XX(417)-JVS(14039)*XX(3156)-JVS(40881)*XX(5250)-JVS(50452)*XX(5255) - XX(416) = XX(416)-JVS(35359)*XX(5184)-JVS(40880)*XX(5250)-JVS(50451)*XX(5255) - XX(415) = XX(415)-JVS(17869)*XX(3736)-JVS(40879)*XX(5250)-JVS(50450)*XX(5255) - XX(414) = XX(414)-JVS(22144)*XX(4234)-JVS(40878)*XX(5250) - XX(413) = XX(413)-JVS(14474)*XX(3242)-JVS(40877)*XX(5250)-JVS(50449)*XX(5255) - XX(412) = XX(412)-JVS(14100)*XX(3168)-JVS(40876)*XX(5250)-JVS(50448)*XX(5255) - XX(411) = XX(411)-JVS(15659)*XX(3431)-JVS(40875)*XX(5250)-JVS(50447)*XX(5255) - XX(410) = XX(410)-JVS(6651)*XX(1648)-JVS(40874)*XX(5250)-JVS(50446)*XX(5255) - XX(409) = XX(409)-JVS(14323)*XX(3213)-JVS(40873)*XX(5250)-JVS(50445)*XX(5255) - XX(408) = XX(408)-JVS(16600)*XX(3580)-JVS(40872)*XX(5250)-JVS(50444)*XX(5255) - XX(407) = XX(407)-JVS(21070)*XX(4119) - XX(406) = XX(406)-JVS(15411)*XX(3397)-JVS(40871)*XX(5250)-JVS(50443)*XX(5255) - XX(405) = XX(405)-JVS(29526)*XX(4910)-JVS(40870)*XX(5250) - XX(404) = XX(404)-JVS(29525)*XX(4910)-JVS(40869)*XX(5250) - XX(403) = XX(403)-JVS(1606)*XX(404)-JVS(40868)*XX(5250)-JVS(50442)*XX(5255) - XX(402) = XX(402)-JVS(16335)*XX(3543)-JVS(40867)*XX(5250)-JVS(50441)*XX(5255) - XX(401) = XX(401)-JVS(37082)*XX(5212)-JVS(40866)*XX(5250)-JVS(50440)*XX(5255) - XX(400) = XX(400)-JVS(7390)*XX(1803)-JVS(40865)*XX(5250)-JVS(50439)*XX(5255) - XX(399) = XX(399)-JVS(22038)*XX(4224)-JVS(40864)*XX(5250)-JVS(50438)*XX(5255) - XX(398) = XX(398)-JVS(22217)*XX(4241)-JVS(40863)*XX(5250) - XX(397) = XX(397)-JVS(22216)*XX(4241)-JVS(40862)*XX(5250) - XX(396) = XX(396)-JVS(17282)*XX(3661)-JVS(40861)*XX(5250)-JVS(50437)*XX(5255) - XX(395) = XX(395)-JVS(2557)*XX(652)-JVS(40860)*XX(5250)-JVS(50436)*XX(5255) - XX(394) = XX(394)-JVS(15235)*XX(3373)-JVS(40859)*XX(5250)-JVS(50435)*XX(5255) - XX(393) = XX(393)-JVS(31099)*XX(5007)-JVS(40858)*XX(5250) - XX(392) = XX(392)-JVS(10425)*XX(2467)-JVS(40857)*XX(5250)-JVS(50434)*XX(5255) - XX(391) = XX(391)-JVS(15851)*XX(3470)-JVS(40856)*XX(5250)-JVS(50433)*XX(5255) - XX(390) = XX(390)-JVS(17118)*XX(3642)-JVS(40855)*XX(5250)-JVS(50432)*XX(5255) - XX(389) = XX(389)-JVS(20356)*XX(4038)-JVS(40854)*XX(5250) - XX(388) = XX(388)-JVS(17572)*XX(3698)-JVS(40853)*XX(5250) - XX(387) = XX(387)-JVS(20509)*XX(4052)-JVS(40852)*XX(5250) - XX(386) = XX(386)-JVS(21160)*XX(4129)-JVS(31814)*XX(5047)-JVS(40851)*XX(5250) - XX(385) = XX(385)-JVS(15368)*XX(3391)-JVS(40850)*XX(5250)-JVS(50431)*XX(5255) - XX(384) = XX(384)-JVS(27638)*XX(4755)-JVS(40849)*XX(5250) - XX(383) = XX(383)-JVS(34551)*XX(5162)-JVS(40848)*XX(5250)-JVS(50430)*XX(5255) - XX(382) = XX(382)-JVS(6711)*XX(1660)-JVS(40847)*XX(5250)-JVS(50429)*XX(5255) - XX(381) = XX(381)-JVS(11674)*XX(2716)-JVS(40846)*XX(5250)-JVS(50428)*XX(5255) - XX(380) = XX(380)-JVS(18720)*XX(3843)-JVS(40845)*XX(5250)-JVS(50427)*XX(5255) - XX(379) = XX(379)-JVS(29379)*XX(4901)-JVS(40844)*XX(5250) - XX(378) = XX(378)-JVS(17753)*XX(3722)-JVS(40843)*XX(5250) - XX(377) = XX(377)-JVS(9037)*XX(2154)-JVS(40842)*XX(5250)-JVS(50426)*XX(5255) - XX(376) = XX(376)-JVS(35419)*XX(5185)-JVS(40841)*XX(5250) - XX(375) = XX(375)-JVS(20207)*XX(4019)-JVS(40840)*XX(5250) - XX(374) = XX(374)-JVS(16764)*XX(3600)-JVS(40839)*XX(5250)-JVS(50425)*XX(5255) - XX(373) = XX(373)-JVS(21357)*XX(4154)-JVS(40838)*XX(5250) - XX(372) = XX(372)-JVS(1795)*XX(455)-JVS(40837)*XX(5250)-JVS(50424)*XX(5255) - XX(371) = XX(371)-JVS(7924)*XX(1913)-JVS(40836)*XX(5250)-JVS(50423)*XX(5255) - XX(370) = XX(370)-JVS(19667)*XX(3955) - XX(369) = XX(369)-JVS(1486)*XX(370)-JVS(40835)*XX(5250)-JVS(50422)*XX(5255) - XX(368) = XX(368)-JVS(5029)*XX(1257)-JVS(40834)*XX(5250)-JVS(50421)*XX(5255) - XX(367) = XX(367)-JVS(18705)*XX(3841)-JVS(40833)*XX(5250) - XX(366) = XX(366)-JVS(1775)*XX(450)-JVS(40832)*XX(5250)-JVS(50420)*XX(5255) - XX(365) = XX(365)-JVS(1618)*XX(407)-JVS(40831)*XX(5250)-JVS(50419)*XX(5255) - XX(364) = XX(364)-JVS(17474)*XX(3686)-JVS(40830)*XX(5250) - XX(363) = XX(363)-JVS(28634)*XX(4841)-JVS(40829)*XX(5250) - XX(362) = XX(362)-JVS(25195)*XX(4526)-JVS(31627)*XX(5039)-JVS(40828)*XX(5250) - XX(361) = XX(361)-JVS(15225)*XX(3372)-JVS(40827)*XX(5250)-JVS(50418)*XX(5255) - XX(360) = XX(360)-JVS(17928)*XX(3743)-JVS(40826)*XX(5250) - XX(359) = XX(359)-JVS(1853)*XX(472)-JVS(40825)*XX(5250)-JVS(50417)*XX(5255) - XX(358) = XX(358)-JVS(9664)*XX(2295)-JVS(40824)*XX(5250)-JVS(50416)*XX(5255) - XX(357) = XX(357)-JVS(11694)*XX(2719)-JVS(40823)*XX(5250)-JVS(50415)*XX(5255) - XX(356) = XX(356)-JVS(4924)*XX(1231)-JVS(40822)*XX(5250)-JVS(50414)*XX(5255) - XX(355) = XX(355)-JVS(19962)*XX(3991)-JVS(40821)*XX(5250)-JVS(50413)*XX(5255) - XX(354) = XX(354)-JVS(10350)*XX(2452)-JVS(40820)*XX(5250)-JVS(50412)*XX(5255) - XX(353) = XX(353)-JVS(13837)*XX(3118)-JVS(40819)*XX(5250)-JVS(50411)*XX(5255) - XX(352) = XX(352)-JVS(16799)*XX(3604)-JVS(40818)*XX(5250)-JVS(50410)*XX(5255) - XX(351) = XX(351)-JVS(22755)*XX(4295)-JVS(40817)*XX(5250) - XX(350) = XX(350)-JVS(10682)*XX(2521)-JVS(40816)*XX(5250)-JVS(50409)*XX(5255) - XX(349) = XX(349)-JVS(18794)*XX(3851)-JVS(40815)*XX(5250)-JVS(50408)*XX(5255) - XX(348) = XX(348)-JVS(18878)*XX(3861)-JVS(40814)*XX(5250)-JVS(50407)*XX(5255) - XX(347) = XX(347)-JVS(2304)*XX(593)-JVS(40813)*XX(5250)-JVS(50406)*XX(5255) - XX(346) = XX(346)-JVS(24878)*XX(4501)-JVS(40812)*XX(5250)-JVS(50405)*XX(5255) - XX(345) = XX(345)-JVS(34620)*XX(5165)-JVS(40811)*XX(5250)-JVS(50404)*XX(5255) - XX(344) = XX(344)-JVS(2913)*XX(735)-JVS(40810)*XX(5250)-JVS(50403)*XX(5255) - XX(343) = XX(343)-JVS(33133)*XX(5121)-JVS(40809)*XX(5250) - XX(342) = XX(342)-JVS(32925)*XX(5107)-JVS(39499)*XX(5238)-JVS(40808)*XX(5250) - XX(341) = XX(341)-JVS(20082)*XX(4005)-JVS(40807)*XX(5250) - XX(340) = XX(340)-JVS(8105)*XX(1953)-JVS(40806)*XX(5250)-JVS(50402)*XX(5255) - XX(339) = XX(339)-JVS(19011)*XX(3877)-JVS(40805)*XX(5250)-JVS(50401)*XX(5255) - XX(338) = XX(338)-JVS(18835)*XX(3856)-JVS(40804)*XX(5250)-JVS(50400)*XX(5255) - XX(337) = XX(337)-JVS(40803)*XX(5250)-JVS(46590)*XX(5252)-JVS(47950)*XX(5253) - XX(336) = XX(336)-JVS(6437)*XX(1604)-JVS(40802)*XX(5250)-JVS(50399)*XX(5255) - XX(335) = XX(335)-JVS(23618)*XX(4386)-JVS(40801)*XX(5250)-JVS(50398)*XX(5255) - XX(334) = XX(334)-JVS(30589)*XX(4978)-JVS(40800)*XX(5250)-JVS(50397)*XX(5255) - XX(333) = XX(333)-JVS(19922)*XX(3986)-JVS(40799)*XX(5250)-JVS(50396)*XX(5255) - XX(332) = XX(332)-JVS(17101)*XX(3640)-JVS(40798)*XX(5250)-JVS(50395)*XX(5255) - XX(331) = XX(331)-JVS(4156)*XX(1040)-JVS(40797)*XX(5250)-JVS(47949)*XX(5253) - XX(330) = XX(330)-JVS(36763)*XX(5202)-JVS(40796)*XX(5250) - XX(329) = XX(329)-JVS(20558)*XX(4058)-JVS(40795)*XX(5250) - XX(328) = XX(328)-JVS(18918)*XX(3866)-JVS(40794)*XX(5250) - XX(327) = XX(327)-JVS(25393)*XX(4544)-JVS(39601)*XX(5241)-JVS(40793)*XX(5250) - XX(326) = XX(326)-JVS(23402)*XX(4363) - XX(325) = XX(325)-JVS(36891)*XX(5207)-JVS(40792)*XX(5250)-JVS(50394)*XX(5255) - XX(324) = XX(324)-JVS(25297)*XX(4536)-JVS(40791)*XX(5250) - XX(323) = XX(323)-JVS(25296)*XX(4536)-JVS(40790)*XX(5250) - XX(322) = XX(322)-JVS(1327)*XX(323)-JVS(40789)*XX(5250)-JVS(50393)*XX(5255) - XX(321) = XX(321)-JVS(7730)*XX(1870)-JVS(40788)*XX(5250)-JVS(50392)*XX(5255) - XX(320) = XX(320)-JVS(12843)*XX(2938)-JVS(40787)*XX(5250)-JVS(50391)*XX(5255) - XX(319) = XX(319)-JVS(16973)*XX(3626)-JVS(40786)*XX(5250)-JVS(50390)*XX(5255) - XX(318) = XX(318)-JVS(20438)*XX(4046)-JVS(40785)*XX(5250) - XX(317) = XX(317)-JVS(10639)*XX(2512)-JVS(40784)*XX(5250)-JVS(50389)*XX(5255) - XX(316) = XX(316)-JVS(27405)*XX(4736)-JVS(40783)*XX(5250)-JVS(50388)*XX(5255) - XX(315) = XX(315)-JVS(21508)*XX(4172) - XX(314) = XX(314)-JVS(18227)*XX(3777)-JVS(40782)*XX(5250)-JVS(50387)*XX(5255) - XX(313) = XX(313)-JVS(11997)*XX(2773)-JVS(40781)*XX(5250)-JVS(50386)*XX(5255) - XX(312) = XX(312)-JVS(4530)*XX(1133)-JVS(40780)*XX(5250)-JVS(50385)*XX(5255) - XX(311) = XX(311)-JVS(10558)*XX(2495)-JVS(40779)*XX(5250)-JVS(50384)*XX(5255) - XX(310) = XX(310)-JVS(32386)*XX(5083)-JVS(40778)*XX(5250)-JVS(50383)*XX(5255) - XX(309) = XX(309)-JVS(21979)*XX(4219)-JVS(40777)*XX(5250) - XX(308) = XX(308)-JVS(19415)*XX(3924)-JVS(40776)*XX(5250)-JVS(50382)*XX(5255) - XX(307) = XX(307)-JVS(10950)*XX(2574)-JVS(40775)*XX(5250)-JVS(50381)*XX(5255) - XX(306) = XX(306)-JVS(25311)*XX(4537)-JVS(40774)*XX(5250)-JVS(50380)*XX(5255) - XX(305) = XX(305)-JVS(10508)*XX(2486)-JVS(40773)*XX(5250)-JVS(50379)*XX(5255) - XX(304) = XX(304)-JVS(25551)*XX(4559)-JVS(40772)*XX(5250)-JVS(50378)*XX(5255) - XX(303) = XX(303)-JVS(2178)*XX(561)-JVS(40771)*XX(5250)-JVS(50377)*XX(5255) - XX(302) = XX(302)-JVS(16379)*XX(3549)-JVS(40770)*XX(5250)-JVS(50376)*XX(5255) - XX(301) = XX(301)-JVS(40474)*XX(5246)-JVS(40769)*XX(5250) - XX(300) = XX(300)-JVS(25740)*XX(4580) - XX(299) = XX(299)-JVS(1582)*XX(397)-JVS(40768)*XX(5250)-JVS(50375)*XX(5255) - XX(298) = XX(298)-JVS(10412)*XX(2465)-JVS(33355)*XX(5129)-JVS(40767)*XX(5250) - XX(297) = XX(297)-JVS(18826)*XX(3855) - XX(296) = XX(296)-JVS(12410)*XX(2856)-JVS(40766)*XX(5250)-JVS(50374)*XX(5255) - XX(295) = XX(295)-JVS(21576)*XX(4179)-JVS(40765)*XX(5250)-JVS(50373)*XX(5255) - XX(294) = XX(294)-JVS(37730)*XX(5224)-JVS(40764)*XX(5250) - XX(293) = XX(293)-JVS(21800)*XX(4201)-JVS(25594)*XX(4563)-JVS(40763)*XX(5250) - XX(292) = XX(292)-JVS(16754)*XX(3599)-JVS(40762)*XX(5250)-JVS(50372)*XX(5255) - XX(291) = XX(291)-JVS(32295)*XX(5078)-JVS(40761)*XX(5250) - XX(290) = XX(290)-JVS(19059)*XX(3882) - XX(289) = XX(289)-JVS(23666)*XX(4391)-JVS(40760)*XX(5250)-JVS(50371)*XX(5255) - XX(288) = XX(288)-JVS(30618)*XX(4980)-JVS(39498)*XX(5238)-JVS(40759)*XX(5250) - XX(287) = XX(287)-JVS(25467)*XX(4550)-JVS(40758)*XX(5250) - XX(286) = XX(286)-JVS(11424)*XX(2665)-JVS(40757)*XX(5250)-JVS(50370)*XX(5255) - XX(285) = XX(285)-JVS(20986)*XX(4109)-JVS(40756)*XX(5250)-JVS(50369)*XX(5255) - XX(284) = XX(284)-JVS(11317)*XX(2644)-JVS(40755)*XX(5250)-JVS(50368)*XX(5255) - XX(283) = XX(283)-JVS(13863)*XX(3122)-JVS(40754)*XX(5250)-JVS(50367)*XX(5255) - XX(282) = XX(282)-JVS(34048)*XX(5151)-JVS(40753)*XX(5250) - XX(281) = XX(281)-JVS(7599)*XX(1843)-JVS(40752)*XX(5250)-JVS(50366)*XX(5255) - XX(280) = XX(280)-JVS(22316)*XX(4251)-JVS(40751)*XX(5250) - XX(279) = XX(279)-JVS(15168)*XX(3365)-JVS(40750)*XX(5250)-JVS(50365)*XX(5255) - XX(278) = XX(278)-JVS(17221)*XX(3653)-JVS(40749)*XX(5250)-JVS(50364)*XX(5255) - XX(277) = XX(277)-JVS(17183)*XX(3649)-JVS(40748)*XX(5250)-JVS(50363)*XX(5255) - XX(276) = XX(276)-JVS(18218)*XX(3776)-JVS(40747)*XX(5250) - XX(275) = XX(275)-JVS(18327)*XX(3789)-JVS(40746)*XX(5250) - XX(274) = XX(274)-JVS(13747)*XX(3103)-JVS(40745)*XX(5250)-JVS(50362)*XX(5255) - XX(273) = XX(273)-JVS(1310)*XX(318)-JVS(40744)*XX(5250)-JVS(50361)*XX(5255) - XX(272) = XX(272)-JVS(20577)*XX(4060)-JVS(40743)*XX(5250) - XX(271) = XX(271)-JVS(17908)*XX(3741) - XX(270) = XX(270)-JVS(33003)*XX(5112)-JVS(39497)*XX(5238)-JVS(40742)*XX(5250) - XX(269) = XX(269)-JVS(13999)*XX(3148)-JVS(40741)*XX(5250)-JVS(50360)*XX(5255) - XX(268) = XX(268)-JVS(34883)*XX(5177)-JVS(40740)*XX(5250)-JVS(50359)*XX(5255) - XX(267) = XX(267)-JVS(1499)*XX(373)-JVS(40739)*XX(5250)-JVS(50358)*XX(5255) - XX(266) = XX(266)-JVS(6377)*XX(1590)-JVS(40738)*XX(5250)-JVS(50357)*XX(5255) - XX(265) = XX(265)-JVS(18853)*XX(3858)-JVS(40737)*XX(5250) - XX(264) = XX(264)-JVS(27296)*XX(4726)-JVS(40736)*XX(5250) - XX(263) = XX(263)-JVS(13013)*XX(2967)-JVS(40735)*XX(5250)-JVS(50356)*XX(5255) - XX(262) = XX(262)-JVS(17255)*XX(3657)-JVS(40734)*XX(5250)-JVS(50355)*XX(5255) - XX(261) = XX(261)-JVS(23545)*XX(4378)-JVS(50354)*XX(5255) - XX(260) = XX(260)-JVS(40733)*XX(5250)-JVS(50353)*XX(5255) - XX(259) = XX(259)-JVS(4529)*XX(1133)-JVS(40732)*XX(5250)-JVS(47948)*XX(5253) - XX(258) = XX(258)-JVS(30858)*XX(4995)-JVS(40731)*XX(5250) - XX(257) = XX(257)-JVS(6204)*XX(1550)-JVS(40730)*XX(5250)-JVS(50352)*XX(5255) - XX(256) = XX(256)-JVS(16009)*XX(3497)-JVS(40729)*XX(5250)-JVS(50351)*XX(5255) - XX(255) = XX(255)-JVS(29689)*XX(4920)-JVS(40728)*XX(5250) - XX(254) = XX(254)-JVS(19883)*XX(3981) - XX(253) = XX(253)-JVS(32115)*XX(5065)-JVS(39496)*XX(5238)-JVS(40727)*XX(5250) - XX(252) = XX(252)-JVS(23227)*XX(4342)-JVS(40726)*XX(5250) - XX(251) = XX(251)-JVS(20805)*XX(4088)-JVS(40725)*XX(5250) - XX(250) = XX(250)-JVS(14047)*XX(3157)-JVS(18217)*XX(3776)-JVS(18586)*XX(3823)-JVS(20126)*XX(4010)-JVS(40724)*XX(5250)& - &-JVS(50350)*XX(5255) - XX(249) = XX(249)-JVS(39194)*XX(5234)-JVS(40723)*XX(5250)-JVS(50349)*XX(5255) - XX(248) = XX(248)-JVS(6565)*XX(1628)-JVS(40722)*XX(5250)-JVS(50348)*XX(5255) - XX(247) = XX(247)-JVS(5977)*XX(1493)-JVS(40721)*XX(5250)-JVS(50347)*XX(5255) - XX(246) = XX(246)-JVS(5935)*XX(1483)-JVS(40720)*XX(5250)-JVS(50346)*XX(5255) - XX(245) = XX(245)-JVS(24641)*XX(4482)-JVS(40719)*XX(5250)-JVS(47947)*XX(5253) - XX(244) = XX(244)-JVS(4923)*XX(1231)-JVS(40718)*XX(5250)-JVS(47946)*XX(5253) - XX(243) = XX(243)-JVS(27661)*XX(4757)-JVS(33157)*XX(5122)-JVS(40717)*XX(5250) - XX(242) = XX(242)-JVS(18995)*XX(3875)-JVS(40716)*XX(5250)-JVS(50345)*XX(5255) - XX(241) = XX(241)-JVS(17603)*XX(3703)-JVS(40715)*XX(5250) - XX(240) = XX(240)-JVS(33984)*XX(5148)-JVS(40714)*XX(5250) - XX(239) = XX(239)-JVS(25392)*XX(4544)-JVS(39600)*XX(5241)-JVS(40713)*XX(5250) - XX(238) = XX(238)-JVS(31835)*XX(5049)-JVS(40712)*XX(5250)-JVS(50344)*XX(5255) - XX(237) = XX(237)-JVS(36047)*XX(5195)-JVS(40711)*XX(5250) - XX(236) = XX(236)-JVS(22448)*XX(4264)-JVS(27721)*XX(4762)-JVS(40710)*XX(5250) - XX(235) = XX(235)-JVS(35050)*XX(5181)-JVS(39495)*XX(5238)-JVS(40709)*XX(5250) - XX(234) = XX(234)-JVS(13784)*XX(3109)-JVS(40708)*XX(5250)-JVS(50343)*XX(5255) - XX(233) = XX(233)-JVS(4155)*XX(1040)-JVS(40707)*XX(5250)-JVS(50342)*XX(5255) - XX(232) = XX(232)-JVS(22974)*XX(4316)-JVS(40706)*XX(5250) - XX(231) = XX(231)-JVS(25346)*XX(4540)-JVS(40705)*XX(5250)-JVS(50341)*XX(5255) - XX(230) = XX(230)-JVS(32659)*XX(5097)-JVS(40704)*XX(5250) - XX(229) = XX(229)-JVS(19805)*XX(3972)-JVS(40703)*XX(5250)-JVS(50340)*XX(5255) - XX(228) = XX(228)-JVS(16066)*XX(3505)-JVS(40702)*XX(5250)-JVS(50339)*XX(5255) - XX(227) = XX(227)-JVS(23524)*XX(4376)-JVS(40701)*XX(5250) - XX(226) = XX(226)-JVS(9381)*XX(2230)-JVS(40700)*XX(5250)-JVS(50338)*XX(5255) - XX(225) = XX(225)-JVS(17131)*XX(3643)-JVS(40699)*XX(5250)-JVS(50337)*XX(5255) - XX(224) = XX(224)-JVS(21207)*XX(4135)-JVS(21284)*XX(4145)-JVS(40698)*XX(5250) - XX(223) = XX(223)-JVS(19591)*XX(3946)-JVS(40697)*XX(5250)-JVS(50336)*XX(5255) - XX(222) = XX(222)-JVS(22437)*XX(4263)-JVS(40696)*XX(5250) - XX(221) = XX(221)-JVS(33898)*XX(5144)-JVS(39494)*XX(5238)-JVS(40695)*XX(5250) - XX(220) = XX(220)-JVS(15314)*XX(3384)-JVS(40694)*XX(5250)-JVS(50335)*XX(5255) - XX(219) = XX(219)-JVS(9560)*XX(2273)-JVS(40693)*XX(5250)-JVS(50334)*XX(5255) - XX(218) = XX(218)-JVS(12998)*XX(2965)-JVS(40692)*XX(5250)-JVS(50333)*XX(5255) - XX(217) = XX(217)-JVS(21109)*XX(4123)-JVS(25617)*XX(4565)-JVS(40691)*XX(5250) - XX(216) = XX(216)-JVS(20909)*XX(4101)-JVS(40690)*XX(5250) - XX(215) = XX(215)-JVS(18117)*XX(3764)-JVS(40689)*XX(5250) - XX(214) = XX(214)-JVS(27467)*XX(4741)-JVS(36126)*XX(5197)-JVS(40688)*XX(5250) - XX(213) = XX(213)-JVS(12997)*XX(2965)-JVS(40687)*XX(5250)-JVS(50332)*XX(5255) - XX(212) = XX(212)-JVS(1915)*XX(490)-JVS(40686)*XX(5250)-JVS(50331)*XX(5255) - XX(211) = XX(211)-JVS(21423)*XX(4162) - XX(210) = XX(210)-JVS(20714)*XX(4077)-JVS(40685)*XX(5250) - XX(209) = XX(209)-JVS(7641)*XX(1852)-JVS(40684)*XX(5250)-JVS(50330)*XX(5255) - XX(208) = XX(208)-JVS(7024)*XX(1728)-JVS(40683)*XX(5250)-JVS(50329)*XX(5255) - XX(207) = XX(207)-JVS(34029)*XX(5150)-JVS(40682)*XX(5250) - XX(206) = XX(206)-JVS(28464)*XX(4825) - XX(205) = XX(205)-JVS(18816)*XX(3854) - XX(204) = XX(204)-JVS(21923)*XX(4214) - XX(203) = XX(203)-JVS(21080)*XX(4120) - XX(202) = XX(202)-JVS(19766)*XX(3967) - XX(201) = XX(201)-JVS(17653)*XX(3710) - XX(200) = XX(200)-JVS(29260)*XX(4890) - XX(199) = XX(199)-JVS(25632)*XX(4567) - XX(198) = XX(198)-JVS(2675)*XX(680)-JVS(38942)*XX(5233)-JVS(40681)*XX(5250)-JVS(45066)*XX(5251)-JVS(50328)*XX(5255) - XX(197) = XX(197)-JVS(18002)*XX(3751) - XX(196) = XX(196)-JVS(17518)*XX(3691) - XX(195) = XX(195)-JVS(29545)*XX(4911) - XX(194) = XX(194)-JVS(32560)*XX(5091) - XX(193) = XX(193)-JVS(17541)*XX(3694) - XX(192) = XX(192)-JVS(17827)*XX(3731) - XX(191) = XX(191)-JVS(21746)*XX(4196) - XX(190) = XX(190)-JVS(26689)*XX(4672) - XX(189) = XX(189)-JVS(40510)*XX(5247) - XX(188) = XX(188)-JVS(23376)*XX(4360) - XX(187) = XX(187)-JVS(27743)*XX(4764) - XX(186) = XX(186)-JVS(17509)*XX(3690) - XX(185) = XX(185)-JVS(19432)*XX(3926) - XX(184) = XX(184)-JVS(27261)*XX(4722) - XX(183) = XX(183)-JVS(19634)*XX(3951) - XX(182) = XX(182)-JVS(21319)*XX(4150) - XX(181) = XX(181)-JVS(6310)*XX(1573)-JVS(25585)*XX(4562)-JVS(28686)*XX(4844)-JVS(40680)*XX(5250)-JVS(50327)*XX(5255) - XX(180) = XX(180)-JVS(31072)*XX(5006) - XX(179) = XX(179)-JVS(29210)*XX(4885) - XX(178) = XX(178)-JVS(21944)*XX(4216) - XX(177) = XX(177)-JVS(17985)*XX(3749) - XX(176) = XX(176)-JVS(27995)*XX(4789) - XX(175) = XX(175)-JVS(21482)*XX(4169) - XX(174) = XX(174)-JVS(24244)*XX(4442) - XX(173) = XX(173)-JVS(28404)*XX(4820) - XX(172) = XX(172)-JVS(23711)*XX(4394) - XX(171) = XX(171)-JVS(17719)*XX(3718) - XX(170) = XX(170)-JVS(32734)*XX(5100) - XX(169) = XX(169)-JVS(21382)*XX(4157) - XX(168) = XX(168)-JVS(22962)*XX(4315) - XX(167) = XX(167)-JVS(23418)*XX(4365) - XX(166) = XX(166)-JVS(33110)*XX(5119) - XX(165) = XX(165)-JVS(19947)*XX(3989) - XX(164) = XX(164)-JVS(28028)*XX(4792) - XX(163) = XX(163)-JVS(30442)*XX(4966) - XX(162) = XX(162)-JVS(20882)*XX(4098) - XX(161) = XX(161)-JVS(32932)*XX(5108) - XX(160) = XX(160)-JVS(19483)*XX(3932) - XX(159) = XX(159)-JVS(19121)*XX(3890) - XX(158) = XX(158)-JVS(31071)*XX(5006) - XX(157) = XX(157)-JVS(22059)*XX(4226) - XX(156) = XX(156)-JVS(19210)*XX(3901) - XX(155) = XX(155)-JVS(18952)*XX(3870) - XX(154) = XX(154)-JVS(25404)*XX(4545) - XX(153) = XX(153)-JVS(23506)*XX(4374) - XX(152) = XX(152)-JVS(28959)*XX(4864) - XX(151) = XX(151)-JVS(23003)*XX(4319) - XX(150) = XX(150)-JVS(28483)*XX(4827) - XX(149) = XX(149)-JVS(27551)*XX(4748) - XX(148) = XX(148)-JVS(30760)*XX(4987)-JVS(40679)*XX(5250) - XX(147) = XX(147)-JVS(20724)*XX(4078)-JVS(40678)*XX(5250) - XX(146) = XX(146)-JVS(18092)*XX(3761) - XX(145) = XX(145)-JVS(29524)*XX(4910) - XX(144) = XX(144)-JVS(12811)*XX(2933)-JVS(40677)*XX(5250) - XX(143) = XX(143)-JVS(26121)*XX(4619)-JVS(40676)*XX(5250) - XX(142) = XX(142)-JVS(10440)*XX(2471)-JVS(47945)*XX(5253) - XX(141) = XX(141)-JVS(31596)*XX(5038) - XX(140) = XX(140)-JVS(19049)*XX(3881) - XX(139) = XX(139)-JVS(1667)*XX(421)-JVS(40675)*XX(5250) - XX(138) = XX(138)-JVS(22692)*XX(4290) - XX(137) = XX(137)-JVS(47944)*XX(5253)-JVS(53216)*XX(5256) - XX(136) = XX(136)-JVS(24719)*XX(4488)-JVS(40674)*XX(5250) - XX(135) = XX(135)-JVS(30204)*XX(4950)-JVS(40673)*XX(5250) - XX(134) = XX(134)-JVS(1231)*XX(297)-JVS(40672)*XX(5250) - XX(133) = XX(133)-JVS(8149)*XX(1962)-JVS(40671)*XX(5250) - XX(132) = XX(132)-JVS(18961)*XX(3871) - XX(131) = XX(131)-JVS(34787)*XX(5172)-JVS(40670)*XX(5250) - XX(130) = XX(130)-JVS(22883)*XX(4308) - XX(129) = XX(129)-JVS(18424)*XX(3802)-JVS(40669)*XX(5250) - XX(128) = XX(128)-JVS(15456)*XX(3403)-JVS(40668)*XX(5250) - XX(127) = XX(127)-JVS(11848)*XX(2746)-JVS(40667)*XX(5250) - XX(126) = XX(126)-JVS(32197)*XX(5071)-JVS(40666)*XX(5250) - XX(125) = XX(125)-JVS(26594)*XX(4664) - XX(124) = XX(124)-JVS(28174)*XX(4799)-JVS(40665)*XX(5250) - XX(123) = XX(123)-JVS(27842)*XX(4772)-JVS(40664)*XX(5250) - XX(122) = XX(122)-JVS(24070)*XX(4426)-JVS(40663)*XX(5250) - XX(121) = XX(121)-JVS(24212)*XX(4439)-JVS(40662)*XX(5250) - XX(120) = XX(120)-JVS(22215)*XX(4241) - XX(119) = XX(119)-JVS(21337)*XX(4152)-JVS(40661)*XX(5250) - XX(118) = XX(118)-JVS(6523)*XX(1620)-JVS(40660)*XX(5250) - XX(117) = XX(117)-JVS(19298)*XX(3912) - XX(116) = XX(116)-JVS(20437)*XX(4046) - XX(115) = XX(115)-JVS(37837)*XX(5228) - XX(114) = XX(114)-JVS(39599)*XX(5241)-JVS(40659)*XX(5250) - XX(113) = XX(113)-JVS(19219)*XX(3902) - XX(112) = XX(112)-JVS(26202)*XX(4625)-JVS(40658)*XX(5250) - XX(111) = XX(111)-JVS(25262)*XX(4533)-JVS(40657)*XX(5250) - XX(110) = XX(110)-JVS(39343)*XX(5235)-JVS(40656)*XX(5250) - XX(109) = XX(109)-JVS(23077)*XX(4326)-JVS(40655)*XX(5250) - XX(108) = XX(108)-JVS(930)*XX(211)-JVS(40654)*XX(5250) - XX(107) = XX(107)-JVS(21356)*XX(4154) - XX(106) = XX(106)-JVS(22796)*XX(4299)-JVS(40653)*XX(5250) - XX(105) = XX(105)-JVS(14465)*XX(3241)-JVS(40652)*XX(5250) - XX(104) = XX(104)-JVS(8211)*XX(1975)-JVS(40651)*XX(5250) - XX(103) = XX(103)-JVS(20151)*XX(4013)-JVS(40650)*XX(5250) - XX(102) = XX(102)-JVS(18026)*XX(3754)-JVS(40649)*XX(5250) - XX(101) = XX(101)-JVS(654)*XX(163)-JVS(40648)*XX(5250) - XX(100) = XX(100)-JVS(6773)*XX(1675)-JVS(40647)*XX(5250) - XX(99) = XX(99)-JVS(9651)*XX(2293)-JVS(40646)*XX(5250) - XX(98) = XX(98)-JVS(661)*XX(164)-JVS(40645)*XX(5250) - XX(97) = XX(97)-JVS(25295)*XX(4536) - XX(96) = XX(96)-JVS(25029)*XX(4510) - XX(95) = XX(95)-JVS(10192)*XX(2415)-JVS(40644)*XX(5250) - XX(94) = XX(94)-JVS(25979)*XX(4603)-JVS(40643)*XX(5250) - XX(93) = XX(93)-JVS(24232)*XX(4441)-JVS(40642)*XX(5250) - XX(92) = XX(92)-JVS(25294)*XX(4536) - XX(91) = XX(91)-JVS(19553)*XX(3941) - XX(90) = XX(90)-JVS(23050)*XX(4324)-JVS(40641)*XX(5250) - XX(89) = XX(89)-JVS(15711)*XX(3440)-JVS(40640)*XX(5250) - XX(88) = XX(88)-JVS(24682)*XX(4485) - XX(87) = XX(87)-JVS(1339)*XX(326)-JVS(40639)*XX(5250) - XX(86) = XX(86)-JVS(37836)*XX(5228)-JVS(47943)*XX(5253) - XX(85) = XX(85)-JVS(10515)*XX(2488)-JVS(47942)*XX(5253) - XX(84) = XX(84)-JVS(20139)*XX(4012)-JVS(40638)*XX(5250) - XX(83) = XX(83)-JVS(1203)*XX(290)-JVS(40637)*XX(5250) - XX(82) = XX(82)-JVS(22337)*XX(4253) - XX(81) = XX(81)-JVS(18541)*XX(3818)-JVS(40636)*XX(5250) - XX(80) = XX(80)-JVS(28257)*XX(4806) - XX(79) = XX(79)-JVS(9275)*XX(2207)-JVS(40635)*XX(5250) - XX(78) = XX(78)-JVS(24231)*XX(4441) - XX(77) = XX(77)-JVS(26259)*XX(4631)-JVS(40634)*XX(5250) - XX(76) = XX(76)-JVS(21991)*XX(4220) - XX(75) = XX(75)-JVS(24036)*XX(4423)-JVS(40633)*XX(5250) - XX(74) = XX(74)-JVS(14701)*XX(3283)-JVS(40632)*XX(5250) - XX(73) = XX(73)-JVS(7016)*XX(1727)-JVS(40631)*XX(5250) - XX(72) = XX(72)-JVS(896)*XX(204)-JVS(40630)*XX(5250) - XX(71) = XX(71)-JVS(27491)*XX(4743)-JVS(40629)*XX(5250) - XX(70) = XX(70)-JVS(13623)*XX(3080)-JVS(40628)*XX(5250) - XX(69) = XX(69)-JVS(26187)*XX(4624) - XX(68) = XX(68)-JVS(14242)*XX(3195)-JVS(40627)*XX(5250) - XX(67) = XX(67)-JVS(37228)*XX(5216)-JVS(40626)*XX(5250) - XX(66) = XX(66)-JVS(19374)*XX(3919) - XX(65) = XX(65)-JVS(20150)*XX(4013) - XX(64) = XX(64)-JVS(7315)*XX(1789)-JVS(40625)*XX(5250) - XX(63) = XX(63)-JVS(6929)*XX(1710)-JVS(40624)*XX(5250) - XX(62) = XX(62)-JVS(11408)*XX(2662)-JVS(40623)*XX(5250) - XX(61) = XX(61)-JVS(27913)*XX(4779)-JVS(40622)*XX(5250) - XX(60) = XX(60)-JVS(3024)*XX(760)-JVS(40621)*XX(5250) - XX(59) = XX(59)-JVS(1296)*XX(315)-JVS(40620)*XX(5250) - XX(58) = XX(58)-JVS(6453)*XX(1606)-JVS(40619)*XX(5250) - XX(57) = XX(57)-JVS(23049)*XX(4324) - XX(56) = XX(56)-JVS(29794)*XX(4929)-JVS(40618)*XX(5250) - XX(55) = XX(55)-JVS(10800)*XX(2545)-JVS(40617)*XX(5250) - XX(54) = XX(54)-JVS(21556)*XX(4177)-JVS(40616)*XX(5250) - XX(53) = XX(53)-JVS(699)*XX(170)-JVS(40615)*XX(5250) - XX(52) = XX(52)-JVS(31460)*XX(5030)-JVS(40614)*XX(5250) - XX(51) = XX(51)-JVS(33759)*XX(5142) - XX(50) = XX(50)-JVS(19844)*XX(3977) - XX(49) = XX(49)-JVS(18680)*XX(3838) - XX(48) = XX(48)-JVS(28923)*XX(4861)-JVS(40613)*XX(5250) - XX(47) = XX(47)-JVS(20426)*XX(4045)-JVS(40612)*XX(5250) - XX(46) = XX(46)-JVS(6800)*XX(1680)-JVS(40611)*XX(5250) - XX(45) = XX(45)-JVS(20395)*XX(4042) - XX(44) = XX(44)-JVS(26430)*XX(4648) - XX(43) = XX(43)-JVS(19039)*XX(3880) - XX(42) = XX(42)-JVS(19241)*XX(3905) - XX(41) = XX(41)-JVS(6945)*XX(1713)-JVS(40610)*XX(5250) - XX(40) = XX(40)-JVS(692)*XX(169)-JVS(40609)*XX(5250) - XX(39) = XX(39)-JVS(7106)*XX(1745)-JVS(40608)*XX(5250) - XX(38) = XX(38)-JVS(6534)*XX(1622)-JVS(40607)*XX(5250) - XX(37) = XX(37)-JVS(39598)*XX(5241)-JVS(40606)*XX(5250) - XX(36) = XX(36)-JVS(19971)*XX(3992) - XX(35) = XX(35)-JVS(19338)*XX(3916) - XX(34) = XX(34)-JVS(1754)*XX(445)-JVS(40605)*XX(5250) - XX(33) = XX(33)-JVS(22336)*XX(4253)-JVS(40604)*XX(5250) - XX(32) = XX(32)-JVS(7149)*XX(1754)-JVS(40603)*XX(5250) - XX(31) = XX(31)-JVS(24309)*XX(4448)-JVS(40602)*XX(5250) - XX(30) = XX(30)-JVS(909)*XX(206)-JVS(40601)*XX(5250) - XX(29) = XX(29)-JVS(38941)*XX(5233)-JVS(40600)*XX(5250) - XX(28) = XX(28)-JVS(1074)*XX(254)-JVS(40599)*XX(5250) - XX(27) = XX(27)-JVS(22165)*XX(4236)-JVS(40598)*XX(5250) - XX(26) = XX(26)-JVS(587)*XX(152)-JVS(40597)*XX(5250) - XX(25) = XX(25)-JVS(24837)*XX(4497) - XX(24) = XX(24)-JVS(6302)*XX(1572)-JVS(40596)*XX(5250) - XX(23) = XX(23)-JVS(471)*XX(122)-JVS(47941)*XX(5253) - XX(22) = XX(22)-JVS(18607)*XX(3826)-JVS(40595)*XX(5250) - XX(21) = XX(21)-JVS(28922)*XX(4861)-JVS(40594)*XX(5250) - XX(20) = XX(20)-JVS(22228)*XX(4242)-JVS(40593)*XX(5250) - XX(19) = XX(19)-JVS(37371)*XX(5222)-JVS(40592)*XX(5250) - XX(18) = XX(18)-JVS(14766)*XX(3296)-JVS(40591)*XX(5250) - XX(17) = XX(17)-JVS(23030)*XX(4322)-JVS(40590)*XX(5250) - XX(16) = XX(16)-JVS(22795)*XX(4299) - XX(15) = XX(15)-JVS(24640)*XX(4482)-JVS(40589)*XX(5250) - XX(14) = XX(14)-JVS(22004)*XX(4221) - XX(13) = XX(13)-JVS(14509)*XX(3246)-JVS(40588)*XX(5250) - XX(12) = XX(12)-JVS(39597)*XX(5241)-JVS(40587)*XX(5250) - XX(11) = XX(11)-JVS(34911)*XX(5178)-JVS(45065)*XX(5251)-JVS(50326)*XX(5255) - XX(10) = XX(10)-JVS(37333)*XX(5221) - XX(9) = XX(9)-JVS(20985)*XX(4109) - XX(8) = XX(8)-JVS(34198)*XX(5158)-JVS(38091)*XX(5231) - XX(7) = XX(7)-JVS(32879)*XX(5106)-JVS(38090)*XX(5231) - XX(6) = XX(6)-JVS(29736)*XX(4924)-JVS(38089)*XX(5231) - XX(5) = XX(5)-JVS(50325)*XX(5255) - XX(4) = XX(4)-JVS(16510)*XX(3568)-JVS(40586)*XX(5250) - XX(3) = XX(3) - XX(2) = XX(2) - XX(1) = XX(1) - -END SUBROUTINE KppSolveTR - -! End of KppSolveTR function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! BLAS_UTIL - BLAS-LIKE utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!-------------------------------------------------------------- -! -! BLAS/LAPACK-like subroutines used by the integration algorithms -! It is recommended to replace them by calls to the optimized -! BLAS/LAPACK library for your machine -! -! (C) Adrian Sandu, Aug. 2004 -! Virginia Polytechnic Institute and State University -!-------------------------------------------------------------- - - -!-------------------------------------------------------------- - SUBROUTINE WCOPY(N,X,incX,Y,incY) -!-------------------------------------------------------------- -! copies a vector, x, to a vector, y: y <- x -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SCOPY(N,X,1,Y,1) or CALL DCOPY(N,X,1,Y,1) -!-------------------------------------------------------------- -! USE MCMv3_3_Precision - - INTEGER :: i,incX,incY,M,MP1,N - REAL(kind=dp) :: X(N),Y(N) - - IF (N.LE.0) RETURN - - M = MOD(N,8) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = X(i) - END DO - IF( N .LT. 8 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,8 - Y(i) = X(i) - Y(i + 1) = X(i + 1) - Y(i + 2) = X(i + 2) - Y(i + 3) = X(i + 3) - Y(i + 4) = X(i + 4) - Y(i + 5) = X(i + 5) - Y(i + 6) = X(i + 6) - Y(i + 7) = X(i + 7) - END DO - - END SUBROUTINE WCOPY - - -!-------------------------------------------------------------- - SUBROUTINE WAXPY(N,Alpha,X,incX,Y,incY) -!-------------------------------------------------------------- -! constant times a vector plus a vector: y <- y + Alpha*x -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SAXPY(N,Alpha,X,1,Y,1) or CALL DAXPY(N,Alpha,X,1,Y,1) -!-------------------------------------------------------------- - - INTEGER :: i,incX,incY,M,MP1,N - REAL(kind=dp) :: X(N),Y(N),Alpha - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp - - IF (Alpha .EQ. ZERO) RETURN - IF (N .LE. 0) RETURN - - M = MOD(N,4) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = Y(i) + Alpha*X(i) - END DO - IF( N .LT. 4 ) RETURN - END IF - MP1 = M + 1 - DO i = MP1,N,4 - Y(i) = Y(i) + Alpha*X(i) - Y(i + 1) = Y(i + 1) + Alpha*X(i + 1) - Y(i + 2) = Y(i + 2) + Alpha*X(i + 2) - Y(i + 3) = Y(i + 3) + Alpha*X(i + 3) - END DO - - END SUBROUTINE WAXPY - - - -!-------------------------------------------------------------- - SUBROUTINE WSCAL(N,Alpha,X,incX) -!-------------------------------------------------------------- -! constant times a vector: x(1:N) <- Alpha*x(1:N) -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SSCAL(N,Alpha,X,1) or CALL DSCAL(N,Alpha,X,1) -!-------------------------------------------------------------- - - INTEGER :: i,incX,M,MP1,N - REAL(kind=dp) :: X(N),Alpha - REAL(kind=dp), PARAMETER :: ZERO=0.0_dp, ONE=1.0_dp - - IF (Alpha .EQ. ONE) RETURN - IF (N .LE. 0) RETURN - - M = MOD(N,5) - IF( M .NE. 0 ) THEN - IF (Alpha .EQ. (-ONE)) THEN - DO i = 1,M - X(i) = -X(i) - END DO - ELSEIF (Alpha .EQ. ZERO) THEN - DO i = 1,M - X(i) = ZERO - END DO - ELSE - DO i = 1,M - X(i) = Alpha*X(i) - END DO - END IF - IF( N .LT. 5 ) RETURN - END IF - MP1 = M + 1 - IF (Alpha .EQ. (-ONE)) THEN - DO i = MP1,N,5 - X(i) = -X(i) - X(i + 1) = -X(i + 1) - X(i + 2) = -X(i + 2) - X(i + 3) = -X(i + 3) - X(i + 4) = -X(i + 4) - END DO - ELSEIF (Alpha .EQ. ZERO) THEN - DO i = MP1,N,5 - X(i) = ZERO - X(i + 1) = ZERO - X(i + 2) = ZERO - X(i + 3) = ZERO - X(i + 4) = ZERO - END DO - ELSE - DO i = MP1,N,5 - X(i) = Alpha*X(i) - X(i + 1) = Alpha*X(i + 1) - X(i + 2) = Alpha*X(i + 2) - X(i + 3) = Alpha*X(i + 3) - X(i + 4) = Alpha*X(i + 4) - END DO - END IF - - END SUBROUTINE WSCAL - -!-------------------------------------------------------------- - REAL(kind=dp) FUNCTION WLAMCH( C ) -!-------------------------------------------------------------- -! returns epsilon machine -! after LAPACK -! replace this by the function from the optimized LAPACK implementation: -! CALL SLAMCH('E') or CALL DLAMCH('E') -!-------------------------------------------------------------- -! USE MCMv3_3_Precision - - CHARACTER :: C - INTEGER :: i - REAL(kind=dp), SAVE :: Eps - REAL(kind=dp) :: Suma - REAL(kind=dp), PARAMETER :: ONE=1.0_dp, HALF=0.5_dp - LOGICAL, SAVE :: First=.TRUE. - - IF (First) THEN - First = .FALSE. - Eps = HALF**(16) - DO i = 17, 80 - Eps = Eps*HALF - CALL WLAMCH_ADD(ONE,Eps,Suma) - IF (Suma.LE.ONE) GOTO 10 - END DO - PRINT*,'ERROR IN WLAMCH. EPS < ',Eps - RETURN -10 Eps = Eps*2 - i = i-1 - END IF - - WLAMCH = Eps - - END FUNCTION WLAMCH - - SUBROUTINE WLAMCH_ADD( A, B, Suma ) -! USE MCMv3_3_Precision - - REAL(kind=dp) A, B, Suma - Suma = A + B - - END SUBROUTINE WLAMCH_ADD -!-------------------------------------------------------------- - - -!-------------------------------------------------------------- - SUBROUTINE SET2ZERO(N,Y) -!-------------------------------------------------------------- -! copies zeros into the vector y: y <- 0 -! after BLAS -!-------------------------------------------------------------- - - INTEGER :: i,M,MP1,N - REAL(kind=dp) :: Y(N) - REAL(kind=dp), PARAMETER :: ZERO = 0.0d0 - - IF (N.LE.0) RETURN - - M = MOD(N,8) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = ZERO - END DO - IF( N .LT. 8 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,8 - Y(i) = ZERO - Y(i + 1) = ZERO - Y(i + 2) = ZERO - Y(i + 3) = ZERO - Y(i + 4) = ZERO - Y(i + 5) = ZERO - Y(i + 6) = ZERO - Y(i + 7) = ZERO - END DO - - END SUBROUTINE SET2ZERO - - -!-------------------------------------------------------------- - REAL(kind=dp) FUNCTION WDOT (N, DX, incX, DY, incY) -!-------------------------------------------------------------- -! dot produce: wdot = x(1:N)*y(1:N) -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SDOT(N,X,1,Y,1) or CALL DDOT(N,X,1,Y,1) -!-------------------------------------------------------------- -! USE messy_mecca_kpp_Precision -!-------------------------------------------------------------- - IMPLICIT NONE - INTEGER :: N, incX, incY - REAL(kind=dp) :: DX(N), DY(N) - - INTEGER :: i, IX, IY, M, MP1, NS - - WDOT = 0.0D0 - IF (N .LE. 0) RETURN - IF (incX .EQ. incY) IF (incX-1) 5,20,60 -! -! Code for unequal or nonpositive increments. -! - 5 IX = 1 - IY = 1 - IF (incX .LT. 0) IX = (-N+1)*incX + 1 - IF (incY .LT. 0) IY = (-N+1)*incY + 1 - DO i = 1,N - WDOT = WDOT + DX(IX)*DY(IY) - IX = IX + incX - IY = IY + incY - END DO - RETURN -! -! Code for both increments equal to 1. -! -! Clean-up loop so remaining vector length is a multiple of 5. -! - 20 M = MOD(N,5) - IF (M .EQ. 0) GO TO 40 - DO i = 1,M - WDOT = WDOT + DX(i)*DY(i) - END DO - IF (N .LT. 5) RETURN - 40 MP1 = M + 1 - DO i = MP1,N,5 - WDOT = WDOT + DX(i)*DY(i) + DX(i+1)*DY(i+1) + DX(i+2)*DY(i+2) + & - DX(i+3)*DY(i+3) + DX(i+4)*DY(i+4) - END DO - RETURN -! -! Code for equal, positive, non-unit increments. -! - 60 NS = N*incX - DO i = 1,NS,incX - WDOT = WDOT + DX(i)*DY(i) - END DO - - END FUNCTION WDOT - - -!-------------------------------------------------------------- - SUBROUTINE WADD(N,X,Y,Z) -!-------------------------------------------------------------- -! adds two vectors: z <- x + y -! BLAS - like -!-------------------------------------------------------------- -! USE MCMv3_3_Precision - - INTEGER :: i, M, MP1, N - REAL(kind=dp) :: X(N),Y(N),Z(N) - - IF (N.LE.0) RETURN - - M = MOD(N,5) - IF( M /= 0 ) THEN - DO i = 1,M - Z(i) = X(i) + Y(i) - END DO - IF( N < 5 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,5 - Z(i) = X(i) + Y(i) - Z(i + 1) = X(i + 1) + Y(i + 1) - Z(i + 2) = X(i + 2) + Y(i + 2) - Z(i + 3) = X(i + 3) + Y(i + 3) - Z(i + 4) = X(i + 4) + Y(i + 4) - END DO - - END SUBROUTINE WADD - - - -!-------------------------------------------------------------- - SUBROUTINE WGEFA(N,A,Ipvt,info) -!-------------------------------------------------------------- -! WGEFA FACTORS THE MATRIX A (N,N) BY -! GAUSS ELIMINATION WITH PARTIAL PIVOTING -! LINPACK - LIKE -!-------------------------------------------------------------- -! - INTEGER :: N,Ipvt(N),info - REAL(kind=dp) :: A(N,N) - REAL(kind=dp) :: t, dmax, da - INTEGER :: j,k,l - REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0 - - info = 0 - -size: IF (n > 1) THEN - -col: DO k = 1, n-1 - -! find l = pivot index -! l = idamax(n-k+1,A(k,k),1) + k - 1 - l = k; dmax = abs(A(k,k)) - DO j = k+1,n - da = ABS(A(j,k)) - IF (da > dmax) THEN - l = j; dmax = da - END IF - END DO - Ipvt(k) = l - -! zero pivot implies this column already triangularized - IF (ABS(A(l,k)) < TINY(ZERO)) THEN - info = k - return - ELSE - IF (l /= k) THEN - t = A(l,k); A(l,k) = A(k,k); A(k,k) = t - END IF - t = -ONE/A(k,k) - CALL WSCAL(n-k,t,A(k+1,k),1) - DO j = k+1, n - t = A(l,j) - IF (l /= k) THEN - A(l,j) = A(k,j); A(k,j) = t - END IF - CALL WAXPY(n-k,t,A(k+1,k),1,A(k+1,j),1) - END DO - END IF - - END DO col - - END IF size - - Ipvt(N) = N - IF (ABS(A(N,N)) == ZERO) info = N - - END SUBROUTINE WGEFA - - -!-------------------------------------------------------------- - SUBROUTINE WGESL(Trans,N,A,Ipvt,b) -!-------------------------------------------------------------- -! WGESL solves the system -! a * x = b or trans(a) * x = b -! using the factors computed by WGEFA. -! -! Trans = 'N' to solve A*x = b , -! = 'T' to solve transpose(A)*x = b -! LINPACK - LIKE -!-------------------------------------------------------------- - - INTEGER :: N,Ipvt(N) - CHARACTER :: trans - REAL(kind=dp) :: A(N,N),b(N) - REAL(kind=dp) :: t - INTEGER :: k,kb,l - - - SELECT CASE (Trans) - - CASE ('n','N') ! Solve A * x = b - -! first solve L*y = b - IF (n >= 2) THEN - DO k = 1, n-1 - l = Ipvt(k) - t = b(l) - IF (l /= k) THEN - b(l) = b(k) - b(k) = t - END IF - CALL WAXPY(n-k,t,a(k+1,k),1,b(k+1),1) - END DO - END IF -! now solve U*x = y - DO kb = 1, n - k = n + 1 - kb - b(k) = b(k)/a(k,k) - t = -b(k) - CALL WAXPY(k-1,t,a(1,k),1,b(1),1) - END DO - - CASE ('t','T') ! Solve transpose(A) * x = b - -! first solve trans(U)*y = b - DO k = 1, n - t = WDOT(k-1,a(1,k),1,b(1),1) - b(k) = (b(k) - t)/a(k,k) - END DO -! now solve trans(L)*x = y - IF (n >= 2) THEN - DO kb = 1, n-1 - k = n - kb - b(k) = b(k) + WDOT(n-k,a(k+1,k),1,b(k+1),1) - l = Ipvt(k) - IF (l /= k) THEN - t = b(l); b(l) = b(k); b(k) = t - END IF - END DO - END IF - - END SELECT - - END SUBROUTINE WGESL -! End of BLAS_UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE MCMv3_3_LinearAlgebra - diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_LinearAlgebra.o b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_LinearAlgebra.o deleted file mode 100644 index 5858c76aa82c70bbc522d80890b45829df7ed7e5..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_LinearAlgebra.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Main.f90 b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Main.f90 deleted file mode 100644 index 313e83031cf374afc35b0f92f197c236d8ab20b4..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Main.f90 +++ /dev/null @@ -1,161 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Main Program File -! -! Generated by KPP-2.2.3 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 : MCMv3_3_Main.f90 -! Time : Mon Jul 19 14:16:06 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MCMv3_3_3654_BOXMOX -! Equation file : MCMv3_3.kpp -! Output root filename : MCMv3_3 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! MAIN - Main program - driver routine -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -PROGRAM MCMv3_3_Driver - - USE MCMv3_3_Model - USE MCMv3_3_Initialize, ONLY: Initialize - - REAL(kind=dp) :: T, DVAL(NSPEC) - REAL(kind=dp) :: RSTATE(20) - INTEGER :: IERR - INTEGER :: i, tcount, ttot - CHARACTER(LEN=60), PARAMETER :: & - brk = "------------------------------------------------------------" - - !~~~> Initialization - - STEPMIN = 0.0d0 - STEPMAX = 0.0d0 - - DO i=1,NVAR - RTOL(i) = 1.0d-4 - ATOL(i) = 1.0d-3 - END DO - - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX (__BOXMOX_VERSION__) driver" - WRITE(*,*) brk - WRITE(*,*) " " - - CALL Initialize() - - WRITE(*,*) brk - WRITE(*,*) " " - - CALL UpdateEnvironment() - - CALL readInput('InitialConditions.csv', NSPEC, SPC_NAMES, C, & - InitialCondition) - CALL InitSaveData() - - CALL InitFixNOx(NSPEC, SPC_NAMES, C) - - !~~~> Time loop - T = TSTART - tcount = 1 - ttot = NINT((TEND - TSTART) / DT) - kron: DO WHILE (T < TEND) - - IF (lverbose) THEN - WRITE(*,*) "" - WRITE(*,"(1X,A,F8.2,A)") "-------------------- time (s): ", T, & - " --------------------" - WRITE(*,*) "" - ENDIF - - TIME = T - CALL GetMass( C, DVAL ) - CALL SaveData() - - CALL UpdateEnvironment() - CALL UpdateAerosol() - CALL UpdatePhotolysisRates() - - CALL UpdateKturb() - - CALL readInput('Background.csv', NSPEC, SPC_NAMES, C, Mix, lzero=.TRUE.) - CALL readInput('Emissions.csv', NSPEC, SPC_NAMES, C, Emission) - CALL readInput('Deposition.csv', NSPEC, SPC_NAMES, C, Deposition) - - CALL Update_SUN() - CALL Update_RCONST() - - IF (T == TSTART) WRITE(*,*) " " - - IF ( MOD(tcount * 10, ttot) .EQ. 0 ) THEN - WRITE(6,991) (T-TSTART)/(TEND-TSTART)*100, T, & - ( TRIM(SPC_NAMES(MONITOR(i))), & - C(MONITOR(i))/CFACTOR, i=1,NMONITOR ) - ENDIF - - IF (lfix_NOx) THEN - CALL FixNOx(NSPEC, SPC_NAMES, C) - ENDIF - - CALL INTEGRATE( TIN = T, TOUT = T+DT, RSTATUS_U = RSTATE, & - ICNTRL_U = (/ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /), & - IERR_U = IERR ) - T = RSTATE(1) - - tcount = tcount + 1 - - IF (IERR < 0) THEN - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX integration failed, stopping." - WRITE(*,*) brk - WRITE(*,*) " " - STOP 1 - ENDIF - - IF (T == TSTART .OR. lverbose) THEN - WRITE(*,*) "" - WRITE(*,*) brk - WRITE(*,*) "" - ENDIF - - END DO kron - !~~~> End Time loop - - CALL GetMass( C, DVAL ) - WRITE(6,991) (T-TSTART)/(TEND-TSTART)*100, T, & - ( TRIM(SPC_NAMES(MONITOR(i))), & - C(MONITOR(i))/CFACTOR, i=1,NMONITOR ) - TIME = T - CALL SaveData() - CALL CloseSaveData() - - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX successfully completed." - WRITE(*,*) brk - WRITE(*,*) " " - -991 FORMAT(F6.1,'%. T=',E9.3,2X,200(A,'=',E11.4,'; ')) - -END PROGRAM MCMv3_3_Driver - -! End of MAIN function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Main.o b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Main.o deleted file mode 100644 index 330df9bccb8ac3bee3d61bbe8db60cec62a855df..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Main.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Model.f90 b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Model.f90 deleted file mode 100644 index 9f1c26e1c220827057f2e1149e528265afdf58b9..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Model.f90 +++ /dev/null @@ -1,21 +0,0 @@ -MODULE MCMv3_3_Model - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Completely defines the model MCMv3_3 -! by using all the associated modules -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MCMv3_3_Precision - USE MCMv3_3_Parameters - USE MCMv3_3_Global - USE MCMv3_3_Function - USE MCMv3_3_Integrator - USE MCMv3_3_Rates - USE MCMv3_3_Jacobian - USE MCMv3_3_Stoichiom - USE MCMv3_3_LinearAlgebra - USE MCMv3_3_Monitor - USE MCMv3_3_Util - -END MODULE MCMv3_3_Model - diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Model.o b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Model.o deleted file mode 100644 index 46df8257f5c6b98cef6a4f77b4c68735cebc2e84..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Model.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Monitor.f90 b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Monitor.f90 deleted file mode 100644 index 178d94b7744937b253a536be4b077fdcfbf68fcf..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Monitor.f90 +++ /dev/null @@ -1,18108 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Utility Data Module File -! -! Generated by KPP-2.2.3 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 : MCMv3_3_Monitor.f90 -! Time : Mon Jul 19 14:16:06 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MCMv3_3_3654_BOXMOX -! Equation file : MCMv3_3.kpp -! Output root filename : MCMv3_3 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MCMv3_3_Monitor - - - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_0 = (/ & - 'NA ','SA ','SO3 ', & - 'O1D ','HSO3 ','HO2CO3C4O ', & - 'IPRCOMO ','C5CO24O ','C51OH ', & - 'INB1HPCO2H ','C42CHO2O ','MAE ', & - 'TM135OLOH ','PTLQO ','PMALANHY ', & - 'PETLQO ','TM124OLOH ','DMEPHOLOH ', & - 'PACLOOA ','C628OOA ','IEB4CHO ', & - 'METLBPR2OH ','NC4IPDCO2 ','C719OH ', & - 'C721O ','IPMLNHY2OH ','C735OOA ', & - 'NOPINCOH ','PGAOOB ','C132OH ', & - 'MXYOLOH ','C4ME22OH ','MXYQOH ', & - 'M2HEXBOH ','C111O ','CHOC4O ', & - 'CH3CCH3OOC ','TMB2FUOH ','MEBFUOH ', & - 'C812OH ','MXYFUOH ','NC101O ', & - 'C121O ','CHOC4OHO ','CYC6DIONO ', & - 'TMB1FUOH ','EBENZOLOH ','IEB1CHO ', & - 'C921O ','CO3C85O ','EOCOCH2O ', & - 'TM124BP2OH ','MMALNHY2OH ','OETLBPR2OH ', & - 'C510OH ','C24O3CCO2H ','TM124QO ', & - 'PXYFUOH ','C127OH ','C827OH ', & - 'C629OOA ','C57OH ','MC6OTKETOH ', & - 'M23C43OH ','PXYQO ','C101O ', & - 'PPGAOOB ','TM123OLOH ','C914O ', & - 'C58OH ','IPBENZOLOH ','DMMALYOH ', & - 'OXYFUOH ','DEMPHOLOH ','EMALANHY ', & - 'NC72O ','C6CO134 ','METLQO ', & - 'C917OH ','C6CYTONO ','DMEBPR2OH ', & - 'MXYQO ','C1212OH ','PXYOLOH ', & - 'NC4MDCO2 ','CH3O2NO2 ','C142OH ', & - 'C88O ','PHIC3OH ','TM124QOH ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_1 = (/ & - 'C75O ','IPRBQO ','METLQOH ', & - 'PHENOH ','APINCOH ','C6145COO ', & - 'PPRBQO ','PMALNHY2OH ','C927OH ', & - 'TLFUOH ','EMALNHY2OH ','PXYBPER2OH ', & - 'PXYQOH ','BPINCOH ','ISOPBOH ', & - 'PETLQOH ','OETLQO ','C117OH ', & - 'OXYOLOH ','CO14O3CO2H ','PETOLOH ', & - 'C520OOA ','C1214O ','CO2C3CO2H ', & - 'MOCOCH2O ','PEBQO ','CO3C75O ', & - 'C145OH ','OETOLOH ','OXYQO ', & - 'C511CHO ','IPMALANHY ','INANCOCHO ', & - 'METOLOH ','C619O ','IBUTOLOHC ', & - 'C1313OH ','DETLBPR2OH ','PETLBPR2OH ', & - 'PBZQO ','PPACLOOA ','C710O ', & - 'M3PECOH ','C139OH ','OXYBPER2OH ', & - 'CRESOH ','N2O5 ','C85O ', & - 'M3HEXBOH ','C91O ','MALANHYO ', & - 'NC4DCO2 ','PBENZOLOH ','M2PEDOH ', & - 'NOPINDO ','C920O ','C8BC ', & - 'LIMALOOA ','C116O ','HEX3ONAO ', & - 'C137O ','IPMALANHYO ','HO3C5O ', & - 'C8BCO ','HEXAO ','C136O ', & - 'C732O ','C626O ','C1311O ', & - 'PEAO ','HEPTO ','C822O ', & - 'EMALANHYO ','PMALANHYO ','M3PEAO ', & - 'M3HEXAO ','HEX3ONDO ','C823O ', & - 'C812O ','MMALANHYO ','HEXBO ', & - 'C141O ','C928O ','C1011O ', & - 'DIEKBO ','NOPINBO ','OCTO ', & - 'C1211O ','CO2C54O ','C729O ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_2 = (/ & - 'ME3BUOL ','C817O ','C1210O ', & - 'M2HEXAO ','HEX2ONAO ','UDECO ', & - 'C126O ','CO1C6O ','C131O ', & - 'C1013O ','C830O ','DECO ', & - 'C811O ','ISOPAO ','EIPKBO ', & - 'DDECO ','NONO ','C2H2 ', & - 'C923O ','H3M3C5O ','C9DCO ', & - 'M2PEAO ','C731O ','DMMALYO ', & - 'M22C4O ','C132O ','HO2C4CO2H ', & - 'ETHACETOH ','C98OH ','C88CO2H ', & - 'C117O ','PBZQOH ','C1214OH ', & - 'MEK2OOC ','C1013CO2H ','TOL4OHNO2 ', & - 'HIEPOXB ','C1215OH ','C924OH ', & - 'M2BKAOH ','NC8H18 ','C2OHOCO2H ', & - 'H14M4C6 ','LMKOOA ','OXYLOH ', & - 'C524OH ','TM123BCO2H ','HEXBOH ', & - 'ETOHOCHO ','C51CO2H ','HOC4H8OH ', & - 'NMBOBCO ','BZFUOH ','M3HEXAOH ', & - 'CHEX ','BCALOOA ','HOC2H4CO2H ', & - 'BUTDAOH ','CH3CCH3OOB ','H2M2C4CO2H ', & - 'LIMONIC ','M2PEAOH ','BCBOOA ', & - 'NIPBFUONE ','NC4PDCO2 ','MALANHY2OH ', & - 'C825OH ','C126OH ','ETHGLY ', & - 'TOLUENE ','C126CO2H ','C624CO2H ', & - 'NC12H26 ','NOPINCO ','C23O3ECO2H ', & - 'C143OH ','C1011OH ','HOC3H6CO2H ', & - 'NEBFUONE ','H2 ','INB2O ', & - 'PXYLOH ','C7ADCOH ','DM124OHNO2 ', & - 'PINIC ','C1013OH ','OETLQOH ', & - 'C517OH ','OCTOH ','NC9H20 ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_3 = (/ & - 'C96O ','CHOOMCO2H ','PEBQOH ', & - 'TM123BP2OH ','C137CO2H ','C6H5C2CO2H ', & - 'C6H5C2OH ','CYHXDIOLA ','C87OH ', & - 'H3M3C5CO2H ','C146OH ','CO2C54CO2H ', & - 'IPBZBPR2OH ','C68OH ','HO124C5 ', & - 'HO13C5 ','C23O3CCO2H ','NEOP ', & - 'HO24C5 ','C1212O ','M33C3CO2H ', & - 'MXYBPER2OH ','APINOOA ','C518CO2H ', & - 'HO36C11 ','C1213OH ','C139O ', & - 'TBUTOL ','OXYQOH ','C97O ', & - 'CO2C4CO2H ','INDOH ','C9DCOH ', & - 'NEOPOH ','NC524OH ','H13M3C5 ', & - 'CH3OCH2OH ','M33C4OH ','ETOMECO2H ', & - 'C822OH ','NC826OH ','EBFUOH ', & - 'C1211OH ','HO25C7 ','C127O ', & - 'M2PECOH ','C826OH ','PEBQCO ', & - 'CHOOCH2OH ','C831OH ','EOX2ETA2OH ', & - 'PPRBQOH ','PPRBQCO ','PPRBQOOH ', & - 'C136OH ','C142O ','CH3CCH3OOA ', & - 'NSTYRENOOH ','HM22C3CO2H ','HO2C3CO2H ', & - 'NBZFUONE ','MXYLOH ','HM23C4OH ', & - 'C928OH ','BUT2OLOH ','NOPINAOH ', & - 'HONO ','M22C4OH ','M23C4OH ', & - 'C23O3MOH ','PXYLCO2H ','NC10H22 ', & - 'HOIPRCO2H ','C8BCOH ','PEAOH ', & - 'HM22C3OH ','C88OH ','HO13C4OH ', & - 'M3PEAOH ','C7DDCOH ','NORPINIC ', & - 'MOXCOCH2OH ','HEPTOH ','C108OH ', & - 'C56OH ','IPBFUOH ','C1310OH ', & - 'PHCOETOH ','C914OH ','KLIMONIC ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_4 = (/ & - 'TLBIPER2OH ','C141OOA ','CO2M33CO2H ', & - 'C1011CO2H ','C918OH ','PINALOH ', & - 'C928CO2H ','C734OH ','C107OH ', & - 'C107O ','C148OH ','PTLQOH ', & - 'OETLQCO ','DETLMUOH ','C517CO2H ', & - 'HO3C5CO2H ','C129OH ','C830CO2H ', & - 'M2C43CO2H ','HEXCOH ','EOX2ETB2OH ', & - 'C1012OH ','HEXAOH ','C3ME3CO2H ', & - 'H134M3C5 ','M3FOOA ','HOEMPHNO2 ', & - 'C1211CO2H ','MXYLCO2H ','C624OH ', & - 'IEPOXA ','C6OTKETOH ','HO2C43CO2H ', & - 'C118OH ','NOPINBOH ','TM123BOH ', & - 'OXYQCO ','OXYQOOH ','C811OH ', & - 'C916OH ','C923OH ','PHCOMEOH ', & - 'NOPINDOH ','NOPINDCO ','NOPINDOOH ', & - 'C736OH ','C918O ','CO1H63OH ', & - 'C137OH ','C830OH ','C630OH ', & - 'M2HEXAOH ','C131OH ','C827OOH ', & - 'C1014OH ','HOC3H6OH ','DIETETOH ', & - 'C810OH ','LIMOOA ','HOBUT2CO2H ', & - 'M3HEXBO ','NC4EDCO2 ','TMBCO2H ', & - 'M2PEBOH ','HO2M2C5OH ','NC11H24 ', & - 'C915OH ','EBZBPER2OH ','DDECOH ', & - 'C824OH ','TMBOH ','DE35TOH ', & - 'C519CO2H ','HM22CO2H ','HO14MC5 ', & - 'PBZBPER2OH ','HO25C6 ','BUT2CO2H ', & - 'C141OH ','C147OH ','C128OH ', & - 'C89OH ','C89O ','C6H5CH2OH ', & - 'M2HEXBO ','ETOLOH ','NC7H16 ', & - 'NPBFUONE ','H2M3C4CO2H ','PINALO ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_5 = (/ & - 'CO2C4DIAL ','C1210OH ','NONOH ', & - 'C97OH ','PTLQCO ','HM33C3CO2H ', & - 'C822CO2H ','INAOH ','OETLQOOH ', & - 'UDECOH ','OXYLCO2H ','C1311OH ', & - 'INCOH ','PHC3OH ','C622OH ', & - 'M22C43OH ','C116OH ','HO36C9 ', & - 'HO36C8 ','C827CO2H ','ETOMEOH ', & - 'C914CO ','METACETOH ','C6H13CO2H ', & - 'DMEBMUOH ','C732OH ','C2H5MECOOA ', & - 'C823OH ','HO2C54CO2H ','TM124BOH ', & - 'C731OH ','C733OH ','DMPHOHNO2 ', & - 'OCCOHCOH ','PBFUOH ','DECOH ', & - 'TM135MUOH ','HO14M3C5 ','C1210CO2H ', & - 'PBZQCO ','PBZQOOH ','C622CO2H ', & - 'C919OH ','HOCH2COCO2H ','PEBOH ', & - 'C136CO2H ','C54OH ','HO134C5 ', & - 'C23O3MCO2H ','C929OH ','CO1C6OH ', & - 'C619OH ','TM124BCO2H ','M3PEBOH ', & - 'DM35EBOH ','HMVKBCO2H ','C116CO2H ', & - 'C914OOH ','IPRBQOH ','IPRBQCO ', & - 'C1312OH ','ETHFORMOH ','C23O3EOH ', & - 'CO2C3OOB ','C731CO2H ','C720OH ', & - 'BZBIPER2OH ','PTLQOOH ','HM2C43CO2H ', & - 'C813OH ','PEBQOOH ','C126OOA ', & - 'TM135BP2OH ','HO36C12 ','HO36C10 ', & - 'C106OH ','C514OH ','C112O ', & - 'NOAOOA ','NC730OH ','IPBZMUCOH ', & - 'C54O ','HMVKBO ','C76O ', & - 'NBZQO ','C151OH ','C734O ', & - 'PCATECOOA ','C81O ','LIMCOH ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_6 = (/ & - 'NC102O ','C6CO3MOH ','NC623OH ', & - 'C519O ','C73O ','C52OH ', & - 'C829OH ','M3HEX ','LMKAO ', & - 'NMEBFUO ','C4COMOH3O ','NBUTDAO ', & - 'C818O ','C67OH ','NPXYQO ', & - 'LIMALOH ','C6COCHOO ','NC41OOA ', & - 'C615OH ','PTCATECOOA ','C9DCCO ', & - 'C9DCOOH ','NC3OOA ','CO25C74O ', & - 'TLEMUCOH ','M23C4 ','C625OH ', & - 'ECATECOOA ','PXCATECOOA ','C114O ', & - 'C711O ','C3EDIALOH ','C4ME2NO3O ', & - 'C122O ','C124O ','C7EDCOH ', & - 'MTBKOH ','C4MCONO3OH ','MBOCOCO ', & - 'BCSOZOH ','C511O ','CHOC3COO ', & - 'NC71CO ','NTMB2FUO ','BCLKBO ', & - 'C61OH ','NLIMALOH ','M2HEX ', & - 'C9M2CO6O ','C63OH ','CYC6DIONE ', & - 'MCOCOMOXO ','C88CO ','C88OOH ', & - 'HNMVKO ','C71O ','NOETLQO ', & - 'CYHEXOL ','C96OH ','HOCO3C54O ', & - 'IC4H10 ','CO36C8 ','A2PANO ', & - 'APINOOB ','C6OTKETO ','TISOPA ', & - 'TISOPC ','C612OH ','CO36C12 ', & - 'CO24C6O ','PENTACID ','LMKOOB ', & - 'PHCOOH ','CATECOOA ','BUT2OLAO ', & - 'C93OH ','CO235C6O ','C129O ', & - 'LMLKBO ','PBFUO ','NBCALOH ', & - 'C7DCOH ','C8M2CO6O ','BCBO ', & - 'C825O ','C531CO ','DEMPHSMS1O ', & - 'MCATECOOA ','NTM124QO ','MIBKHO4O ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_7 = (/ & - 'IBUTACID ','C86O ','C614OH ', & - 'DMEOBPROH ','NLIMO ','C72OH ', & - 'CO3C4NO3O ','C714O ','LIMBO ', & - 'NOPINOOA ','C23O3EO ','MACO2H ', & - 'COO2C4O ','C722O ','C525O ', & - 'BCAO ','OETLMUCOH ','C625O ', & - 'NLMKAO ','C623OH ','C610OH ', & - 'NOPINBCO ','NOPINBOOH ','MVKO ', & - 'CHOCOCH2O ','MVKOHBO ','C513OH ', & - 'BCLKAO ','IC7DCOH ','NMXYFUO ', & - 'BCCOH ','NC728OH ','BCKBO ', & - 'C69OH ','HO1CO3C4O ','MIBKBO ', & - 'BCALOH ','CH3OCH3 ','MNO3COC4O ', & - 'NAPINAO ','C103OH ','C6135COO ', & - 'NBCKO ','C66O ','H25M3C6 ', & - 'MTCATECOOA ','DMEPH1O ','IEPOXC ', & - 'LMLKAO ','HCOOH ','PXYMUCOH ', & - 'CO25C6O ','EBZMUCOH ','CH2OOG ', & - 'CH2OOE ','CH2OOD ','C727O ', & - 'BCALBO ','C53O ','C730OH ', & - 'BUTACID ','NC1313OH ','MECOACETO ', & - 'C152OH ','C929O ','C616OH ', & - 'H3C25C6O ','C104O ','C133OH ', & - 'IPCATECOOA ','HMGLYOOA ','CISOPA ', & - 'C146O ','C819O ','T124CTCOOA ', & - 'C5OH2CO4O ','TM135O ','LIMALBO ', & - 'LIMONONIC ','C23O3MO ','C5MCO2OHO ', & - 'NTLFUO ','C53NO324CO ','C716O ', & - 'CISOPC ','IPBFUO ','EMPHCOMO ', & - 'OTCATECOOA ','LIMOOB ','C726CO5O ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_8 = (/ & - 'LMKBO ','C94O ','OXCATECOOA ', & - 'C148O ','C617OH ','C147O ', & - 'H3M3C6O ','C924O ','C5COCHOO ', & - 'BCKAO ','C820O ','PBZMUCOH ', & - 'C44O ','C78O ','C8BCCO ', & - 'C8BCOOH ','C5NO3COAO ','MXCATECOOA ', & - 'C627O ','LIMALAO ','C618O ', & - 'METLMUCOH ','NIPRBQO ','NPPRBQO ', & - 'C84O ','NPEBQO ','NPXYFUO ', & - 'LIMAO ','C6HO1CO3O ','CO24C63O ', & - 'PROPACID ','T123CTCOOA ','NMXYQO ', & - 'C930OH ','MC6CO2O ','C7M2CO5O ', & - 'BUT2OL ','C77OH ','BZFUONOOA ', & - 'C827O ','HEX3ONBO ','C123OH ', & - 'MGLYOOB ','OXYMUCOH ','CYHEXOLAO ', & - 'CH3CHOOC ','C717OH ','BZFUO ', & - 'CO36C10 ','BCALAO ','TLFUONOOA ', & - 'C718OH ','PHCOMEO ','C87O ', & - 'C922O ','C102O ','C3NO3COO ', & - 'CO25C73O ','MXYMUCOH ','NPETLQO ', & - 'C531O ','MPHCOMEO ','APINAO ', & - 'APINBO ','TM124MUCOH ','CHOC2H4O ', & - 'PHCOETO ','BZEMUCOH ','C620OH ', & - 'NC4OOA ','C92O ','EBFUO ', & - 'C728OH ','CO36C11 ','C5124COO ', & - 'DETLOBPROH ','NBCO ','NMETLQO ', & - 'C512OH ','NOXYFUO ','DMPHCOMO ', & - 'C521O ','CO36C9 ','C113OH ', & - 'CO24M3CHO ','IPECOH ','HO34CO6C8 ', & - 'MALDIALO ','NOXYQO ','C630O ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_9 = (/ & - 'PETLMUCOH ','TM123MUCOH ','C1010OH ', & - 'NTMB1FUO ','C6NO3CO5O ','NPTLQO ', & - 'C736O ','CH3CO2H ','NC2OOA ', & - 'C55O ','C817OH ','IPCATC1OOH ', & - 'CO25C6CO2H ','CO1M22CO3H ','DNEBNZLOOH ', & - 'C1212OOH ','C617CO2H ','M33C3CO3H ', & - 'C5ONO34OOH ','C116OOH ','HO1C5OOH ', & - 'M2C43CO3H ','CO2C3CO3H ','C65NO3CO2H ', & - 'DNCRESOOH ','HO2C6OOH ','TLEMUCCO3H ', & - 'OXYFUOOH ','INAHPCO2H ','NOPINBNO3 ', & - 'BUTDBOOH ','C511CO3H ','MET1OOH ', & - 'MTCTEC1OOH ','H2M2C4CO3H ','TLEMUCOOH ', & - 'NBUTOLAOH ','DDECOOH ','C87CO3H ', & - 'HO4C5CO3H ','PBZMUCOOH ','PET1OOH ', & - 'M22C3CO3H ','PXY1OOH ','TC4H9OOH ', & - 'C46CO2H ','NMETOL1OOH ','C135OOH ', & - 'C512CO3H ','PNCATECOOH ','METLBPROOH ', & - 'PGLYOXOH ','C621OOH ','C89CO3H ', & - 'CHOC4OOH ','ALCOMOXOOH ','C6H5C2CO3H ', & - 'HOC2H4CO3H ','NDNT123OOH ','M2HEXAOOH ', & - 'C132OOH ','C1211OOH ','C530OOH ', & - 'M2BUOL2OH ','HOCHOCOOH ','C54CO3H ', & - 'C5CO234OOH ','IPNCATCOOH ','C811OOH ', & - 'C626OOH ','BCCOOH ','C133OOH ', & - 'C927OOH ','TM123OLOOH ','NBCALOOH ', & - 'CHOC3COOOH ','C925OOH ','NDNT124OOH ', & - 'TBUTCO3H ','INAHCO2H ','C7CO3OHOOH ', & - 'NMXYOL1OOH ','INANCO2H ','C23O3CCO3H ', & - 'H25M2C6 ','HO2M2C4OH ','NBPINAOOH ', & - 'DETLMUO2H ','ACETMECO3H ','C126CO3H ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_10 = (/ & - 'C23O3ECO3H ','C6TONOHOOH ','CO1M22CO2H ', & - 'NOPINAOOH ','BCANO3 ','H3C2C4CO2H ', & - 'INDHPCO3H ','HOACETEOOH ','C3DIOLOOH ', & - 'IPBZMUCO3H ','PBFUCO ','BPINCOOH ', & - 'DNMXYOLOOH ','DETLMUOOH ','EPXMDLCO3H ', & - 'C518CO3H ','OXNCATCOOH ','C3M3CHOOOH ', & - 'C85CO3H ','BPINBOOH ','EBZMUCCO3H ', & - 'PXYLOOH ','IPNNCATOOH ','C43NO3CO2H ', & - 'HO2NO2 ','HO12C5 ','C1312OOH ', & - 'MC6OTKTOOH ','CHOC4CO3H ','C144OOH ', & - 'PINALOOH ','PETOLOOH ','H3C25CCO2H ', & - 'NDNPHENOOH ','C812OOH ','HMVKBCO3H ', & - 'OXYMUCCO3H ','EBENZOLOOH ','CRESOOH ', & - 'C828OOH ','PXYMUCCO3H ','C810OOH ', & - 'TM124OOH ','TLFUOOH ','CO3C5CO3H ', & - 'H3M2C4CO3H ','DMEBMUOOH ','C517OOH ', & - 'C1311OOH ','NT124L1OOH ','C137CO3H ', & - 'EMPONO2OOH ','C618CO2H ','C6CO134OOH ', & - 'C128OOH ','TM123BPOOH ','NC524NO3 ', & - 'C1H4C5CO2H ','TM124OLOOH ','C105OOH ', & - 'EBZMUCCO2H ','OTNNCATOOH ','MXYQOOH ', & - 'H2M4C65OOH ','C145OOH ','C6H5C2OOH ', & - 'C103OOH ','ISOP34OOH ','NBUTDAOOH ', & - 'C142OOH ','NC623OOH ','DNMETOLOOH ', & - 'EMALNHYOOH ','C7MO3OHOOH ','HM22C3CO3H ', & - 'C65NO36OOH ','NDNOXYLOOH ','NOXYOL1OOH ', & - 'NNCATECOOH ','M3PECOOH ','C51OOH ', & - 'DMEPHOLOOH ','CO2C54CO3H ','NC728OOH ', & - 'C923CO3H ','C235C6CO3H ','PERPROACID ', & - 'C51CO3H ','NC72OOH ','HOPINONIC ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_11 = (/ & - 'C41NO3 ','C6CYTONOOH ','C626CO3H ', & - 'MMALNHYOOH ','H13M3C5OOH ','PXYOLOOH ', & - 'CO234C6OOH ','C615CO3H ','PECOOH ', & - 'PETLBIPNO3 ','BCAOH ','PXYLCO3H ', & - 'T124CT1OOH ','C137OOH ','C56NO3 ', & - 'INB1HPCO3H ','C107OOH ','C517CO3H ', & - 'MXYOLOOH ','H2M2C65OOH ','C4NO3OCO ', & - 'C826OOH ','OCCOHCO ','TM124MUOOH ', & - 'HO2C3CO3H ','BZEMUCOOH ','OTCTEC1OOH ', & - 'H3C25CCO3H ','C733OOH ','MXYFUOOH ', & - 'C7DDCOOH ','C618CO3H ','PBENZOLOOH ', & - 'PHENOOH ','DNIPBZLOOH ','H13M3C5NO3 ', & - 'PBZBPEROOH ','C111OOH ','DNOETOLOOH ', & - 'NDNPETLOOH ','PBZMUCCO3H ','C710OOH ', & - 'OETOLOOH ','TM135MUOOH ','C523OH ', & - 'APINBOH ','CO3C4CO2H ','METLMUCOOH ', & - 'IPBZBPROOH ','BZFUCO ','HM22CO3H ', & - 'HO2C4CO3H ','NC101OOH ','C821OOH ', & - 'NDNOETLOOH ','C730OOH ','C729CO3H ', & - 'PRPAL2CO3H ','OXYMUCOOH ','HO13M2C4 ', & - 'T123NNCOOH ','UDECOOH ','NEBFUOOH ', & - 'BUTDBOH ','HOBUT2CO3H ','BCKAOH ', & - 'C8BCNO3 ','LIMANO3 ','C720OOH ', & - 'C118OOH ','NT123L1OOH ','TM124QOOH ', & - 'C43NO34OOH ','ETOMECO3H ','IPBZMUCOOH ', & - 'CH3CO3H ','EPXDLCO3H ','CH3OH ', & - 'IPECOOH ','C823OOH ','NC826OOH ', & - 'C4M2NO3OOH ','PBZMUCCO2H ','HOIBUTCO3H ', & - 'CO3C75OOH ','EMPHCO3H ','C1310OOH ', & - 'MPRNO3CO2H ','DECOOH ','C5CONO3OOH ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_12 = (/ & - 'MIBKAOHNO3 ','M3HEXBOOH ','DETLBIPNO3 ', & - 'EPXMDLCO2H ','C312COCO3H ','EPXM2DLPAN ', & - 'C729CO2H ','IC7DCOOH ','C619OOH ', & - 'HO2C54CO3H ','NPBNZ1OOH ','C7EDCOOH ', & - 'C89OOH ','C620OOH ','C6H5CO3H ', & - 'MNNCATCOOH ','PRPAL2CO2H ','C41OOH ', & - 'CO23C54OOH ','CO3C4CO3H ','PTNNCATOOH ', & - 'CH2CHCH2OOH ','OETLMUCOOH ','OXNNCATOOH ', & - 'NCATECOOH ','C3ME3CO3H ','C624CO3H ', & - 'HM2C43OOH ','C5CO14OOH ','PRNO3CO2H ', & - 'IPGLYOXOH ','TM123MUOOH ','VINOH ', & - 'C6H13CO3H ','HO6C7OOH ','H1C23C4OOH ', & - 'C6O4KETOOH ','NDNIPBLOOH ','C1011OOH ', & - 'MBOAOH ','C645OH ','HO7C8OOH ', & - 'NIPBFUOOH ','C4ME3HO23 ','CATEC1OOH ', & - 'C622OOH ','NBZFUOOH ','C141OOH ', & - 'TMB2FUOOH ','C617OOH ','DE35TOOH ', & - 'MIPKBOOH ','EBFUCO ','HO2C43CO3H ', & - 'C822OOH ','C82OOH ','C95OOH ', & - 'IBUTOLBO2H ','C513OOH ','HO2C4OH ', & - 'C42NO33OOH ','HO13C5OOH ','DIETETOOH ', & - 'PXNNCATOOH ','C77OOH ','C515CO3H ', & - 'C719OOH ','PTNCATCOOH ','C1013OOH ', & - 'ETOLOOH ','LMKANO3 ','MXCTEC1OOH ', & - 'MIBKAOOH ','COO2C4CO3H ','C139OOH ', & - 'OET1OOH ','OXYOLOOH ','HOIPRCO3H ', & - 'DETLBPROOH ','EOX2OLBOOH ','PETLMUCOOH ', & - 'C1014OOH ','C718CO2H ','NC71OOH ', & - 'HO1C6OOH ','DNT123LOOH ','PXYMUCOOH ', & - 'HO3C86OOH ','NDNEBZLOOH ','C83COOHOOH ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_13 = (/ & - 'C4ME2OHOOH ','BUTDBNO3 ','C67CO3H ', & - 'IPBZMUCO2H ','EPXKTMCO2H ','EPXEKTCO3H ', & - 'MTBKOOH ','C136OOH ','HO2C5OH ', & - 'M3C4CO3H ','C824OOH ','C131CO3H ', & - 'C1313OOH ','CO2N3PAN ','C4OCCOHOOH ', & - 'BPINAOOH ','T124NCTOOH ','PBENZOOH ', & - 'C87CO2H ','PXNCATCOOH ','C69OOH ', & - 'MALANHYOOH ','CO2M33CO3H ','C4ME3HO12 ', & - 'C1210OOH ','H3M3C5CO3H ','C918OOH ', & - 'HO8C9CO3H ','C928CO3H ','DMEBPROOH ', & - 'CO23C4CO3H ','CY6DIONOOH ','C921OOH ', & - 'C63OOH ','C923OOH ','EPXMEDCO3H ', & - 'M2HEXBOOH ','CHOOMCO3H ','C721CO3H ', & - 'BZEMUCCO2H ','EBZBPEROOH ','CO2HOC6OOH ', & - 'C67OOH ','C98OOH ','CO356OCOOH ', & - 'DMEBIPNO3 ','PE2ONE1OOH ','TM135OLOOH ', & - 'HC23C4CO3H ','MVKOHAOOH ','NEBNZ1OOH ', & - 'INB1NACO2H ','NDNMETLOOH ','C7DCOOH ', & - 'C717OOH ','HO7C8CO3H ','TM123OOH ', & - 'TMBCO3H ','C57NO3CO2H ','NCRES1OOH ', & - 'IPBFUCO ','IPBZOLOOH ','C1013CO3H ', & - 'H3M3C4CO3H ','CHEXOOH ','C23C54CO3H ', & - 'C729OOH ','C522CO2H ','CH3OCH2OOH ', & - 'NSTYRENEO ','APINCOOH ','HC4CCO2H ', & - 'OCATEC1OOH ','HO5C6CO3H ','C127OOH ', & - 'C537O ','C823CO3H ','ACCOMECO3H ', & - 'IEACO3H ','C732CO3H ','C141CO3H ', & - 'TMB1FUOOH ','ENNCATCOOH ','PETLMUCO3H ', & - 'MXNNCATOOH ','EPXEKTCO2H ','C734CO ', & - 'NISOPOOH ','NONOOH ','C817OOH ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_14 = (/ & - 'C3MNO3CO2H ','EIPKBOOH ','C813OOH ', & - 'C718OOH ','HM33C3OOH ','C917OOH ', & - 'HEPTOOH ','C83OOH ','HMML ', & - 'DM35EBOOH ','C115OOH ','C728OOH ', & - 'DNT124LOOH ','DETLMUO3H ','C5TRONCO3H ', & - 'MXYBPEROOH ','C811CO3H ','DNPXYOLOOH ', & - 'CHOC4OHOOH ','ISOPDOH ','M2BKAOOH ', & - 'C75OOH ','MXYLCO3H ','C9DCNO3 ', & - 'M3BU3ECO3H ','C126OOH ','OXYLOOH ', & - 'MPRANO3OOH ','HMVKAOOH ','C5H11CO3H ', & - 'H2M3C4CO3H ','MIBK3COOOH ','PHCOCOCOOH ', & - 'ECATEC1OOH ','C1215OOH ','MXYMUCCO3H ', & - 'BPINAOH ','HEXCOOH ','DMEBMUO3H ', & - 'MPRBNO3OOH ','NDMMALYOOH ','BU1ENO3OOH ', & - 'IPBENZOOH ','HO3C106OOH ','ETOC2OOH ', & - 'NC51OOH ','TLBIPEROOH ','NIPBNZ1OOH ', & - 'NDNPBZLOOH ','TM135BPOOH ','C719NO3 ', & - 'C616OOH ','CYHXONAOOH ','BCALOOH ', & - 'PHC3OOH ','TLEMUCCO2H ','C622CO3H ', & - 'C816OOH ','HCOCH2CO3H ','CHOC2CO3H ', & - 'HO13C4NO3 ','MNCATECOOH ','C610OOH ', & - 'C97OOH ','C822CO3H ','H2M5C65OOH ', & - 'CO3C54CO3H ','C928OOH ','PNNCATCOOH ', & - 'DMEBMUO2H ','C117OOH ','PERPENACID ', & - 'C1214OOH ','BCKANO3 ','DMMALYOOH ', & - 'C1211CO3H ','C61OOH ','C125OOH ', & - 'C732OOH ','H1MC5OOH ','C6H5CH2OOH ', & - 'NDNMXYLOOH ','OXYMUCCO2H ','C615CO2H ', & - 'C7ADCOOH ','C536O ','C519CO3H ', & - 'CO25C6CO3H ','HO3C116OOH ','C727CO3H ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_15 = (/ & - 'C926OOH ','BUTDAOOH ','C108OOH ', & - 'MXYMUCCO2H ','TM123BCO3H ','EPXDLCO2H ', & - 'PMALNHYOOH ','OTNCATCOOH ','IPRBQOOH ', & - 'C5CO23OOH ','T123CT1OOH ','NBPINBOOH ', & - 'C4NO3CO2H ','NC526OOH ','NBUTDBOOH ', & - 'NPXYOL1OOH ','C919OOH ','EPXMEDLPAN ', & - 'IBUTOLOHB ','OETLMUCO3H ','LIMALOOH ', & - 'C147CO ','C147OOH ','C91OOH ', & - 'HO3C76OOH ','NDNCRESOOH ','STYRENOOH ', & - 'EPXMKTCO3H ','MXNCATCOOH ','H2M2C3CO3H ', & - 'C623OOH ','H3M3C6OOH ','C920OOH ', & - 'LMKAOH ','TMBOOH ','C656OH ', & - 'HO3C126OOH ','NPBFUOOH ','EPXMEDCO2H ', & - 'C916OOH ','C4NO32MOOH ','C533OOH ', & - 'MXOHNO2OOH ','C626CO2H ','BUTDCOOH ', & - 'DEMPHOLOOH ','C6145COOOH ','HO8C9OOH ', & - 'MTNNCATOOH ','CYHXOLANO3 ','HO3C96OOH ', & - 'C718CO3H ','PXYMUCCO2H ','EPXKTMCO3H ', & - 'METLMUCO2H ','CO23C65OOH ','C136CO3H ', & - 'C617CO3H ','OETLMUCO2H ','C101OOH ', & - 'C829OOH ','PETLQOOH ','C830OOH ', & - 'C614OOH ','MXYMUCOOH ','CO3C85OOH ', & - 'BZEMUCCO3H ','HO6C7CO3H ','MXY1OOH ', & - 'DNOXYOLOOH ','PCATEC1OOH ','M2BUOL2OOH ', & - 'DNPETOLOOH ','C817CO3H ','C58NO3CO2H ', & - 'TL4ONO2OOH ','NPHEN1OOH ','C512OOH ', & - 'MCATEC1OOH ','MBKCOOHOOH ','PHIC3OOH ', & - 'EPXMKTCO2H ','HMACO2H ','BZBIPEROOH ', & - 'METLQOOH ','C2OHOCOOH ','C920CO3H ', & - 'C510OOH ','C624OOH ','CO3C5CO2H ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_16 = (/ & - 'C72OOH ','C512CO2H ','PXYFUOOH ', & - 'C143OOH ','C45OOH ','C93OOH ', & - 'C816CO3H ','HO3C5CO3H ','ETOMEOOH ', & - 'PTCTEC1OOH ','OXYBPEROOH ','NOETOL1OOH ', & - 'NPETOL1OOH ','C116CO3H ','TM124NOOH ', & - 'OXYLCO3H ','INCNCO2H ','TM124BOOH ', & - 'T124NNCOOH ','C23O3MCO3H ','C828CO3H ', & - 'PERPINONIC ','C731OOH ','IPMLNHYOOH ', & - 'TM135MUO3H ','PERIBUACID ','IECCO3H ', & - 'LIMCOOH ','M23C43OOH ','NOPINCOOH ', & - 'CO2C4CO3H ','NDNPXYLOOH ','METLMUCO3H ', & - 'COO2C3CO3H ','HOC3H6CO3H ','EBENZOOH ', & - 'HM2C43CO3H ','CO1H63OOH ','C1011CO3H ', & - 'C830CO3H ','PETLMUCO2H ','HO24C5NO3 ', & - 'MALNHYOHCO ','MXYLOOH ','C134OOH ', & - 'TM124BPOOH ','NORLIMOOH ','M2PEDOOH ', & - 'C89CO2H ','HO2C54OOH ','OCTOOH ', & - 'C915OOH ','C825CO ','INB1NBCO2H ', & - 'C6CO34OOH ','C106OOH ','PXYQOOH ', & - 'C3COCCO3H ','C68OOH ','PERBUACID ', & - 'M3HEXAOOH ','NC1313OOH ','METOLOOH ', & - 'DNPBNZLOOH ','C1213OOH ','HO1MC5OOH ', & - 'C827CO3H ','DNPHENOOH ','C1210CO3H ', & - 'EBZMUCOOH ','C731CO3H ','ENCATECOOH ', & - 'TM135MUO2H ','M2BKBOOH ','C5NO3O4OOH ', & - 'BUT2CO3H ','NLIMALOOH ','INAHPCO3H ', & - 'C831OOH ','LIMAOH ','HO14C6 ', & - 'C515OOH ','C131OOH ','MTNCATCOOH ', & - 'PETLBPROOH ','C113OOH ','NC730OOH ', & - 'C514OOH ','MVKOHANO3 ','MEBFUOOH ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_17 = (/ & - 'C54NO3 ','T123NCTOOH ','PXYBPEROOH ', & - 'C121OOH ','OETLBPROOH ','CO1C6OOH ', & - 'TM124BCO3H ','C615OOH ','PRCATC1OOH ', & - 'C88CO3H ','H3C2C4CO3H ','TM123BOOH ', & - 'C123OOH ','C516OOH ','HO3C4CO3H ', & - 'C1012OOH ','HM33C3CO3H ','CO25C73OH ', & - 'NOXYOLOH ','C1011CO ','C1011NO3 ', & - 'HM22C3O ','ETHACETO ','NPETOLOH ', & - 'NMETOLOH ','C612O ','C78OH ', & - 'HVMK ','HM23C4O ','C826CO3OH ', & - 'C628OH ','C5NO3CO4OH ','HO3C6O ', & - 'HO2MC5O ','APINBCO ','CO25C6OH ', & - 'NOETOLOH ','IBUTOLCO ','BCKOOB ', & - 'HOHOC4DIAL ','C84OH ','C719O ', & - 'C3ME3CHO ','MEKCO ','INAHPCHO ', & - 'C9M2CO6OH ','IPEBOH ','C7BDCOH ', & - 'C513O ','DIETETHER ','LIMBCO ', & - 'MIBKHO14 ','MC7CO2O ','MC7CO2OH ', & - 'LIMALAOH ','LMLKAOH ','MIBKBOH ', & - 'C615CO2OH ','NTM135OLOH ','C1013CO ', & - 'C1013NO3 ','MEKBO ','METHACETO ', & - 'NDMEPHOLOH ','MPRKAO ','PECOH ', & - 'ETHFORMO ','C715CO2OH ','HEX3ONDOH ', & - 'C7M2CO5OH ','C6CO3HO14 ','C4M2AL2OH ', & - 'INB1NACHO ','C9DC ','C822CO2 ', & - 'PXYFUO ','C69O ','C89CO2 ', & - 'C726CO3OH ','C7236CO ','BCALAOH ', & - 'BCALCOH ','NEBNZOLOH ','C1010O ', & - 'LMLKBOH ','C52O ','C731CO2 ', & - 'C627OH ','BCLKCOH ','C145O ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_18 = (/ & - 'C6NO3CO4OH ','TMB2FUO ','C815CO2OH ', & - 'C136CO2 ','INB1HPCHO ','C41OH ', & - 'HM22C4O ','C126CO ','C126NO3 ', & - 'C735OH ','C735O ','C714OH ', & - 'C712OH ','CH3O ','IC5H12 ', & - 'C7M15CO2OH ','C611OH ','DIEKAO ', & - 'HMVKNGLYOX ','C826CO3O ','M3PE ', & - 'GAOOA ','C818CO ','C42OH ', & - 'MXYL1O ','HO14CO3C5 ','NTM123OLOH ', & - 'C830CO ','C830NO3 ','C6CO3OH5O ', & - 'INDHPCHO ','C617O ','EIPKAOH ', & - 'EIPKAO ','HO14CO2C5 ','C116CO ', & - 'C116NO3 ','C53OH ','C66OH ', & - 'C1012CO ','ISOPCO ','IC3H7O ', & - 'HM33C4O ','NMXYOLOH ','C8M2CO6OH ', & - 'MPHCOMEOH ','HO2C5O ','BCLKAOH ', & - 'NTM124OLOH ','C4COMOH3OH ','MIBKOH34 ', & - 'NPBNZOLOH ','CYHXONAOH ','C124OH ', & - 'TLFUO ','C926OH ','C611O ', & - 'C521OH ','HO1C3O ','TMB1FUO ', & - 'MC52CO2OH ','HMAC ','HNMVKOH ', & - 'C59O ','INAHCHO ','NPROPOL ', & - 'BCLKBOH ','M22C4 ','C926O ', & - 'CO25C74OH ','C628O ','HO2M2C5O ', & - 'EIPKBOH ','M2BKBOH ','NC3H7O ', & - 'C619CO ','NBUTOL ','C5DIALOH ', & - 'HEX2ONCO ','NPXYOLOH ','IBUTOL ', & - 'IBUTALBO ','BENZENE ','HEX3ONAOH ', & - 'C6CO3HO25 ','LMKBCO ','C94OH ', & - 'NC5H12 ','NC6H14 ','MC6OTKETO ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_19 = (/ & - 'C6CO3HO4 ','C6CO34 ','MXYFUO ', & - 'M2BKBO ','IC4H9O ','EMPHCOMOH ', & - 'NIPBNZOLOH ','LIMALBOH ','CO2HO4C6 ', & - 'HO1C4O ','H2MC5O ','C713OH ', & - 'C713O ','C930O ','C4CHOBO ', & - 'DMK2OH ','OXYFUO ','METHCOACET ', & - 'NDEMPHOLOH ','IPEAOH ','C818OH ', & - 'C620O ','C2H5OH ','C514CO23OH ', & - 'DMPHCOMOH ','BCBCO ','HEX3ONCO ', & - 'BCKBCO ','C1210CO2 ','C114OH ', & - 'NEOPO ','BCALBOH ','ACETC2H4O ', & - 'C104OH ','MEBFUO ','BCOOB ', & - 'NCRESOH ','INB1O ','C2H5NO3 ', & - 'C2H5O ','M3PEAOOH ','C143NO3 ', & - 'M3PEBOOH ','C4ME2OHO ','HO1C6O ', & - 'C824CO ','C618OOH ','C151OOH ', & - 'C73OOH ','C715CO2O ','C721OOH ', & - 'C5COCHOOOH ','C6H5OOH ','HOCH2CO2H ', & - 'EPXM2DCO2H ','C623NO3 ','C64OH5OOH ', & - 'BUTALAOOH ','BCLKCO ','NC91CO3H ', & - 'C136NO3 ','TM124BNO3 ','TM124BO ', & - 'HO5C6OOH ','PBZQONE ','MBOOOA ', & - 'CY6DIONOH ','C52OH1OOH ','HO24C5OOH ', & - 'HO3C96NO3 ','HO3C96O ','BUT2OLNO3 ', & - 'NPETLQOOH ','ALCOCH2OOH ','HO3C4NO3 ', & - 'C624NO3 ','HIEB1O ','M23C43NO3 ', & - 'M23C43O ','MIBK3CO ','BCALBCO ', & - 'C6H5CH2O ','C521OOH ','C6H5CH2NO3 ', & - 'ACLOOA ','C6H5C2H4O ','DMPHGLYOX ', & - 'HO1MC5NO3 ','HO1MC5O ','HO3C5NO3 ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_20 = (/ & - 'C1010OOH ','C5NO3OAOOH ','C916O ', & - 'INANCO3H ','PEBQONE ','C6125CO ', & - 'C4M22CONO3 ','NMBOAO ','HYETHO2H ', & - 'C3MDIALO ','C514NO3 ','C514O ', & - 'C118NO3 ','C118O ','MBOAO ', & - 'HPC52CO3H ','NC4H10 ','C829O ', & - 'MXYLNO3 ','MXYLO ','PXYLO ', & - 'DE35TO ','C512NO3 ','DECNO3 ', & - 'BIACETO ','C78CO ','C6OH5NO3 ', & - 'BCLKCCO ','H3M3C5NO3 ','NPPRBQOOH ', & - 'M3HEXANO3 ','CO245C7 ','CO24C53O ', & - 'BCALACO ','LIMALNO3 ','C726CO5OOH ', & - 'C5DICAROOH ','H1MC5O ','C84OOH ', & - 'PHCOMEOOH ','HEX2ONANO3 ','H2M3C4OOH ', & - 'C146CO ','NAPINAOOH ','DMMALANHY ', & - 'C45NO3 ','C45O ','HPC52O ', & - 'ETHO2HNO3 ','NPXYFUOOH ','HC3CO2H ', & - 'C98O ','COCCOHNO3 ','MCOCOMOOOH ', & - 'M2PEBOOH ','HO2C4NO3 ','C7M6CO2OH ', & - 'LIMALBCO ','PR1O2HNO3 ','TM123BO ', & - 'PBFUOOH ','NBCKOOH ','BCLKBOOH ', & - 'ETOMENO3 ','ETOMEO ','MACROHO ', & - 'ETOC2O ','C129OOH ','EOX2OLAOOH ', & - 'EOX2COMEOH ','C630OOH ','COCCOHCO ', & - 'C826CO3OOH ','INAHCO3H ','C134OH ', & - 'HEX2ONBOOH ','PE1ENEAO ','PHCOME ', & - 'C8CO2DCO3H ','C4CHOBOOH ','TM123BNO3 ', & - 'MBOBO ','C732NO3 ','HO13C4OOH ', & - 'IPEAOOH ','NBUTOLAOOH ','C628OOH ', & - 'C413COOOH ','CO1C6NO3 ','C734OOH ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_21 = (/ & - 'C535O ','HIEB2O ','C6COALCO3H ', & - 'MBOANO3 ','MEKANO3 ','METLBIPNO3 ', & - 'MIBKOHBOOH ','EBFUOOH ','HYPROPO2H ', & - 'C148OOH ','CHOC2H4OOH ','HO1C4NO3 ', & - 'TMBO ','HEX2ONBNO3 ','LIMCNO3 ', & - 'HM2C43O ','HM22C3OOH ','CO25C73OOH ', & - 'CH2CHCH2NO3 ','CH2CHCH2O ','LIMBOOH ', & - 'C730NO3 ','C148CO ','NBUTOLBOOH ', & - 'LIMBNO3 ','CO3C4NO3OH ','HNMVKOOH ', & - 'BCALNO3 ','HEPTNO3 ','C46CO3H ', & - 'NC4H9NO3 ','CH3OCH2NO3 ','CH3OCH2O ', & - 'ME2BUOLO ','C727CO ','C625OOH ', & - 'C6OH5O ','ECO4 ','CO13C3CO2H ', & - 'C1215NO3 ','C1215O ','C716OOH ', & - 'C915NO3 ','H3C25C6OH ','C6COCHOOOH ', & - 'OXYQONE ','C71OOH ','HOCO4C5OOH ', & - 'INAHPPAN ','C63NO32OOH ','C517NO3 ', & - 'C517O ','NBZQOOH ','TBUTOLO ', & - 'HO3C76O ','SC4H9NO3 ','C3NO3COOOH ', & - 'M2BU2OLOOH ','IC4CHOAOOH ','BCLKAOOH ', & - 'C7M15CO2O ','EOX2OLBNO3 ','ACECOCOCH3 ', & - 'HEX3ONANO3 ','C57AO ','MOCOCH2OOH ', & - 'PROL11MNO3 ','C87OOH ','ACROOA ', & - 'C6DICARBO ','C1312O ','M3PECO ', & - 'C72NO3 ','EBZBPERNO3 ','PEBNO3 ', & - 'M2PEAOOH ','C527O ','MC7CO2OOH ', & - 'NC3CO2H ','INB1NBCO3H ','BUTDAO ', & - 'C1211NO3 ','LMKBOOH ','NC3H7NO3 ', & - 'BPINCO ','M2BU2OLNO3 ','ME3BUOLNO3 ', & - 'HO2C54NO3 ','NMXYQOOH ','EIPKBNO3 ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_22 = (/ & - 'INANCHO ','C7CO2DCO3H ','MIPKAOOH ', & - 'C106O ','C922OOH ','C128O ', & - 'HEXANO3 ','MC6CO2OH ','C813O ', & - 'NLMKAOOH ','INB1NBCHO ','HM23C4OOH ', & - 'BCSOZOOH ','HO2M2C4OOH ','LMKBNO3 ', & - 'C626NO3 ','PRNO3CO3H ','CO1H63O ', & - 'C6NO3COOOH ','HO2CO4C5O ','C64OH ', & - 'C96OOH ','INB1HPPAN ','MACRO ', & - 'C56O ','ME3BUOLOOH ','C728NO3 ', & - 'C152O ','C6DIALOOH ','NMBOBOOH ', & - 'C66NO35OH ','HO3C4O ','C2H5CHOOA ', & - 'OXYLNO3 ','OXYLO ','C76OOH ', & - 'C818OOH ','C627OOH ','M23C4OOH ', & - 'CHEXNO3 ','METLOBPROH ','LMLKBOOH ', & - 'APINBNO3 ','C715O ','C4CHOAOOH ', & - 'C8DCO2CO3H ','C92OOH ','C6NO324CO ', & - 'MIBKAOHAO ','HO2C6O ','HO3C126O ', & - 'C718NO3 ','C718O ','C717NO3 ', & - 'C717O ','C3MNO3CO3H ','TBUTOLNO3 ', & - 'CH2OOA ','C4DBM2CO3H ','NISOPNO3 ', & - 'NISOPO ','C3H7CHOOA ','H14CO23C4 ', & - 'CH3OOH ','M2BKANO3 ','NPTLQOOH ', & - 'MPHCOMEOOH ','TM124QONE ','H2M4C65NO3 ', & - 'H2M4C65O ','EPXM2DCO3H ','C94OOH ', & - 'NMXYFUOOH ','PTLQONE ','C5M2OHCO3H ', & - 'C810O ','PEBOOH ','APINBOOH ', & - 'C104OOH ','HO3C116O ','C923NO3 ', & - 'C819OOH ','C823NO3 ','C5MEJCO3H ', & - 'NLIMOOH ','PE2ENEBO ','C65OH4NO3 ', & - 'C42MNO3OOH ','C4MNO31OOH ','MEKAOOH ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_23 = (/ & - 'C924OOH ','C622NO3 ','C622O ', & - 'HO13C5NO3 ','DIETETNO3 ','DIETETO ', & - 'BUTALNO3 ','DE35TNO3 ','C1311NO3 ', & - 'COC4NO3OOH ','GAOOB ','C4DBMECO3H ', & - 'DIEKBNO3 ','C713OOH ','C534O ', & - 'HEXBNO3 ','ETOLNO3 ','ETOLO ', & - 'BZFUOOH ','PROL11MO ','NPXYQOOH ', & - 'MIPKBNO3 ','NOXYQOOH ','M2HEXANO3 ', & - 'C711OOH ','ETHOHNO3 ','M33C4NO3 ', & - 'BCKAOOH ','NBUTDBNO3 ','NBUTDBO ', & - 'INB1OH ','PXYL1OOH ','APINAOOH ', & - 'PGLOOB ','CO2N3CO3H ','C4CHOBNO3 ', & - 'MECOACEOOH ','C141NO3 ','C57OOH ', & - 'C4OH2CO3H ','C722OOH ','C42O ', & - 'DDECNO3 ','CONO3C6OOH ','C55OOH ', & - 'HO13C3CO3H ','C815CO2O ','MIBKAOH ', & - 'BCLKACO ','C62CO3H ','C114OOH ', & - 'HO3C106O ','C61NO3 ','C93NO3 ', & - 'C66NO35OOH ','IC3H7OOH ','HO1C4OOH ', & - 'NBUTOLBNO3 ','C6NO3CO5OH ','CISOPCO ', & - 'CHOMOHCO3H ','BCALCCO ','C65OH4OOH ', & - 'EMPHGLYOX ','M3BU2OLOOH ','C1012NO3 ', & - 'C9M2CO6OOH ','HC4ACO2H ','C522CO3H ', & - 'PINONIC ','LMLKBCO ','NC61CO3H ', & - 'C85OOH ','C42CO3H ','HOC4CHOO ', & - 'C918CO3H ','INCOOH ','PGLOOA ', & - 'HEXCNO3 ','NO3CH2CO3H ','C86OOH ', & - 'NOXYFUOOH ','COO2C4OOH ','C129CO ', & - 'C729NO3 ','CHOOCH2OOH ','C137NO3 ', & - 'PE2ENEAO ','CO2H3MCO3H ','BCBOOH ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_24 = (/ & - 'OCTNO3 ','INAO ','PEN2ONE1O ', & - 'C1014NO3 ','C131NO3 ','C6CONO3OOH ', & - 'PXYQONE ','M2PEANO3 ','M22C4NO3 ', & - 'BCALCO ','ECO3CO3H ','HO1C5NO3 ', & - 'HO1C5O ','NAPINBOOH ','TLCOBIPEOH ', & - 'C4NO3CO3H ','DM123OOH ','BCAOOH ', & - 'C52NO31OOH ','NBCOOH ','APINANO3 ', & - 'HO2M2C5NO3 ','INB1NACO3H ','BCBNO3 ', & - 'C82NO3 ','CY6DIONO ','ACEC2H4OOH ', & - 'C2H5OOH ','HO2C6NO3 ','CO2HOC61O ', & - 'NC4CO2H ','M33C4OOH ','IPEBNO3 ', & - 'M2PECNO3 ','C117NO3 ','PECNO3 ', & - 'H2M3CO4CHO ','HM2C43NO3 ','M22C43NO3 ', & - 'C5DIALO ','C74O ','H3M3C6NO3 ', & - 'C79O ','PHCOETOOH ','C122OOH ', & - 'HO3C116NO3 ','C917O ','PROL1MCO3H ', & - 'C733CO ','CHOC4DOLO ','IPRHOCO3H ', & - 'IPRCHOOA ','HEX3ONDNO3 ','C930OOH ', & - 'CYHXONANO3 ','NONNO3 ','CO235C6OOH ', & - 'HM23C4NO3 ','IPROPOLPER ','H2M3C4NO3 ', & - 'C124OOH ','NBUTDAOH ','IPEBOOH ', & - 'C731NO3 ','DM124OOH ','C1213O ', & - 'PEAOOH ','C61CO3H ','IPROPOLO ', & - 'C524CO ','LIMALACO ','TMBNO3 ', & - 'HO2M2C5OOH ','C615CO2O ','IBUTOLCO2H ', & - 'C58OOH ','IC4H9NO3 ','C3EDIALO ', & - 'C142NO3 ','MACRNBPAN ','TM123BPNO3 ', & - 'BCCNO3 ','INB1GLYOX ','EIPKAOOH ', & - 'C103NO3 ','M3PEBNO3 ','HO2C4OOH ', & - 'C5COHOCO3H ','C526O ','C1210NO3 ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_25 = (/ & - 'HO24C4CO3H ','ISOPBOOH ','C610NO3 ', & - 'BCSOZNO3 ','HM22COCHO ','C67NO3 ', & - 'C1212NO3 ','HMGLOOA ','HM33C4OH ', & - 'EOCOCH2OOH ','IBUTOLCNO3 ','NTMB1FUOOH ', & - 'C6EO2HCO3H ','M22C4OOH ','LMLKACO ', & - 'BCKBOOH ','NMEBFUOOH ','HO3C106NO3 ', & - 'HEX2ONAOOH ','C63NO3 ','C123NO3 ', & - 'ALLYLOH ','C924CO ','PPRBQONE ', & - 'C831NO3 ','MBOBNO3 ','M3PEANO3 ', & - 'PE1ENEBNO3 ','C613O ','C152NO3 ', & - 'METLQONE ','C77NO3 ','OXYL1OOH ', & - 'HO3C86O ','PEANO3 ','CH3CHOOA ', & - 'C7M6CO2O ','BCKBNO3 ','C525OOH ', & - 'C65NO3CO3H ','H2M2C65NO3 ','NC3H7OOH ', & - 'C927O ','NIPRBQOOH ','PHCOCOME ', & - 'NOPINANO3 ','PE2ENEBNO3 ','C102OOH ', & - 'HO3C86NO3 ','C929OOH ','C3M3OHCO3H ', & - 'C6H5C2NO3 ','C1310NO3 ','C1310O ', & - 'LMLKAOOH ','HO1C3NO3 ','C7ODLBCO3H ', & - 'CISOPAO ','PXYLNO3 ','C7CDCCO2H ', & - 'C133NO3 ','C825OOH ','C96NO3 ', & - 'C43NO3CO3H ','BCLKBCO ','C81OOH ', & - 'MXYBIPENO3 ','NC4H9OOH ','H13C43CO3H ', & - 'H13CO2CO3H ','PHC3NO3 ','PHC3O ', & - 'C109O ','C720O ','C1313NO3 ', & - 'CH3COCH2O ','C139NO3 ','C811NO3 ', & - 'INDHCO3H ','C113NO3 ','H3M3C5OOH ', & - 'C614NO3 ','DM35EBNO3 ','DM35EBO ', & - 'INCGLYOX ','C3EODBCO2H ','IPEANO3 ', & - 'IBUALANO3 ','IC4H9OOH ','KLIMONONIC ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_26 = (/ & - 'BZBIPERNO3 ','NTM124QOOH ','BPINBNO3 ', & - 'C6CONO34OH ','HPNC524CO ','C3H5CO2H ', & - 'C151NO3 ','C5124COOOH ','C7MOCOCO3H ', & - 'M2PEBNO3 ','NPEBQOOH ','C822NO3 ', & - 'EMPHOOH ','C524NO3 ','M2PECOOH ', & - 'C7CO2M5O ','C7CO2M5OH ','CO24C63OOH ', & - 'BCKOOA ','C6135COOOH ','H2M5C65O ', & - 'LIMALAOOH ','C4MNO32OOH ','IPRHOCO2H ', & - 'MPRKNO3 ','C4NO3M2OOH ','NBUTOLANO3 ', & - 'NOETLQOOH ','C4NO3M1OOH ','C64OH5NO3 ', & - 'HO5C5CO3H ','TM135BPNO3 ','C152OOH ', & - 'HM33C3O ','ACEC2H4NO3 ','C3DIALO ', & - 'C817CO ','C826NO3 ','DMPHOOH ', & - 'H3C25C6OOH ','C6COALCO2H ','C47CHO ', & - 'TLBIPERNO3 ','HO3C3CO3H ','M2PE ', & - 'C735OOH ','HO3C126NO3 ','C5EDBCO3H ', & - 'NMETLQOOH ','PETLQONE ','HO3C5OOH ', & - 'C58AOOH ','MEK2OOA ','C51NO32OOH ', & - 'HOIPRGLYOX ','C4OHCO3H ','C41CO2H ', & - 'IPRBQONE ','C3ME3CHOO ','DIEKBOOH ', & - 'HEX3ONDOOH ','HC4CO3H ','M23C4NO3 ', & - 'C511OOH ','EOX2OLANO3 ','PBZBPERNO3 ', & - 'LMKAOOH ','C127NO3 ','M22C43OOH ', & - 'HCOCOHCO3H ','C112OOH ','HOCH2CO3H ', & - 'C52NO33OOH ','C5CO2DCO3H ','APINCO ', & - 'HEXAOOH ','NTMB2FUOOH ','IPBZBPRNO3 ', & - 'HM22C3NO3 ','OETLQONE ','PROPGLY ', & - 'HEXBOOH ','NC102OOH ','HOCO3C5OOH ', & - 'CO2C3OOA ','C611OOH ','IC3H7NO3 ', & - 'CO25C6OOH ','INCNCO3H ','ACCOCOMEO ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_27 = (/ & - 'HC3CCO3H ','UDECNO3 ','PROLNO3 ', & - 'NC4OHCO3H ','SC4H9OOH ','C51NO3 ', & - 'C519OOH ','MIBKAOH3CO ','C146OOH ', & - 'C736OOH ','PE1ENEANO3 ','PR2O2HNO3 ', & - 'C7CO2OCO3H ','C928NO3 ','C820OOH ', & - 'IPBFUOOH ','PE2ENEANO3 ','C5DIALCO ', & - 'C53NO32OOH ','C44OOH ','LIMAOOH ', & - 'C108O ','MTBKNO3 ','NTLFUOOH ', & - 'C62NO33OOH ','HO1C3OOH ','C919O ', & - 'C817NO3 ','HO2M2C4NO3 ','MPRNO3CO3H ', & - 'CHOOCH2NO3 ','C720NO3 ','IBUTALBO2H ', & - 'MXYQONE ','TC4H9O ','C4COMOHOOH ', & - 'C6OTKETCO ','NPHENOH ','BCALAOOH ', & - 'BCOOA ','MALANHY ','C5MO132OH ', & - 'C4MCONO3O ','C6O132OH ','C520OH ', & - 'MACROOA ','C6M5CO2OH ','C51NO324CO ', & - 'MGLOOA ','HCC7CO ','NAOOA ', & - 'C6CO2M2OH ','C629OH ','C8236CO ', & - 'C614CO23OH ','HNC524CO ','NC4H9CHOOA ', & - 'MMALANHY ','MACRNOOA ','IPECO ', & - 'C4M2ALOHNO3 ','C7DCO ','NPBNZOLO ', & - 'HC3CO3H ','NC826O ','C7PAN1 ', & - 'MVKOOH ','C4PAN10 ','NMETOLOOH ', & - 'NO3CH2PAN ','C615CO2OOH ','MPRANO3O ', & - 'BUT2OLOOH ','MC4CODBPAN ','C8CO2OHPAN ', & - 'NCRESO ','C31CO3H ','LIMCO ', & - 'HO1C6NO3 ','C312COPAN ','HCOCOHPAN ', & - 'C826O ','HM33C4NO3 ','C68NO3 ', & - 'C88PAN ','BPINBO ','CHOOMPAN ', & - 'EPXKTMPAN ','HO2C5NO3 ','NEBNZOLOOH ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_28 = (/ & - 'C7DDCO ','MPRBNO3PAN ','C627PAN ', & - 'C1010NO3 ','C4PAN3 ','CHOCOHCO ', & - 'H3C25C6PAN ','C61O ','C4CO2DBPAN ', & - 'NC6PAN1 ','C4PAN9 ','C810NO3 ', & - 'C817PAN ','M2HEXBNO3 ','NNCATECO ', & - 'MNNCATECO ','PBN ','C61CPAN ', & - 'MEKAO ','C109OOH ','C7OHO2CO3H ', & - 'HM33C3NO3 ','HO2MC5OOH ','ISOPDOOH ', & - 'C510O ','C1H4C5PAN ','C62NO335CO ', & - 'NC4PDCO2H ','PE1ENEBO ','MIBKAOHBO ', & - 'T124NCATO ','C23O3CPAN ','C64OOH ', & - 'HC4CCO3H ','H1MC5NO3 ','C613OOH ', & - 'T124NNCTO ','HEX3ONCOOH ','C815CO2OOH ', & - 'C3COCPAN ','C728O ','C123O ', & - 'NPETOLO ','C87PAN ','NPXYOLOOH ', & - 'OTNNCATCO ','COO2C4PAN ','HMACROH ', & - 'PXYMUCPAN ','C58NO3CO3H ','C46PAN ', & - 'HEX3ONBOOH ','C515PAN ','CH3OCHO ', & - 'PTNCATECO ','HC4PAN ','DNPHENO ', & - 'NC730O ','PRNO3PAN ','INANCOCO2H ', & - 'C8CO3OHO ','C6DCARBPAN ','C4NO3PAN ', & - 'C511PAN ','NTM135LOOH ','T123NCATO ', & - 'C141PAN ','ENNCATECO ','C63O ', & - 'INB2OOH ','C623O ','C4M2ALOHO ', & - 'C923PAN ','C103O ','NPXYOLO ', & - 'MVKOHAO ','C823PAN ','DNOETOLO ', & - 'MTNCATECO ','CHOC3COPAN ','C7MCO2OOH ', & - 'MC5COOHOOH ','C5CODBCO3H ','ENCATECO ', & - 'TM124BPNO3 ','C58NO3PAN ','H1C23C4O ', & - 'CO2OH3MPAN ','C3DIALOOH ','M2PEDNO3 ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_29 = (/ & - 'PPEN ','PIPN ','C1013PAN ', & - 'MIPKBO ','C7MOHCOPAN ','HC4ACO3H ', & - 'C531OOH ','CO24C6OOH ','C828PAN ', & - 'PROL1MPAN ','C927NO3 ','C5PAN9 ', & - 'ISOP34O ','NOETOLOOH ','C714OOH ', & - 'APINCNO3 ','OCCOHCOOH ','NEOPOOH ', & - 'C919NO3 ','EPXEKTPAN ','C6MOHCOPAN ', & - 'PETLMUCPAN ','HM22C4OOH ','MTBKO ', & - 'INANCOPAN ','C512PAN ','C624PAN ', & - 'C113O ','HYPROPO ','EBZMUCPAN ', & - 'OXNCATECO ','C93O ','C4COMOHPAN ', & - 'C68O ','C8CO2DBAL ','HO2C54O ', & - 'H2M3C4O ','C126PAN ','NTM124LOOH ', & - 'DETLMUPAN ','C622PAN ','C5DCO2CO3H ', & - 'HO2MC5NO3 ','C8OHO2CO3H ','IEAPAN ', & - 'PBZMUCPAN ','PAN ','C811PAN ', & - 'MC5CO2OHO ','H3C2C4PAN ','C89NO3 ', & - 'C57O ','ACETMEPAN ','METACETNO3 ', & - 'HO1CO3C5 ','C137PAN ','C515O ', & - 'MXNNCATCO ','C6PAN14 ','C5PAN18 ', & - 'EPXMKTPAN ','ETACETNO3 ','C128NO3 ', & - 'CHOC4PAN ','C5PAN11 ','HO8C9O ', & - 'C5PAN13 ','C5PAN12 ','CO23C54O ', & - 'C929CO ','C7CODBPAN ','PXNNCATCO ', & - 'C5M2OHOPAN ','C5PAN14 ','C136PAN ', & - 'C7BDCOOH ','TC4H9NO3 ','C731PAN ', & - 'C7DCPAN ','DMPHCOMOOH ','C5PAN16 ', & - 'C6CO34O ','C54OOH ','C621O ', & - 'MVKOHBOOH ','CO3H4PAN ','C77O ', & - 'HO3C3PAN ','PEBO ','C4DBMEPAN ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_30 = (/ & - 'C98NO3 ','C43NO3PAN ','C519PAN ', & - 'C1210PAN ','INCNPAN ','BUTDCO ', & - 'HOCH2CH2O ','C626PAN ','NIPBZOLOOH ', & - 'HEXCO ','HNBIACET ','EPXDLPAN ', & - 'HM22C4NO3 ','C7CO2DBAL ','MEKBOOH ', & - 'ETACETOH ','INCO ','C6PAN20 ', & - 'C1310CO ','NBUTOLAO ','C8CO2DBPAN ', & - 'C915O ','C79OOH ','C6TRONOHO ', & - 'C5CO2OHPAN ','PHPTN ','LIMALBOOH ', & - 'NDMEPHOLO ','H1C23C4PAN ','C66OOH ', & - 'NCATECO ','NDEMPHOLO ','DNPXYOLO ', & - 'C4CONO3O ','C57NO3PAN ','DNT123LO ', & - 'BCLKCOOH ','C4OHPAN ','C6O4KETO ', & - 'NTM123LOOH ','PXNCATECO ','C108NO3 ', & - 'C3ME3PAN ','C151O ','HO13C5O ', & - 'C1313O ','ME3BUOLO ','GLYOOB ', & - 'C134O ','NC728O ','C105O ', & - 'C5DICARBO ','ETHACETOOH ','C7MJPCO3H ', & - 'C6PAN3 ','C615PAN ','ETOMEPAN ', & - 'PHCOCOCO ','C916NO3 ','HO6C7O ', & - 'C52NO3 ','NMXYOLO ','C4CO2DCO3H ', & - 'ETHFORMNO3 ','C7OHCO2PAN ','C7ADCCO3H ', & - 'M23C4O ','MXYOHNO2O ','ACCOCOMOOH ', & - 'C524O ','BUTDBO ','C517PAN ', & - 'C1211CO ','MEKCOOH ','H2MC5OOH ', & - 'NTM124OLO ','HMVKBPAN ','C6PAN19 ', & - 'COO2C3PAN ','C6H5CH2PAN ','C116PAN ', & - 'PXYBIPENO3 ','NO3CH2CO2H ','C4PAN2 ', & - 'HO2C5OOH ','C4PAN1 ','C6PAN12 ', & - 'CHOCOMOXO ','NMETOLO ','C4PAN4 ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_31 = (/ & - 'M3BU3EPAN ','C4PAN5 ','C4PAN6 ', & - 'C8OHCO2PAN ','C4OCCOHCO ','C4PAN7 ', & - 'HOC4CHOOOH ','NPHENO ','NPHENOOH ', & - 'C5PAN10 ','C4PAN8 ','C829NO3 ', & - 'CO35C5CHO ','C3PAN2 ','COCCOHCOOH ', & - 'NOXYOLO ','PROPALO ','IC7DCPAN ', & - 'C134CO ','METACETO2H ','C3DBPAN ', & - 'C106NO3 ','C928PAN ','C64NO3 ', & - 'NC4OHCPAN ','C41O ','ETOC2NO3 ', & - 'MTNNCATCO ','C5CO234O ','CO356OCO ', & - 'NC51O ','C6PAN5 ','IECPAN ', & - 'NC3CO3H ','C3PAN1 ','C72O ', & - 'HOACETETO ','PROPALOOH ','C830PAN ', & - 'C3MCODBPAN ','C4M2NO33O ','NC1313O ', & - 'C5EDBPAN ','C530NO3 ','HO3C6NO3 ', & - 'BCALBOOH ','C6M5CO2O ','C6MOCOCO3H ', & - 'M3PECNO3 ','IBUTOLBO ','PHXN ', & - 'C6PAN2 ','C6PAN1 ','C6PAN6 ', & - 'C6PAN7 ','C6PAN4 ','NTM135OLO ', & - 'C6PAN8 ','C65OH4O ','C920PAN ', & - 'C4NO32M2O ','C23O3ECPAN ','C115O ', & - 'NC4IPDCO2H ','C1213NO3 ','C1213CO ', & - 'OETLMUCPAN ','C5NO3CO4O ','C5CO2DBPAN ', & - 'C131PAN ','HCOCH2O ','C8O2OHCO3H ', & - 'C7CO2OHPAN ','CO1M22PAN ','C3DIOLO ', & - 'C6EO2OHPAN ','C5124COPAN ','C1H4C5CO3H ', & - 'NMBOBO ','INANCOCO3H ','C52OOH ', & - 'C3MNO3PAN ','C3DBCO3H ','HO7C8O ', & - 'C7MCO2DBAL ','C5COO2NO2 ','C6PAN21 ', & - 'HEX2ONCOOH ','C729PAN ','C5PAN8 ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_32 = (/ & - 'MIBK3COO ','C5PAN4 ','C5PAN7 ', & - 'C5PAN1 ','C5PAN3 ','C5PAN2 ', & - 'CHOMOHPAN ','BPINCNO3 ','M2BKAO ', & - 'C824O ','HO2M2C4O ','PINALNO3 ', & - 'DIEKAOOH ','C733O ','COO2C4CHO ', & - 'C6PAN23 ','C7CO3OHO ','NC91PAN ', & - 'C5DBECO3H ','EMPHCOMOOH ','C7CO2DBPAN ', & - 'BPINAO ','DNEBNZLO ','EPXMDLPAN ', & - 'CO234C65O ','M33C4O ','INB1NBPAN ', & - 'C1312NO3 ','C1312CO ','M3CO245C6 ', & - 'C5COOHCO3H ','C64OH5O ','NEOPNO3 ', & - 'CH4 ','IPBZMUCPAN ','NC623O ', & - 'HO3C76NO3 ','OXNNCATCO ','NDMMALYO ', & - 'C23O3MCOOH ','A2PAN ','CHEXO ', & - 'C23O3ECOOH ','MALDIALPAN ','INANPAN ', & - 'NC4H9O ','IP3ODBCO2H ','INB1NAPAN ', & - 'C62CPAN ','C74OOH ','C730O ', & - 'C6CO34HO1 ','M2PEDO ','H2MC5NO3 ', & - 'DNOXYOLO ','PC3ODBCO2H ','DNPETOLO ', & - 'C831CO ','HO2C4O ','C6CO3OHOOH ', & - 'C522PAN ','C930NO3 ','C917NO3 ', & - 'HO5C6O ','IPROPOLPAN ','H13M3C5O ', & - 'C816PAN ','DMEBMUPAN ','IC7DCO ', & - 'METLMUCPAN ','C10PAN2 ','DNT124LO ', & - 'C614O ','EOX2EOLAO ','BZEMUCPAN ', & - 'MXYLPAN ','INDHPPAN ','C822PAN ', & - 'NBPINBO ','C83O ','BCCO ', & - 'NLIMALO ','MXNCATECO ','M3HEXBNO3 ', & - 'C1215CO ','DNC524CO ','C7ADCO ', & - 'C828O ','C4MOHOPAN ','C4DBM2PAN ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_33 = (/ & - 'C3EDIALOOH ','HO13C4O ','C2H6 ', & - 'M2PEBO ','ALC4DOLOOH ','ETHFORMOOH ', & - 'C7PAN3 ','C5PAN5 ','C732CO ', & - 'C617PAN ','C712OOH ','C610O ', & - 'M2BUOL2O ','C718PAN ','MACRNBCO2H ', & - 'DNMXYOLO ','C6PAN9 ','C65NO3PAN ', & - 'C5CO23O ','M3PEBO ','C6COOHCO3H ', & - 'M2PROPAL2O ','IBUTALO2H ','NTM123OLO ', & - 'DNMETOLO ','C51O ','LIMALO ', & - 'C5DBCO2PAN ','C712NO3 ','C712O ', & - 'MNCATECO ','C65NO36O ','PPN ', & - 'OTNCATECO ','C7DDCCO3H ','C727OOH ', & - 'C6PAN22 ','CHOC2PAN ','C82O ', & - 'C518PAN ','C1011PAN ','C5O45OHPAN ', & - 'C67O ','C5DBEPAN ','CO1H63NO3 ', & - 'T123NNCTO ','C918PAN ','CYHXOLAOOH ', & - 'C5MEJPAN ','C4OH2CPAN ','CO2C3PAN ', & - 'C5DIALOOH ','C6PAN18 ','C6PAN10 ', & - 'C6PAN11 ','C6PAN17 ','NIPBNZOLO ', & - 'C7MCO3OHO ','C827PAN ','NBPINAO ', & - 'C41CO3H ','IPEAO ','NC4CO3H ', & - 'NOPINCNO3 ','MPRKAOOH ','DNCRESO ', & - 'BCSOZO ','HM33C4OOH ','BCALO ', & - 'C6CO2OHPAN ','C615O ','HPC52PAN ', & - 'BCALCOOH ','C4OCCOHCOH ','INDHPAN ', & - 'HO3C6OOH ','PHAN ','C530O ', & - 'HOCO3C4OOH ','NEBNZOLO ','C3M3OH2PAN ', & - 'C7MJPPAN ','C6CO134PAN ','MIBKCOOHO ', & - 'CY6COCOOOH ','IBUDIALPAN ','C66CO ', & - 'C125O ','MACRNPAN ','TLEMUCPAN ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_34 = (/ & - 'C8DBCO2PAN ','C135O ','ECO3PAN ', & - 'C58AO ','PTNNCATCO ','CYHXONAO ', & - 'C821O ','MIBKANO3 ','MIBKAO ', & - 'C7PAN2 ','C533O ','STYRENO ', & - 'C95O ','NBCALO ','ACCOMEPAN ', & - 'IPECNO3 ','CO3C4NO3 ','CO25C74OOH ', & - 'HO24C5O ','C58O ','C918NO3 ', & - 'TM135OBPOH ','IPROPOL ','IPBENZ ', & - 'TM124OHNO2 ','CO346C8 ','PTNCATECH ', & - 'DNCRES ','EBZOBPEROH ','NC101CO ', & - 'UDEC3ONE ','NCATECHOL ','EBNZOHNO2 ', & - 'DMKOHO ','OXNCATECH ','MXYL ', & - 'TM135B ','PET1OHNO2 ','ACO2H ', & - 'IPNCATECH ','MET1OHNO2 ','BUTDANO3 ', & - 'TM123OBPOH ','MIPKAO ','EBENZ ', & - 'M2BUOL2NO3 ','OETLMUCCO ','OETLMUCNO3 ', & - 'M3CO5C6 ','DDEC3ONE ','TM123OHNO2 ', & - 'PXNCATECH ','METHTOL ','T123NCATEC ', & - 'C109CO ','MTNCATECH ','NON3ONE ', & - 'HEPT3ONE ','MXNCATECH ','DNMXYOL ', & - 'BZOBIPEROH ','IPBZOBPROH ','PNCATECH ', & - 'CO235C7 ','MXY1OHNO2 ','C77CO ', & - 'OTNCATECH ','METACETHO ','PETHTOL ', & - 'PETOH ','MXYLOL ','MPHGLYOX ', & - 'MGLOOC ','PXYL ','PXYLOL ', & - 'EBENZOL ','DNT124BOL ','TM124B ', & - 'TM124OL ','PBNZOHNO2 ','BPINANO3 ', & - 'T124NCATEC ','DNOETOL ','PBENZ ', & - 'OXYL ','DNPHEN ','PHCHOOA ', & - 'OCT3ONE ','PBENZOL ','PXY1OHNO2 ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_35 = (/ & - 'CO356C9 ','DNPETOL ','OET1OHNO2 ', & - 'INCNCHO ','MVKOOA ','ETHACET ', & - 'CRESOL ','OXYLOL ','ME2BUOLNO3 ', & - 'INANCO ','HOC6H4NO2 ','ENCATECH ', & - 'DNOXYOL ','METOH ','IPBNZOHNO2 ', & - 'DEC3ONE ','MNCATECH ','M2CO5C6 ', & - 'DIET35TOL ','OXY1OHNO2 ','CCOCOCOH ', & - 'IPBENZOL ','IBUTOLBNO3 ','PBZOBPEROH ', & - 'M3BU2OLNO3 ','OXYMUCCO ','OXYMUCNO3 ', & - 'DNIPBNZOL ','TM123B ','TM123BOL ', & - 'DNEBNZOL ','DIME35EB ','CO356C10 ', & - 'CO356C11 ','CO356C12 ','EGLYOOD ', & - 'DNPBNZOL ','C4ME2OHNO3 ','DNPXYOL ', & - 'DNMETOL ','DNT123BOL ','OETHTOL ', & - 'OETOH ','ISOPDO ','TM123OLO ', & - 'C6CO2OHOOH ','C5PAN19 ','NMBOAOOH ', & - 'TM123BPAN ','C9M3CO ','C57AOOH ', & - 'C3H7CHOOB ','MACRNBCO3H ','C5PAN17 ', & - 'C56OOH ','MXYMUCPAN ','MIBKHO4OOH ', & - 'HO3C4OOH ','C5DBCOCO3H ','IPGLOOB ', & - 'C47CO3H ','H2M5C65NO3 ','C137CO ', & - 'C6OTKETOOH ','HMACRO ','HMACROOH ', & - 'HIEB2OOH ','C8PAN1 ','DEMPHOH ', & - 'OXYLPAN ','C7ADCPAN ','MPRKBOOH ', & - 'C89PAN ','C47PAN ','C7DCCO3H ', & - 'IC7DCCO3H ','TM124MUO2H ','HC4CHO ', & - 'PXYLPAN ','RGDCO2H ','C5OHCO4OOH ', & - 'TMBPAN ','CHOC2CO2H ','HMVKAO ', & - 'NDEMPLOOH ','INAHPAN ','CO3H4CO3H ', & - 'C715CO2OOH ','C6PAN16 ','C526NO3 ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_36 = (/ & - 'ISOPBO ','C131CO ','MBOAOOH ', & - 'DMEPHOH ','PROPOLNO3 ','TM135OLO ', & - 'HCOCH2CO2H ','CO12C4CHO ','C7DDCPAN ', & - 'IEC2OOH ','C7M3CO ','M3BUTAL2O ', & - 'NCRESOOH ','ACRPAN ','C65O ', & - 'MBOBOOH ','C31PAN ','TM135MUPAN ', & - 'C62OOH ','C5PAN6 ','C534OOH ', & - 'C8M3CO ','TM135BZOL ','TM124MUNO3 ', & - 'C53OH2OOH ','C52OH3OOH ','HIEB1OOH ', & - 'ME3BU2OLO ','C4CHO2O ','C823CO ', & - 'PETLMUCNO3 ','C57NO3CO3H ','C527NO3 ', & - 'C715OOH ','C5PAN15 ','HMACO3H ', & - 'IPROPOLO2H ','C4MCNO3OOH ','NPETOLOOH ', & - 'MC3ODBCO3H ','C62O ','C10PAN1 ', & - 'DEMPHOLO ','C64O ','BZEMUCNO3 ', & - 'C527OOH ','C53OOH ','HEX3ONAOOH ', & - 'C51OH2OOH ','MC3CODBPAN ','C612OOH ', & - 'OXYMUCPAN ','C618PAN ','ACO3H ', & - 'NDMEPLOOH ','DMEPHOLO ','C2H5CHOOB ', & - 'M3CO25C6 ','TBUTOLOOH ','C4MCODBPAN ', & - 'BUTAL2O ','BUTAL2NO3 ','EMPHPAN ', & - 'TM123MUNO3 ','DM124O ','C9PAN1 ', & - 'C9PAN2 ','C6OH5OOH ','C515CHO ', & - 'PROL11MOOH ','C6PAN13 ','C6PAN15 ', & - 'C1211PAN ','MIBKBOOH ','C23O3MCPAN ', & - 'TM124MUPAN ','PBZN ','TM124BPAN ', & - 'NPBNZOLOOH ','NMXYOLOOH ','NOXYOLOOH ', & - 'METLMUCNO3 ','C732PAN ','HMPAN ', & - 'MALDALCO3H ','MACRNCO3H ','C721PAN ', & - 'BUTONENO3 ','NDNEBNZLO ','MACROOH ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_37 = (/ & - 'MPHCOME ','TM135BPRO ','M22C43O ', & - 'MACRNCO2H ','NORLIMO ','C65OOH ', & - 'CO2C4GLYOX ','C925O ','PXYMUCCO ', & - 'PXYMUCNO3 ','C62NO33CO ','BZBIPERO ', & - 'EMPHCOME ','CHOOCH2O ','PETLMUCCO ', & - 'CO23C65O ','NDNPXYOLO ','H3C25C5CHO ', & - 'C66NO35CO ','H1CO23CHO ','ETHENO3O ', & - 'IPBZMUCCO ','IPBZMUCNO3 ','C64NO335CO ', & - 'C515CO ','EBZMUCCO ','EBZMUCNO3 ', & - 'CH3COPAN ','MXYMUCCO ','MXYMUCNO3 ', & - 'DNPBNZLO ','NDNOETOLO ','NDNT123LO ', & - 'C4M2NO3ONE ','C87CO ','CO24C53OOH ', & - 'HEX2ONBO ','PHCOET ','MTBK ', & - 'NDNPHENO ','NDNMXYOLO ','TLOBIPEROH ', & - 'C118CO ','C133CO ','NDNCRESO ', & - 'C63NO32CO ','PECO ','TLEMUCCO ', & - 'TLEMUCNO3 ','NIPBFUO ','NDNT124LO ', & - 'HO3CO6C7 ','BUTALO ','CO24M3C5 ', & - 'MXYL1OOH ','NBUTOLBO ','COHM2CO2H ', & - 'NDNPETOLO ','CY6TRION ','C816O ', & - 'H13M3CO4C5 ','MMALNBPAN ','H2M2C65O ', & - 'CH3NO3 ','IPNNCATCO ','NEBFUO ', & - 'C736CO ','NOPINAO ','C51NO32CO ', & - 'TL4OHNO2O ','COHM2PAN ','NDNOXYOLO ', & - 'DETLBIPRO ','IPEBO ','EOX2EOLBO ', & - 'TM124NO2O ','NBZFUO ','C6COCHOPAN ', & - 'C53NO32CO ','C516O ','METLMUCCO ', & - 'DMPHCOME ','ISOPAOH ','DNIPBNZLO ', & - 'C6DIALO ','BZEMUCCO ','NDNMETOLO ', & - 'C52NO33CO ','C4ECO2O ','C128CO ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_38 = (/ & - 'PNNCATECO ','ME2BU2OLO ','NPBFUO ', & - 'C831O ','C143O ','PBZMUCCO ', & - 'PBZMUCNO3 ','IEPOXB ','SC4H9O ', & - 'C624O ','C630CO ','C4M3NO3ONE ', & - 'TM124MUCCO ','C23O3EHO ','OXYBIPENO3 ', & - 'C727PAN ','C7ADICARB ','TM135MUNO3 ', & - 'PHIC3NO3 ','PHIC3O ','C4ECO2OOH ', & - 'DM23BU2ENE ','C58ANO3 ','ME2BUOLOOH ', & - 'OETLBIPNO3 ','MALDIALOOH ','C813NO3 ', & - 'MACO3H ','HPC52OOH ','C4MCO2OH ', & - 'C7M6CO2OOH ','C7CO2M5OOH ','C6DICAROOH ', & - 'IECCHO ','DMKOHOOH ','PXYL1O ', & - 'DMEBMUNO3 ','C6DCRBBOOH ','C42OOH ', & - 'DETLMUNO3 ','EMPHO ','MACROHOOH ', & - 'C4MOHOCO3H ','DHPMVK ','CBUT2ENE ', & - 'TBUT2ENE ','C5O5OHCO3H ','C6M5CO2OOH ', & - 'MC6CO2OOH ','IEACHO ','CO2M3C4CHO ', & - 'EOX2EOL ','C6HOCOOOH ','DMPHO ', & - 'C4CODBCO3H ','CO2H3CO3H ','MMALNBCO2H ', & - 'NC4DCO2H ','CH2OOC ','C629OOH ', & - 'C6H5C2H4O2 ','T123CATECH ','H3NCO2CHO ', & - 'C54CO ','INDOOH ','TM123MUCCO ', & - 'TM124MUO3H ','VGLYOX ','PETOLO2 ', & - 'NC524O ','OXYOLO2 ','TMBO2 ', & - 'C113CO ','T124CATECH ','C520OOH ', & - 'CH2CHCH2O2 ','C143CO ','CO23C6 ', & - 'METCATECH ','MMALNACO2H ','C526OOH ', & - 'CONM2CO3H ','OETOLO2 ','HO3CO46C8 ', & - 'HEX2ONE ','OETCATECH ','PXYLO2 ', & - 'OXYCATECH ','MXYLO2 ','EOCOCHO ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_39 = (/ & - 'METOLO2 ','PXYCATECH ','C23C54CHO ', & - 'HMVKBOOH ','COHM2CO3H ','BCLKBOC ', & - 'BCALBOC ','TM124OLO2 ','OXYFUONE ', & - 'C4OCCOHNO3 ','TM123BO2 ','C93CO ', & - 'OXYLO2 ','C537OOH ','TM124BO2 ', & - 'NCO23CHO ','PETLBIPRO2 ','C78OOH ', & - 'CONM2PAN ','CO25C6 ','MXYOLO2 ', & - 'MMALNAPAN ','C3M3CHONO3 ','PXYOLO2 ', & - 'C6OTRIKET ','MIPKAOH ','HO2CO35C7 ', & - 'CRESO2 ','IPBENZOLO2 ','BUTALO2H ', & - 'NC4EDCO2H ','C4COMEOH ','PHGLYOX ', & - 'C103CO ','MCATECHOL ','C23O3CHO ', & - 'C65OH ','C123CO ','INDHCHO ', & - 'C59OOH ','PETCATECH ','INAOOH ', & - 'TMB2FUONE ','PBENZOLO2 ','MMALNACO3H ', & - 'MC6OTRIKET ','C513CO ','C532CO ', & - 'C109OH ','MXYCATECH ','C51OH2CO ', & - 'EBENZOLO2 ','MMALNBCO3H ','C144O ', & - 'C7EDCO ','C4CO2O ','TM123MUCO ', & - 'O ','TM135MUCO ','PETLMUCO ', & - 'C6CO4DB ','C52NO31O ','OXYMUCO ', & - 'NDNPBNZLO ','C4M3NO32O ','BZEMUCO ', & - 'PRONO3BO ','C7BDCO ','PNCATECO ', & - 'C6COHOCHO ','DMEBMUCO ','C3MCODBCO2 ', & - 'MIBK ','TM124MUCO ','PRONO3AO ', & - 'NC526O ','C42AOH ','EBZMUCO ', & - 'TLEMUCO ','MC3ODBCO2H ','C512O ', & - 'C4NO32M1O ','CO4DBC9 ','M2BK ', & - 'CO4DBC8 ','NDNIPBZLO ','IPNCATECO ', & - 'MPRBNO3O ','MXYOBPEROH ','DETLMUCO ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_40 = (/ & - 'HMVKNO3 ','HO13CO4C5 ','MBOBCO ', & - 'MOXYCOCHO ','PXYMUCO ','OETLMUCO ', & - 'CYC613DION ','MVKOHAOH ','DIEK ', & - 'METLMUCO ','C520O ','CHOC3DIOL ', & - 'C1012O ','MXYMUCO ','C629O ', & - 'C61CO ','BCKSOZ ','C535OOH ', & - 'ETHFORM ','NC524OOH ','C524OOH ', & - 'TM123OXMUC ','MIBKOHAOOH ','C7M2CO5OOH ', & - 'INB1OOH ','CHOOCHO ','TM123OLO2 ', & - 'INCCO ','C816CO ','GLYOOC ', & - 'NDMEPHOLO2 ','DMEPHOLO2 ','C828CHO ', & - 'NISOPO2 ','INB1CO ','NBUTDAO2 ', & - 'CH3OCH2O2 ','C131CO2H ','C615CO ', & - 'MXYLAL ','NTM135OLO2 ','C624CO ', & - 'OXYLAL ','HOCOC4DIAL ','TMBCHO ', & - 'BCSOZ ','MGLYOOA ','TM135OLO2 ', & - 'C6H5CH2CHO ','DEMPHOLO2 ','C3H8 ', & - 'CH3C2H2O2 ','CYHXOLACO ','C4NO3COOOH ', & - 'TM124BCHO ','DIEKAOH ','PXYLAL ', & - 'NBUTDBO2 ','NDEMPHOLO2 ','C4CONO3OOH ', & - 'TM123BCHO ','CO3C5CHO ','NTM123OLO2 ', & - 'C7ADCCO2H ','NOETOLO2 ','NOETOLO ', & - 'HM23C4O2 ','C717O2 ','BZFUO2 ', & - 'BUTDAO2 ','C4ME2NO3O2 ','CONM2CO2H ', & - 'C6PRCO4DB ','C75O2 ','PEBQO2 ', & - 'ACETC2H4O2 ','NPXYFUO2 ','C111O2 ', & - 'NMXYQO2 ','NMETLQO2 ','C7ECO4DB ', & - 'HO14CO2C4 ','HO2CO4CHO ','IPCATECHOL ', & - 'NPTLQO2 ','C1011O2 ','NMEBFUO2 ', & - 'H3M3C6O2 ','CYHEXONE ','HO3C116O2 ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_41 = (/ & - 'HO3C126O2 ','NTLFUO2 ','C4MALOHOOH ', & - 'C812O2 ','PXYFUO2 ','PBFUO2 ', & - 'OXYQO2 ','C1211O2 ','PTLQO2 ', & - 'INDO ','PCATECHOL ','C8M2CO6OOH ', & - 'C823O2 ','C121O2 ','MXYFUO2 ', & - 'C619O2 ','C536OOH ','BIACETOOH ', & - 'C6CO4MEDB ','C914O2 ','PPRBQO2 ', & - 'MALDIALCO2 ','NEBFUO2 ','MXYQO2 ', & - 'C718O2 ','ME3CO2BUOL ','C6CYTONO2 ', & - 'HO2C6O2 ','NC72O2 ','C9DCO2 ', & - 'C4ME2OHO2 ','C830O2 ','C7DDCCO2 ', & - 'C44O2 ','TMB1FUO2 ','C5OCO3M ', & - 'EBFUO2 ','NBZFUO2 ','C6CO4M2DB ', & - 'C710O2 ','HO3C106O2 ','C6ETCO4DB ', & - 'NOPINBO2 ','HCOC5 ','MPRKAOH ', & - 'C1014CO ','C1014O ','NIPRBQO2 ', & - 'NMXYFUO2 ','PBZQO2 ','C97O2 ', & - 'C8CO4DB ','C732O2 ','NAPINBO ', & - 'NC101O2 ','DMMALYO2 ','H2M2CO5C6 ', & - 'C14O3ECHO ','HO3C86O2 ','C514O2 ', & - 'HO3C96O2 ','TLFUO2 ','PETLQO2 ', & - 'PXYBIPERO ','MBOACO ','C6CO23HO5 ', & - 'CO2HO3C6 ','HO1C4O2 ','HO1CO24C6 ', & - 'NC71O2 ','C921O2 ','IPBFUO2 ', & - 'NMVK ','C1013O2 ','C4MCODBCO2 ', & - 'C101O2 ','C42NO33O ','C91O2 ', & - 'PXYQO2 ','OETLQO2 ','TM124QO2 ', & - 'NPBFUO2 ','C14O3PCHO ','NIPBFUO2 ', & - 'C14O3IPCHO ','C6H5CH2O2 ','HO2CO5C7 ', & - 'HO2M2C5O2 ','M2PECO ','CO24M3C5OH ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_42 = (/ & - 'CO3C85O2 ','METLQO2 ','C7CO4DB ', & - 'CYC6DIONO2 ','CO3C75O2 ','PHENO2 ', & - 'C6IPRCO4DB ','MEBFUO2 ','C137O2 ', & - 'DE35TO2 ','NMETOLO2 ','CO2C54CHO ', & - 'TOL1O ','IPBZBIPRO2 ','IPBZBIPRO ', & - 'NMXYOLO2 ','ETOLO2 ','METLBIPRO2 ', & - 'NPBNZOLO2 ','C7DCCO2H ','C527O2 ', & - 'PETLBIPRO ','TM123BPRO2 ','PBZBIPERO2 ', & - 'PBZBIPERO ','NBPINBO2 ','PHC3O2 ', & - 'NPXYOLO2 ','HCOCO ','EMPHCOMO2 ', & - 'EBZBIPERO2 ','EBZBIPERO ','NEBNZOLO2 ', & - 'MPHCOMEO2 ','NIPBNZOLO2 ','IC7DCCO2H ', & - 'DMEBIPRO2 ','DMEBIPRO ','DM35EBO2 ', & - 'NOXYOLO2 ','C5DBCOCO2H ','H2M4CO5C6 ', & - 'TLBIPERO2 ','TLBIPERO ','NPETOLO2 ', & - 'METLBIPRO ','NCRESO2 ','NTM124OLO2 ', & - 'C3M2COCO2H ','CATECHOL ','ECATECHOL ', & - 'C7BDICARB ','OETLPOXMUC ','OXYEPOXMUC ', & - 'INCNO3 ','MTBKO2 ','HMACRO2 ', & - 'C922O2 ','C925O2 ','NC826O2 ', & - 'C928O2 ','C63NO32O ','HEX3ONE ', & - 'NBCKO2 ','C810O2 ','C621O2 ', & - 'IBUTALBO2 ','C730O2 ','C519CHO ', & - 'LIMALO2 ','M3C4CHO ','NOPINAO2 ', & - 'C7DDCO2 ','HM33C4O2 ','C1310O2 ', & - 'M22C3CHO ','CO3C54CHO ','C811O2 ', & - 'HM22C4O2 ','C7CO3OHO2 ','HO13C3CHO ', & - 'CO25C6CHO ','LIMAO2 ','C525O2 ', & - 'NC51O2 ','NSTYRENO2 ','LIMBO2 ', & - 'MIPK ','HO2MC5O2 ','HO1C6O2 ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_43 = (/ & - 'C711O2 ','LMKAO2 ','H2MC5O2 ', & - 'C516O2 ','C54CHO ','NLIMALO2 ', & - 'M2C43CHO ','C51NO32O ','CO2M33CHO ', & - 'C122O2 ','C92O2 ','C1213O2 ', & - 'BCALO2 ','C4CHOBO2 ','C52O2 ', & - 'C1313O2 ','C4M3NO31O ','C4MCONO3O2 ', & - 'M2BKBO2 ','C1312O2 ','NBCO2 ', & - 'MIBKHO4CHO ','HO2C5O2 ','M23C43O2 ', & - 'NC623O2 ','C23O3ECHO ','C5CONO34O ', & - 'BCCO2 ','C613O2 ','EOX2ETCHO ', & - 'C1311O2 ','C1215O2 ','NPHENO2 ', & - 'C6CONO34O ','NC102O2 ','CO25C7 ', & - 'NORLIMO2 ','C731O2 ','MC4CONO3O ', & - 'C62NO33O ','C23O3CCHO ','C71O2 ', & - 'C616O ','C23O3MCHO ','HOBUT2CHO ', & - 'C112O2 ','HO3CO6C8 ','C5CO243OH ', & - 'C102O2 ','BCKAO2 ','APINAO2 ', & - 'C53NO32O ','HOIBUTCHO ','M33C3CHO ', & - 'C66NO35O ','CO2HOC61O2 ','LMKBO2 ', & - 'NC1313O2 ','MACRNB ','C4MCO2O ', & - 'C4MCO2OOH ','HO1C5O2 ','CO2N3CHO ', & - 'C43NO34O ','H13C43CHO ','APINBO2 ', & - 'NDMMALYO2 ','HO24C4CHO ','C510O2 ', & - 'NLIMO2 ','C76O2 ','BU1ENO3O ', & - 'NAPINAO2 ','EIPKAO2 ','NTMB1FUO2 ', & - 'H3M3C5CHO ','C88CHO ','C611O2 ', & - 'NC728O2 ','C728O2 ','C1214O2 ', & - 'CO1C6O2 ','C7MCO3OHO2 ','CY6TRIONO2 ', & - 'C108O2 ','C52NO33O ','C133O ', & - 'COO2C3CHO ','MEKCOH ','CO1M22CHO ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_44 = (/ & - 'HO3C6O2 ','C822O2 ','BCBO2 ', & - 'C5NO3CO4O2 ','C4CO2OOH ','BCKBO2 ', & - 'HO1MC5O2 ','C7CO4EDB ','NLMKAO2 ', & - 'C4M2NO32O ','BCAO2 ','MOXY2CHO ', & - 'C8CO3OHO2 ','C623O2 ','C7ADCO2 ', & - 'C5124COO2 ','C81O2 ','MPRK ', & - 'MIBKCOOHO2 ','C530O2 ','C917O2 ', & - 'NOPINCO2 ','IPRBQO2 ','CO235C6O2 ', & - 'C826O2 ','HM2C43CHO ','STYRENO2 ', & - 'NBCALO2 ','H1MC5O2 ','C151O2 ', & - 'C42CHO ','HOC4CHOO2 ','MACROH ', & - 'LIMCO2 ','IBUTDIAL ','TM135OXMUC ', & - 'IPCATEC1O2 ','INDHPCO3 ','NPBNZ1O2 ', & - 'DM124O2 ','PXY1O2 ','PXCATEC1O2 ', & - 'MXYBIPERO2 ','MXYBIPERO ','PXYL1O2 ', & - 'NOXYOL1O2 ','T124CAT1O2 ','MET1O2 ', & - 'TM124O2 ','TLEPOXMUC ','NMXYOL1O2 ', & - 'PXYOLO ','C6MOHCOCO3 ','C3MCOCO2H ', & - 'CHOC4OHO2 ','PBENZO2 ','DETLPOXMUC ', & - 'DMEBPOXMUC ','C517O2 ','EBENZO2 ', & - 'NIPBNZ1O2 ','NCRES1O2 ','T123CAT1O2 ', & - 'MC3CODBCO2 ','NPXYQO2 ','C5DBCO2CO3 ', & - 'TM124OXMUC ','OXYBIPERO2 ','C7DCCO2 ', & - 'PHCOETO2 ','PHCOCOCO2 ','EBZPOXMUC ', & - 'OXCATEC1O2 ','NT123L1O2 ','MTCATEC1O2 ', & - 'NEBNZ1O2 ','TM123O2 ','MXYL1O2 ', & - 'NPXYOL1O2 ','NOETOL1O2 ','DMPHO2 ', & - 'C6145COO2 ','C116O2 ','NT124L1O2 ', & - 'EBENZOLO ','C7OHCO2CO3 ','C6DCRBBOH ', & - 'TOL1OHNO2 ','MCATEC1O2 ','EMPHO2 ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_45 = (/ & - 'EMPHCO3 ','EMPOHNO2O2 ','C43OHCOCHO ', & - 'OTCATEC1O2 ','TM135BPRO2 ','MXYEPOXMUC ', & - 'ECATEC1O2 ','HM22C3O2 ','C622O2 ', & - 'CHOOCH2O2 ','NMETOL1O2 ','C6DCARBBO ', & - 'IPBENZO2 ','PTCATEC1O2 ','PCATEC1O2 ', & - 'INB1NO3 ','NPHEN1O2 ','PHIC3O2 ', & - 'PHCOMEO2 ','DMPHCOMO2 ','C5CO14CO2 ', & - 'NPETOL1O2 ','MXCATEC1O2 ','OETLBIPRO2 ', & - 'MXY1O2 ','NPEBQO2 ','C88O2 ', & - 'C8BCO2 ','CATEC1O2 ','METLPOXMUC ', & - 'EGLYOOB ','OET1O2 ','PXYEPOXMUC ', & - 'MGLOOB ','PET1O2 ','IC7DCCO2 ', & - 'C45O2 ','C126O2 ','C720O2 ', & - 'BPINCO2 ','APINCO2 ','C719O2 ', & - 'IPBZPOXMUC ','PBZPOXMUC ','CO24C6O2 ', & - 'ISOP34NO3 ','NBPINAO2 ','C824O2 ', & - 'M2HEXBO2 ','PXYLCO3 ','TL4OHNO2O2 ', & - 'C7CO2DBCO3 ','HO4CO7C9 ','C614CO ', & - 'C612O2 ','C62O2 ','ISOPAOOH ', & - 'MPRBNO3CHO ','HO1CO24C5 ','H2M2C4CHO ', & - 'BUTDBO2 ','MPRANO3O2 ','ISOPCOOH ', & - 'C4NO3CHO ','C135O2 ','C519O2 ', & - 'NC730O2 ','C6CO34O2 ','C919O2 ', & - 'C733O2 ','M3PECO2 ','HO5CO8C10 ', & - 'HIEB2O2 ','PINALO2 ','C3MDIALOOH ', & - 'C53O2 ','ETHACETO2 ','C67O2 ', & - 'C531O2 ','C736O2 ','C87O2 ', & - 'METLMUCCO3 ','TM124BPRO2 ','CO234C65O2 ', & - 'LMLKBO2 ','C521O2 ','C930O2 ', & - 'C74O2 ','TM124BCO3 ','C4M2NO33O2 ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_46 = (/ & - 'IC7DCO2 ','C513O2 ','C4NO32M2O2 ', & - 'LIMALBO2 ','LMLKAO2 ','BPINBO2 ', & - 'C630O2 ','LIMALAO2 ','C5CO234O2 ', & - 'C818O2 ','NC91CHO ','OETOLO ', & - 'NOETLQO2 ','C5MEJCO3 ','C65NO36CHO ', & - 'C4CONO3CO ','C813O2 ','C6COCHOO2 ', & - 'C41O2 ','C3MNO3CHO ','MIBKAOHBO2 ', & - 'C118O2 ','NBZQO2 ','HO7CO10C12 ', & - 'C7DCO2 ','C916O2 ','DETLBIPRO2 ', & - 'C7CODBCO3 ','HOCO3C54O2 ','MIBK3COO2 ', & - 'ETHENO3O2 ','C128O2 ','C918O2 ', & - 'C52NO31CO ','C5CO23CHO ','C129O2 ', & - 'OETLBIPRO ','C7DDCCO2H ','HO6CO9C11 ', & - 'C534O2 ','TMBCO3 ','MXYOHNO2O2 ', & - 'C141CO ','EMPOHNO2O ','BPINAO2 ', & - 'C918CHO ','C6H5CH2CO3 ','C6O4KETO2 ', & - 'C106O2 ','NC71O ','C5CO23O2 ', & - 'T124NNCTO2 ','T123NCATO2 ','DNIPBNZLO2 ', & - 'NNCATECO2 ','C831O2 ','C729O2 ', & - 'EPXMEDLCO3 ','C6134CO2OH ','MXNCATECO2 ', & - 'C107O2 ','C4COMOHCO3 ','C5DBECO3 ', & - 'DNPXYOLO2 ','DNPBNZLO2 ','PROL1MCO3 ', & - 'HO24C4CO3 ','CO2N3CO3 ','H13CO2CO3 ', & - 'OTNNCATCO2 ','HOACETETO2 ','T123NNCTO2 ', & - 'NOAOO ','CO2OH3MCO3 ','C3M3OH2CO3 ', & - 'C1212O2 ','MNCATECO2 ','C8CO2OHCO3 ', & - 'ETOMEO2 ','NC61CO3 ','C6CO2OHCO3 ', & - 'CHOOMCO3 ','HEX3ONCOH ','C721CHO ', & - 'PXNCATECO2 ','C734O2 ','C45IC5CHO ', & - 'INDHCO3 ','HPC52CO3 ','HO13C3CO3 ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_47 = (/ & - 'ACETETCHO ','DNPETOLO2 ','CO45C5CHO ', & - 'C827O2 ','C79O2 ','C735O2 ', & - 'PNNCATECO2 ','HO8C9O2 ','HO1CO3CHO ', & - 'NOPINDO2 ','C5M2OHOCO3 ','C628O2 ', & - 'H13C43CO3 ','CHOC4O2 ','DNMETOLO2 ', & - 'ENNCATECO2 ','NC4OO ','CO2C5OH ', & - 'C152O2 ','HMGLYOO ','H3M3C5O2 ', & - 'MTNCATECO2 ','C7CO2OHCO3 ','HO7C8O2 ', & - 'M3BU3ECO3 ','C58NO3 ','C85O2 ', & - 'C126OO ','HC3CCO3 ','C42CO3 ', & - 'HO2C4CHO ','DNEBNZLO2 ','C3DIOLO2 ', & - 'BCALOO ','MNNCATECO2 ','NC91CO3 ', & - 'C4CO2DBCO3 ','CHOC3COO2 ','HC4CO3 ', & - 'HO6C7O2 ','DNPHENO2 ','PETLPOXMUC ', & - 'NCATECO2 ','C73O2 ','HO3C3CO3 ', & - 'DNT124LO2 ','C3EDIALO2 ','CO123C5CHO ', & - 'C67CHO ','PNCATECO2 ','C4OHCO3 ', & - 'NC3OO ','HO5C5CO3 ','C3NO3COO2 ', & - 'DNT123LO2 ','MVKOO ','PTNCATECO2 ', & - 'C85CO3 ','DNOETOLO2 ','C86O2 ', & - 'OXNCATECO2 ','PXNNCATCO2 ','OXNNCATCO2 ', & - 'CH3COCO3H ','C721O2 ','IPNCATECO2 ', & - 'PTNNCATCO2 ','DNOXYOLO2 ','C7MJPCO3 ', & - 'HO2CO5C6 ','C918CO3 ','NOPINOO ', & - 'MXNNCATCO2 ','ENCATECO2 ','DNMXYOLO2 ', & - 'DNCRESO2 ','IPNNCATCO2 ','C5CO2OHCO3 ', & - 'C713O2 ','HM2C43O2 ','MC7CO2O2 ', & - 'MTNNCATCO2 ','HM33C3CHO ','OTNCATECO2 ', & - 'C825O2 ','NC4OHCO3 ','T124NCATO2 ', & - 'PEN2ONE1O2 ','C139O2 ','C2H5MECOO ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_48 = (/ & - 'C526O2 ','TM124OLO ','NTM124QO2 ', & - 'C7MOHCOCO3 ','DMKCOOH ','OXYOLO ', & - 'NOXYQO2 ','MC4CODBCO2 ','C4DBM2CO3 ', & - 'MPAN ','NC5MDCO2H ','CPENT2ENE ', & - 'CH3CHOOB ','M2BKAO2 ','DETLMUCO2 ', & - 'HEX3ONCO2 ','NC526O2 ','MXYLCO3 ', & - 'HPC52O2 ','C716O2 ','MVKOHBO2 ', & - 'C624O2 ','C625O2 ','C5CONO34O2 ', & - 'MC4CONO3O2 ','C615O2 ','MC5CO2OHO2 ', & - 'HO13C4O2 ','C94O2 ','C616O2 ', & - 'PRONO3AO2 ','CO23C4NO3 ','COCCOH2CO2 ', & - 'C6DIALO2 ','C124O2 ','HEX3ONDO2 ', & - 'C68O2 ','MALDIALO2 ','C56O2 ', & - 'CO1H63O2 ','C114O2 ','H1C23C4CHO ', & - 'C143O2 ','NMBOBO2 ','C6HO1CO3O2 ', & - 'H13CO2C3 ','HEX3ONBO2 ','EOX2EOLAO2 ', & - 'C84O2 ','PRONO3BO2 ','C727O2 ', & - 'BUTDCO2 ','HC3CCHO ','HO13C5O2 ', & - 'TM123BCO3 ','DM123O2 ','PBZMUCO2 ', & - 'C57NO3 ','C7ADCCO2 ','C3ME3CO3 ', & - 'NPPRBQO2 ','ACRO2 ','HYPERACET ', & - 'C715O2 ','C1010O2 ','BUT2OLO ', & - 'C42NO33O2 ','PBZMUCO ','C104O2 ', & - 'HEX2ONCO2 ','HO2CO4C5 ','HO1CO34C5 ', & - 'IPBZMUCO ','C142O2 ','STYRENE ', & - 'BZEPOXMUC ','PHENOL ','MALDALCO2H ', & - 'BZBIPERO2 ','DMEBMUCO2 ','C6CO243OH ', & - 'MTCATEC1O ','ECOCO2H ','ECO3CO3 ', & - 'PRNO3CO3 ','CONM2CHO ','TM124O ', & - 'MXY1O ','C515CO3 ','C620O2 ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_49 = (/ & - 'IBUTOLCO2 ','HOIBUTCO3 ','OTCATEC1O ', & - 'HC3CO3 ','NDNOXYOLO2 ','NTMB2FUO2 ', & - 'HO8C9CO3 ','C627O2 ','H3M2C4CO3 ', & - 'HCOCH2OOH ','C105O2 ','OXYFUO2 ', & - 'EMALANHYO2 ','C62CO3 ','NDNIPBZLO2 ', & - 'IPMALNHYO2 ','C65NO36CO3 ','C3DBCO3 ', & - 'C125O2 ','HO5C6CO3 ','C1013CO3 ', & - 'C615CO2O2 ','C3MNO3CO3 ','NDNMETOLO2 ', & - 'C83O2 ','NC4CO3 ','MET1O ', & - 'OET1O ','C511CO3 ','NOXYFUO2 ', & - 'C6EO2OHCO3 ','C1012O2 ','HO6C7CO3 ', & - 'IPCATEC1O ','C5EDBCO3 ','CO25C6O2 ', & - 'C515O2 ','MXYOLO ','C5CO3OH ', & - 'HO7C8CO3 ','CHOC4CO3 ','MPRBNO3CO3 ', & - 'EBENZO ','ECATEC1O ','NDNPETOLO2 ', & - 'C828CO3 ','IPBENZO ','NDNCRESO2 ', & - 'C617O2 ','INCNCO3 ','C95O2 ', & - 'C4CODIAL ','NDNOETOLO2 ','NDNEBNZLO2 ', & - 'H1C23C4O2 ','PCATEC1O ','NDNPHENO2 ', & - 'C23C54CO3 ','M22C3CO3 ','C4NO3CO3 ', & - 'OXCATEC1O ','ACCOMECO3 ','ME2BU2OLO2 ', & - 'ME2BUT2ENE ','TPENT2ENE ','PE2ENEAO2 ', & - 'COO2C4O2 ','OXY1O ','PBENZO ', & - 'TMB2FUO2 ','MC6OTKETO2 ','PMALANHYO2 ', & - 'C726CO5O2 ','C88CO3 ','C718CO3 ', & - 'C821O2 ','MXCATEC1O ','CRESO ', & - 'C5CO2DBCO3 ','C5134CO2OH ','C5CO14OH ', & - 'APINENE ','CO235C6CHO ','TM123O ', & - 'PXY1O ','C721CO3 ','C722O2 ', & - 'NDNMXYOLO2 ','PTCATEC1O ','HM22C3CO3 ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_50 = (/ & - 'HM22CHO ','C61CO3 ','C828O2 ', & - 'PET1O ','TMB1FUONE ','NDNPXYOLO2 ', & - 'NC4MDCO2H ','ME3BUT1ENE ','PXCATEC1O ', & - 'C6TRONOHO2 ','NDNPBNZLO2 ','MEPROPENE ', & - 'C5DIALO2 ','MCATEC1O ','M3C4CO3 ', & - 'NC3CO3 ','CO3C54CO3 ','INANCO3 ', & - 'INB1HPCO3 ','H1C23C4CO3 ','HO4C5CO3 ', & - 'C43NO3CO3 ','HM2C43CO3 ','MIPKBOH ', & - 'COO2C4CO3 ','C141OO ','HEX1ENE ', & - 'CH2OOB ','PXYBIPERO2 ','NMGLYOX ', & - 'CATEC1O ','C115O2 ','PETOLO ', & - 'C7EDCCO ','NPETLQO2 ','C8OHCO2CO3 ', & - 'H3M3C4CHO ','C819O2 ','IECCO3 ', & - 'HOC3H6CHO ','BCSOZO2 ','BCLKCO2 ', & - 'CHOCOMOXO2 ','CH3CCH3OO ','C89O2 ', & - 'C65O2 ','EPXM2C4DAL ','IEACO3 ', & - 'C55O2 ','MCOCOMOXO2 ','ACLOO ', & - 'C5COCHOO2 ','C4OH2CO3 ','MBOBO2 ', & - 'MBO ','NC41OO ','CHOMOHCO3 ', & - 'C5MCO2OHO2 ','TBUTCHO ','C511O2 ', & - 'C64O2 ','ME3BUOLO2 ','C109O2 ', & - 'HO12CO3C4 ','HIEB1O2 ','CO25C73O2 ', & - 'C924O2 ','TM135MUCO2 ','EPXMALKT ', & - 'C5PACALD2 ','M2PECO2 ','C134O2 ', & - 'C72O2 ','C43NO34O2 ','OETLMUCO2 ', & - 'EPXMEC4DAL ','H2M2C65O2 ','MVKOHAO2 ', & - 'BU1ENO3O2 ','C98O2 ','HEX2ONAO2 ', & - 'C6OH5O2 ','HEX3ONAO2 ','CO25C74O2 ', & - 'NMBOAO2 ','M3HEXAO2 ','C66NO35O2 ', & - 'GLYOOA ','HNMVKO2 ','C6NO3CO5O2 ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_51 = (/ & - 'OXYLCO3 ','OXYL1O2 ','C51NO32O2 ', & - 'MIBKBO2 ','EOCOCH2O2 ','MBOAO2 ', & - 'C614O2 ','PE1ENEAO2 ','NC524O2 ', & - 'BPINENE ','ME2BUT1ENE ','C33CO ', & - 'PHENO ','CHEX2ENE ','LIMONENE ', & - 'THEX2ENE ','C64OH5O2 ','C65OH4O2 ', & - 'ETOC2O2 ','EOX2EOLBO2 ','EOX2MECO3 ', & - 'ETHFORMO2 ','ACETMECO3 ','METHACETO2 ', & - 'ISOPBNO3 ','DIETETO2 ','C537O2 ', & - 'CO23C5 ','PBENZOLO ','C8CO2DBCO3 ', & - 'TLFUONOO ','C6H5CO3 ','HO3C5CO3 ', & - 'C87CO3 ','C520O2 ','TLEMUCCO3 ', & - 'C3COCCO3 ','EPXEKTCO3 ','H2M2C4CO3 ', & - 'EPXALMKT ','C5CO34CO3 ','NMETOL1O ', & - 'PETLMUCCO3 ','BUT2CO3 ','IPBZMUCCO3 ', & - 'HMVKBCO3 ','PBFUONE ','C823CO3 ', & - 'T123CAT1O ','PROPALO2 ','EBZMUCCO3 ', & - 'CO2M3C4CO3 ','NDNT124LO2 ','C820O2 ', & - 'NBUTOLAO2 ','C61O2 ','ME2BUOLO2 ', & - 'CHOC4DOLO2 ','BZEMUCCO3 ','IPBFUONE ', & - 'CO14O3CHO ','C1211CO3 ','C617CO3 ', & - 'OETLMUCCO3 ','NDNT123LO2 ','DETLMUCO3 ', & - 'INAHCO3 ','INAHPCO3 ','CO25C6CO3 ', & - 'H3C25C6CO3 ','BUTALAO2 ','HOBUT2CO3 ', & - 'NPETOL1O ','C512CO3 ','H2M3C4CO3 ', & - 'C6H5O2 ','C715CO2O2 ','NAOO ', & - 'C6OTKETO2 ','T124CAT1O ','NMXYOL1O ', & - 'C1014O2 ','C46CO3 ','C7BDCO2 ', & - 'C7M15CO2O2 ','NPXYOL1O ','NC2OO ', & - 'BCKBOO ','C137CO3 ','EPXMKTCO3 ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_52 = (/ & - 'C732CO3 ','NOETOL1O ','C815CO2O2 ', & - 'EPXMDLCO3 ','DMEBMUCO3 ','COO2C3CO3 ', & - 'MOCOCH2O2 ','IC4CHOAO2 ','C4CHOAO2 ', & - 'NOXYOL1O ','BCKAOO ','PXYMUCCO3 ', & - 'CH3COCO2H ','C5CODBCO2H ','C4OCCOHCO2 ', & - 'M3PEAO2 ','C69O2 ','MIBKHO4O2 ', & - 'PXYMUCO2 ','C4M3NO31O2 ','EBZMUCO2 ', & - 'C63NO32O2 ','C7EDCO2 ','C610O2 ', & - 'BUTALO2 ','DMKOHO2 ','OXYMUCO2 ', & - 'C32OH13CO ','C123O2 ','C6H13CHO ', & - 'C57AO2 ','C103O2 ','C93O2 ', & - 'C52NO33O2 ','C113O2 ','C82O2 ', & - 'C3COCCHO ','MXYMUCO2 ','C6CONO34O2 ', & - 'BZEMUCO2 ','EPXC4DIAL ','H2M5C65O2 ', & - 'C4M2NO32O2 ','CO3C4NO3O2 ','METLMUCO2 ', & - 'TM124NO2O2 ','PETLMUCO2 ','CO3H4CHO ', & - 'EPXMC4DIAL ','HO1CO3C4O2 ','C4DBMECO3 ', & - 'C42O2 ','M2PEAO2 ','C145O2 ', & - 'C63O2 ','EIPK ','HO2C43CHO ', & - 'C116CO3 ','INB1NBCO3 ','EPXM2DLCO3 ', & - 'MEK2OO ','ACCOCOMEO2 ','IPBENZOLO ', & - 'C8DBCO2CO3 ','C144O2 ','BCALCO2 ', & - 'CH2OOF ','C117O2 ','DHPMACR ', & - 'CO356OCO2 ','C533O2 ','C517CO3 ', & - 'INB1NACO3 ','BCALAO2 ','IC4H9O2 ', & - 'BCALBO2 ','BCBOCOO ','C536O2 ', & - 'C312COCO3 ','C5H11CO3 ','BCLKBO2 ', & - 'C146O2 ','IBUTALCO2 ','C127O2 ', & - 'CY6DIONO2 ','HEPTO2 ','PE2ENEBO2 ', & - 'CHOC2H4O2 ','C4ECO2O2 ','C23O3MCO3 ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_53 = (/ & - 'M33C3CO3 ','INANCOCO3 ','C3MCODBCO3 ', & - 'MVKO2 ','C61CHO ','HMGLOO ', & - 'C4NO32M1O2 ','HO24C5O2 ','C629O2 ', & - 'MIBKAOHAO2 ','C816O2 ','C53NO32O2 ', & - 'MACROHO2 ','HEX2ONBO2 ','C54O2 ', & - 'ISOPDNO3 ','CO24C63O2 ','NT124L1O ', & - 'C915O2 ','NIPBNZ1O ','NPBNZ1O ', & - 'C5O45OHCO3 ','MEBFUONE ','ME3BU3ECHO ', & - 'COHM2CO3 ','HCOCO2H ','NEBNZ1O ', & - 'NCRES1O ','METOLO ','H2M3CO5C6 ', & - 'CO24C5 ','C712O2 ','TM124MUCO2 ', & - 'MNO3COC4O2 ','C5PACALD1 ','C5124COCO3 ', & - 'TM135MUCO3 ','C23O3CCO3 ','MPRBNO3O2 ', & - 'NT123L1O ','C714O2 ','C522CO3 ', & - 'C9M2CO6O2 ','CYHEXOLAO2 ','C62CHO ', & - 'HMACO3 ','C5NO3COAO2 ','C618CO3 ', & - 'ACROO ','C929O2 ','TLEMUCO2 ', & - 'EPXDLCO3 ','C3DIALO2 ','LMKBOO ', & - 'C133O2 ','C47CO3 ','C6CO3OH5O2 ', & - 'BZFUONOO ','PBZMUCCO3 ','C920CO3 ', & - 'C31CO3 ','M3F ','OXYMUCCO3 ', & - 'HM22C3CHO ','C5DICARBO2 ','CO2M33CO3 ', & - 'M2BUOL2O2 ','NC4H9CHOO ','C827CO3 ', & - 'C4ALDB ','MIPKAO2 ','C626CHO ', & - 'LIMBOO ','HM33C3O2 ','CHOPRNO3 ', & - 'EPXKTMCO3 ','C923CO3 ','HO2C4CO3 ', & - 'C817CO3 ','C6H13CO3 ','H13CO2CHO ', & - 'DIEKAO2 ','CO1M22CO3 ','C615CO3 ', & - 'C729CO3 ','C5OH2CO4O2 ','C23O3MO2 ', & - 'MPRKAO2 ','NPHEN1O ','TBUTCO3 ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_54 = (/ & - 'C4M2ALOHO2 ','A2PANOO ','C830CO3 ', & - 'C4MOHOCO3 ','CO234C6 ','CO3C5CO3 ', & - 'H3C2C4CO3 ','IPRCHOO ','BCKSZOO ', & - 'NBUTOLBO2 ','CO23C65O2 ','HO3C4CHO ', & - 'HO5C5CHO ','H3M3C4CO3 ','CHOCOCH2O2 ', & - 'PECO2 ','C6DICARBO2 ','M3HEXBO2 ', & - 'C65NO36O2 ','EIPKBO2 ','C4M3NO32O2 ', & - 'C6DIAL ','C6DIALOH ','C62NO33O2 ', & - 'HO2CO4C5O2 ','M23C4O2 ','MC6CO2O2 ', & - 'C7ADCCO3 ','C4COMOH3O2 ','H13M3C5O2 ', & - 'C816CO3 ','MXYMUCCO3 ','C6M5CO2O2 ', & - 'C58O2 ','MXYFUONE ','EBFUONE ', & - 'C826CO3O2 ','C920O2 ','C7CO2M5O2 ', & - 'C512O2 ','IPEBO2 ','CO235C5CHO ', & - 'C77O2 ','MMALANHYO2 ','C7M6CO2O2 ', & - 'MACROO ','PE4E2CO ','MBOOO ', & - 'NOA ','C89CO3 ','C66O2 ', & - 'APINBOO ','C4CO2O2 ','NORPINAL ', & - 'IBUDIALCO3 ','MALDIALCO3 ','C7DCCO3 ', & - 'PGLYOX ','PHCHOO ','C23O3EO2 ', & - 'C131CO3 ','C4NO3COO2 ','C4CONO3O2 ', & - 'CH3CHOHCO3 ','NAPINBO2 ','C6COCHOCO3 ', & - 'PXYFUONE ','IPBZMUCO2 ','MECOACETO2 ', & - 'IC7DCCO3 ','IPRGLYOX ','OCCOHCO2 ', & - 'EPXEALKT ','HO2C54CO3 ','C7M2CO5O2 ', & - 'MACRO2 ','TM123BPRO ','BIACET ', & - 'CO24C4CHO ','C131O2 ','C2H5CHOO ', & - 'HEXAO2 ','CH3CHOO ','C4H9CO3 ', & - 'INANO3 ','C7DDCCO3 ','C4MCO2O2 ', & - 'TM124MUCO3 ','HOIPRCO3 ','OXYBIPERO ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_55 = (/ & - 'BZFUONE ','TLFUONE ','C822CO3 ', & - 'ACO3 ','C518CO3 ','C3H7CHOO ', & - 'C1H4C5CO3 ','HMVKANO3 ','PROL11MO2 ', & - 'C618O2 ','C3M3OH2CHO ','HOC3H6CO3 ', & - 'CO2C3OO ','BENZAL ','C6H5O ', & - 'CO3H4CO3 ','C78O2 ','MC4CODBCO3 ', & - 'CO235C6CO3 ','C141CO2H ','TM123MUCO2 ', & - 'C52NO31O2 ','MEKAOH ','M2PEBO2 ', & - 'HO2C54CHO ','C5HPALD1 ','C23O3ECO3 ', & - 'C827CHO ','CO2C54CO3 ','NEOPO2 ', & - 'TC4H9O2 ','C535O2 ','HCOCO3H ', & - 'C67CO3 ','C4MCODBCO3 ','C5CO14O2 ', & - 'C926O2 ','BCARY ','C136CO3 ', & - 'C54CO3 ','CO23C54O2 ','C8M2CO6O2 ', & - 'MC3CODBCO3 ','M2C43CO3 ','HO1C3O2 ', & - 'C6CODIAL ','PGLOO ','IPGLOO ', & - 'GAOO ','IBUTALOH ','C3MDIALO2 ', & - 'C5HPALD2 ','MMALNBCO3 ','CHOC2CO3 ', & - 'MMALNACO3 ','C622CO3 ','BUT2OLO2 ', & - 'HO2C43CO3 ','C4OHCHO ','CO2MC5OH ', & - 'CO24C53O2 ','PROL1MCHO ','ISOPANO3 ', & - 'C126CO3 ','INCO2 ','HMVKBO2 ', & - 'C626CO3 ','ACCOMECHO ','H3C25C6O2 ', & - 'HMVKAO2 ','C811CO3 ','INDO2 ', & - 'HOCH2COCHO ','HMACR ','HC4ACO3 ', & - 'CO2C43CHO ','C624CO3 ','BCLKAO2 ', & - 'C96CO3 ','TM124BPRO ','C5CO234 ', & - 'MIBKAO2 ','HC4CCO3 ','C6DCARBBO2 ', & - 'C58AO2 ','MACRNBCO3 ','C4DBDIKET ', & - 'HCOCOHCO3 ','C147O2 ','MACRNOO ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_56 = (/ & - 'C136O2 ','BUT2CHO ','ME3BU2OLO2 ', & - 'C731CO3 ','M22C43O2 ','H2O2 ', & - 'M3FOO ','BCAOO ','HC3CHO ', & - 'NC3CHO ','BUT1ENE ','C1210CO3 ', & - 'MEKCO2 ','C519CO3 ','HO2C3CHO ', & - 'M2PEDO2 ','H2M2C3CHO ','MALDIAL ', & - 'MALANHYO2 ','IBUTOLBO2 ','M3PEBO2 ', & - 'SC4H9O2 ','H2M3C4CHO ','CO2M3C5OH ', & - 'DDECO2 ','C7DICARB ','HO3C3CHO ', & - 'IC7DICARB ','NC4CHO ','EGLYOO ', & - 'HOIPRCHO ','C617CHO ','C727CO3 ', & - 'INB1O2 ','C57NO3CO3 ','MC5DICARB ', & - 'M33C4O2 ','IPECO2 ','HM22CO3 ', & - 'BIACETOH ','CYHXONAO2 ','M22C4O2 ', & - 'C729CHO ','C626O2 ','C517CHO ', & - 'CO13C4CHO ','CH3CHOHCHO ','H3M3C5CO3 ', & - 'C5MDICARB ','HM33C3CO3 ','C524O2 ', & - 'BCBOO ','MVKOH ','C3MDIALOH ', & - 'C622CHO ','PE1ENEBO2 ','MIPKBO2 ', & - 'MEKBO2 ','C141CO3 ','CO2H3CO3 ', & - 'H2M2C3CO3 ','MGLOO ','C7EDICARB ', & - 'C927O2 ','CO23C4CHO ','IPRCO3 ', & - 'DECO2 ','HO3C76O2 ','HEXBO2 ', & - 'CO235C6 ','CHOC3COCO3 ','NONO2 ', & - 'CO13C4OH ','C1210O2 ','HO3C5CHO ', & - 'H2M3C4O2 ','C41CO3 ','ISOPCO2 ', & - 'H2M4C65O2 ','HO2C54O2 ','HYPROPO2 ', & - 'C148O2 ','C5DICARB ','C2H4 ', & - 'C3H7CO3 ','C6DICARB ','C51O2 ', & - 'MACO3 ','TBUTOLO2 ','C829O2 ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_57 = (/ & - 'C1011CO3 ','ISOP34O2 ','CONM2CO3 ', & - 'C59O2 ','HO5C6O2 ','HO3C4CO3 ', & - 'CO3C4CO3 ','UDECO2 ','EGLYOX ', & - 'HO1CO4C6 ','C7DDICARB ','C2H5O2 ', & - 'CO3C4CHO ','OCTO2 ','IC3H7O2 ', & - 'M2HEXAO2 ','IPEAO2 ','HO2M2C4O2 ', & - 'HO3C4O2 ','HO2C4O2 ','CO2C54O2 ', & - 'NO3CH2CO3 ','C4H6 ','INB2O2 ', & - 'MACRNCO3 ','MGLYOO ','CO24C6 ', & - 'CO2C3CO3 ','C716OH ','CH3COCH3 ', & - 'DIEKBO2 ','C5H11CHO ','PEAO2 ', & - 'HO2C3CO3 ','C4H9CHO ','C5H8 ', & - 'C58NO3CO3 ','ISOPCNO3 ','LIMAL ', & - 'GLYOO ','CO23C4CO3 ','CH3COCO3 ', & - 'INAO2 ','C57O2 ','LIMKET ', & - 'LMLKET ','HMVKBCHO ','MEK ', & - 'CO2C4CO3 ','NO3CH2CHO ','CHEXO2 ', & - 'HCOCH2CHO ','C2H5CO3 ','HOC2H4CHO ', & - 'HO3C5O2 ','HEXCO2 ','C624CHO ', & - 'ACETOL ','C518CHO ','PENT1ENE ', & - 'C2H5CHO ','PEBO2 ','CH3CHO ', & - 'ACR ','HOCH2CH2O2 ','C817O2 ', & - 'BIACETO2 ','C96O2 ','CO23C3CHO ', & - 'C3H6 ','HNO3 ','IPROPOLO2 ', & - 'IPRCHO ','CISOPCO2 ','HC4ACHO ', & - 'C141O2 ','C126CHO ','NC4H9O2 ', & - 'C4MDIAL ','CO2H3CHO ','CO2C4CHO ', & - 'NORLIMAL ','PINAL ','HCOCH2CO3 ', & - 'NOPINONE ','HCOCO3 ','CISOPAO2 ', & - 'ISOPAO2 ','ISOPBO2 ','HC4CCHO ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(40) :: SPC_NAMES_58 = (/ & - 'MACRNO3 ','MGLYOX ','CH2OO ', & - 'ISOPDO2 ','MVKNO3 ','MACR ', & - 'MVK ','CH3O2 ','NC3H7O2 ', & - 'C3H7CHO ','HCHO ','HOCH2CO3 ', & - 'GLYOX ','HOCH2CHO ','HCOCH2O2 ', & - 'C923O2 ','HOC2H4CO3 ','CL ', & - 'C3ME3CHOO2 ','C116CHO ','CH3COCH2O2 ', & - 'CO2C3CHO ','IPRHOCO3 ','CH3CO3 ', & - 'C928CO3 ','MEKAO2 ','C132O2 ', & - 'BCLKET ','BCKET ','OH ', & - 'CO ','NO ','NO2 ', & - 'SO2 ','HO2 ','NO3 ', & - 'BCAL ','O3 ','H2O ', & - 'M ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(5260) :: SPC_NAMES = (/& - SPC_NAMES_0, SPC_NAMES_1, SPC_NAMES_2, SPC_NAMES_3, SPC_NAMES_4, & - SPC_NAMES_5, SPC_NAMES_6, SPC_NAMES_7, SPC_NAMES_8, SPC_NAMES_9, & - SPC_NAMES_10, SPC_NAMES_11, SPC_NAMES_12, SPC_NAMES_13, SPC_NAMES_14, & - SPC_NAMES_15, SPC_NAMES_16, SPC_NAMES_17, SPC_NAMES_18, SPC_NAMES_19, & - SPC_NAMES_20, SPC_NAMES_21, SPC_NAMES_22, SPC_NAMES_23, SPC_NAMES_24, & - SPC_NAMES_25, SPC_NAMES_26, SPC_NAMES_27, SPC_NAMES_28, SPC_NAMES_29, & - SPC_NAMES_30, SPC_NAMES_31, SPC_NAMES_32, SPC_NAMES_33, SPC_NAMES_34, & - SPC_NAMES_35, SPC_NAMES_36, SPC_NAMES_37, SPC_NAMES_38, SPC_NAMES_39, & - SPC_NAMES_40, SPC_NAMES_41, SPC_NAMES_42, SPC_NAMES_43, SPC_NAMES_44, & - SPC_NAMES_45, SPC_NAMES_46, SPC_NAMES_47, SPC_NAMES_48, SPC_NAMES_49, & - SPC_NAMES_50, SPC_NAMES_51, SPC_NAMES_52, SPC_NAMES_53, SPC_NAMES_54, & - SPC_NAMES_55, SPC_NAMES_56, SPC_NAMES_57, SPC_NAMES_58 /) - - INTEGER, PARAMETER, DIMENSION(360) :: LOOKAT_0 = (/ & - 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, & - 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, & - 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, & - 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, & - 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, & - 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, & - 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, & - 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, & - 97, 98, 99,100,101,102,103,104,105,106,107,108, & - 109,110,111,112,113,114,115,116,117,118,119,120, & - 121,122,123,124,125,126,127,128,129,130,131,132, & - 133,134,135,136,137,138,139,140,141,142,143,144, & - 145,146,147,148,149,150,151,152,153,154,155,156, & - 157,158,159,160,161,162,163,164,165,166,167,168, & - 169,170,171,172,173,174,175,176,177,178,179,180, & - 181,182,183,184,185,186,187,188,189,190,191,192, & - 193,194,195,196,197,198,199,200,201,202,203,204, & - 205,206,207,208,209,210,211,212,213,214,215,216, & - 217,218,219,220,221,222,223,224,225,226,227,228, & - 229,230,231,232,233,234,235,236,237,238,239,240, & - 241,242,243,244,245,246,247,248,249,250,251,252, & - 253,254,255,256,257,258,259,260,261,262,263,264, & - 265,266,267,268,269,270,271,272,273,274,275,276, & - 277,278,279,280,281,282,283,284,285,286,287,288, & - 289,290,291,292,293,294,295,296,297,298,299,300, & - 301,302,303,304,305,306,307,308,309,310,311,312, & - 313,314,315,316,317,318,319,320,321,322,323,324, & - 325,326,327,328,329,330,331,332,333,334,335,336, & - 337,338,339,340,341,342,343,344,345,346,347,348, & - 349,350,351,352,353,354,355,356,357,358,359,360 /) - INTEGER, PARAMETER, DIMENSION(360) :: LOOKAT_1 = (/ & - 361,362,363,364,365,366,367,368,369,370,371,372, & - 373,374,375,376,377,378,379,380,381,382,383,384, & - 385,386,387,388,389,390,391,392,393,394,395,396, & - 397,398,399,400,401,402,403,404,405,406,407,408, & - 409,410,411,412,413,414,415,416,417,418,419,420, & - 421,422,423,424,425,426,427,428,429,430,431,432, & - 433,434,435,436,437,438,439,440,441,442,443,444, & - 445,446,447,448,449,450,451,452,453,454,455,456, & - 457,458,459,460,461,462,463,464,465,466,467,468, & - 469,470,471,472,473,474,475,476,477,478,479,480, & - 481,482,483,484,485,486,487,488,489,490,491,492, & - 493,494,495,496,497,498,499,500,501,502,503,504, & - 505,506,507,508,509,510,511,512,513,514,515,516, & - 517,518,519,520,521,522,523,524,525,526,527,528, & - 529,530,531,532,533,534,535,536,537,538,539,540, & - 541,542,543,544,545,546,547,548,549,550,551,552, & - 553,554,555,556,557,558,559,560,561,562,563,564, & - 565,566,567,568,569,570,571,572,573,574,575,576, & - 577,578,579,580,581,582,583,584,585,586,587,588, & - 589,590,591,592,593,594,595,596,597,598,599,600, & - 601,602,603,604,605,606,607,608,609,610,611,612, & - 613,614,615,616,617,618,619,620,621,622,623,624, & - 625,626,627,628,629,630,631,632,633,634,635,636, & - 637,638,639,640,641,642,643,644,645,646,647,648, & - 649,650,651,652,653,654,655,656,657,658,659,660, & - 661,662,663,664,665,666,667,668,669,670,671,672, & - 673,674,675,676,677,678,679,680,681,682,683,684, & - 685,686,687,688,689,690,691,692,693,694,695,696, & - 697,698,699,700,701,702,703,704,705,706,707,708, & - 709,710,711,712,713,714,715,716,717,718,719,720 /) - INTEGER, PARAMETER, DIMENSION(360) :: LOOKAT_2 = (/ & - 721,722,723,724,725,726,727,728,729,730,731,732, & - 733,734,735,736,737,738,739,740,741,742,743,744, & - 745,746,747,748,749,750,751,752,753,754,755,756, & - 757,758,759,760,761,762,763,764,765,766,767,768, & - 769,770,771,772,773,774,775,776,777,778,779,780, & - 781,782,783,784,785,786,787,788,789,790,791,792, & - 793,794,795,796,797,798,799,800,801,802,803,804, & - 805,806,807,808,809,810,811,812,813,814,815,816, & - 817,818,819,820,821,822,823,824,825,826,827,828, & - 829,830,831,832,833,834,835,836,837,838,839,840, & - 841,842,843,844,845,846,847,848,849,850,851,852, & - 853,854,855,856,857,858,859,860,861,862,863,864, & - 865,866,867,868,869,870,871,872,873,874,875,876, & - 877,878,879,880,881,882,883,884,885,886,887,888, & - 889,890,891,892,893,894,895,896,897,898,899,900, & - 901,902,903,904,905,906,907,908,909,910,911,912, & - 913,914,915,916,917,918,919,920,921,922,923,924, & - 925,926,927,928,929,930,931,932,933,934,935,936, & - 937,938,939,940,941,942,943,944,945,946,947,948, & - 949,950,951,952,953,954,955,956,957,958,959,960, & - 961,962,963,964,965,966,967,968,969,970,971,972, & - 973,974,975,976,977,978,979,980,981,982,983,984, & - 985,986,987,988,989,990,991,992,993,994,995,996, & - 997,998,999,1000,1001,1002,1003,1004,1005,1006,1007,1008, & - 1009,1010,1011,1012,1013,1014,1015,1016,1017,1018,1019,1020, & - 1021,1022,1023,1024,1025,1026,1027,1028,1029,1030,1031,1032, & - 1033,1034,1035,1036,1037,1038,1039,1040,1041,1042,1043,1044, & - 1045,1046,1047,1048,1049,1050,1051,1052,1053,1054,1055,1056, & - 1057,1058,1059,1060,1061,1062,1063,1064,1065,1066,1067,1068, & - 1069,1070,1071,1072,1073,1074,1075,1076,1077,1078,1079,1080 /) - INTEGER, PARAMETER, DIMENSION(360) :: LOOKAT_3 = (/ & - 1081,1082,1083,1084,1085,1086,1087,1088,1089,1090,1091,1092, & - 1093,1094,1095,1096,1097,1098,1099,1100,1101,1102,1103,1104, & - 1105,1106,1107,1108,1109,1110,1111,1112,1113,1114,1115,1116, & - 1117,1118,1119,1120,1121,1122,1123,1124,1125,1126,1127,1128, & - 1129,1130,1131,1132,1133,1134,1135,1136,1137,1138,1139,1140, & - 1141,1142,1143,1144,1145,1146,1147,1148,1149,1150,1151,1152, & - 1153,1154,1155,1156,1157,1158,1159,1160,1161,1162,1163,1164, & - 1165,1166,1167,1168,1169,1170,1171,1172,1173,1174,1175,1176, & - 1177,1178,1179,1180,1181,1182,1183,1184,1185,1186,1187,1188, & - 1189,1190,1191,1192,1193,1194,1195,1196,1197,1198,1199,1200, & - 1201,1202,1203,1204,1205,1206,1207,1208,1209,1210,1211,1212, & - 1213,1214,1215,1216,1217,1218,1219,1220,1221,1222,1223,1224, & - 1225,1226,1227,1228,1229,1230,1231,1232,1233,1234,1235,1236, & - 1237,1238,1239,1240,1241,1242,1243,1244,1245,1246,1247,1248, & - 1249,1250,1251,1252,1253,1254,1255,1256,1257,1258,1259,1260, & - 1261,1262,1263,1264,1265,1266,1267,1268,1269,1270,1271,1272, & - 1273,1274,1275,1276,1277,1278,1279,1280,1281,1282,1283,1284, & - 1285,1286,1287,1288,1289,1290,1291,1292,1293,1294,1295,1296, & - 1297,1298,1299,1300,1301,1302,1303,1304,1305,1306,1307,1308, & - 1309,1310,1311,1312,1313,1314,1315,1316,1317,1318,1319,1320, & - 1321,1322,1323,1324,1325,1326,1327,1328,1329,1330,1331,1332, & - 1333,1334,1335,1336,1337,1338,1339,1340,1341,1342,1343,1344, & - 1345,1346,1347,1348,1349,1350,1351,1352,1353,1354,1355,1356, & - 1357,1358,1359,1360,1361,1362,1363,1364,1365,1366,1367,1368, & - 1369,1370,1371,1372,1373,1374,1375,1376,1377,1378,1379,1380, & - 1381,1382,1383,1384,1385,1386,1387,1388,1389,1390,1391,1392, & - 1393,1394,1395,1396,1397,1398,1399,1400,1401,1402,1403,1404, & - 1405,1406,1407,1408,1409,1410,1411,1412,1413,1414,1415,1416, & - 1417,1418,1419,1420,1421,1422,1423,1424,1425,1426,1427,1428, & - 1429,1430,1431,1432,1433,1434,1435,1436,1437,1438,1439,1440 /) - INTEGER, PARAMETER, DIMENSION(360) :: LOOKAT_4 = (/ & - 1441,1442,1443,1444,1445,1446,1447,1448,1449,1450,1451,1452, & - 1453,1454,1455,1456,1457,1458,1459,1460,1461,1462,1463,1464, & - 1465,1466,1467,1468,1469,1470,1471,1472,1473,1474,1475,1476, & - 1477,1478,1479,1480,1481,1482,1483,1484,1485,1486,1487,1488, & - 1489,1490,1491,1492,1493,1494,1495,1496,1497,1498,1499,1500, & - 1501,1502,1503,1504,1505,1506,1507,1508,1509,1510,1511,1512, & - 1513,1514,1515,1516,1517,1518,1519,1520,1521,1522,1523,1524, & - 1525,1526,1527,1528,1529,1530,1531,1532,1533,1534,1535,1536, & - 1537,1538,1539,1540,1541,1542,1543,1544,1545,1546,1547,1548, & - 1549,1550,1551,1552,1553,1554,1555,1556,1557,1558,1559,1560, & - 1561,1562,1563,1564,1565,1566,1567,1568,1569,1570,1571,1572, & - 1573,1574,1575,1576,1577,1578,1579,1580,1581,1582,1583,1584, & - 1585,1586,1587,1588,1589,1590,1591,1592,1593,1594,1595,1596, & - 1597,1598,1599,1600,1601,1602,1603,1604,1605,1606,1607,1608, & - 1609,1610,1611,1612,1613,1614,1615,1616,1617,1618,1619,1620, & - 1621,1622,1623,1624,1625,1626,1627,1628,1629,1630,1631,1632, & - 1633,1634,1635,1636,1637,1638,1639,1640,1641,1642,1643,1644, & - 1645,1646,1647,1648,1649,1650,1651,1652,1653,1654,1655,1656, & - 1657,1658,1659,1660,1661,1662,1663,1664,1665,1666,1667,1668, & - 1669,1670,1671,1672,1673,1674,1675,1676,1677,1678,1679,1680, & - 1681,1682,1683,1684,1685,1686,1687,1688,1689,1690,1691,1692, & - 1693,1694,1695,1696,1697,1698,1699,1700,1701,1702,1703,1704, & - 1705,1706,1707,1708,1709,1710,1711,1712,1713,1714,1715,1716, & - 1717,1718,1719,1720,1721,1722,1723,1724,1725,1726,1727,1728, & - 1729,1730,1731,1732,1733,1734,1735,1736,1737,1738,1739,1740, & - 1741,1742,1743,1744,1745,1746,1747,1748,1749,1750,1751,1752, & - 1753,1754,1755,1756,1757,1758,1759,1760,1761,1762,1763,1764, & - 1765,1766,1767,1768,1769,1770,1771,1772,1773,1774,1775,1776, & - 1777,1778,1779,1780,1781,1782,1783,1784,1785,1786,1787,1788, & - 1789,1790,1791,1792,1793,1794,1795,1796,1797,1798,1799,1800 /) - INTEGER, PARAMETER, DIMENSION(360) :: LOOKAT_5 = (/ & - 1801,1802,1803,1804,1805,1806,1807,1808,1809,1810,1811,1812, & - 1813,1814,1815,1816,1817,1818,1819,1820,1821,1822,1823,1824, & - 1825,1826,1827,1828,1829,1830,1831,1832,1833,1834,1835,1836, & - 1837,1838,1839,1840,1841,1842,1843,1844,1845,1846,1847,1848, & - 1849,1850,1851,1852,1853,1854,1855,1856,1857,1858,1859,1860, & - 1861,1862,1863,1864,1865,1866,1867,1868,1869,1870,1871,1872, & - 1873,1874,1875,1876,1877,1878,1879,1880,1881,1882,1883,1884, & - 1885,1886,1887,1888,1889,1890,1891,1892,1893,1894,1895,1896, & - 1897,1898,1899,1900,1901,1902,1903,1904,1905,1906,1907,1908, & - 1909,1910,1911,1912,1913,1914,1915,1916,1917,1918,1919,1920, & - 1921,1922,1923,1924,1925,1926,1927,1928,1929,1930,1931,1932, & - 1933,1934,1935,1936,1937,1938,1939,1940,1941,1942,1943,1944, & - 1945,1946,1947,1948,1949,1950,1951,1952,1953,1954,1955,1956, & - 1957,1958,1959,1960,1961,1962,1963,1964,1965,1966,1967,1968, & - 1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980, & - 1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992, & - 1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004, & - 2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016, & - 2017,2018,2019,2020,2021,2022,2023,2024,2025,2026,2027,2028, & - 2029,2030,2031,2032,2033,2034,2035,2036,2037,2038,2039,2040, & - 2041,2042,2043,2044,2045,2046,2047,2048,2049,2050,2051,2052, & - 2053,2054,2055,2056,2057,2058,2059,2060,2061,2062,2063,2064, & - 2065,2066,2067,2068,2069,2070,2071,2072,2073,2074,2075,2076, & - 2077,2078,2079,2080,2081,2082,2083,2084,2085,2086,2087,2088, & - 2089,2090,2091,2092,2093,2094,2095,2096,2097,2098,2099,2100, & - 2101,2102,2103,2104,2105,2106,2107,2108,2109,2110,2111,2112, & - 2113,2114,2115,2116,2117,2118,2119,2120,2121,2122,2123,2124, & - 2125,2126,2127,2128,2129,2130,2131,2132,2133,2134,2135,2136, & - 2137,2138,2139,2140,2141,2142,2143,2144,2145,2146,2147,2148, & - 2149,2150,2151,2152,2153,2154,2155,2156,2157,2158,2159,2160 /) - INTEGER, PARAMETER, DIMENSION(360) :: LOOKAT_6 = (/ & - 2161,2162,2163,2164,2165,2166,2167,2168,2169,2170,2171,2172, & - 2173,2174,2175,2176,2177,2178,2179,2180,2181,2182,2183,2184, & - 2185,2186,2187,2188,2189,2190,2191,2192,2193,2194,2195,2196, & - 2197,2198,2199,2200,2201,2202,2203,2204,2205,2206,2207,2208, & - 2209,2210,2211,2212,2213,2214,2215,2216,2217,2218,2219,2220, & - 2221,2222,2223,2224,2225,2226,2227,2228,2229,2230,2231,2232, & - 2233,2234,2235,2236,2237,2238,2239,2240,2241,2242,2243,2244, & - 2245,2246,2247,2248,2249,2250,2251,2252,2253,2254,2255,2256, & - 2257,2258,2259,2260,2261,2262,2263,2264,2265,2266,2267,2268, & - 2269,2270,2271,2272,2273,2274,2275,2276,2277,2278,2279,2280, & - 2281,2282,2283,2284,2285,2286,2287,2288,2289,2290,2291,2292, & - 2293,2294,2295,2296,2297,2298,2299,2300,2301,2302,2303,2304, & - 2305,2306,2307,2308,2309,2310,2311,2312,2313,2314,2315,2316, & - 2317,2318,2319,2320,2321,2322,2323,2324,2325,2326,2327,2328, & - 2329,2330,2331,2332,2333,2334,2335,2336,2337,2338,2339,2340, & - 2341,2342,2343,2344,2345,2346,2347,2348,2349,2350,2351,2352, & - 2353,2354,2355,2356,2357,2358,2359,2360,2361,2362,2363,2364, & - 2365,2366,2367,2368,2369,2370,2371,2372,2373,2374,2375,2376, & - 2377,2378,2379,2380,2381,2382,2383,2384,2385,2386,2387,2388, & - 2389,2390,2391,2392,2393,2394,2395,2396,2397,2398,2399,2400, & - 2401,2402,2403,2404,2405,2406,2407,2408,2409,2410,2411,2412, & - 2413,2414,2415,2416,2417,2418,2419,2420,2421,2422,2423,2424, & - 2425,2426,2427,2428,2429,2430,2431,2432,2433,2434,2435,2436, & - 2437,2438,2439,2440,2441,2442,2443,2444,2445,2446,2447,2448, & - 2449,2450,2451,2452,2453,2454,2455,2456,2457,2458,2459,2460, & - 2461,2462,2463,2464,2465,2466,2467,2468,2469,2470,2471,2472, & - 2473,2474,2475,2476,2477,2478,2479,2480,2481,2482,2483,2484, & - 2485,2486,2487,2488,2489,2490,2491,2492,2493,2494,2495,2496, & - 2497,2498,2499,2500,2501,2502,2503,2504,2505,2506,2507,2508, & - 2509,2510,2511,2512,2513,2514,2515,2516,2517,2518,2519,2520 /) - INTEGER, PARAMETER, DIMENSION(360) :: LOOKAT_7 = (/ & - 2521,2522,2523,2524,2525,2526,2527,2528,2529,2530,2531,2532, & - 2533,2534,2535,2536,2537,2538,2539,2540,2541,2542,2543,2544, & - 2545,2546,2547,2548,2549,2550,2551,2552,2553,2554,2555,2556, & - 2557,2558,2559,2560,2561,2562,2563,2564,2565,2566,2567,2568, & - 2569,2570,2571,2572,2573,2574,2575,2576,2577,2578,2579,2580, & - 2581,2582,2583,2584,2585,2586,2587,2588,2589,2590,2591,2592, & - 2593,2594,2595,2596,2597,2598,2599,2600,2601,2602,2603,2604, & - 2605,2606,2607,2608,2609,2610,2611,2612,2613,2614,2615,2616, & - 2617,2618,2619,2620,2621,2622,2623,2624,2625,2626,2627,2628, & - 2629,2630,2631,2632,2633,2634,2635,2636,2637,2638,2639,2640, & - 2641,2642,2643,2644,2645,2646,2647,2648,2649,2650,2651,2652, & - 2653,2654,2655,2656,2657,2658,2659,2660,2661,2662,2663,2664, & - 2665,2666,2667,2668,2669,2670,2671,2672,2673,2674,2675,2676, & - 2677,2678,2679,2680,2681,2682,2683,2684,2685,2686,2687,2688, & - 2689,2690,2691,2692,2693,2694,2695,2696,2697,2698,2699,2700, & - 2701,2702,2703,2704,2705,2706,2707,2708,2709,2710,2711,2712, & - 2713,2714,2715,2716,2717,2718,2719,2720,2721,2722,2723,2724, & - 2725,2726,2727,2728,2729,2730,2731,2732,2733,2734,2735,2736, & - 2737,2738,2739,2740,2741,2742,2743,2744,2745,2746,2747,2748, & - 2749,2750,2751,2752,2753,2754,2755,2756,2757,2758,2759,2760, & - 2761,2762,2763,2764,2765,2766,2767,2768,2769,2770,2771,2772, & - 2773,2774,2775,2776,2777,2778,2779,2780,2781,2782,2783,2784, & - 2785,2786,2787,2788,2789,2790,2791,2792,2793,2794,2795,2796, & - 2797,2798,2799,2800,2801,2802,2803,2804,2805,2806,2807,2808, & - 2809,2810,2811,2812,2813,2814,2815,2816,2817,2818,2819,2820, & - 2821,2822,2823,2824,2825,2826,2827,2828,2829,2830,2831,2832, & - 2833,2834,2835,2836,2837,2838,2839,2840,2841,2842,2843,2844, & - 2845,2846,2847,2848,2849,2850,2851,2852,2853,2854,2855,2856, & - 2857,2858,2859,2860,2861,2862,2863,2864,2865,2866,2867,2868, & - 2869,2870,2871,2872,2873,2874,2875,2876,2877,2878,2879,2880 /) - INTEGER, PARAMETER, DIMENSION(360) :: LOOKAT_8 = (/ & - 2881,2882,2883,2884,2885,2886,2887,2888,2889,2890,2891,2892, & - 2893,2894,2895,2896,2897,2898,2899,2900,2901,2902,2903,2904, & - 2905,2906,2907,2908,2909,2910,2911,2912,2913,2914,2915,2916, & - 2917,2918,2919,2920,2921,2922,2923,2924,2925,2926,2927,2928, & - 2929,2930,2931,2932,2933,2934,2935,2936,2937,2938,2939,2940, & - 2941,2942,2943,2944,2945,2946,2947,2948,2949,2950,2951,2952, & - 2953,2954,2955,2956,2957,2958,2959,2960,2961,2962,2963,2964, & - 2965,2966,2967,2968,2969,2970,2971,2972,2973,2974,2975,2976, & - 2977,2978,2979,2980,2981,2982,2983,2984,2985,2986,2987,2988, & - 2989,2990,2991,2992,2993,2994,2995,2996,2997,2998,2999,3000, & - 3001,3002,3003,3004,3005,3006,3007,3008,3009,3010,3011,3012, & - 3013,3014,3015,3016,3017,3018,3019,3020,3021,3022,3023,3024, & - 3025,3026,3027,3028,3029,3030,3031,3032,3033,3034,3035,3036, & - 3037,3038,3039,3040,3041,3042,3043,3044,3045,3046,3047,3048, & - 3049,3050,3051,3052,3053,3054,3055,3056,3057,3058,3059,3060, & - 3061,3062,3063,3064,3065,3066,3067,3068,3069,3070,3071,3072, & - 3073,3074,3075,3076,3077,3078,3079,3080,3081,3082,3083,3084, & - 3085,3086,3087,3088,3089,3090,3091,3092,3093,3094,3095,3096, & - 3097,3098,3099,3100,3101,3102,3103,3104,3105,3106,3107,3108, & - 3109,3110,3111,3112,3113,3114,3115,3116,3117,3118,3119,3120, & - 3121,3122,3123,3124,3125,3126,3127,3128,3129,3130,3131,3132, & - 3133,3134,3135,3136,3137,3138,3139,3140,3141,3142,3143,3144, & - 3145,3146,3147,3148,3149,3150,3151,3152,3153,3154,3155,3156, & - 3157,3158,3159,3160,3161,3162,3163,3164,3165,3166,3167,3168, & - 3169,3170,3171,3172,3173,3174,3175,3176,3177,3178,3179,3180, & - 3181,3182,3183,3184,3185,3186,3187,3188,3189,3190,3191,3192, & - 3193,3194,3195,3196,3197,3198,3199,3200,3201,3202,3203,3204, & - 3205,3206,3207,3208,3209,3210,3211,3212,3213,3214,3215,3216, & - 3217,3218,3219,3220,3221,3222,3223,3224,3225,3226,3227,3228, & - 3229,3230,3231,3232,3233,3234,3235,3236,3237,3238,3239,3240 /) - INTEGER, PARAMETER, DIMENSION(360) :: LOOKAT_9 = (/ & - 3241,3242,3243,3244,3245,3246,3247,3248,3249,3250,3251,3252, & - 3253,3254,3255,3256,3257,3258,3259,3260,3261,3262,3263,3264, & - 3265,3266,3267,3268,3269,3270,3271,3272,3273,3274,3275,3276, & - 3277,3278,3279,3280,3281,3282,3283,3284,3285,3286,3287,3288, & - 3289,3290,3291,3292,3293,3294,3295,3296,3297,3298,3299,3300, & - 3301,3302,3303,3304,3305,3306,3307,3308,3309,3310,3311,3312, & - 3313,3314,3315,3316,3317,3318,3319,3320,3321,3322,3323,3324, & - 3325,3326,3327,3328,3329,3330,3331,3332,3333,3334,3335,3336, & - 3337,3338,3339,3340,3341,3342,3343,3344,3345,3346,3347,3348, & - 3349,3350,3351,3352,3353,3354,3355,3356,3357,3358,3359,3360, & - 3361,3362,3363,3364,3365,3366,3367,3368,3369,3370,3371,3372, & - 3373,3374,3375,3376,3377,3378,3379,3380,3381,3382,3383,3384, & - 3385,3386,3387,3388,3389,3390,3391,3392,3393,3394,3395,3396, & - 3397,3398,3399,3400,3401,3402,3403,3404,3405,3406,3407,3408, & - 3409,3410,3411,3412,3413,3414,3415,3416,3417,3418,3419,3420, & - 3421,3422,3423,3424,3425,3426,3427,3428,3429,3430,3431,3432, & - 3433,3434,3435,3436,3437,3438,3439,3440,3441,3442,3443,3444, & - 3445,3446,3447,3448,3449,3450,3451,3452,3453,3454,3455,3456, & - 3457,3458,3459,3460,3461,3462,3463,3464,3465,3466,3467,3468, & - 3469,3470,3471,3472,3473,3474,3475,3476,3477,3478,3479,3480, & - 3481,3482,3483,3484,3485,3486,3487,3488,3489,3490,3491,3492, & - 3493,3494,3495,3496,3497,3498,3499,3500,3501,3502,3503,3504, & - 3505,3506,3507,3508,3509,3510,3511,3512,3513,3514,3515,3516, & - 3517,3518,3519,3520,3521,3522,3523,3524,3525,3526,3527,3528, & - 3529,3530,3531,3532,3533,3534,3535,3536,3537,3538,3539,3540, & - 3541,3542,3543,3544,3545,3546,3547,3548,3549,3550,3551,3552, & - 3553,3554,3555,3556,3557,3558,3559,3560,3561,3562,3563,3564, & - 3565,3566,3567,3568,3569,3570,3571,3572,3573,3574,3575,3576, & - 3577,3578,3579,3580,3581,3582,3583,3584,3585,3586,3587,3588, & - 3589,3590,3591,3592,3593,3594,3595,3596,3597,3598,3599,3600 /) - INTEGER, PARAMETER, DIMENSION(360) :: LOOKAT_10 = (/ & - 3601,3602,3603,3604,3605,3606,3607,3608,3609,3610,3611,3612, & - 3613,3614,3615,3616,3617,3618,3619,3620,3621,3622,3623,3624, & - 3625,3626,3627,3628,3629,3630,3631,3632,3633,3634,3635,3636, & - 3637,3638,3639,3640,3641,3642,3643,3644,3645,3646,3647,3648, & - 3649,3650,3651,3652,3653,3654,3655,3656,3657,3658,3659,3660, & - 3661,3662,3663,3664,3665,3666,3667,3668,3669,3670,3671,3672, & - 3673,3674,3675,3676,3677,3678,3679,3680,3681,3682,3683,3684, & - 3685,3686,3687,3688,3689,3690,3691,3692,3693,3694,3695,3696, & - 3697,3698,3699,3700,3701,3702,3703,3704,3705,3706,3707,3708, & - 3709,3710,3711,3712,3713,3714,3715,3716,3717,3718,3719,3720, & - 3721,3722,3723,3724,3725,3726,3727,3728,3729,3730,3731,3732, & - 3733,3734,3735,3736,3737,3738,3739,3740,3741,3742,3743,3744, & - 3745,3746,3747,3748,3749,3750,3751,3752,3753,3754,3755,3756, & - 3757,3758,3759,3760,3761,3762,3763,3764,3765,3766,3767,3768, & - 3769,3770,3771,3772,3773,3774,3775,3776,3777,3778,3779,3780, & - 3781,3782,3783,3784,3785,3786,3787,3788,3789,3790,3791,3792, & - 3793,3794,3795,3796,3797,3798,3799,3800,3801,3802,3803,3804, & - 3805,3806,3807,3808,3809,3810,3811,3812,3813,3814,3815,3816, & - 3817,3818,3819,3820,3821,3822,3823,3824,3825,3826,3827,3828, & - 3829,3830,3831,3832,3833,3834,3835,3836,3837,3838,3839,3840, & - 3841,3842,3843,3844,3845,3846,3847,3848,3849,3850,3851,3852, & - 3853,3854,3855,3856,3857,3858,3859,3860,3861,3862,3863,3864, & - 3865,3866,3867,3868,3869,3870,3871,3872,3873,3874,3875,3876, & - 3877,3878,3879,3880,3881,3882,3883,3884,3885,3886,3887,3888, & - 3889,3890,3891,3892,3893,3894,3895,3896,3897,3898,3899,3900, & - 3901,3902,3903,3904,3905,3906,3907,3908,3909,3910,3911,3912, & - 3913,3914,3915,3916,3917,3918,3919,3920,3921,3922,3923,3924, & - 3925,3926,3927,3928,3929,3930,3931,3932,3933,3934,3935,3936, & - 3937,3938,3939,3940,3941,3942,3943,3944,3945,3946,3947,3948, & - 3949,3950,3951,3952,3953,3954,3955,3956,3957,3958,3959,3960 /) - INTEGER, PARAMETER, DIMENSION(360) :: LOOKAT_11 = (/ & - 3961,3962,3963,3964,3965,3966,3967,3968,3969,3970,3971,3972, & - 3973,3974,3975,3976,3977,3978,3979,3980,3981,3982,3983,3984, & - 3985,3986,3987,3988,3989,3990,3991,3992,3993,3994,3995,3996, & - 3997,3998,3999,4000,4001,4002,4003,4004,4005,4006,4007,4008, & - 4009,4010,4011,4012,4013,4014,4015,4016,4017,4018,4019,4020, & - 4021,4022,4023,4024,4025,4026,4027,4028,4029,4030,4031,4032, & - 4033,4034,4035,4036,4037,4038,4039,4040,4041,4042,4043,4044, & - 4045,4046,4047,4048,4049,4050,4051,4052,4053,4054,4055,4056, & - 4057,4058,4059,4060,4061,4062,4063,4064,4065,4066,4067,4068, & - 4069,4070,4071,4072,4073,4074,4075,4076,4077,4078,4079,4080, & - 4081,4082,4083,4084,4085,4086,4087,4088,4089,4090,4091,4092, & - 4093,4094,4095,4096,4097,4098,4099,4100,4101,4102,4103,4104, & - 4105,4106,4107,4108,4109,4110,4111,4112,4113,4114,4115,4116, & - 4117,4118,4119,4120,4121,4122,4123,4124,4125,4126,4127,4128, & - 4129,4130,4131,4132,4133,4134,4135,4136,4137,4138,4139,4140, & - 4141,4142,4143,4144,4145,4146,4147,4148,4149,4150,4151,4152, & - 4153,4154,4155,4156,4157,4158,4159,4160,4161,4162,4163,4164, & - 4165,4166,4167,4168,4169,4170,4171,4172,4173,4174,4175,4176, & - 4177,4178,4179,4180,4181,4182,4183,4184,4185,4186,4187,4188, & - 4189,4190,4191,4192,4193,4194,4195,4196,4197,4198,4199,4200, & - 4201,4202,4203,4204,4205,4206,4207,4208,4209,4210,4211,4212, & - 4213,4214,4215,4216,4217,4218,4219,4220,4221,4222,4223,4224, & - 4225,4226,4227,4228,4229,4230,4231,4232,4233,4234,4235,4236, & - 4237,4238,4239,4240,4241,4242,4243,4244,4245,4246,4247,4248, & - 4249,4250,4251,4252,4253,4254,4255,4256,4257,4258,4259,4260, & - 4261,4262,4263,4264,4265,4266,4267,4268,4269,4270,4271,4272, & - 4273,4274,4275,4276,4277,4278,4279,4280,4281,4282,4283,4284, & - 4285,4286,4287,4288,4289,4290,4291,4292,4293,4294,4295,4296, & - 4297,4298,4299,4300,4301,4302,4303,4304,4305,4306,4307,4308, & - 4309,4310,4311,4312,4313,4314,4315,4316,4317,4318,4319,4320 /) - INTEGER, PARAMETER, DIMENSION(360) :: LOOKAT_12 = (/ & - 4321,4322,4323,4324,4325,4326,4327,4328,4329,4330,4331,4332, & - 4333,4334,4335,4336,4337,4338,4339,4340,4341,4342,4343,4344, & - 4345,4346,4347,4348,4349,4350,4351,4352,4353,4354,4355,4356, & - 4357,4358,4359,4360,4361,4362,4363,4364,4365,4366,4367,4368, & - 4369,4370,4371,4372,4373,4374,4375,4376,4377,4378,4379,4380, & - 4381,4382,4383,4384,4385,4386,4387,4388,4389,4390,4391,4392, & - 4393,4394,4395,4396,4397,4398,4399,4400,4401,4402,4403,4404, & - 4405,4406,4407,4408,4409,4410,4411,4412,4413,4414,4415,4416, & - 4417,4418,4419,4420,4421,4422,4423,4424,4425,4426,4427,4428, & - 4429,4430,4431,4432,4433,4434,4435,4436,4437,4438,4439,4440, & - 4441,4442,4443,4444,4445,4446,4447,4448,4449,4450,4451,4452, & - 4453,4454,4455,4456,4457,4458,4459,4460,4461,4462,4463,4464, & - 4465,4466,4467,4468,4469,4470,4471,4472,4473,4474,4475,4476, & - 4477,4478,4479,4480,4481,4482,4483,4484,4485,4486,4487,4488, & - 4489,4490,4491,4492,4493,4494,4495,4496,4497,4498,4499,4500, & - 4501,4502,4503,4504,4505,4506,4507,4508,4509,4510,4511,4512, & - 4513,4514,4515,4516,4517,4518,4519,4520,4521,4522,4523,4524, & - 4525,4526,4527,4528,4529,4530,4531,4532,4533,4534,4535,4536, & - 4537,4538,4539,4540,4541,4542,4543,4544,4545,4546,4547,4548, & - 4549,4550,4551,4552,4553,4554,4555,4556,4557,4558,4559,4560, & - 4561,4562,4563,4564,4565,4566,4567,4568,4569,4570,4571,4572, & - 4573,4574,4575,4576,4577,4578,4579,4580,4581,4582,4583,4584, & - 4585,4586,4587,4588,4589,4590,4591,4592,4593,4594,4595,4596, & - 4597,4598,4599,4600,4601,4602,4603,4604,4605,4606,4607,4608, & - 4609,4610,4611,4612,4613,4614,4615,4616,4617,4618,4619,4620, & - 4621,4622,4623,4624,4625,4626,4627,4628,4629,4630,4631,4632, & - 4633,4634,4635,4636,4637,4638,4639,4640,4641,4642,4643,4644, & - 4645,4646,4647,4648,4649,4650,4651,4652,4653,4654,4655,4656, & - 4657,4658,4659,4660,4661,4662,4663,4664,4665,4666,4667,4668, & - 4669,4670,4671,4672,4673,4674,4675,4676,4677,4678,4679,4680 /) - INTEGER, PARAMETER, DIMENSION(360) :: LOOKAT_13 = (/ & - 4681,4682,4683,4684,4685,4686,4687,4688,4689,4690,4691,4692, & - 4693,4694,4695,4696,4697,4698,4699,4700,4701,4702,4703,4704, & - 4705,4706,4707,4708,4709,4710,4711,4712,4713,4714,4715,4716, & - 4717,4718,4719,4720,4721,4722,4723,4724,4725,4726,4727,4728, & - 4729,4730,4731,4732,4733,4734,4735,4736,4737,4738,4739,4740, & - 4741,4742,4743,4744,4745,4746,4747,4748,4749,4750,4751,4752, & - 4753,4754,4755,4756,4757,4758,4759,4760,4761,4762,4763,4764, & - 4765,4766,4767,4768,4769,4770,4771,4772,4773,4774,4775,4776, & - 4777,4778,4779,4780,4781,4782,4783,4784,4785,4786,4787,4788, & - 4789,4790,4791,4792,4793,4794,4795,4796,4797,4798,4799,4800, & - 4801,4802,4803,4804,4805,4806,4807,4808,4809,4810,4811,4812, & - 4813,4814,4815,4816,4817,4818,4819,4820,4821,4822,4823,4824, & - 4825,4826,4827,4828,4829,4830,4831,4832,4833,4834,4835,4836, & - 4837,4838,4839,4840,4841,4842,4843,4844,4845,4846,4847,4848, & - 4849,4850,4851,4852,4853,4854,4855,4856,4857,4858,4859,4860, & - 4861,4862,4863,4864,4865,4866,4867,4868,4869,4870,4871,4872, & - 4873,4874,4875,4876,4877,4878,4879,4880,4881,4882,4883,4884, & - 4885,4886,4887,4888,4889,4890,4891,4892,4893,4894,4895,4896, & - 4897,4898,4899,4900,4901,4902,4903,4904,4905,4906,4907,4908, & - 4909,4910,4911,4912,4913,4914,4915,4916,4917,4918,4919,4920, & - 4921,4922,4923,4924,4925,4926,4927,4928,4929,4930,4931,4932, & - 4933,4934,4935,4936,4937,4938,4939,4940,4941,4942,4943,4944, & - 4945,4946,4947,4948,4949,4950,4951,4952,4953,4954,4955,4956, & - 4957,4958,4959,4960,4961,4962,4963,4964,4965,4966,4967,4968, & - 4969,4970,4971,4972,4973,4974,4975,4976,4977,4978,4979,4980, & - 4981,4982,4983,4984,4985,4986,4987,4988,4989,4990,4991,4992, & - 4993,4994,4995,4996,4997,4998,4999,5000,5001,5002,5003,5004, & - 5005,5006,5007,5008,5009,5010,5011,5012,5013,5014,5015,5016, & - 5017,5018,5019,5020,5021,5022,5023,5024,5025,5026,5027,5028, & - 5029,5030,5031,5032,5033,5034,5035,5036,5037,5038,5039,5040 /) - INTEGER, PARAMETER, DIMENSION(220) :: LOOKAT_14 = (/ & - 5041,5042,5043,5044,5045,5046,5047,5048,5049,5050,5051,5052, & - 5053,5054,5055,5056,5057,5058,5059,5060,5061,5062,5063,5064, & - 5065,5066,5067,5068,5069,5070,5071,5072,5073,5074,5075,5076, & - 5077,5078,5079,5080,5081,5082,5083,5084,5085,5086,5087,5088, & - 5089,5090,5091,5092,5093,5094,5095,5096,5097,5098,5099,5100, & - 5101,5102,5103,5104,5105,5106,5107,5108,5109,5110,5111,5112, & - 5113,5114,5115,5116,5117,5118,5119,5120,5121,5122,5123,5124, & - 5125,5126,5127,5128,5129,5130,5131,5132,5133,5134,5135,5136, & - 5137,5138,5139,5140,5141,5142,5143,5144,5145,5146,5147,5148, & - 5149,5150,5151,5152,5153,5154,5155,5156,5157,5158,5159,5160, & - 5161,5162,5163,5164,5165,5166,5167,5168,5169,5170,5171,5172, & - 5173,5174,5175,5176,5177,5178,5179,5180,5181,5182,5183,5184, & - 5185,5186,5187,5188,5189,5190,5191,5192,5193,5194,5195,5196, & - 5197,5198,5199,5200,5201,5202,5203,5204,5205,5206,5207,5208, & - 5209,5210,5211,5212,5213,5214,5215,5216,5217,5218,5219,5220, & - 5221,5222,5223,5224,5225,5226,5227,5228,5229,5230,5231,5232, & - 5233,5234,5235,5236,5237,5238,5239,5240,5241,5242,5243,5244, & - 5245,5246,5247,5248,5249,5250,5251,5252,5253,5254,5255,5256, & - 5257,5258,5259,5260 /) - INTEGER, PARAMETER, DIMENSION(5260) :: LOOKAT = (/& - LOOKAT_0, LOOKAT_1, LOOKAT_2, LOOKAT_3, LOOKAT_4, & - LOOKAT_5, LOOKAT_6, LOOKAT_7, LOOKAT_8, LOOKAT_9, & - LOOKAT_10, LOOKAT_11, LOOKAT_12, LOOKAT_13, LOOKAT_14 /) - - INTEGER, DIMENSION(1) :: MONITOR - CHARACTER(LEN=15), DIMENSION(1) :: SMASS - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_0 = (/ & - ' H2O + M --> H2O + M ', & - ' O --> O3 ', & - ' O + O3 --> M ', & - ' O + NO --> NO2 ', & - ' O + NO2 --> NO ', & - ' O + NO2 --> NO3 ', & - ' O1D --> O ', & - ' NO + O3 --> NO2 ', & - ' NO2 + O3 --> NO3 ', & - ' 2 NO --> 2 NO2 ', & - ' NO + NO3 --> 2 NO2 ', & - ' NO2 + NO3 --> NO + NO2 ', & - ' NO2 + NO3 --> N2O5 ', & - ' O1D --> 2 OH ', & - ' OH + O3 --> HO2 ', & - ' H2 + OH --> HO2 ', & - ' OH + CO --> HO2 ', & - ' H2O2 + OH --> HO2 ', & - ' HO2 + O3 --> OH ', & - ' OH + HO2 --> M ', & - ' 2 HO2 --> H2O2 ', & - ' OH + NO --> HONO ', & - ' OH + NO2 --> HNO3 ', & - ' OH + NO3 --> NO2 + HO2 ', & - ' NO + HO2 --> OH + NO2 ', & - ' NO2 + HO2 --> HO2NO2 ', & - ' HO2NO2 + OH --> NO2 ', & - ' HO2 + NO3 --> OH + NO2 ', & - ' HONO + OH --> NO2 ', & - ' HNO3 + OH --> NO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_1 = (/ & - ' O + SO2 --> SO3 ', & - ' OH + SO2 --> HSO3 ', & - ' HSO3 --> SO3 + HO2 ', & - ' HNO3 --> NA ', & - ' N2O5 --> 2 NA ', & - ' SO3 --> SA ', & - ' O3 --> O1D ', & - ' O3 --> O ', & - ' H2O2 --> 2 OH ', & - ' NO2 --> O + NO ', & - ' NO3 --> NO ', & - ' NO3 --> O + NO2 ', & - ' HONO --> OH + NO ', & - ' HNO3 --> OH + NO2 ', & - ' N2O5 --> NO2 + NO3 ', & - ' HO2NO2 --> NO2 + HO2 ', & - ' CH3OH + OH --> HCHO + HO2 ', & - ' C2H5OH + OH --> C2H5O ', & - ' C2H5OH + OH --> CH3CHO + HO2 ', & - ' C2H5OH + OH --> HOCH2CH2O2 ', & - ' NPROPOL + OH --> C2H5CHO + HO2 ', & - ' NPROPOL + OH --> HO1C3O2 ', & - ' NPROPOL + OH --> HYPROPO2 ', & - ' IPROPOL + OH --> CH3COCH3 + HO2 ', & - ' IPROPOL + OH --> IPROPOLO2 ', & - ' NBUTOL + OH --> C3H7CHO + HO2 ', & - ' NBUTOL + OH --> NBUTOLAO2 ', & - ' NBUTOL + OH --> NBUTOLBO2 ', & - ' BUT2OL + OH --> BUT2OLO2 ', & - ' BUT2OL + OH --> MEK + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_2 = (/ & - ' IBUTOL + OH --> IBUTOLBO2 ', & - ' IBUTOL + OH --> IBUTOLCO2 ', & - ' IBUTOL + OH --> IPRCHO + HO2 ', & - ' TBUTOL + OH --> TBUTOLO2 ', & - ' TBUTOL + OH --> TC4H9O ', & - ' PECOH + OH --> DIEK + HO2 ', & - ' PECOH + OH --> HO3C5O2 ', & - ' PECOH + OH --> PE2ENEBO2 ', & - ' IPEAOH + OH --> BUT2CHO + HO2 ', & - ' IPEAOH + OH --> HM2C43O2 ', & - ' IPEAOH + OH --> M2BUOL2O2 ', & - ' ME3BUOL + OH --> C3ME3CHO + HO2 ', & - ' ME3BUOL + OH --> HM33C3O2 ', & - ' ME3BUOL + OH --> ME3BUOLO2 ', & - ' IPECOH + OH --> HO2M2C4O2 ', & - ' IPECOH + OH --> ME2BU2OLO2 ', & - ' IPECOH + OH --> PROL11MO2 ', & - ' IPEBOH + OH --> H2M3C4O2 ', & - ' IPEBOH + OH --> ME2BUOLO2 ', & - ' IPEBOH + OH --> MIPK + HO2 ', & - ' CYHEXOL + OH --> CYHEXOLAO2 ', & - ' CYHEXOL + OH --> CYHEXONE + HO2 ', & - ' MIBKAOH + OH --> MIBKAOHAO2 ', & - ' MIBKAOH + OH --> MIBKAOHBO2 ', & - ' MIBKAOH + OH --> MIBKHO4O2 ', & - ' MIBKAOH --> TBUTOLO2 + CH3CO3 ', & - ' ETHGLY + OH --> HOCH2CHO + HO2 ', & - ' PROPGLY + OH --> ACETOL + HO2 ', & - ' PROPGLY + OH --> CH3CHOHCHO + HO2 ', & - ' MBO + NO3 --> NMBOAO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_3 = (/ & - ' MBO + NO3 --> NMBOBO2 ', & - ' MBO + O3 --> MBOOOA + HCHO ', & - ' MBO + O3 --> CH2OOB + IBUTALOH ', & - ' MBO + OH --> MBOAO2 ', & - ' MBO + OH --> MBOBO2 ', & - ' HCHO --> CO + 2 HO2 ', & - ' HCHO --> H2 + CO ', & - ' HCHO + NO3 --> HNO3 + CO + HO2 ', & - ' HCHO + OH --> CO + HO2 ', & - ' CH3CHO --> CH3O2 + CO + HO2 ', & - ' CH3CHO + NO3 --> HNO3 + CH3CO3 ', & - ' CH3CHO + OH --> CH3CO3 ', & - ' CH3CHO + OH --> HCOCH2O2 ', & - ' C2H5CHO + NO3 --> C2H5CO3 + HNO3 ', & - ' C2H5CHO + OH --> C2H5CO3 ', & - ' C2H5CHO --> C2H5O2 + CO + HO2 ', & - ' C3H7CHO + NO3 --> C3H7CO3 + HNO3 ', & - ' C3H7CHO + OH --> BUTALO2 ', & - ' C3H7CHO + OH --> C3H7CO3 ', & - ' C3H7CHO --> C2H4 + CH3CHO ', & - ' C3H7CHO --> NC3H7O2 + CO + HO2 ', & - ' IPRCHO + NO3 --> IPRCO3 + HNO3 ', & - ' IPRCHO + OH --> IBUTALBO2 ', & - ' IPRCHO + OH --> IBUTALCO2 ', & - ' IPRCHO + OH --> IPRCO3 ', & - ' IPRCHO --> IC3H7O2 + CO + HO2 ', & - ' C4H9CHO + NO3 --> C4H9CO3 + HNO3 ', & - ' C4H9CHO + OH --> C4CHOBO2 ', & - ' C4H9CHO + OH --> C4H9CO3 ', & - ' C4H9CHO --> NC4H9O2 + CO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_4 = (/ & - ' ACR + NO3 --> ACO3 + HNO3 ', & - ' ACR + OH --> ACO3 ', & - ' ACR + OH --> ACRO2 ', & - ' ACR + OH --> OCCOHCO2 ', & - ' ACR --> ACO3 ', & - ' ACR --> C2H4 + CO ', & - ' ACR --> HCHO + CO + HO2 ', & - ' ACR + O3 --> CH2OOB + GLYOX ', & - ' ACR + O3 --> GLYOOB + HCHO ', & - ' MACR --> CH3C2H2O2 + CO + HO2 ', & - ' MACR --> MACO3 + HO2 ', & - ' MACR + NO3 --> MACO3 + HNO3 ', & - ' MACR + O3 --> MGLYOOB + HCHO ', & - ' MACR + O3 --> CH2OOG + MGLYOX ', & - ' MACR + OH --> MACO3 ', & - ' MACR + OH --> MACRO2 ', & - ' MACR + OH --> MACROHO2 ', & - ' C4ALDB + NO3 --> C3DBCO3 + HNO3 ', & - ' C4ALDB + NO3 --> C4CONO3O2 ', & - ' C4ALDB + NO3 --> C4NO3COO2 ', & - ' C4ALDB + O3 --> GLYOOB + CH3CHO ', & - ' C4ALDB + O3 --> CH3CHOOB + GLYOX ', & - ' C4ALDB + OH --> C3DBCO3 ', & - ' C4ALDB + OH --> C4OCCOHCO2 ', & - ' C4ALDB + OH --> COCCOH2CO2 ', & - ' C4ALDB --> CH3CHO + 2 CO + 2 HO2 ', & - ' CH4 + CL --> CH3O2 ', & - ' CH4 + OH --> CH3O2 ', & - ' C2H6 + CL --> C2H5O2 ', & - ' C2H6 + OH --> C2H5O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_5 = (/ & - ' C3H8 + CL --> IC3H7O2 ', & - ' C3H8 + CL --> NC3H7O2 ', & - ' C3H8 + OH --> IC3H7O2 ', & - ' C3H8 + OH --> NC3H7O2 ', & - ' NC4H10 + CL --> NC4H9O2 ', & - ' NC4H10 + CL --> SC4H9O2 ', & - ' NC4H10 + OH --> NC4H9O2 ', & - ' NC4H10 + OH --> SC4H9O2 ', & - ' IC4H10 + CL --> IC4H9O2 ', & - ' IC4H10 + CL --> TC4H9O2 ', & - ' IC4H10 + OH --> IC4H9O2 ', & - ' IC4H10 + OH --> TC4H9O2 ', & - ' NC5H12 + CL --> PEAO2 ', & - ' NC5H12 + CL --> PEBO2 ', & - ' NC5H12 + CL --> PECO2 ', & - ' NC5H12 + OH --> PEAO2 ', & - ' NC5H12 + OH --> PEBO2 ', & - ' NC5H12 + OH --> PECO2 ', & - ' IC5H12 + CL --> IPEAO2 ', & - ' IC5H12 + CL --> IPEBO2 ', & - ' IC5H12 + CL --> IPECO2 ', & - ' IC5H12 + OH --> IPEAO2 ', & - ' IC5H12 + OH --> IPEBO2 ', & - ' IC5H12 + OH --> IPECO2 ', & - ' NEOP + CL --> NEOPO2 ', & - ' NEOP + OH --> NEOPO2 ', & - ' NC6H14 + CL --> HEXAO2 ', & - ' NC6H14 + CL --> HEXBO2 ', & - ' NC6H14 + CL --> HEXCO2 ', & - ' NC6H14 + OH --> HEXAO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_6 = (/ & - ' NC6H14 + OH --> HEXBO2 ', & - ' NC6H14 + OH --> HEXCO2 ', & - ' M2PE + CL --> M2PEAO2 ', & - ' M2PE + CL --> M2PEBO2 ', & - ' M2PE + CL --> M2PECO2 ', & - ' M2PE + CL --> M2PEDO2 ', & - ' M2PE + OH --> M2PEAO2 ', & - ' M2PE + OH --> M2PEBO2 ', & - ' M2PE + OH --> M2PECO2 ', & - ' M2PE + OH --> M2PEDO2 ', & - ' M3PE + CL --> M3PEAO2 ', & - ' M3PE + CL --> M3PEBO2 ', & - ' M3PE + CL --> M3PECO2 ', & - ' M3PE + OH --> M3PEAO2 ', & - ' M3PE + OH --> M3PEBO2 ', & - ' M3PE + OH --> M3PECO2 ', & - ' M22C4 + CL --> M22C43O2 ', & - ' M22C4 + CL --> M22C4O2 ', & - ' M22C4 + CL --> M33C4O2 ', & - ' M22C4 + OH --> M22C43O2 ', & - ' M22C4 + OH --> M22C4O2 ', & - ' M22C4 + OH --> M33C4O2 ', & - ' M23C4 + CL --> M23C43O2 ', & - ' M23C4 + CL --> M23C4O2 ', & - ' M23C4 + OH --> M23C43O2 ', & - ' M23C4 + OH --> M23C4O2 ', & - ' NC7H16 + CL --> HEPTO2 ', & - ' NC7H16 + OH --> HEPTO2 ', & - ' M2HEX + CL --> M2HEXAO2 ', & - ' M2HEX + CL --> M2HEXBO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_7 = (/ & - ' M2HEX + OH --> M2HEXAO2 ', & - ' M2HEX + OH --> M2HEXBO2 ', & - ' M3HEX + CL --> M3HEXAO2 ', & - ' M3HEX + CL --> M3HEXBO2 ', & - ' M3HEX + OH --> M3HEXAO2 ', & - ' M3HEX + OH --> M3HEXBO2 ', & - ' NC8H18 + CL --> OCTO2 ', & - ' NC8H18 + OH --> OCTO2 ', & - ' NC9H20 + CL --> NONO2 ', & - ' NC9H20 + OH --> NONO2 ', & - ' NC10H22 + CL --> DECO2 ', & - ' NC10H22 + OH --> DECO2 ', & - ' NC11H24 + CL --> UDECO2 ', & - ' NC11H24 + OH --> UDECO2 ', & - ' NC12H26 + CL --> DDECO2 ', & - ' NC12H26 + OH --> DDECO2 ', & - ' CHEX + CL --> CHEXO2 ', & - ' CHEX + OH --> CHEXO2 ', & - ' C2H4 + NO3 --> ETHENO3O2 ', & - ' C2H4 + O3 --> CH2OOA + HCHO ', & - ' C2H4 + OH --> HOCH2CH2O2 ', & - ' C3H6 + NO3 --> PRONO3AO2 ', & - ' C3H6 + NO3 --> PRONO3BO2 ', & - ' C3H6 + O3 --> CH2OOB + CH3CHO ', & - ' C3H6 + O3 --> CH3CHOOA + HCHO ', & - ' C3H6 + OH --> HYPROPO2 ', & - ' C3H6 + OH --> IPROPOLO2 ', & - ' BUT1ENE + NO3 --> BU1ENO3O2 ', & - ' BUT1ENE + NO3 --> C43NO34O2 ', & - ' BUT1ENE + O3 --> C2H5CHOOA + HCHO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_8 = (/ & - ' BUT1ENE + O3 --> CH2OOB + C2H5CHO ', & - ' BUT1ENE + OH --> HO3C4O2 ', & - ' BUT1ENE + OH --> NBUTOLAO2 ', & - ' CBUT2ENE + NO3 --> C42NO33O2 ', & - ' CBUT2ENE + O3 --> CH3CHOOB + CH3CHO ', & - ' CBUT2ENE + OH --> BUT2OLO2 ', & - ' TBUT2ENE + NO3 --> C42NO33O2 ', & - ' TBUT2ENE + O3 --> CH3CHOOB + CH3CHO ', & - ' TBUT2ENE + OH --> BUT2OLO2 ', & - ' MEPROPENE + NO3 --> MPRANO3O2 ', & - ' MEPROPENE + NO3 --> MPRBNO3O2 ', & - ' MEPROPENE + O3 --> CH2OOC + CH3COCH3 ', & - ' MEPROPENE + O3 --> CH3CCH3OOA + HCHO ', & - ' MEPROPENE + OH --> IBUTOLBO2 ', & - ' MEPROPENE + OH --> TBUTOLO2 ', & - ' PENT1ENE + NO3 --> C51NO32O2 ', & - ' PENT1ENE + NO3 --> C52NO31O2 ', & - ' PENT1ENE + O3 --> C3H7CHOOA + HCHO ', & - ' PENT1ENE + O3 --> CH2OOB + C3H7CHO ', & - ' PENT1ENE + OH --> PE1ENEAO2 ', & - ' PENT1ENE + OH --> PE1ENEBO2 ', & - ' CPENT2ENE + NO3 --> C52NO33O2 ', & - ' CPENT2ENE + NO3 --> C53NO32O2 ', & - ' CPENT2ENE + O3 --> C2H5CHOOB + CH3CHO ', & - ' CPENT2ENE + O3 --> CH3CHOOB + C2H5CHO ', & - ' CPENT2ENE + OH --> PE2ENEAO2 ', & - ' CPENT2ENE + OH --> PE2ENEBO2 ', & - ' TPENT2ENE + NO3 --> C52NO33O2 ', & - ' TPENT2ENE + NO3 --> C53NO32O2 ', & - ' TPENT2ENE + O3 --> C2H5CHOOB + CH3CHO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_9 = (/ & - ' TPENT2ENE + O3 --> CH3CHOOB + C2H5CHO ', & - ' TPENT2ENE + OH --> PE2ENEAO2 ', & - ' TPENT2ENE + OH --> PE2ENEBO2 ', & - 'ME2BUT1ENE + NO3 --> C4NO32M1O2 ', & - 'ME2BUT1ENE + NO3 --> C4NO32M2O2 ', & - ' ME2BUT1ENE + O3 --> C2H5MECOOA + HCHO ', & - ' ME2BUT1ENE + O3 --> CH2OOC + MEK ', & - ' ME2BUT1ENE + OH --> M2BUOL2O2 ', & - ' ME2BUT1ENE + OH --> PROL11MO2 ', & - 'ME3BUT1ENE + NO3 --> C4M3NO31O2 ', & - 'ME3BUT1ENE + NO3 --> C4M3NO32O2 ', & - ' ME3BUT1ENE + O3 --> CH2OOB + IPRCHO ', & - ' ME3BUT1ENE + O3 --> IPRCHOOA + HCHO ', & - ' ME3BUT1ENE + OH --> ME3BU2OLO2 ', & - ' ME3BUT1ENE + OH --> ME3BUOLO2 ', & - 'ME2BUT2ENE + NO3 --> C4M2NO32O2 ', & - 'ME2BUT2ENE + NO3 --> C4M2NO33O2 ', & - ' ME2BUT2ENE + O3 --> CH3CCH3OOB + CH3CHO ', & - ' ME2BUT2ENE + O3 --> CH3CHOOC + CH3COCH3 ', & - ' ME2BUT2ENE + OH --> ME2BU2OLO2 ', & - ' ME2BUT2ENE + OH --> ME2BUOLO2 ', & - ' HEX1ENE + NO3 --> C65NO36O2 ', & - ' HEX1ENE + NO3 --> C66NO35O2 ', & - ' HEX1ENE + O3 --> CH2OOB + C4H9CHO ', & - ' HEX1ENE + O3 --> NC4H9CHOOA + HCHO ', & - ' HEX1ENE + OH --> C6OH5O2 ', & - ' HEX1ENE + OH --> HO5C6O2 ', & - ' CHEX2ENE + NO3 --> C62NO33O2 ', & - ' CHEX2ENE + NO3 --> C63NO32O2 ', & - ' CHEX2ENE + O3 --> CH3CHOOB + C3H7CHO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_10 = (/ & - ' CHEX2ENE + O3 --> C3H7CHOOB + CH3CHO ', & - ' CHEX2ENE + OH --> C64OH5O2 ', & - ' CHEX2ENE + OH --> C65OH4O2 ', & - ' THEX2ENE + NO3 --> C62NO33O2 ', & - ' THEX2ENE + NO3 --> C63NO32O2 ', & - ' THEX2ENE + O3 --> CH3CHOOB + C3H7CHO ', & - ' THEX2ENE + O3 --> C3H7CHOOB + CH3CHO ', & - ' THEX2ENE + OH --> C64OH5O2 ', & - ' THEX2ENE + OH --> C65OH4O2 ', & - 'DM23BU2ENE + NO3 --> C4ME2NO3O2 ', & - ' DM23BU2ENE + O3 --> CH3CCH3OOC + CH3COCH3 ', & - ' DM23BU2ENE + OH --> C4ME2OHO2 ', & - ' C2H2 + OH --> GLYOX + OH ', & - ' C2H2 + OH --> HCOOH + CO + HO2 ', & - ' BENZENE + OH --> BZBIPERO2 ', & - ' BENZENE + OH --> BZEPOXMUC + HO2 ', & - ' BENZENE + OH --> PHENOL + HO2 ', & - ' TOLUENE + OH --> C6H5CH2O2 ', & - ' TOLUENE + OH --> CRESOL + HO2 ', & - ' TOLUENE + OH --> TLBIPERO2 ', & - ' TOLUENE + OH --> TLEPOXMUC + HO2 ', & - ' OXYL + NO3 --> OXYLO2 + HNO3 ', & - ' OXYL + OH --> OXYBIPERO2 ', & - ' OXYL + OH --> OXYEPOXMUC + HO2 ', & - ' OXYL + OH --> OXYLO2 ', & - ' OXYL + OH --> OXYLOL + HO2 ', & - ' MXYL + NO3 --> MXYLO2 + HNO3 ', & - ' MXYL + OH --> MXYBIPERO2 ', & - ' MXYL + OH --> MXYEPOXMUC + HO2 ', & - ' MXYL + OH --> MXYLO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_11 = (/ & - ' MXYL + OH --> MXYLOL + HO2 ', & - ' PXYL + NO3 --> PXYLO2 + HNO3 ', & - ' PXYL + OH --> PXYBIPERO2 ', & - ' PXYL + OH --> PXYEPOXMUC + HO2 ', & - ' PXYL + OH --> PXYLO2 ', & - ' PXYL + OH --> PXYLOL + HO2 ', & - ' EBENZ + NO3 --> C6H5C2H4O2 + HNO3 ', & - ' EBENZ + OH --> C6H5C2H4O2 ', & - ' EBENZ + OH --> EBENZOL + HO2 ', & - ' EBENZ + OH --> EBZBIPERO2 ', & - ' EBENZ + OH --> EBZPOXMUC + HO2 ', & - ' PBENZ + NO3 --> PHC3O2 + HNO3 ', & - ' PBENZ + OH --> PBENZOL + HO2 ', & - ' PBENZ + OH --> PBZBIPERO2 ', & - ' PBENZ + OH --> PBZPOXMUC + HO2 ', & - ' PBENZ + OH --> PHC3O2 ', & - ' IPBENZ + NO3 --> PHIC3O2 + HNO3 ', & - ' IPBENZ + OH --> IPBENZOL + HO2 ', & - ' IPBENZ + OH --> IPBZBIPRO2 ', & - ' IPBENZ + OH --> IPBZPOXMUC + HO2 ', & - ' IPBENZ + OH --> PHIC3O2 ', & - ' TM123B + NO3 --> TM123BO2 + HNO3 ', & - ' TM123B + OH --> TM123BO2 ', & - ' TM123B + OH --> TM123BOL + HO2 ', & - ' TM123B + OH --> TM123BPRO2 ', & - ' TM123B + OH --> TM123OXMUC + HO2 ', & - ' TM124B + NO3 --> TM124BO2 + HNO3 ', & - ' TM124B + OH --> TM124BO2 ', & - ' TM124B + OH --> TM124BPRO2 ', & - ' TM124B + OH --> TM124OL + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_12 = (/ & - ' TM124B + OH --> TM124OXMUC + HO2 ', & - ' TM135B + NO3 --> TMBO2 + HNO3 ', & - ' TM135B + OH --> TM135BPRO2 ', & - ' TM135B + OH --> TM135BZOL + HO2 ', & - ' TM135B + OH --> TM135OXMUC + HO2 ', & - ' TM135B + OH --> TMBO2 ', & - ' OETHTOL + NO3 --> ETOLO2 + HNO3 ', & - ' OETHTOL + OH --> ETOLO2 ', & - ' OETHTOL + OH --> OETLBIPRO2 ', & - ' OETHTOL + OH --> OETLPOXMUC + HO2 ', & - ' OETHTOL + OH --> OETOH + HO2 ', & - ' METHTOL + NO3 --> ETOLO2 + HNO3 ', & - ' METHTOL + OH --> ETOLO2 ', & - ' METHTOL + OH --> METLBIPRO2 ', & - ' METHTOL + OH --> METLPOXMUC + HO2 ', & - ' METHTOL + OH --> METOH + HO2 ', & - ' PETHTOL + NO3 --> ETOLO2 + HNO3 ', & - ' PETHTOL + OH --> ETOLO2 ', & - ' PETHTOL + OH --> PETLBIPRO2 ', & - ' PETHTOL + OH --> PETLPOXMUC + HO2 ', & - ' PETHTOL + OH --> PETOH + HO2 ', & - ' DIME35EB + NO3 --> DM35EBO2 + HNO3 ', & - ' DIME35EB + OH --> DM35EBO2 ', & - ' DIME35EB + OH --> DMEBIPRO2 ', & - ' DIME35EB + OH --> DMEBPOXMUC + HO2 ', & - ' DIME35EB + OH --> DMEPHOH + HO2 ', & - ' DIET35TOL + NO3 --> DE35TO2 + HNO3 ', & - ' DIET35TOL + OH --> DE35TO2 ', & - ' DIET35TOL + OH --> DEMPHOH + HO2 ', & - ' DIET35TOL + OH --> DETLBIPRO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_13 = (/ & - ' DIET35TOL + OH --> DETLPOXMUC + HO2 ', & - ' STYRENE + NO3 --> NSTYRENO2 ', & - ' STYRENE + O3 --> CH2OOB + BENZAL ', & - ' STYRENE + O3 --> PHCHOOA + HCHO ', & - ' STYRENE + OH --> STYRENO2 ', & - ' BENZAL --> C6H5CO3 + HO2 ', & - ' BENZAL --> C6H5O2 + CO + HO2 ', & - ' BENZAL + NO3 --> C6H5CO3 + HNO3 ', & - ' BENZAL + OH --> C6H5CO3 ', & - ' C4H6 + NO3 --> NBUTDAO2 ', & - ' C4H6 + NO3 --> NBUTDBO2 ', & - ' C4H6 + O3 --> CH2OOD + ACR ', & - ' C4H6 + O3 --> ACROOA + HCHO ', & - ' C4H6 + OH --> BUTDAO2 ', & - ' C4H6 + OH --> BUTDBO2 ', & - ' C4H6 + OH --> BUTDCO2 ', & - ' C5H8 + NO3 --> NISOPO2 ', & - ' C5H8 + O3 --> CH2OOE + MACR ', & - ' C5H8 + O3 --> CH2OOE + MVK ', & - ' C5H8 + O3 --> MACROOA + HCHO ', & - ' C5H8 + O3 --> MVKOOA + HCHO ', & - ' C5H8 + OH --> CISOPA ', & - ' C5H8 + OH --> CISOPC ', & - ' C5H8 + OH --> ISOP34O2 ', & - ' C5H8 + OH --> ME3BU3ECHO + HO2 ', & - ' C5H8 + OH --> PE4E2CO + HO2 ', & - ' C5H8 + OH --> TISOPA ', & - ' C5H8 + OH --> TISOPC ', & - ' CH3OCH3 + NO3 --> CH3OCH2O2 + HNO3 ', & - ' CH3OCH3 + OH --> CH3OCH2O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_14 = (/ & - ' DIETETHER + NO3 --> DIETETO2 + HNO3 ', & - ' DIETETHER + OH --> DIETETO2 ', & - ' DIETETHER + OH --> ETOC2O2 ', & - ' CH3COCH3 + OH --> CH3COCH2O2 ', & - ' CH3COCH3 --> CH3O2 + CH3CO3 ', & - ' MEK + OH --> MEKAO2 ', & - ' MEK + OH --> MEKBO2 ', & - ' MEK + OH --> MEKCO2 ', & - ' MEK --> C2H5O2 + CH3CO3 ', & - ' MPRK + OH --> CO2C54O2 ', & - ' MPRK + OH --> MPRKAO2 ', & - ' MPRK --> NC3H7O2 + CH3CO3 ', & - ' DIEK + OH --> DIEKAO2 ', & - ' DIEK + OH --> DIEKBO2 ', & - ' DIEK --> C2H5O2 + C2H5CO3 ', & - ' MIPK --> IC3H7O2 + CH3CO3 ', & - ' MIPK + OH --> MIPKAO2 ', & - ' MIPK + OH --> MIPKBO2 ', & - ' HEX2ONE + OH --> HEX2ONAO2 ', & - ' HEX2ONE + OH --> HEX2ONBO2 ', & - ' HEX2ONE + OH --> HEX2ONCO2 ', & - ' HEX2ONE --> NC4H9O2 + CH3CO3 ', & - ' HEX3ONE + OH --> HEX3ONAO2 ', & - ' HEX3ONE + OH --> HEX3ONBO2 ', & - ' HEX3ONE + OH --> HEX3ONCO2 ', & - ' HEX3ONE + OH --> HEX3ONDO2 ', & - ' HEX3ONE --> C2H5CO3 + NC3H7O2 ', & - ' MIBK + OH --> MIBKAO2 ', & - ' MIBK + OH --> MIBKBO2 ', & - ' MIBK --> IC4H9O2 + CH3CO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_15 = (/ & - ' MTBK --> TC4H9O2 + CH3CO3 ', & - ' MTBK + OH --> MTBKO2 ', & - ' CYHEXONE + OH --> CYHXONAO2 ', & - ' CYHEXONE --> C2H4 + C3H6 + CO ', & - ' CYHEXONE --> PENT1ENE + CO ', & - ' APINENE + NO3 --> NAPINAO2 ', & - ' APINENE + NO3 --> NAPINBO2 ', & - ' APINENE + O3 --> APINOOA ', & - ' APINENE + O3 --> APINOOB ', & - ' APINENE + OH --> APINAO2 ', & - ' APINENE + OH --> APINBO2 ', & - ' APINENE + OH --> APINCO2 ', & - ' BPINENE + NO3 --> NBPINAO2 ', & - ' BPINENE + NO3 --> NBPINBO2 ', & - ' BPINENE + O3 --> CH2OOF + NOPINONE ', & - ' BPINENE + O3 --> NOPINOOA + HCHO ', & - ' BPINENE + OH --> BPINAO2 ', & - ' BPINENE + OH --> BPINBO2 ', & - ' BPINENE + OH --> BPINCO2 ', & - ' LIMONENE + NO3 --> NLIMO2 ', & - ' LIMONENE + O3 --> LIMOOA ', & - ' LIMONENE + O3 --> LIMOOB ', & - ' LIMONENE + OH --> LIMAO2 ', & - ' LIMONENE + OH --> LIMBO2 ', & - ' LIMONENE + OH --> LIMCO2 ', & - ' BCARY + NO3 --> NBCO2 ', & - ' BCARY + O3 --> BCAOO ', & - ' BCARY + O3 --> BCBOO ', & - ' BCARY + O3 --> BCOOA ', & - ' BCARY + O3 --> BCOOB ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_16 = (/ & - ' BCARY + OH --> BCAO2 ', & - ' BCARY + OH --> BCBO2 ', & - ' BCARY + OH --> BCCO2 ', & - ' C2H5O --> CH3CHO + HO2 ', & - 'HOCH2CH2O2 + HO2 --> HYETHO2H ', & - ' HOCH2CH2O2 + NO --> ETHOHNO3 ', & - ' HOCH2CH2O2 + NO --> HOCH2CH2O + NO2 ', & - 'HOCH2CH2O2 + NO3 --> HOCH2CH2O + NO2 ', & - ' HOCH2CH2O2 --> ETHGLY ', & - ' HOCH2CH2O2 --> HOCH2CH2O ', & - ' HOCH2CH2O2 --> HOCH2CHO ', & - ' HO1C3O2 + HO2 --> HO1C3OOH ', & - ' HO1C3O2 + NO --> HO1C3NO3 ', & - ' HO1C3O2 + NO --> HO1C3O + NO2 ', & - ' HO1C3O2 + NO3 --> HO1C3O + NO2 ', & - ' HO1C3O2 --> HO1C3O ', & - ' HO1C3O2 --> HOC2H4CHO ', & - ' HO1C3O2 --> HOC3H6OH ', & - ' HYPROPO2 + HO2 --> HYPROPO2H ', & - ' HYPROPO2 + NO3 --> HYPROPO + NO2 ', & - ' HYPROPO2 --> ACETOL ', & - ' HYPROPO2 --> HYPROPO ', & - ' HYPROPO2 --> PROPGLY ', & - ' HYPROPO2 + NO --> HYPROPO + NO2 ', & - ' HYPROPO2 + NO --> PROPOLNO3 ', & - ' IPROPOLO2 + HO2 --> IPROPOLO2H ', & - ' IPROPOLO2 + NO --> IPROPOLO + NO2 ', & - ' IPROPOLO2 + NO --> PROLNO3 ', & - ' IPROPOLO2 + NO3 --> IPROPOLO + NO2 ', & - ' IPROPOLO2 --> CH3CHOHCHO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_17 = (/ & - ' IPROPOLO2 --> IPROPOLO ', & - ' IPROPOLO2 --> PROPGLY ', & - ' NBUTOLAO2 + HO2 --> NBUTOLAOOH ', & - ' NBUTOLAO2 + NO --> NBUTOLANO3 ', & - ' NBUTOLAO2 + NO --> NBUTOLAO + NO2 ', & - ' NBUTOLAO2 + NO3 --> NBUTOLAO + NO2 ', & - ' NBUTOLAO2 --> MEKCOH ', & - ' NBUTOLAO2 --> NBUTOLAO ', & - ' NBUTOLAO2 --> NBUTOLAOH ', & - ' NBUTOLBO2 + HO2 --> NBUTOLBOOH ', & - ' NBUTOLBO2 + NO --> NBUTOLBNO3 ', & - ' NBUTOLBO2 + NO --> NBUTOLBO + NO2 ', & - ' NBUTOLBO2 + NO3 --> NBUTOLBO + NO2 ', & - ' NBUTOLBO2 --> HO2C4OH ', & - ' NBUTOLBO2 --> MEKAOH ', & - ' NBUTOLBO2 --> NBUTOLBO ', & - ' BUT2OLO2 + HO2 --> BUT2OLOOH ', & - ' BUT2OLO2 + NO --> BUT2OLAO + NO2 ', & - ' BUT2OLO2 + NO --> BUT2OLNO3 ', & - ' BUT2OLO2 + NO3 --> BUT2OLAO + NO2 ', & - ' BUT2OLO2 --> BUT2OLAO ', & - ' BUT2OLO2 --> BUT2OLO ', & - ' BUT2OLO2 --> BUT2OLOH ', & - ' IBUTOLBO2 + HO2 --> IBUTOLBO2H ', & - ' IBUTOLBO2 + NO --> IBUTOLBNO3 ', & - ' IBUTOLBO2 + NO --> IBUTOLBO + NO2 ', & - ' IBUTOLBO2 + NO3 --> IBUTOLBO + NO2 ', & - ' IBUTOLBO2 --> IBUTOLBO ', & - ' IBUTOLBO2 --> IBUTOLOHB ', & - ' IBUTOLCO2 + HO2 --> IBUTOLCO2H ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_18 = (/ & - ' IBUTOLCO2 + NO --> IBUTOLCNO3 ', & - ' IBUTOLCO2 + NO --> IBUTOLCO + NO2 ', & - ' IBUTOLCO2 + NO3 --> IBUTOLCO + NO2 ', & - ' IBUTOLCO2 --> HOIPRCHO ', & - ' IBUTOLCO2 --> IBUTOLCO ', & - ' IBUTOLCO2 --> IBUTOLOHC ', & - ' TBUTOLO2 + HO2 --> TBUTOLOOH ', & - ' TBUTOLO2 + NO --> TBUTOLNO3 ', & - ' TBUTOLO2 + NO --> TBUTOLO + NO2 ', & - ' TBUTOLO2 + NO3 --> TBUTOLO + NO2 ', & - ' TBUTOLO2 --> IBUTALOH ', & - ' TBUTOLO2 --> IBUTOLOHB ', & - ' TBUTOLO2 --> TBUTOLO ', & - ' TC4H9O --> CH3COCH3 + CH3O2 ', & - ' HO3C5O2 + HO2 --> HO3C5OOH ', & - ' HO3C5O2 + NO --> HO3C5NO3 ', & - ' HO3C5O2 + NO --> HO3C5O + NO2 ', & - ' HO3C5O2 + NO3 --> HO3C5O + NO2 ', & - ' HO3C5O2 --> HO13C5 ', & - ' HO3C5O2 --> HO3C4CHO ', & - ' HO3C5O2 --> HO3C5O ', & - ' PE2ENEBO2 + HO2 --> C53OH2OOH ', & - ' PE2ENEBO2 + NO --> PE2ENEBNO3 ', & - ' PE2ENEBO2 + NO --> PE2ENEBO + NO2 ', & - ' PE2ENEBO2 + NO3 --> PE2ENEBO + NO2 ', & - ' PE2ENEBO2 --> C523OH ', & - ' PE2ENEBO2 --> MPRKAOH ', & - ' PE2ENEBO2 --> PE2ENEBO ', & - ' BUT2CHO --> CH3CHO + C3H6 ', & - ' BUT2CHO --> SC4H9O2 + CO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_19 = (/ & - ' BUT2CHO + NO3 --> BUT2CO3 + HNO3 ', & - ' BUT2CHO + OH --> BUT2CO3 ', & - ' HM2C43O2 + HO2 --> HM2C43OOH ', & - ' HM2C43O2 + NO --> HM2C43NO3 ', & - ' HM2C43O2 + NO --> HM2C43O + NO2 ', & - ' HM2C43O2 + NO3 --> HM2C43O + NO2 ', & - ' HM2C43O2 --> HM2C43O ', & - ' HM2C43O2 --> HO13M2C4 ', & - ' HM2C43O2 --> MIPKBOH ', & - ' M2BUOL2O2 + HO2 --> M2BUOL2OOH ', & - ' M2BUOL2O2 + NO --> M2BUOL2NO3 ', & - ' M2BUOL2O2 + NO --> M2BUOL2O + NO2 ', & - ' M2BUOL2O2 + NO3 --> M2BUOL2O + NO2 ', & - ' M2BUOL2O2 --> M2BUOL2O ', & - ' M2BUOL2O2 --> M2BUOL2OH ', & - ' C3ME3CHO + NO3 --> C3ME3CO3 + HNO3 ', & - ' C3ME3CHO + OH --> C3ME3CHOO2 ', & - ' C3ME3CHO + OH --> C3ME3CO3 ', & - ' HM33C3O2 + HO2 --> HM33C3OOH ', & - ' HM33C3O2 + NO --> HM33C3NO3 ', & - ' HM33C3O2 + NO --> HM33C3O + NO2 ', & - ' HM33C3O2 + NO3 --> HM33C3O + NO2 ', & - ' HM33C3O2 --> HM33C3O ', & - ' HM33C3O2 --> HO2M2C4OH ', & - ' ME3BUOLO2 + HO2 --> ME3BUOLOOH ', & - ' ME3BUOLO2 + NO --> ME3BUOLNO3 ', & - ' ME3BUOLO2 + NO --> ME3BUOLO + NO2 ', & - ' ME3BUOLO2 + NO3 --> ME3BUOLO + NO2 ', & - ' ME3BUOLO2 --> C4ME3HO12 ', & - ' ME3BUOLO2 --> ME3BUOLO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_20 = (/ & - ' ME3BUOLO2 --> ME3CO2BUOL ', & - ' HO2M2C4O2 + HO2 --> HO2M2C4OOH ', & - ' HO2M2C4O2 + NO --> HO2M2C4NO3 ', & - ' HO2M2C4O2 + NO --> HO2M2C4O + NO2 ', & - ' HO2M2C4O2 + NO3 --> HO2M2C4O + NO2 ', & - ' HO2M2C4O2 --> H2M2C3CHO ', & - ' HO2M2C4O2 --> HO2M2C4O ', & - ' HO2M2C4O2 --> HO2M2C4OH ', & - 'ME2BU2OLO2 + HO2 --> M2BU2OLOOH ', & - ' ME2BU2OLO2 + NO --> M2BU2OLNO3 ', & - ' ME2BU2OLO2 + NO --> ME2BU2OLO + NO2 ', & - 'ME2BU2OLO2 + NO3 --> ME2BU2OLO + NO2 ', & - ' ME2BU2OLO2 --> C4ME3HO23 ', & - ' ME2BU2OLO2 --> ME2BU2OLO ', & - ' ME2BU2OLO2 --> MIPKAOH ', & - ' PROL11MO2 + HO2 --> PROL11MOOH ', & - ' PROL11MO2 + NO --> PROL11MNO3 ', & - ' PROL11MO2 + NO --> PROL11MO + NO2 ', & - ' PROL11MO2 + NO3 --> PROL11MO + NO2 ', & - ' PROL11MO2 --> M2BUOL2OH ', & - ' PROL11MO2 --> PROL11MO ', & - ' PROL11MO2 --> PROL1MCHO ', & - ' H2M3C4O2 + HO2 --> H2M3C4OOH ', & - ' H2M3C4O2 + NO --> H2M3C4NO3 ', & - ' H2M3C4O2 + NO --> H2M3C4O + NO2 ', & - ' H2M3C4O2 + NO3 --> H2M3C4O + NO2 ', & - ' H2M3C4O2 --> H2M3C4O ', & - ' H2M3C4O2 --> HO13M2C4 ', & - ' H2M3C4O2 --> HO2C43CHO ', & - ' ME2BUOLO2 + HO2 --> ME2BUOLOOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_21 = (/ & - ' ME2BUOLO2 + NO --> ME2BUOLNO3 ', & - ' ME2BUOLO2 + NO --> ME2BUOLO + NO2 ', & - ' ME2BUOLO2 + NO3 --> ME2BUOLO + NO2 ', & - ' ME2BUOLO2 --> C4ME3HO23 ', & - ' ME2BUOLO2 --> ME2BUOLO ', & - 'CYHEXOLAO2 + HO2 --> CYHXOLAOOH ', & - ' CYHEXOLAO2 + NO --> CYHEXOLAO + NO2 ', & - ' CYHEXOLAO2 + NO --> CYHXOLANO3 ', & - 'CYHEXOLAO2 + NO3 --> CYHEXOLAO + NO2 ', & - ' CYHEXOLAO2 --> CYHEXOLAO ', & - ' CYHEXOLAO2 --> CYHXDIOLA ', & - ' CYHEXOLAO2 --> CYHXOLACO ', & - 'MIBKAOHAO2 + HO2 --> MIBKOHAOOH ', & - ' MIBKAOHAO2 + NO --> MIBKAOHAO + NO2 ', & - 'MIBKAOHAO2 + NO3 --> MIBKAOHAO + NO2 ', & - ' MIBKAOHAO2 --> MIBKAOH3CO ', & - ' MIBKAOHAO2 --> MIBKAOHAO ', & - ' MIBKAOHAO2 --> MIBKOH34 ', & - 'MIBKAOHBO2 + HO2 --> MIBKOHBOOH ', & - ' MIBKAOHBO2 + NO --> MIBKAOHBO + NO2 ', & - ' MIBKAOHBO2 + NO --> MIBKAOHNO3 ', & - 'MIBKAOHBO2 + NO3 --> MIBKAOHBO + NO2 ', & - ' MIBKAOHBO2 --> C64OH ', & - ' MIBKAOHBO2 --> C65OH ', & - ' MIBKAOHBO2 --> MIBKAOHBO ', & - ' MIBKHO4O2 + HO2 --> MIBKHO4OOH ', & - ' MIBKHO4O2 + NO --> MIBKHO4O + NO2 ', & - ' MIBKHO4O2 + NO3 --> MIBKHO4O + NO2 ', & - ' MIBKHO4O2 --> MIBKHO14 ', & - ' MIBKHO4O2 --> MIBKHO4CHO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_22 = (/ & - ' MIBKHO4O2 --> MIBKHO4O ', & - ' CH3CO3 + HO2 --> CH3CO2H + O3 ', & - ' CH3CO3 + HO2 --> CH3CO3H ', & - ' CH3CO3 + HO2 --> CH3O2 + OH ', & - ' CH3CO3 + NO --> CH3O2 + NO2 ', & - ' CH3CO3 + NO2 --> PAN ', & - ' CH3CO3 + NO3 --> CH3O2 + NO2 ', & - ' CH3CO3 --> CH3CO2H ', & - ' CH3CO3 --> CH3O2 ', & - ' HOCH2CHO + NO3 --> HNO3 + HOCH2CO3 ', & - ' HOCH2CHO + OH --> GLYOX + HO2 ', & - ' HOCH2CHO + OH --> HOCH2CO3 ', & - ' HOCH2CHO --> HCHO + CO + 2 HO2 ', & - ' ACETOL + OH --> MGLYOX + HO2 ', & - ' ACETOL --> HCHO + CH3CO3 + HO2 ', & - 'CH3CHOHCHO + NO3 --> CH3CHOHCO3 + HNO3 ', & - ' CH3CHOHCHO + OH --> CH3CHOHCO3 ', & - ' CH3CHOHCHO --> CH3CHO + CO + 2 HO2 ', & - ' NMBOAO2 + HO2 --> NMBOAOOH ', & - ' NMBOAO2 + NO --> NMBOAO + NO2 ', & - ' NMBOAO2 + NO3 --> NMBOAO + NO2 ', & - ' NMBOAO2 --> C4MCONO3OH ', & - ' NMBOAO2 --> MBOBNO3 ', & - ' NMBOAO2 --> NMBOAO ', & - ' NMBOBO2 + HO2 --> NMBOBOOH ', & - ' NMBOBO2 + NO --> NMBOBO + NO2 ', & - ' NMBOBO2 + NO3 --> NMBOBO + NO2 ', & - ' NMBOBO2 --> MBOANO3 ', & - ' NMBOBO2 --> NMBOBCO ', & - ' NMBOBO2 --> NMBOBO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_23 = (/ & - ' MBOOOA --> CH3COCH3 + OH + CO + HO2 ', & - ' MBOOOA --> CH3COCH3 + 2 HO2 ', & - ' MBOOOA --> IPROPOL ', & - ' MBOOOA --> MBOOO ', & - ' IBUTALOH + OH --> IPRHOCO3 ', & - ' IBUTALOH --> CH3COCH3 + CO + 2 HO2 ', & - ' CH2OOB --> CH2OO ', & - ' CH2OOB --> CO ', & - ' CH2OOB --> OH + CO + HO2 ', & - ' MBOAO2 + HO2 --> MBOAOOH ', & - ' MBOAO2 + NO --> MBOANO3 ', & - ' MBOAO2 + NO --> MBOAO + NO2 ', & - ' MBOAO2 + NO3 --> MBOAO + NO2 ', & - ' MBOAO2 --> MBOACO ', & - ' MBOAO2 --> MBOAO ', & - ' MBOAO2 --> MBOAOH ', & - ' MBOBO2 + HO2 --> MBOBOOH ', & - ' MBOBO2 + NO --> MBOBNO3 ', & - ' MBOBO2 + NO --> MBOBO + NO2 ', & - ' MBOBO2 + NO3 --> MBOBO + NO2 ', & - ' MBOBO2 --> MBOAOH ', & - ' MBOBO2 --> MBOBCO ', & - ' MBOBO2 --> MBOBO ', & - ' CH3O2 + HO2 --> CH3OOH ', & - ' CH3O2 + HO2 --> HCHO ', & - ' CH3O2 + NO --> CH3NO3 ', & - ' CH3O2 + NO --> CH3O + NO2 ', & - ' CH3O2 + NO2 --> CH3O2NO2 ', & - ' CH3O2 + NO3 --> CH3O + NO2 ', & - ' CH3O2 --> CH3O ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_24 = (/ & - ' CH3O2 --> CH3OH ', & - ' CH3O2 --> HCHO ', & - ' HCOCH2O2 + HO2 --> HCOCH2OOH ', & - ' HCOCH2O2 + NO --> HCOCH2O + NO2 ', & - ' HCOCH2O2 + NO3 --> HCOCH2O + NO2 ', & - ' HCOCH2O2 --> GLYOX ', & - ' HCOCH2O2 --> HCOCH2O ', & - ' HCOCH2O2 --> HOCH2CHO ', & - ' C2H5CO3 + HO2 --> C2H5O2 + OH ', & - ' C2H5CO3 + HO2 --> PERPROACID ', & - ' C2H5CO3 + HO2 --> PROPACID + O3 ', & - ' C2H5CO3 + NO --> C2H5O2 + NO2 ', & - ' C2H5CO3 + NO2 --> PPN ', & - ' C2H5CO3 + NO3 --> C2H5O2 + NO2 ', & - ' C2H5CO3 --> C2H5O2 ', & - ' C2H5CO3 --> PROPACID ', & - ' C2H5O2 + HO2 --> C2H5OOH ', & - ' C2H5O2 + NO --> C2H5NO3 ', & - ' C2H5O2 + NO --> C2H5O + NO2 ', & - ' C2H5O2 + NO3 --> C2H5O + NO2 ', & - ' C2H5O2 --> C2H5O ', & - ' C2H5O2 --> C2H5OH ', & - ' C2H5O2 --> CH3CHO ', & - ' C3H7CO3 + HO2 --> BUTACID + O3 ', & - ' C3H7CO3 + HO2 --> NC3H7O2 + OH ', & - ' C3H7CO3 + HO2 --> PERBUACID ', & - ' C3H7CO3 + NO --> NC3H7O2 + NO2 ', & - ' C3H7CO3 + NO2 --> PBN ', & - ' C3H7CO3 + NO3 --> NC3H7O2 + NO2 ', & - ' C3H7CO3 --> BUTACID ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_25 = (/ & - ' C3H7CO3 --> NC3H7O2 ', & - ' BUTALO2 + HO2 --> BUTALO2H ', & - ' BUTALO2 + NO --> BUTALNO3 ', & - ' BUTALO2 + NO --> BUTALO + NO2 ', & - ' BUTALO2 + NO3 --> BUTALO + NO2 ', & - ' BUTALO2 --> BUTALO ', & - ' BUTALO2 --> CO2C3CHO ', & - ' BUTALO2 --> HO2C3CHO ', & - ' NC3H7O2 + HO2 --> NC3H7OOH ', & - ' NC3H7O2 + NO --> NC3H7NO3 ', & - ' NC3H7O2 + NO --> NC3H7O + NO2 ', & - ' NC3H7O2 + NO3 --> NC3H7O + NO2 ', & - ' NC3H7O2 --> C2H5CHO ', & - ' NC3H7O2 --> NC3H7O ', & - ' NC3H7O2 --> NPROPOL ', & - ' IPRCO3 + HO2 --> IBUTACID + O3 ', & - ' IPRCO3 + HO2 --> IC3H7O2 + OH ', & - ' IPRCO3 + HO2 --> PERIBUACID ', & - ' IPRCO3 + NO --> IC3H7O2 + NO2 ', & - ' IPRCO3 + NO2 --> PIPN ', & - ' IPRCO3 + NO3 --> IC3H7O2 + NO2 ', & - ' IPRCO3 --> IBUTACID ', & - ' IPRCO3 --> IC3H7O2 ', & - ' IBUTALBO2 + HO2 --> IBUTALBO2H ', & - ' IBUTALBO2 + NO --> IBUALANO3 ', & - ' IBUTALBO2 + NO --> IBUTALBO + NO2 ', & - ' IBUTALBO2 + NO3 --> IBUTALBO + NO2 ', & - ' IBUTALBO2 --> HOIPRCHO ', & - ' IBUTALBO2 --> IBUTALBO ', & - ' IBUTALBO2 --> IBUTDIAL ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_26 = (/ & - ' IBUTALCO2 + HO2 --> IBUTALO2H ', & - ' IBUTALCO2 + NO --> M2PROPAL2O + NO2 ', & - ' IBUTALCO2 + NO3 --> M2PROPAL2O + NO2 ', & - ' IBUTALCO2 --> IBUTALOH ', & - ' IBUTALCO2 --> M2PROPAL2O ', & - ' IC3H7O2 + HO2 --> IC3H7OOH ', & - ' IC3H7O2 + NO --> IC3H7NO3 ', & - ' IC3H7O2 + NO --> IC3H7O + NO2 ', & - ' IC3H7O2 + NO3 --> IC3H7O + NO2 ', & - ' IC3H7O2 --> CH3COCH3 ', & - ' IC3H7O2 --> IC3H7O ', & - ' IC3H7O2 --> IPROPOL ', & - ' C4H9CO3 + HO2 --> NC4H9O2 + OH ', & - ' C4H9CO3 + HO2 --> PENTACID + O3 ', & - ' C4H9CO3 + HO2 --> PERPENACID ', & - ' C4H9CO3 + NO --> NC4H9O2 + NO2 ', & - ' C4H9CO3 + NO2 --> PPEN ', & - ' C4H9CO3 + NO3 --> NC4H9O2 + NO2 ', & - ' C4H9CO3 --> NC4H9O2 ', & - ' C4H9CO3 --> PENTACID ', & - ' C4CHOBO2 + HO2 --> C4CHOBOOH ', & - ' C4CHOBO2 + NO --> C4CHOBNO3 ', & - ' C4CHOBO2 + NO --> C4CHOBO + NO2 ', & - ' C4CHOBO2 + NO3 --> C4CHOBO + NO2 ', & - ' C4CHOBO2 --> C4CHOBO ', & - ' C4CHOBO2 --> CO3C4CHO ', & - ' C4CHOBO2 --> HO3C4CHO ', & - ' NC4H9O2 + HO2 --> NC4H9OOH ', & - ' NC4H9O2 + NO --> NC4H9NO3 ', & - ' NC4H9O2 + NO --> NC4H9O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_27 = (/ & - ' NC4H9O2 + NO3 --> NC4H9O + NO2 ', & - ' NC4H9O2 --> C3H7CHO ', & - ' NC4H9O2 --> NBUTOL ', & - ' NC4H9O2 --> NC4H9O ', & - ' ACO3 + HO2 --> ACO2H + O3 ', & - ' ACO3 + HO2 --> ACO3H ', & - ' ACO3 + HO2 --> HCHO + OH + CO + HO2 ', & - ' ACO3 + NO --> HCHO + CO + NO2 + HO2 ', & - ' ACO3 + NO2 --> ACRPAN ', & - ' ACO3 + NO3 --> HCHO + CO + NO2 + HO2 ', & - ' ACO3 --> ACO2H ', & - ' ACO3 --> HCHO + CO + HO2 ', & - ' ACRO2 + HO2 --> HOCHOCOOH ', & - ' ACRO2 + NO --> CHOCOHCO + NO2 ', & - ' ACRO2 + NO3 --> CHOCOHCO + NO2 ', & - ' ACRO2 --> CHOCOHCO ', & - ' ACRO2 --> HOCH2CHO + OH + CO ', & - ' ACRO2 --> HOCH2COCHO ', & - ' ACRO2 --> OCCOHCOH ', & - ' OCCOHCO2 + HO2 --> C32OH13CO + O3 ', & - ' OCCOHCO2 + HO2 --> OCCOHCOOH ', & - ' OCCOHCO2 + NO --> C42AOH ', & - ' OCCOHCO2 + NO --> OCCOHCO + NO2 ', & - ' OCCOHCO2 + NO3 --> C42AOH + NO2 ', & - ' OCCOHCO2 --> C32OH13CO ', & - ' OCCOHCO2 --> OCCOHCO ', & - ' OCCOHCO2 --> OCCOHCOH ', & - ' GLYOX --> H2 + 2 CO ', & - ' GLYOX --> 2 CO + 2 HO2 ', & - ' GLYOX --> HCHO + CO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_28 = (/ & - ' GLYOX + NO3 --> HCOCO + HNO3 ', & - ' GLYOX + OH --> HCOCO ', & - ' GLYOOB --> GLYOO ', & - ' GLYOOB --> HCHO ', & - ' GLYOOB --> CO + 2 HO2 ', & - ' GLYOOB --> OH + 2 CO + HO2 ', & - ' CH3C2H2O2 --> HCHO + CH3CO3 ', & - ' CH3C2H2O2 --> CH3O2 + HCHO + CO ', & - ' MACO3 + HO2 --> CH3C2H2O2 + OH ', & - ' MACO3 + HO2 --> MACO2H + O3 ', & - ' MACO3 + HO2 --> MACO3H ', & - ' MACO3 + NO --> CH3C2H2O2 + NO2 ', & - ' MACO3 + NO2 --> MPAN ', & - ' MACO3 + NO3 --> CH3C2H2O2 + NO2 ', & - ' MACO3 --> CH3C2H2O2 ', & - ' MACO3 --> MACO2H ', & - ' MGLYOOB --> MGLYOO ', & - ' MGLYOOB --> CH3CO3 + OH + CO ', & - ' MGLYOX --> CH3CO3 + CO + HO2 ', & - ' MGLYOX + NO3 --> HNO3 + CH3CO3 + CO ', & - ' MGLYOX + OH --> CH3CO3 + CO ', & - ' CH2OOG --> CH2OO ', & - ' CH2OOG --> CO ', & - ' CH2OOG --> OH + CO + HO2 ', & - ' MACRO2 + HO2 --> MACROOH ', & - ' MACRO2 + NO --> MACRNO3 ', & - ' MACRO2 + NO --> MACRO + NO2 ', & - ' MACRO2 + NO3 --> MACRO + NO2 ', & - ' MACRO2 --> ACETOL + OH + CO ', & - ' MACRO2 --> MACRO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_29 = (/ & - ' MACRO2 --> MACROH ', & - ' MACROHO2 + HO2 --> MACROHOOH ', & - ' MACROHO2 + NO --> MACRNB ', & - ' MACROHO2 + NO --> MACROHO + NO2 ', & - ' MACROHO2 + NO3 --> MACROHO + NO2 ', & - ' MACROHO2 --> C3MDIALOH ', & - ' MACROHO2 --> MACROH ', & - ' MACROHO2 --> MACROHO ', & - ' C3DBCO3 + HO2 --> C3DBCO3H ', & - ' C3DBCO3 + HO2 --> C3H5CO2H + O3 ', & - ' C3DBCO3 + HO2 --> CH3CHO + OH + CO + HO2 ', & - ' C3DBCO3 + NO --> CH3CHO + CO + NO2 + HO2 ', & - ' C3DBCO3 + NO2 --> C3DBPAN ', & - ' C3DBCO3 + NO3 --> CH3CHO + CO + NO2 + HO2 ', & - ' C3DBCO3 --> C3H5CO2H ', & - ' C3DBCO3 --> CH3CHO + CO + HO2 ', & - ' C4CONO3O2 + HO2 --> C4CONO3OOH ', & - ' C4CONO3O2 + NO --> C4CONO3O + NO2 ', & - ' C4CONO3O2 + NO3 --> C4CONO3O + NO2 ', & - ' C4CONO3O2 --> C4CONO3CO ', & - ' C4CONO3O2 --> C4CONO3O ', & - ' C4CONO3O2 --> COCCOHNO3 ', & - ' C4NO3COO2 + HO2 --> C4NO3COOOH ', & - ' C4NO3COO2 + NO --> C4NO3OCO + NO2 ', & - ' C4NO3COO2 + NO3 --> C4NO3OCO + NO2 ', & - ' C4NO3COO2 --> C4CONO3CO ', & - ' C4NO3COO2 --> C4NO3OCO ', & - ' C4NO3COO2 --> C4OCCOHNO3 ', & - ' CH3CHOOB --> CH3CHOO ', & - ' CH3CHOOB --> CH3O2 + OH + CO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_30 = (/ & - ' CH3CHOOB --> CH3O2 + HO2 ', & - ' CH3CHOOB --> CH4 ', & - 'C4OCCOHCO2 + HO2 --> C4OCCOHOOH ', & - ' C4OCCOHCO2 + NO --> C4OCCOHCO + NO2 ', & - ' C4OCCOHCO2 + NO --> C4OCCOHNO3 ', & - 'C4OCCOHCO2 + NO3 --> C4OCCOHCO + NO2 ', & - ' C4OCCOHCO2 --> C4OCCOHCO ', & - ' C4OCCOHCO2 --> C4OCCOHCOH ', & - ' C4OCCOHCO2 --> CO2H3CHO ', & - 'COCCOH2CO2 + HO2 --> COCCOHCOOH ', & - ' COCCOH2CO2 + NO --> COCCOHCO + NO2 ', & - 'COCCOH2CO2 + NO3 --> COCCOHCO + NO2 ', & - ' COCCOH2CO2 --> C4OCCOHCOH ', & - ' COCCOH2CO2 --> CCOCOCOH ', & - ' COCCOH2CO2 --> COCCOHCO ', & - ' SC4H9O2 + HO2 --> SC4H9OOH ', & - ' SC4H9O2 + NO --> SC4H9NO3 ', & - ' SC4H9O2 + NO --> SC4H9O + NO2 ', & - ' SC4H9O2 + NO3 --> SC4H9O + NO2 ', & - ' SC4H9O2 --> BUT2OL ', & - ' SC4H9O2 --> MEK ', & - ' SC4H9O2 --> SC4H9O ', & - ' IC4H9O2 + HO2 --> IC4H9OOH ', & - ' IC4H9O2 + NO --> IC4H9NO3 ', & - ' IC4H9O2 + NO --> IC4H9O + NO2 ', & - ' IC4H9O2 + NO3 --> IC4H9O + NO2 ', & - ' IC4H9O2 --> IBUTOL ', & - ' IC4H9O2 --> IC4H9O ', & - ' IC4H9O2 --> IPRCHO ', & - ' TC4H9O2 + HO2 --> TC4H9OOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_31 = (/ & - ' TC4H9O2 + NO --> TC4H9NO3 ', & - ' TC4H9O2 + NO --> TC4H9O + NO2 ', & - ' TC4H9O2 + NO3 --> TC4H9O + NO2 ', & - ' TC4H9O2 --> TBUTOL ', & - ' TC4H9O2 --> TC4H9O ', & - ' PEAO2 + HO2 --> PEAOOH ', & - ' PEAO2 + NO --> PEANO3 ', & - ' PEAO2 + NO --> PEAO + NO2 ', & - ' PEAO2 + NO3 --> PEAO + NO2 ', & - ' PEAO2 --> C4H9CHO ', & - ' PEAO2 --> PEAO ', & - ' PEAO2 --> PEAOH ', & - ' PEBO2 + HO2 --> PEBOOH ', & - ' PEBO2 + NO --> PEBNO3 ', & - ' PEBO2 + NO --> PEBO + NO2 ', & - ' PEBO2 + NO3 --> PEBO + NO2 ', & - ' PEBO2 --> MPRK ', & - ' PEBO2 --> PEBO ', & - ' PEBO2 --> PEBOH ', & - ' PECO2 + HO2 --> PECOOH ', & - ' PECO2 + NO --> PECNO3 ', & - ' PECO2 + NO --> PECO + NO2 ', & - ' PECO2 + NO3 --> PECO + NO2 ', & - ' PECO2 --> DIEK ', & - ' PECO2 --> PECO ', & - ' PECO2 --> PECOH ', & - ' IPEAO2 + HO2 --> IPEAOOH ', & - ' IPEAO2 + NO --> IPEANO3 ', & - ' IPEAO2 + NO --> IPEAO + NO2 ', & - ' IPEAO2 + NO3 --> IPEAO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_32 = (/ & - ' IPEAO2 --> BUT2CHO ', & - ' IPEAO2 --> IPEAO ', & - ' IPEAO2 --> IPEAOH ', & - ' IPEBO2 + HO2 --> IPEBOOH ', & - ' IPEBO2 + NO --> IPEBNO3 ', & - ' IPEBO2 + NO --> IPEBO + NO2 ', & - ' IPEBO2 + NO3 --> IPEBO + NO2 ', & - ' IPEBO2 --> IPEBO ', & - ' IPEBO2 --> IPEBOH ', & - ' IPEBO2 --> MIPK ', & - ' IPECO2 + HO2 --> IPECOOH ', & - ' IPECO2 + NO --> IPECNO3 ', & - ' IPECO2 + NO --> IPECO + NO2 ', & - ' IPECO2 + NO3 --> IPECO + NO2 ', & - ' IPECO2 --> IPECO ', & - ' IPECO2 --> IPECOH ', & - ' NEOPO2 + HO2 --> NEOPOOH ', & - ' NEOPO2 + NO --> NEOPNO3 ', & - ' NEOPO2 + NO --> NEOPO + NO2 ', & - ' NEOPO2 + NO3 --> NEOPO + NO2 ', & - ' NEOPO2 --> IPECO ', & - ' NEOPO2 --> NEOPOH ', & - ' NEOPO2 --> TBUTCHO ', & - ' HEXAO2 + HO2 --> HEXAOOH ', & - ' HEXAO2 + NO --> HEXANO3 ', & - ' HEXAO2 + NO --> HEXAO + NO2 ', & - ' HEXAO2 + NO3 --> HEXAO + NO2 ', & - ' HEXAO2 --> C5H11CHO ', & - ' HEXAO2 --> HEXAO ', & - ' HEXAO2 --> HEXAOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_33 = (/ & - ' HEXBO2 + HO2 --> HEXBOOH ', & - ' HEXBO2 + NO --> HEXBNO3 ', & - ' HEXBO2 + NO --> HEXBO + NO2 ', & - ' HEXBO2 + NO3 --> HEXBO + NO2 ', & - ' HEXBO2 --> HEX2ONE ', & - ' HEXBO2 --> HEXBO ', & - ' HEXBO2 --> HEXBOH ', & - ' HEXCO2 + HO2 --> HEXCOOH ', & - ' HEXCO2 + NO --> HEXCNO3 ', & - ' HEXCO2 + NO --> HEXCO + NO2 ', & - ' HEXCO2 + NO3 --> HEXCO + NO2 ', & - ' HEXCO2 --> HEX3ONE ', & - ' HEXCO2 --> HEXCO ', & - ' HEXCO2 --> HEXCOH ', & - ' M2PEAO2 + HO2 --> M2PEAOOH ', & - ' M2PEAO2 + NO --> M2PEANO3 ', & - ' M2PEAO2 + NO --> M2PEAO + NO2 ', & - ' M2PEAO2 + NO3 --> M2PEAO + NO2 ', & - ' M2PEAO2 --> C54CHO ', & - ' M2PEAO2 --> M2PEAO ', & - ' M2PEAO2 --> M2PEAOH ', & - ' M2PEBO2 + HO2 --> M2PEBOOH ', & - ' M2PEBO2 + NO --> M2PEBNO3 ', & - ' M2PEBO2 + NO --> M2PEBO + NO2 ', & - ' M2PEBO2 + NO3 --> M2PEBO + NO2 ', & - ' M2PEBO2 --> M2PEBO ', & - ' M2PEBO2 --> M2PEBOH ', & - ' M2PEBO2 --> MIBK ', & - ' M2PECO2 + HO2 --> M2PECOOH ', & - ' M2PECO2 + NO --> M2PECNO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_34 = (/ & - ' M2PECO2 + NO --> M2PECO + NO2 ', & - ' M2PECO2 + NO3 --> M2PECO + NO2 ', & - ' M2PECO2 --> EIPK ', & - ' M2PECO2 --> M2PECO ', & - ' M2PECO2 --> M2PECOH ', & - ' M2PEDO2 + HO2 --> M2PEDOOH ', & - ' M2PEDO2 + NO --> M2PEDNO3 ', & - ' M2PEDO2 + NO --> M2PEDO + NO2 ', & - ' M2PEDO2 + NO3 --> M2PEDO + NO2 ', & - ' M2PEDO2 --> M2PEDO ', & - ' M2PEDO2 --> M2PEDOH ', & - ' M3PEAO2 + HO2 --> M3PEAOOH ', & - ' M3PEAO2 + NO --> M3PEANO3 ', & - ' M3PEAO2 + NO --> M3PEAO + NO2 ', & - ' M3PEAO2 + NO3 --> M3PEAO + NO2 ', & - ' M3PEAO2 --> M3C4CHO ', & - ' M3PEAO2 --> M3PEAO ', & - ' M3PEAO2 --> M3PEAOH ', & - ' M3PEBO2 + HO2 --> M3PEBOOH ', & - ' M3PEBO2 + NO --> M3PEBNO3 ', & - ' M3PEBO2 + NO --> M3PEBO + NO2 ', & - ' M3PEBO2 + NO3 --> M3PEBO + NO2 ', & - ' M3PEBO2 --> M2BK ', & - ' M3PEBO2 --> M3PEBO ', & - ' M3PEBO2 --> M3PEBOH ', & - ' M3PECO2 + HO2 --> M3PECOOH ', & - ' M3PECO2 + NO --> M3PECNO3 ', & - ' M3PECO2 + NO --> M3PECO + NO2 ', & - ' M3PECO2 + NO3 --> M3PECO + NO2 ', & - ' M3PECO2 --> M3PECO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_35 = (/ & - ' M3PECO2 --> M3PECOH ', & - ' M22C43O2 + HO2 --> M22C43OOH ', & - ' M22C43O2 + NO --> M22C43NO3 ', & - ' M22C43O2 + NO --> M22C43O + NO2 ', & - ' M22C43O2 + NO3 --> M22C43O + NO2 ', & - ' M22C43O2 --> M22C43O ', & - ' M22C43O2 --> M22C43OH ', & - ' M22C43O2 --> MTBK ', & - ' M22C4O2 + HO2 --> M22C4OOH ', & - ' M22C4O2 + NO --> M22C4NO3 ', & - ' M22C4O2 + NO --> M22C4O + NO2 ', & - ' M22C4O2 + NO3 --> M22C4O + NO2 ', & - ' M22C4O2 --> M22C3CHO ', & - ' M22C4O2 --> M22C4O ', & - ' M22C4O2 --> M22C4OH ', & - ' M33C4O2 + HO2 --> M33C4OOH ', & - ' M33C4O2 + NO --> M33C4NO3 ', & - ' M33C4O2 + NO --> M33C4O + NO2 ', & - ' M33C4O2 + NO3 --> M33C4O + NO2 ', & - ' M33C4O2 --> M33C3CHO ', & - ' M33C4O2 --> M33C4O ', & - ' M33C4O2 --> M33C4OH ', & - ' M23C43O2 + HO2 --> M23C43OOH ', & - ' M23C43O2 + NO --> M23C43NO3 ', & - ' M23C43O2 + NO --> M23C43O + NO2 ', & - ' M23C43O2 + NO3 --> M23C43O + NO2 ', & - ' M23C43O2 --> M23C43O ', & - ' M23C43O2 --> M23C43OH ', & - ' M23C4O2 + HO2 --> M23C4OOH ', & - ' M23C4O2 + NO --> M23C4NO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_36 = (/ & - ' M23C4O2 + NO --> M23C4O + NO2 ', & - ' M23C4O2 + NO3 --> M23C4O + NO2 ', & - ' M23C4O2 --> M23C4O ', & - ' M23C4O2 --> M23C4OH ', & - ' M23C4O2 --> M2C43CHO ', & - ' HEPTO2 + HO2 --> HEPTOOH ', & - ' HEPTO2 + NO --> HEPTNO3 ', & - ' HEPTO2 + NO --> HEPTO + NO2 ', & - ' HEPTO2 + NO3 --> HEPTO + NO2 ', & - ' HEPTO2 --> HEPT3ONE ', & - ' HEPTO2 --> HEPTO ', & - ' HEPTO2 --> HEPTOH ', & - ' M2HEXAO2 + HO2 --> M2HEXAOOH ', & - ' M2HEXAO2 + NO --> M2HEXANO3 ', & - ' M2HEXAO2 + NO --> M2HEXAO + NO2 ', & - ' M2HEXAO2 + NO3 --> M2HEXAO + NO2 ', & - ' M2HEXAO2 --> M2CO5C6 ', & - ' M2HEXAO2 --> M2HEXAO ', & - ' M2HEXAO2 --> M2HEXAOH ', & - ' M2HEXBO2 + HO2 --> M2HEXBOOH ', & - ' M2HEXBO2 + NO --> M2HEXBNO3 ', & - ' M2HEXBO2 + NO --> M2HEXBO + NO2 ', & - ' M2HEXBO2 + NO3 --> M2HEXBO + NO2 ', & - ' M2HEXBO2 --> M2HEXBO ', & - ' M2HEXBO2 --> M2HEXBOH ', & - ' M3HEXAO2 + HO2 --> M3HEXAOOH ', & - ' M3HEXAO2 + NO --> M3HEXANO3 ', & - ' M3HEXAO2 + NO --> M3HEXAO + NO2 ', & - ' M3HEXAO2 + NO3 --> M3HEXAO + NO2 ', & - ' M3HEXAO2 --> M3CO5C6 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_37 = (/ & - ' M3HEXAO2 --> M3HEXAO ', & - ' M3HEXAO2 --> M3HEXAOH ', & - ' M3HEXBO2 + HO2 --> M3HEXBOOH ', & - ' M3HEXBO2 + NO --> M3HEXBNO3 ', & - ' M3HEXBO2 + NO --> M3HEXBO + NO2 ', & - ' M3HEXBO2 + NO3 --> M3HEXBO + NO2 ', & - ' M3HEXBO2 --> M3HEXBO ', & - ' M3HEXBO2 --> M3HEXBOH ', & - ' OCTO2 + HO2 --> OCTOOH ', & - ' OCTO2 + NO --> OCTNO3 ', & - ' OCTO2 + NO --> OCTO + NO2 ', & - ' OCTO2 + NO3 --> OCTO + NO2 ', & - ' OCTO2 --> OCT3ONE ', & - ' OCTO2 --> OCTO ', & - ' OCTO2 --> OCTOH ', & - ' NONO2 + HO2 --> NONOOH ', & - ' NONO2 + NO --> NONNO3 ', & - ' NONO2 + NO --> NONO + NO2 ', & - ' NONO2 + NO3 --> NONO + NO2 ', & - ' NONO2 --> NON3ONE ', & - ' NONO2 --> NONO ', & - ' NONO2 --> NONOH ', & - ' DECO2 + HO2 --> DECOOH ', & - ' DECO2 + NO --> DECNO3 ', & - ' DECO2 + NO --> DECO + NO2 ', & - ' DECO2 + NO3 --> DECO + NO2 ', & - ' DECO2 --> DEC3ONE ', & - ' DECO2 --> DECO ', & - ' DECO2 --> DECOH ', & - ' UDECO2 + HO2 --> UDECOOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_38 = (/ & - ' UDECO2 + NO --> UDECNO3 ', & - ' UDECO2 + NO --> UDECO + NO2 ', & - ' UDECO2 + NO3 --> UDECO + NO2 ', & - ' UDECO2 --> UDEC3ONE ', & - ' UDECO2 --> UDECO ', & - ' UDECO2 --> UDECOH ', & - ' DDECO2 + HO2 --> DDECOOH ', & - ' DDECO2 + NO --> DDECNO3 ', & - ' DDECO2 + NO --> DDECO + NO2 ', & - ' DDECO2 + NO3 --> DDECO + NO2 ', & - ' DDECO2 --> DDEC3ONE ', & - ' DDECO2 --> DDECO ', & - ' DDECO2 --> DDECOH ', & - ' CHEXO2 + HO2 --> CHEXOOH ', & - ' CHEXO2 + NO --> CHEXNO3 ', & - ' CHEXO2 + NO --> CHEXO + NO2 ', & - ' CHEXO2 + NO3 --> CHEXO + NO2 ', & - ' CHEXO2 --> CHEXO ', & - ' CHEXO2 --> CYHEXOL ', & - ' CHEXO2 --> CYHEXONE ', & - ' ETHENO3O2 + HO2 --> ETHO2HNO3 ', & - ' ETHENO3O2 + NO --> ETHENO3O + NO2 ', & - ' ETHENO3O2 + NO3 --> ETHENO3O + NO2 ', & - ' ETHENO3O2 --> ETHENO3O ', & - ' ETHENO3O2 --> ETHOHNO3 ', & - ' ETHENO3O2 --> NO3CH2CHO ', & - ' CH2OOA --> CH2OO ', & - ' CH2OOA --> CO ', & - ' CH2OOA --> OH + CO + HO2 ', & - ' PRONO3AO2 + HO2 --> PR1O2HNO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_39 = (/ & - ' PRONO3AO2 + NO --> PRONO3AO + NO2 ', & - ' PRONO3AO2 + NO3 --> PRONO3AO + NO2 ', & - ' PRONO3AO2 --> CHOPRNO3 ', & - ' PRONO3AO2 --> PRONO3AO ', & - ' PRONO3AO2 --> PROPOLNO3 ', & - ' PRONO3BO2 + HO2 --> PR2O2HNO3 ', & - ' PRONO3BO2 + NO --> PRONO3BO + NO2 ', & - ' PRONO3BO2 + NO3 --> PRONO3BO + NO2 ', & - ' PRONO3BO2 --> NOA ', & - ' PRONO3BO2 --> PROLNO3 ', & - ' PRONO3BO2 --> PRONO3BO ', & - ' CH3CHOOA --> CH3CHOO ', & - ' CH3CHOOA --> CH3O2 + OH + CO ', & - ' CH3CHOOA --> CH3O2 + HO2 ', & - ' CH3CHOOA --> CH4 ', & - ' BU1ENO3O2 + HO2 --> BU1ENO3OOH ', & - ' BU1ENO3O2 + NO --> BU1ENO3O + NO2 ', & - ' BU1ENO3O2 + NO3 --> BU1ENO3O + NO2 ', & - ' BU1ENO3O2 --> BU1ENO3O ', & - ' BU1ENO3O2 --> CO3C4NO3 ', & - ' BU1ENO3O2 --> HO3C4NO3 ', & - ' C43NO34O2 + HO2 --> C43NO34OOH ', & - ' C43NO34O2 + NO --> C43NO34O + NO2 ', & - ' C43NO34O2 + NO3 --> C43NO34O + NO2 ', & - ' C43NO34O2 --> BUTAL2NO3 ', & - ' C43NO34O2 --> C43NO34O ', & - ' C43NO34O2 --> NBUTOLANO3 ', & - ' C2H5CHOOA --> C2H5CHOO ', & - ' C2H5CHOOA --> C2H5O2 + OH + CO ', & - ' C2H5CHOOA --> C2H5O2 + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_40 = (/ & - ' C2H5CHOOA --> C2H6 ', & - ' HO3C4O2 + HO2 --> HO3C4OOH ', & - ' HO3C4O2 + NO --> HO3C4NO3 ', & - ' HO3C4O2 + NO --> HO3C4O + NO2 ', & - ' HO3C4O2 + NO3 --> HO3C4O + NO2 ', & - ' HO3C4O2 --> HO3C3CHO ', & - ' HO3C4O2 --> HO3C4O ', & - ' HO3C4O2 --> NBUTOLAOH ', & - ' C42NO33O2 + HO2 --> C42NO33OOH ', & - ' C42NO33O2 + NO --> C42NO33O + NO2 ', & - ' C42NO33O2 + NO3 --> C42NO33O + NO2 ', & - ' C42NO33O2 --> BUT2OLNO3 ', & - ' C42NO33O2 --> BUTONENO3 ', & - ' C42NO33O2 --> C42NO33O ', & - ' MPRANO3O2 + HO2 --> MPRANO3OOH ', & - ' MPRANO3O2 + NO --> MPRANO3O + NO2 ', & - ' MPRANO3O2 + NO3 --> MPRANO3O + NO2 ', & - ' MPRANO3O2 --> MPRANO3O ', & - ' MPRANO3O2 --> TBUTOLNO3 ', & - ' MPRBNO3O2 + HO2 --> MPRBNO3OOH ', & - ' MPRBNO3O2 + NO --> MPRBNO3O + NO2 ', & - ' MPRBNO3O2 + NO3 --> MPRBNO3O + NO2 ', & - ' MPRBNO3O2 --> IBUTOLBNO3 ', & - ' MPRBNO3O2 --> MPRBNO3CHO ', & - ' MPRBNO3O2 --> MPRBNO3O ', & - ' CH2OOC --> CH2OO ', & - ' CH2OOC --> OH + CO + HO2 ', & - ' CH3CCH3OOA --> CH3CCH3OO ', & - ' CH3CCH3OOA --> CH3COCH2O2 + OH ', & - ' C51NO32O2 + HO2 --> C51NO32OOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_41 = (/ & - ' C51NO32O2 + NO --> C51NO32O + NO2 ', & - ' C51NO32O2 + NO3 --> C51NO32O + NO2 ', & - ' C51NO32O2 --> C51NO32CO ', & - ' C51NO32O2 --> C51NO32O ', & - ' C51NO32O2 --> PE1ENEBNO3 ', & - ' C52NO31O2 + HO2 --> C52NO31OOH ', & - ' C52NO31O2 + NO --> C52NO31O + NO2 ', & - ' C52NO31O2 + NO3 --> C52NO31O + NO2 ', & - ' C52NO31O2 --> C52NO31CO ', & - ' C52NO31O2 --> C52NO31O ', & - ' C52NO31O2 --> PE1ENEANO3 ', & - ' C3H7CHOOA --> C3H7CHOO ', & - ' C3H7CHOOA --> C3H8 ', & - ' C3H7CHOOA --> NC3H7O2 + OH + CO ', & - ' C3H7CHOOA --> NC3H7O2 + HO2 ', & - ' PE1ENEAO2 + HO2 --> C51OH2OOH ', & - ' PE1ENEAO2 + NO --> PE1ENEANO3 ', & - ' PE1ENEAO2 + NO --> PE1ENEAO + NO2 ', & - ' PE1ENEAO2 + NO3 --> PE1ENEAO + NO2 ', & - ' PE1ENEAO2 --> C51OH2CO ', & - ' PE1ENEAO2 --> HO12C5 ', & - ' PE1ENEAO2 --> PE1ENEAO ', & - ' PE1ENEBO2 + HO2 --> C52OH1OOH ', & - ' PE1ENEBO2 + NO --> PE1ENEBNO3 ', & - ' PE1ENEBO2 + NO --> PE1ENEBO + NO2 ', & - ' PE1ENEBO2 + NO3 --> PE1ENEBO + NO2 ', & - ' PE1ENEBO2 --> C4OHCHO ', & - ' PE1ENEBO2 --> HO12C5 ', & - ' PE1ENEBO2 --> PE1ENEBO ', & - ' C52NO33O2 + HO2 --> C52NO33OOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_42 = (/ & - ' C52NO33O2 + NO --> C52NO33O + NO2 ', & - ' C52NO33O2 + NO3 --> C52NO33O + NO2 ', & - ' C52NO33O2 --> C52NO33CO ', & - ' C52NO33O2 --> C52NO33O ', & - ' C52NO33O2 --> PE2ENEBNO3 ', & - ' C53NO32O2 + HO2 --> C53NO32OOH ', & - ' C53NO32O2 + NO --> C53NO32O + NO2 ', & - ' C53NO32O2 + NO3 --> C53NO32O + NO2 ', & - ' C53NO32O2 --> C53NO32CO ', & - ' C53NO32O2 --> C53NO32O ', & - ' C53NO32O2 --> PE2ENEANO3 ', & - ' C2H5CHOOB --> C2H5CHOO ', & - ' C2H5CHOOB --> C2H5O2 + OH + CO ', & - ' C2H5CHOOB --> C2H5O2 + HO2 ', & - ' C2H5CHOOB --> C2H6 ', & - ' PE2ENEAO2 + HO2 --> C52OH3OOH ', & - ' PE2ENEAO2 + NO --> PE2ENEANO3 ', & - ' PE2ENEAO2 + NO --> PE2ENEAO + NO2 ', & - ' PE2ENEAO2 + NO3 --> PE2ENEAO + NO2 ', & - ' PE2ENEAO2 --> C523OH ', & - ' PE2ENEAO2 --> DIEKAOH ', & - ' PE2ENEAO2 --> PE2ENEAO ', & - 'C4NO32M1O2 + HO2 --> C4NO3M1OOH ', & - ' C4NO32M1O2 + NO --> C4NO32M1O + NO2 ', & - 'C4NO32M1O2 + NO3 --> C4NO32M1O + NO2 ', & - ' C4NO32M1O2 --> C4NO32M1O ', & - ' C4NO32M1O2 --> C4NO3CHO ', & - ' C4NO32M1O2 --> M2BUOL2NO3 ', & - 'C4NO32M2O2 + HO2 --> C4NO32MOOH ', & - ' C4NO32M2O2 + NO --> C4NO32M2O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_43 = (/ & - 'C4NO32M2O2 + NO3 --> C4NO32M2O + NO2 ', & - ' C4NO32M2O2 --> C4NO32M2O ', & - ' C4NO32M2O2 --> PROL11MNO3 ', & - ' C2H5MECOOA --> C2H5MECOO ', & - ' C2H5MECOOA --> MEKBO2 + OH ', & - 'C4M3NO31O2 + HO2 --> C4MNO31OOH ', & - ' C4M3NO31O2 + NO --> C4M3NO31O + NO2 ', & - 'C4M3NO31O2 + NO3 --> C4M3NO31O + NO2 ', & - ' C4M3NO31O2 --> C4M3NO31O ', & - ' C4M3NO31O2 --> C4M3NO3ONE ', & - ' C4M3NO31O2 --> M3BU2OLNO3 ', & - 'C4M3NO32O2 + HO2 --> C4MNO32OOH ', & - ' C4M3NO32O2 + NO --> C4M3NO32O + NO2 ', & - 'C4M3NO32O2 + NO3 --> C4M3NO32O + NO2 ', & - ' C4M3NO32O2 --> C3MNO3CHO ', & - ' C4M3NO32O2 --> C4M3NO32O ', & - ' C4M3NO32O2 --> ME3BUOLNO3 ', & - ' IPRCHOOA --> C3H8 ', & - ' IPRCHOOA --> IC3H7O2 + OH + CO ', & - ' IPRCHOOA --> IC3H7O2 + HO2 ', & - ' IPRCHOOA --> IPRCHOO ', & - 'ME3BU2OLO2 + HO2 --> M3BU2OLOOH ', & - ' ME3BU2OLO2 + NO --> M3BU2OLNO3 ', & - ' ME3BU2OLO2 + NO --> ME3BU2OLO + NO2 ', & - 'ME3BU2OLO2 + NO3 --> ME3BU2OLO + NO2 ', & - ' ME3BU2OLO2 --> C3M3OH2CHO ', & - ' ME3BU2OLO2 --> C4ME3HO12 ', & - ' ME3BU2OLO2 --> ME3BU2OLO ', & - 'C4M2NO32O2 + HO2 --> C4NO3M2OOH ', & - ' C4M2NO32O2 + NO --> C4M2NO32O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_44 = (/ & - 'C4M2NO32O2 + NO3 --> C4M2NO32O + NO2 ', & - ' C4M2NO32O2 --> C4M2NO32O ', & - ' C4M2NO32O2 --> C4M2NO3ONE ', & - ' C4M2NO32O2 --> ME2BUOLNO3 ', & - 'C4M2NO33O2 + HO2 --> C4M2NO3OOH ', & - ' C4M2NO33O2 + NO --> C4M2NO33O + NO2 ', & - 'C4M2NO33O2 + NO3 --> C4M2NO33O + NO2 ', & - ' C4M2NO33O2 --> C4M2NO33O ', & - ' C4M2NO33O2 --> M2BU2OLNO3 ', & - ' CH3CCH3OOB --> CH3CCH3OO ', & - ' CH3CCH3OOB --> CH3COCH2O2 + OH ', & - ' CH3CHOOC --> CH3CHOO ', & - ' CH3CHOOC --> CH3O2 + OH + CO ', & - ' C65NO36O2 + HO2 --> C65NO36OOH ', & - ' C65NO36O2 + NO --> C65NO36O + NO2 ', & - ' C65NO36O2 + NO3 --> C65NO36O + NO2 ', & - ' C65NO36O2 --> C65NO36CHO ', & - ' C65NO36O2 --> C65NO36O ', & - ' C65NO36O2 --> C6OH5NO3 ', & - ' C66NO35O2 + HO2 --> C66NO35OOH ', & - ' C66NO35O2 + NO --> C66NO35O + NO2 ', & - ' C66NO35O2 + NO3 --> C66NO35O + NO2 ', & - ' C66NO35O2 --> C66NO35CO ', & - ' C66NO35O2 --> C66NO35O ', & - ' C66NO35O2 --> C66NO35OH ', & - ' NC4H9CHOOA --> NC4H10 ', & - ' NC4H9CHOOA --> NC4H9CHOO ', & - ' NC4H9CHOOA --> NC4H9O2 + OH + CO ', & - ' NC4H9CHOOA --> NC4H9O2 + HO2 ', & - ' C6OH5O2 + HO2 --> C6OH5OOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_45 = (/ & - ' C6OH5O2 + NO --> C6OH5NO3 ', & - ' C6OH5O2 + NO --> C6OH5O + NO2 ', & - ' C6OH5O2 + NO3 --> C6OH5O + NO2 ', & - ' C6OH5O2 --> C4COMEOH ', & - ' C6OH5O2 --> C656OH ', & - ' C6OH5O2 --> C6OH5O ', & - ' HO5C6O2 + HO2 --> HO5C6OOH ', & - ' HO5C6O2 + NO --> C66NO35OH ', & - ' HO5C6O2 + NO --> HO5C6O + NO2 ', & - ' HO5C6O2 + NO3 --> HO5C6O + NO2 ', & - ' HO5C6O2 --> C656OH ', & - ' HO5C6O2 --> HO5C5CHO ', & - ' HO5C6O2 --> HO5C6O ', & - ' C62NO33O2 + HO2 --> C62NO33OOH ', & - ' C62NO33O2 + NO --> C62NO33O + NO2 ', & - ' C62NO33O2 + NO3 --> C62NO33O + NO2 ', & - ' C62NO33O2 --> C62NO33CO ', & - ' C62NO33O2 --> C62NO33O ', & - ' C62NO33O2 --> C64OH5NO3 ', & - ' C63NO32O2 + HO2 --> C63NO32OOH ', & - ' C63NO32O2 + NO --> C63NO32O + NO2 ', & - ' C63NO32O2 + NO3 --> C63NO32O + NO2 ', & - ' C63NO32O2 --> C63NO32CO ', & - ' C63NO32O2 --> C63NO32O ', & - ' C63NO32O2 --> C65OH4NO3 ', & - ' C3H7CHOOB --> C3H7CHOO ', & - ' C3H7CHOOB --> C3H8 ', & - ' C3H7CHOOB --> NC3H7O2 + OH + CO ', & - ' C3H7CHOOB --> NC3H7O2 + HO2 ', & - ' C64OH5O2 + HO2 --> C64OH5OOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_46 = (/ & - ' C64OH5O2 + NO --> C64OH5NO3 ', & - ' C64OH5O2 + NO --> C64OH5O + NO2 ', & - ' C64OH5O2 + NO3 --> C64OH5O + NO2 ', & - ' C64OH5O2 --> C645OH ', & - ' C64OH5O2 --> C64OH5O ', & - ' C64OH5O2 --> CO2HO3C6 ', & - ' C65OH4O2 + HO2 --> C65OH4OOH ', & - ' C65OH4O2 + NO --> C65OH4NO3 ', & - ' C65OH4O2 + NO --> C65OH4O + NO2 ', & - ' C65OH4O2 + NO3 --> C65OH4O + NO2 ', & - ' C65OH4O2 --> C645OH ', & - ' C65OH4O2 --> C65OH4O ', & - ' C65OH4O2 --> HEX3ONCOH ', & - 'C4ME2NO3O2 + HO2 --> C42MNO3OOH ', & - ' C4ME2NO3O2 + NO --> C4ME2NO3O + NO2 ', & - 'C4ME2NO3O2 + NO3 --> C4ME2NO3O + NO2 ', & - ' C4ME2NO3O2 --> C4ME2NO3O ', & - ' C4ME2NO3O2 --> C4ME2OHNO3 ', & - ' CH3CCH3OOC --> CH3COCH2O2 + OH ', & - ' C4ME2OHO2 + HO2 --> C4ME2OHOOH ', & - ' C4ME2OHO2 + NO --> C4ME2OHNO3 ', & - ' C4ME2OHO2 + NO --> C4ME2OHO + NO2 ', & - ' C4ME2OHO2 + NO3 --> C4ME2OHO + NO2 ', & - ' C4ME2OHO2 --> C4ME22OH ', & - ' C4ME2OHO2 --> C4ME2OHO ', & - ' HCOOH + OH --> HO2 ', & - ' BZBIPERO2 + HO2 --> BZBIPEROOH ', & - ' BZBIPERO2 + NO --> BZBIPERNO3 ', & - ' BZBIPERO2 + NO --> BZBIPERO + NO2 ', & - ' BZBIPERO2 + NO3 --> BZBIPERO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_47 = (/ & - ' BZBIPERO2 --> BZBIPER2OH ', & - ' BZBIPERO2 --> BZBIPERO ', & - ' BZBIPERO2 --> BZOBIPEROH ', & - ' BZEPOXMUC + NO3 --> BZEMUCCO3 + HNO3 ', & - ' BZEPOXMUC + O3 --> GLYOOA + EPXC4DIAL ', & - ' BZEPOXMUC + OH --> BZEMUCCO3 ', & - ' BZEPOXMUC + OH --> BZEMUCO2 ', & - ' BZEPOXMUC --> C5DIALO2 + CO + HO2 ', & - ' BZEPOXMUC --> MALDIAL + 2 CO + 2 HO2 ', & - ' PHENOL + NO3 --> C6H5O + HNO3 ', & - ' PHENOL + NO3 --> NPHENO2 ', & - ' PHENOL + OH --> C6H5O ', & - ' PHENOL + OH --> CATECHOL + HO2 ', & - ' PHENOL + OH --> PHENO2 ', & - ' C6H5CH2O2 + HO2 --> C6H5CH2OOH ', & - ' C6H5CH2O2 + NO --> C6H5CH2NO3 ', & - ' C6H5CH2O2 + NO --> C6H5CH2O + NO2 ', & - ' C6H5CH2O2 + NO3 --> C6H5CH2O + NO2 ', & - ' C6H5CH2O2 --> BENZAL ', & - ' C6H5CH2O2 --> C6H5CH2O ', & - ' C6H5CH2O2 --> C6H5CH2OH ', & - ' CRESOL + NO3 --> CRESO2 + HNO3 ', & - ' CRESOL + NO3 --> NCRESO2 ', & - ' CRESOL + NO3 --> TOL1O + HNO3 ', & - ' CRESOL + OH --> CRESO2 ', & - ' CRESOL + OH --> MCATECHOL + HO2 ', & - ' CRESOL + OH --> TOL1O ', & - ' TLBIPERO2 + HO2 --> TLBIPEROOH ', & - ' TLBIPERO2 + NO --> TLBIPERO + NO2 ', & - ' TLBIPERO2 + NO --> TLBIPERNO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_48 = (/ & - ' TLBIPERO2 + NO3 --> TLBIPERO + NO2 ', & - ' TLBIPERO2 --> TLBIPER2OH ', & - ' TLBIPERO2 --> TLBIPERO ', & - ' TLBIPERO2 --> TLOBIPEROH ', & - ' TLEPOXMUC + NO3 --> TLEMUCCO3 + HNO3 ', & - ' TLEPOXMUC + O3 --> MGLOOB + EPXC4DIAL ', & - ' TLEPOXMUC + OH --> TLEMUCCO3 ', & - ' TLEPOXMUC + OH --> TLEMUCO2 ', & - ' TLEPOXMUC --> C615CO2O2 + CO + HO2 ', & - ' TLEPOXMUC --> EPXC4DIAL + CH3CO3 + CO + HO2 ', & - ' OXYLO2 + HO2 --> OXYLOOH ', & - ' OXYLO2 + NO --> OXYLNO3 ', & - ' OXYLO2 + NO --> OXYLO + NO2 ', & - ' OXYLO2 + NO3 --> OXYLO + NO2 ', & - ' OXYLO2 --> OXYLAL ', & - ' OXYLO2 --> OXYLO ', & - ' OXYLO2 --> OXYLOH ', & - 'OXYBIPERO2 + HO2 --> OXYBPEROOH ', & - ' OXYBIPERO2 + NO --> OXYBIPENO3 ', & - ' OXYBIPERO2 + NO --> OXYBIPERO + NO2 ', & - 'OXYBIPERO2 + NO3 --> OXYBIPERO + NO2 ', & - ' OXYBIPERO2 --> OXYBIPERO ', & - ' OXYBIPERO2 --> OXYBPER2OH ', & - 'OXYEPOXMUC + NO3 --> OXYMUCCO3 + HNO3 ', & - ' OXYEPOXMUC + O3 --> EPXM2C4DAL + GLYOOA ', & - ' OXYEPOXMUC + OH --> OXYMUCCO3 ', & - ' OXYEPOXMUC + OH --> OXYMUCO2 ', & - ' OXYEPOXMUC --> EPXM2C4DAL + 2 CO + 2 HO2 ', & - ' OXYEPOXMUC --> MC6CO2O2 + CO + HO2 ', & - ' OXYLOL + NO3 --> NOXYOLO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_49 = (/ & - ' OXYLOL + NO3 --> OXY1O + HNO3 ', & - ' OXYLOL + NO3 --> OXYOLO2 + HNO3 ', & - ' OXYLOL + OH --> OXY1O ', & - ' OXYLOL + OH --> OXYCATECH + HO2 ', & - ' OXYLOL + OH --> OXYOLO2 ', & - ' MXYLO2 + HO2 --> MXYLOOH ', & - ' MXYLO2 + NO --> MXYLNO3 ', & - ' MXYLO2 + NO --> MXYLO + NO2 ', & - ' MXYLO2 + NO3 --> MXYLO + NO2 ', & - ' MXYLO2 --> MXYLAL ', & - ' MXYLO2 --> MXYLO ', & - ' MXYLO2 --> MXYLOH ', & - 'MXYBIPERO2 + HO2 --> MXYBPEROOH ', & - ' MXYBIPERO2 + NO --> MXYBIPENO3 ', & - ' MXYBIPERO2 + NO --> MXYBIPERO + NO2 ', & - 'MXYBIPERO2 + NO3 --> MXYBIPERO + NO2 ', & - ' MXYBIPERO2 --> MXYBIPERO ', & - ' MXYBIPERO2 --> MXYBPER2OH ', & - ' MXYBIPERO2 --> MXYOBPEROH ', & - 'MXYEPOXMUC + NO3 --> MXYMUCCO3 + HNO3 ', & - ' MXYEPOXMUC + O3 --> MGLOOB + EPXMC4DIAL ', & - ' MXYEPOXMUC + OH --> MXYMUCCO3 ', & - ' MXYEPOXMUC + OH --> MXYMUCO2 ', & - ' MXYEPOXMUC --> C726CO5O2 + CO + HO2 ', & - ' MXYEPOXMUC --> EPXMC4DIAL + CH3CO3 + CO + HO2 ', & - ' MXYLOL + NO3 --> MXY1O + HNO3 ', & - ' MXYLOL + NO3 --> MXYOLO2 + HNO3 ', & - ' MXYLOL + NO3 --> NMXYOLO2 ', & - ' MXYLOL + OH --> MXY1O ', & - ' MXYLOL + OH --> MXYCATECH + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_50 = (/ & - ' MXYLOL + OH --> MXYOLO2 ', & - ' PXYLO2 + HO2 --> PXYLOOH ', & - ' PXYLO2 + NO --> PXYLNO3 ', & - ' PXYLO2 + NO --> PXYLO + NO2 ', & - ' PXYLO2 + NO3 --> PXYLO + NO2 ', & - ' PXYLO2 --> PXYLAL ', & - ' PXYLO2 --> PXYLO ', & - ' PXYLO2 --> PXYLOH ', & - 'PXYBIPERO2 + HO2 --> PXYBPEROOH ', & - ' PXYBIPERO2 + NO --> PXYBIPENO3 ', & - ' PXYBIPERO2 + NO --> PXYBIPERO + NO2 ', & - 'PXYBIPERO2 + NO3 --> PXYBIPERO + NO2 ', & - ' PXYBIPERO2 --> PXYBIPERO ', & - ' PXYBIPERO2 --> PXYBPER2OH ', & - 'PXYEPOXMUC + NO3 --> PXYMUCCO3 + HNO3 ', & - ' PXYEPOXMUC + O3 --> MGLOOB + EPXMC4DIAL ', & - ' PXYEPOXMUC + OH --> PXYMUCCO3 ', & - ' PXYEPOXMUC + OH --> PXYMUCO2 ', & - ' PXYEPOXMUC --> C6M5CO2O2 + CO + HO2 ', & - ' PXYEPOXMUC --> EPXMC4DIAL + CH3CO3 + CO + HO2 ', & - ' PXYLOL + NO3 --> NPXYOLO2 ', & - ' PXYLOL + NO3 --> PXY1O + HNO3 ', & - ' PXYLOL + NO3 --> PXYOLO2 + HNO3 ', & - ' PXYLOL + OH --> PXY1O ', & - ' PXYLOL + OH --> PXYCATECH + HO2 ', & - ' PXYLOL + OH --> PXYOLO2 ', & - 'C6H5C2H4O2 + HO2 --> C6H5C2OOH ', & - ' C6H5C2H4O2 + NO --> C6H5C2H4O + NO2 ', & - ' C6H5C2H4O2 + NO --> C6H5C2NO3 ', & - 'C6H5C2H4O2 + NO3 --> C6H5C2H4O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_51 = (/ & - ' C6H5C2H4O2 --> C6H5C2H4O ', & - ' C6H5C2H4O2 --> C6H5C2OH ', & - ' C6H5C2H4O2 --> C6H5CH2CHO ', & - ' EBENZOL + NO3 --> EBENZO + HNO3 ', & - ' EBENZOL + NO3 --> EBENZOLO2 + HNO3 ', & - ' EBENZOL + NO3 --> NEBNZOLO2 ', & - ' EBENZOL + OH --> EBENZO ', & - ' EBENZOL + OH --> EBENZOLO2 ', & - ' EBENZOL + OH --> ECATECHOL + HO2 ', & - 'EBZBIPERO2 + HO2 --> EBZBPEROOH ', & - ' EBZBIPERO2 + NO --> EBZBIPERO + NO2 ', & - ' EBZBIPERO2 + NO --> EBZBPERNO3 ', & - 'EBZBIPERO2 + NO3 --> EBZBIPERO + NO2 ', & - ' EBZBIPERO2 --> EBZBIPERO ', & - ' EBZBIPERO2 --> EBZBPER2OH ', & - ' EBZBIPERO2 --> EBZOBPEROH ', & - ' EBZPOXMUC + NO3 --> EBZMUCCO3 + HNO3 ', & - ' EBZPOXMUC + O3 --> EGLYOOB + EPXC4DIAL ', & - ' EBZPOXMUC + OH --> EBZMUCCO3 ', & - ' EBZPOXMUC + OH --> EBZMUCO2 ', & - ' EBZPOXMUC --> C715CO2O2 + CO + HO2 ', & - ' EBZPOXMUC --> EPXC4DIAL + C2H5CO3 + CO + HO2 ', & - ' PHC3O2 + HO2 --> PHC3OOH ', & - ' PHC3O2 + NO --> PHC3NO3 ', & - ' PHC3O2 + NO --> PHC3O + NO2 ', & - ' PHC3O2 + NO3 --> PHC3O + NO2 ', & - ' PHC3O2 --> PHC3O ', & - ' PHC3O2 --> PHC3OH ', & - ' PHC3O2 --> PHCOET ', & - ' PBENZOL + NO3 --> NPBNZOLO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_52 = (/ & - ' PBENZOL + NO3 --> PBENZO + HNO3 ', & - ' PBENZOL + NO3 --> PBENZOLO2 + HNO3 ', & - ' PBENZOL + OH --> PBENZO ', & - ' PBENZOL + OH --> PBENZOLO2 ', & - ' PBENZOL + OH --> PCATECHOL + HO2 ', & - 'PBZBIPERO2 + HO2 --> PBZBPEROOH ', & - ' PBZBIPERO2 + NO --> PBZBIPERO + NO2 ', & - ' PBZBIPERO2 + NO --> PBZBPERNO3 ', & - 'PBZBIPERO2 + NO3 --> PBZBIPERO + NO2 ', & - ' PBZBIPERO2 --> PBZBIPERO ', & - ' PBZBIPERO2 --> PBZBPER2OH ', & - ' PBZBIPERO2 --> PBZOBPEROH ', & - ' PBZPOXMUC + NO3 --> PBZMUCCO3 + HNO3 ', & - ' PBZPOXMUC + O3 --> PGLOOA + EPXC4DIAL ', & - ' PBZPOXMUC + OH --> PBZMUCCO3 ', & - ' PBZPOXMUC + OH --> PBZMUCO2 ', & - ' PBZPOXMUC --> C815CO2O2 + CO + HO2 ', & - ' PBZPOXMUC --> EPXC4DIAL + C3H7CO3 + CO + HO2 ', & - ' PHIC3O2 + HO2 --> PHIC3OOH ', & - ' PHIC3O2 + NO --> PHIC3NO3 ', & - ' PHIC3O2 + NO --> PHIC3O + NO2 ', & - ' PHIC3O2 + NO3 --> PHIC3O + NO2 ', & - ' PHIC3O2 --> PHIC3O ', & - ' PHIC3O2 --> PHIC3OH ', & - ' IPBENZOL + NO3 --> IPBENZO + HNO3 ', & - ' IPBENZOL + NO3 --> IPBENZOLO2 + HNO3 ', & - ' IPBENZOL + NO3 --> NIPBNZOLO2 ', & - ' IPBENZOL + OH --> IPBENZO ', & - ' IPBENZOL + OH --> IPBENZOLO2 ', & - ' IPBENZOL + OH --> IPCATECHOL + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_53 = (/ & - 'IPBZBIPRO2 + HO2 --> IPBZBPROOH ', & - ' IPBZBIPRO2 + NO --> IPBZBIPRO + NO2 ', & - ' IPBZBIPRO2 + NO --> IPBZBPRNO3 ', & - 'IPBZBIPRO2 + NO3 --> IPBZBIPRO + NO2 ', & - ' IPBZBIPRO2 --> IPBZBIPRO ', & - ' IPBZBIPRO2 --> IPBZBPR2OH ', & - ' IPBZBIPRO2 --> IPBZOBPROH ', & - 'IPBZPOXMUC + NO3 --> IPBZMUCCO3 + HNO3 ', & - ' IPBZPOXMUC + O3 --> IPGLOOB + EPXC4DIAL ', & - ' IPBZPOXMUC + OH --> IPBZMUCCO3 ', & - ' IPBZPOXMUC + OH --> IPBZMUCO2 ', & - ' IPBZPOXMUC --> C7M15CO2O2 + CO + HO2 ', & - ' IPBZPOXMUC --> EPXC4DIAL + IPRCO3 + CO + HO2 ', & - ' TM123BO2 + HO2 --> TM123BOOH ', & - ' TM123BO2 + NO --> TM123BNO3 ', & - ' TM123BO2 + NO --> TM123BO + NO2 ', & - ' TM123BO2 + NO3 --> TM123BO + NO2 ', & - ' TM123BO2 --> TM123BCHO ', & - ' TM123BO2 --> TM123BO ', & - ' TM123BO2 --> TM123BOH ', & - ' TM123BOL + NO3 --> NTM123OLO2 ', & - ' TM123BOL + NO3 --> TM123O + HNO3 ', & - ' TM123BOL + NO3 --> TM123OLO2 + HNO3 ', & - ' TM123BOL + OH --> T123CATECH + HO2 ', & - ' TM123BOL + OH --> TM123O ', & - ' TM123BOL + OH --> TM123OLO2 ', & - 'TM123BPRO2 + HO2 --> TM123BPOOH ', & - ' TM123BPRO2 + NO --> TM123BPNO3 ', & - ' TM123BPRO2 + NO --> TM123BPRO + NO2 ', & - 'TM123BPRO2 + NO3 --> TM123BPRO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_54 = (/ & - ' TM123BPRO2 --> TM123BP2OH ', & - ' TM123BPRO2 --> TM123BPRO ', & - ' TM123BPRO2 --> TM123OBPOH ', & - ' TM123OXMUC + O3 --> MGLOOB + EPXALMKT ', & - ' TM123OXMUC + OH --> TM123MUCO2 ', & - ' TM123OXMUC --> C726CO5O2 + CH3CO3 ', & - ' TM123OXMUC --> EPXALMKT + CH3CO3 + CO + HO2 ', & - ' TM124BO2 + HO2 --> TM124BOOH ', & - ' TM124BO2 + NO --> TM124BNO3 ', & - ' TM124BO2 + NO --> TM124BO + NO2 ', & - ' TM124BO2 + NO3 --> TM124BO + NO2 ', & - ' TM124BO2 --> TM124BCHO ', & - ' TM124BO2 --> TM124BO ', & - ' TM124BO2 --> TM124BOH ', & - 'TM124BPRO2 + HO2 --> TM124BPOOH ', & - ' TM124BPRO2 + NO --> TM124BPNO3 ', & - ' TM124BPRO2 + NO --> TM124BPRO + NO2 ', & - 'TM124BPRO2 + NO3 --> TM124BPRO + NO2 ', & - ' TM124BPRO2 --> TM124BP2OH ', & - ' TM124BPRO2 --> TM124BPRO ', & - ' TM124OL + NO3 --> NTM124OLO2 ', & - ' TM124OL + NO3 --> TM124O + HNO3 ', & - ' TM124OL + NO3 --> TM124OLO2 + HNO3 ', & - ' TM124OL + OH --> T124CATECH + HO2 ', & - ' TM124OL + OH --> TM124O ', & - ' TM124OL + OH --> TM124OLO2 ', & - 'TM124OXMUC + NO3 --> TM124MUCO3 + HNO3 ', & - ' TM124OXMUC + O3 --> MGLOOB + EPXM2C4DAL ', & - ' TM124OXMUC + OH --> TM124MUCO2 ', & - ' TM124OXMUC + OH --> TM124MUCO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_55 = (/ & - ' TM124OXMUC --> C7CO2M5O2 + CO + HO2 ', & - ' TM124OXMUC --> EPXM2C4DAL + CH3CO3 + CO + HO2 ', & - ' TMBO2 + HO2 --> TMBOOH ', & - ' TMBO2 + NO --> TMBNO3 ', & - ' TMBO2 + NO --> TMBO + NO2 ', & - ' TMBO2 + NO3 --> TMBO + NO2 ', & - ' TMBO2 --> TMBCHO ', & - ' TMBO2 --> TMBO ', & - ' TMBO2 --> TMBOH ', & - 'TM135BPRO2 + HO2 --> TM135BPOOH ', & - ' TM135BPRO2 + NO --> TM135BPNO3 ', & - ' TM135BPRO2 + NO --> TM135BPRO + NO2 ', & - 'TM135BPRO2 + NO3 --> TM135BPRO + NO2 ', & - ' TM135BPRO2 --> TM135BP2OH ', & - ' TM135BPRO2 --> TM135BPRO ', & - ' TM135BPRO2 --> TM135OBPOH ', & - ' TM135BZOL + NO3 --> NTM135OLO2 ', & - ' TM135BZOL + NO3 --> TM135O + HNO3 ', & - ' TM135BZOL + OH --> TM135O ', & - ' TM135BZOL + OH --> TM135OLO2 ', & - 'TM135OXMUC + NO3 --> TM135MUCO3 + HNO3 ', & - ' TM135OXMUC + O3 --> MGLOOC + EPXMALKT ', & - ' TM135OXMUC + OH --> TM135MUCO2 ', & - ' TM135OXMUC + OH --> TM135MUCO3 ', & - ' TM135OXMUC --> C7M2CO5O2 + CO + HO2 ', & - ' TM135OXMUC --> EPXMALKT + CH3CO3 + CO + HO2 ', & - ' ETOLO2 + HO2 --> ETOLOOH ', & - ' ETOLO2 + NO --> ETOLNO3 ', & - ' ETOLO2 + NO --> ETOLO + NO2 ', & - ' ETOLO2 + NO3 --> ETOLO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_56 = (/ & - ' ETOLO2 --> ETOLO ', & - ' ETOLO2 --> ETOLOH ', & - ' ETOLO2 --> MPHCOME ', & - 'OETLBIPRO2 + HO2 --> OETLBPROOH ', & - ' OETLBIPRO2 + NO --> OETLBIPNO3 ', & - ' OETLBIPRO2 + NO --> OETLBIPRO + NO2 ', & - 'OETLBIPRO2 + NO3 --> OETLBIPRO + NO2 ', & - ' OETLBIPRO2 --> OETLBIPRO ', & - ' OETLBIPRO2 --> OETLBPR2OH ', & - 'OETLPOXMUC + NO3 --> OETLMUCCO3 + HNO3 ', & - ' OETLPOXMUC + O3 --> EPXMEC4DAL + GLYOOA ', & - ' OETLPOXMUC + OH --> OETLMUCCO3 ', & - ' OETLPOXMUC + OH --> OETLMUCO2 ', & - ' OETLPOXMUC --> EPXMEC4DAL + 2 CO + 2 HO2 ', & - ' OETLPOXMUC --> MC7CO2O2 + CO + HO2 ', & - ' OETOH + NO3 --> NOETOLO2 ', & - ' OETOH + NO3 --> OET1O + HNO3 ', & - ' OETOH + NO3 --> OETOLO2 + HNO3 ', & - ' OETOH + OH --> OET1O ', & - ' OETOH + OH --> OETCATECH + HO2 ', & - ' OETOH + OH --> OETOLO2 ', & - 'METLBIPRO2 + HO2 --> METLBPROOH ', & - ' METLBIPRO2 + NO --> METLBIPNO3 ', & - ' METLBIPRO2 + NO --> METLBIPRO + NO2 ', & - 'METLBIPRO2 + NO3 --> METLBIPRO + NO2 ', & - ' METLBIPRO2 --> METLBIPRO ', & - ' METLBIPRO2 --> METLBPR2OH ', & - ' METLBIPRO2 --> METLOBPROH ', & - 'METLPOXMUC + NO3 --> METLMUCCO3 + HNO3 ', & - ' METLPOXMUC + O3 --> EGLYOOB + EPXMC4DIAL ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_57 = (/ & - ' METLPOXMUC + OH --> METLMUCCO3 ', & - ' METLPOXMUC + OH --> METLMUCO2 ', & - ' METLPOXMUC --> C826CO3O2 + CO + HO2 ', & - ' METLPOXMUC --> EPXMC4DIAL + C2H5CO3 + CO + HO2 ', & - ' METOH + NO3 --> MET1O + HNO3 ', & - ' METOH + NO3 --> METOLO2 + HNO3 ', & - ' METOH + NO3 --> NMETOLO2 ', & - ' METOH + OH --> MET1O ', & - ' METOH + OH --> METCATECH + HO2 ', & - ' METOH + OH --> METOLO2 ', & - 'PETLBIPRO2 + HO2 --> PETLBPROOH ', & - ' PETLBIPRO2 + NO --> PETLBIPNO3 ', & - ' PETLBIPRO2 + NO --> PETLBIPRO + NO2 ', & - 'PETLBIPRO2 + NO3 --> PETLBIPRO + NO2 ', & - ' PETLBIPRO2 --> PETLBIPRO ', & - ' PETLBIPRO2 --> PETLBPR2OH ', & - 'PETLPOXMUC + NO3 --> PETLMUCCO3 + HNO3 ', & - ' PETLPOXMUC + O3 --> EGLYOOB + EPXMC4DIAL ', & - ' PETLPOXMUC + OH --> PETLMUCCO3 ', & - ' PETLPOXMUC + OH --> PETLMUCO2 ', & - ' PETLPOXMUC --> C7M6CO2O2 + C2H5CO3 ', & - ' PETLPOXMUC --> EPXMC4DIAL + CH3CO3 + CO + HO2 ', & - ' PETOH + NO3 --> NPETOLO2 ', & - ' PETOH + NO3 --> PET1O + HNO3 ', & - ' PETOH + NO3 --> PETOLO2 + HNO3 ', & - ' PETOH + OH --> PET1O ', & - ' PETOH + OH --> PETCATECH + HO2 ', & - ' PETOH + OH --> PETOLO2 ', & - ' DM35EBO2 + HO2 --> DM35EBOOH ', & - ' DM35EBO2 + NO --> DM35EBNO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_58 = (/ & - ' DM35EBO2 + NO --> DM35EBO + NO2 ', & - ' DM35EBO2 + NO3 --> DM35EBO + NO2 ', & - ' DM35EBO2 --> DM35EBO ', & - ' DM35EBO2 --> DM35EBOH ', & - ' DM35EBO2 --> DMPHCOME ', & - ' DMEBIPRO2 + HO2 --> DMEBPROOH ', & - ' DMEBIPRO2 + NO --> DMEBIPNO3 ', & - ' DMEBIPRO2 + NO --> DMEBIPRO + NO2 ', & - ' DMEBIPRO2 + NO3 --> DMEBIPRO + NO2 ', & - ' DMEBIPRO2 --> DMEBIPRO ', & - ' DMEBIPRO2 --> DMEBPR2OH ', & - ' DMEBIPRO2 --> DMEOBPROH ', & - 'DMEBPOXMUC + NO3 --> DMEBMUCO3 + HNO3 ', & - ' DMEBPOXMUC + O3 --> EGLYOOD + EPXMALKT ', & - ' DMEBPOXMUC + OH --> DMEBMUCO2 ', & - ' DMEBPOXMUC + OH --> DMEBMUCO3 ', & - ' DMEBPOXMUC --> C8M2CO6O2 + CO + HO2 ', & - ' DMEBPOXMUC --> EPXMALKT + C2H5CO3 + CO + HO2 ', & - ' DMEPHOH + NO3 --> DMEPH1O + HNO3 ', & - ' DMEPHOH + NO3 --> NDMEPHOLO2 ', & - ' DMEPHOH + OH --> DMEPH1O ', & - ' DMEPHOH + OH --> DMEPHOLO2 ', & - ' DE35TO2 + HO2 --> DE35TOOH ', & - ' DE35TO2 + NO --> DE35TNO3 ', & - ' DE35TO2 + NO --> DE35TO + NO2 ', & - ' DE35TO2 + NO3 --> DE35TO + NO2 ', & - ' DE35TO2 --> DE35TO ', & - ' DE35TO2 --> DE35TOH ', & - ' DE35TO2 --> EMPHCOME ', & - ' DEMPHOH + NO3 --> DEMPHSMS1O + HNO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_59 = (/ & - ' DEMPHOH + NO3 --> NDEMPHOLO2 ', & - ' DEMPHOH + OH --> DEMPHOLO2 ', & - ' DEMPHOH + OH --> DEMPHSMS1O ', & - 'DETLBIPRO2 + HO2 --> DETLBPROOH ', & - ' DETLBIPRO2 + NO --> DETLBIPNO3 ', & - ' DETLBIPRO2 + NO --> DETLBIPRO + NO2 ', & - 'DETLBIPRO2 + NO3 --> DETLBIPRO + NO2 ', & - ' DETLBIPRO2 --> DETLBIPRO ', & - ' DETLBIPRO2 --> DETLBPR2OH ', & - ' DETLBIPRO2 --> DETLOBPROH ', & - 'DETLPOXMUC + NO3 --> DETLMUCO3 + HNO3 ', & - ' DETLPOXMUC + O3 --> EGLYOOD + EPXEALKT ', & - ' DETLPOXMUC + OH --> DETLMUCO2 ', & - ' DETLPOXMUC + OH --> DETLMUCO3 ', & - ' DETLPOXMUC --> C9M2CO6O2 + CO + HO2 ', & - ' DETLPOXMUC --> EPXEALKT + C2H5CO3 + CO + HO2 ', & - ' NSTYRENO2 + HO2 --> NSTYRENOOH ', & - ' NSTYRENO2 + NO --> NSTYRENEO + NO2 ', & - ' NSTYRENO2 + NO3 --> NSTYRENEO + NO2 ', & - ' NSTYRENO2 --> NSTYRENEO ', & - ' PHCHOOA --> BENZENE ', & - ' PHCHOOA --> C6H5O2 + OH + CO ', & - ' PHCHOOA --> C6H5O2 + HO2 ', & - ' PHCHOOA --> PHCHOO ', & - ' STYRENO2 + HO2 --> STYRENOOH ', & - ' STYRENO2 + NO --> STYRENO + NO2 ', & - ' STYRENO2 + NO3 --> STYRENO + NO2 ', & - ' STYRENO2 --> STYRENO ', & - ' C6H5CO3 + HO2 --> C6H5CO3H ', & - ' C6H5CO3 + HO2 --> C6H5O2 + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_60 = (/ & - ' C6H5CO3 + HO2 --> PHCOOH + O3 ', & - ' C6H5CO3 + NO --> C6H5O2 + NO2 ', & - ' C6H5CO3 + NO2 --> PBZN ', & - ' C6H5CO3 + NO3 --> C6H5O2 + NO2 ', & - ' C6H5CO3 --> C6H5O2 ', & - ' C6H5CO3 --> PHCOOH ', & - ' C6H5O2 + HO2 --> C6H5OOH ', & - ' C6H5O2 + NO --> C6H5O + NO2 ', & - ' C6H5O2 + NO3 --> C6H5O + NO2 ', & - ' C6H5O2 --> C6H5O ', & - ' NBUTDAO2 + HO2 --> NBUTDAOOH ', & - ' NBUTDAO2 + NO --> NBUTDAO + NO2 ', & - ' NBUTDAO2 + NO3 --> NBUTDAO + NO2 ', & - ' NBUTDAO2 --> NBUTDAO ', & - ' NBUTDAO2 --> NBUTDAOH ', & - ' NBUTDAO2 --> NMVK ', & - ' NBUTDBO2 + HO2 --> NBUTDBOOH ', & - ' NBUTDBO2 + NO --> NBUTDBNO3 ', & - ' NBUTDBO2 + NO --> NBUTDBO + NO2 ', & - ' NBUTDBO2 + NO3 --> NBUTDBO + NO2 ', & - ' NBUTDBO2 --> BUTDANO3 ', & - ' NBUTDBO2 --> NBUTDBO ', & - ' NBUTDBO2 --> NC3CHO ', & - ' CH2OOD --> CH2OO ', & - ' CH2OOD --> CO ', & - ' CH2OOD --> OH + CO + HO2 ', & - ' ACROOA --> ACROO ', & - ' ACROOA --> C2H4 ', & - ' ACROOA --> HCHO + OH + 2 CO + HO2 ', & - ' ACROOA --> HCHO + CO + 2 HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_61 = (/ & - ' BUTDAO2 + HO2 --> BUTDAOOH ', & - ' BUTDAO2 + NO --> BUTDANO3 ', & - ' BUTDAO2 + NO --> BUTDAO + NO2 ', & - ' BUTDAO2 + NO3 --> BUTDAO + NO2 ', & - ' BUTDAO2 --> BUTDAO ', & - ' BUTDAO2 --> BUTDAOH ', & - ' BUTDAO2 --> HC3CHO ', & - ' BUTDBO2 + HO2 --> BUTDBOOH ', & - ' BUTDBO2 + NO --> BUTDBNO3 ', & - ' BUTDBO2 + NO --> BUTDBO + NO2 ', & - ' BUTDBO2 + NO3 --> BUTDBO + NO2 ', & - ' BUTDBO2 --> BUTDBO ', & - ' BUTDBO2 --> BUTDBOH ', & - ' BUTDBO2 --> MVKOH ', & - ' BUTDCO2 + HO2 --> BUTDCOOH ', & - ' BUTDCO2 + NO --> BUTDCO + NO2 ', & - ' BUTDCO2 + NO --> NBUTDAOH ', & - ' BUTDCO2 + NO3 --> BUTDCO + NO2 ', & - ' BUTDCO2 --> BUTDBOH ', & - ' BUTDCO2 --> BUTDCO ', & - ' BUTDCO2 --> HC3CCHO ', & - ' NISOPO2 + HO2 --> NISOPOOH ', & - ' NISOPO2 + NO --> NISOPNO3 ', & - ' NISOPO2 + NO --> NISOPO + NO2 ', & - ' NISOPO2 + NO3 --> NISOPO + NO2 ', & - ' NISOPO2 --> ISOPCNO3 ', & - ' NISOPO2 --> NC4CHO ', & - ' NISOPO2 --> NISOPO ', & - ' CH2OOE --> CH2OO ', & - ' CH2OOE --> CO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_62 = (/ & - ' CH2OOE --> OH + CO + HO2 ', & - ' MVK --> C3H6 + CO ', & - ' MVK --> HCHO + CH3CO3 + CO + HO2 ', & - ' MVK + O3 --> MGLOOA + HCHO ', & - ' MVK + O3 --> CH2OOB + MGLYOX ', & - ' MVK + OH --> HMVKAO2 ', & - ' MVK + OH --> HMVKBO2 ', & - ' MACROOA --> C3H6 ', & - ' MACROOA --> HCHO + CH3CO3 + HO2 ', & - ' MACROOA --> MACROO ', & - ' MACROOA --> HCHO + CH3CO3 + OH + CO ', & - ' MVKOOA --> C3H6 ', & - ' MVKOOA --> CH3O2 + HCHO + CO + HO2 ', & - ' MVKOOA --> MVKOO ', & - ' MVKOOA --> MVKO2 + OH ', & - ' CISOPA --> CISOPAO2 ', & - ' CISOPA --> ISOPBO2 ', & - ' CISOPC --> CISOPCO2 ', & - ' CISOPC --> ISOPDO2 ', & - ' ISOP34O2 + HO2 --> ISOP34OOH ', & - ' ISOP34O2 + NO --> ISOP34NO3 ', & - ' ISOP34O2 + NO --> ISOP34O + NO2 ', & - ' ISOP34O2 + NO3 --> ISOP34O + NO2 ', & - ' ISOP34O2 --> HC4CHO ', & - ' ISOP34O2 --> ISOP34O ', & - ' ISOP34O2 --> ISOPDOH ', & - 'ME3BU3ECHO + NO3 --> NC526O2 ', & - ' ME3BU3ECHO + O3 --> CH2OOC + CO2C3CHO ', & - ' ME3BU3ECHO + O3 --> CO2C3OOB + HCHO ', & - ' ME3BU3ECHO + OH --> C530O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_63 = (/ & - ' ME3BU3ECHO + OH --> M3BU3ECO3 ', & - ' ME3BU3ECHO --> C45O2 + CO + HO2 ', & - ' PE4E2CO + NO3 --> NC51O2 ', & - ' PE4E2CO + O3 --> CH2OOB + CO2C3CHO ', & - ' PE4E2CO + O3 --> CO2C3OOA + HCHO ', & - ' PE4E2CO + OH --> C51O2 ', & - ' PE4E2CO --> CH2CHCH2O2 + CH3CO3 ', & - ' TISOPA --> ISOPAO2 ', & - ' TISOPA --> ISOPBO2 ', & - ' TISOPC --> ISOPCO2 ', & - ' TISOPC --> ISOPDO2 ', & - ' CH3OCH2O2 + HO2 --> CH3OCH2OOH ', & - ' CH3OCH2O2 + HO2 --> CH3OCHO ', & - ' CH3OCH2O2 + NO --> CH3OCH2NO3 ', & - ' CH3OCH2O2 + NO --> CH3OCH2O + NO2 ', & - ' CH3OCH2O2 + NO3 --> CH3OCH2O + NO2 ', & - ' CH3OCH2O2 --> CH3OCH2O ', & - ' CH3OCH2O2 --> CH3OCH2OH ', & - ' CH3OCH2O2 --> CH3OCHO ', & - ' DIETETO2 + HO2 --> DIETETOOH ', & - ' DIETETO2 + HO2 --> ETHACET ', & - ' DIETETO2 + NO --> DIETETNO3 ', & - ' DIETETO2 + NO --> DIETETO + NO2 ', & - ' DIETETO2 + NO3 --> DIETETO + NO2 ', & - ' DIETETO2 --> DIETETO ', & - ' DIETETO2 --> DIETETOH ', & - ' DIETETO2 --> ETHACET ', & - ' ETOC2O2 + HO2 --> ETOC2OOH ', & - ' ETOC2O2 + NO --> ETOC2NO3 ', & - ' ETOC2O2 + NO --> ETOC2O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_64 = (/ & - ' ETOC2O2 + NO3 --> ETOC2O + NO2 ', & - ' ETOC2O2 --> EOX2EOL ', & - ' ETOC2O2 --> EOX2ETCHO ', & - ' ETOC2O2 --> ETOC2O ', & - 'CH3COCH2O2 + HO2 --> CH3COCH2O + OH ', & - 'CH3COCH2O2 + HO2 --> HYPERACET ', & - ' CH3COCH2O2 + NO --> CH3COCH2O + NO2 ', & - 'CH3COCH2O2 + NO3 --> CH3COCH2O + NO2 ', & - ' CH3COCH2O2 --> ACETOL ', & - ' CH3COCH2O2 --> CH3COCH2O ', & - ' CH3COCH2O2 --> MGLYOX ', & - ' MEKAO2 + HO2 --> MEKAOOH ', & - ' MEKAO2 + NO --> MEKANO3 ', & - ' MEKAO2 + NO --> MEKAO + NO2 ', & - ' MEKAO2 + NO3 --> MEKAO + NO2 ', & - ' MEKAO2 --> CO2C3CHO ', & - ' MEKAO2 --> MEKAO ', & - ' MEKAO2 --> MEKAOH ', & - ' MEKBO2 + HO2 --> MEKBOOH ', & - ' MEKBO2 + NO --> MEKBO + NO2 ', & - ' MEKBO2 + NO3 --> MEKBO + NO2 ', & - ' MEKBO2 --> BIACET ', & - ' MEKBO2 --> BUT2OLO ', & - ' MEKBO2 --> MEKBO ', & - ' MEKCO2 + HO2 --> MEKCOOH ', & - ' MEKCO2 + NO --> MEKCO + NO2 ', & - ' MEKCO2 + NO3 --> MEKCO + NO2 ', & - ' MEKCO2 --> EGLYOX ', & - ' MEKCO2 --> MEKCO ', & - ' MEKCO2 --> MEKCOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_65 = (/ & - ' CO2C54O2 + HO2 --> MPRKBOOH ', & - ' CO2C54O2 + NO --> CO2C54O + NO2 ', & - ' CO2C54O2 + NO --> MPRKNO3 ', & - ' CO2C54O2 + NO3 --> CO2C54O + NO2 ', & - ' CO2C54O2 --> CO24C5 ', & - ' CO2C54O2 --> CO2C54O ', & - ' CO2C54O2 --> HO2CO4C5 ', & - ' MPRKAO2 + HO2 --> MPRKAOOH ', & - ' MPRKAO2 + NO --> MPRKAO + NO2 ', & - ' MPRKAO2 + NO3 --> MPRKAO + NO2 ', & - ' MPRKAO2 --> CO23C5 ', & - ' MPRKAO2 --> MPRKAO ', & - ' MPRKAO2 --> MPRKAOH ', & - ' DIEKAO2 + HO2 --> DIEKAOOH ', & - ' DIEKAO2 + NO --> DIEKAO + NO2 ', & - ' DIEKAO2 + NO3 --> DIEKAO + NO2 ', & - ' DIEKAO2 --> CO23C5 ', & - ' DIEKAO2 --> DIEKAO ', & - ' DIEKAO2 --> DIEKAOH ', & - ' DIEKBO2 + HO2 --> DIEKBOOH ', & - ' DIEKBO2 + NO --> DIEKBNO3 ', & - ' DIEKBO2 + NO --> DIEKBO + NO2 ', & - ' DIEKBO2 + NO3 --> DIEKBO + NO2 ', & - ' DIEKBO2 --> CO3C4CHO ', & - ' DIEKBO2 --> DIEKBO ', & - ' DIEKBO2 --> HO1CO3C5 ', & - ' MIPKAO2 + HO2 --> MIPKAOOH ', & - ' MIPKAO2 + NO --> MIPKAO + NO2 ', & - ' MIPKAO2 + NO3 --> MIPKAO + NO2 ', & - ' MIPKAO2 --> MIPKAO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_66 = (/ & - ' MIPKAO2 --> MIPKAOH ', & - ' MIPKBO2 + HO2 --> MIPKBOOH ', & - ' MIPKBO2 + NO --> MIPKBNO3 ', & - ' MIPKBO2 + NO --> MIPKBO + NO2 ', & - ' MIPKBO2 + NO3 --> MIPKBO + NO2 ', & - ' MIPKBO2 --> CO2C43CHO ', & - ' MIPKBO2 --> MIPKBO ', & - ' MIPKBO2 --> MIPKBOH ', & - ' HEX2ONAO2 + HO2 --> HEX2ONAOOH ', & - ' HEX2ONAO2 + NO --> HEX2ONANO3 ', & - ' HEX2ONAO2 + NO --> HEX2ONAO + NO2 ', & - ' HEX2ONAO2 + NO3 --> HEX2ONAO + NO2 ', & - ' HEX2ONAO2 --> CO24C6 ', & - ' HEX2ONAO2 --> CO2HO4C6 ', & - ' HEX2ONAO2 --> HEX2ONAO ', & - ' HEX2ONBO2 + HO2 --> HEX2ONBOOH ', & - ' HEX2ONBO2 + NO --> HEX2ONBNO3 ', & - ' HEX2ONBO2 + NO --> HEX2ONBO + NO2 ', & - ' HEX2ONBO2 + NO3 --> HEX2ONBO + NO2 ', & - ' HEX2ONBO2 --> CO25C6 ', & - ' HEX2ONBO2 --> HEX2ONBO ', & - ' HEX2ONBO2 --> HO2CO5C6 ', & - ' HEX2ONCO2 + HO2 --> HEX2ONCOOH ', & - ' HEX2ONCO2 + NO --> HEX2ONCO + NO2 ', & - ' HEX2ONCO2 + NO3 --> HEX2ONCO + NO2 ', & - ' HEX2ONCO2 --> CO23C6 ', & - ' HEX2ONCO2 --> CO2HO3C6 ', & - ' HEX2ONCO2 --> HEX2ONCO ', & - ' HEX3ONAO2 + HO2 --> HEX3ONAOOH ', & - ' HEX3ONAO2 + NO --> HEX3ONANO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_67 = (/ & - ' HEX3ONAO2 + NO --> HEX3ONAO + NO2 ', & - ' HEX3ONAO2 + NO3 --> HEX3ONAO + NO2 ', & - ' HEX3ONAO2 --> CO24C6 ', & - ' HEX3ONAO2 --> HEX3ONAO ', & - ' HEX3ONAO2 --> HEX3ONAOH ', & - ' HEX3ONBO2 + HO2 --> HEX3ONBOOH ', & - ' HEX3ONBO2 + NO --> HEX3ONBO + NO2 ', & - ' HEX3ONBO2 + NO3 --> HEX3ONBO + NO2 ', & - ' HEX3ONBO2 --> C6CO34 ', & - ' HEX3ONBO2 --> C6CO3HO4 ', & - ' HEX3ONBO2 --> HEX3ONBO ', & - ' HEX3ONCO2 + HO2 --> HEX3ONCOOH ', & - ' HEX3ONCO2 + NO --> HEX3ONCO + NO2 ', & - ' HEX3ONCO2 + NO3 --> HEX3ONCO + NO2 ', & - ' HEX3ONCO2 --> CO23C6 ', & - ' HEX3ONCO2 --> HEX3ONCO ', & - ' HEX3ONCO2 --> HEX3ONCOH ', & - ' HEX3ONDO2 + HO2 --> HEX3ONDOOH ', & - ' HEX3ONDO2 + NO --> HEX3ONDNO3 ', & - ' HEX3ONDO2 + NO --> HEX3ONDO + NO2 ', & - ' HEX3ONDO2 + NO3 --> HEX3ONDO + NO2 ', & - ' HEX3ONDO2 --> C3COCCHO ', & - ' HEX3ONDO2 --> HEX3ONDO ', & - ' HEX3ONDO2 --> HEX3ONDOH ', & - ' MIBKAO2 + HO2 --> MIBKAOOH ', & - ' MIBKAO2 + NO --> MIBKANO3 ', & - ' MIBKAO2 + NO --> MIBKAO + NO2 ', & - ' MIBKAO2 + NO3 --> MIBKAO + NO2 ', & - ' MIBKAO2 --> MIBKAO ', & - ' MIBKAO2 --> MIBKAOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_68 = (/ & - ' MIBKBO2 + HO2 --> MIBKBOOH ', & - ' MIBKBO2 + NO --> MIBKBO + NO2 ', & - ' MIBKBO2 + NO3 --> MIBKBO + NO2 ', & - ' MIBKBO2 --> MIBK3CO ', & - ' MIBKBO2 --> MIBKBO ', & - ' MIBKBO2 --> MIBKBOH ', & - ' MTBKO2 + HO2 --> MTBKOOH ', & - ' MTBKO2 + NO --> MTBKNO3 ', & - ' MTBKO2 + NO --> MTBKO + NO2 ', & - ' MTBKO2 + NO3 --> MTBKO + NO2 ', & - ' MTBKO2 --> CO2M33CHO ', & - ' MTBKO2 --> MTBKO ', & - ' MTBKO2 --> MTBKOH ', & - ' CYHXONAO2 + HO2 --> CYHXONAOOH ', & - ' CYHXONAO2 + NO --> CYHXONANO3 ', & - ' CYHXONAO2 + NO --> CYHXONAO + NO2 ', & - ' CYHXONAO2 + NO3 --> CYHXONAO + NO2 ', & - ' CYHXONAO2 --> CYC613DION ', & - ' CYHXONAO2 --> CYHXONAO ', & - ' CYHXONAO2 --> CYHXONAOH ', & - ' NAPINAO2 + HO2 --> NAPINAOOH ', & - ' NAPINAO2 + NO --> NAPINAO + NO2 ', & - ' NAPINAO2 + NO3 --> NAPINAO + NO2 ', & - ' NAPINAO2 --> APINBNO3 ', & - ' NAPINAO2 --> NAPINAO ', & - ' NAPINBO2 + HO2 --> NAPINBOOH ', & - ' NAPINBO2 + NO --> NAPINBO + NO2 ', & - ' NAPINBO2 + NO3 --> NAPINBO + NO2 ', & - ' NAPINBO2 --> APINANO3 ', & - ' NAPINBO2 --> NAPINBO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_69 = (/ & - ' NAPINBO2 --> NC101CO ', & - ' APINOOA --> C107O2 + OH ', & - ' APINOOA --> C109O2 + OH ', & - ' APINOOB --> APINBOO ', & - ' APINOOB --> C96O2 + OH + CO ', & - ' APINAO2 + HO2 --> APINAOOH ', & - ' APINAO2 + NO --> APINANO3 ', & - ' APINAO2 + NO --> APINAO + NO2 ', & - ' APINAO2 + NO3 --> APINAO + NO2 ', & - ' APINAO2 --> APINAO ', & - ' APINAO2 --> APINBOH ', & - ' APINBO2 + HO2 --> APINBOOH ', & - ' APINBO2 + NO --> APINBNO3 ', & - ' APINBO2 + NO --> APINBO + NO2 ', & - ' APINBO2 + NO3 --> APINBO + NO2 ', & - ' APINBO2 --> APINBCO ', & - ' APINBO2 --> APINBO ', & - ' APINBO2 --> APINBOH ', & - ' APINCO2 + HO2 --> APINCOOH ', & - ' APINCO2 + NO --> APINCNO3 ', & - ' APINCO2 + NO --> APINCO + NO2 ', & - ' APINCO2 + NO3 --> APINCO + NO2 ', & - ' APINCO2 --> APINCO ', & - ' APINCO2 --> APINCOH ', & - ' NBPINAO2 + HO2 --> NBPINAOOH ', & - ' NBPINAO2 + NO --> NBPINAO + NO2 ', & - ' NBPINAO2 + NO3 --> NBPINAO + NO2 ', & - ' NBPINAO2 --> BPINBNO3 ', & - ' NBPINAO2 --> NBPINAO ', & - ' NBPINBO2 + HO2 --> NBPINBOOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_70 = (/ & - ' NBPINBO2 + NO --> NBPINBO + NO2 ', & - ' NBPINBO2 + NO3 --> NBPINBO + NO2 ', & - ' NBPINBO2 --> BPINANO3 ', & - ' NBPINBO2 --> NBPINBO ', & - ' NBPINBO2 --> NC91CHO ', & - ' NOPINONE + OH --> NOPINAO2 ', & - ' NOPINONE + OH --> NOPINBO2 ', & - ' NOPINONE + OH --> NOPINCO2 ', & - ' NOPINONE + OH --> NOPINDO2 ', & - ' CH2OOF --> CH2OO ', & - ' CH2OOF --> CO ', & - ' CH2OOF --> OH + CO + HO2 ', & - ' NOPINOOA --> C8BC ', & - ' NOPINOOA --> NOPINDO2 + OH ', & - ' NOPINOOA --> NOPINOO ', & - ' BPINAO2 + HO2 --> BPINAOOH ', & - ' BPINAO2 + NO --> BPINANO3 ', & - ' BPINAO2 + NO --> BPINAO + NO2 ', & - ' BPINAO2 + NO3 --> BPINAO + NO2 ', & - ' BPINAO2 --> BPINAO ', & - ' BPINAO2 --> BPINAOH ', & - ' BPINBO2 + HO2 --> BPINBOOH ', & - ' BPINBO2 + NO --> BPINBNO3 ', & - ' BPINBO2 + NO --> BPINBO + NO2 ', & - ' BPINBO2 + NO3 --> BPINBO + NO2 ', & - ' BPINBO2 --> BPINAOH ', & - ' BPINBO2 --> BPINBO ', & - ' BPINBO2 --> C918CHO ', & - ' BPINCO2 + HO2 --> BPINCOOH ', & - ' BPINCO2 + NO --> BPINCNO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_71 = (/ & - ' BPINCO2 + NO --> BPINCO + NO2 ', & - ' BPINCO2 + NO3 --> BPINCO + NO2 ', & - ' BPINCO2 --> BPINCO ', & - ' BPINCO2 --> BPINCOH ', & - ' NLIMO2 + HO2 --> NLIMOOH ', & - ' NLIMO2 + NO --> NLIMO + NO2 ', & - ' NLIMO2 + NO3 --> NLIMO + NO2 ', & - ' NLIMO2 --> LIMBNO3 ', & - ' NLIMO2 --> NLIMO ', & - ' LIMOOA --> LIMALAO2 + OH ', & - ' LIMOOA --> LIMALBO2 + OH ', & - ' LIMOOB --> C923O2 + OH + CO ', & - ' LIMOOB --> LIMBOO ', & - ' LIMAO2 + HO2 --> LIMAOOH ', & - ' LIMAO2 + NO --> LIMANO3 ', & - ' LIMAO2 + NO --> LIMAO + NO2 ', & - ' LIMAO2 + NO3 --> LIMAO + NO2 ', & - ' LIMAO2 --> LIMAO ', & - ' LIMAO2 --> LIMAOH ', & - ' LIMBO2 + HO2 --> LIMBOOH ', & - ' LIMBO2 + NO --> LIMBNO3 ', & - ' LIMBO2 + NO --> LIMBO + NO2 ', & - ' LIMBO2 + NO3 --> LIMBO + NO2 ', & - ' LIMBO2 --> LIMAOH ', & - ' LIMBO2 --> LIMBCO ', & - ' LIMBO2 --> LIMBO ', & - ' LIMCO2 + HO2 --> LIMCOOH ', & - ' LIMCO2 + NO --> LIMCNO3 ', & - ' LIMCO2 + NO --> LIMCO + NO2 ', & - ' LIMCO2 + NO3 --> LIMCO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_72 = (/ & - ' LIMCO2 --> LIMCO ', & - ' LIMCO2 --> LIMCOH ', & - ' NBCO2 + HO2 --> NBCOOH ', & - ' NBCO2 + NO --> NBCO + NO2 ', & - ' NBCO2 + NO3 --> NBCO + NO2 ', & - ' NBCO2 --> BCBNO3 ', & - ' NBCO2 --> NBCO ', & - ' BCAOO + CO --> BCAL ', & - ' BCAOO + NO --> NO2 + BCAL ', & - ' BCAOO + NO2 --> NO3 + BCAL ', & - ' BCAOO + SO2 --> SO3 + BCAL ', & - ' BCAOO --> H2O2 + BCAL ', & - ' BCAOO --> BCSOZ ', & - ' BCBOO + CO --> BCAL ', & - ' BCBOO + NO --> NO2 + BCAL ', & - ' BCBOO + NO2 --> NO3 + BCAL ', & - ' BCBOO + SO2 --> SO3 + BCAL ', & - ' BCBOO --> BCSOZ ', & - ' BCBOO --> C141CO2H ', & - ' BCOOA --> BCALAO2 + OH ', & - ' BCOOA --> BCALBO2 + OH ', & - ' BCOOA --> BCALBOC ', & - ' BCOOA --> C136O2 + CH3O2 ', & - ' BCOOB --> BCALCO2 + OH ', & - ' BCOOB --> C141CO2H ', & - ' BCOOB --> C141O2 + HO2 ', & - ' BCAO2 + HO2 --> BCAOOH ', & - ' BCAO2 + NO --> BCANO3 ', & - ' BCAO2 + NO --> BCAO + NO2 ', & - ' BCAO2 + NO3 --> BCAO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_73 = (/ & - ' BCAO2 --> BCAO ', & - ' BCAO2 --> BCAOH ', & - ' BCBO2 + HO2 --> BCBOOH ', & - ' BCBO2 + NO --> BCBNO3 ', & - ' BCBO2 + NO --> BCBO + NO2 ', & - ' BCBO2 + NO3 --> BCBO + NO2 ', & - ' BCBO2 --> BCAOH ', & - ' BCBO2 --> BCBCO ', & - ' BCBO2 --> BCBO ', & - ' BCCO2 + HO2 --> BCCOOH ', & - ' BCCO2 + NO --> BCCNO3 ', & - ' BCCO2 + NO --> BCCO + NO2 ', & - ' BCCO2 + NO3 --> BCCO + NO2 ', & - ' BCCO2 --> BCCO ', & - ' BCCO2 --> BCCOH ', & - ' HYETHO2H + OH --> HOCH2CH2O2 ', & - ' HYETHO2H + OH --> HOCH2CHO + OH ', & - ' HYETHO2H --> HOCH2CH2O + OH ', & - ' ETHOHNO3 + OH --> HOCH2CHO + NO2 ', & - ' HOCH2CH2O --> 2 HCHO + HO2 ', & - ' HOCH2CH2O --> HOCH2CHO + HO2 ', & - ' HO1C3OOH --> HO1C3O + OH ', & - ' HO1C3OOH + OH --> HO1C3O2 ', & - ' HO1C3OOH + OH --> HOC2H4CHO + OH ', & - ' HO1C3NO3 --> HO1C3O + NO2 ', & - ' HO1C3NO3 + OH --> HOC2H4CHO + NO2 ', & - ' HO1C3O --> HOC2H4CHO + HO2 ', & - ' HOC2H4CHO --> HOCH2CH2O2 + CO + HO2 ', & - ' HOC2H4CHO + NO3 --> HNO3 + HOC2H4CO3 ', & - ' HOC2H4CHO + OH --> HOC2H4CO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_74 = (/ & - ' HOC3H6OH + OH --> HOC2H4CHO + HO2 ', & - ' HYPROPO2H + OH --> ACETOL + OH ', & - ' HYPROPO2H + OH --> HYPROPO2 ', & - ' HYPROPO2H --> HYPROPO + OH ', & - ' HYPROPO --> CH3CHO + HCHO + HO2 ', & - ' PROPOLNO3 + OH --> ACETOL + NO2 ', & - ' IPROPOLO2H + OH --> CH3CHOHCHO + OH ', & - ' IPROPOLO2H + OH --> IPROPOLO2 ', & - ' IPROPOLO2H --> IPROPOLO + OH ', & - ' IPROPOLO --> CH3CHO + HCHO + HO2 ', & - ' PROLNO3 + OH --> CH3CHOHCHO + NO2 ', & - ' NBUTOLAOOH + OH --> MEKCOH + OH ', & - ' NBUTOLAOOH + OH --> NBUTOLAO2 ', & - ' NBUTOLAOOH --> NBUTOLAO + OH ', & - ' NBUTOLANO3 + OH --> MEKCOH + NO2 ', & - ' NBUTOLAO --> C2H5CHO + HCHO + HO2 ', & - ' MEKCOH + OH --> EGLYOX + HO2 ', & - ' MEKCOH --> C2H5CO3 + HCHO + HO2 ', & - ' NBUTOLAOH + OH --> MEKCOH + HO2 ', & - ' NBUTOLBOOH + OH --> MEKAOH + OH ', & - ' NBUTOLBOOH + OH --> NBUTOLBO2 ', & - ' NBUTOLBOOH --> NBUTOLBO + OH ', & - ' NBUTOLBNO3 + OH --> MEKAOH + NO2 ', & - ' NBUTOLBNO3 --> NBUTOLBO + NO2 ', & - ' NBUTOLBO --> CH3CHO + HOCH2CH2O2 ', & - ' NBUTOLBO --> MEKAOH + HO2 ', & - ' HO2C4OH + OH --> MEKAOH + HO2 ', & - ' MEKAOH + OH --> CO2C3CHO + HO2 ', & - ' MEKAOH --> HOCH2CH2O2 + CH3CO3 ', & - ' BUT2OLOOH + OH --> BUT2OLO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_75 = (/ & - ' BUT2OLOOH + OH --> BUT2OLO2 ', & - ' BUT2OLOOH --> BUT2OLAO + OH ', & - ' BUT2OLAO --> 2 CH3CHO + HO2 ', & - ' BUT2OLNO3 + OH --> BUT2OLO + NO2 ', & - ' BUT2OLO + OH --> BIACET + HO2 ', & - ' BUT2OLO --> CH3CHO + CH3CO3 + HO2 ', & - ' BUT2OLOH + OH --> BUT2OLO + HO2 ', & - ' IBUTOLBO2H + OH --> IBUTOLBO2 ', & - ' IBUTOLBO2H --> IBUTOLBO + OH ', & - ' IBUTOLBNO3 + OH --> CH3COCH3 + HCHO + NO2 ', & - ' IBUTOLBO --> CH3COCH3 + HCHO + HO2 ', & - ' IBUTOLOHB + OH --> IBUTALOH + HO2 ', & - ' IBUTOLCO2H + OH --> HOIPRCHO + OH ', & - ' IBUTOLCO2H + OH --> IBUTOLCO2 ', & - ' IBUTOLCO2H --> IBUTOLCO + OH ', & - ' IBUTOLCNO3 + OH --> HOIPRCHO + NO2 ', & - ' IBUTOLCNO3 --> IBUTOLCO + NO2 ', & - ' IBUTOLCO --> HOIPRCHO + HO2 ', & - ' HOIPRCHO --> HYPROPO2 + CO + HO2 ', & - ' HOIPRCHO + NO3 --> HOIPRCO3 + HNO3 ', & - ' HOIPRCHO + OH --> HOIPRCO3 ', & - ' IBUTOLOHC + OH --> HOIPRCHO ', & - ' TBUTOLOOH + OH --> IBUTALOH + OH ', & - ' TBUTOLOOH + OH --> TBUTOLO2 ', & - ' TBUTOLOOH --> TBUTOLO + OH ', & - ' TBUTOLNO3 + OH --> IBUTALOH + NO2 ', & - ' TBUTOLO --> CH3COCH3 + HCHO + HO2 ', & - ' HO3C5OOH --> HO3C5O + OH ', & - ' HO3C5OOH + OH --> HO3C4CHO + OH ', & - ' HO3C5OOH + OH --> HO3C5O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_76 = (/ & - ' HO3C5NO3 --> HO3C5O + NO2 ', & - ' HO3C5NO3 + OH --> HO3C4CHO + NO2 ', & - ' HO3C5O --> HO13C5O2 ', & - ' HO13C5 + OH --> HO1CO3C5 + HO2 ', & - ' HO3C4CHO --> HO3C4O2 + CO + HO2 ', & - ' HO3C4CHO + NO3 --> HO3C4CO3 + HNO3 ', & - ' HO3C4CHO + OH --> CO3C4CHO + HO2 ', & - ' HO3C4CHO + OH --> HO3C4CO3 ', & - ' C53OH2OOH + OH --> MPRKAOH + OH ', & - ' C53OH2OOH + OH --> PE2ENEBO2 ', & - ' C53OH2OOH --> PE2ENEBO + OH ', & - ' PE2ENEBNO3 + OH --> MPRKAOH + NO2 ', & - ' PE2ENEBO --> C2H5CHO + CH3CHO + HO2 ', & - ' C523OH + OH --> DIEKAOH + HO2 ', & - ' MPRKAOH + OH --> CO23C5 + HO2 ', & - ' MPRKAOH --> C2H5CHO + CH3CO3 + HO2 ', & - ' BUT2CO3 + HO2 --> BUT2CO2H + O3 ', & - ' BUT2CO3 + HO2 --> BUT2CO3H ', & - ' BUT2CO3 + HO2 --> SC4H9O2 + OH ', & - ' BUT2CO3 + NO --> SC4H9O2 + NO2 ', & - ' BUT2CO3 + NO2 --> C5PAN4 ', & - ' BUT2CO3 + NO3 --> SC4H9O2 + NO2 ', & - ' BUT2CO3 --> BUT2CO2H ', & - ' BUT2CO3 --> SC4H9O2 ', & - ' HM2C43OOH --> HM2C43O + OH ', & - ' HM2C43OOH + OH --> MIPKBOH + OH ', & - ' HM2C43NO3 --> HM2C43O + NO2 ', & - ' HM2C43NO3 + OH --> MIPKBOH + NO2 ', & - ' HM2C43O --> MIPKBOH + HO2 ', & - ' HO13M2C4 + OH --> MIPKBOH + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_77 = (/ & - ' MIPKBOH --> HYPROPO2 + CH3CO3 ', & - ' MIPKBOH + OH --> CO2C43CHO + HO2 ', & - ' M2BUOL2OOH + OH --> M2BUOL2O2 ', & - ' M2BUOL2OOH --> M2BUOL2O + OH ', & - ' M2BUOL2NO3 + OH --> ACETOL + CH3CHO + NO2 ', & - ' M2BUOL2O --> MEK + HCHO + HO2 ', & - ' M2BUOL2OH + OH --> PROL1MCHO + HO2 ', & - ' C3ME3CO3 + HO2 --> C3ME3CO2H + O3 ', & - ' C3ME3CO3 + HO2 --> C3ME3CO3H ', & - ' C3ME3CO3 + HO2 --> IC4H9O2 + OH ', & - ' C3ME3CO3 + NO --> IC4H9O2 + NO2 ', & - ' C3ME3CO3 + NO2 --> C3ME3PAN ', & - ' C3ME3CO3 + NO3 --> IC4H9O2 + NO2 ', & - ' C3ME3CO3 --> C3ME3CO2H ', & - ' C3ME3CO3 --> IC4H9O2 ', & - 'C3ME3CHOO2 + HO2 --> C3M3CHOOOH ', & - ' C3ME3CHOO2 + NO --> C3M3CHONO3 ', & - ' C3ME3CHOO2 + NO --> C3ME3CHOO + NO2 ', & - 'C3ME3CHOO2 + NO3 --> C3ME3CHOO + NO2 ', & - ' C3ME3CHOO2 --> C3ME3CHOO ', & - ' C3ME3CHOO2 --> H2M2C3CHO ', & - ' HM33C3OOH --> HM33C3O + OH ', & - ' HM33C3OOH + OH --> HM33C3O2 ', & - ' HM33C3NO3 --> HM33C3O + NO2 ', & - ' HM33C3NO3 + OH --> CH3COCH3 + HOCH2CHO + NO2 ', & - ' HM33C3O --> CH3COCH3 + HOCH2CH2O2 ', & - ' HO2M2C4OH + OH --> H2M2C3CHO + HO2 ', & - ' ME3BUOLOOH + OH --> ME3BUOLO2 ', & - ' ME3BUOLOOH + OH --> ME3CO2BUOL + OH ', & - ' ME3BUOLOOH --> ME3BUOLO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_78 = (/ & - ' ME3BUOLNO3 + OH --> ME3CO2BUOL + NO2 ', & - ' ME3BUOLO --> IPRCHO + HCHO + HO2 ', & - ' C4ME3HO12 + OH --> ME3CO2BUOL + HO2 ', & - ' ME3CO2BUOL + OH --> IPRGLYOX + HO2 ', & - ' ME3CO2BUOL --> IC3H7O2 + HOCH2CO3 ', & - ' HO2M2C4OOH --> HO2M2C4O + OH ', & - ' HO2M2C4OOH + OH --> H2M2C3CHO + OH ', & - ' HO2M2C4OOH + OH --> HO2M2C4O2 ', & - ' HO2M2C4NO3 --> HO2M2C4O + NO2 ', & - ' HO2M2C4NO3 + OH --> H2M2C3CHO + NO2 ', & - ' HO2M2C4O --> C54O2 ', & - ' HO2M2C4O --> H2M2C3CHO + HO2 ', & - ' H2M2C3CHO --> TBUTOLO2 + CO + HO2 ', & - ' H2M2C3CHO + NO3 --> H2M2C3CO3 + HNO3 ', & - ' H2M2C3CHO + OH --> H2M2C3CO3 ', & - ' M2BU2OLOOH + OH --> ME2BU2OLO2 ', & - ' M2BU2OLOOH + OH --> MIPKAOH + OH ', & - ' M2BU2OLOOH --> ME2BU2OLO + OH ', & - ' M2BU2OLNO3 + OH --> MIPKAOH + NO2 ', & - ' ME2BU2OLO --> CH3COCH3 + CH3CHO + HO2 ', & - ' ME2BU2OLO --> MIPKAOH + HO2 ', & - ' C4ME3HO23 + OH --> MIPKAOH + HO2 ', & - ' MIPKAOH + OH --> MIPKAO ', & - ' PROL11MOOH + OH --> PROL11MO2 ', & - ' PROL11MOOH + OH --> PROL1MCHO + OH ', & - ' PROL11MOOH --> PROL11MO + OH ', & - ' PROL11MNO3 + OH --> PROL1MCHO + NO2 ', & - ' PROL11MO --> MEK + HCHO + HO2 ', & - ' PROL1MCHO + NO3 --> PROL1MCO3 + HNO3 ', & - ' PROL1MCHO + OH --> PROL1MCO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_79 = (/ & - ' PROL1MCHO --> MEK + CO + 2 HO2 ', & - ' H2M3C4OOH --> H2M3C4O + OH ', & - ' H2M3C4OOH + OH --> H2M3C4O2 ', & - ' H2M3C4OOH + OH --> HO2C43CHO + OH ', & - ' H2M3C4NO3 --> H2M3C4O + NO2 ', & - ' H2M3C4NO3 + OH --> HO2C43CHO + NO2 ', & - ' H2M3C4O --> C56O2 ', & - ' H2M3C4O --> HO2C43CHO + HO2 ', & - ' HO2C43CHO --> BUT2OLO2 + CO + HO2 ', & - ' HO2C43CHO + NO3 --> HO2C43CO3 + HNO3 ', & - ' HO2C43CHO + OH --> CO2C43CHO + HO2 ', & - ' HO2C43CHO + OH --> HO2C43CO3 ', & - ' ME2BUOLOOH + OH --> ME2BUOLO2 ', & - ' ME2BUOLOOH + OH --> MIPKAOOH + HO2 ', & - ' ME2BUOLOOH --> ME2BUOLO + OH ', & - ' ME2BUOLNO3 + OH --> CH3COCH3 + CH3CHO + NO2 ', & - ' ME2BUOLO --> CH3COCH3 + CH3CHO + HO2 ', & - ' CYHXOLAOOH + OH --> CYHEXOLAO2 ', & - ' CYHXOLAOOH + OH --> CYHXOLACO + OH ', & - ' CYHXOLAOOH --> CYHEXOLAO + OH ', & - ' CYHEXOLAO --> C6DIAL + HO2 ', & - ' CYHXOLANO3 + OH --> CYHXOLACO + NO2 ', & - ' CYHXDIOLA + OH --> CYHXOLACO + HO2 ', & - ' CYHXOLACO + OH --> CYC6DIONE + HO2 ', & - ' CYHXOLACO --> ALLYLOH + C2H4 + CO ', & - ' MIBKOHAOOH + OH --> MIBKAOH3CO + OH ', & - ' MIBKOHAOOH + OH --> MIBKAOHAO2 ', & - ' MIBKOHAOOH --> IBUTALOH + CH3CO3 + OH ', & - ' MIBKOHAOOH --> MIBKAOHAO + OH ', & - ' MIBKAOHAO --> CH3COCH3 + MGLYOX + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_80 = (/ & - ' MIBKAOH3CO + OH --> MIBKCOOHO2 ', & - ' MIBKAOH3CO --> IPRHOCO3 + CH3CO3 ', & - ' MIBKOH34 + OH --> MIBKAOH3CO + HO2 ', & - ' MIBKOH34 --> IBUTALOH + CH3CO3 + HO2 ', & - ' MIBKOHBOOH + OH --> C65OH + OH ', & - ' MIBKOHBOOH + OH --> MIBKAOHBO2 ', & - ' MIBKOHBOOH --> MIBKAOHBO + OH ', & - ' MIBKAOHBO --> CO24C5 + HCHO + HO2 ', & - ' MIBKAOHNO3 + OH --> C65OH + NO2 ', & - ' C64OH --> C64O + HO2 ', & - ' C64OH + OH --> C65OH + HO2 ', & - ' C65OH --> CO24C5 + CO + 2 HO2 ', & - ' C65OH + OH --> C65O ', & - ' MIBKHO4OOH + OH --> MIBKHO4O2 ', & - ' MIBKHO4OOH --> MIBKHO4O + OH ', & - ' MIBKHO4OOH --> TBUTOLO2 + HCHO + OH + CO ', & - ' MIBKHO4O --> H2M2C3CO3 + HCHO ', & - ' MIBKHO14 + OH --> MIBKHO4CHO + HO2 ', & - ' MIBKHO14 --> TBUTOLO2 + HOCH2CO3 ', & - 'MIBKHO4CHO + NO3 --> TBUTOLO2 + HNO3 + 2 CO ', & - ' MIBKHO4CHO + OH --> TBUTOLO2 + 2 CO ', & - ' MIBKHO4CHO --> H2M2C3CO3 + CO + HO2 ', & - ' CH3CO2H + OH --> CH3O2 ', & - ' CH3CO3H + OH --> CH3CO3 ', & - ' CH3CO3H --> CH3O2 + OH ', & - ' PAN + OH --> HCHO + CO + NO2 ', & - ' PAN --> CH3CO3 + NO2 ', & - ' HOCH2CO3 + HO2 --> HCHO + OH + HO2 ', & - ' HOCH2CO3 + HO2 --> HOCH2CO2H + O3 ', & - ' HOCH2CO3 + HO2 --> HOCH2CO3H ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_81 = (/ & - ' HOCH2CO3 + NO --> HCHO + NO2 + HO2 ', & - ' HOCH2CO3 + NO2 --> PHAN ', & - ' HOCH2CO3 + NO3 --> HCHO + NO2 + HO2 ', & - ' HOCH2CO3 --> HCHO + HO2 ', & - ' HOCH2CO3 --> HOCH2CO2H ', & - 'CH3CHOHCO3 + HO2 --> CH3CHO + OH + HO2 ', & - 'CH3CHOHCO3 + HO2 --> IPROPOLPER ', & - ' CH3CHOHCO3 + NO --> CH3CHO + NO2 + HO2 ', & - 'CH3CHOHCO3 + NO2 --> IPROPOLPAN ', & - 'CH3CHOHCO3 + NO3 --> CH3CHO + NO2 + HO2 ', & - ' CH3CHOHCO3 --> CH3CHO + HO2 ', & - ' NMBOAOOH + OH --> C4MCONO3OH + OH ', & - ' NMBOAOOH + OH --> NMBOAO2 ', & - ' NMBOAOOH --> NMBOAO + OH ', & - ' NMBOAO --> CH3COCH3 + NO3CH2CHO + HO2 ', & - ' C4MCONO3OH + OH --> C4MCONO3O ', & - ' MBOBNO3 + OH --> MBOBCO + NO2 ', & - ' NMBOBOOH + OH --> NMBOBCO + OH ', & - ' NMBOBOOH + OH --> NMBOBO2 ', & - ' NMBOBOOH --> NMBOBO + OH ', & - ' NMBOBO --> IBUTALOH + HCHO + NO2 ', & - ' MBOANO3 + OH --> MBOACO + NO2 ', & - ' NMBOBCO + OH --> NC4OHCO3 ', & - ' MBOOO + CO --> IBUTALOH ', & - ' MBOOO + NO --> IBUTALOH + NO2 ', & - ' MBOOO + NO2 --> IBUTALOH + NO3 ', & - ' MBOOO + SO2 --> SO3 + IBUTALOH ', & - ' MBOOO --> IBUTALOH + H2O2 ', & - ' MBOOO --> IPRHOCO2H ', & - ' IPRHOCO3 + HO2 --> CH3COCH3 + OH + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_82 = (/ & - ' IPRHOCO3 + HO2 --> IPRHOCO2H + O3 ', & - ' IPRHOCO3 + HO2 --> IPRHOCO3H ', & - ' IPRHOCO3 + NO --> CH3COCH3 + NO2 + HO2 ', & - ' IPRHOCO3 + NO2 --> C4PAN5 ', & - ' IPRHOCO3 + NO3 --> CH3COCH3 + NO2 + HO2 ', & - ' IPRHOCO3 --> CH3COCH3 + HO2 ', & - ' IPRHOCO3 --> IPRHOCO2H ', & - ' CH2OO + CO --> HCHO ', & - ' CH2OO + NO --> HCHO + NO2 ', & - ' CH2OO + NO2 --> HCHO + NO3 ', & - ' CH2OO + SO2 --> SO3 + HCHO ', & - ' CH2OO --> H2O2 + HCHO ', & - ' CH2OO --> HCOOH ', & - ' MBOAOOH + OH --> MBOACO + OH ', & - ' MBOAOOH + OH --> MBOAO2 ', & - ' MBOAOOH --> MBOAO + OH ', & - ' MBOAO --> CH3COCH3 + HOCH2CHO + HO2 ', & - ' MBOACO + OH --> MBOCOCO + HO2 ', & - ' MBOACO --> HCHO + IPRHOCO3 + HO2 ', & - ' MBOAOH + OH --> MBOACO + HO2 ', & - ' MBOBOOH + OH --> MBOBCO + OH ', & - ' MBOBOOH + OH --> MBOBO2 ', & - ' MBOBOOH --> MBOBO + OH ', & - ' MBOBO --> IBUTALOH + HCHO + HO2 ', & - ' MBOBCO + OH --> C4OH2CO3 ', & - ' MBOBCO --> IBUTALOH + CO + 2 HO2 ', & - ' CH3OOH --> CH3O + OH ', & - ' CH3OOH + OH --> CH3O2 ', & - ' CH3OOH + OH --> HCHO + OH ', & - ' CH3NO3 --> CH3O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_83 = (/ & - ' CH3NO3 + OH --> HCHO + NO2 ', & - ' CH3O --> HCHO + HO2 ', & - ' CH3O2NO2 --> CH3O2 + NO2 ', & - ' HCOCH2OOH + OH --> GLYOX + OH ', & - ' HCOCH2OOH + OH --> HCOCH2O2 ', & - ' HCOCH2OOH --> HCOCH2O + OH ', & - ' HCOCH2OOH --> HCHO + OH + CO + HO2 ', & - ' HCOCH2O --> HCHO + CO + HO2 ', & - ' PERPROACID + OH --> C2H5CO3 ', & - ' PERPROACID --> C2H5O2 + OH ', & - ' PROPACID + OH --> C2H5O2 ', & - ' PPN + OH --> CH3CHO + CO + NO2 ', & - ' PPN --> C2H5CO3 + NO2 ', & - ' C2H5OOH --> C2H5O + OH ', & - ' C2H5OOH + OH --> C2H5O2 ', & - ' C2H5OOH + OH --> CH3CHO + OH ', & - ' C2H5NO3 --> C2H5O + NO2 ', & - ' C2H5NO3 + OH --> CH3CHO + NO2 ', & - ' BUTACID + OH --> NC3H7O2 ', & - ' PERBUACID + OH --> C3H7CO3 ', & - ' PERBUACID --> NC3H7O2 + OH ', & - ' PBN + OH --> C2H5CHO + CO + NO2 ', & - ' PBN --> C3H7CO3 + NO2 ', & - ' BUTALO2H + OH --> BUTALO2 ', & - ' BUTALO2H + OH --> CO2C3CHO + OH ', & - ' BUTALO2H --> BUTALO + OH ', & - ' BUTALO2H --> IC3H7O2 + CO + HO2 ', & - ' BUTALNO3 + OH --> CO2C3CHO + NO2 ', & - ' BUTALNO3 --> BUTALO + NO2 ', & - ' BUTALO --> CH3CHO + HCOCH2O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_84 = (/ & - ' BUTALO --> CO2C3CHO + HO2 ', & - ' CO2C3CHO + NO3 --> CO2C3CO3 + HNO3 ', & - ' CO2C3CHO + OH --> CO2C3CO3 ', & - ' CO2C3CHO --> HCHO + CH3COCH2O2 ', & - ' HO2C3CHO --> IPROPOLO2 + CO + HO2 ', & - ' HO2C3CHO + NO3 --> HO2C3CO3 + HNO3 ', & - ' HO2C3CHO + OH --> CO2C3CHO + HO2 ', & - ' HO2C3CHO + OH --> HO2C3CO3 ', & - ' NC3H7OOH --> NC3H7O + OH ', & - ' NC3H7OOH + OH --> C2H5CHO + OH ', & - ' NC3H7OOH + OH --> NC3H7O2 ', & - ' NC3H7NO3 --> NC3H7O + NO2 ', & - ' NC3H7NO3 + OH --> C2H5CHO + NO2 ', & - ' NC3H7O --> C2H5CHO + HO2 ', & - ' IBUTACID + OH --> IC3H7O2 ', & - ' PERIBUACID + OH --> IPRCO3 ', & - ' PERIBUACID --> IC3H7O2 + OH ', & - ' PIPN + OH --> CH3COCH3 + CO + NO2 ', & - ' PIPN --> IPRCO3 + NO2 ', & - ' IBUTALBO2H + OH --> IBUTALBO2 ', & - ' IBUTALBO2H + OH --> IBUTDIAL + OH ', & - ' IBUTALBO2H --> IBUTALBO + OH ', & - ' IBUALANO3 + OH --> IBUTDIAL + NO2 ', & - ' IBUALANO3 --> IBUTALBO + NO2 ', & - ' IBUTALBO --> IBUTDIAL + HO2 ', & - ' IBUTDIAL + NO3 --> IBUDIALCO3 + HNO3 ', & - ' IBUTDIAL + OH --> IBUDIALCO3 ', & - ' IBUTDIAL --> PROPALO2 + CO + HO2 ', & - ' IBUTALO2H + OH --> IBUTALCO2 ', & - ' IBUTALO2H --> CH3COCH3 + OH + CO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_85 = (/ & - ' IBUTALO2H --> M2PROPAL2O + OH ', & - ' M2PROPAL2O --> CH3COCH3 + CO + HO2 ', & - ' IC3H7OOH --> IC3H7O + OH ', & - ' IC3H7OOH + OH --> CH3COCH3 + OH ', & - ' IC3H7OOH + OH --> IC3H7O2 ', & - ' IC3H7NO3 --> IC3H7O + NO2 ', & - ' IC3H7NO3 + OH --> CH3COCH3 + NO2 ', & - ' IC3H7O --> CH3COCH3 + HO2 ', & - ' PENTACID + OH --> NC4H9O2 ', & - ' PERPENACID + OH --> C4H9CO3 ', & - ' PERPENACID --> NC4H9O2 + OH ', & - ' PPEN + OH --> C3H7CHO + CO + NO2 ', & - ' PPEN --> C4H9CO3 + NO2 ', & - ' C4CHOBOOH + OH --> C4CHOBO2 ', & - ' C4CHOBOOH + OH --> CO3C4CHO + OH ', & - ' C4CHOBOOH --> C4CHOBO + OH ', & - ' C4CHOBNO3 + OH --> CO3C4CHO + NO2 ', & - ' C4CHOBNO3 --> C4CHOBO + NO2 ', & - ' C4CHOBO --> CO3C4CHO + HO2 ', & - ' CO3C4CHO --> MEKCO2 + CO + HO2 ', & - ' CO3C4CHO + NO3 --> CO3C4CO3 + HNO3 ', & - ' CO3C4CHO + OH --> CO3C4CO3 ', & - ' NC4H9OOH --> NC4H9O + OH ', & - ' NC4H9OOH + OH --> C3H7CHO + OH ', & - ' NC4H9OOH + OH --> NC4H9O2 ', & - ' NC4H9NO3 --> NC4H9O + NO2 ', & - ' NC4H9NO3 + OH --> C3H7CHO + NO2 ', & - ' NC4H9O --> C3H7CHO + HO2 ', & - ' NC4H9O --> HO1C4O2 ', & - ' ACO2H + OH --> HCHO + CO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_86 = (/ & - ' ACO3H --> HCHO + OH + CO + HO2 ', & - ' ACO3H + OH --> ACO3 ', & - ' ACO3H + OH --> HOCH2CHO + OH + CO ', & - ' ACRPAN --> ACO3 + NO2 ', & - ' ACRPAN + OH --> HOCH2CHO + CO + NO3 ', & - ' HOCHOCOOH + OH --> HOCH2COCHO + OH ', & - ' HOCHOCOOH --> CHOCOHCO + OH ', & - ' CHOCOHCO --> HOCH2CHO + CO + HO2 ', & - ' HOCH2COCHO --> HOCH2CO3 + CO + HO2 ', & - 'HOCH2COCHO + NO3 --> HNO3 + HOCH2CO3 + CO ', & - ' HOCH2COCHO + OH --> HOCH2CO3 + CO ', & - ' OCCOHCOH + OH --> A2PANOO ', & - ' C32OH13CO + OH --> HCOCOHCO3 ', & - ' C32OH13CO --> GLYOX + CO + 2 HO2 ', & - ' OCCOHCOOH + OH --> OCCOHCO2 ', & - ' OCCOHCOOH --> OCCOHCO + OH ', & - ' C42AOH --> NO3CH2CHO + CO + 2 HO2 ', & - ' C42AOH + OH --> NMGLYOX + HO2 ', & - ' OCCOHCO --> HCHO + GLYOX + HO2 ', & - ' HCOCO --> 2 CO + HO2 ', & - ' HCOCO --> OH + CO ', & - ' HCOCO --> HCOCO3 ', & - ' GLYOO + CO --> GLYOX ', & - ' GLYOO + NO --> GLYOX + NO2 ', & - ' GLYOO + NO2 --> GLYOX + NO3 ', & - ' GLYOO + SO2 --> SO3 + GLYOX ', & - ' GLYOO --> H2O2 + GLYOX ', & - ' GLYOO --> HCOCO2H ', & - ' MACO2H + OH --> CH3C2H2O2 ', & - ' MACO3H --> CH3C2H2O2 + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_87 = (/ & - ' MACO3H + OH --> ACETOL + OH + CO ', & - ' MACO3H + OH --> HMML + OH ', & - ' MACO3H + OH --> MACO3 ', & - ' MPAN --> MACO3 + NO2 ', & - ' MPAN + O3 --> HCHO + CH3CO3 + NO3 ', & - ' MPAN + OH --> ACETOL + CO + NO3 ', & - ' MPAN + OH --> HMML + NO3 ', & - ' MPAN + OH --> MAE + NO3 ', & - ' MGLYOO + CO --> MGLYOX ', & - ' MGLYOO + NO --> MGLYOX + NO2 ', & - ' MGLYOO + NO2 --> MGLYOX + NO3 ', & - ' MGLYOO + SO2 --> SO3 + MGLYOX ', & - ' MGLYOO --> H2O2 + MGLYOX ', & - ' MACROOH --> ACETOL + OH + CO + HO2 ', & - ' MACROOH --> MACRO + OH ', & - ' MACROOH + OH --> ACETOL + OH + CO ', & - ' MACRNO3 + OH --> CONM2CHO + HO2 ', & - ' MACRNO3 + OH --> MACRNCO3 ', & - ' MACRNO3 --> ACETOL + CO + NO2 + HO2 ', & - ' MACRO --> ACETOL + CO + HO2 ', & - ' MACROH --> ACETOL + CO + 2 HO2 ', & - ' MACROH + OH --> C3MDIALOH + HO2 ', & - ' MACROHOOH + OH --> C3MDIALOH + OH ', & - ' MACROHOOH --> IBUTALOH + OH + CO + HO2 ', & - ' MACROHOOH --> MACROHO + OH ', & - ' MACRNB --> C3MDIALOH + NO2 + HO2 ', & - ' MACRNB + OH --> MACRNBCO3 ', & - ' MACROHO --> MGLYOX + HCHO + HO2 ', & - ' C3MDIALOH + OH --> CHOMOHCO3 ', & - ' C3MDIALOH --> MGLYOX + CO + 2 HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_88 = (/ & - ' C3DBCO3H + OH --> C3DBCO3 ', & - ' C3DBCO3H --> CH3CHO + OH + CO + HO2 ', & - ' C3H5CO2H + OH --> CH3CHO + CO + HO2 ', & - ' C3DBPAN + OH --> CH3CHO + 2 CO + NO2 ', & - ' C3DBPAN --> C3DBCO3 + NO2 ', & - 'C4CONO3OOH + NO3 --> C4CONO3O2 + HNO3 ', & - ' C4CONO3OOH + OH --> C4CONO3O2 ', & - ' C4CONO3OOH --> C4CONO3O + OH ', & - ' C4CONO3O --> CH3CHO + GLYOX + NO2 ', & - ' C4CONO3CO + NO3 --> C4CONO3O2 + HNO3 ', & - ' C4CONO3CO + OH --> C4CONO3O2 ', & - ' C4CONO3CO --> C4CONO3O2 + CO + HO2 ', & - ' C4CONO3CO --> C4CO2O + NO2 ', & - ' COCCOHNO3 + OH --> CCOCOCOH + NO2 ', & - ' COCCOHNO3 --> CH3CHOHCHO + CO + NO2 + HO2 ', & - 'C4NO3COOOH + NO3 --> CH3CHO + HNO3 + GLYOX + OH + NO2 ', & - ' C4NO3COOOH + OH --> C4NO3COO2 ', & - ' C4NO3COOOH --> C4CONO3O + OH ', & - ' C4NO3OCO --> CH3CHO + GLYOX + NO2 ', & - ' C4OCCOHNO3 + OH --> CO2H3CHO + NO2 ', & - ' C4OCCOHNO3 --> CHOPRNO3 + CO + HO2 ', & - ' CH3CHOO + CO --> CH3CHO ', & - ' CH3CHOO + NO --> CH3CHO + NO2 ', & - ' CH3CHOO + NO2 --> CH3CHO + NO3 ', & - ' CH3CHOO + SO2 --> SO3 + CH3CHO ', & - ' CH3CHOO --> H2O2 + CH3CHO ', & - ' CH3CHOO --> CH3CO2H ', & - ' C4OCCOHOOH + OH --> CO2H3CHO + OH ', & - ' C4OCCOHOOH --> C4OCCOHCO + OH ', & - ' C4OCCOHCO --> CH3CHO + GLYOX + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_89 = (/ & - ' C4OCCOHCOH + OH --> CO2H3CHO + HO2 ', & - ' C4OCCOHCOH --> CH3CHOHCHO + CO + 2 HO2 ', & - ' CO2H3CHO --> MGLYOX + CO + 2 HO2 ', & - ' CO2H3CHO + NO3 --> CO2H3CO3 + HNO3 ', & - ' CO2H3CHO + OH --> CO2H3CO3 ', & - ' COCCOHCOOH + OH --> CCOCOCOH + OH ', & - ' COCCOHCOOH --> CH3CHOHCHO + OH + CO + HO2 ', & - ' COCCOHCOOH --> COCCOHCO + OH ', & - ' COCCOHCO --> CH3CHOHCHO + CO + HO2 ', & - ' CCOCOCOH + OH --> CH3CHOHCO3 + CO ', & - ' CCOCOCOH --> CH3CHOHCO3 + CO + HO2 ', & - ' SC4H9OOH + OH --> MEK + OH ', & - ' SC4H9OOH + OH --> SC4H9O2 ', & - ' SC4H9OOH --> SC4H9O + OH ', & - ' SC4H9NO3 + OH --> MEK + NO2 ', & - ' SC4H9NO3 --> SC4H9O + NO2 ', & - ' SC4H9O --> C2H5O2 + CH3CHO ', & - ' SC4H9O --> MEK + HO2 ', & - ' IC4H9OOH --> IC4H9O + OH ', & - ' IC4H9OOH + OH --> IC4H9O2 ', & - ' IC4H9OOH + OH --> IPRCHO + OH ', & - ' IC4H9NO3 --> IC4H9O + NO2 ', & - ' IC4H9NO3 + OH --> IPRCHO + NO2 ', & - ' IC4H9O --> IPRCHO + HO2 ', & - ' TC4H9OOH + OH --> TC4H9O2 ', & - ' TC4H9OOH --> TC4H9O + OH ', & - ' TC4H9NO3 + OH --> CH3COCH3 + HCHO + NO2 ', & - ' TC4H9NO3 --> TC4H9O + NO2 ', & - ' PEAOOH + OH --> C4H9CHO + OH ', & - ' PEAOOH + OH --> PEAO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_90 = (/ & - ' PEAOOH --> PEAO + OH ', & - ' PEANO3 + OH --> C4H9CHO + NO2 ', & - ' PEANO3 --> PEAO + NO2 ', & - ' PEAO --> HO1C5O2 ', & - ' PEAOH + OH --> C4H9CHO + HO2 ', & - ' PEBOOH + OH --> MPRK + OH ', & - ' PEBOOH + OH --> PEBO2 ', & - ' PEBOOH --> PEBO + OH ', & - ' PEBNO3 + OH --> MPRK + NO2 ', & - ' PEBNO3 --> PEBO + NO2 ', & - ' PEBO --> HO2C5O2 ', & - ' PEBO --> MPRK + HO2 ', & - ' PEBOH + OH --> MPRK + HO2 ', & - ' PECOOH + OH --> DIEK + OH ', & - ' PECOOH --> PECO + OH ', & - ' PECNO3 + OH --> DIEK + NO2 ', & - ' PECNO3 --> PECO + NO2 ', & - ' PECO --> C2H5O2 + C2H5CHO ', & - ' PECO --> DIEK + HO2 ', & - ' IPEAOOH --> IPEAO + OH ', & - ' IPEAOOH + OH --> BUT2CHO + OH ', & - ' IPEAOOH + OH --> IPEAO2 ', & - ' IPEANO3 --> IPEAO + NO2 ', & - ' IPEANO3 + OH --> BUT2CHO + NO2 ', & - ' IPEAO --> BUT2CHO + HO2 ', & - ' IPEAO --> C52O2 ', & - ' IPEBOOH --> IPEBO + OH ', & - ' IPEBOOH + OH --> IPEBO2 ', & - ' IPEBOOH + OH --> MIPK + OH ', & - ' IPEBNO3 --> IPEBO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_91 = (/ & - ' IPEBNO3 + OH --> MIPK + NO2 ', & - ' IPEBO --> IC3H7O2 + CH3CHO ', & - ' IPEBO --> MIPK + HO2 ', & - ' IPECOOH --> IPECO + OH ', & - ' IPECOOH + OH --> IPECO2 ', & - ' IPECNO3 --> IPECO + NO2 ', & - ' IPECNO3 + OH --> CH3COCH3 + CH3CHO + NO2 ', & - ' IPECO --> C2H5O2 + CH3COCH3 ', & - ' NEOPOOH --> NEOPO + OH ', & - ' NEOPOOH + OH --> NEOPO2 ', & - ' NEOPOOH + OH --> TBUTCHO + OH ', & - ' NEOPNO3 --> NEOPO + NO2 ', & - ' NEOPNO3 + OH --> TBUTCHO + NO2 ', & - ' NEOPO --> TC4H9O2 + HCHO ', & - ' NEOPOH + OH --> TBUTCHO + HO2 ', & - ' TBUTCHO + NO3 --> TBUTCO3 + HNO3 ', & - ' TBUTCHO + OH --> TBUTCO3 ', & - ' TBUTCHO --> TC4H9O2 + CO + HO2 ', & - ' HEXAOOH --> HEXAO + OH ', & - ' HEXAOOH + OH --> C5H11CHO + OH ', & - ' HEXAOOH + OH --> HEXAO2 ', & - ' HEXANO3 --> HEXAO + NO2 ', & - ' HEXANO3 + OH --> C5H11CHO + NO2 ', & - ' HEXAO --> HO1C6O2 ', & - ' C5H11CHO --> BUT1ENE + CH3CHO ', & - ' C5H11CHO --> PEAO2 + CO + HO2 ', & - ' C5H11CHO + NO3 --> C5H11CO3 + HNO3 ', & - ' C5H11CHO + OH --> C5H11CO3 ', & - ' HEXAOH + OH --> C5H11CHO + HO2 ', & - ' HEXBOOH --> HEXBO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_92 = (/ & - ' HEXBOOH + OH --> HEX2ONE + OH ', & - ' HEXBOOH + OH --> HEXBO2 ', & - ' HEXBNO3 --> HEXBO + NO2 ', & - ' HEXBNO3 + OH --> HEX2ONE + NO2 ', & - ' HEXBO --> HO2C6O2 ', & - ' HEXBOH + OH --> HEX2ONE + HO2 ', & - ' HEXCOOH --> HEXCO + OH ', & - ' HEXCOOH + OH --> HEX3ONE + OH ', & - ' HEXCNO3 --> HEXCO + NO2 ', & - ' HEXCNO3 + OH --> HEX3ONE + NO2 ', & - ' HEXCO --> HEX3ONE + HO2 ', & - ' HEXCO --> HO3C6O2 ', & - ' HEXCOH + OH --> HEX3ONE + HO2 ', & - ' M2PEAOOH --> M2PEAO + OH ', & - ' M2PEAOOH + OH --> C54CHO + OH ', & - ' M2PEAOOH + OH --> M2PEAO2 ', & - ' M2PEANO3 --> M2PEAO + NO2 ', & - ' M2PEANO3 + OH --> C54CHO + NO2 ', & - ' M2PEAO --> HO1MC5O2 ', & - ' C54CHO --> PEBO2 + CO + HO2 ', & - ' C54CHO + NO3 --> C54CO3 + HNO3 ', & - ' C54CHO + OH --> C54CO3 ', & - ' M2PEAOH + OH --> C54CHO + HO2 ', & - ' M2PEBOOH --> M2PEBO + OH ', & - ' M2PEBOOH + OH --> M2PEBO2 ', & - ' M2PEBOOH + OH --> MIBK + OH ', & - ' M2PEBNO3 --> M2PEBO + NO2 ', & - ' M2PEBNO3 + OH --> MIBK + NO2 ', & - ' M2PEBO --> HO2MC5O2 ', & - ' M2PEBO --> MIBK + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_93 = (/ & - ' M2PEBOH + OH --> MIBK + HO2 ', & - ' M2PECOOH --> M2PECO + OH ', & - ' M2PECOOH + OH --> EIPK + OH ', & - ' M2PECOOH + OH --> M2PECO2 ', & - ' M2PECNO3 --> M2PECO + NO2 ', & - ' M2PECNO3 + OH --> EIPK + NO2 ', & - ' M2PECO --> C2H5O2 + IPRCHO ', & - ' M2PECO --> EIPK + HO2 ', & - ' M2PECO --> IC3H7O2 + C2H5CHO ', & - ' EIPK --> IC3H7O2 + C2H5CO3 ', & - ' EIPK --> IPRCO3 + C2H5O2 ', & - ' EIPK + OH --> EIPKAO2 ', & - ' EIPK + OH --> EIPKBO2 ', & - ' M2PECOH + OH --> EIPK + HO2 ', & - ' M2PEDOOH --> M2PEDO + OH ', & - ' M2PEDOOH + OH --> M2PEDO2 ', & - ' M2PEDNO3 --> M2PEDO + NO2 ', & - ' M2PEDNO3 + OH --> CH3COCH3 + C2H5CHO + NO2 ', & - ' M2PEDO --> CH3COCH3 + NC3H7O2 ', & - ' M2PEDO --> HO2M2C5O2 ', & - ' M2PEDOH + OH --> M2PEDO ', & - ' M3PEAOOH --> M3PEAO + OH ', & - ' M3PEAOOH + OH --> M3C4CHO + OH ', & - ' M3PEAOOH + OH --> M3PEAO2 ', & - ' M3PEANO3 --> M3PEAO + NO2 ', & - ' M3PEANO3 + OH --> M3C4CHO + NO2 ', & - ' M3PEAO --> H1MC5O2 ', & - ' M3C4CHO --> IPEAO2 + CO + HO2 ', & - ' M3C4CHO + NO3 --> M3C4CO3 + HNO3 ', & - ' M3C4CHO + OH --> M3C4CO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_94 = (/ & - ' M3PEAOH + OH --> M3C4CHO + HO2 ', & - ' M3PEBOOH --> M3PEBO + OH ', & - ' M3PEBOOH + OH --> M2BK + OH ', & - ' M3PEBOOH + OH --> M3PEBO2 ', & - ' M3PEBNO3 --> M3PEBO + NO2 ', & - ' M3PEBNO3 + OH --> M2BK + NO2 ', & - ' M3PEBO --> H2MC5O2 ', & - ' M3PEBO --> M2BK + HO2 ', & - ' M2BK --> SC4H9O2 + CH3CO3 ', & - ' M2BK + OH --> M2BKAO2 ', & - ' M2BK + OH --> M2BKBO2 ', & - ' M3PEBOH + OH --> M2BK + HO2 ', & - ' M3PECOOH --> M3PECO + OH ', & - ' M3PECOOH + OH --> M3PECO2 ', & - ' M3PECNO3 --> M3PECO + NO2 ', & - ' M3PECNO3 + OH --> MEK + CH3CHO + NO2 ', & - ' M3PECO --> C2H5O2 + MEK ', & - ' M3PECOH + OH --> M3PECO ', & - ' M22C43OOH --> M22C43O + OH ', & - ' M22C43OOH + OH --> M22C43O2 ', & - ' M22C43OOH + OH --> MTBK + OH ', & - ' M22C43NO3 --> M22C43O + NO2 ', & - ' M22C43NO3 + OH --> MTBK + NO2 ', & - ' M22C43O --> MTBK + HO2 ', & - ' M22C43O --> TC4H9O2 + CH3CHO ', & - ' M22C43OH + OH --> MTBK + HO2 ', & - ' M22C4OOH --> M22C4O + OH ', & - ' M22C4OOH + OH --> M22C3CHO + OH ', & - ' M22C4OOH + OH --> M22C4O2 ', & - ' M22C4NO3 --> M22C4O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_95 = (/ & - ' M22C4NO3 + OH --> M22C3CHO + NO2 ', & - ' M22C4O --> HM33C4O2 ', & - ' M22C3CHO --> NEOPO2 + CO + HO2 ', & - ' M22C3CHO + NO3 --> M22C3CO3 + HNO3 ', & - ' M22C3CHO + OH --> M22C3CO3 ', & - ' M22C4OH + OH --> M22C3CHO + HO2 ', & - ' M33C4OOH --> M33C4O + OH ', & - ' M33C4OOH + OH --> M33C3CHO + OH ', & - ' M33C4OOH + OH --> M33C4O2 ', & - ' M33C4NO3 --> M33C4O + NO2 ', & - ' M33C4NO3 + OH --> M33C3CHO + NO2 ', & - ' M33C4O --> HM22C4O2 ', & - ' M33C4O --> M33C3CHO + HO2 ', & - ' M33C3CHO --> IPECO2 + CO + HO2 ', & - ' M33C3CHO + NO3 --> M33C3CO3 + HNO3 ', & - ' M33C3CHO + OH --> M33C3CO3 ', & - ' M33C4OH + OH --> M33C3CHO + HO2 ', & - ' M23C43OOH --> M23C43O + OH ', & - ' M23C43OOH + OH --> M23C43O2 ', & - ' M23C43NO3 --> M23C43O + NO2 ', & - ' M23C43NO3 + OH --> 2 CH3COCH3 + NO2 ', & - ' M23C43O --> IC3H7O2 + CH3COCH3 ', & - ' M23C43OH + OH --> M23C43O ', & - ' M23C4OOH --> M23C4O + OH ', & - ' M23C4OOH + OH --> M23C4O2 ', & - ' M23C4OOH + OH --> M2C43CHO + OH ', & - ' M23C4NO3 --> M23C4O + NO2 ', & - ' M23C4NO3 + OH --> M2C43CHO + NO2 ', & - ' M23C4O --> HM23C4O2 ', & - ' M23C4O --> M2C43CHO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_96 = (/ & - ' M23C4OH + OH --> M2C43CHO + HO2 ', & - ' M2C43CHO --> IPEBO2 + CO + HO2 ', & - ' M2C43CHO + NO3 --> M2C43CO3 + HNO3 ', & - ' M2C43CHO + OH --> M2C43CO3 ', & - ' HEPTOOH --> HEPTO + OH ', & - ' HEPTOOH + OH --> HEPT3ONE + OH ', & - ' HEPTNO3 --> HEPTO + NO2 ', & - ' HEPTNO3 + OH --> HEPT3ONE + NO2 ', & - ' HEPTO --> HO3C76O2 ', & - ' HEPT3ONE --> C2H5CO3 + NC4H9O2 ', & - ' HEPT3ONE + OH --> CO3C75O2 ', & - ' HEPTOH + OH --> HEPT3ONE + HO2 ', & - ' M2HEXAOOH --> M2HEXAO + OH ', & - ' M2HEXAOOH + OH --> M2CO5C6 + OH ', & - ' M2HEXANO3 --> M2HEXAO + NO2 ', & - ' M2HEXANO3 + OH --> M2CO5C6 + NO2 ', & - ' M2HEXAO --> H2M5C65O2 ', & - ' M2CO5C6 --> IPEAO2 + CH3CO3 ', & - ' M2CO5C6 + OH --> C75O2 ', & - ' M2HEXAOH + OH --> M2CO5C6 + HO2 ', & - ' M2HEXBOOH --> M2HEXBO + OH ', & - ' M2HEXBOOH + OH --> M2HEXBO2 ', & - ' M2HEXBNO3 --> M2HEXBO + NO2 ', & - ' M2HEXBNO3 + OH --> CH3COCH3 + C3H7CHO + NO2 ', & - ' M2HEXBO --> H2M2C65O2 ', & - ' M2HEXBOH + OH --> M2HEXBO ', & - ' M3HEXAOOH --> M3HEXAO + OH ', & - ' M3HEXAOOH + OH --> M3CO5C6 + OH ', & - ' M3HEXANO3 --> M3HEXAO + NO2 ', & - ' M3HEXANO3 + OH --> M3CO5C6 + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_97 = (/ & - ' M3HEXAO --> H2M4C65O2 ', & - ' M3CO5C6 --> IPEAO2 + CH3CO3 ', & - ' M3CO5C6 + OH --> C710O2 ', & - ' M3HEXAOH + OH --> M3CO5C6 + HO2 ', & - ' M3HEXBOOH --> M3HEXBO + OH ', & - ' M3HEXBOOH + OH --> M3HEXBO2 ', & - ' M3HEXBNO3 --> M3HEXBO + NO2 ', & - ' M3HEXBNO3 + OH --> MEK + C2H5CHO + NO2 ', & - ' M3HEXBO --> H3M3C6O2 ', & - ' M3HEXBOH + OH --> M3HEXBO ', & - ' OCTOOH --> OCTO + OH ', & - ' OCTOOH + OH --> OCT3ONE + OH ', & - ' OCTNO3 --> OCTO + NO2 ', & - ' OCTNO3 + OH --> OCT3ONE + NO2 ', & - ' OCTO --> HO3C86O2 ', & - ' OCT3ONE --> PEAO2 + C2H5CO3 ', & - ' OCT3ONE + OH --> CO3C85O2 ', & - ' OCTOH + OH --> OCT3ONE + HO2 ', & - ' NONOOH --> NONO + OH ', & - ' NONOOH + OH --> NON3ONE + OH ', & - ' NONNO3 --> NONO + NO2 ', & - ' NONNO3 + OH --> NON3ONE + NO2 ', & - ' NONO --> HO3C96O2 ', & - ' NON3ONE --> HEXAO2 + C2H5CO3 ', & - ' NON3ONE + OH --> C91O2 ', & - ' NONOH + OH --> NON3ONE + HO2 ', & - ' DECOOH --> DECO + OH ', & - ' DECOOH + OH --> DEC3ONE + OH ', & - ' DECNO3 --> DECO + NO2 ', & - ' DECNO3 + OH --> DEC3ONE + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_98 = (/ & - ' DECO --> HO3C106O2 ', & - ' DEC3ONE --> HEPTO2 + C2H5CO3 ', & - ' DEC3ONE + OH --> C101O2 ', & - ' DECOH + OH --> DEC3ONE + HO2 ', & - ' UDECOOH + OH --> UDEC3ONE + OH ', & - ' UDECOOH --> UDECO + OH ', & - ' UDECNO3 + OH --> UDEC3ONE + NO2 ', & - ' UDECNO3 --> UDECO + NO2 ', & - ' UDECO --> HO3C116O2 ', & - ' UDEC3ONE + OH --> C111O2 ', & - ' UDEC3ONE --> OCTO2 + C2H5CO3 ', & - ' UDECOH + OH --> UDEC3ONE + HO2 ', & - ' DDECOOH --> DDECO + OH ', & - ' DDECOOH + OH --> DDEC3ONE + OH ', & - ' DDECNO3 --> DDECO + NO2 ', & - ' DDECNO3 + OH --> DDEC3ONE + NO2 ', & - ' DDECO --> HO3C126O2 ', & - ' DDEC3ONE --> NONO2 + C2H5CO3 ', & - ' DDEC3ONE + OH --> C121O2 ', & - ' DDECOH + OH --> DDEC3ONE + HO2 ', & - ' CHEXOOH --> CHEXO + OH ', & - ' CHEXOOH + OH --> CYHEXONE + OH ', & - ' CHEXNO3 --> CHEXO + NO2 ', & - ' CHEXNO3 + OH --> CYHEXONE + NO2 ', & - ' CHEXO --> CO1C6O2 ', & - ' CHEXO --> CYHEXONE + HO2 ', & - ' ETHO2HNO3 + OH --> ETHENO3O2 ', & - ' ETHO2HNO3 + OH --> NO3CH2CHO + OH ', & - ' ETHO2HNO3 --> ETHENO3O + OH ', & - ' ETHENO3O --> 2 HCHO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_99 = (/ & - ' ETHENO3O --> NO3CH2CHO + HO2 ', & - ' NO3CH2CHO + NO3 --> NO3CH2CO3 + HNO3 ', & - ' NO3CH2CHO + OH --> NO3CH2CO3 ', & - ' NO3CH2CHO --> HCOCH2O + NO2 ', & - ' PR1O2HNO3 + OH --> CHOPRNO3 + OH ', & - ' PR1O2HNO3 + OH --> PRONO3AO2 ', & - ' PR1O2HNO3 --> PRONO3AO + OH ', & - ' PRONO3AO --> CHOPRNO3 + HO2 ', & - ' PRONO3AO --> CH3CHO + HCHO + NO2 ', & - ' CHOPRNO3 + NO3 --> PRNO3CO3 + HNO3 ', & - ' CHOPRNO3 + OH --> PRNO3CO3 ', & - ' CHOPRNO3 --> PROPALO + NO2 ', & - ' PR2O2HNO3 + OH --> NOA + OH ', & - ' PR2O2HNO3 + OH --> PRONO3BO2 ', & - ' PR2O2HNO3 --> PRONO3BO + OH ', & - ' PRONO3BO --> CH3CHO + HCHO + NO2 ', & - ' PRONO3BO --> NOA + HO2 ', & - ' NOA + OH --> MGLYOX + NO2 ', & - ' NOA --> CH3COCH2O + NO2 ', & - ' BU1ENO3OOH + OH --> BU1ENO3O2 ', & - ' BU1ENO3OOH --> BU1ENO3O + OH ', & - ' BU1ENO3O --> C2H5CHO + HCHO + NO2 ', & - ' BU1ENO3O --> CO3C4NO3 + HO2 ', & - ' CO3C4NO3 + OH --> CO3C4NO3O2 ', & - ' CO3C4NO3 --> MEKCO + NO2 ', & - ' HO3C4NO3 + OH --> HO3C3CHO + NO2 ', & - ' C43NO34OOH + OH --> C43NO34O2 ', & - ' C43NO34OOH --> C43NO34O + OH ', & - ' C43NO34O --> BUTAL2NO3 + HO2 ', & - ' C43NO34O --> C2H5CHO + HCHO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_100 = (/ & - ' BUTAL2NO3 + OH --> EGLYOX + NO2 ', & - ' BUTAL2NO3 --> BUTAL2O + NO2 ', & - ' BUTAL2NO3 --> C2H5CHO + CO + NO2 + HO2 ', & - ' C2H5CHOO + CO --> C2H5CHO ', & - ' C2H5CHOO + NO --> C2H5CHO + NO2 ', & - ' C2H5CHOO + NO2 --> C2H5CHO + NO3 ', & - ' C2H5CHOO + SO2 --> SO3 + C2H5CHO ', & - ' C2H5CHOO --> H2O2 + C2H5CHO ', & - ' C2H5CHOO --> PROPACID ', & - ' HO3C4OOH + OH --> HO3C3CHO + OH ', & - ' HO3C4OOH + OH --> HO3C4O2 ', & - ' HO3C4OOH --> HO3C4O + OH ', & - ' HO3C4O --> C2H5CHO + HCHO + HO2 ', & - ' HO3C3CHO + NO3 --> HO3C3CO3 + HNO3 ', & - ' HO3C3CHO + OH --> HO3C3CO3 ', & - ' HO3C3CHO --> C2H5CHO + HCHO + HO2 ', & - ' C42NO33OOH + OH --> BUTONENO3 + OH ', & - ' C42NO33OOH --> C42NO33O + OH ', & - ' C42NO33O --> BUTONENO3 + HO2 ', & - ' C42NO33O --> 2 CH3CHO + NO2 ', & - ' BUTONENO3 + OH --> BIACET + NO2 ', & - ' BUTONENO3 --> MEKBO + NO2 ', & - ' MPRANO3OOH + OH --> MPRANO3O2 ', & - ' MPRANO3OOH --> MPRANO3O + OH ', & - ' MPRANO3O --> CH3COCH3 + HCHO + NO2 ', & - ' MPRBNO3OOH + OH --> MPRBNO3O2 ', & - ' MPRBNO3OOH --> MPRBNO3O + OH ', & - ' MPRBNO3O --> CH3COCH3 + HCHO + NO2 ', & - ' MPRBNO3O --> MPRBNO3CHO + HO2 ', & - 'MPRBNO3CHO + NO3 --> MPRBNO3CO3 + HNO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_101 = (/ & - ' MPRBNO3CHO + OH --> MPRBNO3CO3 ', & - ' MPRBNO3CHO --> CH3COCH3 + CO + NO2 + HO2 ', & - ' MPRBNO3CHO --> M2PROPAL2O + NO2 ', & - ' CH3CCH3OO + CO --> CH3COCH3 ', & - ' CH3CCH3OO + NO --> CH3COCH3 + NO2 ', & - ' CH3CCH3OO + NO2 --> CH3COCH3 + NO3 ', & - ' CH3CCH3OO + SO2 --> SO3 + CH3COCH3 ', & - ' CH3CCH3OO --> H2O2 + CH3COCH3 ', & - ' C51NO32OOH + OH --> C51NO32CO + OH ', & - ' C51NO32OOH + OH --> C51NO32O2 ', & - ' C51NO32OOH --> C51NO32O + OH ', & - ' C51NO32O --> C3H7CHO + HCHO + NO2 ', & - ' C51NO32O --> C51NO32CO + HO2 ', & - ' C51NO32CO + OH --> C5NO3COAO2 ', & - ' C51NO32CO --> PEN2ONE1O + NO2 ', & - ' PE1ENEBNO3 + OH --> C4OHCHO + NO2 ', & - ' C52NO31OOH + OH --> C52NO31CO + OH ', & - ' C52NO31OOH + OH --> C52NO31O2 ', & - ' C52NO31OOH --> C52NO31O + OH ', & - ' C52NO31O --> C3H7CHO + HCHO + NO2 ', & - ' C52NO31O --> C52NO31CO + HO2 ', & - ' C52NO31CO + NO3 --> C4NO3CO3 + HNO3 ', & - ' C52NO31CO + OH --> C4NO3CO3 ', & - ' C52NO31CO --> C4CHO2O + NO2 ', & - ' PE1ENEANO3 + OH --> C51OH2CO + NO2 ', & - ' C3H7CHOO + CO --> C3H7CHO ', & - ' C3H7CHOO + NO --> C3H7CHO + NO2 ', & - ' C3H7CHOO + NO2 --> C3H7CHO + NO3 ', & - ' C3H7CHOO + SO2 --> SO3 + C3H7CHO ', & - ' C3H7CHOO --> BUTACID ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_102 = (/ & - ' C3H7CHOO --> H2O2 + C3H7CHO ', & - ' C51OH2OOH + OH --> C51OH2CO + OH ', & - ' C51OH2OOH + OH --> PE1ENEAO2 ', & - ' C51OH2OOH --> PE1ENEAO + OH ', & - ' PE1ENEAO --> C3H7CHO + HCHO + HO2 ', & - ' C51OH2CO + OH --> C5OH2CO4O2 ', & - ' C51OH2CO --> NC3H7O2 + HOCH2CO3 ', & - ' HO12C5 + OH --> C51OH2CO + HO2 ', & - ' C52OH1OOH + OH --> C4OHCHO + OH ', & - ' C52OH1OOH + OH --> PE1ENEBO2 ', & - ' C52OH1OOH --> PE1ENEBO + OH ', & - ' PE1ENEBO --> C3H7CHO + HCHO + HO2 ', & - ' C4OHCHO + NO3 --> C4OHCO3 + HNO3 ', & - ' C4OHCHO + OH --> C4OHCO3 ', & - ' C4OHCHO --> C3H7CHO + CO + 2 HO2 ', & - ' C52NO33OOH + OH --> C52NO33CO + OH ', & - ' C52NO33OOH + OH --> C52NO33O2 ', & - ' C52NO33OOH --> C52NO33O + OH ', & - ' C52NO33O --> C2H5CHO + CH3CHO + NO2 ', & - ' C52NO33O --> C52NO33CO + HO2 ', & - ' C52NO33CO + OH --> C5NO3CO4O2 ', & - ' C52NO33CO --> DIEKAO + NO2 ', & - ' C53NO32OOH + OH --> C53NO32CO + OH ', & - ' C53NO32OOH + OH --> C53NO32O2 ', & - ' C53NO32OOH --> C53NO32O + OH ', & - ' C53NO32O --> C53NO32CO + HO2 ', & - ' C53NO32O --> C2H5CHO + CH3CHO + NO2 ', & - ' C53NO32CO + OH --> C5CONO34O2 ', & - ' C53NO32CO --> MPRKAO + NO2 ', & - ' PE2ENEANO3 + OH --> DIEKAOH + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_103 = (/ & - ' C52OH3OOH + OH --> DIEKAOH + OH ', & - ' C52OH3OOH + OH --> PE2ENEAO2 ', & - ' C52OH3OOH --> PE2ENEAO + OH ', & - ' PE2ENEAO --> C2H5CHO + CH3CHO + HO2 ', & - ' DIEKAOH + OH --> CO23C5 ', & - ' DIEKAOH --> C2H5CO3 + CH3CHO ', & - ' C4NO3M1OOH + OH --> C4NO32M1O2 ', & - ' C4NO3M1OOH + OH --> C4NO3CHO + OH ', & - ' C4NO3M1OOH --> C4NO32M1O + OH ', & - ' C4NO32M1O --> C4NO3CHO + HO2 ', & - ' C4NO32M1O --> MEK + HCHO + NO2 ', & - ' C4NO3CHO + NO3 --> C43NO3CO3 + HNO3 ', & - ' C4NO3CHO + OH --> C43NO3CO3 ', & - ' C4NO3CHO --> C42CHO2O + NO2 ', & - ' C4NO3CHO --> MEK + CO + NO2 + HO2 ', & - ' C4NO32MOOH + OH --> C4NO32M2O2 ', & - ' C4NO32MOOH --> C4NO32M2O + OH ', & - ' C4NO32M2O --> MEK + HCHO + NO2 ', & - ' C2H5MECOO + CO --> MEK ', & - ' C2H5MECOO + NO --> MEK + NO2 ', & - ' C2H5MECOO + NO2 --> MEK + NO3 ', & - ' C2H5MECOO + SO2 --> SO3 + MEK ', & - ' C2H5MECOO --> H2O2 + MEK ', & - ' C4MNO31OOH + OH --> C4M3NO31O2 ', & - ' C4MNO31OOH + OH --> C4M3NO3ONE + OH ', & - ' C4MNO31OOH --> C4M3NO31O + OH ', & - ' C4M3NO31O --> C4M3NO3ONE + HO2 ', & - ' C4M3NO31O --> IPRCHO + HCHO + NO2 ', & - ' C4M3NO3ONE + OH --> C4MCONO3O2 ', & - ' C4M3NO3ONE --> IPRCOMO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_104 = (/ & - ' M3BU2OLNO3 + OH --> C3M3OH2CHO + NO2 ', & - ' M3BU2OLNO3 --> ME3BU2OLO + NO2 ', & - ' C4MNO32OOH + OH --> C3MNO3CHO + OH ', & - ' C4MNO32OOH + OH --> C4M3NO32O2 ', & - ' C4MNO32OOH --> C4M3NO32O + OH ', & - ' C4M3NO32O --> C3MNO3CHO + HO2 ', & - ' C4M3NO32O --> IPRCHO + HCHO + NO2 ', & - ' C3MNO3CHO + NO3 --> C3MNO3CO3 + HNO3 ', & - ' C3MNO3CHO + OH --> C3MNO3CO3 ', & - ' C3MNO3CHO --> M3BUTAL2O + NO2 ', & - ' IPRCHOO + CO --> IPRCHO ', & - ' IPRCHOO + NO --> IPRCHO + NO2 ', & - ' IPRCHOO + NO2 --> IPRCHO + NO3 ', & - ' IPRCHOO + SO2 --> SO3 + IPRCHO ', & - ' IPRCHOO --> IBUTACID ', & - ' IPRCHOO --> H2O2 + IPRCHO ', & - ' M3BU2OLOOH + OH --> C3M3OH2CHO + OH ', & - ' M3BU2OLOOH + OH --> ME3BU2OLO2 ', & - ' M3BU2OLOOH --> ME3BU2OLO + OH ', & - ' ME3BU2OLO --> IPRCHO + HCHO + HO2 ', & - 'C3M3OH2CHO + NO3 --> C3M3OH2CO3 + HNO3 ', & - ' C3M3OH2CHO + OH --> C3M3OH2CO3 ', & - ' C3M3OH2CHO --> IPRCHO + CO + HO2 ', & - ' C4NO3M2OOH + OH --> C4M2NO32O2 ', & - ' C4NO3M2OOH + OH --> C4M2NO3ONE + OH ', & - ' C4NO3M2OOH --> C4M2NO32O + OH ', & - ' C4M2NO32O --> C4M2NO3ONE + HO2 ', & - ' C4M2NO32O --> CH3COCH3 + CH3CHO + NO2 ', & - ' C4M2NO3ONE + OH --> MC4CONO3O2 ', & - ' C4M2NO3ONE --> MIPKAO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_105 = (/ & - ' C4M2NO3OOH + OH --> C4M2NO33O2 ', & - ' C4M2NO3OOH --> C4M2NO33O + OH ', & - ' C4M2NO33O --> CH3COCH3 + CH3CHO + NO2 ', & - ' C65NO36OOH + OH --> C65NO36CHO + OH ', & - ' C65NO36OOH + OH --> C65NO36O2 ', & - ' C65NO36O --> C4H9CHO + HCHO + NO2 ', & - ' C65NO36O --> C65NO36CHO + HO2 ', & - 'C65NO36CHO + NO3 --> C65NO36CO3 + HNO3 ', & - ' C65NO36CHO + OH --> C65NO36CO3 ', & - ' C65NO36CHO --> C4H9CHO + CO + NO2 + HO2 ', & - ' C6OH5NO3 + OH --> C4COMEOH + NO2 ', & - ' C66NO35OOH + OH --> C66NO35CO + OH ', & - ' C66NO35OOH + OH --> C66NO35O2 ', & - ' C66NO35OOH --> C66NO35O + OH ', & - ' C66NO35O --> C4H9CHO + HCHO + NO2 ', & - ' C66NO35O --> C66NO35CO + HO2 ', & - ' C66NO35CO + OH --> MNO3COC4O2 ', & - ' C66NO35CO --> C4H9CO3 + HCHO + NO2 ', & - ' C66NO35OH + OH --> HO5C5CHO + NO2 ', & - ' NC4H9CHOO + CO --> C4H9CHO ', & - ' NC4H9CHOO + NO --> C4H9CHO + NO2 ', & - ' NC4H9CHOO + NO2 --> C4H9CHO + NO3 ', & - ' NC4H9CHOO + SO2 --> SO3 + C4H9CHO ', & - ' NC4H9CHOO --> H2O2 + C4H9CHO ', & - ' NC4H9CHOO --> PENTACID ', & - ' C6OH5OOH + OH --> C4COMEOH + OH ', & - ' C6OH5OOH + OH --> C6OH5O2 ', & - ' C6OH5OOH --> C6OH5O + OH ', & - ' C6OH5O --> C4H9CHO + HCHO + HO2 ', & - ' C4COMEOH + OH --> C4COMOH3O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_106 = (/ & - ' C4COMEOH --> NC4H9O2 + HOCH2CO3 ', & - ' C656OH + OH --> C4COMEOH + HO2 ', & - ' HO5C6OOH --> HO5C6O + OH ', & - ' HO5C6OOH + OH --> HO5C5CHO + OH ', & - ' HO5C6OOH + OH --> HO5C6O2 ', & - ' HO5C6O --> C4H9CHO + HCHO + HO2 ', & - ' HO5C5CHO --> C4H9CHO + CO + 2 HO2 ', & - ' HO5C5CHO + NO3 --> HO5C5CO3 + HNO3 ', & - ' HO5C5CHO + OH --> HO5C5CO3 ', & - ' C62NO33OOH + OH --> C62NO33CO + OH ', & - ' C62NO33OOH + OH --> C62NO33O2 ', & - ' C62NO33OOH --> C62NO33O + OH ', & - ' C62NO33O --> CH3CHO + C3H7CHO + NO2 ', & - ' C62NO33O --> C62NO33CO + HO2 ', & - ' C62NO33CO + OH --> C6NO3CO5O2 ', & - ' C62NO33CO --> HEX3ONCO + NO2 ', & - ' C64OH5NO3 + OH --> CO2HO3C6 + NO2 ', & - ' C63NO32OOH + OH --> C63NO32CO + OH ', & - ' C63NO32OOH + OH --> C63NO32O2 ', & - ' C63NO32OOH --> C63NO32O + OH ', & - ' C63NO32O --> CH3CHO + C3H7CHO + NO2 ', & - ' C63NO32O --> C63NO32CO + HO2 ', & - ' C63NO32CO + OH --> C6CONO34O2 ', & - ' C63NO32CO --> HEX2ONCO + NO2 ', & - ' C65OH4NO3 + OH --> HEX3ONCOH + NO2 ', & - ' C64OH5OOH + OH --> C64OH5O2 ', & - ' C64OH5OOH + OH --> CO2HO3C6 + OH ', & - ' C64OH5OOH --> C64OH5O + OH ', & - ' C64OH5O --> CH3CHO + C3H7CHO + HO2 ', & - ' C645OH + OH --> HEX3ONCOH + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_107 = (/ & - ' CO2HO3C6 + OH --> CO23C6 ', & - ' CO2HO3C6 --> C3H7CHO + CH3CO3 ', & - ' C65OH4OOH + OH --> C65OH4O2 ', & - ' C65OH4OOH + OH --> HEX3ONCOH + OH ', & - ' C65OH4OOH --> C65OH4O + OH ', & - ' C65OH4O --> CH3CHO + C3H7CHO + HO2 ', & - ' HEX3ONCOH + OH --> CO23C6 + HO2 ', & - ' HEX3ONCOH --> C3H7CO3 + CH3CHO + HO2 ', & - ' C42MNO3OOH + OH --> C4ME2NO3O2 ', & - ' C42MNO3OOH --> C4ME2NO3O + OH ', & - ' C4ME2NO3O --> 2 CH3COCH3 + NO2 ', & - ' C4ME2OHNO3 + OH --> C4ME2OHO + NO2 ', & - ' C4ME2OHOOH + OH --> C4ME2OHO2 ', & - ' C4ME2OHOOH --> C4ME2OHO + OH ', & - ' C4ME2OHO --> 2 CH3COCH3 + HO2 ', & - ' C4ME22OH + OH --> C4ME2OHO ', & - ' BZBIPEROOH + OH --> BZOBIPEROH + OH ', & - ' BZBIPEROOH --> BZBIPERO + OH ', & - ' BZBIPERNO3 + OH --> BZOBIPEROH + NO2 ', & - ' BZBIPERNO3 --> BZBIPERO + NO2 ', & - ' BZBIPERO --> BZFUONE + GLYOX + HO2 ', & - ' BZBIPERO --> MALDIAL + GLYOX + HO2 ', & - ' BZBIPER2OH + OH --> BZOBIPEROH + HO2 ', & - ' BZOBIPEROH + OH --> MALDIALCO3 + GLYOX ', & - ' BZOBIPEROH --> MALDIALCO3 + GLYOX + HO2 ', & - ' BZEMUCCO3 + HO2 --> BZEMUCCO2H + O3 ', & - ' BZEMUCCO3 + HO2 --> BZEMUCCO3H ', & - ' BZEMUCCO3 + HO2 --> C5DIALO2 + OH ', & - ' BZEMUCCO3 + NO --> C5DIALO2 + NO2 ', & - ' BZEMUCCO3 + NO2 --> BZEMUCPAN ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_108 = (/ & - ' BZEMUCCO3 + NO3 --> C5DIALO2 + NO2 ', & - ' BZEMUCCO3 --> BZEMUCCO2H ', & - ' BZEMUCCO3 --> C5DIALO2 ', & - ' EPXC4DIAL + NO3 --> EPXDLCO3 + HNO3 ', & - ' EPXC4DIAL + OH --> EPXDLCO3 ', & - ' EPXC4DIAL --> C3DIALO2 + CO + HO2 ', & - ' GLYOOA --> GLYOO ', & - ' GLYOOA --> HCHO ', & - ' GLYOOA --> CO + 2 HO2 ', & - ' GLYOOA --> OH + 2 CO + HO2 ', & - ' BZEMUCO2 + HO2 --> BZEMUCOOH ', & - ' BZEMUCO2 + NO --> BZEMUCNO3 ', & - ' BZEMUCO2 + NO --> BZEMUCO + NO2 ', & - ' BZEMUCO2 + NO3 --> BZEMUCO + NO2 ', & - ' BZEMUCO2 --> BZEMUCCO ', & - ' BZEMUCO2 --> BZEMUCO ', & - ' BZEMUCO2 --> BZEMUCOH ', & - ' C5DIALO2 + HO2 --> C5DIALOOH ', & - ' C5DIALO2 + NO --> C5DIALO + NO2 ', & - ' C5DIALO2 + NO3 --> C5DIALO + NO2 ', & - ' C5DIALO2 --> C5DIALCO ', & - ' C5DIALO2 --> C5DIALO ', & - ' C5DIALO2 --> C5DIALOH ', & - ' MALDIAL + NO3 --> MALDIALCO3 + HNO3 ', & - ' MALDIAL + O3 --> GLYOOA + GLYOX ', & - ' MALDIAL + OH --> MALDIALCO3 ', & - ' MALDIAL + OH --> MALDIALO2 ', & - ' MALDIAL --> BZFUONE ', & - ' MALDIAL --> MALDIALCO3 + HO2 ', & - ' C6H5O + NO2 --> HOC6H4NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_109 = (/ & - ' C6H5O + O3 --> C6H5O2 ', & - ' NPHENO2 + HO2 --> NPHENOOH ', & - ' NPHENO2 + NO --> NPHENO + NO2 ', & - ' NPHENO2 + NO3 --> NPHENO + NO2 ', & - ' NPHENO2 --> NPHENO ', & - ' NPHENO2 --> NPHENOH ', & - ' CATECHOL + NO3 --> CATEC1O + HNO3 ', & - ' CATECHOL + O3 --> CATECOOA ', & - ' CATECHOL + OH --> CATEC1O ', & - ' PHENO2 + HO2 --> PHENOOH ', & - ' PHENO2 + NO --> PHENO + NO2 ', & - ' PHENO2 + NO3 --> PHENO + NO2 ', & - ' PHENO2 --> PHENO ', & - ' PHENO2 --> PHENOH ', & - ' C6H5CH2OOH + OH --> BENZAL + OH ', & - ' C6H5CH2OOH --> C6H5CH2O + OH ', & - ' C6H5CH2NO3 + OH --> BENZAL + NO2 ', & - ' C6H5CH2NO3 --> C6H5CH2O + NO2 ', & - ' C6H5CH2O --> BENZAL + HO2 ', & - ' C6H5CH2OH + OH --> BENZAL + HO2 ', & - ' CRESO2 + HO2 --> CRESOOH ', & - ' CRESO2 + NO --> CRESO + NO2 ', & - ' CRESO2 + NO3 --> CRESO + NO2 ', & - ' CRESO2 --> CRESO ', & - ' CRESO2 --> CRESOH ', & - ' NCRESO2 + HO2 --> NCRESOOH ', & - ' NCRESO2 + NO --> NCRESO + NO2 ', & - ' NCRESO2 + NO3 --> NCRESO + NO2 ', & - ' NCRESO2 --> NCRESO ', & - ' NCRESO2 --> NCRESOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_110 = (/ & - ' TOL1O + NO2 --> TOL1OHNO2 ', & - ' TOL1O + O3 --> OXYL1O2 ', & - ' MCATECHOL + NO3 --> MCATEC1O + HNO3 ', & - ' MCATECHOL + O3 --> MCATECOOA ', & - ' MCATECHOL + OH --> MCATEC1O ', & - ' TLBIPEROOH + OH --> TLOBIPEROH + OH ', & - ' TLBIPEROOH --> TLBIPERO + OH ', & - ' TLBIPERO --> C4MDIAL + GLYOX + HO2 ', & - ' TLBIPERO --> C5DICARB + GLYOX + HO2 ', & - ' TLBIPERO --> TLFUONE + GLYOX + HO2 ', & - ' TLBIPERO --> BZFUONE + MGLYOX + HO2 ', & - ' TLBIPERO --> MALDIAL + MGLYOX + HO2 ', & - ' TLBIPERNO3 + OH --> TLOBIPEROH + NO2 ', & - ' TLBIPERNO3 --> TLBIPERO + NO2 ', & - ' TLBIPER2OH + OH --> TLOBIPEROH + HO2 ', & - ' TLOBIPEROH + OH --> C5CO14O2 + GLYOX ', & - ' TLOBIPEROH --> C5CO14O2 + GLYOX + HO2 ', & - ' TLEMUCCO3 + HO2 --> C615CO2O2 + OH ', & - ' TLEMUCCO3 + HO2 --> TLEMUCCO2H + O3 ', & - ' TLEMUCCO3 + HO2 --> TLEMUCCO3H ', & - ' TLEMUCCO3 + NO --> C615CO2O2 + NO2 ', & - ' TLEMUCCO3 + NO2 --> TLEMUCPAN ', & - ' TLEMUCCO3 + NO3 --> C615CO2O2 + NO2 ', & - ' TLEMUCCO3 --> C615CO2O2 ', & - ' TLEMUCCO3 --> TLEMUCCO2H ', & - ' MGLOOB --> CH3CHO ', & - ' MGLOOB --> CH3CO3 + OH + CO ', & - ' MGLOOB --> CH3CO3 + HO2 ', & - ' MGLOOB --> MGLOO ', & - ' TLEMUCO2 + HO2 --> TLEMUCOOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_111 = (/ & - ' TLEMUCO2 + NO --> TLEMUCNO3 ', & - ' TLEMUCO2 + NO --> TLEMUCO + NO2 ', & - ' TLEMUCO2 + NO3 --> TLEMUCO + NO2 ', & - ' TLEMUCO2 --> TLEMUCCO ', & - ' TLEMUCO2 --> TLEMUCO ', & - ' TLEMUCO2 --> TLEMUCOH ', & - ' C615CO2O2 + HO2 --> C615CO2OOH ', & - ' C615CO2O2 + NO --> C615CO2O + NO2 ', & - ' C615CO2O2 + NO3 --> C615CO2O + NO2 ', & - ' C615CO2O2 --> C6125CO ', & - ' C615CO2O2 --> C615CO2O ', & - ' C615CO2O2 --> C615CO2OH ', & - ' OXYLOOH + OH --> OXYLAL + OH ', & - ' OXYLOOH --> OXYLO + OH ', & - ' OXYLNO3 + OH --> OXYLAL + NO2 ', & - ' OXYLNO3 --> OXYLO + NO2 ', & - ' OXYLO --> OXYLAL + HO2 ', & - ' OXYLAL + NO3 --> OXYLCO3 + HNO3 ', & - ' OXYLAL + OH --> OXYLCO3 ', & - ' OXYLAL --> OXYL1O2 + CO + HO2 ', & - ' OXYLAL --> OXYLCO3 + HO2 ', & - ' OXYLOH + OH --> OXYLAL + HO2 ', & - ' OXYBPEROOH + OH --> OXYBIPERO2 ', & - ' OXYBPEROOH --> OXYBIPERO + OH ', & - ' OXYBIPENO3 + OH --> TLCOBIPEOH + CH3O2 + NO2 ', & - ' OXYBIPENO3 --> OXYBIPERO + NO2 ', & - ' OXYBIPERO --> BIACET + BZFUONE + HO2 ', & - ' OXYBIPERO --> C5DICARB + MGLYOX + HO2 ', & - ' OXYBIPERO --> BIACET + MALDIAL + HO2 ', & - ' OXYBIPERO --> MC5DICARB + GLYOX + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_112 = (/ & - ' OXYBIPERO --> OXYFUONE + GLYOX + HO2 ', & - ' OXYBIPERO --> TLFUONE + MGLYOX + HO2 ', & - ' OXYBPER2OH + OH --> OXYBIPERO ', & - ' OXYMUCCO3 + HO2 --> MC6CO2O2 + OH ', & - ' OXYMUCCO3 + HO2 --> OXYMUCCO2H + O3 ', & - ' OXYMUCCO3 + HO2 --> OXYMUCCO3H ', & - ' OXYMUCCO3 + NO --> MC6CO2O2 + NO2 ', & - ' OXYMUCCO3 + NO2 --> OXYMUCPAN ', & - ' OXYMUCCO3 + NO3 --> MC6CO2O2 + NO2 ', & - ' OXYMUCCO3 --> MC6CO2O2 ', & - ' OXYMUCCO3 --> OXYMUCCO2H ', & - 'EPXM2C4DAL + NO3 --> EPXM2DLCO3 + HNO3 ', & - ' EPXM2C4DAL + OH --> EPXM2DLCO3 ', & - ' EPXM2C4DAL --> C4MCO2O2 + CO + HO2 ', & - ' OXYMUCO2 + HO2 --> OXYMUCOOH ', & - ' OXYMUCO2 + NO --> OXYMUCNO3 ', & - ' OXYMUCO2 + NO --> OXYMUCO + NO2 ', & - ' OXYMUCO2 + NO3 --> OXYMUCO + NO2 ', & - ' OXYMUCO2 --> OXYMUCCO ', & - ' OXYMUCO2 --> OXYMUCO ', & - ' OXYMUCO2 --> OXYMUCOH ', & - ' MC6CO2O2 + HO2 --> MC6CO2OOH ', & - ' MC6CO2O2 + NO --> MC6CO2O + NO2 ', & - ' MC6CO2O2 + NO3 --> MC6CO2O + NO2 ', & - ' MC6CO2O2 --> MC6CO2O ', & - ' MC6CO2O2 --> MC6CO2OH ', & - ' NOXYOLO2 + HO2 --> NOXYOLOOH ', & - ' NOXYOLO2 + NO --> NOXYOLO + NO2 ', & - ' NOXYOLO2 + NO3 --> NOXYOLO + NO2 ', & - ' NOXYOLO2 --> NOXYOLO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_113 = (/ & - ' NOXYOLO2 --> NOXYOLOH ', & - ' OXY1O + NO2 --> OXY1OHNO2 ', & - ' OXY1O + O3 --> DM123O2 ', & - ' OXYOLO2 + HO2 --> OXYOLOOH ', & - ' OXYOLO2 + NO --> OXYOLO + NO2 ', & - ' OXYOLO2 + NO3 --> OXYOLO + NO2 ', & - ' OXYOLO2 --> OXYOLO ', & - ' OXYOLO2 --> OXYOLOH ', & - ' OXYCATECH + NO3 --> OXCATEC1O + HNO3 ', & - ' OXYCATECH + O3 --> OXCATECOOA ', & - ' OXYCATECH + OH --> OXCATEC1O ', & - ' MXYLOOH + OH --> MXYLAL + OH ', & - ' MXYLOOH --> MXYLO + OH ', & - ' MXYLNO3 + OH --> MXYLAL + NO2 ', & - ' MXYLNO3 --> MXYLO + NO2 ', & - ' MXYLO --> MXYLAL + HO2 ', & - ' MXYLAL + NO3 --> MXYLCO3 + HNO3 ', & - ' MXYLAL + OH --> MXYLCO3 ', & - ' MXYLAL --> MXYL1O2 + CO + HO2 ', & - ' MXYLAL --> MXYLCO3 + HO2 ', & - ' MXYLOH + OH --> MXYLAL + HO2 ', & - ' MXYBPEROOH + OH --> MXYOBPEROH + OH ', & - ' MXYBPEROOH --> MXYBIPERO + OH ', & - ' MXYBIPENO3 + OH --> MXYOBPEROH + NO2 ', & - ' MXYBIPENO3 --> MXYBIPERO + NO2 ', & - ' MXYBIPERO --> C5MDICARB + GLYOX + HO2 ', & - ' MXYBIPERO --> MXYFUONE + GLYOX + HO2 ', & - ' MXYBIPERO --> C4MDIAL + MGLYOX + HO2 ', & - ' MXYBIPERO --> C5DICARB + MGLYOX + HO2 ', & - ' MXYBIPERO --> PXYFUONE + MGLYOX + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_114 = (/ & - ' MXYBPER2OH + OH --> MXYOBPEROH + HO2 ', & - ' MXYOBPEROH + OH --> C3MCODBCO3 + MGLYOX ', & - ' MXYOBPEROH + OH --> C5CO14O2 + MGLYOX ', & - ' MXYOBPEROH --> C3MCODBCO3 + MGLYOX + HO2 ', & - ' MXYOBPEROH --> C5CO14O2 + MGLYOX + HO2 ', & - ' MXYMUCCO3 + HO2 --> C726CO5O2 + OH ', & - ' MXYMUCCO3 + HO2 --> MXYMUCCO2H + O3 ', & - ' MXYMUCCO3 + HO2 --> MXYMUCCO3H ', & - ' MXYMUCCO3 + NO --> C726CO5O2 + NO2 ', & - ' MXYMUCCO3 + NO2 --> MXYMUCPAN ', & - ' MXYMUCCO3 + NO3 --> C726CO5O2 + NO2 ', & - ' MXYMUCCO3 --> C726CO5O2 ', & - ' MXYMUCCO3 --> MXYMUCCO2H ', & - 'EPXMC4DIAL + NO3 --> EPXMDLCO3 + HNO3 ', & - ' EPXMC4DIAL + OH --> EPXMDLCO3 ', & - ' EPXMC4DIAL --> C3MDIALO2 + CO + HO2 ', & - ' MXYMUCO2 + HO2 --> MXYMUCOOH ', & - ' MXYMUCO2 + NO --> MXYMUCNO3 ', & - ' MXYMUCO2 + NO --> MXYMUCO + NO2 ', & - ' MXYMUCO2 + NO3 --> MXYMUCO + NO2 ', & - ' MXYMUCO2 --> MXYMUCCO ', & - ' MXYMUCO2 --> MXYMUCO ', & - ' MXYMUCO2 --> MXYMUCOH ', & - ' C726CO5O2 + HO2 --> C726CO5OOH ', & - ' C726CO5O2 + NO --> C726CO5O + NO2 ', & - ' C726CO5O2 + NO3 --> C726CO5O + NO2 ', & - ' C726CO5O2 --> C7236CO ', & - ' C726CO5O2 --> C726CO3OH ', & - ' C726CO5O2 --> C726CO5O ', & - ' MXY1O + NO2 --> MXY1OHNO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_115 = (/ & - ' MXY1O + O3 --> MXY1O2 ', & - ' MXYOLO2 + HO2 --> MXYOLOOH ', & - ' MXYOLO2 + NO --> MXYOLO + NO2 ', & - ' MXYOLO2 + NO3 --> MXYOLO + NO2 ', & - ' MXYOLO2 --> MXYOLO ', & - ' MXYOLO2 --> MXYOLOH ', & - ' NMXYOLO2 + HO2 --> NMXYOLOOH ', & - ' NMXYOLO2 + NO --> NMXYOLO + NO2 ', & - ' NMXYOLO2 + NO3 --> NMXYOLO + NO2 ', & - ' NMXYOLO2 --> NMXYOLO ', & - ' NMXYOLO2 --> NMXYOLOH ', & - ' MXYCATECH + NO3 --> MXCATEC1O + HNO3 ', & - ' MXYCATECH + O3 --> MXCATECOOA ', & - ' MXYCATECH + OH --> MXCATEC1O ', & - ' PXYLOOH + OH --> PXYLAL + OH ', & - ' PXYLOOH --> PXYLO + OH ', & - ' PXYLNO3 + OH --> PXYLAL + NO2 ', & - ' PXYLNO3 --> PXYLO + NO2 ', & - ' PXYLO --> PXYLAL + HO2 ', & - ' PXYLAL + NO3 --> PXYLCO3 + HNO3 ', & - ' PXYLAL + OH --> PXYLCO3 ', & - ' PXYLAL --> PXYL1O2 + CO + HO2 ', & - ' PXYLAL --> PXYLCO3 + HO2 ', & - ' PXYLOH + OH --> PXYLAL + HO2 ', & - ' PXYBPEROOH + OH --> PXYBIPERO2 ', & - ' PXYBPEROOH --> PXYBIPERO + OH ', & - ' PXYBIPENO3 + OH --> TLOBIPEROH + CH3O2 + NO2 ', & - ' PXYBIPENO3 --> PXYBIPERO + NO2 ', & - ' PXYBIPERO --> C4DBDIKET + GLYOX + HO2 ', & - ' PXYBIPERO --> C4MDIAL + MGLYOX + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_116 = (/ & - ' PXYBIPERO --> PXYFUONE + MGLYOX + HO2 ', & - ' PXYBPER2OH + OH --> PXYBIPERO ', & - ' PXYMUCCO3 + HO2 --> C6M5CO2O2 + OH ', & - ' PXYMUCCO3 + HO2 --> PXYMUCCO2H + O3 ', & - ' PXYMUCCO3 + HO2 --> PXYMUCCO3H ', & - ' PXYMUCCO3 + NO --> C6M5CO2O2 + NO2 ', & - ' PXYMUCCO3 + NO2 --> PXYMUCPAN ', & - ' PXYMUCCO3 + NO3 --> C6M5CO2O2 + NO2 ', & - ' PXYMUCCO3 --> C6M5CO2O2 ', & - ' PXYMUCCO3 --> PXYMUCCO2H ', & - ' PXYMUCO2 + HO2 --> PXYMUCOOH ', & - ' PXYMUCO2 + NO --> PXYMUCNO3 ', & - ' PXYMUCO2 + NO --> PXYMUCO + NO2 ', & - ' PXYMUCO2 + NO3 --> PXYMUCO + NO2 ', & - ' PXYMUCO2 --> PXYMUCCO ', & - ' PXYMUCO2 --> PXYMUCO ', & - ' PXYMUCO2 --> PXYMUCOH ', & - ' C6M5CO2O2 + HO2 --> C6M5CO2OOH ', & - ' C6M5CO2O2 + NO --> C6M5CO2O + NO2 ', & - ' C6M5CO2O2 + NO3 --> C6M5CO2O + NO2 ', & - ' C6M5CO2O2 --> C6M5CO2O ', & - ' C6M5CO2O2 --> C6M5CO2OH ', & - ' NPXYOLO2 + HO2 --> NPXYOLOOH ', & - ' NPXYOLO2 + NO --> NPXYOLO + NO2 ', & - ' NPXYOLO2 + NO3 --> NPXYOLO + NO2 ', & - ' NPXYOLO2 --> NPXYOLO ', & - ' NPXYOLO2 --> NPXYOLOH ', & - ' PXY1O + NO2 --> PXY1OHNO2 ', & - ' PXY1O + O3 --> PXY1O2 ', & - ' PXYOLO2 + HO2 --> PXYOLOOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_117 = (/ & - ' PXYOLO2 + NO --> PXYOLO + NO2 ', & - ' PXYOLO2 + NO3 --> PXYOLO + NO2 ', & - ' PXYOLO2 --> PXYOLO ', & - ' PXYOLO2 --> PXYOLOH ', & - ' PXYCATECH + NO3 --> PXCATEC1O + HNO3 ', & - ' PXYCATECH + O3 --> PXCATECOOA ', & - ' PXYCATECH + OH --> PXCATEC1O ', & - ' C6H5C2OOH + OH --> C6H5CH2CHO + OH ', & - ' C6H5C2OOH --> C6H5C2H4O + OH ', & - ' C6H5C2H4O --> C6H5CH2CHO + HO2 ', & - ' C6H5C2NO3 + OH --> C6H5CH2CHO + NO2 ', & - ' C6H5C2NO3 --> C6H5C2H4O + NO2 ', & - ' C6H5C2OH + OH --> C6H5CH2CHO + HO2 ', & - 'C6H5CH2CHO + NO3 --> C6H5CH2CO3 + HNO3 ', & - ' C6H5CH2CHO + OH --> C6H5CH2CO3 ', & - ' C6H5CH2CHO --> C6H5CH2O2 + CO + HO2 ', & - ' EBENZO + NO2 --> EBNZOHNO2 ', & - ' EBENZO + O3 --> EBENZO2 ', & - ' EBENZOLO2 + HO2 --> EBENZOLOOH ', & - ' EBENZOLO2 + NO --> EBENZOLO + NO2 ', & - ' EBENZOLO2 + NO3 --> EBENZOLO + NO2 ', & - ' EBENZOLO2 --> EBENZOLO ', & - ' EBENZOLO2 --> EBENZOLOH ', & - ' NEBNZOLO2 + HO2 --> NEBNZOLOOH ', & - ' NEBNZOLO2 + NO --> NEBNZOLO + NO2 ', & - ' NEBNZOLO2 + NO3 --> NEBNZOLO + NO2 ', & - ' NEBNZOLO2 --> NEBNZOLO ', & - ' NEBNZOLO2 --> NEBNZOLOH ', & - ' ECATECHOL + NO3 --> ECATEC1O + HNO3 ', & - ' ECATECHOL + O3 --> ECATECOOA ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_118 = (/ & - ' ECATECHOL + OH --> ECATEC1O ', & - ' EBZBPEROOH + OH --> EBZOBPEROH + OH ', & - ' EBZBPEROOH --> EBZBIPERO + OH ', & - ' EBZBIPERO --> BZFUONE + EGLYOX + HO2 ', & - ' EBZBIPERO --> C6DICARB + GLYOX + HO2 ', & - ' EBZBIPERO --> EBFUONE + GLYOX + HO2 ', & - ' EBZBIPERO --> MALDIAL + EGLYOX + HO2 ', & - ' EBZBPERNO3 + OH --> EBZOBPEROH + NO2 ', & - ' EBZBPERNO3 --> EBZBIPERO + NO2 ', & - ' EBZBPER2OH + OH --> EBZOBPEROH + HO2 ', & - ' EBZOBPEROH + OH --> C6DCARBBO2 + GLYOX ', & - ' EBZOBPEROH --> C6DCARBBO2 + GLYOX + HO2 ', & - ' EBZMUCCO3 + HO2 --> C715CO2O2 + OH ', & - ' EBZMUCCO3 + HO2 --> EBZMUCCO2H + O3 ', & - ' EBZMUCCO3 + HO2 --> EBZMUCCO3H ', & - ' EBZMUCCO3 + NO --> C715CO2O2 + NO2 ', & - ' EBZMUCCO3 + NO2 --> EBZMUCPAN ', & - ' EBZMUCCO3 + NO3 --> C715CO2O2 + NO2 ', & - ' EBZMUCCO3 --> C715CO2O2 ', & - ' EBZMUCCO3 --> EBZMUCCO2H ', & - ' EGLYOOB --> C2H5CHO ', & - ' EGLYOOB --> C2H5CO3 + OH + CO ', & - ' EGLYOOB --> C2H5CO3 + HO2 ', & - ' EGLYOOB --> EGLYOO ', & - ' EBZMUCO2 + HO2 --> EBZMUCOOH ', & - ' EBZMUCO2 + NO --> EBZMUCNO3 ', & - ' EBZMUCO2 + NO --> EBZMUCO + NO2 ', & - ' EBZMUCO2 + NO3 --> EBZMUCO + NO2 ', & - ' EBZMUCO2 --> EBZMUCCO ', & - ' EBZMUCO2 --> EBZMUCO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_119 = (/ & - ' EBZMUCO2 --> EBZMUCOH ', & - ' C715CO2O2 + HO2 --> C715CO2OOH ', & - ' C715CO2O2 + NO --> C715CO2O + NO2 ', & - ' C715CO2O2 + NO3 --> C715CO2O + NO2 ', & - ' C715CO2O2 --> C715CO2O ', & - ' C715CO2O2 --> C715CO2OH ', & - ' C715CO2O2 --> C7CO2DBAL ', & - ' PHC3OOH + OH --> PHCOET + OH ', & - ' PHC3OOH --> PHC3O + OH ', & - ' PHC3NO3 + OH --> PHCOET + NO2 ', & - ' PHC3NO3 --> PHC3O + NO2 ', & - ' PHC3O --> PHCOET + HO2 ', & - ' PHC3OH + OH --> PHCOET + HO2 ', & - ' PHCOET + OH --> PHCOETO2 ', & - ' PHCOET --> C6H5CO3 + C2H5O2 ', & - ' NPBNZOLO2 + HO2 --> NPBNZOLOOH ', & - ' NPBNZOLO2 + NO --> NPBNZOLO + NO2 ', & - ' NPBNZOLO2 + NO3 --> NPBNZOLO + NO2 ', & - ' NPBNZOLO2 --> NPBNZOLO ', & - ' NPBNZOLO2 --> NPBNZOLOH ', & - ' PBENZO + NO2 --> PBNZOHNO2 ', & - ' PBENZO + O3 --> PBENZO2 ', & - ' PBENZOLO2 + HO2 --> PBENZOLOOH ', & - ' PBENZOLO2 + NO --> PBENZOLO + NO2 ', & - ' PBENZOLO2 + NO3 --> PBENZOLO + NO2 ', & - ' PBENZOLO2 --> PBENZOLO ', & - ' PBENZOLO2 --> PBENZOLOH ', & - ' PCATECHOL + NO3 --> PCATEC1O + HNO3 ', & - ' PCATECHOL + O3 --> PCATECOOA ', & - ' PCATECHOL + OH --> PCATEC1O ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_120 = (/ & - ' PBZBPEROOH + OH --> PBZOBPEROH + OH ', & - ' PBZBPEROOH --> PBZBIPERO + OH ', & - ' PBZBIPERO --> PGLYOX + BZFUONE + HO2 ', & - ' PBZBIPERO --> C7DICARB + GLYOX + HO2 ', & - ' PBZBIPERO --> PGLYOX + MALDIAL + HO2 ', & - ' PBZBIPERO --> PBFUONE + GLYOX + HO2 ', & - ' PBZBPERNO3 + OH --> PBZOBPEROH + NO2 ', & - ' PBZBPERNO3 --> PBZBIPERO + NO2 ', & - ' PBZBPER2OH + OH --> PBZOBPEROH + HO2 ', & - ' PBZOBPEROH + OH --> C7DCCO3 + GLYOX ', & - ' PBZOBPEROH --> C7DCCO3 + GLYOX + HO2 ', & - ' PBZMUCCO3 + HO2 --> C815CO2O2 + OH ', & - ' PBZMUCCO3 + HO2 --> PBZMUCCO2H + O3 ', & - ' PBZMUCCO3 + HO2 --> PBZMUCCO3H ', & - ' PBZMUCCO3 + NO --> C815CO2O2 + NO2 ', & - ' PBZMUCCO3 + NO2 --> PBZMUCPAN ', & - ' PBZMUCCO3 + NO3 --> C815CO2O2 + NO2 ', & - ' PBZMUCCO3 --> C815CO2O2 ', & - ' PBZMUCCO3 --> PBZMUCCO2H ', & - ' PGLOOA --> C3H7CHO ', & - ' PGLOOA --> C3H7CO3 + OH + CO ', & - ' PGLOOA --> C3H7CO3 + HO2 ', & - ' PGLOOA --> PGLOO ', & - ' PBZMUCO2 + HO2 --> PBZMUCOOH ', & - ' PBZMUCO2 + NO --> PBZMUCNO3 ', & - ' PBZMUCO2 + NO --> PBZMUCO + NO2 ', & - ' PBZMUCO2 + NO3 --> PBZMUCO + NO2 ', & - ' PBZMUCO2 --> PBZMUCCO ', & - ' PBZMUCO2 --> PBZMUCO ', & - ' PBZMUCO2 --> PBZMUCOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_121 = (/ & - ' C815CO2O2 + HO2 --> C815CO2OOH ', & - ' C815CO2O2 + NO --> C815CO2O + NO2 ', & - ' C815CO2O2 + NO3 --> C815CO2O + NO2 ', & - ' C815CO2O2 --> C815CO2O ', & - ' C815CO2O2 --> C815CO2OH ', & - ' C815CO2O2 --> C8CO2DBAL ', & - ' PHIC3OOH + OH --> PHIC3O2 ', & - ' PHIC3OOH --> PHIC3O + OH ', & - ' PHIC3NO3 + OH --> PHCOME + HCHO + NO2 ', & - ' PHIC3NO3 --> PHIC3O + NO2 ', & - ' PHIC3O --> PHCOME + CH3O2 ', & - ' PHIC3OH + OH --> PHIC3O ', & - ' IPBENZO + NO2 --> IPBNZOHNO2 ', & - ' IPBENZO + O3 --> IPBENZO2 ', & - 'IPBENZOLO2 + HO2 --> IPBZOLOOH ', & - ' IPBENZOLO2 + NO --> IPBENZOLO + NO2 ', & - 'IPBENZOLO2 + NO3 --> IPBENZOLO + NO2 ', & - ' IPBENZOLO2 --> IPBENZOLO ', & - ' IPBENZOLO2 --> IPBENZOLOH ', & - 'NIPBNZOLO2 + HO2 --> NIPBZOLOOH ', & - ' NIPBNZOLO2 + NO --> NIPBNZOLO + NO2 ', & - 'NIPBNZOLO2 + NO3 --> NIPBNZOLO + NO2 ', & - ' NIPBNZOLO2 --> NIPBNZOLO ', & - ' NIPBNZOLO2 --> NIPBNZOLOH ', & - 'IPCATECHOL + NO3 --> IPCATEC1O + HNO3 ', & - ' IPCATECHOL + O3 --> IPCATECOOA ', & - ' IPCATECHOL + OH --> IPCATEC1O ', & - ' IPBZBPROOH + OH --> IPBZOBPROH + OH ', & - ' IPBZBPROOH --> IPBZBIPRO + OH ', & - ' IPBZBIPRO --> IPRGLYOX + BZFUONE + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_122 = (/ & - ' IPBZBIPRO --> IC7DICARB + GLYOX + HO2 ', & - ' IPBZBIPRO --> IPBFUONE + GLYOX + HO2 ', & - ' IPBZBIPRO --> IPRGLYOX + MALDIAL + HO2 ', & - ' IPBZBPRNO3 + OH --> IPBZOBPROH + NO2 ', & - ' IPBZBPRNO3 --> IPBZBIPRO + NO2 ', & - ' IPBZBPR2OH + OH --> IPBZOBPROH + HO2 ', & - ' IPBZOBPROH + OH --> IC7DCCO3 + GLYOX ', & - ' IPBZOBPROH --> IC7DCCO3 + GLYOX + HO2 ', & - 'IPBZMUCCO3 + HO2 --> C7M15CO2O2 + OH ', & - 'IPBZMUCCO3 + HO2 --> IPBZMUCO2H + O3 ', & - 'IPBZMUCCO3 + HO2 --> IPBZMUCO3H ', & - ' IPBZMUCCO3 + NO --> C7M15CO2O2 + NO2 ', & - 'IPBZMUCCO3 + NO2 --> IPBZMUCPAN ', & - 'IPBZMUCCO3 + NO3 --> C7M15CO2O2 + NO2 ', & - ' IPBZMUCCO3 --> C7M15CO2O2 ', & - ' IPBZMUCCO3 --> IPBZMUCO2H ', & - ' IPGLOOB --> IPGLOO ', & - ' IPGLOOB --> IPRCHO ', & - ' IPGLOOB --> IPRCO3 + OH + CO ', & - ' IPGLOOB --> IPRCO3 + HO2 ', & - ' IPBZMUCO2 + HO2 --> IPBZMUCOOH ', & - ' IPBZMUCO2 + NO --> IPBZMUCNO3 ', & - ' IPBZMUCO2 + NO --> IPBZMUCO + NO2 ', & - ' IPBZMUCO2 + NO3 --> IPBZMUCO + NO2 ', & - ' IPBZMUCO2 --> IPBZMUCCO ', & - ' IPBZMUCO2 --> IPBZMUCO ', & - ' IPBZMUCO2 --> IPBZMUCOH ', & - 'C7M15CO2O2 + HO2 --> C7MCO2OOH ', & - ' C7M15CO2O2 + NO --> C7M15CO2O + NO2 ', & - 'C7M15CO2O2 + NO3 --> C7M15CO2O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_123 = (/ & - ' C7M15CO2O2 --> C7M15CO2O ', & - ' C7M15CO2O2 --> C7M15CO2OH ', & - ' C7M15CO2O2 --> C7MCO2DBAL ', & - ' TM123BOOH + OH --> TM123BCHO + OH ', & - ' TM123BOOH --> TM123BO + OH ', & - ' TM123BNO3 + OH --> TM123BCHO + NO2 ', & - ' TM123BNO3 --> TM123BO + NO2 ', & - ' TM123BO --> TM123BCHO + HO2 ', & - ' TM123BCHO + NO3 --> TM123BCO3 + NO2 ', & - ' TM123BCHO + OH --> TM123BCO3 ', & - ' TM123BCHO --> DM123O2 + CO + HO2 ', & - ' TM123BCHO --> TM123BCO3 + HO2 ', & - ' TM123BOH + OH --> TM123BCHO + HO2 ', & - 'NTM123OLO2 + HO2 --> NTM123LOOH ', & - ' NTM123OLO2 + NO --> NTM123OLO + NO2 ', & - 'NTM123OLO2 + NO3 --> NTM123OLO + NO2 ', & - ' NTM123OLO2 --> NTM123OLO ', & - ' NTM123OLO2 --> NTM123OLOH ', & - ' TM123O + NO2 --> TM123OHNO2 ', & - ' TM123O + O3 --> TM123O2 ', & - ' TM123OLO2 + HO2 --> TM123OLOOH ', & - ' TM123OLO2 + NO --> TM123OLO + NO2 ', & - ' TM123OLO2 + NO3 --> TM123OLO + NO2 ', & - ' TM123OLO2 --> TM123OLO ', & - ' TM123OLO2 --> TM123OLOH ', & - 'T123CATECH + NO3 --> T123CAT1O + HNO3 ', & - ' T123CATECH + O3 --> T123CTCOOA ', & - ' T123CATECH + OH --> T123CAT1O ', & - ' TM123BPOOH + OH --> TM123OBPOH + OH ', & - ' TM123BPOOH --> TM123BPRO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_124 = (/ & - ' TM123BPNO3 + OH --> TM123OBPOH + NO2 ', & - ' TM123BPNO3 --> TM123BPRO + NO2 ', & - ' TM123BPRO --> BIACET + C5DICARB + HO2 ', & - ' TM123BPRO --> C7ADICARB + GLYOX + HO2 ', & - ' TM123BPRO --> MC5DICARB + MGLYOX + HO2 ', & - ' TM123BPRO --> BIACET + TLFUONE + HO2 ', & - ' TM123BPRO --> TMB1FUONE + MGLYOX + HO2 ', & - ' TM123BPRO --> TMB2FUONE + GLYOX + HO2 ', & - ' TM123BP2OH + OH --> TM123OBPOH + HO2 ', & - ' TM123OBPOH + OH --> BIACET + C5CO14O2 ', & - ' TM123OBPOH --> BIACET + C5CO14O2 + HO2 ', & - ' EPXALMKT + NO3 --> EPXKTMCO3 + HNO3 ', & - ' EPXALMKT + OH --> EPXKTMCO3 ', & - ' EPXALMKT --> C4CO2O2 + CH3CO3 ', & - ' EPXALMKT --> C4MCO2O2 + CO + HO2 ', & - 'TM123MUCO2 + HO2 --> TM123MUOOH ', & - ' TM123MUCO2 + NO --> TM123MUCO + NO2 ', & - ' TM123MUCO2 + NO --> TM123MUNO3 ', & - 'TM123MUCO2 + NO3 --> TM123MUCO + NO2 ', & - ' TM123MUCO2 --> TM123MUCCO ', & - ' TM123MUCO2 --> TM123MUCO ', & - ' TM123MUCO2 --> TM123MUCOH ', & - ' TM124BOOH + OH --> TM124BCHO + OH ', & - ' TM124BOOH --> TM124BO + OH ', & - ' TM124BNO3 + OH --> TM124BCHO + NO2 ', & - ' TM124BNO3 --> TM124BO + NO2 ', & - ' TM124BO --> TM124BCHO + HO2 ', & - ' TM124BCHO + NO3 --> TM124BCO3 + HNO3 ', & - ' TM124BCHO + OH --> TM124BCO3 ', & - ' TM124BCHO --> DM124O2 + CO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_125 = (/ & - ' TM124BCHO --> TM124BCO3 + HO2 ', & - ' TM124BOH + OH --> TM124BCHO + HO2 ', & - ' TM124BPOOH + OH --> TM124BPRO2 ', & - ' TM124BPOOH --> TM124BPRO + OH ', & - ' TM124BPNO3 + OH --> MXYOBPEROH + CH3O2 + NO2 ', & - ' TM124BPNO3 --> TM124BPRO + NO2 ', & - ' TM124BPRO --> C4DBDIKET + MGLYOX + HO2 ', & - ' TM124BPRO --> BIACET + C4MDIAL + HO2 ', & - ' TM124BPRO --> C7BDICARB + GLYOX + HO2 ', & - ' TM124BPRO --> MC5DICARB + MGLYOX + HO2 ', & - ' TM124BPRO --> PXYFUONE + BIACET + HO2 ', & - ' TM124BPRO --> TMB1FUONE + MGLYOX + HO2 ', & - ' TM124BP2OH + OH --> TM124BPRO ', & - 'NTM124OLO2 + HO2 --> NTM124LOOH ', & - ' NTM124OLO2 + NO --> NTM124OLO + NO2 ', & - 'NTM124OLO2 + NO3 --> NTM124OLO + NO2 ', & - ' NTM124OLO2 --> NTM124OLO ', & - ' NTM124OLO2 --> NTM124OLOH ', & - ' TM124O + NO2 --> TM124OHNO2 ', & - ' TM124O + O3 --> TM124O2 ', & - ' TM124OLO2 + HO2 --> TM124OLOOH ', & - ' TM124OLO2 + NO --> TM124OLO + NO2 ', & - ' TM124OLO2 + NO3 --> TM124OLO + NO2 ', & - ' TM124OLO2 --> TM124OLO ', & - ' TM124OLO2 --> TM124OLOH ', & - 'T124CATECH + NO3 --> T124CAT1O + HNO3 ', & - ' T124CATECH + O3 --> T124CTCOOA ', & - ' T124CATECH + OH --> T124CAT1O ', & - 'TM124MUCO3 + HO2 --> C7CO2M5O2 + OH ', & - 'TM124MUCO3 + HO2 --> TM124MUO2H + O3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_126 = (/ & - 'TM124MUCO3 + HO2 --> TM124MUO3H ', & - ' TM124MUCO3 + NO --> C7CO2M5O2 + NO2 ', & - 'TM124MUCO3 + NO2 --> TM124MUPAN ', & - 'TM124MUCO3 + NO3 --> C7CO2M5O2 + NO2 ', & - ' TM124MUCO3 --> C7CO2M5O2 ', & - ' TM124MUCO3 --> TM124MUO2H ', & - 'TM124MUCO2 + HO2 --> TM124MUOOH ', & - ' TM124MUCO2 + NO --> TM124MUCO + NO2 ', & - ' TM124MUCO2 + NO --> TM124MUNO3 ', & - 'TM124MUCO2 + NO3 --> TM124MUCO + NO2 ', & - ' TM124MUCO2 --> TM124MUCCO ', & - ' TM124MUCO2 --> TM124MUCO ', & - ' TM124MUCO2 --> TM124MUCOH ', & - ' C7CO2M5O2 + HO2 --> C7CO2M5OOH ', & - ' C7CO2M5O2 + NO --> C7CO2M5O + NO2 ', & - ' C7CO2M5O2 + NO3 --> C7CO2M5O + NO2 ', & - ' C7CO2M5O2 --> C7CO2M5O ', & - ' C7CO2M5O2 --> C7CO2M5OH ', & - ' TMBOOH + OH --> TMBCHO + OH ', & - ' TMBOOH --> TMBO + OH ', & - ' TMBNO3 + OH --> TMBCHO + NO2 ', & - ' TMBNO3 --> TMBO + NO2 ', & - ' TMBO --> TMBCHO + HO2 ', & - ' TMBCHO + NO3 --> TMBCO3 + HNO3 ', & - ' TMBCHO + OH --> TMBCO3 ', & - ' TMBCHO --> DMPHO2 + CO + HO2 ', & - ' TMBCHO --> TMBCO3 + HO2 ', & - ' TMBOH + OH --> TMBCHO + HO2 ', & - ' TM135BPOOH + OH --> TM135OBPOH + OH ', & - ' TM135BPOOH --> TM135BPRO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_127 = (/ & - ' TM135BPNO3 + OH --> TM135OBPOH + NO2 ', & - ' TM135BPNO3 --> TM135BPRO + NO2 ', & - ' TM135BPRO --> C5MDICARB + MGLYOX + HO2 ', & - ' TM135BPRO --> MXYFUONE + MGLYOX + HO2 ', & - ' TM135BP2OH + OH --> TM135OBPOH + HO2 ', & - ' TM135OBPOH + OH --> C4MCODBCO3 + MGLYOX ', & - ' TM135OBPOH --> C4MCODBCO3 + MGLYOX + HO2 ', & - 'NTM135OLO2 + HO2 --> NTM135LOOH ', & - ' NTM135OLO2 + NO --> NTM135OLO + NO2 ', & - 'NTM135OLO2 + NO3 --> NTM135OLO + NO2 ', & - ' NTM135OLO2 --> NTM135OLO ', & - ' NTM135OLO2 --> NTM135OLOH ', & - ' TM135O + HO2 --> TM135BZOL ', & - ' TM135OLO2 + HO2 --> TM135OLOOH ', & - ' TM135OLO2 + NO --> TM135OLO + NO2 ', & - ' TM135OLO2 + NO3 --> TM135OLO + NO2 ', & - ' TM135OLO2 --> TM135OLO ', & - ' TM135OLO2 --> TM135OLOH ', & - 'TM135MUCO3 + HO2 --> C7M2CO5O2 + OH ', & - 'TM135MUCO3 + HO2 --> TM135MUO2H + O3 ', & - 'TM135MUCO3 + HO2 --> TM135MUO3H ', & - ' TM135MUCO3 + NO --> C7M2CO5O2 + NO2 ', & - 'TM135MUCO3 + NO2 --> TM135MUPAN ', & - 'TM135MUCO3 + NO3 --> C7M2CO5O2 + NO2 ', & - ' TM135MUCO3 --> C7M2CO5O2 ', & - ' TM135MUCO3 --> TM135MUO2H ', & - ' EPXMALKT + NO3 --> EPXMKTCO3 + HNO3 ', & - ' EPXMALKT + OH --> EPXMKTCO3 ', & - ' EPXMALKT --> C3MDIALO2 + CH3CO3 ', & - ' EPXMALKT --> CO24C53O2 + CO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_128 = (/ & - ' MGLOOC --> CH3CO3 + OH + CO ', & - ' MGLOOC --> MGLOO ', & - 'TM135MUCO2 + HO2 --> TM135MUOOH ', & - ' TM135MUCO2 + NO --> TM135MUCO + NO2 ', & - ' TM135MUCO2 + NO --> TM135MUNO3 ', & - 'TM135MUCO2 + NO3 --> TM135MUCO + NO2 ', & - ' TM135MUCO2 --> TM135MUCO ', & - ' TM135MUCO2 --> TM135MUOH ', & - ' C7M2CO5O2 + HO2 --> C7M2CO5OOH ', & - ' C7M2CO5O2 + NO --> C7M2CO5O + NO2 ', & - ' C7M2CO5O2 + NO3 --> C7M2CO5O + NO2 ', & - ' C7M2CO5O2 --> C7M2CO5O ', & - ' C7M2CO5O2 --> C7M2CO5OH ', & - ' C7M2CO5O2 --> C7M3CO ', & - ' ETOLOOH + OH --> MPHCOME + OH ', & - ' ETOLOOH --> ETOLO + OH ', & - ' ETOLNO3 + OH --> MPHCOME + NO2 ', & - ' ETOLNO3 --> ETOLO + NO2 ', & - ' ETOLO --> MPHCOME + HO2 ', & - ' ETOLOH + OH --> MPHCOME + HO2 ', & - ' MPHCOME + OH --> MPHCOMEO2 ', & - ' MPHCOME --> OXYLCO3 + CH3O2 ', & - ' OETLBPROOH + OH --> OETLBIPRO2 ', & - ' OETLBPROOH --> OETLBIPRO + OH ', & - ' OETLBIPNO3 + OH --> TLCOBIPEOH + C2H5O2 + NO2 ', & - ' OETLBIPNO3 --> OETLBIPRO + NO2 ', & - ' OETLBIPRO --> CO23C5 + BZFUONE + HO2 ', & - ' OETLBIPRO --> C5DICARB + EGLYOX + HO2 ', & - ' OETLBIPRO --> C6DICARB + MGLYOX + HO2 ', & - ' OETLBIPRO --> EBFUONE + MGLYOX + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_129 = (/ & - ' OETLBIPRO --> CO23C5 + MALDIAL + HO2 ', & - ' OETLBIPRO --> TLFUONE + EGLYOX + HO2 ', & - ' OETLBPR2OH + OH --> OETLBIPRO ', & - 'OETLMUCCO3 + HO2 --> MC7CO2O2 + OH ', & - 'OETLMUCCO3 + HO2 --> OETLMUCO2H + O3 ', & - 'OETLMUCCO3 + HO2 --> OETLMUCO3H ', & - ' OETLMUCCO3 + NO --> MC7CO2O2 + NO2 ', & - 'OETLMUCCO3 + NO2 --> OETLMUCPAN ', & - 'OETLMUCCO3 + NO3 --> MC7CO2O2 + NO2 ', & - ' OETLMUCCO3 --> MC7CO2O2 ', & - ' OETLMUCCO3 --> OETLMUCO2H ', & - 'EPXMEC4DAL + NO3 --> EPXMEDLCO3 + HNO3 ', & - ' EPXMEC4DAL + OH --> EPXMEDLCO3 ', & - ' EPXMEC4DAL --> C4ECO2O2 + CO + HO2 ', & - ' OETLMUCO2 + HO2 --> OETLMUCOOH ', & - ' OETLMUCO2 + NO --> OETLMUCNO3 ', & - ' OETLMUCO2 + NO --> OETLMUCO + NO2 ', & - ' OETLMUCO2 + NO3 --> OETLMUCO + NO2 ', & - ' OETLMUCO2 --> OETLMUCCO ', & - ' OETLMUCO2 --> OETLMUCO ', & - ' OETLMUCO2 --> OETLMUCOH ', & - ' MC7CO2O2 + HO2 --> MC7CO2OOH ', & - ' MC7CO2O2 + NO --> MC7CO2O + NO2 ', & - ' MC7CO2O2 + NO3 --> MC7CO2O + NO2 ', & - ' MC7CO2O2 --> MC7CO2O ', & - ' MC7CO2O2 --> MC7CO2OH ', & - ' NOETOLO2 + HO2 --> NOETOLOOH ', & - ' NOETOLO2 + NO --> NOETOLO + NO2 ', & - ' NOETOLO2 + NO3 --> NOETOLO + NO2 ', & - ' NOETOLO2 --> NOETOLO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_130 = (/ & - ' NOETOLO2 --> NOETOLOH ', & - ' OET1O + NO2 --> OET1OHNO2 ', & - ' OET1O + O3 --> OET1O2 ', & - ' OETOLO2 + HO2 --> OETOLOOH ', & - ' OETOLO2 + NO --> OETOLO + NO2 ', & - ' OETOLO2 + NO3 --> OETOLO + NO2 ', & - ' OETOLO2 --> OETOLO ', & - ' OETOLO2 --> OETOLOH ', & - ' OETCATECH + NO3 --> OTCATEC1O + HNO3 ', & - ' OETCATECH + O3 --> OTCATECOOA ', & - ' OETCATECH + OH --> OTCATEC1O ', & - ' METLBPROOH + OH --> METLBIPRO2 ', & - ' METLBPROOH --> METLBIPRO + OH ', & - ' METLBIPNO3 + OH --> METLOBPROH + NO2 ', & - ' METLBIPNO3 --> METLBIPRO + NO2 ', & - ' METLBIPRO --> EGLYOX + C4MDIAL + HO2 ', & - ' METLBIPRO --> C5DICARB + EGLYOX + HO2 ', & - ' METLBIPRO --> C6DICARB + MGLYOX + HO2 ', & - ' METLBIPRO --> EBFUONE + MGLYOX + HO2 ', & - ' METLBIPRO --> TLFUONE + EGLYOX + HO2 ', & - ' METLBPR2OH + OH --> METLBIPRO ', & - ' METLOBPROH + OH --> C5CO14O2 + EGLYOX ', & - ' METLOBPROH --> C5CO14O2 + EGLYOX + HO2 ', & - 'METLMUCCO3 + HO2 --> C826CO3O2 + OH ', & - 'METLMUCCO3 + HO2 --> METLMUCO2H + O3 ', & - 'METLMUCCO3 + HO2 --> METLMUCO3H ', & - 'METLMUCCO3 + NO2 --> C826CO3O2 + NO2 ', & - 'METLMUCCO3 + NO2 --> METLMUCPAN ', & - 'METLMUCCO3 + NO3 --> C826CO3O2 + NO2 ', & - ' METLMUCCO3 --> C826CO3O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_131 = (/ & - ' METLMUCCO3 --> METLMUCO2H ', & - ' METLMUCO2 + HO2 --> METLMUCOOH ', & - ' METLMUCO2 + NO --> METLMUCNO3 ', & - ' METLMUCO2 + NO --> METLMUCO + NO2 ', & - ' METLMUCO2 + NO3 --> METLMUCO + NO2 ', & - ' METLMUCO2 --> METLMUCCO ', & - ' METLMUCO2 --> METLMUCO ', & - ' METLMUCO2 --> METLMUCOH ', & - ' C826CO3O2 + HO2 --> C826CO3OOH ', & - ' C826CO3O2 + NO --> C826CO3O + NO2 ', & - ' C826CO3O2 + NO3 --> C826CO3O + NO2 ', & - ' C826CO3O2 --> C8236CO ', & - ' C826CO3O2 --> C826CO3O ', & - ' C826CO3O2 --> C826CO3OH ', & - ' MET1O + NO2 --> MET1OHNO2 ', & - ' MET1O + O3 --> MET1O2 ', & - ' METOLO2 + HO2 --> METOLOOH ', & - ' METOLO2 + NO --> METOLO + NO2 ', & - ' METOLO2 + NO3 --> METOLO + NO2 ', & - ' METOLO2 --> METOLO ', & - ' METOLO2 --> METOLOH ', & - ' NMETOLO2 + HO2 --> NMETOLOOH ', & - ' NMETOLO2 + NO --> NMETOLO + NO2 ', & - ' NMETOLO2 + NO3 --> NMETOLO + NO2 ', & - ' NMETOLO2 --> NMETOLO ', & - ' NMETOLO2 --> NMETOLOH ', & - ' METCATECH + NO3 --> MTCATEC1O + HNO3 ', & - ' METCATECH + O3 --> MTCATECOOA ', & - ' METCATECH + OH --> MTCATEC1O ', & - ' PETLBPROOH + OH --> PETLBIPRO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_132 = (/ & - ' PETLBPROOH --> PETLBIPRO + OH ', & - ' PETLBIPNO3 + OH --> PETLBIPRO + NO2 ', & - ' PETLBIPNO3 --> PETLBIPRO + NO2 ', & - ' PETLBIPRO --> EGLYOX + C4MDIAL + HO2 ', & - ' PETLBIPRO --> C7EDICARB + GLYOX + HO2 ', & - ' PETLBIPRO --> EBFUONE + MGLYOX + HO2 ', & - ' PETLBIPRO --> TLFUONE + EGLYOX + HO2 ', & - ' PETLBPR2OH + OH --> PETLBIPRO ', & - 'PETLMUCCO3 + HO2 --> C7M6CO2O2 + OH ', & - 'PETLMUCCO3 + HO2 --> PETLMUCO2H + O3 ', & - 'PETLMUCCO3 + HO2 --> PETLMUCO3H ', & - ' PETLMUCCO3 + NO --> C7M6CO2O2 + NO2 ', & - 'PETLMUCCO3 + NO2 --> PETLMUCPAN ', & - 'PETLMUCCO3 + NO3 --> C7M6CO2O2 + NO2 ', & - ' PETLMUCCO3 --> C7M6CO2O2 ', & - ' PETLMUCCO3 --> PETLMUCO2H ', & - ' PETLMUCO2 + HO2 --> PETLMUCOOH ', & - ' PETLMUCO2 + NO --> PETLMUCNO3 ', & - ' PETLMUCO2 + NO --> PETLMUCO + NO2 ', & - ' PETLMUCO2 + NO3 --> PETLMUCO + NO2 ', & - ' PETLMUCO2 --> PETLMUCCO ', & - ' PETLMUCO2 --> PETLMUCO ', & - ' PETLMUCO2 --> PETLMUCOH ', & - ' C7M6CO2O2 + HO2 --> C7M6CO2OOH ', & - ' C7M6CO2O2 + NO --> C7M6CO2O + NO2 ', & - ' C7M6CO2O2 + NO3 --> C7M6CO2O + NO2 ', & - ' C7M6CO2O2 --> C7M6CO2O ', & - ' C7M6CO2O2 --> C7M6CO2OH ', & - ' NPETOLO2 + HO2 --> NPETOLOOH ', & - ' NPETOLO2 + NO --> NPETOLO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_133 = (/ & - ' NPETOLO2 + NO3 --> NPETOLO + NO2 ', & - ' NPETOLO2 --> NPETOLO ', & - ' NPETOLO2 --> NPETOLOH ', & - ' PET1O + NO2 --> PET1OHNO2 ', & - ' PET1O + O3 --> PET1O2 ', & - ' PETOLO2 + HO2 --> PETOLOOH ', & - ' PETOLO2 + NO --> PETOLO + NO2 ', & - ' PETOLO2 + NO3 --> PETOLO + NO2 ', & - ' PETOLO2 --> PETOLO ', & - ' PETOLO2 --> PETOLOH ', & - ' PETCATECH + NO3 --> PTCATEC1O + HNO3 ', & - ' PETCATECH + O3 --> PTCATECOOA ', & - ' PETCATECH + OH --> PTCATEC1O ', & - ' DM35EBOOH + OH --> DMPHCOME + OH ', & - ' DM35EBOOH --> DM35EBO + OH ', & - ' DM35EBNO3 + OH --> DMPHCOME + NO2 ', & - ' DM35EBNO3 --> DM35EBO + NO2 ', & - ' DM35EBO --> DMPHCOME + HO2 ', & - ' DM35EBOH + OH --> DMPHCOME + HO2 ', & - ' DMPHCOME + OH --> DMPHCOMO2 ', & - ' DMPHCOME --> TMBCO3 + CH3O2 ', & - ' DMEBPROOH + OH --> DMEBIPRO2 ', & - ' DMEBPROOH --> DMEBIPRO + OH ', & - ' DMEBIPNO3 + OH --> DMEBIPRO + NO2 ', & - ' DMEBIPNO3 --> DMEBIPRO + NO2 ', & - ' DMEBIPRO --> C5MDICARB + EGLYOX + HO2 ', & - ' DMEBIPRO --> C7DDICARB + MGLYOX + HO2 ', & - ' DMEBIPRO --> MEBFUONE + MGLYOX + HO2 ', & - ' DMEBIPRO --> MXYFUONE + EGLYOX + HO2 ', & - ' DMEBPR2OH + OH --> DMEBIPRO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_134 = (/ & - ' DMEOBPROH + OH --> C4MCODBCO3 + EGLYOX ', & - ' DMEOBPROH --> C4MCODBCO3 + EGLYOX + HO2 ', & - ' DMEBMUCO3 + HO2 --> C8M2CO6O2 + OH ', & - ' DMEBMUCO3 + HO2 --> DMEBMUO2H + O3 ', & - ' DMEBMUCO3 + HO2 --> DMEBMUO3H ', & - ' DMEBMUCO3 + NO --> C8M2CO6O2 + NO2 ', & - ' DMEBMUCO3 + NO2 --> DMEBMUPAN ', & - ' DMEBMUCO3 + NO3 --> C8M2CO6O2 + NO2 ', & - ' DMEBMUCO3 --> C8M2CO6O2 ', & - ' DMEBMUCO3 --> DMEBMUO2H ', & - ' EGLYOOD --> C2H5CO3 + OH + CO ', & - ' EGLYOOD --> EGLYOO ', & - ' DMEBMUCO2 + HO2 --> DMEBMUOOH ', & - ' DMEBMUCO2 + NO --> DMEBMUCO + NO2 ', & - ' DMEBMUCO2 + NO --> DMEBMUNO3 ', & - ' DMEBMUCO2 + NO3 --> DMEBMUCO + NO2 ', & - ' DMEBMUCO2 --> DMEBMUCO ', & - ' DMEBMUCO2 --> DMEBMUOH ', & - ' C8M2CO6O2 + HO2 --> C8M2CO6OOH ', & - ' C8M2CO6O2 + NO --> C8M2CO6O + NO2 ', & - ' C8M2CO6O2 + NO3 --> C8M2CO6O + NO2 ', & - ' C8M2CO6O2 --> C8M2CO6O ', & - ' C8M2CO6O2 --> C8M2CO6OH ', & - ' C8M2CO6O2 --> C8M3CO ', & - ' DMEPH1O + HO2 --> DMEPHOH ', & - 'NDMEPHOLO2 + HO2 --> NDMEPLOOH ', & - ' NDMEPHOLO2 + NO --> NDMEPHOLO + NO2 ', & - 'NDMEPHOLO2 + NO3 --> NDMEPHOLO + NO2 ', & - ' NDMEPHOLO2 --> NDMEPHOLO ', & - ' NDMEPHOLO2 --> NDMEPHOLOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_135 = (/ & - ' DMEPHOLO2 + HO2 --> DMEPHOLOOH ', & - ' DMEPHOLO2 + NO --> DMEPHOLO + NO2 ', & - ' DMEPHOLO2 + NO3 --> DMEPHOLO + NO2 ', & - ' DMEPHOLO2 --> DMEPHOLO ', & - ' DMEPHOLO2 --> DMEPHOLOH ', & - ' DE35TOOH + OH --> EMPHCOME + OH ', & - ' DE35TOOH --> DE35TO + OH ', & - ' DE35TNO3 + OH --> EMPHCOME + NO2 ', & - ' DE35TNO3 --> DE35TO + NO2 ', & - ' DE35TO --> EMPHCOME + HO2 ', & - ' DE35TOH + OH --> EMPHCOME + HO2 ', & - ' EMPHCOME + OH --> EMPHCOMO2 ', & - ' EMPHCOME --> EMPHCO3 + CH3O2 ', & - 'DEMPHSMS1O + HO2 --> DEMPHOH ', & - 'NDEMPHOLO2 + HO2 --> NDEMPLOOH ', & - ' NDEMPHOLO2 + NO --> NDEMPHOLO + NO2 ', & - 'NDEMPHOLO2 + NO3 --> NDEMPHOLO + NO2 ', & - ' NDEMPHOLO2 --> NDEMPHOLO ', & - ' NDEMPHOLO2 --> NDEMPHOLOH ', & - ' DEMPHOLO2 + HO2 --> DEMPHOLOOH ', & - ' DEMPHOLO2 + NO --> DEMPHOLO + NO2 ', & - ' DEMPHOLO2 + NO3 --> DEMPHOLO + NO2 ', & - ' DEMPHOLO2 --> DEMPHOLO ', & - ' DEMPHOLO2 --> DEMPHOLOH ', & - ' DETLBPROOH + OH --> DETLBIPRO2 ', & - ' DETLBPROOH --> DETLBIPRO + OH ', & - ' DETLBIPNO3 + OH --> DETLBIPRO + NO2 ', & - ' DETLBIPNO3 --> DETLBIPRO + NO2 ', & - ' DETLBIPRO --> EGLYOX + C7DDICARB + HO2 ', & - ' DETLBIPRO --> MEBFUONE + EGLYOX + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_136 = (/ & - ' DETLBPR2OH + OH --> DETLBIPRO ', & - ' DETLOBPROH + OH --> C7CODBCO3 + MGLYOX ', & - ' DETLOBPROH --> C7CODBCO3 + MGLYOX + HO2 ', & - ' DETLMUCO3 + HO2 --> C9M2CO6O2 + OH ', & - ' DETLMUCO3 + HO2 --> DETLMUO2H + O3 ', & - ' DETLMUCO3 + HO2 --> DETLMUO3H ', & - ' DETLMUCO3 + NO --> C9M2CO6O2 + NO2 ', & - ' DETLMUCO3 + NO2 --> DETLMUPAN ', & - ' DETLMUCO3 + NO3 --> C9M2CO6O2 + NO2 ', & - ' DETLMUCO3 --> C9M2CO6O2 ', & - ' DETLMUCO3 --> DETLMUO2H ', & - ' EPXEALKT + NO3 --> EPXEKTCO3 + HNO3 ', & - ' EPXEALKT + OH --> EPXEKTCO3 ', & - ' EPXEALKT --> C3EDIALO2 + CH3CO3 ', & - ' EPXEALKT --> CO24C63O2 + CO + HO2 ', & - ' DETLMUCO2 + HO2 --> DETLMUOOH ', & - ' DETLMUCO2 + NO --> DETLMUCO + NO2 ', & - ' DETLMUCO2 + NO --> DETLMUNO3 ', & - ' DETLMUCO2 + NO3 --> DETLMUCO + NO2 ', & - ' DETLMUCO2 --> DETLMUCO ', & - ' DETLMUCO2 --> DETLMUOH ', & - ' C9M2CO6O2 + HO2 --> C9M2CO6OOH ', & - ' C9M2CO6O2 + NO --> C9M2CO6O + NO2 ', & - ' C9M2CO6O2 + NO3 --> C9M2CO6O + NO2 ', & - ' C9M2CO6O2 --> C9M2CO6O ', & - ' C9M2CO6O2 --> C9M2CO6OH ', & - ' C9M2CO6O2 --> C9M3CO ', & - ' NSTYRENOOH + OH --> NSTYRENO2 ', & - ' NSTYRENEO --> BENZAL + HCHO + NO2 ', & - ' PHCHOO + CO --> BENZAL ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_137 = (/ & - ' PHCHOO + NO --> BENZAL + NO2 ', & - ' PHCHOO + NO2 --> BENZAL + NO3 ', & - ' PHCHOO + SO2 --> SO3 + BENZAL ', & - ' PHCHOO --> BENZAL + H2O2 ', & - ' PHCHOO --> PHCOOH ', & - ' STYRENOOH + OH --> STYRENO2 ', & - ' STYRENOOH --> STYRENO + OH ', & - ' STYRENO --> BENZAL + HCHO + HO2 ', & - ' C6H5CO3H + OH --> C6H5CO3 ', & - ' C6H5CO3H --> C6H5O2 + OH ', & - ' PHCOOH + OH --> C6H5O2 ', & - ' PBZN + OH --> C6H5OOH + CO + NO2 ', & - ' PBZN --> C6H5CO3 + NO2 ', & - ' C6H5OOH + OH --> C6H5O2 ', & - ' C6H5OOH --> C6H5O + OH ', & - ' NBUTDAOOH --> NBUTDAO + OH ', & - ' NBUTDAOOH + OH --> NMVK + OH ', & - ' NBUTDAO --> NMVK + HO2 ', & - ' NBUTDAOH + OH --> HC3CCHO + NO2 ', & - ' NMVK --> NO3CH2CO3 + HCHO + CO + HO2 ', & - ' NMVK + OH --> HNMVKO2 ', & - ' NBUTDBOOH --> NBUTDBO + OH ', & - ' NBUTDBOOH + OH --> NC3CHO + OH ', & - ' NBUTDBNO3 --> NBUTDBO + NO2 ', & - ' NBUTDBNO3 + OH --> NC3CHO + NO2 ', & - ' NBUTDBO --> NC3CHO + HO2 ', & - ' BUTDANO3 --> BUTDAO + NO2 ', & - ' BUTDANO3 + OH --> HC3CHO + NO2 ', & - ' NC3CHO --> NO3CH2CHO + 2 CO + 2 HO2 ', & - ' NC3CHO + NO3 --> NC3CO3 + HNO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_138 = (/ & - ' NC3CHO + O3 --> NAOOA + GLYOX ', & - ' NC3CHO + O3 --> GLYOOA + NO3CH2CHO ', & - ' NC3CHO + OH --> C42O2 ', & - ' NC3CHO + OH --> NC3CO3 ', & - ' ACROO + CO --> ACR ', & - ' ACROO + NO --> ACR + NO2 ', & - ' ACROO + NO2 --> ACR + NO3 ', & - ' ACROO + SO2 --> SO3 + ACR ', & - ' ACROO --> ACO2H ', & - ' ACROO --> H2O2 + ACR ', & - ' BUTDAOOH --> BUTDAO + OH ', & - ' BUTDAOOH + OH --> HC3CHO + OH ', & - ' BUTDAO --> HC3CHO + HO2 ', & - ' BUTDAOH + OH --> HC3CHO + HO2 ', & - ' HC3CHO --> HC3CO3 + HO2 ', & - ' HC3CHO --> HOCH2CHO + 2 CO + 2 HO2 ', & - ' HC3CHO + NO3 --> HC3CO3 + HNO3 ', & - ' HC3CHO + O3 --> GAOOA + GLYOX ', & - ' HC3CHO + O3 --> GLYOOA + HOCH2CHO ', & - ' HC3CHO + OH --> C41O2 ', & - ' HC3CHO + OH --> HC3CO3 ', & - ' BUTDBOOH --> BUTDBO + OH ', & - ' BUTDBOOH + OH --> MVKOH + OH ', & - ' BUTDBNO3 + OH --> MVKOH + NO2 ', & - ' BUTDBO --> ACR + HCHO + HO2 ', & - ' BUTDBOH + OH --> MVKOH + HO2 ', & - ' MVKOH + O3 --> HMGLOOA + HCHO ', & - ' MVKOH + O3 --> CH2OOB + HOCH2COCHO ', & - ' MVKOH + OH --> MVKOHAO2 ', & - ' MVKOH + OH --> MVKOHBO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_139 = (/ & - ' MVKOH --> ALLYLOH + CO ', & - ' MVKOH --> HCHO + HOCH2CO3 + CO + HO2 ', & - ' BUTDCOOH --> BUTDCO + OH ', & - ' BUTDCOOH + OH --> HC3CCHO + OH ', & - ' BUTDCO --> ACR + HCHO + HO2 ', & - ' HC3CCHO --> ACR + CO + 2 HO2 ', & - ' HC3CCHO + NO3 --> HC3CCO3 + HNO3 ', & - ' HC3CCHO + OH --> HC3CCO3 ', & - ' NISOPOOH --> NISOPO + OH ', & - ' NISOPOOH + OH --> NC4CHO + OH ', & - ' NISOPNO3 --> NISOPO + NO2 ', & - ' NISOPNO3 + OH --> NC4CHO + NO2 ', & - ' NISOPO --> NC4CHO + HO2 ', & - ' ISOPCNO3 --> ISOPCO + NO2 ', & - ' ISOPCNO3 + O3 --> GAOOB + NOA ', & - ' ISOPCNO3 + O3 --> NC3OOA + HOCH2CHO ', & - ' ISOPCNO3 + OH --> INCO2 ', & - ' NC4CHO --> C4MDIAL + NO2 + HO2 ', & - ' NC4CHO + NO3 --> NC4CO3 + HNO3 ', & - ' NC4CHO + O3 --> GLYOOC + NOA ', & - ' NC4CHO + O3 --> NOAOOA + GLYOX ', & - ' NC4CHO + OH --> C510O2 ', & - ' NC4CHO + OH --> NC4CO3 ', & - ' MGLOOA --> CH3CHO ', & - ' MGLOOA --> HCHO + CH3CO3 + HO2 ', & - ' MGLOOA --> MGLOO ', & - ' MGLOOA --> CH3CO3 + OH + CO ', & - ' HMVKAO2 + HO2 --> HMVKAOOH ', & - ' HMVKAO2 + NO --> HMVKANO3 ', & - ' HMVKAO2 + NO --> HMVKAO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_140 = (/ & - ' HMVKAO2 + NO3 --> HMVKAO + NO2 ', & - ' HMVKAO2 --> CO2H3CHO ', & - ' HMVKAO2 --> HMVKAO ', & - ' HMVKAO2 --> HO12CO3C4 ', & - ' HMVKBO2 + NO --> MVKNO3 ', & - ' HMVKBO2 + HO2 --> HMVKBOOH ', & - ' HMVKBO2 + NO --> HMVKBO + NO2 ', & - ' HMVKBO2 + NO3 --> HMVKBO + NO2 ', & - ' HMVKBO2 --> BIACETOH ', & - ' HMVKBO2 --> HMVKBO ', & - ' HMVKBO2 --> HO12CO3C4 ', & - ' MACROO + CO --> MACR ', & - ' MACROO + NO --> MACR + NO2 ', & - ' MACROO + NO2 --> MACR + NO3 ', & - ' MACROO + SO2 --> SO3 + MACR ', & - ' MACROO --> MACO2H ', & - ' MACROO --> H2O2 + MACR ', & - ' MVKOO + CO --> MVK ', & - ' MVKOO + NO --> MVK + NO2 ', & - ' MVKOO + NO2 --> MVK + NO3 ', & - ' MVKOO + SO2 --> SO3 + MVK ', & - ' MVKOO --> H2O2 + MVK ', & - ' MVKO2 + HO2 --> MVKOOH ', & - ' MVKO2 + NO --> MVKO + NO2 ', & - ' MVKO2 + NO3 --> MVKO + NO2 ', & - ' MVKO2 --> MVKO ', & - ' MVKO2 --> MVKOH ', & - ' MVKO2 --> VGLYOX ', & - ' CISOPAO2 + HO2 --> ISOPAOOH ', & - ' CISOPAO2 + NO --> CISOPAO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_141 = (/ & - ' CISOPAO2 + NO --> ISOPANO3 ', & - ' CISOPAO2 + NO3 --> CISOPAO + NO2 ', & - ' CISOPAO2 --> C536O2 ', & - ' CISOPAO2 --> C5HPALD1 + HO2 ', & - ' CISOPAO2 --> CISOPA ', & - ' CISOPAO2 --> CISOPAO ', & - ' CISOPAO2 --> HC4ACHO ', & - ' CISOPAO2 --> ISOPAOH ', & - ' ISOPBO2 + HO2 --> ISOPBOOH ', & - ' ISOPBO2 + NO --> ISOPBNO3 ', & - ' ISOPBO2 + NO --> ISOPBO + NO2 ', & - ' ISOPBO2 + NO3 --> ISOPBO + NO2 ', & - ' ISOPBO2 --> CISOPA ', & - ' ISOPBO2 --> ISOPBO ', & - ' ISOPBO2 --> ISOPBOH ', & - ' ISOPBO2 --> MVK + HCHO + OH ', & - ' ISOPBO2 --> TISOPA ', & - ' CISOPCO2 + HO2 --> ISOPCOOH ', & - ' CISOPCO2 + NO --> CISOPCO + NO2 ', & - ' CISOPCO2 + NO --> ISOPCNO3 ', & - ' CISOPCO2 + NO3 --> CISOPCO + NO2 ', & - ' CISOPCO2 --> C537O2 ', & - ' CISOPCO2 --> C5HPALD2 + HO2 ', & - ' CISOPCO2 --> CISOPC ', & - ' CISOPCO2 --> CISOPCO ', & - ' CISOPCO2 --> HC4CCHO ', & - ' CISOPCO2 --> ISOPAOH ', & - ' ISOPDO2 + HO2 --> ISOPDOOH ', & - ' ISOPDO2 + NO --> ISOPDNO3 ', & - ' ISOPDO2 + NO --> ISOPDO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_142 = (/ & - ' ISOPDO2 + NO3 --> ISOPDO + NO2 ', & - ' ISOPDO2 --> CISOPC ', & - ' ISOPDO2 --> HCOC5 ', & - ' ISOPDO2 --> ISOPDO ', & - ' ISOPDO2 --> ISOPDOH ', & - ' ISOPDO2 --> MACR + HCHO + OH ', & - ' ISOPDO2 --> TISOPC ', & - ' ISOP34OOH + OH --> HC4CHO + OH ', & - ' ISOP34OOH --> ISOP34O + OH ', & - ' ISOP34NO3 + OH --> INAO2 ', & - ' ISOP34NO3 + O3 --> CH2OOC + HMVKANO3 ', & - ' ISOP34NO3 + O3 --> NC41OOA + HCHO ', & - ' ISOP34O --> MACR + HCHO + HO2 ', & - ' HC4CHO + OH --> C58O2 ', & - ' HC4CHO + OH --> HC4CO3 ', & - ' HC4CHO --> MACR + CO + 2 HO2 ', & - ' ISOPDOH + OH --> HCOC5 + HO2 ', & - ' NC526O2 + HO2 --> NC526OOH ', & - ' NC526O2 + NO --> NC526O + NO2 ', & - ' NC526O2 + NO3 --> NC526O + NO2 ', & - ' NC526O2 --> NC526O ', & - ' CO2C3OOB --> C4CO2O2 + OH ', & - ' CO2C3OOB --> CO2C3OO ', & - ' C530O2 + HO2 --> C530OOH ', & - ' C530O2 + NO --> C530NO3 ', & - ' C530O2 + NO --> C530O + NO2 ', & - ' C530O2 + NO3 --> C530O + NO2 ', & - ' C530O2 --> C530O ', & - ' M3BU3ECO3 + HO2 --> C45O2 + OH + NO2 ', & - ' M3BU3ECO3 + HO2 --> M3BU3ECO3H ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_143 = (/ & - ' M3BU3ECO3 + NO --> C45O2 + NO2 ', & - ' M3BU3ECO3 + NO2 --> M3BU3EPAN ', & - ' M3BU3ECO3 + NO3 --> C45O2 + NO2 ', & - ' M3BU3ECO3 --> C45O2 ', & - ' C45O2 + HO2 --> C45OOH ', & - ' C45O2 + NO --> C45NO3 ', & - ' C45O2 + NO --> C45O + NO2 ', & - ' C45O2 + NO3 --> C45O + NO2 ', & - ' C45O2 --> C45O ', & - ' NC51O2 + HO2 --> NC51OOH ', & - ' NC51O2 + NO --> NC51O + NO2 ', & - ' NC51O2 + NO3 --> NC51O + NO2 ', & - ' NC51O2 --> NC51O ', & - ' CO2C3OOA --> C4CO2O2 + OH ', & - ' CO2C3OOA --> CH3COCH2O2 + HO2 ', & - ' CO2C3OOA --> CH3COCH3 ', & - ' CO2C3OOA --> CO2C3OO ', & - ' C51O2 + HO2 --> C51OOH ', & - ' C51O2 + NO --> C51NO3 ', & - ' C51O2 + NO --> C51O + NO2 ', & - ' C51O2 + NO3 --> C51O + NO2 ', & - ' C51O2 --> C51O ', & - ' C51O2 --> C51OH ', & - ' C51O2 --> HO1CO24C5 ', & - 'CH2CHCH2O2 + HO2 --> CH2CHCH2OOH ', & - ' CH2CHCH2O2 + NO --> CH2CHCH2NO3 ', & - ' CH2CHCH2O2 + NO --> CH2CHCH2O + NO2 ', & - 'CH2CHCH2O2 + NO3 --> CH2CHCH2O + NO2 ', & - ' CH2CHCH2O2 --> ACR ', & - ' CH2CHCH2O2 --> ALLYLOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_144 = (/ & - ' CH2CHCH2O2 --> CH2CHCH2O ', & - ' ISOPAO2 + HO2 --> ISOPAOOH ', & - ' ISOPAO2 + NO --> ISOPANO3 ', & - ' ISOPAO2 + NO --> ISOPAO + NO2 ', & - ' ISOPAO2 + NO3 --> ISOPAO + NO2 ', & - ' ISOPAO2 --> HC4ACHO ', & - ' ISOPAO2 --> ISOPAO ', & - ' ISOPAO2 --> ISOPAOH ', & - ' ISOPAO2 --> TISOPA ', & - ' ISOPCO2 + HO2 --> ISOPCOOH ', & - ' ISOPCO2 + NO --> ISOPCNO3 ', & - ' ISOPCO2 + NO --> ISOPCO + NO2 ', & - ' ISOPCO2 + NO3 --> ISOPCO + NO2 ', & - ' ISOPCO2 --> HC4CCHO ', & - ' ISOPCO2 --> ISOPAOH ', & - ' ISOPCO2 --> ISOPCO ', & - ' ISOPCO2 --> TISOPC ', & - ' CH3OCH2OOH + OH --> CH3OCHO + OH ', & - ' CH3OCH2OOH --> CH3OCH2O + OH ', & - ' CH3OCHO + OH --> CH3O2 ', & - ' CH3OCHO + OH --> CHOOCH2O2 ', & - ' CH3OCH2NO3 + OH --> CH3OCHO + NO2 ', & - ' CH3OCH2NO3 --> CH3OCH2O + NO2 ', & - ' CH3OCH2O --> CH3OCHO + HO2 ', & - ' CH3OCH2OH + OH --> CH3OCHO + HO2 ', & - ' DIETETOOH + OH --> ETHACET + OH ', & - ' DIETETOOH --> DIETETO + OH ', & - ' ETHACET + OH --> ACETC2H4O2 ', & - ' ETHACET + OH --> EOCOCH2O2 ', & - ' ETHACET + OH --> ETHACETO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_145 = (/ & - ' DIETETNO3 + OH --> ETHACET + NO2 ', & - ' DIETETNO3 --> DIETETO + NO2 ', & - ' DIETETO --> ETHFORM + CH3O2 ', & - ' DIETETOH + OH --> ETHACET + HO2 ', & - ' ETOC2OOH + OH --> EOX2ETCHO + OH ', & - ' ETOC2OOH --> ETOC2O + OH ', & - ' ETOC2NO3 + OH --> EOX2ETCHO + NO2 ', & - ' ETOC2NO3 --> ETOC2O + NO2 ', & - ' ETOC2O --> ETOMEO2 + HCHO ', & - ' EOX2EOL + NO3 --> EOX2EOLAO2 + HNO3 ', & - ' EOX2EOL + NO3 --> EOX2EOLBO2 + HNO3 ', & - ' EOX2EOL + OH --> EOX2EOLAO2 ', & - ' EOX2EOL + OH --> EOX2EOLBO2 ', & - ' EOX2EOL + OH --> EOX2ETCHO + HO2 ', & - ' EOX2ETCHO + NO3 --> EOX2MECO3 + HNO3 ', & - ' EOX2ETCHO + OH --> EOX2MECO3 ', & - ' EOX2ETCHO --> ETOMEO2 + CO + HO2 ', & - ' CH3COCH2O --> HCHO + CH3CO3 ', & - ' HYPERACET + OH --> CH3COCH2O2 ', & - ' HYPERACET + OH --> MGLYOX + OH ', & - ' HYPERACET --> HCHO + CH3CO3 + OH ', & - ' HYPERACET --> CH3COCH2O + OH ', & - ' MEKAOOH + OH --> CO2C3CHO + OH ', & - ' MEKAOOH + OH --> MEKAO2 ', & - ' MEKAOOH --> MEKAO + OH ', & - ' MEKANO3 + OH --> CO2C3CHO + NO2 ', & - ' MEKANO3 --> MEKAO + NO2 ', & - ' MEKAO --> CO2C3CHO + HO2 ', & - ' MEKAO --> HO1CO3C4O2 ', & - ' MEKBOOH + OH --> BIACET + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_146 = (/ & - ' MEKBOOH + OH --> MEKBO2 ', & - ' MEKBOOH --> CH3CHO + CH3CO3 + OH ', & - ' MEKBOOH --> MEKBO + OH ', & - ' MEKBO --> CH3CHO + CH3CO3 ', & - ' BIACET --> 2 CH3CO3 ', & - ' BIACET + OH --> BIACETO2 ', & - ' MEKCOOH + OH --> EGLYOX + OH ', & - ' MEKCOOH + OH --> MEKCO2 ', & - ' MEKCOOH --> C2H5CO3 + HCHO + OH ', & - ' MEKCOOH --> MEKCO + OH ', & - ' MEKCO --> C2H5CO3 + HCHO ', & - ' EGLYOX --> C2H5CO3 + CO + HO2 ', & - ' EGLYOX + NO3 --> C2H5CO3 + HNO3 + CO ', & - ' EGLYOX + OH --> C2H5CO3 + CO ', & - ' MPRKBOOH + OH --> CO24C5 + OH ', & - ' MPRKBOOH + OH --> CO2C54O2 ', & - ' MPRKBOOH --> CO2C54O + OH ', & - ' MPRKBOOH --> IC3H7O2 + CH3CO3 ', & - ' CO2C54O --> HO2CO4C5O2 ', & - ' MPRKNO3 + OH --> CO24C5 + NO2 ', & - ' MPRKNO3 --> CO2C54O + NO2 ', & - ' CO24C5 + OH --> CO24C53O2 ', & - ' CO24C5 --> CH3COCH2O2 + CH3CO3 ', & - ' HO2CO4C5 + OH --> CO24C5 + HO2 ', & - ' HO2CO4C5 --> IPROPOLO2 + CH3CO3 ', & - ' MPRKAOOH + OH --> CO23C5 + OH ', & - ' MPRKAOOH + OH --> MPRKAO2 ', & - ' MPRKAOOH --> C2H5CHO + CH3CO3 + OH ', & - ' MPRKAOOH --> MPRKAO + OH ', & - ' MPRKAO --> C2H5CHO + CH3CO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_147 = (/ & - ' CO23C5 + OH --> CO23C54O2 ', & - ' CO23C5 --> C2H5CO3 + CH3CO3 ', & - ' DIEKAOOH + OH --> CO23C5 + OH ', & - ' DIEKAOOH + OH --> DIEKAO2 ', & - ' DIEKAOOH --> C2H5CO3 + CH3CHO + OH ', & - ' DIEKAOOH --> DIEKAO + OH ', & - ' DIEKAO --> C2H5CO3 + CH3CHO ', & - ' DIEKBOOH + OH --> CO3C4CHO + OH ', & - ' DIEKBOOH + OH --> DIEKBO2 ', & - ' DIEKBOOH --> DIEKBO + OH ', & - ' DIEKBNO3 + OH --> CO3C4CHO + NO2 ', & - ' DIEKBNO3 --> DIEKBO + NO2 ', & - ' DIEKBO --> HOCO3C54O2 ', & - ' HO1CO3C5 + OH --> CO3C4CHO + HO2 ', & - ' HO1CO3C5 --> C2H5CO3 + HOCH2CH2O2 ', & - ' MIPKAOOH --> MIPKAO + OH ', & - ' MIPKAOOH + OH --> MIPKAO2 ', & - ' MIPKAO --> CH3COCH3 + CH3CO3 ', & - ' MIPKBOOH --> MIPKBO + OH ', & - ' MIPKBOOH + OH --> CO2C43CHO + OH ', & - ' MIPKBNO3 --> MIPKBO + NO2 ', & - ' MIPKBNO3 + OH --> CO2C43CHO + NO2 ', & - ' MIPKBO --> C53O2 ', & - ' MIPKBO --> CO2C43CHO + HO2 ', & - ' CO2C43CHO --> MEKBO2 + CO + HO2 ', & - ' CO2C43CHO + NO3 --> C41CO3 + HNO3 ', & - ' CO2C43CHO + OH --> C41CO3 ', & - ' HEX2ONAOOH + OH --> CO24C6 + OH ', & - ' HEX2ONAOOH + OH --> HEX2ONAO2 ', & - ' HEX2ONAOOH --> HEX2ONAO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_148 = (/ & - ' HEX2ONANO3 + OH --> CO24C6 + NO2 ', & - ' HEX2ONANO3 --> HEX2ONAO + NO2 ', & - ' HEX2ONAO --> CO2HOC61O2 ', & - ' CO24C6 + OH --> CO24C6O2 ', & - ' CO24C6 --> MEKCO2 + CH3CO3 ', & - ' CO24C6 --> C2H5CO3 + CH3COCH2O2 ', & - ' CO2HO4C6 + OH --> CO24C6 + HO2 ', & - ' CO2HO4C6 --> HO3C4O2 + CH3CO3 ', & - ' HEX2ONBOOH + OH --> CO25C6 + OH ', & - ' HEX2ONBOOH + OH --> HEX2ONBO2 ', & - ' HEX2ONBOOH --> HEX2ONBO + OH ', & - ' HEX2ONBNO3 + OH --> CO25C6 + NO2 ', & - ' HEX2ONBNO3 --> HEX2ONBO + NO2 ', & - ' HEX2ONBO --> CH3CHO + MEKAO2 ', & - ' HEX2ONBO --> CO25C6 + HO2 ', & - ' CO25C6 --> CH3CO3 + MEKAO2 ', & - ' CO25C6 + OH --> CO25C6O2 ', & - ' HO2CO5C6 --> HO2C4O2 + CH3CO3 ', & - ' HO2CO5C6 + OH --> C61O2 ', & - ' HO2CO5C6 + OH --> CO25C6 + HO2 ', & - ' HEX2ONCOOH + OH --> CO23C6 + OH ', & - ' HEX2ONCOOH + OH --> HEX2ONCO2 ', & - ' HEX2ONCOOH --> C3H7CHO + CH3CO3 + OH ', & - ' HEX2ONCOOH --> HEX2ONCO + OH ', & - ' HEX2ONCO --> C3H7CHO + CH3CO3 ', & - ' CO23C6 + OH --> CO23C65O2 ', & - ' CO23C6 --> C3H7CO3 + CH3CO3 ', & - ' HEX3ONAOOH + OH --> CO24C6 + OH ', & - ' HEX3ONAOOH + OH --> HEX3ONAO2 ', & - ' HEX3ONAOOH --> HEX3ONAO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_149 = (/ & - ' HEX3ONAOOH --> IC3H7O2 + C2H5CO3 ', & - ' HEX3ONANO3 + OH --> CO24C6 + NO2 ', & - ' HEX3ONANO3 --> HEX3ONAO + NO2 ', & - ' HEX3ONAO --> C6CO3OH5O2 ', & - ' HEX3ONAOH + OH --> CO24C6 + HO2 ', & - ' HEX3ONAOH --> C2H5CO3 + IPROPOLO2 ', & - ' HEX3ONBOOH + OH --> C6CO34 + OH ', & - ' HEX3ONBOOH + OH --> HEX3ONBO2 ', & - ' HEX3ONBOOH --> C2H5CO3 + C2H5CHO + OH ', & - ' HEX3ONBOOH --> HEX3ONBO + OH ', & - ' HEX3ONBO --> C2H5CO3 + C2H5CHO ', & - ' C6CO34 + OH --> C6CO34O2 ', & - ' C6CO34 --> 2 C2H5CO3 ', & - ' C6CO3HO4 + OH --> C6CO34 + HO2 ', & - ' C6CO3HO4 --> C2H5CO3 + C2H5CHO + HO2 ', & - ' HEX3ONCOOH + OH --> CO23C6 + OH ', & - ' HEX3ONCOOH + OH --> HEX3ONCO2 ', & - ' HEX3ONCOOH --> C3H7CO3 + CH3CHO + OH ', & - ' HEX3ONCOOH --> HEX3ONCO + OH ', & - ' HEX3ONCO --> C3H7CO3 + CH3CHO ', & - ' HEX3ONDOOH + OH --> C3COCCHO + OH ', & - ' HEX3ONDOOH + OH --> HEX3ONDO2 ', & - ' HEX3ONDOOH --> HEX3ONDO + OH ', & - ' HEX3ONDNO3 + OH --> C3COCCHO + NO2 ', & - ' HEX3ONDNO3 --> HEX3ONDO + NO2 ', & - ' HEX3ONDO --> C6HO1CO3O2 ', & - ' C3COCCHO + NO3 --> C3COCCO3 + HNO3 ', & - ' C3COCCHO + OH --> C3COCCO3 ', & - ' C3COCCHO --> C3H7CO3 + HCOCH2O2 ', & - ' C3COCCHO --> PEN2ONE1O2 + CO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_150 = (/ & - ' HEX3ONDOH + OH --> C3COCCHO + HO2 ', & - ' HEX3ONDOH --> NC3H7O2 + HOC2H4CO3 ', & - ' MIBKAOOH + OH --> MIBKAO2 ', & - ' MIBKAOOH --> MIBKAO + OH ', & - ' MIBKANO3 + OH --> CH3COCH3 + MGLYOX + NO2 ', & - ' MIBKANO3 --> MIBKAO + NO2 ', & - ' MIBKAO --> CH3COCH3 + CH3COCH2O2 ', & - ' MIBKAO --> MIBKHO4O2 ', & - ' MIBKBOOH + OH --> MIBK3CO + OH ', & - ' MIBKBOOH + OH --> MIBKBO2 ', & - ' MIBKBOOH --> IPRCHO + CH3CO3 + OH ', & - ' MIBKBOOH --> MIBKBO + OH ', & - ' MIBKBO --> IPRCHO + CH3CO3 ', & - ' MIBK3CO + OH --> MIBK3COO2 ', & - ' MIBK3CO --> IPRCO3 + CH3CO3 ', & - ' MIBKBOH + OH --> MIBK3CO + HO2 ', & - ' MIBKBOH --> IPRCHO + CH3CO3 + HO2 ', & - ' MTBKOOH --> MTBKO + OH ', & - ' MTBKOOH + OH --> CO2M33CHO + OH ', & - ' MTBKNO3 --> MTBKO + NO2 ', & - ' MTBKNO3 + OH --> CO2M33CHO + NO2 ', & - ' MTBKO --> C612O2 ', & - ' MTBKO --> CO2M33CHO + HO2 ', & - ' CO2M33CHO --> MIPKBO2 + CO + HO2 ', & - ' CO2M33CHO + NO3 --> CO2M33CO3 + HNO3 ', & - ' CO2M33CHO + OH --> CO2M33CO3 ', & - ' MTBKOH --> MTBKO + HO2 ', & - ' MTBKOH + OH --> CO2M33CHO + HO2 ', & - ' CYHXONAOOH + OH --> CYC613DION + OH ', & - ' CYHXONAOOH --> CYHXONAO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_151 = (/ & - ' CYHXONANO3 + OH --> CYC613DION + NO2 ', & - ' CYHXONANO3 --> CYHXONAO + NO2 ', & - ' CYHXONAO --> C6COCHOO2 ', & - ' CYHXONAO --> CYC613DION + HO2 ', & - ' CYC613DION + OH --> CY6DIONO2 ', & - ' CYC613DION --> C2H4 + ACR + CO ', & - ' CYHXONAOH + OH --> CYC613DION + HO2 ', & - ' CYHXONAOH --> VINOH + C3H6 + OH ', & - ' NAPINAOOH + OH --> NAPINAO2 ', & - ' NAPINAOOH --> NAPINAO + OH ', & - ' NAPINAO --> PINAL + NO2 ', & - ' APINBNO3 + OH --> APINBCO + NO2 ', & - ' NAPINBOOH + OH --> NAPINBO2 ', & - ' NAPINBOOH + OH --> NC101CO + OH ', & - ' NAPINBOOH --> NAPINBO + OH ', & - ' NAPINBO --> NC101CO + HO2 ', & - ' NAPINBO --> PINAL + NO2 ', & - ' APINANO3 + OH --> PINAL + NO2 ', & - ' NC101CO + OH --> NC101O2 ', & - ' NC101CO --> C96CO3 + NO2 ', & - ' C107O2 + HO2 --> C107OOH ', & - ' C107O2 + NO --> C107O + NO2 ', & - ' C107O2 + NO3 --> C107O + NO2 ', & - ' C107O2 --> C107O ', & - ' C107O2 --> C107OH ', & - ' C109O2 + HO2 --> C109OOH ', & - ' C109O2 + NO --> C109O + NO2 ', & - ' C109O2 + NO3 --> C109O + NO2 ', & - ' C109O2 --> C109CO ', & - ' C109O2 --> C109O ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_152 = (/ & - ' C109O2 --> C109OH ', & - ' APINBOO + CO --> PINAL ', & - ' APINBOO + NO --> PINAL + NO2 ', & - ' APINBOO + NO2 --> PINAL + NO3 ', & - ' APINBOO + SO2 --> SO3 + PINAL ', & - ' APINBOO --> H2O2 + PINAL ', & - ' APINBOO --> PINONIC ', & - ' C96O2 + HO2 --> C96OOH ', & - ' C96O2 + NO --> C96NO3 ', & - ' C96O2 + NO --> C96O + NO2 ', & - ' C96O2 + NO3 --> C96O + NO2 ', & - ' C96O2 --> C96O ', & - ' C96O2 --> C96OH ', & - ' C96O2 --> NORPINAL ', & - ' APINAOOH + OH --> APINAO2 ', & - ' APINAOOH --> APINAO + OH ', & - ' APINAO --> PINAL + HO2 ', & - ' APINBOH + OH --> APINBCO + HO2 ', & - ' APINBOOH + OH --> APINBCO + OH ', & - ' APINBOOH --> APINBO + OH ', & - ' APINBO --> PINAL + HO2 ', & - ' APINBCO + OH --> C96CO3 ', & - ' APINCOOH + OH --> APINCO2 ', & - ' APINCOOH --> APINCO + OH ', & - ' APINCNO3 + OH --> HCC7CO + CH3COCH3 + NO2 ', & - ' APINCNO3 --> APINCO + NO2 ', & - ' APINCO --> C720O2 + CH3COCH3 ', & - ' APINCOH + OH --> APINCO ', & - ' NBPINAOOH + OH --> NBPINAO2 ', & - ' NBPINAOOH --> NBPINAO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_153 = (/ & - ' NBPINAO --> NOPINONE + HCHO + NO2 ', & - ' BPINBNO3 + OH --> C918CHO + NO2 ', & - ' NBPINBOOH + OH --> NC91CHO + OH ', & - ' NBPINBOOH --> NBPINBO + OH ', & - ' NBPINBO --> NOPINONE + HCHO + NO2 ', & - ' BPINANO3 + OH --> NOPINONE + HCHO + NO2 ', & - ' NC91CHO + NO3 --> NC91CO3 + HNO3 ', & - ' NC91CHO + OH --> NC91CO3 ', & - ' NC91CHO --> NOPINONE + CO + NO2 + HO2 ', & - ' NOPINAO2 + HO2 --> NOPINAOOH ', & - ' NOPINAO2 + NO --> NOPINANO3 ', & - ' NOPINAO2 + NO --> NOPINAO + NO2 ', & - ' NOPINAO2 + NO3 --> NOPINAO + NO2 ', & - ' NOPINAO2 --> C9DC ', & - ' NOPINAO2 --> NOPINAO ', & - ' NOPINAO2 --> NOPINAOH ', & - ' NOPINBO2 + HO2 --> NOPINBOOH ', & - ' NOPINBO2 + NO --> NOPINBNO3 ', & - ' NOPINBO2 + NO --> NOPINBO + NO2 ', & - ' NOPINBO2 + NO3 --> NOPINBO + NO2 ', & - ' NOPINBO2 --> NOPINBCO ', & - ' NOPINBO2 --> NOPINBO ', & - ' NOPINBO2 --> NOPINBOH ', & - ' NOPINCO2 + HO2 --> NOPINCOOH ', & - ' NOPINCO2 + NO --> NOPINCNO3 ', & - ' NOPINCO2 + NO --> NOPINCO + NO2 ', & - ' NOPINCO2 + NO3 --> NOPINCO + NO2 ', & - ' NOPINCO2 --> NOPINCO ', & - ' NOPINCO2 --> NOPINCOH ', & - ' NOPINDO2 + HO2 --> NOPINDOOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_154 = (/ & - ' NOPINDO2 + NO --> NOPINDO + NO2 ', & - ' NOPINDO2 + NO3 --> NOPINDO + NO2 ', & - ' NOPINDO2 --> NOPINDCO ', & - ' NOPINDO2 --> NOPINDO ', & - ' NOPINDO2 --> NOPINDOH ', & - ' C8BC + OH --> C8BCO2 ', & - ' NOPINOO + CO --> NOPINONE ', & - ' NOPINOO + NO --> NOPINONE + NO2 ', & - ' NOPINOO + NO2 --> NOPINONE + NO3 ', & - ' NOPINOO + SO2 --> SO3 + NOPINONE ', & - ' NOPINOO --> H2O2 + NOPINONE ', & - ' BPINAOOH + OH --> BPINAO2 ', & - ' BPINAOOH --> BPINAO + OH ', & - ' BPINAO --> NOPINONE + HCHO + HO2 ', & - ' BPINAOH + OH --> C918CHO + HO2 ', & - ' BPINBOOH + OH --> C918CHO + OH ', & - ' BPINBOOH --> BPINBO + OH ', & - ' BPINBO --> NOPINONE + HCHO + HO2 ', & - ' C918CHO + NO3 --> C918CO3 + HNO3 ', & - ' C918CHO + OH --> C918CO3 ', & - ' C918CHO --> NOPINONE + CO + 2 HO2 ', & - ' BPINCOOH + OH --> BPINCO2 ', & - ' BPINCOOH --> BPINCO + OH ', & - ' BPINCNO3 + OH --> HCC7CO + CH3COCH3 + NO2 ', & - ' BPINCNO3 --> BPINCO + NO2 ', & - ' BPINCO --> C720O2 + CH3COCH3 ', & - ' BPINCOH + OH --> BPINCO ', & - ' NLIMOOH + OH --> NLIMO2 ', & - ' NLIMOOH --> NLIMO + OH ', & - ' NLIMO --> LIMAL + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_155 = (/ & - ' LIMBNO3 + OH --> LIMBCO + NO2 ', & - ' LIMALAO2 + HO2 --> LIMALAOOH ', & - ' LIMALAO2 + NO --> LIMALAO + NO2 ', & - ' LIMALAO2 + NO3 --> LIMALAO + NO2 ', & - ' LIMALAO2 --> LIMALACO ', & - ' LIMALAO2 --> LIMALAO ', & - ' LIMALAO2 --> LIMALAOH ', & - ' LIMALBO2 + HO2 --> LIMALBOOH ', & - ' LIMALBO2 + NO --> LIMALBO + NO2 ', & - ' LIMALBO2 + NO3 --> LIMALBO + NO2 ', & - ' LIMALBO2 --> LIMALBCO ', & - ' LIMALBO2 --> LIMALBO ', & - ' LIMALBO2 --> LIMALBOH ', & - ' C923O2 + HO2 --> C923OOH ', & - ' C923O2 + NO --> C923NO3 ', & - ' C923O2 + NO --> C923O + NO2 ', & - ' C923O2 + NO3 --> C923O + NO2 ', & - ' C923O2 --> C923O ', & - ' C923O2 --> C923OH ', & - ' C923O2 --> NORLIMAL ', & - ' LIMBOO + CO --> LIMAL ', & - ' LIMBOO + NO --> LIMAL + NO2 ', & - ' LIMBOO + NO2 --> LIMAL + NO3 ', & - ' LIMBOO + SO2 --> SO3 + LIMAL ', & - ' LIMBOO --> H2O2 + LIMAL ', & - ' LIMBOO --> LIMONONIC ', & - ' LIMAOOH + OH --> LIMAO2 ', & - ' LIMAOOH --> LIMAO + OH ', & - ' LIMANO3 + OH --> LIMAL + NO2 ', & - ' LIMAO --> LIMAL + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_156 = (/ & - ' LIMAOH + OH --> LIMBCO + HO2 ', & - ' LIMBOOH + OH --> LIMBCO + OH ', & - ' LIMBOOH --> LIMBO + OH ', & - ' LIMBO --> LIMAL + HO2 ', & - ' LIMBCO + OH --> C923CO3 ', & - ' LIMCOOH + OH --> LIMCO2 ', & - ' LIMCOOH --> LIMCO + OH ', & - ' LIMCNO3 + OH --> LIMKET + HCHO + NO2 ', & - ' LIMCO --> LIMKET + HCHO + HO2 ', & - ' LIMCOH + OH --> LIMKET + HCHO + HO2 ', & - ' NBCOOH + OH --> NBCO2 ', & - ' NBCOOH --> NBCO + OH ', & - ' NBCO --> NO2 + BCAL ', & - ' BCBNO3 + OH --> BCBCO + NO2 ', & - ' NO3 + BCAL --> C141CO3 + HNO3 ', & - ' NO3 + BCAL --> NBCALO2 ', & - ' BCAL + O3 --> BCALOOA + HCHO ', & - ' BCAL + O3 --> CH2OOF + BCLKET ', & - ' OH + BCAL --> BCALAO2 ', & - ' OH + BCAL --> BCALBO2 ', & - ' OH + BCAL --> BCALCO2 ', & - ' OH + BCAL --> BCALO2 ', & - ' OH + BCAL --> C141CO3 ', & - ' BCAL --> C141O2 + CO + HO2 ', & - ' BCSOZ + O3 --> BCKSOZ + CH2OOF ', & - ' BCSOZ + O3 --> BCKSZOO + HCHO ', & - ' BCSOZ + OH --> BCSOZO2 ', & - ' C141CO2H + O3 --> C131CO2H + CH2OOF ', & - ' C141CO2H + O3 --> C141OOA + HCHO ', & - ' C141CO2H + OH --> C151O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_157 = (/ & - ' BCALAO2 + HO2 --> BCALAOOH ', & - ' BCALAO2 + NO --> BCALAO + NO2 ', & - ' BCALAO2 + NO3 --> BCALAO + NO2 ', & - ' BCALAO2 --> BCALACO ', & - ' BCALAO2 --> BCALAO ', & - ' BCALAO2 --> BCALAOH ', & - ' BCALBO2 + HO2 --> BCALBOOH ', & - ' BCALBO2 + NO --> BCALBO + NO2 ', & - ' BCALBO2 + NO3 --> BCALBO + NO2 ', & - ' BCALBO2 --> BCALBCO ', & - ' BCALBO2 --> BCALBO ', & - ' BCALBO2 --> BCALBOH ', & - ' BCALBOC + O3 --> BCBOOA + HCHO ', & - ' BCALBOC + O3 --> BCLKBOC + CH2OOF ', & - ' BCALBOC + OH --> C152O2 ', & - ' C136O2 + HO2 --> C136OOH ', & - ' C136O2 + NO --> C136NO3 ', & - ' C136O2 + NO --> C136O + NO2 ', & - ' C136O2 + NO3 --> C136O + NO2 ', & - ' C136O2 --> C126CHO ', & - ' C136O2 --> C136O ', & - ' C136O2 --> C136OH ', & - ' BCALCO2 + HO2 --> BCALCOOH ', & - ' BCALCO2 + NO --> BCALCO + NO2 ', & - ' BCALCO2 + NO3 --> BCALCO + NO2 ', & - ' BCALCO2 --> BCALCCO ', & - ' BCALCO2 --> BCALCO ', & - ' BCALCO2 --> BCALCOH ', & - ' C141O2 + HO2 --> C141OOH ', & - ' C141O2 + NO --> C141NO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_158 = (/ & - ' C141O2 + NO --> C141O + NO2 ', & - ' C141O2 + NO3 --> C141O + NO2 ', & - ' C141O2 --> C141CO ', & - ' C141O2 --> C141O ', & - ' C141O2 --> C141OH ', & - ' BCAOOH + OH --> BCAO2 ', & - ' BCAOOH --> BCAO + OH ', & - ' BCANO3 + OH --> NO2 + BCAL ', & - ' BCAO --> HO2 + BCAL ', & - ' BCAOH + OH --> BCBCO + HO2 ', & - ' BCBOOH + OH --> BCBCO + OH ', & - ' BCBOOH --> BCBO + OH ', & - ' BCBO --> HO2 + BCAL ', & - ' BCBCO + OH --> C141CO3 ', & - ' BCCOOH + OH --> BCCO2 ', & - ' BCCOOH --> BCCO + OH ', & - ' BCCNO3 + OH --> HCHO + BCKET + NO2 ', & - ' BCCO --> HCHO + BCKET + HO2 ', & - ' BCCOH + OH --> HCHO + BCKET + HO2 ', & - ' HOC2H4CO3 + HO2 --> HOC2H4CO2H + O3 ', & - ' HOC2H4CO3 + HO2 --> HOC2H4CO3H ', & - ' HOC2H4CO3 + HO2 --> HOCH2CH2O2 + OH ', & - ' HOC2H4CO3 + NO --> HOCH2CH2O2 + NO2 ', & - ' HOC2H4CO3 + NO2 --> C3PAN1 ', & - ' HOC2H4CO3 + NO3 --> HOCH2CH2O2 + NO2 ', & - ' HOC2H4CO3 --> HOC2H4CO2H ', & - ' HOC2H4CO3 --> HOCH2CH2O2 ', & - ' HOIPRCO3 + HO2 --> HOIPRCO2H + O3 ', & - ' HOIPRCO3 + HO2 --> HOIPRCO3H ', & - ' HOIPRCO3 + HO2 --> HYPROPO2 + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_159 = (/ & - ' HOIPRCO3 + NO --> HYPROPO2 + NO2 ', & - ' HOIPRCO3 + NO2 --> C4PAN4 ', & - ' HOIPRCO3 + NO3 --> HYPROPO2 + NO2 ', & - ' HOIPRCO3 --> HOIPRCO2H ', & - ' HOIPRCO3 --> HYPROPO2 ', & - ' HO13C5O2 + HO2 --> HO13C5OOH ', & - ' HO13C5O2 + NO --> HO13C5NO3 ', & - ' HO13C5O2 + NO --> HO13C5O + NO2 ', & - ' HO13C5O2 + NO3 --> HO13C5O + NO2 ', & - ' HO13C5O2 --> HO134C5 ', & - ' HO13C5O2 --> HO13C5O ', & - ' HO13C5O2 --> HO13CO4C5 ', & - ' HO3C4CO3 + HO2 --> HO3C4CO3H ', & - ' HO3C4CO3 + HO2 --> HO3C4O2 + OH ', & - ' HO3C4CO3 + NO --> HO3C4O2 + NO2 ', & - ' HO3C4CO3 + NO2 --> C5PAN8 ', & - ' HO3C4CO3 + NO3 --> HO3C4O2 + NO2 ', & - ' HO3C4CO3 --> HO3C4O2 ', & - ' BUT2CO2H + OH --> SC4H9O2 ', & - ' BUT2CO3H --> SC4H9O2 + OH ', & - ' BUT2CO3H + OH --> BUT2CO3 ', & - ' C5PAN4 --> BUT2CO3 + NO2 ', & - ' C5PAN4 + OH --> MEK + CO + NO2 ', & - ' C3ME3CO2H + OH --> IC4H9O2 ', & - ' C3ME3CO3H + OH --> C3ME3CO3 ', & - ' C3ME3CO3H --> IC4H9O2 + OH ', & - ' C3ME3PAN + OH --> IPRCHO + CO + NO2 ', & - ' C3ME3PAN --> C3ME3CO3 + NO2 ', & - ' C3M3CHOOOH + OH --> C3ME3CHOO2 ', & - ' C3M3CHOOOH --> C3ME3CHOO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_160 = (/ & - ' C3M3CHONO3 + OH --> CH3COCH3 + GLYOX + NO2 ', & - ' C3M3CHONO3 --> C3ME3CHOO + NO2 ', & - ' C3M3CHONO3 --> MPRBNO3O2 + CO + HO2 ', & - ' C3ME3CHOO --> CH3COCH3 + HCOCH2O2 ', & - ' IPRGLYOX + NO3 --> IPRCO3 + HNO3 + CO ', & - ' IPRGLYOX + OH --> IPRCO3 + CO ', & - ' IPRGLYOX --> IPRCO3 + CO + HO2 ', & - ' C54O2 + HO2 --> C54OOH ', & - ' C54O2 + NO --> C54NO3 ', & - ' C54O2 + NO --> C54O + NO2 ', & - ' C54O2 + NO3 --> C54O + NO2 ', & - ' C54O2 --> C54O ', & - ' C54O2 --> C54OH ', & - ' C54O2 --> H13C43CHO ', & - ' H2M2C3CO3 + HO2 --> H2M2C3CO3H ', & - ' H2M2C3CO3 + HO2 --> TBUTOLO2 + OH ', & - ' H2M2C3CO3 + NO --> TBUTOLO2 + NO2 ', & - ' H2M2C3CO3 + NO2 --> C5PAN11 ', & - ' H2M2C3CO3 + NO3 --> TBUTOLO2 + NO2 ', & - ' H2M2C3CO3 --> TBUTOLO2 ', & - ' PROL1MCO3 + HO2 --> MEK + OH + HO2 ', & - ' PROL1MCO3 + HO2 --> PROL1MCO3H ', & - ' PROL1MCO3 + NO --> MEK + NO2 + HO2 ', & - ' PROL1MCO3 + NO2 --> PROL1MPAN ', & - ' PROL1MCO3 + NO3 --> MEK + NO2 + HO2 ', & - ' PROL1MCO3 --> MEK + HO2 ', & - ' C56O2 + HO2 --> C56OOH ', & - ' C56O2 + NO --> C56NO3 ', & - ' C56O2 + NO --> C56O + NO2 ', & - ' C56O2 + NO3 --> C56O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_161 = (/ & - ' C56O2 --> C42CHO ', & - ' C56O2 --> C56O ', & - ' C56O2 --> C56OH ', & - ' HO2C43CO3 + HO2 --> BUT2OLO2 + OH ', & - ' HO2C43CO3 + HO2 --> HO2C43CO2H + O3 ', & - ' HO2C43CO3 + HO2 --> HO2C43CO3H ', & - ' HO2C43CO3 + NO --> BUT2OLO2 + NO2 ', & - ' HO2C43CO3 + NO2 --> C5PAN14 ', & - ' HO2C43CO3 + NO3 --> BUT2OLO2 + NO2 ', & - ' HO2C43CO3 --> BUT2OLO2 ', & - ' HO2C43CO3 --> HO2C43CO2H ', & - ' C6DIAL + NO3 --> CHOC4CO3 + HNO3 ', & - ' C6DIAL + OH --> C6DIALO2 ', & - ' C6DIAL + OH --> CHOC4CO3 ', & - ' C6DIAL --> CHOC4O2 + CO + HO2 ', & - ' CYC6DIONE + OH --> CYC6DIONO2 ', & - ' CYC6DIONE --> C4H6 + 2 CO ', & - ' ALLYLOH + OH --> ACR + HO2 ', & - 'MIBKCOOHO2 + HO2 --> MBKCOOHOOH ', & - ' MIBKCOOHO2 + NO --> MIBKCOOHO + NO2 ', & - 'MIBKCOOHO2 + NO3 --> MIBKCOOHO + NO2 ', & - ' MIBKCOOHO2 --> MIBKCOOHO ', & - ' C64O --> CO24C5 + HCHO + HO2 ', & - ' C65O --> CO24C5 + CO + HO2 ', & - ' HOCH2CO2H + OH --> HCHO + HO2 ', & - ' HOCH2CO3H + OH --> HOCH2CO3 ', & - ' HOCH2CO3H --> HCHO + OH + HO2 ', & - ' PHAN + OH --> HCHO + CO + NO2 ', & - ' PHAN --> HOCH2CO3 + NO2 ', & - ' IPROPOLPER + OH --> CH3CHOHCO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_162 = (/ & - ' IPROPOLPER --> CH3CHO + OH + HO2 ', & - ' IPROPOLPAN + OH --> CH3CHO + CO + NO2 ', & - ' IPROPOLPAN --> CH3CHOHCO3 + NO2 ', & - ' C4MCONO3O --> NO3CH2CO3 + CH3COCH3 ', & - ' NC4OHCO3 + HO2 --> IBUTALOH + OH + NO2 ', & - ' NC4OHCO3 + HO2 --> NC4OHCO3H ', & - ' NC4OHCO3 + NO --> IBUTALOH + 2 NO2 ', & - ' NC4OHCO3 + NO2 --> NC4OHCPAN ', & - ' NC4OHCO3 + NO3 --> IBUTALOH + 2 NO2 ', & - ' NC4OHCO3 --> IBUTALOH + NO2 ', & - ' IPRHOCO2H + OH --> CH3COCH3 + HO2 ', & - ' IPRHOCO3H --> CH3COCH3 + OH + HO2 ', & - ' IPRHOCO3H + OH --> IPRHOCO3 ', & - ' C4PAN5 --> IPRHOCO3 + NO2 ', & - ' C4PAN5 + OH --> CH3COCH3 + CO + NO2 ', & - ' MBOCOCO + OH --> IPRHOCO3 + CO ', & - ' MBOCOCO --> IPRHOCO3 + CO + HO2 ', & - ' C4OH2CO3 + HO2 --> C4OH2CO3H ', & - ' C4OH2CO3 + HO2 --> IBUTALOH + OH + HO2 ', & - ' C4OH2CO3 + NO --> IBUTALOH + NO2 + HO2 ', & - ' C4OH2CO3 + NO2 --> C4OH2CPAN ', & - ' C4OH2CO3 + NO3 --> IBUTALOH + NO2 + HO2 ', & - ' C4OH2CO3 --> IBUTALOH + HO2 ', & - ' CO2C3CO3 + HO2 --> CH3COCH2O2 + OH ', & - ' CO2C3CO3 + HO2 --> CO2C3CO3H ', & - ' CO2C3CO3 + NO --> CH3COCH2O2 + NO2 ', & - ' CO2C3CO3 + NO2 --> CO2C3PAN ', & - ' CO2C3CO3 + NO3 --> CH3COCH2O2 + NO2 ', & - ' CO2C3CO3 --> CH3COCH2O2 ', & - ' HO2C3CO3 + HO2 --> HO2C3CO2H + O3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_163 = (/ & - ' HO2C3CO3 + HO2 --> HO2C3CO3H ', & - ' HO2C3CO3 + HO2 --> IPROPOLO2 + OH ', & - ' HO2C3CO3 + NO --> IPROPOLO2 + NO2 ', & - ' HO2C3CO3 + NO2 --> C4PAN3 ', & - ' HO2C3CO3 + NO3 --> IPROPOLO2 + NO2 ', & - ' HO2C3CO3 --> HO2C3CO3H ', & - ' HO2C3CO3 --> IPROPOLO2 ', & - 'IBUDIALCO3 + HO2 --> PROPALO2 + OH ', & - 'IBUDIALCO3 + HO2 --> PRPAL2CO2H + O3 ', & - 'IBUDIALCO3 + HO2 --> PRPAL2CO3H ', & - ' IBUDIALCO3 + NO --> PROPALO2 + NO2 ', & - 'IBUDIALCO3 + NO2 --> IBUDIALPAN ', & - 'IBUDIALCO3 + NO3 --> PROPALO2 + NO2 ', & - ' IBUDIALCO3 --> PROPALO2 ', & - ' IBUDIALCO3 --> PRPAL2CO2H ', & - ' PROPALO2 + HO2 --> PROPALOOH ', & - ' PROPALO2 + NO --> PROPALO + NO2 ', & - ' PROPALO2 + NO3 --> PROPALO + NO2 ', & - ' PROPALO2 --> CH3CHOHCHO ', & - ' PROPALO2 --> MGLYOX ', & - ' PROPALO2 --> PROPALO ', & - ' CO3C4CO3 + HO2 --> CO3C4CO2H + O3 ', & - ' CO3C4CO3 + HO2 --> CO3C4CO3H ', & - ' CO3C4CO3 + HO2 --> MEKCO2 + OH ', & - ' CO3C4CO3 + NO --> MEKCO2 + NO2 ', & - ' CO3C4CO3 + NO2 --> C5PAN16 ', & - ' CO3C4CO3 + NO3 --> MEKCO2 + NO2 ', & - ' CO3C4CO3 --> CO3C4CO2H ', & - ' CO3C4CO3 --> MEKCO2 ', & - ' HO1C4O2 + HO2 --> HO1C4OOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_164 = (/ & - ' HO1C4O2 + NO --> HO1C4NO3 ', & - ' HO1C4O2 + NO --> HO1C4O + NO2 ', & - ' HO1C4O2 + NO3 --> HO1C4O + NO2 ', & - ' HO1C4O2 --> HO1C4O ', & - ' HO1C4O2 --> HOC3H6CHO ', & - ' HO1C4O2 --> HOC4H8OH ', & - ' A2PANOO + HO2 --> A2PANO + OH ', & - ' A2PANOO + HO2 --> C2OHOCO2H + O3 ', & - ' A2PANOO + HO2 --> C2OHOCOOH ', & - ' A2PANOO + NO --> A2PANO + NO2 ', & - ' A2PANOO + NO2 --> A2PAN ', & - ' A2PANOO + NO3 --> A2PANO + NO2 ', & - ' A2PANOO --> A2PANO ', & - ' A2PANOO --> C2OHOCO2H ', & - ' HCOCOHCO3 + HO2 --> GLYOX + OH + HO2 ', & - ' HCOCOHCO3 + HO2 --> HCOCOHCO3H ', & - ' HCOCOHCO3 + NO --> GLYOX + NO2 + HO2 ', & - ' HCOCOHCO3 + NO2 --> HCOCOHPAN ', & - ' HCOCOHCO3 + NO3 --> GLYOX + NO2 + HO2 ', & - ' HCOCOHCO3 --> GLYOX + HO2 ', & - ' NMGLYOX --> HCHO + 2 CO + NO2 + HO2 ', & - ' NMGLYOX --> NO3CH2CO3 + CO + HO2 ', & - ' NMGLYOX + NO3 --> NO3CH2CO3 + HNO3 + CO ', & - ' NMGLYOX + OH --> NO3CH2CO3 + CO ', & - ' HCOCO3 + HO2 --> HCOCO2H + O3 ', & - ' HCOCO3 + HO2 --> HCOCO3H ', & - ' HCOCO3 + HO2 --> OH + CO + HO2 ', & - ' HCOCO3 + NO --> CO + NO2 + HO2 ', & - ' HCOCO3 + NO2 --> CO + HO2 + NO3 ', & - ' HCOCO3 + NO3 --> CO + NO2 + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_165 = (/ & - ' HCOCO3 --> CO + HO2 ', & - ' HCOCO3 --> HCOCO2H ', & - ' HCOCO2H --> CO + 2 HO2 ', & - ' HCOCO2H + OH --> CO + HO2 ', & - ' HMML + OH --> HCOOH + CH3CO3 ', & - ' MAE + OH --> CH3COCH2O2 ', & - ' CONM2CHO + OH --> CONM2CO3 ', & - ' CONM2CHO --> MGLYOX + CO + NO2 + HO2 ', & - ' MACRNCO3 + HO2 --> ACETOL + OH + NO2 ', & - ' MACRNCO3 + HO2 --> MACRNCO2H + O3 ', & - ' MACRNCO3 + HO2 --> MACRNCO3H ', & - ' MACRNCO3 + NO --> ACETOL + 2 NO2 ', & - ' MACRNCO3 + NO2 --> MACRNPAN ', & - ' MACRNCO3 + NO3 --> ACETOL + 2 NO2 ', & - ' MACRNCO3 --> ACETOL + NO2 ', & - ' MACRNCO3 --> MACRNCO2H ', & - ' MACRNBCO3 + HO2 --> MACRNBCO2H + O3 ', & - ' MACRNBCO3 + HO2 --> MACRNBCO3H ', & - ' MACRNBCO3 + HO2 --> NOA + OH + HO2 ', & - ' MACRNBCO3 + NO --> NOA + NO2 + HO2 ', & - ' MACRNBCO3 + NO2 --> MACRNBPAN ', & - ' MACRNBCO3 + NO3 --> NOA + NO2 + HO2 ', & - ' MACRNBCO3 --> MACRNBCO2H ', & - ' MACRNBCO3 --> NOA + HO2 ', & - ' CHOMOHCO3 + HO2 --> CHOMOHCO3H ', & - ' CHOMOHCO3 + HO2 --> MGLYOX + OH + HO2 ', & - ' CHOMOHCO3 + NO --> MGLYOX + NO2 + HO2 ', & - ' CHOMOHCO3 + NO2 --> CHOMOHPAN ', & - ' CHOMOHCO3 + NO3 --> MGLYOX + NO2 + HO2 ', & - ' CHOMOHCO3 --> MGLYOX + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_166 = (/ & - ' C4CO2O --> GLYOX + CH3CO3 ', & - ' C4CO2O --> MGLYOX + CO + HO2 ', & - ' CO2H3CO3 + HO2 --> CO2H3CO3H ', & - ' CO2H3CO3 + HO2 --> MGLYOX + OH + HO2 ', & - ' CO2H3CO3 + NO --> MGLYOX + NO2 + HO2 ', & - ' CO2H3CO3 + NO2 --> C4PAN6 ', & - ' CO2H3CO3 + NO3 --> MGLYOX + NO2 + HO2 ', & - ' CO2H3CO3 --> MGLYOX + HO2 ', & - ' HO1C5O2 + HO2 --> HO1C5OOH ', & - ' HO1C5O2 + NO --> HO1C5NO3 ', & - ' HO1C5O2 + NO --> HO1C5O + NO2 ', & - ' HO1C5O2 + NO3 --> HO1C5O + NO2 ', & - ' HO1C5O2 --> CO2C5OH ', & - ' HO1C5O2 --> HO1C5O ', & - ' HO1C5O2 --> HO2C5OH ', & - ' HO2C5O2 + HO2 --> HO2C5OOH ', & - ' HO2C5O2 + NO --> HO2C5NO3 ', & - ' HO2C5O2 + NO --> HO2C5O + NO2 ', & - ' HO2C5O2 + NO3 --> HO2C5O + NO2 ', & - ' HO2C5O2 --> HO2C4CHO ', & - ' HO2C5O2 --> HO2C5O ', & - ' HO2C5O2 --> HO2C5OH ', & - ' C52O2 + HO2 --> C52OOH ', & - ' C52O2 + NO --> C52NO3 ', & - ' C52O2 + NO --> C52O + NO2 ', & - ' C52O2 + NO3 --> C52O + NO2 ', & - ' C52O2 --> C52O ', & - ' C52O2 --> C52OH ', & - ' C52O2 --> HOIBUTCHO ', & - ' TBUTCO3 + HO2 --> TBUTCO3H ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_167 = (/ & - ' TBUTCO3 + HO2 --> TC4H9O2 + OH ', & - ' TBUTCO3 + NO --> TC4H9O2 + NO2 ', & - ' TBUTCO3 + NO2 --> C5PAN6 ', & - ' TBUTCO3 + NO3 --> TC4H9O2 + NO2 ', & - ' TBUTCO3 --> TC4H9O2 ', & - ' HO1C6O2 + HO2 --> HO1C6OOH ', & - ' HO1C6O2 + NO --> HO1C6NO3 ', & - ' HO1C6O2 + NO --> HO1C6O + NO2 ', & - ' HO1C6O2 + NO3 --> HO1C6O + NO2 ', & - ' HO1C6O2 --> HO14C6 ', & - ' HO1C6O2 --> HO1C6O ', & - ' HO1C6O2 --> HO1CO4C6 ', & - ' C5H11CO3 + HO2 --> C5H11CO3H ', & - ' C5H11CO3 + HO2 --> PEAO2 + OH ', & - ' C5H11CO3 + NO --> PEAO2 + NO2 ', & - ' C5H11CO3 + NO2 --> PHXN ', & - ' C5H11CO3 + NO3 --> PEAO2 + NO2 ', & - ' C5H11CO3 --> PEAO2 ', & - ' HO2C6O2 + HO2 --> HO2C6OOH ', & - ' HO2C6O2 + NO --> HO2C6NO3 ', & - ' HO2C6O2 + NO --> HO2C6O + NO2 ', & - ' HO2C6O2 + NO3 --> HO2C6O + NO2 ', & - ' HO2C6O2 --> HO25C6 ', & - ' HO2C6O2 --> HO2C6O ', & - ' HO2C6O2 --> HO2CO5C6 ', & - ' HO3C6O2 + HO2 --> HO3C6OOH ', & - ' HO3C6O2 + NO --> HO3C6NO3 ', & - ' HO3C6O2 + NO --> HO3C6O + NO2 ', & - ' HO3C6O2 + NO3 --> HO3C6O + NO2 ', & - ' HO3C6O2 --> HO14C6 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_168 = (/ & - ' HO3C6O2 --> HO3C5CHO ', & - ' HO3C6O2 --> HO3C6O ', & - ' HO1MC5O2 + HO2 --> HO1MC5OOH ', & - ' HO1MC5O2 + NO --> HO1MC5NO3 ', & - ' HO1MC5O2 + NO --> HO1MC5O + NO2 ', & - ' HO1MC5O2 + NO3 --> HO1MC5O + NO2 ', & - ' HO1MC5O2 --> CO2MC5OH ', & - ' HO1MC5O2 --> HO14MC5 ', & - ' HO1MC5O2 --> HO1MC5O ', & - ' C54CO3 + HO2 --> C54CO3H ', & - ' C54CO3 + HO2 --> PEBO2 + OH ', & - ' C54CO3 + NO --> PEBO2 + NO2 ', & - ' C54CO3 + NO2 --> C6PAN3 ', & - ' C54CO3 + NO3 --> PEBO2 + NO2 ', & - ' C54CO3 --> PEBO2 ', & - ' HO2MC5O2 + HO2 --> HO2MC5OOH ', & - ' HO2MC5O2 + NO --> HO2MC5NO3 ', & - ' HO2MC5O2 + NO --> HO2MC5O + NO2 ', & - ' HO2MC5O2 + NO3 --> HO2MC5O + NO2 ', & - ' HO2MC5O2 --> HO14MC5 ', & - ' HO2MC5O2 --> HO2C54CHO ', & - ' HO2MC5O2 --> HO2MC5O ', & - ' EIPKAO2 + HO2 --> EIPKAOOH ', & - ' EIPKAO2 + NO --> EIPKAO + NO2 ', & - ' EIPKAO2 + NO3 --> EIPKAO + NO2 ', & - ' EIPKAO2 --> EIPKAO ', & - ' EIPKAO2 --> EIPKAOH ', & - ' EIPKBO2 + HO2 --> EIPKBOOH ', & - ' EIPKBO2 + NO --> EIPKBNO3 ', & - ' EIPKBO2 + NO --> EIPKBO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_169 = (/ & - ' EIPKBO2 + NO3 --> EIPKBO + NO2 ', & - ' EIPKBO2 --> CO3C54CHO ', & - ' EIPKBO2 --> EIPKBO ', & - ' EIPKBO2 --> EIPKBOH ', & - ' HO2M2C5O2 + HO2 --> HO2M2C5OOH ', & - ' HO2M2C5O2 + NO --> HO2M2C5NO3 ', & - ' HO2M2C5O2 + NO --> HO2M2C5O + NO2 ', & - ' HO2M2C5O2 + NO3 --> HO2M2C5O + NO2 ', & - ' HO2M2C5O2 --> H2M2C4CHO ', & - ' HO2M2C5O2 --> HO2M2C5O ', & - ' HO2M2C5O2 --> HO2M2C5OH ', & - ' H1MC5O2 + HO2 --> H1MC5OOH ', & - ' H1MC5O2 + NO --> H1MC5NO3 ', & - ' H1MC5O2 + NO --> H1MC5O + NO2 ', & - ' H1MC5O2 + NO3 --> H1MC5O + NO2 ', & - ' H1MC5O2 --> CO2M3C5OH ', & - ' H1MC5O2 --> H1MC5O ', & - ' H1MC5O2 --> HO14M3C5 ', & - ' M3C4CO3 + HO2 --> IPEAO2 + OH ', & - ' M3C4CO3 + HO2 --> M3C4CO3H ', & - ' M3C4CO3 + NO --> IPEAO2 + NO2 ', & - ' M3C4CO3 + NO2 --> C6PAN10 ', & - ' M3C4CO3 + NO3 --> IPEAO2 + NO2 ', & - ' M3C4CO3 --> IPEAO2 ', & - ' H2MC5O2 + HO2 --> H2MC5OOH ', & - ' H2MC5O2 + NO --> H2MC5NO3 ', & - ' H2MC5O2 + NO --> H2MC5O + NO2 ', & - ' H2MC5O2 + NO3 --> H2MC5O + NO2 ', & - ' H2MC5O2 --> H2M3C4CHO ', & - ' H2MC5O2 --> H2MC5O ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_170 = (/ & - ' H2MC5O2 --> HO14M3C5 ', & - ' M2BKAO2 + HO2 --> M2BKAOOH ', & - ' M2BKAO2 + NO --> M2BKANO3 ', & - ' M2BKAO2 + NO --> M2BKAO + NO2 ', & - ' M2BKAO2 + NO3 --> M2BKAO + NO2 ', & - ' M2BKAO2 --> CO24M3C5 ', & - ' M2BKAO2 --> M2BKAO ', & - ' M2BKAO2 --> M2BKAOH ', & - ' M2BKBO2 + HO2 --> M2BKBOOH ', & - ' M2BKBO2 + NO --> M2BKBO + NO2 ', & - ' M2BKBO2 + NO3 --> M2BKBO + NO2 ', & - ' M2BKBO2 --> M2BKBO ', & - ' M2BKBO2 --> M2BKBOH ', & - ' HM33C4O2 + HO2 --> HM33C4OOH ', & - ' HM33C4O2 + NO --> HM33C4NO3 ', & - ' HM33C4O2 + NO --> HM33C4O + NO2 ', & - ' HM33C4O2 + NO3 --> HM33C4O + NO2 ', & - ' HM33C4O2 --> HM33C3CHO ', & - ' HM33C4O2 --> HM33C4O ', & - ' HM33C4O2 --> HM33C4OH ', & - ' M22C3CO3 + HO2 --> M22C3CO3H ', & - ' M22C3CO3 + HO2 --> NEOPO2 + OH ', & - ' M22C3CO3 + NO --> NEOPO2 + NO2 ', & - ' M22C3CO3 + NO2 --> C6PAN17 ', & - ' M22C3CO3 + NO3 --> NEOPO2 + NO2 ', & - ' M22C3CO3 --> NEOPO2 ', & - ' HM22C4O2 + HO2 --> HM22C4OOH ', & - ' HM22C4O2 + NO --> HM22C4NO3 ', & - ' HM22C4O2 + NO --> HM22C4O + NO2 ', & - ' HM22C4O2 + NO3 --> HM22C4O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_171 = (/ & - ' HM22C4O2 --> HM22C3CHO ', & - ' HM22C4O2 --> HM22C4O ', & - ' HM22C4O2 --> HM33C4OH ', & - ' M33C3CO3 + HO2 --> IPECO2 + OH ', & - ' M33C3CO3 + HO2 --> M33C3CO2H + O3 ', & - ' M33C3CO3 + HO2 --> M33C3CO3H ', & - ' M33C3CO3 + NO --> IPECO2 + NO2 ', & - ' M33C3CO3 + NO2 --> C6PAN15 ', & - ' M33C3CO3 + NO3 --> IPECO2 + NO2 ', & - ' M33C3CO3 --> IPECO2 ', & - ' M33C3CO3 --> M33C3CO2H ', & - ' HM23C4O2 + HO2 --> HM23C4OOH ', & - ' HM23C4O2 + NO --> HM23C4NO3 ', & - ' HM23C4O2 + NO --> HM23C4O + NO2 ', & - ' HM23C4O2 + NO3 --> HM23C4O + NO2 ', & - ' HM23C4O2 --> HM23C4O ', & - ' HM23C4O2 --> HM23C4OH ', & - ' HM23C4O2 --> HM2C43CHO ', & - ' M2C43CO3 + HO2 --> IPEBO2 + OH ', & - ' M2C43CO3 + HO2 --> M2C43CO2H + O3 ', & - ' M2C43CO3 + HO2 --> M2C43CO3H ', & - ' M2C43CO3 + NO --> IPEBO2 + NO2 ', & - ' M2C43CO3 + NO2 --> C6PAN18 ', & - ' M2C43CO3 + NO3 --> IPEBO2 + NO2 ', & - ' M2C43CO3 --> IPEBO2 ', & - ' M2C43CO3 --> M2C43CO2H ', & - ' HO3C76O2 + HO2 --> HO3C76OOH ', & - ' HO3C76O2 + NO --> HO3C76NO3 ', & - ' HO3C76O2 + NO --> HO3C76O + NO2 ', & - ' HO3C76O2 + NO3 --> HO3C76O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_172 = (/ & - ' HO3C76O2 --> HO25C7 ', & - ' HO3C76O2 --> HO3C76O ', & - ' HO3C76O2 --> HO3CO6C7 ', & - ' CO3C75O2 + HO2 --> CO3C75OOH ', & - ' CO3C75O2 + NO --> CO3C75O + NO2 ', & - ' CO3C75O2 + NO3 --> CO3C75O + NO2 ', & - ' CO3C75O2 --> CO3C75O ', & - ' H2M5C65O2 + HO2 --> H2M5C65OOH ', & - ' H2M5C65O2 + NO --> H2M5C65NO3 ', & - ' H2M5C65O2 + NO --> H2M5C65O + NO2 ', & - ' H2M5C65O2 + NO3 --> H2M5C65O + NO2 ', & - ' H2M5C65O2 --> H25M2C6 ', & - ' H2M5C65O2 --> H2M5C65O ', & - ' C75O2 + HO2 --> C75OOH ', & - ' C75O2 + NO --> C75O + NO2 ', & - ' C75O2 + NO3 --> C75O + NO2 ', & - ' C75O2 --> C75O ', & - ' H2M2C65O2 + HO2 --> H2M2C65OOH ', & - ' H2M2C65O2 + NO --> H2M2C65NO3 ', & - ' H2M2C65O2 + NO --> H2M2C65O + NO2 ', & - ' H2M2C65O2 + NO3 --> H2M2C65O + NO2 ', & - ' H2M2C65O2 --> H25M2C6 ', & - ' H2M2C65O2 --> H2M2C65O ', & - ' H2M2C65O2 --> H2M2CO5C6 ', & - ' H2M4C65O2 + HO2 --> H2M4C65OOH ', & - ' H2M4C65O2 + NO --> H2M4C65NO3 ', & - ' H2M4C65O2 + NO --> H2M4C65O + NO2 ', & - ' H2M4C65O2 + NO3 --> H2M4C65O + NO2 ', & - ' H2M4C65O2 --> H25M3C6 ', & - ' H2M4C65O2 --> H2M4C65O ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_173 = (/ & - ' H2M4C65O2 --> H2M4CO5C6 ', & - ' C710O2 + HO2 --> C710OOH ', & - ' C710O2 + NO --> C710O + NO2 ', & - ' C710O2 + NO3 --> C710O + NO2 ', & - ' C710O2 --> C710O ', & - ' H3M3C6O2 + HO2 --> H3M3C6OOH ', & - ' H3M3C6O2 + NO --> H3M3C6NO3 ', & - ' H3M3C6O2 + NO --> H3M3C6O + NO2 ', & - ' H3M3C6O2 + NO3 --> H3M3C6O + NO2 ', & - ' H3M3C6O2 --> H14M4C6 ', & - ' H3M3C6O2 --> H3M3C5CHO ', & - ' H3M3C6O2 --> H3M3C6O ', & - ' HO3C86O2 + HO2 --> HO3C86OOH ', & - ' HO3C86O2 + NO --> HO3C86NO3 ', & - ' HO3C86O2 + NO --> HO3C86O + NO2 ', & - ' HO3C86O2 + NO3 --> HO3C86O + NO2 ', & - ' HO3C86O2 --> HO36C8 ', & - ' HO3C86O2 --> HO3C86O ', & - ' HO3C86O2 --> HO3CO6C8 ', & - ' CO3C85O2 + HO2 --> CO3C85OOH ', & - ' CO3C85O2 + NO --> CO3C85O + NO2 ', & - ' CO3C85O2 + NO3 --> CO3C85O + NO2 ', & - ' CO3C85O2 --> CO3C85O ', & - ' HO3C96O2 + HO2 --> HO3C96OOH ', & - ' HO3C96O2 + NO --> HO3C96NO3 ', & - ' HO3C96O2 + NO --> HO3C96O + NO2 ', & - ' HO3C96O2 + NO3 --> HO3C96O + NO2 ', & - ' HO3C96O2 --> HO36C9 ', & - ' HO3C96O2 --> HO3C96O ', & - ' HO3C96O2 --> HO4CO7C9 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_174 = (/ & - ' C91O2 + HO2 --> C91OOH ', & - ' C91O2 + NO --> C91O + NO2 ', & - ' C91O2 + NO3 --> C91O + NO2 ', & - ' C91O2 --> C91O ', & - ' HO3C106O2 + HO2 --> HO3C106OOH ', & - ' HO3C106O2 + NO --> HO3C106NO3 ', & - ' HO3C106O2 + NO --> HO3C106O + NO2 ', & - ' HO3C106O2 + NO3 --> HO3C106O + NO2 ', & - ' HO3C106O2 --> HO36C10 ', & - ' HO3C106O2 --> HO3C106O ', & - ' HO3C106O2 --> HO5CO8C10 ', & - ' C101O2 + HO2 --> C101OOH ', & - ' C101O2 + NO --> C101O + NO2 ', & - ' C101O2 + NO3 --> C101O + NO2 ', & - ' C101O2 --> C101O ', & - ' HO3C116O2 + HO2 --> HO3C116OOH ', & - ' HO3C116O2 + NO --> HO3C116NO3 ', & - ' HO3C116O2 + NO --> HO3C116O + NO2 ', & - ' HO3C116O2 + NO3 --> HO3C116O + NO2 ', & - ' HO3C116O2 --> HO36C11 ', & - ' HO3C116O2 --> HO3C116O ', & - ' HO3C116O2 --> HO6CO9C11 ', & - ' C111O2 + HO2 --> C111OOH ', & - ' C111O2 + NO --> C111O + NO2 ', & - ' C111O2 + NO3 --> C111O + NO2 ', & - ' C111O2 --> C111O ', & - ' HO3C126O2 + HO2 --> HO3C126OOH ', & - ' HO3C126O2 + NO --> HO3C126NO3 ', & - ' HO3C126O2 + NO --> HO3C126O + NO2 ', & - ' HO3C126O2 + NO3 --> HO3C126O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_175 = (/ & - ' HO3C126O2 --> HO36C12 ', & - ' HO3C126O2 --> HO3C126O ', & - ' HO3C126O2 --> HO7CO10C12 ', & - ' C121O2 + HO2 --> C121OOH ', & - ' C121O2 + NO --> C121O + NO2 ', & - ' C121O2 + NO3 --> C121O + NO2 ', & - ' C121O2 --> C121O ', & - ' CO1C6O2 + HO2 --> CO1C6OOH ', & - ' CO1C6O2 + NO --> CO1C6NO3 ', & - ' CO1C6O2 + NO --> CO1C6O + NO2 ', & - ' CO1C6O2 + NO3 --> CO1C6O + NO2 ', & - ' CO1C6O2 --> C6DIAL ', & - ' CO1C6O2 --> CO1C6O ', & - ' CO1C6O2 --> CO1C6OH ', & - ' NO3CH2CO3 + HO2 --> HCHO + OH + NO2 ', & - ' NO3CH2CO3 + HO2 --> NO3CH2CO2H + O3 ', & - ' NO3CH2CO3 + HO2 --> NO3CH2CO3H ', & - ' NO3CH2CO3 + NO --> HCHO + 2 NO2 ', & - ' NO3CH2CO3 + NO2 --> NO3CH2PAN ', & - ' NO3CH2CO3 + NO3 --> HCHO + 2 NO2 ', & - ' NO3CH2CO3 --> HCHO + NO2 ', & - ' NO3CH2CO3 --> NO3CH2CO2H ', & - ' PRNO3CO3 + HO2 --> CH3CHO + OH + NO2 ', & - ' PRNO3CO3 + HO2 --> PRNO3CO2H + O3 ', & - ' PRNO3CO3 + HO2 --> PRNO3CO3H ', & - ' PRNO3CO3 + NO --> CH3CHO + 2 NO2 ', & - ' PRNO3CO3 + NO2 --> PRNO3PAN ', & - ' PRNO3CO3 + NO3 --> CH3CHO + 2 NO2 ', & - ' PRNO3CO3 --> CH3CHO + NO2 ', & - ' PRNO3CO3 --> PRNO3CO2H ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_176 = (/ & - ' PROPALO --> CH3CHO + CO + HO2 ', & - 'CO3C4NO3O2 + HO2 --> COC4NO3OOH ', & - ' CO3C4NO3O2 + NO --> CO3C4NO3O + NO2 ', & - 'CO3C4NO3O2 + NO3 --> CO3C4NO3O + NO2 ', & - ' CO3C4NO3O2 --> CO23C4NO3 ', & - ' CO3C4NO3O2 --> CO3C4NO3O ', & - ' CO3C4NO3O2 --> CO3C4NO3OH ', & - ' BUTAL2O --> C2H5CHO + CO + HO2 ', & - ' HO3C3CO3 + HO2 --> C2H5CHO + OH + HO2 ', & - ' HO3C3CO3 + HO2 --> HO3C3CO3H ', & - ' HO3C3CO3 + NO --> C2H5CHO + NO2 + HO2 ', & - ' HO3C3CO3 + NO2 --> HO3C3PAN ', & - ' HO3C3CO3 + NO3 --> C2H5CHO + NO2 + HO2 ', & - ' HO3C3CO3 --> C2H5CHO + HO2 ', & - 'MPRBNO3CO3 + HO2 --> CH3COCH3 + OH + NO2 ', & - 'MPRBNO3CO3 + HO2 --> MPRNO3CO2H + O3 ', & - 'MPRBNO3CO3 + HO2 --> MPRNO3CO3H ', & - ' MPRBNO3CO3 + NO --> CH3COCH3 + 2 NO2 ', & - 'MPRBNO3CO3 + NO2 --> MPRBNO3PAN ', & - 'MPRBNO3CO3 + NO3 --> CH3COCH3 + 2 NO2 ', & - ' MPRBNO3CO3 --> CH3COCH3 + NO2 ', & - ' MPRBNO3CO3 --> MPRNO3CO2H ', & - 'C5NO3COAO2 + HO2 --> C5NO3OAOOH ', & - ' C5NO3COAO2 + NO --> C5NO3COAO + NO2 ', & - 'C5NO3COAO2 + NO3 --> C5NO3COAO + NO2 ', & - ' C5NO3COAO2 --> C51NO324CO ', & - ' C5NO3COAO2 --> C5NO3CO4OH ', & - ' C5NO3COAO2 --> C5NO3COAO ', & - ' PEN2ONE1O --> C3H7CO3 + HCHO ', & - ' C4NO3CO3 + HO2 --> C3H7CHO + OH + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_177 = (/ & - ' C4NO3CO3 + HO2 --> C4NO3CO2H + O3 ', & - ' C4NO3CO3 + HO2 --> C4NO3CO3H ', & - ' C4NO3CO3 + NO --> C3H7CHO + 2 NO2 ', & - ' C4NO3CO3 + NO2 --> C4NO3PAN ', & - ' C4NO3CO3 + NO3 --> C3H7CHO + 2 NO2 ', & - ' C4NO3CO3 --> C3H7CHO + NO2 ', & - ' C4NO3CO3 --> C4NO3CO2H ', & - ' C4CHO2O --> C3H7CHO + CO + HO2 ', & - 'C5OH2CO4O2 + HO2 --> C5OHCO4OOH ', & - ' C5OH2CO4O2 + NO --> C5OH2CO4O + NO2 ', & - 'C5OH2CO4O2 + NO3 --> C5OH2CO4O + NO2 ', & - ' C5OH2CO4O2 --> C5OH2CO4O ', & - ' C4OHCO3 + HO2 --> C3H7CHO + OH + HO2 ', & - ' C4OHCO3 + HO2 --> C4OHCO3H ', & - ' C4OHCO3 + NO --> C3H7CHO + NO2 + HO2 ', & - ' C4OHCO3 + NO2 --> C4OHPAN ', & - ' C4OHCO3 + NO3 --> C3H7CHO + NO2 + HO2 ', & - ' C4OHCO3 --> C3H7CHO + HO2 ', & - 'C5NO3CO4O2 + HO2 --> C5NO3O4OOH ', & - ' C5NO3CO4O2 + NO --> C5NO3CO4O + NO2 ', & - 'C5NO3CO4O2 + NO3 --> C5NO3CO4O + NO2 ', & - ' C5NO3CO4O2 --> C5NO3CO4O ', & - 'C5CONO34O2 + HO2 --> C5ONO34OOH ', & - ' C5CONO34O2 + NO --> C5CONO34O + NO2 ', & - 'C5CONO34O2 + NO3 --> C5CONO34O + NO2 ', & - ' C5CONO34O2 --> C5CONO34O ', & - ' C43NO3CO3 + HO2 --> C43NO3CO2H + O3 ', & - ' C43NO3CO3 + HO2 --> C43NO3CO3H ', & - ' C43NO3CO3 + HO2 --> MEK + OH + NO2 ', & - ' C43NO3CO3 + NO --> MEK + 2 NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_178 = (/ & - ' C43NO3CO3 + NO2 --> C43NO3PAN ', & - ' C43NO3CO3 + NO3 --> MEK + 2 NO2 ', & - ' C43NO3CO3 --> C43NO3CO2H ', & - ' C43NO3CO3 --> MEK + NO2 ', & - ' C42CHO2O --> MEK + CO + HO2 ', & - 'C4MCONO3O2 + HO2 --> C5CONO3OOH ', & - ' C4MCONO3O2 + NO --> C4MCONO3O + NO2 ', & - 'C4MCONO3O2 + NO3 --> C4MCONO3O + NO2 ', & - ' C4MCONO3O2 --> C4MCONO3O ', & - ' C4MCONO3O2 --> C4MCONO3OH ', & - ' IPRCOMO --> IPRCO3 + HCHO ', & - ' C3MNO3CO3 + HO2 --> C3MNO3CO2H + O3 ', & - ' C3MNO3CO3 + HO2 --> C3MNO3CO3H ', & - ' C3MNO3CO3 + HO2 --> IPRCHO + OH + NO2 ', & - ' C3MNO3CO3 + NO --> IPRCHO + 2 NO2 ', & - ' C3MNO3CO3 + NO2 --> C3MNO3PAN ', & - ' C3MNO3CO3 + NO3 --> IPRCHO + NO2 ', & - ' C3MNO3CO3 --> C3MNO3CO2H ', & - ' C3MNO3CO3 --> IPRCHO + NO2 ', & - ' M3BUTAL2O --> IPRCHO + CO + HO2 ', & - 'C3M3OH2CO3 + HO2 --> C3M3OHCO3H ', & - 'C3M3OH2CO3 + HO2 --> IPRCHO + OH + HO2 ', & - ' C3M3OH2CO3 + NO --> IPRCHO + NO2 + HO2 ', & - 'C3M3OH2CO3 + NO2 --> C3M3OH2PAN ', & - 'C3M3OH2CO3 + NO3 --> IPRCHO + NO2 + HO2 ', & - ' C3M3OH2CO3 --> IPRCHO + HO2 ', & - 'MC4CONO3O2 + HO2 --> C4MCNO3OOH ', & - ' MC4CONO3O2 + NO --> MC4CONO3O + NO2 ', & - 'MC4CONO3O2 + NO3 --> MC4CONO3O + NO2 ', & - ' MC4CONO3O2 --> MC4CONO3O ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_179 = (/ & - 'C65NO36CO3 + HO2 --> C4H9CHO + OH + NO2 ', & - 'C65NO36CO3 + HO2 --> C65NO3CO2H + O3 ', & - 'C65NO36CO3 + HO2 --> C65NO3CO3H ', & - ' C65NO36CO3 + NO --> C4H9CHO + 2 NO2 ', & - 'C65NO36CO3 + NO2 --> C65NO3PAN ', & - 'C65NO36CO3 + NO3 --> C4H9CHO + 2 NO2 ', & - ' C65NO36CO3 --> C4H9CHO + NO2 ', & - ' C65NO36CO3 --> C65NO3CO2H ', & - 'MNO3COC4O2 + HO2 --> C6NO3COOOH ', & - ' MNO3COC4O2 + NO --> MNO3COC4O + NO2 ', & - 'MNO3COC4O2 + NO3 --> MNO3COC4O + NO2 ', & - ' MNO3COC4O2 --> C6NO324CO ', & - ' MNO3COC4O2 --> C6NO3CO4OH ', & - ' MNO3COC4O2 --> MNO3COC4O ', & - 'C4COMOH3O2 + HO2 --> C4COMOHOOH ', & - ' C4COMOH3O2 + NO --> C4COMOH3O + NO2 ', & - 'C4COMOH3O2 + NO3 --> C4COMOH3O + NO2 ', & - ' C4COMOH3O2 --> C4COMOH3O ', & - ' C4COMOH3O2 --> C4COMOH3OH ', & - ' C4COMOH3O2 --> HO1CO24C6 ', & - ' HO5C5CO3 + HO2 --> C4H9CHO + OH + HO2 ', & - ' HO5C5CO3 + HO2 --> HO5C5CO3H ', & - ' HO5C5CO3 + NO --> C4H9CHO + NO2 + HO2 ', & - ' HO5C5CO3 + NO2 --> C6PAN23 ', & - ' HO5C5CO3 + NO3 --> C4H9CHO + NO2 + HO2 ', & - ' HO5C5CO3 --> C4H9CHO + HO2 ', & - 'C6NO3CO5O2 + HO2 --> C6CONO3OOH ', & - ' C6NO3CO5O2 + NO --> C6NO3CO5O + NO2 ', & - 'C6NO3CO5O2 + NO3 --> C6NO3CO5O + NO2 ', & - ' C6NO3CO5O2 --> C62NO335CO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_180 = (/ & - ' C6NO3CO5O2 --> C6NO3CO5O ', & - ' C6NO3CO5O2 --> C6NO3CO5OH ', & - 'C6CONO34O2 + HO2 --> CONO3C6OOH ', & - ' C6CONO34O2 + NO --> C6CONO34O + NO2 ', & - 'C6CONO34O2 + NO3 --> C6CONO34O + NO2 ', & - ' C6CONO34O2 --> C64NO335CO ', & - ' C6CONO34O2 --> C6CONO34O ', & - ' C6CONO34O2 --> C6CONO34OH ', & - ' BZFUONE + NO3 --> NBZFUO2 ', & - ' BZFUONE + O3 --> BZFUONOOA ', & - ' BZFUONE + OH --> BZFUO2 ', & - 'MALDIALCO3 + HO2 --> MALDALCO2H + O3 ', & - 'MALDIALCO3 + HO2 --> MALDALCO3H ', & - 'MALDIALCO3 + HO2 --> MALDIALCO2 + OH ', & - ' MALDIALCO3 + NO --> MALDIALCO2 + NO2 ', & - 'MALDIALCO3 + NO2 --> MALDIALPAN ', & - 'MALDIALCO3 + NO3 --> MALDIALCO2 + NO2 ', & - ' MALDIALCO3 --> MALDALCO2H ', & - ' MALDIALCO3 --> MALDIALCO2 ', & - ' BZEMUCCO2H + OH --> C5DIALO2 ', & - ' BZEMUCCO2H --> C5DIALO2 + HO2 ', & - ' BZEMUCCO3H + OH --> BZEMUCCO3 ', & - ' BZEMUCCO3H --> C5DIALO2 + OH ', & - ' BZEMUCPAN + OH --> MALDIAL + CO + NO2 ', & - ' BZEMUCPAN --> BZEMUCCO3 + NO2 ', & - ' EPXDLCO3 + HO2 --> C3DIALO2 + OH ', & - ' EPXDLCO3 + HO2 --> EPXDLCO2H + O3 ', & - ' EPXDLCO3 + HO2 --> EPXDLCO3H ', & - ' EPXDLCO3 + NO --> C3DIALO2 + NO2 ', & - ' EPXDLCO3 + NO2 --> EPXDLPAN ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_181 = (/ & - ' EPXDLCO3 + NO3 --> C3DIALO2 + NO2 ', & - ' EPXDLCO3 --> C3DIALO2 ', & - ' EPXDLCO3 --> EPXDLCO2H ', & - ' C3DIALO2 + HO2 --> C3DIALOOH ', & - ' C3DIALO2 + NO --> C3DIALO + NO2 ', & - ' C3DIALO2 + NO3 --> C3DIALO + NO2 ', & - ' C3DIALO2 --> C32OH13CO ', & - ' C3DIALO2 --> C33CO ', & - ' C3DIALO2 --> C3DIALO ', & - ' BZEMUCOOH + OH --> BZEMUCCO + OH ', & - ' BZEMUCOOH --> BZEMUCO + OH ', & - ' BZEMUCNO3 + OH --> BZEMUCCO + NO2 ', & - ' BZEMUCNO3 --> EPXC4DIAL + GLYOX + NO2 + HO2 ', & - ' BZEMUCO --> C32OH13CO + C3DIALO2 ', & - ' BZEMUCO --> EPXC4DIAL + GLYOX + HO2 ', & - ' BZEMUCCO + OH --> EPXDLCO3 + GLYOX ', & - ' BZEMUCCO --> C3DIALO2 + HCOCOHCO3 ', & - ' BZEMUCOH + OH --> BZEMUCCO + HO2 ', & - ' BZEMUCOH --> BZEMUCO + HO2 ', & - ' C5DIALOOH + OH --> C5DIALCO + OH ', & - ' C5DIALOOH --> C5DIALO + OH ', & - ' C5DIALOOH --> MALDIAL + OH + CO + HO2 ', & - ' C5DIALO --> MALDIAL + CO + HO2 ', & - ' C5DIALCO + OH --> MALDIALCO3 + CO ', & - ' C5DIALCO --> MALDIALCO3 + CO + HO2 ', & - ' C5DIALOH + OH --> C5DIALCO + HO2 ', & - ' C5DIALOH --> MALDIAL + CO + 2 HO2 ', & - ' MALDIALO2 + HO2 --> MALDIALOOH ', & - ' MALDIALO2 + NO --> MALDIALO + NO2 ', & - ' MALDIALO2 + NO3 --> MALDIALO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_182 = (/ & - ' MALDIALO2 --> HOCOC4DIAL ', & - ' MALDIALO2 --> HOHOC4DIAL ', & - ' MALDIALO2 --> MALDIALO ', & - ' HOC6H4NO2 + NO3 --> NPHEN1O + HNO3 ', & - ' HOC6H4NO2 + OH --> NPHEN1O ', & - ' NPHENOOH + OH --> NPHENO2 ', & - ' NPHENOOH --> MALDALCO2H + GLYOX + OH + NO2 ', & - ' NPHENOOH --> NPHENO + OH ', & - ' NPHENO --> MALDALCO2H + GLYOX + NO2 ', & - ' NPHENOH + OH --> NPHENO ', & - ' NPHENOH --> MALDALCO2H + GLYOX + NO2 + HO2 ', & - ' CATEC1O + NO2 --> NCATECHOL ', & - ' CATEC1O + O3 --> CATEC1O2 ', & - ' CATECOOA --> MALDALCO2H + HCOCO2H + OH + HO2 ', & - ' PHENOOH + OH --> PHENO2 ', & - ' PHENOOH --> PHENO + OH ', & - ' PHENO --> MALDALCO2H + GLYOX + HO2 ', & - ' PHENO --> PBZQONE + HO2 ', & - ' PHENOH + OH --> PHENO ', & - ' CRESOOH + OH --> CRESO2 ', & - ' CRESOOH --> CRESO + OH ', & - ' CRESO --> C5CO14OH + GLYOX + HO2 ', & - ' CRESO --> PTLQONE + HO2 ', & - ' CRESOH + OH --> CRESO ', & - ' NCRESOOH + OH --> NCRESO2 ', & - ' NCRESOOH --> CRESO + OH + NO2 ', & - ' NCRESOOH --> NCRESO + OH ', & - ' NCRESO --> C5CO14OH + GLYOX + NO2 ', & - ' NCRESOH + OH --> NCRESO ', & - ' NCRESOH --> CRESO + NO2 + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_183 = (/ & - ' TOL1OHNO2 + NO3 --> NCRES1O + HNO3 ', & - ' TOL1OHNO2 + OH --> NCRES1O ', & - ' OXYL1O2 + HO2 --> OXYL1OOH ', & - ' OXYL1O2 + NO --> TOL1O + NO2 ', & - ' OXYL1O2 + NO3 --> TOL1O + NO2 ', & - ' OXYL1O2 --> TOL1O ', & - ' MCATEC1O + NO2 --> MNCATECH ', & - ' MCATEC1O + O3 --> MCATEC1O2 ', & - ' MCATECOOA --> MC3ODBCO2H + HCOCO2H + OH + HO2 ', & - ' C4MDIAL + NO3 --> C3MCODBCO3 + HNO3 ', & - ' C4MDIAL + NO3 --> MC3CODBCO3 + HNO3 ', & - ' C4MDIAL + O3 --> MGLYOOA + GLYOX ', & - ' C4MDIAL + O3 --> GLYOOC + MGLYOX ', & - ' C4MDIAL + OH --> C3MCODBCO3 ', & - ' C4MDIAL + OH --> C4M2ALOHO2 ', & - ' C4MDIAL + OH --> MC3CODBCO3 ', & - ' C4MDIAL --> C3MCODBCO3 + CO + HO2 ', & - ' C4MDIAL --> MC3CODBCO3 + CO + HO2 ', & - ' C4MDIAL --> PXYFUONE ', & - ' C5DICARB + NO3 --> C5CO14O2 + HNO3 ', & - ' C5DICARB + O3 --> MGLOOB + GLYOX ', & - ' C5DICARB + O3 --> GLYOOA + MGLYOX ', & - ' C5DICARB + OH --> C5CO14O2 ', & - ' C5DICARB + OH --> C5DICARBO2 ', & - ' C5DICARB --> C5CO14O2 + HO2 ', & - ' C5DICARB --> TLFUONE ', & - ' TLFUONE + NO3 --> NTLFUO2 ', & - ' TLFUONE + O3 --> TLFUONOOA ', & - ' TLFUONE + OH --> TLFUO2 ', & - ' C5CO14O2 + HO2 --> C5CO14CO2 + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_184 = (/ & - ' C5CO14O2 + HO2 --> C5CO14OH + O3 ', & - ' C5CO14O2 + HO2 --> C5CO14OOH ', & - ' C5CO14O2 + NO --> C5CO14CO2 + NO2 ', & - ' C5CO14O2 + NO2 --> C5COO2NO2 ', & - ' C5CO14O2 + NO3 --> C5CO14CO2 + NO2 ', & - ' C5CO14O2 --> C5CO14CO2 ', & - ' C5CO14O2 --> C5CO14OH ', & - ' TLEMUCCO2H + OH --> C615CO2O2 ', & - ' TLEMUCCO2H --> C615CO2O2 + HO2 ', & - ' TLEMUCCO3H + OH --> TLEMUCCO3 ', & - ' TLEMUCCO3H --> C615CO2O2 + OH ', & - ' TLEMUCPAN + OH --> C5DICARB + CO + NO2 ', & - ' TLEMUCPAN --> TLEMUCCO3 + NO2 ', & - ' MGLOO + CO --> MGLYOX ', & - ' MGLOO + NO --> MGLYOX + NO2 ', & - ' MGLOO + NO2 --> MGLYOX + NO3 ', & - ' MGLOO + SO2 --> SO3 + MGLYOX ', & - ' MGLOO --> CH3COCO2H ', & - ' MGLOO --> H2O2 + MGLYOX ', & - ' TLEMUCOOH + OH --> TLEMUCCO + OH ', & - ' TLEMUCOOH --> TLEMUCO + OH ', & - ' TLEMUCNO3 + OH --> TLEMUCCO + NO2 ', & - ' TLEMUCNO3 --> EPXC4DIAL + CH3CO3 + CO + NO2 + HO2 ', & - ' TLEMUCO --> C3DIALO2 + CO2H3CHO ', & - ' TLEMUCO --> EPXC4DIAL + MGLYOX + HO2 ', & - ' TLEMUCCO + OH --> EPXC4DIAL + CH3CO3 + CO ', & - ' TLEMUCCO --> EPXC4DIAL + CH3CO3 + CO + HO2 ', & - ' TLEMUCOH + OH --> TLEMUCCO + HO2 ', & - ' TLEMUCOH --> TLEMUCO + HO2 ', & - ' C615CO2OOH + OH --> C6125CO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_185 = (/ & - ' C615CO2OOH --> C5DICARB + OH + CO + HO2 ', & - ' C615CO2OOH --> C615CO2O + OH ', & - ' C615CO2O --> C5DICARB + CO + HO2 ', & - ' C6125CO + OH --> C5CO14O2 + CO ', & - ' C6125CO --> C5CO14O2 + CO + HO2 ', & - ' C615CO2OH + OH --> C6125CO + HO2 ', & - ' C615CO2OH --> C5DICARB + CO + 2 HO2 ', & - ' OXYLCO3 + HO2 --> OXYL1O2 + OH ', & - ' OXYLCO3 + HO2 --> OXYLCO2H + O3 ', & - ' OXYLCO3 + HO2 --> OXYLCO3H ', & - ' OXYLCO3 + NO --> OXYL1O2 + NO2 ', & - ' OXYLCO3 + NO2 --> OXYLPAN ', & - ' OXYLCO3 + NO3 --> OXYL1O2 + NO2 ', & - ' OXYLCO3 --> OXYL1O2 ', & - ' OXYLCO3 --> OXYLCO2H ', & - ' TLCOBIPEOH + OH --> MALDIALCO3 + MGLYOX ', & - ' TLCOBIPEOH --> MALDIALCO3 + MGLYOX + HO2 ', & - ' MC5DICARB + NO3 --> MC4CODBCO3 + HNO3 ', & - ' MC5DICARB + O3 --> GLYOOC + BIACET ', & - ' MC5DICARB + O3 --> MEK2OOA + GLYOX ', & - ' MC5DICARB + OH --> MC4CODBCO3 ', & - ' MC5DICARB + OH --> MC5CO2OHO2 ', & - ' MC5DICARB --> MC4CODBCO3 + HO2 ', & - ' MC5DICARB --> TMB1FUONE ', & - ' OXYFUONE + NO3 --> NOXYFUO2 ', & - ' OXYFUONE + O3 --> C6OTKETO2 + OH ', & - ' OXYFUONE + OH --> OXYFUO2 ', & - ' OXYMUCCO2H + OH --> MC6CO2O2 ', & - ' OXYMUCCO2H --> MC6CO2O2 + HO2 ', & - ' OXYMUCCO3H + OH --> OXYMUCCO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_186 = (/ & - ' OXYMUCCO3H --> MC6CO2O2 + OH ', & - ' OXYMUCPAN + OH --> C5DICARB + CH3O2 + CO + NO2 ', & - ' OXYMUCPAN --> OXYMUCCO3 + NO2 ', & - 'EPXM2DLCO3 + HO2 --> C4MCO2O2 + OH ', & - 'EPXM2DLCO3 + HO2 --> EPXM2DCO2H + O3 ', & - 'EPXM2DLCO3 + HO2 --> EPXM2DCO3H ', & - ' EPXM2DLCO3 + NO --> C4MCO2O2 + NO2 ', & - 'EPXM2DLCO3 + NO2 --> EPXM2DLPAN ', & - 'EPXM2DLCO3 + NO3 --> C4MCO2O2 + NO2 ', & - ' EPXM2DLCO3 --> C4MCO2O2 ', & - ' EPXM2DLCO3 --> EPXM2DCO2H ', & - ' C4MCO2O2 + HO2 --> C4MCO2OOH ', & - ' C4MCO2O2 + NO --> C4MCO2O + NO2 ', & - ' C4MCO2O2 + NO3 --> C4MCO2O + NO2 ', & - ' C4MCO2O2 --> C4MCO2O ', & - ' OXYMUCOOH + OH --> OXYMUCCO + OH ', & - ' OXYMUCOOH --> OXYMUCO + OH ', & - ' OXYMUCNO3 + OH --> OXYMUCCO + NO2 ', & - ' OXYMUCNO3 --> EPXM2C4DAL + 2 CO + NO2 + 2 HO2 ', & - ' OXYMUCO --> C32OH13CO + C4MCO2O2 ', & - ' OXYMUCO --> EPXM2C4DAL + GLYOX + HO2 ', & - ' OXYMUCCO + OH --> EPXM2C4DAL + CO + HO2 ', & - ' OXYMUCCO --> EPXM2C4DAL + 2 CO + 2 HO2 ', & - ' OXYMUCOH + OH --> OXYMUCCO + HO2 ', & - ' OXYMUCOH --> OXYMUCO + HO2 ', & - ' MC6CO2OOH + OH --> MC6CO2O2 ', & - ' MC6CO2OOH --> C4MCO2OOH + 2 CO + 2 HO2 ', & - ' MC6CO2OOH --> C5DICARB + CH3CO3 + OH ', & - ' MC6CO2OOH --> MC6CO2O + OH ', & - ' MC6CO2O --> C5DICARB + CH3CO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_187 = (/ & - ' MC6CO2OH + OH --> C5DICARB + CH3CO3 ', & - ' MC6CO2OH --> C4MCO2OH + 2 CO + 2 HO2 ', & - ' MC6CO2OH --> C5DICARB + CH3CO3 + HO2 ', & - ' NOXYOLOOH + OH --> NOXYOLO2 ', & - ' NOXYOLOOH --> NOXYOLO + OH ', & - ' NOXYOLOOH --> OXYOLO + OH + NO2 ', & - ' NOXYOLO --> C5DBCOCO2H + GLYOX + NO2 ', & - ' NOXYOLOH + OH --> NOXYOLO ', & - ' NOXYOLOH --> OXYOLO + NO2 + HO2 ', & - ' OXY1OHNO2 + NO3 --> NOXYOL1O + HNO3 ', & - ' OXY1OHNO2 + OH --> NOXYOL1O ', & - ' DM123O2 + HO2 --> DM123OOH ', & - ' DM123O2 + NO --> OXY1O + NO2 ', & - ' DM123O2 + NO3 --> OXY1O + NO2 ', & - ' DM123O2 --> OXY1O ', & - ' OXYOLOOH + OH --> OXYOLO2 ', & - ' OXYOLOOH --> OXYOLO + OH ', & - ' OXYOLO --> C5DBCOCO2H + GLYOX + HO2 ', & - ' OXYOLO --> OXYQONE + HO2 ', & - ' OXYOLOH + OH --> OXYOLO ', & - ' OXCATEC1O + NO2 --> OXNCATECH ', & - ' OXCATEC1O + O3 --> OXCATEC1O2 ', & - ' OXCATECOOA --> C5CO14OH + CH3COCO2H + OH + HO2 ', & - ' MXYLCO3 + HO2 --> MXYL1O2 + OH ', & - ' MXYLCO3 + HO2 --> MXYLCO2H + O3 ', & - ' MXYLCO3 + HO2 --> MXYLCO3H ', & - ' MXYLCO3 + NO --> MXYL1O2 + NO2 ', & - ' MXYLCO3 + NO2 --> MXYLPAN ', & - ' MXYLCO3 + NO3 --> MXYL1O2 + NO2 ', & - ' MXYLCO3 --> MXYL1O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_188 = (/ & - ' MXYLCO3 --> MXYLCO2H ', & - ' MXYL1O2 + HO2 --> MXYL1OOH ', & - ' MXYL1O2 + NO --> MXYL1O + NO2 ', & - ' MXYL1O2 + NO3 --> MXYL1O + NO2 ', & - ' MXYL1O2 --> MXYL1O ', & - ' C5MDICARB + NO3 --> C4MCODBCO3 + HNO3 ', & - ' C5MDICARB + O3 --> MGLOOC + MGLYOX ', & - ' C5MDICARB + O3 --> MGLYOOA + MGLYOX ', & - ' C5MDICARB + OH --> C4MCODBCO3 ', & - ' C5MDICARB + OH --> C5MCO2OHO2 ', & - ' C5MDICARB --> C4MCODBCO3 + HO2 ', & - ' C5MDICARB --> MXYFUONE ', & - ' MXYFUONE + NO3 --> NMXYFUO2 ', & - ' MXYFUONE + O3 --> C23O3MO2 + OH + CO ', & - ' MXYFUONE + OH --> MXYFUO2 ', & - ' PXYFUONE + NO3 --> NPXYFUO2 ', & - ' PXYFUONE + O3 --> MCOCOMOXO2 + OH + CO ', & - ' PXYFUONE + OH --> PXYFUO2 ', & - 'C3MCODBCO3 + HO2 --> C3MCODBCO2 + OH ', & - 'C3MCODBCO3 + HO2 --> C4CODBCO3H ', & - ' C3MCODBCO3 + NO --> C3MCODBCO2 + NO2 ', & - 'C3MCODBCO3 + NO2 --> C3MCODBPAN ', & - 'C3MCODBCO3 + NO3 --> C3MCODBCO2 + NO2 ', & - ' C3MCODBCO3 --> C3MCODBCO2 ', & - ' MXYMUCCO2H + OH --> C726CO5O2 ', & - ' MXYMUCCO2H --> C726CO5O2 + HO2 ', & - ' MXYMUCCO3H + OH --> MXYMUCCO3 ', & - ' MXYMUCCO3H --> C726CO5O2 + OH ', & - ' MXYMUCPAN + OH --> C5DICARB + CH3O2 + CO + NO2 ', & - ' MXYMUCPAN --> MXYMUCCO3 + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_189 = (/ & - ' EPXMDLCO3 + HO2 --> C3MDIALO2 + OH ', & - ' EPXMDLCO3 + HO2 --> EPXMDLCO2H + O3 ', & - ' EPXMDLCO3 + HO2 --> EPXMDLCO3H ', & - ' EPXMDLCO3 + NO --> C3MDIALO2 + NO2 ', & - ' EPXMDLCO3 + NO2 --> EPXMDLPAN ', & - ' EPXMDLCO3 + NO3 --> C3MDIALO2 + NO2 ', & - ' EPXMDLCO3 --> C3MDIALO2 ', & - ' EPXMDLCO3 --> EPXMDLCO2H ', & - ' C3MDIALO2 + HO2 --> C3MDIALOOH ', & - ' C3MDIALO2 + NO --> C3MDIALO + NO2 ', & - ' C3MDIALO2 + NO3 --> C3MDIALO + NO2 ', & - ' C3MDIALO2 --> C3MDIALO ', & - ' C3MDIALO2 --> C3MDIALOH ', & - ' MXYMUCOOH + OH --> MXYMUCCO + OH ', & - ' MXYMUCOOH --> MXYMUCO + OH ', & - ' MXYMUCNO3 + OH --> MXYMUCCO + NO2 ', & - ' MXYMUCNO3 --> EPXMC4DIAL + CH3CO3 + CO + NO2 + HO2 ', & - ' MXYMUCO --> C3MDIALO2 + CO2H3CHO ', & - ' MXYMUCO --> EPXMC4DIAL + MGLYOX + HO2 ', & - ' MXYMUCCO + OH --> EPXMC4DIAL + CH3CO3 + CO ', & - ' MXYMUCCO --> EPXMC4DIAL + CH3CO3 + CO + HO2 ', & - ' MXYMUCOH + OH --> MXYMUCCO + HO2 ', & - ' MXYMUCOH --> MXYMUCO + HO2 ', & - ' C726CO5OOH + OH --> C7236CO + OH ', & - ' C726CO5OOH --> C726CO5O + OH ', & - ' C726CO5O --> C5DICARB + CH3CO3 ', & - ' C7236CO + OH --> C5CO14O2 + CH3CO3 ', & - ' C7236CO --> C5CO14O2 + CH3CO3 ', & - ' C726CO3OH + OH --> C7236CO + HO2 ', & - ' C726CO3OH --> C5DICARB + CH3CO3 + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_190 = (/ & - ' MXY1OHNO2 + NO3 --> NMXYOL1O + HNO3 ', & - ' MXY1OHNO2 + OH --> NMXYOL1O ', & - ' MXY1O2 + HO2 --> MXY1OOH ', & - ' MXY1O2 + NO --> MXY1O + NO2 ', & - ' MXY1O2 + NO3 --> MXY1O + NO2 ', & - ' MXY1O2 --> MXY1O ', & - ' MXYOLOOH + OH --> MXYOLO2 ', & - ' MXYOLOOH --> MXYOLO + OH ', & - ' MXYOLO --> C5CO14OH + MGLYOX + HO2 ', & - ' MXYOLO --> MXYQONE + HO2 ', & - ' MXYOLOH + OH --> MXYOLO ', & - ' NMXYOLOOH + OH --> NMXYOLO2 ', & - ' NMXYOLOOH --> MXYOLO + OH + NO2 ', & - ' NMXYOLOOH --> NMXYOLO + OH ', & - ' NMXYOLO --> C5CO14OH + MGLYOX + NO2 ', & - ' NMXYOLOH + OH --> NMXYOLO ', & - ' NMXYOLOH --> MXYOLO + NO2 + HO2 ', & - ' MXCATEC1O + NO2 --> MXNCATECH ', & - ' MXCATEC1O + O3 --> MXCATEC1O2 ', & - ' MXCATECOOA --> C3MCOCO2H + CH3COCO2H + OH + HO2 ', & - ' PXYLCO3 + HO2 --> PXYL1O2 + OH ', & - ' PXYLCO3 + HO2 --> PXYLCO2H + O3 ', & - ' PXYLCO3 + HO2 --> PXYLCO3H ', & - ' PXYLCO3 + NO --> PXYL1O2 + NO2 ', & - ' PXYLCO3 + NO2 --> PXYLPAN ', & - ' PXYLCO3 + NO3 --> PXYL1O2 + NO2 ', & - ' PXYLCO3 --> PXYL1O2 ', & - ' PXYLCO3 --> PXYLCO2H ', & - ' PXYL1O2 + HO2 --> PXYL1OOH ', & - ' PXYL1O2 + NO --> PXYL1O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_191 = (/ & - ' PXYL1O2 + NO3 --> PXYL1O + NO2 ', & - ' PXYL1O2 --> PXYL1O ', & - ' C4DBDIKET + O3 --> MGLOOB + MGLYOX ', & - ' C4DBDIKET + OH --> DMKOHO2 ', & - ' C4DBDIKET --> MGLYOX + CH3CO3 + CO + HO2 ', & - ' PXYMUCCO2H + OH --> C6M5CO2O2 ', & - ' PXYMUCCO2H --> C6M5CO2O2 + HO2 ', & - ' PXYMUCCO3H + OH --> PXYMUCCO3 ', & - ' PXYMUCCO3H --> C6M5CO2O2 + OH ', & - ' PXYMUCPAN + OH --> C4DBDIKET + CO + NO2 ', & - ' PXYMUCPAN --> PXYMUCCO3 + NO2 ', & - ' PXYMUCOOH + OH --> PXYMUCCO + OH ', & - ' PXYMUCOOH --> PXYMUCO + OH ', & - ' PXYMUCNO3 + OH --> PXYMUCCO + NO2 ', & - ' PXYMUCNO3 --> EPXMC4DIAL + CH3CO3 + CO + NO2 + HO2 ', & - ' PXYMUCO --> C4CO2O2 + CO2H3CHO ', & - ' PXYMUCO --> EPXMC4DIAL + MGLYOX + HO2 ', & - ' PXYMUCCO + OH --> EPXMC4DIAL + CH3CO3 + CO ', & - ' PXYMUCCO --> EPXMC4DIAL + CH3CO3 + CO + HO2 ', & - ' PXYMUCOH + OH --> PXYMUCCO + HO2 ', & - ' PXYMUCOH --> PXYMUCO + HO2 ', & - ' C6M5CO2OOH + OH --> C6M5CO2O2 ', & - ' C6M5CO2OOH --> C3MDIALOOH + CH3CO3 + CO + HO2 ', & - ' C6M5CO2OOH --> C6M5CO2O + OH ', & - ' C6M5CO2OOH --> C4DBDIKET + OH + CO + HO2 ', & - ' C6M5CO2O --> C4DBDIKET + CO + HO2 ', & - ' C6M5CO2OH + OH --> C6M5CO2O ', & - ' C6M5CO2OH --> C3MDIALOH + CH3CO3 + CO + HO2 ', & - ' C6M5CO2OH --> C4DBDIKET + CO + 2 HO2 ', & - ' NPXYOLOOH + OH --> NPXYOLO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_192 = (/ & - ' NPXYOLOOH --> NPXYOLO + OH ', & - ' NPXYOLOOH --> PXYOLO + OH + NO2 ', & - ' NPXYOLO --> C3MCOCO2H + MGLYOX + NO2 ', & - ' NPXYOLOH + OH --> NPXYOLO ', & - ' NPXYOLOH --> PXYOLO + NO2 + HO2 ', & - ' PXY1OHNO2 + NO3 --> NPXYOL1O + HNO3 ', & - ' PXY1OHNO2 + OH --> NPXYOL1O ', & - ' PXY1O2 + HO2 --> PXY1OOH ', & - ' PXY1O2 + NO --> PXY1O + NO2 ', & - ' PXY1O2 + NO3 --> PXY1O + NO2 ', & - ' PXY1O2 --> PXY1O ', & - ' PXYOLOOH + OH --> PXYOLO2 ', & - ' PXYOLOOH --> PXYOLO + OH ', & - ' PXYOLO --> C3MCOCO2H + MGLYOX + HO2 ', & - ' PXYOLO --> PXYQONE + HO2 ', & - ' PXYOLOH + OH --> PXYOLO ', & - ' PXCATEC1O + NO2 --> PXNCATECH ', & - ' PXCATEC1O + O3 --> PXCATEC1O2 ', & - ' PXCATECOOA --> MC3ODBCO2H + CH3COCO2H + OH + HO2 ', & - 'C6H5CH2CO3 + HO2 --> C6H5C2CO2H + O3 ', & - 'C6H5CH2CO3 + HO2 --> C6H5C2CO3H ', & - 'C6H5CH2CO3 + HO2 --> C6H5CH2O2 + OH ', & - ' C6H5CH2CO3 + NO --> C6H5CH2O2 + NO2 ', & - 'C6H5CH2CO3 + NO2 --> C6H5CH2PAN ', & - 'C6H5CH2CO3 + NO3 --> C6H5CH2O2 + NO2 ', & - ' C6H5CH2CO3 --> C6H5C2CO2H ', & - ' C6H5CH2CO3 --> C6H5CH2O2 ', & - ' EBNZOHNO2 + NO3 --> NEBNZ1O + HNO3 ', & - ' EBNZOHNO2 + OH --> NEBNZ1O ', & - ' EBENZO2 + HO2 --> EBENZOOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_193 = (/ & - ' EBENZO2 + NO --> EBENZO + NO2 ', & - ' EBENZO2 + NO3 --> EBENZO + NO2 ', & - ' EBENZO2 --> EBENZO ', & - ' EBENZOLOOH + OH --> EBENZOLO2 ', & - ' EBENZOLOOH --> EBENZOLO + OH ', & - ' EBENZOLO --> C6DCRBBOH + GLYOX + HO2 ', & - ' EBENZOLO --> PEBQONE + HO2 ', & - ' EBENZOLOH + OH --> EBENZOLO ', & - ' NEBNZOLOOH + OH --> NEBNZOLO2 ', & - ' NEBNZOLOOH --> EBENZOLO + OH + NO2 ', & - ' NEBNZOLOOH --> NEBNZOLO + OH ', & - ' NEBNZOLO --> C6DCRBBOH + GLYOX + NO2 ', & - ' NEBNZOLOH + OH --> NEBNZOLO ', & - ' NEBNZOLOH --> EBENZOLO + NO2 + HO2 ', & - ' ECATEC1O + NO2 --> ENCATECH ', & - ' ECATEC1O + O3 --> ECATEC1O2 ', & - ' ECATECOOA --> RGDCO2H + HCOCO2H + OH + HO2 ', & - ' C6DICARB + NO3 --> C6DCARBBO2 + HNO3 ', & - ' C6DICARB + O3 --> GLYOOA + EGLYOX ', & - ' C6DICARB + O3 --> EGLYOOB + GLYOX ', & - ' C6DICARB + OH --> C6DCARBBO2 ', & - ' C6DICARB + OH --> C6DICARBO2 ', & - ' C6DICARB --> C6DCARBBO2 + CO + HO2 ', & - ' C6DICARB --> EBFUONE ', & - ' EBFUONE + NO3 --> NEBFUO2 ', & - ' EBFUONE + O3 --> BUTALAO2 + OH + CO ', & - ' EBFUONE + OH --> EBFUO2 ', & - 'C6DCARBBO2 + HO2 --> C6DCARBBO + OH ', & - 'C6DCARBBO2 + HO2 --> C6DCRBBOH + O3 ', & - 'C6DCARBBO2 + HO2 --> C6DCRBBOOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_194 = (/ & - ' C6DCARBBO2 + NO --> C6DCARBBO + NO2 ', & - 'C6DCARBBO2 + NO2 --> C6DCARBPAN ', & - 'C6DCARBBO2 + NO3 --> C6DCARBBO + NO2 ', & - ' C6DCARBBO2 --> C6DCARBBO ', & - ' C6DCARBBO2 --> C6DCRBBOH ', & - ' EBZMUCCO2H + OH --> C715CO2O2 ', & - ' EBZMUCCO2H --> C715CO2O2 + HO2 ', & - ' EBZMUCCO3H + OH --> EBZMUCCO3 ', & - ' EBZMUCCO3H --> C715CO2O2 + OH ', & - ' EBZMUCPAN + OH --> C6DICARB + CO + NO2 ', & - ' EBZMUCPAN --> EBZMUCCO3 + NO2 ', & - ' EGLYOO + CO --> EGLYOX ', & - ' EGLYOO + NO --> EGLYOX + NO2 ', & - ' EGLYOO + NO2 --> EGLYOX + NO3 ', & - ' EGLYOO + SO2 --> SO3 + EGLYOX ', & - ' EGLYOO --> ECOCO2H ', & - ' EGLYOO --> H2O2 + EGLYOX ', & - ' EBZMUCOOH + OH --> EBZMUCCO + OH ', & - ' EBZMUCOOH --> EBZMUCO + OH ', & - ' EBZMUCNO3 + OH --> EBZMUCCO + NO2 ', & - ' EBZMUCNO3 --> EPXC4DIAL + C2H5CO3 + CO + NO2 + HO2 ', & - ' EBZMUCO --> CO3H4CHO + C3DIALO2 ', & - ' EBZMUCO --> EPXC4DIAL + EGLYOX + HO2 ', & - ' EBZMUCCO + OH --> EPXC4DIAL + C2H5CO3 + CO ', & - ' EBZMUCCO --> EPXC4DIAL + C2H5CO3 + CO + HO2 ', & - ' EBZMUCOH + OH --> EBZMUCCO + HO2 ', & - ' EBZMUCOH --> EBZMUCO + HO2 ', & - ' C715CO2OOH + OH --> C7CO2DBAL + OH ', & - ' C715CO2OOH --> C6DICARB + OH + CO + HO2 ', & - ' C715CO2OOH --> C715CO2O + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_195 = (/ & - ' C715CO2O --> C6DICARB + CO + HO2 ', & - ' C715CO2OH + OH --> C7CO2DBAL + HO2 ', & - ' C715CO2OH --> C6DICARB + CO + 2 HO2 ', & - ' C7CO2DBAL + OH --> C7CO3OHO2 ', & - ' C7CO2DBAL --> C6DCARBBO2 + CO + HO2 ', & - ' PHCOETO2 + HO2 --> PHCOETOOH ', & - ' PHCOETO2 + NO --> PHCOETO + NO2 ', & - ' PHCOETO2 + NO3 --> PHCOETO + NO2 ', & - ' PHCOETO2 --> PHCOCOME ', & - ' PHCOETO2 --> PHCOETO ', & - ' PHCOETO2 --> PHCOETOH ', & - ' NPBNZOLOOH + OH --> NPBNZOLO2 ', & - ' NPBNZOLOOH --> NPBNZOLO + OH ', & - ' NPBNZOLOOH --> PBENZOLO + OH + NO2 ', & - ' NPBNZOLO --> C7DCCO2H + GLYOX + NO2 ', & - ' NPBNZOLOH + OH --> NPBNZOLO ', & - ' NPBNZOLOH --> PBENZOLO + NO2 + HO2 ', & - ' PBNZOHNO2 + NO3 --> NPBNZ1O + HNO3 ', & - ' PBNZOHNO2 + OH --> NPBNZ1O ', & - ' PBENZO2 + HO2 --> PBENZOOH ', & - ' PBENZO2 + NO --> PBENZO + NO2 ', & - ' PBENZO2 + NO3 --> PBENZO + NO2 ', & - ' PBENZO2 --> PBENZO ', & - ' PBENZOLOOH + OH --> PBENZOLO2 ', & - ' PBENZOLOOH --> PBENZOLO + OH ', & - ' PBENZOLO --> C7DCCO2H + GLYOX + HO2 ', & - ' PBENZOLO --> PPRBQONE + HO2 ', & - ' PBENZOLOH + OH --> PBENZOLO ', & - ' PCATEC1O + NO2 --> PNCATECH ', & - ' PCATEC1O + O3 --> PCATEC1O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_196 = (/ & - ' PCATECOOA --> PC3ODBCO2H + HCOCO2H + OH + HO2 ', & - ' PGLYOX + NO3 --> C3H7CO3 + HNO3 + CO ', & - ' PGLYOX + OH --> C3H7CO3 + CO ', & - ' PGLYOX --> C3H7CO3 + CO + HO2 ', & - ' C7DICARB + NO3 --> C7DCCO3 + HNO3 ', & - ' C7DICARB + O3 --> PGLOOB + GLYOX ', & - ' C7DICARB + O3 --> GLYOOA + PGLYOX ', & - ' C7DICARB + OH --> C7DCCO3 ', & - ' C7DICARB + OH --> C7DCO2 ', & - ' C7DICARB --> C7DCCO3 + HO2 ', & - ' C7DICARB --> PBFUONE ', & - ' PBFUONE + NO3 --> NPBFUO2 ', & - ' PBFUONE + O3 --> C4CHOAO2 + OH + CO ', & - ' PBFUONE + OH --> PBFUO2 ', & - ' C7DCCO3 + HO2 --> C7DCCO2 + OH ', & - ' C7DCCO3 + HO2 --> C7DCCO2H + O3 ', & - ' C7DCCO3 + HO2 --> C7DCCO3H ', & - ' C7DCCO3 + NO --> C7DCCO2 + NO2 ', & - ' C7DCCO3 + NO2 --> C7DCPAN ', & - ' C7DCCO3 + NO3 --> C7DCCO2 + NO2 ', & - ' C7DCCO3 --> C7DCCO2 ', & - ' C7DCCO3 --> C7DCCO2H ', & - ' PBZMUCCO2H + OH --> C815CO2O2 ', & - ' PBZMUCCO2H --> C815CO2O2 + HO2 ', & - ' PBZMUCCO3H + OH --> PBZMUCCO3 ', & - ' PBZMUCCO3H --> C815CO2O2 + OH ', & - ' PBZMUCPAN + OH --> C7DICARB + CO + NO2 ', & - ' PBZMUCPAN --> PBZMUCCO3 + NO2 ', & - ' PGLOO + CO --> PGLYOX ', & - ' PGLOO + NO --> PGLYOX + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_197 = (/ & - ' PGLOO + NO2 --> PGLYOX + NO3 ', & - ' PGLOO + SO2 --> SO3 + PGLYOX ', & - ' PGLOO --> PGLYOX + H2O2 ', & - ' PGLOO --> PGLYOXOH ', & - ' PBZMUCOOH + OH --> PBZMUCCO + OH ', & - ' PBZMUCOOH --> PBZMUCO + OH ', & - ' PBZMUCNO3 + OH --> PBZMUCCO + NO2 ', & - ' PBZMUCNO3 --> EPXC4DIAL + C3H7CO3 + CO + NO2 + HO2 ', & - ' PBZMUCO --> C6O132OH + C3DIALO2 ', & - ' PBZMUCO --> EPXC4DIAL + PGLYOX + HO2 ', & - ' PBZMUCCO + OH --> EPXC4DIAL + C3H7CO3 + CO ', & - ' PBZMUCCO --> EPXC4DIAL + C3H7CO3 + CO + HO2 ', & - ' PBZMUCOH + OH --> PBZMUCCO + HO2 ', & - ' PBZMUCOH --> PBZMUCO + HO2 ', & - ' C815CO2OOH + OH --> C8CO2DBAL + OH ', & - ' C815CO2OOH --> C7DICARB + OH + CO + HO2 ', & - ' C815CO2OOH --> C815CO2O + OH ', & - ' C815CO2O --> C7DICARB + CO + HO2 ', & - ' C815CO2OH + OH --> C8CO2DBAL + HO2 ', & - ' C815CO2OH --> C7DICARB + CO + 2 HO2 ', & - ' C8CO2DBAL + OH --> C8CO3OHO2 ', & - ' C8CO2DBAL --> C7DCCO3 + CO + HO2 ', & - ' PHCOME + OH --> PHCOMEO2 ', & - ' PHCOME --> C6H5CO3 + CH3O2 ', & - 'IPBNZOHNO2 + NO3 --> NIPBNZ1O + HNO3 ', & - ' IPBNZOHNO2 + OH --> NIPBNZ1O ', & - ' IPBENZO2 + HO2 --> IPBENZOOH ', & - ' IPBENZO2 + NO --> IPBENZO + NO2 ', & - ' IPBENZO2 + NO3 --> IPBENZO + NO2 ', & - ' IPBENZO2 --> IPBENZO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_198 = (/ & - ' IPBZOLOOH + OH --> IPBENZOLO2 ', & - ' IPBZOLOOH --> IPBENZOLO + OH ', & - ' IPBENZOLO --> IC7DCCO2H + GLYOX + HO2 ', & - ' IPBENZOLO --> IPRBQONE + HO2 ', & - ' IPBENZOLOH + OH --> IPBENZOLO ', & - ' NIPBZOLOOH + OH --> NIPBNZOLO2 ', & - ' NIPBZOLOOH --> IPBENZOLO + OH + NO2 ', & - ' NIPBZOLOOH --> NIPBNZOLO + OH ', & - ' NIPBNZOLO --> IC7DCCO2H + GLYOX + NO2 ', & - ' NIPBNZOLOH + OH --> NIPBNZOLO ', & - ' NIPBNZOLOH --> IPBENZOLO + NO2 + HO2 ', & - ' IPCATEC1O + NO2 --> IPNCATECH ', & - ' IPCATEC1O + O3 --> IPCATEC1O2 ', & - ' IPCATECOOA --> IP3ODBCO2H + HCOCO2H + OH + HO2 ', & - ' IC7DICARB + NO3 --> IC7DCCO3 + HNO3 ', & - ' IC7DICARB + O3 --> IPGLOOB + GLYOX ', & - ' IC7DICARB + O3 --> GLYOOA + IPRGLYOX ', & - ' IC7DICARB + OH --> IC7DCCO3 ', & - ' IC7DICARB + OH --> IC7DCO2 ', & - ' IC7DICARB --> IC7DCCO3 + HO2 ', & - ' IC7DICARB --> IPBFUONE ', & - ' IC7DICARB --> IPRCO3 + GLYOX + CO + HO2 ', & - ' IPBFUONE + NO3 --> NIPBFUO2 ', & - ' IPBFUONE + O3 --> IC4CHOAO2 + OH + CO ', & - ' IPBFUONE + OH --> IPBFUO2 ', & - ' IC7DCCO3 + HO2 --> IC7DCCO2 + OH ', & - ' IC7DCCO3 + HO2 --> IC7DCCO2H + O3 ', & - ' IC7DCCO3 + HO2 --> IC7DCCO3H ', & - ' IC7DCCO3 + NO --> IC7DCCO2 + NO2 ', & - ' IC7DCCO3 + NO2 --> IC7DCPAN ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_199 = (/ & - ' IC7DCCO3 + NO3 --> IC7DCCO2 + NO2 ', & - ' IC7DCCO3 --> IC7DCCO2 ', & - ' IC7DCCO3 --> IC7DCCO2H ', & - ' IPBZMUCO2H + OH --> C7M15CO2O2 ', & - ' IPBZMUCO2H --> C7M15CO2O2 + HO2 ', & - ' IPBZMUCO3H + OH --> IPBZMUCCO3 ', & - ' IPBZMUCO3H --> C7M15CO2O2 + OH ', & - ' IPBZMUCPAN + OH --> IC7DICARB + CO + NO2 ', & - ' IPBZMUCPAN --> IPBZMUCCO3 + NO2 ', & - ' IPGLOO + CO --> IPRGLYOX ', & - ' IPGLOO + NO --> IPRGLYOX + NO2 ', & - ' IPGLOO + NO2 --> IPRGLYOX + NO3 ', & - ' IPGLOO + SO2 --> SO3 + IPRGLYOX ', & - ' IPGLOO --> IPGLYOXOH ', & - ' IPGLOO --> IPRGLYOX + H2O2 ', & - ' IPBZMUCOOH + OH --> IPBZMUCCO + OH ', & - ' IPBZMUCOOH --> IPBZMUCO + OH ', & - ' IPBZMUCNO3 + OH --> IPBZMUCCO + NO2 ', & - ' IPBZMUCNO3 --> EPXC4DIAL + IPRCO3 + CO + NO2 + HO2 ', & - ' IPBZMUCO --> C5MO132OH + C3DIALO2 ', & - ' IPBZMUCO --> EPXC4DIAL + IPRGLYOX + HO2 ', & - ' IPBZMUCCO + OH --> EPXC4DIAL + IPRCO3 + CO ', & - ' IPBZMUCCO --> EPXC4DIAL + IPRCO3 + CO + HO2 ', & - ' IPBZMUCOH + OH --> IPBZMUCCO + HO2 ', & - ' IPBZMUCOH --> IPBZMUCO + HO2 ', & - ' C7MCO2OOH + OH --> C7MCO2DBAL + OH ', & - ' C7MCO2OOH --> C7M15CO2O + OH ', & - ' C7MCO2OOH --> IC7DICARB + OH + CO + HO2 ', & - ' C7M15CO2O --> IC7DICARB + CO + HO2 ', & - ' C7M15CO2OH + OH --> C7MCO2DBAL + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_200 = (/ & - ' C7M15CO2OH --> IC7DICARB + CO + 2 HO2 ', & - ' C7MCO2DBAL + OH --> C7MCO3OHO2 ', & - ' C7MCO2DBAL --> IC7DCCO3 + CO + HO2 ', & - ' TM123BCO3 + HO2 --> DM123O2 + OH ', & - ' TM123BCO3 + HO2 --> TM123BCO2H + O3 ', & - ' TM123BCO3 + HO2 --> TM123BCO3H ', & - ' TM123BCO3 + NO --> DM123O2 + NO2 ', & - ' TM123BCO3 + NO2 --> TM123BPAN ', & - ' TM123BCO3 + NO3 --> DM123O2 + NO2 ', & - ' TM123BCO3 --> DM123O2 ', & - ' TM123BCO3 --> TM123BCO2H ', & - ' NTM123LOOH + OH --> NTM123OLO2 ', & - ' NTM123LOOH --> NTM123OLO + OH ', & - ' NTM123LOOH --> TM123OLO + OH + NO2 ', & - ' NTM123OLO --> C7ADCCO2H + GLYOX + NO2 ', & - ' NTM123OLOH + OH --> NTM123OLO ', & - ' NTM123OLOH --> TM123OLO + NO2 + HO2 ', & - 'TM123OHNO2 + NO3 --> NT123L1O + HNO3 ', & - ' TM123OHNO2 + OH --> NT123L1O ', & - ' TM123O2 + HO2 --> TM123OOH ', & - ' TM123O2 + NO --> TM123O + NO2 ', & - ' TM123O2 + NO3 --> TM123O + NO2 ', & - ' TM123O2 --> TM123O ', & - ' TM123OLOOH + OH --> TM123OLO2 ', & - ' TM123OLOOH --> TM123OLO + OH ', & - ' TM123OLO --> C7ADCCO2H + GLYOX + HO2 ', & - ' TM123OLOH + OH --> TM123OLO ', & - ' T123CAT1O + NO2 --> T123NCATEC ', & - ' T123CAT1O + O3 --> T123CAT1O2 ', & - ' T123CTCOOA --> C5DBCOCO2H + CH3COCO2H + OH + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_201 = (/ & - ' C7ADICARB + NO3 --> C7ADCCO3 + HNO3 ', & - ' C7ADICARB + OH --> C7ADCCO3 ', & - ' C7ADICARB + OH --> C7ADCO2 ', & - ' C7ADICARB --> C7ADCCO3 + HO2 ', & - ' C7ADICARB --> TMB2FUONE ', & - ' TMB1FUONE + NO3 --> NTMB1FUO2 ', & - ' TMB1FUONE + O3 --> C5OCO3M ', & - ' TMB1FUONE + OH --> TMB1FUO2 ', & - ' TMB2FUONE + NO3 --> NTMB2FUO2 ', & - ' TMB2FUONE + O3 --> MC6OTKETO2 + OH ', & - ' TMB2FUONE + OH --> TMB2FUO2 ', & - ' EPXKTMCO3 + HO2 --> C4MCO2O2 + OH ', & - ' EPXKTMCO3 + HO2 --> EPXKTMCO2H + O3 ', & - ' EPXKTMCO3 + HO2 --> EPXKTMCO3H ', & - ' EPXKTMCO3 + NO --> C4MCO2O2 + NO2 ', & - ' EPXKTMCO3 + NO2 --> EPXKTMPAN ', & - ' EPXKTMCO3 + NO3 --> C4MCO2O2 + NO2 ', & - ' EPXKTMCO3 --> C4MCO2O2 ', & - ' EPXKTMCO3 --> EPXKTMCO2H ', & - ' C4CO2O2 + HO2 --> C4CO2OOH ', & - ' C4CO2O2 + NO --> C4CO2O + NO2 ', & - ' C4CO2O2 + NO3 --> C4CO2O + NO2 ', & - ' C4CO2O2 --> C4CO2O ', & - ' TM123MUOOH + OH --> TM123MUCCO + OH ', & - ' TM123MUOOH --> TM123MUCO + OH ', & - ' TM123MUCO --> C4MCO2O2 + CO2H3CHO ', & - ' TM123MUCO --> EPXALMKT + MGLYOX + HO2 ', & - ' TM123MUNO3 + OH --> TM123MUCCO + NO2 ', & - ' TM123MUNO3 --> EPXALMKT + MGLYOX + NO2 + HO2 ', & - ' TM123MUCCO + OH --> EPXKTMCO3 + MGLYOX ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_202 = (/ & - ' TM123MUCCO --> C4MCO2O2 + CO2H3CO3 ', & - ' TM123MUCCO --> EPXKTMCO3 + MGLYOX + HO2 ', & - ' TM123MUCOH + OH --> TM123MUCCO + HO2 ', & - ' TM123MUCOH --> TM123MUCO + HO2 ', & - ' TM124BCO3 + HO2 --> DM124O2 + OH ', & - ' TM124BCO3 + HO2 --> TM124BCO2H + O3 ', & - ' TM124BCO3 + HO2 --> TM124BCO3H ', & - ' TM124BCO3 + NO --> DM124O2 + NO2 ', & - ' TM124BCO3 + NO2 --> TM124BPAN ', & - ' TM124BCO3 + NO3 --> DM124O2 + NO2 ', & - ' TM124BCO3 --> DM124O2 ', & - ' TM124BCO3 --> TM124BCO2H ', & - ' DM124O2 + HO2 --> DM124OOH ', & - ' DM124O2 + NO --> DM124O + NO2 ', & - ' DM124O2 + NO3 --> DM124O2 + NO2 ', & - ' DM124O2 --> DM124O ', & - ' C7BDICARB + O3 --> MGLOOC + BIACET ', & - ' C7BDICARB + O3 --> MEK2OOC + MGLYOX ', & - ' C7BDICARB + OH --> C7BDCO2 ', & - ' C7BDICARB --> BIACET + CH3CO3 + CO + HO2 ', & - ' C7BDICARB --> MGLYOX + 2 CH3CO3 ', & - ' NTM124LOOH + OH --> NTM124OLO2 ', & - ' NTM124LOOH --> NTM124OLO + OH ', & - ' NTM124LOOH --> TM124OLO + OH + NO2 ', & - ' NTM124OLO --> C3M2COCO2H + MGLYOX + NO2 ', & - ' NTM124OLOH + OH --> NTM124OLO ', & - ' NTM124OLOH --> TM124OLO + NO2 + HO2 ', & - 'TM124OHNO2 + NO3 --> NT124L1O + HNO3 ', & - ' TM124OHNO2 + OH --> NT124L1O ', & - ' TM124O2 + HO2 --> TM124OOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_203 = (/ & - ' TM124O2 + NO --> TM124O + NO2 ', & - ' TM124O2 + NO3 --> TM124O + NO2 ', & - ' TM124O2 --> TM124O ', & - ' TM124OLOOH + OH --> TM124OLO2 ', & - ' TM124OLOOH --> TM124OLO + OH ', & - ' TM124OLO --> C3M2COCO2H + MGLYOX + HO2 ', & - ' TM124OLO --> TM124QONE + HO2 ', & - ' TM124OLOH + OH --> TM124OLO ', & - ' T124CAT1O + NO2 --> T124NCATEC ', & - ' T124CAT1O + O3 --> T124CAT1O2 ', & - ' T124CTCOOA --> CH3COCO2H + C5CODBCO2H + OH + HO2 ', & - ' TM124MUO2H + OH --> C7CO2M5O2 ', & - ' TM124MUO2H --> EPXM2DCO2H + CH3CO3 + CO + HO2 ', & - ' TM124MUO3H + OH --> TM124MUCO3 ', & - ' TM124MUO3H --> C7CO2M5O2 + OH ', & - ' TM124MUO3H --> EPXM2DCO3H + CH3CO3 + CO + HO2 ', & - ' TM124MUPAN + OH --> C4DBDIKET + CH3O2 + CO + NO2 ', & - ' TM124MUPAN --> TM124MUCO3 + NO2 ', & - ' TM124MUOOH + OH --> TM124MUCCO + OH ', & - ' TM124MUOOH --> TM124MUCO + OH ', & - ' TM124MUCO --> C4MCO2O2 + CO2H3CHO ', & - ' TM124MUCO --> EPXM2C4DAL + MGLYOX + HO2 ', & - ' TM124MUNO3 + OH --> TM124MUCCO + NO2 ', & - ' TM124MUNO3 --> EPXM2C4DAL + MGLYOX + NO2 + HO2 ', & - ' TM124MUCCO + OH --> EPXM2DLCO3 + MGLYOX ', & - ' TM124MUCCO --> C4MCO2O2 + CO2H3CO3 ', & - ' TM124MUCOH + OH --> TM124MUCCO + HO2 ', & - ' TM124MUCOH --> TM124MUCO + HO2 ', & - ' C7CO2M5OOH + OH --> C7CO2M5O2 ', & - ' C7CO2M5OOH --> C4MCO2OOH + CH3CO3 + CO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_204 = (/ & - ' C7CO2M5OOH --> C7CO2M5O + OH ', & - ' C7CO2M5OOH --> C4DBDIKET + CH3CO3 + OH ', & - ' C7CO2M5O --> C4DBDIKET + CH3CO3 ', & - ' C7CO2M5OH + OH --> C7CO2M5O ', & - ' C7CO2M5OH --> C4MCO2OH + CH3CO3 + CO + HO2 ', & - ' C7CO2M5OH --> C4DBDIKET + CH3CO3 + HO2 ', & - ' TMBCO3 + HO2 --> DMPHO2 + OH ', & - ' TMBCO3 + HO2 --> TMBCO2H + O3 ', & - ' TMBCO3 + HO2 --> TMBCO3H ', & - ' TMBCO3 + NO --> DMPHO2 + NO2 ', & - ' TMBCO3 + NO2 --> TMBPAN ', & - ' TMBCO3 + NO3 --> DMPHO2 + NO2 ', & - ' TMBCO3 --> DMPHO2 ', & - ' TMBCO3 --> TMBCO2H ', & - ' DMPHO2 + HO2 --> DMPHOOH ', & - ' DMPHO2 + NO --> DMPHO + NO2 ', & - ' DMPHO2 + NO3 --> DMPHO + NO2 ', & - ' DMPHO2 --> DMPHO ', & - 'C4MCODBCO3 + HO2 --> C4MCODBCO2 + OH ', & - 'C4MCODBCO3 + HO2 --> C5CODBCO3H ', & - ' C4MCODBCO3 + NO --> C4MCODBCO2 + NO2 ', & - 'C4MCODBCO3 + NO2 --> C4MCODBPAN ', & - 'C4MCODBCO3 + NO3 --> C4MCODBCO2 + NO2 ', & - ' C4MCODBCO3 --> C4MCODBCO2 ', & - ' C4MCODBCO3 --> C5CODBCO2H ', & - ' NTM135LOOH + OH --> NTM135OLO2 ', & - ' NTM135LOOH --> NTM135OLO + OH ', & - ' NTM135LOOH --> TM135OLO + OH + NO2 ', & - ' NTM135OLO --> C5CODBCO2H + MGLYOX + NO2 ', & - ' NTM135OLOH + OH --> NTM135OLO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_205 = (/ & - ' NTM135OLOH --> TM135OLO + NO2 + HO2 ', & - ' TM135OLOOH + OH --> TM135OLO2 ', & - ' TM135OLOOH --> TM135OLO + OH ', & - ' TM135OLO --> C5CODBCO2H + MGLYOX + HO2 ', & - ' TM135OLOH + OH --> TM135OLO ', & - ' TM135MUO2H + OH --> C7M2CO5O2 ', & - ' TM135MUO2H --> C7M2CO5O2 + HO2 ', & - ' TM135MUO3H + OH --> TM135MUCO3 ', & - ' TM135MUO3H --> C7M2CO5O2 + OH ', & - ' TM135MUPAN + OH --> C5MDICARB + CH3O2 + CO + NO2 ', & - ' TM135MUPAN --> TM135MUCO3 + NO2 ', & - ' EPXMKTCO3 + HO2 --> CO24C53O2 + OH ', & - ' EPXMKTCO3 + HO2 --> EPXMKTCO2H + O3 ', & - ' EPXMKTCO3 + HO2 --> EPXMKTCO3H ', & - ' EPXMKTCO3 + NO --> CO24C53O2 + NO2 ', & - ' EPXMKTCO3 + NO2 --> EPXMKTPAN ', & - ' EPXMKTCO3 + NO3 --> CO24C53O2 + NO2 ', & - ' EPXMKTCO3 --> CO24C53O2 ', & - ' EPXMKTCO3 --> EPXMKTCO2H ', & - ' CO24C53O2 + HO2 --> CO24C53OOH ', & - ' CO24C53O2 + NO --> CO24C53O + NO2 ', & - ' CO24C53O2 + NO3 --> CO24C53O + NO2 ', & - ' CO24C53O2 --> CO24C53O ', & - ' TM135MUOOH + OH --> TM135MUCO2 ', & - ' TM135MUOOH --> TM135MUCO + OH ', & - ' TM135MUCO --> C5CO243OH + C3MDIALO2 ', & - ' TM135MUCO --> EPXMALKT + MGLYOX + HO2 ', & - ' TM135MUNO3 + OH --> C5CO243OH + C3MDIALO2 + NO2 ', & - ' TM135MUNO3 --> EPXMALKT + MGLYOX + NO2 + HO2 ', & - ' TM135MUOH + OH --> TM135MUCO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_206 = (/ & - ' TM135MUOH --> TM135MUCO + HO2 ', & - ' C7M2CO5OOH + OH --> C7M3CO + OH ', & - ' C7M2CO5OOH --> C5MDICARB + CH3CO3 + OH ', & - ' C7M2CO5OOH --> C7M2CO5O + OH ', & - ' C7M2CO5OOH --> CO24C53OOH + CH3CO3 + CO + HO2 ', & - ' C7M2CO5O --> C5MDICARB + CH3CO3 ', & - ' C7M2CO5OH + OH --> C7M3CO + HO2 ', & - ' C7M2CO5OH --> C5MDICARB + CH3CO3 + HO2 ', & - ' C7M3CO + OH --> C4MCODBCO3 + CH3CO3 ', & - ' C7M3CO --> C5CO234 + CH3CO3 + CO + HO2 ', & - ' C7M3CO --> C4MCODBCO3 + CH3CO3 ', & - ' MPHCOMEO2 + HO2 --> MPHCOMEOOH ', & - ' MPHCOMEO2 + NO --> MPHCOMEO + NO2 ', & - ' MPHCOMEO2 + NO3 --> MPHCOMEO + NO2 ', & - ' MPHCOMEO2 --> MPHCOMEO ', & - ' MPHCOMEO2 --> MPHCOMEOH ', & - ' MPHCOMEO2 --> MPHGLYOX ', & - ' OETLMUCO2H + OH --> MC7CO2O2 ', & - ' OETLMUCO2H --> MC7CO2O2 + HO2 ', & - ' OETLMUCO3H + OH --> OETLMUCCO3 ', & - ' OETLMUCO3H --> MC7CO2O2 + OH ', & - ' OETLMUCPAN + OH --> C5DICARB + C2H5CHO + NO2 ', & - ' OETLMUCPAN --> OETLMUCCO3 + NO2 ', & - 'EPXMEDLCO3 + HO2 --> C4ECO2O2 + OH ', & - 'EPXMEDLCO3 + HO2 --> EPXMEDCO2H + O3 ', & - 'EPXMEDLCO3 + HO2 --> EPXMEDCO3H ', & - ' EPXMEDLCO3 + NO --> C4ECO2O2 + NO2 ', & - 'EPXMEDLCO3 + NO2 --> EPXMEDLPAN ', & - 'EPXMEDLCO3 + NO3 --> C4ECO2O2 + NO2 ', & - ' EPXMEDLCO3 --> C4ECO2O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_207 = (/ & - ' EPXMEDLCO3 --> EPXMEDCO2H ', & - ' C4ECO2O2 + HO2 --> C4ECO2OOH ', & - ' C4ECO2O2 + NO --> C4ECO2O + NO2 ', & - ' C4ECO2O2 + NO3 --> C4ECO2O + NO2 ', & - ' C4ECO2O2 --> C4ECO2O ', & - ' OETLMUCOOH + OH --> OETLMUCCO + OH ', & - ' OETLMUCOOH --> OETLMUCO + OH ', & - ' OETLMUCNO3 + OH --> OETLMUCCO + NO2 ', & - ' OETLMUCNO3 --> EPXMEC4DAL + CO + NO2 + 2 HO2 ', & - ' OETLMUCO --> C32OH13CO + C4ECO2O2 ', & - ' OETLMUCO --> EPXMEC4DAL + GLYOX + HO2 ', & - ' OETLMUCCO + OH --> EPXMEC4DAL + CO + HO2 ', & - ' OETLMUCCO --> EPXMEC4DAL + 2 CO + 2 HO2 ', & - ' OETLMUCOH + OH --> OETLMUCCO + HO2 ', & - ' OETLMUCOH --> OETLMUCO + HO2 ', & - ' MC7CO2OOH + OH --> MC7CO2O2 ', & - ' MC7CO2OOH --> C5DICARB + C2H5CO3 + OH ', & - ' MC7CO2OOH --> MC7CO2O + OH ', & - ' MC7CO2O --> C5DICARB + C2H5CO3 ', & - ' MC7CO2OH + OH --> C5DICARB + C2H5CO3 ', & - ' MC7CO2OH --> C5DICARB + C2H5CO3 + HO2 ', & - ' MC7CO2OH --> MC7CO2O + HO2 ', & - ' NOETOLOOH + OH --> NOETOLO2 ', & - ' NOETOLOOH --> NOETOLO + OH ', & - ' NOETOLOOH --> OETOLO + OH + NO2 ', & - ' NOETOLO --> C7CDCCO2H + GLYOX + NO2 ', & - ' NOETOLOH + OH --> NOETOLO ', & - ' NOETOLOH --> OETOLO + NO2 + HO2 ', & - ' OET1OHNO2 + NO3 --> NOETOL1O + HNO3 ', & - ' OET1OHNO2 + OH --> NOETOL1O ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_208 = (/ & - ' OET1O2 + HO2 --> OET1OOH ', & - ' OET1O2 + NO --> OET1O + NO2 ', & - ' OET1O2 + NO3 --> OET1O + NO2 ', & - ' OET1O2 --> OET1O ', & - ' OETOLOOH + OH --> OETOLO2 ', & - ' OETOLOOH --> OETOLO + OH ', & - ' OETOLO --> C7CDCCO2H + GLYOX + HO2 ', & - ' OETOLO --> OETLQONE + HO2 ', & - ' OETOLOH + OH --> OETOLO ', & - ' OTCATEC1O + NO2 --> OTNCATECH ', & - ' OTCATEC1O + O3 --> OTCATEC1O2 ', & - ' OTCATECOOA --> ECOCO2H + C5CO14OH + OH + HO2 ', & - ' METLMUCO2H + OH --> C826CO3O2 ', & - ' METLMUCO2H --> C826CO3O2 + HO2 ', & - ' METLMUCO3H + OH --> METLMUCCO3 ', & - ' METLMUCO3H --> C826CO3O2 + OH ', & - ' METLMUCPAN + OH --> C6DICARB + CH3CHO + NO2 ', & - ' METLMUCPAN --> METLMUCCO3 + NO2 ', & - ' METLMUCOOH + OH --> METLMUCCO + OH ', & - ' METLMUCOOH --> METLMUCO + OH ', & - ' METLMUCNO3 + OH --> METLMUCCO + NO2 ', & - ' METLMUCNO3 --> EPXMC4DIAL + C2H5CO3 + NO2 + HO2 ', & - ' METLMUCO --> CO3H4CHO + C3MDIALO2 ', & - ' METLMUCO --> EPXMC4DIAL + EGLYOX + HO2 ', & - ' METLMUCCO + OH --> EPXMC4DIAL + C2H5CO3 + CO ', & - ' METLMUCCO --> EPXMC4DIAL + C2H5CO3 + CO + HO2 ', & - ' METLMUCOH + OH --> METLMUCCO + HO2 ', & - ' METLMUCOH --> METLMUCO + HO2 ', & - ' C826CO3OOH + OH --> C826CO3O2 ', & - ' C826CO3OOH --> C6DICARB + CH3CO3 + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_209 = (/ & - ' C826CO3OOH --> C826CO3O + OH ', & - ' C826CO3O --> C6DICARB + CH3CO3 ', & - ' C8236CO + OH --> C6DCARBBO2 + CH3CO3 ', & - ' C8236CO --> C6DCARBBO2 + CH3CO3 ', & - ' C8236CO --> C2H5CO3 + CO23C3CHO + CO + HO2 ', & - ' C826CO3OH + OH --> C6DICARB + CH3CO3 ', & - ' C826CO3OH --> C6DICARB + CH3CO3 + HO2 ', & - ' C826CO3OH --> C826CO3O + HO2 ', & - ' MET1OHNO2 + NO3 --> NMETOL1O + HNO3 ', & - ' MET1OHNO2 + OH --> NMETOL1O ', & - ' MET1O2 + HO2 --> MET1OOH ', & - ' MET1O2 + NO --> MET1O + NO2 ', & - ' MET1O2 + NO3 --> MET1O + NO2 ', & - ' MET1O2 --> MET1O ', & - ' METOLOOH + OH --> METOLO2 ', & - ' METOLOOH --> METOLO + OH ', & - ' METOLO --> C6DCRBBOH + MGLYOX + HO2 ', & - ' METOLO --> METLQONE + HO2 ', & - ' METOLOH + OH --> METOLO ', & - ' NMETOLOOH + OH --> NMETOLO2 ', & - ' NMETOLOOH --> METOLO + OH + NO2 ', & - ' NMETOLOOH --> NMETOLO + OH ', & - ' NMETOLO --> C6DCRBBOH + MGLYOX + NO2 ', & - ' NMETOLOH + OH --> NMETOLO ', & - ' NMETOLOH --> METOLO + NO2 + HO2 ', & - ' MTCATEC1O + NO2 --> MTNCATECH ', & - ' MTCATEC1O + O3 --> MTCATEC1O2 ', & - ' MTCATECOOA --> C3MCOCO2H + ECOCO2H + OH + HO2 ', & - ' C7EDICARB + O3 --> EGLYOOB + MGLYOX ', & - ' C7EDICARB + O3 --> MGLOOB + EGLYOX ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_210 = (/ & - ' C7EDICARB + OH --> C7EDCO2 ', & - ' C7EDICARB --> C2H5CO3 + MGLYOX + CO + HO2 ', & - ' C7EDICARB --> EGLYOX + CH3CO3 + CO + HO2 ', & - ' PETLMUCO2H + OH --> C7M6CO2O2 ', & - ' PETLMUCO2H --> C7M6CO2O2 + HO2 ', & - ' PETLMUCO3H + OH --> PETLMUCCO3 ', & - ' PETLMUCO3H --> C7M6CO2O2 + OH ', & - ' PETLMUCPAN + OH --> C7EDICARB + CO + NO2 ', & - ' PETLMUCPAN --> PETLMUCCO3 + NO2 ', & - ' PETLMUCOOH + OH --> PETLMUCCO + OH ', & - ' PETLMUCOOH --> PETLMUCO + OH ', & - ' PETLMUCNO3 + OH --> PETLMUCCO + NO2 ', & - ' PETLMUCNO3 --> EPXMC4DIAL + C2H5CO3 + NO2 + HO2 ', & - ' PETLMUCO --> CO3H4CHO + C4CO2O2 ', & - ' PETLMUCO --> EPXMC4DIAL + EGLYOX + HO2 ', & - ' PETLMUCCO + OH --> EPXMC4DIAL + C2H5CO3 + CO ', & - ' PETLMUCCO --> EPXMC4DIAL + C2H5CO3 + CO + HO2 ', & - ' PETLMUCOH + OH --> PETLMUCCO + HO2 ', & - ' PETLMUCOH --> PETLMUCO + HO2 ', & - ' C7M6CO2OOH + OH --> C7M6CO2O2 ', & - ' C7M6CO2OOH --> C3MDIALOOH + C2H5CO3 + CO + HO2 ', & - ' C7M6CO2OOH --> C7EDICARB + OH + CO + HO2 ', & - ' C7M6CO2OOH --> C7M6CO2O + OH ', & - ' C7M6CO2O --> C7EDICARB + CO + HO2 ', & - ' C7M6CO2OH + OH --> C7EDICARB + CO + HO2 ', & - ' C7M6CO2OH --> C3MDIALOH + C2H5CO3 + CO + HO2 ', & - ' C7M6CO2OH --> C7EDICARB + CO + 2 HO2 ', & - ' NPETOLOOH + OH --> NPETOLO2 ', & - ' NPETOLOOH --> NPETOLO + OH ', & - ' NPETOLOOH --> PETOLO + OH + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_211 = (/ & - ' NPETOLO --> C3MCOCO2H + EGLYOX + NO2 ', & - ' NPETOLOH + OH --> NPETOLO ', & - ' NPETOLOH --> PETOLO + NO2 + HO2 ', & - ' PET1OHNO2 + NO3 --> NPETOL1O + HNO3 ', & - ' PET1OHNO2 + OH --> NPETOL1O ', & - ' PET1O2 + HO2 --> PET1OOH ', & - ' PET1O2 + NO --> PET1O + NO2 ', & - ' PET1O2 + NO3 --> PET1O + NO2 ', & - ' PET1O2 --> PET1O ', & - ' PETOLOOH + OH --> PETOLO2 ', & - ' PETOLOOH --> PETOLO + OH ', & - ' PETOLO --> C3MCOCO2H + EGLYOX + HO2 ', & - ' PETOLO --> PETLQONE + HO2 ', & - ' PETOLOH + OH --> PETOLO ', & - ' PTCATEC1O + NO2 --> PTNCATECH ', & - ' PTCATEC1O + O3 --> PTCATEC1O2 ', & - ' PTCATECOOA --> MC3ODBCO2H + ECOCO2H + OH + HO2 ', & - ' DMPHCOMO2 + HO2 --> DMPHCOMOOH ', & - ' DMPHCOMO2 + NO --> DMPHCOMO + NO2 ', & - ' DMPHCOMO2 + NO3 --> DMPHCOMO + NO2 ', & - ' DMPHCOMO2 --> DMPHCOMO ', & - ' DMPHCOMO2 --> DMPHCOMOH ', & - ' DMPHCOMO2 --> DMPHGLYOX ', & - ' C7DDICARB + NO3 --> C7DDCCO3 + HNO3 ', & - ' C7DDICARB + O3 --> EGLYOOD + MGLYOX ', & - ' C7DDICARB + O3 --> MGLYOOA + EGLYOX ', & - ' C7DDICARB + OH --> C7DDCCO3 ', & - ' C7DDICARB + OH --> C7DDCO2 ', & - ' C7DDICARB --> C7DDCCO3 + HO2 ', & - ' C7DDICARB --> MEBFUONE ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_212 = (/ & - ' MEBFUONE + NO3 --> NMEBFUO2 ', & - ' MEBFUONE + O3 --> C23O3EO2 + OH + CO ', & - ' MEBFUONE + OH --> MEBFUO2 ', & - ' DMEBMUO2H + OH --> C8M2CO6O2 ', & - ' DMEBMUO2H --> C8M2CO6O2 + HO2 ', & - ' DMEBMUO3H + OH --> DMEBMUCO3 ', & - ' DMEBMUO3H --> C8M2CO6O2 + OH ', & - ' DMEBMUPAN + OH --> C7DDICARB + CH3CHO + NO2 ', & - ' DMEBMUPAN --> DMEBMUCO3 + NO2 ', & - ' DMEBMUOOH + OH --> DMEBMUCO2 ', & - ' DMEBMUOOH --> DMEBMUCO + OH ', & - ' DMEBMUCO --> C6CO243OH + C3MDIALO2 ', & - ' DMEBMUCO --> EPXMALKT + EGLYOX + HO2 ', & - ' DMEBMUNO3 + OH --> C6CO243OH + C3MDIALO2 + NO2 ', & - ' DMEBMUNO3 --> EPXMALKT + EGLYOX + NO2 + HO2 ', & - ' DMEBMUOH + OH --> DMEBMUCO ', & - ' DMEBMUOH --> DMEBMUCO + HO2 ', & - ' C8M2CO6OOH + OH --> C8M3CO + OH ', & - ' C8M2CO6OOH --> C7DDICARB + CH3CO3 + OH ', & - ' C8M2CO6OOH --> C8M2CO6O + OH ', & - ' C8M2CO6OOH --> CO24C53OOH + C2H5CO3 + CO + HO2 ', & - ' C8M2CO6O --> C7DDICARB + CH3CO3 ', & - ' C8M2CO6OH + OH --> C8M3CO + HO2 ', & - ' C8M2CO6OH --> C7DDICARB + CH3CO3 + HO2 ', & - ' C8M3CO + OH --> C5CO234 + EGLYOX + HO2 ', & - ' C8M3CO --> C5CO234 + C2H5CO3 + CO + HO2 ', & - ' NDMEPLOOH + OH --> NDMEPHOLO2 ', & - ' NDMEPLOOH --> DMEPHOLO + OH + NO2 ', & - ' NDMEPLOOH --> NDMEPHOLO + OH ', & - ' NDMEPHOLO --> C5CODBCO2H + EGLYOX + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_213 = (/ & - ' NDMEPHOLOH + OH --> NDMEPHOLO ', & - ' NDMEPHOLOH --> DMEPHOLO + NO2 + HO2 ', & - ' DMEPHOLOOH + OH --> DMEPHOLO2 ', & - ' DMEPHOLOOH --> DMEPHOLO + OH ', & - ' DMEPHOLO --> C5CODBCO2H + EGLYOX + HO2 ', & - ' DMEPHOLOH + OH --> DMEPHOLO ', & - ' EMPHCOMO2 + HO2 --> EMPHCOMOOH ', & - ' EMPHCOMO2 + NO --> EMPHCOMO + NO2 ', & - ' EMPHCOMO2 + NO3 --> EMPHCOMO + NO2 ', & - ' EMPHCOMO2 --> EMPHCOMO ', & - ' EMPHCOMO2 --> EMPHCOMOH ', & - ' EMPHCOMO2 --> EMPHGLYOX ', & - ' EMPHCO3 + HO2 --> EMPHCO3H ', & - ' EMPHCO3 + HO2 --> EMPHO2 + OH ', & - ' EMPHCO3 + NO --> EMPHO2 + NO2 ', & - ' EMPHCO3 + NO2 --> EMPHPAN ', & - ' EMPHCO3 + NO3 --> EMPHO2 + NO2 ', & - ' EMPHCO3 --> EMPHO2 ', & - ' NDEMPLOOH + OH --> NDEMPHOLO2 ', & - ' NDEMPLOOH --> DEMPHOLO + OH + NO2 ', & - ' NDEMPLOOH --> NDEMPHOLO + OH ', & - ' NDEMPHOLO --> C7DDCCO2H + EGLYOX + NO2 ', & - ' NDEMPHOLOH + OH --> NDEMPHOLO ', & - ' NDEMPHOLOH --> DEMPHOLO + NO2 + HO2 ', & - ' DEMPHOLOOH + OH --> DEMPHOLO2 ', & - ' DEMPHOLOOH --> DEMPHOLO + OH ', & - ' DEMPHOLO --> C7DDCCO2H + EGLYOX + HO2 ', & - ' DEMPHOLOH + OH --> DEMPHOLO ', & - ' C7CODBCO3 + HO2 --> C7ODLBCO3H ', & - ' C7CODBCO3 + HO2 --> EGLYOX + C2H5CO3 + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_214 = (/ & - ' C7CODBCO3 + NO --> EGLYOX + C2H5CO3 + NO2 ', & - ' C7CODBCO3 + NO2 --> C7CODBPAN ', & - ' C7CODBCO3 + NO3 --> EGLYOX + C2H5CO3 + NO2 ', & - ' C7CODBCO3 --> EGLYOX + C2H5CO3 ', & - ' DETLMUO2H + OH --> C9M2CO6O2 ', & - ' DETLMUO2H --> C9M2CO6O2 + HO2 ', & - ' DETLMUO3H + OH --> DETLMUCO3 ', & - ' DETLMUO3H --> C9M2CO6O2 + OH ', & - ' DETLMUPAN + OH --> C7DDICARB + C2H5CHO + NO2 ', & - ' DETLMUPAN --> DETLMUCO3 + NO2 ', & - ' EPXEKTCO3 + HO2 --> CO24C63O2 + OH ', & - ' EPXEKTCO3 + HO2 --> EPXEKTCO2H + O3 ', & - ' EPXEKTCO3 + HO2 --> EPXEKTCO3H ', & - ' EPXEKTCO3 + NO --> CO24C63O2 + NO2 ', & - ' EPXEKTCO3 + NO2 --> EPXEKTPAN ', & - ' EPXEKTCO3 + NO3 --> CO24C63O2 + NO2 ', & - ' EPXEKTCO3 --> CO24C63O2 ', & - ' EPXEKTCO3 --> EPXEKTCO2H ', & - ' C3EDIALO2 + HO2 --> C3EDIALOOH ', & - ' C3EDIALO2 + NO --> C3EDIALO + NO2 ', & - ' C3EDIALO2 + NO3 --> C3EDIALO + NO2 ', & - ' C3EDIALO2 --> C3EDIALO ', & - ' C3EDIALO2 --> C3EDIALOH ', & - ' CO24C63O2 + HO2 --> CO24C63OOH ', & - ' CO24C63O2 + NO --> CO24C63O + NO2 ', & - ' CO24C63O2 + NO3 --> CO24C63O + NO2 ', & - ' CO24C63O2 --> C6CO243OH ', & - ' CO24C63O2 --> CO234C6 ', & - ' CO24C63O2 --> CO24C63O ', & - ' DETLMUOOH + OH --> DETLMUCO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_215 = (/ & - ' DETLMUOOH --> DETLMUCO + OH ', & - ' DETLMUCO --> C3EDIALO2 + C6CO243OH ', & - ' DETLMUCO --> EPXEALKT + EGLYOX + HO2 ', & - ' DETLMUNO3 + OH --> C3EDIALO2 + C6CO243OH + NO2 ', & - ' DETLMUNO3 --> EPXEALKT + EGLYOX + NO2 + HO2 ', & - ' DETLMUOH + OH --> DETLMUCO ', & - ' DETLMUOH --> DETLMUCO + HO2 ', & - ' C9M2CO6OOH + OH --> C9M3CO + OH ', & - ' C9M2CO6OOH --> C7DDICARB + C2H5CO3 + OH ', & - ' C9M2CO6OOH --> C9M2CO6O + OH ', & - ' C9M2CO6O --> C7DDICARB + C2H5CO3 ', & - ' C9M2CO6OH + OH --> C9M3CO + HO2 ', & - ' C9M2CO6OH --> C7DDICARB + C2H5CO3 + HO2 ', & - ' C9M3CO + OH --> CO234C6 + EGLYOX + HO2 ', & - ' C9M3CO --> CO234C6 + C2H5CO3 + CO + HO2 ', & - ' HNMVKO2 + HO2 --> HNMVKOOH ', & - ' HNMVKO2 + NO --> HNMVKO + NO2 ', & - ' HNMVKO2 + NO3 --> HNMVKO + NO2 ', & - ' HNMVKO2 --> HNBIACET ', & - ' HNMVKO2 --> HNMVKO ', & - ' HNMVKO2 --> HNMVKOH ', & - ' NC3CO3 + HO2 --> NC3CO2H + O3 ', & - ' NC3CO3 + HO2 --> NC3CO3H ', & - ' NC3CO3 + HO2 --> NO3CH2CHO + OH + CO + HO2 ', & - ' NC3CO3 + NO --> NO3CH2CHO + CO + NO2 + HO2 ', & - ' NC3CO3 + NO2 --> C4PAN9 ', & - ' NC3CO3 + NO3 --> NO3CH2CHO + CO + NO2 + HO2 ', & - ' NC3CO3 --> NC3CO2H ', & - ' NC3CO3 --> NO3CH2CHO + CO + HO2 ', & - ' NAOOA --> CH3NO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_216 = (/ & - ' NAOOA --> HCHO + NO2 + HO2 ', & - ' NAOOA --> NAOO ', & - ' NAOOA --> HCHO + OH + CO + NO2 ', & - ' C42O2 + HO2 --> C42OOH ', & - ' C42O2 + NO --> C42O + NO2 ', & - ' C42O2 + NO3 --> C42O + NO2 ', & - ' C42O2 --> C42O ', & - ' C42O2 --> C42OH ', & - ' C42O2 --> H3NCO2CHO ', & - ' HC3CO3 + HO2 --> HC3CO2H + O3 ', & - ' HC3CO3 + HO2 --> HC3CO3H ', & - ' HC3CO3 + HO2 --> HOCH2CHO + OH + CO + HO2 ', & - ' HC3CO3 + NO --> HOCH2CHO + CO + NO2 + HO2 ', & - ' HC3CO3 + NO2 --> C4PAN7 ', & - ' HC3CO3 + NO3 --> HOCH2CHO + CO + NO2 + HO2 ', & - ' HC3CO3 --> HC3CO2H ', & - ' HC3CO3 --> HOCH2CHO + CO + HO2 ', & - ' GAOOA --> CH3OH ', & - ' GAOOA --> GAOO ', & - ' GAOOA --> HCHO + 2 HO2 ', & - ' GAOOA --> HCHO + OH + CO + HO2 ', & - ' C41O2 + HO2 --> C41OOH ', & - ' C41O2 + NO --> C41NO3 ', & - ' C41O2 + NO --> C41O + NO2 ', & - ' C41O2 + NO3 --> C41O + NO2 ', & - ' C41O2 --> C41O ', & - ' C41O2 --> C41OH ', & - ' C41O2 --> H13CO2CHO ', & - ' HMGLOOA --> HMGLOO ', & - ' HMGLOOA --> HOCH2CHO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_217 = (/ & - ' HMGLOOA --> HOCH2CO3 + HO2 ', & - ' HMGLOOA --> HOCH2CO3 + OH + CO ', & - ' MVKOHAO2 + HO2 --> MVKOHAOOH ', & - ' MVKOHAO2 + NO --> MVKOHANO3 ', & - ' MVKOHAO2 + NO --> MVKOHAO + NO2 ', & - ' MVKOHAO2 + NO3 --> MVKOHAO + NO2 ', & - ' MVKOHAO2 --> H13CO2CHO ', & - ' MVKOHAO2 --> MVKOHAO ', & - ' MVKOHAO2 --> MVKOHAOH ', & - ' MVKOHBO2 + HO2 --> MVKOHBOOH ', & - ' MVKOHBO2 + NO --> MVKOHBO + NO2 ', & - ' MVKOHBO2 + NO3 --> MVKOHBO + NO2 ', & - ' MVKOHBO2 --> H14CO23C4 ', & - ' MVKOHBO2 --> MVKOHAOH ', & - ' MVKOHBO2 --> MVKOHBO ', & - ' HC3CCO3 + HO2 --> ACR + OH + HO2 ', & - ' HC3CCO3 + HO2 --> HC3CCO3H ', & - ' HC3CCO3 + NO --> ACR + NO2 + HO2 ', & - ' HC3CCO3 + NO2 --> C4PAN8 ', & - ' HC3CCO3 + NO3 --> ACR + NO2 + HO2 ', & - ' HC3CCO3 --> ACR + HO2 ', & - ' ISOPCO --> HC4CCHO + HO2 ', & - ' GAOOB --> GAOO ', & - ' GAOOB --> GLYOX + OH + HO2 ', & - ' NC3OOA --> NC3OO ', & - ' NC3OOA --> MGLYOX + OH + NO2 ', & - ' INCO2 + HO2 --> INCOOH ', & - ' INCO2 + NO --> INCNO3 ', & - ' INCO2 + NO --> INCO + NO2 ', & - ' INCO2 + NO3 --> INCO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_218 = (/ & - ' INCO2 --> INCCO ', & - ' INCO2 --> INCO ', & - ' INCO2 --> INCOH ', & - ' NC4CO3 + HO2 --> NC4CO2H + O3 ', & - ' NC4CO3 + HO2 --> NC4CO3H ', & - ' NC4CO3 + HO2 --> NOA + OH + CO + HO2 ', & - ' NC4CO3 + NO --> NOA + CO + NO2 + HO2 ', & - ' NC4CO3 + NO2 --> C5PAN18 ', & - ' NC4CO3 + NO3 --> NOA + CO + NO2 + HO2 ', & - ' NC4CO3 --> NC4CO2H ', & - ' NC4CO3 --> NOA + CO + HO2 ', & - ' GLYOOC --> GLYOO ', & - ' GLYOOC --> OH + 2 CO + HO2 ', & - ' NOAOOA --> NOAOO ', & - ' NOAOOA --> MGLYOX + OH + NO2 ', & - ' C510O2 + HO2 --> C510OOH ', & - ' C510O2 + NO --> C510O + NO2 ', & - ' C510O2 + NO3 --> C510O + NO2 ', & - ' C510O2 --> C510O ', & - ' C510O2 --> C510OH ', & - ' HMVKAOOH --> HMVKAO + OH ', & - ' HMVKAOOH + OH --> CO2H3CHO + OH ', & - ' HMVKANO3 --> HMVKAO + NO2 ', & - ' HMVKANO3 + OH --> CO2H3CHO + NO2 ', & - ' HMVKAO --> MGLYOX + HCHO + HO2 ', & - ' HO12CO3C4 --> HOCH2CHO + CH3CO3 + HO2 ', & - ' HO12CO3C4 + OH --> BIACETOH + HO2 ', & - ' MVKNO3 + OH --> BIACETOH + NO2 ', & - ' MVKNO3 + OH --> CO2N3CHO + HO2 ', & - ' MVKNO3 --> HOCH2CHO + CH3CO3 + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_219 = (/ & - ' HMVKBOOH --> HMVKBO + OH ', & - ' HMVKBOOH + OH --> BIACETOH + OH ', & - ' HMVKBO --> HOCH2CHO + CH3CO3 ', & - ' BIACETOH --> HOCH2CO3 + CH3CO3 ', & - ' BIACETOH + OH --> CO23C3CHO + HO2 ', & - ' MVKOOH --> ACO3 + HCHO + OH ', & - ' MVKOOH --> MVKO + OH ', & - ' MVKOOH + OH --> MVKO2 ', & - ' MVKOOH + OH --> VGLYOX + OH ', & - ' MVKO --> ACO3 + HCHO ', & - ' VGLYOX + NO3 --> ACO3 + HNO3 + CO ', & - ' VGLYOX + OH --> ACO3 + CO ', & - ' VGLYOX --> ACO3 + CO + HO2 ', & - ' ISOPAOOH --> ISOPAO + OH ', & - ' ISOPAOOH + OH --> HC4ACHO + OH ', & - ' ISOPAOOH + OH --> IEPOXA + OH ', & - ' ISOPAOOH + OH --> ISOPAO2 ', & - ' CISOPAO --> C526O2 ', & - ' CISOPAO --> HC4CCHO + HO2 ', & - ' CISOPAO --> M3F + HO2 ', & - ' ISOPANO3 --> ISOPAO + NO2 ', & - ' ISOPANO3 + O3 --> NC2OOA + ACETOL ', & - ' ISOPANO3 + O3 --> ACLOOA + NO3CH2CHO ', & - ' ISOPANO3 + OH --> INAO2 ', & - ' C536O2 + HO2 --> C536OOH ', & - ' C536O2 + NO --> C536O + NO2 ', & - ' C536O2 + NO3 --> C536O + NO2 ', & - ' C536O2 --> C536O ', & - ' C536O2 --> DHPMVK + OH + CO ', & - ' C5HPALD1 + NO3 --> C5PACALD1 + HNO3 + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_220 = (/ & - ' C5HPALD1 + O3 --> MGLYOOA + HCOCH2OOH ', & - ' C5HPALD1 + O3 --> PGAOOB + MGLYOX ', & - ' C5HPALD1 + OH --> C4MALOHOOH + OH ', & - ' C5HPALD1 + OH --> C4MDIAL + OH ', & - ' C5HPALD1 + OH --> C5PACALD1 + OH ', & - ' C5HPALD1 --> HOCH2CHO + CH3CO3 + OH + CO ', & - ' C5HPALD1 --> HVMK + 2 OH + CO ', & - ' HC4ACHO --> ACETOL + 2 CO + 2 HO2 ', & - ' HC4ACHO --> HC4ACO3 + HO2 ', & - ' HC4ACHO + NO3 --> HC4ACO3 + HNO3 ', & - ' HC4ACHO + O3 --> GLYOOC + ACETOL ', & - ' HC4ACHO + O3 --> ACLOOA + GLYOX ', & - ' HC4ACHO + OH --> C4MDIAL + HO2 ', & - ' HC4ACHO + OH --> C58AO2 ', & - ' HC4ACHO + OH --> C58O2 ', & - ' HC4ACHO + OH --> HC4ACO3 ', & - ' ISOPAOH + OH --> HC4ACHO + HO2 ', & - ' ISOPAOH + OH --> HC4CCHO + HO2 ', & - ' ISOPBOOH --> ISOPBO + OH ', & - ' ISOPBOOH + OH --> IEPOXB + OH ', & - ' ISOPBOOH + OH --> ISOPBO2 ', & - ' ISOPBNO3 --> ISOPBO + NO2 ', & - ' ISOPBNO3 + O3 --> MACRNOOA + HCHO ', & - ' ISOPBNO3 + O3 --> CH2OOB + MACRNO3 ', & - ' ISOPBNO3 + OH --> INB1O2 ', & - ' ISOPBNO3 + OH --> INB2O2 ', & - ' ISOPBO --> MVK + HCHO + HO2 ', & - ' ISOPBOH + OH --> ISOPBO ', & - ' ISOPCOOH --> ISOPCO + OH ', & - ' ISOPCOOH + OH --> HC4CCHO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_221 = (/ & - ' ISOPCOOH + OH --> IEPOXC + OH ', & - ' ISOPCOOH + OH --> ISOPCO2 ', & - ' CISOPCO --> C527O2 ', & - ' CISOPCO --> HC4ACHO + HO2 ', & - ' CISOPCO --> M3F + HO2 ', & - ' C537O2 + HO2 --> C537OOH ', & - ' C537O2 + NO --> C537O + NO2 ', & - ' C537O2 + NO3 --> C537O + NO2 ', & - ' C537O2 --> C537O ', & - ' C537O2 --> DHPMACR + OH + CO ', & - ' C5HPALD2 + NO3 --> C5PACALD2 + HNO3 + OH ', & - ' C5HPALD2 + O3 --> GLYOOC + HYPERACET ', & - ' C5HPALD2 + O3 --> PACLOOA + GLYOX ', & - ' C5HPALD2 + OH --> C4MDIAL + OH ', & - ' C5HPALD2 + OH --> C5PACALD2 + OH ', & - ' C5HPALD2 + OH --> HPC52O2 ', & - ' C5HPALD2 --> ACETOL + OH + 2 CO + HO2 ', & - ' C5HPALD2 --> HMAC + 2 OH + CO ', & - ' HC4CCHO --> HOCH2CHO + CH3CO3 + CO + HO2 ', & - ' HC4CCHO --> HC4CCO3 + HO2 ', & - ' HC4CCHO + NO3 --> HC4CCO3 + HNO3 ', & - ' HC4CCHO + O3 --> MGLYOOA + HOCH2CHO ', & - ' HC4CCHO + O3 --> GAOOB + MGLYOX ', & - ' HC4CCHO + OH --> C4MDIAL + HO2 ', & - ' HC4CCHO + OH --> C57AO2 ', & - ' HC4CCHO + OH --> C57O2 ', & - ' HC4CCHO + OH --> HC4CCO3 ', & - ' ISOPDOOH --> ISOPDO + OH ', & - ' ISOPDOOH + OH --> HCOC5 + OH ', & - ' ISOPDOOH + OH --> IEPOXB + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_222 = (/ & - ' ISOPDOOH + OH --> ISOPDO2 ', & - ' ISOPDNO3 --> ISOPDO + NO2 ', & - ' ISOPDNO3 + O3 --> CH2OOC + MVKNO3 ', & - ' ISOPDNO3 + O3 --> NC4OOA + HCHO ', & - ' ISOPDNO3 + OH --> INDO2 ', & - ' ISOPDO --> MACR + HCHO + HO2 ', & - ' HCOC5 --> HCHO + HOCH2CO3 + CH3CO3 ', & - ' HCOC5 + OH --> C59O2 ', & - ' INAO2 + HO2 --> INAOOH ', & - ' INAO2 + NO --> INANO3 ', & - ' INAO2 + NO --> INAO + NO2 ', & - ' INAO2 + NO3 --> INAO + NO2 ', & - ' INAO2 --> INAO ', & - ' INAO2 --> INAOH ', & - ' NC41OOA --> CO23C4NO3 + OH + HO2 ', & - ' NC41OOA --> NC41OO ', & - ' C58O2 + HO2 --> C58OOH ', & - ' C58O2 + NO --> C58NO3 ', & - ' C58O2 + NO --> C58O + NO2 ', & - ' C58O2 + NO3 --> C58O + NO2 ', & - ' C58O2 --> C58O ', & - ' C58O2 --> C58OH ', & - ' HC4CO3 + HO2 --> HC4CO3H ', & - ' HC4CO3 + HO2 --> MACR + OH + HO2 ', & - ' HC4CO3 + NO --> MACR + NO2 + HO2 ', & - ' HC4CO3 + NO2 --> HC4PAN ', & - ' HC4CO3 + NO3 --> MACR + NO2 + HO2 ', & - ' HC4CO3 --> MACR + HO2 ', & - ' NC526OOH + OH --> NC526O2 ', & - ' NC526OOH --> NC526O + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_223 = (/ & - ' NC526O --> HCHO + CO2C3CHO + NO2 ', & - ' NC526O --> NOA + HCOCH2O2 ', & - ' CO2C3OO + CO --> CO2C3CHO ', & - ' CO2C3OO + NO --> CO2C3CHO + NO2 ', & - ' CO2C3OO + NO2 --> CO2C3CHO + NO3 ', & - ' CO2C3OO + SO2 --> SO3 + CO2C3CHO ', & - ' CO2C3OO --> H2O2 + CO2C3CHO ', & - ' CO2C3OO --> CO2C3CO2H ', & - ' C530OOH + OH --> C530O2 ', & - ' C530OOH --> C530O + OH ', & - ' C530NO3 + OH --> HCHO + CO2C3CHO + NO2 ', & - ' C530NO3 --> C530O + NO2 ', & - ' C530O --> HCHO + CO2C3CHO + HO2 ', & - ' M3BU3ECO3H + OH --> M3BU3ECO3 ', & - ' M3BU3ECO3H --> C45O2 + OH ', & - ' M3BU3EPAN + OH --> MACR + CO + NO2 ', & - ' M3BU3EPAN --> M3BU3ECO3 + NO2 ', & - ' C45OOH + OH --> MACR + OH ', & - ' C45OOH --> C45O + OH ', & - ' C45NO3 + OH --> MACR + NO2 ', & - ' C45NO3 --> C45O + NO2 ', & - ' C45O --> MACR + HO2 ', & - ' NC51OOH + OH --> NC51O2 ', & - ' NC51OOH --> NC51O + OH ', & - ' NC51O --> HCHO + CO2C3CHO + NO2 ', & - ' C51OOH --> C51O + OH ', & - ' C51OOH + OH --> HO1CO24C5 + OH ', & - ' C51NO3 --> C51O + NO2 ', & - ' C51NO3 + OH --> HO1CO24C5 + NO2 ', & - ' C51O --> HCHO + CO2C3CHO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_224 = (/ & - ' C51OH + OH --> HO1CO24C5 + OH ', & - ' HO1CO24C5 --> HOCH2CO3 + CH3COCH2O2 ', & - ' HO1CO24C5 + OH --> CO24C4CHO + HO2 ', & - 'CH2CHCH2OOH + OH --> ACR + OH ', & - ' CH2CHCH2OOH --> CH2CHCH2O + OH ', & - 'CH2CHCH2NO3 + OH --> ACR + NO2 ', & - ' CH2CHCH2NO3 --> CH2CHCH2O + NO2 ', & - ' CH2CHCH2O --> ACR + HO2 ', & - ' ISOPAO --> C524O2 ', & - ' CHOOCH2O2 + HO2 --> CHOOCH2OOH ', & - ' CHOOCH2O2 + NO --> CHOOCH2NO3 ', & - ' CHOOCH2O2 + NO --> CHOOCH2O + NO2 ', & - ' CHOOCH2O2 + NO3 --> CHOOCH2O + NO2 ', & - ' CHOOCH2O2 --> CHOOCH2O ', & - ' CHOOCH2O2 --> CHOOCH2OH ', & - ' CHOOCH2O2 --> CHOOCHO ', & - 'ACETC2H4O2 + HO2 --> ACEC2H4OOH ', & - ' ACETC2H4O2 + NO --> ACEC2H4NO3 ', & - ' ACETC2H4O2 + NO --> ACETC2H4O + NO2 ', & - 'ACETC2H4O2 + NO3 --> ACETC2H4O + NO2 ', & - ' ACETC2H4O2 --> ACETC2H4O ', & - ' ACETC2H4O2 --> ACETETCHO ', & - ' ACETC2H4O2 --> ETACETOH ', & - ' EOCOCH2O2 + HO2 --> EOCOCH2OOH ', & - ' EOCOCH2O2 + NO --> EOCOCH2O + NO2 ', & - ' EOCOCH2O2 + NO3 --> EOCOCH2O + NO2 ', & - ' EOCOCH2O2 --> EOCOCH2O ', & - ' EOCOCH2O2 --> EOCOCHO ', & - ' EOCOCH2O2 --> EOX2COMEOH ', & - ' ETHACETO2 + HO2 --> ETHACETOOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_225 = (/ & - ' ETHACETO2 + HO2 --> METHCOACET ', & - ' ETHACETO2 + NO --> ETACETNO3 ', & - ' ETHACETO2 + NO --> ETHACETO + NO2 ', & - ' ETHACETO2 + NO3 --> ETHACETO + NO2 ', & - ' ETHACETO2 --> ETHACETO ', & - ' ETHACETO2 --> ETHACETOH ', & - ' ETHACETO2 --> METHCOACET ', & - ' ETHFORM + OH --> C2H5O2 ', & - ' ETHFORM + OH --> ETHFORMO2 ', & - ' ETOMEO2 + HO2 --> ETHFORM ', & - ' ETOMEO2 + HO2 --> ETOMEOOH ', & - ' ETOMEO2 + NO --> ETOMENO3 ', & - ' ETOMEO2 + NO --> ETOMEO + NO2 ', & - ' ETOMEO2 + NO3 --> ETOMEO + NO2 ', & - ' ETOMEO2 --> ETHFORM ', & - ' ETOMEO2 --> ETOMEO ', & - ' ETOMEO2 --> ETOMEOH ', & - 'EOX2EOLAO2 + HO2 --> EOX2COMEOH ', & - 'EOX2EOLAO2 + HO2 --> EOX2OLAOOH ', & - ' EOX2EOLAO2 + NO --> EOX2EOLAO + NO2 ', & - ' EOX2EOLAO2 + NO --> EOX2OLANO3 ', & - 'EOX2EOLAO2 + NO3 --> EOX2EOLAO + NO2 ', & - ' EOX2EOLAO2 --> EOX2COMEOH ', & - ' EOX2EOLAO2 --> EOX2EOLAO ', & - ' EOX2EOLAO2 --> EOX2ETA2OH ', & - 'EOX2EOLBO2 + HO2 --> EOX2OLBOOH ', & - 'EOX2EOLBO2 + HO2 --> ETACETOH ', & - ' EOX2EOLBO2 + NO --> EOX2EOLBO + NO2 ', & - ' EOX2EOLBO2 + NO --> EOX2OLBNO3 ', & - 'EOX2EOLBO2 + NO3 --> EOX2EOLBO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_226 = (/ & - ' EOX2EOLBO2 --> EOX2EOLBO ', & - ' EOX2EOLBO2 --> EOX2ETB2OH ', & - ' EOX2EOLBO2 --> ETACETOH ', & - ' EOX2MECO3 + HO2 --> ETOMECO2H + O3 ', & - ' EOX2MECO3 + HO2 --> ETOMECO3H ', & - ' EOX2MECO3 + HO2 --> ETOMEO2 + OH ', & - ' EOX2MECO3 + NO --> ETOMEO2 + NO2 ', & - ' EOX2MECO3 + NO2 --> ETOMEPAN ', & - ' EOX2MECO3 + NO3 --> ETOMEO2 + NO2 ', & - ' EOX2MECO3 --> ETOMECO2H ', & - ' EOX2MECO3 --> ETOMEO2 ', & - 'HO1CO3C4O2 + HO2 --> HOCO3C4OOH ', & - ' HO1CO3C4O2 + NO --> HO1CO3C4O + NO2 ', & - 'HO1CO3C4O2 + NO3 --> HO1CO3C4O + NO2 ', & - ' HO1CO3C4O2 --> HO14CO2C4 ', & - ' HO1CO3C4O2 --> HO1CO3C4O ', & - ' HO1CO3C4O2 --> HO1CO3CHO ', & - ' BIACETO2 + HO2 --> BIACETOOH ', & - ' BIACETO2 + NO --> BIACETO + NO2 ', & - ' BIACETO2 + NO3 --> BIACETO + NO2 ', & - ' BIACETO2 --> BIACETO ', & - ' BIACETO2 --> BIACETOH ', & - ' BIACETO2 --> CO23C3CHO ', & - 'HO2CO4C5O2 + HO2 --> HOCO4C5OOH ', & - ' HO2CO4C5O2 + NO --> HO2CO4C5O + NO2 ', & - 'HO2CO4C5O2 + NO3 --> HO2CO4C5O + NO2 ', & - ' HO2CO4C5O2 --> HO14CO2C5 ', & - ' HO2CO4C5O2 --> HO2CO4C5O ', & - ' HO2CO4C5O2 --> HO2CO4CHO ', & - ' CO23C54O2 + HO2 --> CO23C54OOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_227 = (/ & - ' CO23C54O2 + NO --> CO23C54O + NO2 ', & - ' CO23C54O2 + NO3 --> CO23C54O + NO2 ', & - ' CO23C54O2 --> CO23C54O ', & - 'HOCO3C54O2 + HO2 --> HOCO3C5OOH ', & - ' HOCO3C54O2 + NO --> HOCO3C54O + NO2 ', & - 'HOCO3C54O2 + NO3 --> HOCO3C54O + NO2 ', & - ' HOCO3C54O2 --> HO14CO3C5 ', & - ' HOCO3C54O2 --> HO1CO34C5 ', & - ' HOCO3C54O2 --> HOCO3C54O ', & - ' C53O2 + HO2 --> C53OOH ', & - ' C53O2 + NO --> C53O + NO2 ', & - ' C53O2 + NO3 --> C53O + NO2 ', & - ' C53O2 --> C53O ', & - ' C53O2 --> C53OH ', & - ' C53O2 --> HOIPRGLYOX ', & - ' C41CO3 + HO2 --> C41CO2H + O3 ', & - ' C41CO3 + HO2 --> C41CO3H ', & - ' C41CO3 + HO2 --> MEKBO2 + OH ', & - ' C41CO3 + NO --> MEKBO2 + NO2 ', & - ' C41CO3 + NO2 --> C5PAN7 ', & - ' C41CO3 + NO3 --> MEKBO2 + NO2 ', & - ' C41CO3 --> C41CO2H ', & - ' C41CO3 --> MEKBO2 ', & - 'CO2HOC61O2 + HO2 --> CO2HOC6OOH ', & - ' CO2HOC61O2 + NO --> CO2HOC61O + NO2 ', & - 'CO2HOC61O2 + NO3 --> CO2HOC61O + NO2 ', & - ' CO2HOC61O2 --> CO2HOC61O ', & - ' CO24C6O2 + HO2 --> CO24C6OOH ', & - ' CO24C6O2 + NO --> CO24C6O + NO2 ', & - ' CO24C6O2 + NO3 --> CO24C6O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_228 = (/ & - ' CO24C6O2 --> CO24C6O ', & - ' CO25C6O2 + HO2 --> CO25C6OOH ', & - ' CO25C6O2 + NO --> CO25C6O + NO2 ', & - ' CO25C6O2 + NO3 --> CO25C6O + NO2 ', & - ' CO25C6O2 --> CO235C6 ', & - ' CO25C6O2 --> CO25C6O ', & - ' CO25C6O2 --> CO25C6OH ', & - ' HO2C4O2 + HO2 --> HO2C4OOH ', & - ' HO2C4O2 + NO --> HO2C4NO3 ', & - ' HO2C4O2 + NO --> HO2C4O + NO2 ', & - ' HO2C4O2 + NO3 --> HO2C4O + NO2 ', & - ' HO2C4O2 --> HO2C3CHO ', & - ' HO2C4O2 --> HO2C4O ', & - ' HO2C4O2 --> HO2C4OH ', & - ' C61O2 + HO2 --> C61OOH ', & - ' C61O2 + NO --> C61NO3 ', & - ' C61O2 + NO --> C61O + NO2 ', & - ' C61O2 + NO3 --> C61O + NO2 ', & - ' C61O2 --> C61CO ', & - ' C61O2 --> C61O ', & - ' C61O2 --> C61OH ', & - ' CO23C65O2 + HO2 --> CO23C65OOH ', & - ' CO23C65O2 + NO --> CO23C65O + NO2 ', & - ' CO23C65O2 + NO3 --> CO23C65O + NO2 ', & - ' CO23C65O2 --> CO23C65O ', & - 'C6CO3OH5O2 + HO2 --> C6CO3OHOOH ', & - ' C6CO3OH5O2 + NO --> C6CO3OH5O + NO2 ', & - 'C6CO3OH5O2 + NO3 --> C6CO3OH5O + NO2 ', & - ' C6CO3OH5O2 --> C6CO23HO5 ', & - ' C6CO3OH5O2 --> C6CO3HO25 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_229 = (/ & - ' C6CO3OH5O2 --> C6CO3OH5O ', & - ' C6CO34O2 + HO2 --> C6CO34OOH ', & - ' C6CO34O2 + NO --> C6CO34O + NO2 ', & - ' C6CO34O2 + NO3 --> C6CO34O + NO2 ', & - ' C6CO34O2 --> C6CO34O ', & - 'C6HO1CO3O2 + HO2 --> C6HOCOOOH ', & - ' C6HO1CO3O2 + NO --> C6HO1CO3O + NO2 ', & - 'C6HO1CO3O2 + NO3 --> C6HO1CO3O + NO2 ', & - ' C6HO1CO3O2 --> C6CO34HO1 ', & - ' C6HO1CO3O2 --> C6CO3HO14 ', & - ' C6HO1CO3O2 --> C6HO1CO3O ', & - ' C3COCCO3 + HO2 --> C3COCCO3H ', & - ' C3COCCO3 + HO2 --> PEN2ONE1O2 + OH ', & - ' C3COCCO3 + NO --> PEN2ONE1O2 + NO2 ', & - ' C3COCCO3 + NO2 --> C3COCPAN ', & - ' C3COCCO3 + NO3 --> PEN2ONE1O2 + NO2 ', & - ' C3COCCO3 --> PEN2ONE1O2 ', & - 'PEN2ONE1O2 + HO2 --> PE2ONE1OOH ', & - ' PEN2ONE1O2 + NO --> PEN2ONE1O + NO2 ', & - 'PEN2ONE1O2 + NO3 --> PEN2ONE1O + NO2 ', & - ' PEN2ONE1O2 --> PEN2ONE1O ', & - ' MIBK3COO2 + HO2 --> MIBK3COOOH ', & - ' MIBK3COO2 + NO --> MIBK3COO + NO2 ', & - ' MIBK3COO2 + NO3 --> MIBK3COO + NO2 ', & - ' MIBK3COO2 --> MIBK3COO ', & - ' C612O2 + HO2 --> C612OOH ', & - ' C612O2 + NO --> C612O + NO2 ', & - ' C612O2 + NO3 --> C612O + NO2 ', & - ' C612O2 --> C612O ', & - ' C612O2 --> C612OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_230 = (/ & - ' C612O2 --> HM22COCHO ', & - ' CO2M33CO3 + HO2 --> CO2M33CO2H + O3 ', & - ' CO2M33CO3 + HO2 --> CO2M33CO3H ', & - ' CO2M33CO3 + HO2 --> MIPKAO2 + OH ', & - ' CO2M33CO3 + NO --> MIPKAO2 + NO2 ', & - ' CO2M33CO3 + NO2 --> C6PAN16 ', & - ' CO2M33CO3 + NO3 --> MIPKAO2 + NO2 ', & - ' CO2M33CO3 --> CO2M33CO2H ', & - ' CO2M33CO3 --> MIPKAO2 ', & - ' C6COCHOO2 + HO2 --> C6COCHOOOH ', & - ' C6COCHOO2 + NO --> C6COCHOO + NO2 ', & - ' C6COCHOO2 + NO3 --> C6COCHOO + NO2 ', & - ' C6COCHOO2 --> C6COCHOO ', & - ' C6COCHOO2 --> C6CODIAL ', & - ' C6COCHOO2 --> C6COHOCHO ', & - ' CY6DIONO2 + HO2 --> CY6COCOOOH ', & - ' CY6DIONO2 + NO --> CY6DIONO + NO2 ', & - ' CY6DIONO2 + NO3 --> CY6DIONO + NO2 ', & - ' CY6DIONO2 --> CY6DIONO ', & - ' CY6DIONO2 --> CY6DIONOH ', & - ' CY6DIONO2 --> CY6TRION ', & - ' VINOH + OH --> HOCH2CHO + HO2 ', & - ' PINAL + NO3 --> C96CO3 + HNO3 ', & - ' PINAL + OH --> C96CO3 ', & - ' PINAL + OH --> PINALO2 ', & - ' PINAL --> C96O2 + CO + HO2 ', & - ' NC101O2 + HO2 --> NC101OOH ', & - ' NC101O2 + NO --> NC101O + NO2 ', & - ' NC101O2 + NO3 --> NC101O + NO2 ', & - ' NC101O2 --> NC101O ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_231 = (/ & - ' C96CO3 + HO2 --> C96O2 + OH ', & - ' C96CO3 + HO2 --> PERPINONIC ', & - ' C96CO3 + HO2 --> PINONIC + O3 ', & - ' C96CO3 + NO --> C96O2 + NO2 ', & - ' C96CO3 + NO2 --> C10PAN2 ', & - ' C96CO3 + NO3 --> C96O2 + NO2 ', & - ' C96CO3 --> C96O2 ', & - ' C96CO3 --> PINONIC ', & - ' C107OOH + OH --> C107O2 ', & - ' C107OOH --> C107O + OH ', & - ' C107O --> C108O2 ', & - ' C107OH + OH --> C107O ', & - ' C107OH --> C107O + HO2 ', & - ' C109OOH + OH --> C109CO + OH ', & - ' C109OOH --> C109O + OH ', & - ' C109OOH --> C89CO3 + HCHO + OH ', & - ' C109O --> C89CO3 + HCHO ', & - ' C109O --> C920CO3 ', & - ' C109CO + OH --> C89CO3 + CO ', & - ' C109CO --> C89CO3 + CO + HO2 ', & - ' C109OH + OH --> C109CO + HO2 ', & - ' C109OH --> C89CO3 + HCHO + HO2 ', & - ' C109OH --> C920O2 + CO + HO2 ', & - ' PINONIC + OH --> C96O2 ', & - ' PINONIC --> C96O2 + HO2 ', & - ' C96OOH + OH --> C96O2 ', & - ' C96OOH + OH --> NORPINAL + OH ', & - ' C96OOH --> C96O + OH ', & - ' C96NO3 + OH --> NORPINAL + NO2 ', & - ' C96NO3 --> C96O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_232 = (/ & - ' C96O --> C97O2 ', & - ' C96OH + OH --> NORPINAL + HO2 ', & - ' C96OH --> C96O + HO2 ', & - ' NORPINAL + NO3 --> C85CO3 + HNO3 ', & - ' NORPINAL + OH --> C85CO3 ', & - ' NORPINAL --> C85O2 + CO + HO2 ', & - ' HCC7CO + OH --> C719O2 ', & - ' C720O2 + HO2 --> C720OOH ', & - ' C720O2 + NO --> C720NO3 ', & - ' C720O2 + NO --> C720O + NO2 ', & - ' C720O2 + NO3 --> C720O + NO2 ', & - ' C720O2 --> C720O ', & - ' C720O2 --> C720OH ', & - ' C720O2 --> HCC7CO ', & - ' NC91CO3 + HO2 --> NC91CO3H ', & - ' NC91CO3 + HO2 --> NOPINONE + OH + NO2 ', & - ' NC91CO3 + NO --> NOPINONE + 2 NO2 ', & - ' NC91CO3 + NO2 --> NC91PAN ', & - ' NC91CO3 + NO3 --> NOPINONE + 2 NO2 ', & - ' NC91CO3 --> NOPINONE + NO2 ', & - ' NOPINAOOH + OH --> C9DC + OH ', & - ' NOPINAOOH --> NOPINAO + OH ', & - ' NOPINANO3 + OH --> C9DC + NO2 ', & - ' NOPINANO3 --> NOPINAO + NO2 ', & - ' NOPINAO --> C918O2 ', & - ' NOPINAO --> C9DC + HO2 ', & - ' C9DC + OH --> C9DCO2 ', & - ' NOPINAOH + OH --> C9DC + HO2 ', & - ' NOPINBOOH + OH --> NOPINBCO + OH ', & - ' NOPINBOOH --> NOPINBO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_233 = (/ & - ' NOPINBNO3 + OH --> NOPINBCO + NO2 ', & - ' NOPINBNO3 --> NOPINBO + NO2 ', & - ' NOPINBO --> C915O2 ', & - ' NOPINBCO + OH --> C915O2 ', & - ' NOPINBOH + OH --> NOPINBCO + HO2 ', & - ' NOPINCOOH + OH --> NOPINCO2 ', & - ' NOPINCOOH --> NOPINCO + OH ', & - ' NOPINCNO3 + OH --> C619CO + CH3COCH3 + NO2 ', & - ' NOPINCNO3 --> NOPINCO + NO2 ', & - ' NOPINCO --> C917O2 ', & - ' NOPINCOH + OH --> NOPINCO ', & - ' NOPINDOOH + OH --> NOPINDCO + OH ', & - ' NOPINDOOH --> NOPINDO + OH ', & - ' NOPINDO --> C89CO3 ', & - ' NOPINDCO + OH --> C89CO3 ', & - ' NOPINDOH + OH --> NOPINDCO + HO2 ', & - ' C8BCO2 + HO2 --> C8BCOOH ', & - ' C8BCO2 + NO --> C8BCNO3 ', & - ' C8BCO2 + NO --> C8BCO + NO2 ', & - ' C8BCO2 + NO3 --> C8BCO + NO2 ', & - ' C8BCO2 --> C8BCCO ', & - ' C8BCO2 --> C8BCO ', & - ' C8BCO2 --> C8BCOH ', & - ' C918CO3 + HO2 --> C918CO3H ', & - ' C918CO3 + HO2 --> NOPINONE + OH + HO2 ', & - ' C918CO3 + NO --> NOPINONE + NO2 + HO2 ', & - ' C918CO3 + NO2 --> C918PAN ', & - ' C918CO3 + NO3 --> NOPINONE + NO2 + HO2 ', & - ' C918CO3 --> NOPINONE + HO2 ', & - ' LIMAL + NO3 --> C923CO3 + HNO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_234 = (/ & - ' LIMAL + NO3 --> NLIMALO2 ', & - ' LIMAL + O3 --> LIMALOOA + HCHO ', & - ' LIMAL + O3 --> CH2OOF + LMLKET ', & - ' LIMAL + OH --> C923CO3 ', & - ' LIMAL + OH --> LIMALO2 ', & - ' LIMAL --> C923O2 + CO + HO2 ', & - ' LIMALAOOH + OH --> LIMALACO + OH ', & - ' LIMALAOOH --> C729CHO + CH3CO3 + OH ', & - ' LIMALAOOH --> LIMALAO + OH ', & - ' LIMALAO --> C729CHO + CH3CO3 ', & - ' LIMALACO + OH --> C729CHO + CH3CO3 ', & - ' LIMALACO --> C729CO3 + CH3CO3 ', & - ' LIMALAOH + OH --> LIMALACO + HO2 ', & - ' LIMALAOH --> C729CHO + CH3CO3 + HO2 ', & - ' LIMALBOOH + OH --> LIMALBCO + OH ', & - ' LIMALBOOH --> C822CO3 + HCHO + OH ', & - ' LIMALBOOH --> LIMALBO + OH ', & - ' LIMALBO --> C822CO3 + HCHO ', & - ' LIMALBCO + OH --> C822CO3 + CO ', & - ' LIMALBCO --> C822CO3 + CO + HO2 ', & - ' LIMALBOH + OH --> LIMALBCO + HO2 ', & - ' LIMALBOH --> C822CO3 + HCHO + HO2 ', & - ' C923OOH + OH --> NORLIMAL + OH ', & - ' C923OOH --> C923O + OH ', & - ' C923NO3 + OH --> NORLIMAL + NO2 ', & - ' C923NO3 --> C923O + NO2 ', & - ' C923O --> C924O2 ', & - ' C923OH + OH --> NORLIMAL + HO2 ', & - ' NORLIMAL + OH --> C816CO3 ', & - ' NORLIMAL + OH --> NORLIMO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_235 = (/ & - ' NORLIMAL --> C816O2 + CO + HO2 ', & - ' LIMONONIC + OH --> C923O2 ', & - ' C923CO3 + HO2 --> C923CO3H ', & - ' C923CO3 + HO2 --> C923O2 + OH ', & - ' C923CO3 + HO2 --> LIMONONIC + O3 ', & - ' C923CO3 + NO --> C923O2 + NO2 ', & - ' C923CO3 + NO2 --> C923PAN ', & - ' C923CO3 + NO3 --> C923O2 + NO2 ', & - ' C923CO3 --> C923O2 ', & - ' C923CO3 --> LIMONONIC ', & - ' LIMKET + NO3 --> NLMKAO2 ', & - ' LIMKET + O3 --> LMKOOA ', & - ' LIMKET + O3 --> LMKOOB ', & - ' LIMKET + OH --> LMKAO2 ', & - ' LIMKET + OH --> LMKBO2 ', & - ' C141CO3 + HO2 --> C141CO2H + O3 ', & - ' C141CO3 + HO2 --> C141CO3H ', & - ' C141CO3 + HO2 --> C141O2 + OH ', & - ' C141CO3 + NO --> C141O2 + NO2 ', & - ' C141CO3 + NO2 --> C141PAN ', & - ' C141CO3 + NO3 --> C141O2 + NO2 ', & - ' C141CO3 --> C141CO2H ', & - ' C141CO3 --> C141O2 ', & - ' NBCALO2 + HO2 --> NBCALOOH ', & - ' NBCALO2 + NO --> NBCALO + NO2 ', & - ' NBCALO2 + NO3 --> NBCALO + NO2 ', & - ' NBCALO2 --> NBCALO ', & - ' NBCALO2 --> NBCALOH ', & - ' BCALOOA --> BCALOO ', & - ' BCALOOA --> C146O2 + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_236 = (/ & - ' BCLKET + NO3 --> C131CO3 + HNO3 ', & - ' BCLKET + OH --> BCLKAO2 ', & - ' BCLKET + OH --> BCLKBO2 ', & - ' BCLKET + OH --> BCLKCO2 ', & - ' BCLKET + OH --> C131CO3 ', & - ' BCLKET + OH --> C146O2 ', & - ' BCLKET --> C131O2 + CO + HO2 ', & - ' BCALO2 + HO2 --> BCALOOH ', & - ' BCALO2 + NO --> BCALNO3 ', & - ' BCALO2 + NO --> BCALO + NO2 ', & - ' BCALO2 + NO3 --> BCALO + NO2 ', & - ' BCALO2 --> BCALO ', & - ' BCALO2 --> BCALOH ', & - ' BCKSOZ + OH --> C131O2 ', & - ' BCKSZOO + CO --> BCKSOZ ', & - ' BCKSZOO + NO --> BCKSOZ + NO2 ', & - ' BCKSZOO + NO2 --> BCKSOZ + NO3 ', & - ' BCKSZOO + SO2 --> SO3 + BCKSOZ ', & - ' BCKSZOO --> BCKSOZ + H2O2 ', & - ' BCSOZO2 + HO2 --> BCSOZOOH ', & - ' BCSOZO2 + NO --> BCSOZNO3 ', & - ' BCSOZO2 + NO --> BCSOZO ', & - ' BCSOZO2 + NO3 --> BCSOZO ', & - ' BCSOZO2 --> BCSOZO ', & - ' BCSOZO2 --> BCSOZOH ', & - ' C131CO2H + OH --> C147O2 ', & - ' C141OOA --> C141OO ', & - ' C141OOA --> C147O2 + OH ', & - ' C151O2 + HO2 --> C151OOH ', & - ' C151O2 + NO --> C151NO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_237 = (/ & - ' C151O2 + NO --> C151O + NO2 ', & - ' C151O2 + NO3 --> C151O + NO2 ', & - ' C151O2 --> C151O ', & - ' C151O2 --> C151OH ', & - ' BCALAOOH + OH --> BCALACO + OH ', & - ' BCALAOOH --> BCALAO + OH ', & - ' BCALAOOH --> C126CHO + CH3CO3 + OH ', & - ' BCALAO --> C126CHO + CH3CO3 ', & - ' BCALACO + OH --> C126CHO + CH3CO3 ', & - ' BCALACO --> C126CO3 + CH3CO3 ', & - ' BCALAOH + OH --> BCALACO + HO2 ', & - ' BCALAOH --> C126CHO + CH3CO3 + HO2 ', & - ' BCALBOOH + OH --> BCALBCO + OH ', & - ' BCALBOOH --> BCALBO + OH ', & - ' BCALBOOH --> C136CO3 + HCHO + OH ', & - ' BCALBO --> C136CO3 + HCHO ', & - ' BCALBCO + OH --> C136CO3 + CO ', & - ' BCALBCO --> C136CO3 + CO + HO2 ', & - ' BCALBOH + OH --> BCALBCO + HO2 ', & - ' BCALBOH --> C136CO3 + HCHO + HO2 ', & - ' BCBOOA --> BCBOCOO ', & - ' BCBOOA --> C148O2 + OH ', & - ' BCLKBOC + OH --> C148O2 ', & - ' C152O2 + HO2 --> C152OOH ', & - ' C152O2 + NO --> C152NO3 ', & - ' C152O2 + NO --> C152O + NO2 ', & - ' C152O2 + NO3 --> C152O + NO2 ', & - ' C152O2 --> C152O ', & - ' C152O2 --> C152OH ', & - ' C136OOH + OH --> C126CHO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_238 = (/ & - ' C136OOH --> C136O + OH ', & - ' C136NO3 + OH --> C126CHO + NO2 ', & - ' C136NO3 --> C136O + NO2 ', & - ' C136O --> C1311O2 ', & - ' C126CHO + NO3 --> C126CO3 + HNO3 ', & - ' C126CHO + NO3 --> NC1313O2 ', & - ' C126CHO + O3 --> CH2OOF + C116CHO ', & - ' C126CHO + O3 --> C126OOA + HCHO ', & - ' C126CHO + OH --> C126CO3 ', & - ' C126CHO + OH --> C1313O2 ', & - ' C126CHO --> C126O2 + CO + HO2 ', & - ' C136OH + OH --> C126CHO + HO2 ', & - ' BCALCOOH + OH --> BCALCCO + OH ', & - ' BCALCOOH --> BCALCO + OH ', & - ' BCALCOOH --> C141CO + OH + CO + HO2 ', & - ' BCALCO --> C141CO + CO + HO2 ', & - ' BCALCCO + OH --> C144O2 + CO ', & - ' BCALCCO --> C144O2 + CO + HO2 ', & - ' BCALCOH + OH --> BCALCCO + HO2 ', & - ' BCALCOH --> C141CO + CO + 2 HO2 ', & - ' C141OOH + OH --> C141CO + OH ', & - ' C141OOH --> C141O + OH ', & - ' C141NO3 + OH --> C141CO + NO2 ', & - ' C141NO3 --> C141O + NO2 ', & - ' C141O --> C142O2 ', & - ' C141CO + OH --> C144O2 ', & - ' C141CO --> C144O + HO2 ', & - ' C141OH + OH --> C141CO + HO2 ', & - ' BCKET + NO3 --> NBCKO2 ', & - ' BCKET + O3 --> BCKAOO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_239 = (/ & - ' BCKET + O3 --> BCKBOO ', & - ' BCKET + O3 --> BCKOOA ', & - ' BCKET + O3 --> BCKOOB ', & - ' BCKET + OH --> BCKAO2 ', & - ' BCKET + OH --> BCKBO2 ', & - ' HOC2H4CO2H + OH --> HOCH2CH2O2 ', & - ' HOC2H4CO3H --> HOCH2CH2O2 + OH ', & - ' HOC2H4CO3H + OH --> HOC2H4CO3 ', & - ' C3PAN1 --> HOC2H4CO3 + NO2 ', & - ' C3PAN1 + OH --> HOCH2CHO + CO + NO2 ', & - ' HOIPRCO2H + OH --> HYPROPO2 ', & - ' HOIPRCO3H --> HYPROPO2 + OH ', & - ' HOIPRCO3H + OH --> HOIPRCO3 ', & - ' C4PAN4 --> HOIPRCO3 + NO2 ', & - ' C4PAN4 + OH --> ACETOL + CO + NO2 ', & - ' HO13C5OOH --> HO13C5O + OH ', & - ' HO13C5OOH + OH --> HO13CO4C5 + OH ', & - ' HO13C5NO3 --> HO13C5O + NO2 ', & - ' HO13C5NO3 + OH --> HO13CO4C5 + NO2 ', & - ' HO13C5O --> HOC2H4CHO + CH3CHO + HO2 ', & - ' HO134C5 + OH --> HO13CO4C5 + HO2 ', & - ' HO13CO4C5 --> HOC2H4CHO + CH3CO3 + HO2 ', & - ' HO13CO4C5 + OH --> HO1CO34C5 + HO2 ', & - ' HO3C4CO3H --> HO3C4O2 + OH ', & - ' HO3C4CO3H + OH --> HO3C4CO3 ', & - ' C5PAN8 --> HO3C4CO3 + NO2 ', & - ' C5PAN8 + OH --> HO3C3CHO + CO + NO2 ', & - ' C54OOH --> C54O + OH ', & - ' C54OOH + OH --> C54O2 ', & - ' C54OOH + OH --> H13C43CHO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_240 = (/ & - ' C54NO3 + OH --> H13C43CHO + NO2 ', & - ' C54O --> CO2C5OH + HO2 ', & - ' C54OH + OH --> H13C43CHO + HO2 ', & - ' H13C43CHO --> MEKAOH + CO + 2 HO2 ', & - ' H13C43CHO + NO3 --> H13C43CO3 + HNO3 ', & - ' H13C43CHO + OH --> H13C43CO3 ', & - ' H2M2C3CO3H --> TBUTOLO2 + OH ', & - ' H2M2C3CO3H + OH --> H2M2C3CO3 ', & - ' C5PAN11 --> H2M2C3CO3 + NO2 ', & - ' C5PAN11 + OH --> IBUTALOH + CO + NO2 ', & - ' PROL1MCO3H + OH --> PROL1MCO3 ', & - ' PROL1MCO3H --> MEK + OH + HO2 ', & - ' PROL1MPAN + OH --> MEK + CO + NO2 ', & - ' PROL1MPAN --> PROL1MCO3 + NO2 ', & - ' C56OOH --> C56O + OH ', & - ' C56OOH + OH --> C42CHO + OH ', & - ' C56OOH + OH --> C56O2 ', & - ' C56NO3 + OH --> C42CHO + NO2 ', & - ' C56O --> HOIPRCHO + HCHO + HO2 ', & - ' C42CHO --> HOIPRCHO + CO + 2 HO2 ', & - ' C42CHO + NO3 --> C42CO3 + HNO3 ', & - ' C42CHO + OH --> C42CO3 ', & - ' C56OH + OH --> C42CHO + HO2 ', & - ' HO2C43CO2H + OH --> BUT2OLO2 ', & - ' HO2C43CO3H --> BUT2OLO2 + OH ', & - ' HO2C43CO3H + OH --> HO2C43CO3 ', & - ' C5PAN14 --> HO2C43CO3 + NO2 ', & - ' C5PAN14 + OH --> BUT2OLO + CO + NO2 ', & - ' CHOC4CO3 + HO2 --> CHOC4CO3H ', & - ' CHOC4CO3 + HO2 --> CHOC4O2 + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_241 = (/ & - ' CHOC4CO3 + NO --> CHOC4O2 + NO2 ', & - ' CHOC4CO3 + NO2 --> CHOC4PAN ', & - ' CHOC4CO3 + NO3 --> CHOC4O2 + NO2 ', & - ' CHOC4CO3 --> CHOC4O2 ', & - ' C6DIALO2 + HO2 --> C6DIALOOH ', & - ' C6DIALO2 + NO --> C6DIALO + NO2 ', & - ' C6DIALO2 + NO3 --> C6DIALO + NO2 ', & - ' C6DIALO2 --> C6CODIAL ', & - ' C6DIALO2 --> C6DIALO ', & - ' C6DIALO2 --> C6DIALOH ', & - ' CHOC4O2 + HO2 --> CHOC4OOH ', & - ' CHOC4O2 + NO --> CHOC4O + NO2 ', & - ' CHOC4O2 + NO3 --> CHOC4O + NO2 ', & - ' CHOC4O2 --> CHOC4O ', & - 'CYC6DIONO2 + HO2 --> CY6DIONOOH ', & - ' CYC6DIONO2 + NO --> CYC6DIONO + NO2 ', & - 'CYC6DIONO2 + NO3 --> CYC6DIONO + NO2 ', & - ' CYC6DIONO2 --> CYC6DIONO ', & - ' MBKCOOHOOH + OH --> MIBKCOOHO2 ', & - ' MBKCOOHOOH --> MIBKCOOHO + OH ', & - ' MIBKCOOHO --> C5CO234 + HCHO + HO2 ', & - ' NC4OHCO3H + OH --> NC4OHCO3 ', & - ' NC4OHCO3H --> IBUTALOH + OH + NO2 ', & - ' NC4OHCPAN + OH --> IBUTALOH + CO + 2 NO2 ', & - ' NC4OHCPAN --> NC4OHCO3 + NO2 ', & - ' C4OH2CO3H + OH --> C4OH2CO3 ', & - ' C4OH2CO3H --> IBUTALOH + OH + HO2 ', & - ' C4OH2CPAN + OH --> IBUTALOH + CO + NO2 ', & - ' C4OH2CPAN --> C4OH2CO3 + NO2 ', & - ' CO2C3CO3H + OH --> CO2C3CO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_242 = (/ & - ' CO2C3CO3H --> CH3COCH2O2 + OH ', & - ' CO2C3PAN + OH --> MGLYOX + CO + NO2 ', & - ' CO2C3PAN --> CO2C3CO3 + NO2 ', & - ' HO2C3CO2H + OH --> IPROPOLO2 ', & - ' HO2C3CO3H --> IPROPOLO2 + OH ', & - ' HO2C3CO3H + OH --> HO2C3CO3 ', & - ' C4PAN3 --> HO2C3CO3 + NO2 ', & - ' C4PAN3 + OH --> CH3CHOHCHO + CO + NO2 ', & - ' PRPAL2CO2H + OH --> PROPALO2 ', & - ' PRPAL2CO2H --> PROPALO2 + HO2 ', & - ' PRPAL2CO3H + OH --> IBUDIALCO3 ', & - ' PRPAL2CO3H --> PROPALO2 + OH ', & - ' IBUDIALPAN + OH --> MGLYOX + CO + NO2 ', & - ' IBUDIALPAN --> IBUDIALCO3 + NO2 ', & - ' PROPALOOH + OH --> MGLYOX + OH ', & - ' PROPALOOH --> CH3CHO + OH + CO + HO2 ', & - ' PROPALOOH --> PROPALO + OH ', & - ' CO3C4CO2H --> MEKCO2 + HO2 ', & - ' CO3C4CO2H + OH --> MEKCO2 ', & - ' CO3C4CO3H --> MEKCO2 + OH ', & - ' CO3C4CO3H + OH --> CO3C4CO3 ', & - ' C5PAN16 --> CO3C4CO3 + NO2 ', & - ' C5PAN16 + OH --> EGLYOX + CO + NO2 ', & - ' HO1C4OOH --> HO1C4O + OH ', & - ' HO1C4OOH + OH --> HO1C4O2 ', & - ' HO1C4OOH + OH --> HOC3H6CHO + OH ', & - ' HO1C4NO3 --> HO1C4O + NO2 ', & - ' HO1C4NO3 + OH --> HOC3H6CHO + NO2 ', & - ' HO1C4O --> HOC3H6CHO + HO2 ', & - ' HOC3H6CHO --> HO1C3O2 + CO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_243 = (/ & - ' HOC3H6CHO + NO3 --> HOC3H6CO3 + HNO3 ', & - ' HOC3H6CHO + OH --> HOC3H6CO3 ', & - ' HOC4H8OH + OH --> HOC3H6CHO + HO2 ', & - ' A2PANO --> HOCH2CHO + HO2 ', & - ' C2OHOCO2H + OH --> C3DIOLO2 ', & - ' C2OHOCOOH + OH --> A2PANOO ', & - ' C2OHOCOOH --> C3DIOLO2 ', & - ' A2PAN + OH --> HOCH2CHO + CO + NO2 ', & - ' A2PAN --> A2PANOO + NO2 ', & - ' HCOCOHCO3H + OH --> HCOCOHCO3 ', & - ' HCOCOHCO3H --> GLYOX + OH + HO2 ', & - ' HCOCOHPAN + OH --> GLYOX + CO + NO2 ', & - ' HCOCOHPAN --> HCOCOHCO3 + NO2 ', & - ' HCOCO3H --> OH + CO + HO2 ', & - ' HCOCO3H + OH --> HCOCO3 ', & - ' CONM2CO3 + HO2 --> CONM2CO2H + O3 ', & - ' CONM2CO3 + HO2 --> CONM2CO3H ', & - ' CONM2CO3 + HO2 --> MGLYOX + OH + NO2 ', & - ' CONM2CO3 + NO --> MGLYOX + 2 NO2 ', & - ' CONM2CO3 + NO2 --> CONM2PAN ', & - ' CONM2CO3 + NO3 --> MGLYOX + 2 NO2 ', & - ' CONM2CO3 --> CONM2CO2H ', & - ' CONM2CO3 --> MGLYOX + NO2 ', & - ' MACRNCO2H + OH --> ACETOL + NO2 ', & - ' MACRNCO2H + OH --> CONM2CO2H + HO2 ', & - ' MACRNCO3H + OH --> CONM2CO3H + HO2 ', & - ' MACRNCO3H + OH --> MACRNCO3 ', & - ' MACRNCO3H --> ACETOL + OH + NO2 ', & - ' MACRNPAN + OH --> CONM2PAN + HO2 ', & - ' MACRNPAN --> MACRNCO3 + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_244 = (/ & - ' MACRNBCO2H + OH --> COHM2CO2H + NO2 ', & - ' MACRNBCO2H + OH --> NOA + HO2 ', & - ' MACRNBCO3H + OH --> COHM2CO3H + NO2 ', & - ' MACRNBCO3H + OH --> MACRNBCO3 ', & - ' MACRNBCO3H --> NOA + OH + HO2 ', & - ' MACRNBPAN + OH --> COHM2PAN + NO2 ', & - ' MACRNBPAN --> MACRNBCO3 + NO2 ', & - ' CHOMOHCO3H + OH --> CHOMOHCO3 ', & - ' CHOMOHCO3H --> MGLYOX + OH + HO2 ', & - ' CHOMOHPAN + OH --> MGLYOX + CO + NO2 ', & - ' CHOMOHPAN --> CHOMOHCO3 + NO2 ', & - ' CO2H3CO3H --> HCOCO3H + CH3CO3 + HO2 ', & - ' CO2H3CO3H --> MGLYOX + OH + HO2 ', & - ' CO2H3CO3H + OH --> CO2H3CO3 ', & - ' C4PAN6 --> CO2H3CO3 + NO2 ', & - ' C4PAN6 + OH --> MGLYOX + CO + NO2 ', & - ' HO1C5OOH --> HO1C5O + OH ', & - ' HO1C5OOH + OH --> CO2C5OH + OH ', & - ' HO1C5NO3 --> HO1C5O + NO2 ', & - ' HO1C5NO3 + OH --> CO2C5OH + NO2 ', & - ' HO1C5O --> HO2C4CHO + HO2 ', & - ' CO2C5OH --> HO1C3O2 + CH3CO3 ', & - ' CO2C5OH + OH --> C51O2 ', & - ' CO2C5OH + OH --> CO2C4CHO + HO2 ', & - ' HO2C5OH + OH --> CO2C5OH + HO2 ', & - ' HO2C5OOH --> HO2C5O + OH ', & - ' HO2C5OOH + OH --> HO2C4CHO + OH ', & - ' HO2C5OOH + OH --> HO2C5O2 ', & - ' HO2C5NO3 --> HO2C5O + NO2 ', & - ' HO2C5NO3 + OH --> HO2C4CHO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_245 = (/ & - ' HO2C5O --> CO2C5OH + HO2 ', & - ' HO2C4CHO --> HO2C4O2 + CO + HO2 ', & - ' HO2C4CHO + NO3 --> HO2C4CO3 + HNO3 ', & - ' HO2C4CHO + OH --> HO2C4CO3 ', & - ' C52OOH --> C52O + OH ', & - ' C52OOH + OH --> C52O2 ', & - ' C52OOH + OH --> HOIBUTCHO + OH ', & - ' C52NO3 --> C52O + NO2 ', & - ' C52NO3 + OH --> HOIBUTCHO + NO2 ', & - ' C52O --> HOBUT2CHO + HO2 ', & - ' C52OH + OH --> HOBUT2CHO + HO2 ', & - ' C52OH + OH --> HOIBUTCHO + HO2 ', & - ' HOIBUTCHO --> IBUTOLCO2 + CO + HO2 ', & - ' HOIBUTCHO + NO3 --> HOIBUTCO3 + HNO3 ', & - ' HOIBUTCHO + OH --> HOIBUTCO3 ', & - ' TBUTCO3H + OH --> TBUTCO3 ', & - ' TBUTCO3H --> TC4H9O2 + OH ', & - ' C5PAN6 --> TBUTCO3 + NO2 ', & - ' C5PAN6 + OH --> CH3COCH3 + HCHO + CO + NO2 ', & - ' HO1C6OOH --> HO1C6O + OH ', & - ' HO1C6OOH + OH --> HO1CO4C6 + OH ', & - ' HO1C6NO3 --> HO1C6O + NO2 ', & - ' HO1C6NO3 + OH --> HO1CO4C6 + NO2 ', & - ' HO1C6O --> HO3C5CHO + HO2 ', & - ' HO14C6 + OH --> HO1CO4C6 + HO2 ', & - ' HO1CO4C6 --> HO1C3O2 + C2H5CO3 ', & - ' HO1CO4C6 --> HOC3H6CO3 + C2H5O2 ', & - ' HO1CO4C6 + OH --> C63O2 ', & - ' HO1CO4C6 + OH --> CO3C5CHO + HO2 ', & - ' C5H11CO3H --> PEAO2 + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_246 = (/ & - ' C5H11CO3H + OH --> C5H11CO3 ', & - ' PHXN + OH --> C4H9CHO + CO + NO2 ', & - ' PHXN --> C5H11CO3 + NO2 ', & - ' HO2C6OOH --> HO2C6O + OH ', & - ' HO2C6OOH + OH --> HO2CO5C6 + OH ', & - ' HO2C6NO3 --> HO2C6O + NO2 ', & - ' HO2C6NO3 + OH --> HO2CO5C6 + NO2 ', & - ' HO2C6O --> HO2CO5C6 + HO2 ', & - ' HO25C6 + OH --> HO2CO5C6 + HO2 ', & - ' HO3C6OOH --> HO3C6O + OH ', & - ' HO3C6OOH + OH --> HO3C5CHO + OH ', & - ' HO3C6OOH + OH --> HO3C6O2 ', & - ' HO3C6NO3 --> HO3C6O + NO2 ', & - ' HO3C6NO3 + OH --> HO3C5CHO + NO2 ', & - ' HO3C6O --> HO1CO4C6 + HO2 ', & - ' HO3C5CHO --> HO3C5O2 + CO + HO2 ', & - ' HO3C5CHO + NO3 --> HO3C5CO3 + HNO3 ', & - ' HO3C5CHO + OH --> CO3C5CHO + HO2 ', & - ' HO3C5CHO + OH --> HO3C5CO3 ', & - ' HO1MC5OOH --> HO1MC5O + OH ', & - ' HO1MC5OOH + OH --> CO2MC5OH + OH ', & - ' HO1MC5NO3 --> HO1MC5O + NO2 ', & - ' HO1MC5NO3 + OH --> CO2MC5OH + NO2 ', & - ' HO1MC5O --> HO2C54CHO + HO2 ', & - ' CO2MC5OH --> IBUTOLCO2 + CH3CO3 ', & - ' CO2MC5OH + OH --> C64O2 ', & - ' CO2MC5OH + OH --> CO2C54CHO + HO2 ', & - ' HO14MC5 + OH --> CO2MC5OH ', & - ' C54CO3H --> PEBO2 + OH ', & - ' C54CO3H + OH --> C54CO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_247 = (/ & - ' C6PAN3 --> C54CO3 + NO2 ', & - ' C6PAN3 + OH --> MPRK + CO + NO2 ', & - ' HO2MC5OOH --> HO2MC5O + OH ', & - ' HO2MC5OOH + OH --> HO2C54CHO + OH ', & - ' HO2MC5OOH + OH --> HO2MC5O2 ', & - ' HO2MC5NO3 --> HO2MC5O + NO2 ', & - ' HO2MC5NO3 + OH --> HO2C54CHO + NO2 ', & - ' HO2MC5O --> CO2MC5OH + HO2 ', & - ' HO2C54CHO --> HO2C54O2 + CO + HO2 ', & - ' HO2C54CHO + NO3 --> HO2C54CO3 + HNO3 ', & - ' HO2C54CHO + OH --> CO2C54CHO + HO2 ', & - ' HO2C54CHO + OH --> HO2C54CO3 ', & - ' EIPKAOOH --> CH3COCH3 + C2H5CO3 + OH ', & - ' EIPKAOOH --> EIPKAO + OH ', & - ' EIPKAOOH + OH --> EIPKAO2 ', & - ' EIPKAO --> CH3COCH3 + C2H5CO3 ', & - ' EIPKAOH --> CH3COCH3 + C2H5CO3 + HO2 ', & - ' EIPKAOH + OH --> EIPKAO ', & - ' EIPKBOOH --> EIPKBO + OH ', & - ' EIPKBOOH + OH --> CO3C54CHO + OH ', & - ' EIPKBNO3 --> EIPKBO + NO2 ', & - ' EIPKBNO3 + OH --> CO3C54CHO + NO2 ', & - ' EIPKBO --> C66O2 ', & - ' CO3C54CHO --> DIEKAO2 + CO + HO2 ', & - ' CO3C54CHO + NO3 --> CO3C54CO3 + HNO3 ', & - ' CO3C54CHO + OH --> CO3C54CO3 ', & - ' EIPKBOH --> HYPROPO2 + C2H5CO3 ', & - ' EIPKBOH + OH --> CO3C54CHO + HO2 ', & - ' HO2M2C5OOH --> HO2M2C5O + OH ', & - ' HO2M2C5OOH + OH --> H2M2C4CHO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_248 = (/ & - ' HO2M2C5OOH + OH --> HO2M2C5O2 ', & - ' HO2M2C5NO3 --> HO2M2C5O + NO2 ', & - ' HO2M2C5NO3 + OH --> H2M2C4CHO + NO2 ', & - ' HO2M2C5O --> H2M2C4CHO + HO2 ', & - ' H2M2C4CHO --> HO2M2C4O2 + CO + HO2 ', & - ' H2M2C4CHO + NO3 --> H2M2C4CO3 + HNO3 ', & - ' H2M2C4CHO + OH --> C67O2 ', & - ' H2M2C4CHO + OH --> H2M2C4CO3 ', & - ' HO2M2C5OH + OH --> H2M2C4CHO + HO2 ', & - ' H1MC5OOH --> H1MC5O + OH ', & - ' H1MC5OOH + OH --> CO2M3C5OH + OH ', & - ' H1MC5NO3 --> H1MC5O + NO2 ', & - ' H1MC5NO3 + OH --> CO2M3C5OH + NO2 ', & - ' H1MC5O --> H2M3C4CHO + HO2 ', & - ' CO2M3C5OH --> NBUTOLBO2 + CH3CO3 ', & - ' CO2M3C5OH + OH --> C610O2 ', & - ' CO2M3C5OH + OH --> CO2M3C4CHO + HO2 ', & - ' HO14M3C5 + OH --> CO2M3C5OH ', & - ' M3C4CO3H --> IPEAO2 + OH ', & - ' M3C4CO3H + OH --> M3C4CO3 ', & - ' C6PAN10 --> M3C4CO3 + NO2 ', & - ' C6PAN10 + OH --> BUT2CHO + CO + NO2 ', & - ' H2MC5OOH --> H2MC5O + OH ', & - ' H2MC5OOH + OH --> H2M3C4CHO + OH ', & - ' H2MC5OOH + OH --> H2MC5O2 ', & - ' H2MC5NO3 --> H2MC5O + NO2 ', & - ' H2MC5NO3 + OH --> H2M3C4CHO + NO2 ', & - ' H2MC5O --> CO2M3C5OH + HO2 ', & - ' H2M3C4CHO --> H2M3C4O2 + CO + HO2 ', & - ' H2M3C4CHO + NO3 --> H2M3C4CO3 + HNO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_249 = (/ & - ' H2M3C4CHO + OH --> C68O2 ', & - ' H2M3C4CHO + OH --> H2M3C4CO3 ', & - ' M2BKAOOH --> M2BKAO + OH ', & - ' M2BKAOOH + OH --> CO24M3C5 + OH ', & - ' M2BKANO3 --> M2BKAO + NO2 ', & - ' M2BKANO3 + OH --> CO24M3C5 + NO2 ', & - ' M2BKAO --> C69O2 ', & - ' M2BKAO --> CO24M3C5 + HO2 ', & - ' CO24M3C5 --> MEKBO2 + CH3CO3 ', & - ' CO24M3C5 + OH --> C611O2 ', & - ' M2BKAOH + OH --> CO24M3C5 + HO2 ', & - ' M2BKBOOH --> M2BKBO + OH ', & - ' M2BKBOOH + OH --> M2BKBO2 ', & - ' M2BKBO --> MEK + CH3CO3 ', & - ' M2BKBOH --> MEK + CH3CO3 + HO2 ', & - ' M2BKBOH + OH --> M2BKBO ', & - ' HM33C4OOH --> HM33C4O + OH ', & - ' HM33C4OOH + OH --> HM33C3CHO + OH ', & - ' HM33C4OOH + OH --> HM33C4O2 ', & - ' HM33C4NO3 --> HM33C4O + NO2 ', & - ' HM33C4NO3 + OH --> HM33C3CHO + NO2 ', & - ' HM33C4O --> HM22C3CHO + HO2 ', & - ' HM33C3CHO --> HM33C3O2 + CO + HO2 ', & - ' HM33C3CHO + NO3 --> HM33C3CO3 + HNO3 ', & - ' HM33C3CHO + OH --> HM33C3CO3 ', & - ' HM33C4OH + OH --> HM22C3CHO + HO2 ', & - ' HM33C4OH + OH --> HM33C3CHO + HO2 ', & - ' M22C3CO3H --> NEOPO2 + OH ', & - ' M22C3CO3H + OH --> M22C3CO3 ', & - ' C6PAN17 --> M22C3CO3 + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_250 = (/ & - ' C6PAN17 + OH --> TBUTCHO + CO + NO2 ', & - ' HM22C4OOH --> HM22C4O + OH ', & - ' HM22C4OOH + OH --> HM22C3CHO + OH ', & - ' HM22C4OOH + OH --> HM22C4O2 ', & - ' HM22C4NO3 --> HM22C4O + NO2 ', & - ' HM22C4NO3 + OH --> HM22C3CHO + NO2 ', & - ' HM22C4O --> HM33C3CHO + HO2 ', & - ' HM22C3CHO --> HM22C3O2 + CO + HO2 ', & - ' HM22C3CHO + NO3 --> HM22C3CO3 + HNO3 ', & - ' HM22C3CHO + OH --> HM22C3CO3 ', & - ' M33C3CO2H + OH --> IPECO2 ', & - ' M33C3CO3H --> IPECO2 + OH ', & - ' M33C3CO3H + OH --> M33C3CO3 ', & - ' C6PAN15 --> M33C3CO3 + NO2 ', & - ' C6PAN15 + OH --> MEK + HCHO + CO + NO2 ', & - ' HM23C4OOH --> HM23C4O + OH ', & - ' HM23C4OOH + OH --> HM23C4O2 ', & - ' HM23C4OOH + OH --> HM2C43CHO + OH ', & - ' HM23C4NO3 --> HM23C4O + NO2 ', & - ' HM23C4NO3 + OH --> HM2C43CHO + NO2 ', & - ' HM23C4O --> HM2C43CHO + HO2 ', & - ' HM23C4OH + OH --> HM2C43CHO + HO2 ', & - ' HM2C43CHO --> HM2C43O2 + CO + HO2 ', & - ' HM2C43CHO + NO3 --> HM2C43CO3 + HNO3 ', & - ' HM2C43CHO + OH --> HM2C43CO3 ', & - ' M2C43CO2H + OH --> IPEBO2 ', & - ' M2C43CO3H --> IPEBO2 + OH ', & - ' M2C43CO3H + OH --> M2C43CO3 ', & - ' C6PAN18 --> M2C43CO3 + NO2 ', & - ' C6PAN18 + OH --> MIPK + CO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_251 = (/ & - ' HO3C76OOH --> HO3C76O + OH ', & - ' HO3C76OOH + OH --> HO3CO6C7 + OH ', & - ' HO3C76NO3 --> HO3C76O + NO2 ', & - ' HO3C76NO3 + OH --> HO3CO6C7 + NO2 ', & - ' HO3C76O --> HO2CO5C7 + HO2 ', & - ' HO25C7 + OH --> HO2CO5C7 + HO2 ', & - ' HO3CO6C7 --> HO3C5O2 + CH3CO3 ', & - ' HO3CO6C7 + OH --> CO25C7 + HO2 ', & - ' CO3C75OOH --> CO3C75O + OH ', & - ' CO3C75OOH + OH --> CO3C75O2 ', & - ' CO3C75O --> C71O2 ', & - ' H2M5C65OOH --> H2M5C65O + OH ', & - ' H2M5C65OOH + OH --> H2M5C65O2 ', & - ' H2M5C65NO3 --> H2M5C65O + NO2 ', & - ' H2M5C65NO3 + OH --> HO2C3CHO + CH3COCH3 + NO2 ', & - ' H2M5C65O --> H2M2CO5C6 + HO2 ', & - ' H25M2C6 + OH --> H2M2CO5C6 + HO2 ', & - ' C75OOH --> C75O + OH ', & - ' C75OOH + OH --> C75O2 ', & - ' C75O --> C76O2 ', & - ' H2M2C65OOH --> H2M2C65O + OH ', & - ' H2M2C65OOH + OH --> H2M2CO5C6 + OH ', & - ' H2M2C65NO3 --> H2M2C65O + NO2 ', & - ' H2M2C65NO3 + OH --> H2M2CO5C6 + NO2 ', & - ' H2M2C65O --> H2M2CO5C6 + HO2 ', & - ' H2M2C65O --> HO2M2C4O2 + CH3CHO ', & - ' H2M2CO5C6 --> HO2M2C4O2 + CH3CO3 ', & - ' H2M2CO5C6 + OH --> C77O2 ', & - ' H2M2CO5C6 + OH --> C78O2 ', & - ' H2M4C65OOH --> H2M4C65O + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_252 = (/ & - ' H2M4C65OOH + OH --> H2M4CO5C6 + OH ', & - ' H2M4C65NO3 --> H2M4C65O + NO2 ', & - ' H2M4C65NO3 + OH --> H2M4CO5C6 + NO2 ', & - ' H2M4C65O --> H2M3CO5C6 + HO2 ', & - ' H25M3C6 + OH --> H2M3CO5C6 + HO2 ', & - ' H25M3C6 + OH --> H2M4CO5C6 + HO2 ', & - ' H2M4CO5C6 + OH --> M3CO25C6 + HO2 ', & - ' H2M4CO5C6 --> HO2C54O2 + CH3CO3 ', & - ' C710OOH --> C710O + OH ', & - ' C710OOH + OH --> C710O2 ', & - ' C710O --> C711O2 ', & - ' H3M3C6OOH + OH --> H3M3C5CHO + OH ', & - ' H3M3C6OOH + OH --> H3M3C6O2 ', & - ' H3M3C6NO3 --> H3M3C6O + NO2 ', & - ' H3M3C6NO3 + OH --> H3M3C5CHO + NO2 ', & - ' H3M3C6O --> H3M3C5CHO + HO2 ', & - ' H14M4C6 + OH --> H3M3C5CHO + HO2 ', & - ' H3M3C5CHO --> H3M3C5O2 + CO + HO2 ', & - ' H3M3C5CHO + NO3 --> H3M3C5CO3 + HNO3 ', & - ' H3M3C5CHO + OH --> H3M3C5CO3 ', & - ' HO3C86OOH --> HO3C86O + OH ', & - ' HO3C86OOH + OH --> HO3CO6C8 + OH ', & - ' HO3C86NO3 --> HO3C86O + NO2 ', & - ' HO3C86NO3 + OH --> HO3CO6C8 + NO2 ', & - ' HO3C86O --> HO3CO6C8 + HO2 ', & - ' HO36C8 + OH --> HO3CO6C8 + HO2 ', & - ' HO3CO6C8 --> C2H5CO3 + HO3C5O2 ', & - ' HO3CO6C8 + OH --> C82O2 ', & - ' HO3CO6C8 + OH --> CO36C8 + HO2 ', & - ' CO3C85OOH --> CO3C85O + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_253 = (/ & - ' CO3C85OOH + OH --> CO3C85O2 ', & - ' CO3C85O --> C81O2 ', & - ' HO3C96OOH --> HO3C96O + OH ', & - ' HO3C96OOH + OH --> HO4CO7C9 + OH ', & - ' HO3C96NO3 --> HO3C96O + NO2 ', & - ' HO3C96NO3 + OH --> HO4CO7C9 + NO2 ', & - ' HO3C96O --> HO4CO7C9 + HO2 ', & - ' HO36C9 + OH --> HO4CO7C9 + HO2 ', & - ' HO4CO7C9 --> HO5C6O2 + C2H5CO3 ', & - ' HO4CO7C9 + OH --> C93O2 ', & - ' HO4CO7C9 + OH --> CO36C9 + HO2 ', & - ' C91OOH --> C91O + OH ', & - ' C91OOH + OH --> C91O2 ', & - ' C91O --> C92O2 ', & - ' HO3C106OOH --> HO3C106O + OH ', & - ' HO3C106OOH + OH --> HO5CO8C10 + OH ', & - ' HO3C106NO3 --> HO3C106O + NO2 ', & - ' HO3C106NO3 + OH --> HO5CO8C10 + NO2 ', & - ' HO3C106O --> HO5CO8C10 + HO2 ', & - ' HO36C10 + OH --> HO5CO8C10 + HO2 ', & - ' HO5CO8C10 --> HO6C7O2 + C2H5CO3 ', & - ' HO5CO8C10 + OH --> C103O2 ', & - ' HO5CO8C10 + OH --> CO36C10 + HO2 ', & - ' C101OOH --> C101O + OH ', & - ' C101OOH + OH --> C101O2 ', & - ' C101O --> C102O2 ', & - ' HO3C116OOH --> HO3C116O + OH ', & - ' HO3C116OOH + OH --> HO6CO9C11 + OH ', & - ' HO3C116NO3 --> HO3C116O + NO2 ', & - ' HO3C116NO3 + OH --> HO6CO9C11 + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_254 = (/ & - ' HO3C116O --> HO6CO9C11 + HO2 ', & - ' HO36C11 + OH --> HO6CO9C11 + HO2 ', & - ' HO6CO9C11 --> HO7C8O2 + C2H5CO3 ', & - ' HO6CO9C11 + OH --> C113O2 ', & - ' HO6CO9C11 + OH --> CO36C11 + HO2 ', & - ' C111OOH --> C111O + OH ', & - ' C111OOH + OH --> C111O2 ', & - ' C111O --> C112O2 ', & - ' HO3C126OOH --> HO3C126O + OH ', & - ' HO3C126OOH + OH --> HO7CO10C12 + OH ', & - ' HO3C126NO3 --> HO3C126O + NO2 ', & - ' HO3C126NO3 + OH --> HO7CO10C12 + NO2 ', & - ' HO3C126O --> HO7CO10C12 + HO2 ', & - ' HO36C12 + OH --> HO7CO10C12 + HO2 ', & - ' HO7CO10C12 --> HO8C9O2 + C2H5CO3 ', & - ' HO7CO10C12 + OH --> C123O2 ', & - ' HO7CO10C12 + OH --> CO36C12 + HO2 ', & - ' C121OOH --> C121O + OH ', & - ' C121OOH + OH --> C121O2 ', & - ' C121O --> C122O2 ', & - ' CO1C6OOH + OH --> C6DIAL + OH ', & - ' CO1C6OOH --> CO1C6O + OH ', & - ' CO1C6NO3 + OH --> C6DIAL + NO2 ', & - ' CO1C6NO3 --> CO1C6O + NO2 ', & - ' CO1C6O --> CO1H63O2 ', & - ' CO1C6OH + OH --> C6DIAL + HO2 ', & - ' NO3CH2CO2H + OH --> HCHO + NO2 ', & - ' NO3CH2CO3H + OH --> NO3CH2CO3 ', & - ' NO3CH2CO3H --> HCHO + OH + NO2 ', & - ' NO3CH2PAN + OH --> HCHO + CO + 2 NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_255 = (/ & - ' NO3CH2PAN --> NO3CH2CO3 + NO2 ', & - ' PRNO3CO2H + OH --> CH3CHO + NO2 ', & - ' PRNO3CO3H + OH --> PRNO3CO3 ', & - ' PRNO3CO3H --> CH3CHO + OH + NO2 ', & - ' PRNO3PAN + OH --> CH3CHO + CO + 2 NO2 ', & - ' PRNO3PAN --> PRNO3CO3 + NO2 ', & - ' COC4NO3OOH + OH --> CO3C4NO3O2 ', & - ' COC4NO3OOH --> CO3C4NO3O + OH ', & - ' CO3C4NO3O --> NO3CH2CO3 + CH3CHO ', & - ' CO23C4NO3 + OH --> CO23C3CHO + NO2 ', & - ' CO23C4NO3 --> NO3CH2CO3 + CH3CO3 ', & - ' CO3C4NO3OH + OH --> CO23C4NO3 + HO2 ', & - ' CO3C4NO3OH --> HO2CO3C4O + NO2 ', & - ' HO3C3CO3H + OH --> HO3C3CO3 ', & - ' HO3C3CO3H --> C2H5CHO + OH + HO2 ', & - ' HO3C3PAN + OH --> C2H5CHO + CO + NO2 ', & - ' HO3C3PAN --> HO3C3CO3 + NO2 ', & - ' MPRNO3CO2H + OH --> CH3COCH3 + NO2 ', & - ' MPRNO3CO3H + OH --> MPRBNO3CO3 ', & - ' MPRNO3CO3H --> CH3COCH3 + OH + NO2 ', & - ' MPRBNO3PAN + OH --> CH3COCH3 + CO + 2 NO2 ', & - ' MPRBNO3PAN --> MPRBNO3CO3 + NO2 ', & - ' C5NO3OAOOH + OH --> C5NO3COAO2 ', & - ' C5NO3OAOOH --> C5NO3COAO + OH ', & - ' C5NO3COAO --> HO2CO4CHO + NO2 ', & - ' C51NO324CO + OH --> CO24C4CHO + NO2 ', & - ' C51NO324CO --> C5CO24O + NO2 ', & - ' C51NO324CO --> C3NO3COO2 + CH3CO3 ', & - ' C5NO3CO4OH + OH --> C51NO324CO + HO2 ', & - ' C5NO3CO4OH --> HO2CO4C5O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_256 = (/ & - ' C4NO3CO2H + OH --> C3H7CHO + NO2 ', & - ' C4NO3CO3H + OH --> C4NO3CO3 ', & - ' C4NO3CO3H --> C3H7CHO + OH + NO2 ', & - ' C4NO3PAN + OH --> C3H7CHO + CO + 2 NO2 ', & - ' C4NO3PAN --> C4NO3CO3 + NO2 ', & - ' C5OHCO4OOH + OH --> C5OH2CO4O2 ', & - ' C5OHCO4OOH --> C5OH2CO4O + OH ', & - ' C5OHCO4OOH --> IC3H7O2 + HOCH2CO3 ', & - ' C5OH2CO4O --> HO1CO24C5 + HO2 ', & - ' C4OHCO3H + OH --> C4OHCO3 ', & - ' C4OHCO3H --> C3H7CHO + OH + HO2 ', & - ' C4OHPAN + OH --> C3H7CHO + CO + NO2 ', & - ' C4OHPAN --> C4OHCO3 + NO2 ', & - ' C5NO3O4OOH + OH --> C5NO3CO4O2 ', & - ' C5NO3O4OOH --> C5NO3CO4O + OH ', & - ' C5NO3CO4O --> 2 CH3CHO + CO + NO2 ', & - ' C5ONO34OOH + OH --> C5CONO34O2 ', & - ' C5ONO34OOH --> C5CONO34O + OH ', & - ' C5CONO34O --> C53NO324CO + HO2 ', & - ' C5CONO34O --> CH3CHO + MGLYOX + NO2 ', & - ' C43NO3CO2H + OH --> MEK + NO2 ', & - ' C43NO3CO3H + OH --> C43NO3CO3 ', & - ' C43NO3CO3H --> MEK + OH + NO2 ', & - ' C43NO3PAN + OH --> MEK + CO + 2 NO2 ', & - ' C43NO3PAN --> C43NO3CO3 + NO2 ', & - ' C5CONO3OOH + OH --> C4MCONO3O2 ', & - ' C5CONO3OOH --> C4MCONO3O + OH ', & - ' C3MNO3CO2H + OH --> IPRCHO + NO2 ', & - ' C3MNO3CO3H + OH --> C3MNO3CO3 ', & - ' C3MNO3CO3H --> IPRCHO + OH + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_257 = (/ & - ' C3MNO3PAN + OH --> IPRCHO + CO + 2 NO2 ', & - ' C3MNO3PAN --> C3MNO3CO3 + NO2 ', & - ' C3M3OHCO3H + OH --> C3M3OH2CO3 ', & - ' C3M3OHCO3H --> IPRCHO + OH + HO2 ', & - ' C3M3OH2PAN + OH --> IPRCHO + CO + NO2 ', & - ' C3M3OH2PAN --> C3M3OH2CO3 + NO2 ', & - ' C4MCNO3OOH + OH --> C4M22CONO3 + OH ', & - ' C4MCNO3OOH + OH --> MC4CONO3O2 ', & - ' C4MCNO3OOH --> MC4CONO3O + OH ', & - ' MC4CONO3O --> BIACET + HCHO + NO2 ', & - ' MC4CONO3O --> C4M22CONO3 + HO2 ', & - ' C65NO3CO2H + OH --> C4H9CHO + NO2 ', & - ' C65NO3CO3H + OH --> C65NO36CO3 ', & - ' C65NO3CO3H --> C4H9CHO + OH + NO2 ', & - ' C65NO3PAN + OH --> C4H9CHO + CO + 2 NO2 ', & - ' C65NO3PAN --> C65NO36CO3 + NO2 ', & - ' C6NO3COOOH + OH --> MNO3COC4O2 ', & - ' C6NO3COOOH --> MNO3COC4O + OH ', & - ' MNO3COC4O --> C43OHCOCHO + NO2 ', & - ' C6NO324CO + OH --> CO3C4CO3 + HCHO + NO2 ', & - ' C6NO324CO --> C3NO3COO2 + C2H5CO3 ', & - ' C6NO324CO --> CO3C4CO3 + HCHO + NO2 ', & - ' C6NO3CO4OH + OH --> C6NO324CO + HO2 ', & - ' C6NO3CO4OH --> CO2HOC61O + NO2 ', & - ' C4COMOHOOH + OH --> HO1CO24C6 + OH ', & - ' C4COMOHOOH --> C4COMOH3O + OH ', & - ' C4COMOH3O --> C43OHCOCHO + HO2 ', & - ' C4COMOH3OH + OH --> HO1CO24C6 + HO2 ', & - ' C4COMOH3OH --> HO3C4O2 + HOCH2CO3 ', & - ' HO1CO24C6 --> MEKCO2 + HOCH2CO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_258 = (/ & - ' HO1CO24C6 + OH --> CO35C5CHO + HO2 ', & - ' HO5C5CO3H --> C4H9CHO + OH + HO2 ', & - ' HO5C5CO3H + OH --> HO5C5CO3 ', & - ' C6PAN23 --> HO5C5CO3 + NO2 ', & - ' C6PAN23 + OH --> C4H9CHO + CO + NO2 ', & - ' C6CONO3OOH + OH --> C62NO335CO + OH ', & - ' C6CONO3OOH --> C6NO3CO5O + OH ', & - ' C6NO3CO5O --> C6CO23HO5 + NO2 ', & - ' C62NO335CO + OH --> CO235C6 + NO2 ', & - ' C62NO335CO --> CO2C3CO3 + CH3CHO + NO2 ', & - ' C6NO3CO5OH + OH --> C62NO335CO + HO2 ', & - ' C6NO3CO5OH --> C6CO3OH5O + NO2 ', & - ' CONO3C6OOH + OH --> C64NO335CO + OH ', & - ' CONO3C6OOH + OH --> C6CONO34O2 ', & - ' CONO3C6OOH --> C6CONO34O + OH ', & - ' C6CONO34O --> C2H5CHO + MGLYOX + NO2 ', & - ' C6CONO34O --> C64NO335CO + HO2 ', & - ' C64NO335CO + OH --> CO234C6 + NO2 ', & - ' C64NO335CO --> C2H5CO3 + MGLYOX + NO2 ', & - ' C6CONO34OH + OH --> C64NO335CO + HO2 ', & - ' C6CONO34OH --> HO3C3CHO + CH3CO3 + NO2 ', & - ' NBZFUO2 + HO2 --> NBZFUOOH ', & - ' NBZFUO2 + NO --> NBZFUO + NO2 ', & - ' NBZFUO2 + NO3 --> NBZFUO + NO2 ', & - ' NBZFUO2 --> NBZFUO ', & - ' BZFUONOOA --> BZFUONOO ', & - ' BZFUONOOA --> HCOCH2O2 + OH + CO ', & - ' BZFUO2 + HO2 --> BZFUOOH ', & - ' BZFUO2 + NO --> BZFUO + NO2 ', & - ' BZFUO2 + NO3 --> BZFUO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_259 = (/ & - ' BZFUO2 --> BZFUCO ', & - ' BZFUO2 --> BZFUO ', & - ' BZFUO2 --> BZFUOH ', & - ' MALDALCO2H + OH --> MALDIALCO2 ', & - ' MALDALCO2H --> HCOCO2H + 2 CO + 2 HO2 ', & - ' MALDALCO3H + OH --> MALDIALCO3 ', & - ' MALDALCO3H --> HCOCO3H + 2 CO + 2 HO2 ', & - ' MALDALCO3H --> MALDIALCO2 + OH ', & - ' MALDIALCO2 --> GLYOX + CO + HO2 ', & - ' MALDIALCO2 --> MALANHY + HO2 ', & - ' MALDIALPAN + OH --> GLYOX + 2 CO + NO2 ', & - ' MALDIALPAN --> MALDIALCO3 + NO2 ', & - ' EPXDLCO2H + OH --> C3DIALO2 ', & - ' EPXDLCO2H --> C3DIALO2 + HO2 ', & - ' EPXDLCO3H + OH --> EPXDLCO3 ', & - ' EPXDLCO3H --> C3DIALO2 + OH ', & - ' EPXDLPAN + OH --> C33CO + CO + NO2 ', & - ' EPXDLPAN --> EPXDLCO3 + NO2 ', & - ' C3DIALOOH + OH --> C33CO + OH ', & - ' C3DIALOOH --> C3DIALO + OH ', & - ' C3DIALOOH --> GLYOX + OH + CO + HO2 ', & - ' C3DIALO --> GLYOX + CO + HO2 ', & - ' C33CO + OH --> 3 CO + HO2 ', & - ' C33CO --> 3 CO + 2 HO2 ', & - ' MALDIALOOH + OH --> HOCOC4DIAL + OH ', & - ' MALDIALOOH + OH --> MALDIALO2 ', & - ' MALDIALOOH --> C32OH13CO + OH + CO + HO2 ', & - ' MALDIALOOH --> MALDIALO + OH ', & - ' MALDIALO --> 2 GLYOX + HO2 ', & - ' HOCOC4DIAL + OH --> CO2C4DIAL + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_260 = (/ & - ' HOCOC4DIAL --> HCOCOHCO3 + CO + HO2 ', & - ' HOHOC4DIAL + OH --> HOCOC4DIAL + HO2 ', & - ' HOHOC4DIAL --> C32OH13CO + CO + 2 HO2 ', & - ' NPHEN1O + NO2 --> DNPHEN ', & - ' NPHEN1O + O3 --> NPHEN1O2 ', & - ' NCATECHOL + NO3 --> NNCATECO2 ', & - ' NCATECHOL + OH --> NCATECO2 ', & - ' CATEC1O2 + HO2 --> CATEC1OOH ', & - ' CATEC1O2 + NO --> CATEC1O + NO2 ', & - ' CATEC1O2 + NO3 --> CATEC1O + NO2 ', & - ' CATEC1O2 --> CATEC1O ', & - ' PBZQONE + NO3 --> NBZQO2 ', & - ' PBZQONE + OH --> PBZQO2 ', & - ' C5CO14OH + OH --> C5CO14CO2 ', & - ' C5CO14OH --> HCOCO2H + CH3CO3 + CO + HO2 ', & - ' PTLQONE + NO3 --> NPTLQO2 ', & - ' PTLQONE + OH --> PTLQO2 ', & - ' NCRES1O + NO2 --> DNCRES ', & - ' NCRES1O + O3 --> NCRES1O2 ', & - ' OXYL1OOH + OH --> OXYL1O2 ', & - ' OXYL1OOH --> TOL1O + OH ', & - ' MNCATECH + NO3 --> MNNCATECO2 ', & - ' MNCATECH + OH --> MNCATECO2 ', & - ' MCATEC1O2 + HO2 --> MCATEC1OOH ', & - ' MCATEC1O2 + NO --> MCATEC1O + NO2 ', & - ' MCATEC1O2 + NO3 --> MCATEC1O + NO2 ', & - ' MCATEC1O2 --> MCATEC1O ', & - ' MC3ODBCO2H + OH --> MC3CODBCO2 ', & - ' MC3ODBCO2H --> CH3COCO2H + 2 CO + 2 HO2 ', & - 'MC3CODBCO3 + HO2 --> MC3CODBCO2 + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_261 = (/ & - 'MC3CODBCO3 + HO2 --> MC3ODBCO2H + O3 ', & - 'MC3CODBCO3 + HO2 --> MC3ODBCO3H ', & - ' MC3CODBCO3 + NO --> MC3CODBCO2 + NO2 ', & - 'MC3CODBCO3 + NO2 --> MC3CODBPAN ', & - 'MC3CODBCO3 + NO3 --> MC3CODBCO2 + NO2 ', & - ' MC3CODBCO3 --> MC3CODBCO2 ', & - ' MC3CODBCO3 --> MC3ODBCO2H ', & - ' MGLYOOA --> MGLYOO ', & - ' MGLYOOA --> CH3CO3 + OH + CO ', & - 'C4M2ALOHO2 + HO2 --> C4MALOHOOH ', & - ' C4M2ALOHO2 + NO --> C4M2ALOHO + NO2 ', & - 'C4M2ALOHO2 + NO3 --> C4M2ALOHO + NO2 ', & - ' C4M2ALOHO2 --> C4M2AL2OH ', & - ' C4M2ALOHO2 --> C4M2ALOHO ', & - 'C5DICARBO2 + HO2 --> C5DICAROOH ', & - ' C5DICARBO2 + NO --> C5DICARBO + NO2 ', & - 'C5DICARBO2 + NO3 --> C5DICARBO + NO2 ', & - ' C5DICARBO2 --> C5134CO2OH ', & - ' C5DICARBO2 --> C514CO23OH ', & - ' C5DICARBO2 --> C5DICARBO ', & - ' NTLFUO2 + HO2 --> NTLFUOOH ', & - ' NTLFUO2 + NO --> NTLFUO + NO2 ', & - ' NTLFUO2 + NO3 --> NTLFUO + NO2 ', & - ' NTLFUO2 --> NTLFUO ', & - ' TLFUONOOA --> MECOACETO2 + OH + CO ', & - ' TLFUONOOA --> TLFUONOO ', & - ' TLFUO2 + HO2 --> TLFUOOH ', & - ' TLFUO2 + NO --> TLFUO + NO2 ', & - ' TLFUO2 + NO3 --> TLFUO + NO2 ', & - ' TLFUO2 --> TLFUO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_262 = (/ & - ' TLFUO2 --> TLFUOH ', & - ' C5CO14CO2 --> MALANHY + CH3O2 ', & - ' C5CO14CO2 --> MGLYOX + CO + HO2 ', & - ' C5CO14OOH + OH --> C5CO14O2 ', & - ' C5CO14OOH --> C5CO14CO2 + OH ', & - ' C5COO2NO2 + OH --> MGLYOX + 2 CO + NO2 ', & - ' C5COO2NO2 --> C5CO14O2 + NO2 ', & - ' CH3COCO2H --> CH3CO3 + HO2 ', & - ' CH3COCO2H + OH --> CH3CO3 ', & - ' OXYLCO2H + OH --> OXYL1O2 ', & - ' OXYLCO3H + OH --> OXYLCO3 ', & - ' OXYLCO3H --> OXYL1O2 + OH ', & - ' OXYLPAN + OH --> OXYL1OOH + CO + NO2 ', & - ' OXYLPAN --> OXYLCO3 + NO2 ', & - 'MC4CODBCO3 + HO2 --> C5DBCOCO2H + O3 ', & - 'MC4CODBCO3 + HO2 --> C5DBCOCO3H ', & - 'MC4CODBCO3 + HO2 --> MC4CODBCO2 + OH ', & - ' MC4CODBCO3 + NO --> MC4CODBCO2 + NO2 ', & - 'MC4CODBCO3 + NO2 --> MC4CODBPAN ', & - 'MC4CODBCO3 + NO3 --> MC4CODBCO2 + NO2 ', & - ' MC4CODBCO3 --> C5DBCOCO2H ', & - ' MC4CODBCO3 --> MC4CODBCO2 ', & - ' MEK2OOA --> BIACETO2 + OH ', & - ' MEK2OOA --> CH3O2 + CH3CO3 ', & - ' MEK2OOA --> CH3COCH3 ', & - ' MEK2OOA --> MEK2OO ', & - 'MC5CO2OHO2 + HO2 --> MC5COOHOOH ', & - ' MC5CO2OHO2 + NO --> MC5CO2OHO + NO2 ', & - 'MC5CO2OHO2 + NO3 --> MC5CO2OHO + NO2 ', & - ' MC5CO2OHO2 --> MC52CO2OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_263 = (/ & - ' MC5CO2OHO2 --> MC5CO2OHO ', & - ' NOXYFUO2 + HO2 --> NOXYFUOOH ', & - ' NOXYFUO2 + NO --> NOXYFUO + NO2 ', & - ' NOXYFUO2 + NO3 --> NOXYFUO + NO2 ', & - ' NOXYFUO2 --> NOXYFUO ', & - ' C6OTKETO2 + HO2 --> C6OTKETOOH ', & - ' C6OTKETO2 + NO --> C6OTKETO + NO2 ', & - ' C6OTKETO2 + NO3 --> C6OTKETO + NO2 ', & - ' C6OTKETO2 --> C6OTKETCO ', & - ' C6OTKETO2 --> C6OTKETO ', & - ' C6OTKETO2 --> C6OTKETOH ', & - ' OXYFUO2 + HO2 --> OXYFUOOH ', & - ' OXYFUO2 + NO --> OXYFUO + NO2 ', & - ' OXYFUO2 + NO3 --> OXYFUO + NO2 ', & - ' OXYFUO2 --> OXYFUO ', & - ' OXYFUO2 --> OXYFUOH ', & - ' EPXM2DCO2H + OH --> C4MCO2O2 ', & - ' EPXM2DCO2H --> C4MCO2O2 + HO2 ', & - ' EPXM2DCO3H + OH --> EPXM2DLCO3 ', & - ' EPXM2DCO3H --> C4MCO2O2 + OH ', & - ' EPXM2DLPAN + OH --> EPXM2DLCO3 + NO2 ', & - ' EPXM2DLPAN --> EPXM2DLCO3 + NO2 ', & - ' C4MCO2OOH + OH --> C4MCO2O2 ', & - ' C4MCO2OOH --> BIACET + OH + CO + HO2 ', & - ' C4MCO2OOH --> C4MCO2O + OH ', & - ' C4MCO2OOH --> MGLYOX + CH3CO3 + OH ', & - ' C4MCO2O --> BIACET + CO + HO2 ', & - ' C4MCO2O --> MGLYOX + CH3CO3 ', & - ' C4MCO2OH + OH --> C4MCO2O ', & - ' C4MCO2OH --> BIACET + CO + 2 HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_264 = (/ & - ' C4MCO2OH --> MGLYOX + CH3CO3 + HO2 ', & - ' C5DBCOCO2H + OH --> MC4CODBCO2 ', & - ' C5DBCOCO2H --> HCOCO2H + 2 CH3CO3 ', & - ' NOXYOL1O + NO2 --> DNOXYOL ', & - ' NOXYOL1O + O3 --> NOXYOL1O2 ', & - ' DM123OOH + OH --> DM123O2 ', & - ' DM123OOH --> OXY1O + OH ', & - ' OXYQONE + NO3 --> NOXYQO2 ', & - ' OXYQONE + OH --> OXYQO2 ', & - ' OXNCATECH + NO3 --> OXNNCATCO2 ', & - ' OXNCATECH + OH --> OXNCATECO2 ', & - 'OXCATEC1O2 + HO2 --> OCATEC1OOH ', & - ' OXCATEC1O2 + NO --> OXCATEC1O + NO2 ', & - 'OXCATEC1O2 + NO3 --> OXCATEC1O + NO2 ', & - ' OXCATEC1O2 --> OXCATEC1O ', & - ' MXYLCO2H + OH --> MXYL1O2 ', & - ' MXYLCO3H + OH --> MXYLCO3 ', & - ' MXYLCO3H --> MXYL1O2 + OH ', & - ' MXYLPAN + OH --> MXYL1OOH + CO + NO2 ', & - ' MXYLPAN --> MXYLCO3 + NO2 ', & - ' MXYL1OOH + OH --> MXYL1O2 ', & - ' MXYL1OOH --> MXYL1O + OH ', & - ' MXYL1O + NO2 --> TOL1OHNO2 ', & - 'C5MCO2OHO2 + HO2 --> C6CO2OHOOH ', & - ' C5MCO2OHO2 + NO --> C5MCO2OHO + NO2 ', & - 'C5MCO2OHO2 + NO3 --> C5MCO2OHO + NO2 ', & - ' C5MCO2OHO2 --> C5MCO2OHO ', & - ' C5MCO2OHO2 --> C6CO2M2OH ', & - ' NMXYFUO2 + HO2 --> NMXYFUOOH ', & - ' NMXYFUO2 + NO --> NMXYFUO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_265 = (/ & - ' NMXYFUO2 + NO3 --> NMXYFUO + NO2 ', & - ' NMXYFUO2 --> NMXYFUO ', & - ' C23O3MO2 + HO2 --> C23O3MCOOH ', & - ' C23O3MO2 + NO --> C23O3MO + NO2 ', & - ' C23O3MO2 + NO3 --> C23O3MO + NO2 ', & - ' C23O3MO2 --> ACECOCOCH3 ', & - ' C23O3MO2 --> C23O3MO ', & - ' C23O3MO2 --> C23O3MOH ', & - ' MXYFUO2 + HO2 --> MXYFUOOH ', & - ' MXYFUO2 + NO --> MXYFUO + NO2 ', & - ' MXYFUO2 + NO3 --> MXYFUO + NO2 ', & - ' MXYFUO2 --> MXYFUO ', & - ' MXYFUO2 --> MXYFUOH ', & - ' NPXYFUO2 + HO2 --> NPXYFUOOH ', & - ' NPXYFUO2 + NO --> NPXYFUO + NO2 ', & - ' NPXYFUO2 + NO3 --> NPXYFUO + NO2 ', & - ' NPXYFUO2 --> NPXYFUO ', & - 'MCOCOMOXO2 + HO2 --> MCOCOMOOOH ', & - ' MCOCOMOXO2 + NO --> MCOCOMOXO + NO2 ', & - 'MCOCOMOXO2 + NO3 --> MCOCOMOXO + NO2 ', & - ' MCOCOMOXO2 --> MCOCOMOXO ', & - ' PXYFUO2 + HO2 --> PXYFUOOH ', & - ' PXYFUO2 + NO --> PXYFUO + NO2 ', & - ' PXYFUO2 + NO3 --> PXYFUO + NO2 ', & - ' PXYFUO2 --> PXYFUO ', & - ' PXYFUO2 --> PXYFUOH ', & - ' C3MCODBCO2 --> MGLYOX + CO + HO2 ', & - ' C3MCODBCO2 --> MMALANHY + HO2 ', & - ' C4CODBCO3H + OH --> C3MCODBCO3 ', & - ' C4CODBCO3H --> C3MCODBCO2 + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_266 = (/ & - ' C4CODBCO3H --> HCOCO3H + CH3CO3 + CO + HO2 ', & - ' C3MCODBPAN + OH --> MGLYOX + 2 CO + NO2 ', & - ' C3MCODBPAN --> C3MCODBCO3 + NO2 ', & - ' EPXMDLCO2H + OH --> C3MDIALO2 ', & - ' EPXMDLCO2H --> C3MDIALO2 + HO2 ', & - ' EPXMDLCO3H + OH --> EPXMDLCO3 ', & - ' EPXMDLCO3H --> C3MDIALO2 + OH ', & - ' EPXMDLPAN + OH --> MGLYOX + CO + NO2 ', & - ' EPXMDLPAN --> EPXMDLCO3 + NO2 ', & - ' C3MDIALOOH + OH --> C3MDIALO2 ', & - ' C3MDIALOOH --> C3MDIALO + OH ', & - ' C3MDIALOOH --> MGLYOX + OH + CO + HO2 ', & - ' C3MDIALO --> MGLYOX + CO + HO2 ', & - ' NMXYOL1O + NO2 --> DNMXYOL ', & - ' NMXYOL1O + O3 --> NMXYOL1O2 ', & - ' MXY1OOH + OH --> MXY1O2 ', & - ' MXY1OOH --> MXY1O + OH ', & - ' MXYQONE + NO3 --> NMXYQO2 ', & - ' MXYQONE + OH --> MXYQO2 ', & - ' MXNCATECH + NO3 --> MXNNCATCO2 ', & - ' MXNCATECH + OH --> MXNCATECO2 ', & - 'MXCATEC1O2 + HO2 --> MXCTEC1OOH ', & - ' MXCATEC1O2 + NO --> MXCATEC1O + NO2 ', & - 'MXCATEC1O2 + NO3 --> MXCATEC1O + NO2 ', & - ' MXCATEC1O2 --> MXCATEC1O ', & - ' C3MCOCO2H + OH --> MGLYOX + CO + HO2 ', & - ' C3MCOCO2H --> HCOCO2H + CH3O2 + 2 CO + HO2 ', & - ' PXYLCO2H + OH --> PXYL1O2 ', & - ' PXYLCO3H + OH --> PXYLCO3 ', & - ' PXYLCO3H --> PXYL1O2 + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_267 = (/ & - ' PXYLPAN + OH --> PXYL1OOH + CO + NO2 ', & - ' PXYLPAN --> PXYLCO3 + NO2 ', & - ' PXYL1OOH + OH --> PXYL1O2 ', & - ' PXYL1OOH --> PXYL1O + OH ', & - ' PXYL1O + NO2 --> TOL4OHNO2 ', & - ' DMKOHO2 + HO2 --> DMKOHOOH ', & - ' DMKOHO2 + NO --> DMKOHO + NO2 ', & - ' DMKOHO2 + NO3 --> DMKOHO + NO2 ', & - ' DMKOHO2 --> DMK2OH ', & - ' DMKOHO2 --> DMKCOOH ', & - ' DMKOHO2 --> DMKOHO ', & - ' NPXYOL1O + NO2 --> DNPXYOL ', & - ' NPXYOL1O + O3 --> NPXYOL1O2 ', & - ' PXY1OOH + OH --> PXY1O2 ', & - ' PXY1OOH --> PXY1O + OH ', & - ' PXYQONE + NO3 --> NPXYQO2 ', & - ' PXYQONE + OH --> PXYQO2 ', & - ' PXNCATECH + NO3 --> PXNNCATCO2 ', & - ' PXNCATECH + OH --> PXNCATECO2 ', & - 'PXCATEC1O2 + HO2 --> PCATEC1OOH ', & - ' PXCATEC1O2 + NO --> PXCATEC1O + NO2 ', & - 'PXCATEC1O2 + NO3 --> PXCATEC1O + NO2 ', & - ' PXCATEC1O2 --> PXCATEC1O ', & - ' C6H5C2CO2H + OH --> C6H5CH2O2 ', & - ' C6H5C2CO3H + OH --> C6H5CH2CO3 ', & - ' C6H5C2CO3H --> C6H5CH2O2 + OH ', & - ' C6H5CH2PAN + OH --> BENZAL + CO + NO2 ', & - ' C6H5CH2PAN --> C6H5CH2CO3 + NO2 ', & - ' NEBNZ1O + NO2 --> DNEBNZOL ', & - ' NEBNZ1O + O3 --> NEBNZ1O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_268 = (/ & - ' EBENZOOH + OH --> EBENZO2 ', & - ' EBENZOOH --> EBENZO + OH ', & - ' C6DCRBBOH + OH --> C6DCARBBO ', & - ' C6DCRBBOH --> HCOCO2H + C2H5CO3 + CO + HO2 ', & - ' PEBQONE + NO3 --> NPEBQO2 ', & - ' PEBQONE + OH --> PEBQO2 ', & - ' ENCATECH + NO3 --> ENNCATECO2 ', & - ' ENCATECH + OH --> ENCATECO2 ', & - ' ECATEC1O2 + HO2 --> ECATEC1OOH ', & - ' ECATEC1O2 + NO --> ECATEC1O + NO2 ', & - ' ECATEC1O2 + NO3 --> ECATEC1O + NO2 ', & - ' ECATEC1O2 --> ECATEC1O ', & - ' RGDCO2H + OH --> C2H5CO3 + GLYOX ', & - ' RGDCO2H --> ECOCO2H + 2 CO + 2 HO2 ', & - 'C6DICARBO2 + HO2 --> C6DICAROOH ', & - ' C6DICARBO2 + NO --> C6DICARBO + NO2 ', & - 'C6DICARBO2 + NO3 --> C6DICARBO + NO2 ', & - ' C6DICARBO2 --> C6134CO2OH ', & - ' C6DICARBO2 --> C614CO23OH ', & - ' C6DICARBO2 --> C6DICARBO ', & - ' NEBFUO2 + HO2 --> NEBFUOOH ', & - ' NEBFUO2 + NO --> NEBFUO + NO2 ', & - ' NEBFUO2 + NO3 --> NEBFUO + NO2 ', & - ' NEBFUO2 --> NEBFUO ', & - ' BUTALAO2 + HO2 --> BUTALAOOH ', & - ' BUTALAO2 + NO --> BUTAL2O + NO2 ', & - ' BUTALAO2 + NO3 --> BUTAL2O + NO2 ', & - ' BUTALAO2 --> BUTAL2O ', & - ' BUTALAO2 --> EGLYOX ', & - ' BUTALAO2 --> HO3C3CHO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_269 = (/ & - ' EBFUO2 + HO2 --> EBFUOOH ', & - ' EBFUO2 + NO --> EBFUO + NO2 ', & - ' EBFUO2 + NO3 --> EBFUO + NO2 ', & - ' EBFUO2 --> EBFUCO ', & - ' EBFUO2 --> EBFUO ', & - ' EBFUO2 --> EBFUOH ', & - ' C6DCARBBO --> EGLYOX + CO + HO2 ', & - ' C6DCARBBO --> MALANHY + C2H5O2 ', & - ' C6DCRBBOOH + OH --> C6DCARBBO2 ', & - ' C6DCRBBOOH --> C6DCARBBO + OH ', & - ' C6DCRBBOOH --> HCOCO3H + C2H5CO3 + CO + HO2 ', & - ' C6DCARBPAN + OH --> EGLYOX + 2 CO + NO2 ', & - ' C6DCARBPAN --> C6DCARBBO2 + NO2 ', & - ' ECOCO2H + OH --> C2H5CO3 ', & - ' ECOCO2H --> C2H5CO3 + HO2 ', & - ' CO3H4CHO + OH --> CO3H4CO3 ', & - ' CO3H4CHO --> C2H5CO3 + GLYOX + HO2 ', & - ' CO3H4CHO --> EGLYOX + CO + 2 HO2 ', & - ' C7CO3OHO2 + HO2 --> C7CO3OHOOH ', & - ' C7CO3OHO2 + NO --> C7CO3OHO + NO2 ', & - ' C7CO3OHO2 + NO3 --> C7CO3OHO + NO2 ', & - ' C7CO3OHO2 --> C7CO3OHO ', & - ' PHCOETOOH + OH --> PHCOCOME + OH ', & - ' PHCOETOOH --> PHCOETO + OH ', & - ' PHCOETO --> C6H5CO3 + CH3CHO ', & - ' PHCOCOME + OH --> PHCOCOCO2 ', & - ' PHCOCOME --> C6H5CO3 + CH3CO3 ', & - ' PHCOETOH + OH --> PHCOCOME + HO2 ', & - ' C7DCCO2H + OH --> C7DCCO2 ', & - ' C7DCCO2H --> PGLYOX + CO + 2 HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_270 = (/ & - ' NPBNZ1O + NO2 --> DNPBNZOL ', & - ' NPBNZ1O + O3 --> NPBNZ1O2 ', & - ' PBENZOOH + OH --> PBENZO2 ', & - ' PBENZOOH --> PBENZO + OH ', & - ' PPRBQONE + NO3 --> NPPRBQO2 ', & - ' PPRBQONE + OH --> PPRBQO2 ', & - ' PNCATECH + NO3 --> PNNCATECO2 ', & - ' PNCATECH + OH --> PNCATECO2 ', & - ' PCATEC1O2 + HO2 --> PRCATC1OOH ', & - ' PCATEC1O2 + NO --> PCATEC1O + NO2 ', & - ' PCATEC1O2 + NO3 --> PCATEC1O + NO2 ', & - ' PCATEC1O2 --> PCATEC1O ', & - ' PC3ODBCO2H + OH --> C3H7CO3 + GLYOX ', & - ' PC3ODBCO2H --> PGLYOXOH + 2 CO + 2 HO2 ', & - ' PGLOOB --> C3H7CHO ', & - ' PGLOOB --> C3H7CO3 + OH + CO ', & - ' PGLOOB --> C3H7CO3 + HO2 ', & - ' PGLOOB --> PGLOO ', & - ' C7DCO2 + HO2 --> C7DCOOH ', & - ' C7DCO2 + NO --> C7DCO + NO2 ', & - ' C7DCO2 + NO3 --> C7DCO + NO2 ', & - ' C7DCO2 --> C61CHO ', & - ' C7DCO2 --> C7DCO ', & - ' C7DCO2 --> C7DCOH ', & - ' NPBFUO2 + HO2 --> NPBFUOOH ', & - ' NPBFUO2 + NO --> NPBFUO + NO2 ', & - ' NPBFUO2 + NO3 --> NPBFUO + NO2 ', & - ' NPBFUO2 --> NPBFUO ', & - ' C4CHOAO2 + HO2 --> C4CHOAOOH ', & - ' C4CHOAO2 + NO --> C4CHO2O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_271 = (/ & - ' C4CHOAO2 + NO3 --> C4CHO2O + NO2 ', & - ' C4CHOAO2 --> C4CHO2O ', & - ' C4CHOAO2 --> C4OHCHO ', & - ' C4CHOAO2 --> PGLYOX ', & - ' PBFUO2 + HO2 --> PBFUOOH ', & - ' PBFUO2 + NO --> PBFUO + NO2 ', & - ' PBFUO2 + NO3 --> PBFUO + NO2 ', & - ' PBFUO2 --> PBFUCO ', & - ' PBFUO2 --> PBFUO ', & - ' PBFUO2 --> PBFUOH ', & - ' C7DCCO2 --> MALANHY + NC3H7O2 ', & - ' C7DCCO2 --> PGLYOX + CO + HO2 ', & - ' C7DCCO3H + OH --> C7DCCO3 ', & - ' C7DCCO3H --> C7DCCO2 + OH ', & - ' C7DCCO3H --> PGLYOX + OH + CO + HO2 ', & - ' C7DCPAN + OH --> PGLYOX + 2 CO + NO2 ', & - ' C7DCPAN --> C7DCCO3 + NO2 ', & - ' PGLYOXOH + OH --> C3H7CO3 ', & - ' PGLYOXOH --> C3H7CO3 + HO2 ', & - ' C6O132OH + OH --> C5O45OHCO3 ', & - ' C6O132OH --> C3H7CO3 + GLYOX + HO2 ', & - ' C6O132OH --> PGLYOX + CO + 2 HO2 ', & - ' C8CO3OHO2 + HO2 --> C83COOHOOH ', & - ' C8CO3OHO2 + NO --> C8CO3OHO + NO2 ', & - ' C8CO3OHO2 + NO3 --> C8CO3OHO + NO2 ', & - ' C8CO3OHO2 --> C8CO3OHO ', & - ' PHCOMEO2 + HO2 --> PHCOMEOOH ', & - ' PHCOMEO2 + NO --> PHCOMEO + NO2 ', & - ' PHCOMEO2 + NO3 --> PHCOMEO + NO2 ', & - ' PHCOMEO2 --> PHCOMEO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_272 = (/ & - ' PHCOMEO2 --> PHCOMEOH ', & - ' PHCOMEO2 --> PHGLYOX ', & - ' NIPBNZ1O + NO2 --> DNIPBNZOL ', & - ' NIPBNZ1O + O3 --> NIPBNZ1O2 ', & - ' IPBENZOOH + OH --> IPBENZO2 ', & - ' IPBENZOOH --> IPBENZO + OH ', & - ' IC7DCCO2H + OH --> IC7DCCO2 ', & - ' IC7DCCO2H --> IPRGLYOX + CO + 2 HO2 ', & - ' IPRBQONE + NO3 --> NIPRBQO2 ', & - ' IPRBQONE + OH --> IPRBQO2 ', & - ' IPNCATECH + NO3 --> IPNNCATCO2 ', & - ' IPNCATECH + OH --> IPNCATECO2 ', & - 'IPCATEC1O2 + HO2 --> IPCATC1OOH ', & - ' IPCATEC1O2 + NO --> IPCATEC1O + NO2 ', & - 'IPCATEC1O2 + NO3 --> IPCATEC1O + NO2 ', & - ' IPCATEC1O2 --> IPCATEC1O ', & - ' IP3ODBCO2H + OH --> IPRCO3 + GLYOX ', & - ' IP3ODBCO2H --> IPGLYOXOH + 2 CO + 2 HO2 ', & - ' IC7DCO2 + HO2 --> IC7DCOOH ', & - ' IC7DCO2 + NO --> IC7DCO + NO2 ', & - ' IC7DCO2 + NO3 --> IC7DCO + NO2 ', & - ' IC7DCO2 --> C62CHO ', & - ' IC7DCO2 --> IC7DCO ', & - ' IC7DCO2 --> IC7DCOH ', & - ' NIPBFUO2 + HO2 --> NIPBFUOOH ', & - ' NIPBFUO2 + NO --> NIPBFUO + NO2 ', & - ' NIPBFUO2 + NO3 --> NIPBFUO + NO2 ', & - ' NIPBFUO2 --> NIPBFUO ', & - ' IC4CHOAO2 + HO2 --> IC4CHOAOOH ', & - ' IC4CHOAO2 + NO --> M3BUTAL2O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_273 = (/ & - ' IC4CHOAO2 + NO3 --> M3BUTAL2O + NO2 ', & - ' IC4CHOAO2 --> C3M3OH2CHO ', & - ' IC4CHOAO2 --> IPRGLYOX ', & - ' IC4CHOAO2 --> M3BUTAL2O ', & - ' IPBFUO2 + HO2 --> IPBFUOOH ', & - ' IPBFUO2 + NO --> IPBFUO + NO2 ', & - ' IPBFUO2 + NO3 --> IPBFUO + NO2 ', & - ' IPBFUO2 --> IPBFUCO ', & - ' IPBFUO2 --> IPBFUO ', & - ' IPBFUO2 --> IPBFUOH ', & - ' IC7DCCO2 --> IPRGLYOX + CO + HO2 ', & - ' IC7DCCO2 --> MALANHY + IC3H7O2 ', & - ' IC7DCCO3H + OH --> IC7DCCO3 ', & - ' IC7DCCO3H --> IC7DCCO2 + OH ', & - ' IC7DCCO3H --> IPRGLYOX + OH + CO + HO2 ', & - ' IC7DCPAN + OH --> IPRGLYOX + 2 CO + NO2 ', & - ' IC7DCPAN --> IC7DCCO3 + NO2 ', & - ' IPGLYOXOH + OH --> IPRCO3 ', & - ' IPGLYOXOH --> IPRCO3 + HO2 ', & - ' C5MO132OH + OH --> C4MOHOCO3 ', & - ' C5MO132OH --> IPRCO3 + GLYOX + HO2 ', & - ' C5MO132OH --> IPRGLYOX + CO + 2 HO2 ', & - 'C7MCO3OHO2 + HO2 --> C7MO3OHOOH ', & - ' C7MCO3OHO2 + NO --> C7MCO3OHO + NO2 ', & - 'C7MCO3OHO2 + NO3 --> C7MCO3OHO + NO2 ', & - ' C7MCO3OHO2 --> C7MCO3OHO ', & - ' TM123BCO2H + OH --> DM123O2 ', & - ' TM123BCO3H + OH --> TM123BCO3 ', & - ' TM123BCO3H --> DM123O2 + OH ', & - ' TM123BPAN + OH --> DM123OOH + CO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_274 = (/ & - ' TM123BPAN --> TM123BCO3 + NO2 ', & - ' C7ADCCO2H + OH --> C7ADCCO2 ', & - ' C7ADCCO2H --> BIACET + CH3CO3 + HO2 ', & - ' NT123L1O + NO2 --> DNT123BOL ', & - ' NT123L1O + O3 --> NT123L1O2 ', & - ' TM123OOH + OH --> TM123O2 ', & - ' TM123OOH --> TM123O + OH ', & - 'T123NCATEC + NO3 --> T123NNCTO2 ', & - ' T123NCATEC + OH --> T123NCATO2 ', & - 'T123CAT1O2 + HO2 --> T123CT1OOH ', & - ' T123CAT1O2 + NO --> T123CAT1O + NO2 ', & - 'T123CAT1O2 + NO3 --> T123CAT1O + NO2 ', & - ' T123CAT1O2 --> T123CAT1O ', & - ' C7ADCCO3 + HO2 --> C7ADCCO2 + OH ', & - ' C7ADCCO3 + HO2 --> C7ADCCO2H + O3 ', & - ' C7ADCCO3 + HO2 --> C7ADCCO3H ', & - ' C7ADCCO3 + NO --> C7ADCCO2 + NO2 ', & - ' C7ADCCO3 + NO2 --> C7ADCPAN ', & - ' C7ADCCO3 + NO3 --> C7ADCCO2 + NO2 ', & - ' C7ADCCO3 --> C7ADCCO2 ', & - ' C7ADCCO3 --> C7ADCCO2H ', & - ' C7ADCO2 + HO2 --> C7ADCOOH ', & - ' C7ADCO2 + NO --> C7ADCO + NO2 ', & - ' C7ADCO2 + NO3 --> C7ADCO + NO2 ', & - ' C7ADCO2 --> C7ADCO ', & - ' C7ADCO2 --> C7ADCOH ', & - ' NTMB1FUO2 + HO2 --> NTMB1FUOOH ', & - ' NTMB1FUO2 + NO --> NTMB1FUO + NO2 ', & - ' NTMB1FUO2 + NO3 --> NTMB1FUO + NO2 ', & - ' NTMB1FUO2 --> NTMB1FUO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_275 = (/ & - ' C5OCO3M + OH --> MEKBO2 + CO ', & - ' C5OCO3M --> MEKBO2 + CO + HO2 ', & - ' TMB1FUO2 + HO2 --> TMB1FUOOH ', & - ' TMB1FUO2 + NO --> TMB1FUO + NO2 ', & - ' TMB1FUO2 + NO3 --> TMB1FUO + NO2 ', & - ' TMB1FUO2 --> TMB1FUO ', & - ' TMB1FUO2 --> TMB1FUOH ', & - ' NTMB2FUO2 + HO2 --> NTMB2FUOOH ', & - ' NTMB2FUO2 + NO --> NTMB2FUO + NO2 ', & - ' NTMB2FUO2 + NO3 --> NTMB2FUO + NO2 ', & - ' NTMB2FUO2 --> NTMB2FUO ', & - 'MC6OTKETO2 + HO2 --> MC6OTKTOOH ', & - ' MC6OTKETO2 + NO --> MC6OTKETO + NO2 ', & - 'MC6OTKETO2 + NO3 --> MC6OTKETO + NO2 ', & - ' MC6OTKETO2 --> MC6OTKETO ', & - ' MC6OTKETO2 --> MC6OTKETOH ', & - ' TMB2FUO2 + HO2 --> TMB2FUOOH ', & - ' TMB2FUO2 + NO --> TMB2FUO + NO2 ', & - ' TMB2FUO2 + NO3 --> TMB2FUO + NO2 ', & - ' TMB2FUO2 --> TMB2FUO ', & - ' TMB2FUO2 --> TMB2FUOH ', & - ' EPXKTMCO2H + OH --> C4MCO2O2 ', & - ' EPXKTMCO2H --> C4MCO2O2 + HO2 ', & - ' EPXKTMCO3H + OH --> EPXKTMCO3 ', & - ' EPXKTMCO3H --> C4MCO2O2 + OH ', & - ' EPXKTMPAN + OH --> BIACET + CO + NO2 ', & - ' EPXKTMPAN --> EPXKTMCO3 + NO2 ', & - ' C4CO2OOH + OH --> CO23C3CHO + OH ', & - ' C4CO2OOH --> C4CO2O + OH ', & - ' C4CO2OOH --> GLYOX + CH3CO3 + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_276 = (/ & - ' C4CO2OOH --> MGLYOX + OH + CO + HO2 ', & - ' TM124BCO2H + OH --> DM124O2 ', & - ' TM124BCO3H + OH --> TM124BCO3 ', & - ' TM124BCO3H --> DM124O2 + OH ', & - ' TM124BPAN + OH --> DM124OOH + CO + NO2 ', & - ' TM124BPAN --> TM124BCO3 + NO2 ', & - ' DM124OOH + OH --> DM124O2 ', & - ' DM124OOH --> DM124O + OH ', & - ' DM124O + NO2 --> DM124OHNO2 ', & - ' MEK2OOC --> BIACETO2 + OH ', & - ' MEK2OOC --> MEK2OO ', & - ' C7BDCO2 + HO2 --> C7BDCOOH ', & - ' C7BDCO2 + NO --> C7BDCO + NO2 ', & - ' C7BDCO2 + NO3 --> C7BDCO + NO2 ', & - ' C7BDCO2 --> C7BDCO ', & - ' C7BDCO2 --> C7BDCOH ', & - ' C3M2COCO2H + OH --> MGLYOX + CH3CO3 ', & - ' C3M2COCO2H --> CH3COCO2H + CH3CO3 + CO + HO2 ', & - ' NT124L1O + NO2 --> DNT124BOL ', & - ' NT124L1O + O3 --> NT124L1O2 ', & - ' TM124OOH + OH --> TM124O2 ', & - ' TM124OOH --> TM124O + OH ', & - ' TM124QONE + NO3 --> NTM124QO2 ', & - ' TM124QONE + OH --> TM124QO2 ', & - 'T124NCATEC + NO3 --> T124NNCTO2 ', & - ' T124NCATEC + OH --> T124NCATO2 ', & - 'T124CAT1O2 + HO2 --> T124CT1OOH ', & - ' T124CAT1O2 + NO --> T124CAT1O + NO2 ', & - 'T124CAT1O2 + NO3 --> T124CAT1O + NO2 ', & - ' T124CAT1O2 --> T124CAT1O ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_277 = (/ & - ' C5CODBCO2H + OH --> C4MCODBCO2 ', & - ' C5CODBCO2H --> CH3COCO2H + CH3CO3 + CO + HO2 ', & - ' TMBCO2H + OH --> DMPHO2 ', & - ' TMBCO3H + OH --> TMBCO3 ', & - ' TMBCO3H --> DMPHO2 + OH ', & - ' TMBPAN + OH --> DMPHOOH + CO + NO2 ', & - ' TMBPAN --> TMBCO3 + NO2 ', & - ' DMPHOOH + OH --> DMPHO2 ', & - ' DMPHOOH --> DMPHO + OH ', & - ' DMPHO + NO2 --> DMPHOHNO2 ', & - ' C4MCODBCO2 --> MGLYOX + CH3CO3 ', & - ' C4MCODBCO2 --> MMALANHY + CH3O2 ', & - ' C5CODBCO3H + OH --> C4MCODBCO3 ', & - ' C5CODBCO3H --> C4MCODBCO2 + OH ', & - ' C5CODBCO3H --> MGLYOX + CH3CO3 + OH ', & - ' C4MCODBPAN + OH --> MGLYOX + HCHO + 2 CO + NO2 ', & - ' C4MCODBPAN --> C4MCODBCO3 + NO2 ', & - ' EPXMKTCO2H + OH --> CO24C53O2 ', & - ' EPXMKTCO2H --> CO24C53O2 + HO2 ', & - ' EPXMKTCO3H + OH --> EPXMKTCO3 ', & - ' EPXMKTCO3H --> CO24C53O2 + OH ', & - ' EPXMKTPAN + OH --> C5CO234 + CO + NO2 ', & - ' EPXMKTPAN --> EPXMKTCO3 + NO2 ', & - ' CO24C53OOH + OH --> CO24C53O2 ', & - ' CO24C53OOH --> CO24C53O + OH ', & - ' CO24C53OOH --> MGLYOX + CH3CO3 + OH ', & - ' CO24C53O --> MGLYOX + CH3CO3 ', & - ' C5CO243OH + OH --> C5CO234 + HO2 ', & - ' C5CO243OH --> MGLYOX + CH3CO3 + HO2 ', & - ' C5CO234 + OH --> C5CO234O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_278 = (/ & - ' C5CO234 --> 2 CH3CO3 + CO ', & - ' MPHCOMEOOH + OH --> MPHGLYOX + OH ', & - ' MPHCOMEOOH --> MPHCOMEO + OH ', & - ' MPHCOMEOOH --> OXYLCO3 + HCHO + OH ', & - ' MPHCOMEO --> OXYLCO3 + HCHO ', & - ' MPHCOMEOH + OH --> MPHGLYOX + HO2 ', & - ' MPHCOMEOH --> OXYLCO3 + HCHO + HO2 ', & - ' MPHGLYOX + OH --> OXYLCO3 + CO ', & - ' MPHGLYOX --> OXYLCO3 + CO + HO2 ', & - ' EPXMEDCO2H + OH --> C4ECO2O2 ', & - ' EPXMEDCO2H --> C4ECO2O2 + HO2 ', & - ' EPXMEDCO3H + OH --> EPXMEDLCO3 ', & - ' EPXMEDCO3H --> C4ECO2O2 + OH ', & - ' EPXMEDLPAN + OH --> EPXMEDLCO3 + NO2 ', & - ' EPXMEDLPAN --> EPXMEDLCO3 + NO2 ', & - ' C4ECO2OOH + OH --> C4ECO2O2 ', & - ' C4ECO2OOH --> C4ECO2O + OH ', & - ' C4ECO2OOH --> EGLYOX + CH3CO3 + OH ', & - ' C4ECO2OOH --> CO23C5 + OH + CO + HO2 ', & - ' C4ECO2O --> CO23C5 + CO + HO2 ', & - ' C4ECO2O --> EGLYOX + CH3CO3 ', & - ' C7CDCCO2H + OH --> CO23C5 + CO + HO2 ', & - ' C7CDCCO2H --> CO23C5 + CO + 2 HO2 ', & - ' NOETOL1O + NO2 --> DNOETOL ', & - ' NOETOL1O + O3 --> NOETOL1O2 ', & - ' OET1OOH + OH --> OET1O2 ', & - ' OET1OOH --> OET1O + OH ', & - ' OETLQONE + NO3 --> NOETLQO2 ', & - ' OETLQONE + OH --> OETLQO2 ', & - ' OTNCATECH + NO3 --> OTNNCATCO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_279 = (/ & - ' OTNCATECH + OH --> OTNCATECO2 ', & - 'OTCATEC1O2 + HO2 --> OTCTEC1OOH ', & - ' OTCATEC1O2 + NO --> OTCATEC1O + NO2 ', & - 'OTCATEC1O2 + NO3 --> OTCATEC1O + NO2 ', & - ' OTCATEC1O2 --> OTCATEC1O ', & - ' CO23C3CHO --> CH3CO3 + 2 CO + HO2 ', & - ' CO23C3CHO --> HCOCO + CH3CO3 ', & - ' CO23C3CHO + NO3 --> HNO3 + CH3CO3 + 2 CO ', & - ' CO23C3CHO + OH --> CH3CO3 + 2 CO ', & - ' NMETOL1O + NO2 --> DNMETOL ', & - ' NMETOL1O + O3 --> NMETOL1O2 ', & - ' MET1OOH + OH --> MET1O2 ', & - ' MET1OOH --> MET1O + OH ', & - ' METLQONE + NO3 --> NMETLQO2 ', & - ' METLQONE + OH --> METLQO2 ', & - ' MTNCATECH + NO3 --> MTNNCATCO2 ', & - ' MTNCATECH + OH --> MTNCATECO2 ', & - 'MTCATEC1O2 + HO2 --> MTCTEC1OOH ', & - ' MTCATEC1O2 + NO --> MTCATEC1O + NO2 ', & - 'MTCATEC1O2 + NO3 --> MTCATEC1O + NO2 ', & - ' MTCATEC1O2 --> MTCATEC1O ', & - ' C7EDCO2 + HO2 --> C7EDCOOH ', & - ' C7EDCO2 + NO --> C7EDCO + NO2 ', & - ' C7EDCO2 + NO3 --> C7EDCO + NO2 ', & - ' C7EDCO2 --> C7EDCCO ', & - ' C7EDCO2 --> C7EDCO ', & - ' C7EDCO2 --> C7EDCOH ', & - ' NPETOL1O + NO2 --> DNPETOL ', & - ' NPETOL1O + O3 --> NPETOL1O2 ', & - ' PET1OOH + OH --> PET1O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_280 = (/ & - ' PET1OOH --> PET1O + OH ', & - ' PETLQONE + NO3 --> NPETLQO2 ', & - ' PETLQONE + OH --> PETLQO2 ', & - ' PTNCATECH + NO3 --> PTNNCATCO2 ', & - ' PTNCATECH + OH --> PTNCATECO2 ', & - 'PTCATEC1O2 + HO2 --> PTCTEC1OOH ', & - ' PTCATEC1O2 + NO --> PTCATEC1O + NO2 ', & - 'PTCATEC1O2 + NO3 --> PTCATEC1O + NO2 ', & - ' PTCATEC1O2 --> PTCATEC1O ', & - ' DMPHCOMOOH + OH --> DMPHGLYOX + OH ', & - ' DMPHCOMOOH --> DMPHCOMO + OH ', & - ' DMPHCOMOOH --> TMBCO3 + HCHO + OH ', & - ' DMPHCOMO --> TMBCO3 + HCHO ', & - ' DMPHCOMOH + OH --> MPHGLYOX + HO2 ', & - ' DMPHCOMOH --> TMBCO3 + HCHO + HO2 ', & - ' DMPHGLYOX + OH --> TMBCO3 + CO ', & - ' DMPHGLYOX --> TMBCO3 + CO + HO2 ', & - ' C7DDCCO3 + HO2 --> C7DDCCO2 + OH ', & - ' C7DDCCO3 + HO2 --> C7DDCCO2H + O3 ', & - ' C7DDCCO3 + HO2 --> C7DDCCO3H ', & - ' C7DDCCO3 + NO --> C7DDCCO2 + NO2 ', & - ' C7DDCCO3 + NO2 --> C7DDCPAN ', & - ' C7DDCCO3 + NO3 --> C7DDCCO2 + NO2 ', & - ' C7DDCCO3 --> C7DDCCO2 ', & - ' C7DDCCO3 --> C7DDCCO2H ', & - ' C7DDCO2 + HO2 --> C7DDCOOH ', & - ' C7DDCO2 + NO --> C7DDCO + NO2 ', & - ' C7DDCO2 + NO3 --> C7DDCO + NO2 ', & - ' C7DDCO2 --> C7DDCO ', & - ' C7DDCO2 --> C7DDCOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_281 = (/ & - ' NMEBFUO2 + HO2 --> NMEBFUOOH ', & - ' NMEBFUO2 + NO --> NMEBFUO + NO2 ', & - ' NMEBFUO2 + NO3 --> NMEBFUO + NO2 ', & - ' NMEBFUO2 --> NMEBFUO ', & - ' C23O3EO2 + HO2 --> C23O3ECOOH ', & - ' C23O3EO2 + NO --> C23O3EO + NO2 ', & - ' C23O3EO2 + NO3 --> C23O3EO + NO2 ', & - ' C23O3EO2 --> C23O3EHO ', & - ' C23O3EO2 --> C23O3EO ', & - ' C23O3EO2 --> C23O3EOH ', & - ' MEBFUO2 + HO2 --> MEBFUOOH ', & - ' MEBFUO2 + NO --> MEBFUO + NO2 ', & - ' MEBFUO2 + NO3 --> MEBFUO + NO2 ', & - ' MEBFUO2 --> MEBFUO ', & - ' MEBFUO2 --> MEBFUOH ', & - ' C6CO243OH + OH --> CO234C6 + HO2 ', & - ' C6CO243OH --> EGLYOX + CH3CO3 + HO2 ', & - ' C6CO243OH --> C2H5CO3 + MGLYOX + HO2 ', & - ' EMPHCOMOOH + OH --> EMPHGLYOX + OH ', & - ' EMPHCOMOOH --> EMPHCO3 + HCHO + OH ', & - ' EMPHCOMOOH --> EMPHCOMO + OH ', & - ' EMPHCOMO --> EMPHCO3 + HCHO ', & - ' EMPHCOMOH + OH --> EMPHGLYOX + HO2 ', & - ' EMPHCOMOH --> EMPHCO3 + HCHO + HO2 ', & - ' EMPHGLYOX + OH --> EMPHCO3 + CO ', & - ' EMPHGLYOX --> EMPHCO3 + CO + HO2 ', & - ' EMPHCO3H + OH --> EMPHCO3 ', & - ' EMPHCO3H --> EMPHO2 + OH ', & - ' EMPHO2 + HO2 --> EMPHOOH ', & - ' EMPHO2 + NO --> EMPHO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_282 = (/ & - ' EMPHO2 + NO3 --> EMPHO + NO2 ', & - ' EMPHO2 --> EMPHO ', & - ' EMPHPAN + OH --> EMPHOOH + CO + NO2 ', & - ' EMPHPAN --> EMPHCO3 + NO2 ', & - ' C7DDCCO2H + OH --> C7DDCCO2 ', & - ' C7DDCCO2H + OH --> EGLYOX + CH3CO3 ', & - ' C7DDCCO2H --> CH3COCO2H + CH3CO3 + CO + HO2 ', & - ' C7DDCCO2H --> EGLYOX + CH3CO3 + HO2 ', & - ' C7ODLBCO3H + OH --> C7CODBCO3 ', & - ' C7ODLBCO3H --> EGLYOX + C2H5CO3 + OH ', & - ' C7CODBPAN + OH --> EGLYOX + C2H5CHO + NO2 ', & - ' C7CODBPAN --> C7CODBCO3 + NO2 ', & - ' EPXEKTCO2H + OH --> CO24C63O2 ', & - ' EPXEKTCO2H --> CO24C63O2 + HO2 ', & - ' EPXEKTCO3H + OH --> EPXEKTCO3 ', & - ' EPXEKTCO3H --> CO24C63O2 + OH ', & - ' EPXEKTPAN + OH --> CO24C6 + CO + NO2 ', & - ' EPXEKTPAN --> EPXEKTCO3 + NO2 ', & - ' C3EDIALOOH + OH --> C3EDIALO2 ', & - ' C3EDIALOOH --> C3EDIALO + OH ', & - ' C3EDIALOOH --> EGLYOX + OH + CO + HO2 ', & - ' C3EDIALO --> EGLYOX + CO + HO2 ', & - ' C3EDIALOH + OH --> EGLYOX + CO + HO2 ', & - ' C3EDIALOH --> EGLYOX + CO + 2 HO2 ', & - ' CO24C63OOH + OH --> CO234C6 + OH ', & - ' CO24C63OOH --> CO24C63O + OH ', & - ' CO24C63OOH --> C2H5CO3 + MGLYOX + OH ', & - ' CO24C63O --> C2H5CO3 + MGLYOX ', & - ' CO234C6 + OH --> CO234C65O2 ', & - ' CO234C6 --> C2H5CO3 + CH3CO3 + CO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_283 = (/ & - ' HNMVKOOH --> HNMVKO + OH ', & - ' HNMVKOOH --> NO3CH2CO3 + HOCH2CHO + OH ', & - ' HNMVKOOH + OH --> HNBIACET + OH ', & - ' HNMVKO --> NO3CH2CO3 + HOCH2CHO ', & - ' HNBIACET --> NO3CH2CO3 + HOCH2CO3 ', & - ' HNBIACET + OH --> NCO23CHO + HO2 ', & - ' HNMVKOH --> NO3CH2CO3 + HOCH2CHO + HO2 ', & - ' HNMVKOH + OH --> HNBIACET + HO2 ', & - ' NC3CO2H + OH --> NO3CH2CHO + CO + HO2 ', & - ' NC3CO3H --> NO3CH2CHO + OH + CO + HO2 ', & - ' NC3CO3H + OH --> NC3CO3 ', & - ' C4PAN9 --> NC3CO3 + NO2 ', & - ' C4PAN9 + OH --> NO3CH2CHO + 2 CO + NO2 ', & - ' NAOO + CO --> NO3CH2CHO ', & - ' NAOO + NO --> NO3CH2CHO + NO2 ', & - ' NAOO + NO2 --> NO3CH2CHO + NO3 ', & - ' NAOO + SO2 --> SO3 + NO3CH2CHO ', & - ' NAOO --> H2O2 + NO3CH2CHO ', & - ' NAOO --> NO3CH2CO2H ', & - ' C42OOH --> C42O + OH ', & - ' C42OOH --> NMGLYOX + CO + 2 HO2 ', & - ' C42OOH + OH --> H3NCO2CHO + OH ', & - ' C42O --> NO3CH2CHO + GLYOX + HO2 ', & - ' C42OH --> C42AOH + CO + 2 HO2 ', & - ' C42OH + OH --> H3NCO2CHO + HO2 ', & - ' H3NCO2CHO --> NMGLYOX + CO + 2 HO2 ', & - ' H3NCO2CHO + NO3 --> NMGLYOX + HNO3 + CO + HO2 ', & - ' H3NCO2CHO + OH --> NMGLYOX + CO + HO2 ', & - ' HC3CO2H + OH --> HOCH2CHO + CO + HO2 ', & - ' HC3CO3H --> HOCH2CHO + OH + CO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_284 = (/ & - ' HC3CO3H + OH --> HC3CO3 ', & - ' C4PAN7 --> HC3CO3 + NO2 ', & - ' C4PAN7 + OH --> HOCH2CHO + 2 CO + NO2 ', & - ' GAOO + CO --> HOCH2CHO ', & - ' GAOO + NO --> HOCH2CHO + NO2 ', & - ' GAOO + NO2 --> HOCH2CHO + NO3 ', & - ' GAOO + SO2 --> SO3 + HOCH2CHO ', & - ' GAOO --> H2O2 + HOCH2CHO ', & - ' GAOO --> HOCH2CO2H ', & - ' C41OOH --> C41O + OH ', & - ' C41OOH + OH --> H13CO2CHO + OH ', & - ' C41NO3 + OH --> H13CO2CHO + NO2 ', & - ' C41O --> GLYOX + HOCH2CHO + HO2 ', & - ' C41OH --> GLYOX + HOCH2CHO + 2 HO2 ', & - ' C41OH + OH --> H13CO2CHO + HO2 ', & - ' H13CO2CHO --> HOCH2CHO + CO + 2 HO2 ', & - ' H13CO2CHO + NO3 --> H13CO2CO3 + HNO3 ', & - ' H13CO2CHO + OH --> H13CO2CO3 ', & - ' HMGLOO + CO --> HOCH2COCHO ', & - ' HMGLOO + NO --> HOCH2COCHO + NO2 ', & - ' HMGLOO + NO2 --> HOCH2COCHO + NO3 ', & - ' HMGLOO + SO2 --> SO3 + HOCH2COCHO ', & - ' HMGLOO --> HOCH2COCHO + H2O2 ', & - ' HMGLOO --> HOCH2COCO2H ', & - ' MVKOHAOOH + OH --> H13CO2CHO + OH ', & - ' MVKOHAOOH --> MVKOHAO + OH ', & - ' MVKOHANO3 + OH --> H13CO2CHO + NO2 ', & - ' MVKOHAO --> HOCH2COCHO + HCHO + HO2 ', & - ' MVKOHAOH + OH --> H13CO2CHO + HO2 ', & - ' MVKOHAOH --> HOCH2CO3 + HOCH2CHO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_285 = (/ & - ' MVKOHBOOH + OH --> H14CO23C4 + OH ', & - ' MVKOHBOOH --> HOCH2CO3 + HOCH2CHO + OH ', & - ' MVKOHBOOH --> MVKOHBO + OH ', & - ' MVKOHBO --> HOCH2CO3 + HOCH2CHO ', & - ' H14CO23C4 + OH --> H1CO23CHO + HO2 ', & - ' H14CO23C4 --> 2 HOCH2CO3 ', & - ' HC3CCO3H --> ACR + OH + HO2 ', & - ' HC3CCO3H + OH --> HC3CCO3 ', & - ' C4PAN8 --> HC3CCO3 + NO2 ', & - ' C4PAN8 + OH --> ACR + CO + NO2 ', & - ' NC3OO + CO --> NOA ', & - ' NC3OO + NO --> NOA + NO2 ', & - ' NC3OO + NO2 --> NOA + NO3 ', & - ' NC3OO + SO2 --> SO3 + NOA ', & - ' NC3OO --> NOA + H2O2 ', & - ' INCOOH --> INCO + OH ', & - ' INCOOH + OH --> INCCO + OH ', & - ' INCOOH + OH --> INCO2 ', & - ' INCNO3 + OH --> INCCO + NO2 ', & - ' INCNO3 + OH --> INCNCHO + HO2 ', & - ' INCNO3 + OH --> NOA + HOCH2CHO + NO2 ', & - ' INCO --> NOA + HOCH2CHO + HO2 ', & - ' INCCO --> C59O + NO2 ', & - ' INCCO + OH --> INCGLYOX + HO2 ', & - ' INCOH + OH --> INCCO + HO2 ', & - ' NC4CO2H + OH --> NOA + CO + HO2 ', & - ' NC4CO3H --> NOA + OH + CO + HO2 ', & - ' NC4CO3H + OH --> NC4CO3 ', & - ' C5PAN18 --> NC4CO3 + NO2 ', & - ' C5PAN18 + OH --> NOA + 2 CO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_286 = (/ & - ' NOAOO + CO --> NOA ', & - ' NOAOO + NO --> NOA + NO2 ', & - ' NOAOO + NO2 --> NOA + NO3 ', & - ' NOAOO + SO2 --> SO3 + NOA ', & - ' NOAOO --> NOA + H2O2 ', & - ' C510OOH --> C510O + OH ', & - ' C510OOH + OH --> C510O2 ', & - ' C510O --> NOA + GLYOX + HO2 ', & - ' C510OH + OH --> C510O ', & - ' CO2N3CHO + OH --> CO2N3CO3 ', & - ' CO2N3CHO --> GLYOX + CH3CO3 + NO2 ', & - ' IEPOXA + OH --> IEACHO + HO2 ', & - ' C526O2 + HO2 --> C526OOH ', & - ' C526O2 + NO --> C526NO3 ', & - ' C526O2 + NO --> C526O + NO2 ', & - ' C526O2 + NO3 --> C526O + NO2 ', & - ' C526O2 --> C526O ', & - ' C526O2 --> HMVKBOOH + OH + CO ', & - ' M3F + NO3 --> C4MDIAL + NO2 ', & - ' M3F + O3 --> M3FOOA ', & - ' M3F + OH --> C4MDIAL + HO2 ', & - ' NC2OOA --> NC2OO ', & - ' NC2OOA --> GLYOX + OH + NO2 ', & - ' ACLOOA --> ACLOO ', & - ' ACLOOA --> MGLYOX + OH + HO2 ', & - ' C536OOH + OH --> DHPMVK + OH + CO ', & - ' C536OOH --> C3MDIALOOH + HCHO + 2 OH ', & - ' C536OOH --> DHPMVK + OH + CO + HO2 ', & - ' C536OOH --> HCOCH2OOH + MGLYOX + 2 OH ', & - ' C536O --> HCOCH2OOH + MGLYOX + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_287 = (/ & - ' DHPMVK + OH --> BIACETOOH + OH ', & - ' DHPMVK + OH --> C4CO2OOH + OH ', & - ' DHPMVK --> HCOCH2OOH + CH3CO3 + OH ', & - ' DHPMVK --> MGLYOX + HCHO + 2 OH ', & - ' C5PACALD1 + O3 --> GLYOOC + CH3COCO3H ', & - ' C5PACALD1 + O3 --> PPACLOOA + GLYOX ', & - ' C5PACALD1 + OH --> C534O2 ', & - ' C5PACALD1 --> GLYOX + CH3CO3 + OH ', & - ' PGAOOB --> GLYOX + 2 OH ', & - ' C4MALOHOOH + OH --> CO2H3CHO + OH + CO ', & - ' C4MALOHOOH --> C4M2ALOHO + OH ', & - ' C4MALOHOOH --> CO2H3CHO + OH + CO + HO2 ', & - ' HVMK + OH --> CO2H3CHO + HO2 ', & - ' HVMK --> GLYOX + CH3CO3 + OH ', & - ' HC4ACO3 + HO2 --> ACETOL + OH + CO + HO2 ', & - ' HC4ACO3 + HO2 --> HC4ACO2H + O3 ', & - ' HC4ACO3 + HO2 --> HC4ACO3H ', & - ' HC4ACO3 + NO --> ACETOL + CO + NO2 + HO2 ', & - ' HC4ACO3 + NO2 --> C5PAN17 ', & - ' HC4ACO3 + NO3 --> ACETOL + CO + NO2 + HO2 ', & - ' HC4ACO3 --> ACETOL + CO + HO2 ', & - ' HC4ACO3 --> C5PACALD2 + HO2 ', & - ' HC4ACO3 --> HC4ACO2H ', & - ' C58AO2 + HO2 --> C58AOOH ', & - ' C58AO2 + NO --> C58ANO3 ', & - ' C58AO2 + NO --> C58AO + NO2 ', & - ' C58AO2 + NO3 --> C58AO + NO2 ', & - ' C58AO2 --> C58AO ', & - ' C58AO2 --> MACROH + OH + CO ', & - ' IEPOXB + OH --> C57O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_288 = (/ & - ' IEPOXB + OH --> C58AO2 ', & - ' IEPOXB + OH --> C59O2 ', & - ' IEPOXB + OH --> IEB1CHO ', & - ' IEPOXB + OH --> IEB4CHO ', & - ' MACRNOOA --> ACETOL + OH + CO + NO2 ', & - ' MACRNOOA --> ACETOL + NO2 + HO2 ', & - ' MACRNOOA --> MACRNOO ', & - ' MACRNOOA --> PROPOLNO3 ', & - ' INB1O2 + HO2 --> INB1OOH ', & - ' INB1O2 + NO --> INB1NO3 ', & - ' INB1O2 + NO --> INB1O + NO2 ', & - ' INB1O2 + NO3 --> INB1O + NO2 ', & - ' INB1O2 --> INB1CO ', & - ' INB1O2 --> INB1O ', & - ' INB1O2 --> INB1OH ', & - ' INB2O2 + HO2 --> INB2OOH ', & - ' INB2O2 + NO --> INANO3 ', & - ' INB2O2 + NO --> INB2O + NO2 ', & - ' INB2O2 --> C58NO3 ', & - ' INB2O2 --> INB1OH ', & - ' INB2O2 --> INB2O ', & - ' IEPOXC + OH --> C59O2 ', & - ' IEPOXC + OH --> IECCHO + HO2 ', & - ' C527O2 + HO2 --> C527OOH ', & - ' C527O2 + NO --> C527NO3 ', & - ' C527O2 + NO --> C527O + NO2 ', & - ' C527O2 + NO3 --> C527O + NO2 ', & - ' C527O2 --> C527O ', & - ' C527O2 --> MACROOH + OH + CO ', & - ' C537OOH + OH --> DHPMACR + OH + CO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_289 = (/ & - ' C537OOH --> C4CO2OOH + HCHO + 2 OH ', & - ' C537OOH --> DHPMACR + OH + CO + HO2 ', & - ' C537OOH --> HYPERACET + GLYOX + 2 OH ', & - ' C537O --> HYPERACET + GLYOX + OH ', & - ' DHPMACR + OH --> C3MDIALOOH + OH ', & - ' DHPMACR + OH --> HYPERACET + OH + CO ', & - ' DHPMACR --> C3MDIALOOH + OH ', & - ' DHPMACR --> HYPERACET + OH + CO + HO2 ', & - ' DHPMACR --> MGLYOX + HCHO + 2 OH ', & - ' C5PACALD2 + O3 --> MGLYOOA + HCOCO3H ', & - ' C5PACALD2 + O3 --> PPGAOOB + MGLYOX ', & - ' C5PACALD2 + OH --> C535O2 ', & - ' C5PACALD2 --> MGLYOX + OH + CO + HO2 ', & - ' PACLOOA --> MGLYOX + 2 OH ', & - ' HPC52O2 + HO2 --> HPC52OOH ', & - ' HPC52O2 + NO --> HPC52O + NO2 ', & - ' HPC52O2 + NO3 --> HPC52O + NO2 ', & - ' HPC52O2 --> HPC52O ', & - ' HMAC + OH --> C3MDIALOH + HO2 ', & - ' HMAC --> MGLYOX + OH + CO + HO2 ', & - ' HC4CCO3 + HO2 --> HOCH2CHO + CH3CO3 + OH ', & - ' HC4CCO3 + HO2 --> HC4CCO2H + O3 ', & - ' HC4CCO3 + HO2 --> HC4CCO3H ', & - ' HC4CCO3 + NO --> HOCH2CHO + CH3CO3 + NO2 ', & - ' HC4CCO3 + NO2 --> C5PAN19 ', & - ' HC4CCO3 + NO3 --> HOCH2CHO + CH3CO3 + NO2 ', & - ' HC4CCO3 --> C5PACALD1 + HO2 ', & - ' HC4CCO3 --> HOCH2CHO + CH3CO3 ', & - ' HC4CCO3 --> HC4CCO2H ', & - ' C57AO2 + HO2 --> C57AOOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_290 = (/ & - ' C57AO2 + NO --> C57AO + NO2 ', & - ' C57AO2 + NO --> INDHCHO ', & - ' C57AO2 + NO3 --> C57AO + NO2 ', & - ' C57AO2 --> C57AO ', & - ' C57O2 + HO2 --> C57OOH ', & - ' C57O2 + NO --> C57NO3 ', & - ' C57O2 + NO --> C57O + NO2 ', & - ' C57O2 + NO3 --> C57O + NO2 ', & - ' C57O2 --> C57O ', & - ' C57O2 --> C57OH ', & - ' C57O2 --> HO12CO3C4 + OH + CO ', & - ' NC4OOA --> NC4OO ', & - ' NC4OOA --> BIACETOH + OH + NO2 ', & - ' INDO2 + HO2 --> INDOOH ', & - ' INDO2 + NO --> INB1NO3 ', & - ' INDO2 + NO --> INDO + NO2 ', & - ' INDO2 + NO3 --> INDO + NO2 ', & - ' INDO2 --> INDO ', & - ' INDO2 --> INDOH ', & - ' C59O2 + HO2 --> C59OOH ', & - ' C59O2 + NO --> C59O + NO2 ', & - ' C59O2 + NO3 --> C59O + NO2 ', & - ' C59O2 --> C59O ', & - ' INAOOH --> INAO + OH ', & - ' INAOOH + OH --> INAHPCHO + HO2 ', & - ' INAOOH + OH --> INAO2 ', & - ' INANO3 + OH --> NO3CH2CHO + ACETOL + NO2 ', & - ' INANO3 + OH --> C58NO3 + NO2 ', & - ' INANO3 + OH --> HMVKANO3 + HCHO + NO2 ', & - ' INANO3 + OH --> INANCHO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_291 = (/ & - ' INANO3 + OH --> INANCO + HO2 ', & - ' INAO --> NO3CH2CHO + ACETOL + HO2 ', & - ' INAOH + OH --> INAHCHO + HO2 ', & - ' NC41OO + CO --> HMVKANO3 ', & - ' NC41OO + NO --> HMVKANO3 + NO2 ', & - ' NC41OO + NO2 --> HMVKANO3 + NO3 ', & - ' NC41OO + SO2 --> SO3 + HMVKANO3 ', & - ' NC41OO --> HMVKANO3 + H2O2 ', & - ' C58OOH --> C58O + OH ', & - ' C58OOH + OH --> C4MALOHOOH + HO2 ', & - ' C58NO3 --> ACETOL + GLYOX + NO2 + HO2 ', & - ' C58NO3 + OH --> C58NO3CO3 ', & - ' C58O --> ACETOL + GLYOX + HO2 ', & - ' C58OH + OH --> C58O ', & - ' HC4CO3H + OH --> HC4CO3 ', & - ' HC4CO3H --> MACR + OH + HO2 ', & - ' HC4PAN + OH --> MACR + CO + NO2 ', & - ' HC4PAN --> HC4CO3 + NO2 ', & - ' CO2C3CO2H + OH --> CH3COCH2O2 ', & - ' CO24C4CHO --> CO2C3CO3 + CO + HO2 ', & - ' CO24C4CHO + NO3 --> CO2C3CO3 + HNO3 + CO ', & - ' CO24C4CHO + OH --> CO2C3CO3 + CO ', & - ' C524O2 + HO2 --> C524OOH ', & - ' C524O2 + NO --> C524NO3 ', & - ' C524O2 + NO --> C524O + NO2 ', & - ' C524O2 + NO3 --> C524O + NO2 ', & - ' C524O2 --> C524CO ', & - ' C524O2 --> C524O ', & - ' C524O2 --> C524OH ', & - ' C524O2 --> HMACR + HCHO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_292 = (/ & - ' CHOOCH2OOH + OH --> CHOOCH2O2 ', & - ' CHOOCH2OOH + OH --> CHOOCHO + OH ', & - ' CHOOCH2OOH --> CHOOCH2O + OH ', & - ' CHOOCH2NO3 + OH --> CHOOCHO + NO2 ', & - ' CHOOCH2NO3 --> CHOOCH2O + NO2 ', & - ' CHOOCH2O --> CHOOCHO + HO2 ', & - ' CHOOCH2O --> HCOOH + CO + HO2 ', & - ' CHOOCH2OH + OH --> CHOOCHO + HO2 ', & - ' CHOOCHO + OH --> CO + HO2 ', & - ' ACEC2H4OOH + OH --> ACETC2H4O2 ', & - ' ACEC2H4OOH + OH --> ACETETCHO + OH ', & - ' ACEC2H4OOH --> ACETC2H4O + OH ', & - ' ACEC2H4NO3 + OH --> ACETETCHO + NO2 ', & - ' ACEC2H4NO3 --> ACETC2H4O + NO2 ', & - ' ACETC2H4O --> ACETETCHO + HO2 ', & - ' ACETETCHO + NO3 --> ACETMECO3 + HNO3 ', & - ' ACETETCHO + OH --> ACETMECO3 ', & - ' ACETETCHO --> METHACETO2 + CO + HO2 ', & - ' ETACETOH + OH --> ACETETCHO + HO2 ', & - ' EOCOCH2OOH + OH --> EOCOCH2O2 ', & - ' EOCOCH2OOH + OH --> EOCOCHO + OH ', & - ' EOCOCH2OOH --> EOCOCH2O + OH ', & - ' EOCOCH2O --> C2H5O2 ', & - ' EOCOCHO + NO3 --> C2H5O2 + HNO3 + CO ', & - ' EOCOCHO + OH --> C2H5O2 + CO ', & - ' EOCOCHO --> C2H5O2 + CO + HO2 ', & - ' EOX2COMEOH + OH --> HOACETETO2 ', & - ' ETHACETOOH + OH --> ETHACETO2 ', & - ' ETHACETOOH + OH --> METHCOACET + OH ', & - ' ETHACETOOH --> ETHACETO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_293 = (/ & - ' METHCOACET + OH --> MECOACETO2 ', & - ' ETACETNO3 + OH --> METHCOACET + NO2 ', & - ' ETACETNO3 --> ETHACETO + NO2 ', & - ' ETHACETO --> CH3CHO + CH3O2 ', & - ' ETHACETOH + OH --> METHCOACET + HO2 ', & - ' ETHFORMO2 + HO2 --> ETHFORMOOH ', & - ' ETHFORMO2 + HO2 --> METACETHO ', & - ' ETHFORMO2 + NO --> ETHFORMNO3 ', & - ' ETHFORMO2 + NO --> ETHFORMO + NO2 ', & - ' ETHFORMO2 + NO3 --> ETHFORMO + NO2 ', & - ' ETHFORMO2 --> ETHFORMO ', & - ' ETHFORMO2 --> ETHFORMOH ', & - ' ETHFORMO2 --> METACETHO ', & - ' ETOMEOOH + OH --> ETHFORM + OH ', & - ' ETOMEOOH --> ETOMEO + OH ', & - ' ETOMENO3 + OH --> ETHFORM + NO2 ', & - ' ETOMENO3 --> ETOMEO + NO2 ', & - ' ETOMEO --> ETHFORM + HO2 ', & - ' ETOMEOH + OH --> ETHFORM + HO2 ', & - ' EOX2OLAOOH + OH --> EOX2COMEOH + HO2 ', & - ' EOX2OLAOOH --> EOX2EOLAO + OH ', & - ' EOX2EOLAO --> ETHFORM + HCHO + HO2 ', & - ' EOX2OLANO3 + OH --> EOX2COMEOH + NO2 ', & - ' EOX2OLANO3 --> EOX2EOLAO + NO2 ', & - ' EOX2ETA2OH + OH --> EOX2COMEOH + HO2 ', & - ' EOX2OLBOOH + OH --> ETACETOH + OH ', & - ' EOX2OLBOOH --> EOX2EOLBO + OH ', & - ' EOX2EOLBO --> ETOHOCHO + CH3O2 ', & - ' EOX2OLBNO3 + OH --> ETACETOH + NO2 ', & - ' EOX2OLBNO3 --> EOX2EOLBO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_294 = (/ & - ' EOX2ETB2OH + OH --> ETACETOH + HO2 ', & - ' ETOMECO2H + OH --> ETOMEO2 ', & - ' ETOMECO3H + OH --> EOX2MECO3 ', & - ' ETOMECO3H --> ETOMEO2 + OH ', & - ' ETOMEPAN + OH --> ETHFORM + CO + NO2 ', & - ' ETOMEPAN --> EOX2MECO3 + NO2 ', & - ' HOCO3C4OOH + OH --> HO1CO3C4O2 ', & - ' HOCO3C4OOH + OH --> HO1CO3CHO + OH ', & - ' HOCO3C4OOH --> HO1CO3C4O + OH ', & - ' HO1CO3C4O --> HCHO + HOC2H4CO3 ', & - ' HO14CO2C4 + OH --> HO1CO3CHO + HO2 ', & - ' HO14CO2C4 --> HOCH2CH2O2 + HOCH2CO3 ', & - ' HO1CO3CHO + NO3 --> HNO3 + HOC2H4CO3 + CO ', & - ' HO1CO3CHO + OH --> HOC2H4CO3 + CO ', & - ' HO1CO3CHO --> HOC2H4CO3 + CO + HO2 ', & - ' BIACETOOH --> BIACETO + OH ', & - ' BIACETOOH + OH --> BIACETO2 ', & - ' BIACETOOH + OH --> CO23C3CHO + OH ', & - ' BIACETO --> HCHO + CH3CO3 + CO ', & - ' HOCO4C5OOH + OH --> HO2CO4C5O2 ', & - ' HOCO4C5OOH + OH --> HO2CO4CHO + OH ', & - ' HOCO4C5OOH --> HO2CO4C5O + OH ', & - ' HO2CO4C5O --> CO2C3CO3 + HCHO ', & - ' HO14CO2C5 + OH --> HO1CO24C5 + HO2 ', & - ' HO14CO2C5 --> IPROPOLO2 + HOCH2CO3 ', & - ' HO2CO4CHO + OH --> CO24C4CHO + HO2 ', & - ' HO2CO4CHO --> HO2C3CO3 + CO + HO2 ', & - ' CO23C54OOH + OH --> CO23C54O2 ', & - ' CO23C54OOH --> CO23C54O + OH ', & - ' CO23C54O --> CH3CHO + CH3CO3 + CO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_295 = (/ & - ' HOCO3C5OOH + OH --> HOCO3C54O2 ', & - ' HOCO3C5OOH --> CH3CHO + HOC2H4CO3 + OH ', & - ' HOCO3C5OOH --> HOCO3C54O + OH ', & - ' HOCO3C54O --> CH3CHO + HOC2H4CO3 ', & - ' HO14CO3C5 + OH --> HO1CO34C5 + HO2 ', & - ' HO14CO3C5 --> CH3CHO + HOC2H4CO3 ', & - ' HO1CO34C5 --> HOC2H4CO3 + CH3CO3 ', & - ' HO1CO34C5 + OH --> CO23C4CHO + HO2 ', & - ' C53OOH --> C53O + OH ', & - ' C53OOH --> HOIPRCO3 + HCHO + OH ', & - ' C53OOH + OH --> C53O2 ', & - ' C53OOH + OH --> HOIPRGLYOX + OH ', & - ' C53O --> HOIPRCO3 + HCHO ', & - ' C53OH --> HOIPRCO3 + HCHO + HO2 ', & - ' C53OH + OH --> HOIPRGLYOX + HO2 ', & - ' HOIPRGLYOX --> HOIPRCO3 + CO + HO2 ', & - ' HOIPRGLYOX + OH --> HOIPRCO3 + CO ', & - ' C41CO2H --> C2H5O2 + CH3CO3 ', & - ' C41CO2H + OH --> MEKBO2 ', & - ' C41CO3H --> C2H5CO3 + CH3CO3 ', & - ' C41CO3H --> MEKBO2 + OH ', & - ' C41CO3H + OH --> C41CO3 ', & - ' C5PAN7 --> C41CO3 + NO2 ', & - ' C5PAN7 + OH --> BIACET + CO + NO2 ', & - ' CO2HOC6OOH + OH --> CO2HOC61O2 ', & - ' CO2HOC6OOH --> CO2HOC61O + OH ', & - ' CO2HOC61O --> HO3C4CO3 + HCHO ', & - ' CO24C6OOH + OH --> CO235C6 + OH ', & - ' CO24C6OOH + OH --> CO24C6O2 ', & - ' CO24C6OOH --> CO2C3CO3 + CH3CHO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_296 = (/ & - ' CO24C6OOH --> CO24C6O + OH ', & - ' CO24C6O --> CO2C3CO3 + CH3CHO ', & - ' CO25C6OOH --> CO2C3CHO + CH3CO3 + OH ', & - ' CO25C6OOH --> CO25C6O + OH ', & - ' CO25C6OOH + OH --> CO235C6 + OH ', & - ' CO25C6O --> CO2C3CHO + CH3CO3 ', & - ' CO235C6 --> CH3COCH2O2 + CH3CO3 + CO ', & - ' CO235C6 --> CO2C3CO3 + CH3CO3 ', & - ' CO235C6 + OH --> C62O2 ', & - ' CO25C6OH --> CO2C3CHO + CH3CO3 + HO2 ', & - ' CO25C6OH + OH --> CO235C6 + HO2 ', & - ' HO2C4OOH --> HO2C4O + OH ', & - ' HO2C4OOH + OH --> HO2C3CHO + OH ', & - ' HO2C4OOH + OH --> HO2C4O2 ', & - ' HO2C4NO3 --> HO2C4O + NO2 ', & - ' HO2C4NO3 + OH --> HO2C3CHO + NO2 ', & - ' HO2C4O --> HO13C4O2 ', & - ' HO2C4O --> HO2C3CHO + HO2 ', & - ' C61OOH --> C61O + OH ', & - ' C61OOH + OH --> C61CO + OH ', & - ' C61NO3 --> C61O + NO2 ', & - ' C61NO3 + OH --> C61CO + NO2 ', & - ' C61O --> CH3CHO + CO2C3CHO + HO2 ', & - ' C61CO --> CO2C3CO3 + CH3CHO + HO2 ', & - ' C61CO + OH --> CO235C6 + HO2 ', & - ' C61OH --> C61O + HO2 ', & - ' C61OH + OH --> C61CO + HO2 ', & - ' CO23C65OOH + OH --> CO23C65O2 ', & - ' CO23C65OOH --> CO23C65O + OH ', & - ' CO23C65O --> CH3CHO + BIACETO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_297 = (/ & - ' CO23C65O --> CO235C6 + HO2 ', & - ' C6CO3OHOOH + OH --> C6CO23HO5 + OH ', & - ' C6CO3OHOOH + OH --> C6CO3OH5O2 ', & - ' C6CO3OHOOH --> C6CO3OH5O + OH ', & - ' C6CO3OH5O --> HO2C3CO3 + CH3CHO ', & - ' C6CO23HO5 + OH --> CO235C6 + HO2 ', & - ' C6CO23HO5 --> HO2C3CO3 + CH3CO3 ', & - ' C6CO3HO25 + OH --> C61CO + HO2 ', & - ' C6CO3HO25 --> CH3CHOHCO3 + IPROPOLO2 ', & - ' C6CO34OOH + OH --> C6CO34O2 ', & - ' C6CO34OOH --> C6CO34O + OH ', & - ' C6CO34O --> C2H5CO3 + CH3CHO + CO ', & - ' C6HOCOOOH + OH --> C6CO34HO1 + OH ', & - ' C6HOCOOOH + OH --> C6HO1CO3O2 ', & - ' C6HOCOOOH --> C2H5CHO + HOC2H4CO3 + OH ', & - ' C6HOCOOOH --> C6HO1CO3O + OH ', & - ' C6HO1CO3O --> C2H5CHO + HOC2H4CO3 ', & - ' C6CO34HO1 + OH --> C6CO134 + HO2 ', & - ' C6CO34HO1 --> C2H5CO3 + HOC2H4CO3 ', & - ' C6CO3HO14 + OH --> C6CO34HO1 + HO2 ', & - ' C6CO3HO14 --> C2H5CHO + HOC2H4CO3 + HO2 ', & - ' C3COCCO3H + OH --> C3COCCO3 ', & - ' C3COCCO3H --> PEN2ONE1O2 + OH ', & - ' C3COCPAN + OH --> PGLYOX + CO + NO2 ', & - ' C3COCPAN --> C3COCCO3 + NO2 ', & - ' PE2ONE1OOH + OH --> PEN2ONE1O2 ', & - ' PE2ONE1OOH --> PEN2ONE1O + OH ', & - ' MIBK3COOOH + OH --> MIBK3COO2 ', & - ' MIBK3COOOH --> MIBK3COO + OH ', & - ' MIBK3COO --> CH3COCH3 + CH3CO3 + CO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_298 = (/ & - ' C612OOH --> C612O + OH ', & - ' C612OOH + OH --> C612O2 ', & - ' C612OOH + OH --> HM22COCHO + OH ', & - ' C612O --> HM22CO3 + HCHO ', & - ' C612OH --> C612O + HO2 ', & - ' C612OH + OH --> HM22COCHO + HO2 ', & - ' HM22COCHO --> HM22CO3 + CO + HO2 ', & - ' HM22COCHO + OH --> HM22CO3 + CO ', & - ' CO2M33CO2H + OH --> MIPKAO2 ', & - ' CO2M33CO3H --> MIPKAO2 + OH ', & - ' CO2M33CO3H + OH --> CO2M33CO3 ', & - ' C6PAN16 --> CO2M33CO3 + NO2 ', & - ' C6PAN16 + OH --> BIACET + HCHO + CO + NO2 ', & - ' C6COCHOOOH + OH --> C6COCHOO2 ', & - ' C6COCHOOOH --> C6COCHOO + OH ', & - ' C6COCHOO --> C6CODIAL + HO2 ', & - ' C6CODIAL + NO3 --> C6COCHOCO3 + HNO3 ', & - ' C6CODIAL + OH --> C6COCHOCO3 ', & - ' C6CODIAL --> C5COCHOO2 + CO + HO2 ', & - ' C6CODIAL --> CHOC2H4O2 + HCOCH2CO3 ', & - ' C6COHOCHO + OH --> C6CODIAL + HO2 ', & - ' C6COHOCHO --> HO1C3O2 + HCOCH2CO3 ', & - ' CY6COCOOOH + OH --> CY6DIONO2 ', & - ' CY6COCOOOH + OH --> CY6TRION + OH ', & - ' CY6COCOOOH --> CY6DIONO + OH ', & - ' CY6DIONO --> CY6TRION + HO2 ', & - ' CY6DIONO --> CY6TRIONO2 ', & - ' CY6DIONOH + OH --> CY6TRION + HO2 ', & - ' CY6DIONOH --> VINOH + ACR + CO ', & - ' CY6TRION + OH --> C6CYTONO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_299 = (/ & - ' CY6TRION --> C3H6 + 3 CO ', & - ' PINALO2 + HO2 --> PINALOOH ', & - ' PINALO2 + NO --> PINALNO3 ', & - ' PINALO2 + NO --> PINALO + NO2 ', & - ' PINALO2 + NO3 --> PINALO + NO2 ', & - ' PINALO2 --> PINALO ', & - ' PINALO2 --> PINALOH ', & - ' NC101OOH + OH --> NC101O2 ', & - ' NC101OOH --> NC101O + OH ', & - ' NC101O --> NC102O2 ', & - ' PERPINONIC + OH --> C96CO3 ', & - ' PERPINONIC --> C96O2 + OH ', & - ' C10PAN2 + OH --> NORPINAL + CO + NO2 ', & - ' C10PAN2 --> C96CO3 + NO2 ', & - ' C108O2 + HO2 --> C108OOH ', & - ' C108O2 + NO --> C108NO3 ', & - ' C108O2 + NO --> C108O + NO2 ', & - ' C108O2 + NO3 --> C108O + NO2 ', & - ' C108O2 --> C108O ', & - ' C108O2 --> C108OH ', & - ' C89CO3 + HO2 --> C89CO2 + OH ', & - ' C89CO3 + HO2 --> C89CO2H + O3 ', & - ' C89CO3 + HO2 --> C89CO3H ', & - ' C89CO3 + NO --> C89CO2 + NO2 ', & - ' C89CO3 + NO2 --> C89PAN ', & - ' C89CO3 + NO3 --> C89CO2 + NO2 ', & - ' C89CO3 --> C89CO2 ', & - ' C89CO3 --> C89CO2H ', & - ' C920CO3 + HO2 --> C920CO3H ', & - ' C920CO3 + HO2 --> C920O2 + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_300 = (/ & - ' C920CO3 + HO2 --> HOPINONIC + O3 ', & - ' C920CO3 + NO --> C920O2 + NO2 ', & - ' C920CO3 + NO2 --> C920PAN ', & - ' C920CO3 + NO3 --> C920O2 + NO2 ', & - ' C920CO3 --> C920O2 ', & - ' C920CO3 --> HOPINONIC ', & - ' C920O2 + HO2 --> C920OOH ', & - ' C920O2 + NO --> C920O + NO2 ', & - ' C920O2 + NO3 --> C920O + NO2 ', & - ' C920O2 --> C920O ', & - ' C97O2 + HO2 --> C97OOH ', & - ' C97O2 + NO --> C97O + NO2 ', & - ' C97O2 + NO3 --> C97O + NO2 ', & - ' C97O2 --> C97O ', & - ' C97O2 --> C97OH ', & - ' C85CO3 + HO2 --> C85CO3H ', & - ' C85CO3 + HO2 --> C85O2 + OH ', & - ' C85CO3 + NO --> C85O2 + NO2 ', & - ' C85CO3 + NO2 --> C9PAN2 ', & - ' C85CO3 + NO3 --> C85O2 + NO2 ', & - ' C85CO3 --> C85O2 ', & - ' C85O2 + HO2 --> C85OOH ', & - ' C85O2 + NO --> C85O + NO2 ', & - ' C85O2 + NO3 --> C85O + NO2 ', & - ' C85O2 --> C85O ', & - ' C719O2 + HO2 --> C719OOH ', & - ' C719O2 + NO --> C719NO3 ', & - ' C719O2 + NO --> C719O + NO2 ', & - ' C719O2 + NO3 --> C719O + NO2 ', & - ' C719O2 --> C719O ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_301 = (/ & - ' C719O2 --> C719OH ', & - ' C720OOH + OH --> HCC7CO + OH ', & - ' C720OOH --> C720O + OH ', & - ' C720NO3 + OH --> HCC7CO + NO2 ', & - ' C720NO3 --> C720O + NO2 ', & - ' C720O --> HCC7CO + HO2 ', & - ' C720OH + OH --> HCC7CO + HO2 ', & - ' NC91CO3H + OH --> NC91CO3 ', & - ' NC91CO3H --> NOPINONE + OH + NO2 ', & - ' NC91PAN + OH --> NOPINONE + CO + 2 NO2 ', & - ' NC91PAN --> NC91CO3 + NO2 ', & - ' C918O2 + HO2 --> C918OOH ', & - ' C918O2 + NO --> C918NO3 ', & - ' C918O2 + NO --> C918O + NO2 ', & - ' C918O2 + NO3 --> C918O + NO2 ', & - ' C918O2 --> C918O ', & - ' C918O2 --> C918OH ', & - ' C9DCO2 + HO2 --> C9DCOOH ', & - ' C9DCO2 + NO --> C9DCNO3 ', & - ' C9DCO2 + NO --> C9DCO + NO2 ', & - ' C9DCO2 + NO3 --> C9DCO + NO2 ', & - ' C9DCO2 --> C9DCCO ', & - ' C9DCO2 --> C9DCO ', & - ' C9DCO2 --> C9DCOH ', & - ' C915O2 + HO2 --> C915OOH ', & - ' C915O2 + NO --> C915NO3 ', & - ' C915O2 + NO --> C915O + NO2 ', & - ' C915O2 + NO3 --> C915O + NO2 ', & - ' C915O2 --> C88CHO ', & - ' C915O2 --> C915O ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_302 = (/ & - ' C915O2 --> C915OH ', & - ' C619CO + OH --> C512CO3 ', & - ' C917O2 + HO2 --> C917OOH ', & - ' C917O2 + NO --> C917NO3 ', & - ' C917O2 + NO --> C917O + NO2 ', & - ' C917O2 + NO3 --> C917O + NO2 ', & - ' C917O2 --> C917O ', & - ' C917O2 --> C917OH ', & - ' C8BCOOH + OH --> C8BCCO + OH ', & - ' C8BCOOH --> C8BCO + OH ', & - ' C8BCNO3 + OH --> C8BCCO + NO2 ', & - ' C8BCNO3 --> C8BCO + NO2 ', & - ' C8BCO --> C89O2 ', & - ' C8BCCO + OH --> C89O2 ', & - ' C8BCOH + OH --> C8BCCO + HO2 ', & - ' C918CO3H + OH --> C918CO3 ', & - ' C918CO3H --> NOPINONE + OH + HO2 ', & - ' C918PAN + OH --> NOPINONE + CO + NO2 ', & - ' C918PAN --> C918CO3 + NO2 ', & - ' NLIMALO2 + HO2 --> NLIMALOOH ', & - ' NLIMALO2 + NO --> NLIMALO + NO2 ', & - ' NLIMALO2 + NO3 --> NLIMALO + NO2 ', & - ' NLIMALO2 --> NLIMALO ', & - ' NLIMALO2 --> NLIMALOH ', & - ' LIMALOOA --> C926O2 + OH ', & - ' LMLKET + NO3 --> C817CO3 + HNO3 ', & - ' LMLKET + OH --> C817CO3 ', & - ' LMLKET + OH --> C926O2 ', & - ' LMLKET --> C817O2 + CO + HO2 ', & - ' LIMALO2 + HO2 --> LIMALOOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_303 = (/ & - ' LIMALO2 + NO --> LIMALNO3 ', & - ' LIMALO2 + NO --> LIMALO + NO2 ', & - ' LIMALO2 + NO3 --> LIMALO + NO2 ', & - ' LIMALO2 --> LIMALO ', & - ' LIMALO2 --> LIMALOH ', & - ' C729CHO + NO3 --> C729CO3 + HNO3 ', & - ' C729CHO + NO3 --> NC826O2 ', & - ' C729CHO + O3 --> CH2OOF + C626CHO ', & - ' C729CHO + O3 --> C735OOA + HCHO ', & - ' C729CHO + OH --> C729CO3 ', & - ' C729CHO + OH --> C826O2 ', & - ' C729CHO --> C729O2 + CO + HO2 ', & - ' C729CO3 + HO2 --> C729CO2H + O3 ', & - ' C729CO3 + HO2 --> C729CO3H ', & - ' C729CO3 + HO2 --> C729O2 + OH ', & - ' C729CO3 + NO --> C729O2 + NO2 ', & - ' C729CO3 + NO2 --> C729PAN ', & - ' C729CO3 + NO3 --> C729O2 + NO2 ', & - ' C729CO3 --> C729CO2H ', & - ' C729CO3 --> C729O2 ', & - ' C822CO3 + HO2 --> C822CO2 + OH ', & - ' C822CO3 + HO2 --> C822CO2H + O3 ', & - ' C822CO3 + HO2 --> C822CO3H ', & - ' C822CO3 + NO --> C822CO2 + NO2 ', & - ' C822CO3 + NO2 --> C822PAN ', & - ' C822CO3 + NO3 --> C822CO2 + NO2 ', & - ' C822CO3 --> C822CO2 ', & - ' C822CO3 --> C822CO2H ', & - ' C924O2 + HO2 --> C924OOH ', & - ' C924O2 + NO --> C924O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_304 = (/ & - ' C924O2 + NO3 --> C924O + NO2 ', & - ' C924O2 --> C924CO ', & - ' C924O2 --> C924O ', & - ' C924O2 --> C924OH ', & - ' C816CO3 + HO2 --> C816CO3H ', & - ' C816CO3 + HO2 --> C816O2 + OH ', & - ' C816CO3 + NO --> C816O2 + NO2 ', & - ' C816CO3 + NO2 --> C816PAN ', & - ' C816CO3 + NO3 --> C816O2 + NO2 ', & - ' C816CO3 --> C816O2 ', & - ' NORLIMO2 + HO2 --> NORLIMOOH ', & - ' NORLIMO2 + NO --> NORLIMO + NO2 ', & - ' NORLIMO2 + NO3 --> NORLIMO + NO2 ', & - ' NORLIMO2 --> NORLIMO ', & - ' C816O2 + HO2 --> C816OOH ', & - ' C816O2 + NO --> C816O + NO2 ', & - ' C816O2 + NO3 --> C816O + NO2 ', & - ' C816O2 --> C816O ', & - ' C923CO3H + OH --> C923CO3 ', & - ' C923CO3H --> C923O2 + OH ', & - ' C923PAN + OH --> NORLIMAL + CO + NO2 ', & - ' C923PAN --> C923CO3 + NO2 ', & - ' NLMKAO2 + HO2 --> NLMKAOOH ', & - ' NLMKAO2 + NO --> NLMKAO + NO2 ', & - ' NLMKAO2 + NO3 --> NLMKAO + NO2 ', & - ' NLMKAO2 --> LMKBNO3 ', & - ' NLMKAO2 --> NLMKAO ', & - ' LMKOOA --> LMLKAO2 + OH ', & - ' LMKOOA --> LMLKBO2 + OH ', & - ' LMKOOB --> C817O2 + OH + CO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_305 = (/ & - ' LMKOOB --> LMKBOO ', & - ' LMKAO2 + HO2 --> LMKAOOH ', & - ' LMKAO2 + NO --> LMKANO3 ', & - ' LMKAO2 + NO --> LMKAO + NO2 ', & - ' LMKAO2 + NO3 --> LMKAO + NO2 ', & - ' LMKAO2 --> LMKAO ', & - ' LMKAO2 --> LMKAOH ', & - ' LMKBO2 + HO2 --> LMKBOOH ', & - ' LMKBO2 + NO --> LMKBNO3 ', & - ' LMKBO2 + NO --> LMKBO + NO2 ', & - ' LMKBO2 + NO3 --> LMKBO + NO2 ', & - ' LMKBO2 --> LMKAOH ', & - ' LMKBO2 --> LMKBCO ', & - ' LMKBO2 --> LMKBO ', & - ' C141CO3H + OH --> C141CO3 ', & - ' C141CO3H --> C141O2 + OH ', & - ' C141PAN + OH --> C141CO + CO + NO2 ', & - ' C141PAN --> C141CO3 + NO2 ', & - ' NBCALOOH + OH --> NBCALO2 ', & - ' NBCALOOH --> NBCALO + OH ', & - ' NBCALO --> HCHO + BCLKET + NO2 ', & - ' NBCALOH + OH --> HCHO + BCLKET + NO2 ', & - ' BCALOO + CO --> BCLKET ', & - ' BCALOO + NO --> BCLKET + NO2 ', & - ' BCALOO + NO2 --> BCLKET + NO3 ', & - ' BCALOO + SO2 --> SO3 + BCLKET ', & - ' BCALOO --> H2O2 + BCLKET ', & - ' C146O2 + HO2 --> C146OOH ', & - ' C146O2 + NO --> C146O + NO2 ', & - ' C146O2 + NO3 --> C146O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_306 = (/ & - ' C146O2 --> C146CO ', & - ' C146O2 --> C146O ', & - ' C146O2 --> C146OH ', & - ' C131CO3 + HO2 --> C131CO2H + O3 ', & - ' C131CO3 + HO2 --> C131CO3H ', & - ' C131CO3 + HO2 --> C131O2 + OH ', & - ' C131CO3 + NO --> C131O2 + NO2 ', & - ' C131CO3 + NO2 --> C131PAN ', & - ' C131CO3 + NO3 --> C131O2 + NO2 ', & - ' C131CO3 --> C131CO2H ', & - ' C131CO3 --> C131O2 ', & - ' BCLKAO2 + HO2 --> BCLKAOOH ', & - ' BCLKAO2 + NO --> BCLKAO + NO2 ', & - ' BCLKAO2 + NO3 --> BCLKAO + NO2 ', & - ' BCLKAO2 --> BCLKACO ', & - ' BCLKAO2 --> BCLKAO ', & - ' BCLKAO2 --> BCLKAOH ', & - ' BCLKBO2 + HO2 --> BCLKBOOH ', & - ' BCLKBO2 + NO --> BCLKBO + NO2 ', & - ' BCLKBO2 + NO3 --> BCLKBO + NO2 ', & - ' BCLKBO2 --> BCLKBCO ', & - ' BCLKBO2 --> BCLKBO ', & - ' BCLKBO2 --> BCLKBOH ', & - ' BCLKCO2 + HO2 --> BCLKCOOH ', & - ' BCLKCO2 + NO --> BCLKCO + NO2 ', & - ' BCLKCO2 + NO3 --> BCLKCO + NO2 ', & - ' BCLKCO2 --> BCLKCCO ', & - ' BCLKCO2 --> BCLKCO ', & - ' BCLKCO2 --> BCLKCOH ', & - ' C131O2 + HO2 --> C131OOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_307 = (/ & - ' C131O2 + NO --> C131NO3 ', & - ' C131O2 + NO --> C131O + NO2 ', & - ' C131O2 + NO3 --> C131O + NO2 ', & - ' C131O2 --> C131CO ', & - ' C131O2 --> C131O ', & - ' C131O2 --> C131OH ', & - ' BCALOOH + OH --> BCALO2 ', & - ' BCALOOH --> BCALO + OH ', & - ' BCALNO3 + OH --> HCHO + BCLKET + NO2 ', & - ' BCALO --> HCHO + BCLKET + HO2 ', & - ' BCALOH + OH --> HCHO + BCLKET + HO2 ', & - ' BCSOZOOH + OH --> BCKSOZ + HCHO + OH ', & - ' BCSOZOOH --> BCSOZO + OH ', & - ' BCSOZNO3 + OH --> BCKSOZ + HCHO + NO2 ', & - ' BCSOZO --> BCKSOZ + HCHO + HO2 ', & - ' BCSOZOH + OH --> BCKSOZ + HCHO + HO2 ', & - ' C147O2 + HO2 --> C147OOH ', & - ' C147O2 + NO --> C147O + NO2 ', & - ' C147O2 + NO3 --> C147O + NO2 ', & - ' C147O2 --> C147CO ', & - ' C147O2 --> C147O ', & - ' C147O2 --> C147OH ', & - ' C141OO + CO --> C131CO2H ', & - ' C141OO + NO --> C131CO2H + NO2 ', & - ' C141OO + NO2 --> C131CO2H + NO3 ', & - ' C141OO + SO2 --> SO3 + C131CO2H ', & - ' C141OO --> C131CO2H + H2O2 ', & - ' C151OOH + OH --> C131CO2H + HCHO + OH ', & - ' C151OOH --> C151O + OH ', & - ' C151NO3 + OH --> C131CO2H + HCHO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_308 = (/ & - ' C151O --> C131CO2H + HCHO + HO2 ', & - ' C151OH + OH --> C131CO2H + HCHO + HO2 ', & - ' C126CO3 + HO2 --> C126CO2H + O3 ', & - ' C126CO3 + HO2 --> C126CO3H ', & - ' C126CO3 + HO2 --> C126O2 + OH ', & - ' C126CO3 + NO --> C126O2 + NO2 ', & - ' C126CO3 + NO2 --> C126PAN ', & - ' C126CO3 + NO3 --> C126O2 + NO2 ', & - ' C126CO3 --> C126CO2H ', & - ' C126CO3 --> C126O2 ', & - ' C136CO3 + HO2 --> C136CO2 + OH ', & - ' C136CO3 + HO2 --> C136CO2H + O3 ', & - ' C136CO3 + HO2 --> C136CO3H ', & - ' C136CO3 + NO --> C136CO2 + NO2 ', & - ' C136CO3 + NO2 --> C136PAN ', & - ' C136CO3 + NO3 --> C136CO2 + NO2 ', & - ' C136CO3 --> C136CO2 ', & - ' C136CO3 --> C136CO2H ', & - ' BCBOCOO + CO --> BCLKBOC ', & - ' BCBOCOO + NO --> BCLKBOC + NO2 ', & - ' BCBOCOO + NO2 --> BCLKBOC + NO3 ', & - ' BCBOCOO + SO2 --> SO3 + BCLKBOC ', & - ' BCBOCOO --> BCLKBOC + H2O2 ', & - ' C148O2 + HO2 --> C148OOH ', & - ' C148O2 + NO --> C148O + NO2 ', & - ' C148O2 + NO3 --> C148O + NO2 ', & - ' C148O2 --> C148CO ', & - ' C148O2 --> C148O ', & - ' C148O2 --> C148OH ', & - ' C152OOH + OH --> BCLKBOC + HCHO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_309 = (/ & - ' C152OOH --> C152O + OH ', & - ' C152NO3 + OH --> BCLKBOC + HCHO + NO2 ', & - ' C152O --> BCLKBOC + HCHO + HO2 ', & - ' C152OH + OH --> BCLKBOC + HCHO + HO2 ', & - ' C1311O2 + HO2 --> C1311OOH ', & - ' C1311O2 + NO --> C1311NO3 ', & - ' C1311O2 + NO --> C1311O + NO2 ', & - ' C1311O2 + NO3 --> C1311O + NO2 ', & - ' C1311O2 --> C1311O ', & - ' C1311O2 --> C1311OH ', & - ' NC1313O2 + HO2 --> NC1313OOH ', & - ' NC1313O2 + NO --> NC1313O + NO2 ', & - ' NC1313O2 + NO3 --> NC1313O + NO2 ', & - ' NC1313O2 --> NC1313O ', & - ' NC1313O2 --> NC1313OH ', & - ' C116CHO + NO3 --> C116CO3 + HNO3 ', & - ' C116CHO + OH --> C116CO3 ', & - ' C116CHO --> C116O2 + CO + HO2 ', & - ' C126OOA --> C126OO ', & - ' C126OOA --> C129O2 + OH ', & - ' C1313O2 + HO2 --> C1313OOH ', & - ' C1313O2 + NO --> C1313NO3 ', & - ' C1313O2 + NO --> C1313O + NO2 ', & - ' C1313O2 + NO3 --> C1313O + NO2 ', & - ' C1313O2 --> C1313O ', & - ' C1313O2 --> C1313OH ', & - ' C126O2 + HO2 --> C126OOH ', & - ' C126O2 + NO --> C126NO3 ', & - ' C126O2 + NO --> C126O + NO2 ', & - ' C126O2 + NO3 --> C126O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_310 = (/ & - ' C126O2 --> C126CO ', & - ' C126O2 --> C126O ', & - ' C126O2 --> C126OH ', & - ' C144O2 + HO2 --> C144OOH ', & - ' C144O2 + NO --> C144O + NO2 ', & - ' C144O2 + NO3 --> C144O + NO2 ', & - ' C144O2 --> C144O ', & - ' C142O2 + HO2 --> C142OOH ', & - ' C142O2 + NO --> C142NO3 ', & - ' C142O2 + NO --> C142O + NO2 ', & - ' C142O2 + NO3 --> C142O + NO2 ', & - ' C142O2 --> C142O ', & - ' C142O2 --> C142OH ', & - ' C144O --> C131CO + HCHO + HO2 ', & - ' NBCKO2 + HO2 --> NBCKOOH ', & - ' NBCKO2 + NO --> NBCKO + NO2 ', & - ' NBCKO2 + NO3 --> NBCKO + NO2 ', & - ' NBCKO2 --> BCKBNO3 ', & - ' NBCKO2 --> NBCKO ', & - ' BCKAOO + CO --> BCLKET ', & - ' BCKAOO + NO --> BCLKET + NO2 ', & - ' BCKAOO + NO2 --> BCLKET + NO3 ', & - ' BCKAOO + SO2 --> SO3 + BCLKET ', & - ' BCKAOO --> BCKSOZ ', & - ' BCKAOO --> H2O2 + BCLKET ', & - ' BCKBOO + CO --> BCKET ', & - ' BCKBOO + NO --> BCKET + NO2 ', & - ' BCKBOO + NO2 --> BCKET + NO3 ', & - ' BCKBOO + SO2 --> SO3 + BCKET ', & - ' BCKBOO --> BCKSOZ ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_311 = (/ & - ' BCKBOO --> C131CO2H ', & - ' BCKOOA --> BCLKAO2 + OH ', & - ' BCKOOA --> BCLKBO2 + OH ', & - ' BCKOOA --> BCLKBOC ', & - ' BCKOOA --> C1210O2 + CH3O2 ', & - ' BCKOOB --> BCLKCO2 + OH ', & - ' BCKOOB --> C131CO2H ', & - ' BCKOOB --> C131O2 + HO2 ', & - ' BCKAO2 + HO2 --> BCKAOOH ', & - ' BCKAO2 + NO --> BCKANO3 ', & - ' BCKAO2 + NO --> BCKAO + NO2 ', & - ' BCKAO2 + NO3 --> BCKAO + NO2 ', & - ' BCKAO2 --> BCKAO ', & - ' BCKAO2 --> BCKAOH ', & - ' BCKBO2 + HO2 --> BCKBOOH ', & - ' BCKBO2 + NO --> BCKBNO3 ', & - ' BCKBO2 + NO --> BCKBO + NO2 ', & - ' BCKBO2 + NO3 --> BCKBO + NO2 ', & - ' BCKBO2 --> BCKAOH ', & - ' BCKBO2 --> BCKBCO ', & - ' BCKBO2 --> BCKBO ', & - ' H13C43CO3 + HO2 --> H13C43CO3H ', & - ' H13C43CO3 + HO2 --> MEKAOH + OH + HO2 ', & - ' H13C43CO3 + NO --> MEKAOH + NO2 + HO2 ', & - ' H13C43CO3 + NO2 --> C5PAN12 ', & - ' H13C43CO3 + NO3 --> MEKAOH + NO2 + HO2 ', & - ' H13C43CO3 --> MEKAOH + HO2 ', & - ' C42CO3 + HO2 --> C42CO3H ', & - ' C42CO3 + HO2 --> HOIPRCHO + OH + HO2 ', & - ' C42CO3 + NO --> HOIPRCHO + NO2 + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_312 = (/ & - ' C42CO3 + NO2 --> C5PAN13 ', & - ' C42CO3 + NO3 --> HOIPRCHO + NO2 + HO2 ', & - ' C42CO3 --> HOIPRCHO + HO2 ', & - ' CHOC4CO3H + OH --> CHOC4CO3 ', & - ' CHOC4CO3H --> CHOC4O2 + OH ', & - ' CHOC4PAN + OH --> CO2C4CHO + CO + NO2 ', & - ' CHOC4PAN --> CHOC4CO3 + NO2 ', & - ' C6DIALOOH + OH --> C6CODIAL + OH ', & - ' C6DIALOOH + OH --> C6DIALO2 ', & - ' C6DIALOOH --> C6DIALO + OH ', & - ' C6DIALO --> C6CODIAL + HO2 ', & - ' C6DIALO --> CHOC2H4O2 + HCOCH2CHO ', & - ' C6DIALOH + OH --> C1H4C5CO3 ', & - ' C6DIALOH + OH --> C6CODIAL + HO2 ', & - ' C6DIALOH --> CHOC4OHO2 + CO + HO2 ', & - ' CHOC4OOH + OH --> CHOC4O2 ', & - ' CHOC4OOH --> CHOC4O + OH ', & - ' CHOC4O --> HOC4CHOO2 ', & - ' CY6DIONOOH + OH --> CYC6DIONO2 ', & - ' CY6DIONOOH --> CYC6DIONO + OH ', & - ' CYC6DIONO --> C6145COO2 ', & - ' HOC3H6CO3 + HO2 --> HO1C3O2 + OH ', & - ' HOC3H6CO3 + HO2 --> HOC3H6CO2H + O3 ', & - ' HOC3H6CO3 + HO2 --> HOC3H6CO3H ', & - ' HOC3H6CO3 + NO --> HO1C3O2 + NO2 ', & - ' HOC3H6CO3 + NO2 --> C4PAN1 ', & - ' HOC3H6CO3 + NO3 --> HO1C3O2 + NO2 ', & - ' HOC3H6CO3 --> HO1C3O2 ', & - ' HOC3H6CO3 --> HOC3H6CO2H ', & - ' C3DIOLO2 + HO2 --> C3DIOLOOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_313 = (/ & - ' C3DIOLO2 + NO --> C3DIOLO + NO2 ', & - ' C3DIOLO2 + NO3 --> C3DIOLO + NO2 ', & - ' C3DIOLO2 --> C3DIOLO ', & - ' CONM2CO2H + OH --> MGLYOX + NO2 ', & - ' CONM2CO2H --> CH3COCO2H + CO + NO2 + HO2 ', & - ' CONM2CO3H + OH --> CONM2CO3 ', & - ' CONM2CO3H --> CH3COCO3H + CO + NO2 + HO2 ', & - ' CONM2PAN + OH --> CH3COPAN + CO + NO2 ', & - ' CONM2PAN --> CONM2CO3 + NO2 ', & - ' COHM2CO2H + OH --> GLYOX + HO2 ', & - ' COHM2CO2H --> HCOCO2H + CO + HO2 ', & - ' COHM2CO3H + OH --> COHM2CO3 ', & - ' COHM2CO3H --> GLYOX + OH + HO2 ', & - ' COHM2CO3H --> HCOCO3H + CO + HO2 ', & - ' COHM2PAN + OH --> GLYOX + NO3 ', & - ' COHM2PAN --> COHM2CO3 + NO2 ', & - ' CO2C4CHO --> MEKAO2 + CO + HO2 ', & - ' CO2C4CHO + NO3 --> CO2C4CO3 + HNO3 ', & - ' CO2C4CHO + OH --> CO2C4CO3 ', & - ' HO2C4CO3 + HO2 --> HO2C4CO2H + O3 ', & - ' HO2C4CO3 + HO2 --> HO2C4CO3H ', & - ' HO2C4CO3 + HO2 --> HO2C4O2 + OH ', & - ' HO2C4CO3 + NO --> HO2C4O2 + NO2 ', & - ' HO2C4CO3 + NO2 --> C5PAN1 ', & - ' HO2C4CO3 + NO3 --> HO2C4O2 + NO2 ', & - ' HO2C4CO3 --> HO2C4CO2H ', & - ' HO2C4CO3 --> HO2C4O2 ', & - ' HOBUT2CHO --> NBUTOLBO2 + CO + HO2 ', & - ' HOBUT2CHO + NO3 --> HOBUT2CO3 + HNO3 ', & - ' HOBUT2CHO + OH --> HOBUT2CO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_314 = (/ & - ' HOIBUTCO3 + HO2 --> HOIBUTCO3H ', & - ' HOIBUTCO3 + HO2 --> IBUTOLCO2 + OH ', & - ' HOIBUTCO3 + NO --> IBUTOLCO2 + NO2 ', & - ' HOIBUTCO3 + NO2 --> C5PAN3 ', & - ' HOIBUTCO3 + NO3 --> IBUTOLCO2 + NO2 ', & - ' HOIBUTCO3 --> SC4H9O2 ', & - ' C63O2 + HO2 --> C63OOH ', & - ' C63O2 + NO --> C63NO3 ', & - ' C63O2 + NO --> C63O + NO2 ', & - ' C63O2 + NO3 --> C63O + NO2 ', & - ' C63O2 --> C63O ', & - ' C63O2 --> C63OH ', & - ' C63O2 --> HO1CO24C6 ', & - ' CO3C5CHO --> DIEKBO2 + CO + HO2 ', & - ' CO3C5CHO + NO3 --> CO3C5CO3 + HNO3 ', & - ' CO3C5CHO + OH --> CO3C5CO3 ', & - ' HO3C5CO3 + HO2 --> HO3C5CO2H + O3 ', & - ' HO3C5CO3 + HO2 --> HO3C5CO3H ', & - ' HO3C5CO3 + HO2 --> HO3C5O2 + OH ', & - ' HO3C5CO3 + NO --> HO3C5O2 + NO2 ', & - ' HO3C5CO3 + NO2 --> C6PAN1 ', & - ' HO3C5CO3 + NO3 --> HO3C5O2 + NO2 ', & - ' HO3C5CO3 --> HO3C5CO2H ', & - ' HO3C5CO3 --> HO3C5O2 ', & - ' C64O2 + HO2 --> C64OOH ', & - ' C64O2 + NO --> C64NO3 ', & - ' C64O2 + NO --> C64O + NO2 ', & - ' C64O2 + NO3 --> C64O + NO2 ', & - ' C64O2 --> C64O ', & - ' C64O2 --> C64OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_315 = (/ & - ' CO2C54CHO --> CO2C54O2 + CO + HO2 ', & - ' CO2C54CHO + NO3 --> CO2C54CO3 + HNO3 ', & - ' CO2C54CHO + OH --> C65O2 ', & - ' CO2C54CHO + OH --> CO2C54CO3 ', & - ' HO2C54O2 + HO2 --> HO2C54OOH ', & - ' HO2C54O2 + NO --> HO2C54NO3 ', & - ' HO2C54O2 + NO --> HO2C54O + NO2 ', & - ' HO2C54O2 + NO3 --> HO2C54O + NO2 ', & - ' HO2C54O2 --> HO24C5 ', & - ' HO2C54O2 --> HO2C54O ', & - ' HO2C54O2 --> HO2CO4C5 ', & - ' HO2C54CO3 + HO2 --> HO2C54CO2H + O3 ', & - ' HO2C54CO3 + HO2 --> HO2C54CO3H ', & - ' HO2C54CO3 + HO2 --> HO2C54O2 + OH ', & - ' HO2C54CO3 + NO --> HO2C54O2 + NO2 ', & - ' HO2C54CO3 + NO2 --> C6PAN4 ', & - ' HO2C54CO3 + NO3 --> HO2C54O2 + NO2 ', & - ' HO2C54CO3 --> HO2C54CO2H ', & - ' HO2C54CO3 --> HO2C54O2 ', & - ' C66O2 + HO2 --> C66OOH ', & - ' C66O2 + NO --> C66O + NO2 ', & - ' C66O2 + NO3 --> C66O + NO2 ', & - ' C66O2 --> C66CO ', & - ' C66O2 --> C66O ', & - ' C66O2 --> C66OH ', & - ' CO3C54CO3 + HO2 --> CO3C54CO3H ', & - ' CO3C54CO3 + HO2 --> DIEKAO2 + OH ', & - ' CO3C54CO3 + NO --> DIEKAO2 + NO2 ', & - ' CO3C54CO3 + NO2 --> C6PAN6 ', & - ' CO3C54CO3 + NO3 --> DIEKAO2 + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_316 = (/ & - ' CO3C54CO3 --> DIEKAO2 ', & - ' H2M2C4CO3 + HO2 --> H2M2C4CO2H + O3 ', & - ' H2M2C4CO3 + HO2 --> H2M2C4CO3H ', & - ' H2M2C4CO3 + HO2 --> HO2M2C4O2 + OH ', & - ' H2M2C4CO3 + NO --> HO2M2C4O2 + NO2 ', & - ' H2M2C4CO3 + NO2 --> C6PAN8 ', & - ' H2M2C4CO3 + NO3 --> HO2M2C4O2 + NO2 ', & - ' H2M2C4CO3 --> H2M2C4CO2H ', & - ' H2M2C4CO3 --> HO2M2C4O2 ', & - ' C67O2 + HO2 --> C67OOH ', & - ' C67O2 + NO --> C67NO3 ', & - ' C67O2 + NO --> C67O + NO2 ', & - ' C67O2 + NO3 --> C67O + NO2 ', & - ' C67O2 --> C67CHO ', & - ' C67O2 --> C67O ', & - ' C67O2 --> C67OH ', & - ' C610O2 + HO2 --> C610OOH ', & - ' C610O2 + NO --> C610NO3 ', & - ' C610O2 + NO --> C610O + NO2 ', & - ' C610O2 + NO3 --> C610O + NO2 ', & - ' C610O2 --> C610O ', & - ' C610O2 --> C610OH ', & - ' C610O2 --> CO24M3C5OH ', & - ' CO2M3C4CHO --> MIPKBO2 + CO + HO2 ', & - 'CO2M3C4CHO + NO3 --> CO2M3C4CO3 + HNO3 ', & - ' CO2M3C4CHO + OH --> CO2M3C4CO3 ', & - ' H2M3C4CO3 + HO2 --> H2M3C4CO2H + O3 ', & - ' H2M3C4CO3 + HO2 --> H2M3C4CO3H ', & - ' H2M3C4CO3 + HO2 --> H2M3C4O2 + OH ', & - ' H2M3C4CO3 + NO --> H2M3C4O2 + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_317 = (/ & - ' H2M3C4CO3 + NO2 --> C6PAN11 ', & - ' H2M3C4CO3 + NO3 --> H2M3C4O2 + NO2 ', & - ' H2M3C4CO3 --> H2M3C4CO2H ', & - ' H2M3C4CO3 --> H2M3C4O2 ', & - ' C68O2 + HO2 --> C68OOH ', & - ' C68O2 + NO --> C68NO3 ', & - ' C68O2 + NO --> C68O + NO2 ', & - ' C68O2 + NO3 --> C68O + NO2 ', & - ' C68O2 --> C68O ', & - ' C68O2 --> C68OH ', & - ' C69O2 + HO2 --> C69OOH ', & - ' C69O2 + NO --> C69O + NO2 ', & - ' C69O2 + NO3 --> C69O + NO2 ', & - ' C69O2 --> C69O ', & - ' C69O2 --> C69OH ', & - ' C69O2 --> H2M3CO4CHO ', & - ' C611O2 + HO2 --> C611OOH ', & - ' C611O2 + NO --> C611O + NO2 ', & - ' C611O2 + NO3 --> C611O + NO2 ', & - ' C611O2 --> C611O ', & - ' C611O2 --> C611OH ', & - ' HM33C3CO3 + HO2 --> HM33C3CO2H + O3 ', & - ' HM33C3CO3 + HO2 --> HM33C3CO3H ', & - ' HM33C3CO3 + HO2 --> HM33C3O2 + OH ', & - ' HM33C3CO3 + NO --> HM33C3O2 + NO2 ', & - ' HM33C3CO3 + NO2 --> C6PAN13 ', & - ' HM33C3CO3 + NO3 --> HM33C3O2 + NO2 ', & - ' HM33C3CO3 --> HM33C3CO2H ', & - ' HM33C3CO3 --> HM33C3O2 ', & - ' HM22C3O2 + HO2 --> HM22C3OOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_318 = (/ & - ' HM22C3O2 + NO --> HM22C3NO3 ', & - ' HM22C3O2 + NO --> HM22C3O + NO2 ', & - ' HM22C3O2 + NO3 --> HM22C3O + NO2 ', & - ' HM22C3O2 --> HM22C3O ', & - ' HM22C3O2 --> HM22C3OH ', & - ' HM22C3O2 --> HM22CHO ', & - ' HM22C3CO3 + HO2 --> HM22C3CO2H + O3 ', & - ' HM22C3CO3 + HO2 --> HM22C3CO3H ', & - ' HM22C3CO3 + HO2 --> HM22C3O2 + OH ', & - ' HM22C3CO3 + NO --> HM22C3O2 + NO2 ', & - ' HM22C3CO3 + NO2 --> C6PAN14 ', & - ' HM22C3CO3 + NO3 --> HM22C3O2 + NO2 ', & - ' HM22C3CO3 --> HM22C3CO2H ', & - ' HM22C3CO3 --> HM22C3O2 ', & - ' HM2C43CO3 + HO2 --> HM2C43CO2H + O3 ', & - ' HM2C43CO3 + HO2 --> HM2C43CO3H ', & - ' HM2C43CO3 + HO2 --> HM2C43O2 + OH ', & - ' HM2C43CO3 + NO --> HM2C43O2 + NO2 ', & - ' HM2C43CO3 + NO2 --> C6PAN19 ', & - ' HM2C43CO3 + NO3 --> HM2C43O2 + NO2 ', & - ' HM2C43CO3 --> HM2C43CO2H ', & - ' HM2C43CO3 --> HM2C43O2 ', & - ' HO2CO5C7 --> HO2C4O2 + C2H5CO3 ', & - ' HO2CO5C7 + OH --> C72O2 ', & - ' HO2CO5C7 + OH --> CO25C7 + HO2 ', & - ' CO25C7 --> C2H5CO3 + MEKAO2 ', & - ' CO25C7 --> DIEKBO2 + CH3CO3 ', & - ' CO25C7 + OH --> CO25C73O2 ', & - ' CO25C7 + OH --> CO25C74O2 ', & - ' C71O2 + HO2 --> C71OOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_319 = (/ & - ' C71O2 + NO --> C71O + NO2 ', & - ' C71O2 + NO3 --> C71O + NO2 ', & - ' C71O2 --> C71O ', & - ' C76O2 + HO2 --> C76OOH ', & - ' C76O2 + NO --> C76O + NO2 ', & - ' C76O2 + NO3 --> C76O + NO2 ', & - ' C76O2 --> C76O ', & - ' C77O2 + HO2 --> C77OOH ', & - ' C77O2 + NO --> C77NO3 ', & - ' C77O2 + NO --> C77O + NO2 ', & - ' C77O2 + NO3 --> C77O + NO2 ', & - ' C77O2 --> C77CO ', & - ' C77O2 --> C77O ', & - ' C77O2 --> C77OH ', & - ' C78O2 + HO2 --> C78OOH ', & - ' C78O2 + NO --> C78O + NO2 ', & - ' C78O2 + NO3 --> C78O + NO2 ', & - ' C78O2 --> C78CO ', & - ' C78O2 --> C78O ', & - ' C78O2 --> C78OH ', & - ' H2M3CO5C6 --> H2M3C4O2 + CH3CO3 ', & - ' H2M3CO5C6 + OH --> C712O2 ', & - ' H2M3CO5C6 + OH --> M3CO25C6 + HO2 ', & - ' M3CO25C6 --> CO2C54O2 + CH3CO3 ', & - ' M3CO25C6 --> MIPKBO2 + CH3CO3 ', & - ' M3CO25C6 + OH --> C713O2 ', & - ' M3CO25C6 + OH --> C714O2 ', & - ' C711O2 + HO2 --> C711OOH ', & - ' C711O2 + NO --> C711O + NO2 ', & - ' C711O2 + NO3 --> C711O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_320 = (/ & - ' C711O2 --> C711O ', & - ' H3M3C5O2 + HO2 --> H3M3C5OOH ', & - ' H3M3C5O2 + NO --> H3M3C5NO3 ', & - ' H3M3C5O2 + NO --> H3M3C5O + NO2 ', & - ' H3M3C5O2 + NO3 --> H3M3C5O + NO2 ', & - ' H3M3C5O2 --> H13M3C5 ', & - ' H3M3C5O2 --> H3M3C4CHO ', & - ' H3M3C5O2 --> H3M3C5O ', & - ' H3M3C5CO3 + HO2 --> H3M3C5CO2H + O3 ', & - ' H3M3C5CO3 + HO2 --> H3M3C5CO3H ', & - ' H3M3C5CO3 + HO2 --> H3M3C5O2 + OH ', & - ' H3M3C5CO3 + NO --> H3M3C5O2 + NO2 ', & - ' H3M3C5CO3 + NO2 --> C7PAN1 ', & - ' H3M3C5CO3 + NO3 --> H3M3C5O2 + NO2 ', & - ' H3M3C5CO3 --> H3M3C5CO2H ', & - ' H3M3C5CO3 --> H3M3C5O2 ', & - ' C82O2 + HO2 --> C82OOH ', & - ' C82O2 + NO --> C82NO3 ', & - ' C82O2 + NO --> C82O + NO2 ', & - ' C82O2 + NO3 --> C82O + NO2 ', & - ' C82O2 --> C82O ', & - ' C82O2 --> HO34CO6C8 ', & - ' C82O2 --> HO3CO46C8 ', & - ' CO36C8 --> DIEKBO2 + C2H5CO3 ', & - ' CO36C8 + OH --> C84O2 ', & - ' C81O2 + HO2 --> C81OOH ', & - ' C81O2 + NO --> C81O + NO2 ', & - ' C81O2 + NO3 --> C81O + NO2 ', & - ' C81O2 --> C81O ', & - ' C93O2 + HO2 --> C93OOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_321 = (/ & - ' C93O2 + NO --> C93NO3 ', & - ' C93O2 + NO --> C93O + NO2 ', & - ' C93O2 + NO3 --> C93O + NO2 ', & - ' C93O2 --> C93CO ', & - ' C93O2 --> C93O ', & - ' C93O2 --> C93OH ', & - ' CO36C9 --> C3H7CO3 + DIEKBO2 ', & - ' CO36C9 + OH --> C94O2 ', & - ' C92O2 + HO2 --> C92OOH ', & - ' C92O2 + NO --> C92O + NO2 ', & - ' C92O2 + NO3 --> C92O + NO2 ', & - ' C92O2 --> C92O ', & - ' HO6C7O2 + HO2 --> HO6C7OOH ', & - ' HO6C7O2 + NO --> HO6C7O + NO2 ', & - ' HO6C7O2 + NO3 --> HO6C7O + NO2 ', & - ' HO6C7O2 --> HO6C7O ', & - ' C103O2 + HO2 --> C103OOH ', & - ' C103O2 + NO --> C103NO3 ', & - ' C103O2 + NO --> C103O + NO2 ', & - ' C103O2 + NO3 --> C103O + NO2 ', & - ' C103O2 --> C103CO ', & - ' C103O2 --> C103O ', & - ' C103O2 --> C103OH ', & - ' CO36C10 --> C4H9CO3 + DIEKBO2 ', & - ' CO36C10 + OH --> C104O2 ', & - ' C102O2 + HO2 --> C102OOH ', & - ' C102O2 + NO --> C102O + NO2 ', & - ' C102O2 + NO3 --> C102O + NO2 ', & - ' C102O2 --> C102O ', & - ' HO7C8O2 + HO2 --> HO7C8OOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_322 = (/ & - ' HO7C8O2 + NO --> HO7C8O + NO2 ', & - ' HO7C8O2 + NO3 --> HO7C8O + NO2 ', & - ' HO7C8O2 --> HO7C8O ', & - ' C113O2 + HO2 --> C113OOH ', & - ' C113O2 + NO --> C113NO3 ', & - ' C113O2 + NO --> C113O + NO2 ', & - ' C113O2 + NO3 --> C113O + NO2 ', & - ' C113O2 --> C113CO ', & - ' C113O2 --> C113O ', & - ' C113O2 --> C113OH ', & - ' CO36C11 --> C5H11CO3 + DIEKBO2 ', & - ' CO36C11 + OH --> C114O2 ', & - ' C112O2 + HO2 --> C112OOH ', & - ' C112O2 + NO --> C112O + NO2 ', & - ' C112O2 + NO3 --> C112O + NO2 ', & - ' C112O2 --> C112O ', & - ' HO8C9O2 + HO2 --> HO8C9OOH ', & - ' HO8C9O2 + NO --> HO8C9O + NO2 ', & - ' HO8C9O2 + NO3 --> HO8C9O + NO2 ', & - ' HO8C9O2 --> HO8C9O ', & - ' C123O2 + HO2 --> C123OOH ', & - ' C123O2 + NO --> C123NO3 ', & - ' C123O2 + NO --> C123O + NO2 ', & - ' C123O2 + NO3 --> C123O + NO2 ', & - ' C123O2 --> C123CO ', & - ' C123O2 --> C123O ', & - ' C123O2 --> C123OH ', & - ' CO36C12 --> C6H13CO3 + DIEKBO2 ', & - ' CO36C12 + OH --> C124O2 ', & - ' C122O2 + HO2 --> C122OOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_323 = (/ & - ' C122O2 + NO --> C122O + NO2 ', & - ' C122O2 + NO3 --> C122O + NO2 ', & - ' C122O2 --> C122O ', & - ' CO1H63O2 + HO2 --> CO1H63OOH ', & - ' CO1H63O2 + NO --> CO1H63NO3 ', & - ' CO1H63O2 + NO --> CO1H63O + NO2 ', & - ' CO1H63O2 + NO3 --> CO1H63O + NO2 ', & - ' CO1H63O2 --> C6COHOCHO ', & - ' CO1H63O2 --> CO1H63O ', & - ' CO1H63O2 --> CO1H63OH ', & - ' HO2CO3C4O --> CH3CHOHCO3 + HCHO ', & - ' C5CO24O --> CO2C3CO3 + HCHO ', & - ' C3NO3COO2 + HO2 --> C3NO3COOOH ', & - ' C3NO3COO2 + NO --> C3NO3COO + NO2 ', & - ' C3NO3COO2 + NO3 --> C3NO3COO + NO2 ', & - ' C3NO3COO2 --> C3NO3COO ', & - ' C53NO324CO + OH --> C5CO234 + NO2 ', & - ' C53NO324CO --> CO24C53O + NO2 ', & - ' C4M22CONO3 + OH --> MGLYOX + CH3CO3 + NO2 ', & - ' C4M22CONO3 --> MGLYOX + CH3CO3 + NO2 ', & - ' C43OHCOCHO + OH --> CO35C5CHO + HO2 ', & - ' C43OHCOCHO --> HO3C4CO3 + CO + HO2 ', & - ' CO35C5CHO --> MEKCO2 + 2 CO + HO2 ', & - ' CO35C5CHO --> CO3C4CO3 + CO + HO2 ', & - ' CO35C5CHO + OH --> CO3C4CO3 + CO ', & - ' NBZFUOOH + OH --> NBZFUO2 ', & - ' NBZFUOOH --> NBZFUO + OH ', & - ' NBZFUO --> CO14O3CHO + NO2 ', & - ' NBZFUO --> NBZFUONE + HO2 ', & - ' BZFUONOO + CO --> CO14O3CHO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_324 = (/ & - ' BZFUONOO + NO --> CO14O3CHO + NO2 ', & - ' BZFUONOO + NO2 --> CO14O3CHO + NO3 ', & - ' BZFUONOO + SO2 --> SO3 + CO14O3CHO ', & - ' BZFUONOO --> CO14O3CHO + H2O2 ', & - ' BZFUONOO --> CO14O3CO2H ', & - ' BZFUOOH + OH --> BZFUO2 ', & - ' BZFUOOH --> BZFUO + OH ', & - ' BZFUO --> CO14O3CHO + HO2 ', & - ' BZFUCO + OH --> CO14O3CHO + HO2 ', & - ' BZFUOH + OH --> BZFUCO + HO2 ', & - ' MALANHY + OH --> MALANHYO2 ', & - ' CO2C4DIAL + OH --> 4 CO + HO2 ', & - ' CO2C4DIAL --> 4 CO + 2 HO2 ', & - ' DNPHEN + NO3 --> NDNPHENO2 ', & - ' DNPHEN + OH --> DNPHENO2 ', & - ' NPHEN1O2 + HO2 --> NPHEN1OOH ', & - ' NPHEN1O2 + NO --> NPHEN1O + NO2 ', & - ' NPHEN1O2 + NO3 --> NPHEN1O + NO2 ', & - ' NPHEN1O2 --> NPHEN1O ', & - ' NNCATECO2 + HO2 --> NNCATECOOH ', & - ' NNCATECO2 + NO --> NNCATECO + NO2 ', & - ' NNCATECO2 + NO3 --> NNCATECO + NO2 ', & - ' NNCATECO2 --> NNCATECO ', & - ' NCATECO2 + HO2 --> NCATECOOH ', & - ' NCATECO2 + NO --> NCATECO + NO2 ', & - ' NCATECO2 + NO3 --> NCATECO + NO2 ', & - ' NCATECO2 --> NCATECO ', & - ' CATEC1OOH + OH --> CATEC1O2 ', & - ' CATEC1OOH --> CATEC1O + OH ', & - ' NBZQO2 + HO2 --> NBZQOOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_325 = (/ & - ' NBZQO2 + NO --> NBZQO + NO2 ', & - ' NBZQO2 + NO3 --> NBZQO + NO2 ', & - ' NBZQO2 --> NBZQO ', & - ' PBZQO2 + HO2 --> PBZQOOH ', & - ' PBZQO2 + NO --> PBZQO + NO2 ', & - ' PBZQO2 + NO3 --> PBZQO + NO2 ', & - ' PBZQO2 --> PBZQCO ', & - ' PBZQO2 --> PBZQO ', & - ' PBZQO2 --> PBZQOH ', & - ' NPTLQO2 + HO2 --> NPTLQOOH ', & - ' NPTLQO2 + NO --> NPTLQO + NO2 ', & - ' NPTLQO2 + NO3 --> NPTLQO + NO2 ', & - ' NPTLQO2 --> NPTLQO ', & - ' PTLQO2 + HO2 --> PTLQOOH ', & - ' PTLQO2 + NO --> PTLQO + NO2 ', & - ' PTLQO2 + NO3 --> PTLQO + NO2 ', & - ' PTLQO2 --> PTLQCO ', & - ' PTLQO2 --> PTLQO ', & - ' PTLQO2 --> PTLQOH ', & - ' DNCRES + NO3 --> NDNCRESO2 ', & - ' DNCRES + OH --> DNCRESO2 ', & - ' NCRES1O2 + HO2 --> NCRES1OOH ', & - ' NCRES1O2 + NO --> NCRES1O + NO2 ', & - ' NCRES1O2 + NO3 --> NCRES1O + NO2 ', & - ' NCRES1O2 --> NCRES1O ', & - 'MNNCATECO2 + HO2 --> MNNCATCOOH ', & - ' MNNCATECO2 + NO --> MNNCATECO + NO2 ', & - 'MNNCATECO2 + NO3 --> MNNCATECO + NO2 ', & - ' MNNCATECO2 --> MNNCATECO ', & - ' MNCATECO2 + HO2 --> MNCATECOOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_326 = (/ & - ' MNCATECO2 + NO --> MNCATECO + NO2 ', & - ' MNCATECO2 + NO3 --> MNCATECO + NO2 ', & - ' MNCATECO2 --> MNCATECO ', & - ' MCATEC1OOH + OH --> MCATEC1O2 ', & - ' MCATEC1OOH --> MCATEC1O + OH ', & - ' MC3CODBCO2 --> CH3O2 + GLYOX + CO ', & - ' MC3CODBCO2 --> MMALANHY + HO2 ', & - ' MC3ODBCO3H + OH --> MC3CODBCO3 ', & - ' MC3ODBCO3H --> CH3COCO3H + 2 CO + 2 HO2 ', & - ' MC3ODBCO3H --> MC3CODBCO2 + OH ', & - ' MC3CODBPAN + OH --> HCHO + GLYOX + CO + NO2 ', & - ' MC3CODBPAN --> MC3CODBCO3 + NO2 ', & - ' C4M2ALOHO --> MGLYOX + GLYOX + HO2 ', & - ' C4M2AL2OH + OH --> C4M2ALOHO ', & - ' C4M2AL2OH --> CO2H3CHO + CO + 2 HO2 ', & - ' C5DICAROOH + OH --> C5134CO2OH + OH ', & - ' C5DICAROOH + OH --> C5DICARBO2 ', & - ' C5DICAROOH --> C5DICARBO + OH ', & - ' C5DICARBO --> MGLYOX + GLYOX + HO2 ', & - ' C5134CO2OH + OH --> C54CO + HO2 ', & - ' C5134CO2OH --> CO23C3CHO + CO + 2 HO2 ', & - ' C514CO23OH + OH --> C5134CO2OH + HO2 ', & - ' C514CO23OH --> CO2H3CHO + CO + 2 HO2 ', & - ' NTLFUOOH + OH --> NTLFUO2 ', & - ' NTLFUOOH --> NTLFUO + OH ', & - ' NTLFUO --> ACCOMECHO + NO2 ', & - 'MECOACETO2 + HO2 --> MECOACEOOH ', & - ' MECOACETO2 + NO --> MECOACETO + NO2 ', & - 'MECOACETO2 + NO3 --> MECOACETO + NO2 ', & - ' MECOACETO2 --> MECOACETO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_327 = (/ & - ' TLFUONOO + CO --> ACCOMECHO ', & - ' TLFUONOO + NO --> ACCOMECHO + NO2 ', & - ' TLFUONOO + NO2 --> ACCOMECHO + NO3 ', & - ' TLFUONOO + SO2 --> SO3 + ACCOMECHO ', & - ' TLFUONOO --> ACCOMECHO + H2O2 ', & - ' TLFUONOO --> C24O3CCO2H ', & - ' TLFUOOH + OH --> TLFUO2 ', & - ' TLFUOOH --> TLFUO + OH ', & - ' TLFUO --> ACCOMECHO + HO2 ', & - ' TLFUOH + OH --> TLFUO ', & - ' C5DBCOCO3H + OH --> MC4CODBCO3 ', & - ' C5DBCOCO3H --> HCOCO3H + 2 CH3CO3 ', & - ' C5DBCOCO3H --> MC4CODBCO2 + HO2 ', & - ' MC4CODBCO2 --> BIACET + CO + HO2 ', & - ' MC4CODBCO2 --> MMALANHY + CH3O2 ', & - ' MC4CODBPAN + OH --> BIACET + 2 CO + NO2 ', & - ' MC4CODBPAN --> MC4CODBCO3 + NO2 ', & - ' MEK2OO + CO --> BIACET ', & - ' MEK2OO + NO --> BIACET + NO2 ', & - ' MEK2OO + NO2 --> BIACET + NO3 ', & - ' MEK2OO + SO2 --> SO3 + BIACET ', & - ' MEK2OO --> BIACET + H2O2 ', & - ' MC5COOHOOH + OH --> MC5CO2OHO2 ', & - ' MC5COOHOOH --> CO2H3CHO + CH3CO3 + OH ', & - ' MC5COOHOOH --> MC5CO2OHO + OH ', & - ' MC5CO2OHO --> BIACET + GLYOX + HO2 ', & - ' MC52CO2OH + OH --> MC5CO2OHO ', & - ' MC52CO2OH --> CO2H3CHO + CH3CO3 + HO2 ', & - ' NOXYFUOOH + OH --> NOXYFUO2 ', & - ' NOXYFUOOH --> NOXYFUO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_328 = (/ & - ' NOXYFUO --> C6OTRIKET + NO2 ', & - ' C6OTKETOOH + OH --> C6OTKETCO + OH ', & - ' C6OTKETOOH + OH --> C6OTKETO2 ', & - ' C6OTKETOOH --> C6OTKETO + OH ', & - ' C6OTKETO --> MGLYOX + CH3CO3 ', & - ' C6OTKETCO + OH --> C6O4KETO2 ', & - ' C6OTKETCO --> 2 CH3CO3 + CO ', & - ' C6OTKETOH + OH --> C6OTKETCO + HO2 ', & - ' OXYFUOOH + OH --> OXYFUO2 ', & - ' OXYFUOOH --> OXYFUO + OH ', & - ' OXYFUO --> C6OTRIKET + HO2 ', & - ' OXYFUOH + OH --> OXYFUO ', & - ' DNOXYOL + NO3 --> NDNOXYOLO2 ', & - ' DNOXYOL + OH --> DNOXYOLO2 ', & - ' NOXYOL1O2 + HO2 --> NOXYOL1OOH ', & - ' NOXYOL1O2 + NO --> NOXYOL1O + NO2 ', & - ' NOXYOL1O2 + NO3 --> NOXYOL1O + NO2 ', & - ' NOXYOL1O2 --> NOXYOL1O ', & - ' NOXYQO2 + HO2 --> NOXYQOOH ', & - ' NOXYQO2 + NO --> NOXYQO + NO2 ', & - ' NOXYQO2 + NO3 --> NOXYQO + NO2 ', & - ' NOXYQO2 --> NOXYQO ', & - ' OXYQO2 + HO2 --> OXYQOOH ', & - ' OXYQO2 + NO --> OXYQO + NO2 ', & - ' OXYQO2 + NO3 --> OXYQO + NO2 ', & - ' OXYQO2 --> OXYQCO ', & - ' OXYQO2 --> OXYQO ', & - ' OXYQO2 --> OXYQOH ', & - 'OXNNCATCO2 + HO2 --> OXNNCATOOH ', & - ' OXNNCATCO2 + NO --> OXNNCATCO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_329 = (/ & - 'OXNNCATCO2 + NO3 --> OXNNCATCO + NO2 ', & - ' OXNNCATCO2 --> OXNNCATCO ', & - 'OXNCATECO2 + HO2 --> OXNCATCOOH ', & - ' OXNCATECO2 + NO --> OXNCATECO + NO2 ', & - 'OXNCATECO2 + NO3 --> OXNCATECO + NO2 ', & - ' OXNCATECO2 --> OXNCATECO ', & - ' OCATEC1OOH + OH --> OXCATEC1O2 ', & - ' OCATEC1OOH --> OXCATEC1O + OH ', & - ' C6CO2OHOOH + OH --> C5MCO2OHO2 ', & - ' C6CO2OHOOH --> C5CO243OH + OH + CO + HO2 ', & - ' C6CO2OHOOH --> C5MCO2OHO + OH ', & - ' C5MCO2OHO --> 2 MGLYOX + HO2 ', & - ' C6CO2M2OH + OH --> C6CO3MOH + HO2 ', & - ' C6CO2M2OH --> C5CO243OH + CO + 2 HO2 ', & - ' NMXYFUOOH + OH --> NMXYFUO2 ', & - ' NMXYFUOOH --> NMXYFUO + OH ', & - ' NMXYFUO --> C23O3MCHO + NO2 ', & - ' C23O3MCOOH + OH --> ACECOCOCH3 + OH ', & - ' C23O3MCOOH + OH --> C23O3MO2 ', & - ' C23O3MCOOH --> C23O3MO + OH ', & - ' C23O3MO --> CH3CHO + CH3CO3 ', & - ' ACECOCOCH3 + OH --> ACCOCOMEO2 ', & - ' ACECOCOCH3 --> 2 CH3CO3 ', & - ' C23O3MOH + OH --> ACECOCOCH3 + HO2 ', & - ' MXYFUOOH + OH --> MXYFUO2 ', & - ' MXYFUOOH --> MXYFUO + OH ', & - ' MXYFUO --> C23O3MCHO + HO2 ', & - ' MXYFUOH + OH --> MXYFUO ', & - ' NPXYFUOOH + OH --> NPXYFUO2 ', & - ' NPXYFUOOH --> NPXYFUO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_330 = (/ & - ' NPXYFUO --> C23O3CCHO + NO2 ', & - ' MCOCOMOOOH + OH --> MCOCOMOXO2 ', & - ' MCOCOMOOOH --> HCHO + CH3CO3 + OH ', & - ' MCOCOMOOOH --> MCOCOMOXO + OH ', & - ' MCOCOMOXO --> HCHO + CH3CO3 ', & - ' PXYFUOOH + OH --> PXYFUO2 ', & - ' PXYFUOOH --> PXYFUO + OH ', & - ' PXYFUO --> C23O3CCHO + HO2 ', & - ' PXYFUOH + OH --> PXYFUO ', & - ' MMALANHY + OH --> MMALANHYO2 ', & - ' DNMXYOL + NO3 --> NDNMXYOLO2 ', & - ' DNMXYOL + OH --> DNMXYOLO2 ', & - ' NMXYOL1O2 + HO2 --> NMXYOL1OOH ', & - ' NMXYOL1O2 + NO --> NMXYOL1O + NO2 ', & - ' NMXYOL1O2 + NO3 --> NMXYOL1O + NO2 ', & - ' NMXYOL1O2 --> NMXYOL1O ', & - ' NMXYQO2 + HO2 --> NMXYQOOH ', & - ' NMXYQO2 + NO --> NMXYQO + NO2 ', & - ' NMXYQO2 + NO3 --> NMXYQO + NO2 ', & - ' NMXYQO2 --> NMXYQO ', & - ' MXYQO2 + HO2 --> MXYQOOH ', & - ' MXYQO2 + NO --> MXYQO + NO2 ', & - ' MXYQO2 + NO3 --> MXYQO + NO2 ', & - ' MXYQO2 --> MXYQO ', & - ' MXYQO2 --> MXYQOH ', & - 'MXNNCATCO2 + HO2 --> MXNNCATOOH ', & - ' MXNNCATCO2 + NO --> MXNNCATCO + NO2 ', & - 'MXNNCATCO2 + NO3 --> MXNNCATCO + NO2 ', & - ' MXNNCATCO2 --> MXNNCATCO ', & - 'MXNCATECO2 + HO2 --> MXNCATCOOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_331 = (/ & - ' MXNCATECO2 + NO --> MXNCATECO + NO2 ', & - 'MXNCATECO2 + NO3 --> MXNCATECO + NO2 ', & - ' MXNCATECO2 --> MXNCATECO ', & - ' MXCTEC1OOH + OH --> MXCATEC1O2 ', & - ' MXCTEC1OOH --> MXCATEC1O + OH ', & - ' TOL4OHNO2 + OH --> TL4OHNO2O2 ', & - ' DMKOHOOH + OH --> DMKCOOH + OH ', & - ' DMKOHOOH + OH --> DMKOHO2 ', & - ' DMKOHOOH --> CO2H3CHO + CH3CO3 + OH ', & - ' DMKOHOOH --> DMKOHO + OH ', & - ' DMKOHO --> CO2H3CHO + CH3CO3 ', & - ' DMKOHO --> 2 MGLYOX + HO2 ', & - ' DMK2OH + OH --> DMKCOOH + HO2 ', & - ' DMK2OH --> CO2H3CHO + CH3CO3 + HO2 ', & - ' DMKCOOH + OH --> C62O ', & - ' DMKCOOH --> CO23C3CHO + CH3CO3 + HO2 ', & - ' DMKCOOH --> CO2H3CO3 + CH3CO3 ', & - ' DNPXYOL + NO3 --> NDNPXYOLO2 ', & - ' DNPXYOL + OH --> DNPXYOLO2 ', & - ' NPXYOL1O2 + HO2 --> NPXYOL1OOH ', & - ' NPXYOL1O2 + NO --> NPXYOL1O + NO2 ', & - ' NPXYOL1O2 + NO3 --> NPXYOL1O + NO2 ', & - ' NPXYOL1O2 --> NPXYOL1O ', & - ' NPXYQO2 + HO2 --> NPXYQOOH ', & - ' NPXYQO2 + NO --> NPXYQO + NO2 ', & - ' NPXYQO2 + NO3 --> NPXYQO + NO2 ', & - ' NPXYQO2 --> NPXYQO ', & - ' PXYQO2 + HO2 --> PXYQOOH ', & - ' PXYQO2 + NO --> PXYQO + NO2 ', & - ' PXYQO2 + NO3 --> PXYQO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_332 = (/ & - ' PXYQO2 --> PXYQO ', & - ' PXYQO2 --> PXYQOH ', & - 'PXNNCATCO2 + HO2 --> PXNNCATOOH ', & - ' PXNNCATCO2 + NO --> PXNNCATCO + NO2 ', & - 'PXNNCATCO2 + NO3 --> PXNNCATCO + NO2 ', & - ' PXNNCATCO2 --> PXNNCATCO ', & - 'PXNCATECO2 + HO2 --> PXNCATCOOH ', & - ' PXNCATECO2 + NO --> PXNCATECO + NO2 ', & - 'PXNCATECO2 + NO3 --> PXNCATECO + NO2 ', & - ' PXNCATECO2 --> PXNCATECO ', & - ' PCATEC1OOH + OH --> PXCATEC1O2 ', & - ' PCATEC1OOH --> PXCATEC1O + OH ', & - ' DNEBNZOL + NO3 --> NDNEBNZLO2 ', & - ' DNEBNZOL + OH --> DNEBNZLO2 ', & - ' NEBNZ1O2 + HO2 --> NEBNZ1OOH ', & - ' NEBNZ1O2 + NO --> NEBNZ1O + NO2 ', & - ' NEBNZ1O2 + NO3 --> NEBNZ1O + NO2 ', & - ' NEBNZ1O2 --> NEBNZ1O ', & - ' NPEBQO2 + HO2 --> NPEBQOOH ', & - ' NPEBQO2 + NO --> NPEBQO + NO2 ', & - ' NPEBQO2 + NO3 --> NPEBQO + NO2 ', & - ' NPEBQO2 --> NPEBQO ', & - ' PEBQO2 + HO2 --> PEBQOOH ', & - ' PEBQO2 + NO --> PEBQO + NO2 ', & - ' PEBQO2 + NO3 --> PEBQO + NO2 ', & - ' PEBQO2 --> PEBQCO ', & - ' PEBQO2 --> PEBQO ', & - ' PEBQO2 --> PEBQOH ', & - 'ENNCATECO2 + HO2 --> ENNCATCOOH ', & - ' ENNCATECO2 + NO --> ENNCATECO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_333 = (/ & - 'ENNCATECO2 + NO3 --> ENNCATECO + NO2 ', & - ' ENNCATECO2 --> ENNCATECO ', & - ' ENCATECO2 + HO2 --> ENCATECOOH ', & - ' ENCATECO2 + NO --> ENCATECO + NO2 ', & - ' ENCATECO2 + NO3 --> ENCATECO + NO2 ', & - ' ENCATECO2 --> ENCATECO ', & - ' ECATEC1OOH + OH --> ECATEC1O2 ', & - ' ECATEC1OOH --> ECATEC1O + OH ', & - ' C6DICAROOH + OH --> C6DICARBO2 ', & - ' C6DICAROOH --> C32OH13CO + C2H5CO3 + OH ', & - ' C6DICAROOH --> C6DICARBO + OH ', & - ' C6DICARBO --> EGLYOX + GLYOX + HO2 ', & - ' C6134CO2OH + OH --> ECO4 + HO2 ', & - ' C6134CO2OH --> HCOCOHCO3 + C2H5CO3 ', & - ' C614CO23OH + OH --> C6134CO2OH + HO2 ', & - ' C614CO23OH --> C32OH13CO + C2H5CO3 + HO2 ', & - ' C614CO23OH --> CO3H4CHO + CO + 2 HO2 ', & - ' NEBFUOOH + OH --> NEBFUO2 ', & - ' NEBFUOOH --> NEBFUO + OH ', & - ' NEBFUO --> C14O3ECHO + NO2 ', & - ' NEBFUO --> NEBFUONE + HO2 ', & - ' BUTALAOOH + OH --> BUTALAO2 ', & - ' BUTALAOOH + OH --> EGLYOX + OH ', & - ' BUTALAOOH --> BUTAL2O + OH ', & - ' EBFUOOH + OH --> EBFUO2 ', & - ' EBFUOOH --> EBFUO + OH ', & - ' EBFUO --> C14O3ECHO + HO2 ', & - ' EBFUCO + OH --> C14O3ECHO + HO2 ', & - ' EBFUOH + OH --> EBFUCO + HO2 ', & - ' CO3H4CO3 + HO2 --> CO3H4CO3H ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_334 = (/ & - ' CO3H4CO3 + HO2 --> EGLYOX + OH + CO + HO2 ', & - ' CO3H4CO3 + NO --> EGLYOX + CO + NO2 + HO2 ', & - ' CO3H4CO3 + NO2 --> CO3H4PAN ', & - ' CO3H4CO3 + NO3 --> EGLYOX + CO + NO2 + HO2 ', & - ' CO3H4CO3 --> EGLYOX + CO + HO2 ', & - ' C7CO3OHOOH + OH --> C7CO3OHO2 ', & - ' C7CO3OHOOH --> C7CO3OHO + OH ', & - ' C7CO3OHO --> C33CO + EGLYOX + HO2 ', & - ' PHCOCOCO2 + HO2 --> PHCOCOCOOH ', & - ' PHCOCOCO2 + NO --> PHCOCOCO + NO2 ', & - ' PHCOCOCO2 + NO3 --> PHCOCOCO + NO2 ', & - ' PHCOCOCO2 --> PHCOCOCO ', & - ' DNPBNZOL + NO3 --> NDNPBNZLO2 ', & - ' DNPBNZOL + OH --> DNPBNZLO2 ', & - ' NPBNZ1O2 + HO2 --> NPBNZ1OOH ', & - ' NPBNZ1O2 + NO --> NPBNZ1O + NO2 ', & - ' NPBNZ1O2 + NO3 --> NPBNZ1O + NO2 ', & - ' NPBNZ1O2 --> NPBNZ1O ', & - ' NPPRBQO2 + HO2 --> NPPRBQOOH ', & - ' NPPRBQO2 + NO --> NPPRBQO + NO2 ', & - ' NPPRBQO2 + NO3 --> NPPRBQO + NO2 ', & - ' NPPRBQO2 --> NPPRBQO ', & - ' PPRBQO2 + HO2 --> PPRBQOOH ', & - ' PPRBQO2 + NO --> PPRBQO + NO2 ', & - ' PPRBQO2 + NO3 --> PPRBQO + NO2 ', & - ' PPRBQO2 --> PPRBQCO ', & - ' PPRBQO2 --> PPRBQO ', & - ' PPRBQO2 --> PPRBQOH ', & - 'PNNCATECO2 + HO2 --> PNNCATCOOH ', & - ' PNNCATECO2 + NO --> PNNCATECO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_335 = (/ & - 'PNNCATECO2 + NO3 --> PNNCATECO + NO2 ', & - ' PNNCATECO2 --> PNNCATECO ', & - ' PNCATECO2 + HO2 --> PNCATECOOH ', & - ' PNCATECO2 + NO --> PNCATECO + NO2 ', & - ' PNCATECO2 + NO3 --> PNCATECO + NO2 ', & - ' PNCATECO2 --> PNCATECO ', & - ' PRCATC1OOH + OH --> PCATEC1O2 ', & - ' PRCATC1OOH --> PCATEC1O + OH ', & - ' C7DCOOH + OH --> C61CHO + OH ', & - ' C7DCOOH --> C7DCO + OH ', & - ' C7DCO --> PGLYOX + GLYOX + HO2 ', & - ' C61CHO + NO3 --> C61CO3 + HNO3 ', & - ' C61CHO + OH --> C61CO3 ', & - ' C61CHO --> C3H7CO3 + GLYOX + OH + CO ', & - ' C61CHO --> HCOCOHCO3 + C3H7CO3 ', & - ' C61CHO --> CO45C5CHO + CO + 2 HO2 ', & - ' C7DCOH + OH --> C61CHO + HO2 ', & - ' C7DCOH --> C7DCO + HO2 ', & - ' NPBFUOOH + OH --> NPBFUO2 ', & - ' NPBFUOOH --> NPBFUO + OH ', & - ' NPBFUO --> C14O3PCHO + NO2 ', & - ' NPBFUO --> NPBFUONE + HO2 ', & - ' C4CHOAOOH + OH --> C4CHOAO2 ', & - ' C4CHOAOOH + OH --> PGLYOX + OH ', & - ' C4CHOAOOH --> C4CHO2O + OH ', & - ' PBFUOOH + OH --> PBFUO2 ', & - ' PBFUOOH --> PBFUO + OH ', & - ' PBFUO --> C14O3PCHO + HO2 ', & - ' PBFUCO + OH --> C14O3PCHO + HO2 ', & - ' PBFUOH + OH --> PBFUCO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_336 = (/ & - 'C5O45OHCO3 + HO2 --> C5O5OHCO3H ', & - 'C5O45OHCO3 + HO2 --> PGLYOX + OH + CO + HO2 ', & - ' C5O45OHCO3 + NO --> PGLYOX + CO + NO2 + HO2 ', & - 'C5O45OHCO3 + NO2 --> C5O45OHPAN ', & - 'C5O45OHCO3 + NO3 --> PGLYOX + CO + NO2 + HO2 ', & - ' C5O45OHCO3 --> PGLYOX + CO + HO2 ', & - ' C83COOHOOH + OH --> C8CO3OHO2 ', & - ' C83COOHOOH --> C8CO3OHO + OH ', & - ' C8CO3OHO --> C33CO + PGLYOX + HO2 ', & - ' PHCOMEOOH + OH --> PHGLYOX + OH ', & - ' PHCOMEOOH --> PHCOMEO + OH ', & - ' PHCOMEO --> C6H5CO3 + HCHO ', & - ' PHCOMEOH + OH --> PHGLYOX + HO2 ', & - ' PHGLYOX + NO3 --> C6H5CO3 + HNO3 + CO ', & - ' PHGLYOX + OH --> C6H5CO3 + CO ', & - ' PHGLYOX --> C6H5CO3 + CO + HO2 ', & - ' DNIPBNZOL + NO3 --> NDNIPBZLO2 ', & - ' DNIPBNZOL + OH --> DNIPBNZLO2 ', & - ' NIPBNZ1O2 + HO2 --> NIPBNZ1OOH ', & - ' NIPBNZ1O2 + NO --> NIPBNZ1O + NO2 ', & - ' NIPBNZ1O2 + NO3 --> NIPBNZ1O + NO2 ', & - ' NIPBNZ1O2 --> NIPBNZ1O ', & - ' NIPRBQO2 + HO2 --> NIPRBQOOH ', & - ' NIPRBQO2 + NO --> NIPRBQO + NO2 ', & - ' NIPRBQO2 + NO3 --> NIPRBQO + NO2 ', & - ' NIPRBQO2 --> NIPRBQO ', & - ' IPRBQO2 + HO2 --> IPRBQOOH ', & - ' IPRBQO2 + NO --> IPRBQO + NO2 ', & - ' IPRBQO2 + NO3 --> IPRBQO + NO2 ', & - ' IPRBQO2 --> IPRBQCO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_337 = (/ & - ' IPRBQO2 --> IPRBQO ', & - ' IPRBQO2 --> IPRBQOH ', & - 'IPNNCATCO2 + HO2 --> IPNNCATOOH ', & - ' IPNNCATCO2 + NO --> IPNNCATCO + NO2 ', & - 'IPNNCATCO2 + NO3 --> IPNNCATCO + NO2 ', & - ' IPNNCATCO2 --> IPNNCATCO ', & - 'IPNCATECO2 + HO2 --> IPNCATCOOH ', & - ' IPNCATECO2 + NO --> IPNCATECO + NO2 ', & - 'IPNCATECO2 + NO3 --> IPNCATECO + NO2 ', & - ' IPNCATECO2 --> IPNCATECO ', & - ' IPCATC1OOH + OH --> IPCATEC1O2 ', & - ' IPCATC1OOH --> IPCATEC1O + OH ', & - ' IC7DCOOH + OH --> C62CHO + OH ', & - ' IC7DCOOH --> IC7DCO + OH ', & - ' IC7DCO --> IPRGLYOX + GLYOX + HO2 ', & - ' C62CHO + NO3 --> C62CO3 + HNO3 ', & - ' C62CHO + OH --> C62CO3 ', & - ' C62CHO --> C45IC5CHO + CO + 2 HO2 ', & - ' C62CHO --> IPRCO3 + GLYOX + OH + CO ', & - ' C62CHO --> HCOCOHCO3 + IPRCO3 ', & - ' IC7DCOH + OH --> C62CHO + HO2 ', & - ' IC7DCOH --> IC7DCO + HO2 ', & - ' NIPBFUOOH + OH --> NIPBFUO2 ', & - ' NIPBFUOOH --> NIPBFUO + OH ', & - ' NIPBFUO --> C14O3IPCHO + NO2 ', & - ' NIPBFUO --> NIPBFUONE + HO2 ', & - ' IC4CHOAOOH + OH --> IC4CHOAO2 ', & - ' IC4CHOAOOH + OH --> IPRGLYOX + OH ', & - ' IC4CHOAOOH --> M3BUTAL2O + OH ', & - ' IPBFUOOH + OH --> IPBFUO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_338 = (/ & - ' IPBFUOOH --> IPBFUO + OH ', & - ' IPBFUO --> C14O3IPCHO + HO2 ', & - ' IPBFUCO + OH --> C14O3IPCHO + HO2 ', & - ' IPBFUOH + OH --> IPBFUCO + HO2 ', & - ' C4MOHOCO3 + HO2 --> C4MOHOCO3H ', & - ' C4MOHOCO3 + HO2 --> IPRGLYOX + OH + CO + HO2 ', & - ' C4MOHOCO3 + NO --> IPRGLYOX + CO + NO2 + HO2 ', & - ' C4MOHOCO3 + NO2 --> C4MOHOPAN ', & - ' C4MOHOCO3 + NO3 --> IPRGLYOX + CO + NO2 + HO2 ', & - ' C4MOHOCO3 --> IPRGLYOX + CO + HO2 ', & - ' C7MO3OHOOH + OH --> C7MCO3OHO2 ', & - ' C7MO3OHOOH --> C7MCO3OHO + OH ', & - ' C7MCO3OHO --> C33CO + IPRGLYOX + HO2 ', & - ' C7ADCCO2 --> BIACET + CH3CO3 ', & - ' C7ADCCO2 --> DMMALANHY + CH3O2 ', & - ' DNT123BOL + NO3 --> NDNT123LO2 ', & - ' DNT123BOL + OH --> DNT123LO2 ', & - ' NT123L1O2 + HO2 --> NT123L1OOH ', & - ' NT123L1O2 + NO --> NT123L1O + NO2 ', & - ' NT123L1O2 + NO3 --> NT123L1O + NO2 ', & - ' NT123L1O2 --> NT123L1O ', & - 'T123NNCTO2 + HO2 --> T123NNCOOH ', & - ' T123NNCTO2 + NO --> T123NNCTO + NO2 ', & - 'T123NNCTO2 + NO3 --> T123NNCTO + NO2 ', & - ' T123NNCTO2 --> T123NNCTO ', & - 'T123NCATO2 + HO2 --> T123NCTOOH ', & - ' T123NCATO2 + NO --> T123NCATO + NO2 ', & - 'T123NCATO2 + NO3 --> T123NCATO + NO2 ', & - ' T123NCATO2 --> T123NCATO ', & - ' T123CT1OOH + OH --> T123CAT1O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_339 = (/ & - ' T123CT1OOH --> T123CAT1O + OH ', & - ' C7ADCCO3H + OH --> C7ADCCO3 ', & - ' C7ADCCO3H --> BIACET + CH3CO3 + OH ', & - ' C7ADCCO3H --> C7ADCCO2 ', & - ' C7ADCPAN + OH --> BIACET + HCHO + 2 CO + NO2 ', & - ' C7ADCPAN --> C7ADCCO3 + NO2 ', & - ' C7ADCOOH + OH --> C7ADCO2 ', & - ' C7ADCOOH --> C7ADCO + OH ', & - ' C7ADCO --> BIACET + MGLYOX + HO2 ', & - ' C7ADCOH + OH --> C7ADCO ', & - ' C7ADCOH --> C7ADCO + HO2 ', & - ' NTMB1FUOOH + OH --> NTMB1FUO2 ', & - ' NTMB1FUOOH --> NTMB1FUO + OH ', & - ' NTMB1FUO --> C5OCO3M + NO2 ', & - ' TMB1FUOOH + OH --> TMB1FUO2 ', & - ' TMB1FUOOH --> TMB1FUO + OH ', & - ' TMB1FUO --> C5OCO3M + HO2 ', & - ' TMB1FUOH + OH --> TMB1FUO ', & - ' NTMB2FUOOH + OH --> NTMB2FUO2 ', & - ' NTMB2FUOOH --> NTMB2FUO + OH ', & - ' NTMB2FUO --> MC6OTRIKET + NO2 ', & - ' MC6OTKTOOH + OH --> MC6OTKETO2 ', & - ' MC6OTKTOOH --> MC6OTKETO + OH ', & - ' MC6OTKETO --> BIACET + CH3CO3 ', & - ' MC6OTKETOH + OH --> MC6OTKETO ', & - ' TMB2FUOOH + OH --> TMB2FUO2 ', & - ' TMB2FUOOH --> TMB2FUO + OH ', & - ' TMB2FUO --> MC6OTRIKET + HO2 ', & - ' TMB2FUOH + OH --> TMB2FUO ', & - ' DM124OHNO2 + OH --> TM124NO2O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_340 = (/ & - ' C7BDCOOH + OH --> C7BDCO2 ', & - ' C7BDCOOH --> C5CO243OH + CH3CO3 + OH ', & - ' C7BDCOOH --> C7BDCO + OH ', & - ' C7BDCO --> C5CO243OH + CH3CO3 ', & - ' C7BDCO --> BIACET + MGLYOX + HO2 ', & - ' C7BDCOH + OH --> C7BDCO ', & - ' C7BDCOH --> C5CO243OH + CH3CO3 + HO2 ', & - ' DNT124BOL + NO3 --> NDNT124LO2 ', & - ' DNT124BOL + OH --> DNT124LO2 ', & - ' NT124L1O2 + HO2 --> NT124L1OOH ', & - ' NT124L1O2 + NO --> NT124L1O + NO2 ', & - ' NT124L1O2 + NO3 --> NT124L1O + NO2 ', & - ' NT124L1O2 --> NT124L1O ', & - ' NTM124QO2 + HO2 --> NTM124QOOH ', & - ' NTM124QO2 + NO --> NTM124QO + NO2 ', & - ' NTM124QO2 + NO3 --> NTM124QO + NO2 ', & - ' NTM124QO2 --> NTM124QO ', & - ' TM124QO2 + HO2 --> TM124QOOH ', & - ' TM124QO2 + NO --> TM124QO + NO2 ', & - ' TM124QO2 + NO3 --> TM124QO + NO2 ', & - ' TM124QO2 --> TM124QO ', & - ' TM124QO2 --> TM124QOH ', & - 'T124NNCTO2 + HO2 --> T124NNCOOH ', & - ' T124NNCTO2 + NO --> T124NNCTO + NO2 ', & - 'T124NNCTO2 + NO3 --> T124NNCTO + NO2 ', & - ' T124NNCTO2 --> T124NNCTO ', & - 'T124NCATO2 + HO2 --> T124NCTOOH ', & - ' T124NCATO2 + NO --> T124NCATO + NO2 ', & - 'T124NCATO2 + NO3 --> T124NCATO + NO2 ', & - ' T124NCATO2 --> T124NCATO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_341 = (/ & - ' T124CT1OOH + OH --> T124CAT1O2 ', & - ' T124CT1OOH --> T124CAT1O + OH ', & - ' DMPHOHNO2 + OH --> MXYOHNO2O2 ', & - ' C5CO234O2 + HO2 --> C5CO234OOH ', & - ' C5CO234O2 + NO --> C5CO234O + NO2 ', & - ' C5CO234O2 + NO3 --> C5CO234O + NO2 ', & - ' C5CO234O2 --> C5CO234O ', & - ' DNOETOL + NO3 --> NDNOETOLO2 ', & - ' DNOETOL + OH --> DNOETOLO2 ', & - ' NOETOL1O2 + HO2 --> NOETOL1OOH ', & - ' NOETOL1O2 + NO --> NOETOL1O + NO2 ', & - ' NOETOL1O2 + NO3 --> NOETOL1O + NO2 ', & - ' NOETOL1O2 --> NOETOL1O ', & - ' NOETLQO2 + HO2 --> NOETLQOOH ', & - ' NOETLQO2 + NO --> NOETLQO + NO2 ', & - ' NOETLQO2 + NO3 --> NOETLQO + NO2 ', & - ' NOETLQO2 --> NOETLQO ', & - ' OETLQO2 + HO2 --> OETLQOOH ', & - ' OETLQO2 + NO --> OETLQO + NO2 ', & - ' OETLQO2 + NO3 --> OETLQO + NO2 ', & - ' OETLQO2 --> OETLQCO ', & - ' OETLQO2 --> OETLQO ', & - ' OETLQO2 --> OETLQOH ', & - 'OTNNCATCO2 + HO2 --> OTNNCATOOH ', & - ' OTNNCATCO2 + NO --> OTNNCATCO + NO2 ', & - 'OTNNCATCO2 + NO3 --> OTNNCATCO + NO2 ', & - ' OTNNCATCO2 --> OTNNCATCO ', & - 'OTNCATECO2 + HO2 --> OTNCATCOOH ', & - ' OTNCATECO2 + NO --> OTNCATECO + NO2 ', & - 'OTNCATECO2 + NO3 --> OTNCATECO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_342 = (/ & - ' OTNCATECO2 --> OTNCATECO ', & - ' OTCTEC1OOH + OH --> OTCATEC1O2 ', & - ' OTCTEC1OOH --> OTCATEC1O + OH ', & - ' DNMETOL + NO3 --> NDNMETOLO2 ', & - ' DNMETOL + OH --> DNMETOLO2 ', & - ' NMETOL1O2 + HO2 --> NMETOL1OOH ', & - ' NMETOL1O2 + NO --> NMETOL1O + NO2 ', & - ' NMETOL1O2 + NO3 --> NMETOL1O + NO2 ', & - ' NMETOL1O2 --> NMETOL1O ', & - ' NMETLQO2 + HO2 --> NMETLQOOH ', & - ' NMETLQO2 + NO --> NMETLQO + NO2 ', & - ' NMETLQO2 + NO3 --> NMETLQO + NO2 ', & - ' NMETLQO2 --> NMETLQO ', & - ' METLQO2 + HO2 --> METLQOOH ', & - ' METLQO2 + NO --> METLQO + NO2 ', & - ' METLQO2 + NO3 --> METLQO + NO2 ', & - ' METLQO2 --> METLQO ', & - ' METLQO2 --> METLQOH ', & - 'MTNNCATCO2 + HO2 --> MTNNCATOOH ', & - ' MTNNCATCO2 + NO --> MTNNCATCO + NO2 ', & - 'MTNNCATCO2 + NO3 --> MTNNCATCO + NO2 ', & - ' MTNNCATCO2 --> MTNNCATCO ', & - 'MTNCATECO2 + HO2 --> MTNCATCOOH ', & - ' MTNCATECO2 + NO --> MTNCATECO + NO2 ', & - 'MTNCATECO2 + NO3 --> MTNCATECO + NO2 ', & - ' MTNCATECO2 --> MTNCATECO ', & - ' MTCTEC1OOH + OH --> MTCATEC1O2 ', & - ' MTCTEC1OOH --> MTCATEC1O + OH ', & - ' C7EDCOOH + OH --> C7EDCCO + OH ', & - ' C7EDCOOH --> C7EDCO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_343 = (/ & - ' C7EDCO --> CO3H4CHO + CH3CO3 ', & - ' C7EDCO --> EGLYOX + MGLYOX + HO2 ', & - ' C7EDCCO + OH --> EGLYOX + MGLYOX + HO2 ', & - ' C7EDCCO --> EGLYOX + CH3CO3 + CO + HO2 ', & - ' C7EDCCO --> C2H5CO3 + MGLYOX + CO + HO2 ', & - ' C7EDCOH + OH --> C7EDCCO + HO2 ', & - ' C7EDCOH --> C7EDCO + HO2 ', & - ' DNPETOL + NO3 --> NDNPETOLO2 ', & - ' DNPETOL + OH --> DNPETOLO2 ', & - ' NPETOL1O2 + HO2 --> NPETOL1OOH ', & - ' NPETOL1O2 + NO --> NPETOL1O + NO2 ', & - ' NPETOL1O2 + NO3 --> NPETOL1O + NO2 ', & - ' NPETOL1O2 --> NPETOL1O ', & - ' NPETLQO2 + HO2 --> NPETLQOOH ', & - ' NPETLQO2 + NO --> NPETLQO + NO2 ', & - ' NPETLQO2 + NO3 --> NPETLQO + NO2 ', & - ' NPETLQO2 --> NPETLQO ', & - ' PETLQO2 + HO2 --> PETLQOOH ', & - ' PETLQO2 + NO --> PETLQO + NO2 ', & - ' PETLQO2 + NO3 --> PETLQO + NO2 ', & - ' PETLQO2 --> PETLQO ', & - ' PETLQO2 --> PETLQOH ', & - 'PTNNCATCO2 + HO2 --> PTNNCATOOH ', & - ' PTNNCATCO2 + NO --> PTNNCATCO + NO2 ', & - 'PTNNCATCO2 + NO3 --> PTNNCATCO + NO2 ', & - ' PTNNCATCO2 --> PTNNCATCO ', & - 'PTNCATECO2 + HO2 --> PTNCATCOOH ', & - ' PTNCATECO2 + NO --> PTNCATECO + NO2 ', & - 'PTNCATECO2 + NO3 --> PTNCATECO + NO2 ', & - ' PTNCATECO2 --> PTNCATECO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_344 = (/ & - ' PTCTEC1OOH + OH --> PTCATEC1O2 ', & - ' PTCTEC1OOH --> PTCATEC1O + OH ', & - ' C7DDCCO2 --> EGLYOX + CH3CO3 ', & - ' C7DDCCO2 --> MMALANHY + C2H5O2 ', & - ' C7DDCCO3H + OH --> C7DDCCO3 ', & - ' C7DDCCO3H --> C7DDCCO2 + OH ', & - ' C7DDCCO3H --> EGLYOX + CH3CO3 + OH ', & - ' C7DDCPAN + OH --> EGLYOX + HCHO + 2 CO + NO2 ', & - ' C7DDCPAN --> C7DDCCO3 + NO2 ', & - ' C7DDCOOH + OH --> C7DDCO2 ', & - ' C7DDCOOH --> C7DDCO + OH ', & - ' C7DDCO --> EGLYOX + MGLYOX + HO2 ', & - ' C7DDCOH + OH --> C7DDCO ', & - ' C7DDCOH --> C7DDCO + HO2 ', & - ' NMEBFUOOH + OH --> NMEBFUO2 ', & - ' NMEBFUOOH --> NMEBFUO + OH ', & - ' NMEBFUO --> C23O3ECHO + NO2 ', & - ' C23O3ECOOH + OH --> C23O3EHO + OH ', & - ' C23O3ECOOH + OH --> C23O3EO2 ', & - ' C23O3ECOOH --> C23O3EO + OH ', & - ' C23O3EO --> C2H5CHO + CH3CO3 ', & - ' C23O3EHO + OH --> CO356OCO2 ', & - ' C23O3EHO --> C2H5CO3 + CH3CO3 ', & - ' C23O3EOH + OH --> C23O3EHO + HO2 ', & - ' MEBFUOOH + OH --> MEBFUO2 ', & - ' MEBFUOOH --> MEBFUO + OH ', & - ' MEBFUO --> C23O3ECHO + HO2 ', & - ' MEBFUOH + OH --> MEBFUO ', & - ' EMPHOOH + OH --> EMPHO2 ', & - ' EMPHOOH --> EMPHO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_345 = (/ & - ' EMPHO + NO2 --> HOEMPHNO2 ', & - 'CO234C65O2 + HO2 --> CO234C6OOH ', & - ' CO234C65O2 + NO --> CO234C65O + NO2 ', & - 'CO234C65O2 + NO3 --> CO234C65O + NO2 ', & - ' CO234C65O2 --> CO234C65O ', & - ' NCO23CHO --> NO3CH2CO3 + 2 CO + HO2 ', & - ' NCO23CHO + NO3 --> NO3CH2CO3 + HNO3 + 2 CO ', & - ' NCO23CHO + OH --> NO3CH2CO3 + 2 CO ', & - ' H13CO2CO3 + HO2 --> H13CO2CO3H ', & - ' H13CO2CO3 + HO2 --> HOCH2COCHO + OH + HO2 ', & - ' H13CO2CO3 + NO --> HOCH2COCHO + NO2 + HO2 ', & - ' H13CO2CO3 + NO2 --> C4PAN10 ', & - ' H13CO2CO3 + NO3 --> HOCH2COCHO + NO2 + HO2 ', & - ' H13CO2CO3 --> HOCH2COCHO + HO2 ', & - 'HOCH2COCO2H + OH --> HOCH2CO3 ', & - ' HOCH2COCO2H --> HOCH2CO3 + HO2 ', & - ' H1CO23CHO + OH --> HOCH2CO3 + 2 CO ', & - ' H1CO23CHO --> HOCH2CO3 + 2 CO + HO2 ', & - ' INCNCHO + OH --> INCGLYOX + NO2 ', & - ' INCNCHO + OH --> INCNCO3 ', & - ' INCNCHO --> NOA + GLYOX + NO2 + HO2 ', & - ' C59O --> ACETOL + HOCH2CO3 ', & - ' INCGLYOX --> MACRNBCO3 + CO + HO2 ', & - ' INCGLYOX + OH --> MACRNBCO3 + CO ', & - ' CO2N3CO3 + HO2 --> CO2N3CO3H ', & - ' CO2N3CO3 + HO2 --> MGLYOX + OH + NO2 ', & - ' CO2N3CO3 + NO --> MGLYOX + 2 NO2 ', & - ' CO2N3CO3 + NO2 --> CO2N3PAN ', & - ' CO2N3CO3 + NO3 --> MGLYOX + 2 NO2 ', & - ' CO2N3CO3 --> MGLYOX + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_346 = (/ & - ' IEACHO --> HMVKBO2 + CO + HO2 ', & - ' IEACHO + NO3 --> IEACO3 + HNO3 ', & - ' IEACHO + OH --> IEACO3 ', & - ' C526OOH + OH --> HMVKBOOH + OH + CO ', & - ' C526OOH + OH --> IEC2OOH + OH ', & - ' C526OOH --> HMVKBOOH + OH + CO + HO2 ', & - ' C526OOH --> MGLYOX + HOCH2CHO + 2 OH ', & - ' C526NO3 + OH --> HMVKBOOH + CO + NO2 ', & - ' C526NO3 --> C526O + NO2 ', & - ' C526O --> MGLYOX + HOCH2CHO + OH ', & - ' M3FOOA --> C531O2 + OH ', & - ' M3FOOA --> M3FOO ', & - ' NC2OO + CO --> NO3CH2CHO ', & - ' NC2OO + NO --> NO3CH2CHO + NO2 ', & - ' NC2OO + NO2 --> NO3CH2CHO + NO3 ', & - ' NC2OO + SO2 --> SO3 + NO3CH2CHO ', & - ' NC2OO --> H2O2 + NO3CH2CHO ', & - ' NC2OO --> NO3CH2CO2H ', & - ' ACLOO + CO --> ACETOL ', & - ' ACLOO + NO --> ACETOL + NO2 ', & - ' ACLOO + NO2 --> ACETOL + NO3 ', & - ' ACLOO + SO2 --> SO3 + ACETOL ', & - ' ACLOO --> H2O2 + ACETOL ', & - ' CH3COCO3H + OH --> CH3COCO3 ', & - ' CH3COCO3H --> CH3CO3 + OH ', & - ' PPACLOOA --> CH3COCO3 + OH ', & - ' C534O2 + HO2 --> C534OOH ', & - ' C534O2 + NO --> C534O + NO2 ', & - ' C534O2 + NO3 --> C534O + NO2 ', & - ' C534O2 --> C534O ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_347 = (/ & - ' HC4ACO2H + OH --> ACETOL + CO + HO2 ', & - ' HC4ACO3H --> ACETOL + OH + CO + HO2 ', & - ' HC4ACO3H + OH --> MACROH + OH + CO ', & - ' C5PAN17 --> HC4ACO3 + NO2 ', & - ' C5PAN17 + OH --> MACROH + CO + NO3 ', & - ' C58AOOH + OH --> MACROH + OH + CO ', & - ' C58AOOH --> C58AO + OH ', & - ' C58ANO3 + OH --> C47CHO + HO2 ', & - ' C58ANO3 --> ACETOL + GLYOX + NO2 + HO2 ', & - ' C58AO --> ACETOL + GLYOX + HO2 ', & - ' IEB1CHO + OH --> C4M2ALOHO2 ', & - ' IEB4CHO + OH --> C4M2ALOHO2 ', & - ' MACRNOO + CO --> MACRNO3 ', & - ' MACRNOO + NO --> MACRNO3 + NO2 ', & - ' MACRNOO + NO2 --> MACRNO3 + NO3 ', & - ' MACRNOO + SO2 --> SO3 + MACRNO3 ', & - ' MACRNOO --> MACRNCO2H ', & - ' MACRNOO --> H2O2 + MACRNO3 ', & - ' INB1OOH + OH --> INB1CO + OH ', & - ' INB1OOH + OH --> INB1HPCHO + HO2 ', & - ' INB1OOH + OH --> INB1O2 ', & - ' INB1OOH --> INB1O + OH ', & - ' INB1NO3 + OH --> INB1NACHO + HO2 ', & - ' INB1NO3 + OH --> INB1NBCHO + HO2 ', & - ' INB1O --> ACETOL + HOCH2CHO + NO2 ', & - ' INB1CO + OH --> INB1GLYOX + HO2 ', & - ' INB1CO --> ACETOL + HOCH2CO3 + NO2 ', & - ' INB1OH + OH --> C58NO3 + HO2 ', & - ' INB1OH + OH --> INB1CO + HO2 ', & - ' INB2OOH + OH --> C58NO3 + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_348 = (/ & - ' INB2OOH + OH --> INB2O2 ', & - ' INB2OOH --> INB2O + OH ', & - ' INB2O --> C57NO3 + HO2 ', & - ' IECCHO --> MACRO2 + CO + HO2 ', & - ' IECCHO + NO3 --> IECCO3 + HNO3 ', & - ' IECCHO + OH --> IECCO3 ', & - ' C527OOH + OH --> MACROOH + OH + CO ', & - ' C527OOH --> ACETOL + GLYOX + 2 OH ', & - ' C527OOH --> MACROOH + OH + CO + HO2 ', & - ' C527NO3 + OH --> MACROOH + CO + NO2 ', & - ' C527NO3 --> C527O + NO2 ', & - ' C527O --> ACETOL + GLYOX + OH ', & - ' PPGAOOB --> HCOCO3 + OH ', & - ' C535O2 + HO2 --> C535OOH ', & - ' C535O2 + NO --> C535O + NO2 ', & - ' C535O2 + NO3 --> C535O + NO2 ', & - ' C535O2 --> C535O ', & - ' HPC52OOH + OH --> HPC52CO3 ', & - ' HPC52OOH --> DHPMACR + CO + 2 HO2 ', & - ' HPC52OOH --> HPC52O + OH ', & - ' HPC52O --> HYPERACET + GLYOX + HO2 ', & - ' HC4CCO2H + OH --> HOCH2CHO + CH3CO3 ', & - ' HC4CCO3H --> HOCH2CHO + CH3CO3 + OH ', & - ' HC4CCO3H + OH --> HO12CO3C4 + OH + CO ', & - ' C5PAN19 --> HC4CCO3 + NO2 ', & - ' C5PAN19 + OH --> HO12CO3C4 + CO + NO3 ', & - ' C57AOOH + OH --> HMVKBOOH + CO + HO2 ', & - ' C57AOOH --> C57AO + OH ', & - ' C57AO --> MGLYOX + HOCH2CHO + HO2 ', & - ' INDHCHO + OH --> INDHCO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_349 = (/ & - ' INDHCHO --> MGLYOX + HOCH2CHO + NO2 + HO2 ', & - ' C57OOH --> C57O + OH ', & - ' C57OOH + OH --> HO12CO3C4 + OH + CO ', & - ' C57NO3 + OH --> C4M2ALOHNO3 + HO2 ', & - ' C57NO3 + OH --> C57NO3CO3 ', & - ' C57NO3 --> MGLYOX + HOCH2CHO + NO2 + HO2 ', & - ' C57O --> MGLYOX + HOCH2CHO + HO2 ', & - ' C57OH + OH --> C57O ', & - ' NC4OO + CO --> MVKNO3 ', & - ' NC4OO + NO --> MVKNO3 + NO2 ', & - ' NC4OO + NO2 --> MVKNO3 + NO3 ', & - ' NC4OO + SO2 --> SO3 + MVKNO3 ', & - ' NC4OO --> H2O2 + MVKNO3 ', & - ' INDOOH + OH --> INDHPCHO + HO2 ', & - ' INDOOH + OH --> INDO2 ', & - ' INDOOH --> INDO + OH ', & - ' INDO --> ACETOL + HOCH2CHO + NO2 ', & - ' INDO --> MVKNO3 + HCHO + HO2 ', & - ' INDOH + OH --> INDHCHO + HO2 ', & - ' C59OOH --> C59O + OH ', & - ' C59OOH --> ACETOL + HOCH2CO3 + OH ', & - ' C59OOH + OH --> C59O2 ', & - ' C59OOH + OH --> IEC2OOH + HO2 ', & - ' INAHPCHO --> HMVKANO3 + OH + CO + HO2 ', & - ' INAHPCHO + OH --> INAHPCO3 ', & - ' INANCHO --> HMVKANO3 + CO + NO2 + HO2 ', & - ' INANCHO + OH --> INANCO3 ', & - ' INANCO --> NO3CH2CO3 + ACETOL + NO2 ', & - ' INANCO + OH --> INANCOCHO + HO2 ', & - ' INANCO + OH --> INB1GLYOX + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_350 = (/ & - ' INAHCHO --> HMVKANO3 + CO + 2 HO2 ', & - ' INAHCHO + OH --> INAHCO3 ', & - ' C58NO3CO3 + HO2 --> C58NO3CO2H + O3 ', & - ' C58NO3CO3 + HO2 --> C58NO3CO3H ', & - ' C58NO3CO3 + HO2 --> MACRNO3 + OH + HO2 ', & - ' C58NO3CO3 + NO --> MACRNO3 + NO2 + HO2 ', & - ' C58NO3CO3 + NO2 --> C58NO3PAN ', & - ' C58NO3CO3 --> C58NO3CO2H ', & - ' C58NO3CO3 --> MACRNO3 + HO2 ', & - ' C524OOH + OH --> C524CO + OH ', & - ' C524OOH + OH --> C524O2 ', & - ' C524OOH + OH --> HIEPOXB + OH ', & - ' C524OOH --> C524O + OH ', & - ' C524NO3 + OH --> NC524O2 ', & - ' C524NO3 --> C524O + NO2 ', & - ' C524O --> HMACR + HCHO + HO2 ', & - ' C524CO + OH --> C525O2 ', & - ' C524CO --> HCHO + 2 HOCH2CO3 ', & - ' C524OH + OH --> C524CO + HO2 ', & - ' HMACR + NO3 --> HMACO3 + HNO3 ', & - ' HMACR + O3 --> CH2OOA + HOCH2COCHO ', & - ' HMACR + O3 --> HMGLYOOA + HCHO ', & - ' HMACR + OH --> HMACO3 ', & - ' HMACR + OH --> HMACRO2 ', & - ' ACETMECO3 + HO2 --> ACETMECO3H ', & - ' ACETMECO3 + HO2 --> METHACETO2 + OH ', & - ' ACETMECO3 + NO --> METHACETO2 + NO2 ', & - ' ACETMECO3 + NO2 --> ACETMEPAN ', & - ' ACETMECO3 + NO3 --> METHACETO2 + NO2 ', & - ' ACETMECO3 --> METHACETO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_351 = (/ & - 'METHACETO2 + HO2 --> METACETHO ', & - 'METHACETO2 + HO2 --> METACETO2H ', & - ' METHACETO2 + NO --> METACETNO3 ', & - ' METHACETO2 + NO --> METHACETO + NO2 ', & - 'METHACETO2 + NO3 --> METHACETO + NO2 ', & - ' METHACETO2 --> METACETHO ', & - ' METHACETO2 --> METACETOH ', & - ' METHACETO2 --> METHACETO ', & - 'HOACETETO2 + HO2 --> HOACETEOOH ', & - ' HOACETETO2 + NO --> HOACETETO + NO2 ', & - 'HOACETETO2 + NO3 --> HOACETETO + NO2 ', & - ' HOACETETO2 --> HOACETETO ', & - ' ETHFORMOOH + OH --> ETHFORMO2 ', & - ' ETHFORMOOH + OH --> METACETHO + OH ', & - ' ETHFORMOOH --> ETHFORMO + OH ', & - ' METACETHO + OH --> CH3CO3 ', & - ' ETHFORMNO3 + OH --> METACETHO + NO2 ', & - ' ETHFORMNO3 --> ETHFORMO + NO2 ', & - ' ETHFORMO --> CH3CHO + HO2 ', & - ' ETHFORMOH + OH --> METACETHO + HO2 ', & - ' ETOHOCHO + OH --> MOXY2CHO + HO2 ', & - ' CO23C4CHO --> BIACETO2 + CO + HO2 ', & - ' CO23C4CHO --> HCOCH2CO3 + CH3CO3 ', & - ' CO23C4CHO + NO3 --> CO23C4CO3 + HNO3 ', & - ' CO23C4CHO + OH --> CO23C4CO3 ', & - ' C62O2 + HO2 --> C62OOH ', & - ' C62O2 + NO --> C62O + NO2 ', & - ' C62O2 + NO3 --> C62O + NO2 ', & - ' C62O2 --> C62O ', & - ' HO13C4O2 + HO2 --> HO13C4OOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_352 = (/ & - ' HO13C4O2 + NO --> HO13C4NO3 ', & - ' HO13C4O2 + NO --> HO13C4O + NO2 ', & - ' HO13C4O2 + NO3 --> HO13C4O + NO2 ', & - ' HO13C4O2 --> HO13C3CHO ', & - ' HO13C4O2 --> HO13C4O ', & - ' HO13C4O2 --> HO13C4OH ', & - ' C6CO134 + OH --> C5CO34CO3 ', & - ' HM22CO3 + HO2 --> HM22CO2H + O3 ', & - ' HM22CO3 + HO2 --> HM22CO3H ', & - ' HM22CO3 + HO2 --> IBUTOLBO2 + OH ', & - ' HM22CO3 + NO --> IBUTOLBO2 + NO2 ', & - ' HM22CO3 + NO2 --> C5PAN15 ', & - ' HM22CO3 + NO3 --> IBUTOLBO2 + NO2 ', & - ' HM22CO3 --> HM22CO2H ', & - ' HM22CO3 --> IBUTOLBO2 ', & - 'C6COCHOCO3 + HO2 --> C5COCHOO2 + OH ', & - 'C6COCHOCO3 + HO2 --> C6COALCO2H + O3 ', & - 'C6COCHOCO3 + HO2 --> C6COALCO3H ', & - ' C6COCHOCO3 + NO --> C5COCHOO2 + NO2 ', & - 'C6COCHOCO3 + NO2 --> C6COCHOPAN ', & - 'C6COCHOCO3 + NO3 --> C5COCHOO2 + NO2 ', & - ' C6COCHOCO3 --> C5COCHOO2 ', & - ' C6COCHOCO3 --> C6COALCO2H ', & - ' C5COCHOO2 + HO2 --> C5COCHOOOH ', & - ' C5COCHOO2 + NO --> C5COCHOO + NO2 ', & - ' C5COCHOO2 + NO3 --> C5COCHOO + NO2 ', & - ' C5COCHOO2 --> C5COCHOO ', & - ' CHOC2H4O2 + HO2 --> CHOC2H4OOH ', & - ' CHOC2H4O2 + NO --> CHOC2H4O + NO2 ', & - ' CHOC2H4O2 + NO3 --> CHOC2H4O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_353 = (/ & - ' CHOC2H4O2 --> CHOC2H4O ', & - ' HCOCH2CO3 + HO2 --> HCOCH2CO2H + O3 ', & - ' HCOCH2CO3 + HO2 --> HCOCH2CO3H ', & - ' HCOCH2CO3 + HO2 --> HCOCH2O2 + OH ', & - ' HCOCH2CO3 + NO --> HCOCH2O2 + NO2 ', & - ' HCOCH2CO3 + NO2 --> C3PAN2 ', & - ' HCOCH2CO3 + NO3 --> HCOCH2O2 + NO2 ', & - ' HCOCH2CO3 --> HCOCH2CO2H ', & - ' HCOCH2CO3 --> HCOCH2O2 ', & - 'CY6TRIONO2 + HO2 --> C6135COOOH ', & - ' CY6TRIONO2 + NO --> C6135COO + NO2 ', & - 'CY6TRIONO2 + NO3 --> C6135COO + NO2 ', & - ' CY6TRIONO2 --> C6135COO ', & - ' C6CYTONO2 + HO2 --> C6CYTONOOH ', & - ' C6CYTONO2 + NO --> C6CYTONO + NO2 ', & - ' C6CYTONO2 + NO3 --> C6CYTONO + NO2 ', & - ' C6CYTONO2 --> C6CYTONO ', & - ' PINALOOH + OH --> PINALO2 ', & - ' PINALOOH --> PINALO + OH ', & - ' PINALNO3 + OH --> CO235C6CHO + CH3COCH3 + NO2 ', & - ' PINALNO3 --> PINALO + NO2 ', & - ' PINALO --> C106O2 ', & - ' PINALOH + OH --> PINALO ', & - ' PINALOH --> PINALO + HO2 ', & - ' NC102O2 + HO2 --> NC102OOH ', & - ' NC102O2 + NO --> NC102O + NO2 ', & - ' NC102O2 + NO3 --> NC102O + NO2 ', & - ' NC102O2 --> NC102O ', & - ' C108OOH + OH --> C108O2 ', & - ' C108OOH --> C108O + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_354 = (/ & - ' C108NO3 + OH --> CO235C6CHO + CH3COCH3 + NO2 ', & - ' C108NO3 --> C108O + NO2 ', & - ' C108O --> C717O2 + CH3COCH3 ', & - ' C108OH + OH --> C108O ', & - ' C108OH --> C108O + HO2 ', & - ' C89CO2 --> C811CO3 ', & - ' C89CO2 --> C89O2 ', & - ' C89CO2H + OH --> C89CO2 ', & - ' C89CO2H --> C89CO2 + HO2 ', & - ' C89CO3H + OH --> C89CO3 ', & - ' C89CO3H --> C89CO2 + OH ', & - ' C89PAN + OH --> CO13C4CHO + CH3COCH3 + CO + NO2 ', & - ' C89PAN --> C89CO3 + NO2 ', & - ' C920CO3H + OH --> C920CO3 ', & - ' C920CO3H --> C920O2 + OH ', & - ' HOPINONIC + OH --> C920O2 ', & - ' HOPINONIC --> C920O2 + HO2 ', & - ' C920PAN + OH --> C109OH + CO + NO2 ', & - ' C920PAN --> C920CO3 + NO2 ', & - ' C920OOH + OH --> C920O2 ', & - ' C920OOH --> C920O + OH ', & - ' C920O --> C921O2 ', & - ' C97OOH + OH --> C97O2 ', & - ' C97OOH --> C97O + OH ', & - ' C97O --> C98O2 ', & - ' C97OH + OH --> C97O ', & - ' C97OH --> C97O + HO2 ', & - ' C85CO3H + OH --> C85CO3 ', & - ' C85CO3H --> C85O2 + OH ', & - ' C9PAN2 + OH --> C85OOH + CO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_355 = (/ & - ' C9PAN2 --> C85CO3 + NO2 ', & - ' C85OOH + OH --> C85O2 ', & - ' C85OOH --> C85O + OH ', & - ' C85O --> C86O2 ', & - ' C719OOH + OH --> C719O2 ', & - ' C719OOH --> C719O + OH ', & - ' C719NO3 + OH --> C716OH + NO2 ', & - ' C719O --> C716OH + HO2 ', & - ' C719OH + OH --> C719O ', & - ' C918OOH + OH --> C918O2 ', & - ' C918OOH --> C918O + OH ', & - ' C918NO3 + OH --> CH3COCH3 + 2 HCOCH2CHO + NO2 ', & - ' C918NO3 --> C918O + NO2 ', & - ' C918O --> C919O2 ', & - ' C918OH + OH --> C918O ', & - ' C918OH --> C918O + HO2 ', & - ' C9DCOOH + OH --> C9DCCO + OH ', & - ' C9DCOOH --> C9DCO + OH ', & - ' C9DCNO3 + OH --> C9DCCO + NO2 ', & - ' C9DCNO3 --> C9DCO + NO2 ', & - ' C9DCO --> C914O2 ', & - ' C9DCCO + OH --> C914O2 ', & - ' C9DCOH + OH --> C9DCCO + HO2 ', & - ' C915OOH + OH --> C88CHO + OH ', & - ' C915OOH --> C915O + OH ', & - ' C915NO3 + OH --> C88CHO + NO2 ', & - ' C915NO3 --> C915O + NO2 ', & - ' C915O --> C88CHO + HO2 ', & - ' C915O --> C916O2 ', & - ' C88CHO + NO3 --> C88CO3 + HNO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_356 = (/ & - ' C88CHO + OH --> C88CO3 ', & - ' C88CHO --> C88O2 + CO + HO2 ', & - ' C915OH + OH --> C88CHO + HO2 ', & - ' C512CO3 + HO2 --> C512CO2H + O3 ', & - ' C512CO3 + HO2 --> C512CO3H ', & - ' C512CO3 + HO2 --> C512O2 + OH ', & - ' C512CO3 + NO --> C512O2 + NO2 ', & - ' C512CO3 + NO2 --> C512PAN ', & - ' C512CO3 + NO3 --> C512O2 + NO2 ', & - ' C512CO3 --> C512CO2H ', & - ' C512CO3 --> C512O2 ', & - ' C917OOH + OH --> C917O2 ', & - ' C917OOH --> C917O + OH ', & - ' C917NO3 + OH --> C619CO + CH3COCH3 + NO2 ', & - ' C917NO3 --> C917O + NO2 ', & - ' C917O --> C619O2 + CH3COCH3 ', & - ' C917OH + OH --> C917O ', & - ' C89O2 + HO2 --> C89OOH ', & - ' C89O2 + NO --> C89NO3 ', & - ' C89O2 + NO --> C89O + NO2 ', & - ' C89O2 + NO3 --> C89O + NO2 ', & - ' C89O2 --> C89O ', & - ' C89O2 --> C89OH ', & - ' NLIMALOOH + OH --> NLIMALO2 ', & - ' NLIMALOOH --> NLIMALO + OH ', & - ' NLIMALO --> LMLKET + HCHO + NO2 ', & - ' NLIMALOH + OH --> LMLKET + HCHO + NO2 ', & - ' C926O2 + HO2 --> C926OOH ', & - ' C926O2 + NO --> C926O + NO2 ', & - ' C926O2 + NO3 --> C926O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_357 = (/ & - ' C926O2 --> C926O ', & - ' C926O2 --> C926OH ', & - ' C817CO3 + HO2 --> C817CO3H ', & - ' C817CO3 + HO2 --> C817O2 + OH ', & - ' C817CO3 + HO2 --> KLIMONONIC + O3 ', & - ' C817CO3 + NO --> C817O2 + NO2 ', & - ' C817CO3 + NO2 --> C817PAN ', & - ' C817CO3 + NO3 --> C817O2 + NO2 ', & - ' C817CO3 --> C817O2 ', & - ' C817CO3 --> KLIMONONIC ', & - ' C817O2 + HO2 --> C817OOH ', & - ' C817O2 + NO --> C817NO3 ', & - ' C817O2 + NO --> C817O + NO2 ', & - ' C817O2 + NO3 --> C817O + NO2 ', & - ' C817O2 --> C817CO ', & - ' C817O2 --> C817O ', & - ' C817O2 --> C817OH ', & - ' LIMALOOH + OH --> LIMALO2 ', & - ' LIMALOOH --> LIMALO + OH ', & - ' LIMALNO3 + OH --> LMLKET + HCHO + NO2 ', & - ' LIMALO --> LMLKET + HCHO + HO2 ', & - ' LIMALOH + OH --> LMLKET + HCHO + HO2 ', & - ' NC826O2 + HO2 --> NC826OOH ', & - ' NC826O2 + NO --> NC826O + NO2 ', & - ' NC826O2 + NO3 --> NC826O + NO2 ', & - ' NC826O2 --> NC826O ', & - ' NC826O2 --> NC826OH ', & - ' C626CHO + NO3 --> C626CO3 + HNO3 ', & - ' C626CHO + OH --> C626CO3 ', & - ' C626CHO --> C626O2 + CO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_358 = (/ & - ' C735OOA --> C735O2 + OH ', & - ' C826O2 + HO2 --> C826OOH ', & - ' C826O2 + NO --> C826NO3 ', & - ' C826O2 + NO --> C826O + NO2 ', & - ' C826O2 + NO3 --> C826O + NO2 ', & - ' C826O2 --> C826O ', & - ' C826O2 --> C826OH ', & - ' C729O2 + HO2 --> C729OOH ', & - ' C729O2 + NO --> C729NO3 ', & - ' C729O2 + NO --> C729O + NO2 ', & - ' C729O2 + NO3 --> C729O + NO2 ', & - ' C729O2 --> C622CHO ', & - ' C729O2 --> C729O ', & - ' C729CO2H + OH --> C729O2 ', & - ' C729CO2H --> C729O2 + HO2 ', & - ' C729CO3H + OH --> C729CO3 ', & - ' C729CO3H --> C729O2 + OH ', & - ' C729PAN + OH --> C622CHO + CO + NO2 ', & - ' C729PAN --> C729CO3 + NO2 ', & - ' C822CO2 --> C822O2 ', & - ' C822CO2 --> C823CO3 ', & - ' C822CO2H + OH --> C822CO2 ', & - ' C822CO3H + OH --> C822CO3 ', & - ' C822CO3H --> C822CO2 + OH ', & - ' C822PAN + OH --> C729CHO + CO + NO2 ', & - ' C822PAN --> C822CO3 + NO2 ', & - ' C924OOH + OH --> C924CO + OH ', & - ' C924OOH --> C924O + OH ', & - ' C924O --> C622CHO + CH3CO3 ', & - ' C924CO + OH --> C925O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_359 = (/ & - ' C924CO --> C622CO3 + CH3CO3 ', & - ' C924OH + OH --> C924CO + HO2 ', & - ' C816CO3H + OH --> C816CO3 ', & - ' C816CO3H --> C816O2 + OH ', & - ' C816PAN + OH --> C816CO + CO + NO2 ', & - ' C816PAN --> C816CO3 + NO2 ', & - ' NORLIMOOH + OH --> NORLIMO2 ', & - ' NORLIMOOH --> NORLIMO + OH ', & - ' NORLIMO --> C817CO + HCHO + HO2 ', & - ' C816OOH + OH --> C816CO + OH ', & - ' C816OOH --> C816O + OH ', & - ' C816O --> C816CO + HO2 ', & - ' C816O --> MACR + MEKAO2 ', & - ' NLMKAOOH + OH --> NLMKAO2 ', & - ' NLMKAOOH --> NLMKAO + OH ', & - ' NLMKAO --> LMLKET + NO2 ', & - ' LMKBNO3 + OH --> LMKBCO + NO2 ', & - ' LMLKAO2 + HO2 --> LMLKAOOH ', & - ' LMLKAO2 + NO --> LMLKAO + NO2 ', & - ' LMLKAO2 + NO3 --> LMLKAO + NO2 ', & - ' LMLKAO2 --> LMLKACO ', & - ' LMLKAO2 --> LMLKAO2 ', & - ' LMLKAO2 --> LMLKAOH ', & - ' LMLKBO2 + HO2 --> LMLKBOOH ', & - ' LMLKBO2 + NO --> LMLKBO + NO2 ', & - ' LMLKBO2 + NO3 --> LMLKBO + NO2 ', & - ' LMLKBO2 --> LMLKBCO ', & - ' LMLKBO2 --> LMLKBO ', & - ' LMLKBO2 --> LMLKBOH ', & - ' LMKBOO + CO --> LMLKET ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_360 = (/ & - ' LMKBOO + NO --> LMLKET + NO2 ', & - ' LMKBOO + NO2 --> LMLKET + NO3 ', & - ' LMKBOO + SO2 --> SO3 + LMLKET ', & - ' LMKBOO --> KLIMONONIC ', & - ' LMKBOO --> H2O2 + LMLKET ', & - ' LMKAOOH + OH --> LMKAO2 ', & - ' LMKAOOH --> LMKAO + OH ', & - ' LMKANO3 + OH --> LMLKET + NO2 ', & - ' LMKAO --> LMLKET + HO2 ', & - ' LMKAOH + OH --> LMKBCO + HO2 ', & - ' LMKBOOH + OH --> LMKBCO + OH ', & - ' LMKBOOH --> LMKBO + OH ', & - ' LMKBO --> LMLKET + HO2 ', & - ' LMKBCO + OH --> C817CO3 ', & - ' C146OOH + OH --> C146CO + OH ', & - ' C146OOH --> C146O + OH ', & - ' C146O --> C1011CO3 + HCOCH2CHO ', & - ' C146CO + OH --> C1011CO3 + HCOCH2CHO ', & - ' C146CO --> C1011CO3 + HCOCH2CO3 ', & - ' C146OH + OH --> C146CO + HO2 ', & - ' C131CO3H + OH --> C131CO3 ', & - ' C131CO3H --> C131O2 + OH ', & - ' C131PAN + OH --> C131CO + CO + NO2 ', & - ' C131PAN --> C131CO3 + NO2 ', & - ' BCLKAOOH + OH --> BCLKACO + OH ', & - ' BCLKAOOH --> BCLKAO + OH ', & - ' BCLKAOOH --> C116CHO + CH3CO3 + OH ', & - ' BCLKAO --> C116CHO + CH3CO3 ', & - ' BCLKACO + OH --> C116CHO + CH3CO3 ', & - ' BCLKACO --> C116CO3 + CH3CO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_361 = (/ & - ' BCLKAOH + OH --> BCLKACO + HO2 ', & - ' BCLKAOH --> C116CHO + CH3CO3 + HO2 ', & - ' BCLKBOOH + OH --> BCLKBCO + OH ', & - ' BCLKBOOH --> BCLKBO + OH ', & - ' BCLKBOOH --> C1210CO3 + HCHO + OH ', & - ' BCLKBO --> C1210CO3 + HCHO ', & - ' BCLKBCO + OH --> C1210CO3 + CO ', & - ' BCLKBCO --> C1210CO3 + CO + HO2 ', & - ' BCLKBOH + OH --> BCLKBCO + HO2 ', & - ' BCLKBOH --> C1210CO3 + HCHO + HO2 ', & - ' BCLKCOOH + OH --> BCLKCCO + OH ', & - ' BCLKCOOH --> BCLKCO + OH ', & - ' BCLKCOOH --> C131CO + OH + CO + HO2 ', & - ' BCLKCO --> C131CO + CO + HO2 ', & - ' BCLKCCO + OH --> C132O2 + CO ', & - ' BCLKCCO --> C132O2 + CO + HO2 ', & - ' BCLKCOH + OH --> BCLKCCO + HO2 ', & - ' BCLKCOH --> C131CO + CO + 2 HO2 ', & - ' C131OOH + OH --> C131CO + OH ', & - ' C131OOH --> C131O + OH ', & - ' C131NO3 + OH --> C131CO + NO2 ', & - ' C131NO3 --> C131O + NO2 ', & - ' C131O --> C132O2 ', & - ' C131CO + OH --> C132O2 ', & - ' C131OH + OH --> C131CO + HO2 ', & - ' C147OOH + OH --> C147CO + OH ', & - ' C147OOH --> C147O + OH ', & - ' C147O --> HCOCH2CO2H + C1011CO3 ', & - ' C147CO + OH --> HCOCH2CO2H + C1011CO3 ', & - ' C147OH + OH --> C147CO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_362 = (/ & - ' C126CO2H + OH --> C126O2 ', & - ' C126CO3H + OH --> C126CO3 ', & - ' C126CO3H --> C126O2 + OH ', & - ' C126PAN + OH --> C126CO + CO + NO2 ', & - ' C126PAN --> C126CO3 + NO2 ', & - ' C136CO2 --> C136O2 ', & - ' C136CO2 --> C137CO3 ', & - ' C136CO2H + OH --> C136CO2 ', & - ' C136CO3H + OH --> C136CO3 ', & - ' C136CO3H --> C136CO2 + OH ', & - ' C136PAN + OH --> C126CHO + CO + NO2 ', & - ' C136PAN --> C136CO3 + NO2 ', & - ' C148OOH + OH --> C148CO + OH ', & - ' C148OOH --> C148O + OH ', & - ' C148O --> C1013CO3 + HCOCH2CHO ', & - ' C148CO + OH --> C1013CO3 + HCOCH2CHO ', & - ' C148CO --> C1013CO3 + HCOCH2CO3 ', & - ' C148OH + OH --> C148CO + HO2 ', & - ' C1311OOH + OH --> C1312CO + OH ', & - ' C1311OOH --> C1311O + OH ', & - ' C1311NO3 + OH --> C1312CO + NO2 ', & - ' C1311NO3 --> C1311O + NO2 ', & - ' C1311O --> C1312O2 ', & - ' C1311OH + OH --> C1312CO + HO2 ', & - ' NC1313OOH + OH --> NC1313O2 ', & - ' NC1313OOH --> NC1313O + OH ', & - ' NC1313O --> HCHO + C116CHO + NO2 ', & - ' NC1313OH + OH --> HCHO + C116CHO + NO2 ', & - ' C116CO3 + HO2 --> C116CO2H + O3 ', & - ' C116CO3 + HO2 --> C116CO3H ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_363 = (/ & - ' C116CO3 + HO2 --> C116O2 + OH ', & - ' C116CO3 + NO --> C116O2 + NO2 ', & - ' C116CO3 + NO2 --> C116PAN ', & - ' C116CO3 + NO3 --> C116O2 + NO2 ', & - ' C116CO3 --> C116CO2H ', & - ' C116CO3 --> C116O2 ', & - ' C116O2 + HO2 --> C116OOH ', & - ' C116O2 + NO --> C116NO3 ', & - ' C116O2 + NO --> C116O + NO2 ', & - ' C116O2 + NO3 --> C116O + NO2 ', & - ' C116O2 --> C116CO ', & - ' C116O2 --> C116O ', & - ' C116O2 --> C116OH ', & - ' C126OO + CO --> C116CHO ', & - ' C126OO + NO --> C116CHO + NO2 ', & - ' C126OO + NO2 --> C116CHO + NO3 ', & - ' C126OO + SO2 --> SO3 + C116CHO ', & - ' C126OO --> H2O2 + C116CHO ', & - ' C129O2 + HO2 --> C129OOH ', & - ' C129O2 + NO --> C129O + NO2 ', & - ' C129O2 + NO3 --> C129O + NO2 ', & - ' C129O2 --> C129CO ', & - ' C129O2 --> C129O ', & - ' C129O2 --> C129OH ', & - ' C1313OOH + OH --> C1313O2 ', & - ' C1313OOH --> C1313O + OH ', & - ' C1313NO3 + OH --> HCHO + C116CHO + NO2 ', & - ' C1313O --> HCHO + C116CHO + HO2 ', & - ' C1313OH + OH --> C1313O ', & - ' C126OOH + OH --> C126CO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_364 = (/ & - ' C126OOH --> C126O + OH ', & - ' C126NO3 + OH --> C126CO + NO2 ', & - ' C126NO3 --> C126O + NO2 ', & - ' C126O --> C127O2 ', & - ' C126CO + OH --> C127O2 ', & - ' C126OH + OH --> C126CO + HO2 ', & - ' C144OOH + OH --> C144O2 ', & - ' C144OOH --> C144O + OH ', & - ' C142OOH + OH --> C142O2 ', & - ' C142OOH --> C142O + OH ', & - ' C142NO3 + OH --> C143CO + NO2 ', & - ' C142NO3 --> C142O + NO2 ', & - ' C142O --> C143O2 ', & - ' C142OH + OH --> C142O ', & - ' NBCKOOH + OH --> NBCKO2 ', & - ' NBCKOOH --> NBCKO + OH ', & - ' NBCKO --> BCLKET + NO2 ', & - ' BCKBNO3 + OH --> BCKBCO + NO2 ', & - ' C1210O2 + HO2 --> C1210OOH ', & - ' C1210O2 + NO --> C1210NO3 ', & - ' C1210O2 + NO --> C1210O + NO2 ', & - ' C1210O2 + NO3 --> C1210O + NO2 ', & - ' C1210O2 --> C116CHO ', & - ' C1210O2 --> C1210O ', & - ' C1210O2 --> C1210OH ', & - ' BCKAOOH + OH --> BCKAO2 ', & - ' BCKAOOH --> BCKAO + OH ', & - ' BCKANO3 + OH --> BCLKET + NO2 ', & - ' BCKAO --> BCLKET + HO2 ', & - ' BCKAOH + OH --> BCKBCO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_365 = (/ & - ' BCKBOOH + OH --> BCKBCO + OH ', & - ' BCKBOOH --> BCKBO + OH ', & - ' BCKBO --> BCLKET + HO2 ', & - ' BCKBCO + OH --> C131CO3 ', & - ' H13C43CO3H --> MEKAOH + OH + HO2 ', & - ' H13C43CO3H + OH --> H13C43CO3 ', & - ' C5PAN12 --> H13C43CO3 + NO2 ', & - ' C5PAN12 + OH --> MEKAOH + CO + NO2 ', & - ' C42CO3H --> HOIPRCHO + OH + HO2 ', & - ' C42CO3H + OH --> C42CO3 ', & - ' C5PAN13 --> C42CO3 + NO2 ', & - ' C5PAN13 + OH --> HOIPRCHO + CO + NO2 ', & - ' HCOCH2CHO --> HCOCH2O2 + CO + HO2 ', & - ' HCOCH2CHO + NO3 --> HNO3 + HCOCH2CO3 ', & - ' HCOCH2CHO + OH --> HCOCH2CO3 ', & - ' C1H4C5CO3 + HO2 --> C1H4C5CO2H ', & - ' C1H4C5CO3 + HO2 --> C1H4C5CO3H ', & - ' C1H4C5CO3 + HO2 --> CHOC4OHO2 + OH ', & - ' C1H4C5CO3 + NO --> CHOC4OHO2 + NO2 ', & - ' C1H4C5CO3 + NO2 --> C1H4C5PAN ', & - ' C1H4C5CO3 + NO3 --> CHOC4OHO2 + NO2 ', & - ' C1H4C5CO3 --> C1H4C5CO2H ', & - ' C1H4C5CO3 --> CHOC4OHO2 ', & - ' CHOC4OHO2 + HO2 --> CHOC4OHOOH ', & - ' CHOC4OHO2 + NO --> CHOC4OHO + NO2 ', & - ' CHOC4OHO2 + NO3 --> CHOC4OHO + NO2 ', & - ' CHOC4OHO2 --> CHOC4OHO ', & - ' HOC4CHOO2 + HO2 --> HOC4CHOOOH ', & - ' HOC4CHOO2 + NO --> HOC4CHOO + NO2 ', & - ' HOC4CHOO2 + NO3 --> HOC4CHOO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_366 = (/ & - ' HOC4CHOO2 --> HOC4CHOO ', & - ' C6145COO2 + HO2 --> C6145COOOH ', & - ' C6145COO2 + NO --> C6145COO + NO2 ', & - ' C6145COO2 + NO3 --> C6145COO + NO2 ', & - ' C6145COO2 --> C6145COO ', & - ' HOC3H6CO2H + OH --> HO1C3O2 ', & - ' HOC3H6CO3H --> HO1C3O2 + OH ', & - ' HOC3H6CO3H + OH --> HOC3H6CO3 ', & - ' C4PAN1 --> HOC3H6CO3 + NO2 ', & - ' C4PAN1 + OH --> HOC2H4CHO + CO + NO2 ', & - ' C3DIOLOOH + OH --> C3DIOLO2 ', & - ' C3DIOLOOH --> C3DIOLO + OH ', & - ' C3DIOLO --> HCHO + HOCH2CHO + HO2 ', & - ' CH3COPAN + OH --> HCHO + 2 CO + NO2 ', & - ' CH3COPAN --> CH3COCO3 + NO2 ', & - ' COHM2CO3 + HO2 --> COHM2CO2H + O3 ', & - ' COHM2CO3 + HO2 --> COHM2CO3H ', & - ' COHM2CO3 + HO2 --> GLYOX + OH + HO2 ', & - ' COHM2CO3 + NO --> GLYOX + NO2 + HO2 ', & - ' COHM2CO3 + NO2 --> COHM2PAN ', & - ' COHM2CO3 + NO3 --> GLYOX + NO2 + HO2 ', & - ' COHM2CO3 --> COHM2CO2H ', & - ' COHM2CO3 --> GLYOX + HO2 ', & - ' CO2C4CO3 + HO2 --> CO2C4CO2H + O3 ', & - ' CO2C4CO3 + HO2 --> CO2C4CO3H ', & - ' CO2C4CO3 + HO2 --> MEKAO2 + OH ', & - ' CO2C4CO3 + NO --> MEKAO2 + NO2 ', & - ' CO2C4CO3 + NO2 --> C5PAN2 ', & - ' CO2C4CO3 + NO3 --> MEKAO2 + NO2 ', & - ' CO2C4CO3 --> CO2C4CO2H ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_367 = (/ & - ' CO2C4CO3 --> MEKAO2 ', & - ' HO2C4CO2H + OH --> HO2C4O2 ', & - ' HO2C4CO3H --> HO2C4O2 + OH ', & - ' HO2C4CO3H + OH --> HO2C4CO3 ', & - ' C5PAN1 --> HO2C4CO3 + NO2 ', & - ' C5PAN1 + OH --> HO2C3CHO + CO + NO2 ', & - ' HOBUT2CO3 + HO2 --> HOBUT2CO2H + O3 ', & - ' HOBUT2CO3 + HO2 --> HOBUT2CO3H ', & - ' HOBUT2CO3 + HO2 --> NBUTOLBO2 + OH ', & - ' HOBUT2CO3 + NO --> NBUTOLBO2 + NO2 ', & - ' HOBUT2CO3 + NO2 --> C5PAN5 ', & - ' HOBUT2CO3 + NO3 --> NBUTOLBO2 + NO2 ', & - ' HOBUT2CO3 --> HOBUT2CO2H ', & - ' HOBUT2CO3 --> NBUTOLBO2 ', & - ' HOIBUTCO3H --> SC4H9O2 + OH ', & - ' HOIBUTCO3H + OH --> HOIBUTCO3 ', & - ' C5PAN3 --> HOIBUTCO3 + NO2 ', & - ' C5PAN3 + OH --> HOIPRCHO + CO + NO2 ', & - ' C63OOH --> C63O + OH ', & - ' C63OOH + OH --> HO1CO24C6 + OH ', & - ' C63NO3 --> C63O + NO2 ', & - ' C63NO3 + OH --> HO1CO24C6 + NO2 ', & - ' C63O --> CO3C4CHO + HCHO + HO2 ', & - ' C63OH --> C63O + HO2 ', & - ' C63OH + OH --> HO1CO24C6 + HO2 ', & - ' CO3C5CO3 + HO2 --> CO3C5CO2H + O3 ', & - ' CO3C5CO3 + HO2 --> CO3C5CO3H ', & - ' CO3C5CO3 + HO2 --> DIEKBO2 + OH ', & - ' CO3C5CO3 + NO --> DIEKBO2 + NO2 ', & - ' CO3C5CO3 + NO2 --> C6PAN2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_368 = (/ & - ' CO3C5CO3 + NO3 --> DIEKBO2 + NO2 ', & - ' CO3C5CO3 --> CO3C5CO2H ', & - ' CO3C5CO3 --> DIEKBO2 ', & - ' HO3C5CO2H + OH --> HO3C5O2 ', & - ' HO3C5CO3H --> HO3C5O2 + OH ', & - ' HO3C5CO3H + OH --> HO3C5CO3 ', & - ' C6PAN1 --> HO3C5CO3 + NO2 ', & - ' C6PAN1 + OH --> HO3C4CHO + CO + NO2 ', & - ' C64OOH --> C64O + OH ', & - ' C64OOH + OH --> C64O2 ', & - ' C64OOH + OH --> C65OOH + HO2 ', & - ' C64NO3 --> C64O + NO2 ', & - ' C64NO3 + OH --> ACETOL + MGLYOX + NO2 ', & - ' CO2C54CO3 + HO2 --> CO2C54CO2H + O3 ', & - ' CO2C54CO3 + HO2 --> CO2C54CO3H ', & - ' CO2C54CO3 + HO2 --> CO2C54O2 + OH ', & - ' CO2C54CO3 + NO --> CO2C54O2 + NO2 ', & - ' CO2C54CO3 + NO2 --> C6PAN5 ', & - ' CO2C54CO3 + NO3 --> CO2C54O2 + NO2 ', & - ' CO2C54CO3 --> CO2C54CO2H ', & - ' CO2C54CO3 --> CO2C54O2 ', & - ' C65O2 + HO2 --> C65OOH ', & - ' C65O2 + NO --> C65O + NO2 ', & - ' C65O2 + NO3 --> C65O + NO2 ', & - ' C65O2 --> C65O ', & - ' C65O2 --> C65OH ', & - ' HO2C54OOH --> HO2C54O + OH ', & - ' HO2C54OOH + OH --> HO2CO4C5 + OH ', & - ' HO2C54NO3 --> HO2C54O + NO2 ', & - ' HO2C54NO3 + OH --> HO2CO4C5 + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_369 = (/ & - ' HO2C54O --> HO24C5O2 ', & - ' HO2C54O --> HO2CO4C5 + HO2 ', & - ' HO24C5 + OH --> HO2CO4C5 + HO2 ', & - ' HO2C54CO2H + OH --> HO2C54O2 ', & - ' HO2C54CO3H --> HO2C54O2 + OH ', & - ' HO2C54CO3H + OH --> HO2C54CO3 ', & - ' C6PAN4 --> HO2C54CO3 + NO2 ', & - ' C6PAN4 + OH --> HO2CO4C5 + CO + NO2 ', & - ' C66OOH --> C66O + OH ', & - ' C66OOH --> HOIPRCO3 + CH3CHO + OH ', & - ' C66OOH + OH --> C66CO + OH ', & - ' C66OOH + OH --> C66O2 ', & - ' C66O --> HOIPRCO3 + CH3CHO ', & - ' C66CO --> IPRCO3 + CH3CO3 ', & - ' C66CO + OH --> C23C54CHO + HO2 ', & - ' C66OH --> HOIPRCO3 + CH3CHO + HO2 ', & - ' C66OH + OH --> C66CO + HO2 ', & - ' CO3C54CO3H --> DIEKAO2 + OH ', & - ' CO3C54CO3H + OH --> CO3C54CO3 ', & - ' C6PAN6 --> CO3C54CO3 + NO2 ', & - ' C6PAN6 + OH --> CO23C5 + CO + NO2 ', & - ' H2M2C4CO2H + OH --> HO2M2C4O2 ', & - ' H2M2C4CO3H --> HO2M2C4O2 + OH ', & - ' H2M2C4CO3H + OH --> H2M2C4CO3 ', & - ' C6PAN8 --> H2M2C4CO3 + NO2 ', & - ' C6PAN8 + OH --> H2M2C3CHO + CO + NO2 ', & - ' C67OOH --> C67O + OH ', & - ' C67OOH + OH --> C67CHO + OH ', & - ' C67NO3 --> C67O + NO2 ', & - ' C67NO3 + OH --> C67CHO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_370 = (/ & - ' C67O --> CH3COCH3 + HCOCH2CHO + HO2 ', & - ' C67CHO --> C55O2 + CO + HO2 ', & - ' C67CHO + NO3 --> C67CO3 + HNO3 ', & - ' C67CHO + OH --> C67CO3 ', & - ' C67OH --> C67O + HO2 ', & - ' C67OH + OH --> C67CHO + HO2 ', & - ' C610OOH --> C610O + OH ', & - ' C610OOH + OH --> CO24M3C5OH + OH ', & - ' C610NO3 --> C610O + NO2 ', & - ' C610NO3 + OH --> CO24M3C5OH + NO2 ', & - ' C610O --> CO2C43CHO + HCHO + HO2 ', & - ' C610OH --> C610O + HO2 ', & - ' C610OH + OH --> CO24M3C5OH + HO2 ', & - ' CO24M3C5OH --> MEKBO2 + HOCH2CO3 ', & - ' CO24M3C5OH + OH --> CO24M3CHO + HO2 ', & - 'CO2M3C4CO3 + HO2 --> C51CO2H + O3 ', & - 'CO2M3C4CO3 + HO2 --> C51CO3H ', & - 'CO2M3C4CO3 + HO2 --> MIPKBO2 + OH ', & - ' CO2M3C4CO3 + NO --> MIPKBO2 + NO2 ', & - 'CO2M3C4CO3 + NO2 --> C6PAN12 ', & - 'CO2M3C4CO3 + NO3 --> MIPKBO2 + NO2 ', & - ' CO2M3C4CO3 --> C51CO2H ', & - ' CO2M3C4CO3 --> MIPKBO2 ', & - ' H2M3C4CO2H + OH --> H2M3C4O2 ', & - ' H2M3C4CO3H --> H2M3C4O2 + OH ', & - ' H2M3C4CO3H + OH --> H2M3C4CO3 ', & - ' C6PAN11 --> H2M3C4CO3 + NO2 ', & - ' C6PAN11 + OH --> HO2C43CHO + CO + NO2 ', & - ' C68OOH --> C68O + OH ', & - ' C68OOH + OH --> C68O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_371 = (/ & - ' C68NO3 --> C68O + NO2 ', & - ' C68NO3 + OH --> MEKAOH + GLYOX + NO2 ', & - ' C68O --> CH3CHO + CO2C3CHO + HO2 ', & - ' C68OH --> C68O + HO2 ', & - ' C68OH + OH --> C68O ', & - ' C69OOH --> C69O + OH ', & - ' C69OOH + OH --> H2M3CO4CHO + OH ', & - ' C69O --> HO2C43CO3 + HCHO ', & - ' C69OH --> C69O + HO2 ', & - ' C69OH + OH --> CO24M3C5OH + HO2 ', & - ' H2M3CO4CHO --> HO2C43CO3 + CO + HO2 ', & - ' H2M3CO4CHO + OH --> HO2C43CO3 ', & - ' C611OOH --> C611O + OH ', & - ' C611OOH --> BIACET + CH3CO3 + OH ', & - ' C611OOH + OH --> C611O2 ', & - ' C611O --> BIACET + CH3CO3 ', & - ' C611OH --> BIACET + CH3CO3 + HO2 ', & - ' C611OH + OH --> C611O ', & - ' HM33C3CO2H + OH --> HM33C3O2 ', & - ' HM33C3CO3H --> HM33C3O2 + OH ', & - ' HM33C3CO3H + OH --> HM33C3CO3 ', & - ' C6PAN13 --> HM33C3CO3 + NO2 ', & - ' C6PAN13 + OH --> MEKAOH + HCHO + CO + NO2 ', & - ' HM22C3OOH --> HM22C3O + OH ', & - ' HM22C3OOH + OH --> HM22C3O2 ', & - ' HM22C3OOH + OH --> HM22CHO + OH ', & - ' HM22C3NO3 --> HM22C3O + NO2 ', & - ' HM22C3NO3 + OH --> HM22CHO + NO2 ', & - ' HM22C3O --> HM22CHO + HO2 ', & - ' HM22C3OH + OH --> HM22CHO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_372 = (/ & - ' HM22CHO --> IBUTOLBO2 + CO + HO2 ', & - ' HM22CHO + NO3 --> HM22CO3 + HNO3 ', & - ' HM22CHO + OH --> HM22CO3 ', & - ' HM22C3CO2H + OH --> HM22C3O2 ', & - ' HM22C3CO3H --> HM22C3O2 + OH ', & - ' HM22C3CO3H + OH --> HM22C3CO3 ', & - ' C6PAN14 --> HM22C3CO3 + NO2 ', & - ' C6PAN14 + OH --> HM22CHO + CO + NO2 ', & - ' HM2C43CO2H + OH --> HM2C43O2 ', & - ' HM2C43CO3H --> HM2C43O2 + OH ', & - ' HM2C43CO3H + OH --> HM2C43CO3 ', & - ' C6PAN19 --> HM2C43CO3 + NO2 ', & - ' C6PAN19 + OH --> MIPKBOH + CO + NO2 ', & - ' C72O2 + HO2 --> C72OOH ', & - ' C72O2 + NO --> C72NO3 ', & - ' C72O2 + NO --> C72O + NO2 ', & - ' C72O2 + NO3 --> C72O + NO2 ', & - ' C72O2 --> C72O ', & - ' C72O2 --> C72OH ', & - ' C72O2 --> HO2CO35C7 ', & - ' CO25C73O2 + HO2 --> CO25C73OOH ', & - ' CO25C73O2 + NO --> CO25C73O + NO2 ', & - ' CO25C73O2 + NO3 --> CO25C73O + NO2 ', & - ' CO25C73O2 --> CO235C7 ', & - ' CO25C73O2 --> CO25C73O ', & - ' CO25C73O2 --> CO25C73OH ', & - ' CO25C74O2 + HO2 --> CO25C74OOH ', & - ' CO25C74O2 + NO --> CO25C74O + NO2 ', & - ' CO25C74O2 + NO3 --> CO25C74O + NO2 ', & - ' CO25C74O2 --> CO245C7 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_373 = (/ & - ' CO25C74O2 --> CO25C74O ', & - ' CO25C74O2 --> CO25C74OH ', & - ' C71OOH --> C71O + OH ', & - ' C71OOH --> HO3C4CO3 + CH3CHO + OH ', & - ' C71OOH + OH --> C71O2 ', & - ' C71O --> HO3C4CO3 + CH3CHO ', & - ' C76OOH --> C76O + OH ', & - ' C76OOH + OH --> C76O2 ', & - ' C76O --> H3M2C4CO3 + HCHO ', & - ' C77OOH --> C77O + OH ', & - ' C77OOH + OH --> C77CO + OH ', & - ' C77NO3 --> C77O + NO2 ', & - ' C77NO3 + OH --> C77CO + NO2 ', & - ' C77O --> CH3COCH3 + CO2C3CHO + HO2 ', & - ' C77CO --> CH3COCH2O2 + IPRHOCO3 ', & - ' C77CO + OH --> C79O2 ', & - ' C77OH --> C77O + HO2 ', & - ' C77OH + OH --> C77CO + HO2 ', & - ' C78OOH --> C78O + OH ', & - ' C78OOH --> H2M2C3CHO + CH3CO3 + OH ', & - ' C78OOH + OH --> C78CO + OH ', & - ' C78OOH + OH --> C78O2 ', & - ' C78O --> TBUTOLO2 + MGLYOX ', & - ' C78CO --> H2M2C3CO3 + CH3CO3 ', & - ' C78CO + OH --> C79O2 ', & - ' C78OH --> H2M2C3CHO + CH3CO3 + HO2 ', & - ' C78OH + OH --> C78CO + HO2 ', & - ' C712O2 + HO2 --> C712OOH ', & - ' C712O2 + NO --> C712NO3 ', & - ' C712O2 + NO --> C712O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_374 = (/ & - ' C712O2 + NO3 --> C712O + NO2 ', & - ' C712O2 --> C712O ', & - ' C712O2 --> C712OH ', & - ' C713O2 + HO2 --> C713OOH ', & - ' C713O2 + NO --> C713O + NO2 ', & - ' C713O2 + NO3 --> C713O + NO2 ', & - ' C713O2 --> C713O ', & - ' C713O2 --> C713OH ', & - ' C714O2 + HO2 --> C714OOH ', & - ' C714O2 + NO --> C714O + NO2 ', & - ' C714O2 + NO3 --> C714O + NO2 ', & - ' C714O2 --> C714O ', & - ' C714O2 --> C714OH ', & - ' C714O2 --> M3CO245C6 ', & - ' C711OOH --> C711O + OH ', & - ' C711OOH + OH --> C711O2 ', & - ' C711O --> H3M3C4CO3 + HCHO ', & - ' H3M3C5OOH --> H3M3C5O + OH ', & - ' H3M3C5OOH + OH --> H3M3C4CHO + OH ', & - ' H3M3C5OOH + OH --> H3M3C5O2 ', & - ' H3M3C5NO3 --> H3M3C5O + NO2 ', & - ' H3M3C5NO3 + OH --> H3M3C4CHO + NO2 ', & - ' H3M3C5O --> H13M3C5O2 ', & - ' H13M3C5 + OH --> H3M3C4CHO + HO2 ', & - ' H3M3C4CHO --> PROL11MO2 + CO + HO2 ', & - ' H3M3C4CHO + NO3 --> H3M3C4CO3 + HNO3 ', & - ' H3M3C4CHO + OH --> H3M3C4CO3 ', & - ' H3M3C5CO2H + OH --> H3M3C5O2 ', & - ' H3M3C5CO3H --> H3M3C5O2 + OH ', & - ' H3M3C5CO3H + OH --> H3M3C5CO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_375 = (/ & - ' C7PAN1 --> H3M3C5CO3 + NO2 ', & - ' C7PAN1 + OH --> H3M3C4CHO + CO + NO2 ', & - ' C82OOH --> C82O + OH ', & - ' C82OOH + OH --> HO3CO46C8 + OH ', & - ' C82NO3 --> C82O + NO2 ', & - ' C82NO3 + OH --> HO3CO46C8 + NO2 ', & - ' C82O --> CO3C4CHO + C2H5CHO + HO2 ', & - ' HO34CO6C8 --> C82O + HO2 ', & - ' HO34CO6C8 + OH --> HO3CO46C8 + HO2 ', & - ' HO3CO46C8 --> CO3C4CO3 + C2H5CHO + HO2 ', & - ' HO3CO46C8 + OH --> CO346C8 + HO2 ', & - ' C84O2 + HO2 --> C84OOH ', & - ' C84O2 + NO --> C84O + NO2 ', & - ' C84O2 + NO3 --> C84O + NO2 ', & - ' C84O2 --> C84O ', & - ' C84O2 --> C84OH ', & - ' C84O2 --> CO346C8 ', & - ' C81OOH --> C81O + OH ', & - ' C81OOH + OH --> C81O2 ', & - ' C81O --> HO4C5CO3 + CH3CHO ', & - ' C93OOH --> C93O + OH ', & - ' C93OOH + OH --> C93CO + OH ', & - ' C93NO3 --> C93O + NO2 ', & - ' C93NO3 + OH --> C93CO + NO2 ', & - ' C93O --> CO3C4CHO + C3H7CHO + HO2 ', & - ' C93CO --> CO3C4CO3 + C3H7CHO + HO2 ', & - ' C93CO + OH --> CO356C9 + HO2 ', & - ' C93OH --> C93O + HO2 ', & - ' C93OH + OH --> C93CO + HO2 ', & - ' C94O2 + HO2 --> C94OOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_376 = (/ & - ' C94O2 + NO --> C94O + NO2 ', & - ' C94O2 + NO3 --> C94O + NO2 ', & - ' C94O2 --> C94O ', & - ' C94O2 --> C94OH ', & - ' C94O2 --> CO356C9 ', & - ' C92OOH --> C92O + OH ', & - ' C92OOH + OH --> C92O2 ', & - ' C92O --> HO5C6CO3 + CH3CHO ', & - ' HO6C7OOH --> HO6C7O + OH ', & - ' HO6C7OOH + OH --> HO6C7O2 ', & - ' HO6C7O --> C5H11CHO + HCHO + HO2 ', & - ' C103OOH --> C103O + OH ', & - ' C103OOH + OH --> C103CO + OH ', & - ' C103NO3 --> C103O + NO2 ', & - ' C103NO3 + OH --> C103CO + NO2 ', & - ' C103O --> CO3C4CHO + C4H9CHO + HO2 ', & - ' C103CO --> CO3C4CO3 + C4H9CHO + HO2 ', & - ' C103CO + OH --> CO356C10 + HO2 ', & - ' C103OH --> C103O + HO2 ', & - ' C103OH + OH --> C103CO + HO2 ', & - ' C104O2 + HO2 --> C104OOH ', & - ' C104O2 + NO --> C104O + NO2 ', & - ' C104O2 + NO3 --> C104O + NO2 ', & - ' C104O2 --> C104O ', & - ' C104O2 --> C104OH ', & - ' C104O2 --> CO356C10 ', & - ' C102OOH --> C102O + OH ', & - ' C102OOH + OH --> C102O2 ', & - ' C102O --> HO6C7CO3 + CH3CHO ', & - ' HO7C8OOH --> HO7C8O + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_377 = (/ & - ' HO7C8OOH + OH --> HO7C8O2 ', & - ' HO7C8O --> C6H13CHO + HCHO + HO2 ', & - ' C113OOH --> C113O + OH ', & - ' C113OOH + OH --> C113CO + OH ', & - ' C113NO3 --> C113O + NO2 ', & - ' C113NO3 + OH --> C113CO + NO2 ', & - ' C113O --> CO3C4CHO + C5H11CHO + HO2 ', & - ' C113CO --> CO3C4CO3 + C5H11CHO + HO2 ', & - ' C113CO + OH --> CO356C11 + HO2 ', & - ' C113OH --> C113O + HO2 ', & - ' C113OH + OH --> C113CO + HO2 ', & - ' C114O2 + HO2 --> C114OOH ', & - ' C114O2 + NO --> C114O + NO2 ', & - ' C114O2 + NO3 --> C114O + NO2 ', & - ' C114O2 --> C114O ', & - ' C114O2 --> C114OH ', & - ' C114O2 --> CO356C11 ', & - ' C112OOH --> C112O + OH ', & - ' C112OOH + OH --> C112O2 ', & - ' C112O --> HO7C8CO3 + CH3CHO ', & - ' HO8C9OOH --> HO8C9O + OH ', & - ' HO8C9OOH + OH --> HO8C9O2 ', & - ' HO8C9O --> C6H13CHO + CH3CHO + HO2 ', & - ' C123OOH --> C123O + OH ', & - ' C123OOH + OH --> C123CO + OH ', & - ' C123NO3 --> C123O + NO2 ', & - ' C123NO3 + OH --> C123CO + NO2 ', & - ' C123O --> C6H13CHO + CO3C4CHO + HO2 ', & - ' C123CO --> C6H13CHO + CO3C4CO3 + HO2 ', & - ' C123CO + OH --> CO356C12 + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_378 = (/ & - ' C123OH --> C123O + HO2 ', & - ' C123OH + OH --> C123CO + HO2 ', & - ' C6H13CO3 + HO2 --> C6H13CO2H + O3 ', & - ' C6H13CO3 + HO2 --> C6H13CO3H ', & - ' C6H13CO3 + HO2 --> HEXAO2 + OH ', & - ' C6H13CO3 + NO --> HEXAO2 + NO2 ', & - ' C6H13CO3 + NO2 --> PHPTN ', & - ' C6H13CO3 + NO3 --> HEXAO2 + NO2 ', & - ' C6H13CO3 --> C6H13CO2H ', & - ' C6H13CO3 --> HEXAO2 ', & - ' C124O2 + HO2 --> C124OOH ', & - ' C124O2 + NO --> C124O + NO2 ', & - ' C124O2 + NO3 --> C124O + NO2 ', & - ' C124O2 --> C124O ', & - ' C124O2 --> C124OH ', & - ' C124O2 --> CO356C12 ', & - ' C122OOH --> C122O + OH ', & - ' C122OOH + OH --> C122O2 ', & - ' C122O --> HO8C9CO3 + CH3CHO ', & - ' CO1H63OOH + OH --> C6COHOCHO + OH ', & - ' CO1H63OOH --> CO1H63O + OH ', & - ' CO1H63NO3 + OH --> C6COHOCHO + NO2 ', & - ' CO1H63NO3 --> CO1H63O + NO2 ', & - ' CO1H63O --> C6DIALOH + HO2 ', & - ' CO1H63OH + OH --> C6COHOCHO + HO2 ', & - ' C3NO3COOOH + OH --> C3NO3COO2 ', & - ' C3NO3COOOH --> C3NO3COO + OH ', & - ' C3NO3COO --> NO3CH2CO3 + HCHO ', & - ' CO14O3CHO + NO3 --> HNO3 + HCOCH2O2 + CO ', & - ' CO14O3CHO + OH --> HCOCH2O2 + CO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_379 = (/ & - ' CO14O3CHO --> HCOCH2O2 + CO + HO2 ', & - ' NBZFUONE + OH --> BZFUCO + NO2 ', & - ' CO14O3CO2H + OH --> HCOCH2O2 ', & - ' MALANHYO2 + HO2 --> MALANHYOOH ', & - ' MALANHYO2 + NO --> MALANHYO + NO2 ', & - ' MALANHYO2 + NO3 --> MALANHYO + NO2 ', & - ' MALANHYO2 --> MALANHY2OH ', & - ' MALANHYO2 --> MALANHYO ', & - ' MALANHYO2 --> MALNHYOHCO ', & - ' NDNPHENO2 + HO2 --> NDNPHENOOH ', & - ' NDNPHENO2 + NO --> NDNPHENO + NO2 ', & - ' NDNPHENO2 + NO3 --> NDNPHENO + NO2 ', & - ' NDNPHENO2 --> NDNPHENO ', & - ' DNPHENO2 + HO2 --> DNPHENOOH ', & - ' DNPHENO2 + NO --> DNPHENO + NO2 ', & - ' DNPHENO2 + NO3 --> DNPHENO + NO2 ', & - ' DNPHENO2 --> DNPHENO ', & - ' NPHEN1OOH + OH --> NPHEN1O2 ', & - ' NPHEN1OOH --> NPHEN1O + OH ', & - ' NNCATECOOH + OH --> NNCATECO2 ', & - ' NNCATECOOH --> NNCATECO + OH ', & - ' NNCATECO --> NC4DCO2H + HCOCO2H + NO2 ', & - ' NCATECOOH + OH --> NCATECO2 ', & - ' NCATECOOH --> NCATECO + OH ', & - ' NCATECO --> NC4DCO2H + HCOCO2H + HO2 ', & - ' NBZQOOH + OH --> NBZQO2 ', & - ' NBZQOOH --> NBZQO + OH ', & - ' NBZQO --> C6CO4DB + NO2 ', & - ' PBZQOOH + OH --> PBZQCO + OH ', & - ' PBZQOOH --> PBZQO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_380 = (/ & - ' PBZQO --> C5CO2OHCO3 ', & - ' PBZQCO + OH --> C5CO2OHCO3 ', & - ' PBZQOH + OH --> PBZQCO + HO2 ', & - ' NPTLQOOH + OH --> NPTLQO2 ', & - ' NPTLQOOH --> NPTLQO + OH ', & - ' NPTLQO --> C7CO4DB + NO2 ', & - ' PTLQOOH + OH --> PTLQCO + OH ', & - ' PTLQOOH --> PTLQO + OH ', & - ' PTLQO --> C6CO2OHCO3 ', & - ' PTLQCO + OH --> C6CO2OHCO3 ', & - ' PTLQOH + OH --> PTLQCO + HO2 ', & - ' NDNCRESO2 + HO2 --> NDNCRESOOH ', & - ' NDNCRESO2 + NO --> NDNCRESO + NO2 ', & - ' NDNCRESO2 + NO3 --> NDNCRESO + NO2 ', & - ' NDNCRESO2 --> NDNCRESO ', & - ' DNCRESO2 + HO2 --> DNCRESOOH ', & - ' DNCRESO2 + NO --> DNCRESO + NO2 ', & - ' DNCRESO2 + NO3 --> DNCRESO + NO2 ', & - ' DNCRESO2 --> DNCRESO ', & - ' NCRES1OOH + OH --> NCRES1O2 ', & - ' NCRES1OOH --> NCRES1O + OH ', & - ' MNNCATCOOH + OH --> MNNCATECO2 ', & - ' MNNCATCOOH --> MNNCATECO + OH ', & - ' MNNCATECO --> NC4MDCO2H + HCOCO2H + NO2 ', & - ' MNCATECOOH + OH --> MNCATECO2 ', & - ' MNCATECOOH --> MNCATECO + OH ', & - ' MNCATECO --> NC4MDCO2H + HCOCO2H + HO2 ', & - ' C54CO + NO3 --> HNO3 + CH3CO3 + 3 CO ', & - ' C54CO + OH --> CH3CO3 + 3 CO ', & - ' C54CO --> CH3CO3 + 3 CO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_381 = (/ & - ' ACCOMECHO + NO3 --> ACCOMECO3 + HNO3 ', & - ' ACCOMECHO + OH --> ACCOMECO3 ', & - ' ACCOMECHO --> MECOACETO2 + CO + HO2 ', & - ' MECOACEOOH + OH --> MECOACETO2 ', & - ' MECOACEOOH --> MECOACETO + OH ', & - ' MECOACETO --> HCHO + CH3CO3 ', & - ' C24O3CCO2H + OH --> MECOACETO2 ', & - ' C6OTRIKET + OH --> C6OTKETO2 ', & - ' C6OTRIKET --> CH3COCH2O2 + CH3CO3 ', & - ' C6O4KETO2 + HO2 --> C6O4KETOOH ', & - ' C6O4KETO2 + NO --> C6O4KETO + NO2 ', & - ' C6O4KETO2 + NO3 --> C6O4KETO + NO2 ', & - ' C6O4KETO2 --> C6O4KETO ', & - 'NDNOXYOLO2 + HO2 --> NDNOXYLOOH ', & - ' NDNOXYOLO2 + NO --> NDNOXYOLO + NO2 ', & - 'NDNOXYOLO2 + NO3 --> NDNOXYOLO + NO2 ', & - ' NDNOXYOLO2 --> NDNOXYOLO ', & - ' DNOXYOLO2 + HO2 --> DNOXYOLOOH ', & - ' DNOXYOLO2 + NO --> DNOXYOLO + NO2 ', & - ' DNOXYOLO2 + NO3 --> DNOXYOLO + NO2 ', & - ' DNOXYOLO2 --> DNOXYOLO ', & - ' NOXYOL1OOH + OH --> NOXYOL1O2 ', & - ' NOXYOL1OOH --> NOXYOL1O + OH ', & - ' NOXYQOOH + OH --> NOXYQO2 ', & - ' NOXYQOOH --> NOXYQO + OH ', & - ' NOXYQO --> C6CO4M2DB + NO2 ', & - ' OXYQOOH + OH --> OXYQCO + OH ', & - ' OXYQOOH --> OXYQO + OH ', & - ' OXYQO --> C5M2OHOCO3 ', & - ' OXYQCO + OH --> C5M2OHOCO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_382 = (/ & - ' OXYQOH + OH --> OXYQCO + HO2 ', & - ' OXNNCATOOH + OH --> OXNNCATCO2 ', & - ' OXNNCATOOH --> OXNNCATCO + OH ', & - ' OXNNCATCO --> NC4MDCO2H + CH3COCO2H + NO2 ', & - ' OXNCATCOOH + OH --> OXNCATECO2 ', & - ' OXNCATCOOH --> OXNCATECO + OH ', & - ' OXNCATECO --> NC4MDCO2H + CH3COCO2H + HO2 ', & - ' C6CO3MOH + OH --> C4COMOHCO3 ', & - ' C6CO3MOH --> CHOMOHCO3 + CH3CO3 ', & - ' C23O3MCHO + NO3 --> C23O3MCO3 + HNO3 ', & - ' C23O3MCHO + OH --> C23O3MCO3 ', & - ' C23O3MCHO --> C23O3MO2 + CO + HO2 ', & - 'ACCOCOMEO2 + HO2 --> ACCOCOMOOH ', & - ' ACCOCOMEO2 + NO --> ACCOCOMEO + NO2 ', & - 'ACCOCOMEO2 + NO3 --> ACCOCOMEO + NO2 ', & - ' ACCOCOMEO2 --> ACCOCOMEO ', & - ' C23O3CCHO + NO3 --> C23O3CCO3 + HNO3 ', & - ' C23O3CCHO + OH --> C23O3CCO3 ', & - ' C23O3CCHO --> MCOCOMOXO2 + CO + HO2 ', & - 'MMALANHYO2 + HO2 --> MMALNHYOOH ', & - ' MMALANHYO2 + NO --> MMALANHYO + NO2 ', & - 'MMALANHYO2 + NO3 --> MMALANHYO + NO2 ', & - ' MMALANHYO2 --> MMALANHYO ', & - ' MMALANHYO2 --> MMALNHY2OH ', & - 'NDNMXYOLO2 + HO2 --> NDNMXYLOOH ', & - ' NDNMXYOLO2 + NO --> NDNMXYOLO + NO2 ', & - 'NDNMXYOLO2 + NO3 --> NDNMXYOLO + NO2 ', & - ' NDNMXYOLO2 --> NDNMXYOLO ', & - ' DNMXYOLO2 + HO2 --> DNMXYOLOOH ', & - ' DNMXYOLO2 + NO --> DNMXYOLO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_383 = (/ & - ' DNMXYOLO2 + NO3 --> DNMXYOLO + NO2 ', & - ' DNMXYOLO2 --> DNMXYOLO ', & - ' NMXYOL1OOH + OH --> NMXYOL1O2 ', & - ' NMXYOL1OOH --> NMXYOL1O + OH ', & - ' NMXYQOOH + OH --> NMXYQO2 ', & - ' NMXYQOOH --> NMXYQO + OH ', & - ' NMXYQO --> C8CO4DB + NO2 ', & - ' MXYQOOH + OH --> MXYQO2 ', & - ' MXYQOOH --> MXYQO + OH ', & - ' MXYQO --> C7CO2OHCO3 ', & - ' MXYQOH + OH --> C7CO2OHCO3 ', & - ' MXNNCATOOH + OH --> MXNNCATCO2 ', & - ' MXNNCATOOH --> MXNNCATCO + OH ', & - ' MXNNCATCO --> NC4MDCO2H + CH3COCO2H + NO2 ', & - ' MXNCATCOOH + OH --> MXNCATECO2 ', & - ' MXNCATCOOH --> MXNCATECO + OH ', & - ' MXNCATECO --> NC4MDCO2H + CH3COCO2H + HO2 ', & - 'TL4OHNO2O2 + HO2 --> TL4ONO2OOH ', & - ' TL4OHNO2O2 + NO --> TL4OHNO2O + NO2 ', & - 'TL4OHNO2O2 + NO3 --> TL4OHNO2O + NO2 ', & - ' TL4OHNO2O2 --> TL4OHNO2O ', & - ' C62O --> MGLYOX + CH3CO3 + CO ', & - 'NDNPXYOLO2 + HO2 --> NDNPXYLOOH ', & - ' NDNPXYOLO2 + NO --> NDNPXYOLO + NO2 ', & - 'NDNPXYOLO2 + NO3 --> NDNPXYOLO + NO2 ', & - ' NDNPXYOLO2 --> NDNPXYOLO ', & - ' DNPXYOLO2 + HO2 --> DNPXYOLOOH ', & - ' DNPXYOLO2 + NO --> DNPXYOLO + NO2 ', & - ' DNPXYOLO2 + NO3 --> DNPXYOLO + NO2 ', & - ' DNPXYOLO2 --> DNPXYOLO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_384 = (/ & - ' NPXYOL1OOH + OH --> NPXYOL1O2 ', & - ' NPXYOL1OOH --> NPXYOL1O + OH ', & - ' NPXYQOOH + OH --> NPXYQO2 ', & - ' NPXYQOOH --> NPXYQO + OH ', & - ' NPXYQO --> CO4DBC8 + NO2 ', & - ' PXYQOOH + OH --> PXYQO2 ', & - ' PXYQOOH --> PXYQO + OH ', & - ' PXYQO --> C6MOHCOCO3 ', & - ' PXYQOH + OH --> C6MOHCOCO3 ', & - ' PXNNCATOOH + OH --> PXNNCATCO2 ', & - ' PXNNCATOOH --> PXNNCATCO + OH ', & - ' PXNNCATCO --> NC4MDCO2H + CH3COCO2H + NO2 ', & - ' PXNCATCOOH + OH --> PXNCATECO2 ', & - ' PXNCATCOOH --> PXNCATECO + OH ', & - ' PXNCATECO --> NC4MDCO2H + CH3COCO2H + HO2 ', & - 'NDNEBNZLO2 + HO2 --> NDNEBZLOOH ', & - ' NDNEBNZLO2 + NO --> NDNEBNZLO + NO2 ', & - 'NDNEBNZLO2 + NO3 --> NDNEBNZLO + NO2 ', & - ' NDNEBNZLO2 --> NDNEBNZLO ', & - ' DNEBNZLO2 + HO2 --> DNEBNZLOOH ', & - ' DNEBNZLO2 + NO --> DNEBNZLO + NO2 ', & - ' DNEBNZLO2 + NO3 --> DNEBNZLO + NO2 ', & - ' DNEBNZLO2 --> DNEBNZLO ', & - ' NEBNZ1OOH + OH --> NEBNZ1O2 ', & - ' NEBNZ1OOH --> NEBNZ1O + OH ', & - ' NPEBQOOH + OH --> NPEBQO2 ', & - ' NPEBQOOH --> NPEBQO + OH ', & - ' NPEBQO --> C6ETCO4DB + NO2 ', & - ' PEBQOOH + OH --> PEBQCO + OH ', & - ' PEBQOOH --> PEBQO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_385 = (/ & - ' PEBQO --> C7OHCO2CO3 ', & - ' PEBQCO + OH --> C7OHCO2CO3 ', & - ' PEBQOH + OH --> PEBQCO + HO2 ', & - ' ENNCATCOOH + OH --> ENNCATECO2 ', & - ' ENNCATCOOH --> ENNCATECO + OH ', & - ' ENNCATECO --> NC4EDCO2H + HCOCO2H + NO2 ', & - ' ENCATECOOH + OH --> ENCATECO2 ', & - ' ENCATECOOH --> ENCATECO + OH ', & - ' ENCATECO --> NC4EDCO2H + HCOCO2H + HO2 ', & - ' ECO4 + OH --> ECO3CO3 ', & - ' ECO4 --> C2H5CO3 + 3 CO + HO2 ', & - ' ECO4 --> HCOCO + C2H5CO3 + CO ', & - ' C14O3ECHO + NO3 --> BUTALAO2 + HNO3 + CO ', & - ' C14O3ECHO + OH --> BUTALAO2 + CO ', & - ' C14O3ECHO --> BUTALAO2 + CO + HO2 ', & - ' NEBFUONE + OH --> EBFUCO + NO2 ', & - ' CO3H4CO3H + OH --> CO3H4CO3 ', & - ' CO3H4CO3H --> HCOCO3H + C2H5CO3 + HO2 ', & - ' CO3H4CO3H --> EGLYOX + OH + HO2 ', & - ' CO3H4PAN + OH --> EGLYOX + CO + NO2 ', & - ' CO3H4PAN --> CO3H4CO3 + NO2 ', & - ' PHCOCOCOOH + OH --> PHCOCOCO2 ', & - ' PHCOCOCOOH --> PHCOCOCO + OH ', & - ' PHCOCOCO --> C6H5CO3 + HCHO + CO ', & - 'NDNPBNZLO2 + HO2 --> NDNPBZLOOH ', & - ' NDNPBNZLO2 + NO --> NDNPBNZLO + NO2 ', & - 'NDNPBNZLO2 + NO3 --> NDNPBNZLO + NO2 ', & - ' NDNPBNZLO2 --> NDNPBNZLO ', & - ' DNPBNZLO2 + HO2 --> DNPBNZLOOH ', & - ' DNPBNZLO2 + NO --> DNPBNZLO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_386 = (/ & - ' DNPBNZLO2 + NO3 --> DNPBNZLO + NO2 ', & - ' DNPBNZLO2 --> DNPBNZLO ', & - ' NPBNZ1OOH + OH --> NPBNZ1O2 ', & - ' NPBNZ1OOH --> NPBNZ1O + OH ', & - ' NPPRBQOOH + OH --> NPPRBQO2 ', & - ' NPPRBQOOH --> NPPRBQO + OH ', & - ' NPPRBQO --> C6PRCO4DB + NO2 ', & - ' PPRBQOOH + OH --> PPRBQCO + OH ', & - ' PPRBQOOH --> PPRBQO + OH ', & - ' PPRBQO --> C8OHCO2CO3 ', & - ' PPRBQCO + OH --> C8OHCO2CO3 ', & - ' PPRBQOH + OH --> PPRBQCO + HO2 ', & - ' PNNCATCOOH + OH --> PNNCATECO2 ', & - ' PNNCATCOOH --> PNNCATECO + OH ', & - ' PNNCATECO --> NC4PDCO2H + HCOCO2H + NO2 ', & - ' PNCATECOOH + OH --> PNCATECO2 ', & - ' PNCATECOOH --> PNCATECO + OH ', & - ' PNCATECO --> NC4PDCO2H + HCOCO2H + HO2 ', & - ' C61CO3 + HO2 --> C61CO3H ', & - ' C61CO3 + HO2 --> CO45C5CHO + OH + HO2 ', & - ' C61CO3 + NO --> CO45C5CHO + NO2 + HO2 ', & - ' C61CO3 + NO2 --> C61CPAN ', & - ' C61CO3 + NO3 --> CO45C5CHO + NO2 + HO2 ', & - ' C61CO3 --> CO45C5CHO + HO2 ', & - ' CO45C5CHO + NO3 --> C3H7CO3 + HNO3 + 2 CO ', & - ' CO45C5CHO + OH --> C3H7CO3 + 2 CO ', & - ' CO45C5CHO --> C3H7CO3 + 2 CO + HO2 ', & - ' C14O3PCHO + NO3 --> C4CHOAO2 + HNO3 + CO ', & - ' C14O3PCHO + OH --> C4CHOAO2 + CO ', & - ' C14O3PCHO --> C4CHOAO2 + CO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_387 = (/ & - ' NPBFUONE + OH --> PBFUCO + NO2 ', & - ' C5O5OHCO3H + OH --> C5O45OHCO3 ', & - ' C5O5OHCO3H --> HCOCO3H + C3H7CO3 + HO2 ', & - ' C5O5OHCO3H --> PGLYOX + CO + HO2 ', & - ' C5O45OHPAN + OH --> PGLYOX + CO + NO2 ', & - ' C5O45OHPAN --> C5O45OHCO3 + NO2 ', & - 'NDNIPBZLO2 + HO2 --> NDNIPBLOOH ', & - ' NDNIPBZLO2 + NO --> NDNIPBZLO + NO2 ', & - 'NDNIPBZLO2 + NO3 --> NDNIPBZLO + NO2 ', & - ' NDNIPBZLO2 --> NDNIPBZLO ', & - 'DNIPBNZLO2 + HO2 --> DNIPBZLOOH ', & - ' DNIPBNZLO2 + NO --> DNIPBNZLO + NO2 ', & - 'DNIPBNZLO2 + NO3 --> DNIPBNZLO + NO2 ', & - ' DNIPBNZLO2 --> DNIPBNZLO ', & - ' NIPBNZ1OOH + OH --> NIPBNZ1O2 ', & - ' NIPBNZ1OOH --> NIPBNZ1O + OH ', & - ' NIPRBQOOH + OH --> NIPRBQO2 ', & - ' NIPRBQOOH --> NIPRBQO + OH ', & - ' NIPRBQO --> C6IPRCO4DB + NO2 ', & - ' IPRBQOOH + OH --> IPRBQCO + OH ', & - ' IPRBQOOH --> IPRBQO + OH ', & - ' IPRBQO --> C8OHCO2CO3 ', & - ' IPRBQCO + OH --> C8CO2OHCO3 ', & - ' IPRBQOH + OH --> IPRBQCO + HO2 ', & - ' IPNNCATOOH + OH --> IPNNCATCO2 ', & - ' IPNNCATOOH --> IPNNCATCO + OH ', & - ' IPNNCATCO --> NC4IPDCO2H + HCOCO2H + NO2 ', & - ' IPNCATCOOH + OH --> IPNCATECO2 ', & - ' IPNCATCOOH --> IPNCATECO + OH ', & - ' IPNCATECO --> NC4IPDCO2H + HCOCO2H + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_388 = (/ & - ' C62CO3 + HO2 --> C45IC5CHO + OH + HO2 ', & - ' C62CO3 + HO2 --> C62CO3H ', & - ' C62CO3 + NO --> C45IC5CHO + NO2 + HO2 ', & - ' C62CO3 + NO2 --> C62CPAN ', & - ' C62CO3 + NO3 --> C45IC5CHO + NO2 + HO2 ', & - ' C62CO3 --> C45IC5CHO + HO2 ', & - ' C45IC5CHO + NO3 --> IPRCO3 + HNO3 + 2 CO ', & - ' C45IC5CHO + OH --> IPRCO3 + 2 CO ', & - ' C45IC5CHO --> IPRCO3 + 2 CO + HO2 ', & - 'C14O3IPCHO + NO3 --> IC4CHOAO2 + HNO3 + CO ', & - ' C14O3IPCHO + OH --> IC4CHOAO2 + CO ', & - ' C14O3IPCHO --> IC4CHOAO2 + CO + HO2 ', & - ' NIPBFUONE + OH --> IPBFUCO + NO2 ', & - ' C4MOHOCO3H + OH --> C4MOHOCO3 ', & - ' C4MOHOCO3H --> HCOCO3H + C3H7CO3 + HO2 ', & - ' C4MOHOCO3H --> IPRGLYOX + OH + CO + HO2 ', & - ' C4MOHOPAN + OH --> IPRGLYOX + CO + NO2 ', & - ' C4MOHOPAN --> C4MOHOCO3 + NO2 ', & - ' DMMALANHY + NO3 --> NDMMALYO2 ', & - ' DMMALANHY + OH --> DMMALYO2 ', & - 'NDNT123LO2 + HO2 --> NDNT123OOH ', & - ' NDNT123LO2 + NO --> NDNT123LO + NO2 ', & - 'NDNT123LO2 + NO3 --> NDNT123LO + NO2 ', & - ' NDNT123LO2 --> NDNT123LO ', & - ' DNT123LO2 + HO2 --> DNT123LOOH ', & - ' DNT123LO2 + NO --> DNT123LO + NO2 ', & - ' DNT123LO2 + NO3 --> DNT123LO + NO2 ', & - ' DNT123LO2 --> DNT123LO ', & - ' NT123L1OOH + OH --> NT123L1O2 ', & - ' NT123L1OOH --> NT123L1O + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_389 = (/ & - ' T123NNCOOH + OH --> T123NNCTO2 ', & - ' T123NNCOOH --> T123NNCTO + OH ', & - ' T123NNCTO --> NC5MDCO2H + CH3COCO2H + NO2 ', & - ' T123NCTOOH + OH --> T123NCATO2 ', & - ' T123NCTOOH --> T123NCATO + OH ', & - ' T123NCATO --> NC5MDCO2H + CH3COCO2H + HO2 ', & - ' MC6OTRIKET + OH --> MC6OTKETO2 ', & - ' MC6OTRIKET --> MEKBO2 + CH3CO3 ', & - 'TM124NO2O2 + HO2 --> TM124NOOH ', & - ' TM124NO2O2 + NO --> TM124NO2O + NO2 ', & - 'TM124NO2O2 + NO3 --> TM124NO2O + NO2 ', & - ' TM124NO2O2 --> TM124NO2O ', & - 'NDNT124LO2 + HO2 --> NDNT124OOH ', & - ' NDNT124LO2 + NO --> NDNT124LO + NO2 ', & - 'NDNT124LO2 + NO3 --> NDNT124LO + NO2 ', & - ' NDNT124LO2 --> NDNT124LO ', & - ' DNT124LO2 + HO2 --> DNT124LOOH ', & - ' DNT124LO2 + NO --> DNT124LO + NO2 ', & - ' DNT124LO2 + NO3 --> DNT124LO + NO2 ', & - ' DNT124LO2 --> DNT124LO ', & - ' NT124L1OOH + OH --> NT124L1O2 ', & - ' NT124L1OOH --> NT124L1O + OH ', & - ' NTM124QOOH + OH --> NTM124QO2 ', & - ' NTM124QOOH --> NTM124QO + OH ', & - ' NTM124QO --> CO4DBC9 + NO2 ', & - ' TM124QOOH + OH --> TM124QO2 ', & - ' TM124QOOH --> TM124QO + OH ', & - ' TM124QO --> C7MOHCOCO3 ', & - ' TM124QOH + OH --> C7MOHCOCO3 ', & - ' T124NNCOOH + OH --> T124NNCTO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_390 = (/ & - ' T124NNCOOH --> T124NNCTO + OH ', & - ' T124NNCTO --> NC5MDCO2H + CH3COCO2H + NO2 ', & - ' T124NCTOOH + OH --> T124NCATO2 ', & - ' T124NCTOOH --> T124NCATO + OH ', & - ' T124NCATO --> NC5MDCO2H + CH3COCO2H + HO2 ', & - 'MXYOHNO2O2 + HO2 --> MXOHNO2OOH ', & - ' MXYOHNO2O2 + NO --> MXYOHNO2O + NO2 ', & - 'MXYOHNO2O2 + NO3 --> MXYOHNO2O + NO2 ', & - ' MXYOHNO2O2 --> MXYOHNO2O ', & - ' C5CO234OOH + OH --> C5CO234O2 ', & - ' C5CO234OOH --> C5CO234O + OH ', & - ' C5CO234O --> HCHO + CH3CO3 + 2 CO ', & - 'NDNOETOLO2 + HO2 --> NDNOETLOOH ', & - ' NDNOETOLO2 + NO --> NDNOETOLO + NO2 ', & - 'NDNOETOLO2 + NO3 --> NDNOETOLO + NO2 ', & - ' NDNOETOLO2 --> NDNOETOLO ', & - ' DNOETOLO2 + HO2 --> DNOETOLOOH ', & - ' DNOETOLO2 + NO --> DNOETOLO + NO2 ', & - ' DNOETOLO2 + NO3 --> DNOETOLO + NO2 ', & - ' DNOETOLO2 --> DNOETOLO ', & - ' NOETOL1OOH + OH --> NOETOL1O2 ', & - ' NOETOL1OOH --> NOETOL1O + OH ', & - ' NOETLQOOH + OH --> NOETLQO2 ', & - ' NOETLQOOH --> NOETLQO + OH ', & - ' NOETLQO --> C6CO4MEDB + NO2 ', & - ' OETLQOOH + OH --> OETLQCO + OH ', & - ' OETLQOOH --> OETLQO + OH ', & - ' OETLQO --> C5MEJCO3 ', & - ' OETLQCO + OH --> C5MEJCO3 ', & - ' OETLQOH + OH --> OETLQCO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_391 = (/ & - ' OTNNCATOOH + OH --> OTNNCATCO2 ', & - ' OTNNCATOOH --> OTNNCATCO + OH ', & - ' OTNNCATCO --> ECOCO2H + NC4MDCO2H + NO2 ', & - ' OTNCATCOOH + OH --> OTNCATECO2 ', & - ' OTNCATCOOH --> OTNCATECO + OH ', & - ' OTNCATECO --> ECOCO2H + NC4MDCO2H + HO2 ', & - 'NDNMETOLO2 + HO2 --> NDNMETLOOH ', & - ' NDNMETOLO2 + NO --> NDNMETOLO + NO2 ', & - 'NDNMETOLO2 + NO3 --> NDNMETOLO + NO2 ', & - ' NDNMETOLO2 --> NDNMETOLO ', & - ' DNMETOLO2 + HO2 --> DNMETOLOOH ', & - ' DNMETOLO2 + NO --> DNMETOLO + NO2 ', & - ' DNMETOLO2 + NO3 --> DNMETOLO + NO2 ', & - ' DNMETOLO2 --> DNMETOLO ', & - ' NMETOL1OOH + OH --> NMETOL1O2 ', & - ' NMETOL1OOH --> NMETOL1O + OH ', & - ' NMETLQOOH + OH --> NMETLQO2 ', & - ' NMETLQOOH --> NMETLQO + OH ', & - ' NMETLQO --> C7CO4EDB + NO2 ', & - ' METLQOOH + OH --> METLQO2 ', & - ' METLQOOH --> METLQO + OH ', & - ' METLQO --> C6EO2OHCO3 ', & - ' METLQOH + OH --> C6EO2OHCO3 ', & - ' MTNNCATOOH + OH --> MTNNCATCO2 ', & - ' MTNNCATOOH --> MTNNCATCO + OH ', & - ' MTNNCATCO --> ECOCO2H + NC4MDCO2H + NO2 ', & - ' MTNCATCOOH + OH --> MTNCATECO2 ', & - ' MTNCATCOOH --> MTNCATECO + OH ', & - ' MTNCATECO --> ECOCO2H + NC4MDCO2H + HO2 ', & - 'NDNPETOLO2 + HO2 --> NDNPETLOOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_392 = (/ & - ' NDNPETOLO2 + NO --> NDNPETOLO + NO2 ', & - 'NDNPETOLO2 + NO3 --> NDNPETOLO + NO2 ', & - ' NDNPETOLO2 --> NDNPETOLO ', & - ' DNPETOLO2 + HO2 --> DNPETOLOOH ', & - ' DNPETOLO2 + NO --> DNPETOLO + NO2 ', & - ' DNPETOLO2 + NO3 --> DNPETOLO + NO2 ', & - ' DNPETOLO2 --> DNPETOLO ', & - ' NPETOL1OOH + OH --> NPETOL1O2 ', & - ' NPETOL1OOH --> NPETOL1O + OH ', & - ' NPETLQOOH + OH --> NPETLQO2 ', & - ' NPETLQOOH --> NPETLQO + OH ', & - ' NPETLQO --> C7ECO4DB + NO2 ', & - ' PETLQOOH + OH --> PETLQO2 ', & - ' PETLQOOH --> PETLQO + OH ', & - ' PETLQO --> C7MJPCO3 ', & - ' PETLQOH + OH --> C7MJPCO3 ', & - ' PTNNCATOOH + OH --> PTNNCATCO2 ', & - ' PTNNCATOOH --> PTNNCATCO + OH ', & - ' PTNNCATCO --> ECOCO2H + NC4MDCO2H + NO2 ', & - ' PTNCATCOOH + OH --> PTNCATECO2 ', & - ' PTNCATCOOH --> PTNCATECO + OH ', & - ' PTNCATECO --> ECOCO2H + NC4MDCO2H + HO2 ', & - ' C23O3ECHO + NO3 --> C23O3ECO3 + HNO3 ', & - ' C23O3ECHO + OH --> C23O3ECO3 ', & - ' C23O3ECHO --> C23O3EO2 + CO + HO2 ', & - ' CO356OCO2 + HO2 --> CO356OCOOH ', & - ' CO356OCO2 + NO --> CO356OCO + NO2 ', & - ' CO356OCO2 + NO3 --> CO356OCO + NO2 ', & - ' CO356OCO2 --> CO356OCO ', & - ' HOEMPHNO2 + OH --> EMPOHNO2O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_393 = (/ & - ' CO234C6OOH + OH --> CO234C65O2 ', & - ' CO234C6OOH --> CO234C65O + OH ', & - ' CO234C65O --> CH3CHO + CH3CO3 + 2 CO ', & - ' H13CO2CO3H --> HOCH2COCHO + OH + HO2 ', & - ' H13CO2CO3H + OH --> H13CO2CO3 ', & - ' C4PAN10 --> H13CO2CO3 + NO2 ', & - ' C4PAN10 + OH --> HOCH2COCHO + CO + NO2 ', & - ' INCNCO3 + HO2 --> INCNCO2H + O3 ', & - ' INCNCO3 + HO2 --> INCNCO3H ', & - ' INCNCO3 + HO2 --> MACRNB + OH + NO2 ', & - ' INCNCO3 + NO --> MACRNB + 2 NO2 ', & - ' INCNCO3 + NO2 --> INCNPAN ', & - ' INCNCO3 + NO3 --> MACRNB + 2 NO2 ', & - ' INCNCO3 --> INCNCO2H ', & - ' INCNCO3 --> MACRNB + NO2 ', & - ' CO2N3CO3H + OH --> CO2N3CO3 ', & - ' CO2N3CO3H --> MGLYOX + OH + NO2 ', & - ' CO2N3PAN + OH --> CO2N3CO3 ', & - ' CO2N3PAN --> CO2N3CO3 + NO2 ', & - ' IEACO3 + HO2 --> HMVKBO2 + OH ', & - ' IEACO3 + HO2 --> IEACO3H ', & - ' IEACO3 + NO --> HMVKBO2 + NO2 ', & - ' IEACO3 + NO2 --> IEAPAN ', & - ' IEACO3 + NO3 --> HMVKBO2 + NO2 ', & - ' IEACO3 --> HMVKBO2 ', & - ' IEC2OOH --> BIACETOH + OH + CO + HO2 ', & - ' IEC2OOH --> MGLYOX + HOCH2CO3 + OH ', & - ' IEC2OOH + OH --> BIACETOH + OH + CO ', & - ' C531O2 + HO2 --> C531OOH ', & - ' C531O2 + NO --> C531O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_394 = (/ & - ' C531O2 + NO3 --> C531O + NO2 ', & - ' C531O2 --> C531O ', & - ' M3FOO + CO --> C532CO ', & - ' M3FOO + NO --> C532CO + NO2 ', & - ' M3FOO + NO2 --> C532CO + NO3 ', & - ' M3FOO + SO2 --> SO3 + C532CO ', & - ' M3FOO --> C532CO + H2O2 ', & - ' CH3COCO3 + HO2 --> CH3CO3 + OH ', & - ' CH3COCO3 + HO2 --> CH3COCO3H ', & - ' CH3COCO3 + NO --> CH3CO3 + NO2 ', & - ' CH3COCO3 + NO2 --> CH3COPAN ', & - ' CH3COCO3 + NO3 --> CH3CO3 + NO2 ', & - ' CH3COCO3 --> CH3CO3 ', & - ' C534OOH + OH --> C534O2 ', & - ' C534OOH --> C534O + OH ', & - ' C534OOH --> CO2H3CHO + 2 OH ', & - ' C534O --> CH3COCO3H + GLYOX + HO2 ', & - ' C47CHO + OH --> C47CO3 ', & - ' C47CHO --> MGLYOX + GLYOX + NO2 + HO2 ', & - ' INB1HPCHO --> ACETOL + GLYOX + OH + NO2 ', & - ' INB1HPCHO + OH --> INB1HPCO3 ', & - ' INB1NACHO --> ACETOL + GLYOX + 2 NO2 ', & - ' INB1NACHO + OH --> INB1NACO3 ', & - ' INB1NBCHO --> MVKNO3 + CO + NO2 + HO2 ', & - ' INB1NBCHO + OH --> INB1NBCO3 ', & - ' INB1GLYOX + OH --> MACRNCO3 + CO ', & - ' INB1GLYOX --> MACRNCO3 + CO + HO2 ', & - ' IECCO3 + HO2 --> IECCO3H ', & - ' IECCO3 + HO2 --> MACRO2 + OH ', & - ' IECCO3 + NO --> MACRO2 + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_395 = (/ & - ' IECCO3 + NO2 --> IECPAN ', & - ' IECCO3 + NO3 --> MACRO2 + NO2 ', & - ' IECCO3 --> MACRO2 ', & - ' C535OOH + OH --> C535O2 ', & - ' C535OOH --> C3MDIALOOH + OH + HO2 ', & - ' C535OOH --> C535O + OH ', & - ' C535OOH --> CO2H3CO3H + OH + CO + HO2 ', & - ' C535O --> HCOCO3H + MGLYOX + HO2 ', & - ' HPC52CO3 + HO2 --> DHPMACR + OH + HO2 ', & - ' HPC52CO3 + HO2 --> HPC52CO3H ', & - ' HPC52CO3 + NO --> DHPMACR + NO2 + HO2 ', & - ' HPC52CO3 + NO2 --> HPC52PAN ', & - ' HPC52CO3 + NO3 --> DHPMACR + NO2 + HO2 ', & - ' HPC52CO3 --> DHPMACR + HO2 ', & - ' INDHCO3 + HO2 --> INDHCO3H ', & - ' INDHCO3 + HO2 --> MVKNO3 + OH + HO2 ', & - ' INDHCO3 + NO --> MVKNO3 + NO2 + HO2 ', & - ' INDHCO3 + NO2 --> INDHPAN ', & - ' INDHCO3 + NO3 --> MVKNO3 + NO2 + HO2 ', & - ' INDHCO3 --> MVKNO3 + HO2 ', & - 'C4M2ALOHNO3 + OH --> MMALNACO3 ', & - 'C4M2ALOHNO3 + OH --> MMALNBCO3 ', & - ' C4M2ALOHNO3 --> MGLYOX + GLYOX + NO2 + HO2 ', & - ' C57NO3CO3 + HO2 --> C57NO3CO2H + O3 ', & - ' C57NO3CO3 + HO2 --> C57NO3CO3H ', & - ' C57NO3CO3 + HO2 --> HO12CO3C4 + OH + NO2 ', & - ' C57NO3CO3 + NO --> HO12CO3C4 + 2 NO2 ', & - ' C57NO3CO3 + NO2 --> C57NO3PAN ', & - ' C57NO3CO3 + NO3 --> HO12CO3C4 + 2 NO2 ', & - ' C57NO3CO3 + NO3 --> MACRNO3 + NO2 + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_396 = (/ & - ' C57NO3CO3 --> C57NO3CO2H ', & - ' C57NO3CO3 --> HO12CO3C4 + NO2 ', & - ' INDHPCHO + OH --> INDHPCO3 ', & - ' INDHPCHO --> MGLYOX + HOCH2CHO + OH + NO2 ', & - ' INAHPCO3 + HO2 --> HMVKANO3 + 2 OH ', & - ' INAHPCO3 + HO2 --> INAHPCO2H + O3 ', & - ' INAHPCO3 + HO2 --> INAHPCO3H ', & - ' INAHPCO3 + NO --> HMVKANO3 + OH + NO2 ', & - ' INAHPCO3 + NO2 --> INAHPPAN ', & - ' INAHPCO3 + NO3 --> HMVKANO3 + OH + NO2 ', & - ' INAHPCO3 --> HMVKANO3 + OH ', & - ' INAHPCO3 --> INAHPCO2H ', & - ' INANCO3 + HO2 --> HMVKANO3 + OH + NO2 ', & - ' INANCO3 + HO2 --> INANCO2H + O3 ', & - ' INANCO3 + HO2 --> INANCO3H ', & - ' INANCO3 + NO --> HMVKANO3 + 2 NO2 ', & - ' INANCO3 + NO2 --> INANPAN ', & - ' INANCO3 + NO3 --> HMVKANO3 + 2 NO2 ', & - ' INANCO3 --> HMVKANO3 + NO2 ', & - ' INANCO3 --> INANCO2H ', & - ' INANCOCHO + OH --> INANCOCO3 ', & - ' INAHCO3 + HO2 --> HMVKANO3 + OH + HO2 ', & - ' INAHCO3 + HO2 --> INAHCO2H + O3 ', & - ' INAHCO3 + HO2 --> INAHCO3H ', & - ' INAHCO3 + NO --> HMVKANO3 + NO2 + HO2 ', & - ' INAHCO3 + NO2 --> INAHPAN ', & - ' INAHCO3 + NO3 --> HMVKANO3 + NO2 + HO2 ', & - ' INAHCO3 --> HMVKANO3 + HO2 ', & - ' INAHCO3 --> INAHCO2H ', & - ' C58NO3CO2H + OH --> MMALNACO2H + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_397 = (/ & - ' C58NO3CO3H --> MACRNO3 + OH + HO2 ', & - ' C58NO3CO3H + OH --> C58NO3CO3 ', & - ' C58NO3CO3H + OH --> MMALNACO3H + HO2 ', & - ' C58NO3PAN --> C58NO3CO3 + NO2 ', & - ' C58NO3PAN + OH --> MMALNAPAN + HO2 ', & - ' HIEPOXB + OH --> HIEB1O2 ', & - ' HIEPOXB + OH --> HIEB2O2 ', & - ' NC524O2 + HO2 --> NC524OOH ', & - ' NC524O2 + NO --> NC524NO3 ', & - ' NC524O2 + NO --> NC524O + NO2 ', & - ' NC524O2 + NO3 --> NC524O + NO2 ', & - ' NC524O2 --> NC524O ', & - ' NC524O2 --> NC524OH ', & - ' C525O2 + HO2 --> C525OOH ', & - ' C525O2 + NO --> C525O + NO2 ', & - ' C525O2 + NO3 --> C525O + NO2 ', & - ' C525O2 --> C525O ', & - ' HMACO3 + HO2 --> HMACO2H + O3 ', & - ' HMACO3 + HO2 --> HMACO3H ', & - ' HMACO3 + HO2 --> HCHO + HOCH2CO3 + OH ', & - ' HMACO3 + NO --> HCHO + HOCH2CO3 + NO2 ', & - ' HMACO3 + NO2 --> HMPAN ', & - ' HMACO3 + NO3 --> HCHO + HOCH2CO3 + NO2 ', & - ' HMACO3 --> HMACO2H ', & - ' HMACO3 --> HCHO + HOCH2CO3 ', & - ' HMGLYOOA --> HMGLYOO ', & - ' HMGLYOOA --> HOCH2CO3 + CO + HO2 ', & - ' HMACRO2 + HO2 --> HMACROOH ', & - ' HMACRO2 + NO --> HMACRO + NO2 ', & - ' HMACRO2 + NO3 --> HMACRO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_398 = (/ & - ' HMACRO2 --> H13CO2C3 + OH + CO ', & - ' HMACRO2 --> HMACRO ', & - ' HMACRO2 --> HMACROH ', & - ' ACETMECO3H + OH --> ACETMECO3 ', & - ' ACETMECO3H --> METHACETO2 + OH ', & - ' ACETMEPAN + OH --> METACETHO + CO + NO2 ', & - ' ACETMEPAN --> ACETMECO3 + NO2 ', & - ' METACETO2H + OH --> METACETHO + OH ', & - ' METACETO2H + OH --> METHACETO2 ', & - ' METACETO2H --> METHACETO + OH ', & - ' METACETNO3 + OH --> METACETHO + NO2 ', & - ' METACETNO3 --> METHACETO + NO2 ', & - ' METHACETO --> CH3O2 + HCHO ', & - ' METACETOH + OH --> METACETHO + HO2 ', & - ' HOACETEOOH + OH --> HOACETETO2 ', & - ' HOACETEOOH --> HOACETETO + OH ', & - ' HOACETETO --> CH3CHO + HCHO + HO2 ', & - ' MOXY2CHO + NO3 --> CHOOMCO3 + HNO3 ', & - ' MOXY2CHO + OH --> CHOOMCO3 ', & - ' MOXY2CHO --> CHOOCH2O2 + CO + HO2 ', & - ' CO23C4CO3 + HO2 --> BIACETO2 + OH ', & - ' CO23C4CO3 + HO2 --> CO23C4CO3H ', & - ' CO23C4CO3 + NO --> BIACETO2 + NO2 ', & - ' CO23C4CO3 + NO2 --> C5PAN9 ', & - ' CO23C4CO3 + NO3 --> BIACETO2 + NO2 ', & - ' CO23C4CO3 --> BIACETO2 ', & - ' C62OOH --> C62O + OH ', & - ' C62OOH --> MGLYOX + CH3CO3 + OH + CO ', & - ' C62OOH + OH --> C62O2 ', & - ' HO13C4OOH --> HO13C4O + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_399 = (/ & - ' HO13C4OOH + OH --> HO13C3CHO + OH ', & - ' HO13C4OOH + OH --> HO13C4O2 ', & - ' HO13C4NO3 + OH --> HO13C3CHO + NO2 ', & - ' HO13C4O --> HOC2H4CHO + HCHO + HO2 ', & - ' HO13C3CHO --> HOC2H4CHO + CO + 2 HO2 ', & - ' HO13C3CHO + NO3 --> HO13C3CO3 + HNO3 ', & - ' HO13C3CHO + OH --> HO13C3CO3 ', & - ' HO13C4OH + OH --> HO13C3CHO + HO2 ', & - ' C5CO34CO3 + HO2 --> C5CO23O2 + OH ', & - ' C5CO34CO3 + HO2 --> C6CO134OOH ', & - ' C5CO34CO3 + NO --> C5CO23O2 + NO2 ', & - ' C5CO34CO3 + NO2 --> C6CO134PAN ', & - ' C5CO34CO3 + NO3 --> C5CO23O2 + NO2 ', & - ' C5CO34CO3 --> C5CO23O2 ', & - ' HM22CO2H + OH --> IBUTOLBO2 ', & - ' HM22CO3H --> IBUTOLBO2 + OH ', & - ' HM22CO3H + OH --> HM22CO3 ', & - ' C5PAN15 --> HM22CO3 + NO2 ', & - ' C5PAN15 + OH --> ACETOL + HCHO + CO + NO2 ', & - ' C6COALCO2H + OH --> C5COCHOO2 ', & - ' C6COALCO2H --> C5COCHOO2 + HO2 ', & - ' C6COALCO3H + OH --> C6COCHOCO3 ', & - ' C6COALCO3H --> C5COCHOO2 + OH ', & - ' C6COCHOPAN + OH --> CO13C4CHO + CO + NO2 ', & - ' C6COCHOPAN --> C6COCHOCO3 + NO2 ', & - ' C5COCHOOOH + OH --> C5COCHOO2 ', & - ' C5COCHOOOH --> C5COCHOO + OH ', & - ' C5COCHOO --> CHOC2CO3 + HCHO ', & - ' CHOC2H4OOH + OH --> CHOC2H4O2 ', & - ' CHOC2H4OOH --> CHOC2H4O + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_400 = (/ & - ' CHOC2H4O --> HCOCH2CHO + HO2 ', & - ' HCOCH2CO2H --> HCOCH2O2 + HO2 ', & - ' HCOCH2CO2H + OH --> HCOCH2O2 ', & - ' HCOCH2CO3H --> HCOCH2O2 + OH ', & - ' HCOCH2CO3H + OH --> HCOCH2CO3 ', & - ' C3PAN2 --> HCOCH2CO3 + NO2 ', & - ' C3PAN2 + OH --> GLYOX + CO + NO2 ', & - ' C6135COOOH + OH --> CY6TRIONO2 ', & - ' C6135COOOH --> C6135COO + OH ', & - ' C6135COO --> CHOC3COCO3 + HCHO ', & - ' C6CYTONOOH + OH --> C6CYTONO2 ', & - ' C6CYTONOOH --> C6CYTONO + OH ', & - ' C6CYTONO --> C5124COCO3 ', & - 'CO235C6CHO + NO3 --> CO235C6CO3 + HNO3 ', & - ' CO235C6CHO + OH --> CO235C6CO3 ', & - ' CO235C6CHO --> CHOC3COCO3 + CH3CO3 ', & - ' C106O2 + HO2 --> C106OOH ', & - ' C106O2 + NO --> C106NO3 ', & - ' C106O2 + NO --> C106O + NO2 ', & - ' C106O2 + NO3 --> C106O + NO2 ', & - ' C106O2 --> C106O ', & - ' C106O2 --> C106OH ', & - ' NC102OOH + OH --> NC102O2 ', & - ' NC102OOH --> NC102O + OH ', & - ' NC102O --> NC71O2 + CH3COCH3 ', & - ' C717O2 + HO2 --> C717OOH ', & - ' C717O2 + NO --> C717NO3 ', & - ' C717O2 + NO --> C717O + NO2 ', & - ' C717O2 + NO3 --> C717O + NO2 ', & - ' C717O2 --> C717O ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_401 = (/ & - ' C717O2 --> C717OH ', & - ' C717O2 --> CO235C6CHO ', & - ' C811CO3 + HO2 --> C811CO3H ', & - ' C811CO3 + HO2 --> C811O2 + OH ', & - ' C811CO3 + HO2 --> PINIC + O3 ', & - ' C811CO3 + NO --> C811O2 + NO2 ', & - ' C811CO3 + NO2 --> C811PAN ', & - ' C811CO3 + NO3 --> C811O2 + NO2 ', & - ' C811CO3 --> C811O2 ', & - ' C811CO3 --> PINIC ', & - ' CO13C4CHO + NO3 --> CHOC3COCO3 + HNO3 ', & - ' CO13C4CHO + OH --> CHOC3COCO3 ', & - ' CO13C4CHO --> CHOC3COO2 + CO + HO2 ', & - ' C921O2 + HO2 --> C921OOH ', & - ' C921O2 + NO --> C921O + NO2 ', & - ' C921O2 + NO3 --> C921O + NO2 ', & - ' C921O2 --> C921O ', & - ' C98O2 + HO2 --> C98OOH ', & - ' C98O2 + NO --> C98NO3 ', & - ' C98O2 + NO --> C98O + NO2 ', & - ' C98O2 + NO3 --> C98O + NO2 ', & - ' C98O2 --> C98O ', & - ' C98O2 --> C98OH ', & - ' C86O2 + HO2 --> C86OOH ', & - ' C86O2 + NO --> C86O + NO2 ', & - ' C86O2 + NO3 --> C86O + NO2 ', & - ' C86O2 --> C86O ', & - ' C716OH + NO3 --> H3C25C6CO3 + HNO3 ', & - ' C716OH + OH --> CO235C6CHO + HO2 ', & - ' C716OH + OH --> H3C25C6CO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_402 = (/ & - ' C716OH --> H3C25C6O2 + CO + HO2 ', & - ' C919O2 + HO2 --> C919OOH ', & - ' C919O2 + NO --> C919NO3 ', & - ' C919O2 + NO --> C919O + NO2 ', & - ' C919O2 + NO3 --> C919O + NO2 ', & - ' C919O2 --> C919O ', & - ' C919O2 --> C919OH ', & - ' C914O2 + HO2 --> C914OOH ', & - ' C914O2 + NO --> C914O + NO2 ', & - ' C914O2 + NO3 --> C914O + NO2 ', & - ' C914O2 --> C914CO ', & - ' C914O2 --> C914O ', & - ' C914O2 --> C914OH ', & - ' C916O2 + HO2 --> C916OOH ', & - ' C916O2 + NO --> C916NO3 ', & - ' C916O2 + NO --> C916O + NO2 ', & - ' C916O2 + NO3 --> C916O + NO2 ', & - ' C916O2 --> C916O ', & - ' C916O2 --> C916OH ', & - ' C88CO3 + HO2 --> C88CO2H + O3 ', & - ' C88CO3 + HO2 --> C88CO3H ', & - ' C88CO3 + HO2 --> C88O2 + OH ', & - ' C88CO3 + NO --> C88O2 + NO2 ', & - ' C88CO3 + NO2 --> C88PAN ', & - ' C88CO3 + NO3 --> C88O2 + NO2 ', & - ' C88CO3 --> C88CO2H ', & - ' C88CO3 --> C88O2 ', & - ' C88O2 + HO2 --> C88OOH ', & - ' C88O2 + NO --> C88O + NO2 ', & - ' C88O2 + NO3 --> C88O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_403 = (/ & - ' C88O2 --> C88CO ', & - ' C88O2 --> C88O ', & - ' C88O2 --> C88OH ', & - ' C512CO2H + OH --> C512O2 ', & - ' C512CO2H --> C512O2 + HO2 ', & - ' C512CO3H + OH --> C512CO3 ', & - ' C512CO3H --> C512O2 + OH ', & - ' C512O2 + HO2 --> C512OOH ', & - ' C512O2 + NO --> C512NO3 ', & - ' C512O2 + NO --> C512O + NO2 ', & - ' C512O2 + NO3 --> C512O + NO2 ', & - ' C512O2 --> C512O ', & - ' C512O2 --> C512OH ', & - ' C512O2 --> CO13C4CHO ', & - ' C512PAN + OH --> CO13C4CHO + CO + NO2 ', & - ' C512PAN --> C512CO3 + NO2 ', & - ' C619O2 + HO2 --> C619OOH ', & - ' C619O2 + NO --> C619O + NO2 ', & - ' C619O2 + NO3 --> C619O + NO2 ', & - ' C619O2 --> C619CO ', & - ' C619O2 --> C619O ', & - ' C619O2 --> C619OH ', & - ' C89OOH + OH --> C89O2 ', & - ' C89OOH --> C89O + OH ', & - ' C89NO3 + OH --> CO13C4CHO + CH3COCH3 + NO2 ', & - ' C89NO3 --> C89O + NO2 ', & - ' C89O --> C810O2 ', & - ' C89OH + OH --> C89O ', & - ' C89OH --> C89O + HO2 ', & - ' C926OOH + OH --> C926O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_404 = (/ & - ' C926OOH --> C926O + OH ', & - ' C926O --> CO25C6CHO + CH3CO3 ', & - ' C926OH + OH --> CO25C6CHO + CH3CO3 ', & - ' C926OH --> C926O + HO2 ', & - ' C817CO3H + OH --> C817CO3 ', & - ' C817CO3H --> C817O2 + OH ', & - ' KLIMONONIC + OH --> C817O2 ', & - ' KLIMONONIC --> C817O2 + HO2 ', & - ' C817PAN + OH --> C817CO + CO + NO2 ', & - ' C817PAN --> C817CO3 + NO2 ', & - ' C817OOH + OH --> C817CO + OH ', & - ' C817OOH --> C817O + OH ', & - ' C817NO3 + OH --> C817CO + NO2 ', & - ' C817NO3 --> C817O + NO2 ', & - ' C817O --> C818O2 ', & - ' C817CO + OH --> C727CO3 ', & - ' C817OH + OH --> C817CO + HO2 ', & - ' C817OH --> C818O2 + HO2 ', & - ' NC826OOH + OH --> NC826O2 ', & - ' NC826OOH --> NC826O + OH ', & - ' NC826O --> C626CHO + HCHO + NO2 ', & - ' NC826OH + OH --> NC826O ', & - ' NC826OH --> NC826O + HO2 ', & - ' C626CO3 + HO2 --> C626CO2H + O3 ', & - ' C626CO3 + HO2 --> C626CO3H ', & - ' C626CO3 + HO2 --> C626O2 + OH ', & - ' C626CO3 + NO --> C626O2 + NO2 ', & - ' C626CO3 + NO2 --> C626PAN ', & - ' C626CO3 + NO3 --> C626O2 + NO2 ', & - ' C626CO3 --> C626CO2H ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_405 = (/ & - ' C626CO3 --> C626O2 ', & - ' C626O2 + HO2 --> C626OOH ', & - ' C626O2 + NO --> C626NO3 ', & - ' C626O2 + NO --> C626O + NO2 ', & - ' C626O2 + NO3 --> C626O + NO2 ', & - ' C626O2 --> C511CHO ', & - ' C626O2 --> C517CHO ', & - ' C626O2 --> C626O ', & - ' C735O2 + HO2 --> C735OOH ', & - ' C735O2 + NO --> C735O + NO2 ', & - ' C735O2 + NO3 --> C735O + NO2 ', & - ' C735O2 --> C735O ', & - ' C735O2 --> C735OH ', & - ' C826OOH + OH --> C826O2 ', & - ' C826OOH --> C826O + OH ', & - ' C826NO3 + OH --> C626CHO + HCHO + NO2 ', & - ' C826O --> C626CHO + HCHO + HO2 ', & - ' C826OH + OH --> C826O ', & - ' C826OH --> C826O + HO2 ', & - ' C729OOH + OH --> C622CHO + OH ', & - ' C729OOH --> C729O + OH ', & - ' C729NO3 + OH --> C622CHO + NO2 ', & - ' C729NO3 --> C729O + NO2 ', & - ' C729O --> C622CO3 ', & - ' C622CHO + NO3 --> C622CO3 + HNO3 ', & - ' C622CHO + NO3 --> NC728O2 ', & - ' C622CHO + O3 --> CH2OOF + C517CHO ', & - ' C622CHO + O3 --> C628OOA + HCHO ', & - ' C622CHO + OH --> C622CO3 ', & - ' C622CHO + OH --> C728O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_406 = (/ & - ' C622CHO --> C622O2 + CO + HO2 ', & - ' C822O2 + HO2 --> C822OOH ', & - ' C822O2 + NO --> C822NO3 ', & - ' C822O2 + NO --> C822O + NO2 ', & - ' C822O2 + NO3 --> C822O + NO2 ', & - ' C822O2 --> C729CHO ', & - ' C822O2 --> C822O ', & - ' C822O2 --> C822OH ', & - ' C823CO3 + HO2 --> C823CO3H ', & - ' C823CO3 + HO2 --> C823O2 + OH ', & - ' C823CO3 + HO2 --> LIMONIC + O3 ', & - ' C823CO3 + NO --> C823O2 + NO2 ', & - ' C823CO3 + NO2 --> C823PAN ', & - ' C823CO3 + NO3 --> C823O2 + NO2 ', & - ' C823CO3 --> C823O2 ', & - ' C823CO3 --> LIMONIC ', & - ' C925O2 + HO2 --> C925OOH ', & - ' C925O2 + NO --> C925O + NO2 ', & - ' C925O2 + NO3 --> C925O + NO2 ', & - ' C925O2 --> C925O ', & - ' C622CO3 + HO2 --> C622CO2H + O3 ', & - ' C622CO3 + HO2 --> C622CO3H ', & - ' C622CO3 + HO2 --> C622O2 + OH ', & - ' C622CO3 + NO --> C622O2 + NO2 ', & - ' C622CO3 + NO2 --> C622PAN ', & - ' C622CO3 + NO3 --> C622O2 + NO2 ', & - ' C622CO3 --> C622CO2H ', & - ' C622CO3 --> C622O2 ', & - ' C816CO + OH --> C819O2 ', & - ' C816CO --> MACO3 + MEKAO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_407 = (/ & - ' LMLKAOOH + OH --> LMLKACO + OH ', & - ' LMLKAOOH --> C626CHO + CH3CO3 + OH ', & - ' LMLKAOOH --> LMLKAO + OH ', & - ' LMLKAO --> C626CHO + CH3CO3 ', & - ' LMLKACO + OH --> C626CHO + CH3CO3 ', & - ' LMLKACO --> C626CO3 + CH3CO3 ', & - ' LMLKAOH + OH --> LMLKACO + HO2 ', & - ' LMLKAOH --> C626CHO + CH3CO3 + HO2 ', & - ' LMLKBOOH + OH --> LMLKBCO + OH ', & - ' LMLKBOOH --> C731CO3 + HCHO + OH ', & - ' LMLKBOOH --> LMLKBO + OH ', & - ' LMLKBO --> C731CO3 + HCHO ', & - ' LMLKBCO + OH --> C731CO3 + CO ', & - ' LMLKBCO --> C731CO3 + CO + HO2 ', & - ' LMLKBOH + OH --> LMLKBCO + HO2 ', & - ' LMLKBOH --> C731CO3 + HCHO + HO2 ', & - ' C1011CO3 + HO2 --> C1011CO2H + O3 ', & - ' C1011CO3 + HO2 --> C1011CO3H ', & - ' C1011CO3 + HO2 --> C1011O2 + OH ', & - ' C1011CO3 + NO --> C1011O2 + NO2 ', & - ' C1011CO3 + NO2 --> C1011PAN ', & - ' C1011CO3 + NO3 --> C1011O2 + NO2 ', & - ' C1011CO3 --> C1011CO2H ', & - ' C1011CO3 --> C1011O2 ', & - ' C1210CO3 + HO2 --> C1210CO2 + OH ', & - ' C1210CO3 + HO2 --> C1210CO2H + O3 ', & - ' C1210CO3 + HO2 --> C1210CO3H ', & - ' C1210CO3 + NO --> C1210CO2 + NO2 ', & - ' C1210CO3 + NO2 --> C1210PAN ', & - ' C1210CO3 + NO3 --> C1210CO2 + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_408 = (/ & - ' C1210CO3 --> C1210CO2 ', & - ' C1210CO3 --> C1210CO2H ', & - ' C132O2 + HO2 --> C132OOH ', & - ' C132O2 + NO --> C132O + NO2 ', & - ' C132O2 + NO3 --> C132O + NO2 ', & - ' C132O2 --> C132O ', & - ' C132O2 --> C132OH ', & - ' C137CO3 + HO2 --> C137CO2H + O3 ', & - ' C137CO3 + HO2 --> C137CO3H ', & - ' C137CO3 + HO2 --> C137O2 + OH ', & - ' C137CO3 + NO --> C137O2 + NO2 ', & - ' C137CO3 + NO2 --> C137PAN ', & - ' C137CO3 + NO3 --> C137O2 + NO2 ', & - ' C137CO3 --> C137CO2H ', & - ' C137CO3 --> C137O2 ', & - ' C1013CO3 + HO2 --> C1013CO2H + O3 ', & - ' C1013CO3 + HO2 --> C1013CO3H ', & - ' C1013CO3 + HO2 --> C1013O2 + OH ', & - ' C1013CO3 + NO --> C1013O2 + NO2 ', & - ' C1013CO3 + NO2 --> C1013PAN ', & - ' C1013CO3 + NO3 --> C1013O2 + NO2 ', & - ' C1013CO3 --> C1013CO2H ', & - ' C1013CO3 --> C1013O2 ', & - ' C1312CO + OH --> C1010O2 + HOC2H4CHO ', & - ' C1312O2 + HO2 --> C1312OOH ', & - ' C1312O2 + NO --> C1312NO3 ', & - ' C1312O2 + NO --> C1312O + NO2 ', & - ' C1312O2 + NO3 --> C1312O + NO2 ', & - ' C1312O2 --> C1312CO ', & - ' C1312O2 --> C1312O ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_409 = (/ & - ' C1312O2 --> C1312OH ', & - ' C116CO2H + OH --> C116O2 ', & - ' C116CO3H + OH --> C116CO3 ', & - ' C116CO3H --> C116O2 + OH ', & - ' C116PAN + OH --> C116CO + CO + NO2 ', & - ' C116PAN --> C116CO3 + NO2 ', & - ' C116OOH + OH --> C116CO + OH ', & - ' C116OOH --> C116O + OH ', & - ' C116NO3 + OH --> C116CO + NO2 ', & - ' C116NO3 --> C116O + NO2 ', & - ' C116O --> C117O2 ', & - ' C116CO + OH --> C117O2 ', & - ' C116OH + OH --> C116CO + HO2 ', & - ' C129OOH + OH --> C129CO + OH ', & - ' C129OOH --> C129O + OH ', & - ' C129O --> C830CO3 + HCOCH2CHO ', & - ' C129CO + OH --> C830CO3 + HCOCH2CHO ', & - ' C129CO --> C830CO3 + HCOCH2CO3 ', & - ' C129OH + OH --> C129CO + HO2 ', & - ' C127O2 + HO2 --> C127OOH ', & - ' C127O2 + NO --> C127NO3 ', & - ' C127O2 + NO --> C127O + NO2 ', & - ' C127O2 + NO3 --> C127O + NO2 ', & - ' C127O2 --> C127O ', & - ' C127O2 --> C127OH ', & - ' C143CO + OH --> C145O2 ', & - ' C143CO --> C927O2 + CO2C4CO3 ', & - ' C143O2 + HO2 --> C143OOH ', & - ' C143O2 + NO --> C143NO3 ', & - ' C143O2 + NO --> C143O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_410 = (/ & - ' C143O2 + NO3 --> C143O + NO2 ', & - ' C143O2 --> C143CO ', & - ' C143O2 --> C143O ', & - ' C143O2 --> C143OH ', & - ' C1210OOH + OH --> C116CHO + OH ', & - ' C1210OOH --> C1210O + OH ', & - ' C1210NO3 + OH --> C116CHO + NO2 ', & - ' C1210NO3 --> C1210O + NO2 ', & - ' C1210O --> C1214O2 ', & - ' C1210OH + OH --> C116CHO + HO2 ', & - ' C1H4C5CO2H + OH --> C6COALCO2H + HO2 ', & - ' C1H4C5CO3H + OH --> C6COALCO3H + HO2 ', & - ' C1H4C5CO3H --> CHOC4OHO2 + OH ', & - ' C1H4C5PAN + OH --> C6COCHOPAN + HO2 ', & - ' C1H4C5PAN --> C1H4C5CO3 + NO2 ', & - ' CHOC4OHOOH + OH --> CHOC4OHO2 ', & - ' CHOC4OHOOH --> CHOC4OHO + OH ', & - ' CHOC4OHO --> CHOC4DOLO2 ', & - ' HOC4CHOOOH + OH --> HOC4CHOO2 ', & - ' HOC4CHOOOH --> HOC3H6CHO + OH + CO + HO2 ', & - ' HOC4CHOOOH --> HOC4CHOO + OH ', & - ' HOC4CHOO --> HOC3H6CHO + CO + HO2 ', & - ' C6145COOOH + OH --> C6145COO2 ', & - ' C6145COOOH --> C6145COO + OH ', & - ' C6145COO --> C6TRONOHO2 ', & - ' CO2C4CO2H + OH --> MEKAO2 ', & - ' CO2C4CO3H --> MEKAO2 + OH ', & - ' CO2C4CO3H + OH --> CO2C4CO3 ', & - ' C5PAN2 --> CO2C4CO3 + NO2 ', & - ' C5PAN2 + OH --> CO2C3CHO + CO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_411 = (/ & - ' HOBUT2CO2H + OH --> NBUTOLBO2 ', & - ' HOBUT2CO3H --> NBUTOLBO2 + OH ', & - ' HOBUT2CO3H + OH --> HOBUT2CO3 ', & - ' C5PAN5 --> HOBUT2CO3 + NO2 ', & - ' C5PAN5 + OH --> MEKAOH + CO + NO2 ', & - ' CO3C5CO2H --> DIEKBO2 + HO2 ', & - ' CO3C5CO2H + OH --> DIEKBO2 ', & - ' CO3C5CO3H --> DIEKBO2 + OH ', & - ' CO3C5CO3H + OH --> CO3C5CO3 ', & - ' C6PAN2 --> CO3C5CO3 + NO2 ', & - ' C6PAN2 + OH --> CO3C4CHO + CO + NO2 ', & - ' C65OOH --> C65O + OH ', & - ' C65OOH --> CO24C5 + OH + CO + HO2 ', & - ' C65OOH + OH --> C65O2 ', & - ' CO2C54CO2H + OH --> CO2C54O2 ', & - ' CO2C54CO3H --> CO2C54O2 + OH ', & - ' CO2C54CO3H + OH --> CO2C54CO3 ', & - ' C6PAN5 --> CO2C54CO3 + NO2 ', & - ' C6PAN5 + OH --> CO24C5 + CO + NO2 ', & - ' HO24C5O2 + HO2 --> HO24C5OOH ', & - ' HO24C5O2 + NO --> HO24C5NO3 ', & - ' HO24C5O2 + NO --> HO24C5O + NO2 ', & - ' HO24C5O2 + NO3 --> HO24C5O + NO2 ', & - ' HO24C5O2 --> HO124C5 ', & - ' HO24C5O2 --> HO24C4CHO ', & - ' HO24C5O2 --> HO24C5O ', & - ' C23C54CHO --> IBUDIALCO3 + CH3CO3 ', & - ' C23C54CHO + NO3 --> C23C54CO3 + HNO3 ', & - ' C23C54CHO + OH --> C23C54CO3 ', & - ' C55O2 + HO2 --> C55OOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_412 = (/ & - ' C55O2 + NO --> C55O + NO2 ', & - ' C55O2 + NO3 --> C55O + NO2 ', & - ' C55O2 --> C55O ', & - ' C67CO3 + HO2 --> C55O2 + OH ', & - ' C67CO3 + HO2 --> C67CO3H ', & - ' C67CO3 + NO --> C55O2 + NO2 ', & - ' C67CO3 + NO2 --> C6PAN9 ', & - ' C67CO3 + NO3 --> C55O2 + NO2 ', & - ' C67CO3 --> C55O2 ', & - ' CO24M3CHO --> C41CO3 + CO + HO2 ', & - ' CO24M3CHO + OH --> C41CO3 + CO ', & - ' C51CO2H + OH --> MIPKBO2 ', & - ' C51CO3H --> MIPKBO2 + OH ', & - ' C51CO3H + OH --> CO2M3C4CO3 ', & - ' C6PAN12 --> CO2M3C4CO3 + NO2 ', & - ' C6PAN12 + OH --> CO2C43CHO + CO + NO2 ', & - ' C72OOH --> C72O + OH ', & - ' C72OOH + OH --> HO2CO35C7 + OH ', & - ' C72NO3 --> C72O + NO2 ', & - ' C72NO3 + OH --> HO2CO35C7 + NO2 ', & - ' C72O --> CO3C4CHO + CH3CHO + HO2 ', & - ' C72OH --> C72O + HO2 ', & - ' C72OH + OH --> HO2CO35C7 + HO2 ', & - ' HO2CO35C7 --> CO3C4CO3 + CH3CHO + HO2 ', & - ' HO2CO35C7 + OH --> CO235C7 + HO2 ', & - ' CO25C73OOH --> CO3C4CHO + CH3CO3 + OH ', & - ' CO25C73OOH --> CO25C73O + OH ', & - ' CO25C73OOH + OH --> CO235C7 + OH ', & - ' CO25C73O --> CO3C4CHO + CH3CO3 ', & - ' CO235C7 --> CO3C4CO3 + CH3CO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_413 = (/ & - ' CO235C7 + OH --> C73O2 ', & - ' CO25C73OH --> CO3C4CHO + CH3CO3 + HO2 ', & - ' CO25C73OH + OH --> CO235C7 + HO2 ', & - ' CO25C74OOH --> C2H5CO3 + CO2C3CHO + OH ', & - ' CO25C74OOH --> CO25C74O + OH ', & - ' CO25C74OOH + OH --> CO245C7 + OH ', & - ' CO25C74O --> C2H5CO3 + CO2C3CHO ', & - ' CO245C7 --> CO2C3CO3 + C2H5CO3 ', & - ' CO245C7 + OH --> C74O2 ', & - ' CO25C74OH --> C2H5CO3 + CO2C3CHO + HO2 ', & - ' CO25C74OH + OH --> CO245C7 + HO2 ', & - ' H3M2C4CO3 + HO2 --> H3M2C4CO3H ', & - ' H3M2C4CO3 + HO2 --> ME3BU2OLO2 + OH ', & - ' H3M2C4CO3 + NO --> ME3BU2OLO2 + NO2 ', & - ' H3M2C4CO3 + NO2 --> C6PAN20 ', & - ' H3M2C4CO3 + NO3 --> ME3BU2OLO2 + NO2 ', & - ' H3M2C4CO3 --> ME3BU2OLO2 ', & - ' C79O2 + HO2 --> C79OOH ', & - ' C79O2 + NO --> C79O + NO2 ', & - ' C79O2 + NO3 --> C79O + NO2 ', & - ' C79O2 --> C79O ', & - ' C712OOH --> C712O + OH ', & - ' C712OOH --> HO2CO4C5 + CH3COCH2O2 + OH ', & - ' C712OOH + OH --> C712O2 ', & - ' C712NO3 --> C712O + NO2 ', & - ' C712NO3 + OH --> BUT2OLO + MGLYOX + NO2 ', & - ' C712O --> CO24C5 + CH3CHO + HO2 ', & - ' C712OH --> HO2CO4C5 + CH3COCH2O2 + HO2 ', & - ' C712OH + OH --> C712O ', & - ' C713OOH --> C713O + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_414 = (/ & - ' C713OOH --> CO24C5 + CH3CO3 + OH ', & - ' C713OOH + OH --> C713O2 ', & - ' C713O --> CO24C5 + CH3CO3 ', & - ' C713OH --> CO24C5 + CH3CO3 + HO2 ', & - ' C713OH + OH --> C713O ', & - ' C714OOH --> C714O + OH ', & - ' C714OOH --> CO2C43CHO + CH3CO3 + OH ', & - ' C714OOH + OH --> C714O2 ', & - ' C714OOH + OH --> M3CO245C6 + OH ', & - ' C714O --> CO2C43CHO + CH3CO3 ', & - ' C714OH --> CO2C43CHO + CH3CO3 + HO2 ', & - ' C714OH + OH --> M3CO245C6 + HO2 ', & - ' M3CO245C6 --> C41CO3 + CH3CO3 ', & - ' M3CO245C6 --> CO23C54O2 + CH3CO3 ', & - ' M3CO245C6 + OH --> C715O2 ', & - ' H3M3C4CO3 + HO2 --> H3M3C4CO3H ', & - ' H3M3C4CO3 + HO2 --> PROL11MO2 + OH ', & - ' H3M3C4CO3 + NO --> PROL11MO2 + NO2 ', & - ' H3M3C4CO3 + NO2 --> C6PAN21 ', & - ' H3M3C4CO3 + NO3 --> PROL11MO2 + NO2 ', & - ' H3M3C4CO3 --> PROL11MO2 ', & - ' H13M3C5O2 + HO2 --> H13M3C5OOH ', & - ' H13M3C5O2 + NO --> H13M3C5NO3 ', & - ' H13M3C5O2 + NO --> H13M3C5O + NO2 ', & - ' H13M3C5O2 + NO3 --> H13M3C5O + NO2 ', & - ' H13M3C5O2 --> H134M3C5 ', & - ' H13M3C5O2 --> H13M3C5O ', & - ' H13M3C5O2 --> H13M3CO4C5 ', & - ' CO346C8 --> CO3C4CO3 + C2H5CO3 ', & - ' CO346C8 + OH --> C83O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_415 = (/ & - ' C84OOH --> CO3C4CHO + C2H5CO3 + OH ', & - ' C84OOH --> C84O + OH ', & - ' C84OOH + OH --> CO346C8 + OH ', & - ' C84O --> CO3C4CHO + C2H5CO3 ', & - ' C84OH --> CO3C4CHO + C2H5CO3 + HO2 ', & - ' C84OH + OH --> CO346C8 + HO2 ', & - ' HO4C5CO3 + HO2 --> HO4C5CO3H ', & - ' HO4C5CO3 + HO2 --> PE1ENEBO2 + OH ', & - ' HO4C5CO3 + NO --> PE1ENEBO2 + NO2 ', & - ' HO4C5CO3 + NO2 --> C6PAN22 ', & - ' HO4C5CO3 + NO3 --> PE1ENEBO2 + NO2 ', & - ' HO4C5CO3 --> PE1ENEBO2 ', & - ' CO356C9 --> C3H7CO3 + CO3C4CO3 ', & - ' CO356C9 + OH --> C95O2 ', & - ' C94OOH --> C3H7CO3 + CO3C4CHO + OH ', & - ' C94OOH --> C94O + OH ', & - ' C94OOH + OH --> CO356C9 + OH ', & - ' C94O --> C3H7CO3 + CO3C4CHO ', & - ' C94OH --> C3H7CO3 + CO3C4CHO + HO2 ', & - ' C94OH + OH --> CO356C9 + HO2 ', & - ' HO5C6CO3 + HO2 --> HO5C6CO3H ', & - ' HO5C6CO3 + HO2 --> HO5C6O2 + OH ', & - ' HO5C6CO3 + NO --> HO5C6O2 + NO2 ', & - ' HO5C6CO3 + NO2 --> C7PAN2 ', & - ' HO5C6CO3 + NO3 --> HO5C6O2 + NO2 ', & - ' HO5C6CO3 --> HO5C6O2 ', & - ' CO356C10 --> C4H9CO3 + CO3C4CO3 ', & - ' CO356C10 + OH --> C105O2 ', & - ' C104OOH --> C104O + OH ', & - ' C104OOH --> C4H9CO3 + CO3C4CHO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_416 = (/ & - ' C104OOH + OH --> CO356C10 + OH ', & - ' C104O --> C4H9CO3 + CO3C4CHO ', & - ' C104OH --> C4H9CO3 + CO3C4CHO + HO2 ', & - ' C104OH + OH --> CO356C10 + HO2 ', & - ' HO6C7CO3 + HO2 --> HO6C7CO3H ', & - ' HO6C7CO3 + HO2 --> HO6C7O2 + OH ', & - ' HO6C7CO3 + NO --> HO6C7O2 + NO2 ', & - ' HO6C7CO3 + NO2 --> C8PAN1 ', & - ' HO6C7CO3 + NO3 --> HO6C7O2 + NO2 ', & - ' HO6C7CO3 --> HO6C7O2 ', & - ' C6H13CHO --> HEXAO2 + CO + HO2 ', & - ' C6H13CHO + NO3 --> C6H13CO3 + HNO3 ', & - ' C6H13CHO + OH --> C6H13CO3 ', & - ' CO356C11 --> C5H11CO3 + CO3C4CO3 ', & - ' CO356C11 + OH --> C115O2 ', & - ' C114OOH --> C114O + OH ', & - ' C114OOH --> C5H11CO3 + CO3C4CHO + OH ', & - ' C114OOH + OH --> CO356C11 + OH ', & - ' C114O --> C5H11CO3 + CO3C4CHO ', & - ' C114OH --> C5H11CO3 + CO3C4CHO + HO2 ', & - ' C114OH + OH --> CO356C11 + HO2 ', & - ' HO7C8CO3 + HO2 --> HO7C8CO3H ', & - ' HO7C8CO3 + HO2 --> HO7C8O2 + OH ', & - ' HO7C8CO3 + NO --> HO7C8O2 + NO2 ', & - ' HO7C8CO3 + NO2 --> C9PAN1 ', & - ' HO7C8CO3 + NO3 --> HO7C8O2 + NO2 ', & - ' HO7C8CO3 --> HO7C8O2 ', & - ' CO356C12 --> C6H13CO3 + CO3C4CO3 ', & - ' CO356C12 + OH --> C125O2 ', & - ' C6H13CO2H + OH --> HEXAO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_417 = (/ & - ' C6H13CO3H --> HEXAO2 + OH ', & - ' C6H13CO3H + OH --> C6H13CO3 ', & - ' PHPTN + OH --> C5H11CHO + CO + NO2 ', & - ' PHPTN --> C6H13CO3 + NO2 ', & - ' C124OOH --> C124O + OH ', & - ' C124OOH --> C6H13CO3 + CO3C4CHO + OH ', & - ' C124OOH + OH --> CO356C12 + OH ', & - ' C124O --> C6H13CO3 + CO3C4CHO ', & - ' C124OH --> C6H13CO3 + CO3C4CHO + HO2 ', & - ' C124OH + OH --> CO356C12 + HO2 ', & - ' HO8C9CO3 + HO2 --> HO8C9CO3H ', & - ' HO8C9CO3 + HO2 --> HO8C9O2 + OH ', & - ' HO8C9CO3 + NO --> HO8C9O2 + NO2 ', & - ' HO8C9CO3 + NO2 --> C10PAN1 ', & - ' HO8C9CO3 + NO3 --> HO8C9O2 + NO2 ', & - ' HO8C9CO3 --> HO8C9O2 ', & - ' MALANHYOOH + OH --> MALNHYOHCO + OH ', & - ' MALANHYOOH --> MALANHYO + OH ', & - ' MALANHYO --> HCOCOHCO3 ', & - ' MALANHY2OH + OH --> MALNHYOHCO + HO2 ', & - ' MALNHYOHCO + OH --> 3 CO + HO2 ', & - ' NDNPHENOOH + OH --> NDNPHENO2 ', & - ' NDNPHENOOH --> NDNPHENO + OH ', & - ' NDNPHENO --> NC4DCO2H + HNO3 + 2 CO + NO2 ', & - ' DNPHENOOH + OH --> DNPHENO2 ', & - ' DNPHENOOH --> DNPHENO + OH ', & - ' DNPHENO --> NC4DCO2H + HCOCO2H + NO2 ', & - ' NC4DCO2H + OH --> NC4DCO2 ', & - ' C6CO4DB + OH --> C33CO + 3 CO + HO2 ', & - ' C6CO4DB --> C4CO2DBCO3 + CO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_418 = (/ & - 'C5CO2OHCO3 + HO2 --> C5COOHCO3H ', & - 'C5CO2OHCO3 + HO2 --> HOCOC4DIAL + OH + CO + HO2 ', & - ' C5CO2OHCO3 + NO --> HOCOC4DIAL + CO + NO2 + HO2 ', & - 'C5CO2OHCO3 + NO2 --> C5CO2OHPAN ', & - 'C5CO2OHCO3 + NO3 --> HOCOC4DIAL + CO + NO2 + HO2 ', & - ' C5CO2OHCO3 --> HOCOC4DIAL + CO + HO2 ', & - ' C7CO4DB + OH --> C33CO + CH3CO3 + 2 CO ', & - ' C7CO4DB --> C5CO2DBCO3 + CO + HO2 ', & - 'C6CO2OHCO3 + HO2 --> C5134CO2OH + OH + CO + HO2 ', & - 'C6CO2OHCO3 + HO2 --> C6COOHCO3H ', & - ' C6CO2OHCO3 + NO --> C5134CO2OH + CO + NO2 + HO2 ', & - 'C6CO2OHCO3 + NO2 --> C6CO2OHPAN ', & - 'C6CO2OHCO3 + NO3 --> C5134CO2OH + CO + NO2 + HO2 ', & - ' C6CO2OHCO3 --> C5134CO2OH + CO + HO2 ', & - ' NDNCRESOOH + OH --> NDNCRESO2 ', & - ' NDNCRESOOH --> NDNCRESO + OH ', & - ' NDNCRESO --> NC4MDCO2H + HNO3 + 2 CO + NO2 ', & - ' DNCRESOOH + OH --> DNCRESO2 ', & - ' DNCRESOOH --> DNCRESO + OH ', & - ' DNCRESO --> NC4MDCO2H + HCOCO2H + NO2 ', & - ' NC4MDCO2H + OH --> NC4MDCO2 ', & - ' ACCOMECO3 + HO2 --> ACCOMECO3H ', & - ' ACCOMECO3 + HO2 --> MECOACETO2 + OH ', & - ' ACCOMECO3 + NO --> MECOACETO2 + NO2 ', & - ' ACCOMECO3 + NO2 --> ACCOMEPAN ', & - ' ACCOMECO3 + NO3 --> MECOACETO2 + NO2 ', & - ' ACCOMECO3 --> MECOACETO2 ', & - ' C6O4KETOOH + OH --> C6O4KETO2 ', & - ' C6O4KETOOH --> C6O4KETO + OH ', & - ' C6O4KETO --> HCHO + CH3CO3 + 2 CO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_419 = (/ & - ' NDNOXYLOOH + OH --> NDNOXYOLO2 ', & - ' NDNOXYLOOH --> NDNOXYOLO + OH ', & - ' NDNOXYOLO --> NC4MDCO2H + CH3COCO2H + HNO3 + NO2 ', & - ' DNOXYOLOOH + OH --> DNOXYOLO2 ', & - ' DNOXYOLOOH --> DNOXYOLO + OH ', & - ' DNOXYOLO --> NC4MDCO2H + CH3COCO2H + NO2 ', & - ' C6CO4M2DB + OH --> CO23C3CHO + CH3CO3 + 2 CO ', & - ' C6CO4M2DB --> C4DBM2CO3 + CO + HO2 ', & - 'C5M2OHOCO3 + HO2 --> C5134CO2OH + CH3CO3 + OH ', & - 'C5M2OHOCO3 + HO2 --> C5M2OHCO3H ', & - ' C5M2OHOCO3 + NO --> C5134CO2OH + CH3CO3 + NO2 ', & - 'C5M2OHOCO3 + NO2 --> C5M2OHOPAN ', & - 'C5M2OHOCO3 + NO3 --> C5134CO2OH + CH3CO3 + NO2 ', & - ' C5M2OHOCO3 --> C5134CO2OH + CH3CO3 ', & - 'C4COMOHCO3 + HO2 --> C5CO234 + OH + HO2 ', & - 'C4COMOHCO3 + HO2 --> C5COHOCO3H ', & - ' C4COMOHCO3 + NO --> C5CO234 + NO2 + HO2 ', & - 'C4COMOHCO3 + NO2 --> C4COMOHPAN ', & - 'C4COMOHCO3 + NO3 --> C5CO234 + NO2 + HO2 ', & - ' C4COMOHCO3 --> C5CO234 + HO2 ', & - ' C23O3MCO3 + HO2 --> C23O3MCO2H + O3 ', & - ' C23O3MCO3 + HO2 --> C23O3MCO3H ', & - ' C23O3MCO3 + HO2 --> C23O3MO2 + OH ', & - ' C23O3MCO3 + NO --> C23O3MO2 + NO2 ', & - ' C23O3MCO3 + NO2 --> C23O3MCPAN ', & - ' C23O3MCO3 + NO3 --> C23O3MO2 + NO2 ', & - ' C23O3MCO3 --> C23O3MCO2H ', & - ' C23O3MCO3 --> C23O3MO2 ', & - ' ACCOCOMOOH + OH --> ACCOCOMEO2 ', & - ' ACCOCOMOOH --> ACCOCOMEO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_420 = (/ & - ' ACCOCOMOOH --> HCHO + CH3CO3 + OH + CO ', & - ' ACCOCOMEO --> HCHO + CH3CO3 + CO ', & - ' C23O3CCO3 + HO2 --> C23O3CCO2H + O3 ', & - ' C23O3CCO3 + HO2 --> C23O3CCO3H ', & - ' C23O3CCO3 + HO2 --> MCOCOMOXO2 + OH ', & - ' C23O3CCO3 + NO --> MCOCOMOXO2 + NO2 ', & - ' C23O3CCO3 + NO2 --> C23O3CPAN ', & - ' C23O3CCO3 + NO3 --> MCOCOMOXO2 + NO2 ', & - ' C23O3CCO3 --> C23O3CCO2H ', & - ' C23O3CCO3 --> MCOCOMOXO2 ', & - ' MMALNHYOOH + OH --> MMALANHYO2 ', & - ' MMALNHYOOH --> MMALANHYO + OH ', & - ' MMALANHYO --> CO2H3CO3 ', & - ' MMALNHY2OH + OH --> MMALANHYO ', & - ' NDNMXYLOOH + OH --> NDNMXYOLO2 ', & - ' NDNMXYLOOH --> NDNMXYOLO + OH ', & - ' NDNMXYOLO --> NC4MDCO2H + CH3COCO2H + HNO3 + NO2 ', & - ' DNMXYOLOOH + OH --> DNMXYOLO2 ', & - ' DNMXYOLOOH --> DNMXYOLO + OH ', & - ' DNMXYOLO --> NC4MDCO2H + CH3COCO2H + NO2 ', & - ' C8CO4DB + OH --> C5CO234 + 3 CO + HO2 ', & - ' C8CO4DB --> C5CO2DBCO3 + CH3CO3 ', & - 'C7CO2OHCO3 + HO2 --> C5CO3OH + CH3CO3 + OH ', & - 'C7CO2OHCO3 + HO2 --> C7CO2OCO3H ', & - ' C7CO2OHCO3 + NO --> C5CO3OH + CH3CO3 + NO2 ', & - 'C7CO2OHCO3 + NO2 --> C7CO2OHPAN ', & - 'C7CO2OHCO3 + NO3 --> C5CO3OH + CH3CO3 + NO2 ', & - ' C7CO2OHCO3 --> C5CO3OH + CH3CO3 ', & - ' TL4ONO2OOH + OH --> TL4OHNO2O2 ', & - ' TL4ONO2OOH --> TL4OHNO2O + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_421 = (/ & - ' TL4OHNO2O --> CO2H3CHO + 2 CO + NO2 + HO2 ', & - ' NDNPXYLOOH + OH --> NDNPXYOLO2 ', & - ' NDNPXYLOOH --> NDNPXYOLO + OH ', & - ' NDNPXYOLO --> NC4MDCO2H + CH3COCO2H + HNO3 + NO2 ', & - ' DNPXYOLOOH + OH --> DNPXYOLO2 ', & - ' DNPXYOLOOH --> DNPXYOLO + OH ', & - ' DNPXYOLO --> NC4MDCO2H + CH3COCO2H + NO2 ', & - ' CO4DBC8 + OH --> CO23C3CHO + CH3CO3 + 2 CO ', & - ' CO4DBC8 --> C5DBCO2CO3 + CH3CO3 ', & - 'C6MOHCOCO3 + HO2 --> C6MOCOCO3H ', & - 'C6MOHCOCO3 + HO2 --> DMKCOOH + OH + CO + HO2 ', & - ' C6MOHCOCO3 + NO --> DMKCOOH + CO + NO2 + HO2 ', & - 'C6MOHCOCO3 + NO2 --> C6MOHCOPAN ', & - 'C6MOHCOCO3 + NO3 --> DMKCOOH + CO + NO2 + HO2 ', & - ' C6MOHCOCO3 --> DMKCOOH + CO + HO2 ', & - ' NDNEBZLOOH + OH --> NDNEBNZLO2 ', & - ' NDNEBZLOOH --> NDNEBNZLO + OH ', & - ' NDNEBNZLO --> NC4EDCO2H + HNO3 + 2 CO + NO2 ', & - ' DNEBNZLOOH + OH --> DNEBNZLO2 ', & - ' DNEBNZLOOH --> DNEBNZLO + OH ', & - ' DNEBNZLO --> NC4EDCO2H + HCOCO2H + NO2 ', & - ' C6ETCO4DB + OH --> C33CO + C2H5CO3 + 2 CO ', & - ' C6ETCO4DB --> C7CO2DBCO3 + CO + HO2 ', & - 'C7OHCO2CO3 + HO2 --> C6134CO2OH + OH + CO + HO2 ', & - 'C7OHCO2CO3 + HO2 --> C7OHO2CO3H ', & - ' C7OHCO2CO3 + NO --> C6134CO2OH + CO + NO2 + HO2 ', & - 'C7OHCO2CO3 + NO2 --> C7OHCO2PAN ', & - 'C7OHCO2CO3 + NO3 --> C6134CO2OH + CO + NO2 + HO2 ', & - ' C7OHCO2CO3 --> C6134CO2OH + CO + HO2 ', & - ' NC4EDCO2H + OH --> NC4EDCO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_422 = (/ & - ' ECO3CO3 + HO2 --> C2H5CO3 + OH + 2 CO ', & - ' ECO3CO3 + HO2 --> ECO3CO3H ', & - ' ECO3CO3 + NO --> C2H5CO3 + 2 CO + NO2 ', & - ' ECO3CO3 + NO2 --> ECO3PAN ', & - ' ECO3CO3 + NO3 --> C2H5CO3 + 2 CO + NO2 ', & - ' ECO3CO3 --> C2H5CO3 + 2 CO ', & - ' NDNPBZLOOH + OH --> NDNPBNZLO2 ', & - ' NDNPBZLOOH --> NDNPBNZLO + OH ', & - ' NDNPBNZLO --> NC4PDCO2H + HNO3 + 2 CO + NO2 ', & - ' DNPBNZLOOH + OH --> DNPBNZLO2 ', & - ' DNPBNZLOOH --> DNPBNZLO + OH ', & - ' DNPBNZLO --> NC4PDCO2H + HCOCO2H + NO2 ', & - ' C6PRCO4DB + OH --> C33CO + C3H7CO3 + 2 CO ', & - ' C6PRCO4DB --> C8CO2DBCO3 + CO + HO2 ', & - 'C8OHCO2CO3 + HO2 --> C61CHO + OH + CO + HO2 ', & - 'C8OHCO2CO3 + HO2 --> C8OHO2CO3H ', & - ' C8OHCO2CO3 + NO --> C61CHO + CO + NO2 + HO2 ', & - 'C8OHCO2CO3 + NO2 --> C8OHCO2PAN ', & - 'C8OHCO2CO3 + NO3 --> C61CHO + CO + NO2 + HO2 ', & - ' C8OHCO2CO3 --> C61CHO + CO + HO2 ', & - ' NC4PDCO2H + OH --> NC4PDCO2 ', & - ' C61CO3H + OH --> C61CO3 ', & - ' C61CO3H --> CO45C5CHO + OH + HO2 ', & - ' C61CPAN + OH --> CO45C5CHO + CO + NO2 ', & - ' C61CPAN --> C61CO3 + NO2 ', & - ' NDNIPBLOOH + OH --> NDNIPBZLO2 ', & - ' NDNIPBLOOH --> NDNIPBZLO + OH ', & - ' NDNIPBZLO --> NC4IPDCO2H + HNO3 + 2 CO + NO2 ', & - ' DNIPBZLOOH + OH --> DNIPBNZLO2 ', & - ' DNIPBZLOOH --> DNIPBNZLO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_423 = (/ & - ' DNIPBNZLO --> NC4IPDCO2H + HCOCO2H + NO2 ', & - ' C6IPRCO4DB + OH --> C33CO + IPRCO3 + 2 CO ', & - ' C6IPRCO4DB --> C8DBCO2CO3 + CO + HO2 ', & - 'C8CO2OHCO3 + HO2 --> C62CHO + OH + CO + HO2 ', & - 'C8CO2OHCO3 + HO2 --> C8O2OHCO3H ', & - ' C8CO2OHCO3 + NO --> C62CHO + CO + NO2 + HO2 ', & - 'C8CO2OHCO3 + NO2 --> C8CO2OHPAN ', & - 'C8CO2OHCO3 + NO3 --> C62CHO + CO + NO2 + HO2 ', & - ' C8CO2OHCO3 --> C62CHO + CO + HO2 ', & - ' NC4IPDCO2H + OH --> NC4IPDCO2 ', & - ' C62CO3H + OH --> C62CO3 ', & - ' C62CO3H --> C45IC5CHO + OH + HO2 ', & - ' C62CPAN + OH --> C45IC5CHO + CO + NO2 ', & - ' C62CPAN --> C62CO3 + NO2 ', & - ' NDMMALYO2 + HO2 --> NDMMALYOOH ', & - ' NDMMALYO2 + NO --> NDMMALYO + NO2 ', & - ' NDMMALYO2 + NO3 --> NDMMALYO + NO2 ', & - ' NDMMALYO2 --> NDMMALYO ', & - ' DMMALYO2 + HO2 --> DMMALYOOH ', & - ' DMMALYO2 + NO --> DMMALYO + NO2 ', & - ' DMMALYO2 + NO3 --> DMMALYO + NO2 ', & - ' DMMALYO2 --> DMMALYO ', & - ' DMMALYO2 --> DMMALYOH ', & - ' NDNT123OOH + OH --> NDNT123LO2 ', & - ' NDNT123OOH --> NDNT123LO + OH ', & - ' NDNT123LO --> NC5MDCO2H + CH3COCO2H + HNO3 + NO2 ', & - ' DNT123LOOH + OH --> DNT123LO2 ', & - ' DNT123LOOH --> DNT123LO + OH ', & - ' DNT123LO --> NC5MDCO2H + CH3COCO2H + NO2 ', & - ' NC5MDCO2H + OH --> BIACET + CO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_424 = (/ & - ' TM124NOOH + OH --> TM124NO2O2 ', & - ' TM124NOOH --> TM124NO2O + OH ', & - ' TM124NO2O --> C5DBCOCO2H + 2 CO + NO2 + HO2 ', & - ' NDNT124OOH + OH --> NDNT124LO2 ', & - ' NDNT124OOH --> NDNT124LO + OH ', & - ' NDNT124LO --> NC5MDCO2H + CH3COCO2H + HNO3 + NO2 ', & - ' DNT124LOOH + OH --> DNT124LO2 ', & - ' DNT124LOOH --> DNT124LO + OH ', & - ' DNT124LO --> NC5MDCO2H + CH3COCO2H + NO2 ', & - ' CO4DBC9 + OH --> C5CO234 + CH3CO3 + 2 CO ', & - ' CO4DBC9 --> C4DBM2CO3 + CH3CO3 ', & - 'C7MOHCOCO3 + HO2 --> C7MOCOCO3H ', & - 'C7MOHCOCO3 + HO2 --> DMKCOOH + CH3CO3 + OH ', & - ' C7MOHCOCO3 + NO --> DMKCOOH + CH3CO3 + NO2 ', & - 'C7MOHCOCO3 + NO2 --> C7MOHCOPAN ', & - 'C7MOHCOCO3 + NO3 --> DMKCOOH + CH3CO3 + NO2 ', & - ' C7MOHCOCO3 --> DMKCOOH + CH3CO3 ', & - ' MXOHNO2OOH + OH --> MXYOHNO2O2 ', & - ' MXOHNO2OOH --> MXYOHNO2O + OH ', & - ' MXYOHNO2O --> C5CODBCO2H + 2 CO + NO2 ', & - ' NDNOETLOOH + OH --> NDNOETOLO2 ', & - ' NDNOETLOOH --> NDNOETOLO + OH ', & - ' NDNOETOLO --> ECOCO2H + NC4MDCO2H + HNO3 + NO2 ', & - ' DNOETOLOOH + OH --> DNOETOLO2 ', & - ' DNOETOLOOH --> DNOETOLO + OH ', & - ' DNOETOLO --> ECOCO2H + NC4MDCO2H + NO2 ', & - ' C6CO4MEDB + OH --> C5CO23CHO + CH3CO3 + 2 CO ', & - ' C6CO4MEDB --> C4DBMECO3 + CO + HO2 ', & - ' C5MEJCO3 + HO2 --> C5MEJCO3H ', & - ' C5MEJCO3 + HO2 --> C6134CO2OH + CH3CO3 + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_425 = (/ & - ' C5MEJCO3 + NO --> C6134CO2OH + CH3CO3 + NO2 ', & - ' C5MEJCO3 + NO2 --> C5MEJPAN ', & - ' C5MEJCO3 + NO3 --> C6134CO2OH + CH3CO3 + NO2 ', & - ' C5MEJCO3 --> C6134CO2OH + CH3CO3 ', & - ' NDNMETLOOH + OH --> NDNMETOLO2 ', & - ' NDNMETLOOH --> NDNMETOLO + OH ', & - ' NDNMETOLO --> ECOCO2H + NC4MDCO2H + HNO3 + NO2 ', & - ' DNMETOLOOH + OH --> DNMETOLO2 ', & - ' DNMETOLOOH --> DNMETOLO + OH ', & - ' DNMETOLO --> ECOCO2H + NC4MDCO2H + NO2 ', & - ' C7CO4EDB + OH --> C33CO + C2H5CO3 + CH3CO3 + CO ', & - ' C7CO4EDB --> C5DBECO3 + CO + HO2 ', & - 'C6EO2OHCO3 + HO2 --> C5CO3OH + C2H5CO3 + OH ', & - 'C6EO2OHCO3 + HO2 --> C6EO2HCO3H ', & - ' C6EO2OHCO3 + NO --> C5CO3OH + C2H5CO3 + NO2 ', & - 'C6EO2OHCO3 + NO2 --> C6EO2OHPAN ', & - 'C6EO2OHCO3 + NO3 --> C5CO3OH + C2H5CO3 + NO2 ', & - ' C6EO2OHCO3 --> C5CO3OH + C2H5CO3 ', & - ' NDNPETLOOH + OH --> NDNPETOLO2 ', & - ' NDNPETLOOH --> NDNPETOLO + OH ', & - ' NDNPETOLO --> ECOCO2H + NC4MDCO2H + HNO3 + NO2 ', & - ' DNPETOLOOH + OH --> DNPETOLO2 ', & - ' DNPETOLOOH --> DNPETOLO + OH ', & - ' DNPETOLO --> ECOCO2H + NC4MDCO2H + NO2 ', & - ' C7ECO4DB + OH --> C5CO23CHO + CH3CO3 + 2 CO + HO2 ', & - ' C7ECO4DB --> C5EDBCO3 + CO + HO2 ', & - ' C7MJPCO3 + HO2 --> C7EDCCO + OH + CO + HO2 ', & - ' C7MJPCO3 + HO2 --> C7MJPCO3H ', & - ' C7MJPCO3 + NO --> C7EDCCO + CO + NO2 + HO2 ', & - ' C7MJPCO3 + NO2 --> C7MJPPAN ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_426 = (/ & - ' C7MJPCO3 + NO3 --> C7EDCCO + CO + NO2 + HO2 ', & - ' C7MJPCO3 --> C7EDCCO + CO + HO2 ', & - ' C23O3ECO3 + HO2 --> C23O3ECO2H + O3 ', & - ' C23O3ECO3 + HO2 --> C23O3ECO3H ', & - ' C23O3ECO3 + HO2 --> C23O3EO2 + OH ', & - ' C23O3ECO3 + NO --> C23O3EO2 + NO2 ', & - ' C23O3ECO3 + NO2 --> C23O3ECPAN ', & - ' C23O3ECO3 + NO3 --> C23O3EO2 + NO2 ', & - ' C23O3ECO3 --> C23O3ECO2H ', & - ' C23O3ECO3 --> C23O3EO2 ', & - ' CO356OCOOH + OH --> CO356OCO2 ', & - ' CO356OCOOH --> CO356OCO + OH ', & - ' CO356OCO --> CH3CHO + CH3CO3 + CO ', & - 'EMPOHNO2O2 + HO2 --> EMPONO2OOH ', & - ' EMPOHNO2O2 + NO --> EMPOHNO2O + NO2 ', & - 'EMPOHNO2O2 + NO3 --> EMPOHNO2O + NO2 ', & - ' EMPOHNO2O2 --> EMPOHNO2O ', & - ' INCNCO2H + OH --> MACRNB + NO2 ', & - ' INCNCO3H --> MACRNB + OH + NO2 ', & - ' INCNCO3H + OH --> INCNCO3 ', & - ' INCNPAN --> INCNCO3 + NO2 ', & - ' INCNPAN + OH --> MACRNB + NO2 + NO3 ', & - ' IEACO3H --> HMVKBO2 + OH ', & - ' IEACO3H + OH --> IEACO3 ', & - ' IEAPAN --> IEACO3 + NO2 ', & - ' IEAPAN + OH --> HMVKBO2 + CO + NO2 ', & - ' C531OOH + OH --> C531CO + OH ', & - ' C531OOH --> C531O + OH ', & - ' C531O --> C31CO3 + HCHO ', & - ' C532CO + OH --> C533O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_427 = (/ & - ' C532CO --> C31CO3 + CH3O2 ', & - ' C47CO3 + HO2 --> C47CO3H ', & - ' C47CO3 + HO2 --> CO2N3CHO + OH + HO2 ', & - ' C47CO3 + NO --> CO2N3CHO + NO2 + HO2 ', & - ' C47CO3 + NO2 --> C47PAN ', & - ' C47CO3 + NO3 --> CO2N3CHO + NO2 + HO2 ', & - ' C47CO3 --> CO2N3CHO + HO2 ', & - ' INB1HPCO3 + HO2 --> INB1HPCO2H + O3 ', & - ' INB1HPCO3 + HO2 --> INB1HPCO3H ', & - ' INB1HPCO3 + HO2 --> MACRNO3 + 2 OH ', & - ' INB1HPCO3 + NO --> MACRNO3 + OH + NO2 ', & - ' INB1HPCO3 + NO2 --> INB1HPPAN ', & - ' INB1HPCO3 + NO3 --> MACRNO3 + OH + NO2 ', & - ' INB1HPCO3 --> INB1HPCO2H ', & - ' INB1HPCO3 --> MACRNO3 + OH ', & - ' INB1NACO3 + HO2 --> INB1NACO2H + O3 ', & - ' INB1NACO3 + HO2 --> INB1NACO3H ', & - ' INB1NACO3 + HO2 --> MACRNO3 + OH + NO2 ', & - ' INB1NACO3 + NO --> MACRNO3 + 2 NO2 ', & - ' INB1NACO3 + NO2 --> INB1NAPAN ', & - ' INB1NACO3 + NO3 --> MACRNO3 + 2 NO2 ', & - ' INB1NACO3 --> INB1NACO2H ', & - ' INB1NACO3 --> MACRNO3 + NO2 ', & - ' INB1NBCO3 + HO2 --> INB1NBCO2H + O3 ', & - ' INB1NBCO3 + HO2 --> INB1NBCO3H ', & - ' INB1NBCO3 + HO2 --> MVKNO3 + OH + NO2 ', & - ' INB1NBCO3 + NO --> MVKNO3 + 2 NO2 ', & - ' INB1NBCO3 + NO2 --> INB1NBPAN ', & - ' INB1NBCO3 + NO3 --> MVKNO3 + 2 NO2 ', & - ' INB1NBCO3 --> INB1NBCO2H ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_428 = (/ & - ' INB1NBCO3 --> MVKNO3 + NO2 ', & - ' IECCO3H --> MACRO2 + OH ', & - ' IECCO3H + OH --> IECCO3 ', & - ' IECPAN --> IECCO3 + NO2 ', & - ' IECPAN + OH --> MACRO2 + CO + NO2 ', & - ' HPC52CO3H + OH --> HPC52CO3 ', & - ' HPC52CO3H --> DHPMACR + OH + HO2 ', & - ' HPC52PAN + OH --> DHPMACR + CO + NO2 ', & - ' HPC52PAN --> HPC52CO3 + NO2 ', & - ' INDHCO3H + OH --> INDHCO3 ', & - ' INDHCO3H --> MVKNO3 + OH + HO2 ', & - ' INDHPAN + OH --> MVKNO3 + NO3 ', & - ' INDHPAN --> INDHCO3 + NO2 ', & - ' MMALNACO3 + HO2 --> CONM2CHO + OH + HO2 ', & - ' MMALNACO3 + HO2 --> MMALNACO2H + O3 ', & - ' MMALNACO3 + HO2 --> MMALNACO3H ', & - ' MMALNACO3 + NO --> CONM2CHO + NO2 + HO2 ', & - ' MMALNACO3 + NO2 --> MMALNAPAN ', & - ' MMALNACO3 + NO3 --> CONM2CHO + NO2 + HO2 ', & - ' MMALNACO3 --> CONM2CHO + HO2 ', & - ' MMALNACO3 --> MMALNACO2H ', & - ' MMALNBCO3 + HO2 --> CO2H3CHO + OH + NO2 ', & - ' MMALNBCO3 + HO2 --> MMALNBCO2H + O3 ', & - ' MMALNBCO3 + HO2 --> MMALNBCO3H ', & - ' MMALNBCO3 + NO --> CO2H3CHO + 2 NO2 ', & - ' MMALNBCO3 + NO2 --> MMALNBPAN ', & - ' MMALNBCO3 + NO3 --> CO2H3CHO + 2 NO2 ', & - ' MMALNBCO3 --> CO2H3CHO + NO2 ', & - ' MMALNBCO3 --> MMALNBCO2H ', & - ' C57NO3CO2H + OH --> MMALNBCO2H + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_429 = (/ & - ' C57NO3CO3H + OH --> C57NO3CO3 ', & - ' C57NO3CO3H + OH --> MMALNBCO3H + HO2 ', & - ' C57NO3CO3H --> HO12CO3C4 + OH + NO2 ', & - ' C57NO3PAN + OH --> MMALNBPAN + HO2 ', & - ' C57NO3PAN --> C57NO3CO3 + NO2 ', & - ' INDHPCO3 + HO2 --> INDHPCO3H ', & - ' INDHPCO3 + HO2 --> MVKNO3 + 2 OH ', & - ' INDHPCO3 + NO --> MVKNO3 + OH + NO2 ', & - ' INDHPCO3 + NO2 --> INDHPPAN ', & - ' INDHPCO3 + NO3 --> MVKNO3 + OH + NO2 ', & - ' INDHPCO3 --> MVKNO3 + OH ', & - ' INAHPCO2H --> HMVKANO3 + OH + HO2 ', & - ' INAHPCO2H + OH --> HMVKANO3 + OH ', & - ' INAHPCO3H --> HMVKANO3 + 2 OH ', & - ' INAHPCO3H + OH --> INAHPCO3 ', & - ' INAHPPAN --> INAHPCO3 + NO2 ', & - ' INAHPPAN + OH --> HMVKANO3 + OH + CO + NO2 ', & - ' INANCO2H + OH --> HMVKANO3 + NO2 ', & - ' INANCO3H --> HMVKANO3 + OH + NO2 ', & - ' INANCO3H + OH --> INANCO3 ', & - ' INANPAN --> INANCO3 + NO2 ', & - ' INANPAN + OH --> HMVKANO3 + CO + 2 NO2 ', & - ' INANCOCO3 + HO2 --> INANCOCO2H + O3 ', & - ' INANCOCO3 + HO2 --> INANCOCO3H ', & - ' INANCOCO3 + HO2 --> CO23C4NO3 + OH + NO2 ', & - ' INANCOCO3 + NO --> CO23C4NO3 + 2 NO2 ', & - ' INANCOCO3 + NO2 --> INANCOPAN ', & - ' INANCOCO3 + NO3 --> CO23C4NO3 + 2 NO2 ', & - ' INANCOCO3 --> INANCOCO2H ', & - ' INANCOCO3 --> CO23C4NO3 + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_430 = (/ & - ' INAHCO2H + OH --> HMVKANO3 + HO2 ', & - ' INAHCO3H --> HMVKANO3 + OH + HO2 ', & - ' INAHCO3H + OH --> INAHCO3 ', & - ' INAHPAN --> INAHPCO3 + NO2 ', & - ' INAHPAN + OH --> HMVKANO3 + CO + NO2 + HO2 ', & - ' MMALNACO2H + OH --> CONM2CHO + HO2 ', & - ' MMALNACO2H --> HCOCO2H + MGLYOX + NO2 + HO2 ', & - ' MMALNACO3H + OH --> MMALNACO3 ', & - ' MMALNACO3H --> HCOCO3H + MGLYOX + NO2 + HO2 ', & - ' MMALNAPAN + OH --> CONM2CHO + HO2 + NO3 ', & - ' MMALNAPAN --> MMALNACO3 + NO2 ', & - ' HIEB1O2 + HO2 --> HIEB1OOH ', & - ' HIEB1O2 + NO --> HIEB1O + NO2 ', & - ' HIEB1O2 + NO3 --> HIEB1O + NO2 ', & - ' HIEB1O2 --> HIEB1O ', & - ' HIEB2O2 + HO2 --> HIEB2OOH ', & - ' HIEB2O2 + NO --> HIEB2O + NO2 ', & - ' HIEB2O2 + NO3 --> HIEB2O + NO2 ', & - ' HIEB2O2 --> HIEB2O ', & - ' NC524OOH + OH --> HPNC524CO + HO2 ', & - ' NC524OOH + OH --> NC524O2 ', & - ' NC524OOH --> NC524O + OH ', & - ' NC524NO3 + OH --> DNC524CO + HO2 ', & - ' NC524O --> HMVKNO3 + HCHO + HO2 ', & - ' NC524O --> H13CO2C3 + HOCH2CHO + NO2 ', & - ' NC524OH + OH --> HNC524CO + HO2 ', & - ' C525OOH + OH --> C525O2 ', & - ' C525OOH --> C525O + OH ', & - ' C525O --> H13CO2C3 + HOCH2CO3 ', & - ' HMACO2H + OH --> HCHO + HOCH2CO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_431 = (/ & - ' HMACO3H + OH --> H13CO2C3 + OH + CO ', & - ' HMACO3H + OH --> HMACO3 ', & - ' HMACO3H --> HCHO + HOCH2CO3 + OH ', & - ' HMPAN + OH --> H13CO2C3 + CO + NO3 ', & - ' HMPAN --> HMACO3 + NO2 ', & - ' HMGLYOO + CO --> HOCH2COCHO ', & - ' HMGLYOO + NO --> HOCH2COCHO + NO2 ', & - ' HMGLYOO + NO2 --> HOCH2COCHO + NO3 ', & - ' HMGLYOO + SO2 --> SO3 + HOCH2COCHO ', & - ' HMGLYOO --> HOCH2COCHO + H2O2 ', & - ' HMACROOH + OH --> HMACRO2 ', & - ' HMACROOH --> H13CO2C3 + OH + CO + HO2 ', & - ' HMACROOH --> HMACRO + OH ', & - ' HMACRO --> H13CO2C3 + CO + HO2 ', & - ' H13CO2C3 + OH --> HOCH2COCHO + HO2 ', & - ' H13CO2C3 --> HCHO + HOCH2CO3 + HO2 ', & - ' HMACROH + OH --> HMACRO ', & - ' HMACROH --> H13CO2C3 + CO + 2 HO2 ', & - ' CHOOMCO3 + HO2 --> CHOOCH2O2 + OH ', & - ' CHOOMCO3 + HO2 --> CHOOMCO2H + O3 ', & - ' CHOOMCO3 + HO2 --> CHOOMCO3H ', & - ' CHOOMCO3 + NO --> CHOOCH2O2 + NO2 ', & - ' CHOOMCO3 + NO2 --> CHOOMPAN ', & - ' CHOOMCO3 + NO3 --> CHOOCH2O2 + NO2 ', & - ' CHOOMCO3 --> CHOOCH2O2 ', & - ' CHOOMCO3 --> CHOOMCO2H ', & - ' CO23C4CO3H --> BIACETO2 + OH ', & - ' CO23C4CO3H + OH --> CO23C4CO3 ', & - ' C5PAN9 --> CO23C4CO3 + NO2 ', & - ' C5PAN9 + OH --> CO23C3CHO + CO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_432 = (/ & - ' HO13C3CO3 + HO2 --> HO13C3CO3H ', & - ' HO13C3CO3 + HO2 --> HOC2H4CHO + OH + HO2 ', & - ' HO13C3CO3 + NO --> HOC2H4CHO + NO2 + HO2 ', & - ' HO13C3CO3 + NO2 --> C4PAN2 ', & - ' HO13C3CO3 + NO3 --> HOC2H4CHO + NO2 + HO2 ', & - ' HO13C3CO3 --> HOC2H4CHO + HO2 ', & - ' C5CO23O2 + HO2 --> C5CO23OOH ', & - ' C5CO23O2 + NO --> C5CO23O + NO2 ', & - ' C5CO23O2 + NO3 --> C5CO23O + NO2 ', & - ' C5CO23O2 --> C5CO23O ', & - ' C6CO134OOH + OH --> C5CO34CO3 ', & - ' C6CO134OOH --> C5CO23O2 + OH ', & - ' C6CO134PAN + OH --> C5CO23CHO + CO + NO2 ', & - ' C6CO134PAN --> C5CO34CO3 + NO2 ', & - ' CHOC2CO3 + HO2 --> CHOC2CO2H + O3 ', & - ' CHOC2CO3 + HO2 --> CHOC2CO3H ', & - ' CHOC2CO3 + HO2 --> CHOC2H4O2 + OH ', & - ' CHOC2CO3 + NO --> CHOC2H4O2 + NO2 ', & - ' CHOC2CO3 + NO2 --> CHOC2PAN ', & - ' CHOC2CO3 + NO3 --> CHOC2H4O2 + NO2 ', & - ' CHOC2CO3 --> CHOC2CO2H ', & - ' CHOC2CO3 --> CHOC2H4O2 ', & - 'CHOC3COCO3 + HO2 --> CHOC3COO2 + OH ', & - 'CHOC3COCO3 + HO2 --> CHOC3COOOH ', & - ' CHOC3COCO3 + NO --> CHOC3COO2 + NO2 ', & - 'CHOC3COCO3 + NO2 --> CHOC3COPAN ', & - 'CHOC3COCO3 + NO3 --> CHOC3COO2 + NO2 ', & - ' CHOC3COCO3 --> CHOC3COO2 ', & - 'C5124COCO3 + HO2 --> C5124COO2 + OH ', & - 'C5124COCO3 + HO2 --> C5TRONCO3H ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_433 = (/ & - ' C5124COCO3 + NO --> C5124COO2 + NO2 ', & - 'C5124COCO3 + NO2 --> C5124COPAN ', & - 'C5124COCO3 + NO3 --> C5124COO2 + NO2 ', & - ' C5124COCO3 --> C5124COO2 ', & - 'CO235C6CO3 + HO2 --> C235C6CO3H ', & - 'CO235C6CO3 + HO2 --> CO235C6O2 + OH ', & - ' CO235C6CO3 + NO --> CO235C6O2 + NO2 ', & - 'CO235C6CO3 + NO2 --> C7PAN3 ', & - 'CO235C6CO3 + NO3 --> CO235C6O2 + NO2 ', & - ' CO235C6CO3 --> CO235C6O2 ', & - ' C106OOH + OH --> C106O2 ', & - ' C106OOH --> C106O + OH ', & - ' C106NO3 + OH --> CO235C6CHO + CH3COCH3 + NO2 ', & - ' C106NO3 --> C106O + NO2 ', & - ' C106O --> C716O2 + CH3COCH3 ', & - ' C106OH + OH --> C106O ', & - ' C106OH --> C106O + HO2 ', & - ' NC71O2 + HO2 --> NC71OOH ', & - ' NC71O2 + NO --> NC71O + NO2 ', & - ' NC71O2 + NO3 --> NC71O + NO2 ', & - ' NC71O2 --> NC71O ', & - ' C717OOH + OH --> CO235C6CHO + OH ', & - ' C717OOH --> C717O + OH ', & - ' C717NO3 + OH --> CO235C6CHO + NO2 ', & - ' C717NO3 --> C717O + NO2 ', & - ' C717O --> CO235C6CHO + HO2 ', & - ' C717OH + OH --> CO235C6CHO + HO2 ', & - ' C717OH --> C717O + HO2 ', & - ' C811CO3H + OH --> C811CO3 ', & - ' C811CO3H --> C811O2 + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_434 = (/ & - ' C811O2 + HO2 --> C811OOH ', & - ' C811O2 + NO --> C811NO3 ', & - ' C811O2 + NO --> C811O + NO2 ', & - ' C811O2 + NO3 --> C811O + NO2 ', & - ' C811O2 --> C721CHO ', & - ' C811O2 --> C811O ', & - ' C811O2 --> C811OH ', & - ' PINIC + OH --> C811O2 ', & - ' C811PAN + OH --> C721CHO + CO + NO2 ', & - ' C811PAN --> C811CO3 + NO2 ', & - ' CHOC3COO2 + HO2 --> C413COOOH ', & - ' CHOC3COO2 + NO --> CHOC3COO + NO2 ', & - ' CHOC3COO2 + NO3 --> CHOC3COO + NO2 ', & - ' CHOC3COO2 --> CHOC3COO ', & - ' C921OOH + OH --> C921O2 ', & - ' C921OOH --> C921O + OH ', & - ' C921O --> C922O2 ', & - ' C98OOH + OH --> C98O2 ', & - ' C98OOH --> C98O + OH ', & - ' C98NO3 + OH --> C614CO + CH3COCH3 + NO2 ', & - ' C98NO3 --> C98O + NO2 ', & - ' C98O --> C614O2 + CH3COCH3 ', & - ' C98OH + OH --> C98O ', & - ' C98OH --> C98O + HO2 ', & - ' C86OOH + OH --> C86O2 ', & - ' C86OOH --> C86O + OH ', & - ' C86O --> C511O2 + CH3COCH3 ', & - 'H3C25C6CO3 + HO2 --> H3C25C6O2 + OH ', & - 'H3C25C6CO3 + HO2 --> H3C25CCO2H + O3 ', & - 'H3C25C6CO3 + HO2 --> H3C25CCO3H ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_435 = (/ & - ' H3C25C6CO3 + NO --> H3C25C6O2 + NO2 ', & - 'H3C25C6CO3 + NO2 --> H3C25C6PAN ', & - 'H3C25C6CO3 + NO3 --> H3C25C6O2 + NO2 ', & - ' H3C25C6CO3 --> H3C25C6O2 ', & - ' H3C25C6CO3 --> H3C25CCO2H ', & - ' H3C25C6O2 + HO2 --> H3C25C6OOH ', & - ' H3C25C6O2 + NO --> H3C25C6O + NO2 ', & - ' H3C25C6O2 + NO3 --> H3C25C6O + NO2 ', & - ' H3C25C6O2 --> H3C25C5CHO ', & - ' H3C25C6O2 --> H3C25C6O ', & - ' H3C25C6O2 --> H3C25C6OH ', & - ' C919OOH + OH --> C919O2 ', & - ' C919OOH --> C919O + OH ', & - ' C919NO3 + OH --> CH3COCH3 + 2 HCOCH2CHO + NO2 ', & - ' C919NO3 --> C919O + NO2 ', & - ' C919O --> C620O2 + CH3COCH3 ', & - ' C919OH + OH --> C919O ', & - ' C919OH --> C919O + HO2 ', & - ' C914OOH + OH --> C914CO + OH ', & - ' C914OOH --> C914O + OH ', & - ' C914O --> C87CO3 ', & - ' C914CO + OH --> C87CO3 ', & - ' C914CO --> C87CO3 ', & - ' C914OH + OH --> C914CO + HO2 ', & - ' C916OOH + OH --> C916O2 ', & - ' C916OOH --> C916O + OH ', & - ' C916NO3 + OH --> CO123C5CHO + CH3COCH3 + NO2 ', & - ' C916NO3 --> C916O + NO2 ', & - ' C916O --> C616O2 + CH3COCH3 ', & - ' C916OH + OH --> C916O ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_436 = (/ & - ' C916OH --> C916O + HO2 ', & - ' C88CO2H + OH --> C88O2 ', & - ' C88CO3H + OH --> C88CO3 ', & - ' C88CO3H --> C88O2 + OH ', & - ' C88PAN + OH --> C88CO + CO + NO2 ', & - ' C88PAN --> C88CO3 + NO2 ', & - ' C88OOH + OH --> C88CO + OH ', & - ' C88OOH --> C88O + OH ', & - ' C88O --> C718CO3 ', & - ' C88CO + OH --> C718CO3 ', & - ' C88OH + OH --> C88CO + HO2 ', & - ' C512OOH + OH --> CO13C4CHO + OH ', & - ' C512OOH --> C512O + OH ', & - ' C512NO3 + OH --> CO13C4CHO + NO2 ', & - ' C512NO3 --> C512O + NO2 ', & - ' C512O --> C513O2 ', & - ' C512O --> CO13C3CO2H + HCHO + HO2 ', & - ' C512OH + OH --> CO13C4CHO + HO2 ', & - ' C512OH --> C512O + HO2 ', & - ' C619OOH + OH --> C619CO + OH ', & - ' C619OOH --> C619O + OH ', & - ' C619O --> C512CO3 ', & - ' C619OH + OH --> C619CO + HO2 ', & - ' C810O2 + HO2 --> C810OOH ', & - ' C810O2 + NO --> C810NO3 ', & - ' C810O2 + NO --> C810O + NO2 ', & - ' C810O2 + NO3 --> C810O + NO2 ', & - ' C810O2 --> C810O ', & - ' C810O2 --> C810OH ', & - ' CO25C6CHO + NO3 --> CO25C6CO3 + HNO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_437 = (/ & - ' CO25C6CHO + OH --> CO25C6CO3 ', & - ' CO25C6CHO --> C627O2 + CO + HO2 ', & - ' C818O2 + HO2 --> C818OOH ', & - ' C818O2 + NO --> C818O + NO2 ', & - ' C818O2 + NO3 --> C818O + NO2 ', & - ' C818O2 --> C818CO ', & - ' C818O2 --> C818O ', & - ' C818O2 --> C818OH ', & - ' C727CO3 + HO2 --> C727CO3H ', & - ' C727CO3 + HO2 --> C727O2 + OH ', & - ' C727CO3 + NO --> C727O2 + NO2 ', & - ' C727CO3 + NO2 --> C727PAN ', & - ' C727CO3 + NO3 --> C727O2 + NO2 ', & - ' C727CO3 --> C727O2 ', & - ' C626CO2H + OH --> C626O2 ', & - ' C626CO2H --> C626O2 + HO2 ', & - ' C626CO3H + OH --> C626CO3 ', & - ' C626CO3H --> C626O2 + OH ', & - ' C626PAN + OH --> C517CHO + CO + NO2 ', & - ' C626PAN --> C626CO3 + NO2 ', & - ' C626OOH + OH --> C517CHO + OH ', & - ' C626OOH --> C626O + OH ', & - ' C626NO3 + OH --> C517CHO + NO2 ', & - ' C626NO3 --> C626O + NO2 ', & - ' C626O --> C622CO3 ', & - ' C511CHO + OH --> C511CO3 ', & - ' C517CHO + NO3 --> C517CO3 + HNO3 ', & - ' C517CHO + OH --> C517CO3 ', & - ' C517CHO --> C517O2 + CO + HO2 ', & - ' C735OOH + OH --> C735O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_438 = (/ & - ' C735OOH --> C735O + OH ', & - ' C735OOH --> CO13C4CHO + CH3CO3 + OH ', & - ' C735O --> CO13C4CHO + CH3CO3 ', & - ' C735OH + OH --> C735O ', & - ' C735OH --> CO13C4CHO + CH3CO3 + HO2 ', & - ' NC728O2 + HO2 --> NC728OOH ', & - ' NC728O2 + NO --> NC728O + NO2 ', & - ' NC728O2 + NO3 --> NC728O + NO2 ', & - ' NC728O2 --> NC728O ', & - ' NC728O2 --> NC728OH ', & - ' C628OOA --> C628O2 + OH ', & - ' C728O2 + HO2 --> C728OOH ', & - ' C728O2 + NO --> C728NO3 ', & - ' C728O2 + NO --> C728O + NO2 ', & - ' C728O2 + NO3 --> C728O + NO2 ', & - ' C728O2 --> C728O ', & - ' C728O2 --> C728OH ', & - ' C622O2 + HO2 --> C622OOH ', & - ' C622O2 + NO --> C622NO3 ', & - ' C622O2 + NO --> C622O + NO2 ', & - ' C622O2 + NO3 --> C622O + NO2 ', & - ' C622O2 --> C518CHO ', & - ' C622O2 --> C622O ', & - ' C622O2 --> C622OH ', & - ' C822OOH + OH --> C729CHO + OH ', & - ' C822OOH --> C822O + OH ', & - ' C822NO3 + OH --> C729CHO + NO2 ', & - ' C822NO3 --> C822O + NO2 ', & - ' C822O --> C824O2 ', & - ' C822OH + OH --> C729CHO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_439 = (/ & - ' C823CO3H + OH --> C823CO3 ', & - ' C823CO3H --> C823O2 + OH ', & - ' C823O2 + HO2 --> C823OOH ', & - ' C823O2 + NO --> C823NO3 ', & - ' C823O2 + NO --> C823O + NO2 ', & - ' C823O2 + NO3 --> C823O + NO2 ', & - ' C823O2 --> C823CO ', & - ' C823O2 --> C823O ', & - ' C823O2 --> C823OH ', & - ' LIMONIC + OH --> C823O2 ', & - ' C823PAN + OH --> C823CO + CO + NO2 ', & - ' C823PAN --> C823CO3 + NO2 ', & - ' C925OOH + OH --> C925O2 ', & - ' C925OOH --> C925O + OH ', & - ' C925O --> C818CO + HCHO + HO2 ', & - ' C622CO2H + OH --> C622O2 ', & - ' C622CO3H + OH --> C622CO3 ', & - ' C622CO3H --> C622O2 + OH ', & - ' C622PAN + OH --> C518CHO + CO + NO2 ', & - ' C622PAN --> C622CO3 + NO2 ', & - ' C819O2 + HO2 --> C819OOH ', & - ' C819O2 + NO --> C819O + NO2 ', & - ' C819O2 + NO3 --> C819O + NO2 ', & - ' C819O2 --> C819O ', & - ' C731CO3 + HO2 --> C731CO2 + OH ', & - ' C731CO3 + HO2 --> C731CO2H + O3 ', & - ' C731CO3 + HO2 --> C731CO3H ', & - ' C731CO3 + NO --> C731CO2 + NO2 ', & - ' C731CO3 + NO2 --> C731PAN ', & - ' C731CO3 + NO3 --> C731CO2 + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_440 = (/ & - ' C731CO3 --> C731CO2 ', & - ' C731CO3 --> C731CO2H ', & - ' C1011CO2H + OH --> C1011O2 ', & - ' C1011CO3H + OH --> C1011CO3 ', & - ' C1011CO3H --> C1011O2 + OH ', & - ' C1011O2 + HO2 --> C1011OOH ', & - ' C1011O2 + NO --> C1011NO3 ', & - ' C1011O2 + NO --> C1011O + NO2 ', & - ' C1011O2 + NO3 --> C1011O + NO2 ', & - ' C1011O2 --> C1011CO ', & - ' C1011O2 --> C1011O ', & - ' C1011O2 --> C1011OH ', & - ' C1011PAN + OH --> C1011CO + CO + NO2 ', & - ' C1011PAN --> C1011CO3 + NO2 ', & - ' C1210CO2 --> C1210O2 ', & - ' C1210CO2 --> C1211CO3 ', & - ' C1210CO2H + OH --> C1210CO2 ', & - ' C1210CO3H + OH --> C1210CO3 ', & - ' C1210CO3H --> C1210CO2 + OH ', & - ' C1210PAN + OH --> C116CHO + CO + NO2 ', & - ' C1210PAN --> C1210CO3 + NO2 ', & - ' C132OOH + OH --> C132O2 ', & - ' C132OOH --> C132O + OH ', & - ' C132O --> C133O2 ', & - ' C132OH + OH --> C132O ', & - ' C137CO2H + OH --> C137O2 ', & - ' C137CO3H + OH --> C137CO3 ', & - ' C137CO3H --> C137O2 + OH ', & - ' C137O2 + HO2 --> C137OOH ', & - ' C137O2 + NO --> C137NO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_441 = (/ & - ' C137O2 + NO --> C137O + NO2 ', & - ' C137O2 + NO3 --> C137O + NO2 ', & - ' C137O2 --> C137CO ', & - ' C137O2 --> C137O ', & - ' C137O2 --> C137OH ', & - ' C137PAN + OH --> C137CO + CO + NO2 ', & - ' C137PAN --> C137CO3 + NO2 ', & - ' C1013CO2H + OH --> C1013O2 ', & - ' C1013CO3H + OH --> C1013CO3 ', & - ' C1013CO3H --> C1013O2 + OH ', & - ' C1013O2 + HO2 --> C1013OOH ', & - ' C1013O2 + NO --> C1013NO3 ', & - ' C1013O2 + NO --> C1013O + NO2 ', & - ' C1013O2 + NO3 --> C1013O + NO2 ', & - ' C1013O2 --> C1013CO ', & - ' C1013O2 --> C1013O ', & - ' C1013O2 --> C1013OH ', & - ' C1013PAN + OH --> C1013CO + CO + NO2 ', & - ' C1013PAN --> C1013CO3 + NO2 ', & - ' C1010O2 + HO2 --> C1010OOH ', & - ' C1010O2 + NO --> C1010NO3 ', & - ' C1010O2 + NO --> C1010O + NO2 ', & - ' C1010O2 + NO3 --> C1010O + NO2 ', & - ' C1010O2 --> C1010O ', & - ' C1010O2 --> C1010OH ', & - ' C1312OOH + OH --> C1312CO + OH ', & - ' C1312OOH --> C1312O + OH ', & - ' C1312NO3 + OH --> C1312CO + NO2 ', & - ' C1312NO3 --> C1312O + NO2 ', & - ' C1312O --> C1010O2 + HOC2H4CHO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_442 = (/ & - ' C1312OH + OH --> C1312CO + HO2 ', & - ' C117O2 + HO2 --> C117OOH ', & - ' C117O2 + NO --> C117NO3 ', & - ' C117O2 + NO --> C117O + NO2 ', & - ' C117O2 + NO3 --> C117O + NO2 ', & - ' C117O2 --> C117O ', & - ' C117O2 --> C117OH ', & - ' C830CO3 + HO2 --> C830CO2H + O3 ', & - ' C830CO3 + HO2 --> C830CO3H ', & - ' C830CO3 + HO2 --> C830O2 + OH ', & - ' C830CO3 + NO --> C830O2 + NO2 ', & - ' C830CO3 + NO2 --> C830PAN ', & - ' C830CO3 + NO3 --> C830O2 + NO2 ', & - ' C830CO3 --> C830CO2H ', & - ' C830CO3 --> C830O2 ', & - ' C127OOH + OH --> C127O2 ', & - ' C127OOH --> C127O + OH ', & - ' C127NO3 + OH --> C128CO + NO2 ', & - ' C127NO3 --> C127O + NO2 ', & - ' C127O --> C128O2 ', & - ' C127OH + OH --> C127O ', & - ' C145O2 + HO2 --> C145OOH ', & - ' C145O2 + NO --> C145O + NO2 ', & - ' C145O2 + NO3 --> C145O + NO2 ', & - ' C145O2 --> C145O ', & - ' C145O2 --> C145OH ', & - ' C927O2 + HO2 --> C927OOH ', & - ' C927O2 + NO --> C927NO3 ', & - ' C927O2 + NO --> C927O + NO2 ', & - ' C927O2 + NO3 --> C927O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_443 = (/ & - ' C927O2 --> C927O ', & - ' C927O2 --> C927OH ', & - ' C143OOH + OH --> C143CO + OH ', & - ' C143OOH --> C143O + OH ', & - ' C143NO3 + OH --> C143CO + NO2 ', & - ' C143NO3 --> C143O + NO2 ', & - ' C143O --> C143CO + HO2 ', & - ' C143O --> C927O2 + CO2C4CHO ', & - ' C143OH + OH --> C143CO + HO2 ', & - ' C1214O2 + HO2 --> C1214OOH ', & - ' C1214O2 + NO --> C1214O + NO2 ', & - ' C1214O2 + NO3 --> C1214O + NO2 ', & - ' C1214O2 --> C1214O ', & - ' C1214O2 --> C1214OH ', & - 'CHOC4DOLO2 + HO2 --> ALC4DOLOOH ', & - ' CHOC4DOLO2 + NO --> CHOC4DOLO + NO2 ', & - 'CHOC4DOLO2 + NO3 --> CHOC4DOLO + NO2 ', & - ' CHOC4DOLO2 --> CHOC4DOLO ', & - 'C6TRONOHO2 + HO2 --> C6TONOHOOH ', & - ' C6TRONOHO2 + NO --> C6TRONOHO + NO2 ', & - 'C6TRONOHO2 + NO3 --> C6TRONOHO + NO2 ', & - ' C6TRONOHO2 --> C6TRONOHO ', & - ' HO24C5OOH --> HO24C5O + OH ', & - ' HO24C5OOH + OH --> HO24C4CHO + OH ', & - ' HO24C5OOH + OH --> HO24C5O2 ', & - ' HO24C5NO3 + OH --> HO24C4CHO + NO2 ', & - ' HO24C5O --> HO2C3CHO + HCHO + HO2 ', & - ' HO124C5 + OH --> C51OH + HO2 ', & - ' HO24C4CHO --> HO2C3CHO + CO + 2 HO2 ', & - ' HO24C4CHO + NO3 --> HO24C4CO3 + HNO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_444 = (/ & - ' HO24C4CHO + OH --> HO24C4CO3 ', & - ' C23C54CO3 + HO2 --> C23C54CO3H ', & - ' C23C54CO3 + HO2 --> CO23C54O2 + OH ', & - ' C23C54CO3 + NO --> CO23C54O2 + NO2 ', & - ' C23C54CO3 + NO2 --> C6PAN7 ', & - ' C23C54CO3 + NO3 --> CO23C54O2 + NO2 ', & - ' C23C54CO3 --> CO23C54O2 ', & - ' C55OOH --> C55O + OH ', & - ' C55OOH + OH --> C55O2 ', & - ' C55O --> HCHO + IPRHOCO3 ', & - ' C67CO3H --> C55O2 + OH ', & - ' C67CO3H + OH --> C67CO3 ', & - ' C6PAN9 --> C67CO3 + NO2 ', & - ' C6PAN9 + OH --> MIBKHO4CHO + CO + NO2 ', & - ' C73O2 + HO2 --> C73OOH ', & - ' C73O2 + NO --> C73O + NO2 ', & - ' C73O2 + NO3 --> C73O + NO2 ', & - ' C73O2 --> C73O ', & - ' C74O2 + HO2 --> C74OOH ', & - ' C74O2 + NO --> C74O + NO2 ', & - ' C74O2 + NO3 --> C74O + NO2 ', & - ' C74O2 --> C74O ', & - ' H3M2C4CO3H --> ME3BU2OLO2 + OH ', & - ' H3M2C4CO3H + OH --> H3M2C4CO3 ', & - ' C6PAN20 --> H3M2C4CO3 + NO2 ', & - ' C6PAN20 + OH --> C3M3OH2CHO + CO + NO2 ', & - ' C79OOH --> C79O + OH ', & - ' C79OOH --> CO235C6 + HCHO + OH ', & - ' C79OOH + OH --> C79O2 ', & - ' C79O --> CO235C6 + HCHO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_445 = (/ & - ' C715O2 + HO2 --> C715OOH ', & - ' C715O2 + NO --> C715O + NO2 ', & - ' C715O2 + NO3 --> C715O + NO2 ', & - ' C715O2 --> C715O ', & - ' H3M3C4CO3H --> PROL11MO2 + OH ', & - ' H3M3C4CO3H + OH --> H3M3C4CO3 ', & - ' C6PAN21 --> H3M3C4CO3 + NO2 ', & - ' C6PAN21 + OH --> PROL1MCHO + CO + NO2 ', & - ' H13M3C5OOH --> H13M3C5O + OH ', & - ' H13M3C5OOH + OH --> H13M3CO4C5 + OH ', & - ' H13M3C5NO3 + OH --> H13M3CO4C5 + NO2 ', & - ' H13M3C5O --> MEKAOH + CH3CHO + HO2 ', & - ' H134M3C5 + OH --> H13M3CO4C5 + HO2 ', & - ' H13M3CO4C5 --> CO2C3CHO + CH3CO3 + HO2 ', & - ' H13M3CO4C5 + OH --> C613O2 ', & - ' C83O2 + HO2 --> C83OOH ', & - ' C83O2 + NO --> C83O + NO2 ', & - ' C83O2 + NO3 --> C83O + NO2 ', & - ' C83O2 --> C83O ', & - ' HO4C5CO3H --> PE1ENEBO2 + OH ', & - ' HO4C5CO3H + OH --> HO4C5CO3 ', & - ' C6PAN22 --> HO4C5CO3 + NO2 ', & - ' C6PAN22 + OH --> C4OHCHO + CO + NO2 ', & - ' C95O2 + HO2 --> C95OOH ', & - ' C95O2 + NO --> C95O + NO2 ', & - ' C95O2 + NO3 --> C95O + NO2 ', & - ' C95O2 --> C95O ', & - ' HO5C6CO3H --> HO5C6O2 + OH ', & - ' HO5C6CO3H + OH --> HO5C6CO3 ', & - ' C7PAN2 --> HO5C6CO3 + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_446 = (/ & - ' C7PAN2 + OH --> HO5C5CHO + CO + NO2 ', & - ' C105O2 + HO2 --> C105OOH ', & - ' C105O2 + NO --> C105O + NO2 ', & - ' C105O2 + NO3 --> C105O + NO2 ', & - ' C105O2 --> C105O ', & - ' HO6C7CO3H --> HO6C7O2 + OH ', & - ' HO6C7CO3H + OH --> HO6C7CO3 ', & - ' C8PAN1 --> HO6C7CO3 + NO2 ', & - ' C8PAN1 + OH --> C5H11CHO + HCHO + CO + NO2 ', & - ' C115O2 + HO2 --> C115OOH ', & - ' C115O2 + NO --> C115O + NO2 ', & - ' C115O2 + NO3 --> C115O + NO2 ', & - ' C115O2 --> C115O ', & - ' HO7C8CO3H --> HO7C8O2 + OH ', & - ' HO7C8CO3H + OH --> HO7C8CO3 ', & - ' C9PAN1 --> HO7C8CO3 + NO2 ', & - ' C9PAN1 + OH --> C6H13CHO + HCHO + CO + NO2 ', & - ' C125O2 + HO2 --> C125OOH ', & - ' C125O2 + NO --> C125O + NO2 ', & - ' C125O2 + NO3 --> C125O + NO2 ', & - ' C125O2 --> C125O ', & - ' HO8C9CO3H --> HO8C9O2 + OH ', & - ' HO8C9CO3H + OH --> HO8C9CO3 ', & - ' C10PAN1 --> HO8C9CO3 + NO2 ', & - ' C10PAN1 + OH --> C6H13CHO + CH3CHO + CO + NO2 ', & - ' NC4DCO2 --> MALANHY + NO2 ', & - 'C4CO2DBCO3 + HO2 --> C4CO2DCO3H ', & - 'C4CO2DBCO3 + HO2 --> C33CO + OH + CO + HO2 ', & - ' C4CO2DBCO3 + NO --> C33CO + CO + NO2 + HO2 ', & - 'C4CO2DBCO3 + NO2 --> C4CO2DBPAN ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_447 = (/ & - 'C4CO2DBCO3 + NO3 --> C33CO + CO + NO2 + HO2 ', & - ' C4CO2DBCO3 --> C33CO + CO + HO2 ', & - ' C5COOHCO3H + OH --> C5CO2OHCO3 ', & - ' C5COOHCO3H --> HOCOC4DIAL + OH + CO + HO2 ', & - ' C5CO2OHPAN + OH --> HOCOC4DIAL + 2 CO + NO2 ', & - ' C5CO2OHPAN --> C5CO2OHCO3 + NO2 ', & - 'C5CO2DBCO3 + HO2 --> C5CO2DCO3H ', & - 'C5CO2DBCO3 + HO2 --> C33CO + CH3CO3 + OH ', & - ' C5CO2DBCO3 + NO --> C33CO + CH3CO3 + NO2 ', & - 'C5CO2DBCO3 + NO2 --> C5CO2DBPAN ', & - 'C5CO2DBCO3 + NO3 --> C33CO + CH3CO3 + NO2 ', & - ' C5CO2DBCO3 --> C33CO + CH3CO3 ', & - ' C6COOHCO3H + OH --> C6CO2OHCO3 ', & - ' C6COOHCO3H --> C5134CO2OH + OH + CO + HO2 ', & - ' C6CO2OHPAN + OH --> C5134CO2OH + 2 CO + NO2 ', & - ' C6CO2OHPAN --> C6CO2OHCO3 + NO2 ', & - ' NC4MDCO2 --> MMALANHY + NO2 ', & - ' ACCOMECO3H + OH --> ACCOMECO3 ', & - ' ACCOMECO3H --> MECOACETO2 + OH ', & - ' ACCOMEPAN + OH --> METACETHO + 2 CO + NO2 ', & - ' ACCOMEPAN --> ACCOMECO3 + NO2 ', & - ' C4DBM2CO3 + HO2 --> C4DBM2CO3H ', & - ' C4DBM2CO3 + HO2 --> CO23C3CHO + CH3CO3 + OH ', & - ' C4DBM2CO3 + NO --> CO23C3CHO + CH3CO3 + NO2 ', & - ' C4DBM2CO3 + NO2 --> C4DBM2PAN ', & - ' C4DBM2CO3 + NO3 --> CO23C3CHO + CH3CO3 + NO2 ', & - ' C4DBM2CO3 --> CO23C3CHO + CH3CO3 ', & - ' C5M2OHCO3H + OH --> C5M2OHOCO3 ', & - ' C5M2OHCO3H --> C5134CO2OH + CH3CO3 + OH ', & - ' C5M2OHOPAN + OH --> C5134CO2OH + CH3CO3 + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_448 = (/ & - ' C5M2OHOPAN --> C5M2OHOCO3 + NO2 ', & - ' C5COHOCO3H + OH --> C4COMOHCO3 ', & - ' C5COHOCO3H --> C5CO234 + OH + HO2 ', & - ' C4COMOHPAN + OH --> C5CO234 + CO + NO2 ', & - ' C4COMOHPAN --> C4COMOHCO3 + NO2 ', & - ' C23O3MCO2H + OH --> C23O3MO2 ', & - ' C23O3MCO3H + OH --> C23O3MCO3 ', & - ' C23O3MCO3H --> C23O3MO2 + OH ', & - ' C23O3MCPAN + OH --> ACECOCOCH3 + CO + NO2 ', & - ' C23O3MCPAN --> C23O3MCO3 + NO2 ', & - ' C23O3CCO2H + OH --> MCOCOMOXO2 ', & - ' C23O3CCO3H + OH --> C23O3CCO3 ', & - ' C23O3CCO3H --> MCOCOMOXO2 + OH ', & - ' C23O3CPAN + OH --> C23O3CHO + CO + NO2 ', & - ' C23O3CPAN --> C23O3CCO3 + NO2 ', & - ' C5CO3OH + OH --> C54CO + HO2 ', & - ' C5CO3OH --> C33CO + CH3CO3 + HO2 ', & - ' C7CO2OCO3H + OH --> C7CO2OHCO3 ', & - ' C7CO2OCO3H --> C5CO3OH + CH3CO3 + OH ', & - ' C7CO2OHPAN + OH --> C5CO3OH + CH3CO3 + NO2 ', & - ' C7CO2OHPAN --> C7CO2OHCO3 + NO2 ', & - 'C5DBCO2CO3 + HO2 --> C5DCO2CO3H ', & - 'C5DBCO2CO3 + HO2 --> CO23C3CHO + OH + CO + HO2 ', & - ' C5DBCO2CO3 + NO --> CO23C3CHO + CO + NO2 + HO2 ', & - 'C5DBCO2CO3 + NO2 --> C5DBCO2PAN ', & - 'C5DBCO2CO3 + NO3 --> CO23C3CHO + CO + NO2 + HO2 ', & - ' C5DBCO2CO3 --> CO23C3CHO + CO + HO2 ', & - ' C6MOCOCO3H + OH --> C6MOHCOCO3 ', & - ' C6MOCOCO3H --> DMKCOOH + OH + CO + HO2 ', & - ' C6MOHCOPAN + OH --> DMKCOOH + CO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_449 = (/ & - ' C6MOHCOPAN --> C6MOHCOCO3 + NO2 ', & - 'C7CO2DBCO3 + HO2 --> C33CO + C2H5CO3 + OH ', & - 'C7CO2DBCO3 + HO2 --> C7CO2DCO3H ', & - ' C7CO2DBCO3 + NO --> C33CO + C2H5CO3 + NO2 ', & - 'C7CO2DBCO3 + NO2 --> C7CO2DBPAN ', & - 'C7CO2DBCO3 + NO3 --> C33CO + C2H5CO3 + NO2 ', & - ' C7CO2DBCO3 --> C33CO + C2H5CO3 ', & - ' C7OHO2CO3H + OH --> C7OHCO2CO3 ', & - ' C7OHO2CO3H --> C6134CO2OH + OH + CO + HO2 ', & - ' C7OHCO2PAN + OH --> C6134CO2OH + 2 CO + NO2 ', & - ' C7OHCO2PAN --> C7OHCO2CO3 + NO2 ', & - ' NC4EDCO2 --> EMALANHY + NO2 ', & - ' ECO3CO3H + OH --> ECO3CO3 ', & - ' ECO3CO3H --> C2H5CO3 + OH + 2 CO ', & - ' ECO3PAN + OH --> CH3CHO + 3 CO + NO2 ', & - ' ECO3PAN --> ECO3CO3 + NO2 ', & - 'C8CO2DBCO3 + HO2 --> C33CO + C3H7CO3 + OH ', & - 'C8CO2DBCO3 + HO2 --> C8CO2DCO3H ', & - ' C8CO2DBCO3 + NO --> C33CO + C3H7CO3 + NO2 ', & - 'C8CO2DBCO3 + NO2 --> C8CO2DBPAN ', & - 'C8CO2DBCO3 + NO3 --> C33CO + C3H7CO3 + NO2 ', & - ' C8CO2DBCO3 --> C33CO + C3H7CO3 ', & - ' C8OHO2CO3H + OH --> C8OHCO2CO3 ', & - ' C8OHO2CO3H --> C61CHO + OH + CO + HO2 ', & - ' C8OHCO2PAN + OH --> C61CHO + 2 CO + NO2 ', & - ' C8OHCO2PAN --> C8OHCO2CO3 + NO2 ', & - ' NC4PDCO2 --> PMALANHY + NO2 ', & - 'C8DBCO2CO3 + HO2 --> C8DCO2CO3H ', & - 'C8DBCO2CO3 + HO2 --> C33CO + IPRCO3 + OH ', & - ' C8DBCO2CO3 + NO --> C33CO + IPRCO3 + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_450 = (/ & - 'C8DBCO2CO3 + NO2 --> C8DBCO2PAN ', & - 'C8DBCO2CO3 + NO3 --> C33CO + IPRCO3 + NO2 ', & - ' C8DBCO2CO3 --> C33CO + IPRCO3 ', & - ' C8O2OHCO3H + OH --> C8CO2OHCO3 ', & - ' C8O2OHCO3H --> C62CHO + OH + CO + HO2 ', & - ' C8CO2OHPAN + OH --> C62CHO + 2 CO + NO2 ', & - ' C8CO2OHPAN --> C8CO2OHCO3 + NO2 ', & - ' NC4IPDCO2 --> IPMALANHY + NO2 ', & - ' NDMMALYOOH + OH --> NDMMALYO2 ', & - ' NDMMALYOOH --> NDMMALYO + OH ', & - ' NDMMALYO --> BIACET + CO + NO2 ', & - ' DMMALYOOH + OH --> DMMALYO2 ', & - ' DMMALYOOH --> DMMALYO + OH ', & - ' DMMALYO --> CO2OH3MCO3 ', & - ' DMMALYOH + OH --> DMMALYO ', & - ' C7MOCOCO3H + OH --> C7MOHCOCO3 ', & - ' C7MOCOCO3H --> DMKCOOH + CH3CO3 + OH ', & - ' C7MOHCOPAN + OH --> DMKCOOH + CO + NO2 ', & - ' C7MOHCOPAN --> C7MOHCOCO3 + NO2 ', & - ' C5CO23CHO + OH --> C2H5CO3 + 2 CO ', & - ' C5CO23CHO --> C2H5CO3 + 2 CO + HO2 ', & - ' C5CO23CHO --> C2H5O2 + 2 CO + HO2 ', & - ' C4DBMECO3 + HO2 --> C4DBMECO3H ', & - ' C4DBMECO3 + HO2 --> C5CO23CHO + CH3CO3 + OH ', & - ' C4DBMECO3 + NO --> C5CO23CHO + CH3CO3 + NO2 ', & - ' C4DBMECO3 + NO2 --> C4DBMEPAN ', & - ' C4DBMECO3 + NO3 --> C5CO23CHO + CH3CO3 + NO2 ', & - ' C4DBMECO3 --> C5CO23CHO + CH3CO3 ', & - ' C5MEJCO3H + OH --> C5MEJCO3 ', & - ' C5MEJCO3H --> C6134CO2OH + CH3CO3 + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_451 = (/ & - ' C5MEJPAN + OH --> C6134CO2OH + CH3CHO + NO2 ', & - ' C5MEJPAN --> C5MEJCO3 + NO2 ', & - ' C5DBECO3 + HO2 --> C5DBECO3H ', & - ' C5DBECO3 + HO2 --> CO234C6 + OH + CO + HO2 ', & - ' C5DBECO3 + NO --> CO234C6 + CO + NO2 + HO2 ', & - ' C5DBECO3 + NO2 --> C5DBEPAN ', & - ' C5DBECO3 + NO3 --> CO234C6 + CO + NO2 + HO2 ', & - ' C5DBECO3 --> CO234C6 + CO + HO2 ', & - ' C6EO2HCO3H + OH --> C6EO2OHCO3 ', & - ' C6EO2HCO3H --> C5CO3OH + C2H5CO3 + OH ', & - ' C6EO2OHPAN + OH --> C5CO3OH + C2H5CHO + NO2 ', & - ' C6EO2OHPAN --> C6EO2OHCO3 + NO2 ', & - ' C5EDBCO3 + HO2 --> C5EDBCO3H ', & - ' C5EDBCO3 + HO2 --> C2H5CO3 + CO23C3CHO + OH ', & - ' C5EDBCO3 + NO --> C2H5CO3 + CO23C3CHO + NO2 ', & - ' C5EDBCO3 + NO2 --> C5EDBPAN ', & - ' C5EDBCO3 + NO3 --> C2H5CO3 + CO23C3CHO + NO2 ', & - ' C5EDBCO3 --> C2H5CO3 + CO23C3CHO ', & - ' C7MJPCO3H + OH --> C7MJPCO3 ', & - ' C7MJPCO3H --> C7EDCCO + OH + CO + HO2 ', & - ' C7MJPPAN + OH --> C7EDCCO + CO + NO2 ', & - ' C7MJPPAN --> C7MJPCO3 + NO2 ', & - ' C23O3ECO2H + OH --> C23O3EO2 ', & - ' C23O3ECO3H + OH --> C23O3ECO3 ', & - ' C23O3ECO3H --> C23O3EO2 + OH ', & - ' C23O3ECPAN + OH --> C23O3EHO + CO + NO2 ', & - ' C23O3ECPAN --> C23O3ECO3 + NO2 ', & - ' EMPONO2OOH + OH --> EMPOHNO2O2 ', & - ' EMPONO2OOH --> EMPOHNO2O + OH ', & - ' EMPOHNO2O --> C3EODBCO2H + CH3O2 + CO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_452 = (/ & - ' C531CO + OH --> C31CO3 + CO ', & - ' C531CO --> C31CO3 + CO + HO2 ', & - ' C31CO3 + HO2 --> C31CO3H ', & - ' C31CO3 + HO2 --> CHOOCHO + OH + CO + HO2 ', & - ' C31CO3 + NO --> CHOOCHO + CO + NO2 + HO2 ', & - ' C31CO3 + NO2 --> C31PAN ', & - ' C31CO3 + NO3 --> CHOOCHO + CO + NO2 + HO2 ', & - ' C31CO3 --> CHOOCHO + CO + HO2 ', & - ' C533O2 + HO2 --> C533OOH ', & - ' C533O2 + NO --> C533O + NO2 ', & - ' C533O2 + NO3 --> C533O + NO2 ', & - ' C533O2 --> C533O ', & - ' C47CO3H + OH --> C47CO3 ', & - ' C47CO3H --> CH3COCO3H + GLYOX + NO2 + HO2 ', & - ' C47PAN + OH --> CO2N3CHO + CO + NO3 ', & - ' C47PAN --> C47CO3 + NO2 ', & - ' INB1HPCO2H + OH --> MACRNO3 + OH ', & - ' INB1HPCO3H + OH --> INB1HPCO3 ', & - ' INB1HPCO3H --> MACRNO3 + 2 OH ', & - ' INB1HPPAN + OH --> MACRNO3 + OH + CO + NO2 ', & - ' INB1HPPAN --> INB1HPCO3 + NO2 ', & - ' INB1NACO2H + OH --> MACRNO3 + NO2 ', & - ' INB1NACO3H + OH --> INB1NACO3 ', & - ' INB1NACO3H --> MACRNO3 + OH + NO2 ', & - ' INB1NAPAN + OH --> MACRNO3 + CO + 2 NO2 ', & - ' INB1NAPAN --> INB1NACO3 + NO2 ', & - ' INB1NBCO2H + OH --> MVKNO3 + NO2 ', & - ' INB1NBCO3H + OH --> INB1NBCO3 ', & - ' INB1NBCO3H --> MVKNO3 + OH + NO2 ', & - ' INB1NBPAN + OH --> MVKNO3 + CO + 2 NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_453 = (/ & - ' INB1NBPAN --> INB1NBCO3 + NO2 ', & - ' MMALNBCO2H + OH --> CO2H3CHO + NO2 ', & - ' MMALNBCO2H --> CH3COCO2H + GLYOX + NO2 + HO2 ', & - ' MMALNBCO3H + OH --> MMALNBCO3 ', & - ' MMALNBCO3H --> CH3COCO3H + GLYOX + NO2 + HO2 ', & - ' MMALNBPAN + OH --> CO2H3CHO + NO2 + NO3 ', & - ' MMALNBPAN --> MMALNBCO3 + NO2 ', & - ' INDHPCO3H + OH --> INDHPCO3 ', & - ' INDHPCO3H --> MVKNO3 + 2 OH ', & - ' INDHPPAN + OH --> MVKNO3 + NO3 ', & - ' INDHPPAN --> INDHPCO3 + NO2 ', & - ' INANCOCO2H --> CH3COCO2H + NO3CH2CO3 + NO2 ', & - ' INANCOCO2H + OH --> CO23C4NO3 + NO2 ', & - ' INANCOCO3H --> CH3COCO3H + NO3CH2CO3 + NO2 ', & - ' INANCOCO3H + OH --> INANCOCO3 ', & - ' INANCOPAN --> INANCOCO3 + NO2 ', & - ' INANCOPAN + OH --> CO23C4NO3 + NO3 ', & - ' HIEB1OOH + OH --> MVKOHAOH + OH + CO ', & - ' HIEB1OOH --> HIEB1O + OH ', & - ' HIEB1OOH --> MVKOHAOH + OH + CO + HO2 ', & - ' HIEB1O --> HOCH2COCHO + HOCH2CHO + HO2 ', & - ' HIEB2OOH + OH --> HMACROH + OH + CO ', & - ' HIEB2OOH --> HIEB2O + OH ', & - ' HIEB2OOH --> HMACROH + OH + CO + HO2 ', & - ' HIEB2O --> H13CO2C3 + GLYOX + HO2 ', & - ' HPNC524CO + OH --> HMVKNO3 + OH + CO ', & - ' HPNC524CO --> HOCH2COCHO + HOCH2CHO + OH + NO2 ', & - ' DNC524CO + OH --> HMVKNO3 + CO + NO2 ', & - ' DNC524CO --> HMVKNO3 + CO + NO2 + HO2 ', & - ' HMVKNO3 + OH --> HMVKNGLYOX + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_454 = (/ & - ' HMVKNO3 --> HOCH2CHO + 2 CO + NO2 + HO2 ', & - ' HNC524CO + OH --> HMVKNO3 + CO + HO2 ', & - ' HNC524CO --> HOCH2COCHO + HOCH2CHO + NO2 + HO2 ', & - ' CHOOMCO2H + OH --> CHOOCH2O2 ', & - ' CHOOMCO3H + OH --> CHOOMCO3 ', & - ' CHOOMCO3H --> CHOOCH2O2 + OH ', & - ' CHOOMPAN + OH --> CHOOCHO + CO + NO2 ', & - ' CHOOMPAN --> CHOOMCO3 + NO2 ', & - ' HO13C3CO3H --> HOC2H4CHO + OH + HO2 ', & - ' HO13C3CO3H + OH --> HO13C3CO3 ', & - ' C4PAN2 --> HO13C3CO3 + NO2 ', & - ' C4PAN2 + OH --> HOC2H4CHO + CO + NO2 ', & - ' C5CO23OOH + OH --> C5CO23O2 ', & - ' C5CO23OOH --> C5CO23O + OH ', & - ' C5CO23O --> C2H5CO3 + HCHO + CO ', & - ' CHOC2CO2H + OH --> CHOC2H4O2 ', & - ' CHOC2CO3H + OH --> CHOC2CO3 ', & - ' CHOC2CO3H --> CHOC2H4O2 + OH ', & - ' CHOC2PAN + OH --> HCOCH2CHO + CO + NO2 ', & - ' CHOC2PAN --> CHOC2CO3 + NO2 ', & - ' CHOC3COOOH + OH --> CHOC3COCO3 ', & - ' CHOC3COOOH --> CHOC3COO2 + OH ', & - ' CHOC3COPAN + OH --> C4CODIAL + CO + NO2 ', & - ' CHOC3COPAN --> CHOC3COCO3 + NO2 ', & - ' C5124COO2 + HO2 --> C5124COOOH ', & - ' C5124COO2 + NO --> C5124COO + NO2 ', & - ' C5124COO2 + NO3 --> C5124COO + NO2 ', & - ' C5124COO2 --> C5124COO ', & - ' C5TRONCO3H + OH --> C5124COCO3 ', & - ' C5TRONCO3H --> C5124COO2 + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_455 = (/ & - ' C5124COPAN + OH --> C4CODIAL + 2 CO + NO2 ', & - ' C5124COPAN --> C5124COCO3 + NO2 ', & - ' C235C6CO3H + OH --> CO235C6CO3 ', & - ' C235C6CO3H --> CO235C6O2 + OH ', & - ' CO235C6O2 + HO2 --> CO235C6OOH ', & - ' CO235C6O2 + NO --> CO235C6O + NO2 ', & - ' CO235C6O2 + NO3 --> CO235C6O + NO2 ', & - ' CO235C6O2 --> CO235C6O ', & - ' C7PAN3 + OH --> CO235C5CHO + CO + NO2 ', & - ' C7PAN3 --> CO235C6CO3 + NO2 ', & - ' C716O2 + HO2 --> C716OOH ', & - ' C716O2 + NO --> C716O + NO2 ', & - ' C716O2 + NO3 --> C716O + NO2 ', & - ' C716O2 --> C716O ', & - ' C716O2 --> C716OH ', & - ' C716O2 --> CO235C6CHO ', & - ' NC71OOH + OH --> NC71O2 ', & - ' NC71OOH --> NC71O + OH ', & - ' NC71O --> CO235C6CHO + NO2 ', & - ' NC71O --> NC71CO + HO2 ', & - ' C811OOH + OH --> C721CHO + OH ', & - ' C811OOH --> C811O + OH ', & - ' C811NO3 + OH --> C721CHO + NO2 ', & - ' C811NO3 --> C811O + NO2 ', & - ' C811O --> C812O2 ', & - ' C721CHO + NO3 --> C721CO3 + HNO3 ', & - ' C721CHO + OH --> C721CO3 ', & - ' C721CHO --> C721O2 + CO + HO2 ', & - ' C811OH + OH --> C721CHO + HO2 ', & - ' C413COOOH + OH --> CHOC3COO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_456 = (/ & - ' C413COOOH --> CHOC3COO + OH ', & - ' CHOC3COO --> HCOCH2CO3 + HCHO ', & - ' C922O2 + HO2 --> C922OOH ', & - ' C922O2 + NO --> C922O + NO2 ', & - ' C922O2 + NO3 --> C922O + NO2 ', & - ' C922O2 --> C922O ', & - ' C614CO + OH --> CO235C5CHO + HO2 ', & - ' C614CO --> BIACETO2 + HOCH2CO3 ', & - ' C614O2 + HO2 --> C614OOH ', & - ' C614O2 + NO --> C614NO3 ', & - ' C614O2 + NO --> C614O + NO2 ', & - ' C614O2 + NO3 --> C614O + NO2 ', & - ' C614O2 --> C614CO ', & - ' C614O2 --> C614O ', & - ' C614O2 --> C614OH ', & - ' C511O2 + HO2 --> C511OOH ', & - ' C511O2 + NO --> C511O + NO2 ', & - ' C511O2 + NO3 --> C511O + NO2 ', & - ' C511O2 --> C511O ', & - ' H3C25CCO2H + OH --> H3C25C6O2 ', & - ' H3C25CCO2H --> H3C25C6O2 + HO2 ', & - ' H3C25CCO3H + OH --> H3C25C6CO3 ', & - ' H3C25CCO3H --> H3C25C6O2 + OH ', & - ' H3C25C6PAN + OH --> H3C25C5CHO + CO + NO2 ', & - ' H3C25C6PAN --> H3C25C6CO3 + NO2 ', & - ' H3C25C6OOH + OH --> H3C25C5CHO + OH ', & - ' H3C25C6OOH --> H3C25C6O + OH ', & - ' H3C25C6O --> H3C2C4CO3 + HCHO ', & - ' H3C25C5CHO + OH --> H3C2C4CO3 + CO ', & - ' H3C25C5CHO --> H3C2C4CO3 + CO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_457 = (/ & - ' H3C25C6OH + OH --> C614CO + HO2 ', & - ' H3C25C6OH + OH --> H3C25C5CHO + HO2 ', & - ' H3C25C6OH --> HMVKAO2 + HOCH2CO3 ', & - ' C620O2 + HO2 --> C620OOH ', & - ' C620O2 + NO --> C620O + NO2 ', & - ' C620O2 + NO3 --> C620O + NO2 ', & - ' C620O2 --> C515CHO ', & - ' C620O2 --> C620O ', & - ' C620O2 --> C620OH ', & - ' C87CO3 + HO2 --> C87CO2H + O3 ', & - ' C87CO3 + HO2 --> C87CO3H ', & - ' C87CO3 + HO2 --> C87O2 + OH ', & - ' C87CO3 + NO --> C87O2 + NO2 ', & - ' C87CO3 + NO2 --> C87PAN ', & - ' C87CO3 + NO3 --> C87O2 + NO2 ', & - ' C87CO3 --> C87CO2H ', & - ' C87CO3 --> C87O2 ', & - 'CO123C5CHO + NO3 --> CHOC2CO3 + HNO3 + 2 CO ', & - ' CO123C5CHO + OH --> CHOC2CO3 + 2 CO ', & - ' CO123C5CHO --> CHOC2CO3 + 2 CO + HO2 ', & - ' C616O2 + HO2 --> C616OOH ', & - ' C616O2 + NO --> C616O + NO2 ', & - ' C616O2 + NO3 --> C616O + NO2 ', & - ' C616O2 --> C616O ', & - ' C616O2 --> C616OH ', & - ' C616O2 --> CO123C5CHO ', & - ' C718CO3 + HO2 --> C718CO2H + O3 ', & - ' C718CO3 + HO2 --> C718CO3H ', & - ' C718CO3 + HO2 --> C718O2 + OH ', & - ' C718CO3 + NO --> C718O2 + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_458 = (/ & - ' C718CO3 + NO2 --> C718PAN ', & - ' C718CO3 + NO3 --> C718O2 + NO2 ', & - ' C718CO3 --> C718CO2H ', & - ' C718CO3 --> C718O2 ', & - ' C513O2 + HO2 --> C513OOH ', & - ' C513O2 + NO --> C513O + NO2 ', & - ' C513O2 + NO3 --> C513O + NO2 ', & - ' C513O2 --> C513CO ', & - ' C513O2 --> C513O ', & - ' C513O2 --> C513OH ', & - ' CO13C3CO2H + OH --> HCOCH2CO3 ', & - ' CO13C3CO2H --> HCOCH2CO3 + HO2 ', & - ' C810OOH + OH --> C810O2 ', & - ' C810OOH --> C810O + OH ', & - ' C810NO3 + OH --> CO13C4CHO + CH3COCH3 + NO2 ', & - ' C810NO3 --> C810O + NO2 ', & - ' C810O --> C514O2 + CH3COCH3 ', & - ' C810OH + OH --> C810O ', & - ' C810OH --> C810O + HO2 ', & - ' CO25C6CO3 + HO2 --> C627O2 + OH ', & - ' CO25C6CO3 + HO2 --> CO25C6CO2H + O3 ', & - ' CO25C6CO3 + HO2 --> CO25C6CO3H ', & - ' CO25C6CO3 + NO --> C627O2 + NO2 ', & - ' CO25C6CO3 + NO2 --> C627PAN ', & - ' CO25C6CO3 + NO3 --> C627O2 + NO2 ', & - ' CO25C6CO3 --> C627O2 ', & - ' C627O2 + HO2 --> C627OOH ', & - ' C627O2 + NO --> C627O + NO2 ', & - ' C627O2 + NO3 --> C627O + NO2 ', & - ' C627O2 --> C627O ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_459 = (/ & - ' C627O2 --> C627OH ', & - ' C627O2 --> CO2C4GLYOX ', & - ' C818OOH + OH --> C818CO + OH ', & - ' C818OOH --> C517CHO + CH3CO3 + OH ', & - ' C818OOH --> C818O + OH ', & - ' C818O --> C517CHO + CH3CO3 ', & - ' C818CO + OH --> C820O2 ', & - ' C818OH + OH --> C818CO + HO2 ', & - ' C818OH --> C517CHO + CH3CO3 + HO2 ', & - ' C727CO3H + OH --> C727CO3 ', & - ' C727CO3H --> C727O2 + OH ', & - ' C727O2 + HO2 --> C727OOH ', & - ' C727O2 + NO --> C727O + NO2 ', & - ' C727O2 + NO3 --> C727O + NO2 ', & - ' C727O2 --> C727O ', & - ' C727PAN + OH --> C727CO + CO + NO2 ', & - ' C727PAN --> C727CO3 + NO2 ', & - ' C511CO3 + HO2 --> C511CO3H ', & - ' C511CO3 + HO2 --> C511O2 + OH ', & - ' C511CO3 + NO --> C511O2 + NO2 ', & - ' C511CO3 + NO2 --> C511PAN ', & - ' C511CO3 + NO3 --> C511O2 + NO2 ', & - ' C511CO3 --> C511O2 ', & - ' C517CO3 + HO2 --> C517CO2H + O3 ', & - ' C517CO3 + HO2 --> C517CO3H ', & - ' C517CO3 + HO2 --> C517O2 + OH ', & - ' C517CO3 + NO --> C517O2 + NO2 ', & - ' C517CO3 + NO2 --> C517PAN ', & - ' C517CO3 + NO3 --> C517O2 + NO2 ', & - ' C517CO3 --> C517CO2H ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_460 = (/ & - ' C517CO3 --> C517O2 ', & - ' C517O2 + HO2 --> C517OOH ', & - ' C517O2 + NO --> C517NO3 ', & - ' C517O2 + NO --> C517O + NO2 ', & - ' C517O2 + NO3 --> C517O + NO2 ', & - ' C517O2 --> C517O ', & - ' C517O2 --> C517OH ', & - ' C517O2 --> HMVKBCHO ', & - ' NC728OOH + OH --> NC728O2 ', & - ' NC728OOH --> NC728O + OH ', & - ' NC728O --> C517CHO + HCHO + NO2 ', & - ' NC728OH + OH --> C517CHO + HCHO + NO2 ', & - ' C628O2 + HO2 --> C628OOH ', & - ' C628O2 + NO --> C628O + NO2 ', & - ' C628O2 + NO3 --> C628O + NO2 ', & - ' C628O2 --> C628O ', & - ' C628O2 --> C628OH ', & - ' C728OOH + OH --> C728O2 ', & - ' C728OOH --> C728O + OH ', & - ' C728NO3 + OH --> C517CHO + HCHO + NO2 ', & - ' C728O --> C517CHO + HCHO + HO2 ', & - ' C728OH + OH --> C517CHO + HCHO + HO2 ', & - ' C622OOH + OH --> C518CHO + OH ', & - ' C622OOH --> C622O + OH ', & - ' C622NO3 + OH --> C518CHO + NO2 ', & - ' C622NO3 --> C622O + NO2 ', & - ' C622O --> C518CHO + HO2 ', & - ' C518CHO + NO3 --> C518CO3 + HNO3 ', & - ' C518CHO + NO3 --> NC623O2 ', & - ' C518CHO + O3 --> C520OOA + HCHO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_461 = (/ & - ' C518CHO + O3 --> CH2OOF + HMVKBCHO ', & - ' C518CHO + OH --> C518CO3 ', & - ' C518CHO + OH --> C623O2 ', & - ' C518CHO --> ISOPDO2 + CO + HO2 ', & - ' C622OH + OH --> C518CHO + HO2 ', & - ' C824O2 + HO2 --> C824OOH ', & - ' C824O2 + NO --> C824O + NO2 ', & - ' C824O2 + NO3 --> C824O + NO2 ', & - ' C824O2 --> C824CO ', & - ' C824O2 --> C824O ', & - ' C824O2 --> C824OH ', & - ' C823OOH + OH --> C823CO + OH ', & - ' C823OOH --> C823O + OH ', & - ' C823NO3 + OH --> C823CO + NO2 ', & - ' C823NO3 --> C823O + NO2 ', & - ' C823O --> C825O2 ', & - ' C823CO + OH --> C825O2 ', & - ' C823CO --> C825O2 + HO2 ', & - ' C823OH + OH --> C823CO + HO2 ', & - ' C819OOH + OH --> C819O2 ', & - ' C819OOH --> C819O + OH ', & - ' C819O --> CO2C4CO3 + ACETOL ', & - ' C731CO2 --> C731O2 ', & - ' C731CO2 --> C732CO3 ', & - ' C731CO2H + OH --> C731CO2 ', & - ' C731CO3H + OH --> C731CO3 ', & - ' C731CO3H --> C731CO2 + OH ', & - ' C731PAN + OH --> C626CHO + CO + NO2 ', & - ' C731PAN --> C731CO3 + NO2 ', & - ' C1011OOH + OH --> C1011CO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_462 = (/ & - ' C1011OOH --> C1011O + OH ', & - ' C1011NO3 + OH --> C1011CO + NO2 ', & - ' C1011NO3 --> C1011O + NO2 ', & - ' C1011O --> C1012O2 ', & - ' C1011CO + OH --> C1012O2 ', & - ' C1011OH + OH --> C1011CO + HO2 ', & - ' C1211CO3 + HO2 --> C1211CO2H + O3 ', & - ' C1211CO3 + HO2 --> C1211CO3H ', & - ' C1211CO3 + HO2 --> C1211O2 + OH ', & - ' C1211CO3 + NO --> C1211O2 + NO2 ', & - ' C1211CO3 + NO2 --> C1211PAN ', & - ' C1211CO3 + NO3 --> C1211O2 + NO2 ', & - ' C1211CO3 --> C1211CO2H ', & - ' C1211CO3 --> C1211O2 ', & - ' C133O2 + HO2 --> C133OOH ', & - ' C133O2 + NO --> C133NO3 ', & - ' C133O2 + NO --> C133O + NO2 ', & - ' C133O2 + NO3 --> C133O + NO2 ', & - ' C133O2 --> C133CO ', & - ' C133O2 --> C133O ', & - ' C133O2 --> C133OH ', & - ' C137OOH + OH --> C137CO + OH ', & - ' C137OOH --> C137O + OH ', & - ' C137NO3 + OH --> C137CO + NO2 ', & - ' C137NO3 --> C137O + NO2 ', & - ' C137O --> C139O2 ', & - ' C137CO + OH --> C139O2 ', & - ' C137CO --> C139O2 + HO2 ', & - ' C137OH + OH --> C137CO + HO2 ', & - ' C1013OOH + OH --> C1013CO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_463 = (/ & - ' C1013OOH --> C1013O + OH ', & - ' C1013NO3 + OH --> C1013CO + NO2 ', & - ' C1013NO3 --> C1013O + NO2 ', & - ' C1013O --> C1014O2 ', & - ' C1013CO + OH --> C1014O2 ', & - ' C1013OH + OH --> C1013CO + HO2 ', & - ' C1010OOH + OH --> C736CO + CH3COCH3 + OH ', & - ' C1010OOH --> C1010O + OH ', & - ' C1010NO3 + OH --> C736CO + CH3COCH3 + NO2 ', & - ' C1010NO3 --> C1010O + NO2 ', & - ' C1010O --> C736O2 + CH3COCH3 ', & - ' C1010OH + OH --> C736CO + CH3COCH3 + HO2 ', & - ' C117OOH + OH --> C117O2 ', & - ' C117OOH --> C117O + OH ', & - ' C117NO3 + OH --> C118CO + NO2 ', & - ' C117NO3 --> C117O + NO2 ', & - ' C117O --> C118O2 ', & - ' C117OH + OH --> C117O ', & - ' C830CO2H + OH --> C830O2 ', & - ' C830CO3H + OH --> C830CO3 ', & - ' C830CO3H --> C830O2 + OH ', & - ' C830O2 + HO2 --> C830OOH ', & - ' C830O2 + NO --> C830NO3 ', & - ' C830O2 + NO --> C830O + NO2 ', & - ' C830O2 + NO3 --> C830O + NO2 ', & - ' C830O2 --> C830CO ', & - ' C830O2 --> C830O ', & - ' C830O2 --> C830OH ', & - ' C830PAN + OH --> C830CO + CO + NO2 ', & - ' C830PAN --> C830CO3 + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_464 = (/ & - ' C128CO + OH --> C927O2 + HCOCH2CHO ', & - ' C128CO --> C927O2 + HCOCH2CO3 ', & - ' C128O2 + HO2 --> C128OOH ', & - ' C128O2 + NO --> C128NO3 ', & - ' C128O2 + NO --> C128O + NO2 ', & - ' C128O2 + NO3 --> C128O + NO2 ', & - ' C128O2 --> C128CO ', & - ' C128O2 --> C128O ', & - ' C128O2 --> C128OH ', & - ' C145OOH + OH --> C145O2 ', & - ' C145OOH --> C145O + OH ', & - ' C145O --> HO14CO2C4 + C928CO3 ', & - ' C145OH + OH --> C145O ', & - ' C927OOH + OH --> C927O2 ', & - ' C927OOH --> C927O + OH ', & - ' C927NO3 + OH --> C630CO + CH3COCH3 + NO2 ', & - ' C927NO3 --> C927O + NO2 ', & - ' C927O --> C630O2 + CH3COCH3 ', & - ' C927OH + OH --> C927O ', & - ' C1214OOH + OH --> C1215CO + OH ', & - ' C1214OOH --> C1214O + OH ', & - ' C1214O --> C1215O2 ', & - ' C1214OH + OH --> C1215CO + HO2 ', & - ' ALC4DOLOOH + OH --> CHOC4DOLO2 ', & - ' ALC4DOLOOH --> CHOC3DIOL + OH + CO + HO2 ', & - ' ALC4DOLOOH --> CHOC4DOLO + OH ', & - ' CHOC4DOLO --> CHOC3DIOL + CO + HO2 ', & - ' C6TONOHOOH + OH --> C6TRONOHO2 ', & - ' C6TONOHOOH --> C6TRONOHO + OH ', & - ' C6TRONOHO --> HCOCH2CHO + HOCH2CO3 + CO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_465 = (/ & - ' HO24C4CO3 + HO2 --> HO24C4CO3H ', & - ' HO24C4CO3 + HO2 --> HO2C3CHO + OH + HO2 ', & - ' HO24C4CO3 + NO --> HO2C3CHO + NO2 + HO2 ', & - ' HO24C4CO3 + NO2 --> C5PAN10 ', & - ' HO24C4CO3 + NO3 --> HO2C3CHO + NO2 + HO2 ', & - ' HO24C4CO3 --> HO2C3CHO + HO2 ', & - ' C23C54CO3H --> CO23C54O2 + OH ', & - ' C23C54CO3H + OH --> C23C54CO3 ', & - ' C6PAN7 --> C23C54CO3 + NO2 ', & - ' C6PAN7 + OH --> C5CO234 + CO + NO2 ', & - ' C73OOH --> C73O + OH ', & - ' C73OOH --> CO23C4CO3 + CH3CHO + OH ', & - ' C73OOH + OH --> C73O2 ', & - ' C73O --> CO23C4CO3 + CH3CHO ', & - ' C74OOH --> C74O + OH ', & - ' C74OOH --> CO2C3CO3 + CH3CHO + OH + CO ', & - ' C74OOH + OH --> C74O2 ', & - ' C74O --> CO2C3CO3 + CH3CHO + CO ', & - ' C715OOH --> C715O + OH ', & - ' C715OOH --> C5CO234 + CH3CO3 + OH ', & - ' C715OOH + OH --> C715O2 ', & - ' C715O --> BIACET + CH3CO3 + CO ', & - ' C613O2 + HO2 --> C613OOH ', & - ' C613O2 + NO --> C613O + NO2 ', & - ' C613O2 + NO3 --> C613O + NO2 ', & - ' C613O2 --> C613O ', & - ' C83OOH --> C83O + OH ', & - ' C83OOH + OH --> C83O2 ', & - ' C83O --> EGLYOX + C2H5CO3 + CO ', & - ' C95OOH --> C95O + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_466 = (/ & - ' C95OOH + OH --> C95O2 ', & - ' C95O --> C3H7CO3 + EGLYOX + CO ', & - ' C105OOH --> C105O + OH ', & - ' C105OOH + OH --> C105O2 ', & - ' C105O --> C4H9CO3 + EGLYOX + CO ', & - ' C115OOH --> C115O + OH ', & - ' C115OOH + OH --> C115O2 ', & - ' C115O --> C5H11CO3 + EGLYOX + CO ', & - ' C125OOH --> C125O + OH ', & - ' C125OOH + OH --> C125O2 ', & - ' C125O --> C6H13CO3 + EGLYOX + CO ', & - ' C4CO2DCO3H + OH --> C4CO2DBCO3 ', & - ' C4CO2DCO3H --> C33CO + OH + CO + HO2 ', & - ' C4CO2DBPAN + OH --> C33CO + CO + NO2 ', & - ' C4CO2DBPAN --> C4CO2DBCO3 + NO2 ', & - ' C5CO2DCO3H + OH --> C5CO2DBCO3 ', & - ' C5CO2DCO3H --> C33CO + CH3CO3 + OH ', & - ' C5CO2DBPAN + OH --> C33CO + CH3CHO + NO2 ', & - ' C5CO2DBPAN --> C5CO2DBCO3 + NO2 ', & - ' C4DBM2CO3H + OH --> C4DBM2CO3 ', & - ' C4DBM2CO3H --> CO23C3CHO + CH3CO3 + OH ', & - ' C4DBM2PAN + OH --> CO23C3CHO + CH3CO3 + NO2 ', & - ' C4DBM2PAN --> C4DBM2CO3 + NO2 ', & - ' C23O3CHO + NO3 --> HNO3 + CH3CO3 + CO ', & - ' C23O3CHO + OH --> CH3CO3 + CO ', & - ' C23O3CHO --> CH3CO3 + CO + HO2 ', & - ' C5DCO2CO3H + OH --> C5DBCO2CO3 ', & - ' C5DCO2CO3H --> CO23C3CHO + OH + CO + HO2 ', & - ' C5DBCO2PAN + OH --> CO23C3CHO + CO + NO2 ', & - ' C5DBCO2PAN --> C5DBCO2CO3 + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_467 = (/ & - ' C7CO2DCO3H + OH --> C7CO2DBCO3 ', & - ' C7CO2DCO3H --> C33CO + C2H5CO3 + OH ', & - ' C7CO2DBPAN + OH --> C33CO + C2H5CHO + NO2 ', & - ' C7CO2DBPAN --> C7CO2DBCO3 + NO2 ', & - ' EMALANHY + OH --> EMALANHYO2 ', & - ' C8CO2DCO3H + OH --> C8CO2DBCO3 ', & - ' C8CO2DCO3H --> C33CO + C3H7CO3 + OH ', & - ' C8CO2DBPAN + OH --> C33CO + C3H7CHO + NO2 ', & - ' C8CO2DBPAN --> C8CO2DBCO3 + NO2 ', & - ' PMALANHY + OH --> PMALANHYO2 ', & - ' C8DCO2CO3H + OH --> C8CO2DBCO3 ', & - ' C8DCO2CO3H --> C33CO + IPRCO3 + OH ', & - ' C8DBCO2PAN + OH --> C33CO + IPRCHO + NO2 ', & - ' C8DBCO2PAN --> C8DBCO2CO3 + NO2 ', & - ' IPMALANHY + OH --> IPMALNHYO2 ', & - 'CO2OH3MCO3 + HO2 --> BIACET + OH + HO2 ', & - 'CO2OH3MCO3 + HO2 --> CO2H3MCO3H ', & - ' CO2OH3MCO3 + NO --> BIACET + NO2 + HO2 ', & - 'CO2OH3MCO3 + NO2 --> CO2OH3MPAN ', & - 'CO2OH3MCO3 + NO3 --> BIACET + NO2 + HO2 ', & - ' CO2OH3MCO3 --> BIACET + HO2 ', & - ' C4DBMECO3H + OH --> C4DBM2CO3 ', & - ' C4DBMECO3H --> C5CO23CHO + CH3CO3 + OH ', & - ' C4DBMEPAN + OH --> C5CO23CHO + CH3CHO + NO2 ', & - ' C4DBMEPAN --> C4DBMECO3 + NO2 ', & - ' C5DBECO3H + OH --> C5DBECO3 ', & - ' C5DBECO3H --> CO234C6 + OH + CO + HO2 ', & - ' C5DBEPAN + OH --> CO234C6 + CO + NO2 ', & - ' C5DBEPAN --> C5DBECO3 + NO2 ', & - ' C5EDBCO3H + OH --> C5EDBCO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_468 = (/ & - ' C5EDBCO3H --> C2H5CO3 + CO23C3CHO + OH ', & - ' C5EDBPAN + OH --> C2H5CHO + CO23C3CHO + NO2 ', & - ' C5EDBPAN --> C5EDBCO3 + NO2 ', & - ' C3EODBCO2H + OH --> EGLYOX + CO + HO2 ', & - ' C3EODBCO2H --> HCOCO2H + C2H5CO3 + CO + HO2 ', & - ' C31CO3H + OH --> C31CO3 ', & - ' C31CO3H --> CHOOCHO + OH + CO + HO2 ', & - ' C31PAN + OH --> CHOOCHO + CO + NO3 ', & - ' C31PAN --> C31CO3 + NO2 ', & - ' C533OOH + OH --> C533O2 ', & - ' C533OOH --> C533O + OH ', & - ' C533O --> CHOOCHO + MGLYOX + HO2 ', & - ' HMVKNGLYOX + OH --> HOCH2CHO + 2 CO + NO2 ', & - ' HMVKNGLYOX --> HOCH2CHO + 2 CO + NO2 + HO2 ', & - ' C4CODIAL + NO3 --> C312COCO3 + HNO3 ', & - ' C4CODIAL + OH --> C312COCO3 ', & - ' C4CODIAL --> CHOCOCH2O2 + CO + HO2 ', & - ' C4CODIAL --> HCOCH2CO3 + CO + HO2 ', & - ' C5124COOOH + OH --> C5124COO2 ', & - ' C5124COOOH --> C5124COO + OH ', & - ' C5124COO --> C312COCO3 + HCHO ', & - ' CO235C6OOH + OH --> CO235C6O2 ', & - ' CO235C6OOH --> CO235C6O + OH ', & - ' CO235C6O --> CO23C4CO3 + HCHO ', & - 'CO235C5CHO + NO3 --> CO23C4CO3 + HNO3 + CO ', & - ' CO235C5CHO + OH --> CO23C4CO3 + CO ', & - ' CO235C5CHO --> CO23C4CO3 + CO + HO2 ', & - ' C716OOH + OH --> CO235C6CHO + OH ', & - ' C716OOH --> C716O + OH ', & - ' C716O --> CO13C4CHO + CH3CO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_469 = (/ & - ' NC71CO + OH --> NC72O2 ', & - ' NC71CO --> CO235C6CO3 + NO2 ', & - ' C812O2 + HO2 --> C812OOH ', & - ' C812O2 + NO --> C812O + NO2 ', & - ' C812O2 + NO3 --> C812O + NO2 ', & - ' C812O2 --> C812O ', & - ' C812O2 --> C812OH ', & - ' C721CO3 + HO2 --> C721CO3H ', & - ' C721CO3 + HO2 --> C721O2 + OH ', & - ' C721CO3 + HO2 --> NORPINIC + O3 ', & - ' C721CO3 + NO --> C721O2 + NO2 ', & - ' C721CO3 + NO2 --> C721PAN ', & - ' C721CO3 + NO3 --> C721O2 + NO2 ', & - ' C721CO3 --> C721O2 ', & - ' C721CO3 --> NORPINIC ', & - ' C721O2 + HO2 --> C721OOH ', & - ' C721O2 + NO --> C721O + NO2 ', & - ' C721O2 + NO3 --> C721O + NO2 ', & - ' C721O2 --> C721O ', & - ' C922OOH + OH --> C922O2 ', & - ' C922OOH --> C922O + OH ', & - ' C922O --> C621O2 + CH3COCH3 ', & - ' C614OOH + OH --> C614CO + OH ', & - ' C614OOH --> C614O + OH ', & - ' C614NO3 + OH --> C614CO + NO2 ', & - ' C614NO3 --> C614O + NO2 ', & - ' C614O --> CO23C4CHO + HCHO + HO2 ', & - ' C614OH + OH --> C614CO + HO2 ', & - ' C614OH --> C614O + HO2 ', & - ' C511OOH + OH --> C511O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_470 = (/ & - ' C511OOH --> C511O + OH ', & - ' C511O --> HCOCH2CHO + CH3CO3 ', & - ' H3C2C4CO3 + HO2 --> H3C2C4CO2H + O3 ', & - ' H3C2C4CO3 + HO2 --> H3C2C4CO3H ', & - ' H3C2C4CO3 + HO2 --> HMVKAO2 + OH ', & - ' H3C2C4CO3 + NO --> HMVKAO2 + NO2 ', & - ' H3C2C4CO3 + NO2 --> H3C2C4PAN ', & - ' H3C2C4CO3 + NO3 --> HMVKAO2 + NO2 ', & - ' H3C2C4CO3 --> H3C2C4CO2H ', & - ' H3C2C4CO3 --> HMVKAO2 ', & - ' C620OOH + OH --> C515CHO + OH ', & - ' C620OOH --> C620O + OH ', & - ' C620O --> HCOCH2CHO + HCOCH2CO3 ', & - ' C515CHO + OH --> C515CO3 ', & - ' C515CHO --> C515O2 + CO + HO2 ', & - ' C515CHO --> 2 HCOCH2CO3 ', & - ' C620OH + OH --> C515CHO + HO2 ', & - ' C620OH --> C620O + HO2 ', & - ' C87CO2H + OH --> C87O2 ', & - ' C87CO2H --> C87O2 + HO2 ', & - ' C87CO3H + OH --> C87CO3 ', & - ' C87CO3H --> C87O2 + OH ', & - ' C87O2 + HO2 --> C87OOH ', & - ' C87O2 + NO --> C87O + NO2 ', & - ' C87O2 + NO3 --> C87O + NO2 ', & - ' C87O2 --> C87CO ', & - ' C87O2 --> C87O ', & - ' C87O2 --> C87OH ', & - ' C87PAN + OH --> C87CO + CO + NO2 ', & - ' C87PAN --> C87CO3 + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_471 = (/ & - ' C616OOH + OH --> CO123C5CHO + OH ', & - ' C616OOH --> C616O + OH ', & - ' C616O --> CHOC2CO3 + GLYOX ', & - ' C616O --> CO12C4CHO + CO + HO2 ', & - ' C616OH + OH --> CO123C5CHO + HO2 ', & - ' C616OH --> C616O + HO2 ', & - ' C718CO2H + OH --> C718O2 ', & - ' C718CO2H --> C718O2 + HO2 ', & - ' C718CO3H + OH --> C718CO3 ', & - ' C718CO3H --> C718O2 + OH ', & - ' C718O2 + HO2 --> C718OOH ', & - ' C718O2 + NO --> C718NO3 ', & - ' C718O2 + NO --> C718O + NO2 ', & - ' C718O2 + NO3 --> C718O + NO2 ', & - ' C718O2 --> C617CHO ', & - ' C718O2 --> C718O ', & - ' C718O2 --> C718OH ', & - ' C718PAN + OH --> C617CHO + CO + NO2 ', & - ' C718PAN --> C718CO3 + NO2 ', & - ' C513OOH + OH --> C513CO + OH ', & - ' C513OOH --> C513O + OH ', & - ' C513O --> GLYOX + HOC2H4CO3 ', & - ' C513CO + OH --> HOC2H4CO3 + 2 CO ', & - ' C513CO --> HOC2H4CO3 + 2 CO + HO2 ', & - ' C513OH + OH --> C513CO + HO2 ', & - ' C513OH --> C513O + HO2 ', & - ' C514O2 + HO2 --> C514OOH ', & - ' C514O2 + NO --> C514NO3 ', & - ' C514O2 + NO --> C514O + NO2 ', & - ' C514O2 + NO3 --> C514O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_472 = (/ & - ' C514O2 --> C514O ', & - ' C514O2 --> C514OH ', & - ' C514O2 --> CO13C4CHO ', & - ' CO25C6CO2H + OH --> C627O2 ', & - ' CO25C6CO2H --> C627O2 + HO2 ', & - ' CO25C6CO3H + OH --> CO25C6CO3 ', & - ' CO25C6CO3H --> C627O2 + OH ', & - ' C627PAN + OH --> CO2C4GLYOX + CO + NO2 ', & - ' C627PAN --> CO25C6CO3 + NO2 ', & - ' C627OOH + OH --> CO2C4GLYOX + OH ', & - ' C627OOH --> C627O + OH ', & - ' C627OOH --> CO2C4CO3 + HCHO + OH ', & - ' C627O --> CO2C4CO3 + HCHO ', & - ' C627OH + OH --> CO2C4GLYOX + HO2 ', & - ' C627OH --> CO2C4CO3 + HCHO + HO2 ', & - ' CO2C4GLYOX + OH --> CO2C4CO3 + CO ', & - ' CO2C4GLYOX --> CO2C4CO3 + CO + HO2 ', & - ' C820O2 + HO2 --> C820OOH ', & - ' C820O2 + NO --> C820O + NO2 ', & - ' C820O2 + NO3 --> C820O + NO2 ', & - ' C820O2 --> C820O ', & - ' C727OOH + OH --> C727CO + OH ', & - ' C727OOH --> C727O + OH ', & - ' C727O --> CO2C4CHO + CH3CO3 ', & - ' C727CO + OH --> C821O2 ', & - ' C727CO --> CO2C4CO3 + CH3CO3 ', & - ' C511CO3H + OH --> C511CO3 ', & - ' C511CO3H --> C511O2 + OH ', & - ' C511PAN + OH --> CO23C4CHO + CO + NO2 ', & - ' C511PAN --> C511CO3 + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_473 = (/ & - ' C517CO2H + OH --> C517O2 ', & - ' C517CO3H + OH --> C517CO3 ', & - ' C517CO3H --> C517O2 + OH ', & - ' C517PAN + OH --> HMVKBCHO + CO + NO2 ', & - ' C517PAN --> C517CO3 + NO2 ', & - ' C517OOH + OH --> HMVKBCHO + OH ', & - ' C517OOH --> C517O + OH ', & - ' C517NO3 + OH --> HMVKBCHO + NO2 ', & - ' C517NO3 --> C517O + NO2 ', & - ' C517O --> HMVKBCHO + HO2 ', & - ' C517OH + OH --> HMVKBCHO + HO2 ', & - ' HMVKBCHO + NO3 --> HMVKBCO3 + HNO3 ', & - ' HMVKBCHO + OH --> HMVKBCO3 ', & - ' HMVKBCHO --> HMVKBO2 + CO + HO2 ', & - ' C628OOH + OH --> C628O2 ', & - ' C628OOH --> C628O + OH ', & - ' C628OOH --> CO13C4OH + CH3CO3 + OH ', & - ' C628O --> CO13C4OH + CH3CO3 ', & - ' C628OH + OH --> C628O ', & - ' C628OH --> CO13C4OH + CH3CO3 + HO2 ', & - ' C518CO3 + HO2 --> C518CO2H + O3 ', & - ' C518CO3 + HO2 --> C518CO3H ', & - ' C518CO3 + HO2 --> ISOPDO2 + OH ', & - ' C518CO3 + NO --> ISOPDO2 + NO2 ', & - ' C518CO3 + NO2 --> C518PAN ', & - ' C518CO3 + NO3 --> ISOPDO2 + NO2 ', & - ' C518CO3 --> C518CO2H ', & - ' C518CO3 --> ISOPDO2 ', & - ' NC623O2 + HO2 --> NC623OOH ', & - ' NC623O2 + NO --> NC623O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_474 = (/ & - ' NC623O2 + NO3 --> NC623O + NO2 ', & - ' NC623O2 --> NC623O ', & - ' NC623O2 --> NC623OH ', & - ' C520OOA --> C520O2 + OH ', & - ' C623O2 + HO2 --> C623OOH ', & - ' C623O2 + NO --> C623NO3 ', & - ' C623O2 + NO --> C623O + NO2 ', & - ' C623O2 + NO3 --> C623O + NO2 ', & - ' C623O2 --> C623O ', & - ' C623O2 --> C623OH ', & - ' C824OOH + OH --> C824CO + OH ', & - ' C824OOH --> C824O + OH ', & - ' C824O --> C624CHO + CO + HO2 ', & - ' C824CO + OH --> C624CO3 + CO ', & - ' C824CO --> C624CO3 + CO + HO2 ', & - ' C824OH + OH --> C824CO + HO2 ', & - ' C825O2 + HO2 --> C825OOH ', & - ' C825O2 + NO --> C825O + NO2 ', & - ' C825O2 + NO3 --> C825O + NO2 ', & - ' C825O2 --> C825CO ', & - ' C825O2 --> C825O ', & - ' C825O2 --> C825OH ', & - ' C731O2 + HO2 --> C731OOH ', & - ' C731O2 + NO --> C731NO3 ', & - ' C731O2 + NO --> C731O + NO2 ', & - ' C731O2 + NO3 --> C731O + NO2 ', & - ' C731O2 --> C626CHO ', & - ' C731O2 --> C731O ', & - ' C731O2 --> C731OH ', & - ' C732CO3 + HO2 --> C732CO3H ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_475 = (/ & - ' C732CO3 + HO2 --> C732O2 + OH ', & - ' C732CO3 + HO2 --> KLIMONIC + O3 ', & - ' C732CO3 + NO --> C732O2 + NO2 ', & - ' C732CO3 + NO2 --> C732PAN ', & - ' C732CO3 + NO3 --> C732O2 + NO2 ', & - ' C732CO3 --> C732O2 ', & - ' C732CO3 --> KLIMONIC ', & - ' C1012O2 + HO2 --> C1012OOH ', & - ' C1012O2 + NO --> C1012NO3 ', & - ' C1012O2 + NO --> C1012O + NO2 ', & - ' C1012O2 + NO3 --> C1012O + NO2 ', & - ' C1012O2 --> C1012CO ', & - ' C1012O2 --> C1012O ', & - ' C1012O2 --> C1012OH ', & - ' C1211CO2H + OH --> C1211O2 ', & - ' C1211CO3H + OH --> C1211CO3 ', & - ' C1211CO3H --> C1211O2 + OH ', & - ' C1211O2 + HO2 --> C1211OOH ', & - ' C1211O2 + NO --> C1211NO3 ', & - ' C1211O2 + NO --> C1211O + NO2 ', & - ' C1211O2 + NO3 --> C1211O + NO2 ', & - ' C1211O2 --> C1211CO ', & - ' C1211O2 --> C1211O ', & - ' C1211O2 --> C1211OH ', & - ' C1211PAN + OH --> C1211CO + CO + NO2 ', & - ' C1211PAN --> C1211CO3 + NO2 ', & - ' C133OOH + OH --> C133CO + OH ', & - ' C133OOH --> C133O + OH ', & - ' C133NO3 + OH --> C133CO + NO2 ', & - ' C133NO3 --> C133O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_476 = (/ & - ' C133O --> C133CO + HO2 ', & - ' C133O --> C829O2 + CO2C4CHO ', & - ' C133CO + OH --> C134O2 ', & - ' C133CO --> C827CO3 + HOC2H4CO3 ', & - ' C133OH + OH --> C133CO + HO2 ', & - ' C133OH --> C133O + HO2 ', & - ' C139O2 + HO2 --> C139OOH ', & - ' C139O2 + NO --> C139NO3 ', & - ' C139O2 + NO --> C139O + NO2 ', & - ' C139O2 + NO3 --> C139O + NO2 ', & - ' C139O2 --> C139O ', & - ' C139O2 --> C139OH ', & - ' C1014O2 + HO2 --> C1014OOH ', & - ' C1014O2 + NO --> C1014NO3 ', & - ' C1014O2 + NO --> C1014O + NO2 ', & - ' C1014O2 + NO3 --> C1014O + NO2 ', & - ' C1014O2 --> C1014CO ', & - ' C1014O2 --> C1014O ', & - ' C1014O2 --> C1014OH ', & - ' C736CO + OH --> C522CO3 + CO ', & - ' C736CO --> C522CO3 + CO + HO2 ', & - ' C736O2 + HO2 --> C736OOH ', & - ' C736O2 + NO --> C736O + NO2 ', & - ' C736O2 + NO3 --> C736O + NO2 ', & - ' C736O2 --> C736CO ', & - ' C736O2 --> C736O ', & - ' C736O2 --> C736OH ', & - ' C118CO + OH --> C829O2 + HCOCH2CHO ', & - ' C118CO --> C829O2 + HCOCH2CO3 ', & - ' C118O2 + HO2 --> C118OOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_477 = (/ & - ' C118O2 + NO --> C118NO3 ', & - ' C118O2 + NO --> C118O + NO2 ', & - ' C118O2 + NO3 --> C118O + NO2 ', & - ' C118O2 --> C118CO ', & - ' C118O2 --> C118O ', & - ' C118O2 --> C118OH ', & - ' C830OOH + OH --> C830CO + OH ', & - ' C830OOH --> C830O + OH ', & - ' C830NO3 + OH --> C830CO + NO2 ', & - ' C830NO3 --> C830O + NO2 ', & - ' C830O --> C831O2 ', & - ' C830CO + OH --> C831O2 ', & - ' C830OH + OH --> C830CO + HO2 ', & - ' C128OOH + OH --> C128CO + OH ', & - ' C128OOH --> C128O + OH ', & - ' C128NO3 + OH --> C128CO + NO2 ', & - ' C128NO3 --> C128O + NO2 ', & - ' C128O --> C927O2 + HCOCH2CHO ', & - ' C128OH + OH --> C128CO + HO2 ', & - ' C928CO3 + HO2 --> C928CO2H + O3 ', & - ' C928CO3 + HO2 --> C928CO3H ', & - ' C928CO3 + HO2 --> C928O2 + OH ', & - ' C928CO3 + NO --> C928O2 + NO2 ', & - ' C928CO3 + NO2 --> C928PAN ', & - ' C928CO3 + NO3 --> C928O2 + NO2 ', & - ' C928CO3 --> C928CO2H ', & - ' C928CO3 --> C928O2 ', & - ' C630CO + OH --> C46CO3 + CO ', & - ' C630CO --> C46CO3 + CO + HO2 ', & - ' C630O2 + HO2 --> C630OOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_478 = (/ & - ' C630O2 + NO --> C630O + NO2 ', & - ' C630O2 + NO3 --> C630O + NO2 ', & - ' C630O2 --> C630CO ', & - ' C630O2 --> C630O ', & - ' C630O2 --> C630OH ', & - ' C1215CO + OH --> C930O2 + HOC2H4CHO ', & - ' C1215O2 + HO2 --> C1215OOH ', & - ' C1215O2 + NO --> C1215NO3 ', & - ' C1215O2 + NO --> C1215O + NO2 ', & - ' C1215O2 + NO3 --> C1215O + NO2 ', & - ' C1215O2 --> C1215CO ', & - ' C1215O2 --> C1215O ', & - ' C1215O2 --> C1215OH ', & - ' CHOC3DIOL + OH --> CO13C4OH + HO2 ', & - ' CHOC3DIOL --> C3DIOLO2 + CO + HO2 ', & - ' HO24C4CO3H --> HO2C3CHO + OH + HO2 ', & - ' HO24C4CO3H + OH --> HO24C4CO3 ', & - ' C5PAN10 --> HO24C4CO3 + NO2 ', & - ' C5PAN10 + OH --> HO2C3CHO + CO + NO2 ', & - ' C613OOH --> BIACET + HOCH2CHO + OH + HO2 ', & - ' C613OOH --> C613O + OH ', & - ' C613OOH + OH --> C613O2 ', & - ' C613O --> BIACET + HOCH2CHO + HO2 ', & - 'EMALANHYO2 + HO2 --> EMALNHYOOH ', & - ' EMALANHYO2 + NO --> EMALANHYO + NO2 ', & - 'EMALANHYO2 + NO3 --> EMALANHYO + NO2 ', & - ' EMALANHYO2 --> EMALANHYO ', & - ' EMALANHYO2 --> EMALNHY2OH ', & - 'PMALANHYO2 + HO2 --> PMALNHYOOH ', & - ' PMALANHYO2 + NO --> PMALANHYO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_479 = (/ & - 'PMALANHYO2 + NO3 --> PMALANHYO + NO2 ', & - ' PMALANHYO2 --> PMALANHYO ', & - ' PMALANHYO2 --> PMALNHY2OH ', & - 'IPMALNHYO2 + HO2 --> IPMLNHYOOH ', & - ' IPMALNHYO2 + NO --> IPMALANHYO + NO2 ', & - 'IPMALNHYO2 + NO3 --> IPMALANHYO + NO2 ', & - ' IPMALNHYO2 --> IPMALANHYO ', & - ' IPMALNHYO2 --> IPMLNHY2OH ', & - ' CO2H3MCO3H + OH --> CO2OH3MCO3 ', & - ' CO2H3MCO3H --> BIACET + OH + HO2 ', & - ' CO2OH3MPAN + OH --> BIACET + CO + NO2 ', & - ' CO2OH3MPAN --> CO2OH3MCO3 + NO2 ', & - ' C312COCO3 + HO2 --> C312COCO3H ', & - ' C312COCO3 + HO2 --> CHOCOCH2O2 + OH ', & - ' C312COCO3 + NO --> CHOCOCH2O2 + NO2 ', & - ' C312COCO3 + NO2 --> C312COPAN ', & - ' C312COCO3 + NO3 --> CHOCOCH2O2 + NO2 ', & - ' C312COCO3 --> CHOCOCH2O2 ', & - 'CHOCOCH2O2 + HO2 --> ALCOCH2OOH ', & - ' CHOCOCH2O2 + NO --> CHOCOCH2O + NO2 ', & - 'CHOCOCH2O2 + NO3 --> CHOCOCH2O + NO2 ', & - ' CHOCOCH2O2 --> CHOCOCH2O ', & - ' NC72O2 + HO2 --> NC72OOH ', & - ' NC72O2 + NO --> NC72O + NO2 ', & - ' NC72O2 + NO3 --> NC72O + NO2 ', & - ' NC72O2 --> NC72O ', & - ' C812OOH + OH --> C812O2 ', & - ' C812OOH --> C812O + OH ', & - ' C812O --> C813O2 ', & - ' C812OH + OH --> C812O ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_480 = (/ & - ' C721CO3H + OH --> C721CO3 ', & - ' C721CO3H --> C721O2 + OH ', & - ' NORPINIC + OH --> C721O2 ', & - ' C721PAN + OH --> C721OOH + CO + NO2 ', & - ' C721PAN --> C721CO3 + NO2 ', & - ' C721OOH + OH --> C721O2 ', & - ' C721OOH --> C721O + OH ', & - ' C721O --> C722O2 ', & - ' C621O2 + HO2 --> C621OOH ', & - ' C621O2 + NO --> C621O + NO2 ', & - ' C621O2 + NO3 --> C621O + NO2 ', & - ' C621O2 --> C621O ', & - ' H3C2C4CO2H + OH --> HMVKAO2 ', & - ' H3C2C4CO2H --> HMVKAO2 + HO2 ', & - ' H3C2C4CO3H + OH --> H3C2C4CO3 ', & - ' H3C2C4CO3H --> HMVKAO2 + OH ', & - ' H3C2C4PAN + OH --> CO2H3CHO + CO + NO2 ', & - ' H3C2C4PAN --> H3C2C4CO3 + NO2 ', & - ' C515CO3 + HO2 --> C515CO3H ', & - ' C515CO3 + HO2 --> C515O2 + OH ', & - ' C515CO3 + NO --> C515O2 + NO2 ', & - ' C515CO3 + NO2 --> C515PAN ', & - ' C515CO3 + NO3 --> C515O2 + NO2 ', & - ' C515CO3 --> C515O2 ', & - ' C515O2 + HO2 --> C515OOH ', & - ' C515O2 + NO --> C515O + NO2 ', & - ' C515O2 + NO3 --> C515O + NO2 ', & - ' C515O2 --> C515O ', & - ' C87OOH + OH --> C87CO + OH ', & - ' C87OOH --> C87O + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_481 = (/ & - ' C87O --> C615CO3 + HCHO ', & - ' C87CO + OH --> C615CO3 + CO ', & - ' C87CO --> C615CO3 + CO + HO2 ', & - ' C87OH + OH --> C87CO + HO2 ', & - ' CO12C4CHO + NO3 --> CHOC2CO3 + HNO3 + CO ', & - ' CO12C4CHO + OH --> CHOC2CO3 + CO ', & - ' CO12C4CHO --> CHOC2CO3 + CO + HO2 ', & - ' C718OOH + OH --> C617CHO + OH ', & - ' C718OOH --> C718O + OH ', & - ' C718NO3 + OH --> C617CHO + NO2 ', & - ' C718NO3 --> C718O + NO2 ', & - ' C718O --> C617CHO + HO2 ', & - ' C617CHO + NO3 --> C617CO3 + HNO3 ', & - ' C617CHO + NO3 --> C618CO3 + HNO3 ', & - ' C617CHO + OH --> C617CO3 ', & - ' C617CHO + OH --> C618CO3 ', & - ' C617CHO --> C617O2 + CO + HO2 ', & - ' C617CHO --> C618O2 + CO + HO2 ', & - ' C718OH + OH --> C617CHO + HO2 ', & - ' C718OH --> C718O + HO2 ', & - ' C514OOH + OH --> CO13C4CHO + OH ', & - ' C514OOH --> C514O + OH ', & - ' C514NO3 + OH --> CO13C4CHO + NO2 ', & - ' C514NO3 --> C514O + NO2 ', & - ' C514O --> CO13C4CHO + HO2 ', & - ' C514OH + OH --> CO13C4CHO + HO2 ', & - ' C514OH --> C514O + HO2 ', & - ' C820OOH + OH --> C820O2 ', & - ' C820OOH --> C820O + OH ', & - ' C820O --> C614CO + CH3CO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_482 = (/ & - ' C821O2 + HO2 --> C821OOH ', & - ' C821O2 + NO --> C821O + NO2 ', & - ' C821O2 + NO3 --> C821O + NO2 ', & - ' C821O2 --> C821O ', & - ' HMVKBCO3 + HO2 --> HMVKBCO2H + O3 ', & - ' HMVKBCO3 + HO2 --> HMVKBCO3H ', & - ' HMVKBCO3 + HO2 --> HMVKBO2 + OH ', & - ' HMVKBCO3 + NO --> HMVKBO2 + NO2 ', & - ' HMVKBCO3 + NO2 --> HMVKBPAN ', & - ' HMVKBCO3 + NO3 --> HMVKBO2 + NO2 ', & - ' HMVKBCO3 --> HMVKBCO2H ', & - ' HMVKBCO3 --> HMVKBO2 ', & - ' CO13C4OH + OH --> C4CODIAL + HO2 ', & - ' CO13C4OH --> HOCH2CO3 + HCOCH2O2 ', & - ' CO13C4OH --> MGLYOX + CO + 2 HO2 ', & - ' C518CO2H + OH --> ISOPDO2 ', & - ' C518CO3H + OH --> C518CO3 ', & - ' C518CO3H --> ISOPDO2 + OH ', & - ' C518PAN + OH --> HCOC5 + CO + NO2 ', & - ' C518PAN --> C518CO3 + NO2 ', & - ' NC623OOH + OH --> NC623O2 ', & - ' NC623OOH --> NC623O + OH ', & - ' NC623O --> HMVKBCHO + HCHO + NO2 ', & - ' NC623OH + OH --> HMVKBCHO + HCHO + NO2 ', & - ' C520O2 + HO2 --> C520OOH ', & - ' C520O2 + NO --> C520O + NO2 ', & - ' C520O2 + NO3 --> C520O + NO2 ', & - ' C520O2 --> C520O ', & - ' C520O2 --> C520OH ', & - ' C623OOH + OH --> C623O2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_483 = (/ & - ' C623OOH --> C623O + OH ', & - ' C623NO3 + OH --> HMVKBCHO + HCHO + NO2 ', & - ' C623O --> HMVKBCHO + HCHO + HO2 ', & - ' C623OH + OH --> HMVKBCHO + HCHO + HO2 ', & - ' C624CHO + NO3 --> C624CO3 + HNO3 ', & - ' C624CHO + NO3 --> NC730O2 ', & - ' C624CHO + O3 --> C519CHO + CH2OOF ', & - ' C624CHO + O3 --> C629OOA + HCHO ', & - ' C624CHO + OH --> C624CO3 ', & - ' C624CHO + OH --> C730O2 ', & - ' C624CO3 + HO2 --> C624CO2H + O3 ', & - ' C624CO3 + HO2 --> C624CO3H ', & - ' C624CO3 + HO2 --> C624O2 + OH ', & - ' C624CO3 + NO --> C624O2 + NO2 ', & - ' C624CO3 + NO2 --> C624PAN ', & - ' C624CO3 + NO3 --> C624O2 + NO2 ', & - ' C624CO3 --> C624CO2H ', & - ' C624CO3 --> C624O2 ', & - ' C825OOH + OH --> C825CO + OH ', & - ' C825OOH --> C825O + OH ', & - ' C825O --> C622CHO + HO2 ', & - ' C825CO + OH --> C622CO3 ', & - ' C825CO --> C622CO3 + HO2 ', & - ' C825OH + OH --> C825CO + HO2 ', & - ' C731OOH + OH --> C626CHO + OH ', & - ' C731OOH --> C731O + OH ', & - ' C731NO3 + OH --> C626CHO + NO2 ', & - ' C731NO3 --> C731O + NO2 ', & - ' C731O --> C733O2 ', & - ' C731OH + OH --> C626CHO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_484 = (/ & - ' C732CO3H + OH --> C732CO3 ', & - ' C732CO3H --> C732O2 + OH ', & - ' C732O2 + HO2 --> C732OOH ', & - ' C732O2 + NO --> C732NO3 ', & - ' C732O2 + NO --> C732O + NO2 ', & - ' C732O2 + NO3 --> C732O + NO2 ', & - ' C732O2 --> C732CO ', & - ' C732O2 --> C732O ', & - ' C732O2 --> C732OH ', & - ' KLIMONIC + OH --> C732O2 ', & - ' C732PAN + OH --> C732CO + CO + NO2 ', & - ' C732PAN --> C732CO3 + NO2 ', & - ' C1012OOH + OH --> C1012CO + OH ', & - ' C1012OOH --> C1012O + OH ', & - ' C1012NO3 + OH --> C1012CO + NO2 ', & - ' C1012NO3 --> C1012O + NO2 ', & - ' C1012O --> C1012CO + HO2 ', & - ' C1012O --> CO2C4CHO + C3ME3CHOO2 ', & - ' C1012CO + OH --> C928CO3 ', & - ' C1012OH + OH --> C1012CO + HO2 ', & - ' C1211OOH + OH --> C1211CO + OH ', & - ' C1211OOH --> C1211O + OH ', & - ' C1211NO3 + OH --> C1211CO + NO2 ', & - ' C1211NO3 --> C1211O + NO2 ', & - ' C1211O --> C1212O2 ', & - ' C1211CO + OH --> C1212O2 ', & - ' C1211CO --> C1212O2 + HO2 ', & - ' C1211OH + OH --> C1211CO + HO2 ', & - ' C829O2 + HO2 --> C829OOH ', & - ' C829O2 + NO --> C829NO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_485 = (/ & - ' C829O2 + NO --> C829O + NO2 ', & - ' C829O2 + NO3 --> C829O + NO2 ', & - ' C829O2 --> C829O ', & - ' C829O2 --> C829OH ', & - ' C134O2 + HO2 --> C134OOH ', & - ' C134O2 + NO --> C134O + NO2 ', & - ' C134O2 + NO3 --> C134O + NO2 ', & - ' C134O2 --> C134CO ', & - ' C134O2 --> C134O ', & - ' C134O2 --> C134OH ', & - ' C827CO3 + HO2 --> C827CO2H + O3 ', & - ' C827CO3 + HO2 --> C827CO3H ', & - ' C827CO3 + HO2 --> C827O2 + OH ', & - ' C827CO3 + NO --> C827O2 + NO2 ', & - ' C827CO3 + NO2 --> C827PAN ', & - ' C827CO3 + NO3 --> C827O2 + NO2 ', & - ' C827CO3 --> C827CO2H ', & - ' C827CO3 --> C827O2 ', & - ' C139OOH + OH --> C139O2 ', & - ' C139OOH --> C139O + OH ', & - ' C139NO3 + OH --> C1310CO + NO2 ', & - ' C139NO3 --> C139O + NO2 ', & - ' C139O --> C1310O2 ', & - ' C139OH + OH --> C139O ', & - ' C1014OOH + OH --> C1014CO + OH ', & - ' C1014OOH --> C1014O + OH ', & - ' C1014NO3 + OH --> C1014CO + NO2 ', & - ' C1014NO3 --> C1014O + NO2 ', & - ' C1014O --> C1014CO + HO2 ', & - ' C1014O --> COO2C4CHO + C3ME3CHOO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_486 = (/ & - ' C1014CO + OH --> COO2C4CHO + C3ME3CHOO2 ', & - ' C1014OH + OH --> C1014CO + HO2 ', & - ' C522CO3 + HO2 --> C522CO2H + O3 ', & - ' C522CO3 + HO2 --> C522CO3H ', & - ' C522CO3 + HO2 --> CHOC2CO3 + HCHO + OH ', & - ' C522CO3 + NO --> CHOC2CO3 + HCHO + NO2 ', & - ' C522CO3 + NO2 --> C522PAN ', & - ' C522CO3 + NO3 --> CHOC2CO3 + HCHO + NO2 ', & - ' C522CO3 --> C522CO2H ', & - ' C522CO3 --> CHOC2CO3 + HCHO ', & - ' C736OOH + OH --> C736CO + OH ', & - ' C736OOH --> C736O + OH ', & - ' C736O --> C522CO3 + HCHO ', & - ' C736OH + OH --> C736CO + HO2 ', & - ' C118OOH + OH --> C118CO + OH ', & - ' C118OOH --> C118O + OH ', & - ' C118NO3 + OH --> C118CO + NO2 ', & - ' C118NO3 --> C118O + NO2 ', & - ' C118O --> C829O2 + HCOCH2CHO ', & - ' C118OH + OH --> C118CO + HO2 ', & - ' C831O2 + HO2 --> C831OOH ', & - ' C831O2 + NO --> C831NO3 ', & - ' C831O2 + NO --> C831O + NO2 ', & - ' C831O2 + NO3 --> C831O + NO2 ', & - ' C831O2 --> C831CO ', & - ' C831O2 --> C831O ', & - ' C831O2 --> C831OH ', & - ' C928CO2H + OH --> C928O2 ', & - ' C928CO3H + OH --> C928CO3 ', & - ' C928CO3H --> C928O2 + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_487 = (/ & - ' C928O2 + HO2 --> C928OOH ', & - ' C928O2 + NO --> C928NO3 ', & - ' C928O2 + NO --> C928O + NO2 ', & - ' C928O2 + NO3 --> C928O + NO2 ', & - ' C928O2 --> C827CHO ', & - ' C928O2 --> C928O ', & - ' C928O2 --> C928OH ', & - ' C928PAN + OH --> C827CHO + CO + NO2 ', & - ' C928PAN --> C928CO3 + NO2 ', & - ' C46CO3 + HO2 --> C46CO2H + O3 ', & - ' C46CO3 + HO2 --> C46CO3H ', & - ' C46CO3 + HO2 --> HCHO + HOC2H4CO3 + OH ', & - ' C46CO3 + NO --> HCHO + HOC2H4CO3 + NO2 ', & - ' C46CO3 + NO2 --> C46PAN ', & - ' C46CO3 + NO3 --> HCHO + HOC2H4CO3 + NO2 ', & - ' C46CO3 --> C46CO2H ', & - ' C46CO3 --> HCHO + HOC2H4CO3 ', & - ' C630OOH + OH --> C630CO + OH ', & - ' C630OOH --> C630O + OH ', & - ' C630O --> C46CO3 + HCHO ', & - ' C630OH + OH --> C630CO + HO2 ', & - ' C930O2 + HO2 --> C930OOH ', & - ' C930O2 + NO --> C930NO3 ', & - ' C930O2 + NO --> C930O + NO2 ', & - ' C930O2 + NO3 --> C930O + NO2 ', & - ' C930O2 --> C930O ', & - ' C930O2 --> C930OH ', & - ' C1215OOH + OH --> C1215CO + OH ', & - ' C1215OOH --> C1215O + OH ', & - ' C1215NO3 + OH --> C1215CO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_488 = (/ & - ' C1215NO3 --> C1215O + NO2 ', & - ' C1215O --> C930O2 + HOC2H4CHO ', & - ' C1215OH + OH --> C1215CO + HO2 ', & - ' EMALNHYOOH + OH --> EMALANHYO2 ', & - ' EMALNHYOOH --> EMALANHYO + OH ', & - ' EMALANHYO --> CO3H4CO3 ', & - ' EMALNHY2OH + OH --> EMALANHYO ', & - ' PMALNHYOOH + OH --> PMALANHYO2 ', & - ' PMALNHYOOH --> PMALANHYO + OH ', & - ' PMALANHYO --> C5O45OHCO3 ', & - ' PMALNHY2OH + OH --> PMALANHYO ', & - ' IPMLNHYOOH + OH --> IPMALNHYO2 ', & - ' IPMLNHYOOH --> IPMALANHYO + OH ', & - ' IPMALANHYO --> C4MOHOCO3 ', & - ' IPMLNHY2OH + OH --> IPMALANHYO ', & - ' C312COCO3H + OH --> C312COCO3 ', & - ' C312COCO3H --> CHOCOCH2O2 + OH ', & - ' C312COPAN + OH --> C33CO + CO + NO2 ', & - ' C312COPAN --> C312COCO3 + NO2 ', & - ' ALCOCH2OOH + OH --> CHOCOCH2O2 ', & - ' ALCOCH2OOH --> CHOCOCH2O + OH ', & - ' CHOCOCH2O --> HCOCO + HCHO ', & - ' NC72OOH + OH --> NC72O2 ', & - ' NC72OOH --> NC72O + OH ', & - ' NC72O --> NC61CO3 ', & - ' C813O2 + HO2 --> C813OOH ', & - ' C813O2 + NO --> C813NO3 ', & - ' C813O2 + NO --> C813O + NO2 ', & - ' C813O2 + NO3 --> C813O + NO2 ', & - ' C813O2 --> C813O ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_489 = (/ & - ' C813O2 --> C813OH ', & - ' C722O2 + HO2 --> C722OOH ', & - ' C722O2 + NO --> C722O + NO2 ', & - ' C722O2 + NO3 --> C722O + NO2 ', & - ' C722O2 --> C722O ', & - ' C621OOH + OH --> C621O2 ', & - ' C621OOH --> C621O + OH ', & - ' C621O --> H1C23C4CHO + HCHO + HO2 ', & - ' C515CO3H + OH --> C515CO3 ', & - ' C515CO3H --> C515O2 + OH ', & - ' C515PAN + OH --> C515CO + CO + NO2 ', & - ' C515PAN --> C515CO3 + NO2 ', & - ' C515OOH + OH --> C515CO + OH ', & - ' C515OOH --> C515O + OH ', & - ' C515O --> HCOCH2CO3 + HCHO + CO ', & - ' C615CO3 + HO2 --> C615CO2H + O3 ', & - ' C615CO3 + HO2 --> C615CO3H ', & - ' C615CO3 + HO2 --> C615O2 + OH ', & - ' C615CO3 + NO --> C615O2 + NO2 ', & - ' C615CO3 + NO2 --> C615PAN ', & - ' C615CO3 + NO3 --> C615O2 + NO2 ', & - ' C615CO3 --> C615CO2H ', & - ' C615CO3 --> C615O2 ', & - ' C617CO3 + HO2 --> C617CO2H + O3 ', & - ' C617CO3 + HO2 --> C617CO3H ', & - ' C617CO3 + HO2 --> C617O2 + OH ', & - ' C617CO3 + NO --> C617O2 + NO2 ', & - ' C617CO3 + NO2 --> C617PAN ', & - ' C617CO3 + NO3 --> C617O2 + NO2 ', & - ' C617CO3 --> C617CO2H ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_490 = (/ & - ' C617CO3 --> C617O2 ', & - ' C618CO3 + HO2 --> C618CO2H + O3 ', & - ' C618CO3 + HO2 --> C618CO3H ', & - ' C618CO3 + HO2 --> C618O2 + OH ', & - ' C618CO3 + NO --> C618O2 + NO2 ', & - ' C618CO3 + NO2 --> C618PAN ', & - ' C618CO3 + NO3 --> C618O2 + NO2 ', & - ' C618CO3 --> C618CO2H ', & - ' C618CO3 --> C618O2 ', & - ' C617O2 + HO2 --> C617OOH ', & - ' C617O2 + NO --> C617O + NO2 ', & - ' C617O2 + NO3 --> C617O + NO2 ', & - ' C617O2 --> C615CO ', & - ' C617O2 --> C617O ', & - ' C617O2 --> C617OH ', & - ' C618O2 + HO2 --> C618OOH ', & - ' C618O2 + NO --> C618O + NO2 ', & - ' C618O2 + NO3 --> C618O + NO2 ', & - ' C618O2 --> C618O ', & - ' C618O2 --> C67CHO ', & - ' C821OOH + OH --> C821O2 ', & - ' C821OOH --> C821O + OH ', & - ' C821O --> CO2C3CHO + CH3CO3 + CO ', & - ' HMVKBCO2H + OH --> HMVKBO2 ', & - ' HMVKBCO3H + OH --> HMVKBCO3 ', & - ' HMVKBCO3H --> HMVKBO2 + OH ', & - ' HMVKBPAN + OH --> BIACETOH + CO + NO2 ', & - ' HMVKBPAN --> HMVKBCO3 + NO2 ', & - ' C520OOH + OH --> C520O2 ', & - ' C520OOH --> BIACETOH + OH + CO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_491 = (/ & - ' C520OOH --> C520O + OH ', & - ' C520OOH --> HOCH2COCHO + CH3CO3 + OH ', & - ' C520O --> BIACETOH + CO + HO2 ', & - ' C520O --> HOCH2COCHO + CH3CO3 ', & - ' C520OH + OH --> C520O ', & - ' C520OH --> BIACETOH + CO + 2 HO2 ', & - ' C520OH --> HOCH2COCHO + CH3CO3 + HO2 ', & - ' NC730O2 + HO2 --> NC730OOH ', & - ' NC730O2 + NO --> NC730O + NO2 ', & - ' NC730O2 + NO3 --> NC730O + NO2 ', & - ' NC730O2 --> NC730O ', & - ' NC730O2 --> NC730OH ', & - ' C519CHO + NO3 --> C519CO3 + HNO3 ', & - ' C519CHO + OH --> C519CO3 ', & - ' C629OOA --> C629O2 + OH ', & - ' C730O2 + HO2 --> C730OOH ', & - ' C730O2 + NO --> C730NO3 ', & - ' C730O2 + NO --> C730O + NO2 ', & - ' C730O2 + NO3 --> C730O + NO2 ', & - ' C730O2 --> C730O ', & - ' C730O2 --> C730OH ', & - ' C624CO2H + OH --> C624O2 ', & - ' C624CO3H + OH --> C624CO3 ', & - ' C624CO3H --> C624O2 + OH ', & - ' C624O2 + HO2 --> C624OOH ', & - ' C624O2 + NO --> C624NO3 ', & - ' C624O2 + NO --> C624O + NO2 ', & - ' C624O2 + NO3 --> C624O + NO2 ', & - ' C624O2 --> C624CO ', & - ' C624O2 --> C624O ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_492 = (/ & - ' C624O2 --> C624OH ', & - ' C624PAN + OH --> C624CO + CO + NO2 ', & - ' C624PAN --> C624CO3 + NO2 ', & - ' C733O2 + HO2 --> C733OOH ', & - ' C733O2 + NO --> C733O + NO2 ', & - ' C733O2 + NO3 --> C733O + NO2 ', & - ' C733O2 --> C733CO ', & - ' C733O2 --> C733O ', & - ' C733O2 --> C733OH ', & - ' C732OOH + OH --> C732CO + OH ', & - ' C732OOH --> C732O + OH ', & - ' C732NO3 + OH --> C732CO + NO2 ', & - ' C732NO3 --> C732O + NO2 ', & - ' C732O --> C734O2 ', & - ' C732CO + OH --> C734O2 ', & - ' C732CO --> C734O2 + HO2 ', & - ' C732OH + OH --> C732CO + HO2 ', & - ' C1212O2 + HO2 --> C1212OOH ', & - ' C1212O2 + NO --> C1212NO3 ', & - ' C1212O2 + NO --> C1212O + NO2 ', & - ' C1212O2 + NO3 --> C1212O + NO2 ', & - ' C1212O2 --> C1212O ', & - ' C1212O2 --> C1212OH ', & - ' C829OOH + OH --> C829O2 ', & - ' C829OOH --> C829O + OH ', & - ' C829NO3 + OH --> C513CO + CH3COCH3 + NO2 ', & - ' C829NO3 --> C829O + NO2 ', & - ' C829O --> C521O2 + CH3COCH3 ', & - ' C829OH + OH --> C829O ', & - ' C829OH --> H2M2C3CO3 + HOC2H4CO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_493 = (/ & - ' C134OOH + OH --> C134CO + OH ', & - ' C134OOH --> C134O + OH ', & - ' C134O --> C827CHO + HOC2H4CO3 + CO ', & - ' C134CO + OH --> C135O2 ', & - ' C134CO --> C827CO3 + HOC2H4CO3 + CO ', & - ' C134OH + OH --> C134CO + HO2 ', & - ' C134OH --> C827CHO + HOC2H4CO3 + CO + HO2 ', & - ' C827CO2H + OH --> C827O2 ', & - ' C827CO3H + OH --> C827CO3 ', & - ' C827CO3H --> C827O2 + OH ', & - ' C827O2 + HO2 --> C827OOH ', & - ' C827O2 + NO --> C827O + NO2 ', & - ' C827O2 + NO3 --> C827O + NO2 ', & - ' C827O2 --> C827O ', & - ' C827O2 --> C827OH ', & - ' C827PAN + OH --> CH3COCH3 + CO2C4CHO + NO2 ', & - ' C827PAN --> C827CO3 + NO2 ', & - ' C1310CO + OH --> CHOC2CO2H + C927O2 ', & - ' C1310O2 + HO2 --> C1310OOH ', & - ' C1310O2 + NO --> C1310NO3 ', & - ' C1310O2 + NO --> C1310O + NO2 ', & - ' C1310O2 + NO3 --> C1310O + NO2 ', & - ' C1310O2 --> C1310CO ', & - ' C1310O2 --> C1310O ', & - ' C1310O2 --> C1310OH ', & - ' COO2C4CHO + OH --> COO2C4CO3 ', & - ' COO2C4CHO --> COO2C4O2 + CO + HO2 ', & - ' C522CO2H + OH --> CHOC2CO3 + HCHO ', & - ' C522CO3H + OH --> C522CO3 ', & - ' C522CO3H --> CHOC2CO3 + HCHO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_494 = (/ & - ' C522PAN + OH --> HCOCH2CHO + CO + NO2 ', & - ' C522PAN --> C522CO3 + NO2 ', & - ' C831OOH + OH --> C831CO + OH ', & - ' C831OOH --> C831O + OH ', & - ' C831NO3 + OH --> C831CO + NO2 ', & - ' C831NO3 --> C831O + NO2 ', & - ' C831O --> C831CO + HO2 ', & - ' C831O --> HCOCH2CHO + C3ME3CHOO2 ', & - ' C831CO + OH --> HCOCH2CHO + C3ME3CHOO2 ', & - ' C831OH + OH --> C831CO + HO2 ', & - ' C928OOH + OH --> C827CHO + OH ', & - ' C928OOH --> C928O + OH ', & - ' C928NO3 + OH --> C827CHO + NO2 ', & - ' C928NO3 --> C928O + NO2 ', & - ' C928O --> C929O2 ', & - ' C827CHO + NO3 --> C827CO3 + HNO3 ', & - ' C827CHO + OH --> C827CO3 ', & - ' C827CHO --> C827O2 + CO + HO2 ', & - ' C928OH + OH --> C827CHO + HO2 ', & - ' C46CO2H + OH --> HCHO + HOC2H4CO3 ', & - ' C46CO3H + OH --> C46CO3 ', & - ' C46CO3H --> HCHO + HOC2H4CO3 + OH ', & - ' C46PAN + OH --> HOC2H4CHO + HCHO + NO2 ', & - ' C46PAN --> C46CO3 + NO2 ', & - ' C930OOH + OH --> CO123C5CHO + CH3COCH3 + OH ', & - ' C930OOH --> C930O + OH ', & - ' C930NO3 + OH --> CO123C5CHO + CH3COCH3 + NO2 ', & - ' C930NO3 --> C930O + NO2 ', & - ' C930O --> C6145COO2 + CH3COCH3 ', & - ' C930OH + OH --> CO123C5CHO + CH3COCH3 + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_495 = (/ & - ' NC61CO3 + HO2 --> CO235C5CHO + OH + NO2 ', & - ' NC61CO3 + HO2 --> NC61CO3H ', & - ' NC61CO3 + NO --> CO235C5CHO + 2 NO2 ', & - ' NC61CO3 + NO2 --> NC6PAN1 ', & - ' NC61CO3 + NO3 --> CO235C5CHO + 2 NO2 ', & - ' NC61CO3 --> CO235C5CHO + NO2 ', & - ' C813OOH + OH --> C813O2 ', & - ' C813OOH --> C813O + OH ', & - ' C813NO3 + OH --> CO13C3CO2H + CH3COCH3 + HCHO + NO2 ', & - ' C813NO3 --> C813O + NO2 ', & - ' C813O --> C516O2 + CH3COCH3 ', & - ' C813OH + OH --> C813O ', & - ' C813OH --> C813O + HO2 ', & - ' C722OOH + OH --> C722O2 ', & - ' C722OOH --> C722O + OH ', & - ' C722O --> C44O2 + CH3COCH3 ', & - 'H1C23C4CHO + NO3 --> H1C23C4CO3 + HNO3 ', & - ' H1C23C4CHO + OH --> H1C23C4CO3 ', & - ' H1C23C4CHO --> H1C23C4O2 + CO + HO2 ', & - ' H1C23C4CHO --> HCOCH2CO3 + HOCH2CO3 ', & - ' C515CO + OH --> HCOCH2CO3 + 2 CO ', & - ' C515CO --> HCOCH2CO3 + 2 CO + HO2 ', & - ' C615CO2H + OH --> C615O2 ', & - ' C615CO2H --> C615O2 + HO2 ', & - ' C615CO3H + OH --> C615CO3 ', & - ' C615CO3H --> C615O2 + OH ', & - ' C615O2 + HO2 --> C615OOH ', & - ' C615O2 + NO --> C615O + NO2 ', & - ' C615O2 + NO3 --> C615O + NO2 ', & - ' C615O2 --> C615CO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_496 = (/ & - ' C615O2 --> C615O ', & - ' C615O2 --> C615OH ', & - ' C615PAN + OH --> C615CO + CO + NO2 ', & - ' C615PAN --> C615CO3 + NO2 ', & - ' C617CO2H + OH --> C617O2 ', & - ' C617CO2H --> C617O2 + HO2 ', & - ' C617CO3H + OH --> C617CO3 ', & - ' C617CO3H --> C617O2 + OH ', & - ' C617PAN + OH --> C615CO + CO + NO2 ', & - ' C617PAN --> C617CO3 + NO2 ', & - ' C618CO2H + OH --> C618O2 ', & - ' C618CO2H --> C618O2 + HO2 ', & - ' C618CO3H + OH --> C618CO3 ', & - ' C618CO3H --> C618O2 + OH ', & - ' C618PAN + OH --> CH3COCH3 + HCOCH2CHO + CO + NO2 ', & - ' C618PAN --> C618CO3 + NO2 ', & - ' C617OOH + OH --> C615CO + OH ', & - ' C617OOH --> C617O + OH ', & - ' C617O --> CO1M22CO3 + HCHO ', & - ' C615CO + OH --> CO1M22CO3 + CO ', & - ' C615CO --> CO1M22CO3 + CO + HO2 ', & - ' C617OH + OH --> C615CO + HO2 ', & - ' C617OH --> C617O + HO2 ', & - ' C618OOH + OH --> C618O2 ', & - ' C618OOH --> C618O + OH ', & - ' C618O --> CH3COCH3 + HCOCH2CO3 ', & - ' NC730OOH + OH --> NC730O2 ', & - ' NC730OOH --> NC730O + OH ', & - ' NC730O --> C519CHO + HCHO + NO2 ', & - ' NC730OH + OH --> C519CHO + HCHO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_497 = (/ & - ' C519CO3 + HO2 --> C519CO2H + O3 ', & - ' C519CO3 + HO2 --> C519CO3H ', & - ' C519CO3 + HO2 --> C519O2 + OH ', & - ' C519CO3 + NO --> C519O2 + NO2 ', & - ' C519CO3 + NO2 --> C519PAN ', & - ' C519CO3 + NO3 --> C519O2 + NO2 ', & - ' C519CO3 --> C519CO2H ', & - ' C519CO3 --> C519O2 ', & - ' C629O2 + HO2 --> C629OOH ', & - ' C629O2 + NO --> C629O + NO2 ', & - ' C629O2 + NO3 --> C629O + NO2 ', & - ' C629O2 --> C629O ', & - ' C629O2 --> C629OH ', & - ' C730OOH + OH --> C730O2 ', & - ' C730OOH --> C730O + OH ', & - ' C730NO3 + OH --> C519CHO + HCHO + NO2 ', & - ' C730O --> C519CHO + HCHO + HO2 ', & - ' C730OH + OH --> C519CHO + HCHO + HO2 ', & - ' C624OOH + OH --> C624CO + OH ', & - ' C624OOH --> C624O + OH ', & - ' C624NO3 + OH --> C624CO + NO2 ', & - ' C624NO3 --> C624O + NO2 ', & - ' C624O --> C624CO + HO2 ', & - ' C624O --> HOCH2CH2O2 + MACR ', & - ' C624CO + OH --> C625O2 ', & - ' C624CO --> MACO3 + HOCH2CH2O2 ', & - ' C624OH + OH --> C624CO + HO2 ', & - ' C733OOH + OH --> C733CO + OH ', & - ' C733OOH --> C733O + OH ', & - ' C733O --> C519CHO + CO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_498 = (/ & - ' C733CO + OH --> C519CO3 + CO ', & - ' C733CO --> C519CO3 + CO + HO2 ', & - ' C733OH + OH --> C733CO + HO2 ', & - ' C734O2 + HO2 --> C734OOH ', & - ' C734O2 + NO --> C734O + NO2 ', & - ' C734O2 + NO3 --> C734O + NO2 ', & - ' C734O2 --> C734CO ', & - ' C734O2 --> C734O ', & - ' C734O2 --> C734OH ', & - ' C1212OOH + OH --> C1212O2 ', & - ' C1212OOH --> C1212O + OH ', & - ' C1212NO3 + OH --> C1213CO + NO2 ', & - ' C1212NO3 --> C1212O + NO2 ', & - ' C1212O --> C1213O2 ', & - ' C1212OH + OH --> C1212O ', & - ' C521O2 + HO2 --> C521OOH ', & - ' C521O2 + NO --> C521O + NO2 ', & - ' C521O2 + NO3 --> C521O + NO2 ', & - ' C521O2 --> C513CO ', & - ' C521O2 --> C521O ', & - ' C521O2 --> C521OH ', & - ' C135O2 + HO2 --> C135OOH ', & - ' C135O2 + NO --> C135O + NO2 ', & - ' C135O2 + NO3 --> C135O + NO2 ', & - ' C135O2 --> C135O ', & - ' C827OOH + OH --> C827O2 ', & - ' C827OOH --> C827O2 + OH ', & - ' C827O --> CH3COCH3 + CO2C4CO3 ', & - ' C827OH + OH --> C827O ', & - ' C1310OOH + OH --> C1310CO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_499 = (/ & - ' C1310OOH --> C1310O + OH ', & - ' C1310NO3 + OH --> C1310CO + NO2 ', & - ' C1310NO3 --> C1310O + NO2 ', & - ' C1310O --> CHOC2CO2H + C927O2 ', & - ' C1310OH + OH --> C1310CO + HO2 ', & - ' COO2C4CO3 + HO2 --> COO2C4CO3H ', & - ' COO2C4CO3 + HO2 --> COO2C4O2 + OH ', & - ' COO2C4CO3 + NO --> COO2C4O2 + NO2 ', & - ' COO2C4CO3 + NO2 --> COO2C4PAN ', & - ' COO2C4CO3 + NO3 --> COO2C4O2 + NO2 ', & - ' COO2C4CO3 --> COO2C4O2 ', & - ' COO2C4O2 + HO2 --> COO2C4OOH ', & - ' COO2C4O2 + NO --> COO2C4O + NO2 ', & - ' COO2C4O2 + NO3 --> COO2C4O + NO2 ', & - ' COO2C4O2 --> COO2C4O ', & - ' C929O2 + HO2 --> C929OOH ', & - ' C929O2 + NO --> C929O + NO2 ', & - ' C929O2 + NO3 --> C929O + NO2 ', & - ' C929O2 --> C929CO ', & - ' C929O2 --> C929O ', & - ' C929O2 --> C929OH ', & - ' NC61CO3H + OH --> NC61CO3 ', & - ' NC61CO3H --> CO235C5CHO + OH + NO2 ', & - ' NC6PAN1 + OH --> CO235C5CHO + CO + 2 NO2 ', & - ' NC6PAN1 --> NC61CO3 + NO2 ', & - ' C516O2 + HO2 --> C516OOH ', & - ' C516O2 + NO --> C516O + NO2 ', & - ' C516O2 + NO3 --> C516O + NO2 ', & - ' C516O2 --> C516O ', & - ' C44O2 + HO2 --> C44OOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_500 = (/ & - ' C44O2 + NO --> C44O + NO2 ', & - ' C44O2 + NO3 --> C44O + NO2 ', & - ' C44O2 --> C44O ', & - 'H1C23C4CO3 + HO2 --> H1C23C4O2 + OH ', & - 'H1C23C4CO3 + HO2 --> HC23C4CO3H ', & - ' H1C23C4CO3 + NO --> H1C23C4O2 + NO2 ', & - 'H1C23C4CO3 + NO2 --> H1C23C4PAN ', & - 'H1C23C4CO3 + NO3 --> H1C23C4O2 + NO2 ', & - ' H1C23C4CO3 --> H1C23C4O2 ', & - ' H1C23C4O2 + HO2 --> H1C23C4OOH ', & - ' H1C23C4O2 + NO --> H1C23C4O + NO2 ', & - ' H1C23C4O2 + NO3 --> H1C23C4O + NO2 ', & - ' H1C23C4O2 --> H1C23C4O ', & - ' C615OOH + OH --> C615CO + OH ', & - ' C615OOH --> C615O + OH ', & - ' C615O --> CO1M22CHO + CO + HO2 ', & - ' C615OH + OH --> C615CO + HO2 ', & - ' C615OH --> C615O + HO2 ', & - ' CO1M22CO3 + HO2 --> CO1M22CO2H + O3 ', & - ' CO1M22CO3 + HO2 --> CO1M22CO3H ', & - ' CO1M22CO3 + HO2 --> IBUTALCO2 + OH ', & - ' CO1M22CO3 + NO --> IBUTALCO2 + NO2 ', & - ' CO1M22CO3 + NO2 --> CO1M22PAN ', & - ' CO1M22CO3 + NO3 --> IBUTALCO2 + NO2 ', & - ' CO1M22CO3 --> CO1M22CO2H ', & - ' CO1M22CO3 --> IBUTALCO2 ', & - ' C519CO2H + OH --> C519O2 ', & - ' C519CO3H + OH --> C519CO3 ', & - ' C519CO3H --> C519O2 + OH ', & - ' C519O2 + HO2 --> C519OOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_501 = (/ & - ' C519O2 + NO --> C519O + NO2 ', & - ' C519O2 + NO3 --> C519O + NO2 ', & - ' C519O2 --> C519O ', & - ' C519O2 --> HO13CO4C5 ', & - ' C519O2 --> HO1CO34C5 ', & - ' C519PAN + OH --> HO1CO34C5 + CO + NO2 ', & - ' C519PAN --> C519CO3 + NO2 ', & - ' C629OOH + OH --> C629O2 ', & - ' C629OOH --> C629O + OH ', & - ' C629OOH --> HO1CO34C5 + OH + CO + HO2 ', & - ' C629OOH --> HO1CO3CHO + CH3CO3 + OH ', & - ' C629O --> HO1CO34C5 + CO + HO2 ', & - ' C629O --> HO1CO3CHO + CH3CO3 ', & - ' C629OH + OH --> C629O ', & - ' C629OH --> HO1CO34C5 + CO + 2 HO2 ', & - ' C629OH --> HO1CO3CHO + CH3CO3 + HO2 ', & - ' C625O2 + HO2 --> C625OOH ', & - ' C625O2 + NO --> C625O + NO2 ', & - ' C625O2 + NO3 --> C625O + NO2 ', & - ' C625O2 --> C625O ', & - ' C625O2 --> C625OH ', & - ' C734OOH + OH --> C734CO + OH ', & - ' C734OOH --> C734O + OH ', & - ' C734O --> C517CHO + HO2 ', & - ' C734CO + OH --> C517CO3 ', & - ' C734CO --> C517CO3 + HO2 ', & - ' C734OH + OH --> C734CO + HO2 ', & - ' C1213CO + OH --> CHOC2CO2H + C829O2 ', & - ' C1213O2 + HO2 --> C1213OOH ', & - ' C1213O2 + NO --> C1213NO3 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_502 = (/ & - ' C1213O2 + NO --> C1213O + NO2 ', & - ' C1213O2 + NO3 --> C1213O + NO2 ', & - ' C1213O2 --> C1213CO ', & - ' C1213O2 --> C1213O ', & - ' C1213O2 --> C1213OH ', & - ' C521OOH + OH --> C513CO + OH ', & - ' C521OOH --> C521O + OH ', & - ' C521O --> HOC2H4CO3 + CO ', & - ' C521OH + OH --> C513CO + HO2 ', & - ' C521OH --> HOCH2CO3 + HOC2H4CO3 ', & - ' C135OOH + OH --> C135O2 ', & - ' C135OOH --> C135O + OH ', & - ' C135O --> C827CO3 + HOCH2CHO + 2 CO ', & - ' COO2C4CO3H + OH --> COO2C4CO3 ', & - ' COO2C4CO3H --> COO2C4O2 + OH ', & - ' COO2C4PAN + OH --> COO2C3CHO + CO + NO2 ', & - ' COO2C4PAN --> COO2C4CO3 + NO2 ', & - ' COO2C4OOH + OH --> COO2C3CHO + OH ', & - ' COO2C4OOH + OH --> COO2C4O2 ', & - ' COO2C4OOH --> COO2C4O + OH ', & - ' COO2C4O --> COO2C3CHO + HO2 ', & - ' C929OOH + OH --> C929CO + OH ', & - ' C929OOH --> C929O + OH ', & - ' C929O --> HM22CO3 + CO2C3CHO ', & - ' C929CO + OH --> C828CHO + HO2 ', & - ' C929CO --> HM22CO3 + CO2C3CO3 ', & - ' C929OH + OH --> C929CO + HO2 ', & - ' C516OOH --> C516O + OH ', & - ' C516OOH + OH --> C516O2 + OH ', & - ' C516O --> CO13C3CO2H + HCHO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_503 = (/ & - ' C44OOH + OH --> C44O2 ', & - ' C44OOH --> C44O + OH ', & - ' C44O --> HCOCH2CHO + HO2 ', & - ' HC23C4CO3H + OH --> H1C23C4CO3 ', & - ' HC23C4CO3H --> H1C23C4O2 + OH ', & - ' H1C23C4PAN + OH --> H1CO23CHO + CO + NO2 ', & - ' H1C23C4PAN --> H1C23C4CO3 + NO2 ', & - ' H1C23C4OOH + OH --> H1C23C4O2 ', & - ' H1C23C4OOH --> H1C23C4O + OH ', & - ' H1C23C4O --> HCHO + HOCH2CO3 + CO ', & - ' CO1M22CHO + NO3 --> CO1M22CO3 + HNO3 ', & - ' CO1M22CHO + OH --> CO1M22CO3 ', & - ' CO1M22CHO --> IBUTALCO2 + CO + HO2 ', & - ' CO1M22CO2H + OH --> IBUTALCO2 ', & - ' CO1M22CO2H --> IBUTALCO2 + HO2 ', & - ' CO1M22CO3H + OH --> CO1M22CO3 ', & - ' CO1M22CO3H --> IBUTALCO2 + OH ', & - ' CO1M22PAN + OH --> CH3COCH3 + CO + NO2 ', & - ' CO1M22PAN --> CO1M22CO3 + NO2 ', & - ' C519OOH + OH --> HO1CO34C5 + OH ', & - ' C519OOH --> C519O + OH ', & - ' C519OOH --> HOC2H4CHO + CH3CO3 + OH ', & - ' C519O --> HOC2H4CHO + CH3CO3 ', & - ' C625OOH + OH --> C625O2 ', & - ' C625OOH --> C625O + OH ', & - ' C625OOH --> ACETOL + HOC2H4CO3 + OH ', & - ' C625O --> ACETOL + HOC2H4CO3 ', & - ' C625OH + OH --> ACETOL + HOC2H4CO3 ', & - ' C625OH --> ACETOL + HOC2H4CO3 + HO2 ', & - ' C1213OOH + OH --> C1213CO + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_504 = (/ & - ' C1213OOH --> C1213O + OH ', & - ' C1213NO3 + OH --> C1213CO + NO2 ', & - ' C1213NO3 --> C1213O + NO2 ', & - ' C1213O --> CHOC2CO2H + C829O2 ', & - ' C1213OH + OH --> C1213CO + HO2 ', & - ' COO2C3CHO + OH --> COO2C3CO3 ', & - ' COO2C3CHO --> MOCOCH2O2 + CO + HO2 ', & - ' C828CHO + NO3 --> C828CO3 + HNO3 ', & - ' C828CHO + OH --> C828CO3 ', & - ' C828CHO --> C828O2 + CO + HO2 ', & - ' COO2C3CO3 + HO2 --> COO2C3CO3H ', & - ' COO2C3CO3 + HO2 --> MOCOCH2O2 + OH ', & - ' COO2C3CO3 + NO --> MOCOCH2O2 + NO2 ', & - ' COO2C3CO3 + NO2 --> COO2C3PAN ', & - ' COO2C3CO3 + NO3 --> MOCOCH2O2 + NO2 ', & - ' COO2C3CO3 --> MOCOCH2O2 ', & - ' MOCOCH2O2 + HO2 --> MOCOCH2OOH ', & - ' MOCOCH2O2 + NO --> MOCOCH2O + NO2 ', & - ' MOCOCH2O2 + NO3 --> MOCOCH2O + NO2 ', & - ' MOCOCH2O2 --> MOCOCH2O ', & - ' MOCOCH2O2 --> MOXCOCH2OH ', & - ' MOCOCH2O2 --> MOXYCOCHO ', & - ' C828CO3 + HO2 --> C828CO3H ', & - ' C828CO3 + HO2 --> C828O2 + OH ', & - ' C828CO3 + NO --> C828O2 + NO2 ', & - ' C828CO3 + NO2 --> C828PAN ', & - ' C828CO3 + NO3 --> C828O2 + NO2 ', & - ' C828CO3 --> C828O2 ', & - ' C828O2 + HO2 --> C828OOH ', & - ' C828O2 + NO --> C828O + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(27) :: EQN_NAMES_505 = (/ & - ' C828O2 + NO3 --> C828O + NO2 ', & - ' C828O2 --> C828O ', & - ' COO2C3CO3H + OH --> COO2C3CO3 ', & - ' COO2C3CO3H --> MOCOCH2O2 + OH ', & - ' COO2C3PAN + OH --> MOXYCOCHO + CO + NO2 ', & - ' COO2C3PAN --> COO2C3CO3 + NO2 ', & - ' MOCOCH2OOH + OH --> MOCOCH2O2 ', & - ' MOCOCH2OOH + OH --> MOXYCOCHO + OH ', & - ' MOCOCH2OOH --> MOCOCH2O + OH ', & - ' MOCOCH2O --> CH3O2 ', & - ' MOXCOCH2OH + OH --> MOXYCOCHO + HO2 ', & - ' MOXYCOCHO + OH --> CHOCOMOXO2 ', & - ' MOXYCOCHO --> CH3O2 + CO + HO2 ', & - ' C828CO3H + OH --> C828CO3 ', & - ' C828CO3H --> C828O2 + OH ', & - ' C828PAN + OH --> CO24C4CHO + CH3COCH3 + NO2 ', & - ' C828PAN --> C828CO3 + NO2 ', & - ' C828OOH + OH --> C828O2 ', & - ' C828OOH --> C828O + OH ', & - ' C828O --> CO2C3CO3 + CH3COCH3 + CO ', & - 'CHOCOMOXO2 + HO2 --> ALCOMOXOOH ', & - ' CHOCOMOXO2 + NO --> CHOCOMOXO + NO2 ', & - 'CHOCOMOXO2 + NO3 --> CHOCOMOXO + NO2 ', & - ' CHOCOMOXO2 --> CHOCOMOXO ', & - ' ALCOMOXOOH + OH --> CHOCOMOXO2 ', & - ' ALCOMOXOOH --> CHOCOMOXO + OH ', & - ' CHOCOMOXO --> HCHO + CO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(15177) :: EQN_NAMES = (/& - EQN_NAMES_0, EQN_NAMES_1, EQN_NAMES_2, EQN_NAMES_3, EQN_NAMES_4, & - EQN_NAMES_5, EQN_NAMES_6, EQN_NAMES_7, EQN_NAMES_8, EQN_NAMES_9, & - EQN_NAMES_10, EQN_NAMES_11, EQN_NAMES_12, EQN_NAMES_13, EQN_NAMES_14, & - EQN_NAMES_15, EQN_NAMES_16, EQN_NAMES_17, EQN_NAMES_18, EQN_NAMES_19, & - EQN_NAMES_20, EQN_NAMES_21, EQN_NAMES_22, EQN_NAMES_23, EQN_NAMES_24, & - EQN_NAMES_25, EQN_NAMES_26, EQN_NAMES_27, EQN_NAMES_28, EQN_NAMES_29, & - EQN_NAMES_30, EQN_NAMES_31, EQN_NAMES_32, EQN_NAMES_33, EQN_NAMES_34, & - EQN_NAMES_35, EQN_NAMES_36, EQN_NAMES_37, EQN_NAMES_38, EQN_NAMES_39, & - EQN_NAMES_40, EQN_NAMES_41, EQN_NAMES_42, EQN_NAMES_43, EQN_NAMES_44, & - EQN_NAMES_45, EQN_NAMES_46, EQN_NAMES_47, EQN_NAMES_48, EQN_NAMES_49, & - EQN_NAMES_50, EQN_NAMES_51, EQN_NAMES_52, EQN_NAMES_53, EQN_NAMES_54, & - EQN_NAMES_55, EQN_NAMES_56, EQN_NAMES_57, EQN_NAMES_58, EQN_NAMES_59, & - EQN_NAMES_60, EQN_NAMES_61, EQN_NAMES_62, EQN_NAMES_63, EQN_NAMES_64, & - EQN_NAMES_65, EQN_NAMES_66, EQN_NAMES_67, EQN_NAMES_68, EQN_NAMES_69, & - EQN_NAMES_70, EQN_NAMES_71, EQN_NAMES_72, EQN_NAMES_73, EQN_NAMES_74, & - EQN_NAMES_75, EQN_NAMES_76, EQN_NAMES_77, EQN_NAMES_78, EQN_NAMES_79, & - EQN_NAMES_80, EQN_NAMES_81, EQN_NAMES_82, EQN_NAMES_83, EQN_NAMES_84, & - EQN_NAMES_85, EQN_NAMES_86, EQN_NAMES_87, EQN_NAMES_88, EQN_NAMES_89, & - EQN_NAMES_90, EQN_NAMES_91, EQN_NAMES_92, EQN_NAMES_93, EQN_NAMES_94, & - EQN_NAMES_95, EQN_NAMES_96, EQN_NAMES_97, EQN_NAMES_98, EQN_NAMES_99, & - EQN_NAMES_100, EQN_NAMES_101, EQN_NAMES_102, EQN_NAMES_103, EQN_NAMES_104, & - EQN_NAMES_105, EQN_NAMES_106, EQN_NAMES_107, EQN_NAMES_108, EQN_NAMES_109, & - EQN_NAMES_110, EQN_NAMES_111, EQN_NAMES_112, EQN_NAMES_113, EQN_NAMES_114, & - EQN_NAMES_115, EQN_NAMES_116, EQN_NAMES_117, EQN_NAMES_118, EQN_NAMES_119, & - EQN_NAMES_120, EQN_NAMES_121, EQN_NAMES_122, EQN_NAMES_123, EQN_NAMES_124, & - EQN_NAMES_125, EQN_NAMES_126, EQN_NAMES_127, EQN_NAMES_128, EQN_NAMES_129, & - EQN_NAMES_130, EQN_NAMES_131, EQN_NAMES_132, EQN_NAMES_133, EQN_NAMES_134, & - EQN_NAMES_135, EQN_NAMES_136, EQN_NAMES_137, EQN_NAMES_138, EQN_NAMES_139, & - EQN_NAMES_140, EQN_NAMES_141, EQN_NAMES_142, EQN_NAMES_143, EQN_NAMES_144, & - EQN_NAMES_145, EQN_NAMES_146, EQN_NAMES_147, EQN_NAMES_148, EQN_NAMES_149, & - EQN_NAMES_150, EQN_NAMES_151, EQN_NAMES_152, EQN_NAMES_153, EQN_NAMES_154, & - EQN_NAMES_155, EQN_NAMES_156, EQN_NAMES_157, EQN_NAMES_158, EQN_NAMES_159, & - EQN_NAMES_160, EQN_NAMES_161, EQN_NAMES_162, EQN_NAMES_163, EQN_NAMES_164, & - EQN_NAMES_165, EQN_NAMES_166, EQN_NAMES_167, EQN_NAMES_168, EQN_NAMES_169, & - EQN_NAMES_170, EQN_NAMES_171, EQN_NAMES_172, EQN_NAMES_173, EQN_NAMES_174, & - EQN_NAMES_175, EQN_NAMES_176, EQN_NAMES_177, EQN_NAMES_178, EQN_NAMES_179, & - EQN_NAMES_180, EQN_NAMES_181, EQN_NAMES_182, EQN_NAMES_183, EQN_NAMES_184, & - EQN_NAMES_185, EQN_NAMES_186, EQN_NAMES_187, EQN_NAMES_188, EQN_NAMES_189, & - EQN_NAMES_190, EQN_NAMES_191, EQN_NAMES_192, EQN_NAMES_193, EQN_NAMES_194, & - EQN_NAMES_195, EQN_NAMES_196, EQN_NAMES_197, EQN_NAMES_198, EQN_NAMES_199, & - EQN_NAMES_200, EQN_NAMES_201, EQN_NAMES_202, EQN_NAMES_203, EQN_NAMES_204, & - EQN_NAMES_205, EQN_NAMES_206, EQN_NAMES_207, EQN_NAMES_208, EQN_NAMES_209, & - EQN_NAMES_210, EQN_NAMES_211, EQN_NAMES_212, EQN_NAMES_213, EQN_NAMES_214, & - EQN_NAMES_215, EQN_NAMES_216, EQN_NAMES_217, EQN_NAMES_218, EQN_NAMES_219, & - EQN_NAMES_220, EQN_NAMES_221, EQN_NAMES_222, EQN_NAMES_223, EQN_NAMES_224, & - EQN_NAMES_225, EQN_NAMES_226, EQN_NAMES_227, EQN_NAMES_228, EQN_NAMES_229, & - EQN_NAMES_230, EQN_NAMES_231, EQN_NAMES_232, EQN_NAMES_233, EQN_NAMES_234, & - EQN_NAMES_235, EQN_NAMES_236, EQN_NAMES_237, EQN_NAMES_238, EQN_NAMES_239, & - EQN_NAMES_240, EQN_NAMES_241, EQN_NAMES_242, EQN_NAMES_243, EQN_NAMES_244, & - EQN_NAMES_245, EQN_NAMES_246, EQN_NAMES_247, EQN_NAMES_248, EQN_NAMES_249, & - EQN_NAMES_250, EQN_NAMES_251, EQN_NAMES_252, EQN_NAMES_253, EQN_NAMES_254, & - EQN_NAMES_255, EQN_NAMES_256, EQN_NAMES_257, EQN_NAMES_258, EQN_NAMES_259, & - EQN_NAMES_260, EQN_NAMES_261, EQN_NAMES_262, EQN_NAMES_263, EQN_NAMES_264, & - EQN_NAMES_265, EQN_NAMES_266, EQN_NAMES_267, EQN_NAMES_268, EQN_NAMES_269, & - EQN_NAMES_270, EQN_NAMES_271, EQN_NAMES_272, EQN_NAMES_273, EQN_NAMES_274, & - EQN_NAMES_275, EQN_NAMES_276, EQN_NAMES_277, EQN_NAMES_278, EQN_NAMES_279, & - EQN_NAMES_280, EQN_NAMES_281, EQN_NAMES_282, EQN_NAMES_283, EQN_NAMES_284, & - EQN_NAMES_285, EQN_NAMES_286, EQN_NAMES_287, EQN_NAMES_288, EQN_NAMES_289, & - EQN_NAMES_290, EQN_NAMES_291, EQN_NAMES_292, EQN_NAMES_293, EQN_NAMES_294, & - EQN_NAMES_295, EQN_NAMES_296, EQN_NAMES_297, EQN_NAMES_298, EQN_NAMES_299, & - EQN_NAMES_300, EQN_NAMES_301, EQN_NAMES_302, EQN_NAMES_303, EQN_NAMES_304, & - EQN_NAMES_305, EQN_NAMES_306, EQN_NAMES_307, EQN_NAMES_308, EQN_NAMES_309, & - EQN_NAMES_310, EQN_NAMES_311, EQN_NAMES_312, EQN_NAMES_313, EQN_NAMES_314, & - EQN_NAMES_315, EQN_NAMES_316, EQN_NAMES_317, EQN_NAMES_318, EQN_NAMES_319, & - EQN_NAMES_320, EQN_NAMES_321, EQN_NAMES_322, EQN_NAMES_323, EQN_NAMES_324, & - EQN_NAMES_325, EQN_NAMES_326, EQN_NAMES_327, EQN_NAMES_328, EQN_NAMES_329, & - EQN_NAMES_330, EQN_NAMES_331, EQN_NAMES_332, EQN_NAMES_333, EQN_NAMES_334, & - EQN_NAMES_335, EQN_NAMES_336, EQN_NAMES_337, EQN_NAMES_338, EQN_NAMES_339, & - EQN_NAMES_340, EQN_NAMES_341, EQN_NAMES_342, EQN_NAMES_343, EQN_NAMES_344, & - EQN_NAMES_345, EQN_NAMES_346, EQN_NAMES_347, EQN_NAMES_348, EQN_NAMES_349, & - EQN_NAMES_350, EQN_NAMES_351, EQN_NAMES_352, EQN_NAMES_353, EQN_NAMES_354, & - EQN_NAMES_355, EQN_NAMES_356, EQN_NAMES_357, EQN_NAMES_358, EQN_NAMES_359, & - EQN_NAMES_360, EQN_NAMES_361, EQN_NAMES_362, EQN_NAMES_363, EQN_NAMES_364, & - EQN_NAMES_365, EQN_NAMES_366, EQN_NAMES_367, EQN_NAMES_368, EQN_NAMES_369, & - EQN_NAMES_370, EQN_NAMES_371, EQN_NAMES_372, EQN_NAMES_373, EQN_NAMES_374, & - EQN_NAMES_375, EQN_NAMES_376, EQN_NAMES_377, EQN_NAMES_378, EQN_NAMES_379, & - EQN_NAMES_380, EQN_NAMES_381, EQN_NAMES_382, EQN_NAMES_383, EQN_NAMES_384, & - EQN_NAMES_385, EQN_NAMES_386, EQN_NAMES_387, EQN_NAMES_388, EQN_NAMES_389, & - EQN_NAMES_390, EQN_NAMES_391, EQN_NAMES_392, EQN_NAMES_393, EQN_NAMES_394, & - EQN_NAMES_395, EQN_NAMES_396, EQN_NAMES_397, EQN_NAMES_398, EQN_NAMES_399, & - EQN_NAMES_400, EQN_NAMES_401, EQN_NAMES_402, EQN_NAMES_403, EQN_NAMES_404, & - EQN_NAMES_405, EQN_NAMES_406, EQN_NAMES_407, EQN_NAMES_408, EQN_NAMES_409, & - EQN_NAMES_410, EQN_NAMES_411, EQN_NAMES_412, EQN_NAMES_413, EQN_NAMES_414, & - EQN_NAMES_415, EQN_NAMES_416, EQN_NAMES_417, EQN_NAMES_418, EQN_NAMES_419, & - EQN_NAMES_420, EQN_NAMES_421, EQN_NAMES_422, EQN_NAMES_423, EQN_NAMES_424, & - EQN_NAMES_425, EQN_NAMES_426, EQN_NAMES_427, EQN_NAMES_428, EQN_NAMES_429, & - EQN_NAMES_430, EQN_NAMES_431, EQN_NAMES_432, EQN_NAMES_433, EQN_NAMES_434, & - EQN_NAMES_435, EQN_NAMES_436, EQN_NAMES_437, EQN_NAMES_438, EQN_NAMES_439, & - EQN_NAMES_440, EQN_NAMES_441, EQN_NAMES_442, EQN_NAMES_443, EQN_NAMES_444, & - EQN_NAMES_445, EQN_NAMES_446, EQN_NAMES_447, EQN_NAMES_448, EQN_NAMES_449, & - EQN_NAMES_450, EQN_NAMES_451, EQN_NAMES_452, EQN_NAMES_453, EQN_NAMES_454, & - EQN_NAMES_455, EQN_NAMES_456, EQN_NAMES_457, EQN_NAMES_458, EQN_NAMES_459, & - EQN_NAMES_460, EQN_NAMES_461, EQN_NAMES_462, EQN_NAMES_463, EQN_NAMES_464, & - EQN_NAMES_465, EQN_NAMES_466, EQN_NAMES_467, EQN_NAMES_468, EQN_NAMES_469, & - EQN_NAMES_470, EQN_NAMES_471, EQN_NAMES_472, EQN_NAMES_473, EQN_NAMES_474, & - EQN_NAMES_475, EQN_NAMES_476, EQN_NAMES_477, EQN_NAMES_478, EQN_NAMES_479, & - EQN_NAMES_480, EQN_NAMES_481, EQN_NAMES_482, EQN_NAMES_483, EQN_NAMES_484, & - EQN_NAMES_485, EQN_NAMES_486, EQN_NAMES_487, EQN_NAMES_488, EQN_NAMES_489, & - EQN_NAMES_490, EQN_NAMES_491, EQN_NAMES_492, EQN_NAMES_493, EQN_NAMES_494, & - EQN_NAMES_495, EQN_NAMES_496, EQN_NAMES_497, EQN_NAMES_498, EQN_NAMES_499, & - EQN_NAMES_500, EQN_NAMES_501, EQN_NAMES_502, EQN_NAMES_503, EQN_NAMES_504, & - EQN_NAMES_505 /) - -! INLINED global variables - -! End INLINED global variables - - -END MODULE MCMv3_3_Monitor diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Monitor.o b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Monitor.o deleted file mode 100644 index e4abca4b345b3c2d1916605d44feab0bedef7a5c..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Monitor.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Parameters.f90 b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Parameters.f90 deleted file mode 100644 index ec79419d588a8442bbf1d4fc0bc885b44410fb52..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Parameters.f90 +++ /dev/null @@ -1,5342 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Parameter Module File -! -! Generated by KPP-2.2.3 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 : MCMv3_3_Parameters.f90 -! Time : Mon Jul 19 14:16:06 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MCMv3_3_3654_BOXMOX -! Equation file : MCMv3_3.kpp -! Output root filename : MCMv3_3 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MCMv3_3_Parameters - - USE MCMv3_3_Precision - PUBLIC - SAVE - - -! NSPEC - Number of chemical species - INTEGER, PARAMETER :: NSPEC = 5260 -! NVAR - Number of Variable species - INTEGER, PARAMETER :: NVAR = 5258 -! NVARACT - Number of Active species - INTEGER, PARAMETER :: NVARACT = 5256 -! NFIX - Number of Fixed species - INTEGER, PARAMETER :: NFIX = 2 -! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 15177 -! NVARST - Starting of variables in conc. vect. - INTEGER, PARAMETER :: NVARST = 1 -! NFIXST - Starting of fixed in conc. vect. - INTEGER, PARAMETER :: NFIXST = 5259 -! NONZERO - Number of nonzero entries in Jacobian - INTEGER, PARAMETER :: NONZERO = 43674 -! LU_NONZERO - Number of nonzero entries in LU factoriz. of Jacobian - INTEGER, PARAMETER :: LU_NONZERO = 55272 -! CNVAR - (NVAR+1) Number of elements in compressed row format - INTEGER, PARAMETER :: CNVAR = 5259 -! CNEQN - (NREACT+1) Number stoicm elements in compressed col format - INTEGER, PARAMETER :: CNEQN = 15178 -! NLOOKAT - Number of species to look at - INTEGER, PARAMETER :: NLOOKAT = 5260 -! NMONITOR - Number of species to monitor - INTEGER, PARAMETER :: NMONITOR = 0 -! NMASS - Number of atoms to check mass balance - INTEGER, PARAMETER :: NMASS = 1 - -! Index declaration for variable species in C and VAR -! VAR(ind_spc) = C(ind_spc) - - INTEGER, PARAMETER :: ind_NA = 1 - INTEGER, PARAMETER :: ind_SA = 2 - INTEGER, PARAMETER :: ind_SO3 = 3 - INTEGER, PARAMETER :: ind_O1D = 4 - INTEGER, PARAMETER :: ind_HSO3 = 5 - INTEGER, PARAMETER :: ind_HO2CO3C4O = 6 - INTEGER, PARAMETER :: ind_IPRCOMO = 7 - INTEGER, PARAMETER :: ind_C5CO24O = 8 - INTEGER, PARAMETER :: ind_C51OH = 9 - INTEGER, PARAMETER :: ind_INB1HPCO2H = 10 - INTEGER, PARAMETER :: ind_C42CHO2O = 11 - INTEGER, PARAMETER :: ind_MAE = 12 - INTEGER, PARAMETER :: ind_TM135OLOH = 13 - INTEGER, PARAMETER :: ind_PTLQO = 14 - INTEGER, PARAMETER :: ind_PMALANHY = 15 - INTEGER, PARAMETER :: ind_PETLQO = 16 - INTEGER, PARAMETER :: ind_TM124OLOH = 17 - INTEGER, PARAMETER :: ind_DMEPHOLOH = 18 - INTEGER, PARAMETER :: ind_PACLOOA = 19 - INTEGER, PARAMETER :: ind_C628OOA = 20 - INTEGER, PARAMETER :: ind_IEB4CHO = 21 - INTEGER, PARAMETER :: ind_METLBPR2OH = 22 - INTEGER, PARAMETER :: ind_NC4IPDCO2 = 23 - INTEGER, PARAMETER :: ind_C719OH = 24 - INTEGER, PARAMETER :: ind_C721O = 25 - INTEGER, PARAMETER :: ind_IPMLNHY2OH = 26 - INTEGER, PARAMETER :: ind_C735OOA = 27 - INTEGER, PARAMETER :: ind_NOPINCOH = 28 - INTEGER, PARAMETER :: ind_PGAOOB = 29 - INTEGER, PARAMETER :: ind_C132OH = 30 - INTEGER, PARAMETER :: ind_MXYOLOH = 31 - INTEGER, PARAMETER :: ind_C4ME22OH = 32 - INTEGER, PARAMETER :: ind_MXYQOH = 33 - INTEGER, PARAMETER :: ind_M2HEXBOH = 34 - INTEGER, PARAMETER :: ind_C111O = 35 - INTEGER, PARAMETER :: ind_CHOC4O = 36 - INTEGER, PARAMETER :: ind_CH3CCH3OOC = 37 - INTEGER, PARAMETER :: ind_TMB2FUOH = 38 - INTEGER, PARAMETER :: ind_MEBFUOH = 39 - INTEGER, PARAMETER :: ind_C812OH = 40 - INTEGER, PARAMETER :: ind_MXYFUOH = 41 - INTEGER, PARAMETER :: ind_NC101O = 42 - INTEGER, PARAMETER :: ind_C121O = 43 - INTEGER, PARAMETER :: ind_CHOC4OHO = 44 - INTEGER, PARAMETER :: ind_CYC6DIONO = 45 - INTEGER, PARAMETER :: ind_TMB1FUOH = 46 - INTEGER, PARAMETER :: ind_EBENZOLOH = 47 - INTEGER, PARAMETER :: ind_IEB1CHO = 48 - INTEGER, PARAMETER :: ind_C921O = 49 - INTEGER, PARAMETER :: ind_CO3C85O = 50 - INTEGER, PARAMETER :: ind_EOCOCH2O = 51 - INTEGER, PARAMETER :: ind_TM124BP2OH = 52 - INTEGER, PARAMETER :: ind_MMALNHY2OH = 53 - INTEGER, PARAMETER :: ind_OETLBPR2OH = 54 - INTEGER, PARAMETER :: ind_C510OH = 55 - INTEGER, PARAMETER :: ind_C24O3CCO2H = 56 - INTEGER, PARAMETER :: ind_TM124QO = 57 - INTEGER, PARAMETER :: ind_PXYFUOH = 58 - INTEGER, PARAMETER :: ind_C127OH = 59 - INTEGER, PARAMETER :: ind_C827OH = 60 - INTEGER, PARAMETER :: ind_C629OOA = 61 - INTEGER, PARAMETER :: ind_C57OH = 62 - INTEGER, PARAMETER :: ind_MC6OTKETOH = 63 - INTEGER, PARAMETER :: ind_M23C43OH = 64 - INTEGER, PARAMETER :: ind_PXYQO = 65 - INTEGER, PARAMETER :: ind_C101O = 66 - INTEGER, PARAMETER :: ind_PPGAOOB = 67 - INTEGER, PARAMETER :: ind_TM123OLOH = 68 - INTEGER, PARAMETER :: ind_C914O = 69 - INTEGER, PARAMETER :: ind_C58OH = 70 - INTEGER, PARAMETER :: ind_IPBENZOLOH = 71 - INTEGER, PARAMETER :: ind_DMMALYOH = 72 - INTEGER, PARAMETER :: ind_OXYFUOH = 73 - INTEGER, PARAMETER :: ind_DEMPHOLOH = 74 - INTEGER, PARAMETER :: ind_EMALANHY = 75 - INTEGER, PARAMETER :: ind_NC72O = 76 - INTEGER, PARAMETER :: ind_C6CO134 = 77 - INTEGER, PARAMETER :: ind_METLQO = 78 - INTEGER, PARAMETER :: ind_C917OH = 79 - INTEGER, PARAMETER :: ind_C6CYTONO = 80 - INTEGER, PARAMETER :: ind_DMEBPR2OH = 81 - INTEGER, PARAMETER :: ind_MXYQO = 82 - INTEGER, PARAMETER :: ind_C1212OH = 83 - INTEGER, PARAMETER :: ind_PXYOLOH = 84 - INTEGER, PARAMETER :: ind_NC4MDCO2 = 85 - INTEGER, PARAMETER :: ind_CH3O2NO2 = 86 - INTEGER, PARAMETER :: ind_C142OH = 87 - INTEGER, PARAMETER :: ind_C88O = 88 - INTEGER, PARAMETER :: ind_PHIC3OH = 89 - INTEGER, PARAMETER :: ind_TM124QOH = 90 - INTEGER, PARAMETER :: ind_C75O = 91 - INTEGER, PARAMETER :: ind_IPRBQO = 92 - INTEGER, PARAMETER :: ind_METLQOH = 93 - INTEGER, PARAMETER :: ind_PHENOH = 94 - INTEGER, PARAMETER :: ind_APINCOH = 95 - INTEGER, PARAMETER :: ind_C6145COO = 96 - INTEGER, PARAMETER :: ind_PPRBQO = 97 - INTEGER, PARAMETER :: ind_PMALNHY2OH = 98 - INTEGER, PARAMETER :: ind_C927OH = 99 - INTEGER, PARAMETER :: ind_TLFUOH = 100 - INTEGER, PARAMETER :: ind_EMALNHY2OH = 101 - INTEGER, PARAMETER :: ind_PXYBPER2OH = 102 - INTEGER, PARAMETER :: ind_PXYQOH = 103 - INTEGER, PARAMETER :: ind_BPINCOH = 104 - INTEGER, PARAMETER :: ind_ISOPBOH = 105 - INTEGER, PARAMETER :: ind_PETLQOH = 106 - INTEGER, PARAMETER :: ind_OETLQO = 107 - INTEGER, PARAMETER :: ind_C117OH = 108 - INTEGER, PARAMETER :: ind_OXYOLOH = 109 - INTEGER, PARAMETER :: ind_CO14O3CO2H = 110 - INTEGER, PARAMETER :: ind_PETOLOH = 111 - INTEGER, PARAMETER :: ind_C520OOA = 112 - INTEGER, PARAMETER :: ind_C1214O = 113 - INTEGER, PARAMETER :: ind_CO2C3CO2H = 114 - INTEGER, PARAMETER :: ind_MOCOCH2O = 115 - INTEGER, PARAMETER :: ind_PEBQO = 116 - INTEGER, PARAMETER :: ind_CO3C75O = 117 - INTEGER, PARAMETER :: ind_C145OH = 118 - INTEGER, PARAMETER :: ind_OETOLOH = 119 - INTEGER, PARAMETER :: ind_OXYQO = 120 - INTEGER, PARAMETER :: ind_C511CHO = 121 - INTEGER, PARAMETER :: ind_IPMALANHY = 122 - INTEGER, PARAMETER :: ind_INANCOCHO = 123 - INTEGER, PARAMETER :: ind_METOLOH = 124 - INTEGER, PARAMETER :: ind_C619O = 125 - INTEGER, PARAMETER :: ind_IBUTOLOHC = 126 - INTEGER, PARAMETER :: ind_C1313OH = 127 - INTEGER, PARAMETER :: ind_DETLBPR2OH = 128 - INTEGER, PARAMETER :: ind_PETLBPR2OH = 129 - INTEGER, PARAMETER :: ind_PBZQO = 130 - INTEGER, PARAMETER :: ind_PPACLOOA = 131 - INTEGER, PARAMETER :: ind_C710O = 132 - INTEGER, PARAMETER :: ind_M3PECOH = 133 - INTEGER, PARAMETER :: ind_C139OH = 134 - INTEGER, PARAMETER :: ind_OXYBPER2OH = 135 - INTEGER, PARAMETER :: ind_CRESOH = 136 - INTEGER, PARAMETER :: ind_N2O5 = 137 - INTEGER, PARAMETER :: ind_C85O = 138 - INTEGER, PARAMETER :: ind_M3HEXBOH = 139 - INTEGER, PARAMETER :: ind_C91O = 140 - INTEGER, PARAMETER :: ind_MALANHYO = 141 - INTEGER, PARAMETER :: ind_NC4DCO2 = 142 - INTEGER, PARAMETER :: ind_PBENZOLOH = 143 - INTEGER, PARAMETER :: ind_M2PEDOH = 144 - INTEGER, PARAMETER :: ind_NOPINDO = 145 - INTEGER, PARAMETER :: ind_C920O = 146 - INTEGER, PARAMETER :: ind_C8BC = 147 - INTEGER, PARAMETER :: ind_LIMALOOA = 148 - INTEGER, PARAMETER :: ind_C116O = 149 - INTEGER, PARAMETER :: ind_HEX3ONAO = 150 - INTEGER, PARAMETER :: ind_C137O = 151 - INTEGER, PARAMETER :: ind_IPMALANHYO = 152 - INTEGER, PARAMETER :: ind_HO3C5O = 153 - INTEGER, PARAMETER :: ind_C8BCO = 154 - INTEGER, PARAMETER :: ind_HEXAO = 155 - INTEGER, PARAMETER :: ind_C136O = 156 - INTEGER, PARAMETER :: ind_C732O = 157 - INTEGER, PARAMETER :: ind_C626O = 158 - INTEGER, PARAMETER :: ind_C1311O = 159 - INTEGER, PARAMETER :: ind_PEAO = 160 - INTEGER, PARAMETER :: ind_HEPTO = 161 - INTEGER, PARAMETER :: ind_C822O = 162 - INTEGER, PARAMETER :: ind_EMALANHYO = 163 - INTEGER, PARAMETER :: ind_PMALANHYO = 164 - INTEGER, PARAMETER :: ind_M3PEAO = 165 - INTEGER, PARAMETER :: ind_M3HEXAO = 166 - INTEGER, PARAMETER :: ind_HEX3ONDO = 167 - INTEGER, PARAMETER :: ind_C823O = 168 - INTEGER, PARAMETER :: ind_C812O = 169 - INTEGER, PARAMETER :: ind_MMALANHYO = 170 - INTEGER, PARAMETER :: ind_HEXBO = 171 - INTEGER, PARAMETER :: ind_C141O = 172 - INTEGER, PARAMETER :: ind_C928O = 173 - INTEGER, PARAMETER :: ind_C1011O = 174 - INTEGER, PARAMETER :: ind_DIEKBO = 175 - INTEGER, PARAMETER :: ind_NOPINBO = 176 - INTEGER, PARAMETER :: ind_OCTO = 177 - INTEGER, PARAMETER :: ind_C1211O = 178 - INTEGER, PARAMETER :: ind_CO2C54O = 179 - INTEGER, PARAMETER :: ind_C729O = 180 - INTEGER, PARAMETER :: ind_ME3BUOL = 181 - INTEGER, PARAMETER :: ind_C817O = 182 - INTEGER, PARAMETER :: ind_C1210O = 183 - INTEGER, PARAMETER :: ind_M2HEXAO = 184 - INTEGER, PARAMETER :: ind_HEX2ONAO = 185 - INTEGER, PARAMETER :: ind_UDECO = 186 - INTEGER, PARAMETER :: ind_C126O = 187 - INTEGER, PARAMETER :: ind_CO1C6O = 188 - INTEGER, PARAMETER :: ind_C131O = 189 - INTEGER, PARAMETER :: ind_C1013O = 190 - INTEGER, PARAMETER :: ind_C830O = 191 - INTEGER, PARAMETER :: ind_DECO = 192 - INTEGER, PARAMETER :: ind_C811O = 193 - INTEGER, PARAMETER :: ind_ISOPAO = 194 - INTEGER, PARAMETER :: ind_EIPKBO = 195 - INTEGER, PARAMETER :: ind_DDECO = 196 - INTEGER, PARAMETER :: ind_NONO = 197 - INTEGER, PARAMETER :: ind_C2H2 = 198 - INTEGER, PARAMETER :: ind_C923O = 199 - INTEGER, PARAMETER :: ind_H3M3C5O = 200 - INTEGER, PARAMETER :: ind_C9DCO = 201 - INTEGER, PARAMETER :: ind_M2PEAO = 202 - INTEGER, PARAMETER :: ind_C731O = 203 - INTEGER, PARAMETER :: ind_DMMALYO = 204 - INTEGER, PARAMETER :: ind_M22C4O = 205 - INTEGER, PARAMETER :: ind_C132O = 206 - INTEGER, PARAMETER :: ind_HO2C4CO2H = 207 - INTEGER, PARAMETER :: ind_ETHACETOH = 208 - INTEGER, PARAMETER :: ind_C98OH = 209 - INTEGER, PARAMETER :: ind_C88CO2H = 210 - INTEGER, PARAMETER :: ind_C117O = 211 - INTEGER, PARAMETER :: ind_PBZQOH = 212 - INTEGER, PARAMETER :: ind_C1214OH = 213 - INTEGER, PARAMETER :: ind_MEK2OOC = 214 - INTEGER, PARAMETER :: ind_C1013CO2H = 215 - INTEGER, PARAMETER :: ind_TOL4OHNO2 = 216 - INTEGER, PARAMETER :: ind_HIEPOXB = 217 - INTEGER, PARAMETER :: ind_C1215OH = 218 - INTEGER, PARAMETER :: ind_C924OH = 219 - INTEGER, PARAMETER :: ind_M2BKAOH = 220 - INTEGER, PARAMETER :: ind_NC8H18 = 221 - INTEGER, PARAMETER :: ind_C2OHOCO2H = 222 - INTEGER, PARAMETER :: ind_H14M4C6 = 223 - INTEGER, PARAMETER :: ind_LMKOOA = 224 - INTEGER, PARAMETER :: ind_OXYLOH = 225 - INTEGER, PARAMETER :: ind_C524OH = 226 - INTEGER, PARAMETER :: ind_TM123BCO2H = 227 - INTEGER, PARAMETER :: ind_HEXBOH = 228 - INTEGER, PARAMETER :: ind_ETOHOCHO = 229 - INTEGER, PARAMETER :: ind_C51CO2H = 230 - INTEGER, PARAMETER :: ind_HOC4H8OH = 231 - INTEGER, PARAMETER :: ind_NMBOBCO = 232 - INTEGER, PARAMETER :: ind_BZFUOH = 233 - INTEGER, PARAMETER :: ind_M3HEXAOH = 234 - INTEGER, PARAMETER :: ind_CHEX = 235 - INTEGER, PARAMETER :: ind_BCALOOA = 236 - INTEGER, PARAMETER :: ind_HOC2H4CO2H = 237 - INTEGER, PARAMETER :: ind_BUTDAOH = 238 - INTEGER, PARAMETER :: ind_CH3CCH3OOB = 239 - INTEGER, PARAMETER :: ind_H2M2C4CO2H = 240 - INTEGER, PARAMETER :: ind_LIMONIC = 241 - INTEGER, PARAMETER :: ind_M2PEAOH = 242 - INTEGER, PARAMETER :: ind_BCBOOA = 243 - INTEGER, PARAMETER :: ind_NIPBFUONE = 244 - INTEGER, PARAMETER :: ind_NC4PDCO2 = 245 - INTEGER, PARAMETER :: ind_MALANHY2OH = 246 - INTEGER, PARAMETER :: ind_C825OH = 247 - INTEGER, PARAMETER :: ind_C126OH = 248 - INTEGER, PARAMETER :: ind_ETHGLY = 249 - INTEGER, PARAMETER :: ind_TOLUENE = 250 - INTEGER, PARAMETER :: ind_C126CO2H = 251 - INTEGER, PARAMETER :: ind_C624CO2H = 252 - INTEGER, PARAMETER :: ind_NC12H26 = 253 - INTEGER, PARAMETER :: ind_NOPINCO = 254 - INTEGER, PARAMETER :: ind_C23O3ECO2H = 255 - INTEGER, PARAMETER :: ind_C143OH = 256 - INTEGER, PARAMETER :: ind_C1011OH = 257 - INTEGER, PARAMETER :: ind_HOC3H6CO2H = 258 - INTEGER, PARAMETER :: ind_NEBFUONE = 259 - INTEGER, PARAMETER :: ind_H2 = 260 - INTEGER, PARAMETER :: ind_INB2O = 261 - INTEGER, PARAMETER :: ind_PXYLOH = 262 - INTEGER, PARAMETER :: ind_C7ADCOH = 263 - INTEGER, PARAMETER :: ind_DM124OHNO2 = 264 - INTEGER, PARAMETER :: ind_PINIC = 265 - INTEGER, PARAMETER :: ind_C1013OH = 266 - INTEGER, PARAMETER :: ind_OETLQOH = 267 - INTEGER, PARAMETER :: ind_C517OH = 268 - INTEGER, PARAMETER :: ind_OCTOH = 269 - INTEGER, PARAMETER :: ind_NC9H20 = 270 - INTEGER, PARAMETER :: ind_C96O = 271 - INTEGER, PARAMETER :: ind_CHOOMCO2H = 272 - INTEGER, PARAMETER :: ind_PEBQOH = 273 - INTEGER, PARAMETER :: ind_TM123BP2OH = 274 - INTEGER, PARAMETER :: ind_C137CO2H = 275 - INTEGER, PARAMETER :: ind_C6H5C2CO2H = 276 - INTEGER, PARAMETER :: ind_C6H5C2OH = 277 - INTEGER, PARAMETER :: ind_CYHXDIOLA = 278 - INTEGER, PARAMETER :: ind_C87OH = 279 - INTEGER, PARAMETER :: ind_H3M3C5CO2H = 280 - INTEGER, PARAMETER :: ind_C146OH = 281 - INTEGER, PARAMETER :: ind_CO2C54CO2H = 282 - INTEGER, PARAMETER :: ind_IPBZBPR2OH = 283 - INTEGER, PARAMETER :: ind_C68OH = 284 - INTEGER, PARAMETER :: ind_HO124C5 = 285 - INTEGER, PARAMETER :: ind_HO13C5 = 286 - INTEGER, PARAMETER :: ind_C23O3CCO2H = 287 - INTEGER, PARAMETER :: ind_NEOP = 288 - INTEGER, PARAMETER :: ind_HO24C5 = 289 - INTEGER, PARAMETER :: ind_C1212O = 290 - INTEGER, PARAMETER :: ind_M33C3CO2H = 291 - INTEGER, PARAMETER :: ind_MXYBPER2OH = 292 - INTEGER, PARAMETER :: ind_APINOOA = 293 - INTEGER, PARAMETER :: ind_C518CO2H = 294 - INTEGER, PARAMETER :: ind_HO36C11 = 295 - INTEGER, PARAMETER :: ind_C1213OH = 296 - INTEGER, PARAMETER :: ind_C139O = 297 - INTEGER, PARAMETER :: ind_TBUTOL = 298 - INTEGER, PARAMETER :: ind_OXYQOH = 299 - INTEGER, PARAMETER :: ind_C97O = 300 - INTEGER, PARAMETER :: ind_CO2C4CO2H = 301 - INTEGER, PARAMETER :: ind_INDOH = 302 - INTEGER, PARAMETER :: ind_C9DCOH = 303 - INTEGER, PARAMETER :: ind_NEOPOH = 304 - INTEGER, PARAMETER :: ind_NC524OH = 305 - INTEGER, PARAMETER :: ind_H13M3C5 = 306 - INTEGER, PARAMETER :: ind_CH3OCH2OH = 307 - INTEGER, PARAMETER :: ind_M33C4OH = 308 - INTEGER, PARAMETER :: ind_ETOMECO2H = 309 - INTEGER, PARAMETER :: ind_C822OH = 310 - INTEGER, PARAMETER :: ind_NC826OH = 311 - INTEGER, PARAMETER :: ind_EBFUOH = 312 - INTEGER, PARAMETER :: ind_C1211OH = 313 - INTEGER, PARAMETER :: ind_HO25C7 = 314 - INTEGER, PARAMETER :: ind_C127O = 315 - INTEGER, PARAMETER :: ind_M2PECOH = 316 - INTEGER, PARAMETER :: ind_C826OH = 317 - INTEGER, PARAMETER :: ind_PEBQCO = 318 - INTEGER, PARAMETER :: ind_CHOOCH2OH = 319 - INTEGER, PARAMETER :: ind_C831OH = 320 - INTEGER, PARAMETER :: ind_EOX2ETA2OH = 321 - INTEGER, PARAMETER :: ind_PPRBQOH = 322 - INTEGER, PARAMETER :: ind_PPRBQCO = 323 - INTEGER, PARAMETER :: ind_PPRBQOOH = 324 - INTEGER, PARAMETER :: ind_C136OH = 325 - INTEGER, PARAMETER :: ind_C142O = 326 - INTEGER, PARAMETER :: ind_CH3CCH3OOA = 327 - INTEGER, PARAMETER :: ind_NSTYRENOOH = 328 - INTEGER, PARAMETER :: ind_HM22C3CO2H = 329 - INTEGER, PARAMETER :: ind_HO2C3CO2H = 330 - INTEGER, PARAMETER :: ind_NBZFUONE = 331 - INTEGER, PARAMETER :: ind_MXYLOH = 332 - INTEGER, PARAMETER :: ind_HM23C4OH = 333 - INTEGER, PARAMETER :: ind_C928OH = 334 - INTEGER, PARAMETER :: ind_BUT2OLOH = 335 - INTEGER, PARAMETER :: ind_NOPINAOH = 336 - INTEGER, PARAMETER :: ind_HONO = 337 - INTEGER, PARAMETER :: ind_M22C4OH = 338 - INTEGER, PARAMETER :: ind_M23C4OH = 339 - INTEGER, PARAMETER :: ind_C23O3MOH = 340 - INTEGER, PARAMETER :: ind_PXYLCO2H = 341 - INTEGER, PARAMETER :: ind_NC10H22 = 342 - INTEGER, PARAMETER :: ind_HOIPRCO2H = 343 - INTEGER, PARAMETER :: ind_C8BCOH = 344 - INTEGER, PARAMETER :: ind_PEAOH = 345 - INTEGER, PARAMETER :: ind_HM22C3OH = 346 - INTEGER, PARAMETER :: ind_C88OH = 347 - INTEGER, PARAMETER :: ind_HO13C4OH = 348 - INTEGER, PARAMETER :: ind_M3PEAOH = 349 - INTEGER, PARAMETER :: ind_C7DDCOH = 350 - INTEGER, PARAMETER :: ind_NORPINIC = 351 - INTEGER, PARAMETER :: ind_MOXCOCH2OH = 352 - INTEGER, PARAMETER :: ind_HEPTOH = 353 - INTEGER, PARAMETER :: ind_C108OH = 354 - INTEGER, PARAMETER :: ind_C56OH = 355 - INTEGER, PARAMETER :: ind_IPBFUOH = 356 - INTEGER, PARAMETER :: ind_C1310OH = 357 - INTEGER, PARAMETER :: ind_PHCOETOH = 358 - INTEGER, PARAMETER :: ind_C914OH = 359 - INTEGER, PARAMETER :: ind_KLIMONIC = 360 - INTEGER, PARAMETER :: ind_TLBIPER2OH = 361 - INTEGER, PARAMETER :: ind_C141OOA = 362 - INTEGER, PARAMETER :: ind_CO2M33CO2H = 363 - INTEGER, PARAMETER :: ind_C1011CO2H = 364 - INTEGER, PARAMETER :: ind_C918OH = 365 - INTEGER, PARAMETER :: ind_PINALOH = 366 - INTEGER, PARAMETER :: ind_C928CO2H = 367 - INTEGER, PARAMETER :: ind_C734OH = 368 - INTEGER, PARAMETER :: ind_C107OH = 369 - INTEGER, PARAMETER :: ind_C107O = 370 - INTEGER, PARAMETER :: ind_C148OH = 371 - INTEGER, PARAMETER :: ind_PTLQOH = 372 - INTEGER, PARAMETER :: ind_OETLQCO = 373 - INTEGER, PARAMETER :: ind_DETLMUOH = 374 - INTEGER, PARAMETER :: ind_C517CO2H = 375 - INTEGER, PARAMETER :: ind_HO3C5CO2H = 376 - INTEGER, PARAMETER :: ind_C129OH = 377 - INTEGER, PARAMETER :: ind_C830CO2H = 378 - INTEGER, PARAMETER :: ind_M2C43CO2H = 379 - INTEGER, PARAMETER :: ind_HEXCOH = 380 - INTEGER, PARAMETER :: ind_EOX2ETB2OH = 381 - INTEGER, PARAMETER :: ind_C1012OH = 382 - INTEGER, PARAMETER :: ind_HEXAOH = 383 - INTEGER, PARAMETER :: ind_C3ME3CO2H = 384 - INTEGER, PARAMETER :: ind_H134M3C5 = 385 - INTEGER, PARAMETER :: ind_M3FOOA = 386 - INTEGER, PARAMETER :: ind_HOEMPHNO2 = 387 - INTEGER, PARAMETER :: ind_C1211CO2H = 388 - INTEGER, PARAMETER :: ind_MXYLCO2H = 389 - INTEGER, PARAMETER :: ind_C624OH = 390 - INTEGER, PARAMETER :: ind_IEPOXA = 391 - INTEGER, PARAMETER :: ind_C6OTKETOH = 392 - INTEGER, PARAMETER :: ind_HO2C43CO2H = 393 - INTEGER, PARAMETER :: ind_C118OH = 394 - INTEGER, PARAMETER :: ind_NOPINBOH = 395 - INTEGER, PARAMETER :: ind_TM123BOH = 396 - INTEGER, PARAMETER :: ind_OXYQCO = 397 - INTEGER, PARAMETER :: ind_OXYQOOH = 398 - INTEGER, PARAMETER :: ind_C811OH = 399 - INTEGER, PARAMETER :: ind_C916OH = 400 - INTEGER, PARAMETER :: ind_C923OH = 401 - INTEGER, PARAMETER :: ind_PHCOMEOH = 402 - INTEGER, PARAMETER :: ind_NOPINDOH = 403 - INTEGER, PARAMETER :: ind_NOPINDCO = 404 - INTEGER, PARAMETER :: ind_NOPINDOOH = 405 - INTEGER, PARAMETER :: ind_C736OH = 406 - INTEGER, PARAMETER :: ind_C918O = 407 - INTEGER, PARAMETER :: ind_CO1H63OH = 408 - INTEGER, PARAMETER :: ind_C137OH = 409 - INTEGER, PARAMETER :: ind_C830OH = 410 - INTEGER, PARAMETER :: ind_C630OH = 411 - INTEGER, PARAMETER :: ind_M2HEXAOH = 412 - INTEGER, PARAMETER :: ind_C131OH = 413 - INTEGER, PARAMETER :: ind_C827OOH = 414 - INTEGER, PARAMETER :: ind_C1014OH = 415 - INTEGER, PARAMETER :: ind_HOC3H6OH = 416 - INTEGER, PARAMETER :: ind_DIETETOH = 417 - INTEGER, PARAMETER :: ind_C810OH = 418 - INTEGER, PARAMETER :: ind_LIMOOA = 419 - INTEGER, PARAMETER :: ind_HOBUT2CO2H = 420 - INTEGER, PARAMETER :: ind_M3HEXBO = 421 - INTEGER, PARAMETER :: ind_NC4EDCO2 = 422 - INTEGER, PARAMETER :: ind_TMBCO2H = 423 - INTEGER, PARAMETER :: ind_M2PEBOH = 424 - INTEGER, PARAMETER :: ind_HO2M2C5OH = 425 - INTEGER, PARAMETER :: ind_NC11H24 = 426 - INTEGER, PARAMETER :: ind_C915OH = 427 - INTEGER, PARAMETER :: ind_EBZBPER2OH = 428 - INTEGER, PARAMETER :: ind_DDECOH = 429 - INTEGER, PARAMETER :: ind_C824OH = 430 - INTEGER, PARAMETER :: ind_TMBOH = 431 - INTEGER, PARAMETER :: ind_DE35TOH = 432 - INTEGER, PARAMETER :: ind_C519CO2H = 433 - INTEGER, PARAMETER :: ind_HM22CO2H = 434 - INTEGER, PARAMETER :: ind_HO14MC5 = 435 - INTEGER, PARAMETER :: ind_PBZBPER2OH = 436 - INTEGER, PARAMETER :: ind_HO25C6 = 437 - INTEGER, PARAMETER :: ind_BUT2CO2H = 438 - INTEGER, PARAMETER :: ind_C141OH = 439 - INTEGER, PARAMETER :: ind_C147OH = 440 - INTEGER, PARAMETER :: ind_C128OH = 441 - INTEGER, PARAMETER :: ind_C89OH = 442 - INTEGER, PARAMETER :: ind_C89O = 443 - INTEGER, PARAMETER :: ind_C6H5CH2OH = 444 - INTEGER, PARAMETER :: ind_M2HEXBO = 445 - INTEGER, PARAMETER :: ind_ETOLOH = 446 - INTEGER, PARAMETER :: ind_NC7H16 = 447 - INTEGER, PARAMETER :: ind_NPBFUONE = 448 - INTEGER, PARAMETER :: ind_H2M3C4CO2H = 449 - INTEGER, PARAMETER :: ind_PINALO = 450 - INTEGER, PARAMETER :: ind_CO2C4DIAL = 451 - INTEGER, PARAMETER :: ind_C1210OH = 452 - INTEGER, PARAMETER :: ind_NONOH = 453 - INTEGER, PARAMETER :: ind_C97OH = 454 - INTEGER, PARAMETER :: ind_PTLQCO = 455 - INTEGER, PARAMETER :: ind_HM33C3CO2H = 456 - INTEGER, PARAMETER :: ind_C822CO2H = 457 - INTEGER, PARAMETER :: ind_INAOH = 458 - INTEGER, PARAMETER :: ind_OETLQOOH = 459 - INTEGER, PARAMETER :: ind_UDECOH = 460 - INTEGER, PARAMETER :: ind_OXYLCO2H = 461 - INTEGER, PARAMETER :: ind_C1311OH = 462 - INTEGER, PARAMETER :: ind_INCOH = 463 - INTEGER, PARAMETER :: ind_PHC3OH = 464 - INTEGER, PARAMETER :: ind_C622OH = 465 - INTEGER, PARAMETER :: ind_M22C43OH = 466 - INTEGER, PARAMETER :: ind_C116OH = 467 - INTEGER, PARAMETER :: ind_HO36C9 = 468 - INTEGER, PARAMETER :: ind_HO36C8 = 469 - INTEGER, PARAMETER :: ind_C827CO2H = 470 - INTEGER, PARAMETER :: ind_ETOMEOH = 471 - INTEGER, PARAMETER :: ind_C914CO = 472 - INTEGER, PARAMETER :: ind_METACETOH = 473 - INTEGER, PARAMETER :: ind_C6H13CO2H = 474 - INTEGER, PARAMETER :: ind_DMEBMUOH = 475 - INTEGER, PARAMETER :: ind_C732OH = 476 - INTEGER, PARAMETER :: ind_C2H5MECOOA = 477 - INTEGER, PARAMETER :: ind_C823OH = 478 - INTEGER, PARAMETER :: ind_HO2C54CO2H = 479 - INTEGER, PARAMETER :: ind_TM124BOH = 480 - INTEGER, PARAMETER :: ind_C731OH = 481 - INTEGER, PARAMETER :: ind_C733OH = 482 - INTEGER, PARAMETER :: ind_DMPHOHNO2 = 483 - INTEGER, PARAMETER :: ind_OCCOHCOH = 484 - INTEGER, PARAMETER :: ind_PBFUOH = 485 - INTEGER, PARAMETER :: ind_DECOH = 486 - INTEGER, PARAMETER :: ind_TM135MUOH = 487 - INTEGER, PARAMETER :: ind_HO14M3C5 = 488 - INTEGER, PARAMETER :: ind_C1210CO2H = 489 - INTEGER, PARAMETER :: ind_PBZQCO = 490 - INTEGER, PARAMETER :: ind_PBZQOOH = 491 - INTEGER, PARAMETER :: ind_C622CO2H = 492 - INTEGER, PARAMETER :: ind_C919OH = 493 - INTEGER, PARAMETER :: ind_HOCH2COCO2H = 494 - INTEGER, PARAMETER :: ind_PEBOH = 495 - INTEGER, PARAMETER :: ind_C136CO2H = 496 - INTEGER, PARAMETER :: ind_C54OH = 497 - INTEGER, PARAMETER :: ind_HO134C5 = 498 - INTEGER, PARAMETER :: ind_C23O3MCO2H = 499 - INTEGER, PARAMETER :: ind_C929OH = 500 - INTEGER, PARAMETER :: ind_CO1C6OH = 501 - INTEGER, PARAMETER :: ind_C619OH = 502 - INTEGER, PARAMETER :: ind_TM124BCO2H = 503 - INTEGER, PARAMETER :: ind_M3PEBOH = 504 - INTEGER, PARAMETER :: ind_DM35EBOH = 505 - INTEGER, PARAMETER :: ind_HMVKBCO2H = 506 - INTEGER, PARAMETER :: ind_C116CO2H = 507 - INTEGER, PARAMETER :: ind_C914OOH = 508 - INTEGER, PARAMETER :: ind_IPRBQOH = 509 - INTEGER, PARAMETER :: ind_IPRBQCO = 510 - INTEGER, PARAMETER :: ind_C1312OH = 511 - INTEGER, PARAMETER :: ind_ETHFORMOH = 512 - INTEGER, PARAMETER :: ind_C23O3EOH = 513 - INTEGER, PARAMETER :: ind_CO2C3OOB = 514 - INTEGER, PARAMETER :: ind_C731CO2H = 515 - INTEGER, PARAMETER :: ind_C720OH = 516 - INTEGER, PARAMETER :: ind_BZBIPER2OH = 517 - INTEGER, PARAMETER :: ind_PTLQOOH = 518 - INTEGER, PARAMETER :: ind_HM2C43CO2H = 519 - INTEGER, PARAMETER :: ind_C813OH = 520 - INTEGER, PARAMETER :: ind_PEBQOOH = 521 - INTEGER, PARAMETER :: ind_C126OOA = 522 - INTEGER, PARAMETER :: ind_TM135BP2OH = 523 - INTEGER, PARAMETER :: ind_HO36C12 = 524 - INTEGER, PARAMETER :: ind_HO36C10 = 525 - INTEGER, PARAMETER :: ind_C106OH = 526 - INTEGER, PARAMETER :: ind_C514OH = 527 - INTEGER, PARAMETER :: ind_C112O = 528 - INTEGER, PARAMETER :: ind_NOAOOA = 529 - INTEGER, PARAMETER :: ind_NC730OH = 530 - INTEGER, PARAMETER :: ind_IPBZMUCOH = 531 - INTEGER, PARAMETER :: ind_C54O = 532 - INTEGER, PARAMETER :: ind_HMVKBO = 533 - INTEGER, PARAMETER :: ind_C76O = 534 - INTEGER, PARAMETER :: ind_NBZQO = 535 - INTEGER, PARAMETER :: ind_C151OH = 536 - INTEGER, PARAMETER :: ind_C734O = 537 - INTEGER, PARAMETER :: ind_PCATECOOA = 538 - INTEGER, PARAMETER :: ind_C81O = 539 - INTEGER, PARAMETER :: ind_LIMCOH = 540 - INTEGER, PARAMETER :: ind_NC102O = 541 - INTEGER, PARAMETER :: ind_C6CO3MOH = 542 - INTEGER, PARAMETER :: ind_NC623OH = 543 - INTEGER, PARAMETER :: ind_C519O = 544 - INTEGER, PARAMETER :: ind_C73O = 545 - INTEGER, PARAMETER :: ind_C52OH = 546 - INTEGER, PARAMETER :: ind_C829OH = 547 - INTEGER, PARAMETER :: ind_M3HEX = 548 - INTEGER, PARAMETER :: ind_LMKAO = 549 - INTEGER, PARAMETER :: ind_NMEBFUO = 550 - INTEGER, PARAMETER :: ind_C4COMOH3O = 551 - INTEGER, PARAMETER :: ind_NBUTDAO = 552 - INTEGER, PARAMETER :: ind_C818O = 553 - INTEGER, PARAMETER :: ind_C67OH = 554 - INTEGER, PARAMETER :: ind_NPXYQO = 555 - INTEGER, PARAMETER :: ind_LIMALOH = 556 - INTEGER, PARAMETER :: ind_C6COCHOO = 557 - INTEGER, PARAMETER :: ind_NC41OOA = 558 - INTEGER, PARAMETER :: ind_C615OH = 559 - INTEGER, PARAMETER :: ind_PTCATECOOA = 560 - INTEGER, PARAMETER :: ind_C9DCCO = 561 - INTEGER, PARAMETER :: ind_C9DCOOH = 562 - INTEGER, PARAMETER :: ind_NC3OOA = 563 - INTEGER, PARAMETER :: ind_CO25C74O = 564 - INTEGER, PARAMETER :: ind_TLEMUCOH = 565 - INTEGER, PARAMETER :: ind_M23C4 = 566 - INTEGER, PARAMETER :: ind_C625OH = 567 - INTEGER, PARAMETER :: ind_ECATECOOA = 568 - INTEGER, PARAMETER :: ind_PXCATECOOA = 569 - INTEGER, PARAMETER :: ind_C114O = 570 - INTEGER, PARAMETER :: ind_C711O = 571 - INTEGER, PARAMETER :: ind_C3EDIALOH = 572 - INTEGER, PARAMETER :: ind_C4ME2NO3O = 573 - INTEGER, PARAMETER :: ind_C122O = 574 - INTEGER, PARAMETER :: ind_C124O = 575 - INTEGER, PARAMETER :: ind_C7EDCOH = 576 - INTEGER, PARAMETER :: ind_MTBKOH = 577 - INTEGER, PARAMETER :: ind_C4MCONO3OH = 578 - INTEGER, PARAMETER :: ind_MBOCOCO = 579 - INTEGER, PARAMETER :: ind_BCSOZOH = 580 - INTEGER, PARAMETER :: ind_C511O = 581 - INTEGER, PARAMETER :: ind_CHOC3COO = 582 - INTEGER, PARAMETER :: ind_NC71CO = 583 - INTEGER, PARAMETER :: ind_NTMB2FUO = 584 - INTEGER, PARAMETER :: ind_BCLKBO = 585 - INTEGER, PARAMETER :: ind_C61OH = 586 - INTEGER, PARAMETER :: ind_NLIMALOH = 587 - INTEGER, PARAMETER :: ind_M2HEX = 588 - INTEGER, PARAMETER :: ind_C9M2CO6O = 589 - INTEGER, PARAMETER :: ind_C63OH = 590 - INTEGER, PARAMETER :: ind_CYC6DIONE = 591 - INTEGER, PARAMETER :: ind_MCOCOMOXO = 592 - INTEGER, PARAMETER :: ind_C88CO = 593 - INTEGER, PARAMETER :: ind_C88OOH = 594 - INTEGER, PARAMETER :: ind_HNMVKO = 595 - INTEGER, PARAMETER :: ind_C71O = 596 - INTEGER, PARAMETER :: ind_NOETLQO = 597 - INTEGER, PARAMETER :: ind_CYHEXOL = 598 - INTEGER, PARAMETER :: ind_C96OH = 599 - INTEGER, PARAMETER :: ind_HOCO3C54O = 600 - INTEGER, PARAMETER :: ind_IC4H10 = 601 - INTEGER, PARAMETER :: ind_CO36C8 = 602 - INTEGER, PARAMETER :: ind_A2PANO = 603 - INTEGER, PARAMETER :: ind_APINOOB = 604 - INTEGER, PARAMETER :: ind_C6OTKETO = 605 - INTEGER, PARAMETER :: ind_TISOPA = 606 - INTEGER, PARAMETER :: ind_TISOPC = 607 - INTEGER, PARAMETER :: ind_C612OH = 608 - INTEGER, PARAMETER :: ind_CO36C12 = 609 - INTEGER, PARAMETER :: ind_CO24C6O = 610 - INTEGER, PARAMETER :: ind_PENTACID = 611 - INTEGER, PARAMETER :: ind_LMKOOB = 612 - INTEGER, PARAMETER :: ind_PHCOOH = 613 - INTEGER, PARAMETER :: ind_CATECOOA = 614 - INTEGER, PARAMETER :: ind_BUT2OLAO = 615 - INTEGER, PARAMETER :: ind_C93OH = 616 - INTEGER, PARAMETER :: ind_CO235C6O = 617 - INTEGER, PARAMETER :: ind_C129O = 618 - INTEGER, PARAMETER :: ind_LMLKBO = 619 - INTEGER, PARAMETER :: ind_PBFUO = 620 - INTEGER, PARAMETER :: ind_NBCALOH = 621 - INTEGER, PARAMETER :: ind_C7DCOH = 622 - INTEGER, PARAMETER :: ind_C8M2CO6O = 623 - INTEGER, PARAMETER :: ind_BCBO = 624 - INTEGER, PARAMETER :: ind_C825O = 625 - INTEGER, PARAMETER :: ind_C531CO = 626 - INTEGER, PARAMETER :: ind_DEMPHSMS1O = 627 - INTEGER, PARAMETER :: ind_MCATECOOA = 628 - INTEGER, PARAMETER :: ind_NTM124QO = 629 - INTEGER, PARAMETER :: ind_MIBKHO4O = 630 - INTEGER, PARAMETER :: ind_IBUTACID = 631 - INTEGER, PARAMETER :: ind_C86O = 632 - INTEGER, PARAMETER :: ind_C614OH = 633 - INTEGER, PARAMETER :: ind_DMEOBPROH = 634 - INTEGER, PARAMETER :: ind_NLIMO = 635 - INTEGER, PARAMETER :: ind_C72OH = 636 - INTEGER, PARAMETER :: ind_CO3C4NO3O = 637 - INTEGER, PARAMETER :: ind_C714O = 638 - INTEGER, PARAMETER :: ind_LIMBO = 639 - INTEGER, PARAMETER :: ind_NOPINOOA = 640 - INTEGER, PARAMETER :: ind_C23O3EO = 641 - INTEGER, PARAMETER :: ind_MACO2H = 642 - INTEGER, PARAMETER :: ind_COO2C4O = 643 - INTEGER, PARAMETER :: ind_C722O = 644 - INTEGER, PARAMETER :: ind_C525O = 645 - INTEGER, PARAMETER :: ind_BCAO = 646 - INTEGER, PARAMETER :: ind_OETLMUCOH = 647 - INTEGER, PARAMETER :: ind_C625O = 648 - INTEGER, PARAMETER :: ind_NLMKAO = 649 - INTEGER, PARAMETER :: ind_C623OH = 650 - INTEGER, PARAMETER :: ind_C610OH = 651 - INTEGER, PARAMETER :: ind_NOPINBCO = 652 - INTEGER, PARAMETER :: ind_NOPINBOOH = 653 - INTEGER, PARAMETER :: ind_MVKO = 654 - INTEGER, PARAMETER :: ind_CHOCOCH2O = 655 - INTEGER, PARAMETER :: ind_MVKOHBO = 656 - INTEGER, PARAMETER :: ind_C513OH = 657 - INTEGER, PARAMETER :: ind_BCLKAO = 658 - INTEGER, PARAMETER :: ind_IC7DCOH = 659 - INTEGER, PARAMETER :: ind_NMXYFUO = 660 - INTEGER, PARAMETER :: ind_BCCOH = 661 - INTEGER, PARAMETER :: ind_NC728OH = 662 - INTEGER, PARAMETER :: ind_BCKBO = 663 - INTEGER, PARAMETER :: ind_C69OH = 664 - INTEGER, PARAMETER :: ind_HO1CO3C4O = 665 - INTEGER, PARAMETER :: ind_MIBKBO = 666 - INTEGER, PARAMETER :: ind_BCALOH = 667 - INTEGER, PARAMETER :: ind_CH3OCH3 = 668 - INTEGER, PARAMETER :: ind_MNO3COC4O = 669 - INTEGER, PARAMETER :: ind_NAPINAO = 670 - INTEGER, PARAMETER :: ind_C103OH = 671 - INTEGER, PARAMETER :: ind_C6135COO = 672 - INTEGER, PARAMETER :: ind_NBCKO = 673 - INTEGER, PARAMETER :: ind_C66O = 674 - INTEGER, PARAMETER :: ind_H25M3C6 = 675 - INTEGER, PARAMETER :: ind_MTCATECOOA = 676 - INTEGER, PARAMETER :: ind_DMEPH1O = 677 - INTEGER, PARAMETER :: ind_IEPOXC = 678 - INTEGER, PARAMETER :: ind_LMLKAO = 679 - INTEGER, PARAMETER :: ind_HCOOH = 680 - INTEGER, PARAMETER :: ind_PXYMUCOH = 681 - INTEGER, PARAMETER :: ind_CO25C6O = 682 - INTEGER, PARAMETER :: ind_EBZMUCOH = 683 - INTEGER, PARAMETER :: ind_CH2OOG = 684 - INTEGER, PARAMETER :: ind_CH2OOE = 685 - INTEGER, PARAMETER :: ind_CH2OOD = 686 - INTEGER, PARAMETER :: ind_C727O = 687 - INTEGER, PARAMETER :: ind_BCALBO = 688 - INTEGER, PARAMETER :: ind_C53O = 689 - INTEGER, PARAMETER :: ind_C730OH = 690 - INTEGER, PARAMETER :: ind_BUTACID = 691 - INTEGER, PARAMETER :: ind_NC1313OH = 692 - INTEGER, PARAMETER :: ind_MECOACETO = 693 - INTEGER, PARAMETER :: ind_C152OH = 694 - INTEGER, PARAMETER :: ind_C929O = 695 - INTEGER, PARAMETER :: ind_C616OH = 696 - INTEGER, PARAMETER :: ind_H3C25C6O = 697 - INTEGER, PARAMETER :: ind_C104O = 698 - INTEGER, PARAMETER :: ind_C133OH = 699 - INTEGER, PARAMETER :: ind_IPCATECOOA = 700 - INTEGER, PARAMETER :: ind_HMGLYOOA = 701 - INTEGER, PARAMETER :: ind_CISOPA = 702 - INTEGER, PARAMETER :: ind_C146O = 703 - INTEGER, PARAMETER :: ind_C819O = 704 - INTEGER, PARAMETER :: ind_T124CTCOOA = 705 - INTEGER, PARAMETER :: ind_C5OH2CO4O = 706 - INTEGER, PARAMETER :: ind_TM135O = 707 - INTEGER, PARAMETER :: ind_LIMALBO = 708 - INTEGER, PARAMETER :: ind_LIMONONIC = 709 - INTEGER, PARAMETER :: ind_C23O3MO = 710 - INTEGER, PARAMETER :: ind_C5MCO2OHO = 711 - INTEGER, PARAMETER :: ind_NTLFUO = 712 - INTEGER, PARAMETER :: ind_C53NO324CO = 713 - INTEGER, PARAMETER :: ind_C716O = 714 - INTEGER, PARAMETER :: ind_CISOPC = 715 - INTEGER, PARAMETER :: ind_IPBFUO = 716 - INTEGER, PARAMETER :: ind_EMPHCOMO = 717 - INTEGER, PARAMETER :: ind_OTCATECOOA = 718 - INTEGER, PARAMETER :: ind_LIMOOB = 719 - INTEGER, PARAMETER :: ind_C726CO5O = 720 - INTEGER, PARAMETER :: ind_LMKBO = 721 - INTEGER, PARAMETER :: ind_C94O = 722 - INTEGER, PARAMETER :: ind_OXCATECOOA = 723 - INTEGER, PARAMETER :: ind_C148O = 724 - INTEGER, PARAMETER :: ind_C617OH = 725 - INTEGER, PARAMETER :: ind_C147O = 726 - INTEGER, PARAMETER :: ind_H3M3C6O = 727 - INTEGER, PARAMETER :: ind_C924O = 728 - INTEGER, PARAMETER :: ind_C5COCHOO = 729 - INTEGER, PARAMETER :: ind_BCKAO = 730 - INTEGER, PARAMETER :: ind_C820O = 731 - INTEGER, PARAMETER :: ind_PBZMUCOH = 732 - INTEGER, PARAMETER :: ind_C44O = 733 - INTEGER, PARAMETER :: ind_C78O = 734 - INTEGER, PARAMETER :: ind_C8BCCO = 735 - INTEGER, PARAMETER :: ind_C8BCOOH = 736 - INTEGER, PARAMETER :: ind_C5NO3COAO = 737 - INTEGER, PARAMETER :: ind_MXCATECOOA = 738 - INTEGER, PARAMETER :: ind_C627O = 739 - INTEGER, PARAMETER :: ind_LIMALAO = 740 - INTEGER, PARAMETER :: ind_C618O = 741 - INTEGER, PARAMETER :: ind_METLMUCOH = 742 - INTEGER, PARAMETER :: ind_NIPRBQO = 743 - INTEGER, PARAMETER :: ind_NPPRBQO = 744 - INTEGER, PARAMETER :: ind_C84O = 745 - INTEGER, PARAMETER :: ind_NPEBQO = 746 - INTEGER, PARAMETER :: ind_NPXYFUO = 747 - INTEGER, PARAMETER :: ind_LIMAO = 748 - INTEGER, PARAMETER :: ind_C6HO1CO3O = 749 - INTEGER, PARAMETER :: ind_CO24C63O = 750 - INTEGER, PARAMETER :: ind_PROPACID = 751 - INTEGER, PARAMETER :: ind_T123CTCOOA = 752 - INTEGER, PARAMETER :: ind_NMXYQO = 753 - INTEGER, PARAMETER :: ind_C930OH = 754 - INTEGER, PARAMETER :: ind_MC6CO2O = 755 - INTEGER, PARAMETER :: ind_C7M2CO5O = 756 - INTEGER, PARAMETER :: ind_BUT2OL = 757 - INTEGER, PARAMETER :: ind_C77OH = 758 - INTEGER, PARAMETER :: ind_BZFUONOOA = 759 - INTEGER, PARAMETER :: ind_C827O = 760 - INTEGER, PARAMETER :: ind_HEX3ONBO = 761 - INTEGER, PARAMETER :: ind_C123OH = 762 - INTEGER, PARAMETER :: ind_MGLYOOB = 763 - INTEGER, PARAMETER :: ind_OXYMUCOH = 764 - INTEGER, PARAMETER :: ind_CYHEXOLAO = 765 - INTEGER, PARAMETER :: ind_CH3CHOOC = 766 - INTEGER, PARAMETER :: ind_C717OH = 767 - INTEGER, PARAMETER :: ind_BZFUO = 768 - INTEGER, PARAMETER :: ind_CO36C10 = 769 - INTEGER, PARAMETER :: ind_BCALAO = 770 - INTEGER, PARAMETER :: ind_TLFUONOOA = 771 - INTEGER, PARAMETER :: ind_C718OH = 772 - INTEGER, PARAMETER :: ind_PHCOMEO = 773 - INTEGER, PARAMETER :: ind_C87O = 774 - INTEGER, PARAMETER :: ind_C922O = 775 - INTEGER, PARAMETER :: ind_C102O = 776 - INTEGER, PARAMETER :: ind_C3NO3COO = 777 - INTEGER, PARAMETER :: ind_CO25C73O = 778 - INTEGER, PARAMETER :: ind_MXYMUCOH = 779 - INTEGER, PARAMETER :: ind_NPETLQO = 780 - INTEGER, PARAMETER :: ind_C531O = 781 - INTEGER, PARAMETER :: ind_MPHCOMEO = 782 - INTEGER, PARAMETER :: ind_APINAO = 783 - INTEGER, PARAMETER :: ind_APINBO = 784 - INTEGER, PARAMETER :: ind_TM124MUCOH = 785 - INTEGER, PARAMETER :: ind_CHOC2H4O = 786 - INTEGER, PARAMETER :: ind_PHCOETO = 787 - INTEGER, PARAMETER :: ind_BZEMUCOH = 788 - INTEGER, PARAMETER :: ind_C620OH = 789 - INTEGER, PARAMETER :: ind_NC4OOA = 790 - INTEGER, PARAMETER :: ind_C92O = 791 - INTEGER, PARAMETER :: ind_EBFUO = 792 - INTEGER, PARAMETER :: ind_C728OH = 793 - INTEGER, PARAMETER :: ind_CO36C11 = 794 - INTEGER, PARAMETER :: ind_C5124COO = 795 - INTEGER, PARAMETER :: ind_DETLOBPROH = 796 - INTEGER, PARAMETER :: ind_NBCO = 797 - INTEGER, PARAMETER :: ind_NMETLQO = 798 - INTEGER, PARAMETER :: ind_C512OH = 799 - INTEGER, PARAMETER :: ind_NOXYFUO = 800 - INTEGER, PARAMETER :: ind_DMPHCOMO = 801 - INTEGER, PARAMETER :: ind_C521O = 802 - INTEGER, PARAMETER :: ind_CO36C9 = 803 - INTEGER, PARAMETER :: ind_C113OH = 804 - INTEGER, PARAMETER :: ind_CO24M3CHO = 805 - INTEGER, PARAMETER :: ind_IPECOH = 806 - INTEGER, PARAMETER :: ind_HO34CO6C8 = 807 - INTEGER, PARAMETER :: ind_MALDIALO = 808 - INTEGER, PARAMETER :: ind_NOXYQO = 809 - INTEGER, PARAMETER :: ind_C630O = 810 - INTEGER, PARAMETER :: ind_PETLMUCOH = 811 - INTEGER, PARAMETER :: ind_TM123MUCOH = 812 - INTEGER, PARAMETER :: ind_C1010OH = 813 - INTEGER, PARAMETER :: ind_NTMB1FUO = 814 - INTEGER, PARAMETER :: ind_C6NO3CO5O = 815 - INTEGER, PARAMETER :: ind_NPTLQO = 816 - INTEGER, PARAMETER :: ind_C736O = 817 - INTEGER, PARAMETER :: ind_CH3CO2H = 818 - INTEGER, PARAMETER :: ind_NC2OOA = 819 - INTEGER, PARAMETER :: ind_C55O = 820 - INTEGER, PARAMETER :: ind_C817OH = 821 - INTEGER, PARAMETER :: ind_IPCATC1OOH = 822 - INTEGER, PARAMETER :: ind_CO25C6CO2H = 823 - INTEGER, PARAMETER :: ind_CO1M22CO3H = 824 - INTEGER, PARAMETER :: ind_DNEBNZLOOH = 825 - INTEGER, PARAMETER :: ind_C1212OOH = 826 - INTEGER, PARAMETER :: ind_C617CO2H = 827 - INTEGER, PARAMETER :: ind_M33C3CO3H = 828 - INTEGER, PARAMETER :: ind_C5ONO34OOH = 829 - INTEGER, PARAMETER :: ind_C116OOH = 830 - INTEGER, PARAMETER :: ind_HO1C5OOH = 831 - INTEGER, PARAMETER :: ind_M2C43CO3H = 832 - INTEGER, PARAMETER :: ind_CO2C3CO3H = 833 - INTEGER, PARAMETER :: ind_C65NO3CO2H = 834 - INTEGER, PARAMETER :: ind_DNCRESOOH = 835 - INTEGER, PARAMETER :: ind_HO2C6OOH = 836 - INTEGER, PARAMETER :: ind_TLEMUCCO3H = 837 - INTEGER, PARAMETER :: ind_OXYFUOOH = 838 - INTEGER, PARAMETER :: ind_INAHPCO2H = 839 - INTEGER, PARAMETER :: ind_NOPINBNO3 = 840 - INTEGER, PARAMETER :: ind_BUTDBOOH = 841 - INTEGER, PARAMETER :: ind_C511CO3H = 842 - INTEGER, PARAMETER :: ind_MET1OOH = 843 - INTEGER, PARAMETER :: ind_MTCTEC1OOH = 844 - INTEGER, PARAMETER :: ind_H2M2C4CO3H = 845 - INTEGER, PARAMETER :: ind_TLEMUCOOH = 846 - INTEGER, PARAMETER :: ind_NBUTOLAOH = 847 - INTEGER, PARAMETER :: ind_DDECOOH = 848 - INTEGER, PARAMETER :: ind_C87CO3H = 849 - INTEGER, PARAMETER :: ind_HO4C5CO3H = 850 - INTEGER, PARAMETER :: ind_PBZMUCOOH = 851 - INTEGER, PARAMETER :: ind_PET1OOH = 852 - INTEGER, PARAMETER :: ind_M22C3CO3H = 853 - INTEGER, PARAMETER :: ind_PXY1OOH = 854 - INTEGER, PARAMETER :: ind_TC4H9OOH = 855 - INTEGER, PARAMETER :: ind_C46CO2H = 856 - INTEGER, PARAMETER :: ind_NMETOL1OOH = 857 - INTEGER, PARAMETER :: ind_C135OOH = 858 - INTEGER, PARAMETER :: ind_C512CO3H = 859 - INTEGER, PARAMETER :: ind_PNCATECOOH = 860 - INTEGER, PARAMETER :: ind_METLBPROOH = 861 - INTEGER, PARAMETER :: ind_PGLYOXOH = 862 - INTEGER, PARAMETER :: ind_C621OOH = 863 - INTEGER, PARAMETER :: ind_C89CO3H = 864 - INTEGER, PARAMETER :: ind_CHOC4OOH = 865 - INTEGER, PARAMETER :: ind_ALCOMOXOOH = 866 - INTEGER, PARAMETER :: ind_C6H5C2CO3H = 867 - INTEGER, PARAMETER :: ind_HOC2H4CO3H = 868 - INTEGER, PARAMETER :: ind_NDNT123OOH = 869 - INTEGER, PARAMETER :: ind_M2HEXAOOH = 870 - INTEGER, PARAMETER :: ind_C132OOH = 871 - INTEGER, PARAMETER :: ind_C1211OOH = 872 - INTEGER, PARAMETER :: ind_C530OOH = 873 - INTEGER, PARAMETER :: ind_M2BUOL2OH = 874 - INTEGER, PARAMETER :: ind_HOCHOCOOH = 875 - INTEGER, PARAMETER :: ind_C54CO3H = 876 - INTEGER, PARAMETER :: ind_C5CO234OOH = 877 - INTEGER, PARAMETER :: ind_IPNCATCOOH = 878 - INTEGER, PARAMETER :: ind_C811OOH = 879 - INTEGER, PARAMETER :: ind_C626OOH = 880 - INTEGER, PARAMETER :: ind_BCCOOH = 881 - INTEGER, PARAMETER :: ind_C133OOH = 882 - INTEGER, PARAMETER :: ind_C927OOH = 883 - INTEGER, PARAMETER :: ind_TM123OLOOH = 884 - INTEGER, PARAMETER :: ind_NBCALOOH = 885 - INTEGER, PARAMETER :: ind_CHOC3COOOH = 886 - INTEGER, PARAMETER :: ind_C925OOH = 887 - INTEGER, PARAMETER :: ind_NDNT124OOH = 888 - INTEGER, PARAMETER :: ind_TBUTCO3H = 889 - INTEGER, PARAMETER :: ind_INAHCO2H = 890 - INTEGER, PARAMETER :: ind_C7CO3OHOOH = 891 - INTEGER, PARAMETER :: ind_NMXYOL1OOH = 892 - INTEGER, PARAMETER :: ind_INANCO2H = 893 - INTEGER, PARAMETER :: ind_C23O3CCO3H = 894 - INTEGER, PARAMETER :: ind_H25M2C6 = 895 - INTEGER, PARAMETER :: ind_HO2M2C4OH = 896 - INTEGER, PARAMETER :: ind_NBPINAOOH = 897 - INTEGER, PARAMETER :: ind_DETLMUO2H = 898 - INTEGER, PARAMETER :: ind_ACETMECO3H = 899 - INTEGER, PARAMETER :: ind_C126CO3H = 900 - INTEGER, PARAMETER :: ind_C23O3ECO3H = 901 - INTEGER, PARAMETER :: ind_C6TONOHOOH = 902 - INTEGER, PARAMETER :: ind_CO1M22CO2H = 903 - INTEGER, PARAMETER :: ind_NOPINAOOH = 904 - INTEGER, PARAMETER :: ind_BCANO3 = 905 - INTEGER, PARAMETER :: ind_H3C2C4CO2H = 906 - INTEGER, PARAMETER :: ind_INDHPCO3H = 907 - INTEGER, PARAMETER :: ind_HOACETEOOH = 908 - INTEGER, PARAMETER :: ind_C3DIOLOOH = 909 - INTEGER, PARAMETER :: ind_IPBZMUCO3H = 910 - INTEGER, PARAMETER :: ind_PBFUCO = 911 - INTEGER, PARAMETER :: ind_BPINCOOH = 912 - INTEGER, PARAMETER :: ind_DNMXYOLOOH = 913 - INTEGER, PARAMETER :: ind_DETLMUOOH = 914 - INTEGER, PARAMETER :: ind_EPXMDLCO3H = 915 - INTEGER, PARAMETER :: ind_C518CO3H = 916 - INTEGER, PARAMETER :: ind_OXNCATCOOH = 917 - INTEGER, PARAMETER :: ind_C3M3CHOOOH = 918 - INTEGER, PARAMETER :: ind_C85CO3H = 919 - INTEGER, PARAMETER :: ind_BPINBOOH = 920 - INTEGER, PARAMETER :: ind_EBZMUCCO3H = 921 - INTEGER, PARAMETER :: ind_PXYLOOH = 922 - INTEGER, PARAMETER :: ind_IPNNCATOOH = 923 - INTEGER, PARAMETER :: ind_C43NO3CO2H = 924 - INTEGER, PARAMETER :: ind_HO2NO2 = 925 - INTEGER, PARAMETER :: ind_HO12C5 = 926 - INTEGER, PARAMETER :: ind_C1312OOH = 927 - INTEGER, PARAMETER :: ind_MC6OTKTOOH = 928 - INTEGER, PARAMETER :: ind_CHOC4CO3H = 929 - INTEGER, PARAMETER :: ind_C144OOH = 930 - INTEGER, PARAMETER :: ind_PINALOOH = 931 - INTEGER, PARAMETER :: ind_PETOLOOH = 932 - INTEGER, PARAMETER :: ind_H3C25CCO2H = 933 - INTEGER, PARAMETER :: ind_NDNPHENOOH = 934 - INTEGER, PARAMETER :: ind_C812OOH = 935 - INTEGER, PARAMETER :: ind_HMVKBCO3H = 936 - INTEGER, PARAMETER :: ind_OXYMUCCO3H = 937 - INTEGER, PARAMETER :: ind_EBENZOLOOH = 938 - INTEGER, PARAMETER :: ind_CRESOOH = 939 - INTEGER, PARAMETER :: ind_C828OOH = 940 - INTEGER, PARAMETER :: ind_PXYMUCCO3H = 941 - INTEGER, PARAMETER :: ind_C810OOH = 942 - INTEGER, PARAMETER :: ind_TM124OOH = 943 - INTEGER, PARAMETER :: ind_TLFUOOH = 944 - INTEGER, PARAMETER :: ind_CO3C5CO3H = 945 - INTEGER, PARAMETER :: ind_H3M2C4CO3H = 946 - INTEGER, PARAMETER :: ind_DMEBMUOOH = 947 - INTEGER, PARAMETER :: ind_C517OOH = 948 - INTEGER, PARAMETER :: ind_C1311OOH = 949 - INTEGER, PARAMETER :: ind_NT124L1OOH = 950 - INTEGER, PARAMETER :: ind_C137CO3H = 951 - INTEGER, PARAMETER :: ind_EMPONO2OOH = 952 - INTEGER, PARAMETER :: ind_C618CO2H = 953 - INTEGER, PARAMETER :: ind_C6CO134OOH = 954 - INTEGER, PARAMETER :: ind_C128OOH = 955 - INTEGER, PARAMETER :: ind_TM123BPOOH = 956 - INTEGER, PARAMETER :: ind_NC524NO3 = 957 - INTEGER, PARAMETER :: ind_C1H4C5CO2H = 958 - INTEGER, PARAMETER :: ind_TM124OLOOH = 959 - INTEGER, PARAMETER :: ind_C105OOH = 960 - INTEGER, PARAMETER :: ind_EBZMUCCO2H = 961 - INTEGER, PARAMETER :: ind_OTNNCATOOH = 962 - INTEGER, PARAMETER :: ind_MXYQOOH = 963 - INTEGER, PARAMETER :: ind_H2M4C65OOH = 964 - INTEGER, PARAMETER :: ind_C145OOH = 965 - INTEGER, PARAMETER :: ind_C6H5C2OOH = 966 - INTEGER, PARAMETER :: ind_C103OOH = 967 - INTEGER, PARAMETER :: ind_ISOP34OOH = 968 - INTEGER, PARAMETER :: ind_NBUTDAOOH = 969 - INTEGER, PARAMETER :: ind_C142OOH = 970 - INTEGER, PARAMETER :: ind_NC623OOH = 971 - INTEGER, PARAMETER :: ind_DNMETOLOOH = 972 - INTEGER, PARAMETER :: ind_EMALNHYOOH = 973 - INTEGER, PARAMETER :: ind_C7MO3OHOOH = 974 - INTEGER, PARAMETER :: ind_HM22C3CO3H = 975 - INTEGER, PARAMETER :: ind_C65NO36OOH = 976 - INTEGER, PARAMETER :: ind_NDNOXYLOOH = 977 - INTEGER, PARAMETER :: ind_NOXYOL1OOH = 978 - INTEGER, PARAMETER :: ind_NNCATECOOH = 979 - INTEGER, PARAMETER :: ind_M3PECOOH = 980 - INTEGER, PARAMETER :: ind_C51OOH = 981 - INTEGER, PARAMETER :: ind_DMEPHOLOOH = 982 - INTEGER, PARAMETER :: ind_CO2C54CO3H = 983 - INTEGER, PARAMETER :: ind_NC728OOH = 984 - INTEGER, PARAMETER :: ind_C923CO3H = 985 - INTEGER, PARAMETER :: ind_C235C6CO3H = 986 - INTEGER, PARAMETER :: ind_PERPROACID = 987 - INTEGER, PARAMETER :: ind_C51CO3H = 988 - INTEGER, PARAMETER :: ind_NC72OOH = 989 - INTEGER, PARAMETER :: ind_HOPINONIC = 990 - INTEGER, PARAMETER :: ind_C41NO3 = 991 - INTEGER, PARAMETER :: ind_C6CYTONOOH = 992 - INTEGER, PARAMETER :: ind_C626CO3H = 993 - INTEGER, PARAMETER :: ind_MMALNHYOOH = 994 - INTEGER, PARAMETER :: ind_H13M3C5OOH = 995 - INTEGER, PARAMETER :: ind_PXYOLOOH = 996 - INTEGER, PARAMETER :: ind_CO234C6OOH = 997 - INTEGER, PARAMETER :: ind_C615CO3H = 998 - INTEGER, PARAMETER :: ind_PECOOH = 999 - INTEGER, PARAMETER :: ind_PETLBIPNO3 = 1000 - INTEGER, PARAMETER :: ind_BCAOH = 1001 - INTEGER, PARAMETER :: ind_PXYLCO3H = 1002 - INTEGER, PARAMETER :: ind_T124CT1OOH = 1003 - INTEGER, PARAMETER :: ind_C137OOH = 1004 - INTEGER, PARAMETER :: ind_C56NO3 = 1005 - INTEGER, PARAMETER :: ind_INB1HPCO3H = 1006 - INTEGER, PARAMETER :: ind_C107OOH = 1007 - INTEGER, PARAMETER :: ind_C517CO3H = 1008 - INTEGER, PARAMETER :: ind_MXYOLOOH = 1009 - INTEGER, PARAMETER :: ind_H2M2C65OOH = 1010 - INTEGER, PARAMETER :: ind_C4NO3OCO = 1011 - INTEGER, PARAMETER :: ind_C826OOH = 1012 - INTEGER, PARAMETER :: ind_OCCOHCO = 1013 - INTEGER, PARAMETER :: ind_TM124MUOOH = 1014 - INTEGER, PARAMETER :: ind_HO2C3CO3H = 1015 - INTEGER, PARAMETER :: ind_BZEMUCOOH = 1016 - INTEGER, PARAMETER :: ind_OTCTEC1OOH = 1017 - INTEGER, PARAMETER :: ind_H3C25CCO3H = 1018 - INTEGER, PARAMETER :: ind_C733OOH = 1019 - INTEGER, PARAMETER :: ind_MXYFUOOH = 1020 - INTEGER, PARAMETER :: ind_C7DDCOOH = 1021 - INTEGER, PARAMETER :: ind_C618CO3H = 1022 - INTEGER, PARAMETER :: ind_PBENZOLOOH = 1023 - INTEGER, PARAMETER :: ind_PHENOOH = 1024 - INTEGER, PARAMETER :: ind_DNIPBZLOOH = 1025 - INTEGER, PARAMETER :: ind_H13M3C5NO3 = 1026 - INTEGER, PARAMETER :: ind_PBZBPEROOH = 1027 - INTEGER, PARAMETER :: ind_C111OOH = 1028 - INTEGER, PARAMETER :: ind_DNOETOLOOH = 1029 - INTEGER, PARAMETER :: ind_NDNPETLOOH = 1030 - INTEGER, PARAMETER :: ind_PBZMUCCO3H = 1031 - INTEGER, PARAMETER :: ind_C710OOH = 1032 - INTEGER, PARAMETER :: ind_OETOLOOH = 1033 - INTEGER, PARAMETER :: ind_TM135MUOOH = 1034 - INTEGER, PARAMETER :: ind_C523OH = 1035 - INTEGER, PARAMETER :: ind_APINBOH = 1036 - INTEGER, PARAMETER :: ind_CO3C4CO2H = 1037 - INTEGER, PARAMETER :: ind_METLMUCOOH = 1038 - INTEGER, PARAMETER :: ind_IPBZBPROOH = 1039 - INTEGER, PARAMETER :: ind_BZFUCO = 1040 - INTEGER, PARAMETER :: ind_HM22CO3H = 1041 - INTEGER, PARAMETER :: ind_HO2C4CO3H = 1042 - INTEGER, PARAMETER :: ind_NC101OOH = 1043 - INTEGER, PARAMETER :: ind_C821OOH = 1044 - INTEGER, PARAMETER :: ind_NDNOETLOOH = 1045 - INTEGER, PARAMETER :: ind_C730OOH = 1046 - INTEGER, PARAMETER :: ind_C729CO3H = 1047 - INTEGER, PARAMETER :: ind_PRPAL2CO3H = 1048 - INTEGER, PARAMETER :: ind_OXYMUCOOH = 1049 - INTEGER, PARAMETER :: ind_HO13M2C4 = 1050 - INTEGER, PARAMETER :: ind_T123NNCOOH = 1051 - INTEGER, PARAMETER :: ind_UDECOOH = 1052 - INTEGER, PARAMETER :: ind_NEBFUOOH = 1053 - INTEGER, PARAMETER :: ind_BUTDBOH = 1054 - INTEGER, PARAMETER :: ind_HOBUT2CO3H = 1055 - INTEGER, PARAMETER :: ind_BCKAOH = 1056 - INTEGER, PARAMETER :: ind_C8BCNO3 = 1057 - INTEGER, PARAMETER :: ind_LIMANO3 = 1058 - INTEGER, PARAMETER :: ind_C720OOH = 1059 - INTEGER, PARAMETER :: ind_C118OOH = 1060 - INTEGER, PARAMETER :: ind_NT123L1OOH = 1061 - INTEGER, PARAMETER :: ind_TM124QOOH = 1062 - INTEGER, PARAMETER :: ind_C43NO34OOH = 1063 - INTEGER, PARAMETER :: ind_ETOMECO3H = 1064 - INTEGER, PARAMETER :: ind_IPBZMUCOOH = 1065 - INTEGER, PARAMETER :: ind_CH3CO3H = 1066 - INTEGER, PARAMETER :: ind_EPXDLCO3H = 1067 - INTEGER, PARAMETER :: ind_CH3OH = 1068 - INTEGER, PARAMETER :: ind_IPECOOH = 1069 - INTEGER, PARAMETER :: ind_C823OOH = 1070 - INTEGER, PARAMETER :: ind_NC826OOH = 1071 - INTEGER, PARAMETER :: ind_C4M2NO3OOH = 1072 - INTEGER, PARAMETER :: ind_PBZMUCCO2H = 1073 - INTEGER, PARAMETER :: ind_HOIBUTCO3H = 1074 - INTEGER, PARAMETER :: ind_CO3C75OOH = 1075 - INTEGER, PARAMETER :: ind_EMPHCO3H = 1076 - INTEGER, PARAMETER :: ind_C1310OOH = 1077 - INTEGER, PARAMETER :: ind_MPRNO3CO2H = 1078 - INTEGER, PARAMETER :: ind_DECOOH = 1079 - INTEGER, PARAMETER :: ind_C5CONO3OOH = 1080 - INTEGER, PARAMETER :: ind_MIBKAOHNO3 = 1081 - INTEGER, PARAMETER :: ind_M3HEXBOOH = 1082 - INTEGER, PARAMETER :: ind_DETLBIPNO3 = 1083 - INTEGER, PARAMETER :: ind_EPXMDLCO2H = 1084 - INTEGER, PARAMETER :: ind_C312COCO3H = 1085 - INTEGER, PARAMETER :: ind_EPXM2DLPAN = 1086 - INTEGER, PARAMETER :: ind_C729CO2H = 1087 - INTEGER, PARAMETER :: ind_IC7DCOOH = 1088 - INTEGER, PARAMETER :: ind_C619OOH = 1089 - INTEGER, PARAMETER :: ind_HO2C54CO3H = 1090 - INTEGER, PARAMETER :: ind_NPBNZ1OOH = 1091 - INTEGER, PARAMETER :: ind_C7EDCOOH = 1092 - INTEGER, PARAMETER :: ind_C89OOH = 1093 - INTEGER, PARAMETER :: ind_C620OOH = 1094 - INTEGER, PARAMETER :: ind_C6H5CO3H = 1095 - INTEGER, PARAMETER :: ind_MNNCATCOOH = 1096 - INTEGER, PARAMETER :: ind_PRPAL2CO2H = 1097 - INTEGER, PARAMETER :: ind_C41OOH = 1098 - INTEGER, PARAMETER :: ind_CO23C54OOH = 1099 - INTEGER, PARAMETER :: ind_CO3C4CO3H = 1100 - INTEGER, PARAMETER :: ind_PTNNCATOOH = 1101 - INTEGER, PARAMETER :: ind_CH2CHCH2OOH = 1102 - INTEGER, PARAMETER :: ind_OETLMUCOOH = 1103 - INTEGER, PARAMETER :: ind_OXNNCATOOH = 1104 - INTEGER, PARAMETER :: ind_NCATECOOH = 1105 - INTEGER, PARAMETER :: ind_C3ME3CO3H = 1106 - INTEGER, PARAMETER :: ind_C624CO3H = 1107 - INTEGER, PARAMETER :: ind_HM2C43OOH = 1108 - INTEGER, PARAMETER :: ind_C5CO14OOH = 1109 - INTEGER, PARAMETER :: ind_PRNO3CO2H = 1110 - INTEGER, PARAMETER :: ind_IPGLYOXOH = 1111 - INTEGER, PARAMETER :: ind_TM123MUOOH = 1112 - INTEGER, PARAMETER :: ind_VINOH = 1113 - INTEGER, PARAMETER :: ind_C6H13CO3H = 1114 - INTEGER, PARAMETER :: ind_HO6C7OOH = 1115 - INTEGER, PARAMETER :: ind_H1C23C4OOH = 1116 - INTEGER, PARAMETER :: ind_C6O4KETOOH = 1117 - INTEGER, PARAMETER :: ind_NDNIPBLOOH = 1118 - INTEGER, PARAMETER :: ind_C1011OOH = 1119 - INTEGER, PARAMETER :: ind_MBOAOH = 1120 - INTEGER, PARAMETER :: ind_C645OH = 1121 - INTEGER, PARAMETER :: ind_HO7C8OOH = 1122 - INTEGER, PARAMETER :: ind_NIPBFUOOH = 1123 - INTEGER, PARAMETER :: ind_C4ME3HO23 = 1124 - INTEGER, PARAMETER :: ind_CATEC1OOH = 1125 - INTEGER, PARAMETER :: ind_C622OOH = 1126 - INTEGER, PARAMETER :: ind_NBZFUOOH = 1127 - INTEGER, PARAMETER :: ind_C141OOH = 1128 - INTEGER, PARAMETER :: ind_TMB2FUOOH = 1129 - INTEGER, PARAMETER :: ind_C617OOH = 1130 - INTEGER, PARAMETER :: ind_DE35TOOH = 1131 - INTEGER, PARAMETER :: ind_MIPKBOOH = 1132 - INTEGER, PARAMETER :: ind_EBFUCO = 1133 - INTEGER, PARAMETER :: ind_HO2C43CO3H = 1134 - INTEGER, PARAMETER :: ind_C822OOH = 1135 - INTEGER, PARAMETER :: ind_C82OOH = 1136 - INTEGER, PARAMETER :: ind_C95OOH = 1137 - INTEGER, PARAMETER :: ind_IBUTOLBO2H = 1138 - INTEGER, PARAMETER :: ind_C513OOH = 1139 - INTEGER, PARAMETER :: ind_HO2C4OH = 1140 - INTEGER, PARAMETER :: ind_C42NO33OOH = 1141 - INTEGER, PARAMETER :: ind_HO13C5OOH = 1142 - INTEGER, PARAMETER :: ind_DIETETOOH = 1143 - INTEGER, PARAMETER :: ind_PXNNCATOOH = 1144 - INTEGER, PARAMETER :: ind_C77OOH = 1145 - INTEGER, PARAMETER :: ind_C515CO3H = 1146 - INTEGER, PARAMETER :: ind_C719OOH = 1147 - INTEGER, PARAMETER :: ind_PTNCATCOOH = 1148 - INTEGER, PARAMETER :: ind_C1013OOH = 1149 - INTEGER, PARAMETER :: ind_ETOLOOH = 1150 - INTEGER, PARAMETER :: ind_LMKANO3 = 1151 - INTEGER, PARAMETER :: ind_MXCTEC1OOH = 1152 - INTEGER, PARAMETER :: ind_MIBKAOOH = 1153 - INTEGER, PARAMETER :: ind_COO2C4CO3H = 1154 - INTEGER, PARAMETER :: ind_C139OOH = 1155 - INTEGER, PARAMETER :: ind_OET1OOH = 1156 - INTEGER, PARAMETER :: ind_OXYOLOOH = 1157 - INTEGER, PARAMETER :: ind_HOIPRCO3H = 1158 - INTEGER, PARAMETER :: ind_DETLBPROOH = 1159 - INTEGER, PARAMETER :: ind_EOX2OLBOOH = 1160 - INTEGER, PARAMETER :: ind_PETLMUCOOH = 1161 - INTEGER, PARAMETER :: ind_C1014OOH = 1162 - INTEGER, PARAMETER :: ind_C718CO2H = 1163 - INTEGER, PARAMETER :: ind_NC71OOH = 1164 - INTEGER, PARAMETER :: ind_HO1C6OOH = 1165 - INTEGER, PARAMETER :: ind_DNT123LOOH = 1166 - INTEGER, PARAMETER :: ind_PXYMUCOOH = 1167 - INTEGER, PARAMETER :: ind_HO3C86OOH = 1168 - INTEGER, PARAMETER :: ind_NDNEBZLOOH = 1169 - INTEGER, PARAMETER :: ind_C83COOHOOH = 1170 - INTEGER, PARAMETER :: ind_C4ME2OHOOH = 1171 - INTEGER, PARAMETER :: ind_BUTDBNO3 = 1172 - INTEGER, PARAMETER :: ind_C67CO3H = 1173 - INTEGER, PARAMETER :: ind_IPBZMUCO2H = 1174 - INTEGER, PARAMETER :: ind_EPXKTMCO2H = 1175 - INTEGER, PARAMETER :: ind_EPXEKTCO3H = 1176 - INTEGER, PARAMETER :: ind_MTBKOOH = 1177 - INTEGER, PARAMETER :: ind_C136OOH = 1178 - INTEGER, PARAMETER :: ind_HO2C5OH = 1179 - INTEGER, PARAMETER :: ind_M3C4CO3H = 1180 - INTEGER, PARAMETER :: ind_C824OOH = 1181 - INTEGER, PARAMETER :: ind_C131CO3H = 1182 - INTEGER, PARAMETER :: ind_C1313OOH = 1183 - INTEGER, PARAMETER :: ind_CO2N3PAN = 1184 - INTEGER, PARAMETER :: ind_C4OCCOHOOH = 1185 - INTEGER, PARAMETER :: ind_BPINAOOH = 1186 - INTEGER, PARAMETER :: ind_T124NCTOOH = 1187 - INTEGER, PARAMETER :: ind_PBENZOOH = 1188 - INTEGER, PARAMETER :: ind_C87CO2H = 1189 - INTEGER, PARAMETER :: ind_PXNCATCOOH = 1190 - INTEGER, PARAMETER :: ind_C69OOH = 1191 - INTEGER, PARAMETER :: ind_MALANHYOOH = 1192 - INTEGER, PARAMETER :: ind_CO2M33CO3H = 1193 - INTEGER, PARAMETER :: ind_C4ME3HO12 = 1194 - INTEGER, PARAMETER :: ind_C1210OOH = 1195 - INTEGER, PARAMETER :: ind_H3M3C5CO3H = 1196 - INTEGER, PARAMETER :: ind_C918OOH = 1197 - INTEGER, PARAMETER :: ind_HO8C9CO3H = 1198 - INTEGER, PARAMETER :: ind_C928CO3H = 1199 - INTEGER, PARAMETER :: ind_DMEBPROOH = 1200 - INTEGER, PARAMETER :: ind_CO23C4CO3H = 1201 - INTEGER, PARAMETER :: ind_CY6DIONOOH = 1202 - INTEGER, PARAMETER :: ind_C921OOH = 1203 - INTEGER, PARAMETER :: ind_C63OOH = 1204 - INTEGER, PARAMETER :: ind_C923OOH = 1205 - INTEGER, PARAMETER :: ind_EPXMEDCO3H = 1206 - INTEGER, PARAMETER :: ind_M2HEXBOOH = 1207 - INTEGER, PARAMETER :: ind_CHOOMCO3H = 1208 - INTEGER, PARAMETER :: ind_C721CO3H = 1209 - INTEGER, PARAMETER :: ind_BZEMUCCO2H = 1210 - INTEGER, PARAMETER :: ind_EBZBPEROOH = 1211 - INTEGER, PARAMETER :: ind_CO2HOC6OOH = 1212 - INTEGER, PARAMETER :: ind_C67OOH = 1213 - INTEGER, PARAMETER :: ind_C98OOH = 1214 - INTEGER, PARAMETER :: ind_CO356OCOOH = 1215 - INTEGER, PARAMETER :: ind_DMEBIPNO3 = 1216 - INTEGER, PARAMETER :: ind_PE2ONE1OOH = 1217 - INTEGER, PARAMETER :: ind_TM135OLOOH = 1218 - INTEGER, PARAMETER :: ind_HC23C4CO3H = 1219 - INTEGER, PARAMETER :: ind_MVKOHAOOH = 1220 - INTEGER, PARAMETER :: ind_NEBNZ1OOH = 1221 - INTEGER, PARAMETER :: ind_INB1NACO2H = 1222 - INTEGER, PARAMETER :: ind_NDNMETLOOH = 1223 - INTEGER, PARAMETER :: ind_C7DCOOH = 1224 - INTEGER, PARAMETER :: ind_C717OOH = 1225 - INTEGER, PARAMETER :: ind_HO7C8CO3H = 1226 - INTEGER, PARAMETER :: ind_TM123OOH = 1227 - INTEGER, PARAMETER :: ind_TMBCO3H = 1228 - INTEGER, PARAMETER :: ind_C57NO3CO2H = 1229 - INTEGER, PARAMETER :: ind_NCRES1OOH = 1230 - INTEGER, PARAMETER :: ind_IPBFUCO = 1231 - INTEGER, PARAMETER :: ind_IPBZOLOOH = 1232 - INTEGER, PARAMETER :: ind_C1013CO3H = 1233 - INTEGER, PARAMETER :: ind_H3M3C4CO3H = 1234 - INTEGER, PARAMETER :: ind_CHEXOOH = 1235 - INTEGER, PARAMETER :: ind_C23C54CO3H = 1236 - INTEGER, PARAMETER :: ind_C729OOH = 1237 - INTEGER, PARAMETER :: ind_C522CO2H = 1238 - INTEGER, PARAMETER :: ind_CH3OCH2OOH = 1239 - INTEGER, PARAMETER :: ind_NSTYRENEO = 1240 - INTEGER, PARAMETER :: ind_APINCOOH = 1241 - INTEGER, PARAMETER :: ind_HC4CCO2H = 1242 - INTEGER, PARAMETER :: ind_OCATEC1OOH = 1243 - INTEGER, PARAMETER :: ind_HO5C6CO3H = 1244 - INTEGER, PARAMETER :: ind_C127OOH = 1245 - INTEGER, PARAMETER :: ind_C537O = 1246 - INTEGER, PARAMETER :: ind_C823CO3H = 1247 - INTEGER, PARAMETER :: ind_ACCOMECO3H = 1248 - INTEGER, PARAMETER :: ind_IEACO3H = 1249 - INTEGER, PARAMETER :: ind_C732CO3H = 1250 - INTEGER, PARAMETER :: ind_C141CO3H = 1251 - INTEGER, PARAMETER :: ind_TMB1FUOOH = 1252 - INTEGER, PARAMETER :: ind_ENNCATCOOH = 1253 - INTEGER, PARAMETER :: ind_PETLMUCO3H = 1254 - INTEGER, PARAMETER :: ind_MXNNCATOOH = 1255 - INTEGER, PARAMETER :: ind_EPXEKTCO2H = 1256 - INTEGER, PARAMETER :: ind_C734CO = 1257 - INTEGER, PARAMETER :: ind_NISOPOOH = 1258 - INTEGER, PARAMETER :: ind_NONOOH = 1259 - INTEGER, PARAMETER :: ind_C817OOH = 1260 - INTEGER, PARAMETER :: ind_C3MNO3CO2H = 1261 - INTEGER, PARAMETER :: ind_EIPKBOOH = 1262 - INTEGER, PARAMETER :: ind_C813OOH = 1263 - INTEGER, PARAMETER :: ind_C718OOH = 1264 - INTEGER, PARAMETER :: ind_HM33C3OOH = 1265 - INTEGER, PARAMETER :: ind_C917OOH = 1266 - INTEGER, PARAMETER :: ind_HEPTOOH = 1267 - INTEGER, PARAMETER :: ind_C83OOH = 1268 - INTEGER, PARAMETER :: ind_HMML = 1269 - INTEGER, PARAMETER :: ind_DM35EBOOH = 1270 - INTEGER, PARAMETER :: ind_C115OOH = 1271 - INTEGER, PARAMETER :: ind_C728OOH = 1272 - INTEGER, PARAMETER :: ind_DNT124LOOH = 1273 - INTEGER, PARAMETER :: ind_DETLMUO3H = 1274 - INTEGER, PARAMETER :: ind_C5TRONCO3H = 1275 - INTEGER, PARAMETER :: ind_MXYBPEROOH = 1276 - INTEGER, PARAMETER :: ind_C811CO3H = 1277 - INTEGER, PARAMETER :: ind_DNPXYOLOOH = 1278 - INTEGER, PARAMETER :: ind_CHOC4OHOOH = 1279 - INTEGER, PARAMETER :: ind_ISOPDOH = 1280 - INTEGER, PARAMETER :: ind_M2BKAOOH = 1281 - INTEGER, PARAMETER :: ind_C75OOH = 1282 - INTEGER, PARAMETER :: ind_MXYLCO3H = 1283 - INTEGER, PARAMETER :: ind_C9DCNO3 = 1284 - INTEGER, PARAMETER :: ind_M3BU3ECO3H = 1285 - INTEGER, PARAMETER :: ind_C126OOH = 1286 - INTEGER, PARAMETER :: ind_OXYLOOH = 1287 - INTEGER, PARAMETER :: ind_MPRANO3OOH = 1288 - INTEGER, PARAMETER :: ind_HMVKAOOH = 1289 - INTEGER, PARAMETER :: ind_C5H11CO3H = 1290 - INTEGER, PARAMETER :: ind_H2M3C4CO3H = 1291 - INTEGER, PARAMETER :: ind_MIBK3COOOH = 1292 - INTEGER, PARAMETER :: ind_PHCOCOCOOH = 1293 - INTEGER, PARAMETER :: ind_ECATEC1OOH = 1294 - INTEGER, PARAMETER :: ind_C1215OOH = 1295 - INTEGER, PARAMETER :: ind_MXYMUCCO3H = 1296 - INTEGER, PARAMETER :: ind_BPINAOH = 1297 - INTEGER, PARAMETER :: ind_HEXCOOH = 1298 - INTEGER, PARAMETER :: ind_DMEBMUO3H = 1299 - INTEGER, PARAMETER :: ind_MPRBNO3OOH = 1300 - INTEGER, PARAMETER :: ind_NDMMALYOOH = 1301 - INTEGER, PARAMETER :: ind_BU1ENO3OOH = 1302 - INTEGER, PARAMETER :: ind_IPBENZOOH = 1303 - INTEGER, PARAMETER :: ind_HO3C106OOH = 1304 - INTEGER, PARAMETER :: ind_ETOC2OOH = 1305 - INTEGER, PARAMETER :: ind_NC51OOH = 1306 - INTEGER, PARAMETER :: ind_TLBIPEROOH = 1307 - INTEGER, PARAMETER :: ind_NIPBNZ1OOH = 1308 - INTEGER, PARAMETER :: ind_NDNPBZLOOH = 1309 - INTEGER, PARAMETER :: ind_TM135BPOOH = 1310 - INTEGER, PARAMETER :: ind_C719NO3 = 1311 - INTEGER, PARAMETER :: ind_C616OOH = 1312 - INTEGER, PARAMETER :: ind_CYHXONAOOH = 1313 - INTEGER, PARAMETER :: ind_BCALOOH = 1314 - INTEGER, PARAMETER :: ind_PHC3OOH = 1315 - INTEGER, PARAMETER :: ind_TLEMUCCO2H = 1316 - INTEGER, PARAMETER :: ind_C622CO3H = 1317 - INTEGER, PARAMETER :: ind_C816OOH = 1318 - INTEGER, PARAMETER :: ind_HCOCH2CO3H = 1319 - INTEGER, PARAMETER :: ind_CHOC2CO3H = 1320 - INTEGER, PARAMETER :: ind_HO13C4NO3 = 1321 - INTEGER, PARAMETER :: ind_MNCATECOOH = 1322 - INTEGER, PARAMETER :: ind_C610OOH = 1323 - INTEGER, PARAMETER :: ind_C97OOH = 1324 - INTEGER, PARAMETER :: ind_C822CO3H = 1325 - INTEGER, PARAMETER :: ind_H2M5C65OOH = 1326 - INTEGER, PARAMETER :: ind_CO3C54CO3H = 1327 - INTEGER, PARAMETER :: ind_C928OOH = 1328 - INTEGER, PARAMETER :: ind_PNNCATCOOH = 1329 - INTEGER, PARAMETER :: ind_DMEBMUO2H = 1330 - INTEGER, PARAMETER :: ind_C117OOH = 1331 - INTEGER, PARAMETER :: ind_PERPENACID = 1332 - INTEGER, PARAMETER :: ind_C1214OOH = 1333 - INTEGER, PARAMETER :: ind_BCKANO3 = 1334 - INTEGER, PARAMETER :: ind_DMMALYOOH = 1335 - INTEGER, PARAMETER :: ind_C1211CO3H = 1336 - INTEGER, PARAMETER :: ind_C61OOH = 1337 - INTEGER, PARAMETER :: ind_C125OOH = 1338 - INTEGER, PARAMETER :: ind_C732OOH = 1339 - INTEGER, PARAMETER :: ind_H1MC5OOH = 1340 - INTEGER, PARAMETER :: ind_C6H5CH2OOH = 1341 - INTEGER, PARAMETER :: ind_NDNMXYLOOH = 1342 - INTEGER, PARAMETER :: ind_OXYMUCCO2H = 1343 - INTEGER, PARAMETER :: ind_C615CO2H = 1344 - INTEGER, PARAMETER :: ind_C7ADCOOH = 1345 - INTEGER, PARAMETER :: ind_C536O = 1346 - INTEGER, PARAMETER :: ind_C519CO3H = 1347 - INTEGER, PARAMETER :: ind_CO25C6CO3H = 1348 - INTEGER, PARAMETER :: ind_HO3C116OOH = 1349 - INTEGER, PARAMETER :: ind_C727CO3H = 1350 - INTEGER, PARAMETER :: ind_C926OOH = 1351 - INTEGER, PARAMETER :: ind_BUTDAOOH = 1352 - INTEGER, PARAMETER :: ind_C108OOH = 1353 - INTEGER, PARAMETER :: ind_MXYMUCCO2H = 1354 - INTEGER, PARAMETER :: ind_TM123BCO3H = 1355 - INTEGER, PARAMETER :: ind_EPXDLCO2H = 1356 - INTEGER, PARAMETER :: ind_PMALNHYOOH = 1357 - INTEGER, PARAMETER :: ind_OTNCATCOOH = 1358 - INTEGER, PARAMETER :: ind_IPRBQOOH = 1359 - INTEGER, PARAMETER :: ind_C5CO23OOH = 1360 - INTEGER, PARAMETER :: ind_T123CT1OOH = 1361 - INTEGER, PARAMETER :: ind_NBPINBOOH = 1362 - INTEGER, PARAMETER :: ind_C4NO3CO2H = 1363 - INTEGER, PARAMETER :: ind_NC526OOH = 1364 - INTEGER, PARAMETER :: ind_NBUTDBOOH = 1365 - INTEGER, PARAMETER :: ind_NPXYOL1OOH = 1366 - INTEGER, PARAMETER :: ind_C919OOH = 1367 - INTEGER, PARAMETER :: ind_EPXMEDLPAN = 1368 - INTEGER, PARAMETER :: ind_IBUTOLOHB = 1369 - INTEGER, PARAMETER :: ind_OETLMUCO3H = 1370 - INTEGER, PARAMETER :: ind_LIMALOOH = 1371 - INTEGER, PARAMETER :: ind_C147CO = 1372 - INTEGER, PARAMETER :: ind_C147OOH = 1373 - INTEGER, PARAMETER :: ind_C91OOH = 1374 - INTEGER, PARAMETER :: ind_HO3C76OOH = 1375 - INTEGER, PARAMETER :: ind_NDNCRESOOH = 1376 - INTEGER, PARAMETER :: ind_STYRENOOH = 1377 - INTEGER, PARAMETER :: ind_EPXMKTCO3H = 1378 - INTEGER, PARAMETER :: ind_MXNCATCOOH = 1379 - INTEGER, PARAMETER :: ind_H2M2C3CO3H = 1380 - INTEGER, PARAMETER :: ind_C623OOH = 1381 - INTEGER, PARAMETER :: ind_H3M3C6OOH = 1382 - INTEGER, PARAMETER :: ind_C920OOH = 1383 - INTEGER, PARAMETER :: ind_LMKAOH = 1384 - INTEGER, PARAMETER :: ind_TMBOOH = 1385 - INTEGER, PARAMETER :: ind_C656OH = 1386 - INTEGER, PARAMETER :: ind_HO3C126OOH = 1387 - INTEGER, PARAMETER :: ind_NPBFUOOH = 1388 - INTEGER, PARAMETER :: ind_EPXMEDCO2H = 1389 - INTEGER, PARAMETER :: ind_C916OOH = 1390 - INTEGER, PARAMETER :: ind_C4NO32MOOH = 1391 - INTEGER, PARAMETER :: ind_C533OOH = 1392 - INTEGER, PARAMETER :: ind_MXOHNO2OOH = 1393 - INTEGER, PARAMETER :: ind_C626CO2H = 1394 - INTEGER, PARAMETER :: ind_BUTDCOOH = 1395 - INTEGER, PARAMETER :: ind_DEMPHOLOOH = 1396 - INTEGER, PARAMETER :: ind_C6145COOOH = 1397 - INTEGER, PARAMETER :: ind_HO8C9OOH = 1398 - INTEGER, PARAMETER :: ind_MTNNCATOOH = 1399 - INTEGER, PARAMETER :: ind_CYHXOLANO3 = 1400 - INTEGER, PARAMETER :: ind_HO3C96OOH = 1401 - INTEGER, PARAMETER :: ind_C718CO3H = 1402 - INTEGER, PARAMETER :: ind_PXYMUCCO2H = 1403 - INTEGER, PARAMETER :: ind_EPXKTMCO3H = 1404 - INTEGER, PARAMETER :: ind_METLMUCO2H = 1405 - INTEGER, PARAMETER :: ind_CO23C65OOH = 1406 - INTEGER, PARAMETER :: ind_C136CO3H = 1407 - INTEGER, PARAMETER :: ind_C617CO3H = 1408 - INTEGER, PARAMETER :: ind_OETLMUCO2H = 1409 - INTEGER, PARAMETER :: ind_C101OOH = 1410 - INTEGER, PARAMETER :: ind_C829OOH = 1411 - INTEGER, PARAMETER :: ind_PETLQOOH = 1412 - INTEGER, PARAMETER :: ind_C830OOH = 1413 - INTEGER, PARAMETER :: ind_C614OOH = 1414 - INTEGER, PARAMETER :: ind_MXYMUCOOH = 1415 - INTEGER, PARAMETER :: ind_CO3C85OOH = 1416 - INTEGER, PARAMETER :: ind_BZEMUCCO3H = 1417 - INTEGER, PARAMETER :: ind_HO6C7CO3H = 1418 - INTEGER, PARAMETER :: ind_MXY1OOH = 1419 - INTEGER, PARAMETER :: ind_DNOXYOLOOH = 1420 - INTEGER, PARAMETER :: ind_PCATEC1OOH = 1421 - INTEGER, PARAMETER :: ind_M2BUOL2OOH = 1422 - INTEGER, PARAMETER :: ind_DNPETOLOOH = 1423 - INTEGER, PARAMETER :: ind_C817CO3H = 1424 - INTEGER, PARAMETER :: ind_C58NO3CO2H = 1425 - INTEGER, PARAMETER :: ind_TL4ONO2OOH = 1426 - INTEGER, PARAMETER :: ind_NPHEN1OOH = 1427 - INTEGER, PARAMETER :: ind_C512OOH = 1428 - INTEGER, PARAMETER :: ind_MCATEC1OOH = 1429 - INTEGER, PARAMETER :: ind_MBKCOOHOOH = 1430 - INTEGER, PARAMETER :: ind_PHIC3OOH = 1431 - INTEGER, PARAMETER :: ind_EPXMKTCO2H = 1432 - INTEGER, PARAMETER :: ind_HMACO2H = 1433 - INTEGER, PARAMETER :: ind_BZBIPEROOH = 1434 - INTEGER, PARAMETER :: ind_METLQOOH = 1435 - INTEGER, PARAMETER :: ind_C2OHOCOOH = 1436 - INTEGER, PARAMETER :: ind_C920CO3H = 1437 - INTEGER, PARAMETER :: ind_C510OOH = 1438 - INTEGER, PARAMETER :: ind_C624OOH = 1439 - INTEGER, PARAMETER :: ind_CO3C5CO2H = 1440 - INTEGER, PARAMETER :: ind_C72OOH = 1441 - INTEGER, PARAMETER :: ind_C512CO2H = 1442 - INTEGER, PARAMETER :: ind_PXYFUOOH = 1443 - INTEGER, PARAMETER :: ind_C143OOH = 1444 - INTEGER, PARAMETER :: ind_C45OOH = 1445 - INTEGER, PARAMETER :: ind_C93OOH = 1446 - INTEGER, PARAMETER :: ind_C816CO3H = 1447 - INTEGER, PARAMETER :: ind_HO3C5CO3H = 1448 - INTEGER, PARAMETER :: ind_ETOMEOOH = 1449 - INTEGER, PARAMETER :: ind_PTCTEC1OOH = 1450 - INTEGER, PARAMETER :: ind_OXYBPEROOH = 1451 - INTEGER, PARAMETER :: ind_NOETOL1OOH = 1452 - INTEGER, PARAMETER :: ind_NPETOL1OOH = 1453 - INTEGER, PARAMETER :: ind_C116CO3H = 1454 - INTEGER, PARAMETER :: ind_TM124NOOH = 1455 - INTEGER, PARAMETER :: ind_OXYLCO3H = 1456 - INTEGER, PARAMETER :: ind_INCNCO2H = 1457 - INTEGER, PARAMETER :: ind_TM124BOOH = 1458 - INTEGER, PARAMETER :: ind_T124NNCOOH = 1459 - INTEGER, PARAMETER :: ind_C23O3MCO3H = 1460 - INTEGER, PARAMETER :: ind_C828CO3H = 1461 - INTEGER, PARAMETER :: ind_PERPINONIC = 1462 - INTEGER, PARAMETER :: ind_C731OOH = 1463 - INTEGER, PARAMETER :: ind_IPMLNHYOOH = 1464 - INTEGER, PARAMETER :: ind_TM135MUO3H = 1465 - INTEGER, PARAMETER :: ind_PERIBUACID = 1466 - INTEGER, PARAMETER :: ind_IECCO3H = 1467 - INTEGER, PARAMETER :: ind_LIMCOOH = 1468 - INTEGER, PARAMETER :: ind_M23C43OOH = 1469 - INTEGER, PARAMETER :: ind_NOPINCOOH = 1470 - INTEGER, PARAMETER :: ind_CO2C4CO3H = 1471 - INTEGER, PARAMETER :: ind_NDNPXYLOOH = 1472 - INTEGER, PARAMETER :: ind_METLMUCO3H = 1473 - INTEGER, PARAMETER :: ind_COO2C3CO3H = 1474 - INTEGER, PARAMETER :: ind_HOC3H6CO3H = 1475 - INTEGER, PARAMETER :: ind_EBENZOOH = 1476 - INTEGER, PARAMETER :: ind_HM2C43CO3H = 1477 - INTEGER, PARAMETER :: ind_CO1H63OOH = 1478 - INTEGER, PARAMETER :: ind_C1011CO3H = 1479 - INTEGER, PARAMETER :: ind_C830CO3H = 1480 - INTEGER, PARAMETER :: ind_PETLMUCO2H = 1481 - INTEGER, PARAMETER :: ind_HO24C5NO3 = 1482 - INTEGER, PARAMETER :: ind_MALNHYOHCO = 1483 - INTEGER, PARAMETER :: ind_MXYLOOH = 1484 - INTEGER, PARAMETER :: ind_C134OOH = 1485 - INTEGER, PARAMETER :: ind_TM124BPOOH = 1486 - INTEGER, PARAMETER :: ind_NORLIMOOH = 1487 - INTEGER, PARAMETER :: ind_M2PEDOOH = 1488 - INTEGER, PARAMETER :: ind_C89CO2H = 1489 - INTEGER, PARAMETER :: ind_HO2C54OOH = 1490 - INTEGER, PARAMETER :: ind_OCTOOH = 1491 - INTEGER, PARAMETER :: ind_C915OOH = 1492 - INTEGER, PARAMETER :: ind_C825CO = 1493 - INTEGER, PARAMETER :: ind_INB1NBCO2H = 1494 - INTEGER, PARAMETER :: ind_C6CO34OOH = 1495 - INTEGER, PARAMETER :: ind_C106OOH = 1496 - INTEGER, PARAMETER :: ind_PXYQOOH = 1497 - INTEGER, PARAMETER :: ind_C3COCCO3H = 1498 - INTEGER, PARAMETER :: ind_C68OOH = 1499 - INTEGER, PARAMETER :: ind_PERBUACID = 1500 - INTEGER, PARAMETER :: ind_M3HEXAOOH = 1501 - INTEGER, PARAMETER :: ind_NC1313OOH = 1502 - INTEGER, PARAMETER :: ind_METOLOOH = 1503 - INTEGER, PARAMETER :: ind_DNPBNZLOOH = 1504 - INTEGER, PARAMETER :: ind_C1213OOH = 1505 - INTEGER, PARAMETER :: ind_HO1MC5OOH = 1506 - INTEGER, PARAMETER :: ind_C827CO3H = 1507 - INTEGER, PARAMETER :: ind_DNPHENOOH = 1508 - INTEGER, PARAMETER :: ind_C1210CO3H = 1509 - INTEGER, PARAMETER :: ind_EBZMUCOOH = 1510 - INTEGER, PARAMETER :: ind_C731CO3H = 1511 - INTEGER, PARAMETER :: ind_ENCATECOOH = 1512 - INTEGER, PARAMETER :: ind_TM135MUO2H = 1513 - INTEGER, PARAMETER :: ind_M2BKBOOH = 1514 - INTEGER, PARAMETER :: ind_C5NO3O4OOH = 1515 - INTEGER, PARAMETER :: ind_BUT2CO3H = 1516 - INTEGER, PARAMETER :: ind_NLIMALOOH = 1517 - INTEGER, PARAMETER :: ind_INAHPCO3H = 1518 - INTEGER, PARAMETER :: ind_C831OOH = 1519 - INTEGER, PARAMETER :: ind_LIMAOH = 1520 - INTEGER, PARAMETER :: ind_HO14C6 = 1521 - INTEGER, PARAMETER :: ind_C515OOH = 1522 - INTEGER, PARAMETER :: ind_C131OOH = 1523 - INTEGER, PARAMETER :: ind_MTNCATCOOH = 1524 - INTEGER, PARAMETER :: ind_PETLBPROOH = 1525 - INTEGER, PARAMETER :: ind_C113OOH = 1526 - INTEGER, PARAMETER :: ind_NC730OOH = 1527 - INTEGER, PARAMETER :: ind_C514OOH = 1528 - INTEGER, PARAMETER :: ind_MVKOHANO3 = 1529 - INTEGER, PARAMETER :: ind_MEBFUOOH = 1530 - INTEGER, PARAMETER :: ind_C54NO3 = 1531 - INTEGER, PARAMETER :: ind_T123NCTOOH = 1532 - INTEGER, PARAMETER :: ind_PXYBPEROOH = 1533 - INTEGER, PARAMETER :: ind_C121OOH = 1534 - INTEGER, PARAMETER :: ind_OETLBPROOH = 1535 - INTEGER, PARAMETER :: ind_CO1C6OOH = 1536 - INTEGER, PARAMETER :: ind_TM124BCO3H = 1537 - INTEGER, PARAMETER :: ind_C615OOH = 1538 - INTEGER, PARAMETER :: ind_PRCATC1OOH = 1539 - INTEGER, PARAMETER :: ind_C88CO3H = 1540 - INTEGER, PARAMETER :: ind_H3C2C4CO3H = 1541 - INTEGER, PARAMETER :: ind_TM123BOOH = 1542 - INTEGER, PARAMETER :: ind_C123OOH = 1543 - INTEGER, PARAMETER :: ind_C516OOH = 1544 - INTEGER, PARAMETER :: ind_HO3C4CO3H = 1545 - INTEGER, PARAMETER :: ind_C1012OOH = 1546 - INTEGER, PARAMETER :: ind_HM33C3CO3H = 1547 - INTEGER, PARAMETER :: ind_CO25C73OH = 1548 - INTEGER, PARAMETER :: ind_NOXYOLOH = 1549 - INTEGER, PARAMETER :: ind_C1011CO = 1550 - INTEGER, PARAMETER :: ind_C1011NO3 = 1551 - INTEGER, PARAMETER :: ind_HM22C3O = 1552 - INTEGER, PARAMETER :: ind_ETHACETO = 1553 - INTEGER, PARAMETER :: ind_NPETOLOH = 1554 - INTEGER, PARAMETER :: ind_NMETOLOH = 1555 - INTEGER, PARAMETER :: ind_C612O = 1556 - INTEGER, PARAMETER :: ind_C78OH = 1557 - INTEGER, PARAMETER :: ind_HVMK = 1558 - INTEGER, PARAMETER :: ind_HM23C4O = 1559 - INTEGER, PARAMETER :: ind_C826CO3OH = 1560 - INTEGER, PARAMETER :: ind_C628OH = 1561 - INTEGER, PARAMETER :: ind_C5NO3CO4OH = 1562 - INTEGER, PARAMETER :: ind_HO3C6O = 1563 - INTEGER, PARAMETER :: ind_HO2MC5O = 1564 - INTEGER, PARAMETER :: ind_APINBCO = 1565 - INTEGER, PARAMETER :: ind_CO25C6OH = 1566 - INTEGER, PARAMETER :: ind_NOETOLOH = 1567 - INTEGER, PARAMETER :: ind_IBUTOLCO = 1568 - INTEGER, PARAMETER :: ind_BCKOOB = 1569 - INTEGER, PARAMETER :: ind_HOHOC4DIAL = 1570 - INTEGER, PARAMETER :: ind_C84OH = 1571 - INTEGER, PARAMETER :: ind_C719O = 1572 - INTEGER, PARAMETER :: ind_C3ME3CHO = 1573 - INTEGER, PARAMETER :: ind_MEKCO = 1574 - INTEGER, PARAMETER :: ind_INAHPCHO = 1575 - INTEGER, PARAMETER :: ind_C9M2CO6OH = 1576 - INTEGER, PARAMETER :: ind_IPEBOH = 1577 - INTEGER, PARAMETER :: ind_C7BDCOH = 1578 - INTEGER, PARAMETER :: ind_C513O = 1579 - INTEGER, PARAMETER :: ind_DIETETHER = 1580 - INTEGER, PARAMETER :: ind_LIMBCO = 1581 - INTEGER, PARAMETER :: ind_MIBKHO14 = 1582 - INTEGER, PARAMETER :: ind_MC7CO2O = 1583 - INTEGER, PARAMETER :: ind_MC7CO2OH = 1584 - INTEGER, PARAMETER :: ind_LIMALAOH = 1585 - INTEGER, PARAMETER :: ind_LMLKAOH = 1586 - INTEGER, PARAMETER :: ind_MIBKBOH = 1587 - INTEGER, PARAMETER :: ind_C615CO2OH = 1588 - INTEGER, PARAMETER :: ind_NTM135OLOH = 1589 - INTEGER, PARAMETER :: ind_C1013CO = 1590 - INTEGER, PARAMETER :: ind_C1013NO3 = 1591 - INTEGER, PARAMETER :: ind_MEKBO = 1592 - INTEGER, PARAMETER :: ind_METHACETO = 1593 - INTEGER, PARAMETER :: ind_NDMEPHOLOH = 1594 - INTEGER, PARAMETER :: ind_MPRKAO = 1595 - INTEGER, PARAMETER :: ind_PECOH = 1596 - INTEGER, PARAMETER :: ind_ETHFORMO = 1597 - INTEGER, PARAMETER :: ind_C715CO2OH = 1598 - INTEGER, PARAMETER :: ind_HEX3ONDOH = 1599 - INTEGER, PARAMETER :: ind_C7M2CO5OH = 1600 - INTEGER, PARAMETER :: ind_C6CO3HO14 = 1601 - INTEGER, PARAMETER :: ind_C4M2AL2OH = 1602 - INTEGER, PARAMETER :: ind_INB1NACHO = 1603 - INTEGER, PARAMETER :: ind_C9DC = 1604 - INTEGER, PARAMETER :: ind_C822CO2 = 1605 - INTEGER, PARAMETER :: ind_PXYFUO = 1606 - INTEGER, PARAMETER :: ind_C69O = 1607 - INTEGER, PARAMETER :: ind_C89CO2 = 1608 - INTEGER, PARAMETER :: ind_C726CO3OH = 1609 - INTEGER, PARAMETER :: ind_C7236CO = 1610 - INTEGER, PARAMETER :: ind_BCALAOH = 1611 - INTEGER, PARAMETER :: ind_BCALCOH = 1612 - INTEGER, PARAMETER :: ind_NEBNZOLOH = 1613 - INTEGER, PARAMETER :: ind_C1010O = 1614 - INTEGER, PARAMETER :: ind_LMLKBOH = 1615 - INTEGER, PARAMETER :: ind_C52O = 1616 - INTEGER, PARAMETER :: ind_C731CO2 = 1617 - INTEGER, PARAMETER :: ind_C627OH = 1618 - INTEGER, PARAMETER :: ind_BCLKCOH = 1619 - INTEGER, PARAMETER :: ind_C145O = 1620 - INTEGER, PARAMETER :: ind_C6NO3CO4OH = 1621 - INTEGER, PARAMETER :: ind_TMB2FUO = 1622 - INTEGER, PARAMETER :: ind_C815CO2OH = 1623 - INTEGER, PARAMETER :: ind_C136CO2 = 1624 - INTEGER, PARAMETER :: ind_INB1HPCHO = 1625 - INTEGER, PARAMETER :: ind_C41OH = 1626 - INTEGER, PARAMETER :: ind_HM22C4O = 1627 - INTEGER, PARAMETER :: ind_C126CO = 1628 - INTEGER, PARAMETER :: ind_C126NO3 = 1629 - INTEGER, PARAMETER :: ind_C735OH = 1630 - INTEGER, PARAMETER :: ind_C735O = 1631 - INTEGER, PARAMETER :: ind_C714OH = 1632 - INTEGER, PARAMETER :: ind_C712OH = 1633 - INTEGER, PARAMETER :: ind_CH3O = 1634 - INTEGER, PARAMETER :: ind_IC5H12 = 1635 - INTEGER, PARAMETER :: ind_C7M15CO2OH = 1636 - INTEGER, PARAMETER :: ind_C611OH = 1637 - INTEGER, PARAMETER :: ind_DIEKAO = 1638 - INTEGER, PARAMETER :: ind_HMVKNGLYOX = 1639 - INTEGER, PARAMETER :: ind_C826CO3O = 1640 - INTEGER, PARAMETER :: ind_M3PE = 1641 - INTEGER, PARAMETER :: ind_GAOOA = 1642 - INTEGER, PARAMETER :: ind_C818CO = 1643 - INTEGER, PARAMETER :: ind_C42OH = 1644 - INTEGER, PARAMETER :: ind_MXYL1O = 1645 - INTEGER, PARAMETER :: ind_HO14CO3C5 = 1646 - INTEGER, PARAMETER :: ind_NTM123OLOH = 1647 - INTEGER, PARAMETER :: ind_C830CO = 1648 - INTEGER, PARAMETER :: ind_C830NO3 = 1649 - INTEGER, PARAMETER :: ind_C6CO3OH5O = 1650 - INTEGER, PARAMETER :: ind_INDHPCHO = 1651 - INTEGER, PARAMETER :: ind_C617O = 1652 - INTEGER, PARAMETER :: ind_EIPKAOH = 1653 - INTEGER, PARAMETER :: ind_EIPKAO = 1654 - INTEGER, PARAMETER :: ind_HO14CO2C5 = 1655 - INTEGER, PARAMETER :: ind_C116CO = 1656 - INTEGER, PARAMETER :: ind_C116NO3 = 1657 - INTEGER, PARAMETER :: ind_C53OH = 1658 - INTEGER, PARAMETER :: ind_C66OH = 1659 - INTEGER, PARAMETER :: ind_C1012CO = 1660 - INTEGER, PARAMETER :: ind_ISOPCO = 1661 - INTEGER, PARAMETER :: ind_IC3H7O = 1662 - INTEGER, PARAMETER :: ind_HM33C4O = 1663 - INTEGER, PARAMETER :: ind_NMXYOLOH = 1664 - INTEGER, PARAMETER :: ind_C8M2CO6OH = 1665 - INTEGER, PARAMETER :: ind_MPHCOMEOH = 1666 - INTEGER, PARAMETER :: ind_HO2C5O = 1667 - INTEGER, PARAMETER :: ind_BCLKAOH = 1668 - INTEGER, PARAMETER :: ind_NTM124OLOH = 1669 - INTEGER, PARAMETER :: ind_C4COMOH3OH = 1670 - INTEGER, PARAMETER :: ind_MIBKOH34 = 1671 - INTEGER, PARAMETER :: ind_NPBNZOLOH = 1672 - INTEGER, PARAMETER :: ind_CYHXONAOH = 1673 - INTEGER, PARAMETER :: ind_C124OH = 1674 - INTEGER, PARAMETER :: ind_TLFUO = 1675 - INTEGER, PARAMETER :: ind_C926OH = 1676 - INTEGER, PARAMETER :: ind_C611O = 1677 - INTEGER, PARAMETER :: ind_C521OH = 1678 - INTEGER, PARAMETER :: ind_HO1C3O = 1679 - INTEGER, PARAMETER :: ind_TMB1FUO = 1680 - INTEGER, PARAMETER :: ind_MC52CO2OH = 1681 - INTEGER, PARAMETER :: ind_HMAC = 1682 - INTEGER, PARAMETER :: ind_HNMVKOH = 1683 - INTEGER, PARAMETER :: ind_C59O = 1684 - INTEGER, PARAMETER :: ind_INAHCHO = 1685 - INTEGER, PARAMETER :: ind_NPROPOL = 1686 - INTEGER, PARAMETER :: ind_BCLKBOH = 1687 - INTEGER, PARAMETER :: ind_M22C4 = 1688 - INTEGER, PARAMETER :: ind_C926O = 1689 - INTEGER, PARAMETER :: ind_CO25C74OH = 1690 - INTEGER, PARAMETER :: ind_C628O = 1691 - INTEGER, PARAMETER :: ind_HO2M2C5O = 1692 - INTEGER, PARAMETER :: ind_EIPKBOH = 1693 - INTEGER, PARAMETER :: ind_M2BKBOH = 1694 - INTEGER, PARAMETER :: ind_NC3H7O = 1695 - INTEGER, PARAMETER :: ind_C619CO = 1696 - INTEGER, PARAMETER :: ind_NBUTOL = 1697 - INTEGER, PARAMETER :: ind_C5DIALOH = 1698 - INTEGER, PARAMETER :: ind_HEX2ONCO = 1699 - INTEGER, PARAMETER :: ind_NPXYOLOH = 1700 - INTEGER, PARAMETER :: ind_IBUTOL = 1701 - INTEGER, PARAMETER :: ind_IBUTALBO = 1702 - INTEGER, PARAMETER :: ind_BENZENE = 1703 - INTEGER, PARAMETER :: ind_HEX3ONAOH = 1704 - INTEGER, PARAMETER :: ind_C6CO3HO25 = 1705 - INTEGER, PARAMETER :: ind_LMKBCO = 1706 - INTEGER, PARAMETER :: ind_C94OH = 1707 - INTEGER, PARAMETER :: ind_NC5H12 = 1708 - INTEGER, PARAMETER :: ind_NC6H14 = 1709 - INTEGER, PARAMETER :: ind_MC6OTKETO = 1710 - INTEGER, PARAMETER :: ind_C6CO3HO4 = 1711 - INTEGER, PARAMETER :: ind_C6CO34 = 1712 - INTEGER, PARAMETER :: ind_MXYFUO = 1713 - INTEGER, PARAMETER :: ind_M2BKBO = 1714 - INTEGER, PARAMETER :: ind_IC4H9O = 1715 - INTEGER, PARAMETER :: ind_EMPHCOMOH = 1716 - INTEGER, PARAMETER :: ind_NIPBNZOLOH = 1717 - INTEGER, PARAMETER :: ind_LIMALBOH = 1718 - INTEGER, PARAMETER :: ind_CO2HO4C6 = 1719 - INTEGER, PARAMETER :: ind_HO1C4O = 1720 - INTEGER, PARAMETER :: ind_H2MC5O = 1721 - INTEGER, PARAMETER :: ind_C713OH = 1722 - INTEGER, PARAMETER :: ind_C713O = 1723 - INTEGER, PARAMETER :: ind_C930O = 1724 - INTEGER, PARAMETER :: ind_C4CHOBO = 1725 - INTEGER, PARAMETER :: ind_DMK2OH = 1726 - INTEGER, PARAMETER :: ind_OXYFUO = 1727 - INTEGER, PARAMETER :: ind_METHCOACET = 1728 - INTEGER, PARAMETER :: ind_NDEMPHOLOH = 1729 - INTEGER, PARAMETER :: ind_IPEAOH = 1730 - INTEGER, PARAMETER :: ind_C818OH = 1731 - INTEGER, PARAMETER :: ind_C620O = 1732 - INTEGER, PARAMETER :: ind_C2H5OH = 1733 - INTEGER, PARAMETER :: ind_C514CO23OH = 1734 - INTEGER, PARAMETER :: ind_DMPHCOMOH = 1735 - INTEGER, PARAMETER :: ind_BCBCO = 1736 - INTEGER, PARAMETER :: ind_HEX3ONCO = 1737 - INTEGER, PARAMETER :: ind_BCKBCO = 1738 - INTEGER, PARAMETER :: ind_C1210CO2 = 1739 - INTEGER, PARAMETER :: ind_C114OH = 1740 - INTEGER, PARAMETER :: ind_NEOPO = 1741 - INTEGER, PARAMETER :: ind_BCALBOH = 1742 - INTEGER, PARAMETER :: ind_ACETC2H4O = 1743 - INTEGER, PARAMETER :: ind_C104OH = 1744 - INTEGER, PARAMETER :: ind_MEBFUO = 1745 - INTEGER, PARAMETER :: ind_BCOOB = 1746 - INTEGER, PARAMETER :: ind_NCRESOH = 1747 - INTEGER, PARAMETER :: ind_INB1O = 1748 - INTEGER, PARAMETER :: ind_C2H5NO3 = 1749 - INTEGER, PARAMETER :: ind_C2H5O = 1750 - INTEGER, PARAMETER :: ind_M3PEAOOH = 1751 - INTEGER, PARAMETER :: ind_C143NO3 = 1752 - INTEGER, PARAMETER :: ind_M3PEBOOH = 1753 - INTEGER, PARAMETER :: ind_C4ME2OHO = 1754 - INTEGER, PARAMETER :: ind_HO1C6O = 1755 - INTEGER, PARAMETER :: ind_C824CO = 1756 - INTEGER, PARAMETER :: ind_C618OOH = 1757 - INTEGER, PARAMETER :: ind_C151OOH = 1758 - INTEGER, PARAMETER :: ind_C73OOH = 1759 - INTEGER, PARAMETER :: ind_C715CO2O = 1760 - INTEGER, PARAMETER :: ind_C721OOH = 1761 - INTEGER, PARAMETER :: ind_C5COCHOOOH = 1762 - INTEGER, PARAMETER :: ind_C6H5OOH = 1763 - INTEGER, PARAMETER :: ind_HOCH2CO2H = 1764 - INTEGER, PARAMETER :: ind_EPXM2DCO2H = 1765 - INTEGER, PARAMETER :: ind_C623NO3 = 1766 - INTEGER, PARAMETER :: ind_C64OH5OOH = 1767 - INTEGER, PARAMETER :: ind_BUTALAOOH = 1768 - INTEGER, PARAMETER :: ind_BCLKCO = 1769 - INTEGER, PARAMETER :: ind_NC91CO3H = 1770 - INTEGER, PARAMETER :: ind_C136NO3 = 1771 - INTEGER, PARAMETER :: ind_TM124BNO3 = 1772 - INTEGER, PARAMETER :: ind_TM124BO = 1773 - INTEGER, PARAMETER :: ind_HO5C6OOH = 1774 - INTEGER, PARAMETER :: ind_PBZQONE = 1775 - INTEGER, PARAMETER :: ind_MBOOOA = 1776 - INTEGER, PARAMETER :: ind_CY6DIONOH = 1777 - INTEGER, PARAMETER :: ind_C52OH1OOH = 1778 - INTEGER, PARAMETER :: ind_HO24C5OOH = 1779 - INTEGER, PARAMETER :: ind_HO3C96NO3 = 1780 - INTEGER, PARAMETER :: ind_HO3C96O = 1781 - INTEGER, PARAMETER :: ind_BUT2OLNO3 = 1782 - INTEGER, PARAMETER :: ind_NPETLQOOH = 1783 - INTEGER, PARAMETER :: ind_ALCOCH2OOH = 1784 - INTEGER, PARAMETER :: ind_HO3C4NO3 = 1785 - INTEGER, PARAMETER :: ind_C624NO3 = 1786 - INTEGER, PARAMETER :: ind_HIEB1O = 1787 - INTEGER, PARAMETER :: ind_M23C43NO3 = 1788 - INTEGER, PARAMETER :: ind_M23C43O = 1789 - INTEGER, PARAMETER :: ind_MIBK3CO = 1790 - INTEGER, PARAMETER :: ind_BCALBCO = 1791 - INTEGER, PARAMETER :: ind_C6H5CH2O = 1792 - INTEGER, PARAMETER :: ind_C521OOH = 1793 - INTEGER, PARAMETER :: ind_C6H5CH2NO3 = 1794 - INTEGER, PARAMETER :: ind_ACLOOA = 1795 - INTEGER, PARAMETER :: ind_C6H5C2H4O = 1796 - INTEGER, PARAMETER :: ind_DMPHGLYOX = 1797 - INTEGER, PARAMETER :: ind_HO1MC5NO3 = 1798 - INTEGER, PARAMETER :: ind_HO1MC5O = 1799 - INTEGER, PARAMETER :: ind_HO3C5NO3 = 1800 - INTEGER, PARAMETER :: ind_C1010OOH = 1801 - INTEGER, PARAMETER :: ind_C5NO3OAOOH = 1802 - INTEGER, PARAMETER :: ind_C916O = 1803 - INTEGER, PARAMETER :: ind_INANCO3H = 1804 - INTEGER, PARAMETER :: ind_PEBQONE = 1805 - INTEGER, PARAMETER :: ind_C6125CO = 1806 - INTEGER, PARAMETER :: ind_C4M22CONO3 = 1807 - INTEGER, PARAMETER :: ind_NMBOAO = 1808 - INTEGER, PARAMETER :: ind_HYETHO2H = 1809 - INTEGER, PARAMETER :: ind_C3MDIALO = 1810 - INTEGER, PARAMETER :: ind_C514NO3 = 1811 - INTEGER, PARAMETER :: ind_C514O = 1812 - INTEGER, PARAMETER :: ind_C118NO3 = 1813 - INTEGER, PARAMETER :: ind_C118O = 1814 - INTEGER, PARAMETER :: ind_MBOAO = 1815 - INTEGER, PARAMETER :: ind_HPC52CO3H = 1816 - INTEGER, PARAMETER :: ind_NC4H10 = 1817 - INTEGER, PARAMETER :: ind_C829O = 1818 - INTEGER, PARAMETER :: ind_MXYLNO3 = 1819 - INTEGER, PARAMETER :: ind_MXYLO = 1820 - INTEGER, PARAMETER :: ind_PXYLO = 1821 - INTEGER, PARAMETER :: ind_DE35TO = 1822 - INTEGER, PARAMETER :: ind_C512NO3 = 1823 - INTEGER, PARAMETER :: ind_DECNO3 = 1824 - INTEGER, PARAMETER :: ind_BIACETO = 1825 - INTEGER, PARAMETER :: ind_C78CO = 1826 - INTEGER, PARAMETER :: ind_C6OH5NO3 = 1827 - INTEGER, PARAMETER :: ind_BCLKCCO = 1828 - INTEGER, PARAMETER :: ind_H3M3C5NO3 = 1829 - INTEGER, PARAMETER :: ind_NPPRBQOOH = 1830 - INTEGER, PARAMETER :: ind_M3HEXANO3 = 1831 - INTEGER, PARAMETER :: ind_CO245C7 = 1832 - INTEGER, PARAMETER :: ind_CO24C53O = 1833 - INTEGER, PARAMETER :: ind_BCALACO = 1834 - INTEGER, PARAMETER :: ind_LIMALNO3 = 1835 - INTEGER, PARAMETER :: ind_C726CO5OOH = 1836 - INTEGER, PARAMETER :: ind_C5DICAROOH = 1837 - INTEGER, PARAMETER :: ind_H1MC5O = 1838 - INTEGER, PARAMETER :: ind_C84OOH = 1839 - INTEGER, PARAMETER :: ind_PHCOMEOOH = 1840 - INTEGER, PARAMETER :: ind_HEX2ONANO3 = 1841 - INTEGER, PARAMETER :: ind_H2M3C4OOH = 1842 - INTEGER, PARAMETER :: ind_C146CO = 1843 - INTEGER, PARAMETER :: ind_NAPINAOOH = 1844 - INTEGER, PARAMETER :: ind_DMMALANHY = 1845 - INTEGER, PARAMETER :: ind_C45NO3 = 1846 - INTEGER, PARAMETER :: ind_C45O = 1847 - INTEGER, PARAMETER :: ind_HPC52O = 1848 - INTEGER, PARAMETER :: ind_ETHO2HNO3 = 1849 - INTEGER, PARAMETER :: ind_NPXYFUOOH = 1850 - INTEGER, PARAMETER :: ind_HC3CO2H = 1851 - INTEGER, PARAMETER :: ind_C98O = 1852 - INTEGER, PARAMETER :: ind_COCCOHNO3 = 1853 - INTEGER, PARAMETER :: ind_MCOCOMOOOH = 1854 - INTEGER, PARAMETER :: ind_M2PEBOOH = 1855 - INTEGER, PARAMETER :: ind_HO2C4NO3 = 1856 - INTEGER, PARAMETER :: ind_C7M6CO2OH = 1857 - INTEGER, PARAMETER :: ind_LIMALBCO = 1858 - INTEGER, PARAMETER :: ind_PR1O2HNO3 = 1859 - INTEGER, PARAMETER :: ind_TM123BO = 1860 - INTEGER, PARAMETER :: ind_PBFUOOH = 1861 - INTEGER, PARAMETER :: ind_NBCKOOH = 1862 - INTEGER, PARAMETER :: ind_BCLKBOOH = 1863 - INTEGER, PARAMETER :: ind_ETOMENO3 = 1864 - INTEGER, PARAMETER :: ind_ETOMEO = 1865 - INTEGER, PARAMETER :: ind_MACROHO = 1866 - INTEGER, PARAMETER :: ind_ETOC2O = 1867 - INTEGER, PARAMETER :: ind_C129OOH = 1868 - INTEGER, PARAMETER :: ind_EOX2OLAOOH = 1869 - INTEGER, PARAMETER :: ind_EOX2COMEOH = 1870 - INTEGER, PARAMETER :: ind_C630OOH = 1871 - INTEGER, PARAMETER :: ind_COCCOHCO = 1872 - INTEGER, PARAMETER :: ind_C826CO3OOH = 1873 - INTEGER, PARAMETER :: ind_INAHCO3H = 1874 - INTEGER, PARAMETER :: ind_C134OH = 1875 - INTEGER, PARAMETER :: ind_HEX2ONBOOH = 1876 - INTEGER, PARAMETER :: ind_PE1ENEAO = 1877 - INTEGER, PARAMETER :: ind_PHCOME = 1878 - INTEGER, PARAMETER :: ind_C8CO2DCO3H = 1879 - INTEGER, PARAMETER :: ind_C4CHOBOOH = 1880 - INTEGER, PARAMETER :: ind_TM123BNO3 = 1881 - INTEGER, PARAMETER :: ind_MBOBO = 1882 - INTEGER, PARAMETER :: ind_C732NO3 = 1883 - INTEGER, PARAMETER :: ind_HO13C4OOH = 1884 - INTEGER, PARAMETER :: ind_IPEAOOH = 1885 - INTEGER, PARAMETER :: ind_NBUTOLAOOH = 1886 - INTEGER, PARAMETER :: ind_C628OOH = 1887 - INTEGER, PARAMETER :: ind_C413COOOH = 1888 - INTEGER, PARAMETER :: ind_CO1C6NO3 = 1889 - INTEGER, PARAMETER :: ind_C734OOH = 1890 - INTEGER, PARAMETER :: ind_C535O = 1891 - INTEGER, PARAMETER :: ind_HIEB2O = 1892 - INTEGER, PARAMETER :: ind_C6COALCO3H = 1893 - INTEGER, PARAMETER :: ind_MBOANO3 = 1894 - INTEGER, PARAMETER :: ind_MEKANO3 = 1895 - INTEGER, PARAMETER :: ind_METLBIPNO3 = 1896 - INTEGER, PARAMETER :: ind_MIBKOHBOOH = 1897 - INTEGER, PARAMETER :: ind_EBFUOOH = 1898 - INTEGER, PARAMETER :: ind_HYPROPO2H = 1899 - INTEGER, PARAMETER :: ind_C148OOH = 1900 - INTEGER, PARAMETER :: ind_CHOC2H4OOH = 1901 - INTEGER, PARAMETER :: ind_HO1C4NO3 = 1902 - INTEGER, PARAMETER :: ind_TMBO = 1903 - INTEGER, PARAMETER :: ind_HEX2ONBNO3 = 1904 - INTEGER, PARAMETER :: ind_LIMCNO3 = 1905 - INTEGER, PARAMETER :: ind_HM2C43O = 1906 - INTEGER, PARAMETER :: ind_HM22C3OOH = 1907 - INTEGER, PARAMETER :: ind_CO25C73OOH = 1908 - INTEGER, PARAMETER :: ind_CH2CHCH2NO3 = 1909 - INTEGER, PARAMETER :: ind_CH2CHCH2O = 1910 - INTEGER, PARAMETER :: ind_LIMBOOH = 1911 - INTEGER, PARAMETER :: ind_C730NO3 = 1912 - INTEGER, PARAMETER :: ind_C148CO = 1913 - INTEGER, PARAMETER :: ind_NBUTOLBOOH = 1914 - INTEGER, PARAMETER :: ind_LIMBNO3 = 1915 - INTEGER, PARAMETER :: ind_CO3C4NO3OH = 1916 - INTEGER, PARAMETER :: ind_HNMVKOOH = 1917 - INTEGER, PARAMETER :: ind_BCALNO3 = 1918 - INTEGER, PARAMETER :: ind_HEPTNO3 = 1919 - INTEGER, PARAMETER :: ind_C46CO3H = 1920 - INTEGER, PARAMETER :: ind_NC4H9NO3 = 1921 - INTEGER, PARAMETER :: ind_CH3OCH2NO3 = 1922 - INTEGER, PARAMETER :: ind_CH3OCH2O = 1923 - INTEGER, PARAMETER :: ind_ME2BUOLO = 1924 - INTEGER, PARAMETER :: ind_C727CO = 1925 - INTEGER, PARAMETER :: ind_C625OOH = 1926 - INTEGER, PARAMETER :: ind_C6OH5O = 1927 - INTEGER, PARAMETER :: ind_ECO4 = 1928 - INTEGER, PARAMETER :: ind_CO13C3CO2H = 1929 - INTEGER, PARAMETER :: ind_C1215NO3 = 1930 - INTEGER, PARAMETER :: ind_C1215O = 1931 - INTEGER, PARAMETER :: ind_C716OOH = 1932 - INTEGER, PARAMETER :: ind_C915NO3 = 1933 - INTEGER, PARAMETER :: ind_H3C25C6OH = 1934 - INTEGER, PARAMETER :: ind_C6COCHOOOH = 1935 - INTEGER, PARAMETER :: ind_OXYQONE = 1936 - INTEGER, PARAMETER :: ind_C71OOH = 1937 - INTEGER, PARAMETER :: ind_HOCO4C5OOH = 1938 - INTEGER, PARAMETER :: ind_INAHPPAN = 1939 - INTEGER, PARAMETER :: ind_C63NO32OOH = 1940 - INTEGER, PARAMETER :: ind_C517NO3 = 1941 - INTEGER, PARAMETER :: ind_C517O = 1942 - INTEGER, PARAMETER :: ind_NBZQOOH = 1943 - INTEGER, PARAMETER :: ind_TBUTOLO = 1944 - INTEGER, PARAMETER :: ind_HO3C76O = 1945 - INTEGER, PARAMETER :: ind_SC4H9NO3 = 1946 - INTEGER, PARAMETER :: ind_C3NO3COOOH = 1947 - INTEGER, PARAMETER :: ind_M2BU2OLOOH = 1948 - INTEGER, PARAMETER :: ind_IC4CHOAOOH = 1949 - INTEGER, PARAMETER :: ind_BCLKAOOH = 1950 - INTEGER, PARAMETER :: ind_C7M15CO2O = 1951 - INTEGER, PARAMETER :: ind_EOX2OLBNO3 = 1952 - INTEGER, PARAMETER :: ind_ACECOCOCH3 = 1953 - INTEGER, PARAMETER :: ind_HEX3ONANO3 = 1954 - INTEGER, PARAMETER :: ind_C57AO = 1955 - INTEGER, PARAMETER :: ind_MOCOCH2OOH = 1956 - INTEGER, PARAMETER :: ind_PROL11MNO3 = 1957 - INTEGER, PARAMETER :: ind_C87OOH = 1958 - INTEGER, PARAMETER :: ind_ACROOA = 1959 - INTEGER, PARAMETER :: ind_C6DICARBO = 1960 - INTEGER, PARAMETER :: ind_C1312O = 1961 - INTEGER, PARAMETER :: ind_M3PECO = 1962 - INTEGER, PARAMETER :: ind_C72NO3 = 1963 - INTEGER, PARAMETER :: ind_EBZBPERNO3 = 1964 - INTEGER, PARAMETER :: ind_PEBNO3 = 1965 - INTEGER, PARAMETER :: ind_M2PEAOOH = 1966 - INTEGER, PARAMETER :: ind_C527O = 1967 - INTEGER, PARAMETER :: ind_MC7CO2OOH = 1968 - INTEGER, PARAMETER :: ind_NC3CO2H = 1969 - INTEGER, PARAMETER :: ind_INB1NBCO3H = 1970 - INTEGER, PARAMETER :: ind_BUTDAO = 1971 - INTEGER, PARAMETER :: ind_C1211NO3 = 1972 - INTEGER, PARAMETER :: ind_LMKBOOH = 1973 - INTEGER, PARAMETER :: ind_NC3H7NO3 = 1974 - INTEGER, PARAMETER :: ind_BPINCO = 1975 - INTEGER, PARAMETER :: ind_M2BU2OLNO3 = 1976 - INTEGER, PARAMETER :: ind_ME3BUOLNO3 = 1977 - INTEGER, PARAMETER :: ind_HO2C54NO3 = 1978 - INTEGER, PARAMETER :: ind_NMXYQOOH = 1979 - INTEGER, PARAMETER :: ind_EIPKBNO3 = 1980 - INTEGER, PARAMETER :: ind_INANCHO = 1981 - INTEGER, PARAMETER :: ind_C7CO2DCO3H = 1982 - INTEGER, PARAMETER :: ind_MIPKAOOH = 1983 - INTEGER, PARAMETER :: ind_C106O = 1984 - INTEGER, PARAMETER :: ind_C922OOH = 1985 - INTEGER, PARAMETER :: ind_C128O = 1986 - INTEGER, PARAMETER :: ind_HEXANO3 = 1987 - INTEGER, PARAMETER :: ind_MC6CO2OH = 1988 - INTEGER, PARAMETER :: ind_C813O = 1989 - INTEGER, PARAMETER :: ind_NLMKAOOH = 1990 - INTEGER, PARAMETER :: ind_INB1NBCHO = 1991 - INTEGER, PARAMETER :: ind_HM23C4OOH = 1992 - INTEGER, PARAMETER :: ind_BCSOZOOH = 1993 - INTEGER, PARAMETER :: ind_HO2M2C4OOH = 1994 - INTEGER, PARAMETER :: ind_LMKBNO3 = 1995 - INTEGER, PARAMETER :: ind_C626NO3 = 1996 - INTEGER, PARAMETER :: ind_PRNO3CO3H = 1997 - INTEGER, PARAMETER :: ind_CO1H63O = 1998 - INTEGER, PARAMETER :: ind_C6NO3COOOH = 1999 - INTEGER, PARAMETER :: ind_HO2CO4C5O = 2000 - INTEGER, PARAMETER :: ind_C64OH = 2001 - INTEGER, PARAMETER :: ind_C96OOH = 2002 - INTEGER, PARAMETER :: ind_INB1HPPAN = 2003 - INTEGER, PARAMETER :: ind_MACRO = 2004 - INTEGER, PARAMETER :: ind_C56O = 2005 - INTEGER, PARAMETER :: ind_ME3BUOLOOH = 2006 - INTEGER, PARAMETER :: ind_C728NO3 = 2007 - INTEGER, PARAMETER :: ind_C152O = 2008 - INTEGER, PARAMETER :: ind_C6DIALOOH = 2009 - INTEGER, PARAMETER :: ind_NMBOBOOH = 2010 - INTEGER, PARAMETER :: ind_C66NO35OH = 2011 - INTEGER, PARAMETER :: ind_HO3C4O = 2012 - INTEGER, PARAMETER :: ind_C2H5CHOOA = 2013 - INTEGER, PARAMETER :: ind_OXYLNO3 = 2014 - INTEGER, PARAMETER :: ind_OXYLO = 2015 - INTEGER, PARAMETER :: ind_C76OOH = 2016 - INTEGER, PARAMETER :: ind_C818OOH = 2017 - INTEGER, PARAMETER :: ind_C627OOH = 2018 - INTEGER, PARAMETER :: ind_M23C4OOH = 2019 - INTEGER, PARAMETER :: ind_CHEXNO3 = 2020 - INTEGER, PARAMETER :: ind_METLOBPROH = 2021 - INTEGER, PARAMETER :: ind_LMLKBOOH = 2022 - INTEGER, PARAMETER :: ind_APINBNO3 = 2023 - INTEGER, PARAMETER :: ind_C715O = 2024 - INTEGER, PARAMETER :: ind_C4CHOAOOH = 2025 - INTEGER, PARAMETER :: ind_C8DCO2CO3H = 2026 - INTEGER, PARAMETER :: ind_C92OOH = 2027 - INTEGER, PARAMETER :: ind_C6NO324CO = 2028 - INTEGER, PARAMETER :: ind_MIBKAOHAO = 2029 - INTEGER, PARAMETER :: ind_HO2C6O = 2030 - INTEGER, PARAMETER :: ind_HO3C126O = 2031 - INTEGER, PARAMETER :: ind_C718NO3 = 2032 - INTEGER, PARAMETER :: ind_C718O = 2033 - INTEGER, PARAMETER :: ind_C717NO3 = 2034 - INTEGER, PARAMETER :: ind_C717O = 2035 - INTEGER, PARAMETER :: ind_C3MNO3CO3H = 2036 - INTEGER, PARAMETER :: ind_TBUTOLNO3 = 2037 - INTEGER, PARAMETER :: ind_CH2OOA = 2038 - INTEGER, PARAMETER :: ind_C4DBM2CO3H = 2039 - INTEGER, PARAMETER :: ind_NISOPNO3 = 2040 - INTEGER, PARAMETER :: ind_NISOPO = 2041 - INTEGER, PARAMETER :: ind_C3H7CHOOA = 2042 - INTEGER, PARAMETER :: ind_H14CO23C4 = 2043 - INTEGER, PARAMETER :: ind_CH3OOH = 2044 - INTEGER, PARAMETER :: ind_M2BKANO3 = 2045 - INTEGER, PARAMETER :: ind_NPTLQOOH = 2046 - INTEGER, PARAMETER :: ind_MPHCOMEOOH = 2047 - INTEGER, PARAMETER :: ind_TM124QONE = 2048 - INTEGER, PARAMETER :: ind_H2M4C65NO3 = 2049 - INTEGER, PARAMETER :: ind_H2M4C65O = 2050 - INTEGER, PARAMETER :: ind_EPXM2DCO3H = 2051 - INTEGER, PARAMETER :: ind_C94OOH = 2052 - INTEGER, PARAMETER :: ind_NMXYFUOOH = 2053 - INTEGER, PARAMETER :: ind_PTLQONE = 2054 - INTEGER, PARAMETER :: ind_C5M2OHCO3H = 2055 - INTEGER, PARAMETER :: ind_C810O = 2056 - INTEGER, PARAMETER :: ind_PEBOOH = 2057 - INTEGER, PARAMETER :: ind_APINBOOH = 2058 - INTEGER, PARAMETER :: ind_C104OOH = 2059 - INTEGER, PARAMETER :: ind_HO3C116O = 2060 - INTEGER, PARAMETER :: ind_C923NO3 = 2061 - INTEGER, PARAMETER :: ind_C819OOH = 2062 - INTEGER, PARAMETER :: ind_C823NO3 = 2063 - INTEGER, PARAMETER :: ind_C5MEJCO3H = 2064 - INTEGER, PARAMETER :: ind_NLIMOOH = 2065 - INTEGER, PARAMETER :: ind_PE2ENEBO = 2066 - INTEGER, PARAMETER :: ind_C65OH4NO3 = 2067 - INTEGER, PARAMETER :: ind_C42MNO3OOH = 2068 - INTEGER, PARAMETER :: ind_C4MNO31OOH = 2069 - INTEGER, PARAMETER :: ind_MEKAOOH = 2070 - INTEGER, PARAMETER :: ind_C924OOH = 2071 - INTEGER, PARAMETER :: ind_C622NO3 = 2072 - INTEGER, PARAMETER :: ind_C622O = 2073 - INTEGER, PARAMETER :: ind_HO13C5NO3 = 2074 - INTEGER, PARAMETER :: ind_DIETETNO3 = 2075 - INTEGER, PARAMETER :: ind_DIETETO = 2076 - INTEGER, PARAMETER :: ind_BUTALNO3 = 2077 - INTEGER, PARAMETER :: ind_DE35TNO3 = 2078 - INTEGER, PARAMETER :: ind_C1311NO3 = 2079 - INTEGER, PARAMETER :: ind_COC4NO3OOH = 2080 - INTEGER, PARAMETER :: ind_GAOOB = 2081 - INTEGER, PARAMETER :: ind_C4DBMECO3H = 2082 - INTEGER, PARAMETER :: ind_DIEKBNO3 = 2083 - INTEGER, PARAMETER :: ind_C713OOH = 2084 - INTEGER, PARAMETER :: ind_C534O = 2085 - INTEGER, PARAMETER :: ind_HEXBNO3 = 2086 - INTEGER, PARAMETER :: ind_ETOLNO3 = 2087 - INTEGER, PARAMETER :: ind_ETOLO = 2088 - INTEGER, PARAMETER :: ind_BZFUOOH = 2089 - INTEGER, PARAMETER :: ind_PROL11MO = 2090 - INTEGER, PARAMETER :: ind_NPXYQOOH = 2091 - INTEGER, PARAMETER :: ind_MIPKBNO3 = 2092 - INTEGER, PARAMETER :: ind_NOXYQOOH = 2093 - INTEGER, PARAMETER :: ind_M2HEXANO3 = 2094 - INTEGER, PARAMETER :: ind_C711OOH = 2095 - INTEGER, PARAMETER :: ind_ETHOHNO3 = 2096 - INTEGER, PARAMETER :: ind_M33C4NO3 = 2097 - INTEGER, PARAMETER :: ind_BCKAOOH = 2098 - INTEGER, PARAMETER :: ind_NBUTDBNO3 = 2099 - INTEGER, PARAMETER :: ind_NBUTDBO = 2100 - INTEGER, PARAMETER :: ind_INB1OH = 2101 - INTEGER, PARAMETER :: ind_PXYL1OOH = 2102 - INTEGER, PARAMETER :: ind_APINAOOH = 2103 - INTEGER, PARAMETER :: ind_PGLOOB = 2104 - INTEGER, PARAMETER :: ind_CO2N3CO3H = 2105 - INTEGER, PARAMETER :: ind_C4CHOBNO3 = 2106 - INTEGER, PARAMETER :: ind_MECOACEOOH = 2107 - INTEGER, PARAMETER :: ind_C141NO3 = 2108 - INTEGER, PARAMETER :: ind_C57OOH = 2109 - INTEGER, PARAMETER :: ind_C4OH2CO3H = 2110 - INTEGER, PARAMETER :: ind_C722OOH = 2111 - INTEGER, PARAMETER :: ind_C42O = 2112 - INTEGER, PARAMETER :: ind_DDECNO3 = 2113 - INTEGER, PARAMETER :: ind_CONO3C6OOH = 2114 - INTEGER, PARAMETER :: ind_C55OOH = 2115 - INTEGER, PARAMETER :: ind_HO13C3CO3H = 2116 - INTEGER, PARAMETER :: ind_C815CO2O = 2117 - INTEGER, PARAMETER :: ind_MIBKAOH = 2118 - INTEGER, PARAMETER :: ind_BCLKACO = 2119 - INTEGER, PARAMETER :: ind_C62CO3H = 2120 - INTEGER, PARAMETER :: ind_C114OOH = 2121 - INTEGER, PARAMETER :: ind_HO3C106O = 2122 - INTEGER, PARAMETER :: ind_C61NO3 = 2123 - INTEGER, PARAMETER :: ind_C93NO3 = 2124 - INTEGER, PARAMETER :: ind_C66NO35OOH = 2125 - INTEGER, PARAMETER :: ind_IC3H7OOH = 2126 - INTEGER, PARAMETER :: ind_HO1C4OOH = 2127 - INTEGER, PARAMETER :: ind_NBUTOLBNO3 = 2128 - INTEGER, PARAMETER :: ind_C6NO3CO5OH = 2129 - INTEGER, PARAMETER :: ind_CISOPCO = 2130 - INTEGER, PARAMETER :: ind_CHOMOHCO3H = 2131 - INTEGER, PARAMETER :: ind_BCALCCO = 2132 - INTEGER, PARAMETER :: ind_C65OH4OOH = 2133 - INTEGER, PARAMETER :: ind_EMPHGLYOX = 2134 - INTEGER, PARAMETER :: ind_M3BU2OLOOH = 2135 - INTEGER, PARAMETER :: ind_C1012NO3 = 2136 - INTEGER, PARAMETER :: ind_C9M2CO6OOH = 2137 - INTEGER, PARAMETER :: ind_HC4ACO2H = 2138 - INTEGER, PARAMETER :: ind_C522CO3H = 2139 - INTEGER, PARAMETER :: ind_PINONIC = 2140 - INTEGER, PARAMETER :: ind_LMLKBCO = 2141 - INTEGER, PARAMETER :: ind_NC61CO3H = 2142 - INTEGER, PARAMETER :: ind_C85OOH = 2143 - INTEGER, PARAMETER :: ind_C42CO3H = 2144 - INTEGER, PARAMETER :: ind_HOC4CHOO = 2145 - INTEGER, PARAMETER :: ind_C918CO3H = 2146 - INTEGER, PARAMETER :: ind_INCOOH = 2147 - INTEGER, PARAMETER :: ind_PGLOOA = 2148 - INTEGER, PARAMETER :: ind_HEXCNO3 = 2149 - INTEGER, PARAMETER :: ind_NO3CH2CO3H = 2150 - INTEGER, PARAMETER :: ind_C86OOH = 2151 - INTEGER, PARAMETER :: ind_NOXYFUOOH = 2152 - INTEGER, PARAMETER :: ind_COO2C4OOH = 2153 - INTEGER, PARAMETER :: ind_C129CO = 2154 - INTEGER, PARAMETER :: ind_C729NO3 = 2155 - INTEGER, PARAMETER :: ind_CHOOCH2OOH = 2156 - INTEGER, PARAMETER :: ind_C137NO3 = 2157 - INTEGER, PARAMETER :: ind_PE2ENEAO = 2158 - INTEGER, PARAMETER :: ind_CO2H3MCO3H = 2159 - INTEGER, PARAMETER :: ind_BCBOOH = 2160 - INTEGER, PARAMETER :: ind_OCTNO3 = 2161 - INTEGER, PARAMETER :: ind_INAO = 2162 - INTEGER, PARAMETER :: ind_PEN2ONE1O = 2163 - INTEGER, PARAMETER :: ind_C1014NO3 = 2164 - INTEGER, PARAMETER :: ind_C131NO3 = 2165 - INTEGER, PARAMETER :: ind_C6CONO3OOH = 2166 - INTEGER, PARAMETER :: ind_PXYQONE = 2167 - INTEGER, PARAMETER :: ind_M2PEANO3 = 2168 - INTEGER, PARAMETER :: ind_M22C4NO3 = 2169 - INTEGER, PARAMETER :: ind_BCALCO = 2170 - INTEGER, PARAMETER :: ind_ECO3CO3H = 2171 - INTEGER, PARAMETER :: ind_HO1C5NO3 = 2172 - INTEGER, PARAMETER :: ind_HO1C5O = 2173 - INTEGER, PARAMETER :: ind_NAPINBOOH = 2174 - INTEGER, PARAMETER :: ind_TLCOBIPEOH = 2175 - INTEGER, PARAMETER :: ind_C4NO3CO3H = 2176 - INTEGER, PARAMETER :: ind_DM123OOH = 2177 - INTEGER, PARAMETER :: ind_BCAOOH = 2178 - INTEGER, PARAMETER :: ind_C52NO31OOH = 2179 - INTEGER, PARAMETER :: ind_NBCOOH = 2180 - INTEGER, PARAMETER :: ind_APINANO3 = 2181 - INTEGER, PARAMETER :: ind_HO2M2C5NO3 = 2182 - INTEGER, PARAMETER :: ind_INB1NACO3H = 2183 - INTEGER, PARAMETER :: ind_BCBNO3 = 2184 - INTEGER, PARAMETER :: ind_C82NO3 = 2185 - INTEGER, PARAMETER :: ind_CY6DIONO = 2186 - INTEGER, PARAMETER :: ind_ACEC2H4OOH = 2187 - INTEGER, PARAMETER :: ind_C2H5OOH = 2188 - INTEGER, PARAMETER :: ind_HO2C6NO3 = 2189 - INTEGER, PARAMETER :: ind_CO2HOC61O = 2190 - INTEGER, PARAMETER :: ind_NC4CO2H = 2191 - INTEGER, PARAMETER :: ind_M33C4OOH = 2192 - INTEGER, PARAMETER :: ind_IPEBNO3 = 2193 - INTEGER, PARAMETER :: ind_M2PECNO3 = 2194 - INTEGER, PARAMETER :: ind_C117NO3 = 2195 - INTEGER, PARAMETER :: ind_PECNO3 = 2196 - INTEGER, PARAMETER :: ind_H2M3CO4CHO = 2197 - INTEGER, PARAMETER :: ind_HM2C43NO3 = 2198 - INTEGER, PARAMETER :: ind_M22C43NO3 = 2199 - INTEGER, PARAMETER :: ind_C5DIALO = 2200 - INTEGER, PARAMETER :: ind_C74O = 2201 - INTEGER, PARAMETER :: ind_H3M3C6NO3 = 2202 - INTEGER, PARAMETER :: ind_C79O = 2203 - INTEGER, PARAMETER :: ind_PHCOETOOH = 2204 - INTEGER, PARAMETER :: ind_C122OOH = 2205 - INTEGER, PARAMETER :: ind_HO3C116NO3 = 2206 - INTEGER, PARAMETER :: ind_C917O = 2207 - INTEGER, PARAMETER :: ind_PROL1MCO3H = 2208 - INTEGER, PARAMETER :: ind_C733CO = 2209 - INTEGER, PARAMETER :: ind_CHOC4DOLO = 2210 - INTEGER, PARAMETER :: ind_IPRHOCO3H = 2211 - INTEGER, PARAMETER :: ind_IPRCHOOA = 2212 - INTEGER, PARAMETER :: ind_HEX3ONDNO3 = 2213 - INTEGER, PARAMETER :: ind_C930OOH = 2214 - INTEGER, PARAMETER :: ind_CYHXONANO3 = 2215 - INTEGER, PARAMETER :: ind_NONNO3 = 2216 - INTEGER, PARAMETER :: ind_CO235C6OOH = 2217 - INTEGER, PARAMETER :: ind_HM23C4NO3 = 2218 - INTEGER, PARAMETER :: ind_IPROPOLPER = 2219 - INTEGER, PARAMETER :: ind_H2M3C4NO3 = 2220 - INTEGER, PARAMETER :: ind_C124OOH = 2221 - INTEGER, PARAMETER :: ind_NBUTDAOH = 2222 - INTEGER, PARAMETER :: ind_IPEBOOH = 2223 - INTEGER, PARAMETER :: ind_C731NO3 = 2224 - INTEGER, PARAMETER :: ind_DM124OOH = 2225 - INTEGER, PARAMETER :: ind_C1213O = 2226 - INTEGER, PARAMETER :: ind_PEAOOH = 2227 - INTEGER, PARAMETER :: ind_C61CO3H = 2228 - INTEGER, PARAMETER :: ind_IPROPOLO = 2229 - INTEGER, PARAMETER :: ind_C524CO = 2230 - INTEGER, PARAMETER :: ind_LIMALACO = 2231 - INTEGER, PARAMETER :: ind_TMBNO3 = 2232 - INTEGER, PARAMETER :: ind_HO2M2C5OOH = 2233 - INTEGER, PARAMETER :: ind_C615CO2O = 2234 - INTEGER, PARAMETER :: ind_IBUTOLCO2H = 2235 - INTEGER, PARAMETER :: ind_C58OOH = 2236 - INTEGER, PARAMETER :: ind_IC4H9NO3 = 2237 - INTEGER, PARAMETER :: ind_C3EDIALO = 2238 - INTEGER, PARAMETER :: ind_C142NO3 = 2239 - INTEGER, PARAMETER :: ind_MACRNBPAN = 2240 - INTEGER, PARAMETER :: ind_TM123BPNO3 = 2241 - INTEGER, PARAMETER :: ind_BCCNO3 = 2242 - INTEGER, PARAMETER :: ind_INB1GLYOX = 2243 - INTEGER, PARAMETER :: ind_EIPKAOOH = 2244 - INTEGER, PARAMETER :: ind_C103NO3 = 2245 - INTEGER, PARAMETER :: ind_M3PEBNO3 = 2246 - INTEGER, PARAMETER :: ind_HO2C4OOH = 2247 - INTEGER, PARAMETER :: ind_C5COHOCO3H = 2248 - INTEGER, PARAMETER :: ind_C526O = 2249 - INTEGER, PARAMETER :: ind_C1210NO3 = 2250 - INTEGER, PARAMETER :: ind_HO24C4CO3H = 2251 - INTEGER, PARAMETER :: ind_ISOPBOOH = 2252 - INTEGER, PARAMETER :: ind_C610NO3 = 2253 - INTEGER, PARAMETER :: ind_BCSOZNO3 = 2254 - INTEGER, PARAMETER :: ind_HM22COCHO = 2255 - INTEGER, PARAMETER :: ind_C67NO3 = 2256 - INTEGER, PARAMETER :: ind_C1212NO3 = 2257 - INTEGER, PARAMETER :: ind_HMGLOOA = 2258 - INTEGER, PARAMETER :: ind_HM33C4OH = 2259 - INTEGER, PARAMETER :: ind_EOCOCH2OOH = 2260 - INTEGER, PARAMETER :: ind_IBUTOLCNO3 = 2261 - INTEGER, PARAMETER :: ind_NTMB1FUOOH = 2262 - INTEGER, PARAMETER :: ind_C6EO2HCO3H = 2263 - INTEGER, PARAMETER :: ind_M22C4OOH = 2264 - INTEGER, PARAMETER :: ind_LMLKACO = 2265 - INTEGER, PARAMETER :: ind_BCKBOOH = 2266 - INTEGER, PARAMETER :: ind_NMEBFUOOH = 2267 - INTEGER, PARAMETER :: ind_HO3C106NO3 = 2268 - INTEGER, PARAMETER :: ind_HEX2ONAOOH = 2269 - INTEGER, PARAMETER :: ind_C63NO3 = 2270 - INTEGER, PARAMETER :: ind_C123NO3 = 2271 - INTEGER, PARAMETER :: ind_ALLYLOH = 2272 - INTEGER, PARAMETER :: ind_C924CO = 2273 - INTEGER, PARAMETER :: ind_PPRBQONE = 2274 - INTEGER, PARAMETER :: ind_C831NO3 = 2275 - INTEGER, PARAMETER :: ind_MBOBNO3 = 2276 - INTEGER, PARAMETER :: ind_M3PEANO3 = 2277 - INTEGER, PARAMETER :: ind_PE1ENEBNO3 = 2278 - INTEGER, PARAMETER :: ind_C613O = 2279 - INTEGER, PARAMETER :: ind_C152NO3 = 2280 - INTEGER, PARAMETER :: ind_METLQONE = 2281 - INTEGER, PARAMETER :: ind_C77NO3 = 2282 - INTEGER, PARAMETER :: ind_OXYL1OOH = 2283 - INTEGER, PARAMETER :: ind_HO3C86O = 2284 - INTEGER, PARAMETER :: ind_PEANO3 = 2285 - INTEGER, PARAMETER :: ind_CH3CHOOA = 2286 - INTEGER, PARAMETER :: ind_C7M6CO2O = 2287 - INTEGER, PARAMETER :: ind_BCKBNO3 = 2288 - INTEGER, PARAMETER :: ind_C525OOH = 2289 - INTEGER, PARAMETER :: ind_C65NO3CO3H = 2290 - INTEGER, PARAMETER :: ind_H2M2C65NO3 = 2291 - INTEGER, PARAMETER :: ind_NC3H7OOH = 2292 - INTEGER, PARAMETER :: ind_C927O = 2293 - INTEGER, PARAMETER :: ind_NIPRBQOOH = 2294 - INTEGER, PARAMETER :: ind_PHCOCOME = 2295 - INTEGER, PARAMETER :: ind_NOPINANO3 = 2296 - INTEGER, PARAMETER :: ind_PE2ENEBNO3 = 2297 - INTEGER, PARAMETER :: ind_C102OOH = 2298 - INTEGER, PARAMETER :: ind_HO3C86NO3 = 2299 - INTEGER, PARAMETER :: ind_C929OOH = 2300 - INTEGER, PARAMETER :: ind_C3M3OHCO3H = 2301 - INTEGER, PARAMETER :: ind_C6H5C2NO3 = 2302 - INTEGER, PARAMETER :: ind_C1310NO3 = 2303 - INTEGER, PARAMETER :: ind_C1310O = 2304 - INTEGER, PARAMETER :: ind_LMLKAOOH = 2305 - INTEGER, PARAMETER :: ind_HO1C3NO3 = 2306 - INTEGER, PARAMETER :: ind_C7ODLBCO3H = 2307 - INTEGER, PARAMETER :: ind_CISOPAO = 2308 - INTEGER, PARAMETER :: ind_PXYLNO3 = 2309 - INTEGER, PARAMETER :: ind_C7CDCCO2H = 2310 - INTEGER, PARAMETER :: ind_C133NO3 = 2311 - INTEGER, PARAMETER :: ind_C825OOH = 2312 - INTEGER, PARAMETER :: ind_C96NO3 = 2313 - INTEGER, PARAMETER :: ind_C43NO3CO3H = 2314 - INTEGER, PARAMETER :: ind_BCLKBCO = 2315 - INTEGER, PARAMETER :: ind_C81OOH = 2316 - INTEGER, PARAMETER :: ind_MXYBIPENO3 = 2317 - INTEGER, PARAMETER :: ind_NC4H9OOH = 2318 - INTEGER, PARAMETER :: ind_H13C43CO3H = 2319 - INTEGER, PARAMETER :: ind_H13CO2CO3H = 2320 - INTEGER, PARAMETER :: ind_PHC3NO3 = 2321 - INTEGER, PARAMETER :: ind_PHC3O = 2322 - INTEGER, PARAMETER :: ind_C109O = 2323 - INTEGER, PARAMETER :: ind_C720O = 2324 - INTEGER, PARAMETER :: ind_C1313NO3 = 2325 - INTEGER, PARAMETER :: ind_CH3COCH2O = 2326 - INTEGER, PARAMETER :: ind_C139NO3 = 2327 - INTEGER, PARAMETER :: ind_C811NO3 = 2328 - INTEGER, PARAMETER :: ind_INDHCO3H = 2329 - INTEGER, PARAMETER :: ind_C113NO3 = 2330 - INTEGER, PARAMETER :: ind_H3M3C5OOH = 2331 - INTEGER, PARAMETER :: ind_C614NO3 = 2332 - INTEGER, PARAMETER :: ind_DM35EBNO3 = 2333 - INTEGER, PARAMETER :: ind_DM35EBO = 2334 - INTEGER, PARAMETER :: ind_INCGLYOX = 2335 - INTEGER, PARAMETER :: ind_C3EODBCO2H = 2336 - INTEGER, PARAMETER :: ind_IPEANO3 = 2337 - INTEGER, PARAMETER :: ind_IBUALANO3 = 2338 - INTEGER, PARAMETER :: ind_IC4H9OOH = 2339 - INTEGER, PARAMETER :: ind_KLIMONONIC = 2340 - INTEGER, PARAMETER :: ind_BZBIPERNO3 = 2341 - INTEGER, PARAMETER :: ind_NTM124QOOH = 2342 - INTEGER, PARAMETER :: ind_BPINBNO3 = 2343 - INTEGER, PARAMETER :: ind_C6CONO34OH = 2344 - INTEGER, PARAMETER :: ind_HPNC524CO = 2345 - INTEGER, PARAMETER :: ind_C3H5CO2H = 2346 - INTEGER, PARAMETER :: ind_C151NO3 = 2347 - INTEGER, PARAMETER :: ind_C5124COOOH = 2348 - INTEGER, PARAMETER :: ind_C7MOCOCO3H = 2349 - INTEGER, PARAMETER :: ind_M2PEBNO3 = 2350 - INTEGER, PARAMETER :: ind_NPEBQOOH = 2351 - INTEGER, PARAMETER :: ind_C822NO3 = 2352 - INTEGER, PARAMETER :: ind_EMPHOOH = 2353 - INTEGER, PARAMETER :: ind_C524NO3 = 2354 - INTEGER, PARAMETER :: ind_M2PECOOH = 2355 - INTEGER, PARAMETER :: ind_C7CO2M5O = 2356 - INTEGER, PARAMETER :: ind_C7CO2M5OH = 2357 - INTEGER, PARAMETER :: ind_CO24C63OOH = 2358 - INTEGER, PARAMETER :: ind_BCKOOA = 2359 - INTEGER, PARAMETER :: ind_C6135COOOH = 2360 - INTEGER, PARAMETER :: ind_H2M5C65O = 2361 - INTEGER, PARAMETER :: ind_LIMALAOOH = 2362 - INTEGER, PARAMETER :: ind_C4MNO32OOH = 2363 - INTEGER, PARAMETER :: ind_IPRHOCO2H = 2364 - INTEGER, PARAMETER :: ind_MPRKNO3 = 2365 - INTEGER, PARAMETER :: ind_C4NO3M2OOH = 2366 - INTEGER, PARAMETER :: ind_NBUTOLANO3 = 2367 - INTEGER, PARAMETER :: ind_NOETLQOOH = 2368 - INTEGER, PARAMETER :: ind_C4NO3M1OOH = 2369 - INTEGER, PARAMETER :: ind_C64OH5NO3 = 2370 - INTEGER, PARAMETER :: ind_HO5C5CO3H = 2371 - INTEGER, PARAMETER :: ind_TM135BPNO3 = 2372 - INTEGER, PARAMETER :: ind_C152OOH = 2373 - INTEGER, PARAMETER :: ind_HM33C3O = 2374 - INTEGER, PARAMETER :: ind_ACEC2H4NO3 = 2375 - INTEGER, PARAMETER :: ind_C3DIALO = 2376 - INTEGER, PARAMETER :: ind_C817CO = 2377 - INTEGER, PARAMETER :: ind_C826NO3 = 2378 - INTEGER, PARAMETER :: ind_DMPHOOH = 2379 - INTEGER, PARAMETER :: ind_H3C25C6OOH = 2380 - INTEGER, PARAMETER :: ind_C6COALCO2H = 2381 - INTEGER, PARAMETER :: ind_C47CHO = 2382 - INTEGER, PARAMETER :: ind_TLBIPERNO3 = 2383 - INTEGER, PARAMETER :: ind_HO3C3CO3H = 2384 - INTEGER, PARAMETER :: ind_M2PE = 2385 - INTEGER, PARAMETER :: ind_C735OOH = 2386 - INTEGER, PARAMETER :: ind_HO3C126NO3 = 2387 - INTEGER, PARAMETER :: ind_C5EDBCO3H = 2388 - INTEGER, PARAMETER :: ind_NMETLQOOH = 2389 - INTEGER, PARAMETER :: ind_PETLQONE = 2390 - INTEGER, PARAMETER :: ind_HO3C5OOH = 2391 - INTEGER, PARAMETER :: ind_C58AOOH = 2392 - INTEGER, PARAMETER :: ind_MEK2OOA = 2393 - INTEGER, PARAMETER :: ind_C51NO32OOH = 2394 - INTEGER, PARAMETER :: ind_HOIPRGLYOX = 2395 - INTEGER, PARAMETER :: ind_C4OHCO3H = 2396 - INTEGER, PARAMETER :: ind_C41CO2H = 2397 - INTEGER, PARAMETER :: ind_IPRBQONE = 2398 - INTEGER, PARAMETER :: ind_C3ME3CHOO = 2399 - INTEGER, PARAMETER :: ind_DIEKBOOH = 2400 - INTEGER, PARAMETER :: ind_HEX3ONDOOH = 2401 - INTEGER, PARAMETER :: ind_HC4CO3H = 2402 - INTEGER, PARAMETER :: ind_M23C4NO3 = 2403 - INTEGER, PARAMETER :: ind_C511OOH = 2404 - INTEGER, PARAMETER :: ind_EOX2OLANO3 = 2405 - INTEGER, PARAMETER :: ind_PBZBPERNO3 = 2406 - INTEGER, PARAMETER :: ind_LMKAOOH = 2407 - INTEGER, PARAMETER :: ind_C127NO3 = 2408 - INTEGER, PARAMETER :: ind_M22C43OOH = 2409 - INTEGER, PARAMETER :: ind_HCOCOHCO3H = 2410 - INTEGER, PARAMETER :: ind_C112OOH = 2411 - INTEGER, PARAMETER :: ind_HOCH2CO3H = 2412 - INTEGER, PARAMETER :: ind_C52NO33OOH = 2413 - INTEGER, PARAMETER :: ind_C5CO2DCO3H = 2414 - INTEGER, PARAMETER :: ind_APINCO = 2415 - INTEGER, PARAMETER :: ind_HEXAOOH = 2416 - INTEGER, PARAMETER :: ind_NTMB2FUOOH = 2417 - INTEGER, PARAMETER :: ind_IPBZBPRNO3 = 2418 - INTEGER, PARAMETER :: ind_HM22C3NO3 = 2419 - INTEGER, PARAMETER :: ind_OETLQONE = 2420 - INTEGER, PARAMETER :: ind_PROPGLY = 2421 - INTEGER, PARAMETER :: ind_HEXBOOH = 2422 - INTEGER, PARAMETER :: ind_NC102OOH = 2423 - INTEGER, PARAMETER :: ind_HOCO3C5OOH = 2424 - INTEGER, PARAMETER :: ind_CO2C3OOA = 2425 - INTEGER, PARAMETER :: ind_C611OOH = 2426 - INTEGER, PARAMETER :: ind_IC3H7NO3 = 2427 - INTEGER, PARAMETER :: ind_CO25C6OOH = 2428 - INTEGER, PARAMETER :: ind_INCNCO3H = 2429 - INTEGER, PARAMETER :: ind_ACCOCOMEO = 2430 - INTEGER, PARAMETER :: ind_HC3CCO3H = 2431 - INTEGER, PARAMETER :: ind_UDECNO3 = 2432 - INTEGER, PARAMETER :: ind_PROLNO3 = 2433 - INTEGER, PARAMETER :: ind_NC4OHCO3H = 2434 - INTEGER, PARAMETER :: ind_SC4H9OOH = 2435 - INTEGER, PARAMETER :: ind_C51NO3 = 2436 - INTEGER, PARAMETER :: ind_C519OOH = 2437 - INTEGER, PARAMETER :: ind_MIBKAOH3CO = 2438 - INTEGER, PARAMETER :: ind_C146OOH = 2439 - INTEGER, PARAMETER :: ind_C736OOH = 2440 - INTEGER, PARAMETER :: ind_PE1ENEANO3 = 2441 - INTEGER, PARAMETER :: ind_PR2O2HNO3 = 2442 - INTEGER, PARAMETER :: ind_C7CO2OCO3H = 2443 - INTEGER, PARAMETER :: ind_C928NO3 = 2444 - INTEGER, PARAMETER :: ind_C820OOH = 2445 - INTEGER, PARAMETER :: ind_IPBFUOOH = 2446 - INTEGER, PARAMETER :: ind_PE2ENEANO3 = 2447 - INTEGER, PARAMETER :: ind_C5DIALCO = 2448 - INTEGER, PARAMETER :: ind_C53NO32OOH = 2449 - INTEGER, PARAMETER :: ind_C44OOH = 2450 - INTEGER, PARAMETER :: ind_LIMAOOH = 2451 - INTEGER, PARAMETER :: ind_C108O = 2452 - INTEGER, PARAMETER :: ind_MTBKNO3 = 2453 - INTEGER, PARAMETER :: ind_NTLFUOOH = 2454 - INTEGER, PARAMETER :: ind_C62NO33OOH = 2455 - INTEGER, PARAMETER :: ind_HO1C3OOH = 2456 - INTEGER, PARAMETER :: ind_C919O = 2457 - INTEGER, PARAMETER :: ind_C817NO3 = 2458 - INTEGER, PARAMETER :: ind_HO2M2C4NO3 = 2459 - INTEGER, PARAMETER :: ind_MPRNO3CO3H = 2460 - INTEGER, PARAMETER :: ind_CHOOCH2NO3 = 2461 - INTEGER, PARAMETER :: ind_C720NO3 = 2462 - INTEGER, PARAMETER :: ind_IBUTALBO2H = 2463 - INTEGER, PARAMETER :: ind_MXYQONE = 2464 - INTEGER, PARAMETER :: ind_TC4H9O = 2465 - INTEGER, PARAMETER :: ind_C4COMOHOOH = 2466 - INTEGER, PARAMETER :: ind_C6OTKETCO = 2467 - INTEGER, PARAMETER :: ind_NPHENOH = 2468 - INTEGER, PARAMETER :: ind_BCALAOOH = 2469 - INTEGER, PARAMETER :: ind_BCOOA = 2470 - INTEGER, PARAMETER :: ind_MALANHY = 2471 - INTEGER, PARAMETER :: ind_C5MO132OH = 2472 - INTEGER, PARAMETER :: ind_C4MCONO3O = 2473 - INTEGER, PARAMETER :: ind_C6O132OH = 2474 - INTEGER, PARAMETER :: ind_C520OH = 2475 - INTEGER, PARAMETER :: ind_MACROOA = 2476 - INTEGER, PARAMETER :: ind_C6M5CO2OH = 2477 - INTEGER, PARAMETER :: ind_C51NO324CO = 2478 - INTEGER, PARAMETER :: ind_MGLOOA = 2479 - INTEGER, PARAMETER :: ind_HCC7CO = 2480 - INTEGER, PARAMETER :: ind_NAOOA = 2481 - INTEGER, PARAMETER :: ind_C6CO2M2OH = 2482 - INTEGER, PARAMETER :: ind_C629OH = 2483 - INTEGER, PARAMETER :: ind_C8236CO = 2484 - INTEGER, PARAMETER :: ind_C614CO23OH = 2485 - INTEGER, PARAMETER :: ind_HNC524CO = 2486 - INTEGER, PARAMETER :: ind_NC4H9CHOOA = 2487 - INTEGER, PARAMETER :: ind_MMALANHY = 2488 - INTEGER, PARAMETER :: ind_MACRNOOA = 2489 - INTEGER, PARAMETER :: ind_IPECO = 2490 - INTEGER, PARAMETER :: ind_C4M2ALOHNO3 = 2491 - INTEGER, PARAMETER :: ind_C7DCO = 2492 - INTEGER, PARAMETER :: ind_NPBNZOLO = 2493 - INTEGER, PARAMETER :: ind_HC3CO3H = 2494 - INTEGER, PARAMETER :: ind_NC826O = 2495 - INTEGER, PARAMETER :: ind_C7PAN1 = 2496 - INTEGER, PARAMETER :: ind_MVKOOH = 2497 - INTEGER, PARAMETER :: ind_C4PAN10 = 2498 - INTEGER, PARAMETER :: ind_NMETOLOOH = 2499 - INTEGER, PARAMETER :: ind_NO3CH2PAN = 2500 - INTEGER, PARAMETER :: ind_C615CO2OOH = 2501 - INTEGER, PARAMETER :: ind_MPRANO3O = 2502 - INTEGER, PARAMETER :: ind_BUT2OLOOH = 2503 - INTEGER, PARAMETER :: ind_MC4CODBPAN = 2504 - INTEGER, PARAMETER :: ind_C8CO2OHPAN = 2505 - INTEGER, PARAMETER :: ind_NCRESO = 2506 - INTEGER, PARAMETER :: ind_C31CO3H = 2507 - INTEGER, PARAMETER :: ind_LIMCO = 2508 - INTEGER, PARAMETER :: ind_HO1C6NO3 = 2509 - INTEGER, PARAMETER :: ind_C312COPAN = 2510 - INTEGER, PARAMETER :: ind_HCOCOHPAN = 2511 - INTEGER, PARAMETER :: ind_C826O = 2512 - INTEGER, PARAMETER :: ind_HM33C4NO3 = 2513 - INTEGER, PARAMETER :: ind_C68NO3 = 2514 - INTEGER, PARAMETER :: ind_C88PAN = 2515 - INTEGER, PARAMETER :: ind_BPINBO = 2516 - INTEGER, PARAMETER :: ind_CHOOMPAN = 2517 - INTEGER, PARAMETER :: ind_EPXKTMPAN = 2518 - INTEGER, PARAMETER :: ind_HO2C5NO3 = 2519 - INTEGER, PARAMETER :: ind_NEBNZOLOOH = 2520 - INTEGER, PARAMETER :: ind_C7DDCO = 2521 - INTEGER, PARAMETER :: ind_MPRBNO3PAN = 2522 - INTEGER, PARAMETER :: ind_C627PAN = 2523 - INTEGER, PARAMETER :: ind_C1010NO3 = 2524 - INTEGER, PARAMETER :: ind_C4PAN3 = 2525 - INTEGER, PARAMETER :: ind_CHOCOHCO = 2526 - INTEGER, PARAMETER :: ind_H3C25C6PAN = 2527 - INTEGER, PARAMETER :: ind_C61O = 2528 - INTEGER, PARAMETER :: ind_C4CO2DBPAN = 2529 - INTEGER, PARAMETER :: ind_NC6PAN1 = 2530 - INTEGER, PARAMETER :: ind_C4PAN9 = 2531 - INTEGER, PARAMETER :: ind_C810NO3 = 2532 - INTEGER, PARAMETER :: ind_C817PAN = 2533 - INTEGER, PARAMETER :: ind_M2HEXBNO3 = 2534 - INTEGER, PARAMETER :: ind_NNCATECO = 2535 - INTEGER, PARAMETER :: ind_MNNCATECO = 2536 - INTEGER, PARAMETER :: ind_PBN = 2537 - INTEGER, PARAMETER :: ind_C61CPAN = 2538 - INTEGER, PARAMETER :: ind_MEKAO = 2539 - INTEGER, PARAMETER :: ind_C109OOH = 2540 - INTEGER, PARAMETER :: ind_C7OHO2CO3H = 2541 - INTEGER, PARAMETER :: ind_HM33C3NO3 = 2542 - INTEGER, PARAMETER :: ind_HO2MC5OOH = 2543 - INTEGER, PARAMETER :: ind_ISOPDOOH = 2544 - INTEGER, PARAMETER :: ind_C510O = 2545 - INTEGER, PARAMETER :: ind_C1H4C5PAN = 2546 - INTEGER, PARAMETER :: ind_C62NO335CO = 2547 - INTEGER, PARAMETER :: ind_NC4PDCO2H = 2548 - INTEGER, PARAMETER :: ind_PE1ENEBO = 2549 - INTEGER, PARAMETER :: ind_MIBKAOHBO = 2550 - INTEGER, PARAMETER :: ind_T124NCATO = 2551 - INTEGER, PARAMETER :: ind_C23O3CPAN = 2552 - INTEGER, PARAMETER :: ind_C64OOH = 2553 - INTEGER, PARAMETER :: ind_HC4CCO3H = 2554 - INTEGER, PARAMETER :: ind_H1MC5NO3 = 2555 - INTEGER, PARAMETER :: ind_C613OOH = 2556 - INTEGER, PARAMETER :: ind_T124NNCTO = 2557 - INTEGER, PARAMETER :: ind_HEX3ONCOOH = 2558 - INTEGER, PARAMETER :: ind_C815CO2OOH = 2559 - INTEGER, PARAMETER :: ind_C3COCPAN = 2560 - INTEGER, PARAMETER :: ind_C728O = 2561 - INTEGER, PARAMETER :: ind_C123O = 2562 - INTEGER, PARAMETER :: ind_NPETOLO = 2563 - INTEGER, PARAMETER :: ind_C87PAN = 2564 - INTEGER, PARAMETER :: ind_NPXYOLOOH = 2565 - INTEGER, PARAMETER :: ind_OTNNCATCO = 2566 - INTEGER, PARAMETER :: ind_COO2C4PAN = 2567 - INTEGER, PARAMETER :: ind_HMACROH = 2568 - INTEGER, PARAMETER :: ind_PXYMUCPAN = 2569 - INTEGER, PARAMETER :: ind_C58NO3CO3H = 2570 - INTEGER, PARAMETER :: ind_C46PAN = 2571 - INTEGER, PARAMETER :: ind_HEX3ONBOOH = 2572 - INTEGER, PARAMETER :: ind_C515PAN = 2573 - INTEGER, PARAMETER :: ind_CH3OCHO = 2574 - INTEGER, PARAMETER :: ind_PTNCATECO = 2575 - INTEGER, PARAMETER :: ind_HC4PAN = 2576 - INTEGER, PARAMETER :: ind_DNPHENO = 2577 - INTEGER, PARAMETER :: ind_NC730O = 2578 - INTEGER, PARAMETER :: ind_PRNO3PAN = 2579 - INTEGER, PARAMETER :: ind_INANCOCO2H = 2580 - INTEGER, PARAMETER :: ind_C8CO3OHO = 2581 - INTEGER, PARAMETER :: ind_C6DCARBPAN = 2582 - INTEGER, PARAMETER :: ind_C4NO3PAN = 2583 - INTEGER, PARAMETER :: ind_C511PAN = 2584 - INTEGER, PARAMETER :: ind_NTM135LOOH = 2585 - INTEGER, PARAMETER :: ind_T123NCATO = 2586 - INTEGER, PARAMETER :: ind_C141PAN = 2587 - INTEGER, PARAMETER :: ind_ENNCATECO = 2588 - INTEGER, PARAMETER :: ind_C63O = 2589 - INTEGER, PARAMETER :: ind_INB2OOH = 2590 - INTEGER, PARAMETER :: ind_C623O = 2591 - INTEGER, PARAMETER :: ind_C4M2ALOHO = 2592 - INTEGER, PARAMETER :: ind_C923PAN = 2593 - INTEGER, PARAMETER :: ind_C103O = 2594 - INTEGER, PARAMETER :: ind_NPXYOLO = 2595 - INTEGER, PARAMETER :: ind_MVKOHAO = 2596 - INTEGER, PARAMETER :: ind_C823PAN = 2597 - INTEGER, PARAMETER :: ind_DNOETOLO = 2598 - INTEGER, PARAMETER :: ind_MTNCATECO = 2599 - INTEGER, PARAMETER :: ind_CHOC3COPAN = 2600 - INTEGER, PARAMETER :: ind_C7MCO2OOH = 2601 - INTEGER, PARAMETER :: ind_MC5COOHOOH = 2602 - INTEGER, PARAMETER :: ind_C5CODBCO3H = 2603 - INTEGER, PARAMETER :: ind_ENCATECO = 2604 - INTEGER, PARAMETER :: ind_TM124BPNO3 = 2605 - INTEGER, PARAMETER :: ind_C58NO3PAN = 2606 - INTEGER, PARAMETER :: ind_H1C23C4O = 2607 - INTEGER, PARAMETER :: ind_CO2OH3MPAN = 2608 - INTEGER, PARAMETER :: ind_C3DIALOOH = 2609 - INTEGER, PARAMETER :: ind_M2PEDNO3 = 2610 - INTEGER, PARAMETER :: ind_PPEN = 2611 - INTEGER, PARAMETER :: ind_PIPN = 2612 - INTEGER, PARAMETER :: ind_C1013PAN = 2613 - INTEGER, PARAMETER :: ind_MIPKBO = 2614 - INTEGER, PARAMETER :: ind_C7MOHCOPAN = 2615 - INTEGER, PARAMETER :: ind_HC4ACO3H = 2616 - INTEGER, PARAMETER :: ind_C531OOH = 2617 - INTEGER, PARAMETER :: ind_CO24C6OOH = 2618 - INTEGER, PARAMETER :: ind_C828PAN = 2619 - INTEGER, PARAMETER :: ind_PROL1MPAN = 2620 - INTEGER, PARAMETER :: ind_C927NO3 = 2621 - INTEGER, PARAMETER :: ind_C5PAN9 = 2622 - INTEGER, PARAMETER :: ind_ISOP34O = 2623 - INTEGER, PARAMETER :: ind_NOETOLOOH = 2624 - INTEGER, PARAMETER :: ind_C714OOH = 2625 - INTEGER, PARAMETER :: ind_APINCNO3 = 2626 - INTEGER, PARAMETER :: ind_OCCOHCOOH = 2627 - INTEGER, PARAMETER :: ind_NEOPOOH = 2628 - INTEGER, PARAMETER :: ind_C919NO3 = 2629 - INTEGER, PARAMETER :: ind_EPXEKTPAN = 2630 - INTEGER, PARAMETER :: ind_C6MOHCOPAN = 2631 - INTEGER, PARAMETER :: ind_PETLMUCPAN = 2632 - INTEGER, PARAMETER :: ind_HM22C4OOH = 2633 - INTEGER, PARAMETER :: ind_MTBKO = 2634 - INTEGER, PARAMETER :: ind_INANCOPAN = 2635 - INTEGER, PARAMETER :: ind_C512PAN = 2636 - INTEGER, PARAMETER :: ind_C624PAN = 2637 - INTEGER, PARAMETER :: ind_C113O = 2638 - INTEGER, PARAMETER :: ind_HYPROPO = 2639 - INTEGER, PARAMETER :: ind_EBZMUCPAN = 2640 - INTEGER, PARAMETER :: ind_OXNCATECO = 2641 - INTEGER, PARAMETER :: ind_C93O = 2642 - INTEGER, PARAMETER :: ind_C4COMOHPAN = 2643 - INTEGER, PARAMETER :: ind_C68O = 2644 - INTEGER, PARAMETER :: ind_C8CO2DBAL = 2645 - INTEGER, PARAMETER :: ind_HO2C54O = 2646 - INTEGER, PARAMETER :: ind_H2M3C4O = 2647 - INTEGER, PARAMETER :: ind_C126PAN = 2648 - INTEGER, PARAMETER :: ind_NTM124LOOH = 2649 - INTEGER, PARAMETER :: ind_DETLMUPAN = 2650 - INTEGER, PARAMETER :: ind_C622PAN = 2651 - INTEGER, PARAMETER :: ind_C5DCO2CO3H = 2652 - INTEGER, PARAMETER :: ind_HO2MC5NO3 = 2653 - INTEGER, PARAMETER :: ind_C8OHO2CO3H = 2654 - INTEGER, PARAMETER :: ind_IEAPAN = 2655 - INTEGER, PARAMETER :: ind_PBZMUCPAN = 2656 - INTEGER, PARAMETER :: ind_PAN = 2657 - INTEGER, PARAMETER :: ind_C811PAN = 2658 - INTEGER, PARAMETER :: ind_MC5CO2OHO = 2659 - INTEGER, PARAMETER :: ind_H3C2C4PAN = 2660 - INTEGER, PARAMETER :: ind_C89NO3 = 2661 - INTEGER, PARAMETER :: ind_C57O = 2662 - INTEGER, PARAMETER :: ind_ACETMEPAN = 2663 - INTEGER, PARAMETER :: ind_METACETNO3 = 2664 - INTEGER, PARAMETER :: ind_HO1CO3C5 = 2665 - INTEGER, PARAMETER :: ind_C137PAN = 2666 - INTEGER, PARAMETER :: ind_C515O = 2667 - INTEGER, PARAMETER :: ind_MXNNCATCO = 2668 - INTEGER, PARAMETER :: ind_C6PAN14 = 2669 - INTEGER, PARAMETER :: ind_C5PAN18 = 2670 - INTEGER, PARAMETER :: ind_EPXMKTPAN = 2671 - INTEGER, PARAMETER :: ind_ETACETNO3 = 2672 - INTEGER, PARAMETER :: ind_C128NO3 = 2673 - INTEGER, PARAMETER :: ind_CHOC4PAN = 2674 - INTEGER, PARAMETER :: ind_C5PAN11 = 2675 - INTEGER, PARAMETER :: ind_HO8C9O = 2676 - INTEGER, PARAMETER :: ind_C5PAN13 = 2677 - INTEGER, PARAMETER :: ind_C5PAN12 = 2678 - INTEGER, PARAMETER :: ind_CO23C54O = 2679 - INTEGER, PARAMETER :: ind_C929CO = 2680 - INTEGER, PARAMETER :: ind_C7CODBPAN = 2681 - INTEGER, PARAMETER :: ind_PXNNCATCO = 2682 - INTEGER, PARAMETER :: ind_C5M2OHOPAN = 2683 - INTEGER, PARAMETER :: ind_C5PAN14 = 2684 - INTEGER, PARAMETER :: ind_C136PAN = 2685 - INTEGER, PARAMETER :: ind_C7BDCOOH = 2686 - INTEGER, PARAMETER :: ind_TC4H9NO3 = 2687 - INTEGER, PARAMETER :: ind_C731PAN = 2688 - INTEGER, PARAMETER :: ind_C7DCPAN = 2689 - INTEGER, PARAMETER :: ind_DMPHCOMOOH = 2690 - INTEGER, PARAMETER :: ind_C5PAN16 = 2691 - INTEGER, PARAMETER :: ind_C6CO34O = 2692 - INTEGER, PARAMETER :: ind_C54OOH = 2693 - INTEGER, PARAMETER :: ind_C621O = 2694 - INTEGER, PARAMETER :: ind_MVKOHBOOH = 2695 - INTEGER, PARAMETER :: ind_CO3H4PAN = 2696 - INTEGER, PARAMETER :: ind_C77O = 2697 - INTEGER, PARAMETER :: ind_HO3C3PAN = 2698 - INTEGER, PARAMETER :: ind_PEBO = 2699 - INTEGER, PARAMETER :: ind_C4DBMEPAN = 2700 - INTEGER, PARAMETER :: ind_C98NO3 = 2701 - INTEGER, PARAMETER :: ind_C43NO3PAN = 2702 - INTEGER, PARAMETER :: ind_C519PAN = 2703 - INTEGER, PARAMETER :: ind_C1210PAN = 2704 - INTEGER, PARAMETER :: ind_INCNPAN = 2705 - INTEGER, PARAMETER :: ind_BUTDCO = 2706 - INTEGER, PARAMETER :: ind_HOCH2CH2O = 2707 - INTEGER, PARAMETER :: ind_C626PAN = 2708 - INTEGER, PARAMETER :: ind_NIPBZOLOOH = 2709 - INTEGER, PARAMETER :: ind_HEXCO = 2710 - INTEGER, PARAMETER :: ind_HNBIACET = 2711 - INTEGER, PARAMETER :: ind_EPXDLPAN = 2712 - INTEGER, PARAMETER :: ind_HM22C4NO3 = 2713 - INTEGER, PARAMETER :: ind_C7CO2DBAL = 2714 - INTEGER, PARAMETER :: ind_MEKBOOH = 2715 - INTEGER, PARAMETER :: ind_ETACETOH = 2716 - INTEGER, PARAMETER :: ind_INCO = 2717 - INTEGER, PARAMETER :: ind_C6PAN20 = 2718 - INTEGER, PARAMETER :: ind_C1310CO = 2719 - INTEGER, PARAMETER :: ind_NBUTOLAO = 2720 - INTEGER, PARAMETER :: ind_C8CO2DBPAN = 2721 - INTEGER, PARAMETER :: ind_C915O = 2722 - INTEGER, PARAMETER :: ind_C79OOH = 2723 - INTEGER, PARAMETER :: ind_C6TRONOHO = 2724 - INTEGER, PARAMETER :: ind_C5CO2OHPAN = 2725 - INTEGER, PARAMETER :: ind_PHPTN = 2726 - INTEGER, PARAMETER :: ind_LIMALBOOH = 2727 - INTEGER, PARAMETER :: ind_NDMEPHOLO = 2728 - INTEGER, PARAMETER :: ind_H1C23C4PAN = 2729 - INTEGER, PARAMETER :: ind_C66OOH = 2730 - INTEGER, PARAMETER :: ind_NCATECO = 2731 - INTEGER, PARAMETER :: ind_NDEMPHOLO = 2732 - INTEGER, PARAMETER :: ind_DNPXYOLO = 2733 - INTEGER, PARAMETER :: ind_C4CONO3O = 2734 - INTEGER, PARAMETER :: ind_C57NO3PAN = 2735 - INTEGER, PARAMETER :: ind_DNT123LO = 2736 - INTEGER, PARAMETER :: ind_BCLKCOOH = 2737 - INTEGER, PARAMETER :: ind_C4OHPAN = 2738 - INTEGER, PARAMETER :: ind_C6O4KETO = 2739 - INTEGER, PARAMETER :: ind_NTM123LOOH = 2740 - INTEGER, PARAMETER :: ind_PXNCATECO = 2741 - INTEGER, PARAMETER :: ind_C108NO3 = 2742 - INTEGER, PARAMETER :: ind_C3ME3PAN = 2743 - INTEGER, PARAMETER :: ind_C151O = 2744 - INTEGER, PARAMETER :: ind_HO13C5O = 2745 - INTEGER, PARAMETER :: ind_C1313O = 2746 - INTEGER, PARAMETER :: ind_ME3BUOLO = 2747 - INTEGER, PARAMETER :: ind_GLYOOB = 2748 - INTEGER, PARAMETER :: ind_C134O = 2749 - INTEGER, PARAMETER :: ind_NC728O = 2750 - INTEGER, PARAMETER :: ind_C105O = 2751 - INTEGER, PARAMETER :: ind_C5DICARBO = 2752 - INTEGER, PARAMETER :: ind_ETHACETOOH = 2753 - INTEGER, PARAMETER :: ind_C7MJPCO3H = 2754 - INTEGER, PARAMETER :: ind_C6PAN3 = 2755 - INTEGER, PARAMETER :: ind_C615PAN = 2756 - INTEGER, PARAMETER :: ind_ETOMEPAN = 2757 - INTEGER, PARAMETER :: ind_PHCOCOCO = 2758 - INTEGER, PARAMETER :: ind_C916NO3 = 2759 - INTEGER, PARAMETER :: ind_HO6C7O = 2760 - INTEGER, PARAMETER :: ind_C52NO3 = 2761 - INTEGER, PARAMETER :: ind_NMXYOLO = 2762 - INTEGER, PARAMETER :: ind_C4CO2DCO3H = 2763 - INTEGER, PARAMETER :: ind_ETHFORMNO3 = 2764 - INTEGER, PARAMETER :: ind_C7OHCO2PAN = 2765 - INTEGER, PARAMETER :: ind_C7ADCCO3H = 2766 - INTEGER, PARAMETER :: ind_M23C4O = 2767 - INTEGER, PARAMETER :: ind_MXYOHNO2O = 2768 - INTEGER, PARAMETER :: ind_ACCOCOMOOH = 2769 - INTEGER, PARAMETER :: ind_C524O = 2770 - INTEGER, PARAMETER :: ind_BUTDBO = 2771 - INTEGER, PARAMETER :: ind_C517PAN = 2772 - INTEGER, PARAMETER :: ind_C1211CO = 2773 - INTEGER, PARAMETER :: ind_MEKCOOH = 2774 - INTEGER, PARAMETER :: ind_H2MC5OOH = 2775 - INTEGER, PARAMETER :: ind_NTM124OLO = 2776 - INTEGER, PARAMETER :: ind_HMVKBPAN = 2777 - INTEGER, PARAMETER :: ind_C6PAN19 = 2778 - INTEGER, PARAMETER :: ind_COO2C3PAN = 2779 - INTEGER, PARAMETER :: ind_C6H5CH2PAN = 2780 - INTEGER, PARAMETER :: ind_C116PAN = 2781 - INTEGER, PARAMETER :: ind_PXYBIPENO3 = 2782 - INTEGER, PARAMETER :: ind_NO3CH2CO2H = 2783 - INTEGER, PARAMETER :: ind_C4PAN2 = 2784 - INTEGER, PARAMETER :: ind_HO2C5OOH = 2785 - INTEGER, PARAMETER :: ind_C4PAN1 = 2786 - INTEGER, PARAMETER :: ind_C6PAN12 = 2787 - INTEGER, PARAMETER :: ind_CHOCOMOXO = 2788 - INTEGER, PARAMETER :: ind_NMETOLO = 2789 - INTEGER, PARAMETER :: ind_C4PAN4 = 2790 - INTEGER, PARAMETER :: ind_M3BU3EPAN = 2791 - INTEGER, PARAMETER :: ind_C4PAN5 = 2792 - INTEGER, PARAMETER :: ind_C4PAN6 = 2793 - INTEGER, PARAMETER :: ind_C8OHCO2PAN = 2794 - INTEGER, PARAMETER :: ind_C4OCCOHCO = 2795 - INTEGER, PARAMETER :: ind_C4PAN7 = 2796 - INTEGER, PARAMETER :: ind_HOC4CHOOOH = 2797 - INTEGER, PARAMETER :: ind_NPHENO = 2798 - INTEGER, PARAMETER :: ind_NPHENOOH = 2799 - INTEGER, PARAMETER :: ind_C5PAN10 = 2800 - INTEGER, PARAMETER :: ind_C4PAN8 = 2801 - INTEGER, PARAMETER :: ind_C829NO3 = 2802 - INTEGER, PARAMETER :: ind_CO35C5CHO = 2803 - INTEGER, PARAMETER :: ind_C3PAN2 = 2804 - INTEGER, PARAMETER :: ind_COCCOHCOOH = 2805 - INTEGER, PARAMETER :: ind_NOXYOLO = 2806 - INTEGER, PARAMETER :: ind_PROPALO = 2807 - INTEGER, PARAMETER :: ind_IC7DCPAN = 2808 - INTEGER, PARAMETER :: ind_C134CO = 2809 - INTEGER, PARAMETER :: ind_METACETO2H = 2810 - INTEGER, PARAMETER :: ind_C3DBPAN = 2811 - INTEGER, PARAMETER :: ind_C106NO3 = 2812 - INTEGER, PARAMETER :: ind_C928PAN = 2813 - INTEGER, PARAMETER :: ind_C64NO3 = 2814 - INTEGER, PARAMETER :: ind_NC4OHCPAN = 2815 - INTEGER, PARAMETER :: ind_C41O = 2816 - INTEGER, PARAMETER :: ind_ETOC2NO3 = 2817 - INTEGER, PARAMETER :: ind_MTNNCATCO = 2818 - INTEGER, PARAMETER :: ind_C5CO234O = 2819 - INTEGER, PARAMETER :: ind_CO356OCO = 2820 - INTEGER, PARAMETER :: ind_NC51O = 2821 - INTEGER, PARAMETER :: ind_C6PAN5 = 2822 - INTEGER, PARAMETER :: ind_IECPAN = 2823 - INTEGER, PARAMETER :: ind_NC3CO3H = 2824 - INTEGER, PARAMETER :: ind_C3PAN1 = 2825 - INTEGER, PARAMETER :: ind_C72O = 2826 - INTEGER, PARAMETER :: ind_HOACETETO = 2827 - INTEGER, PARAMETER :: ind_PROPALOOH = 2828 - INTEGER, PARAMETER :: ind_C830PAN = 2829 - INTEGER, PARAMETER :: ind_C3MCODBPAN = 2830 - INTEGER, PARAMETER :: ind_C4M2NO33O = 2831 - INTEGER, PARAMETER :: ind_NC1313O = 2832 - INTEGER, PARAMETER :: ind_C5EDBPAN = 2833 - INTEGER, PARAMETER :: ind_C530NO3 = 2834 - INTEGER, PARAMETER :: ind_HO3C6NO3 = 2835 - INTEGER, PARAMETER :: ind_BCALBOOH = 2836 - INTEGER, PARAMETER :: ind_C6M5CO2O = 2837 - INTEGER, PARAMETER :: ind_C6MOCOCO3H = 2838 - INTEGER, PARAMETER :: ind_M3PECNO3 = 2839 - INTEGER, PARAMETER :: ind_IBUTOLBO = 2840 - INTEGER, PARAMETER :: ind_PHXN = 2841 - INTEGER, PARAMETER :: ind_C6PAN2 = 2842 - INTEGER, PARAMETER :: ind_C6PAN1 = 2843 - INTEGER, PARAMETER :: ind_C6PAN6 = 2844 - INTEGER, PARAMETER :: ind_C6PAN7 = 2845 - INTEGER, PARAMETER :: ind_C6PAN4 = 2846 - INTEGER, PARAMETER :: ind_NTM135OLO = 2847 - INTEGER, PARAMETER :: ind_C6PAN8 = 2848 - INTEGER, PARAMETER :: ind_C65OH4O = 2849 - INTEGER, PARAMETER :: ind_C920PAN = 2850 - INTEGER, PARAMETER :: ind_C4NO32M2O = 2851 - INTEGER, PARAMETER :: ind_C23O3ECPAN = 2852 - INTEGER, PARAMETER :: ind_C115O = 2853 - INTEGER, PARAMETER :: ind_NC4IPDCO2H = 2854 - INTEGER, PARAMETER :: ind_C1213NO3 = 2855 - INTEGER, PARAMETER :: ind_C1213CO = 2856 - INTEGER, PARAMETER :: ind_OETLMUCPAN = 2857 - INTEGER, PARAMETER :: ind_C5NO3CO4O = 2858 - INTEGER, PARAMETER :: ind_C5CO2DBPAN = 2859 - INTEGER, PARAMETER :: ind_C131PAN = 2860 - INTEGER, PARAMETER :: ind_HCOCH2O = 2861 - INTEGER, PARAMETER :: ind_C8O2OHCO3H = 2862 - INTEGER, PARAMETER :: ind_C7CO2OHPAN = 2863 - INTEGER, PARAMETER :: ind_CO1M22PAN = 2864 - INTEGER, PARAMETER :: ind_C3DIOLO = 2865 - INTEGER, PARAMETER :: ind_C6EO2OHPAN = 2866 - INTEGER, PARAMETER :: ind_C5124COPAN = 2867 - INTEGER, PARAMETER :: ind_C1H4C5CO3H = 2868 - INTEGER, PARAMETER :: ind_NMBOBO = 2869 - INTEGER, PARAMETER :: ind_INANCOCO3H = 2870 - INTEGER, PARAMETER :: ind_C52OOH = 2871 - INTEGER, PARAMETER :: ind_C3MNO3PAN = 2872 - INTEGER, PARAMETER :: ind_C3DBCO3H = 2873 - INTEGER, PARAMETER :: ind_HO7C8O = 2874 - INTEGER, PARAMETER :: ind_C7MCO2DBAL = 2875 - INTEGER, PARAMETER :: ind_C5COO2NO2 = 2876 - INTEGER, PARAMETER :: ind_C6PAN21 = 2877 - INTEGER, PARAMETER :: ind_HEX2ONCOOH = 2878 - INTEGER, PARAMETER :: ind_C729PAN = 2879 - INTEGER, PARAMETER :: ind_C5PAN8 = 2880 - INTEGER, PARAMETER :: ind_MIBK3COO = 2881 - INTEGER, PARAMETER :: ind_C5PAN4 = 2882 - INTEGER, PARAMETER :: ind_C5PAN7 = 2883 - INTEGER, PARAMETER :: ind_C5PAN1 = 2884 - INTEGER, PARAMETER :: ind_C5PAN3 = 2885 - INTEGER, PARAMETER :: ind_C5PAN2 = 2886 - INTEGER, PARAMETER :: ind_CHOMOHPAN = 2887 - INTEGER, PARAMETER :: ind_BPINCNO3 = 2888 - INTEGER, PARAMETER :: ind_M2BKAO = 2889 - INTEGER, PARAMETER :: ind_C824O = 2890 - INTEGER, PARAMETER :: ind_HO2M2C4O = 2891 - INTEGER, PARAMETER :: ind_PINALNO3 = 2892 - INTEGER, PARAMETER :: ind_DIEKAOOH = 2893 - INTEGER, PARAMETER :: ind_C733O = 2894 - INTEGER, PARAMETER :: ind_COO2C4CHO = 2895 - INTEGER, PARAMETER :: ind_C6PAN23 = 2896 - INTEGER, PARAMETER :: ind_C7CO3OHO = 2897 - INTEGER, PARAMETER :: ind_NC91PAN = 2898 - INTEGER, PARAMETER :: ind_C5DBECO3H = 2899 - INTEGER, PARAMETER :: ind_EMPHCOMOOH = 2900 - INTEGER, PARAMETER :: ind_C7CO2DBPAN = 2901 - INTEGER, PARAMETER :: ind_BPINAO = 2902 - INTEGER, PARAMETER :: ind_DNEBNZLO = 2903 - INTEGER, PARAMETER :: ind_EPXMDLPAN = 2904 - INTEGER, PARAMETER :: ind_CO234C65O = 2905 - INTEGER, PARAMETER :: ind_M33C4O = 2906 - INTEGER, PARAMETER :: ind_INB1NBPAN = 2907 - INTEGER, PARAMETER :: ind_C1312NO3 = 2908 - INTEGER, PARAMETER :: ind_C1312CO = 2909 - INTEGER, PARAMETER :: ind_M3CO245C6 = 2910 - INTEGER, PARAMETER :: ind_C5COOHCO3H = 2911 - INTEGER, PARAMETER :: ind_C64OH5O = 2912 - INTEGER, PARAMETER :: ind_NEOPNO3 = 2913 - INTEGER, PARAMETER :: ind_CH4 = 2914 - INTEGER, PARAMETER :: ind_IPBZMUCPAN = 2915 - INTEGER, PARAMETER :: ind_NC623O = 2916 - INTEGER, PARAMETER :: ind_HO3C76NO3 = 2917 - INTEGER, PARAMETER :: ind_OXNNCATCO = 2918 - INTEGER, PARAMETER :: ind_NDMMALYO = 2919 - INTEGER, PARAMETER :: ind_C23O3MCOOH = 2920 - INTEGER, PARAMETER :: ind_A2PAN = 2921 - INTEGER, PARAMETER :: ind_CHEXO = 2922 - INTEGER, PARAMETER :: ind_C23O3ECOOH = 2923 - INTEGER, PARAMETER :: ind_MALDIALPAN = 2924 - INTEGER, PARAMETER :: ind_INANPAN = 2925 - INTEGER, PARAMETER :: ind_NC4H9O = 2926 - INTEGER, PARAMETER :: ind_IP3ODBCO2H = 2927 - INTEGER, PARAMETER :: ind_INB1NAPAN = 2928 - INTEGER, PARAMETER :: ind_C62CPAN = 2929 - INTEGER, PARAMETER :: ind_C74OOH = 2930 - INTEGER, PARAMETER :: ind_C730O = 2931 - INTEGER, PARAMETER :: ind_C6CO34HO1 = 2932 - INTEGER, PARAMETER :: ind_M2PEDO = 2933 - INTEGER, PARAMETER :: ind_H2MC5NO3 = 2934 - INTEGER, PARAMETER :: ind_DNOXYOLO = 2935 - INTEGER, PARAMETER :: ind_PC3ODBCO2H = 2936 - INTEGER, PARAMETER :: ind_DNPETOLO = 2937 - INTEGER, PARAMETER :: ind_C831CO = 2938 - INTEGER, PARAMETER :: ind_HO2C4O = 2939 - INTEGER, PARAMETER :: ind_C6CO3OHOOH = 2940 - INTEGER, PARAMETER :: ind_C522PAN = 2941 - INTEGER, PARAMETER :: ind_C930NO3 = 2942 - INTEGER, PARAMETER :: ind_C917NO3 = 2943 - INTEGER, PARAMETER :: ind_HO5C6O = 2944 - INTEGER, PARAMETER :: ind_IPROPOLPAN = 2945 - INTEGER, PARAMETER :: ind_H13M3C5O = 2946 - INTEGER, PARAMETER :: ind_C816PAN = 2947 - INTEGER, PARAMETER :: ind_DMEBMUPAN = 2948 - INTEGER, PARAMETER :: ind_IC7DCO = 2949 - INTEGER, PARAMETER :: ind_METLMUCPAN = 2950 - INTEGER, PARAMETER :: ind_C10PAN2 = 2951 - INTEGER, PARAMETER :: ind_DNT124LO = 2952 - INTEGER, PARAMETER :: ind_C614O = 2953 - INTEGER, PARAMETER :: ind_EOX2EOLAO = 2954 - INTEGER, PARAMETER :: ind_BZEMUCPAN = 2955 - INTEGER, PARAMETER :: ind_MXYLPAN = 2956 - INTEGER, PARAMETER :: ind_INDHPPAN = 2957 - INTEGER, PARAMETER :: ind_C822PAN = 2958 - INTEGER, PARAMETER :: ind_NBPINBO = 2959 - INTEGER, PARAMETER :: ind_C83O = 2960 - INTEGER, PARAMETER :: ind_BCCO = 2961 - INTEGER, PARAMETER :: ind_NLIMALO = 2962 - INTEGER, PARAMETER :: ind_MXNCATECO = 2963 - INTEGER, PARAMETER :: ind_M3HEXBNO3 = 2964 - INTEGER, PARAMETER :: ind_C1215CO = 2965 - INTEGER, PARAMETER :: ind_DNC524CO = 2966 - INTEGER, PARAMETER :: ind_C7ADCO = 2967 - INTEGER, PARAMETER :: ind_C828O = 2968 - INTEGER, PARAMETER :: ind_C4MOHOPAN = 2969 - INTEGER, PARAMETER :: ind_C4DBM2PAN = 2970 - INTEGER, PARAMETER :: ind_C3EDIALOOH = 2971 - INTEGER, PARAMETER :: ind_HO13C4O = 2972 - INTEGER, PARAMETER :: ind_C2H6 = 2973 - INTEGER, PARAMETER :: ind_M2PEBO = 2974 - INTEGER, PARAMETER :: ind_ALC4DOLOOH = 2975 - INTEGER, PARAMETER :: ind_ETHFORMOOH = 2976 - INTEGER, PARAMETER :: ind_C7PAN3 = 2977 - INTEGER, PARAMETER :: ind_C5PAN5 = 2978 - INTEGER, PARAMETER :: ind_C732CO = 2979 - INTEGER, PARAMETER :: ind_C617PAN = 2980 - INTEGER, PARAMETER :: ind_C712OOH = 2981 - INTEGER, PARAMETER :: ind_C610O = 2982 - INTEGER, PARAMETER :: ind_M2BUOL2O = 2983 - INTEGER, PARAMETER :: ind_C718PAN = 2984 - INTEGER, PARAMETER :: ind_MACRNBCO2H = 2985 - INTEGER, PARAMETER :: ind_DNMXYOLO = 2986 - INTEGER, PARAMETER :: ind_C6PAN9 = 2987 - INTEGER, PARAMETER :: ind_C65NO3PAN = 2988 - INTEGER, PARAMETER :: ind_C5CO23O = 2989 - INTEGER, PARAMETER :: ind_M3PEBO = 2990 - INTEGER, PARAMETER :: ind_C6COOHCO3H = 2991 - INTEGER, PARAMETER :: ind_M2PROPAL2O = 2992 - INTEGER, PARAMETER :: ind_IBUTALO2H = 2993 - INTEGER, PARAMETER :: ind_NTM123OLO = 2994 - INTEGER, PARAMETER :: ind_DNMETOLO = 2995 - INTEGER, PARAMETER :: ind_C51O = 2996 - INTEGER, PARAMETER :: ind_LIMALO = 2997 - INTEGER, PARAMETER :: ind_C5DBCO2PAN = 2998 - INTEGER, PARAMETER :: ind_C712NO3 = 2999 - INTEGER, PARAMETER :: ind_C712O = 3000 - INTEGER, PARAMETER :: ind_MNCATECO = 3001 - INTEGER, PARAMETER :: ind_C65NO36O = 3002 - INTEGER, PARAMETER :: ind_PPN = 3003 - INTEGER, PARAMETER :: ind_OTNCATECO = 3004 - INTEGER, PARAMETER :: ind_C7DDCCO3H = 3005 - INTEGER, PARAMETER :: ind_C727OOH = 3006 - INTEGER, PARAMETER :: ind_C6PAN22 = 3007 - INTEGER, PARAMETER :: ind_CHOC2PAN = 3008 - INTEGER, PARAMETER :: ind_C82O = 3009 - INTEGER, PARAMETER :: ind_C518PAN = 3010 - INTEGER, PARAMETER :: ind_C1011PAN = 3011 - INTEGER, PARAMETER :: ind_C5O45OHPAN = 3012 - INTEGER, PARAMETER :: ind_C67O = 3013 - INTEGER, PARAMETER :: ind_C5DBEPAN = 3014 - INTEGER, PARAMETER :: ind_CO1H63NO3 = 3015 - INTEGER, PARAMETER :: ind_T123NNCTO = 3016 - INTEGER, PARAMETER :: ind_C918PAN = 3017 - INTEGER, PARAMETER :: ind_CYHXOLAOOH = 3018 - INTEGER, PARAMETER :: ind_C5MEJPAN = 3019 - INTEGER, PARAMETER :: ind_C4OH2CPAN = 3020 - INTEGER, PARAMETER :: ind_CO2C3PAN = 3021 - INTEGER, PARAMETER :: ind_C5DIALOOH = 3022 - INTEGER, PARAMETER :: ind_C6PAN18 = 3023 - INTEGER, PARAMETER :: ind_C6PAN10 = 3024 - INTEGER, PARAMETER :: ind_C6PAN11 = 3025 - INTEGER, PARAMETER :: ind_C6PAN17 = 3026 - INTEGER, PARAMETER :: ind_NIPBNZOLO = 3027 - INTEGER, PARAMETER :: ind_C7MCO3OHO = 3028 - INTEGER, PARAMETER :: ind_C827PAN = 3029 - INTEGER, PARAMETER :: ind_NBPINAO = 3030 - INTEGER, PARAMETER :: ind_C41CO3H = 3031 - INTEGER, PARAMETER :: ind_IPEAO = 3032 - INTEGER, PARAMETER :: ind_NC4CO3H = 3033 - INTEGER, PARAMETER :: ind_NOPINCNO3 = 3034 - INTEGER, PARAMETER :: ind_MPRKAOOH = 3035 - INTEGER, PARAMETER :: ind_DNCRESO = 3036 - INTEGER, PARAMETER :: ind_BCSOZO = 3037 - INTEGER, PARAMETER :: ind_HM33C4OOH = 3038 - INTEGER, PARAMETER :: ind_BCALO = 3039 - INTEGER, PARAMETER :: ind_C6CO2OHPAN = 3040 - INTEGER, PARAMETER :: ind_C615O = 3041 - INTEGER, PARAMETER :: ind_HPC52PAN = 3042 - INTEGER, PARAMETER :: ind_BCALCOOH = 3043 - INTEGER, PARAMETER :: ind_C4OCCOHCOH = 3044 - INTEGER, PARAMETER :: ind_INDHPAN = 3045 - INTEGER, PARAMETER :: ind_HO3C6OOH = 3046 - INTEGER, PARAMETER :: ind_PHAN = 3047 - INTEGER, PARAMETER :: ind_C530O = 3048 - INTEGER, PARAMETER :: ind_HOCO3C4OOH = 3049 - INTEGER, PARAMETER :: ind_NEBNZOLO = 3050 - INTEGER, PARAMETER :: ind_C3M3OH2PAN = 3051 - INTEGER, PARAMETER :: ind_C7MJPPAN = 3052 - INTEGER, PARAMETER :: ind_C6CO134PAN = 3053 - INTEGER, PARAMETER :: ind_MIBKCOOHO = 3054 - INTEGER, PARAMETER :: ind_CY6COCOOOH = 3055 - INTEGER, PARAMETER :: ind_IBUDIALPAN = 3056 - INTEGER, PARAMETER :: ind_C66CO = 3057 - INTEGER, PARAMETER :: ind_C125O = 3058 - INTEGER, PARAMETER :: ind_MACRNPAN = 3059 - INTEGER, PARAMETER :: ind_TLEMUCPAN = 3060 - INTEGER, PARAMETER :: ind_C8DBCO2PAN = 3061 - INTEGER, PARAMETER :: ind_C135O = 3062 - INTEGER, PARAMETER :: ind_ECO3PAN = 3063 - INTEGER, PARAMETER :: ind_C58AO = 3064 - INTEGER, PARAMETER :: ind_PTNNCATCO = 3065 - INTEGER, PARAMETER :: ind_CYHXONAO = 3066 - INTEGER, PARAMETER :: ind_C821O = 3067 - INTEGER, PARAMETER :: ind_MIBKANO3 = 3068 - INTEGER, PARAMETER :: ind_MIBKAO = 3069 - INTEGER, PARAMETER :: ind_C7PAN2 = 3070 - INTEGER, PARAMETER :: ind_C533O = 3071 - INTEGER, PARAMETER :: ind_STYRENO = 3072 - INTEGER, PARAMETER :: ind_C95O = 3073 - INTEGER, PARAMETER :: ind_NBCALO = 3074 - INTEGER, PARAMETER :: ind_ACCOMEPAN = 3075 - INTEGER, PARAMETER :: ind_IPECNO3 = 3076 - INTEGER, PARAMETER :: ind_CO3C4NO3 = 3077 - INTEGER, PARAMETER :: ind_CO25C74OOH = 3078 - INTEGER, PARAMETER :: ind_HO24C5O = 3079 - INTEGER, PARAMETER :: ind_C58O = 3080 - INTEGER, PARAMETER :: ind_C918NO3 = 3081 - INTEGER, PARAMETER :: ind_TM135OBPOH = 3082 - INTEGER, PARAMETER :: ind_IPROPOL = 3083 - INTEGER, PARAMETER :: ind_IPBENZ = 3084 - INTEGER, PARAMETER :: ind_TM124OHNO2 = 3085 - INTEGER, PARAMETER :: ind_CO346C8 = 3086 - INTEGER, PARAMETER :: ind_PTNCATECH = 3087 - INTEGER, PARAMETER :: ind_DNCRES = 3088 - INTEGER, PARAMETER :: ind_EBZOBPEROH = 3089 - INTEGER, PARAMETER :: ind_NC101CO = 3090 - INTEGER, PARAMETER :: ind_UDEC3ONE = 3091 - INTEGER, PARAMETER :: ind_NCATECHOL = 3092 - INTEGER, PARAMETER :: ind_EBNZOHNO2 = 3093 - INTEGER, PARAMETER :: ind_DMKOHO = 3094 - INTEGER, PARAMETER :: ind_OXNCATECH = 3095 - INTEGER, PARAMETER :: ind_MXYL = 3096 - INTEGER, PARAMETER :: ind_TM135B = 3097 - INTEGER, PARAMETER :: ind_PET1OHNO2 = 3098 - INTEGER, PARAMETER :: ind_ACO2H = 3099 - INTEGER, PARAMETER :: ind_IPNCATECH = 3100 - INTEGER, PARAMETER :: ind_MET1OHNO2 = 3101 - INTEGER, PARAMETER :: ind_BUTDANO3 = 3102 - INTEGER, PARAMETER :: ind_TM123OBPOH = 3103 - INTEGER, PARAMETER :: ind_MIPKAO = 3104 - INTEGER, PARAMETER :: ind_EBENZ = 3105 - INTEGER, PARAMETER :: ind_M2BUOL2NO3 = 3106 - INTEGER, PARAMETER :: ind_OETLMUCCO = 3107 - INTEGER, PARAMETER :: ind_OETLMUCNO3 = 3108 - INTEGER, PARAMETER :: ind_M3CO5C6 = 3109 - INTEGER, PARAMETER :: ind_DDEC3ONE = 3110 - INTEGER, PARAMETER :: ind_TM123OHNO2 = 3111 - INTEGER, PARAMETER :: ind_PXNCATECH = 3112 - INTEGER, PARAMETER :: ind_METHTOL = 3113 - INTEGER, PARAMETER :: ind_T123NCATEC = 3114 - INTEGER, PARAMETER :: ind_C109CO = 3115 - INTEGER, PARAMETER :: ind_MTNCATECH = 3116 - INTEGER, PARAMETER :: ind_NON3ONE = 3117 - INTEGER, PARAMETER :: ind_HEPT3ONE = 3118 - INTEGER, PARAMETER :: ind_MXNCATECH = 3119 - INTEGER, PARAMETER :: ind_DNMXYOL = 3120 - INTEGER, PARAMETER :: ind_BZOBIPEROH = 3121 - INTEGER, PARAMETER :: ind_IPBZOBPROH = 3122 - INTEGER, PARAMETER :: ind_PNCATECH = 3123 - INTEGER, PARAMETER :: ind_CO235C7 = 3124 - INTEGER, PARAMETER :: ind_MXY1OHNO2 = 3125 - INTEGER, PARAMETER :: ind_C77CO = 3126 - INTEGER, PARAMETER :: ind_OTNCATECH = 3127 - INTEGER, PARAMETER :: ind_METACETHO = 3128 - INTEGER, PARAMETER :: ind_PETHTOL = 3129 - INTEGER, PARAMETER :: ind_PETOH = 3130 - INTEGER, PARAMETER :: ind_MXYLOL = 3131 - INTEGER, PARAMETER :: ind_MPHGLYOX = 3132 - INTEGER, PARAMETER :: ind_MGLOOC = 3133 - INTEGER, PARAMETER :: ind_PXYL = 3134 - INTEGER, PARAMETER :: ind_PXYLOL = 3135 - INTEGER, PARAMETER :: ind_EBENZOL = 3136 - INTEGER, PARAMETER :: ind_DNT124BOL = 3137 - INTEGER, PARAMETER :: ind_TM124B = 3138 - INTEGER, PARAMETER :: ind_TM124OL = 3139 - INTEGER, PARAMETER :: ind_PBNZOHNO2 = 3140 - INTEGER, PARAMETER :: ind_BPINANO3 = 3141 - INTEGER, PARAMETER :: ind_T124NCATEC = 3142 - INTEGER, PARAMETER :: ind_DNOETOL = 3143 - INTEGER, PARAMETER :: ind_PBENZ = 3144 - INTEGER, PARAMETER :: ind_OXYL = 3145 - INTEGER, PARAMETER :: ind_DNPHEN = 3146 - INTEGER, PARAMETER :: ind_PHCHOOA = 3147 - INTEGER, PARAMETER :: ind_OCT3ONE = 3148 - INTEGER, PARAMETER :: ind_PBENZOL = 3149 - INTEGER, PARAMETER :: ind_PXY1OHNO2 = 3150 - INTEGER, PARAMETER :: ind_CO356C9 = 3151 - INTEGER, PARAMETER :: ind_DNPETOL = 3152 - INTEGER, PARAMETER :: ind_OET1OHNO2 = 3153 - INTEGER, PARAMETER :: ind_INCNCHO = 3154 - INTEGER, PARAMETER :: ind_MVKOOA = 3155 - INTEGER, PARAMETER :: ind_ETHACET = 3156 - INTEGER, PARAMETER :: ind_CRESOL = 3157 - INTEGER, PARAMETER :: ind_OXYLOL = 3158 - INTEGER, PARAMETER :: ind_ME2BUOLNO3 = 3159 - INTEGER, PARAMETER :: ind_INANCO = 3160 - INTEGER, PARAMETER :: ind_HOC6H4NO2 = 3161 - INTEGER, PARAMETER :: ind_ENCATECH = 3162 - INTEGER, PARAMETER :: ind_DNOXYOL = 3163 - INTEGER, PARAMETER :: ind_METOH = 3164 - INTEGER, PARAMETER :: ind_IPBNZOHNO2 = 3165 - INTEGER, PARAMETER :: ind_DEC3ONE = 3166 - INTEGER, PARAMETER :: ind_MNCATECH = 3167 - INTEGER, PARAMETER :: ind_M2CO5C6 = 3168 - INTEGER, PARAMETER :: ind_DIET35TOL = 3169 - INTEGER, PARAMETER :: ind_OXY1OHNO2 = 3170 - INTEGER, PARAMETER :: ind_CCOCOCOH = 3171 - INTEGER, PARAMETER :: ind_IPBENZOL = 3172 - INTEGER, PARAMETER :: ind_IBUTOLBNO3 = 3173 - INTEGER, PARAMETER :: ind_PBZOBPEROH = 3174 - INTEGER, PARAMETER :: ind_M3BU2OLNO3 = 3175 - INTEGER, PARAMETER :: ind_OXYMUCCO = 3176 - INTEGER, PARAMETER :: ind_OXYMUCNO3 = 3177 - INTEGER, PARAMETER :: ind_DNIPBNZOL = 3178 - INTEGER, PARAMETER :: ind_TM123B = 3179 - INTEGER, PARAMETER :: ind_TM123BOL = 3180 - INTEGER, PARAMETER :: ind_DNEBNZOL = 3181 - INTEGER, PARAMETER :: ind_DIME35EB = 3182 - INTEGER, PARAMETER :: ind_CO356C10 = 3183 - INTEGER, PARAMETER :: ind_CO356C11 = 3184 - INTEGER, PARAMETER :: ind_CO356C12 = 3185 - INTEGER, PARAMETER :: ind_EGLYOOD = 3186 - INTEGER, PARAMETER :: ind_DNPBNZOL = 3187 - INTEGER, PARAMETER :: ind_C4ME2OHNO3 = 3188 - INTEGER, PARAMETER :: ind_DNPXYOL = 3189 - INTEGER, PARAMETER :: ind_DNMETOL = 3190 - INTEGER, PARAMETER :: ind_DNT123BOL = 3191 - INTEGER, PARAMETER :: ind_OETHTOL = 3192 - INTEGER, PARAMETER :: ind_OETOH = 3193 - INTEGER, PARAMETER :: ind_ISOPDO = 3194 - INTEGER, PARAMETER :: ind_TM123OLO = 3195 - INTEGER, PARAMETER :: ind_C6CO2OHOOH = 3196 - INTEGER, PARAMETER :: ind_C5PAN19 = 3197 - INTEGER, PARAMETER :: ind_NMBOAOOH = 3198 - INTEGER, PARAMETER :: ind_TM123BPAN = 3199 - INTEGER, PARAMETER :: ind_C9M3CO = 3200 - INTEGER, PARAMETER :: ind_C57AOOH = 3201 - INTEGER, PARAMETER :: ind_C3H7CHOOB = 3202 - INTEGER, PARAMETER :: ind_MACRNBCO3H = 3203 - INTEGER, PARAMETER :: ind_C5PAN17 = 3204 - INTEGER, PARAMETER :: ind_C56OOH = 3205 - INTEGER, PARAMETER :: ind_MXYMUCPAN = 3206 - INTEGER, PARAMETER :: ind_MIBKHO4OOH = 3207 - INTEGER, PARAMETER :: ind_HO3C4OOH = 3208 - INTEGER, PARAMETER :: ind_C5DBCOCO3H = 3209 - INTEGER, PARAMETER :: ind_IPGLOOB = 3210 - INTEGER, PARAMETER :: ind_C47CO3H = 3211 - INTEGER, PARAMETER :: ind_H2M5C65NO3 = 3212 - INTEGER, PARAMETER :: ind_C137CO = 3213 - INTEGER, PARAMETER :: ind_C6OTKETOOH = 3214 - INTEGER, PARAMETER :: ind_HMACRO = 3215 - INTEGER, PARAMETER :: ind_HMACROOH = 3216 - INTEGER, PARAMETER :: ind_HIEB2OOH = 3217 - INTEGER, PARAMETER :: ind_C8PAN1 = 3218 - INTEGER, PARAMETER :: ind_DEMPHOH = 3219 - INTEGER, PARAMETER :: ind_OXYLPAN = 3220 - INTEGER, PARAMETER :: ind_C7ADCPAN = 3221 - INTEGER, PARAMETER :: ind_MPRKBOOH = 3222 - INTEGER, PARAMETER :: ind_C89PAN = 3223 - INTEGER, PARAMETER :: ind_C47PAN = 3224 - INTEGER, PARAMETER :: ind_C7DCCO3H = 3225 - INTEGER, PARAMETER :: ind_IC7DCCO3H = 3226 - INTEGER, PARAMETER :: ind_TM124MUO2H = 3227 - INTEGER, PARAMETER :: ind_HC4CHO = 3228 - INTEGER, PARAMETER :: ind_PXYLPAN = 3229 - INTEGER, PARAMETER :: ind_RGDCO2H = 3230 - INTEGER, PARAMETER :: ind_C5OHCO4OOH = 3231 - INTEGER, PARAMETER :: ind_TMBPAN = 3232 - INTEGER, PARAMETER :: ind_CHOC2CO2H = 3233 - INTEGER, PARAMETER :: ind_HMVKAO = 3234 - INTEGER, PARAMETER :: ind_NDEMPLOOH = 3235 - INTEGER, PARAMETER :: ind_INAHPAN = 3236 - INTEGER, PARAMETER :: ind_CO3H4CO3H = 3237 - INTEGER, PARAMETER :: ind_C715CO2OOH = 3238 - INTEGER, PARAMETER :: ind_C6PAN16 = 3239 - INTEGER, PARAMETER :: ind_C526NO3 = 3240 - INTEGER, PARAMETER :: ind_ISOPBO = 3241 - INTEGER, PARAMETER :: ind_C131CO = 3242 - INTEGER, PARAMETER :: ind_MBOAOOH = 3243 - INTEGER, PARAMETER :: ind_DMEPHOH = 3244 - INTEGER, PARAMETER :: ind_PROPOLNO3 = 3245 - INTEGER, PARAMETER :: ind_TM135OLO = 3246 - INTEGER, PARAMETER :: ind_HCOCH2CO2H = 3247 - INTEGER, PARAMETER :: ind_CO12C4CHO = 3248 - INTEGER, PARAMETER :: ind_C7DDCPAN = 3249 - INTEGER, PARAMETER :: ind_IEC2OOH = 3250 - INTEGER, PARAMETER :: ind_C7M3CO = 3251 - INTEGER, PARAMETER :: ind_M3BUTAL2O = 3252 - INTEGER, PARAMETER :: ind_NCRESOOH = 3253 - INTEGER, PARAMETER :: ind_ACRPAN = 3254 - INTEGER, PARAMETER :: ind_C65O = 3255 - INTEGER, PARAMETER :: ind_MBOBOOH = 3256 - INTEGER, PARAMETER :: ind_C31PAN = 3257 - INTEGER, PARAMETER :: ind_TM135MUPAN = 3258 - INTEGER, PARAMETER :: ind_C62OOH = 3259 - INTEGER, PARAMETER :: ind_C5PAN6 = 3260 - INTEGER, PARAMETER :: ind_C534OOH = 3261 - INTEGER, PARAMETER :: ind_C8M3CO = 3262 - INTEGER, PARAMETER :: ind_TM135BZOL = 3263 - INTEGER, PARAMETER :: ind_TM124MUNO3 = 3264 - INTEGER, PARAMETER :: ind_C53OH2OOH = 3265 - INTEGER, PARAMETER :: ind_C52OH3OOH = 3266 - INTEGER, PARAMETER :: ind_HIEB1OOH = 3267 - INTEGER, PARAMETER :: ind_ME3BU2OLO = 3268 - INTEGER, PARAMETER :: ind_C4CHO2O = 3269 - INTEGER, PARAMETER :: ind_C823CO = 3270 - INTEGER, PARAMETER :: ind_PETLMUCNO3 = 3271 - INTEGER, PARAMETER :: ind_C57NO3CO3H = 3272 - INTEGER, PARAMETER :: ind_C527NO3 = 3273 - INTEGER, PARAMETER :: ind_C715OOH = 3274 - INTEGER, PARAMETER :: ind_C5PAN15 = 3275 - INTEGER, PARAMETER :: ind_HMACO3H = 3276 - INTEGER, PARAMETER :: ind_IPROPOLO2H = 3277 - INTEGER, PARAMETER :: ind_C4MCNO3OOH = 3278 - INTEGER, PARAMETER :: ind_NPETOLOOH = 3279 - INTEGER, PARAMETER :: ind_MC3ODBCO3H = 3280 - INTEGER, PARAMETER :: ind_C62O = 3281 - INTEGER, PARAMETER :: ind_C10PAN1 = 3282 - INTEGER, PARAMETER :: ind_DEMPHOLO = 3283 - INTEGER, PARAMETER :: ind_C64O = 3284 - INTEGER, PARAMETER :: ind_BZEMUCNO3 = 3285 - INTEGER, PARAMETER :: ind_C527OOH = 3286 - INTEGER, PARAMETER :: ind_C53OOH = 3287 - INTEGER, PARAMETER :: ind_HEX3ONAOOH = 3288 - INTEGER, PARAMETER :: ind_C51OH2OOH = 3289 - INTEGER, PARAMETER :: ind_MC3CODBPAN = 3290 - INTEGER, PARAMETER :: ind_C612OOH = 3291 - INTEGER, PARAMETER :: ind_OXYMUCPAN = 3292 - INTEGER, PARAMETER :: ind_C618PAN = 3293 - INTEGER, PARAMETER :: ind_ACO3H = 3294 - INTEGER, PARAMETER :: ind_NDMEPLOOH = 3295 - INTEGER, PARAMETER :: ind_DMEPHOLO = 3296 - INTEGER, PARAMETER :: ind_C2H5CHOOB = 3297 - INTEGER, PARAMETER :: ind_M3CO25C6 = 3298 - INTEGER, PARAMETER :: ind_TBUTOLOOH = 3299 - INTEGER, PARAMETER :: ind_C4MCODBPAN = 3300 - INTEGER, PARAMETER :: ind_BUTAL2O = 3301 - INTEGER, PARAMETER :: ind_BUTAL2NO3 = 3302 - INTEGER, PARAMETER :: ind_EMPHPAN = 3303 - INTEGER, PARAMETER :: ind_TM123MUNO3 = 3304 - INTEGER, PARAMETER :: ind_DM124O = 3305 - INTEGER, PARAMETER :: ind_C9PAN1 = 3306 - INTEGER, PARAMETER :: ind_C9PAN2 = 3307 - INTEGER, PARAMETER :: ind_C6OH5OOH = 3308 - INTEGER, PARAMETER :: ind_C515CHO = 3309 - INTEGER, PARAMETER :: ind_PROL11MOOH = 3310 - INTEGER, PARAMETER :: ind_C6PAN13 = 3311 - INTEGER, PARAMETER :: ind_C6PAN15 = 3312 - INTEGER, PARAMETER :: ind_C1211PAN = 3313 - INTEGER, PARAMETER :: ind_MIBKBOOH = 3314 - INTEGER, PARAMETER :: ind_C23O3MCPAN = 3315 - INTEGER, PARAMETER :: ind_TM124MUPAN = 3316 - INTEGER, PARAMETER :: ind_PBZN = 3317 - INTEGER, PARAMETER :: ind_TM124BPAN = 3318 - INTEGER, PARAMETER :: ind_NPBNZOLOOH = 3319 - INTEGER, PARAMETER :: ind_NMXYOLOOH = 3320 - INTEGER, PARAMETER :: ind_NOXYOLOOH = 3321 - INTEGER, PARAMETER :: ind_METLMUCNO3 = 3322 - INTEGER, PARAMETER :: ind_C732PAN = 3323 - INTEGER, PARAMETER :: ind_HMPAN = 3324 - INTEGER, PARAMETER :: ind_MALDALCO3H = 3325 - INTEGER, PARAMETER :: ind_MACRNCO3H = 3326 - INTEGER, PARAMETER :: ind_C721PAN = 3327 - INTEGER, PARAMETER :: ind_BUTONENO3 = 3328 - INTEGER, PARAMETER :: ind_NDNEBNZLO = 3329 - INTEGER, PARAMETER :: ind_MACROOH = 3330 - INTEGER, PARAMETER :: ind_MPHCOME = 3331 - INTEGER, PARAMETER :: ind_TM135BPRO = 3332 - INTEGER, PARAMETER :: ind_M22C43O = 3333 - INTEGER, PARAMETER :: ind_MACRNCO2H = 3334 - INTEGER, PARAMETER :: ind_NORLIMO = 3335 - INTEGER, PARAMETER :: ind_C65OOH = 3336 - INTEGER, PARAMETER :: ind_CO2C4GLYOX = 3337 - INTEGER, PARAMETER :: ind_C925O = 3338 - INTEGER, PARAMETER :: ind_PXYMUCCO = 3339 - INTEGER, PARAMETER :: ind_PXYMUCNO3 = 3340 - INTEGER, PARAMETER :: ind_C62NO33CO = 3341 - INTEGER, PARAMETER :: ind_BZBIPERO = 3342 - INTEGER, PARAMETER :: ind_EMPHCOME = 3343 - INTEGER, PARAMETER :: ind_CHOOCH2O = 3344 - INTEGER, PARAMETER :: ind_PETLMUCCO = 3345 - INTEGER, PARAMETER :: ind_CO23C65O = 3346 - INTEGER, PARAMETER :: ind_NDNPXYOLO = 3347 - INTEGER, PARAMETER :: ind_H3C25C5CHO = 3348 - INTEGER, PARAMETER :: ind_C66NO35CO = 3349 - INTEGER, PARAMETER :: ind_H1CO23CHO = 3350 - INTEGER, PARAMETER :: ind_ETHENO3O = 3351 - INTEGER, PARAMETER :: ind_IPBZMUCCO = 3352 - INTEGER, PARAMETER :: ind_IPBZMUCNO3 = 3353 - INTEGER, PARAMETER :: ind_C64NO335CO = 3354 - INTEGER, PARAMETER :: ind_C515CO = 3355 - INTEGER, PARAMETER :: ind_EBZMUCCO = 3356 - INTEGER, PARAMETER :: ind_EBZMUCNO3 = 3357 - INTEGER, PARAMETER :: ind_CH3COPAN = 3358 - INTEGER, PARAMETER :: ind_MXYMUCCO = 3359 - INTEGER, PARAMETER :: ind_MXYMUCNO3 = 3360 - INTEGER, PARAMETER :: ind_DNPBNZLO = 3361 - INTEGER, PARAMETER :: ind_NDNOETOLO = 3362 - INTEGER, PARAMETER :: ind_NDNT123LO = 3363 - INTEGER, PARAMETER :: ind_C4M2NO3ONE = 3364 - INTEGER, PARAMETER :: ind_C87CO = 3365 - INTEGER, PARAMETER :: ind_CO24C53OOH = 3366 - INTEGER, PARAMETER :: ind_HEX2ONBO = 3367 - INTEGER, PARAMETER :: ind_PHCOET = 3368 - INTEGER, PARAMETER :: ind_MTBK = 3369 - INTEGER, PARAMETER :: ind_NDNPHENO = 3370 - INTEGER, PARAMETER :: ind_NDNMXYOLO = 3371 - INTEGER, PARAMETER :: ind_TLOBIPEROH = 3372 - INTEGER, PARAMETER :: ind_C118CO = 3373 - INTEGER, PARAMETER :: ind_C133CO = 3374 - INTEGER, PARAMETER :: ind_NDNCRESO = 3375 - INTEGER, PARAMETER :: ind_C63NO32CO = 3376 - INTEGER, PARAMETER :: ind_PECO = 3377 - INTEGER, PARAMETER :: ind_TLEMUCCO = 3378 - INTEGER, PARAMETER :: ind_TLEMUCNO3 = 3379 - INTEGER, PARAMETER :: ind_NIPBFUO = 3380 - INTEGER, PARAMETER :: ind_NDNT124LO = 3381 - INTEGER, PARAMETER :: ind_HO3CO6C7 = 3382 - INTEGER, PARAMETER :: ind_BUTALO = 3383 - INTEGER, PARAMETER :: ind_CO24M3C5 = 3384 - INTEGER, PARAMETER :: ind_MXYL1OOH = 3385 - INTEGER, PARAMETER :: ind_NBUTOLBO = 3386 - INTEGER, PARAMETER :: ind_COHM2CO2H = 3387 - INTEGER, PARAMETER :: ind_NDNPETOLO = 3388 - INTEGER, PARAMETER :: ind_CY6TRION = 3389 - INTEGER, PARAMETER :: ind_C816O = 3390 - INTEGER, PARAMETER :: ind_H13M3CO4C5 = 3391 - INTEGER, PARAMETER :: ind_MMALNBPAN = 3392 - INTEGER, PARAMETER :: ind_H2M2C65O = 3393 - INTEGER, PARAMETER :: ind_CH3NO3 = 3394 - INTEGER, PARAMETER :: ind_IPNNCATCO = 3395 - INTEGER, PARAMETER :: ind_NEBFUO = 3396 - INTEGER, PARAMETER :: ind_C736CO = 3397 - INTEGER, PARAMETER :: ind_NOPINAO = 3398 - INTEGER, PARAMETER :: ind_C51NO32CO = 3399 - INTEGER, PARAMETER :: ind_TL4OHNO2O = 3400 - INTEGER, PARAMETER :: ind_COHM2PAN = 3401 - INTEGER, PARAMETER :: ind_NDNOXYOLO = 3402 - INTEGER, PARAMETER :: ind_DETLBIPRO = 3403 - INTEGER, PARAMETER :: ind_IPEBO = 3404 - INTEGER, PARAMETER :: ind_EOX2EOLBO = 3405 - INTEGER, PARAMETER :: ind_TM124NO2O = 3406 - INTEGER, PARAMETER :: ind_NBZFUO = 3407 - INTEGER, PARAMETER :: ind_C6COCHOPAN = 3408 - INTEGER, PARAMETER :: ind_C53NO32CO = 3409 - INTEGER, PARAMETER :: ind_C516O = 3410 - INTEGER, PARAMETER :: ind_METLMUCCO = 3411 - INTEGER, PARAMETER :: ind_DMPHCOME = 3412 - INTEGER, PARAMETER :: ind_ISOPAOH = 3413 - INTEGER, PARAMETER :: ind_DNIPBNZLO = 3414 - INTEGER, PARAMETER :: ind_C6DIALO = 3415 - INTEGER, PARAMETER :: ind_BZEMUCCO = 3416 - INTEGER, PARAMETER :: ind_NDNMETOLO = 3417 - INTEGER, PARAMETER :: ind_C52NO33CO = 3418 - INTEGER, PARAMETER :: ind_C4ECO2O = 3419 - INTEGER, PARAMETER :: ind_C128CO = 3420 - INTEGER, PARAMETER :: ind_PNNCATECO = 3421 - INTEGER, PARAMETER :: ind_ME2BU2OLO = 3422 - INTEGER, PARAMETER :: ind_NPBFUO = 3423 - INTEGER, PARAMETER :: ind_C831O = 3424 - INTEGER, PARAMETER :: ind_C143O = 3425 - INTEGER, PARAMETER :: ind_PBZMUCCO = 3426 - INTEGER, PARAMETER :: ind_PBZMUCNO3 = 3427 - INTEGER, PARAMETER :: ind_IEPOXB = 3428 - INTEGER, PARAMETER :: ind_SC4H9O = 3429 - INTEGER, PARAMETER :: ind_C624O = 3430 - INTEGER, PARAMETER :: ind_C630CO = 3431 - INTEGER, PARAMETER :: ind_C4M3NO3ONE = 3432 - INTEGER, PARAMETER :: ind_TM124MUCCO = 3433 - INTEGER, PARAMETER :: ind_C23O3EHO = 3434 - INTEGER, PARAMETER :: ind_OXYBIPENO3 = 3435 - INTEGER, PARAMETER :: ind_C727PAN = 3436 - INTEGER, PARAMETER :: ind_C7ADICARB = 3437 - INTEGER, PARAMETER :: ind_TM135MUNO3 = 3438 - INTEGER, PARAMETER :: ind_PHIC3NO3 = 3439 - INTEGER, PARAMETER :: ind_PHIC3O = 3440 - INTEGER, PARAMETER :: ind_C4ECO2OOH = 3441 - INTEGER, PARAMETER :: ind_DM23BU2ENE = 3442 - INTEGER, PARAMETER :: ind_C58ANO3 = 3443 - INTEGER, PARAMETER :: ind_ME2BUOLOOH = 3444 - INTEGER, PARAMETER :: ind_OETLBIPNO3 = 3445 - INTEGER, PARAMETER :: ind_MALDIALOOH = 3446 - INTEGER, PARAMETER :: ind_C813NO3 = 3447 - INTEGER, PARAMETER :: ind_MACO3H = 3448 - INTEGER, PARAMETER :: ind_HPC52OOH = 3449 - INTEGER, PARAMETER :: ind_C4MCO2OH = 3450 - INTEGER, PARAMETER :: ind_C7M6CO2OOH = 3451 - INTEGER, PARAMETER :: ind_C7CO2M5OOH = 3452 - INTEGER, PARAMETER :: ind_C6DICAROOH = 3453 - INTEGER, PARAMETER :: ind_IECCHO = 3454 - INTEGER, PARAMETER :: ind_DMKOHOOH = 3455 - INTEGER, PARAMETER :: ind_PXYL1O = 3456 - INTEGER, PARAMETER :: ind_DMEBMUNO3 = 3457 - INTEGER, PARAMETER :: ind_C6DCRBBOOH = 3458 - INTEGER, PARAMETER :: ind_C42OOH = 3459 - INTEGER, PARAMETER :: ind_DETLMUNO3 = 3460 - INTEGER, PARAMETER :: ind_EMPHO = 3461 - INTEGER, PARAMETER :: ind_MACROHOOH = 3462 - INTEGER, PARAMETER :: ind_C4MOHOCO3H = 3463 - INTEGER, PARAMETER :: ind_DHPMVK = 3464 - INTEGER, PARAMETER :: ind_CBUT2ENE = 3465 - INTEGER, PARAMETER :: ind_TBUT2ENE = 3466 - INTEGER, PARAMETER :: ind_C5O5OHCO3H = 3467 - INTEGER, PARAMETER :: ind_C6M5CO2OOH = 3468 - INTEGER, PARAMETER :: ind_MC6CO2OOH = 3469 - INTEGER, PARAMETER :: ind_IEACHO = 3470 - INTEGER, PARAMETER :: ind_CO2M3C4CHO = 3471 - INTEGER, PARAMETER :: ind_EOX2EOL = 3472 - INTEGER, PARAMETER :: ind_C6HOCOOOH = 3473 - INTEGER, PARAMETER :: ind_DMPHO = 3474 - INTEGER, PARAMETER :: ind_C4CODBCO3H = 3475 - INTEGER, PARAMETER :: ind_CO2H3CO3H = 3476 - INTEGER, PARAMETER :: ind_MMALNBCO2H = 3477 - INTEGER, PARAMETER :: ind_NC4DCO2H = 3478 - INTEGER, PARAMETER :: ind_CH2OOC = 3479 - INTEGER, PARAMETER :: ind_C629OOH = 3480 - INTEGER, PARAMETER :: ind_C6H5C2H4O2 = 3481 - INTEGER, PARAMETER :: ind_T123CATECH = 3482 - INTEGER, PARAMETER :: ind_H3NCO2CHO = 3483 - INTEGER, PARAMETER :: ind_C54CO = 3484 - INTEGER, PARAMETER :: ind_INDOOH = 3485 - INTEGER, PARAMETER :: ind_TM123MUCCO = 3486 - INTEGER, PARAMETER :: ind_TM124MUO3H = 3487 - INTEGER, PARAMETER :: ind_VGLYOX = 3488 - INTEGER, PARAMETER :: ind_PETOLO2 = 3489 - INTEGER, PARAMETER :: ind_NC524O = 3490 - INTEGER, PARAMETER :: ind_OXYOLO2 = 3491 - INTEGER, PARAMETER :: ind_TMBO2 = 3492 - INTEGER, PARAMETER :: ind_C113CO = 3493 - INTEGER, PARAMETER :: ind_T124CATECH = 3494 - INTEGER, PARAMETER :: ind_C520OOH = 3495 - INTEGER, PARAMETER :: ind_CH2CHCH2O2 = 3496 - INTEGER, PARAMETER :: ind_C143CO = 3497 - INTEGER, PARAMETER :: ind_CO23C6 = 3498 - INTEGER, PARAMETER :: ind_METCATECH = 3499 - INTEGER, PARAMETER :: ind_MMALNACO2H = 3500 - INTEGER, PARAMETER :: ind_C526OOH = 3501 - INTEGER, PARAMETER :: ind_CONM2CO3H = 3502 - INTEGER, PARAMETER :: ind_OETOLO2 = 3503 - INTEGER, PARAMETER :: ind_HO3CO46C8 = 3504 - INTEGER, PARAMETER :: ind_HEX2ONE = 3505 - INTEGER, PARAMETER :: ind_OETCATECH = 3506 - INTEGER, PARAMETER :: ind_PXYLO2 = 3507 - INTEGER, PARAMETER :: ind_OXYCATECH = 3508 - INTEGER, PARAMETER :: ind_MXYLO2 = 3509 - INTEGER, PARAMETER :: ind_EOCOCHO = 3510 - INTEGER, PARAMETER :: ind_METOLO2 = 3511 - INTEGER, PARAMETER :: ind_PXYCATECH = 3512 - INTEGER, PARAMETER :: ind_C23C54CHO = 3513 - INTEGER, PARAMETER :: ind_HMVKBOOH = 3514 - INTEGER, PARAMETER :: ind_COHM2CO3H = 3515 - INTEGER, PARAMETER :: ind_BCLKBOC = 3516 - INTEGER, PARAMETER :: ind_BCALBOC = 3517 - INTEGER, PARAMETER :: ind_TM124OLO2 = 3518 - INTEGER, PARAMETER :: ind_OXYFUONE = 3519 - INTEGER, PARAMETER :: ind_C4OCCOHNO3 = 3520 - INTEGER, PARAMETER :: ind_TM123BO2 = 3521 - INTEGER, PARAMETER :: ind_C93CO = 3522 - INTEGER, PARAMETER :: ind_OXYLO2 = 3523 - INTEGER, PARAMETER :: ind_C537OOH = 3524 - INTEGER, PARAMETER :: ind_TM124BO2 = 3525 - INTEGER, PARAMETER :: ind_NCO23CHO = 3526 - INTEGER, PARAMETER :: ind_PETLBIPRO2 = 3527 - INTEGER, PARAMETER :: ind_C78OOH = 3528 - INTEGER, PARAMETER :: ind_CONM2PAN = 3529 - INTEGER, PARAMETER :: ind_CO25C6 = 3530 - INTEGER, PARAMETER :: ind_MXYOLO2 = 3531 - INTEGER, PARAMETER :: ind_MMALNAPAN = 3532 - INTEGER, PARAMETER :: ind_C3M3CHONO3 = 3533 - INTEGER, PARAMETER :: ind_PXYOLO2 = 3534 - INTEGER, PARAMETER :: ind_C6OTRIKET = 3535 - INTEGER, PARAMETER :: ind_MIPKAOH = 3536 - INTEGER, PARAMETER :: ind_HO2CO35C7 = 3537 - INTEGER, PARAMETER :: ind_CRESO2 = 3538 - INTEGER, PARAMETER :: ind_IPBENZOLO2 = 3539 - INTEGER, PARAMETER :: ind_BUTALO2H = 3540 - INTEGER, PARAMETER :: ind_NC4EDCO2H = 3541 - INTEGER, PARAMETER :: ind_C4COMEOH = 3542 - INTEGER, PARAMETER :: ind_PHGLYOX = 3543 - INTEGER, PARAMETER :: ind_C103CO = 3544 - INTEGER, PARAMETER :: ind_MCATECHOL = 3545 - INTEGER, PARAMETER :: ind_C23O3CHO = 3546 - INTEGER, PARAMETER :: ind_C65OH = 3547 - INTEGER, PARAMETER :: ind_C123CO = 3548 - INTEGER, PARAMETER :: ind_INDHCHO = 3549 - INTEGER, PARAMETER :: ind_C59OOH = 3550 - INTEGER, PARAMETER :: ind_PETCATECH = 3551 - INTEGER, PARAMETER :: ind_INAOOH = 3552 - INTEGER, PARAMETER :: ind_TMB2FUONE = 3553 - INTEGER, PARAMETER :: ind_PBENZOLO2 = 3554 - INTEGER, PARAMETER :: ind_MMALNACO3H = 3555 - INTEGER, PARAMETER :: ind_MC6OTRIKET = 3556 - INTEGER, PARAMETER :: ind_C513CO = 3557 - INTEGER, PARAMETER :: ind_C532CO = 3558 - INTEGER, PARAMETER :: ind_C109OH = 3559 - INTEGER, PARAMETER :: ind_MXYCATECH = 3560 - INTEGER, PARAMETER :: ind_C51OH2CO = 3561 - INTEGER, PARAMETER :: ind_EBENZOLO2 = 3562 - INTEGER, PARAMETER :: ind_MMALNBCO3H = 3563 - INTEGER, PARAMETER :: ind_C144O = 3564 - INTEGER, PARAMETER :: ind_C7EDCO = 3565 - INTEGER, PARAMETER :: ind_C4CO2O = 3566 - INTEGER, PARAMETER :: ind_TM123MUCO = 3567 - INTEGER, PARAMETER :: ind_O = 3568 - INTEGER, PARAMETER :: ind_TM135MUCO = 3569 - INTEGER, PARAMETER :: ind_PETLMUCO = 3570 - INTEGER, PARAMETER :: ind_C6CO4DB = 3571 - INTEGER, PARAMETER :: ind_C52NO31O = 3572 - INTEGER, PARAMETER :: ind_OXYMUCO = 3573 - INTEGER, PARAMETER :: ind_NDNPBNZLO = 3574 - INTEGER, PARAMETER :: ind_C4M3NO32O = 3575 - INTEGER, PARAMETER :: ind_BZEMUCO = 3576 - INTEGER, PARAMETER :: ind_PRONO3BO = 3577 - INTEGER, PARAMETER :: ind_C7BDCO = 3578 - INTEGER, PARAMETER :: ind_PNCATECO = 3579 - INTEGER, PARAMETER :: ind_C6COHOCHO = 3580 - INTEGER, PARAMETER :: ind_DMEBMUCO = 3581 - INTEGER, PARAMETER :: ind_C3MCODBCO2 = 3582 - INTEGER, PARAMETER :: ind_MIBK = 3583 - INTEGER, PARAMETER :: ind_TM124MUCO = 3584 - INTEGER, PARAMETER :: ind_PRONO3AO = 3585 - INTEGER, PARAMETER :: ind_NC526O = 3586 - INTEGER, PARAMETER :: ind_C42AOH = 3587 - INTEGER, PARAMETER :: ind_EBZMUCO = 3588 - INTEGER, PARAMETER :: ind_TLEMUCO = 3589 - INTEGER, PARAMETER :: ind_MC3ODBCO2H = 3590 - INTEGER, PARAMETER :: ind_C512O = 3591 - INTEGER, PARAMETER :: ind_C4NO32M1O = 3592 - INTEGER, PARAMETER :: ind_CO4DBC9 = 3593 - INTEGER, PARAMETER :: ind_M2BK = 3594 - INTEGER, PARAMETER :: ind_CO4DBC8 = 3595 - INTEGER, PARAMETER :: ind_NDNIPBZLO = 3596 - INTEGER, PARAMETER :: ind_IPNCATECO = 3597 - INTEGER, PARAMETER :: ind_MPRBNO3O = 3598 - INTEGER, PARAMETER :: ind_MXYOBPEROH = 3599 - INTEGER, PARAMETER :: ind_DETLMUCO = 3600 - INTEGER, PARAMETER :: ind_HMVKNO3 = 3601 - INTEGER, PARAMETER :: ind_HO13CO4C5 = 3602 - INTEGER, PARAMETER :: ind_MBOBCO = 3603 - INTEGER, PARAMETER :: ind_MOXYCOCHO = 3604 - INTEGER, PARAMETER :: ind_PXYMUCO = 3605 - INTEGER, PARAMETER :: ind_OETLMUCO = 3606 - INTEGER, PARAMETER :: ind_CYC613DION = 3607 - INTEGER, PARAMETER :: ind_MVKOHAOH = 3608 - INTEGER, PARAMETER :: ind_DIEK = 3609 - INTEGER, PARAMETER :: ind_METLMUCO = 3610 - INTEGER, PARAMETER :: ind_C520O = 3611 - INTEGER, PARAMETER :: ind_CHOC3DIOL = 3612 - INTEGER, PARAMETER :: ind_C1012O = 3613 - INTEGER, PARAMETER :: ind_MXYMUCO = 3614 - INTEGER, PARAMETER :: ind_C629O = 3615 - INTEGER, PARAMETER :: ind_C61CO = 3616 - INTEGER, PARAMETER :: ind_BCKSOZ = 3617 - INTEGER, PARAMETER :: ind_C535OOH = 3618 - INTEGER, PARAMETER :: ind_ETHFORM = 3619 - INTEGER, PARAMETER :: ind_NC524OOH = 3620 - INTEGER, PARAMETER :: ind_C524OOH = 3621 - INTEGER, PARAMETER :: ind_TM123OXMUC = 3622 - INTEGER, PARAMETER :: ind_MIBKOHAOOH = 3623 - INTEGER, PARAMETER :: ind_C7M2CO5OOH = 3624 - INTEGER, PARAMETER :: ind_INB1OOH = 3625 - INTEGER, PARAMETER :: ind_CHOOCHO = 3626 - INTEGER, PARAMETER :: ind_TM123OLO2 = 3627 - INTEGER, PARAMETER :: ind_INCCO = 3628 - INTEGER, PARAMETER :: ind_C816CO = 3629 - INTEGER, PARAMETER :: ind_GLYOOC = 3630 - INTEGER, PARAMETER :: ind_NDMEPHOLO2 = 3631 - INTEGER, PARAMETER :: ind_DMEPHOLO2 = 3632 - INTEGER, PARAMETER :: ind_C828CHO = 3633 - INTEGER, PARAMETER :: ind_NISOPO2 = 3634 - INTEGER, PARAMETER :: ind_INB1CO = 3635 - INTEGER, PARAMETER :: ind_NBUTDAO2 = 3636 - INTEGER, PARAMETER :: ind_CH3OCH2O2 = 3637 - INTEGER, PARAMETER :: ind_C131CO2H = 3638 - INTEGER, PARAMETER :: ind_C615CO = 3639 - INTEGER, PARAMETER :: ind_MXYLAL = 3640 - INTEGER, PARAMETER :: ind_NTM135OLO2 = 3641 - INTEGER, PARAMETER :: ind_C624CO = 3642 - INTEGER, PARAMETER :: ind_OXYLAL = 3643 - INTEGER, PARAMETER :: ind_HOCOC4DIAL = 3644 - INTEGER, PARAMETER :: ind_TMBCHO = 3645 - INTEGER, PARAMETER :: ind_BCSOZ = 3646 - INTEGER, PARAMETER :: ind_MGLYOOA = 3647 - INTEGER, PARAMETER :: ind_TM135OLO2 = 3648 - INTEGER, PARAMETER :: ind_C6H5CH2CHO = 3649 - INTEGER, PARAMETER :: ind_DEMPHOLO2 = 3650 - INTEGER, PARAMETER :: ind_C3H8 = 3651 - INTEGER, PARAMETER :: ind_CH3C2H2O2 = 3652 - INTEGER, PARAMETER :: ind_CYHXOLACO = 3653 - INTEGER, PARAMETER :: ind_C4NO3COOOH = 3654 - INTEGER, PARAMETER :: ind_TM124BCHO = 3655 - INTEGER, PARAMETER :: ind_DIEKAOH = 3656 - INTEGER, PARAMETER :: ind_PXYLAL = 3657 - INTEGER, PARAMETER :: ind_NBUTDBO2 = 3658 - INTEGER, PARAMETER :: ind_NDEMPHOLO2 = 3659 - INTEGER, PARAMETER :: ind_C4CONO3OOH = 3660 - INTEGER, PARAMETER :: ind_TM123BCHO = 3661 - INTEGER, PARAMETER :: ind_CO3C5CHO = 3662 - INTEGER, PARAMETER :: ind_NTM123OLO2 = 3663 - INTEGER, PARAMETER :: ind_C7ADCCO2H = 3664 - INTEGER, PARAMETER :: ind_NOETOLO2 = 3665 - INTEGER, PARAMETER :: ind_NOETOLO = 3666 - INTEGER, PARAMETER :: ind_HM23C4O2 = 3667 - INTEGER, PARAMETER :: ind_C717O2 = 3668 - INTEGER, PARAMETER :: ind_BZFUO2 = 3669 - INTEGER, PARAMETER :: ind_BUTDAO2 = 3670 - INTEGER, PARAMETER :: ind_C4ME2NO3O2 = 3671 - INTEGER, PARAMETER :: ind_CONM2CO2H = 3672 - INTEGER, PARAMETER :: ind_C6PRCO4DB = 3673 - INTEGER, PARAMETER :: ind_C75O2 = 3674 - INTEGER, PARAMETER :: ind_PEBQO2 = 3675 - INTEGER, PARAMETER :: ind_ACETC2H4O2 = 3676 - INTEGER, PARAMETER :: ind_NPXYFUO2 = 3677 - INTEGER, PARAMETER :: ind_C111O2 = 3678 - INTEGER, PARAMETER :: ind_NMXYQO2 = 3679 - INTEGER, PARAMETER :: ind_NMETLQO2 = 3680 - INTEGER, PARAMETER :: ind_C7ECO4DB = 3681 - INTEGER, PARAMETER :: ind_HO14CO2C4 = 3682 - INTEGER, PARAMETER :: ind_HO2CO4CHO = 3683 - INTEGER, PARAMETER :: ind_IPCATECHOL = 3684 - INTEGER, PARAMETER :: ind_NPTLQO2 = 3685 - INTEGER, PARAMETER :: ind_C1011O2 = 3686 - INTEGER, PARAMETER :: ind_NMEBFUO2 = 3687 - INTEGER, PARAMETER :: ind_H3M3C6O2 = 3688 - INTEGER, PARAMETER :: ind_CYHEXONE = 3689 - INTEGER, PARAMETER :: ind_HO3C116O2 = 3690 - INTEGER, PARAMETER :: ind_HO3C126O2 = 3691 - INTEGER, PARAMETER :: ind_NTLFUO2 = 3692 - INTEGER, PARAMETER :: ind_C4MALOHOOH = 3693 - INTEGER, PARAMETER :: ind_C812O2 = 3694 - INTEGER, PARAMETER :: ind_PXYFUO2 = 3695 - INTEGER, PARAMETER :: ind_PBFUO2 = 3696 - INTEGER, PARAMETER :: ind_OXYQO2 = 3697 - INTEGER, PARAMETER :: ind_C1211O2 = 3698 - INTEGER, PARAMETER :: ind_PTLQO2 = 3699 - INTEGER, PARAMETER :: ind_INDO = 3700 - INTEGER, PARAMETER :: ind_PCATECHOL = 3701 - INTEGER, PARAMETER :: ind_C8M2CO6OOH = 3702 - INTEGER, PARAMETER :: ind_C823O2 = 3703 - INTEGER, PARAMETER :: ind_C121O2 = 3704 - INTEGER, PARAMETER :: ind_MXYFUO2 = 3705 - INTEGER, PARAMETER :: ind_C619O2 = 3706 - INTEGER, PARAMETER :: ind_C536OOH = 3707 - INTEGER, PARAMETER :: ind_BIACETOOH = 3708 - INTEGER, PARAMETER :: ind_C6CO4MEDB = 3709 - INTEGER, PARAMETER :: ind_C914O2 = 3710 - INTEGER, PARAMETER :: ind_PPRBQO2 = 3711 - INTEGER, PARAMETER :: ind_MALDIALCO2 = 3712 - INTEGER, PARAMETER :: ind_NEBFUO2 = 3713 - INTEGER, PARAMETER :: ind_MXYQO2 = 3714 - INTEGER, PARAMETER :: ind_C718O2 = 3715 - INTEGER, PARAMETER :: ind_ME3CO2BUOL = 3716 - INTEGER, PARAMETER :: ind_C6CYTONO2 = 3717 - INTEGER, PARAMETER :: ind_HO2C6O2 = 3718 - INTEGER, PARAMETER :: ind_NC72O2 = 3719 - INTEGER, PARAMETER :: ind_C9DCO2 = 3720 - INTEGER, PARAMETER :: ind_C4ME2OHO2 = 3721 - INTEGER, PARAMETER :: ind_C830O2 = 3722 - INTEGER, PARAMETER :: ind_C7DDCCO2 = 3723 - INTEGER, PARAMETER :: ind_C44O2 = 3724 - INTEGER, PARAMETER :: ind_TMB1FUO2 = 3725 - INTEGER, PARAMETER :: ind_C5OCO3M = 3726 - INTEGER, PARAMETER :: ind_EBFUO2 = 3727 - INTEGER, PARAMETER :: ind_NBZFUO2 = 3728 - INTEGER, PARAMETER :: ind_C6CO4M2DB = 3729 - INTEGER, PARAMETER :: ind_C710O2 = 3730 - INTEGER, PARAMETER :: ind_HO3C106O2 = 3731 - INTEGER, PARAMETER :: ind_C6ETCO4DB = 3732 - INTEGER, PARAMETER :: ind_NOPINBO2 = 3733 - INTEGER, PARAMETER :: ind_HCOC5 = 3734 - INTEGER, PARAMETER :: ind_MPRKAOH = 3735 - INTEGER, PARAMETER :: ind_C1014CO = 3736 - INTEGER, PARAMETER :: ind_C1014O = 3737 - INTEGER, PARAMETER :: ind_NIPRBQO2 = 3738 - INTEGER, PARAMETER :: ind_NMXYFUO2 = 3739 - INTEGER, PARAMETER :: ind_PBZQO2 = 3740 - INTEGER, PARAMETER :: ind_C97O2 = 3741 - INTEGER, PARAMETER :: ind_C8CO4DB = 3742 - INTEGER, PARAMETER :: ind_C732O2 = 3743 - INTEGER, PARAMETER :: ind_NAPINBO = 3744 - INTEGER, PARAMETER :: ind_NC101O2 = 3745 - INTEGER, PARAMETER :: ind_DMMALYO2 = 3746 - INTEGER, PARAMETER :: ind_H2M2CO5C6 = 3747 - INTEGER, PARAMETER :: ind_C14O3ECHO = 3748 - INTEGER, PARAMETER :: ind_HO3C86O2 = 3749 - INTEGER, PARAMETER :: ind_C514O2 = 3750 - INTEGER, PARAMETER :: ind_HO3C96O2 = 3751 - INTEGER, PARAMETER :: ind_TLFUO2 = 3752 - INTEGER, PARAMETER :: ind_PETLQO2 = 3753 - INTEGER, PARAMETER :: ind_PXYBIPERO = 3754 - INTEGER, PARAMETER :: ind_MBOACO = 3755 - INTEGER, PARAMETER :: ind_C6CO23HO5 = 3756 - INTEGER, PARAMETER :: ind_CO2HO3C6 = 3757 - INTEGER, PARAMETER :: ind_HO1C4O2 = 3758 - INTEGER, PARAMETER :: ind_HO1CO24C6 = 3759 - INTEGER, PARAMETER :: ind_NC71O2 = 3760 - INTEGER, PARAMETER :: ind_C921O2 = 3761 - INTEGER, PARAMETER :: ind_IPBFUO2 = 3762 - INTEGER, PARAMETER :: ind_NMVK = 3763 - INTEGER, PARAMETER :: ind_C1013O2 = 3764 - INTEGER, PARAMETER :: ind_C4MCODBCO2 = 3765 - INTEGER, PARAMETER :: ind_C101O2 = 3766 - INTEGER, PARAMETER :: ind_C42NO33O = 3767 - INTEGER, PARAMETER :: ind_C91O2 = 3768 - INTEGER, PARAMETER :: ind_PXYQO2 = 3769 - INTEGER, PARAMETER :: ind_OETLQO2 = 3770 - INTEGER, PARAMETER :: ind_TM124QO2 = 3771 - INTEGER, PARAMETER :: ind_NPBFUO2 = 3772 - INTEGER, PARAMETER :: ind_C14O3PCHO = 3773 - INTEGER, PARAMETER :: ind_NIPBFUO2 = 3774 - INTEGER, PARAMETER :: ind_C14O3IPCHO = 3775 - INTEGER, PARAMETER :: ind_C6H5CH2O2 = 3776 - INTEGER, PARAMETER :: ind_HO2CO5C7 = 3777 - INTEGER, PARAMETER :: ind_HO2M2C5O2 = 3778 - INTEGER, PARAMETER :: ind_M2PECO = 3779 - INTEGER, PARAMETER :: ind_CO24M3C5OH = 3780 - INTEGER, PARAMETER :: ind_CO3C85O2 = 3781 - INTEGER, PARAMETER :: ind_METLQO2 = 3782 - INTEGER, PARAMETER :: ind_C7CO4DB = 3783 - INTEGER, PARAMETER :: ind_CYC6DIONO2 = 3784 - INTEGER, PARAMETER :: ind_CO3C75O2 = 3785 - INTEGER, PARAMETER :: ind_PHENO2 = 3786 - INTEGER, PARAMETER :: ind_C6IPRCO4DB = 3787 - INTEGER, PARAMETER :: ind_MEBFUO2 = 3788 - INTEGER, PARAMETER :: ind_C137O2 = 3789 - INTEGER, PARAMETER :: ind_DE35TO2 = 3790 - INTEGER, PARAMETER :: ind_NMETOLO2 = 3791 - INTEGER, PARAMETER :: ind_CO2C54CHO = 3792 - INTEGER, PARAMETER :: ind_TOL1O = 3793 - INTEGER, PARAMETER :: ind_IPBZBIPRO2 = 3794 - INTEGER, PARAMETER :: ind_IPBZBIPRO = 3795 - INTEGER, PARAMETER :: ind_NMXYOLO2 = 3796 - INTEGER, PARAMETER :: ind_ETOLO2 = 3797 - INTEGER, PARAMETER :: ind_METLBIPRO2 = 3798 - INTEGER, PARAMETER :: ind_NPBNZOLO2 = 3799 - INTEGER, PARAMETER :: ind_C7DCCO2H = 3800 - INTEGER, PARAMETER :: ind_C527O2 = 3801 - INTEGER, PARAMETER :: ind_PETLBIPRO = 3802 - INTEGER, PARAMETER :: ind_TM123BPRO2 = 3803 - INTEGER, PARAMETER :: ind_PBZBIPERO2 = 3804 - INTEGER, PARAMETER :: ind_PBZBIPERO = 3805 - INTEGER, PARAMETER :: ind_NBPINBO2 = 3806 - INTEGER, PARAMETER :: ind_PHC3O2 = 3807 - INTEGER, PARAMETER :: ind_NPXYOLO2 = 3808 - INTEGER, PARAMETER :: ind_HCOCO = 3809 - INTEGER, PARAMETER :: ind_EMPHCOMO2 = 3810 - INTEGER, PARAMETER :: ind_EBZBIPERO2 = 3811 - INTEGER, PARAMETER :: ind_EBZBIPERO = 3812 - INTEGER, PARAMETER :: ind_NEBNZOLO2 = 3813 - INTEGER, PARAMETER :: ind_MPHCOMEO2 = 3814 - INTEGER, PARAMETER :: ind_NIPBNZOLO2 = 3815 - INTEGER, PARAMETER :: ind_IC7DCCO2H = 3816 - INTEGER, PARAMETER :: ind_DMEBIPRO2 = 3817 - INTEGER, PARAMETER :: ind_DMEBIPRO = 3818 - INTEGER, PARAMETER :: ind_DM35EBO2 = 3819 - INTEGER, PARAMETER :: ind_NOXYOLO2 = 3820 - INTEGER, PARAMETER :: ind_C5DBCOCO2H = 3821 - INTEGER, PARAMETER :: ind_H2M4CO5C6 = 3822 - INTEGER, PARAMETER :: ind_TLBIPERO2 = 3823 - INTEGER, PARAMETER :: ind_TLBIPERO = 3824 - INTEGER, PARAMETER :: ind_NPETOLO2 = 3825 - INTEGER, PARAMETER :: ind_METLBIPRO = 3826 - INTEGER, PARAMETER :: ind_NCRESO2 = 3827 - INTEGER, PARAMETER :: ind_NTM124OLO2 = 3828 - INTEGER, PARAMETER :: ind_C3M2COCO2H = 3829 - INTEGER, PARAMETER :: ind_CATECHOL = 3830 - INTEGER, PARAMETER :: ind_ECATECHOL = 3831 - INTEGER, PARAMETER :: ind_C7BDICARB = 3832 - INTEGER, PARAMETER :: ind_OETLPOXMUC = 3833 - INTEGER, PARAMETER :: ind_OXYEPOXMUC = 3834 - INTEGER, PARAMETER :: ind_INCNO3 = 3835 - INTEGER, PARAMETER :: ind_MTBKO2 = 3836 - INTEGER, PARAMETER :: ind_HMACRO2 = 3837 - INTEGER, PARAMETER :: ind_C922O2 = 3838 - INTEGER, PARAMETER :: ind_C925O2 = 3839 - INTEGER, PARAMETER :: ind_NC826O2 = 3840 - INTEGER, PARAMETER :: ind_C928O2 = 3841 - INTEGER, PARAMETER :: ind_C63NO32O = 3842 - INTEGER, PARAMETER :: ind_HEX3ONE = 3843 - INTEGER, PARAMETER :: ind_NBCKO2 = 3844 - INTEGER, PARAMETER :: ind_C810O2 = 3845 - INTEGER, PARAMETER :: ind_C621O2 = 3846 - INTEGER, PARAMETER :: ind_IBUTALBO2 = 3847 - INTEGER, PARAMETER :: ind_C730O2 = 3848 - INTEGER, PARAMETER :: ind_C519CHO = 3849 - INTEGER, PARAMETER :: ind_LIMALO2 = 3850 - INTEGER, PARAMETER :: ind_M3C4CHO = 3851 - INTEGER, PARAMETER :: ind_NOPINAO2 = 3852 - INTEGER, PARAMETER :: ind_C7DDCO2 = 3853 - INTEGER, PARAMETER :: ind_HM33C4O2 = 3854 - INTEGER, PARAMETER :: ind_C1310O2 = 3855 - INTEGER, PARAMETER :: ind_M22C3CHO = 3856 - INTEGER, PARAMETER :: ind_CO3C54CHO = 3857 - INTEGER, PARAMETER :: ind_C811O2 = 3858 - INTEGER, PARAMETER :: ind_HM22C4O2 = 3859 - INTEGER, PARAMETER :: ind_C7CO3OHO2 = 3860 - INTEGER, PARAMETER :: ind_HO13C3CHO = 3861 - INTEGER, PARAMETER :: ind_CO25C6CHO = 3862 - INTEGER, PARAMETER :: ind_LIMAO2 = 3863 - INTEGER, PARAMETER :: ind_C525O2 = 3864 - INTEGER, PARAMETER :: ind_NC51O2 = 3865 - INTEGER, PARAMETER :: ind_NSTYRENO2 = 3866 - INTEGER, PARAMETER :: ind_LIMBO2 = 3867 - INTEGER, PARAMETER :: ind_MIPK = 3868 - INTEGER, PARAMETER :: ind_HO2MC5O2 = 3869 - INTEGER, PARAMETER :: ind_HO1C6O2 = 3870 - INTEGER, PARAMETER :: ind_C711O2 = 3871 - INTEGER, PARAMETER :: ind_LMKAO2 = 3872 - INTEGER, PARAMETER :: ind_H2MC5O2 = 3873 - INTEGER, PARAMETER :: ind_C516O2 = 3874 - INTEGER, PARAMETER :: ind_C54CHO = 3875 - INTEGER, PARAMETER :: ind_NLIMALO2 = 3876 - INTEGER, PARAMETER :: ind_M2C43CHO = 3877 - INTEGER, PARAMETER :: ind_C51NO32O = 3878 - INTEGER, PARAMETER :: ind_CO2M33CHO = 3879 - INTEGER, PARAMETER :: ind_C122O2 = 3880 - INTEGER, PARAMETER :: ind_C92O2 = 3881 - INTEGER, PARAMETER :: ind_C1213O2 = 3882 - INTEGER, PARAMETER :: ind_BCALO2 = 3883 - INTEGER, PARAMETER :: ind_C4CHOBO2 = 3884 - INTEGER, PARAMETER :: ind_C52O2 = 3885 - INTEGER, PARAMETER :: ind_C1313O2 = 3886 - INTEGER, PARAMETER :: ind_C4M3NO31O = 3887 - INTEGER, PARAMETER :: ind_C4MCONO3O2 = 3888 - INTEGER, PARAMETER :: ind_M2BKBO2 = 3889 - INTEGER, PARAMETER :: ind_C1312O2 = 3890 - INTEGER, PARAMETER :: ind_NBCO2 = 3891 - INTEGER, PARAMETER :: ind_MIBKHO4CHO = 3892 - INTEGER, PARAMETER :: ind_HO2C5O2 = 3893 - INTEGER, PARAMETER :: ind_M23C43O2 = 3894 - INTEGER, PARAMETER :: ind_NC623O2 = 3895 - INTEGER, PARAMETER :: ind_C23O3ECHO = 3896 - INTEGER, PARAMETER :: ind_C5CONO34O = 3897 - INTEGER, PARAMETER :: ind_BCCO2 = 3898 - INTEGER, PARAMETER :: ind_C613O2 = 3899 - INTEGER, PARAMETER :: ind_EOX2ETCHO = 3900 - INTEGER, PARAMETER :: ind_C1311O2 = 3901 - INTEGER, PARAMETER :: ind_C1215O2 = 3902 - INTEGER, PARAMETER :: ind_NPHENO2 = 3903 - INTEGER, PARAMETER :: ind_C6CONO34O = 3904 - INTEGER, PARAMETER :: ind_NC102O2 = 3905 - INTEGER, PARAMETER :: ind_CO25C7 = 3906 - INTEGER, PARAMETER :: ind_NORLIMO2 = 3907 - INTEGER, PARAMETER :: ind_C731O2 = 3908 - INTEGER, PARAMETER :: ind_MC4CONO3O = 3909 - INTEGER, PARAMETER :: ind_C62NO33O = 3910 - INTEGER, PARAMETER :: ind_C23O3CCHO = 3911 - INTEGER, PARAMETER :: ind_C71O2 = 3912 - INTEGER, PARAMETER :: ind_C616O = 3913 - INTEGER, PARAMETER :: ind_C23O3MCHO = 3914 - INTEGER, PARAMETER :: ind_HOBUT2CHO = 3915 - INTEGER, PARAMETER :: ind_C112O2 = 3916 - INTEGER, PARAMETER :: ind_HO3CO6C8 = 3917 - INTEGER, PARAMETER :: ind_C5CO243OH = 3918 - INTEGER, PARAMETER :: ind_C102O2 = 3919 - INTEGER, PARAMETER :: ind_BCKAO2 = 3920 - INTEGER, PARAMETER :: ind_APINAO2 = 3921 - INTEGER, PARAMETER :: ind_C53NO32O = 3922 - INTEGER, PARAMETER :: ind_HOIBUTCHO = 3923 - INTEGER, PARAMETER :: ind_M33C3CHO = 3924 - INTEGER, PARAMETER :: ind_C66NO35O = 3925 - INTEGER, PARAMETER :: ind_CO2HOC61O2 = 3926 - INTEGER, PARAMETER :: ind_LMKBO2 = 3927 - INTEGER, PARAMETER :: ind_NC1313O2 = 3928 - INTEGER, PARAMETER :: ind_MACRNB = 3929 - INTEGER, PARAMETER :: ind_C4MCO2O = 3930 - INTEGER, PARAMETER :: ind_C4MCO2OOH = 3931 - INTEGER, PARAMETER :: ind_HO1C5O2 = 3932 - INTEGER, PARAMETER :: ind_CO2N3CHO = 3933 - INTEGER, PARAMETER :: ind_C43NO34O = 3934 - INTEGER, PARAMETER :: ind_H13C43CHO = 3935 - INTEGER, PARAMETER :: ind_APINBO2 = 3936 - INTEGER, PARAMETER :: ind_NDMMALYO2 = 3937 - INTEGER, PARAMETER :: ind_HO24C4CHO = 3938 - INTEGER, PARAMETER :: ind_C510O2 = 3939 - INTEGER, PARAMETER :: ind_NLIMO2 = 3940 - INTEGER, PARAMETER :: ind_C76O2 = 3941 - INTEGER, PARAMETER :: ind_BU1ENO3O = 3942 - INTEGER, PARAMETER :: ind_NAPINAO2 = 3943 - INTEGER, PARAMETER :: ind_EIPKAO2 = 3944 - INTEGER, PARAMETER :: ind_NTMB1FUO2 = 3945 - INTEGER, PARAMETER :: ind_H3M3C5CHO = 3946 - INTEGER, PARAMETER :: ind_C88CHO = 3947 - INTEGER, PARAMETER :: ind_C611O2 = 3948 - INTEGER, PARAMETER :: ind_NC728O2 = 3949 - INTEGER, PARAMETER :: ind_C728O2 = 3950 - INTEGER, PARAMETER :: ind_C1214O2 = 3951 - INTEGER, PARAMETER :: ind_CO1C6O2 = 3952 - INTEGER, PARAMETER :: ind_C7MCO3OHO2 = 3953 - INTEGER, PARAMETER :: ind_CY6TRIONO2 = 3954 - INTEGER, PARAMETER :: ind_C108O2 = 3955 - INTEGER, PARAMETER :: ind_C52NO33O = 3956 - INTEGER, PARAMETER :: ind_C133O = 3957 - INTEGER, PARAMETER :: ind_COO2C3CHO = 3958 - INTEGER, PARAMETER :: ind_MEKCOH = 3959 - INTEGER, PARAMETER :: ind_CO1M22CHO = 3960 - INTEGER, PARAMETER :: ind_HO3C6O2 = 3961 - INTEGER, PARAMETER :: ind_C822O2 = 3962 - INTEGER, PARAMETER :: ind_BCBO2 = 3963 - INTEGER, PARAMETER :: ind_C5NO3CO4O2 = 3964 - INTEGER, PARAMETER :: ind_C4CO2OOH = 3965 - INTEGER, PARAMETER :: ind_BCKBO2 = 3966 - INTEGER, PARAMETER :: ind_HO1MC5O2 = 3967 - INTEGER, PARAMETER :: ind_C7CO4EDB = 3968 - INTEGER, PARAMETER :: ind_NLMKAO2 = 3969 - INTEGER, PARAMETER :: ind_C4M2NO32O = 3970 - INTEGER, PARAMETER :: ind_BCAO2 = 3971 - INTEGER, PARAMETER :: ind_MOXY2CHO = 3972 - INTEGER, PARAMETER :: ind_C8CO3OHO2 = 3973 - INTEGER, PARAMETER :: ind_C623O2 = 3974 - INTEGER, PARAMETER :: ind_C7ADCO2 = 3975 - INTEGER, PARAMETER :: ind_C5124COO2 = 3976 - INTEGER, PARAMETER :: ind_C81O2 = 3977 - INTEGER, PARAMETER :: ind_MPRK = 3978 - INTEGER, PARAMETER :: ind_MIBKCOOHO2 = 3979 - INTEGER, PARAMETER :: ind_C530O2 = 3980 - INTEGER, PARAMETER :: ind_C917O2 = 3981 - INTEGER, PARAMETER :: ind_NOPINCO2 = 3982 - INTEGER, PARAMETER :: ind_IPRBQO2 = 3983 - INTEGER, PARAMETER :: ind_CO235C6O2 = 3984 - INTEGER, PARAMETER :: ind_C826O2 = 3985 - INTEGER, PARAMETER :: ind_HM2C43CHO = 3986 - INTEGER, PARAMETER :: ind_STYRENO2 = 3987 - INTEGER, PARAMETER :: ind_NBCALO2 = 3988 - INTEGER, PARAMETER :: ind_H1MC5O2 = 3989 - INTEGER, PARAMETER :: ind_C151O2 = 3990 - INTEGER, PARAMETER :: ind_C42CHO = 3991 - INTEGER, PARAMETER :: ind_HOC4CHOO2 = 3992 - INTEGER, PARAMETER :: ind_MACROH = 3993 - INTEGER, PARAMETER :: ind_LIMCO2 = 3994 - INTEGER, PARAMETER :: ind_IBUTDIAL = 3995 - INTEGER, PARAMETER :: ind_TM135OXMUC = 3996 - INTEGER, PARAMETER :: ind_IPCATEC1O2 = 3997 - INTEGER, PARAMETER :: ind_INDHPCO3 = 3998 - INTEGER, PARAMETER :: ind_NPBNZ1O2 = 3999 - INTEGER, PARAMETER :: ind_DM124O2 = 4000 - INTEGER, PARAMETER :: ind_PXY1O2 = 4001 - INTEGER, PARAMETER :: ind_PXCATEC1O2 = 4002 - INTEGER, PARAMETER :: ind_MXYBIPERO2 = 4003 - INTEGER, PARAMETER :: ind_MXYBIPERO = 4004 - INTEGER, PARAMETER :: ind_PXYL1O2 = 4005 - INTEGER, PARAMETER :: ind_NOXYOL1O2 = 4006 - INTEGER, PARAMETER :: ind_T124CAT1O2 = 4007 - INTEGER, PARAMETER :: ind_MET1O2 = 4008 - INTEGER, PARAMETER :: ind_TM124O2 = 4009 - INTEGER, PARAMETER :: ind_TLEPOXMUC = 4010 - INTEGER, PARAMETER :: ind_NMXYOL1O2 = 4011 - INTEGER, PARAMETER :: ind_PXYOLO = 4012 - INTEGER, PARAMETER :: ind_C6MOHCOCO3 = 4013 - INTEGER, PARAMETER :: ind_C3MCOCO2H = 4014 - INTEGER, PARAMETER :: ind_CHOC4OHO2 = 4015 - INTEGER, PARAMETER :: ind_PBENZO2 = 4016 - INTEGER, PARAMETER :: ind_DETLPOXMUC = 4017 - INTEGER, PARAMETER :: ind_DMEBPOXMUC = 4018 - INTEGER, PARAMETER :: ind_C517O2 = 4019 - INTEGER, PARAMETER :: ind_EBENZO2 = 4020 - INTEGER, PARAMETER :: ind_NIPBNZ1O2 = 4021 - INTEGER, PARAMETER :: ind_NCRES1O2 = 4022 - INTEGER, PARAMETER :: ind_T123CAT1O2 = 4023 - INTEGER, PARAMETER :: ind_MC3CODBCO2 = 4024 - INTEGER, PARAMETER :: ind_NPXYQO2 = 4025 - INTEGER, PARAMETER :: ind_C5DBCO2CO3 = 4026 - INTEGER, PARAMETER :: ind_TM124OXMUC = 4027 - INTEGER, PARAMETER :: ind_OXYBIPERO2 = 4028 - INTEGER, PARAMETER :: ind_C7DCCO2 = 4029 - INTEGER, PARAMETER :: ind_PHCOETO2 = 4030 - INTEGER, PARAMETER :: ind_PHCOCOCO2 = 4031 - INTEGER, PARAMETER :: ind_EBZPOXMUC = 4032 - INTEGER, PARAMETER :: ind_OXCATEC1O2 = 4033 - INTEGER, PARAMETER :: ind_NT123L1O2 = 4034 - INTEGER, PARAMETER :: ind_MTCATEC1O2 = 4035 - INTEGER, PARAMETER :: ind_NEBNZ1O2 = 4036 - INTEGER, PARAMETER :: ind_TM123O2 = 4037 - INTEGER, PARAMETER :: ind_MXYL1O2 = 4038 - INTEGER, PARAMETER :: ind_NPXYOL1O2 = 4039 - INTEGER, PARAMETER :: ind_NOETOL1O2 = 4040 - INTEGER, PARAMETER :: ind_DMPHO2 = 4041 - INTEGER, PARAMETER :: ind_C6145COO2 = 4042 - INTEGER, PARAMETER :: ind_C116O2 = 4043 - INTEGER, PARAMETER :: ind_NT124L1O2 = 4044 - INTEGER, PARAMETER :: ind_EBENZOLO = 4045 - INTEGER, PARAMETER :: ind_C7OHCO2CO3 = 4046 - INTEGER, PARAMETER :: ind_C6DCRBBOH = 4047 - INTEGER, PARAMETER :: ind_TOL1OHNO2 = 4048 - INTEGER, PARAMETER :: ind_MCATEC1O2 = 4049 - INTEGER, PARAMETER :: ind_EMPHO2 = 4050 - INTEGER, PARAMETER :: ind_EMPHCO3 = 4051 - INTEGER, PARAMETER :: ind_EMPOHNO2O2 = 4052 - INTEGER, PARAMETER :: ind_C43OHCOCHO = 4053 - INTEGER, PARAMETER :: ind_OTCATEC1O2 = 4054 - INTEGER, PARAMETER :: ind_TM135BPRO2 = 4055 - INTEGER, PARAMETER :: ind_MXYEPOXMUC = 4056 - INTEGER, PARAMETER :: ind_ECATEC1O2 = 4057 - INTEGER, PARAMETER :: ind_HM22C3O2 = 4058 - INTEGER, PARAMETER :: ind_C622O2 = 4059 - INTEGER, PARAMETER :: ind_CHOOCH2O2 = 4060 - INTEGER, PARAMETER :: ind_NMETOL1O2 = 4061 - INTEGER, PARAMETER :: ind_C6DCARBBO = 4062 - INTEGER, PARAMETER :: ind_IPBENZO2 = 4063 - INTEGER, PARAMETER :: ind_PTCATEC1O2 = 4064 - INTEGER, PARAMETER :: ind_PCATEC1O2 = 4065 - INTEGER, PARAMETER :: ind_INB1NO3 = 4066 - INTEGER, PARAMETER :: ind_NPHEN1O2 = 4067 - INTEGER, PARAMETER :: ind_PHIC3O2 = 4068 - INTEGER, PARAMETER :: ind_PHCOMEO2 = 4069 - INTEGER, PARAMETER :: ind_DMPHCOMO2 = 4070 - INTEGER, PARAMETER :: ind_C5CO14CO2 = 4071 - INTEGER, PARAMETER :: ind_NPETOL1O2 = 4072 - INTEGER, PARAMETER :: ind_MXCATEC1O2 = 4073 - INTEGER, PARAMETER :: ind_OETLBIPRO2 = 4074 - INTEGER, PARAMETER :: ind_MXY1O2 = 4075 - INTEGER, PARAMETER :: ind_NPEBQO2 = 4076 - INTEGER, PARAMETER :: ind_C88O2 = 4077 - INTEGER, PARAMETER :: ind_C8BCO2 = 4078 - INTEGER, PARAMETER :: ind_CATEC1O2 = 4079 - INTEGER, PARAMETER :: ind_METLPOXMUC = 4080 - INTEGER, PARAMETER :: ind_EGLYOOB = 4081 - INTEGER, PARAMETER :: ind_OET1O2 = 4082 - INTEGER, PARAMETER :: ind_PXYEPOXMUC = 4083 - INTEGER, PARAMETER :: ind_MGLOOB = 4084 - INTEGER, PARAMETER :: ind_PET1O2 = 4085 - INTEGER, PARAMETER :: ind_IC7DCCO2 = 4086 - INTEGER, PARAMETER :: ind_C45O2 = 4087 - INTEGER, PARAMETER :: ind_C126O2 = 4088 - INTEGER, PARAMETER :: ind_C720O2 = 4089 - INTEGER, PARAMETER :: ind_BPINCO2 = 4090 - INTEGER, PARAMETER :: ind_APINCO2 = 4091 - INTEGER, PARAMETER :: ind_C719O2 = 4092 - INTEGER, PARAMETER :: ind_IPBZPOXMUC = 4093 - INTEGER, PARAMETER :: ind_PBZPOXMUC = 4094 - INTEGER, PARAMETER :: ind_CO24C6O2 = 4095 - INTEGER, PARAMETER :: ind_ISOP34NO3 = 4096 - INTEGER, PARAMETER :: ind_NBPINAO2 = 4097 - INTEGER, PARAMETER :: ind_C824O2 = 4098 - INTEGER, PARAMETER :: ind_M2HEXBO2 = 4099 - INTEGER, PARAMETER :: ind_PXYLCO3 = 4100 - INTEGER, PARAMETER :: ind_TL4OHNO2O2 = 4101 - INTEGER, PARAMETER :: ind_C7CO2DBCO3 = 4102 - INTEGER, PARAMETER :: ind_HO4CO7C9 = 4103 - INTEGER, PARAMETER :: ind_C614CO = 4104 - INTEGER, PARAMETER :: ind_C612O2 = 4105 - INTEGER, PARAMETER :: ind_C62O2 = 4106 - INTEGER, PARAMETER :: ind_ISOPAOOH = 4107 - INTEGER, PARAMETER :: ind_MPRBNO3CHO = 4108 - INTEGER, PARAMETER :: ind_HO1CO24C5 = 4109 - INTEGER, PARAMETER :: ind_H2M2C4CHO = 4110 - INTEGER, PARAMETER :: ind_BUTDBO2 = 4111 - INTEGER, PARAMETER :: ind_MPRANO3O2 = 4112 - INTEGER, PARAMETER :: ind_ISOPCOOH = 4113 - INTEGER, PARAMETER :: ind_C4NO3CHO = 4114 - INTEGER, PARAMETER :: ind_C135O2 = 4115 - INTEGER, PARAMETER :: ind_C519O2 = 4116 - INTEGER, PARAMETER :: ind_NC730O2 = 4117 - INTEGER, PARAMETER :: ind_C6CO34O2 = 4118 - INTEGER, PARAMETER :: ind_C919O2 = 4119 - INTEGER, PARAMETER :: ind_C733O2 = 4120 - INTEGER, PARAMETER :: ind_M3PECO2 = 4121 - INTEGER, PARAMETER :: ind_HO5CO8C10 = 4122 - INTEGER, PARAMETER :: ind_HIEB2O2 = 4123 - INTEGER, PARAMETER :: ind_PINALO2 = 4124 - INTEGER, PARAMETER :: ind_C3MDIALOOH = 4125 - INTEGER, PARAMETER :: ind_C53O2 = 4126 - INTEGER, PARAMETER :: ind_ETHACETO2 = 4127 - INTEGER, PARAMETER :: ind_C67O2 = 4128 - INTEGER, PARAMETER :: ind_C531O2 = 4129 - INTEGER, PARAMETER :: ind_C736O2 = 4130 - INTEGER, PARAMETER :: ind_C87O2 = 4131 - INTEGER, PARAMETER :: ind_METLMUCCO3 = 4132 - INTEGER, PARAMETER :: ind_TM124BPRO2 = 4133 - INTEGER, PARAMETER :: ind_CO234C65O2 = 4134 - INTEGER, PARAMETER :: ind_LMLKBO2 = 4135 - INTEGER, PARAMETER :: ind_C521O2 = 4136 - INTEGER, PARAMETER :: ind_C930O2 = 4137 - INTEGER, PARAMETER :: ind_C74O2 = 4138 - INTEGER, PARAMETER :: ind_TM124BCO3 = 4139 - INTEGER, PARAMETER :: ind_C4M2NO33O2 = 4140 - INTEGER, PARAMETER :: ind_IC7DCO2 = 4141 - INTEGER, PARAMETER :: ind_C513O2 = 4142 - INTEGER, PARAMETER :: ind_C4NO32M2O2 = 4143 - INTEGER, PARAMETER :: ind_LIMALBO2 = 4144 - INTEGER, PARAMETER :: ind_LMLKAO2 = 4145 - INTEGER, PARAMETER :: ind_BPINBO2 = 4146 - INTEGER, PARAMETER :: ind_C630O2 = 4147 - INTEGER, PARAMETER :: ind_LIMALAO2 = 4148 - INTEGER, PARAMETER :: ind_C5CO234O2 = 4149 - INTEGER, PARAMETER :: ind_C818O2 = 4150 - INTEGER, PARAMETER :: ind_NC91CHO = 4151 - INTEGER, PARAMETER :: ind_OETOLO = 4152 - INTEGER, PARAMETER :: ind_NOETLQO2 = 4153 - INTEGER, PARAMETER :: ind_C5MEJCO3 = 4154 - INTEGER, PARAMETER :: ind_C65NO36CHO = 4155 - INTEGER, PARAMETER :: ind_C4CONO3CO = 4156 - INTEGER, PARAMETER :: ind_C813O2 = 4157 - INTEGER, PARAMETER :: ind_C6COCHOO2 = 4158 - INTEGER, PARAMETER :: ind_C41O2 = 4159 - INTEGER, PARAMETER :: ind_C3MNO3CHO = 4160 - INTEGER, PARAMETER :: ind_MIBKAOHBO2 = 4161 - INTEGER, PARAMETER :: ind_C118O2 = 4162 - INTEGER, PARAMETER :: ind_NBZQO2 = 4163 - INTEGER, PARAMETER :: ind_HO7CO10C12 = 4164 - INTEGER, PARAMETER :: ind_C7DCO2 = 4165 - INTEGER, PARAMETER :: ind_C916O2 = 4166 - INTEGER, PARAMETER :: ind_DETLBIPRO2 = 4167 - INTEGER, PARAMETER :: ind_C7CODBCO3 = 4168 - INTEGER, PARAMETER :: ind_HOCO3C54O2 = 4169 - INTEGER, PARAMETER :: ind_MIBK3COO2 = 4170 - INTEGER, PARAMETER :: ind_ETHENO3O2 = 4171 - INTEGER, PARAMETER :: ind_C128O2 = 4172 - INTEGER, PARAMETER :: ind_C918O2 = 4173 - INTEGER, PARAMETER :: ind_C52NO31CO = 4174 - INTEGER, PARAMETER :: ind_C5CO23CHO = 4175 - INTEGER, PARAMETER :: ind_C129O2 = 4176 - INTEGER, PARAMETER :: ind_OETLBIPRO = 4177 - INTEGER, PARAMETER :: ind_C7DDCCO2H = 4178 - INTEGER, PARAMETER :: ind_HO6CO9C11 = 4179 - INTEGER, PARAMETER :: ind_C534O2 = 4180 - INTEGER, PARAMETER :: ind_TMBCO3 = 4181 - INTEGER, PARAMETER :: ind_MXYOHNO2O2 = 4182 - INTEGER, PARAMETER :: ind_C141CO = 4183 - INTEGER, PARAMETER :: ind_EMPOHNO2O = 4184 - INTEGER, PARAMETER :: ind_BPINAO2 = 4185 - INTEGER, PARAMETER :: ind_C918CHO = 4186 - INTEGER, PARAMETER :: ind_C6H5CH2CO3 = 4187 - INTEGER, PARAMETER :: ind_C6O4KETO2 = 4188 - INTEGER, PARAMETER :: ind_C106O2 = 4189 - INTEGER, PARAMETER :: ind_NC71O = 4190 - INTEGER, PARAMETER :: ind_C5CO23O2 = 4191 - INTEGER, PARAMETER :: ind_T124NNCTO2 = 4192 - INTEGER, PARAMETER :: ind_T123NCATO2 = 4193 - INTEGER, PARAMETER :: ind_DNIPBNZLO2 = 4194 - INTEGER, PARAMETER :: ind_NNCATECO2 = 4195 - INTEGER, PARAMETER :: ind_C831O2 = 4196 - INTEGER, PARAMETER :: ind_C729O2 = 4197 - INTEGER, PARAMETER :: ind_EPXMEDLCO3 = 4198 - INTEGER, PARAMETER :: ind_C6134CO2OH = 4199 - INTEGER, PARAMETER :: ind_MXNCATECO2 = 4200 - INTEGER, PARAMETER :: ind_C107O2 = 4201 - INTEGER, PARAMETER :: ind_C4COMOHCO3 = 4202 - INTEGER, PARAMETER :: ind_C5DBECO3 = 4203 - INTEGER, PARAMETER :: ind_DNPXYOLO2 = 4204 - INTEGER, PARAMETER :: ind_DNPBNZLO2 = 4205 - INTEGER, PARAMETER :: ind_PROL1MCO3 = 4206 - INTEGER, PARAMETER :: ind_HO24C4CO3 = 4207 - INTEGER, PARAMETER :: ind_CO2N3CO3 = 4208 - INTEGER, PARAMETER :: ind_H13CO2CO3 = 4209 - INTEGER, PARAMETER :: ind_OTNNCATCO2 = 4210 - INTEGER, PARAMETER :: ind_HOACETETO2 = 4211 - INTEGER, PARAMETER :: ind_T123NNCTO2 = 4212 - INTEGER, PARAMETER :: ind_NOAOO = 4213 - INTEGER, PARAMETER :: ind_CO2OH3MCO3 = 4214 - INTEGER, PARAMETER :: ind_C3M3OH2CO3 = 4215 - INTEGER, PARAMETER :: ind_C1212O2 = 4216 - INTEGER, PARAMETER :: ind_MNCATECO2 = 4217 - INTEGER, PARAMETER :: ind_C8CO2OHCO3 = 4218 - INTEGER, PARAMETER :: ind_ETOMEO2 = 4219 - INTEGER, PARAMETER :: ind_NC61CO3 = 4220 - INTEGER, PARAMETER :: ind_C6CO2OHCO3 = 4221 - INTEGER, PARAMETER :: ind_CHOOMCO3 = 4222 - INTEGER, PARAMETER :: ind_HEX3ONCOH = 4223 - INTEGER, PARAMETER :: ind_C721CHO = 4224 - INTEGER, PARAMETER :: ind_PXNCATECO2 = 4225 - INTEGER, PARAMETER :: ind_C734O2 = 4226 - INTEGER, PARAMETER :: ind_C45IC5CHO = 4227 - INTEGER, PARAMETER :: ind_INDHCO3 = 4228 - INTEGER, PARAMETER :: ind_HPC52CO3 = 4229 - INTEGER, PARAMETER :: ind_HO13C3CO3 = 4230 - INTEGER, PARAMETER :: ind_ACETETCHO = 4231 - INTEGER, PARAMETER :: ind_DNPETOLO2 = 4232 - INTEGER, PARAMETER :: ind_CO45C5CHO = 4233 - INTEGER, PARAMETER :: ind_C827O2 = 4234 - INTEGER, PARAMETER :: ind_C79O2 = 4235 - INTEGER, PARAMETER :: ind_C735O2 = 4236 - INTEGER, PARAMETER :: ind_PNNCATECO2 = 4237 - INTEGER, PARAMETER :: ind_HO8C9O2 = 4238 - INTEGER, PARAMETER :: ind_HO1CO3CHO = 4239 - INTEGER, PARAMETER :: ind_NOPINDO2 = 4240 - INTEGER, PARAMETER :: ind_C5M2OHOCO3 = 4241 - INTEGER, PARAMETER :: ind_C628O2 = 4242 - INTEGER, PARAMETER :: ind_H13C43CO3 = 4243 - INTEGER, PARAMETER :: ind_CHOC4O2 = 4244 - INTEGER, PARAMETER :: ind_DNMETOLO2 = 4245 - INTEGER, PARAMETER :: ind_ENNCATECO2 = 4246 - INTEGER, PARAMETER :: ind_NC4OO = 4247 - INTEGER, PARAMETER :: ind_CO2C5OH = 4248 - INTEGER, PARAMETER :: ind_C152O2 = 4249 - INTEGER, PARAMETER :: ind_HMGLYOO = 4250 - INTEGER, PARAMETER :: ind_H3M3C5O2 = 4251 - INTEGER, PARAMETER :: ind_MTNCATECO2 = 4252 - INTEGER, PARAMETER :: ind_C7CO2OHCO3 = 4253 - INTEGER, PARAMETER :: ind_HO7C8O2 = 4254 - INTEGER, PARAMETER :: ind_M3BU3ECO3 = 4255 - INTEGER, PARAMETER :: ind_C58NO3 = 4256 - INTEGER, PARAMETER :: ind_C85O2 = 4257 - INTEGER, PARAMETER :: ind_C126OO = 4258 - INTEGER, PARAMETER :: ind_HC3CCO3 = 4259 - INTEGER, PARAMETER :: ind_C42CO3 = 4260 - INTEGER, PARAMETER :: ind_HO2C4CHO = 4261 - INTEGER, PARAMETER :: ind_DNEBNZLO2 = 4262 - INTEGER, PARAMETER :: ind_C3DIOLO2 = 4263 - INTEGER, PARAMETER :: ind_BCALOO = 4264 - INTEGER, PARAMETER :: ind_MNNCATECO2 = 4265 - INTEGER, PARAMETER :: ind_NC91CO3 = 4266 - INTEGER, PARAMETER :: ind_C4CO2DBCO3 = 4267 - INTEGER, PARAMETER :: ind_CHOC3COO2 = 4268 - INTEGER, PARAMETER :: ind_HC4CO3 = 4269 - INTEGER, PARAMETER :: ind_HO6C7O2 = 4270 - INTEGER, PARAMETER :: ind_DNPHENO2 = 4271 - INTEGER, PARAMETER :: ind_PETLPOXMUC = 4272 - INTEGER, PARAMETER :: ind_NCATECO2 = 4273 - INTEGER, PARAMETER :: ind_C73O2 = 4274 - INTEGER, PARAMETER :: ind_HO3C3CO3 = 4275 - INTEGER, PARAMETER :: ind_DNT124LO2 = 4276 - INTEGER, PARAMETER :: ind_C3EDIALO2 = 4277 - INTEGER, PARAMETER :: ind_CO123C5CHO = 4278 - INTEGER, PARAMETER :: ind_C67CHO = 4279 - INTEGER, PARAMETER :: ind_PNCATECO2 = 4280 - INTEGER, PARAMETER :: ind_C4OHCO3 = 4281 - INTEGER, PARAMETER :: ind_NC3OO = 4282 - INTEGER, PARAMETER :: ind_HO5C5CO3 = 4283 - INTEGER, PARAMETER :: ind_C3NO3COO2 = 4284 - INTEGER, PARAMETER :: ind_DNT123LO2 = 4285 - INTEGER, PARAMETER :: ind_MVKOO = 4286 - INTEGER, PARAMETER :: ind_PTNCATECO2 = 4287 - INTEGER, PARAMETER :: ind_C85CO3 = 4288 - INTEGER, PARAMETER :: ind_DNOETOLO2 = 4289 - INTEGER, PARAMETER :: ind_C86O2 = 4290 - INTEGER, PARAMETER :: ind_OXNCATECO2 = 4291 - INTEGER, PARAMETER :: ind_PXNNCATCO2 = 4292 - INTEGER, PARAMETER :: ind_OXNNCATCO2 = 4293 - INTEGER, PARAMETER :: ind_CH3COCO3H = 4294 - INTEGER, PARAMETER :: ind_C721O2 = 4295 - INTEGER, PARAMETER :: ind_IPNCATECO2 = 4296 - INTEGER, PARAMETER :: ind_PTNNCATCO2 = 4297 - INTEGER, PARAMETER :: ind_DNOXYOLO2 = 4298 - INTEGER, PARAMETER :: ind_C7MJPCO3 = 4299 - INTEGER, PARAMETER :: ind_HO2CO5C6 = 4300 - INTEGER, PARAMETER :: ind_C918CO3 = 4301 - INTEGER, PARAMETER :: ind_NOPINOO = 4302 - INTEGER, PARAMETER :: ind_MXNNCATCO2 = 4303 - INTEGER, PARAMETER :: ind_ENCATECO2 = 4304 - INTEGER, PARAMETER :: ind_DNMXYOLO2 = 4305 - INTEGER, PARAMETER :: ind_DNCRESO2 = 4306 - INTEGER, PARAMETER :: ind_IPNNCATCO2 = 4307 - INTEGER, PARAMETER :: ind_C5CO2OHCO3 = 4308 - INTEGER, PARAMETER :: ind_C713O2 = 4309 - INTEGER, PARAMETER :: ind_HM2C43O2 = 4310 - INTEGER, PARAMETER :: ind_MC7CO2O2 = 4311 - INTEGER, PARAMETER :: ind_MTNNCATCO2 = 4312 - INTEGER, PARAMETER :: ind_HM33C3CHO = 4313 - INTEGER, PARAMETER :: ind_OTNCATECO2 = 4314 - INTEGER, PARAMETER :: ind_C825O2 = 4315 - INTEGER, PARAMETER :: ind_NC4OHCO3 = 4316 - INTEGER, PARAMETER :: ind_T124NCATO2 = 4317 - INTEGER, PARAMETER :: ind_PEN2ONE1O2 = 4318 - INTEGER, PARAMETER :: ind_C139O2 = 4319 - INTEGER, PARAMETER :: ind_C2H5MECOO = 4320 - INTEGER, PARAMETER :: ind_C526O2 = 4321 - INTEGER, PARAMETER :: ind_TM124OLO = 4322 - INTEGER, PARAMETER :: ind_NTM124QO2 = 4323 - INTEGER, PARAMETER :: ind_C7MOHCOCO3 = 4324 - INTEGER, PARAMETER :: ind_DMKCOOH = 4325 - INTEGER, PARAMETER :: ind_OXYOLO = 4326 - INTEGER, PARAMETER :: ind_NOXYQO2 = 4327 - INTEGER, PARAMETER :: ind_MC4CODBCO2 = 4328 - INTEGER, PARAMETER :: ind_C4DBM2CO3 = 4329 - INTEGER, PARAMETER :: ind_MPAN = 4330 - INTEGER, PARAMETER :: ind_NC5MDCO2H = 4331 - INTEGER, PARAMETER :: ind_CPENT2ENE = 4332 - INTEGER, PARAMETER :: ind_CH3CHOOB = 4333 - INTEGER, PARAMETER :: ind_M2BKAO2 = 4334 - INTEGER, PARAMETER :: ind_DETLMUCO2 = 4335 - INTEGER, PARAMETER :: ind_HEX3ONCO2 = 4336 - INTEGER, PARAMETER :: ind_NC526O2 = 4337 - INTEGER, PARAMETER :: ind_MXYLCO3 = 4338 - INTEGER, PARAMETER :: ind_HPC52O2 = 4339 - INTEGER, PARAMETER :: ind_C716O2 = 4340 - INTEGER, PARAMETER :: ind_MVKOHBO2 = 4341 - INTEGER, PARAMETER :: ind_C624O2 = 4342 - INTEGER, PARAMETER :: ind_C625O2 = 4343 - INTEGER, PARAMETER :: ind_C5CONO34O2 = 4344 - INTEGER, PARAMETER :: ind_MC4CONO3O2 = 4345 - INTEGER, PARAMETER :: ind_C615O2 = 4346 - INTEGER, PARAMETER :: ind_MC5CO2OHO2 = 4347 - INTEGER, PARAMETER :: ind_HO13C4O2 = 4348 - INTEGER, PARAMETER :: ind_C94O2 = 4349 - INTEGER, PARAMETER :: ind_C616O2 = 4350 - INTEGER, PARAMETER :: ind_PRONO3AO2 = 4351 - INTEGER, PARAMETER :: ind_CO23C4NO3 = 4352 - INTEGER, PARAMETER :: ind_COCCOH2CO2 = 4353 - INTEGER, PARAMETER :: ind_C6DIALO2 = 4354 - INTEGER, PARAMETER :: ind_C124O2 = 4355 - INTEGER, PARAMETER :: ind_HEX3ONDO2 = 4356 - INTEGER, PARAMETER :: ind_C68O2 = 4357 - INTEGER, PARAMETER :: ind_MALDIALO2 = 4358 - INTEGER, PARAMETER :: ind_C56O2 = 4359 - INTEGER, PARAMETER :: ind_CO1H63O2 = 4360 - INTEGER, PARAMETER :: ind_C114O2 = 4361 - INTEGER, PARAMETER :: ind_H1C23C4CHO = 4362 - INTEGER, PARAMETER :: ind_C143O2 = 4363 - INTEGER, PARAMETER :: ind_NMBOBO2 = 4364 - INTEGER, PARAMETER :: ind_C6HO1CO3O2 = 4365 - INTEGER, PARAMETER :: ind_H13CO2C3 = 4366 - INTEGER, PARAMETER :: ind_HEX3ONBO2 = 4367 - INTEGER, PARAMETER :: ind_EOX2EOLAO2 = 4368 - INTEGER, PARAMETER :: ind_C84O2 = 4369 - INTEGER, PARAMETER :: ind_PRONO3BO2 = 4370 - INTEGER, PARAMETER :: ind_C727O2 = 4371 - INTEGER, PARAMETER :: ind_BUTDCO2 = 4372 - INTEGER, PARAMETER :: ind_HC3CCHO = 4373 - INTEGER, PARAMETER :: ind_HO13C5O2 = 4374 - INTEGER, PARAMETER :: ind_TM123BCO3 = 4375 - INTEGER, PARAMETER :: ind_DM123O2 = 4376 - INTEGER, PARAMETER :: ind_PBZMUCO2 = 4377 - INTEGER, PARAMETER :: ind_C57NO3 = 4378 - INTEGER, PARAMETER :: ind_C7ADCCO2 = 4379 - INTEGER, PARAMETER :: ind_C3ME3CO3 = 4380 - INTEGER, PARAMETER :: ind_NPPRBQO2 = 4381 - INTEGER, PARAMETER :: ind_ACRO2 = 4382 - INTEGER, PARAMETER :: ind_HYPERACET = 4383 - INTEGER, PARAMETER :: ind_C715O2 = 4384 - INTEGER, PARAMETER :: ind_C1010O2 = 4385 - INTEGER, PARAMETER :: ind_BUT2OLO = 4386 - INTEGER, PARAMETER :: ind_C42NO33O2 = 4387 - INTEGER, PARAMETER :: ind_PBZMUCO = 4388 - INTEGER, PARAMETER :: ind_C104O2 = 4389 - INTEGER, PARAMETER :: ind_HEX2ONCO2 = 4390 - INTEGER, PARAMETER :: ind_HO2CO4C5 = 4391 - INTEGER, PARAMETER :: ind_HO1CO34C5 = 4392 - INTEGER, PARAMETER :: ind_IPBZMUCO = 4393 - INTEGER, PARAMETER :: ind_C142O2 = 4394 - INTEGER, PARAMETER :: ind_STYRENE = 4395 - INTEGER, PARAMETER :: ind_BZEPOXMUC = 4396 - INTEGER, PARAMETER :: ind_PHENOL = 4397 - INTEGER, PARAMETER :: ind_MALDALCO2H = 4398 - INTEGER, PARAMETER :: ind_BZBIPERO2 = 4399 - INTEGER, PARAMETER :: ind_DMEBMUCO2 = 4400 - INTEGER, PARAMETER :: ind_C6CO243OH = 4401 - INTEGER, PARAMETER :: ind_MTCATEC1O = 4402 - INTEGER, PARAMETER :: ind_ECOCO2H = 4403 - INTEGER, PARAMETER :: ind_ECO3CO3 = 4404 - INTEGER, PARAMETER :: ind_PRNO3CO3 = 4405 - INTEGER, PARAMETER :: ind_CONM2CHO = 4406 - INTEGER, PARAMETER :: ind_TM124O = 4407 - INTEGER, PARAMETER :: ind_MXY1O = 4408 - INTEGER, PARAMETER :: ind_C515CO3 = 4409 - INTEGER, PARAMETER :: ind_C620O2 = 4410 - INTEGER, PARAMETER :: ind_IBUTOLCO2 = 4411 - INTEGER, PARAMETER :: ind_HOIBUTCO3 = 4412 - INTEGER, PARAMETER :: ind_OTCATEC1O = 4413 - INTEGER, PARAMETER :: ind_HC3CO3 = 4414 - INTEGER, PARAMETER :: ind_NDNOXYOLO2 = 4415 - INTEGER, PARAMETER :: ind_NTMB2FUO2 = 4416 - INTEGER, PARAMETER :: ind_HO8C9CO3 = 4417 - INTEGER, PARAMETER :: ind_C627O2 = 4418 - INTEGER, PARAMETER :: ind_H3M2C4CO3 = 4419 - INTEGER, PARAMETER :: ind_HCOCH2OOH = 4420 - INTEGER, PARAMETER :: ind_C105O2 = 4421 - INTEGER, PARAMETER :: ind_OXYFUO2 = 4422 - INTEGER, PARAMETER :: ind_EMALANHYO2 = 4423 - INTEGER, PARAMETER :: ind_C62CO3 = 4424 - INTEGER, PARAMETER :: ind_NDNIPBZLO2 = 4425 - INTEGER, PARAMETER :: ind_IPMALNHYO2 = 4426 - INTEGER, PARAMETER :: ind_C65NO36CO3 = 4427 - INTEGER, PARAMETER :: ind_C3DBCO3 = 4428 - INTEGER, PARAMETER :: ind_C125O2 = 4429 - INTEGER, PARAMETER :: ind_HO5C6CO3 = 4430 - INTEGER, PARAMETER :: ind_C1013CO3 = 4431 - INTEGER, PARAMETER :: ind_C615CO2O2 = 4432 - INTEGER, PARAMETER :: ind_C3MNO3CO3 = 4433 - INTEGER, PARAMETER :: ind_NDNMETOLO2 = 4434 - INTEGER, PARAMETER :: ind_C83O2 = 4435 - INTEGER, PARAMETER :: ind_NC4CO3 = 4436 - INTEGER, PARAMETER :: ind_MET1O = 4437 - INTEGER, PARAMETER :: ind_OET1O = 4438 - INTEGER, PARAMETER :: ind_C511CO3 = 4439 - INTEGER, PARAMETER :: ind_NOXYFUO2 = 4440 - INTEGER, PARAMETER :: ind_C6EO2OHCO3 = 4441 - INTEGER, PARAMETER :: ind_C1012O2 = 4442 - INTEGER, PARAMETER :: ind_HO6C7CO3 = 4443 - INTEGER, PARAMETER :: ind_IPCATEC1O = 4444 - INTEGER, PARAMETER :: ind_C5EDBCO3 = 4445 - INTEGER, PARAMETER :: ind_CO25C6O2 = 4446 - INTEGER, PARAMETER :: ind_C515O2 = 4447 - INTEGER, PARAMETER :: ind_MXYOLO = 4448 - INTEGER, PARAMETER :: ind_C5CO3OH = 4449 - INTEGER, PARAMETER :: ind_HO7C8CO3 = 4450 - INTEGER, PARAMETER :: ind_CHOC4CO3 = 4451 - INTEGER, PARAMETER :: ind_MPRBNO3CO3 = 4452 - INTEGER, PARAMETER :: ind_EBENZO = 4453 - INTEGER, PARAMETER :: ind_ECATEC1O = 4454 - INTEGER, PARAMETER :: ind_NDNPETOLO2 = 4455 - INTEGER, PARAMETER :: ind_C828CO3 = 4456 - INTEGER, PARAMETER :: ind_IPBENZO = 4457 - INTEGER, PARAMETER :: ind_NDNCRESO2 = 4458 - INTEGER, PARAMETER :: ind_C617O2 = 4459 - INTEGER, PARAMETER :: ind_INCNCO3 = 4460 - INTEGER, PARAMETER :: ind_C95O2 = 4461 - INTEGER, PARAMETER :: ind_C4CODIAL = 4462 - INTEGER, PARAMETER :: ind_NDNOETOLO2 = 4463 - INTEGER, PARAMETER :: ind_NDNEBNZLO2 = 4464 - INTEGER, PARAMETER :: ind_H1C23C4O2 = 4465 - INTEGER, PARAMETER :: ind_PCATEC1O = 4466 - INTEGER, PARAMETER :: ind_NDNPHENO2 = 4467 - INTEGER, PARAMETER :: ind_C23C54CO3 = 4468 - INTEGER, PARAMETER :: ind_M22C3CO3 = 4469 - INTEGER, PARAMETER :: ind_C4NO3CO3 = 4470 - INTEGER, PARAMETER :: ind_OXCATEC1O = 4471 - INTEGER, PARAMETER :: ind_ACCOMECO3 = 4472 - INTEGER, PARAMETER :: ind_ME2BU2OLO2 = 4473 - INTEGER, PARAMETER :: ind_ME2BUT2ENE = 4474 - INTEGER, PARAMETER :: ind_TPENT2ENE = 4475 - INTEGER, PARAMETER :: ind_PE2ENEAO2 = 4476 - INTEGER, PARAMETER :: ind_COO2C4O2 = 4477 - INTEGER, PARAMETER :: ind_OXY1O = 4478 - INTEGER, PARAMETER :: ind_PBENZO = 4479 - INTEGER, PARAMETER :: ind_TMB2FUO2 = 4480 - INTEGER, PARAMETER :: ind_MC6OTKETO2 = 4481 - INTEGER, PARAMETER :: ind_PMALANHYO2 = 4482 - INTEGER, PARAMETER :: ind_C726CO5O2 = 4483 - INTEGER, PARAMETER :: ind_C88CO3 = 4484 - INTEGER, PARAMETER :: ind_C718CO3 = 4485 - INTEGER, PARAMETER :: ind_C821O2 = 4486 - INTEGER, PARAMETER :: ind_MXCATEC1O = 4487 - INTEGER, PARAMETER :: ind_CRESO = 4488 - INTEGER, PARAMETER :: ind_C5CO2DBCO3 = 4489 - INTEGER, PARAMETER :: ind_C5134CO2OH = 4490 - INTEGER, PARAMETER :: ind_C5CO14OH = 4491 - INTEGER, PARAMETER :: ind_APINENE = 4492 - INTEGER, PARAMETER :: ind_CO235C6CHO = 4493 - INTEGER, PARAMETER :: ind_TM123O = 4494 - INTEGER, PARAMETER :: ind_PXY1O = 4495 - INTEGER, PARAMETER :: ind_C721CO3 = 4496 - INTEGER, PARAMETER :: ind_C722O2 = 4497 - INTEGER, PARAMETER :: ind_NDNMXYOLO2 = 4498 - INTEGER, PARAMETER :: ind_PTCATEC1O = 4499 - INTEGER, PARAMETER :: ind_HM22C3CO3 = 4500 - INTEGER, PARAMETER :: ind_HM22CHO = 4501 - INTEGER, PARAMETER :: ind_C61CO3 = 4502 - INTEGER, PARAMETER :: ind_C828O2 = 4503 - INTEGER, PARAMETER :: ind_PET1O = 4504 - INTEGER, PARAMETER :: ind_TMB1FUONE = 4505 - INTEGER, PARAMETER :: ind_NDNPXYOLO2 = 4506 - INTEGER, PARAMETER :: ind_NC4MDCO2H = 4507 - INTEGER, PARAMETER :: ind_ME3BUT1ENE = 4508 - INTEGER, PARAMETER :: ind_PXCATEC1O = 4509 - INTEGER, PARAMETER :: ind_C6TRONOHO2 = 4510 - INTEGER, PARAMETER :: ind_NDNPBNZLO2 = 4511 - INTEGER, PARAMETER :: ind_MEPROPENE = 4512 - INTEGER, PARAMETER :: ind_C5DIALO2 = 4513 - INTEGER, PARAMETER :: ind_MCATEC1O = 4514 - INTEGER, PARAMETER :: ind_M3C4CO3 = 4515 - INTEGER, PARAMETER :: ind_NC3CO3 = 4516 - INTEGER, PARAMETER :: ind_CO3C54CO3 = 4517 - INTEGER, PARAMETER :: ind_INANCO3 = 4518 - INTEGER, PARAMETER :: ind_INB1HPCO3 = 4519 - INTEGER, PARAMETER :: ind_H1C23C4CO3 = 4520 - INTEGER, PARAMETER :: ind_HO4C5CO3 = 4521 - INTEGER, PARAMETER :: ind_C43NO3CO3 = 4522 - INTEGER, PARAMETER :: ind_HM2C43CO3 = 4523 - INTEGER, PARAMETER :: ind_MIPKBOH = 4524 - INTEGER, PARAMETER :: ind_COO2C4CO3 = 4525 - INTEGER, PARAMETER :: ind_C141OO = 4526 - INTEGER, PARAMETER :: ind_HEX1ENE = 4527 - INTEGER, PARAMETER :: ind_CH2OOB = 4528 - INTEGER, PARAMETER :: ind_PXYBIPERO2 = 4529 - INTEGER, PARAMETER :: ind_NMGLYOX = 4530 - INTEGER, PARAMETER :: ind_CATEC1O = 4531 - INTEGER, PARAMETER :: ind_C115O2 = 4532 - INTEGER, PARAMETER :: ind_PETOLO = 4533 - INTEGER, PARAMETER :: ind_C7EDCCO = 4534 - INTEGER, PARAMETER :: ind_NPETLQO2 = 4535 - INTEGER, PARAMETER :: ind_C8OHCO2CO3 = 4536 - INTEGER, PARAMETER :: ind_H3M3C4CHO = 4537 - INTEGER, PARAMETER :: ind_C819O2 = 4538 - INTEGER, PARAMETER :: ind_IECCO3 = 4539 - INTEGER, PARAMETER :: ind_HOC3H6CHO = 4540 - INTEGER, PARAMETER :: ind_BCSOZO2 = 4541 - INTEGER, PARAMETER :: ind_BCLKCO2 = 4542 - INTEGER, PARAMETER :: ind_CHOCOMOXO2 = 4543 - INTEGER, PARAMETER :: ind_CH3CCH3OO = 4544 - INTEGER, PARAMETER :: ind_C89O2 = 4545 - INTEGER, PARAMETER :: ind_C65O2 = 4546 - INTEGER, PARAMETER :: ind_EPXM2C4DAL = 4547 - INTEGER, PARAMETER :: ind_IEACO3 = 4548 - INTEGER, PARAMETER :: ind_C55O2 = 4549 - INTEGER, PARAMETER :: ind_MCOCOMOXO2 = 4550 - INTEGER, PARAMETER :: ind_ACLOO = 4551 - INTEGER, PARAMETER :: ind_C5COCHOO2 = 4552 - INTEGER, PARAMETER :: ind_C4OH2CO3 = 4553 - INTEGER, PARAMETER :: ind_MBOBO2 = 4554 - INTEGER, PARAMETER :: ind_MBO = 4555 - INTEGER, PARAMETER :: ind_NC41OO = 4556 - INTEGER, PARAMETER :: ind_CHOMOHCO3 = 4557 - INTEGER, PARAMETER :: ind_C5MCO2OHO2 = 4558 - INTEGER, PARAMETER :: ind_TBUTCHO = 4559 - INTEGER, PARAMETER :: ind_C511O2 = 4560 - INTEGER, PARAMETER :: ind_C64O2 = 4561 - INTEGER, PARAMETER :: ind_ME3BUOLO2 = 4562 - INTEGER, PARAMETER :: ind_C109O2 = 4563 - INTEGER, PARAMETER :: ind_HO12CO3C4 = 4564 - INTEGER, PARAMETER :: ind_HIEB1O2 = 4565 - INTEGER, PARAMETER :: ind_CO25C73O2 = 4566 - INTEGER, PARAMETER :: ind_C924O2 = 4567 - INTEGER, PARAMETER :: ind_TM135MUCO2 = 4568 - INTEGER, PARAMETER :: ind_EPXMALKT = 4569 - INTEGER, PARAMETER :: ind_C5PACALD2 = 4570 - INTEGER, PARAMETER :: ind_M2PECO2 = 4571 - INTEGER, PARAMETER :: ind_C134O2 = 4572 - INTEGER, PARAMETER :: ind_C72O2 = 4573 - INTEGER, PARAMETER :: ind_C43NO34O2 = 4574 - INTEGER, PARAMETER :: ind_OETLMUCO2 = 4575 - INTEGER, PARAMETER :: ind_EPXMEC4DAL = 4576 - INTEGER, PARAMETER :: ind_H2M2C65O2 = 4577 - INTEGER, PARAMETER :: ind_MVKOHAO2 = 4578 - INTEGER, PARAMETER :: ind_BU1ENO3O2 = 4579 - INTEGER, PARAMETER :: ind_C98O2 = 4580 - INTEGER, PARAMETER :: ind_HEX2ONAO2 = 4581 - INTEGER, PARAMETER :: ind_C6OH5O2 = 4582 - INTEGER, PARAMETER :: ind_HEX3ONAO2 = 4583 - INTEGER, PARAMETER :: ind_CO25C74O2 = 4584 - INTEGER, PARAMETER :: ind_NMBOAO2 = 4585 - INTEGER, PARAMETER :: ind_M3HEXAO2 = 4586 - INTEGER, PARAMETER :: ind_C66NO35O2 = 4587 - INTEGER, PARAMETER :: ind_GLYOOA = 4588 - INTEGER, PARAMETER :: ind_HNMVKO2 = 4589 - INTEGER, PARAMETER :: ind_C6NO3CO5O2 = 4590 - INTEGER, PARAMETER :: ind_OXYLCO3 = 4591 - INTEGER, PARAMETER :: ind_OXYL1O2 = 4592 - INTEGER, PARAMETER :: ind_C51NO32O2 = 4593 - INTEGER, PARAMETER :: ind_MIBKBO2 = 4594 - INTEGER, PARAMETER :: ind_EOCOCH2O2 = 4595 - INTEGER, PARAMETER :: ind_MBOAO2 = 4596 - INTEGER, PARAMETER :: ind_C614O2 = 4597 - INTEGER, PARAMETER :: ind_PE1ENEAO2 = 4598 - INTEGER, PARAMETER :: ind_NC524O2 = 4599 - INTEGER, PARAMETER :: ind_BPINENE = 4600 - INTEGER, PARAMETER :: ind_ME2BUT1ENE = 4601 - INTEGER, PARAMETER :: ind_C33CO = 4602 - INTEGER, PARAMETER :: ind_PHENO = 4603 - INTEGER, PARAMETER :: ind_CHEX2ENE = 4604 - INTEGER, PARAMETER :: ind_LIMONENE = 4605 - INTEGER, PARAMETER :: ind_THEX2ENE = 4606 - INTEGER, PARAMETER :: ind_C64OH5O2 = 4607 - INTEGER, PARAMETER :: ind_C65OH4O2 = 4608 - INTEGER, PARAMETER :: ind_ETOC2O2 = 4609 - INTEGER, PARAMETER :: ind_EOX2EOLBO2 = 4610 - INTEGER, PARAMETER :: ind_EOX2MECO3 = 4611 - INTEGER, PARAMETER :: ind_ETHFORMO2 = 4612 - INTEGER, PARAMETER :: ind_ACETMECO3 = 4613 - INTEGER, PARAMETER :: ind_METHACETO2 = 4614 - INTEGER, PARAMETER :: ind_ISOPBNO3 = 4615 - INTEGER, PARAMETER :: ind_DIETETO2 = 4616 - INTEGER, PARAMETER :: ind_C537O2 = 4617 - INTEGER, PARAMETER :: ind_CO23C5 = 4618 - INTEGER, PARAMETER :: ind_PBENZOLO = 4619 - INTEGER, PARAMETER :: ind_C8CO2DBCO3 = 4620 - INTEGER, PARAMETER :: ind_TLFUONOO = 4621 - INTEGER, PARAMETER :: ind_C6H5CO3 = 4622 - INTEGER, PARAMETER :: ind_HO3C5CO3 = 4623 - INTEGER, PARAMETER :: ind_C87CO3 = 4624 - INTEGER, PARAMETER :: ind_C520O2 = 4625 - INTEGER, PARAMETER :: ind_TLEMUCCO3 = 4626 - INTEGER, PARAMETER :: ind_C3COCCO3 = 4627 - INTEGER, PARAMETER :: ind_EPXEKTCO3 = 4628 - INTEGER, PARAMETER :: ind_H2M2C4CO3 = 4629 - INTEGER, PARAMETER :: ind_EPXALMKT = 4630 - INTEGER, PARAMETER :: ind_C5CO34CO3 = 4631 - INTEGER, PARAMETER :: ind_NMETOL1O = 4632 - INTEGER, PARAMETER :: ind_PETLMUCCO3 = 4633 - INTEGER, PARAMETER :: ind_BUT2CO3 = 4634 - INTEGER, PARAMETER :: ind_IPBZMUCCO3 = 4635 - INTEGER, PARAMETER :: ind_HMVKBCO3 = 4636 - INTEGER, PARAMETER :: ind_PBFUONE = 4637 - INTEGER, PARAMETER :: ind_C823CO3 = 4638 - INTEGER, PARAMETER :: ind_T123CAT1O = 4639 - INTEGER, PARAMETER :: ind_PROPALO2 = 4640 - INTEGER, PARAMETER :: ind_EBZMUCCO3 = 4641 - INTEGER, PARAMETER :: ind_CO2M3C4CO3 = 4642 - INTEGER, PARAMETER :: ind_NDNT124LO2 = 4643 - INTEGER, PARAMETER :: ind_C820O2 = 4644 - INTEGER, PARAMETER :: ind_NBUTOLAO2 = 4645 - INTEGER, PARAMETER :: ind_C61O2 = 4646 - INTEGER, PARAMETER :: ind_ME2BUOLO2 = 4647 - INTEGER, PARAMETER :: ind_CHOC4DOLO2 = 4648 - INTEGER, PARAMETER :: ind_BZEMUCCO3 = 4649 - INTEGER, PARAMETER :: ind_IPBFUONE = 4650 - INTEGER, PARAMETER :: ind_CO14O3CHO = 4651 - INTEGER, PARAMETER :: ind_C1211CO3 = 4652 - INTEGER, PARAMETER :: ind_C617CO3 = 4653 - INTEGER, PARAMETER :: ind_OETLMUCCO3 = 4654 - INTEGER, PARAMETER :: ind_NDNT123LO2 = 4655 - INTEGER, PARAMETER :: ind_DETLMUCO3 = 4656 - INTEGER, PARAMETER :: ind_INAHCO3 = 4657 - INTEGER, PARAMETER :: ind_INAHPCO3 = 4658 - INTEGER, PARAMETER :: ind_CO25C6CO3 = 4659 - INTEGER, PARAMETER :: ind_H3C25C6CO3 = 4660 - INTEGER, PARAMETER :: ind_BUTALAO2 = 4661 - INTEGER, PARAMETER :: ind_HOBUT2CO3 = 4662 - INTEGER, PARAMETER :: ind_NPETOL1O = 4663 - INTEGER, PARAMETER :: ind_C512CO3 = 4664 - INTEGER, PARAMETER :: ind_H2M3C4CO3 = 4665 - INTEGER, PARAMETER :: ind_C6H5O2 = 4666 - INTEGER, PARAMETER :: ind_C715CO2O2 = 4667 - INTEGER, PARAMETER :: ind_NAOO = 4668 - INTEGER, PARAMETER :: ind_C6OTKETO2 = 4669 - INTEGER, PARAMETER :: ind_T124CAT1O = 4670 - INTEGER, PARAMETER :: ind_NMXYOL1O = 4671 - INTEGER, PARAMETER :: ind_C1014O2 = 4672 - INTEGER, PARAMETER :: ind_C46CO3 = 4673 - INTEGER, PARAMETER :: ind_C7BDCO2 = 4674 - INTEGER, PARAMETER :: ind_C7M15CO2O2 = 4675 - INTEGER, PARAMETER :: ind_NPXYOL1O = 4676 - INTEGER, PARAMETER :: ind_NC2OO = 4677 - INTEGER, PARAMETER :: ind_BCKBOO = 4678 - INTEGER, PARAMETER :: ind_C137CO3 = 4679 - INTEGER, PARAMETER :: ind_EPXMKTCO3 = 4680 - INTEGER, PARAMETER :: ind_C732CO3 = 4681 - INTEGER, PARAMETER :: ind_NOETOL1O = 4682 - INTEGER, PARAMETER :: ind_C815CO2O2 = 4683 - INTEGER, PARAMETER :: ind_EPXMDLCO3 = 4684 - INTEGER, PARAMETER :: ind_DMEBMUCO3 = 4685 - INTEGER, PARAMETER :: ind_COO2C3CO3 = 4686 - INTEGER, PARAMETER :: ind_MOCOCH2O2 = 4687 - INTEGER, PARAMETER :: ind_IC4CHOAO2 = 4688 - INTEGER, PARAMETER :: ind_C4CHOAO2 = 4689 - INTEGER, PARAMETER :: ind_NOXYOL1O = 4690 - INTEGER, PARAMETER :: ind_BCKAOO = 4691 - INTEGER, PARAMETER :: ind_PXYMUCCO3 = 4692 - INTEGER, PARAMETER :: ind_CH3COCO2H = 4693 - INTEGER, PARAMETER :: ind_C5CODBCO2H = 4694 - INTEGER, PARAMETER :: ind_C4OCCOHCO2 = 4695 - INTEGER, PARAMETER :: ind_M3PEAO2 = 4696 - INTEGER, PARAMETER :: ind_C69O2 = 4697 - INTEGER, PARAMETER :: ind_MIBKHO4O2 = 4698 - INTEGER, PARAMETER :: ind_PXYMUCO2 = 4699 - INTEGER, PARAMETER :: ind_C4M3NO31O2 = 4700 - INTEGER, PARAMETER :: ind_EBZMUCO2 = 4701 - INTEGER, PARAMETER :: ind_C63NO32O2 = 4702 - INTEGER, PARAMETER :: ind_C7EDCO2 = 4703 - INTEGER, PARAMETER :: ind_C610O2 = 4704 - INTEGER, PARAMETER :: ind_BUTALO2 = 4705 - INTEGER, PARAMETER :: ind_DMKOHO2 = 4706 - INTEGER, PARAMETER :: ind_OXYMUCO2 = 4707 - INTEGER, PARAMETER :: ind_C32OH13CO = 4708 - INTEGER, PARAMETER :: ind_C123O2 = 4709 - INTEGER, PARAMETER :: ind_C6H13CHO = 4710 - INTEGER, PARAMETER :: ind_C57AO2 = 4711 - INTEGER, PARAMETER :: ind_C103O2 = 4712 - INTEGER, PARAMETER :: ind_C93O2 = 4713 - INTEGER, PARAMETER :: ind_C52NO33O2 = 4714 - INTEGER, PARAMETER :: ind_C113O2 = 4715 - INTEGER, PARAMETER :: ind_C82O2 = 4716 - INTEGER, PARAMETER :: ind_C3COCCHO = 4717 - INTEGER, PARAMETER :: ind_MXYMUCO2 = 4718 - INTEGER, PARAMETER :: ind_C6CONO34O2 = 4719 - INTEGER, PARAMETER :: ind_BZEMUCO2 = 4720 - INTEGER, PARAMETER :: ind_EPXC4DIAL = 4721 - INTEGER, PARAMETER :: ind_H2M5C65O2 = 4722 - INTEGER, PARAMETER :: ind_C4M2NO32O2 = 4723 - INTEGER, PARAMETER :: ind_CO3C4NO3O2 = 4724 - INTEGER, PARAMETER :: ind_METLMUCO2 = 4725 - INTEGER, PARAMETER :: ind_TM124NO2O2 = 4726 - INTEGER, PARAMETER :: ind_PETLMUCO2 = 4727 - INTEGER, PARAMETER :: ind_CO3H4CHO = 4728 - INTEGER, PARAMETER :: ind_EPXMC4DIAL = 4729 - INTEGER, PARAMETER :: ind_HO1CO3C4O2 = 4730 - INTEGER, PARAMETER :: ind_C4DBMECO3 = 4731 - INTEGER, PARAMETER :: ind_C42O2 = 4732 - INTEGER, PARAMETER :: ind_M2PEAO2 = 4733 - INTEGER, PARAMETER :: ind_C145O2 = 4734 - INTEGER, PARAMETER :: ind_C63O2 = 4735 - INTEGER, PARAMETER :: ind_EIPK = 4736 - INTEGER, PARAMETER :: ind_HO2C43CHO = 4737 - INTEGER, PARAMETER :: ind_C116CO3 = 4738 - INTEGER, PARAMETER :: ind_INB1NBCO3 = 4739 - INTEGER, PARAMETER :: ind_EPXM2DLCO3 = 4740 - INTEGER, PARAMETER :: ind_MEK2OO = 4741 - INTEGER, PARAMETER :: ind_ACCOCOMEO2 = 4742 - INTEGER, PARAMETER :: ind_IPBENZOLO = 4743 - INTEGER, PARAMETER :: ind_C8DBCO2CO3 = 4744 - INTEGER, PARAMETER :: ind_C144O2 = 4745 - INTEGER, PARAMETER :: ind_BCALCO2 = 4746 - INTEGER, PARAMETER :: ind_CH2OOF = 4747 - INTEGER, PARAMETER :: ind_C117O2 = 4748 - INTEGER, PARAMETER :: ind_DHPMACR = 4749 - INTEGER, PARAMETER :: ind_CO356OCO2 = 4750 - INTEGER, PARAMETER :: ind_C533O2 = 4751 - INTEGER, PARAMETER :: ind_C517CO3 = 4752 - INTEGER, PARAMETER :: ind_INB1NACO3 = 4753 - INTEGER, PARAMETER :: ind_BCALAO2 = 4754 - INTEGER, PARAMETER :: ind_IC4H9O2 = 4755 - INTEGER, PARAMETER :: ind_BCALBO2 = 4756 - INTEGER, PARAMETER :: ind_BCBOCOO = 4757 - INTEGER, PARAMETER :: ind_C536O2 = 4758 - INTEGER, PARAMETER :: ind_C312COCO3 = 4759 - INTEGER, PARAMETER :: ind_C5H11CO3 = 4760 - INTEGER, PARAMETER :: ind_BCLKBO2 = 4761 - INTEGER, PARAMETER :: ind_C146O2 = 4762 - INTEGER, PARAMETER :: ind_IBUTALCO2 = 4763 - INTEGER, PARAMETER :: ind_C127O2 = 4764 - INTEGER, PARAMETER :: ind_CY6DIONO2 = 4765 - INTEGER, PARAMETER :: ind_HEPTO2 = 4766 - INTEGER, PARAMETER :: ind_PE2ENEBO2 = 4767 - INTEGER, PARAMETER :: ind_CHOC2H4O2 = 4768 - INTEGER, PARAMETER :: ind_C4ECO2O2 = 4769 - INTEGER, PARAMETER :: ind_C23O3MCO3 = 4770 - INTEGER, PARAMETER :: ind_M33C3CO3 = 4771 - INTEGER, PARAMETER :: ind_INANCOCO3 = 4772 - INTEGER, PARAMETER :: ind_C3MCODBCO3 = 4773 - INTEGER, PARAMETER :: ind_MVKO2 = 4774 - INTEGER, PARAMETER :: ind_C61CHO = 4775 - INTEGER, PARAMETER :: ind_HMGLOO = 4776 - INTEGER, PARAMETER :: ind_C4NO32M1O2 = 4777 - INTEGER, PARAMETER :: ind_HO24C5O2 = 4778 - INTEGER, PARAMETER :: ind_C629O2 = 4779 - INTEGER, PARAMETER :: ind_MIBKAOHAO2 = 4780 - INTEGER, PARAMETER :: ind_C816O2 = 4781 - INTEGER, PARAMETER :: ind_C53NO32O2 = 4782 - INTEGER, PARAMETER :: ind_MACROHO2 = 4783 - INTEGER, PARAMETER :: ind_HEX2ONBO2 = 4784 - INTEGER, PARAMETER :: ind_C54O2 = 4785 - INTEGER, PARAMETER :: ind_ISOPDNO3 = 4786 - INTEGER, PARAMETER :: ind_CO24C63O2 = 4787 - INTEGER, PARAMETER :: ind_NT124L1O = 4788 - INTEGER, PARAMETER :: ind_C915O2 = 4789 - INTEGER, PARAMETER :: ind_NIPBNZ1O = 4790 - INTEGER, PARAMETER :: ind_NPBNZ1O = 4791 - INTEGER, PARAMETER :: ind_C5O45OHCO3 = 4792 - INTEGER, PARAMETER :: ind_MEBFUONE = 4793 - INTEGER, PARAMETER :: ind_ME3BU3ECHO = 4794 - INTEGER, PARAMETER :: ind_COHM2CO3 = 4795 - INTEGER, PARAMETER :: ind_HCOCO2H = 4796 - INTEGER, PARAMETER :: ind_NEBNZ1O = 4797 - INTEGER, PARAMETER :: ind_NCRES1O = 4798 - INTEGER, PARAMETER :: ind_METOLO = 4799 - INTEGER, PARAMETER :: ind_H2M3CO5C6 = 4800 - INTEGER, PARAMETER :: ind_CO24C5 = 4801 - INTEGER, PARAMETER :: ind_C712O2 = 4802 - INTEGER, PARAMETER :: ind_TM124MUCO2 = 4803 - INTEGER, PARAMETER :: ind_MNO3COC4O2 = 4804 - INTEGER, PARAMETER :: ind_C5PACALD1 = 4805 - INTEGER, PARAMETER :: ind_C5124COCO3 = 4806 - INTEGER, PARAMETER :: ind_TM135MUCO3 = 4807 - INTEGER, PARAMETER :: ind_C23O3CCO3 = 4808 - INTEGER, PARAMETER :: ind_MPRBNO3O2 = 4809 - INTEGER, PARAMETER :: ind_NT123L1O = 4810 - INTEGER, PARAMETER :: ind_C714O2 = 4811 - INTEGER, PARAMETER :: ind_C522CO3 = 4812 - INTEGER, PARAMETER :: ind_C9M2CO6O2 = 4813 - INTEGER, PARAMETER :: ind_CYHEXOLAO2 = 4814 - INTEGER, PARAMETER :: ind_C62CHO = 4815 - INTEGER, PARAMETER :: ind_HMACO3 = 4816 - INTEGER, PARAMETER :: ind_C5NO3COAO2 = 4817 - INTEGER, PARAMETER :: ind_C618CO3 = 4818 - INTEGER, PARAMETER :: ind_ACROO = 4819 - INTEGER, PARAMETER :: ind_C929O2 = 4820 - INTEGER, PARAMETER :: ind_TLEMUCO2 = 4821 - INTEGER, PARAMETER :: ind_EPXDLCO3 = 4822 - INTEGER, PARAMETER :: ind_C3DIALO2 = 4823 - INTEGER, PARAMETER :: ind_LMKBOO = 4824 - INTEGER, PARAMETER :: ind_C133O2 = 4825 - INTEGER, PARAMETER :: ind_C47CO3 = 4826 - INTEGER, PARAMETER :: ind_C6CO3OH5O2 = 4827 - INTEGER, PARAMETER :: ind_BZFUONOO = 4828 - INTEGER, PARAMETER :: ind_PBZMUCCO3 = 4829 - INTEGER, PARAMETER :: ind_C920CO3 = 4830 - INTEGER, PARAMETER :: ind_C31CO3 = 4831 - INTEGER, PARAMETER :: ind_M3F = 4832 - INTEGER, PARAMETER :: ind_OXYMUCCO3 = 4833 - INTEGER, PARAMETER :: ind_HM22C3CHO = 4834 - INTEGER, PARAMETER :: ind_C5DICARBO2 = 4835 - INTEGER, PARAMETER :: ind_CO2M33CO3 = 4836 - INTEGER, PARAMETER :: ind_M2BUOL2O2 = 4837 - INTEGER, PARAMETER :: ind_NC4H9CHOO = 4838 - INTEGER, PARAMETER :: ind_C827CO3 = 4839 - INTEGER, PARAMETER :: ind_C4ALDB = 4840 - INTEGER, PARAMETER :: ind_MIPKAO2 = 4841 - INTEGER, PARAMETER :: ind_C626CHO = 4842 - INTEGER, PARAMETER :: ind_LIMBOO = 4843 - INTEGER, PARAMETER :: ind_HM33C3O2 = 4844 - INTEGER, PARAMETER :: ind_CHOPRNO3 = 4845 - INTEGER, PARAMETER :: ind_EPXKTMCO3 = 4846 - INTEGER, PARAMETER :: ind_C923CO3 = 4847 - INTEGER, PARAMETER :: ind_HO2C4CO3 = 4848 - INTEGER, PARAMETER :: ind_C817CO3 = 4849 - INTEGER, PARAMETER :: ind_C6H13CO3 = 4850 - INTEGER, PARAMETER :: ind_H13CO2CHO = 4851 - INTEGER, PARAMETER :: ind_DIEKAO2 = 4852 - INTEGER, PARAMETER :: ind_CO1M22CO3 = 4853 - INTEGER, PARAMETER :: ind_C615CO3 = 4854 - INTEGER, PARAMETER :: ind_C729CO3 = 4855 - INTEGER, PARAMETER :: ind_C5OH2CO4O2 = 4856 - INTEGER, PARAMETER :: ind_C23O3MO2 = 4857 - INTEGER, PARAMETER :: ind_MPRKAO2 = 4858 - INTEGER, PARAMETER :: ind_NPHEN1O = 4859 - INTEGER, PARAMETER :: ind_TBUTCO3 = 4860 - INTEGER, PARAMETER :: ind_C4M2ALOHO2 = 4861 - INTEGER, PARAMETER :: ind_A2PANOO = 4862 - INTEGER, PARAMETER :: ind_C830CO3 = 4863 - INTEGER, PARAMETER :: ind_C4MOHOCO3 = 4864 - INTEGER, PARAMETER :: ind_CO234C6 = 4865 - INTEGER, PARAMETER :: ind_CO3C5CO3 = 4866 - INTEGER, PARAMETER :: ind_H3C2C4CO3 = 4867 - INTEGER, PARAMETER :: ind_IPRCHOO = 4868 - INTEGER, PARAMETER :: ind_BCKSZOO = 4869 - INTEGER, PARAMETER :: ind_NBUTOLBO2 = 4870 - INTEGER, PARAMETER :: ind_CO23C65O2 = 4871 - INTEGER, PARAMETER :: ind_HO3C4CHO = 4872 - INTEGER, PARAMETER :: ind_HO5C5CHO = 4873 - INTEGER, PARAMETER :: ind_H3M3C4CO3 = 4874 - INTEGER, PARAMETER :: ind_CHOCOCH2O2 = 4875 - INTEGER, PARAMETER :: ind_PECO2 = 4876 - INTEGER, PARAMETER :: ind_C6DICARBO2 = 4877 - INTEGER, PARAMETER :: ind_M3HEXBO2 = 4878 - INTEGER, PARAMETER :: ind_C65NO36O2 = 4879 - INTEGER, PARAMETER :: ind_EIPKBO2 = 4880 - INTEGER, PARAMETER :: ind_C4M3NO32O2 = 4881 - INTEGER, PARAMETER :: ind_C6DIAL = 4882 - INTEGER, PARAMETER :: ind_C6DIALOH = 4883 - INTEGER, PARAMETER :: ind_C62NO33O2 = 4884 - INTEGER, PARAMETER :: ind_HO2CO4C5O2 = 4885 - INTEGER, PARAMETER :: ind_M23C4O2 = 4886 - INTEGER, PARAMETER :: ind_MC6CO2O2 = 4887 - INTEGER, PARAMETER :: ind_C7ADCCO3 = 4888 - INTEGER, PARAMETER :: ind_C4COMOH3O2 = 4889 - INTEGER, PARAMETER :: ind_H13M3C5O2 = 4890 - INTEGER, PARAMETER :: ind_C816CO3 = 4891 - INTEGER, PARAMETER :: ind_MXYMUCCO3 = 4892 - INTEGER, PARAMETER :: ind_C6M5CO2O2 = 4893 - INTEGER, PARAMETER :: ind_C58O2 = 4894 - INTEGER, PARAMETER :: ind_MXYFUONE = 4895 - INTEGER, PARAMETER :: ind_EBFUONE = 4896 - INTEGER, PARAMETER :: ind_C826CO3O2 = 4897 - INTEGER, PARAMETER :: ind_C920O2 = 4898 - INTEGER, PARAMETER :: ind_C7CO2M5O2 = 4899 - INTEGER, PARAMETER :: ind_C512O2 = 4900 - INTEGER, PARAMETER :: ind_IPEBO2 = 4901 - INTEGER, PARAMETER :: ind_CO235C5CHO = 4902 - INTEGER, PARAMETER :: ind_C77O2 = 4903 - INTEGER, PARAMETER :: ind_MMALANHYO2 = 4904 - INTEGER, PARAMETER :: ind_C7M6CO2O2 = 4905 - INTEGER, PARAMETER :: ind_MACROO = 4906 - INTEGER, PARAMETER :: ind_PE4E2CO = 4907 - INTEGER, PARAMETER :: ind_MBOOO = 4908 - INTEGER, PARAMETER :: ind_NOA = 4909 - INTEGER, PARAMETER :: ind_C89CO3 = 4910 - INTEGER, PARAMETER :: ind_C66O2 = 4911 - INTEGER, PARAMETER :: ind_APINBOO = 4912 - INTEGER, PARAMETER :: ind_C4CO2O2 = 4913 - INTEGER, PARAMETER :: ind_NORPINAL = 4914 - INTEGER, PARAMETER :: ind_IBUDIALCO3 = 4915 - INTEGER, PARAMETER :: ind_MALDIALCO3 = 4916 - INTEGER, PARAMETER :: ind_C7DCCO3 = 4917 - INTEGER, PARAMETER :: ind_PGLYOX = 4918 - INTEGER, PARAMETER :: ind_PHCHOO = 4919 - INTEGER, PARAMETER :: ind_C23O3EO2 = 4920 - INTEGER, PARAMETER :: ind_C131CO3 = 4921 - INTEGER, PARAMETER :: ind_C4NO3COO2 = 4922 - INTEGER, PARAMETER :: ind_C4CONO3O2 = 4923 - INTEGER, PARAMETER :: ind_CH3CHOHCO3 = 4924 - INTEGER, PARAMETER :: ind_NAPINBO2 = 4925 - INTEGER, PARAMETER :: ind_C6COCHOCO3 = 4926 - INTEGER, PARAMETER :: ind_PXYFUONE = 4927 - INTEGER, PARAMETER :: ind_IPBZMUCO2 = 4928 - INTEGER, PARAMETER :: ind_MECOACETO2 = 4929 - INTEGER, PARAMETER :: ind_IC7DCCO3 = 4930 - INTEGER, PARAMETER :: ind_IPRGLYOX = 4931 - INTEGER, PARAMETER :: ind_OCCOHCO2 = 4932 - INTEGER, PARAMETER :: ind_EPXEALKT = 4933 - INTEGER, PARAMETER :: ind_HO2C54CO3 = 4934 - INTEGER, PARAMETER :: ind_C7M2CO5O2 = 4935 - INTEGER, PARAMETER :: ind_MACRO2 = 4936 - INTEGER, PARAMETER :: ind_TM123BPRO = 4937 - INTEGER, PARAMETER :: ind_BIACET = 4938 - INTEGER, PARAMETER :: ind_CO24C4CHO = 4939 - INTEGER, PARAMETER :: ind_C131O2 = 4940 - INTEGER, PARAMETER :: ind_C2H5CHOO = 4941 - INTEGER, PARAMETER :: ind_HEXAO2 = 4942 - INTEGER, PARAMETER :: ind_CH3CHOO = 4943 - INTEGER, PARAMETER :: ind_C4H9CO3 = 4944 - INTEGER, PARAMETER :: ind_INANO3 = 4945 - INTEGER, PARAMETER :: ind_C7DDCCO3 = 4946 - INTEGER, PARAMETER :: ind_C4MCO2O2 = 4947 - INTEGER, PARAMETER :: ind_TM124MUCO3 = 4948 - INTEGER, PARAMETER :: ind_HOIPRCO3 = 4949 - INTEGER, PARAMETER :: ind_OXYBIPERO = 4950 - INTEGER, PARAMETER :: ind_BZFUONE = 4951 - INTEGER, PARAMETER :: ind_TLFUONE = 4952 - INTEGER, PARAMETER :: ind_C822CO3 = 4953 - INTEGER, PARAMETER :: ind_ACO3 = 4954 - INTEGER, PARAMETER :: ind_C518CO3 = 4955 - INTEGER, PARAMETER :: ind_C3H7CHOO = 4956 - INTEGER, PARAMETER :: ind_C1H4C5CO3 = 4957 - INTEGER, PARAMETER :: ind_HMVKANO3 = 4958 - INTEGER, PARAMETER :: ind_PROL11MO2 = 4959 - INTEGER, PARAMETER :: ind_C618O2 = 4960 - INTEGER, PARAMETER :: ind_C3M3OH2CHO = 4961 - INTEGER, PARAMETER :: ind_HOC3H6CO3 = 4962 - INTEGER, PARAMETER :: ind_CO2C3OO = 4963 - INTEGER, PARAMETER :: ind_BENZAL = 4964 - INTEGER, PARAMETER :: ind_C6H5O = 4965 - INTEGER, PARAMETER :: ind_CO3H4CO3 = 4966 - INTEGER, PARAMETER :: ind_C78O2 = 4967 - INTEGER, PARAMETER :: ind_MC4CODBCO3 = 4968 - INTEGER, PARAMETER :: ind_CO235C6CO3 = 4969 - INTEGER, PARAMETER :: ind_C141CO2H = 4970 - INTEGER, PARAMETER :: ind_TM123MUCO2 = 4971 - INTEGER, PARAMETER :: ind_C52NO31O2 = 4972 - INTEGER, PARAMETER :: ind_MEKAOH = 4973 - INTEGER, PARAMETER :: ind_M2PEBO2 = 4974 - INTEGER, PARAMETER :: ind_HO2C54CHO = 4975 - INTEGER, PARAMETER :: ind_C5HPALD1 = 4976 - INTEGER, PARAMETER :: ind_C23O3ECO3 = 4977 - INTEGER, PARAMETER :: ind_C827CHO = 4978 - INTEGER, PARAMETER :: ind_CO2C54CO3 = 4979 - INTEGER, PARAMETER :: ind_NEOPO2 = 4980 - INTEGER, PARAMETER :: ind_TC4H9O2 = 4981 - INTEGER, PARAMETER :: ind_C535O2 = 4982 - INTEGER, PARAMETER :: ind_HCOCO3H = 4983 - INTEGER, PARAMETER :: ind_C67CO3 = 4984 - INTEGER, PARAMETER :: ind_C4MCODBCO3 = 4985 - INTEGER, PARAMETER :: ind_C5CO14O2 = 4986 - INTEGER, PARAMETER :: ind_C926O2 = 4987 - INTEGER, PARAMETER :: ind_BCARY = 4988 - INTEGER, PARAMETER :: ind_C136CO3 = 4989 - INTEGER, PARAMETER :: ind_C54CO3 = 4990 - INTEGER, PARAMETER :: ind_CO23C54O2 = 4991 - INTEGER, PARAMETER :: ind_C8M2CO6O2 = 4992 - INTEGER, PARAMETER :: ind_MC3CODBCO3 = 4993 - INTEGER, PARAMETER :: ind_M2C43CO3 = 4994 - INTEGER, PARAMETER :: ind_HO1C3O2 = 4995 - INTEGER, PARAMETER :: ind_C6CODIAL = 4996 - INTEGER, PARAMETER :: ind_PGLOO = 4997 - INTEGER, PARAMETER :: ind_IPGLOO = 4998 - INTEGER, PARAMETER :: ind_GAOO = 4999 - INTEGER, PARAMETER :: ind_IBUTALOH = 5000 - INTEGER, PARAMETER :: ind_C3MDIALO2 = 5001 - INTEGER, PARAMETER :: ind_C5HPALD2 = 5002 - INTEGER, PARAMETER :: ind_MMALNBCO3 = 5003 - INTEGER, PARAMETER :: ind_CHOC2CO3 = 5004 - INTEGER, PARAMETER :: ind_MMALNACO3 = 5005 - INTEGER, PARAMETER :: ind_C622CO3 = 5006 - INTEGER, PARAMETER :: ind_BUT2OLO2 = 5007 - INTEGER, PARAMETER :: ind_HO2C43CO3 = 5008 - INTEGER, PARAMETER :: ind_C4OHCHO = 5009 - INTEGER, PARAMETER :: ind_CO2MC5OH = 5010 - INTEGER, PARAMETER :: ind_CO24C53O2 = 5011 - INTEGER, PARAMETER :: ind_PROL1MCHO = 5012 - INTEGER, PARAMETER :: ind_ISOPANO3 = 5013 - INTEGER, PARAMETER :: ind_C126CO3 = 5014 - INTEGER, PARAMETER :: ind_INCO2 = 5015 - INTEGER, PARAMETER :: ind_HMVKBO2 = 5016 - INTEGER, PARAMETER :: ind_C626CO3 = 5017 - INTEGER, PARAMETER :: ind_ACCOMECHO = 5018 - INTEGER, PARAMETER :: ind_H3C25C6O2 = 5019 - INTEGER, PARAMETER :: ind_HMVKAO2 = 5020 - INTEGER, PARAMETER :: ind_C811CO3 = 5021 - INTEGER, PARAMETER :: ind_INDO2 = 5022 - INTEGER, PARAMETER :: ind_HOCH2COCHO = 5023 - INTEGER, PARAMETER :: ind_HMACR = 5024 - INTEGER, PARAMETER :: ind_HC4ACO3 = 5025 - INTEGER, PARAMETER :: ind_CO2C43CHO = 5026 - INTEGER, PARAMETER :: ind_C624CO3 = 5027 - INTEGER, PARAMETER :: ind_BCLKAO2 = 5028 - INTEGER, PARAMETER :: ind_C96CO3 = 5029 - INTEGER, PARAMETER :: ind_TM124BPRO = 5030 - INTEGER, PARAMETER :: ind_C5CO234 = 5031 - INTEGER, PARAMETER :: ind_MIBKAO2 = 5032 - INTEGER, PARAMETER :: ind_HC4CCO3 = 5033 - INTEGER, PARAMETER :: ind_C6DCARBBO2 = 5034 - INTEGER, PARAMETER :: ind_C58AO2 = 5035 - INTEGER, PARAMETER :: ind_MACRNBCO3 = 5036 - INTEGER, PARAMETER :: ind_C4DBDIKET = 5037 - INTEGER, PARAMETER :: ind_HCOCOHCO3 = 5038 - INTEGER, PARAMETER :: ind_C147O2 = 5039 - INTEGER, PARAMETER :: ind_MACRNOO = 5040 - INTEGER, PARAMETER :: ind_C136O2 = 5041 - INTEGER, PARAMETER :: ind_BUT2CHO = 5042 - INTEGER, PARAMETER :: ind_ME3BU2OLO2 = 5043 - INTEGER, PARAMETER :: ind_C731CO3 = 5044 - INTEGER, PARAMETER :: ind_M22C43O2 = 5045 - INTEGER, PARAMETER :: ind_H2O2 = 5046 - INTEGER, PARAMETER :: ind_M3FOO = 5047 - INTEGER, PARAMETER :: ind_BCAOO = 5048 - INTEGER, PARAMETER :: ind_HC3CHO = 5049 - INTEGER, PARAMETER :: ind_NC3CHO = 5050 - INTEGER, PARAMETER :: ind_BUT1ENE = 5051 - INTEGER, PARAMETER :: ind_C1210CO3 = 5052 - INTEGER, PARAMETER :: ind_MEKCO2 = 5053 - INTEGER, PARAMETER :: ind_C519CO3 = 5054 - INTEGER, PARAMETER :: ind_HO2C3CHO = 5055 - INTEGER, PARAMETER :: ind_M2PEDO2 = 5056 - INTEGER, PARAMETER :: ind_H2M2C3CHO = 5057 - INTEGER, PARAMETER :: ind_MALDIAL = 5058 - INTEGER, PARAMETER :: ind_MALANHYO2 = 5059 - INTEGER, PARAMETER :: ind_IBUTOLBO2 = 5060 - INTEGER, PARAMETER :: ind_M3PEBO2 = 5061 - INTEGER, PARAMETER :: ind_SC4H9O2 = 5062 - INTEGER, PARAMETER :: ind_H2M3C4CHO = 5063 - INTEGER, PARAMETER :: ind_CO2M3C5OH = 5064 - INTEGER, PARAMETER :: ind_DDECO2 = 5065 - INTEGER, PARAMETER :: ind_C7DICARB = 5066 - INTEGER, PARAMETER :: ind_HO3C3CHO = 5067 - INTEGER, PARAMETER :: ind_IC7DICARB = 5068 - INTEGER, PARAMETER :: ind_NC4CHO = 5069 - INTEGER, PARAMETER :: ind_EGLYOO = 5070 - INTEGER, PARAMETER :: ind_HOIPRCHO = 5071 - INTEGER, PARAMETER :: ind_C617CHO = 5072 - INTEGER, PARAMETER :: ind_C727CO3 = 5073 - INTEGER, PARAMETER :: ind_INB1O2 = 5074 - INTEGER, PARAMETER :: ind_C57NO3CO3 = 5075 - INTEGER, PARAMETER :: ind_MC5DICARB = 5076 - INTEGER, PARAMETER :: ind_M33C4O2 = 5077 - INTEGER, PARAMETER :: ind_IPECO2 = 5078 - INTEGER, PARAMETER :: ind_HM22CO3 = 5079 - INTEGER, PARAMETER :: ind_BIACETOH = 5080 - INTEGER, PARAMETER :: ind_CYHXONAO2 = 5081 - INTEGER, PARAMETER :: ind_M22C4O2 = 5082 - INTEGER, PARAMETER :: ind_C729CHO = 5083 - INTEGER, PARAMETER :: ind_C626O2 = 5084 - INTEGER, PARAMETER :: ind_C517CHO = 5085 - INTEGER, PARAMETER :: ind_CO13C4CHO = 5086 - INTEGER, PARAMETER :: ind_CH3CHOHCHO = 5087 - INTEGER, PARAMETER :: ind_H3M3C5CO3 = 5088 - INTEGER, PARAMETER :: ind_C5MDICARB = 5089 - INTEGER, PARAMETER :: ind_HM33C3CO3 = 5090 - INTEGER, PARAMETER :: ind_C524O2 = 5091 - INTEGER, PARAMETER :: ind_BCBOO = 5092 - INTEGER, PARAMETER :: ind_MVKOH = 5093 - INTEGER, PARAMETER :: ind_C3MDIALOH = 5094 - INTEGER, PARAMETER :: ind_C622CHO = 5095 - INTEGER, PARAMETER :: ind_PE1ENEBO2 = 5096 - INTEGER, PARAMETER :: ind_MIPKBO2 = 5097 - INTEGER, PARAMETER :: ind_MEKBO2 = 5098 - INTEGER, PARAMETER :: ind_C141CO3 = 5099 - INTEGER, PARAMETER :: ind_CO2H3CO3 = 5100 - INTEGER, PARAMETER :: ind_H2M2C3CO3 = 5101 - INTEGER, PARAMETER :: ind_MGLOO = 5102 - INTEGER, PARAMETER :: ind_C7EDICARB = 5103 - INTEGER, PARAMETER :: ind_C927O2 = 5104 - INTEGER, PARAMETER :: ind_CO23C4CHO = 5105 - INTEGER, PARAMETER :: ind_IPRCO3 = 5106 - INTEGER, PARAMETER :: ind_DECO2 = 5107 - INTEGER, PARAMETER :: ind_HO3C76O2 = 5108 - INTEGER, PARAMETER :: ind_HEXBO2 = 5109 - INTEGER, PARAMETER :: ind_CO235C6 = 5110 - INTEGER, PARAMETER :: ind_CHOC3COCO3 = 5111 - INTEGER, PARAMETER :: ind_NONO2 = 5112 - INTEGER, PARAMETER :: ind_CO13C4OH = 5113 - INTEGER, PARAMETER :: ind_C1210O2 = 5114 - INTEGER, PARAMETER :: ind_HO3C5CHO = 5115 - INTEGER, PARAMETER :: ind_H2M3C4O2 = 5116 - INTEGER, PARAMETER :: ind_C41CO3 = 5117 - INTEGER, PARAMETER :: ind_ISOPCO2 = 5118 - INTEGER, PARAMETER :: ind_H2M4C65O2 = 5119 - INTEGER, PARAMETER :: ind_HO2C54O2 = 5120 - INTEGER, PARAMETER :: ind_HYPROPO2 = 5121 - INTEGER, PARAMETER :: ind_C148O2 = 5122 - INTEGER, PARAMETER :: ind_C5DICARB = 5123 - INTEGER, PARAMETER :: ind_C2H4 = 5124 - INTEGER, PARAMETER :: ind_C3H7CO3 = 5125 - INTEGER, PARAMETER :: ind_C6DICARB = 5126 - INTEGER, PARAMETER :: ind_C51O2 = 5127 - INTEGER, PARAMETER :: ind_MACO3 = 5128 - INTEGER, PARAMETER :: ind_TBUTOLO2 = 5129 - INTEGER, PARAMETER :: ind_C829O2 = 5130 - INTEGER, PARAMETER :: ind_C1011CO3 = 5131 - INTEGER, PARAMETER :: ind_ISOP34O2 = 5132 - INTEGER, PARAMETER :: ind_CONM2CO3 = 5133 - INTEGER, PARAMETER :: ind_C59O2 = 5134 - INTEGER, PARAMETER :: ind_HO5C6O2 = 5135 - INTEGER, PARAMETER :: ind_HO3C4CO3 = 5136 - INTEGER, PARAMETER :: ind_CO3C4CO3 = 5137 - INTEGER, PARAMETER :: ind_UDECO2 = 5138 - INTEGER, PARAMETER :: ind_EGLYOX = 5139 - INTEGER, PARAMETER :: ind_HO1CO4C6 = 5140 - INTEGER, PARAMETER :: ind_C7DDICARB = 5141 - INTEGER, PARAMETER :: ind_C2H5O2 = 5142 - INTEGER, PARAMETER :: ind_CO3C4CHO = 5143 - INTEGER, PARAMETER :: ind_OCTO2 = 5144 - INTEGER, PARAMETER :: ind_IC3H7O2 = 5145 - INTEGER, PARAMETER :: ind_M2HEXAO2 = 5146 - INTEGER, PARAMETER :: ind_IPEAO2 = 5147 - INTEGER, PARAMETER :: ind_HO2M2C4O2 = 5148 - INTEGER, PARAMETER :: ind_HO3C4O2 = 5149 - INTEGER, PARAMETER :: ind_HO2C4O2 = 5150 - INTEGER, PARAMETER :: ind_CO2C54O2 = 5151 - INTEGER, PARAMETER :: ind_NO3CH2CO3 = 5152 - INTEGER, PARAMETER :: ind_C4H6 = 5153 - INTEGER, PARAMETER :: ind_INB2O2 = 5154 - INTEGER, PARAMETER :: ind_MACRNCO3 = 5155 - INTEGER, PARAMETER :: ind_MGLYOO = 5156 - INTEGER, PARAMETER :: ind_CO24C6 = 5157 - INTEGER, PARAMETER :: ind_CO2C3CO3 = 5158 - INTEGER, PARAMETER :: ind_C716OH = 5159 - INTEGER, PARAMETER :: ind_CH3COCH3 = 5160 - INTEGER, PARAMETER :: ind_DIEKBO2 = 5161 - INTEGER, PARAMETER :: ind_C5H11CHO = 5162 - INTEGER, PARAMETER :: ind_PEAO2 = 5163 - INTEGER, PARAMETER :: ind_HO2C3CO3 = 5164 - INTEGER, PARAMETER :: ind_C4H9CHO = 5165 - INTEGER, PARAMETER :: ind_C5H8 = 5166 - INTEGER, PARAMETER :: ind_C58NO3CO3 = 5167 - INTEGER, PARAMETER :: ind_ISOPCNO3 = 5168 - INTEGER, PARAMETER :: ind_LIMAL = 5169 - INTEGER, PARAMETER :: ind_GLYOO = 5170 - INTEGER, PARAMETER :: ind_CO23C4CO3 = 5171 - INTEGER, PARAMETER :: ind_CH3COCO3 = 5172 - INTEGER, PARAMETER :: ind_INAO2 = 5173 - INTEGER, PARAMETER :: ind_C57O2 = 5174 - INTEGER, PARAMETER :: ind_LIMKET = 5175 - INTEGER, PARAMETER :: ind_LMLKET = 5176 - INTEGER, PARAMETER :: ind_HMVKBCHO = 5177 - INTEGER, PARAMETER :: ind_MEK = 5178 - INTEGER, PARAMETER :: ind_CO2C4CO3 = 5179 - INTEGER, PARAMETER :: ind_NO3CH2CHO = 5180 - INTEGER, PARAMETER :: ind_CHEXO2 = 5181 - INTEGER, PARAMETER :: ind_HCOCH2CHO = 5182 - INTEGER, PARAMETER :: ind_C2H5CO3 = 5183 - INTEGER, PARAMETER :: ind_HOC2H4CHO = 5184 - INTEGER, PARAMETER :: ind_HO3C5O2 = 5185 - INTEGER, PARAMETER :: ind_HEXCO2 = 5186 - INTEGER, PARAMETER :: ind_C624CHO = 5187 - INTEGER, PARAMETER :: ind_ACETOL = 5188 - INTEGER, PARAMETER :: ind_C518CHO = 5189 - INTEGER, PARAMETER :: ind_PENT1ENE = 5190 - INTEGER, PARAMETER :: ind_C2H5CHO = 5191 - INTEGER, PARAMETER :: ind_PEBO2 = 5192 - INTEGER, PARAMETER :: ind_CH3CHO = 5193 - INTEGER, PARAMETER :: ind_ACR = 5194 - INTEGER, PARAMETER :: ind_HOCH2CH2O2 = 5195 - INTEGER, PARAMETER :: ind_C817O2 = 5196 - INTEGER, PARAMETER :: ind_BIACETO2 = 5197 - INTEGER, PARAMETER :: ind_C96O2 = 5198 - INTEGER, PARAMETER :: ind_CO23C3CHO = 5199 - INTEGER, PARAMETER :: ind_C3H6 = 5200 - INTEGER, PARAMETER :: ind_HNO3 = 5201 - INTEGER, PARAMETER :: ind_IPROPOLO2 = 5202 - INTEGER, PARAMETER :: ind_IPRCHO = 5203 - INTEGER, PARAMETER :: ind_CISOPCO2 = 5204 - INTEGER, PARAMETER :: ind_HC4ACHO = 5205 - INTEGER, PARAMETER :: ind_C141O2 = 5206 - INTEGER, PARAMETER :: ind_C126CHO = 5207 - INTEGER, PARAMETER :: ind_NC4H9O2 = 5208 - INTEGER, PARAMETER :: ind_C4MDIAL = 5209 - INTEGER, PARAMETER :: ind_CO2H3CHO = 5210 - INTEGER, PARAMETER :: ind_CO2C4CHO = 5211 - INTEGER, PARAMETER :: ind_NORLIMAL = 5212 - INTEGER, PARAMETER :: ind_PINAL = 5213 - INTEGER, PARAMETER :: ind_HCOCH2CO3 = 5214 - INTEGER, PARAMETER :: ind_NOPINONE = 5215 - INTEGER, PARAMETER :: ind_HCOCO3 = 5216 - INTEGER, PARAMETER :: ind_CISOPAO2 = 5217 - INTEGER, PARAMETER :: ind_ISOPAO2 = 5218 - INTEGER, PARAMETER :: ind_ISOPBO2 = 5219 - INTEGER, PARAMETER :: ind_HC4CCHO = 5220 - INTEGER, PARAMETER :: ind_MACRNO3 = 5221 - INTEGER, PARAMETER :: ind_MGLYOX = 5222 - INTEGER, PARAMETER :: ind_CH2OO = 5223 - INTEGER, PARAMETER :: ind_ISOPDO2 = 5224 - INTEGER, PARAMETER :: ind_MVKNO3 = 5225 - INTEGER, PARAMETER :: ind_MACR = 5226 - INTEGER, PARAMETER :: ind_MVK = 5227 - INTEGER, PARAMETER :: ind_CH3O2 = 5228 - INTEGER, PARAMETER :: ind_NC3H7O2 = 5229 - INTEGER, PARAMETER :: ind_C3H7CHO = 5230 - INTEGER, PARAMETER :: ind_HCHO = 5231 - INTEGER, PARAMETER :: ind_HOCH2CO3 = 5232 - INTEGER, PARAMETER :: ind_GLYOX = 5233 - INTEGER, PARAMETER :: ind_HOCH2CHO = 5234 - INTEGER, PARAMETER :: ind_HCOCH2O2 = 5235 - INTEGER, PARAMETER :: ind_C923O2 = 5236 - INTEGER, PARAMETER :: ind_HOC2H4CO3 = 5237 - INTEGER, PARAMETER :: ind_CL = 5238 - INTEGER, PARAMETER :: ind_C3ME3CHOO2 = 5239 - INTEGER, PARAMETER :: ind_C116CHO = 5240 - INTEGER, PARAMETER :: ind_CH3COCH2O2 = 5241 - INTEGER, PARAMETER :: ind_CO2C3CHO = 5242 - INTEGER, PARAMETER :: ind_IPRHOCO3 = 5243 - INTEGER, PARAMETER :: ind_CH3CO3 = 5244 - INTEGER, PARAMETER :: ind_C928CO3 = 5245 - INTEGER, PARAMETER :: ind_MEKAO2 = 5246 - INTEGER, PARAMETER :: ind_C132O2 = 5247 - INTEGER, PARAMETER :: ind_BCLKET = 5248 - INTEGER, PARAMETER :: ind_BCKET = 5249 - INTEGER, PARAMETER :: ind_OH = 5250 - INTEGER, PARAMETER :: ind_CO = 5251 - INTEGER, PARAMETER :: ind_NO = 5252 - INTEGER, PARAMETER :: ind_NO2 = 5253 - INTEGER, PARAMETER :: ind_SO2 = 5254 - INTEGER, PARAMETER :: ind_HO2 = 5255 - INTEGER, PARAMETER :: ind_NO3 = 5256 - INTEGER, PARAMETER :: ind_BCAL = 5257 - INTEGER, PARAMETER :: ind_O3 = 5258 - -! Index declaration for fixed species in C -! C(ind_spc) - - INTEGER, PARAMETER :: ind_H2O = 5259 - INTEGER, PARAMETER :: ind_M = 5260 - -! Index declaration for fixed species in FIX -! FIX(indf_spc) = C(ind_spc) = C(NVAR+indf_spc) - - INTEGER, PARAMETER :: indf_H2O = 1 - INTEGER, PARAMETER :: indf_M = 2 - -! NJVRP - Length of sparse Jacobian JVRP - INTEGER, PARAMETER :: NJVRP = 24044 - -! NSTOICM - Length of Sparse Stoichiometric Matrix - INTEGER, PARAMETER :: NSTOICM = 49240 - -END MODULE MCMv3_3_Parameters - diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Parameters.o b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Parameters.o deleted file mode 100644 index 20b4b32ba6a69533677ddd95847ec67d4c56145b..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Parameters.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Precision.f90 b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Precision.f90 deleted file mode 100644 index e091e086a7b221f415b0b9e7d4345a4f2dd92cf8..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Precision.f90 +++ /dev/null @@ -1,17 +0,0 @@ - -MODULE MCMv3_3_Precision - -! -! Definition of different levels of accuracy -! for REAL variables using KIND parameterization -! -! KPP SP - Single precision kind - INTEGER, PARAMETER :: sp = SELECTED_REAL_KIND(6,30) -! KPP DP - Double precision kind - INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(14,300) -! KPP QP - Quadruple precision kind - INTEGER, PARAMETER :: qp = SELECTED_REAL_KIND(18,400) - -END MODULE MCMv3_3_Precision - - diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Precision.o b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Precision.o deleted file mode 100644 index 3c9242b046737f1a590d26810fb16b427b52aa03..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Precision.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Rates.f90 b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Rates.f90 deleted file mode 100644 index c081bccb72f6148edac19908656cb25a953c56aa..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Rates.f90 +++ /dev/null @@ -1,18451 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The Reaction Rates File -! -! Generated by KPP-2.2.3 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 : MCMv3_3_Rates.f90 -! Time : Mon Jul 19 14:16:06 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MCMv3_3_3654_BOXMOX -! Equation file : MCMv3_3.kpp -! Output root filename : MCMv3_3 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MCMv3_3_Rates - - USE MCMv3_3_Parameters - USE MCMv3_3_Global - USE MCMv3_3_Util - IMPLICIT NONE - -CONTAINS - - - -! Begin Rate Law Functions from KPP_HOME/util/UserRateLaws - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! User-defined Rate Law functions -! Note: the default argument type for rate laws, as read from the equations file, is single precision -! but all the internal calculations are performed in double precision -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~> Arrhenius -! REAL(kind=dp) FUNCTION ARR( A0,B0,C0 ) -! REAL A0,B0,C0 -! ARR = DBLE(A0) * EXP(-DBLE(B0)/TEMP) * (TEMP/300.0_dp)**DBLE(C0) -! END FUNCTION ARR - -! Arrhenius (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION ARR( A0,B0,C0, TEMP ) - REAL(kind=dp) :: TEMP - REAL(kind=dp) A0,B0,C0 - ARR = A0 * EXP( -B0 /TEMP ) * (TEMP/300._dp)**C0 - END FUNCTION ARR - -!~~~> Simplified Arrhenius, with two arguments -!~~~> Note: The argument B0 has a changed sign when compared to ARR -! REAL(kind=dp) FUNCTION ARR2( A0,B0 ) -! REAL A0,B0 -! ARR2 = DBLE(A0) * EXP( DBLE(B0)/TEMP ) -! END FUNCTION ARR2 -! CK 20140313 WRF-chem uses different kind of Arrhenius function -! with TEMP as argument... - REAL(kind=dp) FUNCTION ARR2( A0,B0, TEMP ) - REAL(kind=dp) :: TEMP - REAL(kind=dp) A0,B0 - ARR2 = A0 * EXP( -B0 /TEMP ) - END FUNCTION ARR2 -! CK 20140313 end - -! REAL(kind=dp) FUNCTION EP2(A0,C0,A2,C2,A3,C3) -! REAL A0,C0,A2,C2,A3,C3 -! REAL(kind=dp) K0,K2,K3 -! K0 = DBLE(A0) * EXP(-DBLE(C0)/TEMP) -! K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP) -! K3 = DBLE(A3) * EXP(-DBLE(C3)/TEMP) -! K3 = K3*CFACTOR*1.0E6_dp -! EP2 = K0 + K3/(1.0_dp+K3/K2 ) -! END FUNCTION EP2 - -! REAL(kind=dp) FUNCTION EP3(A1,C1,A2,C2) -! REAL A1, C1, A2, C2 -! REAL(kind=dp) K1, K2 -! K1 = DBLE(A1) * EXP(-DBLE(C1)/TEMP) -! K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP) -! EP3 = K1 + K2*(1.0E6_dp*CFACTOR) -! END FUNCTION EP3 - -! EP2 (added by psaide 22-07-2009) - REAL(kind=dp) FUNCTION EP2( A0,C0,A2,C2,A3,C3,TEMP,cair) - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A0,C0,A2,C2,A3,C3 - REAL(kind=dp) K0,K2,K3 - - K0 = A0 * EXP(-C0 /TEMP) - K2 = A2 * EXP(-C2 /TEMP) - K3 = A3 * EXP(-C3 /TEMP) -! K3 = K3 * 2.45E13_dp * 1.0E6_dp - K3 = K3 * cair - EP2 = K0 + K3/(1._dp+K3/K2 ) - END FUNCTION EP2 - -! EP3 (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION EP3(A1,C1,A2,C2,TEMP,cair) - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A1, C1, A2, C2 - REAL(kind=dp) K1, K2 - - K1 = A1 * EXP(-C1 /TEMP) - K2 = A2 * EXP(-C2 /TEMP) -! EP3 = K1 + K2*(1.0E6_dp * 2.45E13_dp) - EP3 = K1 + K2*cair - END FUNCTION EP3 - - -! REAL(kind=dp) FUNCTION FALL ( A0,B0,C0,A1,B1,C1,CF) -! REAL A0,B0,C0,A1,B1,C1,CF -! REAL(kind=dp) K0, K1 -! K0 = DBLE(A0) * EXP(-DBLE(B0)/TEMP)* (TEMP/300.0_dp)**DBLE(C0) -! K1 = DBLE(A1) * EXP(-DBLE(B1)/TEMP)* (TEMP/300.0_dp)**DBLE(C1) -! K0 = K0*CFACTOR*1.0E6_dp -! K1 = K0/K1 -! FALL = (K0/(1.0_dp+K1))* & -! DBLE(CF)**(1.0_dp/(1.0_dp+(LOG10(K1))**2)) -! END FUNCTION FALL - -! FALL (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION FALL( A0,B0,C0,A1,B1,C1,CF,TEMP,cair) - - INTRINSIC LOG10 - - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A0,B0,C0,A1,B1,C1,CF - REAL(kind=dp) K0, K1 - - K0 = A0 * EXP(-B0 /TEMP)* (TEMP/300._dp)**C0 - K1 = A1 * EXP(-B1 /TEMP)* (TEMP/300._dp)**C1 -! K0 = K0 * 2.45E13_dp * 1.0E6_dp - K0 = K0 * cair - K1 = K0/K1 - FALL = (K0/(1._dp+K1))*CF**(1._dp/(1._dp+(LOG10(K1))**2)) - - END FUNCTION FALL - -! FALL2 (added by psaide 28-10-2009) - REAL(KIND=dp) FUNCTION F2( A0,B0,C0,A1,B1,C1,CF,CN,TEMP,cair) - - INTRINSIC LOG10 - - REAL(KIND=dp) :: TEMP - REAL(KIND=dp) :: cair - REAL(KIND=dp) A0,B0,C0,A1,B1,C1,CF,CN - REAL(KIND=dp) K0, K1 - - K0 = A0 * EXP(-B0 /TEMP)* (TEMP/300._dp)**C0 - K1 = A1 * EXP(-B1 /TEMP)* (TEMP/300._dp)**C1 -! K0 = K0 * 2.45E13_dp * 1.0E6_dp - K0 = K0 * cair - K1 = K0/K1 - F2 = (K0/(1._dp+K1))*CF**(1._dp/(1._dp+(LOG10(K1)/CN)**2)) - - END FUNCTION F2 - - - !--------------------------------------------------------------------------- - - ELEMENTAL REAL(kind=dp) FUNCTION k_3rd(temp,cair,k0_300K,n,kinf_300K,m,fc) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL, INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL, INTENT(IN) :: n ! exponent for low pressure limit - REAL, INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL, INTENT(IN) :: m ! exponent for high pressure limit - REAL, INTENT(IN) :: fc ! broadening factor (usually fc=0.6) - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - k_3rd = k0_T/(1._dp+k_ratio)*fc**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - END FUNCTION k_3rd - - !--------------------------------------------------------------------------- - - ELEMENTAL REAL(kind=dp) FUNCTION k_arr (k_298,tdep,temp) - ! Arrhenius function - - REAL, INTENT(IN) :: k_298 ! k at T = 298.15K - REAL, INTENT(IN) :: tdep ! temperature dependence - REAL(kind=dp), INTENT(IN) :: temp ! temperature - - INTRINSIC EXP - - k_arr = k_298 * EXP(tdep*(1._dp/temp-3.3540E-3_dp)) ! 1/298.15=3.3540e-3 - - END FUNCTION k_arr - -! CK 20140313 in the following some more rate functions needed by -! WRF-chem packages - -!------------------------------------ -! Troe reactions (as in Stockwell et al, 1997) - - REAL(kind=dp) FUNCTION TROE(k0_300K,n,kinf_300K,m,temp,cair) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - TROE = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - END FUNCTION TROE - - - -!------------------------------------------- -! Troe equilibrium reactions (as in Stockwell et al, 1997) - - REAL(kind=dp) FUNCTION TROEE(A, B, k0_300K,n,kinf_300K,m,temp,cair) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - REAL(kind=dp), INTENT(IN) :: A, B - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio, troe - - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - troe = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - TROEE = A * EXP( - B / temp) * troe - - - - END FUNCTION TROEE - -!------------------------ -! k=T^2 C exp (-D/T) reactions - - REAL(kind=dp) FUNCTION THERMAL_T2(c, d ,temp) - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: c, d - - - THERMAL_T2= temp**2._dp * c * EXP(- d / temp) - - END FUNCTION THERMAL_T2 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! End of User-defined Rate Law functions -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -! End Rate Law Functions from KPP_HOME/util/UserRateLaws - - -! Begin INLINED Rate Law Functions - - - -! **************************************************************************** -! J - the photolysis rate retrieval function -! **************************************************************************** - REAL(kind=dp) FUNCTION J(name) - - CHARACTER(LEN=*), INTENT(IN) :: name - - CHARACTER(LEN=15) :: xname - - INTEGER :: i - - xname(:) = " " - xname(1:LEN(name)) = name - - J = jvalues(hash(xname)) - - RETURN - - END FUNCTION J -! **************************************************************************** - - -! End INLINED Rate Law Functions - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_SUN - update SUN light using TIME -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - SUBROUTINE Update_SUN() - !USE MCMv3_3_Parameters - !USE MCMv3_3_Global - - IMPLICIT NONE - - REAL(kind=dp) :: SunRise, SunSet - REAL(kind=dp) :: Thour, Tlocal, Ttmp - ! PI - Value of pi - REAL(kind=dp), PARAMETER :: PI = 3.14159265358979d0 - - SunRise = 4.5_dp - SunSet = 19.5_dp - Thour = TIME/3600.0_dp - Tlocal = Thour - (INT(Thour)/24)*24 - - IF ((Tlocal>=SunRise).AND.(Tlocal<=SunSet)) THEN - Ttmp = (2.0*Tlocal-SunRise-SunSet)/(SunSet-SunRise) - IF (Ttmp.GT.0) THEN - Ttmp = Ttmp*Ttmp - ELSE - Ttmp = -Ttmp*Ttmp - END IF - SUN = ( 1.0_dp + COS(PI*Ttmp) )/2.0_dp - ELSE - SUN = 0.0_dp - END IF - - END SUBROUTINE Update_SUN - -! End of Update_SUN function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_RCONST - function to update rate constants -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Update_RCONST ( ) - - - - -! Begin INLINED RCONST - - - ! start of executable statements - - M = C(ind_M) - O2 = 0.20946 * M - N2 = 0.78084 * M -! H2O = 0.01 * M - H2O = C(ind_H2O) - - RO2 = & - C(ind_HOCH2CH2O2) + C(ind_HO1C3O2) + C(ind_HYPROPO2) + C(ind_IPROPOLO2) + & - C(ind_NBUTOLAO2) + C(ind_NBUTOLBO2) + C(ind_BUT2OLO2) + & - C(ind_IBUTOLBO2) + C(ind_IBUTOLCO2) + C(ind_TBUTOLO2) + C(ind_HO3C5O2) & - + C(ind_PE2ENEBO2) + C(ind_HM2C43O2) + C(ind_M2BUOL2O2) + & - C(ind_HM33C3O2) + C(ind_ME3BUOLO2) + C(ind_HO2M2C4O2) + & - C(ind_ME2BU2OLO2) + C(ind_PROL11MO2) + C(ind_H2M3C4O2) + & - C(ind_ME2BUOLO2) + C(ind_CYHEXOLAO2) + C(ind_MIBKAOHAO2) + & - C(ind_MIBKAOHBO2) + C(ind_MIBKHO4O2) + C(ind_CH3CO3) + C(ind_NMBOAO2) & - + C(ind_NMBOBO2) + C(ind_MBOAO2) + C(ind_MBOBO2) + C(ind_CH3O2) + & - C(ind_HCOCH2O2) + C(ind_C2H5CO3) + C(ind_C2H5O2) + C(ind_C3H7CO3) + & - C(ind_BUTALO2) + C(ind_NC3H7O2) + C(ind_IPRCO3) + C(ind_IBUTALBO2) + & - C(ind_IBUTALCO2) + C(ind_IC3H7O2) + C(ind_C4H9CO3) + C(ind_C4CHOBO2) + & - C(ind_NC4H9O2) + C(ind_ACO3) + C(ind_ACRO2) + C(ind_OCCOHCO2) + & - C(ind_CH3C2H2O2) + C(ind_MACO3) + C(ind_MACRO2) + C(ind_MACROHO2) + & - C(ind_C3DBCO3) + C(ind_C4CONO3O2) + C(ind_C4NO3COO2) + & - C(ind_C4OCCOHCO2) + C(ind_COCCOH2CO2) + C(ind_SC4H9O2) + & - C(ind_IC4H9O2) + C(ind_TC4H9O2) + C(ind_PEAO2) + C(ind_PEBO2) + & - C(ind_PECO2) + C(ind_IPEAO2) + C(ind_IPEBO2) + C(ind_IPECO2) + & - C(ind_NEOPO2) + C(ind_HEXAO2) + C(ind_HEXBO2) + C(ind_HEXCO2) + & - C(ind_M2PEAO2) + C(ind_M2PEBO2) + C(ind_M2PECO2) + C(ind_M2PEDO2) + & - C(ind_M3PEAO2) + C(ind_M3PEBO2) + C(ind_M3PECO2) + C(ind_M22C43O2) + & - C(ind_M22C4O2) + C(ind_M33C4O2) + C(ind_M23C43O2) + C(ind_M23C4O2) + & - C(ind_HEPTO2) + C(ind_M2HEXAO2) + C(ind_M2HEXBO2) + C(ind_M3HEXAO2) + & - C(ind_M3HEXBO2) + C(ind_OCTO2) + C(ind_NONO2) + C(ind_DECO2) + & - C(ind_UDECO2) + C(ind_DDECO2) + C(ind_CHEXO2) + C(ind_ETHENO3O2) + & - C(ind_PRONO3AO2) + C(ind_PRONO3BO2) + C(ind_BU1ENO3O2) + & - C(ind_C43NO34O2) + C(ind_HO3C4O2) + C(ind_C42NO33O2) + & - C(ind_MPRANO3O2) + C(ind_MPRBNO3O2) + C(ind_C51NO32O2) + & - C(ind_C52NO31O2) + C(ind_PE1ENEAO2) + C(ind_PE1ENEBO2) + & - C(ind_C52NO33O2) + C(ind_C53NO32O2) + C(ind_PE2ENEAO2) + & - C(ind_C4NO32M1O2) + C(ind_C4NO32M2O2) + C(ind_C4M3NO31O2) + & - C(ind_C4M3NO32O2) + C(ind_IPRCHOOA) + C(ind_ME3BU2OLO2) + & - C(ind_C4M2NO32O2) + C(ind_C4M2NO33O2) + C(ind_C65NO36O2) + & - C(ind_C66NO35O2) + C(ind_C6OH5O2) + C(ind_HO5C6O2) + C(ind_C62NO33O2) & - + C(ind_C63NO32O2) + C(ind_C64OH5O2) + C(ind_C65OH4O2) + & - C(ind_C4ME2NO3O2) + C(ind_C4ME2OHO2) + C(ind_BZBIPERO2) + & - C(ind_C6H5CH2O2) + C(ind_TLBIPERO2) + C(ind_OXYLO2) + & - C(ind_OXYBIPERO2) + C(ind_MXYLO2) + C(ind_MXYBIPERO2) + C(ind_PXYLO2) & - + C(ind_PXYBIPERO2) + C(ind_C6H5C2H4O2) + C(ind_EBZBIPERO2) + & - C(ind_PHC3O2) + C(ind_PBZBIPERO2) + C(ind_PHIC3O2) + C(ind_IPBZBIPRO2) & - + C(ind_TM123BO2) + C(ind_TM123BPRO2) + C(ind_TM124BO2) + & - C(ind_TM124BPRO2) + C(ind_TMBO2) + C(ind_TM135BPRO2) + C(ind_ETOLO2) + & - C(ind_OETLBIPRO2) + C(ind_METLBIPRO2) + C(ind_PETLBIPRO2) + & - C(ind_DM35EBO2) + C(ind_DMEBIPRO2) + C(ind_DE35TO2) + & - C(ind_DETLBIPRO2) + C(ind_NSTYRENO2) + C(ind_STYRENO2) + & - C(ind_C6H5CO3) + C(ind_C6H5O2) + C(ind_NBUTDAO2) + C(ind_NBUTDBO2) + & - C(ind_BUTDAO2) + C(ind_BUTDBO2) + C(ind_BUTDCO2) + C(ind_NISOPO2) + & - C(ind_ISOP34O2) + C(ind_CH3OCH2O2) + C(ind_DIETETO2) + C(ind_ETOC2O2) & - + C(ind_CH3COCH2O2) + C(ind_MEKAO2) + C(ind_MEKBO2) + C(ind_MEKCO2) + & - C(ind_CO2C54O2) + C(ind_MPRKAO2) + C(ind_DIEKAO2) + C(ind_DIEKBO2) + & - C(ind_MIPKAO2) + C(ind_MIPKBO2) + C(ind_HEX2ONAO2) + C(ind_HEX2ONBO2) & - + C(ind_HEX2ONCO2) + C(ind_HEX3ONAO2) + C(ind_HEX3ONBO2) + & - C(ind_HEX3ONCO2) + C(ind_HEX3ONDO2) + C(ind_MIBKAO2) + C(ind_MIBKBO2) & - + C(ind_MTBKO2) + C(ind_CYHXONAO2) + C(ind_NAPINAO2) + C(ind_NAPINBO2) & - + C(ind_APINAO2) + C(ind_APINBO2) + C(ind_APINCO2) + C(ind_NBPINAO2) + & - C(ind_NBPINBO2) + C(ind_BPINAO2) + C(ind_BPINBO2) + C(ind_BPINCO2) + & - C(ind_NLIMO2) + C(ind_LIMAO2) + C(ind_LIMBO2) + C(ind_LIMCO2) + & - C(ind_NBCO2) + C(ind_BCAO2) + C(ind_BCBO2) + C(ind_BCCO2) + & - C(ind_BUT2CO3) + C(ind_C3ME3CO3) + C(ind_C3ME3CHOO2) + C(ind_HOCH2CO3) & - + C(ind_CH3CHOHCO3) + C(ind_IPRHOCO3) + C(ind_IPRCHOO) + & - C(ind_BZEMUCCO3) + C(ind_BZEMUCO2) + C(ind_C5DIALO2) + C(ind_NPHENO2) & - + C(ind_PHENO2) + C(ind_CRESO2) + C(ind_NCRESO2) + C(ind_TLEMUCCO3) + & - C(ind_TLEMUCO2) + C(ind_C615CO2O2) + C(ind_OXYMUCCO3) + & - C(ind_OXYMUCO2) + C(ind_MC6CO2O2) + C(ind_NOXYOLO2) + C(ind_OXYOLO2) + & - C(ind_MXYMUCCO3) + C(ind_MXYMUCO2) + C(ind_C726CO5O2) + C(ind_MXYOLO2) & - + C(ind_NMXYOLO2) + C(ind_PXYMUCCO3) + C(ind_PXYMUCO2) + & - C(ind_C6M5CO2O2) + C(ind_NPXYOLO2) + C(ind_PXYOLO2) + C(ind_EBENZOLO2) & - + C(ind_NEBNZOLO2) + C(ind_EBZMUCCO3) + C(ind_EBZMUCO2) + & - C(ind_C715CO2O2) + C(ind_NPBNZOLO2) + C(ind_PBENZOLO2) + & - C(ind_PBZMUCCO3) + C(ind_PBZMUCO2) + C(ind_C815CO2O2) + & - C(ind_IPBENZOLO2) + C(ind_NIPBNZOLO2) + C(ind_IPBZMUCCO3) + & - C(ind_IPGLOOB) + C(ind_IPBZMUCO2) + C(ind_C7M15CO2O2) + & - C(ind_NTM123OLO2) + C(ind_TM123OLO2) + C(ind_TM123MUCO2) + & - C(ind_NTM124OLO2) + C(ind_TM124OLO2) + C(ind_TM124MUCO3) + & - C(ind_TM124MUCO2) + C(ind_C7CO2M5O2) + C(ind_NTM135OLO2) + & - C(ind_TM135OLO2) + C(ind_TM135MUCO3) + C(ind_TM135MUCO2) + & - C(ind_C7M2CO5O2) + C(ind_OETLMUCCO3) + C(ind_OETLMUCO2) + & - C(ind_MC7CO2O2) + C(ind_NOETOLO2) + C(ind_OETOLO2) + C(ind_METLMUCCO3) & - + C(ind_METLMUCO2) + C(ind_C826CO3O2) + C(ind_METOLO2) + & - C(ind_NMETOLO2) + C(ind_PETLMUCCO3) + C(ind_PETLMUCO2) + & - C(ind_C7M6CO2O2) + C(ind_NPETOLO2) + C(ind_PETOLO2) + C(ind_DMEBMUCO3) & - + C(ind_DMEBMUCO2) + C(ind_C8M2CO6O2) + C(ind_NDMEPHOLO2) + & - C(ind_DMEPHOLO2) + C(ind_NDEMPHOLO2) + C(ind_DEMPHOLO2) + & - C(ind_DETLMUCO3) + C(ind_DETLMUCO2) + C(ind_C9M2CO6O2) + & - C(ind_HMVKAO2) + C(ind_HMVKBO2) + C(ind_MVKO2) + C(ind_CISOPAO2) + & - C(ind_ISOPBO2) + C(ind_CISOPCO2) + C(ind_ISOPDO2) + C(ind_NC526O2) + & - C(ind_C530O2) + C(ind_M3BU3ECO3) + C(ind_C45O2) + C(ind_NC51O2) + & - C(ind_C51O2) + C(ind_CH2CHCH2O2) + C(ind_ISOPAO2) + C(ind_ISOPCO2) + & - C(ind_C107O2) + C(ind_C109O2) + C(ind_C96O2) + C(ind_NOPINAO2) + & - C(ind_NOPINBO2) + C(ind_NOPINCO2) + C(ind_NOPINDO2) + C(ind_LIMALAO2) & - + C(ind_LIMALBO2) + C(ind_C923O2) + C(ind_BCALAO2) + C(ind_BCALBO2) + & - C(ind_C136O2) + C(ind_BCALCO2) + C(ind_C141O2) + C(ind_HOC2H4CO3) + & - C(ind_HOIPRCO3) + C(ind_HO13C5O2) + C(ind_HO3C4CO3) + C(ind_C54O2) + & - C(ind_H2M2C3CO3) + C(ind_PROL1MCO3) + C(ind_C56O2) + C(ind_HO2C43CO3) & - + C(ind_MIBKCOOHO2) + C(ind_NC4OHCO3) + C(ind_C4OH2CO3) + & - C(ind_CO2C3CO3) + C(ind_HO2C3CO3) + C(ind_IBUDIALCO3) + & - C(ind_PROPALO2) + C(ind_CO3C4CO3) + C(ind_HO1C4O2) + C(ind_A2PANOO) + & - C(ind_HCOCOHCO3) + C(ind_HCOCO3) + C(ind_MACRNCO3) + C(ind_MACRNBCO3) & - + C(ind_CHOMOHCO3) + C(ind_CO2H3CO3) + C(ind_HO1C5O2) + C(ind_HO2C5O2) & - + C(ind_C52O2) + C(ind_TBUTCO3) + C(ind_HO1C6O2) + C(ind_C5H11CO3) + & - C(ind_HO2C6O2) + C(ind_HO3C6O2) + C(ind_HO1MC5O2) + C(ind_C54CO3) + & - C(ind_HO2MC5O2) + C(ind_EIPKAO2) + C(ind_EIPKBO2) + C(ind_HO2M2C5O2) + & - C(ind_H1MC5O2) + C(ind_M3C4CO3) + C(ind_H2MC5O2) + C(ind_M2BKAO2) + & - C(ind_M2BKBO2) + C(ind_HM33C4O2) + C(ind_M22C3CO3) + C(ind_HM22C4O2) + & - C(ind_M33C3CO3) + C(ind_HM23C4O2) + C(ind_M2C43CO3) + C(ind_HO3C76O2) & - + C(ind_CO3C75O2) + C(ind_H2M5C65O2) + C(ind_C75O2) + C(ind_H2M2C65O2) & - + C(ind_H2M4C65O2) + C(ind_C710O2) + C(ind_H3M3C6O2) + C(ind_HO3C86O2) & - + C(ind_CO3C85O2) + C(ind_HO3C96O2) + C(ind_C91O2) + C(ind_HO3C106O2) & - + C(ind_C101O2) + C(ind_HO3C116O2) + C(ind_C111O2) + C(ind_HO3C126O2) & - + C(ind_C121O2) + C(ind_CO1C6O2) + C(ind_NO3CH2CO3) + C(ind_PRNO3CO3) & - + C(ind_CO3C4NO3O2) + C(ind_HO3C3CO3) + C(ind_MPRBNO3CO3) + & - C(ind_C5NO3COAO2) + C(ind_C4NO3CO3) + C(ind_C5OH2CO4O2) + & - C(ind_C4OHCO3) + C(ind_C5NO3CO4O2) + C(ind_C5CONO34O2) + & - C(ind_C43NO3CO3) + C(ind_C4MCONO3O2) + C(ind_C3MNO3CO3) + & - C(ind_C3M3OH2CO3) + C(ind_MC4CONO3O2) + C(ind_C65NO36CO3) + & - C(ind_MNO3COC4O2) + C(ind_C4COMOH3O2) + C(ind_HO5C5CO3) + & - C(ind_C6NO3CO5O2) + C(ind_C6CONO34O2) + C(ind_MALDIALCO3) + & - C(ind_EPXDLCO3) + C(ind_C3DIALO2) + C(ind_MALDIALO2) + C(ind_OXYL1O2) & - + C(ind_C5CO14O2) + C(ind_OXYLCO3) + C(ind_EPXM2DLCO3) + & - C(ind_C4MCO2O2) + C(ind_DM123O2) + C(ind_MXYLCO3) + C(ind_MXYL1O2) + & - C(ind_C3MCODBCO3) + C(ind_EPXMDLCO3) + C(ind_C3MDIALO2) + & - C(ind_MXY1O2) + C(ind_PXYLCO3) + C(ind_PXYL1O2) + C(ind_PXY1O2) + & - C(ind_C6H5CH2CO3) + C(ind_EBENZO2) + C(ind_C6DCARBBO2) + & - C(ind_PHCOETO2) + C(ind_PBENZO2) + C(ind_C7DCCO3) + C(ind_IPBENZO2) + & - C(ind_IC7DCCO3) + C(ind_IPGLOO) + C(ind_TM123BCO3) + C(ind_TM123O2) + & - C(ind_EPXKTMCO3) + C(ind_C4CO2O2) + C(ind_TM124BCO3) + C(ind_DM124O2) & - + C(ind_TM124O2) + C(ind_TMBCO3) + C(ind_DMPHO2) + C(ind_C4MCODBCO3) + & - C(ind_EPXMKTCO3) + C(ind_CO24C53O2) + C(ind_MPHCOMEO2) + & - C(ind_EPXMEDLCO3) + C(ind_C4ECO2O2) + C(ind_OET1O2) + C(ind_MET1O2) + & - C(ind_PET1O2) + C(ind_DMPHCOMO2) + C(ind_EMPHCOMO2) + C(ind_EMPHCO3) + & - C(ind_C7CODBCO3) + C(ind_EPXEKTCO3) + C(ind_C3EDIALO2) + & - C(ind_CO24C63O2) + C(ind_HNMVKO2) + C(ind_NC3CO3) + C(ind_C42O2) + & - C(ind_HC3CO3) + C(ind_C41O2) + C(ind_MVKOHAO2) + C(ind_MVKOHBO2) + & - C(ind_HC3CCO3) + C(ind_INCO2) + C(ind_NC4CO3) + C(ind_C510O2) + & - C(ind_C536O2) + C(ind_C537O2) + C(ind_INAO2) + C(ind_C58O2) + & - C(ind_HC4CO3) + C(ind_CHOOCH2O2) + C(ind_ACETC2H4O2) + & - C(ind_EOCOCH2O2) + C(ind_ETHACETO2) + C(ind_ETOMEO2) + & - C(ind_EOX2EOLAO2) + C(ind_EOX2EOLBO2) + C(ind_EOX2MECO3) + & - C(ind_HO1CO3C4O2) + C(ind_BIACETO2) + C(ind_HO2CO4C5O2) + & - C(ind_CO23C54O2) + C(ind_HOCO3C54O2) + C(ind_C53O2) + C(ind_C41CO3) + & - C(ind_CO2HOC61O2) + C(ind_CO24C6O2) + C(ind_CO25C6O2) + C(ind_HO2C4O2) & - + C(ind_C61O2) + C(ind_CO23C65O2) + C(ind_C6CO3OH5O2) + & - C(ind_C6CO34O2) + C(ind_C6HO1CO3O2) + C(ind_C3COCCO3) + & - C(ind_PEN2ONE1O2) + C(ind_MIBK3COO2) + C(ind_C612O2) + & - C(ind_CO2M33CO3) + C(ind_C6COCHOO2) + C(ind_CY6DIONO2) + & - C(ind_NC101O2) + C(ind_C96CO3) + C(ind_C720O2) + C(ind_NC91CO3) + & - C(ind_C8BCO2) + C(ind_C918CO3) + C(ind_C923CO3) + C(ind_C141CO3) + & - C(ind_NBCALO2) + C(ind_BCALO2) + C(ind_BCSOZO2) + C(ind_C151O2) + & - C(ind_C152O2) + C(ind_CHOC4CO3) + C(ind_C6DIALO2) + C(ind_CHOC4O2) + & - C(ind_CYC6DIONO2) + C(ind_CONM2CO3) + C(ind_NBZFUO2) + C(ind_BZFUO2) + & - C(ind_CATEC1O2) + C(ind_MCATEC1O2) + C(ind_MC3CODBCO3) + & - C(ind_C4M2ALOHO2) + C(ind_C5DICARBO2) + C(ind_NTLFUO2) + C(ind_TLFUO2) & - + C(ind_MC4CODBCO3) + C(ind_MC5CO2OHO2) + C(ind_NOXYFUO2) + & - C(ind_C6OTKETO2) + C(ind_OXYFUO2) + C(ind_OXCATEC1O2) + & - C(ind_C5MCO2OHO2) + C(ind_NMXYFUO2) + C(ind_C23O3MO2) + C(ind_MXYFUO2) & - + C(ind_NPXYFUO2) + C(ind_MCOCOMOXO2) + C(ind_PXYFUO2) + & - C(ind_MXCATEC1O2) + C(ind_DMKOHO2) + C(ind_PXCATEC1O2) + & - C(ind_ECATEC1O2) + C(ind_C6DICARBO2) + C(ind_NEBFUO2) + & - C(ind_BUTALAO2) + C(ind_EBFUO2) + C(ind_C7CO3OHO2) + C(ind_PCATEC1O2) & - + C(ind_C7DCO2) + C(ind_NPBFUO2) + C(ind_C4CHOAO2) + C(ind_PBFUO2) + & - C(ind_C8CO3OHO2) + C(ind_PHCOMEO2) + C(ind_IPCATEC1O2) + & - C(ind_IC7DCO2) + C(ind_NIPBFUO2) + C(ind_IC4CHOAO2) + C(ind_IPBFUO2) + & - C(ind_C7MCO3OHO2) + C(ind_T123CAT1O2) + C(ind_C7ADCCO3) + & - C(ind_C7ADCO2) + C(ind_NTMB1FUO2) + C(ind_TMB1FUO2) + C(ind_NTMB2FUO2) & - + C(ind_MC6OTKETO2) + C(ind_TMB2FUO2) + C(ind_C7BDCO2) + & - C(ind_T124CAT1O2) + C(ind_OTCATEC1O2) + C(ind_MTCATEC1O2) + & - C(ind_C7EDCO2) + C(ind_PTCATEC1O2) + C(ind_C7DDCCO3) + C(ind_C7DDCO2) & - + C(ind_NMEBFUO2) + C(ind_C23O3EO2) + C(ind_MEBFUO2) + C(ind_EMPHO2) + & - C(ind_C526O2) + C(ind_HC4ACO3) + C(ind_C58AO2) + C(ind_INB1O2) + & - C(ind_INB2O2) + C(ind_C527O2) + C(ind_HPC52O2) + C(ind_HC4CCO3) + & - C(ind_C57AO2) + C(ind_C57O2) + C(ind_INDO2) + C(ind_C59O2) + & - C(ind_C524O2) + C(ind_ETHFORMO2) + C(ind_PINALO2) + C(ind_C108O2) + & - C(ind_C89CO3) + C(ind_C920CO3) + C(ind_C920O2) + C(ind_C97O2) + & - C(ind_C85CO3) + C(ind_C85O2) + C(ind_C719O2) + C(ind_C918O2) + & - C(ind_C9DCO2) + C(ind_C915O2) + C(ind_C917O2) + C(ind_NLIMALO2) + & - C(ind_LIMALO2) + C(ind_C729CO3) + C(ind_C822CO3) + C(ind_C924O2) + & - C(ind_C816CO3) + C(ind_NORLIMO2) + C(ind_C816O2) + C(ind_NLMKAO2) + & - C(ind_LMKAO2) + C(ind_LMKBO2) + C(ind_C146O2) + C(ind_C131CO3) + & - C(ind_BCLKAO2) + C(ind_BCLKBO2) + C(ind_BCLKCO2) + C(ind_C131O2) + & - C(ind_C147O2) + C(ind_C126CO3) + C(ind_C136CO3) + C(ind_C148O2) + & - C(ind_C1311O2) + C(ind_NC1313O2) + C(ind_C1313O2) + C(ind_C126O2) + & - C(ind_C144O2) + C(ind_C142O2) + C(ind_NBCKO2) + C(ind_BCKAO2) + & - C(ind_BCKBO2) + C(ind_H13C43CO3) + C(ind_C42CO3) + C(ind_HOC3H6CO3) + & - C(ind_C3DIOLO2) + C(ind_HO2C4CO3) + C(ind_HOIBUTCO3) + C(ind_C63O2) + & - C(ind_HO3C5CO3) + C(ind_C64O2) + C(ind_HO2C54O2) + C(ind_HO2C54CO3) + & - C(ind_C66O2) + C(ind_CO3C54CO3) + C(ind_H2M2C4CO3) + C(ind_C67O2) + & - C(ind_C610O2) + C(ind_H2M3C4CO3) + C(ind_C68O2) + C(ind_C69O2) + & - C(ind_C611O2) + C(ind_HM33C3CO3) + C(ind_HM22C3O2) + C(ind_HM22C3CO3) & - + C(ind_HM2C43CO3) + C(ind_C71O2) + C(ind_C76O2) + C(ind_C77O2) + & - C(ind_C78O2) + C(ind_C711O2) + C(ind_H3M3C5O2) + C(ind_H3M3C5CO3) + & - C(ind_C82O2) + C(ind_C81O2) + C(ind_C93O2) + C(ind_C92O2) + & - C(ind_HO6C7O2) + C(ind_C103O2) + C(ind_C102O2) + C(ind_HO7C8O2) + & - C(ind_C113O2) + C(ind_C112O2) + C(ind_HO8C9O2) + C(ind_C123O2) + & - C(ind_C122O2) + C(ind_CO1H63O2) + C(ind_C3NO3COO2) + C(ind_NPHEN1O2) + & - C(ind_NNCATECO2) + C(ind_NCATECO2) + C(ind_NBZQO2) + C(ind_PBZQO2) + & - C(ind_NPTLQO2) + C(ind_PTLQO2) + C(ind_NCRES1O2) + C(ind_MNNCATECO2) + & - C(ind_MNCATECO2) + C(ind_MECOACETO2) + C(ind_NOXYOL1O2) + & - C(ind_NOXYQO2) + C(ind_OXYQO2) + C(ind_OXNNCATCO2) + C(ind_OXNCATECO2) & - + C(ind_NMXYOL1O2) + C(ind_NMXYQO2) + C(ind_MXYQO2) + & - C(ind_MXNNCATCO2) + C(ind_MXNCATECO2) + C(ind_NPXYOL1O2) + & - C(ind_NPXYQO2) + C(ind_PXYQO2) + C(ind_PXNNCATCO2) + C(ind_PXNCATECO2) & - + C(ind_NEBNZ1O2) + C(ind_NPEBQO2) + C(ind_PEBQO2) + C(ind_ENNCATECO2) & - + C(ind_ENCATECO2) + C(ind_CO3H4CO3) + C(ind_PHCOCOCO2) + & - C(ind_NPBNZ1O2) + C(ind_NPPRBQO2) + C(ind_PPRBQO2) + C(ind_PNNCATECO2) & - + C(ind_PNCATECO2) + C(ind_C5O45OHCO3) + C(ind_NIPBNZ1O2) + & - C(ind_NIPRBQO2) + C(ind_IPRBQO2) + C(ind_IPNNCATCO2) + & - C(ind_IPNCATECO2) + C(ind_C4MOHOCO3) + C(ind_NT123L1O2) + & - C(ind_T123NNCTO2) + C(ind_T123NCATO2) + C(ind_NT124L1O2) + & - C(ind_NTM124QO2) + C(ind_TM124QO2) + C(ind_T124NNCTO2) + & - C(ind_T124NCATO2) + C(ind_C5CO234O2) + C(ind_NOETOL1O2) + & - C(ind_NOETLQO2) + C(ind_OETLQO2) + C(ind_OTNNCATCO2) + & - C(ind_OTNCATECO2) + C(ind_NMETOL1O2) + C(ind_NMETLQO2) + & - C(ind_METLQO2) + C(ind_MTNNCATCO2) + C(ind_MTNCATECO2) + & - C(ind_NPETOL1O2) + C(ind_NPETLQO2) + C(ind_PETLQO2) + & - C(ind_PTNNCATCO2) + C(ind_PTNCATECO2) + C(ind_CO234C65O2) + & - C(ind_H13CO2CO3) + C(ind_CO2N3CO3) + C(ind_C534O2) + C(ind_C535O2) + & - C(ind_C58NO3CO3) + C(ind_ACETMECO3) + C(ind_METHACETO2) + & - C(ind_HOACETETO2) + C(ind_C62O2) + C(ind_HO13C4O2) + C(ind_HM22CO3) + & - C(ind_C6COCHOCO3) + C(ind_C5COCHOO2) + C(ind_CHOC2H4O2) + & - C(ind_HCOCH2CO3) + C(ind_CY6TRIONO2) + C(ind_C6CYTONO2) + & - C(ind_NC102O2) + C(ind_C512CO3) + C(ind_C89O2) + C(ind_C926O2) + & - C(ind_C817CO3) + C(ind_C817O2) + C(ind_NC826O2) + C(ind_C826O2) + & - C(ind_C729O2) + C(ind_LMLKAO2) + C(ind_LMLKBO2) + C(ind_C116CO3) + & - C(ind_C116O2) + C(ind_C129O2) + C(ind_C1210O2) + C(ind_C1H4C5CO3) + & - C(ind_CHOC4OHO2) + C(ind_HOC4CHOO2) + C(ind_C6145COO2) + & - C(ind_COHM2CO3) + C(ind_CO2C4CO3) + C(ind_HOBUT2CO3) + C(ind_CO3C5CO3) & - + C(ind_CO2C54CO3) + C(ind_C65O2) + C(ind_CO2M3C4CO3) + C(ind_C72O2) + & - C(ind_CO25C73O2) + C(ind_CO25C74O2) + C(ind_C712O2) + C(ind_C713O2) + & - C(ind_C714O2) + C(ind_C84O2) + C(ind_C94O2) + C(ind_C104O2) + & - C(ind_C114O2) + C(ind_C6H13CO3) + C(ind_C124O2) + C(ind_MALANHYO2) + & - C(ind_NDNPHENO2) + C(ind_DNPHENO2) + C(ind_NDNCRESO2) + & - C(ind_DNCRESO2) + C(ind_C6O4KETO2) + C(ind_NDNOXYOLO2) + & - C(ind_DNOXYOLO2) + C(ind_ACCOCOMEO2) + C(ind_MMALANHYO2) + & - C(ind_NDNMXYOLO2) + C(ind_DNMXYOLO2) + C(ind_TL4OHNO2O2) + & - C(ind_NDNPXYOLO2) + C(ind_DNPXYOLO2) + C(ind_NDNEBNZLO2) + & - C(ind_DNEBNZLO2) + C(ind_NDNPBNZLO2) + C(ind_DNPBNZLO2) + & - C(ind_C61CO3) + C(ind_NDNIPBZLO2) + C(ind_DNIPBNZLO2) + C(ind_C62CO3) & - + C(ind_NDNT123LO2) + C(ind_DNT123LO2) + C(ind_TM124NO2O2) + & - C(ind_NDNT124LO2) + C(ind_DNT124LO2) + C(ind_MXYOHNO2O2) + & - C(ind_NDNOETOLO2) + C(ind_DNOETOLO2) + C(ind_NDNMETOLO2) + & - C(ind_DNMETOLO2) + C(ind_NDNPETOLO2) + C(ind_DNPETOLO2) + & - C(ind_CO356OCO2) + C(ind_INCNCO3) + C(ind_IEACO3) + C(ind_C531O2) + & - C(ind_CH3COCO3) + C(ind_IECCO3) + C(ind_HPC52CO3) + C(ind_INDHCO3) + & - C(ind_C57NO3CO3) + C(ind_INAHPCO3) + C(ind_INANCO3) + C(ind_INAHCO3) + & - C(ind_NC524O2) + C(ind_C525O2) + C(ind_HMACO3) + C(ind_HMACRO2) + & - C(ind_CO23C4CO3) + C(ind_C5CO34CO3) + C(ind_C106O2) + C(ind_C717O2) + & - C(ind_C811CO3) + C(ind_C921O2) + C(ind_C98O2) + C(ind_C86O2) + & - C(ind_C919O2) + C(ind_C914O2) + C(ind_C916O2) + C(ind_C88CO3) + & - C(ind_C88O2) + C(ind_C512O2) + C(ind_C619O2) + C(ind_C626CO3) + & - C(ind_C626O2) + C(ind_C735O2) + C(ind_C822O2) + C(ind_C823CO3) + & - C(ind_C925O2) + C(ind_C622CO3) + C(ind_C1011CO3) + C(ind_C1210CO3) + & - C(ind_C132O2) + C(ind_C137CO3) + C(ind_C1013CO3) + C(ind_C1312O2) + & - C(ind_C127O2) + C(ind_C143O2) + C(ind_HO24C5O2) + C(ind_C55O2) + & - C(ind_C67CO3) + C(ind_H3M2C4CO3) + C(ind_C79O2) + C(ind_H3M3C4CO3) + & - C(ind_H13M3C5O2) + C(ind_HO4C5CO3) + C(ind_HO5C6CO3) + C(ind_HO6C7CO3) & - + C(ind_HO7C8CO3) + C(ind_HO8C9CO3) + C(ind_C5CO2OHCO3) + & - C(ind_C6CO2OHCO3) + C(ind_ACCOMECO3) + C(ind_C5M2OHOCO3) + & - C(ind_C4COMOHCO3) + C(ind_C23O3MCO3) + C(ind_C23O3CCO3) + & - C(ind_C7CO2OHCO3) + C(ind_C6MOHCOCO3) + C(ind_C7OHCO2CO3) + & - C(ind_ECO3CO3) + C(ind_C8OHCO2CO3) + C(ind_C8CO2OHCO3) + & - C(ind_NDMMALYO2) + C(ind_DMMALYO2) + C(ind_C7MOHCOCO3) + & - C(ind_C5MEJCO3) + C(ind_C6EO2OHCO3) + C(ind_C7MJPCO3) + & - C(ind_C23O3ECO3) + C(ind_EMPOHNO2O2) + C(ind_C47CO3) + & - C(ind_INB1HPCO3) + C(ind_INB1NACO3) + C(ind_INB1NBCO3) + & - C(ind_MMALNACO3) + C(ind_MMALNBCO3) + C(ind_INDHPCO3) + & - C(ind_INANCOCO3) + C(ind_HIEB1O2) + C(ind_HIEB2O2) + C(ind_CHOOMCO3) + & - C(ind_HO13C3CO3) + C(ind_C5CO23O2) + C(ind_CHOC2CO3) + & - C(ind_CHOC3COCO3) + C(ind_C5124COCO3) + C(ind_CO235C6CO3) + & - C(ind_NC71O2) + C(ind_C811O2) + C(ind_CHOC3COO2) + C(ind_H3C25C6CO3) + & - C(ind_H3C25C6O2) + C(ind_C810O2) + C(ind_C818O2) + C(ind_C727CO3) + & - C(ind_NC728O2) + C(ind_C728O2) + C(ind_C622O2) + C(ind_C823O2) + & - C(ind_C819O2) + C(ind_C731CO3) + C(ind_C1011O2) + C(ind_C137O2) + & - C(ind_C1013O2) + C(ind_C1010O2) + C(ind_C117O2) + C(ind_C830CO3) + & - C(ind_C145O2) + C(ind_C927O2) + C(ind_C1214O2) + C(ind_CHOC4DOLO2) + & - C(ind_C6TRONOHO2) + C(ind_C23C54CO3) + C(ind_C73O2) + C(ind_C74O2) + & - C(ind_C715O2) + C(ind_C83O2) + C(ind_C95O2) + C(ind_C105O2) + & - C(ind_C115O2) + C(ind_C125O2) + C(ind_C4CO2DBCO3) + C(ind_C5CO2DBCO3) & - + C(ind_C4DBM2CO3) + C(ind_C5DBCO2CO3) + C(ind_C7CO2DBCO3) + & - C(ind_C8CO2DBCO3) + C(ind_C8DBCO2CO3) + C(ind_C4DBMECO3) + & - C(ind_C5DBECO3) + C(ind_C5EDBCO3) + C(ind_C31CO3) + C(ind_C533O2) + & - C(ind_C5124COO2) + C(ind_CO235C6O2) + C(ind_C716O2) + C(ind_C922O2) + & - C(ind_C614O2) + C(ind_C511O2) + C(ind_C620O2) + C(ind_C87CO3) + & - C(ind_C616O2) + C(ind_C718CO3) + C(ind_C513O2) + C(ind_CO25C6CO3) + & - C(ind_C627O2) + C(ind_C727O2) + C(ind_C511CO3) + C(ind_C517CO3) + & - C(ind_C517O2) + C(ind_C628O2) + C(ind_C824O2) + C(ind_C1211CO3) + & - C(ind_C133O2) + C(ind_C830O2) + C(ind_C128O2) + C(ind_HO24C4CO3) + & - C(ind_C613O2) + C(ind_CO2OH3MCO3) + C(ind_C812O2) + C(ind_C721CO3) + & - C(ind_C721O2) + C(ind_H3C2C4CO3) + C(ind_C87O2) + C(ind_C718O2) + & - C(ind_C514O2) + C(ind_C820O2) + C(ind_C518CO3) + C(ind_NC623O2) + & - C(ind_C623O2) + C(ind_C825O2) + C(ind_C731O2) + C(ind_C732CO3) + & - C(ind_C1012O2) + C(ind_C1211O2) + C(ind_C139O2) + C(ind_C1014O2) + & - C(ind_C736O2) + C(ind_C118O2) + C(ind_C928CO3) + C(ind_C630O2) + & - C(ind_C1215O2) + C(ind_EMALANHYO2) + C(ind_PMALANHYO2) + & - C(ind_IPMALNHYO2) + C(ind_C312COCO3) + C(ind_CHOCOCH2O2) + & - C(ind_NC72O2) + C(ind_C621O2) + C(ind_C515CO3) + C(ind_C515O2) + & - C(ind_C821O2) + C(ind_HMVKBCO3) + C(ind_C520O2) + C(ind_C624CO3) + & - C(ind_C732O2) + C(ind_C829O2) + C(ind_C134O2) + C(ind_C827CO3) + & - C(ind_C522CO3) + C(ind_C831O2) + C(ind_C928O2) + C(ind_C46CO3) + & - C(ind_C930O2) + C(ind_C813O2) + C(ind_C722O2) + C(ind_C615CO3) + & - C(ind_C617CO3) + C(ind_C618CO3) + C(ind_C617O2) + C(ind_C618O2) + & - C(ind_NC730O2) + C(ind_C730O2) + C(ind_C624O2) + C(ind_C733O2) + & - C(ind_C1212O2) + C(ind_C827O2) + C(ind_C1310O2) + C(ind_NC61CO3) + & - C(ind_C615O2) + C(ind_C519CO3) + C(ind_C629O2) + C(ind_C734O2) + & - C(ind_C521O2) + C(ind_C135O2) + C(ind_COO2C4CO3) + C(ind_COO2C4O2) + & - C(ind_C929O2) + C(ind_C516O2) + C(ind_C44O2) + C(ind_H1C23C4CO3) + & - C(ind_H1C23C4O2) + C(ind_CO1M22CO3) + C(ind_C519O2) + C(ind_C625O2) + & - C(ind_C1213O2) + C(ind_COO2C3CO3) + C(ind_MOCOCH2O2) + C(ind_C828CO3) & - + C(ind_C828O2) + C(ind_CHOCOMOXO2 ) -! ### FROM HERE ### -KRO2NO = 2.7D-12*EXP(360/TEMP) -KRO2HO2 = 2.91D-13*EXP(1300/TEMP) -KAPHO2 = 5.2D-13*EXP(980/TEMP) -KAPNO = 7.5D-12*EXP(290/TEMP) -KRO2NO3 = 2.3D-12 -KNO3AL = 1.4D-12*EXP(-1860/TEMP) -KDEC = 1.00D+06 -KROPRIM = 2.50D-14*EXP(-300/TEMP) -KROSEC = 2.50D-14*EXP(-300/TEMP) -KCH3O2 = 1.03D-13*EXP(365/TEMP) -K298CH3O2 = 3.5D-13 -K16ISOM1 = 4.60D9*EXP(-8380/TEMP)*EXP(1.00D8/TEMP**3) -K15ISOM1 = 1.50D11*EXP(-9750/TEMP) -K14ISOM1 = 3.00D7*EXP(-5300/TEMP) -KD0 = 1.10D-05*M*EXP(-10100/TEMP) -KDI = 1.90D17*EXP(-14100/TEMP) -KRD = KD0/KDI -FCD = 0.30 -NCD = 0.75-1.27*(LOG10(FCD)) -FD = 10**(LOG10(FCD)/(1+(LOG10(KRD)/NCD)**2)) -KBPAN = (KD0*KDI)*FD/(KD0+KDI) -KC0 = 3.28D-28*M*(TEMP/300)**-6.87 -KCI = 1.125D-11*(TEMP/300)**-1.105 -KRC = KC0/KCI -FCC = 0.30 -NC = 0.75-1.27*(LOG10(FCC)) -FC = 10**(LOG10(FCC)/(1+(LOG10(KRC)/NC)**2)) -KFPAN = (KC0*KCI)*FC/(KC0+KCI) -K10 = 1.0D-31*M*(TEMP/300)**-1.6 -K1I = 3.00D-11*(TEMP/300)**0.3 -KR1 = K10/K1I -FC1 = 0.85 -NC1 = 0.75-1.27*(LOG10(FC1)) -F1 = 10**(LOG10(FC1)/(1+(LOG10(KR1)/NC1)**2)) -KMT01 = (K10*K1I)*F1/(K10+K1I) -K20 = 1.3D-31*M*(TEMP/300)**-1.5 -K2I = 2.3D-11*(TEMP/300)**0.24 -KR2 = K20/K2I -FC2 = 0.6 -NC2 = 0.75-1.27*(LOG10(FC2)) -F2xx = 10**(LOG10(FC2)/(1+(LOG10(KR2)/NC2)**2)) -KMT02 = (K20*K2I)*F2xx/(K20+K2I) -K30 = 3.6D-30*M*(TEMP/300)**-4.1 -K3I = 1.9D-12*(TEMP/300)**0.2 -KR3 = K30/K3I -FC3 = 0.35 -NC3 = 0.75-1.27*(LOG10(FC3)) -F3 = 10**(LOG10(FC3)/(1+(LOG10(KR3)/NC3)**2)) -KMT03 = (K30*K3I)*F3/(K30+K3I) -K40 = 1.3D-3*M*(TEMP/300)**-3.5*EXP(-11000/TEMP) -K4I = 9.7D+14*(TEMP/300)**0.1*EXP(-11080/TEMP) -KR4 = K40/K4I -FC4 = 0.35 -NC4 = 0.75-1.27*(LOG10(FC4)) -F4 = 10**(LOG10(FC4)/(1+(LOG10(KR4)/NC4)**2)) -KMT04 = (K40*K4I)*F4/(K40+K4I) -KMT05 = 1.44D-13*(1+(M/4.2D+19)) -KMT06 = 1 + (1.40D-21*EXP(2200/TEMP)*H2O) -K70 = 7.4D-31*M*(TEMP/300)**-2.4 -K7I = 3.3D-11*(TEMP/300)**-0.3 -KR7 = K70/K7I -FC7 = EXP(-TEMP/1420) -NC7 = 0.75-1.27*(LOG10(FC7)) -F7 = 10**(LOG10(FC7)/(1+(LOG10(KR7)/NC7)**2)) -KMT07 = (K70*K7I)*F7/(K70+K7I) -K80 = 3.3D-30*M*(TEMP/300)**-3.0 -K8I = 4.1D-11 -KR8 = K80/K8I -FC8 = 0.4 -NC8 = 0.75-1.27*(LOG10(FC8)) -F8 = 10**(LOG10(FC8)/(1+(LOG10(KR8)/NC8)**2)) -KMT08 = (K80*K8I)*F8/(K80+K8I) -K90 = 1.8D-31*M*(TEMP/300)**-3.2 -K9I = 4.7D-12 -KR9 = K90/K9I -FC9 = 0.6 -NC9 = 0.75-1.27*(LOG10(FC9)) -F9 = 10**(LOG10(FC9)/(1+(LOG10(KR9)/NC9)**2)) -KMT09 = (K90*K9I)*F9/(K90+K9I) -K100 = 4.10D-05*M*EXP(-10650/TEMP) -K10I = 4.8D+15*EXP(-11170/TEMP) -KR10 = K100/K10I -FC10 = 0.6 -NC10 = 0.75-1.27*(LOG10(FC10)) -F10 = 10**(LOG10(FC10)/(1+(LOG10(KR10)/NC10)**2)) -KMT10 = (K100*K10I)*F10/(K100+K10I) -K1 = 2.40D-14*EXP(460/TEMP) -K3 = 6.50D-34*EXP(1335/TEMP) -K4 = 2.70D-17*EXP(2199/TEMP) -K2 = (K3*M)/(1+(K3*M/K4)) -KMT11 = K1 + K2 -K120 = 4.5D-31*M*(TEMP/300)**-3.9 -K12I = 1.3D-12*(TEMP/300)**-0.7 -KR12 = K120/K12I -FC12 = 0.525 -NC12 = 0.75-1.27*(LOG10(FC12)) -F12 = 10**(LOG10(FC12)/(1.0+(LOG10(KR12)/NC12)**2)) -KMT12 = (K120*K12I*F12)/(K120+K12I) -K130 = 2.5D-30*M*(TEMP/300)**-5.5 -K13I = 1.8D-11 -KR13 = K130/K13I -FC13 = 0.36 -NC13 = 0.75-1.27*(LOG10(FC13)) -F13 = 10**(LOG10(FC13)/(1+(LOG10(KR13)/NC13)**2)) -KMT13 = (K130*K13I)*F13/(K130+K13I) -K140 = 9.0D-5*EXP(-9690/TEMP)*M -K14I = 1.1D+16*EXP(-10560/TEMP) -KR14 = K140/K14I -FC14 = 0.4 -NC14 = 0.75-1.27*(LOG10(FC14)) -F14 = 10**(LOG10(FC14)/(1+(LOG10(KR14)/NC14)**2)) -KMT14 = (K140*K14I)*F14/(K140+K14I) -K150 = 8.6D-29*M*(TEMP/300)**-3.1 -K15I = 9.0D-12*(TEMP/300)**-0.85 -KR15 = K150/K15I -FC15 = 0.48 -NC15 = 0.75-1.27*(LOG10(FC15)) -F15 = 10**(LOG10(FC15)/(1+(LOG10(KR15)/NC15)**2)) -KMT15 = (K150*K15I)*F15/(K150+K15I) -K160 = 8D-27*M*(TEMP/300)**-3.5 -K16I = 3.0D-11*(TEMP/300)**-1 -KR16 = K160/K16I -FC16 = 0.5 -NC16 = 0.75-1.27*(LOG10(FC16)) -F16 = 10**(LOG10(FC16)/(1+(LOG10(KR16)/NC16)**2)) -KMT16 = (K160*K16I)*F16/(K160+K16I) -K170 = 5.0D-30*M*(TEMP/300)**-1.5 -K17I = 1.0D-12 -KR17 = K170/K17I -FC17 = 0.17*EXP(-51/TEMP)+EXP(-TEMP/204) -NC17 = 0.75-1.27*(LOG10(FC17)) -F17 = 10**(LOG10(FC17)/(1.0+(LOG10(KR17)/NC17)**2)) -KMT17 = (K170*K17I*F17)/(K170+K17I) -KMT18 = 9.5D-39*O2*EXP(5270/TEMP)/(1+7.5D-29*O2*EXP(5610/TEMP)) -KPPN0 = 1.7D-03*EXP(-11280/TEMP)*M -KPPNI = 8.3D+16*EXP(-13940/TEMP) -KRPPN = KPPN0/KPPNI -FCPPN = 0.36 -NCPPN = 0.75-1.27*(LOG10(FCPPN)) -FPPN = 10**(LOG10(FCPPN)/(1+(LOG10(KRPPN)/NCPPN)**2)) -KBPPN = (KPPN0*KPPNI)*FCPPN/(KPPN0+KPPNI) - -! End INLINED RCONST - -! RCONST(1) = constant rate coefficient - RCONST(2) = (5.6D-34*N2*(TEMP/300)**-2.6*O2+6.0D-34*O2*(TEMP/300)**-2.6*O2) - RCONST(3) = (8.0D-12*EXP(-2060/TEMP)) - RCONST(4) = (KMT01) - RCONST(5) = (5.5D-12*EXP(188/TEMP)) - RCONST(6) = (KMT02) - RCONST(7) = (3.2D-11*EXP(67/TEMP)*O2+2.0D-11*EXP(130/TEMP)*N2) - RCONST(8) = (1.4D-12*EXP(-1310/TEMP)) - RCONST(9) = (1.4D-13*EXP(-2470/TEMP)) - RCONST(10) = (3.3D-39*EXP(530/TEMP)*O2) - RCONST(11) = (1.8D-11*EXP(110/TEMP)) - RCONST(12) = (4.50D-14*EXP(-1260/TEMP)) - RCONST(13) = (KMT03) - RCONST(14) = (2.14D-10*H2O) - RCONST(15) = (1.70D-12*EXP(-940/TEMP)) - RCONST(16) = (7.7D-12*EXP(-2100/TEMP)) - RCONST(17) = (KMT05) - RCONST(18) = (2.9D-12*EXP(-160/TEMP)) - RCONST(19) = (2.03D-16*(TEMP/300)**4.57*EXP(693/TEMP)) - RCONST(20) = (4.8D-11*EXP(250/TEMP)) - RCONST(21) = (2.20D-13*KMT06*EXP(600/TEMP)+1.90D-33*M*KMT06*EXP(980/TEMP)) - RCONST(22) = (KMT07) - RCONST(23) = (KMT08) - RCONST(24) = (2.0D-11) - RCONST(25) = (3.45D-12*EXP(270/TEMP)) - RCONST(26) = (KMT09) - RCONST(27) = (3.2D-13*EXP(690/TEMP)*1.0) - RCONST(28) = (4.0D-12) - RCONST(29) = (2.5D-12*EXP(260/TEMP)) - RCONST(30) = (KMT11) - RCONST(31) = (4.0D-32*EXP(-1000/TEMP)*M) - RCONST(32) = (KMT12) - RCONST(33) = (1.3D-12*EXP(-330/TEMP)*O2) - RCONST(34) = (6.00D-06) - RCONST(35) = (4.00D-04) - RCONST(36) = (1.20D-15*H2O) - RCONST(37) = (j('o31d')) - RCONST(38) = (j('o33p')) - RCONST(39) = (j('h2o2')) - RCONST(40) = (j('no2')) - RCONST(41) = (j('no3o2')) - RCONST(42) = (j('no3o')) - RCONST(43) = (j('hno2')) - RCONST(44) = (j('hno3')) - RCONST(45) = (KMT04) - RCONST(46) = (KMT10) - RCONST(47) = (2.85D-12*EXP(-345/TEMP)) - RCONST(48) = (3.0D-12*EXP(20/TEMP)*0.05) - RCONST(49) = (3.0D-12*EXP(20/TEMP)*0.9) - RCONST(50) = (3.0D-12*EXP(20/TEMP)*0.05) - RCONST(51) = (4.6D-12*EXP(70/TEMP)*0.494) - RCONST(52) = (4.6D-12*EXP(70/TEMP)*0.063) - RCONST(53) = (4.6D-12*EXP(70/TEMP)*0.443) - RCONST(54) = (2.6D-12*EXP(200/TEMP)*0.861) - RCONST(55) = (2.6D-12*EXP(200/TEMP)*0.139) - RCONST(56) = (5.3D-12*EXP(140/TEMP)*0.358) - RCONST(57) = (5.3D-12*EXP(140/TEMP)*0.321) - RCONST(58) = (5.3D-12*EXP(140/TEMP)*0.321) - RCONST(59) = (8.7D-12*0.361) - RCONST(60) = (8.7D-12*0.639) - RCONST(61) = (2.73D-12*EXP(352/TEMP)*0.558) - RCONST(62) = (2.73D-12*EXP(352/TEMP)*0.090) - RCONST(63) = (2.73D-12*EXP(352/TEMP)*0.352) - RCONST(64) = (1.6D-12*EXP(-121/TEMP)*0.888) - RCONST(65) = (1.6D-12*EXP(-121/TEMP)*0.112) - RCONST(66) = (1.22D-11*0.436) - RCONST(67) = (1.22D-11*0.070) - RCONST(68) = (1.22D-11*0.493) - RCONST(69) = (1.12D-11*0.288) - RCONST(70) = (1.12D-11*0.258) - RCONST(71) = (1.12D-11*0.454) - RCONST(72) = (1.31D-11*0.288) - RCONST(73) = (1.31D-11*0.454) - RCONST(74) = (1.31D-11*0.258) - RCONST(75) = (3.85D-12*0.100) - RCONST(76) = (3.85D-12*0.701) - RCONST(77) = (3.85D-12*0.199) - RCONST(78) = (1.24D-11*0.074) - RCONST(79) = (1.24D-11*0.463) - RCONST(80) = (1.24D-11*0.463) - RCONST(81) = (1.77D-11*0.739) - RCONST(82) = (1.77D-11*0.261) - RCONST(83) = (2.88D-12*0.693) - RCONST(84) = (2.88D-12*0.270) - RCONST(85) = (2.88D-12*0.037) - RCONST(86) = (j('mek')) - RCONST(87) = (1.45D-11) - RCONST(88) = (1.20D-11*0.613) - RCONST(89) = (1.20D-11*0.387) - RCONST(90) = (4.6D-14*EXP(-400/TEMP)*0.65) - RCONST(91) = (4.6D-14*EXP(-400/TEMP)*0.35) - RCONST(92) = (1.0D-17*0.3) - RCONST(93) = (1.0D-17*0.7) - RCONST(94) = (8.1D-12*EXP(610/TEMP)*0.67) - RCONST(95) = (8.1D-12*EXP(610/TEMP)*0.33) - RCONST(96) = (j('ch2or')) - RCONST(97) = (j('ch2om')) - RCONST(98) = (5.5D-16) - RCONST(99) = (5.4D-12*EXP(135/TEMP)) - RCONST(100) = (j('ch3cho')) - RCONST(101) = (1.4D-12*EXP(-1860/TEMP)) - RCONST(102) = (4.7D-12*EXP(345/TEMP)*0.95) - RCONST(103) = (4.7D-12*EXP(345/TEMP)*0.05) - RCONST(104) = (3.24D-12*EXP(-1860/TEMP)) - RCONST(105) = (4.9D-12*EXP(405/TEMP)) - RCONST(106) = (j('c2h5cho')) - RCONST(107) = (1.7D-12*EXP(-1500/TEMP)) - RCONST(108) = (6.0D-12*EXP(410/TEMP)*0.151) - RCONST(109) = (6.0D-12*EXP(410/TEMP)*0.849) - RCONST(110) = (j('n_c3h7cho_ch3cho')) - RCONST(111) = (j('n_c3h7cho_hco')) - RCONST(112) = (1.67D-12*EXP(-1460/TEMP)) - RCONST(113) = (6.8D-12*EXP(410/TEMP)*0.054) - RCONST(114) = (6.8D-12*EXP(410/TEMP)*0.059) - RCONST(115) = (6.8D-12*EXP(410/TEMP)*0.887) - RCONST(116) = (j('i_c3h7cho')) - RCONST(117) = (KNO3AL*5.5) - RCONST(118) = (6.34D-12*EXP(448/TEMP)*0.19) - RCONST(119) = (6.34D-12*EXP(448/TEMP)*0.81) - RCONST(120) = (j('n_c3h7cho_hco')) - RCONST(121) = (1.72D-13*EXP(-1190/TEMP)) - RCONST(122) = (0.68*2.00E-11) - RCONST(123) = (0.255*2.00E-11) - RCONST(124) = (0.065*2.00E-11) - RCONST(125) = (0.3*j('ch2cch3cho_hco')) - RCONST(126) = (0.4*j('ch2cch3cho_hco')) - RCONST(127) = (0.3*j('ch2cch3cho_hco')) - RCONST(128) = (0.5*2.9E-19) - RCONST(129) = (0.5*2.9E-19) - RCONST(130) = (j('ch2cch3cho_hco')) - RCONST(131) = (j('ch2cch3cho_h')) - RCONST(132) = (3.4D-15) - RCONST(133) = (1.4D-15*EXP(-2100/TEMP)*0.12) - RCONST(134) = (1.4D-15*EXP(-2100/TEMP)*0.88) - RCONST(135) = (8.0D-12*EXP(380/TEMP)*0.45) - RCONST(136) = (8.0D-12*EXP(380/TEMP)*0.47) - RCONST(137) = (8.0D-12*EXP(380/TEMP)*0.08) - RCONST(138) = (6D-15*0.65) - RCONST(139) = (6D-15*0.175) - RCONST(140) = (6D-15*0.175) - RCONST(141) = (1.58E-18*0.5) - RCONST(142) = (1.58E-18*0.5) - RCONST(143) = (0.5*3.4E-11) - RCONST(144) = (0.25*3.4E-11) - RCONST(145) = (0.25*3.4E-11) - RCONST(146) = (j('ch2cch3cho_hco')*1.44) - RCONST(147) = (6.6D-12*EXP(-1240/TEMP)) - RCONST(148) = (1.85D-12*EXP(-1690/TEMP)) - RCONST(149) = (8.3D-11*EXP(-100/TEMP)) - RCONST(150) = (6.9D-12*EXP(-1000/TEMP)) - RCONST(151) = (1.4D-10*0.43*EXP(75/TEMP)) - RCONST(152) = (1.4D-10*0.59*EXP(-90/TEMP)) - RCONST(153) = (7.6D-12*EXP(-585/TEMP)*0.736) - RCONST(154) = (7.6D-12*EXP(-585/TEMP)*0.264) - RCONST(155) = (2.05D-10*0.44*EXP(-120/TEMP)) - RCONST(156) = (2.05D-10*0.59*EXP(55/TEMP)) - RCONST(157) = (9.8D-12*EXP(-425/TEMP)*0.127) - RCONST(158) = (9.8D-12*EXP(-425/TEMP)*0.873) - RCONST(159) = (1.43D-10*0.564) - RCONST(160) = (1.43D-10*0.436) - RCONST(161) = (1.16D-17*TEMP**2*EXP(225/TEMP)*0.206) - RCONST(162) = (1.16D-17*TEMP**2*EXP(225/TEMP)*0.794) - RCONST(163) = (2.80D-10*0.222) - RCONST(164) = (2.80D-10*0.558) - RCONST(165) = (2.80D-10*0.220) - RCONST(166) = (2.44D-17*TEMP**2*EXP(183/TEMP)*0.083) - RCONST(167) = (2.44D-17*TEMP**2*EXP(183/TEMP)*0.568) - RCONST(168) = (2.44D-17*TEMP**2*EXP(183/TEMP)*0.349) - RCONST(169) = (2.20D-10*0.408) - RCONST(170) = (2.20D-10*0.342) - RCONST(171) = (2.20D-10*0.250) - RCONST(172) = (3.70D-12*0.087) - RCONST(173) = (3.70D-12*0.297) - RCONST(174) = (3.70D-12*0.616) - RCONST(175) = (1.11D-10) - RCONST(176) = (1.80D-17*TEMP**2*EXP(-189/TEMP)) - RCONST(177) = (3.40D-10*0.182) - RCONST(178) = (3.40D-10*0.457) - RCONST(179) = (3.40D-10*0.361) - RCONST(180) = (1.53D-17*TEMP**2*EXP(414/TEMP)*0.061) - RCONST(181) = (1.53D-17*TEMP**2*EXP(414/TEMP)*0.421) - RCONST(182) = (1.53D-17*TEMP**2*EXP(414/TEMP)*0.518) - RCONST(183) = (2.90D-10*0.321) - RCONST(184) = (2.90D-10*0.269) - RCONST(185) = (2.90D-10*0.213) - RCONST(186) = (2.90D-10*0.197) - RCONST(187) = (5.30D-12*0.063) - RCONST(188) = (5.30D-12*0.218) - RCONST(189) = (5.30D-12*0.267) - RCONST(190) = (5.30D-12*0.452) - RCONST(191) = (2.80D-10*0.317) - RCONST(192) = (2.80D-10*0.530) - RCONST(193) = (2.80D-10*0.153) - RCONST(194) = (5.40D-12*0.060) - RCONST(195) = (5.40D-12*0.413) - RCONST(196) = (5.40D-12*0.527) - RCONST(197) = (1.71D-10*0.461) - RCONST(198) = (1.71D-10*0.154) - RCONST(199) = (1.71D-10*0.386) - RCONST(200) = (3.22D-11*EXP(-781/TEMP)*0.632) - RCONST(201) = (3.22D-11*EXP(-781/TEMP)*0.092) - RCONST(202) = (3.22D-11*EXP(-781/TEMP)*0.276) - RCONST(203) = (2.30D-10*0.478) - RCONST(204) = (2.30D-10*0.522) - RCONST(205) = (1.24D-17*TEMP**2*EXP(494/TEMP)*0.877) - RCONST(206) = (1.24D-17*TEMP**2*EXP(494/TEMP)*0.123) - RCONST(207) = (3.90D-10) - RCONST(208) = (1.59D-17*TEMP**2*EXP(478/TEMP)) - RCONST(209) = (3.50D-10*0.779) - RCONST(210) = (3.50D-10*0.221) - RCONST(211) = (6.86D-12*0.625) - RCONST(212) = (6.86D-12*0.375) - RCONST(213) = (3.11D-10*0.793) - RCONST(214) = (3.11D-10*0.207) - RCONST(215) = (7.15D-12*0.558) - RCONST(216) = (7.15D-12*0.442) - RCONST(217) = (4.60D-10) - RCONST(218) = (2.76D-17*TEMP**2*EXP(378/TEMP)) - RCONST(219) = (4.80D-10) - RCONST(220) = (2.51D-17*TEMP**2*EXP(447/TEMP)) - RCONST(221) = (5.55D-10) - RCONST(222) = (3.13D-17*TEMP**2*EXP(416/TEMP)) - RCONST(223) = (6.17D-10) - RCONST(224) = (1.29D-11) - RCONST(225) = (6.74D-10) - RCONST(226) = (1.39D-11) - RCONST(227) = (3.50D-10) - RCONST(228) = (2.88D-17*TEMP**2*EXP(309/TEMP)) - RCONST(229) = (3.3D-12*EXP(-2880/TEMP)) - RCONST(230) = (9.1D-15*EXP(-2580/TEMP)) - RCONST(231) = (KMT15) - RCONST(232) = (4.6D-13*EXP(-1155/TEMP)*0.35) - RCONST(233) = (4.6D-13*EXP(-1155/TEMP)*0.65) - RCONST(234) = (5.5D-15*EXP(-1880/TEMP)*0.5) - RCONST(235) = (5.5D-15*EXP(-1880/TEMP)*0.5) - RCONST(236) = (KMT16*0.87) - RCONST(237) = (KMT16*0.13) - RCONST(238) = (3.2D-13*EXP(-950/TEMP)*0.65) - RCONST(239) = (3.2D-13*EXP(-950/TEMP)*0.35) - RCONST(240) = (3.55D-15*EXP(-1745/TEMP)*0.5) - RCONST(241) = (3.55D-15*EXP(-1745/TEMP)*0.5) - RCONST(242) = (6.6D-12*EXP(465/TEMP)*0.13) - RCONST(243) = (6.6D-12*EXP(465/TEMP)*0.87) - RCONST(244) = (3.50D-13) - RCONST(245) = (3.22D-15*EXP(-968/TEMP)) - RCONST(246) = (1.10D-11*EXP(487/TEMP)) - RCONST(247) = (3.90D-13) - RCONST(248) = (6.64D-15*EXP(-1059/TEMP)) - RCONST(249) = (1.01D-11*EXP(550/TEMP)) - RCONST(250) = (3.4D-13*0.8) - RCONST(251) = (3.4D-13*0.2) - RCONST(252) = (2.7D-15*EXP(-1630/TEMP)*0.5) - RCONST(253) = (2.7D-15*EXP(-1630/TEMP)*0.5) - RCONST(254) = (9.4D-12*EXP(505/TEMP)*0.924) - RCONST(255) = (9.4D-12*EXP(505/TEMP)*0.076) - RCONST(256) = (1.20D-14*0.65) - RCONST(257) = (1.20D-14*0.35) - RCONST(258) = (1.00D-17*0.5) - RCONST(259) = (1.00D-17*0.5) - RCONST(260) = (5.86D-12*EXP(500/TEMP)*0.87) - RCONST(261) = (5.86D-12*EXP(500/TEMP)*0.13) - RCONST(262) = (3.70D-13*0.5) - RCONST(263) = (3.70D-13*0.5) - RCONST(264) = (1.60D-16*0.5) - RCONST(265) = (1.60D-16*0.5) - RCONST(266) = (6.54D-11*0.5) - RCONST(267) = (6.54D-11*0.5) - RCONST(268) = (3.70D-13*0.5) - RCONST(269) = (3.70D-13*0.5) - RCONST(270) = (1.60D-16*0.5) - RCONST(271) = (1.60D-16*0.5) - RCONST(272) = (6.69D-11*0.5) - RCONST(273) = (6.69D-11*0.5) - RCONST(274) = (3.30D-13*0.2) - RCONST(275) = (3.30D-13*0.8) - RCONST(276) = (1.60D-17*0.5) - RCONST(277) = (1.60D-17*0.5) - RCONST(278) = (6.07D-11*0.924) - RCONST(279) = (6.07D-11*0.076) - RCONST(280) = (1.20D-14*0.65) - RCONST(281) = (1.20D-14*0.35) - RCONST(282) = (1.10D-17*0.5) - RCONST(283) = (1.10D-17*0.5) - RCONST(284) = (5.32D-12*EXP(533/TEMP)*0.130) - RCONST(285) = (5.32D-12*EXP(533/TEMP)*0.870) - RCONST(286) = (9.37D-12*0.35) - RCONST(287) = (9.37D-12*0.65) - RCONST(288) = (6.51D-15*EXP(-829/TEMP)*0.50) - RCONST(289) = (6.51D-15*EXP(-829/TEMP)*0.50) - RCONST(290) = (1.92D-11*EXP(450/TEMP)*0.353) - RCONST(291) = (1.92D-11*EXP(450/TEMP)*0.647) - RCONST(292) = (1.20D-14*0.35) - RCONST(293) = (1.20D-14*0.65) - RCONST(294) = (1.10D-17*0.5) - RCONST(295) = (1.10D-17*0.5) - RCONST(296) = (3.70D-11*0.870) - RCONST(297) = (3.70D-11*0.130) - RCONST(298) = (3.70D-13*0.5) - RCONST(299) = (3.70D-13*0.5) - RCONST(300) = (1.60D-16*0.5) - RCONST(301) = (1.60D-16*0.5) - RCONST(302) = (6.00D-11*0.5) - RCONST(303) = (6.00D-11*0.5) - RCONST(304) = (3.70D-13*0.5) - RCONST(305) = (3.70D-13*0.5) - RCONST(306) = (1.60D-16*0.5) - RCONST(307) = (1.60D-16*0.5) - RCONST(308) = (6.00D-11*0.5) - RCONST(309) = (6.00D-11*0.5) - RCONST(310) = (5.72D-11) - RCONST(311) = (3.03D-15*EXP(-294/TEMP)) - RCONST(312) = (1.10D-10) - RCONST(313) = (KMT17*0.636) - RCONST(314) = (KMT17*0.364) - RCONST(315) = (2.3D-12*EXP(-190/TEMP)*0.352) - RCONST(316) = (2.3D-12*EXP(-190/TEMP)*0.118) - RCONST(317) = (2.3D-12*EXP(-190/TEMP)*0.53) - RCONST(318) = (1.8D-12*EXP(340/TEMP)*0.07) - RCONST(319) = (1.8D-12*EXP(340/TEMP)*0.18) - RCONST(320) = (1.8D-12*EXP(340/TEMP)*0.65) - RCONST(321) = (1.8D-12*EXP(340/TEMP)*0.10) - RCONST(322) = (4.10D-16) - RCONST(323) = (1.36D-11*0.55) - RCONST(324) = (1.36D-11*0.24) - RCONST(325) = (1.36D-11*0.05) - RCONST(326) = (1.36D-11*0.16) - RCONST(327) = (2.60D-16) - RCONST(328) = (2.31D-11*0.50) - RCONST(329) = (2.31D-11*0.29) - RCONST(330) = (2.31D-11*0.04) - RCONST(331) = (2.31D-11*0.17) - RCONST(332) = (5.00D-16) - RCONST(333) = (1.43D-11*0.625) - RCONST(334) = (1.43D-11*0.155) - RCONST(335) = (1.43D-11*0.10) - RCONST(336) = (1.43D-11*0.12) - RCONST(337) = (1.20D-16) - RCONST(338) = (7.00D-12*0.07) - RCONST(339) = (7.00D-12*0.18) - RCONST(340) = (7.00D-12*0.65) - RCONST(341) = (7.00D-12*0.10) - RCONST(342) = (1.40D-16) - RCONST(343) = (5.80D-12*0.18) - RCONST(344) = (5.80D-12*0.65) - RCONST(345) = (5.80D-12*0.10) - RCONST(346) = (5.80D-12*0.07) - RCONST(347) = (1.40D-16) - RCONST(348) = (6.30D-12*0.18) - RCONST(349) = (6.30D-12*0.65) - RCONST(350) = (6.30D-12*0.10) - RCONST(351) = (6.30D-12*0.07) - RCONST(352) = (1.90D-15) - RCONST(353) = (3.27D-11*0.06) - RCONST(354) = (3.27D-11*0.03) - RCONST(355) = (3.27D-11*0.70) - RCONST(356) = (3.27D-11*0.21) - RCONST(357) = (1.80D-15) - RCONST(358) = (3.25D-11*0.06) - RCONST(359) = (3.25D-11*0.61) - RCONST(360) = (3.25D-11*0.03) - RCONST(361) = (3.25D-11*0.30) - RCONST(362) = (8.80D-16) - RCONST(363) = (5.67D-11*0.79) - RCONST(364) = (5.67D-11*0.04) - RCONST(365) = (5.67D-11*0.14) - RCONST(366) = (5.67D-11*0.03) - RCONST(367) = (7.10D-16) - RCONST(368) = (1.19D-11*0.05) - RCONST(369) = (1.19D-11*0.55) - RCONST(370) = (1.19D-11*0.24) - RCONST(371) = (1.19D-11*0.16) - RCONST(372) = (4.50D-16) - RCONST(373) = (1.86D-11*0.04) - RCONST(374) = (1.86D-11*0.50) - RCONST(375) = (1.86D-11*0.29) - RCONST(376) = (1.86D-11*0.17) - RCONST(377) = (8.60D-16) - RCONST(378) = (1.18D-11*0.10) - RCONST(379) = (1.18D-11*0.625) - RCONST(380) = (1.18D-11*0.155) - RCONST(381) = (1.18D-11*0.12) - RCONST(382) = (1.50D-15) - RCONST(383) = (5.67D-11*0.03) - RCONST(384) = (5.67D-11*0.79) - RCONST(385) = (5.67D-11*0.14) - RCONST(386) = (5.67D-11*0.04) - RCONST(387) = (2.60D-15) - RCONST(388) = (5.67D-11*0.03) - RCONST(389) = (5.67D-11*0.04) - RCONST(390) = (5.67D-11*0.79) - RCONST(391) = (5.67D-11*0.14) - RCONST(392) = (1.50D-12) - RCONST(393) = (1.70D-17*0.5) - RCONST(394) = (1.70D-17*0.5) - RCONST(395) = (5.80D-11) - RCONST(396) = (j('ch2cch3cho_h')) - RCONST(397) = (j('ch2cch3cho_hco')) - RCONST(398) = (2.40D-15) - RCONST(399) = (5.9D-12*EXP(225/TEMP)) - RCONST(400) = (1.03D-13*0.5) - RCONST(401) = (1.03D-13*0.5) - RCONST(402) = (1.34D-14*EXP(-2283/TEMP)*0.5) - RCONST(403) = (1.34D-14*EXP(-2283/TEMP)*0.5) - RCONST(404) = (1.48D-11*EXP(448/TEMP)*0.217) - RCONST(405) = (1.48D-11*EXP(448/TEMP)*0.649) - RCONST(406) = (1.48D-11*EXP(448/TEMP)*0.134) - RCONST(407) = (3.15D-12*EXP(-450/TEMP)) - RCONST(408) = (1.03D-14*EXP(-1995/TEMP)*0.3) - RCONST(409) = (1.03D-14*EXP(-1995/TEMP)*0.2) - RCONST(410) = (1.03D-14*EXP(-1995/TEMP)*0.3) - RCONST(411) = (1.03D-14*EXP(-1995/TEMP)*0.2) - RCONST(412) = (2.70D-11*EXP(390/TEMP)*0.280) - RCONST(413) = (2.70D-11*EXP(390/TEMP)*0.178) - RCONST(414) = (2.70D-11*EXP(390/TEMP)*0.022) - RCONST(415) = (2.70D-11*EXP(390/TEMP)*0.020) - RCONST(416) = (2.70D-11*EXP(390/TEMP)*0.042) - RCONST(417) = (2.70D-11*EXP(390/TEMP)*0.280) - RCONST(418) = (2.70D-11*EXP(390/TEMP)*0.178) - RCONST(419) = (2.60D-16) - RCONST(420) = (5.7D-12*EXP(-215/TEMP)) - RCONST(421) = (2.80D-15) - RCONST(422) = (8.91D-18*TEMP**2*EXP(837/TEMP)*0.928) - RCONST(423) = (8.91D-18*TEMP**2*EXP(837/TEMP)*0.072) - RCONST(424) = (8.8D-12*EXP(-1320/TEMP)+1.7D-14*EXP(423/TEMP)) - RCONST(425) = (j('ch3coch3')) - RCONST(426) = (1.5D-12*EXP(-90/TEMP)*0.459) - RCONST(427) = (1.5D-12*EXP(-90/TEMP)*0.462) - RCONST(428) = (1.5D-12*EXP(-90/TEMP)*0.079) - RCONST(429) = (j('mek')) - RCONST(430) = (4.90D-12*0.818) - RCONST(431) = (4.90D-12*0.182) - RCONST(432) = (j('mek')) - RCONST(433) = (2.00D-12*0.501) - RCONST(434) = (2.00D-12*0.499) - RCONST(435) = (j('mek')) - RCONST(436) = (j('mek')) - RCONST(437) = (2.77D-12*0.523) - RCONST(438) = (2.77D-12*0.477) - RCONST(439) = (9.10D-12*0.715) - RCONST(440) = (9.10D-12*0.162) - RCONST(441) = (9.10D-12*0.123) - RCONST(442) = (j('mek')) - RCONST(443) = (6.90D-12*0.638) - RCONST(444) = (6.90D-12*0.142) - RCONST(445) = (6.90D-12*0.110) - RCONST(446) = (6.90D-12*0.110) - RCONST(447) = (j('mek')) - RCONST(448) = (1.41D-11*0.91) - RCONST(449) = (1.41D-11*0.09) - RCONST(450) = (j('mek')) - RCONST(451) = (j('mek')) - RCONST(452) = (1.21D-12) - RCONST(453) = (5.40D-12) - RCONST(454) = (j('mek')*0.5) - RCONST(455) = (j('mek')*0.5) - RCONST(456) = (1.2D-12*EXP(490/TEMP)*0.65) - RCONST(457) = (1.2D-12*EXP(490/TEMP)*0.35) - RCONST(458) = (6.3D-16*EXP(-580/TEMP)*0.6) - RCONST(459) = (6.3D-16*EXP(-580/TEMP)*0.4) - RCONST(460) = (1.2D-11*EXP(440/TEMP)*0.572) - RCONST(461) = (1.2D-11*EXP(440/TEMP)*0.353) - RCONST(462) = (1.2D-11*EXP(440/TEMP)*0.075) - RCONST(463) = (2.51D-12*0.8) - RCONST(464) = (2.51D-12*0.2) - RCONST(465) = (1.50D-17*0.4) - RCONST(466) = (1.50D-17*0.6) - RCONST(467) = (2.38D-11*EXP(357/TEMP)*0.849) - RCONST(468) = (2.38D-11*EXP(357/TEMP)*0.076) - RCONST(469) = (2.38D-11*EXP(357/TEMP)*0.075) - RCONST(470) = (1.22D-11) - RCONST(471) = (2.95D-15*EXP(-783/TEMP)*0.730) - RCONST(472) = (2.95D-15*EXP(-783/TEMP)*0.270) - RCONST(473) = (4.28D-11*EXP(401/TEMP)*0.408) - RCONST(474) = (4.28D-11*EXP(401/TEMP)*0.222) - RCONST(475) = (4.28D-11*EXP(401/TEMP)*0.370) - RCONST(476) = (1.90D-11) - RCONST(477) = (1.16D-14*0.435) - RCONST(478) = (1.16D-14*0.435) - RCONST(479) = (1.16D-14*0.100) - RCONST(480) = (1.16D-14*0.030) - RCONST(481) = (1.97D-10*0.408) - RCONST(482) = (1.97D-10*0.222) - RCONST(483) = (1.97D-10*0.370) - RCONST(484) = (2.4D-14*EXP(-325/TEMP)*O2) - RCONST(485) = (1.53D-13*EXP(1300/TEMP)) - RCONST(486) = (KRO2NO*0.005) - RCONST(487) = (KRO2NO*0.995) - RCONST(488) = (KRO2NO3) - RCONST(489) = (2*(KCH3O2*7.8D-14*EXP(1000/TEMP))**0.5*RO2*0.2) - RCONST(490) = (2*(KCH3O2*7.8D-14*EXP(1000/TEMP))**0.5*RO2*0.6) - RCONST(491) = (2*(KCH3O2*7.8D-14*EXP(1000/TEMP))**0.5*RO2*0.2) - RCONST(492) = (KRO2HO2*0.520) - RCONST(493) = (KRO2NO*0.019) - RCONST(494) = (KRO2NO*0.981) - RCONST(495) = (KRO2NO3) - RCONST(496) = (6.00D-13*0.6*RO2) - RCONST(497) = (6.00D-13*0.2*RO2) - RCONST(498) = (6.00D-13*0.2*RO2) - RCONST(499) = (KRO2HO2*0.520) - RCONST(500) = (KRO2NO3) - RCONST(501) = (8.80D-13*0.2*RO2) - RCONST(502) = (8.80D-13*0.6*RO2) - RCONST(503) = (8.80D-13*0.2*RO2) - RCONST(504) = (KRO2NO*0.977) - RCONST(505) = (KRO2NO*0.023) - RCONST(506) = (KRO2HO2*0.520) - RCONST(507) = (KRO2NO*0.991) - RCONST(508) = (KRO2NO*0.009) - RCONST(509) = (KRO2NO3) - RCONST(510) = (2.00D-12*0.2*RO2) - RCONST(511) = (2.00D-12*0.6*RO2) - RCONST(512) = (2.00D-12*0.2*RO2) - RCONST(513) = (KRO2HO2*0.625) - RCONST(514) = (KRO2NO*0.042) - RCONST(515) = (KRO2NO*0.958) - RCONST(516) = (KRO2NO3) - RCONST(517) = (8.80D-13*0.2*RO2) - RCONST(518) = (8.80D-13*0.6*RO2) - RCONST(519) = (8.80D-13*0.2*RO2) - RCONST(520) = (KRO2HO2*0.625) - RCONST(521) = (KRO2NO*0.083) - RCONST(522) = (KRO2NO*0.917) - RCONST(523) = (KRO2NO3) - RCONST(524) = (8.80D-13*0.2*RO2) - RCONST(525) = (8.80D-13*0.2*RO2) - RCONST(526) = (8.80D-13*0.6*RO2) - RCONST(527) = (KRO2HO2*0.625) - RCONST(528) = (KRO2NO*0.959) - RCONST(529) = (KRO2NO*0.041) - RCONST(530) = (KRO2NO3) - RCONST(531) = (8.80D-13*0.6*RO2) - RCONST(532) = (8.80D-13*0.2*RO2) - RCONST(533) = (8.80D-13*0.2*RO2) - RCONST(534) = (KRO2HO2*0.625) - RCONST(535) = (KRO2NO*0.012) - RCONST(536) = (KRO2NO*0.988) - RCONST(537) = (KRO2NO3) - RCONST(538) = (9.20D-14*0.7*RO2) - RCONST(539) = (9.20D-14*0.3*RO2) - RCONST(540) = (KRO2HO2*0.625) - RCONST(541) = (KRO2NO*0.041) - RCONST(542) = (KRO2NO*0.959) - RCONST(543) = (KRO2NO3) - RCONST(544) = (1.30D-12*0.2*RO2) - RCONST(545) = (1.30D-12*0.6*RO2) - RCONST(546) = (1.30D-12*0.2*RO2) - RCONST(547) = (5.60D-14*EXP(1650/TEMP)) - RCONST(548) = (KRO2NO*0.017) - RCONST(549) = (KRO2NO*0.983) - RCONST(550) = (KRO2NO3) - RCONST(551) = (2.00D-13*0.2*RO2) - RCONST(552) = (2.00D-13*0.2*RO2) - RCONST(553) = (2.00D-13*0.6*RO2) - RCONST(554) = (6.00D+14*EXP(-8153/TEMP)) - RCONST(555) = (KRO2HO2*0.706) - RCONST(556) = (KRO2NO*0.052) - RCONST(557) = (KRO2NO*0.948) - RCONST(558) = (KRO2NO3) - RCONST(559) = (1.30D-12*0.2*RO2) - RCONST(560) = (1.30D-12*0.2*RO2) - RCONST(561) = (1.30D-12*0.6*RO2) - RCONST(562) = (KRO2HO2*0.706) - RCONST(563) = (KRO2NO*0.064) - RCONST(564) = (KRO2NO*0.936) - RCONST(565) = (KRO2NO3) - RCONST(566) = (8.80D-13*0.2*RO2) - RCONST(567) = (8.80D-13*0.2*RO2) - RCONST(568) = (8.80D-13*0.6*RO2) - RCONST(569) = (j('n_c3h7cho_ch3cho')) - RCONST(570) = (j('i_c3h7cho')) - RCONST(571) = (KNO3AL*8.5) - RCONST(572) = (2.69D-11) - RCONST(573) = (KRO2HO2*0.706) - RCONST(574) = (KRO2NO*0.129) - RCONST(575) = (KRO2NO*0.871) - RCONST(576) = (KRO2NO3) - RCONST(577) = (1.30D-12*0.6*RO2) - RCONST(578) = (1.30D-12*0.2*RO2) - RCONST(579) = (1.30D-12*0.2*RO2) - RCONST(580) = (KRO2HO2*0.706) - RCONST(581) = (KRO2NO*0.019) - RCONST(582) = (KRO2NO*0.981) - RCONST(583) = (KRO2NO3) - RCONST(584) = (9.20D-14*0.7*RO2) - RCONST(585) = (9.20D-14*0.3*RO2) - RCONST(586) = (KNO3AL*8.5) - RCONST(587) = (2.95D-11*0.267) - RCONST(588) = (2.95D-11*0.733) - RCONST(589) = (KRO2HO2*0.706) - RCONST(590) = (KRO2NO*0.039) - RCONST(591) = (KRO2NO*0.961) - RCONST(592) = (KRO2NO3) - RCONST(593) = (6.70D-15*0.7*RO2) - RCONST(594) = (6.70D-15*0.3*RO2) - RCONST(595) = (KRO2HO2*0.706) - RCONST(596) = (KRO2NO*0.064) - RCONST(597) = (KRO2NO*0.936) - RCONST(598) = (KRO2NO3) - RCONST(599) = (8.80D-13*0.2*RO2) - RCONST(600) = (8.80D-13*0.6*RO2) - RCONST(601) = (8.80D-13*0.2*RO2) - RCONST(602) = (KRO2HO2*0.706) - RCONST(603) = (KRO2NO*0.052) - RCONST(604) = (KRO2NO*0.948) - RCONST(605) = (KRO2NO3) - RCONST(606) = (1.30D-12*0.2*RO2) - RCONST(607) = (1.30D-12*0.6*RO2) - RCONST(608) = (1.30D-12*0.2*RO2) - RCONST(609) = (KRO2HO2*0.706) - RCONST(610) = (KRO2NO*0.062) - RCONST(611) = (KRO2NO*0.938) - RCONST(612) = (KRO2NO3) - RCONST(613) = (8.80D-13*0.20*RO2) - RCONST(614) = (8.80D-13*0.60*RO2) - RCONST(615) = (8.80D-13*0.20*RO2) - RCONST(616) = (KRO2HO2*0.706) - RCONST(617) = (KRO2NO*0.024) - RCONST(618) = (KRO2NO*0.976) - RCONST(619) = (KRO2NO3) - RCONST(620) = (2.00D-12*0.2*RO2) - RCONST(621) = (2.00D-12*0.6*RO2) - RCONST(622) = (2.00D-12*0.2*RO2) - RCONST(623) = (KRO2HO2*0.706) - RCONST(624) = (KRO2NO*0.033) - RCONST(625) = (KRO2NO*0.967) - RCONST(626) = (KRO2NO3) - RCONST(627) = (1.30D-12*0.6*RO2) - RCONST(628) = (1.30D-12*0.2*RO2) - RCONST(629) = (1.30D-12*0.2*RO2) - RCONST(630) = (KRO2HO2*0.706) - RCONST(631) = (KRO2NO*0.019) - RCONST(632) = (KRO2NO*0.981) - RCONST(633) = (KRO2NO3) - RCONST(634) = (9.20D-14*0.3*RO2) - RCONST(635) = (9.20D-14*0.7*RO2) - RCONST(636) = (KRO2HO2*0.770) - RCONST(637) = (KRO2NO*0.938) - RCONST(638) = (KRO2NO*0.062) - RCONST(639) = (KRO2NO3) - RCONST(640) = (8.80D-13*0.6*RO2) - RCONST(641) = (8.80D-13*0.2*RO2) - RCONST(642) = (8.80D-13*0.2*RO2) - RCONST(643) = (KRO2HO2*0.770) - RCONST(644) = (KRO2NO) - RCONST(645) = (KRO2NO3) - RCONST(646) = (8.80D-13*0.2*RO2) - RCONST(647) = (8.80D-13*0.6*RO2) - RCONST(648) = (8.80D-13*0.2*RO2) - RCONST(649) = (KRO2HO2*0.770) - RCONST(650) = (KRO2NO*0.961) - RCONST(651) = (KRO2NO*0.039) - RCONST(652) = (KRO2NO3) - RCONST(653) = (2.00D-12*0.2*RO2) - RCONST(654) = (2.00D-12*0.2*RO2) - RCONST(655) = (2.00D-12*0.6*RO2) - RCONST(656) = (KRO2HO2*0.770) - RCONST(657) = (KRO2NO) - RCONST(658) = (KRO2NO3) - RCONST(659) = (2.00D-12*0.2*RO2) - RCONST(660) = (2.00D-12*0.2*RO2) - RCONST(661) = (2.00D-12*0.6*RO2) - RCONST(662) = (KAPHO2*0.15) - RCONST(663) = (KAPHO2*0.41) - RCONST(664) = (KAPHO2*0.44) - RCONST(665) = (7.5D-12*EXP(290/TEMP)) - RCONST(666) = (KFPAN) - RCONST(667) = (4.0D-12) - RCONST(668) = (2*(K298CH3O2*2.9D-12*EXP(500/TEMP))**0.5*RO2*0.3) - RCONST(669) = (2*(K298CH3O2*2.9D-12*EXP(500/TEMP))**0.5*RO2*0.7) - RCONST(670) = (KNO3AL) - RCONST(671) = (1.00D-11*0.200) - RCONST(672) = (1.00D-11*0.800) - RCONST(673) = (j('n_c3h7cho_hco')) - RCONST(674) = (1.6D-12*EXP(305/TEMP)) - RCONST(675) = (j('mek')) - RCONST(676) = (KNO3AL*2.4) - RCONST(677) = (1.7D-11) - RCONST(678) = (j('i_c3h7cho')) - RCONST(679) = (KRO2HO2*0.706) - RCONST(680) = (KRO2NO) - RCONST(681) = (KRO2NO3) - RCONST(682) = (8.8D-13*RO2*0.2) - RCONST(683) = (8.8D-13*RO2*0.2) - RCONST(684) = (8.8D-13*RO2*0.6) - RCONST(685) = (KRO2HO2*0.706) - RCONST(686) = (KRO2NO) - RCONST(687) = (KRO2NO3) - RCONST(688) = (1.3D-12*RO2*0.2) - RCONST(689) = (1.3D-12*RO2*0.2) - RCONST(690) = (1.3D-12*RO2*0.6) - RCONST(691) = (KDEC*0.36) - RCONST(692) = (KDEC*0.20) - RCONST(693) = (KDEC*0.20) - RCONST(694) = (KDEC*0.24) - RCONST(695) = (1.4D-11) - RCONST(696) = (j('i_c3h7cho')) - RCONST(697) = (KDEC*0.24) - RCONST(698) = (KDEC*0.40) - RCONST(699) = (KDEC*0.36) - RCONST(700) = (KRO2HO2*0.706) - RCONST(701) = (KRO2NO*0.064) - RCONST(702) = (KRO2NO*0.936) - RCONST(703) = (KRO2NO3) - RCONST(704) = (8.8D-13*RO2*0.2) - RCONST(705) = (8.8D-13*RO2*0.6) - RCONST(706) = (8.8D-13*RO2*0.2) - RCONST(707) = (KRO2HO2*0.706) - RCONST(708) = (KRO2NO*0.026) - RCONST(709) = (KRO2NO*0.974) - RCONST(710) = (KRO2NO3) - RCONST(711) = (2.0D-12*RO2*0.2) - RCONST(712) = (2.0D-12*RO2*0.2) - RCONST(713) = (2.0D-12*RO2*0.6) - RCONST(714) = (3.8D-13*EXP(780/TEMP)*(1-1/(1+498*EXP(-1160/TEMP)))) - RCONST(715) = (3.8D-13*EXP(780/TEMP)*(1/(1+498*EXP(-1160/TEMP)))) - RCONST(716) = (2.3D-12*EXP(360/TEMP)*0.001) - RCONST(717) = (2.3D-12*EXP(360/TEMP)*0.999) - RCONST(718) = (KMT13) - RCONST(719) = (1.2D-12) - RCONST(720) = (2*KCH3O2*RO2*7.18*EXP(-885/TEMP)) - RCONST(721) = (2*KCH3O2*RO2*0.5*(1-7.18*EXP(-885/TEMP))) - RCONST(722) = (2*KCH3O2*RO2*0.5*(1-7.18*EXP(-885/TEMP))) - RCONST(723) = (KRO2HO2*0.387) - RCONST(724) = (KRO2NO) - RCONST(725) = (KRO2NO3) - RCONST(726) = (2.00D-12*0.2*RO2) - RCONST(727) = (2.00D-12*0.6*RO2) - RCONST(728) = (2.00D-12*0.2*RO2) - RCONST(729) = (KAPHO2*0.44) - RCONST(730) = (KAPHO2*0.41) - RCONST(731) = (KAPHO2*0.15) - RCONST(732) = (6.7D-12*EXP(340/TEMP)) - RCONST(733) = (KFPAN) - RCONST(734) = (KRO2NO3*1.74) - RCONST(735) = (1.00D-11*0.7*RO2) - RCONST(736) = (1.00D-11*0.3*RO2) - RCONST(737) = (4.3D-13*EXP(870/TEMP)) - RCONST(738) = (2.55D-12*EXP(380/TEMP)*0.009) - RCONST(739) = (2.55D-12*EXP(380/TEMP)*0.991) - RCONST(740) = (KRO2NO3) - RCONST(741) = (2*(KCH3O2*6.4D-14*(TEMP/300)**0*EXP(0/TEMP))**0.5*RO2*0.6) - RCONST(742) = (2*(KCH3O2*6.4D-14*(TEMP/300)**0*EXP(0/TEMP))**0.5*RO2*0.2) - RCONST(743) = (2*(KCH3O2*6.4D-14*(TEMP/300)**0*EXP(0/TEMP))**0.5*RO2*0.2) - RCONST(744) = (KAPHO2*0.15) - RCONST(745) = (KAPHO2*0.44) - RCONST(746) = (KAPHO2*0.41) - RCONST(747) = (KAPNO) - RCONST(748) = (KFPAN) - RCONST(749) = (KRO2NO3*1.74) - RCONST(750) = (1.00D-11*0.3*RO2) - RCONST(751) = (1.00D-11*0.7*RO2) - RCONST(752) = (KRO2HO2*0.625) - RCONST(753) = (KRO2NO*0.083) - RCONST(754) = (KRO2NO*0.917) - RCONST(755) = (KRO2NO3) - RCONST(756) = (2.50D-13*0.6*RO2) - RCONST(757) = (2.50D-13*0.2*RO2) - RCONST(758) = (2.50D-13*0.2*RO2) - RCONST(759) = (KRO2HO2*0.520) - RCONST(760) = (2.9D-12*EXP(350/TEMP)*0.020) - RCONST(761) = (2.9D-12*EXP(350/TEMP)*0.980) - RCONST(762) = (KRO2NO3) - RCONST(763) = (2*(K298CH3O2*3D-13)**0.5*RO2*0.2) - RCONST(764) = (2*(K298CH3O2*3D-13)**0.5*RO2*0.6) - RCONST(765) = (2*(K298CH3O2*3D-13)**0.5*RO2*0.2) - RCONST(766) = (KAPHO2*0.15) - RCONST(767) = (KAPHO2*0.44) - RCONST(768) = (KAPHO2*0.41) - RCONST(769) = (KAPNO) - RCONST(770) = (KFPAN) - RCONST(771) = (KRO2NO3*1.74) - RCONST(772) = (1.00D-11*0.3*RO2) - RCONST(773) = (1.00D-11*0.7*RO2) - RCONST(774) = (KRO2HO2*0.625) - RCONST(775) = (KRO2NO*0.033) - RCONST(776) = (KRO2NO*0.967) - RCONST(777) = (KRO2NO3) - RCONST(778) = (1.30D-12*0.2*RO2) - RCONST(779) = (1.30D-12*0.6*RO2) - RCONST(780) = (1.30D-12*0.2*RO2) - RCONST(781) = (KRO2HO2*0.625) - RCONST(782) = (KRO2NO) - RCONST(783) = (KRO2NO3) - RCONST(784) = (9.20D-14*0.3*RO2) - RCONST(785) = (9.20D-14*0.7*RO2) - RCONST(786) = (KRO2HO2*0.520) - RCONST(787) = (2.7D-12*EXP(360/TEMP)*0.042) - RCONST(788) = (2.7D-12*EXP(360/TEMP)*0.958) - RCONST(789) = (KRO2NO3) - RCONST(790) = (2*(KCH3O2*1.6D-12*EXP(-2200/TEMP))**0.5*RO2*0.2) - RCONST(791) = (2*(KCH3O2*1.6D-12*EXP(-2200/TEMP))**0.5*RO2*0.6) - RCONST(792) = (2*(KCH3O2*1.6D-12*EXP(-2200/TEMP))**0.5*RO2*0.2) - RCONST(793) = (KAPHO2*0.44) - RCONST(794) = (KAPHO2*0.15) - RCONST(795) = (KAPHO2*0.41) - RCONST(796) = (KAPNO) - RCONST(797) = (KFPAN) - RCONST(798) = (KRO2NO3*1.74) - RCONST(799) = (1.00D-11*0.7*RO2) - RCONST(800) = (1.00D-11*0.3*RO2) - RCONST(801) = (KRO2HO2*0.706) - RCONST(802) = (KRO2NO*0.129) - RCONST(803) = (KRO2NO*0.871) - RCONST(804) = (KRO2NO3) - RCONST(805) = (2.00D-12*0.6*RO2) - RCONST(806) = (2.00D-12*0.2*RO2) - RCONST(807) = (2.00D-12*0.2*RO2) - RCONST(808) = (KRO2HO2*0.625) - RCONST(809) = (KRO2NO*0.033) - RCONST(810) = (KRO2NO*0.967) - RCONST(811) = (KRO2NO3) - RCONST(812) = (1.30D-12*0.2*RO2) - RCONST(813) = (1.30D-12*0.2*RO2) - RCONST(814) = (1.30D-12*0.6*RO2) - RCONST(815) = (KAPHO2*0.15) - RCONST(816) = (KAPHO2*0.41) - RCONST(817) = (KAPHO2*0.44) - RCONST(818) = (KAPNO) - RCONST(819) = (KFPAN) - RCONST(820) = (KRO2NO3*1.74) - RCONST(821) = (1.00D-11*0.3*RO2) - RCONST(822) = (1.00D-11*0.7*RO2) - RCONST(823) = (KRO2HO2*0.52) - RCONST(824) = (KRO2NO) - RCONST(825) = (KRO2NO3) - RCONST(826) = (8.8D-13*RO2*0.6) - RCONST(827) = (K14ISOM1) - RCONST(828) = (8.8D-13*RO2*0.2) - RCONST(829) = (8.8D-13*RO2*0.2) - RCONST(830) = (0.4*0.52*KRO2HO2) - RCONST(831) = (0.6*0.52*KRO2HO2) - RCONST(832) = (0.05*KRO2NO) - RCONST(833) = (0.95*KRO2NO) - RCONST(834) = (KRO2NO3) - RCONST(835) = (2.0D-12*RO2*0.2) - RCONST(836) = (2.0D-12*RO2*0.6) - RCONST(837) = (2.0D-12*RO2*0.2) - RCONST(838) = (0.3333*j('gly')) - RCONST(839) = (0.3333*j('gly')) - RCONST(840) = (0.3333*j('gly')) - RCONST(841) = (KNO3AL) - RCONST(842) = (3.1D-12*EXP(340/TEMP)) - RCONST(843) = (KDEC*0.24) - RCONST(844) = (KDEC*0.20) - RCONST(845) = (KDEC*0.20) - RCONST(846) = (KDEC*0.36) - RCONST(847) = (KDEC*0.35) - RCONST(848) = (KDEC*0.65) - RCONST(849) = (KAPHO2*0.44) - RCONST(850) = (KAPHO2*0.15) - RCONST(851) = (KAPHO2*0.41) - RCONST(852) = (8.70D-12*EXP(290/TEMP)) - RCONST(853) = (KFPAN) - RCONST(854) = (KRO2NO3*1.74) - RCONST(855) = (1.00D-11*0.7*RO2) - RCONST(856) = (1.00D-11*0.3*RO2) - RCONST(857) = (KDEC*0.18) - RCONST(858) = (KDEC*0.82) - RCONST(859) = (j('ch3cocho')) - RCONST(860) = (KNO3AL*2.4) - RCONST(861) = (1.9D-12*EXP(575/TEMP)) - RCONST(862) = (KDEC*0.37) - RCONST(863) = (KDEC*0.47) - RCONST(864) = (KDEC*0.16) - RCONST(865) = (KRO2HO2*0.625) - RCONST(866) = (KRO2NO*0.013) - RCONST(867) = (KRO2NO*0.987) - RCONST(868) = (KRO2NO3) - RCONST(869) = (K14ISOM1) - RCONST(870) = (9.20D-14*0.7*RO2) - RCONST(871) = (9.20D-14*0.3*RO2) - RCONST(872) = (KRO2HO2*0.625) - RCONST(873) = (KRO2NO*0.017) - RCONST(874) = (KRO2NO*0.983) - RCONST(875) = (KRO2NO3) - RCONST(876) = (1.4D-12*0.2*RO2) - RCONST(877) = (1.4D-12*0.2*RO2) - RCONST(878) = (1.4D-12*0.6*RO2) - RCONST(879) = (KAPHO2*0.41) - RCONST(880) = (KAPHO2*0.15) - RCONST(881) = (KAPHO2*0.44) - RCONST(882) = (KAPNO) - RCONST(883) = (KFPAN) - RCONST(884) = (KRO2NO3*1.74) - RCONST(885) = (1.00D-11*RO2*0.3) - RCONST(886) = (1.00D-11*RO2*0.7) - RCONST(887) = (KRO2HO2*0.625) - RCONST(888) = (KRO2NO) - RCONST(889) = (KRO2NO3) - RCONST(890) = (8.80D-13*RO2*0.2) - RCONST(891) = (8.80D-13*RO2*0.6) - RCONST(892) = (8.80D-13*RO2*0.2) - RCONST(893) = (KRO2HO2*0.625) - RCONST(894) = (KRO2NO) - RCONST(895) = (KRO2NO3) - RCONST(896) = (8.80D-13*RO2*0.2) - RCONST(897) = (8.80D-13*RO2*0.6) - RCONST(898) = (8.80D-13*RO2*0.2) - RCONST(899) = (KDEC*0.18) - RCONST(900) = (KDEC*0.57) - RCONST(901) = (KDEC*0.125) - RCONST(902) = (KDEC*0.125) - RCONST(903) = (KRO2HO2*0.625) - RCONST(904) = (KRO2NO*0.957) - RCONST(905) = (KRO2NO*0.043) - RCONST(906) = (KRO2NO3) - RCONST(907) = (8.80D-13*RO2*0.60) - RCONST(908) = (8.80D-13*RO2*0.20) - RCONST(909) = (8.80D-13*RO2*0.20) - RCONST(910) = (KRO2HO2*0.625) - RCONST(911) = (KRO2NO) - RCONST(912) = (KRO2NO3) - RCONST(913) = (0.2*8.8E-13*RO2) - RCONST(914) = (0.2*8.8E-13*RO2) - RCONST(915) = (0.6*8.8E-13*RO2) - RCONST(916) = (KRO2HO2*0.625) - RCONST(917) = (KRO2NO*0.090) - RCONST(918) = (KRO2NO*0.910) - RCONST(919) = (KRO2NO3) - RCONST(920) = (2.50D-13*0.2*RO2) - RCONST(921) = (2.50D-13*0.2*RO2) - RCONST(922) = (2.50D-13*0.6*RO2) - RCONST(923) = (KRO2HO2*0.625) - RCONST(924) = (KRO2NO*0.033) - RCONST(925) = (KRO2NO*0.967) - RCONST(926) = (KRO2NO3) - RCONST(927) = (1.30D-12*0.2*RO2) - RCONST(928) = (1.30D-12*0.6*RO2) - RCONST(929) = (1.30D-12*0.2*RO2) - RCONST(930) = (KRO2HO2*0.625) - RCONST(931) = (KRO2NO*0.025) - RCONST(932) = (KRO2NO*0.975) - RCONST(933) = (KRO2NO3) - RCONST(934) = (6.70D-15*0.3*RO2) - RCONST(935) = (6.70D-15*0.7*RO2) - RCONST(936) = (KRO2HO2*0.706) - RCONST(937) = (KRO2NO*0.052) - RCONST(938) = (KRO2NO*0.948) - RCONST(939) = (KRO2NO3) - RCONST(940) = (1.30D-12*0.2*RO2) - RCONST(941) = (1.30D-12*0.6*RO2) - RCONST(942) = (1.30D-12*0.2*RO2) - RCONST(943) = (KRO2HO2*0.706) - RCONST(944) = (KRO2NO*0.129) - RCONST(945) = (KRO2NO*0.871) - RCONST(946) = (KRO2NO3) - RCONST(947) = (2.50D-13*0.2*RO2) - RCONST(948) = (2.50D-13*0.6*RO2) - RCONST(949) = (2.50D-13*0.2*RO2) - RCONST(950) = (KRO2HO2*0.706) - RCONST(951) = (KRO2NO*0.131) - RCONST(952) = (KRO2NO*0.869) - RCONST(953) = (KRO2NO3) - RCONST(954) = (2.50D-13*0.2*RO2) - RCONST(955) = (2.50D-13*0.6*RO2) - RCONST(956) = (2.50D-13*0.2*RO2) - RCONST(957) = (KRO2HO2*0.706) - RCONST(958) = (KRO2NO*0.052) - RCONST(959) = (KRO2NO*0.948) - RCONST(960) = (KRO2NO3) - RCONST(961) = (1.30D-12*0.2*RO2) - RCONST(962) = (1.30D-12*0.6*RO2) - RCONST(963) = (1.30D-12*0.2*RO2) - RCONST(964) = (KRO2HO2*0.706) - RCONST(965) = (KRO2NO*0.141) - RCONST(966) = (KRO2NO*0.859) - RCONST(967) = (KRO2NO3) - RCONST(968) = (2.50D-13*0.6*RO2) - RCONST(969) = (2.50D-13*0.2*RO2) - RCONST(970) = (2.50D-13*0.2*RO2) - RCONST(971) = (KRO2HO2*0.706) - RCONST(972) = (KRO2NO*0.047) - RCONST(973) = (KRO2NO*0.953) - RCONST(974) = (KRO2NO3) - RCONST(975) = (6.70D-15*0.7*RO2) - RCONST(976) = (6.70D-15*0.3*RO2) - RCONST(977) = (1.43D-13*EXP(1380/TEMP)) - RCONST(978) = (KRO2NO*0.051) - RCONST(979) = (KRO2NO*0.949) - RCONST(980) = (KRO2NO3) - RCONST(981) = (1.3D-12*0.6*RO2) - RCONST(982) = (1.3D-12*0.2*RO2) - RCONST(983) = (1.3D-12*0.2*RO2) - RCONST(984) = (KRO2HO2*0.770) - RCONST(985) = (KRO2NO*0.078) - RCONST(986) = (KRO2NO*0.922) - RCONST(987) = (KRO2NO3) - RCONST(988) = (1.30D-12*0.2*RO2) - RCONST(989) = (1.30D-12*0.6*RO2) - RCONST(990) = (1.30D-12*0.2*RO2) - RCONST(991) = (KRO2HO2*0.770) - RCONST(992) = (KRO2NO*0.209) - RCONST(993) = (KRO2NO*0.791) - RCONST(994) = (KRO2NO3) - RCONST(995) = (2.50D-13*0.2*RO2) - RCONST(996) = (2.50D-13*0.6*RO2) - RCONST(997) = (2.50D-13*0.2*RO2) - RCONST(998) = (KRO2HO2*0.770) - RCONST(999) = (KRO2NO*0.230) - RCONST(1000) = (KRO2NO*0.770) - RCONST(1001) = (KRO2NO3) - RCONST(1002) = (2.50D-13*0.2*RO2) - RCONST(1003) = (2.50D-13*0.6*RO2) - RCONST(1004) = (2.50D-13*0.2*RO2) - RCONST(1005) = (KRO2HO2*0.770) - RCONST(1006) = (KRO2NO*0.078) - RCONST(1007) = (KRO2NO*0.922) - RCONST(1008) = (KRO2NO3) - RCONST(1009) = (1.30D-12*0.2*RO2) - RCONST(1010) = (1.30D-12*0.6*RO2) - RCONST(1011) = (1.30D-12*0.2*RO2) - RCONST(1012) = (KRO2HO2*0.770) - RCONST(1013) = (KRO2NO*0.190) - RCONST(1014) = (KRO2NO*0.810) - RCONST(1015) = (KRO2NO3) - RCONST(1016) = (2.50D-13*0.6*RO2) - RCONST(1017) = (2.50D-13*0.2*RO2) - RCONST(1018) = (2.50D-13*0.2*RO2) - RCONST(1019) = (KRO2HO2*0.770) - RCONST(1020) = (KRO2NO*0.190) - RCONST(1021) = (KRO2NO*0.810) - RCONST(1022) = (KRO2NO3) - RCONST(1023) = (2.50D-13*0.2*RO2) - RCONST(1024) = (2.50D-13*0.6*RO2) - RCONST(1025) = (2.50D-13*0.2*RO2) - RCONST(1026) = (KRO2HO2*0.770) - RCONST(1027) = (KRO2NO*0.031) - RCONST(1028) = (KRO2NO*0.969) - RCONST(1029) = (KRO2NO3) - RCONST(1030) = (6.70D-15*0.7*RO2) - RCONST(1031) = (6.70D-15*0.3*RO2) - RCONST(1032) = (KRO2HO2*0.770) - RCONST(1033) = (KRO2NO*0.078) - RCONST(1034) = (KRO2NO*0.922) - RCONST(1035) = (KRO2NO3) - RCONST(1036) = (1.30D-12*0.2*RO2) - RCONST(1037) = (1.30D-12*0.6*RO2) - RCONST(1038) = (1.30D-12*0.2*RO2) - RCONST(1039) = (KRO2HO2*0.770) - RCONST(1040) = (KRO2NO*0.178) - RCONST(1041) = (KRO2NO*0.822) - RCONST(1042) = (KRO2NO3) - RCONST(1043) = (2.50D-13*0.2*RO2) - RCONST(1044) = (2.50D-13*0.6*RO2) - RCONST(1045) = (2.50D-13*0.2*RO2) - RCONST(1046) = (KRO2HO2*0.770) - RCONST(1047) = (KRO2NO*0.059) - RCONST(1048) = (KRO2NO*0.941) - RCONST(1049) = (KRO2NO3) - RCONST(1050) = (6.70D-15*0.7*RO2) - RCONST(1051) = (6.70D-15*0.3*RO2) - RCONST(1052) = (KRO2HO2*0.770) - RCONST(1053) = (KRO2NO*0.195) - RCONST(1054) = (KRO2NO*0.805) - RCONST(1055) = (KRO2NO3) - RCONST(1056) = (2.50D-13*0.6*RO2) - RCONST(1057) = (2.50D-13*0.2*RO2) - RCONST(1058) = (2.50D-13*0.2*RO2) - RCONST(1059) = (KRO2HO2*0.770) - RCONST(1060) = (KRO2NO*0.078) - RCONST(1061) = (KRO2NO*0.922) - RCONST(1062) = (KRO2NO3) - RCONST(1063) = (1.30D-12*0.2*RO2) - RCONST(1064) = (1.30D-12*0.6*RO2) - RCONST(1065) = (1.30D-12*0.2*RO2) - RCONST(1066) = (KRO2HO2*0.770) - RCONST(1067) = (KRO2NO*0.078) - RCONST(1068) = (KRO2NO*0.922) - RCONST(1069) = (KRO2NO3) - RCONST(1070) = (1.30D-12*0.2*RO2) - RCONST(1071) = (1.30D-12*0.6*RO2) - RCONST(1072) = (1.30D-12*0.2*RO2) - RCONST(1073) = (KRO2HO2*0.770) - RCONST(1074) = (KRO2NO*0.059) - RCONST(1075) = (KRO2NO*0.941) - RCONST(1076) = (KRO2NO3) - RCONST(1077) = (6.70D-15*0.7*RO2) - RCONST(1078) = (6.70D-15*0.3*RO2) - RCONST(1079) = (KRO2HO2*0.770) - RCONST(1080) = (KRO2NO*0.078) - RCONST(1081) = (KRO2NO*0.922) - RCONST(1082) = (KRO2NO3) - RCONST(1083) = (1.30D-12*0.6*RO2) - RCONST(1084) = (1.30D-12*0.2*RO2) - RCONST(1085) = (1.30D-12*0.2*RO2) - RCONST(1086) = (KRO2HO2*0.820) - RCONST(1087) = (KRO2NO*0.278) - RCONST(1088) = (KRO2NO*0.722) - RCONST(1089) = (KRO2NO3) - RCONST(1090) = (2.50D-13*0.2*RO2) - RCONST(1091) = (2.50D-13*0.6*RO2) - RCONST(1092) = (2.50D-13*0.2*RO2) - RCONST(1093) = (KRO2HO2*0.820) - RCONST(1094) = (KRO2NO*0.278) - RCONST(1095) = (KRO2NO*0.722) - RCONST(1096) = (KRO2NO3) - RCONST(1097) = (2.50D-13*0.2*RO2) - RCONST(1098) = (2.50D-13*0.6*RO2) - RCONST(1099) = (2.50D-13*0.2*RO2) - RCONST(1100) = (KRO2HO2*0.820) - RCONST(1101) = (KRO2NO*0.083) - RCONST(1102) = (KRO2NO*0.917) - RCONST(1103) = (KRO2NO3) - RCONST(1104) = (6.70D-15*0.7*RO2) - RCONST(1105) = (6.70D-15*0.3*RO2) - RCONST(1106) = (KRO2HO2*0.820) - RCONST(1107) = (KRO2NO*0.278) - RCONST(1108) = (KRO2NO*0.722) - RCONST(1109) = (KRO2NO3) - RCONST(1110) = (2.50D-13*0.2*RO2) - RCONST(1111) = (2.50D-13*0.6*RO2) - RCONST(1112) = (2.50D-13*0.2*RO2) - RCONST(1113) = (KRO2HO2*0.820) - RCONST(1114) = (KRO2NO*0.083) - RCONST(1115) = (KRO2NO*0.917) - RCONST(1116) = (KRO2NO3) - RCONST(1117) = (6.70D-15*0.7*RO2) - RCONST(1118) = (6.70D-15*0.3*RO2) - RCONST(1119) = (KRO2HO2*0.859) - RCONST(1120) = (KRO2NO*0.346) - RCONST(1121) = (KRO2NO*0.654) - RCONST(1122) = (KRO2NO3) - RCONST(1123) = (2.50D-13*0.2*RO2) - RCONST(1124) = (2.50D-13*0.6*RO2) - RCONST(1125) = (2.50D-13*0.2*RO2) - RCONST(1126) = (KRO2HO2*0.890) - RCONST(1127) = (KRO2NO*0.393) - RCONST(1128) = (KRO2NO*0.607) - RCONST(1129) = (KRO2NO3) - RCONST(1130) = (2.50D-13*0.2*RO2) - RCONST(1131) = (2.50D-13*0.6*RO2) - RCONST(1132) = (2.50D-13*0.2*RO2) - RCONST(1133) = (KRO2HO2*0.914) - RCONST(1134) = (KRO2NO*0.417) - RCONST(1135) = (KRO2NO*0.583) - RCONST(1136) = (KRO2NO3) - RCONST(1137) = (2.50D-13*0.2*RO2) - RCONST(1138) = (2.50D-13*0.6*RO2) - RCONST(1139) = (2.50D-13*0.2*RO2) - RCONST(1140) = (KRO2HO2*0.932) - RCONST(1141) = (KRO2NO*0.431) - RCONST(1142) = (KRO2NO*0.569) - RCONST(1143) = (KRO2NO3) - RCONST(1144) = (2.50D-13*0.2*RO2) - RCONST(1145) = (2.50D-13*0.6*RO2) - RCONST(1146) = (2.50D-13*0.2*RO2) - RCONST(1147) = (KRO2HO2*0.947) - RCONST(1148) = (KRO2NO*0.440) - RCONST(1149) = (KRO2NO*0.560) - RCONST(1150) = (KRO2NO3) - RCONST(1151) = (2.50D-13*0.2*RO2) - RCONST(1152) = (2.50D-13*0.6*RO2) - RCONST(1153) = (2.50D-13*0.2*RO2) - RCONST(1154) = (KRO2HO2*0.770) - RCONST(1155) = (KRO2NO*0.078) - RCONST(1156) = (KRO2NO*0.922) - RCONST(1157) = (KRO2NO3) - RCONST(1158) = (2.50D-13*0.6*RO2) - RCONST(1159) = (2.50D-13*0.2*RO2) - RCONST(1160) = (2.50D-13*0.2*RO2) - RCONST(1161) = (KRO2HO2*0.387) - RCONST(1162) = (KRO2NO) - RCONST(1163) = (KRO2NO3) - RCONST(1164) = (6.00D-13*0.6*RO2) - RCONST(1165) = (6.00D-13*0.2*RO2) - RCONST(1166) = (6.00D-13*0.2*RO2) - RCONST(1167) = (KDEC*0.37) - RCONST(1168) = (KDEC*0.50) - RCONST(1169) = (KDEC*0.13) - RCONST(1170) = (KRO2HO2*0.520) - RCONST(1171) = (KRO2NO) - RCONST(1172) = (KRO2NO3) - RCONST(1173) = (6.00D-13*0.2*RO2) - RCONST(1174) = (6.00D-13*0.6*RO2) - RCONST(1175) = (6.00D-13*0.2*RO2) - RCONST(1176) = (KRO2HO2*0.520) - RCONST(1177) = (KRO2NO) - RCONST(1178) = (KRO2NO3) - RCONST(1179) = (4.00D-14*0.2*RO2) - RCONST(1180) = (4.00D-14*0.2*RO2) - RCONST(1181) = (4.00D-14*0.6*RO2) - RCONST(1182) = (KDEC*0.24) - RCONST(1183) = (KDEC*0.36) - RCONST(1184) = (KDEC*0.20) - RCONST(1185) = (KDEC*0.20) - RCONST(1186) = (KRO2HO2*0.625) - RCONST(1187) = (KRO2NO) - RCONST(1188) = (KRO2NO3) - RCONST(1189) = (2.50D-13*0.6*RO2) - RCONST(1190) = (2.50D-13*0.2*RO2) - RCONST(1191) = (2.50D-13*0.2*RO2) - RCONST(1192) = (KRO2HO2*0.625) - RCONST(1193) = (KRO2NO) - RCONST(1194) = (KRO2NO3) - RCONST(1195) = (2.00D-12*0.2*RO2) - RCONST(1196) = (2.00D-12*0.6*RO2) - RCONST(1197) = (2.00D-12*0.2*RO2) - RCONST(1198) = (KDEC*0.24) - RCONST(1199) = (KDEC*0.36) - RCONST(1200) = (KDEC*0.20) - RCONST(1201) = (KDEC*0.20) - RCONST(1202) = (KRO2HO2*0.625) - RCONST(1203) = (KRO2NO*0.017) - RCONST(1204) = (KRO2NO*0.983) - RCONST(1205) = (KRO2NO3) - RCONST(1206) = (2.00D-12*0.2*RO2) - RCONST(1207) = (2.00D-12*0.6*RO2) - RCONST(1208) = (2.00D-12*0.2*RO2) - RCONST(1209) = (KRO2HO2*0.625) - RCONST(1210) = (KRO2NO) - RCONST(1211) = (KRO2NO3) - RCONST(1212) = (2.50D-13*0.2*RO2) - RCONST(1213) = (2.50D-13*0.2*RO2) - RCONST(1214) = (2.50D-13*0.6*RO2) - RCONST(1215) = (KRO2HO2*0.625) - RCONST(1216) = (KRO2NO) - RCONST(1217) = (KRO2NO3) - RCONST(1218) = (6.70D-15*0.7*RO2) - RCONST(1219) = (6.70D-15*0.3*RO2) - RCONST(1220) = (KRO2HO2*0.625) - RCONST(1221) = (KRO2NO) - RCONST(1222) = (KRO2NO3) - RCONST(1223) = (1.30D-12*0.2*RO2) - RCONST(1224) = (1.30D-12*0.2*RO2) - RCONST(1225) = (1.30D-12*0.6*RO2) - RCONST(1226) = (KDEC*0.18) - RCONST(1227) = (KDEC*0.82) - RCONST(1228) = (KDEC*0.18) - RCONST(1229) = (KDEC*0.82) - RCONST(1230) = (KRO2HO2*0.706) - RCONST(1231) = (KRO2NO) - RCONST(1232) = (KRO2NO3) - RCONST(1233) = (2.50D-13*0.2*RO2) - RCONST(1234) = (2.50D-13*0.6*RO2) - RCONST(1235) = (2.50D-13*0.2*RO2) - RCONST(1236) = (KRO2HO2*0.706) - RCONST(1237) = (KRO2NO) - RCONST(1238) = (KRO2NO3) - RCONST(1239) = (1.30D-12*0.2*RO2) - RCONST(1240) = (1.30D-12*0.6*RO2) - RCONST(1241) = (1.30D-12*0.2*RO2) - RCONST(1242) = (KDEC*0.24) - RCONST(1243) = (KDEC*0.20) - RCONST(1244) = (KDEC*0.36) - RCONST(1245) = (KDEC*0.20) - RCONST(1246) = (KRO2HO2*0.706) - RCONST(1247) = (KRO2NO*0.064) - RCONST(1248) = (KRO2NO*0.936) - RCONST(1249) = (KRO2NO3) - RCONST(1250) = (8.80D-13*0.2*RO2) - RCONST(1251) = (8.80D-13*0.2*RO2) - RCONST(1252) = (8.80D-13*0.6*RO2) - RCONST(1253) = (KRO2HO2*0.706) - RCONST(1254) = (KRO2NO*0.026) - RCONST(1255) = (KRO2NO*0.974) - RCONST(1256) = (KRO2NO3) - RCONST(1257) = (2.00D-12*0.2*RO2) - RCONST(1258) = (2.00D-12*0.2*RO2) - RCONST(1259) = (2.00D-12*0.6*RO2) - RCONST(1260) = (KRO2HO2*0.706) - RCONST(1261) = (KRO2NO) - RCONST(1262) = (KRO2NO3) - RCONST(1263) = (2.50D-13*0.2*RO2) - RCONST(1264) = (2.50D-13*0.6*RO2) - RCONST(1265) = (2.50D-13*0.2*RO2) - RCONST(1266) = (KRO2HO2*0.706) - RCONST(1267) = (KRO2NO) - RCONST(1268) = (KRO2NO3) - RCONST(1269) = (2.50D-13*0.2*RO2) - RCONST(1270) = (2.50D-13*0.6*RO2) - RCONST(1271) = (2.50D-13*0.2*RO2) - RCONST(1272) = (KDEC*0.18) - RCONST(1273) = (KDEC*0.57) - RCONST(1274) = (KDEC*0.125) - RCONST(1275) = (KDEC*0.125) - RCONST(1276) = (KRO2HO2*0.706) - RCONST(1277) = (KRO2NO*0.064) - RCONST(1278) = (KRO2NO*0.936) - RCONST(1279) = (KRO2NO3) - RCONST(1280) = (8.80D-13*0.2*RO2) - RCONST(1281) = (8.80D-13*0.2*RO2) - RCONST(1282) = (8.80D-13*0.6*RO2) - RCONST(1283) = (KRO2HO2*0.706) - RCONST(1284) = (KRO2NO) - RCONST(1285) = (KRO2NO3) - RCONST(1286) = (1.30D-12*0.6*RO2) - RCONST(1287) = (1.30D-12*0.2*RO2) - RCONST(1288) = (1.30D-12*0.2*RO2) - RCONST(1289) = (KRO2HO2*0.706) - RCONST(1290) = (KRO2NO) - RCONST(1291) = (KRO2NO3) - RCONST(1292) = (6.70D-15*0.7*RO2) - RCONST(1293) = (6.70D-15*0.3*RO2) - RCONST(1294) = (KDEC*0.18) - RCONST(1295) = (KDEC*0.82) - RCONST(1296) = (KRO2HO2*0.706) - RCONST(1297) = (KRO2NO) - RCONST(1298) = (KRO2NO3) - RCONST(1299) = (9.20D-14*0.6*RO2) - RCONST(1300) = (9.20D-14*0.2*RO2) - RCONST(1301) = (9.20D-14*0.2*RO2) - RCONST(1302) = (KRO2HO2*0.706) - RCONST(1303) = (KRO2NO) - RCONST(1304) = (KRO2NO3) - RCONST(1305) = (2.00D-12*0.2*RO2) - RCONST(1306) = (2.00D-12*0.6*RO2) - RCONST(1307) = (2.00D-12*0.2*RO2) - RCONST(1308) = (KDEC*0.20) - RCONST(1309) = (KDEC*0.36) - RCONST(1310) = (KDEC*0.20) - RCONST(1311) = (KDEC*0.24) - RCONST(1312) = (KRO2HO2*0.706) - RCONST(1313) = (KRO2NO*0.026) - RCONST(1314) = (KRO2NO*0.974) - RCONST(1315) = (KRO2NO3) - RCONST(1316) = (2.00D-12*0.2*RO2) - RCONST(1317) = (2.00D-12*0.2*RO2) - RCONST(1318) = (2.00D-12*0.6*RO2) - RCONST(1319) = (KRO2HO2*0.706) - RCONST(1320) = (KRO2NO) - RCONST(1321) = (KRO2NO3) - RCONST(1322) = (8.80D-13*0.6*RO2) - RCONST(1323) = (8.80D-13*0.2*RO2) - RCONST(1324) = (8.80D-13*0.2*RO2) - RCONST(1325) = (KRO2HO2*0.706) - RCONST(1326) = (KRO2NO) - RCONST(1327) = (KRO2NO3) - RCONST(1328) = (6.70D-15*0.7*RO2) - RCONST(1329) = (6.70D-15*0.3*RO2) - RCONST(1330) = (KDEC*0.11) - RCONST(1331) = (KDEC*0.89) - RCONST(1332) = (KDEC*0.11) - RCONST(1333) = (KDEC*0.89) - RCONST(1334) = (KRO2HO2*0.770) - RCONST(1335) = (KRO2NO) - RCONST(1336) = (KRO2NO3) - RCONST(1337) = (2.00D-12*0.2*RO2) - RCONST(1338) = (2.00D-12*0.6*RO2) - RCONST(1339) = (2.00D-12*0.2*RO2) - RCONST(1340) = (KRO2HO2*0.770) - RCONST(1341) = (KRO2NO) - RCONST(1342) = (KRO2NO3) - RCONST(1343) = (8.80D-13*0.2*RO2) - RCONST(1344) = (8.80D-13*0.6*RO2) - RCONST(1345) = (8.80D-13*0.2*RO2) - RCONST(1346) = (KDEC*0.20) - RCONST(1347) = (KDEC*0.24) - RCONST(1348) = (KDEC*0.36) - RCONST(1349) = (KDEC*0.20) - RCONST(1350) = (KRO2HO2*0.770) - RCONST(1351) = (KRO2NO*0.097) - RCONST(1352) = (KRO2NO*0.903) - RCONST(1353) = (KRO2NO3) - RCONST(1354) = (8.80D-13*0.2*RO2) - RCONST(1355) = (8.80D-13*0.2*RO2) - RCONST(1356) = (8.80D-13*0.6*RO2) - RCONST(1357) = (KRO2HO2*0.770) - RCONST(1358) = (KRO2NO*0.039) - RCONST(1359) = (KRO2NO*0.961) - RCONST(1360) = (KRO2NO3) - RCONST(1361) = (2.00D-12*0.2*RO2) - RCONST(1362) = (2.00D-12*0.2*RO2) - RCONST(1363) = (2.00D-12*0.6*RO2) - RCONST(1364) = (KRO2HO2*0.770) - RCONST(1365) = (KRO2NO) - RCONST(1366) = (KRO2NO3) - RCONST(1367) = (8.80D-13*0.2*RO2) - RCONST(1368) = (8.80D-13*0.6*RO2) - RCONST(1369) = (8.80D-13*0.2*RO2) - RCONST(1370) = (KRO2HO2*0.770) - RCONST(1371) = (KRO2NO) - RCONST(1372) = (KRO2NO3) - RCONST(1373) = (8.80D-13*0.2*RO2) - RCONST(1374) = (8.80D-13*0.6*RO2) - RCONST(1375) = (8.80D-13*0.2*RO2) - RCONST(1376) = (KDEC*0.18) - RCONST(1377) = (KDEC*0.125) - RCONST(1378) = (KDEC*0.57) - RCONST(1379) = (KDEC*0.125) - RCONST(1380) = (KRO2HO2*0.770) - RCONST(1381) = (KRO2NO*0.097) - RCONST(1382) = (KRO2NO*0.903) - RCONST(1383) = (KRO2NO3) - RCONST(1384) = (8.80D-13*0.2*RO2) - RCONST(1385) = (8.80D-13*0.6*RO2) - RCONST(1386) = (8.80D-13*0.2*RO2) - RCONST(1387) = (KRO2HO2*0.770) - RCONST(1388) = (KRO2NO*0.097) - RCONST(1389) = (KRO2NO*0.903) - RCONST(1390) = (KRO2NO3) - RCONST(1391) = (8.80D-13*0.2*RO2) - RCONST(1392) = (8.80D-13*0.6*RO2) - RCONST(1393) = (8.80D-13*0.2*RO2) - RCONST(1394) = (KRO2HO2*0.770) - RCONST(1395) = (KRO2NO) - RCONST(1396) = (KRO2NO3) - RCONST(1397) = (9.20D-14*RO2*0.70) - RCONST(1398) = (9.20D-14*RO2*0.30) - RCONST(1399) = (KDEC) - RCONST(1400) = (KRO2HO2*0.770) - RCONST(1401) = (KRO2NO*0.031) - RCONST(1402) = (KRO2NO*0.969) - RCONST(1403) = (KRO2NO3) - RCONST(1404) = (9.20D-14*RO2*0.30) - RCONST(1405) = (9.20D-14*RO2*0.70) - RCONST(1406) = (4.5D-13) - RCONST(1407) = (KRO2HO2*0.770) - RCONST(1408) = (KRO2NO*0.082) - RCONST(1409) = (KRO2NO*0.918) - RCONST(1410) = (KRO2NO3) - RCONST(1411) = (8.80D-13*RO2*0.2) - RCONST(1412) = (8.80D-13*RO2*0.6) - RCONST(1413) = (8.80D-13*RO2*0.2) - RCONST(1414) = (2*KNO3AL*2.75) - RCONST(1415) = (2.00D-18) - RCONST(1416) = (6.08D-11*0.31) - RCONST(1417) = (6.08D-11*0.69) - RCONST(1418) = (j('no2')*0.1*0.5) - RCONST(1419) = (j('no2')*0.1*0.5) - RCONST(1420) = (3.8D-12*0.742) - RCONST(1421) = (3.8D-12*0.258) - RCONST(1422) = (4.7D-13*EXP(1220/TEMP)*0.06) - RCONST(1423) = (4.7D-13*EXP(1220/TEMP)*0.8) - RCONST(1424) = (4.7D-13*EXP(1220/TEMP)*0.14) - RCONST(1425) = (1.5D-13*EXP(1310/TEMP)) - RCONST(1426) = (KRO2NO*0.105) - RCONST(1427) = (KRO2NO*0.895) - RCONST(1428) = (KRO2NO3) - RCONST(1429) = (2*(KCH3O2*2.4D-14*EXP(1620/TEMP))**0.5*RO2*0.2) - RCONST(1430) = (2*(KCH3O2*2.4D-14*EXP(1620/TEMP))**0.5*RO2*0.6) - RCONST(1431) = (2*(KCH3O2*2.4D-14*EXP(1620/TEMP))**0.5*RO2*0.2) - RCONST(1432) = (1.4D-11*0.103) - RCONST(1433) = (1.4D-11*0.506) - RCONST(1434) = (1.4D-11*0.391) - RCONST(1435) = (4.65D-11*0.200) - RCONST(1436) = (4.65D-11*0.727) - RCONST(1437) = (4.65D-11*0.073) - RCONST(1438) = (KRO2HO2*0.820) - RCONST(1439) = (KRO2NO*0.889) - RCONST(1440) = (KRO2NO*0.111) - RCONST(1441) = (KRO2NO3) - RCONST(1442) = (8.80D-13*RO2*0.20) - RCONST(1443) = (8.80D-13*RO2*0.60) - RCONST(1444) = (8.80D-13*RO2*0.20) - RCONST(1445) = (KNO3AL*2.75) - RCONST(1446) = (5.00D-18) - RCONST(1447) = (7.99D-11*0.31) - RCONST(1448) = (7.99D-11*0.69) - RCONST(1449) = (j('no2')*0.1*0.5) - RCONST(1450) = (j('no2')*0.1*0.5) - RCONST(1451) = (KRO2HO2*0.859) - RCONST(1452) = (KRO2NO*0.105) - RCONST(1453) = (KRO2NO*0.895) - RCONST(1454) = (KRO2NO3) - RCONST(1455) = (1.30D-12*0.20*RO2) - RCONST(1456) = (1.30D-12*0.60*RO2) - RCONST(1457) = (1.30D-12*0.20*RO2) - RCONST(1458) = (KRO2HO2*0.859) - RCONST(1459) = (KRO2NO*0.138) - RCONST(1460) = (KRO2NO*0.862) - RCONST(1461) = (KRO2NO3) - RCONST(1462) = (9.20D-14*RO2*0.70) - RCONST(1463) = (9.20D-14*RO2*0.30) - RCONST(1464) = (2*KNO3AL*4.25) - RCONST(1465) = (2.00D-18) - RCONST(1466) = (5.99D-11*0.632) - RCONST(1467) = (5.99D-11*0.368) - RCONST(1468) = (j('no2')*0.05*0.5) - RCONST(1469) = (j('no2')*0.05*0.5) - RCONST(1470) = (3.20D-11*0.51) - RCONST(1471) = (3.20D-11*0.39) - RCONST(1472) = (3.20D-11*0.10) - RCONST(1473) = (8.00D-11*0.07) - RCONST(1474) = (8.00D-11*0.73) - RCONST(1475) = (8.00D-11*0.20) - RCONST(1476) = (KRO2HO2*0.859) - RCONST(1477) = (KRO2NO*0.105) - RCONST(1478) = (KRO2NO*0.895) - RCONST(1479) = (KRO2NO3) - RCONST(1480) = (1.30D-12*0.20*RO2) - RCONST(1481) = (1.30D-12*0.60*RO2) - RCONST(1482) = (1.30D-12*0.20*RO2) - RCONST(1483) = (KRO2HO2*0.859) - RCONST(1484) = (KRO2NO*0.138) - RCONST(1485) = (KRO2NO*0.862) - RCONST(1486) = (KRO2NO3) - RCONST(1487) = (8.80D-13*RO2*0.6) - RCONST(1488) = (8.80D-13*RO2*0.2) - RCONST(1489) = (8.80D-13*RO2*0.2) - RCONST(1490) = (KNO3AL*4.25) - RCONST(1491) = (2.00D-18) - RCONST(1492) = (8.02D-11*0.26) - RCONST(1493) = (8.02D-11*0.74) - RCONST(1494) = (j('no2')*0.028*0.5) - RCONST(1495) = (j('no2')*0.028*0.5) - RCONST(1496) = (4.50D-11*0.39) - RCONST(1497) = (4.50D-11*0.10) - RCONST(1498) = (4.50D-11*0.51) - RCONST(1499) = (9.10D-11*0.07) - RCONST(1500) = (9.10D-11*0.42) - RCONST(1501) = (9.10D-11*0.51) - RCONST(1502) = (KRO2HO2*0.820) - RCONST(1503) = (KRO2NO*0.105) - RCONST(1504) = (KRO2NO*0.895) - RCONST(1505) = (KRO2NO3) - RCONST(1506) = (1.30D-12*0.20*RO2) - RCONST(1507) = (1.30D-12*0.60*RO2) - RCONST(1508) = (1.30D-12*0.20*RO2) - RCONST(1509) = (KRO2HO2*0.859) - RCONST(1510) = (KRO2NO*0.138) - RCONST(1511) = (KRO2NO*0.862) - RCONST(1512) = (KRO2NO3) - RCONST(1513) = (9.20D-14*RO2*0.70) - RCONST(1514) = (9.20D-14*RO2*0.30) - RCONST(1515) = (KNO3AL*4.25) - RCONST(1516) = (5.00D-18) - RCONST(1517) = (7.88D-11*0.26) - RCONST(1518) = (7.88D-11*0.74) - RCONST(1519) = (j('no2')*0.1*0.5) - RCONST(1520) = (j('no2')*0.1*0.5) - RCONST(1521) = (3.48D-11*0.51) - RCONST(1522) = (3.48D-11*0.39) - RCONST(1523) = (3.48D-11*0.10) - RCONST(1524) = (8.00D-11*0.07) - RCONST(1525) = (8.00D-11*0.73) - RCONST(1526) = (8.00D-11*0.2) - RCONST(1527) = (KRO2HO2*0.859) - RCONST(1528) = (KRO2NO*0.900) - RCONST(1529) = (KRO2NO*0.100) - RCONST(1530) = (KRO2NO3) - RCONST(1531) = (1.30D-12*0.60*RO2) - RCONST(1532) = (1.30D-12*0.20*RO2) - RCONST(1533) = (1.30D-12*0.20*RO2) - RCONST(1534) = (1.25D-11*0.391) - RCONST(1535) = (1.25D-11*0.103) - RCONST(1536) = (1.25D-11*0.506) - RCONST(1537) = (5.10D-11*0.073) - RCONST(1538) = (5.10D-11*0.200) - RCONST(1539) = (5.10D-11*0.727) - RCONST(1540) = (KRO2HO2*0.859) - RCONST(1541) = (KRO2NO*0.90) - RCONST(1542) = (KRO2NO*0.10) - RCONST(1543) = (KRO2NO3) - RCONST(1544) = (8.80D-13*RO2*0.60) - RCONST(1545) = (8.80D-13*RO2*0.20) - RCONST(1546) = (8.80D-13*RO2*0.20) - RCONST(1547) = (KNO3AL*2.75) - RCONST(1548) = (5.00D-18) - RCONST(1549) = (8.10D-11*0.26) - RCONST(1550) = (8.10D-11*0.76) - RCONST(1551) = (j('no2')*0.028*0.5) - RCONST(1552) = (j('no2')*0.028*0.5) - RCONST(1553) = (KRO2HO2*0.890) - RCONST(1554) = (KRO2NO*0.393) - RCONST(1555) = (KRO2NO*0.607) - RCONST(1556) = (KRO2NO3) - RCONST(1557) = (2.50D-13*RO2*0.6) - RCONST(1558) = (2.50D-13*RO2*0.2) - RCONST(1559) = (2.50D-13*RO2*0.2) - RCONST(1560) = (1.25D-11*0.506) - RCONST(1561) = (1.25D-11*0.391) - RCONST(1562) = (1.25D-11*0.103) - RCONST(1563) = (5.10D-11*0.073) - RCONST(1564) = (5.10D-11*0.200) - RCONST(1565) = (5.10D-11*0.727) - RCONST(1566) = (KRO2HO2*0.890) - RCONST(1567) = (KRO2NO*0.90) - RCONST(1568) = (KRO2NO*0.10) - RCONST(1569) = (KRO2NO3) - RCONST(1570) = (8.80D-13*RO2*0.60) - RCONST(1571) = (8.80D-13*RO2*0.20) - RCONST(1572) = (8.80D-13*RO2*0.20) - RCONST(1573) = (KNO3AL*2.75) - RCONST(1574) = (5.00D-18) - RCONST(1575) = (8.45D-11*0.74) - RCONST(1576) = (8.45D-11*0.26) - RCONST(1577) = (j('no2')*0.028*0.5) - RCONST(1578) = (j('no2')*0.028*0.5) - RCONST(1579) = (KRO2HO2*0.890) - RCONST(1580) = (KRO2NO*0.118) - RCONST(1581) = (KRO2NO*0.882) - RCONST(1582) = (KRO2NO3) - RCONST(1583) = (6.70D-15*RO2*0.7) - RCONST(1584) = (6.70D-15*RO2*0.3) - RCONST(1585) = (1.25D-11*0.391) - RCONST(1586) = (1.25D-11*0.103) - RCONST(1587) = (1.25D-11*0.506) - RCONST(1588) = (5.10D-11*0.073) - RCONST(1589) = (5.10D-11*0.200) - RCONST(1590) = (5.10D-11*0.727) - RCONST(1591) = (KRO2HO2*0.890) - RCONST(1592) = (KRO2NO*0.90) - RCONST(1593) = (KRO2NO*0.10) - RCONST(1594) = (KRO2NO3) - RCONST(1595) = (8.80D-13*RO2*0.60) - RCONST(1596) = (8.80D-13*RO2*0.20) - RCONST(1597) = (8.80D-13*RO2*0.20) - RCONST(1598) = (KNO3AL*4.25) - RCONST(1599) = (5.00D-18) - RCONST(1600) = (8.23D-11*0.26) - RCONST(1601) = (8.23D-11*0.74) - RCONST(1602) = (j('no2')*0.028*0.5) - RCONST(1603) = (j('no2')*0.028*0.5) - RCONST(1604) = (KRO2HO2*0.890) - RCONST(1605) = (KRO2NO*0.157) - RCONST(1606) = (KRO2NO*0.843) - RCONST(1607) = (KRO2NO3) - RCONST(1608) = (1.30D-12*RO2*0.20) - RCONST(1609) = (1.30D-12*RO2*0.60) - RCONST(1610) = (1.30D-12*RO2*0.20) - RCONST(1611) = (3.20D-11*0.51) - RCONST(1612) = (3.20D-11*0.39) - RCONST(1613) = (3.20D-11*0.10) - RCONST(1614) = (8.20D-11*0.73) - RCONST(1615) = (8.20D-11*0.07) - RCONST(1616) = (8.20D-11*0.20) - RCONST(1617) = (KRO2HO2*0.890) - RCONST(1618) = (KRO2NO*0.157) - RCONST(1619) = (KRO2NO*0.843) - RCONST(1620) = (KRO2NO3) - RCONST(1621) = (8.80D-13*RO2*0.20) - RCONST(1622) = (8.80D-13*RO2*0.60) - RCONST(1623) = (8.80D-13*RO2*0.20) - RCONST(1624) = (5.00D-18) - RCONST(1625) = (5.96D-11) - RCONST(1626) = (j('mek')) - RCONST(1627) = (j('mvk_mcm_ch2ch')) - RCONST(1628) = (KRO2HO2*0.890) - RCONST(1629) = (KRO2NO*0.157) - RCONST(1630) = (KRO2NO*0.843) - RCONST(1631) = (KRO2NO3) - RCONST(1632) = (1.30D-12*RO2*0.20) - RCONST(1633) = (1.30D-12*RO2*0.60) - RCONST(1634) = (1.30D-12*RO2*0.20) - RCONST(1635) = (KRO2HO2*0.890) - RCONST(1636) = (KRO2NO*0.157) - RCONST(1637) = (KRO2NO*0.843) - RCONST(1638) = (KRO2NO3) - RCONST(1639) = (9.20D-14*RO2*0.30) - RCONST(1640) = (9.20D-14*RO2*0.70) - RCONST(1641) = (3.20D-11*0.51) - RCONST(1642) = (3.20D-11*0.39) - RCONST(1643) = (3.20D-11*0.10) - RCONST(1644) = (8.20D-11*0.26) - RCONST(1645) = (8.20D-11*0.07) - RCONST(1646) = (8.20D-11*0.67) - RCONST(1647) = (KNO3AL*4.25) - RCONST(1648) = (5.00D-18) - RCONST(1649) = (7.91D-11*0.736) - RCONST(1650) = (7.91D-11*0.264) - RCONST(1651) = (j('no2')*0.028*0.5) - RCONST(1652) = (j('no2')*0.028*0.5) - RCONST(1653) = (KRO2HO2*0.890) - RCONST(1654) = (KRO2NO*0.105) - RCONST(1655) = (KRO2NO*0.895) - RCONST(1656) = (KRO2NO3) - RCONST(1657) = (1.30D-12*0.20*RO2) - RCONST(1658) = (1.30D-12*0.60*RO2) - RCONST(1659) = (1.30D-12*0.20*RO2) - RCONST(1660) = (KRO2HO2*0.890) - RCONST(1661) = (KRO2NO*0.157) - RCONST(1662) = (KRO2NO*0.843) - RCONST(1663) = (KRO2NO3) - RCONST(1664) = (8.80D-13*RO2*0.2) - RCONST(1665) = (8.80D-13*RO2*0.6) - RCONST(1666) = (8.80D-13*RO2*0.2) - RCONST(1667) = (1.30D-11*0.787) - RCONST(1668) = (1.30D-11*0.213) - RCONST(1669) = (8.20D-11*0.054) - RCONST(1670) = (8.20D-11*0.946) - RCONST(1671) = (KNO3AL*4.25) - RCONST(1672) = (1.25D-17) - RCONST(1673) = (1.01D-10*0.79) - RCONST(1674) = (1.01D-10*0.21) - RCONST(1675) = (j('no2')*0.1*0.5) - RCONST(1676) = (j('no2')*0.1*0.5) - RCONST(1677) = (KRO2HO2*0.890) - RCONST(1678) = (KRO2NO*0.393) - RCONST(1679) = (KRO2NO*0.607) - RCONST(1680) = (KRO2NO3) - RCONST(1681) = (2.50D-13*RO2*0.6) - RCONST(1682) = (2.50D-13*RO2*0.2) - RCONST(1683) = (2.50D-13*RO2*0.2) - RCONST(1684) = (KRO2HO2*0.890) - RCONST(1685) = (KRO2NO*0.157) - RCONST(1686) = (KRO2NO*0.843) - RCONST(1687) = (KRO2NO3) - RCONST(1688) = (9.20D-14*RO2*0.70) - RCONST(1689) = (9.20D-14*RO2*0.30) - RCONST(1690) = (2*KNO3AL*4.25) - RCONST(1691) = (2.00D-18) - RCONST(1692) = (6.32D-11*0.49) - RCONST(1693) = (6.32D-11*0.51) - RCONST(1694) = (j('no2')*0.05*0.5) - RCONST(1695) = (j('no2')*0.05*0.5) - RCONST(1696) = (3.20D-11*0.51) - RCONST(1697) = (3.20D-11*0.39) - RCONST(1698) = (3.20D-11*0.10) - RCONST(1699) = (8.20D-11*0.07) - RCONST(1700) = (8.20D-11*0.73) - RCONST(1701) = (8.20D-11*0.20) - RCONST(1702) = (KRO2HO2*0.890) - RCONST(1703) = (KRO2NO*0.157) - RCONST(1704) = (KRO2NO*0.843) - RCONST(1705) = (KRO2NO3) - RCONST(1706) = (8.80D-13*RO2*0.6) - RCONST(1707) = (8.80D-13*RO2*0.2) - RCONST(1708) = (8.80D-13*RO2*0.2) - RCONST(1709) = (KNO3AL*4.25) - RCONST(1710) = (5.00D-18) - RCONST(1711) = (8.13D-11*0.26) - RCONST(1712) = (8.13D-11*0.74) - RCONST(1713) = (j('no2')*0.028*0.5) - RCONST(1714) = (j('no2')*0.028*0.5) - RCONST(1715) = (4.50D-11*0.39) - RCONST(1716) = (4.50D-11*0.10) - RCONST(1717) = (4.50D-11*0.51) - RCONST(1718) = (8.20D-11*0.07) - RCONST(1719) = (8.20D-11*0.42) - RCONST(1720) = (8.20D-11*0.51) - RCONST(1721) = (KRO2HO2*0.890) - RCONST(1722) = (KRO2NO*0.157) - RCONST(1723) = (KRO2NO*0.843) - RCONST(1724) = (KRO2NO3) - RCONST(1725) = (9.20D-14*RO2*0.7) - RCONST(1726) = (9.20D-14*RO2*0.3) - RCONST(1727) = (KNO3AL*4.25) - RCONST(1728) = (5.00D-18) - RCONST(1729) = (8.00D-11*0.26) - RCONST(1730) = (8.00D-11*0.74) - RCONST(1731) = (j('no2')*0.028*0.5) - RCONST(1732) = (j('no2')*0.028*0.5) - RCONST(1733) = (3.48D-11*0.51) - RCONST(1734) = (3.48D-11*0.39) - RCONST(1735) = (3.48D-11*0.10) - RCONST(1736) = (8.20D-11*0.07) - RCONST(1737) = (8.20D-11*0.73) - RCONST(1738) = (8.20D-11*0.20) - RCONST(1739) = (KRO2HO2*0.914) - RCONST(1740) = (KRO2NO*0.417) - RCONST(1741) = (KRO2NO*0.583) - RCONST(1742) = (KRO2NO3) - RCONST(1743) = (2.50D-13*RO2*0.6) - RCONST(1744) = (2.50D-13*RO2*0.2) - RCONST(1745) = (2.50D-13*RO2*0.2) - RCONST(1746) = (KRO2HO2*0.914) - RCONST(1747) = (KRO2NO*0.167) - RCONST(1748) = (KRO2NO*0.833) - RCONST(1749) = (KRO2NO3) - RCONST(1750) = (8.80D-13*RO2*0.6) - RCONST(1751) = (8.80D-13*RO2*0.2) - RCONST(1752) = (8.80D-13*RO2*0.2) - RCONST(1753) = (KNO3AL*4.25) - RCONST(1754) = (1.25D-17) - RCONST(1755) = (1.02D-10*0.79) - RCONST(1756) = (1.02D-10*0.21) - RCONST(1757) = (j('no2')*0.028*0.5) - RCONST(1758) = (j('no2')*0.028*0.5) - RCONST(1759) = (1.30D-11*0.213) - RCONST(1760) = (1.30D-11*0.787) - RCONST(1761) = (8.20D-11*0.054) - RCONST(1762) = (8.20D-11*0.946) - RCONST(1763) = (KRO2HO2*0.932) - RCONST(1764) = (KRO2NO*0.431) - RCONST(1765) = (KRO2NO*0.569) - RCONST(1766) = (KRO2NO3) - RCONST(1767) = (2.50D-13*RO2*0.6) - RCONST(1768) = (2.50D-13*RO2*0.2) - RCONST(1769) = (2.50D-13*RO2*0.2) - RCONST(1770) = (1.30D-11*0.213) - RCONST(1771) = (1.30D-11*0.787) - RCONST(1772) = (8.20D-11*0.946) - RCONST(1773) = (8.20D-11*0.054) - RCONST(1774) = (KRO2HO2*0.932) - RCONST(1775) = (KRO2NO*0.172) - RCONST(1776) = (KRO2NO*0.828) - RCONST(1777) = (KRO2NO3) - RCONST(1778) = (8.80D-13*RO2*0.6) - RCONST(1779) = (8.80D-13*RO2*0.2) - RCONST(1780) = (8.80D-13*RO2*0.2) - RCONST(1781) = (KNO3AL*4.25) - RCONST(1782) = (1.25D-17) - RCONST(1783) = (1.05D-10*0.79) - RCONST(1784) = (1.05D-10*0.21) - RCONST(1785) = (j('no2')*0.028*0.5) - RCONST(1786) = (j('no2')*0.028*0.5) - RCONST(1787) = (KRO2HO2*0.859) - RCONST(1788) = (KRO2NO) - RCONST(1789) = (KRO2NO3) - RCONST(1790) = (2.50D-13*RO2) - RCONST(1791) = (KDEC*0.20) - RCONST(1792) = (KDEC*0.36) - RCONST(1793) = (KDEC*0.20) - RCONST(1794) = (KDEC*0.24) - RCONST(1795) = (KRO2HO2*0.859) - RCONST(1796) = (KRO2NO) - RCONST(1797) = (KRO2NO3) - RCONST(1798) = (2.50D-13*RO2) - RCONST(1799) = (KAPHO2*0.41) - RCONST(1800) = (KAPHO2*0.44) - RCONST(1801) = (KAPHO2*0.15) - RCONST(1802) = (KAPNO) - RCONST(1803) = (KFPAN) - RCONST(1804) = (KRO2NO3*1.74) - RCONST(1805) = (1.00D-11*RO2*0.7) - RCONST(1806) = (1.00D-11*RO2*0.3) - RCONST(1807) = (KRO2HO2*0.770) - RCONST(1808) = (KRO2NO) - RCONST(1809) = (KRO2NO3) - RCONST(1810) = (2.50D-13*RO2) - RCONST(1811) = (KRO2HO2*0.625) - RCONST(1812) = (KRO2NO) - RCONST(1813) = (KRO2NO3) - RCONST(1814) = (2.50D-13*0.6*RO2) - RCONST(1815) = (2.50D-13*0.2*RO2) - RCONST(1816) = (2.50D-13*0.2*RO2) - RCONST(1817) = (KRO2HO2*0.625) - RCONST(1818) = (KRO2NO*0.033) - RCONST(1819) = (KRO2NO*0.967) - RCONST(1820) = (KRO2NO3) - RCONST(1821) = (1.30D-12*0.2*RO2) - RCONST(1822) = (1.30D-12*0.6*RO2) - RCONST(1823) = (1.30D-12*0.2*RO2) - RCONST(1824) = (KDEC*0.24) - RCONST(1825) = (KDEC*0.68) - RCONST(1826) = (KDEC*0.08) - RCONST(1827) = (KDEC*0.24) - RCONST(1828) = (KDEC*0.34) - RCONST(1829) = (KDEC*0.08) - RCONST(1830) = (KDEC*0.34) - RCONST(1831) = (KRO2HO2*0.625) - RCONST(1832) = (KRO2NO*0.053) - RCONST(1833) = (KRO2NO*0.947) - RCONST(1834) = (KRO2NO3) - RCONST(1835) = (2.00D-12*0.8*RO2) - RCONST(1836) = (2.00D-12*0.1*RO2) - RCONST(1837) = (2.00D-12*0.1*RO2) - RCONST(1838) = (KRO2HO2*0.625) - RCONST(1839) = (KRO2NO*0.071) - RCONST(1840) = (KRO2NO*0.929) - RCONST(1841) = (KRO2NO3) - RCONST(1842) = (2.90D-12*0.8*RO2) - RCONST(1843) = (2.90D-12*0.1*RO2) - RCONST(1844) = (2.90D-12*0.1*RO2) - RCONST(1845) = (KRO2HO2*0.625) - RCONST(1846) = (KRO2NO*0.947) - RCONST(1847) = (KRO2NO*0.053) - RCONST(1848) = (KRO2NO3) - RCONST(1849) = (2.65D-12*0.1*RO2) - RCONST(1850) = (2.65D-12*0.8*RO2) - RCONST(1851) = (2.65D-12*0.1*RO2) - RCONST(1852) = (KRO2HO2*0.706) - RCONST(1853) = (KRO2NO*0.052) - RCONST(1854) = (KRO2NO*0.948) - RCONST(1855) = (KRO2NO3) - RCONST(1856) = (1.30D-12*0.2*RO2) - RCONST(1857) = (1.30D-12*0.2*RO2) - RCONST(1858) = (1.30D-12*0.6*RO2) - RCONST(1859) = (KDEC*0.22) - RCONST(1860) = (KDEC*0.51) - RCONST(1861) = (KDEC*0.27) - RCONST(1862) = (j('mvk_mcm_co')) - RCONST(1863) = (j('mvk_mcm_ch2ch')) - RCONST(1864) = (8.5D-16*EXP(-1520/TEMP)*0.5) - RCONST(1865) = (8.5D-16*EXP(-1520/TEMP)*0.5) - RCONST(1866) = (2.6D-12*EXP(610/TEMP)*0.3) - RCONST(1867) = (2.6D-12*EXP(610/TEMP)*0.7) - RCONST(1868) = (KDEC*0.255) - RCONST(1869) = (KDEC*0.255) - RCONST(1870) = (KDEC*0.22) - RCONST(1871) = (KDEC*0.27) - RCONST(1872) = (KDEC*0.255) - RCONST(1873) = (KDEC*0.255) - RCONST(1874) = (KDEC*0.22) - RCONST(1875) = (KDEC*0.27) - RCONST(1876) = (5.50D-13*O2) - RCONST(1877) = (6.50D-13*O2) - RCONST(1878) = (5.50D-13*O2) - RCONST(1879) = (6.50D-13*O2) - RCONST(1880) = (KRO2HO2*0.706) - RCONST(1881) = (KRO2NO*0.070) - RCONST(1882) = (KRO2NO*0.930) - RCONST(1883) = (KRO2NO3) - RCONST(1884) = (2.65D-12*RO2*0.1) - RCONST(1885) = (2.65D-12*RO2*0.8) - RCONST(1886) = (2.65D-12*RO2*0.1) - RCONST(1887) = (3.30D-13) - RCONST(1888) = (1.60D-17*0.33) - RCONST(1889) = (1.60D-17*0.67) - RCONST(1890) = (7.30D-11*0.712) - RCONST(1891) = (7.30D-11*0.288) - RCONST(1892) = (j('n_c3h7cho_hco')) - RCONST(1893) = (1.20D-14) - RCONST(1894) = (1.00D-17*0.43) - RCONST(1895) = (1.00D-17*0.57) - RCONST(1896) = (2.71D-11) - RCONST(1897) = (j('mek')) - RCONST(1898) = (1.00D-13*O2) - RCONST(1899) = (6.50D-13*O2) - RCONST(1900) = (1.00D-13*O2) - RCONST(1901) = (6.50D-13*O2) - RCONST(1902) = (KRO2HO2*0.387*0.6) - RCONST(1903) = (KRO2HO2*0.387*0.4) - RCONST(1904) = (KRO2NO*0.009) - RCONST(1905) = (KRO2NO*0.991) - RCONST(1906) = (KRO2NO3) - RCONST(1907) = (2*(K298CH3O2*2.1D-12)**0.5*RO2*0.6) - RCONST(1908) = (2*(K298CH3O2*2.1D-12)**0.5*RO2*0.2) - RCONST(1909) = (2*(K298CH3O2*2.1D-12)**0.5*RO2*0.2) - RCONST(1910) = (KRO2HO2*0.625*0.6) - RCONST(1911) = (KRO2HO2*0.625*0.4) - RCONST(1912) = (KRO2NO*0.083) - RCONST(1913) = (KRO2NO*0.917) - RCONST(1914) = (KRO2NO3) - RCONST(1915) = (8.80D-13*0.6*RO2) - RCONST(1916) = (8.80D-13*0.2*RO2) - RCONST(1917) = (8.80D-13*0.2*RO2) - RCONST(1918) = (KRO2HO2*0.625) - RCONST(1919) = (KRO2NO*0.033) - RCONST(1920) = (KRO2NO*0.967) - RCONST(1921) = (KRO2NO3) - RCONST(1922) = (2.00D-12*0.2*RO2) - RCONST(1923) = (2.00D-12*0.2*RO2) - RCONST(1924) = (2.00D-12*0.6*RO2) - RCONST(1925) = (1.36D-13*EXP(1250/TEMP)*0.15) - RCONST(1926) = (1.36D-13*EXP(1250/TEMP)*0.85) - RCONST(1927) = (KRO2NO) - RCONST(1928) = (KRO2NO3) - RCONST(1929) = (2*(K298CH3O2*8.0D-12)**0.5*RO2*0.2) - RCONST(1930) = (2*(K298CH3O2*8.0D-12)**0.5*RO2*0.6) - RCONST(1931) = (2*(K298CH3O2*8.0D-12)**0.5*RO2*0.2) - RCONST(1932) = (KRO2HO2*0.625) - RCONST(1933) = (KRO2NO*0.033) - RCONST(1934) = (KRO2NO*0.967) - RCONST(1935) = (KRO2NO3) - RCONST(1936) = (2.00D-12*0.2*RO2) - RCONST(1937) = (2.00D-12*0.6*RO2) - RCONST(1938) = (2.00D-12*0.2*RO2) - RCONST(1939) = (KRO2HO2*0.625) - RCONST(1940) = (KRO2NO) - RCONST(1941) = (KRO2NO3) - RCONST(1942) = (8.80D-13*0.2*RO2) - RCONST(1943) = (8.80D-13*0.2*RO2) - RCONST(1944) = (8.80D-13*0.6*RO2) - RCONST(1945) = (KRO2HO2*0.625) - RCONST(1946) = (KRO2NO) - RCONST(1947) = (KRO2NO3) - RCONST(1948) = (2.00D-12*0.2*RO2) - RCONST(1949) = (2.00D-12*0.6*RO2) - RCONST(1950) = (2.00D-12*0.2*RO2) - RCONST(1951) = (KRO2HO2*0.706) - RCONST(1952) = (KRO2NO*0.871) - RCONST(1953) = (KRO2NO*0.129) - RCONST(1954) = (KRO2NO3) - RCONST(1955) = (8.80D-13*0.2*RO2) - RCONST(1956) = (8.80D-13*0.6*RO2) - RCONST(1957) = (8.80D-13*0.2*RO2) - RCONST(1958) = (KRO2HO2*0.706) - RCONST(1959) = (KRO2NO) - RCONST(1960) = (KRO2NO3) - RCONST(1961) = (8.80D-13*0.2*RO2) - RCONST(1962) = (8.80D-13*0.6*RO2) - RCONST(1963) = (8.80D-13*0.2*RO2) - RCONST(1964) = (KRO2HO2*0.706) - RCONST(1965) = (KRO2NO) - RCONST(1966) = (KRO2NO3) - RCONST(1967) = (8.80D-13*0.2*RO2) - RCONST(1968) = (8.80D-13*0.6*RO2) - RCONST(1969) = (8.80D-13*0.2*RO2) - RCONST(1970) = (KRO2HO2*0.706) - RCONST(1971) = (KRO2NO*0.052) - RCONST(1972) = (KRO2NO*0.948) - RCONST(1973) = (KRO2NO3) - RCONST(1974) = (2.00D-12*0.2*RO2) - RCONST(1975) = (2.00D-12*0.6*RO2) - RCONST(1976) = (2.00D-12*0.2*RO2) - RCONST(1977) = (KRO2HO2*0.706) - RCONST(1978) = (KRO2NO) - RCONST(1979) = (KRO2NO3) - RCONST(1980) = (9.20D-14*0.7*RO2) - RCONST(1981) = (9.20D-14*0.3*RO2) - RCONST(1982) = (KRO2HO2*0.706) - RCONST(1983) = (KRO2NO*0.052) - RCONST(1984) = (KRO2NO*0.948) - RCONST(1985) = (KRO2NO3) - RCONST(1986) = (1.30D-12*0.2*RO2) - RCONST(1987) = (1.30D-12*0.6*RO2) - RCONST(1988) = (1.30D-12*0.2*RO2) - RCONST(1989) = (KRO2HO2*0.770) - RCONST(1990) = (KRO2NO*0.195) - RCONST(1991) = (KRO2NO*0.805) - RCONST(1992) = (KRO2NO3) - RCONST(1993) = (8.80D-13*0.2*RO2) - RCONST(1994) = (8.80D-13*0.2*RO2) - RCONST(1995) = (8.80D-13*0.6*RO2) - RCONST(1996) = (KRO2HO2*0.770) - RCONST(1997) = (KRO2NO*0.195) - RCONST(1998) = (KRO2NO*0.805) - RCONST(1999) = (KRO2NO3) - RCONST(2000) = (2.50D-13*0.2*RO2) - RCONST(2001) = (2.50D-13*0.6*RO2) - RCONST(2002) = (2.50D-13*0.2*RO2) - RCONST(2003) = (KRO2HO2*0.770) - RCONST(2004) = (KRO2NO) - RCONST(2005) = (KRO2NO3) - RCONST(2006) = (8.80D-13*0.2*RO2) - RCONST(2007) = (8.80D-13*0.2*RO2) - RCONST(2008) = (8.80D-13*0.6*RO2) - RCONST(2009) = (KRO2HO2*0.770) - RCONST(2010) = (KRO2NO*0.195) - RCONST(2011) = (KRO2NO*0.805) - RCONST(2012) = (KRO2NO3) - RCONST(2013) = (2.50D-13*0.2*RO2) - RCONST(2014) = (2.50D-13*0.6*RO2) - RCONST(2015) = (2.50D-13*0.2*RO2) - RCONST(2016) = (KRO2HO2*0.770) - RCONST(2017) = (KRO2NO) - RCONST(2018) = (KRO2NO3) - RCONST(2019) = (2.50D-13*0.2*RO2) - RCONST(2020) = (2.50D-13*0.2*RO2) - RCONST(2021) = (2.50D-13*0.6*RO2) - RCONST(2022) = (KRO2HO2*0.770) - RCONST(2023) = (KRO2NO) - RCONST(2024) = (KRO2NO3) - RCONST(2025) = (2.50D-13*0.2*RO2) - RCONST(2026) = (2.50D-13*0.6*RO2) - RCONST(2027) = (2.50D-13*0.2*RO2) - RCONST(2028) = (KRO2HO2*0.770) - RCONST(2029) = (KRO2NO*0.078) - RCONST(2030) = (KRO2NO*0.922) - RCONST(2031) = (KRO2NO3) - RCONST(2032) = (2.50D-13*0.2*RO2) - RCONST(2033) = (2.50D-13*0.6*RO2) - RCONST(2034) = (2.50D-13*0.2*RO2) - RCONST(2035) = (KRO2HO2*0.770) - RCONST(2036) = (KRO2NO*0.058) - RCONST(2037) = (KRO2NO*0.942) - RCONST(2038) = (KRO2NO3) - RCONST(2039) = (6.70D-15*0.7*RO2) - RCONST(2040) = (6.70D-15*0.3*RO2) - RCONST(2041) = (KRO2HO2*0.770) - RCONST(2042) = (KRO2NO) - RCONST(2043) = (KRO2NO3) - RCONST(2044) = (8.80D-13*0.2*RO2) - RCONST(2045) = (8.80D-13*0.6*RO2) - RCONST(2046) = (8.80D-13*0.2*RO2) - RCONST(2047) = (KRO2HO2*0.770) - RCONST(2048) = (KRO2NO*0.078) - RCONST(2049) = (KRO2NO*0.922) - RCONST(2050) = (KRO2NO3) - RCONST(2051) = (1.30D-12*0.2*RO2) - RCONST(2052) = (1.30D-12*0.6*RO2) - RCONST(2053) = (1.30D-12*0.2*RO2) - RCONST(2054) = (KRO2HO2*0.770) - RCONST(2055) = (KRO2NO*0.068) - RCONST(2056) = (KRO2NO*0.932) - RCONST(2057) = (KRO2NO3) - RCONST(2058) = (2.50D-13*0.2*RO2) - RCONST(2059) = (2.50D-13*0.6*RO2) - RCONST(2060) = (2.50D-13*0.2*RO2) - RCONST(2061) = (KRO2HO2*0.914) - RCONST(2062) = (KRO2NO) - RCONST(2063) = (KRO2NO3) - RCONST(2064) = (6.70D-15*0.1*RO2) - RCONST(2065) = (6.70D-15*0.9*RO2) - RCONST(2066) = (KRO2HO2*0.914) - RCONST(2067) = (KRO2NO) - RCONST(2068) = (KRO2NO3) - RCONST(2069) = (2.50D-13*0.1*RO2) - RCONST(2070) = (2.50D-13*0.8*RO2) - RCONST(2071) = (2.50D-13*0.1*RO2) - RCONST(2072) = (KDEC*0.55) - RCONST(2073) = (KDEC*0.45) - RCONST(2074) = (KDEC*0.50) - RCONST(2075) = (KDEC*0.50) - RCONST(2076) = (KRO2HO2*0.914) - RCONST(2077) = (KRO2NO*0.230) - RCONST(2078) = (KRO2NO*0.770) - RCONST(2079) = (KRO2NO3) - RCONST(2080) = (9.20D-14*RO2*0.7) - RCONST(2081) = (9.20D-14*RO2*0.3) - RCONST(2082) = (KRO2HO2*0.914) - RCONST(2083) = (KRO2NO*0.230) - RCONST(2084) = (KRO2NO*0.770) - RCONST(2085) = (KRO2NO3) - RCONST(2086) = (8.80D-13*RO2*0.2) - RCONST(2087) = (8.80D-13*RO2*0.6) - RCONST(2088) = (8.80D-13*RO2*0.2) - RCONST(2089) = (KRO2HO2*0.914) - RCONST(2090) = (KRO2NO*0.125) - RCONST(2091) = (KRO2NO*0.875) - RCONST(2092) = (KRO2NO3) - RCONST(2093) = (6.70D-15*RO2*0.7) - RCONST(2094) = (6.70D-15*RO2*0.3) - RCONST(2095) = (KRO2HO2*0.914) - RCONST(2096) = (KRO2NO) - RCONST(2097) = (KRO2NO3) - RCONST(2098) = (9.20D-14*RO2*0.3) - RCONST(2099) = (9.20D-14*RO2*0.7) - RCONST(2100) = (KRO2HO2*0.914) - RCONST(2101) = (KRO2NO) - RCONST(2102) = (KRO2NO3) - RCONST(2103) = (2.00D-12*RO2*0.2) - RCONST(2104) = (2.00D-12*RO2*0.6) - RCONST(2105) = (2.00D-12*RO2*0.6) - RCONST(2106) = (1.55D-11*0.535) - RCONST(2107) = (1.55D-11*0.199) - RCONST(2108) = (1.55D-11*0.130) - RCONST(2109) = (1.55D-11*0.136) - RCONST(2110) = (KDEC*0.370) - RCONST(2111) = (KDEC*0.500) - RCONST(2112) = (KDEC*0.130) - RCONST(2113) = (KDEC*0.330) - RCONST(2114) = (KDEC*0.500) - RCONST(2115) = (KDEC*0.170) - RCONST(2116) = (KRO2HO2*0.914) - RCONST(2117) = (KRO2NO*0.240) - RCONST(2118) = (KRO2NO*0.760) - RCONST(2119) = (KRO2NO3) - RCONST(2120) = (9.20D-14*RO2*0.7) - RCONST(2121) = (9.20D-14*RO2*0.3) - RCONST(2122) = (KRO2HO2*0.914) - RCONST(2123) = (KRO2NO*0.240) - RCONST(2124) = (KRO2NO*0.760) - RCONST(2125) = (KRO2NO3) - RCONST(2126) = (2.00D-12*RO2*0.2) - RCONST(2127) = (2.00D-12*RO2*0.6) - RCONST(2128) = (2.00D-12*RO2*0.2) - RCONST(2129) = (KRO2HO2*0.914) - RCONST(2130) = (KRO2NO*0.125) - RCONST(2131) = (KRO2NO*0.875) - RCONST(2132) = (KRO2NO3) - RCONST(2133) = (6.70D-15*RO2*0.7) - RCONST(2134) = (6.70D-15*RO2*0.3) - RCONST(2135) = (KRO2HO2*0.914) - RCONST(2136) = (KRO2NO) - RCONST(2137) = (KRO2NO3) - RCONST(2138) = (9.20D-14*RO2*0.3) - RCONST(2139) = (9.20D-14*RO2*0.7) - RCONST(2140) = (KDEC*0.5) - RCONST(2141) = (KDEC*0.5) - RCONST(2142) = (KDEC*0.5) - RCONST(2143) = (KDEC*0.5) - RCONST(2144) = (KRO2HO2*0.914) - RCONST(2145) = (KRO2NO*0.228) - RCONST(2146) = (KRO2NO*0.772) - RCONST(2147) = (KRO2NO3) - RCONST(2148) = (9.20D-14*RO2*0.7) - RCONST(2149) = (9.20D-14*RO2*0.3) - RCONST(2150) = (KRO2HO2*0.914) - RCONST(2151) = (KRO2NO*0.228) - RCONST(2152) = (KRO2NO*0.772) - RCONST(2153) = (KRO2NO3) - RCONST(2154) = (8.80D-13*RO2*0.2) - RCONST(2155) = (8.80D-13*RO2*0.2) - RCONST(2156) = (8.80D-13*RO2*0.6) - RCONST(2157) = (KRO2HO2*0.914) - RCONST(2158) = (KRO2NO*0.228) - RCONST(2159) = (KRO2NO*0.772) - RCONST(2160) = (KRO2NO3) - RCONST(2161) = (9.20D-14*RO2*0.7) - RCONST(2162) = (9.20D-14*RO2*0.3) - RCONST(2163) = (KRO2HO2*0.975) - RCONST(2164) = (KRO2NO) - RCONST(2165) = (KRO2NO3) - RCONST(2166) = (9.20D-14*RO2*0.3) - RCONST(2167) = (9.20D-14*RO2*0.7) - RCONST(2168) = (1.20D-15) - RCONST(2169) = (1.00D-14) - RCONST(2170) = (1.00D-15) - RCONST(2171) = (7.00D-14) - RCONST(2172) = (2.00D-16*H2O) - RCONST(2173) = (8.00D+01) - RCONST(2174) = (1.20D-15) - RCONST(2175) = (1.00D-14) - RCONST(2176) = (1.00D-15) - RCONST(2177) = (7.00D-14) - RCONST(2178) = (1.20D+02) - RCONST(2179) = (2.00D-16*H2O) - RCONST(2180) = (KDEC*0.13) - RCONST(2181) = (KDEC*0.67) - RCONST(2182) = (KDEC*0.15) - RCONST(2183) = (KDEC*0.05) - RCONST(2184) = (KDEC*0.66) - RCONST(2185) = (KDEC*0.17) - RCONST(2186) = (KDEC*0.17) - RCONST(2187) = (KRO2HO2*0.975) - RCONST(2188) = (KRO2NO*0.247) - RCONST(2189) = (KRO2NO*0.753) - RCONST(2190) = (KRO2NO3) - RCONST(2191) = (9.20D-14*RO2*0.7) - RCONST(2192) = (9.20D-14*RO2*0.3) - RCONST(2193) = (KRO2HO2*0.975) - RCONST(2194) = (KRO2NO*0.247) - RCONST(2195) = (KRO2NO*0.753) - RCONST(2196) = (KRO2NO3) - RCONST(2197) = (8.80D-13*RO2*0.2) - RCONST(2198) = (8.80D-13*RO2*0.2) - RCONST(2199) = (8.80D-13*RO2*0.6) - RCONST(2200) = (KRO2HO2*0.975) - RCONST(2201) = (KRO2NO*0.247) - RCONST(2202) = (KRO2NO*0.753) - RCONST(2203) = (KRO2NO3) - RCONST(2204) = (9.20D-14*RO2*0.7) - RCONST(2205) = (9.20D-14*RO2*0.3) - RCONST(2206) = (1.90D-12*EXP(190/TEMP)) - RCONST(2207) = (1.38D-11) - RCONST(2208) = (j('ch3o2h')) - RCONST(2209) = (8.40D-13) - RCONST(2210) = (9.50D+13*EXP(-5988/TEMP)) - RCONST(2211) = (KROPRIM*O2) - RCONST(2212) = (j('ch3o2h')) - RCONST(2213) = (1.90D-12*EXP(190/TEMP)) - RCONST(2214) = (1.52D-11) - RCONST(2215) = (j('n_c3h7ono2')) - RCONST(2216) = (4.44D-12) - RCONST(2217) = (KROPRIM*O2) - RCONST(2218) = (j('n_c3h7cho_hco')) - RCONST(2219) = (KNO3AL*2.4) - RCONST(2220) = (3.06D-11) - RCONST(2221) = (9.73D-12) - RCONST(2222) = (2.44D-11) - RCONST(2223) = (1.90D-12*EXP(190/TEMP)) - RCONST(2224) = (j('ch3o2h')) - RCONST(2225) = (2.00D+14*EXP(-6410/TEMP)) - RCONST(2226) = (9.16D-13) - RCONST(2227) = (1.83D-11) - RCONST(2228) = (1.90D-12*EXP(190/TEMP)) - RCONST(2229) = (j('ch3o2h')) - RCONST(2230) = (2.00D+14*EXP(-5505/TEMP)) - RCONST(2231) = (1.71D-12) - RCONST(2232) = (3.01D-11) - RCONST(2233) = (1.90D-12*EXP(190/TEMP)) - RCONST(2234) = (j('ch3o2h')) - RCONST(2235) = (1.27D-12) - RCONST(2236) = (2.00D+14*EXP(-6354/TEMP)) - RCONST(2237) = (3.44D-12) - RCONST(2238) = (j('mek')) - RCONST(2239) = (1.59D-11) - RCONST(2240) = (2.58D-11) - RCONST(2241) = (1.90D-12*EXP(190/TEMP)) - RCONST(2242) = (j('ch3o2h')) - RCONST(2243) = (4.51D-12) - RCONST(2244) = (j('1_c4h9ono2')) - RCONST(2245) = (2.70D+14*EXP(-7398/TEMP)) - RCONST(2246) = (KROSEC*O2) - RCONST(2247) = (1.42D-11) - RCONST(2248) = (1.35D-11) - RCONST(2249) = (j('mek')) - RCONST(2250) = (2.89D-11) - RCONST(2251) = (1.90D-12*EXP(190/TEMP)) - RCONST(2252) = (j('ch3o2h')) - RCONST(2253) = (2.00D+14*EXP(-4714/TEMP)) - RCONST(2254) = (1.79D-12) - RCONST(2255) = (5.86D-12) - RCONST(2256) = (j('mek')) - RCONST(2257) = (1.73D-11) - RCONST(2258) = (8.10D-12) - RCONST(2259) = (j('ch3o2h')) - RCONST(2260) = (8.48D-13) - RCONST(2261) = (2.00D+14*EXP(-5902/TEMP)) - RCONST(2262) = (4.64D-12) - RCONST(2263) = (1.69D-11) - RCONST(2264) = (1.90D-12*EXP(190/TEMP)) - RCONST(2265) = (j('ch3o2h')) - RCONST(2266) = (4.85D-12) - RCONST(2267) = (j('n_c3h7ono2')) - RCONST(2268) = (KROPRIM*O2) - RCONST(2269) = (j('i_c3h7cho')) - RCONST(2270) = (KNO3AL*4.0) - RCONST(2271) = (3.60D-11) - RCONST(2272) = (1.14D-11) - RCONST(2273) = (9.98D-12) - RCONST(2274) = (1.90D-12*EXP(190/TEMP)) - RCONST(2275) = (j('ch3o2h')) - RCONST(2276) = (5.21D-13) - RCONST(2277) = (2.00D+14*EXP(-4909/TEMP)) - RCONST(2278) = (j('ch3o2h')) - RCONST(2279) = (2.28D-11) - RCONST(2280) = (1.90D-12*EXP(190/TEMP)) - RCONST(2281) = (j('n_c3h7ono2')) - RCONST(2282) = (1.20D-11) - RCONST(2283) = (2.03D+11*EXP(-3430/TEMP)) - RCONST(2284) = (1.61D-11) - RCONST(2285) = (j('n_c3h7cho_hco')) - RCONST(2286) = (KNO3AL*5.5) - RCONST(2287) = (5.56D-11*0.611) - RCONST(2288) = (5.56D-11*0.389) - RCONST(2289) = (3.19D-11) - RCONST(2290) = (1.90D-12*EXP(190/TEMP)) - RCONST(2291) = (j('ch3o2h')) - RCONST(2292) = (3.25D-12) - RCONST(2293) = (2.00D+14*EXP(-4714/TEMP)) - RCONST(2294) = (2.14D-11) - RCONST(2295) = (1.00D-11) - RCONST(2296) = (j('mek')) - RCONST(2297) = (KAPHO2*0.15) - RCONST(2298) = (KAPHO2*0.41) - RCONST(2299) = (KAPHO2*0.44) - RCONST(2300) = (KAPNO) - RCONST(2301) = (KFPAN) - RCONST(2302) = (KRO2NO3*1.74) - RCONST(2303) = (1.00D-11*0.3*RO2) - RCONST(2304) = (1.00D-11*0.7*RO2) - RCONST(2305) = (j('ch3o2h')) - RCONST(2306) = (3.11D-11) - RCONST(2307) = (j('1_c4h9ono2')) - RCONST(2308) = (4.93D-12) - RCONST(2309) = (KROSEC*O2) - RCONST(2310) = (1.59D-11) - RCONST(2311) = (j('mek')) - RCONST(2312) = (1.51D-11) - RCONST(2313) = (9.24D-12) - RCONST(2314) = (j('ch3o2h')) - RCONST(2315) = (1.18D-12) - RCONST(2316) = (2.00D+14*EXP(-5902/TEMP)) - RCONST(2317) = (5.78D-12) - RCONST(2318) = (KAPHO2*0.15) - RCONST(2319) = (KAPHO2*0.41) - RCONST(2320) = (KAPHO2*0.44) - RCONST(2321) = (KAPNO) - RCONST(2322) = (KFPAN) - RCONST(2323) = (KRO2NO3*1.74) - RCONST(2324) = (1.00D-11*0.3*RO2) - RCONST(2325) = (1.00D-11*0.7*RO2) - RCONST(2326) = (KRO2HO2*0.706) - RCONST(2327) = (KRO2NO*0.039) - RCONST(2328) = (KRO2NO*0.961) - RCONST(2329) = (KRO2NO3) - RCONST(2330) = (6.70D-15*0.7*RO2) - RCONST(2331) = (6.70D-15*0.3*RO2) - RCONST(2332) = (j('ch3o2h')) - RCONST(2333) = (9.51D-12) - RCONST(2334) = (j('2_c4h9ono2')) - RCONST(2335) = (4.45D-12) - RCONST(2336) = (2.70D+14*EXP(-6542/TEMP)) - RCONST(2337) = (5.91D-12) - RCONST(2338) = (1.90D-12*EXP(190/TEMP)) - RCONST(2339) = (3.15D-11) - RCONST(2340) = (j('ch3o2h')) - RCONST(2341) = (1.63D-12) - RCONST(2342) = (KDEC) - RCONST(2343) = (1.73D-11) - RCONST(2344) = (5.11D-12) - RCONST(2345) = (j('mek')) - RCONST(2346) = (j('ch3o2h')) - RCONST(2347) = (1.15D-11) - RCONST(2348) = (1.90D-12*EXP(190/TEMP)) - RCONST(2349) = (j('n_c3h7ono2')) - RCONST(2350) = (7.50D-13) - RCONST(2351) = (6.10D+11*EXP(-4240/TEMP)) - RCONST(2352) = (KROPRIM*O2) - RCONST(2353) = (j('n_c3h7cho_hco')) - RCONST(2354) = (KNO3AL*8.5) - RCONST(2355) = (2.21D-11) - RCONST(2356) = (1.90D-12*EXP(190/TEMP)) - RCONST(2357) = (2.07D-11) - RCONST(2358) = (j('ch3o2h')) - RCONST(2359) = (5.97D-13) - RCONST(2360) = (2.70D+14*EXP(-6643/TEMP)) - RCONST(2361) = (KROSEC*O2) - RCONST(2362) = (8.63D-12) - RCONST(2363) = (1.38D-12) - RCONST(2364) = (1.90D-12*EXP(190/TEMP)) - RCONST(2365) = (1.13D-11) - RCONST(2366) = (j('ch3o2h')) - RCONST(2367) = (1.67D-12) - RCONST(2368) = (2.00D+14*EXP(-4909/TEMP)) - RCONST(2369) = (KNO3AL*8.5) - RCONST(2370) = (2.52D-11) - RCONST(2371) = (j('i_c3h7cho')) - RCONST(2372) = (j('ch3o2h')) - RCONST(2373) = (1.90D-12*EXP(190/TEMP)) - RCONST(2374) = (2.14D-11) - RCONST(2375) = (j('n_c3h7ono2')) - RCONST(2376) = (9.35D-12) - RCONST(2377) = (2.03D+11*EXP(-4240/TEMP)) - RCONST(2378) = (KROPRIM*O2) - RCONST(2379) = (j('i_c3h7cho')) - RCONST(2380) = (KNO3AL*8.5) - RCONST(2381) = (4.99D-11*0.561) - RCONST(2382) = (4.99D-11*0.439) - RCONST(2383) = (1.90D-12*EXP(190/TEMP)) - RCONST(2384) = (8.85D-12) - RCONST(2385) = (j('ch3o2h')) - RCONST(2386) = (1.72D-12) - RCONST(2387) = (KDEC) - RCONST(2388) = (1.90D-12*EXP(190/TEMP)) - RCONST(2389) = (4.07D-11) - RCONST(2390) = (j('ch3o2h')) - RCONST(2391) = (KDEC) - RCONST(2392) = (6.08D-12) - RCONST(2393) = (2.65D-11) - RCONST(2394) = (1.76D-11) - RCONST(2395) = (j('mek')) - RCONST(2396) = (1.56D-11) - RCONST(2397) = (1.90D-12*EXP(190/TEMP)) - RCONST(2398) = (j('mek')) - RCONST(2399) = (j('ch3o2h')) - RCONST(2400) = (KDEC) - RCONST(2401) = (1.30D-12) - RCONST(2402) = (j('biacet')) - RCONST(2403) = (6.98D-12) - RCONST(2404) = (j('mek')) - RCONST(2405) = (1.08D-11) - RCONST(2406) = (1.90D-12*EXP(190/TEMP)) - RCONST(2407) = (j('ch3o2h')+j('mek')) - RCONST(2408) = (KDEC) - RCONST(2409) = (1.18D-12) - RCONST(2410) = (j('mek')) - RCONST(2411) = (5.43D-12) - RCONST(2412) = (j('i_c3h7cho')) - RCONST(2413) = (2.43D-11) - RCONST(2414) = (1.31D-11) - RCONST(2415) = (j('ch3o2h')) - RCONST(2416) = (j('mek')) - RCONST(2417) = (KDEC) - RCONST(2418) = (3.44D-12) - RCONST(2419) = (j('mek')) - RCONST(2420) = (KNO3AL*8.5) - RCONST(2421) = (1.34D-11) - RCONST(2422) = (j('ch3cocho')) - RCONST(2423) = (8.00D-13) - RCONST(2424) = (3.70D-12) - RCONST(2425) = (j('ch3o2h')) - RCONST(2426) = (3D-14) - RCONST(2427) = (KBPAN) - RCONST(2428) = (KAPHO2*0.44) - RCONST(2429) = (KAPHO2*0.15) - RCONST(2430) = (KAPHO2*0.41) - RCONST(2431) = (KAPNO) - RCONST(2432) = (KFPAN) - RCONST(2433) = (KRO2NO3*1.74) - RCONST(2434) = (1.00D-11*0.7*RO2) - RCONST(2435) = (1.00D-11*0.3*RO2) - RCONST(2436) = (KAPHO2*0.44) - RCONST(2437) = (KAPHO2*0.56) - RCONST(2438) = (KAPNO) - RCONST(2439) = (KFPAN) - RCONST(2440) = (KRO2NO3*1.74) - RCONST(2441) = (1.00D-11*RO2) - RCONST(2442) = (4.89D-12) - RCONST(2443) = (1.90D-12*EXP(190/TEMP)) - RCONST(2444) = (j('ch3o2h')) - RCONST(2445) = (KDEC) - RCONST(2446) = (1.23D-12) - RCONST(2447) = (2.69D-12) - RCONST(2448) = (2.52D-12) - RCONST(2449) = (1.90D-12*EXP(190/TEMP)) - RCONST(2450) = (j('ch3o2h')) - RCONST(2451) = (KDEC) - RCONST(2452) = (1.75D-12) - RCONST(2453) = (4.26D-12) - RCONST(2454) = (1.20D-15) - RCONST(2455) = (1.00D-14) - RCONST(2456) = (1.00D-15) - RCONST(2457) = (7.00D-14) - RCONST(2458) = (6.00D-18*H2O) - RCONST(2459) = (1.00D-17*H2O) - RCONST(2460) = (KAPHO2*0.44) - RCONST(2461) = (KAPHO2*0.15) - RCONST(2462) = (KAPHO2*0.41) - RCONST(2463) = (KAPNO) - RCONST(2464) = (KFPAN) - RCONST(2465) = (KRO2NO3*1.74) - RCONST(2466) = (1.00D-11*RO2*0.7) - RCONST(2467) = (1.00D-11*RO2*0.3) - RCONST(2468) = (1.20D-15) - RCONST(2469) = (1.00D-14) - RCONST(2470) = (1.00D-15) - RCONST(2471) = (7.00D-14) - RCONST(2472) = (6.00D-18*H2O) - RCONST(2473) = (1.00D-17*H2O) - RCONST(2474) = (2.93D-11) - RCONST(2475) = (1.90D-12*EXP(190/TEMP)) - RCONST(2476) = (j('ch3o2h')) - RCONST(2477) = (KDEC) - RCONST(2478) = (3.79D-12) - RCONST(2479) = (j('mek')) - RCONST(2480) = (1.51D-11) - RCONST(2481) = (2.05D-12) - RCONST(2482) = (1.90D-12*EXP(190/TEMP)) - RCONST(2483) = (j('ch3o2h')) - RCONST(2484) = (KDEC) - RCONST(2485) = (2.75D-11) - RCONST(2486) = (j('i_c3h7cho')) - RCONST(2487) = (j('ch3o2h')) - RCONST(2488) = (5.3D-12*EXP(190/TEMP)*0.6) - RCONST(2489) = (5.3D-12*EXP(190/TEMP)*0.4) - RCONST(2490) = (j('ch3ono2')) - RCONST(2491) = (4.0D-13*EXP(-845/TEMP)) - RCONST(2492) = (7.2D-14*EXP(-1080/TEMP)*O2) - RCONST(2493) = (KMT14) - RCONST(2494) = (2.91D-11) - RCONST(2495) = (1.90D-12*EXP(190/TEMP)) - RCONST(2496) = (j('ch3o2h')) - RCONST(2497) = (j('n_c3h7cho_hco')) - RCONST(2498) = (KDEC) - RCONST(2499) = (4.42D-12) - RCONST(2500) = (j('ch3o2h')) - RCONST(2501) = (1.2D-12) - RCONST(2502) = (1.27D-12) - RCONST(2503) = (1.7D-3*EXP(-11280/TEMP)) - RCONST(2504) = (j('ch3o2h')) - RCONST(2505) = (1.90D-12*EXP(190/TEMP)) - RCONST(2506) = (8.01D-12) - RCONST(2507) = (j('c2h5ono2')) - RCONST(2508) = (6.7D-13*EXP(-395/TEMP)) - RCONST(2509) = (1.8D-12) - RCONST(2510) = (8.29D-12) - RCONST(2511) = (j('ch3o2h')) - RCONST(2512) = (4.70D-12) - RCONST(2513) = (KBPAN) - RCONST(2514) = (1.90D-12*EXP(190/TEMP)) - RCONST(2515) = (1.27D-10) - RCONST(2516) = (j('ch3o2h')) - RCONST(2517) = (j('n_c3h7cho_hco')) - RCONST(2518) = (2.25D-11) - RCONST(2519) = (j('1_c4h9ono2')+j('n_c3h7cho_hco')) - RCONST(2520) = (2.70D+14*EXP(-7398/TEMP)) - RCONST(2521) = (KROSEC*O2) - RCONST(2522) = (KNO3AL*4.0) - RCONST(2523) = (7.15D-11) - RCONST(2524) = (j('n_c3h7cho_hco')) - RCONST(2525) = (j('n_c3h7cho_hco')) - RCONST(2526) = (KNO3AL*4.0) - RCONST(2527) = (4.88D-11*0.561) - RCONST(2528) = (4.88D-11*0.439) - RCONST(2529) = (j('ch3o2h')) - RCONST(2530) = (1.10D-11) - RCONST(2531) = (1.90D-12*EXP(190/TEMP)) - RCONST(2532) = (j('n_c3h7ono2')) - RCONST(2533) = (5.8D-13) - RCONST(2534) = (2.6D-14*EXP(-255/TEMP)*O2) - RCONST(2535) = (2.00D-12) - RCONST(2536) = (6.26D-12) - RCONST(2537) = (j('ch3o2h')) - RCONST(2538) = (2.66D-12) - RCONST(2539) = (KBPAN) - RCONST(2540) = (1.90D-12*EXP(190/TEMP)) - RCONST(2541) = (7.11D-11) - RCONST(2542) = (j('ch3o2h')+j('i_c3h7cho')) - RCONST(2543) = (2.25D-11) - RCONST(2544) = (j('n_c3h7ono2')+j('i_c3h7cho')) - RCONST(2545) = (KROPRIM*O2) - RCONST(2546) = (2*KNO3AL*4.0) - RCONST(2547) = (1.44D-10) - RCONST(2548) = (j('i_c3h7cho')*2.0) - RCONST(2549) = (2.57D-11) - RCONST(2550) = (j('i_c3h7cho')) - RCONST(2551) = (j('ch3o2h')) - RCONST(2552) = (KDEC) - RCONST(2553) = (j('ch3o2h')) - RCONST(2554) = (1.66D-11) - RCONST(2555) = (1.90D-12*EXP(190/TEMP)) - RCONST(2556) = (j('1_c4h9ono2')) - RCONST(2557) = (6.2D-13*EXP(-230/TEMP)) - RCONST(2558) = (1.5D-14*EXP(-230/TEMP)*O2) - RCONST(2559) = (6.88D-12) - RCONST(2560) = (1.04D-11) - RCONST(2561) = (j('ch3o2h')) - RCONST(2562) = (6.85D-12) - RCONST(2563) = (KBPAN) - RCONST(2564) = (1.90D-12*EXP(190/TEMP)) - RCONST(2565) = (1.57D-10) - RCONST(2566) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(2567) = (2.33D-11) - RCONST(2568) = (j('1_c4h9ono2')+j('n_c3h7cho_hco')) - RCONST(2569) = (KROPRIM*O2) - RCONST(2570) = (j('n_c3h7cho_hco')) - RCONST(2571) = (KNO3AL*5.5) - RCONST(2572) = (6.76D-11) - RCONST(2573) = (j('ch3o2h')) - RCONST(2574) = (1.24D-11) - RCONST(2575) = (1.90D-12*EXP(190/TEMP)) - RCONST(2576) = (j('n_c3h7ono2')) - RCONST(2577) = (1.6D-12) - RCONST(2578) = (8.9D-14*EXP(-550/TEMP)*O2) - RCONST(2579) = (4.6D10*EXP(-3570/TEMP)) - RCONST(2580) = (8.66D-12) - RCONST(2581) = (j('ch3o2h')) - RCONST(2582) = (3.60D-12) - RCONST(2583) = (6.58D-12) - RCONST(2584) = (KBPAN) - RCONST(2585) = (1.47D-11) - RCONST(2586) = (4.77D-11) - RCONST(2587) = (j('ch3o2h')) - RCONST(2588) = (KDEC) - RCONST(2589) = (j('ch3cocho')) - RCONST(2590) = (KNO3AL*2.4) - RCONST(2591) = (1.44D-11) - RCONST(2592) = (6.22D-11) - RCONST(2593) = (1.36D-10) - RCONST(2594) = (j('n_c3h7cho_hco')*2) -! RCONST(2595) = constant rate coefficient - RCONST(2596) = (j('ch3o2h')) - RCONST(2597) = (j('n_c3h7cho_hco')) - RCONST(2598) = (2.92D-11) - RCONST(2599) = (KDEC) - RCONST(2600) = (1.40D12*EXP(-3160/TEMP)+5.00D-12*O2) - RCONST(2601) = (5.00D-12*0.76*O2) - RCONST(2602) = (5.00D-12*0.24*O2) - RCONST(2603) = (1.2D-15) - RCONST(2604) = (1.0D-14) - RCONST(2605) = (1.0D-15) - RCONST(2606) = (7.0D-14) - RCONST(2607) = (6.0D-18*H2O) - RCONST(2608) = (1.0D-17*H2O) - RCONST(2609) = (1.51D-11) - RCONST(2610) = (j('ch3o2h')) - RCONST(2611) = (1.30D-11*0.83) - RCONST(2612) = (1.30D-11*0.17) - RCONST(2613) = (3.60D-12) - RCONST(2614) = (1.6D+16*EXP(-13500/TEMP)) - RCONST(2615) = (8.2D-18) - RCONST(2616) = (2.9D-11*0.22) - RCONST(2617) = (2.90D-11*0.57) - RCONST(2618) = (2.90D-11*0.21) - RCONST(2619) = (1.2D-15) - RCONST(2620) = (1.0D-14) - RCONST(2621) = (1.0D-15) - RCONST(2622) = (7.0D-14) - RCONST(2623) = (6.0D-18*H2O) - RCONST(2624) = (j('i_c3h7cho')) - RCONST(2625) = (j('ch3o2h')) - RCONST(2626) = (3.77D-11) - RCONST(2627) = (4.34D-12*0.16) - RCONST(2628) = (4.34D-12*0.84) - RCONST(2629) = (j('ch3coch2ono2')*10) - RCONST(2630) = (KDEC) - RCONST(2631) = (j('i_c3h7cho')) - RCONST(2632) = (3.42D-11) - RCONST(2633) = (5.55D-11) - RCONST(2634) = (j('i_c3h7cho')) - RCONST(2635) = (j('ch3o2h')) - RCONST(2636) = (j('ch3coch2ono2')*1.6) - RCONST(2637) = (2.15D-11) - RCONST(2638) = (KDEC) - RCONST(2639) = (4.18D-11) - RCONST(2640) = (j('i_c3h7cho')*2) - RCONST(2641) = (1.97D-11) - RCONST(2642) = (j('ch3o2h')) - RCONST(2643) = (6.48D-11) - RCONST(2644) = (1.65D-11) - RCONST(2645) = (KBPAN) - RCONST(2646) = (KNO3AL*4.0) - RCONST(2647) = (3.45D-12) - RCONST(2648) = (j('i_c3h7cho')+j('ch3o2h')) - RCONST(2649) = (KDEC) - RCONST(2650) = (KNO3AL*4.0) - RCONST(2651) = (4.27D-12) - RCONST(2652) = (j('ch3cocho')) - RCONST(2653) = (j('2_c4h9ono2')) - RCONST(2654) = (5.51D-12) - RCONST(2655) = (j('i_c3h7cho')+j('2_c4h9ono2')) - RCONST(2656) = (KNO3AL*4.0) - RCONST(2657) = (2.74D-11) - RCONST(2658) = (j('i_c3h7cho')+j('ch3o2h')) - RCONST(2659) = (KDEC) - RCONST(2660) = (4.55D-11) - RCONST(2661) = (j('i_c3h7cho')) - RCONST(2662) = (1.20D-15) - RCONST(2663) = (1.00D-14) - RCONST(2664) = (1.00D-15) - RCONST(2665) = (7.00D-14) - RCONST(2666) = (6.00D-18*H2O) - RCONST(2667) = (1.00D-17*H2O) - RCONST(2668) = (9.53D-11) - RCONST(2669) = (j('ch3o2h')+j('i_c3h7cho')) - RCONST(2670) = (KDEC) - RCONST(2671) = (7.01D-11) - RCONST(2672) = (j('i_c3h7cho')) - RCONST(2673) = (j('n_c3h7cho_hco')) - RCONST(2674) = (KNO3AL*4.0) - RCONST(2675) = (2.45D-11) - RCONST(2676) = (6.35D-11) - RCONST(2677) = (j('i_c3h7cho')) - RCONST(2678) = (j('ch3o2h')) - RCONST(2679) = (KDEC) - RCONST(2680) = (5.39D-11) - RCONST(2681) = (j('ch3cocho')) - RCONST(2682) = (2.15D-11) - RCONST(2683) = (1.90D-12*EXP(190/TEMP)) - RCONST(2684) = (j('ch3o2h')) - RCONST(2685) = (8.6D-13) - RCONST(2686) = (j('1_c4h9ono2')) - RCONST(2687) = (5.6D12*EXP(-5780/TEMP)) - RCONST(2688) = (1.5D-14*EXP(-200/TEMP)*O2) - RCONST(2689) = (j('ch3o2h')) - RCONST(2690) = (1.90D-12*EXP(190/TEMP)) - RCONST(2691) = (1.24D-11) - RCONST(2692) = (j('n_c3h7ono2')) - RCONST(2693) = (7.69D-13) - RCONST(2694) = (KROPRIM*O2) - RCONST(2695) = (2.17D-12*EXP(190/TEMP)) - RCONST(2696) = (j('ch3o2h')) - RCONST(2697) = (8.16D-14) - RCONST(2698) = (j('2_c4h9ono2')) - RCONST(2699) = (1.41D-11) - RCONST(2700) = (1.90D-12*EXP(190/TEMP)) - RCONST(2701) = (j('ch3o2h')) - RCONST(2702) = (3.00D-12) - RCONST(2703) = (j('n_c3h7ono2')) - RCONST(2704) = (2.03D+11*EXP(-3430/TEMP)) - RCONST(2705) = (8.57D-12) - RCONST(2706) = (2.30D-11) - RCONST(2707) = (1.90D-12*EXP(190/TEMP)) - RCONST(2708) = (j('ch3o2h')) - RCONST(2709) = (1.85D-12) - RCONST(2710) = (j('1_c4h9ono2')) - RCONST(2711) = (3.05D+11*EXP(-4240/TEMP)) - RCONST(2712) = (KROSEC*O2) - RCONST(2713) = (1.14D-11) - RCONST(2714) = (2.73D-11) - RCONST(2715) = (j('ch3o2h')) - RCONST(2716) = (1.12D-12) - RCONST(2717) = (j('1_c4h9ono2')) - RCONST(2718) = (4.00D+14*EXP(-6990/TEMP)) - RCONST(2719) = (KROSEC*O2) - RCONST(2720) = (j('ch3o2h')) - RCONST(2721) = (1.41D-11) - RCONST(2722) = (1.90D-12*EXP(190/TEMP)) - RCONST(2723) = (j('n_c3h7ono2')) - RCONST(2724) = (2.01D-12) - RCONST(2725) = (KROPRIM*O2) - RCONST(2726) = (3.05D+11*EXP(-4240/TEMP)) - RCONST(2727) = (j('ch3o2h')) - RCONST(2728) = (1.90D-12*EXP(190/TEMP)) - RCONST(2729) = (2.29D-11) - RCONST(2730) = (j('1_c4h9ono2')) - RCONST(2731) = (1.82D-12) - RCONST(2732) = (2.70D+14*EXP(-7398/TEMP)) - RCONST(2733) = (KROSEC*O2) - RCONST(2734) = (j('ch3o2h')) - RCONST(2735) = (5.25D-12) - RCONST(2736) = (j('2_c4h9ono2')) - RCONST(2737) = (4.08D-13) - RCONST(2738) = (2.00D+14*EXP(-6995/TEMP)) - RCONST(2739) = (j('ch3o2h')) - RCONST(2740) = (1.90D-12*EXP(190/TEMP)) - RCONST(2741) = (1.02D-11) - RCONST(2742) = (j('n_c3h7ono2')) - RCONST(2743) = (8.50D-13) - RCONST(2744) = (2.00D+14*EXP(-5505/TEMP)) - RCONST(2745) = (4.66D-12) - RCONST(2746) = (KNO3AL*8.5) - RCONST(2747) = (6.82D-12*EXP(405/TEMP)) - RCONST(2748) = (j('i_c3h7cho')) - RCONST(2749) = (j('ch3o2h')) - RCONST(2750) = (1.52D-11) - RCONST(2751) = (1.90D-12*EXP(190/TEMP)) - RCONST(2752) = (j('n_c3h7ono2')) - RCONST(2753) = (4.68D-12) - RCONST(2754) = (2.58D+11*EXP(-3430/TEMP)) - RCONST(2755) = (j('n_c3h7cho_ch3cho')) - RCONST(2756) = (j('n_c3h7cho_hco')) - RCONST(2757) = (KNO3AL*5.5) - RCONST(2758) = (2.88D-11) - RCONST(2759) = (9.72D-12) - RCONST(2760) = (j('ch3o2h')) - RCONST(2761) = (2.80D-11) - RCONST(2762) = (1.90D-12*EXP(190/TEMP)) - RCONST(2763) = (j('1_c4h9ono2')) - RCONST(2764) = (3.17D-12) - RCONST(2765) = (2.03D+11*EXP(-3430/TEMP)) - RCONST(2766) = (1.28D-11) - RCONST(2767) = (j('ch3o2h')) - RCONST(2768) = (3.23D-11) - RCONST(2769) = (j('1_c4h9ono2')) - RCONST(2770) = (2.70D-12) - RCONST(2771) = (KROSEC*O2) - RCONST(2772) = (3.05D+11*EXP(-4240/TEMP)) - RCONST(2773) = (1.45D-11) - RCONST(2774) = (j('ch3o2h')) - RCONST(2775) = (1.79D-11) - RCONST(2776) = (1.90D-12*EXP(190/TEMP)) - RCONST(2777) = (j('n_c3h7ono2')) - RCONST(2778) = (3.53D-12) - RCONST(2779) = (2.03D+11*EXP(-3430/TEMP)) - RCONST(2780) = (j('i_c3h7cho')) - RCONST(2781) = (KNO3AL*8.5) - RCONST(2782) = (2.89D-11) - RCONST(2783) = (8.83D-12) - RCONST(2784) = (j('ch3o2h')) - RCONST(2785) = (1.90D-12*EXP(190/TEMP)) - RCONST(2786) = (2.44D-11) - RCONST(2787) = (j('1_c4h9ono2')) - RCONST(2788) = (3.07D-12) - RCONST(2789) = (6.10D+11*EXP(-4240/TEMP)) - RCONST(2790) = (KROSEC*O2) - RCONST(2791) = (1.28D-11) - RCONST(2792) = (j('ch3o2h')) - RCONST(2793) = (2.87D-11) - RCONST(2794) = (1.90D-12*EXP(190/TEMP)) - RCONST(2795) = (j('1_c4h9ono2')) - RCONST(2796) = (3.02D-12) - RCONST(2797) = (2.00D+14*EXP(-6975/TEMP)) - RCONST(2798) = (KROSEC*O2) - RCONST(2799) = (2.00D+14*EXP(-6773/TEMP)) - RCONST(2800) = (j('mek')) - RCONST(2801) = (j('mek')) - RCONST(2802) = (3.75D-12*0.578) - RCONST(2803) = (3.75D-12*0.422) - RCONST(2804) = (1.44D-11) - RCONST(2805) = (j('ch3o2h')) - RCONST(2806) = (6.66D-12) - RCONST(2807) = (j('2_c4h9ono2')) - RCONST(2808) = (1.72D-12) - RCONST(2809) = (2.70D+14*EXP(-6542/TEMP)) - RCONST(2810) = (3.05D+11*EXP(-4240/TEMP)) - RCONST(2811) = (3.20D-12) - RCONST(2812) = (j('ch3o2h')) - RCONST(2813) = (1.57D-11) - RCONST(2814) = (1.90D-12*EXP(190/TEMP)) - RCONST(2815) = (j('n_c3h7ono2')) - RCONST(2816) = (4.96D-12) - RCONST(2817) = (2.03D+11*EXP(-3430/TEMP)) - RCONST(2818) = (j('n_c3h7cho_hco')) - RCONST(2819) = (KNO3AL*8.5) - RCONST(2820) = (3.27D-11) - RCONST(2821) = (1.03D-11) - RCONST(2822) = (j('ch3o2h')) - RCONST(2823) = (2.46D-11) - RCONST(2824) = (1.90D-12*EXP(190/TEMP)) - RCONST(2825) = (j('1_c4h9ono2')) - RCONST(2826) = (3.02D-12) - RCONST(2827) = (2.03D+11*EXP(-4240/TEMP)) - RCONST(2828) = (KROSEC*O2) - RCONST(2829) = (j('mek')) - RCONST(2830) = (6.23D-12*0.671) - RCONST(2831) = (6.23D-12*0.329) - RCONST(2832) = (1.31D-11) - RCONST(2833) = (j('ch3o2h')) - RCONST(2834) = (6.40D-12) - RCONST(2835) = (j('2_c4h9ono2')) - RCONST(2836) = (7.35D-13) - RCONST(2837) = (2.70D+14*EXP(-7196/TEMP)*2.0) - RCONST(2838) = (2.94D-12) - RCONST(2839) = (j('ch3o2h')) - RCONST(2840) = (1.90D-12*EXP(190/TEMP)) - RCONST(2841) = (9.51D-12) - RCONST(2842) = (j('1_c4h9ono2')) - RCONST(2843) = (6.24D-13) - RCONST(2844) = (KROSEC*O2) - RCONST(2845) = (2.70D+14*EXP(-6643/TEMP)) - RCONST(2846) = (9.16D-12) - RCONST(2847) = (j('ch3o2h')) - RCONST(2848) = (1.16D-11) - RCONST(2849) = (1.90D-12*EXP(190/TEMP)) - RCONST(2850) = (j('n_c3h7ono2')) - RCONST(2851) = (7.78D-13) - RCONST(2852) = (9.14D+11*EXP(-4240/TEMP)) - RCONST(2853) = (j('n_c3h7cho_hco')) - RCONST(2854) = (KNO3AL*8.5) - RCONST(2855) = (2.21D-11) - RCONST(2856) = (6.08D-12) - RCONST(2857) = (j('ch3o2h')) - RCONST(2858) = (1.13D-11) - RCONST(2859) = (1.90D-12*EXP(190/TEMP)) - RCONST(2860) = (j('n_c3h7ono2')) - RCONST(2861) = (1.96D-12) - RCONST(2862) = (3.05D+11*EXP(-4240/TEMP)) - RCONST(2863) = (KROPRIM*O2) - RCONST(2864) = (j('i_c3h7cho')) - RCONST(2865) = (KNO3AL*8.5) - RCONST(2866) = (2.56D-11) - RCONST(2867) = (5.81D-12) - RCONST(2868) = (j('ch3o2h')) - RCONST(2869) = (6.66D-12) - RCONST(2870) = (j('2_c4h9ono2')) - RCONST(2871) = (7.77D-13) - RCONST(2872) = (2.70D+14*EXP(-6391/TEMP)) - RCONST(2873) = (3.20D-12) - RCONST(2874) = (j('ch3o2h')) - RCONST(2875) = (1.90D-12*EXP(190/TEMP)) - RCONST(2876) = (1.55D-11) - RCONST(2877) = (j('n_c3h7ono2')) - RCONST(2878) = (3.41D-12) - RCONST(2879) = (6.10D+11*EXP(-4240/TEMP)) - RCONST(2880) = (KROPRIM*O2) - RCONST(2881) = (1.05D-11) - RCONST(2882) = (j('i_c3h7cho')) - RCONST(2883) = (KNO3AL*8.5) - RCONST(2884) = (3.01D-11) - RCONST(2885) = (j('ch3o2h')) - RCONST(2886) = (3.37D-11) - RCONST(2887) = (j('1_c4h9ono2')) - RCONST(2888) = (3.69D-12) - RCONST(2889) = (2.58D+11*EXP(-3430/TEMP)) - RCONST(2890) = (j('mek')) - RCONST(2891) = (7.89D-12) - RCONST(2892) = (1.59D-11) - RCONST(2893) = (j('ch3o2h')) - RCONST(2894) = (2.94D-11) - RCONST(2895) = (j('1_c4h9ono2')) - RCONST(2896) = (4.49D-12) - RCONST(2897) = (1.02D+11*EXP(-2945/TEMP)) - RCONST(2898) = (j('mek')) - RCONST(2899) = (8.16D-12) - RCONST(2900) = (1.42D-11) - RCONST(2901) = (j('ch3o2h')) - RCONST(2902) = (8.08D-12) - RCONST(2903) = (j('2_c4h9ono2')) - RCONST(2904) = (3.01D-12) - RCONST(2905) = (2.03D+11*EXP(-3430/TEMP)) - RCONST(2906) = (4.62D-12) - RCONST(2907) = (j('ch3o2h')) - RCONST(2908) = (2.96D-11) - RCONST(2909) = (j('1_c4h9ono2')) - RCONST(2910) = (4.60D-12) - RCONST(2911) = (2.58D+11*EXP(-3430/TEMP)) - RCONST(2912) = (j('mek')) - RCONST(2913) = (1.18D-11) - RCONST(2914) = (1.45D-11) - RCONST(2915) = (j('ch3o2h')) - RCONST(2916) = (7.81D-12) - RCONST(2917) = (j('2_c4h9ono2')) - RCONST(2918) = (1.93D-12) - RCONST(2919) = (3.05D+11*EXP(-4240/TEMP)) - RCONST(2920) = (4.35D-12) - RCONST(2921) = (j('ch3o2h')) - RCONST(2922) = (3.51D-11) - RCONST(2923) = (j('1_c4h9ono2')) - RCONST(2924) = (3.88D-12) - RCONST(2925) = (2.58D+11*EXP(-3430/TEMP)) - RCONST(2926) = (j('mek')) - RCONST(2927) = (9.30D-12) - RCONST(2928) = (1.73D-11) - RCONST(2929) = (j('ch3o2h')) - RCONST(2930) = (3.65D-11) - RCONST(2931) = (j('1_c4h9ono2')) - RCONST(2932) = (6.26D-12) - RCONST(2933) = (2.58D+11*EXP(-3430/TEMP)) - RCONST(2934) = (j('mek')) - RCONST(2935) = (1.07D-11) - RCONST(2936) = (1.87D-11) - RCONST(2937) = (j('ch3o2h')) - RCONST(2938) = (3.79D-11) - RCONST(2939) = (j('1_c4h9ono2')) - RCONST(2940) = (7.67D-12) - RCONST(2941) = (2.58D+11*EXP(-3430/TEMP)) - RCONST(2942) = (j('mek')) - RCONST(2943) = (1.21D-11) - RCONST(2944) = (2.01D-11) - RCONST(2945) = (3.93D-11) - RCONST(2946) = (j('ch3o2h')) - RCONST(2947) = (9.08D-12) - RCONST(2948) = (j('1_c4h9ono2')) - RCONST(2949) = (2.58D+11*EXP(-3430/TEMP)) - RCONST(2950) = (1.35D-11) - RCONST(2951) = (j('mek')) - RCONST(2952) = (2.15D-11) - RCONST(2953) = (j('ch3o2h')) - RCONST(2954) = (4.07D-11) - RCONST(2955) = (j('1_c4h9ono2')) - RCONST(2956) = (1.05D-11) - RCONST(2957) = (2.58D+11*EXP(-3430/TEMP)) - RCONST(2958) = (j('mek')) - RCONST(2959) = (1.49D-11) - RCONST(2960) = (2.29D-11) - RCONST(2961) = (j('ch3o2h')) - RCONST(2962) = (3.53D-11) - RCONST(2963) = (j('1_c4h9ono2')) - RCONST(2964) = (3.30D-12) - RCONST(2965) = (3.80D+13*EXP(-6026/TEMP)) - RCONST(2966) = (KROSEC*O2) - RCONST(2967) = (1.90D-12*EXP(190/TEMP)) - RCONST(2968) = (1.62D-12) - RCONST(2969) = (j('ch3o2h')) - RCONST(2970) = (7.00D+03) - RCONST(2971) = (KROPRIM*O2) - RCONST(2972) = (KNO3AL) - RCONST(2973) = (3.40D-12) - RCONST(2974) = (j('ch3coch2ono2')*4.3) - RCONST(2975) = (1.69D-12) - RCONST(2976) = (1.90D-12*EXP(190/TEMP)) - RCONST(2977) = (j('ch3o2h')) - RCONST(2978) = (KROPRIM*O2) - RCONST(2979) = (7.00D+03) - RCONST(2980) = (KNO3AL*2.4) - RCONST(2981) = (3.55D-12) - RCONST(2982) = (j('ch3coch2ono2')*10) - RCONST(2983) = (3.47D-12) - RCONST(2984) = (1.90D-12*EXP(190/TEMP)) - RCONST(2985) = (j('ch3o2h')) - RCONST(2986) = (7.00D+03) - RCONST(2987) = (KROSEC*O2) - RCONST(2988) = (6.70D-13) - RCONST(2989) = (j('ch3coch2ono2')) - RCONST(2990) = (8.97D-12) - RCONST(2991) = (j('ch3o2h')) - RCONST(2992) = (7.00D+03) - RCONST(2993) = (KROSEC*O2) - RCONST(2994) = (8.2D-13) - RCONST(2995) = (j('ch3coch2ono2')) - RCONST(2996) = (3.03D-12) - RCONST(2997) = (5.64D-12) - RCONST(2998) = (j('ch3o2h')) - RCONST(2999) = (KROPRIM*O2) - RCONST(3000) = (7.00D+03) - RCONST(3001) = (4.44D-12) - RCONST(3002) = (j('1_c4h9ono2')) - RCONST(3003) = (j('i_c3h7cho')) - RCONST(3004) = (1.20D-15) - RCONST(3005) = (1.00D-14) - RCONST(3006) = (1.00D-15) - RCONST(3007) = (7.00D-14) - RCONST(3008) = (6.00D-18*H2O) - RCONST(3009) = (1.00D-17*H2O) - RCONST(3010) = (2.14D-11) - RCONST(3011) = (1.90D-12*EXP(190/TEMP)) - RCONST(3012) = (j('ch3o2h')) - RCONST(3013) = (2.00D+14*EXP(-5538/TEMP)) - RCONST(3014) = (KNO3AL*4.0) - RCONST(3015) = (3.08D-11) - RCONST(3016) = (j('n_c3h7cho_hco')) - RCONST(3017) = (7.15D-12) - RCONST(3018) = (j('ch3o2h')) - RCONST(3019) = (KROSEC*O2) - RCONST(3020) = (4.00D+04) - RCONST(3021) = (1.2D-12) - RCONST(3022) = (j('ch3coch2ono2')*1.6) - RCONST(3023) = (3.98D-12) - RCONST(3024) = (j('ch3o2h')) - RCONST(3025) = (KDEC) - RCONST(3026) = (5.22D-12) - RCONST(3027) = (j('ch3o2h')) - RCONST(3028) = (7.00D+03) - RCONST(3029) = (KROPRIM*O2) - RCONST(3030) = (KNO3AL*4.0) - RCONST(3031) = (3.61D-12) - RCONST(3032) = (j('n_c3h7cho_hco')) - RCONST(3033) = (j('ch3coch2ono2')*10) - RCONST(3034) = (1.20D-15) - RCONST(3035) = (1.00D-14) - RCONST(3036) = (1.00D-15) - RCONST(3037) = (7.00D-14) - RCONST(3038) = (6.00D-18*H2O) - RCONST(3039) = (1.06D-11) - RCONST(3040) = (1.90D-12*EXP(190/TEMP)) - RCONST(3041) = (j('ch3o2h')) - RCONST(3042) = (7.00D+03) - RCONST(3043) = (KROSEC*O2) - RCONST(3044) = (4.70D-12) - RCONST(3045) = (j('ch3coch2ono2')*1.6) - RCONST(3046) = (3.43D-12) - RCONST(3047) = (3.23D-12) - RCONST(3048) = (1.90D-12*EXP(190/TEMP)) - RCONST(3049) = (j('ch3o2h')) - RCONST(3050) = (7.00D+03) - RCONST(3051) = (KROPRIM*O2) - RCONST(3052) = (KNO3AL*5.5) - RCONST(3053) = (5.77D-12) - RCONST(3054) = (j('ch3coch2ono2')*10) - RCONST(3055) = (2.46D-12) - RCONST(3056) = (1.20D-15) - RCONST(3057) = (1.00D-14) - RCONST(3058) = (1.00D-15) - RCONST(3059) = (7.00D-14) - RCONST(3060) = (1.00D-17*H2O) - RCONST(3061) = (6.00D-18*H2O) - RCONST(3062) = (3.15D-11) - RCONST(3063) = (1.90D-12*EXP(190/TEMP)) - RCONST(3064) = (j('ch3o2h')) - RCONST(3065) = (2.00D+14*EXP(-6382/TEMP)) - RCONST(3066) = (7.26D-12) - RCONST(3067) = (j('mek')) - RCONST(3068) = (1.73D-11) - RCONST(3069) = (2.16D-11) - RCONST(3070) = (1.90D-12*EXP(190/TEMP)) - RCONST(3071) = (j('ch3o2h')) - RCONST(3072) = (2.00D+14*EXP(-5489/TEMP)) - RCONST(3073) = (KNO3AL*5.5) - RCONST(3074) = (3.30D-11) - RCONST(3075) = (j('n_c3h7cho_hco')) - RCONST(3076) = (5.45D-12) - RCONST(3077) = (1.90D-12*EXP(190/TEMP)) - RCONST(3078) = (j('ch3o2h')) - RCONST(3079) = (4.00D+04) - RCONST(3080) = (KROSEC*O2) - RCONST(3081) = (1.41D-12) - RCONST(3082) = (j('ch3coch2ono2')*1.6) - RCONST(3083) = (3.90D-12) - RCONST(3084) = (1.90D-12*EXP(190/TEMP)) - RCONST(3085) = (j('ch3o2h')) - RCONST(3086) = (KROSEC*O2) - RCONST(3087) = (4.00D+04) - RCONST(3088) = (1.16D-12) - RCONST(3089) = (j('ch3coch2ono2')*1.6) - RCONST(3090) = (2.14D-12) - RCONST(3091) = (3.56D-11) - RCONST(3092) = (1.90D-12*EXP(190/TEMP)) - RCONST(3093) = (j('ch3o2h')) - RCONST(3094) = (2.00D+14*EXP(-4714/TEMP)) - RCONST(3095) = (1.02D-11) - RCONST(3096) = (j('mek')) - RCONST(3097) = (1.90D-12*EXP(190/TEMP)) - RCONST(3098) = (1.95D-12) - RCONST(3099) = (j('ch3o2h')) - RCONST(3100) = (KROPRIM*O2) - RCONST(3101) = (7.00D+03) - RCONST(3102) = (KNO3AL*8.5) - RCONST(3103) = (4.48D-12) - RCONST(3104) = (j('ch3coch2ono2')*10) - RCONST(3105) = (j('n_c3h7cho_hco')) - RCONST(3106) = (5.13D-12) - RCONST(3107) = (j('ch3o2h')) - RCONST(3108) = (KDEC) - RCONST(3109) = (1.20D-15) - RCONST(3110) = (1.00D-14) - RCONST(3111) = (1.00D-15) - RCONST(3112) = (7.00D-14) - RCONST(3113) = (6.00D-18*H2O) - RCONST(3114) = (1.90D-12*EXP(190/TEMP)) - RCONST(3115) = (6.78D-12) - RCONST(3116) = (j('ch3o2h')) - RCONST(3117) = (KROSEC*O2) - RCONST(3118) = (7.00D+03) - RCONST(3119) = (1.73D-12) - RCONST(3120) = (j('ch3coch2ono2')) - RCONST(3121) = (4.58D-12) - RCONST(3122) = (j('n_c3h7ono2')) - RCONST(3123) = (2.41D-12) - RCONST(3124) = (1.90D-12*EXP(190/TEMP)) - RCONST(3125) = (j('ch3o2h')) - RCONST(3126) = (KROPRIM*O2) - RCONST(3127) = (7.00D+03) - RCONST(3128) = (KNO3AL*8.5) - RCONST(3129) = (5.49D-12) - RCONST(3130) = (j('ch3coch2ono2')*10) - RCONST(3131) = (1.20D-15) - RCONST(3132) = (1.00D-14) - RCONST(3133) = (1.00D-15) - RCONST(3134) = (7.00D-14) - RCONST(3135) = (1.00D-17*H2O) - RCONST(3136) = (6.00D-18*H2O) - RCONST(3137) = (2.28D-11) - RCONST(3138) = (1.90D-12*EXP(190/TEMP)) - RCONST(3139) = (j('ch3o2h')) - RCONST(3140) = (KDEC) - RCONST(3141) = (KNO3AL*8.5) - RCONST(3142) = (3.51D-11) - RCONST(3143) = (j('i_c3h7cho')) - RCONST(3144) = (1.90D-12*EXP(190/TEMP)) - RCONST(3145) = (7.08D-12) - RCONST(3146) = (j('ch3o2h')) - RCONST(3147) = (KROSEC*O2) - RCONST(3148) = (4.00D+04) - RCONST(3149) = (3.41D-13) - RCONST(3150) = (j('ch3coch2ono2')*1.6) - RCONST(3151) = (4.06D-12) - RCONST(3152) = (j('ch3o2h')) - RCONST(3153) = (KDEC) - RCONST(3154) = (4.65D-12) - RCONST(3155) = (1.90D-12*EXP(190/TEMP)) - RCONST(3156) = (7.00D+03) - RCONST(3157) = (KROPRIM*O2) - RCONST(3158) = (KNO3AL*5.5) - RCONST(3159) = (7.19D-12) - RCONST(3160) = (j('ch3coch2ono2')*10+j('n_c3h7cho_hco')) - RCONST(3161) = (3.87D-12) - RCONST(3162) = (8.20D-12) - RCONST(3163) = (1.90D-12*EXP(190/TEMP)) - RCONST(3164) = (j('ch3o2h')) - RCONST(3165) = (7.00D+03) - RCONST(3166) = (KROSEC*O2) - RCONST(3167) = (6.69D-12) - RCONST(3168) = (j('ch3coch2ono2')) - RCONST(3169) = (6.00D-12) - RCONST(3170) = (1.20D-15) - RCONST(3171) = (1.00D-14) - RCONST(3172) = (1.00D-15) - RCONST(3173) = (7.00D-14) - RCONST(3174) = (6.00D-18*H2O) - RCONST(3175) = (1.00D-17*H2O) - RCONST(3176) = (3.30D-11) - RCONST(3177) = (1.90D-12*EXP(190/TEMP)) - RCONST(3178) = (j('ch3o2h')) - RCONST(3179) = (KDEC) - RCONST(3180) = (8.09D-12) - RCONST(3181) = (j('mek')) - RCONST(3182) = (1.86D-11) - RCONST(3183) = (j('ch3o2h')) - RCONST(3184) = (2.42D-11) - RCONST(3185) = (1.90D-12*EXP(190/TEMP)) - RCONST(3186) = (KDEC) - RCONST(3187) = (j('n_c3h7cho_hco')) - RCONST(3188) = (KNO3AL*5.5) - RCONST(3189) = (3.44D-11) - RCONST(3190) = (7.24D-12) - RCONST(3191) = (1.90D-12*EXP(190/TEMP)) - RCONST(3192) = (j('ch3o2h')) - RCONST(3193) = (4.00D+04) - RCONST(3194) = (KROSEC*O2) - RCONST(3195) = (4.85D-12) - RCONST(3196) = (j('ch3coch2ono2')*1.6) - RCONST(3197) = (2.06D-12) - RCONST(3198) = (5.09D-12) - RCONST(3199) = (1.90D-12*EXP(190/TEMP)) - RCONST(3200) = (j('ch3o2h')) - RCONST(3201) = (4.00D+04) - RCONST(3202) = (KROSEC*O2) - RCONST(3203) = (2.49D-12) - RCONST(3204) = (j('ch3coch2ono2')*1.6) - RCONST(3205) = (3.33D-12) - RCONST(3206) = (1.90D-12*EXP(190/TEMP)) - RCONST(3207) = (3.34D-11) - RCONST(3208) = (j('ch3o2h')) - RCONST(3209) = (KDEC) - RCONST(3210) = (2.18D-11) - RCONST(3211) = (1.23D-11) - RCONST(3212) = (j('mek')) - RCONST(3213) = (1.90D-12*EXP(190/TEMP)) - RCONST(3214) = (3.60D-11) - RCONST(3215) = (j('ch3o2h')) - RCONST(3216) = (KDEC) - RCONST(3217) = (1.01D-11) - RCONST(3218) = (j('mek')) - RCONST(3219) = (4.34D-12) - RCONST(3220) = (j('ch3o2h')) - RCONST(3221) = (KDEC) - RCONST(3222) = (8.89D-13) - RCONST(3223) = (4.40D-12) - RCONST(3224) = (j('ch3o2h')) - RCONST(3225) = (KDEC) - RCONST(3226) = (9.49D-13) - RCONST(3227) = (9.77D-11) - RCONST(3228) = (j('ch3o2h')) - RCONST(3229) = (7.30D-11) - RCONST(3230) = (j('1_c4h9ono2')) - RCONST(3231) = (KDEC*0.50) - RCONST(3232) = (KDEC*0.50) - RCONST(3233) = (1.21D-10) - RCONST(3234) = (8.16D-11) - RCONST(3235) = (j('mek')) - RCONST(3236) = (KAPHO2*0.15) - RCONST(3237) = (KAPHO2*0.41) - RCONST(3238) = (KAPHO2*0.44) - RCONST(3239) = (KAPNO) - RCONST(3240) = (KFPAN) - RCONST(3241) = (KRO2NO3*1.74) - RCONST(3242) = (1.00D-11*RO2*0.3) - RCONST(3243) = (1.00D-11*RO2*0.7) - RCONST(3244) = (2*KNO3AL*4.0) - RCONST(3245) = (4.32D-11) - RCONST(3246) = (j('i_c3h7cho')*2) - RCONST(3247) = (KDEC*0.18) - RCONST(3248) = (KDEC*0.125) - RCONST(3249) = (KDEC*0.125) - RCONST(3250) = (KDEC*0.57) - RCONST(3251) = (KRO2HO2*0.77) - RCONST(3252) = (KRO2NO*0.105) - RCONST(3253) = (KRO2NO*0.895) - RCONST(3254) = (KRO2NO3) - RCONST(3255) = (8.80D-13*0.2*RO2) - RCONST(3256) = (8.80D-13*0.6*RO2) - RCONST(3257) = (8.80D-13*0.2*RO2) - RCONST(3258) = (KRO2HO2*0.706) - RCONST(3259) = (KRO2NO) - RCONST(3260) = (KRO2NO3) - RCONST(3261) = (8.80D-13*RO2*0.2) - RCONST(3262) = (8.80D-13*RO2*0.6) - RCONST(3263) = (8.80D-13*RO2*0.2) - RCONST(3264) = (2*KNO3AL*2.0) - RCONST(3265) = (2.00D-18) - RCONST(3266) = (5.20D-11*0.83) - RCONST(3267) = (5.20D-11*0.17) - RCONST(3268) = (j('no2')*0.14*0.4) - RCONST(3269) = (j('no2')*0.14*0.6) - RCONST(3270) = (2.08D-12) - RCONST(3271) = (2.86D-13) - RCONST(3272) = (KRO2HO2*0.770) - RCONST(3273) = (KRO2NO) - RCONST(3274) = (KRO2NO3) - RCONST(3275) = (8.00D-13*RO2*0.7) - RCONST(3276) = (8.00D-13*RO2*0.3) - RCONST(3277) = (9.9D-11) - RCONST(3278) = (9.2D-18) - RCONST(3279) = (1.0D-10) - RCONST(3280) = (KRO2HO2*0.770) - RCONST(3281) = (KRO2NO) - RCONST(3282) = (KRO2NO3) - RCONST(3283) = (8.00D-13*RO2*0.7) - RCONST(3284) = (8.00D-13*RO2*0.3) - RCONST(3285) = (2.05D-11) - RCONST(3286) = (j('ch3o2h')) - RCONST(3287) = (6.03D-12) - RCONST(3288) = (j('n_c3h7ono2')) - RCONST(3289) = (KROPRIM*O2) - RCONST(3290) = (2.7D-11) - RCONST(3291) = (KRO2HO2*0.820) - RCONST(3292) = (KRO2NO) - RCONST(3293) = (KRO2NO3) - RCONST(3294) = (8.00D-13*RO2*0.70) - RCONST(3295) = (8.00D-13*RO2*0.30) - RCONST(3296) = (KRO2HO2*0.820) - RCONST(3297) = (KRO2NO) - RCONST(3298) = (KRO2NO3) - RCONST(3299) = (8.00D-13*RO2*0.70) - RCONST(3300) = (8.00D-13*RO2*0.30) - RCONST(3301) = (2.08D-12) - RCONST(3302) = (2.86D-13) - RCONST(3303) = (1.7D-10*1.0) - RCONST(3304) = (2.8D-17) - RCONST(3305) = (2.0D-10*1.0) - RCONST(3306) = (9.64D-11) - RCONST(3307) = (j('ch3o2h')) - RCONST(3308) = (KDEC*0.2) - RCONST(3309) = (KDEC*0.2) - RCONST(3310) = (KDEC*0.2) - RCONST(3311) = (KDEC*0.2) - RCONST(3312) = (KDEC*0.2) - RCONST(3313) = (7.16D-11) - RCONST(3314) = (j('1_c4h9ono2')) - RCONST(3315) = (1.20D-10) - RCONST(3316) = (7.99D-11) - RCONST(3317) = (j('mek')) - RCONST(3318) = (KAPHO2*0.44) - RCONST(3319) = (KAPHO2*0.15) - RCONST(3320) = (KAPHO2*0.41) - RCONST(3321) = (KAPNO) - RCONST(3322) = (KFPAN) - RCONST(3323) = (KRO2NO3*1.74) - RCONST(3324) = (1.00D-11*RO2*0.7) - RCONST(3325) = (1.00D-11*RO2*0.3) - RCONST(3326) = (KDEC*0.125) - RCONST(3327) = (KDEC*0.57) - RCONST(3328) = (KDEC*0.125) - RCONST(3329) = (KDEC*0.18) - RCONST(3330) = (KRO2HO2*0.820) - RCONST(3331) = (KRO2NO*0.105) - RCONST(3332) = (KRO2NO*0.895) - RCONST(3333) = (KRO2NO3) - RCONST(3334) = (8.80D-13*RO2*0.20) - RCONST(3335) = (8.80D-13*RO2*0.60) - RCONST(3336) = (8.80D-13*RO2*0.20) - RCONST(3337) = (KRO2HO2*0.770) - RCONST(3338) = (KRO2NO) - RCONST(3339) = (KRO2NO3) - RCONST(3340) = (8.80D-13*RO2*0.2) - RCONST(3341) = (8.80D-13*RO2*0.6) - RCONST(3342) = (8.80D-13*RO2*0.2) - RCONST(3343) = (2.75D-11) - RCONST(3344) = (j('ch3o2h')) - RCONST(3345) = (1.31D-11) - RCONST(3346) = (j('n_c3h7ono2')) - RCONST(3347) = (KROPRIM*O2) - RCONST(3348) = (KNO3AL) - RCONST(3349) = (1.29D-11) - RCONST(3350) = (j('ch2cch3cho_h')) - RCONST(3351) = (j('ch2cch3cho_hco')) - RCONST(3352) = (1.60D-11) - RCONST(3353) = (7.62D-11) - RCONST(3354) = (j('ch3o2h')) - RCONST(3355) = (7.28D-11) - RCONST(3356) = (j('2_c4h9ono2')) - RCONST(3357) = (KDEC*0.175) - RCONST(3358) = (KDEC*0.245) - RCONST(3359) = (KDEC*0.175) - RCONST(3360) = (KDEC*0.08) - RCONST(3361) = (KDEC*0.08) - RCONST(3362) = (KDEC*0.245) - RCONST(3363) = (1.11D-10) - RCONST(3364) = (KAPHO2*0.44) - RCONST(3365) = (KAPHO2*0.15) - RCONST(3366) = (KAPHO2*0.41) - RCONST(3367) = (KAPNO) - RCONST(3368) = (KFPAN) - RCONST(3369) = (KRO2NO3*1.74) - RCONST(3370) = (1.00D-11*RO2*0.70) - RCONST(3371) = (1.00D-11*RO2*0.30) - RCONST(3372) = (2*KNO3AL*8.5) - RCONST(3373) = (4.24D-11) - RCONST(3374) = (j('i_c3h7cho')*2) - RCONST(3375) = (KRO2HO2*0.859) - RCONST(3376) = (KRO2NO*0.173) - RCONST(3377) = (KRO2NO*0.827) - RCONST(3378) = (KRO2NO3) - RCONST(3379) = (8.80D-12*RO2*0.20) - RCONST(3380) = (8.80D-12*RO2*0.60) - RCONST(3381) = (8.80D-12*RO2*0.20) - RCONST(3382) = (KRO2HO2*0.820) - RCONST(3383) = (KRO2NO) - RCONST(3384) = (KRO2NO3) - RCONST(3385) = (9.20D-14*RO2*0.70) - RCONST(3386) = (9.20D-14*RO2*0.30) - RCONST(3387) = (KRO2HO2*0.859) - RCONST(3388) = (KRO2NO) - RCONST(3389) = (KRO2NO3) - RCONST(3390) = (8.00D-13*RO2*0.70) - RCONST(3391) = (8.00D-13*RO2*0.30) - RCONST(3392) = (2.08D-12) - RCONST(3393) = (2.86D-13) - RCONST(3394) = (KRO2HO2*0.859) - RCONST(3395) = (KRO2NO) - RCONST(3396) = (KRO2NO3) - RCONST(3397) = (8.00D-13*RO2*0.70) - RCONST(3398) = (8.00D-13*RO2*0.30) - RCONST(3399) = (2.01D-10) - RCONST(3400) = (2.81D-17) - RCONST(3401) = (2.05D-10) - RCONST(3402) = (2.05D-11) - RCONST(3403) = (j('ch3o2h')) - RCONST(3404) = (6.03D-12) - RCONST(3405) = (j('n_c3h7ono2')) - RCONST(3406) = (KROPRIM*O2) - RCONST(3407) = (KNO3AL) - RCONST(3408) = (1.29D-11) - RCONST(3409) = (j('ch2cch3cho_h')) - RCONST(3410) = (j('ch2cch3cho_hco')) - RCONST(3411) = (8.93D-12) - RCONST(3412) = (1.17D-10) - RCONST(3413) = (j('ch3o2h')) - RCONST(3414) = (7.15D-11) - RCONST(3415) = (j('1_c4h9ono2')) - RCONST(3416) = (KDEC*0.11) - RCONST(3417) = (KDEC*0.11) - RCONST(3418) = (KDEC*0.26) - RCONST(3419) = (KDEC*0.26) - RCONST(3420) = (KDEC*0.26) - RCONST(3421) = (2.50D-10) - RCONST(3422) = (7.93D-11*0.5) - RCONST(3423) = (7.93D-11*0.5) - RCONST(3424) = (j('mek')*0.5) - RCONST(3425) = (j('mek')*0.5) - RCONST(3426) = (KAPHO2*0.44) - RCONST(3427) = (KAPHO2*0.15) - RCONST(3428) = (KAPHO2*0.41) - RCONST(3429) = (KAPNO) - RCONST(3430) = (KFPAN) - RCONST(3431) = (KRO2NO3*1.74) - RCONST(3432) = (1.00D-11*RO2*0.70) - RCONST(3433) = (1.00D-11*RO2*0.30) - RCONST(3434) = (2*KNO3AL*8.5) - RCONST(3435) = (4.28D-11) - RCONST(3436) = (j('i_c3h7cho')*2) - RCONST(3437) = (KRO2HO2*0.859) - RCONST(3438) = (KRO2NO*0.173) - RCONST(3439) = (KRO2NO*0.827) - RCONST(3440) = (KRO2NO3) - RCONST(3441) = (8.80D-13*RO2*0.2) - RCONST(3442) = (8.80D-13*RO2*0.6) - RCONST(3443) = (8.80D-13*RO2*0.2) - RCONST(3444) = (KRO2HO2*0.820) - RCONST(3445) = (KRO2NO) - RCONST(3446) = (KRO2NO3) - RCONST(3447) = (8.80D-13*RO2*0.2) - RCONST(3448) = (8.80D-13*RO2*0.2) - RCONST(3449) = (8.80D-13*RO2*0.6) - RCONST(3450) = (2.08D-12) - RCONST(3451) = (2.86D-13) - RCONST(3452) = (KRO2HO2*0.859) - RCONST(3453) = (KRO2NO) - RCONST(3454) = (KRO2NO3) - RCONST(3455) = (8.00D-13*RO2*0.70) - RCONST(3456) = (8.00D-13*RO2*0.30) - RCONST(3457) = (KRO2HO2*0.859) - RCONST(3458) = (KRO2NO) - RCONST(3459) = (KRO2NO3) - RCONST(3460) = (8.00D-13*RO2*0.70) - RCONST(3461) = (8.00D-13*RO2*0.30) - RCONST(3462) = (2.01D-10) - RCONST(3463) = (2.81D-17) - RCONST(3464) = (2.05D-10) - RCONST(3465) = (2.05D-11) - RCONST(3466) = (j('ch3o2h')) - RCONST(3467) = (6.03D-12) - RCONST(3468) = (j('n_c3h7ono2')) - RCONST(3469) = (KROPRIM*O2) - RCONST(3470) = (KNO3AL) - RCONST(3471) = (1.29D-11) - RCONST(3472) = (j('ch2cch3cho_h')) - RCONST(3473) = (j('ch2cch3cho_hco')) - RCONST(3474) = (8.93D-12) - RCONST(3475) = (7.65D-11) - RCONST(3476) = (j('ch3o2h')) - RCONST(3477) = (7.16D-11) - RCONST(3478) = (j('2_c4h9ono2')) - RCONST(3479) = (KDEC*0.64) - RCONST(3480) = (KDEC*0.18) - RCONST(3481) = (KDEC*0.18) - RCONST(3482) = (1.12D-10) - RCONST(3483) = (KAPHO2*0.44) - RCONST(3484) = (KAPHO2*0.15) - RCONST(3485) = (KAPHO2*0.41) - RCONST(3486) = (KAPNO) - RCONST(3487) = (KFPAN) - RCONST(3488) = (KRO2NO3*1.74) - RCONST(3489) = (1.00D-11*RO2*0.70) - RCONST(3490) = (1.00D-11*RO2*0.30) - RCONST(3491) = (KRO2HO2*0.859) - RCONST(3492) = (KRO2NO*0.173) - RCONST(3493) = (KRO2NO*0.827) - RCONST(3494) = (KRO2NO3) - RCONST(3495) = (8.80D-12*RO2*0.2) - RCONST(3496) = (8.80D-12*RO2*0.6) - RCONST(3497) = (8.80D-12*RO2*0.2) - RCONST(3498) = (KRO2HO2*0.820) - RCONST(3499) = (KRO2NO) - RCONST(3500) = (KRO2NO3) - RCONST(3501) = (9.20D-14*RO2*0.70) - RCONST(3502) = (9.20D-14*RO2*0.30) - RCONST(3503) = (KRO2HO2*0.859) - RCONST(3504) = (KRO2NO) - RCONST(3505) = (KRO2NO3) - RCONST(3506) = (8.00D-13*RO2*0.70) - RCONST(3507) = (8.00D-13*RO2*0.30) - RCONST(3508) = (2.08D-12) - RCONST(3509) = (2.86D-13) - RCONST(3510) = (KRO2HO2*0.859) - RCONST(3511) = (KRO2NO) - RCONST(3512) = (KRO2NO3) - RCONST(3513) = (8.00D-13*RO2*0.70) - RCONST(3514) = (8.00D-13*RO2*0.30) - RCONST(3515) = (2.01D-10) - RCONST(3516) = (2.81D-17) - RCONST(3517) = (2.05D-10) - RCONST(3518) = (2.17D-11) - RCONST(3519) = (j('ch3o2h')) - RCONST(3520) = (KROPRIM*O2) - RCONST(3521) = (7.18D-12) - RCONST(3522) = (j('n_c3h7ono2')) - RCONST(3523) = (1.01D-11) - RCONST(3524) = (KNO3AL) - RCONST(3525) = (2.08D-11) - RCONST(3526) = (j('i_c3h7cho')) - RCONST(3527) = (2.08D-12) - RCONST(3528) = (2.86D-13) - RCONST(3529) = (KRO2HO2*0.859) - RCONST(3530) = (KRO2NO) - RCONST(3531) = (KRO2NO3) - RCONST(3532) = (8.00D-13*RO2*0.70) - RCONST(3533) = (8.00D-13*RO2*0.30) - RCONST(3534) = (KRO2HO2*0.859) - RCONST(3535) = (KRO2NO) - RCONST(3536) = (KRO2NO3) - RCONST(3537) = (8.00D-13*RO2*0.70) - RCONST(3538) = (8.00D-13*RO2*0.30) - RCONST(3539) = (2.01D-10*1.0) - RCONST(3540) = (2.81D-17) - RCONST(3541) = (2.05D-10*1.0) - RCONST(3542) = (9.75D-11) - RCONST(3543) = (j('ch3o2h')) - RCONST(3544) = (KDEC*0.2) - RCONST(3545) = (KDEC*0.3) - RCONST(3546) = (KDEC*0.3) - RCONST(3547) = (KDEC*0.2) - RCONST(3548) = (7.28D-11) - RCONST(3549) = (j('1_c4h9ono2')) - RCONST(3550) = (1.21D-10) - RCONST(3551) = (8.11D-11) - RCONST(3552) = (j('mek')) - RCONST(3553) = (KAPHO2*0.44) - RCONST(3554) = (KAPHO2*0.15) - RCONST(3555) = (KAPHO2*0.41) - RCONST(3556) = (KAPNO) - RCONST(3557) = (KFPAN) - RCONST(3558) = (KRO2NO3*1.74) - RCONST(3559) = (1.00D-11*RO2*0.70) - RCONST(3560) = (1.00D-11*RO2*0.30) - RCONST(3561) = (KDEC*0.125) - RCONST(3562) = (KDEC*0.57) - RCONST(3563) = (KDEC*0.125) - RCONST(3564) = (KDEC*0.18) - RCONST(3565) = (KRO2HO2*0.859) - RCONST(3566) = (KRO2NO*0.173) - RCONST(3567) = (KRO2NO*0.827) - RCONST(3568) = (KRO2NO3) - RCONST(3569) = (8.80D-13*RO2*0.20) - RCONST(3570) = (8.80D-13*RO2*0.60) - RCONST(3571) = (8.80D-13*RO2*0.20) - RCONST(3572) = (KRO2HO2*0.820) - RCONST(3573) = (KRO2NO) - RCONST(3574) = (KRO2NO3) - RCONST(3575) = (8.80D-13*RO2*0.60) - RCONST(3576) = (8.80D-13*RO2*0.20) - RCONST(3577) = (8.80D-13*RO2*0.20) - RCONST(3578) = (2.05D-11) - RCONST(3579) = (j('ch3o2h')) - RCONST(3580) = (6.03D-12) - RCONST(3581) = (j('1_c4h9ono2')) - RCONST(3582) = (KROSEC*O2) - RCONST(3583) = (8.93D-12) - RCONST(3584) = (6.00D-12) - RCONST(3585) = (j('mek')) - RCONST(3586) = (KRO2HO2*0.90) - RCONST(3587) = (KRO2NO) - RCONST(3588) = (KRO2NO3) - RCONST(3589) = (8.00D-13*RO2*0.70) - RCONST(3590) = (8.00D-13*RO2*0.30) - RCONST(3591) = (2.08D-12) - RCONST(3592) = (2.86D-13) - RCONST(3593) = (KRO2HO2*0.90) - RCONST(3594) = (KRO2NO) - RCONST(3595) = (KRO2NO3) - RCONST(3596) = (8.00D-13*RO2*0.70) - RCONST(3597) = (8.00D-13*RO2*0.30) - RCONST(3598) = (2.01D-10*1.0) - RCONST(3599) = (2.81D-17) - RCONST(3600) = (2.05D-10*1.0) - RCONST(3601) = (9.90D-11) - RCONST(3602) = (j('ch3o2h')) - RCONST(3603) = (KDEC*0.2) - RCONST(3604) = (KDEC*0.3) - RCONST(3605) = (KDEC*0.2) - RCONST(3606) = (KDEC*0.3) - RCONST(3607) = (7.42D-11) - RCONST(3608) = (j('1_c4h9ono2')) - RCONST(3609) = (1.22D-10) - RCONST(3610) = (8.25D-11) - RCONST(3611) = (j('mek')) - RCONST(3612) = (KAPHO2*0.44) - RCONST(3613) = (KAPHO2*0.15) - RCONST(3614) = (KAPHO2*0.41) - RCONST(3615) = (KAPNO) - RCONST(3616) = (KFPAN) - RCONST(3617) = (KRO2NO3*1.74) - RCONST(3618) = (1.00D-11*RO2*0.70) - RCONST(3619) = (1.00D-11*RO2*0.30) - RCONST(3620) = (KDEC*0.34) - RCONST(3621) = (KDEC*0.08) - RCONST(3622) = (KDEC*0.34) - RCONST(3623) = (KDEC*0.24) - RCONST(3624) = (KRO2HO2*0.890) - RCONST(3625) = (KRO2NO*0.197) - RCONST(3626) = (KRO2NO*0.803) - RCONST(3627) = (KRO2NO3) - RCONST(3628) = (8.80D-13*RO2*0.20) - RCONST(3629) = (8.80D-13*RO2*0.60) - RCONST(3630) = (8.80D-13*RO2*0.20) - RCONST(3631) = (KRO2HO2*0.859) - RCONST(3632) = (KRO2NO) - RCONST(3633) = (KRO2NO3) - RCONST(3634) = (8.80D-13*RO2*0.60) - RCONST(3635) = (8.80D-13*RO2*0.20) - RCONST(3636) = (8.80D-13*RO2*0.20) - RCONST(3637) = (2.05D-11) - RCONST(3638) = (j('ch3o2h')) - RCONST(3639) = (6.03D-12) - RCONST(3640) = (j('2_c4h9ono2')) - RCONST(3641) = (KDEC) - RCONST(3642) = (8.93D-12) - RCONST(3643) = (2.08D-12) - RCONST(3644) = (2.86D-13) - RCONST(3645) = (KRO2HO2*0.90) - RCONST(3646) = (KRO2NO) - RCONST(3647) = (KRO2NO3) - RCONST(3648) = (8.00D-13*RO2*0.70) - RCONST(3649) = (8.00D-13*RO2*0.30) - RCONST(3650) = (KRO2HO2*0.90) - RCONST(3651) = (KRO2NO) - RCONST(3652) = (KRO2NO3) - RCONST(3653) = (8.00D-13*RO2*0.70) - RCONST(3654) = (8.00D-13*RO2*0.30) - RCONST(3655) = (2.01D-10*1.0) - RCONST(3656) = (2.81D-17) - RCONST(3657) = (2.05D-10*1.0) - RCONST(3658) = (9.90D-11) - RCONST(3659) = (j('ch3o2h')) - RCONST(3660) = (KDEC*0.2) - RCONST(3661) = (KDEC*0.3) - RCONST(3662) = (KDEC*0.3) - RCONST(3663) = (KDEC*0.2) - RCONST(3664) = (7.42D-11) - RCONST(3665) = (j('1_c4h9ono2')) - RCONST(3666) = (1.22D-10) - RCONST(3667) = (8.25D-11) - RCONST(3668) = (j('mek')) - RCONST(3669) = (KAPHO2*0.44) - RCONST(3670) = (KAPHO2*0.15) - RCONST(3671) = (KAPHO2*0.41) - RCONST(3672) = (KAPNO) - RCONST(3673) = (KFPAN) - RCONST(3674) = (KRO2NO3*1.74) - RCONST(3675) = (1.00D-11*RO2*0.70) - RCONST(3676) = (1.00D-11*RO2*0.30) - RCONST(3677) = (KDEC*0.18) - RCONST(3678) = (KDEC*0.125) - RCONST(3679) = (KDEC*0.57) - RCONST(3680) = (KDEC*0.125) - RCONST(3681) = (KRO2HO2*0.890) - RCONST(3682) = (KRO2NO*0.197) - RCONST(3683) = (KRO2NO*0.803) - RCONST(3684) = (KRO2NO3) - RCONST(3685) = (8.80D-13*RO2*0.20) - RCONST(3686) = (8.80D-13*RO2*0.60) - RCONST(3687) = (8.80D-13*RO2*0.20) - RCONST(3688) = (KRO2HO2*0.859) - RCONST(3689) = (KRO2NO) - RCONST(3690) = (KRO2NO3) - RCONST(3691) = (8.80D-13*RO2*0.60) - RCONST(3692) = (8.80D-13*RO2*0.20) - RCONST(3693) = (8.80D-13*RO2*0.20) - RCONST(3694) = (1.17D-11) - RCONST(3695) = (j('ch3o2h')) - RCONST(3696) = (6.03D-12) - RCONST(3697) = (j('n_c3h7ono2')) - RCONST(3698) = (KROPRIM*O2) - RCONST(3699) = (KNO3AL) - RCONST(3700) = (1.29D-11) - RCONST(3701) = (j('ch2cch3cho_h')) - RCONST(3702) = (j('ch2cch3cho_hco')) - RCONST(3703) = (3.68D-12) - RCONST(3704) = (KRO2HO2*0.90) - RCONST(3705) = (KRO2NO) - RCONST(3706) = (KRO2NO3) - RCONST(3707) = (8.00D-13*RO2*0.70) - RCONST(3708) = (8.00D-13*RO2*0.30) - RCONST(3709) = (2.08D-12) - RCONST(3710) = (2.86D-13) - RCONST(3711) = (KRO2HO2*0.90) - RCONST(3712) = (KRO2NO) - RCONST(3713) = (KRO2NO3) - RCONST(3714) = (8.00D-13*RO2*0.70) - RCONST(3715) = (8.00D-13*RO2*0.30) - RCONST(3716) = (2.01D-10) - RCONST(3717) = (2.81D-17) - RCONST(3718) = (2.05D-10) - RCONST(3719) = (8.83D-11) - RCONST(3720) = (j('ch3o2h')) - RCONST(3721) = (6.51D-11) - RCONST(3722) = (j('1_c4h9ono2')) - RCONST(3723) = (KDEC*0.32) - RCONST(3724) = (KDEC*0.05) - RCONST(3725) = (KDEC*0.13) - RCONST(3726) = (KDEC*0.32) - RCONST(3727) = (KDEC*0.13) - RCONST(3728) = (KDEC*0.05) - RCONST(3729) = (1.12D-10) - RCONST(3730) = (5.86D-11) - RCONST(3731) = (j('mek')) - RCONST(3732) = (KNO3AL*8.5) - RCONST(3733) = (2.22D-11) - RCONST(3734) = (j('mek')) - RCONST(3735) = (j('i_c3h7cho')) - RCONST(3736) = (KRO2HO2*0.890) - RCONST(3737) = (KRO2NO*0.941) - RCONST(3738) = (KRO2NO*0.059) - RCONST(3739) = (KRO2NO3) - RCONST(3740) = (8.80D-13*RO2*0.20) - RCONST(3741) = (8.80D-13*RO2*0.60) - RCONST(3742) = (8.80D-13*RO2*0.20) - RCONST(3743) = (1.17D-11) - RCONST(3744) = (j('ch3o2h')) - RCONST(3745) = (6.03D-12) - RCONST(3746) = (j('n_c3h7ono2')) - RCONST(3747) = (KROPRIM*O2) - RCONST(3748) = (KNO3AL) - RCONST(3749) = (1.29D-11) - RCONST(3750) = (j('ch2cch3cho_h')) - RCONST(3751) = (j('ch2cch3cho_hco')) - RCONST(3752) = (3.68D-12) - RCONST(3753) = (7.48D-11) - RCONST(3754) = (j('ch3o2h')) - RCONST(3755) = (7.14D-11) - RCONST(3756) = (j('2_c4h9ono2')) - RCONST(3757) = (KDEC*0.292) - RCONST(3758) = (KDEC*0.084) - RCONST(3759) = (KDEC*0.118) - RCONST(3760) = (KDEC*0.211) - RCONST(3761) = (KDEC*0.084) - RCONST(3762) = (KDEC*0.211) - RCONST(3763) = (1.10D-10) - RCONST(3764) = (KRO2HO2*0.90) - RCONST(3765) = (KRO2NO) - RCONST(3766) = (KRO2NO3) - RCONST(3767) = (8.00D-13*RO2*0.70) - RCONST(3768) = (8.00D-13*RO2*0.30) - RCONST(3769) = (2.08D-12) - RCONST(3770) = (2.86D-13) - RCONST(3771) = (KRO2HO2*0.90) - RCONST(3772) = (KRO2NO) - RCONST(3773) = (KRO2NO3) - RCONST(3774) = (8.00D-13*RO2*0.70) - RCONST(3775) = (8.00D-13*RO2*0.30) - RCONST(3776) = (2.01D-10) - RCONST(3777) = (2.81D-17) - RCONST(3778) = (2.05D-10) - RCONST(3779) = (KAPHO2*0.44) - RCONST(3780) = (KAPHO2*0.15) - RCONST(3781) = (KAPHO2*0.41) - RCONST(3782) = (KAPNO) - RCONST(3783) = (KFPAN) - RCONST(3784) = (KRO2NO3*1.74) - RCONST(3785) = (1.00D-11*RO2*0.70) - RCONST(3786) = (1.00D-11*RO2*0.30) - RCONST(3787) = (KRO2HO2*0.890) - RCONST(3788) = (KRO2NO*0.941) - RCONST(3789) = (KRO2NO*0.059) - RCONST(3790) = (KRO2NO3) - RCONST(3791) = (8.80D-13*RO2*0.20) - RCONST(3792) = (8.80D-13*RO2*0.60) - RCONST(3793) = (8.80D-13*RO2*0.20) - RCONST(3794) = (KRO2HO2*0.859) - RCONST(3795) = (KRO2NO) - RCONST(3796) = (KRO2NO3) - RCONST(3797) = (9.20D-14*RO2*0.70) - RCONST(3798) = (9.20D-14*RO2*0.30) - RCONST(3799) = (2.05D-11) - RCONST(3800) = (j('ch3o2h')) - RCONST(3801) = (6.03D-12) - RCONST(3802) = (j('n_c3h7ono2')) - RCONST(3803) = (KROPRIM*O2) - RCONST(3804) = (KNO3AL) - RCONST(3805) = (1.29D-11) - RCONST(3806) = (j('ch2cch3cho_h')) - RCONST(3807) = (j('ch2cch3cho_hco')) - RCONST(3808) = (8.93D-12) - RCONST(3809) = (1.28D-10) - RCONST(3810) = (j('ch3o2h')) - RCONST(3811) = (9.45D-11) - RCONST(3812) = (j('1_c4h9ono2')) - RCONST(3813) = (KDEC*0.50) - RCONST(3814) = (KDEC*0.50) - RCONST(3815) = (1.55D-10) - RCONST(3816) = (1.00D-10) - RCONST(3817) = (j('mek')) - RCONST(3818) = (KRO2HO2*0.890) - RCONST(3819) = (KRO2NO) - RCONST(3820) = (KRO2NO3) - RCONST(3821) = (8.00D-13*RO2*0.70) - RCONST(3822) = (8.00D-13*RO2*0.30) - RCONST(3823) = (1.00D-13) - RCONST(3824) = (KRO2HO2*0.890) - RCONST(3825) = (KRO2NO) - RCONST(3826) = (KRO2NO3) - RCONST(3827) = (8.00D-13*RO2*0.70) - RCONST(3828) = (8.00D-13*RO2*0.30) - RCONST(3829) = (KAPHO2*0.44) - RCONST(3830) = (KAPHO2*0.15) - RCONST(3831) = (KAPHO2*0.41) - RCONST(3832) = (KAPNO) - RCONST(3833) = (KFPAN) - RCONST(3834) = (KRO2NO3*1.74) - RCONST(3835) = (1.00D-11*RO2*0.70) - RCONST(3836) = (1.00D-11*RO2*0.30) - RCONST(3837) = (KNO3AL*8.5) - RCONST(3838) = (2.22D-11) - RCONST(3839) = (j('mek')) - RCONST(3840) = (j('i_c3h7cho')) - RCONST(3841) = (KDEC*0.89) - RCONST(3842) = (KDEC*0.11) - RCONST(3843) = (KRO2HO2*0.890) - RCONST(3844) = (KRO2NO*0.941) - RCONST(3845) = (KRO2NO*0.059) - RCONST(3846) = (KRO2NO3) - RCONST(3847) = (9.20D-14*RO2*0.70) - RCONST(3848) = (9.20D-14*RO2*0.30) - RCONST(3849) = (KRO2HO2*0.859) - RCONST(3850) = (KRO2NO) - RCONST(3851) = (KRO2NO3) - RCONST(3852) = (8.80D-11*RO2*0.60) - RCONST(3853) = (8.80D-11*RO2*0.20) - RCONST(3854) = (8.80D-11*RO2*0.20) - RCONST(3855) = (2.05D-11) - RCONST(3856) = (j('ch3o2h')) - RCONST(3857) = (6.03D-12) - RCONST(3858) = (j('1_c4h9ono2')) - RCONST(3859) = (KROSEC*O2) - RCONST(3860) = (8.93D-12) - RCONST(3861) = (6.00D-12) - RCONST(3862) = (j('mek')) - RCONST(3863) = (7.73D-11) - RCONST(3864) = (j('ch3o2h')) - RCONST(3865) = (7.31D-11) - RCONST(3866) = (j('2_c4h9ono2')) - RCONST(3867) = (KDEC*0.167) - RCONST(3868) = (KDEC*0.166) - RCONST(3869) = (KDEC*0.167) - RCONST(3870) = (KDEC*0.166) - RCONST(3871) = (KDEC*0.167) - RCONST(3872) = (KDEC*0.167) - RCONST(3873) = (1.12D-10) - RCONST(3874) = (KAPHO2*0.44) - RCONST(3875) = (KAPHO2*0.15) - RCONST(3876) = (KAPHO2*0.41) - RCONST(3877) = (KAPNO) - RCONST(3878) = (KFPAN) - RCONST(3879) = (KRO2NO3*1.74) - RCONST(3880) = (1.00D-11*RO2*0.70) - RCONST(3881) = (1.00D-11*RO2*0.30) - RCONST(3882) = (2*KNO3AL*8.5) - RCONST(3883) = (4.57D-11) - RCONST(3884) = (j('i_c3h7cho')*2) - RCONST(3885) = (KRO2HO2*0.890) - RCONST(3886) = (KRO2NO*0.196) - RCONST(3887) = (KRO2NO*0.804) - RCONST(3888) = (KRO2NO3) - RCONST(3889) = (8.80D-12*RO2*0.20) - RCONST(3890) = (8.80D-12*RO2*0.60) - RCONST(3891) = (8.80D-12*RO2*0.20) - RCONST(3892) = (KRO2HO2*0.859) - RCONST(3893) = (KRO2NO) - RCONST(3894) = (KRO2NO3) - RCONST(3895) = (9.20D-14*RO2*0.70) - RCONST(3896) = (9.20D-14*RO2*0.30) - RCONST(3897) = (KRO2HO2*0.90) - RCONST(3898) = (KRO2NO) - RCONST(3899) = (KRO2NO3) - RCONST(3900) = (8.00D-13*RO2*0.70) - RCONST(3901) = (8.00D-13*RO2*0.30) - RCONST(3902) = (2.08D-12) - RCONST(3903) = (2.86D-13) - RCONST(3904) = (KRO2HO2*0.90) - RCONST(3905) = (KRO2NO) - RCONST(3906) = (KRO2NO3) - RCONST(3907) = (8.00D-13*RO2*0.70) - RCONST(3908) = (8.00D-13*RO2*0.30) - RCONST(3909) = (2.01D-10) - RCONST(3910) = (2.81D-17) - RCONST(3911) = (2.05D-10) - RCONST(3912) = (9.58D-11) - RCONST(3913) = (j('ch3o2h')) - RCONST(3914) = (7.27D-11) - RCONST(3915) = (j('2_c4h9ono2')) - RCONST(3916) = (KDEC*0.167) - RCONST(3917) = (KDEC*0.166) - RCONST(3918) = (KDEC*0.25) - RCONST(3919) = (KDEC*0.25) - RCONST(3920) = (KDEC*0.167) - RCONST(3921) = (1.19D-10) - RCONST(3922) = (8.27D-11) - RCONST(3923) = (j('mek')) - RCONST(3924) = (KAPHO2*0.44) - RCONST(3925) = (KAPHO2*0.15) - RCONST(3926) = (KAPHO2*0.41) - RCONST(3927) = (KAPNO) - RCONST(3928) = (KFPAN) - RCONST(3929) = (KRO2NO3*1.74) - RCONST(3930) = (1.00D-11*RO2*0.70) - RCONST(3931) = (1.00D-11*RO2*0.30) - RCONST(3932) = (KRO2HO2*0.890) - RCONST(3933) = (KRO2NO*0.196) - RCONST(3934) = (KRO2NO*0.804) - RCONST(3935) = (KRO2NO3) - RCONST(3936) = (8.80D-12*RO2*0.20) - RCONST(3937) = (8.80D-12*RO2*0.60) - RCONST(3938) = (8.80D-12*RO2*0.20) - RCONST(3939) = (KRO2HO2*0.859) - RCONST(3940) = (KRO2NO) - RCONST(3941) = (KRO2NO3) - RCONST(3942) = (8.80D-12*RO2*0.20) - RCONST(3943) = (8.80D-12*RO2*0.60) - RCONST(3944) = (8.80D-12*RO2*0.20) - RCONST(3945) = (2.08D-12) - RCONST(3946) = (2.86D-13) - RCONST(3947) = (KRO2HO2*0.90) - RCONST(3948) = (KRO2NO) - RCONST(3949) = (KRO2NO3) - RCONST(3950) = (8.00D-13*RO2*0.70) - RCONST(3951) = (8.00D-13*RO2*0.30) - RCONST(3952) = (KRO2HO2*0.90) - RCONST(3953) = (KRO2NO) - RCONST(3954) = (KRO2NO3) - RCONST(3955) = (8.00D-13*RO2*0.70) - RCONST(3956) = (8.00D-13*RO2*0.30) - RCONST(3957) = (2.01D-10) - RCONST(3958) = (2.81D-17) - RCONST(3959) = (2.05D-10) - RCONST(3960) = (7.77D-11) - RCONST(3961) = (j('ch3o2h')) - RCONST(3962) = (7.27D-11) - RCONST(3963) = (j('2_c4h9ono2')) - RCONST(3964) = (KDEC*0.18) - RCONST(3965) = (KDEC*0.64) - RCONST(3966) = (KDEC*0.09) - RCONST(3967) = (KDEC*0.09) - RCONST(3968) = (1.13D-10) - RCONST(3969) = (KAPHO2*0.44) - RCONST(3970) = (KAPHO2*0.15) - RCONST(3971) = (KAPHO2*0.41) - RCONST(3972) = (KAPNO) - RCONST(3973) = (KFPAN) - RCONST(3974) = (KRO2NO3*1.74) - RCONST(3975) = (1.00D-11*RO2*0.70) - RCONST(3976) = (1.00D-11*RO2*0.30) - RCONST(3977) = (KRO2HO2*0.890) - RCONST(3978) = (KRO2NO*0.173) - RCONST(3979) = (KRO2NO*0.827) - RCONST(3980) = (KRO2NO3) - RCONST(3981) = (8.80D-12*RO2*0.2) - RCONST(3982) = (8.80D-12*RO2*0.6) - RCONST(3983) = (8.80D-12*RO2*0.2) - RCONST(3984) = (KRO2HO2*0.859) - RCONST(3985) = (KRO2NO) - RCONST(3986) = (KRO2NO3) - RCONST(3987) = (9.20D-14*RO2*0.70) - RCONST(3988) = (9.20D-14*RO2*0.30) - RCONST(3989) = (KRO2HO2*0.90) - RCONST(3990) = (KRO2NO) - RCONST(3991) = (KRO2NO3) - RCONST(3992) = (8.00D-13*RO2*0.70) - RCONST(3993) = (8.00D-13*RO2*0.30) - RCONST(3994) = (2.08D-12) - RCONST(3995) = (2.86D-13) - RCONST(3996) = (KRO2HO2*0.90) - RCONST(3997) = (KRO2NO) - RCONST(3998) = (KRO2NO3) - RCONST(3999) = (8.00D-13*RO2*0.70) - RCONST(4000) = (8.00D-13*RO2*0.30) - RCONST(4001) = (2.01D-10) - RCONST(4002) = (2.81D-17) - RCONST(4003) = (2.05D-10) - RCONST(4004) = (2.05D-11) - RCONST(4005) = (j('ch3o2h')) - RCONST(4006) = (6.03D-12) - RCONST(4007) = (j('1_c4h9ono2')) - RCONST(4008) = (KROSEC*O2) - RCONST(4009) = (8.93D-12) - RCONST(4010) = (6.00D-12) - RCONST(4011) = (j('mek')) - RCONST(4012) = (1.19D-10) - RCONST(4013) = (j('ch3o2h')) - RCONST(4014) = (9.57D-11) - RCONST(4015) = (j('1_c4h9ono2')) - RCONST(4016) = (KDEC*0.25) - RCONST(4017) = (KDEC*0.25) - RCONST(4018) = (KDEC*0.25) - RCONST(4019) = (KDEC*0.25) - RCONST(4020) = (1.56D-10) - RCONST(4021) = (1.01D-10) - RCONST(4022) = (j('mek')) - RCONST(4023) = (KAPHO2*0.44) - RCONST(4024) = (KAPHO2*0.15) - RCONST(4025) = (KAPHO2*0.41) - RCONST(4026) = (KAPNO) - RCONST(4027) = (KFPAN) - RCONST(4028) = (KRO2NO3*1.74) - RCONST(4029) = (1.00D-11*RO2*0.70) - RCONST(4030) = (1.00D-11*RO2*0.30) - RCONST(4031) = (KDEC*0.89) - RCONST(4032) = (KDEC*0.11) - RCONST(4033) = (KRO2HO2*0.914) - RCONST(4034) = (KRO2NO*0.937) - RCONST(4035) = (KRO2NO*0.063) - RCONST(4036) = (KRO2NO3) - RCONST(4037) = (9.20D-14*RO2*0.70) - RCONST(4038) = (9.20D-14*RO2*0.30) - RCONST(4039) = (KRO2HO2*0.890) - RCONST(4040) = (KRO2NO) - RCONST(4041) = (KRO2NO3) - RCONST(4042) = (8.80D-11*RO2*0.60) - RCONST(4043) = (8.80D-11*RO2*0.20) - RCONST(4044) = (8.80D-11*RO2*0.20) - RCONST(4045) = (1.00D-13) - RCONST(4046) = (KRO2HO2*0.914) - RCONST(4047) = (KRO2NO) - RCONST(4048) = (KRO2NO3) - RCONST(4049) = (8.00D-13*RO2*0.70) - RCONST(4050) = (8.00D-13*RO2*0.30) - RCONST(4051) = (KRO2HO2*0.914) - RCONST(4052) = (KRO2NO) - RCONST(4053) = (KRO2NO3) - RCONST(4054) = (8.00D-13*RO2*0.70) - RCONST(4055) = (8.00D-13*RO2*0.30) - RCONST(4056) = (2.05D-11) - RCONST(4057) = (j('ch3o2h')) - RCONST(4058) = (6.03D-12) - RCONST(4059) = (j('1_c4h9ono2')) - RCONST(4060) = (KROSEC*O2) - RCONST(4061) = (8.93D-12) - RCONST(4062) = (6.00D-12) - RCONST(4063) = (j('mek')) - RCONST(4064) = (1.00D-13) - RCONST(4065) = (KRO2HO2*0.932) - RCONST(4066) = (KRO2NO) - RCONST(4067) = (KRO2NO3) - RCONST(4068) = (8.00D-13*RO2*0.70) - RCONST(4069) = (8.00D-13*RO2*0.30) - RCONST(4070) = (KRO2HO2*0.932) - RCONST(4071) = (KRO2NO) - RCONST(4072) = (KRO2NO3) - RCONST(4073) = (8.00D-13*RO2*0.70) - RCONST(4074) = (8.00D-13*RO2*0.30) - RCONST(4075) = (1.20D-10) - RCONST(4076) = (j('ch3o2h')) - RCONST(4077) = (9.67D-11) - RCONST(4078) = (j('1_c4h9ono2')) - RCONST(4079) = (KDEC*0.50) - RCONST(4080) = (KDEC*0.50) - RCONST(4081) = (1.57D-10) - RCONST(4082) = (1.03D-10) - RCONST(4083) = (j('mek')) - RCONST(4084) = (KAPHO2*0.44) - RCONST(4085) = (KAPHO2*0.15) - RCONST(4086) = (KAPHO2*0.41) - RCONST(4087) = (KAPNO) - RCONST(4088) = (KFPAN) - RCONST(4089) = (KRO2NO3*1.74) - RCONST(4090) = (1.00D-11*RO2*0.70) - RCONST(4091) = (1.00D-11*RO2*0.30) - RCONST(4092) = (KNO3AL*8.5) - RCONST(4093) = (2.55D-11) - RCONST(4094) = (j('mek')) - RCONST(4095) = (j('i_c3h7cho')) - RCONST(4096) = (KRO2HO2*0.932) - RCONST(4097) = (KRO2NO*0.934) - RCONST(4098) = (KRO2NO*0.066) - RCONST(4099) = (KRO2NO3) - RCONST(4100) = (9.20D-14*RO2*0.70) - RCONST(4101) = (9.20D-14*RO2*0.30) - RCONST(4102) = (KRO2HO2*0.914) - RCONST(4103) = (KRO2NO) - RCONST(4104) = (KRO2NO3) - RCONST(4105) = (8.80D-11*RO2*0.60) - RCONST(4106) = (8.80D-11*RO2*0.20) - RCONST(4107) = (8.80D-11*RO2*0.20) - RCONST(4108) = (6.16D-11) - RCONST(4109) = (KDEC) - RCONST(4110) = (1.20D-15) - RCONST(4111) = (1.00D-14) - RCONST(4112) = (1.00D-15) - RCONST(4113) = (7.00D-14) - RCONST(4114) = (6.00D-18*H2O) - RCONST(4115) = (1.00D-17*H2O) - RCONST(4116) = (6.16D-11) - RCONST(4117) = (j('ch3o2h')) - RCONST(4118) = (KDEC) - RCONST(4119) = (4.66D-12) - RCONST(4120) = (j('ch3o2h')) - RCONST(4121) = (1.10D-12) - RCONST(4122) = (1.06D-12) - RCONST(4123) = (KBPAN*0.67) - RCONST(4124) = (3.60D-12) - RCONST(4125) = (j('ch3o2h')) - RCONST(4126) = (j('ch3o2h')) - RCONST(4127) = (4.87D-11) - RCONST(4128) = (KROSEC*O2) - RCONST(4129) = (3.71D-11) - RCONST(4130) = (j('mvk_mcm_ch2ch')) - RCONST(4131) = (2.08D-11) - RCONST(4132) = (j('ch3o2h')) - RCONST(4133) = (7.78D-11) - RCONST(4134) = (j('n_c3h7ono2')*2.0) - RCONST(4135) = (6.04D-11) - RCONST(4136) = (KROPRIM*O2) - RCONST(4137) = (j('n_c3h7ono2')) - RCONST(4138) = (6.39D-11) - RCONST(4139) = (j('n_c3h7cho_hco')) - RCONST(4140) = (KNO3AL*2.0) - RCONST(4141) = (9.60D-18*0.5) - RCONST(4142) = (9.60D-18*0.5) - RCONST(4143) = (3.52D-11*0.43) - RCONST(4144) = (3.52D-11*0.57) - RCONST(4145) = (1.20D-15) - RCONST(4146) = (1.00D-14) - RCONST(4147) = (1.00D-15) - RCONST(4148) = (7.00D-14) - RCONST(4149) = (1.00D-17*H2O) - RCONST(4150) = (6.00D-18*H2O) - RCONST(4151) = (j('ch3o2h')) - RCONST(4152) = (8.14D-11) - RCONST(4153) = (8.40D+10*EXP(-3523/TEMP)) - RCONST(4154) = (7.10D-11) - RCONST(4155) = (j('ch2cch3cho_h')) - RCONST(4156) = (j('ch2cch3cho_hco')) - RCONST(4157) = (KNO3AL*2.4) - RCONST(4158) = (9.60D-18*0.5) - RCONST(4159) = (9.60D-18*0.5) - RCONST(4160) = (3.87D-11*0.43) - RCONST(4161) = (3.87D-11*0.57) - RCONST(4162) = (j('ch3o2h')) - RCONST(4163) = (8.14D-11) - RCONST(4164) = (3.59D-11) - RCONST(4165) = (KDEC) - RCONST(4166) = (4.86D-11) - RCONST(4167) = (7.51D-16*EXP(-1521/TEMP)*0.5) - RCONST(4168) = (7.51D-16*EXP(-1521/TEMP)*0.5) - RCONST(4169) = (4.60D-12*EXP(452/TEMP)*0.3) - RCONST(4170) = (4.60D-12*EXP(452/TEMP)*0.7) - RCONST(4171) = (j('mvk_mcm_co')) - RCONST(4172) = (j('mvk_mcm_ch2ch')) - RCONST(4173) = (j('ch3o2h')) - RCONST(4174) = (6.25D-11) - RCONST(4175) = (KDEC) - RCONST(4176) = (j('n_c3h7cho_hco')) - RCONST(4177) = (KNO3AL*4.0) - RCONST(4178) = (6.14D-11) - RCONST(4179) = (j('ch3o2h')) - RCONST(4180) = (1.03D-10) - RCONST(4181) = (j('n_c3h7ono2')*2.0) - RCONST(4182) = (8.55D-11) - RCONST(4183) = (KROPRIM*O2) - RCONST(4184) = (j('n_c3h7ono2')) - RCONST(4185) = (4.10D-17*0.50) - RCONST(4186) = (4.10D-17*0.50) - RCONST(4187) = (1.12D-10) - RCONST(4188) = (j('ch3coch2ono2')*16) - RCONST(4189) = (KNO3AL*4.25) - RCONST(4190) = (2.40D-17*0.5) - RCONST(4191) = (2.40D-17*0.5) - RCONST(4192) = (4.16D-11*0.52) - RCONST(4193) = (4.16D-11*0.48) - RCONST(4194) = (KDEC*0.20) - RCONST(4195) = (KDEC*0.20) - RCONST(4196) = (KDEC*0.24) - RCONST(4197) = (KDEC*0.36) - RCONST(4198) = (KRO2HO2*0.625) - RCONST(4199) = (KRO2NO*0.017) - RCONST(4200) = (KRO2NO*0.983) - RCONST(4201) = (KRO2NO3) - RCONST(4202) = (2.00D-12*0.2*RO2) - RCONST(4203) = (2.00D-12*0.6*RO2) - RCONST(4204) = (2.00D-12*0.2*RO2) - RCONST(4205) = (KRO2NO*0.043) - RCONST(4206) = (KRO2HO2*0.625) - RCONST(4207) = (KRO2NO*0.957) - RCONST(4208) = (KRO2NO3) - RCONST(4209) = (8.80D-13*0.2*RO2) - RCONST(4210) = (8.80D-13*0.6*RO2) - RCONST(4211) = (8.80D-13*0.2*RO2) - RCONST(4212) = (1.2D-15) - RCONST(4213) = (1.0D-14) - RCONST(4214) = (1.0D-15) - RCONST(4215) = (7.0D-14) - RCONST(4216) = (1.0D-17*H2O) - RCONST(4217) = (6.0D-18*H2O) - RCONST(4218) = (1.2D-15) - RCONST(4219) = (1.0D-14) - RCONST(4220) = (1.0D-15) - RCONST(4221) = (7.0D-14) - RCONST(4222) = (6.0D-18*H2O) - RCONST(4223) = (KRO2HO2*0.625) - RCONST(4224) = (KRO2NO) - RCONST(4225) = (KRO2NO3) - RCONST(4226) = (2.00D-12*0.6*RO2) - RCONST(4227) = (2.00D-12*0.2*RO2) - RCONST(4228) = (2.00D-12*0.2*RO2) - RCONST(4229) = (KRO2HO2*0.706) - RCONST(4230) = (KRO2NO*0.894) - RCONST(4231) = (KRO2NO*0.106) - RCONST(4232) = (KRO2NO3) - RCONST(4233) = (K16ISOM1*0.5) - RCONST(4234) = (K16ISOM1*0.5) - RCONST(4235) = (8.00D14*EXP(-10050/TEMP)) - RCONST(4236) = (2.40D-12*0.8*RO2) - RCONST(4237) = (2.40D-12*0.1*RO2) - RCONST(4238) = (2.40D-12*0.1*RO2) - RCONST(4239) = (KRO2HO2*0.706) - RCONST(4240) = (KRO2NO*0.070) - RCONST(4241) = (KRO2NO*0.930) - RCONST(4242) = (KRO2NO3) - RCONST(4243) = (1.70D15*EXP(-11030/TEMP)) - RCONST(4244) = (8.00D-13*0.8*RO2) - RCONST(4245) = (8.00D-13*0.2*RO2) - RCONST(4246) = (K15ISOM1) - RCONST(4247) = (1.70D15*EXP(-11030/TEMP)) - RCONST(4248) = (KRO2HO2*0.706) - RCONST(4249) = (KRO2NO*0.894) - RCONST(4250) = (KRO2NO*0.106) - RCONST(4251) = (KRO2NO3) - RCONST(4252) = (K16ISOM1*0.5) - RCONST(4253) = (K16ISOM1*0.5) - RCONST(4254) = (8.00D14*EXP(-10050/TEMP)) - RCONST(4255) = (2.40D-12*0.8*RO2) - RCONST(4256) = (2.40D-12*0.1*RO2) - RCONST(4257) = (2.40D-12*0.1*RO2) - RCONST(4258) = (KRO2HO2*0.706) - RCONST(4259) = (KRO2NO*0.140) - RCONST(4260) = (KRO2NO*0.860) - RCONST(4261) = (KRO2NO3) - RCONST(4262) = (2.10D15*EXP(-11640/TEMP)) - RCONST(4263) = (2.90D-12*0.1*RO2) - RCONST(4264) = (2.90D-12*0.8*RO2) - RCONST(4265) = (2.90D-12*0.1*RO2) - RCONST(4266) = (K15ISOM1) - RCONST(4267) = (2.10D15*EXP(-11640/TEMP)) - RCONST(4268) = (9.73D-11) - RCONST(4269) = (j('ch3o2h')) - RCONST(4270) = (8.77D-11) - RCONST(4271) = (2.52D-17*0.50) - RCONST(4272) = (2.52D-17*0.50) - RCONST(4273) = (KDEC) - RCONST(4274) = (1.04D-10*0.829) - RCONST(4275) = (1.04D-10*0.171) - RCONST(4276) = (j('n_c3h7cho_hco')) - RCONST(4277) = (7.38D-11) - RCONST(4278) = (KRO2HO2*0.706) - RCONST(4279) = (KRO2NO) - RCONST(4280) = (KRO2NO3) - RCONST(4281) = (9.20D-14*RO2) - RCONST(4282) = (KDEC*0.82) - RCONST(4283) = (KDEC*0.18) - RCONST(4284) = (KRO2HO2*0.706) - RCONST(4285) = (KRO2NO*0.020) - RCONST(4286) = (KRO2NO*0.980) - RCONST(4287) = (KRO2NO3) - RCONST(4288) = (9.20D-14*RO2) - RCONST(4289) = (KAPHO2*0.44) - RCONST(4290) = (KAPHO2*0.56) - RCONST(4291) = (KAPNO) - RCONST(4292) = (KFPAN) - RCONST(4293) = (KRO2NO3*1.6) - RCONST(4294) = (1.00D-11*RO2) - RCONST(4295) = (KRO2HO2*0.625) - RCONST(4296) = (KRO2NO*0.024) - RCONST(4297) = (KRO2NO*0.976) - RCONST(4298) = (KRO2NO3) - RCONST(4299) = (1.30D-12*RO2) - RCONST(4300) = (KRO2HO2*0.706) - RCONST(4301) = (KRO2NO) - RCONST(4302) = (KRO2NO3) - RCONST(4303) = (8.80D-13*RO2) - RCONST(4304) = (KDEC*0.36) - RCONST(4305) = (KDEC*0.2) - RCONST(4306) = (KDEC*0.2) - RCONST(4307) = (KDEC*0.24) - RCONST(4308) = (KRO2HO2*0.706) - RCONST(4309) = (KRO2NO*0.065) - RCONST(4310) = (KRO2NO*0.935) - RCONST(4311) = (KRO2NO3) - RCONST(4312) = (8.40D-13*0.6*RO2) - RCONST(4313) = (8.40D-13*0.2*RO2) - RCONST(4314) = (8.40D-13*0.2*RO2) - RCONST(4315) = (KRO2HO2*0.520) - RCONST(4316) = (KRO2NO*0.024) - RCONST(4317) = (KRO2NO*0.976) - RCONST(4318) = (KRO2NO3) - RCONST(4319) = (1.30D-12*0.2*RO2) - RCONST(4320) = (1.30D-12*0.2*RO2) - RCONST(4321) = (1.30D-12*0.6*RO2) - RCONST(4322) = (KRO2HO2*0.706) - RCONST(4323) = (KRO2NO*0.106) - RCONST(4324) = (KRO2NO*0.894) - RCONST(4325) = (KRO2NO3) - RCONST(4326) = (2.40D-12*0.1*RO2) - RCONST(4327) = (2.40D-12*0.8*RO2) - RCONST(4328) = (2.40D-12*0.1*RO2) - RCONST(4329) = (5.00D13*EXP(-9510/TEMP)) - RCONST(4330) = (KRO2HO2*0.706) - RCONST(4331) = (KRO2NO*0.106) - RCONST(4332) = (KRO2NO*0.894) - RCONST(4333) = (KRO2NO3) - RCONST(4334) = (2.00D-12*0.1*RO2) - RCONST(4335) = (2.00D-12*0.1*RO2) - RCONST(4336) = (2.00D-12*0.8*RO2) - RCONST(4337) = (5.00D13*EXP(-9510/TEMP)) - RCONST(4338) = (7.10D-11) - RCONST(4339) = (j('ch3o2h')) - RCONST(4340) = (9.39D-13*EXP(-461/TEMP)*0.450) - RCONST(4341) = (9.39D-13*EXP(-461/TEMP)*0.550) - RCONST(4342) = (1.80D-12) - RCONST(4343) = (j('n_c3h7ono2')) - RCONST(4344) = (KROPRIM*O2) - RCONST(4345) = (1.83D-11) - RCONST(4346) = (1.54D-10) - RCONST(4347) = (j('ch3o2h')) - RCONST(4348) = (6.92D-19*TEMP**2*EXP(986/TEMP)*0.095) - RCONST(4349) = (6.92D-19*TEMP**2*EXP(986/TEMP)*0.057) - RCONST(4350) = (6.92D-19*TEMP**2*EXP(986/TEMP)*0.848) - RCONST(4351) = (7.74D-12) - RCONST(4352) = (j('1_c4h9ono2')) - RCONST(4353) = (KDEC) - RCONST(4354) = (6.35D-11) - RCONST(4355) = (3.48D-11) - RCONST(4356) = (j('ch3o2h')) - RCONST(4357) = (8.20D-12) - RCONST(4358) = (j('n_c3h7ono2')) - RCONST(4359) = (KDEC) - RCONST(4360) = (2.80D-15*0.5) - RCONST(4361) = (2.80D-15*0.5) - RCONST(4362) = (1.80D-11*0.399) - RCONST(4363) = (1.80D-11*0.333) - RCONST(4364) = (1.80D-11*0.268) - RCONST(4365) = (KNO3AL*4.0) - RCONST(4366) = (3.00D-11) - RCONST(4367) = (j('n_c3h7cho_hco')) - RCONST(4368) = (KDEC) - RCONST(4369) = (1.90D-12*EXP(190/TEMP)) - RCONST(4370) = (8.39D-12) - RCONST(4371) = (j('mek')) - RCONST(4372) = (j('ch3o2h')) - RCONST(4373) = (4.88D-11) - RCONST(4374) = (1.90D-12*EXP(190/TEMP)) - RCONST(4375) = (j('ch3o2h')+j('mek')) - RCONST(4376) = (9.64D-13) - RCONST(4377) = (j('n_c3h7ono2')+j('mek')) - RCONST(4378) = (KROPRIM*O2) - RCONST(4379) = (1.30D+11*EXP(-4127/TEMP)) - RCONST(4380) = (1.88D-11) - RCONST(4381) = (1.90D-12*EXP(190/TEMP)) - RCONST(4382) = (j('mek')) - RCONST(4383) = (j('ch3o2h')) - RCONST(4384) = (KDEC) - RCONST(4385) = (j('biacet')) - RCONST(4386) = (1.40D-18*TEMP**2*EXP(194/TEMP)) - RCONST(4387) = (9.55D-12) - RCONST(4388) = (1.90D-12*EXP(190/TEMP)) - RCONST(4389) = (j('mek')) - RCONST(4390) = (j('ch3o2h')) - RCONST(4391) = (KDEC) - RCONST(4392) = (j('ch3cocho')) - RCONST(4393) = (KNO3AL*4.0) - RCONST(4394) = (1.39D-11) - RCONST(4395) = (1.06D-10) - RCONST(4396) = (1.90D-12*EXP(190/TEMP)) - RCONST(4397) = (j('ch3o2h')) - RCONST(4398) = (j('mek')) - RCONST(4399) = (1.30D+11*EXP(-4127/TEMP)) - RCONST(4400) = (1.79D-12) - RCONST(4401) = (j('1_c4h9ono2')+j('mek')) - RCONST(4402) = (7.02D-13) - RCONST(4403) = (j('mek')) - RCONST(4404) = (2.99D-11) - RCONST(4405) = (j('mek')) - RCONST(4406) = (1.06D-10) - RCONST(4407) = (1.90D-12*EXP(190/TEMP)) - RCONST(4408) = (j('mek')) - RCONST(4409) = (j('ch3o2h')) - RCONST(4410) = (KDEC) - RCONST(4411) = (1.38D-12) - RCONST(4412) = (j('biacet')) - RCONST(4413) = (2.00D-11) - RCONST(4414) = (1.90D-12*EXP(190/TEMP)) - RCONST(4415) = (j('mek')) - RCONST(4416) = (j('ch3o2h')) - RCONST(4417) = (KDEC) - RCONST(4418) = (5.36D-11) - RCONST(4419) = (1.90D-12*EXP(190/TEMP)) - RCONST(4420) = (j('ch3o2h')+j('mek')) - RCONST(4421) = (2.13D-12) - RCONST(4422) = (j('mek')+j('n_c3h7ono2')) - RCONST(4423) = (8.40D+10*EXP(-2567/TEMP)) - RCONST(4424) = (1.46D-11) - RCONST(4425) = (j('mek')) - RCONST(4426) = (j('ch3o2h')+j('mek')) - RCONST(4427) = (4.98D-12) - RCONST(4428) = (KDEC) - RCONST(4429) = (j('ch3o2h')+j('mek')) - RCONST(4430) = (5.41D-11) - RCONST(4431) = (j('n_c3h7ono2')+j('mek')) - RCONST(4432) = (1.71D-12) - RCONST(4433) = (1.30D+11*EXP(-4127/TEMP)) - RCONST(4434) = (KROPRIM*O2) - RCONST(4435) = (j('i_c3h7cho')) - RCONST(4436) = (KNO3AL*8.5) - RCONST(4437) = (2.26D-11) - RCONST(4438) = (1.37D-10) - RCONST(4439) = (1.90D-12*EXP(190/TEMP)) - RCONST(4440) = (j('mek')+j('ch3o2h')) - RCONST(4441) = (2.61D-12) - RCONST(4442) = (j('mek')+j('1_c4h9ono2')) - RCONST(4443) = (1.30D+11*EXP(-4127/TEMP)) - RCONST(4444) = (1.86D-12) - RCONST(4445) = (j('mek')) - RCONST(4446) = (j('mek')) - RCONST(4447) = (3.75D-11) - RCONST(4448) = (j('mek')) - RCONST(4449) = (3.66D-11) - RCONST(4450) = (1.90D-12*EXP(190/TEMP)) - RCONST(4451) = (j('mek')+j('ch3o2h')) - RCONST(4452) = (2.51D-12) - RCONST(4453) = (j('mek')+j('1_c4h9ono2')) - RCONST(4454) = (2.70D+14*EXP(-7398/TEMP)) - RCONST(4455) = (KROSEC*O2) - RCONST(4456) = (j('mek')*2) - RCONST(4457) = (5.67D-12) - RCONST(4458) = (j('mek')) - RCONST(4459) = (1.39D-11*0.349) - RCONST(4460) = (1.39D-11*0.651) - RCONST(4461) = (2.94D-11) - RCONST(4462) = (1.90D-12*EXP(190/TEMP)) - RCONST(4463) = (j('mek')) - RCONST(4464) = (j('ch3o2h')) - RCONST(4465) = (KDEC) - RCONST(4466) = (4.81D-12) - RCONST(4467) = (j('biacet')) - RCONST(4468) = (1.07D-10) - RCONST(4469) = (1.90D-12*EXP(190/TEMP)) - RCONST(4470) = (j('ch3o2h')) - RCONST(4471) = (j('mek')) - RCONST(4472) = (2.96D-12) - RCONST(4473) = (j('n_c3h7ono2')+j('mek')) - RCONST(4474) = (8.40D+10*EXP(-2567/TEMP)) - RCONST(4475) = (2.97D-11) - RCONST(4476) = (j('mek')) - RCONST(4477) = (2.84D-11) - RCONST(4478) = (1.90D-12*EXP(190/TEMP)) - RCONST(4479) = (j('mek')) - RCONST(4480) = (j('ch3o2h')) - RCONST(4481) = (KDEC) - RCONST(4482) = (2.54D-12) - RCONST(4483) = (j('biacet')) - RCONST(4484) = (1.13D-11) - RCONST(4485) = (j('mek')) - RCONST(4486) = (2.34D-11) - RCONST(4487) = (1.90D-12*EXP(190/TEMP)) - RCONST(4488) = (j('mek')) - RCONST(4489) = (j('ch3o2h')) - RCONST(4490) = (KDEC) - RCONST(4491) = (5.34D-11) - RCONST(4492) = (1.90D-12*EXP(190/TEMP)) - RCONST(4493) = (j('ch3o2h')+j('mek')) - RCONST(4494) = (3.40D-12) - RCONST(4495) = (j('n_c3h7ono2')+j('mek')) - RCONST(4496) = (8.40D+10*EXP(-2567/TEMP)) - RCONST(4497) = (KNO3AL*5.5) - RCONST(4498) = (7.61D-11) - RCONST(4499) = (j('mek')) - RCONST(4500) = (j('n_c3h7cho_hco')) - RCONST(4501) = (1.81D-11) - RCONST(4502) = (j('mek')) - RCONST(4503) = (4.89D-12) - RCONST(4504) = (j('ch3o2h')+j('mek')) - RCONST(4505) = (3.86D-13) - RCONST(4506) = (j('2_c4h9ono2')+j('mek')) - RCONST(4507) = (2.70D+14*EXP(-6543/TEMP)) - RCONST(4508) = (1.30D+11*EXP(-4127/TEMP)) - RCONST(4509) = (3.18D-11) - RCONST(4510) = (1.90D-12*EXP(190/TEMP)) - RCONST(4511) = (j('mek')) - RCONST(4512) = (j('ch3o2h')) - RCONST(4513) = (KDEC) - RCONST(4514) = (2.77D-12) - RCONST(4515) = (j('biacet')) - RCONST(4516) = (1.45D-11) - RCONST(4517) = (j('mek')) - RCONST(4518) = (j('ch3o2h')+j('mek')) - RCONST(4519) = (5.29D-11) - RCONST(4520) = (j('n_c3h7ono2')+j('mek')) - RCONST(4521) = (1.57D-12) - RCONST(4522) = (1.30D+11*EXP(-4127/TEMP)) - RCONST(4523) = (KROPRIM*O2) - RCONST(4524) = (j('i_c3h7cho')) - RCONST(4525) = (KNO3AL*8.5) - RCONST(4526) = (7.22D-11) - RCONST(4527) = (j('mek')) - RCONST(4528) = (1.39D-11) - RCONST(4529) = (1.43D-10) - RCONST(4530) = (j('ch3o2h')+j('mek')) - RCONST(4531) = (6.28D-12) - RCONST(4532) = (j('1_c4h9ono2')) - RCONST(4533) = (2.70D+14*EXP(-7398/TEMP)) - RCONST(4534) = (KROSEC*O2) - RCONST(4535) = (1.83D-11) - RCONST(4536) = (j('mek')*2) - RCONST(4537) = (4.31D-11) - RCONST(4538) = (j('mek')) - RCONST(4539) = (6.87D-12) - RCONST(4540) = (j('ch3o2h')) - RCONST(4541) = (KDEC) - RCONST(4542) = (3.64D-12) - RCONST(4543) = (1.90D-12*EXP(190/TEMP)) - RCONST(4544) = (1.23D-11) - RCONST(4545) = (j('ch3o2h')) - RCONST(4546) = (KROSEC*O2) - RCONST(4547) = (4.00D+05) - RCONST(4548) = (5.50D-12) - RCONST(4549) = (5.55D-12) - RCONST(4550) = (j('2_c4h9ono2')) - RCONST(4551) = (KRO2HO2*0.914) - RCONST(4552) = (KRO2NO) - RCONST(4553) = (KRO2NO3) - RCONST(4554) = (9.20D-14*0.7*RO2) - RCONST(4555) = (9.20D-14*0.3*RO2) - RCONST(4556) = (KRO2HO2*0.914) - RCONST(4557) = (KRO2NO) - RCONST(4558) = (KRO2NO3) - RCONST(4559) = (2.00D-12*RO2*0.05) - RCONST(4560) = (2.00D-12*RO2*0.90) - RCONST(4561) = (2.00D-12*RO2*0.05) - RCONST(4562) = (1.20D-15) - RCONST(4563) = (1.00D-14) - RCONST(4564) = (1.00D-15) - RCONST(4565) = (7.00D-14) - RCONST(4566) = (1.40D-17*H2O) - RCONST(4567) = (2.00D-18*H2O) - RCONST(4568) = (KRO2HO2*0.890) - RCONST(4569) = (KRO2NO*0.157) - RCONST(4570) = (KRO2NO*0.843) - RCONST(4571) = (KRO2NO3) - RCONST(4572) = (1.30D-12*0.6*RO2) - RCONST(4573) = (1.30D-12*0.2*RO2) - RCONST(4574) = (1.30D-12*0.2*RO2) - RCONST(4575) = (1.83D-11) - RCONST(4576) = (j('ch3o2h')) - RCONST(4577) = (KDEC) - RCONST(4578) = (1.49D-11) - RCONST(4579) = (3.28D-11) - RCONST(4580) = (j('ch3o2h')) - RCONST(4581) = (KDEC) - RCONST(4582) = (8.18D-12) - RCONST(4583) = (1.03D-10) - RCONST(4584) = (j('ch3o2h')) - RCONST(4585) = (9.87D-11) - RCONST(4586) = (j('2_c4h9ono2')) - RCONST(4587) = (KDEC) - RCONST(4588) = (9.91D-11) - RCONST(4589) = (9.58D-12) - RCONST(4590) = (j('ch3o2h')) - RCONST(4591) = (KDEC) - RCONST(4592) = (6.12D-12) - RCONST(4593) = (9.08D-12) - RCONST(4594) = (j('ch3o2h')) - RCONST(4595) = (7.00D+03) - RCONST(4596) = (4.70D-12) - RCONST(4597) = (KNO3AL*8.5) - RCONST(4598) = (8.63D-12) - RCONST(4599) = (j('n_c3h7cho_hco')) - RCONST(4600) = (KRO2HO2*0.890) - RCONST(4601) = (KRO2NO*0.157) - RCONST(4602) = (KRO2NO*0.843) - RCONST(4603) = (KRO2NO3) - RCONST(4604) = (2.50D-13*RO2*0.2) - RCONST(4605) = (2.50D-13*RO2*0.6) - RCONST(4606) = (2.50D-13*RO2*0.2) - RCONST(4607) = (KRO2HO2*0.890) - RCONST(4608) = (KRO2NO*0.157) - RCONST(4609) = (KRO2NO*0.843) - RCONST(4610) = (KRO2NO3) - RCONST(4611) = (2.50D-13*RO2*0.2) - RCONST(4612) = (2.50D-13*RO2*0.6) - RCONST(4613) = (2.50D-13*RO2*0.2) - RCONST(4614) = (KRO2HO2*0.890) - RCONST(4615) = (KRO2NO*0.118) - RCONST(4616) = (KRO2NO*0.882) - RCONST(4617) = (KRO2NO3) - RCONST(4618) = (6.70D-15*RO2*0.7) - RCONST(4619) = (6.70D-15*RO2*0.3) - RCONST(4620) = (KRO2HO2*0.890) - RCONST(4621) = (KRO2NO) - RCONST(4622) = (KRO2NO3) - RCONST(4623) = (2.00D-12*RO2*0.05) - RCONST(4624) = (2.00D-12*RO2*0.9) - RCONST(4625) = (2.00D-12*RO2*0.05) - RCONST(4626) = (3.04D-12) - RCONST(4627) = (1.20D-15) - RCONST(4628) = (1.00D-14) - RCONST(4629) = (1.00D-15) - RCONST(4630) = (7.00D-14) - RCONST(4631) = (6.00D-18*H2O) - RCONST(4632) = (1.33D-11) - RCONST(4633) = (j('ch3o2h')) - RCONST(4634) = (KDEC) - RCONST(4635) = (9.88D-12) - RCONST(4636) = (1.90D-11) - RCONST(4637) = (j('ch3o2h')) - RCONST(4638) = (KDEC) - RCONST(4639) = (KNO3AL*8.5) - RCONST(4640) = (3.17D-11) - RCONST(4641) = (j('i_c3h7cho')) - RCONST(4642) = (9.72D-11) - RCONST(4643) = (j('ch3o2h')) - RCONST(4644) = (9.38D-11) - RCONST(4645) = (j('2_c4h9ono2')) - RCONST(4646) = (KDEC) - RCONST(4647) = (9.37D-11) - RCONST(4648) = (4.28D-11) - RCONST(4649) = (j('ch3o2h')) - RCONST(4650) = (KDEC) - RCONST(4651) = (5.91D-11) - RCONST(4652) = (KRO2HO2*0.914) - RCONST(4653) = (KRO2NO) - RCONST(4654) = (KRO2NO3) - RCONST(4655) = (8.80D-13*RO2*0.2) - RCONST(4656) = (8.80D-13*RO2*0.6) - RCONST(4657) = (8.80D-13*RO2*0.2) - RCONST(4658) = (KRO2HO2*0.914) - RCONST(4659) = (KRO2NO) - RCONST(4660) = (KRO2NO3) - RCONST(4661) = (8.80D-13*RO2*0.05) - RCONST(4662) = (8.80D-13*RO2*0.9) - RCONST(4663) = (8.80D-13*RO2*0.05) - RCONST(4664) = (KRO2HO2*0.890) - RCONST(4665) = (KRO2NO*0.157) - RCONST(4666) = (KRO2NO*0.843) - RCONST(4667) = (KRO2NO3) - RCONST(4668) = (1.32D-12*RO2*0.6) - RCONST(4669) = (1.32D-12*RO2*0.2) - RCONST(4670) = (1.32D-12*RO2*0.2) - RCONST(4671) = (1.20D-15) - RCONST(4672) = (1.00D-14) - RCONST(4673) = (1.00D-15) - RCONST(4674) = (7.00D-14) - RCONST(4675) = (1.40D-17*H2O) - RCONST(4676) = (2.00D-18*H2O) - RCONST(4677) = (7.36D-11) - RCONST(4678) = (j('ch3o2h')) - RCONST(4679) = (6.20D-11) - RCONST(4680) = (KDEC) - RCONST(4681) = (7.02D-11) - RCONST(4682) = (1.04D-10) - RCONST(4683) = (j('ch3o2h')) - RCONST(4684) = (KDEC) - RCONST(4685) = (6.70D-11) - RCONST(4686) = (1.03D-10) - RCONST(4687) = (j('ch3o2h')) - RCONST(4688) = (9.31D-11) - RCONST(4689) = (KDEC) - RCONST(4690) = (9.94D-11) - RCONST(4691) = (6.25D-11) - RCONST(4692) = (j('ch3o2h')) - RCONST(4693) = (KDEC) - RCONST(4694) = (5.91D-11) - RCONST(4695) = (KNO3AL*8.5) - RCONST(4696) = (3.30D-13) - RCONST(4697) = (1.10D-16*0.670) - RCONST(4698) = (1.10D-16*0.330) - RCONST(4699) = (8.55D-11*0.012) - RCONST(4700) = (8.55D-11*0.001) - RCONST(4701) = (8.55D-11*0.012) - RCONST(4702) = (8.55D-11*0.695) - RCONST(4703) = (8.55D-11*0.281) - RCONST(4704) = (j('n_c3h7cho_hco')) - RCONST(4705) = (1.10D-16*0.4) - RCONST(4706) = (1.10D-16*0.6) - RCONST(4707) = (7.29D-11) - RCONST(4708) = (1.10D-16*0.330) - RCONST(4709) = (1.10D-16*0.670) - RCONST(4710) = (6.98D-11) - RCONST(4711) = (KRO2HO2*0.975) - RCONST(4712) = (KRO2NO) - RCONST(4713) = (KRO2NO3) - RCONST(4714) = (2.00D-12*RO2*0.2) - RCONST(4715) = (2.00D-12*RO2*0.6) - RCONST(4716) = (2.00D-12*RO2*0.2) - RCONST(4717) = (KRO2HO2*0.975) - RCONST(4718) = (KRO2NO) - RCONST(4719) = (KRO2NO3) - RCONST(4720) = (2.00D-12*RO2*0.2) - RCONST(4721) = (2.00D-12*RO2*0.6) - RCONST(4722) = (2.00D-12*RO2*0.2) - RCONST(4723) = (1.10D-16*0.670) - RCONST(4724) = (1.10D-16*0.330) - RCONST(4725) = (6.98D-11) - RCONST(4726) = (KRO2HO2*0.959) - RCONST(4727) = (KRO2NO*0.178) - RCONST(4728) = (KRO2NO*0.822) - RCONST(4729) = (KRO2NO3) - RCONST(4730) = (1.30D-12*RO2*0.2) - RCONST(4731) = (1.30D-12*RO2*0.6) - RCONST(4732) = (1.30D-12*RO2*0.2) - RCONST(4733) = (KRO2HO2*0.975) - RCONST(4734) = (KRO2NO) - RCONST(4735) = (KRO2NO3) - RCONST(4736) = (2.00D-12*RO2*0.2) - RCONST(4737) = (2.00D-12*RO2*0.6) - RCONST(4738) = (2.00D-12*RO2*0.2) - RCONST(4739) = (KRO2HO2*0.968) - RCONST(4740) = (KRO2NO*0.180) - RCONST(4741) = (KRO2NO*0.820) - RCONST(4742) = (KRO2NO3) - RCONST(4743) = (1.32D-12*RO2*0.2) - RCONST(4744) = (1.32D-12*RO2*0.6) - RCONST(4745) = (1.32D-12*RO2*0.2) - RCONST(4746) = (7.36D-11) - RCONST(4747) = (j('ch3o2h')) - RCONST(4748) = (6.20D-11) - RCONST(4749) = (KDEC) - RCONST(4750) = (7.02D-11) - RCONST(4751) = (1.04D-10) - RCONST(4752) = (j('ch3o2h')) - RCONST(4753) = (KDEC) - RCONST(4754) = (6.70D-11) - RCONST(4755) = (1.03D-10) - RCONST(4756) = (j('ch3o2h')) - RCONST(4757) = (9.31D-11) - RCONST(4758) = (KDEC) - RCONST(4759) = (9.94D-11) - RCONST(4760) = (KAPHO2*0.15) - RCONST(4761) = (KAPHO2*0.41) - RCONST(4762) = (KAPHO2*0.44) - RCONST(4763) = (KAPNO) - RCONST(4764) = (KFPAN) - RCONST(4765) = (KRO2NO3*1.74) - RCONST(4766) = (1.00D-11*0.3*RO2) - RCONST(4767) = (1.00D-11*0.7*RO2) - RCONST(4768) = (KAPHO2*0.15) - RCONST(4769) = (KAPHO2*0.41) - RCONST(4770) = (KAPHO2*0.44) - RCONST(4771) = (KAPNO) - RCONST(4772) = (KFPAN) - RCONST(4773) = (KRO2NO3*1.74) - RCONST(4774) = (1.00D-11*0.3*RO2) - RCONST(4775) = (1.00D-11*0.7*RO2) - RCONST(4776) = (KRO2HO2*0.706) - RCONST(4777) = (KRO2NO*0.026) - RCONST(4778) = (KRO2NO*0.974) - RCONST(4779) = (KRO2NO3) - RCONST(4780) = (8.40D-13*0.2*RO2) - RCONST(4781) = (8.40D-13*0.6*RO2) - RCONST(4782) = (8.40D-13*0.2*RO2) - RCONST(4783) = (KAPHO2*0.56) - RCONST(4784) = (KAPHO2*0.44) - RCONST(4785) = (KAPNO) - RCONST(4786) = (KFPAN) - RCONST(4787) = (KRO2NO3*1.74) - RCONST(4788) = (1.00D-11*RO2) - RCONST(4789) = (6.26D-12) - RCONST(4790) = (j('ch3o2h')) - RCONST(4791) = (9.72D-12) - RCONST(4792) = (KBPAN) - RCONST(4793) = (2.20D-12) - RCONST(4794) = (8.88D-12) - RCONST(4795) = (1.23D-11) - RCONST(4796) = (j('ch3o2h')) - RCONST(4797) = (3.07D-12) - RCONST(4798) = (KBPAN) - RCONST(4799) = (2.56D-11) - RCONST(4800) = (j('ch3o2h')+j('i_c3h7cho')) - RCONST(4801) = (2.10D-11) - RCONST(4802) = (j('2_c4h9ono2')) - RCONST(4803) = (j('i_c3h7cho')) - RCONST(4804) = (KDEC) - RCONST(4805) = (KNO3AL*8.5) - RCONST(4806) = (1.52D-11) - RCONST(4807) = (j('ch3cocho')) - RCONST(4808) = (KRO2HO2*0.706) - RCONST(4809) = (KRO2NO*0.010) - RCONST(4810) = (KRO2NO*0.990) - RCONST(4811) = (KRO2NO3) - RCONST(4812) = (2.00D-12*0.6*RO2) - RCONST(4813) = (2.00D-12*0.2*RO2) - RCONST(4814) = (2.00D-12*0.2*RO2) - RCONST(4815) = (KAPHO2*0.56) - RCONST(4816) = (KAPHO2*0.44) - RCONST(4817) = (KAPNO) - RCONST(4818) = (KFPAN) - RCONST(4819) = (KRO2NO3*1.74) - RCONST(4820) = (1.00D-11*RO2) - RCONST(4821) = (KAPHO2*0.44) - RCONST(4822) = (KAPHO2*0.56) - RCONST(4823) = (KAPNO) - RCONST(4824) = (KFPAN) - RCONST(4825) = (KRO2NO3*1.74) - RCONST(4826) = (1.00D-11*RO2) - RCONST(4827) = (KRO2HO2*0.706) - RCONST(4828) = (KRO2NO*0.010) - RCONST(4829) = (KRO2NO*0.990) - RCONST(4830) = (KRO2NO3) - RCONST(4831) = (2.00D-12*0.2*RO2) - RCONST(4832) = (2.00D-12*0.6*RO2) - RCONST(4833) = (2.00D-12*0.2*RO2) - RCONST(4834) = (KAPHO2*0.44) - RCONST(4835) = (KAPHO2*0.15) - RCONST(4836) = (KAPHO2*0.41) - RCONST(4837) = (KAPNO) - RCONST(4838) = (KFPAN) - RCONST(4839) = (KRO2NO3*1.74) - RCONST(4840) = (1.00D-11*0.7*RO2) - RCONST(4841) = (1.00D-11*0.3*RO2) - RCONST(4842) = (2*KNO3AL*5.5) - RCONST(4843) = (5.22D-11*0.178) - RCONST(4844) = (5.22D-11*0.822) - RCONST(4845) = (j('n_c3h7cho_hco')) - RCONST(4846) = (1.07D-11) - RCONST(4847) = (j('mek')) - RCONST(4848) = (2.59D-11) - RCONST(4849) = (KRO2HO2*0.770) - RCONST(4850) = (KRO2NO) - RCONST(4851) = (KRO2NO3) - RCONST(4852) = (2.00D-12*RO2) - RCONST(4853) = (2.00D+14*EXP(-5902/TEMP)) - RCONST(4854) = (KDEC) - RCONST(4855) = (2.73D-12) - RCONST(4856) = (6.19D-12) - RCONST(4857) = (j('ch3o2h')) - RCONST(4858) = (1.12D-12) - RCONST(4859) = (KBPAN) - RCONST(4860) = (9.34D-12) - RCONST(4861) = (j('ch3o2h')) - RCONST(4862) = (2.34D-12) - RCONST(4863) = (KBPAN) - RCONST(4864) = (KDEC) - RCONST(4865) = (KAPHO2*0.44) - RCONST(4866) = (KAPHO2*0.56) - RCONST(4867) = (KAPNO) - RCONST(4868) = (KFPAN) - RCONST(4869) = (KRO2NO3*1.74) - RCONST(4870) = (1.00D-11*RO2) - RCONST(4871) = (1.72D-12) - RCONST(4872) = (j('ch3o2h')) - RCONST(4873) = (4.80D-12) - RCONST(4874) = (KBPAN) - RCONST(4875) = (4.75D-13) - RCONST(4876) = (1.38D-11) - RCONST(4877) = (j('ch3cocho')) - RCONST(4878) = (KAPHO2*0.56) - RCONST(4879) = (KAPHO2*0.44) - RCONST(4880) = (KAPNO) - RCONST(4881) = (KFPAN) - RCONST(4882) = (KRO2NO3*1.74) - RCONST(4883) = (1.00D-11*RO2) - RCONST(4884) = (KAPHO2*0.44) - RCONST(4885) = (KAPHO2*0.56) - RCONST(4886) = (KAPNO) - RCONST(4887) = (KFPAN) - RCONST(4888) = (KRO2NO3*1.74) - RCONST(4889) = (1.00D-11*RO2) - RCONST(4890) = (KAPHO2*0.15) - RCONST(4891) = (KAPHO2*0.41) - RCONST(4892) = (KAPHO2*0.44) - RCONST(4893) = (KAPNO) - RCONST(4894) = (KFPAN) - RCONST(4895) = (KRO2NO3*1.74) - RCONST(4896) = (1.00D-11*0.3*RO2) - RCONST(4897) = (1.00D-11*0.7*RO2) - RCONST(4898) = (KAPHO2*0.44) - RCONST(4899) = (KAPHO2*0.15) - RCONST(4900) = (KAPHO2*0.41) - RCONST(4901) = (KAPNO) - RCONST(4902) = (KFPAN) - RCONST(4903) = (KRO2NO3*1.74) - RCONST(4904) = (1.00D-11*0.7*RO2) - RCONST(4905) = (1.00D-11*0.3*RO2) - RCONST(4906) = (KRO2HO2*0.520) - RCONST(4907) = (KRO2NO) - RCONST(4908) = (KRO2NO3) - RCONST(4909) = (2.00D-12*0.2*RO2) - RCONST(4910) = (2.00D-12*0.2*RO2) - RCONST(4911) = (2.00D-12*0.6*RO2) - RCONST(4912) = (KAPHO2*0.15) - RCONST(4913) = (KAPHO2*0.41) - RCONST(4914) = (KAPHO2*0.44) - RCONST(4915) = (KAPNO) - RCONST(4916) = (KFPAN) - RCONST(4917) = (KRO2NO3*1.74) - RCONST(4918) = (1.00D-11*0.3*RO2) - RCONST(4919) = (1.00D-11*0.7*RO2) - RCONST(4920) = (KRO2HO2*0.625) - RCONST(4921) = (KRO2NO*0.013) - RCONST(4922) = (KRO2NO*0.987) - RCONST(4923) = (KRO2NO3) - RCONST(4924) = (1.30D-12*0.6*RO2) - RCONST(4925) = (1.30D-12*0.2*RO2) - RCONST(4926) = (1.30D-12*0.2*RO2) - RCONST(4927) = (KAPHO2*0.44) - RCONST(4928) = (KAPHO2*0.15) - RCONST(4929) = (KAPHO2*0.41) - RCONST(4930) = (KAPNO) - RCONST(4931) = (KFPAN) - RCONST(4932) = (KRO2NO3*1.74) - RCONST(4933) = (1.00E-11*0.7*RO2) - RCONST(4934) = (1.00E-11*0.3*RO2) - RCONST(4935) = (KAPHO2*0.44) - RCONST(4936) = (KAPHO2*0.56) - RCONST(4937) = (KAPNO) - RCONST(4938) = (KFPAN) - RCONST(4939) = (KRO2NO3*1.74) - RCONST(4940) = (1.00D-11*RO2) - RCONST(4941) = (j('n_c3h7ono2')) - RCONST(4942) = (j('ch3cocho')) - RCONST(4943) = (KNO3AL*2.4) - RCONST(4944) = (1.24D-11) - RCONST(4945) = (KAPHO2*0.15) - RCONST(4946) = (KAPHO2*0.41) - RCONST(4947) = (KAPHO2*0.44) - RCONST(4948) = (KAPNO) - RCONST(4949) = (KFPAN) - RCONST(4950) = (KRO2NO3*1.74) - RCONST(4951) = (1.00D-11*0.7*RO2) - RCONST(4952) = (1.00D-11*0.3*RO2) - RCONST(4953) = (j('ch3cocho')) - RCONST(4954) = (1.23D-11) - RCONST(4955) = (4.33D-12) - RCONST(4956) = (8.83D-13) - RCONST(4957) = (6.78D-12) - RCONST(4958) = (j('ch3coch2ono2')*10) - RCONST(4959) = (KAPHO2*0.44) - RCONST(4960) = (KAPHO2*0.15) - RCONST(4961) = (KAPHO2*0.41) - RCONST(4962) = (KAPNO) - RCONST(4963) = (KFPAN) - RCONST(4964) = (KRO2NO3*1.74) - RCONST(4965) = (1.00D-11*0.7*RO2) - RCONST(4966) = (1.00D-11*0.3*RO2) - RCONST(4967) = (KAPHO2*0.15) - RCONST(4968) = (KAPHO2*0.41) - RCONST(4969) = (KAPHO2*0.44) - RCONST(4970) = (KAPNO) - RCONST(4971) = (KFPAN) - RCONST(4972) = (KRO2NO3*1.74) - RCONST(4973) = (1.00D-11*0.3*RO2) - RCONST(4974) = (1.00D-11*0.7*RO2) - RCONST(4975) = (KAPHO2*0.56) - RCONST(4976) = (KAPHO2*0.44) - RCONST(4977) = (KAPNO) - RCONST(4978) = (KFPAN) - RCONST(4979) = (KRO2NO3*1.74) - RCONST(4980) = (1.00D-11*RO2) - RCONST(4981) = (KDEC*0.5) - RCONST(4982) = (KDEC*0.5) - RCONST(4983) = (KAPHO2*0.56) - RCONST(4984) = (KAPHO2*0.44) - RCONST(4985) = (KAPNO) - RCONST(4986) = (KFPAN) - RCONST(4987) = (KRO2NO3*1.74) - RCONST(4988) = (1.00D-11*RO2) - RCONST(4989) = (KRO2HO2*0.706) - RCONST(4990) = (KRO2NO*0.052) - RCONST(4991) = (KRO2NO*0.948) - RCONST(4992) = (KRO2NO3) - RCONST(4993) = (2.50D-13*0.2*RO2) - RCONST(4994) = (2.50D-13*0.6*RO2) - RCONST(4995) = (2.50D-13*0.2*RO2) - RCONST(4996) = (KRO2HO2*0.706) - RCONST(4997) = (KRO2NO*0.021) - RCONST(4998) = (KRO2NO*0.979) - RCONST(4999) = (KRO2NO3) - RCONST(5000) = (1.30D-12*0.2*RO2) - RCONST(5001) = (1.30D-12*0.6*RO2) - RCONST(5002) = (1.30D-12*0.2*RO2) - RCONST(5003) = (KRO2HO2*0.706) - RCONST(5004) = (KRO2NO*0.021) - RCONST(5005) = (KRO2NO*0.979) - RCONST(5006) = (KRO2NO3) - RCONST(5007) = (1.30D-12*0.6*RO2) - RCONST(5008) = (1.30D-12*0.2*RO2) - RCONST(5009) = (1.30D-12*0.2*RO2) - RCONST(5010) = (KAPHO2*0.56) - RCONST(5011) = (KAPHO2*0.44) - RCONST(5012) = (KAPNO) - RCONST(5013) = (KFPAN) - RCONST(5014) = (KRO2NO3*1.74) - RCONST(5015) = (1.00D-11*RO2) - RCONST(5016) = (KRO2HO2*0.770) - RCONST(5017) = (KRO2NO*0.078) - RCONST(5018) = (KRO2NO*0.922) - RCONST(5019) = (KRO2NO3) - RCONST(5020) = (2.50D-13*0.2*RO2) - RCONST(5021) = (2.50D-13*0.6*RO2) - RCONST(5022) = (2.50D-13*0.2*RO2) - RCONST(5023) = (KAPHO2*0.56) - RCONST(5024) = (KAPHO2*0.44) - RCONST(5025) = (KAPNO) - RCONST(5026) = (KFPAN) - RCONST(5027) = (KRO2NO3*1.74) - RCONST(5028) = (1.00D-11*RO2) - RCONST(5029) = (KRO2HO2*0.770) - RCONST(5030) = (KRO2NO*0.078) - RCONST(5031) = (KRO2NO*0.922) - RCONST(5032) = (KRO2NO3) - RCONST(5033) = (2.50D-13*0.2*RO2) - RCONST(5034) = (2.50D-13*0.6*RO2) - RCONST(5035) = (2.50D-13*0.2*RO2) - RCONST(5036) = (KRO2HO2*0.770) - RCONST(5037) = (KRO2NO*0.031) - RCONST(5038) = (KRO2NO*0.969) - RCONST(5039) = (KRO2NO3) - RCONST(5040) = (1.30D-12*0.2*RO2) - RCONST(5041) = (1.30D-12*0.2*RO2) - RCONST(5042) = (1.30D-12*0.6*RO2) - RCONST(5043) = (KRO2HO2*0.770) - RCONST(5044) = (KRO2NO*0.078) - RCONST(5045) = (KRO2NO*0.922) - RCONST(5046) = (KRO2NO3) - RCONST(5047) = (2.50D-13*0.2*RO2) - RCONST(5048) = (2.50D-13*0.2*RO2) - RCONST(5049) = (2.50D-13*0.6*RO2) - RCONST(5050) = (KAPHO2*0.56) - RCONST(5051) = (KAPHO2*0.44) - RCONST(5052) = (KAPNO) - RCONST(5053) = (KFPAN) - RCONST(5054) = (KRO2NO3*1.74) - RCONST(5055) = (1.00D-11*RO2) - RCONST(5056) = (KRO2HO2*0.770) - RCONST(5057) = (KRO2NO*0.031) - RCONST(5058) = (KRO2NO*0.969) - RCONST(5059) = (KRO2NO3) - RCONST(5060) = (1.30D-12*0.2*RO2) - RCONST(5061) = (1.30D-12*0.2*RO2) - RCONST(5062) = (1.30D-12*0.6*RO2) - RCONST(5063) = (KRO2HO2*0.770) - RCONST(5064) = (KRO2NO) - RCONST(5065) = (KRO2NO3) - RCONST(5066) = (9.20D-14*0.7*RO2) - RCONST(5067) = (9.20D-14*0.3*RO2) - RCONST(5068) = (KRO2HO2*0.770) - RCONST(5069) = (KRO2NO*0.078) - RCONST(5070) = (KRO2NO*0.922) - RCONST(5071) = (KRO2NO3) - RCONST(5072) = (1.30D-12*0.2*RO2) - RCONST(5073) = (1.30D-12*0.6*RO2) - RCONST(5074) = (1.30D-12*0.2*RO2) - RCONST(5075) = (KRO2HO2*0.770) - RCONST(5076) = (KRO2NO*0.031) - RCONST(5077) = (KRO2NO*0.969) - RCONST(5078) = (KRO2NO3) - RCONST(5079) = (1.30D-12*0.2*RO2) - RCONST(5080) = (1.30D-12*0.6*RO2) - RCONST(5081) = (1.30D-12*0.2*RO2) - RCONST(5082) = (KRO2HO2*0.770) - RCONST(5083) = (KRO2NO*0.078) - RCONST(5084) = (KRO2NO*0.922) - RCONST(5085) = (KRO2NO3) - RCONST(5086) = (2.50D-13*0.2*RO2) - RCONST(5087) = (2.50D-13*0.6*RO2) - RCONST(5088) = (2.50D-13*0.2*RO2) - RCONST(5089) = (KAPHO2*0.44) - RCONST(5090) = (KAPHO2*0.56) - RCONST(5091) = (KAPNO) - RCONST(5092) = (KFPAN) - RCONST(5093) = (KRO2NO3*1.74) - RCONST(5094) = (1.00D-11*RO2) - RCONST(5095) = (KRO2HO2*0.770) - RCONST(5096) = (KRO2NO*0.031) - RCONST(5097) = (KRO2NO*0.969) - RCONST(5098) = (KRO2NO3) - RCONST(5099) = (1.30D-12*0.2*RO2) - RCONST(5100) = (1.30D-12*0.6*RO2) - RCONST(5101) = (1.30D-12*0.2*RO2) - RCONST(5102) = (KRO2HO2*0.770) - RCONST(5103) = (KRO2NO*0.195) - RCONST(5104) = (KRO2NO*0.805) - RCONST(5105) = (KRO2NO3) - RCONST(5106) = (2.50D-13*0.2*RO2) - RCONST(5107) = (2.50D-13*0.6*RO2) - RCONST(5108) = (2.50D-13*0.2*RO2) - RCONST(5109) = (KRO2HO2*0.770) - RCONST(5110) = (KRO2NO) - RCONST(5111) = (KRO2NO3) - RCONST(5112) = (9.20D-14*0.7*RO2) - RCONST(5113) = (9.20D-14*0.3*RO2) - RCONST(5114) = (KRO2HO2*0.770) - RCONST(5115) = (KRO2NO*0.031) - RCONST(5116) = (KRO2NO*0.969) - RCONST(5117) = (KRO2NO3) - RCONST(5118) = (1.30D-12*0.2*RO2) - RCONST(5119) = (1.30D-12*0.6*RO2) - RCONST(5120) = (1.30D-12*0.2*RO2) - RCONST(5121) = (KAPHO2*0.56) - RCONST(5122) = (KAPHO2*0.44) - RCONST(5123) = (KAPNO) - RCONST(5124) = (KFPAN) - RCONST(5125) = (KRO2NO3*1.74) - RCONST(5126) = (1.00D-11*RO2) - RCONST(5127) = (KRO2HO2*0.770) - RCONST(5128) = (KRO2NO*0.031) - RCONST(5129) = (KRO2NO*0.969) - RCONST(5130) = (KRO2NO3) - RCONST(5131) = (1.30D-12*0.2*RO2) - RCONST(5132) = (1.30D-12*0.6*RO2) - RCONST(5133) = (1.30D-12*0.2*RO2) - RCONST(5134) = (KAPHO2*0.44) - RCONST(5135) = (KAPHO2*0.15) - RCONST(5136) = (KAPHO2*0.41) - RCONST(5137) = (KAPNO) - RCONST(5138) = (KFPAN) - RCONST(5139) = (KRO2NO3*1.74) - RCONST(5140) = (1.00D-11*0.7*RO2) - RCONST(5141) = (1.00D-11*0.3*RO2) - RCONST(5142) = (KRO2HO2*0.770) - RCONST(5143) = (KRO2NO*0.031) - RCONST(5144) = (KRO2NO*0.969) - RCONST(5145) = (KRO2NO3) - RCONST(5146) = (1.30D-12*0.6*RO2) - RCONST(5147) = (1.30D-12*0.2*RO2) - RCONST(5148) = (1.30D-12*0.2*RO2) - RCONST(5149) = (KAPHO2*0.44) - RCONST(5150) = (KAPHO2*0.15) - RCONST(5151) = (KAPHO2*0.41) - RCONST(5152) = (KAPNO) - RCONST(5153) = (KFPAN) - RCONST(5154) = (KRO2NO3*1.74) - RCONST(5155) = (1.00D-11*0.7*RO2) - RCONST(5156) = (1.00D-11*0.3*RO2) - RCONST(5157) = (KRO2HO2*0.820) - RCONST(5158) = (KRO2NO*0.111) - RCONST(5159) = (KRO2NO*0.889) - RCONST(5160) = (KRO2NO3) - RCONST(5161) = (2.50D-13*0.2*RO2) - RCONST(5162) = (2.50D-13*0.6*RO2) - RCONST(5163) = (2.50D-13*0.2*RO2) - RCONST(5164) = (KRO2HO2*0.820) - RCONST(5165) = (KRO2NO) - RCONST(5166) = (KRO2NO3) - RCONST(5167) = (2.50D-13*RO2) - RCONST(5168) = (KRO2HO2*0.820) - RCONST(5169) = (KRO2NO*0.033) - RCONST(5170) = (KRO2NO*0.967) - RCONST(5171) = (KRO2NO3) - RCONST(5172) = (6.70D-15*0.3*RO2) - RCONST(5173) = (6.70D-15*0.7*RO2) - RCONST(5174) = (KRO2HO2*0.820) - RCONST(5175) = (KRO2NO) - RCONST(5176) = (KRO2NO3) - RCONST(5177) = (8.80D-13*RO2) - RCONST(5178) = (KRO2HO2*0.820) - RCONST(5179) = (KRO2NO*0.111) - RCONST(5180) = (KRO2NO*0.889) - RCONST(5181) = (KRO2NO3) - RCONST(5182) = (2.50D-13*0.2*RO2) - RCONST(5183) = (2.50D-13*0.6*RO2) - RCONST(5184) = (2.50D-13*0.2*RO2) - RCONST(5185) = (KRO2HO2*0.820) - RCONST(5186) = (KRO2NO*0.111) - RCONST(5187) = (KRO2NO*0.889) - RCONST(5188) = (KRO2NO3) - RCONST(5189) = (2.50D-13*0.2*RO2) - RCONST(5190) = (2.50D-13*0.6*RO2) - RCONST(5191) = (2.50D-13*0.2*RO2) - RCONST(5192) = (KRO2HO2*0.820) - RCONST(5193) = (KRO2NO) - RCONST(5194) = (KRO2NO3) - RCONST(5195) = (6.70D-15*RO2) - RCONST(5196) = (KRO2HO2*0.820) - RCONST(5197) = (KRO2NO*0.044) - RCONST(5198) = (KRO2NO*0.956) - RCONST(5199) = (KRO2NO3) - RCONST(5200) = (1.30D-12*0.2*RO2) - RCONST(5201) = (1.30D-12*0.2*RO2) - RCONST(5202) = (1.30D-12*0.6*RO2) - RCONST(5203) = (KRO2HO2*0.859) - RCONST(5204) = (KRO2NO*0.138) - RCONST(5205) = (KRO2NO*0.862) - RCONST(5206) = (KRO2NO3) - RCONST(5207) = (2.50D-13*0.2*RO2) - RCONST(5208) = (2.50D-13*0.6*RO2) - RCONST(5209) = (2.50D-13*0.2*RO2) - RCONST(5210) = (KRO2HO2*0.859) - RCONST(5211) = (KRO2NO) - RCONST(5212) = (KRO2NO3) - RCONST(5213) = (2.50D-13*RO2) - RCONST(5214) = (KRO2HO2*0.890) - RCONST(5215) = (KRO2NO*0.157) - RCONST(5216) = (KRO2NO*0.843) - RCONST(5217) = (KRO2NO3) - RCONST(5218) = (2.50D-13*0.2*RO2) - RCONST(5219) = (2.50D-13*0.6*RO2) - RCONST(5220) = (2.50D-13*0.2*RO2) - RCONST(5221) = (KRO2HO2*0.890) - RCONST(5222) = (KRO2NO) - RCONST(5223) = (KRO2NO3) - RCONST(5224) = (2.50D-13*RO2) - RCONST(5225) = (KRO2HO2*0.914) - RCONST(5226) = (KRO2NO*0.167) - RCONST(5227) = (KRO2NO*0.833) - RCONST(5228) = (KRO2NO3) - RCONST(5229) = (2.50D-13*0.2*RO2) - RCONST(5230) = (2.50D-13*0.6*RO2) - RCONST(5231) = (2.50D-13*0.2*RO2) - RCONST(5232) = (KRO2HO2*0.914) - RCONST(5233) = (KRO2NO) - RCONST(5234) = (KRO2NO3) - RCONST(5235) = (2.50D-13*RO2) - RCONST(5236) = (KRO2HO2*0.932) - RCONST(5237) = (KRO2NO*0.172) - RCONST(5238) = (KRO2NO*0.828) - RCONST(5239) = (KRO2NO3) - RCONST(5240) = (2.50D-13*0.2*RO2) - RCONST(5241) = (2.50D-13*0.6*RO2) - RCONST(5242) = (2.50D-13*0.2*RO2) - RCONST(5243) = (KRO2HO2*0.932) - RCONST(5244) = (KRO2NO) - RCONST(5245) = (KRO2NO3) - RCONST(5246) = (2.50D-13*RO2) - RCONST(5247) = (KRO2HO2*0.947) - RCONST(5248) = (KRO2NO*0.176) - RCONST(5249) = (KRO2NO*0.824) - RCONST(5250) = (KRO2NO3) - RCONST(5251) = (2.50D-13*0.2*RO2) - RCONST(5252) = (2.50D-13*0.6*RO2) - RCONST(5253) = (2.50D-13*0.2*RO2) - RCONST(5254) = (KRO2HO2*0.947) - RCONST(5255) = (KRO2NO) - RCONST(5256) = (KRO2NO3) - RCONST(5257) = (2.50D-13*RO2) - RCONST(5258) = (KRO2HO2*0.770) - RCONST(5259) = (KRO2NO*0.078) - RCONST(5260) = (KRO2NO*0.922) - RCONST(5261) = (KRO2NO3) - RCONST(5262) = (1.30D-12*RO2*0.2) - RCONST(5263) = (1.30D-12*RO2*0.6) - RCONST(5264) = (1.30D-12*RO2*0.2) - RCONST(5265) = (KAPHO2*0.44) - RCONST(5266) = (KAPHO2*0.15) - RCONST(5267) = (KAPHO2*0.41) - RCONST(5268) = (KAPNO) - RCONST(5269) = (KFPAN) - RCONST(5270) = (KRO2NO3*1.74) - RCONST(5271) = (1.00D-11*0.7*RO2) - RCONST(5272) = (1.00D-11*0.3*RO2) - RCONST(5273) = (KAPHO2*0.44) - RCONST(5274) = (KAPHO2*0.15) - RCONST(5275) = (KAPHO2*0.41) - RCONST(5276) = (KAPNO) - RCONST(5277) = (KFPAN) - RCONST(5278) = (KRO2NO3*1.74) - RCONST(5279) = (1.00D-11*0.7*RO2) - RCONST(5280) = (1.00D-11*0.3*RO2) - RCONST(5281) = (KDEC) - RCONST(5282) = (KRO2HO2*0.625) - RCONST(5283) = (KRO2NO) - RCONST(5284) = (KRO2NO3) - RCONST(5285) = (2.50D-13*0.2*RO2) - RCONST(5286) = (2.50D-13*0.6*RO2) - RCONST(5287) = (2.50D-13*0.2*RO2) - RCONST(5288) = (KDEC) - RCONST(5289) = (KAPHO2*0.44) - RCONST(5290) = (KAPHO2*0.56) - RCONST(5291) = (KAPNO) - RCONST(5292) = (KFPAN) - RCONST(5293) = (KRO2NO3*1.74) - RCONST(5294) = (1.00D-11*RO2) - RCONST(5295) = (KAPHO2*0.44) - RCONST(5296) = (KAPHO2*0.15) - RCONST(5297) = (KAPHO2*0.41) - RCONST(5298) = (KAPNO) - RCONST(5299) = (KFPAN) - RCONST(5300) = (KRO2NO3*1.74) - RCONST(5301) = (1.00D-11*0.7*RO2) - RCONST(5302) = (1.00D-11*0.3*RO2) - RCONST(5303) = (KRO2HO2*0.706) - RCONST(5304) = (KRO2NO) - RCONST(5305) = (KRO2NO3) - RCONST(5306) = (8.80D-13*0.2*RO2) - RCONST(5307) = (8.80D-13*0.2*RO2) - RCONST(5308) = (8.80D-13*0.6*RO2) - RCONST(5309) = (KDEC) - RCONST(5310) = (KAPHO2*0.44) - RCONST(5311) = (KAPHO2*0.15) - RCONST(5312) = (KAPHO2*0.41) - RCONST(5313) = (KAPNO) - RCONST(5314) = (KFPAN) - RCONST(5315) = (KRO2NO3*1.74) - RCONST(5316) = (1.00D-11*0.7*RO2) - RCONST(5317) = (1.00D-11*0.3*RO2) - RCONST(5318) = (KDEC) - RCONST(5319) = (KRO2HO2*0.706) - RCONST(5320) = (KRO2NO) - RCONST(5321) = (KRO2NO3) - RCONST(5322) = (8.80D-13*RO2) - RCONST(5323) = (KAPHO2*0.44) - RCONST(5324) = (KAPHO2*0.56) - RCONST(5325) = (KAPNO) - RCONST(5326) = (KFPAN) - RCONST(5327) = (KRO2NO3*1.74) - RCONST(5328) = (1.00D-11*RO2) - RCONST(5329) = (KRO2HO2*0.706) - RCONST(5330) = (KRO2NO) - RCONST(5331) = (KRO2NO3) - RCONST(5332) = (8.80D-13*RO2) - RCONST(5333) = (KRO2HO2*0.706) - RCONST(5334) = (KRO2NO) - RCONST(5335) = (KRO2NO3) - RCONST(5336) = (8.80D-13*RO2) - RCONST(5337) = (KAPHO2*0.15) - RCONST(5338) = (KAPHO2*0.41) - RCONST(5339) = (KAPHO2*0.44) - RCONST(5340) = (KAPNO) - RCONST(5341) = (KFPAN) - RCONST(5342) = (KRO2NO3*1.74) - RCONST(5343) = (1.00D-11*0.3*RO2) - RCONST(5344) = (1.00D-11*0.7*RO2) - RCONST(5345) = (KDEC) - RCONST(5346) = (KRO2HO2*0.706) - RCONST(5347) = (KRO2NO) - RCONST(5348) = (KRO2NO3) - RCONST(5349) = (9.20D-14*0.7*RO2) - RCONST(5350) = (9.20D-14*0.3*RO2) - RCONST(5351) = (KDEC) - RCONST(5352) = (KAPHO2*0.15) - RCONST(5353) = (KAPHO2*0.41) - RCONST(5354) = (KAPHO2*0.44) - RCONST(5355) = (KAPNO) - RCONST(5356) = (KFPAN) - RCONST(5357) = (KRO2NO3*1.74) - RCONST(5358) = (1.00D-11*0.3*RO2) - RCONST(5359) = (1.00D-11*0.7*RO2) - RCONST(5360) = (KDEC) - RCONST(5361) = (KAPHO2*0.56) - RCONST(5362) = (KAPHO2*0.44) - RCONST(5363) = (KAPNO) - RCONST(5364) = (KFPAN) - RCONST(5365) = (KRO2NO3*1.74) - RCONST(5366) = (1.00D-11*RO2) - RCONST(5367) = (KRO2HO2*0.706) - RCONST(5368) = (KRO2NO) - RCONST(5369) = (KRO2NO3) - RCONST(5370) = (2.00D-12*RO2) - RCONST(5371) = (KAPHO2*0.44) - RCONST(5372) = (KAPHO2*0.15) - RCONST(5373) = (KAPHO2*0.41) - RCONST(5374) = (KAPNO) - RCONST(5375) = (KFPAN) - RCONST(5376) = (KRO2NO3*1.74) - RCONST(5377) = (1.00D-11*0.7*RO2) - RCONST(5378) = (1.00D-11*0.3*RO2) - RCONST(5379) = (KRO2HO2*0.770) - RCONST(5380) = (KRO2NO) - RCONST(5381) = (KRO2NO3) - RCONST(5382) = (2.50D-13*0.2*RO2) - RCONST(5383) = (2.50D-13*0.2*RO2) - RCONST(5384) = (2.50D-13*0.6*RO2) - RCONST(5385) = (KRO2HO2*0.770) - RCONST(5386) = (KRO2NO) - RCONST(5387) = (KRO2NO3) - RCONST(5388) = (2.50D-13*0.6*RO2) - RCONST(5389) = (2.50D-13*0.2*RO2) - RCONST(5390) = (2.50D-13*0.2*RO2) - RCONST(5391) = (KAPHO2*0.44) - RCONST(5392) = (KAPHO2*0.56) - RCONST(5393) = (KAPNO) - RCONST(5394) = (KFPAN) - RCONST(5395) = (KRO2NO3*1.74) - RCONST(5396) = (1.00D-11*RO2) - RCONST(5397) = (KRO2HO2*0.770) - RCONST(5398) = (KRO2NO) - RCONST(5399) = (KRO2NO3) - RCONST(5400) = (2.50D-13*0.2*RO2) - RCONST(5401) = (2.50D-13*0.6*RO2) - RCONST(5402) = (2.50D-13*0.2*RO2) - RCONST(5403) = (KRO2HO2*0.770) - RCONST(5404) = (KRO2NO) - RCONST(5405) = (KRO2NO3) - RCONST(5406) = (8.80D-13*0.2*RO2) - RCONST(5407) = (8.80D-13*0.6*RO2) - RCONST(5408) = (8.80D-13*0.2*RO2) - RCONST(5409) = (3.00D-13) - RCONST(5410) = (2.20D-19) - RCONST(5411) = (4.45D-11) - RCONST(5412) = (KAPHO2*0.15) - RCONST(5413) = (KAPHO2*0.41) - RCONST(5414) = (KAPHO2*0.44) - RCONST(5415) = (KAPNO) - RCONST(5416) = (KFPAN) - RCONST(5417) = (KRO2NO3*1.74) - RCONST(5418) = (1.00D-11*0.30*RO2) - RCONST(5419) = (1.00D-11*0.70*RO2) - RCONST(5420) = (4.06D-11) - RCONST(5421) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(5422) = (4.37D-11) - RCONST(5423) = (j('ch3o2h')+j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(5424) = (4.05D-11) - RCONST(5425) = (KBPAN) - RCONST(5426) = (KAPHO2*0.44) - RCONST(5427) = (KAPHO2*0.15) - RCONST(5428) = (KAPHO2*0.41) - RCONST(5429) = (KAPNO) - RCONST(5430) = (KFPAN) - RCONST(5431) = (KRO2NO3*1.74) - RCONST(5432) = (1.00D-11*RO2*0.7) - RCONST(5433) = (1.00D-11*RO2*0.3) - RCONST(5434) = (KRO2HO2*0.520) - RCONST(5435) = (KRO2NO) - RCONST(5436) = (KRO2NO3) - RCONST(5437) = (8.80D-13*RO2*0.2) - RCONST(5438) = (8.80D-13*RO2*0.2) - RCONST(5439) = (8.80D-13*RO2*0.6) - RCONST(5440) = (1.31D-10) - RCONST(5441) = (j('ch3o2h')+j('n_c3h7cho_hco')*2) - RCONST(5442) = (4.38D-11) - RCONST(5443) = (j('i_c3h7cho')) - RCONST(5444) = (KDEC*0.5) - RCONST(5445) = (KDEC*0.5) - RCONST(5446) = (9.20D-11) - RCONST(5447) = (j('n_c3h7cho_hco')*2+j('mek')) - RCONST(5448) = (8.23D-11) - RCONST(5449) = (j('n_c3h7cho_hco')*2) - RCONST(5450) = (7.52D-11) - RCONST(5451) = (j('ch3o2h')) - RCONST(5452) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(5453) = (KDEC) - RCONST(5454) = (4.90D-11) - RCONST(5455) = (j('ch3cocho')+j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(5456) = (7.75D-11) - RCONST(5457) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(5458) = (KRO2HO2*0.625) - RCONST(5459) = (KRO2NO) - RCONST(5460) = (KRO2NO3) - RCONST(5461) = (8.80D-13*0.20*RO2) - RCONST(5462) = (8.80D-13*0.20*RO2) - RCONST(5463) = (8.80D-13*0.60*RO2) - RCONST(5464) = (9.00D-14) - RCONST(5465) = (9.00D-13) - RCONST(5466) = (1.07D-10) - RCONST(5467) = (j('1_c4h9ono2')) - RCONST(5468) = (j('ch3o2h')) - RCONST(5469) = (KDEC) - RCONST(5470) = (1.04D-10) - RCONST(5471) = (j('1_c4h9ono2')) - RCONST(5472) = (2.08D-12) - RCONST(5473) = (2.86D-13) - RCONST(5474) = (KDEC) - RCONST(5475) = (1.16D-10) - RCONST(5476) = (j('ch3o2h')) - RCONST(5477) = (KDEC*0.71) - RCONST(5478) = (KDEC*0.29) - RCONST(5479) = (1.13D-10) - RCONST(5480) = (1.15D-10) - RCONST(5481) = (j('ch3o2h')) - RCONST(5482) = (KDEC*0.68) - RCONST(5483) = (KDEC*0.32) - RCONST(5484) = (1.11D-10) - RCONST(5485) = (1.07D-10) - RCONST(5486) = (j('1_c4h9ono2')) - RCONST(5487) = (j('ch3o2h')) - RCONST(5488) = (KDEC) - RCONST(5489) = (1.04D-10) - RCONST(5490) = (j('1_c4h9ono2')) - RCONST(5491) = (3.13D-13*1.0) - RCONST(5492) = (2.8D-12) - RCONST(5493) = (KRO2HO2*0.820) - RCONST(5494) = (KRO2NO) - RCONST(5495) = (KRO2NO3) - RCONST(5496) = (2.50D-13*RO2) - RCONST(5497) = (2.08D-12) - RCONST(5498) = (2.86D-13) - RCONST(5499) = (KDEC*1.0) - RCONST(5500) = (KNO3AL*4.25) - RCONST(5501) = (KNO3AL*4.25) - RCONST(5502) = (5.00D-18*0.50) - RCONST(5503) = (5.00D-18*0.50) - RCONST(5504) = (4.41D-11*0.385) - RCONST(5505) = (4.41D-11*0.23) - RCONST(5506) = (4.41D-11*0.385) - RCONST(5507) = (j('no2')*0.2*0.3) - RCONST(5508) = (j('no2')*0.2*0.3) - RCONST(5509) = (j('no2')*0.2*0.4) - RCONST(5510) = (KNO3AL*2.75) - RCONST(5511) = (2.00D-18*0.5) - RCONST(5512) = (2.00D-18*0.5) - RCONST(5513) = (6.2D-11*0.48) - RCONST(5514) = (6.2D-11*0.52) - RCONST(5515) = (j('no2')*0.2*0.6) - RCONST(5516) = (j('no2')*0.2*0.4) - RCONST(5517) = (1.00D-12) - RCONST(5518) = (8.00D-19) - RCONST(5519) = (6.90D-11) - RCONST(5520) = (KAPHO2*0.44) - RCONST(5521) = (KAPHO2*0.15) - RCONST(5522) = (KAPHO2*0.41) - RCONST(5523) = (KAPNO) - RCONST(5524) = (KFPAN) - RCONST(5525) = (KRO2NO3*1.74) - RCONST(5526) = (1.00D-11*0.70*RO2) - RCONST(5527) = (1.00D-11*0.30*RO2) - RCONST(5528) = (5.98D-11) - RCONST(5529) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(5530) = (6.29D-11) - RCONST(5531) = (j('ch3o2h')+j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(5532) = (5.96D-11) - RCONST(5533) = (KBPAN) - RCONST(5534) = (1.2D-15) - RCONST(5535) = (1.0D-14) - RCONST(5536) = (1.0D-15) - RCONST(5537) = (7.0D-14) - RCONST(5538) = (1.0D-17*H2O) - RCONST(5539) = (6.0D-18*H2O) - RCONST(5540) = (7.04D-11) - RCONST(5541) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(5542) = (3.06D-11) - RCONST(5543) = (j('i_c3h7cho')+j('mek')) - RCONST(5544) = (KDEC*0.50) - RCONST(5545) = (KDEC*0.50) - RCONST(5546) = (4.06D-11) - RCONST(5547) = (j('i_c3h7cho')+j('biacet')) - RCONST(5548) = (6.17D-11) - RCONST(5549) = (j('i_c3h7cho')+j('mek')) - RCONST(5550) = (9.42D-11) - RCONST(5551) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5552) = (j('ch3o2h')) - RCONST(5553) = (KDEC) - RCONST(5554) = (6.45D-11) - RCONST(5555) = (j('ch3cocho')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5556) = (1.18D-10) - RCONST(5557) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5558) = (KAPHO2*0.44) - RCONST(5559) = (KAPHO2*0.15) - RCONST(5560) = (KAPHO2*0.41) - RCONST(5561) = (KAPNO) - RCONST(5562) = (KFPAN) - RCONST(5563) = (KRO2NO3*1.74) - RCONST(5564) = (1.00D-11*0.70*RO2) - RCONST(5565) = (1.00D-11*0.30*RO2) - RCONST(5566) = (8.06D-11) - RCONST(5567) = (j('mek')) - RCONST(5568) = (KNO3AL*4.25) - RCONST(5569) = (5.00D-18*0.5) - RCONST(5570) = (5.00D-18*0.5) - RCONST(5571) = (7.10D-11*0.28) - RCONST(5572) = (7.10D-11*0.72) - RCONST(5573) = (j('no2')*0.2*0.6) - RCONST(5574) = (j('no2')*0.2*0.4) - RCONST(5575) = (1.00D-12) - RCONST(5576) = (1.40D-18) - RCONST(5577) = (3.01D-11) - RCONST(5578) = (3.98D-11) - RCONST(5579) = (j('ch2cch3cho_h')+j('ch2cch3cho_hco')) - RCONST(5580) = (4.28D-11) - RCONST(5581) = (j('ch3o2h')+j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(5582) = (3.96D-11) - RCONST(5583) = (KBPAN) - RCONST(5584) = (KAPHO2*0.44) - RCONST(5585) = (KAPHO2*0.15) - RCONST(5586) = (KAPHO2*0.41) - RCONST(5587) = (KAPNO) - RCONST(5588) = (KFPAN) - RCONST(5589) = (KRO2NO3*1.74) - RCONST(5590) = (1.00D-11*RO2*0.70) - RCONST(5591) = (1.00D-11*RO2*0.30) - RCONST(5592) = (KRO2HO2*0.706) - RCONST(5593) = (KRO2NO) - RCONST(5594) = (KRO2NO3) - RCONST(5595) = (9.20D-14*RO2) - RCONST(5596) = (9.33D-11) - RCONST(5597) = (j('ch3o2h')+j('i_c3h7cho')*2) - RCONST(5598) = (3.27D-11) - RCONST(5599) = (j('i_c3h7cho')*2) - RCONST(5600) = (KDEC*0.5) - RCONST(5601) = (KDEC*0.5) - RCONST(5602) = (4.84D-11) - RCONST(5603) = (j('i_c3h7cho')+j('ch3cocho')) - RCONST(5604) = (8.11D-11) - RCONST(5605) = (j('i_c3h7cho')*2) - RCONST(5606) = (4.28D-11) - RCONST(5607) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(5608) = (j('mek')) - RCONST(5609) = (j('ch3o2h')) - RCONST(5610) = (KDEC) - RCONST(5611) = (5.24D-11) - RCONST(5612) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(5613) = (j('mek')) - RCONST(5614) = (1.43D-10) - RCONST(5615) = (j('ch3o2h')) - RCONST(5616) = (j('1_c4h9ono2')) - RCONST(5617) = (KDEC) - RCONST(5618) = (1.40D-10) - RCONST(5619) = (j('1_c4h9ono2')) - RCONST(5620) = (3.13D-13) - RCONST(5621) = (1.53D-12) - RCONST(5622) = (KRO2HO2*0.859) - RCONST(5623) = (KRO2NO) - RCONST(5624) = (KRO2NO3) - RCONST(5625) = (2.50D-13*RO2) - RCONST(5626) = (1.51D-10) - RCONST(5627) = (j('ch3o2h')) - RCONST(5628) = (KDEC*0.52) - RCONST(5629) = (KDEC*0.48) - RCONST(5630) = (1.48D-10) - RCONST(5631) = (2.08D-12) - RCONST(5632) = (2.86D-13) - RCONST(5633) = (KDEC) - RCONST(5634) = (KAPHO2*0.44) - RCONST(5635) = (KAPHO2*0.15) - RCONST(5636) = (KAPHO2*0.41) - RCONST(5637) = (KAPNO) - RCONST(5638) = (KFPAN) - RCONST(5639) = (KRO2NO3*1.74) - RCONST(5640) = (1.00D-11*0.70*RO2) - RCONST(5641) = (1.00D-11*0.30*RO2) - RCONST(5642) = (KRO2HO2*0.820) - RCONST(5643) = (KRO2NO) - RCONST(5644) = (KRO2NO3) - RCONST(5645) = (2.50D-13*RO2) - RCONST(5646) = (KNO3AL*4.25) - RCONST(5647) = (2.0D-18*0.5) - RCONST(5648) = (2.0D-18*0.5) - RCONST(5649) = (7.00D-11*0.5) - RCONST(5650) = (7.00D-11*0.5) - RCONST(5651) = (j('no2')*0.2*0.6) - RCONST(5652) = (j('no2')*0.2*0.4) - RCONST(5653) = (1.00D-12) - RCONST(5654) = (8.00D-19) - RCONST(5655) = (2.67D-11) - RCONST(5656) = (1.00D-12) - RCONST(5657) = (8.00D-19) - RCONST(5658) = (2.42D-11) - RCONST(5659) = (KAPHO2*0.44) - RCONST(5660) = (KAPHO2*0.56) - RCONST(5661) = (KAPNO) - RCONST(5662) = (KFPAN) - RCONST(5663) = (KRO2NO3*1.74) - RCONST(5664) = (1.00D-11*RO2) - RCONST(5665) = (6.00D-11) - RCONST(5666) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5667) = (6.31D-11) - RCONST(5668) = (j('ch3o2h')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5669) = (5.99D-11) - RCONST(5670) = (KBPAN) - RCONST(5671) = (KAPHO2*0.44) - RCONST(5672) = (KAPHO2*0.15) - RCONST(5673) = (KAPHO2*0.41) - RCONST(5674) = (KAPNO) - RCONST(5675) = (KFPAN) - RCONST(5676) = (KRO2NO3*1.74) - RCONST(5677) = (1.00D-11*RO2*0.70) - RCONST(5678) = (1.00D-11*RO2*0.30) - RCONST(5679) = (KRO2HO2*0.625) - RCONST(5680) = (KRO2NO) - RCONST(5681) = (KRO2NO3) - RCONST(5682) = (9.20D-14*RO2*0.7) - RCONST(5683) = (9.20D-14*RO2*0.3) - RCONST(5684) = (7.41D-11) - RCONST(5685) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(5686) = (3.08D-11) - RCONST(5687) = (j('i_c3h7cho')+j('mek')) - RCONST(5688) = (KDEC*0.5) - RCONST(5689) = (KDEC*0.5) - RCONST(5690) = (4.08D-11) - RCONST(5691) = (j('i_c3h7cho')+j('biacet')) - RCONST(5692) = (6.20D-11) - RCONST(5693) = (j('i_c3h7cho')+j('mek')) - RCONST(5694) = (7.36D-11) - RCONST(5695) = (j('ch3o2h')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5696) = (KDEC) - RCONST(5697) = (5.22D-11) - RCONST(5698) = (j('biacet')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5699) = (9.76D-11) - RCONST(5700) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5701) = (3.13D-13) - RCONST(5702) = (1.53D-12) - RCONST(5703) = (KRO2HO2*0.859) - RCONST(5704) = (KRO2NO) - RCONST(5705) = (KRO2NO3) - RCONST(5706) = (2.50D-13*RO2) - RCONST(5707) = (1.13D-10) - RCONST(5708) = (j('ch3o2h')) - RCONST(5709) = (KDEC*0.85) - RCONST(5710) = (KDEC*0.15) - RCONST(5711) = (1.10D-10) - RCONST(5712) = (1.07D-10) - RCONST(5713) = (j('1_c4h9ono2')) - RCONST(5714) = (j('ch3o2h')) - RCONST(5715) = (KDEC) - RCONST(5716) = (1.03D-10) - RCONST(5717) = (j('1_c4h9ono2')) - RCONST(5718) = (2.08D-12) - RCONST(5719) = (2.86D-13) - RCONST(5720) = (KDEC) - RCONST(5721) = (KAPHO2*0.44) - RCONST(5722) = (KAPHO2*0.15) - RCONST(5723) = (KAPHO2*0.41) - RCONST(5724) = (KAPNO) - RCONST(5725) = (KFPAN) - RCONST(5726) = (KRO2NO3*1.74) - RCONST(5727) = (1.00D-11*0.70*RO2) - RCONST(5728) = (1.00D-11*0.30*RO2) - RCONST(5729) = (KRO2HO2*0.820) - RCONST(5730) = (KRO2NO) - RCONST(5731) = (KRO2NO3) - RCONST(5732) = (2.50D-13*RO2) - RCONST(5733) = (5.00D-18) - RCONST(5734) = (4.90D-11) - RCONST(5735) = (j('no2')*0.0057) - RCONST(5736) = (5.87D-11) - RCONST(5737) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5738) = (6.18D-11) - RCONST(5739) = (j('ch3o2h')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5740) = (5.85D-11) - RCONST(5741) = (KBPAN) - RCONST(5742) = (7.26D-11) - RCONST(5743) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(5744) = (2.92D-11) - RCONST(5745) = (j('i_c3h7cho')+j('mek')) - RCONST(5746) = (KDEC*0.5) - RCONST(5747) = (KDEC*0.5) - RCONST(5748) = (3.58D-11) - RCONST(5749) = (j('i_c3h7cho')+j('biacet')) - RCONST(5750) = (6.03D-11) - RCONST(5751) = (j('i_c3h7cho')+j('mek')) - RCONST(5752) = (8.25D-11) - RCONST(5753) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5754) = (j('ch3o2h')) - RCONST(5755) = (j('i_c3h7cho')) - RCONST(5756) = (KDEC) - RCONST(5757) = (1.14D-10) - RCONST(5758) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5759) = (j('i_c3h7cho')) - RCONST(5760) = (1.43D-10) - RCONST(5761) = (j('ch3o2h')) - RCONST(5762) = (j('1_c4h9ono2')) - RCONST(5763) = (KDEC) - RCONST(5764) = (1.40D-10) - RCONST(5765) = (j('1_c4h9ono2')) - RCONST(5766) = (3.13D-13) - RCONST(5767) = (1.53D-12) - RCONST(5768) = (KRO2HO2*0.859) - RCONST(5769) = (KRO2NO) - RCONST(5770) = (KRO2NO3) - RCONST(5771) = (2.50D-13*RO2) - RCONST(5772) = (1.51D-10) - RCONST(5773) = (j('ch3o2h')) - RCONST(5774) = (KDEC*0.68) - RCONST(5775) = (KDEC*0.32) - RCONST(5776) = (1.48D-10) - RCONST(5777) = (2.08D-12) - RCONST(5778) = (2.86D-13) - RCONST(5779) = (KDEC) - RCONST(5780) = (KAPHO2*0.15) - RCONST(5781) = (KAPHO2*0.41) - RCONST(5782) = (KAPHO2*0.44) - RCONST(5783) = (KAPNO) - RCONST(5784) = (KFPAN) - RCONST(5785) = (KRO2NO3*1.74) - RCONST(5786) = (1.00D-11*0.30*RO2) - RCONST(5787) = (1.00D-11*0.70*RO2) - RCONST(5788) = (3.13D-13*1.0) - RCONST(5789) = (1.53D-12) - RCONST(5790) = (KRO2HO2*0.859) - RCONST(5791) = (KRO2NO) - RCONST(5792) = (KRO2NO3) - RCONST(5793) = (2.50D-13*RO2) - RCONST(5794) = (1.15D-10) - RCONST(5795) = (j('ch3o2h')) - RCONST(5796) = (KDEC*0.68) - RCONST(5797) = (KDEC*0.32) - RCONST(5798) = (1.11D-10) - RCONST(5799) = (1.07D-10) - RCONST(5800) = (j('1_c4h9ono2')) - RCONST(5801) = (j('ch3o2h')) - RCONST(5802) = (KDEC) - RCONST(5803) = (1.04D-10) - RCONST(5804) = (j('1_c4h9ono2')) - RCONST(5805) = (2.08D-12) - RCONST(5806) = (2.86D-13) - RCONST(5807) = (KDEC*1.0) - RCONST(5808) = (KNO3AL*2.75) - RCONST(5809) = (2.00D-18*0.5) - RCONST(5810) = (2.00D-18*0.5) - RCONST(5811) = (5.58D-11*0.5) - RCONST(5812) = (5.58D-11*0.5) - RCONST(5813) = (j('no2')*0.2*0.6) - RCONST(5814) = (j('no2')*0.2*0.4) - RCONST(5815) = (1.00D-12) - RCONST(5816) = (8.00D-19) - RCONST(5817) = (2.29D-11) - RCONST(5818) = (KAPHO2*0.44) - RCONST(5819) = (KAPHO2*0.15) - RCONST(5820) = (KAPHO2*0.41) - RCONST(5821) = (KAPNO) - RCONST(5822) = (KFPAN) - RCONST(5823) = (KRO2NO3*1.74) - RCONST(5824) = (1.00D-11*0.70*RO2) - RCONST(5825) = (1.00D-11*0.30*RO2) - RCONST(5826) = (6.09D-11) - RCONST(5827) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5828) = (6.40D-11) - RCONST(5829) = (j('ch3o2h')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5830) = (6.08D-11) - RCONST(5831) = (KBPAN) - RCONST(5832) = (1.20D-15) - RCONST(5833) = (1.00D-14) - RCONST(5834) = (1.00D-15) - RCONST(5835) = (7.00D-14) - RCONST(5836) = (1.00D-17*H2O) - RCONST(5837) = (6.00D-18*H2O) - RCONST(5838) = (7.51D-11) - RCONST(5839) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(5840) = (3.17D-11) - RCONST(5841) = (j('i_c3h7cho')+j('mek')) - RCONST(5842) = (KDEC*0.5) - RCONST(5843) = (KDEC*0.5) - RCONST(5844) = (4.25D-11) - RCONST(5845) = (j('i_c3h7cho')+j('biacet')) - RCONST(5846) = (6.29D-11) - RCONST(5847) = (j('i_c3h7cho')+j('mek')) - RCONST(5848) = (9.53D-11) - RCONST(5849) = (j('i_c3h7cho')+j('mvk_mcm_co')) - RCONST(5850) = (j('ch3o2h')+j('mvk_mcm_ch2ch')) - RCONST(5851) = (KDEC) - RCONST(5852) = (1.19D-11) - RCONST(5853) = (j('i_c3h7cho')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5854) = (6.78D-11) - RCONST(5855) = (j('ch3cocho')) - RCONST(5856) = (KRO2HO2*0.890) - RCONST(5857) = (KRO2NO) - RCONST(5858) = (KRO2NO3) - RCONST(5859) = (8.80D-13*RO2*0.2) - RCONST(5860) = (8.80D-13*RO2*0.6) - RCONST(5861) = (8.80D-13*RO2*0.2) - RCONST(5862) = (1.07D-10) - RCONST(5863) = (j('ch3o2h')) - RCONST(5864) = (j('1_c4h9ono2')) - RCONST(5865) = (KDEC) - RCONST(5866) = (1.04D-10) - RCONST(5867) = (j('1_c4h9ono2')) - RCONST(5868) = (3.13D-13*1.0) - RCONST(5869) = (1.53D-12) - RCONST(5870) = (KRO2HO2*0.90) - RCONST(5871) = (KRO2NO) - RCONST(5872) = (KRO2NO3) - RCONST(5873) = (2.50D-13*RO2) - RCONST(5874) = (1.15D-10) - RCONST(5875) = (j('ch3o2h')) - RCONST(5876) = (KDEC*0.68) - RCONST(5877) = (KDEC*0.32) - RCONST(5878) = (1.11D-10) - RCONST(5879) = (2.08D-12) - RCONST(5880) = (2.86D-13) - RCONST(5881) = (KDEC*1.0) - RCONST(5882) = (KNO3AL*5.5) - RCONST(5883) = (1.67D-11) - RCONST(5884) = (j('ch3cocho')) - RCONST(5885) = (KNO3AL*2.75) - RCONST(5886) = (2.00D-18*0.5) - RCONST(5887) = (2.00D-18*0.5) - RCONST(5888) = (5.58D-11*0.50) - RCONST(5889) = (5.58D-11*0.50) - RCONST(5890) = (j('no2')*0.2*0.6) - RCONST(5891) = (j('no2')*0.2*0.4) - RCONST(5892) = (1.00D-12) - RCONST(5893) = (8.00D-19) - RCONST(5894) = (2.43D-11) - RCONST(5895) = (KAPHO2*0.44) - RCONST(5896) = (KAPHO2*0.15) - RCONST(5897) = (KAPHO2*0.41) - RCONST(5898) = (KAPNO) - RCONST(5899) = (KFPAN) - RCONST(5900) = (KRO2NO3*1.74) - RCONST(5901) = (1.00D-11*RO2*0.7) - RCONST(5902) = (1.00D-11*RO2*0.3) - RCONST(5903) = (6.44D-11) - RCONST(5904) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5905) = (6.74D-11) - RCONST(5906) = (j('ch3o2h')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5907) = (6.42D-11) - RCONST(5908) = (KBPAN) - RCONST(5909) = (1.20D-15) - RCONST(5910) = (1.00D-14) - RCONST(5911) = (1.00D-15) - RCONST(5912) = (7.00D-14) - RCONST(5913) = (6.00D-18*H2O) - RCONST(5914) = (1.00D-17*H2O) - RCONST(5915) = (7.85D-11) - RCONST(5916) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(5917) = (3.51D-11) - RCONST(5918) = (j('i_c3h7cho')+j('mek')) - RCONST(5919) = (KDEC*0.5) - RCONST(5920) = (KDEC*0.5) - RCONST(5921) = (4.61D-11) - RCONST(5922) = (j('i_c3h7cho')+j('biacet')) - RCONST(5923) = (6.63D-11) - RCONST(5924) = (j('i_c3h7cho')+j('mek')) - RCONST(5925) = (9.87D-11) - RCONST(5926) = (j('i_c3h7cho')+j('mvk_mcm_co')) - RCONST(5927) = (j('ch3o2h')+j('mvk_mcm_ch2ch')) - RCONST(5928) = (KDEC) - RCONST(5929) = (1.23D-10) - RCONST(5930) = (j('i_c3h7cho')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5931) = (6.91D-11) - RCONST(5932) = (j('ch3cocho')) - RCONST(5933) = (6.00D-12) - RCONST(5934) = (j('mek')) - RCONST(5935) = (3.13D-13*1.0) - RCONST(5936) = (1.53D-12) - RCONST(5937) = (KRO2HO2*0.90) - RCONST(5938) = (KRO2NO) - RCONST(5939) = (KRO2NO3) - RCONST(5940) = (2.50D-13*RO2) - RCONST(5941) = (1.15D-10) - RCONST(5942) = (j('ch3o2h')) - RCONST(5943) = (KDEC*0.68) - RCONST(5944) = (KDEC*0.32) - RCONST(5945) = (1.11D-10) - RCONST(5946) = (1.07D-10) - RCONST(5947) = (j('1_c4h9ono2')) - RCONST(5948) = (j('ch3o2h')) - RCONST(5949) = (KDEC) - RCONST(5950) = (1.04D-10) - RCONST(5951) = (j('1_c4h9ono2')) - RCONST(5952) = (2.08D-12) - RCONST(5953) = (2.86D-13) - RCONST(5954) = (KDEC*1.0) - RCONST(5955) = (KNO3AL*4.25) - RCONST(5956) = (2.00D-18*0.5) - RCONST(5957) = (2.00D-18*0.5) - RCONST(5958) = (5.58D-11*0.50) - RCONST(5959) = (5.58D-11*0.50) - RCONST(5960) = (j('no2')*0.2*0.6) - RCONST(5961) = (j('no2')*0.2*0.4) - RCONST(5962) = (j('no2')*0.05*0.34) - RCONST(5963) = (1.00D-12) - RCONST(5964) = (8.00D-19) - RCONST(5965) = (2.43D-11) - RCONST(5966) = (KAPHO2*0.44) - RCONST(5967) = (KAPHO2*0.15) - RCONST(5968) = (KAPHO2*0.41) - RCONST(5969) = (KAPNO) - RCONST(5970) = (KFPAN) - RCONST(5971) = (KRO2NO3*1.74) - RCONST(5972) = (1.00D-11*RO2*0.7) - RCONST(5973) = (1.00D-11*RO2*0.3) - RCONST(5974) = (6.22D-11) - RCONST(5975) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5976) = (6.53D-11) - RCONST(5977) = (j('ch3o2h')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5978) = (6.21D-11) - RCONST(5979) = (KBPAN) - RCONST(5980) = (1.20D-15) - RCONST(5981) = (1.00D-14) - RCONST(5982) = (1.00D-15) - RCONST(5983) = (7.00D-14) - RCONST(5984) = (1.00D-17*H2O) - RCONST(5985) = (6.00D-18*H2O) - RCONST(5986) = (7.64D-11) - RCONST(5987) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(5988) = (3.30D-11) - RCONST(5989) = (j('i_c3h7cho')+j('mek')) - RCONST(5990) = (KDEC*0.5) - RCONST(5991) = (KDEC*0.5) - RCONST(5992) = (4.47D-11) - RCONST(5993) = (j('i_c3h7cho')+j('biacet')) - RCONST(5994) = (6.42D-11) - RCONST(5995) = (j('i_c3h7cho')+j('mek')) - RCONST(5996) = (9.66D-11) - RCONST(5997) = (j('ch3o2h')+j('mvk_mcm_ch2ch')) - RCONST(5998) = (j('i_c3h7cho')+j('mvk_mcm_co')) - RCONST(5999) = (KDEC) - RCONST(6000) = (1.21D-10) - RCONST(6001) = (j('i_c3h7cho')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(6002) = (6.70D-11) - RCONST(6003) = (j('ch3cocho')) - RCONST(6004) = (KAPHO2*0.44) - RCONST(6005) = (KAPHO2*0.15) - RCONST(6006) = (KAPHO2*0.41) - RCONST(6007) = (KAPNO) - RCONST(6008) = (KFPAN) - RCONST(6009) = (KRO2NO3*1.74) - RCONST(6010) = (1.00D-11*RO2*0.70) - RCONST(6011) = (1.00D-11*RO2*0.30) - RCONST(6012) = (1.85D-10) - RCONST(6013) = (j('ch3o2h')) - RCONST(6014) = (j('1_c4h9ono2')) - RCONST(6015) = (KDEC) - RCONST(6016) = (1.81D-10) - RCONST(6017) = (j('1_c4h9ono2')) - RCONST(6018) = (3.13D-13) - RCONST(6019) = (1.53D-12) - RCONST(6020) = (KRO2HO2*0.90) - RCONST(6021) = (KRO2NO) - RCONST(6022) = (KRO2NO3) - RCONST(6023) = (2.50D-13*RO2) - RCONST(6024) = (1.89D-10) - RCONST(6025) = (j('ch3o2h')) - RCONST(6026) = (KDEC) - RCONST(6027) = (1.85D-10) - RCONST(6028) = (2.08D-12) - RCONST(6029) = (2.86D-13) - RCONST(6030) = (KDEC) - RCONST(6031) = (KNO3AL*4.25) - RCONST(6032) = (5.58D-11*0.50) - RCONST(6033) = (5.58D-11*0.50) - RCONST(6034) = (j('no2')*0.2*0.6) - RCONST(6035) = (j('no2')*0.2*0.4) - RCONST(6036) = (1.00D-12) - RCONST(6037) = (8.00D-17) - RCONST(6038) = (2.66D-11) - RCONST(6039) = (1.00D-12) - RCONST(6040) = (1.40D-18) - RCONST(6041) = (3.26D-11) - RCONST(6042) = (KAPHO2*0.44) - RCONST(6043) = (KAPHO2*0.15) - RCONST(6044) = (KAPHO2*0.41) - RCONST(6045) = (KAPNO) - RCONST(6046) = (KFPAN) - RCONST(6047) = (KRO2NO3*1.74) - RCONST(6048) = (1.00D-11*RO2*0.70) - RCONST(6049) = (1.00D-11*RO2*0.30) - RCONST(6050) = (KRO2HO2*0.625) - RCONST(6051) = (KRO2NO) - RCONST(6052) = (KRO2NO3) - RCONST(6053) = (8.80D-12*RO2) - RCONST(6054) = (9.05D-11) - RCONST(6055) = (j('ch3o2h')+j('mek')*2) - RCONST(6056) = (KDEC*0.5) - RCONST(6057) = (KDEC*0.5) - RCONST(6058) = (2.88D-12) - RCONST(6059) = (j('mek')*2) - RCONST(6060) = (5.65D-12) - RCONST(6061) = (j('mek')) - RCONST(6062) = (j('mek')*2) - RCONST(6063) = (4.14D-11) - RCONST(6064) = (j('mek')*2) - RCONST(6065) = (KAPHO2*0.44) - RCONST(6066) = (KAPHO2*0.15) - RCONST(6067) = (KAPHO2*0.41) - RCONST(6068) = (KAPNO) - RCONST(6069) = (KFPAN) - RCONST(6070) = (KRO2NO3*1.74) - RCONST(6071) = (1.00D-11*RO2*0.70) - RCONST(6072) = (1.00D-11*RO2*0.30) - RCONST(6073) = (KRO2HO2*0.859) - RCONST(6074) = (KRO2NO) - RCONST(6075) = (KRO2NO3) - RCONST(6076) = (2.50D-13*RO2) - RCONST(6077) = (1.25D-17*0.5) - RCONST(6078) = (1.25D-17*0.5) - RCONST(6079) = (6.90D-11) - RCONST(6080) = (j('no2')*0.0057*0.5) - RCONST(6081) = (j('no2')*0.0057*0.5) - RCONST(6082) = (1.43D-10) - RCONST(6083) = (j('ch3o2h')) - RCONST(6084) = (j('1_c4h9ono2')) - RCONST(6085) = (KDEC) - RCONST(6086) = (1.40D-10) - RCONST(6087) = (j('1_c4h9ono2')) - RCONST(6088) = (3.13D-13) - RCONST(6089) = (1.53D-12) - RCONST(6090) = (KRO2HO2*0.90) - RCONST(6091) = (KRO2NO) - RCONST(6092) = (KRO2NO3) - RCONST(6093) = (2.50D-13*RO2) - RCONST(6094) = (1.51D-10) - RCONST(6095) = (j('ch3o2h')) - RCONST(6096) = (KDEC*0.78) - RCONST(6097) = (KDEC*0.22) - RCONST(6098) = (1.48D-10) - RCONST(6099) = (2.08D-12) - RCONST(6100) = (2.86D-13) - RCONST(6101) = (KDEC) - RCONST(6102) = (5.89D-11) - RCONST(6103) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(6104) = (6.20D-11) - RCONST(6105) = (j('ch3o2h')) - RCONST(6106) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(6107) = (5.88D-11) - RCONST(6108) = (KBPAN) - RCONST(6109) = (1.10D-10) - RCONST(6110) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(6111) = (KDEC*0.5) - RCONST(6112) = (KDEC*0.5) - RCONST(6113) = (2.33D-11) - RCONST(6114) = (j('i_c3h7cho')+j('mek')) - RCONST(6115) = (2.58D-11) - RCONST(6116) = (j('i_c3h7cho')+j('mek')*2) - RCONST(6117) = (6.06D-11) - RCONST(6118) = (j('i_c3h7cho')+j('mek')) - RCONST(6119) = (6.19D-11) - RCONST(6120) = (j('mvk_mcm_ch2ch')) - RCONST(6121) = (j('ch3o2h')) - RCONST(6122) = (j('mek')) - RCONST(6123) = (KDEC) - RCONST(6124) = (9.30D-11) - RCONST(6125) = (j('mvk_mcm_ch2ch')) - RCONST(6126) = (j('mek')) - RCONST(6127) = (KAPHO2*0.44) - RCONST(6128) = (KAPHO2*0.15) - RCONST(6129) = (KAPHO2*0.41) - RCONST(6130) = (KAPNO) - RCONST(6131) = (KFPAN) - RCONST(6132) = (KRO2NO3*1.74) - RCONST(6133) = (1.00D-11*0.70*RO2) - RCONST(6134) = (1.00D-11*0.30*RO2) - RCONST(6135) = (KRO2HO2*0.890) - RCONST(6136) = (KRO2NO) - RCONST(6137) = (KRO2NO3) - RCONST(6138) = (2.50D-13*RO2) - RCONST(6139) = (KAPHO2*0.44) - RCONST(6140) = (KAPHO2*0.56) - RCONST(6141) = (KAPNO) - RCONST(6142) = (KFPAN) - RCONST(6143) = (KRO2NO3*1.74) - RCONST(6144) = (1.00D-11*0.70*RO2) - RCONST(6145) = (1.00D-11*0.30*RO2) - RCONST(6146) = (1.44D-10) - RCONST(6147) = (j('ch3o2h')) - RCONST(6148) = (j('1_c4h9ono2')) - RCONST(6149) = (KDEC) - RCONST(6150) = (1.40D-10) - RCONST(6151) = (j('1_c4h9ono2')) - RCONST(6152) = (1.50D-10) - RCONST(6153) = (j('ch3o2h')) - RCONST(6154) = (KDEC) - RCONST(6155) = (1.47D-10) - RCONST(6156) = (8.08D-11) - RCONST(6157) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(6158) = (8.38D-11) - RCONST(6159) = (j('ch3o2h')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(6160) = (8.06D-11) - RCONST(6161) = (KBPAN) - RCONST(6162) = (KAPHO2*0.44) - RCONST(6163) = (KAPHO2*0.15) - RCONST(6164) = (KAPHO2*0.41) - RCONST(6165) = (KAPNO) - RCONST(6166) = (KFPAN) - RCONST(6167) = (KRO2NO3*1.74) - RCONST(6168) = (1.00D-11*RO2*0.70) - RCONST(6169) = (1.00D-11*RO2*0.30) - RCONST(6170) = (KRO2HO2*0.706) - RCONST(6171) = (KRO2NO) - RCONST(6172) = (KRO2NO3) - RCONST(6173) = (8.80D-13*RO2) - RCONST(6174) = (3.30D-11) - RCONST(6175) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(6176) = (KDEC*0.5) - RCONST(6177) = (KDEC*0.5) - RCONST(6178) = (2.31D-11) - RCONST(6179) = (j('i_c3h7cho')+j('mek')) - RCONST(6180) = (2.96D-11) - RCONST(6181) = (j('i_c3h7cho')+j('mek')) - RCONST(6182) = (9.44D-11) - RCONST(6183) = (j('mek')) - RCONST(6184) = (j('ch3o2h')) - RCONST(6185) = (j('mvk_mcm_co')) - RCONST(6186) = (KDEC) - RCONST(6187) = (1.31D-10) - RCONST(6188) = (j('mvk_mcm_co')+j('mek')) - RCONST(6189) = (7.10D-11) - RCONST(6190) = (j('mvk_mcm_co')) - RCONST(6191) = (j('biacet')) - RCONST(6192) = (KRO2HO2*0.890) - RCONST(6193) = (KRO2NO) - RCONST(6194) = (KRO2NO3) - RCONST(6195) = (8.80D-13*RO2*0.6) - RCONST(6196) = (8.80D-13*RO2*0.2) - RCONST(6197) = (8.80D-13*RO2*0.2) - RCONST(6198) = (4.31D-11) - RCONST(6199) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(6200) = (4.61D-11) - RCONST(6201) = (j('ch3o2h')+j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(6202) = (4.29D-11) - RCONST(6203) = (KBPAN) - RCONST(6204) = (KAPHO2*0.44) - RCONST(6205) = (KAPHO2*0.15) - RCONST(6206) = (KAPHO2*0.41) - RCONST(6207) = (KAPNO) - RCONST(6208) = (KFPAN) - RCONST(6209) = (KRO2NO3*1.74) - RCONST(6210) = (1.00D-11*RO2*0.70) - RCONST(6211) = (1.00D-11*RO2*0.30) - RCONST(6212) = (KRO2HO2*0.770) - RCONST(6213) = (KRO2NO) - RCONST(6214) = (KRO2NO3) - RCONST(6215) = (9.20D-14*RO2) - RCONST(6216) = (9.66D-11) - RCONST(6217) = (j('ch3o2h')+j('i_c3h7cho')*2) - RCONST(6218) = (3.59D-11) - RCONST(6219) = (j('i_c3h7cho')*2) - RCONST(6220) = (KDEC*0.5) - RCONST(6221) = (KDEC*0.5) - RCONST(6222) = (5.17D-11) - RCONST(6223) = (j('i_c3h7cho')+j('ch3cocho')) - RCONST(6224) = (8.44D-11) - RCONST(6225) = (j('i_c3h7cho')*2) - RCONST(6226) = (4.39D-11) - RCONST(6227) = (j('mek')) - RCONST(6228) = (j('ch3o2h')+j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(6229) = (KDEC) - RCONST(6230) = (5.35D-11) - RCONST(6231) = (j('mek')) - RCONST(6232) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(6233) = (1.82D-10) - RCONST(6234) = (j('ch3o2h')) - RCONST(6235) = (j('1_c4h9ono2')) - RCONST(6236) = (KDEC) - RCONST(6237) = (1.79D-10) - RCONST(6238) = (j('1_c4h9ono2')) - RCONST(6239) = (3.13D-13) - RCONST(6240) = (1.53D-12) - RCONST(6241) = (KRO2HO2*0.90) - RCONST(6242) = (KRO2NO) - RCONST(6243) = (KRO2NO3) - RCONST(6244) = (2.50D-13*RO2) - RCONST(6245) = (1.51D-10) - RCONST(6246) = (j('ch3o2h')) - RCONST(6247) = (KDEC*0.52) - RCONST(6248) = (KDEC*0.48) - RCONST(6249) = (1.48D-10) - RCONST(6250) = (2.08D-12) - RCONST(6251) = (2.86D-13) - RCONST(6252) = (KDEC) - RCONST(6253) = (6.12D-11) - RCONST(6254) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(6255) = (6.42D-11) - RCONST(6256) = (j('ch3o2h')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(6257) = (6.10D-11) - RCONST(6258) = (KBPAN) - RCONST(6259) = (7.53D-11) - RCONST(6260) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(6261) = (3.19D-11) - RCONST(6262) = (j('i_c3h7cho')+j('mek')) - RCONST(6263) = (KDEC*0.5) - RCONST(6264) = (KDEC*0.5) - RCONST(6265) = (4.27D-11) - RCONST(6266) = (j('i_c3h7cho')+j('biacet')) - RCONST(6267) = (6.31D-11) - RCONST(6268) = (j('i_c3h7cho')+j('mek')) - RCONST(6269) = (7.47D-11) - RCONST(6270) = (j('mek')) - RCONST(6271) = (j('ch3o2h')+j('mvk_mcm_co')*2) - RCONST(6272) = (KDEC) - RCONST(6273) = (5.33D-11) - RCONST(6274) = (j('ch3cocho')) - RCONST(6275) = (j('mvk_mcm_co')*2) - RCONST(6276) = (9.87D-11) - RCONST(6277) = (j('mek')) - RCONST(6278) = (j('mvk_mcm_co')*2) - RCONST(6279) = (3.13D-13) - RCONST(6280) = (1.53D-12) - RCONST(6281) = (KRO2HO2*0.90) - RCONST(6282) = (KRO2NO) - RCONST(6283) = (KRO2NO3) - RCONST(6284) = (2.50D-13*RO2) - RCONST(6285) = (1.14D-10) - RCONST(6286) = (j('ch3o2h')) - RCONST(6287) = (KDEC*0.85) - RCONST(6288) = (KDEC*0.15) - RCONST(6289) = (1.11D-10) - RCONST(6290) = (1.08D-10) - RCONST(6291) = (j('1_c4h9ono2')) - RCONST(6292) = (j('ch3o2h')) - RCONST(6293) = (KDEC) - RCONST(6294) = (1.05D-10) - RCONST(6295) = (j('1_c4h9ono2')) - RCONST(6296) = (2.08D-12) - RCONST(6297) = (2.86D-13) - RCONST(6298) = (KDEC) - RCONST(6299) = (5.00D-18*0.5) - RCONST(6300) = (5.00D-18*0.5) - RCONST(6301) = (6.90D-11) - RCONST(6302) = (j('no2')*0.0057*0.5) - RCONST(6303) = (j('no2')*0.0057*0.5) - RCONST(6304) = (5.98D-11) - RCONST(6305) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(6306) = (6.29D-11) - RCONST(6307) = (j('ch3o2h')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(6308) = (5.97D-11) - RCONST(6309) = (KBPAN) - RCONST(6310) = (7.37D-11) - RCONST(6311) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(6312) = (3.03D-11) - RCONST(6313) = (j('i_c3h7cho')+j('mek')) - RCONST(6314) = (KDEC*0.5) - RCONST(6315) = (KDEC*0.5) - RCONST(6316) = (3.77D-11) - RCONST(6317) = (j('i_c3h7cho')+j('biacet')) - RCONST(6318) = (6.15D-11) - RCONST(6319) = (j('i_c3h7cho')+j('mek')) - RCONST(6320) = (8.36D-11) - RCONST(6321) = (j('mvk_mcm_co')*2) - RCONST(6322) = (j('i_c3h7cho')) - RCONST(6323) = (j('ch3o2h')) - RCONST(6324) = (KDEC) - RCONST(6325) = (1.15D-10) - RCONST(6326) = (j('mvk_mcm_co')*2) - RCONST(6327) = (j('i_c3h7cho')) - RCONST(6328) = (1.43D-10) - RCONST(6329) = (j('ch3o2h')) - RCONST(6330) = (j('1_c4h9ono2')) - RCONST(6331) = (KDEC) - RCONST(6332) = (1.40D-10) - RCONST(6333) = (j('1_c4h9ono2')) - RCONST(6334) = (3.13D-13) - RCONST(6335) = (1.53D-12) - RCONST(6336) = (KRO2HO2*0.90) - RCONST(6337) = (KRO2NO) - RCONST(6338) = (KRO2NO3) - RCONST(6339) = (2.50D-13*RO2) - RCONST(6340) = (1.51D-10) - RCONST(6341) = (j('ch3o2h')) - RCONST(6342) = (KDEC*0.68) - RCONST(6343) = (KDEC*0.32) - RCONST(6344) = (1.48D-10) - RCONST(6345) = (2.08D-12) - RCONST(6346) = (2.86D-13) - RCONST(6347) = (KDEC) - RCONST(6348) = (KRO2HO2*0.914) - RCONST(6349) = (KRO2NO) - RCONST(6350) = (KRO2NO3) - RCONST(6351) = (8.80D-13*RO2*0.6) - RCONST(6352) = (8.80D-13*RO2*0.2) - RCONST(6353) = (8.80D-13*RO2*0.2) - RCONST(6354) = (KNO3AL*4.25) - RCONST(6355) = (5.00D-18*0.5) - RCONST(6356) = (5.00D-18*0.5) - RCONST(6357) = (5.58D-11*0.50) - RCONST(6358) = (5.58D-11*0.50) - RCONST(6359) = (j('no2')*0.2*0.6) - RCONST(6360) = (j('no2')*0.2*0.4) - RCONST(6361) = (1.00D-12) - RCONST(6362) = (8.00D-19) - RCONST(6363) = (2.89D-11) - RCONST(6364) = (8.19D-11) - RCONST(6365) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(6366) = (8.50D-11) - RCONST(6367) = (j('ch3o2h')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(6368) = (8.17D-11) - RCONST(6369) = (KBPAN) - RCONST(6370) = (3.41D-11) - RCONST(6371) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(6372) = (KDEC*0.5) - RCONST(6373) = (KDEC*0.5) - RCONST(6374) = (2.42D-11) - RCONST(6375) = (j('i_c3h7cho')+j('mek')) - RCONST(6376) = (3.07D-11) - RCONST(6377) = (j('i_c3h7cho')+j('mek')) - RCONST(6378) = (9.55D-11) - RCONST(6379) = (j('mek')) - RCONST(6380) = (j('ch3o2h')) - RCONST(6381) = (j('mvk_mcm_co')) - RCONST(6382) = (KDEC) - RCONST(6383) = (1.32D-10) - RCONST(6384) = (j('mvk_mcm_co')+j('mek')) - RCONST(6385) = (7.21D-11) - RCONST(6386) = (j('biacet')+j('mvk_mcm_co')) - RCONST(6387) = (1.45D-10) - RCONST(6388) = (j('1_c4h9ono2')) - RCONST(6389) = (j('ch3o2h')) - RCONST(6390) = (KDEC) - RCONST(6391) = (1.41D-10) - RCONST(6392) = (j('1_c4h9ono2')) - RCONST(6393) = (1.51D-10) - RCONST(6394) = (j('ch3o2h')) - RCONST(6395) = (KDEC) - RCONST(6396) = (1.48D-10) - RCONST(6397) = (KRO2HO2*0.932) - RCONST(6398) = (KRO2NO) - RCONST(6399) = (KRO2NO3) - RCONST(6400) = (8.80D-13*RO2*0.6) - RCONST(6401) = (8.80D-13*RO2*0.2) - RCONST(6402) = (8.80D-13*RO2*0.2) - RCONST(6403) = (KAPHO2*0.56) - RCONST(6404) = (KAPHO2*0.44) - RCONST(6405) = (KAPNO) - RCONST(6406) = (KFPAN) - RCONST(6407) = (KRO2NO3*1.74) - RCONST(6408) = (1.00D-11*RO2) - RCONST(6409) = (1.46D-10) - RCONST(6410) = (j('1_c4h9ono2')) - RCONST(6411) = (j('ch3o2h')) - RCONST(6412) = (KDEC) - RCONST(6413) = (1.43D-10) - RCONST(6414) = (j('1_c4h9ono2')) - RCONST(6415) = (1.52D-10) - RCONST(6416) = (j('ch3o2h')) - RCONST(6417) = (KDEC) - RCONST(6418) = (1.49D-10) - RCONST(6419) = (KAPHO2*0.56) - RCONST(6420) = (KAPHO2*0.44) - RCONST(6421) = (KAPNO) - RCONST(6422) = (KFPAN) - RCONST(6423) = (KRO2NO3*1.74) - RCONST(6424) = (1.00D-11*RO2) - RCONST(6425) = (8.52D-11) - RCONST(6426) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(6427) = (8.83D-11) - RCONST(6428) = (j('ch3o2h')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(6429) = (8.50D-11) - RCONST(6430) = (KBPAN) - RCONST(6431) = (KAPHO2*0.44) - RCONST(6432) = (KAPHO2*0.15) - RCONST(6433) = (KAPHO2*0.41) - RCONST(6434) = (KAPNO) - RCONST(6435) = (KFPAN) - RCONST(6436) = (KRO2NO3*1.74) - RCONST(6437) = (1.00D-11*RO2*0.70) - RCONST(6438) = (1.00D-11*RO2*0.30) - RCONST(6439) = (KRO2HO2*0.706) - RCONST(6440) = (KRO2NO) - RCONST(6441) = (KRO2NO3) - RCONST(6442) = (9.20D-14*RO2*0.7) - RCONST(6443) = (9.20D-14*RO2*0.3) - RCONST(6444) = (KRO2HO2*0.770) - RCONST(6445) = (KRO2NO) - RCONST(6446) = (KRO2NO3) - RCONST(6447) = (8.80D-13*RO2*0.20) - RCONST(6448) = (8.80D-13*RO2*0.20) - RCONST(6449) = (8.80D-13*RO2*0.60) - RCONST(6450) = (3.74D-11) - RCONST(6451) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(6452) = (KDEC*0.5) - RCONST(6453) = (KDEC*0.5) - RCONST(6454) = (2.75D-11) - RCONST(6455) = (j('i_c3h7cho')+j('mek')) - RCONST(6456) = (3.40D-11) - RCONST(6457) = (j('i_c3h7cho')+j('mek')) - RCONST(6458) = (9.66D-11) - RCONST(6459) = (j('mek')) - RCONST(6460) = (j('ch3o2h')+j('mvk_mcm_co')) - RCONST(6461) = (KDEC) - RCONST(6462) = (1.33D-10) - RCONST(6463) = (j('mvk_mcm_co')+j('mek')) - RCONST(6464) = (7.40D-11) - RCONST(6465) = (j('biacet')+j('mvk_mcm_co')) - RCONST(6466) = (KRO2HO2*0.625) - RCONST(6467) = (KRO2NO) - RCONST(6468) = (KRO2NO3) - RCONST(6469) = (8.80D-13*0.2*RO2) - RCONST(6470) = (8.80D-13*0.6*RO2) - RCONST(6471) = (8.80D-13*0.2*RO2) - RCONST(6472) = (KAPHO2*0.15) - RCONST(6473) = (KAPHO2*0.41) - RCONST(6474) = (KAPHO2*0.44) - RCONST(6475) = (KAPNO) - RCONST(6476) = (KFPAN) - RCONST(6477) = (KRO2NO3*1.74) - RCONST(6478) = (1.00D-11*0.3*RO2) - RCONST(6479) = (1.00D-11*0.7*RO2) - RCONST(6480) = (KDEC*0.125) - RCONST(6481) = (KDEC*0.125) - RCONST(6482) = (KDEC*0.18) - RCONST(6483) = (KDEC*0.57) - RCONST(6484) = (KRO2HO2*0.625) - RCONST(6485) = (KRO2NO) - RCONST(6486) = (KRO2NO3) - RCONST(6487) = (8.80D-13*0.6*RO2) - RCONST(6488) = (8.80D-13*0.2*RO2) - RCONST(6489) = (8.80D-13*0.2*RO2) - RCONST(6490) = (KAPHO2*0.15) - RCONST(6491) = (KAPHO2*0.41) - RCONST(6492) = (KAPHO2*0.44) - RCONST(6493) = (KAPNO) - RCONST(6494) = (KFPAN) - RCONST(6495) = (KRO2NO3*1.74) - RCONST(6496) = (1.00D-11*0.3*RO2) - RCONST(6497) = (1.00D-11*0.7*RO2) - RCONST(6498) = (KDEC*0.125) - RCONST(6499) = (KDEC*0.18) - RCONST(6500) = (KDEC*0.125) - RCONST(6501) = (KDEC*0.57) - RCONST(6502) = (KRO2HO2*0.625) - RCONST(6503) = (KRO2NO*0.021) - RCONST(6504) = (KRO2NO*0.979) - RCONST(6505) = (KRO2NO3) - RCONST(6506) = (8.80D-13*0.6*RO2) - RCONST(6507) = (8.80D-13*0.2*RO2) - RCONST(6508) = (8.80D-13*0.2*RO2) - RCONST(6509) = (KDEC*0.24) - RCONST(6510) = (KDEC*0.20) - RCONST(6511) = (KDEC*0.20) - RCONST(6512) = (KDEC*0.36) - RCONST(6513) = (KRO2HO2*0.625) - RCONST(6514) = (KRO2NO*0.017) - RCONST(6515) = (KRO2NO*0.983) - RCONST(6516) = (KRO2NO3) - RCONST(6517) = (2.00D-12*RO2*0.2) - RCONST(6518) = (2.00D-12*RO2*0.6) - RCONST(6519) = (2.00D-12*RO2*0.2) - RCONST(6520) = (KRO2HO2*0.625) - RCONST(6521) = (KRO2NO) - RCONST(6522) = (KRO2NO3) - RCONST(6523) = (8.80D-13*RO2*0.2) - RCONST(6524) = (8.80D-13*RO2*0.2) - RCONST(6525) = (8.80D-13*RO2*0.6) - RCONST(6526) = (KAPHO2*0.44) - RCONST(6527) = (KAPHO2*0.56) - RCONST(6528) = (KAPNO) - RCONST(6529) = (KFPAN) - RCONST(6530) = (KRO2NO3*1.74) - RCONST(6531) = (1.00D-11*RO2) - RCONST(6532) = (KROPRIM*O2) - RCONST(6533) = (KDEC*0.11) - RCONST(6534) = (KDEC*0.89) - RCONST(6535) = (KDEC*0.11) - RCONST(6536) = (KDEC*0.89) - RCONST(6537) = (KRO2HO2*0.706) - RCONST(6538) = (KRO2NO*0.145) - RCONST(6539) = (KRO2NO*0.855) - RCONST(6540) = (KRO2NO3) - RCONST(6541) = (2.90D-12*0.1*RO2) - RCONST(6542) = (2.90D-12*0.8*RO2) - RCONST(6543) = (2.90D-12*0.1*RO2) - RCONST(6544) = (KAPHO2*0.15) - RCONST(6545) = (KAPHO2*0.41) - RCONST(6546) = (KAPHO2*0.44) - RCONST(6547) = (KAPNO) - RCONST(6548) = (KFPAN) - RCONST(6549) = (KRO2NO3*1.74) - RCONST(6550) = (1.00D-11*0.3*RO2) - RCONST(6551) = (1.00D-11*0.7*RO2) - RCONST(6552) = (KDEC*0.11) - RCONST(6553) = (KDEC*0.89) - RCONST(6554) = (KDEC*0.11) - RCONST(6555) = (KDEC*0.89) - RCONST(6556) = (KRO2HO2*0.706) - RCONST(6557) = (KRO2NO) - RCONST(6558) = (KRO2NO3) - RCONST(6559) = (9.20D-14*0.7*RO2) - RCONST(6560) = (9.20D-14*0.3*RO2) - RCONST(6561) = (j('ch3o2h')) - RCONST(6562) = (5.77D-11) - RCONST(6563) = (j('ch3coch2ono2')*0.91) - RCONST(6564) = (2.23D-12) - RCONST(6565) = (KDEC) - RCONST(6566) = (j('mek')) - RCONST(6567) = (1.88D-11) - RCONST(6568) = (1.33D-12*0.33) - RCONST(6569) = (1.33D-12*0.67) - RCONST(6570) = (j('ch3coch2ono2')*1.6) - RCONST(6571) = (j('ch3o2h')) - RCONST(6572) = (3.95D-11) - RCONST(6573) = (KDEC) - RCONST(6574) = (j('biacet')) - RCONST(6575) = (2.69D-12) - RCONST(6576) = (j('mvk_mcm_ch2ch')) - RCONST(6577) = (j('ch3o2h')) - RCONST(6578) = (1.90D-12*EXP(190/TEMP)) - RCONST(6579) = (2.55D-11) - RCONST(6580) = (KDEC) - RCONST(6581) = (KNO3AL*2.0) - RCONST(6582) = (2.95D-11) - RCONST(6583) = (j('ch3cocho')) - RCONST(6584) = (j('ch3o2h')) - RCONST(6585) = (1.54D-10*0.05) - RCONST(6586) = (1.54D-10*0.93) - RCONST(6587) = (1.54D-10*0.02) - RCONST(6588) = (KDEC*0.23) - RCONST(6589) = (KDEC*0.55) - RCONST(6590) = (KDEC*0.22) - RCONST(6591) = (j('n_c3h7ono2')) - RCONST(6592) = (4.10D-17*0.50) - RCONST(6593) = (4.10D-17*0.50) - RCONST(6594) = (1.12D-10) - RCONST(6595) = (KRO2HO2*0.706) - RCONST(6596) = (KRO2NO) - RCONST(6597) = (KRO2NO3) - RCONST(6598) = (9.20D-14*RO2) - RCONST(6599) = (K14ISOM1) - RCONST(6600) = (KNO3AL*4.25) - RCONST(6601) = (2.40D-17*0.73) - RCONST(6602) = (2.40D-17*0.27) - RCONST(6603) = (5.20D-11*0.359) - RCONST(6604) = (5.20D-11*0.256) - RCONST(6605) = (5.20D-11*0.385) - RCONST(6606) = (j('c5hpald')*0.5) - RCONST(6607) = (j('c5hpald')*0.5) - RCONST(6608) = (j('ch2cch3cho_hco')) - RCONST(6609) = (j('ch2cch3cho_h')) - RCONST(6610) = (KNO3AL*4.25) - RCONST(6611) = (2.40D-17*0.5) - RCONST(6612) = (2.40D-17*0.5) - RCONST(6613) = (6.42D-11*0.051) - RCONST(6614) = (6.42D-11*0.247) - RCONST(6615) = (6.42D-11*0.452) - RCONST(6616) = (6.42D-11*0.250) - RCONST(6617) = (9.30D-11*0.5) - RCONST(6618) = (9.30D-11*0.5) - RCONST(6619) = (j('ch3o2h')) - RCONST(6620) = (5.00D-11*0.92) - RCONST(6621) = (5.00D-11*0.08) - RCONST(6622) = (j('2_c4h9ono2')) - RCONST(6623) = (5.00D-19*0.50) - RCONST(6624) = (5.00D-19*0.50) - RCONST(6625) = (2.17D-11*0.84) - RCONST(6626) = (2.17D-11*0.16) - RCONST(6627) = (KDEC) - RCONST(6628) = (3.85D-11) - RCONST(6629) = (j('ch3o2h')) - RCONST(6630) = (1.54D-10*0.05) - RCONST(6631) = (1.54D-10*0.93) - RCONST(6632) = (1.54D-10*0.02) - RCONST(6633) = (KDEC*0.38) - RCONST(6634) = (KDEC*0.40) - RCONST(6635) = (KDEC*0.22) - RCONST(6636) = (KRO2HO2*0.706) - RCONST(6637) = (KRO2NO) - RCONST(6638) = (KRO2NO3) - RCONST(6639) = (8.80D-13*RO2) - RCONST(6640) = (K14ISOM1) - RCONST(6641) = (KNO3AL*4.25) - RCONST(6642) = (2.40D-17*0.27) - RCONST(6643) = (2.40D-17*0.73) - RCONST(6644) = (5.20D-11*0.256) - RCONST(6645) = (5.20D-11*0.385) - RCONST(6646) = (5.20D-11*0.359) - RCONST(6647) = (j('c5hpald')*0.5) - RCONST(6648) = (j('c5hpald')*0.5) - RCONST(6649) = (j('ch2cch3cho_hco')) - RCONST(6650) = (j('ch2cch3cho_h')) - RCONST(6651) = (KNO3AL*4.25) - RCONST(6652) = (2.40D-17*0.5) - RCONST(6653) = (2.40D-17*0.5) - RCONST(6654) = (6.42D-11*0.051) - RCONST(6655) = (6.42D-11*0.247) - RCONST(6656) = (6.42D-11*0.452) - RCONST(6657) = (6.42D-11*0.250) - RCONST(6658) = (j('ch3o2h')) - RCONST(6659) = (1.15D-10*0.22) - RCONST(6660) = (1.15D-10*0.75) - RCONST(6661) = (1.15D-10*0.03) - RCONST(6662) = (j('1_c4h9ono2')) - RCONST(6663) = (7.00D-19*0.50) - RCONST(6664) = (7.00D-19*0.50) - RCONST(6665) = (4.15D-11) - RCONST(6666) = (KDEC) - RCONST(6667) = (j('mvk_mcm_ch2ch')) - RCONST(6668) = (3.81D-11) - RCONST(6669) = (KRO2HO2*0.706) - RCONST(6670) = (KRO2NO*0.072) - RCONST(6671) = (KRO2NO*0.928) - RCONST(6672) = (KRO2NO3) - RCONST(6673) = (8.00D-13*0.8*RO2) - RCONST(6674) = (8.00D-13*0.2*RO2) - RCONST(6675) = (KDEC*0.82) - RCONST(6676) = (KDEC*0.18) - RCONST(6677) = (KRO2HO2*0.706) - RCONST(6678) = (KRO2NO*0.019) - RCONST(6679) = (KRO2NO*0.981) - RCONST(6680) = (KRO2NO3) - RCONST(6681) = (9.20D-14*0.7*RO2) - RCONST(6682) = (9.20D-14*0.3*RO2) - RCONST(6683) = (KAPHO2*0.56) - RCONST(6684) = (KAPHO2*0.44) - RCONST(6685) = (KAPNO) - RCONST(6686) = (KFPAN) - RCONST(6687) = (KRO2NO3*1.6) - RCONST(6688) = (1.00D-11*RO2) - RCONST(6689) = (2.22D-11) - RCONST(6690) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(6691) = (KDEC*0.27) - RCONST(6692) = (KDEC*0.73) - RCONST(6693) = (1.20D-15) - RCONST(6694) = (1.00D-14) - RCONST(6695) = (1.00D-15) - RCONST(6696) = (7.00D-14) - RCONST(6697) = (6.00D-18*H2O) - RCONST(6698) = (1.00D-17*H2O) - RCONST(6699) = (2.55D-11) - RCONST(6700) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(6701) = (1.81D-11) - RCONST(6702) = (j('ch3coch2ono2')*0.91) - RCONST(6703) = (KDEC) - RCONST(6704) = (5.56D-11) - RCONST(6705) = (j('ch3o2h')) - RCONST(6706) = (5.20D-11) - RCONST(6707) = (KBPAN) - RCONST(6708) = (6.30D-11) - RCONST(6709) = (j('ch3o2h')) - RCONST(6710) = (2.47D-11) - RCONST(6711) = (j('n_c3h7ono2')) - RCONST(6712) = (KROPRIM*O2) - RCONST(6713) = (8.98D-12) - RCONST(6714) = (j('ch3o2h')+j('mek')) - RCONST(6715) = (KDEC) - RCONST(6716) = (j('ch3o2h')+j('mek')) - RCONST(6717) = (8.69D-11) - RCONST(6718) = (j('mek')) - RCONST(6719) = (1.55D-12) - RCONST(6720) = (2.00D+14*EXP(-6382/TEMP)) - RCONST(6721) = (3.78D-11) - RCONST(6722) = (j('mek')*2) - RCONST(6723) = (3.22D-12) - RCONST(6724) = (5.35D-11) - RCONST(6725) = (j('ch3o2h')) - RCONST(6726) = (1.28D-11) - RCONST(6727) = (j('n_c3h7ono2')) - RCONST(6728) = (KROPRIM*O2) - RCONST(6729) = (KDEC) - RCONST(6730) = (KRO2HO2*0.387) - RCONST(6731) = (KRO2NO*0.009) - RCONST(6732) = (KRO2NO*0.991) - RCONST(6733) = (KRO2NO3) - RCONST(6734) = (2.00D-12*0.6*RO2) - RCONST(6735) = (2.00D-12*0.2*RO2) - RCONST(6736) = (2.00D-12*0.2*RO2) - RCONST(6737) = (KRO2HO2*0.625) - RCONST(6738) = (KRO2NO*0.033) - RCONST(6739) = (KRO2NO*0.967) - RCONST(6740) = (KRO2NO3) - RCONST(6741) = (1.30D-12*0.6*RO2) - RCONST(6742) = (1.30D-12*0.2*RO2) - RCONST(6743) = (1.30D-12*0.2*RO2) - RCONST(6744) = (KRO2HO2*0.625) - RCONST(6745) = (KRO2NO) - RCONST(6746) = (KRO2NO3) - RCONST(6747) = (2.00D-12*0.60*RO2) - RCONST(6748) = (2.00D-12*0.20*RO2) - RCONST(6749) = (2.00D-12*0.20*RO2) - RCONST(6750) = (KRO2HO2*0.625*0.6) - RCONST(6751) = (KRO2HO2*0.625*0.4) - RCONST(6752) = (KRO2NO*0.083) - RCONST(6753) = (KRO2NO*0.917) - RCONST(6754) = (KRO2NO3) - RCONST(6755) = (2.00D-12*0.6*RO2) - RCONST(6756) = (2.00D-12*0.2*RO2) - RCONST(6757) = (2.00D-12*0.2*RO2) - RCONST(6758) = (5.97D-13*EXP(134/TEMP)*0.096) - RCONST(6759) = (5.97D-13*EXP(134/TEMP)*0.904) - RCONST(6760) = (KRO2HO2*0.520*0.4) - RCONST(6761) = (KRO2HO2*0.520*0.6) - RCONST(6762) = (KRO2NO*0.019) - RCONST(6763) = (KRO2NO*0.981) - RCONST(6764) = (KRO2NO3) - RCONST(6765) = (2.00D-12*0.2*RO2) - RCONST(6766) = (2.00D-12*0.6*RO2) - RCONST(6767) = (2.00D-12*0.2*RO2) - RCONST(6768) = (KRO2HO2*0.625*0.4) - RCONST(6769) = (KRO2HO2*0.625*0.6) - RCONST(6770) = (KRO2NO*0.959) - RCONST(6771) = (KRO2NO*0.041) - RCONST(6772) = (KRO2NO3) - RCONST(6773) = (8.80D-13*0.2*RO2) - RCONST(6774) = (8.80D-13*0.6*RO2) - RCONST(6775) = (8.80D-13*0.2*RO2) - RCONST(6776) = (KRO2HO2*0.625*0.6) - RCONST(6777) = (KRO2HO2*0.625*0.4) - RCONST(6778) = (KRO2NO*0.917) - RCONST(6779) = (KRO2NO*0.083) - RCONST(6780) = (KRO2NO3) - RCONST(6781) = (8.80D-13*0.6*RO2) - RCONST(6782) = (8.80D-13*0.2*RO2) - RCONST(6783) = (8.80D-13*0.2*RO2) - RCONST(6784) = (KAPHO2*0.15) - RCONST(6785) = (KAPHO2*0.41) - RCONST(6786) = (KAPHO2*0.44) - RCONST(6787) = (KAPNO) - RCONST(6788) = (KFPAN) - RCONST(6789) = (KRO2NO3*1.74) - RCONST(6790) = (1.00D-11*0.3*RO2) - RCONST(6791) = (1.00D-11*0.7*RO2) - RCONST(6792) = (KRO2HO2*0.625) - RCONST(6793) = (KRO2NO) - RCONST(6794) = (KRO2NO3) - RCONST(6795) = (2.00D-12*0.2*RO2) - RCONST(6796) = (2.00D-12*0.6*RO2) - RCONST(6797) = (2.00D-12*0.2*RO2) - RCONST(6798) = (KRO2HO2*0.625) - RCONST(6799) = (KRO2NO) - RCONST(6800) = (KRO2NO3) - RCONST(6801) = (2.00D-12*0.6*RO2) - RCONST(6802) = (2.00D-12*0.2*RO2) - RCONST(6803) = (2.00D-12*0.2*RO2) - RCONST(6804) = (KRO2HO2*0.706) - RCONST(6805) = (KRO2NO) - RCONST(6806) = (KRO2NO3) - RCONST(6807) = (2.00D-12*0.2*RO2) - RCONST(6808) = (2.00D-12*0.6*RO2) - RCONST(6809) = (2.00D-12*0.2*RO2) - RCONST(6810) = (KRO2HO2*0.706) - RCONST(6811) = (KRO2NO) - RCONST(6812) = (KRO2NO3) - RCONST(6813) = (8.80D-13*RO2) - RCONST(6814) = (KRO2HO2*0.706) - RCONST(6815) = (KRO2NO) - RCONST(6816) = (KRO2NO3) - RCONST(6817) = (8.80D-13*0.2*RO2) - RCONST(6818) = (8.80D-13*0.2*RO2) - RCONST(6819) = (8.80D-13*0.6*RO2) - RCONST(6820) = (KRO2HO2*0.706) - RCONST(6821) = (KRO2NO) - RCONST(6822) = (KRO2NO3) - RCONST(6823) = (2.00D-12*0.6*RO2) - RCONST(6824) = (2.00D-12*0.2*RO2) - RCONST(6825) = (2.00D-12*0.2*RO2) - RCONST(6826) = (KAPHO2*0.15) - RCONST(6827) = (KAPHO2*0.41) - RCONST(6828) = (KAPHO2*0.44) - RCONST(6829) = (KAPNO) - RCONST(6830) = (KFPAN) - RCONST(6831) = (KRO2NO3*1.74) - RCONST(6832) = (1.00D-11*0.3*RO2) - RCONST(6833) = (1.00D-11*0.7*RO2) - RCONST(6834) = (KRO2HO2*0.770) - RCONST(6835) = (KRO2NO) - RCONST(6836) = (KRO2NO3) - RCONST(6837) = (2.00D-12*RO2) - RCONST(6838) = (KRO2HO2*0.770) - RCONST(6839) = (KRO2NO) - RCONST(6840) = (KRO2NO3) - RCONST(6841) = (8.80D-13*RO2) - RCONST(6842) = (KRO2HO2*0.770) - RCONST(6843) = (KRO2NO) - RCONST(6844) = (KRO2NO3) - RCONST(6845) = (8.40D-13*0.2*RO2) - RCONST(6846) = (8.40D-13*0.6*RO2) - RCONST(6847) = (8.40D-13*0.2*RO2) - RCONST(6848) = (KRO2HO2*0.625) - RCONST(6849) = (KRO2NO*0.033) - RCONST(6850) = (KRO2NO*0.967) - RCONST(6851) = (KRO2NO3) - RCONST(6852) = (1.30D-12*0.2*RO2) - RCONST(6853) = (1.30D-12*0.6*RO2) - RCONST(6854) = (1.30D-12*0.2*RO2) - RCONST(6855) = (KRO2HO2*0.770) - RCONST(6856) = (KRO2NO*0.098) - RCONST(6857) = (KRO2NO*0.902) - RCONST(6858) = (KRO2NO3) - RCONST(6859) = (8.40D-13*0.2*RO2) - RCONST(6860) = (8.40D-13*0.6*RO2) - RCONST(6861) = (8.40D-13*0.2*RO2) - RCONST(6862) = (KRO2HO2*0.770) - RCONST(6863) = (KRO2NO) - RCONST(6864) = (KRO2NO3) - RCONST(6865) = (8.80D-13*RO2) - RCONST(6866) = (KRO2HO2*0.770) - RCONST(6867) = (KRO2NO) - RCONST(6868) = (KRO2NO3) - RCONST(6869) = (8.80D-13*0.2*RO2) - RCONST(6870) = (8.80D-13*0.2*RO2) - RCONST(6871) = (8.80D-13*0.6*RO2) - RCONST(6872) = (KRO2HO2*0.770) - RCONST(6873) = (KRO2NO) - RCONST(6874) = (KRO2NO3) - RCONST(6875) = (8.80D-13*RO2) - RCONST(6876) = (KRO2HO2*0.770) - RCONST(6877) = (KRO2NO) - RCONST(6878) = (KRO2NO3) - RCONST(6879) = (8.80D-13*0.2*RO2) - RCONST(6880) = (8.80D-13*0.2*RO2) - RCONST(6881) = (8.80D-13*0.6*RO2) - RCONST(6882) = (KAPHO2*0.56) - RCONST(6883) = (KAPHO2*0.44) - RCONST(6884) = (KAPNO) - RCONST(6885) = (KFPAN) - RCONST(6886) = (KRO2NO3*1.74) - RCONST(6887) = (1.00D-11*RO2) - RCONST(6888) = (KRO2HO2*0.706) - RCONST(6889) = (KRO2NO) - RCONST(6890) = (KRO2NO3) - RCONST(6891) = (2.00D-12*RO2) - RCONST(6892) = (KRO2HO2*0.770) - RCONST(6893) = (KRO2NO) - RCONST(6894) = (KRO2NO3) - RCONST(6895) = (2.00D-12*RO2) - RCONST(6896) = (KRO2HO2*0.770) - RCONST(6897) = (KRO2NO) - RCONST(6898) = (KRO2NO3) - RCONST(6899) = (2.00D-12*0.6*RO2) - RCONST(6900) = (2.00D-12*0.2*RO2) - RCONST(6901) = (2.00D-12*0.2*RO2) - RCONST(6902) = (KAPHO2*0.15) - RCONST(6903) = (KAPHO2*0.41) - RCONST(6904) = (KAPHO2*0.44) - RCONST(6905) = (KAPNO) - RCONST(6906) = (KFPAN) - RCONST(6907) = (KRO2NO3*1.74) - RCONST(6908) = (1.00D-11*0.3*RO2) - RCONST(6909) = (1.00D-11*0.7*RO2) - RCONST(6910) = (KRO2HO2*0.770) - RCONST(6911) = (KRO2NO) - RCONST(6912) = (KRO2NO3) - RCONST(6913) = (1.30D-12*0.6*RO2) - RCONST(6914) = (1.30D-12*0.2*RO2) - RCONST(6915) = (1.30D-12*0.2*RO2) - RCONST(6916) = (KRO2HO2*0.770) - RCONST(6917) = (KRO2NO) - RCONST(6918) = (KRO2NO3) - RCONST(6919) = (2.50D-13*0.6*RO2) - RCONST(6920) = (2.50D-13*0.2*RO2) - RCONST(6921) = (2.50D-13*0.2*RO2) - RCONST(6922) = (9.00D-12) - RCONST(6923) = (2.0D-14) - RCONST(6924) = (5.2D-12*EXP(600/TEMP)*0.772) - RCONST(6925) = (5.2D-12*EXP(600/TEMP)*0.228) - RCONST(6926) = (j('n_c3h7cho_hco')) - RCONST(6927) = (KRO2HO2*0.914) - RCONST(6928) = (KRO2NO) - RCONST(6929) = (KRO2NO3) - RCONST(6930) = (6.70D-15*RO2) - RCONST(6931) = (KAPHO2*0.44) - RCONST(6932) = (KAPHO2*0.41) - RCONST(6933) = (KAPHO2*0.15) - RCONST(6934) = (KAPNO) - RCONST(6935) = (KFPAN) - RCONST(6936) = (KRO2NO3*1.74) - RCONST(6937) = (1.00D-11*0.7*RO2) - RCONST(6938) = (1.00D-11*0.3*RO2) - RCONST(6939) = (3.01D-11) - RCONST(6940) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(6941) = (KDEC) - RCONST(6942) = (2.66D-11) - RCONST(6943) = (j('n_c3h7cho_hco')) - RCONST(6944) = (5.47D-11) - RCONST(6945) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(6946) = (j('mek')) - RCONST(6947) = (KDEC*0.80) - RCONST(6948) = (KDEC*0.20) - RCONST(6949) = (5.47D-11) - RCONST(6950) = (j('ch3cocho')+j('n_c3h7cho_hco')) - RCONST(6951) = (4.45D-11) - RCONST(6952) = (j('mek')) - RCONST(6953) = (j('n_c3h7cho_hco')) - RCONST(6954) = (6.65D-12) - RCONST(6955) = (j('mek')) - RCONST(6956) = (1.90D-12*EXP(190/TEMP)) - RCONST(6957) = (1.30D-11) - RCONST(6958) = (j('ch3o2h')+j('mek')) - RCONST(6959) = (2.88D-12) - RCONST(6960) = (j('n_c3h7ono2')+j('mek')) - RCONST(6961) = (4.20D+10*EXP(-3523/TEMP)) - RCONST(6962) = (7.67D-12) - RCONST(6963) = (j('mek')) - RCONST(6964) = (KNO3AL*8.5) - RCONST(6965) = (2.64D-11) - RCONST(6966) = (j('n_c3h7cho_hco')) - RCONST(6967) = (1.19D-10) - RCONST(6968) = (KRO2HO2*0.820) - RCONST(6969) = (KRO2NO*0.278) - RCONST(6970) = (KRO2NO*0.722) - RCONST(6971) = (KRO2NO3) - RCONST(6972) = (2.50D-13*RO2*0.6) - RCONST(6973) = (2.50D-13*RO2*0.2) - RCONST(6974) = (2.50D-13*RO2*0.2) - RCONST(6975) = (KAPHO2*0.56) - RCONST(6976) = (KAPHO2*0.44) - RCONST(6977) = (KAPNO) - RCONST(6978) = (KFPAN) - RCONST(6979) = (KRO2NO3*1.74) - RCONST(6980) = (1.00D-11*RO2) - RCONST(6981) = (8.59D-11) - RCONST(6982) = (j('ch3o2h')) - RCONST(6983) = (3.24D-12) - RCONST(6984) = (j('1_c4h9ono2')) - RCONST(6985) = (2.70D+14*EXP(-6643/TEMP)) - RCONST(6986) = (KROSEC*O2) - RCONST(6987) = (6.07D-12) - RCONST(6988) = (3.68D-11) - RCONST(6989) = (3.44D-11) - RCONST(6990) = (j('ch3o2h')) - RCONST(6991) = (6.05D-12) - RCONST(6992) = (j('1_c4h9ono2')) - RCONST(6993) = (KDEC) - RCONST(6994) = (1.64D-11) - RCONST(6995) = (1.81D-11) - RCONST(6996) = (1.11D-11) - RCONST(6997) = (j('ch3o2h')) - RCONST(6998) = (6.37D-12) - RCONST(6999) = (j('2_c4h9ono2')) - RCONST(7000) = (KDEC) - RCONST(7001) = (7.69D-12) - RCONST(7002) = (2.63D-11) - RCONST(7003) = (j('ch3o2h')) - RCONST(7004) = (KDEC) - RCONST(7005) = (3.07D-12) - RCONST(7006) = (1.41D-11) - RCONST(7007) = (KRO2HO2*0.859) - RCONST(7008) = (KRO2NO*0.138) - RCONST(7009) = (KRO2NO*0.862) - RCONST(7010) = (KRO2NO3) - RCONST(7011) = (2.50D-13*RO2*0.2) - RCONST(7012) = (2.50D-13*RO2*0.6) - RCONST(7013) = (2.50D-13*RO2*0.2) - RCONST(7014) = (KAPHO2*0.56) - RCONST(7015) = (KAPHO2*0.44) - RCONST(7016) = (KAPNO) - RCONST(7017) = (KFPAN) - RCONST(7018) = (KRO2NO3*1.74) - RCONST(7019) = (1.00D-11*RO2) - RCONST(7020) = (2.60D-13*0.092) - RCONST(7021) = (2.60D-13*0.988) - RCONST(7022) = (8.30D-18*0.670) - RCONST(7023) = (8.30D-18*0.330) - RCONST(7024) = (1.10D-10*0.288) - RCONST(7025) = (1.10D-10*0.712) - RCONST(7026) = (j('n_c3h7cho_hco')) - RCONST(7027) = (1.06D-10) - RCONST(7028) = (j('mek')) - RCONST(7029) = (j('ch3o2h')) - RCONST(7030) = (KDEC) - RCONST(7031) = (8.34D-11) - RCONST(7032) = (j('biacet')) - RCONST(7033) = (9.34D-11) - RCONST(7034) = (j('mek')) - RCONST(7035) = (9.73D-11) - RCONST(7036) = (j('mek')) - RCONST(7037) = (j('ch3o2h')) - RCONST(7038) = (KDEC) - RCONST(7039) = (1.01D-10) - RCONST(7040) = (j('ch3cocho')) - RCONST(7041) = (9.04D-11) - RCONST(7042) = (j('mek')) - RCONST(7043) = (7.39D-11) - RCONST(7044) = (j('ch3o2h')) - RCONST(7045) = (5.82D-11) - RCONST(7046) = (j('n_c3h7ono2')) - RCONST(7047) = (KDEC) - RCONST(7048) = (6.91D-11) - RCONST(7049) = (8.00D-11*0.288) - RCONST(7050) = (8.00D-11*0.712) - RCONST(7051) = (j('n_c3h7cho_hco')) - RCONST(7052) = (6.98D-11) - RCONST(7053) = (KAPHO2*0.41) - RCONST(7054) = (KAPHO2*0.44) - RCONST(7055) = (KAPHO2*0.15) - RCONST(7056) = (KAPNO) - RCONST(7057) = (KFPAN) - RCONST(7058) = (KRO2NO3*1.74) - RCONST(7059) = (1.00D-11*RO2*0.7) - RCONST(7060) = (1.00D-11*RO2*0.3) - RCONST(7061) = (9.40D-12) - RCONST(7062) = (1.50D-16*0.730) - RCONST(7063) = (1.50D-16*0.270) - RCONST(7064) = (9.97D-11*0.647) - RCONST(7065) = (9.97D-11*0.353) - RCONST(7066) = (KAPHO2*0.15) - RCONST(7067) = (KAPHO2*0.41) - RCONST(7068) = (KAPHO2*0.44) - RCONST(7069) = (KAPNO) - RCONST(7070) = (KFPAN) - RCONST(7071) = (KRO2NO3*1.74) - RCONST(7072) = (1.00D-11*RO2*0.3) - RCONST(7073) = (1.00D-11*RO2*0.7) - RCONST(7074) = (KRO2HO2*0.975) - RCONST(7075) = (KRO2NO) - RCONST(7076) = (KRO2NO3) - RCONST(7077) = (9.20D-14*RO2*0.7) - RCONST(7078) = (9.20D-14*RO2*0.3) - RCONST(7079) = (KDEC*0.5) - RCONST(7080) = (KDEC*0.5) - RCONST(7081) = (KNO3AL*8.5) - RCONST(7082) = (3.79D-11*0.032) - RCONST(7083) = (3.79D-11*0.004) - RCONST(7084) = (3.79D-11*0.100) - RCONST(7085) = (3.79D-11*0.764) - RCONST(7086) = (3.79D-11*0.100) - RCONST(7087) = (j('n_c3h7cho_hco')) - RCONST(7088) = (KRO2HO2*0.975) - RCONST(7089) = (KRO2NO*0.068) - RCONST(7090) = (KRO2NO*0.932) - RCONST(7091) = (KRO2NO3) - RCONST(7092) = (9.20D-14*RO2*0.7) - RCONST(7093) = (9.20D-14*RO2*0.3) - RCONST(7094) = (3.65D-11) - RCONST(7095) = (1.20D-15) - RCONST(7096) = (1.00D-14) - RCONST(7097) = (1.00D-15) - RCONST(7098) = (7.00D-14) - RCONST(7099) = (1.40D-17*H2O) - RCONST(7100) = (KRO2HO2*0.975) - RCONST(7101) = (KRO2NO*0.247) - RCONST(7102) = (KRO2NO*0.753) - RCONST(7103) = (KRO2NO3) - RCONST(7104) = (9.20D-14*RO2*0.7) - RCONST(7105) = (9.20D-14*RO2*0.3) - RCONST(7106) = (1.21D-11) - RCONST(7107) = (KDEC*0.5) - RCONST(7108) = (KDEC*0.5) - RCONST(7109) = (KRO2HO2*0.975) - RCONST(7110) = (KRO2NO*0.136) - RCONST(7111) = (KRO2NO*0.864) - RCONST(7112) = (KRO2NO3) - RCONST(7113) = (9.20D-14*RO2*0.7) - RCONST(7114) = (9.20D-14*RO2*0.3) - RCONST(7115) = (1.06D-10) - RCONST(7116) = (j('ch3o2h')) - RCONST(7117) = (j('mek')) - RCONST(7118) = (KDEC) - RCONST(7119) = (8.34D-11) - RCONST(7120) = (j('biacet')) - RCONST(7121) = (9.34D-11) - RCONST(7122) = (j('mek')) - RCONST(7123) = (9.73D-11) - RCONST(7124) = (j('ch3o2h')) - RCONST(7125) = (j('mek')) - RCONST(7126) = (KDEC) - RCONST(7127) = (1.01D-10) - RCONST(7128) = (j('ch3cocho')) - RCONST(7129) = (9.04D-11) - RCONST(7130) = (j('mek')) - RCONST(7131) = (KDEC*0.5) - RCONST(7132) = (KDEC*0.5) - RCONST(7133) = (3.78D-11) - RCONST(7134) = (KRO2HO2*0.975) - RCONST(7135) = (KRO2NO*0.136) - RCONST(7136) = (KRO2NO*0.864) - RCONST(7137) = (KRO2NO3) - RCONST(7138) = (9.20D-14*RO2*0.7) - RCONST(7139) = (9.20D-14*RO2*0.3) - RCONST(7140) = (9.71D-11) - RCONST(7141) = (j('ch3o2h')) - RCONST(7142) = (8.31D-11) - RCONST(7143) = (j('n_c3h7ono2')) - RCONST(7144) = (KDEC) - RCONST(7145) = (KNO3AL*17) - RCONST(7146) = (3.30D-13) - RCONST(7147) = (1.10D-16*0.330) - RCONST(7148) = (1.10D-16*0.670) - RCONST(7149) = (1.10D-10*0.447) - RCONST(7150) = (1.10D-10*0.553) - RCONST(7151) = (j('n_c3h7cho_hco')*2) - RCONST(7152) = (8.80D-11) - RCONST(7153) = (1.02D-10) - RCONST(7154) = (j('ch3o2h')) - RCONST(7155) = (j('n_c3h7cho_hco')) - RCONST(7156) = (KDEC) - RCONST(7157) = (7.59D-11) - RCONST(7158) = (j('ch3cocho')) - RCONST(7159) = (9.02D-11) - RCONST(7160) = (j('n_c3h7cho_hco')) - RCONST(7161) = (7.39D-11) - RCONST(7162) = (j('ch3o2h')) - RCONST(7163) = (5.82D-11) - RCONST(7164) = (j('n_c3h7ono2')) - RCONST(7165) = (KDEC) - RCONST(7166) = (8.00D-11) - RCONST(7167) = (j('n_c3h7cho_hco')) - RCONST(7168) = (6.91D-11) - RCONST(7169) = (9.40D-12) - RCONST(7170) = (1.16D-14*0.435) - RCONST(7171) = (1.16D-14*0.435) - RCONST(7172) = (1.16D-14*0.100) - RCONST(7173) = (1.16D-14*0.030) - RCONST(7174) = (9.95D-11*0.647) - RCONST(7175) = (9.95D-11*0.353) - RCONST(7176) = (1.39D-11) - RCONST(7177) = (j('ch3o2h')) - RCONST(7178) = (1.73D-11) - RCONST(7179) = (KBPAN) - RCONST(7180) = (4.51D-12) - RCONST(7181) = (1.46D-11) - RCONST(7182) = (j('ch3o2h')) - RCONST(7183) = (1.82D-11) - RCONST(7184) = (KBPAN) - RCONST(7185) = (1.45D-11) - RCONST(7186) = (j('ch3o2h')) - RCONST(7187) = (3.98D-11) - RCONST(7188) = (j('n_c3h7ono2')) - RCONST(7189) = (7.51D-12) - RCONST(7190) = (2.00D+14*EXP(-4714/TEMP)) - RCONST(7191) = (2.46D-11) - RCONST(7192) = (j('mek')) - RCONST(7193) = (1.51D-11) - RCONST(7194) = (j('ch3o2h')) - RCONST(7195) = (3.84D-11) - RCONST(7196) = (KBPAN) - RCONST(7197) = (1.20D-11) - RCONST(7198) = (j('ch3o2h')) - RCONST(7199) = (1.90D-12*EXP(190/TEMP)) - RCONST(7200) = (1.54D-11) - RCONST(7201) = (5.93D-12) - RCONST(7202) = (2.00D+14*EXP(-4909/TEMP)) - RCONST(7203) = (9.90D-12) - RCONST(7204) = (j('i_c3h7cho')) - RCONST(7205) = (KNO3AL*8.5) - RCONST(7206) = (3.00D-11) - RCONST(7207) = (j('ch3o2h')) - RCONST(7208) = (4.83D-12) - RCONST(7209) = (KBPAN) - RCONST(7210) = (1.23D-12) - RCONST(7211) = (8.08D-12) - RCONST(7212) = (j('ch3o2h')) - RCONST(7213) = (1.62D-12) - RCONST(7214) = (KBPAN) - RCONST(7215) = (j('ch3o2h')) - RCONST(7216) = (2.72D-11) - RCONST(7217) = (1.90D-12*EXP(190/TEMP)) - RCONST(7218) = (5.22D-12) - RCONST(7219) = (2.00D+14*EXP(-5489/TEMP)) - RCONST(7220) = (j('n_c3h7cho_hco')) - RCONST(7221) = (KNO3AL*8.5) - RCONST(7222) = (4.08D-11) - RCONST(7223) = (2.17D-11) - RCONST(7224) = (2.93D-11) - RCONST(7225) = (j('ch3o2h')) - RCONST(7226) = (3.27D-11) - RCONST(7227) = (KBPAN) - RCONST(7228) = (9.54D-12) - RCONST(7229) = (KAPHO2*0.56) - RCONST(7230) = (KAPHO2*0.44) - RCONST(7231) = (KAPNO) - RCONST(7232) = (KFPAN) - RCONST(7233) = (KRO2NO3) - RCONST(7234) = (1.00D-11*RO2) - RCONST(7235) = (KRO2HO2*0.770) - RCONST(7236) = (KRO2NO) - RCONST(7237) = (KRO2NO3) - RCONST(7238) = (2.50D-13*0.2*RO2) - RCONST(7239) = (2.50D-13*0.6*RO2) - RCONST(7240) = (2.50D-13*0.2*RO2) - RCONST(7241) = (KRO2HO2*0.706) - RCONST(7242) = (KRO2NO) - RCONST(7243) = (KRO2NO3) - RCONST(7244) = (1.30D-12*RO2) - RCONST(7245) = (KRO2HO2*0.770) - RCONST(7246) = (KRO2NO) - RCONST(7247) = (KRO2NO3) - RCONST(7248) = (2.50D-13*RO2) - RCONST(7249) = (3.50D-11) - RCONST(7250) = (j('ch3o2h')+j('biacet')) - RCONST(7251) = (KDEC) - RCONST(7252) = (4.50D-12) - RCONST(7253) = (j('ch3o2h')) - RCONST(7254) = (1.27D-12) - RCONST(7255) = (KBPAN) - RCONST(7256) = (1.05D-11) - RCONST(7257) = (j('ch3o2h')) - RCONST(7258) = (7.24D-12) - RCONST(7259) = (KBPAN) - RCONST(7260) = (4.18D-12) - RCONST(7261) = (j('ch3o2h')+j('mek')) - RCONST(7262) = (5.93D-13) - RCONST(7263) = (KBPAN) - RCONST(7264) = (2.78D-11) - RCONST(7265) = (j('ch3o2h')) - RCONST(7266) = (3.12D-11) - RCONST(7267) = (KBPAN) - RCONST(7268) = (9.00D-12) - RCONST(7269) = (7.29D-11) - RCONST(7270) = (j('i_c3h7cho')) - RCONST(7271) = (7.65D-11) - RCONST(7272) = (j('ch3o2h')+j('i_c3h7cho')) - RCONST(7273) = (7.29D-11) - RCONST(7274) = (KBPAN) - RCONST(7275) = (4.31D-11) - RCONST(7276) = (j('n_c3h7cho_hco')) - RCONST(7277) = (j('ch3o2h')) - RCONST(7278) = (j('mek')) - RCONST(7279) = (1.90D-12) - RCONST(7280) = (j('ch3o2h')+j('mek')) - RCONST(7281) = (5.36D-12) - RCONST(7282) = (KBPAN) - RCONST(7283) = (1.44D-12) - RCONST(7284) = (j('ch3o2h')) - RCONST(7285) = (1.90D-12*EXP(190/TEMP)) - RCONST(7286) = (1.66D-11) - RCONST(7287) = (j('n_c3h7ono2')) - RCONST(7288) = (5.85D-12) - RCONST(7289) = (8.74D+11*EXP(-3430/TEMP)) - RCONST(7290) = (j('n_c3h7cho_hco')) - RCONST(7291) = (KNO3AL*4.0) - RCONST(7292) = (2.64D-11) - RCONST(7293) = (1.11D-11) - RCONST(7294) = (KDEC) -! RCONST(7295) = constant rate coefficient -! RCONST(7296) = constant rate coefficient - RCONST(7297) = (j('ch3o2h')) -! RCONST(7298) = constant rate coefficient - RCONST(7299) = (KBPAN) - RCONST(7300) = (7.33D-11) - RCONST(7301) = (j('ch3o2h')) - RCONST(7302) = (6.97D-11) - RCONST(7303) = (KBPAN) - RCONST(7304) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(7305) = (1.58D-11) - RCONST(7306) = (KAPHO2*0.15) - RCONST(7307) = (KAPHO2*0.41) - RCONST(7308) = (KAPHO2*0.44) - RCONST(7309) = (KAPNO) - RCONST(7310) = (KFPAN) - RCONST(7311) = (KRO2NO3*1.74) - RCONST(7312) = (1.00D-11*0.3*RO2) - RCONST(7313) = (1.00D-11*0.7*RO2) - RCONST(7314) = (1.34D-12*0.44) - RCONST(7315) = (1.34D-12*0.15) - RCONST(7316) = (4.42D-12*0.15) - RCONST(7317) = (4.42D-12*0.85) - RCONST(7318) = (j('ch3o2h')) - RCONST(7319) = (8.21D-13) - RCONST(7320) = (KBPAN) - RCONST(7321) = (1.23D-12*0.32) - RCONST(7322) = (1.23D-12*0.68) - RCONST(7323) = (4.31D-12*0.09) - RCONST(7324) = (4.31D-12*0.91) - RCONST(7325) = (j('ch3o2h')) - RCONST(7326) = (7.10D-13) - RCONST(7327) = (KBPAN) - RCONST(7328) = (6.99D-11) - RCONST(7329) = (j('ch3o2h')+j('i_c3h7cho')) - RCONST(7330) = (6.64D-11) - RCONST(7331) = (KBPAN) - RCONST(7332) = (j('mek')) - RCONST(7333) = (j('ch3o2h')) - RCONST(7334) = (7.34D-12) - RCONST(7335) = (KBPAN) - RCONST(7336) = (3.74D-12) - RCONST(7337) = (j('ch3o2h')) - RCONST(7338) = (3.08D-11) - RCONST(7339) = (j('n_c3h7ono2')) - RCONST(7340) = (5.93D-12) - RCONST(7341) = (8.74D+11*EXP(-3430/TEMP)) - RCONST(7342) = (j('mek')) - RCONST(7343) = (9.70D-12*0.517) - RCONST(7344) = (9.60D-12*0.483) - RCONST(7345) = (1.54D-11) - RCONST(7346) = (j('ch3o2h')) - RCONST(7347) = (2.09D-11) - RCONST(7348) = (1.90D-12*EXP(190/TEMP)) - RCONST(7349) = (j('1_c4h9ono2')) - RCONST(7350) = (1.03D-11) - RCONST(7351) = (4.37D+11*EXP(-2945/TEMP)) - RCONST(7352) = (j('n_c3h7cho_hco')) - RCONST(7353) = (KNO3AL*5.5) - RCONST(7354) = (3.09D-11) - RCONST(7355) = (j('ch3o2h')) - RCONST(7356) = (1.90D-12*EXP(190/TEMP)) - RCONST(7357) = (1.81D-11) - RCONST(7358) = (j('n_c3h7ono2')) - RCONST(7359) = (6.00D-12) - RCONST(7360) = (8.74D+11*EXP(-3430/TEMP)) - RCONST(7361) = (1.26D-11*0.5) - RCONST(7362) = (1.26D-11*0.5) - RCONST(7363) = (j('n_c3h7cho_hco')) - RCONST(7364) = (KNO3AL*8.5) - RCONST(7365) = (3.51D-11) - RCONST(7366) = (5.19D-12) - RCONST(7367) = (j('ch3o2h')) - RCONST(7368) = (KBPAN) - RCONST(7369) = (5.02D-13) - RCONST(7370) = (j('ch3o2h')) - RCONST(7371) = (3.68D-11) - RCONST(7372) = (j('1_c4h9ono2')) - RCONST(7373) = (6.28D-12) - RCONST(7374) = (8.74D+11*EXP(-3430/TEMP)) - RCONST(7375) = (1.87D-11) - RCONST(7376) = (j('mek')*0.5) - RCONST(7377) = (j('mek')*0.5) - RCONST(7378) = (1.07D-11*0.527) - RCONST(7379) = (1.07D-11*0.473) - RCONST(7380) = (j('ch3o2h')) - RCONST(7381) = (1.16D-11) - RCONST(7382) = (5.00D-12) - RCONST(7383) = (KBPAN) - RCONST(7384) = (j('ch3o2h')) - RCONST(7385) = (3.53D-11) - RCONST(7386) = (j('1_c4h9ono2')) - RCONST(7387) = (1.03D-11) - RCONST(7388) = (4.37D+11*EXP(-2945/TEMP)) - RCONST(7389) = (2.01D-11) - RCONST(7390) = (j('ch3o2h')) - RCONST(7391) = (2.42D-11) - RCONST(7392) = (1.90D-12*EXP(190/TEMP)) - RCONST(7393) = (j('1_c4h9ono2')) - RCONST(7394) = (1.34D-11) - RCONST(7395) = (5.55D+11*EXP(-2945/TEMP)) - RCONST(7396) = (j('n_c3h7cho_hco')) - RCONST(7397) = (KNO3AL*5.5) - RCONST(7398) = (3.78D-11*0.331) - RCONST(7399) = (3.78D-11*0.669) - RCONST(7400) = (j('ch3o2h')) - RCONST(7401) = (3.23D-11) - RCONST(7402) = (j('1_c4h9ono2')) - RCONST(7403) = (7.62D-12) - RCONST(7404) = (8.74D+11*EXP(-3430/TEMP)) - RCONST(7405) = (j('mek')) - RCONST(7406) = (1.46D-11*0.698) - RCONST(7407) = (1.46D-11*0.302) - RCONST(7408) = (1.72D-11) - RCONST(7409) = (j('ch3o2h')) - RCONST(7410) = (1.21D-11) - RCONST(7411) = (KBPAN) - RCONST(7412) = (3.61D-12) - RCONST(7413) = (j('ch3o2h')) - RCONST(7414) = (2.28D-11) - RCONST(7415) = (1.90D-12*EXP(190/TEMP)) - RCONST(7416) = (j('n_c3h7ono2')) - RCONST(7417) = (1.06D-11) - RCONST(7418) = (4.37D+11*EXP(-2945/TEMP)) - RCONST(7419) = (j('i_c3h7cho')) - RCONST(7420) = (KNO3AL*8.5) - RCONST(7421) = (3.61D-11*0.287) - RCONST(7422) = (3.61D-11*0.713) - RCONST(7423) = (j('mek')) - RCONST(7424) = (j('ch3o2h')) - RCONST(7425) = (5.89D-12) - RCONST(7426) = (KDEC) - RCONST(7427) = (j('mek')) - RCONST(7428) = (2.43D-12) - RCONST(7429) = (j('ch3o2h')+j('mek')) - RCONST(7430) = (3.77D-11) - RCONST(7431) = (j('n_c3h7ono2')+j('mek')) - RCONST(7432) = (2.20D-12) - RCONST(7433) = (1.15D+11*EXP(-3430/TEMP)) - RCONST(7434) = (j('i_c3h7cho')) - RCONST(7435) = (KNO3AL*8.5) - RCONST(7436) = (6.87D-11) - RCONST(7437) = (j('mek')) - RCONST(7438) = (1.64D-11) - RCONST(7439) = (j('ch3o2h')) - RCONST(7440) = (1.30D-11) - RCONST(7441) = (1.90D-12*EXP(190/TEMP)) - RCONST(7442) = (j('n_c3h7ono2')) - RCONST(7443) = (2.16D-12) - RCONST(7444) = (KROPRIM*O2) - RCONST(7445) = (j('n_c3h7cho_hco')) - RCONST(7446) = (KNO3AL*8.5) - RCONST(7447) = (2.66D-11*0.177) - RCONST(7448) = (2.66D-11*0.823) - RCONST(7449) = (7.46D-12) - RCONST(7450) = (j('ch3o2h')) - RCONST(7451) = (3.23D-11) - RCONST(7452) = (j('1_c4h9ono2')) - RCONST(7453) = (6.34D-12) - RCONST(7454) = (8.74D+11*EXP(-3430/TEMP)) - RCONST(7455) = (j('mek')) - RCONST(7456) = (1.11D-11*0.527) - RCONST(7457) = (1.11D-11*0.473) - RCONST(7458) = (1.73D-11) - RCONST(7459) = (j('ch3o2h')) - RCONST(7460) = (1.55D-11) - RCONST(7461) = (KBPAN) - RCONST(7462) = (5.03D-12) - RCONST(7463) = (j('ch3o2h')) - RCONST(7464) = (2.28D-11) - RCONST(7465) = (1.90D-12*EXP(190/TEMP)) - RCONST(7466) = (j('1_c4h9ono2')) - RCONST(7467) = (1.20D-11) - RCONST(7468) = (4.37D+11*EXP(-2945/TEMP)) - RCONST(7469) = (j('n_c3h7cho_hco')) - RCONST(7470) = (KNO3AL*8.5) - RCONST(7471) = (3.98D-11*0.287) - RCONST(7472) = (3.98D-11*0.713) - RCONST(7473) = (j('ch3o2h')+j('mek')) - RCONST(7474) = (6.97D-11) - RCONST(7475) = (j('1_c4h9ono2')+j('mek')) - RCONST(7476) = (1.25D-12) - RCONST(7477) = (1.72D+11*EXP(-4240/TEMP)) - RCONST(7478) = (KROSEC*O2) - RCONST(7479) = (j('mek')) - RCONST(7480) = (1.83D-12) - RCONST(7481) = (2.92D-11) - RCONST(7482) = (j('ch3o2h')+j('mek')) - RCONST(7483) = (8.04D-12) - RCONST(7484) = (KDEC) - RCONST(7485) = (j('mek')) - RCONST(7486) = (4.58D-12) - RCONST(7487) = (j('ch3o2h')) - RCONST(7488) = (1.56D-11) - RCONST(7489) = (1.90D-12*EXP(190/TEMP)) - RCONST(7490) = (j('n_c3h7ono2')) - RCONST(7491) = (5.95D-12) - RCONST(7492) = (8.74D+11*EXP(-3430/TEMP)) - RCONST(7493) = (j('i_c3h7cho')) - RCONST(7494) = (KNO3AL*8.5) - RCONST(7495) = (2.96D-11) - RCONST(7496) = (1.01D-11*0.5) - RCONST(7497) = (1.01D-11*0.5) - RCONST(7498) = (j('ch3o2h')) - RCONST(7499) = (4.96D-12) - RCONST(7500) = (KBPAN) - RCONST(7501) = (8.46D-13) - RCONST(7502) = (j('ch3o2h')) - RCONST(7503) = (1.56D-11) - RCONST(7504) = (1.90D-12*EXP(190/TEMP)) - RCONST(7505) = (j('n_c3h7ono2')) - RCONST(7506) = (4.77D-12) - RCONST(7507) = (8.74D+11*EXP(-3430/TEMP)) - RCONST(7508) = (j('n_c3h7cho_hco')) - RCONST(7509) = (KNO3AL*8.5) - RCONST(7510) = (2.60D-11) - RCONST(7511) = (4.87D-12) - RCONST(7512) = (j('ch3o2h')) - RCONST(7513) = (8.47D-12) - RCONST(7514) = (KBPAN) - RCONST(7515) = (1.65D-12) - RCONST(7516) = (j('ch3o2h')) - RCONST(7517) = (1.90D-12*EXP(190/TEMP)) - RCONST(7518) = (1.95D-11) - RCONST(7519) = (j('n_c3h7ono2')) - RCONST(7520) = (7.40D-12) - RCONST(7521) = (8.74D+11*EXP(-3430/TEMP)) - RCONST(7522) = (1.45D-11) - RCONST(7523) = (j('i_c3h7cho')) - RCONST(7524) = (KNO3AL*8.5) - RCONST(7525) = (3.40D-11) - RCONST(7526) = (9.48D-12) - RCONST(7527) = (j('ch3o2h')) - RCONST(7528) = (1.29D-11) - RCONST(7529) = (KBPAN) - RCONST(7530) = (3.60D-12) - RCONST(7531) = (j('ch3o2h')) - RCONST(7532) = (3.84D-11) - RCONST(7533) = (j('1_c4h9ono2')) - RCONST(7534) = (1.23D-11) - RCONST(7535) = (5.55D+11*EXP(-2945/TEMP)) - RCONST(7536) = (2.32D-11) - RCONST(7537) = (j('mek')) - RCONST(7538) = (1.72D-11) - RCONST(7539) = (j('ch3o2h')+j('mek')) - RCONST(7540) = (1.42D-10) - RCONST(7541) = (1.45D+11*EXP(-3430/TEMP)) - RCONST(7542) = (j('ch3o2h')) - RCONST(7543) = (1.54D-11) - RCONST(7544) = (j('2_c4h9ono2')) - RCONST(7545) = (1.04D-11) - RCONST(7546) = (5.55D+11*EXP(-2945/TEMP)) - RCONST(7547) = (1.20D-11) - RCONST(7548) = (j('ch3o2h')+j('mek')) - RCONST(7549) = (8.55D-11) - RCONST(7550) = (1.72D+11*EXP(-4240/TEMP)) - RCONST(7551) = (j('ch3o2h')) - RCONST(7552) = (2.71D-11) - RCONST(7553) = (j('1_c4h9ono2')) - RCONST(7554) = (2.24D-12) - RCONST(7555) = (KROSEC*O2) - RCONST(7556) = (2.70D+14*EXP(-7398/TEMP)) - RCONST(7557) = (j('mek')) - RCONST(7558) = (5.92D-12*0.834) - RCONST(7559) = (5.92D-12*0.166) - RCONST(7560) = (j('ch3o2h')) - RCONST(7561) = (3.70D-11) - RCONST(7562) = (j('1_c4h9ono2')) - RCONST(7563) = (1.08D-11) - RCONST(7564) = (5.55D+11*EXP(-2945/TEMP)) - RCONST(7565) = (2.18D-11*0.500) - RCONST(7566) = (2.18D-11*0.500) - RCONST(7567) = (1.56D-11) - RCONST(7568) = (j('mek')) - RCONST(7569) = (j('ch3o2h')+j('mek')) - RCONST(7570) = (6.05D-12) - RCONST(7571) = (1.72D+11*EXP(-4240/TEMP)) - RCONST(7572) = (1.38D-11) - RCONST(7573) = (1.90D-12*EXP(190/TEMP)) - RCONST(7574) = (j('n_c3h7ono2')) - RCONST(7575) = (3.31D-12) - RCONST(7576) = (KROPRIM*O2) - RCONST(7577) = (8.35D-12) - RCONST(7578) = (j('n_c3h7cho_hco')) - RCONST(7579) = (KNO3AL*8.5) - RCONST(7580) = (2.77D-11) - RCONST(7581) = (j('ch3o2h')) - RCONST(7582) = (4.41D-11) - RCONST(7583) = (j('1_c4h9ono2')) - RCONST(7584) = (1.38D-11) - RCONST(7585) = (5.55D+11*EXP(-2945/TEMP)) - RCONST(7586) = (2.63D-11) - RCONST(7587) = (j('mek')) - RCONST(7588) = (1.85D-11*0.304) - RCONST(7589) = (1.85D-11*0.696) - RCONST(7590) = (j('ch3o2h')+j('mek')) - RCONST(7591) = (8.66D-11) - RCONST(7592) = (1.15D+11*EXP(-3430/TEMP)) - RCONST(7593) = (j('ch3o2h')) - RCONST(7594) = (4.55D-11) - RCONST(7595) = (j('1_c4h9ono2')) - RCONST(7596) = (1.50D-11) - RCONST(7597) = (5.55D+11*EXP(-2945/TEMP)) - RCONST(7598) = (2.43D-11) - RCONST(7599) = (j('mek')) - RCONST(7600) = (1.99D-11*0.304) - RCONST(7601) = (1.99D-11*0.696) - RCONST(7602) = (j('ch3o2h')+j('mek')) - RCONST(7603) = (8.80D-11) - RCONST(7604) = (1.15D+11*EXP(-3430/TEMP)) - RCONST(7605) = (j('ch3o2h')) - RCONST(7606) = (4.69D-11) - RCONST(7607) = (j('1_c4h9ono2')) - RCONST(7608) = (1.64D-11) - RCONST(7609) = (5.55D+11*EXP(-2945/TEMP)) - RCONST(7610) = (2.57D-11) - RCONST(7611) = (j('mek')) - RCONST(7612) = (2.13D-11*0.304) - RCONST(7613) = (2.13D-11*0.696) - RCONST(7614) = (j('ch3o2h')+j('mek')) - RCONST(7615) = (8.94D-11) - RCONST(7616) = (1.15D+11*EXP(-3430/TEMP)) - RCONST(7617) = (j('ch3o2h')) - RCONST(7618) = (4.83D-11) - RCONST(7619) = (j('1_c4h9ono2')) - RCONST(7620) = (1.78D-11) - RCONST(7621) = (5.55D+11*EXP(-2945/TEMP)) - RCONST(7622) = (2.71D-11) - RCONST(7623) = (j('mek')) - RCONST(7624) = (2.27D-11*0.304) - RCONST(7625) = (2.27D-11*0.696) - RCONST(7626) = (j('ch3o2h')+j('mek')) - RCONST(7627) = (9.08D-11) - RCONST(7628) = (1.15D+11*EXP(-3430/TEMP)) - RCONST(7629) = (j('ch3o2h')) - RCONST(7630) = (4.97D-11) - RCONST(7631) = (j('1_c4h9ono2')) - RCONST(7632) = (1.92D-11) - RCONST(7633) = (5.55D+11*EXP(-2945/TEMP)) - RCONST(7634) = (2.85D-11) - RCONST(7635) = (j('mek')) - RCONST(7636) = (2.41D-11*0.304) - RCONST(7637) = (2.41D-11*0.696) - RCONST(7638) = (j('ch3o2h')+j('mek')) - RCONST(7639) = (9.10D-11) - RCONST(7640) = (1.15D+11*EXP(-3430/TEMP)) - RCONST(7641) = (4.22D-11) - RCONST(7642) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(7643) = (2.82D-11) - RCONST(7644) = (j('n_c3h7cho_hco')+j('n_c3h7ono2')) - RCONST(7645) = (KDEC) - RCONST(7646) = (3.31D-11) - RCONST(7647) = (1.68D-13) - RCONST(7648) = (3.63D-12) - RCONST(7649) = (j('ch3o2h')) - RCONST(7650) = (1.12D-14) - RCONST(7651) = (KBPAN) - RCONST(7652) = (3.14D-13) - RCONST(7653) = (3.77D-12) - RCONST(7654) = (j('ch3o2h')) - RCONST(7655) = (1.43D-13) - RCONST(7656) = (KBPAN) - RCONST(7657) = (1.64D-11) - RCONST(7658) = (j('ch3o2h')+j('n_c3h7ono2')) - RCONST(7659) = (KDEC) - RCONST(7660) = (1.30D-13) - RCONST(7661) = (j('biacet')) - RCONST(7662) = (5.65D-12) - RCONST(7663) = (j('ch3coch2ono2')) - RCONST(7664) = (1.38D-11) - RCONST(7665) = (j('ch3o2h')) - RCONST(7666) = (3.82D-12) - RCONST(7667) = (KBPAN) - RCONST(7668) = (3.79D-13) - RCONST(7669) = (4.08D-12) - RCONST(7670) = (j('ch3o2h')) - RCONST(7671) = (5.44D-14) - RCONST(7672) = (KBPAN) - RCONST(7673) = (6.82D-11) - RCONST(7674) = (j('ch3o2h')+j('ch3coch2ono2')) - RCONST(7675) = (2.74D+09*EXP(-3430/TEMP)) - RCONST(7676) = (6.55D-13) - RCONST(7677) = (j('ch3coch2ono2')) - RCONST(7678) = (j('mek')) - RCONST(7679) = (2.77D-11) - RCONST(7680) = (j('ch3coch2ono2')) - RCONST(7681) = (2.65D-12) - RCONST(7682) = (6.11D-12) - RCONST(7683) = (j('ch3o2h')) - RCONST(7684) = (1.57D-12) - RCONST(7685) = (KBPAN) - RCONST(7686) = (7.08D-11) - RCONST(7687) = (j('ch3o2h')) - RCONST(7688) = (j('mek')) - RCONST(7689) = (KROSEC*O2) - RCONST(7690) = (1.58D-11) - RCONST(7691) = (j('ch3o2h')) - RCONST(7692) = (5.37D-12) - RCONST(7693) = (KBPAN) - RCONST(7694) = (1.62D-11) - RCONST(7695) = (j('ch3o2h')+j('ch3coch2ono2')*1.6) - RCONST(7696) = (KDEC) - RCONST(7697) = (8.92D-12) - RCONST(7698) = (j('ch3o2h')+j('mek')) - RCONST(7699) = (KROSEC*O2) - RCONST(7700) = (4.00D+04) - RCONST(7701) = (1.25D-12) - RCONST(7702) = (4.71D-12) - RCONST(7703) = (j('ch3o2h')) - RCONST(7704) = (3.81D-13) - RCONST(7705) = (KBPAN) - RCONST(7706) = (4.69D-12) - RCONST(7707) = (j('ch3o2h')) - RCONST(7708) = (2.25D-12) - RCONST(7709) = (5.71D-12) - RCONST(7710) = (j('ch3o2h')+j('1_c4h9ono2')) - RCONST(7711) = (7.51D-13) - RCONST(7712) = (KBPAN) - RCONST(7713) = (1.79D-11) - RCONST(7714) = (j('ch3o2h')) - RCONST(7715) = (2.84D-12) - RCONST(7716) = (KBPAN) - RCONST(7717) = (7.13D-12) - RCONST(7718) = (1.90D-12*EXP(190/TEMP)) - RCONST(7719) = (j('ch3o2h')) - RCONST(7720) = (4.00D+04) - RCONST(7721) = (KROPRIM*O2) - RCONST(7722) = (3.95D-12) - RCONST(7723) = (7.41D-12) - RCONST(7724) = (j('ch3o2h')) - RCONST(7725) = (2.99D-12) - RCONST(7726) = (KBPAN) - RCONST(7727) = (8.27D-11) - RCONST(7728) = (j('ch3o2h')+j('ch3coch2ono2')) - RCONST(7729) = (8.40D+10*EXP(-3523/TEMP)) - RCONST(7730) = (1.78D-12) - RCONST(7731) = (j('mek')) - RCONST(7732) = (j('ch3coch2ono2')) - RCONST(7733) = (3.36D-11) - RCONST(7734) = (j('ch3coch2ono2')) - RCONST(7735) = (8.65D-11) - RCONST(7736) = (j('ch3o2h')+j('mek')) - RCONST(7737) = (8.40D+10*EXP(-3523/TEMP)) - RCONST(7738) = (3.75D-11) - RCONST(7739) = (j('mek')) - RCONST(7740) = (j('mek')*2) - RCONST(7741) = (4.35D-12) - RCONST(7742) = (j('ch3o2h')) - RCONST(7743) = (1.72D-11) - RCONST(7744) = (KBPAN) - RCONST(7745) = (6.79D-12) - RCONST(7746) = (6.84D-11) - RCONST(7747) = (j('ch3o2h')+j('ch3coch2ono2')*1.6) - RCONST(7748) = (4.20D+10*EXP(-1962/TEMP)) - RCONST(7749) = (8.05D-13) - RCONST(7750) = (j('ch3coch2ono2')*1.6+j('mek')) - RCONST(7751) = (2.78D-11) - RCONST(7752) = (j('ch3coch2ono2')*1.6) - RCONST(7753) = (1.91D-11) - RCONST(7754) = (1.90D-12*EXP(190/TEMP)) - RCONST(7755) = (j('ch3o2h')+j('ch3coch2ono2')*1.6) - RCONST(7756) = (4.00D+04) - RCONST(7757) = (KROSEC*O2) - RCONST(7758) = (1.38D-12) - RCONST(7759) = (j('ch3coch2ono2')*1.6) - RCONST(7760) = (8.98D-12) - RCONST(7761) = (j('mek')) - RCONST(7762) = (KRO2HO2*0.625) - RCONST(7763) = (KRO2NO) - RCONST(7764) = (KRO2NO3) - RCONST(7765) = (8.80D-13*RO2) - RCONST(7766) = (KDEC*0.5) - RCONST(7767) = (KDEC*0.5) - RCONST(7768) = (KRO2HO2*0.706) - RCONST(7769) = (KRO2NO) - RCONST(7770) = (KRO2NO3) - RCONST(7771) = (8.80D-13*RO2*0.2) - RCONST(7772) = (8.80D-13*RO2*0.6) - RCONST(7773) = (8.80D-13*RO2*0.2) - RCONST(7774) = (3.70D-11) - RCONST(7775) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(7776) = (4.00D-11) - RCONST(7777) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(7778) = (j('ch3o2h')) - RCONST(7779) = (KDEC*0.40) - RCONST(7780) = (KDEC*0.60) - RCONST(7781) = (3.70D-11) - RCONST(7782) = (KBPAN) - RCONST(7783) = (2.31D-11) - RCONST(7784) = (j('i_c3h7cho')) - RCONST(7785) = (2.62D-11) - RCONST(7786) = (j('ch3o2h')+j('i_c3h7cho')) - RCONST(7787) = (2.29D-11) - RCONST(7788) = (KBPAN) - RCONST(7789) = (1.44D-10) - RCONST(7790) = (j('ch3o2h')) - RCONST(7791) = (j('n_c3h7cho_hco')*2) - RCONST(7792) = (KDEC) - RCONST(7793) = (5.77D-11) - RCONST(7794) = (j('n_c3h7cho_hco')*2) - RCONST(7795) = (1.22D-10) - RCONST(7796) = (1.90D-12*EXP(190/TEMP)) - RCONST(7797) = (j('n_c3h7cho_hco')*2) - RCONST(7798) = (j('ch3o2h')) - RCONST(7799) = (KDEC) - RCONST(7800) = (3.67D-11) - RCONST(7801) = (j('ch3cocho')+j('n_c3h7cho_hco')) - RCONST(7802) = (8.13D-11) - RCONST(7803) = (j('n_c3h7cho_hco')*2) - RCONST(7804) = (2.08D-12) - RCONST(7805) = (2.86D-13) - RCONST(7806) = (2.60D-12) - RCONST(7807) = (3.47D-12) - RCONST(7808) = (KRO2HO2*0.770) - RCONST(7809) = (KRO2NO) - RCONST(7810) = (KRO2NO3) - RCONST(7811) = (8.80D-13*RO2) - RCONST(7812) = (3.00D-13) - RCONST(7813) = (4.6D-12) - RCONST(7814) = (5.44D-11) - RCONST(7815) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(7816) = (1.00D-12) - RCONST(7817) = (2.3D-11) - RCONST(7818) = (2.08D-12) - RCONST(7819) = (2.86D-13) - RCONST(7820) = (4.65D-11) - RCONST(7821) = (j('ch3o2h')) - RCONST(7822) = (5.03D-12) - RCONST(7823) = (6.83D-12) - RCONST(7824) = (KRO2HO2*0.820) - RCONST(7825) = (KRO2NO) - RCONST(7826) = (KRO2NO3) - RCONST(7827) = (8.80D-13*RO2) - RCONST(7828) = (4.38D-11) - RCONST(7829) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(7830) = (KAPHO2*0.44) - RCONST(7831) = (KAPHO2*0.15) - RCONST(7832) = (KAPHO2*0.41) - RCONST(7833) = (KAPNO) - RCONST(7834) = (KFPAN) - RCONST(7835) = (KRO2NO3*1.74) - RCONST(7836) = (1.00D-11*0.70*RO2) - RCONST(7837) = (1.00D-11*0.30*RO2) - RCONST(7838) = (KDEC*0.11) - RCONST(7839) = (KDEC*0.89) - RCONST(7840) = (KRO2HO2*0.706) - RCONST(7841) = (KRO2NO) - RCONST(7842) = (KRO2NO3) - RCONST(7843) = (9.20D-14*RO2*0.30) - RCONST(7844) = (9.20D-14*RO2*0.70) - RCONST(7845) = (KRO2HO2*0.706) - RCONST(7846) = (KRO2NO) - RCONST(7847) = (KRO2NO3) - RCONST(7848) = (1.40D-12*0.20*RO2) - RCONST(7849) = (1.40D-12*0.20*RO2) - RCONST(7850) = (1.40D-12*0.60*RO2) - RCONST(7851) = (KRO2HO2*0.706) - RCONST(7852) = (KRO2NO) - RCONST(7853) = (KRO2NO3) - RCONST(7854) = (9.20D-14*RO2) - RCONST(7855) = (KDEC*0.5) - RCONST(7856) = (KDEC*0.5) - RCONST(7857) = (KRO2HO2*0.706) - RCONST(7858) = (KRO2NO) - RCONST(7859) = (KRO2NO3) - RCONST(7860) = (9.20D-14*RO2*0.7) - RCONST(7861) = (9.20D-14*RO2*0.3) - RCONST(7862) = (KDEC*0.83) - RCONST(7863) = (KDEC*0.17) - RCONST(7864) = (3.59D-12) - RCONST(7865) = (j('ch3o2h')) - RCONST(7866) = (5.43D-11) - RCONST(7867) = (KBPAN) - RCONST(7868) = (j('ch3cocho')) - RCONST(7869) = (8.0D-13) - RCONST(7870) = (1.10D-12) - RCONST(7871) = (4.66D-12) - RCONST(7872) = (j('ch3o2h')) - RCONST(7873) = (1.06D-12) - RCONST(7874) = (KBPAN*0.67) - RCONST(7875) = (KAPHO2*0.15) - RCONST(7876) = (KAPHO2*0.41) - RCONST(7877) = (KAPHO2*0.44) - RCONST(7878) = (KAPNO) - RCONST(7879) = (KFPAN) - RCONST(7880) = (KRO2NO3*1.74) - RCONST(7881) = (1.00D-11*0.30*RO2) - RCONST(7882) = (1.00D-11*0.70*RO2) - RCONST(7883) = (KDEC*0.27) - RCONST(7884) = (KDEC*0.255) - RCONST(7885) = (KDEC*0.255) - RCONST(7886) = (KDEC*0.22) - RCONST(7887) = (KRO2HO2*0.770) - RCONST(7888) = (KRO2NO) - RCONST(7889) = (KRO2NO3) - RCONST(7890) = (9.20D-14*0.3*RO2) - RCONST(7891) = (9.20D-14*0.7*RO2) - RCONST(7892) = (KRO2HO2*0.770) - RCONST(7893) = (KRO2NO) - RCONST(7894) = (KRO2NO3) - RCONST(7895) = (9.20D-14*RO2) - RCONST(7896) = (KRO2HO2*0.770) - RCONST(7897) = (KRO2NO) - RCONST(7898) = (KRO2NO3*1.74) - RCONST(7899) = (8.80D-13*RO2*0.2) - RCONST(7900) = (8.80D-13*RO2*0.6) - RCONST(7901) = (8.80D-13*RO2*0.2) - RCONST(7902) = (KRO2HO2*0.770) - RCONST(7903) = (KRO2NO) - RCONST(7904) = (KRO2NO3) - RCONST(7905) = (9.20D-14*RO2*0.70) - RCONST(7906) = (9.20D-14*RO2*0.30) - RCONST(7907) = (2.22D-11) - RCONST(7908) = (j('i_c3h7cho')) - RCONST(7909) = (2.53D-11) - RCONST(7910) = (j('ch3o2h')+j('i_c3h7cho')) - RCONST(7911) = (2.21D-11) - RCONST(7912) = (KBPAN) - RCONST(7913) = (6.97D-11) - RCONST(7914) = (j('i_c3h7cho')) - RCONST(7915) = (j('ch3o2h')) - RCONST(7916) = (j('mek')) - RCONST(7917) = (KDEC*0.5) - RCONST(7918) = (KDEC*0.5) - RCONST(7919) = (6.63D-11) - RCONST(7920) = (j('i_c3h7cho')) - RCONST(7921) = (j('mek')) - RCONST(7922) = (5.08D-11) - RCONST(7923) = (j('mvk_mcm_ch2ch')) - RCONST(7924) = (2.08D-12) - RCONST(7925) = (2.86D-13) - RCONST(7926) = (4.65D-11) - RCONST(7927) = (j('ch3o2h')) - RCONST(7928) = (1.00D-12) - RCONST(7929) = (2.35D-10) - RCONST(7930) = (5.03D-12) - RCONST(7931) = (6.83D-12) - RCONST(7932) = (KRO2HO2*0.859) - RCONST(7933) = (KRO2NO) - RCONST(7934) = (KRO2NO3) - RCONST(7935) = (8.80D-13*RO2) - RCONST(7936) = (1.10D-12) - RCONST(7937) = (4.66D-12) - RCONST(7938) = (j('ch3o2h')) - RCONST(7939) = (1.06D-12) - RCONST(7940) = (KBPAN*0.67) - RCONST(7941) = (1.90D-12*EXP(190/TEMP)) - RCONST(7942) = (j('ch3o2h')) - RCONST(7943) = (3.90D-13) - RCONST(7944) = (KRO2HO2*0.770) - RCONST(7945) = (KRO2NO) - RCONST(7946) = (KRO2NO3) - RCONST(7947) = (9.20D-14*0.70*RO2) - RCONST(7948) = (9.20D-14*0.30*RO2) - RCONST(7949) = (KRO2HO2*0.770) - RCONST(7950) = (KRO2NO) - RCONST(7951) = (KRO2NO3) - RCONST(7952) = (9.20D-14*RO2) - RCONST(7953) = (KRO2HO2*0.706) - RCONST(7954) = (KRO2NO) - RCONST(7955) = (KRO2NO3) - RCONST(7956) = (8.80D-13*RO2*0.2) - RCONST(7957) = (8.80D-13*RO2*0.6) - RCONST(7958) = (8.80D-13*RO2*0.2) - RCONST(7959) = (KRO2HO2*0.770) - RCONST(7960) = (KRO2NO) - RCONST(7961) = (KRO2NO3) - RCONST(7962) = (9.20D-14*RO2*0.70) - RCONST(7963) = (9.20D-14*RO2*0.30) - RCONST(7964) = (KRO2HO2*0.706) - RCONST(7965) = (KRO2NO) - RCONST(7966) = (KRO2NO3) - RCONST(7967) = (9.20D-14*RO2) - RCONST(7968) = (KRO2HO2*0.625) - RCONST(7969) = (KRO2NO) - RCONST(7970) = (KRO2NO3) - RCONST(7971) = (2.00D-12*RO2) - RCONST(7972) = (KRO2HO2*0.706) - RCONST(7973) = (KRO2NO) - RCONST(7974) = (KRO2NO3) - RCONST(7975) = (9.20D-14*RO2*0.70) - RCONST(7976) = (9.20D-14*RO2*0.30) - RCONST(7977) = (KDEC*0.35) - RCONST(7978) = (KDEC*0.65) - RCONST(7979) = (4.73D-11) - RCONST(7980) = (j('ch3o2h')) - RCONST(7981) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(7982) = (4.37D-11) - RCONST(7983) = (KBPAN) - RCONST(7984) = (2.27D-11) - RCONST(7985) = (j('i_c3h7cho')) - RCONST(7986) = (2.57D-11) - RCONST(7987) = (j('ch3o2h')+j('i_c3h7cho')) - RCONST(7988) = (2.25D-11) - RCONST(7989) = (KBPAN) - RCONST(7990) = (1.35D-10) - RCONST(7991) = (j('ch3o2h')) - RCONST(7992) = (j('i_c3h7cho')*2) - RCONST(7993) = (KDEC) - RCONST(7994) = (2.08D-12) - RCONST(7995) = (2.86D-13) - RCONST(7996) = (4.65D-11) - RCONST(7997) = (j('ch3o2h')) - RCONST(7998) = (1.00D-12) - RCONST(7999) = (2.35D-11) - RCONST(8000) = (5.03D-12) - RCONST(8001) = (6.83D-12) - RCONST(8002) = (KRO2HO2*0.859) - RCONST(8003) = (KRO2NO) - RCONST(8004) = (KRO2NO3) - RCONST(8005) = (8.80D-13*RO2) - RCONST(8006) = (4.66D-11) - RCONST(8007) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(8008) = (1.10D-12) - RCONST(8009) = (4.66D-12) - RCONST(8010) = (j('ch3o2h')) - RCONST(8011) = (1.06D-12) - RCONST(8012) = (KBPAN*0.67) - RCONST(8013) = (1.90D-12*EXP(190/TEMP)) - RCONST(8014) = (j('ch3o2h')) - RCONST(8015) = (3.90D-13) - RCONST(8016) = (KRO2HO2*0.770) - RCONST(8017) = (KRO2NO) - RCONST(8018) = (KRO2NO3) - RCONST(8019) = (8.80D-13*0.20*RO2) - RCONST(8020) = (8.80D-13*0.20*RO2) - RCONST(8021) = (8.80D-13*0.60*RO2) - RCONST(8022) = (2.08D-12) - RCONST(8023) = (2.86D-13) - RCONST(8024) = (4.65D-11) - RCONST(8025) = (j('ch3o2h')) - RCONST(8026) = (1.00D-12) - RCONST(8027) = (2.35D-11) - RCONST(8028) = (5.03D-12) - RCONST(8029) = (6.83D-12) - RCONST(8030) = (KRO2HO2*0.859) - RCONST(8031) = (KRO2NO) - RCONST(8032) = (KRO2NO3) - RCONST(8033) = (8.80D-13*RO2) - RCONST(8034) = (1.10D-12) - RCONST(8035) = (4.66D-12) - RCONST(8036) = (j('ch3o2h')) - RCONST(8037) = (1.06D-12) - RCONST(8038) = (KBPAN*0.67) - RCONST(8039) = (2.08D-12) - RCONST(8040) = (2.86D-13) - RCONST(8041) = (4.65D-11) - RCONST(8042) = (j('ch3o2h')) - RCONST(8043) = (3.73D-11) - RCONST(8044) = (j('mvk_mcm_ch2ch')) - RCONST(8045) = (1.00D-12) - RCONST(8046) = (2.35D-11) - RCONST(8047) = (5.03D-12) - RCONST(8048) = (6.83D-12) - RCONST(8049) = (KRO2HO2*0.859) - RCONST(8050) = (KRO2NO) - RCONST(8051) = (KRO2NO3) - RCONST(8052) = (8.80D-13*RO2) - RCONST(8053) = (4.89D-11) - RCONST(8054) = (j('mvk_mcm_ch2ch')) - RCONST(8055) = (KRO2HO2*0.770) - RCONST(8056) = (KRO2NO) - RCONST(8057) = (KRO2NO3) - RCONST(8058) = (8.80D-13*0.20*RO2) - RCONST(8059) = (8.80D-13*0.20*RO2) - RCONST(8060) = (8.80D-13*0.60*RO2) - RCONST(8061) = (KRO2HO2*0.770) - RCONST(8062) = (KRO2NO) - RCONST(8063) = (KRO2NO3) - RCONST(8064) = (8.80D-13*RO2) - RCONST(8065) = (KRO2HO2*0.625) - RCONST(8066) = (KRO2NO) - RCONST(8067) = (KRO2NO3) - RCONST(8068) = (8.80D-13*0.6*RO2) - RCONST(8069) = (8.80D-13*0.2*RO2) - RCONST(8070) = (8.80D-13*0.2*RO2) - RCONST(8071) = (KRO2HO2*0.770) - RCONST(8072) = (KRO2NO) - RCONST(8073) = (KRO2NO3) - RCONST(8074) = (8.80D-13*RO2*0.20) - RCONST(8075) = (8.80D-13*RO2*0.60) - RCONST(8076) = (8.80D-13*RO2*0.20) - RCONST(8077) = (KDEC*0.35) - RCONST(8078) = (KDEC*0.65) - RCONST(8079) = (4.09D-11) - RCONST(8080) = (j('ch3o2h')) - RCONST(8081) = (j('mvk_mcm_ch2ch')) - RCONST(8082) = (3.73D-11) - RCONST(8083) = (KBPAN) - RCONST(8084) = (2.53D-12) - RCONST(8085) = (j('ch3cocho')) - RCONST(8086) = (7.09D-11) - RCONST(8087) = (j('mek')) - RCONST(8088) = (j('i_c3h7cho')) - RCONST(8089) = (KRO2HO2*0.820) - RCONST(8090) = (KRO2NO) - RCONST(8091) = (KRO2NO3) - RCONST(8092) = (8.80D-13*RO2) - RCONST(8093) = (5.15D-11) - RCONST(8094) = (j('ch3o2h')) - RCONST(8095) = (KDEC) - RCONST(8096) = (6.00D-12) - RCONST(8097) = (j('biacet')) - RCONST(8098) = (1.29D-11) - RCONST(8099) = (3.62D-11) - RCONST(8100) = (j('n_c3h7cho_hco')+j('mek')) - RCONST(8101) = (2.08D-12) - RCONST(8102) = (2.86D-13) - RCONST(8103) = (4.65D-11) - RCONST(8104) = (j('ch3o2h')) - RCONST(8105) = (1.00D-12) - RCONST(8106) = (2.35D-11) - RCONST(8107) = (5.03D-12) - RCONST(8108) = (6.83D-12) - RCONST(8109) = (KRO2HO2*0.90) - RCONST(8110) = (KRO2NO) - RCONST(8111) = (KRO2NO3) - RCONST(8112) = (8.80D-13*RO2) - RCONST(8113) = (5.00D-11) - RCONST(8114) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(8115) = (KDEC*0.125) - RCONST(8116) = (KDEC*0.57) - RCONST(8117) = (KDEC*0.125) - RCONST(8118) = (KDEC*0.18) - RCONST(8119) = (KRO2HO2*0.820) - RCONST(8120) = (KRO2NO) - RCONST(8121) = (KRO2NO3) - RCONST(8122) = (8.80D-13*RO2*0.2) - RCONST(8123) = (8.80D-13*RO2*0.6) - RCONST(8124) = (8.80D-13*RO2*0.2) - RCONST(8125) = (KRO2HO2*0.820) - RCONST(8126) = (KRO2NO) - RCONST(8127) = (KRO2NO3) - RCONST(8128) = (8.80D-13*RO2) - RCONST(8129) = (KRO2HO2*0.706) - RCONST(8130) = (KRO2NO) - RCONST(8131) = (KRO2NO3) - RCONST(8132) = (8.80D-13*0.6*RO2) - RCONST(8133) = (8.80D-13*0.2*RO2) - RCONST(8134) = (8.80D-13*0.2*RO2) - RCONST(8135) = (KRO2HO2*0.820) - RCONST(8136) = (KRO2NO) - RCONST(8137) = (KRO2NO3) - RCONST(8138) = (8.80D-13*RO2*0.20) - RCONST(8139) = (8.80D-13*RO2*0.60) - RCONST(8140) = (8.80D-13*RO2*0.20) - RCONST(8141) = (KDEC*0.65) - RCONST(8142) = (KDEC*0.35) - RCONST(8143) = (3.94D-11) - RCONST(8144) = (j('ch3o2h')) - RCONST(8145) = (j('mvk_mcm_ch2ch')) - RCONST(8146) = (3.58D-11) - RCONST(8147) = (KBPAN) - RCONST(8148) = (5.05D-12) - RCONST(8149) = (j('mek')) - RCONST(8150) = (7.41D-11) - RCONST(8151) = (j('mek')) - RCONST(8152) = (j('i_c3h7cho')) - RCONST(8153) = (KRO2HO2*0.859) - RCONST(8154) = (KRO2NO) - RCONST(8155) = (KRO2NO3) - RCONST(8156) = (8.80D-13*RO2) - RCONST(8157) = (KRO2HO2*0.859) - RCONST(8158) = (KRO2NO) - RCONST(8159) = (KRO2NO3) - RCONST(8160) = (1.30D-12*RO2*0.6) - RCONST(8161) = (1.30D-12*RO2*0.2) - RCONST(8162) = (1.30D-12*RO2*0.2) - RCONST(8163) = (2.08D-12) - RCONST(8164) = (2.86D-13) - RCONST(8165) = (4.65D-11) - RCONST(8166) = (j('ch3o2h')) - RCONST(8167) = (3.42D-11) - RCONST(8168) = (j('n_c3h7cho_hco')+j('mek')) - RCONST(8169) = (1.00D-12) - RCONST(8170) = (2.35D-11) - RCONST(8171) = (5.03D-12) - RCONST(8172) = (6.83D-12) - RCONST(8173) = (KRO2HO2*0.90) - RCONST(8174) = (KRO2NO) - RCONST(8175) = (KRO2NO3) - RCONST(8176) = (8.80D-13*RO2) - RCONST(8177) = (5.00D-11) - RCONST(8178) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(8179) = (KRO2HO2*0.820) - RCONST(8180) = (KRO2NO) - RCONST(8181) = (KRO2NO3) - RCONST(8182) = (8.80D-13*RO2*0.2) - RCONST(8183) = (8.80D-13*RO2*0.6) - RCONST(8184) = (8.80D-13*RO2*0.2) - RCONST(8185) = (KRO2HO2*0.820) - RCONST(8186) = (KRO2NO) - RCONST(8187) = (KRO2NO3) - RCONST(8188) = (8.80D-13*RO2) - RCONST(8189) = (KRO2HO2*0.706) - RCONST(8190) = (KRO2NO) - RCONST(8191) = (KRO2NO3) - RCONST(8192) = (8.80D-13*0.2*RO2) - RCONST(8193) = (8.80D-13*0.2*RO2) - RCONST(8194) = (8.80D-13*0.6*RO2) - RCONST(8195) = (KRO2HO2*0.820) - RCONST(8196) = (KRO2NO) - RCONST(8197) = (KRO2NO3) - RCONST(8198) = (8.80D-13*RO2*0.20) - RCONST(8199) = (8.80D-13*RO2*0.60) - RCONST(8200) = (8.80D-13*RO2*0.20) - RCONST(8201) = (KDEC*0.35) - RCONST(8202) = (KDEC*0.65) - RCONST(8203) = (3.74D-11) - RCONST(8204) = (j('ch3o2h')) - RCONST(8205) = (j('mvk_mcm_ch2ch')) - RCONST(8206) = (3.38D-11) - RCONST(8207) = (KBPAN) - RCONST(8208) = (3.05D-12) - RCONST(8209) = (j('mek')) - RCONST(8210) = (7.20D-11) - RCONST(8211) = (j('mek')) - RCONST(8212) = (j('i_c3h7cho')) - RCONST(8213) = (KRO2HO2*0.859) - RCONST(8214) = (KRO2NO) - RCONST(8215) = (KRO2NO3) - RCONST(8216) = (8.80D-13*RO2) - RCONST(8217) = (7.92D-13) - RCONST(8218) = (3.86D-12) - RCONST(8219) = (j('ch3o2h')) - RCONST(8220) = (1.06D-12) - RCONST(8221) = (KBPAN) - RCONST(8222) = (4.52D-11) - RCONST(8223) = (j('n_c3h7cho_hco')+j('mek')) - RCONST(8224) = (2.08D-12) - RCONST(8225) = (2.86D-13) - RCONST(8226) = (4.65D-11) - RCONST(8227) = (j('ch3o2h')) - RCONST(8228) = (5.03D-12) - RCONST(8229) = (6.83D-12) - RCONST(8230) = (KRO2HO2*0.90) - RCONST(8231) = (KRO2NO) - RCONST(8232) = (KRO2NO3) - RCONST(8233) = (8.80D-13*RO2) - RCONST(8234) = (KAPHO2*0.44) - RCONST(8235) = (KAPHO2*0.15) - RCONST(8236) = (KAPHO2*0.41) - RCONST(8237) = (KAPNO) - RCONST(8238) = (KFPAN) - RCONST(8239) = (KRO2NO3*1.74) - RCONST(8240) = (1.00D-11*RO2*0.7) - RCONST(8241) = (1.00D-11*RO2*0.3) - RCONST(8242) = (KRO2HO2*0.820) - RCONST(8243) = (KRO2NO) - RCONST(8244) = (KRO2NO3) - RCONST(8245) = (9.20D-14*RO2*0.7) - RCONST(8246) = (9.20D-14*RO2*0.3) - RCONST(8247) = (KRO2HO2*0.706) - RCONST(8248) = (KRO2NO) - RCONST(8249) = (KRO2NO3) - RCONST(8250) = (9.20D-14*RO2) - RCONST(8251) = (1.85D-11) - RCONST(8252) = (j('mek')+j('ch3cocho')) - RCONST(8253) = (KRO2HO2*0.770) - RCONST(8254) = (KRO2NO) - RCONST(8255) = (KRO2NO3) - RCONST(8256) = (9.20D-14*RO2*0.70) - RCONST(8257) = (9.20D-14*RO2*0.30) - RCONST(8258) = (KRO2HO2*0.770) - RCONST(8259) = (KRO2NO) - RCONST(8260) = (KRO2NO3) - RCONST(8261) = (9.20D-14*RO2) - RCONST(8262) = (KRO2HO2*0.820) - RCONST(8263) = (KRO2NO) - RCONST(8264) = (KRO2NO3*1.74) - RCONST(8265) = (9.20D-14*RO2*0.7) - RCONST(8266) = (9.20D-14*RO2*0.3) - RCONST(8267) = (KRO2HO2*0.820) - RCONST(8268) = (KRO2NO) - RCONST(8269) = (KRO2NO3) - RCONST(8270) = (9.20D-14*RO2*0.70) - RCONST(8271) = (9.20D-14*RO2*0.30) - RCONST(8272) = (2.10D-12) - RCONST(8273) = (j('mek')) - RCONST(8274) = (5.18D-12) - RCONST(8275) = (j('ch3o2h')+j('mek')) - RCONST(8276) = (1.95D-12) - RCONST(8277) = (KBPAN) - RCONST(8278) = (7.83D-11) - RCONST(8279) = (j('ch3o2h')) - RCONST(8280) = (j('mek')) - RCONST(8281) = (j('i_c3h7cho')) - RCONST(8282) = (1.10D-12) - RCONST(8283) = (4.66D-12) - RCONST(8284) = (j('ch3o2h')) - RCONST(8285) = (1.06D-12) - RCONST(8286) = (KBPAN) - RCONST(8287) = (1.90D-12*EXP(190/TEMP)) - RCONST(8288) = (j('ch3o2h')) - RCONST(8289) = (3.90D-13) - RCONST(8290) = (KDEC*0.89) - RCONST(8291) = (KDEC*0.11) - RCONST(8292) = (KRO2HO2*0.820) - RCONST(8293) = (KRO2NO) - RCONST(8294) = (KRO2NO3) - RCONST(8295) = (9.20D-14*RO2*0.7) - RCONST(8296) = (9.20D-14*RO2*0.3) - RCONST(8297) = (5.52D-11) - RCONST(8298) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(8299) = (2.08D-12) - RCONST(8300) = (2.86D-13) - RCONST(8301) = (4.65D-11) - RCONST(8302) = (j('ch3o2h')) - RCONST(8303) = (1.00D-12) - RCONST(8304) = (2.35D-11) - RCONST(8305) = (5.03D-12) - RCONST(8306) = (6.83D-12) - RCONST(8307) = (KRO2HO2*0.90) - RCONST(8308) = (KRO2NO) - RCONST(8309) = (KRO2NO3) - RCONST(8310) = (8.80D-13*RO2) - RCONST(8311) = (3.54D-11) - RCONST(8312) = (j('mvk_mcm_ch2ch')) - RCONST(8313) = (1.10D-12) - RCONST(8314) = (4.66D-12) - RCONST(8315) = (j('ch3o2h')) - RCONST(8316) = (1.06D-12) - RCONST(8317) = (KBPAN*0.67) - RCONST(8318) = (3.60D-12) - RCONST(8319) = (j('ch3o2h')) - RCONST(8320) = (3.90D-13) - RCONST(8321) = (KDEC*0.35) - RCONST(8322) = (KDEC*0.65) - RCONST(8323) = (3.90D-11) - RCONST(8324) = (j('ch3o2h')) - RCONST(8325) = (j('mvk_mcm_ch2ch')) - RCONST(8326) = (3.54D-11) - RCONST(8327) = (KBPAN) - RCONST(8328) = (2.11D-12) - RCONST(8329) = (j('mek')) - RCONST(8330) = (5.17D-12) - RCONST(8331) = (j('ch3o2h')+j('mek')) - RCONST(8332) = (1.95D-12) - RCONST(8333) = (KBPAN) - RCONST(8334) = (1.75D-11) - RCONST(8335) = (j('ch3o2h')) - RCONST(8336) = (j('mek')) - RCONST(8337) = (KDEC) - RCONST(8338) = (4.06D-12) - RCONST(8339) = (j('mek')*2) - RCONST(8340) = (2.04D-13) - RCONST(8341) = (j('biacet')) - RCONST(8342) = (2.05D-11) - RCONST(8343) = (j('ch3o2h')) - RCONST(8344) = (j('mek')) - RCONST(8345) = (KDEC) - RCONST(8346) = (8.93D-12) - RCONST(8347) = (j('mek')) - RCONST(8348) = (1.29D-11) - RCONST(8349) = (j('ch3cocho')) - RCONST(8350) = (2.55D-11) - RCONST(8351) = (j('i_c3h7cho')) - RCONST(8352) = (2.85D-11) - RCONST(8353) = (j('ch3o2h')+j('i_c3h7cho')) - RCONST(8354) = (2.54D-11) - RCONST(8355) = (KBPAN) - RCONST(8356) = (7.30D-11) - RCONST(8357) = (j('ch3o2h')) - RCONST(8358) = (j('mek')) - RCONST(8359) = (j('i_c3h7cho')) - RCONST(8360) = (KDEC*0.5) - RCONST(8361) = (KDEC*0.5) - RCONST(8362) = (4.56D-11) - RCONST(8363) = (j('n_c3h7cho_hco')+j('mek')) - RCONST(8364) = (2.08D-12) - RCONST(8365) = (2.86D-13) - RCONST(8366) = (4.65D-11) - RCONST(8367) = (j('ch3o2h')) - RCONST(8368) = (1.00D-12) - RCONST(8369) = (2.35D-11) - RCONST(8370) = (5.03D-12) - RCONST(8371) = (6.83D-12) - RCONST(8372) = (KRO2HO2*0.90) - RCONST(8373) = (KRO2NO) - RCONST(8374) = (KRO2NO3) - RCONST(8375) = (8.80D-13*RO2) - RCONST(8376) = (j('ch3cocho')) - RCONST(8377) = (j('biacet')) - RCONST(8378) = (KNO3AL*4.0) - RCONST(8379) = (1.23D-11) - RCONST(8380) = (2.08D-12) - RCONST(8381) = (2.86D-13) - RCONST(8382) = (4.65D-11) - RCONST(8383) = (j('ch3o2h')) - RCONST(8384) = (1.00D-12) - RCONST(8385) = (2.35D-11) - RCONST(8386) = (5.03D-12) - RCONST(8387) = (6.83D-12) - RCONST(8388) = (KRO2HO2*0.90) - RCONST(8389) = (KRO2NO) - RCONST(8390) = (KRO2NO3) - RCONST(8391) = (8.80D-13*RO2) - RCONST(8392) = (KRO2HO2*0.820) - RCONST(8393) = (KRO2NO) - RCONST(8394) = (KRO2NO3) - RCONST(8395) = (8.80D-13*RO2*0.2) - RCONST(8396) = (8.80D-13*RO2*0.6) - RCONST(8397) = (8.80D-13*RO2*0.2) - RCONST(8398) = (2.08D-12) - RCONST(8399) = (2.86D-13) - RCONST(8400) = (4.65D-11) - RCONST(8401) = (j('ch3o2h')) - RCONST(8402) = (1.00D-12) - RCONST(8403) = (2.35D-11) - RCONST(8404) = (5.03D-12) - RCONST(8405) = (6.83D-12) - RCONST(8406) = (KRO2HO2*0.90) - RCONST(8407) = (KRO2NO) - RCONST(8408) = (KRO2NO3) - RCONST(8409) = (8.80D-13*RO2) - RCONST(8410) = (2.05D-11) - RCONST(8411) = (j('ch3o2h')) - RCONST(8412) = (j('mek')) - RCONST(8413) = (KDEC) - RCONST(8414) = (8.93D-12) - RCONST(8415) = (j('mek')) - RCONST(8416) = (1.29D-11) - RCONST(8417) = (j('ch3cocho')) - RCONST(8418) = (KAPHO2*0.44) - RCONST(8419) = (KAPHO2*0.15) - RCONST(8420) = (KAPHO2*0.41) - RCONST(8421) = (KAPNO) - RCONST(8422) = (KFPAN) - RCONST(8423) = (KRO2NO3*1.74) - RCONST(8424) = (1.00D-11*RO2*0.7) - RCONST(8425) = (1.00D-11*RO2*0.3) - RCONST(8426) = (KRO2HO2*0.820) - RCONST(8427) = (KRO2NO) - RCONST(8428) = (KRO2NO3) - RCONST(8429) = (9.20D-14*RO2*0.7) - RCONST(8430) = (9.20D-14*RO2*0.3) - RCONST(8431) = (KRO2HO2*0.820) - RCONST(8432) = (KRO2NO) - RCONST(8433) = (KRO2NO3) - RCONST(8434) = (9.20D-14*RO2) - RCONST(8435) = (KRO2HO2*0.770) - RCONST(8436) = (KRO2NO) - RCONST(8437) = (KRO2NO3) - RCONST(8438) = (8.80D-13*RO2*0.2) - RCONST(8439) = (8.80D-13*RO2*0.6) - RCONST(8440) = (8.80D-13*RO2*0.2) - RCONST(8441) = (KRO2HO2*0.820) - RCONST(8442) = (KRO2NO) - RCONST(8443) = (KRO2NO3) - RCONST(8444) = (9.20D-14*RO2*0.70) - RCONST(8445) = (9.20D-14*RO2*0.30) - RCONST(8446) = (5.29D-12) - RCONST(8447) = (j('mek')) - RCONST(8448) = (j('mek')) - RCONST(8449) = (2.05D-11) - RCONST(8450) = (j('mek')) - RCONST(8451) = (j('ch3o2h')) - RCONST(8452) = (KDEC) - RCONST(8453) = (8.93D-12) - RCONST(8454) = (j('mek')) - RCONST(8455) = (1.29D-11) - RCONST(8456) = (j('ch3cocho')) - RCONST(8457) = (4.66D-12) - RCONST(8458) = (j('ch3o2h')) - RCONST(8459) = (KRO2HO2*0.890) - RCONST(8460) = (KRO2NO) - RCONST(8461) = (KRO2NO3) - RCONST(8462) = (2.50D-13*RO2) - RCONST(8463) = (1.06D-12) - RCONST(8464) = (KBPAN) - RCONST(8465) = (4.56D-11) - RCONST(8466) = (4.56D-11) - RCONST(8467) = (j('mek')) - RCONST(8468) = (j('n_c3h7cho_hco')+j('mek')) - RCONST(8469) = (2.64D-11) - RCONST(8470) = (j('ch3o2h')) - RCONST(8471) = (2.32D-11) - RCONST(8472) = (KBPAN) - RCONST(8473) = (5.39D-12) - RCONST(8474) = (j('mek')) - RCONST(8475) = (8.46D-12) - RCONST(8476) = (j('ch3o2h')+j('mek')) - RCONST(8477) = (5.23D-12) - RCONST(8478) = (KBPAN) - RCONST(8479) = (1.38D-10) - RCONST(8480) = (j('ch3o2h')) - RCONST(8481) = (j('i_c3h7cho')*2) - RCONST(8482) = (KDEC) - RCONST(8483) = (1.35D-10) - RCONST(8484) = (j('i_c3h7cho')*2) - RCONST(8485) = (1.41D-11) - RCONST(8486) = (j('ch3o2h')) - RCONST(8487) = (j('mek')*2) - RCONST(8488) = (KDEC) - RCONST(8489) = (1.33D-12) - RCONST(8490) = (j('biacet')*2) - RCONST(8491) = (j('ch3o2h')) - RCONST(8492) = (j('mek')) - RCONST(8493) = (3.96D-11) - RCONST(8494) = (KDEC) - RCONST(8495) = (j('biacet')) - RCONST(8496) = (2.32D-12) - RCONST(8497) = (j('mek')) - RCONST(8498) = (1.88D-11) - RCONST(8499) = (1.52D-11) - RCONST(8500) = (j('ch3o2h')) - RCONST(8501) = (1.88D-11) - RCONST(8502) = (KBPAN) - RCONST(8503) = (1.52D-11) - RCONST(8504) = (1.2D-15) - RCONST(8505) = (1.0D-14) - RCONST(8506) = (1.0D-15) - RCONST(8507) = (7.0D-14) - RCONST(8508) = (6.0D-18*H2O) - RCONST(8509) = (1.0D-17*H2O) - RCONST(8510) = (j('ch3o2h')) - RCONST(8511) = (j('n_c3h7cho_hco')) - RCONST(8512) = (6.21D-11) - RCONST(8513) = (KDEC) - RCONST(8514) = (j('n_c3h7cho_hco')) - RCONST(8515) = (3.53D-11) - RCONST(8516) = (j('n_c3h7cho_hco')) - RCONST(8517) = (KNO3AL) - RCONST(8518) = (2.46D-11) - RCONST(8519) = (1.88D-11) - RCONST(8520) = (j('ch3o2h')) - RCONST(8521) = (2.23D-11) - RCONST(8522) = (KBPAN) - RCONST(8523) = (1.87D-11) - RCONST(8524) = (1.2D-15) - RCONST(8525) = (1.0D-14) - RCONST(8526) = (1.0D-15) - RCONST(8527) = (7.0D-14) - RCONST(8528) = (6.0D-18*H2O) - RCONST(8529) = (1.0D-17*H2O) - RCONST(8530) = (j('ch3o2h')) - RCONST(8531) = (1.39D-10) - RCONST(8532) = (2.50D-11) - RCONST(8533) = (KDEC) - RCONST(8534) = (j('n_c3h7cho_hco')) - RCONST(8535) = (6.59D-11) - RCONST(8536) = (j('n_c3h7cho_hco')) - RCONST(8537) = (KNO3AL*4.0) - RCONST(8538) = (2.66D-11) - RCONST(8539) = (1.20D-15) - RCONST(8540) = (1.00D-14) - RCONST(8541) = (1.00D-15) - RCONST(8542) = (7.00D-14) - RCONST(8543) = (6.00D-18*H2O) - RCONST(8544) = (1.00D-17*H2O) - RCONST(8545) = (5.98D-11) - RCONST(8546) = (j('ch3o2h')+j('mek')) - RCONST(8547) = (4.37D-12) - RCONST(8548) = (KDEC) - RCONST(8549) = (2.10D-11) - RCONST(8550) = (j('mek')) - RCONST(8551) = (4.39D-12) - RCONST(8552) = (j('mek')) - RCONST(8553) = (j('ch3o2h')) - RCONST(8554) = (KDEC) - RCONST(8555) = (4.44D-12) - RCONST(8556) = (j('biacet')) - RCONST(8557) = (j('ch3o2h')) - RCONST(8558) = (4.42D-11) - RCONST(8559) = (KBPAN) - RCONST(8560) = (4.06D-11) - RCONST(8561) = (1.2D-15) - RCONST(8562) = (1.0D-14) - RCONST(8563) = (1.0D-15) - RCONST(8564) = (7.0D-14) - RCONST(8565) = (6.0D-18*H2O) - RCONST(8566) = (j('ch3o2h')) - RCONST(8567) = (3.31D-11*0.89) - RCONST(8568) = (3.31D-11*0.11) - RCONST(8569) = (1.98D-12*0.445) - RCONST(8570) = (1.98D-12*0.414) - RCONST(8571) = (1.98D-12*0.141) - RCONST(8572) = (KDEC) - RCONST(8573) = (j('ch3coch2ono2')*0.91) - RCONST(8574) = (3.30D-12) - RCONST(8575) = (1.53D-11) - RCONST(8576) = (2.16D-11) - RCONST(8577) = (j('ch3o2h')) - RCONST(8578) = (2.52D-11) - RCONST(8579) = (KBPAN) - RCONST(8580) = (2.16D-11) - RCONST(8581) = (1.2D-15) - RCONST(8582) = (1.0D-14) - RCONST(8583) = (1.0D-15) - RCONST(8584) = (7.0D-14) - RCONST(8585) = (6.0D-18*H2O) - RCONST(8586) = (j('ch3o2h')) - RCONST(8587) = (2.81D-11) - RCONST(8588) = (KDEC) - RCONST(8589) = (2.69D-11) - RCONST(8590) = (7.20D-12) - RCONST(8591) = (j('ch3coch2ono2')*10) - RCONST(8592) = (8.40D-12) - RCONST(8593) = (KRO2HO2*0.706) - RCONST(8594) = (KRO2NO*0.019) - RCONST(8595) = (KRO2NO*0.981) - RCONST(8596) = (KRO2NO3) - RCONST(8597) = (9.20D-14*RO2) - RCONST(8598) = (K14ISOM1) - RCONST(8599) = (1.90D-11) - RCONST(8600) = (2.00D-17) - RCONST(8601) = (9.00D-11) - RCONST(8602) = (KDEC*0.11) - RCONST(8603) = (KDEC*0.89) - RCONST(8604) = (KDEC*0.11) - RCONST(8605) = (KDEC*0.89) - RCONST(8606) = (6.60D-11) - RCONST(8607) = (j('ch3o2h')) - RCONST(8608) = (j('i_c3h7cho')) - RCONST(8609) = (j('ch3o2h')*2) - RCONST(8610) = (KDEC) - RCONST(8611) = (2.92D-11*0.56) - RCONST(8612) = (2.92D-11*0.44) - RCONST(8613) = (j('ch3o2h')+j('mek')) - RCONST(8614) = (j('ch3o2h')) - RCONST(8615) = (2.40D-17*0.27) - RCONST(8616) = (2.40D-17*0.73) - RCONST(8617) = (4.72D-11) - RCONST(8618) = (j('c5hpald')*2) - RCONST(8619) = (KDEC) - RCONST(8620) = (4.58D-11) - RCONST(8621) = (j('ch3o2h')) - RCONST(8622) = (j('i_c3h7cho')*2) - RCONST(8623) = (7.04D-11) - RCONST(8624) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(8625) = (KAPHO2*0.44) - RCONST(8626) = (KAPHO2*0.15) - RCONST(8627) = (KAPHO2*0.41) - RCONST(8628) = (KAPNO) - RCONST(8629) = (KFPAN) - RCONST(8630) = (KRO2NO3*1.74) - RCONST(8631) = (1.00D-11*0.7*RO2) - RCONST(8632) = (K16ISOM1) - RCONST(8633) = (1.00D-11*0.3*RO2) - RCONST(8634) = (KRO2HO2*0.706) - RCONST(8635) = (KRO2NO*0.065) - RCONST(8636) = (KRO2NO*0.935) - RCONST(8637) = (KRO2NO3) - RCONST(8638) = (8.80D-13*RO2) - RCONST(8639) = (K14ISOM1) - RCONST(8640) = (1.16D-11*0.370) - RCONST(8641) = (1.16D-11*0.370) - RCONST(8642) = (1.16D-11*0.150) - RCONST(8643) = (1.16D-11*0.055) - RCONST(8644) = (1.16D-11*0.055) - RCONST(8645) = (KDEC*0.36) - RCONST(8646) = (KDEC*0.20) - RCONST(8647) = (KDEC*0.24) - RCONST(8648) = (KDEC*0.20) - RCONST(8649) = (KRO2HO2*0.706) - RCONST(8650) = (KRO2NO*0.145) - RCONST(8651) = (KRO2NO*0.855) - RCONST(8652) = (KRO2NO3) - RCONST(8653) = (2.90D-12*0.1*RO2) - RCONST(8654) = (2.90D-12*0.8*RO2) - RCONST(8655) = (2.90D-12*0.1*RO2) - RCONST(8656) = (KRO2HO2*0.706) - RCONST(8657) = (KRO2NO*0.064) - RCONST(8658) = (KRO2NO*0.936) - RCONST(8659) = (8.80D-13*0.2*RO2) - RCONST(8660) = (8.80D-13*0.2*RO2) - RCONST(8661) = (8.80D-13*0.6*RO2) - RCONST(8662) = (1.50D-11*0.719) - RCONST(8663) = (1.50D-11*0.281) - RCONST(8664) = (KRO2HO2*0.706) - RCONST(8665) = (KRO2NO*0.065) - RCONST(8666) = (KRO2NO*0.935) - RCONST(8667) = (KRO2NO3) - RCONST(8668) = (8.80D-13*RO2) - RCONST(8669) = (K14ISOM1) - RCONST(8670) = (5.64D-11) - RCONST(8671) = (j('ch3o2h')) - RCONST(8672) = (j('i_c3h7cho')) - RCONST(8673) = (j('ch3o2h')*2) - RCONST(8674) = (KDEC) - RCONST(8675) = (3.77D-11*0.32) - RCONST(8676) = (3.77D-11*0.68) - RCONST(8677) = (j('ch3o2h')) - RCONST(8678) = (j('n_c3h7cho_hco')) - RCONST(8679) = (j('ch3o2h')) - RCONST(8680) = (2.40D-17*0.73) - RCONST(8681) = (2.40D-17*0.27) - RCONST(8682) = (4.72D-11) - RCONST(8683) = (j('c5hpald')*2) - RCONST(8684) = (KDEC) - RCONST(8685) = (KRO2HO2*0.706) - RCONST(8686) = (KRO2NO) - RCONST(8687) = (KRO2NO3) - RCONST(8688) = (9.20D-14*RO2) - RCONST(8689) = (5.56D-11) - RCONST(8690) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(8691) = (KAPHO2*0.44) - RCONST(8692) = (KAPHO2*0.15) - RCONST(8693) = (KAPHO2*0.41) - RCONST(8694) = (KAPNO) - RCONST(8695) = (KFPAN) - RCONST(8696) = (KRO2NO3*1.74) - RCONST(8697) = (K16ISOM1) - RCONST(8698) = (1.00D-11*0.7*RO2) - RCONST(8699) = (1.00D-11*0.3*RO2) - RCONST(8700) = (KRO2HO2*0.706) - RCONST(8701) = (KRO2NO*0.935) - RCONST(8702) = (KRO2NO*0.065) - RCONST(8703) = (KRO2NO3) - RCONST(8704) = (8.80D-13*RO2) - RCONST(8705) = (KRO2HO2*0.706) - RCONST(8706) = (KRO2NO*0.019) - RCONST(8707) = (KRO2NO*0.981) - RCONST(8708) = (KRO2NO3) - RCONST(8709) = (9.20D-14*0.7*RO2) - RCONST(8710) = (9.20D-14*0.3*RO2) - RCONST(8711) = (K14ISOM1) - RCONST(8712) = (KDEC*0.18) - RCONST(8713) = (KDEC*0.82) - RCONST(8714) = (KRO2HO2*0.706) - RCONST(8715) = (KRO2NO*0.072) - RCONST(8716) = (KRO2NO*0.928) - RCONST(8717) = (KRO2NO3) - RCONST(8718) = (8.00D-13*0.8*RO2) - RCONST(8719) = (8.00D-13*0.2*RO2) - RCONST(8720) = (KRO2HO2*0.706) - RCONST(8721) = (KRO2NO) - RCONST(8722) = (KRO2NO3) - RCONST(8723) = (9.20D-14*RO2) - RCONST(8724) = (j('ch3o2h')) - RCONST(8725) = (1.01D-11*0.65) - RCONST(8726) = (1.01D-11*0.35) - RCONST(8727) = (2.00D-12*0.07) - RCONST(8728) = (2.00D-12*0.39) - RCONST(8729) = (2.00D-12*0.07) - RCONST(8730) = (2.00D-12*0.33) - RCONST(8731) = (2.00D-12*0.14) - RCONST(8732) = (KDEC) - RCONST(8733) = (6.68D-12) - RCONST(8734) = (1.20D-15) - RCONST(8735) = (1.00D-14) - RCONST(8736) = (1.00D-15) - RCONST(8737) = (7.00D-14) - RCONST(8738) = (6.00D-18*H2O) - RCONST(8739) = (j('ch3o2h')) - RCONST(8740) = (3.16D-11) - RCONST(8741) = (j('ch3coch2ono2')*0.91) - RCONST(8742) = (2.32D-11) - RCONST(8743) = (KDEC) - RCONST(8744) = (3.04D-11) - RCONST(8745) = (9.11D-11) - RCONST(8746) = (j('ch3o2h')) - RCONST(8747) = (8.75D-11) - RCONST(8748) = (KBPAN) - RCONST(8749) = (1.14D-12) - RCONST(8750) = (j('ch3cocho')) - RCONST(8751) = (KNO3AL*5.5) - RCONST(8752) = (1.33D-11) - RCONST(8753) = (KRO2HO2*0.706) - RCONST(8754) = (KRO2NO*0.140) - RCONST(8755) = (KRO2NO*0.860) - RCONST(8756) = (KRO2NO3) - RCONST(8757) = (2.90D-12*RO2*0.1) - RCONST(8758) = (2.90D-12*RO2*0.8) - RCONST(8759) = (2.90D-12*RO2*0.1) - RCONST(8760) = (K15ISOM1) - RCONST(8761) = (1.90D-12*EXP(190/TEMP)) - RCONST(8762) = (1.63D-11) - RCONST(8763) = (j('ch3o2h')) - RCONST(8764) = (2.26D-13) - RCONST(8765) = (j('n_c3h7ono2')) - RCONST(8766) = (KROPRIM*O2) - RCONST(8767) = (2.00D+14*EXP(-6850/TEMP)) - RCONST(8768) = (4.31D-12) - RCONST(8769) = (1.80D-13) - RCONST(8770) = (1.90D-12*EXP(190/TEMP)) - RCONST(8771) = (1.57D-11) - RCONST(8772) = (j('ch3o2h')) - RCONST(8773) = (5.72D-13) - RCONST(8774) = (j('n_c3h7ono2')) - RCONST(8775) = (KROPRIM*O2) - RCONST(8776) = (KNO3AL*4.0) - RCONST(8777) = (2.18D-11) - RCONST(8778) = (j('n_c3h7cho_hco')) - RCONST(8779) = (5.34D-12) - RCONST(8780) = (1.90D-12*EXP(190/TEMP)) - RCONST(8781) = (1.07D-11) - RCONST(8782) = (j('ch3o2h')) - RCONST(8783) = (KDEC) - RCONST(8784) = (KNO3AL*4.0) - RCONST(8785) = (1.42D-11) - RCONST(8786) = (j('ch3cocho')) - RCONST(8787) = (1.48D-12) - RCONST(8788) = (1.90D-12*EXP(190/TEMP)) - RCONST(8789) = (3.59D-11) - RCONST(8790) = (j('ch3o2h')) - RCONST(8791) = (1.00D-14) - RCONST(8792) = (5.37D-13) - RCONST(8793) = (j('1_c4h9ono2')) - RCONST(8794) = (KDEC) - RCONST(8795) = (9.55D-12) - RCONST(8796) = (KRO2HO2*0.520*0.6) - RCONST(8797) = (KRO2HO2*0.520*0.4) - RCONST(8798) = (KRO2NO*0.047) - RCONST(8799) = (KRO2NO*0.953) - RCONST(8800) = (KRO2NO3) - RCONST(8801) = (8.80D-13*0.6*RO2) - RCONST(8802) = (8.80D-13*0.2*RO2) - RCONST(8803) = (8.80D-13*0.2*RO2) - RCONST(8804) = (7.54D-11) - RCONST(8805) = (j('ch3o2h')) - RCONST(8806) = (6.22D-12) - RCONST(8807) = (j('n_c3h7ono2')) - RCONST(8808) = (KROPRIM*O2) - RCONST(8809) = (2.27D-11) - RCONST(8810) = (2.00D-10) - RCONST(8811) = (j('ch3o2h')) - RCONST(8812) = (KDEC) - RCONST(8813) = (8.78D-12) - RCONST(8814) = (j('1_c4h9ono2')) - RCONST(8815) = (5.80D-11) - RCONST(8816) = (1.59D-10) - RCONST(8817) = (j('ch3o2h')) - RCONST(8818) = (KDEC) - RCONST(8819) = (1.24D-11) - RCONST(8820) = (j('1_c4h9ono2')) - RCONST(8821) = (4.85D-11) - RCONST(8822) = (9.22D-12) - RCONST(8823) = (1.28D-11) - RCONST(8824) = (j('ch3o2h')) - RCONST(8825) = (9.18D-12) - RCONST(8826) = (KBPAN) - RCONST(8827) = (1.90D-12*EXP(190/TEMP)) - RCONST(8828) = (2.16D-11) - RCONST(8829) = (j('ch3o2h')+j('mek')) - RCONST(8830) = (KDEC) - RCONST(8831) = (1.57D-11) - RCONST(8832) = (j('mek')) - RCONST(8833) = (KNO3AL*4.0) - RCONST(8834) = (2.56D-11) - RCONST(8835) = (j('ch3cocho')) - RCONST(8836) = (j('ch3o2h')+j('biacet')) - RCONST(8837) = (1.90D-12*EXP(190/TEMP)) - RCONST(8838) = (5.99D-12) - RCONST(8839) = (KDEC) - RCONST(8840) = (1.90D-12*EXP(190/TEMP)) - RCONST(8841) = (3.67D-11) - RCONST(8842) = (j('ch3o2h')+j('mek')) - RCONST(8843) = (KDEC) - RCONST(8844) = (3.06D-11) - RCONST(8845) = (j('mek')) - RCONST(8846) = (3.02D-11) - RCONST(8847) = (j('ch3cocho')) - RCONST(8848) = (2.24D-11) - RCONST(8849) = (j('ch3o2h')+j('biacet')) - RCONST(8850) = (KDEC) - RCONST(8851) = (3.57D-11) - RCONST(8852) = (j('mek')) - RCONST(8853) = (j('ch3o2h')) - RCONST(8854) = (KDEC) - RCONST(8855) = (1.88D-11) - RCONST(8856) = (j('mek')) - RCONST(8857) = (j('biacet')) - RCONST(8858) = (1.39D-11) - RCONST(8859) = (j('ch3o2h')) - RCONST(8860) = (j('mek')) - RCONST(8861) = (1.90D-12*EXP(190/TEMP)) - RCONST(8862) = (3.26D-11) - RCONST(8863) = (KDEC) - RCONST(8864) = (j('mek')) - RCONST(8865) = (1.72D-11) - RCONST(8866) = (j('ch3cocho')) - RCONST(8867) = (2.72D-11) - RCONST(8868) = (j('mek')) - RCONST(8869) = (4.00D-12) - RCONST(8870) = (j('mek')) - RCONST(8871) = (j('ch3o2h')) - RCONST(8872) = (7.56D-12) - RCONST(8873) = (KBPAN) - RCONST(8874) = (3.96D-12) - RCONST(8875) = (4.93D-11) - RCONST(8876) = (j('ch3o2h')+j('mek')) - RCONST(8877) = (KDEC) - RCONST(8878) = (1.93D-11) - RCONST(8879) = (1.90D-12*EXP(190/TEMP)) - RCONST(8880) = (j('mek')) - RCONST(8881) = (j('mek')+j('ch3o2h')) - RCONST(8882) = (KDEC) - RCONST(8883) = (j('mek')*2) - RCONST(8884) = (j('ch3o2h')) - RCONST(8885) = (5.42D-11) - RCONST(8886) = (KDEC) - RCONST(8887) = (j('mek')) - RCONST(8888) = (j('biacet')) - RCONST(8889) = (7.29D-13) - RCONST(8890) = (j('mek')*2) - RCONST(8891) = (2.29D-11) - RCONST(8892) = (j('ch3o2h')) - RCONST(8893) = (1.97D-11) - RCONST(8894) = (1.90D-12*EXP(190/TEMP)) - RCONST(8895) = (j('n_c3h7ono2')) - RCONST(8896) = (8.93D-12) - RCONST(8897) = (3.05D+11*EXP(-4240/TEMP)) - RCONST(8898) = (KROPRIM*O2) - RCONST(8899) = (j('ch3o2h')+j('mek')) - RCONST(8900) = (9.12D-11) - RCONST(8901) = (j('1_c4h9ono2')+j('mek')) - RCONST(8902) = (2.04D-12) - RCONST(8903) = (2.00D+14*EXP(-4714/TEMP)) - RCONST(8904) = (j('mek')*2) - RCONST(8905) = (6.03D-12) - RCONST(8906) = (j('mek')) - RCONST(8907) = (4.22D-11) - RCONST(8908) = (1.06D-10) - RCONST(8909) = (j('biacet')+j('ch3o2h')) - RCONST(8910) = (2.70D+14*EXP(-7398/TEMP)) - RCONST(8911) = (KROSEC*O2) - RCONST(8912) = (4.67D-11) - RCONST(8913) = (1.90D-12*EXP(190/TEMP)) - RCONST(8914) = (j('ch3o2h')+j('mek')) - RCONST(8915) = (KDEC) - RCONST(8916) = (2.86D-11) - RCONST(8917) = (j('biacet')) - RCONST(8918) = (3.38D-11) - RCONST(8919) = (j('mek')) - RCONST(8920) = (2.36D-11) - RCONST(8921) = (j('ch3o2h')+j('biacet')) - RCONST(8922) = (KDEC) - RCONST(8923) = (4.05D-11) - RCONST(8924) = (1.90D-12*EXP(190/TEMP)) - RCONST(8925) = (j('mek')) - RCONST(8926) = (j('ch3o2h')) - RCONST(8927) = (KDEC) - RCONST(8928) = (1.46D-11) - RCONST(8929) = (j('biacet')) - RCONST(8930) = (2.34D-11) - RCONST(8931) = (j('mek')) - RCONST(8932) = (8.77D-12) - RCONST(8933) = (j('ch3o2h')) - RCONST(8934) = (5.18D-12) - RCONST(8935) = (KBPAN) - RCONST(8936) = (1.66D-11) - RCONST(8937) = (j('ch3o2h')) - RCONST(8938) = (4.97D-12) - RCONST(8939) = (j('ch3o2h')+j('ch3cocho')) - RCONST(8940) = (KDEC) - RCONST(8941) = (j('ch3o2h')+j('mek')) - RCONST(8942) = (1.90D-12*EXP(190/TEMP)) - RCONST(8943) = (2.21D-11) - RCONST(8944) = (KDEC) - RCONST(8945) = (j('mek')) - RCONST(8946) = (1.60D-11) - RCONST(8947) = (j('ch3cocho')) - RCONST(8948) = (1.41D-11) - RCONST(8949) = (1.41D-12) - RCONST(8950) = (j('ch3o2h')) - RCONST(8951) = (4.98D-12) - RCONST(8952) = (KBPAN) - RCONST(8953) = (1.38D-12) - RCONST(8954) = (9.13D-11) - RCONST(8955) = (j('ch3o2h')+j('n_c3h7cho_hco')+j('mek')) - RCONST(8956) = (KROPRIM*O2) - RCONST(8957) = (2*KNO3AL*5.5) - RCONST(8958) = (9.78D-11) - RCONST(8959) = (j('n_c3h7cho_hco')*2) - RCONST(8960) = (j('mek')) - RCONST(8961) = (8.07D-11) - RCONST(8962) = (j('mek')+j('n_c3h7cho_hco')) - RCONST(8963) = (1.90D-12*EXP(190/TEMP)) - RCONST(8964) = (4.63D-10) - RCONST(8965) = (j('ch3o2h')) - RCONST(8966) = (KROSEC*O2) - RCONST(8967) = (2.70D+14*EXP(-7398/TEMP)) - RCONST(8968) = (1.22D-10) - RCONST(8969) = (j('mek')) - RCONST(8970) = (1.45D-12) - RCONST(8971) = (j('mek')*3) - RCONST(8972) = (KRO2HO2*0.914) - RCONST(8973) = (KRO2NO*0.050) - RCONST(8974) = (KRO2NO*0.950) - RCONST(8975) = (KRO2NO3) - RCONST(8976) = (6.70D-15*0.7*RO2) - RCONST(8977) = (6.70D-15*0.3*RO2) - RCONST(8978) = (5.94D-12) - RCONST(8979) = (j('ch3o2h')) - RCONST(8980) = (KDEC) - RCONST(8981) = (9.73D-12) - RCONST(8982) = (j('ch3o2h')+j('mek')) - RCONST(8983) = (3.66D-12) - RCONST(8984) = (KBPAN) - RCONST(8985) = (KRO2HO2*0.914) - RCONST(8986) = (KRO2NO*0.125) - RCONST(8987) = (KRO2NO*0.875) - RCONST(8988) = (KRO2NO3) - RCONST(8989) = (6.70D-15*0.7*RO2) - RCONST(8990) = (6.70D-15*0.3*RO2) - RCONST(8991) = (KAPHO2*0.44) - RCONST(8992) = (KAPHO2*0.15) - RCONST(8993) = (KAPHO2*0.41) - RCONST(8994) = (KAPNO) - RCONST(8995) = (KFPAN) - RCONST(8996) = (KRO2NO3*1.74) - RCONST(8997) = (1.00D-11*RO2*0.7) - RCONST(8998) = (1.00D-11*RO2*0.3) - RCONST(8999) = (KAPHO2*0.41) - RCONST(9000) = (KAPHO2*0.44) - RCONST(9001) = (KAPHO2*0.15) - RCONST(9002) = (KAPNO) - RCONST(9003) = (KFPAN) - RCONST(9004) = (KRO2NO3*1.74) - RCONST(9005) = (1.00D-11*RO2*0.7) - RCONST(9006) = (1.00D-11*RO2*0.3) - RCONST(9007) = (KRO2HO2*0.890) - RCONST(9008) = (KRO2NO) - RCONST(9009) = (KRO2NO3) - RCONST(9010) = (1.30D-12*RO2) - RCONST(9011) = (KRO2HO2*0.890) - RCONST(9012) = (KRO2NO) - RCONST(9013) = (KRO2NO3) - RCONST(9014) = (6.70D-15*0.7*RO2) - RCONST(9015) = (6.70D-15*0.3*RO2) - RCONST(9016) = (KAPHO2*0.56) - RCONST(9017) = (KAPHO2*0.44) - RCONST(9018) = (KAPNO) - RCONST(9019) = (KFPAN) - RCONST(9020) = (KRO2NO3*1.74) - RCONST(9021) = (1.00D-11*RO2) - RCONST(9022) = (KRO2HO2*0.859) - RCONST(9023) = (KRO2NO) - RCONST(9024) = (KRO2NO3) - RCONST(9025) = (6.70D-15*RO2) - RCONST(9026) = (KRO2HO2*0.820) - RCONST(9027) = (KRO2NO*0.042) - RCONST(9028) = (KRO2NO*0.958) - RCONST(9029) = (KRO2NO3) - RCONST(9030) = (9.20D-14*RO2*0.7) - RCONST(9031) = (9.20D-14*RO2*0.3) - RCONST(9032) = (1.27D-10) - RCONST(9033) = (j('ch3o2h')) - RCONST(9034) = (9.60D-11) - RCONST(9035) = (j('1_c4h9ono2')) - RCONST(9036) = (KROSEC*O2) - RCONST(9037) = (1.09D-10) - RCONST(9038) = (8.85D-12) - RCONST(9039) = (j('ch3o2h')) - RCONST(9040) = (4.90D-12) - RCONST(9041) = (KBPAN) - RCONST(9042) = (KRO2HO2*0.890) - RCONST(9043) = (KRO2NO*0.047) - RCONST(9044) = (KRO2NO*0.953) - RCONST(9045) = (KRO2NO3) - RCONST(9046) = (6.70D-15*RO2*0.7) - RCONST(9047) = (6.70D-15*RO2*0.3) - RCONST(9048) = (KRO2HO2*0.890) - RCONST(9049) = (KRO2NO*0.157) - RCONST(9050) = (KRO2NO*0.843) - RCONST(9051) = (KRO2NO3) - RCONST(9052) = (2.50D-13*RO2*0.2) - RCONST(9053) = (2.50D-13*RO2*0.6) - RCONST(9054) = (2.50D-13*RO2*0.2) - RCONST(9055) = (KRO2HO2*0.890) - RCONST(9056) = (KRO2NO*0.157) - RCONST(9057) = (KRO2NO*0.843) - RCONST(9058) = (KRO2NO3) - RCONST(9059) = (8.80D-13*RO2*0.2) - RCONST(9060) = (8.80D-13*RO2*0.6) - RCONST(9061) = (8.80D-13*RO2*0.2) - RCONST(9062) = (5.99D-12) - RCONST(9063) = (KRO2HO2*0.890) - RCONST(9064) = (KRO2NO*0.118) - RCONST(9065) = (KRO2NO*0.882) - RCONST(9066) = (KRO2NO3) - RCONST(9067) = (6.70D-15*RO2*0.7) - RCONST(9068) = (6.70D-15*RO2*0.3) - RCONST(9069) = (1.62D-11) - RCONST(9070) = (j('ch3o2h')) - RCONST(9071) = (1.84D-12) - RCONST(9072) = (j('1_c4h9ono2')) - RCONST(9073) = (KDEC) - RCONST(9074) = (3.94D-12) - RCONST(9075) = (6.81D-12) - RCONST(9076) = (1.46D-11) - RCONST(9077) = (j('ch3o2h')) - RCONST(9078) = (5.71D-12) - RCONST(9079) = (KBPAN) - RCONST(9080) = (KRO2HO2*0.914) - RCONST(9081) = (KRO2NO) - RCONST(9082) = (KRO2NO3) - RCONST(9083) = (9.20D-14*RO2*0.7) - RCONST(9084) = (9.20D-14*RO2*0.3) - RCONST(9085) = (KDEC) - RCONST(9086) = (KNO3AL*8.5) - RCONST(9087) = (3.60D-11*0.748) - RCONST(9088) = (3.60D-11*0.252) - RCONST(9089) = (j('n_c3h7cho_hco')) - RCONST(9090) = (KRO2HO2*0.914) - RCONST(9091) = (KRO2NO*0.059) - RCONST(9092) = (KRO2NO*0.941) - RCONST(9093) = (KRO2NO3) - RCONST(9094) = (9.20D-14*RO2*0.7) - RCONST(9095) = (9.20D-14*RO2*0.3) - RCONST(9096) = (KNO3AL*17.0) - RCONST(9097) = (3.30D-13) - RCONST(9098) = (1.30D-17*0.330) - RCONST(9099) = (1.30D-17*0.670) - RCONST(9100) = (1.06D-10*0.447) - RCONST(9101) = (1.06D-10*0.553) - RCONST(9102) = (j('n_c3h7cho_hco')*2) - RCONST(9103) = (KAPHO2*0.15) - RCONST(9104) = (KAPHO2*0.41) - RCONST(9105) = (KAPHO2*0.44) - RCONST(9106) = (KAPNO) - RCONST(9107) = (KFPAN) - RCONST(9108) = (KRO2NO3*1.74) - RCONST(9109) = (1.00D-11*RO2*0.3) - RCONST(9110) = (1.00D-11*RO2*0.7) - RCONST(9111) = (KAPHO2*0.44) - RCONST(9112) = (KAPHO2*0.15) - RCONST(9113) = (KAPHO2*0.41) - RCONST(9114) = (KAPNO) - RCONST(9115) = (KFPAN) - RCONST(9116) = (KRO2NO3*1.74) - RCONST(9117) = (1.00D-11*RO2*0.7) - RCONST(9118) = (1.00D-11*RO2*0.3) - RCONST(9119) = (KRO2HO2*0.890) - RCONST(9120) = (KRO2NO) - RCONST(9121) = (KRO2NO3) - RCONST(9122) = (8.80D-13*RO2*0.2) - RCONST(9123) = (8.80D-13*RO2*0.6) - RCONST(9124) = (8.80D-13*RO2*0.2) - RCONST(9125) = (KAPHO2*0.56) - RCONST(9126) = (KAPHO2*0.44) - RCONST(9127) = (KAPNO) - RCONST(9128) = (KFPAN) - RCONST(9129) = (KRO2NO3*1.74) - RCONST(9130) = (1.00D-11*RO2) - RCONST(9131) = (KRO2HO2*0.890) - RCONST(9132) = (KRO2NO) - RCONST(9133) = (KRO2NO3) - RCONST(9134) = (9.20D-14*RO2) - RCONST(9135) = (KRO2HO2*0.859) - RCONST(9136) = (KRO2NO) - RCONST(9137) = (KRO2NO3) - RCONST(9138) = (2.50D-13*RO2) - RCONST(9139) = (7.29D-11) - RCONST(9140) = (j('ch3o2h')) - RCONST(9141) = (6.93D-11) - RCONST(9142) = (KBPAN) - RCONST(9143) = (KRO2HO2*0.914) - RCONST(9144) = (KRO2NO*0.760) - RCONST(9145) = (KRO2NO3) - RCONST(9146) = (9.20D-14*RO2*0.3) - RCONST(9147) = (9.20D-14*RO2*0.7) - RCONST(9148) = (KDEC*0.5) - RCONST(9149) = (KDEC*0.5) - RCONST(9150) = (KDEC*0.5) - RCONST(9151) = (KDEC*0.5) - RCONST(9152) = (KRO2HO2*0.914) - RCONST(9153) = (KRO2NO*0.240) - RCONST(9154) = (KRO2NO*0.760) - RCONST(9155) = (KRO2NO3) - RCONST(9156) = (9.20D-14*RO2*0.7) - RCONST(9157) = (9.20D-14*RO2*0.3) - RCONST(9158) = (KRO2HO2*0.914) - RCONST(9159) = (KRO2NO*0.240) - RCONST(9160) = (KRO2NO*0.760) - RCONST(9161) = (KRO2NO3) - RCONST(9162) = (8.80D-13*RO2*0.2) - RCONST(9163) = (8.80D-13*RO2*0.2) - RCONST(9164) = (8.80D-13*RO2*0.6) - RCONST(9165) = (7.29D-11) - RCONST(9166) = (j('ch3o2h')) - RCONST(9167) = (6.93D-11) - RCONST(9168) = (KBPAN) - RCONST(9169) = (4.27D-11) - RCONST(9170) = (j('ch3o2h')) - RCONST(9171) = (KDEC) - RCONST(9172) = (3.93D-11) - RCONST(9173) = (1.20D-15) - RCONST(9174) = (1.00D-14) - RCONST(9175) = (1.00D-15) - RCONST(9176) = (7.00D-14) - RCONST(9177) = (1.40D-17*H2O) - RCONST(9178) = (KRO2HO2*0.968) - RCONST(9179) = (KRO2NO) - RCONST(9180) = (KRO2NO3) - RCONST(9181) = (8.80D-13*RO2*0.2) - RCONST(9182) = (8.80D-13*RO2*0.6) - RCONST(9183) = (8.80D-13*RO2*0.2) - RCONST(9184) = (KAPHO2*0.15) - RCONST(9185) = (KAPHO2*0.41) - RCONST(9186) = (KAPHO2*0.44) - RCONST(9187) = (KAPNO) - RCONST(9188) = (KFPAN) - RCONST(9189) = (KRO2NO3*1.74) - RCONST(9190) = (1.00D-11*RO2*0.3) - RCONST(9191) = (1.00D-11*RO2*0.7) - RCONST(9192) = (KRO2HO2*0.975) - RCONST(9193) = (KRO2NO) - RCONST(9194) = (KRO2NO3) - RCONST(9195) = (2.00D-12*RO2*0.2) - RCONST(9196) = (2.00D-12*RO2*0.6) - RCONST(9197) = (2.00D-12*RO2*0.2) - RCONST(9198) = (KRO2HO2*0.968) - RCONST(9199) = (KRO2NO) - RCONST(9200) = (KRO2NO3) - RCONST(9201) = (2.00D-12*RO2*0.2) - RCONST(9202) = (2.00D-12*RO2*0.6) - RCONST(9203) = (2.00D-12*RO2*0.2) - RCONST(9204) = (KRO2HO2*0.975) - RCONST(9205) = (KRO2NO) - RCONST(9206) = (KRO2NO3) - RCONST(9207) = (2.00D-12*RO2*0.2) - RCONST(9208) = (2.00D-12*RO2*0.6) - RCONST(9209) = (2.00D-12*RO2*0.2) - RCONST(9210) = (KRO2HO2*0.959) - RCONST(9211) = (KRO2NO*0.178) - RCONST(9212) = (KRO2NO*0.822) - RCONST(9213) = (KRO2NO3) - RCONST(9214) = (1.32D-12*RO2*0.2) - RCONST(9215) = (1.32D-12*RO2*0.6) - RCONST(9216) = (1.32D-12*RO2*0.2) - RCONST(9217) = (4.65D-11) - RCONST(9218) = (j('ch3o2h')) - RCONST(9219) = (3.01D-11) - RCONST(9220) = (KDEC) - RCONST(9221) = (4.31D-11) - RCONST(9222) = (2.57D-11) - RCONST(9223) = (j('ch3o2h')) - RCONST(9224) = (1.58D-11) - RCONST(9225) = (KDEC) - RCONST(9226) = (2.21D-11) - RCONST(9227) = (KRO2HO2*0.968) - RCONST(9228) = (KRO2NO) - RCONST(9229) = (KRO2NO3) - RCONST(9230) = (8.80D-13*RO2*0.2) - RCONST(9231) = (8.80D-13*RO2*0.6) - RCONST(9232) = (8.80D-13*RO2*0.2) - RCONST(9233) = (1.20D-15) - RCONST(9234) = (1.00D-14) - RCONST(9235) = (1.00D-15) - RCONST(9236) = (7.00D-14) - RCONST(9237) = (1.40D-17*H2O) - RCONST(9238) = (2.57D-11) - RCONST(9239) = (j('ch3o2h')) - RCONST(9240) = (1.58D-11) - RCONST(9241) = (KDEC) - RCONST(9242) = (2.21D-11) - RCONST(9243) = (KAPHO2*0.15) - RCONST(9244) = (KAPHO2*0.41) - RCONST(9245) = (KAPHO2*0.44) - RCONST(9246) = (KAPNO) - RCONST(9247) = (KFPAN) - RCONST(9248) = (KRO2NO3*1.74) - RCONST(9249) = (1.00D-11*RO2*0.3) - RCONST(9250) = (1.00D-11*RO2*0.7) - RCONST(9251) = (KAPHO2*0.44) - RCONST(9252) = (KAPHO2*0.15) - RCONST(9253) = (KAPHO2*0.41) - RCONST(9254) = (KAPNO) - RCONST(9255) = (KFPAN) - RCONST(9256) = (KRO2NO3*1.74) - RCONST(9257) = (1.00D-11*RO2*0.7) - RCONST(9258) = (1.00D-11*RO2*0.3) - RCONST(9259) = (1.20D-15) - RCONST(9260) = (1.00D-14) - RCONST(9261) = (1.00D-15) - RCONST(9262) = (7.00D-14) - RCONST(9263) = (1.40D-17*H2O) - RCONST(9264) = (KRO2HO2*0.968) - RCONST(9265) = (KRO2NO) - RCONST(9266) = (KRO2NO3) - RCONST(9267) = (8.80D-13*RO2*0.2) - RCONST(9268) = (8.80D-13*RO2*0.6) - RCONST(9269) = (8.80D-13*RO2*0.2) - RCONST(9270) = (2.57D-11) - RCONST(9271) = (j('ch3o2h')) - RCONST(9272) = (1.58D-11) - RCONST(9273) = (KDEC) - RCONST(9274) = (2.21D-11) - RCONST(9275) = (KRO2HO2*0.959) - RCONST(9276) = (KRO2NO*0.134) - RCONST(9277) = (KRO2NO*0.866) - RCONST(9278) = (KRO2NO3) - RCONST(9279) = (6.70D-15*RO2*0.7) - RCONST(9280) = (6.70D-15*RO2*0.3) - RCONST(9281) = (KRO2HO2*0.959) - RCONST(9282) = (KRO2NO) - RCONST(9283) = (KRO2NO3) - RCONST(9284) = (9.20D-14*RO2*0.7) - RCONST(9285) = (9.20D-14*RO2*0.3) - RCONST(9286) = (KNO3AL*8.5) - RCONST(9287) = (5.65D-11) - RCONST(9288) = (j('n_c3h7cho_hco')*2) - RCONST(9289) = (KDEC*0.5) - RCONST(9290) = (KDEC*0.5) - RCONST(9291) = (KRO2HO2*0.957) - RCONST(9292) = (KRO2NO*0.134) - RCONST(9293) = (KRO2NO*0.866) - RCONST(9294) = (KRO2NO3) - RCONST(9295) = (9.20D-14*RO2*0.7) - RCONST(9296) = (9.20D-14*RO2*0.3) - RCONST(9297) = (KRO2HO2*0.947) - RCONST(9298) = (KRO2NO*0.176) - RCONST(9299) = (KRO2NO*0.824) - RCONST(9300) = (KRO2NO3) - RCONST(9301) = (1.32D-12*RO2*0.2) - RCONST(9302) = (1.32D-12*RO2*0.6) - RCONST(9303) = (1.32D-12*RO2*0.2) - RCONST(9304) = (KRO2HO2*0.968) - RCONST(9305) = (KRO2NO) - RCONST(9306) = (KRO2NO3) - RCONST(9307) = (9.20D-14*RO2) - RCONST(9308) = (KRO2HO2*0.968) - RCONST(9309) = (KRO2NO*0.054) - RCONST(9310) = (KRO2NO*0.946) - RCONST(9311) = (KRO2NO3) - RCONST(9312) = (6.70D-15*RO2*0.7) - RCONST(9313) = (6.70D-15*RO2*0.3) - RCONST(9314) = (KDEC) - RCONST(9315) = (KRO2HO2*0.968) - RCONST(9316) = (KRO2NO) - RCONST(9317) = (KRO2NO3) - RCONST(9318) = (9.20D-14*RO2*0.3) - RCONST(9319) = (9.20D-14*RO2*0.7) - RCONST(9320) = (1.20D-15) - RCONST(9321) = (1.00D-14) - RCONST(9322) = (1.00D-15) - RCONST(9323) = (7.00D-14) - RCONST(9324) = (8.00D+01) - RCONST(9325) = (2.00D-16*H2O) - RCONST(9326) = (1.20D-15) - RCONST(9327) = (1.00D-14) - RCONST(9328) = (1.00D-15) - RCONST(9329) = (7.00D-14) - RCONST(9330) = (1.20D+02) - RCONST(9331) = (2.00D-16*H2O) - RCONST(9332) = (KDEC*0.13) - RCONST(9333) = (KDEC*0.67) - RCONST(9334) = (KDEC*0.15) - RCONST(9335) = (KDEC*0.05) - RCONST(9336) = (KDEC*0.66) - RCONST(9337) = (KDEC*0.17) - RCONST(9338) = (KDEC*0.17) - RCONST(9339) = (KRO2HO2*0.968) - RCONST(9340) = (KRO2NO*0.245) - RCONST(9341) = (KRO2NO*0.755) - RCONST(9342) = (KRO2NO3) - RCONST(9343) = (9.20D-14*RO2*0.7) - RCONST(9344) = (9.20D-14*RO2*0.3) - RCONST(9345) = (KRO2HO2*0.968) - RCONST(9346) = (KRO2NO*0.245) - RCONST(9347) = (KRO2NO*0.755) - RCONST(9348) = (KRO2NO3) - RCONST(9349) = (8.80D-13*RO2*0.2) - RCONST(9350) = (8.80D-13*RO2*0.2) - RCONST(9351) = (8.80D-13*RO2*0.6) - RCONST(9352) = (KAPHO2*0.56) - RCONST(9353) = (KAPHO2*0.44) - RCONST(9354) = (KAPNO) - RCONST(9355) = (KFPAN) - RCONST(9356) = (KRO2NO3*1.74) - RCONST(9357) = (1.00D-11*RO2) - RCONST(9358) = (KAPHO2*0.56) - RCONST(9359) = (KAPHO2*0.44) - RCONST(9360) = (KAPNO) - RCONST(9361) = (KFPAN) - RCONST(9362) = (KRO2NO3*1.74) - RCONST(9363) = (1.00D-11*RO2) - RCONST(9364) = (3.50D-11) - RCONST(9365) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(9366) = (2.79D-11) - RCONST(9367) = (KBPAN) - RCONST(9368) = (1.29D-10) - RCONST(9369) = (1.90D-12*EXP(190/TEMP)) - RCONST(9370) = (j('ch3o2h')+j('n_c3h7cho_hco')*2) - RCONST(9371) = (KROSEC*O2) - RCONST(9372) = (2.70D+14*EXP(-7398/TEMP)) - RCONST(9373) = (8.03D-11*0.560) - RCONST(9374) = (8.03D-11*0.440) - RCONST(9375) = (j('n_c3h7cho_hco')) - RCONST(9376) = (4.08D-11) - RCONST(9377) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(9378) = (8.40D+10*EXP(-2567/TEMP)) - RCONST(9379) = (8.80D-11) - RCONST(9380) = (j('ch3o2h')+j('biacet')) - RCONST(9381) = (KDEC) - RCONST(9382) = (KAPHO2*0.44) - RCONST(9383) = (KAPHO2*0.15) - RCONST(9384) = (KAPHO2*0.41) - RCONST(9385) = (KAPNO*4.0) - RCONST(9386) = (KFPAN) - RCONST(9387) = (KRO2NO3*1.74) - RCONST(9388) = (1.00D-11*0.7*RO2) - RCONST(9389) = (1.00D-11*0.3*RO2) - RCONST(9390) = (KRO2HO2*0.520) - RCONST(9391) = (KRO2NO) - RCONST(9392) = (KRO2NO3) - RCONST(9393) = (2.00D-12*RO2) - RCONST(9394) = (3.70D-12) - RCONST(9395) = (j('ch3coch2ono2')*10) - RCONST(9396) = (6.78D-12) - RCONST(9397) = (j('ch3coch2ono2')*10) - RCONST(9398) = (3.18D-12) - RCONST(9399) = (KBPAN+j('ch3coch2ono2')*10) - RCONST(9400) = (2.16D-11) - RCONST(9401) = (j('i_c3h7cho')) - RCONST(9402) = (2.47D-11) - RCONST(9403) = (j('ch3o2h')) - RCONST(9404) = (j('i_c3h7cho')) - RCONST(9405) = (2.11D-11) - RCONST(9406) = (KBPAN+j('i_c3h7cho')) - RCONST(9407) = (j('n_c3h7cho_hco')) - RCONST(9408) = (KNO3AL*5.5) - RCONST(9409) = (2.63D-11) - RCONST(9410) = (KAPHO2*0.15) - RCONST(9411) = (KAPHO2*0.41) - RCONST(9412) = (KAPHO2*0.44) - RCONST(9413) = (KAPNO) - RCONST(9414) = (KFPAN) - RCONST(9415) = (KRO2NO3*1.74) - RCONST(9416) = (1.00D-11*0.3*RO2) - RCONST(9417) = (1.00D-11*0.7*RO2) - RCONST(9418) = (j('i_c3h7cho')) - RCONST(9419) = (KNO3AL*8.5) - RCONST(9420) = (3.09D-11) - RCONST(9421) = (KAPHO2*0.56) - RCONST(9422) = (KAPHO2*0.44) - RCONST(9423) = (KAPNO) - RCONST(9424) = (KFPAN) - RCONST(9425) = (KRO2NO3*1.74) - RCONST(9426) = (1.00D-11*RO2) - RCONST(9427) = (KRO2HO2*0.770) - RCONST(9428) = (KRO2NO*0.039) - RCONST(9429) = (KRO2NO*0.961) - RCONST(9430) = (KRO2NO3) - RCONST(9431) = (8.40D-13*0.6*RO2) - RCONST(9432) = (8.40D-13*0.2*RO2) - RCONST(9433) = (8.40D-13*0.2*RO2) - RCONST(9434) = (j('n_c3h7cho_hco')) - RCONST(9435) = (KNO3AL*5.5) - RCONST(9436) = (2.75D-11) - RCONST(9437) = (KAPHO2*0.15) - RCONST(9438) = (KAPHO2*0.41) - RCONST(9439) = (KAPHO2*0.44) - RCONST(9440) = (KAPNO) - RCONST(9441) = (KFPAN) - RCONST(9442) = (KRO2NO3*1.74) - RCONST(9443) = (1.00D-11*0.3*RO2) - RCONST(9444) = (1.00D-11*0.7*RO2) - RCONST(9445) = (KRO2HO2*0.770) - RCONST(9446) = (KRO2NO*0.029) - RCONST(9447) = (KRO2NO*0.971) - RCONST(9448) = (KRO2NO3) - RCONST(9449) = (9.20D-14*0.7*RO2) - RCONST(9450) = (9.20D-14*0.3*RO2) - RCONST(9451) = (j('i_c3h7cho')) - RCONST(9452) = (KNO3AL*8.5) - RCONST(9453) = (2.98D-11*0.215) - RCONST(9454) = (2.98D-11*0.785) - RCONST(9455) = (KRO2HO2*0.706) - RCONST(9456) = (KRO2NO*0.129) - RCONST(9457) = (KRO2NO*0.971) - RCONST(9458) = (KRO2NO3) - RCONST(9459) = (2.50D-13*0.2*RO2) - RCONST(9460) = (2.50D-13*0.6*RO2) - RCONST(9461) = (2.50D-13*0.2*RO2) - RCONST(9462) = (KAPHO2*0.15) - RCONST(9463) = (KAPHO2*0.41) - RCONST(9464) = (KAPHO2*0.44) - RCONST(9465) = (KAPNO) - RCONST(9466) = (KFPAN) - RCONST(9467) = (KRO2NO3*1.74) - RCONST(9468) = (1.00D-11*0.3*RO2) - RCONST(9469) = (1.00D-11*0.7*RO2) - RCONST(9470) = (KRO2HO2*0.770) - RCONST(9471) = (KRO2NO) - RCONST(9472) = (KRO2NO3) - RCONST(9473) = (8.40D-13*0.2*RO2) - RCONST(9474) = (8.40D-13*0.6*RO2) - RCONST(9475) = (8.40D-13*0.2*RO2) - RCONST(9476) = (KAPHO2*0.56) - RCONST(9477) = (KAPHO2*0.44) - RCONST(9478) = (KAPNO) - RCONST(9479) = (KFPAN) - RCONST(9480) = (KRO2NO3*1.74) - RCONST(9481) = (1.00D-11*RO2) - RCONST(9482) = (KAPHO2*0.15) - RCONST(9483) = (KAPHO2*0.41) - RCONST(9484) = (KAPHO2*0.44) - RCONST(9485) = (KAPNO) - RCONST(9486) = (KFPAN) - RCONST(9487) = (KRO2NO3*1.74) - RCONST(9488) = (1.00D-11*0.3*RO2) - RCONST(9489) = (1.00D-11*0.7*RO2) - RCONST(9490) = (KRO2HO2*0.770) - RCONST(9491) = (KRO2NO*0.098) - RCONST(9492) = (KRO2NO*0.902) - RCONST(9493) = (KRO2NO3) - RCONST(9494) = (8.40D-13*0.2*RO2) - RCONST(9495) = (8.40D-13*0.6*RO2) - RCONST(9496) = (8.40D-13*0.2*RO2) - RCONST(9497) = (KRO2HO2*0.770) - RCONST(9498) = (KRO2NO*0.098) - RCONST(9499) = (KRO2NO*0.902) - RCONST(9500) = (KRO2NO3) - RCONST(9501) = (8.80D-13*0.6*RO2) - RCONST(9502) = (8.80D-13*0.2*RO2) - RCONST(9503) = (8.80D-13*0.2*RO2) - RCONST(9504) = (j('n_c3h7cho_hco')) - RCONST(9505) = (KNO3AL*8.5) - RCONST(9506) = (2.98D-11) - RCONST(9507) = (KAPHO2*0.15) - RCONST(9508) = (KAPHO2*0.41) - RCONST(9509) = (KAPHO2*0.44) - RCONST(9510) = (KAPNO) - RCONST(9511) = (KFPAN) - RCONST(9512) = (KRO2NO3*1.74) - RCONST(9513) = (1.00D-11*0.3*RO2) - RCONST(9514) = (1.00D-11*0.7*RO2) - RCONST(9515) = (KRO2HO2*0.770) - RCONST(9516) = (KRO2NO*0.029) - RCONST(9517) = (KRO2NO*0.971) - RCONST(9518) = (KRO2NO3) - RCONST(9519) = (9.20D-14*0.7*RO2) - RCONST(9520) = (9.20D-14*0.3*RO2) - RCONST(9521) = (KRO2HO2*0.770) - RCONST(9522) = (KRO2NO) - RCONST(9523) = (KRO2NO3) - RCONST(9524) = (2.00D-12*0.6*RO2) - RCONST(9525) = (2.00D-12*0.2*RO2) - RCONST(9526) = (2.00D-12*0.2*RO2) - RCONST(9527) = (KRO2HO2*0.770) - RCONST(9528) = (KRO2NO) - RCONST(9529) = (KRO2NO3) - RCONST(9530) = (9.20D-14*0.7*RO2) - RCONST(9531) = (9.20D-14*0.3*RO2) - RCONST(9532) = (KAPHO2*0.15) - RCONST(9533) = (KAPHO2*0.41) - RCONST(9534) = (KAPHO2*0.44) - RCONST(9535) = (KAPNO) - RCONST(9536) = (KFPAN) - RCONST(9537) = (KRO2NO3*1.74) - RCONST(9538) = (1.00D-11*0.3*RO2) - RCONST(9539) = (1.00D-11*0.7*RO2) - RCONST(9540) = (KRO2HO2*0.706) - RCONST(9541) = (KRO2NO*0.052) - RCONST(9542) = (KRO2NO*0.948) - RCONST(9543) = (KRO2NO3) - RCONST(9544) = (1.30D-12*0.6*RO2) - RCONST(9545) = (1.30D-12*0.2*RO2) - RCONST(9546) = (1.30D-12*0.2*RO2) - RCONST(9547) = (KAPHO2*0.15) - RCONST(9548) = (KAPHO2*0.41) - RCONST(9549) = (KAPHO2*0.44) - RCONST(9550) = (KAPNO) - RCONST(9551) = (KFPAN) - RCONST(9552) = (KRO2NO3*1.74) - RCONST(9553) = (1.00D-11*0.3*RO2) - RCONST(9554) = (1.00D-11*0.7*RO2) - RCONST(9555) = (KAPHO2*0.15) - RCONST(9556) = (KAPHO2*0.41) - RCONST(9557) = (KAPHO2*0.44) - RCONST(9558) = (KAPNO) - RCONST(9559) = (KFPAN) - RCONST(9560) = (KRO2NO3*1.74) - RCONST(9561) = (1.00D-11*0.3*RO2) - RCONST(9562) = (1.00D-11*0.7*RO2) - RCONST(9563) = (j('mek')) - RCONST(9564) = (1.52D-11*0.349) - RCONST(9565) = (1.52D-11*0.651) - RCONST(9566) = (j('mek')) - RCONST(9567) = (j('mek')) - RCONST(9568) = (6.60D-12*0.500) - RCONST(9569) = (6.60D-12*0.500) - RCONST(9570) = (KRO2HO2*0.820) - RCONST(9571) = (KRO2NO) - RCONST(9572) = (KRO2NO3) - RCONST(9573) = (8.80D-13*RO2) - RCONST(9574) = (KRO2HO2*0.820) - RCONST(9575) = (KRO2NO) - RCONST(9576) = (KRO2NO3) - RCONST(9577) = (2.00D-12*RO2) - RCONST(9578) = (KRO2HO2*0.820) - RCONST(9579) = (KRO2NO*0.139) - RCONST(9580) = (KRO2NO*0.861) - RCONST(9581) = (KRO2NO3) - RCONST(9582) = (8.80D-13*0.2*RO2) - RCONST(9583) = (8.80D-13*0.6*RO2) - RCONST(9584) = (8.80D-13*0.2*RO2) - RCONST(9585) = (KRO2HO2*0.820) - RCONST(9586) = (KRO2NO) - RCONST(9587) = (KRO2NO3) - RCONST(9588) = (8.80D-13*0.2*RO2) - RCONST(9589) = (8.80D-13*0.6*RO2) - RCONST(9590) = (8.80D-13*0.2*RO2) - RCONST(9591) = (j('mek')) - RCONST(9592) = (1.91D-11*0.534) - RCONST(9593) = (1.91D-11*0.466) - RCONST(9594) = (j('mek')) - RCONST(9595) = (j('mek')) - RCONST(9596) = (9.14D-12*0.675) - RCONST(9597) = (9.14D-12*0.325) - RCONST(9598) = (KRO2HO2*0.820) - RCONST(9599) = (KRO2NO) - RCONST(9600) = (KRO2NO3) - RCONST(9601) = (2.00D-12*RO2) - RCONST(9602) = (KRO2HO2*0.706) - RCONST(9603) = (KRO2NO*0.052) - RCONST(9604) = (KRO2NO*0.948) - RCONST(9605) = (KRO2NO3) - RCONST(9606) = (1.30D-12*0.2*RO2) - RCONST(9607) = (1.30D-12*0.2*RO2) - RCONST(9608) = (1.30D-12*0.6*RO2) - RCONST(9609) = (KAPHO2*0.15) - RCONST(9610) = (KAPHO2*0.41) - RCONST(9611) = (KAPHO2*0.44) - RCONST(9612) = (KAPNO) - RCONST(9613) = (KFPAN) - RCONST(9614) = (KRO2NO3*1.74) - RCONST(9615) = (1.00D-11*0.3*RO2) - RCONST(9616) = (1.00D-11*0.7*RO2) - RCONST(9617) = (KRO2HO2*0.859) - RCONST(9618) = (KRO2NO*0.173) - RCONST(9619) = (KRO2NO*0.827) - RCONST(9620) = (KRO2NO3) - RCONST(9621) = (8.80D-13*0.6*RO2) - RCONST(9622) = (8.80D-13*0.2*RO2) - RCONST(9623) = (8.80D-13*0.2*RO2) - RCONST(9624) = (j('mek')*2) - RCONST(9625) = (7.93D-12) - RCONST(9626) = (KRO2HO2*0.859) - RCONST(9627) = (KRO2NO) - RCONST(9628) = (KRO2NO3) - RCONST(9629) = (8.80D-13*RO2) - RCONST(9630) = (KRO2HO2*0.890) - RCONST(9631) = (KRO2NO*0.197) - RCONST(9632) = (KRO2NO*0.803) - RCONST(9633) = (KRO2NO3) - RCONST(9634) = (8.80D-13*0.2*RO2) - RCONST(9635) = (8.80D-13*0.6*RO2) - RCONST(9636) = (8.80D-13*0.2*RO2) - RCONST(9637) = (j('mek')*2) - RCONST(9638) = (1.14D-11) - RCONST(9639) = (KRO2HO2*0.890) - RCONST(9640) = (KRO2NO) - RCONST(9641) = (KRO2NO3) - RCONST(9642) = (8.80D-13*RO2) - RCONST(9643) = (KRO2HO2*0.820) - RCONST(9644) = (KRO2NO) - RCONST(9645) = (KRO2NO3) - RCONST(9646) = (2.00D-12*RO2) - RCONST(9647) = (KRO2HO2*0.914) - RCONST(9648) = (KRO2NO*0.208) - RCONST(9649) = (KRO2NO*0.792) - RCONST(9650) = (KRO2NO3) - RCONST(9651) = (8.80D-13*0.2*RO2) - RCONST(9652) = (8.80D-13*0.6*RO2) - RCONST(9653) = (8.80D-13*0.2*RO2) - RCONST(9654) = (j('mek')*2) - RCONST(9655) = (1.28D-11) - RCONST(9656) = (KRO2HO2*0.914) - RCONST(9657) = (KRO2NO) - RCONST(9658) = (KRO2NO3) - RCONST(9659) = (8.80D-13*RO2) - RCONST(9660) = (KRO2HO2*0.859) - RCONST(9661) = (KRO2NO) - RCONST(9662) = (KRO2NO3) - RCONST(9663) = (2.00D-12*RO2) - RCONST(9664) = (KRO2HO2*0.932) - RCONST(9665) = (KRO2NO*0.215) - RCONST(9666) = (KRO2NO*0.785) - RCONST(9667) = (KRO2NO3) - RCONST(9668) = (8.80D-13*0.2*RO2) - RCONST(9669) = (8.80D-13*0.6*RO2) - RCONST(9670) = (8.80D-13*0.2*RO2) - RCONST(9671) = (j('mek')*2) - RCONST(9672) = (1.42D-11) - RCONST(9673) = (KRO2HO2*0.932) - RCONST(9674) = (KRO2NO) - RCONST(9675) = (KRO2NO3) - RCONST(9676) = (8.80D-13*RO2) - RCONST(9677) = (KRO2HO2*0.890) - RCONST(9678) = (KRO2NO) - RCONST(9679) = (KRO2NO3) - RCONST(9680) = (2.00D-12*RO2) - RCONST(9681) = (KRO2HO2*0.947) - RCONST(9682) = (KRO2NO*0.220) - RCONST(9683) = (KRO2NO*0.780) - RCONST(9684) = (KRO2NO3) - RCONST(9685) = (8.80D-13*0.2*RO2) - RCONST(9686) = (8.80D-13*0.6*RO2) - RCONST(9687) = (8.80D-13*0.2*RO2) - RCONST(9688) = (j('mek')*2) - RCONST(9689) = (1.56D-11) - RCONST(9690) = (KRO2HO2*0.947) - RCONST(9691) = (KRO2NO) - RCONST(9692) = (KRO2NO3) - RCONST(9693) = (8.80D-13*RO2) - RCONST(9694) = (KRO2HO2*0.770) - RCONST(9695) = (KRO2NO*0.078) - RCONST(9696) = (KRO2NO*0.922) - RCONST(9697) = (KRO2NO3) - RCONST(9698) = (2.50D-13*RO2*0.2) - RCONST(9699) = (2.50D-13*RO2*0.6) - RCONST(9700) = (2.50D-13*RO2*0.2) - RCONST(9701) = (KDEC) - RCONST(9702) = (KDEC) - RCONST(9703) = (KRO2HO2*0.520) - RCONST(9704) = (KRO2NO) - RCONST(9705) = (KRO2NO3) - RCONST(9706) = (2.00D-12*RO2) - RCONST(9707) = (2.48D-13) - RCONST(9708) = (j('ch3coch2ono2')*1.6) - RCONST(9709) = (1.51D-11) - RCONST(9710) = (j('ch3coch2ono2')*10) - RCONST(9711) = (4.74D-11) - RCONST(9712) = (j('ch3cocho')) - RCONST(9713) = (j('mek')) - RCONST(9714) = (j('ch3cocho')) - RCONST(9715) = (1.44D-11) - RCONST(9716) = (6.18D-12) - RCONST(9717) = (j('ch3o2h')) - RCONST(9718) = (KDEC*0.5) - RCONST(9719) = (KDEC*0.5) - RCONST(9720) = (1.20D-15) - RCONST(9721) = (1.00D-14) - RCONST(9722) = (1.00D-15) - RCONST(9723) = (7.00D-14) - RCONST(9724) = (6.00D-18*H2O) - RCONST(9725) = (1.00D-17*H2O) - RCONST(9726) = (3.68D-11) - RCONST(9727) = (j('ch3o2h')) - RCONST(9728) = (KDEC) - RCONST(9729) = (1.78D-11) - RCONST(9730) = (2.78D-11) - RCONST(9731) = (1.4D-12) - RCONST(9732) = (2.45D-11) - RCONST(9733) = (j('ch3cocho')*2) - RCONST(9734) = (2.25D-15) - RCONST(9735) = (3.00D-14) - RCONST(9736) = (KRO2HO2*0.770) - RCONST(9737) = (KRO2NO) - RCONST(9738) = (KRO2NO3) - RCONST(9739) = (2.50D-13*RO2) - RCONST(9740) = (KRO2HO2*0.770) - RCONST(9741) = (KRO2NO) - RCONST(9742) = (KRO2NO3) - RCONST(9743) = (8.00D-13*RO2) - RCONST(9744) = (KRO2HO2*0.770) - RCONST(9745) = (KRO2NO) - RCONST(9746) = (KRO2NO3) - RCONST(9747) = (8.00D-13*RO2) - RCONST(9748) = (1.90D-12*EXP(190/TEMP)) - RCONST(9749) = (j('ch3o2h')) - RCONST(9750) = (KRO2HO2*0.770) - RCONST(9751) = (KRO2NO) - RCONST(9752) = (KRO2NO3) - RCONST(9753) = (8.80D-13*RO2) - RCONST(9754) = (KRO2HO2*0.770) - RCONST(9755) = (KRO2NO) - RCONST(9756) = (KRO2NO3) - RCONST(9757) = (8.80D-13*RO2*0.2) - RCONST(9758) = (8.80D-13*RO2*0.6) - RCONST(9759) = (8.80D-13*RO2*0.2) - RCONST(9760) = (KRO2HO2*0.820) - RCONST(9761) = (KRO2NO) - RCONST(9762) = (KRO2NO3) - RCONST(9763) = (8.80D-13*RO2) - RCONST(9764) = (KRO2HO2*0.820) - RCONST(9765) = (KRO2NO) - RCONST(9766) = (KRO2NO3) - RCONST(9767) = (8.80D-13*RO2*0.2) - RCONST(9768) = (8.80D-13*RO2*0.6) - RCONST(9769) = (8.80D-13*RO2*0.2) - RCONST(9770) = (7.83D-15) - RCONST(9771) = (5.10D-14) - RCONST(9772) = (KRO2HO2*0.820) - RCONST(9773) = (KRO2NO) - RCONST(9774) = (KRO2NO3) - RCONST(9775) = (2.50D-13*RO2) - RCONST(9776) = (KRO2HO2*0.820) - RCONST(9777) = (KRO2NO) - RCONST(9778) = (KRO2NO3) - RCONST(9779) = (8.00D-13*RO2) - RCONST(9780) = (KRO2HO2*0.820) - RCONST(9781) = (KRO2NO) - RCONST(9782) = (KRO2NO3) - RCONST(9783) = (8.00D-13*RO2) - RCONST(9784) = (2.05D-10) - RCONST(9785) = (j('ch3o2h')) - RCONST(9786) = (KDEC*0.35) - RCONST(9787) = (KDEC*0.65) - RCONST(9788) = (4.73D-11) - RCONST(9789) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(9790) = (j('ch3o2h')) - RCONST(9791) = (4.37D-11) - RCONST(9792) = (KBPAN) - RCONST(9793) = (KDEC) - RCONST(9794) = (5.70D-11) - RCONST(9795) = (j('i_c3h7cho')*2) - RCONST(9796) = (1.21D-10) - RCONST(9797) = (1.90D-12*EXP(190/TEMP)) - RCONST(9798) = (j('ch3o2h')+j('n_c3h7cho_hco')+j('mek')) - RCONST(9799) = (KDEC) - RCONST(9800) = (7.48D-11) - RCONST(9801) = (j('n_c3h7cho_hco')+j('biacet')) - RCONST(9802) = (6.26D-11) - RCONST(9803) = (j('n_c3h7cho_hco')+j('mek')) - RCONST(9804) = (4.44D-12) - RCONST(9805) = (j('ch3o2h')) - RCONST(9806) = (KDEC) - RCONST(9807) = (KRO2HO2*0.625) - RCONST(9808) = (KRO2NO) - RCONST(9809) = (KRO2NO3) - RCONST(9810) = (2.00D-12*RO2) - RCONST(9811) = (1.20D-15) - RCONST(9812) = (1.00D-14) - RCONST(9813) = (1.00D-15) - RCONST(9814) = (7.00D-14) - RCONST(9815) = (6.00D-18*H2O) - RCONST(9816) = (1.00D-17*H2O) - RCONST(9817) = (2.53D-11) - RCONST(9818) = (j('ch3o2h')) - RCONST(9819) = (KDEC) - RCONST(9820) = (2.19D-11) - RCONST(9821) = (5.44D-11) - RCONST(9822) = (j('mvk_mcm_ch2ch')) - RCONST(9823) = (j('ch3o2h')) - RCONST(9824) = (KDEC*0.35) - RCONST(9825) = (KDEC*0.65) - RCONST(9826) = (5.08D-11) - RCONST(9827) = (KBPAN) - RCONST(9828) = (1.20D-15) - RCONST(9829) = (1.00D-14) - RCONST(9830) = (1.00D-15) - RCONST(9831) = (7.00D-14) - RCONST(9832) = (6.00D-18*H2O) - RCONST(9833) = (3.12D-11) - RCONST(9834) = (j('mek')+j('i_c3h7cho')) - RCONST(9835) = (j('ch3o2h')) - RCONST(9836) = (KDEC) - RCONST(9837) = (2.77D-11) - RCONST(9838) = (j('mek')+j('i_c3h7cho')) - RCONST(9839) = (4.95D-12) - RCONST(9840) = (j('ch3o2h')) - RCONST(9841) = (KDEC) - RCONST(9842) = (4.42D-11) - RCONST(9843) = (1.90D-12*EXP(190/TEMP)) - RCONST(9844) = (j('ch3o2h')) - RCONST(9845) = (KDEC) - RCONST(9846) = (4.65D-13) - RCONST(9847) = (j('mek')) - RCONST(9848) = (1.91D-11) - RCONST(9849) = (7.12D-12) - RCONST(9850) = (j('ch3o2h')) - RCONST(9851) = (KDEC) - RCONST(9852) = (3.76D-12) - RCONST(9853) = (7.83D-15) - RCONST(9854) = (5.10D-14) - RCONST(9855) = (KRO2HO2*0.859) - RCONST(9856) = (KRO2NO) - RCONST(9857) = (KRO2NO3) - RCONST(9858) = (2.50D-13*RO2) - RCONST(9859) = (KRO2HO2*0.859) - RCONST(9860) = (KRO2NO) - RCONST(9861) = (KRO2NO3) - RCONST(9862) = (8.80D-13*RO2) - RCONST(9863) = (KRO2HO2*0.859) - RCONST(9864) = (KRO2NO) - RCONST(9865) = (KRO2NO3) - RCONST(9866) = (8.80D-13*RO2*0.2) - RCONST(9867) = (8.80D-13*RO2*0.6) - RCONST(9868) = (8.80D-13*RO2*0.2) - RCONST(9869) = (KRO2HO2*0.859) - RCONST(9870) = (KRO2NO) - RCONST(9871) = (KRO2NO3) - RCONST(9872) = (8.00D-13*RO2) - RCONST(9873) = (KRO2HO2*0.859) - RCONST(9874) = (KRO2NO) - RCONST(9875) = (KRO2NO3) - RCONST(9876) = (8.00D-13*RO2) - RCONST(9877) = (2.05D-10) - RCONST(9878) = (j('ch3o2h')) - RCONST(9879) = (4.46D-11) - RCONST(9880) = (j('i_c3h7cho')) - RCONST(9881) = (j('ch3o2h')+j('mek')) - RCONST(9882) = (KDEC) - RCONST(9883) = (4.13D-11) - RCONST(9884) = (j('mek')+j('i_c3h7cho')) - RCONST(9885) = (5.80D-12) - RCONST(9886) = (j('ch3o2h')) - RCONST(9887) = (KDEC) - RCONST(9888) = (6.01D-11) - RCONST(9889) = (1.90D-12*EXP(190/TEMP)) - RCONST(9890) = (j('ch3o2h')) - RCONST(9891) = (KDEC) - RCONST(9892) = (1.09D-13) - RCONST(9893) = (j('mek')) - RCONST(9894) = (2.54D-11) - RCONST(9895) = (3.09D-11) - RCONST(9896) = (j('ch3o2h')) - RCONST(9897) = (KDEC) - RCONST(9898) = (2.74D-11) - RCONST(9899) = (5.16D-12) - RCONST(9900) = (j('ch3o2h')) - RCONST(9901) = (KDEC) - RCONST(9902) = (2.00D-11) - RCONST(9903) = (j('mek')) - RCONST(9904) = (j('ch3o2h')) - RCONST(9905) = (KDEC) - RCONST(9906) = (2.78D-11) - RCONST(9907) = (j('ch3o2h')) - RCONST(9908) = (KDEC) - RCONST(9909) = (2.44D-11) - RCONST(9910) = (1.50D-12) - RCONST(9911) = (7.83D-15) - RCONST(9912) = (5.10D-14) - RCONST(9913) = (KRO2HO2*0.859) - RCONST(9914) = (KRO2NO) - RCONST(9915) = (KRO2NO3) - RCONST(9916) = (2.50D-13*RO2) - RCONST(9917) = (KRO2HO2*0.859) - RCONST(9918) = (KRO2NO) - RCONST(9919) = (KRO2NO3) - RCONST(9920) = (9.20D-14*RO2) - RCONST(9921) = (KRO2HO2*0.859) - RCONST(9922) = (KRO2NO) - RCONST(9923) = (KRO2NO3) - RCONST(9924) = (9.20D-14*RO2*0.7) - RCONST(9925) = (9.20D-14*RO2*0.3) - RCONST(9926) = (KRO2HO2*0.859) - RCONST(9927) = (KRO2NO) - RCONST(9928) = (KRO2NO3) - RCONST(9929) = (8.00D-13*RO2) - RCONST(9930) = (KRO2HO2*0.859) - RCONST(9931) = (KRO2NO) - RCONST(9932) = (KRO2NO3) - RCONST(9933) = (8.00D-13*RO2) - RCONST(9934) = (2.05D-10) - RCONST(9935) = (j('ch3o2h')) - RCONST(9936) = (3.6D-12) - RCONST(9937) = (9.75D-11) - RCONST(9938) = (1.90D-12*EXP(190/TEMP)) - RCONST(9939) = (j('mek')*2) - RCONST(9940) = (j('ch3o2h')) - RCONST(9941) = (KDEC*0.7) - RCONST(9942) = (KDEC*0.3) - RCONST(9943) = (4.00D-11) - RCONST(9944) = (j('mek')*2) - RCONST(9945) = (9.04D-12) - RCONST(9946) = (j('mek')) - RCONST(9947) = (j('biacet')) - RCONST(9948) = (7.83D-15) - RCONST(9949) = (5.10D-14) - RCONST(9950) = (KRO2HO2*0.859) - RCONST(9951) = (KRO2NO) - RCONST(9952) = (KRO2NO3) - RCONST(9953) = (2.50D-13*RO2) - RCONST(9954) = (KRO2HO2*0.859) - RCONST(9955) = (KRO2NO) - RCONST(9956) = (KRO2NO3) - RCONST(9957) = (9.20D-14*RO2) - RCONST(9958) = (KRO2HO2*0.859) - RCONST(9959) = (KRO2NO) - RCONST(9960) = (KRO2NO3) - RCONST(9961) = (9.20D-14*RO2*0.70) - RCONST(9962) = (9.20D-14*RO2*0.30) - RCONST(9963) = (KRO2HO2*0.859) - RCONST(9964) = (KRO2NO) - RCONST(9965) = (KRO2NO3) - RCONST(9966) = (8.00D-13*RO2) - RCONST(9967) = (KRO2HO2*0.859) - RCONST(9968) = (KRO2NO) - RCONST(9969) = (KRO2NO3) - RCONST(9970) = (8.00D-13*RO2) - RCONST(9971) = (2.05D-10) - RCONST(9972) = (j('ch3o2h')) - RCONST(9973) = (7.83D-15) - RCONST(9974) = (5.10D-14) - RCONST(9975) = (KRO2HO2*0.859) - RCONST(9976) = (KRO2NO) - RCONST(9977) = (KRO2NO3) - RCONST(9978) = (2.50D-13*RO2) - RCONST(9979) = (KRO2HO2*0.859) - RCONST(9980) = (KRO2NO) - RCONST(9981) = (KRO2NO3) - RCONST(9982) = (8.80D-13*RO2) - RCONST(9983) = (KRO2HO2*0.859) - RCONST(9984) = (KRO2NO) - RCONST(9985) = (KRO2NO3) - RCONST(9986) = (8.80D-13*RO2*0.20) - RCONST(9987) = (8.80D-13*RO2*0.60) - RCONST(9988) = (8.80D-13*RO2*0.20) - RCONST(9989) = (KRO2HO2*0.859) - RCONST(9990) = (KRO2NO) - RCONST(9991) = (KRO2NO3) - RCONST(9992) = (8.00D-13*RO2) - RCONST(9993) = (KRO2HO2*0.859) - RCONST(9994) = (KRO2NO) - RCONST(9995) = (KRO2NO3) - RCONST(9996) = (8.00D-13*RO2) - RCONST(9997) = (2.05D-10) - RCONST(9998) = (j('ch3o2h')) - RCONST(9999) = (1.16D-10) - RCONST(10000) = (j('mek')) - RCONST(10001) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(10002) = (KDEC) - RCONST(10003) = (7.71D-11) - RCONST(10004) = (j('biacet')) - RCONST(10005) = (6.21D-11) - RCONST(10006) = (j('mek')) - RCONST(10007) = (j('n_c3h7cho_hco')) - RCONST(10008) = (8.18D-11) - RCONST(10009) = (j('ch3o2h')) - RCONST(10010) = (KDEC*0.5) - RCONST(10011) = (KDEC*0.5) - RCONST(10012) = (1.90D-12*EXP(190/TEMP)) - RCONST(10013) = (3.95D-11) - RCONST(10014) = (j('ch3o2h')) - RCONST(10015) = (4.23D-11) - RCONST(10016) = (j('ch3o2h')) - RCONST(10017) = (KDEC) - RCONST(10018) = (3.24D-11) - RCONST(10019) = (3.33D-11) - RCONST(10020) = (KAPHO2*0.56) - RCONST(10021) = (KAPHO2*0.44) - RCONST(10022) = (KAPNO) - RCONST(10023) = (KFPAN) - RCONST(10024) = (KRO2NO3*1.74) - RCONST(10025) = (1.00D-11*RO2) - RCONST(10026) = (5.73D-11) - RCONST(10027) = (j('ch3o2h')+j('ch3cocho')) - RCONST(10028) = (KDEC) - RCONST(10029) = (KRO2HO2*0.890) - RCONST(10030) = (KRO2NO) - RCONST(10031) = (KRO2NO3) - RCONST(10032) = (2.00D-12*RO2) - RCONST(10033) = (7.83D-15) - RCONST(10034) = (5.10D-14) - RCONST(10035) = (KRO2HO2*0.90) - RCONST(10036) = (KRO2NO) - RCONST(10037) = (KRO2NO3) - RCONST(10038) = (2.50D-13*RO2) - RCONST(10039) = (KRO2HO2*0.890) - RCONST(10040) = (KRO2NO) - RCONST(10041) = (KRO2NO3) - RCONST(10042) = (8.80D-13*RO2) - RCONST(10043) = (KRO2HO2*0.890) - RCONST(10044) = (KRO2NO) - RCONST(10045) = (KRO2NO3) - RCONST(10046) = (8.80D-13*RO2*0.20) - RCONST(10047) = (8.80D-13*RO2*0.60) - RCONST(10048) = (8.80D-13*RO2*0.20) - RCONST(10049) = (KRO2HO2*0.90) - RCONST(10050) = (KRO2NO) - RCONST(10051) = (KRO2NO3) - RCONST(10052) = (8.00D-13*RO2) - RCONST(10053) = (KRO2HO2*0.90) - RCONST(10054) = (KRO2NO) - RCONST(10055) = (KRO2NO3) - RCONST(10056) = (8.00D-13*RO2) - RCONST(10057) = (2.05D-10) - RCONST(10058) = (j('ch3o2h')) - RCONST(10059) = (6.50D-11) - RCONST(10060) = (j('ch3o2h')+j('n_c3h7cho_hco')+j('mek')) - RCONST(10061) = (KDEC) - RCONST(10062) = (KNO3AL*5.5) - RCONST(10063) = (7.09D-11) - RCONST(10064) = (j('mek')) - RCONST(10065) = (j('biacet')) - RCONST(10066) = (j('n_c3h7cho_hco')) - RCONST(10067) = (4.43D-11) - RCONST(10068) = (j('n_c3h7cho_hco')+j('mek')) - RCONST(10069) = (9.59D-11) - RCONST(10070) = (j('ch3o2h')) - RCONST(10071) = (KDEC*0.5) - RCONST(10072) = (KDEC*0.5) - RCONST(10073) = (1.90D-12*EXP(190/TEMP)) - RCONST(10074) = (4.15D-11) - RCONST(10075) = (j('ch3o2h')) - RCONST(10076) = (4.38D-11) - RCONST(10077) = (j('ch3o2h')) - RCONST(10078) = (KDEC) - RCONST(10079) = (3.39D-11) - RCONST(10080) = (3.47D-11) - RCONST(10081) = (KAPHO2*0.56) - RCONST(10082) = (KAPHO2*0.44) - RCONST(10083) = (KAPNO) - RCONST(10084) = (KFPAN) - RCONST(10085) = (KRO2NO3*1.74) - RCONST(10086) = (1.00D-11*RO2) - RCONST(10087) = (5.73D-11) - RCONST(10088) = (j('ch3o2h')+j('ch3cocho')) - RCONST(10089) = (KDEC) - RCONST(10090) = (2.05D-11) - RCONST(10091) = (j('ch3o2h')) - RCONST(10092) = (KDEC) - RCONST(10093) = (8.93D-12) - RCONST(10094) = (KNO3AL) - RCONST(10095) = (1.29D-11) - RCONST(10096) = (j('ch3cocho')) - RCONST(10097) = (7.83D-15) - RCONST(10098) = (5.10D-14) - RCONST(10099) = (KRO2HO2*0.90) - RCONST(10100) = (KRO2NO) - RCONST(10101) = (KRO2NO3) - RCONST(10102) = (2.50D-13*RO2) - RCONST(10103) = (KRO2HO2*0.890) - RCONST(10104) = (KRO2NO) - RCONST(10105) = (KRO2NO3) - RCONST(10106) = (8.80D-13*RO2) - RCONST(10107) = (KRO2HO2*0.890) - RCONST(10108) = (KRO2NO) - RCONST(10109) = (KRO2NO3) - RCONST(10110) = (8.80D-13*RO2*0.20) - RCONST(10111) = (8.80D-13*RO2*0.60) - RCONST(10112) = (8.80D-13*RO2*0.20) - RCONST(10113) = (KRO2HO2*0.90) - RCONST(10114) = (KRO2NO) - RCONST(10115) = (KRO2NO3) - RCONST(10116) = (8.00D-13*RO2) - RCONST(10117) = (KRO2HO2*0.90) - RCONST(10118) = (KRO2NO) - RCONST(10119) = (KRO2NO3) - RCONST(10120) = (8.00D-13*RO2) - RCONST(10121) = (2.05D-10) - RCONST(10122) = (j('ch3o2h')) - RCONST(10123) = (6.30D-11) - RCONST(10124) = (j('ch3o2h')+j('n_c3h7cho_hco')+j('mek')) - RCONST(10125) = (KDEC) - RCONST(10126) = (KNO3AL*8.5) - RCONST(10127) = (6.89D-11) - RCONST(10128) = (j('n_c3h7cho_hco')) - RCONST(10129) = (j('mek')) - RCONST(10130) = (j('biacet')) - RCONST(10131) = (4.23D-11) - RCONST(10132) = (j('n_c3h7cho_hco')+j('mek')) - RCONST(10133) = (9.59D-12) - RCONST(10134) = (j('ch3o2h')) - RCONST(10135) = (KDEC*0.5) - RCONST(10136) = (KDEC*0.5) - RCONST(10137) = (1.90D-12*EXP(190/TEMP)) - RCONST(10138) = (4.31D-11) - RCONST(10139) = (j('ch3o2h')) - RCONST(10140) = (4.37D-11) - RCONST(10141) = (j('ch3o2h')) - RCONST(10142) = (KDEC) - RCONST(10143) = (3.38D-11) - RCONST(10144) = (3.47D-11) - RCONST(10145) = (KAPHO2*0.56) - RCONST(10146) = (KAPHO2*0.44) - RCONST(10147) = (KAPNO) - RCONST(10148) = (KFPAN) - RCONST(10149) = (KRO2NO3*1.74) - RCONST(10150) = (1.00D-11*RO2) - RCONST(10151) = (5.73D-11) - RCONST(10152) = (j('ch3o2h')+j('ch3cocho')) - RCONST(10153) = (KDEC) - RCONST(10154) = (KDEC*0.35) - RCONST(10155) = (KDEC*0.65) - RCONST(10156) = (7.83D-15) - RCONST(10157) = (5.10D-14) - RCONST(10158) = (KRO2HO2*0.90) - RCONST(10159) = (KRO2NO) - RCONST(10160) = (KRO2NO3) - RCONST(10161) = (2.50D-13*RO2) - RCONST(10162) = (KRO2HO2*0.90) - RCONST(10163) = (KRO2NO) - RCONST(10164) = (KRO2NO3) - RCONST(10165) = (8.00D-13*RO2) - RCONST(10166) = (KRO2HO2*0.90) - RCONST(10167) = (KRO2NO) - RCONST(10168) = (KRO2NO3) - RCONST(10169) = (8.00D-13*RO2) - RCONST(10170) = (2.05D-10) - RCONST(10171) = (j('ch3o2h')) - RCONST(10172) = (4.84D-11) - RCONST(10173) = (j('mvk_mcm_ch2ch')) - RCONST(10174) = (j('ch3o2h')) - RCONST(10175) = (4.48D-11) - RCONST(10176) = (KBPAN) - RCONST(10177) = (7.40D-11) - RCONST(10178) = (j('ch3o2h')+j('n_c3h7cho_hco')+j('mek')) - RCONST(10179) = (KDEC) - RCONST(10180) = (5.33D-11) - RCONST(10181) = (j('n_c3h7cho_hco')+j('mek')) - RCONST(10182) = (9.93D-11) - RCONST(10183) = (j('ch3o2h')) - RCONST(10184) = (KDEC) - RCONST(10185) = (1.37D-11) - RCONST(10186) = (j('ch3o2h')) - RCONST(10187) = (KDEC) - RCONST(10188) = (1.02D-11) - RCONST(10189) = (5.59D-12) - RCONST(10190) = (j('ch3o2h')) - RCONST(10191) = (KDEC) - RCONST(10192) = (4.46D-12) - RCONST(10193) = (j('ch3o2h')) - RCONST(10194) = (KDEC) - RCONST(10195) = (1.01D-12) - RCONST(10196) = (1.02D-11) - RCONST(10197) = (j('ch3o2h')) - RCONST(10198) = (KDEC) - RCONST(10199) = (6.75D-12) - RCONST(10200) = (1.53D-12) - RCONST(10201) = (2.59D-11) - RCONST(10202) = (j('mek')*2) - RCONST(10203) = (j('ch3o2h')) - RCONST(10204) = (KDEC*0.7) - RCONST(10205) = (KDEC*0.3) - RCONST(10206) = (2.24D-11) - RCONST(10207) = (j('mek')*2) - RCONST(10208) = (7.83D-15) - RCONST(10209) = (5.10D-14) - RCONST(10210) = (KRO2HO2*0.90) - RCONST(10211) = (KRO2NO) - RCONST(10212) = (KRO2NO3) - RCONST(10213) = (2.50D-13*RO2) - RCONST(10214) = (KRO2HO2*0.890) - RCONST(10215) = (KRO2NO) - RCONST(10216) = (KRO2NO3) - RCONST(10217) = (9.20D-14*RO2) - RCONST(10218) = (KRO2HO2*0.890) - RCONST(10219) = (KRO2NO) - RCONST(10220) = (KRO2NO3) - RCONST(10221) = (9.20D-14*RO2*0.70) - RCONST(10222) = (9.20D-14*RO2*0.30) - RCONST(10223) = (KRO2HO2*0.90) - RCONST(10224) = (KRO2NO) - RCONST(10225) = (KRO2NO3) - RCONST(10226) = (8.00D-13*RO2) - RCONST(10227) = (KRO2HO2*0.90) - RCONST(10228) = (KRO2NO) - RCONST(10229) = (KRO2NO3) - RCONST(10230) = (8.00D-13*RO2) - RCONST(10231) = (2.05D-10) - RCONST(10232) = (j('ch3o2h')) - RCONST(10233) = (1.53D-12) - RCONST(10234) = (KRO2HO2*0.706) - RCONST(10235) = (KRO2NO) - RCONST(10236) = (KRO2NO3) - RCONST(10237) = (2.00D-12*RO2) - RCONST(10238) = (7.83D-15) - RCONST(10239) = (5.10D-14) - RCONST(10240) = (KRO2HO2*0.90) - RCONST(10241) = (KRO2NO) - RCONST(10242) = (KRO2NO3) - RCONST(10243) = (2.50D-13*RO2) - RCONST(10244) = (KRO2HO2*0.890) - RCONST(10245) = (KRO2NO) - RCONST(10246) = (KRO2NO3) - RCONST(10247) = (8.80D-13*RO2) - RCONST(10248) = (KRO2HO2*0.890) - RCONST(10249) = (KRO2NO) - RCONST(10250) = (KRO2NO3) - RCONST(10251) = (8.80D-13*RO2*0.2) - RCONST(10252) = (8.80D-13*RO2*0.6) - RCONST(10253) = (8.80D-13*RO2*0.2) - RCONST(10254) = (KRO2HO2*0.90) - RCONST(10255) = (KRO2NO) - RCONST(10256) = (KRO2NO3) - RCONST(10257) = (8.00D-13*RO2) - RCONST(10258) = (KRO2HO2*0.90) - RCONST(10259) = (KRO2NO) - RCONST(10260) = (KRO2NO3) - RCONST(10261) = (8.00D-13*RO2) - RCONST(10262) = (2.05D-10) - RCONST(10263) = (j('ch3o2h')) - RCONST(10264) = (7.83D-15) - RCONST(10265) = (5.10D-14) - RCONST(10266) = (KRO2HO2*0.90) - RCONST(10267) = (KRO2NO) - RCONST(10268) = (KRO2NO3) - RCONST(10269) = (2.50D-13*RO2) - RCONST(10270) = (KRO2HO2*0.890) - RCONST(10271) = (KRO2NO) - RCONST(10272) = (KRO2NO3) - RCONST(10273) = (9.20D-14*RO2) - RCONST(10274) = (KRO2HO2*0.890) - RCONST(10275) = (KRO2NO) - RCONST(10276) = (KRO2NO3) - RCONST(10277) = (9.20D-14*RO2*0.7) - RCONST(10278) = (9.20D-14*RO2*0.3) - RCONST(10279) = (KRO2HO2*0.90) - RCONST(10280) = (KRO2NO) - RCONST(10281) = (KRO2NO3) - RCONST(10282) = (8.00D-13*RO2) - RCONST(10283) = (KRO2HO2*0.90) - RCONST(10284) = (KRO2NO) - RCONST(10285) = (KRO2NO3) - RCONST(10286) = (8.00D-13*RO2) - RCONST(10287) = (2.05D-10) - RCONST(10288) = (j('ch3o2h')) - RCONST(10289) = (2.79D-11) - RCONST(10290) = (j('ch3o2h')+j('mek')*2) - RCONST(10291) = (KDEC*0.7) - RCONST(10292) = (KDEC*0.3) - RCONST(10293) = (5.04D-12) - RCONST(10294) = (j('mek')) - RCONST(10295) = (j('mek')*2) - RCONST(10296) = (1.80D-11) - RCONST(10297) = (j('mek')*2) - RCONST(10298) = (7.83D-15) - RCONST(10299) = (5.10D-14) - RCONST(10300) = (KRO2HO2*0.90) - RCONST(10301) = (KRO2NO) - RCONST(10302) = (KRO2NO3) - RCONST(10303) = (2.50D-13*RO2) - RCONST(10304) = (KRO2HO2*0.890) - RCONST(10305) = (KRO2NO) - RCONST(10306) = (KRO2NO3) - RCONST(10307) = (9.20D-14*RO2) - RCONST(10308) = (KRO2HO2*0.890) - RCONST(10309) = (KRO2NO) - RCONST(10310) = (KRO2NO3) - RCONST(10311) = (9.20D-14*RO2*0.7) - RCONST(10312) = (9.20D-14*RO2*0.3) - RCONST(10313) = (KRO2HO2*0.90) - RCONST(10314) = (KRO2NO) - RCONST(10315) = (KRO2NO3) - RCONST(10316) = (8.00D-13*RO2) - RCONST(10317) = (KRO2HO2*0.90) - RCONST(10318) = (KRO2NO) - RCONST(10319) = (KRO2NO3) - RCONST(10320) = (8.00D-13*RO2) - RCONST(10321) = (2.05D-10) - RCONST(10322) = (j('ch3o2h')) - RCONST(10323) = (KDEC*0.65) - RCONST(10324) = (KDEC*0.35) - RCONST(10325) = (4.88D-11) - RCONST(10326) = (j('ch3o2h')) - RCONST(10327) = (j('mvk_mcm_ch2ch')) - RCONST(10328) = (4.48D-11) - RCONST(10329) = (KBPAN) - RCONST(10330) = (7.44D-11) - RCONST(10331) = (j('ch3o2h')+j('n_c3h7cho_hco')+j('mek')) - RCONST(10332) = (KDEC) - RCONST(10333) = (5.37D-11) - RCONST(10334) = (j('n_c3h7cho_hco')+j('mek')) - RCONST(10335) = (7.15D-12) - RCONST(10336) = (j('ch3o2h')) - RCONST(10337) = (KDEC) - RCONST(10338) = (7.32D-11) - RCONST(10339) = (1.90D-12*EXP(190/TEMP)) - RCONST(10340) = (j('ch3o2h')) - RCONST(10341) = (KDEC) - RCONST(10342) = (1.46D-12) - RCONST(10343) = (j('mek')) - RCONST(10344) = (3.23D-11) - RCONST(10345) = (3.33D-11) - RCONST(10346) = (j('ch3o2h')) - RCONST(10347) = (KDEC) - RCONST(10348) = (2.99D-11) - RCONST(10349) = (3.60D-12) - RCONST(10350) = (j('ch3o2h')) - RCONST(10351) = (3.90D-13) - RCONST(10352) = (KRO2HO2*0.770) - RCONST(10353) = (KRO2NO) - RCONST(10354) = (KRO2NO3) - RCONST(10355) = (8.80D-13*RO2) - RCONST(10356) = (j('ch3cocho')) - RCONST(10357) = (KNO3AL*4.0) - RCONST(10358) = (1.23D-11) - RCONST(10359) = (KAPHO2*0.56) - RCONST(10360) = (KAPHO2*0.44) - RCONST(10361) = (KAPNO) - RCONST(10362) = (KFPAN) - RCONST(10363) = (KRO2NO3*1.74) - RCONST(10364) = (1.00D-11*RO2) - RCONST(10365) = (2.89D-12) - RCONST(10366) = (j('ch3cocho')) - RCONST(10367) = (1.44D-11) - RCONST(10368) = (j('ch3cocho')+j('biacet')) - RCONST(10369) = (4.52D-12*0.19) - RCONST(10370) = (4.52D-12*0.81) - RCONST(10371) = (j('ch3coch2ono2')*10) - RCONST(10372) = (KDEC) - RCONST(10373) = (j('ch3cocho')) - RCONST(10374) = (1.34D-11) - RCONST(10375) = (KAPHO2*0.56) - RCONST(10376) = (KAPHO2*0.44) - RCONST(10377) = (KAPNO) - RCONST(10378) = (KFPAN) - RCONST(10379) = (KRO2NO3*1.74) - RCONST(10380) = (1.00D-11*RO2) - RCONST(10381) = (j('i_c3h7cho')) - RCONST(10382) = (KNO3AL*7.5) - RCONST(10383) = (2.20D-11) - RCONST(10384) = (5.70D-11*0.46) - RCONST(10385) = (5.70D-11*0.54) - RCONST(10386) = (j('i_c3h7cho')) - RCONST(10387) = (j('ch3o2h')*2) - RCONST(10388) = (1.56D-11) - RCONST(10389) = (j('ch3coch2ono2')*10) - RCONST(10390) = (KDEC) - RCONST(10391) = (KDEC*0.6) - RCONST(10392) = (KDEC*0.4) - RCONST(10393) = (1.2D-15) - RCONST(10394) = (1.0D-14) - RCONST(10395) = (1.0D-15) - RCONST(10396) = (7.0D-14) - RCONST(10397) = (6.0D-18*H2O) - RCONST(10398) = (1.0D-17*H2O) - RCONST(10399) = (1.2D-15) - RCONST(10400) = (1.0D-14) - RCONST(10401) = (1.0D-15) - RCONST(10402) = (7.0D-14) - RCONST(10403) = (6.0D-18*H2O) - RCONST(10404) = (3.69D-12) - RCONST(10405) = (j('ch3o2h')+j('biacet')) - RCONST(10406) = (KDEC) - RCONST(10407) = (KRO2HO2*0.706) - RCONST(10408) = (KRO2NO) - RCONST(10409) = (KRO2NO3) - RCONST(10410) = (9.20D-14*RO2) - RCONST(10411) = (2.52D-11) - RCONST(10412) = (j('ch3o2h')) - RCONST(10413) = (3.84D-11) - RCONST(10414) = (KBPAN) - RCONST(10415) = (7.79D-11) - RCONST(10416) = (3.70D-11) - RCONST(10417) = (j('ch3o2h')) - RCONST(10418) = (8.14D-12) - RCONST(10419) = (j('ch3coch2ono2')*10) - RCONST(10420) = (KDEC) - RCONST(10421) = (2.01D-11) - RCONST(10422) = (2.01D-11) - RCONST(10423) = (1.2D-15) - RCONST(10424) = (1.0D-14) - RCONST(10425) = (1.0D-15) - RCONST(10426) = (7.0D-14) - RCONST(10427) = (1.0D-17*H2O) - RCONST(10428) = (6.0D-18*H2O) - RCONST(10429) = (1.27D-11*0.35) - RCONST(10430) = (1.27D-11*0.34) - RCONST(10431) = (1.27D-11*0.31) - RCONST(10432) = (j('ch3o2h')) - RCONST(10433) = (1.63D-12*0.50) - RCONST(10434) = (1.63D-12*0.50) - RCONST(10435) = (KDEC) - RCONST(10436) = (3.27D-12) - RCONST(10437) = (j('ch3coch2ono2')*1.6) - RCONST(10438) = (6.65D-12*0.71) - RCONST(10439) = (6.65D-12*0.29) - RCONST(10440) = (1.59D-11*0.73) - RCONST(10441) = (1.59D-11*0.27) - RCONST(10442) = (j('ch3o2h')) - RCONST(10443) = (KDEC) - RCONST(10444) = (j('n_c3h7cho_hco')) - RCONST(10445) = (KNO3AL*7.5) - RCONST(10446) = (2.76D-11) - RCONST(10447) = (4.74D-11) - RCONST(10448) = (j('ch3o2h')*2) - RCONST(10449) = (j('i_c3h7cho')) - RCONST(10450) = (1.18D-11) - RCONST(10451) = (j('ch3coch2ono2')*10) - RCONST(10452) = (KDEC) - RCONST(10453) = (KDEC) - RCONST(10454) = (KRO2HO2*0.706) - RCONST(10455) = (KRO2NO) - RCONST(10456) = (KRO2NO3) - RCONST(10457) = (9.20D-14*RO2) - RCONST(10458) = (4.40D-11) - RCONST(10459) = (j('n_c3h7cho_hco')) - RCONST(10460) = (j('ch3o2h')*2) - RCONST(10461) = (KDEC) - RCONST(10462) = (2.52D-11) - RCONST(10463) = (j('ch3o2h')) - RCONST(10464) = (3.84D-11) - RCONST(10465) = (KBPAN) - RCONST(10466) = (7.79D-11) - RCONST(10467) = (4.50D-11) - RCONST(10468) = (j('ch3o2h')) - RCONST(10469) = (KDEC) - RCONST(10470) = (2.27D-11) - RCONST(10471) = (j('ch3coch2ono2')*0.91) - RCONST(10472) = (j('ch3o2h')) - RCONST(10473) = (3.16D-11) - RCONST(10474) = (9.37D-12*0.54) - RCONST(10475) = (9.37D-12*0.46) - RCONST(10476) = (j('ch3coch2ono2')*10) - RCONST(10477) = (KDEC) - RCONST(10478) = (3.04D-11) - RCONST(10479) = (1.2D-15) - RCONST(10480) = (1.0D-14) - RCONST(10481) = (1.0D-15) - RCONST(10482) = (7.0D-14) - RCONST(10483) = (6.0D-18*H2O) - RCONST(10484) = (9.20D-12*0.61) - RCONST(10485) = (9.20D-12*0.39) - RCONST(10486) = (j('ch3o2h')) - RCONST(10487) = (1.80D+13*(TEMP/298)**1.7*EXP(-4733/TEMP)) - RCONST(10488) = (1.80D+13*(TEMP/298)**1.7*EXP(-4079/TEMP)) - RCONST(10489) = (5.60D-12) - RCONST(10490) = (j('ch3o2h')) - RCONST(10491) = (j('mek')) - RCONST(10492) = (3.60D-12) - RCONST(10493) = (1.57D-11) - RCONST(10494) = (j('i_c3h7cho')+j('ch3o2h')) - RCONST(10495) = (2.67D-11) - RCONST(10496) = (j('ch3coch2ono2')*10) - RCONST(10497) = (4.22D-12) - RCONST(10498) = (j('ch3coch2ono2')*1.6) - RCONST(10499) = (1.21D-12*0.56) - RCONST(10500) = (1.21D-12*0.44) - RCONST(10501) = (j('i_c3h7cho')) - RCONST(10502) = (2.29D-11) - RCONST(10503) = (KAPHO2*0.15) - RCONST(10504) = (KAPHO2*0.41) - RCONST(10505) = (KAPHO2*0.44) - RCONST(10506) = (KAPNO) - RCONST(10507) = (KFPAN) - RCONST(10508) = (1.00D-11*0.3*RO2) - RCONST(10509) = (1.00D-11*0.7*RO2) - RCONST(10510) = (1.18D-10*0.22) - RCONST(10511) = (1.18D-10*0.03) - RCONST(10512) = (1.18D-10*0.75) - RCONST(10513) = (j('ch3o2h')) - RCONST(10514) = (2.94D-11) - RCONST(10515) = (j('1_c4h9ono2')) - RCONST(10516) = (KDEC) - RCONST(10517) = (4.21D-11) - RCONST(10518) = (j('mvk_mcm_ch2ch')) - RCONST(10519) = (7.78D-11) - RCONST(10520) = (3.40D-15) - RCONST(10521) = (7.80D-19*0.5) - RCONST(10522) = (7.80D-19*0.5) - RCONST(10523) = (4.83D-11*0.376) - RCONST(10524) = (4.83D-11*0.624) - RCONST(10525) = (KAPHO2*0.56) - RCONST(10526) = (KAPHO2*0.44) - RCONST(10527) = (KAPNO) - RCONST(10528) = (KFPAN) - RCONST(10529) = (KRO2NO3*1.74) - RCONST(10530) = (1.00D-11*RO2) - RCONST(10531) = (KRO2HO2*0.520*0.4) - RCONST(10532) = (KRO2HO2*0.520*0.6) - RCONST(10533) = (KRO2NO*0.019) - RCONST(10534) = (KRO2NO*0.981) - RCONST(10535) = (KRO2NO3) - RCONST(10536) = (2.00D-12*0.2*RO2) - RCONST(10537) = (2.00D-12*0.2*RO2) - RCONST(10538) = (2.00D-12*0.6*RO2) - RCONST(10539) = (KRO2HO2*0.625) - RCONST(10540) = (KRO2NO) - RCONST(10541) = (KRO2NO3) - RCONST(10542) = (8.80D-13*RO2) - RCONST(10543) = (1.90D-12*EXP(190/TEMP)) - RCONST(10544) = (3.59D-11) - RCONST(10545) = (j('ch3o2h')) - RCONST(10546) = (9.82D-11) - RCONST(10547) = (5.37D-13) - RCONST(10548) = (j('1_c4h9ono2')) - RCONST(10549) = (KDEC) - RCONST(10550) = (9.55D-12) - RCONST(10551) = (5.34D-12) - RCONST(10552) = (j('n_c3h7cho_hco')) - RCONST(10553) = (j('biacet')) - RCONST(10554) = (KNO3AL*5.5) - RCONST(10555) = (6.65D-11) - RCONST(10556) = (KRO2HO2*0.770) - RCONST(10557) = (KRO2NO) - RCONST(10558) = (KRO2NO3) - RCONST(10559) = (8.40D-13*RO2) - RCONST(10560) = (KRO2HO2*0.625) - RCONST(10561) = (KRO2NO*0.007) - RCONST(10562) = (KRO2NO*0.993) - RCONST(10563) = (KRO2NO3) - RCONST(10564) = (2.00D-12*0.2*RO2) - RCONST(10565) = (2.00D-12*0.6*RO2) - RCONST(10566) = (2.00D-12*0.2*RO2) - RCONST(10567) = (7.27D-11) - RCONST(10568) = (KAPHO2*0.15) - RCONST(10569) = (KAPHO2*0.41) - RCONST(10570) = (KAPHO2*0.44) - RCONST(10571) = (KAPNO) - RCONST(10572) = (KFPAN) - RCONST(10573) = (KRO2NO3*1.74) - RCONST(10574) = (1.00D-11*0.3*RO2) - RCONST(10575) = (1.00D-11*0.7*RO2) - RCONST(10576) = (KAPHO2*0.44) - RCONST(10577) = (KAPHO2*0.15) - RCONST(10578) = (KAPHO2*0.41) - RCONST(10579) = (KAPNO) - RCONST(10580) = (KFPAN) - RCONST(10581) = (KRO2NO3*1.74) - RCONST(10582) = (1.00D-11*0.7*RO2) - RCONST(10583) = (1.00D-11*0.3*RO2) - RCONST(10584) = (KRO2HO2*0.706) - RCONST(10585) = (KRO2NO) - RCONST(10586) = (KRO2NO3) - RCONST(10587) = (2.00D-12*RO2) - RCONST(10588) = (KRO2HO2*0.520) - RCONST(10589) = (KRO2NO) - RCONST(10590) = (KRO2NO3) - RCONST(10591) = (6.00D-13*RO2) - RCONST(10592) = (KAPHO2*0.15) - RCONST(10593) = (KAPHO2*0.41) - RCONST(10594) = (KAPHO2*0.44) - RCONST(10595) = (KAPNO) - RCONST(10596) = (KFPAN) - RCONST(10597) = (KRO2NO3*1.74) - RCONST(10598) = (1.00D-11*0.3*RO2) - RCONST(10599) = (1.00D-11*0.7*RO2) - RCONST(10600) = (KRO2HO2*0.77) - RCONST(10601) = (KRO2NO) - RCONST(10602) = (KRO2NO3) - RCONST(10603) = (2.00D-12*RO2) - RCONST(10604) = (KRO2HO2*0.770) - RCONST(10605) = (KRO2NO) - RCONST(10606) = (KRO2NO3) - RCONST(10607) = (8.80D-13*RO2) - RCONST(10608) = (2.75D-11) - RCONST(10609) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(10610) = (2.25D-11) - RCONST(10611) = (j('2_c4h9ono2')+j('n_c3h7cho_hco')) - RCONST(10612) = (KDEC) - RCONST(10613) = (2.41D-11) - RCONST(10614) = (j('mek')) - RCONST(10615) = (KRO2HO2*0.914) - RCONST(10616) = (KRO2NO) - RCONST(10617) = (KRO2NO3) - RCONST(10618) = (6.70D-15*RO2) - RCONST(10619) = (6.28D-11) - RCONST(10620) = (j('ch3o2h')+j('biacet')) - RCONST(10621) = (2.85D-11) - RCONST(10622) = (j('2_c4h9ono2')+j('biacet')) - RCONST(10623) = (KDEC) - RCONST(10624) = (5.93D-11) - RCONST(10625) = (j('biacet')) - RCONST(10626) = (KDEC*0.80) - RCONST(10627) = (KDEC*0.20) - RCONST(10628) = (2.69D-11) - RCONST(10629) = (j('n_c3h7cho_hco')) - RCONST(10630) = (3.00D-11) - RCONST(10631) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(10632) = (2.52D-11) - RCONST(10633) = (KBPAN) - RCONST(10634) = (9.16D-12) - RCONST(10635) = (j('ch3o2h')+j('mek')) - RCONST(10636) = (5.70D-12) - RCONST(10637) = (j('mek')) - RCONST(10638) = (5.56D-12) - RCONST(10639) = (KBPAN) - RCONST(10640) = (2.36D-11) - RCONST(10641) = (j('ch3o2h')+j('mek')) - RCONST(10642) = (4.20D+10*EXP(-3523/TEMP)) - RCONST(10643) = (1.05D-11) - RCONST(10644) = (j('ch3o2h')+j('mek')) - RCONST(10645) = (KDEC) - RCONST(10646) = (7.20D-12) - RCONST(10647) = (j('mek')) - RCONST(10648) = (1.02D-11) - RCONST(10649) = (j('ch3o2h')+j('mek')) - RCONST(10650) = (6.60D-12) - RCONST(10651) = (KBPAN) - RCONST(10652) = (1.29D-11) - RCONST(10653) = (j('ch3o2h')+j('mek')) - RCONST(10654) = (KDEC) - RCONST(10655) = (7.06D-11) - RCONST(10656) = (j('ch3o2h')) - RCONST(10657) = (1.26D-11) - RCONST(10658) = (KDEC) - RCONST(10659) = (6.72D-11) - RCONST(10660) = (7.91D-11) - RCONST(10661) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(10662) = (6.79D-11) - RCONST(10663) = (j('2_c4h9ono2')+j('n_c3h7cho_hco')) - RCONST(10664) = (KDEC) - RCONST(10665) = (7.16D-11) - RCONST(10666) = (j('n_c3h7cho_hco')) - RCONST(10667) = (7.50D-11) - RCONST(10668) = (j('ch3o2h')) - RCONST(10669) = (1.58D-12) - RCONST(10670) = (j('1_c4h9ono2')) - RCONST(10671) = (KDEC) - RCONST(10672) = (1.32D-12) - RCONST(10673) = (3.11D-11) - RCONST(10674) = (1.01D-10) - RCONST(10675) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(10676) = (6.96D-11) - RCONST(10677) = (j('1_c4h9ono2')+j('n_c3h7cho_hco')) - RCONST(10678) = (KROSEC*O2) - RCONST(10679) = (2.70D+14*EXP(-6643/TEMP)) - RCONST(10680) = (KNO3AL*8.5) - RCONST(10681) = (7.30D-11) - RCONST(10682) = (j('n_c3h7cho_hco')) - RCONST(10683) = (8.33D-11) - RCONST(10684) = (KAPHO2*0.15) - RCONST(10685) = (KAPHO2*0.41) - RCONST(10686) = (KAPHO2*0.44) - RCONST(10687) = (KAPNO) - RCONST(10688) = (KFPAN) - RCONST(10689) = (KRO2NO3*1.74) - RCONST(10690) = (1.00D-11*RO2*0.3) - RCONST(10691) = (1.00D-11*RO2*0.7) - RCONST(10692) = (1.91D-11) - RCONST(10693) = (j('ch3o2h')) - RCONST(10694) = (9.97D-12) - RCONST(10695) = (j('2_c4h9ono2')) - RCONST(10696) = (KDEC) - RCONST(10697) = (1.56D-11) - RCONST(10698) = (KRO2HO2*0.859) - RCONST(10699) = (KRO2NO*0.104) - RCONST(10700) = (KRO2NO*0.896) - RCONST(10701) = (KRO2NO3) - RCONST(10702) = (6.70D-15*RO2*0.7) - RCONST(10703) = (6.70D-15*RO2*0.3) - RCONST(10704) = (4.28D-11) - RCONST(10705) = (j('ch3o2h')) - RCONST(10706) = (KDEC) - RCONST(10707) = (3.93D-11) - RCONST(10708) = (KRO2HO2*0.890) - RCONST(10709) = (KRO2NO) - RCONST(10710) = (KRO2NO3) - RCONST(10711) = (9.20D-14*RO2*0.7) - RCONST(10712) = (9.20D-14*RO2*0.3) - RCONST(10713) = (KAPHO2*0.41) - RCONST(10714) = (KAPHO2*0.44) - RCONST(10715) = (KAPHO2*0.15) - RCONST(10716) = (KAPNO) - RCONST(10717) = (KFPAN) - RCONST(10718) = (KRO2NO3*1.74) - RCONST(10719) = (1.00D-11*RO2*0.7) - RCONST(10720) = (1.00D-11*RO2*0.3) - RCONST(10721) = (KRO2HO2*0.859) - RCONST(10722) = (KRO2NO*0.138) - RCONST(10723) = (KRO2NO*0.862) - RCONST(10724) = (KRO2NO3) - RCONST(10725) = (1.30D-12*RO2*0.2) - RCONST(10726) = (1.30D-12*RO2*0.6) - RCONST(10727) = (1.30D-12*RO2*0.2) - RCONST(10728) = (4.65D-11) - RCONST(10729) = (j('ch3o2h')) - RCONST(10730) = (3.01D-11) - RCONST(10731) = (KDEC) - RCONST(10732) = (4.31D-11) - RCONST(10733) = (KRO2HO2*0.859) - RCONST(10734) = (KRO2NO) - RCONST(10735) = (KRO2NO3) - RCONST(10736) = (9.20D-14*RO2*0.7) - RCONST(10737) = (9.20D-14*RO2*0.3) - RCONST(10738) = (KNO3AL*8.5) - RCONST(10739) = (5.41D-11) - RCONST(10740) = (j('n_c3h7cho_hco')*2) - RCONST(10741) = (KDEC) - RCONST(10742) = (KRO2HO2*0.859) - RCONST(10743) = (KRO2NO*0.069) - RCONST(10744) = (KRO2NO*0.931) - RCONST(10745) = (KRO2NO3) - RCONST(10746) = (9.20D-14*RO2*0.7) - RCONST(10747) = (9.20D-14*RO2*0.3) - RCONST(10748) = (KRO2HO2*0.820) - RCONST(10749) = (KRO2NO*0.111) - RCONST(10750) = (KRO2NO*0.889) - RCONST(10751) = (KRO2NO3) - RCONST(10752) = (1.30D-12*RO2*0.4) - RCONST(10753) = (1.30D-12*RO2*0.6) - RCONST(10754) = (8.38D-11) - RCONST(10755) = (j('n_c3h7cho_hco')) - RCONST(10756) = (8.69D-11) - RCONST(10757) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(10758) = (8.33D-11) - RCONST(10759) = (KBPAN) - RCONST(10760) = (KDEC*0.2) - RCONST(10761) = (KDEC*0.8) - RCONST(10762) = (8.47D-11) - RCONST(10763) = (8.82D-11) - RCONST(10764) = (j('ch3o2h')) - RCONST(10765) = (8.46D-11) - RCONST(10766) = (KBPAN) - RCONST(10767) = (8.69D-11) - RCONST(10768) = (j('ch3o2h')) - RCONST(10769) = (KDEC) - RCONST(10770) = (6.67D-11) - RCONST(10771) = (j('biacet')) - RCONST(10772) = (7.47D-11) - RCONST(10773) = (6.28D-11) - RCONST(10774) = (j('ch3o2h')) - RCONST(10775) = (5.92D-11) - RCONST(10776) = (KBPAN) - RCONST(10777) = (3.64D-11) - RCONST(10778) = (j('ch3o2h')) - RCONST(10779) = (KDEC) - RCONST(10780) = (8.06D-11) - RCONST(10781) = (j('mek')+j('ch3o2h')) - RCONST(10782) = (KROSEC*O2) - RCONST(10783) = (2.00D+14*EXP(-6824/TEMP)) - RCONST(10784) = (1.01D-11) - RCONST(10785) = (j('ch3o2h')) - RCONST(10786) = (KDEC) - RCONST(10787) = (6.30D-12) - RCONST(10788) = (KRO2HO2*0.914) - RCONST(10789) = (KRO2NO) - RCONST(10790) = (KRO2NO3) - RCONST(10791) = (8.80D-13*RO2*0.2) - RCONST(10792) = (8.80D-13*RO2*0.6) - RCONST(10793) = (8.80D-13*RO2*0.2) - RCONST(10794) = (KRO2HO2*0.914) - RCONST(10795) = (KRO2NO) - RCONST(10796) = (KRO2NO3) - RCONST(10797) = (8.80D-13*RO2*0.05) - RCONST(10798) = (8.80D-13*RO2*0.9) - RCONST(10799) = (8.80D-13*RO2*0.05) - RCONST(10800) = (1.20D-15) - RCONST(10801) = (1.00D-14) - RCONST(10802) = (1.00D-15) - RCONST(10803) = (7.00D-14) - RCONST(10804) = (2.00D-18*H2O) - RCONST(10805) = (1.40D-17*H2O) - RCONST(10806) = (2.08D-11) - RCONST(10807) = (j('ch3o2h')) - RCONST(10808) = (9.20D-12) - RCONST(10809) = (KDEC) - RCONST(10810) = (1.74D-11) - RCONST(10811) = (4.76D-11) - RCONST(10812) = (j('ch3o2h')) - RCONST(10813) = (KDEC) - RCONST(10814) = (1.60D-11) - RCONST(10815) = (5.02D-11) - RCONST(10816) = (j('ch3o2h')) - RCONST(10817) = (KDEC) - RCONST(10818) = (3.21D-11) - RCONST(10819) = (j('biacet')) - RCONST(10820) = (3.96D-11) - RCONST(10821) = (1.55D-11) - RCONST(10822) = (j('ch3o2h')) - RCONST(10823) = (1.19D-11) - RCONST(10824) = (KBPAN) - RCONST(10825) = (1.06D-10) - RCONST(10826) = (j('ch3o2h')) - RCONST(10827) = (j('mek')) - RCONST(10828) = (KDEC) - RCONST(10829) = (8.34D-11) - RCONST(10830) = (j('biacet')) - RCONST(10831) = (9.34D-11) - RCONST(10832) = (j('mek')) - RCONST(10833) = (4.73D-11) - RCONST(10834) = (j('ch3o2h')) - RCONST(10835) = (j('mek')) - RCONST(10836) = (KDEC) - RCONST(10837) = (5.05D-11) - RCONST(10838) = (j('ch3cocho')) - RCONST(10839) = (4.04D-11) - RCONST(10840) = (j('mek')) - RCONST(10841) = (5.41D-11) - RCONST(10842) = (j('ch3o2h')) - RCONST(10843) = (j('n_c3h7cho_hco')) - RCONST(10844) = (KDEC) - RCONST(10845) = (2.52D-11) - RCONST(10846) = (j('ch3cocho')) - RCONST(10847) = (4.19D-11) - RCONST(10848) = (j('n_c3h7cho_hco')) - RCONST(10849) = (2.06D-11) - RCONST(10850) = (j('ch3o2h')) - RCONST(10851) = (7.10D-12) - RCONST(10852) = (j('n_c3h7ono2')) - RCONST(10853) = (KDEC) - RCONST(10854) = (3.21D-11) - RCONST(10855) = (1.15D-11) - RCONST(10856) = (3.41D-11) - RCONST(10857) = (j('ch3o2h')) - RCONST(10858) = (KDEC) - RCONST(10859) = (1.55D-11) - RCONST(10860) = (2.19D-11) - RCONST(10861) = (6.98D-11) - RCONST(10862) = (7.29D-11) - RCONST(10863) = (j('ch3o2h')) - RCONST(10864) = (6.93D-11) - RCONST(10865) = (KBPAN) - RCONST(10866) = (KDEC*0.1) - RCONST(10867) = (KDEC*0.9) - RCONST(10868) = (8.47D-11) - RCONST(10869) = (8.82D-11) - RCONST(10870) = (j('ch3o2h')) - RCONST(10871) = (8.46D-11) - RCONST(10872) = (KBPAN) - RCONST(10873) = (5.01D-11) - RCONST(10874) = (j('ch3o2h')) - RCONST(10875) = (KDEC) - RCONST(10876) = (3.20D-11) - RCONST(10877) = (j('biacet')) - RCONST(10878) = (3.95D-11) - RCONST(10879) = (8.68D-11) - RCONST(10880) = (j('ch3o2h')) - RCONST(10881) = (7.92D-11) - RCONST(10882) = (j('2_c4h9ono2')) - RCONST(10883) = (KDEC) - RCONST(10884) = (8.32D-11) - RCONST(10885) = (6.26D-11) - RCONST(10886) = (j('ch3o2h')) - RCONST(10887) = (KDEC) - RCONST(10888) = (5.91D-11) - RCONST(10889) = (KAPHO2*0.15) - RCONST(10890) = (KAPHO2*0.41) - RCONST(10891) = (KAPHO2*0.44) - RCONST(10892) = (KAPNO) - RCONST(10893) = (KFPAN) - RCONST(10894) = (KRO2NO3*1.74) - RCONST(10895) = (1.00D-11*RO2*0.3) - RCONST(10896) = (1.00D-11*RO2*0.7) - RCONST(10897) = (KRO2HO2*0.932) - RCONST(10898) = (KRO2NO*0.173) - RCONST(10899) = (KRO2NO*0.827) - RCONST(10900) = (KRO2NO3) - RCONST(10901) = (1.30D-12*RO2*0.2) - RCONST(10902) = (1.30D-12*RO2*0.6) - RCONST(10903) = (1.30D-12*RO2*0.2) - RCONST(10904) = (1.20D-15) - RCONST(10905) = (1.00D-14) - RCONST(10906) = (1.00D-15) - RCONST(10907) = (7.00D-14) - RCONST(10908) = (1.40D-17*H2O) - RCONST(10909) = (KRO2HO2*0.968) - RCONST(10910) = (KRO2NO) - RCONST(10911) = (KRO2NO3) - RCONST(10912) = (8.80D-13*RO2*0.2) - RCONST(10913) = (8.80D-13*RO2*0.6) - RCONST(10914) = (8.80D-13*RO2*0.2) - RCONST(10915) = (6.64D-11) - RCONST(10916) = (j('ch3o2h')) - RCONST(10917) = (5.59D-11) - RCONST(10918) = (KDEC) - RCONST(10919) = (6.29D-11) - RCONST(10920) = (7.39D-11) - RCONST(10921) = (j('ch3o2h')) - RCONST(10922) = (5.82D-11) - RCONST(10923) = (j('n_c3h7ono2')) - RCONST(10924) = (KDEC) - RCONST(10925) = (6.85D-11) - RCONST(10926) = (6.91D-11) - RCONST(10927) = (3.64D-11) - RCONST(10928) = (j('ch3o2h')) - RCONST(10929) = (8.69D-11) - RCONST(10930) = (j('ch3o2h')) - RCONST(10931) = (5.82D-11) - RCONST(10932) = (j('2_c4h9ono2')) - RCONST(10933) = (KDEC) - RCONST(10934) = (7.47D-11) - RCONST(10935) = (9.73D-12) - RCONST(10936) = (j('ch3o2h')) - RCONST(10937) = (KDEC) - RCONST(10938) = (6.30D-12) - RCONST(10939) = (KRO2HO2*0.947) - RCONST(10940) = (KRO2NO*0.176) - RCONST(10941) = (KRO2NO*0.824) - RCONST(10942) = (KRO2NO3) - RCONST(10943) = (1.30D-12*RO2*0.2) - RCONST(10944) = (1.30D-12*RO2*0.6) - RCONST(10945) = (1.30D-12*RO2*0.2) - RCONST(10946) = (2.08D-11) - RCONST(10947) = (j('ch3o2h')) - RCONST(10948) = (9.20D-12) - RCONST(10949) = (KDEC) - RCONST(10950) = (1.74D-11) - RCONST(10951) = (4.76D-11) - RCONST(10952) = (j('ch3o2h')) - RCONST(10953) = (KDEC) - RCONST(10954) = (1.73D-11) - RCONST(10955) = (j('ch3o2h')) - RCONST(10956) = (1.27D-11) - RCONST(10957) = (KBPAN) - RCONST(10958) = (9.14D-12) - RCONST(10959) = (j('ch3o2h')) - RCONST(10960) = (2.36D-11) - RCONST(10961) = (KBPAN) - RCONST(10962) = (9.91D-12) - RCONST(10963) = (j('n_c3h7cho_hco')*2) - RCONST(10964) = (2*KNO3AL*2.4) - RCONST(10965) = (4.29D-11) - RCONST(10966) = (KAPHO2*0.15) - RCONST(10967) = (KAPHO2*0.41) - RCONST(10968) = (KAPHO2*0.44) - RCONST(10969) = (KAPNO) - RCONST(10970) = (KFPAN) - RCONST(10971) = (KRO2NO3*1.74) - RCONST(10972) = (1.00D-11*RO2*0.3) - RCONST(10973) = (1.00D-11*RO2*0.7) - RCONST(10974) = (KRO2HO2*0.706) - RCONST(10975) = (KRO2NO) - RCONST(10976) = (KRO2NO3) - RCONST(10977) = (1.30D-12*RO2) - RCONST(10978) = (KRO2HO2*0.706) - RCONST(10979) = (KRO2NO) - RCONST(10980) = (KRO2NO3) - RCONST(10981) = (8.80D-13*RO2) - RCONST(10982) = (KRO2HO2*0.770) - RCONST(10983) = (KRO2NO) - RCONST(10984) = (KRO2NO3) - RCONST(10985) = (2.00D-12*RO2) - RCONST(10986) = (9.64D-12) - RCONST(10987) = (j('ch3o2h')) - RCONST(10988) = (1.31D-11) - RCONST(10989) = (KBPAN) - RCONST(10990) = (5.92D-12) - RCONST(10991) = (2.78D-11) - RCONST(10992) = (j('ch3o2h')) - RCONST(10993) = (KDEC) - RCONST(10994) = (1.02D-13) - RCONST(10995) = (KBPAN) - RCONST(10996) = (KAPHO2*0.15) - RCONST(10997) = (KAPHO2*0.41) - RCONST(10998) = (KAPHO2*0.44) - RCONST(10999) = (KAPNO) - RCONST(11000) = (KFPAN) - RCONST(11001) = (KRO2NO3*1.74) - RCONST(11002) = (1.00D-11*0.3*RO2) - RCONST(11003) = (1.00D-11*0.7*RO2) - RCONST(11004) = (KAPHO2*0.15) - RCONST(11005) = (KAPHO2*0.41) - RCONST(11006) = (KAPHO2*0.44) - RCONST(11007) = (KAPNO) - RCONST(11008) = (KFPAN) - RCONST(11009) = (KRO2NO3*1.74) - RCONST(11010) = (1.00D-11*0.3*RO2) - RCONST(11011) = (1.00D-11*0.7*RO2) - RCONST(11012) = (1.11D-11) - RCONST(11013) = (j('ch3o2h')) - RCONST(11014) = (1.45D-11) - RCONST(11015) = (KBPAN) - RCONST(11016) = (1.04D-11) - RCONST(11017) = (KAPHO2*0.15) - RCONST(11018) = (KAPHO2*0.41) - RCONST(11019) = (KAPHO2*0.44) - RCONST(11020) = (KAPNO) - RCONST(11021) = (KFPAN) - RCONST(11022) = (KRO2NO3*1.74) - RCONST(11023) = (1.00D-11*0.3*RO2) - RCONST(11024) = (1.00D-11*0.7*RO2) - RCONST(11025) = (j('ch3o2h')) - RCONST(11026) = (1.79D-11) - RCONST(11027) = (KBPAN) - RCONST(11028) = (7.61D-12) - RCONST(11029) = (j('ch3o2h')+j('mek')) - RCONST(11030) = (8.80D-11) - RCONST(11031) = (j('mek')) - RCONST(11032) = (2.54D-12) - RCONST(11033) = (2.00D+14*EXP(-6261/TEMP)) - RCONST(11034) = (j('mek')) - RCONST(11035) = (3.90D-11) - RCONST(11036) = (KAPHO2*0.15) - RCONST(11037) = (KAPHO2*0.41) - RCONST(11038) = (KAPHO2*0.44) - RCONST(11039) = (KAPNO) - RCONST(11040) = (KFPAN) - RCONST(11041) = (KRO2NO3*1.74) - RCONST(11042) = (1.00D-11*0.3*RO2) - RCONST(11043) = (1.00D-11*0.7*RO2) - RCONST(11044) = (1.72D-11) - RCONST(11045) = (j('ch3o2h')) - RCONST(11046) = (2.07D-11) - RCONST(11047) = (KBPAN) - RCONST(11048) = (1.35D-11) - RCONST(11049) = (j('ch3o2h')+j('mek')) - RCONST(11050) = (1.90D-12*EXP(190/TEMP)) - RCONST(11051) = (5.29D-12) - RCONST(11052) = (j('mek')) - RCONST(11053) = (1.06D-12) - RCONST(11054) = (KAPHO2*0.15) - RCONST(11055) = (KAPHO2*0.41) - RCONST(11056) = (KAPHO2*0.44) - RCONST(11057) = (KAPNO) - RCONST(11058) = (KFPAN) - RCONST(11059) = (KRO2NO3*1.74) - RCONST(11060) = (1.00D-11*0.3*RO2) - RCONST(11061) = (1.00D-11*0.7*RO2) - RCONST(11062) = (KRO2HO2*0.770) - RCONST(11063) = (KRO2NO) - RCONST(11064) = (KRO2NO3) - RCONST(11065) = (9.20D-14*0.7*RO2) - RCONST(11066) = (9.20D-14*0.3*RO2) - RCONST(11067) = (j('ch3o2h')) - RCONST(11068) = (3.39D-11) - RCONST(11069) = (j('1_c4h9ono2')) - RCONST(11070) = (8.83D-12) - RCONST(11071) = (3.05D+11*EXP(-4240/TEMP)) - RCONST(11072) = (KROSEC*O2) - RCONST(11073) = (1.87D-11) - RCONST(11074) = (1.52D-11) - RCONST(11075) = (j('ch3o2h')) - RCONST(11076) = (1.87D-11) - RCONST(11077) = (KBPAN) - RCONST(11078) = (1.08D-11) - RCONST(11079) = (j('ch3o2h')) - RCONST(11080) = (j('mek')) - RCONST(11081) = (2.80D-11) - RCONST(11082) = (1.90D-12*EXP(190/TEMP)) - RCONST(11083) = (KDEC) - RCONST(11084) = (j('biacet')) - RCONST(11085) = (1.53D-11) - RCONST(11086) = (j('mek')) - RCONST(11087) = (2.10D-11) - RCONST(11088) = (j('ch3o2h')+j('mek')) - RCONST(11089) = (6.48D-12) - RCONST(11090) = (KBPAN) - RCONST(11091) = (2.20D-12) - RCONST(11092) = (5.82D-12) - RCONST(11093) = (j('ch3o2h')) - RCONST(11094) = (9.42D-12) - RCONST(11095) = (KBPAN) - RCONST(11096) = (2.09D-12) - RCONST(11097) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(11098) = (1.04D-10) - RCONST(11099) = (j('n_c3h7cho_hco')) - RCONST(11100) = (2.17D-11) - RCONST(11101) = (2.00D+14*EXP(-4909/TEMP)) - RCONST(11102) = (j('n_c3h7cho_hco')) - RCONST(11103) = (KNO3AL*8.5) - RCONST(11104) = (6.76D-11) - RCONST(11105) = (j('n_c3h7cho_hco')) - RCONST(11106) = (5.50D-11) - RCONST(11107) = (j('ch3o2h')+j('mek')) - RCONST(11108) = (8.84D-11) - RCONST(11109) = (j('mek')) - RCONST(11110) = (2.09D-12) - RCONST(11111) = (2.00D+14*EXP(-6382/TEMP)) - RCONST(11112) = (j('mek')) - RCONST(11113) = (3.93D-11) - RCONST(11114) = (j('mek')*2) - RCONST(11115) = (4.32D-12) - RCONST(11116) = (KAPHO2*0.15) - RCONST(11117) = (KAPHO2*0.41) - RCONST(11118) = (KAPHO2*0.44) - RCONST(11119) = (KAPNO) - RCONST(11120) = (KFPAN) - RCONST(11121) = (KRO2NO3*1.74) - RCONST(11122) = (1.00D-11*0.3*RO2) - RCONST(11123) = (1.00D-11*0.7*RO2) - RCONST(11124) = (1.90D-11) - RCONST(11125) = (j('ch3o2h')) - RCONST(11126) = (2.26D-11) - RCONST(11127) = (KBPAN) - RCONST(11128) = (1.20D-11) - RCONST(11129) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(11130) = (3.40D-11) - RCONST(11131) = (j('n_c3h7cho_hco')) - RCONST(11132) = (2.26D-11) - RCONST(11133) = (2.00D+14*EXP(-4909/TEMP)) - RCONST(11134) = (j('n_c3h7cho_hco')) - RCONST(11135) = (3.06D-11) - RCONST(11136) = (j('ch3o2h')+j('mek')) - RCONST(11137) = (3.86D-11) - RCONST(11138) = (KDEC) - RCONST(11139) = (j('mek')) - RCONST(11140) = (3.17D-11) - RCONST(11141) = (j('ch3cocho')) - RCONST(11142) = (4.18D-11) - RCONST(11143) = (j('ch3o2h')) - RCONST(11144) = (j('mek')*2.0) - RCONST(11145) = (4.33D-12) - RCONST(11146) = (KDEC) - RCONST(11147) = (j('mek')*2.0) - RCONST(11148) = (8.74D-13) - RCONST(11149) = (9.84D-12) - RCONST(11150) = (j('ch3o2h')) - RCONST(11151) = (1.33D-11) - RCONST(11152) = (KBPAN) - RCONST(11153) = (5.91D-12) - RCONST(11154) = (j('ch3o2h')) - RCONST(11155) = (1.90D-12*EXP(190/TEMP)) - RCONST(11156) = (1.41D-11) - RCONST(11157) = (j('n_c3h7ono2')) - RCONST(11158) = (4.54D-12) - RCONST(11159) = (KROPRIM*O2) - RCONST(11160) = (8.65D-12) - RCONST(11161) = (j('i_c3h7cho')) - RCONST(11162) = (KNO3AL*8.5) - RCONST(11163) = (3.47D-11) - RCONST(11164) = (5.50D-12) - RCONST(11165) = (j('ch3o2h')) - RCONST(11166) = (8.96D-12) - RCONST(11167) = (KBPAN) - RCONST(11168) = (4.67D-12) - RCONST(11169) = (1.35D-11) - RCONST(11170) = (j('ch3o2h')) - RCONST(11171) = (1.69D-11) - RCONST(11172) = (KBPAN) - RCONST(11173) = (7.60D-12) - RCONST(11174) = (KRO2HO2*0.820) - RCONST(11175) = (KRO2NO*0.139) - RCONST(11176) = (KRO2NO*0.861) - RCONST(11177) = (KRO2NO3) - RCONST(11178) = (8.80D-13*0.6*RO2) - RCONST(11179) = (8.80D-13*0.2*RO2) - RCONST(11180) = (8.80D-13*0.2*RO2) - RCONST(11181) = (KRO2HO2*0.820) - RCONST(11182) = (KRO2NO) - RCONST(11183) = (KRO2NO3) - RCONST(11184) = (8.80D-13*0.2*RO2) - RCONST(11185) = (8.80D-13*0.6*RO2) - RCONST(11186) = (8.80D-13*0.2*RO2) - RCONST(11187) = (KRO2HO2*0.820) - RCONST(11188) = (KRO2NO) - RCONST(11189) = (KRO2NO3) - RCONST(11190) = (8.80D-13*0.2*RO2) - RCONST(11191) = (8.80D-13*0.6*RO2) - RCONST(11192) = (8.80D-13*0.2*RO2) - RCONST(11193) = (j('ch3o2h')) - RCONST(11194) = (j('mek')) - RCONST(11195) = (5.12D-11) - RCONST(11196) = (KDEC) - RCONST(11197) = (j('ch3o2h')+j('mek')) - RCONST(11198) = (4.56D-11) - RCONST(11199) = (KDEC) - RCONST(11200) = (j('ch3o2h')+j('mek')) - RCONST(11201) = (8.31D-11) - RCONST(11202) = (j('1_c4h9ono2')+j('mek')) - RCONST(11203) = (1.09D-12) - RCONST(11204) = (KDEC) - RCONST(11205) = (j('mek')*2) - RCONST(11206) = (1.83D-12) - RCONST(11207) = (j('mek')) - RCONST(11208) = (3.40D-11) - RCONST(11209) = (j('ch3o2h')) - RCONST(11210) = (j('mek')) - RCONST(11211) = (2.00D-11) - RCONST(11212) = (1.90D-12*EXP(190/TEMP)) - RCONST(11213) = (KDEC) - RCONST(11214) = (j('biacet')) - RCONST(11215) = (1.30D-12) - RCONST(11216) = (j('mek')) - RCONST(11217) = (1.13D-11) - RCONST(11218) = (KRO2HO2*0.820) - RCONST(11219) = (KRO2NO*0.042) - RCONST(11220) = (KRO2NO*0.958) - RCONST(11221) = (KRO2NO3) - RCONST(11222) = (9.20D-14*0.7*RO2) - RCONST(11223) = (9.20D-14*0.3*RO2) - RCONST(11224) = (KRO2HO2*0.820) - RCONST(11225) = (KRO2NO) - RCONST(11226) = (KRO2NO3) - RCONST(11227) = (9.20D-14*0.7*RO2) - RCONST(11228) = (9.20D-14*0.3*RO2) - RCONST(11229) = (KRO2HO2*0.820) - RCONST(11230) = (KRO2NO) - RCONST(11231) = (KRO2NO3) - RCONST(11232) = (8.80D-13*0.6*RO2) - RCONST(11233) = (8.80D-13*0.2*RO2) - RCONST(11234) = (8.80D-13*0.2*RO2) - RCONST(11235) = (j('ch3o2h')+j('mek')) - RCONST(11236) = (1.18D-11) - RCONST(11237) = (KDEC) - RCONST(11238) = (j('ch3o2h')) - RCONST(11239) = (1.25D-11) - RCONST(11240) = (1.90D-12*EXP(190/TEMP)) - RCONST(11241) = (j('n_c3h7ono2')) - RCONST(11242) = (1.90D-12) - RCONST(11243) = (2.58D+11*EXP(-3430/TEMP)) - RCONST(11244) = (7.06D-12) - RCONST(11245) = (j('n_c3h7cho_hco')) - RCONST(11246) = (KNO3AL*8.5) - RCONST(11247) = (2.31D-11) - RCONST(11248) = (7.08D-12) - RCONST(11249) = (j('ch3o2h')) - RCONST(11250) = (1.05D-11) - RCONST(11251) = (KBPAN) - RCONST(11252) = (3.38D-12) - RCONST(11253) = (j('ch3o2h')+j('mek')) - RCONST(11254) = (9.56D-11) - RCONST(11255) = (j('mek')) - RCONST(11256) = (5.86D-12) - RCONST(11257) = (KDEC) - RCONST(11258) = (j('mek')) - RCONST(11259) = (4.65D-11) - RCONST(11260) = (j('mek')*2) - RCONST(11261) = (1.20D-11) - RCONST(11262) = (KRO2HO2*0.859) - RCONST(11263) = (KRO2NO) - RCONST(11264) = (KRO2NO3) - RCONST(11265) = (8.80D-13*0.6*RO2) - RCONST(11266) = (8.80D-13*0.2*RO2) - RCONST(11267) = (8.80D-13*0.2*RO2) - RCONST(11268) = (j('ch3o2h')+j('mek')) - RCONST(11269) = (5.27D-11) - RCONST(11270) = (KDEC) - RCONST(11271) = (j('ch3o2h')+j('mek')) - RCONST(11272) = (9.70D-11) - RCONST(11273) = (j('mek')) - RCONST(11274) = (7.27D-12) - RCONST(11275) = (2.00D+14*EXP(-4714/TEMP)) - RCONST(11276) = (j('mek')*2) - RCONST(11277) = (1.34D-11) - RCONST(11278) = (j('mek')) - RCONST(11279) = (4.79D-11) - RCONST(11280) = (KRO2HO2*0.890) - RCONST(11281) = (KRO2NO) - RCONST(11282) = (KRO2NO3) - RCONST(11283) = (8.80D-13*0.6*RO2) - RCONST(11284) = (8.80D-13*0.2*RO2) - RCONST(11285) = (8.80D-13*0.2*RO2) - RCONST(11286) = (j('ch3o2h')+j('mek')) - RCONST(11287) = (5.41D-11) - RCONST(11288) = (KDEC) - RCONST(11289) = (j('ch3o2h')) - RCONST(11290) = (2.92D-11) - RCONST(11291) = (KDEC) - RCONST(11292) = (j('ch3o2h')+j('mek')) - RCONST(11293) = (9.84D-11) - RCONST(11294) = (j('mek')) - RCONST(11295) = (8.68D-12) - RCONST(11296) = (2.00D+14*EXP(-4714/TEMP)) - RCONST(11297) = (j('mek')*2) - RCONST(11298) = (1.54D-11) - RCONST(11299) = (j('mek')) - RCONST(11300) = (4.93D-11) - RCONST(11301) = (KRO2HO2*0.914) - RCONST(11302) = (KRO2NO) - RCONST(11303) = (KRO2NO3) - RCONST(11304) = (8.80D-13*0.6*RO2) - RCONST(11305) = (8.80D-13*0.2*RO2) - RCONST(11306) = (8.80D-13*0.2*RO2) - RCONST(11307) = (j('ch3o2h')+j('mek')) - RCONST(11308) = (5.55D-11) - RCONST(11309) = (KDEC) - RCONST(11310) = (j('ch3o2h')) - RCONST(11311) = (3.06D-11) - RCONST(11312) = (KDEC) - RCONST(11313) = (j('ch3o2h')+j('mek')) - RCONST(11314) = (9.85D-11) - RCONST(11315) = (j('mek')) - RCONST(11316) = (1.01D-11) - RCONST(11317) = (2.00D+14*EXP(-4714/TEMP)) - RCONST(11318) = (j('mek')*2) - RCONST(11319) = (1.55D-11) - RCONST(11320) = (j('mek')) - RCONST(11321) = (4.94D-11) - RCONST(11322) = (KRO2HO2*0.932) - RCONST(11323) = (KRO2NO) - RCONST(11324) = (KRO2NO3) - RCONST(11325) = (8.80D-13*0.6*RO2) - RCONST(11326) = (8.80D-13*0.2*RO2) - RCONST(11327) = (8.80D-13*0.2*RO2) - RCONST(11328) = (j('ch3o2h')+j('mek')) - RCONST(11329) = (5.69D-11) - RCONST(11330) = (KDEC) - RCONST(11331) = (j('ch3o2h')) - RCONST(11332) = (3.20D-11) - RCONST(11333) = (KDEC) - RCONST(11334) = (j('ch3o2h')+j('mek')) - RCONST(11335) = (9.99D-11) - RCONST(11336) = (j('mek')) - RCONST(11337) = (1.15D-11) - RCONST(11338) = (2.00D+14*EXP(-4714/TEMP)) - RCONST(11339) = (j('mek')*2) - RCONST(11340) = (1.69D-11) - RCONST(11341) = (j('mek')) - RCONST(11342) = (5.08D-11) - RCONST(11343) = (KAPHO2*0.15) - RCONST(11344) = (KAPHO2*0.41) - RCONST(11345) = (KAPHO2*0.44) - RCONST(11346) = (KAPNO) - RCONST(11347) = (KFPAN) - RCONST(11348) = (KRO2NO3*1.74) - RCONST(11349) = (1.00D-11*0.3*RO2) - RCONST(11350) = (1.00D-11*0.7*RO2) - RCONST(11351) = (KRO2HO2*0.947) - RCONST(11352) = (KRO2NO) - RCONST(11353) = (KRO2NO3) - RCONST(11354) = (8.80D-13*0.6*RO2) - RCONST(11355) = (8.80D-13*0.2*RO2) - RCONST(11356) = (8.80D-13*0.2*RO2) - RCONST(11357) = (j('ch3o2h')+j('mek')) - RCONST(11358) = (5.83D-11) - RCONST(11359) = (KDEC) - RCONST(11360) = (4.80D-11) - RCONST(11361) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(11362) = (2.71D-11) - RCONST(11363) = (j('1_c4h9ono2')+j('n_c3h7cho_hco')) - RCONST(11364) = (KDEC) - RCONST(11365) = (3.89D-11) - RCONST(11366) = (9.51D-11) - RCONST(11367) = (j('ch3o2h')+j('ch3coch2ono2')) - RCONST(11368) = (KDEC) - RCONST(11369) = (KNO3AL*8.0) - RCONST(11370) = (3.44D-11) - RCONST(11371) = (j('ch3cocho')) - RCONST(11372) = (1.16D-12) - RCONST(11373) = (2.19D-11) - RCONST(11374) = (KRO2HO2*0.625) - RCONST(11375) = (KRO2NO) - RCONST(11376) = (KRO2NO3) - RCONST(11377) = (8.80D-13*0.2*RO2) - RCONST(11378) = (8.80D-13*0.6*RO2) - RCONST(11379) = (8.80D-13*0.2*RO2) - RCONST(11380) = (KRO2HO2*0.770) - RCONST(11381) = (KRO2NO) - RCONST(11382) = (KRO2NO3) - RCONST(11383) = (8.00D-13*RO2) - RCONST(11384) = (KRO2HO2*0.770) - RCONST(11385) = (KRO2NO) - RCONST(11386) = (KRO2NO3) - RCONST(11387) = (8.00D-13*RO2) - RCONST(11388) = (9.00D-13) - RCONST(11389) = (j('ch3o2h')) - RCONST(11390) = (1.90D-12*EXP(190/TEMP)) - RCONST(11391) = (j('ch3o2h')) - RCONST(11392) = (KDEC) - RCONST(11393) = (1.90D-12*EXP(190/TEMP)) - RCONST(11394) = (j('ch3o2h')) - RCONST(11395) = (KDEC) - RCONST(11396) = (6.68D-11) - RCONST(11397) = (j('ch3o2h')) - RCONST(11398) = (KDEC) - RCONST(11399) = (1.23D-10) - RCONST(11400) = (j('ch3o2h')) - RCONST(11401) = (KDEC) - RCONST(11402) = (6.07D-11) - RCONST(11403) = (9.18D-11) - RCONST(11404) = (8.56D-11) - RCONST(11405) = (j('ch3o2h')) - RCONST(11406) = (KDEC) - RCONST(11407) = (1.42D-10) - RCONST(11408) = (j('ch3o2h')) - RCONST(11409) = (KDEC) - RCONST(11410) = (7.95D-11) - RCONST(11411) = (1.11D-10) - RCONST(11412) = (KRO2HO2*0.820) - RCONST(11413) = (KRO2NO) - RCONST(11414) = (KRO2NO3) - RCONST(11415) = (8.00D-13*RO2) - RCONST(11416) = (KRO2HO2*0.820) - RCONST(11417) = (KRO2NO) - RCONST(11418) = (KRO2NO3) - RCONST(11419) = (8.00D-13*RO2) - RCONST(11420) = (1.53D-12) - RCONST(11421) = (j('ch3o2h')) - RCONST(11422) = (1.90D-12*EXP(190/TEMP)) - RCONST(11423) = (j('ch3o2h')) - RCONST(11424) = (KDEC) - RCONST(11425) = (1.90D-12*EXP(190/TEMP)) - RCONST(11426) = (j('ch3o2h')) - RCONST(11427) = (KDEC) - RCONST(11428) = (KNO3AL*5.5) - RCONST(11429) = (1.72D-11) - RCONST(11430) = (j('ch3cocho')+j('biacet')*2) - RCONST(11431) = (KNO3AL*5.5) - RCONST(11432) = (7.09D-11) - RCONST(11433) = (j('n_c3h7cho_hco')) - RCONST(11434) = (3.59D-12) - RCONST(11435) = (j('ch3o2h')) - RCONST(11436) = (KDEC) - RCONST(11437) = (8.76D-13) - RCONST(11438) = (2.90D-12) - RCONST(11439) = (j('mek')) - RCONST(11440) = (KRO2HO2) - RCONST(11441) = (KRO2NO) - RCONST(11442) = (KRO2NO3) - RCONST(11443) = (2.00D-12*RO2) - RCONST(11444) = (KRO2HO2*0.859) - RCONST(11445) = (KRO2NO) - RCONST(11446) = (KRO2NO3) - RCONST(11447) = (8.00D-13*RO2) - RCONST(11448) = (KRO2HO2*0.859) - RCONST(11449) = (KRO2NO) - RCONST(11450) = (KRO2NO3) - RCONST(11451) = (8.00D-13*RO2) - RCONST(11452) = (1.53D-12) - RCONST(11453) = (j('ch3o2h')) - RCONST(11454) = (1.05D-10) - RCONST(11455) = (j('ch3o2h')) - RCONST(11456) = (KDEC) - RCONST(11457) = (1.61D-10) - RCONST(11458) = (j('ch3o2h')) - RCONST(11459) = (KDEC) - RCONST(11460) = (9.85D-11) - RCONST(11461) = (1.30D-10) - RCONST(11462) = (1.90D-12*EXP(190/TEMP)) - RCONST(11463) = (j('ch3o2h')) - RCONST(11464) = (KDEC) - RCONST(11465) = (1.90D-12*EXP(190/TEMP)) - RCONST(11466) = (j('ch3o2h')) - RCONST(11467) = (KDEC) - RCONST(11468) = (6.66D-11) - RCONST(11469) = (j('biacet')) - RCONST(11470) = (KNO3AL*8.5) - RCONST(11471) = (2.68D-11) - RCONST(11472) = (j('n_c3h7cho_hco')) - RCONST(11473) = (KRO2HO2*0.706) - RCONST(11474) = (KRO2NO) - RCONST(11475) = (KRO2NO3) - RCONST(11476) = (6.00D-13*RO2) - RCONST(11477) = (KNO3AL*5.5) - RCONST(11478) = (2.15D-11) - RCONST(11479) = (j('n_c3h7cho_hco')) - RCONST(11480) = (KRO2HO2*0.706) - RCONST(11481) = (KRO2NO) - RCONST(11482) = (KRO2NO3) - RCONST(11483) = (9.20D-14*RO2*0.70) - RCONST(11484) = (9.20D-14*RO2*0.30) - RCONST(11485) = (KRO2HO2*0.859) - RCONST(11486) = (KRO2NO) - RCONST(11487) = (KRO2NO3) - RCONST(11488) = (8.00D-13*RO2) - RCONST(11489) = (KRO2HO2*0.859) - RCONST(11490) = (KRO2NO) - RCONST(11491) = (KRO2NO3) - RCONST(11492) = (8.00D-13*RO2) - RCONST(11493) = (1.53D-12) - RCONST(11494) = (j('ch3o2h')) - RCONST(11495) = (7.54D-11) - RCONST(11496) = (j('ch3o2h')) - RCONST(11497) = (KDEC) - RCONST(11498) = (9.48D-11) - RCONST(11499) = (j('ch3o2h')) - RCONST(11500) = (KDEC) - RCONST(11501) = (9.13D-11) - RCONST(11502) = (1.90D-12*EXP(190/TEMP)) - RCONST(11503) = (j('ch3o2h')) - RCONST(11504) = (KDEC) - RCONST(11505) = (1.90D-12*EXP(190/TEMP)) - RCONST(11506) = (j('ch3o2h')) - RCONST(11507) = (KDEC) - RCONST(11508) = (KRO2HO2*0.820) - RCONST(11509) = (KRO2NO) - RCONST(11510) = (KRO2NO3) - RCONST(11511) = (9.20D-14*RO2) - RCONST(11512) = (KDEC) - RCONST(11513) = (KRO2HO2*0.859) - RCONST(11514) = (KRO2NO) - RCONST(11515) = (KRO2NO3) - RCONST(11516) = (8.00D-13*RO2) - RCONST(11517) = (KRO2HO2*0.859) - RCONST(11518) = (KRO2NO) - RCONST(11519) = (KRO2NO3) - RCONST(11520) = (8.00D-13*RO2) - RCONST(11521) = (1.53D-12) - RCONST(11522) = (j('ch3o2h')) - RCONST(11523) = (7.54D-11) - RCONST(11524) = (j('ch3o2h')) - RCONST(11525) = (KDEC) - RCONST(11526) = (9.48D-11) - RCONST(11527) = (j('ch3o2h')) - RCONST(11528) = (KDEC) - RCONST(11529) = (9.13D-11) - RCONST(11530) = (1.90D-12*EXP(190/TEMP)) - RCONST(11531) = (j('ch3o2h')) - RCONST(11532) = (KDEC) - RCONST(11533) = (1.90D-12*EXP(190/TEMP)) - RCONST(11534) = (j('ch3o2h')) - RCONST(11535) = (KDEC) - RCONST(11536) = (KRO2HO2*0.859) - RCONST(11537) = (KRO2NO) - RCONST(11538) = (KRO2NO3) - RCONST(11539) = (8.00D-13*RO2) - RCONST(11540) = (KRO2HO2*0.859) - RCONST(11541) = (KRO2NO) - RCONST(11542) = (KRO2NO3) - RCONST(11543) = (8.00D-13*RO2) - RCONST(11544) = (1.53D-12) - RCONST(11545) = (j('ch3o2h')) - RCONST(11546) = (8.74D-11) - RCONST(11547) = (j('ch3o2h')) - RCONST(11548) = (KDEC) - RCONST(11549) = (1.46D-10) - RCONST(11550) = (j('ch3o2h')) - RCONST(11551) = (KDEC) - RCONST(11552) = (8.32D-11) - RCONST(11553) = (1.15D-10) - RCONST(11554) = (1.90D-12*EXP(190/TEMP)) - RCONST(11555) = (j('ch3o2h')) - RCONST(11556) = (KDEC) - RCONST(11557) = (1.90D-12*EXP(190/TEMP)) - RCONST(11558) = (j('ch3o2h')) - RCONST(11559) = (KDEC) - RCONST(11560) = (3.14D-11) - RCONST(11561) = (j('biacet')) - RCONST(11562) = (j('biacet')*2) - RCONST(11563) = (KNO3AL*8.5) - RCONST(11564) = (4.35D-11) - RCONST(11565) = (j('ch3cocho')) - RCONST(11566) = (6.73D-12) - RCONST(11567) = (8.68D-12) - RCONST(11568) = (j('mek')) - RCONST(11569) = (j('ch3o2h')) - RCONST(11570) = (2.79D-12) - RCONST(11571) = (KBPAN) - RCONST(11572) = (4.66D-12) - RCONST(11573) = (j('ch3o2h')) - RCONST(11574) = (KDEC) - RCONST(11575) = (KRO2HO2*0.90) - RCONST(11576) = (KRO2NO) - RCONST(11577) = (KRO2NO3) - RCONST(11578) = (8.00D-13*RO2) - RCONST(11579) = (KRO2HO2*0.90) - RCONST(11580) = (KRO2NO) - RCONST(11581) = (KRO2NO3) - RCONST(11582) = (8.00D-13*RO2) - RCONST(11583) = (1.53D-12) - RCONST(11584) = (j('ch3o2h')) - RCONST(11585) = (8.89D-11) - RCONST(11586) = (j('ch3o2h')) - RCONST(11587) = (KDEC) - RCONST(11588) = (1.43D-10) - RCONST(11589) = (j('ch3o2h')) - RCONST(11590) = (KDEC) - RCONST(11591) = (8.44D-11) - RCONST(11592) = (1.15D-10) - RCONST(11593) = (1.90D-12*EXP(190/TEMP)) - RCONST(11594) = (j('ch3o2h')) - RCONST(11595) = (KDEC) - RCONST(11596) = (1.90D-12*EXP(190/TEMP)) - RCONST(11597) = (j('ch3o2h')) - RCONST(11598) = (KDEC) - RCONST(11599) = (KAPHO2*0.56) - RCONST(11600) = (KAPHO2*0.44) - RCONST(11601) = (KAPNO) - RCONST(11602) = (KFPAN) - RCONST(11603) = (KRO2NO3*1.74) - RCONST(11604) = (1.00D-11*RO2) - RCONST(11605) = (KNO3AL*5.5) - RCONST(11606) = (1.67D-11) - RCONST(11607) = (j('biacet')+j('ch3cocho')) - RCONST(11608) = (KNO3AL*8.5) - RCONST(11609) = (4.55D-11) - RCONST(11610) = (j('ch3cocho')) - RCONST(11611) = (8.14D-12) - RCONST(11612) = (1.22D-11) - RCONST(11613) = (j('mek')) - RCONST(11614) = (j('ch3o2h')) - RCONST(11615) = (8.99D-12) - RCONST(11616) = (KBPAN) - RCONST(11617) = (KRO2HO2*0.90) - RCONST(11618) = (KRO2NO) - RCONST(11619) = (KRO2NO3) - RCONST(11620) = (8.00D-13*RO2) - RCONST(11621) = (KRO2HO2*0.90) - RCONST(11622) = (KRO2NO) - RCONST(11623) = (KRO2NO3) - RCONST(11624) = (8.00D-13*RO2) - RCONST(11625) = (1.53D-12) - RCONST(11626) = (j('ch3o2h')) - RCONST(11627) = (8.95D-11) - RCONST(11628) = (j('ch3o2h')) - RCONST(11629) = (KDEC) - RCONST(11630) = (1.46D-10) - RCONST(11631) = (j('ch3o2h')) - RCONST(11632) = (KDEC) - RCONST(11633) = (8.34D-11) - RCONST(11634) = (1.14D-10) - RCONST(11635) = (1.90D-12*EXP(190/TEMP)) - RCONST(11636) = (j('ch3o2h')) - RCONST(11637) = (KDEC) - RCONST(11638) = (1.90D-12*EXP(190/TEMP)) - RCONST(11639) = (j('ch3o2h')) - RCONST(11640) = (KDEC) - RCONST(11641) = (KAPHO2*0.44) - RCONST(11642) = (KAPHO2*0.56) - RCONST(11643) = (KAPNO) - RCONST(11644) = (KFPAN) - RCONST(11645) = (KRO2NO3*1.74) - RCONST(11646) = (1.00D-11*RO2) - RCONST(11647) = (KNO3AL*8.5) - RCONST(11648) = (1.47D-11) - RCONST(11649) = (j('biacet')+j('ch3cocho')) - RCONST(11650) = (KNO3AL*8.5) - RCONST(11651) = (4.76D-11) - RCONST(11652) = (j('ch3cocho')) - RCONST(11653) = (8.13D-12) - RCONST(11654) = (1.01D-11) - RCONST(11655) = (j('mek')) - RCONST(11656) = (j('ch3o2h')) - RCONST(11657) = (6.84D-12) - RCONST(11658) = (KBPAN) - RCONST(11659) = (1.00D-12) - RCONST(11660) = (7.42D-12) - RCONST(11661) = (KRO2HO2*0.90) - RCONST(11662) = (KRO2NO) - RCONST(11663) = (KRO2NO3) - RCONST(11664) = (8.00D-13*RO2) - RCONST(11665) = (KRO2HO2*0.90) - RCONST(11666) = (KRO2NO) - RCONST(11667) = (KRO2NO3) - RCONST(11668) = (8.00D-13*RO2) - RCONST(11669) = (1.53D-12) - RCONST(11670) = (j('ch3o2h')) - RCONST(11671) = (1.90D-12*EXP(190/TEMP)) - RCONST(11672) = (j('ch3o2h')) - RCONST(11673) = (KDEC) - RCONST(11674) = (1.90D-12*EXP(190/TEMP)) - RCONST(11675) = (j('ch3o2h')) - RCONST(11676) = (KDEC) - RCONST(11677) = (6.20D-12) - RCONST(11678) = (j('mek')) - RCONST(11679) = (KRO2HO2*0.859) - RCONST(11680) = (KRO2NO) - RCONST(11681) = (KRO2NO3) - RCONST(11682) = (9.20D-14*RO2) - RCONST(11683) = (KRO2HO2*0.90) - RCONST(11684) = (KRO2NO) - RCONST(11685) = (KRO2NO3) - RCONST(11686) = (8.00D-13*RO2) - RCONST(11687) = (KRO2HO2*0.90) - RCONST(11688) = (KRO2NO) - RCONST(11689) = (KRO2NO3) - RCONST(11690) = (8.00D-13*RO2) - RCONST(11691) = (1.53D-12) - RCONST(11692) = (j('ch3o2h')) - RCONST(11693) = (9.43D-11) - RCONST(11694) = (j('ch3o2h')) - RCONST(11695) = (KDEC) - RCONST(11696) = (1.14D-10) - RCONST(11697) = (j('ch3o2h')) - RCONST(11698) = (KDEC) - RCONST(11699) = (1.10D-10) - RCONST(11700) = (1.90D-12*EXP(190/TEMP)) - RCONST(11701) = (j('ch3o2h')) - RCONST(11702) = (KDEC) - RCONST(11703) = (1.90D-12*EXP(190/TEMP)) - RCONST(11704) = (j('ch3o2h')) - RCONST(11705) = (KDEC) - RCONST(11706) = (KRO2HO2*0.859) - RCONST(11707) = (KRO2NO) - RCONST(11708) = (KRO2NO3) - RCONST(11709) = (9.20D-14*RO2) - RCONST(11710) = (9.59D-12) - RCONST(11711) = (j('ch3o2h')+j('biacet')) - RCONST(11712) = (KDEC) - RCONST(11713) = (KRO2HO2*0.90) - RCONST(11714) = (KRO2NO) - RCONST(11715) = (KRO2NO3) - RCONST(11716) = (8.00D-13*RO2) - RCONST(11717) = (KRO2HO2*0.90) - RCONST(11718) = (KRO2NO) - RCONST(11719) = (KRO2NO3) - RCONST(11720) = (8.00D-13*RO2) - RCONST(11721) = (1.53D-12) - RCONST(11722) = (j('ch3o2h')) - RCONST(11723) = (1.06D-10) - RCONST(11724) = (j('ch3o2h')) - RCONST(11725) = (KDEC) - RCONST(11726) = (1.63D-10) - RCONST(11727) = (j('ch3o2h')) - RCONST(11728) = (KDEC) - RCONST(11729) = (1.00D-10) - RCONST(11730) = (1.31D-10) - RCONST(11731) = (1.90D-12*EXP(190/TEMP)) - RCONST(11732) = (j('ch3o2h')) - RCONST(11733) = (KDEC) - RCONST(11734) = (1.90D-12*EXP(190/TEMP)) - RCONST(11735) = (j('ch3o2h')) - RCONST(11736) = (KDEC) - RCONST(11737) = (KRO2HO2*0.90) - RCONST(11738) = (KRO2NO) - RCONST(11739) = (KRO2NO3) - RCONST(11740) = (8.00D-13*RO2) - RCONST(11741) = (KRO2HO2*0.90) - RCONST(11742) = (KRO2NO) - RCONST(11743) = (KRO2NO3) - RCONST(11744) = (8.00D-13*RO2) - RCONST(11745) = (1.53D-12) - RCONST(11746) = (j('ch3o2h')) - RCONST(11747) = (7.71D-11) - RCONST(11748) = (j('ch3o2h')) - RCONST(11749) = (KDEC) - RCONST(11750) = (9.65D-11) - RCONST(11751) = (j('ch3o2h')) - RCONST(11752) = (KDEC) - RCONST(11753) = (9.31D-11) - RCONST(11754) = (1.90D-12*EXP(190/TEMP)) - RCONST(11755) = (j('ch3o2h')) - RCONST(11756) = (KDEC) - RCONST(11757) = (1.90D-12*EXP(190/TEMP)) - RCONST(11758) = (j('ch3o2h')) - RCONST(11759) = (KDEC) - RCONST(11760) = (KRO2HO2*0.90) - RCONST(11761) = (KRO2NO) - RCONST(11762) = (KRO2NO3) - RCONST(11763) = (8.00D-13*RO2) - RCONST(11764) = (KRO2HO2*0.90) - RCONST(11765) = (KRO2NO) - RCONST(11766) = (KRO2NO3) - RCONST(11767) = (8.00D-13*RO2) - RCONST(11768) = (1.53D-12) - RCONST(11769) = (j('ch3o2h')) - RCONST(11770) = (7.71D-11) - RCONST(11771) = (j('ch3o2h')) - RCONST(11772) = (KDEC) - RCONST(11773) = (9.81D-11) - RCONST(11774) = (j('ch3o2h')) - RCONST(11775) = (KDEC) - RCONST(11776) = (9.46D-11) - RCONST(11777) = (1.90D-12*EXP(190/TEMP)) - RCONST(11778) = (j('ch3o2h')) - RCONST(11779) = (KDEC) - RCONST(11780) = (1.90D-12*EXP(190/TEMP)) - RCONST(11781) = (j('ch3o2h')) - RCONST(11782) = (KDEC) - RCONST(11783) = (KNO3AL*8.5) - RCONST(11784) = (3.13D-11) - RCONST(11785) = (j('n_c3h7cho_hco')) - RCONST(11786) = (KRO2HO2*0.770) - RCONST(11787) = (KRO2NO) - RCONST(11788) = (KRO2NO3) - RCONST(11789) = (2.00D-12*RO2) - RCONST(11790) = (1.53D-12) - RCONST(11791) = (1.65D-11) - RCONST(11792) = (j('ch3o2h')+j('biacet')) - RCONST(11793) = (KDEC) - RCONST(11794) = (j('ch3o2h')) - RCONST(11795) = (9.43D-12) - RCONST(11796) = (KBPAN) - RCONST(11797) = (5.83D-12) - RCONST(11798) = (KAPHO2*0.15) - RCONST(11799) = (KAPHO2*0.41) - RCONST(11800) = (KAPHO2*0.44) - RCONST(11801) = (KAPNO) - RCONST(11802) = (KFPAN) - RCONST(11803) = (KRO2NO3*1.74) - RCONST(11804) = (1.00D-11*0.3*RO2) - RCONST(11805) = (1.00D-11*0.7*RO2) - RCONST(11806) = (4.11D-12) - RCONST(11807) = (j('ch3o2h')) - RCONST(11808) = (5.10D-13) - RCONST(11809) = (KBPAN+j('ch3coch2ono2')*10) - RCONST(11810) = (KAPHO2*0.44) - RCONST(11811) = (KAPHO2*0.56) - RCONST(11812) = (KAPNO) - RCONST(11813) = (KFPAN) - RCONST(11814) = (KRO2NO3*1.74) - RCONST(11815) = (1.00D-11*RO2) - RCONST(11816) = (j('i_c3h7cho')) - RCONST(11817) = (j('mek')) - RCONST(11818) = (2.73D-11) - RCONST(11819) = (KRO2HO2*0.706) - RCONST(11820) = (KRO2NO) - RCONST(11821) = (KRO2NO3) - RCONST(11822) = (2.00D-12*RO2) - RCONST(11823) = (1.20D-15) - RCONST(11824) = (1.00D-14) - RCONST(11825) = (1.00D-15) - RCONST(11826) = (7.00D-14) - RCONST(11827) = (6.00D-18*H2O) - RCONST(11828) = (KAPHO2*0.44) - RCONST(11829) = (KAPHO2*0.56) - RCONST(11830) = (KAPNO) - RCONST(11831) = (KFPAN) - RCONST(11832) = (KRO2NO3*1.74) - RCONST(11833) = (1.00D-11*RO2) - RCONST(11834) = (3.42D-11) - RCONST(11835) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(11836) = (j('ch3o2h')) - RCONST(11837) = (KDEC) - RCONST(11838) = (2.49D-11) - RCONST(11839) = (j('ch3coch2ono2')*10) - RCONST(11840) = (j('ch3coch2ono2')*0.91) - RCONST(11841) = (2.41D-11) - RCONST(11842) = (j('ch3coch2ono2')*10) - RCONST(11843) = (1.85D-11) - RCONST(11844) = (j('ch3coch2ono2')*10) - RCONST(11845) = (1.85D-11) - RCONST(11846) = (1.35D-11) - RCONST(11847) = (j('ch3cocho')) - RCONST(11848) = (KAPHO2*0.56) - RCONST(11849) = (KAPHO2*0.44) - RCONST(11850) = (KAPNO) - RCONST(11851) = (KFPAN) - RCONST(11852) = (KRO2NO3*1.74) - RCONST(11853) = (1.00D-11*RO2) - RCONST(11854) = (3.42D-11) - RCONST(11855) = (j('ch3o2h')) - RCONST(11856) = (j('ch3o2h')) - RCONST(11857) = (j('n_c3h7cho_hco')) - RCONST(11858) = (KDEC) - RCONST(11859) = (KAPHO2*0.44) - RCONST(11860) = (KAPHO2*0.56) - RCONST(11861) = (KAPNO) - RCONST(11862) = (KFPAN) - RCONST(11863) = (KRO2NO3*1.6) - RCONST(11864) = (1.00D-11*RO2) - RCONST(11865) = (KAPHO2*0.56) - RCONST(11866) = (KAPHO2*0.44) - RCONST(11867) = (KAPNO) - RCONST(11868) = (KFPAN) - RCONST(11869) = (KRO2NO3*1.74) - RCONST(11870) = (1.00D-11*RO2) - RCONST(11871) = (2.53D-11*0.86) - RCONST(11872) = (2.53D-11*0.14) - RCONST(11873) = (j('ch3coch2ono2')*10) - RCONST(11874) = (KAPHO2*0.15) - RCONST(11875) = (KAPHO2*0.41) - RCONST(11876) = (KAPHO2*0.44) - RCONST(11877) = (KAPNO) - RCONST(11878) = (KFPAN) - RCONST(11879) = (KRO2NO3*1.74) - RCONST(11880) = (KRO2NO3*1.74) - RCONST(11881) = (1.00D-11*0.3*RO2) - RCONST(11882) = (1.00D-11*0.7*RO2) - RCONST(11883) = (2.58D-11) - RCONST(11884) = (j('ch3coch2ono2')*0.91) - RCONST(11885) = (KAPHO2*0.44) - RCONST(11886) = (KAPHO2*0.15) - RCONST(11887) = (KAPHO2*0.41) - RCONST(11888) = (KAPNO) - RCONST(11889) = (KFPAN) - RCONST(11890) = (KRO2NO3*1.74) - RCONST(11891) = (1.00D-11*0.7*RO2) - RCONST(11892) = (1.00D-11*0.3*RO2) - RCONST(11893) = (KAPHO2*0.44) - RCONST(11894) = (KAPHO2*0.15) - RCONST(11895) = (KAPHO2*0.41) - RCONST(11896) = (KAPNO) - RCONST(11897) = (KFPAN) - RCONST(11898) = (KRO2NO3*1.74) - RCONST(11899) = (1.00D-11*0.7*RO2) - RCONST(11900) = (1.00D-11*0.3*RO2) - RCONST(11901) = (3.79D-12) - RCONST(11902) = (KAPHO2*0.44) - RCONST(11903) = (KAPHO2*0.15) - RCONST(11904) = (KAPHO2*0.41) - RCONST(11905) = (KAPNO) - RCONST(11906) = (KFPAN) - RCONST(11907) = (KRO2NO3*1.74) - RCONST(11908) = (1.00D-11*0.7*RO2) - RCONST(11909) = (1.00D-11*0.3*RO2) - RCONST(11910) = (2.49D-12) - RCONST(11911) = (j('ch3o2h')) - RCONST(11912) = (5.57D-12*0.68) - RCONST(11913) = (5.57D-12*0.32) - RCONST(11914) = (KBPAN) - RCONST(11915) = (1.97D-12) - RCONST(11916) = (1.31D-11*0.667) - RCONST(11917) = (1.31D-11*0.333) - RCONST(11918) = (KRO2HO2*0.706) - RCONST(11919) = (KRO2NO*0.072) - RCONST(11920) = (KRO2NO*0.928) - RCONST(11921) = (KRO2NO3) - RCONST(11922) = (8.00D-13*RO2*0.8) - RCONST(11923) = (8.00D-13*RO2*0.2) - RCONST(11924) = (KRO2HO2*0.706) - RCONST(11925) = (KRO2NO) - RCONST(11926) = (KRO2NO3) - RCONST(11927) = (9.20D-14*RO2) - RCONST(11928) = (KAPHO2*0.15) - RCONST(11929) = (KAPHO2*0.41) - RCONST(11930) = (KAPHO2*0.44) - RCONST(11931) = (KAPNO) - RCONST(11932) = (KFPAN) - RCONST(11933) = (KRO2NO3*1.74) - RCONST(11934) = (1.00D-11*RO2*0.3) - RCONST(11935) = (1.00D-11*RO2*0.7) - RCONST(11936) = (KDEC*0.18) - RCONST(11937) = (KDEC*0.82) - RCONST(11938) = (KRO2HO2*0.625) - RCONST(11939) = (KRO2NO) - RCONST(11940) = (KRO2NO3) - RCONST(11941) = (K14ISOM1) - RCONST(11942) = (9.20D-14*RO2*0.7) - RCONST(11943) = (9.20D-14*RO2*0.3) - RCONST(11944) = (4.55D-12) - RCONST(11945) = (j('ch3o2h')) - RCONST(11946) = (9.55D-13) - RCONST(11947) = (KBPAN) - RCONST(11948) = (6.65D-11) - RCONST(11949) = (1.90D-12*EXP(190/TEMP)) - RCONST(11950) = (j('ch3o2h')) - RCONST(11951) = (2.26D-13) - RCONST(11952) = (j('n_c3h7ono2')) - RCONST(11953) = (KDEC) - RCONST(11954) = (1.74D-11) - RCONST(11955) = (3.95D-11) - RCONST(11956) = (j('ch3o2h')) - RCONST(11957) = (KDEC) - RCONST(11958) = (KNO3AL*2.4) - RCONST(11959) = (2.10D-11) - RCONST(11960) = (j('n_c3h7cho_hco')) - RCONST(11961) = (KAPHO2*0.44) - RCONST(11962) = (KAPHO2*0.56) - RCONST(11963) = (KAPNO) - RCONST(11964) = (KFPAN) - RCONST(11965) = (KRO2NO3*1.74) - RCONST(11966) = (1.00D-11*RO2) - RCONST(11967) = (j('ch3o2h')+j('mek')) - RCONST(11968) = (j('biacet')) - RCONST(11969) = (1.30D-11) - RCONST(11970) = (j('ch3o2h')) - RCONST(11971) = (2.56D-11) - RCONST(11972) = (1.90D-12*EXP(190/TEMP)) - RCONST(11973) = (7.29D-12) - RCONST(11974) = (2.00D+14*EXP(-5538/TEMP)) - RCONST(11975) = (j('n_c3h7cho_hco')) - RCONST(11976) = (KNO3AL*4.0) - RCONST(11977) = (3.19D-11) - RCONST(11978) = (2.01D-11) - RCONST(11979) = (KAPHO2*0.44) - RCONST(11980) = (KAPHO2*0.56) - RCONST(11981) = (KAPNO) - RCONST(11982) = (KFPAN) - RCONST(11983) = (KRO2NO3*1.74) - RCONST(11984) = (1.00D-11*RO2) - RCONST(11985) = (1.41D-11) - RCONST(11986) = (j('ch3o2h')) - RCONST(11987) = (1.75D-11) - RCONST(11988) = (KBPAN) - RCONST(11989) = (4.50D-12) - RCONST(11990) = (2.69D-11) - RCONST(11991) = (j('mek')+j('n_c3h7cho_hco')) - RCONST(11992) = (3.05D-11) - RCONST(11993) = (j('ch3o2h')+j('mek')) - RCONST(11994) = (2.69D-11) - RCONST(11995) = (KBPAN) - RCONST(11996) = (3.83D-11) - RCONST(11997) = (j('ch3o2h')+j('mek')+j('n_c3h7cho_hco')) - RCONST(11998) = (KDEC) - RCONST(11999) = (7.31D-11) - RCONST(12000) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(12001) = (KROPRIM*O2) - RCONST(12002) = (j('n_c3h7cho_hco')) - RCONST(12003) = (2.14D-11) - RCONST(12004) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(12005) = (2.49D-11) - RCONST(12006) = (KBPAN) - RCONST(12007) = (2.10D-11) - RCONST(12008) = (8.37D-11) - RCONST(12009) = (j('ch3o2h')+j('mek')*2+j('n_c3h7cho_hco')) - RCONST(12010) = (KDEC) - RCONST(12011) = (1.83D-11) - RCONST(12012) = (j('ch3o2h')+j('mek')) - RCONST(12013) = (KDEC) - RCONST(12014) = (KNO3AL*5.5) - RCONST(12015) = (6.70D-11) - RCONST(12016) = (j('biacet')) - RCONST(12017) = (KRO2HO2*0.914) - RCONST(12018) = (KRO2NO*0.125) - RCONST(12019) = (KRO2NO*0.875) - RCONST(12020) = (KRO2NO3) - RCONST(12021) = (6.70D-15*0.7*RO2) - RCONST(12022) = (6.70D-15*0.3*RO2) - RCONST(12023) = (8.03D-12) - RCONST(12024) = (j('ch3o2h')) - RCONST(12025) = (KDEC) - RCONST(12026) = (KRO2HO2*0.820) - RCONST(12027) = (KRO2NO*0.278) - RCONST(12028) = (KRO2NO*0.722) - RCONST(12029) = (KRO2NO3) - RCONST(12030) = (2.50D-13*0.6*RO2) - RCONST(12031) = (2.50D-13*0.2*RO2) - RCONST(12032) = (2.50D-13*0.2*RO2) - RCONST(12033) = (KAPHO2*0.41) - RCONST(12034) = (KAPHO2*0.44) - RCONST(12035) = (KAPHO2*0.15) - RCONST(12036) = (KAPNO) - RCONST(12037) = (KFPAN) - RCONST(12038) = (KRO2NO3*1.74) - RCONST(12039) = (1.00D-11*RO2*0.7) - RCONST(12040) = (1.00D-11*RO2*0.3) - RCONST(12041) = (2*KNO3AL*5.5) - RCONST(12042) = (1.33D-10) - RCONST(12043) = (j('n_c3h7cho_hco')*2) - RCONST(12044) = (KRO2HO2*0.890) - RCONST(12045) = (KRO2NO) - RCONST(12046) = (KRO2NO3) - RCONST(12047) = (6.70D-15*RO2) - RCONST(12048) = (KRO2HO2*0.890) - RCONST(12049) = (KRO2NO*0.118) - RCONST(12050) = (KRO2NO*0.882) - RCONST(12051) = (KRO2NO3) - RCONST(12052) = (6.70D-15*0.7*RO2) - RCONST(12053) = (6.70D-15*0.3*RO2) - RCONST(12054) = (KRO2HO2*0.859) - RCONST(12055) = (KRO2NO) - RCONST(12056) = (KRO2NO3) - RCONST(12057) = (6.70D-15*RO2) - RCONST(12058) = (KNO3AL*5.5) - RCONST(12059) = (8.92D-11*0.232) - RCONST(12060) = (8.92D-11*0.768) - RCONST(12061) = (j('n_c3h7cho_hco')) - RCONST(12062) = (KRO2HO2*0.890) - RCONST(12063) = (KRO2NO*0.118) - RCONST(12064) = (KRO2NO*0.882) - RCONST(12065) = (KRO2NO3) - RCONST(12066) = (6.70D-15*RO2*0.7) - RCONST(12067) = (6.70D-15*RO2*0.3) - RCONST(12068) = (KRO2HO2*0.890) - RCONST(12069) = (KRO2NO) - RCONST(12070) = (KRO2NO3) - RCONST(12071) = (8.80D-13*RO2*0.2) - RCONST(12072) = (8.80D-13*RO2*0.6) - RCONST(12073) = (8.80D-13*RO2*0.2) - RCONST(12074) = (KRO2HO2*0.890) - RCONST(12075) = (KRO2NO*0.118) - RCONST(12076) = (KRO2NO*0.882) - RCONST(12077) = (KRO2NO3) - RCONST(12078) = (6.70D-15*RO2*0.7) - RCONST(12079) = (6.70D-15*RO2*0.3) - RCONST(12080) = (KAPHO2*0.15) - RCONST(12081) = (KAPHO2*0.41) - RCONST(12082) = (KAPHO2*0.44) - RCONST(12083) = (KAPNO) - RCONST(12084) = (KFPAN) - RCONST(12085) = (KRO2NO3*1.74) - RCONST(12086) = (1.00D-11*0.3*RO2) - RCONST(12087) = (1.00D-11*0.7*RO2) - RCONST(12088) = (KRO2HO2*0.859) - RCONST(12089) = (KRO2NO) - RCONST(12090) = (KRO2NO3) - RCONST(12091) = (8.80D-13*RO2*0.2) - RCONST(12092) = (8.80D-13*RO2*0.6) - RCONST(12093) = (8.80D-13*RO2*0.2) - RCONST(12094) = (7.23D-11) - RCONST(12095) = (j('n_c3h7cho_hco')) - RCONST(12096) = (7.54D-11) - RCONST(12097) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(12098) = (KRO2HO2*0.706) - RCONST(12099) = (KRO2NO*0.052) - RCONST(12100) = (KRO2NO*0.948) - RCONST(12101) = (KRO2NO3) - RCONST(12102) = (1.30D-12*RO2*0.6) - RCONST(12103) = (1.30D-12*RO2*0.2) - RCONST(12104) = (1.30D-12*RO2*0.2) - RCONST(12105) = (6.76D-11) - RCONST(12106) = (KBPAN) - RCONST(12107) = (KRO2HO2*0.770) - RCONST(12108) = (KRO2NO) - RCONST(12109) = (KRO2NO3) - RCONST(12110) = (8.80D-13*RO2*0.2) - RCONST(12111) = (8.80D-13*RO2*0.6) - RCONST(12112) = (8.80D-13*RO2*0.2) - RCONST(12113) = (3.61D-11) - RCONST(12114) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(12115) = (2.56D-11) - RCONST(12116) = (j('2_c4h9ono2')+j('n_c3h7cho_hco')) - RCONST(12117) = (2.70D+14*EXP(-6643/TEMP)) - RCONST(12118) = (2.86D-11) - RCONST(12119) = (j('n_c3h7cho_hco')) - RCONST(12120) = (3.08D-11) - RCONST(12121) = (j('ch3o2h')+j('n_c3h7cho_hco')*2) - RCONST(12122) = (KDEC) - RCONST(12123) = (2.73D-11) - RCONST(12124) = (j('n_c3h7cho_hco')*2) - RCONST(12125) = (2.28D-11) - RCONST(12126) = (j('mek')*2+j('ch3o2h')) - RCONST(12127) = (1.97D-11) - RCONST(12128) = (j('mek')*2) - RCONST(12129) = (1.92D-11) - RCONST(12130) = (KBPAN) - RCONST(12131) = (3.21D-11) - RCONST(12132) = (j('mek')*2+j('ch3o2h')) - RCONST(12133) = (1.62D-11) - RCONST(12134) = (j('mek')*2+j('n_c3h7ono2')) - RCONST(12135) = (KDEC) - RCONST(12136) = (2.72D-11) - RCONST(12137) = (2.31D-11) - RCONST(12138) = (j('mek')*2) - RCONST(12139) = (5.89D-11) - RCONST(12140) = (j('ch3o2h')+j('n_c3h7cho_hco')*2) - RCONST(12141) = (KDEC) - RCONST(12142) = (5.54D-11) - RCONST(12143) = (j('n_c3h7cho_hco')*2) - RCONST(12144) = (KAPHO2*0.15) - RCONST(12145) = (KAPHO2*0.41) - RCONST(12146) = (KAPHO2*0.44) - RCONST(12147) = (KAPNO) - RCONST(12148) = (KFPAN) - RCONST(12149) = (KRO2NO3*1.74) - RCONST(12150) = (1.00D-11*RO2*0.3) - RCONST(12151) = (1.00D-11*RO2*0.7) - RCONST(12152) = (KRO2HO2*0.770) - RCONST(12153) = (KRO2NO*0.078) - RCONST(12154) = (KRO2NO*0.922) - RCONST(12155) = (KRO2NO3) - RCONST(12156) = (1.30D-12*0.2) - RCONST(12157) = (1.30D-12*0.2) - RCONST(12158) = (1.30D-12*0.6) - RCONST(12159) = (KRO2HO2*0.820) - RCONST(12160) = (KRO2NO) - RCONST(12161) = (KRO2NO3) - RCONST(12162) = (9.20D-14*RO2*0.7) - RCONST(12163) = (9.20D-14*RO2*0.3) - RCONST(12164) = (6.05D-11) - RCONST(12165) = (j('ch3o2h')+j('n_c3h7cho_hco')*2) - RCONST(12166) = (4.59D-11) - RCONST(12167) = (KDEC) - RCONST(12168) = (5.70D-11) - RCONST(12169) = (j('n_c3h7cho_hco')*2) - RCONST(12170) = (9.57D-11) - RCONST(12171) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(12172) = (7.51D-11) - RCONST(12173) = (j('n_c3h7ono2')) - RCONST(12174) = (KDEC) - RCONST(12175) = (KNO3AL*8.5) - RCONST(12176) = (3.30D-13) - RCONST(12177) = (1.30D-17*0.330) - RCONST(12178) = (1.30D-17*0.670) - RCONST(12179) = (8.67D-11*0.288) - RCONST(12180) = (8.67D-11*0.712) - RCONST(12181) = (j('n_c3h7cho_hco')) - RCONST(12182) = (KRO2HO2*0.859) - RCONST(12183) = (KRO2NO*0.138) - RCONST(12184) = (KRO2NO*0.862) - RCONST(12185) = (KRO2NO3) - RCONST(12186) = (1.30D-12*RO2*0.2) - RCONST(12187) = (1.30D-12*RO2*0.6) - RCONST(12188) = (1.30D-12*RO2*0.2) - RCONST(12189) = (KAPHO2*0.41) - RCONST(12190) = (KAPHO2*0.44) - RCONST(12191) = (KAPHO2*0.15) - RCONST(12192) = (KAPNO) - RCONST(12193) = (KFPAN) - RCONST(12194) = (KRO2NO3*1.74) - RCONST(12195) = (1.00D-11*RO2*0.7) - RCONST(12196) = (1.00D-11*RO2*0.3) - RCONST(12197) = (KRO2HO2*0.890) - RCONST(12198) = (KRO2NO) - RCONST(12199) = (KRO2NO3) - RCONST(12200) = (9.20D-14*RO2) - RCONST(12201) = (KAPHO2*0.15) - RCONST(12202) = (KAPHO2*0.41) - RCONST(12203) = (KAPHO2*0.44) - RCONST(12204) = (KAPNO) - RCONST(12205) = (KFPAN) - RCONST(12206) = (KRO2NO3*1.74) - RCONST(12207) = (1.00D-11*RO2*0.3) - RCONST(12208) = (1.00D-11*RO2*0.7) - RCONST(12209) = (5.20D-11) - RCONST(12210) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(12211) = (5.79D-11) - RCONST(12212) = (j('mek')) - RCONST(12213) = (j('ch3o2h')) - RCONST(12214) = (KDEC) - RCONST(12215) = (3.58D-11) - RCONST(12216) = (j('biacet')) - RCONST(12217) = (4.57D-11) - RCONST(12218) = (j('mek')) - RCONST(12219) = (4.77D-11) - RCONST(12220) = (j('mek')) - RCONST(12221) = (j('ch3o2h')) - RCONST(12222) = (KDEC) - RCONST(12223) = (5.09D-11) - RCONST(12224) = (j('ch3cocho')) - RCONST(12225) = (4.09D-11) - RCONST(12226) = (j('mek')) - RCONST(12227) = (KAPHO2*0.15) - RCONST(12228) = (KAPHO2*0.41) - RCONST(12229) = (KAPHO2*0.44) - RCONST(12230) = (KAPNO) - RCONST(12231) = (KFPAN) - RCONST(12232) = (KRO2NO3*1.74) - RCONST(12233) = (1.00D-11*RO2*0.3) - RCONST(12234) = (1.00D-11*RO2*0.7) - RCONST(12235) = (KAPHO2*0.44) - RCONST(12236) = (KAPHO2*0.15) - RCONST(12237) = (KAPHO2*0.41) - RCONST(12238) = (KAPNO) - RCONST(12239) = (KFPAN) - RCONST(12240) = (KRO2NO3*1.74) - RCONST(12241) = (1.00D-11*RO2*0.7) - RCONST(12242) = (1.00D-11*RO2*0.3) - RCONST(12243) = (KRO2HO2*0.959) - RCONST(12244) = (KRO2NO) - RCONST(12245) = (KRO2NO3) - RCONST(12246) = (6.70D-15*RO2*0.7) - RCONST(12247) = (6.70D-15*RO2*0.3) - RCONST(12248) = (KAPHO2*0.15) - RCONST(12249) = (KAPHO2*0.41) - RCONST(12250) = (KAPHO2*0.44) - RCONST(12251) = (KAPNO) - RCONST(12252) = (KFPAN) - RCONST(12253) = (KRO2NO3*1.74) - RCONST(12254) = (1.00D-11*RO2*0.3) - RCONST(12255) = (1.00D-11*RO2*0.7) - RCONST(12256) = (KAPHO2*0.15) - RCONST(12257) = (KAPHO2*0.41) - RCONST(12258) = (KAPHO2*0.44) - RCONST(12259) = (KAPNO) - RCONST(12260) = (KFPAN) - RCONST(12261) = (KRO2NO3*1.74) - RCONST(12262) = (1.00D-11*RO2*0.3) - RCONST(12263) = (1.00D-11*RO2*0.7) - RCONST(12264) = (8.74D-11) - RCONST(12265) = (KRO2HO2*0.959) - RCONST(12266) = (KRO2NO*0.178) - RCONST(12267) = (KRO2NO*0.822) - RCONST(12268) = (KRO2NO3) - RCONST(12269) = (2.50D-13*RO2*0.2) - RCONST(12270) = (2.50D-13*RO2*0.6) - RCONST(12271) = (2.50D-13*RO2*0.2) - RCONST(12272) = (3.64D-11) - RCONST(12273) = (3.93D-11) - RCONST(12274) = (j('ch3o2h')) - RCONST(12275) = (3.57D-11) - RCONST(12276) = (KBPAN) - RCONST(12277) = (4.11D-11) - RCONST(12278) = (j('ch3o2h')) - RCONST(12279) = (2.76D-11) - RCONST(12280) = (j('n_c3h7ono2')) - RCONST(12281) = (KDEC) - RCONST(12282) = (4.83D-11) - RCONST(12283) = (3.21D-11) - RCONST(12284) = (7.07D-11) - RCONST(12285) = (j('ch3o2h')) - RCONST(12286) = (KDEC) - RCONST(12287) = (4.99D-11) - RCONST(12288) = (j('biacet')) - RCONST(12289) = (5.85D-11) - RCONST(12290) = (KRO2HO2*0.947) - RCONST(12291) = (KRO2NO*0.132) - RCONST(12292) = (KRO2NO*0.868) - RCONST(12293) = (KRO2NO3) - RCONST(12294) = (6.70D-15*RO2*0.7) - RCONST(12295) = (6.70D-15*RO2*0.3) - RCONST(12296) = (6.87D-11) - RCONST(12297) = (j('mek')*3) - RCONST(12298) = (KRO2HO2*0.968) - RCONST(12299) = (KRO2NO*0.245) - RCONST(12300) = (KRO2NO*0.755) - RCONST(12301) = (KRO2NO3) - RCONST(12302) = (2.50D-13*RO2*0.2) - RCONST(12303) = (2.50D-13*RO2*0.6) - RCONST(12304) = (2.50D-13*RO2*0.2) - RCONST(12305) = (4.63D-11) - RCONST(12306) = (j('ch3o2h')) - RCONST(12307) = (3.23D-11) - RCONST(12308) = (j('n_c3h7ono2')) - RCONST(12309) = (KDEC) - RCONST(12310) = (3.72D-11) - RCONST(12311) = (3.77D-11) - RCONST(12312) = (4.08D-11) - RCONST(12313) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(12314) = (3.72D-11) - RCONST(12315) = (KBPAN) - RCONST(12316) = (4.98D-11) - RCONST(12317) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(12318) = (8.40D+10*EXP(-2567/TEMP)) - RCONST(12319) = (4.58D-11) - RCONST(12320) = (j('i_c3h7cho')) - RCONST(12321) = (j('ch3o2h')) - RCONST(12322) = (KDEC) - RCONST(12323) = (3.57D-11) - RCONST(12324) = (j('ch3o2h')+j('n_c3h7cho_hco')+j('biacet')) - RCONST(12325) = (8.40D+10*EXP(-2567/TEMP)) - RCONST(12326) = (5.71D-12) - RCONST(12327) = (j('ch3o2h')+j('mek')) - RCONST(12328) = (9.17D-12) - RCONST(12329) = (KBPAN) - RCONST(12330) = (1.90D-12) - RCONST(12331) = (1.11D-11) - RCONST(12332) = (j('ch3o2h')) - RCONST(12333) = (1.46D-11) - RCONST(12334) = (KBPAN) - RCONST(12335) = (1.55D-11) - RCONST(12336) = (j('mek')) - RCONST(12337) = (6.88D-12) - RCONST(12338) = (j('ch3o2h')+j('mek')) - RCONST(12339) = (1.03D-11) - RCONST(12340) = (KBPAN) - RCONST(12341) = (3.19D-12) - RCONST(12342) = (j('ch3o2h')) - RCONST(12343) = (j('i_c3h7cho')) - RCONST(12344) = (2.77D-11) - RCONST(12345) = (9.18D-12) - RCONST(12346) = (j('ch3o2h')) - RCONST(12347) = (1.26D-11) - RCONST(12348) = (KBPAN) - RCONST(12349) = (3.24D-12) - RCONST(12350) = (KRO2HO2*0.706) - RCONST(12351) = (KRO2NO*0.010) - RCONST(12352) = (KRO2NO*0.990) - RCONST(12353) = (KRO2NO3) - RCONST(12354) = (2.00D-12*0.2*RO2) - RCONST(12355) = (2.00D-12*0.2*RO2) - RCONST(12356) = (2.00D-12*0.6*RO2) - RCONST(12357) = (j('biacet')) - RCONST(12358) = (KNO3AL*8.5) - RCONST(12359) = (6.75D-11) - RCONST(12360) = (KRO2HO2*0.706) - RCONST(12361) = (KRO2NO) - RCONST(12362) = (KRO2NO3) - RCONST(12363) = (2.00D-12*RO2) - RCONST(12364) = (KAPHO2*0.44) - RCONST(12365) = (KAPHO2*0.56) - RCONST(12366) = (KAPNO) - RCONST(12367) = (KFPAN) - RCONST(12368) = (KRO2NO3*1.74) - RCONST(12369) = (1.00D-11*RO2) - RCONST(12370) = (j('ch3cocho')) - RCONST(12371) = (1.44D-11) - RCONST(12372) = (9.18D-12) - RCONST(12373) = (j('ch3o2h')+j('mek')) - RCONST(12374) = (1.26D-11) - RCONST(12375) = (KBPAN) - RCONST(12376) = (3.51D-12) - RCONST(12377) = (j('ch3o2h')+j('mek')) - RCONST(12378) = (9.25D-11) - RCONST(12379) = (j('1_c4h9ono2')+j('mek')) - RCONST(12380) = (3.41D-12) - RCONST(12381) = (2.00D+14*EXP(-4714/TEMP)) - RCONST(12382) = (j('mek')) - RCONST(12383) = (4.35D-11) - RCONST(12384) = (j('mek')*2) - RCONST(12385) = (5.76D-12) - RCONST(12386) = (j('mek')*2) - RCONST(12387) = (j('ch3o2h')) - RCONST(12388) = (5.53D-11) - RCONST(12389) = (KDEC) - RCONST(12390) = (j('biacet')) - RCONST(12391) = (1.86D-12) - RCONST(12392) = (j('mek')*2) - RCONST(12393) = (2.41D-11) - RCONST(12394) = (j('mek')*2) - RCONST(12395) = (j('ch3o2h')) - RCONST(12396) = (5.53D-11) - RCONST(12397) = (KDEC) - RCONST(12398) = (j('biacet')) - RCONST(12399) = (1.86D-12) - RCONST(12400) = (j('mek')*2) - RCONST(12401) = (2.41D-11) - RCONST(12402) = (KAPHO2*0.56) - RCONST(12403) = (KAPHO2*0.44) - RCONST(12404) = (KAPNO) - RCONST(12405) = (KFPAN) - RCONST(12406) = (KRO2NO3*1.74) - RCONST(12407) = (1.00D-11*RO2) - RCONST(12408) = (KRO2HO2*0.820) - RCONST(12409) = (KRO2NO) - RCONST(12410) = (KRO2NO3) - RCONST(12411) = (2.00D-12*RO2) - RCONST(12412) = (j('ch3o2h')) - RCONST(12413) = (j('mek')) - RCONST(12414) = (1.25D-11) - RCONST(12415) = (j('mek')) - RCONST(12416) = (1.93D-12) - RCONST(12417) = (KDEC) - RCONST(12418) = (j('mek')) - RCONST(12419) = (9.07D-12) - RCONST(12420) = (j('ch3o2h')) - RCONST(12421) = (j('mek')*2) - RCONST(12422) = (7.07D-12) - RCONST(12423) = (KDEC) - RCONST(12424) = (j('mek')*2) - RCONST(12425) = (3.61D-12) - RCONST(12426) = (j('ch3o2h')) - RCONST(12427) = (j('mek')*2) - RCONST(12428) = (1.90D-12*EXP(190/TEMP)) - RCONST(12429) = (5.41D-11) - RCONST(12430) = (KDEC) - RCONST(12431) = (j('mek')*2) - RCONST(12432) = (2.64D-11) - RCONST(12433) = (j('biacet')) - RCONST(12434) = (j('mek')) - RCONST(12435) = (1.83D-12) - RCONST(12436) = (KAPHO2*0.56) - RCONST(12437) = (KAPHO2*0.44) - RCONST(12438) = (KAPNO) - RCONST(12439) = (KFPAN) - RCONST(12440) = (KRO2NO3*1.74) - RCONST(12441) = (1.00D-11*RO2) - RCONST(12442) = (KRO2HO2*0.706) - RCONST(12443) = (KRO2NO*0.026) - RCONST(12444) = (KRO2NO*0.974) - RCONST(12445) = (KRO2NO3) - RCONST(12446) = (8.80D-13*0.2*RO2) - RCONST(12447) = (8.80D-13*0.6*RO2) - RCONST(12448) = (8.80D-13*0.2*RO2) - RCONST(12449) = (j('biacet')+j('mek')) - RCONST(12450) = (2.99D-12) - RCONST(12451) = (j('mek')*2) - RCONST(12452) = (j('ch3o2h')) - RCONST(12453) = (5.65D-11) - RCONST(12454) = (KDEC) - RCONST(12455) = (j('mek')*2) - RCONST(12456) = (2.52D-11) - RCONST(12457) = (KAPHO2*0.56) - RCONST(12458) = (KAPHO2*0.44) - RCONST(12459) = (KAPNO) - RCONST(12460) = (KFPAN) - RCONST(12461) = (KRO2NO3*1.74) - RCONST(12462) = (1.00D-11*RO2) - RCONST(12463) = (j('biacet')+j('mek')) - RCONST(12464) = (6.43D-12) - RCONST(12465) = (j('mek')*2) - RCONST(12466) = (j('ch3o2h')) - RCONST(12467) = (5.40D-11) - RCONST(12468) = (KDEC) - RCONST(12469) = (j('mek')*2) - RCONST(12470) = (2.28D-11) - RCONST(12471) = (KAPHO2*0.56) - RCONST(12472) = (KAPHO2*0.44) - RCONST(12473) = (KAPNO) - RCONST(12474) = (KFPAN) - RCONST(12475) = (KRO2NO3*1.74) - RCONST(12476) = (1.00D-11*RO2) - RCONST(12477) = (j('biacet')+j('mek')) - RCONST(12478) = (7.84D-12) - RCONST(12479) = (j('ch3o2h')) - RCONST(12480) = (j('mek')*2) - RCONST(12481) = (5.54D-11) - RCONST(12482) = (KDEC) - RCONST(12483) = (j('mek')*2) - RCONST(12484) = (2.42D-11) - RCONST(12485) = (KAPHO2*0.56) - RCONST(12486) = (KAPHO2*0.44) - RCONST(12487) = (KAPNO) - RCONST(12488) = (KFPAN) - RCONST(12489) = (KRO2NO3*1.74) - RCONST(12490) = (1.00D-11*RO2) - RCONST(12491) = (j('n_c3h7cho_hco')) - RCONST(12492) = (KNO3AL*5.5) - RCONST(12493) = (3.05D-11) - RCONST(12494) = (j('biacet')+j('mek')) - RCONST(12495) = (9.25D-12) - RCONST(12496) = (j('ch3o2h')) - RCONST(12497) = (j('mek')*2) - RCONST(12498) = (5.68D-11) - RCONST(12499) = (KDEC) - RCONST(12500) = (j('mek')*2) - RCONST(12501) = (2.56D-11) - RCONST(12502) = (KAPHO2*0.56) - RCONST(12503) = (KAPHO2*0.44) - RCONST(12504) = (KAPNO) - RCONST(12505) = (KFPAN) - RCONST(12506) = (KRO2NO3*1.74) - RCONST(12507) = (1.00D-11*RO2) - RCONST(12508) = (j('biacet')+j('mek')) - RCONST(12509) = (1.07D-11) - RCONST(12510) = (9.89D-12) - RCONST(12511) = (j('ch3o2h')) - RCONST(12512) = (1.33D-11) - RCONST(12513) = (6.16D-12) - RCONST(12514) = (KBPAN) - RCONST(12515) = (j('ch3o2h')) - RCONST(12516) = (j('mek')*2) - RCONST(12517) = (5.82D-11) - RCONST(12518) = (KDEC) - RCONST(12519) = (j('mek')*2) - RCONST(12520) = (2.70D-11) - RCONST(12521) = (KAPHO2*0.56) - RCONST(12522) = (KAPHO2*0.44) - RCONST(12523) = (KAPNO) - RCONST(12524) = (KFPAN) - RCONST(12525) = (KRO2NO3*1.74) - RCONST(12526) = (1.00D-11*RO2) - RCONST(12527) = (4.66D-11) - RCONST(12528) = (j('ch3o2h')) - RCONST(12529) = (KDEC) - RCONST(12530) = (2.55D-11) - RCONST(12531) = (5.68D-12) - RCONST(12532) = (1.90D-12*EXP(190/TEMP)) - RCONST(12533) = (j('ch3o2h')) - RCONST(12534) = (KDEC) - RCONST(12535) = (1.90D-12*EXP(190/TEMP)) - RCONST(12536) = (j('ch3o2h')) - RCONST(12537) = (KDEC) - RCONST(12538) = (1.90D-12*EXP(190/TEMP)) - RCONST(12539) = (7.70D-11) - RCONST(12540) = (j('ch3cocho')*2) - RCONST(12541) = (KAPHO2*0.56) - RCONST(12542) = (KAPHO2*0.44) - RCONST(12543) = (KAPNO) - RCONST(12544) = (KFPAN) - RCONST(12545) = (KRO2NO3*1.74) - RCONST(12546) = (1.00D-11*RO2) - RCONST(12547) = (9.58D-11) - RCONST(12548) = (j('ch3cocho')*2) - RCONST(12549) = (KAPHO2*0.44) - RCONST(12550) = (KAPHO2*0.56) - RCONST(12551) = (KAPNO) - RCONST(12552) = (KFPAN) - RCONST(12553) = (KRO2NO3*1.74) - RCONST(12554) = (1.00D-11*RO2) - RCONST(12555) = (1.90D-12*EXP(190/TEMP)) - RCONST(12556) = (j('ch3o2h')) - RCONST(12557) = (KDEC) - RCONST(12558) = (1.90D-12*EXP(190/TEMP)) - RCONST(12559) = (j('ch3o2h')) - RCONST(12560) = (KDEC) - RCONST(12561) = (1.90D-12*EXP(190/TEMP)) - RCONST(12562) = (KAPHO2*0.56) - RCONST(12563) = (KAPHO2*0.44) - RCONST(12564) = (KAPNO) - RCONST(12565) = (KFPAN) - RCONST(12566) = (KRO2NO3*1.74) - RCONST(12567) = (1.00D-11*RO2) - RCONST(12568) = (1.72D-11) - RCONST(12569) = (j('ch3o2h')) - RCONST(12570) = (KDEC) - RCONST(12571) = (1.90D-12*EXP(190/TEMP)) - RCONST(12572) = (j('ch3o2h')) - RCONST(12573) = (KDEC) - RCONST(12574) = (1.90D-12*EXP(190/TEMP)) - RCONST(12575) = (j('ch3o2h')) - RCONST(12576) = (KDEC) - RCONST(12577) = (1.15D-10) - RCONST(12578) = (j('ch3cocho')*2) - RCONST(12579) = (KAPHO2*0.44) - RCONST(12580) = (KAPHO2*0.56) - RCONST(12581) = (KAPNO) - RCONST(12582) = (KFPAN) - RCONST(12583) = (KRO2NO3*1.74) - RCONST(12584) = (1.00D-11*RO2) - RCONST(12585) = (KAPHO2*0.44) - RCONST(12586) = (KAPHO2*0.56) - RCONST(12587) = (KAPNO) - RCONST(12588) = (KFPAN) - RCONST(12589) = (KRO2NO3*1.74) - RCONST(12590) = (1.00D-11*RO2) - RCONST(12591) = (KAPHO2*0.15) - RCONST(12592) = (KAPHO2*0.41) - RCONST(12593) = (KAPHO2*0.44) - RCONST(12594) = (KAPNO) - RCONST(12595) = (KFPAN) - RCONST(12596) = (KRO2NO3*1.74) - RCONST(12597) = (1.00D-11*RO2*0.3) - RCONST(12598) = (1.00D-11*RO2*0.7) - RCONST(12599) = (1.19D-11) - RCONST(12600) = (j('ch3o2h')) - RCONST(12601) = (j('mek')) - RCONST(12602) = (KDEC) - RCONST(12603) = (KAPHO2*0.15) - RCONST(12604) = (KAPHO2*0.41) - RCONST(12605) = (KAPHO2*0.44) - RCONST(12606) = (KAPNO) - RCONST(12607) = (KFPAN) - RCONST(12608) = (KRO2NO3*1.74) - RCONST(12609) = (1.00D-11*RO2*0.3) - RCONST(12610) = (1.00D-11*RO2*0.7) - RCONST(12611) = (1.69D-11) - RCONST(12612) = (j('ch3o2h')) - RCONST(12613) = (KDEC) - RCONST(12614) = (1.34D-11) - RCONST(12615) = (1.90D-12*EXP(190/TEMP)) - RCONST(12616) = (j('ch3o2h')) - RCONST(12617) = (KDEC) - RCONST(12618) = (1.90D-12*EXP(190/TEMP)) - RCONST(12619) = (j('ch3o2h')) - RCONST(12620) = (KDEC) - RCONST(12621) = (7.04D-11) - RCONST(12622) = (j('ch3cocho')+j('biacet')) - RCONST(12623) = (KAPHO2*0.44) - RCONST(12624) = (KAPHO2*0.56) - RCONST(12625) = (KAPNO) - RCONST(12626) = (KFPAN) - RCONST(12627) = (KRO2NO3*1.74) - RCONST(12628) = (1.00D-11*RO2) - RCONST(12629) = (1.52D-10) - RCONST(12630) = (j('ch3o2h')) - RCONST(12631) = (KDEC) - RCONST(12632) = (1.90D-12*EXP(190/TEMP)) - RCONST(12633) = (j('ch3o2h')) - RCONST(12634) = (KDEC) - RCONST(12635) = (1.90D-12*EXP(190/TEMP)) - RCONST(12636) = (j('ch3o2h')) - RCONST(12637) = (KDEC) - RCONST(12638) = (8.35D-11) - RCONST(12639) = (j('ch3cocho')+j('biacet')) - RCONST(12640) = (KAPHO2*0.56) - RCONST(12641) = (KAPHO2*0.44) - RCONST(12642) = (KAPNO) - RCONST(12643) = (KFPAN) - RCONST(12644) = (KRO2NO3*1.74) - RCONST(12645) = (1.0D-11*RO2) - RCONST(12646) = (1.90D-12*EXP(190/TEMP)) - RCONST(12647) = (j('ch3o2h')) - RCONST(12648) = (KDEC) - RCONST(12649) = (1.90D-12*EXP(190/TEMP)) - RCONST(12650) = (j('ch3o2h')) - RCONST(12651) = (KDEC) - RCONST(12652) = (9.76D-11) - RCONST(12653) = (j('ch3cocho')*2) - RCONST(12654) = (KAPHO2*0.44) - RCONST(12655) = (KAPHO2*0.56) - RCONST(12656) = (KAPNO) - RCONST(12657) = (KFPAN) - RCONST(12658) = (KRO2NO3*1.74) - RCONST(12659) = (1.00D-11*RO2) - RCONST(12660) = (1.90D-12*EXP(190/TEMP)) - RCONST(12661) = (KAPHO2*0.44) - RCONST(12662) = (KAPHO2*0.56) - RCONST(12663) = (KAPNO) - RCONST(12664) = (KFPAN) - RCONST(12665) = (KRO2NO3*1.74) - RCONST(12666) = (1.00D-11*RO2) - RCONST(12667) = (1.90D-12*EXP(190/TEMP)) - RCONST(12668) = (j('ch3o2h')) - RCONST(12669) = (KDEC) - RCONST(12670) = (1.90D-12*EXP(190/TEMP)) - RCONST(12671) = (j('ch3o2h')) - RCONST(12672) = (KDEC) - RCONST(12673) = (9.92D-11) - RCONST(12674) = (j('ch3cocho')*2) - RCONST(12675) = (KAPHO2*0.44) - RCONST(12676) = (KAPHO2*0.56) - RCONST(12677) = (KAPNO) - RCONST(12678) = (KFPAN) - RCONST(12679) = (KRO2NO3*1.74) - RCONST(12680) = (1.00D-11*RO2) - RCONST(12681) = (1.90D-12*EXP(190/TEMP)) - RCONST(12682) = (1.18D-11) - RCONST(12683) = (j('ch3o2h')+j('biacet')+j('mek')) - RCONST(12684) = (8.21D-12) - RCONST(12685) = (KBPAN) - RCONST(12686) = (1.90D-12*EXP(190/TEMP)) - RCONST(12687) = (j('ch3o2h')) - RCONST(12688) = (KDEC) - RCONST(12689) = (1.90D-12*EXP(190/TEMP)) - RCONST(12690) = (j('ch3o2h')) - RCONST(12691) = (KDEC) - RCONST(12692) = (9.97D-11) - RCONST(12693) = (j('ch3cocho')*2) - RCONST(12694) = (KAPHO2*0.44) - RCONST(12695) = (KAPHO2*0.56) - RCONST(12696) = (KAPNO) - RCONST(12697) = (KFPAN) - RCONST(12698) = (KRO2NO3*1.74) - RCONST(12699) = (1.00D-11*RO2) - RCONST(12700) = (1.90D-12*EXP(190/TEMP)) - RCONST(12701) = (9.80D-12) - RCONST(12702) = (j('ch3o2h')+j('biacet')+j('mek')) - RCONST(12703) = (6.21D-12) - RCONST(12704) = (KBPAN) - RCONST(12705) = (KRO2HO2*0.770) - RCONST(12706) = (KRO2NO) - RCONST(12707) = (KRO2NO3) - RCONST(12708) = (9.20D-14*RO2) - RCONST(12709) = (KRO2HO2*0.770) - RCONST(12710) = (KRO2NO) - RCONST(12711) = (KRO2NO3) - RCONST(12712) = (9.20D-14*RO2*0.70) - RCONST(12713) = (9.20D-14*RO2*0.30) - RCONST(12714) = (1.90D-12*EXP(190/TEMP)) - RCONST(12715) = (j('ch3o2h')) - RCONST(12716) = (KDEC) - RCONST(12717) = (1.90D-12*EXP(190/TEMP)) - RCONST(12718) = (j('ch3o2h')) - RCONST(12719) = (KDEC) - RCONST(12720) = (1.90D-12*EXP(190/TEMP)) - RCONST(12721) = (1.50D-10) - RCONST(12722) = (j('ch3o2h')) - RCONST(12723) = (KDEC) - RCONST(12724) = (1.90D-12*EXP(190/TEMP)) - RCONST(12725) = (j('ch3o2h')) - RCONST(12726) = (KDEC) - RCONST(12727) = (1.90D-12*EXP(190/TEMP)) - RCONST(12728) = (j('ch3o2h')) - RCONST(12729) = (KDEC) - RCONST(12730) = (1.03D-10) - RCONST(12731) = (j('ch3cocho')+j('biacet')) - RCONST(12732) = (KAPHO2*0.56) - RCONST(12733) = (KAPHO2*0.44) - RCONST(12734) = (KAPNO) - RCONST(12735) = (KFPAN) - RCONST(12736) = (KRO2NO3*1.74) - RCONST(12737) = (1.00D-11*RO2) - RCONST(12738) = (1.50D-10) - RCONST(12739) = (j('ch3o2h')) - RCONST(12740) = (KDEC) - RCONST(12741) = (1.90D-12*EXP(190/TEMP)) - RCONST(12742) = (j('ch3o2h')) - RCONST(12743) = (KDEC) - RCONST(12744) = (1.90D-12*EXP(190/TEMP)) - RCONST(12745) = (j('ch3o2h')) - RCONST(12746) = (KDEC) - RCONST(12747) = (1.17D-10) - RCONST(12748) = (j('ch3cocho')*2) - RCONST(12749) = (KAPHO2*0.56) - RCONST(12750) = (KAPHO2*0.44) - RCONST(12751) = (KAPNO) - RCONST(12752) = (KFPAN) - RCONST(12753) = (KRO2NO3*1.74) - RCONST(12754) = (1.00D-11*RO2) - RCONST(12755) = (1.90D-12*EXP(190/TEMP)) - RCONST(12756) = (j('ch3o2h')) - RCONST(12757) = (KDEC) - RCONST(12758) = (1.90D-12*EXP(190/TEMP)) - RCONST(12759) = (j('ch3o2h')) - RCONST(12760) = (KDEC) - RCONST(12761) = (8.52D-11) - RCONST(12762) = (j('ch3cocho')+j('biacet')) - RCONST(12763) = (KAPHO2*0.44) - RCONST(12764) = (KAPHO2*0.56) - RCONST(12765) = (KAPNO) - RCONST(12766) = (KFPAN) - RCONST(12767) = (KRO2NO3*1.74) - RCONST(12768) = (1.00D-11*RO2) - RCONST(12769) = (1.90D-12*EXP(190/TEMP)) - RCONST(12770) = (j('ch3o2h')) - RCONST(12771) = (KDEC) - RCONST(12772) = (1.90D-12*EXP(190/TEMP)) - RCONST(12773) = (j('ch3o2h')) - RCONST(12774) = (KDEC) - RCONST(12775) = (8.52D-11) - RCONST(12776) = (j('ch3cocho')+j('biacet')) - RCONST(12777) = (KAPHO2*0.44) - RCONST(12778) = (KAPHO2*0.56) - RCONST(12779) = (KAPNO) - RCONST(12780) = (KFPAN) - RCONST(12781) = (KRO2NO3*1.74) - RCONST(12782) = (1.00D-11*RO2) - RCONST(12783) = (KAPHO2*0.15) - RCONST(12784) = (KAPHO2*0.41) - RCONST(12785) = (KAPHO2*0.44) - RCONST(12786) = (KAPNO) - RCONST(12787) = (KFPAN) - RCONST(12788) = (KRO2NO3*1.74) - RCONST(12789) = (1.00D-11*RO2*0.3) - RCONST(12790) = (1.00D-11*RO2*0.7) - RCONST(12791) = (1.65D-11) - RCONST(12792) = (j('ch3o2h')) - RCONST(12793) = (KDEC) - RCONST(12794) = (KRO2HO2*0.859) - RCONST(12795) = (KRO2NO) - RCONST(12796) = (KRO2NO3) - RCONST(12797) = (9.20D-14*RO2) - RCONST(12798) = (1.66D-12) - RCONST(12799) = (j('ch3o2h')) - RCONST(12800) = (4.74D-12) - RCONST(12801) = (KBPAN) - RCONST(12802) = (1.14D-12) - RCONST(12803) = (j('ch3o2h')) - RCONST(12804) = (4.81D-12) - RCONST(12805) = (KBPAN) - RCONST(12806) = (1.21D-12) - RCONST(12807) = (2.31D-11) - RCONST(12808) = (j('ch3o2h')+j('mek')) - RCONST(12809) = (KDEC) - RCONST(12810) = (1.37D-11) - RCONST(12811) = (j('mek')) - RCONST(12812) = (KAPHO2*0.56) - RCONST(12813) = (KAPHO2*0.44) - RCONST(12814) = (KAPNO) - RCONST(12815) = (KFPAN) - RCONST(12816) = (KRO2NO3*1.6) - RCONST(12817) = (1.00D-11*RO2) - RCONST(12818) = (KAPHO2*0.15) - RCONST(12819) = (KAPHO2*0.41) - RCONST(12820) = (KAPHO2*0.44) - RCONST(12821) = (KAPNO) - RCONST(12822) = (KFPAN) - RCONST(12823) = (KRO2NO3*1.74) - RCONST(12824) = (1.00D-11*0.3*RO2) - RCONST(12825) = (1.00D-11*0.7*RO2) - RCONST(12826) = (KAPHO2*0.15) - RCONST(12827) = (KAPHO2*0.41) - RCONST(12828) = (KAPHO2*0.44) - RCONST(12829) = (KAPNO) - RCONST(12830) = (KFPAN) - RCONST(12831) = (KRO2NO3*1.74) - RCONST(12832) = (1.00D-11*0.3*RO2) - RCONST(12833) = (1.00D-11*0.7*RO2) - RCONST(12834) = (KAPHO2*0.15) - RCONST(12835) = (KAPHO2*0.41) - RCONST(12836) = (KAPHO2*0.44) - RCONST(12837) = (KAPNO) - RCONST(12838) = (KFPAN) - RCONST(12839) = (KRO2NO3*1.74) - RCONST(12840) = (1.00D-11*0.3*RO2) - RCONST(12841) = (1.00D-11*0.7*RO2) - RCONST(12842) = (j('ch3o2h')) - RCONST(12843) = (1.04D-11) - RCONST(12844) = (KBPAN) - RCONST(12845) = (6.80D-12) - RCONST(12846) = (2.69D-11) - RCONST(12847) = (j('ch3o2h')*3) - RCONST(12848) = (2.33D-11) - RCONST(12849) = (KBPAN) - RCONST(12850) = (5.66D-12) - RCONST(12851) = (j('ch3o2h')) - RCONST(12852) = (1.96D-12) - RCONST(12853) = (KBPAN) - RCONST(12854) = (KAPHO2*0.44) - RCONST(12855) = (KAPHO2*0.15) - RCONST(12856) = (KAPHO2*0.41) - RCONST(12857) = (KAPNO) - RCONST(12858) = (KFPAN) - RCONST(12859) = (KRO2NO3*1.74) - RCONST(12860) = (1.00D-11*0.7*RO2) - RCONST(12861) = (1.00D-11*0.3*RO2) - RCONST(12862) = (KAPHO2*0.44) - RCONST(12863) = (KAPHO2*0.15) - RCONST(12864) = (KAPHO2*0.41) - RCONST(12865) = (KAPNO) - RCONST(12866) = (KFPAN) - RCONST(12867) = (KRO2NO3*1.74) - RCONST(12868) = (1.00D-11*0.7*RO2) - RCONST(12869) = (1.00D-11*0.3*RO2) - RCONST(12870) = (6.52D-12) - RCONST(12871) = (6.52D-12*0.39) - RCONST(12872) = (6.52D-12*0.61) - RCONST(12873) = (j('ch3o2h')) - RCONST(12874) = (6.00D-12) - RCONST(12875) = (KBPAN) - RCONST(12876) = (KAPHO2*0.56) - RCONST(12877) = (KAPHO2*0.44) - RCONST(12878) = (KAPNO) - RCONST(12879) = (KFPAN) - RCONST(12880) = (KRO2NO3*1.74) - RCONST(12881) = (1.00D-11*RO2) - RCONST(12882) = (j('ch3o2h')) - RCONST(12883) = (6.50D-12) - RCONST(12884) = (j('ch3o2h')*2) - RCONST(12885) = (9.58D-12) - RCONST(12886) = (KBPAN+j('ch3o2h')) - RCONST(12887) = (5.98D-12) - RCONST(12888) = (1.36D-12) - RCONST(12889) = (j('ch3o2h')) - RCONST(12890) = (4.08D-12) - RCONST(12891) = (KBPAN) - RCONST(12892) = (4.85D-13) - RCONST(12893) = (KAPHO2*0.15) - RCONST(12894) = (KAPHO2*0.41) - RCONST(12895) = (KAPHO2*0.44) - RCONST(12896) = (KAPNO) - RCONST(12897) = (KFPAN) - RCONST(12898) = (KRO2NO3*1.74) - RCONST(12899) = (1.00D-11*0.3*RO2) - RCONST(12900) = (1.00D-11*0.7*RO2) - RCONST(12901) = (3.04D-12) - RCONST(12902) = (j('ch3o2h')) - RCONST(12903) = (6.12D-12) - RCONST(12904) = (KBPAN) - RCONST(12905) = (2.52D-12) - RCONST(12906) = (4.93D-12) - RCONST(12907) = (j('ch3coch2ono2')*10) - RCONST(12908) = (8.01D-12) - RCONST(12909) = (j('ch3coch2ono2')*10) - RCONST(12910) = (4.41D-12) - RCONST(12911) = (KBPAN+j('ch3coch2ono2')*10) - RCONST(12912) = (KRO2HO2*0.706) - RCONST(12913) = (KRO2NO) - RCONST(12914) = (KRO2NO3) - RCONST(12915) = (9.20D-14*RO2) - RCONST(12916) = (KRO2HO2*0.706) - RCONST(12917) = (KRO2NO) - RCONST(12918) = (KRO2NO3) - RCONST(12919) = (8.80D-13*RO2) - RCONST(12920) = (1.32D-11*0.728) - RCONST(12921) = (1.32D-11*0.272) - RCONST(12922) = (j('ch3o2h')) - RCONST(12923) = (2.43D-12) - RCONST(12924) = (1.80D+13*(TEMP/298)**1.7*EXP(-4079/TEMP)) - RCONST(12925) = (1.80D+13*(TEMP/298)**1.7*EXP(-4733/TEMP)) - RCONST(12926) = (9.60D-12) - RCONST(12927) = (1.37D-11) - RCONST(12928) = (j('ch3o2h')) - RCONST(12929) = (KDEC) - RCONST(12930) = (1.84D-11) - RCONST(12931) = (1.63D-11) - RCONST(12932) = (3.60D-12) - RCONST(12933) = (j('ch3o2h')) - RCONST(12934) = (2.90D-11) - RCONST(12935) = (KBPAN) - RCONST(12936) = (1.20D-15) - RCONST(12937) = (1.00D-14) - RCONST(12938) = (1.00D-15) - RCONST(12939) = (7.00D-14) - RCONST(12940) = (6.00D-18*H2O) - RCONST(12941) = (4.17D-11) - RCONST(12942) = (j('i_c3h7cho')) - RCONST(12943) = (j('ch3o2h')) - RCONST(12944) = (KDEC) - RCONST(12945) = (5.25D-12) - RCONST(12946) = (j('mek')) - RCONST(12947) = (3.82D-11) - RCONST(12948) = (j('i_c3h7cho')) - RCONST(12949) = (KAPHO2*0.44) - RCONST(12950) = (KAPHO2*0.15) - RCONST(12951) = (KAPHO2*0.41) - RCONST(12952) = (KAPNO) - RCONST(12953) = (KFPAN) - RCONST(12954) = (KRO2NO3*1.74) - RCONST(12955) = (1.00D-11*0.7*RO2) - RCONST(12956) = (1.00D-11*0.3*RO2) - RCONST(12957) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(12958) = (4.23D-12) - RCONST(12959) = (KBPAN) - RCONST(12960) = (3.12D-13) - RCONST(12961) = (KAPHO2*0.56) - RCONST(12962) = (KAPHO2*0.44) - RCONST(12963) = (KAPNO) - RCONST(12964) = (KFPAN) - RCONST(12965) = (KRO2NO3*1.74) - RCONST(12966) = (1.00D-11*RO2) - RCONST(12967) = (KRO2HO2*0.706) - RCONST(12968) = (KRO2NO) - RCONST(12969) = (KRO2NO3) - RCONST(12970) = (2.00D-12*RO2) - RCONST(12971) = (5.35D-12) - RCONST(12972) = (j('ch3o2h')) - RCONST(12973) = (1.76D-12) - RCONST(12974) = (KBPAN) - RCONST(12975) = (KAPHO2*0.15) - RCONST(12976) = (KAPHO2*0.41) - RCONST(12977) = (KAPHO2*0.44) - RCONST(12978) = (KAPNO) - RCONST(12979) = (KFPAN) - RCONST(12980) = (KRO2NO3*1.74) - RCONST(12981) = (1.00D-11*RO2*0.3) - RCONST(12982) = (1.00D-11*RO2*0.7) - RCONST(12983) = (KAPHO2*0.44) - RCONST(12984) = (KAPHO2*0.56) - RCONST(12985) = (KAPNO) - RCONST(12986) = (KFPAN) - RCONST(12987) = (KRO2NO3*1.74) - RCONST(12988) = (1.00D-11*RO2) - RCONST(12989) = (KAPHO2*0.44) - RCONST(12990) = (KAPHO2*0.56) - RCONST(12991) = (KAPNO) - RCONST(12992) = (KFPAN) - RCONST(12993) = (KRO2NO3*1.74) - RCONST(12994) = (1.00D-11*RO2) - RCONST(12995) = (KAPHO2*0.56) - RCONST(12996) = (KAPHO2*0.44) - RCONST(12997) = (KAPNO) - RCONST(12998) = (KFPAN) - RCONST(12999) = (KRO2NO3*1.74) - RCONST(13000) = (1.00D-11*RO2) - RCONST(13001) = (8.01D-11) - RCONST(13002) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(13003) = (7.03D-11) - RCONST(13004) = (j('2_c4h9ono2')+j('n_c3h7cho_hco')) - RCONST(13005) = (KDEC) - RCONST(13006) = (7.66D-11) - RCONST(13007) = (j('n_c3h7cho_hco')) - RCONST(13008) = (KRO2HO2*0.820) - RCONST(13009) = (KRO2NO) - RCONST(13010) = (KRO2NO3) - RCONST(13011) = (2.50D-13*RO2) - RCONST(13012) = (2.00D-10) - RCONST(13013) = (j('ch3o2h')+j('biacet')) - RCONST(13014) = (2.23D-11) - RCONST(13015) = (j('1_c4h9ono2')+j('biacet')) - RCONST(13016) = (KROSEC*O2) - RCONST(13017) = (1.26D-10) - RCONST(13018) = (j('biacet')) - RCONST(13019) = (1.04D-11) - RCONST(13020) = (j('ch3o2h')) - RCONST(13021) = (KRO2HO2*0.859) - RCONST(13022) = (KRO2NO*0.138) - RCONST(13023) = (KRO2NO*0.862) - RCONST(13024) = (KRO2NO3) - RCONST(13025) = (1.30D-12*RO2*0.2) - RCONST(13026) = (1.30D-12*RO2*0.6) - RCONST(13027) = (1.30D-12*RO2*0.2) - RCONST(13028) = (7.29D-12) - RCONST(13029) = (6.77D-12) - RCONST(13030) = (KBPAN) - RCONST(13031) = (KRO2HO2*0.625) - RCONST(13032) = (KRO2NO) - RCONST(13033) = (KRO2NO3) - RCONST(13034) = (2.00D-12*RO2) - RCONST(13035) = (1.29D-11) - RCONST(13036) = (j('ch3o2h')+j('mek')) - RCONST(13037) = (KDEC) - RCONST(13038) = (2.05D-11) - RCONST(13039) = (j('ch3o2h')+j('biacet')) - RCONST(13040) = (5.37D-12) - RCONST(13041) = (j('2_c4h9ono2')+j('biacet')) - RCONST(13042) = (KDEC) - RCONST(13043) = (1.69D-11) - RCONST(13044) = (j('biacet')) - RCONST(13045) = (3.45D-11) - RCONST(13046) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(13047) = (KDEC) - RCONST(13048) = (KAPHO2*0.44) - RCONST(13049) = (KAPHO2*0.15) - RCONST(13050) = (KAPHO2*0.41) - RCONST(13051) = (KAPNO) - RCONST(13052) = (KFPAN) - RCONST(13053) = (KRO2NO3*1.74) - RCONST(13054) = (1.00D-11*RO2*0.7) - RCONST(13055) = (1.00D-11*RO2*0.3) - RCONST(13056) = (KRO2HO2*0.770) - RCONST(13057) = (KRO2NO) - RCONST(13058) = (KRO2NO3) - RCONST(13059) = (2.00D-12*RO2*0.2) - RCONST(13060) = (2.00D-12*RO2*0.6) - RCONST(13061) = (2.00D-12*RO2*0.2) - RCONST(13062) = (1.01D-10) - RCONST(13063) = (j('ch3o2h')+j('n_c3h7cho_hco')*2) - RCONST(13064) = (9.14D-11) - RCONST(13065) = (j('2_c4h9ono2')+j('n_c3h7cho_hco')*2) - RCONST(13066) = (KDEC) - RCONST(13067) = (9.73D-11) - RCONST(13068) = (j('n_c3h7cho_hco')) - RCONST(13069) = (8.67D-11) - RCONST(13070) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(13071) = (KDEC) - RCONST(13072) = (7.09D-11) - RCONST(13073) = (j('n_c3h7cho_hco')) - RCONST(13074) = (7.44D-11) - RCONST(13075) = (9.73D-11) - RCONST(13076) = (j('ch3o2h')+j('n_c3h7cho_hco')*2) - RCONST(13077) = (9.23D-11) - RCONST(13078) = (j('1_c4h9ono2')+j('n_c3h7cho_hco')*2) - RCONST(13079) = (KDEC) - RCONST(13080) = (9.03D-11) - RCONST(13081) = (j('n_c3h7cho_hco')*2) - RCONST(13082) = (1.02D-11) - RCONST(13083) = (1.37D-11) - RCONST(13084) = (j('ch3o2h')) - RCONST(13085) = (7.50D-12) - RCONST(13086) = (KBPAN) - RCONST(13087) = (5.71D-11) - RCONST(13088) = (j('ch3o2h')) - RCONST(13089) = (KDEC) - RCONST(13090) = (5.80D-12) - RCONST(13091) = (2.58D-11) - RCONST(13092) = (1.01D-10) - RCONST(13093) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(13094) = (6.65D-11) - RCONST(13095) = (j('n_c3h7ono2')+j('n_c3h7cho_hco')) - RCONST(13096) = (8.40D+10*EXP(-2567/TEMP)) - RCONST(13097) = (KDEC) - RCONST(13098) = (7.96D-11) - RCONST(13099) = (j('n_c3h7cho_hco')) - RCONST(13100) = (5.95D-11) - RCONST(13101) = (j('ch3o2h')) - RCONST(13102) = (KDEC) - RCONST(13103) = (2.82D-11) - RCONST(13104) = (KRO2HO2*0.914) - RCONST(13105) = (KRO2NO*0.104) - RCONST(13106) = (KRO2NO*0.896) - RCONST(13107) = (KRO2NO3) - RCONST(13108) = (6.70D-15*RO2*0.7) - RCONST(13109) = (6.70D-15*RO2*0.3) - RCONST(13110) = (KNO3AL*5.5) - RCONST(13111) = (2.69D-11) - RCONST(13112) = (j('n_c3h7cho_hco')) - RCONST(13113) = (KRO2HO2*0.859) - RCONST(13114) = (KRO2NO) - RCONST(13115) = (KRO2NO3) - RCONST(13116) = (1.30D-12*0.2) - RCONST(13117) = (1.30D-12*0.6) - RCONST(13118) = (1.30D-12*0.2) - RCONST(13119) = (KAPHO2*0.56) - RCONST(13120) = (KAPHO2*0.44) - RCONST(13121) = (KAPNO) - RCONST(13122) = (KFPAN) - RCONST(13123) = (KRO2NO3*1.74) - RCONST(13124) = (1.00D-11*RO2) - RCONST(13125) = (3.19D-11) - RCONST(13126) = (j('n_c3h7cho_hco')) - RCONST(13127) = (3.50D-11) - RCONST(13128) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(13129) = (3.14D-11) - RCONST(13130) = (KBPAN) - RCONST(13131) = (4.38D-11) - RCONST(13132) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(13133) = (2.84D-11) - RCONST(13134) = (j('n_c3h7ono2')) - RCONST(13135) = (KDEC) - RCONST(13136) = (5.13D-11) - RCONST(13137) = (KNO3AL*8.5) - RCONST(13138) = (4.35D-11) - RCONST(13139) = (j('n_c3h7cho_hco')) - RCONST(13140) = (5.07D-11) - RCONST(13141) = (j('ch3o2h')) - RCONST(13142) = (j('mek')+j('n_c3h7cho_hco')*2) - RCONST(13143) = (KDEC) - RCONST(13144) = (4.73D-11) - RCONST(13145) = (j('mek')+j('n_c3h7cho_hco')*2) - RCONST(13146) = (KRO2HO2*0.770) - RCONST(13147) = (KRO2NO) - RCONST(13148) = (KRO2NO3) - RCONST(13149) = (9.20D-14*RO2*0.7) - RCONST(13150) = (9.20D-14*RO2*0.3) - RCONST(13151) = (KDEC) - RCONST(13152) = (KRO2HO2*0.770) - RCONST(13153) = (KRO2NO*0.031) - RCONST(13154) = (KRO2NO*0.969) - RCONST(13155) = (KRO2NO3) - RCONST(13156) = (9.20D-14*RO2*0.7) - RCONST(13157) = (9.20D-14*RO2*0.3) - RCONST(13158) = (KRO2HO2*0.770) - RCONST(13159) = (KRO2NO*0.078) - RCONST(13160) = (KRO2NO*0.922) - RCONST(13161) = (KRO2NO3) - RCONST(13162) = (1.30D-12*RO2*0.2) - RCONST(13163) = (1.30D-12*RO2*0.6) - RCONST(13164) = (1.30D-12*RO2*0.2) - RCONST(13165) = (9.71D-11) - RCONST(13166) = (j('ch3o2h')) - RCONST(13167) = (8.31D-11) - RCONST(13168) = (j('n_c3h7ono2')) - RCONST(13169) = (KDEC) - RCONST(13170) = (8.80D-11) - RCONST(13171) = (6.18D-11) - RCONST(13172) = (j('ch3o2h')) - RCONST(13173) = (KRO2HO2*0.859) - RCONST(13174) = (KRO2NO*0.138) - RCONST(13175) = (KRO2NO*0.862) - RCONST(13176) = (KRO2NO3) - RCONST(13177) = (1.30D-12*RO2*0.2) - RCONST(13178) = (1.30D-12*RO2*0.6) - RCONST(13179) = (1.30D-12*RO2*0.2) - RCONST(13180) = (5.89D-11) - RCONST(13181) = (5.82D-11) - RCONST(13182) = (KBPAN) - RCONST(13183) = (2.45D-11) - RCONST(13184) = (j('ch3o2h')) - RCONST(13185) = (KDEC) - RCONST(13186) = (6.00D-11) - RCONST(13187) = (6.31D-11) - RCONST(13188) = (j('ch3o2h')) - RCONST(13189) = (5.95D-11) - RCONST(13190) = (KBPAN) - RCONST(13191) = (KRO2HO2) - RCONST(13192) = (KRO2NO) - RCONST(13193) = (KRO2NO3) - RCONST(13194) = (9.20D-14*RO2) - RCONST(13195) = (KAPHO2*0.44) - RCONST(13196) = (KAPHO2*0.15) - RCONST(13197) = (KAPHO2*0.41) - RCONST(13198) = (KAPNO) - RCONST(13199) = (KFPAN) - RCONST(13200) = (KRO2NO3*1.74) - RCONST(13201) = (1.00D-11*RO2*0.7) - RCONST(13202) = (1.00D-11*RO2*0.3) - RCONST(13203) = (1.14D-11) - RCONST(13204) = (1.45D-11) - RCONST(13205) = (j('ch3o2h')) - RCONST(13206) = (KRO2HO2*0.914) - RCONST(13207) = (KRO2NO*0.228) - RCONST(13208) = (KRO2NO*0.772) - RCONST(13209) = (KRO2NO3) - RCONST(13210) = (2.50D-13*RO2*0.2) - RCONST(13211) = (2.50D-13*RO2*0.6) - RCONST(13212) = (2.50D-13*RO2*0.2) - RCONST(13213) = (1.09D-11) - RCONST(13214) = (KBPAN) - RCONST(13215) = (KDEC*0.1) - RCONST(13216) = (KDEC*0.9) - RCONST(13217) = (3.85D-11) - RCONST(13218) = (4.14D-11) - RCONST(13219) = (j('ch3o2h')) - RCONST(13220) = (3.78D-11) - RCONST(13221) = (KBPAN) - RCONST(13222) = (1.90D-11) - RCONST(13223) = (j('ch3o2h')) - RCONST(13224) = (KDEC) - RCONST(13225) = (1.55D-11) - RCONST(13226) = (5.89D-11) - RCONST(13227) = (6.18D-11) - RCONST(13228) = (j('ch3o2h')) - RCONST(13229) = (KRO2HO2*0.959) - RCONST(13230) = (KRO2NO*0.178) - RCONST(13231) = (KRO2NO*0.822) - RCONST(13232) = (KRO2NO3) - RCONST(13233) = (1.30D-12*RO2*0.2) - RCONST(13234) = (1.30D-12*RO2*0.6) - RCONST(13235) = (1.30D-12*RO2*0.2) - RCONST(13236) = (5.82D-11) - RCONST(13237) = (KBPAN) - RCONST(13238) = (1.13D-11) - RCONST(13239) = (1.44D-11) - RCONST(13240) = (j('ch3o2h')) - RCONST(13241) = (KRO2HO2*0.914) - RCONST(13242) = (KRO2NO*0.228) - RCONST(13243) = (KRO2NO*0.772) - RCONST(13244) = (KRO2NO3) - RCONST(13245) = (2.50D-13*RO2*0.2) - RCONST(13246) = (2.50D-13*RO2*0.6) - RCONST(13247) = (2.50D-13*RO2*0.2) - RCONST(13248) = (1.08D-11) - RCONST(13249) = (KBPAN) - RCONST(13250) = (KRO2HO2*0.914) - RCONST(13251) = (KRO2NO*0.125) - RCONST(13252) = (KRO2NO*0.875) - RCONST(13253) = (KRO2NO3) - RCONST(13254) = (6.70D-15*RO2*0.7) - RCONST(13255) = (6.70D-15*RO2*0.3) - RCONST(13256) = (1.02D-10) - RCONST(13257) = (j('ch3o2h')) - RCONST(13258) = (8.34D-11) - RCONST(13259) = (j('1_c4h9ono2')) - RCONST(13260) = (KDEC) - RCONST(13261) = (9.34D-11) - RCONST(13262) = (KRO2HO2*0.932) - RCONST(13263) = (KRO2NO*0.129) - RCONST(13264) = (KRO2NO*0.871) - RCONST(13265) = (KRO2NO3) - RCONST(13266) = (9.20D-14*RO2*0.7) - RCONST(13267) = (9.20D-14*RO2*0.3) - RCONST(13268) = (KAPHO2*0.15) - RCONST(13269) = (KAPHO2*0.41) - RCONST(13270) = (KAPHO2*0.44) - RCONST(13271) = (KAPNO) - RCONST(13272) = (KFPAN) - RCONST(13273) = (KRO2NO3*1.74) - RCONST(13274) = (1.00D-11*RO2*0.3) - RCONST(13275) = (1.00D-11*RO2*0.7) - RCONST(13276) = (8.69D-11) - RCONST(13277) = (j('ch3o2h')) - RCONST(13278) = (5.82D-11) - RCONST(13279) = (j('2_c4h9ono2')) - RCONST(13280) = (KDEC) - RCONST(13281) = (7.47D-11) - RCONST(13282) = (KRO2HO2*0.968) - RCONST(13283) = (KRO2NO) - RCONST(13284) = (KRO2NO3) - RCONST(13285) = (9.20D-14*RO2*0.7) - RCONST(13286) = (9.20D-14*RO2*0.3) - RCONST(13287) = (KRO2HO2*0.890) - RCONST(13288) = (KRO2NO*0.118) - RCONST(13289) = (KRO2NO*0.872) - RCONST(13290) = (KRO2NO3) - RCONST(13291) = (6.70D-15*RO2*0.7) - RCONST(13292) = (6.70D-15*RO2*0.3) - RCONST(13293) = (8.69D-11) - RCONST(13294) = (j('ch3o2h')) - RCONST(13295) = (5.82D-11) - RCONST(13296) = (j('1_c4h9ono2')) - RCONST(13297) = (KROSEC*O2) - RCONST(13298) = (2.70D+14*EXP(-6643/TEMP)) - RCONST(13299) = (7.47D-11) - RCONST(13300) = (KRO2HO2*0.947) - RCONST(13301) = (KRO2NO) - RCONST(13302) = (KRO2NO3) - RCONST(13303) = (9.20D-14*RO2*0.7) - RCONST(13304) = (9.20D-14*RO2*0.3) - RCONST(13305) = (KRO2HO2*0.706) - RCONST(13306) = (KRO2NO) - RCONST(13307) = (KRO2NO3) - RCONST(13308) = (8.80D-13*RO2) - RCONST(13309) = (KRO2HO2*0.770) - RCONST(13310) = (KRO2NO) - RCONST(13311) = (KRO2NO3) - RCONST(13312) = (8.80D-13*RO2) - RCONST(13313) = (j('ch3o2h')) - RCONST(13314) = (3.01D-11) - RCONST(13315) = (1.90D-12*EXP(190/TEMP)) - RCONST(13316) = (1.19D-11) - RCONST(13317) = (2.00D+14*EXP(-5556/TEMP)) - RCONST(13318) = (2.46D-11) - RCONST(13319) = (j('n_c3h7cho_hco')) - RCONST(13320) = (KNO3AL*5.5) - RCONST(13321) = (4.03D-11) - RCONST(13322) = (KAPHO2*0.56) - RCONST(13323) = (KAPHO2*0.44) - RCONST(13324) = (KAPNO) - RCONST(13325) = (KFPAN) - RCONST(13326) = (KRO2NO3) - RCONST(13327) = (1.00D-11*RO2) - RCONST(13328) = (j('ch3o2h')+j('mek')) - RCONST(13329) = (1.32D-11) - RCONST(13330) = (KDEC) - RCONST(13331) = (j('ch3o2h')+j('mek')) - RCONST(13332) = (5.33D-12) - RCONST(13333) = (KBPAN) - RCONST(13334) = (1.41D-12) - RCONST(13335) = (KRO2HO2*0.820) - RCONST(13336) = (KRO2NO) - RCONST(13337) = (KRO2NO3) - RCONST(13338) = (8.80D-13*RO2) - RCONST(13339) = (KRO2HO2*0.820) - RCONST(13340) = (KRO2NO) - RCONST(13341) = (KRO2NO3) - RCONST(13342) = (8.80D-13*RO2) - RCONST(13343) = (j('ch3o2h')) - RCONST(13344) = (3.99D-11) - RCONST(13345) = (KBPAN) - RCONST(13346) = (1.35D-11) - RCONST(13347) = (j('ch3o2h')) - RCONST(13348) = (j('mek')*2) - RCONST(13349) = (3.55D-11) - RCONST(13350) = (2.00D+14*EXP(-5489/TEMP)) - RCONST(13351) = (KRO2HO2*0.820) - RCONST(13352) = (KRO2NO) - RCONST(13353) = (KRO2NO3) - RCONST(13354) = (9.20D-14*RO2) - RCONST(13355) = (j('ch3o2h')) - RCONST(13356) = (6.08D-12) - RCONST(13357) = (KBPAN) - RCONST(13358) = (1.97D-12) - RCONST(13359) = (j('ch3o2h')) - RCONST(13360) = (2.97D-11) - RCONST(13361) = (6.00D-12) - RCONST(13362) = (2.00D+14*EXP(-4909/TEMP)) - RCONST(13363) = (1.45D-11) - RCONST(13364) = (j('mek')) - RCONST(13365) = (9.41D-12) - RCONST(13366) = (KRO2HO2*0.859) - RCONST(13367) = (KRO2NO) - RCONST(13368) = (KRO2NO3) - RCONST(13369) = (8.80D-13*RO2) - RCONST(13370) = (j('ch3o2h')) - RCONST(13371) = (3.99D-11) - RCONST(13372) = (KBPAN) - RCONST(13373) = (1.33D-11) - RCONST(13374) = (KRO2HO2*0.890) - RCONST(13375) = (KRO2NO) - RCONST(13376) = (KRO2NO3) - RCONST(13377) = (8.80D-13*RO2) - RCONST(13378) = (j('ch3o2h')) - RCONST(13379) = (4.13D-11) - RCONST(13380) = (KBPAN) - RCONST(13381) = (1.49D-11) - RCONST(13382) = (KRO2HO2*0.914) - RCONST(13383) = (KRO2NO) - RCONST(13384) = (KRO2NO3) - RCONST(13385) = (8.80D-13*RO2) - RCONST(13386) = (j('ch3o2h')) - RCONST(13387) = (4.27D-11) - RCONST(13388) = (KBPAN) - RCONST(13389) = (1.63D-11) - RCONST(13390) = (KRO2HO2*0.932) - RCONST(13391) = (KRO2NO) - RCONST(13392) = (KRO2NO3) - RCONST(13393) = (8.80D-13*RO2) - RCONST(13394) = (j('ch3o2h')) - RCONST(13395) = (4.41D-11) - RCONST(13396) = (KBPAN) - RCONST(13397) = (1.77D-11) - RCONST(13398) = (KRO2HO2*0.947) - RCONST(13399) = (KRO2NO) - RCONST(13400) = (KRO2NO3) - RCONST(13401) = (8.80D-13*RO2) - RCONST(13402) = (j('ch3o2h')) - RCONST(13403) = (4.55D-11) - RCONST(13404) = (KBPAN) - RCONST(13405) = (1.91D-11) - RCONST(13406) = (KDEC) - RCONST(13407) = (KAPHO2*0.56) - RCONST(13408) = (KAPHO2*0.44) - RCONST(13409) = (KAPNO) - RCONST(13410) = (KFPAN) - RCONST(13411) = (KRO2NO3*1.74) - RCONST(13412) = (1.00D-11*RO2) - RCONST(13413) = (8.01D-11) - RCONST(13414) = (j('ch3o2h')) - RCONST(13415) = (7.66D-11) - RCONST(13416) = (KBPAN) - RCONST(13417) = (KAPHO2*0.56) - RCONST(13418) = (KAPHO2*0.44) - RCONST(13419) = (KAPNO) - RCONST(13420) = (KFPAN) - RCONST(13421) = (KRO2NO3*1.74) - RCONST(13422) = (1.00D-11*RO2) - RCONST(13423) = (9.29D-11) - RCONST(13424) = (j('ch3o2h')) - RCONST(13425) = (8.96D-11) - RCONST(13426) = (KBPAN) - RCONST(13427) = (KDEC) - RCONST(13428) = (3.59D-12) - RCONST(13429) = (j('ch3o2h')) - RCONST(13430) = (1.00D-14) - RCONST(13431) = (KBPAN) - RCONST(13432) = (KAPHO2*0.56) - RCONST(13433) = (KAPHO2*0.44) - RCONST(13434) = (KAPNO) - RCONST(13435) = (KFPAN) - RCONST(13436) = (KRO2NO3*1.74) - RCONST(13437) = (1.00D-11*RO2) - RCONST(13438) = (9.83D-11) - RCONST(13439) = (j('ch3o2h')) - RCONST(13440) = (9.51D-11) - RCONST(13441) = (KBPAN) - RCONST(13442) = (4.16D-12) - RCONST(13443) = (j('ch3o2h')+j('biacet')) - RCONST(13444) = (5.66D-13) - RCONST(13445) = (KBPAN) - RCONST(13446) = (6.58D-12) - RCONST(13447) = (9.69D-12) - RCONST(13448) = (j('ch3o2h')) - RCONST(13449) = (6.46D-12) - RCONST(13450) = (KBPAN) - RCONST(13451) = (8.76D-13) - RCONST(13452) = (4.34D-12) - RCONST(13453) = (j('ch3o2h')) - RCONST(13454) = (7.36D-13) - RCONST(13455) = (KBPAN) - RCONST(13456) = (2.15D-11) - RCONST(13457) = (j('mek')+j('ch3cocho')) - RCONST(13458) = (2.75D-11) - RCONST(13459) = (j('ch3o2h')) - RCONST(13460) = (2.42D-11) - RCONST(13461) = (KBPAN) - RCONST(13462) = (KAPHO2*0.56) - RCONST(13463) = (KAPHO2*0.44) - RCONST(13464) = (KAPNO) - RCONST(13465) = (KFPAN) - RCONST(13466) = (KRO2NO3*1.74) - RCONST(13467) = (1.00D-11*RO2) - RCONST(13468) = (2.75D-11) - RCONST(13469) = (j('ch3o2h')) - RCONST(13470) = (2.42D-11) - RCONST(13471) = (KBPAN) - RCONST(13472) = (KAPHO2*0.44) - RCONST(13473) = (KAPHO2*0.56) - RCONST(13474) = (KAPNO) - RCONST(13475) = (KFPAN) - RCONST(13476) = (KRO2NO3*1.74) - RCONST(13477) = (1.00D-11*RO2) - RCONST(13478) = (9.46D-11) - RCONST(13479) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(13480) = (9.14D-11) - RCONST(13481) = (KBPAN) - RCONST(13482) = (KDEC) - RCONST(13483) = (6.09D-12) - RCONST(13484) = (j('ch3o2h')+j('biacet')*2) - RCONST(13485) = (2.49D-12) - RCONST(13486) = (KBPAN) - RCONST(13487) = (KAPHO2*0.44) - RCONST(13488) = (KAPHO2*0.56) - RCONST(13489) = (KAPNO) - RCONST(13490) = (KFPAN) - RCONST(13491) = (KRO2NO3*1.74) - RCONST(13492) = (1.00D-11*RO2) - RCONST(13493) = (9.62D-11) - RCONST(13494) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(13495) = (9.29D-11) - RCONST(13496) = (KBPAN) - RCONST(13497) = (KDEC) - RCONST(13498) = (KAPHO2*0.56) - RCONST(13499) = (KAPHO2*0.44) - RCONST(13500) = (KAPNO) - RCONST(13501) = (KFPAN) - RCONST(13502) = (KRO2NO3*1.74) - RCONST(13503) = (1.00D-11*RO2) - RCONST(13504) = (9.68D-11) - RCONST(13505) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(13506) = (9.35D-11) - RCONST(13507) = (KBPAN) - RCONST(13508) = (KDEC) - RCONST(13509) = (4.60D-12) - RCONST(13510) = (j('ch3o2h')) - RCONST(13511) = (KDEC) - RCONST(13512) = (4.79D-12) - RCONST(13513) = (j('ch3o2h')) - RCONST(13514) = (KDEC) - RCONST(13515) = (1.34D-12) - RCONST(13516) = (3.30D-11) - RCONST(13517) = (j('ch3o2h')) - RCONST(13518) = (2.97D-11) - RCONST(13519) = (KBPAN) - RCONST(13520) = (1.48D-11) - RCONST(13521) = (j('biacet')) - RCONST(13522) = (j('ch3cocho')) - RCONST(13523) = (KAPHO2*0.56) - RCONST(13524) = (KAPHO2*0.44) - RCONST(13525) = (KAPNO) - RCONST(13526) = (KFPAN) - RCONST(13527) = (KRO2NO3*1.74) - RCONST(13528) = (1.00D-11*RO2) - RCONST(13529) = (1.00D-10) - RCONST(13530) = (j('ch3o2h')) - RCONST(13531) = (9.68D-11) - RCONST(13532) = (KBPAN) - RCONST(13533) = (KAPHO2*0.56) - RCONST(13534) = (KAPHO2*0.44) - RCONST(13535) = (KAPNO) - RCONST(13536) = (KFPAN) - RCONST(13537) = (KRO2NO3*1.74) - RCONST(13538) = (1.00D-11*RO2) - RCONST(13539) = (2.92D-11) - RCONST(13540) = (j('ch3o2h')) - RCONST(13541) = (2.56D-11) - RCONST(13542) = (KBPAN) - RCONST(13543) = (KAPHO2*0.56) - RCONST(13544) = (KAPHO2*0.44) - RCONST(13545) = (KAPNO) - RCONST(13546) = (KFPAN) - RCONST(13547) = (KRO2NO3*1.74) - RCONST(13548) = (1.00D-11*RO2) - RCONST(13549) = (2.86D-11) - RCONST(13550) = (j('ch3o2h')) - RCONST(13551) = (2.54D-11) - RCONST(13552) = (KBPAN) - RCONST(13553) = (1.11D-11) - RCONST(13554) = (1.42D-11) - RCONST(13555) = (j('ch3o2h')) - RCONST(13556) = (1.10D-11) - RCONST(13557) = (KBPAN) - RCONST(13558) = (1.46D-10) - RCONST(13559) = (j('ch3o2h')) - RCONST(13560) = (KDEC) - RCONST(13561) = (2.62D-11) - RCONST(13562) = (j('ch3cocho')) - RCONST(13563) = (KAPHO2*0.56) - RCONST(13564) = (KAPHO2*0.44) - RCONST(13565) = (KAPNO) - RCONST(13566) = (KFPAN) - RCONST(13567) = (KRO2NO3*1.6) - RCONST(13568) = (1.00D-11*RO2) - RCONST(13569) = (KRO2HO2*0.706) - RCONST(13570) = (KRO2NO) - RCONST(13571) = (KRO2NO3) - RCONST(13572) = (8.80D-13*RO2) - RCONST(13573) = (7.71D-12) - RCONST(13574) = (j('ch3coch2ono2')*10) - RCONST(13575) = (4.11D-12) - RCONST(13576) = (KBPAN+j('ch3coch2ono2')*10) - RCONST(13577) = (7.40D-12) - RCONST(13578) = (1.09D-11) - RCONST(13579) = (j('ch3o2h')) - RCONST(13580) = (7.26D-12) - RCONST(13581) = (KBPAN) - RCONST(13582) = (1.72D-12) - RCONST(13583) = (5.18D-12) - RCONST(13584) = (j('ch3o2h')) - RCONST(13585) = (1.58D-12) - RCONST(13586) = (KBPAN) - RCONST(13587) = (1.73D-12) - RCONST(13588) = (5.19D-12) - RCONST(13589) = (j('ch3o2h')) - RCONST(13590) = (1.59D-12) - RCONST(13591) = (KBPAN) - RCONST(13592) = (2.23D-11) - RCONST(13593) = (j('ch3coch2ono2')*0.91) - RCONST(13594) = (2.59D-11) - RCONST(13595) = (j('ch3coch2ono2')*0.91) - RCONST(13596) = (2.18D-11) - RCONST(13597) = (KBPAN+j('ch3coch2ono2')*0.91) - RCONST(13598) = (8.64D-12) - RCONST(13599) = (j('ch3o2h')*2) - RCONST(13600) = (5.04D-12) - RCONST(13601) = (KBPAN+j('ch3o2h')) - RCONST(13602) = (j('ch3coch2ono2')*1.6) - RCONST(13603) = (9.35D-13) - RCONST(13604) = (j('ch3coch2ono2')*1.6) - RCONST(13605) = (4.02D-12) - RCONST(13606) = (j('ch3coch2ono2')*1.6+KBPAN) - RCONST(13607) = (4.15D-13) - RCONST(13608) = (4.30D-11) - RCONST(13609) = (j('ch3o2h')) - RCONST(13610) = (j('i_c3h7cho')) - RCONST(13611) = (KDEC) - RCONST(13612) = (5.74D-11) - RCONST(13613) = (j('ch3o2h')) - RCONST(13614) = (j('n_c3h7cho_hco')) - RCONST(13615) = (KDEC) - RCONST(13616) = (2.98D-11) - RCONST(13617) = (j('ch3coch2ono2')*0.91) - RCONST(13618) = (1.93D-11) - RCONST(13619) = (j('ch3coch2ono2')*0.91) - RCONST(13620) = (3.85D-12) - RCONST(13621) = (j('ch3coch2ono2')*1.6) - RCONST(13622) = (2.67D-11) - RCONST(13623) = (j('ch3coch2ono2')*0.91) - RCONST(13624) = (9.90D-13) - RCONST(13625) = (4.55D-12) - RCONST(13626) = (j('ch3o2h')) - RCONST(13627) = (9.55D-13) - RCONST(13628) = (KBPAN) - RCONST(13629) = (j('ch3o2h')) - RCONST(13630) = (1.86D-11) - RCONST(13631) = (KBPAN) - RCONST(13632) = (8.22D-12) - RCONST(13633) = (1.31D-11) - RCONST(13634) = (j('ch3o2h')) - RCONST(13635) = (KDEC) - RCONST(13636) = (2.64D-11) - RCONST(13637) = (3.00D-11) - RCONST(13638) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(13639) = (2.64D-11) - RCONST(13640) = (KBPAN) - RCONST(13641) = (7.55D-11) - RCONST(13642) = (j('ch3o2h')+j('mek')+j('n_c3h7cho_hco')) - RCONST(13643) = (7.19D-11) - RCONST(13644) = (KBPAN) - RCONST(13645) = (KRO2HO2*0.706) - RCONST(13646) = (KRO2NO) - RCONST(13647) = (KRO2NO3) - RCONST(13648) = (2.00D-12*RO2) - RCONST(13649) = (1.68D-11) - RCONST(13650) = (j('ch3o2h')+j('mek')+j('ch3cocho')) - RCONST(13651) = (1.32D-11) - RCONST(13652) = (KBPAN) - RCONST(13653) = (4.75D-12) - RCONST(13654) = (j('ch3o2h')+j('biacet')) - RCONST(13655) = (KRO2HO2*0.770) - RCONST(13656) = (KRO2NO) - RCONST(13657) = (KRO2NO3) - RCONST(13658) = (2.00D-12*RO2) - RCONST(13659) = (8.83D-13) - RCONST(13660) = (KBPAN) - RCONST(13661) = (KRO2HO2*0.820) - RCONST(13662) = (KRO2NO) - RCONST(13663) = (KRO2NO3) - RCONST(13664) = (8.80D-13*0.6*RO2) - RCONST(13665) = (8.80D-13*0.2*RO2) - RCONST(13666) = (8.80D-13*0.2*RO2) - RCONST(13667) = (3.25D-11) - RCONST(13668) = (j('ch3o2h')) - RCONST(13669) = (4.00D+04) - RCONST(13670) = (KROSEC*O2) - RCONST(13671) = (1.70D-11) - RCONST(13672) = (j('ch3o2h')) - RCONST(13673) = (3.29D-12) - RCONST(13674) = (j('n_c3h7ono2')) - RCONST(13675) = (KDEC) - RCONST(13676) = (KNO3AL*8.5) - RCONST(13677) = (2.63D-11) - RCONST(13678) = (j('n_c3h7cho_hco')) - RCONST(13679) = (7.89D-12) - RCONST(13680) = (8.33D-11) - RCONST(13681) = (j('ch3o2h')+j('mek')+j('n_c3h7cho_hco')) - RCONST(13682) = (KDEC) - RCONST(13683) = (KRO2HO2*0.890) - RCONST(13684) = (KRO2NO) - RCONST(13685) = (KRO2NO3) - RCONST(13686) = (6.70D-15*RO2) - RCONST(13687) = (3.22D-12) - RCONST(13688) = (j('mek')) - RCONST(13689) = (KRO2HO2*0.770) - RCONST(13690) = (KRO2NO*0.098) - RCONST(13691) = (KRO2NO*0.902) - RCONST(13692) = (KRO2NO3) - RCONST(13693) = (8.80D-13*0.2*RO2) - RCONST(13694) = (8.80D-13*0.6*RO2) - RCONST(13695) = (8.80D-13*0.2*RO2) - RCONST(13696) = (KRO2HO2*0.706) - RCONST(13697) = (KRO2NO) - RCONST(13698) = (KRO2NO3) - RCONST(13699) = (8.80D-13*RO2) - RCONST(13700) = (2.39D-11) - RCONST(13701) = (j('mek')*2) - RCONST(13702) = (2.70D-11) - RCONST(13703) = (j('ch3o2h')+j('mek')*2) - RCONST(13704) = (2.29D-11) - RCONST(13705) = (KBPAN) - RCONST(13706) = (3.23D-11) - RCONST(13707) = (j('ch3o2h')+j('mek')*2) - RCONST(13708) = (KDEC) - RCONST(13709) = (3.55D-11) - RCONST(13710) = (j('ch3cocho')) - RCONST(13711) = (2.54D-11*0.890) - RCONST(13712) = (2.54D-11*0.110) - RCONST(13713) = (j('mek')*2) - RCONST(13714) = (KRO2HO2*0.770) - RCONST(13715) = (KRO2NO) - RCONST(13716) = (KRO2NO3) - RCONST(13717) = (8.80D-13*RO2*0.2) - RCONST(13718) = (8.80D-13*RO2*0.6) - RCONST(13719) = (8.80D-13*RO2*0.2) - RCONST(13720) = (KAPHO2*0.15) - RCONST(13721) = (KAPHO2*0.41) - RCONST(13722) = (KAPHO2*0.44) - RCONST(13723) = (KAPNO) - RCONST(13724) = (KFPAN) - RCONST(13725) = (KRO2NO3*1.74) - RCONST(13726) = (1.00D-11*RO2*0.3) - RCONST(13727) = (1.00D-11*RO2*0.7) - RCONST(13728) = (2*KNO3AL*5.5) - RCONST(13729) = (3.89D-11) - RCONST(13730) = (j('ch3cocho')+j('n_c3h7cho_hco')+j('biacet')) - RCONST(13731) = (KRO2HO2*0.770) - RCONST(13732) = (KRO2NO) - RCONST(13733) = (KRO2NO3) - RCONST(13734) = (8.80D-13*RO2*0.6) - RCONST(13735) = (8.80D-13*RO2*0.2) - RCONST(13736) = (8.80D-13*RO2*0.2) - RCONST(13737) = (KAPHO2*0.15) - RCONST(13738) = (KAPHO2*0.41) - RCONST(13739) = (KAPHO2*0.44) - RCONST(13740) = (KAPNO) - RCONST(13741) = (KFPAN) - RCONST(13742) = (KRO2NO3*1.74) - RCONST(13743) = (1.00D-11*0.3*RO2) - RCONST(13744) = (1.00D-11*0.7*RO2) - RCONST(13745) = (KRO2HO2*0.706) - RCONST(13746) = (KRO2NO) - RCONST(13747) = (KRO2NO3) - RCONST(13748) = (8.80D-13*RO2*0.2) - RCONST(13749) = (8.80D-13*RO2*0.6) - RCONST(13750) = (8.80D-13*RO2*0.2) - RCONST(13751) = (6.69D-11) - RCONST(13752) = (j('ch3cocho')+j('n_c3h7cho_hco')) - RCONST(13753) = (8.35D-11) - RCONST(13754) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(13755) = (4.96D-11) - RCONST(13756) = (j('2_c4h9ono2')+j('n_c3h7cho_hco')) - RCONST(13757) = (2.70D+14*EXP(-6643/TEMP)) - RCONST(13758) = (8.00D-11) - RCONST(13759) = (j('n_c3h7cho_hco')) - RCONST(13760) = (KAPHO2*0.44) - RCONST(13761) = (KAPHO2*0.15) - RCONST(13762) = (KAPHO2*0.41) - RCONST(13763) = (KAPNO) - RCONST(13764) = (KFPAN) - RCONST(13765) = (KRO2NO3*1.74) - RCONST(13766) = (1.00D-11*RO2*0.7) - RCONST(13767) = (KRO2HO2*0.770) - RCONST(13768) = (KRO2NO) - RCONST(13769) = (KRO2NO3) - RCONST(13770) = (2.50D-12*RO2*0.6) - RCONST(13771) = (2.50D-12*RO2*0.2) - RCONST(13772) = (2.50D-12*RO2*0.2) - RCONST(13773) = (3.94D-11) - RCONST(13774) = (j('mek')*2) - RCONST(13775) = (j('ch3o2h')) - RCONST(13776) = (KDEC) - RCONST(13777) = (1.41D-11) - RCONST(13778) = (2.72D-11) - RCONST(13779) = (j('mek')*2) - RCONST(13780) = (1.05D-11) - RCONST(13781) = (j('mek')*2+j('ch3o2h')) - RCONST(13782) = (KRO2HO2*0.820) - RCONST(13783) = (KRO2NO) - RCONST(13784) = (KRO2NO3) - RCONST(13785) = (8.80D-13*RO2) - RCONST(13786) = (6.89D-12) - RCONST(13787) = (KBPAN) - RCONST(13788) = (KAPHO2*0.56) - RCONST(13789) = (KAPHO2*0.44) - RCONST(13790) = (KAPNO) - RCONST(13791) = (KFPAN) - RCONST(13792) = (KRO2NO3*1.74) - RCONST(13793) = (1.00D-11*RO2) - RCONST(13794) = (KAPHO2*0.15) - RCONST(13795) = (KAPHO2*0.41) - RCONST(13796) = (KAPHO2*0.44) - RCONST(13797) = (KAPNO) - RCONST(13798) = (KFPAN) - RCONST(13799) = (KRO2NO3*1.74) - RCONST(13800) = (1.00D-11*RO2*0.3) - RCONST(13801) = (1.00D-11*RO2*0.7) - RCONST(13802) = (KRO2HO2*0.706) - RCONST(13803) = (KRO2NO*0.052) - RCONST(13804) = (KRO2NO*0.948) - RCONST(13805) = (KRO2NO3) - RCONST(13806) = (1.30D-12*RO2*0.6) - RCONST(13807) = (1.30D-12*RO2*0.2) - RCONST(13808) = (1.30D-12*RO2*0.2) - RCONST(13809) = (3.94D-11) - RCONST(13810) = (j('ch3o2h')) - RCONST(13811) = (KDEC) - RCONST(13812) = (3.59D-11) - RCONST(13813) = (KRO2HO2*0.770) - RCONST(13814) = (KRO2NO) - RCONST(13815) = (KRO2NO3) - RCONST(13816) = (9.20D-14*RO2*0.7) - RCONST(13817) = (9.20D-14*RO2*0.3) - RCONST(13818) = (4.52D-11) - RCONST(13819) = (j('ch3o2h')) - RCONST(13820) = (3.28D-11) - RCONST(13821) = (KDEC) - RCONST(13822) = (4.18D-11) - RCONST(13823) = (7.17D-11) - RCONST(13824) = (j('ch3o2h')) - RCONST(13825) = (5.64D-11) - RCONST(13826) = (j('n_c3h7ono2')) - RCONST(13827) = (KROPRIM*O2) - RCONST(13828) = (KNO3AL*8.5) - RCONST(13829) = (3.30D-13) - RCONST(13830) = (1.30D-17*0.670) - RCONST(13831) = (1.30D-17*0.330) - RCONST(13832) = (8.70D-11*0.288) - RCONST(13833) = (8.70D-11*0.712) - RCONST(13834) = (j('n_c3h7cho_hco')) - RCONST(13835) = (6.29D-11) - RCONST(13836) = (KRO2HO2*0.859) - RCONST(13837) = (KRO2NO) - RCONST(13838) = (KRO2NO3) - RCONST(13839) = (8.80D-12*RO2*0.2) - RCONST(13840) = (8.80D-12*RO2*0.6) - RCONST(13841) = (8.80D-12*RO2*0.2) - RCONST(13842) = (7.06D-11) - RCONST(13843) = (j('ch3o2h')) - RCONST(13844) = (5.53D-11) - RCONST(13845) = (j('n_c3h7ono2')) - RCONST(13846) = (KDEC) - RCONST(13847) = (7.70D-11) - RCONST(13848) = (j('n_c3h7cho_hco')) - RCONST(13849) = (6.16D-11) - RCONST(13850) = (1.35D-11) - RCONST(13851) = (j('mek')*2+j('ch3o2h')) - RCONST(13852) = (KDEC) - RCONST(13853) = (KDEC*0.2) - RCONST(13854) = (KDEC*0.8) - RCONST(13855) = (3.88D-11) - RCONST(13856) = (4.18D-11) - RCONST(13857) = (j('ch3o2h')) - RCONST(13858) = (3.82D-11) - RCONST(13859) = (KBPAN) - RCONST(13860) = (1.41D-11) - RCONST(13861) = (j('ch3o2h')) - RCONST(13862) = (6.04D-12) - RCONST(13863) = (j('1_c4h9ono2')) - RCONST(13864) = (KDEC) - RCONST(13865) = (7.01D-12) - RCONST(13866) = (9.07D-12) - RCONST(13867) = (KAPHO2*0.15) - RCONST(13868) = (KAPHO2*0.41) - RCONST(13869) = (KAPHO2*0.44) - RCONST(13870) = (KAPNO) - RCONST(13871) = (KFPAN) - RCONST(13872) = (KRO2NO3*1.74) - RCONST(13873) = (1.00D-11*RO2*0.3) - RCONST(13874) = (1.00D-11*RO2*0.7) - RCONST(13875) = (KRO2HO2*0.959) - RCONST(13876) = (KRO2NO*0.243) - RCONST(13877) = (KRO2NO*0.757) - RCONST(13878) = (KRO2NO3) - RCONST(13879) = (2.50D-13*RO2*0.2) - RCONST(13880) = (2.50D-13*RO2*0.6) - RCONST(13881) = (2.50D-13*RO2*0.2) - RCONST(13882) = (7.06D-11) - RCONST(13883) = (j('ch3o2h')) - RCONST(13884) = (5.53D-11) - RCONST(13885) = (j('n_c3h7ono2')) - RCONST(13886) = (KDEC) - RCONST(13887) = (7.70D-11) - RCONST(13888) = (j('n_c3h7cho_hco')) - RCONST(13889) = (6.16D-11) - RCONST(13890) = (1.40D-11) - RCONST(13891) = (j('ch3o2h')) - RCONST(13892) = (5.94D-11) - RCONST(13893) = (j('1_c4h9ono2')) - RCONST(13894) = (KDEC) - RCONST(13895) = (6.91D-12) - RCONST(13896) = (9.00D-12) - RCONST(13897) = (8.18D-11) - RCONST(13898) = (j('ch3o2h')) - RCONST(13899) = (7.42D-11) - RCONST(13900) = (j('2_c4h9ono2')) - RCONST(13901) = (KDEC) - RCONST(13902) = (7.82D-11) - RCONST(13903) = (3.51D-11) - RCONST(13904) = (j('ch3o2h')) - RCONST(13905) = (2.80D-11) - RCONST(13906) = (j('2_c4h9ono2')) - RCONST(13907) = (KDEC) - RCONST(13908) = (3.16D-11) - RCONST(13909) = (3.14D-11) - RCONST(13910) = (3.45D-11) - RCONST(13911) = (j('ch3o2h')) - RCONST(13912) = (KRO2HO2*0.914) - RCONST(13913) = (KRO2NO*0.192) - RCONST(13914) = (KRO2NO*0.808) - RCONST(13915) = (KRO2NO3) - RCONST(13916) = (2.50D-13*RO2*0.2) - RCONST(13917) = (2.50D-13*RO2*0.6) - RCONST(13918) = (2.50D-13*RO2*0.2) - RCONST(13919) = (3.09D-11) - RCONST(13920) = (KBPAN) - RCONST(13921) = (7.41D-11) - RCONST(13922) = (j('mek')) - RCONST(13923) = (KRO2HO2*0.947) - RCONST(13924) = (KRO2NO*0.245) - RCONST(13925) = (KRO2NO*0.755) - RCONST(13926) = (KRO2NO3) - RCONST(13927) = (2.50D-13*RO2*0.2) - RCONST(13928) = (2.50D-13*RO2*0.6) - RCONST(13929) = (2.50D-13*RO2*0.2) - RCONST(13930) = (2.72D-11) - RCONST(13931) = (j('ch3o2h')) - RCONST(13932) = (KDEC) - RCONST(13933) = (2.37D-11) - RCONST(13934) = (8.69D-11) - RCONST(13935) = (j('ch3o2h')) - RCONST(13936) = (5.82D-11) - RCONST(13937) = (j('2_c4h9ono2')) - RCONST(13938) = (KDEC) - RCONST(13939) = (7.47D-11) - RCONST(13940) = (4.59D-11) - RCONST(13941) = (j('ch3o2h')) - RCONST(13942) = (KDEC) - RCONST(13943) = (3.68D-11) - RCONST(13944) = (5.84D-11) - RCONST(13945) = (j('i_c3h7cho')) - RCONST(13946) = (j('ch3o2h')) - RCONST(13947) = (KDEC) - RCONST(13948) = (7.37D-11) - RCONST(13949) = (j('n_c3h7cho_hco')+j('biacet')+j('ch3o2h')) - RCONST(13950) = (KDEC) - RCONST(13951) = (KAPHO2*0.56) - RCONST(13952) = (KAPHO2*0.44) - RCONST(13953) = (KAPNO) - RCONST(13954) = (KFPAN) - RCONST(13955) = (KRO2NO3*1.74) - RCONST(13956) = (1.00D-11*RO2) - RCONST(13957) = (j('ch3o2h')) - RCONST(13958) = (5.32D-12) - RCONST(13959) = (KBPAN) - RCONST(13960) = (1.07D-12) - RCONST(13961) = (j('ch3o2h')+j('biacet')) - RCONST(13962) = (j('mek')) - RCONST(13963) = (1.70D-11) - RCONST(13964) = (KDEC) - RCONST(13965) = (j('ch3o2h')) - RCONST(13966) = (j('biacet')) - RCONST(13967) = (1.70D-11) - RCONST(13968) = (KDEC) - RCONST(13969) = (j('ch3o2h')) - RCONST(13970) = (j('mek')*2) - RCONST(13971) = (5.46D-12) - RCONST(13972) = (KDEC) - RCONST(13973) = (KRO2HO2*0.820) - RCONST(13974) = (KRO2NO) - RCONST(13975) = (KRO2NO3) - RCONST(13976) = (8.80D-13*RO2) - RCONST(13977) = (j('ch3o2h')+j('mek')+j('biacet')) - RCONST(13978) = (1.52D-11) - RCONST(13979) = (KDEC) - RCONST(13980) = (j('ch3o2h')+j('mek')+j('biacet')) - RCONST(13981) = (1.87D-11) - RCONST(13982) = (KDEC) - RCONST(13983) = (j('ch3o2h')+j('mek')+j('biacet')) - RCONST(13984) = (2.01D-11) - RCONST(13985) = (KDEC) - RCONST(13986) = (j('ch3o2h')+j('mek')+j('biacet')) - RCONST(13987) = (2.15D-11) - RCONST(13988) = (KDEC) - RCONST(13989) = (j('ch3o2h')+j('mek')+j('biacet')) - RCONST(13990) = (2.29D-11) - RCONST(13991) = (KDEC) - RCONST(13992) = (3.06D-11) - RCONST(13993) = (j('ch3o2h')+j('ch3cocho')) - RCONST(13994) = (2.74D-11) - RCONST(13995) = (KBPAN) - RCONST(13996) = (3.60D-11) - RCONST(13997) = (j('ch3o2h')+j('ch3cocho')) - RCONST(13998) = (3.28D-11) - RCONST(13999) = (KBPAN) - RCONST(14000) = (4.15D-11) - RCONST(14001) = (j('ch3o2h')+j('ch3cocho')) - RCONST(14002) = (3.82D-11) - RCONST(14003) = (KBPAN) - RCONST(14004) = (KNO3AL*4.0) - RCONST(14005) = (1.27D-11) - RCONST(14006) = (j('mek')) - RCONST(14007) = (3.60D-11) - RCONST(14008) = (j('ch3o2h')+j('ch3cocho')) - RCONST(14009) = (3.28D-11) - RCONST(14010) = (KBPAN) - RCONST(14011) = (3.78D-11) - RCONST(14012) = (j('ch3o2h')+j('ch3cocho')) - RCONST(14013) = (3.45D-11) - RCONST(14014) = (KBPAN) - RCONST(14015) = (1.50D-12) - RCONST(14016) = (3.93D-11) - RCONST(14017) = (j('ch3o2h')+j('ch3cocho')) - RCONST(14018) = (3.61D-11) - RCONST(14019) = (KBPAN) - RCONST(14020) = (1.50D-12) - RCONST(14021) = (3.99D-11) - RCONST(14022) = (j('ch3o2h')+j('ch3cocho')) - RCONST(14023) = (3.68D-11) - RCONST(14024) = (KBPAN) - RCONST(14025) = (1.50D-12) - RCONST(14026) = (KAPHO2*0.44) - RCONST(14027) = (KAPHO2*0.56) - RCONST(14028) = (KAPNO) - RCONST(14029) = (KFPAN) - RCONST(14030) = (KRO2NO3*1.74) - RCONST(14031) = (1.00D-11*RO2) - RCONST(14032) = (4.32D-11) - RCONST(14033) = (j('ch3o2h')+j('ch3cocho')) - RCONST(14034) = (4.00D-11) - RCONST(14035) = (KBPAN) - RCONST(14036) = (2.54D-11) - RCONST(14037) = (j('ch3o2h')) - RCONST(14038) = (2.22D-11) - RCONST(14039) = (KBPAN) - RCONST(14040) = (2.54D-11) - RCONST(14041) = (j('ch3o2h')) - RCONST(14042) = (2.22D-11) - RCONST(14043) = (KBPAN) - RCONST(14044) = (4.89D-11) - RCONST(14045) = (j('mvk_mcm_ch2ch')) - RCONST(14046) = (1.72D-11) - RCONST(14047) = (j('ch3o2h')) - RCONST(14048) = (1.36D-11) - RCONST(14049) = (KBPAN) - RCONST(14050) = (2.20D-11) - RCONST(14051) = (j('ch3o2h')+j('mek')) - RCONST(14052) = (KDEC) - RCONST(14053) = (1.36D-11) - RCONST(14054) = (j('ch3cocho')) - RCONST(14055) = (2*KNO3AL*4.0) - RCONST(14056) = (3.39D-11) - RCONST(14057) = (j('n_c3h7cho_hco')) - RCONST(14058) = (j('ch3cocho')) - RCONST(14059) = (2.46D-11) - RCONST(14060) = (j('ch3o2h')+j('mek')+j('ch3cocho')) - RCONST(14061) = (KDEC) - RCONST(14062) = (1.01D-11) - RCONST(14063) = (j('ch3o2h')+j('biacet')) - RCONST(14064) = (KDEC) - RCONST(14065) = (KNO3AL*5.5) - RCONST(14066) = (1.33D-11) - RCONST(14067) = (j('ch3cocho')) - RCONST(14068) = (1.20D-10) - RCONST(14069) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(14070) = (KDEC) - RCONST(14071) = (1.25D-12) - RCONST(14072) = (j('2_c4h9ono2')) - RCONST(14073) = (KRO2HO2*0.859) - RCONST(14074) = (KRO2NO) - RCONST(14075) = (KRO2NO3) - RCONST(14076) = (9.20D-14*RO2*0.7) - RCONST(14077) = (9.20D-14*RO2*0.3) - RCONST(14078) = (KAPHO2*0.41) - RCONST(14079) = (KAPHO2*0.44) - RCONST(14080) = (KAPHO2*0.15) - RCONST(14081) = (KAPNO) - RCONST(14082) = (KFPAN) - RCONST(14083) = (KRO2NO3*1.74) - RCONST(14084) = (1.00D-11*RO2*0.7) - RCONST(14085) = (1.00D-11*RO2*0.3) - RCONST(14086) = (KRO2HO2*0.820) - RCONST(14087) = (KRO2NO) - RCONST(14088) = (KRO2NO3) - RCONST(14089) = (1.30D-12*RO2) - RCONST(14090) = (1.51D-11) - RCONST(14091) = (j('ch3o2h')+j('mek')) - RCONST(14092) = (KDEC) - RCONST(14093) = (8.69D-11) - RCONST(14094) = (j('ch3o2h')+j('biacet')) - RCONST(14095) = (71.11D-12) - RCONST(14096) = (j('biacet')) - RCONST(14097) = (KDEC) - RCONST(14098) = (3.78D-11) - RCONST(14099) = (j('biacet')) - RCONST(14100) = (7.49D-11) - RCONST(14101) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(14102) = (KDEC) - RCONST(14103) = (KAPHO2*0.15) - RCONST(14104) = (KAPHO2*0.41) - RCONST(14105) = (KAPHO2*0.44) - RCONST(14106) = (KAPNO) - RCONST(14107) = (KFPAN) - RCONST(14108) = (KRO2NO3*1.74) - RCONST(14109) = (1.00D-11*RO2*0.3) - RCONST(14110) = (1.00D-11*RO2*0.7) - RCONST(14111) = (1.15D-10) - RCONST(14112) = (j('ch3o2h')+j('n_c3h7cho_hco')*2) - RCONST(14113) = (KDEC) - RCONST(14114) = (1.33D-10) - RCONST(14115) = (j('n_c3h7cho_hco')*2) - RCONST(14116) = (j('biacet')) - RCONST(14117) = (9.44D-11) - RCONST(14118) = (j('n_c3h7cho_hco')*2) - RCONST(14119) = (9.19D-11) - RCONST(14120) = (j('n_c3h7cho_hco')*2) - RCONST(14121) = (9.50D-11) - RCONST(14122) = (j('ch3o2h')+j('n_c3h7cho_hco')*2) - RCONST(14123) = (KRO2HO2*0.859) - RCONST(14124) = (KRO2NO) - RCONST(14125) = (KRO2NO3) - RCONST(14126) = (2.00D-12*RO2*0.2) - RCONST(14127) = (2.00D-12*RO2*0.6) - RCONST(14128) = (2.00D-12*RO2*0.2) - RCONST(14129) = (9.11D-11) - RCONST(14130) = (KBPAN) - RCONST(14131) = (1.02D-10) - RCONST(14132) = (j('ch3o2h')+j('n_c3h7cho_hco')*2) - RCONST(14133) = (KDEC*0.5) - RCONST(14134) = (KDEC*0.5) - RCONST(14135) = (9.27D-11) - RCONST(14136) = (j('n_c3h7cho_hco')*2) - RCONST(14137) = (7.21D-11) - RCONST(14138) = (j('n_c3h7cho_hco')) - RCONST(14139) = (7.52D-11) - RCONST(14140) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(14141) = (KRO2HO2*0.820) - RCONST(14142) = (KRO2NO*0.138) - RCONST(14143) = (KRO2NO*0.862) - RCONST(14144) = (KRO2NO3) - RCONST(14145) = (1.30D-12*RO2*0.2) - RCONST(14146) = (1.30D-12*RO2*0.6) - RCONST(14147) = (1.30D-12*RO2*0.2) - RCONST(14148) = (6.81D-11) - RCONST(14149) = (KBPAN) - RCONST(14150) = (9.23D-11) - RCONST(14151) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(14152) = (KDEC) - RCONST(14153) = (2.64D-11) - RCONST(14154) = (j('ch3cocho')+j('biacet')) - RCONST(14155) = (8.35D-11) - RCONST(14156) = (j('n_c3h7cho_hco')) - RCONST(14157) = (KRO2HO2*0.706) - RCONST(14158) = (KRO2NO*0.129) - RCONST(14159) = (KRO2NO*0.871) - RCONST(14160) = (KRO2NO3) - RCONST(14161) = (2.50D-13*RO2*0.6) - RCONST(14162) = (2.50D-13*RO2*0.2) - RCONST(14163) = (2.50D-13*RO2*0.2) - RCONST(14164) = (6.67D-12) - RCONST(14165) = (j('mek')*2) - RCONST(14166) = (9.75D-11) - RCONST(14167) = (j('ch3o2h')+j('mek')*2) - RCONST(14168) = (6.15D-12) - RCONST(14169) = (KBPAN) - RCONST(14170) = (1.51D-11) - RCONST(14171) = (j('ch3o2h')) - RCONST(14172) = (j('mek')*2) - RCONST(14173) = (KDEC) - RCONST(14174) = (8.25D-12) - RCONST(14175) = (j('mek')*2) - RCONST(14176) = (1.83D-11) - RCONST(14177) = (j('ch3cocho')) - RCONST(14178) = (KRO2HO2*0.859) - RCONST(14179) = (KRO2NO) - RCONST(14180) = (KRO2NO3) - RCONST(14181) = (9.20D-14*RO2) - RCONST(14182) = (2.42D-11) - RCONST(14183) = (j('ch3o2h')) - RCONST(14184) = (KDEC) - RCONST(14185) = (5.67D-12) - RCONST(14186) = (j('biacet')) - RCONST(14187) = (3.14D-11) - RCONST(14188) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(14189) = (2.78D-11) - RCONST(14190) = (KBPAN) - RCONST(14191) = (1.84D-11) - RCONST(14192) = (2.15D-11) - RCONST(14193) = (j('ch3o2h')) - RCONST(14194) = (1.79D-11) - RCONST(14195) = (KBPAN) - RCONST(14196) = (4.93D-11) - RCONST(14197) = (j('ch3o2h')) - RCONST(14198) = (1.38D-11) - RCONST(14199) = (j('n_c3h7ono2')) - RCONST(14200) = (KROPRIM*O2) - RCONST(14201) = (2.81D-11) - RCONST(14202) = (KNO3AL*8.5) - RCONST(14203) = (3.51D-11) - RCONST(14204) = (j('n_c3h7cho_hco')) - RCONST(14205) = (3.14D-11) - RCONST(14206) = (j('ch3o2h')) - RCONST(14207) = (j('mek')+j('n_c3h7cho_hco')) - RCONST(14208) = (KDEC) - RCONST(14209) = (2.80D-11) - RCONST(14210) = (j('mek')+j('n_c3h7cho_hco')) - RCONST(14211) = (KAPHO2*0.15) - RCONST(14212) = (KAPHO2*0.41) - RCONST(14213) = (KAPHO2*0.44) - RCONST(14214) = (KAPNO) - RCONST(14215) = (KFPAN) - RCONST(14216) = (KRO2NO3*1.74) - RCONST(14217) = (1.00D-11*RO2*0.3) - RCONST(14218) = (1.00D-11*RO2*0.7) - RCONST(14219) = (KRO2HO2*0.770) - RCONST(14220) = (KRO2NO) - RCONST(14221) = (KRO2NO3) - RCONST(14222) = (8.00D-13*RO2*0.7) - RCONST(14223) = (8.00D-13*RO2*0.3) - RCONST(14224) = (KDEC) - RCONST(14225) = (KRO2HO2*0.770) - RCONST(14226) = (KRO2NO*0.030) - RCONST(14227) = (KRO2NO*0.970) - RCONST(14228) = (KRO2NO3) - RCONST(14229) = (8.00D-13*RO2*0.7) - RCONST(14230) = (8.00D-13*RO2*0.3) - RCONST(14231) = (1.02D-10) - RCONST(14232) = (j('ch3o2h')) - RCONST(14233) = (KDEC) - RCONST(14234) = (7.46D-11) - RCONST(14235) = (j('ch3cocho')) - RCONST(14236) = (9.34D-11) - RCONST(14237) = (KRO2HO2*0.859) - RCONST(14238) = (KRO2NO) - RCONST(14239) = (KRO2NO3) - RCONST(14240) = (8.80D-12*RO2*0.2) - RCONST(14241) = (8.80D-12*RO2*0.6) - RCONST(14242) = (8.80D-12*RO2*0.2) - RCONST(14243) = (KRO2HO2*0.859) - RCONST(14244) = (KRO2NO*0.138) - RCONST(14245) = (KRO2NO*0.862) - RCONST(14246) = (KRO2NO3) - RCONST(14247) = (1.30D-12*RO2*0.2) - RCONST(14248) = (1.30D-12*RO2*0.6) - RCONST(14249) = (1.30D-12*RO2*0.2) - RCONST(14250) = (KAPHO2*0.41) - RCONST(14251) = (KAPHO2*0.44) - RCONST(14252) = (KAPHO2*0.15) - RCONST(14253) = (KAPNO) - RCONST(14254) = (KFPAN) - RCONST(14255) = (KRO2NO3*1.74) - RCONST(14256) = (1.00D-11*RO2*0.7) - RCONST(14257) = (1.00D-11*RO2*0.3) - RCONST(14258) = (KRO2HO2*0.914) - RCONST(14259) = (KRO2NO*0.228) - RCONST(14260) = (KRO2NO*0.772) - RCONST(14261) = (KRO2NO3) - RCONST(14262) = (2.50D-13*RO2*0.2) - RCONST(14263) = (2.50D-13*RO2*0.6) - RCONST(14264) = (2.50D-13*RO2*0.2) - RCONST(14265) = (1.23D-11) - RCONST(14266) = (1.48D-11) - RCONST(14267) = (j('ch3o2h')) - RCONST(14268) = (KRO2HO2*0.947) - RCONST(14269) = (KRO2NO*0.176) - RCONST(14270) = (KRO2NO*0.824) - RCONST(14271) = (KRO2NO3) - RCONST(14272) = (1.30D-12*RO2*0.2) - RCONST(14273) = (1.30D-12*RO2*0.6) - RCONST(14274) = (1.30D-12*RO2*0.2) - RCONST(14275) = (1.12D-11) - RCONST(14276) = (KBPAN) - RCONST(14277) = (4.00D-11) - RCONST(14278) = (j('ch3o2h')+j('biacet')) - RCONST(14279) = (8.47D-12) - RCONST(14280) = (j('1_c4h9ono2')+j('biacet')) - RCONST(14281) = (KROSEC*O2) - RCONST(14282) = (2.70D+14*EXP(-6643/TEMP)) - RCONST(14283) = (2.08D-11) - RCONST(14284) = (j('biacet')) - RCONST(14285) = (2.22D-11) - RCONST(14286) = (j('biacet')) - RCONST(14287) = (KRO2HO2*0.959) - RCONST(14288) = (KRO2NO*0.134) - RCONST(14289) = (KRO2NO*0.866) - RCONST(14290) = (KRO2NO3) - RCONST(14291) = (6.70D-15*RO2*0.7) - RCONST(14292) = (6.70D-15*RO2*0.3) - RCONST(14293) = (KRO2HO2*0.914) - RCONST(14294) = (KRO2NO*0.228) - RCONST(14295) = (KRO2NO*0.772) - RCONST(14296) = (KRO2NO3) - RCONST(14297) = (2.50D-13*RO2*0.2) - RCONST(14298) = (2.50D-13*RO2*0.6) - RCONST(14299) = (2.50D-13*RO2*0.2) - RCONST(14300) = (8.52D-11) - RCONST(14301) = (j('ch3cocho')) - RCONST(14302) = (KRO2HO2*0.820) - RCONST(14303) = (KRO2NO) - RCONST(14304) = (KRO2NO3) - RCONST(14305) = (2.00D-13*RO2*0.2) - RCONST(14306) = (2.00D-13*RO2*0.6) - RCONST(14307) = (2.00D-13*RO2*0.2) - RCONST(14308) = (2.99D-11) - RCONST(14309) = (j('biacet')) - RCONST(14310) = (KRO2HO2*0.932) - RCONST(14311) = (KRO2NO*0.235) - RCONST(14312) = (KRO2NO*0.765) - RCONST(14313) = (KRO2NO3) - RCONST(14314) = (2.50D-13*RO2*0.2) - RCONST(14315) = (2.50D-13*RO2*0.6) - RCONST(14316) = (2.50D-13*RO2*0.2) - RCONST(14317) = (3.41D-11) - RCONST(14318) = (j('ch3o2h')) - RCONST(14319) = (2.60D-11) - RCONST(14320) = (j('1_c4h9ono2')) - RCONST(14321) = (KDEC) - RCONST(14322) = (2.70D-11) - RCONST(14323) = (2.91D-11) - RCONST(14324) = (8.69D-11) - RCONST(14325) = (j('ch3o2h')) - RCONST(14326) = (5.82D-11) - RCONST(14327) = (j('1_c4h9ono2')) - RCONST(14328) = (KDEC) - RCONST(14329) = (7.47D-11) - RCONST(14330) = (KAPHO2*0.15) - RCONST(14331) = (KAPHO2*0.41) - RCONST(14332) = (KAPHO2*0.44) - RCONST(14333) = (KAPNO) - RCONST(14334) = (KFPAN) - RCONST(14335) = (KRO2NO3*1.74) - RCONST(14336) = (1.00D-11*RO2*0.3) - RCONST(14337) = (1.00D-11*RO2*0.7) - RCONST(14338) = (8.00D-11) - RCONST(14339) = (j('ch3cocho')) - RCONST(14340) = (KRO2HO2*0.770) - RCONST(14341) = (KRO2NO) - RCONST(14342) = (KRO2NO3) - RCONST(14343) = (2.00D-12*RO2*0.2) - RCONST(14344) = (2.00D-12*RO2*0.6) - RCONST(14345) = (2.00D-12*RO2*0.2) - RCONST(14346) = (3.43D-11) - RCONST(14347) = (KRO2HO2*0.947) - RCONST(14348) = (KRO2NO*0.176) - RCONST(14349) = (KRO2NO*0.824) - RCONST(14350) = (KRO2NO3) - RCONST(14351) = (2.50D-13*RO2*0.2) - RCONST(14352) = (2.50D-13*RO2*0.6) - RCONST(14353) = (2.50D-13*RO2*0.2) - RCONST(14354) = (5.85D-11) - RCONST(14355) = (j('n_c3h7cho_hco')) - RCONST(14356) = (j('ch3o2h')) - RCONST(14357) = (2.31D-11) - RCONST(14358) = (KBPAN) - RCONST(14359) = (1.65D-11) - RCONST(14360) = (j('mek')) - RCONST(14361) = (j('ch3o2h')) - RCONST(14362) = (8.65D-11) - RCONST(14363) = (2.00D+14*EXP(-4909/TEMP)) - RCONST(14364) = (KRO2HO2*0.770) - RCONST(14365) = (KRO2NO) - RCONST(14366) = (KRO2NO3) - RCONST(14367) = (9.20D-14*RO2*0.70) - RCONST(14368) = (9.20D-14*RO2*0.30) - RCONST(14369) = (KRO2HO2*0.820) - RCONST(14370) = (KRO2NO) - RCONST(14371) = (KRO2NO3) - RCONST(14372) = (9.20D-14*RO2*0.70) - RCONST(14373) = (9.20D-14*RO2*0.30) - RCONST(14374) = (KRO2HO2*0.820) - RCONST(14375) = (KRO2NO) - RCONST(14376) = (KRO2NO3) - RCONST(14377) = (9.20D-14*RO2*0.70) - RCONST(14378) = (9.20D-14*RO2*0.30) - RCONST(14379) = (4.36D-12) - RCONST(14380) = (j('ch3o2h')) - RCONST(14381) = (1.13D-12) - RCONST(14382) = (KBPAN) - RCONST(14383) = (KAPHO2*0.56) - RCONST(14384) = (KAPHO2*0.44) - RCONST(14385) = (KAPNO) - RCONST(14386) = (KFPAN) - RCONST(14387) = (KRO2NO3*1.74) - RCONST(14388) = (1.00D-11*RO2) - RCONST(14389) = (KRO2HO2*0.520) - RCONST(14390) = (KRO2NO) - RCONST(14391) = (KRO2NO3) - RCONST(14392) = (2.00D-12*RO2) - RCONST(14393) = (KRO2HO2*0.820) - RCONST(14394) = (KRO2NO) - RCONST(14395) = (KRO2NO3) - RCONST(14396) = (8.80D-13*RO2) - RCONST(14397) = (1.09D-11) - RCONST(14398) = (j('ch3o2h')) - RCONST(14399) = (KDEC) - RCONST(14400) = (7.42D-12) - RCONST(14401) = (9.65D-12) - RCONST(14402) = (j('ch3o2h')) - RCONST(14403) = (6.57D-12) - RCONST(14404) = (2.96D-12) - RCONST(14405) = (KBPAN) - RCONST(14406) = (1.27D-11) - RCONST(14407) = (j('ch3o2h')) - RCONST(14408) = (KDEC) - RCONST(14409) = (KRO2HO2*0.770) - RCONST(14410) = (KRO2NO) - RCONST(14411) = (KRO2NO3) - RCONST(14412) = (8.80D-13*RO2) - RCONST(14413) = (2.34D-11) - RCONST(14414) = (j('mek')) - RCONST(14415) = (2.65D-11) - RCONST(14416) = (j('ch3o2h')+j('mek')) - RCONST(14417) = (7.60D-12) - RCONST(14418) = (KBPAN) - RCONST(14419) = (KAPHO2*0.56) - RCONST(14420) = (KAPHO2*0.44) - RCONST(14421) = (KAPNO) - RCONST(14422) = (KFPAN) - RCONST(14423) = (KRO2NO3*1.74) - RCONST(14424) = (1.00D-11*RO2) - RCONST(14425) = (KRO2HO2*0.706) - RCONST(14426) = (KRO2NO) - RCONST(14427) = (KRO2NO3) - RCONST(14428) = (2.00D-12*RO2) - RCONST(14429) = (1.00D-10) - RCONST(14430) = (j('ch3o2h')) - RCONST(14431) = (KDEC) - RCONST(14432) = (1.03D-10) - RCONST(14433) = (j('ch3cocho')+j('n_c3h7cho_hco')*2) - RCONST(14434) = (9.34D-11) - RCONST(14435) = (2*KNO3AL*5.5) - RCONST(14436) = (3.89D-11) - RCONST(14437) = (j('ch3cocho')+j('n_c3h7cho_hco')) - RCONST(14438) = (1.01D-10) - RCONST(14439) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(14440) = (6.65D-11) - RCONST(14441) = (j('n_c3h7ono2')+j('n_c3h7cho_hco')) - RCONST(14442) = (KDEC) - RCONST(14443) = (KNO3AL*8.5) - RCONST(14444) = (KNO3AL*8.5) - RCONST(14445) = (1.33D-10*0.5) - RCONST(14446) = (1.33D-10*0.5) - RCONST(14447) = (j('n_c3h7cho_hco')) - RCONST(14448) = (j('n_c3h7cho_hco')) - RCONST(14449) = (7.96D-11) - RCONST(14450) = (j('n_c3h7cho_hco')) - RCONST(14451) = (1.10D-10) - RCONST(14452) = (j('ch3o2h')+j('n_c3h7cho_hco')*2) - RCONST(14453) = (4.33D-11) - RCONST(14454) = (j('1_c4h9ono2')+j('n_c3h7cho_hco')*2) - RCONST(14455) = (1.80D-14*EXP(-260/TEMP)*O2) - RCONST(14456) = (6.99D-11) - RCONST(14457) = (j('n_c3h7cho_hco')*2) - RCONST(14458) = (1.76D-11) - RCONST(14459) = (j('mek')+j('biacet')+j('ch3o2h')) - RCONST(14460) = (KDEC) - RCONST(14461) = (KRO2HO2*0.859) - RCONST(14462) = (KRO2NO) - RCONST(14463) = (KRO2NO3) - RCONST(14464) = (8.80D-13*RO2) - RCONST(14465) = (KAPHO2*0.15) - RCONST(14466) = (KAPHO2*0.41) - RCONST(14467) = (KAPHO2*0.44) - RCONST(14468) = (KAPNO) - RCONST(14469) = (KFPAN) - RCONST(14470) = (KRO2NO3*1.74) - RCONST(14471) = (1.00D-11*RO2*0.3) - RCONST(14472) = (1.00D-11*RO2*0.7) - RCONST(14473) = (2.39D-11) - RCONST(14474) = (j('mek')) - RCONST(14475) = (j('n_c3h7cho_hco')) - RCONST(14476) = (5.80D-11) - RCONST(14477) = (6.11D-11) - RCONST(14478) = (j('ch3o2h')) - RCONST(14479) = (5.75D-11) - RCONST(14480) = (KBPAN) - RCONST(14481) = (3.96D-11) - RCONST(14482) = (j('ch3o2h')) - RCONST(14483) = (KDEC) - RCONST(14484) = (3.62D-11) - RCONST(14485) = (KRO2HO2*0.706) - RCONST(14486) = (KRO2NO) - RCONST(14487) = (KRO2NO3) - RCONST(14488) = (9.20D-14*RO2*0.7) - RCONST(14489) = (9.20D-14*RO2*0.3) - RCONST(14490) = (5.26D-11) - RCONST(14491) = (j('ch3o2h')) - RCONST(14492) = (3.51D-11) - RCONST(14493) = (KDEC) - RCONST(14494) = (4.91D-11) - RCONST(14495) = (KNO3AL*8.5) - RCONST(14496) = (3.30D-13) - RCONST(14497) = (1.30D-17*0.330) - RCONST(14498) = (1.30D-17*0.670) - RCONST(14499) = (8.26D-11*0.288) - RCONST(14500) = (8.26D-11*0.712) - RCONST(14501) = (KAPHO2*0.15) - RCONST(14502) = (KAPHO2*0.41) - RCONST(14503) = (KAPHO2*0.44) - RCONST(14504) = (KAPNO) - RCONST(14505) = (KFPAN) - RCONST(14506) = (KRO2NO3*1.74) - RCONST(14507) = (1.00D-11*RO2*0.3) - RCONST(14508) = (1.00D-11*RO2*0.7) - RCONST(14509) = (7.90D-11) - RCONST(14510) = (j('ch3o2h')) - RCONST(14511) = (KDEC) - RCONST(14512) = (6.64D-11) - RCONST(14513) = (j('mek')) - RCONST(14514) = (6.69D-11) - RCONST(14515) = (4.83D-11) - RCONST(14516) = (j('ch3o2h')) - RCONST(14517) = (3.17D-11) - RCONST(14518) = (j('n_c3h7ono2')) - RCONST(14519) = (KDEC) - RCONST(14520) = (3.92D-11) - RCONST(14521) = (2.16D-11) - RCONST(14522) = (j('ch3o2h')) - RCONST(14523) = (KRO2HO2*0.859) - RCONST(14524) = (KRO2NO*0.138) - RCONST(14525) = (KRO2NO*0.862) - RCONST(14526) = (KRO2NO3) - RCONST(14527) = (1.30D-12*RO2*0.2) - RCONST(14528) = (1.30D-12*RO2*0.6) - RCONST(14529) = (1.30D-12*RO2*0.2) - RCONST(14530) = (1.85D-11) - RCONST(14531) = (1.80D-11) - RCONST(14532) = (KBPAN) - RCONST(14533) = (5.57D-11) - RCONST(14534) = (j('ch3o2h')) - RCONST(14535) = (2.38D-11) - RCONST(14536) = (j('1_c4h9ono2')) - RCONST(14537) = (KROSEC*O2) - RCONST(14538) = (2.70D+14*EXP(-6643/TEMP)) - RCONST(14539) = (2.94D-11) - RCONST(14540) = (3.78D-11) - RCONST(14541) = (2.18D-11) - RCONST(14542) = (j('ch3o2h')) - RCONST(14543) = (8.22D-12) - RCONST(14544) = (j('n_c3h7ono2')) - RCONST(14545) = (KDEC) - RCONST(14546) = (2.90D-11) - RCONST(14547) = (j('n_c3h7cho_hco')) - RCONST(14548) = (1.27D-11) - RCONST(14549) = (KRO2HO2*0.859) - RCONST(14550) = (KRO2NO*0.106) - RCONST(14551) = (KRO2NO*0.894) - RCONST(14552) = (KRO2NO3) - RCONST(14553) = (6.70D-15*RO2*0.7) - RCONST(14554) = (6.70D-15*RO2*0.3) - RCONST(14555) = (KRO2HO2*0.959) - RCONST(14556) = (KRO2NO) - RCONST(14557) = (KRO2NO3) - RCONST(14558) = (8.80D-13*RO2*0.2) - RCONST(14559) = (8.80D-13*RO2*0.6) - RCONST(14560) = (8.80D-13*RO2*0.2) - RCONST(14561) = (KAPHO2*0.15) - RCONST(14562) = (KAPHO2*0.41) - RCONST(14563) = (KAPHO2*0.44) - RCONST(14564) = (KAPNO) - RCONST(14565) = (KFPAN) - RCONST(14566) = (KRO2NO3*1.74) - RCONST(14567) = (1.00D-11*RO2*0.3) - RCONST(14568) = (1.00D-11*RO2*0.7) - RCONST(14569) = (7.90D-11) - RCONST(14570) = (j('ch3o2h')) - RCONST(14571) = (5.87D-11) - RCONST(14572) = (j('2_c4h9ono2')) - RCONST(14573) = (KDEC) - RCONST(14574) = (6.69D-11) - RCONST(14575) = (5.56D-11) - RCONST(14576) = (j('ch3o2h')) - RCONST(14577) = (2.37D-11) - RCONST(14578) = (j('1_c4h9ono2')) - RCONST(14579) = (KROSEC*O2) - RCONST(14580) = (2.70D+14*EXP(-6643/TEMP)) - RCONST(14581) = (2.93D-11) - RCONST(14582) = (3.77D-11) - RCONST(14583) = (KAPHO2*0.15) - RCONST(14584) = (KAPHO2*0.41) - RCONST(14585) = (KAPHO2*0.44) - RCONST(14586) = (KAPNO) - RCONST(14587) = (KFPAN) - RCONST(14588) = (KRO2NO3*1.74) - RCONST(14589) = (1.00D-11*RO2*0.3) - RCONST(14590) = (1.00D-11*RO2*0.7) - RCONST(14591) = (8.38D-11) - RCONST(14592) = (j('ch3o2h')) - RCONST(14593) = (KDEC) - RCONST(14594) = (7.92D-11) - RCONST(14595) = (5.61D-11) - RCONST(14596) = (j('ch3o2h')) - RCONST(14597) = (2.94D-11) - RCONST(14598) = (j('1_c4h9ono2')) - RCONST(14599) = (KDEC) - RCONST(14600) = (4.17D-11) - RCONST(14601) = (KRO2HO2*0.914) - RCONST(14602) = (KRO2NO*0.192) - RCONST(14603) = (KRO2NO*0.808) - RCONST(14604) = (KRO2NO3) - RCONST(14605) = (2.50D-13*RO2*0.2) - RCONST(14606) = (2.50D-13*RO2*0.6) - RCONST(14607) = (2.50D-13*RO2*0.2) - RCONST(14608) = (9.40D-12) - RCONST(14609) = (1.29D-11) - RCONST(14610) = (j('ch3o2h')) - RCONST(14611) = (KRO2HO2*0.890) - RCONST(14612) = (KRO2NO*0.157) - RCONST(14613) = (KRO2NO*0.843) - RCONST(14614) = (KRO2NO3) - RCONST(14615) = (1.32D-12*RO2*0.2) - RCONST(14616) = (1.32D-12*RO2*0.6) - RCONST(14617) = (1.32D-12*RO2*0.2) - RCONST(14618) = (9.26D-12) - RCONST(14619) = (KBPAN) - RCONST(14620) = (KAPHO2*0.15) - RCONST(14621) = (KAPHO2*0.41) - RCONST(14622) = (KAPHO2*0.44) - RCONST(14623) = (KAPNO) - RCONST(14624) = (KFPAN) - RCONST(14625) = (KRO2NO3*1.74) - RCONST(14626) = (1.00D-11*RO2*0.3) - RCONST(14627) = (1.00D-11*RO2*0.7) - RCONST(14628) = (8.69D-11) - RCONST(14629) = (j('ch3o2h')) - RCONST(14630) = (KDEC) - RCONST(14631) = (7.47D-11) - RCONST(14632) = (KRO2HO2*0.890) - RCONST(14633) = (KRO2NO*0.118) - RCONST(14634) = (KRO2NO*0.882) - RCONST(14635) = (KRO2NO3) - RCONST(14636) = (6.70D-15*RO2*0.7) - RCONST(14637) = (6.70D-15*RO2*0.3) - RCONST(14638) = (6.13D-11) - RCONST(14639) = (j('ch3o2h')) - RCONST(14640) = (3.23D-11) - RCONST(14641) = (j('1_c4h9ono2')) - RCONST(14642) = (KDEC) - RCONST(14643) = (4.35D-11) - RCONST(14644) = (1.69D-11) - RCONST(14645) = (j('ch3o2h')) - RCONST(14646) = (KDEC) - RCONST(14647) = (1.34D-11) - RCONST(14648) = (1.69D-11) - RCONST(14649) = (j('ch3o2h')) - RCONST(14650) = (KDEC) - RCONST(14651) = (1.34D-11) - RCONST(14652) = (1.69D-11) - RCONST(14653) = (j('ch3o2h')) - RCONST(14654) = (KDEC) - RCONST(14655) = (1.34D-11) - RCONST(14656) = (1.63D-11) - RCONST(14657) = (j('ch3o2h')+j('ch3cocho')) - RCONST(14658) = (1.27D-11) - RCONST(14659) = (KBPAN) - RCONST(14660) = (2.41D-11) - RCONST(14661) = (j('ch3o2h')+j('ch3cocho')) - RCONST(14662) = (KDEC) - RCONST(14663) = (1.85D-11) - RCONST(14664) = (j('ch3o2h')) - RCONST(14665) = (KDEC) - RCONST(14666) = (KRO2HO2*0.859) - RCONST(14667) = (KRO2NO*0.104) - RCONST(14668) = (KRO2NO*0.896) - RCONST(14669) = (KRO2NO3) - RCONST(14670) = (6.70D-15*RO2*0.7) - RCONST(14671) = (6.70D-15*RO2*0.3) - RCONST(14672) = (KRO2HO2*0.820) - RCONST(14673) = (KRO2NO) - RCONST(14674) = (KRO2NO3) - RCONST(14675) = (6.70D-15*RO2) - RCONST(14676) = (1.00D-10) - RCONST(14677) = (j('ch3o2h')+j('mek')) - RCONST(14678) = (KDEC) - RCONST(14679) = (7.05D-11) - RCONST(14680) = (j('ch3o2h')+j('biacet')) - RCONST(14681) = (6.69D-11) - RCONST(14682) = (KBPAN) - RCONST(14683) = (7.91D-11) - RCONST(14684) = (j('ch3o2h')+j('biacet')) - RCONST(14685) = (KDEC) - RCONST(14686) = (KAPHO2*0.15) - RCONST(14687) = (KAPHO2*0.41) - RCONST(14688) = (KAPHO2*0.44) - RCONST(14689) = (KAPNO) - RCONST(14690) = (KFPAN) - RCONST(14691) = (KRO2NO3*1.74) - RCONST(14692) = (1.00D-11*RO2*0.3) - RCONST(14693) = (1.00D-11*RO2*0.7) - RCONST(14694) = (KAPHO2*0.15) - RCONST(14695) = (KAPHO2*0.41) - RCONST(14696) = (KAPHO2*0.44) - RCONST(14697) = (KAPNO) - RCONST(14698) = (KFPAN) - RCONST(14699) = (KRO2NO3*1.74) - RCONST(14700) = (1.00D-11*RO2*0.3) - RCONST(14701) = (1.00D-11*RO2*0.7) - RCONST(14702) = (KAPHO2*0.15) - RCONST(14703) = (KAPHO2*0.41) - RCONST(14704) = (KAPHO2*0.44) - RCONST(14705) = (KAPNO) - RCONST(14706) = (KFPAN) - RCONST(14707) = (KRO2NO3*1.74) - RCONST(14708) = (1.00D-11*RO2*0.3) - RCONST(14709) = (1.00D-11*RO2*0.7) - RCONST(14710) = (KRO2HO2*0.770) - RCONST(14711) = (KRO2NO) - RCONST(14712) = (KRO2NO3) - RCONST(14713) = (2.00D-12*RO2*0.2) - RCONST(14714) = (2.00D-12*RO2*0.6) - RCONST(14715) = (2.00D-12*RO2*0.2) - RCONST(14716) = (KRO2HO2*0.770) - RCONST(14717) = (KRO2NO) - RCONST(14718) = (KRO2NO3) - RCONST(14719) = (9.20D-14*RO2*0.7) - RCONST(14720) = (9.20D-14*RO2*0.3) - RCONST(14721) = (5.42D-11) - RCONST(14722) = (j('biacet')+j('ch3o2h')) - RCONST(14723) = (KDEC) - RCONST(14724) = (1.48D-11) - RCONST(14725) = (1.79D-11) - RCONST(14726) = (j('ch3o2h')) - RCONST(14727) = (1.43D-11) - RCONST(14728) = (KBPAN) - RCONST(14729) = (3.74D-11) - RCONST(14730) = (j('n_c3h7cho_hco')) - RCONST(14731) = (j('ch3o2h')) - RCONST(14732) = (j('mek')) - RCONST(14733) = (KDEC*0.5) - RCONST(14734) = (KDEC*0.5) - RCONST(14735) = (3.40D-11) - RCONST(14736) = (j('n_c3h7cho_hco')) - RCONST(14737) = (j('mek')) - RCONST(14738) = (KRO2HO2*0.820) - RCONST(14739) = (KRO2NO) - RCONST(14740) = (KRO2NO3) - RCONST(14741) = (9.20D-14*RO2*0.7) - RCONST(14742) = (9.20D-14*RO2*0.3) - RCONST(14743) = (KNO3AL*8.5) - RCONST(14744) = (3.50D-11) - RCONST(14745) = (KDEC) - RCONST(14746) = (KRO2HO2*0.820) - RCONST(14747) = (KRO2NO*0.056) - RCONST(14748) = (KRO2NO*0.944) - RCONST(14749) = (KRO2NO3) - RCONST(14750) = (9.20D-14*RO2*0.7) - RCONST(14751) = (9.20D-14*RO2*0.3) - RCONST(14752) = (5.94D-11) - RCONST(14753) = (6.25D-11) - RCONST(14754) = (j('ch3o2h')) - RCONST(14755) = (KRO2HO2*0.770) - RCONST(14756) = (KRO2NO*0.209) - RCONST(14757) = (KRO2NO*0.791) - RCONST(14758) = (KRO2NO3) - RCONST(14759) = (2.50D-13*RO2*0.2) - RCONST(14760) = (2.50D-13*RO2*0.6) - RCONST(14761) = (2.50D-13*RO2*0.2) - RCONST(14762) = (5.89D-11) - RCONST(14763) = (KBPAN) - RCONST(14764) = (KRO2HO2*0.859) - RCONST(14765) = (KRO2NO) - RCONST(14766) = (KRO2NO3) - RCONST(14767) = (8.80D-12*RO2*0.2) - RCONST(14768) = (8.80D-12*RO2*0.6) - RCONST(14769) = (8.80D-12*RO2*0.2) - RCONST(14770) = (4.95D-11) - RCONST(14771) = (j('ch3o2h')) - RCONST(14772) = (7.97D-12) - RCONST(14773) = (j('n_c3h7ono2')) - RCONST(14774) = (KDEC) - RCONST(14775) = (2.81D-11) - RCONST(14776) = (j('n_c3h7cho_hco')) - RCONST(14777) = (2.82D-11) - RCONST(14778) = (KRO2HO2*0.947) - RCONST(14779) = (KRO2NO*0.132) - RCONST(14780) = (KRO2NO*0.868) - RCONST(14781) = (KRO2NO3) - RCONST(14782) = (9.20D-14*RO2*0.7) - RCONST(14783) = (9.20D-14*RO2*0.3) - RCONST(14784) = (1.43D-11) - RCONST(14785) = (j('ch3o2h')+j('biacet')) - RCONST(14786) = (1.01D-11) - RCONST(14787) = (j('2_c4h9ono2')+j('biacet')) - RCONST(14788) = (KDEC) - RCONST(14789) = (1.08D-11) - RCONST(14790) = (j('biacet')) - RCONST(14791) = (3.49D-11) - RCONST(14792) = (j('ch3o2h')+j('biacet')) - RCONST(14793) = (KDEC) - RCONST(14794) = (1.63D-11) - RCONST(14795) = (j('biacet')) - RCONST(14796) = (2.27D-11) - RCONST(14797) = (j('biacet')) - RCONST(14798) = (9.84D-12) - RCONST(14799) = (1.32D-11) - RCONST(14800) = (j('ch3o2h')) - RCONST(14801) = (KRO2HO2*0.859) - RCONST(14802) = (KRO2NO) - RCONST(14803) = (KRO2NO3) - RCONST(14804) = (6.70D-15*RO2*0.7) - RCONST(14805) = (6.70D-15*RO2*0.3) - RCONST(14806) = (9.60D-12) - RCONST(14807) = (KBPAN) - RCONST(14808) = (7.74D-11) - RCONST(14809) = (KRO2HO2*0.959) - RCONST(14810) = (KRO2NO*0.245) - RCONST(14811) = (KRO2NO*0.755) - RCONST(14812) = (KRO2NO3) - RCONST(14813) = (2.50D-13*RO2*0.2) - RCONST(14814) = (2.50D-13*RO2*0.6) - RCONST(14815) = (2.50D-13*RO2*0.2) - RCONST(14816) = (2.43D-11) - RCONST(14817) = (j('n_c3h7cho_hco')) - RCONST(14818) = (7.32D-11) - RCONST(14819) = (j('ch3o2h')) - RCONST(14820) = (7.68D-11) - RCONST(14821) = (7.32D-11) - RCONST(14822) = (KBPAN) - RCONST(14823) = (7.57D-11) - RCONST(14824) = (j('ch3o2h')) - RCONST(14825) = (4.38D-11) - RCONST(14826) = (j('1_c4h9ono2')) - RCONST(14827) = (KROSEC*O2) - RCONST(14828) = (2.70D+14*EXP(-6643/TEMP)) - RCONST(14829) = (4.94D-11) - RCONST(14830) = (5.78D-11) - RCONST(14831) = (1.99D-11) - RCONST(14832) = (j('ch3o2h')) - RCONST(14833) = (7.03D-12) - RCONST(14834) = (j('n_c3h7ono2')) - RCONST(14835) = (KDEC) - RCONST(14836) = (KNO3AL*8.5) - RCONST(14837) = (2.76D-11) - RCONST(14838) = (j('n_c3h7cho_hco')) - RCONST(14839) = (1.08D-11) - RCONST(14840) = (6.98D-11) - RCONST(14841) = (7.29D-11) - RCONST(14842) = (j('ch3o2h')) - RCONST(14843) = (6.93D-11) - RCONST(14844) = (KBPAN) - RCONST(14845) = (3.46D-11) - RCONST(14846) = (j('ch3o2h')) - RCONST(14847) = (2.76D-11) - RCONST(14848) = (j('2_c4h9ono2')) - RCONST(14849) = (KDEC) - RCONST(14850) = (3.12D-11) - RCONST(14851) = (KAPHO2*0.44) - RCONST(14852) = (KAPHO2*0.56) - RCONST(14853) = (KAPNO) - RCONST(14854) = (KFPAN) - RCONST(14855) = (KRO2NO3*1.74) - RCONST(14856) = (1.00D-11*RO2) - RCONST(14857) = (1.86D-11) - RCONST(14858) = (j('ch3o2h')+j('ch3cocho')) - RCONST(14859) = (7.82D-12) - RCONST(14860) = (j('2_c4h9ono2')+j('ch3cocho')) - RCONST(14861) = (KDEC) - RCONST(14862) = (1.75D-11) - RCONST(14863) = (j('ch3cocho')) - RCONST(14864) = (3.31D-11) - RCONST(14865) = (j('ch3o2h')) - RCONST(14866) = (KDEC) - RCONST(14867) = (KNO3AL*5.5) - RCONST(14868) = (2.37D-11) - RCONST(14869) = (j('n_c3h7cho_hco')) - RCONST(14870) = (j('biacet')) - RCONST(14871) = (7.90D-11) - RCONST(14872) = (j('ch3cocho')+j('biacet')) - RCONST(14873) = (9.13D-11) - RCONST(14874) = (j('n_c3h7cho_hco')*2) - RCONST(14875) = (9.44D-11) - RCONST(14876) = (j('ch3o2h')+j('n_c3h7cho_hco')*2) - RCONST(14877) = (KRO2HO2*0.770) - RCONST(14878) = (KRO2NO) - RCONST(14879) = (KRO2NO3) - RCONST(14880) = (8.80D-13*RO2*0.2) - RCONST(14881) = (8.80D-13*RO2*0.6) - RCONST(14882) = (8.80D-13*RO2*0.2) - RCONST(14883) = (8.47D-11) - RCONST(14884) = (KBPAN) - RCONST(14885) = (6.72D-11) - RCONST(14886) = (j('n_c3h7cho_hco')) - RCONST(14887) = (7.03D-11) - RCONST(14888) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(14889) = (6.74D-11) - RCONST(14890) = (KBPAN) - RCONST(14891) = (6.72D-11) - RCONST(14892) = (j('n_c3h7cho_hco')) - RCONST(14893) = (7.03D-11) - RCONST(14894) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(14895) = (6.67D-11) - RCONST(14896) = (KBPAN) - RCONST(14897) = (7.56D-11) - RCONST(14898) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(14899) = (KDEC) - RCONST(14900) = (7.88D-11) - RCONST(14901) = (j('ch3cocho')+j('n_c3h7cho_hco')) - RCONST(14902) = (6.89D-11) - RCONST(14903) = (j('n_c3h7cho_hco')) - RCONST(14904) = (7.03D-11) - RCONST(14905) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(14906) = (KDEC) - RCONST(14907) = (3.58D-11) - RCONST(14908) = (j('ch3o2h')) - RCONST(14909) = (KDEC) - RCONST(14910) = (3.34D-11) - RCONST(14911) = (KAPHO2*0.15) - RCONST(14912) = (KAPHO2*0.41) - RCONST(14913) = (KAPHO2*0.44) - RCONST(14914) = (KAPNO) - RCONST(14915) = (KFPAN) - RCONST(14916) = (KRO2NO3*1.74) - RCONST(14917) = (1.00D-11*RO2*0.3) - RCONST(14918) = (1.00D-11*RO2*0.7) - RCONST(14919) = (KRO2HO2*0.770) - RCONST(14920) = (KRO2NO) - RCONST(14921) = (KRO2NO3) - RCONST(14922) = (9.20D-14*RO2*0.7) - RCONST(14923) = (9.20D-14*RO2*0.3) - RCONST(14924) = (4.00D-11) - RCONST(14925) = (j('ch3o2h')) - RCONST(14926) = (3.09D-11) - RCONST(14927) = (KDEC) - RCONST(14928) = (3.66D-11) - RCONST(14929) = (1.10D-10) - RCONST(14930) = (j('ch3o2h')) - RCONST(14931) = (2.92D-11) - RCONST(14932) = (j('1_c4h9ono2')) - RCONST(14933) = (KROSEC*O2) - RCONST(14934) = (4.00D+14*EXP(-6990/TEMP)) - RCONST(14935) = (6.04D-11) - RCONST(14936) = (j('mek')) - RCONST(14937) = (9.53D-11) - RCONST(14938) = (5.51D-11) - RCONST(14939) = (j('ch3o2h')) - RCONST(14940) = (KDEC) - RCONST(14941) = (2.28D-11) - RCONST(14942) = (j('ch3cocho')) - RCONST(14943) = (4.30D-11) - RCONST(14944) = (KRO2HO2*0.859) - RCONST(14945) = (KRO2NO) - RCONST(14946) = (KRO2NO3) - RCONST(14947) = (8.80D-12*RO2*0.2) - RCONST(14948) = (8.80D-12*RO2*0.6) - RCONST(14949) = (8.80D-12*RO2*0.2) - RCONST(14950) = (1.57D-11) - RCONST(14951) = (j('ch3o2h')) - RCONST(14952) = (8.60D-12) - RCONST(14953) = (j('2_c4h9ono2')) - RCONST(14954) = (KDEC) - RCONST(14955) = (1.23D-11) - RCONST(14956) = (KRO2HO2*0.706) - RCONST(14957) = (KRO2NO) - RCONST(14958) = (KRO2NO3) - RCONST(14959) = (2.00D-12*RO2*0.2) - RCONST(14960) = (2.00D-12*RO2*0.6) - RCONST(14961) = (2.00D-12*RO2*0.2) - RCONST(14962) = (KRO2HO2*0.959) - RCONST(14963) = (KRO2NO) - RCONST(14964) = (KRO2NO3) - RCONST(14965) = (8.80D-13*RO2) - RCONST(14966) = (1.05D-11) - RCONST(14967) = (j('ch3o2h')) - RCONST(14968) = (KDEC) - RCONST(14969) = (7.04D-12) - RCONST(14970) = (7.10D-11) - RCONST(14971) = (j('ch3o2h')) - RCONST(14972) = (5.57D-11) - RCONST(14973) = (j('2_c4h9ono2')) - RCONST(14974) = (KDEC) - RCONST(14975) = (6.20D-11) - RCONST(14976) = (KAPHO2*0.56) - RCONST(14977) = (KAPHO2*0.44) - RCONST(14978) = (KAPNO) - RCONST(14979) = (KFPAN) - RCONST(14980) = (KRO2NO3*1.74) - RCONST(14981) = (1.00D-11*RO2) - RCONST(14982) = (KRO2HO2*0.625) - RCONST(14983) = (KRO2NO) - RCONST(14984) = (KRO2NO3) - RCONST(14985) = (2.00D-12*RO2) - RCONST(14986) = (KRO2HO2*0.890) - RCONST(14987) = (KRO2NO) - RCONST(14988) = (KRO2NO3) - RCONST(14989) = (8.80D-13*RO2*0.2) - RCONST(14990) = (8.80D-13*RO2*0.6) - RCONST(14991) = (8.80D-13*RO2*0.2) - RCONST(14992) = (1.68D-11) - RCONST(14993) = (j('ch3o2h')) - RCONST(14994) = (1.32D-11) - RCONST(14995) = (KBPAN) - RCONST(14996) = (KRO2HO2*0.706) - RCONST(14997) = (KRO2NO) - RCONST(14998) = (KRO2NO3) - RCONST(14999) = (8.8D-13*RO2) - RCONST(15000) = (KRO2HO2*0.625) - RCONST(15001) = (KRO2NO) - RCONST(15002) = (KRO2NO3) - RCONST(15003) = (8.80D-13*RO2) - RCONST(15004) = (KAPHO2*0.44) - RCONST(15005) = (KAPHO2*0.56) - RCONST(15006) = (KAPNO) - RCONST(15007) = (KFPAN) - RCONST(15008) = (KRO2NO3*1.74) - RCONST(15009) = (1.00D-11*RO2) - RCONST(15010) = (KRO2HO2*0.625) - RCONST(15011) = (KRO2NO) - RCONST(15012) = (KRO2NO3) - RCONST(15013) = (2.00D-12*RO2) - RCONST(15014) = (9.31D-11) - RCONST(15015) = (j('ch3o2h')+j('n_c3h7cho_hco')*2) - RCONST(15016) = (KDEC) - RCONST(15017) = (6.15D-11) - RCONST(15018) = (j('n_c3h7cho_hco')*2) - RCONST(15019) = (KAPHO2*0.15) - RCONST(15020) = (KAPHO2*0.41) - RCONST(15021) = (KAPHO2*0.44) - RCONST(15022) = (KAPNO) - RCONST(15023) = (KFPAN) - RCONST(15024) = (KRO2NO3*1.74) - RCONST(15025) = (1.00D-11*RO2*0.3) - RCONST(15026) = (1.00D-11*RO2*0.7) - RCONST(15027) = (1.06D-11) - RCONST(15028) = (1.37D-11) - RCONST(15029) = (j('ch3o2h')+j('mek')) - RCONST(15030) = (KRO2HO2*0.706) - RCONST(15031) = (KRO2NO) - RCONST(15032) = (KRO2NO3) - RCONST(15033) = (8.80D-13*RO2*0.6) - RCONST(15034) = (8.80D-13*RO2*0.2) - RCONST(15035) = (8.80D-13*RO2*0.2) - RCONST(15036) = (1.01D-11) - RCONST(15037) = (KBPAN) - RCONST(15038) = (3.31D-11) - RCONST(15039) = (j('ch3o2h')) - RCONST(15040) = (j('n_c3h7cho_hco')) - RCONST(15041) = (j('mek')) - RCONST(15042) = (KDEC*0.5) - RCONST(15043) = (KDEC*0.5) - RCONST(15044) = (2.97D-11) - RCONST(15045) = (j('n_c3h7cho_hco')) - RCONST(15046) = (j('mek')) - RCONST(15047) = (KRO2HO2*0.770) - RCONST(15048) = (KRO2NO) - RCONST(15049) = (KRO2NO3) - RCONST(15050) = (9.20D-14*RO2*0.7) - RCONST(15051) = (9.20D-14*RO2*0.3) - RCONST(15052) = (4.16D-11) - RCONST(15053) = (j('ch3o2h')) - RCONST(15054) = (KDEC) - RCONST(15055) = (2.43D-11) - RCONST(15056) = (j('mek')) - RCONST(15057) = (2.95D-11) - RCONST(15058) = (7.96D-12) - RCONST(15059) = (KRO2HO2*0.947) - RCONST(15060) = (KRO2NO*0.240) - RCONST(15061) = (KRO2NO*0.760) - RCONST(15062) = (KRO2NO3) - RCONST(15063) = (2.50D-13*RO2*0.2) - RCONST(15064) = (2.50D-13*RO2*0.6) - RCONST(15065) = (2.50D-13*RO2*0.2) - RCONST(15066) = (1.45D-11) - RCONST(15067) = (j('ch3o2h')+j('biacet')) - RCONST(15068) = (KDEC) - RCONST(15069) = (7.61D-12) - RCONST(15070) = (j('biacet')) - RCONST(15071) = (3.09D-11) - RCONST(15072) = (j('ch3o2h')+j('biacet')) - RCONST(15073) = (KDEC) - RCONST(15074) = (7.18D-12) - RCONST(15075) = (j('ch3o2h')) - RCONST(15076) = (3.58D-12) - RCONST(15077) = (KBPAN) - RCONST(15078) = (1.05D-11) - RCONST(15079) = (1.90D-12*EXP(190/TEMP)) - RCONST(15080) = (j('ch3o2h')) - RCONST(15081) = (KROPRIM*O2) - RCONST(15082) = (2.65D-11) - RCONST(15083) = (j('ch3o2h')) - RCONST(15084) = (KDEC) - RCONST(15085) = (1.48D-11) - RCONST(15086) = (j('biacet')) - RCONST(15087) = (1.43D-11) - RCONST(15088) = (j('mek')+j('ch3o2h')) - RCONST(15089) = (3.38D-11) - RCONST(15090) = (KDEC) - RCONST(15091) = (7.46D-11) - RCONST(15092) = (j('ch3o2h')) - RCONST(15093) = (KDEC) - RCONST(15094) = (6.55D-12) - RCONST(15095) = (j('ch3o2h')+j('biacet')) - RCONST(15096) = (2.92D-12) - RCONST(15097) = (KBPAN) - RCONST(15098) = (9.61D-12) - RCONST(15099) = (j('ch3o2h')+j('biacet')) - RCONST(15100) = (KDEC) - RCONST(15101) = (2*KNO3AL*8.5) - RCONST(15102) = (1.32D-10) - RCONST(15103) = (j('n_c3h7cho_hco')*2) - RCONST(15104) = (6.67D-11) - RCONST(15105) = (j('n_c3h7cho_hco')) - RCONST(15106) = (6.98D-11) - RCONST(15107) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(15108) = (2.11D-11) - RCONST(15109) = (KBPAN) - RCONST(15110) = (2.74D-11) - RCONST(15111) = (j('ch3o2h')) - RCONST(15112) = (j('mek')) - RCONST(15113) = (KDEC) - RCONST(15114) = (3.04D-11) - RCONST(15115) = (j('ch3o2h')) - RCONST(15116) = (j('mek')) - RCONST(15117) = (KDEC) - RCONST(15118) = (2.70D-11) - RCONST(15119) = (j('mek')) - RCONST(15120) = (3.68D-11) - RCONST(15121) = (j('ch3o2h')) - RCONST(15122) = (7.81D-12) - RCONST(15123) = (j('2_c4h9ono2')) - RCONST(15124) = (KDEC) - RCONST(15125) = (1.90D-11) - RCONST(15126) = (2.13D-11) - RCONST(15127) = (j('n_c3h7cho_hco')) - RCONST(15128) = (KNO3AL*8.5) - RCONST(15129) = (2.27D-11) - RCONST(15130) = (j('n_c3h7cho_hco')) - RCONST(15131) = (KAPHO2*0.56) - RCONST(15132) = (KAPHO2*0.44) - RCONST(15133) = (KAPNO) - RCONST(15134) = (KFPAN) - RCONST(15135) = (KRO2NO3*1.74) - RCONST(15136) = (1.00D-11*RO2) - RCONST(15137) = (KRO2HO2*0.520) - RCONST(15138) = (KRO2NO) - RCONST(15139) = (KRO2NO3) - RCONST(15140) = (2.00D-12*0.6*RO2) - RCONST(15141) = (2.00D-12*0.2*RO2) - RCONST(15142) = (2.00D-12*0.2*RO2) - RCONST(15143) = (KAPHO2*0.56) - RCONST(15144) = (KAPHO2*0.44) - RCONST(15145) = (KAPNO) - RCONST(15146) = (KFPAN) - RCONST(15147) = (KRO2NO3*1.74) - RCONST(15148) = (1.00D-11*RO2) - RCONST(15149) = (KRO2HO2*0.859) - RCONST(15150) = (KRO2NO) - RCONST(15151) = (KRO2NO3) - RCONST(15152) = (6.70D-15*RO2) - RCONST(15153) = (4.14D-12) - RCONST(15154) = (j('ch3o2h')) - RCONST(15155) = (5.40D-13) - RCONST(15156) = (KBPAN) - RCONST(15157) = (1.90D-12*EXP(190/TEMP)) - RCONST(15158) = (9.22D-12) - RCONST(15159) = (j('ch3o2h')) - RCONST(15160) = (KDEC) - RCONST(15161) = (2.52D-13) - RCONST(15162) = (2.16D-13) - RCONST(15163) = (j('ch3cocho')) - RCONST(15164) = (8.26D-12) - RCONST(15165) = (j('ch3o2h')) - RCONST(15166) = (4.66D-12) - RCONST(15167) = (KBPAN) - RCONST(15168) = (8.26D-12) - RCONST(15169) = (j('ch3o2h')) - RCONST(15170) = (KDEC) - RCONST(15171) = (KRO2HO2*0.520) - RCONST(15172) = (KRO2NO) - RCONST(15173) = (KRO2NO3) - RCONST(15174) = (2.00D-12*RO2) - RCONST(15175) = (1.99D-11) - RCONST(15176) = (j('ch3o2h')) - RCONST(15177) = (KDEC) - -END SUBROUTINE Update_RCONST - -! End of Update_RCONST function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_PHOTO - function to update photolytical rate constants -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Update_PHOTO ( ) - - - USE MCMv3_3_Global - - RCONST(37) = (j('o31d')) - RCONST(38) = (j('o33p')) - RCONST(39) = (j('h2o2')) - RCONST(40) = (j('no2')) - RCONST(41) = (j('no3o2')) - RCONST(42) = (j('no3o')) - RCONST(43) = (j('hno2')) - RCONST(44) = (j('hno3')) - RCONST(86) = (j('mek')) - RCONST(96) = (j('ch2or')) - RCONST(97) = (j('ch2om')) - RCONST(100) = (j('ch3cho')) - RCONST(106) = (j('c2h5cho')) - RCONST(110) = (j('n_c3h7cho_ch3cho')) - RCONST(111) = (j('n_c3h7cho_hco')) - RCONST(116) = (j('i_c3h7cho')) - RCONST(120) = (j('n_c3h7cho_hco')) - RCONST(125) = (0.3*j('ch2cch3cho_hco')) - RCONST(126) = (0.4*j('ch2cch3cho_hco')) - RCONST(127) = (0.3*j('ch2cch3cho_hco')) - RCONST(130) = (j('ch2cch3cho_hco')) - RCONST(131) = (j('ch2cch3cho_h')) - RCONST(146) = (j('ch2cch3cho_hco')*1.44) - RCONST(396) = (j('ch2cch3cho_h')) - RCONST(397) = (j('ch2cch3cho_hco')) - RCONST(425) = (j('ch3coch3')) - RCONST(429) = (j('mek')) - RCONST(432) = (j('mek')) - RCONST(435) = (j('mek')) - RCONST(436) = (j('mek')) - RCONST(442) = (j('mek')) - RCONST(447) = (j('mek')) - RCONST(450) = (j('mek')) - RCONST(451) = (j('mek')) - RCONST(454) = (j('mek')*0.5) - RCONST(455) = (j('mek')*0.5) - RCONST(569) = (j('n_c3h7cho_ch3cho')) - RCONST(570) = (j('i_c3h7cho')) - RCONST(673) = (j('n_c3h7cho_hco')) - RCONST(675) = (j('mek')) - RCONST(678) = (j('i_c3h7cho')) - RCONST(696) = (j('i_c3h7cho')) - RCONST(838) = (0.3333*j('gly')) - RCONST(839) = (0.3333*j('gly')) - RCONST(840) = (0.3333*j('gly')) - RCONST(859) = (j('ch3cocho')) - RCONST(1418) = (j('no2')*0.1*0.5) - RCONST(1419) = (j('no2')*0.1*0.5) - RCONST(1449) = (j('no2')*0.1*0.5) - RCONST(1450) = (j('no2')*0.1*0.5) - RCONST(1468) = (j('no2')*0.05*0.5) - RCONST(1469) = (j('no2')*0.05*0.5) - RCONST(1494) = (j('no2')*0.028*0.5) - RCONST(1495) = (j('no2')*0.028*0.5) - RCONST(1519) = (j('no2')*0.1*0.5) - RCONST(1520) = (j('no2')*0.1*0.5) - RCONST(1551) = (j('no2')*0.028*0.5) - RCONST(1552) = (j('no2')*0.028*0.5) - RCONST(1577) = (j('no2')*0.028*0.5) - RCONST(1578) = (j('no2')*0.028*0.5) - RCONST(1602) = (j('no2')*0.028*0.5) - RCONST(1603) = (j('no2')*0.028*0.5) - RCONST(1626) = (j('mek')) - RCONST(1627) = (j('mvk_mcm_ch2ch')) - RCONST(1651) = (j('no2')*0.028*0.5) - RCONST(1652) = (j('no2')*0.028*0.5) - RCONST(1675) = (j('no2')*0.1*0.5) - RCONST(1676) = (j('no2')*0.1*0.5) - RCONST(1694) = (j('no2')*0.05*0.5) - RCONST(1695) = (j('no2')*0.05*0.5) - RCONST(1713) = (j('no2')*0.028*0.5) - RCONST(1714) = (j('no2')*0.028*0.5) - RCONST(1731) = (j('no2')*0.028*0.5) - RCONST(1732) = (j('no2')*0.028*0.5) - RCONST(1757) = (j('no2')*0.028*0.5) - RCONST(1758) = (j('no2')*0.028*0.5) - RCONST(1785) = (j('no2')*0.028*0.5) - RCONST(1786) = (j('no2')*0.028*0.5) - RCONST(1862) = (j('mvk_mcm_co')) - RCONST(1863) = (j('mvk_mcm_ch2ch')) - RCONST(1892) = (j('n_c3h7cho_hco')) - RCONST(1897) = (j('mek')) - RCONST(2208) = (j('ch3o2h')) - RCONST(2212) = (j('ch3o2h')) - RCONST(2215) = (j('n_c3h7ono2')) - RCONST(2218) = (j('n_c3h7cho_hco')) - RCONST(2224) = (j('ch3o2h')) - RCONST(2229) = (j('ch3o2h')) - RCONST(2234) = (j('ch3o2h')) - RCONST(2238) = (j('mek')) - RCONST(2242) = (j('ch3o2h')) - RCONST(2244) = (j('1_c4h9ono2')) - RCONST(2249) = (j('mek')) - RCONST(2252) = (j('ch3o2h')) - RCONST(2256) = (j('mek')) - RCONST(2259) = (j('ch3o2h')) - RCONST(2265) = (j('ch3o2h')) - RCONST(2267) = (j('n_c3h7ono2')) - RCONST(2269) = (j('i_c3h7cho')) - RCONST(2275) = (j('ch3o2h')) - RCONST(2278) = (j('ch3o2h')) - RCONST(2281) = (j('n_c3h7ono2')) - RCONST(2285) = (j('n_c3h7cho_hco')) - RCONST(2291) = (j('ch3o2h')) - RCONST(2296) = (j('mek')) - RCONST(2305) = (j('ch3o2h')) - RCONST(2307) = (j('1_c4h9ono2')) - RCONST(2311) = (j('mek')) - RCONST(2314) = (j('ch3o2h')) - RCONST(2332) = (j('ch3o2h')) - RCONST(2334) = (j('2_c4h9ono2')) - RCONST(2340) = (j('ch3o2h')) - RCONST(2345) = (j('mek')) - RCONST(2346) = (j('ch3o2h')) - RCONST(2349) = (j('n_c3h7ono2')) - RCONST(2353) = (j('n_c3h7cho_hco')) - RCONST(2358) = (j('ch3o2h')) - RCONST(2366) = (j('ch3o2h')) - RCONST(2371) = (j('i_c3h7cho')) - RCONST(2372) = (j('ch3o2h')) - RCONST(2375) = (j('n_c3h7ono2')) - RCONST(2379) = (j('i_c3h7cho')) - RCONST(2385) = (j('ch3o2h')) - RCONST(2390) = (j('ch3o2h')) - RCONST(2395) = (j('mek')) - RCONST(2398) = (j('mek')) - RCONST(2399) = (j('ch3o2h')) - RCONST(2402) = (j('biacet')) - RCONST(2404) = (j('mek')) - RCONST(2407) = (j('ch3o2h')+j('mek')) - RCONST(2410) = (j('mek')) - RCONST(2412) = (j('i_c3h7cho')) - RCONST(2415) = (j('ch3o2h')) - RCONST(2416) = (j('mek')) - RCONST(2419) = (j('mek')) - RCONST(2422) = (j('ch3cocho')) - RCONST(2425) = (j('ch3o2h')) - RCONST(2444) = (j('ch3o2h')) - RCONST(2450) = (j('ch3o2h')) - RCONST(2476) = (j('ch3o2h')) - RCONST(2479) = (j('mek')) - RCONST(2483) = (j('ch3o2h')) - RCONST(2486) = (j('i_c3h7cho')) - RCONST(2487) = (j('ch3o2h')) - RCONST(2490) = (j('ch3ono2')) - RCONST(2496) = (j('ch3o2h')) - RCONST(2497) = (j('n_c3h7cho_hco')) - RCONST(2500) = (j('ch3o2h')) - RCONST(2504) = (j('ch3o2h')) - RCONST(2507) = (j('c2h5ono2')) - RCONST(2511) = (j('ch3o2h')) - RCONST(2516) = (j('ch3o2h')) - RCONST(2517) = (j('n_c3h7cho_hco')) - RCONST(2519) = (j('1_c4h9ono2')+j('n_c3h7cho_hco')) - RCONST(2524) = (j('n_c3h7cho_hco')) - RCONST(2525) = (j('n_c3h7cho_hco')) - RCONST(2529) = (j('ch3o2h')) - RCONST(2532) = (j('n_c3h7ono2')) - RCONST(2537) = (j('ch3o2h')) - RCONST(2542) = (j('ch3o2h')+j('i_c3h7cho')) - RCONST(2544) = (j('n_c3h7ono2')+j('i_c3h7cho')) - RCONST(2548) = (j('i_c3h7cho')*2.0) - RCONST(2550) = (j('i_c3h7cho')) - RCONST(2551) = (j('ch3o2h')) - RCONST(2553) = (j('ch3o2h')) - RCONST(2556) = (j('1_c4h9ono2')) - RCONST(2561) = (j('ch3o2h')) - RCONST(2566) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(2568) = (j('1_c4h9ono2')+j('n_c3h7cho_hco')) - RCONST(2570) = (j('n_c3h7cho_hco')) - RCONST(2573) = (j('ch3o2h')) - RCONST(2576) = (j('n_c3h7ono2')) - RCONST(2581) = (j('ch3o2h')) - RCONST(2587) = (j('ch3o2h')) - RCONST(2589) = (j('ch3cocho')) - RCONST(2594) = (j('n_c3h7cho_hco')*2) - RCONST(2596) = (j('ch3o2h')) - RCONST(2597) = (j('n_c3h7cho_hco')) - RCONST(2610) = (j('ch3o2h')) - RCONST(2624) = (j('i_c3h7cho')) - RCONST(2625) = (j('ch3o2h')) - RCONST(2629) = (j('ch3coch2ono2')*10) - RCONST(2631) = (j('i_c3h7cho')) - RCONST(2634) = (j('i_c3h7cho')) - RCONST(2635) = (j('ch3o2h')) - RCONST(2636) = (j('ch3coch2ono2')*1.6) - RCONST(2640) = (j('i_c3h7cho')*2) - RCONST(2642) = (j('ch3o2h')) - RCONST(2648) = (j('i_c3h7cho')+j('ch3o2h')) - RCONST(2652) = (j('ch3cocho')) - RCONST(2653) = (j('2_c4h9ono2')) - RCONST(2655) = (j('i_c3h7cho')+j('2_c4h9ono2')) - RCONST(2658) = (j('i_c3h7cho')+j('ch3o2h')) - RCONST(2661) = (j('i_c3h7cho')) - RCONST(2669) = (j('ch3o2h')+j('i_c3h7cho')) - RCONST(2672) = (j('i_c3h7cho')) - RCONST(2673) = (j('n_c3h7cho_hco')) - RCONST(2677) = (j('i_c3h7cho')) - RCONST(2678) = (j('ch3o2h')) - RCONST(2681) = (j('ch3cocho')) - RCONST(2684) = (j('ch3o2h')) - RCONST(2686) = (j('1_c4h9ono2')) - RCONST(2689) = (j('ch3o2h')) - RCONST(2692) = (j('n_c3h7ono2')) - RCONST(2696) = (j('ch3o2h')) - RCONST(2698) = (j('2_c4h9ono2')) - RCONST(2701) = (j('ch3o2h')) - RCONST(2703) = (j('n_c3h7ono2')) - RCONST(2708) = (j('ch3o2h')) - RCONST(2710) = (j('1_c4h9ono2')) - RCONST(2715) = (j('ch3o2h')) - RCONST(2717) = (j('1_c4h9ono2')) - RCONST(2720) = (j('ch3o2h')) - RCONST(2723) = (j('n_c3h7ono2')) - RCONST(2727) = (j('ch3o2h')) - RCONST(2730) = (j('1_c4h9ono2')) - RCONST(2734) = (j('ch3o2h')) - RCONST(2736) = (j('2_c4h9ono2')) - RCONST(2739) = (j('ch3o2h')) - RCONST(2742) = (j('n_c3h7ono2')) - RCONST(2748) = (j('i_c3h7cho')) - RCONST(2749) = (j('ch3o2h')) - RCONST(2752) = (j('n_c3h7ono2')) - RCONST(2755) = (j('n_c3h7cho_ch3cho')) - RCONST(2756) = (j('n_c3h7cho_hco')) - RCONST(2760) = (j('ch3o2h')) - RCONST(2763) = (j('1_c4h9ono2')) - RCONST(2767) = (j('ch3o2h')) - RCONST(2769) = (j('1_c4h9ono2')) - RCONST(2774) = (j('ch3o2h')) - RCONST(2777) = (j('n_c3h7ono2')) - RCONST(2780) = (j('i_c3h7cho')) - RCONST(2784) = (j('ch3o2h')) - RCONST(2787) = (j('1_c4h9ono2')) - RCONST(2792) = (j('ch3o2h')) - RCONST(2795) = (j('1_c4h9ono2')) - RCONST(2800) = (j('mek')) - RCONST(2801) = (j('mek')) - RCONST(2805) = (j('ch3o2h')) - RCONST(2807) = (j('2_c4h9ono2')) - RCONST(2812) = (j('ch3o2h')) - RCONST(2815) = (j('n_c3h7ono2')) - RCONST(2818) = (j('n_c3h7cho_hco')) - RCONST(2822) = (j('ch3o2h')) - RCONST(2825) = (j('1_c4h9ono2')) - RCONST(2829) = (j('mek')) - RCONST(2833) = (j('ch3o2h')) - RCONST(2835) = (j('2_c4h9ono2')) - RCONST(2839) = (j('ch3o2h')) - RCONST(2842) = (j('1_c4h9ono2')) - RCONST(2847) = (j('ch3o2h')) - RCONST(2850) = (j('n_c3h7ono2')) - RCONST(2853) = (j('n_c3h7cho_hco')) - RCONST(2857) = (j('ch3o2h')) - RCONST(2860) = (j('n_c3h7ono2')) - RCONST(2864) = (j('i_c3h7cho')) - RCONST(2868) = (j('ch3o2h')) - RCONST(2870) = (j('2_c4h9ono2')) - RCONST(2874) = (j('ch3o2h')) - RCONST(2877) = (j('n_c3h7ono2')) - RCONST(2882) = (j('i_c3h7cho')) - RCONST(2885) = (j('ch3o2h')) - RCONST(2887) = (j('1_c4h9ono2')) - RCONST(2890) = (j('mek')) - RCONST(2893) = (j('ch3o2h')) - RCONST(2895) = (j('1_c4h9ono2')) - RCONST(2898) = (j('mek')) - RCONST(2901) = (j('ch3o2h')) - RCONST(2903) = (j('2_c4h9ono2')) - RCONST(2907) = (j('ch3o2h')) - RCONST(2909) = (j('1_c4h9ono2')) - RCONST(2912) = (j('mek')) - RCONST(2915) = (j('ch3o2h')) - RCONST(2917) = (j('2_c4h9ono2')) - RCONST(2921) = (j('ch3o2h')) - RCONST(2923) = (j('1_c4h9ono2')) - RCONST(2926) = (j('mek')) - RCONST(2929) = (j('ch3o2h')) - RCONST(2931) = (j('1_c4h9ono2')) - RCONST(2934) = (j('mek')) - RCONST(2937) = (j('ch3o2h')) - RCONST(2939) = (j('1_c4h9ono2')) - RCONST(2942) = (j('mek')) - RCONST(2946) = (j('ch3o2h')) - RCONST(2948) = (j('1_c4h9ono2')) - RCONST(2951) = (j('mek')) - RCONST(2953) = (j('ch3o2h')) - RCONST(2955) = (j('1_c4h9ono2')) - RCONST(2958) = (j('mek')) - RCONST(2961) = (j('ch3o2h')) - RCONST(2963) = (j('1_c4h9ono2')) - RCONST(2969) = (j('ch3o2h')) - RCONST(2974) = (j('ch3coch2ono2')*4.3) - RCONST(2977) = (j('ch3o2h')) - RCONST(2982) = (j('ch3coch2ono2')*10) - RCONST(2985) = (j('ch3o2h')) - RCONST(2989) = (j('ch3coch2ono2')) - RCONST(2991) = (j('ch3o2h')) - RCONST(2995) = (j('ch3coch2ono2')) - RCONST(2998) = (j('ch3o2h')) - RCONST(3002) = (j('1_c4h9ono2')) - RCONST(3003) = (j('i_c3h7cho')) - RCONST(3012) = (j('ch3o2h')) - RCONST(3016) = (j('n_c3h7cho_hco')) - RCONST(3018) = (j('ch3o2h')) - RCONST(3022) = (j('ch3coch2ono2')*1.6) - RCONST(3024) = (j('ch3o2h')) - RCONST(3027) = (j('ch3o2h')) - RCONST(3032) = (j('n_c3h7cho_hco')) - RCONST(3033) = (j('ch3coch2ono2')*10) - RCONST(3041) = (j('ch3o2h')) - RCONST(3045) = (j('ch3coch2ono2')*1.6) - RCONST(3049) = (j('ch3o2h')) - RCONST(3054) = (j('ch3coch2ono2')*10) - RCONST(3064) = (j('ch3o2h')) - RCONST(3067) = (j('mek')) - RCONST(3071) = (j('ch3o2h')) - RCONST(3075) = (j('n_c3h7cho_hco')) - RCONST(3078) = (j('ch3o2h')) - RCONST(3082) = (j('ch3coch2ono2')*1.6) - RCONST(3085) = (j('ch3o2h')) - RCONST(3089) = (j('ch3coch2ono2')*1.6) - RCONST(3093) = (j('ch3o2h')) - RCONST(3096) = (j('mek')) - RCONST(3099) = (j('ch3o2h')) - RCONST(3104) = (j('ch3coch2ono2')*10) - RCONST(3105) = (j('n_c3h7cho_hco')) - RCONST(3107) = (j('ch3o2h')) - RCONST(3116) = (j('ch3o2h')) - RCONST(3120) = (j('ch3coch2ono2')) - RCONST(3122) = (j('n_c3h7ono2')) - RCONST(3125) = (j('ch3o2h')) - RCONST(3130) = (j('ch3coch2ono2')*10) - RCONST(3139) = (j('ch3o2h')) - RCONST(3143) = (j('i_c3h7cho')) - RCONST(3146) = (j('ch3o2h')) - RCONST(3150) = (j('ch3coch2ono2')*1.6) - RCONST(3152) = (j('ch3o2h')) - RCONST(3160) = (j('ch3coch2ono2')*10+j('n_c3h7cho_hco')) - RCONST(3164) = (j('ch3o2h')) - RCONST(3168) = (j('ch3coch2ono2')) - RCONST(3178) = (j('ch3o2h')) - RCONST(3181) = (j('mek')) - RCONST(3183) = (j('ch3o2h')) - RCONST(3187) = (j('n_c3h7cho_hco')) - RCONST(3192) = (j('ch3o2h')) - RCONST(3196) = (j('ch3coch2ono2')*1.6) - RCONST(3200) = (j('ch3o2h')) - RCONST(3204) = (j('ch3coch2ono2')*1.6) - RCONST(3208) = (j('ch3o2h')) - RCONST(3212) = (j('mek')) - RCONST(3215) = (j('ch3o2h')) - RCONST(3218) = (j('mek')) - RCONST(3220) = (j('ch3o2h')) - RCONST(3224) = (j('ch3o2h')) - RCONST(3228) = (j('ch3o2h')) - RCONST(3230) = (j('1_c4h9ono2')) - RCONST(3235) = (j('mek')) - RCONST(3246) = (j('i_c3h7cho')*2) - RCONST(3268) = (j('no2')*0.14*0.4) - RCONST(3269) = (j('no2')*0.14*0.6) - RCONST(3286) = (j('ch3o2h')) - RCONST(3288) = (j('n_c3h7ono2')) - RCONST(3307) = (j('ch3o2h')) - RCONST(3314) = (j('1_c4h9ono2')) - RCONST(3317) = (j('mek')) - RCONST(3344) = (j('ch3o2h')) - RCONST(3346) = (j('n_c3h7ono2')) - RCONST(3350) = (j('ch2cch3cho_h')) - RCONST(3351) = (j('ch2cch3cho_hco')) - RCONST(3354) = (j('ch3o2h')) - RCONST(3356) = (j('2_c4h9ono2')) - RCONST(3374) = (j('i_c3h7cho')*2) - RCONST(3403) = (j('ch3o2h')) - RCONST(3405) = (j('n_c3h7ono2')) - RCONST(3409) = (j('ch2cch3cho_h')) - RCONST(3410) = (j('ch2cch3cho_hco')) - RCONST(3413) = (j('ch3o2h')) - RCONST(3415) = (j('1_c4h9ono2')) - RCONST(3424) = (j('mek')*0.5) - RCONST(3425) = (j('mek')*0.5) - RCONST(3436) = (j('i_c3h7cho')*2) - RCONST(3466) = (j('ch3o2h')) - RCONST(3468) = (j('n_c3h7ono2')) - RCONST(3472) = (j('ch2cch3cho_h')) - RCONST(3473) = (j('ch2cch3cho_hco')) - RCONST(3476) = (j('ch3o2h')) - RCONST(3478) = (j('2_c4h9ono2')) - RCONST(3519) = (j('ch3o2h')) - RCONST(3522) = (j('n_c3h7ono2')) - RCONST(3526) = (j('i_c3h7cho')) - RCONST(3543) = (j('ch3o2h')) - RCONST(3549) = (j('1_c4h9ono2')) - RCONST(3552) = (j('mek')) - RCONST(3579) = (j('ch3o2h')) - RCONST(3581) = (j('1_c4h9ono2')) - RCONST(3585) = (j('mek')) - RCONST(3602) = (j('ch3o2h')) - RCONST(3608) = (j('1_c4h9ono2')) - RCONST(3611) = (j('mek')) - RCONST(3638) = (j('ch3o2h')) - RCONST(3640) = (j('2_c4h9ono2')) - RCONST(3659) = (j('ch3o2h')) - RCONST(3665) = (j('1_c4h9ono2')) - RCONST(3668) = (j('mek')) - RCONST(3695) = (j('ch3o2h')) - RCONST(3697) = (j('n_c3h7ono2')) - RCONST(3701) = (j('ch2cch3cho_h')) - RCONST(3702) = (j('ch2cch3cho_hco')) - RCONST(3720) = (j('ch3o2h')) - RCONST(3722) = (j('1_c4h9ono2')) - RCONST(3731) = (j('mek')) - RCONST(3734) = (j('mek')) - RCONST(3735) = (j('i_c3h7cho')) - RCONST(3744) = (j('ch3o2h')) - RCONST(3746) = (j('n_c3h7ono2')) - RCONST(3750) = (j('ch2cch3cho_h')) - RCONST(3751) = (j('ch2cch3cho_hco')) - RCONST(3754) = (j('ch3o2h')) - RCONST(3756) = (j('2_c4h9ono2')) - RCONST(3800) = (j('ch3o2h')) - RCONST(3802) = (j('n_c3h7ono2')) - RCONST(3806) = (j('ch2cch3cho_h')) - RCONST(3807) = (j('ch2cch3cho_hco')) - RCONST(3810) = (j('ch3o2h')) - RCONST(3812) = (j('1_c4h9ono2')) - RCONST(3817) = (j('mek')) - RCONST(3839) = (j('mek')) - RCONST(3840) = (j('i_c3h7cho')) - RCONST(3856) = (j('ch3o2h')) - RCONST(3858) = (j('1_c4h9ono2')) - RCONST(3862) = (j('mek')) - RCONST(3864) = (j('ch3o2h')) - RCONST(3866) = (j('2_c4h9ono2')) - RCONST(3884) = (j('i_c3h7cho')*2) - RCONST(3913) = (j('ch3o2h')) - RCONST(3915) = (j('2_c4h9ono2')) - RCONST(3923) = (j('mek')) - RCONST(3961) = (j('ch3o2h')) - RCONST(3963) = (j('2_c4h9ono2')) - RCONST(4005) = (j('ch3o2h')) - RCONST(4007) = (j('1_c4h9ono2')) - RCONST(4011) = (j('mek')) - RCONST(4013) = (j('ch3o2h')) - RCONST(4015) = (j('1_c4h9ono2')) - RCONST(4022) = (j('mek')) - RCONST(4057) = (j('ch3o2h')) - RCONST(4059) = (j('1_c4h9ono2')) - RCONST(4063) = (j('mek')) - RCONST(4076) = (j('ch3o2h')) - RCONST(4078) = (j('1_c4h9ono2')) - RCONST(4083) = (j('mek')) - RCONST(4094) = (j('mek')) - RCONST(4095) = (j('i_c3h7cho')) - RCONST(4117) = (j('ch3o2h')) - RCONST(4120) = (j('ch3o2h')) - RCONST(4125) = (j('ch3o2h')) - RCONST(4126) = (j('ch3o2h')) - RCONST(4130) = (j('mvk_mcm_ch2ch')) - RCONST(4132) = (j('ch3o2h')) - RCONST(4134) = (j('n_c3h7ono2')*2.0) - RCONST(4137) = (j('n_c3h7ono2')) - RCONST(4139) = (j('n_c3h7cho_hco')) - RCONST(4151) = (j('ch3o2h')) - RCONST(4155) = (j('ch2cch3cho_h')) - RCONST(4156) = (j('ch2cch3cho_hco')) - RCONST(4162) = (j('ch3o2h')) - RCONST(4171) = (j('mvk_mcm_co')) - RCONST(4172) = (j('mvk_mcm_ch2ch')) - RCONST(4173) = (j('ch3o2h')) - RCONST(4176) = (j('n_c3h7cho_hco')) - RCONST(4179) = (j('ch3o2h')) - RCONST(4181) = (j('n_c3h7ono2')*2.0) - RCONST(4184) = (j('n_c3h7ono2')) - RCONST(4188) = (j('ch3coch2ono2')*16) - RCONST(4269) = (j('ch3o2h')) - RCONST(4276) = (j('n_c3h7cho_hco')) - RCONST(4339) = (j('ch3o2h')) - RCONST(4343) = (j('n_c3h7ono2')) - RCONST(4347) = (j('ch3o2h')) - RCONST(4352) = (j('1_c4h9ono2')) - RCONST(4356) = (j('ch3o2h')) - RCONST(4358) = (j('n_c3h7ono2')) - RCONST(4367) = (j('n_c3h7cho_hco')) - RCONST(4371) = (j('mek')) - RCONST(4372) = (j('ch3o2h')) - RCONST(4375) = (j('ch3o2h')+j('mek')) - RCONST(4377) = (j('n_c3h7ono2')+j('mek')) - RCONST(4382) = (j('mek')) - RCONST(4383) = (j('ch3o2h')) - RCONST(4385) = (j('biacet')) - RCONST(4389) = (j('mek')) - RCONST(4390) = (j('ch3o2h')) - RCONST(4392) = (j('ch3cocho')) - RCONST(4397) = (j('ch3o2h')) - RCONST(4398) = (j('mek')) - RCONST(4401) = (j('1_c4h9ono2')+j('mek')) - RCONST(4403) = (j('mek')) - RCONST(4405) = (j('mek')) - RCONST(4408) = (j('mek')) - RCONST(4409) = (j('ch3o2h')) - RCONST(4412) = (j('biacet')) - RCONST(4415) = (j('mek')) - RCONST(4416) = (j('ch3o2h')) - RCONST(4420) = (j('ch3o2h')+j('mek')) - RCONST(4422) = (j('mek')+j('n_c3h7ono2')) - RCONST(4425) = (j('mek')) - RCONST(4426) = (j('ch3o2h')+j('mek')) - RCONST(4429) = (j('ch3o2h')+j('mek')) - RCONST(4431) = (j('n_c3h7ono2')+j('mek')) - RCONST(4435) = (j('i_c3h7cho')) - RCONST(4440) = (j('mek')+j('ch3o2h')) - RCONST(4442) = (j('mek')+j('1_c4h9ono2')) - RCONST(4445) = (j('mek')) - RCONST(4446) = (j('mek')) - RCONST(4448) = (j('mek')) - RCONST(4451) = (j('mek')+j('ch3o2h')) - RCONST(4453) = (j('mek')+j('1_c4h9ono2')) - RCONST(4456) = (j('mek')*2) - RCONST(4458) = (j('mek')) - RCONST(4463) = (j('mek')) - RCONST(4464) = (j('ch3o2h')) - RCONST(4467) = (j('biacet')) - RCONST(4470) = (j('ch3o2h')) - RCONST(4471) = (j('mek')) - RCONST(4473) = (j('n_c3h7ono2')+j('mek')) - RCONST(4476) = (j('mek')) - RCONST(4479) = (j('mek')) - RCONST(4480) = (j('ch3o2h')) - RCONST(4483) = (j('biacet')) - RCONST(4485) = (j('mek')) - RCONST(4488) = (j('mek')) - RCONST(4489) = (j('ch3o2h')) - RCONST(4493) = (j('ch3o2h')+j('mek')) - RCONST(4495) = (j('n_c3h7ono2')+j('mek')) - RCONST(4499) = (j('mek')) - RCONST(4500) = (j('n_c3h7cho_hco')) - RCONST(4502) = (j('mek')) - RCONST(4504) = (j('ch3o2h')+j('mek')) - RCONST(4506) = (j('2_c4h9ono2')+j('mek')) - RCONST(4511) = (j('mek')) - RCONST(4512) = (j('ch3o2h')) - RCONST(4515) = (j('biacet')) - RCONST(4517) = (j('mek')) - RCONST(4518) = (j('ch3o2h')+j('mek')) - RCONST(4520) = (j('n_c3h7ono2')+j('mek')) - RCONST(4524) = (j('i_c3h7cho')) - RCONST(4527) = (j('mek')) - RCONST(4530) = (j('ch3o2h')+j('mek')) - RCONST(4532) = (j('1_c4h9ono2')) - RCONST(4536) = (j('mek')*2) - RCONST(4538) = (j('mek')) - RCONST(4540) = (j('ch3o2h')) - RCONST(4545) = (j('ch3o2h')) - RCONST(4550) = (j('2_c4h9ono2')) - RCONST(4576) = (j('ch3o2h')) - RCONST(4580) = (j('ch3o2h')) - RCONST(4584) = (j('ch3o2h')) - RCONST(4586) = (j('2_c4h9ono2')) - RCONST(4590) = (j('ch3o2h')) - RCONST(4594) = (j('ch3o2h')) - RCONST(4599) = (j('n_c3h7cho_hco')) - RCONST(4633) = (j('ch3o2h')) - RCONST(4637) = (j('ch3o2h')) - RCONST(4641) = (j('i_c3h7cho')) - RCONST(4643) = (j('ch3o2h')) - RCONST(4645) = (j('2_c4h9ono2')) - RCONST(4649) = (j('ch3o2h')) - RCONST(4678) = (j('ch3o2h')) - RCONST(4683) = (j('ch3o2h')) - RCONST(4687) = (j('ch3o2h')) - RCONST(4692) = (j('ch3o2h')) - RCONST(4704) = (j('n_c3h7cho_hco')) - RCONST(4747) = (j('ch3o2h')) - RCONST(4752) = (j('ch3o2h')) - RCONST(4756) = (j('ch3o2h')) - RCONST(4790) = (j('ch3o2h')) - RCONST(4796) = (j('ch3o2h')) - RCONST(4800) = (j('ch3o2h')+j('i_c3h7cho')) - RCONST(4802) = (j('2_c4h9ono2')) - RCONST(4803) = (j('i_c3h7cho')) - RCONST(4807) = (j('ch3cocho')) - RCONST(4845) = (j('n_c3h7cho_hco')) - RCONST(4847) = (j('mek')) - RCONST(4857) = (j('ch3o2h')) - RCONST(4861) = (j('ch3o2h')) - RCONST(4872) = (j('ch3o2h')) - RCONST(4877) = (j('ch3cocho')) - RCONST(4941) = (j('n_c3h7ono2')) - RCONST(4942) = (j('ch3cocho')) - RCONST(4953) = (j('ch3cocho')) - RCONST(4958) = (j('ch3coch2ono2')*10) - RCONST(5421) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(5423) = (j('ch3o2h')+j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(5441) = (j('ch3o2h')+j('n_c3h7cho_hco')*2) - RCONST(5443) = (j('i_c3h7cho')) - RCONST(5447) = (j('n_c3h7cho_hco')*2+j('mek')) - RCONST(5449) = (j('n_c3h7cho_hco')*2) - RCONST(5451) = (j('ch3o2h')) - RCONST(5452) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(5455) = (j('ch3cocho')+j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(5457) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(5467) = (j('1_c4h9ono2')) - RCONST(5468) = (j('ch3o2h')) - RCONST(5471) = (j('1_c4h9ono2')) - RCONST(5476) = (j('ch3o2h')) - RCONST(5481) = (j('ch3o2h')) - RCONST(5486) = (j('1_c4h9ono2')) - RCONST(5487) = (j('ch3o2h')) - RCONST(5490) = (j('1_c4h9ono2')) - RCONST(5507) = (j('no2')*0.2*0.3) - RCONST(5508) = (j('no2')*0.2*0.3) - RCONST(5509) = (j('no2')*0.2*0.4) - RCONST(5515) = (j('no2')*0.2*0.6) - RCONST(5516) = (j('no2')*0.2*0.4) - RCONST(5529) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(5531) = (j('ch3o2h')+j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(5541) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(5543) = (j('i_c3h7cho')+j('mek')) - RCONST(5547) = (j('i_c3h7cho')+j('biacet')) - RCONST(5549) = (j('i_c3h7cho')+j('mek')) - RCONST(5551) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5552) = (j('ch3o2h')) - RCONST(5555) = (j('ch3cocho')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5557) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5567) = (j('mek')) - RCONST(5573) = (j('no2')*0.2*0.6) - RCONST(5574) = (j('no2')*0.2*0.4) - RCONST(5579) = (j('ch2cch3cho_h')+j('ch2cch3cho_hco')) - RCONST(5581) = (j('ch3o2h')+j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(5597) = (j('ch3o2h')+j('i_c3h7cho')*2) - RCONST(5599) = (j('i_c3h7cho')*2) - RCONST(5603) = (j('i_c3h7cho')+j('ch3cocho')) - RCONST(5605) = (j('i_c3h7cho')*2) - RCONST(5607) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(5608) = (j('mek')) - RCONST(5609) = (j('ch3o2h')) - RCONST(5612) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(5613) = (j('mek')) - RCONST(5615) = (j('ch3o2h')) - RCONST(5616) = (j('1_c4h9ono2')) - RCONST(5619) = (j('1_c4h9ono2')) - RCONST(5627) = (j('ch3o2h')) - RCONST(5651) = (j('no2')*0.2*0.6) - RCONST(5652) = (j('no2')*0.2*0.4) - RCONST(5666) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5668) = (j('ch3o2h')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5685) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(5687) = (j('i_c3h7cho')+j('mek')) - RCONST(5691) = (j('i_c3h7cho')+j('biacet')) - RCONST(5693) = (j('i_c3h7cho')+j('mek')) - RCONST(5695) = (j('ch3o2h')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5698) = (j('biacet')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5700) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5708) = (j('ch3o2h')) - RCONST(5713) = (j('1_c4h9ono2')) - RCONST(5714) = (j('ch3o2h')) - RCONST(5717) = (j('1_c4h9ono2')) - RCONST(5735) = (j('no2')*0.0057) - RCONST(5737) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5739) = (j('ch3o2h')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5743) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(5745) = (j('i_c3h7cho')+j('mek')) - RCONST(5749) = (j('i_c3h7cho')+j('biacet')) - RCONST(5751) = (j('i_c3h7cho')+j('mek')) - RCONST(5753) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5754) = (j('ch3o2h')) - RCONST(5755) = (j('i_c3h7cho')) - RCONST(5758) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5759) = (j('i_c3h7cho')) - RCONST(5761) = (j('ch3o2h')) - RCONST(5762) = (j('1_c4h9ono2')) - RCONST(5765) = (j('1_c4h9ono2')) - RCONST(5773) = (j('ch3o2h')) - RCONST(5795) = (j('ch3o2h')) - RCONST(5800) = (j('1_c4h9ono2')) - RCONST(5801) = (j('ch3o2h')) - RCONST(5804) = (j('1_c4h9ono2')) - RCONST(5813) = (j('no2')*0.2*0.6) - RCONST(5814) = (j('no2')*0.2*0.4) - RCONST(5827) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5829) = (j('ch3o2h')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5839) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(5841) = (j('i_c3h7cho')+j('mek')) - RCONST(5845) = (j('i_c3h7cho')+j('biacet')) - RCONST(5847) = (j('i_c3h7cho')+j('mek')) - RCONST(5849) = (j('i_c3h7cho')+j('mvk_mcm_co')) - RCONST(5850) = (j('ch3o2h')+j('mvk_mcm_ch2ch')) - RCONST(5853) = (j('i_c3h7cho')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5855) = (j('ch3cocho')) - RCONST(5863) = (j('ch3o2h')) - RCONST(5864) = (j('1_c4h9ono2')) - RCONST(5867) = (j('1_c4h9ono2')) - RCONST(5875) = (j('ch3o2h')) - RCONST(5884) = (j('ch3cocho')) - RCONST(5890) = (j('no2')*0.2*0.6) - RCONST(5891) = (j('no2')*0.2*0.4) - RCONST(5904) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5906) = (j('ch3o2h')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5916) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(5918) = (j('i_c3h7cho')+j('mek')) - RCONST(5922) = (j('i_c3h7cho')+j('biacet')) - RCONST(5924) = (j('i_c3h7cho')+j('mek')) - RCONST(5926) = (j('i_c3h7cho')+j('mvk_mcm_co')) - RCONST(5927) = (j('ch3o2h')+j('mvk_mcm_ch2ch')) - RCONST(5930) = (j('i_c3h7cho')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5932) = (j('ch3cocho')) - RCONST(5934) = (j('mek')) - RCONST(5942) = (j('ch3o2h')) - RCONST(5947) = (j('1_c4h9ono2')) - RCONST(5948) = (j('ch3o2h')) - RCONST(5951) = (j('1_c4h9ono2')) - RCONST(5960) = (j('no2')*0.2*0.6) - RCONST(5961) = (j('no2')*0.2*0.4) - RCONST(5962) = (j('no2')*0.05*0.34) - RCONST(5975) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5977) = (j('ch3o2h')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(5987) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(5989) = (j('i_c3h7cho')+j('mek')) - RCONST(5993) = (j('i_c3h7cho')+j('biacet')) - RCONST(5995) = (j('i_c3h7cho')+j('mek')) - RCONST(5997) = (j('ch3o2h')+j('mvk_mcm_ch2ch')) - RCONST(5998) = (j('i_c3h7cho')+j('mvk_mcm_co')) - RCONST(6001) = (j('i_c3h7cho')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(6003) = (j('ch3cocho')) - RCONST(6013) = (j('ch3o2h')) - RCONST(6014) = (j('1_c4h9ono2')) - RCONST(6017) = (j('1_c4h9ono2')) - RCONST(6025) = (j('ch3o2h')) - RCONST(6034) = (j('no2')*0.2*0.6) - RCONST(6035) = (j('no2')*0.2*0.4) - RCONST(6055) = (j('ch3o2h')+j('mek')*2) - RCONST(6059) = (j('mek')*2) - RCONST(6061) = (j('mek')) - RCONST(6062) = (j('mek')*2) - RCONST(6064) = (j('mek')*2) - RCONST(6080) = (j('no2')*0.0057*0.5) - RCONST(6081) = (j('no2')*0.0057*0.5) - RCONST(6083) = (j('ch3o2h')) - RCONST(6084) = (j('1_c4h9ono2')) - RCONST(6087) = (j('1_c4h9ono2')) - RCONST(6095) = (j('ch3o2h')) - RCONST(6103) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(6105) = (j('ch3o2h')) - RCONST(6106) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(6110) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(6114) = (j('i_c3h7cho')+j('mek')) - RCONST(6116) = (j('i_c3h7cho')+j('mek')*2) - RCONST(6118) = (j('i_c3h7cho')+j('mek')) - RCONST(6120) = (j('mvk_mcm_ch2ch')) - RCONST(6121) = (j('ch3o2h')) - RCONST(6122) = (j('mek')) - RCONST(6125) = (j('mvk_mcm_ch2ch')) - RCONST(6126) = (j('mek')) - RCONST(6147) = (j('ch3o2h')) - RCONST(6148) = (j('1_c4h9ono2')) - RCONST(6151) = (j('1_c4h9ono2')) - RCONST(6153) = (j('ch3o2h')) - RCONST(6157) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(6159) = (j('ch3o2h')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(6175) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(6179) = (j('i_c3h7cho')+j('mek')) - RCONST(6181) = (j('i_c3h7cho')+j('mek')) - RCONST(6183) = (j('mek')) - RCONST(6184) = (j('ch3o2h')) - RCONST(6185) = (j('mvk_mcm_co')) - RCONST(6188) = (j('mvk_mcm_co')+j('mek')) - RCONST(6190) = (j('mvk_mcm_co')) - RCONST(6191) = (j('biacet')) - RCONST(6199) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(6201) = (j('ch3o2h')+j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(6217) = (j('ch3o2h')+j('i_c3h7cho')*2) - RCONST(6219) = (j('i_c3h7cho')*2) - RCONST(6223) = (j('i_c3h7cho')+j('ch3cocho')) - RCONST(6225) = (j('i_c3h7cho')*2) - RCONST(6227) = (j('mek')) - RCONST(6228) = (j('ch3o2h')+j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(6231) = (j('mek')) - RCONST(6232) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(6234) = (j('ch3o2h')) - RCONST(6235) = (j('1_c4h9ono2')) - RCONST(6238) = (j('1_c4h9ono2')) - RCONST(6246) = (j('ch3o2h')) - RCONST(6254) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(6256) = (j('ch3o2h')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(6260) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(6262) = (j('i_c3h7cho')+j('mek')) - RCONST(6266) = (j('i_c3h7cho')+j('biacet')) - RCONST(6268) = (j('i_c3h7cho')+j('mek')) - RCONST(6270) = (j('mek')) - RCONST(6271) = (j('ch3o2h')+j('mvk_mcm_co')*2) - RCONST(6274) = (j('ch3cocho')) - RCONST(6275) = (j('mvk_mcm_co')*2) - RCONST(6277) = (j('mek')) - RCONST(6278) = (j('mvk_mcm_co')*2) - RCONST(6286) = (j('ch3o2h')) - RCONST(6291) = (j('1_c4h9ono2')) - RCONST(6292) = (j('ch3o2h')) - RCONST(6295) = (j('1_c4h9ono2')) - RCONST(6302) = (j('no2')*0.0057*0.5) - RCONST(6303) = (j('no2')*0.0057*0.5) - RCONST(6305) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(6307) = (j('ch3o2h')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(6311) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(6313) = (j('i_c3h7cho')+j('mek')) - RCONST(6317) = (j('i_c3h7cho')+j('biacet')) - RCONST(6319) = (j('i_c3h7cho')+j('mek')) - RCONST(6321) = (j('mvk_mcm_co')*2) - RCONST(6322) = (j('i_c3h7cho')) - RCONST(6323) = (j('ch3o2h')) - RCONST(6326) = (j('mvk_mcm_co')*2) - RCONST(6327) = (j('i_c3h7cho')) - RCONST(6329) = (j('ch3o2h')) - RCONST(6330) = (j('1_c4h9ono2')) - RCONST(6333) = (j('1_c4h9ono2')) - RCONST(6341) = (j('ch3o2h')) - RCONST(6359) = (j('no2')*0.2*0.6) - RCONST(6360) = (j('no2')*0.2*0.4) - RCONST(6365) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(6367) = (j('ch3o2h')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(6371) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(6375) = (j('i_c3h7cho')+j('mek')) - RCONST(6377) = (j('i_c3h7cho')+j('mek')) - RCONST(6379) = (j('mek')) - RCONST(6380) = (j('ch3o2h')) - RCONST(6381) = (j('mvk_mcm_co')) - RCONST(6384) = (j('mvk_mcm_co')+j('mek')) - RCONST(6386) = (j('biacet')+j('mvk_mcm_co')) - RCONST(6388) = (j('1_c4h9ono2')) - RCONST(6389) = (j('ch3o2h')) - RCONST(6392) = (j('1_c4h9ono2')) - RCONST(6394) = (j('ch3o2h')) - RCONST(6410) = (j('1_c4h9ono2')) - RCONST(6411) = (j('ch3o2h')) - RCONST(6414) = (j('1_c4h9ono2')) - RCONST(6416) = (j('ch3o2h')) - RCONST(6426) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(6428) = (j('ch3o2h')+j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(6451) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(6455) = (j('i_c3h7cho')+j('mek')) - RCONST(6457) = (j('i_c3h7cho')+j('mek')) - RCONST(6459) = (j('mek')) - RCONST(6460) = (j('ch3o2h')+j('mvk_mcm_co')) - RCONST(6463) = (j('mvk_mcm_co')+j('mek')) - RCONST(6465) = (j('biacet')+j('mvk_mcm_co')) - RCONST(6561) = (j('ch3o2h')) - RCONST(6563) = (j('ch3coch2ono2')*0.91) - RCONST(6566) = (j('mek')) - RCONST(6570) = (j('ch3coch2ono2')*1.6) - RCONST(6571) = (j('ch3o2h')) - RCONST(6574) = (j('biacet')) - RCONST(6576) = (j('mvk_mcm_ch2ch')) - RCONST(6577) = (j('ch3o2h')) - RCONST(6583) = (j('ch3cocho')) - RCONST(6584) = (j('ch3o2h')) - RCONST(6591) = (j('n_c3h7ono2')) - RCONST(6606) = (j('c5hpald')*0.5) - RCONST(6607) = (j('c5hpald')*0.5) - RCONST(6608) = (j('ch2cch3cho_hco')) - RCONST(6609) = (j('ch2cch3cho_h')) - RCONST(6619) = (j('ch3o2h')) - RCONST(6622) = (j('2_c4h9ono2')) - RCONST(6629) = (j('ch3o2h')) - RCONST(6647) = (j('c5hpald')*0.5) - RCONST(6648) = (j('c5hpald')*0.5) - RCONST(6649) = (j('ch2cch3cho_hco')) - RCONST(6650) = (j('ch2cch3cho_h')) - RCONST(6658) = (j('ch3o2h')) - RCONST(6662) = (j('1_c4h9ono2')) - RCONST(6667) = (j('mvk_mcm_ch2ch')) - RCONST(6690) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(6700) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(6702) = (j('ch3coch2ono2')*0.91) - RCONST(6705) = (j('ch3o2h')) - RCONST(6709) = (j('ch3o2h')) - RCONST(6711) = (j('n_c3h7ono2')) - RCONST(6714) = (j('ch3o2h')+j('mek')) - RCONST(6716) = (j('ch3o2h')+j('mek')) - RCONST(6718) = (j('mek')) - RCONST(6722) = (j('mek')*2) - RCONST(6725) = (j('ch3o2h')) - RCONST(6727) = (j('n_c3h7ono2')) - RCONST(6926) = (j('n_c3h7cho_hco')) - RCONST(6940) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(6943) = (j('n_c3h7cho_hco')) - RCONST(6945) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(6946) = (j('mek')) - RCONST(6950) = (j('ch3cocho')+j('n_c3h7cho_hco')) - RCONST(6952) = (j('mek')) - RCONST(6953) = (j('n_c3h7cho_hco')) - RCONST(6955) = (j('mek')) - RCONST(6958) = (j('ch3o2h')+j('mek')) - RCONST(6960) = (j('n_c3h7ono2')+j('mek')) - RCONST(6963) = (j('mek')) - RCONST(6966) = (j('n_c3h7cho_hco')) - RCONST(6982) = (j('ch3o2h')) - RCONST(6984) = (j('1_c4h9ono2')) - RCONST(6990) = (j('ch3o2h')) - RCONST(6992) = (j('1_c4h9ono2')) - RCONST(6997) = (j('ch3o2h')) - RCONST(6999) = (j('2_c4h9ono2')) - RCONST(7003) = (j('ch3o2h')) - RCONST(7026) = (j('n_c3h7cho_hco')) - RCONST(7028) = (j('mek')) - RCONST(7029) = (j('ch3o2h')) - RCONST(7032) = (j('biacet')) - RCONST(7034) = (j('mek')) - RCONST(7036) = (j('mek')) - RCONST(7037) = (j('ch3o2h')) - RCONST(7040) = (j('ch3cocho')) - RCONST(7042) = (j('mek')) - RCONST(7044) = (j('ch3o2h')) - RCONST(7046) = (j('n_c3h7ono2')) - RCONST(7051) = (j('n_c3h7cho_hco')) - RCONST(7087) = (j('n_c3h7cho_hco')) - RCONST(7116) = (j('ch3o2h')) - RCONST(7117) = (j('mek')) - RCONST(7120) = (j('biacet')) - RCONST(7122) = (j('mek')) - RCONST(7124) = (j('ch3o2h')) - RCONST(7125) = (j('mek')) - RCONST(7128) = (j('ch3cocho')) - RCONST(7130) = (j('mek')) - RCONST(7141) = (j('ch3o2h')) - RCONST(7143) = (j('n_c3h7ono2')) - RCONST(7151) = (j('n_c3h7cho_hco')*2) - RCONST(7154) = (j('ch3o2h')) - RCONST(7155) = (j('n_c3h7cho_hco')) - RCONST(7158) = (j('ch3cocho')) - RCONST(7160) = (j('n_c3h7cho_hco')) - RCONST(7162) = (j('ch3o2h')) - RCONST(7164) = (j('n_c3h7ono2')) - RCONST(7167) = (j('n_c3h7cho_hco')) - RCONST(7177) = (j('ch3o2h')) - RCONST(7182) = (j('ch3o2h')) - RCONST(7186) = (j('ch3o2h')) - RCONST(7188) = (j('n_c3h7ono2')) - RCONST(7192) = (j('mek')) - RCONST(7194) = (j('ch3o2h')) - RCONST(7198) = (j('ch3o2h')) - RCONST(7204) = (j('i_c3h7cho')) - RCONST(7207) = (j('ch3o2h')) - RCONST(7212) = (j('ch3o2h')) - RCONST(7215) = (j('ch3o2h')) - RCONST(7220) = (j('n_c3h7cho_hco')) - RCONST(7225) = (j('ch3o2h')) - RCONST(7250) = (j('ch3o2h')+j('biacet')) - RCONST(7253) = (j('ch3o2h')) - RCONST(7257) = (j('ch3o2h')) - RCONST(7261) = (j('ch3o2h')+j('mek')) - RCONST(7265) = (j('ch3o2h')) - RCONST(7270) = (j('i_c3h7cho')) - RCONST(7272) = (j('ch3o2h')+j('i_c3h7cho')) - RCONST(7276) = (j('n_c3h7cho_hco')) - RCONST(7277) = (j('ch3o2h')) - RCONST(7278) = (j('mek')) - RCONST(7280) = (j('ch3o2h')+j('mek')) - RCONST(7284) = (j('ch3o2h')) - RCONST(7287) = (j('n_c3h7ono2')) - RCONST(7290) = (j('n_c3h7cho_hco')) - RCONST(7297) = (j('ch3o2h')) - RCONST(7301) = (j('ch3o2h')) - RCONST(7304) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(7318) = (j('ch3o2h')) - RCONST(7325) = (j('ch3o2h')) - RCONST(7329) = (j('ch3o2h')+j('i_c3h7cho')) - RCONST(7332) = (j('mek')) - RCONST(7333) = (j('ch3o2h')) - RCONST(7337) = (j('ch3o2h')) - RCONST(7339) = (j('n_c3h7ono2')) - RCONST(7342) = (j('mek')) - RCONST(7346) = (j('ch3o2h')) - RCONST(7349) = (j('1_c4h9ono2')) - RCONST(7352) = (j('n_c3h7cho_hco')) - RCONST(7355) = (j('ch3o2h')) - RCONST(7358) = (j('n_c3h7ono2')) - RCONST(7363) = (j('n_c3h7cho_hco')) - RCONST(7367) = (j('ch3o2h')) - RCONST(7370) = (j('ch3o2h')) - RCONST(7372) = (j('1_c4h9ono2')) - RCONST(7376) = (j('mek')*0.5) - RCONST(7377) = (j('mek')*0.5) - RCONST(7380) = (j('ch3o2h')) - RCONST(7384) = (j('ch3o2h')) - RCONST(7386) = (j('1_c4h9ono2')) - RCONST(7390) = (j('ch3o2h')) - RCONST(7393) = (j('1_c4h9ono2')) - RCONST(7396) = (j('n_c3h7cho_hco')) - RCONST(7400) = (j('ch3o2h')) - RCONST(7402) = (j('1_c4h9ono2')) - RCONST(7405) = (j('mek')) - RCONST(7409) = (j('ch3o2h')) - RCONST(7413) = (j('ch3o2h')) - RCONST(7416) = (j('n_c3h7ono2')) - RCONST(7419) = (j('i_c3h7cho')) - RCONST(7423) = (j('mek')) - RCONST(7424) = (j('ch3o2h')) - RCONST(7427) = (j('mek')) - RCONST(7429) = (j('ch3o2h')+j('mek')) - RCONST(7431) = (j('n_c3h7ono2')+j('mek')) - RCONST(7434) = (j('i_c3h7cho')) - RCONST(7437) = (j('mek')) - RCONST(7439) = (j('ch3o2h')) - RCONST(7442) = (j('n_c3h7ono2')) - RCONST(7445) = (j('n_c3h7cho_hco')) - RCONST(7450) = (j('ch3o2h')) - RCONST(7452) = (j('1_c4h9ono2')) - RCONST(7455) = (j('mek')) - RCONST(7459) = (j('ch3o2h')) - RCONST(7463) = (j('ch3o2h')) - RCONST(7466) = (j('1_c4h9ono2')) - RCONST(7469) = (j('n_c3h7cho_hco')) - RCONST(7473) = (j('ch3o2h')+j('mek')) - RCONST(7475) = (j('1_c4h9ono2')+j('mek')) - RCONST(7479) = (j('mek')) - RCONST(7482) = (j('ch3o2h')+j('mek')) - RCONST(7485) = (j('mek')) - RCONST(7487) = (j('ch3o2h')) - RCONST(7490) = (j('n_c3h7ono2')) - RCONST(7493) = (j('i_c3h7cho')) - RCONST(7498) = (j('ch3o2h')) - RCONST(7502) = (j('ch3o2h')) - RCONST(7505) = (j('n_c3h7ono2')) - RCONST(7508) = (j('n_c3h7cho_hco')) - RCONST(7512) = (j('ch3o2h')) - RCONST(7516) = (j('ch3o2h')) - RCONST(7519) = (j('n_c3h7ono2')) - RCONST(7523) = (j('i_c3h7cho')) - RCONST(7527) = (j('ch3o2h')) - RCONST(7531) = (j('ch3o2h')) - RCONST(7533) = (j('1_c4h9ono2')) - RCONST(7537) = (j('mek')) - RCONST(7539) = (j('ch3o2h')+j('mek')) - RCONST(7542) = (j('ch3o2h')) - RCONST(7544) = (j('2_c4h9ono2')) - RCONST(7548) = (j('ch3o2h')+j('mek')) - RCONST(7551) = (j('ch3o2h')) - RCONST(7553) = (j('1_c4h9ono2')) - RCONST(7557) = (j('mek')) - RCONST(7560) = (j('ch3o2h')) - RCONST(7562) = (j('1_c4h9ono2')) - RCONST(7568) = (j('mek')) - RCONST(7569) = (j('ch3o2h')+j('mek')) - RCONST(7574) = (j('n_c3h7ono2')) - RCONST(7578) = (j('n_c3h7cho_hco')) - RCONST(7581) = (j('ch3o2h')) - RCONST(7583) = (j('1_c4h9ono2')) - RCONST(7587) = (j('mek')) - RCONST(7590) = (j('ch3o2h')+j('mek')) - RCONST(7593) = (j('ch3o2h')) - RCONST(7595) = (j('1_c4h9ono2')) - RCONST(7599) = (j('mek')) - RCONST(7602) = (j('ch3o2h')+j('mek')) - RCONST(7605) = (j('ch3o2h')) - RCONST(7607) = (j('1_c4h9ono2')) - RCONST(7611) = (j('mek')) - RCONST(7614) = (j('ch3o2h')+j('mek')) - RCONST(7617) = (j('ch3o2h')) - RCONST(7619) = (j('1_c4h9ono2')) - RCONST(7623) = (j('mek')) - RCONST(7626) = (j('ch3o2h')+j('mek')) - RCONST(7629) = (j('ch3o2h')) - RCONST(7631) = (j('1_c4h9ono2')) - RCONST(7635) = (j('mek')) - RCONST(7638) = (j('ch3o2h')+j('mek')) - RCONST(7642) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(7644) = (j('n_c3h7cho_hco')+j('n_c3h7ono2')) - RCONST(7649) = (j('ch3o2h')) - RCONST(7654) = (j('ch3o2h')) - RCONST(7658) = (j('ch3o2h')+j('n_c3h7ono2')) - RCONST(7661) = (j('biacet')) - RCONST(7663) = (j('ch3coch2ono2')) - RCONST(7665) = (j('ch3o2h')) - RCONST(7670) = (j('ch3o2h')) - RCONST(7674) = (j('ch3o2h')+j('ch3coch2ono2')) - RCONST(7677) = (j('ch3coch2ono2')) - RCONST(7678) = (j('mek')) - RCONST(7680) = (j('ch3coch2ono2')) - RCONST(7683) = (j('ch3o2h')) - RCONST(7687) = (j('ch3o2h')) - RCONST(7688) = (j('mek')) - RCONST(7691) = (j('ch3o2h')) - RCONST(7695) = (j('ch3o2h')+j('ch3coch2ono2')*1.6) - RCONST(7698) = (j('ch3o2h')+j('mek')) - RCONST(7703) = (j('ch3o2h')) - RCONST(7707) = (j('ch3o2h')) - RCONST(7710) = (j('ch3o2h')+j('1_c4h9ono2')) - RCONST(7714) = (j('ch3o2h')) - RCONST(7719) = (j('ch3o2h')) - RCONST(7724) = (j('ch3o2h')) - RCONST(7728) = (j('ch3o2h')+j('ch3coch2ono2')) - RCONST(7731) = (j('mek')) - RCONST(7732) = (j('ch3coch2ono2')) - RCONST(7734) = (j('ch3coch2ono2')) - RCONST(7736) = (j('ch3o2h')+j('mek')) - RCONST(7739) = (j('mek')) - RCONST(7740) = (j('mek')*2) - RCONST(7742) = (j('ch3o2h')) - RCONST(7747) = (j('ch3o2h')+j('ch3coch2ono2')*1.6) - RCONST(7750) = (j('ch3coch2ono2')*1.6+j('mek')) - RCONST(7752) = (j('ch3coch2ono2')*1.6) - RCONST(7755) = (j('ch3o2h')+j('ch3coch2ono2')*1.6) - RCONST(7759) = (j('ch3coch2ono2')*1.6) - RCONST(7761) = (j('mek')) - RCONST(7775) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(7777) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(7778) = (j('ch3o2h')) - RCONST(7784) = (j('i_c3h7cho')) - RCONST(7786) = (j('ch3o2h')+j('i_c3h7cho')) - RCONST(7790) = (j('ch3o2h')) - RCONST(7791) = (j('n_c3h7cho_hco')*2) - RCONST(7794) = (j('n_c3h7cho_hco')*2) - RCONST(7797) = (j('n_c3h7cho_hco')*2) - RCONST(7798) = (j('ch3o2h')) - RCONST(7801) = (j('ch3cocho')+j('n_c3h7cho_hco')) - RCONST(7803) = (j('n_c3h7cho_hco')*2) - RCONST(7815) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(7821) = (j('ch3o2h')) - RCONST(7829) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(7865) = (j('ch3o2h')) - RCONST(7868) = (j('ch3cocho')) - RCONST(7872) = (j('ch3o2h')) - RCONST(7908) = (j('i_c3h7cho')) - RCONST(7910) = (j('ch3o2h')+j('i_c3h7cho')) - RCONST(7914) = (j('i_c3h7cho')) - RCONST(7915) = (j('ch3o2h')) - RCONST(7916) = (j('mek')) - RCONST(7920) = (j('i_c3h7cho')) - RCONST(7921) = (j('mek')) - RCONST(7923) = (j('mvk_mcm_ch2ch')) - RCONST(7927) = (j('ch3o2h')) - RCONST(7938) = (j('ch3o2h')) - RCONST(7942) = (j('ch3o2h')) - RCONST(7980) = (j('ch3o2h')) - RCONST(7981) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(7985) = (j('i_c3h7cho')) - RCONST(7987) = (j('ch3o2h')+j('i_c3h7cho')) - RCONST(7991) = (j('ch3o2h')) - RCONST(7992) = (j('i_c3h7cho')*2) - RCONST(7997) = (j('ch3o2h')) - RCONST(8007) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(8010) = (j('ch3o2h')) - RCONST(8014) = (j('ch3o2h')) - RCONST(8025) = (j('ch3o2h')) - RCONST(8036) = (j('ch3o2h')) - RCONST(8042) = (j('ch3o2h')) - RCONST(8044) = (j('mvk_mcm_ch2ch')) - RCONST(8054) = (j('mvk_mcm_ch2ch')) - RCONST(8080) = (j('ch3o2h')) - RCONST(8081) = (j('mvk_mcm_ch2ch')) - RCONST(8085) = (j('ch3cocho')) - RCONST(8087) = (j('mek')) - RCONST(8088) = (j('i_c3h7cho')) - RCONST(8094) = (j('ch3o2h')) - RCONST(8097) = (j('biacet')) - RCONST(8100) = (j('n_c3h7cho_hco')+j('mek')) - RCONST(8104) = (j('ch3o2h')) - RCONST(8114) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(8144) = (j('ch3o2h')) - RCONST(8145) = (j('mvk_mcm_ch2ch')) - RCONST(8149) = (j('mek')) - RCONST(8151) = (j('mek')) - RCONST(8152) = (j('i_c3h7cho')) - RCONST(8166) = (j('ch3o2h')) - RCONST(8168) = (j('n_c3h7cho_hco')+j('mek')) - RCONST(8178) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(8204) = (j('ch3o2h')) - RCONST(8205) = (j('mvk_mcm_ch2ch')) - RCONST(8209) = (j('mek')) - RCONST(8211) = (j('mek')) - RCONST(8212) = (j('i_c3h7cho')) - RCONST(8219) = (j('ch3o2h')) - RCONST(8223) = (j('n_c3h7cho_hco')+j('mek')) - RCONST(8227) = (j('ch3o2h')) - RCONST(8252) = (j('mek')+j('ch3cocho')) - RCONST(8273) = (j('mek')) - RCONST(8275) = (j('ch3o2h')+j('mek')) - RCONST(8279) = (j('ch3o2h')) - RCONST(8280) = (j('mek')) - RCONST(8281) = (j('i_c3h7cho')) - RCONST(8284) = (j('ch3o2h')) - RCONST(8288) = (j('ch3o2h')) - RCONST(8298) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(8302) = (j('ch3o2h')) - RCONST(8312) = (j('mvk_mcm_ch2ch')) - RCONST(8315) = (j('ch3o2h')) - RCONST(8319) = (j('ch3o2h')) - RCONST(8324) = (j('ch3o2h')) - RCONST(8325) = (j('mvk_mcm_ch2ch')) - RCONST(8329) = (j('mek')) - RCONST(8331) = (j('ch3o2h')+j('mek')) - RCONST(8335) = (j('ch3o2h')) - RCONST(8336) = (j('mek')) - RCONST(8339) = (j('mek')*2) - RCONST(8341) = (j('biacet')) - RCONST(8343) = (j('ch3o2h')) - RCONST(8344) = (j('mek')) - RCONST(8347) = (j('mek')) - RCONST(8349) = (j('ch3cocho')) - RCONST(8351) = (j('i_c3h7cho')) - RCONST(8353) = (j('ch3o2h')+j('i_c3h7cho')) - RCONST(8357) = (j('ch3o2h')) - RCONST(8358) = (j('mek')) - RCONST(8359) = (j('i_c3h7cho')) - RCONST(8363) = (j('n_c3h7cho_hco')+j('mek')) - RCONST(8367) = (j('ch3o2h')) - RCONST(8376) = (j('ch3cocho')) - RCONST(8377) = (j('biacet')) - RCONST(8383) = (j('ch3o2h')) - RCONST(8401) = (j('ch3o2h')) - RCONST(8411) = (j('ch3o2h')) - RCONST(8412) = (j('mek')) - RCONST(8415) = (j('mek')) - RCONST(8417) = (j('ch3cocho')) - RCONST(8447) = (j('mek')) - RCONST(8448) = (j('mek')) - RCONST(8450) = (j('mek')) - RCONST(8451) = (j('ch3o2h')) - RCONST(8454) = (j('mek')) - RCONST(8456) = (j('ch3cocho')) - RCONST(8458) = (j('ch3o2h')) - RCONST(8467) = (j('mek')) - RCONST(8468) = (j('n_c3h7cho_hco')+j('mek')) - RCONST(8470) = (j('ch3o2h')) - RCONST(8474) = (j('mek')) - RCONST(8476) = (j('ch3o2h')+j('mek')) - RCONST(8480) = (j('ch3o2h')) - RCONST(8481) = (j('i_c3h7cho')*2) - RCONST(8484) = (j('i_c3h7cho')*2) - RCONST(8486) = (j('ch3o2h')) - RCONST(8487) = (j('mek')*2) - RCONST(8490) = (j('biacet')*2) - RCONST(8491) = (j('ch3o2h')) - RCONST(8492) = (j('mek')) - RCONST(8495) = (j('biacet')) - RCONST(8497) = (j('mek')) - RCONST(8500) = (j('ch3o2h')) - RCONST(8510) = (j('ch3o2h')) - RCONST(8511) = (j('n_c3h7cho_hco')) - RCONST(8514) = (j('n_c3h7cho_hco')) - RCONST(8516) = (j('n_c3h7cho_hco')) - RCONST(8520) = (j('ch3o2h')) - RCONST(8530) = (j('ch3o2h')) - RCONST(8534) = (j('n_c3h7cho_hco')) - RCONST(8536) = (j('n_c3h7cho_hco')) - RCONST(8546) = (j('ch3o2h')+j('mek')) - RCONST(8550) = (j('mek')) - RCONST(8552) = (j('mek')) - RCONST(8553) = (j('ch3o2h')) - RCONST(8556) = (j('biacet')) - RCONST(8557) = (j('ch3o2h')) - RCONST(8566) = (j('ch3o2h')) - RCONST(8573) = (j('ch3coch2ono2')*0.91) - RCONST(8577) = (j('ch3o2h')) - RCONST(8586) = (j('ch3o2h')) - RCONST(8591) = (j('ch3coch2ono2')*10) - RCONST(8607) = (j('ch3o2h')) - RCONST(8608) = (j('i_c3h7cho')) - RCONST(8609) = (j('ch3o2h')*2) - RCONST(8613) = (j('ch3o2h')+j('mek')) - RCONST(8614) = (j('ch3o2h')) - RCONST(8618) = (j('c5hpald')*2) - RCONST(8621) = (j('ch3o2h')) - RCONST(8622) = (j('i_c3h7cho')*2) - RCONST(8624) = (j('mvk_mcm_co')+j('mvk_mcm_ch2ch')) - RCONST(8671) = (j('ch3o2h')) - RCONST(8672) = (j('i_c3h7cho')) - RCONST(8673) = (j('ch3o2h')*2) - RCONST(8677) = (j('ch3o2h')) - RCONST(8678) = (j('n_c3h7cho_hco')) - RCONST(8679) = (j('ch3o2h')) - RCONST(8683) = (j('c5hpald')*2) - RCONST(8690) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(8724) = (j('ch3o2h')) - RCONST(8739) = (j('ch3o2h')) - RCONST(8741) = (j('ch3coch2ono2')*0.91) - RCONST(8746) = (j('ch3o2h')) - RCONST(8750) = (j('ch3cocho')) - RCONST(8763) = (j('ch3o2h')) - RCONST(8765) = (j('n_c3h7ono2')) - RCONST(8772) = (j('ch3o2h')) - RCONST(8774) = (j('n_c3h7ono2')) - RCONST(8778) = (j('n_c3h7cho_hco')) - RCONST(8782) = (j('ch3o2h')) - RCONST(8786) = (j('ch3cocho')) - RCONST(8790) = (j('ch3o2h')) - RCONST(8793) = (j('1_c4h9ono2')) - RCONST(8805) = (j('ch3o2h')) - RCONST(8807) = (j('n_c3h7ono2')) - RCONST(8811) = (j('ch3o2h')) - RCONST(8814) = (j('1_c4h9ono2')) - RCONST(8817) = (j('ch3o2h')) - RCONST(8820) = (j('1_c4h9ono2')) - RCONST(8824) = (j('ch3o2h')) - RCONST(8829) = (j('ch3o2h')+j('mek')) - RCONST(8832) = (j('mek')) - RCONST(8835) = (j('ch3cocho')) - RCONST(8836) = (j('ch3o2h')+j('biacet')) - RCONST(8842) = (j('ch3o2h')+j('mek')) - RCONST(8845) = (j('mek')) - RCONST(8847) = (j('ch3cocho')) - RCONST(8849) = (j('ch3o2h')+j('biacet')) - RCONST(8852) = (j('mek')) - RCONST(8853) = (j('ch3o2h')) - RCONST(8856) = (j('mek')) - RCONST(8857) = (j('biacet')) - RCONST(8859) = (j('ch3o2h')) - RCONST(8860) = (j('mek')) - RCONST(8864) = (j('mek')) - RCONST(8866) = (j('ch3cocho')) - RCONST(8868) = (j('mek')) - RCONST(8870) = (j('mek')) - RCONST(8871) = (j('ch3o2h')) - RCONST(8876) = (j('ch3o2h')+j('mek')) - RCONST(8880) = (j('mek')) - RCONST(8881) = (j('mek')+j('ch3o2h')) - RCONST(8883) = (j('mek')*2) - RCONST(8884) = (j('ch3o2h')) - RCONST(8887) = (j('mek')) - RCONST(8888) = (j('biacet')) - RCONST(8890) = (j('mek')*2) - RCONST(8892) = (j('ch3o2h')) - RCONST(8895) = (j('n_c3h7ono2')) - RCONST(8899) = (j('ch3o2h')+j('mek')) - RCONST(8901) = (j('1_c4h9ono2')+j('mek')) - RCONST(8904) = (j('mek')*2) - RCONST(8906) = (j('mek')) - RCONST(8909) = (j('biacet')+j('ch3o2h')) - RCONST(8914) = (j('ch3o2h')+j('mek')) - RCONST(8917) = (j('biacet')) - RCONST(8919) = (j('mek')) - RCONST(8921) = (j('ch3o2h')+j('biacet')) - RCONST(8925) = (j('mek')) - RCONST(8926) = (j('ch3o2h')) - RCONST(8929) = (j('biacet')) - RCONST(8931) = (j('mek')) - RCONST(8933) = (j('ch3o2h')) - RCONST(8937) = (j('ch3o2h')) - RCONST(8939) = (j('ch3o2h')+j('ch3cocho')) - RCONST(8941) = (j('ch3o2h')+j('mek')) - RCONST(8945) = (j('mek')) - RCONST(8947) = (j('ch3cocho')) - RCONST(8950) = (j('ch3o2h')) - RCONST(8955) = (j('ch3o2h')+j('n_c3h7cho_hco')+j('mek')) - RCONST(8959) = (j('n_c3h7cho_hco')*2) - RCONST(8960) = (j('mek')) - RCONST(8962) = (j('mek')+j('n_c3h7cho_hco')) - RCONST(8965) = (j('ch3o2h')) - RCONST(8969) = (j('mek')) - RCONST(8971) = (j('mek')*3) - RCONST(8979) = (j('ch3o2h')) - RCONST(8982) = (j('ch3o2h')+j('mek')) - RCONST(9033) = (j('ch3o2h')) - RCONST(9035) = (j('1_c4h9ono2')) - RCONST(9039) = (j('ch3o2h')) - RCONST(9070) = (j('ch3o2h')) - RCONST(9072) = (j('1_c4h9ono2')) - RCONST(9077) = (j('ch3o2h')) - RCONST(9089) = (j('n_c3h7cho_hco')) - RCONST(9102) = (j('n_c3h7cho_hco')*2) - RCONST(9140) = (j('ch3o2h')) - RCONST(9166) = (j('ch3o2h')) - RCONST(9170) = (j('ch3o2h')) - RCONST(9218) = (j('ch3o2h')) - RCONST(9223) = (j('ch3o2h')) - RCONST(9239) = (j('ch3o2h')) - RCONST(9271) = (j('ch3o2h')) - RCONST(9288) = (j('n_c3h7cho_hco')*2) - RCONST(9365) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(9370) = (j('ch3o2h')+j('n_c3h7cho_hco')*2) - RCONST(9375) = (j('n_c3h7cho_hco')) - RCONST(9377) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(9380) = (j('ch3o2h')+j('biacet')) - RCONST(9395) = (j('ch3coch2ono2')*10) - RCONST(9397) = (j('ch3coch2ono2')*10) - RCONST(9399) = (KBPAN+j('ch3coch2ono2')*10) - RCONST(9401) = (j('i_c3h7cho')) - RCONST(9403) = (j('ch3o2h')) - RCONST(9404) = (j('i_c3h7cho')) - RCONST(9406) = (KBPAN+j('i_c3h7cho')) - RCONST(9407) = (j('n_c3h7cho_hco')) - RCONST(9418) = (j('i_c3h7cho')) - RCONST(9434) = (j('n_c3h7cho_hco')) - RCONST(9451) = (j('i_c3h7cho')) - RCONST(9504) = (j('n_c3h7cho_hco')) - RCONST(9563) = (j('mek')) - RCONST(9566) = (j('mek')) - RCONST(9567) = (j('mek')) - RCONST(9591) = (j('mek')) - RCONST(9594) = (j('mek')) - RCONST(9595) = (j('mek')) - RCONST(9624) = (j('mek')*2) - RCONST(9637) = (j('mek')*2) - RCONST(9654) = (j('mek')*2) - RCONST(9671) = (j('mek')*2) - RCONST(9688) = (j('mek')*2) - RCONST(9708) = (j('ch3coch2ono2')*1.6) - RCONST(9710) = (j('ch3coch2ono2')*10) - RCONST(9712) = (j('ch3cocho')) - RCONST(9713) = (j('mek')) - RCONST(9714) = (j('ch3cocho')) - RCONST(9717) = (j('ch3o2h')) - RCONST(9727) = (j('ch3o2h')) - RCONST(9733) = (j('ch3cocho')*2) - RCONST(9749) = (j('ch3o2h')) - RCONST(9785) = (j('ch3o2h')) - RCONST(9789) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(9790) = (j('ch3o2h')) - RCONST(9795) = (j('i_c3h7cho')*2) - RCONST(9798) = (j('ch3o2h')+j('n_c3h7cho_hco')+j('mek')) - RCONST(9801) = (j('n_c3h7cho_hco')+j('biacet')) - RCONST(9803) = (j('n_c3h7cho_hco')+j('mek')) - RCONST(9805) = (j('ch3o2h')) - RCONST(9818) = (j('ch3o2h')) - RCONST(9822) = (j('mvk_mcm_ch2ch')) - RCONST(9823) = (j('ch3o2h')) - RCONST(9834) = (j('mek')+j('i_c3h7cho')) - RCONST(9835) = (j('ch3o2h')) - RCONST(9838) = (j('mek')+j('i_c3h7cho')) - RCONST(9840) = (j('ch3o2h')) - RCONST(9844) = (j('ch3o2h')) - RCONST(9847) = (j('mek')) - RCONST(9850) = (j('ch3o2h')) - RCONST(9878) = (j('ch3o2h')) - RCONST(9880) = (j('i_c3h7cho')) - RCONST(9881) = (j('ch3o2h')+j('mek')) - RCONST(9884) = (j('mek')+j('i_c3h7cho')) - RCONST(9886) = (j('ch3o2h')) - RCONST(9890) = (j('ch3o2h')) - RCONST(9893) = (j('mek')) - RCONST(9896) = (j('ch3o2h')) - RCONST(9900) = (j('ch3o2h')) - RCONST(9903) = (j('mek')) - RCONST(9904) = (j('ch3o2h')) - RCONST(9907) = (j('ch3o2h')) - RCONST(9935) = (j('ch3o2h')) - RCONST(9939) = (j('mek')*2) - RCONST(9940) = (j('ch3o2h')) - RCONST(9944) = (j('mek')*2) - RCONST(9946) = (j('mek')) - RCONST(9947) = (j('biacet')) - RCONST(9972) = (j('ch3o2h')) - RCONST(9998) = (j('ch3o2h')) - RCONST(10000) = (j('mek')) - RCONST(10001) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(10004) = (j('biacet')) - RCONST(10006) = (j('mek')) - RCONST(10007) = (j('n_c3h7cho_hco')) - RCONST(10009) = (j('ch3o2h')) - RCONST(10014) = (j('ch3o2h')) - RCONST(10016) = (j('ch3o2h')) - RCONST(10027) = (j('ch3o2h')+j('ch3cocho')) - RCONST(10058) = (j('ch3o2h')) - RCONST(10060) = (j('ch3o2h')+j('n_c3h7cho_hco')+j('mek')) - RCONST(10064) = (j('mek')) - RCONST(10065) = (j('biacet')) - RCONST(10066) = (j('n_c3h7cho_hco')) - RCONST(10068) = (j('n_c3h7cho_hco')+j('mek')) - RCONST(10070) = (j('ch3o2h')) - RCONST(10075) = (j('ch3o2h')) - RCONST(10077) = (j('ch3o2h')) - RCONST(10088) = (j('ch3o2h')+j('ch3cocho')) - RCONST(10091) = (j('ch3o2h')) - RCONST(10096) = (j('ch3cocho')) - RCONST(10122) = (j('ch3o2h')) - RCONST(10124) = (j('ch3o2h')+j('n_c3h7cho_hco')+j('mek')) - RCONST(10128) = (j('n_c3h7cho_hco')) - RCONST(10129) = (j('mek')) - RCONST(10130) = (j('biacet')) - RCONST(10132) = (j('n_c3h7cho_hco')+j('mek')) - RCONST(10134) = (j('ch3o2h')) - RCONST(10139) = (j('ch3o2h')) - RCONST(10141) = (j('ch3o2h')) - RCONST(10152) = (j('ch3o2h')+j('ch3cocho')) - RCONST(10171) = (j('ch3o2h')) - RCONST(10173) = (j('mvk_mcm_ch2ch')) - RCONST(10174) = (j('ch3o2h')) - RCONST(10178) = (j('ch3o2h')+j('n_c3h7cho_hco')+j('mek')) - RCONST(10181) = (j('n_c3h7cho_hco')+j('mek')) - RCONST(10183) = (j('ch3o2h')) - RCONST(10186) = (j('ch3o2h')) - RCONST(10190) = (j('ch3o2h')) - RCONST(10193) = (j('ch3o2h')) - RCONST(10197) = (j('ch3o2h')) - RCONST(10202) = (j('mek')*2) - RCONST(10203) = (j('ch3o2h')) - RCONST(10207) = (j('mek')*2) - RCONST(10232) = (j('ch3o2h')) - RCONST(10263) = (j('ch3o2h')) - RCONST(10288) = (j('ch3o2h')) - RCONST(10290) = (j('ch3o2h')+j('mek')*2) - RCONST(10294) = (j('mek')) - RCONST(10295) = (j('mek')*2) - RCONST(10297) = (j('mek')*2) - RCONST(10322) = (j('ch3o2h')) - RCONST(10326) = (j('ch3o2h')) - RCONST(10327) = (j('mvk_mcm_ch2ch')) - RCONST(10331) = (j('ch3o2h')+j('n_c3h7cho_hco')+j('mek')) - RCONST(10334) = (j('n_c3h7cho_hco')+j('mek')) - RCONST(10336) = (j('ch3o2h')) - RCONST(10340) = (j('ch3o2h')) - RCONST(10343) = (j('mek')) - RCONST(10346) = (j('ch3o2h')) - RCONST(10350) = (j('ch3o2h')) - RCONST(10356) = (j('ch3cocho')) - RCONST(10366) = (j('ch3cocho')) - RCONST(10368) = (j('ch3cocho')+j('biacet')) - RCONST(10371) = (j('ch3coch2ono2')*10) - RCONST(10373) = (j('ch3cocho')) - RCONST(10381) = (j('i_c3h7cho')) - RCONST(10386) = (j('i_c3h7cho')) - RCONST(10387) = (j('ch3o2h')*2) - RCONST(10389) = (j('ch3coch2ono2')*10) - RCONST(10405) = (j('ch3o2h')+j('biacet')) - RCONST(10412) = (j('ch3o2h')) - RCONST(10417) = (j('ch3o2h')) - RCONST(10419) = (j('ch3coch2ono2')*10) - RCONST(10432) = (j('ch3o2h')) - RCONST(10437) = (j('ch3coch2ono2')*1.6) - RCONST(10442) = (j('ch3o2h')) - RCONST(10444) = (j('n_c3h7cho_hco')) - RCONST(10448) = (j('ch3o2h')*2) - RCONST(10449) = (j('i_c3h7cho')) - RCONST(10451) = (j('ch3coch2ono2')*10) - RCONST(10459) = (j('n_c3h7cho_hco')) - RCONST(10460) = (j('ch3o2h')*2) - RCONST(10463) = (j('ch3o2h')) - RCONST(10468) = (j('ch3o2h')) - RCONST(10471) = (j('ch3coch2ono2')*0.91) - RCONST(10472) = (j('ch3o2h')) - RCONST(10476) = (j('ch3coch2ono2')*10) - RCONST(10486) = (j('ch3o2h')) - RCONST(10490) = (j('ch3o2h')) - RCONST(10491) = (j('mek')) - RCONST(10494) = (j('i_c3h7cho')+j('ch3o2h')) - RCONST(10496) = (j('ch3coch2ono2')*10) - RCONST(10498) = (j('ch3coch2ono2')*1.6) - RCONST(10501) = (j('i_c3h7cho')) - RCONST(10513) = (j('ch3o2h')) - RCONST(10515) = (j('1_c4h9ono2')) - RCONST(10518) = (j('mvk_mcm_ch2ch')) - RCONST(10545) = (j('ch3o2h')) - RCONST(10548) = (j('1_c4h9ono2')) - RCONST(10552) = (j('n_c3h7cho_hco')) - RCONST(10553) = (j('biacet')) - RCONST(10609) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(10611) = (j('2_c4h9ono2')+j('n_c3h7cho_hco')) - RCONST(10614) = (j('mek')) - RCONST(10620) = (j('ch3o2h')+j('biacet')) - RCONST(10622) = (j('2_c4h9ono2')+j('biacet')) - RCONST(10625) = (j('biacet')) - RCONST(10629) = (j('n_c3h7cho_hco')) - RCONST(10631) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(10635) = (j('ch3o2h')+j('mek')) - RCONST(10637) = (j('mek')) - RCONST(10641) = (j('ch3o2h')+j('mek')) - RCONST(10644) = (j('ch3o2h')+j('mek')) - RCONST(10647) = (j('mek')) - RCONST(10649) = (j('ch3o2h')+j('mek')) - RCONST(10653) = (j('ch3o2h')+j('mek')) - RCONST(10656) = (j('ch3o2h')) - RCONST(10661) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(10663) = (j('2_c4h9ono2')+j('n_c3h7cho_hco')) - RCONST(10666) = (j('n_c3h7cho_hco')) - RCONST(10668) = (j('ch3o2h')) - RCONST(10670) = (j('1_c4h9ono2')) - RCONST(10675) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(10677) = (j('1_c4h9ono2')+j('n_c3h7cho_hco')) - RCONST(10682) = (j('n_c3h7cho_hco')) - RCONST(10693) = (j('ch3o2h')) - RCONST(10695) = (j('2_c4h9ono2')) - RCONST(10705) = (j('ch3o2h')) - RCONST(10729) = (j('ch3o2h')) - RCONST(10740) = (j('n_c3h7cho_hco')*2) - RCONST(10755) = (j('n_c3h7cho_hco')) - RCONST(10757) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(10764) = (j('ch3o2h')) - RCONST(10768) = (j('ch3o2h')) - RCONST(10771) = (j('biacet')) - RCONST(10774) = (j('ch3o2h')) - RCONST(10778) = (j('ch3o2h')) - RCONST(10781) = (j('mek')+j('ch3o2h')) - RCONST(10785) = (j('ch3o2h')) - RCONST(10807) = (j('ch3o2h')) - RCONST(10812) = (j('ch3o2h')) - RCONST(10816) = (j('ch3o2h')) - RCONST(10819) = (j('biacet')) - RCONST(10822) = (j('ch3o2h')) - RCONST(10826) = (j('ch3o2h')) - RCONST(10827) = (j('mek')) - RCONST(10830) = (j('biacet')) - RCONST(10832) = (j('mek')) - RCONST(10834) = (j('ch3o2h')) - RCONST(10835) = (j('mek')) - RCONST(10838) = (j('ch3cocho')) - RCONST(10840) = (j('mek')) - RCONST(10842) = (j('ch3o2h')) - RCONST(10843) = (j('n_c3h7cho_hco')) - RCONST(10846) = (j('ch3cocho')) - RCONST(10848) = (j('n_c3h7cho_hco')) - RCONST(10850) = (j('ch3o2h')) - RCONST(10852) = (j('n_c3h7ono2')) - RCONST(10857) = (j('ch3o2h')) - RCONST(10863) = (j('ch3o2h')) - RCONST(10870) = (j('ch3o2h')) - RCONST(10874) = (j('ch3o2h')) - RCONST(10877) = (j('biacet')) - RCONST(10880) = (j('ch3o2h')) - RCONST(10882) = (j('2_c4h9ono2')) - RCONST(10886) = (j('ch3o2h')) - RCONST(10916) = (j('ch3o2h')) - RCONST(10921) = (j('ch3o2h')) - RCONST(10923) = (j('n_c3h7ono2')) - RCONST(10928) = (j('ch3o2h')) - RCONST(10930) = (j('ch3o2h')) - RCONST(10932) = (j('2_c4h9ono2')) - RCONST(10936) = (j('ch3o2h')) - RCONST(10947) = (j('ch3o2h')) - RCONST(10952) = (j('ch3o2h')) - RCONST(10955) = (j('ch3o2h')) - RCONST(10959) = (j('ch3o2h')) - RCONST(10963) = (j('n_c3h7cho_hco')*2) - RCONST(10987) = (j('ch3o2h')) - RCONST(10992) = (j('ch3o2h')) - RCONST(11013) = (j('ch3o2h')) - RCONST(11025) = (j('ch3o2h')) - RCONST(11029) = (j('ch3o2h')+j('mek')) - RCONST(11031) = (j('mek')) - RCONST(11034) = (j('mek')) - RCONST(11045) = (j('ch3o2h')) - RCONST(11049) = (j('ch3o2h')+j('mek')) - RCONST(11052) = (j('mek')) - RCONST(11067) = (j('ch3o2h')) - RCONST(11069) = (j('1_c4h9ono2')) - RCONST(11075) = (j('ch3o2h')) - RCONST(11079) = (j('ch3o2h')) - RCONST(11080) = (j('mek')) - RCONST(11084) = (j('biacet')) - RCONST(11086) = (j('mek')) - RCONST(11088) = (j('ch3o2h')+j('mek')) - RCONST(11093) = (j('ch3o2h')) - RCONST(11097) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(11099) = (j('n_c3h7cho_hco')) - RCONST(11102) = (j('n_c3h7cho_hco')) - RCONST(11105) = (j('n_c3h7cho_hco')) - RCONST(11107) = (j('ch3o2h')+j('mek')) - RCONST(11109) = (j('mek')) - RCONST(11112) = (j('mek')) - RCONST(11114) = (j('mek')*2) - RCONST(11125) = (j('ch3o2h')) - RCONST(11129) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(11131) = (j('n_c3h7cho_hco')) - RCONST(11134) = (j('n_c3h7cho_hco')) - RCONST(11136) = (j('ch3o2h')+j('mek')) - RCONST(11139) = (j('mek')) - RCONST(11141) = (j('ch3cocho')) - RCONST(11143) = (j('ch3o2h')) - RCONST(11144) = (j('mek')*2.0) - RCONST(11147) = (j('mek')*2.0) - RCONST(11150) = (j('ch3o2h')) - RCONST(11154) = (j('ch3o2h')) - RCONST(11157) = (j('n_c3h7ono2')) - RCONST(11161) = (j('i_c3h7cho')) - RCONST(11165) = (j('ch3o2h')) - RCONST(11170) = (j('ch3o2h')) - RCONST(11193) = (j('ch3o2h')) - RCONST(11194) = (j('mek')) - RCONST(11197) = (j('ch3o2h')+j('mek')) - RCONST(11200) = (j('ch3o2h')+j('mek')) - RCONST(11202) = (j('1_c4h9ono2')+j('mek')) - RCONST(11205) = (j('mek')*2) - RCONST(11207) = (j('mek')) - RCONST(11209) = (j('ch3o2h')) - RCONST(11210) = (j('mek')) - RCONST(11214) = (j('biacet')) - RCONST(11216) = (j('mek')) - RCONST(11235) = (j('ch3o2h')+j('mek')) - RCONST(11238) = (j('ch3o2h')) - RCONST(11241) = (j('n_c3h7ono2')) - RCONST(11245) = (j('n_c3h7cho_hco')) - RCONST(11249) = (j('ch3o2h')) - RCONST(11253) = (j('ch3o2h')+j('mek')) - RCONST(11255) = (j('mek')) - RCONST(11258) = (j('mek')) - RCONST(11260) = (j('mek')*2) - RCONST(11268) = (j('ch3o2h')+j('mek')) - RCONST(11271) = (j('ch3o2h')+j('mek')) - RCONST(11273) = (j('mek')) - RCONST(11276) = (j('mek')*2) - RCONST(11278) = (j('mek')) - RCONST(11286) = (j('ch3o2h')+j('mek')) - RCONST(11289) = (j('ch3o2h')) - RCONST(11292) = (j('ch3o2h')+j('mek')) - RCONST(11294) = (j('mek')) - RCONST(11297) = (j('mek')*2) - RCONST(11299) = (j('mek')) - RCONST(11307) = (j('ch3o2h')+j('mek')) - RCONST(11310) = (j('ch3o2h')) - RCONST(11313) = (j('ch3o2h')+j('mek')) - RCONST(11315) = (j('mek')) - RCONST(11318) = (j('mek')*2) - RCONST(11320) = (j('mek')) - RCONST(11328) = (j('ch3o2h')+j('mek')) - RCONST(11331) = (j('ch3o2h')) - RCONST(11334) = (j('ch3o2h')+j('mek')) - RCONST(11336) = (j('mek')) - RCONST(11339) = (j('mek')*2) - RCONST(11341) = (j('mek')) - RCONST(11357) = (j('ch3o2h')+j('mek')) - RCONST(11361) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(11363) = (j('1_c4h9ono2')+j('n_c3h7cho_hco')) - RCONST(11367) = (j('ch3o2h')+j('ch3coch2ono2')) - RCONST(11371) = (j('ch3cocho')) - RCONST(11389) = (j('ch3o2h')) - RCONST(11391) = (j('ch3o2h')) - RCONST(11394) = (j('ch3o2h')) - RCONST(11397) = (j('ch3o2h')) - RCONST(11400) = (j('ch3o2h')) - RCONST(11405) = (j('ch3o2h')) - RCONST(11408) = (j('ch3o2h')) - RCONST(11421) = (j('ch3o2h')) - RCONST(11423) = (j('ch3o2h')) - RCONST(11426) = (j('ch3o2h')) - RCONST(11430) = (j('ch3cocho')+j('biacet')*2) - RCONST(11433) = (j('n_c3h7cho_hco')) - RCONST(11435) = (j('ch3o2h')) - RCONST(11439) = (j('mek')) - RCONST(11453) = (j('ch3o2h')) - RCONST(11455) = (j('ch3o2h')) - RCONST(11458) = (j('ch3o2h')) - RCONST(11463) = (j('ch3o2h')) - RCONST(11466) = (j('ch3o2h')) - RCONST(11469) = (j('biacet')) - RCONST(11472) = (j('n_c3h7cho_hco')) - RCONST(11479) = (j('n_c3h7cho_hco')) - RCONST(11494) = (j('ch3o2h')) - RCONST(11496) = (j('ch3o2h')) - RCONST(11499) = (j('ch3o2h')) - RCONST(11503) = (j('ch3o2h')) - RCONST(11506) = (j('ch3o2h')) - RCONST(11522) = (j('ch3o2h')) - RCONST(11524) = (j('ch3o2h')) - RCONST(11527) = (j('ch3o2h')) - RCONST(11531) = (j('ch3o2h')) - RCONST(11534) = (j('ch3o2h')) - RCONST(11545) = (j('ch3o2h')) - RCONST(11547) = (j('ch3o2h')) - RCONST(11550) = (j('ch3o2h')) - RCONST(11555) = (j('ch3o2h')) - RCONST(11558) = (j('ch3o2h')) - RCONST(11561) = (j('biacet')) - RCONST(11562) = (j('biacet')*2) - RCONST(11565) = (j('ch3cocho')) - RCONST(11568) = (j('mek')) - RCONST(11569) = (j('ch3o2h')) - RCONST(11573) = (j('ch3o2h')) - RCONST(11584) = (j('ch3o2h')) - RCONST(11586) = (j('ch3o2h')) - RCONST(11589) = (j('ch3o2h')) - RCONST(11594) = (j('ch3o2h')) - RCONST(11597) = (j('ch3o2h')) - RCONST(11607) = (j('biacet')+j('ch3cocho')) - RCONST(11610) = (j('ch3cocho')) - RCONST(11613) = (j('mek')) - RCONST(11614) = (j('ch3o2h')) - RCONST(11626) = (j('ch3o2h')) - RCONST(11628) = (j('ch3o2h')) - RCONST(11631) = (j('ch3o2h')) - RCONST(11636) = (j('ch3o2h')) - RCONST(11639) = (j('ch3o2h')) - RCONST(11649) = (j('biacet')+j('ch3cocho')) - RCONST(11652) = (j('ch3cocho')) - RCONST(11655) = (j('mek')) - RCONST(11656) = (j('ch3o2h')) - RCONST(11670) = (j('ch3o2h')) - RCONST(11672) = (j('ch3o2h')) - RCONST(11675) = (j('ch3o2h')) - RCONST(11678) = (j('mek')) - RCONST(11692) = (j('ch3o2h')) - RCONST(11694) = (j('ch3o2h')) - RCONST(11697) = (j('ch3o2h')) - RCONST(11701) = (j('ch3o2h')) - RCONST(11704) = (j('ch3o2h')) - RCONST(11711) = (j('ch3o2h')+j('biacet')) - RCONST(11722) = (j('ch3o2h')) - RCONST(11724) = (j('ch3o2h')) - RCONST(11727) = (j('ch3o2h')) - RCONST(11732) = (j('ch3o2h')) - RCONST(11735) = (j('ch3o2h')) - RCONST(11746) = (j('ch3o2h')) - RCONST(11748) = (j('ch3o2h')) - RCONST(11751) = (j('ch3o2h')) - RCONST(11755) = (j('ch3o2h')) - RCONST(11758) = (j('ch3o2h')) - RCONST(11769) = (j('ch3o2h')) - RCONST(11771) = (j('ch3o2h')) - RCONST(11774) = (j('ch3o2h')) - RCONST(11778) = (j('ch3o2h')) - RCONST(11781) = (j('ch3o2h')) - RCONST(11785) = (j('n_c3h7cho_hco')) - RCONST(11792) = (j('ch3o2h')+j('biacet')) - RCONST(11794) = (j('ch3o2h')) - RCONST(11807) = (j('ch3o2h')) - RCONST(11809) = (KBPAN+j('ch3coch2ono2')*10) - RCONST(11816) = (j('i_c3h7cho')) - RCONST(11817) = (j('mek')) - RCONST(11835) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(11836) = (j('ch3o2h')) - RCONST(11839) = (j('ch3coch2ono2')*10) - RCONST(11840) = (j('ch3coch2ono2')*0.91) - RCONST(11842) = (j('ch3coch2ono2')*10) - RCONST(11844) = (j('ch3coch2ono2')*10) - RCONST(11847) = (j('ch3cocho')) - RCONST(11855) = (j('ch3o2h')) - RCONST(11856) = (j('ch3o2h')) - RCONST(11857) = (j('n_c3h7cho_hco')) - RCONST(11873) = (j('ch3coch2ono2')*10) - RCONST(11884) = (j('ch3coch2ono2')*0.91) - RCONST(11911) = (j('ch3o2h')) - RCONST(11945) = (j('ch3o2h')) - RCONST(11950) = (j('ch3o2h')) - RCONST(11952) = (j('n_c3h7ono2')) - RCONST(11956) = (j('ch3o2h')) - RCONST(11960) = (j('n_c3h7cho_hco')) - RCONST(11967) = (j('ch3o2h')+j('mek')) - RCONST(11968) = (j('biacet')) - RCONST(11970) = (j('ch3o2h')) - RCONST(11975) = (j('n_c3h7cho_hco')) - RCONST(11986) = (j('ch3o2h')) - RCONST(11991) = (j('mek')+j('n_c3h7cho_hco')) - RCONST(11993) = (j('ch3o2h')+j('mek')) - RCONST(11997) = (j('ch3o2h')+j('mek')+j('n_c3h7cho_hco')) - RCONST(12000) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(12002) = (j('n_c3h7cho_hco')) - RCONST(12004) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(12009) = (j('ch3o2h')+j('mek')*2+j('n_c3h7cho_hco')) - RCONST(12012) = (j('ch3o2h')+j('mek')) - RCONST(12016) = (j('biacet')) - RCONST(12024) = (j('ch3o2h')) - RCONST(12043) = (j('n_c3h7cho_hco')*2) - RCONST(12061) = (j('n_c3h7cho_hco')) - RCONST(12095) = (j('n_c3h7cho_hco')) - RCONST(12097) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(12114) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(12116) = (j('2_c4h9ono2')+j('n_c3h7cho_hco')) - RCONST(12119) = (j('n_c3h7cho_hco')) - RCONST(12121) = (j('ch3o2h')+j('n_c3h7cho_hco')*2) - RCONST(12124) = (j('n_c3h7cho_hco')*2) - RCONST(12126) = (j('mek')*2+j('ch3o2h')) - RCONST(12128) = (j('mek')*2) - RCONST(12132) = (j('mek')*2+j('ch3o2h')) - RCONST(12134) = (j('mek')*2+j('n_c3h7ono2')) - RCONST(12138) = (j('mek')*2) - RCONST(12140) = (j('ch3o2h')+j('n_c3h7cho_hco')*2) - RCONST(12143) = (j('n_c3h7cho_hco')*2) - RCONST(12165) = (j('ch3o2h')+j('n_c3h7cho_hco')*2) - RCONST(12169) = (j('n_c3h7cho_hco')*2) - RCONST(12171) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(12173) = (j('n_c3h7ono2')) - RCONST(12181) = (j('n_c3h7cho_hco')) - RCONST(12210) = (j('ch2cch3cho_hco')+j('ch2cch3cho_h')) - RCONST(12212) = (j('mek')) - RCONST(12213) = (j('ch3o2h')) - RCONST(12216) = (j('biacet')) - RCONST(12218) = (j('mek')) - RCONST(12220) = (j('mek')) - RCONST(12221) = (j('ch3o2h')) - RCONST(12224) = (j('ch3cocho')) - RCONST(12226) = (j('mek')) - RCONST(12274) = (j('ch3o2h')) - RCONST(12278) = (j('ch3o2h')) - RCONST(12280) = (j('n_c3h7ono2')) - RCONST(12285) = (j('ch3o2h')) - RCONST(12288) = (j('biacet')) - RCONST(12297) = (j('mek')*3) - RCONST(12306) = (j('ch3o2h')) - RCONST(12308) = (j('n_c3h7ono2')) - RCONST(12313) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(12317) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(12320) = (j('i_c3h7cho')) - RCONST(12321) = (j('ch3o2h')) - RCONST(12324) = (j('ch3o2h')+j('n_c3h7cho_hco')+j('biacet')) - RCONST(12327) = (j('ch3o2h')+j('mek')) - RCONST(12332) = (j('ch3o2h')) - RCONST(12336) = (j('mek')) - RCONST(12338) = (j('ch3o2h')+j('mek')) - RCONST(12342) = (j('ch3o2h')) - RCONST(12343) = (j('i_c3h7cho')) - RCONST(12346) = (j('ch3o2h')) - RCONST(12357) = (j('biacet')) - RCONST(12370) = (j('ch3cocho')) - RCONST(12373) = (j('ch3o2h')+j('mek')) - RCONST(12377) = (j('ch3o2h')+j('mek')) - RCONST(12379) = (j('1_c4h9ono2')+j('mek')) - RCONST(12382) = (j('mek')) - RCONST(12384) = (j('mek')*2) - RCONST(12386) = (j('mek')*2) - RCONST(12387) = (j('ch3o2h')) - RCONST(12390) = (j('biacet')) - RCONST(12392) = (j('mek')*2) - RCONST(12394) = (j('mek')*2) - RCONST(12395) = (j('ch3o2h')) - RCONST(12398) = (j('biacet')) - RCONST(12400) = (j('mek')*2) - RCONST(12412) = (j('ch3o2h')) - RCONST(12413) = (j('mek')) - RCONST(12415) = (j('mek')) - RCONST(12418) = (j('mek')) - RCONST(12420) = (j('ch3o2h')) - RCONST(12421) = (j('mek')*2) - RCONST(12424) = (j('mek')*2) - RCONST(12426) = (j('ch3o2h')) - RCONST(12427) = (j('mek')*2) - RCONST(12431) = (j('mek')*2) - RCONST(12433) = (j('biacet')) - RCONST(12434) = (j('mek')) - RCONST(12449) = (j('biacet')+j('mek')) - RCONST(12451) = (j('mek')*2) - RCONST(12452) = (j('ch3o2h')) - RCONST(12455) = (j('mek')*2) - RCONST(12463) = (j('biacet')+j('mek')) - RCONST(12465) = (j('mek')*2) - RCONST(12466) = (j('ch3o2h')) - RCONST(12469) = (j('mek')*2) - RCONST(12477) = (j('biacet')+j('mek')) - RCONST(12479) = (j('ch3o2h')) - RCONST(12480) = (j('mek')*2) - RCONST(12483) = (j('mek')*2) - RCONST(12491) = (j('n_c3h7cho_hco')) - RCONST(12494) = (j('biacet')+j('mek')) - RCONST(12496) = (j('ch3o2h')) - RCONST(12497) = (j('mek')*2) - RCONST(12500) = (j('mek')*2) - RCONST(12508) = (j('biacet')+j('mek')) - RCONST(12511) = (j('ch3o2h')) - RCONST(12515) = (j('ch3o2h')) - RCONST(12516) = (j('mek')*2) - RCONST(12519) = (j('mek')*2) - RCONST(12528) = (j('ch3o2h')) - RCONST(12533) = (j('ch3o2h')) - RCONST(12536) = (j('ch3o2h')) - RCONST(12540) = (j('ch3cocho')*2) - RCONST(12548) = (j('ch3cocho')*2) - RCONST(12556) = (j('ch3o2h')) - RCONST(12559) = (j('ch3o2h')) - RCONST(12569) = (j('ch3o2h')) - RCONST(12572) = (j('ch3o2h')) - RCONST(12575) = (j('ch3o2h')) - RCONST(12578) = (j('ch3cocho')*2) - RCONST(12600) = (j('ch3o2h')) - RCONST(12601) = (j('mek')) - RCONST(12612) = (j('ch3o2h')) - RCONST(12616) = (j('ch3o2h')) - RCONST(12619) = (j('ch3o2h')) - RCONST(12622) = (j('ch3cocho')+j('biacet')) - RCONST(12630) = (j('ch3o2h')) - RCONST(12633) = (j('ch3o2h')) - RCONST(12636) = (j('ch3o2h')) - RCONST(12639) = (j('ch3cocho')+j('biacet')) - RCONST(12647) = (j('ch3o2h')) - RCONST(12650) = (j('ch3o2h')) - RCONST(12653) = (j('ch3cocho')*2) - RCONST(12668) = (j('ch3o2h')) - RCONST(12671) = (j('ch3o2h')) - RCONST(12674) = (j('ch3cocho')*2) - RCONST(12683) = (j('ch3o2h')+j('biacet')+j('mek')) - RCONST(12687) = (j('ch3o2h')) - RCONST(12690) = (j('ch3o2h')) - RCONST(12693) = (j('ch3cocho')*2) - RCONST(12702) = (j('ch3o2h')+j('biacet')+j('mek')) - RCONST(12715) = (j('ch3o2h')) - RCONST(12718) = (j('ch3o2h')) - RCONST(12722) = (j('ch3o2h')) - RCONST(12725) = (j('ch3o2h')) - RCONST(12728) = (j('ch3o2h')) - RCONST(12731) = (j('ch3cocho')+j('biacet')) - RCONST(12739) = (j('ch3o2h')) - RCONST(12742) = (j('ch3o2h')) - RCONST(12745) = (j('ch3o2h')) - RCONST(12748) = (j('ch3cocho')*2) - RCONST(12756) = (j('ch3o2h')) - RCONST(12759) = (j('ch3o2h')) - RCONST(12762) = (j('ch3cocho')+j('biacet')) - RCONST(12770) = (j('ch3o2h')) - RCONST(12773) = (j('ch3o2h')) - RCONST(12776) = (j('ch3cocho')+j('biacet')) - RCONST(12792) = (j('ch3o2h')) - RCONST(12799) = (j('ch3o2h')) - RCONST(12803) = (j('ch3o2h')) - RCONST(12808) = (j('ch3o2h')+j('mek')) - RCONST(12811) = (j('mek')) - RCONST(12842) = (j('ch3o2h')) - RCONST(12847) = (j('ch3o2h')*3) - RCONST(12851) = (j('ch3o2h')) - RCONST(12873) = (j('ch3o2h')) - RCONST(12882) = (j('ch3o2h')) - RCONST(12884) = (j('ch3o2h')*2) - RCONST(12886) = (KBPAN+j('ch3o2h')) - RCONST(12889) = (j('ch3o2h')) - RCONST(12902) = (j('ch3o2h')) - RCONST(12907) = (j('ch3coch2ono2')*10) - RCONST(12909) = (j('ch3coch2ono2')*10) - RCONST(12911) = (KBPAN+j('ch3coch2ono2')*10) - RCONST(12922) = (j('ch3o2h')) - RCONST(12928) = (j('ch3o2h')) - RCONST(12933) = (j('ch3o2h')) - RCONST(12942) = (j('i_c3h7cho')) - RCONST(12943) = (j('ch3o2h')) - RCONST(12946) = (j('mek')) - RCONST(12948) = (j('i_c3h7cho')) - RCONST(12957) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(12972) = (j('ch3o2h')) - RCONST(13002) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(13004) = (j('2_c4h9ono2')+j('n_c3h7cho_hco')) - RCONST(13007) = (j('n_c3h7cho_hco')) - RCONST(13013) = (j('ch3o2h')+j('biacet')) - RCONST(13015) = (j('1_c4h9ono2')+j('biacet')) - RCONST(13018) = (j('biacet')) - RCONST(13020) = (j('ch3o2h')) - RCONST(13036) = (j('ch3o2h')+j('mek')) - RCONST(13039) = (j('ch3o2h')+j('biacet')) - RCONST(13041) = (j('2_c4h9ono2')+j('biacet')) - RCONST(13044) = (j('biacet')) - RCONST(13046) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(13063) = (j('ch3o2h')+j('n_c3h7cho_hco')*2) - RCONST(13065) = (j('2_c4h9ono2')+j('n_c3h7cho_hco')*2) - RCONST(13068) = (j('n_c3h7cho_hco')) - RCONST(13070) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(13073) = (j('n_c3h7cho_hco')) - RCONST(13076) = (j('ch3o2h')+j('n_c3h7cho_hco')*2) - RCONST(13078) = (j('1_c4h9ono2')+j('n_c3h7cho_hco')*2) - RCONST(13081) = (j('n_c3h7cho_hco')*2) - RCONST(13084) = (j('ch3o2h')) - RCONST(13088) = (j('ch3o2h')) - RCONST(13093) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(13095) = (j('n_c3h7ono2')+j('n_c3h7cho_hco')) - RCONST(13099) = (j('n_c3h7cho_hco')) - RCONST(13101) = (j('ch3o2h')) - RCONST(13112) = (j('n_c3h7cho_hco')) - RCONST(13126) = (j('n_c3h7cho_hco')) - RCONST(13128) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(13132) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(13134) = (j('n_c3h7ono2')) - RCONST(13139) = (j('n_c3h7cho_hco')) - RCONST(13141) = (j('ch3o2h')) - RCONST(13142) = (j('mek')+j('n_c3h7cho_hco')*2) - RCONST(13145) = (j('mek')+j('n_c3h7cho_hco')*2) - RCONST(13166) = (j('ch3o2h')) - RCONST(13168) = (j('n_c3h7ono2')) - RCONST(13172) = (j('ch3o2h')) - RCONST(13184) = (j('ch3o2h')) - RCONST(13188) = (j('ch3o2h')) - RCONST(13205) = (j('ch3o2h')) - RCONST(13219) = (j('ch3o2h')) - RCONST(13223) = (j('ch3o2h')) - RCONST(13228) = (j('ch3o2h')) - RCONST(13240) = (j('ch3o2h')) - RCONST(13257) = (j('ch3o2h')) - RCONST(13259) = (j('1_c4h9ono2')) - RCONST(13277) = (j('ch3o2h')) - RCONST(13279) = (j('2_c4h9ono2')) - RCONST(13294) = (j('ch3o2h')) - RCONST(13296) = (j('1_c4h9ono2')) - RCONST(13313) = (j('ch3o2h')) - RCONST(13319) = (j('n_c3h7cho_hco')) - RCONST(13328) = (j('ch3o2h')+j('mek')) - RCONST(13331) = (j('ch3o2h')+j('mek')) - RCONST(13343) = (j('ch3o2h')) - RCONST(13347) = (j('ch3o2h')) - RCONST(13348) = (j('mek')*2) - RCONST(13355) = (j('ch3o2h')) - RCONST(13359) = (j('ch3o2h')) - RCONST(13364) = (j('mek')) - RCONST(13370) = (j('ch3o2h')) - RCONST(13378) = (j('ch3o2h')) - RCONST(13386) = (j('ch3o2h')) - RCONST(13394) = (j('ch3o2h')) - RCONST(13402) = (j('ch3o2h')) - RCONST(13414) = (j('ch3o2h')) - RCONST(13424) = (j('ch3o2h')) - RCONST(13429) = (j('ch3o2h')) - RCONST(13439) = (j('ch3o2h')) - RCONST(13443) = (j('ch3o2h')+j('biacet')) - RCONST(13448) = (j('ch3o2h')) - RCONST(13453) = (j('ch3o2h')) - RCONST(13457) = (j('mek')+j('ch3cocho')) - RCONST(13459) = (j('ch3o2h')) - RCONST(13469) = (j('ch3o2h')) - RCONST(13479) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(13484) = (j('ch3o2h')+j('biacet')*2) - RCONST(13494) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(13505) = (j('ch3o2h')+j('i_c3h7cho')+j('mek')) - RCONST(13510) = (j('ch3o2h')) - RCONST(13513) = (j('ch3o2h')) - RCONST(13517) = (j('ch3o2h')) - RCONST(13521) = (j('biacet')) - RCONST(13522) = (j('ch3cocho')) - RCONST(13530) = (j('ch3o2h')) - RCONST(13540) = (j('ch3o2h')) - RCONST(13550) = (j('ch3o2h')) - RCONST(13555) = (j('ch3o2h')) - RCONST(13559) = (j('ch3o2h')) - RCONST(13562) = (j('ch3cocho')) - RCONST(13574) = (j('ch3coch2ono2')*10) - RCONST(13576) = (KBPAN+j('ch3coch2ono2')*10) - RCONST(13579) = (j('ch3o2h')) - RCONST(13584) = (j('ch3o2h')) - RCONST(13589) = (j('ch3o2h')) - RCONST(13593) = (j('ch3coch2ono2')*0.91) - RCONST(13595) = (j('ch3coch2ono2')*0.91) - RCONST(13597) = (KBPAN+j('ch3coch2ono2')*0.91) - RCONST(13599) = (j('ch3o2h')*2) - RCONST(13601) = (KBPAN+j('ch3o2h')) - RCONST(13602) = (j('ch3coch2ono2')*1.6) - RCONST(13604) = (j('ch3coch2ono2')*1.6) - RCONST(13606) = (j('ch3coch2ono2')*1.6+KBPAN) - RCONST(13609) = (j('ch3o2h')) - RCONST(13610) = (j('i_c3h7cho')) - RCONST(13613) = (j('ch3o2h')) - RCONST(13614) = (j('n_c3h7cho_hco')) - RCONST(13617) = (j('ch3coch2ono2')*0.91) - RCONST(13619) = (j('ch3coch2ono2')*0.91) - RCONST(13621) = (j('ch3coch2ono2')*1.6) - RCONST(13623) = (j('ch3coch2ono2')*0.91) - RCONST(13626) = (j('ch3o2h')) - RCONST(13629) = (j('ch3o2h')) - RCONST(13634) = (j('ch3o2h')) - RCONST(13638) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(13642) = (j('ch3o2h')+j('mek')+j('n_c3h7cho_hco')) - RCONST(13650) = (j('ch3o2h')+j('mek')+j('ch3cocho')) - RCONST(13654) = (j('ch3o2h')+j('biacet')) - RCONST(13668) = (j('ch3o2h')) - RCONST(13672) = (j('ch3o2h')) - RCONST(13674) = (j('n_c3h7ono2')) - RCONST(13678) = (j('n_c3h7cho_hco')) - RCONST(13681) = (j('ch3o2h')+j('mek')+j('n_c3h7cho_hco')) - RCONST(13688) = (j('mek')) - RCONST(13701) = (j('mek')*2) - RCONST(13703) = (j('ch3o2h')+j('mek')*2) - RCONST(13707) = (j('ch3o2h')+j('mek')*2) - RCONST(13710) = (j('ch3cocho')) - RCONST(13713) = (j('mek')*2) - RCONST(13730) = (j('ch3cocho')+j('n_c3h7cho_hco')+j('biacet')) - RCONST(13752) = (j('ch3cocho')+j('n_c3h7cho_hco')) - RCONST(13754) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(13756) = (j('2_c4h9ono2')+j('n_c3h7cho_hco')) - RCONST(13759) = (j('n_c3h7cho_hco')) - RCONST(13774) = (j('mek')*2) - RCONST(13775) = (j('ch3o2h')) - RCONST(13779) = (j('mek')*2) - RCONST(13781) = (j('mek')*2+j('ch3o2h')) - RCONST(13810) = (j('ch3o2h')) - RCONST(13819) = (j('ch3o2h')) - RCONST(13824) = (j('ch3o2h')) - RCONST(13826) = (j('n_c3h7ono2')) - RCONST(13834) = (j('n_c3h7cho_hco')) - RCONST(13843) = (j('ch3o2h')) - RCONST(13845) = (j('n_c3h7ono2')) - RCONST(13848) = (j('n_c3h7cho_hco')) - RCONST(13851) = (j('mek')*2+j('ch3o2h')) - RCONST(13857) = (j('ch3o2h')) - RCONST(13861) = (j('ch3o2h')) - RCONST(13863) = (j('1_c4h9ono2')) - RCONST(13883) = (j('ch3o2h')) - RCONST(13885) = (j('n_c3h7ono2')) - RCONST(13888) = (j('n_c3h7cho_hco')) - RCONST(13891) = (j('ch3o2h')) - RCONST(13893) = (j('1_c4h9ono2')) - RCONST(13898) = (j('ch3o2h')) - RCONST(13900) = (j('2_c4h9ono2')) - RCONST(13904) = (j('ch3o2h')) - RCONST(13906) = (j('2_c4h9ono2')) - RCONST(13911) = (j('ch3o2h')) - RCONST(13922) = (j('mek')) - RCONST(13931) = (j('ch3o2h')) - RCONST(13935) = (j('ch3o2h')) - RCONST(13937) = (j('2_c4h9ono2')) - RCONST(13941) = (j('ch3o2h')) - RCONST(13945) = (j('i_c3h7cho')) - RCONST(13946) = (j('ch3o2h')) - RCONST(13949) = (j('n_c3h7cho_hco')+j('biacet')+j('ch3o2h')) - RCONST(13957) = (j('ch3o2h')) - RCONST(13961) = (j('ch3o2h')+j('biacet')) - RCONST(13962) = (j('mek')) - RCONST(13965) = (j('ch3o2h')) - RCONST(13966) = (j('biacet')) - RCONST(13969) = (j('ch3o2h')) - RCONST(13970) = (j('mek')*2) - RCONST(13977) = (j('ch3o2h')+j('mek')+j('biacet')) - RCONST(13980) = (j('ch3o2h')+j('mek')+j('biacet')) - RCONST(13983) = (j('ch3o2h')+j('mek')+j('biacet')) - RCONST(13986) = (j('ch3o2h')+j('mek')+j('biacet')) - RCONST(13989) = (j('ch3o2h')+j('mek')+j('biacet')) - RCONST(13993) = (j('ch3o2h')+j('ch3cocho')) - RCONST(13997) = (j('ch3o2h')+j('ch3cocho')) - RCONST(14001) = (j('ch3o2h')+j('ch3cocho')) - RCONST(14006) = (j('mek')) - RCONST(14008) = (j('ch3o2h')+j('ch3cocho')) - RCONST(14012) = (j('ch3o2h')+j('ch3cocho')) - RCONST(14017) = (j('ch3o2h')+j('ch3cocho')) - RCONST(14022) = (j('ch3o2h')+j('ch3cocho')) - RCONST(14033) = (j('ch3o2h')+j('ch3cocho')) - RCONST(14037) = (j('ch3o2h')) - RCONST(14041) = (j('ch3o2h')) - RCONST(14045) = (j('mvk_mcm_ch2ch')) - RCONST(14047) = (j('ch3o2h')) - RCONST(14051) = (j('ch3o2h')+j('mek')) - RCONST(14054) = (j('ch3cocho')) - RCONST(14057) = (j('n_c3h7cho_hco')) - RCONST(14058) = (j('ch3cocho')) - RCONST(14060) = (j('ch3o2h')+j('mek')+j('ch3cocho')) - RCONST(14063) = (j('ch3o2h')+j('biacet')) - RCONST(14067) = (j('ch3cocho')) - RCONST(14069) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(14072) = (j('2_c4h9ono2')) - RCONST(14091) = (j('ch3o2h')+j('mek')) - RCONST(14094) = (j('ch3o2h')+j('biacet')) - RCONST(14096) = (j('biacet')) - RCONST(14099) = (j('biacet')) - RCONST(14101) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(14112) = (j('ch3o2h')+j('n_c3h7cho_hco')*2) - RCONST(14115) = (j('n_c3h7cho_hco')*2) - RCONST(14116) = (j('biacet')) - RCONST(14118) = (j('n_c3h7cho_hco')*2) - RCONST(14120) = (j('n_c3h7cho_hco')*2) - RCONST(14122) = (j('ch3o2h')+j('n_c3h7cho_hco')*2) - RCONST(14132) = (j('ch3o2h')+j('n_c3h7cho_hco')*2) - RCONST(14136) = (j('n_c3h7cho_hco')*2) - RCONST(14138) = (j('n_c3h7cho_hco')) - RCONST(14140) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(14151) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(14154) = (j('ch3cocho')+j('biacet')) - RCONST(14156) = (j('n_c3h7cho_hco')) - RCONST(14165) = (j('mek')*2) - RCONST(14167) = (j('ch3o2h')+j('mek')*2) - RCONST(14171) = (j('ch3o2h')) - RCONST(14172) = (j('mek')*2) - RCONST(14175) = (j('mek')*2) - RCONST(14177) = (j('ch3cocho')) - RCONST(14183) = (j('ch3o2h')) - RCONST(14186) = (j('biacet')) - RCONST(14188) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(14193) = (j('ch3o2h')) - RCONST(14197) = (j('ch3o2h')) - RCONST(14199) = (j('n_c3h7ono2')) - RCONST(14204) = (j('n_c3h7cho_hco')) - RCONST(14206) = (j('ch3o2h')) - RCONST(14207) = (j('mek')+j('n_c3h7cho_hco')) - RCONST(14210) = (j('mek')+j('n_c3h7cho_hco')) - RCONST(14232) = (j('ch3o2h')) - RCONST(14235) = (j('ch3cocho')) - RCONST(14267) = (j('ch3o2h')) - RCONST(14278) = (j('ch3o2h')+j('biacet')) - RCONST(14280) = (j('1_c4h9ono2')+j('biacet')) - RCONST(14284) = (j('biacet')) - RCONST(14286) = (j('biacet')) - RCONST(14301) = (j('ch3cocho')) - RCONST(14309) = (j('biacet')) - RCONST(14318) = (j('ch3o2h')) - RCONST(14320) = (j('1_c4h9ono2')) - RCONST(14325) = (j('ch3o2h')) - RCONST(14327) = (j('1_c4h9ono2')) - RCONST(14339) = (j('ch3cocho')) - RCONST(14355) = (j('n_c3h7cho_hco')) - RCONST(14356) = (j('ch3o2h')) - RCONST(14360) = (j('mek')) - RCONST(14361) = (j('ch3o2h')) - RCONST(14380) = (j('ch3o2h')) - RCONST(14398) = (j('ch3o2h')) - RCONST(14402) = (j('ch3o2h')) - RCONST(14407) = (j('ch3o2h')) - RCONST(14414) = (j('mek')) - RCONST(14416) = (j('ch3o2h')+j('mek')) - RCONST(14430) = (j('ch3o2h')) - RCONST(14433) = (j('ch3cocho')+j('n_c3h7cho_hco')*2) - RCONST(14437) = (j('ch3cocho')+j('n_c3h7cho_hco')) - RCONST(14439) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(14441) = (j('n_c3h7ono2')+j('n_c3h7cho_hco')) - RCONST(14447) = (j('n_c3h7cho_hco')) - RCONST(14448) = (j('n_c3h7cho_hco')) - RCONST(14450) = (j('n_c3h7cho_hco')) - RCONST(14452) = (j('ch3o2h')+j('n_c3h7cho_hco')*2) - RCONST(14454) = (j('1_c4h9ono2')+j('n_c3h7cho_hco')*2) - RCONST(14457) = (j('n_c3h7cho_hco')*2) - RCONST(14459) = (j('mek')+j('biacet')+j('ch3o2h')) - RCONST(14474) = (j('mek')) - RCONST(14475) = (j('n_c3h7cho_hco')) - RCONST(14478) = (j('ch3o2h')) - RCONST(14482) = (j('ch3o2h')) - RCONST(14491) = (j('ch3o2h')) - RCONST(14510) = (j('ch3o2h')) - RCONST(14513) = (j('mek')) - RCONST(14516) = (j('ch3o2h')) - RCONST(14518) = (j('n_c3h7ono2')) - RCONST(14522) = (j('ch3o2h')) - RCONST(14534) = (j('ch3o2h')) - RCONST(14536) = (j('1_c4h9ono2')) - RCONST(14542) = (j('ch3o2h')) - RCONST(14544) = (j('n_c3h7ono2')) - RCONST(14547) = (j('n_c3h7cho_hco')) - RCONST(14570) = (j('ch3o2h')) - RCONST(14572) = (j('2_c4h9ono2')) - RCONST(14576) = (j('ch3o2h')) - RCONST(14578) = (j('1_c4h9ono2')) - RCONST(14592) = (j('ch3o2h')) - RCONST(14596) = (j('ch3o2h')) - RCONST(14598) = (j('1_c4h9ono2')) - RCONST(14610) = (j('ch3o2h')) - RCONST(14629) = (j('ch3o2h')) - RCONST(14639) = (j('ch3o2h')) - RCONST(14641) = (j('1_c4h9ono2')) - RCONST(14645) = (j('ch3o2h')) - RCONST(14649) = (j('ch3o2h')) - RCONST(14653) = (j('ch3o2h')) - RCONST(14657) = (j('ch3o2h')+j('ch3cocho')) - RCONST(14661) = (j('ch3o2h')+j('ch3cocho')) - RCONST(14664) = (j('ch3o2h')) - RCONST(14677) = (j('ch3o2h')+j('mek')) - RCONST(14680) = (j('ch3o2h')+j('biacet')) - RCONST(14684) = (j('ch3o2h')+j('biacet')) - RCONST(14722) = (j('biacet')+j('ch3o2h')) - RCONST(14726) = (j('ch3o2h')) - RCONST(14730) = (j('n_c3h7cho_hco')) - RCONST(14731) = (j('ch3o2h')) - RCONST(14732) = (j('mek')) - RCONST(14736) = (j('n_c3h7cho_hco')) - RCONST(14737) = (j('mek')) - RCONST(14754) = (j('ch3o2h')) - RCONST(14771) = (j('ch3o2h')) - RCONST(14773) = (j('n_c3h7ono2')) - RCONST(14776) = (j('n_c3h7cho_hco')) - RCONST(14785) = (j('ch3o2h')+j('biacet')) - RCONST(14787) = (j('2_c4h9ono2')+j('biacet')) - RCONST(14790) = (j('biacet')) - RCONST(14792) = (j('ch3o2h')+j('biacet')) - RCONST(14795) = (j('biacet')) - RCONST(14797) = (j('biacet')) - RCONST(14800) = (j('ch3o2h')) - RCONST(14817) = (j('n_c3h7cho_hco')) - RCONST(14819) = (j('ch3o2h')) - RCONST(14824) = (j('ch3o2h')) - RCONST(14826) = (j('1_c4h9ono2')) - RCONST(14832) = (j('ch3o2h')) - RCONST(14834) = (j('n_c3h7ono2')) - RCONST(14838) = (j('n_c3h7cho_hco')) - RCONST(14842) = (j('ch3o2h')) - RCONST(14846) = (j('ch3o2h')) - RCONST(14848) = (j('2_c4h9ono2')) - RCONST(14858) = (j('ch3o2h')+j('ch3cocho')) - RCONST(14860) = (j('2_c4h9ono2')+j('ch3cocho')) - RCONST(14863) = (j('ch3cocho')) - RCONST(14865) = (j('ch3o2h')) - RCONST(14869) = (j('n_c3h7cho_hco')) - RCONST(14870) = (j('biacet')) - RCONST(14872) = (j('ch3cocho')+j('biacet')) - RCONST(14874) = (j('n_c3h7cho_hco')*2) - RCONST(14876) = (j('ch3o2h')+j('n_c3h7cho_hco')*2) - RCONST(14886) = (j('n_c3h7cho_hco')) - RCONST(14888) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(14892) = (j('n_c3h7cho_hco')) - RCONST(14894) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(14898) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(14901) = (j('ch3cocho')+j('n_c3h7cho_hco')) - RCONST(14903) = (j('n_c3h7cho_hco')) - RCONST(14905) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(14908) = (j('ch3o2h')) - RCONST(14925) = (j('ch3o2h')) - RCONST(14930) = (j('ch3o2h')) - RCONST(14932) = (j('1_c4h9ono2')) - RCONST(14936) = (j('mek')) - RCONST(14939) = (j('ch3o2h')) - RCONST(14942) = (j('ch3cocho')) - RCONST(14951) = (j('ch3o2h')) - RCONST(14953) = (j('2_c4h9ono2')) - RCONST(14967) = (j('ch3o2h')) - RCONST(14971) = (j('ch3o2h')) - RCONST(14973) = (j('2_c4h9ono2')) - RCONST(14993) = (j('ch3o2h')) - RCONST(15015) = (j('ch3o2h')+j('n_c3h7cho_hco')*2) - RCONST(15018) = (j('n_c3h7cho_hco')*2) - RCONST(15029) = (j('ch3o2h')+j('mek')) - RCONST(15039) = (j('ch3o2h')) - RCONST(15040) = (j('n_c3h7cho_hco')) - RCONST(15041) = (j('mek')) - RCONST(15045) = (j('n_c3h7cho_hco')) - RCONST(15046) = (j('mek')) - RCONST(15053) = (j('ch3o2h')) - RCONST(15056) = (j('mek')) - RCONST(15067) = (j('ch3o2h')+j('biacet')) - RCONST(15070) = (j('biacet')) - RCONST(15072) = (j('ch3o2h')+j('biacet')) - RCONST(15075) = (j('ch3o2h')) - RCONST(15080) = (j('ch3o2h')) - RCONST(15083) = (j('ch3o2h')) - RCONST(15086) = (j('biacet')) - RCONST(15088) = (j('mek')+j('ch3o2h')) - RCONST(15092) = (j('ch3o2h')) - RCONST(15095) = (j('ch3o2h')+j('biacet')) - RCONST(15099) = (j('ch3o2h')+j('biacet')) - RCONST(15103) = (j('n_c3h7cho_hco')*2) - RCONST(15105) = (j('n_c3h7cho_hco')) - RCONST(15107) = (j('ch3o2h')+j('n_c3h7cho_hco')) - RCONST(15111) = (j('ch3o2h')) - RCONST(15112) = (j('mek')) - RCONST(15115) = (j('ch3o2h')) - RCONST(15116) = (j('mek')) - RCONST(15119) = (j('mek')) - RCONST(15121) = (j('ch3o2h')) - RCONST(15123) = (j('2_c4h9ono2')) - RCONST(15127) = (j('n_c3h7cho_hco')) - RCONST(15130) = (j('n_c3h7cho_hco')) - RCONST(15154) = (j('ch3o2h')) - RCONST(15159) = (j('ch3o2h')) - RCONST(15163) = (j('ch3cocho')) - RCONST(15165) = (j('ch3o2h')) - RCONST(15169) = (j('ch3o2h')) - RCONST(15176) = (j('ch3o2h')) - -END SUBROUTINE Update_PHOTO - -! End of Update_PHOTO function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE MCMv3_3_Rates - diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Rates.o b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Rates.o deleted file mode 100644 index ace41b2ac933773edd683917a27c46d646e2b282..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Rates.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Stoichiom.f90 b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Stoichiom.f90 deleted file mode 100644 index 8412c79ebfd21abecd474599cfeecfc1baaa9015..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Stoichiom.f90 +++ /dev/null @@ -1,63478 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The Stoichiometric Chemical Model File -! -! Generated by KPP-2.2.3 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 : MCMv3_3_Stoichiom.f90 -! Time : Mon Jul 19 14:16:06 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MCMv3_3_3654_BOXMOX -! Equation file : MCMv3_3.kpp -! Output root filename : MCMv3_3 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MCMv3_3_Stoichiom - - USE MCMv3_3_Parameters - USE MCMv3_3_StoichiomSP - - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! ReactantProd - Reactant Products in each equation -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! ARP - Reactant product in each equation -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE ReactantProd ( V, F, ARP ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! F - Concentrations of fixed species (local) - REAL(kind=dp) :: F(NFIX) -! ARP - Reactant product in each equation - REAL(kind=dp) :: ARP(NREACT) - - -! Reactant Products in each equation are useful in the -! stoichiometric formulation of mass action law - ARP(1) = F(1)*F(2) - ARP(2) = V(3568) - ARP(3) = V(3568)*V(5258) - ARP(4) = V(3568)*V(5252) - ARP(5) = V(3568)*V(5253) - ARP(6) = V(3568)*V(5253) - ARP(7) = V(4) - ARP(8) = V(5252)*V(5258) - ARP(9) = V(5253)*V(5258) - ARP(10) = V(5252)*V(5252) - ARP(11) = V(5252)*V(5256) - ARP(12) = V(5253)*V(5256) - ARP(13) = V(5253)*V(5256) - ARP(14) = V(4) - ARP(15) = V(5250)*V(5258) - ARP(16) = V(260)*V(5250) - ARP(17) = V(5250)*V(5251) - ARP(18) = V(5046)*V(5250) - ARP(19) = V(5255)*V(5258) - ARP(20) = V(5250)*V(5255) - ARP(21) = V(5255)*V(5255) - ARP(22) = V(5250)*V(5252) - ARP(23) = V(5250)*V(5253) - ARP(24) = V(5250)*V(5256) - ARP(25) = V(5252)*V(5255) - ARP(26) = V(5253)*V(5255) - ARP(27) = V(925)*V(5250) - ARP(28) = V(5255)*V(5256) - ARP(29) = V(337)*V(5250) - ARP(30) = V(5201)*V(5250) - ARP(31) = V(3568)*V(5254) - ARP(32) = V(5250)*V(5254) - ARP(33) = V(5) - ARP(34) = V(5201) - ARP(35) = V(137) - ARP(36) = V(3) - ARP(37) = V(5258) - ARP(38) = V(5258) - ARP(39) = V(5046) - ARP(40) = V(5253) - ARP(41) = V(5256) - ARP(42) = V(5256) - ARP(43) = V(337) - ARP(44) = V(5201) - ARP(45) = V(137) - ARP(46) = V(925) - ARP(47) = V(1068)*V(5250) - ARP(48) = V(1733)*V(5250) - ARP(49) = V(1733)*V(5250) - ARP(50) = V(1733)*V(5250) - ARP(51) = V(1686)*V(5250) - ARP(52) = V(1686)*V(5250) - ARP(53) = V(1686)*V(5250) - ARP(54) = V(3083)*V(5250) - ARP(55) = V(3083)*V(5250) - ARP(56) = V(1697)*V(5250) - ARP(57) = V(1697)*V(5250) - ARP(58) = V(1697)*V(5250) - ARP(59) = V(757)*V(5250) - ARP(60) = V(757)*V(5250) - ARP(61) = V(1701)*V(5250) - ARP(62) = V(1701)*V(5250) - ARP(63) = V(1701)*V(5250) - ARP(64) = V(298)*V(5250) - ARP(65) = V(298)*V(5250) - ARP(66) = V(1596)*V(5250) - ARP(67) = V(1596)*V(5250) - ARP(68) = V(1596)*V(5250) - ARP(69) = V(1730)*V(5250) - ARP(70) = V(1730)*V(5250) - ARP(71) = V(1730)*V(5250) - ARP(72) = V(181)*V(5250) - ARP(73) = V(181)*V(5250) - ARP(74) = V(181)*V(5250) - ARP(75) = V(806)*V(5250) - ARP(76) = V(806)*V(5250) - ARP(77) = V(806)*V(5250) - ARP(78) = V(1577)*V(5250) - ARP(79) = V(1577)*V(5250) - ARP(80) = V(1577)*V(5250) - ARP(81) = V(598)*V(5250) - ARP(82) = V(598)*V(5250) - ARP(83) = V(2118)*V(5250) - ARP(84) = V(2118)*V(5250) - ARP(85) = V(2118)*V(5250) - ARP(86) = V(2118) - ARP(87) = V(249)*V(5250) - ARP(88) = V(2421)*V(5250) - ARP(89) = V(2421)*V(5250) - ARP(90) = V(4555)*V(5256) - ARP(91) = V(4555)*V(5256) - ARP(92) = V(4555)*V(5258) - ARP(93) = V(4555)*V(5258) - ARP(94) = V(4555)*V(5250) - ARP(95) = V(4555)*V(5250) - ARP(96) = V(5231) - ARP(97) = V(5231) - ARP(98) = V(5231)*V(5256) - ARP(99) = V(5231)*V(5250) - ARP(100) = V(5193) - ARP(101) = V(5193)*V(5256) - ARP(102) = V(5193)*V(5250) - ARP(103) = V(5193)*V(5250) - ARP(104) = V(5191)*V(5256) - ARP(105) = V(5191)*V(5250) - ARP(106) = V(5191) - ARP(107) = V(5230)*V(5256) - ARP(108) = V(5230)*V(5250) - ARP(109) = V(5230)*V(5250) - ARP(110) = V(5230) - ARP(111) = V(5230) - ARP(112) = V(5203)*V(5256) - ARP(113) = V(5203)*V(5250) - ARP(114) = V(5203)*V(5250) - ARP(115) = V(5203)*V(5250) - ARP(116) = V(5203) - ARP(117) = V(5165)*V(5256) - ARP(118) = V(5165)*V(5250) - ARP(119) = V(5165)*V(5250) - ARP(120) = V(5165) - ARP(121) = V(5194)*V(5256) - ARP(122) = V(5194)*V(5250) - ARP(123) = V(5194)*V(5250) - ARP(124) = V(5194)*V(5250) - ARP(125) = V(5194) - ARP(126) = V(5194) - ARP(127) = V(5194) - ARP(128) = V(5194)*V(5258) - ARP(129) = V(5194)*V(5258) - ARP(130) = V(5226) - ARP(131) = V(5226) - ARP(132) = V(5226)*V(5256) - ARP(133) = V(5226)*V(5258) - ARP(134) = V(5226)*V(5258) - ARP(135) = V(5226)*V(5250) - ARP(136) = V(5226)*V(5250) - ARP(137) = V(5226)*V(5250) - ARP(138) = V(4840)*V(5256) - ARP(139) = V(4840)*V(5256) - ARP(140) = V(4840)*V(5256) - ARP(141) = V(4840)*V(5258) - ARP(142) = V(4840)*V(5258) - ARP(143) = V(4840)*V(5250) - ARP(144) = V(4840)*V(5250) - ARP(145) = V(4840)*V(5250) - ARP(146) = V(4840) - ARP(147) = V(2914)*V(5238) - ARP(148) = V(2914)*V(5250) - ARP(149) = V(2973)*V(5238) - ARP(150) = V(2973)*V(5250) - ARP(151) = V(3651)*V(5238) - ARP(152) = V(3651)*V(5238) - ARP(153) = V(3651)*V(5250) - ARP(154) = V(3651)*V(5250) - ARP(155) = V(1817)*V(5238) - ARP(156) = V(1817)*V(5238) - ARP(157) = V(1817)*V(5250) - ARP(158) = V(1817)*V(5250) - ARP(159) = V(601)*V(5238) - ARP(160) = V(601)*V(5238) - ARP(161) = V(601)*V(5250) - ARP(162) = V(601)*V(5250) - ARP(163) = V(1708)*V(5238) - ARP(164) = V(1708)*V(5238) - ARP(165) = V(1708)*V(5238) - ARP(166) = V(1708)*V(5250) - ARP(167) = V(1708)*V(5250) - ARP(168) = V(1708)*V(5250) - ARP(169) = V(1635)*V(5238) - ARP(170) = V(1635)*V(5238) - ARP(171) = V(1635)*V(5238) - ARP(172) = V(1635)*V(5250) - ARP(173) = V(1635)*V(5250) - ARP(174) = V(1635)*V(5250) - ARP(175) = V(288)*V(5238) - ARP(176) = V(288)*V(5250) - ARP(177) = V(1709)*V(5238) - ARP(178) = V(1709)*V(5238) - ARP(179) = V(1709)*V(5238) - ARP(180) = V(1709)*V(5250) - ARP(181) = V(1709)*V(5250) - ARP(182) = V(1709)*V(5250) - ARP(183) = V(2385)*V(5238) - ARP(184) = V(2385)*V(5238) - ARP(185) = V(2385)*V(5238) - ARP(186) = V(2385)*V(5238) - ARP(187) = V(2385)*V(5250) - ARP(188) = V(2385)*V(5250) - ARP(189) = V(2385)*V(5250) - ARP(190) = V(2385)*V(5250) - ARP(191) = V(1641)*V(5238) - ARP(192) = V(1641)*V(5238) - ARP(193) = V(1641)*V(5238) - ARP(194) = V(1641)*V(5250) - ARP(195) = V(1641)*V(5250) - ARP(196) = V(1641)*V(5250) - ARP(197) = V(1688)*V(5238) - ARP(198) = V(1688)*V(5238) - ARP(199) = V(1688)*V(5238) - ARP(200) = V(1688)*V(5250) - ARP(201) = V(1688)*V(5250) - ARP(202) = V(1688)*V(5250) - ARP(203) = V(566)*V(5238) - ARP(204) = V(566)*V(5238) - ARP(205) = V(566)*V(5250) - ARP(206) = V(566)*V(5250) - ARP(207) = V(447)*V(5238) - ARP(208) = V(447)*V(5250) - ARP(209) = V(588)*V(5238) - ARP(210) = V(588)*V(5238) - ARP(211) = V(588)*V(5250) - ARP(212) = V(588)*V(5250) - ARP(213) = V(548)*V(5238) - ARP(214) = V(548)*V(5238) - ARP(215) = V(548)*V(5250) - ARP(216) = V(548)*V(5250) - ARP(217) = V(221)*V(5238) - ARP(218) = V(221)*V(5250) - ARP(219) = V(270)*V(5238) - ARP(220) = V(270)*V(5250) - ARP(221) = V(342)*V(5238) - ARP(222) = V(342)*V(5250) - ARP(223) = V(426)*V(5238) - ARP(224) = V(426)*V(5250) - ARP(225) = V(253)*V(5238) - ARP(226) = V(253)*V(5250) - ARP(227) = V(235)*V(5238) - ARP(228) = V(235)*V(5250) - ARP(229) = V(5124)*V(5256) - ARP(230) = V(5124)*V(5258) - ARP(231) = V(5124)*V(5250) - ARP(232) = V(5200)*V(5256) - ARP(233) = V(5200)*V(5256) - ARP(234) = V(5200)*V(5258) - ARP(235) = V(5200)*V(5258) - ARP(236) = V(5200)*V(5250) - ARP(237) = V(5200)*V(5250) - ARP(238) = V(5051)*V(5256) - ARP(239) = V(5051)*V(5256) - ARP(240) = V(5051)*V(5258) - ARP(241) = V(5051)*V(5258) - ARP(242) = V(5051)*V(5250) - ARP(243) = V(5051)*V(5250) - ARP(244) = V(3465)*V(5256) - ARP(245) = V(3465)*V(5258) - ARP(246) = V(3465)*V(5250) - ARP(247) = V(3466)*V(5256) - ARP(248) = V(3466)*V(5258) - ARP(249) = V(3466)*V(5250) - ARP(250) = V(4512)*V(5256) - ARP(251) = V(4512)*V(5256) - ARP(252) = V(4512)*V(5258) - ARP(253) = V(4512)*V(5258) - ARP(254) = V(4512)*V(5250) - ARP(255) = V(4512)*V(5250) - ARP(256) = V(5190)*V(5256) - ARP(257) = V(5190)*V(5256) - ARP(258) = V(5190)*V(5258) - ARP(259) = V(5190)*V(5258) - ARP(260) = V(5190)*V(5250) - ARP(261) = V(5190)*V(5250) - ARP(262) = V(4332)*V(5256) - ARP(263) = V(4332)*V(5256) - ARP(264) = V(4332)*V(5258) - ARP(265) = V(4332)*V(5258) - ARP(266) = V(4332)*V(5250) - ARP(267) = V(4332)*V(5250) - ARP(268) = V(4475)*V(5256) - ARP(269) = V(4475)*V(5256) - ARP(270) = V(4475)*V(5258) - ARP(271) = V(4475)*V(5258) - ARP(272) = V(4475)*V(5250) - ARP(273) = V(4475)*V(5250) - ARP(274) = V(4601)*V(5256) - ARP(275) = V(4601)*V(5256) - ARP(276) = V(4601)*V(5258) - ARP(277) = V(4601)*V(5258) - ARP(278) = V(4601)*V(5250) - ARP(279) = V(4601)*V(5250) - ARP(280) = V(4508)*V(5256) - ARP(281) = V(4508)*V(5256) - ARP(282) = V(4508)*V(5258) - ARP(283) = V(4508)*V(5258) - ARP(284) = V(4508)*V(5250) - ARP(285) = V(4508)*V(5250) - ARP(286) = V(4474)*V(5256) - ARP(287) = V(4474)*V(5256) - ARP(288) = V(4474)*V(5258) - ARP(289) = V(4474)*V(5258) - ARP(290) = V(4474)*V(5250) - ARP(291) = V(4474)*V(5250) - ARP(292) = V(4527)*V(5256) - ARP(293) = V(4527)*V(5256) - ARP(294) = V(4527)*V(5258) - ARP(295) = V(4527)*V(5258) - ARP(296) = V(4527)*V(5250) - ARP(297) = V(4527)*V(5250) - ARP(298) = V(4604)*V(5256) - ARP(299) = V(4604)*V(5256) - ARP(300) = V(4604)*V(5258) - ARP(301) = V(4604)*V(5258) - ARP(302) = V(4604)*V(5250) - ARP(303) = V(4604)*V(5250) - ARP(304) = V(4606)*V(5256) - ARP(305) = V(4606)*V(5256) - ARP(306) = V(4606)*V(5258) - ARP(307) = V(4606)*V(5258) - ARP(308) = V(4606)*V(5250) - ARP(309) = V(4606)*V(5250) - ARP(310) = V(3442)*V(5256) - ARP(311) = V(3442)*V(5258) - ARP(312) = V(3442)*V(5250) - ARP(313) = V(198)*V(5250) - ARP(314) = V(198)*V(5250) - ARP(315) = V(1703)*V(5250) - ARP(316) = V(1703)*V(5250) - ARP(317) = V(1703)*V(5250) - ARP(318) = V(250)*V(5250) - ARP(319) = V(250)*V(5250) - ARP(320) = V(250)*V(5250) - ARP(321) = V(250)*V(5250) - ARP(322) = V(3145)*V(5256) - ARP(323) = V(3145)*V(5250) - ARP(324) = V(3145)*V(5250) - ARP(325) = V(3145)*V(5250) - ARP(326) = V(3145)*V(5250) - ARP(327) = V(3096)*V(5256) - ARP(328) = V(3096)*V(5250) - ARP(329) = V(3096)*V(5250) - ARP(330) = V(3096)*V(5250) - ARP(331) = V(3096)*V(5250) - ARP(332) = V(3134)*V(5256) - ARP(333) = V(3134)*V(5250) - ARP(334) = V(3134)*V(5250) - ARP(335) = V(3134)*V(5250) - ARP(336) = V(3134)*V(5250) - ARP(337) = V(3105)*V(5256) - ARP(338) = V(3105)*V(5250) - ARP(339) = V(3105)*V(5250) - ARP(340) = V(3105)*V(5250) - ARP(341) = V(3105)*V(5250) - ARP(342) = V(3144)*V(5256) - ARP(343) = V(3144)*V(5250) - ARP(344) = V(3144)*V(5250) - ARP(345) = V(3144)*V(5250) - ARP(346) = V(3144)*V(5250) - ARP(347) = V(3084)*V(5256) - ARP(348) = V(3084)*V(5250) - ARP(349) = V(3084)*V(5250) - ARP(350) = V(3084)*V(5250) - ARP(351) = V(3084)*V(5250) - ARP(352) = V(3179)*V(5256) - ARP(353) = V(3179)*V(5250) - ARP(354) = V(3179)*V(5250) - ARP(355) = V(3179)*V(5250) - ARP(356) = V(3179)*V(5250) - ARP(357) = V(3138)*V(5256) - ARP(358) = V(3138)*V(5250) - ARP(359) = V(3138)*V(5250) - ARP(360) = V(3138)*V(5250) - ARP(361) = V(3138)*V(5250) - ARP(362) = V(3097)*V(5256) - ARP(363) = V(3097)*V(5250) - ARP(364) = V(3097)*V(5250) - ARP(365) = V(3097)*V(5250) - ARP(366) = V(3097)*V(5250) - ARP(367) = V(3192)*V(5256) - ARP(368) = V(3192)*V(5250) - ARP(369) = V(3192)*V(5250) - ARP(370) = V(3192)*V(5250) - ARP(371) = V(3192)*V(5250) - ARP(372) = V(3113)*V(5256) - ARP(373) = V(3113)*V(5250) - ARP(374) = V(3113)*V(5250) - ARP(375) = V(3113)*V(5250) - ARP(376) = V(3113)*V(5250) - ARP(377) = V(3129)*V(5256) - ARP(378) = V(3129)*V(5250) - ARP(379) = V(3129)*V(5250) - ARP(380) = V(3129)*V(5250) - ARP(381) = V(3129)*V(5250) - ARP(382) = V(3182)*V(5256) - ARP(383) = V(3182)*V(5250) - ARP(384) = V(3182)*V(5250) - ARP(385) = V(3182)*V(5250) - ARP(386) = V(3182)*V(5250) - ARP(387) = V(3169)*V(5256) - ARP(388) = V(3169)*V(5250) - ARP(389) = V(3169)*V(5250) - ARP(390) = V(3169)*V(5250) - ARP(391) = V(3169)*V(5250) - ARP(392) = V(4395)*V(5256) - ARP(393) = V(4395)*V(5258) - ARP(394) = V(4395)*V(5258) - ARP(395) = V(4395)*V(5250) - ARP(396) = V(4964) - ARP(397) = V(4964) - ARP(398) = V(4964)*V(5256) - ARP(399) = V(4964)*V(5250) - ARP(400) = V(5153)*V(5256) - ARP(401) = V(5153)*V(5256) - ARP(402) = V(5153)*V(5258) - ARP(403) = V(5153)*V(5258) - ARP(404) = V(5153)*V(5250) - ARP(405) = V(5153)*V(5250) - ARP(406) = V(5153)*V(5250) - ARP(407) = V(5166)*V(5256) - ARP(408) = V(5166)*V(5258) - ARP(409) = V(5166)*V(5258) - ARP(410) = V(5166)*V(5258) - ARP(411) = V(5166)*V(5258) - ARP(412) = V(5166)*V(5250) - ARP(413) = V(5166)*V(5250) - ARP(414) = V(5166)*V(5250) - ARP(415) = V(5166)*V(5250) - ARP(416) = V(5166)*V(5250) - ARP(417) = V(5166)*V(5250) - ARP(418) = V(5166)*V(5250) - ARP(419) = V(668)*V(5256) - ARP(420) = V(668)*V(5250) - ARP(421) = V(1580)*V(5256) - ARP(422) = V(1580)*V(5250) - ARP(423) = V(1580)*V(5250) - ARP(424) = V(5160)*V(5250) - ARP(425) = V(5160) - ARP(426) = V(5178)*V(5250) - ARP(427) = V(5178)*V(5250) - ARP(428) = V(5178)*V(5250) - ARP(429) = V(5178) - ARP(430) = V(3978)*V(5250) - ARP(431) = V(3978)*V(5250) - ARP(432) = V(3978) - ARP(433) = V(3609)*V(5250) - ARP(434) = V(3609)*V(5250) - ARP(435) = V(3609) - ARP(436) = V(3868) - ARP(437) = V(3868)*V(5250) - ARP(438) = V(3868)*V(5250) - ARP(439) = V(3505)*V(5250) - ARP(440) = V(3505)*V(5250) - ARP(441) = V(3505)*V(5250) - ARP(442) = V(3505) - ARP(443) = V(3843)*V(5250) - ARP(444) = V(3843)*V(5250) - ARP(445) = V(3843)*V(5250) - ARP(446) = V(3843)*V(5250) - ARP(447) = V(3843) - ARP(448) = V(3583)*V(5250) - ARP(449) = V(3583)*V(5250) - ARP(450) = V(3583) - ARP(451) = V(3369) - ARP(452) = V(3369)*V(5250) - ARP(453) = V(3689)*V(5250) - ARP(454) = V(3689) - ARP(455) = V(3689) - ARP(456) = V(4492)*V(5256) - ARP(457) = V(4492)*V(5256) - ARP(458) = V(4492)*V(5258) - ARP(459) = V(4492)*V(5258) - ARP(460) = V(4492)*V(5250) - ARP(461) = V(4492)*V(5250) - ARP(462) = V(4492)*V(5250) - ARP(463) = V(4600)*V(5256) - ARP(464) = V(4600)*V(5256) - ARP(465) = V(4600)*V(5258) - ARP(466) = V(4600)*V(5258) - ARP(467) = V(4600)*V(5250) - ARP(468) = V(4600)*V(5250) - ARP(469) = V(4600)*V(5250) - ARP(470) = V(4605)*V(5256) - ARP(471) = V(4605)*V(5258) - ARP(472) = V(4605)*V(5258) - ARP(473) = V(4605)*V(5250) - ARP(474) = V(4605)*V(5250) - ARP(475) = V(4605)*V(5250) - ARP(476) = V(4988)*V(5256) - ARP(477) = V(4988)*V(5258) - ARP(478) = V(4988)*V(5258) - ARP(479) = V(4988)*V(5258) - ARP(480) = V(4988)*V(5258) - ARP(481) = V(4988)*V(5250) - ARP(482) = V(4988)*V(5250) - ARP(483) = V(4988)*V(5250) - ARP(484) = V(1750) - ARP(485) = V(5195)*V(5255) - ARP(486) = V(5195)*V(5252) - ARP(487) = V(5195)*V(5252) - ARP(488) = V(5195)*V(5256) - ARP(489) = V(5195) - ARP(490) = V(5195) - ARP(491) = V(5195) - ARP(492) = V(4995)*V(5255) - ARP(493) = V(4995)*V(5252) - ARP(494) = V(4995)*V(5252) - ARP(495) = V(4995)*V(5256) - ARP(496) = V(4995) - ARP(497) = V(4995) - ARP(498) = V(4995) - ARP(499) = V(5121)*V(5255) - ARP(500) = V(5121)*V(5256) - ARP(501) = V(5121) - ARP(502) = V(5121) - ARP(503) = V(5121) - ARP(504) = V(5121)*V(5252) - ARP(505) = V(5121)*V(5252) - ARP(506) = V(5202)*V(5255) - ARP(507) = V(5202)*V(5252) - ARP(508) = V(5202)*V(5252) - ARP(509) = V(5202)*V(5256) - ARP(510) = V(5202) - ARP(511) = V(5202) - ARP(512) = V(5202) - ARP(513) = V(4645)*V(5255) - ARP(514) = V(4645)*V(5252) - ARP(515) = V(4645)*V(5252) - ARP(516) = V(4645)*V(5256) - ARP(517) = V(4645) - ARP(518) = V(4645) - ARP(519) = V(4645) - ARP(520) = V(4870)*V(5255) - ARP(521) = V(4870)*V(5252) - ARP(522) = V(4870)*V(5252) - ARP(523) = V(4870)*V(5256) - ARP(524) = V(4870) - ARP(525) = V(4870) - ARP(526) = V(4870) - ARP(527) = V(5007)*V(5255) - ARP(528) = V(5007)*V(5252) - ARP(529) = V(5007)*V(5252) - ARP(530) = V(5007)*V(5256) - ARP(531) = V(5007) - ARP(532) = V(5007) - ARP(533) = V(5007) - ARP(534) = V(5060)*V(5255) - ARP(535) = V(5060)*V(5252) - ARP(536) = V(5060)*V(5252) - ARP(537) = V(5060)*V(5256) - ARP(538) = V(5060) - ARP(539) = V(5060) - ARP(540) = V(4411)*V(5255) - ARP(541) = V(4411)*V(5252) - ARP(542) = V(4411)*V(5252) - ARP(543) = V(4411)*V(5256) - ARP(544) = V(4411) - ARP(545) = V(4411) - ARP(546) = V(4411) - ARP(547) = V(5129)*V(5255) - ARP(548) = V(5129)*V(5252) - ARP(549) = V(5129)*V(5252) - ARP(550) = V(5129)*V(5256) - ARP(551) = V(5129) - ARP(552) = V(5129) - ARP(553) = V(5129) - ARP(554) = V(2465) - ARP(555) = V(5185)*V(5255) - ARP(556) = V(5185)*V(5252) - ARP(557) = V(5185)*V(5252) - ARP(558) = V(5185)*V(5256) - ARP(559) = V(5185) - ARP(560) = V(5185) - ARP(561) = V(5185) - ARP(562) = V(4767)*V(5255) - ARP(563) = V(4767)*V(5252) - ARP(564) = V(4767)*V(5252) - ARP(565) = V(4767)*V(5256) - ARP(566) = V(4767) - ARP(567) = V(4767) - ARP(568) = V(4767) - ARP(569) = V(5042) - ARP(570) = V(5042) - ARP(571) = V(5042)*V(5256) - ARP(572) = V(5042)*V(5250) - ARP(573) = V(4310)*V(5255) - ARP(574) = V(4310)*V(5252) - ARP(575) = V(4310)*V(5252) - ARP(576) = V(4310)*V(5256) - ARP(577) = V(4310) - ARP(578) = V(4310) - ARP(579) = V(4310) - ARP(580) = V(4837)*V(5255) - ARP(581) = V(4837)*V(5252) - ARP(582) = V(4837)*V(5252) - ARP(583) = V(4837)*V(5256) - ARP(584) = V(4837) - ARP(585) = V(4837) - ARP(586) = V(1573)*V(5256) - ARP(587) = V(1573)*V(5250) - ARP(588) = V(1573)*V(5250) - ARP(589) = V(4844)*V(5255) - ARP(590) = V(4844)*V(5252) - ARP(591) = V(4844)*V(5252) - ARP(592) = V(4844)*V(5256) - ARP(593) = V(4844) - ARP(594) = V(4844) - ARP(595) = V(4562)*V(5255) - ARP(596) = V(4562)*V(5252) - ARP(597) = V(4562)*V(5252) - ARP(598) = V(4562)*V(5256) - ARP(599) = V(4562) - ARP(600) = V(4562) - ARP(601) = V(4562) - ARP(602) = V(5148)*V(5255) - ARP(603) = V(5148)*V(5252) - ARP(604) = V(5148)*V(5252) - ARP(605) = V(5148)*V(5256) - ARP(606) = V(5148) - ARP(607) = V(5148) - ARP(608) = V(5148) - ARP(609) = V(4473)*V(5255) - ARP(610) = V(4473)*V(5252) - ARP(611) = V(4473)*V(5252) - ARP(612) = V(4473)*V(5256) - ARP(613) = V(4473) - ARP(614) = V(4473) - ARP(615) = V(4473) - ARP(616) = V(4959)*V(5255) - ARP(617) = V(4959)*V(5252) - ARP(618) = V(4959)*V(5252) - ARP(619) = V(4959)*V(5256) - ARP(620) = V(4959) - ARP(621) = V(4959) - ARP(622) = V(4959) - ARP(623) = V(5116)*V(5255) - ARP(624) = V(5116)*V(5252) - ARP(625) = V(5116)*V(5252) - ARP(626) = V(5116)*V(5256) - ARP(627) = V(5116) - ARP(628) = V(5116) - ARP(629) = V(5116) - ARP(630) = V(4647)*V(5255) - ARP(631) = V(4647)*V(5252) - ARP(632) = V(4647)*V(5252) - ARP(633) = V(4647)*V(5256) - ARP(634) = V(4647) - ARP(635) = V(4647) - ARP(636) = V(4814)*V(5255) - ARP(637) = V(4814)*V(5252) - ARP(638) = V(4814)*V(5252) - ARP(639) = V(4814)*V(5256) - ARP(640) = V(4814) - ARP(641) = V(4814) - ARP(642) = V(4814) - ARP(643) = V(4780)*V(5255) - ARP(644) = V(4780)*V(5252) - ARP(645) = V(4780)*V(5256) - ARP(646) = V(4780) - ARP(647) = V(4780) - ARP(648) = V(4780) - ARP(649) = V(4161)*V(5255) - ARP(650) = V(4161)*V(5252) - ARP(651) = V(4161)*V(5252) - ARP(652) = V(4161)*V(5256) - ARP(653) = V(4161) - ARP(654) = V(4161) - ARP(655) = V(4161) - ARP(656) = V(4698)*V(5255) - ARP(657) = V(4698)*V(5252) - ARP(658) = V(4698)*V(5256) - ARP(659) = V(4698) - ARP(660) = V(4698) - ARP(661) = V(4698) - ARP(662) = V(5244)*V(5255) - ARP(663) = V(5244)*V(5255) - ARP(664) = V(5244)*V(5255) - ARP(665) = V(5244)*V(5252) - ARP(666) = V(5244)*V(5253) - ARP(667) = V(5244)*V(5256) - ARP(668) = V(5244) - ARP(669) = V(5244) - ARP(670) = V(5234)*V(5256) - ARP(671) = V(5234)*V(5250) - ARP(672) = V(5234)*V(5250) - ARP(673) = V(5234) - ARP(674) = V(5188)*V(5250) - ARP(675) = V(5188) - ARP(676) = V(5087)*V(5256) - ARP(677) = V(5087)*V(5250) - ARP(678) = V(5087) - ARP(679) = V(4585)*V(5255) - ARP(680) = V(4585)*V(5252) - ARP(681) = V(4585)*V(5256) - ARP(682) = V(4585) - ARP(683) = V(4585) - ARP(684) = V(4585) - ARP(685) = V(4364)*V(5255) - ARP(686) = V(4364)*V(5252) - ARP(687) = V(4364)*V(5256) - ARP(688) = V(4364) - ARP(689) = V(4364) - ARP(690) = V(4364) - ARP(691) = V(1776) - ARP(692) = V(1776) - ARP(693) = V(1776) - ARP(694) = V(1776) - ARP(695) = V(5000)*V(5250) - ARP(696) = V(5000) - ARP(697) = V(4528) - ARP(698) = V(4528) - ARP(699) = V(4528) - ARP(700) = V(4596)*V(5255) - ARP(701) = V(4596)*V(5252) - ARP(702) = V(4596)*V(5252) - ARP(703) = V(4596)*V(5256) - ARP(704) = V(4596) - ARP(705) = V(4596) - ARP(706) = V(4596) - ARP(707) = V(4554)*V(5255) - ARP(708) = V(4554)*V(5252) - ARP(709) = V(4554)*V(5252) - ARP(710) = V(4554)*V(5256) - ARP(711) = V(4554) - ARP(712) = V(4554) - ARP(713) = V(4554) - ARP(714) = V(5228)*V(5255) - ARP(715) = V(5228)*V(5255) - ARP(716) = V(5228)*V(5252) - ARP(717) = V(5228)*V(5252) - ARP(718) = V(5228)*V(5253) - ARP(719) = V(5228)*V(5256) - ARP(720) = V(5228) - ARP(721) = V(5228) - ARP(722) = V(5228) - ARP(723) = V(5235)*V(5255) - ARP(724) = V(5235)*V(5252) - ARP(725) = V(5235)*V(5256) - ARP(726) = V(5235) - ARP(727) = V(5235) - ARP(728) = V(5235) - ARP(729) = V(5183)*V(5255) - ARP(730) = V(5183)*V(5255) - ARP(731) = V(5183)*V(5255) - ARP(732) = V(5183)*V(5252) - ARP(733) = V(5183)*V(5253) - ARP(734) = V(5183)*V(5256) - ARP(735) = V(5183) - ARP(736) = V(5183) - ARP(737) = V(5142)*V(5255) - ARP(738) = V(5142)*V(5252) - ARP(739) = V(5142)*V(5252) - ARP(740) = V(5142)*V(5256) - ARP(741) = V(5142) - ARP(742) = V(5142) - ARP(743) = V(5142) - ARP(744) = V(5125)*V(5255) - ARP(745) = V(5125)*V(5255) - ARP(746) = V(5125)*V(5255) - ARP(747) = V(5125)*V(5252) - ARP(748) = V(5125)*V(5253) - ARP(749) = V(5125)*V(5256) - ARP(750) = V(5125) - ARP(751) = V(5125) - ARP(752) = V(4705)*V(5255) - ARP(753) = V(4705)*V(5252) - ARP(754) = V(4705)*V(5252) - ARP(755) = V(4705)*V(5256) - ARP(756) = V(4705) - ARP(757) = V(4705) - ARP(758) = V(4705) - ARP(759) = V(5229)*V(5255) - ARP(760) = V(5229)*V(5252) - ARP(761) = V(5229)*V(5252) - ARP(762) = V(5229)*V(5256) - ARP(763) = V(5229) - ARP(764) = V(5229) - ARP(765) = V(5229) - ARP(766) = V(5106)*V(5255) - ARP(767) = V(5106)*V(5255) - ARP(768) = V(5106)*V(5255) - ARP(769) = V(5106)*V(5252) - ARP(770) = V(5106)*V(5253) - ARP(771) = V(5106)*V(5256) - ARP(772) = V(5106) - ARP(773) = V(5106) - ARP(774) = V(3847)*V(5255) - ARP(775) = V(3847)*V(5252) - ARP(776) = V(3847)*V(5252) - ARP(777) = V(3847)*V(5256) - ARP(778) = V(3847) - ARP(779) = V(3847) - ARP(780) = V(3847) - ARP(781) = V(4763)*V(5255) - ARP(782) = V(4763)*V(5252) - ARP(783) = V(4763)*V(5256) - ARP(784) = V(4763) - ARP(785) = V(4763) - ARP(786) = V(5145)*V(5255) - ARP(787) = V(5145)*V(5252) - ARP(788) = V(5145)*V(5252) - ARP(789) = V(5145)*V(5256) - ARP(790) = V(5145) - ARP(791) = V(5145) - ARP(792) = V(5145) - ARP(793) = V(4944)*V(5255) - ARP(794) = V(4944)*V(5255) - ARP(795) = V(4944)*V(5255) - ARP(796) = V(4944)*V(5252) - ARP(797) = V(4944)*V(5253) - ARP(798) = V(4944)*V(5256) - ARP(799) = V(4944) - ARP(800) = V(4944) - ARP(801) = V(3884)*V(5255) - ARP(802) = V(3884)*V(5252) - ARP(803) = V(3884)*V(5252) - ARP(804) = V(3884)*V(5256) - ARP(805) = V(3884) - ARP(806) = V(3884) - ARP(807) = V(3884) - ARP(808) = V(5208)*V(5255) - ARP(809) = V(5208)*V(5252) - ARP(810) = V(5208)*V(5252) - ARP(811) = V(5208)*V(5256) - ARP(812) = V(5208) - ARP(813) = V(5208) - ARP(814) = V(5208) - ARP(815) = V(4954)*V(5255) - ARP(816) = V(4954)*V(5255) - ARP(817) = V(4954)*V(5255) - ARP(818) = V(4954)*V(5252) - ARP(819) = V(4954)*V(5253) - ARP(820) = V(4954)*V(5256) - ARP(821) = V(4954) - ARP(822) = V(4954) - ARP(823) = V(4382)*V(5255) - ARP(824) = V(4382)*V(5252) - ARP(825) = V(4382)*V(5256) - ARP(826) = V(4382) - ARP(827) = V(4382) - ARP(828) = V(4382) - ARP(829) = V(4382) - ARP(830) = V(4932)*V(5255) - ARP(831) = V(4932)*V(5255) - ARP(832) = V(4932)*V(5252) - ARP(833) = V(4932)*V(5252) - ARP(834) = V(4932)*V(5256) - ARP(835) = V(4932) - ARP(836) = V(4932) - ARP(837) = V(4932) - ARP(838) = V(5233) - ARP(839) = V(5233) - ARP(840) = V(5233) - ARP(841) = V(5233)*V(5256) - ARP(842) = V(5233)*V(5250) - ARP(843) = V(2748) - ARP(844) = V(2748) - ARP(845) = V(2748) - ARP(846) = V(2748) - ARP(847) = V(3652) - ARP(848) = V(3652) - ARP(849) = V(5128)*V(5255) - ARP(850) = V(5128)*V(5255) - ARP(851) = V(5128)*V(5255) - ARP(852) = V(5128)*V(5252) - ARP(853) = V(5128)*V(5253) - ARP(854) = V(5128)*V(5256) - ARP(855) = V(5128) - ARP(856) = V(5128) - ARP(857) = V(763) - ARP(858) = V(763) - ARP(859) = V(5222) - ARP(860) = V(5222)*V(5256) - ARP(861) = V(5222)*V(5250) - ARP(862) = V(684) - ARP(863) = V(684) - ARP(864) = V(684) - ARP(865) = V(4936)*V(5255) - ARP(866) = V(4936)*V(5252) - ARP(867) = V(4936)*V(5252) - ARP(868) = V(4936)*V(5256) - ARP(869) = V(4936) - ARP(870) = V(4936) - ARP(871) = V(4936) - ARP(872) = V(4783)*V(5255) - ARP(873) = V(4783)*V(5252) - ARP(874) = V(4783)*V(5252) - ARP(875) = V(4783)*V(5256) - ARP(876) = V(4783) - ARP(877) = V(4783) - ARP(878) = V(4783) - ARP(879) = V(4428)*V(5255) - ARP(880) = V(4428)*V(5255) - ARP(881) = V(4428)*V(5255) - ARP(882) = V(4428)*V(5252) - ARP(883) = V(4428)*V(5253) - ARP(884) = V(4428)*V(5256) - ARP(885) = V(4428) - ARP(886) = V(4428) - ARP(887) = V(4923)*V(5255) - ARP(888) = V(4923)*V(5252) - ARP(889) = V(4923)*V(5256) - ARP(890) = V(4923) - ARP(891) = V(4923) - ARP(892) = V(4923) - ARP(893) = V(4922)*V(5255) - ARP(894) = V(4922)*V(5252) - ARP(895) = V(4922)*V(5256) - ARP(896) = V(4922) - ARP(897) = V(4922) - ARP(898) = V(4922) - ARP(899) = V(4333) - ARP(900) = V(4333) - ARP(901) = V(4333) - ARP(902) = V(4333) - ARP(903) = V(4695)*V(5255) - ARP(904) = V(4695)*V(5252) - ARP(905) = V(4695)*V(5252) - ARP(906) = V(4695)*V(5256) - ARP(907) = V(4695) - ARP(908) = V(4695) - ARP(909) = V(4695) - ARP(910) = V(4353)*V(5255) - ARP(911) = V(4353)*V(5252) - ARP(912) = V(4353)*V(5256) - ARP(913) = V(4353) - ARP(914) = V(4353) - ARP(915) = V(4353) - ARP(916) = V(5062)*V(5255) - ARP(917) = V(5062)*V(5252) - ARP(918) = V(5062)*V(5252) - ARP(919) = V(5062)*V(5256) - ARP(920) = V(5062) - ARP(921) = V(5062) - ARP(922) = V(5062) - ARP(923) = V(4755)*V(5255) - ARP(924) = V(4755)*V(5252) - ARP(925) = V(4755)*V(5252) - ARP(926) = V(4755)*V(5256) - ARP(927) = V(4755) - ARP(928) = V(4755) - ARP(929) = V(4755) - ARP(930) = V(4981)*V(5255) - ARP(931) = V(4981)*V(5252) - ARP(932) = V(4981)*V(5252) - ARP(933) = V(4981)*V(5256) - ARP(934) = V(4981) - ARP(935) = V(4981) - ARP(936) = V(5163)*V(5255) - ARP(937) = V(5163)*V(5252) - ARP(938) = V(5163)*V(5252) - ARP(939) = V(5163)*V(5256) - ARP(940) = V(5163) - ARP(941) = V(5163) - ARP(942) = V(5163) - ARP(943) = V(5192)*V(5255) - ARP(944) = V(5192)*V(5252) - ARP(945) = V(5192)*V(5252) - ARP(946) = V(5192)*V(5256) - ARP(947) = V(5192) - ARP(948) = V(5192) - ARP(949) = V(5192) - ARP(950) = V(4876)*V(5255) - ARP(951) = V(4876)*V(5252) - ARP(952) = V(4876)*V(5252) - ARP(953) = V(4876)*V(5256) - ARP(954) = V(4876) - ARP(955) = V(4876) - ARP(956) = V(4876) - ARP(957) = V(5147)*V(5255) - ARP(958) = V(5147)*V(5252) - ARP(959) = V(5147)*V(5252) - ARP(960) = V(5147)*V(5256) - ARP(961) = V(5147) - ARP(962) = V(5147) - ARP(963) = V(5147) - ARP(964) = V(4901)*V(5255) - ARP(965) = V(4901)*V(5252) - ARP(966) = V(4901)*V(5252) - ARP(967) = V(4901)*V(5256) - ARP(968) = V(4901) - ARP(969) = V(4901) - ARP(970) = V(4901) - ARP(971) = V(5078)*V(5255) - ARP(972) = V(5078)*V(5252) - ARP(973) = V(5078)*V(5252) - ARP(974) = V(5078)*V(5256) - ARP(975) = V(5078) - ARP(976) = V(5078) - ARP(977) = V(4980)*V(5255) - ARP(978) = V(4980)*V(5252) - ARP(979) = V(4980)*V(5252) - ARP(980) = V(4980)*V(5256) - ARP(981) = V(4980) - ARP(982) = V(4980) - ARP(983) = V(4980) - ARP(984) = V(4942)*V(5255) - ARP(985) = V(4942)*V(5252) - ARP(986) = V(4942)*V(5252) - ARP(987) = V(4942)*V(5256) - ARP(988) = V(4942) - ARP(989) = V(4942) - ARP(990) = V(4942) - ARP(991) = V(5109)*V(5255) - ARP(992) = V(5109)*V(5252) - ARP(993) = V(5109)*V(5252) - ARP(994) = V(5109)*V(5256) - ARP(995) = V(5109) - ARP(996) = V(5109) - ARP(997) = V(5109) - ARP(998) = V(5186)*V(5255) - ARP(999) = V(5186)*V(5252) - ARP(1000) = V(5186)*V(5252) - ARP(1001) = V(5186)*V(5256) - ARP(1002) = V(5186) - ARP(1003) = V(5186) - ARP(1004) = V(5186) - ARP(1005) = V(4733)*V(5255) - ARP(1006) = V(4733)*V(5252) - ARP(1007) = V(4733)*V(5252) - ARP(1008) = V(4733)*V(5256) - ARP(1009) = V(4733) - ARP(1010) = V(4733) - ARP(1011) = V(4733) - ARP(1012) = V(4974)*V(5255) - ARP(1013) = V(4974)*V(5252) - ARP(1014) = V(4974)*V(5252) - ARP(1015) = V(4974)*V(5256) - ARP(1016) = V(4974) - ARP(1017) = V(4974) - ARP(1018) = V(4974) - ARP(1019) = V(4571)*V(5255) - ARP(1020) = V(4571)*V(5252) - ARP(1021) = V(4571)*V(5252) - ARP(1022) = V(4571)*V(5256) - ARP(1023) = V(4571) - ARP(1024) = V(4571) - ARP(1025) = V(4571) - ARP(1026) = V(5056)*V(5255) - ARP(1027) = V(5056)*V(5252) - ARP(1028) = V(5056)*V(5252) - ARP(1029) = V(5056)*V(5256) - ARP(1030) = V(5056) - ARP(1031) = V(5056) - ARP(1032) = V(4696)*V(5255) - ARP(1033) = V(4696)*V(5252) - ARP(1034) = V(4696)*V(5252) - ARP(1035) = V(4696)*V(5256) - ARP(1036) = V(4696) - ARP(1037) = V(4696) - ARP(1038) = V(4696) - ARP(1039) = V(5061)*V(5255) - ARP(1040) = V(5061)*V(5252) - ARP(1041) = V(5061)*V(5252) - ARP(1042) = V(5061)*V(5256) - ARP(1043) = V(5061) - ARP(1044) = V(5061) - ARP(1045) = V(5061) - ARP(1046) = V(4121)*V(5255) - ARP(1047) = V(4121)*V(5252) - ARP(1048) = V(4121)*V(5252) - ARP(1049) = V(4121)*V(5256) - ARP(1050) = V(4121) - ARP(1051) = V(4121) - ARP(1052) = V(5045)*V(5255) - ARP(1053) = V(5045)*V(5252) - ARP(1054) = V(5045)*V(5252) - ARP(1055) = V(5045)*V(5256) - ARP(1056) = V(5045) - ARP(1057) = V(5045) - ARP(1058) = V(5045) - ARP(1059) = V(5082)*V(5255) - ARP(1060) = V(5082)*V(5252) - ARP(1061) = V(5082)*V(5252) - ARP(1062) = V(5082)*V(5256) - ARP(1063) = V(5082) - ARP(1064) = V(5082) - ARP(1065) = V(5082) - ARP(1066) = V(5077)*V(5255) - ARP(1067) = V(5077)*V(5252) - ARP(1068) = V(5077)*V(5252) - ARP(1069) = V(5077)*V(5256) - ARP(1070) = V(5077) - ARP(1071) = V(5077) - ARP(1072) = V(5077) - ARP(1073) = V(3894)*V(5255) - ARP(1074) = V(3894)*V(5252) - ARP(1075) = V(3894)*V(5252) - ARP(1076) = V(3894)*V(5256) - ARP(1077) = V(3894) - ARP(1078) = V(3894) - ARP(1079) = V(4886)*V(5255) - ARP(1080) = V(4886)*V(5252) - ARP(1081) = V(4886)*V(5252) - ARP(1082) = V(4886)*V(5256) - ARP(1083) = V(4886) - ARP(1084) = V(4886) - ARP(1085) = V(4886) - ARP(1086) = V(4766)*V(5255) - ARP(1087) = V(4766)*V(5252) - ARP(1088) = V(4766)*V(5252) - ARP(1089) = V(4766)*V(5256) - ARP(1090) = V(4766) - ARP(1091) = V(4766) - ARP(1092) = V(4766) - ARP(1093) = V(5146)*V(5255) - ARP(1094) = V(5146)*V(5252) - ARP(1095) = V(5146)*V(5252) - ARP(1096) = V(5146)*V(5256) - ARP(1097) = V(5146) - ARP(1098) = V(5146) - ARP(1099) = V(5146) - ARP(1100) = V(4099)*V(5255) - ARP(1101) = V(4099)*V(5252) - ARP(1102) = V(4099)*V(5252) - ARP(1103) = V(4099)*V(5256) - ARP(1104) = V(4099) - ARP(1105) = V(4099) - ARP(1106) = V(4586)*V(5255) - ARP(1107) = V(4586)*V(5252) - ARP(1108) = V(4586)*V(5252) - ARP(1109) = V(4586)*V(5256) - ARP(1110) = V(4586) - ARP(1111) = V(4586) - ARP(1112) = V(4586) - ARP(1113) = V(4878)*V(5255) - ARP(1114) = V(4878)*V(5252) - ARP(1115) = V(4878)*V(5252) - ARP(1116) = V(4878)*V(5256) - ARP(1117) = V(4878) - ARP(1118) = V(4878) - ARP(1119) = V(5144)*V(5255) - ARP(1120) = V(5144)*V(5252) - ARP(1121) = V(5144)*V(5252) - ARP(1122) = V(5144)*V(5256) - ARP(1123) = V(5144) - ARP(1124) = V(5144) - ARP(1125) = V(5144) - ARP(1126) = V(5112)*V(5255) - ARP(1127) = V(5112)*V(5252) - ARP(1128) = V(5112)*V(5252) - ARP(1129) = V(5112)*V(5256) - ARP(1130) = V(5112) - ARP(1131) = V(5112) - ARP(1132) = V(5112) - ARP(1133) = V(5107)*V(5255) - ARP(1134) = V(5107)*V(5252) - ARP(1135) = V(5107)*V(5252) - ARP(1136) = V(5107)*V(5256) - ARP(1137) = V(5107) - ARP(1138) = V(5107) - ARP(1139) = V(5107) - ARP(1140) = V(5138)*V(5255) - ARP(1141) = V(5138)*V(5252) - ARP(1142) = V(5138)*V(5252) - ARP(1143) = V(5138)*V(5256) - ARP(1144) = V(5138) - ARP(1145) = V(5138) - ARP(1146) = V(5138) - ARP(1147) = V(5065)*V(5255) - ARP(1148) = V(5065)*V(5252) - ARP(1149) = V(5065)*V(5252) - ARP(1150) = V(5065)*V(5256) - ARP(1151) = V(5065) - ARP(1152) = V(5065) - ARP(1153) = V(5065) - ARP(1154) = V(5181)*V(5255) - ARP(1155) = V(5181)*V(5252) - ARP(1156) = V(5181)*V(5252) - ARP(1157) = V(5181)*V(5256) - ARP(1158) = V(5181) - ARP(1159) = V(5181) - ARP(1160) = V(5181) - ARP(1161) = V(4171)*V(5255) - ARP(1162) = V(4171)*V(5252) - ARP(1163) = V(4171)*V(5256) - ARP(1164) = V(4171) - ARP(1165) = V(4171) - ARP(1166) = V(4171) - ARP(1167) = V(2038) - ARP(1168) = V(2038) - ARP(1169) = V(2038) - ARP(1170) = V(4351)*V(5255) - ARP(1171) = V(4351)*V(5252) - ARP(1172) = V(4351)*V(5256) - ARP(1173) = V(4351) - ARP(1174) = V(4351) - ARP(1175) = V(4351) - ARP(1176) = V(4370)*V(5255) - ARP(1177) = V(4370)*V(5252) - ARP(1178) = V(4370)*V(5256) - ARP(1179) = V(4370) - ARP(1180) = V(4370) - ARP(1181) = V(4370) - ARP(1182) = V(2286) - ARP(1183) = V(2286) - ARP(1184) = V(2286) - ARP(1185) = V(2286) - ARP(1186) = V(4579)*V(5255) - ARP(1187) = V(4579)*V(5252) - ARP(1188) = V(4579)*V(5256) - ARP(1189) = V(4579) - ARP(1190) = V(4579) - ARP(1191) = V(4579) - ARP(1192) = V(4574)*V(5255) - ARP(1193) = V(4574)*V(5252) - ARP(1194) = V(4574)*V(5256) - ARP(1195) = V(4574) - ARP(1196) = V(4574) - ARP(1197) = V(4574) - ARP(1198) = V(2013) - ARP(1199) = V(2013) - ARP(1200) = V(2013) - ARP(1201) = V(2013) - ARP(1202) = V(5149)*V(5255) - ARP(1203) = V(5149)*V(5252) - ARP(1204) = V(5149)*V(5252) - ARP(1205) = V(5149)*V(5256) - ARP(1206) = V(5149) - ARP(1207) = V(5149) - ARP(1208) = V(5149) - ARP(1209) = V(4387)*V(5255) - ARP(1210) = V(4387)*V(5252) - ARP(1211) = V(4387)*V(5256) - ARP(1212) = V(4387) - ARP(1213) = V(4387) - ARP(1214) = V(4387) - ARP(1215) = V(4112)*V(5255) - ARP(1216) = V(4112)*V(5252) - ARP(1217) = V(4112)*V(5256) - ARP(1218) = V(4112) - ARP(1219) = V(4112) - ARP(1220) = V(4809)*V(5255) - ARP(1221) = V(4809)*V(5252) - ARP(1222) = V(4809)*V(5256) - ARP(1223) = V(4809) - ARP(1224) = V(4809) - ARP(1225) = V(4809) - ARP(1226) = V(3479) - ARP(1227) = V(3479) - ARP(1228) = V(327) - ARP(1229) = V(327) - ARP(1230) = V(4593)*V(5255) - ARP(1231) = V(4593)*V(5252) - ARP(1232) = V(4593)*V(5256) - ARP(1233) = V(4593) - ARP(1234) = V(4593) - ARP(1235) = V(4593) - ARP(1236) = V(4972)*V(5255) - ARP(1237) = V(4972)*V(5252) - ARP(1238) = V(4972)*V(5256) - ARP(1239) = V(4972) - ARP(1240) = V(4972) - ARP(1241) = V(4972) - ARP(1242) = V(2042) - ARP(1243) = V(2042) - ARP(1244) = V(2042) - ARP(1245) = V(2042) - ARP(1246) = V(4598)*V(5255) - ARP(1247) = V(4598)*V(5252) - ARP(1248) = V(4598)*V(5252) - ARP(1249) = V(4598)*V(5256) - ARP(1250) = V(4598) - ARP(1251) = V(4598) - ARP(1252) = V(4598) - ARP(1253) = V(5096)*V(5255) - ARP(1254) = V(5096)*V(5252) - ARP(1255) = V(5096)*V(5252) - ARP(1256) = V(5096)*V(5256) - ARP(1257) = V(5096) - ARP(1258) = V(5096) - ARP(1259) = V(5096) - ARP(1260) = V(4714)*V(5255) - ARP(1261) = V(4714)*V(5252) - ARP(1262) = V(4714)*V(5256) - ARP(1263) = V(4714) - ARP(1264) = V(4714) - ARP(1265) = V(4714) - ARP(1266) = V(4782)*V(5255) - ARP(1267) = V(4782)*V(5252) - ARP(1268) = V(4782)*V(5256) - ARP(1269) = V(4782) - ARP(1270) = V(4782) - ARP(1271) = V(4782) - ARP(1272) = V(3297) - ARP(1273) = V(3297) - ARP(1274) = V(3297) - ARP(1275) = V(3297) - ARP(1276) = V(4476)*V(5255) - ARP(1277) = V(4476)*V(5252) - ARP(1278) = V(4476)*V(5252) - ARP(1279) = V(4476)*V(5256) - ARP(1280) = V(4476) - ARP(1281) = V(4476) - ARP(1282) = V(4476) - ARP(1283) = V(4777)*V(5255) - ARP(1284) = V(4777)*V(5252) - ARP(1285) = V(4777)*V(5256) - ARP(1286) = V(4777) - ARP(1287) = V(4777) - ARP(1288) = V(4777) - ARP(1289) = V(4143)*V(5255) - ARP(1290) = V(4143)*V(5252) - ARP(1291) = V(4143)*V(5256) - ARP(1292) = V(4143) - ARP(1293) = V(4143) - ARP(1294) = V(477) - ARP(1295) = V(477) - ARP(1296) = V(4700)*V(5255) - ARP(1297) = V(4700)*V(5252) - ARP(1298) = V(4700)*V(5256) - ARP(1299) = V(4700) - ARP(1300) = V(4700) - ARP(1301) = V(4700) - ARP(1302) = V(4881)*V(5255) - ARP(1303) = V(4881)*V(5252) - ARP(1304) = V(4881)*V(5256) - ARP(1305) = V(4881) - ARP(1306) = V(4881) - ARP(1307) = V(4881) - ARP(1308) = V(2212) - ARP(1309) = V(2212) - ARP(1310) = V(2212) - ARP(1311) = V(2212) - ARP(1312) = V(5043)*V(5255) - ARP(1313) = V(5043)*V(5252) - ARP(1314) = V(5043)*V(5252) - ARP(1315) = V(5043)*V(5256) - ARP(1316) = V(5043) - ARP(1317) = V(5043) - ARP(1318) = V(5043) - ARP(1319) = V(4723)*V(5255) - ARP(1320) = V(4723)*V(5252) - ARP(1321) = V(4723)*V(5256) - ARP(1322) = V(4723) - ARP(1323) = V(4723) - ARP(1324) = V(4723) - ARP(1325) = V(4140)*V(5255) - ARP(1326) = V(4140)*V(5252) - ARP(1327) = V(4140)*V(5256) - ARP(1328) = V(4140) - ARP(1329) = V(4140) - ARP(1330) = V(239) - ARP(1331) = V(239) - ARP(1332) = V(766) - ARP(1333) = V(766) - ARP(1334) = V(4879)*V(5255) - ARP(1335) = V(4879)*V(5252) - ARP(1336) = V(4879)*V(5256) - ARP(1337) = V(4879) - ARP(1338) = V(4879) - ARP(1339) = V(4879) - ARP(1340) = V(4587)*V(5255) - ARP(1341) = V(4587)*V(5252) - ARP(1342) = V(4587)*V(5256) - ARP(1343) = V(4587) - ARP(1344) = V(4587) - ARP(1345) = V(4587) - ARP(1346) = V(2487) - ARP(1347) = V(2487) - ARP(1348) = V(2487) - ARP(1349) = V(2487) - ARP(1350) = V(4582)*V(5255) - ARP(1351) = V(4582)*V(5252) - ARP(1352) = V(4582)*V(5252) - ARP(1353) = V(4582)*V(5256) - ARP(1354) = V(4582) - ARP(1355) = V(4582) - ARP(1356) = V(4582) - ARP(1357) = V(5135)*V(5255) - ARP(1358) = V(5135)*V(5252) - ARP(1359) = V(5135)*V(5252) - ARP(1360) = V(5135)*V(5256) - ARP(1361) = V(5135) - ARP(1362) = V(5135) - ARP(1363) = V(5135) - ARP(1364) = V(4884)*V(5255) - ARP(1365) = V(4884)*V(5252) - ARP(1366) = V(4884)*V(5256) - ARP(1367) = V(4884) - ARP(1368) = V(4884) - ARP(1369) = V(4884) - ARP(1370) = V(4702)*V(5255) - ARP(1371) = V(4702)*V(5252) - ARP(1372) = V(4702)*V(5256) - ARP(1373) = V(4702) - ARP(1374) = V(4702) - ARP(1375) = V(4702) - ARP(1376) = V(3202) - ARP(1377) = V(3202) - ARP(1378) = V(3202) - ARP(1379) = V(3202) - ARP(1380) = V(4607)*V(5255) - ARP(1381) = V(4607)*V(5252) - ARP(1382) = V(4607)*V(5252) - ARP(1383) = V(4607)*V(5256) - ARP(1384) = V(4607) - ARP(1385) = V(4607) - ARP(1386) = V(4607) - ARP(1387) = V(4608)*V(5255) - ARP(1388) = V(4608)*V(5252) - ARP(1389) = V(4608)*V(5252) - ARP(1390) = V(4608)*V(5256) - ARP(1391) = V(4608) - ARP(1392) = V(4608) - ARP(1393) = V(4608) - ARP(1394) = V(3671)*V(5255) - ARP(1395) = V(3671)*V(5252) - ARP(1396) = V(3671)*V(5256) - ARP(1397) = V(3671) - ARP(1398) = V(3671) - ARP(1399) = V(37) - ARP(1400) = V(3721)*V(5255) - ARP(1401) = V(3721)*V(5252) - ARP(1402) = V(3721)*V(5252) - ARP(1403) = V(3721)*V(5256) - ARP(1404) = V(3721) - ARP(1405) = V(3721) - ARP(1406) = V(680)*V(5250) - ARP(1407) = V(4399)*V(5255) - ARP(1408) = V(4399)*V(5252) - ARP(1409) = V(4399)*V(5252) - ARP(1410) = V(4399)*V(5256) - ARP(1411) = V(4399) - ARP(1412) = V(4399) - ARP(1413) = V(4399) - ARP(1414) = V(4396)*V(5256) - ARP(1415) = V(4396)*V(5258) - ARP(1416) = V(4396)*V(5250) - ARP(1417) = V(4396)*V(5250) - ARP(1418) = V(4396) - ARP(1419) = V(4396) - ARP(1420) = V(4397)*V(5256) - ARP(1421) = V(4397)*V(5256) - ARP(1422) = V(4397)*V(5250) - ARP(1423) = V(4397)*V(5250) - ARP(1424) = V(4397)*V(5250) - ARP(1425) = V(3776)*V(5255) - ARP(1426) = V(3776)*V(5252) - ARP(1427) = V(3776)*V(5252) - ARP(1428) = V(3776)*V(5256) - ARP(1429) = V(3776) - ARP(1430) = V(3776) - ARP(1431) = V(3776) - ARP(1432) = V(3157)*V(5256) - ARP(1433) = V(3157)*V(5256) - ARP(1434) = V(3157)*V(5256) - ARP(1435) = V(3157)*V(5250) - ARP(1436) = V(3157)*V(5250) - ARP(1437) = V(3157)*V(5250) - ARP(1438) = V(3823)*V(5255) - ARP(1439) = V(3823)*V(5252) - ARP(1440) = V(3823)*V(5252) - ARP(1441) = V(3823)*V(5256) - ARP(1442) = V(3823) - ARP(1443) = V(3823) - ARP(1444) = V(3823) - ARP(1445) = V(4010)*V(5256) - ARP(1446) = V(4010)*V(5258) - ARP(1447) = V(4010)*V(5250) - ARP(1448) = V(4010)*V(5250) - ARP(1449) = V(4010) - ARP(1450) = V(4010) - ARP(1451) = V(3523)*V(5255) - ARP(1452) = V(3523)*V(5252) - ARP(1453) = V(3523)*V(5252) - ARP(1454) = V(3523)*V(5256) - ARP(1455) = V(3523) - ARP(1456) = V(3523) - ARP(1457) = V(3523) - ARP(1458) = V(4028)*V(5255) - ARP(1459) = V(4028)*V(5252) - ARP(1460) = V(4028)*V(5252) - ARP(1461) = V(4028)*V(5256) - ARP(1462) = V(4028) - ARP(1463) = V(4028) - ARP(1464) = V(3834)*V(5256) - ARP(1465) = V(3834)*V(5258) - ARP(1466) = V(3834)*V(5250) - ARP(1467) = V(3834)*V(5250) - ARP(1468) = V(3834) - ARP(1469) = V(3834) - ARP(1470) = V(3158)*V(5256) - ARP(1471) = V(3158)*V(5256) - ARP(1472) = V(3158)*V(5256) - ARP(1473) = V(3158)*V(5250) - ARP(1474) = V(3158)*V(5250) - ARP(1475) = V(3158)*V(5250) - ARP(1476) = V(3509)*V(5255) - ARP(1477) = V(3509)*V(5252) - ARP(1478) = V(3509)*V(5252) - ARP(1479) = V(3509)*V(5256) - ARP(1480) = V(3509) - ARP(1481) = V(3509) - ARP(1482) = V(3509) - ARP(1483) = V(4003)*V(5255) - ARP(1484) = V(4003)*V(5252) - ARP(1485) = V(4003)*V(5252) - ARP(1486) = V(4003)*V(5256) - ARP(1487) = V(4003) - ARP(1488) = V(4003) - ARP(1489) = V(4003) - ARP(1490) = V(4056)*V(5256) - ARP(1491) = V(4056)*V(5258) - ARP(1492) = V(4056)*V(5250) - ARP(1493) = V(4056)*V(5250) - ARP(1494) = V(4056) - ARP(1495) = V(4056) - ARP(1496) = V(3131)*V(5256) - ARP(1497) = V(3131)*V(5256) - ARP(1498) = V(3131)*V(5256) - ARP(1499) = V(3131)*V(5250) - ARP(1500) = V(3131)*V(5250) - ARP(1501) = V(3131)*V(5250) - ARP(1502) = V(3507)*V(5255) - ARP(1503) = V(3507)*V(5252) - ARP(1504) = V(3507)*V(5252) - ARP(1505) = V(3507)*V(5256) - ARP(1506) = V(3507) - ARP(1507) = V(3507) - ARP(1508) = V(3507) - ARP(1509) = V(4529)*V(5255) - ARP(1510) = V(4529)*V(5252) - ARP(1511) = V(4529)*V(5252) - ARP(1512) = V(4529)*V(5256) - ARP(1513) = V(4529) - ARP(1514) = V(4529) - ARP(1515) = V(4083)*V(5256) - ARP(1516) = V(4083)*V(5258) - ARP(1517) = V(4083)*V(5250) - ARP(1518) = V(4083)*V(5250) - ARP(1519) = V(4083) - ARP(1520) = V(4083) - ARP(1521) = V(3135)*V(5256) - ARP(1522) = V(3135)*V(5256) - ARP(1523) = V(3135)*V(5256) - ARP(1524) = V(3135)*V(5250) - ARP(1525) = V(3135)*V(5250) - ARP(1526) = V(3135)*V(5250) - ARP(1527) = V(3481)*V(5255) - ARP(1528) = V(3481)*V(5252) - ARP(1529) = V(3481)*V(5252) - ARP(1530) = V(3481)*V(5256) - ARP(1531) = V(3481) - ARP(1532) = V(3481) - ARP(1533) = V(3481) - ARP(1534) = V(3136)*V(5256) - ARP(1535) = V(3136)*V(5256) - ARP(1536) = V(3136)*V(5256) - ARP(1537) = V(3136)*V(5250) - ARP(1538) = V(3136)*V(5250) - ARP(1539) = V(3136)*V(5250) - ARP(1540) = V(3811)*V(5255) - ARP(1541) = V(3811)*V(5252) - ARP(1542) = V(3811)*V(5252) - ARP(1543) = V(3811)*V(5256) - ARP(1544) = V(3811) - ARP(1545) = V(3811) - ARP(1546) = V(3811) - ARP(1547) = V(4032)*V(5256) - ARP(1548) = V(4032)*V(5258) - ARP(1549) = V(4032)*V(5250) - ARP(1550) = V(4032)*V(5250) - ARP(1551) = V(4032) - ARP(1552) = V(4032) - ARP(1553) = V(3807)*V(5255) - ARP(1554) = V(3807)*V(5252) - ARP(1555) = V(3807)*V(5252) - ARP(1556) = V(3807)*V(5256) - ARP(1557) = V(3807) - ARP(1558) = V(3807) - ARP(1559) = V(3807) - ARP(1560) = V(3149)*V(5256) - ARP(1561) = V(3149)*V(5256) - ARP(1562) = V(3149)*V(5256) - ARP(1563) = V(3149)*V(5250) - ARP(1564) = V(3149)*V(5250) - ARP(1565) = V(3149)*V(5250) - ARP(1566) = V(3804)*V(5255) - ARP(1567) = V(3804)*V(5252) - ARP(1568) = V(3804)*V(5252) - ARP(1569) = V(3804)*V(5256) - ARP(1570) = V(3804) - ARP(1571) = V(3804) - ARP(1572) = V(3804) - ARP(1573) = V(4094)*V(5256) - ARP(1574) = V(4094)*V(5258) - ARP(1575) = V(4094)*V(5250) - ARP(1576) = V(4094)*V(5250) - ARP(1577) = V(4094) - ARP(1578) = V(4094) - ARP(1579) = V(4068)*V(5255) - ARP(1580) = V(4068)*V(5252) - ARP(1581) = V(4068)*V(5252) - ARP(1582) = V(4068)*V(5256) - ARP(1583) = V(4068) - ARP(1584) = V(4068) - ARP(1585) = V(3172)*V(5256) - ARP(1586) = V(3172)*V(5256) - ARP(1587) = V(3172)*V(5256) - ARP(1588) = V(3172)*V(5250) - ARP(1589) = V(3172)*V(5250) - ARP(1590) = V(3172)*V(5250) - ARP(1591) = V(3794)*V(5255) - ARP(1592) = V(3794)*V(5252) - ARP(1593) = V(3794)*V(5252) - ARP(1594) = V(3794)*V(5256) - ARP(1595) = V(3794) - ARP(1596) = V(3794) - ARP(1597) = V(3794) - ARP(1598) = V(4093)*V(5256) - ARP(1599) = V(4093)*V(5258) - ARP(1600) = V(4093)*V(5250) - ARP(1601) = V(4093)*V(5250) - ARP(1602) = V(4093) - ARP(1603) = V(4093) - ARP(1604) = V(3521)*V(5255) - ARP(1605) = V(3521)*V(5252) - ARP(1606) = V(3521)*V(5252) - ARP(1607) = V(3521)*V(5256) - ARP(1608) = V(3521) - ARP(1609) = V(3521) - ARP(1610) = V(3521) - ARP(1611) = V(3180)*V(5256) - ARP(1612) = V(3180)*V(5256) - ARP(1613) = V(3180)*V(5256) - ARP(1614) = V(3180)*V(5250) - ARP(1615) = V(3180)*V(5250) - ARP(1616) = V(3180)*V(5250) - ARP(1617) = V(3803)*V(5255) - ARP(1618) = V(3803)*V(5252) - ARP(1619) = V(3803)*V(5252) - ARP(1620) = V(3803)*V(5256) - ARP(1621) = V(3803) - ARP(1622) = V(3803) - ARP(1623) = V(3803) - ARP(1624) = V(3622)*V(5258) - ARP(1625) = V(3622)*V(5250) - ARP(1626) = V(3622) - ARP(1627) = V(3622) - ARP(1628) = V(3525)*V(5255) - ARP(1629) = V(3525)*V(5252) - ARP(1630) = V(3525)*V(5252) - ARP(1631) = V(3525)*V(5256) - ARP(1632) = V(3525) - ARP(1633) = V(3525) - ARP(1634) = V(3525) - ARP(1635) = V(4133)*V(5255) - ARP(1636) = V(4133)*V(5252) - ARP(1637) = V(4133)*V(5252) - ARP(1638) = V(4133)*V(5256) - ARP(1639) = V(4133) - ARP(1640) = V(4133) - ARP(1641) = V(3139)*V(5256) - ARP(1642) = V(3139)*V(5256) - ARP(1643) = V(3139)*V(5256) - ARP(1644) = V(3139)*V(5250) - ARP(1645) = V(3139)*V(5250) - ARP(1646) = V(3139)*V(5250) - ARP(1647) = V(4027)*V(5256) - ARP(1648) = V(4027)*V(5258) - ARP(1649) = V(4027)*V(5250) - ARP(1650) = V(4027)*V(5250) - ARP(1651) = V(4027) - ARP(1652) = V(4027) - ARP(1653) = V(3492)*V(5255) - ARP(1654) = V(3492)*V(5252) - ARP(1655) = V(3492)*V(5252) - ARP(1656) = V(3492)*V(5256) - ARP(1657) = V(3492) - ARP(1658) = V(3492) - ARP(1659) = V(3492) - ARP(1660) = V(4055)*V(5255) - ARP(1661) = V(4055)*V(5252) - ARP(1662) = V(4055)*V(5252) - ARP(1663) = V(4055)*V(5256) - ARP(1664) = V(4055) - ARP(1665) = V(4055) - ARP(1666) = V(4055) - ARP(1667) = V(3263)*V(5256) - ARP(1668) = V(3263)*V(5256) - ARP(1669) = V(3263)*V(5250) - ARP(1670) = V(3263)*V(5250) - ARP(1671) = V(3996)*V(5256) - ARP(1672) = V(3996)*V(5258) - ARP(1673) = V(3996)*V(5250) - ARP(1674) = V(3996)*V(5250) - ARP(1675) = V(3996) - ARP(1676) = V(3996) - ARP(1677) = V(3797)*V(5255) - ARP(1678) = V(3797)*V(5252) - ARP(1679) = V(3797)*V(5252) - ARP(1680) = V(3797)*V(5256) - ARP(1681) = V(3797) - ARP(1682) = V(3797) - ARP(1683) = V(3797) - ARP(1684) = V(4074)*V(5255) - ARP(1685) = V(4074)*V(5252) - ARP(1686) = V(4074)*V(5252) - ARP(1687) = V(4074)*V(5256) - ARP(1688) = V(4074) - ARP(1689) = V(4074) - ARP(1690) = V(3833)*V(5256) - ARP(1691) = V(3833)*V(5258) - ARP(1692) = V(3833)*V(5250) - ARP(1693) = V(3833)*V(5250) - ARP(1694) = V(3833) - ARP(1695) = V(3833) - ARP(1696) = V(3193)*V(5256) - ARP(1697) = V(3193)*V(5256) - ARP(1698) = V(3193)*V(5256) - ARP(1699) = V(3193)*V(5250) - ARP(1700) = V(3193)*V(5250) - ARP(1701) = V(3193)*V(5250) - ARP(1702) = V(3798)*V(5255) - ARP(1703) = V(3798)*V(5252) - ARP(1704) = V(3798)*V(5252) - ARP(1705) = V(3798)*V(5256) - ARP(1706) = V(3798) - ARP(1707) = V(3798) - ARP(1708) = V(3798) - ARP(1709) = V(4080)*V(5256) - ARP(1710) = V(4080)*V(5258) - ARP(1711) = V(4080)*V(5250) - ARP(1712) = V(4080)*V(5250) - ARP(1713) = V(4080) - ARP(1714) = V(4080) - ARP(1715) = V(3164)*V(5256) - ARP(1716) = V(3164)*V(5256) - ARP(1717) = V(3164)*V(5256) - ARP(1718) = V(3164)*V(5250) - ARP(1719) = V(3164)*V(5250) - ARP(1720) = V(3164)*V(5250) - ARP(1721) = V(3527)*V(5255) - ARP(1722) = V(3527)*V(5252) - ARP(1723) = V(3527)*V(5252) - ARP(1724) = V(3527)*V(5256) - ARP(1725) = V(3527) - ARP(1726) = V(3527) - ARP(1727) = V(4272)*V(5256) - ARP(1728) = V(4272)*V(5258) - ARP(1729) = V(4272)*V(5250) - ARP(1730) = V(4272)*V(5250) - ARP(1731) = V(4272) - ARP(1732) = V(4272) - ARP(1733) = V(3130)*V(5256) - ARP(1734) = V(3130)*V(5256) - ARP(1735) = V(3130)*V(5256) - ARP(1736) = V(3130)*V(5250) - ARP(1737) = V(3130)*V(5250) - ARP(1738) = V(3130)*V(5250) - ARP(1739) = V(3819)*V(5255) - ARP(1740) = V(3819)*V(5252) - ARP(1741) = V(3819)*V(5252) - ARP(1742) = V(3819)*V(5256) - ARP(1743) = V(3819) - ARP(1744) = V(3819) - ARP(1745) = V(3819) - ARP(1746) = V(3817)*V(5255) - ARP(1747) = V(3817)*V(5252) - ARP(1748) = V(3817)*V(5252) - ARP(1749) = V(3817)*V(5256) - ARP(1750) = V(3817) - ARP(1751) = V(3817) - ARP(1752) = V(3817) - ARP(1753) = V(4018)*V(5256) - ARP(1754) = V(4018)*V(5258) - ARP(1755) = V(4018)*V(5250) - ARP(1756) = V(4018)*V(5250) - ARP(1757) = V(4018) - ARP(1758) = V(4018) - ARP(1759) = V(3244)*V(5256) - ARP(1760) = V(3244)*V(5256) - ARP(1761) = V(3244)*V(5250) - ARP(1762) = V(3244)*V(5250) - ARP(1763) = V(3790)*V(5255) - ARP(1764) = V(3790)*V(5252) - ARP(1765) = V(3790)*V(5252) - ARP(1766) = V(3790)*V(5256) - ARP(1767) = V(3790) - ARP(1768) = V(3790) - ARP(1769) = V(3790) - ARP(1770) = V(3219)*V(5256) - ARP(1771) = V(3219)*V(5256) - ARP(1772) = V(3219)*V(5250) - ARP(1773) = V(3219)*V(5250) - ARP(1774) = V(4167)*V(5255) - ARP(1775) = V(4167)*V(5252) - ARP(1776) = V(4167)*V(5252) - ARP(1777) = V(4167)*V(5256) - ARP(1778) = V(4167) - ARP(1779) = V(4167) - ARP(1780) = V(4167) - ARP(1781) = V(4017)*V(5256) - ARP(1782) = V(4017)*V(5258) - ARP(1783) = V(4017)*V(5250) - ARP(1784) = V(4017)*V(5250) - ARP(1785) = V(4017) - ARP(1786) = V(4017) - ARP(1787) = V(3866)*V(5255) - ARP(1788) = V(3866)*V(5252) - ARP(1789) = V(3866)*V(5256) - ARP(1790) = V(3866) - ARP(1791) = V(3147) - ARP(1792) = V(3147) - ARP(1793) = V(3147) - ARP(1794) = V(3147) - ARP(1795) = V(3987)*V(5255) - ARP(1796) = V(3987)*V(5252) - ARP(1797) = V(3987)*V(5256) - ARP(1798) = V(3987) - ARP(1799) = V(4622)*V(5255) - ARP(1800) = V(4622)*V(5255) - ARP(1801) = V(4622)*V(5255) - ARP(1802) = V(4622)*V(5252) - ARP(1803) = V(4622)*V(5253) - ARP(1804) = V(4622)*V(5256) - ARP(1805) = V(4622) - ARP(1806) = V(4622) - ARP(1807) = V(4666)*V(5255) - ARP(1808) = V(4666)*V(5252) - ARP(1809) = V(4666)*V(5256) - ARP(1810) = V(4666) - ARP(1811) = V(3636)*V(5255) - ARP(1812) = V(3636)*V(5252) - ARP(1813) = V(3636)*V(5256) - ARP(1814) = V(3636) - ARP(1815) = V(3636) - ARP(1816) = V(3636) - ARP(1817) = V(3658)*V(5255) - ARP(1818) = V(3658)*V(5252) - ARP(1819) = V(3658)*V(5252) - ARP(1820) = V(3658)*V(5256) - ARP(1821) = V(3658) - ARP(1822) = V(3658) - ARP(1823) = V(3658) - ARP(1824) = V(686) - ARP(1825) = V(686) - ARP(1826) = V(686) - ARP(1827) = V(1959) - ARP(1828) = V(1959) - ARP(1829) = V(1959) - ARP(1830) = V(1959) - ARP(1831) = V(3670)*V(5255) - ARP(1832) = V(3670)*V(5252) - ARP(1833) = V(3670)*V(5252) - ARP(1834) = V(3670)*V(5256) - ARP(1835) = V(3670) - ARP(1836) = V(3670) - ARP(1837) = V(3670) - ARP(1838) = V(4111)*V(5255) - ARP(1839) = V(4111)*V(5252) - ARP(1840) = V(4111)*V(5252) - ARP(1841) = V(4111)*V(5256) - ARP(1842) = V(4111) - ARP(1843) = V(4111) - ARP(1844) = V(4111) - ARP(1845) = V(4372)*V(5255) - ARP(1846) = V(4372)*V(5252) - ARP(1847) = V(4372)*V(5252) - ARP(1848) = V(4372)*V(5256) - ARP(1849) = V(4372) - ARP(1850) = V(4372) - ARP(1851) = V(4372) - ARP(1852) = V(3634)*V(5255) - ARP(1853) = V(3634)*V(5252) - ARP(1854) = V(3634)*V(5252) - ARP(1855) = V(3634)*V(5256) - ARP(1856) = V(3634) - ARP(1857) = V(3634) - ARP(1858) = V(3634) - ARP(1859) = V(685) - ARP(1860) = V(685) - ARP(1861) = V(685) - ARP(1862) = V(5227) - ARP(1863) = V(5227) - ARP(1864) = V(5227)*V(5258) - ARP(1865) = V(5227)*V(5258) - ARP(1866) = V(5227)*V(5250) - ARP(1867) = V(5227)*V(5250) - ARP(1868) = V(2476) - ARP(1869) = V(2476) - ARP(1870) = V(2476) - ARP(1871) = V(2476) - ARP(1872) = V(3155) - ARP(1873) = V(3155) - ARP(1874) = V(3155) - ARP(1875) = V(3155) - ARP(1876) = V(702) - ARP(1877) = V(702) - ARP(1878) = V(715) - ARP(1879) = V(715) - ARP(1880) = V(5132)*V(5255) - ARP(1881) = V(5132)*V(5252) - ARP(1882) = V(5132)*V(5252) - ARP(1883) = V(5132)*V(5256) - ARP(1884) = V(5132) - ARP(1885) = V(5132) - ARP(1886) = V(5132) - ARP(1887) = V(4794)*V(5256) - ARP(1888) = V(4794)*V(5258) - ARP(1889) = V(4794)*V(5258) - ARP(1890) = V(4794)*V(5250) - ARP(1891) = V(4794)*V(5250) - ARP(1892) = V(4794) - ARP(1893) = V(4907)*V(5256) - ARP(1894) = V(4907)*V(5258) - ARP(1895) = V(4907)*V(5258) - ARP(1896) = V(4907)*V(5250) - ARP(1897) = V(4907) - ARP(1898) = V(606) - ARP(1899) = V(606) - ARP(1900) = V(607) - ARP(1901) = V(607) - ARP(1902) = V(3637)*V(5255) - ARP(1903) = V(3637)*V(5255) - ARP(1904) = V(3637)*V(5252) - ARP(1905) = V(3637)*V(5252) - ARP(1906) = V(3637)*V(5256) - ARP(1907) = V(3637) - ARP(1908) = V(3637) - ARP(1909) = V(3637) - ARP(1910) = V(4616)*V(5255) - ARP(1911) = V(4616)*V(5255) - ARP(1912) = V(4616)*V(5252) - ARP(1913) = V(4616)*V(5252) - ARP(1914) = V(4616)*V(5256) - ARP(1915) = V(4616) - ARP(1916) = V(4616) - ARP(1917) = V(4616) - ARP(1918) = V(4609)*V(5255) - ARP(1919) = V(4609)*V(5252) - ARP(1920) = V(4609)*V(5252) - ARP(1921) = V(4609)*V(5256) - ARP(1922) = V(4609) - ARP(1923) = V(4609) - ARP(1924) = V(4609) - ARP(1925) = V(5241)*V(5255) - ARP(1926) = V(5241)*V(5255) - ARP(1927) = V(5241)*V(5252) - ARP(1928) = V(5241)*V(5256) - ARP(1929) = V(5241) - ARP(1930) = V(5241) - ARP(1931) = V(5241) - ARP(1932) = V(5246)*V(5255) - ARP(1933) = V(5246)*V(5252) - ARP(1934) = V(5246)*V(5252) - ARP(1935) = V(5246)*V(5256) - ARP(1936) = V(5246) - ARP(1937) = V(5246) - ARP(1938) = V(5246) - ARP(1939) = V(5098)*V(5255) - ARP(1940) = V(5098)*V(5252) - ARP(1941) = V(5098)*V(5256) - ARP(1942) = V(5098) - ARP(1943) = V(5098) - ARP(1944) = V(5098) - ARP(1945) = V(5053)*V(5255) - ARP(1946) = V(5053)*V(5252) - ARP(1947) = V(5053)*V(5256) - ARP(1948) = V(5053) - ARP(1949) = V(5053) - ARP(1950) = V(5053) - ARP(1951) = V(5151)*V(5255) - ARP(1952) = V(5151)*V(5252) - ARP(1953) = V(5151)*V(5252) - ARP(1954) = V(5151)*V(5256) - ARP(1955) = V(5151) - ARP(1956) = V(5151) - ARP(1957) = V(5151) - ARP(1958) = V(4858)*V(5255) - ARP(1959) = V(4858)*V(5252) - ARP(1960) = V(4858)*V(5256) - ARP(1961) = V(4858) - ARP(1962) = V(4858) - ARP(1963) = V(4858) - ARP(1964) = V(4852)*V(5255) - ARP(1965) = V(4852)*V(5252) - ARP(1966) = V(4852)*V(5256) - ARP(1967) = V(4852) - ARP(1968) = V(4852) - ARP(1969) = V(4852) - ARP(1970) = V(5161)*V(5255) - ARP(1971) = V(5161)*V(5252) - ARP(1972) = V(5161)*V(5252) - ARP(1973) = V(5161)*V(5256) - ARP(1974) = V(5161) - ARP(1975) = V(5161) - ARP(1976) = V(5161) - ARP(1977) = V(4841)*V(5255) - ARP(1978) = V(4841)*V(5252) - ARP(1979) = V(4841)*V(5256) - ARP(1980) = V(4841) - ARP(1981) = V(4841) - ARP(1982) = V(5097)*V(5255) - ARP(1983) = V(5097)*V(5252) - ARP(1984) = V(5097)*V(5252) - ARP(1985) = V(5097)*V(5256) - ARP(1986) = V(5097) - ARP(1987) = V(5097) - ARP(1988) = V(5097) - ARP(1989) = V(4581)*V(5255) - ARP(1990) = V(4581)*V(5252) - ARP(1991) = V(4581)*V(5252) - ARP(1992) = V(4581)*V(5256) - ARP(1993) = V(4581) - ARP(1994) = V(4581) - ARP(1995) = V(4581) - ARP(1996) = V(4784)*V(5255) - ARP(1997) = V(4784)*V(5252) - ARP(1998) = V(4784)*V(5252) - ARP(1999) = V(4784)*V(5256) - ARP(2000) = V(4784) - ARP(2001) = V(4784) - ARP(2002) = V(4784) - ARP(2003) = V(4390)*V(5255) - ARP(2004) = V(4390)*V(5252) - ARP(2005) = V(4390)*V(5256) - ARP(2006) = V(4390) - ARP(2007) = V(4390) - ARP(2008) = V(4390) - ARP(2009) = V(4583)*V(5255) - ARP(2010) = V(4583)*V(5252) - ARP(2011) = V(4583)*V(5252) - ARP(2012) = V(4583)*V(5256) - ARP(2013) = V(4583) - ARP(2014) = V(4583) - ARP(2015) = V(4583) - ARP(2016) = V(4367)*V(5255) - ARP(2017) = V(4367)*V(5252) - ARP(2018) = V(4367)*V(5256) - ARP(2019) = V(4367) - ARP(2020) = V(4367) - ARP(2021) = V(4367) - ARP(2022) = V(4336)*V(5255) - ARP(2023) = V(4336)*V(5252) - ARP(2024) = V(4336)*V(5256) - ARP(2025) = V(4336) - ARP(2026) = V(4336) - ARP(2027) = V(4336) - ARP(2028) = V(4356)*V(5255) - ARP(2029) = V(4356)*V(5252) - ARP(2030) = V(4356)*V(5252) - ARP(2031) = V(4356)*V(5256) - ARP(2032) = V(4356) - ARP(2033) = V(4356) - ARP(2034) = V(4356) - ARP(2035) = V(5032)*V(5255) - ARP(2036) = V(5032)*V(5252) - ARP(2037) = V(5032)*V(5252) - ARP(2038) = V(5032)*V(5256) - ARP(2039) = V(5032) - ARP(2040) = V(5032) - ARP(2041) = V(4594)*V(5255) - ARP(2042) = V(4594)*V(5252) - ARP(2043) = V(4594)*V(5256) - ARP(2044) = V(4594) - ARP(2045) = V(4594) - ARP(2046) = V(4594) - ARP(2047) = V(3836)*V(5255) - ARP(2048) = V(3836)*V(5252) - ARP(2049) = V(3836)*V(5252) - ARP(2050) = V(3836)*V(5256) - ARP(2051) = V(3836) - ARP(2052) = V(3836) - ARP(2053) = V(3836) - ARP(2054) = V(5081)*V(5255) - ARP(2055) = V(5081)*V(5252) - ARP(2056) = V(5081)*V(5252) - ARP(2057) = V(5081)*V(5256) - ARP(2058) = V(5081) - ARP(2059) = V(5081) - ARP(2060) = V(5081) - ARP(2061) = V(3943)*V(5255) - ARP(2062) = V(3943)*V(5252) - ARP(2063) = V(3943)*V(5256) - ARP(2064) = V(3943) - ARP(2065) = V(3943) - ARP(2066) = V(4925)*V(5255) - ARP(2067) = V(4925)*V(5252) - ARP(2068) = V(4925)*V(5256) - ARP(2069) = V(4925) - ARP(2070) = V(4925) - ARP(2071) = V(4925) - ARP(2072) = V(293) - ARP(2073) = V(293) - ARP(2074) = V(604) - ARP(2075) = V(604) - ARP(2076) = V(3921)*V(5255) - ARP(2077) = V(3921)*V(5252) - ARP(2078) = V(3921)*V(5252) - ARP(2079) = V(3921)*V(5256) - ARP(2080) = V(3921) - ARP(2081) = V(3921) - ARP(2082) = V(3936)*V(5255) - ARP(2083) = V(3936)*V(5252) - ARP(2084) = V(3936)*V(5252) - ARP(2085) = V(3936)*V(5256) - ARP(2086) = V(3936) - ARP(2087) = V(3936) - ARP(2088) = V(3936) - ARP(2089) = V(4091)*V(5255) - ARP(2090) = V(4091)*V(5252) - ARP(2091) = V(4091)*V(5252) - ARP(2092) = V(4091)*V(5256) - ARP(2093) = V(4091) - ARP(2094) = V(4091) - ARP(2095) = V(4097)*V(5255) - ARP(2096) = V(4097)*V(5252) - ARP(2097) = V(4097)*V(5256) - ARP(2098) = V(4097) - ARP(2099) = V(4097) - ARP(2100) = V(3806)*V(5255) - ARP(2101) = V(3806)*V(5252) - ARP(2102) = V(3806)*V(5256) - ARP(2103) = V(3806) - ARP(2104) = V(3806) - ARP(2105) = V(3806) - ARP(2106) = V(5215)*V(5250) - ARP(2107) = V(5215)*V(5250) - ARP(2108) = V(5215)*V(5250) - ARP(2109) = V(5215)*V(5250) - ARP(2110) = V(4747) - ARP(2111) = V(4747) - ARP(2112) = V(4747) - ARP(2113) = V(640) - ARP(2114) = V(640) - ARP(2115) = V(640) - ARP(2116) = V(4185)*V(5255) - ARP(2117) = V(4185)*V(5252) - ARP(2118) = V(4185)*V(5252) - ARP(2119) = V(4185)*V(5256) - ARP(2120) = V(4185) - ARP(2121) = V(4185) - ARP(2122) = V(4146)*V(5255) - ARP(2123) = V(4146)*V(5252) - ARP(2124) = V(4146)*V(5252) - ARP(2125) = V(4146)*V(5256) - ARP(2126) = V(4146) - ARP(2127) = V(4146) - ARP(2128) = V(4146) - ARP(2129) = V(4090)*V(5255) - ARP(2130) = V(4090)*V(5252) - ARP(2131) = V(4090)*V(5252) - ARP(2132) = V(4090)*V(5256) - ARP(2133) = V(4090) - ARP(2134) = V(4090) - ARP(2135) = V(3940)*V(5255) - ARP(2136) = V(3940)*V(5252) - ARP(2137) = V(3940)*V(5256) - ARP(2138) = V(3940) - ARP(2139) = V(3940) - ARP(2140) = V(419) - ARP(2141) = V(419) - ARP(2142) = V(719) - ARP(2143) = V(719) - ARP(2144) = V(3863)*V(5255) - ARP(2145) = V(3863)*V(5252) - ARP(2146) = V(3863)*V(5252) - ARP(2147) = V(3863)*V(5256) - ARP(2148) = V(3863) - ARP(2149) = V(3863) - ARP(2150) = V(3867)*V(5255) - ARP(2151) = V(3867)*V(5252) - ARP(2152) = V(3867)*V(5252) - ARP(2153) = V(3867)*V(5256) - ARP(2154) = V(3867) - ARP(2155) = V(3867) - ARP(2156) = V(3867) - ARP(2157) = V(3994)*V(5255) - ARP(2158) = V(3994)*V(5252) - ARP(2159) = V(3994)*V(5252) - ARP(2160) = V(3994)*V(5256) - ARP(2161) = V(3994) - ARP(2162) = V(3994) - ARP(2163) = V(3891)*V(5255) - ARP(2164) = V(3891)*V(5252) - ARP(2165) = V(3891)*V(5256) - ARP(2166) = V(3891) - ARP(2167) = V(3891) - ARP(2168) = V(5048)*V(5251) - ARP(2169) = V(5048)*V(5252) - ARP(2170) = V(5048)*V(5253) - ARP(2171) = V(5048)*V(5254) - ARP(2172) = V(5048) - ARP(2173) = V(5048) - ARP(2174) = V(5092)*V(5251) - ARP(2175) = V(5092)*V(5252) - ARP(2176) = V(5092)*V(5253) - ARP(2177) = V(5092)*V(5254) - ARP(2178) = V(5092) - ARP(2179) = V(5092) - ARP(2180) = V(2470) - ARP(2181) = V(2470) - ARP(2182) = V(2470) - ARP(2183) = V(2470) - ARP(2184) = V(1746) - ARP(2185) = V(1746) - ARP(2186) = V(1746) - ARP(2187) = V(3971)*V(5255) - ARP(2188) = V(3971)*V(5252) - ARP(2189) = V(3971)*V(5252) - ARP(2190) = V(3971)*V(5256) - ARP(2191) = V(3971) - ARP(2192) = V(3971) - ARP(2193) = V(3963)*V(5255) - ARP(2194) = V(3963)*V(5252) - ARP(2195) = V(3963)*V(5252) - ARP(2196) = V(3963)*V(5256) - ARP(2197) = V(3963) - ARP(2198) = V(3963) - ARP(2199) = V(3963) - ARP(2200) = V(3898)*V(5255) - ARP(2201) = V(3898)*V(5252) - ARP(2202) = V(3898)*V(5252) - ARP(2203) = V(3898)*V(5256) - ARP(2204) = V(3898) - ARP(2205) = V(3898) - ARP(2206) = V(1809)*V(5250) - ARP(2207) = V(1809)*V(5250) - ARP(2208) = V(1809) - ARP(2209) = V(2096)*V(5250) - ARP(2210) = V(2707) - ARP(2211) = V(2707) - ARP(2212) = V(2456) - ARP(2213) = V(2456)*V(5250) - ARP(2214) = V(2456)*V(5250) - ARP(2215) = V(2306) - ARP(2216) = V(2306)*V(5250) - ARP(2217) = V(1679) - ARP(2218) = V(5184) - ARP(2219) = V(5184)*V(5256) - ARP(2220) = V(5184)*V(5250) - ARP(2221) = V(416)*V(5250) - ARP(2222) = V(1899)*V(5250) - ARP(2223) = V(1899)*V(5250) - ARP(2224) = V(1899) - ARP(2225) = V(2639) - ARP(2226) = V(3245)*V(5250) - ARP(2227) = V(3277)*V(5250) - ARP(2228) = V(3277)*V(5250) - ARP(2229) = V(3277) - ARP(2230) = V(2229) - ARP(2231) = V(2433)*V(5250) - ARP(2232) = V(1886)*V(5250) - ARP(2233) = V(1886)*V(5250) - ARP(2234) = V(1886) - ARP(2235) = V(2367)*V(5250) - ARP(2236) = V(2720) - ARP(2237) = V(3959)*V(5250) - ARP(2238) = V(3959) - ARP(2239) = V(847)*V(5250) - ARP(2240) = V(1914)*V(5250) - ARP(2241) = V(1914)*V(5250) - ARP(2242) = V(1914) - ARP(2243) = V(2128)*V(5250) - ARP(2244) = V(2128) - ARP(2245) = V(3386) - ARP(2246) = V(3386) - ARP(2247) = V(1140)*V(5250) - ARP(2248) = V(4973)*V(5250) - ARP(2249) = V(4973) - ARP(2250) = V(2503)*V(5250) - ARP(2251) = V(2503)*V(5250) - ARP(2252) = V(2503) - ARP(2253) = V(615) - ARP(2254) = V(1782)*V(5250) - ARP(2255) = V(4386)*V(5250) - ARP(2256) = V(4386) - ARP(2257) = V(335)*V(5250) - ARP(2258) = V(1138)*V(5250) - ARP(2259) = V(1138) - ARP(2260) = V(3173)*V(5250) - ARP(2261) = V(2840) - ARP(2262) = V(1369)*V(5250) - ARP(2263) = V(2235)*V(5250) - ARP(2264) = V(2235)*V(5250) - ARP(2265) = V(2235) - ARP(2266) = V(2261)*V(5250) - ARP(2267) = V(2261) - ARP(2268) = V(1568) - ARP(2269) = V(5071) - ARP(2270) = V(5071)*V(5256) - ARP(2271) = V(5071)*V(5250) - ARP(2272) = V(126)*V(5250) - ARP(2273) = V(3299)*V(5250) - ARP(2274) = V(3299)*V(5250) - ARP(2275) = V(3299) - ARP(2276) = V(2037)*V(5250) - ARP(2277) = V(1944) - ARP(2278) = V(2391) - ARP(2279) = V(2391)*V(5250) - ARP(2280) = V(2391)*V(5250) - ARP(2281) = V(1800) - ARP(2282) = V(1800)*V(5250) - ARP(2283) = V(153) - ARP(2284) = V(286)*V(5250) - ARP(2285) = V(4872) - ARP(2286) = V(4872)*V(5256) - ARP(2287) = V(4872)*V(5250) - ARP(2288) = V(4872)*V(5250) - ARP(2289) = V(3265)*V(5250) - ARP(2290) = V(3265)*V(5250) - ARP(2291) = V(3265) - ARP(2292) = V(2297)*V(5250) - ARP(2293) = V(2066) - ARP(2294) = V(1035)*V(5250) - ARP(2295) = V(3735)*V(5250) - ARP(2296) = V(3735) - ARP(2297) = V(4634)*V(5255) - ARP(2298) = V(4634)*V(5255) - ARP(2299) = V(4634)*V(5255) - ARP(2300) = V(4634)*V(5252) - ARP(2301) = V(4634)*V(5253) - ARP(2302) = V(4634)*V(5256) - ARP(2303) = V(4634) - ARP(2304) = V(4634) - ARP(2305) = V(1108) - ARP(2306) = V(1108)*V(5250) - ARP(2307) = V(2198) - ARP(2308) = V(2198)*V(5250) - ARP(2309) = V(1906) - ARP(2310) = V(1050)*V(5250) - ARP(2311) = V(4524) - ARP(2312) = V(4524)*V(5250) - ARP(2313) = V(1422)*V(5250) - ARP(2314) = V(1422) - ARP(2315) = V(3106)*V(5250) - ARP(2316) = V(2983) - ARP(2317) = V(874)*V(5250) - ARP(2318) = V(4380)*V(5255) - ARP(2319) = V(4380)*V(5255) - ARP(2320) = V(4380)*V(5255) - ARP(2321) = V(4380)*V(5252) - ARP(2322) = V(4380)*V(5253) - ARP(2323) = V(4380)*V(5256) - ARP(2324) = V(4380) - ARP(2325) = V(4380) - ARP(2326) = V(5239)*V(5255) - ARP(2327) = V(5239)*V(5252) - ARP(2328) = V(5239)*V(5252) - ARP(2329) = V(5239)*V(5256) - ARP(2330) = V(5239) - ARP(2331) = V(5239) - ARP(2332) = V(1265) - ARP(2333) = V(1265)*V(5250) - ARP(2334) = V(2542) - ARP(2335) = V(2542)*V(5250) - ARP(2336) = V(2374) - ARP(2337) = V(896)*V(5250) - ARP(2338) = V(2006)*V(5250) - ARP(2339) = V(2006)*V(5250) - ARP(2340) = V(2006) - ARP(2341) = V(1977)*V(5250) - ARP(2342) = V(2747) - ARP(2343) = V(1194)*V(5250) - ARP(2344) = V(3716)*V(5250) - ARP(2345) = V(3716) - ARP(2346) = V(1994) - ARP(2347) = V(1994)*V(5250) - ARP(2348) = V(1994)*V(5250) - ARP(2349) = V(2459) - ARP(2350) = V(2459)*V(5250) - ARP(2351) = V(2891) - ARP(2352) = V(2891) - ARP(2353) = V(5057) - ARP(2354) = V(5057)*V(5256) - ARP(2355) = V(5057)*V(5250) - ARP(2356) = V(1948)*V(5250) - ARP(2357) = V(1948)*V(5250) - ARP(2358) = V(1948) - ARP(2359) = V(1976)*V(5250) - ARP(2360) = V(3422) - ARP(2361) = V(3422) - ARP(2362) = V(1124)*V(5250) - ARP(2363) = V(3536)*V(5250) - ARP(2364) = V(3310)*V(5250) - ARP(2365) = V(3310)*V(5250) - ARP(2366) = V(3310) - ARP(2367) = V(1957)*V(5250) - ARP(2368) = V(2090) - ARP(2369) = V(5012)*V(5256) - ARP(2370) = V(5012)*V(5250) - ARP(2371) = V(5012) - ARP(2372) = V(1842) - ARP(2373) = V(1842)*V(5250) - ARP(2374) = V(1842)*V(5250) - ARP(2375) = V(2220) - ARP(2376) = V(2220)*V(5250) - ARP(2377) = V(2647) - ARP(2378) = V(2647) - ARP(2379) = V(4737) - ARP(2380) = V(4737)*V(5256) - ARP(2381) = V(4737)*V(5250) - ARP(2382) = V(4737)*V(5250) - ARP(2383) = V(3444)*V(5250) - ARP(2384) = V(3444)*V(5250) - ARP(2385) = V(3444) - ARP(2386) = V(3159)*V(5250) - ARP(2387) = V(1924) - ARP(2388) = V(3018)*V(5250) - ARP(2389) = V(3018)*V(5250) - ARP(2390) = V(3018) - ARP(2391) = V(765) - ARP(2392) = V(1400)*V(5250) - ARP(2393) = V(278)*V(5250) - ARP(2394) = V(3653)*V(5250) - ARP(2395) = V(3653) - ARP(2396) = V(3623)*V(5250) - ARP(2397) = V(3623)*V(5250) - ARP(2398) = V(3623) - ARP(2399) = V(3623) - ARP(2400) = V(2029) - ARP(2401) = V(2438)*V(5250) - ARP(2402) = V(2438) - ARP(2403) = V(1671)*V(5250) - ARP(2404) = V(1671) - ARP(2405) = V(1897)*V(5250) - ARP(2406) = V(1897)*V(5250) - ARP(2407) = V(1897) - ARP(2408) = V(2550) - ARP(2409) = V(1081)*V(5250) - ARP(2410) = V(2001) - ARP(2411) = V(2001)*V(5250) - ARP(2412) = V(3547) - ARP(2413) = V(3547)*V(5250) - ARP(2414) = V(3207)*V(5250) - ARP(2415) = V(3207) - ARP(2416) = V(3207) - ARP(2417) = V(630) - ARP(2418) = V(1582)*V(5250) - ARP(2419) = V(1582) - ARP(2420) = V(3892)*V(5256) - ARP(2421) = V(3892)*V(5250) - ARP(2422) = V(3892) - ARP(2423) = V(818)*V(5250) - ARP(2424) = V(1066)*V(5250) - ARP(2425) = V(1066) - ARP(2426) = V(2657)*V(5250) - ARP(2427) = V(2657) - ARP(2428) = V(5232)*V(5255) - ARP(2429) = V(5232)*V(5255) - ARP(2430) = V(5232)*V(5255) - ARP(2431) = V(5232)*V(5252) - ARP(2432) = V(5232)*V(5253) - ARP(2433) = V(5232)*V(5256) - ARP(2434) = V(5232) - ARP(2435) = V(5232) - ARP(2436) = V(4924)*V(5255) - ARP(2437) = V(4924)*V(5255) - ARP(2438) = V(4924)*V(5252) - ARP(2439) = V(4924)*V(5253) - ARP(2440) = V(4924)*V(5256) - ARP(2441) = V(4924) - ARP(2442) = V(3198)*V(5250) - ARP(2443) = V(3198)*V(5250) - ARP(2444) = V(3198) - ARP(2445) = V(1808) - ARP(2446) = V(578)*V(5250) - ARP(2447) = V(2276)*V(5250) - ARP(2448) = V(2010)*V(5250) - ARP(2449) = V(2010)*V(5250) - ARP(2450) = V(2010) - ARP(2451) = V(2869) - ARP(2452) = V(1894)*V(5250) - ARP(2453) = V(232)*V(5250) - ARP(2454) = V(4908)*V(5251) - ARP(2455) = V(4908)*V(5252) - ARP(2456) = V(4908)*V(5253) - ARP(2457) = V(4908)*V(5254) - ARP(2458) = V(4908) - ARP(2459) = V(4908) - ARP(2460) = V(5243)*V(5255) - ARP(2461) = V(5243)*V(5255) - ARP(2462) = V(5243)*V(5255) - ARP(2463) = V(5243)*V(5252) - ARP(2464) = V(5243)*V(5253) - ARP(2465) = V(5243)*V(5256) - ARP(2466) = V(5243) - ARP(2467) = V(5243) - ARP(2468) = V(5223)*V(5251) - ARP(2469) = V(5223)*V(5252) - ARP(2470) = V(5223)*V(5253) - ARP(2471) = V(5223)*V(5254) - ARP(2472) = V(5223) - ARP(2473) = V(5223) - ARP(2474) = V(3243)*V(5250) - ARP(2475) = V(3243)*V(5250) - ARP(2476) = V(3243) - ARP(2477) = V(1815) - ARP(2478) = V(3755)*V(5250) - ARP(2479) = V(3755) - ARP(2480) = V(1120)*V(5250) - ARP(2481) = V(3256)*V(5250) - ARP(2482) = V(3256)*V(5250) - ARP(2483) = V(3256) - ARP(2484) = V(1882) - ARP(2485) = V(3603)*V(5250) - ARP(2486) = V(3603) - ARP(2487) = V(2044) - ARP(2488) = V(2044)*V(5250) - ARP(2489) = V(2044)*V(5250) - ARP(2490) = V(3394) - ARP(2491) = V(3394)*V(5250) - ARP(2492) = V(1634) - ARP(2493) = V(86) - ARP(2494) = V(4420)*V(5250) - ARP(2495) = V(4420)*V(5250) - ARP(2496) = V(4420) - ARP(2497) = V(4420) - ARP(2498) = V(2861) - ARP(2499) = V(987)*V(5250) - ARP(2500) = V(987) - ARP(2501) = V(751)*V(5250) - ARP(2502) = V(3003)*V(5250) - ARP(2503) = V(3003) - ARP(2504) = V(2188) - ARP(2505) = V(2188)*V(5250) - ARP(2506) = V(2188)*V(5250) - ARP(2507) = V(1749) - ARP(2508) = V(1749)*V(5250) - ARP(2509) = V(691)*V(5250) - ARP(2510) = V(1500)*V(5250) - ARP(2511) = V(1500) - ARP(2512) = V(2537)*V(5250) - ARP(2513) = V(2537) - ARP(2514) = V(3540)*V(5250) - ARP(2515) = V(3540)*V(5250) - ARP(2516) = V(3540) - ARP(2517) = V(3540) - ARP(2518) = V(2077)*V(5250) - ARP(2519) = V(2077) - ARP(2520) = V(3383) - ARP(2521) = V(3383) - ARP(2522) = V(5242)*V(5256) - ARP(2523) = V(5242)*V(5250) - ARP(2524) = V(5242) - ARP(2525) = V(5055) - ARP(2526) = V(5055)*V(5256) - ARP(2527) = V(5055)*V(5250) - ARP(2528) = V(5055)*V(5250) - ARP(2529) = V(2292) - ARP(2530) = V(2292)*V(5250) - ARP(2531) = V(2292)*V(5250) - ARP(2532) = V(1974) - ARP(2533) = V(1974)*V(5250) - ARP(2534) = V(1695) - ARP(2535) = V(631)*V(5250) - ARP(2536) = V(1466)*V(5250) - ARP(2537) = V(1466) - ARP(2538) = V(2612)*V(5250) - ARP(2539) = V(2612) - ARP(2540) = V(2463)*V(5250) - ARP(2541) = V(2463)*V(5250) - ARP(2542) = V(2463) - ARP(2543) = V(2338)*V(5250) - ARP(2544) = V(2338) - ARP(2545) = V(1702) - ARP(2546) = V(3995)*V(5256) - ARP(2547) = V(3995)*V(5250) - ARP(2548) = V(3995) - ARP(2549) = V(2993)*V(5250) - ARP(2550) = V(2993) - ARP(2551) = V(2993) - ARP(2552) = V(2992) - ARP(2553) = V(2126) - ARP(2554) = V(2126)*V(5250) - ARP(2555) = V(2126)*V(5250) - ARP(2556) = V(2427) - ARP(2557) = V(2427)*V(5250) - ARP(2558) = V(1662) - ARP(2559) = V(611)*V(5250) - ARP(2560) = V(1332)*V(5250) - ARP(2561) = V(1332) - ARP(2562) = V(2611)*V(5250) - ARP(2563) = V(2611) - ARP(2564) = V(1880)*V(5250) - ARP(2565) = V(1880)*V(5250) - ARP(2566) = V(1880) - ARP(2567) = V(2106)*V(5250) - ARP(2568) = V(2106) - ARP(2569) = V(1725) - ARP(2570) = V(5143) - ARP(2571) = V(5143)*V(5256) - ARP(2572) = V(5143)*V(5250) - ARP(2573) = V(2318) - ARP(2574) = V(2318)*V(5250) - ARP(2575) = V(2318)*V(5250) - ARP(2576) = V(1921) - ARP(2577) = V(1921)*V(5250) - ARP(2578) = V(2926) - ARP(2579) = V(2926) - ARP(2580) = V(3099)*V(5250) - ARP(2581) = V(3294) - ARP(2582) = V(3294)*V(5250) - ARP(2583) = V(3294)*V(5250) - ARP(2584) = V(3254) - ARP(2585) = V(3254)*V(5250) - ARP(2586) = V(875)*V(5250) - ARP(2587) = V(875) - ARP(2588) = V(2526) - ARP(2589) = V(5023) - ARP(2590) = V(5023)*V(5256) - ARP(2591) = V(5023)*V(5250) - ARP(2592) = V(484)*V(5250) - ARP(2593) = V(4708)*V(5250) - ARP(2594) = V(4708) - ARP(2595) = V(2627)*V(5250) - ARP(2596) = V(2627) - ARP(2597) = V(3587) - ARP(2598) = V(3587)*V(5250) - ARP(2599) = V(1013) - ARP(2600) = V(3809) - ARP(2601) = V(3809) - ARP(2602) = V(3809) - ARP(2603) = V(5170)*V(5251) - ARP(2604) = V(5170)*V(5252) - ARP(2605) = V(5170)*V(5253) - ARP(2606) = V(5170)*V(5254) - ARP(2607) = V(5170) - ARP(2608) = V(5170) - ARP(2609) = V(642)*V(5250) - ARP(2610) = V(3448) - ARP(2611) = V(3448)*V(5250) - ARP(2612) = V(3448)*V(5250) - ARP(2613) = V(3448)*V(5250) - ARP(2614) = V(4330) - ARP(2615) = V(4330)*V(5258) - ARP(2616) = V(4330)*V(5250) - ARP(2617) = V(4330)*V(5250) - ARP(2618) = V(4330)*V(5250) - ARP(2619) = V(5156)*V(5251) - ARP(2620) = V(5156)*V(5252) - ARP(2621) = V(5156)*V(5253) - ARP(2622) = V(5156)*V(5254) - ARP(2623) = V(5156) - ARP(2624) = V(3330) - ARP(2625) = V(3330) - ARP(2626) = V(3330)*V(5250) - ARP(2627) = V(5221)*V(5250) - ARP(2628) = V(5221)*V(5250) - ARP(2629) = V(5221) - ARP(2630) = V(2004) - ARP(2631) = V(3993) - ARP(2632) = V(3993)*V(5250) - ARP(2633) = V(3462)*V(5250) - ARP(2634) = V(3462) - ARP(2635) = V(3462) - ARP(2636) = V(3929) - ARP(2637) = V(3929)*V(5250) - ARP(2638) = V(1866) - ARP(2639) = V(5094)*V(5250) - ARP(2640) = V(5094) - ARP(2641) = V(2873)*V(5250) - ARP(2642) = V(2873) - ARP(2643) = V(2346)*V(5250) - ARP(2644) = V(2811)*V(5250) - ARP(2645) = V(2811) - ARP(2646) = V(3660)*V(5256) - ARP(2647) = V(3660)*V(5250) - ARP(2648) = V(3660) - ARP(2649) = V(2734) - ARP(2650) = V(4156)*V(5256) - ARP(2651) = V(4156)*V(5250) - ARP(2652) = V(4156) - ARP(2653) = V(4156) - ARP(2654) = V(1853)*V(5250) - ARP(2655) = V(1853) - ARP(2656) = V(3654)*V(5256) - ARP(2657) = V(3654)*V(5250) - ARP(2658) = V(3654) - ARP(2659) = V(1011) - ARP(2660) = V(3520)*V(5250) - ARP(2661) = V(3520) - ARP(2662) = V(4943)*V(5251) - ARP(2663) = V(4943)*V(5252) - ARP(2664) = V(4943)*V(5253) - ARP(2665) = V(4943)*V(5254) - ARP(2666) = V(4943) - ARP(2667) = V(4943) - ARP(2668) = V(1185)*V(5250) - ARP(2669) = V(1185) - ARP(2670) = V(2795) - ARP(2671) = V(3044)*V(5250) - ARP(2672) = V(3044) - ARP(2673) = V(5210) - ARP(2674) = V(5210)*V(5256) - ARP(2675) = V(5210)*V(5250) - ARP(2676) = V(2805)*V(5250) - ARP(2677) = V(2805) - ARP(2678) = V(2805) - ARP(2679) = V(1872) - ARP(2680) = V(3171)*V(5250) - ARP(2681) = V(3171) - ARP(2682) = V(2435)*V(5250) - ARP(2683) = V(2435)*V(5250) - ARP(2684) = V(2435) - ARP(2685) = V(1946)*V(5250) - ARP(2686) = V(1946) - ARP(2687) = V(3429) - ARP(2688) = V(3429) - ARP(2689) = V(2339) - ARP(2690) = V(2339)*V(5250) - ARP(2691) = V(2339)*V(5250) - ARP(2692) = V(2237) - ARP(2693) = V(2237)*V(5250) - ARP(2694) = V(1715) - ARP(2695) = V(855)*V(5250) - ARP(2696) = V(855) - ARP(2697) = V(2687)*V(5250) - ARP(2698) = V(2687) - ARP(2699) = V(2227)*V(5250) - ARP(2700) = V(2227)*V(5250) - ARP(2701) = V(2227) - ARP(2702) = V(2285)*V(5250) - ARP(2703) = V(2285) - ARP(2704) = V(160) - ARP(2705) = V(345)*V(5250) - ARP(2706) = V(2057)*V(5250) - ARP(2707) = V(2057)*V(5250) - ARP(2708) = V(2057) - ARP(2709) = V(1965)*V(5250) - ARP(2710) = V(1965) - ARP(2711) = V(2699) - ARP(2712) = V(2699) - ARP(2713) = V(495)*V(5250) - ARP(2714) = V(999)*V(5250) - ARP(2715) = V(999) - ARP(2716) = V(2196)*V(5250) - ARP(2717) = V(2196) - ARP(2718) = V(3377) - ARP(2719) = V(3377) - ARP(2720) = V(1885) - ARP(2721) = V(1885)*V(5250) - ARP(2722) = V(1885)*V(5250) - ARP(2723) = V(2337) - ARP(2724) = V(2337)*V(5250) - ARP(2725) = V(3032) - ARP(2726) = V(3032) - ARP(2727) = V(2223) - ARP(2728) = V(2223)*V(5250) - ARP(2729) = V(2223)*V(5250) - ARP(2730) = V(2193) - ARP(2731) = V(2193)*V(5250) - ARP(2732) = V(3404) - ARP(2733) = V(3404) - ARP(2734) = V(1069) - ARP(2735) = V(1069)*V(5250) - ARP(2736) = V(3076) - ARP(2737) = V(3076)*V(5250) - ARP(2738) = V(2490) - ARP(2739) = V(2628) - ARP(2740) = V(2628)*V(5250) - ARP(2741) = V(2628)*V(5250) - ARP(2742) = V(2913) - ARP(2743) = V(2913)*V(5250) - ARP(2744) = V(1741) - ARP(2745) = V(304)*V(5250) - ARP(2746) = V(4559)*V(5256) - ARP(2747) = V(4559)*V(5250) - ARP(2748) = V(4559) - ARP(2749) = V(2416) - ARP(2750) = V(2416)*V(5250) - ARP(2751) = V(2416)*V(5250) - ARP(2752) = V(1987) - ARP(2753) = V(1987)*V(5250) - ARP(2754) = V(155) - ARP(2755) = V(5162) - ARP(2756) = V(5162) - ARP(2757) = V(5162)*V(5256) - ARP(2758) = V(5162)*V(5250) - ARP(2759) = V(383)*V(5250) - ARP(2760) = V(2422) - ARP(2761) = V(2422)*V(5250) - ARP(2762) = V(2422)*V(5250) - ARP(2763) = V(2086) - ARP(2764) = V(2086)*V(5250) - ARP(2765) = V(171) - ARP(2766) = V(228)*V(5250) - ARP(2767) = V(1298) - ARP(2768) = V(1298)*V(5250) - ARP(2769) = V(2149) - ARP(2770) = V(2149)*V(5250) - ARP(2771) = V(2710) - ARP(2772) = V(2710) - ARP(2773) = V(380)*V(5250) - ARP(2774) = V(1966) - ARP(2775) = V(1966)*V(5250) - ARP(2776) = V(1966)*V(5250) - ARP(2777) = V(2168) - ARP(2778) = V(2168)*V(5250) - ARP(2779) = V(202) - ARP(2780) = V(3875) - ARP(2781) = V(3875)*V(5256) - ARP(2782) = V(3875)*V(5250) - ARP(2783) = V(242)*V(5250) - ARP(2784) = V(1855) - ARP(2785) = V(1855)*V(5250) - ARP(2786) = V(1855)*V(5250) - ARP(2787) = V(2350) - ARP(2788) = V(2350)*V(5250) - ARP(2789) = V(2974) - ARP(2790) = V(2974) - ARP(2791) = V(424)*V(5250) - ARP(2792) = V(2355) - ARP(2793) = V(2355)*V(5250) - ARP(2794) = V(2355)*V(5250) - ARP(2795) = V(2194) - ARP(2796) = V(2194)*V(5250) - ARP(2797) = V(3779) - ARP(2798) = V(3779) - ARP(2799) = V(3779) - ARP(2800) = V(4736) - ARP(2801) = V(4736) - ARP(2802) = V(4736)*V(5250) - ARP(2803) = V(4736)*V(5250) - ARP(2804) = V(316)*V(5250) - ARP(2805) = V(1488) - ARP(2806) = V(1488)*V(5250) - ARP(2807) = V(2610) - ARP(2808) = V(2610)*V(5250) - ARP(2809) = V(2933) - ARP(2810) = V(2933) - ARP(2811) = V(144)*V(5250) - ARP(2812) = V(1751) - ARP(2813) = V(1751)*V(5250) - ARP(2814) = V(1751)*V(5250) - ARP(2815) = V(2277) - ARP(2816) = V(2277)*V(5250) - ARP(2817) = V(165) - ARP(2818) = V(3851) - ARP(2819) = V(3851)*V(5256) - ARP(2820) = V(3851)*V(5250) - ARP(2821) = V(349)*V(5250) - ARP(2822) = V(1753) - ARP(2823) = V(1753)*V(5250) - ARP(2824) = V(1753)*V(5250) - ARP(2825) = V(2246) - ARP(2826) = V(2246)*V(5250) - ARP(2827) = V(2990) - ARP(2828) = V(2990) - ARP(2829) = V(3594) - ARP(2830) = V(3594)*V(5250) - ARP(2831) = V(3594)*V(5250) - ARP(2832) = V(504)*V(5250) - ARP(2833) = V(980) - ARP(2834) = V(980)*V(5250) - ARP(2835) = V(2839) - ARP(2836) = V(2839)*V(5250) - ARP(2837) = V(1962) - ARP(2838) = V(133)*V(5250) - ARP(2839) = V(2409) - ARP(2840) = V(2409)*V(5250) - ARP(2841) = V(2409)*V(5250) - ARP(2842) = V(2199) - ARP(2843) = V(2199)*V(5250) - ARP(2844) = V(3333) - ARP(2845) = V(3333) - ARP(2846) = V(466)*V(5250) - ARP(2847) = V(2264) - ARP(2848) = V(2264)*V(5250) - ARP(2849) = V(2264)*V(5250) - ARP(2850) = V(2169) - ARP(2851) = V(2169)*V(5250) - ARP(2852) = V(205) - ARP(2853) = V(3856) - ARP(2854) = V(3856)*V(5256) - ARP(2855) = V(3856)*V(5250) - ARP(2856) = V(338)*V(5250) - ARP(2857) = V(2192) - ARP(2858) = V(2192)*V(5250) - ARP(2859) = V(2192)*V(5250) - ARP(2860) = V(2097) - ARP(2861) = V(2097)*V(5250) - ARP(2862) = V(2906) - ARP(2863) = V(2906) - ARP(2864) = V(3924) - ARP(2865) = V(3924)*V(5256) - ARP(2866) = V(3924)*V(5250) - ARP(2867) = V(308)*V(5250) - ARP(2868) = V(1469) - ARP(2869) = V(1469)*V(5250) - ARP(2870) = V(1788) - ARP(2871) = V(1788)*V(5250) - ARP(2872) = V(1789) - ARP(2873) = V(64)*V(5250) - ARP(2874) = V(2019) - ARP(2875) = V(2019)*V(5250) - ARP(2876) = V(2019)*V(5250) - ARP(2877) = V(2403) - ARP(2878) = V(2403)*V(5250) - ARP(2879) = V(2767) - ARP(2880) = V(2767) - ARP(2881) = V(339)*V(5250) - ARP(2882) = V(3877) - ARP(2883) = V(3877)*V(5256) - ARP(2884) = V(3877)*V(5250) - ARP(2885) = V(1267) - ARP(2886) = V(1267)*V(5250) - ARP(2887) = V(1919) - ARP(2888) = V(1919)*V(5250) - ARP(2889) = V(161) - ARP(2890) = V(3118) - ARP(2891) = V(3118)*V(5250) - ARP(2892) = V(353)*V(5250) - ARP(2893) = V(870) - ARP(2894) = V(870)*V(5250) - ARP(2895) = V(2094) - ARP(2896) = V(2094)*V(5250) - ARP(2897) = V(184) - ARP(2898) = V(3168) - ARP(2899) = V(3168)*V(5250) - ARP(2900) = V(412)*V(5250) - ARP(2901) = V(1207) - ARP(2902) = V(1207)*V(5250) - ARP(2903) = V(2534) - ARP(2904) = V(2534)*V(5250) - ARP(2905) = V(445) - ARP(2906) = V(34)*V(5250) - ARP(2907) = V(1501) - ARP(2908) = V(1501)*V(5250) - ARP(2909) = V(1831) - ARP(2910) = V(1831)*V(5250) - ARP(2911) = V(166) - ARP(2912) = V(3109) - ARP(2913) = V(3109)*V(5250) - ARP(2914) = V(234)*V(5250) - ARP(2915) = V(1082) - ARP(2916) = V(1082)*V(5250) - ARP(2917) = V(2964) - ARP(2918) = V(2964)*V(5250) - ARP(2919) = V(421) - ARP(2920) = V(139)*V(5250) - ARP(2921) = V(1491) - ARP(2922) = V(1491)*V(5250) - ARP(2923) = V(2161) - ARP(2924) = V(2161)*V(5250) - ARP(2925) = V(177) - ARP(2926) = V(3148) - ARP(2927) = V(3148)*V(5250) - ARP(2928) = V(269)*V(5250) - ARP(2929) = V(1259) - ARP(2930) = V(1259)*V(5250) - ARP(2931) = V(2216) - ARP(2932) = V(2216)*V(5250) - ARP(2933) = V(197) - ARP(2934) = V(3117) - ARP(2935) = V(3117)*V(5250) - ARP(2936) = V(453)*V(5250) - ARP(2937) = V(1079) - ARP(2938) = V(1079)*V(5250) - ARP(2939) = V(1824) - ARP(2940) = V(1824)*V(5250) - ARP(2941) = V(192) - ARP(2942) = V(3166) - ARP(2943) = V(3166)*V(5250) - ARP(2944) = V(486)*V(5250) - ARP(2945) = V(1052)*V(5250) - ARP(2946) = V(1052) - ARP(2947) = V(2432)*V(5250) - ARP(2948) = V(2432) - ARP(2949) = V(186) - ARP(2950) = V(3091)*V(5250) - ARP(2951) = V(3091) - ARP(2952) = V(460)*V(5250) - ARP(2953) = V(848) - ARP(2954) = V(848)*V(5250) - ARP(2955) = V(2113) - ARP(2956) = V(2113)*V(5250) - ARP(2957) = V(196) - ARP(2958) = V(3110) - ARP(2959) = V(3110)*V(5250) - ARP(2960) = V(429)*V(5250) - ARP(2961) = V(1235) - ARP(2962) = V(1235)*V(5250) - ARP(2963) = V(2020) - ARP(2964) = V(2020)*V(5250) - ARP(2965) = V(2922) - ARP(2966) = V(2922) - ARP(2967) = V(1849)*V(5250) - ARP(2968) = V(1849)*V(5250) - ARP(2969) = V(1849) - ARP(2970) = V(3351) - ARP(2971) = V(3351) - ARP(2972) = V(5180)*V(5256) - ARP(2973) = V(5180)*V(5250) - ARP(2974) = V(5180) - ARP(2975) = V(1859)*V(5250) - ARP(2976) = V(1859)*V(5250) - ARP(2977) = V(1859) - ARP(2978) = V(3585) - ARP(2979) = V(3585) - ARP(2980) = V(4845)*V(5256) - ARP(2981) = V(4845)*V(5250) - ARP(2982) = V(4845) - ARP(2983) = V(2442)*V(5250) - ARP(2984) = V(2442)*V(5250) - ARP(2985) = V(2442) - ARP(2986) = V(3577) - ARP(2987) = V(3577) - ARP(2988) = V(4909)*V(5250) - ARP(2989) = V(4909) - ARP(2990) = V(1302)*V(5250) - ARP(2991) = V(1302) - ARP(2992) = V(3942) - ARP(2993) = V(3942) - ARP(2994) = V(3077)*V(5250) - ARP(2995) = V(3077) - ARP(2996) = V(1785)*V(5250) - ARP(2997) = V(1063)*V(5250) - ARP(2998) = V(1063) - ARP(2999) = V(3934) - ARP(3000) = V(3934) - ARP(3001) = V(3302)*V(5250) - ARP(3002) = V(3302) - ARP(3003) = V(3302) - ARP(3004) = V(4941)*V(5251) - ARP(3005) = V(4941)*V(5252) - ARP(3006) = V(4941)*V(5253) - ARP(3007) = V(4941)*V(5254) - ARP(3008) = V(4941) - ARP(3009) = V(4941) - ARP(3010) = V(3208)*V(5250) - ARP(3011) = V(3208)*V(5250) - ARP(3012) = V(3208) - ARP(3013) = V(2012) - ARP(3014) = V(5067)*V(5256) - ARP(3015) = V(5067)*V(5250) - ARP(3016) = V(5067) - ARP(3017) = V(1141)*V(5250) - ARP(3018) = V(1141) - ARP(3019) = V(3767) - ARP(3020) = V(3767) - ARP(3021) = V(3328)*V(5250) - ARP(3022) = V(3328) - ARP(3023) = V(1288)*V(5250) - ARP(3024) = V(1288) - ARP(3025) = V(2502) - ARP(3026) = V(1300)*V(5250) - ARP(3027) = V(1300) - ARP(3028) = V(3598) - ARP(3029) = V(3598) - ARP(3030) = V(4108)*V(5256) - ARP(3031) = V(4108)*V(5250) - ARP(3032) = V(4108) - ARP(3033) = V(4108) - ARP(3034) = V(4544)*V(5251) - ARP(3035) = V(4544)*V(5252) - ARP(3036) = V(4544)*V(5253) - ARP(3037) = V(4544)*V(5254) - ARP(3038) = V(4544) - ARP(3039) = V(2394)*V(5250) - ARP(3040) = V(2394)*V(5250) - ARP(3041) = V(2394) - ARP(3042) = V(3878) - ARP(3043) = V(3878) - ARP(3044) = V(3399)*V(5250) - ARP(3045) = V(3399) - ARP(3046) = V(2278)*V(5250) - ARP(3047) = V(2179)*V(5250) - ARP(3048) = V(2179)*V(5250) - ARP(3049) = V(2179) - ARP(3050) = V(3572) - ARP(3051) = V(3572) - ARP(3052) = V(4174)*V(5256) - ARP(3053) = V(4174)*V(5250) - ARP(3054) = V(4174) - ARP(3055) = V(2441)*V(5250) - ARP(3056) = V(4956)*V(5251) - ARP(3057) = V(4956)*V(5252) - ARP(3058) = V(4956)*V(5253) - ARP(3059) = V(4956)*V(5254) - ARP(3060) = V(4956) - ARP(3061) = V(4956) - ARP(3062) = V(3289)*V(5250) - ARP(3063) = V(3289)*V(5250) - ARP(3064) = V(3289) - ARP(3065) = V(1877) - ARP(3066) = V(3561)*V(5250) - ARP(3067) = V(3561) - ARP(3068) = V(926)*V(5250) - ARP(3069) = V(1778)*V(5250) - ARP(3070) = V(1778)*V(5250) - ARP(3071) = V(1778) - ARP(3072) = V(2549) - ARP(3073) = V(5009)*V(5256) - ARP(3074) = V(5009)*V(5250) - ARP(3075) = V(5009) - ARP(3076) = V(2413)*V(5250) - ARP(3077) = V(2413)*V(5250) - ARP(3078) = V(2413) - ARP(3079) = V(3956) - ARP(3080) = V(3956) - ARP(3081) = V(3418)*V(5250) - ARP(3082) = V(3418) - ARP(3083) = V(2449)*V(5250) - ARP(3084) = V(2449)*V(5250) - ARP(3085) = V(2449) - ARP(3086) = V(3922) - ARP(3087) = V(3922) - ARP(3088) = V(3409)*V(5250) - ARP(3089) = V(3409) - ARP(3090) = V(2447)*V(5250) - ARP(3091) = V(3266)*V(5250) - ARP(3092) = V(3266)*V(5250) - ARP(3093) = V(3266) - ARP(3094) = V(2158) - ARP(3095) = V(3656)*V(5250) - ARP(3096) = V(3656) - ARP(3097) = V(2369)*V(5250) - ARP(3098) = V(2369)*V(5250) - ARP(3099) = V(2369) - ARP(3100) = V(3592) - ARP(3101) = V(3592) - ARP(3102) = V(4114)*V(5256) - ARP(3103) = V(4114)*V(5250) - ARP(3104) = V(4114) - ARP(3105) = V(4114) - ARP(3106) = V(1391)*V(5250) - ARP(3107) = V(1391) - ARP(3108) = V(2851) - ARP(3109) = V(4320)*V(5251) - ARP(3110) = V(4320)*V(5252) - ARP(3111) = V(4320)*V(5253) - ARP(3112) = V(4320)*V(5254) - ARP(3113) = V(4320) - ARP(3114) = V(2069)*V(5250) - ARP(3115) = V(2069)*V(5250) - ARP(3116) = V(2069) - ARP(3117) = V(3887) - ARP(3118) = V(3887) - ARP(3119) = V(3432)*V(5250) - ARP(3120) = V(3432) - ARP(3121) = V(3175)*V(5250) - ARP(3122) = V(3175) - ARP(3123) = V(2363)*V(5250) - ARP(3124) = V(2363)*V(5250) - ARP(3125) = V(2363) - ARP(3126) = V(3575) - ARP(3127) = V(3575) - ARP(3128) = V(4160)*V(5256) - ARP(3129) = V(4160)*V(5250) - ARP(3130) = V(4160) - ARP(3131) = V(4868)*V(5251) - ARP(3132) = V(4868)*V(5252) - ARP(3133) = V(4868)*V(5253) - ARP(3134) = V(4868)*V(5254) - ARP(3135) = V(4868) - ARP(3136) = V(4868) - ARP(3137) = V(2135)*V(5250) - ARP(3138) = V(2135)*V(5250) - ARP(3139) = V(2135) - ARP(3140) = V(3268) - ARP(3141) = V(4961)*V(5256) - ARP(3142) = V(4961)*V(5250) - ARP(3143) = V(4961) - ARP(3144) = V(2366)*V(5250) - ARP(3145) = V(2366)*V(5250) - ARP(3146) = V(2366) - ARP(3147) = V(3970) - ARP(3148) = V(3970) - ARP(3149) = V(3364)*V(5250) - ARP(3150) = V(3364) - ARP(3151) = V(1072)*V(5250) - ARP(3152) = V(1072) - ARP(3153) = V(2831) - ARP(3154) = V(976)*V(5250) - ARP(3155) = V(976)*V(5250) - ARP(3156) = V(3002) - ARP(3157) = V(3002) - ARP(3158) = V(4155)*V(5256) - ARP(3159) = V(4155)*V(5250) - ARP(3160) = V(4155) - ARP(3161) = V(1827)*V(5250) - ARP(3162) = V(2125)*V(5250) - ARP(3163) = V(2125)*V(5250) - ARP(3164) = V(2125) - ARP(3165) = V(3925) - ARP(3166) = V(3925) - ARP(3167) = V(3349)*V(5250) - ARP(3168) = V(3349) - ARP(3169) = V(2011)*V(5250) - ARP(3170) = V(4838)*V(5251) - ARP(3171) = V(4838)*V(5252) - ARP(3172) = V(4838)*V(5253) - ARP(3173) = V(4838)*V(5254) - ARP(3174) = V(4838) - ARP(3175) = V(4838) - ARP(3176) = V(3308)*V(5250) - ARP(3177) = V(3308)*V(5250) - ARP(3178) = V(3308) - ARP(3179) = V(1927) - ARP(3180) = V(3542)*V(5250) - ARP(3181) = V(3542) - ARP(3182) = V(1386)*V(5250) - ARP(3183) = V(1774) - ARP(3184) = V(1774)*V(5250) - ARP(3185) = V(1774)*V(5250) - ARP(3186) = V(2944) - ARP(3187) = V(4873) - ARP(3188) = V(4873)*V(5256) - ARP(3189) = V(4873)*V(5250) - ARP(3190) = V(2455)*V(5250) - ARP(3191) = V(2455)*V(5250) - ARP(3192) = V(2455) - ARP(3193) = V(3910) - ARP(3194) = V(3910) - ARP(3195) = V(3341)*V(5250) - ARP(3196) = V(3341) - ARP(3197) = V(2370)*V(5250) - ARP(3198) = V(1940)*V(5250) - ARP(3199) = V(1940)*V(5250) - ARP(3200) = V(1940) - ARP(3201) = V(3842) - ARP(3202) = V(3842) - ARP(3203) = V(3376)*V(5250) - ARP(3204) = V(3376) - ARP(3205) = V(2067)*V(5250) - ARP(3206) = V(1767)*V(5250) - ARP(3207) = V(1767)*V(5250) - ARP(3208) = V(1767) - ARP(3209) = V(2912) - ARP(3210) = V(1121)*V(5250) - ARP(3211) = V(3757)*V(5250) - ARP(3212) = V(3757) - ARP(3213) = V(2133)*V(5250) - ARP(3214) = V(2133)*V(5250) - ARP(3215) = V(2133) - ARP(3216) = V(2849) - ARP(3217) = V(4223)*V(5250) - ARP(3218) = V(4223) - ARP(3219) = V(2068)*V(5250) - ARP(3220) = V(2068) - ARP(3221) = V(573) - ARP(3222) = V(3188)*V(5250) - ARP(3223) = V(1171)*V(5250) - ARP(3224) = V(1171) - ARP(3225) = V(1754) - ARP(3226) = V(32)*V(5250) - ARP(3227) = V(1434)*V(5250) - ARP(3228) = V(1434) - ARP(3229) = V(2341)*V(5250) - ARP(3230) = V(2341) - ARP(3231) = V(3342) - ARP(3232) = V(3342) - ARP(3233) = V(517)*V(5250) - ARP(3234) = V(3121)*V(5250) - ARP(3235) = V(3121) - ARP(3236) = V(4649)*V(5255) - ARP(3237) = V(4649)*V(5255) - ARP(3238) = V(4649)*V(5255) - ARP(3239) = V(4649)*V(5252) - ARP(3240) = V(4649)*V(5253) - ARP(3241) = V(4649)*V(5256) - ARP(3242) = V(4649) - ARP(3243) = V(4649) - ARP(3244) = V(4721)*V(5256) - ARP(3245) = V(4721)*V(5250) - ARP(3246) = V(4721) - ARP(3247) = V(4588) - ARP(3248) = V(4588) - ARP(3249) = V(4588) - ARP(3250) = V(4588) - ARP(3251) = V(4720)*V(5255) - ARP(3252) = V(4720)*V(5252) - ARP(3253) = V(4720)*V(5252) - ARP(3254) = V(4720)*V(5256) - ARP(3255) = V(4720) - ARP(3256) = V(4720) - ARP(3257) = V(4720) - ARP(3258) = V(4513)*V(5255) - ARP(3259) = V(4513)*V(5252) - ARP(3260) = V(4513)*V(5256) - ARP(3261) = V(4513) - ARP(3262) = V(4513) - ARP(3263) = V(4513) - ARP(3264) = V(5058)*V(5256) - ARP(3265) = V(5058)*V(5258) - ARP(3266) = V(5058)*V(5250) - ARP(3267) = V(5058)*V(5250) - ARP(3268) = V(5058) - ARP(3269) = V(5058) - ARP(3270) = V(4965)*V(5253) - ARP(3271) = V(4965)*V(5258) - ARP(3272) = V(3903)*V(5255) - ARP(3273) = V(3903)*V(5252) - ARP(3274) = V(3903)*V(5256) - ARP(3275) = V(3903) - ARP(3276) = V(3903) - ARP(3277) = V(3830)*V(5256) - ARP(3278) = V(3830)*V(5258) - ARP(3279) = V(3830)*V(5250) - ARP(3280) = V(3786)*V(5255) - ARP(3281) = V(3786)*V(5252) - ARP(3282) = V(3786)*V(5256) - ARP(3283) = V(3786) - ARP(3284) = V(3786) - ARP(3285) = V(1341)*V(5250) - ARP(3286) = V(1341) - ARP(3287) = V(1794)*V(5250) - ARP(3288) = V(1794) - ARP(3289) = V(1792) - ARP(3290) = V(444)*V(5250) - ARP(3291) = V(3538)*V(5255) - ARP(3292) = V(3538)*V(5252) - ARP(3293) = V(3538)*V(5256) - ARP(3294) = V(3538) - ARP(3295) = V(3538) - ARP(3296) = V(3827)*V(5255) - ARP(3297) = V(3827)*V(5252) - ARP(3298) = V(3827)*V(5256) - ARP(3299) = V(3827) - ARP(3300) = V(3827) - ARP(3301) = V(3793)*V(5253) - ARP(3302) = V(3793)*V(5258) - ARP(3303) = V(3545)*V(5256) - ARP(3304) = V(3545)*V(5258) - ARP(3305) = V(3545)*V(5250) - ARP(3306) = V(1307)*V(5250) - ARP(3307) = V(1307) - ARP(3308) = V(3824) - ARP(3309) = V(3824) - ARP(3310) = V(3824) - ARP(3311) = V(3824) - ARP(3312) = V(3824) - ARP(3313) = V(2383)*V(5250) - ARP(3314) = V(2383) - ARP(3315) = V(361)*V(5250) - ARP(3316) = V(3372)*V(5250) - ARP(3317) = V(3372) - ARP(3318) = V(4626)*V(5255) - ARP(3319) = V(4626)*V(5255) - ARP(3320) = V(4626)*V(5255) - ARP(3321) = V(4626)*V(5252) - ARP(3322) = V(4626)*V(5253) - ARP(3323) = V(4626)*V(5256) - ARP(3324) = V(4626) - ARP(3325) = V(4626) - ARP(3326) = V(4084) - ARP(3327) = V(4084) - ARP(3328) = V(4084) - ARP(3329) = V(4084) - ARP(3330) = V(4821)*V(5255) - ARP(3331) = V(4821)*V(5252) - ARP(3332) = V(4821)*V(5252) - ARP(3333) = V(4821)*V(5256) - ARP(3334) = V(4821) - ARP(3335) = V(4821) - ARP(3336) = V(4821) - ARP(3337) = V(4432)*V(5255) - ARP(3338) = V(4432)*V(5252) - ARP(3339) = V(4432)*V(5256) - ARP(3340) = V(4432) - ARP(3341) = V(4432) - ARP(3342) = V(4432) - ARP(3343) = V(1287)*V(5250) - ARP(3344) = V(1287) - ARP(3345) = V(2014)*V(5250) - ARP(3346) = V(2014) - ARP(3347) = V(2015) - ARP(3348) = V(3643)*V(5256) - ARP(3349) = V(3643)*V(5250) - ARP(3350) = V(3643) - ARP(3351) = V(3643) - ARP(3352) = V(225)*V(5250) - ARP(3353) = V(1451)*V(5250) - ARP(3354) = V(1451) - ARP(3355) = V(3435)*V(5250) - ARP(3356) = V(3435) - ARP(3357) = V(4950) - ARP(3358) = V(4950) - ARP(3359) = V(4950) - ARP(3360) = V(4950) - ARP(3361) = V(4950) - ARP(3362) = V(4950) - ARP(3363) = V(135)*V(5250) - ARP(3364) = V(4833)*V(5255) - ARP(3365) = V(4833)*V(5255) - ARP(3366) = V(4833)*V(5255) - ARP(3367) = V(4833)*V(5252) - ARP(3368) = V(4833)*V(5253) - ARP(3369) = V(4833)*V(5256) - ARP(3370) = V(4833) - ARP(3371) = V(4833) - ARP(3372) = V(4547)*V(5256) - ARP(3373) = V(4547)*V(5250) - ARP(3374) = V(4547) - ARP(3375) = V(4707)*V(5255) - ARP(3376) = V(4707)*V(5252) - ARP(3377) = V(4707)*V(5252) - ARP(3378) = V(4707)*V(5256) - ARP(3379) = V(4707) - ARP(3380) = V(4707) - ARP(3381) = V(4707) - ARP(3382) = V(4887)*V(5255) - ARP(3383) = V(4887)*V(5252) - ARP(3384) = V(4887)*V(5256) - ARP(3385) = V(4887) - ARP(3386) = V(4887) - ARP(3387) = V(3820)*V(5255) - ARP(3388) = V(3820)*V(5252) - ARP(3389) = V(3820)*V(5256) - ARP(3390) = V(3820) - ARP(3391) = V(3820) - ARP(3392) = V(4478)*V(5253) - ARP(3393) = V(4478)*V(5258) - ARP(3394) = V(3491)*V(5255) - ARP(3395) = V(3491)*V(5252) - ARP(3396) = V(3491)*V(5256) - ARP(3397) = V(3491) - ARP(3398) = V(3491) - ARP(3399) = V(3508)*V(5256) - ARP(3400) = V(3508)*V(5258) - ARP(3401) = V(3508)*V(5250) - ARP(3402) = V(1484)*V(5250) - ARP(3403) = V(1484) - ARP(3404) = V(1819)*V(5250) - ARP(3405) = V(1819) - ARP(3406) = V(1820) - ARP(3407) = V(3640)*V(5256) - ARP(3408) = V(3640)*V(5250) - ARP(3409) = V(3640) - ARP(3410) = V(3640) - ARP(3411) = V(332)*V(5250) - ARP(3412) = V(1276)*V(5250) - ARP(3413) = V(1276) - ARP(3414) = V(2317)*V(5250) - ARP(3415) = V(2317) - ARP(3416) = V(4004) - ARP(3417) = V(4004) - ARP(3418) = V(4004) - ARP(3419) = V(4004) - ARP(3420) = V(4004) - ARP(3421) = V(292)*V(5250) - ARP(3422) = V(3599)*V(5250) - ARP(3423) = V(3599)*V(5250) - ARP(3424) = V(3599) - ARP(3425) = V(3599) - ARP(3426) = V(4892)*V(5255) - ARP(3427) = V(4892)*V(5255) - ARP(3428) = V(4892)*V(5255) - ARP(3429) = V(4892)*V(5252) - ARP(3430) = V(4892)*V(5253) - ARP(3431) = V(4892)*V(5256) - ARP(3432) = V(4892) - ARP(3433) = V(4892) - ARP(3434) = V(4729)*V(5256) - ARP(3435) = V(4729)*V(5250) - ARP(3436) = V(4729) - ARP(3437) = V(4718)*V(5255) - ARP(3438) = V(4718)*V(5252) - ARP(3439) = V(4718)*V(5252) - ARP(3440) = V(4718)*V(5256) - ARP(3441) = V(4718) - ARP(3442) = V(4718) - ARP(3443) = V(4718) - ARP(3444) = V(4483)*V(5255) - ARP(3445) = V(4483)*V(5252) - ARP(3446) = V(4483)*V(5256) - ARP(3447) = V(4483) - ARP(3448) = V(4483) - ARP(3449) = V(4483) - ARP(3450) = V(4408)*V(5253) - ARP(3451) = V(4408)*V(5258) - ARP(3452) = V(3531)*V(5255) - ARP(3453) = V(3531)*V(5252) - ARP(3454) = V(3531)*V(5256) - ARP(3455) = V(3531) - ARP(3456) = V(3531) - ARP(3457) = V(3796)*V(5255) - ARP(3458) = V(3796)*V(5252) - ARP(3459) = V(3796)*V(5256) - ARP(3460) = V(3796) - ARP(3461) = V(3796) - ARP(3462) = V(3560)*V(5256) - ARP(3463) = V(3560)*V(5258) - ARP(3464) = V(3560)*V(5250) - ARP(3465) = V(922)*V(5250) - ARP(3466) = V(922) - ARP(3467) = V(2309)*V(5250) - ARP(3468) = V(2309) - ARP(3469) = V(1821) - ARP(3470) = V(3657)*V(5256) - ARP(3471) = V(3657)*V(5250) - ARP(3472) = V(3657) - ARP(3473) = V(3657) - ARP(3474) = V(262)*V(5250) - ARP(3475) = V(1533)*V(5250) - ARP(3476) = V(1533) - ARP(3477) = V(2782)*V(5250) - ARP(3478) = V(2782) - ARP(3479) = V(3754) - ARP(3480) = V(3754) - ARP(3481) = V(3754) - ARP(3482) = V(102)*V(5250) - ARP(3483) = V(4692)*V(5255) - ARP(3484) = V(4692)*V(5255) - ARP(3485) = V(4692)*V(5255) - ARP(3486) = V(4692)*V(5252) - ARP(3487) = V(4692)*V(5253) - ARP(3488) = V(4692)*V(5256) - ARP(3489) = V(4692) - ARP(3490) = V(4692) - ARP(3491) = V(4699)*V(5255) - ARP(3492) = V(4699)*V(5252) - ARP(3493) = V(4699)*V(5252) - ARP(3494) = V(4699)*V(5256) - ARP(3495) = V(4699) - ARP(3496) = V(4699) - ARP(3497) = V(4699) - ARP(3498) = V(4893)*V(5255) - ARP(3499) = V(4893)*V(5252) - ARP(3500) = V(4893)*V(5256) - ARP(3501) = V(4893) - ARP(3502) = V(4893) - ARP(3503) = V(3808)*V(5255) - ARP(3504) = V(3808)*V(5252) - ARP(3505) = V(3808)*V(5256) - ARP(3506) = V(3808) - ARP(3507) = V(3808) - ARP(3508) = V(4495)*V(5253) - ARP(3509) = V(4495)*V(5258) - ARP(3510) = V(3534)*V(5255) - ARP(3511) = V(3534)*V(5252) - ARP(3512) = V(3534)*V(5256) - ARP(3513) = V(3534) - ARP(3514) = V(3534) - ARP(3515) = V(3512)*V(5256) - ARP(3516) = V(3512)*V(5258) - ARP(3517) = V(3512)*V(5250) - ARP(3518) = V(966)*V(5250) - ARP(3519) = V(966) - ARP(3520) = V(1796) - ARP(3521) = V(2302)*V(5250) - ARP(3522) = V(2302) - ARP(3523) = V(277)*V(5250) - ARP(3524) = V(3649)*V(5256) - ARP(3525) = V(3649)*V(5250) - ARP(3526) = V(3649) - ARP(3527) = V(4453)*V(5253) - ARP(3528) = V(4453)*V(5258) - ARP(3529) = V(3562)*V(5255) - ARP(3530) = V(3562)*V(5252) - ARP(3531) = V(3562)*V(5256) - ARP(3532) = V(3562) - ARP(3533) = V(3562) - ARP(3534) = V(3813)*V(5255) - ARP(3535) = V(3813)*V(5252) - ARP(3536) = V(3813)*V(5256) - ARP(3537) = V(3813) - ARP(3538) = V(3813) - ARP(3539) = V(3831)*V(5256) - ARP(3540) = V(3831)*V(5258) - ARP(3541) = V(3831)*V(5250) - ARP(3542) = V(1211)*V(5250) - ARP(3543) = V(1211) - ARP(3544) = V(3812) - ARP(3545) = V(3812) - ARP(3546) = V(3812) - ARP(3547) = V(3812) - ARP(3548) = V(1964)*V(5250) - ARP(3549) = V(1964) - ARP(3550) = V(428)*V(5250) - ARP(3551) = V(3089)*V(5250) - ARP(3552) = V(3089) - ARP(3553) = V(4641)*V(5255) - ARP(3554) = V(4641)*V(5255) - ARP(3555) = V(4641)*V(5255) - ARP(3556) = V(4641)*V(5252) - ARP(3557) = V(4641)*V(5253) - ARP(3558) = V(4641)*V(5256) - ARP(3559) = V(4641) - ARP(3560) = V(4641) - ARP(3561) = V(4081) - ARP(3562) = V(4081) - ARP(3563) = V(4081) - ARP(3564) = V(4081) - ARP(3565) = V(4701)*V(5255) - ARP(3566) = V(4701)*V(5252) - ARP(3567) = V(4701)*V(5252) - ARP(3568) = V(4701)*V(5256) - ARP(3569) = V(4701) - ARP(3570) = V(4701) - ARP(3571) = V(4701) - ARP(3572) = V(4667)*V(5255) - ARP(3573) = V(4667)*V(5252) - ARP(3574) = V(4667)*V(5256) - ARP(3575) = V(4667) - ARP(3576) = V(4667) - ARP(3577) = V(4667) - ARP(3578) = V(1315)*V(5250) - ARP(3579) = V(1315) - ARP(3580) = V(2321)*V(5250) - ARP(3581) = V(2321) - ARP(3582) = V(2322) - ARP(3583) = V(464)*V(5250) - ARP(3584) = V(3368)*V(5250) - ARP(3585) = V(3368) - ARP(3586) = V(3799)*V(5255) - ARP(3587) = V(3799)*V(5252) - ARP(3588) = V(3799)*V(5256) - ARP(3589) = V(3799) - ARP(3590) = V(3799) - ARP(3591) = V(4479)*V(5253) - ARP(3592) = V(4479)*V(5258) - ARP(3593) = V(3554)*V(5255) - ARP(3594) = V(3554)*V(5252) - ARP(3595) = V(3554)*V(5256) - ARP(3596) = V(3554) - ARP(3597) = V(3554) - ARP(3598) = V(3701)*V(5256) - ARP(3599) = V(3701)*V(5258) - ARP(3600) = V(3701)*V(5250) - ARP(3601) = V(1027)*V(5250) - ARP(3602) = V(1027) - ARP(3603) = V(3805) - ARP(3604) = V(3805) - ARP(3605) = V(3805) - ARP(3606) = V(3805) - ARP(3607) = V(2406)*V(5250) - ARP(3608) = V(2406) - ARP(3609) = V(436)*V(5250) - ARP(3610) = V(3174)*V(5250) - ARP(3611) = V(3174) - ARP(3612) = V(4829)*V(5255) - ARP(3613) = V(4829)*V(5255) - ARP(3614) = V(4829)*V(5255) - ARP(3615) = V(4829)*V(5252) - ARP(3616) = V(4829)*V(5253) - ARP(3617) = V(4829)*V(5256) - ARP(3618) = V(4829) - ARP(3619) = V(4829) - ARP(3620) = V(2148) - ARP(3621) = V(2148) - ARP(3622) = V(2148) - ARP(3623) = V(2148) - ARP(3624) = V(4377)*V(5255) - ARP(3625) = V(4377)*V(5252) - ARP(3626) = V(4377)*V(5252) - ARP(3627) = V(4377)*V(5256) - ARP(3628) = V(4377) - ARP(3629) = V(4377) - ARP(3630) = V(4377) - ARP(3631) = V(4683)*V(5255) - ARP(3632) = V(4683)*V(5252) - ARP(3633) = V(4683)*V(5256) - ARP(3634) = V(4683) - ARP(3635) = V(4683) - ARP(3636) = V(4683) - ARP(3637) = V(1431)*V(5250) - ARP(3638) = V(1431) - ARP(3639) = V(3439)*V(5250) - ARP(3640) = V(3439) - ARP(3641) = V(3440) - ARP(3642) = V(89)*V(5250) - ARP(3643) = V(4457)*V(5253) - ARP(3644) = V(4457)*V(5258) - ARP(3645) = V(3539)*V(5255) - ARP(3646) = V(3539)*V(5252) - ARP(3647) = V(3539)*V(5256) - ARP(3648) = V(3539) - ARP(3649) = V(3539) - ARP(3650) = V(3815)*V(5255) - ARP(3651) = V(3815)*V(5252) - ARP(3652) = V(3815)*V(5256) - ARP(3653) = V(3815) - ARP(3654) = V(3815) - ARP(3655) = V(3684)*V(5256) - ARP(3656) = V(3684)*V(5258) - ARP(3657) = V(3684)*V(5250) - ARP(3658) = V(1039)*V(5250) - ARP(3659) = V(1039) - ARP(3660) = V(3795) - ARP(3661) = V(3795) - ARP(3662) = V(3795) - ARP(3663) = V(3795) - ARP(3664) = V(2418)*V(5250) - ARP(3665) = V(2418) - ARP(3666) = V(283)*V(5250) - ARP(3667) = V(3122)*V(5250) - ARP(3668) = V(3122) - ARP(3669) = V(4635)*V(5255) - ARP(3670) = V(4635)*V(5255) - ARP(3671) = V(4635)*V(5255) - ARP(3672) = V(4635)*V(5252) - ARP(3673) = V(4635)*V(5253) - ARP(3674) = V(4635)*V(5256) - ARP(3675) = V(4635) - ARP(3676) = V(4635) - ARP(3677) = V(3210) - ARP(3678) = V(3210) - ARP(3679) = V(3210) - ARP(3680) = V(3210) - ARP(3681) = V(4928)*V(5255) - ARP(3682) = V(4928)*V(5252) - ARP(3683) = V(4928)*V(5252) - ARP(3684) = V(4928)*V(5256) - ARP(3685) = V(4928) - ARP(3686) = V(4928) - ARP(3687) = V(4928) - ARP(3688) = V(4675)*V(5255) - ARP(3689) = V(4675)*V(5252) - ARP(3690) = V(4675)*V(5256) - ARP(3691) = V(4675) - ARP(3692) = V(4675) - ARP(3693) = V(4675) - ARP(3694) = V(1542)*V(5250) - ARP(3695) = V(1542) - ARP(3696) = V(1881)*V(5250) - ARP(3697) = V(1881) - ARP(3698) = V(1860) - ARP(3699) = V(3661)*V(5256) - ARP(3700) = V(3661)*V(5250) - ARP(3701) = V(3661) - ARP(3702) = V(3661) - ARP(3703) = V(396)*V(5250) - ARP(3704) = V(3663)*V(5255) - ARP(3705) = V(3663)*V(5252) - ARP(3706) = V(3663)*V(5256) - ARP(3707) = V(3663) - ARP(3708) = V(3663) - ARP(3709) = V(4494)*V(5253) - ARP(3710) = V(4494)*V(5258) - ARP(3711) = V(3627)*V(5255) - ARP(3712) = V(3627)*V(5252) - ARP(3713) = V(3627)*V(5256) - ARP(3714) = V(3627) - ARP(3715) = V(3627) - ARP(3716) = V(3482)*V(5256) - ARP(3717) = V(3482)*V(5258) - ARP(3718) = V(3482)*V(5250) - ARP(3719) = V(956)*V(5250) - ARP(3720) = V(956) - ARP(3721) = V(2241)*V(5250) - ARP(3722) = V(2241) - ARP(3723) = V(4937) - ARP(3724) = V(4937) - ARP(3725) = V(4937) - ARP(3726) = V(4937) - ARP(3727) = V(4937) - ARP(3728) = V(4937) - ARP(3729) = V(274)*V(5250) - ARP(3730) = V(3103)*V(5250) - ARP(3731) = V(3103) - ARP(3732) = V(4630)*V(5256) - ARP(3733) = V(4630)*V(5250) - ARP(3734) = V(4630) - ARP(3735) = V(4630) - ARP(3736) = V(4971)*V(5255) - ARP(3737) = V(4971)*V(5252) - ARP(3738) = V(4971)*V(5252) - ARP(3739) = V(4971)*V(5256) - ARP(3740) = V(4971) - ARP(3741) = V(4971) - ARP(3742) = V(4971) - ARP(3743) = V(1458)*V(5250) - ARP(3744) = V(1458) - ARP(3745) = V(1772)*V(5250) - ARP(3746) = V(1772) - ARP(3747) = V(1773) - ARP(3748) = V(3655)*V(5256) - ARP(3749) = V(3655)*V(5250) - ARP(3750) = V(3655) - ARP(3751) = V(3655) - ARP(3752) = V(480)*V(5250) - ARP(3753) = V(1486)*V(5250) - ARP(3754) = V(1486) - ARP(3755) = V(2605)*V(5250) - ARP(3756) = V(2605) - ARP(3757) = V(5030) - ARP(3758) = V(5030) - ARP(3759) = V(5030) - ARP(3760) = V(5030) - ARP(3761) = V(5030) - ARP(3762) = V(5030) - ARP(3763) = V(52)*V(5250) - ARP(3764) = V(3828)*V(5255) - ARP(3765) = V(3828)*V(5252) - ARP(3766) = V(3828)*V(5256) - ARP(3767) = V(3828) - ARP(3768) = V(3828) - ARP(3769) = V(4407)*V(5253) - ARP(3770) = V(4407)*V(5258) - ARP(3771) = V(3518)*V(5255) - ARP(3772) = V(3518)*V(5252) - ARP(3773) = V(3518)*V(5256) - ARP(3774) = V(3518) - ARP(3775) = V(3518) - ARP(3776) = V(3494)*V(5256) - ARP(3777) = V(3494)*V(5258) - ARP(3778) = V(3494)*V(5250) - ARP(3779) = V(4948)*V(5255) - ARP(3780) = V(4948)*V(5255) - ARP(3781) = V(4948)*V(5255) - ARP(3782) = V(4948)*V(5252) - ARP(3783) = V(4948)*V(5253) - ARP(3784) = V(4948)*V(5256) - ARP(3785) = V(4948) - ARP(3786) = V(4948) - ARP(3787) = V(4803)*V(5255) - ARP(3788) = V(4803)*V(5252) - ARP(3789) = V(4803)*V(5252) - ARP(3790) = V(4803)*V(5256) - ARP(3791) = V(4803) - ARP(3792) = V(4803) - ARP(3793) = V(4803) - ARP(3794) = V(4899)*V(5255) - ARP(3795) = V(4899)*V(5252) - ARP(3796) = V(4899)*V(5256) - ARP(3797) = V(4899) - ARP(3798) = V(4899) - ARP(3799) = V(1385)*V(5250) - ARP(3800) = V(1385) - ARP(3801) = V(2232)*V(5250) - ARP(3802) = V(2232) - ARP(3803) = V(1903) - ARP(3804) = V(3645)*V(5256) - ARP(3805) = V(3645)*V(5250) - ARP(3806) = V(3645) - ARP(3807) = V(3645) - ARP(3808) = V(431)*V(5250) - ARP(3809) = V(1310)*V(5250) - ARP(3810) = V(1310) - ARP(3811) = V(2372)*V(5250) - ARP(3812) = V(2372) - ARP(3813) = V(3332) - ARP(3814) = V(3332) - ARP(3815) = V(523)*V(5250) - ARP(3816) = V(3082)*V(5250) - ARP(3817) = V(3082) - ARP(3818) = V(3641)*V(5255) - ARP(3819) = V(3641)*V(5252) - ARP(3820) = V(3641)*V(5256) - ARP(3821) = V(3641) - ARP(3822) = V(3641) - ARP(3823) = V(707)*V(5255) - ARP(3824) = V(3648)*V(5255) - ARP(3825) = V(3648)*V(5252) - ARP(3826) = V(3648)*V(5256) - ARP(3827) = V(3648) - ARP(3828) = V(3648) - ARP(3829) = V(4807)*V(5255) - ARP(3830) = V(4807)*V(5255) - ARP(3831) = V(4807)*V(5255) - ARP(3832) = V(4807)*V(5252) - ARP(3833) = V(4807)*V(5253) - ARP(3834) = V(4807)*V(5256) - ARP(3835) = V(4807) - ARP(3836) = V(4807) - ARP(3837) = V(4569)*V(5256) - ARP(3838) = V(4569)*V(5250) - ARP(3839) = V(4569) - ARP(3840) = V(4569) - ARP(3841) = V(3133) - ARP(3842) = V(3133) - ARP(3843) = V(4568)*V(5255) - ARP(3844) = V(4568)*V(5252) - ARP(3845) = V(4568)*V(5252) - ARP(3846) = V(4568)*V(5256) - ARP(3847) = V(4568) - ARP(3848) = V(4568) - ARP(3849) = V(4935)*V(5255) - ARP(3850) = V(4935)*V(5252) - ARP(3851) = V(4935)*V(5256) - ARP(3852) = V(4935) - ARP(3853) = V(4935) - ARP(3854) = V(4935) - ARP(3855) = V(1150)*V(5250) - ARP(3856) = V(1150) - ARP(3857) = V(2087)*V(5250) - ARP(3858) = V(2087) - ARP(3859) = V(2088) - ARP(3860) = V(446)*V(5250) - ARP(3861) = V(3331)*V(5250) - ARP(3862) = V(3331) - ARP(3863) = V(1535)*V(5250) - ARP(3864) = V(1535) - ARP(3865) = V(3445)*V(5250) - ARP(3866) = V(3445) - ARP(3867) = V(4177) - ARP(3868) = V(4177) - ARP(3869) = V(4177) - ARP(3870) = V(4177) - ARP(3871) = V(4177) - ARP(3872) = V(4177) - ARP(3873) = V(54)*V(5250) - ARP(3874) = V(4654)*V(5255) - ARP(3875) = V(4654)*V(5255) - ARP(3876) = V(4654)*V(5255) - ARP(3877) = V(4654)*V(5252) - ARP(3878) = V(4654)*V(5253) - ARP(3879) = V(4654)*V(5256) - ARP(3880) = V(4654) - ARP(3881) = V(4654) - ARP(3882) = V(4576)*V(5256) - ARP(3883) = V(4576)*V(5250) - ARP(3884) = V(4576) - ARP(3885) = V(4575)*V(5255) - ARP(3886) = V(4575)*V(5252) - ARP(3887) = V(4575)*V(5252) - ARP(3888) = V(4575)*V(5256) - ARP(3889) = V(4575) - ARP(3890) = V(4575) - ARP(3891) = V(4575) - ARP(3892) = V(4311)*V(5255) - ARP(3893) = V(4311)*V(5252) - ARP(3894) = V(4311)*V(5256) - ARP(3895) = V(4311) - ARP(3896) = V(4311) - ARP(3897) = V(3665)*V(5255) - ARP(3898) = V(3665)*V(5252) - ARP(3899) = V(3665)*V(5256) - ARP(3900) = V(3665) - ARP(3901) = V(3665) - ARP(3902) = V(4438)*V(5253) - ARP(3903) = V(4438)*V(5258) - ARP(3904) = V(3503)*V(5255) - ARP(3905) = V(3503)*V(5252) - ARP(3906) = V(3503)*V(5256) - ARP(3907) = V(3503) - ARP(3908) = V(3503) - ARP(3909) = V(3506)*V(5256) - ARP(3910) = V(3506)*V(5258) - ARP(3911) = V(3506)*V(5250) - ARP(3912) = V(861)*V(5250) - ARP(3913) = V(861) - ARP(3914) = V(1896)*V(5250) - ARP(3915) = V(1896) - ARP(3916) = V(3826) - ARP(3917) = V(3826) - ARP(3918) = V(3826) - ARP(3919) = V(3826) - ARP(3920) = V(3826) - ARP(3921) = V(22)*V(5250) - ARP(3922) = V(2021)*V(5250) - ARP(3923) = V(2021) - ARP(3924) = V(4132)*V(5255) - ARP(3925) = V(4132)*V(5255) - ARP(3926) = V(4132)*V(5255) - ARP(3927) = V(4132)*V(5253) - ARP(3928) = V(4132)*V(5253) - ARP(3929) = V(4132)*V(5256) - ARP(3930) = V(4132) - ARP(3931) = V(4132) - ARP(3932) = V(4725)*V(5255) - ARP(3933) = V(4725)*V(5252) - ARP(3934) = V(4725)*V(5252) - ARP(3935) = V(4725)*V(5256) - ARP(3936) = V(4725) - ARP(3937) = V(4725) - ARP(3938) = V(4725) - ARP(3939) = V(4897)*V(5255) - ARP(3940) = V(4897)*V(5252) - ARP(3941) = V(4897)*V(5256) - ARP(3942) = V(4897) - ARP(3943) = V(4897) - ARP(3944) = V(4897) - ARP(3945) = V(4437)*V(5253) - ARP(3946) = V(4437)*V(5258) - ARP(3947) = V(3511)*V(5255) - ARP(3948) = V(3511)*V(5252) - ARP(3949) = V(3511)*V(5256) - ARP(3950) = V(3511) - ARP(3951) = V(3511) - ARP(3952) = V(3791)*V(5255) - ARP(3953) = V(3791)*V(5252) - ARP(3954) = V(3791)*V(5256) - ARP(3955) = V(3791) - ARP(3956) = V(3791) - ARP(3957) = V(3499)*V(5256) - ARP(3958) = V(3499)*V(5258) - ARP(3959) = V(3499)*V(5250) - ARP(3960) = V(1525)*V(5250) - ARP(3961) = V(1525) - ARP(3962) = V(1000)*V(5250) - ARP(3963) = V(1000) - ARP(3964) = V(3802) - ARP(3965) = V(3802) - ARP(3966) = V(3802) - ARP(3967) = V(3802) - ARP(3968) = V(129)*V(5250) - ARP(3969) = V(4633)*V(5255) - ARP(3970) = V(4633)*V(5255) - ARP(3971) = V(4633)*V(5255) - ARP(3972) = V(4633)*V(5252) - ARP(3973) = V(4633)*V(5253) - ARP(3974) = V(4633)*V(5256) - ARP(3975) = V(4633) - ARP(3976) = V(4633) - ARP(3977) = V(4727)*V(5255) - ARP(3978) = V(4727)*V(5252) - ARP(3979) = V(4727)*V(5252) - ARP(3980) = V(4727)*V(5256) - ARP(3981) = V(4727) - ARP(3982) = V(4727) - ARP(3983) = V(4727) - ARP(3984) = V(4905)*V(5255) - ARP(3985) = V(4905)*V(5252) - ARP(3986) = V(4905)*V(5256) - ARP(3987) = V(4905) - ARP(3988) = V(4905) - ARP(3989) = V(3825)*V(5255) - ARP(3990) = V(3825)*V(5252) - ARP(3991) = V(3825)*V(5256) - ARP(3992) = V(3825) - ARP(3993) = V(3825) - ARP(3994) = V(4504)*V(5253) - ARP(3995) = V(4504)*V(5258) - ARP(3996) = V(3489)*V(5255) - ARP(3997) = V(3489)*V(5252) - ARP(3998) = V(3489)*V(5256) - ARP(3999) = V(3489) - ARP(4000) = V(3489) - ARP(4001) = V(3551)*V(5256) - ARP(4002) = V(3551)*V(5258) - ARP(4003) = V(3551)*V(5250) - ARP(4004) = V(1270)*V(5250) - ARP(4005) = V(1270) - ARP(4006) = V(2333)*V(5250) - ARP(4007) = V(2333) - ARP(4008) = V(2334) - ARP(4009) = V(505)*V(5250) - ARP(4010) = V(3412)*V(5250) - ARP(4011) = V(3412) - ARP(4012) = V(1200)*V(5250) - ARP(4013) = V(1200) - ARP(4014) = V(1216)*V(5250) - ARP(4015) = V(1216) - ARP(4016) = V(3818) - ARP(4017) = V(3818) - ARP(4018) = V(3818) - ARP(4019) = V(3818) - ARP(4020) = V(81)*V(5250) - ARP(4021) = V(634)*V(5250) - ARP(4022) = V(634) - ARP(4023) = V(4685)*V(5255) - ARP(4024) = V(4685)*V(5255) - ARP(4025) = V(4685)*V(5255) - ARP(4026) = V(4685)*V(5252) - ARP(4027) = V(4685)*V(5253) - ARP(4028) = V(4685)*V(5256) - ARP(4029) = V(4685) - ARP(4030) = V(4685) - ARP(4031) = V(3186) - ARP(4032) = V(3186) - ARP(4033) = V(4400)*V(5255) - ARP(4034) = V(4400)*V(5252) - ARP(4035) = V(4400)*V(5252) - ARP(4036) = V(4400)*V(5256) - ARP(4037) = V(4400) - ARP(4038) = V(4400) - ARP(4039) = V(4992)*V(5255) - ARP(4040) = V(4992)*V(5252) - ARP(4041) = V(4992)*V(5256) - ARP(4042) = V(4992) - ARP(4043) = V(4992) - ARP(4044) = V(4992) - ARP(4045) = V(677)*V(5255) - ARP(4046) = V(3631)*V(5255) - ARP(4047) = V(3631)*V(5252) - ARP(4048) = V(3631)*V(5256) - ARP(4049) = V(3631) - ARP(4050) = V(3631) - ARP(4051) = V(3632)*V(5255) - ARP(4052) = V(3632)*V(5252) - ARP(4053) = V(3632)*V(5256) - ARP(4054) = V(3632) - ARP(4055) = V(3632) - ARP(4056) = V(1131)*V(5250) - ARP(4057) = V(1131) - ARP(4058) = V(2078)*V(5250) - ARP(4059) = V(2078) - ARP(4060) = V(1822) - ARP(4061) = V(432)*V(5250) - ARP(4062) = V(3343)*V(5250) - ARP(4063) = V(3343) - ARP(4064) = V(627)*V(5255) - ARP(4065) = V(3659)*V(5255) - ARP(4066) = V(3659)*V(5252) - ARP(4067) = V(3659)*V(5256) - ARP(4068) = V(3659) - ARP(4069) = V(3659) - ARP(4070) = V(3650)*V(5255) - ARP(4071) = V(3650)*V(5252) - ARP(4072) = V(3650)*V(5256) - ARP(4073) = V(3650) - ARP(4074) = V(3650) - ARP(4075) = V(1159)*V(5250) - ARP(4076) = V(1159) - ARP(4077) = V(1083)*V(5250) - ARP(4078) = V(1083) - ARP(4079) = V(3403) - ARP(4080) = V(3403) - ARP(4081) = V(128)*V(5250) - ARP(4082) = V(796)*V(5250) - ARP(4083) = V(796) - ARP(4084) = V(4656)*V(5255) - ARP(4085) = V(4656)*V(5255) - ARP(4086) = V(4656)*V(5255) - ARP(4087) = V(4656)*V(5252) - ARP(4088) = V(4656)*V(5253) - ARP(4089) = V(4656)*V(5256) - ARP(4090) = V(4656) - ARP(4091) = V(4656) - ARP(4092) = V(4933)*V(5256) - ARP(4093) = V(4933)*V(5250) - ARP(4094) = V(4933) - ARP(4095) = V(4933) - ARP(4096) = V(4335)*V(5255) - ARP(4097) = V(4335)*V(5252) - ARP(4098) = V(4335)*V(5252) - ARP(4099) = V(4335)*V(5256) - ARP(4100) = V(4335) - ARP(4101) = V(4335) - ARP(4102) = V(4813)*V(5255) - ARP(4103) = V(4813)*V(5252) - ARP(4104) = V(4813)*V(5256) - ARP(4105) = V(4813) - ARP(4106) = V(4813) - ARP(4107) = V(4813) - ARP(4108) = V(328)*V(5250) - ARP(4109) = V(1240) - ARP(4110) = V(4919)*V(5251) - ARP(4111) = V(4919)*V(5252) - ARP(4112) = V(4919)*V(5253) - ARP(4113) = V(4919)*V(5254) - ARP(4114) = V(4919) - ARP(4115) = V(4919) - ARP(4116) = V(1377)*V(5250) - ARP(4117) = V(1377) - ARP(4118) = V(3072) - ARP(4119) = V(1095)*V(5250) - ARP(4120) = V(1095) - ARP(4121) = V(613)*V(5250) - ARP(4122) = V(3317)*V(5250) - ARP(4123) = V(3317) - ARP(4124) = V(1763)*V(5250) - ARP(4125) = V(1763) - ARP(4126) = V(969) - ARP(4127) = V(969)*V(5250) - ARP(4128) = V(552) - ARP(4129) = V(2222)*V(5250) - ARP(4130) = V(3763) - ARP(4131) = V(3763)*V(5250) - ARP(4132) = V(1365) - ARP(4133) = V(1365)*V(5250) - ARP(4134) = V(2099) - ARP(4135) = V(2099)*V(5250) - ARP(4136) = V(2100) - ARP(4137) = V(3102) - ARP(4138) = V(3102)*V(5250) - ARP(4139) = V(5050) - ARP(4140) = V(5050)*V(5256) - ARP(4141) = V(5050)*V(5258) - ARP(4142) = V(5050)*V(5258) - ARP(4143) = V(5050)*V(5250) - ARP(4144) = V(5050)*V(5250) - ARP(4145) = V(4819)*V(5251) - ARP(4146) = V(4819)*V(5252) - ARP(4147) = V(4819)*V(5253) - ARP(4148) = V(4819)*V(5254) - ARP(4149) = V(4819) - ARP(4150) = V(4819) - ARP(4151) = V(1352) - ARP(4152) = V(1352)*V(5250) - ARP(4153) = V(1971) - ARP(4154) = V(238)*V(5250) - ARP(4155) = V(5049) - ARP(4156) = V(5049) - ARP(4157) = V(5049)*V(5256) - ARP(4158) = V(5049)*V(5258) - ARP(4159) = V(5049)*V(5258) - ARP(4160) = V(5049)*V(5250) - ARP(4161) = V(5049)*V(5250) - ARP(4162) = V(841) - ARP(4163) = V(841)*V(5250) - ARP(4164) = V(1172)*V(5250) - ARP(4165) = V(2771) - ARP(4166) = V(1054)*V(5250) - ARP(4167) = V(5093)*V(5258) - ARP(4168) = V(5093)*V(5258) - ARP(4169) = V(5093)*V(5250) - ARP(4170) = V(5093)*V(5250) - ARP(4171) = V(5093) - ARP(4172) = V(5093) - ARP(4173) = V(1395) - ARP(4174) = V(1395)*V(5250) - ARP(4175) = V(2706) - ARP(4176) = V(4373) - ARP(4177) = V(4373)*V(5256) - ARP(4178) = V(4373)*V(5250) - ARP(4179) = V(1258) - ARP(4180) = V(1258)*V(5250) - ARP(4181) = V(2040) - ARP(4182) = V(2040)*V(5250) - ARP(4183) = V(2041) - ARP(4184) = V(5168) - ARP(4185) = V(5168)*V(5258) - ARP(4186) = V(5168)*V(5258) - ARP(4187) = V(5168)*V(5250) - ARP(4188) = V(5069) - ARP(4189) = V(5069)*V(5256) - ARP(4190) = V(5069)*V(5258) - ARP(4191) = V(5069)*V(5258) - ARP(4192) = V(5069)*V(5250) - ARP(4193) = V(5069)*V(5250) - ARP(4194) = V(2479) - ARP(4195) = V(2479) - ARP(4196) = V(2479) - ARP(4197) = V(2479) - ARP(4198) = V(5020)*V(5255) - ARP(4199) = V(5020)*V(5252) - ARP(4200) = V(5020)*V(5252) - ARP(4201) = V(5020)*V(5256) - ARP(4202) = V(5020) - ARP(4203) = V(5020) - ARP(4204) = V(5020) - ARP(4205) = V(5016)*V(5252) - ARP(4206) = V(5016)*V(5255) - ARP(4207) = V(5016)*V(5252) - ARP(4208) = V(5016)*V(5256) - ARP(4209) = V(5016) - ARP(4210) = V(5016) - ARP(4211) = V(5016) - ARP(4212) = V(4906)*V(5251) - ARP(4213) = V(4906)*V(5252) - ARP(4214) = V(4906)*V(5253) - ARP(4215) = V(4906)*V(5254) - ARP(4216) = V(4906) - ARP(4217) = V(4906) - ARP(4218) = V(4286)*V(5251) - ARP(4219) = V(4286)*V(5252) - ARP(4220) = V(4286)*V(5253) - ARP(4221) = V(4286)*V(5254) - ARP(4222) = V(4286) - ARP(4223) = V(4774)*V(5255) - ARP(4224) = V(4774)*V(5252) - ARP(4225) = V(4774)*V(5256) - ARP(4226) = V(4774) - ARP(4227) = V(4774) - ARP(4228) = V(4774) - ARP(4229) = V(5217)*V(5255) - ARP(4230) = V(5217)*V(5252) - ARP(4231) = V(5217)*V(5252) - ARP(4232) = V(5217)*V(5256) - ARP(4233) = V(5217) - ARP(4234) = V(5217) - ARP(4235) = V(5217) - ARP(4236) = V(5217) - ARP(4237) = V(5217) - ARP(4238) = V(5217) - ARP(4239) = V(5219)*V(5255) - ARP(4240) = V(5219)*V(5252) - ARP(4241) = V(5219)*V(5252) - ARP(4242) = V(5219)*V(5256) - ARP(4243) = V(5219) - ARP(4244) = V(5219) - ARP(4245) = V(5219) - ARP(4246) = V(5219) - ARP(4247) = V(5219) - ARP(4248) = V(5204)*V(5255) - ARP(4249) = V(5204)*V(5252) - ARP(4250) = V(5204)*V(5252) - ARP(4251) = V(5204)*V(5256) - ARP(4252) = V(5204) - ARP(4253) = V(5204) - ARP(4254) = V(5204) - ARP(4255) = V(5204) - ARP(4256) = V(5204) - ARP(4257) = V(5204) - ARP(4258) = V(5224)*V(5255) - ARP(4259) = V(5224)*V(5252) - ARP(4260) = V(5224)*V(5252) - ARP(4261) = V(5224)*V(5256) - ARP(4262) = V(5224) - ARP(4263) = V(5224) - ARP(4264) = V(5224) - ARP(4265) = V(5224) - ARP(4266) = V(5224) - ARP(4267) = V(5224) - ARP(4268) = V(968)*V(5250) - ARP(4269) = V(968) - ARP(4270) = V(4096)*V(5250) - ARP(4271) = V(4096)*V(5258) - ARP(4272) = V(4096)*V(5258) - ARP(4273) = V(2623) - ARP(4274) = V(3228)*V(5250) - ARP(4275) = V(3228)*V(5250) - ARP(4276) = V(3228) - ARP(4277) = V(1280)*V(5250) - ARP(4278) = V(4337)*V(5255) - ARP(4279) = V(4337)*V(5252) - ARP(4280) = V(4337)*V(5256) - ARP(4281) = V(4337) - ARP(4282) = V(514) - ARP(4283) = V(514) - ARP(4284) = V(3980)*V(5255) - ARP(4285) = V(3980)*V(5252) - ARP(4286) = V(3980)*V(5252) - ARP(4287) = V(3980)*V(5256) - ARP(4288) = V(3980) - ARP(4289) = V(4255)*V(5255) - ARP(4290) = V(4255)*V(5255) - ARP(4291) = V(4255)*V(5252) - ARP(4292) = V(4255)*V(5253) - ARP(4293) = V(4255)*V(5256) - ARP(4294) = V(4255) - ARP(4295) = V(4087)*V(5255) - ARP(4296) = V(4087)*V(5252) - ARP(4297) = V(4087)*V(5252) - ARP(4298) = V(4087)*V(5256) - ARP(4299) = V(4087) - ARP(4300) = V(3865)*V(5255) - ARP(4301) = V(3865)*V(5252) - ARP(4302) = V(3865)*V(5256) - ARP(4303) = V(3865) - ARP(4304) = V(2425) - ARP(4305) = V(2425) - ARP(4306) = V(2425) - ARP(4307) = V(2425) - ARP(4308) = V(5127)*V(5255) - ARP(4309) = V(5127)*V(5252) - ARP(4310) = V(5127)*V(5252) - ARP(4311) = V(5127)*V(5256) - ARP(4312) = V(5127) - ARP(4313) = V(5127) - ARP(4314) = V(5127) - ARP(4315) = V(3496)*V(5255) - ARP(4316) = V(3496)*V(5252) - ARP(4317) = V(3496)*V(5252) - ARP(4318) = V(3496)*V(5256) - ARP(4319) = V(3496) - ARP(4320) = V(3496) - ARP(4321) = V(3496) - ARP(4322) = V(5218)*V(5255) - ARP(4323) = V(5218)*V(5252) - ARP(4324) = V(5218)*V(5252) - ARP(4325) = V(5218)*V(5256) - ARP(4326) = V(5218) - ARP(4327) = V(5218) - ARP(4328) = V(5218) - ARP(4329) = V(5218) - ARP(4330) = V(5118)*V(5255) - ARP(4331) = V(5118)*V(5252) - ARP(4332) = V(5118)*V(5252) - ARP(4333) = V(5118)*V(5256) - ARP(4334) = V(5118) - ARP(4335) = V(5118) - ARP(4336) = V(5118) - ARP(4337) = V(5118) - ARP(4338) = V(1239)*V(5250) - ARP(4339) = V(1239) - ARP(4340) = V(2574)*V(5250) - ARP(4341) = V(2574)*V(5250) - ARP(4342) = V(1922)*V(5250) - ARP(4343) = V(1922) - ARP(4344) = V(1923) - ARP(4345) = V(307)*V(5250) - ARP(4346) = V(1143)*V(5250) - ARP(4347) = V(1143) - ARP(4348) = V(3156)*V(5250) - ARP(4349) = V(3156)*V(5250) - ARP(4350) = V(3156)*V(5250) - ARP(4351) = V(2075)*V(5250) - ARP(4352) = V(2075) - ARP(4353) = V(2076) - ARP(4354) = V(417)*V(5250) - ARP(4355) = V(1305)*V(5250) - ARP(4356) = V(1305) - ARP(4357) = V(2817)*V(5250) - ARP(4358) = V(2817) - ARP(4359) = V(1867) - ARP(4360) = V(3472)*V(5256) - ARP(4361) = V(3472)*V(5256) - ARP(4362) = V(3472)*V(5250) - ARP(4363) = V(3472)*V(5250) - ARP(4364) = V(3472)*V(5250) - ARP(4365) = V(3900)*V(5256) - ARP(4366) = V(3900)*V(5250) - ARP(4367) = V(3900) - ARP(4368) = V(2326) - ARP(4369) = V(4383)*V(5250) - ARP(4370) = V(4383)*V(5250) - ARP(4371) = V(4383) - ARP(4372) = V(4383) - ARP(4373) = V(2070)*V(5250) - ARP(4374) = V(2070)*V(5250) - ARP(4375) = V(2070) - ARP(4376) = V(1895)*V(5250) - ARP(4377) = V(1895) - ARP(4378) = V(2539) - ARP(4379) = V(2539) - ARP(4380) = V(2715)*V(5250) - ARP(4381) = V(2715)*V(5250) - ARP(4382) = V(2715) - ARP(4383) = V(2715) - ARP(4384) = V(1592) - ARP(4385) = V(4938) - ARP(4386) = V(4938)*V(5250) - ARP(4387) = V(2774)*V(5250) - ARP(4388) = V(2774)*V(5250) - ARP(4389) = V(2774) - ARP(4390) = V(2774) - ARP(4391) = V(1574) - ARP(4392) = V(5139) - ARP(4393) = V(5139)*V(5256) - ARP(4394) = V(5139)*V(5250) - ARP(4395) = V(3222)*V(5250) - ARP(4396) = V(3222)*V(5250) - ARP(4397) = V(3222) - ARP(4398) = V(3222) - ARP(4399) = V(179) - ARP(4400) = V(2365)*V(5250) - ARP(4401) = V(2365) - ARP(4402) = V(4801)*V(5250) - ARP(4403) = V(4801) - ARP(4404) = V(4391)*V(5250) - ARP(4405) = V(4391) - ARP(4406) = V(3035)*V(5250) - ARP(4407) = V(3035)*V(5250) - ARP(4408) = V(3035) - ARP(4409) = V(3035) - ARP(4410) = V(1595) - ARP(4411) = V(4618)*V(5250) - ARP(4412) = V(4618) - ARP(4413) = V(2893)*V(5250) - ARP(4414) = V(2893)*V(5250) - ARP(4415) = V(2893) - ARP(4416) = V(2893) - ARP(4417) = V(1638) - ARP(4418) = V(2400)*V(5250) - ARP(4419) = V(2400)*V(5250) - ARP(4420) = V(2400) - ARP(4421) = V(2083)*V(5250) - ARP(4422) = V(2083) - ARP(4423) = V(175) - ARP(4424) = V(2665)*V(5250) - ARP(4425) = V(2665) - ARP(4426) = V(1983) - ARP(4427) = V(1983)*V(5250) - ARP(4428) = V(3104) - ARP(4429) = V(1132) - ARP(4430) = V(1132)*V(5250) - ARP(4431) = V(2092) - ARP(4432) = V(2092)*V(5250) - ARP(4433) = V(2614) - ARP(4434) = V(2614) - ARP(4435) = V(5026) - ARP(4436) = V(5026)*V(5256) - ARP(4437) = V(5026)*V(5250) - ARP(4438) = V(2269)*V(5250) - ARP(4439) = V(2269)*V(5250) - ARP(4440) = V(2269) - ARP(4441) = V(1841)*V(5250) - ARP(4442) = V(1841) - ARP(4443) = V(185) - ARP(4444) = V(5157)*V(5250) - ARP(4445) = V(5157) - ARP(4446) = V(5157) - ARP(4447) = V(1719)*V(5250) - ARP(4448) = V(1719) - ARP(4449) = V(1876)*V(5250) - ARP(4450) = V(1876)*V(5250) - ARP(4451) = V(1876) - ARP(4452) = V(1904)*V(5250) - ARP(4453) = V(1904) - ARP(4454) = V(3367) - ARP(4455) = V(3367) - ARP(4456) = V(3530) - ARP(4457) = V(3530)*V(5250) - ARP(4458) = V(4300) - ARP(4459) = V(4300)*V(5250) - ARP(4460) = V(4300)*V(5250) - ARP(4461) = V(2878)*V(5250) - ARP(4462) = V(2878)*V(5250) - ARP(4463) = V(2878) - ARP(4464) = V(2878) - ARP(4465) = V(1699) - ARP(4466) = V(3498)*V(5250) - ARP(4467) = V(3498) - ARP(4468) = V(3288)*V(5250) - ARP(4469) = V(3288)*V(5250) - ARP(4470) = V(3288) - ARP(4471) = V(3288) - ARP(4472) = V(1954)*V(5250) - ARP(4473) = V(1954) - ARP(4474) = V(150) - ARP(4475) = V(1704)*V(5250) - ARP(4476) = V(1704) - ARP(4477) = V(2572)*V(5250) - ARP(4478) = V(2572)*V(5250) - ARP(4479) = V(2572) - ARP(4480) = V(2572) - ARP(4481) = V(761) - ARP(4482) = V(1712)*V(5250) - ARP(4483) = V(1712) - ARP(4484) = V(1711)*V(5250) - ARP(4485) = V(1711) - ARP(4486) = V(2558)*V(5250) - ARP(4487) = V(2558)*V(5250) - ARP(4488) = V(2558) - ARP(4489) = V(2558) - ARP(4490) = V(1737) - ARP(4491) = V(2401)*V(5250) - ARP(4492) = V(2401)*V(5250) - ARP(4493) = V(2401) - ARP(4494) = V(2213)*V(5250) - ARP(4495) = V(2213) - ARP(4496) = V(167) - ARP(4497) = V(4717)*V(5256) - ARP(4498) = V(4717)*V(5250) - ARP(4499) = V(4717) - ARP(4500) = V(4717) - ARP(4501) = V(1599)*V(5250) - ARP(4502) = V(1599) - ARP(4503) = V(1153)*V(5250) - ARP(4504) = V(1153) - ARP(4505) = V(3068)*V(5250) - ARP(4506) = V(3068) - ARP(4507) = V(3069) - ARP(4508) = V(3069) - ARP(4509) = V(3314)*V(5250) - ARP(4510) = V(3314)*V(5250) - ARP(4511) = V(3314) - ARP(4512) = V(3314) - ARP(4513) = V(666) - ARP(4514) = V(1790)*V(5250) - ARP(4515) = V(1790) - ARP(4516) = V(1587)*V(5250) - ARP(4517) = V(1587) - ARP(4518) = V(1177) - ARP(4519) = V(1177)*V(5250) - ARP(4520) = V(2453) - ARP(4521) = V(2453)*V(5250) - ARP(4522) = V(2634) - ARP(4523) = V(2634) - ARP(4524) = V(3879) - ARP(4525) = V(3879)*V(5256) - ARP(4526) = V(3879)*V(5250) - ARP(4527) = V(577) - ARP(4528) = V(577)*V(5250) - ARP(4529) = V(1313)*V(5250) - ARP(4530) = V(1313) - ARP(4531) = V(2215)*V(5250) - ARP(4532) = V(2215) - ARP(4533) = V(3066) - ARP(4534) = V(3066) - ARP(4535) = V(3607)*V(5250) - ARP(4536) = V(3607) - ARP(4537) = V(1673)*V(5250) - ARP(4538) = V(1673) - ARP(4539) = V(1844)*V(5250) - ARP(4540) = V(1844) - ARP(4541) = V(670) - ARP(4542) = V(2023)*V(5250) - ARP(4543) = V(2174)*V(5250) - ARP(4544) = V(2174)*V(5250) - ARP(4545) = V(2174) - ARP(4546) = V(3744) - ARP(4547) = V(3744) - ARP(4548) = V(2181)*V(5250) - ARP(4549) = V(3090)*V(5250) - ARP(4550) = V(3090) - ARP(4551) = V(4201)*V(5255) - ARP(4552) = V(4201)*V(5252) - ARP(4553) = V(4201)*V(5256) - ARP(4554) = V(4201) - ARP(4555) = V(4201) - ARP(4556) = V(4563)*V(5255) - ARP(4557) = V(4563)*V(5252) - ARP(4558) = V(4563)*V(5256) - ARP(4559) = V(4563) - ARP(4560) = V(4563) - ARP(4561) = V(4563) - ARP(4562) = V(4912)*V(5251) - ARP(4563) = V(4912)*V(5252) - ARP(4564) = V(4912)*V(5253) - ARP(4565) = V(4912)*V(5254) - ARP(4566) = V(4912) - ARP(4567) = V(4912) - ARP(4568) = V(5198)*V(5255) - ARP(4569) = V(5198)*V(5252) - ARP(4570) = V(5198)*V(5252) - ARP(4571) = V(5198)*V(5256) - ARP(4572) = V(5198) - ARP(4573) = V(5198) - ARP(4574) = V(5198) - ARP(4575) = V(2103)*V(5250) - ARP(4576) = V(2103) - ARP(4577) = V(783) - ARP(4578) = V(1036)*V(5250) - ARP(4579) = V(2058)*V(5250) - ARP(4580) = V(2058) - ARP(4581) = V(784) - ARP(4582) = V(1565)*V(5250) - ARP(4583) = V(1241)*V(5250) - ARP(4584) = V(1241) - ARP(4585) = V(2626)*V(5250) - ARP(4586) = V(2626) - ARP(4587) = V(2415) - ARP(4588) = V(95)*V(5250) - ARP(4589) = V(897)*V(5250) - ARP(4590) = V(897) - ARP(4591) = V(3030) - ARP(4592) = V(2343)*V(5250) - ARP(4593) = V(1362)*V(5250) - ARP(4594) = V(1362) - ARP(4595) = V(2959) - ARP(4596) = V(3141)*V(5250) - ARP(4597) = V(4151)*V(5256) - ARP(4598) = V(4151)*V(5250) - ARP(4599) = V(4151) - ARP(4600) = V(3852)*V(5255) - ARP(4601) = V(3852)*V(5252) - ARP(4602) = V(3852)*V(5252) - ARP(4603) = V(3852)*V(5256) - ARP(4604) = V(3852) - ARP(4605) = V(3852) - ARP(4606) = V(3852) - ARP(4607) = V(3733)*V(5255) - ARP(4608) = V(3733)*V(5252) - ARP(4609) = V(3733)*V(5252) - ARP(4610) = V(3733)*V(5256) - ARP(4611) = V(3733) - ARP(4612) = V(3733) - ARP(4613) = V(3733) - ARP(4614) = V(3982)*V(5255) - ARP(4615) = V(3982)*V(5252) - ARP(4616) = V(3982)*V(5252) - ARP(4617) = V(3982)*V(5256) - ARP(4618) = V(3982) - ARP(4619) = V(3982) - ARP(4620) = V(4240)*V(5255) - ARP(4621) = V(4240)*V(5252) - ARP(4622) = V(4240)*V(5256) - ARP(4623) = V(4240) - ARP(4624) = V(4240) - ARP(4625) = V(4240) - ARP(4626) = V(147)*V(5250) - ARP(4627) = V(4302)*V(5251) - ARP(4628) = V(4302)*V(5252) - ARP(4629) = V(4302)*V(5253) - ARP(4630) = V(4302)*V(5254) - ARP(4631) = V(4302) - ARP(4632) = V(1186)*V(5250) - ARP(4633) = V(1186) - ARP(4634) = V(2902) - ARP(4635) = V(1297)*V(5250) - ARP(4636) = V(920)*V(5250) - ARP(4637) = V(920) - ARP(4638) = V(2516) - ARP(4639) = V(4186)*V(5256) - ARP(4640) = V(4186)*V(5250) - ARP(4641) = V(4186) - ARP(4642) = V(912)*V(5250) - ARP(4643) = V(912) - ARP(4644) = V(2888)*V(5250) - ARP(4645) = V(2888) - ARP(4646) = V(1975) - ARP(4647) = V(104)*V(5250) - ARP(4648) = V(2065)*V(5250) - ARP(4649) = V(2065) - ARP(4650) = V(635) - ARP(4651) = V(1915)*V(5250) - ARP(4652) = V(4148)*V(5255) - ARP(4653) = V(4148)*V(5252) - ARP(4654) = V(4148)*V(5256) - ARP(4655) = V(4148) - ARP(4656) = V(4148) - ARP(4657) = V(4148) - ARP(4658) = V(4144)*V(5255) - ARP(4659) = V(4144)*V(5252) - ARP(4660) = V(4144)*V(5256) - ARP(4661) = V(4144) - ARP(4662) = V(4144) - ARP(4663) = V(4144) - ARP(4664) = V(5236)*V(5255) - ARP(4665) = V(5236)*V(5252) - ARP(4666) = V(5236)*V(5252) - ARP(4667) = V(5236)*V(5256) - ARP(4668) = V(5236) - ARP(4669) = V(5236) - ARP(4670) = V(5236) - ARP(4671) = V(4843)*V(5251) - ARP(4672) = V(4843)*V(5252) - ARP(4673) = V(4843)*V(5253) - ARP(4674) = V(4843)*V(5254) - ARP(4675) = V(4843) - ARP(4676) = V(4843) - ARP(4677) = V(2451)*V(5250) - ARP(4678) = V(2451) - ARP(4679) = V(1058)*V(5250) - ARP(4680) = V(748) - ARP(4681) = V(1520)*V(5250) - ARP(4682) = V(1911)*V(5250) - ARP(4683) = V(1911) - ARP(4684) = V(639) - ARP(4685) = V(1581)*V(5250) - ARP(4686) = V(1468)*V(5250) - ARP(4687) = V(1468) - ARP(4688) = V(1905)*V(5250) - ARP(4689) = V(2508) - ARP(4690) = V(540)*V(5250) - ARP(4691) = V(2180)*V(5250) - ARP(4692) = V(2180) - ARP(4693) = V(797) - ARP(4694) = V(2184)*V(5250) - ARP(4695) = V(5256)*V(5257) - ARP(4696) = V(5256)*V(5257) - ARP(4697) = V(5257)*V(5258) - ARP(4698) = V(5257)*V(5258) - ARP(4699) = V(5250)*V(5257) - ARP(4700) = V(5250)*V(5257) - ARP(4701) = V(5250)*V(5257) - ARP(4702) = V(5250)*V(5257) - ARP(4703) = V(5250)*V(5257) - ARP(4704) = V(5257) - ARP(4705) = V(3646)*V(5258) - ARP(4706) = V(3646)*V(5258) - ARP(4707) = V(3646)*V(5250) - ARP(4708) = V(4970)*V(5258) - ARP(4709) = V(4970)*V(5258) - ARP(4710) = V(4970)*V(5250) - ARP(4711) = V(4754)*V(5255) - ARP(4712) = V(4754)*V(5252) - ARP(4713) = V(4754)*V(5256) - ARP(4714) = V(4754) - ARP(4715) = V(4754) - ARP(4716) = V(4754) - ARP(4717) = V(4756)*V(5255) - ARP(4718) = V(4756)*V(5252) - ARP(4719) = V(4756)*V(5256) - ARP(4720) = V(4756) - ARP(4721) = V(4756) - ARP(4722) = V(4756) - ARP(4723) = V(3517)*V(5258) - ARP(4724) = V(3517)*V(5258) - ARP(4725) = V(3517)*V(5250) - ARP(4726) = V(5041)*V(5255) - ARP(4727) = V(5041)*V(5252) - ARP(4728) = V(5041)*V(5252) - ARP(4729) = V(5041)*V(5256) - ARP(4730) = V(5041) - ARP(4731) = V(5041) - ARP(4732) = V(5041) - ARP(4733) = V(4746)*V(5255) - ARP(4734) = V(4746)*V(5252) - ARP(4735) = V(4746)*V(5256) - ARP(4736) = V(4746) - ARP(4737) = V(4746) - ARP(4738) = V(4746) - ARP(4739) = V(5206)*V(5255) - ARP(4740) = V(5206)*V(5252) - ARP(4741) = V(5206)*V(5252) - ARP(4742) = V(5206)*V(5256) - ARP(4743) = V(5206) - ARP(4744) = V(5206) - ARP(4745) = V(5206) - ARP(4746) = V(2178)*V(5250) - ARP(4747) = V(2178) - ARP(4748) = V(905)*V(5250) - ARP(4749) = V(646) - ARP(4750) = V(1001)*V(5250) - ARP(4751) = V(2160)*V(5250) - ARP(4752) = V(2160) - ARP(4753) = V(624) - ARP(4754) = V(1736)*V(5250) - ARP(4755) = V(881)*V(5250) - ARP(4756) = V(881) - ARP(4757) = V(2242)*V(5250) - ARP(4758) = V(2961) - ARP(4759) = V(661)*V(5250) - ARP(4760) = V(5237)*V(5255) - ARP(4761) = V(5237)*V(5255) - ARP(4762) = V(5237)*V(5255) - ARP(4763) = V(5237)*V(5252) - ARP(4764) = V(5237)*V(5253) - ARP(4765) = V(5237)*V(5256) - ARP(4766) = V(5237) - ARP(4767) = V(5237) - ARP(4768) = V(4949)*V(5255) - ARP(4769) = V(4949)*V(5255) - ARP(4770) = V(4949)*V(5255) - ARP(4771) = V(4949)*V(5252) - ARP(4772) = V(4949)*V(5253) - ARP(4773) = V(4949)*V(5256) - ARP(4774) = V(4949) - ARP(4775) = V(4949) - ARP(4776) = V(4374)*V(5255) - ARP(4777) = V(4374)*V(5252) - ARP(4778) = V(4374)*V(5252) - ARP(4779) = V(4374)*V(5256) - ARP(4780) = V(4374) - ARP(4781) = V(4374) - ARP(4782) = V(4374) - ARP(4783) = V(5136)*V(5255) - ARP(4784) = V(5136)*V(5255) - ARP(4785) = V(5136)*V(5252) - ARP(4786) = V(5136)*V(5253) - ARP(4787) = V(5136)*V(5256) - ARP(4788) = V(5136) - ARP(4789) = V(438)*V(5250) - ARP(4790) = V(1516) - ARP(4791) = V(1516)*V(5250) - ARP(4792) = V(2882) - ARP(4793) = V(2882)*V(5250) - ARP(4794) = V(384)*V(5250) - ARP(4795) = V(1106)*V(5250) - ARP(4796) = V(1106) - ARP(4797) = V(2743)*V(5250) - ARP(4798) = V(2743) - ARP(4799) = V(918)*V(5250) - ARP(4800) = V(918) - ARP(4801) = V(3533)*V(5250) - ARP(4802) = V(3533) - ARP(4803) = V(3533) - ARP(4804) = V(2399) - ARP(4805) = V(4931)*V(5256) - ARP(4806) = V(4931)*V(5250) - ARP(4807) = V(4931) - ARP(4808) = V(4785)*V(5255) - ARP(4809) = V(4785)*V(5252) - ARP(4810) = V(4785)*V(5252) - ARP(4811) = V(4785)*V(5256) - ARP(4812) = V(4785) - ARP(4813) = V(4785) - ARP(4814) = V(4785) - ARP(4815) = V(5101)*V(5255) - ARP(4816) = V(5101)*V(5255) - ARP(4817) = V(5101)*V(5252) - ARP(4818) = V(5101)*V(5253) - ARP(4819) = V(5101)*V(5256) - ARP(4820) = V(5101) - ARP(4821) = V(4206)*V(5255) - ARP(4822) = V(4206)*V(5255) - ARP(4823) = V(4206)*V(5252) - ARP(4824) = V(4206)*V(5253) - ARP(4825) = V(4206)*V(5256) - ARP(4826) = V(4206) - ARP(4827) = V(4359)*V(5255) - ARP(4828) = V(4359)*V(5252) - ARP(4829) = V(4359)*V(5252) - ARP(4830) = V(4359)*V(5256) - ARP(4831) = V(4359) - ARP(4832) = V(4359) - ARP(4833) = V(4359) - ARP(4834) = V(5008)*V(5255) - ARP(4835) = V(5008)*V(5255) - ARP(4836) = V(5008)*V(5255) - ARP(4837) = V(5008)*V(5252) - ARP(4838) = V(5008)*V(5253) - ARP(4839) = V(5008)*V(5256) - ARP(4840) = V(5008) - ARP(4841) = V(5008) - ARP(4842) = V(4882)*V(5256) - ARP(4843) = V(4882)*V(5250) - ARP(4844) = V(4882)*V(5250) - ARP(4845) = V(4882) - ARP(4846) = V(591)*V(5250) - ARP(4847) = V(591) - ARP(4848) = V(2272)*V(5250) - ARP(4849) = V(3979)*V(5255) - ARP(4850) = V(3979)*V(5252) - ARP(4851) = V(3979)*V(5256) - ARP(4852) = V(3979) - ARP(4853) = V(3284) - ARP(4854) = V(3255) - ARP(4855) = V(1764)*V(5250) - ARP(4856) = V(2412)*V(5250) - ARP(4857) = V(2412) - ARP(4858) = V(3047)*V(5250) - ARP(4859) = V(3047) - ARP(4860) = V(2219)*V(5250) - ARP(4861) = V(2219) - ARP(4862) = V(2945)*V(5250) - ARP(4863) = V(2945) - ARP(4864) = V(2473) - ARP(4865) = V(4316)*V(5255) - ARP(4866) = V(4316)*V(5255) - ARP(4867) = V(4316)*V(5252) - ARP(4868) = V(4316)*V(5253) - ARP(4869) = V(4316)*V(5256) - ARP(4870) = V(4316) - ARP(4871) = V(2364)*V(5250) - ARP(4872) = V(2211) - ARP(4873) = V(2211)*V(5250) - ARP(4874) = V(2792) - ARP(4875) = V(2792)*V(5250) - ARP(4876) = V(579)*V(5250) - ARP(4877) = V(579) - ARP(4878) = V(4553)*V(5255) - ARP(4879) = V(4553)*V(5255) - ARP(4880) = V(4553)*V(5252) - ARP(4881) = V(4553)*V(5253) - ARP(4882) = V(4553)*V(5256) - ARP(4883) = V(4553) - ARP(4884) = V(5158)*V(5255) - ARP(4885) = V(5158)*V(5255) - ARP(4886) = V(5158)*V(5252) - ARP(4887) = V(5158)*V(5253) - ARP(4888) = V(5158)*V(5256) - ARP(4889) = V(5158) - ARP(4890) = V(5164)*V(5255) - ARP(4891) = V(5164)*V(5255) - ARP(4892) = V(5164)*V(5255) - ARP(4893) = V(5164)*V(5252) - ARP(4894) = V(5164)*V(5253) - ARP(4895) = V(5164)*V(5256) - ARP(4896) = V(5164) - ARP(4897) = V(5164) - ARP(4898) = V(4915)*V(5255) - ARP(4899) = V(4915)*V(5255) - ARP(4900) = V(4915)*V(5255) - ARP(4901) = V(4915)*V(5252) - ARP(4902) = V(4915)*V(5253) - ARP(4903) = V(4915)*V(5256) - ARP(4904) = V(4915) - ARP(4905) = V(4915) - ARP(4906) = V(4640)*V(5255) - ARP(4907) = V(4640)*V(5252) - ARP(4908) = V(4640)*V(5256) - ARP(4909) = V(4640) - ARP(4910) = V(4640) - ARP(4911) = V(4640) - ARP(4912) = V(5137)*V(5255) - ARP(4913) = V(5137)*V(5255) - ARP(4914) = V(5137)*V(5255) - ARP(4915) = V(5137)*V(5252) - ARP(4916) = V(5137)*V(5253) - ARP(4917) = V(5137)*V(5256) - ARP(4918) = V(5137) - ARP(4919) = V(5137) - ARP(4920) = V(3758)*V(5255) - ARP(4921) = V(3758)*V(5252) - ARP(4922) = V(3758)*V(5252) - ARP(4923) = V(3758)*V(5256) - ARP(4924) = V(3758) - ARP(4925) = V(3758) - ARP(4926) = V(3758) - ARP(4927) = V(4862)*V(5255) - ARP(4928) = V(4862)*V(5255) - ARP(4929) = V(4862)*V(5255) - ARP(4930) = V(4862)*V(5252) - ARP(4931) = V(4862)*V(5253) - ARP(4932) = V(4862)*V(5256) - ARP(4933) = V(4862) - ARP(4934) = V(4862) - ARP(4935) = V(5038)*V(5255) - ARP(4936) = V(5038)*V(5255) - ARP(4937) = V(5038)*V(5252) - ARP(4938) = V(5038)*V(5253) - ARP(4939) = V(5038)*V(5256) - ARP(4940) = V(5038) - ARP(4941) = V(4530) - ARP(4942) = V(4530) - ARP(4943) = V(4530)*V(5256) - ARP(4944) = V(4530)*V(5250) - ARP(4945) = V(5216)*V(5255) - ARP(4946) = V(5216)*V(5255) - ARP(4947) = V(5216)*V(5255) - ARP(4948) = V(5216)*V(5252) - ARP(4949) = V(5216)*V(5253) - ARP(4950) = V(5216)*V(5256) - ARP(4951) = V(5216) - ARP(4952) = V(5216) - ARP(4953) = V(4796) - ARP(4954) = V(4796)*V(5250) - ARP(4955) = V(1269)*V(5250) - ARP(4956) = V(12)*V(5250) - ARP(4957) = V(4406)*V(5250) - ARP(4958) = V(4406) - ARP(4959) = V(5155)*V(5255) - ARP(4960) = V(5155)*V(5255) - ARP(4961) = V(5155)*V(5255) - ARP(4962) = V(5155)*V(5252) - ARP(4963) = V(5155)*V(5253) - ARP(4964) = V(5155)*V(5256) - ARP(4965) = V(5155) - ARP(4966) = V(5155) - ARP(4967) = V(5036)*V(5255) - ARP(4968) = V(5036)*V(5255) - ARP(4969) = V(5036)*V(5255) - ARP(4970) = V(5036)*V(5252) - ARP(4971) = V(5036)*V(5253) - ARP(4972) = V(5036)*V(5256) - ARP(4973) = V(5036) - ARP(4974) = V(5036) - ARP(4975) = V(4557)*V(5255) - ARP(4976) = V(4557)*V(5255) - ARP(4977) = V(4557)*V(5252) - ARP(4978) = V(4557)*V(5253) - ARP(4979) = V(4557)*V(5256) - ARP(4980) = V(4557) - ARP(4981) = V(3566) - ARP(4982) = V(3566) - ARP(4983) = V(5100)*V(5255) - ARP(4984) = V(5100)*V(5255) - ARP(4985) = V(5100)*V(5252) - ARP(4986) = V(5100)*V(5253) - ARP(4987) = V(5100)*V(5256) - ARP(4988) = V(5100) - ARP(4989) = V(3932)*V(5255) - ARP(4990) = V(3932)*V(5252) - ARP(4991) = V(3932)*V(5252) - ARP(4992) = V(3932)*V(5256) - ARP(4993) = V(3932) - ARP(4994) = V(3932) - ARP(4995) = V(3932) - ARP(4996) = V(3893)*V(5255) - ARP(4997) = V(3893)*V(5252) - ARP(4998) = V(3893)*V(5252) - ARP(4999) = V(3893)*V(5256) - ARP(5000) = V(3893) - ARP(5001) = V(3893) - ARP(5002) = V(3893) - ARP(5003) = V(3885)*V(5255) - ARP(5004) = V(3885)*V(5252) - ARP(5005) = V(3885)*V(5252) - ARP(5006) = V(3885)*V(5256) - ARP(5007) = V(3885) - ARP(5008) = V(3885) - ARP(5009) = V(3885) - ARP(5010) = V(4860)*V(5255) - ARP(5011) = V(4860)*V(5255) - ARP(5012) = V(4860)*V(5252) - ARP(5013) = V(4860)*V(5253) - ARP(5014) = V(4860)*V(5256) - ARP(5015) = V(4860) - ARP(5016) = V(3870)*V(5255) - ARP(5017) = V(3870)*V(5252) - ARP(5018) = V(3870)*V(5252) - ARP(5019) = V(3870)*V(5256) - ARP(5020) = V(3870) - ARP(5021) = V(3870) - ARP(5022) = V(3870) - ARP(5023) = V(4760)*V(5255) - ARP(5024) = V(4760)*V(5255) - ARP(5025) = V(4760)*V(5252) - ARP(5026) = V(4760)*V(5253) - ARP(5027) = V(4760)*V(5256) - ARP(5028) = V(4760) - ARP(5029) = V(3718)*V(5255) - ARP(5030) = V(3718)*V(5252) - ARP(5031) = V(3718)*V(5252) - ARP(5032) = V(3718)*V(5256) - ARP(5033) = V(3718) - ARP(5034) = V(3718) - ARP(5035) = V(3718) - ARP(5036) = V(3961)*V(5255) - ARP(5037) = V(3961)*V(5252) - ARP(5038) = V(3961)*V(5252) - ARP(5039) = V(3961)*V(5256) - ARP(5040) = V(3961) - ARP(5041) = V(3961) - ARP(5042) = V(3961) - ARP(5043) = V(3967)*V(5255) - ARP(5044) = V(3967)*V(5252) - ARP(5045) = V(3967)*V(5252) - ARP(5046) = V(3967)*V(5256) - ARP(5047) = V(3967) - ARP(5048) = V(3967) - ARP(5049) = V(3967) - ARP(5050) = V(4990)*V(5255) - ARP(5051) = V(4990)*V(5255) - ARP(5052) = V(4990)*V(5252) - ARP(5053) = V(4990)*V(5253) - ARP(5054) = V(4990)*V(5256) - ARP(5055) = V(4990) - ARP(5056) = V(3869)*V(5255) - ARP(5057) = V(3869)*V(5252) - ARP(5058) = V(3869)*V(5252) - ARP(5059) = V(3869)*V(5256) - ARP(5060) = V(3869) - ARP(5061) = V(3869) - ARP(5062) = V(3869) - ARP(5063) = V(3944)*V(5255) - ARP(5064) = V(3944)*V(5252) - ARP(5065) = V(3944)*V(5256) - ARP(5066) = V(3944) - ARP(5067) = V(3944) - ARP(5068) = V(4880)*V(5255) - ARP(5069) = V(4880)*V(5252) - ARP(5070) = V(4880)*V(5252) - ARP(5071) = V(4880)*V(5256) - ARP(5072) = V(4880) - ARP(5073) = V(4880) - ARP(5074) = V(4880) - ARP(5075) = V(3778)*V(5255) - ARP(5076) = V(3778)*V(5252) - ARP(5077) = V(3778)*V(5252) - ARP(5078) = V(3778)*V(5256) - ARP(5079) = V(3778) - ARP(5080) = V(3778) - ARP(5081) = V(3778) - ARP(5082) = V(3989)*V(5255) - ARP(5083) = V(3989)*V(5252) - ARP(5084) = V(3989)*V(5252) - ARP(5085) = V(3989)*V(5256) - ARP(5086) = V(3989) - ARP(5087) = V(3989) - ARP(5088) = V(3989) - ARP(5089) = V(4515)*V(5255) - ARP(5090) = V(4515)*V(5255) - ARP(5091) = V(4515)*V(5252) - ARP(5092) = V(4515)*V(5253) - ARP(5093) = V(4515)*V(5256) - ARP(5094) = V(4515) - ARP(5095) = V(3873)*V(5255) - ARP(5096) = V(3873)*V(5252) - ARP(5097) = V(3873)*V(5252) - ARP(5098) = V(3873)*V(5256) - ARP(5099) = V(3873) - ARP(5100) = V(3873) - ARP(5101) = V(3873) - ARP(5102) = V(4334)*V(5255) - ARP(5103) = V(4334)*V(5252) - ARP(5104) = V(4334)*V(5252) - ARP(5105) = V(4334)*V(5256) - ARP(5106) = V(4334) - ARP(5107) = V(4334) - ARP(5108) = V(4334) - ARP(5109) = V(3889)*V(5255) - ARP(5110) = V(3889)*V(5252) - ARP(5111) = V(3889)*V(5256) - ARP(5112) = V(3889) - ARP(5113) = V(3889) - ARP(5114) = V(3854)*V(5255) - ARP(5115) = V(3854)*V(5252) - ARP(5116) = V(3854)*V(5252) - ARP(5117) = V(3854)*V(5256) - ARP(5118) = V(3854) - ARP(5119) = V(3854) - ARP(5120) = V(3854) - ARP(5121) = V(4469)*V(5255) - ARP(5122) = V(4469)*V(5255) - ARP(5123) = V(4469)*V(5252) - ARP(5124) = V(4469)*V(5253) - ARP(5125) = V(4469)*V(5256) - ARP(5126) = V(4469) - ARP(5127) = V(3859)*V(5255) - ARP(5128) = V(3859)*V(5252) - ARP(5129) = V(3859)*V(5252) - ARP(5130) = V(3859)*V(5256) - ARP(5131) = V(3859) - ARP(5132) = V(3859) - ARP(5133) = V(3859) - ARP(5134) = V(4771)*V(5255) - ARP(5135) = V(4771)*V(5255) - ARP(5136) = V(4771)*V(5255) - ARP(5137) = V(4771)*V(5252) - ARP(5138) = V(4771)*V(5253) - ARP(5139) = V(4771)*V(5256) - ARP(5140) = V(4771) - ARP(5141) = V(4771) - ARP(5142) = V(3667)*V(5255) - ARP(5143) = V(3667)*V(5252) - ARP(5144) = V(3667)*V(5252) - ARP(5145) = V(3667)*V(5256) - ARP(5146) = V(3667) - ARP(5147) = V(3667) - ARP(5148) = V(3667) - ARP(5149) = V(4994)*V(5255) - ARP(5150) = V(4994)*V(5255) - ARP(5151) = V(4994)*V(5255) - ARP(5152) = V(4994)*V(5252) - ARP(5153) = V(4994)*V(5253) - ARP(5154) = V(4994)*V(5256) - ARP(5155) = V(4994) - ARP(5156) = V(4994) - ARP(5157) = V(5108)*V(5255) - ARP(5158) = V(5108)*V(5252) - ARP(5159) = V(5108)*V(5252) - ARP(5160) = V(5108)*V(5256) - ARP(5161) = V(5108) - ARP(5162) = V(5108) - ARP(5163) = V(5108) - ARP(5164) = V(3785)*V(5255) - ARP(5165) = V(3785)*V(5252) - ARP(5166) = V(3785)*V(5256) - ARP(5167) = V(3785) - ARP(5168) = V(4722)*V(5255) - ARP(5169) = V(4722)*V(5252) - ARP(5170) = V(4722)*V(5252) - ARP(5171) = V(4722)*V(5256) - ARP(5172) = V(4722) - ARP(5173) = V(4722) - ARP(5174) = V(3674)*V(5255) - ARP(5175) = V(3674)*V(5252) - ARP(5176) = V(3674)*V(5256) - ARP(5177) = V(3674) - ARP(5178) = V(4577)*V(5255) - ARP(5179) = V(4577)*V(5252) - ARP(5180) = V(4577)*V(5252) - ARP(5181) = V(4577)*V(5256) - ARP(5182) = V(4577) - ARP(5183) = V(4577) - ARP(5184) = V(4577) - ARP(5185) = V(5119)*V(5255) - ARP(5186) = V(5119)*V(5252) - ARP(5187) = V(5119)*V(5252) - ARP(5188) = V(5119)*V(5256) - ARP(5189) = V(5119) - ARP(5190) = V(5119) - ARP(5191) = V(5119) - ARP(5192) = V(3730)*V(5255) - ARP(5193) = V(3730)*V(5252) - ARP(5194) = V(3730)*V(5256) - ARP(5195) = V(3730) - ARP(5196) = V(3688)*V(5255) - ARP(5197) = V(3688)*V(5252) - ARP(5198) = V(3688)*V(5252) - ARP(5199) = V(3688)*V(5256) - ARP(5200) = V(3688) - ARP(5201) = V(3688) - ARP(5202) = V(3688) - ARP(5203) = V(3749)*V(5255) - ARP(5204) = V(3749)*V(5252) - ARP(5205) = V(3749)*V(5252) - ARP(5206) = V(3749)*V(5256) - ARP(5207) = V(3749) - ARP(5208) = V(3749) - ARP(5209) = V(3749) - ARP(5210) = V(3781)*V(5255) - ARP(5211) = V(3781)*V(5252) - ARP(5212) = V(3781)*V(5256) - ARP(5213) = V(3781) - ARP(5214) = V(3751)*V(5255) - ARP(5215) = V(3751)*V(5252) - ARP(5216) = V(3751)*V(5252) - ARP(5217) = V(3751)*V(5256) - ARP(5218) = V(3751) - ARP(5219) = V(3751) - ARP(5220) = V(3751) - ARP(5221) = V(3768)*V(5255) - ARP(5222) = V(3768)*V(5252) - ARP(5223) = V(3768)*V(5256) - ARP(5224) = V(3768) - ARP(5225) = V(3731)*V(5255) - ARP(5226) = V(3731)*V(5252) - ARP(5227) = V(3731)*V(5252) - ARP(5228) = V(3731)*V(5256) - ARP(5229) = V(3731) - ARP(5230) = V(3731) - ARP(5231) = V(3731) - ARP(5232) = V(3766)*V(5255) - ARP(5233) = V(3766)*V(5252) - ARP(5234) = V(3766)*V(5256) - ARP(5235) = V(3766) - ARP(5236) = V(3690)*V(5255) - ARP(5237) = V(3690)*V(5252) - ARP(5238) = V(3690)*V(5252) - ARP(5239) = V(3690)*V(5256) - ARP(5240) = V(3690) - ARP(5241) = V(3690) - ARP(5242) = V(3690) - ARP(5243) = V(3678)*V(5255) - ARP(5244) = V(3678)*V(5252) - ARP(5245) = V(3678)*V(5256) - ARP(5246) = V(3678) - ARP(5247) = V(3691)*V(5255) - ARP(5248) = V(3691)*V(5252) - ARP(5249) = V(3691)*V(5252) - ARP(5250) = V(3691)*V(5256) - ARP(5251) = V(3691) - ARP(5252) = V(3691) - ARP(5253) = V(3691) - ARP(5254) = V(3704)*V(5255) - ARP(5255) = V(3704)*V(5252) - ARP(5256) = V(3704)*V(5256) - ARP(5257) = V(3704) - ARP(5258) = V(3952)*V(5255) - ARP(5259) = V(3952)*V(5252) - ARP(5260) = V(3952)*V(5252) - ARP(5261) = V(3952)*V(5256) - ARP(5262) = V(3952) - ARP(5263) = V(3952) - ARP(5264) = V(3952) - ARP(5265) = V(5152)*V(5255) - ARP(5266) = V(5152)*V(5255) - ARP(5267) = V(5152)*V(5255) - ARP(5268) = V(5152)*V(5252) - ARP(5269) = V(5152)*V(5253) - ARP(5270) = V(5152)*V(5256) - ARP(5271) = V(5152) - ARP(5272) = V(5152) - ARP(5273) = V(4405)*V(5255) - ARP(5274) = V(4405)*V(5255) - ARP(5275) = V(4405)*V(5255) - ARP(5276) = V(4405)*V(5252) - ARP(5277) = V(4405)*V(5253) - ARP(5278) = V(4405)*V(5256) - ARP(5279) = V(4405) - ARP(5280) = V(4405) - ARP(5281) = V(2807) - ARP(5282) = V(4724)*V(5255) - ARP(5283) = V(4724)*V(5252) - ARP(5284) = V(4724)*V(5256) - ARP(5285) = V(4724) - ARP(5286) = V(4724) - ARP(5287) = V(4724) - ARP(5288) = V(3301) - ARP(5289) = V(4275)*V(5255) - ARP(5290) = V(4275)*V(5255) - ARP(5291) = V(4275)*V(5252) - ARP(5292) = V(4275)*V(5253) - ARP(5293) = V(4275)*V(5256) - ARP(5294) = V(4275) - ARP(5295) = V(4452)*V(5255) - ARP(5296) = V(4452)*V(5255) - ARP(5297) = V(4452)*V(5255) - ARP(5298) = V(4452)*V(5252) - ARP(5299) = V(4452)*V(5253) - ARP(5300) = V(4452)*V(5256) - ARP(5301) = V(4452) - ARP(5302) = V(4452) - ARP(5303) = V(4817)*V(5255) - ARP(5304) = V(4817)*V(5252) - ARP(5305) = V(4817)*V(5256) - ARP(5306) = V(4817) - ARP(5307) = V(4817) - ARP(5308) = V(4817) - ARP(5309) = V(2163) - ARP(5310) = V(4470)*V(5255) - ARP(5311) = V(4470)*V(5255) - ARP(5312) = V(4470)*V(5255) - ARP(5313) = V(4470)*V(5252) - ARP(5314) = V(4470)*V(5253) - ARP(5315) = V(4470)*V(5256) - ARP(5316) = V(4470) - ARP(5317) = V(4470) - ARP(5318) = V(3269) - ARP(5319) = V(4856)*V(5255) - ARP(5320) = V(4856)*V(5252) - ARP(5321) = V(4856)*V(5256) - ARP(5322) = V(4856) - ARP(5323) = V(4281)*V(5255) - ARP(5324) = V(4281)*V(5255) - ARP(5325) = V(4281)*V(5252) - ARP(5326) = V(4281)*V(5253) - ARP(5327) = V(4281)*V(5256) - ARP(5328) = V(4281) - ARP(5329) = V(3964)*V(5255) - ARP(5330) = V(3964)*V(5252) - ARP(5331) = V(3964)*V(5256) - ARP(5332) = V(3964) - ARP(5333) = V(4344)*V(5255) - ARP(5334) = V(4344)*V(5252) - ARP(5335) = V(4344)*V(5256) - ARP(5336) = V(4344) - ARP(5337) = V(4522)*V(5255) - ARP(5338) = V(4522)*V(5255) - ARP(5339) = V(4522)*V(5255) - ARP(5340) = V(4522)*V(5252) - ARP(5341) = V(4522)*V(5253) - ARP(5342) = V(4522)*V(5256) - ARP(5343) = V(4522) - ARP(5344) = V(4522) - ARP(5345) = V(11) - ARP(5346) = V(3888)*V(5255) - ARP(5347) = V(3888)*V(5252) - ARP(5348) = V(3888)*V(5256) - ARP(5349) = V(3888) - ARP(5350) = V(3888) - ARP(5351) = V(7) - ARP(5352) = V(4433)*V(5255) - ARP(5353) = V(4433)*V(5255) - ARP(5354) = V(4433)*V(5255) - ARP(5355) = V(4433)*V(5252) - ARP(5356) = V(4433)*V(5253) - ARP(5357) = V(4433)*V(5256) - ARP(5358) = V(4433) - ARP(5359) = V(4433) - ARP(5360) = V(3252) - ARP(5361) = V(4215)*V(5255) - ARP(5362) = V(4215)*V(5255) - ARP(5363) = V(4215)*V(5252) - ARP(5364) = V(4215)*V(5253) - ARP(5365) = V(4215)*V(5256) - ARP(5366) = V(4215) - ARP(5367) = V(4345)*V(5255) - ARP(5368) = V(4345)*V(5252) - ARP(5369) = V(4345)*V(5256) - ARP(5370) = V(4345) - ARP(5371) = V(4427)*V(5255) - ARP(5372) = V(4427)*V(5255) - ARP(5373) = V(4427)*V(5255) - ARP(5374) = V(4427)*V(5252) - ARP(5375) = V(4427)*V(5253) - ARP(5376) = V(4427)*V(5256) - ARP(5377) = V(4427) - ARP(5378) = V(4427) - ARP(5379) = V(4804)*V(5255) - ARP(5380) = V(4804)*V(5252) - ARP(5381) = V(4804)*V(5256) - ARP(5382) = V(4804) - ARP(5383) = V(4804) - ARP(5384) = V(4804) - ARP(5385) = V(4889)*V(5255) - ARP(5386) = V(4889)*V(5252) - ARP(5387) = V(4889)*V(5256) - ARP(5388) = V(4889) - ARP(5389) = V(4889) - ARP(5390) = V(4889) - ARP(5391) = V(4283)*V(5255) - ARP(5392) = V(4283)*V(5255) - ARP(5393) = V(4283)*V(5252) - ARP(5394) = V(4283)*V(5253) - ARP(5395) = V(4283)*V(5256) - ARP(5396) = V(4283) - ARP(5397) = V(4590)*V(5255) - ARP(5398) = V(4590)*V(5252) - ARP(5399) = V(4590)*V(5256) - ARP(5400) = V(4590) - ARP(5401) = V(4590) - ARP(5402) = V(4590) - ARP(5403) = V(4719)*V(5255) - ARP(5404) = V(4719)*V(5252) - ARP(5405) = V(4719)*V(5256) - ARP(5406) = V(4719) - ARP(5407) = V(4719) - ARP(5408) = V(4719) - ARP(5409) = V(4951)*V(5256) - ARP(5410) = V(4951)*V(5258) - ARP(5411) = V(4951)*V(5250) - ARP(5412) = V(4916)*V(5255) - ARP(5413) = V(4916)*V(5255) - ARP(5414) = V(4916)*V(5255) - ARP(5415) = V(4916)*V(5252) - ARP(5416) = V(4916)*V(5253) - ARP(5417) = V(4916)*V(5256) - ARP(5418) = V(4916) - ARP(5419) = V(4916) - ARP(5420) = V(1210)*V(5250) - ARP(5421) = V(1210) - ARP(5422) = V(1417)*V(5250) - ARP(5423) = V(1417) - ARP(5424) = V(2955)*V(5250) - ARP(5425) = V(2955) - ARP(5426) = V(4822)*V(5255) - ARP(5427) = V(4822)*V(5255) - ARP(5428) = V(4822)*V(5255) - ARP(5429) = V(4822)*V(5252) - ARP(5430) = V(4822)*V(5253) - ARP(5431) = V(4822)*V(5256) - ARP(5432) = V(4822) - ARP(5433) = V(4822) - ARP(5434) = V(4823)*V(5255) - ARP(5435) = V(4823)*V(5252) - ARP(5436) = V(4823)*V(5256) - ARP(5437) = V(4823) - ARP(5438) = V(4823) - ARP(5439) = V(4823) - ARP(5440) = V(1016)*V(5250) - ARP(5441) = V(1016) - ARP(5442) = V(3285)*V(5250) - ARP(5443) = V(3285) - ARP(5444) = V(3576) - ARP(5445) = V(3576) - ARP(5446) = V(3416)*V(5250) - ARP(5447) = V(3416) - ARP(5448) = V(788)*V(5250) - ARP(5449) = V(788) - ARP(5450) = V(3022)*V(5250) - ARP(5451) = V(3022) - ARP(5452) = V(3022) - ARP(5453) = V(2200) - ARP(5454) = V(2448)*V(5250) - ARP(5455) = V(2448) - ARP(5456) = V(1698)*V(5250) - ARP(5457) = V(1698) - ARP(5458) = V(4358)*V(5255) - ARP(5459) = V(4358)*V(5252) - ARP(5460) = V(4358)*V(5256) - ARP(5461) = V(4358) - ARP(5462) = V(4358) - ARP(5463) = V(4358) - ARP(5464) = V(3161)*V(5256) - ARP(5465) = V(3161)*V(5250) - ARP(5466) = V(2799)*V(5250) - ARP(5467) = V(2799) - ARP(5468) = V(2799) - ARP(5469) = V(2798) - ARP(5470) = V(2468)*V(5250) - ARP(5471) = V(2468) - ARP(5472) = V(4531)*V(5253) - ARP(5473) = V(4531)*V(5258) - ARP(5474) = V(614) - ARP(5475) = V(1024)*V(5250) - ARP(5476) = V(1024) - ARP(5477) = V(4603) - ARP(5478) = V(4603) - ARP(5479) = V(94)*V(5250) - ARP(5480) = V(939)*V(5250) - ARP(5481) = V(939) - ARP(5482) = V(4488) - ARP(5483) = V(4488) - ARP(5484) = V(136)*V(5250) - ARP(5485) = V(3253)*V(5250) - ARP(5486) = V(3253) - ARP(5487) = V(3253) - ARP(5488) = V(2506) - ARP(5489) = V(1747)*V(5250) - ARP(5490) = V(1747) - ARP(5491) = V(4048)*V(5256) - ARP(5492) = V(4048)*V(5250) - ARP(5493) = V(4592)*V(5255) - ARP(5494) = V(4592)*V(5252) - ARP(5495) = V(4592)*V(5256) - ARP(5496) = V(4592) - ARP(5497) = V(4514)*V(5253) - ARP(5498) = V(4514)*V(5258) - ARP(5499) = V(628) - ARP(5500) = V(5209)*V(5256) - ARP(5501) = V(5209)*V(5256) - ARP(5502) = V(5209)*V(5258) - ARP(5503) = V(5209)*V(5258) - ARP(5504) = V(5209)*V(5250) - ARP(5505) = V(5209)*V(5250) - ARP(5506) = V(5209)*V(5250) - ARP(5507) = V(5209) - ARP(5508) = V(5209) - ARP(5509) = V(5209) - ARP(5510) = V(5123)*V(5256) - ARP(5511) = V(5123)*V(5258) - ARP(5512) = V(5123)*V(5258) - ARP(5513) = V(5123)*V(5250) - ARP(5514) = V(5123)*V(5250) - ARP(5515) = V(5123) - ARP(5516) = V(5123) - ARP(5517) = V(4952)*V(5256) - ARP(5518) = V(4952)*V(5258) - ARP(5519) = V(4952)*V(5250) - ARP(5520) = V(4986)*V(5255) - ARP(5521) = V(4986)*V(5255) - ARP(5522) = V(4986)*V(5255) - ARP(5523) = V(4986)*V(5252) - ARP(5524) = V(4986)*V(5253) - ARP(5525) = V(4986)*V(5256) - ARP(5526) = V(4986) - ARP(5527) = V(4986) - ARP(5528) = V(1316)*V(5250) - ARP(5529) = V(1316) - ARP(5530) = V(837)*V(5250) - ARP(5531) = V(837) - ARP(5532) = V(3060)*V(5250) - ARP(5533) = V(3060) - ARP(5534) = V(5102)*V(5251) - ARP(5535) = V(5102)*V(5252) - ARP(5536) = V(5102)*V(5253) - ARP(5537) = V(5102)*V(5254) - ARP(5538) = V(5102) - ARP(5539) = V(5102) - ARP(5540) = V(846)*V(5250) - ARP(5541) = V(846) - ARP(5542) = V(3379)*V(5250) - ARP(5543) = V(3379) - ARP(5544) = V(3589) - ARP(5545) = V(3589) - ARP(5546) = V(3378)*V(5250) - ARP(5547) = V(3378) - ARP(5548) = V(565)*V(5250) - ARP(5549) = V(565) - ARP(5550) = V(2501)*V(5250) - ARP(5551) = V(2501) - ARP(5552) = V(2501) - ARP(5553) = V(2234) - ARP(5554) = V(1806)*V(5250) - ARP(5555) = V(1806) - ARP(5556) = V(1588)*V(5250) - ARP(5557) = V(1588) - ARP(5558) = V(4591)*V(5255) - ARP(5559) = V(4591)*V(5255) - ARP(5560) = V(4591)*V(5255) - ARP(5561) = V(4591)*V(5252) - ARP(5562) = V(4591)*V(5253) - ARP(5563) = V(4591)*V(5256) - ARP(5564) = V(4591) - ARP(5565) = V(4591) - ARP(5566) = V(2175)*V(5250) - ARP(5567) = V(2175) - ARP(5568) = V(5076)*V(5256) - ARP(5569) = V(5076)*V(5258) - ARP(5570) = V(5076)*V(5258) - ARP(5571) = V(5076)*V(5250) - ARP(5572) = V(5076)*V(5250) - ARP(5573) = V(5076) - ARP(5574) = V(5076) - ARP(5575) = V(3519)*V(5256) - ARP(5576) = V(3519)*V(5258) - ARP(5577) = V(3519)*V(5250) - ARP(5578) = V(1343)*V(5250) - ARP(5579) = V(1343) - ARP(5580) = V(937)*V(5250) - ARP(5581) = V(937) - ARP(5582) = V(3292)*V(5250) - ARP(5583) = V(3292) - ARP(5584) = V(4740)*V(5255) - ARP(5585) = V(4740)*V(5255) - ARP(5586) = V(4740)*V(5255) - ARP(5587) = V(4740)*V(5252) - ARP(5588) = V(4740)*V(5253) - ARP(5589) = V(4740)*V(5256) - ARP(5590) = V(4740) - ARP(5591) = V(4740) - ARP(5592) = V(4947)*V(5255) - ARP(5593) = V(4947)*V(5252) - ARP(5594) = V(4947)*V(5256) - ARP(5595) = V(4947) - ARP(5596) = V(1049)*V(5250) - ARP(5597) = V(1049) - ARP(5598) = V(3177)*V(5250) - ARP(5599) = V(3177) - ARP(5600) = V(3573) - ARP(5601) = V(3573) - ARP(5602) = V(3176)*V(5250) - ARP(5603) = V(3176) - ARP(5604) = V(764)*V(5250) - ARP(5605) = V(764) - ARP(5606) = V(3469)*V(5250) - ARP(5607) = V(3469) - ARP(5608) = V(3469) - ARP(5609) = V(3469) - ARP(5610) = V(755) - ARP(5611) = V(1988)*V(5250) - ARP(5612) = V(1988) - ARP(5613) = V(1988) - ARP(5614) = V(3321)*V(5250) - ARP(5615) = V(3321) - ARP(5616) = V(3321) - ARP(5617) = V(2806) - ARP(5618) = V(1549)*V(5250) - ARP(5619) = V(1549) - ARP(5620) = V(3170)*V(5256) - ARP(5621) = V(3170)*V(5250) - ARP(5622) = V(4376)*V(5255) - ARP(5623) = V(4376)*V(5252) - ARP(5624) = V(4376)*V(5256) - ARP(5625) = V(4376) - ARP(5626) = V(1157)*V(5250) - ARP(5627) = V(1157) - ARP(5628) = V(4326) - ARP(5629) = V(4326) - ARP(5630) = V(109)*V(5250) - ARP(5631) = V(4471)*V(5253) - ARP(5632) = V(4471)*V(5258) - ARP(5633) = V(723) - ARP(5634) = V(4338)*V(5255) - ARP(5635) = V(4338)*V(5255) - ARP(5636) = V(4338)*V(5255) - ARP(5637) = V(4338)*V(5252) - ARP(5638) = V(4338)*V(5253) - ARP(5639) = V(4338)*V(5256) - ARP(5640) = V(4338) - ARP(5641) = V(4338) - ARP(5642) = V(4038)*V(5255) - ARP(5643) = V(4038)*V(5252) - ARP(5644) = V(4038)*V(5256) - ARP(5645) = V(4038) - ARP(5646) = V(5089)*V(5256) - ARP(5647) = V(5089)*V(5258) - ARP(5648) = V(5089)*V(5258) - ARP(5649) = V(5089)*V(5250) - ARP(5650) = V(5089)*V(5250) - ARP(5651) = V(5089) - ARP(5652) = V(5089) - ARP(5653) = V(4895)*V(5256) - ARP(5654) = V(4895)*V(5258) - ARP(5655) = V(4895)*V(5250) - ARP(5656) = V(4927)*V(5256) - ARP(5657) = V(4927)*V(5258) - ARP(5658) = V(4927)*V(5250) - ARP(5659) = V(4773)*V(5255) - ARP(5660) = V(4773)*V(5255) - ARP(5661) = V(4773)*V(5252) - ARP(5662) = V(4773)*V(5253) - ARP(5663) = V(4773)*V(5256) - ARP(5664) = V(4773) - ARP(5665) = V(1354)*V(5250) - ARP(5666) = V(1354) - ARP(5667) = V(1296)*V(5250) - ARP(5668) = V(1296) - ARP(5669) = V(3206)*V(5250) - ARP(5670) = V(3206) - ARP(5671) = V(4684)*V(5255) - ARP(5672) = V(4684)*V(5255) - ARP(5673) = V(4684)*V(5255) - ARP(5674) = V(4684)*V(5252) - ARP(5675) = V(4684)*V(5253) - ARP(5676) = V(4684)*V(5256) - ARP(5677) = V(4684) - ARP(5678) = V(4684) - ARP(5679) = V(5001)*V(5255) - ARP(5680) = V(5001)*V(5252) - ARP(5681) = V(5001)*V(5256) - ARP(5682) = V(5001) - ARP(5683) = V(5001) - ARP(5684) = V(1415)*V(5250) - ARP(5685) = V(1415) - ARP(5686) = V(3360)*V(5250) - ARP(5687) = V(3360) - ARP(5688) = V(3614) - ARP(5689) = V(3614) - ARP(5690) = V(3359)*V(5250) - ARP(5691) = V(3359) - ARP(5692) = V(779)*V(5250) - ARP(5693) = V(779) - ARP(5694) = V(1836)*V(5250) - ARP(5695) = V(1836) - ARP(5696) = V(720) - ARP(5697) = V(1610)*V(5250) - ARP(5698) = V(1610) - ARP(5699) = V(1609)*V(5250) - ARP(5700) = V(1609) - ARP(5701) = V(3125)*V(5256) - ARP(5702) = V(3125)*V(5250) - ARP(5703) = V(4075)*V(5255) - ARP(5704) = V(4075)*V(5252) - ARP(5705) = V(4075)*V(5256) - ARP(5706) = V(4075) - ARP(5707) = V(1009)*V(5250) - ARP(5708) = V(1009) - ARP(5709) = V(4448) - ARP(5710) = V(4448) - ARP(5711) = V(31)*V(5250) - ARP(5712) = V(3320)*V(5250) - ARP(5713) = V(3320) - ARP(5714) = V(3320) - ARP(5715) = V(2762) - ARP(5716) = V(1664)*V(5250) - ARP(5717) = V(1664) - ARP(5718) = V(4487)*V(5253) - ARP(5719) = V(4487)*V(5258) - ARP(5720) = V(738) - ARP(5721) = V(4100)*V(5255) - ARP(5722) = V(4100)*V(5255) - ARP(5723) = V(4100)*V(5255) - ARP(5724) = V(4100)*V(5252) - ARP(5725) = V(4100)*V(5253) - ARP(5726) = V(4100)*V(5256) - ARP(5727) = V(4100) - ARP(5728) = V(4100) - ARP(5729) = V(4005)*V(5255) - ARP(5730) = V(4005)*V(5252) - ARP(5731) = V(4005)*V(5256) - ARP(5732) = V(4005) - ARP(5733) = V(5037)*V(5258) - ARP(5734) = V(5037)*V(5250) - ARP(5735) = V(5037) - ARP(5736) = V(1403)*V(5250) - ARP(5737) = V(1403) - ARP(5738) = V(941)*V(5250) - ARP(5739) = V(941) - ARP(5740) = V(2569)*V(5250) - ARP(5741) = V(2569) - ARP(5742) = V(1167)*V(5250) - ARP(5743) = V(1167) - ARP(5744) = V(3340)*V(5250) - ARP(5745) = V(3340) - ARP(5746) = V(3605) - ARP(5747) = V(3605) - ARP(5748) = V(3339)*V(5250) - ARP(5749) = V(3339) - ARP(5750) = V(681)*V(5250) - ARP(5751) = V(681) - ARP(5752) = V(3468)*V(5250) - ARP(5753) = V(3468) - ARP(5754) = V(3468) - ARP(5755) = V(3468) - ARP(5756) = V(2837) - ARP(5757) = V(2477)*V(5250) - ARP(5758) = V(2477) - ARP(5759) = V(2477) - ARP(5760) = V(2565)*V(5250) - ARP(5761) = V(2565) - ARP(5762) = V(2565) - ARP(5763) = V(2595) - ARP(5764) = V(1700)*V(5250) - ARP(5765) = V(1700) - ARP(5766) = V(3150)*V(5256) - ARP(5767) = V(3150)*V(5250) - ARP(5768) = V(4001)*V(5255) - ARP(5769) = V(4001)*V(5252) - ARP(5770) = V(4001)*V(5256) - ARP(5771) = V(4001) - ARP(5772) = V(996)*V(5250) - ARP(5773) = V(996) - ARP(5774) = V(4012) - ARP(5775) = V(4012) - ARP(5776) = V(84)*V(5250) - ARP(5777) = V(4509)*V(5253) - ARP(5778) = V(4509)*V(5258) - ARP(5779) = V(569) - ARP(5780) = V(4187)*V(5255) - ARP(5781) = V(4187)*V(5255) - ARP(5782) = V(4187)*V(5255) - ARP(5783) = V(4187)*V(5252) - ARP(5784) = V(4187)*V(5253) - ARP(5785) = V(4187)*V(5256) - ARP(5786) = V(4187) - ARP(5787) = V(4187) - ARP(5788) = V(3093)*V(5256) - ARP(5789) = V(3093)*V(5250) - ARP(5790) = V(4020)*V(5255) - ARP(5791) = V(4020)*V(5252) - ARP(5792) = V(4020)*V(5256) - ARP(5793) = V(4020) - ARP(5794) = V(938)*V(5250) - ARP(5795) = V(938) - ARP(5796) = V(4045) - ARP(5797) = V(4045) - ARP(5798) = V(47)*V(5250) - ARP(5799) = V(2520)*V(5250) - ARP(5800) = V(2520) - ARP(5801) = V(2520) - ARP(5802) = V(3050) - ARP(5803) = V(1613)*V(5250) - ARP(5804) = V(1613) - ARP(5805) = V(4454)*V(5253) - ARP(5806) = V(4454)*V(5258) - ARP(5807) = V(568) - ARP(5808) = V(5126)*V(5256) - ARP(5809) = V(5126)*V(5258) - ARP(5810) = V(5126)*V(5258) - ARP(5811) = V(5126)*V(5250) - ARP(5812) = V(5126)*V(5250) - ARP(5813) = V(5126) - ARP(5814) = V(5126) - ARP(5815) = V(4896)*V(5256) - ARP(5816) = V(4896)*V(5258) - ARP(5817) = V(4896)*V(5250) - ARP(5818) = V(5034)*V(5255) - ARP(5819) = V(5034)*V(5255) - ARP(5820) = V(5034)*V(5255) - ARP(5821) = V(5034)*V(5252) - ARP(5822) = V(5034)*V(5253) - ARP(5823) = V(5034)*V(5256) - ARP(5824) = V(5034) - ARP(5825) = V(5034) - ARP(5826) = V(961)*V(5250) - ARP(5827) = V(961) - ARP(5828) = V(921)*V(5250) - ARP(5829) = V(921) - ARP(5830) = V(2640)*V(5250) - ARP(5831) = V(2640) - ARP(5832) = V(5070)*V(5251) - ARP(5833) = V(5070)*V(5252) - ARP(5834) = V(5070)*V(5253) - ARP(5835) = V(5070)*V(5254) - ARP(5836) = V(5070) - ARP(5837) = V(5070) - ARP(5838) = V(1510)*V(5250) - ARP(5839) = V(1510) - ARP(5840) = V(3357)*V(5250) - ARP(5841) = V(3357) - ARP(5842) = V(3588) - ARP(5843) = V(3588) - ARP(5844) = V(3356)*V(5250) - ARP(5845) = V(3356) - ARP(5846) = V(683)*V(5250) - ARP(5847) = V(683) - ARP(5848) = V(3238)*V(5250) - ARP(5849) = V(3238) - ARP(5850) = V(3238) - ARP(5851) = V(1760) - ARP(5852) = V(1598)*V(5250) - ARP(5853) = V(1598) - ARP(5854) = V(2714)*V(5250) - ARP(5855) = V(2714) - ARP(5856) = V(4030)*V(5255) - ARP(5857) = V(4030)*V(5252) - ARP(5858) = V(4030)*V(5256) - ARP(5859) = V(4030) - ARP(5860) = V(4030) - ARP(5861) = V(4030) - ARP(5862) = V(3319)*V(5250) - ARP(5863) = V(3319) - ARP(5864) = V(3319) - ARP(5865) = V(2493) - ARP(5866) = V(1672)*V(5250) - ARP(5867) = V(1672) - ARP(5868) = V(3140)*V(5256) - ARP(5869) = V(3140)*V(5250) - ARP(5870) = V(4016)*V(5255) - ARP(5871) = V(4016)*V(5252) - ARP(5872) = V(4016)*V(5256) - ARP(5873) = V(4016) - ARP(5874) = V(1023)*V(5250) - ARP(5875) = V(1023) - ARP(5876) = V(4619) - ARP(5877) = V(4619) - ARP(5878) = V(143)*V(5250) - ARP(5879) = V(4466)*V(5253) - ARP(5880) = V(4466)*V(5258) - ARP(5881) = V(538) - ARP(5882) = V(4918)*V(5256) - ARP(5883) = V(4918)*V(5250) - ARP(5884) = V(4918) - ARP(5885) = V(5066)*V(5256) - ARP(5886) = V(5066)*V(5258) - ARP(5887) = V(5066)*V(5258) - ARP(5888) = V(5066)*V(5250) - ARP(5889) = V(5066)*V(5250) - ARP(5890) = V(5066) - ARP(5891) = V(5066) - ARP(5892) = V(4637)*V(5256) - ARP(5893) = V(4637)*V(5258) - ARP(5894) = V(4637)*V(5250) - ARP(5895) = V(4917)*V(5255) - ARP(5896) = V(4917)*V(5255) - ARP(5897) = V(4917)*V(5255) - ARP(5898) = V(4917)*V(5252) - ARP(5899) = V(4917)*V(5253) - ARP(5900) = V(4917)*V(5256) - ARP(5901) = V(4917) - ARP(5902) = V(4917) - ARP(5903) = V(1073)*V(5250) - ARP(5904) = V(1073) - ARP(5905) = V(1031)*V(5250) - ARP(5906) = V(1031) - ARP(5907) = V(2656)*V(5250) - ARP(5908) = V(2656) - ARP(5909) = V(4997)*V(5251) - ARP(5910) = V(4997)*V(5252) - ARP(5911) = V(4997)*V(5253) - ARP(5912) = V(4997)*V(5254) - ARP(5913) = V(4997) - ARP(5914) = V(4997) - ARP(5915) = V(851)*V(5250) - ARP(5916) = V(851) - ARP(5917) = V(3427)*V(5250) - ARP(5918) = V(3427) - ARP(5919) = V(4388) - ARP(5920) = V(4388) - ARP(5921) = V(3426)*V(5250) - ARP(5922) = V(3426) - ARP(5923) = V(732)*V(5250) - ARP(5924) = V(732) - ARP(5925) = V(2559)*V(5250) - ARP(5926) = V(2559) - ARP(5927) = V(2559) - ARP(5928) = V(2117) - ARP(5929) = V(1623)*V(5250) - ARP(5930) = V(1623) - ARP(5931) = V(2645)*V(5250) - ARP(5932) = V(2645) - ARP(5933) = V(1878)*V(5250) - ARP(5934) = V(1878) - ARP(5935) = V(3165)*V(5256) - ARP(5936) = V(3165)*V(5250) - ARP(5937) = V(4063)*V(5255) - ARP(5938) = V(4063)*V(5252) - ARP(5939) = V(4063)*V(5256) - ARP(5940) = V(4063) - ARP(5941) = V(1232)*V(5250) - ARP(5942) = V(1232) - ARP(5943) = V(4743) - ARP(5944) = V(4743) - ARP(5945) = V(71)*V(5250) - ARP(5946) = V(2709)*V(5250) - ARP(5947) = V(2709) - ARP(5948) = V(2709) - ARP(5949) = V(3027) - ARP(5950) = V(1717)*V(5250) - ARP(5951) = V(1717) - ARP(5952) = V(4444)*V(5253) - ARP(5953) = V(4444)*V(5258) - ARP(5954) = V(700) - ARP(5955) = V(5068)*V(5256) - ARP(5956) = V(5068)*V(5258) - ARP(5957) = V(5068)*V(5258) - ARP(5958) = V(5068)*V(5250) - ARP(5959) = V(5068)*V(5250) - ARP(5960) = V(5068) - ARP(5961) = V(5068) - ARP(5962) = V(5068) - ARP(5963) = V(4650)*V(5256) - ARP(5964) = V(4650)*V(5258) - ARP(5965) = V(4650)*V(5250) - ARP(5966) = V(4930)*V(5255) - ARP(5967) = V(4930)*V(5255) - ARP(5968) = V(4930)*V(5255) - ARP(5969) = V(4930)*V(5252) - ARP(5970) = V(4930)*V(5253) - ARP(5971) = V(4930)*V(5256) - ARP(5972) = V(4930) - ARP(5973) = V(4930) - ARP(5974) = V(1174)*V(5250) - ARP(5975) = V(1174) - ARP(5976) = V(910)*V(5250) - ARP(5977) = V(910) - ARP(5978) = V(2915)*V(5250) - ARP(5979) = V(2915) - ARP(5980) = V(4998)*V(5251) - ARP(5981) = V(4998)*V(5252) - ARP(5982) = V(4998)*V(5253) - ARP(5983) = V(4998)*V(5254) - ARP(5984) = V(4998) - ARP(5985) = V(4998) - ARP(5986) = V(1065)*V(5250) - ARP(5987) = V(1065) - ARP(5988) = V(3353)*V(5250) - ARP(5989) = V(3353) - ARP(5990) = V(4393) - ARP(5991) = V(4393) - ARP(5992) = V(3352)*V(5250) - ARP(5993) = V(3352) - ARP(5994) = V(531)*V(5250) - ARP(5995) = V(531) - ARP(5996) = V(2601)*V(5250) - ARP(5997) = V(2601) - ARP(5998) = V(2601) - ARP(5999) = V(1951) - ARP(6000) = V(1636)*V(5250) - ARP(6001) = V(1636) - ARP(6002) = V(2875)*V(5250) - ARP(6003) = V(2875) - ARP(6004) = V(4375)*V(5255) - ARP(6005) = V(4375)*V(5255) - ARP(6006) = V(4375)*V(5255) - ARP(6007) = V(4375)*V(5252) - ARP(6008) = V(4375)*V(5253) - ARP(6009) = V(4375)*V(5256) - ARP(6010) = V(4375) - ARP(6011) = V(4375) - ARP(6012) = V(2740)*V(5250) - ARP(6013) = V(2740) - ARP(6014) = V(2740) - ARP(6015) = V(2994) - ARP(6016) = V(1647)*V(5250) - ARP(6017) = V(1647) - ARP(6018) = V(3111)*V(5256) - ARP(6019) = V(3111)*V(5250) - ARP(6020) = V(4037)*V(5255) - ARP(6021) = V(4037)*V(5252) - ARP(6022) = V(4037)*V(5256) - ARP(6023) = V(4037) - ARP(6024) = V(884)*V(5250) - ARP(6025) = V(884) - ARP(6026) = V(3195) - ARP(6027) = V(68)*V(5250) - ARP(6028) = V(4639)*V(5253) - ARP(6029) = V(4639)*V(5258) - ARP(6030) = V(752) - ARP(6031) = V(3437)*V(5256) - ARP(6032) = V(3437)*V(5250) - ARP(6033) = V(3437)*V(5250) - ARP(6034) = V(3437) - ARP(6035) = V(3437) - ARP(6036) = V(4505)*V(5256) - ARP(6037) = V(4505)*V(5258) - ARP(6038) = V(4505)*V(5250) - ARP(6039) = V(3553)*V(5256) - ARP(6040) = V(3553)*V(5258) - ARP(6041) = V(3553)*V(5250) - ARP(6042) = V(4846)*V(5255) - ARP(6043) = V(4846)*V(5255) - ARP(6044) = V(4846)*V(5255) - ARP(6045) = V(4846)*V(5252) - ARP(6046) = V(4846)*V(5253) - ARP(6047) = V(4846)*V(5256) - ARP(6048) = V(4846) - ARP(6049) = V(4846) - ARP(6050) = V(4913)*V(5255) - ARP(6051) = V(4913)*V(5252) - ARP(6052) = V(4913)*V(5256) - ARP(6053) = V(4913) - ARP(6054) = V(1112)*V(5250) - ARP(6055) = V(1112) - ARP(6056) = V(3567) - ARP(6057) = V(3567) - ARP(6058) = V(3304)*V(5250) - ARP(6059) = V(3304) - ARP(6060) = V(3486)*V(5250) - ARP(6061) = V(3486) - ARP(6062) = V(3486) - ARP(6063) = V(812)*V(5250) - ARP(6064) = V(812) - ARP(6065) = V(4139)*V(5255) - ARP(6066) = V(4139)*V(5255) - ARP(6067) = V(4139)*V(5255) - ARP(6068) = V(4139)*V(5252) - ARP(6069) = V(4139)*V(5253) - ARP(6070) = V(4139)*V(5256) - ARP(6071) = V(4139) - ARP(6072) = V(4139) - ARP(6073) = V(4000)*V(5255) - ARP(6074) = V(4000)*V(5252) - ARP(6075) = V(4000)*V(5256) - ARP(6076) = V(4000) - ARP(6077) = V(3832)*V(5258) - ARP(6078) = V(3832)*V(5258) - ARP(6079) = V(3832)*V(5250) - ARP(6080) = V(3832) - ARP(6081) = V(3832) - ARP(6082) = V(2649)*V(5250) - ARP(6083) = V(2649) - ARP(6084) = V(2649) - ARP(6085) = V(2776) - ARP(6086) = V(1669)*V(5250) - ARP(6087) = V(1669) - ARP(6088) = V(3085)*V(5256) - ARP(6089) = V(3085)*V(5250) - ARP(6090) = V(4009)*V(5255) - ARP(6091) = V(4009)*V(5252) - ARP(6092) = V(4009)*V(5256) - ARP(6093) = V(4009) - ARP(6094) = V(959)*V(5250) - ARP(6095) = V(959) - ARP(6096) = V(4322) - ARP(6097) = V(4322) - ARP(6098) = V(17)*V(5250) - ARP(6099) = V(4670)*V(5253) - ARP(6100) = V(4670)*V(5258) - ARP(6101) = V(705) - ARP(6102) = V(3227)*V(5250) - ARP(6103) = V(3227) - ARP(6104) = V(3487)*V(5250) - ARP(6105) = V(3487) - ARP(6106) = V(3487) - ARP(6107) = V(3316)*V(5250) - ARP(6108) = V(3316) - ARP(6109) = V(1014)*V(5250) - ARP(6110) = V(1014) - ARP(6111) = V(3584) - ARP(6112) = V(3584) - ARP(6113) = V(3264)*V(5250) - ARP(6114) = V(3264) - ARP(6115) = V(3433)*V(5250) - ARP(6116) = V(3433) - ARP(6117) = V(785)*V(5250) - ARP(6118) = V(785) - ARP(6119) = V(3452)*V(5250) - ARP(6120) = V(3452) - ARP(6121) = V(3452) - ARP(6122) = V(3452) - ARP(6123) = V(2356) - ARP(6124) = V(2357)*V(5250) - ARP(6125) = V(2357) - ARP(6126) = V(2357) - ARP(6127) = V(4181)*V(5255) - ARP(6128) = V(4181)*V(5255) - ARP(6129) = V(4181)*V(5255) - ARP(6130) = V(4181)*V(5252) - ARP(6131) = V(4181)*V(5253) - ARP(6132) = V(4181)*V(5256) - ARP(6133) = V(4181) - ARP(6134) = V(4181) - ARP(6135) = V(4041)*V(5255) - ARP(6136) = V(4041)*V(5252) - ARP(6137) = V(4041)*V(5256) - ARP(6138) = V(4041) - ARP(6139) = V(4985)*V(5255) - ARP(6140) = V(4985)*V(5255) - ARP(6141) = V(4985)*V(5252) - ARP(6142) = V(4985)*V(5253) - ARP(6143) = V(4985)*V(5256) - ARP(6144) = V(4985) - ARP(6145) = V(4985) - ARP(6146) = V(2585)*V(5250) - ARP(6147) = V(2585) - ARP(6148) = V(2585) - ARP(6149) = V(2847) - ARP(6150) = V(1589)*V(5250) - ARP(6151) = V(1589) - ARP(6152) = V(1218)*V(5250) - ARP(6153) = V(1218) - ARP(6154) = V(3246) - ARP(6155) = V(13)*V(5250) - ARP(6156) = V(1513)*V(5250) - ARP(6157) = V(1513) - ARP(6158) = V(1465)*V(5250) - ARP(6159) = V(1465) - ARP(6160) = V(3258)*V(5250) - ARP(6161) = V(3258) - ARP(6162) = V(4680)*V(5255) - ARP(6163) = V(4680)*V(5255) - ARP(6164) = V(4680)*V(5255) - ARP(6165) = V(4680)*V(5252) - ARP(6166) = V(4680)*V(5253) - ARP(6167) = V(4680)*V(5256) - ARP(6168) = V(4680) - ARP(6169) = V(4680) - ARP(6170) = V(5011)*V(5255) - ARP(6171) = V(5011)*V(5252) - ARP(6172) = V(5011)*V(5256) - ARP(6173) = V(5011) - ARP(6174) = V(1034)*V(5250) - ARP(6175) = V(1034) - ARP(6176) = V(3569) - ARP(6177) = V(3569) - ARP(6178) = V(3438)*V(5250) - ARP(6179) = V(3438) - ARP(6180) = V(487)*V(5250) - ARP(6181) = V(487) - ARP(6182) = V(3624)*V(5250) - ARP(6183) = V(3624) - ARP(6184) = V(3624) - ARP(6185) = V(3624) - ARP(6186) = V(756) - ARP(6187) = V(1600)*V(5250) - ARP(6188) = V(1600) - ARP(6189) = V(3251)*V(5250) - ARP(6190) = V(3251) - ARP(6191) = V(3251) - ARP(6192) = V(3814)*V(5255) - ARP(6193) = V(3814)*V(5252) - ARP(6194) = V(3814)*V(5256) - ARP(6195) = V(3814) - ARP(6196) = V(3814) - ARP(6197) = V(3814) - ARP(6198) = V(1409)*V(5250) - ARP(6199) = V(1409) - ARP(6200) = V(1370)*V(5250) - ARP(6201) = V(1370) - ARP(6202) = V(2857)*V(5250) - ARP(6203) = V(2857) - ARP(6204) = V(4198)*V(5255) - ARP(6205) = V(4198)*V(5255) - ARP(6206) = V(4198)*V(5255) - ARP(6207) = V(4198)*V(5252) - ARP(6208) = V(4198)*V(5253) - ARP(6209) = V(4198)*V(5256) - ARP(6210) = V(4198) - ARP(6211) = V(4198) - ARP(6212) = V(4769)*V(5255) - ARP(6213) = V(4769)*V(5252) - ARP(6214) = V(4769)*V(5256) - ARP(6215) = V(4769) - ARP(6216) = V(1103)*V(5250) - ARP(6217) = V(1103) - ARP(6218) = V(3108)*V(5250) - ARP(6219) = V(3108) - ARP(6220) = V(3606) - ARP(6221) = V(3606) - ARP(6222) = V(3107)*V(5250) - ARP(6223) = V(3107) - ARP(6224) = V(647)*V(5250) - ARP(6225) = V(647) - ARP(6226) = V(1968)*V(5250) - ARP(6227) = V(1968) - ARP(6228) = V(1968) - ARP(6229) = V(1583) - ARP(6230) = V(1584)*V(5250) - ARP(6231) = V(1584) - ARP(6232) = V(1584) - ARP(6233) = V(2624)*V(5250) - ARP(6234) = V(2624) - ARP(6235) = V(2624) - ARP(6236) = V(3666) - ARP(6237) = V(1567)*V(5250) - ARP(6238) = V(1567) - ARP(6239) = V(3153)*V(5256) - ARP(6240) = V(3153)*V(5250) - ARP(6241) = V(4082)*V(5255) - ARP(6242) = V(4082)*V(5252) - ARP(6243) = V(4082)*V(5256) - ARP(6244) = V(4082) - ARP(6245) = V(1033)*V(5250) - ARP(6246) = V(1033) - ARP(6247) = V(4152) - ARP(6248) = V(4152) - ARP(6249) = V(119)*V(5250) - ARP(6250) = V(4413)*V(5253) - ARP(6251) = V(4413)*V(5258) - ARP(6252) = V(718) - ARP(6253) = V(1405)*V(5250) - ARP(6254) = V(1405) - ARP(6255) = V(1473)*V(5250) - ARP(6256) = V(1473) - ARP(6257) = V(2950)*V(5250) - ARP(6258) = V(2950) - ARP(6259) = V(1038)*V(5250) - ARP(6260) = V(1038) - ARP(6261) = V(3322)*V(5250) - ARP(6262) = V(3322) - ARP(6263) = V(3610) - ARP(6264) = V(3610) - ARP(6265) = V(3411)*V(5250) - ARP(6266) = V(3411) - ARP(6267) = V(742)*V(5250) - ARP(6268) = V(742) - ARP(6269) = V(1873)*V(5250) - ARP(6270) = V(1873) - ARP(6271) = V(1873) - ARP(6272) = V(1640) - ARP(6273) = V(2484)*V(5250) - ARP(6274) = V(2484) - ARP(6275) = V(2484) - ARP(6276) = V(1560)*V(5250) - ARP(6277) = V(1560) - ARP(6278) = V(1560) - ARP(6279) = V(3101)*V(5256) - ARP(6280) = V(3101)*V(5250) - ARP(6281) = V(4008)*V(5255) - ARP(6282) = V(4008)*V(5252) - ARP(6283) = V(4008)*V(5256) - ARP(6284) = V(4008) - ARP(6285) = V(1503)*V(5250) - ARP(6286) = V(1503) - ARP(6287) = V(4799) - ARP(6288) = V(4799) - ARP(6289) = V(124)*V(5250) - ARP(6290) = V(2499)*V(5250) - ARP(6291) = V(2499) - ARP(6292) = V(2499) - ARP(6293) = V(2789) - ARP(6294) = V(1555)*V(5250) - ARP(6295) = V(1555) - ARP(6296) = V(4402)*V(5253) - ARP(6297) = V(4402)*V(5258) - ARP(6298) = V(676) - ARP(6299) = V(5103)*V(5258) - ARP(6300) = V(5103)*V(5258) - ARP(6301) = V(5103)*V(5250) - ARP(6302) = V(5103) - ARP(6303) = V(5103) - ARP(6304) = V(1481)*V(5250) - ARP(6305) = V(1481) - ARP(6306) = V(1254)*V(5250) - ARP(6307) = V(1254) - ARP(6308) = V(2632)*V(5250) - ARP(6309) = V(2632) - ARP(6310) = V(1161)*V(5250) - ARP(6311) = V(1161) - ARP(6312) = V(3271)*V(5250) - ARP(6313) = V(3271) - ARP(6314) = V(3570) - ARP(6315) = V(3570) - ARP(6316) = V(3345)*V(5250) - ARP(6317) = V(3345) - ARP(6318) = V(811)*V(5250) - ARP(6319) = V(811) - ARP(6320) = V(3451)*V(5250) - ARP(6321) = V(3451) - ARP(6322) = V(3451) - ARP(6323) = V(3451) - ARP(6324) = V(2287) - ARP(6325) = V(1857)*V(5250) - ARP(6326) = V(1857) - ARP(6327) = V(1857) - ARP(6328) = V(3279)*V(5250) - ARP(6329) = V(3279) - ARP(6330) = V(3279) - ARP(6331) = V(2563) - ARP(6332) = V(1554)*V(5250) - ARP(6333) = V(1554) - ARP(6334) = V(3098)*V(5256) - ARP(6335) = V(3098)*V(5250) - ARP(6336) = V(4085)*V(5255) - ARP(6337) = V(4085)*V(5252) - ARP(6338) = V(4085)*V(5256) - ARP(6339) = V(4085) - ARP(6340) = V(932)*V(5250) - ARP(6341) = V(932) - ARP(6342) = V(4533) - ARP(6343) = V(4533) - ARP(6344) = V(111)*V(5250) - ARP(6345) = V(4499)*V(5253) - ARP(6346) = V(4499)*V(5258) - ARP(6347) = V(560) - ARP(6348) = V(4070)*V(5255) - ARP(6349) = V(4070)*V(5252) - ARP(6350) = V(4070)*V(5256) - ARP(6351) = V(4070) - ARP(6352) = V(4070) - ARP(6353) = V(4070) - ARP(6354) = V(5141)*V(5256) - ARP(6355) = V(5141)*V(5258) - ARP(6356) = V(5141)*V(5258) - ARP(6357) = V(5141)*V(5250) - ARP(6358) = V(5141)*V(5250) - ARP(6359) = V(5141) - ARP(6360) = V(5141) - ARP(6361) = V(4793)*V(5256) - ARP(6362) = V(4793)*V(5258) - ARP(6363) = V(4793)*V(5250) - ARP(6364) = V(1330)*V(5250) - ARP(6365) = V(1330) - ARP(6366) = V(1299)*V(5250) - ARP(6367) = V(1299) - ARP(6368) = V(2948)*V(5250) - ARP(6369) = V(2948) - ARP(6370) = V(947)*V(5250) - ARP(6371) = V(947) - ARP(6372) = V(3581) - ARP(6373) = V(3581) - ARP(6374) = V(3457)*V(5250) - ARP(6375) = V(3457) - ARP(6376) = V(475)*V(5250) - ARP(6377) = V(475) - ARP(6378) = V(3702)*V(5250) - ARP(6379) = V(3702) - ARP(6380) = V(3702) - ARP(6381) = V(3702) - ARP(6382) = V(623) - ARP(6383) = V(1665)*V(5250) - ARP(6384) = V(1665) - ARP(6385) = V(3262)*V(5250) - ARP(6386) = V(3262) - ARP(6387) = V(3295)*V(5250) - ARP(6388) = V(3295) - ARP(6389) = V(3295) - ARP(6390) = V(2728) - ARP(6391) = V(1594)*V(5250) - ARP(6392) = V(1594) - ARP(6393) = V(982)*V(5250) - ARP(6394) = V(982) - ARP(6395) = V(3296) - ARP(6396) = V(18)*V(5250) - ARP(6397) = V(3810)*V(5255) - ARP(6398) = V(3810)*V(5252) - ARP(6399) = V(3810)*V(5256) - ARP(6400) = V(3810) - ARP(6401) = V(3810) - ARP(6402) = V(3810) - ARP(6403) = V(4051)*V(5255) - ARP(6404) = V(4051)*V(5255) - ARP(6405) = V(4051)*V(5252) - ARP(6406) = V(4051)*V(5253) - ARP(6407) = V(4051)*V(5256) - ARP(6408) = V(4051) - ARP(6409) = V(3235)*V(5250) - ARP(6410) = V(3235) - ARP(6411) = V(3235) - ARP(6412) = V(2732) - ARP(6413) = V(1729)*V(5250) - ARP(6414) = V(1729) - ARP(6415) = V(1396)*V(5250) - ARP(6416) = V(1396) - ARP(6417) = V(3283) - ARP(6418) = V(74)*V(5250) - ARP(6419) = V(4168)*V(5255) - ARP(6420) = V(4168)*V(5255) - ARP(6421) = V(4168)*V(5252) - ARP(6422) = V(4168)*V(5253) - ARP(6423) = V(4168)*V(5256) - ARP(6424) = V(4168) - ARP(6425) = V(898)*V(5250) - ARP(6426) = V(898) - ARP(6427) = V(1274)*V(5250) - ARP(6428) = V(1274) - ARP(6429) = V(2650)*V(5250) - ARP(6430) = V(2650) - ARP(6431) = V(4628)*V(5255) - ARP(6432) = V(4628)*V(5255) - ARP(6433) = V(4628)*V(5255) - ARP(6434) = V(4628)*V(5252) - ARP(6435) = V(4628)*V(5253) - ARP(6436) = V(4628)*V(5256) - ARP(6437) = V(4628) - ARP(6438) = V(4628) - ARP(6439) = V(4277)*V(5255) - ARP(6440) = V(4277)*V(5252) - ARP(6441) = V(4277)*V(5256) - ARP(6442) = V(4277) - ARP(6443) = V(4277) - ARP(6444) = V(4787)*V(5255) - ARP(6445) = V(4787)*V(5252) - ARP(6446) = V(4787)*V(5256) - ARP(6447) = V(4787) - ARP(6448) = V(4787) - ARP(6449) = V(4787) - ARP(6450) = V(914)*V(5250) - ARP(6451) = V(914) - ARP(6452) = V(3600) - ARP(6453) = V(3600) - ARP(6454) = V(3460)*V(5250) - ARP(6455) = V(3460) - ARP(6456) = V(374)*V(5250) - ARP(6457) = V(374) - ARP(6458) = V(2137)*V(5250) - ARP(6459) = V(2137) - ARP(6460) = V(2137) - ARP(6461) = V(589) - ARP(6462) = V(1576)*V(5250) - ARP(6463) = V(1576) - ARP(6464) = V(3200)*V(5250) - ARP(6465) = V(3200) - ARP(6466) = V(4589)*V(5255) - ARP(6467) = V(4589)*V(5252) - ARP(6468) = V(4589)*V(5256) - ARP(6469) = V(4589) - ARP(6470) = V(4589) - ARP(6471) = V(4589) - ARP(6472) = V(4516)*V(5255) - ARP(6473) = V(4516)*V(5255) - ARP(6474) = V(4516)*V(5255) - ARP(6475) = V(4516)*V(5252) - ARP(6476) = V(4516)*V(5253) - ARP(6477) = V(4516)*V(5256) - ARP(6478) = V(4516) - ARP(6479) = V(4516) - ARP(6480) = V(2481) - ARP(6481) = V(2481) - ARP(6482) = V(2481) - ARP(6483) = V(2481) - ARP(6484) = V(4732)*V(5255) - ARP(6485) = V(4732)*V(5252) - ARP(6486) = V(4732)*V(5256) - ARP(6487) = V(4732) - ARP(6488) = V(4732) - ARP(6489) = V(4732) - ARP(6490) = V(4414)*V(5255) - ARP(6491) = V(4414)*V(5255) - ARP(6492) = V(4414)*V(5255) - ARP(6493) = V(4414)*V(5252) - ARP(6494) = V(4414)*V(5253) - ARP(6495) = V(4414)*V(5256) - ARP(6496) = V(4414) - ARP(6497) = V(4414) - ARP(6498) = V(1642) - ARP(6499) = V(1642) - ARP(6500) = V(1642) - ARP(6501) = V(1642) - ARP(6502) = V(4159)*V(5255) - ARP(6503) = V(4159)*V(5252) - ARP(6504) = V(4159)*V(5252) - ARP(6505) = V(4159)*V(5256) - ARP(6506) = V(4159) - ARP(6507) = V(4159) - ARP(6508) = V(4159) - ARP(6509) = V(2258) - ARP(6510) = V(2258) - ARP(6511) = V(2258) - ARP(6512) = V(2258) - ARP(6513) = V(4578)*V(5255) - ARP(6514) = V(4578)*V(5252) - ARP(6515) = V(4578)*V(5252) - ARP(6516) = V(4578)*V(5256) - ARP(6517) = V(4578) - ARP(6518) = V(4578) - ARP(6519) = V(4578) - ARP(6520) = V(4341)*V(5255) - ARP(6521) = V(4341)*V(5252) - ARP(6522) = V(4341)*V(5256) - ARP(6523) = V(4341) - ARP(6524) = V(4341) - ARP(6525) = V(4341) - ARP(6526) = V(4259)*V(5255) - ARP(6527) = V(4259)*V(5255) - ARP(6528) = V(4259)*V(5252) - ARP(6529) = V(4259)*V(5253) - ARP(6530) = V(4259)*V(5256) - ARP(6531) = V(4259) - ARP(6532) = V(1661) - ARP(6533) = V(2081) - ARP(6534) = V(2081) - ARP(6535) = V(563) - ARP(6536) = V(563) - ARP(6537) = V(5015)*V(5255) - ARP(6538) = V(5015)*V(5252) - ARP(6539) = V(5015)*V(5252) - ARP(6540) = V(5015)*V(5256) - ARP(6541) = V(5015) - ARP(6542) = V(5015) - ARP(6543) = V(5015) - ARP(6544) = V(4436)*V(5255) - ARP(6545) = V(4436)*V(5255) - ARP(6546) = V(4436)*V(5255) - ARP(6547) = V(4436)*V(5252) - ARP(6548) = V(4436)*V(5253) - ARP(6549) = V(4436)*V(5256) - ARP(6550) = V(4436) - ARP(6551) = V(4436) - ARP(6552) = V(3630) - ARP(6553) = V(3630) - ARP(6554) = V(529) - ARP(6555) = V(529) - ARP(6556) = V(3939)*V(5255) - ARP(6557) = V(3939)*V(5252) - ARP(6558) = V(3939)*V(5256) - ARP(6559) = V(3939) - ARP(6560) = V(3939) - ARP(6561) = V(1289) - ARP(6562) = V(1289)*V(5250) - ARP(6563) = V(4958) - ARP(6564) = V(4958)*V(5250) - ARP(6565) = V(3234) - ARP(6566) = V(4564) - ARP(6567) = V(4564)*V(5250) - ARP(6568) = V(5225)*V(5250) - ARP(6569) = V(5225)*V(5250) - ARP(6570) = V(5225) - ARP(6571) = V(3514) - ARP(6572) = V(3514)*V(5250) - ARP(6573) = V(533) - ARP(6574) = V(5080) - ARP(6575) = V(5080)*V(5250) - ARP(6576) = V(2497) - ARP(6577) = V(2497) - ARP(6578) = V(2497)*V(5250) - ARP(6579) = V(2497)*V(5250) - ARP(6580) = V(654) - ARP(6581) = V(3488)*V(5256) - ARP(6582) = V(3488)*V(5250) - ARP(6583) = V(3488) - ARP(6584) = V(4107) - ARP(6585) = V(4107)*V(5250) - ARP(6586) = V(4107)*V(5250) - ARP(6587) = V(4107)*V(5250) - ARP(6588) = V(2308) - ARP(6589) = V(2308) - ARP(6590) = V(2308) - ARP(6591) = V(5013) - ARP(6592) = V(5013)*V(5258) - ARP(6593) = V(5013)*V(5258) - ARP(6594) = V(5013)*V(5250) - ARP(6595) = V(4758)*V(5255) - ARP(6596) = V(4758)*V(5252) - ARP(6597) = V(4758)*V(5256) - ARP(6598) = V(4758) - ARP(6599) = V(4758) - ARP(6600) = V(4976)*V(5256) - ARP(6601) = V(4976)*V(5258) - ARP(6602) = V(4976)*V(5258) - ARP(6603) = V(4976)*V(5250) - ARP(6604) = V(4976)*V(5250) - ARP(6605) = V(4976)*V(5250) - ARP(6606) = V(4976) - ARP(6607) = V(4976) - ARP(6608) = V(5205) - ARP(6609) = V(5205) - ARP(6610) = V(5205)*V(5256) - ARP(6611) = V(5205)*V(5258) - ARP(6612) = V(5205)*V(5258) - ARP(6613) = V(5205)*V(5250) - ARP(6614) = V(5205)*V(5250) - ARP(6615) = V(5205)*V(5250) - ARP(6616) = V(5205)*V(5250) - ARP(6617) = V(3413)*V(5250) - ARP(6618) = V(3413)*V(5250) - ARP(6619) = V(2252) - ARP(6620) = V(2252)*V(5250) - ARP(6621) = V(2252)*V(5250) - ARP(6622) = V(4615) - ARP(6623) = V(4615)*V(5258) - ARP(6624) = V(4615)*V(5258) - ARP(6625) = V(4615)*V(5250) - ARP(6626) = V(4615)*V(5250) - ARP(6627) = V(3241) - ARP(6628) = V(105)*V(5250) - ARP(6629) = V(4113) - ARP(6630) = V(4113)*V(5250) - ARP(6631) = V(4113)*V(5250) - ARP(6632) = V(4113)*V(5250) - ARP(6633) = V(2130) - ARP(6634) = V(2130) - ARP(6635) = V(2130) - ARP(6636) = V(4617)*V(5255) - ARP(6637) = V(4617)*V(5252) - ARP(6638) = V(4617)*V(5256) - ARP(6639) = V(4617) - ARP(6640) = V(4617) - ARP(6641) = V(5002)*V(5256) - ARP(6642) = V(5002)*V(5258) - ARP(6643) = V(5002)*V(5258) - ARP(6644) = V(5002)*V(5250) - ARP(6645) = V(5002)*V(5250) - ARP(6646) = V(5002)*V(5250) - ARP(6647) = V(5002) - ARP(6648) = V(5002) - ARP(6649) = V(5220) - ARP(6650) = V(5220) - ARP(6651) = V(5220)*V(5256) - ARP(6652) = V(5220)*V(5258) - ARP(6653) = V(5220)*V(5258) - ARP(6654) = V(5220)*V(5250) - ARP(6655) = V(5220)*V(5250) - ARP(6656) = V(5220)*V(5250) - ARP(6657) = V(5220)*V(5250) - ARP(6658) = V(2544) - ARP(6659) = V(2544)*V(5250) - ARP(6660) = V(2544)*V(5250) - ARP(6661) = V(2544)*V(5250) - ARP(6662) = V(4786) - ARP(6663) = V(4786)*V(5258) - ARP(6664) = V(4786)*V(5258) - ARP(6665) = V(4786)*V(5250) - ARP(6666) = V(3194) - ARP(6667) = V(3734) - ARP(6668) = V(3734)*V(5250) - ARP(6669) = V(5173)*V(5255) - ARP(6670) = V(5173)*V(5252) - ARP(6671) = V(5173)*V(5252) - ARP(6672) = V(5173)*V(5256) - ARP(6673) = V(5173) - ARP(6674) = V(5173) - ARP(6675) = V(558) - ARP(6676) = V(558) - ARP(6677) = V(4894)*V(5255) - ARP(6678) = V(4894)*V(5252) - ARP(6679) = V(4894)*V(5252) - ARP(6680) = V(4894)*V(5256) - ARP(6681) = V(4894) - ARP(6682) = V(4894) - ARP(6683) = V(4269)*V(5255) - ARP(6684) = V(4269)*V(5255) - ARP(6685) = V(4269)*V(5252) - ARP(6686) = V(4269)*V(5253) - ARP(6687) = V(4269)*V(5256) - ARP(6688) = V(4269) - ARP(6689) = V(1364)*V(5250) - ARP(6690) = V(1364) - ARP(6691) = V(3586) - ARP(6692) = V(3586) - ARP(6693) = V(4963)*V(5251) - ARP(6694) = V(4963)*V(5252) - ARP(6695) = V(4963)*V(5253) - ARP(6696) = V(4963)*V(5254) - ARP(6697) = V(4963) - ARP(6698) = V(4963) - ARP(6699) = V(873)*V(5250) - ARP(6700) = V(873) - ARP(6701) = V(2834)*V(5250) - ARP(6702) = V(2834) - ARP(6703) = V(3048) - ARP(6704) = V(1285)*V(5250) - ARP(6705) = V(1285) - ARP(6706) = V(2791)*V(5250) - ARP(6707) = V(2791) - ARP(6708) = V(1445)*V(5250) - ARP(6709) = V(1445) - ARP(6710) = V(1846)*V(5250) - ARP(6711) = V(1846) - ARP(6712) = V(1847) - ARP(6713) = V(1306)*V(5250) - ARP(6714) = V(1306) - ARP(6715) = V(2821) - ARP(6716) = V(981) - ARP(6717) = V(981)*V(5250) - ARP(6718) = V(2436) - ARP(6719) = V(2436)*V(5250) - ARP(6720) = V(2996) - ARP(6721) = V(9)*V(5250) - ARP(6722) = V(4109) - ARP(6723) = V(4109)*V(5250) - ARP(6724) = V(1102)*V(5250) - ARP(6725) = V(1102) - ARP(6726) = V(1909)*V(5250) - ARP(6727) = V(1909) - ARP(6728) = V(1910) - ARP(6729) = V(194) - ARP(6730) = V(4060)*V(5255) - ARP(6731) = V(4060)*V(5252) - ARP(6732) = V(4060)*V(5252) - ARP(6733) = V(4060)*V(5256) - ARP(6734) = V(4060) - ARP(6735) = V(4060) - ARP(6736) = V(4060) - ARP(6737) = V(3676)*V(5255) - ARP(6738) = V(3676)*V(5252) - ARP(6739) = V(3676)*V(5252) - ARP(6740) = V(3676)*V(5256) - ARP(6741) = V(3676) - ARP(6742) = V(3676) - ARP(6743) = V(3676) - ARP(6744) = V(4595)*V(5255) - ARP(6745) = V(4595)*V(5252) - ARP(6746) = V(4595)*V(5256) - ARP(6747) = V(4595) - ARP(6748) = V(4595) - ARP(6749) = V(4595) - ARP(6750) = V(4127)*V(5255) - ARP(6751) = V(4127)*V(5255) - ARP(6752) = V(4127)*V(5252) - ARP(6753) = V(4127)*V(5252) - ARP(6754) = V(4127)*V(5256) - ARP(6755) = V(4127) - ARP(6756) = V(4127) - ARP(6757) = V(4127) - ARP(6758) = V(3619)*V(5250) - ARP(6759) = V(3619)*V(5250) - ARP(6760) = V(4219)*V(5255) - ARP(6761) = V(4219)*V(5255) - ARP(6762) = V(4219)*V(5252) - ARP(6763) = V(4219)*V(5252) - ARP(6764) = V(4219)*V(5256) - ARP(6765) = V(4219) - ARP(6766) = V(4219) - ARP(6767) = V(4219) - ARP(6768) = V(4368)*V(5255) - ARP(6769) = V(4368)*V(5255) - ARP(6770) = V(4368)*V(5252) - ARP(6771) = V(4368)*V(5252) - ARP(6772) = V(4368)*V(5256) - ARP(6773) = V(4368) - ARP(6774) = V(4368) - ARP(6775) = V(4368) - ARP(6776) = V(4610)*V(5255) - ARP(6777) = V(4610)*V(5255) - ARP(6778) = V(4610)*V(5252) - ARP(6779) = V(4610)*V(5252) - ARP(6780) = V(4610)*V(5256) - ARP(6781) = V(4610) - ARP(6782) = V(4610) - ARP(6783) = V(4610) - ARP(6784) = V(4611)*V(5255) - ARP(6785) = V(4611)*V(5255) - ARP(6786) = V(4611)*V(5255) - ARP(6787) = V(4611)*V(5252) - ARP(6788) = V(4611)*V(5253) - ARP(6789) = V(4611)*V(5256) - ARP(6790) = V(4611) - ARP(6791) = V(4611) - ARP(6792) = V(4730)*V(5255) - ARP(6793) = V(4730)*V(5252) - ARP(6794) = V(4730)*V(5256) - ARP(6795) = V(4730) - ARP(6796) = V(4730) - ARP(6797) = V(4730) - ARP(6798) = V(5197)*V(5255) - ARP(6799) = V(5197)*V(5252) - ARP(6800) = V(5197)*V(5256) - ARP(6801) = V(5197) - ARP(6802) = V(5197) - ARP(6803) = V(5197) - ARP(6804) = V(4885)*V(5255) - ARP(6805) = V(4885)*V(5252) - ARP(6806) = V(4885)*V(5256) - ARP(6807) = V(4885) - ARP(6808) = V(4885) - ARP(6809) = V(4885) - ARP(6810) = V(4991)*V(5255) - ARP(6811) = V(4991)*V(5252) - ARP(6812) = V(4991)*V(5256) - ARP(6813) = V(4991) - ARP(6814) = V(4169)*V(5255) - ARP(6815) = V(4169)*V(5252) - ARP(6816) = V(4169)*V(5256) - ARP(6817) = V(4169) - ARP(6818) = V(4169) - ARP(6819) = V(4169) - ARP(6820) = V(4126)*V(5255) - ARP(6821) = V(4126)*V(5252) - ARP(6822) = V(4126)*V(5256) - ARP(6823) = V(4126) - ARP(6824) = V(4126) - ARP(6825) = V(4126) - ARP(6826) = V(5117)*V(5255) - ARP(6827) = V(5117)*V(5255) - ARP(6828) = V(5117)*V(5255) - ARP(6829) = V(5117)*V(5252) - ARP(6830) = V(5117)*V(5253) - ARP(6831) = V(5117)*V(5256) - ARP(6832) = V(5117) - ARP(6833) = V(5117) - ARP(6834) = V(3926)*V(5255) - ARP(6835) = V(3926)*V(5252) - ARP(6836) = V(3926)*V(5256) - ARP(6837) = V(3926) - ARP(6838) = V(4095)*V(5255) - ARP(6839) = V(4095)*V(5252) - ARP(6840) = V(4095)*V(5256) - ARP(6841) = V(4095) - ARP(6842) = V(4446)*V(5255) - ARP(6843) = V(4446)*V(5252) - ARP(6844) = V(4446)*V(5256) - ARP(6845) = V(4446) - ARP(6846) = V(4446) - ARP(6847) = V(4446) - ARP(6848) = V(5150)*V(5255) - ARP(6849) = V(5150)*V(5252) - ARP(6850) = V(5150)*V(5252) - ARP(6851) = V(5150)*V(5256) - ARP(6852) = V(5150) - ARP(6853) = V(5150) - ARP(6854) = V(5150) - ARP(6855) = V(4646)*V(5255) - ARP(6856) = V(4646)*V(5252) - ARP(6857) = V(4646)*V(5252) - ARP(6858) = V(4646)*V(5256) - ARP(6859) = V(4646) - ARP(6860) = V(4646) - ARP(6861) = V(4646) - ARP(6862) = V(4871)*V(5255) - ARP(6863) = V(4871)*V(5252) - ARP(6864) = V(4871)*V(5256) - ARP(6865) = V(4871) - ARP(6866) = V(4827)*V(5255) - ARP(6867) = V(4827)*V(5252) - ARP(6868) = V(4827)*V(5256) - ARP(6869) = V(4827) - ARP(6870) = V(4827) - ARP(6871) = V(4827) - ARP(6872) = V(4118)*V(5255) - ARP(6873) = V(4118)*V(5252) - ARP(6874) = V(4118)*V(5256) - ARP(6875) = V(4118) - ARP(6876) = V(4365)*V(5255) - ARP(6877) = V(4365)*V(5252) - ARP(6878) = V(4365)*V(5256) - ARP(6879) = V(4365) - ARP(6880) = V(4365) - ARP(6881) = V(4365) - ARP(6882) = V(4627)*V(5255) - ARP(6883) = V(4627)*V(5255) - ARP(6884) = V(4627)*V(5252) - ARP(6885) = V(4627)*V(5253) - ARP(6886) = V(4627)*V(5256) - ARP(6887) = V(4627) - ARP(6888) = V(4318)*V(5255) - ARP(6889) = V(4318)*V(5252) - ARP(6890) = V(4318)*V(5256) - ARP(6891) = V(4318) - ARP(6892) = V(4170)*V(5255) - ARP(6893) = V(4170)*V(5252) - ARP(6894) = V(4170)*V(5256) - ARP(6895) = V(4170) - ARP(6896) = V(4105)*V(5255) - ARP(6897) = V(4105)*V(5252) - ARP(6898) = V(4105)*V(5256) - ARP(6899) = V(4105) - ARP(6900) = V(4105) - ARP(6901) = V(4105) - ARP(6902) = V(4836)*V(5255) - ARP(6903) = V(4836)*V(5255) - ARP(6904) = V(4836)*V(5255) - ARP(6905) = V(4836)*V(5252) - ARP(6906) = V(4836)*V(5253) - ARP(6907) = V(4836)*V(5256) - ARP(6908) = V(4836) - ARP(6909) = V(4836) - ARP(6910) = V(4158)*V(5255) - ARP(6911) = V(4158)*V(5252) - ARP(6912) = V(4158)*V(5256) - ARP(6913) = V(4158) - ARP(6914) = V(4158) - ARP(6915) = V(4158) - ARP(6916) = V(4765)*V(5255) - ARP(6917) = V(4765)*V(5252) - ARP(6918) = V(4765)*V(5256) - ARP(6919) = V(4765) - ARP(6920) = V(4765) - ARP(6921) = V(4765) - ARP(6922) = V(1113)*V(5250) - ARP(6923) = V(5213)*V(5256) - ARP(6924) = V(5213)*V(5250) - ARP(6925) = V(5213)*V(5250) - ARP(6926) = V(5213) - ARP(6927) = V(3745)*V(5255) - ARP(6928) = V(3745)*V(5252) - ARP(6929) = V(3745)*V(5256) - ARP(6930) = V(3745) - ARP(6931) = V(5029)*V(5255) - ARP(6932) = V(5029)*V(5255) - ARP(6933) = V(5029)*V(5255) - ARP(6934) = V(5029)*V(5252) - ARP(6935) = V(5029)*V(5253) - ARP(6936) = V(5029)*V(5256) - ARP(6937) = V(5029) - ARP(6938) = V(5029) - ARP(6939) = V(1007)*V(5250) - ARP(6940) = V(1007) - ARP(6941) = V(370) - ARP(6942) = V(369)*V(5250) - ARP(6943) = V(369) - ARP(6944) = V(2540)*V(5250) - ARP(6945) = V(2540) - ARP(6946) = V(2540) - ARP(6947) = V(2323) - ARP(6948) = V(2323) - ARP(6949) = V(3115)*V(5250) - ARP(6950) = V(3115) - ARP(6951) = V(3559)*V(5250) - ARP(6952) = V(3559) - ARP(6953) = V(3559) - ARP(6954) = V(2140)*V(5250) - ARP(6955) = V(2140) - ARP(6956) = V(2002)*V(5250) - ARP(6957) = V(2002)*V(5250) - ARP(6958) = V(2002) - ARP(6959) = V(2313)*V(5250) - ARP(6960) = V(2313) - ARP(6961) = V(271) - ARP(6962) = V(599)*V(5250) - ARP(6963) = V(599) - ARP(6964) = V(4914)*V(5256) - ARP(6965) = V(4914)*V(5250) - ARP(6966) = V(4914) - ARP(6967) = V(2480)*V(5250) - ARP(6968) = V(4089)*V(5255) - ARP(6969) = V(4089)*V(5252) - ARP(6970) = V(4089)*V(5252) - ARP(6971) = V(4089)*V(5256) - ARP(6972) = V(4089) - ARP(6973) = V(4089) - ARP(6974) = V(4089) - ARP(6975) = V(4266)*V(5255) - ARP(6976) = V(4266)*V(5255) - ARP(6977) = V(4266)*V(5252) - ARP(6978) = V(4266)*V(5253) - ARP(6979) = V(4266)*V(5256) - ARP(6980) = V(4266) - ARP(6981) = V(904)*V(5250) - ARP(6982) = V(904) - ARP(6983) = V(2296)*V(5250) - ARP(6984) = V(2296) - ARP(6985) = V(3398) - ARP(6986) = V(3398) - ARP(6987) = V(1604)*V(5250) - ARP(6988) = V(336)*V(5250) - ARP(6989) = V(653)*V(5250) - ARP(6990) = V(653) - ARP(6991) = V(840)*V(5250) - ARP(6992) = V(840) - ARP(6993) = V(176) - ARP(6994) = V(652)*V(5250) - ARP(6995) = V(395)*V(5250) - ARP(6996) = V(1470)*V(5250) - ARP(6997) = V(1470) - ARP(6998) = V(3034)*V(5250) - ARP(6999) = V(3034) - ARP(7000) = V(254) - ARP(7001) = V(28)*V(5250) - ARP(7002) = V(405)*V(5250) - ARP(7003) = V(405) - ARP(7004) = V(145) - ARP(7005) = V(404)*V(5250) - ARP(7006) = V(403)*V(5250) - ARP(7007) = V(4078)*V(5255) - ARP(7008) = V(4078)*V(5252) - ARP(7009) = V(4078)*V(5252) - ARP(7010) = V(4078)*V(5256) - ARP(7011) = V(4078) - ARP(7012) = V(4078) - ARP(7013) = V(4078) - ARP(7014) = V(4301)*V(5255) - ARP(7015) = V(4301)*V(5255) - ARP(7016) = V(4301)*V(5252) - ARP(7017) = V(4301)*V(5253) - ARP(7018) = V(4301)*V(5256) - ARP(7019) = V(4301) - ARP(7020) = V(5169)*V(5256) - ARP(7021) = V(5169)*V(5256) - ARP(7022) = V(5169)*V(5258) - ARP(7023) = V(5169)*V(5258) - ARP(7024) = V(5169)*V(5250) - ARP(7025) = V(5169)*V(5250) - ARP(7026) = V(5169) - ARP(7027) = V(2362)*V(5250) - ARP(7028) = V(2362) - ARP(7029) = V(2362) - ARP(7030) = V(740) - ARP(7031) = V(2231)*V(5250) - ARP(7032) = V(2231) - ARP(7033) = V(1585)*V(5250) - ARP(7034) = V(1585) - ARP(7035) = V(2727)*V(5250) - ARP(7036) = V(2727) - ARP(7037) = V(2727) - ARP(7038) = V(708) - ARP(7039) = V(1858)*V(5250) - ARP(7040) = V(1858) - ARP(7041) = V(1718)*V(5250) - ARP(7042) = V(1718) - ARP(7043) = V(1205)*V(5250) - ARP(7044) = V(1205) - ARP(7045) = V(2061)*V(5250) - ARP(7046) = V(2061) - ARP(7047) = V(199) - ARP(7048) = V(401)*V(5250) - ARP(7049) = V(5212)*V(5250) - ARP(7050) = V(5212)*V(5250) - ARP(7051) = V(5212) - ARP(7052) = V(709)*V(5250) - ARP(7053) = V(4847)*V(5255) - ARP(7054) = V(4847)*V(5255) - ARP(7055) = V(4847)*V(5255) - ARP(7056) = V(4847)*V(5252) - ARP(7057) = V(4847)*V(5253) - ARP(7058) = V(4847)*V(5256) - ARP(7059) = V(4847) - ARP(7060) = V(4847) - ARP(7061) = V(5175)*V(5256) - ARP(7062) = V(5175)*V(5258) - ARP(7063) = V(5175)*V(5258) - ARP(7064) = V(5175)*V(5250) - ARP(7065) = V(5175)*V(5250) - ARP(7066) = V(5099)*V(5255) - ARP(7067) = V(5099)*V(5255) - ARP(7068) = V(5099)*V(5255) - ARP(7069) = V(5099)*V(5252) - ARP(7070) = V(5099)*V(5253) - ARP(7071) = V(5099)*V(5256) - ARP(7072) = V(5099) - ARP(7073) = V(5099) - ARP(7074) = V(3988)*V(5255) - ARP(7075) = V(3988)*V(5252) - ARP(7076) = V(3988)*V(5256) - ARP(7077) = V(3988) - ARP(7078) = V(3988) - ARP(7079) = V(236) - ARP(7080) = V(236) - ARP(7081) = V(5248)*V(5256) - ARP(7082) = V(5248)*V(5250) - ARP(7083) = V(5248)*V(5250) - ARP(7084) = V(5248)*V(5250) - ARP(7085) = V(5248)*V(5250) - ARP(7086) = V(5248)*V(5250) - ARP(7087) = V(5248) - ARP(7088) = V(3883)*V(5255) - ARP(7089) = V(3883)*V(5252) - ARP(7090) = V(3883)*V(5252) - ARP(7091) = V(3883)*V(5256) - ARP(7092) = V(3883) - ARP(7093) = V(3883) - ARP(7094) = V(3617)*V(5250) - ARP(7095) = V(4869)*V(5251) - ARP(7096) = V(4869)*V(5252) - ARP(7097) = V(4869)*V(5253) - ARP(7098) = V(4869)*V(5254) - ARP(7099) = V(4869) - ARP(7100) = V(4541)*V(5255) - ARP(7101) = V(4541)*V(5252) - ARP(7102) = V(4541)*V(5252) - ARP(7103) = V(4541)*V(5256) - ARP(7104) = V(4541) - ARP(7105) = V(4541) - ARP(7106) = V(3638)*V(5250) - ARP(7107) = V(362) - ARP(7108) = V(362) - ARP(7109) = V(3990)*V(5255) - ARP(7110) = V(3990)*V(5252) - ARP(7111) = V(3990)*V(5252) - ARP(7112) = V(3990)*V(5256) - ARP(7113) = V(3990) - ARP(7114) = V(3990) - ARP(7115) = V(2469)*V(5250) - ARP(7116) = V(2469) - ARP(7117) = V(2469) - ARP(7118) = V(770) - ARP(7119) = V(1834)*V(5250) - ARP(7120) = V(1834) - ARP(7121) = V(1611)*V(5250) - ARP(7122) = V(1611) - ARP(7123) = V(2836)*V(5250) - ARP(7124) = V(2836) - ARP(7125) = V(2836) - ARP(7126) = V(688) - ARP(7127) = V(1791)*V(5250) - ARP(7128) = V(1791) - ARP(7129) = V(1742)*V(5250) - ARP(7130) = V(1742) - ARP(7131) = V(243) - ARP(7132) = V(243) - ARP(7133) = V(3516)*V(5250) - ARP(7134) = V(4249)*V(5255) - ARP(7135) = V(4249)*V(5252) - ARP(7136) = V(4249)*V(5252) - ARP(7137) = V(4249)*V(5256) - ARP(7138) = V(4249) - ARP(7139) = V(4249) - ARP(7140) = V(1178)*V(5250) - ARP(7141) = V(1178) - ARP(7142) = V(1771)*V(5250) - ARP(7143) = V(1771) - ARP(7144) = V(156) - ARP(7145) = V(5207)*V(5256) - ARP(7146) = V(5207)*V(5256) - ARP(7147) = V(5207)*V(5258) - ARP(7148) = V(5207)*V(5258) - ARP(7149) = V(5207)*V(5250) - ARP(7150) = V(5207)*V(5250) - ARP(7151) = V(5207) - ARP(7152) = V(325)*V(5250) - ARP(7153) = V(3043)*V(5250) - ARP(7154) = V(3043) - ARP(7155) = V(3043) - ARP(7156) = V(2170) - ARP(7157) = V(2132)*V(5250) - ARP(7158) = V(2132) - ARP(7159) = V(1612)*V(5250) - ARP(7160) = V(1612) - ARP(7161) = V(1128)*V(5250) - ARP(7162) = V(1128) - ARP(7163) = V(2108)*V(5250) - ARP(7164) = V(2108) - ARP(7165) = V(172) - ARP(7166) = V(4183)*V(5250) - ARP(7167) = V(4183) - ARP(7168) = V(439)*V(5250) - ARP(7169) = V(5249)*V(5256) - ARP(7170) = V(5249)*V(5258) - ARP(7171) = V(5249)*V(5258) - ARP(7172) = V(5249)*V(5258) - ARP(7173) = V(5249)*V(5258) - ARP(7174) = V(5249)*V(5250) - ARP(7175) = V(5249)*V(5250) - ARP(7176) = V(237)*V(5250) - ARP(7177) = V(868) - ARP(7178) = V(868)*V(5250) - ARP(7179) = V(2825) - ARP(7180) = V(2825)*V(5250) - ARP(7181) = V(343)*V(5250) - ARP(7182) = V(1158) - ARP(7183) = V(1158)*V(5250) - ARP(7184) = V(2790) - ARP(7185) = V(2790)*V(5250) - ARP(7186) = V(1142) - ARP(7187) = V(1142)*V(5250) - ARP(7188) = V(2074) - ARP(7189) = V(2074)*V(5250) - ARP(7190) = V(2745) - ARP(7191) = V(498)*V(5250) - ARP(7192) = V(3602) - ARP(7193) = V(3602)*V(5250) - ARP(7194) = V(1545) - ARP(7195) = V(1545)*V(5250) - ARP(7196) = V(2880) - ARP(7197) = V(2880)*V(5250) - ARP(7198) = V(2693) - ARP(7199) = V(2693)*V(5250) - ARP(7200) = V(2693)*V(5250) - ARP(7201) = V(1531)*V(5250) - ARP(7202) = V(532) - ARP(7203) = V(497)*V(5250) - ARP(7204) = V(3935) - ARP(7205) = V(3935)*V(5256) - ARP(7206) = V(3935)*V(5250) - ARP(7207) = V(1380) - ARP(7208) = V(1380)*V(5250) - ARP(7209) = V(2675) - ARP(7210) = V(2675)*V(5250) - ARP(7211) = V(2208)*V(5250) - ARP(7212) = V(2208) - ARP(7213) = V(2620)*V(5250) - ARP(7214) = V(2620) - ARP(7215) = V(3205) - ARP(7216) = V(3205)*V(5250) - ARP(7217) = V(3205)*V(5250) - ARP(7218) = V(1005)*V(5250) - ARP(7219) = V(2005) - ARP(7220) = V(3991) - ARP(7221) = V(3991)*V(5256) - ARP(7222) = V(3991)*V(5250) - ARP(7223) = V(355)*V(5250) - ARP(7224) = V(393)*V(5250) - ARP(7225) = V(1134) - ARP(7226) = V(1134)*V(5250) - ARP(7227) = V(2684) - ARP(7228) = V(2684)*V(5250) - ARP(7229) = V(4451)*V(5255) - ARP(7230) = V(4451)*V(5255) - ARP(7231) = V(4451)*V(5252) - ARP(7232) = V(4451)*V(5253) - ARP(7233) = V(4451)*V(5256) - ARP(7234) = V(4451) - ARP(7235) = V(4354)*V(5255) - ARP(7236) = V(4354)*V(5252) - ARP(7237) = V(4354)*V(5256) - ARP(7238) = V(4354) - ARP(7239) = V(4354) - ARP(7240) = V(4354) - ARP(7241) = V(4244)*V(5255) - ARP(7242) = V(4244)*V(5252) - ARP(7243) = V(4244)*V(5256) - ARP(7244) = V(4244) - ARP(7245) = V(3784)*V(5255) - ARP(7246) = V(3784)*V(5252) - ARP(7247) = V(3784)*V(5256) - ARP(7248) = V(3784) - ARP(7249) = V(1430)*V(5250) - ARP(7250) = V(1430) - ARP(7251) = V(3054) - ARP(7252) = V(2434)*V(5250) - ARP(7253) = V(2434) - ARP(7254) = V(2815)*V(5250) - ARP(7255) = V(2815) - ARP(7256) = V(2110)*V(5250) - ARP(7257) = V(2110) - ARP(7258) = V(3020)*V(5250) - ARP(7259) = V(3020) - ARP(7260) = V(833)*V(5250) - ARP(7261) = V(833) - ARP(7262) = V(3021)*V(5250) - ARP(7263) = V(3021) - ARP(7264) = V(330)*V(5250) - ARP(7265) = V(1015) - ARP(7266) = V(1015)*V(5250) - ARP(7267) = V(2525) - ARP(7268) = V(2525)*V(5250) - ARP(7269) = V(1097)*V(5250) - ARP(7270) = V(1097) - ARP(7271) = V(1048)*V(5250) - ARP(7272) = V(1048) - ARP(7273) = V(3056)*V(5250) - ARP(7274) = V(3056) - ARP(7275) = V(2828)*V(5250) - ARP(7276) = V(2828) - ARP(7277) = V(2828) - ARP(7278) = V(1037) - ARP(7279) = V(1037)*V(5250) - ARP(7280) = V(1100) - ARP(7281) = V(1100)*V(5250) - ARP(7282) = V(2691) - ARP(7283) = V(2691)*V(5250) - ARP(7284) = V(2127) - ARP(7285) = V(2127)*V(5250) - ARP(7286) = V(2127)*V(5250) - ARP(7287) = V(1902) - ARP(7288) = V(1902)*V(5250) - ARP(7289) = V(1720) - ARP(7290) = V(4540) - ARP(7291) = V(4540)*V(5256) - ARP(7292) = V(4540)*V(5250) - ARP(7293) = V(231)*V(5250) - ARP(7294) = V(603) - ARP(7295) = V(222)*V(5250) - ARP(7296) = V(1436)*V(5250) - ARP(7297) = V(1436) - ARP(7298) = V(2921)*V(5250) - ARP(7299) = V(2921) - ARP(7300) = V(2410)*V(5250) - ARP(7301) = V(2410) - ARP(7302) = V(2511)*V(5250) - ARP(7303) = V(2511) - ARP(7304) = V(4983) - ARP(7305) = V(4983)*V(5250) - ARP(7306) = V(5133)*V(5255) - ARP(7307) = V(5133)*V(5255) - ARP(7308) = V(5133)*V(5255) - ARP(7309) = V(5133)*V(5252) - ARP(7310) = V(5133)*V(5253) - ARP(7311) = V(5133)*V(5256) - ARP(7312) = V(5133) - ARP(7313) = V(5133) - ARP(7314) = V(3334)*V(5250) - ARP(7315) = V(3334)*V(5250) - ARP(7316) = V(3326)*V(5250) - ARP(7317) = V(3326)*V(5250) - ARP(7318) = V(3326) - ARP(7319) = V(3059)*V(5250) - ARP(7320) = V(3059) - ARP(7321) = V(2985)*V(5250) - ARP(7322) = V(2985)*V(5250) - ARP(7323) = V(3203)*V(5250) - ARP(7324) = V(3203)*V(5250) - ARP(7325) = V(3203) - ARP(7326) = V(2240)*V(5250) - ARP(7327) = V(2240) - ARP(7328) = V(2131)*V(5250) - ARP(7329) = V(2131) - ARP(7330) = V(2887)*V(5250) - ARP(7331) = V(2887) - ARP(7332) = V(3476) - ARP(7333) = V(3476) - ARP(7334) = V(3476)*V(5250) - ARP(7335) = V(2793) - ARP(7336) = V(2793)*V(5250) - ARP(7337) = V(831) - ARP(7338) = V(831)*V(5250) - ARP(7339) = V(2172) - ARP(7340) = V(2172)*V(5250) - ARP(7341) = V(2173) - ARP(7342) = V(4248) - ARP(7343) = V(4248)*V(5250) - ARP(7344) = V(4248)*V(5250) - ARP(7345) = V(1179)*V(5250) - ARP(7346) = V(2785) - ARP(7347) = V(2785)*V(5250) - ARP(7348) = V(2785)*V(5250) - ARP(7349) = V(2519) - ARP(7350) = V(2519)*V(5250) - ARP(7351) = V(1667) - ARP(7352) = V(4261) - ARP(7353) = V(4261)*V(5256) - ARP(7354) = V(4261)*V(5250) - ARP(7355) = V(2871) - ARP(7356) = V(2871)*V(5250) - ARP(7357) = V(2871)*V(5250) - ARP(7358) = V(2761) - ARP(7359) = V(2761)*V(5250) - ARP(7360) = V(1616) - ARP(7361) = V(546)*V(5250) - ARP(7362) = V(546)*V(5250) - ARP(7363) = V(3923) - ARP(7364) = V(3923)*V(5256) - ARP(7365) = V(3923)*V(5250) - ARP(7366) = V(889)*V(5250) - ARP(7367) = V(889) - ARP(7368) = V(3260) - ARP(7369) = V(3260)*V(5250) - ARP(7370) = V(1165) - ARP(7371) = V(1165)*V(5250) - ARP(7372) = V(2509) - ARP(7373) = V(2509)*V(5250) - ARP(7374) = V(1755) - ARP(7375) = V(1521)*V(5250) - ARP(7376) = V(5140) - ARP(7377) = V(5140) - ARP(7378) = V(5140)*V(5250) - ARP(7379) = V(5140)*V(5250) - ARP(7380) = V(1290) - ARP(7381) = V(1290)*V(5250) - ARP(7382) = V(2841)*V(5250) - ARP(7383) = V(2841) - ARP(7384) = V(836) - ARP(7385) = V(836)*V(5250) - ARP(7386) = V(2189) - ARP(7387) = V(2189)*V(5250) - ARP(7388) = V(2030) - ARP(7389) = V(437)*V(5250) - ARP(7390) = V(3046) - ARP(7391) = V(3046)*V(5250) - ARP(7392) = V(3046)*V(5250) - ARP(7393) = V(2835) - ARP(7394) = V(2835)*V(5250) - ARP(7395) = V(1563) - ARP(7396) = V(5115) - ARP(7397) = V(5115)*V(5256) - ARP(7398) = V(5115)*V(5250) - ARP(7399) = V(5115)*V(5250) - ARP(7400) = V(1506) - ARP(7401) = V(1506)*V(5250) - ARP(7402) = V(1798) - ARP(7403) = V(1798)*V(5250) - ARP(7404) = V(1799) - ARP(7405) = V(5010) - ARP(7406) = V(5010)*V(5250) - ARP(7407) = V(5010)*V(5250) - ARP(7408) = V(435)*V(5250) - ARP(7409) = V(876) - ARP(7410) = V(876)*V(5250) - ARP(7411) = V(2755) - ARP(7412) = V(2755)*V(5250) - ARP(7413) = V(2543) - ARP(7414) = V(2543)*V(5250) - ARP(7415) = V(2543)*V(5250) - ARP(7416) = V(2653) - ARP(7417) = V(2653)*V(5250) - ARP(7418) = V(1564) - ARP(7419) = V(4975) - ARP(7420) = V(4975)*V(5256) - ARP(7421) = V(4975)*V(5250) - ARP(7422) = V(4975)*V(5250) - ARP(7423) = V(2244) - ARP(7424) = V(2244) - ARP(7425) = V(2244)*V(5250) - ARP(7426) = V(1654) - ARP(7427) = V(1653) - ARP(7428) = V(1653)*V(5250) - ARP(7429) = V(1262) - ARP(7430) = V(1262)*V(5250) - ARP(7431) = V(1980) - ARP(7432) = V(1980)*V(5250) - ARP(7433) = V(195) - ARP(7434) = V(3857) - ARP(7435) = V(3857)*V(5256) - ARP(7436) = V(3857)*V(5250) - ARP(7437) = V(1693) - ARP(7438) = V(1693)*V(5250) - ARP(7439) = V(2233) - ARP(7440) = V(2233)*V(5250) - ARP(7441) = V(2233)*V(5250) - ARP(7442) = V(2182) - ARP(7443) = V(2182)*V(5250) - ARP(7444) = V(1692) - ARP(7445) = V(4110) - ARP(7446) = V(4110)*V(5256) - ARP(7447) = V(4110)*V(5250) - ARP(7448) = V(4110)*V(5250) - ARP(7449) = V(425)*V(5250) - ARP(7450) = V(1340) - ARP(7451) = V(1340)*V(5250) - ARP(7452) = V(2555) - ARP(7453) = V(2555)*V(5250) - ARP(7454) = V(1838) - ARP(7455) = V(5064) - ARP(7456) = V(5064)*V(5250) - ARP(7457) = V(5064)*V(5250) - ARP(7458) = V(488)*V(5250) - ARP(7459) = V(1180) - ARP(7460) = V(1180)*V(5250) - ARP(7461) = V(3024) - ARP(7462) = V(3024)*V(5250) - ARP(7463) = V(2775) - ARP(7464) = V(2775)*V(5250) - ARP(7465) = V(2775)*V(5250) - ARP(7466) = V(2934) - ARP(7467) = V(2934)*V(5250) - ARP(7468) = V(1721) - ARP(7469) = V(5063) - ARP(7470) = V(5063)*V(5256) - ARP(7471) = V(5063)*V(5250) - ARP(7472) = V(5063)*V(5250) - ARP(7473) = V(1281) - ARP(7474) = V(1281)*V(5250) - ARP(7475) = V(2045) - ARP(7476) = V(2045)*V(5250) - ARP(7477) = V(2889) - ARP(7478) = V(2889) - ARP(7479) = V(3384) - ARP(7480) = V(3384)*V(5250) - ARP(7481) = V(220)*V(5250) - ARP(7482) = V(1514) - ARP(7483) = V(1514)*V(5250) - ARP(7484) = V(1714) - ARP(7485) = V(1694) - ARP(7486) = V(1694)*V(5250) - ARP(7487) = V(3038) - ARP(7488) = V(3038)*V(5250) - ARP(7489) = V(3038)*V(5250) - ARP(7490) = V(2513) - ARP(7491) = V(2513)*V(5250) - ARP(7492) = V(1663) - ARP(7493) = V(4313) - ARP(7494) = V(4313)*V(5256) - ARP(7495) = V(4313)*V(5250) - ARP(7496) = V(2259)*V(5250) - ARP(7497) = V(2259)*V(5250) - ARP(7498) = V(853) - ARP(7499) = V(853)*V(5250) - ARP(7500) = V(3026) - ARP(7501) = V(3026)*V(5250) - ARP(7502) = V(2633) - ARP(7503) = V(2633)*V(5250) - ARP(7504) = V(2633)*V(5250) - ARP(7505) = V(2713) - ARP(7506) = V(2713)*V(5250) - ARP(7507) = V(1627) - ARP(7508) = V(4834) - ARP(7509) = V(4834)*V(5256) - ARP(7510) = V(4834)*V(5250) - ARP(7511) = V(291)*V(5250) - ARP(7512) = V(828) - ARP(7513) = V(828)*V(5250) - ARP(7514) = V(3312) - ARP(7515) = V(3312)*V(5250) - ARP(7516) = V(1992) - ARP(7517) = V(1992)*V(5250) - ARP(7518) = V(1992)*V(5250) - ARP(7519) = V(2218) - ARP(7520) = V(2218)*V(5250) - ARP(7521) = V(1559) - ARP(7522) = V(333)*V(5250) - ARP(7523) = V(3986) - ARP(7524) = V(3986)*V(5256) - ARP(7525) = V(3986)*V(5250) - ARP(7526) = V(379)*V(5250) - ARP(7527) = V(832) - ARP(7528) = V(832)*V(5250) - ARP(7529) = V(3023) - ARP(7530) = V(3023)*V(5250) - ARP(7531) = V(1375) - ARP(7532) = V(1375)*V(5250) - ARP(7533) = V(2917) - ARP(7534) = V(2917)*V(5250) - ARP(7535) = V(1945) - ARP(7536) = V(314)*V(5250) - ARP(7537) = V(3382) - ARP(7538) = V(3382)*V(5250) - ARP(7539) = V(1075) - ARP(7540) = V(1075)*V(5250) - ARP(7541) = V(117) - ARP(7542) = V(1326) - ARP(7543) = V(1326)*V(5250) - ARP(7544) = V(3212) - ARP(7545) = V(3212)*V(5250) - ARP(7546) = V(2361) - ARP(7547) = V(895)*V(5250) - ARP(7548) = V(1282) - ARP(7549) = V(1282)*V(5250) - ARP(7550) = V(91) - ARP(7551) = V(1010) - ARP(7552) = V(1010)*V(5250) - ARP(7553) = V(2291) - ARP(7554) = V(2291)*V(5250) - ARP(7555) = V(3393) - ARP(7556) = V(3393) - ARP(7557) = V(3747) - ARP(7558) = V(3747)*V(5250) - ARP(7559) = V(3747)*V(5250) - ARP(7560) = V(964) - ARP(7561) = V(964)*V(5250) - ARP(7562) = V(2049) - ARP(7563) = V(2049)*V(5250) - ARP(7564) = V(2050) - ARP(7565) = V(675)*V(5250) - ARP(7566) = V(675)*V(5250) - ARP(7567) = V(3822)*V(5250) - ARP(7568) = V(3822) - ARP(7569) = V(1032) - ARP(7570) = V(1032)*V(5250) - ARP(7571) = V(132) - ARP(7572) = V(1382)*V(5250) - ARP(7573) = V(1382)*V(5250) - ARP(7574) = V(2202) - ARP(7575) = V(2202)*V(5250) - ARP(7576) = V(727) - ARP(7577) = V(223)*V(5250) - ARP(7578) = V(3946) - ARP(7579) = V(3946)*V(5256) - ARP(7580) = V(3946)*V(5250) - ARP(7581) = V(1168) - ARP(7582) = V(1168)*V(5250) - ARP(7583) = V(2299) - ARP(7584) = V(2299)*V(5250) - ARP(7585) = V(2284) - ARP(7586) = V(469)*V(5250) - ARP(7587) = V(3917) - ARP(7588) = V(3917)*V(5250) - ARP(7589) = V(3917)*V(5250) - ARP(7590) = V(1416) - ARP(7591) = V(1416)*V(5250) - ARP(7592) = V(50) - ARP(7593) = V(1401) - ARP(7594) = V(1401)*V(5250) - ARP(7595) = V(1780) - ARP(7596) = V(1780)*V(5250) - ARP(7597) = V(1781) - ARP(7598) = V(468)*V(5250) - ARP(7599) = V(4103) - ARP(7600) = V(4103)*V(5250) - ARP(7601) = V(4103)*V(5250) - ARP(7602) = V(1374) - ARP(7603) = V(1374)*V(5250) - ARP(7604) = V(140) - ARP(7605) = V(1304) - ARP(7606) = V(1304)*V(5250) - ARP(7607) = V(2268) - ARP(7608) = V(2268)*V(5250) - ARP(7609) = V(2122) - ARP(7610) = V(525)*V(5250) - ARP(7611) = V(4122) - ARP(7612) = V(4122)*V(5250) - ARP(7613) = V(4122)*V(5250) - ARP(7614) = V(1410) - ARP(7615) = V(1410)*V(5250) - ARP(7616) = V(66) - ARP(7617) = V(1349) - ARP(7618) = V(1349)*V(5250) - ARP(7619) = V(2206) - ARP(7620) = V(2206)*V(5250) - ARP(7621) = V(2060) - ARP(7622) = V(295)*V(5250) - ARP(7623) = V(4179) - ARP(7624) = V(4179)*V(5250) - ARP(7625) = V(4179)*V(5250) - ARP(7626) = V(1028) - ARP(7627) = V(1028)*V(5250) - ARP(7628) = V(35) - ARP(7629) = V(1387) - ARP(7630) = V(1387)*V(5250) - ARP(7631) = V(2387) - ARP(7632) = V(2387)*V(5250) - ARP(7633) = V(2031) - ARP(7634) = V(524)*V(5250) - ARP(7635) = V(4164) - ARP(7636) = V(4164)*V(5250) - ARP(7637) = V(4164)*V(5250) - ARP(7638) = V(1534) - ARP(7639) = V(1534)*V(5250) - ARP(7640) = V(43) - ARP(7641) = V(1536)*V(5250) - ARP(7642) = V(1536) - ARP(7643) = V(1889)*V(5250) - ARP(7644) = V(1889) - ARP(7645) = V(188) - ARP(7646) = V(501)*V(5250) - ARP(7647) = V(2783)*V(5250) - ARP(7648) = V(2150)*V(5250) - ARP(7649) = V(2150) - ARP(7650) = V(2500)*V(5250) - ARP(7651) = V(2500) - ARP(7652) = V(1110)*V(5250) - ARP(7653) = V(1997)*V(5250) - ARP(7654) = V(1997) - ARP(7655) = V(2579)*V(5250) - ARP(7656) = V(2579) - ARP(7657) = V(2080)*V(5250) - ARP(7658) = V(2080) - ARP(7659) = V(637) - ARP(7660) = V(4352)*V(5250) - ARP(7661) = V(4352) - ARP(7662) = V(1916)*V(5250) - ARP(7663) = V(1916) - ARP(7664) = V(2384)*V(5250) - ARP(7665) = V(2384) - ARP(7666) = V(2698)*V(5250) - ARP(7667) = V(2698) - ARP(7668) = V(1078)*V(5250) - ARP(7669) = V(2460)*V(5250) - ARP(7670) = V(2460) - ARP(7671) = V(2522)*V(5250) - ARP(7672) = V(2522) - ARP(7673) = V(1802)*V(5250) - ARP(7674) = V(1802) - ARP(7675) = V(737) - ARP(7676) = V(2478)*V(5250) - ARP(7677) = V(2478) - ARP(7678) = V(2478) - ARP(7679) = V(1562)*V(5250) - ARP(7680) = V(1562) - ARP(7681) = V(1363)*V(5250) - ARP(7682) = V(2176)*V(5250) - ARP(7683) = V(2176) - ARP(7684) = V(2583)*V(5250) - ARP(7685) = V(2583) - ARP(7686) = V(3231)*V(5250) - ARP(7687) = V(3231) - ARP(7688) = V(3231) - ARP(7689) = V(706) - ARP(7690) = V(2396)*V(5250) - ARP(7691) = V(2396) - ARP(7692) = V(2738)*V(5250) - ARP(7693) = V(2738) - ARP(7694) = V(1515)*V(5250) - ARP(7695) = V(1515) - ARP(7696) = V(2858) - ARP(7697) = V(829)*V(5250) - ARP(7698) = V(829) - ARP(7699) = V(3897) - ARP(7700) = V(3897) - ARP(7701) = V(924)*V(5250) - ARP(7702) = V(2314)*V(5250) - ARP(7703) = V(2314) - ARP(7704) = V(2702)*V(5250) - ARP(7705) = V(2702) - ARP(7706) = V(1080)*V(5250) - ARP(7707) = V(1080) - ARP(7708) = V(1261)*V(5250) - ARP(7709) = V(2036)*V(5250) - ARP(7710) = V(2036) - ARP(7711) = V(2872)*V(5250) - ARP(7712) = V(2872) - ARP(7713) = V(2301)*V(5250) - ARP(7714) = V(2301) - ARP(7715) = V(3051)*V(5250) - ARP(7716) = V(3051) - ARP(7717) = V(3278)*V(5250) - ARP(7718) = V(3278)*V(5250) - ARP(7719) = V(3278) - ARP(7720) = V(3909) - ARP(7721) = V(3909) - ARP(7722) = V(834)*V(5250) - ARP(7723) = V(2290)*V(5250) - ARP(7724) = V(2290) - ARP(7725) = V(2988)*V(5250) - ARP(7726) = V(2988) - ARP(7727) = V(1999)*V(5250) - ARP(7728) = V(1999) - ARP(7729) = V(669) - ARP(7730) = V(2028)*V(5250) - ARP(7731) = V(2028) - ARP(7732) = V(2028) - ARP(7733) = V(1621)*V(5250) - ARP(7734) = V(1621) - ARP(7735) = V(2466)*V(5250) - ARP(7736) = V(2466) - ARP(7737) = V(551) - ARP(7738) = V(1670)*V(5250) - ARP(7739) = V(1670) - ARP(7740) = V(3759) - ARP(7741) = V(3759)*V(5250) - ARP(7742) = V(2371) - ARP(7743) = V(2371)*V(5250) - ARP(7744) = V(2896) - ARP(7745) = V(2896)*V(5250) - ARP(7746) = V(2166)*V(5250) - ARP(7747) = V(2166) - ARP(7748) = V(815) - ARP(7749) = V(2547)*V(5250) - ARP(7750) = V(2547) - ARP(7751) = V(2129)*V(5250) - ARP(7752) = V(2129) - ARP(7753) = V(2114)*V(5250) - ARP(7754) = V(2114)*V(5250) - ARP(7755) = V(2114) - ARP(7756) = V(3904) - ARP(7757) = V(3904) - ARP(7758) = V(3354)*V(5250) - ARP(7759) = V(3354) - ARP(7760) = V(2344)*V(5250) - ARP(7761) = V(2344) - ARP(7762) = V(3728)*V(5255) - ARP(7763) = V(3728)*V(5252) - ARP(7764) = V(3728)*V(5256) - ARP(7765) = V(3728) - ARP(7766) = V(759) - ARP(7767) = V(759) - ARP(7768) = V(3669)*V(5255) - ARP(7769) = V(3669)*V(5252) - ARP(7770) = V(3669)*V(5256) - ARP(7771) = V(3669) - ARP(7772) = V(3669) - ARP(7773) = V(3669) - ARP(7774) = V(4398)*V(5250) - ARP(7775) = V(4398) - ARP(7776) = V(3325)*V(5250) - ARP(7777) = V(3325) - ARP(7778) = V(3325) - ARP(7779) = V(3712) - ARP(7780) = V(3712) - ARP(7781) = V(2924)*V(5250) - ARP(7782) = V(2924) - ARP(7783) = V(1356)*V(5250) - ARP(7784) = V(1356) - ARP(7785) = V(1067)*V(5250) - ARP(7786) = V(1067) - ARP(7787) = V(2712)*V(5250) - ARP(7788) = V(2712) - ARP(7789) = V(2609)*V(5250) - ARP(7790) = V(2609) - ARP(7791) = V(2609) - ARP(7792) = V(2376) - ARP(7793) = V(4602)*V(5250) - ARP(7794) = V(4602) - ARP(7795) = V(3446)*V(5250) - ARP(7796) = V(3446)*V(5250) - ARP(7797) = V(3446) - ARP(7798) = V(3446) - ARP(7799) = V(808) - ARP(7800) = V(3644)*V(5250) - ARP(7801) = V(3644) - ARP(7802) = V(1570)*V(5250) - ARP(7803) = V(1570) - ARP(7804) = V(4859)*V(5253) - ARP(7805) = V(4859)*V(5258) - ARP(7806) = V(3092)*V(5256) - ARP(7807) = V(3092)*V(5250) - ARP(7808) = V(4079)*V(5255) - ARP(7809) = V(4079)*V(5252) - ARP(7810) = V(4079)*V(5256) - ARP(7811) = V(4079) - ARP(7812) = V(1775)*V(5256) - ARP(7813) = V(1775)*V(5250) - ARP(7814) = V(4491)*V(5250) - ARP(7815) = V(4491) - ARP(7816) = V(2054)*V(5256) - ARP(7817) = V(2054)*V(5250) - ARP(7818) = V(4798)*V(5253) - ARP(7819) = V(4798)*V(5258) - ARP(7820) = V(2283)*V(5250) - ARP(7821) = V(2283) - ARP(7822) = V(3167)*V(5256) - ARP(7823) = V(3167)*V(5250) - ARP(7824) = V(4049)*V(5255) - ARP(7825) = V(4049)*V(5252) - ARP(7826) = V(4049)*V(5256) - ARP(7827) = V(4049) - ARP(7828) = V(3590)*V(5250) - ARP(7829) = V(3590) - ARP(7830) = V(4993)*V(5255) - ARP(7831) = V(4993)*V(5255) - ARP(7832) = V(4993)*V(5255) - ARP(7833) = V(4993)*V(5252) - ARP(7834) = V(4993)*V(5253) - ARP(7835) = V(4993)*V(5256) - ARP(7836) = V(4993) - ARP(7837) = V(4993) - ARP(7838) = V(3647) - ARP(7839) = V(3647) - ARP(7840) = V(4861)*V(5255) - ARP(7841) = V(4861)*V(5252) - ARP(7842) = V(4861)*V(5256) - ARP(7843) = V(4861) - ARP(7844) = V(4861) - ARP(7845) = V(4835)*V(5255) - ARP(7846) = V(4835)*V(5252) - ARP(7847) = V(4835)*V(5256) - ARP(7848) = V(4835) - ARP(7849) = V(4835) - ARP(7850) = V(4835) - ARP(7851) = V(3692)*V(5255) - ARP(7852) = V(3692)*V(5252) - ARP(7853) = V(3692)*V(5256) - ARP(7854) = V(3692) - ARP(7855) = V(771) - ARP(7856) = V(771) - ARP(7857) = V(3752)*V(5255) - ARP(7858) = V(3752)*V(5252) - ARP(7859) = V(3752)*V(5256) - ARP(7860) = V(3752) - ARP(7861) = V(3752) - ARP(7862) = V(4071) - ARP(7863) = V(4071) - ARP(7864) = V(1109)*V(5250) - ARP(7865) = V(1109) - ARP(7866) = V(2876)*V(5250) - ARP(7867) = V(2876) - ARP(7868) = V(4693) - ARP(7869) = V(4693)*V(5250) - ARP(7870) = V(461)*V(5250) - ARP(7871) = V(1456)*V(5250) - ARP(7872) = V(1456) - ARP(7873) = V(3220)*V(5250) - ARP(7874) = V(3220) - ARP(7875) = V(4968)*V(5255) - ARP(7876) = V(4968)*V(5255) - ARP(7877) = V(4968)*V(5255) - ARP(7878) = V(4968)*V(5252) - ARP(7879) = V(4968)*V(5253) - ARP(7880) = V(4968)*V(5256) - ARP(7881) = V(4968) - ARP(7882) = V(4968) - ARP(7883) = V(2393) - ARP(7884) = V(2393) - ARP(7885) = V(2393) - ARP(7886) = V(2393) - ARP(7887) = V(4347)*V(5255) - ARP(7888) = V(4347)*V(5252) - ARP(7889) = V(4347)*V(5256) - ARP(7890) = V(4347) - ARP(7891) = V(4347) - ARP(7892) = V(4440)*V(5255) - ARP(7893) = V(4440)*V(5252) - ARP(7894) = V(4440)*V(5256) - ARP(7895) = V(4440) - ARP(7896) = V(4669)*V(5255) - ARP(7897) = V(4669)*V(5252) - ARP(7898) = V(4669)*V(5256) - ARP(7899) = V(4669) - ARP(7900) = V(4669) - ARP(7901) = V(4669) - ARP(7902) = V(4422)*V(5255) - ARP(7903) = V(4422)*V(5252) - ARP(7904) = V(4422)*V(5256) - ARP(7905) = V(4422) - ARP(7906) = V(4422) - ARP(7907) = V(1765)*V(5250) - ARP(7908) = V(1765) - ARP(7909) = V(2051)*V(5250) - ARP(7910) = V(2051) - ARP(7911) = V(1086)*V(5250) - ARP(7912) = V(1086) - ARP(7913) = V(3931)*V(5250) - ARP(7914) = V(3931) - ARP(7915) = V(3931) - ARP(7916) = V(3931) - ARP(7917) = V(3930) - ARP(7918) = V(3930) - ARP(7919) = V(3450)*V(5250) - ARP(7920) = V(3450) - ARP(7921) = V(3450) - ARP(7922) = V(3821)*V(5250) - ARP(7923) = V(3821) - ARP(7924) = V(4690)*V(5253) - ARP(7925) = V(4690)*V(5258) - ARP(7926) = V(2177)*V(5250) - ARP(7927) = V(2177) - ARP(7928) = V(1936)*V(5256) - ARP(7929) = V(1936)*V(5250) - ARP(7930) = V(3095)*V(5256) - ARP(7931) = V(3095)*V(5250) - ARP(7932) = V(4033)*V(5255) - ARP(7933) = V(4033)*V(5252) - ARP(7934) = V(4033)*V(5256) - ARP(7935) = V(4033) - ARP(7936) = V(389)*V(5250) - ARP(7937) = V(1283)*V(5250) - ARP(7938) = V(1283) - ARP(7939) = V(2956)*V(5250) - ARP(7940) = V(2956) - ARP(7941) = V(3385)*V(5250) - ARP(7942) = V(3385) - ARP(7943) = V(1645)*V(5253) - ARP(7944) = V(4558)*V(5255) - ARP(7945) = V(4558)*V(5252) - ARP(7946) = V(4558)*V(5256) - ARP(7947) = V(4558) - ARP(7948) = V(4558) - ARP(7949) = V(3739)*V(5255) - ARP(7950) = V(3739)*V(5252) - ARP(7951) = V(3739)*V(5256) - ARP(7952) = V(3739) - ARP(7953) = V(4857)*V(5255) - ARP(7954) = V(4857)*V(5252) - ARP(7955) = V(4857)*V(5256) - ARP(7956) = V(4857) - ARP(7957) = V(4857) - ARP(7958) = V(4857) - ARP(7959) = V(3705)*V(5255) - ARP(7960) = V(3705)*V(5252) - ARP(7961) = V(3705)*V(5256) - ARP(7962) = V(3705) - ARP(7963) = V(3705) - ARP(7964) = V(3677)*V(5255) - ARP(7965) = V(3677)*V(5252) - ARP(7966) = V(3677)*V(5256) - ARP(7967) = V(3677) - ARP(7968) = V(4550)*V(5255) - ARP(7969) = V(4550)*V(5252) - ARP(7970) = V(4550)*V(5256) - ARP(7971) = V(4550) - ARP(7972) = V(3695)*V(5255) - ARP(7973) = V(3695)*V(5252) - ARP(7974) = V(3695)*V(5256) - ARP(7975) = V(3695) - ARP(7976) = V(3695) - ARP(7977) = V(3582) - ARP(7978) = V(3582) - ARP(7979) = V(3475)*V(5250) - ARP(7980) = V(3475) - ARP(7981) = V(3475) - ARP(7982) = V(2830)*V(5250) - ARP(7983) = V(2830) - ARP(7984) = V(1084)*V(5250) - ARP(7985) = V(1084) - ARP(7986) = V(915)*V(5250) - ARP(7987) = V(915) - ARP(7988) = V(2904)*V(5250) - ARP(7989) = V(2904) - ARP(7990) = V(4125)*V(5250) - ARP(7991) = V(4125) - ARP(7992) = V(4125) - ARP(7993) = V(1810) - ARP(7994) = V(4671)*V(5253) - ARP(7995) = V(4671)*V(5258) - ARP(7996) = V(1419)*V(5250) - ARP(7997) = V(1419) - ARP(7998) = V(2464)*V(5256) - ARP(7999) = V(2464)*V(5250) - ARP(8000) = V(3119)*V(5256) - ARP(8001) = V(3119)*V(5250) - ARP(8002) = V(4073)*V(5255) - ARP(8003) = V(4073)*V(5252) - ARP(8004) = V(4073)*V(5256) - ARP(8005) = V(4073) - ARP(8006) = V(4014)*V(5250) - ARP(8007) = V(4014) - ARP(8008) = V(341)*V(5250) - ARP(8009) = V(1002)*V(5250) - ARP(8010) = V(1002) - ARP(8011) = V(3229)*V(5250) - ARP(8012) = V(3229) - ARP(8013) = V(2102)*V(5250) - ARP(8014) = V(2102) - ARP(8015) = V(3456)*V(5253) - ARP(8016) = V(4706)*V(5255) - ARP(8017) = V(4706)*V(5252) - ARP(8018) = V(4706)*V(5256) - ARP(8019) = V(4706) - ARP(8020) = V(4706) - ARP(8021) = V(4706) - ARP(8022) = V(4676)*V(5253) - ARP(8023) = V(4676)*V(5258) - ARP(8024) = V(854)*V(5250) - ARP(8025) = V(854) - ARP(8026) = V(2167)*V(5256) - ARP(8027) = V(2167)*V(5250) - ARP(8028) = V(3112)*V(5256) - ARP(8029) = V(3112)*V(5250) - ARP(8030) = V(4002)*V(5255) - ARP(8031) = V(4002)*V(5252) - ARP(8032) = V(4002)*V(5256) - ARP(8033) = V(4002) - ARP(8034) = V(276)*V(5250) - ARP(8035) = V(867)*V(5250) - ARP(8036) = V(867) - ARP(8037) = V(2780)*V(5250) - ARP(8038) = V(2780) - ARP(8039) = V(4797)*V(5253) - ARP(8040) = V(4797)*V(5258) - ARP(8041) = V(1476)*V(5250) - ARP(8042) = V(1476) - ARP(8043) = V(4047)*V(5250) - ARP(8044) = V(4047) - ARP(8045) = V(1805)*V(5256) - ARP(8046) = V(1805)*V(5250) - ARP(8047) = V(3162)*V(5256) - ARP(8048) = V(3162)*V(5250) - ARP(8049) = V(4057)*V(5255) - ARP(8050) = V(4057)*V(5252) - ARP(8051) = V(4057)*V(5256) - ARP(8052) = V(4057) - ARP(8053) = V(3230)*V(5250) - ARP(8054) = V(3230) - ARP(8055) = V(4877)*V(5255) - ARP(8056) = V(4877)*V(5252) - ARP(8057) = V(4877)*V(5256) - ARP(8058) = V(4877) - ARP(8059) = V(4877) - ARP(8060) = V(4877) - ARP(8061) = V(3713)*V(5255) - ARP(8062) = V(3713)*V(5252) - ARP(8063) = V(3713)*V(5256) - ARP(8064) = V(3713) - ARP(8065) = V(4661)*V(5255) - ARP(8066) = V(4661)*V(5252) - ARP(8067) = V(4661)*V(5256) - ARP(8068) = V(4661) - ARP(8069) = V(4661) - ARP(8070) = V(4661) - ARP(8071) = V(3727)*V(5255) - ARP(8072) = V(3727)*V(5252) - ARP(8073) = V(3727)*V(5256) - ARP(8074) = V(3727) - ARP(8075) = V(3727) - ARP(8076) = V(3727) - ARP(8077) = V(4062) - ARP(8078) = V(4062) - ARP(8079) = V(3458)*V(5250) - ARP(8080) = V(3458) - ARP(8081) = V(3458) - ARP(8082) = V(2582)*V(5250) - ARP(8083) = V(2582) - ARP(8084) = V(4403)*V(5250) - ARP(8085) = V(4403) - ARP(8086) = V(4728)*V(5250) - ARP(8087) = V(4728) - ARP(8088) = V(4728) - ARP(8089) = V(3860)*V(5255) - ARP(8090) = V(3860)*V(5252) - ARP(8091) = V(3860)*V(5256) - ARP(8092) = V(3860) - ARP(8093) = V(2204)*V(5250) - ARP(8094) = V(2204) - ARP(8095) = V(787) - ARP(8096) = V(2295)*V(5250) - ARP(8097) = V(2295) - ARP(8098) = V(358)*V(5250) - ARP(8099) = V(3800)*V(5250) - ARP(8100) = V(3800) - ARP(8101) = V(4791)*V(5253) - ARP(8102) = V(4791)*V(5258) - ARP(8103) = V(1188)*V(5250) - ARP(8104) = V(1188) - ARP(8105) = V(2274)*V(5256) - ARP(8106) = V(2274)*V(5250) - ARP(8107) = V(3123)*V(5256) - ARP(8108) = V(3123)*V(5250) - ARP(8109) = V(4065)*V(5255) - ARP(8110) = V(4065)*V(5252) - ARP(8111) = V(4065)*V(5256) - ARP(8112) = V(4065) - ARP(8113) = V(2936)*V(5250) - ARP(8114) = V(2936) - ARP(8115) = V(2104) - ARP(8116) = V(2104) - ARP(8117) = V(2104) - ARP(8118) = V(2104) - ARP(8119) = V(4165)*V(5255) - ARP(8120) = V(4165)*V(5252) - ARP(8121) = V(4165)*V(5256) - ARP(8122) = V(4165) - ARP(8123) = V(4165) - ARP(8124) = V(4165) - ARP(8125) = V(3772)*V(5255) - ARP(8126) = V(3772)*V(5252) - ARP(8127) = V(3772)*V(5256) - ARP(8128) = V(3772) - ARP(8129) = V(4689)*V(5255) - ARP(8130) = V(4689)*V(5252) - ARP(8131) = V(4689)*V(5256) - ARP(8132) = V(4689) - ARP(8133) = V(4689) - ARP(8134) = V(4689) - ARP(8135) = V(3696)*V(5255) - ARP(8136) = V(3696)*V(5252) - ARP(8137) = V(3696)*V(5256) - ARP(8138) = V(3696) - ARP(8139) = V(3696) - ARP(8140) = V(3696) - ARP(8141) = V(4029) - ARP(8142) = V(4029) - ARP(8143) = V(3225)*V(5250) - ARP(8144) = V(3225) - ARP(8145) = V(3225) - ARP(8146) = V(2689)*V(5250) - ARP(8147) = V(2689) - ARP(8148) = V(862)*V(5250) - ARP(8149) = V(862) - ARP(8150) = V(2474)*V(5250) - ARP(8151) = V(2474) - ARP(8152) = V(2474) - ARP(8153) = V(3973)*V(5255) - ARP(8154) = V(3973)*V(5252) - ARP(8155) = V(3973)*V(5256) - ARP(8156) = V(3973) - ARP(8157) = V(4069)*V(5255) - ARP(8158) = V(4069)*V(5252) - ARP(8159) = V(4069)*V(5256) - ARP(8160) = V(4069) - ARP(8161) = V(4069) - ARP(8162) = V(4069) - ARP(8163) = V(4790)*V(5253) - ARP(8164) = V(4790)*V(5258) - ARP(8165) = V(1303)*V(5250) - ARP(8166) = V(1303) - ARP(8167) = V(3816)*V(5250) - ARP(8168) = V(3816) - ARP(8169) = V(2398)*V(5256) - ARP(8170) = V(2398)*V(5250) - ARP(8171) = V(3100)*V(5256) - ARP(8172) = V(3100)*V(5250) - ARP(8173) = V(3997)*V(5255) - ARP(8174) = V(3997)*V(5252) - ARP(8175) = V(3997)*V(5256) - ARP(8176) = V(3997) - ARP(8177) = V(2927)*V(5250) - ARP(8178) = V(2927) - ARP(8179) = V(4141)*V(5255) - ARP(8180) = V(4141)*V(5252) - ARP(8181) = V(4141)*V(5256) - ARP(8182) = V(4141) - ARP(8183) = V(4141) - ARP(8184) = V(4141) - ARP(8185) = V(3774)*V(5255) - ARP(8186) = V(3774)*V(5252) - ARP(8187) = V(3774)*V(5256) - ARP(8188) = V(3774) - ARP(8189) = V(4688)*V(5255) - ARP(8190) = V(4688)*V(5252) - ARP(8191) = V(4688)*V(5256) - ARP(8192) = V(4688) - ARP(8193) = V(4688) - ARP(8194) = V(4688) - ARP(8195) = V(3762)*V(5255) - ARP(8196) = V(3762)*V(5252) - ARP(8197) = V(3762)*V(5256) - ARP(8198) = V(3762) - ARP(8199) = V(3762) - ARP(8200) = V(3762) - ARP(8201) = V(4086) - ARP(8202) = V(4086) - ARP(8203) = V(3226)*V(5250) - ARP(8204) = V(3226) - ARP(8205) = V(3226) - ARP(8206) = V(2808)*V(5250) - ARP(8207) = V(2808) - ARP(8208) = V(1111)*V(5250) - ARP(8209) = V(1111) - ARP(8210) = V(2472)*V(5250) - ARP(8211) = V(2472) - ARP(8212) = V(2472) - ARP(8213) = V(3953)*V(5255) - ARP(8214) = V(3953)*V(5252) - ARP(8215) = V(3953)*V(5256) - ARP(8216) = V(3953) - ARP(8217) = V(227)*V(5250) - ARP(8218) = V(1355)*V(5250) - ARP(8219) = V(1355) - ARP(8220) = V(3199)*V(5250) - ARP(8221) = V(3199) - ARP(8222) = V(3664)*V(5250) - ARP(8223) = V(3664) - ARP(8224) = V(4810)*V(5253) - ARP(8225) = V(4810)*V(5258) - ARP(8226) = V(1227)*V(5250) - ARP(8227) = V(1227) - ARP(8228) = V(3114)*V(5256) - ARP(8229) = V(3114)*V(5250) - ARP(8230) = V(4023)*V(5255) - ARP(8231) = V(4023)*V(5252) - ARP(8232) = V(4023)*V(5256) - ARP(8233) = V(4023) - ARP(8234) = V(4888)*V(5255) - ARP(8235) = V(4888)*V(5255) - ARP(8236) = V(4888)*V(5255) - ARP(8237) = V(4888)*V(5252) - ARP(8238) = V(4888)*V(5253) - ARP(8239) = V(4888)*V(5256) - ARP(8240) = V(4888) - ARP(8241) = V(4888) - ARP(8242) = V(3975)*V(5255) - ARP(8243) = V(3975)*V(5252) - ARP(8244) = V(3975)*V(5256) - ARP(8245) = V(3975) - ARP(8246) = V(3975) - ARP(8247) = V(3945)*V(5255) - ARP(8248) = V(3945)*V(5252) - ARP(8249) = V(3945)*V(5256) - ARP(8250) = V(3945) - ARP(8251) = V(3726)*V(5250) - ARP(8252) = V(3726) - ARP(8253) = V(3725)*V(5255) - ARP(8254) = V(3725)*V(5252) - ARP(8255) = V(3725)*V(5256) - ARP(8256) = V(3725) - ARP(8257) = V(3725) - ARP(8258) = V(4416)*V(5255) - ARP(8259) = V(4416)*V(5252) - ARP(8260) = V(4416)*V(5256) - ARP(8261) = V(4416) - ARP(8262) = V(4481)*V(5255) - ARP(8263) = V(4481)*V(5252) - ARP(8264) = V(4481)*V(5256) - ARP(8265) = V(4481) - ARP(8266) = V(4481) - ARP(8267) = V(4480)*V(5255) - ARP(8268) = V(4480)*V(5252) - ARP(8269) = V(4480)*V(5256) - ARP(8270) = V(4480) - ARP(8271) = V(4480) - ARP(8272) = V(1175)*V(5250) - ARP(8273) = V(1175) - ARP(8274) = V(1404)*V(5250) - ARP(8275) = V(1404) - ARP(8276) = V(2518)*V(5250) - ARP(8277) = V(2518) - ARP(8278) = V(3965)*V(5250) - ARP(8279) = V(3965) - ARP(8280) = V(3965) - ARP(8281) = V(3965) - ARP(8282) = V(503)*V(5250) - ARP(8283) = V(1537)*V(5250) - ARP(8284) = V(1537) - ARP(8285) = V(3318)*V(5250) - ARP(8286) = V(3318) - ARP(8287) = V(2225)*V(5250) - ARP(8288) = V(2225) - ARP(8289) = V(3305)*V(5253) - ARP(8290) = V(214) - ARP(8291) = V(214) - ARP(8292) = V(4674)*V(5255) - ARP(8293) = V(4674)*V(5252) - ARP(8294) = V(4674)*V(5256) - ARP(8295) = V(4674) - ARP(8296) = V(4674) - ARP(8297) = V(3829)*V(5250) - ARP(8298) = V(3829) - ARP(8299) = V(4788)*V(5253) - ARP(8300) = V(4788)*V(5258) - ARP(8301) = V(943)*V(5250) - ARP(8302) = V(943) - ARP(8303) = V(2048)*V(5256) - ARP(8304) = V(2048)*V(5250) - ARP(8305) = V(3142)*V(5256) - ARP(8306) = V(3142)*V(5250) - ARP(8307) = V(4007)*V(5255) - ARP(8308) = V(4007)*V(5252) - ARP(8309) = V(4007)*V(5256) - ARP(8310) = V(4007) - ARP(8311) = V(4694)*V(5250) - ARP(8312) = V(4694) - ARP(8313) = V(423)*V(5250) - ARP(8314) = V(1228)*V(5250) - ARP(8315) = V(1228) - ARP(8316) = V(3232)*V(5250) - ARP(8317) = V(3232) - ARP(8318) = V(2379)*V(5250) - ARP(8319) = V(2379) - ARP(8320) = V(3474)*V(5253) - ARP(8321) = V(3765) - ARP(8322) = V(3765) - ARP(8323) = V(2603)*V(5250) - ARP(8324) = V(2603) - ARP(8325) = V(2603) - ARP(8326) = V(3300)*V(5250) - ARP(8327) = V(3300) - ARP(8328) = V(1432)*V(5250) - ARP(8329) = V(1432) - ARP(8330) = V(1378)*V(5250) - ARP(8331) = V(1378) - ARP(8332) = V(2671)*V(5250) - ARP(8333) = V(2671) - ARP(8334) = V(3366)*V(5250) - ARP(8335) = V(3366) - ARP(8336) = V(3366) - ARP(8337) = V(1833) - ARP(8338) = V(3918)*V(5250) - ARP(8339) = V(3918) - ARP(8340) = V(5031)*V(5250) - ARP(8341) = V(5031) - ARP(8342) = V(2047)*V(5250) - ARP(8343) = V(2047) - ARP(8344) = V(2047) - ARP(8345) = V(782) - ARP(8346) = V(1666)*V(5250) - ARP(8347) = V(1666) - ARP(8348) = V(3132)*V(5250) - ARP(8349) = V(3132) - ARP(8350) = V(1389)*V(5250) - ARP(8351) = V(1389) - ARP(8352) = V(1206)*V(5250) - ARP(8353) = V(1206) - ARP(8354) = V(1368)*V(5250) - ARP(8355) = V(1368) - ARP(8356) = V(3441)*V(5250) - ARP(8357) = V(3441) - ARP(8358) = V(3441) - ARP(8359) = V(3441) - ARP(8360) = V(3419) - ARP(8361) = V(3419) - ARP(8362) = V(2310)*V(5250) - ARP(8363) = V(2310) - ARP(8364) = V(4682)*V(5253) - ARP(8365) = V(4682)*V(5258) - ARP(8366) = V(1156)*V(5250) - ARP(8367) = V(1156) - ARP(8368) = V(2420)*V(5256) - ARP(8369) = V(2420)*V(5250) - ARP(8370) = V(3127)*V(5256) - ARP(8371) = V(3127)*V(5250) - ARP(8372) = V(4054)*V(5255) - ARP(8373) = V(4054)*V(5252) - ARP(8374) = V(4054)*V(5256) - ARP(8375) = V(4054) - ARP(8376) = V(5199) - ARP(8377) = V(5199) - ARP(8378) = V(5199)*V(5256) - ARP(8379) = V(5199)*V(5250) - ARP(8380) = V(4632)*V(5253) - ARP(8381) = V(4632)*V(5258) - ARP(8382) = V(843)*V(5250) - ARP(8383) = V(843) - ARP(8384) = V(2281)*V(5256) - ARP(8385) = V(2281)*V(5250) - ARP(8386) = V(3116)*V(5256) - ARP(8387) = V(3116)*V(5250) - ARP(8388) = V(4035)*V(5255) - ARP(8389) = V(4035)*V(5252) - ARP(8390) = V(4035)*V(5256) - ARP(8391) = V(4035) - ARP(8392) = V(4703)*V(5255) - ARP(8393) = V(4703)*V(5252) - ARP(8394) = V(4703)*V(5256) - ARP(8395) = V(4703) - ARP(8396) = V(4703) - ARP(8397) = V(4703) - ARP(8398) = V(4663)*V(5253) - ARP(8399) = V(4663)*V(5258) - ARP(8400) = V(852)*V(5250) - ARP(8401) = V(852) - ARP(8402) = V(2390)*V(5256) - ARP(8403) = V(2390)*V(5250) - ARP(8404) = V(3087)*V(5256) - ARP(8405) = V(3087)*V(5250) - ARP(8406) = V(4064)*V(5255) - ARP(8407) = V(4064)*V(5252) - ARP(8408) = V(4064)*V(5256) - ARP(8409) = V(4064) - ARP(8410) = V(2690)*V(5250) - ARP(8411) = V(2690) - ARP(8412) = V(2690) - ARP(8413) = V(801) - ARP(8414) = V(1735)*V(5250) - ARP(8415) = V(1735) - ARP(8416) = V(1797)*V(5250) - ARP(8417) = V(1797) - ARP(8418) = V(4946)*V(5255) - ARP(8419) = V(4946)*V(5255) - ARP(8420) = V(4946)*V(5255) - ARP(8421) = V(4946)*V(5252) - ARP(8422) = V(4946)*V(5253) - ARP(8423) = V(4946)*V(5256) - ARP(8424) = V(4946) - ARP(8425) = V(4946) - ARP(8426) = V(3853)*V(5255) - ARP(8427) = V(3853)*V(5252) - ARP(8428) = V(3853)*V(5256) - ARP(8429) = V(3853) - ARP(8430) = V(3853) - ARP(8431) = V(3687)*V(5255) - ARP(8432) = V(3687)*V(5252) - ARP(8433) = V(3687)*V(5256) - ARP(8434) = V(3687) - ARP(8435) = V(4920)*V(5255) - ARP(8436) = V(4920)*V(5252) - ARP(8437) = V(4920)*V(5256) - ARP(8438) = V(4920) - ARP(8439) = V(4920) - ARP(8440) = V(4920) - ARP(8441) = V(3788)*V(5255) - ARP(8442) = V(3788)*V(5252) - ARP(8443) = V(3788)*V(5256) - ARP(8444) = V(3788) - ARP(8445) = V(3788) - ARP(8446) = V(4401)*V(5250) - ARP(8447) = V(4401) - ARP(8448) = V(4401) - ARP(8449) = V(2900)*V(5250) - ARP(8450) = V(2900) - ARP(8451) = V(2900) - ARP(8452) = V(717) - ARP(8453) = V(1716)*V(5250) - ARP(8454) = V(1716) - ARP(8455) = V(2134)*V(5250) - ARP(8456) = V(2134) - ARP(8457) = V(1076)*V(5250) - ARP(8458) = V(1076) - ARP(8459) = V(4050)*V(5255) - ARP(8460) = V(4050)*V(5252) - ARP(8461) = V(4050)*V(5256) - ARP(8462) = V(4050) - ARP(8463) = V(3303)*V(5250) - ARP(8464) = V(3303) - ARP(8465) = V(4178)*V(5250) - ARP(8466) = V(4178)*V(5250) - ARP(8467) = V(4178) - ARP(8468) = V(4178) - ARP(8469) = V(2307)*V(5250) - ARP(8470) = V(2307) - ARP(8471) = V(2681)*V(5250) - ARP(8472) = V(2681) - ARP(8473) = V(1256)*V(5250) - ARP(8474) = V(1256) - ARP(8475) = V(1176)*V(5250) - ARP(8476) = V(1176) - ARP(8477) = V(2630)*V(5250) - ARP(8478) = V(2630) - ARP(8479) = V(2971)*V(5250) - ARP(8480) = V(2971) - ARP(8481) = V(2971) - ARP(8482) = V(2238) - ARP(8483) = V(572)*V(5250) - ARP(8484) = V(572) - ARP(8485) = V(2358)*V(5250) - ARP(8486) = V(2358) - ARP(8487) = V(2358) - ARP(8488) = V(750) - ARP(8489) = V(4865)*V(5250) - ARP(8490) = V(4865) - ARP(8491) = V(1917) - ARP(8492) = V(1917) - ARP(8493) = V(1917)*V(5250) - ARP(8494) = V(595) - ARP(8495) = V(2711) - ARP(8496) = V(2711)*V(5250) - ARP(8497) = V(1683) - ARP(8498) = V(1683)*V(5250) - ARP(8499) = V(1969)*V(5250) - ARP(8500) = V(2824) - ARP(8501) = V(2824)*V(5250) - ARP(8502) = V(2531) - ARP(8503) = V(2531)*V(5250) - ARP(8504) = V(4668)*V(5251) - ARP(8505) = V(4668)*V(5252) - ARP(8506) = V(4668)*V(5253) - ARP(8507) = V(4668)*V(5254) - ARP(8508) = V(4668) - ARP(8509) = V(4668) - ARP(8510) = V(3459) - ARP(8511) = V(3459) - ARP(8512) = V(3459)*V(5250) - ARP(8513) = V(2112) - ARP(8514) = V(1644) - ARP(8515) = V(1644)*V(5250) - ARP(8516) = V(3483) - ARP(8517) = V(3483)*V(5256) - ARP(8518) = V(3483)*V(5250) - ARP(8519) = V(1851)*V(5250) - ARP(8520) = V(2494) - ARP(8521) = V(2494)*V(5250) - ARP(8522) = V(2796) - ARP(8523) = V(2796)*V(5250) - ARP(8524) = V(4999)*V(5251) - ARP(8525) = V(4999)*V(5252) - ARP(8526) = V(4999)*V(5253) - ARP(8527) = V(4999)*V(5254) - ARP(8528) = V(4999) - ARP(8529) = V(4999) - ARP(8530) = V(1098) - ARP(8531) = V(1098)*V(5250) - ARP(8532) = V(991)*V(5250) - ARP(8533) = V(2816) - ARP(8534) = V(1626) - ARP(8535) = V(1626)*V(5250) - ARP(8536) = V(4851) - ARP(8537) = V(4851)*V(5256) - ARP(8538) = V(4851)*V(5250) - ARP(8539) = V(4776)*V(5251) - ARP(8540) = V(4776)*V(5252) - ARP(8541) = V(4776)*V(5253) - ARP(8542) = V(4776)*V(5254) - ARP(8543) = V(4776) - ARP(8544) = V(4776) - ARP(8545) = V(1220)*V(5250) - ARP(8546) = V(1220) - ARP(8547) = V(1529)*V(5250) - ARP(8548) = V(2596) - ARP(8549) = V(3608)*V(5250) - ARP(8550) = V(3608) - ARP(8551) = V(2695)*V(5250) - ARP(8552) = V(2695) - ARP(8553) = V(2695) - ARP(8554) = V(656) - ARP(8555) = V(2043)*V(5250) - ARP(8556) = V(2043) - ARP(8557) = V(2431) - ARP(8558) = V(2431)*V(5250) - ARP(8559) = V(2801) - ARP(8560) = V(2801)*V(5250) - ARP(8561) = V(4282)*V(5251) - ARP(8562) = V(4282)*V(5252) - ARP(8563) = V(4282)*V(5253) - ARP(8564) = V(4282)*V(5254) - ARP(8565) = V(4282) - ARP(8566) = V(2147) - ARP(8567) = V(2147)*V(5250) - ARP(8568) = V(2147)*V(5250) - ARP(8569) = V(3835)*V(5250) - ARP(8570) = V(3835)*V(5250) - ARP(8571) = V(3835)*V(5250) - ARP(8572) = V(2717) - ARP(8573) = V(3628) - ARP(8574) = V(3628)*V(5250) - ARP(8575) = V(463)*V(5250) - ARP(8576) = V(2191)*V(5250) - ARP(8577) = V(3033) - ARP(8578) = V(3033)*V(5250) - ARP(8579) = V(2670) - ARP(8580) = V(2670)*V(5250) - ARP(8581) = V(4213)*V(5251) - ARP(8582) = V(4213)*V(5252) - ARP(8583) = V(4213)*V(5253) - ARP(8584) = V(4213)*V(5254) - ARP(8585) = V(4213) - ARP(8586) = V(1438) - ARP(8587) = V(1438)*V(5250) - ARP(8588) = V(2545) - ARP(8589) = V(55)*V(5250) - ARP(8590) = V(3933)*V(5250) - ARP(8591) = V(3933) - ARP(8592) = V(391)*V(5250) - ARP(8593) = V(4321)*V(5255) - ARP(8594) = V(4321)*V(5252) - ARP(8595) = V(4321)*V(5252) - ARP(8596) = V(4321)*V(5256) - ARP(8597) = V(4321) - ARP(8598) = V(4321) - ARP(8599) = V(4832)*V(5256) - ARP(8600) = V(4832)*V(5258) - ARP(8601) = V(4832)*V(5250) - ARP(8602) = V(819) - ARP(8603) = V(819) - ARP(8604) = V(1795) - ARP(8605) = V(1795) - ARP(8606) = V(3707)*V(5250) - ARP(8607) = V(3707) - ARP(8608) = V(3707) - ARP(8609) = V(3707) - ARP(8610) = V(1346) - ARP(8611) = V(3464)*V(5250) - ARP(8612) = V(3464)*V(5250) - ARP(8613) = V(3464) - ARP(8614) = V(3464) - ARP(8615) = V(4805)*V(5258) - ARP(8616) = V(4805)*V(5258) - ARP(8617) = V(4805)*V(5250) - ARP(8618) = V(4805) - ARP(8619) = V(29) - ARP(8620) = V(3693)*V(5250) - ARP(8621) = V(3693) - ARP(8622) = V(3693) - ARP(8623) = V(1558)*V(5250) - ARP(8624) = V(1558) - ARP(8625) = V(5025)*V(5255) - ARP(8626) = V(5025)*V(5255) - ARP(8627) = V(5025)*V(5255) - ARP(8628) = V(5025)*V(5252) - ARP(8629) = V(5025)*V(5253) - ARP(8630) = V(5025)*V(5256) - ARP(8631) = V(5025) - ARP(8632) = V(5025) - ARP(8633) = V(5025) - ARP(8634) = V(5035)*V(5255) - ARP(8635) = V(5035)*V(5252) - ARP(8636) = V(5035)*V(5252) - ARP(8637) = V(5035)*V(5256) - ARP(8638) = V(5035) - ARP(8639) = V(5035) - ARP(8640) = V(3428)*V(5250) - ARP(8641) = V(3428)*V(5250) - ARP(8642) = V(3428)*V(5250) - ARP(8643) = V(3428)*V(5250) - ARP(8644) = V(3428)*V(5250) - ARP(8645) = V(2489) - ARP(8646) = V(2489) - ARP(8647) = V(2489) - ARP(8648) = V(2489) - ARP(8649) = V(5074)*V(5255) - ARP(8650) = V(5074)*V(5252) - ARP(8651) = V(5074)*V(5252) - ARP(8652) = V(5074)*V(5256) - ARP(8653) = V(5074) - ARP(8654) = V(5074) - ARP(8655) = V(5074) - ARP(8656) = V(5154)*V(5255) - ARP(8657) = V(5154)*V(5252) - ARP(8658) = V(5154)*V(5252) - ARP(8659) = V(5154) - ARP(8660) = V(5154) - ARP(8661) = V(5154) - ARP(8662) = V(678)*V(5250) - ARP(8663) = V(678)*V(5250) - ARP(8664) = V(3801)*V(5255) - ARP(8665) = V(3801)*V(5252) - ARP(8666) = V(3801)*V(5252) - ARP(8667) = V(3801)*V(5256) - ARP(8668) = V(3801) - ARP(8669) = V(3801) - ARP(8670) = V(3524)*V(5250) - ARP(8671) = V(3524) - ARP(8672) = V(3524) - ARP(8673) = V(3524) - ARP(8674) = V(1246) - ARP(8675) = V(4749)*V(5250) - ARP(8676) = V(4749)*V(5250) - ARP(8677) = V(4749) - ARP(8678) = V(4749) - ARP(8679) = V(4749) - ARP(8680) = V(4570)*V(5258) - ARP(8681) = V(4570)*V(5258) - ARP(8682) = V(4570)*V(5250) - ARP(8683) = V(4570) - ARP(8684) = V(19) - ARP(8685) = V(4339)*V(5255) - ARP(8686) = V(4339)*V(5252) - ARP(8687) = V(4339)*V(5256) - ARP(8688) = V(4339) - ARP(8689) = V(1682)*V(5250) - ARP(8690) = V(1682) - ARP(8691) = V(5033)*V(5255) - ARP(8692) = V(5033)*V(5255) - ARP(8693) = V(5033)*V(5255) - ARP(8694) = V(5033)*V(5252) - ARP(8695) = V(5033)*V(5253) - ARP(8696) = V(5033)*V(5256) - ARP(8697) = V(5033) - ARP(8698) = V(5033) - ARP(8699) = V(5033) - ARP(8700) = V(4711)*V(5255) - ARP(8701) = V(4711)*V(5252) - ARP(8702) = V(4711)*V(5252) - ARP(8703) = V(4711)*V(5256) - ARP(8704) = V(4711) - ARP(8705) = V(5174)*V(5255) - ARP(8706) = V(5174)*V(5252) - ARP(8707) = V(5174)*V(5252) - ARP(8708) = V(5174)*V(5256) - ARP(8709) = V(5174) - ARP(8710) = V(5174) - ARP(8711) = V(5174) - ARP(8712) = V(790) - ARP(8713) = V(790) - ARP(8714) = V(5022)*V(5255) - ARP(8715) = V(5022)*V(5252) - ARP(8716) = V(5022)*V(5252) - ARP(8717) = V(5022)*V(5256) - ARP(8718) = V(5022) - ARP(8719) = V(5022) - ARP(8720) = V(5134)*V(5255) - ARP(8721) = V(5134)*V(5252) - ARP(8722) = V(5134)*V(5256) - ARP(8723) = V(5134) - ARP(8724) = V(3552) - ARP(8725) = V(3552)*V(5250) - ARP(8726) = V(3552)*V(5250) - ARP(8727) = V(4945)*V(5250) - ARP(8728) = V(4945)*V(5250) - ARP(8729) = V(4945)*V(5250) - ARP(8730) = V(4945)*V(5250) - ARP(8731) = V(4945)*V(5250) - ARP(8732) = V(2162) - ARP(8733) = V(458)*V(5250) - ARP(8734) = V(4556)*V(5251) - ARP(8735) = V(4556)*V(5252) - ARP(8736) = V(4556)*V(5253) - ARP(8737) = V(4556)*V(5254) - ARP(8738) = V(4556) - ARP(8739) = V(2236) - ARP(8740) = V(2236)*V(5250) - ARP(8741) = V(4256) - ARP(8742) = V(4256)*V(5250) - ARP(8743) = V(3080) - ARP(8744) = V(70)*V(5250) - ARP(8745) = V(2402)*V(5250) - ARP(8746) = V(2402) - ARP(8747) = V(2576)*V(5250) - ARP(8748) = V(2576) - ARP(8749) = V(114)*V(5250) - ARP(8750) = V(4939) - ARP(8751) = V(4939)*V(5256) - ARP(8752) = V(4939)*V(5250) - ARP(8753) = V(5091)*V(5255) - ARP(8754) = V(5091)*V(5252) - ARP(8755) = V(5091)*V(5252) - ARP(8756) = V(5091)*V(5256) - ARP(8757) = V(5091) - ARP(8758) = V(5091) - ARP(8759) = V(5091) - ARP(8760) = V(5091) - ARP(8761) = V(2156)*V(5250) - ARP(8762) = V(2156)*V(5250) - ARP(8763) = V(2156) - ARP(8764) = V(2461)*V(5250) - ARP(8765) = V(2461) - ARP(8766) = V(3344) - ARP(8767) = V(3344) - ARP(8768) = V(319)*V(5250) - ARP(8769) = V(3626)*V(5250) - ARP(8770) = V(2187)*V(5250) - ARP(8771) = V(2187)*V(5250) - ARP(8772) = V(2187) - ARP(8773) = V(2375)*V(5250) - ARP(8774) = V(2375) - ARP(8775) = V(1743) - ARP(8776) = V(4231)*V(5256) - ARP(8777) = V(4231)*V(5250) - ARP(8778) = V(4231) - ARP(8779) = V(2716)*V(5250) - ARP(8780) = V(2260)*V(5250) - ARP(8781) = V(2260)*V(5250) - ARP(8782) = V(2260) - ARP(8783) = V(51) - ARP(8784) = V(3510)*V(5256) - ARP(8785) = V(3510)*V(5250) - ARP(8786) = V(3510) - ARP(8787) = V(1870)*V(5250) - ARP(8788) = V(2753)*V(5250) - ARP(8789) = V(2753)*V(5250) - ARP(8790) = V(2753) - ARP(8791) = V(1728)*V(5250) - ARP(8792) = V(2672)*V(5250) - ARP(8793) = V(2672) - ARP(8794) = V(1553) - ARP(8795) = V(208)*V(5250) - ARP(8796) = V(4612)*V(5255) - ARP(8797) = V(4612)*V(5255) - ARP(8798) = V(4612)*V(5252) - ARP(8799) = V(4612)*V(5252) - ARP(8800) = V(4612)*V(5256) - ARP(8801) = V(4612) - ARP(8802) = V(4612) - ARP(8803) = V(4612) - ARP(8804) = V(1449)*V(5250) - ARP(8805) = V(1449) - ARP(8806) = V(1864)*V(5250) - ARP(8807) = V(1864) - ARP(8808) = V(1865) - ARP(8809) = V(471)*V(5250) - ARP(8810) = V(1869)*V(5250) - ARP(8811) = V(1869) - ARP(8812) = V(2954) - ARP(8813) = V(2405)*V(5250) - ARP(8814) = V(2405) - ARP(8815) = V(321)*V(5250) - ARP(8816) = V(1160)*V(5250) - ARP(8817) = V(1160) - ARP(8818) = V(3405) - ARP(8819) = V(1952)*V(5250) - ARP(8820) = V(1952) - ARP(8821) = V(381)*V(5250) - ARP(8822) = V(309)*V(5250) - ARP(8823) = V(1064)*V(5250) - ARP(8824) = V(1064) - ARP(8825) = V(2757)*V(5250) - ARP(8826) = V(2757) - ARP(8827) = V(3049)*V(5250) - ARP(8828) = V(3049)*V(5250) - ARP(8829) = V(3049) - ARP(8830) = V(665) - ARP(8831) = V(3682)*V(5250) - ARP(8832) = V(3682) - ARP(8833) = V(4239)*V(5256) - ARP(8834) = V(4239)*V(5250) - ARP(8835) = V(4239) - ARP(8836) = V(3708) - ARP(8837) = V(3708)*V(5250) - ARP(8838) = V(3708)*V(5250) - ARP(8839) = V(1825) - ARP(8840) = V(1938)*V(5250) - ARP(8841) = V(1938)*V(5250) - ARP(8842) = V(1938) - ARP(8843) = V(2000) - ARP(8844) = V(1655)*V(5250) - ARP(8845) = V(1655) - ARP(8846) = V(3683)*V(5250) - ARP(8847) = V(3683) - ARP(8848) = V(1099)*V(5250) - ARP(8849) = V(1099) - ARP(8850) = V(2679) - ARP(8851) = V(2424)*V(5250) - ARP(8852) = V(2424) - ARP(8853) = V(2424) - ARP(8854) = V(600) - ARP(8855) = V(1646)*V(5250) - ARP(8856) = V(1646) - ARP(8857) = V(4392) - ARP(8858) = V(4392)*V(5250) - ARP(8859) = V(3287) - ARP(8860) = V(3287) - ARP(8861) = V(3287)*V(5250) - ARP(8862) = V(3287)*V(5250) - ARP(8863) = V(689) - ARP(8864) = V(1658) - ARP(8865) = V(1658)*V(5250) - ARP(8866) = V(2395) - ARP(8867) = V(2395)*V(5250) - ARP(8868) = V(2397) - ARP(8869) = V(2397)*V(5250) - ARP(8870) = V(3031) - ARP(8871) = V(3031) - ARP(8872) = V(3031)*V(5250) - ARP(8873) = V(2883) - ARP(8874) = V(2883)*V(5250) - ARP(8875) = V(1212)*V(5250) - ARP(8876) = V(1212) - ARP(8877) = V(2190) - ARP(8878) = V(2618)*V(5250) - ARP(8879) = V(2618)*V(5250) - ARP(8880) = V(2618) - ARP(8881) = V(2618) - ARP(8882) = V(610) - ARP(8883) = V(2428) - ARP(8884) = V(2428) - ARP(8885) = V(2428)*V(5250) - ARP(8886) = V(682) - ARP(8887) = V(5110) - ARP(8888) = V(5110) - ARP(8889) = V(5110)*V(5250) - ARP(8890) = V(1566) - ARP(8891) = V(1566)*V(5250) - ARP(8892) = V(2247) - ARP(8893) = V(2247)*V(5250) - ARP(8894) = V(2247)*V(5250) - ARP(8895) = V(1856) - ARP(8896) = V(1856)*V(5250) - ARP(8897) = V(2939) - ARP(8898) = V(2939) - ARP(8899) = V(1337) - ARP(8900) = V(1337)*V(5250) - ARP(8901) = V(2123) - ARP(8902) = V(2123)*V(5250) - ARP(8903) = V(2528) - ARP(8904) = V(3616) - ARP(8905) = V(3616)*V(5250) - ARP(8906) = V(586) - ARP(8907) = V(586)*V(5250) - ARP(8908) = V(1406)*V(5250) - ARP(8909) = V(1406) - ARP(8910) = V(3346) - ARP(8911) = V(3346) - ARP(8912) = V(2940)*V(5250) - ARP(8913) = V(2940)*V(5250) - ARP(8914) = V(2940) - ARP(8915) = V(1650) - ARP(8916) = V(3756)*V(5250) - ARP(8917) = V(3756) - ARP(8918) = V(1705)*V(5250) - ARP(8919) = V(1705) - ARP(8920) = V(1495)*V(5250) - ARP(8921) = V(1495) - ARP(8922) = V(2692) - ARP(8923) = V(3473)*V(5250) - ARP(8924) = V(3473)*V(5250) - ARP(8925) = V(3473) - ARP(8926) = V(3473) - ARP(8927) = V(749) - ARP(8928) = V(2932)*V(5250) - ARP(8929) = V(2932) - ARP(8930) = V(1601)*V(5250) - ARP(8931) = V(1601) - ARP(8932) = V(1498)*V(5250) - ARP(8933) = V(1498) - ARP(8934) = V(2560)*V(5250) - ARP(8935) = V(2560) - ARP(8936) = V(1217)*V(5250) - ARP(8937) = V(1217) - ARP(8938) = V(1292)*V(5250) - ARP(8939) = V(1292) - ARP(8940) = V(2881) - ARP(8941) = V(3291) - ARP(8942) = V(3291)*V(5250) - ARP(8943) = V(3291)*V(5250) - ARP(8944) = V(1556) - ARP(8945) = V(608) - ARP(8946) = V(608)*V(5250) - ARP(8947) = V(2255) - ARP(8948) = V(2255)*V(5250) - ARP(8949) = V(363)*V(5250) - ARP(8950) = V(1193) - ARP(8951) = V(1193)*V(5250) - ARP(8952) = V(3239) - ARP(8953) = V(3239)*V(5250) - ARP(8954) = V(1935)*V(5250) - ARP(8955) = V(1935) - ARP(8956) = V(557) - ARP(8957) = V(4996)*V(5256) - ARP(8958) = V(4996)*V(5250) - ARP(8959) = V(4996) - ARP(8960) = V(4996) - ARP(8961) = V(3580)*V(5250) - ARP(8962) = V(3580) - ARP(8963) = V(3055)*V(5250) - ARP(8964) = V(3055)*V(5250) - ARP(8965) = V(3055) - ARP(8966) = V(2186) - ARP(8967) = V(2186) - ARP(8968) = V(1777)*V(5250) - ARP(8969) = V(1777) - ARP(8970) = V(3389)*V(5250) - ARP(8971) = V(3389) - ARP(8972) = V(4124)*V(5255) - ARP(8973) = V(4124)*V(5252) - ARP(8974) = V(4124)*V(5252) - ARP(8975) = V(4124)*V(5256) - ARP(8976) = V(4124) - ARP(8977) = V(4124) - ARP(8978) = V(1043)*V(5250) - ARP(8979) = V(1043) - ARP(8980) = V(42) - ARP(8981) = V(1462)*V(5250) - ARP(8982) = V(1462) - ARP(8983) = V(2951)*V(5250) - ARP(8984) = V(2951) - ARP(8985) = V(3955)*V(5255) - ARP(8986) = V(3955)*V(5252) - ARP(8987) = V(3955)*V(5252) - ARP(8988) = V(3955)*V(5256) - ARP(8989) = V(3955) - ARP(8990) = V(3955) - ARP(8991) = V(4910)*V(5255) - ARP(8992) = V(4910)*V(5255) - ARP(8993) = V(4910)*V(5255) - ARP(8994) = V(4910)*V(5252) - ARP(8995) = V(4910)*V(5253) - ARP(8996) = V(4910)*V(5256) - ARP(8997) = V(4910) - ARP(8998) = V(4910) - ARP(8999) = V(4830)*V(5255) - ARP(9000) = V(4830)*V(5255) - ARP(9001) = V(4830)*V(5255) - ARP(9002) = V(4830)*V(5252) - ARP(9003) = V(4830)*V(5253) - ARP(9004) = V(4830)*V(5256) - ARP(9005) = V(4830) - ARP(9006) = V(4830) - ARP(9007) = V(4898)*V(5255) - ARP(9008) = V(4898)*V(5252) - ARP(9009) = V(4898)*V(5256) - ARP(9010) = V(4898) - ARP(9011) = V(3741)*V(5255) - ARP(9012) = V(3741)*V(5252) - ARP(9013) = V(3741)*V(5256) - ARP(9014) = V(3741) - ARP(9015) = V(3741) - ARP(9016) = V(4288)*V(5255) - ARP(9017) = V(4288)*V(5255) - ARP(9018) = V(4288)*V(5252) - ARP(9019) = V(4288)*V(5253) - ARP(9020) = V(4288)*V(5256) - ARP(9021) = V(4288) - ARP(9022) = V(4257)*V(5255) - ARP(9023) = V(4257)*V(5252) - ARP(9024) = V(4257)*V(5256) - ARP(9025) = V(4257) - ARP(9026) = V(4092)*V(5255) - ARP(9027) = V(4092)*V(5252) - ARP(9028) = V(4092)*V(5252) - ARP(9029) = V(4092)*V(5256) - ARP(9030) = V(4092) - ARP(9031) = V(4092) - ARP(9032) = V(1059)*V(5250) - ARP(9033) = V(1059) - ARP(9034) = V(2462)*V(5250) - ARP(9035) = V(2462) - ARP(9036) = V(2324) - ARP(9037) = V(516)*V(5250) - ARP(9038) = V(1770)*V(5250) - ARP(9039) = V(1770) - ARP(9040) = V(2898)*V(5250) - ARP(9041) = V(2898) - ARP(9042) = V(4173)*V(5255) - ARP(9043) = V(4173)*V(5252) - ARP(9044) = V(4173)*V(5252) - ARP(9045) = V(4173)*V(5256) - ARP(9046) = V(4173) - ARP(9047) = V(4173) - ARP(9048) = V(3720)*V(5255) - ARP(9049) = V(3720)*V(5252) - ARP(9050) = V(3720)*V(5252) - ARP(9051) = V(3720)*V(5256) - ARP(9052) = V(3720) - ARP(9053) = V(3720) - ARP(9054) = V(3720) - ARP(9055) = V(4789)*V(5255) - ARP(9056) = V(4789)*V(5252) - ARP(9057) = V(4789)*V(5252) - ARP(9058) = V(4789)*V(5256) - ARP(9059) = V(4789) - ARP(9060) = V(4789) - ARP(9061) = V(4789) - ARP(9062) = V(1696)*V(5250) - ARP(9063) = V(3981)*V(5255) - ARP(9064) = V(3981)*V(5252) - ARP(9065) = V(3981)*V(5252) - ARP(9066) = V(3981)*V(5256) - ARP(9067) = V(3981) - ARP(9068) = V(3981) - ARP(9069) = V(736)*V(5250) - ARP(9070) = V(736) - ARP(9071) = V(1057)*V(5250) - ARP(9072) = V(1057) - ARP(9073) = V(154) - ARP(9074) = V(735)*V(5250) - ARP(9075) = V(344)*V(5250) - ARP(9076) = V(2146)*V(5250) - ARP(9077) = V(2146) - ARP(9078) = V(3017)*V(5250) - ARP(9079) = V(3017) - ARP(9080) = V(3876)*V(5255) - ARP(9081) = V(3876)*V(5252) - ARP(9082) = V(3876)*V(5256) - ARP(9083) = V(3876) - ARP(9084) = V(3876) - ARP(9085) = V(148) - ARP(9086) = V(5176)*V(5256) - ARP(9087) = V(5176)*V(5250) - ARP(9088) = V(5176)*V(5250) - ARP(9089) = V(5176) - ARP(9090) = V(3850)*V(5255) - ARP(9091) = V(3850)*V(5252) - ARP(9092) = V(3850)*V(5252) - ARP(9093) = V(3850)*V(5256) - ARP(9094) = V(3850) - ARP(9095) = V(3850) - ARP(9096) = V(5083)*V(5256) - ARP(9097) = V(5083)*V(5256) - ARP(9098) = V(5083)*V(5258) - ARP(9099) = V(5083)*V(5258) - ARP(9100) = V(5083)*V(5250) - ARP(9101) = V(5083)*V(5250) - ARP(9102) = V(5083) - ARP(9103) = V(4855)*V(5255) - ARP(9104) = V(4855)*V(5255) - ARP(9105) = V(4855)*V(5255) - ARP(9106) = V(4855)*V(5252) - ARP(9107) = V(4855)*V(5253) - ARP(9108) = V(4855)*V(5256) - ARP(9109) = V(4855) - ARP(9110) = V(4855) - ARP(9111) = V(4953)*V(5255) - ARP(9112) = V(4953)*V(5255) - ARP(9113) = V(4953)*V(5255) - ARP(9114) = V(4953)*V(5252) - ARP(9115) = V(4953)*V(5253) - ARP(9116) = V(4953)*V(5256) - ARP(9117) = V(4953) - ARP(9118) = V(4953) - ARP(9119) = V(4567)*V(5255) - ARP(9120) = V(4567)*V(5252) - ARP(9121) = V(4567)*V(5256) - ARP(9122) = V(4567) - ARP(9123) = V(4567) - ARP(9124) = V(4567) - ARP(9125) = V(4891)*V(5255) - ARP(9126) = V(4891)*V(5255) - ARP(9127) = V(4891)*V(5252) - ARP(9128) = V(4891)*V(5253) - ARP(9129) = V(4891)*V(5256) - ARP(9130) = V(4891) - ARP(9131) = V(3907)*V(5255) - ARP(9132) = V(3907)*V(5252) - ARP(9133) = V(3907)*V(5256) - ARP(9134) = V(3907) - ARP(9135) = V(4781)*V(5255) - ARP(9136) = V(4781)*V(5252) - ARP(9137) = V(4781)*V(5256) - ARP(9138) = V(4781) - ARP(9139) = V(985)*V(5250) - ARP(9140) = V(985) - ARP(9141) = V(2593)*V(5250) - ARP(9142) = V(2593) - ARP(9143) = V(3969)*V(5255) - ARP(9144) = V(3969)*V(5252) - ARP(9145) = V(3969)*V(5256) - ARP(9146) = V(3969) - ARP(9147) = V(3969) - ARP(9148) = V(224) - ARP(9149) = V(224) - ARP(9150) = V(612) - ARP(9151) = V(612) - ARP(9152) = V(3872)*V(5255) - ARP(9153) = V(3872)*V(5252) - ARP(9154) = V(3872)*V(5252) - ARP(9155) = V(3872)*V(5256) - ARP(9156) = V(3872) - ARP(9157) = V(3872) - ARP(9158) = V(3927)*V(5255) - ARP(9159) = V(3927)*V(5252) - ARP(9160) = V(3927)*V(5252) - ARP(9161) = V(3927)*V(5256) - ARP(9162) = V(3927) - ARP(9163) = V(3927) - ARP(9164) = V(3927) - ARP(9165) = V(1251)*V(5250) - ARP(9166) = V(1251) - ARP(9167) = V(2587)*V(5250) - ARP(9168) = V(2587) - ARP(9169) = V(885)*V(5250) - ARP(9170) = V(885) - ARP(9171) = V(3074) - ARP(9172) = V(621)*V(5250) - ARP(9173) = V(4264)*V(5251) - ARP(9174) = V(4264)*V(5252) - ARP(9175) = V(4264)*V(5253) - ARP(9176) = V(4264)*V(5254) - ARP(9177) = V(4264) - ARP(9178) = V(4762)*V(5255) - ARP(9179) = V(4762)*V(5252) - ARP(9180) = V(4762)*V(5256) - ARP(9181) = V(4762) - ARP(9182) = V(4762) - ARP(9183) = V(4762) - ARP(9184) = V(4921)*V(5255) - ARP(9185) = V(4921)*V(5255) - ARP(9186) = V(4921)*V(5255) - ARP(9187) = V(4921)*V(5252) - ARP(9188) = V(4921)*V(5253) - ARP(9189) = V(4921)*V(5256) - ARP(9190) = V(4921) - ARP(9191) = V(4921) - ARP(9192) = V(5028)*V(5255) - ARP(9193) = V(5028)*V(5252) - ARP(9194) = V(5028)*V(5256) - ARP(9195) = V(5028) - ARP(9196) = V(5028) - ARP(9197) = V(5028) - ARP(9198) = V(4761)*V(5255) - ARP(9199) = V(4761)*V(5252) - ARP(9200) = V(4761)*V(5256) - ARP(9201) = V(4761) - ARP(9202) = V(4761) - ARP(9203) = V(4761) - ARP(9204) = V(4542)*V(5255) - ARP(9205) = V(4542)*V(5252) - ARP(9206) = V(4542)*V(5256) - ARP(9207) = V(4542) - ARP(9208) = V(4542) - ARP(9209) = V(4542) - ARP(9210) = V(4940)*V(5255) - ARP(9211) = V(4940)*V(5252) - ARP(9212) = V(4940)*V(5252) - ARP(9213) = V(4940)*V(5256) - ARP(9214) = V(4940) - ARP(9215) = V(4940) - ARP(9216) = V(4940) - ARP(9217) = V(1314)*V(5250) - ARP(9218) = V(1314) - ARP(9219) = V(1918)*V(5250) - ARP(9220) = V(3039) - ARP(9221) = V(667)*V(5250) - ARP(9222) = V(1993)*V(5250) - ARP(9223) = V(1993) - ARP(9224) = V(2254)*V(5250) - ARP(9225) = V(3037) - ARP(9226) = V(580)*V(5250) - ARP(9227) = V(5039)*V(5255) - ARP(9228) = V(5039)*V(5252) - ARP(9229) = V(5039)*V(5256) - ARP(9230) = V(5039) - ARP(9231) = V(5039) - ARP(9232) = V(5039) - ARP(9233) = V(4526)*V(5251) - ARP(9234) = V(4526)*V(5252) - ARP(9235) = V(4526)*V(5253) - ARP(9236) = V(4526)*V(5254) - ARP(9237) = V(4526) - ARP(9238) = V(1758)*V(5250) - ARP(9239) = V(1758) - ARP(9240) = V(2347)*V(5250) - ARP(9241) = V(2744) - ARP(9242) = V(536)*V(5250) - ARP(9243) = V(5014)*V(5255) - ARP(9244) = V(5014)*V(5255) - ARP(9245) = V(5014)*V(5255) - ARP(9246) = V(5014)*V(5252) - ARP(9247) = V(5014)*V(5253) - ARP(9248) = V(5014)*V(5256) - ARP(9249) = V(5014) - ARP(9250) = V(5014) - ARP(9251) = V(4989)*V(5255) - ARP(9252) = V(4989)*V(5255) - ARP(9253) = V(4989)*V(5255) - ARP(9254) = V(4989)*V(5252) - ARP(9255) = V(4989)*V(5253) - ARP(9256) = V(4989)*V(5256) - ARP(9257) = V(4989) - ARP(9258) = V(4989) - ARP(9259) = V(4757)*V(5251) - ARP(9260) = V(4757)*V(5252) - ARP(9261) = V(4757)*V(5253) - ARP(9262) = V(4757)*V(5254) - ARP(9263) = V(4757) - ARP(9264) = V(5122)*V(5255) - ARP(9265) = V(5122)*V(5252) - ARP(9266) = V(5122)*V(5256) - ARP(9267) = V(5122) - ARP(9268) = V(5122) - ARP(9269) = V(5122) - ARP(9270) = V(2373)*V(5250) - ARP(9271) = V(2373) - ARP(9272) = V(2280)*V(5250) - ARP(9273) = V(2008) - ARP(9274) = V(694)*V(5250) - ARP(9275) = V(3901)*V(5255) - ARP(9276) = V(3901)*V(5252) - ARP(9277) = V(3901)*V(5252) - ARP(9278) = V(3901)*V(5256) - ARP(9279) = V(3901) - ARP(9280) = V(3901) - ARP(9281) = V(3928)*V(5255) - ARP(9282) = V(3928)*V(5252) - ARP(9283) = V(3928)*V(5256) - ARP(9284) = V(3928) - ARP(9285) = V(3928) - ARP(9286) = V(5240)*V(5256) - ARP(9287) = V(5240)*V(5250) - ARP(9288) = V(5240) - ARP(9289) = V(522) - ARP(9290) = V(522) - ARP(9291) = V(3886)*V(5255) - ARP(9292) = V(3886)*V(5252) - ARP(9293) = V(3886)*V(5252) - ARP(9294) = V(3886)*V(5256) - ARP(9295) = V(3886) - ARP(9296) = V(3886) - ARP(9297) = V(4088)*V(5255) - ARP(9298) = V(4088)*V(5252) - ARP(9299) = V(4088)*V(5252) - ARP(9300) = V(4088)*V(5256) - ARP(9301) = V(4088) - ARP(9302) = V(4088) - ARP(9303) = V(4088) - ARP(9304) = V(4745)*V(5255) - ARP(9305) = V(4745)*V(5252) - ARP(9306) = V(4745)*V(5256) - ARP(9307) = V(4745) - ARP(9308) = V(4394)*V(5255) - ARP(9309) = V(4394)*V(5252) - ARP(9310) = V(4394)*V(5252) - ARP(9311) = V(4394)*V(5256) - ARP(9312) = V(4394) - ARP(9313) = V(4394) - ARP(9314) = V(3564) - ARP(9315) = V(3844)*V(5255) - ARP(9316) = V(3844)*V(5252) - ARP(9317) = V(3844)*V(5256) - ARP(9318) = V(3844) - ARP(9319) = V(3844) - ARP(9320) = V(4691)*V(5251) - ARP(9321) = V(4691)*V(5252) - ARP(9322) = V(4691)*V(5253) - ARP(9323) = V(4691)*V(5254) - ARP(9324) = V(4691) - ARP(9325) = V(4691) - ARP(9326) = V(4678)*V(5251) - ARP(9327) = V(4678)*V(5252) - ARP(9328) = V(4678)*V(5253) - ARP(9329) = V(4678)*V(5254) - ARP(9330) = V(4678) - ARP(9331) = V(4678) - ARP(9332) = V(2359) - ARP(9333) = V(2359) - ARP(9334) = V(2359) - ARP(9335) = V(2359) - ARP(9336) = V(1569) - ARP(9337) = V(1569) - ARP(9338) = V(1569) - ARP(9339) = V(3920)*V(5255) - ARP(9340) = V(3920)*V(5252) - ARP(9341) = V(3920)*V(5252) - ARP(9342) = V(3920)*V(5256) - ARP(9343) = V(3920) - ARP(9344) = V(3920) - ARP(9345) = V(3966)*V(5255) - ARP(9346) = V(3966)*V(5252) - ARP(9347) = V(3966)*V(5252) - ARP(9348) = V(3966)*V(5256) - ARP(9349) = V(3966) - ARP(9350) = V(3966) - ARP(9351) = V(3966) - ARP(9352) = V(4243)*V(5255) - ARP(9353) = V(4243)*V(5255) - ARP(9354) = V(4243)*V(5252) - ARP(9355) = V(4243)*V(5253) - ARP(9356) = V(4243)*V(5256) - ARP(9357) = V(4243) - ARP(9358) = V(4260)*V(5255) - ARP(9359) = V(4260)*V(5255) - ARP(9360) = V(4260)*V(5252) - ARP(9361) = V(4260)*V(5253) - ARP(9362) = V(4260)*V(5256) - ARP(9363) = V(4260) - ARP(9364) = V(929)*V(5250) - ARP(9365) = V(929) - ARP(9366) = V(2674)*V(5250) - ARP(9367) = V(2674) - ARP(9368) = V(2009)*V(5250) - ARP(9369) = V(2009)*V(5250) - ARP(9370) = V(2009) - ARP(9371) = V(3415) - ARP(9372) = V(3415) - ARP(9373) = V(4883)*V(5250) - ARP(9374) = V(4883)*V(5250) - ARP(9375) = V(4883) - ARP(9376) = V(865)*V(5250) - ARP(9377) = V(865) - ARP(9378) = V(36) - ARP(9379) = V(1202)*V(5250) - ARP(9380) = V(1202) - ARP(9381) = V(45) - ARP(9382) = V(4962)*V(5255) - ARP(9383) = V(4962)*V(5255) - ARP(9384) = V(4962)*V(5255) - ARP(9385) = V(4962)*V(5252) - ARP(9386) = V(4962)*V(5253) - ARP(9387) = V(4962)*V(5256) - ARP(9388) = V(4962) - ARP(9389) = V(4962) - ARP(9390) = V(4263)*V(5255) - ARP(9391) = V(4263)*V(5252) - ARP(9392) = V(4263)*V(5256) - ARP(9393) = V(4263) - ARP(9394) = V(3672)*V(5250) - ARP(9395) = V(3672) - ARP(9396) = V(3502)*V(5250) - ARP(9397) = V(3502) - ARP(9398) = V(3529)*V(5250) - ARP(9399) = V(3529) - ARP(9400) = V(3387)*V(5250) - ARP(9401) = V(3387) - ARP(9402) = V(3515)*V(5250) - ARP(9403) = V(3515) - ARP(9404) = V(3515) - ARP(9405) = V(3401)*V(5250) - ARP(9406) = V(3401) - ARP(9407) = V(5211) - ARP(9408) = V(5211)*V(5256) - ARP(9409) = V(5211)*V(5250) - ARP(9410) = V(4848)*V(5255) - ARP(9411) = V(4848)*V(5255) - ARP(9412) = V(4848)*V(5255) - ARP(9413) = V(4848)*V(5252) - ARP(9414) = V(4848)*V(5253) - ARP(9415) = V(4848)*V(5256) - ARP(9416) = V(4848) - ARP(9417) = V(4848) - ARP(9418) = V(3915) - ARP(9419) = V(3915)*V(5256) - ARP(9420) = V(3915)*V(5250) - ARP(9421) = V(4412)*V(5255) - ARP(9422) = V(4412)*V(5255) - ARP(9423) = V(4412)*V(5252) - ARP(9424) = V(4412)*V(5253) - ARP(9425) = V(4412)*V(5256) - ARP(9426) = V(4412) - ARP(9427) = V(4735)*V(5255) - ARP(9428) = V(4735)*V(5252) - ARP(9429) = V(4735)*V(5252) - ARP(9430) = V(4735)*V(5256) - ARP(9431) = V(4735) - ARP(9432) = V(4735) - ARP(9433) = V(4735) - ARP(9434) = V(3662) - ARP(9435) = V(3662)*V(5256) - ARP(9436) = V(3662)*V(5250) - ARP(9437) = V(4623)*V(5255) - ARP(9438) = V(4623)*V(5255) - ARP(9439) = V(4623)*V(5255) - ARP(9440) = V(4623)*V(5252) - ARP(9441) = V(4623)*V(5253) - ARP(9442) = V(4623)*V(5256) - ARP(9443) = V(4623) - ARP(9444) = V(4623) - ARP(9445) = V(4561)*V(5255) - ARP(9446) = V(4561)*V(5252) - ARP(9447) = V(4561)*V(5252) - ARP(9448) = V(4561)*V(5256) - ARP(9449) = V(4561) - ARP(9450) = V(4561) - ARP(9451) = V(3792) - ARP(9452) = V(3792)*V(5256) - ARP(9453) = V(3792)*V(5250) - ARP(9454) = V(3792)*V(5250) - ARP(9455) = V(5120)*V(5255) - ARP(9456) = V(5120)*V(5252) - ARP(9457) = V(5120)*V(5252) - ARP(9458) = V(5120)*V(5256) - ARP(9459) = V(5120) - ARP(9460) = V(5120) - ARP(9461) = V(5120) - ARP(9462) = V(4934)*V(5255) - ARP(9463) = V(4934)*V(5255) - ARP(9464) = V(4934)*V(5255) - ARP(9465) = V(4934)*V(5252) - ARP(9466) = V(4934)*V(5253) - ARP(9467) = V(4934)*V(5256) - ARP(9468) = V(4934) - ARP(9469) = V(4934) - ARP(9470) = V(4911)*V(5255) - ARP(9471) = V(4911)*V(5252) - ARP(9472) = V(4911)*V(5256) - ARP(9473) = V(4911) - ARP(9474) = V(4911) - ARP(9475) = V(4911) - ARP(9476) = V(4517)*V(5255) - ARP(9477) = V(4517)*V(5255) - ARP(9478) = V(4517)*V(5252) - ARP(9479) = V(4517)*V(5253) - ARP(9480) = V(4517)*V(5256) - ARP(9481) = V(4517) - ARP(9482) = V(4629)*V(5255) - ARP(9483) = V(4629)*V(5255) - ARP(9484) = V(4629)*V(5255) - ARP(9485) = V(4629)*V(5252) - ARP(9486) = V(4629)*V(5253) - ARP(9487) = V(4629)*V(5256) - ARP(9488) = V(4629) - ARP(9489) = V(4629) - ARP(9490) = V(4128)*V(5255) - ARP(9491) = V(4128)*V(5252) - ARP(9492) = V(4128)*V(5252) - ARP(9493) = V(4128)*V(5256) - ARP(9494) = V(4128) - ARP(9495) = V(4128) - ARP(9496) = V(4128) - ARP(9497) = V(4704)*V(5255) - ARP(9498) = V(4704)*V(5252) - ARP(9499) = V(4704)*V(5252) - ARP(9500) = V(4704)*V(5256) - ARP(9501) = V(4704) - ARP(9502) = V(4704) - ARP(9503) = V(4704) - ARP(9504) = V(3471) - ARP(9505) = V(3471)*V(5256) - ARP(9506) = V(3471)*V(5250) - ARP(9507) = V(4665)*V(5255) - ARP(9508) = V(4665)*V(5255) - ARP(9509) = V(4665)*V(5255) - ARP(9510) = V(4665)*V(5252) - ARP(9511) = V(4665)*V(5253) - ARP(9512) = V(4665)*V(5256) - ARP(9513) = V(4665) - ARP(9514) = V(4665) - ARP(9515) = V(4357)*V(5255) - ARP(9516) = V(4357)*V(5252) - ARP(9517) = V(4357)*V(5252) - ARP(9518) = V(4357)*V(5256) - ARP(9519) = V(4357) - ARP(9520) = V(4357) - ARP(9521) = V(4697)*V(5255) - ARP(9522) = V(4697)*V(5252) - ARP(9523) = V(4697)*V(5256) - ARP(9524) = V(4697) - ARP(9525) = V(4697) - ARP(9526) = V(4697) - ARP(9527) = V(3948)*V(5255) - ARP(9528) = V(3948)*V(5252) - ARP(9529) = V(3948)*V(5256) - ARP(9530) = V(3948) - ARP(9531) = V(3948) - ARP(9532) = V(5090)*V(5255) - ARP(9533) = V(5090)*V(5255) - ARP(9534) = V(5090)*V(5255) - ARP(9535) = V(5090)*V(5252) - ARP(9536) = V(5090)*V(5253) - ARP(9537) = V(5090)*V(5256) - ARP(9538) = V(5090) - ARP(9539) = V(5090) - ARP(9540) = V(4058)*V(5255) - ARP(9541) = V(4058)*V(5252) - ARP(9542) = V(4058)*V(5252) - ARP(9543) = V(4058)*V(5256) - ARP(9544) = V(4058) - ARP(9545) = V(4058) - ARP(9546) = V(4058) - ARP(9547) = V(4500)*V(5255) - ARP(9548) = V(4500)*V(5255) - ARP(9549) = V(4500)*V(5255) - ARP(9550) = V(4500)*V(5252) - ARP(9551) = V(4500)*V(5253) - ARP(9552) = V(4500)*V(5256) - ARP(9553) = V(4500) - ARP(9554) = V(4500) - ARP(9555) = V(4523)*V(5255) - ARP(9556) = V(4523)*V(5255) - ARP(9557) = V(4523)*V(5255) - ARP(9558) = V(4523)*V(5252) - ARP(9559) = V(4523)*V(5253) - ARP(9560) = V(4523)*V(5256) - ARP(9561) = V(4523) - ARP(9562) = V(4523) - ARP(9563) = V(3777) - ARP(9564) = V(3777)*V(5250) - ARP(9565) = V(3777)*V(5250) - ARP(9566) = V(3906) - ARP(9567) = V(3906) - ARP(9568) = V(3906)*V(5250) - ARP(9569) = V(3906)*V(5250) - ARP(9570) = V(3912)*V(5255) - ARP(9571) = V(3912)*V(5252) - ARP(9572) = V(3912)*V(5256) - ARP(9573) = V(3912) - ARP(9574) = V(3941)*V(5255) - ARP(9575) = V(3941)*V(5252) - ARP(9576) = V(3941)*V(5256) - ARP(9577) = V(3941) - ARP(9578) = V(4903)*V(5255) - ARP(9579) = V(4903)*V(5252) - ARP(9580) = V(4903)*V(5252) - ARP(9581) = V(4903)*V(5256) - ARP(9582) = V(4903) - ARP(9583) = V(4903) - ARP(9584) = V(4903) - ARP(9585) = V(4967)*V(5255) - ARP(9586) = V(4967)*V(5252) - ARP(9587) = V(4967)*V(5256) - ARP(9588) = V(4967) - ARP(9589) = V(4967) - ARP(9590) = V(4967) - ARP(9591) = V(4800) - ARP(9592) = V(4800)*V(5250) - ARP(9593) = V(4800)*V(5250) - ARP(9594) = V(3298) - ARP(9595) = V(3298) - ARP(9596) = V(3298)*V(5250) - ARP(9597) = V(3298)*V(5250) - ARP(9598) = V(3871)*V(5255) - ARP(9599) = V(3871)*V(5252) - ARP(9600) = V(3871)*V(5256) - ARP(9601) = V(3871) - ARP(9602) = V(4251)*V(5255) - ARP(9603) = V(4251)*V(5252) - ARP(9604) = V(4251)*V(5252) - ARP(9605) = V(4251)*V(5256) - ARP(9606) = V(4251) - ARP(9607) = V(4251) - ARP(9608) = V(4251) - ARP(9609) = V(5088)*V(5255) - ARP(9610) = V(5088)*V(5255) - ARP(9611) = V(5088)*V(5255) - ARP(9612) = V(5088)*V(5252) - ARP(9613) = V(5088)*V(5253) - ARP(9614) = V(5088)*V(5256) - ARP(9615) = V(5088) - ARP(9616) = V(5088) - ARP(9617) = V(4716)*V(5255) - ARP(9618) = V(4716)*V(5252) - ARP(9619) = V(4716)*V(5252) - ARP(9620) = V(4716)*V(5256) - ARP(9621) = V(4716) - ARP(9622) = V(4716) - ARP(9623) = V(4716) - ARP(9624) = V(602) - ARP(9625) = V(602)*V(5250) - ARP(9626) = V(3977)*V(5255) - ARP(9627) = V(3977)*V(5252) - ARP(9628) = V(3977)*V(5256) - ARP(9629) = V(3977) - ARP(9630) = V(4713)*V(5255) - ARP(9631) = V(4713)*V(5252) - ARP(9632) = V(4713)*V(5252) - ARP(9633) = V(4713)*V(5256) - ARP(9634) = V(4713) - ARP(9635) = V(4713) - ARP(9636) = V(4713) - ARP(9637) = V(803) - ARP(9638) = V(803)*V(5250) - ARP(9639) = V(3881)*V(5255) - ARP(9640) = V(3881)*V(5252) - ARP(9641) = V(3881)*V(5256) - ARP(9642) = V(3881) - ARP(9643) = V(4270)*V(5255) - ARP(9644) = V(4270)*V(5252) - ARP(9645) = V(4270)*V(5256) - ARP(9646) = V(4270) - ARP(9647) = V(4712)*V(5255) - ARP(9648) = V(4712)*V(5252) - ARP(9649) = V(4712)*V(5252) - ARP(9650) = V(4712)*V(5256) - ARP(9651) = V(4712) - ARP(9652) = V(4712) - ARP(9653) = V(4712) - ARP(9654) = V(769) - ARP(9655) = V(769)*V(5250) - ARP(9656) = V(3919)*V(5255) - ARP(9657) = V(3919)*V(5252) - ARP(9658) = V(3919)*V(5256) - ARP(9659) = V(3919) - ARP(9660) = V(4254)*V(5255) - ARP(9661) = V(4254)*V(5252) - ARP(9662) = V(4254)*V(5256) - ARP(9663) = V(4254) - ARP(9664) = V(4715)*V(5255) - ARP(9665) = V(4715)*V(5252) - ARP(9666) = V(4715)*V(5252) - ARP(9667) = V(4715)*V(5256) - ARP(9668) = V(4715) - ARP(9669) = V(4715) - ARP(9670) = V(4715) - ARP(9671) = V(794) - ARP(9672) = V(794)*V(5250) - ARP(9673) = V(3916)*V(5255) - ARP(9674) = V(3916)*V(5252) - ARP(9675) = V(3916)*V(5256) - ARP(9676) = V(3916) - ARP(9677) = V(4238)*V(5255) - ARP(9678) = V(4238)*V(5252) - ARP(9679) = V(4238)*V(5256) - ARP(9680) = V(4238) - ARP(9681) = V(4709)*V(5255) - ARP(9682) = V(4709)*V(5252) - ARP(9683) = V(4709)*V(5252) - ARP(9684) = V(4709)*V(5256) - ARP(9685) = V(4709) - ARP(9686) = V(4709) - ARP(9687) = V(4709) - ARP(9688) = V(609) - ARP(9689) = V(609)*V(5250) - ARP(9690) = V(3880)*V(5255) - ARP(9691) = V(3880)*V(5252) - ARP(9692) = V(3880)*V(5256) - ARP(9693) = V(3880) - ARP(9694) = V(4360)*V(5255) - ARP(9695) = V(4360)*V(5252) - ARP(9696) = V(4360)*V(5252) - ARP(9697) = V(4360)*V(5256) - ARP(9698) = V(4360) - ARP(9699) = V(4360) - ARP(9700) = V(4360) - ARP(9701) = V(6) - ARP(9702) = V(8) - ARP(9703) = V(4284)*V(5255) - ARP(9704) = V(4284)*V(5252) - ARP(9705) = V(4284)*V(5256) - ARP(9706) = V(4284) - ARP(9707) = V(713)*V(5250) - ARP(9708) = V(713) - ARP(9709) = V(1807)*V(5250) - ARP(9710) = V(1807) - ARP(9711) = V(4053)*V(5250) - ARP(9712) = V(4053) - ARP(9713) = V(2803) - ARP(9714) = V(2803) - ARP(9715) = V(2803)*V(5250) - ARP(9716) = V(1127)*V(5250) - ARP(9717) = V(1127) - ARP(9718) = V(3407) - ARP(9719) = V(3407) - ARP(9720) = V(4828)*V(5251) - ARP(9721) = V(4828)*V(5252) - ARP(9722) = V(4828)*V(5253) - ARP(9723) = V(4828)*V(5254) - ARP(9724) = V(4828) - ARP(9725) = V(4828) - ARP(9726) = V(2089)*V(5250) - ARP(9727) = V(2089) - ARP(9728) = V(768) - ARP(9729) = V(1040)*V(5250) - ARP(9730) = V(233)*V(5250) - ARP(9731) = V(2471)*V(5250) - ARP(9732) = V(451)*V(5250) - ARP(9733) = V(451) - ARP(9734) = V(3146)*V(5256) - ARP(9735) = V(3146)*V(5250) - ARP(9736) = V(4067)*V(5255) - ARP(9737) = V(4067)*V(5252) - ARP(9738) = V(4067)*V(5256) - ARP(9739) = V(4067) - ARP(9740) = V(4195)*V(5255) - ARP(9741) = V(4195)*V(5252) - ARP(9742) = V(4195)*V(5256) - ARP(9743) = V(4195) - ARP(9744) = V(4273)*V(5255) - ARP(9745) = V(4273)*V(5252) - ARP(9746) = V(4273)*V(5256) - ARP(9747) = V(4273) - ARP(9748) = V(1125)*V(5250) - ARP(9749) = V(1125) - ARP(9750) = V(4163)*V(5255) - ARP(9751) = V(4163)*V(5252) - ARP(9752) = V(4163)*V(5256) - ARP(9753) = V(4163) - ARP(9754) = V(3740)*V(5255) - ARP(9755) = V(3740)*V(5252) - ARP(9756) = V(3740)*V(5256) - ARP(9757) = V(3740) - ARP(9758) = V(3740) - ARP(9759) = V(3740) - ARP(9760) = V(3685)*V(5255) - ARP(9761) = V(3685)*V(5252) - ARP(9762) = V(3685)*V(5256) - ARP(9763) = V(3685) - ARP(9764) = V(3699)*V(5255) - ARP(9765) = V(3699)*V(5252) - ARP(9766) = V(3699)*V(5256) - ARP(9767) = V(3699) - ARP(9768) = V(3699) - ARP(9769) = V(3699) - ARP(9770) = V(3088)*V(5256) - ARP(9771) = V(3088)*V(5250) - ARP(9772) = V(4022)*V(5255) - ARP(9773) = V(4022)*V(5252) - ARP(9774) = V(4022)*V(5256) - ARP(9775) = V(4022) - ARP(9776) = V(4265)*V(5255) - ARP(9777) = V(4265)*V(5252) - ARP(9778) = V(4265)*V(5256) - ARP(9779) = V(4265) - ARP(9780) = V(4217)*V(5255) - ARP(9781) = V(4217)*V(5252) - ARP(9782) = V(4217)*V(5256) - ARP(9783) = V(4217) - ARP(9784) = V(1429)*V(5250) - ARP(9785) = V(1429) - ARP(9786) = V(4024) - ARP(9787) = V(4024) - ARP(9788) = V(3280)*V(5250) - ARP(9789) = V(3280) - ARP(9790) = V(3280) - ARP(9791) = V(3290)*V(5250) - ARP(9792) = V(3290) - ARP(9793) = V(2592) - ARP(9794) = V(1602)*V(5250) - ARP(9795) = V(1602) - ARP(9796) = V(1837)*V(5250) - ARP(9797) = V(1837)*V(5250) - ARP(9798) = V(1837) - ARP(9799) = V(2752) - ARP(9800) = V(4490)*V(5250) - ARP(9801) = V(4490) - ARP(9802) = V(1734)*V(5250) - ARP(9803) = V(1734) - ARP(9804) = V(2454)*V(5250) - ARP(9805) = V(2454) - ARP(9806) = V(712) - ARP(9807) = V(4929)*V(5255) - ARP(9808) = V(4929)*V(5252) - ARP(9809) = V(4929)*V(5256) - ARP(9810) = V(4929) - ARP(9811) = V(4621)*V(5251) - ARP(9812) = V(4621)*V(5252) - ARP(9813) = V(4621)*V(5253) - ARP(9814) = V(4621)*V(5254) - ARP(9815) = V(4621) - ARP(9816) = V(4621) - ARP(9817) = V(944)*V(5250) - ARP(9818) = V(944) - ARP(9819) = V(1675) - ARP(9820) = V(100)*V(5250) - ARP(9821) = V(3209)*V(5250) - ARP(9822) = V(3209) - ARP(9823) = V(3209) - ARP(9824) = V(4328) - ARP(9825) = V(4328) - ARP(9826) = V(2504)*V(5250) - ARP(9827) = V(2504) - ARP(9828) = V(4741)*V(5251) - ARP(9829) = V(4741)*V(5252) - ARP(9830) = V(4741)*V(5253) - ARP(9831) = V(4741)*V(5254) - ARP(9832) = V(4741) - ARP(9833) = V(2602)*V(5250) - ARP(9834) = V(2602) - ARP(9835) = V(2602) - ARP(9836) = V(2659) - ARP(9837) = V(1681)*V(5250) - ARP(9838) = V(1681) - ARP(9839) = V(2152)*V(5250) - ARP(9840) = V(2152) - ARP(9841) = V(800) - ARP(9842) = V(3214)*V(5250) - ARP(9843) = V(3214)*V(5250) - ARP(9844) = V(3214) - ARP(9845) = V(605) - ARP(9846) = V(2467)*V(5250) - ARP(9847) = V(2467) - ARP(9848) = V(392)*V(5250) - ARP(9849) = V(838)*V(5250) - ARP(9850) = V(838) - ARP(9851) = V(1727) - ARP(9852) = V(73)*V(5250) - ARP(9853) = V(3163)*V(5256) - ARP(9854) = V(3163)*V(5250) - ARP(9855) = V(4006)*V(5255) - ARP(9856) = V(4006)*V(5252) - ARP(9857) = V(4006)*V(5256) - ARP(9858) = V(4006) - ARP(9859) = V(4327)*V(5255) - ARP(9860) = V(4327)*V(5252) - ARP(9861) = V(4327)*V(5256) - ARP(9862) = V(4327) - ARP(9863) = V(3697)*V(5255) - ARP(9864) = V(3697)*V(5252) - ARP(9865) = V(3697)*V(5256) - ARP(9866) = V(3697) - ARP(9867) = V(3697) - ARP(9868) = V(3697) - ARP(9869) = V(4293)*V(5255) - ARP(9870) = V(4293)*V(5252) - ARP(9871) = V(4293)*V(5256) - ARP(9872) = V(4293) - ARP(9873) = V(4291)*V(5255) - ARP(9874) = V(4291)*V(5252) - ARP(9875) = V(4291)*V(5256) - ARP(9876) = V(4291) - ARP(9877) = V(1243)*V(5250) - ARP(9878) = V(1243) - ARP(9879) = V(3196)*V(5250) - ARP(9880) = V(3196) - ARP(9881) = V(3196) - ARP(9882) = V(711) - ARP(9883) = V(2482)*V(5250) - ARP(9884) = V(2482) - ARP(9885) = V(2053)*V(5250) - ARP(9886) = V(2053) - ARP(9887) = V(660) - ARP(9888) = V(2920)*V(5250) - ARP(9889) = V(2920)*V(5250) - ARP(9890) = V(2920) - ARP(9891) = V(710) - ARP(9892) = V(1953)*V(5250) - ARP(9893) = V(1953) - ARP(9894) = V(340)*V(5250) - ARP(9895) = V(1020)*V(5250) - ARP(9896) = V(1020) - ARP(9897) = V(1713) - ARP(9898) = V(41)*V(5250) - ARP(9899) = V(1850)*V(5250) - ARP(9900) = V(1850) - ARP(9901) = V(747) - ARP(9902) = V(1854)*V(5250) - ARP(9903) = V(1854) - ARP(9904) = V(1854) - ARP(9905) = V(592) - ARP(9906) = V(1443)*V(5250) - ARP(9907) = V(1443) - ARP(9908) = V(1606) - ARP(9909) = V(58)*V(5250) - ARP(9910) = V(2488)*V(5250) - ARP(9911) = V(3120)*V(5256) - ARP(9912) = V(3120)*V(5250) - ARP(9913) = V(4011)*V(5255) - ARP(9914) = V(4011)*V(5252) - ARP(9915) = V(4011)*V(5256) - ARP(9916) = V(4011) - ARP(9917) = V(3679)*V(5255) - ARP(9918) = V(3679)*V(5252) - ARP(9919) = V(3679)*V(5256) - ARP(9920) = V(3679) - ARP(9921) = V(3714)*V(5255) - ARP(9922) = V(3714)*V(5252) - ARP(9923) = V(3714)*V(5256) - ARP(9924) = V(3714) - ARP(9925) = V(3714) - ARP(9926) = V(4303)*V(5255) - ARP(9927) = V(4303)*V(5252) - ARP(9928) = V(4303)*V(5256) - ARP(9929) = V(4303) - ARP(9930) = V(4200)*V(5255) - ARP(9931) = V(4200)*V(5252) - ARP(9932) = V(4200)*V(5256) - ARP(9933) = V(4200) - ARP(9934) = V(1152)*V(5250) - ARP(9935) = V(1152) - ARP(9936) = V(216)*V(5250) - ARP(9937) = V(3455)*V(5250) - ARP(9938) = V(3455)*V(5250) - ARP(9939) = V(3455) - ARP(9940) = V(3455) - ARP(9941) = V(3094) - ARP(9942) = V(3094) - ARP(9943) = V(1726)*V(5250) - ARP(9944) = V(1726) - ARP(9945) = V(4325)*V(5250) - ARP(9946) = V(4325) - ARP(9947) = V(4325) - ARP(9948) = V(3189)*V(5256) - ARP(9949) = V(3189)*V(5250) - ARP(9950) = V(4039)*V(5255) - ARP(9951) = V(4039)*V(5252) - ARP(9952) = V(4039)*V(5256) - ARP(9953) = V(4039) - ARP(9954) = V(4025)*V(5255) - ARP(9955) = V(4025)*V(5252) - ARP(9956) = V(4025)*V(5256) - ARP(9957) = V(4025) - ARP(9958) = V(3769)*V(5255) - ARP(9959) = V(3769)*V(5252) - ARP(9960) = V(3769)*V(5256) - ARP(9961) = V(3769) - ARP(9962) = V(3769) - ARP(9963) = V(4292)*V(5255) - ARP(9964) = V(4292)*V(5252) - ARP(9965) = V(4292)*V(5256) - ARP(9966) = V(4292) - ARP(9967) = V(4225)*V(5255) - ARP(9968) = V(4225)*V(5252) - ARP(9969) = V(4225)*V(5256) - ARP(9970) = V(4225) - ARP(9971) = V(1421)*V(5250) - ARP(9972) = V(1421) - ARP(9973) = V(3181)*V(5256) - ARP(9974) = V(3181)*V(5250) - ARP(9975) = V(4036)*V(5255) - ARP(9976) = V(4036)*V(5252) - ARP(9977) = V(4036)*V(5256) - ARP(9978) = V(4036) - ARP(9979) = V(4076)*V(5255) - ARP(9980) = V(4076)*V(5252) - ARP(9981) = V(4076)*V(5256) - ARP(9982) = V(4076) - ARP(9983) = V(3675)*V(5255) - ARP(9984) = V(3675)*V(5252) - ARP(9985) = V(3675)*V(5256) - ARP(9986) = V(3675) - ARP(9987) = V(3675) - ARP(9988) = V(3675) - ARP(9989) = V(4246)*V(5255) - ARP(9990) = V(4246)*V(5252) - ARP(9991) = V(4246)*V(5256) - ARP(9992) = V(4246) - ARP(9993) = V(4304)*V(5255) - ARP(9994) = V(4304)*V(5252) - ARP(9995) = V(4304)*V(5256) - ARP(9996) = V(4304) - ARP(9997) = V(1294)*V(5250) - ARP(9998) = V(1294) - ARP(9999) = V(3453)*V(5250) - ARP(10000) = V(3453) - ARP(10001) = V(3453) - ARP(10002) = V(1960) - ARP(10003) = V(4199)*V(5250) - ARP(10004) = V(4199) - ARP(10005) = V(2485)*V(5250) - ARP(10006) = V(2485) - ARP(10007) = V(2485) - ARP(10008) = V(1053)*V(5250) - ARP(10009) = V(1053) - ARP(10010) = V(3396) - ARP(10011) = V(3396) - ARP(10012) = V(1768)*V(5250) - ARP(10013) = V(1768)*V(5250) - ARP(10014) = V(1768) - ARP(10015) = V(1898)*V(5250) - ARP(10016) = V(1898) - ARP(10017) = V(792) - ARP(10018) = V(1133)*V(5250) - ARP(10019) = V(312)*V(5250) - ARP(10020) = V(4966)*V(5255) - ARP(10021) = V(4966)*V(5255) - ARP(10022) = V(4966)*V(5252) - ARP(10023) = V(4966)*V(5253) - ARP(10024) = V(4966)*V(5256) - ARP(10025) = V(4966) - ARP(10026) = V(891)*V(5250) - ARP(10027) = V(891) - ARP(10028) = V(2897) - ARP(10029) = V(4031)*V(5255) - ARP(10030) = V(4031)*V(5252) - ARP(10031) = V(4031)*V(5256) - ARP(10032) = V(4031) - ARP(10033) = V(3187)*V(5256) - ARP(10034) = V(3187)*V(5250) - ARP(10035) = V(3999)*V(5255) - ARP(10036) = V(3999)*V(5252) - ARP(10037) = V(3999)*V(5256) - ARP(10038) = V(3999) - ARP(10039) = V(4381)*V(5255) - ARP(10040) = V(4381)*V(5252) - ARP(10041) = V(4381)*V(5256) - ARP(10042) = V(4381) - ARP(10043) = V(3711)*V(5255) - ARP(10044) = V(3711)*V(5252) - ARP(10045) = V(3711)*V(5256) - ARP(10046) = V(3711) - ARP(10047) = V(3711) - ARP(10048) = V(3711) - ARP(10049) = V(4237)*V(5255) - ARP(10050) = V(4237)*V(5252) - ARP(10051) = V(4237)*V(5256) - ARP(10052) = V(4237) - ARP(10053) = V(4280)*V(5255) - ARP(10054) = V(4280)*V(5252) - ARP(10055) = V(4280)*V(5256) - ARP(10056) = V(4280) - ARP(10057) = V(1539)*V(5250) - ARP(10058) = V(1539) - ARP(10059) = V(1224)*V(5250) - ARP(10060) = V(1224) - ARP(10061) = V(2492) - ARP(10062) = V(4775)*V(5256) - ARP(10063) = V(4775)*V(5250) - ARP(10064) = V(4775) - ARP(10065) = V(4775) - ARP(10066) = V(4775) - ARP(10067) = V(622)*V(5250) - ARP(10068) = V(622) - ARP(10069) = V(1388)*V(5250) - ARP(10070) = V(1388) - ARP(10071) = V(3423) - ARP(10072) = V(3423) - ARP(10073) = V(2025)*V(5250) - ARP(10074) = V(2025)*V(5250) - ARP(10075) = V(2025) - ARP(10076) = V(1861)*V(5250) - ARP(10077) = V(1861) - ARP(10078) = V(620) - ARP(10079) = V(911)*V(5250) - ARP(10080) = V(485)*V(5250) - ARP(10081) = V(4792)*V(5255) - ARP(10082) = V(4792)*V(5255) - ARP(10083) = V(4792)*V(5252) - ARP(10084) = V(4792)*V(5253) - ARP(10085) = V(4792)*V(5256) - ARP(10086) = V(4792) - ARP(10087) = V(1170)*V(5250) - ARP(10088) = V(1170) - ARP(10089) = V(2581) - ARP(10090) = V(1840)*V(5250) - ARP(10091) = V(1840) - ARP(10092) = V(773) - ARP(10093) = V(402)*V(5250) - ARP(10094) = V(3543)*V(5256) - ARP(10095) = V(3543)*V(5250) - ARP(10096) = V(3543) - ARP(10097) = V(3178)*V(5256) - ARP(10098) = V(3178)*V(5250) - ARP(10099) = V(4021)*V(5255) - ARP(10100) = V(4021)*V(5252) - ARP(10101) = V(4021)*V(5256) - ARP(10102) = V(4021) - ARP(10103) = V(3738)*V(5255) - ARP(10104) = V(3738)*V(5252) - ARP(10105) = V(3738)*V(5256) - ARP(10106) = V(3738) - ARP(10107) = V(3983)*V(5255) - ARP(10108) = V(3983)*V(5252) - ARP(10109) = V(3983)*V(5256) - ARP(10110) = V(3983) - ARP(10111) = V(3983) - ARP(10112) = V(3983) - ARP(10113) = V(4307)*V(5255) - ARP(10114) = V(4307)*V(5252) - ARP(10115) = V(4307)*V(5256) - ARP(10116) = V(4307) - ARP(10117) = V(4296)*V(5255) - ARP(10118) = V(4296)*V(5252) - ARP(10119) = V(4296)*V(5256) - ARP(10120) = V(4296) - ARP(10121) = V(822)*V(5250) - ARP(10122) = V(822) - ARP(10123) = V(1088)*V(5250) - ARP(10124) = V(1088) - ARP(10125) = V(2949) - ARP(10126) = V(4815)*V(5256) - ARP(10127) = V(4815)*V(5250) - ARP(10128) = V(4815) - ARP(10129) = V(4815) - ARP(10130) = V(4815) - ARP(10131) = V(659)*V(5250) - ARP(10132) = V(659) - ARP(10133) = V(1123)*V(5250) - ARP(10134) = V(1123) - ARP(10135) = V(3380) - ARP(10136) = V(3380) - ARP(10137) = V(1949)*V(5250) - ARP(10138) = V(1949)*V(5250) - ARP(10139) = V(1949) - ARP(10140) = V(2446)*V(5250) - ARP(10141) = V(2446) - ARP(10142) = V(716) - ARP(10143) = V(1231)*V(5250) - ARP(10144) = V(356)*V(5250) - ARP(10145) = V(4864)*V(5255) - ARP(10146) = V(4864)*V(5255) - ARP(10147) = V(4864)*V(5252) - ARP(10148) = V(4864)*V(5253) - ARP(10149) = V(4864)*V(5256) - ARP(10150) = V(4864) - ARP(10151) = V(974)*V(5250) - ARP(10152) = V(974) - ARP(10153) = V(3028) - ARP(10154) = V(4379) - ARP(10155) = V(4379) - ARP(10156) = V(3191)*V(5256) - ARP(10157) = V(3191)*V(5250) - ARP(10158) = V(4034)*V(5255) - ARP(10159) = V(4034)*V(5252) - ARP(10160) = V(4034)*V(5256) - ARP(10161) = V(4034) - ARP(10162) = V(4212)*V(5255) - ARP(10163) = V(4212)*V(5252) - ARP(10164) = V(4212)*V(5256) - ARP(10165) = V(4212) - ARP(10166) = V(4193)*V(5255) - ARP(10167) = V(4193)*V(5252) - ARP(10168) = V(4193)*V(5256) - ARP(10169) = V(4193) - ARP(10170) = V(1361)*V(5250) - ARP(10171) = V(1361) - ARP(10172) = V(2766)*V(5250) - ARP(10173) = V(2766) - ARP(10174) = V(2766) - ARP(10175) = V(3221)*V(5250) - ARP(10176) = V(3221) - ARP(10177) = V(1345)*V(5250) - ARP(10178) = V(1345) - ARP(10179) = V(2967) - ARP(10180) = V(263)*V(5250) - ARP(10181) = V(263) - ARP(10182) = V(2262)*V(5250) - ARP(10183) = V(2262) - ARP(10184) = V(814) - ARP(10185) = V(1252)*V(5250) - ARP(10186) = V(1252) - ARP(10187) = V(1680) - ARP(10188) = V(46)*V(5250) - ARP(10189) = V(2417)*V(5250) - ARP(10190) = V(2417) - ARP(10191) = V(584) - ARP(10192) = V(928)*V(5250) - ARP(10193) = V(928) - ARP(10194) = V(1710) - ARP(10195) = V(63)*V(5250) - ARP(10196) = V(1129)*V(5250) - ARP(10197) = V(1129) - ARP(10198) = V(1622) - ARP(10199) = V(38)*V(5250) - ARP(10200) = V(264)*V(5250) - ARP(10201) = V(2686)*V(5250) - ARP(10202) = V(2686) - ARP(10203) = V(2686) - ARP(10204) = V(3578) - ARP(10205) = V(3578) - ARP(10206) = V(1578)*V(5250) - ARP(10207) = V(1578) - ARP(10208) = V(3137)*V(5256) - ARP(10209) = V(3137)*V(5250) - ARP(10210) = V(4044)*V(5255) - ARP(10211) = V(4044)*V(5252) - ARP(10212) = V(4044)*V(5256) - ARP(10213) = V(4044) - ARP(10214) = V(4323)*V(5255) - ARP(10215) = V(4323)*V(5252) - ARP(10216) = V(4323)*V(5256) - ARP(10217) = V(4323) - ARP(10218) = V(3771)*V(5255) - ARP(10219) = V(3771)*V(5252) - ARP(10220) = V(3771)*V(5256) - ARP(10221) = V(3771) - ARP(10222) = V(3771) - ARP(10223) = V(4192)*V(5255) - ARP(10224) = V(4192)*V(5252) - ARP(10225) = V(4192)*V(5256) - ARP(10226) = V(4192) - ARP(10227) = V(4317)*V(5255) - ARP(10228) = V(4317)*V(5252) - ARP(10229) = V(4317)*V(5256) - ARP(10230) = V(4317) - ARP(10231) = V(1003)*V(5250) - ARP(10232) = V(1003) - ARP(10233) = V(483)*V(5250) - ARP(10234) = V(4149)*V(5255) - ARP(10235) = V(4149)*V(5252) - ARP(10236) = V(4149)*V(5256) - ARP(10237) = V(4149) - ARP(10238) = V(3143)*V(5256) - ARP(10239) = V(3143)*V(5250) - ARP(10240) = V(4040)*V(5255) - ARP(10241) = V(4040)*V(5252) - ARP(10242) = V(4040)*V(5256) - ARP(10243) = V(4040) - ARP(10244) = V(4153)*V(5255) - ARP(10245) = V(4153)*V(5252) - ARP(10246) = V(4153)*V(5256) - ARP(10247) = V(4153) - ARP(10248) = V(3770)*V(5255) - ARP(10249) = V(3770)*V(5252) - ARP(10250) = V(3770)*V(5256) - ARP(10251) = V(3770) - ARP(10252) = V(3770) - ARP(10253) = V(3770) - ARP(10254) = V(4210)*V(5255) - ARP(10255) = V(4210)*V(5252) - ARP(10256) = V(4210)*V(5256) - ARP(10257) = V(4210) - ARP(10258) = V(4314)*V(5255) - ARP(10259) = V(4314)*V(5252) - ARP(10260) = V(4314)*V(5256) - ARP(10261) = V(4314) - ARP(10262) = V(1017)*V(5250) - ARP(10263) = V(1017) - ARP(10264) = V(3190)*V(5256) - ARP(10265) = V(3190)*V(5250) - ARP(10266) = V(4061)*V(5255) - ARP(10267) = V(4061)*V(5252) - ARP(10268) = V(4061)*V(5256) - ARP(10269) = V(4061) - ARP(10270) = V(3680)*V(5255) - ARP(10271) = V(3680)*V(5252) - ARP(10272) = V(3680)*V(5256) - ARP(10273) = V(3680) - ARP(10274) = V(3782)*V(5255) - ARP(10275) = V(3782)*V(5252) - ARP(10276) = V(3782)*V(5256) - ARP(10277) = V(3782) - ARP(10278) = V(3782) - ARP(10279) = V(4312)*V(5255) - ARP(10280) = V(4312)*V(5252) - ARP(10281) = V(4312)*V(5256) - ARP(10282) = V(4312) - ARP(10283) = V(4252)*V(5255) - ARP(10284) = V(4252)*V(5252) - ARP(10285) = V(4252)*V(5256) - ARP(10286) = V(4252) - ARP(10287) = V(844)*V(5250) - ARP(10288) = V(844) - ARP(10289) = V(1092)*V(5250) - ARP(10290) = V(1092) - ARP(10291) = V(3565) - ARP(10292) = V(3565) - ARP(10293) = V(4534)*V(5250) - ARP(10294) = V(4534) - ARP(10295) = V(4534) - ARP(10296) = V(576)*V(5250) - ARP(10297) = V(576) - ARP(10298) = V(3152)*V(5256) - ARP(10299) = V(3152)*V(5250) - ARP(10300) = V(4072)*V(5255) - ARP(10301) = V(4072)*V(5252) - ARP(10302) = V(4072)*V(5256) - ARP(10303) = V(4072) - ARP(10304) = V(4535)*V(5255) - ARP(10305) = V(4535)*V(5252) - ARP(10306) = V(4535)*V(5256) - ARP(10307) = V(4535) - ARP(10308) = V(3753)*V(5255) - ARP(10309) = V(3753)*V(5252) - ARP(10310) = V(3753)*V(5256) - ARP(10311) = V(3753) - ARP(10312) = V(3753) - ARP(10313) = V(4297)*V(5255) - ARP(10314) = V(4297)*V(5252) - ARP(10315) = V(4297)*V(5256) - ARP(10316) = V(4297) - ARP(10317) = V(4287)*V(5255) - ARP(10318) = V(4287)*V(5252) - ARP(10319) = V(4287)*V(5256) - ARP(10320) = V(4287) - ARP(10321) = V(1450)*V(5250) - ARP(10322) = V(1450) - ARP(10323) = V(3723) - ARP(10324) = V(3723) - ARP(10325) = V(3005)*V(5250) - ARP(10326) = V(3005) - ARP(10327) = V(3005) - ARP(10328) = V(3249)*V(5250) - ARP(10329) = V(3249) - ARP(10330) = V(1021)*V(5250) - ARP(10331) = V(1021) - ARP(10332) = V(2521) - ARP(10333) = V(350)*V(5250) - ARP(10334) = V(350) - ARP(10335) = V(2267)*V(5250) - ARP(10336) = V(2267) - ARP(10337) = V(550) - ARP(10338) = V(2923)*V(5250) - ARP(10339) = V(2923)*V(5250) - ARP(10340) = V(2923) - ARP(10341) = V(641) - ARP(10342) = V(3434)*V(5250) - ARP(10343) = V(3434) - ARP(10344) = V(513)*V(5250) - ARP(10345) = V(1530)*V(5250) - ARP(10346) = V(1530) - ARP(10347) = V(1745) - ARP(10348) = V(39)*V(5250) - ARP(10349) = V(2353)*V(5250) - ARP(10350) = V(2353) - ARP(10351) = V(3461)*V(5253) - ARP(10352) = V(4134)*V(5255) - ARP(10353) = V(4134)*V(5252) - ARP(10354) = V(4134)*V(5256) - ARP(10355) = V(4134) - ARP(10356) = V(3526) - ARP(10357) = V(3526)*V(5256) - ARP(10358) = V(3526)*V(5250) - ARP(10359) = V(4209)*V(5255) - ARP(10360) = V(4209)*V(5255) - ARP(10361) = V(4209)*V(5252) - ARP(10362) = V(4209)*V(5253) - ARP(10363) = V(4209)*V(5256) - ARP(10364) = V(4209) - ARP(10365) = V(494)*V(5250) - ARP(10366) = V(494) - ARP(10367) = V(3350)*V(5250) - ARP(10368) = V(3350) - ARP(10369) = V(3154)*V(5250) - ARP(10370) = V(3154)*V(5250) - ARP(10371) = V(3154) - ARP(10372) = V(1684) - ARP(10373) = V(2335) - ARP(10374) = V(2335)*V(5250) - ARP(10375) = V(4208)*V(5255) - ARP(10376) = V(4208)*V(5255) - ARP(10377) = V(4208)*V(5252) - ARP(10378) = V(4208)*V(5253) - ARP(10379) = V(4208)*V(5256) - ARP(10380) = V(4208) - ARP(10381) = V(3470) - ARP(10382) = V(3470)*V(5256) - ARP(10383) = V(3470)*V(5250) - ARP(10384) = V(3501)*V(5250) - ARP(10385) = V(3501)*V(5250) - ARP(10386) = V(3501) - ARP(10387) = V(3501) - ARP(10388) = V(3240)*V(5250) - ARP(10389) = V(3240) - ARP(10390) = V(2249) - ARP(10391) = V(386) - ARP(10392) = V(386) - ARP(10393) = V(4677)*V(5251) - ARP(10394) = V(4677)*V(5252) - ARP(10395) = V(4677)*V(5253) - ARP(10396) = V(4677)*V(5254) - ARP(10397) = V(4677) - ARP(10398) = V(4677) - ARP(10399) = V(4551)*V(5251) - ARP(10400) = V(4551)*V(5252) - ARP(10401) = V(4551)*V(5253) - ARP(10402) = V(4551)*V(5254) - ARP(10403) = V(4551) - ARP(10404) = V(4294)*V(5250) - ARP(10405) = V(4294) - ARP(10406) = V(131) - ARP(10407) = V(4180)*V(5255) - ARP(10408) = V(4180)*V(5252) - ARP(10409) = V(4180)*V(5256) - ARP(10410) = V(4180) - ARP(10411) = V(2138)*V(5250) - ARP(10412) = V(2616) - ARP(10413) = V(2616)*V(5250) - ARP(10414) = V(3204) - ARP(10415) = V(3204)*V(5250) - ARP(10416) = V(2392)*V(5250) - ARP(10417) = V(2392) - ARP(10418) = V(3443)*V(5250) - ARP(10419) = V(3443) - ARP(10420) = V(3064) - ARP(10421) = V(48)*V(5250) - ARP(10422) = V(21)*V(5250) - ARP(10423) = V(5040)*V(5251) - ARP(10424) = V(5040)*V(5252) - ARP(10425) = V(5040)*V(5253) - ARP(10426) = V(5040)*V(5254) - ARP(10427) = V(5040) - ARP(10428) = V(5040) - ARP(10429) = V(3625)*V(5250) - ARP(10430) = V(3625)*V(5250) - ARP(10431) = V(3625)*V(5250) - ARP(10432) = V(3625) - ARP(10433) = V(4066)*V(5250) - ARP(10434) = V(4066)*V(5250) - ARP(10435) = V(1748) - ARP(10436) = V(3635)*V(5250) - ARP(10437) = V(3635) - ARP(10438) = V(2101)*V(5250) - ARP(10439) = V(2101)*V(5250) - ARP(10440) = V(2590)*V(5250) - ARP(10441) = V(2590)*V(5250) - ARP(10442) = V(2590) - ARP(10443) = V(261) - ARP(10444) = V(3454) - ARP(10445) = V(3454)*V(5256) - ARP(10446) = V(3454)*V(5250) - ARP(10447) = V(3286)*V(5250) - ARP(10448) = V(3286) - ARP(10449) = V(3286) - ARP(10450) = V(3273)*V(5250) - ARP(10451) = V(3273) - ARP(10452) = V(1967) - ARP(10453) = V(67) - ARP(10454) = V(4982)*V(5255) - ARP(10455) = V(4982)*V(5252) - ARP(10456) = V(4982)*V(5256) - ARP(10457) = V(4982) - ARP(10458) = V(3449)*V(5250) - ARP(10459) = V(3449) - ARP(10460) = V(3449) - ARP(10461) = V(1848) - ARP(10462) = V(1242)*V(5250) - ARP(10463) = V(2554) - ARP(10464) = V(2554)*V(5250) - ARP(10465) = V(3197) - ARP(10466) = V(3197)*V(5250) - ARP(10467) = V(3201)*V(5250) - ARP(10468) = V(3201) - ARP(10469) = V(1955) - ARP(10470) = V(3549)*V(5250) - ARP(10471) = V(3549) - ARP(10472) = V(2109) - ARP(10473) = V(2109)*V(5250) - ARP(10474) = V(4378)*V(5250) - ARP(10475) = V(4378)*V(5250) - ARP(10476) = V(4378) - ARP(10477) = V(2662) - ARP(10478) = V(62)*V(5250) - ARP(10479) = V(4247)*V(5251) - ARP(10480) = V(4247)*V(5252) - ARP(10481) = V(4247)*V(5253) - ARP(10482) = V(4247)*V(5254) - ARP(10483) = V(4247) - ARP(10484) = V(3485)*V(5250) - ARP(10485) = V(3485)*V(5250) - ARP(10486) = V(3485) - ARP(10487) = V(3700) - ARP(10488) = V(3700) - ARP(10489) = V(302)*V(5250) - ARP(10490) = V(3550) - ARP(10491) = V(3550) - ARP(10492) = V(3550)*V(5250) - ARP(10493) = V(3550)*V(5250) - ARP(10494) = V(1575) - ARP(10495) = V(1575)*V(5250) - ARP(10496) = V(1981) - ARP(10497) = V(1981)*V(5250) - ARP(10498) = V(3160) - ARP(10499) = V(3160)*V(5250) - ARP(10500) = V(3160)*V(5250) - ARP(10501) = V(1685) - ARP(10502) = V(1685)*V(5250) - ARP(10503) = V(5167)*V(5255) - ARP(10504) = V(5167)*V(5255) - ARP(10505) = V(5167)*V(5255) - ARP(10506) = V(5167)*V(5252) - ARP(10507) = V(5167)*V(5253) - ARP(10508) = V(5167) - ARP(10509) = V(5167) - ARP(10510) = V(3621)*V(5250) - ARP(10511) = V(3621)*V(5250) - ARP(10512) = V(3621)*V(5250) - ARP(10513) = V(3621) - ARP(10514) = V(2354)*V(5250) - ARP(10515) = V(2354) - ARP(10516) = V(2770) - ARP(10517) = V(2230)*V(5250) - ARP(10518) = V(2230) - ARP(10519) = V(226)*V(5250) - ARP(10520) = V(5024)*V(5256) - ARP(10521) = V(5024)*V(5258) - ARP(10522) = V(5024)*V(5258) - ARP(10523) = V(5024)*V(5250) - ARP(10524) = V(5024)*V(5250) - ARP(10525) = V(4613)*V(5255) - ARP(10526) = V(4613)*V(5255) - ARP(10527) = V(4613)*V(5252) - ARP(10528) = V(4613)*V(5253) - ARP(10529) = V(4613)*V(5256) - ARP(10530) = V(4613) - ARP(10531) = V(4614)*V(5255) - ARP(10532) = V(4614)*V(5255) - ARP(10533) = V(4614)*V(5252) - ARP(10534) = V(4614)*V(5252) - ARP(10535) = V(4614)*V(5256) - ARP(10536) = V(4614) - ARP(10537) = V(4614) - ARP(10538) = V(4614) - ARP(10539) = V(4211)*V(5255) - ARP(10540) = V(4211)*V(5252) - ARP(10541) = V(4211)*V(5256) - ARP(10542) = V(4211) - ARP(10543) = V(2976)*V(5250) - ARP(10544) = V(2976)*V(5250) - ARP(10545) = V(2976) - ARP(10546) = V(3128)*V(5250) - ARP(10547) = V(2764)*V(5250) - ARP(10548) = V(2764) - ARP(10549) = V(1597) - ARP(10550) = V(512)*V(5250) - ARP(10551) = V(229)*V(5250) - ARP(10552) = V(5105) - ARP(10553) = V(5105) - ARP(10554) = V(5105)*V(5256) - ARP(10555) = V(5105)*V(5250) - ARP(10556) = V(4106)*V(5255) - ARP(10557) = V(4106)*V(5252) - ARP(10558) = V(4106)*V(5256) - ARP(10559) = V(4106) - ARP(10560) = V(4348)*V(5255) - ARP(10561) = V(4348)*V(5252) - ARP(10562) = V(4348)*V(5252) - ARP(10563) = V(4348)*V(5256) - ARP(10564) = V(4348) - ARP(10565) = V(4348) - ARP(10566) = V(4348) - ARP(10567) = V(77)*V(5250) - ARP(10568) = V(5079)*V(5255) - ARP(10569) = V(5079)*V(5255) - ARP(10570) = V(5079)*V(5255) - ARP(10571) = V(5079)*V(5252) - ARP(10572) = V(5079)*V(5253) - ARP(10573) = V(5079)*V(5256) - ARP(10574) = V(5079) - ARP(10575) = V(5079) - ARP(10576) = V(4926)*V(5255) - ARP(10577) = V(4926)*V(5255) - ARP(10578) = V(4926)*V(5255) - ARP(10579) = V(4926)*V(5252) - ARP(10580) = V(4926)*V(5253) - ARP(10581) = V(4926)*V(5256) - ARP(10582) = V(4926) - ARP(10583) = V(4926) - ARP(10584) = V(4552)*V(5255) - ARP(10585) = V(4552)*V(5252) - ARP(10586) = V(4552)*V(5256) - ARP(10587) = V(4552) - ARP(10588) = V(4768)*V(5255) - ARP(10589) = V(4768)*V(5252) - ARP(10590) = V(4768)*V(5256) - ARP(10591) = V(4768) - ARP(10592) = V(5214)*V(5255) - ARP(10593) = V(5214)*V(5255) - ARP(10594) = V(5214)*V(5255) - ARP(10595) = V(5214)*V(5252) - ARP(10596) = V(5214)*V(5253) - ARP(10597) = V(5214)*V(5256) - ARP(10598) = V(5214) - ARP(10599) = V(5214) - ARP(10600) = V(3954)*V(5255) - ARP(10601) = V(3954)*V(5252) - ARP(10602) = V(3954)*V(5256) - ARP(10603) = V(3954) - ARP(10604) = V(3717)*V(5255) - ARP(10605) = V(3717)*V(5252) - ARP(10606) = V(3717)*V(5256) - ARP(10607) = V(3717) - ARP(10608) = V(931)*V(5250) - ARP(10609) = V(931) - ARP(10610) = V(2892)*V(5250) - ARP(10611) = V(2892) - ARP(10612) = V(450) - ARP(10613) = V(366)*V(5250) - ARP(10614) = V(366) - ARP(10615) = V(3905)*V(5255) - ARP(10616) = V(3905)*V(5252) - ARP(10617) = V(3905)*V(5256) - ARP(10618) = V(3905) - ARP(10619) = V(1353)*V(5250) - ARP(10620) = V(1353) - ARP(10621) = V(2742)*V(5250) - ARP(10622) = V(2742) - ARP(10623) = V(2452) - ARP(10624) = V(354)*V(5250) - ARP(10625) = V(354) - ARP(10626) = V(1608) - ARP(10627) = V(1608) - ARP(10628) = V(1489)*V(5250) - ARP(10629) = V(1489) - ARP(10630) = V(864)*V(5250) - ARP(10631) = V(864) - ARP(10632) = V(3223)*V(5250) - ARP(10633) = V(3223) - ARP(10634) = V(1437)*V(5250) - ARP(10635) = V(1437) - ARP(10636) = V(990)*V(5250) - ARP(10637) = V(990) - ARP(10638) = V(2850)*V(5250) - ARP(10639) = V(2850) - ARP(10640) = V(1383)*V(5250) - ARP(10641) = V(1383) - ARP(10642) = V(146) - ARP(10643) = V(1324)*V(5250) - ARP(10644) = V(1324) - ARP(10645) = V(300) - ARP(10646) = V(454)*V(5250) - ARP(10647) = V(454) - ARP(10648) = V(919)*V(5250) - ARP(10649) = V(919) - ARP(10650) = V(3307)*V(5250) - ARP(10651) = V(3307) - ARP(10652) = V(2143)*V(5250) - ARP(10653) = V(2143) - ARP(10654) = V(138) - ARP(10655) = V(1147)*V(5250) - ARP(10656) = V(1147) - ARP(10657) = V(1311)*V(5250) - ARP(10658) = V(1572) - ARP(10659) = V(24)*V(5250) - ARP(10660) = V(1197)*V(5250) - ARP(10661) = V(1197) - ARP(10662) = V(3081)*V(5250) - ARP(10663) = V(3081) - ARP(10664) = V(407) - ARP(10665) = V(365)*V(5250) - ARP(10666) = V(365) - ARP(10667) = V(562)*V(5250) - ARP(10668) = V(562) - ARP(10669) = V(1284)*V(5250) - ARP(10670) = V(1284) - ARP(10671) = V(201) - ARP(10672) = V(561)*V(5250) - ARP(10673) = V(303)*V(5250) - ARP(10674) = V(1492)*V(5250) - ARP(10675) = V(1492) - ARP(10676) = V(1933)*V(5250) - ARP(10677) = V(1933) - ARP(10678) = V(2722) - ARP(10679) = V(2722) - ARP(10680) = V(3947)*V(5256) - ARP(10681) = V(3947)*V(5250) - ARP(10682) = V(3947) - ARP(10683) = V(427)*V(5250) - ARP(10684) = V(4664)*V(5255) - ARP(10685) = V(4664)*V(5255) - ARP(10686) = V(4664)*V(5255) - ARP(10687) = V(4664)*V(5252) - ARP(10688) = V(4664)*V(5253) - ARP(10689) = V(4664)*V(5256) - ARP(10690) = V(4664) - ARP(10691) = V(4664) - ARP(10692) = V(1266)*V(5250) - ARP(10693) = V(1266) - ARP(10694) = V(2943)*V(5250) - ARP(10695) = V(2943) - ARP(10696) = V(2207) - ARP(10697) = V(79)*V(5250) - ARP(10698) = V(4545)*V(5255) - ARP(10699) = V(4545)*V(5252) - ARP(10700) = V(4545)*V(5252) - ARP(10701) = V(4545)*V(5256) - ARP(10702) = V(4545) - ARP(10703) = V(4545) - ARP(10704) = V(1517)*V(5250) - ARP(10705) = V(1517) - ARP(10706) = V(2962) - ARP(10707) = V(587)*V(5250) - ARP(10708) = V(4987)*V(5255) - ARP(10709) = V(4987)*V(5252) - ARP(10710) = V(4987)*V(5256) - ARP(10711) = V(4987) - ARP(10712) = V(4987) - ARP(10713) = V(4849)*V(5255) - ARP(10714) = V(4849)*V(5255) - ARP(10715) = V(4849)*V(5255) - ARP(10716) = V(4849)*V(5252) - ARP(10717) = V(4849)*V(5253) - ARP(10718) = V(4849)*V(5256) - ARP(10719) = V(4849) - ARP(10720) = V(4849) - ARP(10721) = V(5196)*V(5255) - ARP(10722) = V(5196)*V(5252) - ARP(10723) = V(5196)*V(5252) - ARP(10724) = V(5196)*V(5256) - ARP(10725) = V(5196) - ARP(10726) = V(5196) - ARP(10727) = V(5196) - ARP(10728) = V(1371)*V(5250) - ARP(10729) = V(1371) - ARP(10730) = V(1835)*V(5250) - ARP(10731) = V(2997) - ARP(10732) = V(556)*V(5250) - ARP(10733) = V(3840)*V(5255) - ARP(10734) = V(3840)*V(5252) - ARP(10735) = V(3840)*V(5256) - ARP(10736) = V(3840) - ARP(10737) = V(3840) - ARP(10738) = V(4842)*V(5256) - ARP(10739) = V(4842)*V(5250) - ARP(10740) = V(4842) - ARP(10741) = V(27) - ARP(10742) = V(3985)*V(5255) - ARP(10743) = V(3985)*V(5252) - ARP(10744) = V(3985)*V(5252) - ARP(10745) = V(3985)*V(5256) - ARP(10746) = V(3985) - ARP(10747) = V(3985) - ARP(10748) = V(4197)*V(5255) - ARP(10749) = V(4197)*V(5252) - ARP(10750) = V(4197)*V(5252) - ARP(10751) = V(4197)*V(5256) - ARP(10752) = V(4197) - ARP(10753) = V(4197) - ARP(10754) = V(1087)*V(5250) - ARP(10755) = V(1087) - ARP(10756) = V(1047)*V(5250) - ARP(10757) = V(1047) - ARP(10758) = V(2879)*V(5250) - ARP(10759) = V(2879) - ARP(10760) = V(1605) - ARP(10761) = V(1605) - ARP(10762) = V(457)*V(5250) - ARP(10763) = V(1325)*V(5250) - ARP(10764) = V(1325) - ARP(10765) = V(2958)*V(5250) - ARP(10766) = V(2958) - ARP(10767) = V(2071)*V(5250) - ARP(10768) = V(2071) - ARP(10769) = V(728) - ARP(10770) = V(2273)*V(5250) - ARP(10771) = V(2273) - ARP(10772) = V(219)*V(5250) - ARP(10773) = V(1447)*V(5250) - ARP(10774) = V(1447) - ARP(10775) = V(2947)*V(5250) - ARP(10776) = V(2947) - ARP(10777) = V(1487)*V(5250) - ARP(10778) = V(1487) - ARP(10779) = V(3335) - ARP(10780) = V(1318)*V(5250) - ARP(10781) = V(1318) - ARP(10782) = V(3390) - ARP(10783) = V(3390) - ARP(10784) = V(1990)*V(5250) - ARP(10785) = V(1990) - ARP(10786) = V(649) - ARP(10787) = V(1995)*V(5250) - ARP(10788) = V(4145)*V(5255) - ARP(10789) = V(4145)*V(5252) - ARP(10790) = V(4145)*V(5256) - ARP(10791) = V(4145) - ARP(10792) = V(4145) - ARP(10793) = V(4145) - ARP(10794) = V(4135)*V(5255) - ARP(10795) = V(4135)*V(5252) - ARP(10796) = V(4135)*V(5256) - ARP(10797) = V(4135) - ARP(10798) = V(4135) - ARP(10799) = V(4135) - ARP(10800) = V(4824)*V(5251) - ARP(10801) = V(4824)*V(5252) - ARP(10802) = V(4824)*V(5253) - ARP(10803) = V(4824)*V(5254) - ARP(10804) = V(4824) - ARP(10805) = V(4824) - ARP(10806) = V(2407)*V(5250) - ARP(10807) = V(2407) - ARP(10808) = V(1151)*V(5250) - ARP(10809) = V(549) - ARP(10810) = V(1384)*V(5250) - ARP(10811) = V(1973)*V(5250) - ARP(10812) = V(1973) - ARP(10813) = V(721) - ARP(10814) = V(1706)*V(5250) - ARP(10815) = V(2439)*V(5250) - ARP(10816) = V(2439) - ARP(10817) = V(703) - ARP(10818) = V(1843)*V(5250) - ARP(10819) = V(1843) - ARP(10820) = V(281)*V(5250) - ARP(10821) = V(1182)*V(5250) - ARP(10822) = V(1182) - ARP(10823) = V(2860)*V(5250) - ARP(10824) = V(2860) - ARP(10825) = V(1950)*V(5250) - ARP(10826) = V(1950) - ARP(10827) = V(1950) - ARP(10828) = V(658) - ARP(10829) = V(2119)*V(5250) - ARP(10830) = V(2119) - ARP(10831) = V(1668)*V(5250) - ARP(10832) = V(1668) - ARP(10833) = V(1863)*V(5250) - ARP(10834) = V(1863) - ARP(10835) = V(1863) - ARP(10836) = V(585) - ARP(10837) = V(2315)*V(5250) - ARP(10838) = V(2315) - ARP(10839) = V(1687)*V(5250) - ARP(10840) = V(1687) - ARP(10841) = V(2737)*V(5250) - ARP(10842) = V(2737) - ARP(10843) = V(2737) - ARP(10844) = V(1769) - ARP(10845) = V(1828)*V(5250) - ARP(10846) = V(1828) - ARP(10847) = V(1619)*V(5250) - ARP(10848) = V(1619) - ARP(10849) = V(1523)*V(5250) - ARP(10850) = V(1523) - ARP(10851) = V(2165)*V(5250) - ARP(10852) = V(2165) - ARP(10853) = V(189) - ARP(10854) = V(3242)*V(5250) - ARP(10855) = V(413)*V(5250) - ARP(10856) = V(1373)*V(5250) - ARP(10857) = V(1373) - ARP(10858) = V(726) - ARP(10859) = V(1372)*V(5250) - ARP(10860) = V(440)*V(5250) - ARP(10861) = V(251)*V(5250) - ARP(10862) = V(900)*V(5250) - ARP(10863) = V(900) - ARP(10864) = V(2648)*V(5250) - ARP(10865) = V(2648) - ARP(10866) = V(1624) - ARP(10867) = V(1624) - ARP(10868) = V(496)*V(5250) - ARP(10869) = V(1407)*V(5250) - ARP(10870) = V(1407) - ARP(10871) = V(2685)*V(5250) - ARP(10872) = V(2685) - ARP(10873) = V(1900)*V(5250) - ARP(10874) = V(1900) - ARP(10875) = V(724) - ARP(10876) = V(1913)*V(5250) - ARP(10877) = V(1913) - ARP(10878) = V(371)*V(5250) - ARP(10879) = V(949)*V(5250) - ARP(10880) = V(949) - ARP(10881) = V(2079)*V(5250) - ARP(10882) = V(2079) - ARP(10883) = V(159) - ARP(10884) = V(462)*V(5250) - ARP(10885) = V(1502)*V(5250) - ARP(10886) = V(1502) - ARP(10887) = V(2832) - ARP(10888) = V(692)*V(5250) - ARP(10889) = V(4738)*V(5255) - ARP(10890) = V(4738)*V(5255) - ARP(10891) = V(4738)*V(5255) - ARP(10892) = V(4738)*V(5252) - ARP(10893) = V(4738)*V(5253) - ARP(10894) = V(4738)*V(5256) - ARP(10895) = V(4738) - ARP(10896) = V(4738) - ARP(10897) = V(4043)*V(5255) - ARP(10898) = V(4043)*V(5252) - ARP(10899) = V(4043)*V(5252) - ARP(10900) = V(4043)*V(5256) - ARP(10901) = V(4043) - ARP(10902) = V(4043) - ARP(10903) = V(4043) - ARP(10904) = V(4258)*V(5251) - ARP(10905) = V(4258)*V(5252) - ARP(10906) = V(4258)*V(5253) - ARP(10907) = V(4258)*V(5254) - ARP(10908) = V(4258) - ARP(10909) = V(4176)*V(5255) - ARP(10910) = V(4176)*V(5252) - ARP(10911) = V(4176)*V(5256) - ARP(10912) = V(4176) - ARP(10913) = V(4176) - ARP(10914) = V(4176) - ARP(10915) = V(1183)*V(5250) - ARP(10916) = V(1183) - ARP(10917) = V(2325)*V(5250) - ARP(10918) = V(2746) - ARP(10919) = V(127)*V(5250) - ARP(10920) = V(1286)*V(5250) - ARP(10921) = V(1286) - ARP(10922) = V(1629)*V(5250) - ARP(10923) = V(1629) - ARP(10924) = V(187) - ARP(10925) = V(1628)*V(5250) - ARP(10926) = V(248)*V(5250) - ARP(10927) = V(930)*V(5250) - ARP(10928) = V(930) - ARP(10929) = V(970)*V(5250) - ARP(10930) = V(970) - ARP(10931) = V(2239)*V(5250) - ARP(10932) = V(2239) - ARP(10933) = V(326) - ARP(10934) = V(87)*V(5250) - ARP(10935) = V(1862)*V(5250) - ARP(10936) = V(1862) - ARP(10937) = V(673) - ARP(10938) = V(2288)*V(5250) - ARP(10939) = V(5114)*V(5255) - ARP(10940) = V(5114)*V(5252) - ARP(10941) = V(5114)*V(5252) - ARP(10942) = V(5114)*V(5256) - ARP(10943) = V(5114) - ARP(10944) = V(5114) - ARP(10945) = V(5114) - ARP(10946) = V(2098)*V(5250) - ARP(10947) = V(2098) - ARP(10948) = V(1334)*V(5250) - ARP(10949) = V(730) - ARP(10950) = V(1056)*V(5250) - ARP(10951) = V(2266)*V(5250) - ARP(10952) = V(2266) - ARP(10953) = V(663) - ARP(10954) = V(1738)*V(5250) - ARP(10955) = V(2319) - ARP(10956) = V(2319)*V(5250) - ARP(10957) = V(2678) - ARP(10958) = V(2678)*V(5250) - ARP(10959) = V(2144) - ARP(10960) = V(2144)*V(5250) - ARP(10961) = V(2677) - ARP(10962) = V(2677)*V(5250) - ARP(10963) = V(5182) - ARP(10964) = V(5182)*V(5256) - ARP(10965) = V(5182)*V(5250) - ARP(10966) = V(4957)*V(5255) - ARP(10967) = V(4957)*V(5255) - ARP(10968) = V(4957)*V(5255) - ARP(10969) = V(4957)*V(5252) - ARP(10970) = V(4957)*V(5253) - ARP(10971) = V(4957)*V(5256) - ARP(10972) = V(4957) - ARP(10973) = V(4957) - ARP(10974) = V(4015)*V(5255) - ARP(10975) = V(4015)*V(5252) - ARP(10976) = V(4015)*V(5256) - ARP(10977) = V(4015) - ARP(10978) = V(3992)*V(5255) - ARP(10979) = V(3992)*V(5252) - ARP(10980) = V(3992)*V(5256) - ARP(10981) = V(3992) - ARP(10982) = V(4042)*V(5255) - ARP(10983) = V(4042)*V(5252) - ARP(10984) = V(4042)*V(5256) - ARP(10985) = V(4042) - ARP(10986) = V(258)*V(5250) - ARP(10987) = V(1475) - ARP(10988) = V(1475)*V(5250) - ARP(10989) = V(2786) - ARP(10990) = V(2786)*V(5250) - ARP(10991) = V(909)*V(5250) - ARP(10992) = V(909) - ARP(10993) = V(2865) - ARP(10994) = V(3358)*V(5250) - ARP(10995) = V(3358) - ARP(10996) = V(4795)*V(5255) - ARP(10997) = V(4795)*V(5255) - ARP(10998) = V(4795)*V(5255) - ARP(10999) = V(4795)*V(5252) - ARP(11000) = V(4795)*V(5253) - ARP(11001) = V(4795)*V(5256) - ARP(11002) = V(4795) - ARP(11003) = V(4795) - ARP(11004) = V(5179)*V(5255) - ARP(11005) = V(5179)*V(5255) - ARP(11006) = V(5179)*V(5255) - ARP(11007) = V(5179)*V(5252) - ARP(11008) = V(5179)*V(5253) - ARP(11009) = V(5179)*V(5256) - ARP(11010) = V(5179) - ARP(11011) = V(5179) - ARP(11012) = V(207)*V(5250) - ARP(11013) = V(1042) - ARP(11014) = V(1042)*V(5250) - ARP(11015) = V(2884) - ARP(11016) = V(2884)*V(5250) - ARP(11017) = V(4662)*V(5255) - ARP(11018) = V(4662)*V(5255) - ARP(11019) = V(4662)*V(5255) - ARP(11020) = V(4662)*V(5252) - ARP(11021) = V(4662)*V(5253) - ARP(11022) = V(4662)*V(5256) - ARP(11023) = V(4662) - ARP(11024) = V(4662) - ARP(11025) = V(1074) - ARP(11026) = V(1074)*V(5250) - ARP(11027) = V(2885) - ARP(11028) = V(2885)*V(5250) - ARP(11029) = V(1204) - ARP(11030) = V(1204)*V(5250) - ARP(11031) = V(2270) - ARP(11032) = V(2270)*V(5250) - ARP(11033) = V(2589) - ARP(11034) = V(590) - ARP(11035) = V(590)*V(5250) - ARP(11036) = V(4866)*V(5255) - ARP(11037) = V(4866)*V(5255) - ARP(11038) = V(4866)*V(5255) - ARP(11039) = V(4866)*V(5252) - ARP(11040) = V(4866)*V(5253) - ARP(11041) = V(4866)*V(5256) - ARP(11042) = V(4866) - ARP(11043) = V(4866) - ARP(11044) = V(376)*V(5250) - ARP(11045) = V(1448) - ARP(11046) = V(1448)*V(5250) - ARP(11047) = V(2843) - ARP(11048) = V(2843)*V(5250) - ARP(11049) = V(2553) - ARP(11050) = V(2553)*V(5250) - ARP(11051) = V(2553)*V(5250) - ARP(11052) = V(2814) - ARP(11053) = V(2814)*V(5250) - ARP(11054) = V(4979)*V(5255) - ARP(11055) = V(4979)*V(5255) - ARP(11056) = V(4979)*V(5255) - ARP(11057) = V(4979)*V(5252) - ARP(11058) = V(4979)*V(5253) - ARP(11059) = V(4979)*V(5256) - ARP(11060) = V(4979) - ARP(11061) = V(4979) - ARP(11062) = V(4546)*V(5255) - ARP(11063) = V(4546)*V(5252) - ARP(11064) = V(4546)*V(5256) - ARP(11065) = V(4546) - ARP(11066) = V(4546) - ARP(11067) = V(1490) - ARP(11068) = V(1490)*V(5250) - ARP(11069) = V(1978) - ARP(11070) = V(1978)*V(5250) - ARP(11071) = V(2646) - ARP(11072) = V(2646) - ARP(11073) = V(289)*V(5250) - ARP(11074) = V(479)*V(5250) - ARP(11075) = V(1090) - ARP(11076) = V(1090)*V(5250) - ARP(11077) = V(2846) - ARP(11078) = V(2846)*V(5250) - ARP(11079) = V(2730) - ARP(11080) = V(2730) - ARP(11081) = V(2730)*V(5250) - ARP(11082) = V(2730)*V(5250) - ARP(11083) = V(674) - ARP(11084) = V(3057) - ARP(11085) = V(3057)*V(5250) - ARP(11086) = V(1659) - ARP(11087) = V(1659)*V(5250) - ARP(11088) = V(1327) - ARP(11089) = V(1327)*V(5250) - ARP(11090) = V(2844) - ARP(11091) = V(2844)*V(5250) - ARP(11092) = V(240)*V(5250) - ARP(11093) = V(845) - ARP(11094) = V(845)*V(5250) - ARP(11095) = V(2848) - ARP(11096) = V(2848)*V(5250) - ARP(11097) = V(1213) - ARP(11098) = V(1213)*V(5250) - ARP(11099) = V(2256) - ARP(11100) = V(2256)*V(5250) - ARP(11101) = V(3013) - ARP(11102) = V(4279) - ARP(11103) = V(4279)*V(5256) - ARP(11104) = V(4279)*V(5250) - ARP(11105) = V(554) - ARP(11106) = V(554)*V(5250) - ARP(11107) = V(1323) - ARP(11108) = V(1323)*V(5250) - ARP(11109) = V(2253) - ARP(11110) = V(2253)*V(5250) - ARP(11111) = V(2982) - ARP(11112) = V(651) - ARP(11113) = V(651)*V(5250) - ARP(11114) = V(3780) - ARP(11115) = V(3780)*V(5250) - ARP(11116) = V(4642)*V(5255) - ARP(11117) = V(4642)*V(5255) - ARP(11118) = V(4642)*V(5255) - ARP(11119) = V(4642)*V(5252) - ARP(11120) = V(4642)*V(5253) - ARP(11121) = V(4642)*V(5256) - ARP(11122) = V(4642) - ARP(11123) = V(4642) - ARP(11124) = V(449)*V(5250) - ARP(11125) = V(1291) - ARP(11126) = V(1291)*V(5250) - ARP(11127) = V(3025) - ARP(11128) = V(3025)*V(5250) - ARP(11129) = V(1499) - ARP(11130) = V(1499)*V(5250) - ARP(11131) = V(2514) - ARP(11132) = V(2514)*V(5250) - ARP(11133) = V(2644) - ARP(11134) = V(284) - ARP(11135) = V(284)*V(5250) - ARP(11136) = V(1191) - ARP(11137) = V(1191)*V(5250) - ARP(11138) = V(1607) - ARP(11139) = V(664) - ARP(11140) = V(664)*V(5250) - ARP(11141) = V(2197) - ARP(11142) = V(2197)*V(5250) - ARP(11143) = V(2426) - ARP(11144) = V(2426) - ARP(11145) = V(2426)*V(5250) - ARP(11146) = V(1677) - ARP(11147) = V(1637) - ARP(11148) = V(1637)*V(5250) - ARP(11149) = V(456)*V(5250) - ARP(11150) = V(1547) - ARP(11151) = V(1547)*V(5250) - ARP(11152) = V(3311) - ARP(11153) = V(3311)*V(5250) - ARP(11154) = V(1907) - ARP(11155) = V(1907)*V(5250) - ARP(11156) = V(1907)*V(5250) - ARP(11157) = V(2419) - ARP(11158) = V(2419)*V(5250) - ARP(11159) = V(1552) - ARP(11160) = V(346)*V(5250) - ARP(11161) = V(4501) - ARP(11162) = V(4501)*V(5256) - ARP(11163) = V(4501)*V(5250) - ARP(11164) = V(329)*V(5250) - ARP(11165) = V(975) - ARP(11166) = V(975)*V(5250) - ARP(11167) = V(2669) - ARP(11168) = V(2669)*V(5250) - ARP(11169) = V(519)*V(5250) - ARP(11170) = V(1477) - ARP(11171) = V(1477)*V(5250) - ARP(11172) = V(2778) - ARP(11173) = V(2778)*V(5250) - ARP(11174) = V(4573)*V(5255) - ARP(11175) = V(4573)*V(5252) - ARP(11176) = V(4573)*V(5252) - ARP(11177) = V(4573)*V(5256) - ARP(11178) = V(4573) - ARP(11179) = V(4573) - ARP(11180) = V(4573) - ARP(11181) = V(4566)*V(5255) - ARP(11182) = V(4566)*V(5252) - ARP(11183) = V(4566)*V(5256) - ARP(11184) = V(4566) - ARP(11185) = V(4566) - ARP(11186) = V(4566) - ARP(11187) = V(4584)*V(5255) - ARP(11188) = V(4584)*V(5252) - ARP(11189) = V(4584)*V(5256) - ARP(11190) = V(4584) - ARP(11191) = V(4584) - ARP(11192) = V(4584) - ARP(11193) = V(1937) - ARP(11194) = V(1937) - ARP(11195) = V(1937)*V(5250) - ARP(11196) = V(596) - ARP(11197) = V(2016) - ARP(11198) = V(2016)*V(5250) - ARP(11199) = V(534) - ARP(11200) = V(1145) - ARP(11201) = V(1145)*V(5250) - ARP(11202) = V(2282) - ARP(11203) = V(2282)*V(5250) - ARP(11204) = V(2697) - ARP(11205) = V(3126) - ARP(11206) = V(3126)*V(5250) - ARP(11207) = V(758) - ARP(11208) = V(758)*V(5250) - ARP(11209) = V(3528) - ARP(11210) = V(3528) - ARP(11211) = V(3528)*V(5250) - ARP(11212) = V(3528)*V(5250) - ARP(11213) = V(734) - ARP(11214) = V(1826) - ARP(11215) = V(1826)*V(5250) - ARP(11216) = V(1557) - ARP(11217) = V(1557)*V(5250) - ARP(11218) = V(4802)*V(5255) - ARP(11219) = V(4802)*V(5252) - ARP(11220) = V(4802)*V(5252) - ARP(11221) = V(4802)*V(5256) - ARP(11222) = V(4802) - ARP(11223) = V(4802) - ARP(11224) = V(4309)*V(5255) - ARP(11225) = V(4309)*V(5252) - ARP(11226) = V(4309)*V(5256) - ARP(11227) = V(4309) - ARP(11228) = V(4309) - ARP(11229) = V(4811)*V(5255) - ARP(11230) = V(4811)*V(5252) - ARP(11231) = V(4811)*V(5256) - ARP(11232) = V(4811) - ARP(11233) = V(4811) - ARP(11234) = V(4811) - ARP(11235) = V(2095) - ARP(11236) = V(2095)*V(5250) - ARP(11237) = V(571) - ARP(11238) = V(2331) - ARP(11239) = V(2331)*V(5250) - ARP(11240) = V(2331)*V(5250) - ARP(11241) = V(1829) - ARP(11242) = V(1829)*V(5250) - ARP(11243) = V(200) - ARP(11244) = V(306)*V(5250) - ARP(11245) = V(4537) - ARP(11246) = V(4537)*V(5256) - ARP(11247) = V(4537)*V(5250) - ARP(11248) = V(280)*V(5250) - ARP(11249) = V(1196) - ARP(11250) = V(1196)*V(5250) - ARP(11251) = V(2496) - ARP(11252) = V(2496)*V(5250) - ARP(11253) = V(1136) - ARP(11254) = V(1136)*V(5250) - ARP(11255) = V(2185) - ARP(11256) = V(2185)*V(5250) - ARP(11257) = V(3009) - ARP(11258) = V(807) - ARP(11259) = V(807)*V(5250) - ARP(11260) = V(3504) - ARP(11261) = V(3504)*V(5250) - ARP(11262) = V(4369)*V(5255) - ARP(11263) = V(4369)*V(5252) - ARP(11264) = V(4369)*V(5256) - ARP(11265) = V(4369) - ARP(11266) = V(4369) - ARP(11267) = V(4369) - ARP(11268) = V(2316) - ARP(11269) = V(2316)*V(5250) - ARP(11270) = V(539) - ARP(11271) = V(1446) - ARP(11272) = V(1446)*V(5250) - ARP(11273) = V(2124) - ARP(11274) = V(2124)*V(5250) - ARP(11275) = V(2642) - ARP(11276) = V(3522) - ARP(11277) = V(3522)*V(5250) - ARP(11278) = V(616) - ARP(11279) = V(616)*V(5250) - ARP(11280) = V(4349)*V(5255) - ARP(11281) = V(4349)*V(5252) - ARP(11282) = V(4349)*V(5256) - ARP(11283) = V(4349) - ARP(11284) = V(4349) - ARP(11285) = V(4349) - ARP(11286) = V(2027) - ARP(11287) = V(2027)*V(5250) - ARP(11288) = V(791) - ARP(11289) = V(1115) - ARP(11290) = V(1115)*V(5250) - ARP(11291) = V(2760) - ARP(11292) = V(967) - ARP(11293) = V(967)*V(5250) - ARP(11294) = V(2245) - ARP(11295) = V(2245)*V(5250) - ARP(11296) = V(2594) - ARP(11297) = V(3544) - ARP(11298) = V(3544)*V(5250) - ARP(11299) = V(671) - ARP(11300) = V(671)*V(5250) - ARP(11301) = V(4389)*V(5255) - ARP(11302) = V(4389)*V(5252) - ARP(11303) = V(4389)*V(5256) - ARP(11304) = V(4389) - ARP(11305) = V(4389) - ARP(11306) = V(4389) - ARP(11307) = V(2298) - ARP(11308) = V(2298)*V(5250) - ARP(11309) = V(776) - ARP(11310) = V(1122) - ARP(11311) = V(1122)*V(5250) - ARP(11312) = V(2874) - ARP(11313) = V(1526) - ARP(11314) = V(1526)*V(5250) - ARP(11315) = V(2330) - ARP(11316) = V(2330)*V(5250) - ARP(11317) = V(2638) - ARP(11318) = V(3493) - ARP(11319) = V(3493)*V(5250) - ARP(11320) = V(804) - ARP(11321) = V(804)*V(5250) - ARP(11322) = V(4361)*V(5255) - ARP(11323) = V(4361)*V(5252) - ARP(11324) = V(4361)*V(5256) - ARP(11325) = V(4361) - ARP(11326) = V(4361) - ARP(11327) = V(4361) - ARP(11328) = V(2411) - ARP(11329) = V(2411)*V(5250) - ARP(11330) = V(528) - ARP(11331) = V(1398) - ARP(11332) = V(1398)*V(5250) - ARP(11333) = V(2676) - ARP(11334) = V(1543) - ARP(11335) = V(1543)*V(5250) - ARP(11336) = V(2271) - ARP(11337) = V(2271)*V(5250) - ARP(11338) = V(2562) - ARP(11339) = V(3548) - ARP(11340) = V(3548)*V(5250) - ARP(11341) = V(762) - ARP(11342) = V(762)*V(5250) - ARP(11343) = V(4850)*V(5255) - ARP(11344) = V(4850)*V(5255) - ARP(11345) = V(4850)*V(5255) - ARP(11346) = V(4850)*V(5252) - ARP(11347) = V(4850)*V(5253) - ARP(11348) = V(4850)*V(5256) - ARP(11349) = V(4850) - ARP(11350) = V(4850) - ARP(11351) = V(4355)*V(5255) - ARP(11352) = V(4355)*V(5252) - ARP(11353) = V(4355)*V(5256) - ARP(11354) = V(4355) - ARP(11355) = V(4355) - ARP(11356) = V(4355) - ARP(11357) = V(2205) - ARP(11358) = V(2205)*V(5250) - ARP(11359) = V(574) - ARP(11360) = V(1478)*V(5250) - ARP(11361) = V(1478) - ARP(11362) = V(3015)*V(5250) - ARP(11363) = V(3015) - ARP(11364) = V(1998) - ARP(11365) = V(408)*V(5250) - ARP(11366) = V(1947)*V(5250) - ARP(11367) = V(1947) - ARP(11368) = V(777) - ARP(11369) = V(4651)*V(5256) - ARP(11370) = V(4651)*V(5250) - ARP(11371) = V(4651) - ARP(11372) = V(331)*V(5250) - ARP(11373) = V(110)*V(5250) - ARP(11374) = V(5059)*V(5255) - ARP(11375) = V(5059)*V(5252) - ARP(11376) = V(5059)*V(5256) - ARP(11377) = V(5059) - ARP(11378) = V(5059) - ARP(11379) = V(5059) - ARP(11380) = V(4467)*V(5255) - ARP(11381) = V(4467)*V(5252) - ARP(11382) = V(4467)*V(5256) - ARP(11383) = V(4467) - ARP(11384) = V(4271)*V(5255) - ARP(11385) = V(4271)*V(5252) - ARP(11386) = V(4271)*V(5256) - ARP(11387) = V(4271) - ARP(11388) = V(1427)*V(5250) - ARP(11389) = V(1427) - ARP(11390) = V(979)*V(5250) - ARP(11391) = V(979) - ARP(11392) = V(2535) - ARP(11393) = V(1105)*V(5250) - ARP(11394) = V(1105) - ARP(11395) = V(2731) - ARP(11396) = V(1943)*V(5250) - ARP(11397) = V(1943) - ARP(11398) = V(535) - ARP(11399) = V(491)*V(5250) - ARP(11400) = V(491) - ARP(11401) = V(130) - ARP(11402) = V(490)*V(5250) - ARP(11403) = V(212)*V(5250) - ARP(11404) = V(2046)*V(5250) - ARP(11405) = V(2046) - ARP(11406) = V(816) - ARP(11407) = V(518)*V(5250) - ARP(11408) = V(518) - ARP(11409) = V(14) - ARP(11410) = V(455)*V(5250) - ARP(11411) = V(372)*V(5250) - ARP(11412) = V(4458)*V(5255) - ARP(11413) = V(4458)*V(5252) - ARP(11414) = V(4458)*V(5256) - ARP(11415) = V(4458) - ARP(11416) = V(4306)*V(5255) - ARP(11417) = V(4306)*V(5252) - ARP(11418) = V(4306)*V(5256) - ARP(11419) = V(4306) - ARP(11420) = V(1230)*V(5250) - ARP(11421) = V(1230) - ARP(11422) = V(1096)*V(5250) - ARP(11423) = V(1096) - ARP(11424) = V(2536) - ARP(11425) = V(1322)*V(5250) - ARP(11426) = V(1322) - ARP(11427) = V(3001) - ARP(11428) = V(3484)*V(5256) - ARP(11429) = V(3484)*V(5250) - ARP(11430) = V(3484) - ARP(11431) = V(5018)*V(5256) - ARP(11432) = V(5018)*V(5250) - ARP(11433) = V(5018) - ARP(11434) = V(2107)*V(5250) - ARP(11435) = V(2107) - ARP(11436) = V(693) - ARP(11437) = V(56)*V(5250) - ARP(11438) = V(3535)*V(5250) - ARP(11439) = V(3535) - ARP(11440) = V(4188)*V(5255) - ARP(11441) = V(4188)*V(5252) - ARP(11442) = V(4188)*V(5256) - ARP(11443) = V(4188) - ARP(11444) = V(4415)*V(5255) - ARP(11445) = V(4415)*V(5252) - ARP(11446) = V(4415)*V(5256) - ARP(11447) = V(4415) - ARP(11448) = V(4298)*V(5255) - ARP(11449) = V(4298)*V(5252) - ARP(11450) = V(4298)*V(5256) - ARP(11451) = V(4298) - ARP(11452) = V(978)*V(5250) - ARP(11453) = V(978) - ARP(11454) = V(2093)*V(5250) - ARP(11455) = V(2093) - ARP(11456) = V(809) - ARP(11457) = V(398)*V(5250) - ARP(11458) = V(398) - ARP(11459) = V(120) - ARP(11460) = V(397)*V(5250) - ARP(11461) = V(299)*V(5250) - ARP(11462) = V(1104)*V(5250) - ARP(11463) = V(1104) - ARP(11464) = V(2918) - ARP(11465) = V(917)*V(5250) - ARP(11466) = V(917) - ARP(11467) = V(2641) - ARP(11468) = V(542)*V(5250) - ARP(11469) = V(542) - ARP(11470) = V(3914)*V(5256) - ARP(11471) = V(3914)*V(5250) - ARP(11472) = V(3914) - ARP(11473) = V(4742)*V(5255) - ARP(11474) = V(4742)*V(5252) - ARP(11475) = V(4742)*V(5256) - ARP(11476) = V(4742) - ARP(11477) = V(3911)*V(5256) - ARP(11478) = V(3911)*V(5250) - ARP(11479) = V(3911) - ARP(11480) = V(4904)*V(5255) - ARP(11481) = V(4904)*V(5252) - ARP(11482) = V(4904)*V(5256) - ARP(11483) = V(4904) - ARP(11484) = V(4904) - ARP(11485) = V(4498)*V(5255) - ARP(11486) = V(4498)*V(5252) - ARP(11487) = V(4498)*V(5256) - ARP(11488) = V(4498) - ARP(11489) = V(4305)*V(5255) - ARP(11490) = V(4305)*V(5252) - ARP(11491) = V(4305)*V(5256) - ARP(11492) = V(4305) - ARP(11493) = V(892)*V(5250) - ARP(11494) = V(892) - ARP(11495) = V(1979)*V(5250) - ARP(11496) = V(1979) - ARP(11497) = V(753) - ARP(11498) = V(963)*V(5250) - ARP(11499) = V(963) - ARP(11500) = V(82) - ARP(11501) = V(33)*V(5250) - ARP(11502) = V(1255)*V(5250) - ARP(11503) = V(1255) - ARP(11504) = V(2668) - ARP(11505) = V(1379)*V(5250) - ARP(11506) = V(1379) - ARP(11507) = V(2963) - ARP(11508) = V(4101)*V(5255) - ARP(11509) = V(4101)*V(5252) - ARP(11510) = V(4101)*V(5256) - ARP(11511) = V(4101) - ARP(11512) = V(3281) - ARP(11513) = V(4506)*V(5255) - ARP(11514) = V(4506)*V(5252) - ARP(11515) = V(4506)*V(5256) - ARP(11516) = V(4506) - ARP(11517) = V(4204)*V(5255) - ARP(11518) = V(4204)*V(5252) - ARP(11519) = V(4204)*V(5256) - ARP(11520) = V(4204) - ARP(11521) = V(1366)*V(5250) - ARP(11522) = V(1366) - ARP(11523) = V(2091)*V(5250) - ARP(11524) = V(2091) - ARP(11525) = V(555) - ARP(11526) = V(1497)*V(5250) - ARP(11527) = V(1497) - ARP(11528) = V(65) - ARP(11529) = V(103)*V(5250) - ARP(11530) = V(1144)*V(5250) - ARP(11531) = V(1144) - ARP(11532) = V(2682) - ARP(11533) = V(1190)*V(5250) - ARP(11534) = V(1190) - ARP(11535) = V(2741) - ARP(11536) = V(4464)*V(5255) - ARP(11537) = V(4464)*V(5252) - ARP(11538) = V(4464)*V(5256) - ARP(11539) = V(4464) - ARP(11540) = V(4262)*V(5255) - ARP(11541) = V(4262)*V(5252) - ARP(11542) = V(4262)*V(5256) - ARP(11543) = V(4262) - ARP(11544) = V(1221)*V(5250) - ARP(11545) = V(1221) - ARP(11546) = V(2351)*V(5250) - ARP(11547) = V(2351) - ARP(11548) = V(746) - ARP(11549) = V(521)*V(5250) - ARP(11550) = V(521) - ARP(11551) = V(116) - ARP(11552) = V(318)*V(5250) - ARP(11553) = V(273)*V(5250) - ARP(11554) = V(1253)*V(5250) - ARP(11555) = V(1253) - ARP(11556) = V(2588) - ARP(11557) = V(1512)*V(5250) - ARP(11558) = V(1512) - ARP(11559) = V(2604) - ARP(11560) = V(1928)*V(5250) - ARP(11561) = V(1928) - ARP(11562) = V(1928) - ARP(11563) = V(3748)*V(5256) - ARP(11564) = V(3748)*V(5250) - ARP(11565) = V(3748) - ARP(11566) = V(259)*V(5250) - ARP(11567) = V(3237)*V(5250) - ARP(11568) = V(3237) - ARP(11569) = V(3237) - ARP(11570) = V(2696)*V(5250) - ARP(11571) = V(2696) - ARP(11572) = V(1293)*V(5250) - ARP(11573) = V(1293) - ARP(11574) = V(2758) - ARP(11575) = V(4511)*V(5255) - ARP(11576) = V(4511)*V(5252) - ARP(11577) = V(4511)*V(5256) - ARP(11578) = V(4511) - ARP(11579) = V(4205)*V(5255) - ARP(11580) = V(4205)*V(5252) - ARP(11581) = V(4205)*V(5256) - ARP(11582) = V(4205) - ARP(11583) = V(1091)*V(5250) - ARP(11584) = V(1091) - ARP(11585) = V(1830)*V(5250) - ARP(11586) = V(1830) - ARP(11587) = V(744) - ARP(11588) = V(324)*V(5250) - ARP(11589) = V(324) - ARP(11590) = V(97) - ARP(11591) = V(323)*V(5250) - ARP(11592) = V(322)*V(5250) - ARP(11593) = V(1329)*V(5250) - ARP(11594) = V(1329) - ARP(11595) = V(3421) - ARP(11596) = V(860)*V(5250) - ARP(11597) = V(860) - ARP(11598) = V(3579) - ARP(11599) = V(4502)*V(5255) - ARP(11600) = V(4502)*V(5255) - ARP(11601) = V(4502)*V(5252) - ARP(11602) = V(4502)*V(5253) - ARP(11603) = V(4502)*V(5256) - ARP(11604) = V(4502) - ARP(11605) = V(4233)*V(5256) - ARP(11606) = V(4233)*V(5250) - ARP(11607) = V(4233) - ARP(11608) = V(3773)*V(5256) - ARP(11609) = V(3773)*V(5250) - ARP(11610) = V(3773) - ARP(11611) = V(448)*V(5250) - ARP(11612) = V(3467)*V(5250) - ARP(11613) = V(3467) - ARP(11614) = V(3467) - ARP(11615) = V(3012)*V(5250) - ARP(11616) = V(3012) - ARP(11617) = V(4425)*V(5255) - ARP(11618) = V(4425)*V(5252) - ARP(11619) = V(4425)*V(5256) - ARP(11620) = V(4425) - ARP(11621) = V(4194)*V(5255) - ARP(11622) = V(4194)*V(5252) - ARP(11623) = V(4194)*V(5256) - ARP(11624) = V(4194) - ARP(11625) = V(1308)*V(5250) - ARP(11626) = V(1308) - ARP(11627) = V(2294)*V(5250) - ARP(11628) = V(2294) - ARP(11629) = V(743) - ARP(11630) = V(1359)*V(5250) - ARP(11631) = V(1359) - ARP(11632) = V(92) - ARP(11633) = V(510)*V(5250) - ARP(11634) = V(509)*V(5250) - ARP(11635) = V(923)*V(5250) - ARP(11636) = V(923) - ARP(11637) = V(3395) - ARP(11638) = V(878)*V(5250) - ARP(11639) = V(878) - ARP(11640) = V(3597) - ARP(11641) = V(4424)*V(5255) - ARP(11642) = V(4424)*V(5255) - ARP(11643) = V(4424)*V(5252) - ARP(11644) = V(4424)*V(5253) - ARP(11645) = V(4424)*V(5256) - ARP(11646) = V(4424) - ARP(11647) = V(4227)*V(5256) - ARP(11648) = V(4227)*V(5250) - ARP(11649) = V(4227) - ARP(11650) = V(3775)*V(5256) - ARP(11651) = V(3775)*V(5250) - ARP(11652) = V(3775) - ARP(11653) = V(244)*V(5250) - ARP(11654) = V(3463)*V(5250) - ARP(11655) = V(3463) - ARP(11656) = V(3463) - ARP(11657) = V(2969)*V(5250) - ARP(11658) = V(2969) - ARP(11659) = V(1845)*V(5256) - ARP(11660) = V(1845)*V(5250) - ARP(11661) = V(4655)*V(5255) - ARP(11662) = V(4655)*V(5252) - ARP(11663) = V(4655)*V(5256) - ARP(11664) = V(4655) - ARP(11665) = V(4285)*V(5255) - ARP(11666) = V(4285)*V(5252) - ARP(11667) = V(4285)*V(5256) - ARP(11668) = V(4285) - ARP(11669) = V(1061)*V(5250) - ARP(11670) = V(1061) - ARP(11671) = V(1051)*V(5250) - ARP(11672) = V(1051) - ARP(11673) = V(3016) - ARP(11674) = V(1532)*V(5250) - ARP(11675) = V(1532) - ARP(11676) = V(2586) - ARP(11677) = V(3556)*V(5250) - ARP(11678) = V(3556) - ARP(11679) = V(4726)*V(5255) - ARP(11680) = V(4726)*V(5252) - ARP(11681) = V(4726)*V(5256) - ARP(11682) = V(4726) - ARP(11683) = V(4643)*V(5255) - ARP(11684) = V(4643)*V(5252) - ARP(11685) = V(4643)*V(5256) - ARP(11686) = V(4643) - ARP(11687) = V(4276)*V(5255) - ARP(11688) = V(4276)*V(5252) - ARP(11689) = V(4276)*V(5256) - ARP(11690) = V(4276) - ARP(11691) = V(950)*V(5250) - ARP(11692) = V(950) - ARP(11693) = V(2342)*V(5250) - ARP(11694) = V(2342) - ARP(11695) = V(629) - ARP(11696) = V(1062)*V(5250) - ARP(11697) = V(1062) - ARP(11698) = V(57) - ARP(11699) = V(90)*V(5250) - ARP(11700) = V(1459)*V(5250) - ARP(11701) = V(1459) - ARP(11702) = V(2557) - ARP(11703) = V(1187)*V(5250) - ARP(11704) = V(1187) - ARP(11705) = V(2551) - ARP(11706) = V(4182)*V(5255) - ARP(11707) = V(4182)*V(5252) - ARP(11708) = V(4182)*V(5256) - ARP(11709) = V(4182) - ARP(11710) = V(877)*V(5250) - ARP(11711) = V(877) - ARP(11712) = V(2819) - ARP(11713) = V(4463)*V(5255) - ARP(11714) = V(4463)*V(5252) - ARP(11715) = V(4463)*V(5256) - ARP(11716) = V(4463) - ARP(11717) = V(4289)*V(5255) - ARP(11718) = V(4289)*V(5252) - ARP(11719) = V(4289)*V(5256) - ARP(11720) = V(4289) - ARP(11721) = V(1452)*V(5250) - ARP(11722) = V(1452) - ARP(11723) = V(2368)*V(5250) - ARP(11724) = V(2368) - ARP(11725) = V(597) - ARP(11726) = V(459)*V(5250) - ARP(11727) = V(459) - ARP(11728) = V(107) - ARP(11729) = V(373)*V(5250) - ARP(11730) = V(267)*V(5250) - ARP(11731) = V(962)*V(5250) - ARP(11732) = V(962) - ARP(11733) = V(2566) - ARP(11734) = V(1358)*V(5250) - ARP(11735) = V(1358) - ARP(11736) = V(3004) - ARP(11737) = V(4434)*V(5255) - ARP(11738) = V(4434)*V(5252) - ARP(11739) = V(4434)*V(5256) - ARP(11740) = V(4434) - ARP(11741) = V(4245)*V(5255) - ARP(11742) = V(4245)*V(5252) - ARP(11743) = V(4245)*V(5256) - ARP(11744) = V(4245) - ARP(11745) = V(857)*V(5250) - ARP(11746) = V(857) - ARP(11747) = V(2389)*V(5250) - ARP(11748) = V(2389) - ARP(11749) = V(798) - ARP(11750) = V(1435)*V(5250) - ARP(11751) = V(1435) - ARP(11752) = V(78) - ARP(11753) = V(93)*V(5250) - ARP(11754) = V(1399)*V(5250) - ARP(11755) = V(1399) - ARP(11756) = V(2818) - ARP(11757) = V(1524)*V(5250) - ARP(11758) = V(1524) - ARP(11759) = V(2599) - ARP(11760) = V(4455)*V(5255) - ARP(11761) = V(4455)*V(5252) - ARP(11762) = V(4455)*V(5256) - ARP(11763) = V(4455) - ARP(11764) = V(4232)*V(5255) - ARP(11765) = V(4232)*V(5252) - ARP(11766) = V(4232)*V(5256) - ARP(11767) = V(4232) - ARP(11768) = V(1453)*V(5250) - ARP(11769) = V(1453) - ARP(11770) = V(1783)*V(5250) - ARP(11771) = V(1783) - ARP(11772) = V(780) - ARP(11773) = V(1412)*V(5250) - ARP(11774) = V(1412) - ARP(11775) = V(16) - ARP(11776) = V(106)*V(5250) - ARP(11777) = V(1101)*V(5250) - ARP(11778) = V(1101) - ARP(11779) = V(3065) - ARP(11780) = V(1148)*V(5250) - ARP(11781) = V(1148) - ARP(11782) = V(2575) - ARP(11783) = V(3896)*V(5256) - ARP(11784) = V(3896)*V(5250) - ARP(11785) = V(3896) - ARP(11786) = V(4750)*V(5255) - ARP(11787) = V(4750)*V(5252) - ARP(11788) = V(4750)*V(5256) - ARP(11789) = V(4750) - ARP(11790) = V(387)*V(5250) - ARP(11791) = V(997)*V(5250) - ARP(11792) = V(997) - ARP(11793) = V(2905) - ARP(11794) = V(2320) - ARP(11795) = V(2320)*V(5250) - ARP(11796) = V(2498) - ARP(11797) = V(2498)*V(5250) - ARP(11798) = V(4460)*V(5255) - ARP(11799) = V(4460)*V(5255) - ARP(11800) = V(4460)*V(5255) - ARP(11801) = V(4460)*V(5252) - ARP(11802) = V(4460)*V(5253) - ARP(11803) = V(4460)*V(5256) - ARP(11804) = V(4460) - ARP(11805) = V(4460) - ARP(11806) = V(2105)*V(5250) - ARP(11807) = V(2105) - ARP(11808) = V(1184)*V(5250) - ARP(11809) = V(1184) - ARP(11810) = V(4548)*V(5255) - ARP(11811) = V(4548)*V(5255) - ARP(11812) = V(4548)*V(5252) - ARP(11813) = V(4548)*V(5253) - ARP(11814) = V(4548)*V(5256) - ARP(11815) = V(4548) - ARP(11816) = V(3250) - ARP(11817) = V(3250) - ARP(11818) = V(3250)*V(5250) - ARP(11819) = V(4129)*V(5255) - ARP(11820) = V(4129)*V(5252) - ARP(11821) = V(4129)*V(5256) - ARP(11822) = V(4129) - ARP(11823) = V(5047)*V(5251) - ARP(11824) = V(5047)*V(5252) - ARP(11825) = V(5047)*V(5253) - ARP(11826) = V(5047)*V(5254) - ARP(11827) = V(5047) - ARP(11828) = V(5172)*V(5255) - ARP(11829) = V(5172)*V(5255) - ARP(11830) = V(5172)*V(5252) - ARP(11831) = V(5172)*V(5253) - ARP(11832) = V(5172)*V(5256) - ARP(11833) = V(5172) - ARP(11834) = V(3261)*V(5250) - ARP(11835) = V(3261) - ARP(11836) = V(3261) - ARP(11837) = V(2085) - ARP(11838) = V(2382)*V(5250) - ARP(11839) = V(2382) - ARP(11840) = V(1625) - ARP(11841) = V(1625)*V(5250) - ARP(11842) = V(1603) - ARP(11843) = V(1603)*V(5250) - ARP(11844) = V(1991) - ARP(11845) = V(1991)*V(5250) - ARP(11846) = V(2243)*V(5250) - ARP(11847) = V(2243) - ARP(11848) = V(4539)*V(5255) - ARP(11849) = V(4539)*V(5255) - ARP(11850) = V(4539)*V(5252) - ARP(11851) = V(4539)*V(5253) - ARP(11852) = V(4539)*V(5256) - ARP(11853) = V(4539) - ARP(11854) = V(3618)*V(5250) - ARP(11855) = V(3618) - ARP(11856) = V(3618) - ARP(11857) = V(3618) - ARP(11858) = V(1891) - ARP(11859) = V(4229)*V(5255) - ARP(11860) = V(4229)*V(5255) - ARP(11861) = V(4229)*V(5252) - ARP(11862) = V(4229)*V(5253) - ARP(11863) = V(4229)*V(5256) - ARP(11864) = V(4229) - ARP(11865) = V(4228)*V(5255) - ARP(11866) = V(4228)*V(5255) - ARP(11867) = V(4228)*V(5252) - ARP(11868) = V(4228)*V(5253) - ARP(11869) = V(4228)*V(5256) - ARP(11870) = V(4228) - ARP(11871) = V(2491)*V(5250) - ARP(11872) = V(2491)*V(5250) - ARP(11873) = V(2491) - ARP(11874) = V(5075)*V(5255) - ARP(11875) = V(5075)*V(5255) - ARP(11876) = V(5075)*V(5255) - ARP(11877) = V(5075)*V(5252) - ARP(11878) = V(5075)*V(5253) - ARP(11879) = V(5075)*V(5256) - ARP(11880) = V(5075)*V(5256) - ARP(11881) = V(5075) - ARP(11882) = V(5075) - ARP(11883) = V(1651)*V(5250) - ARP(11884) = V(1651) - ARP(11885) = V(4658)*V(5255) - ARP(11886) = V(4658)*V(5255) - ARP(11887) = V(4658)*V(5255) - ARP(11888) = V(4658)*V(5252) - ARP(11889) = V(4658)*V(5253) - ARP(11890) = V(4658)*V(5256) - ARP(11891) = V(4658) - ARP(11892) = V(4658) - ARP(11893) = V(4518)*V(5255) - ARP(11894) = V(4518)*V(5255) - ARP(11895) = V(4518)*V(5255) - ARP(11896) = V(4518)*V(5252) - ARP(11897) = V(4518)*V(5253) - ARP(11898) = V(4518)*V(5256) - ARP(11899) = V(4518) - ARP(11900) = V(4518) - ARP(11901) = V(123)*V(5250) - ARP(11902) = V(4657)*V(5255) - ARP(11903) = V(4657)*V(5255) - ARP(11904) = V(4657)*V(5255) - ARP(11905) = V(4657)*V(5252) - ARP(11906) = V(4657)*V(5253) - ARP(11907) = V(4657)*V(5256) - ARP(11908) = V(4657) - ARP(11909) = V(4657) - ARP(11910) = V(1425)*V(5250) - ARP(11911) = V(2570) - ARP(11912) = V(2570)*V(5250) - ARP(11913) = V(2570)*V(5250) - ARP(11914) = V(2606) - ARP(11915) = V(2606)*V(5250) - ARP(11916) = V(217)*V(5250) - ARP(11917) = V(217)*V(5250) - ARP(11918) = V(4599)*V(5255) - ARP(11919) = V(4599)*V(5252) - ARP(11920) = V(4599)*V(5252) - ARP(11921) = V(4599)*V(5256) - ARP(11922) = V(4599) - ARP(11923) = V(4599) - ARP(11924) = V(3864)*V(5255) - ARP(11925) = V(3864)*V(5252) - ARP(11926) = V(3864)*V(5256) - ARP(11927) = V(3864) - ARP(11928) = V(4816)*V(5255) - ARP(11929) = V(4816)*V(5255) - ARP(11930) = V(4816)*V(5255) - ARP(11931) = V(4816)*V(5252) - ARP(11932) = V(4816)*V(5253) - ARP(11933) = V(4816)*V(5256) - ARP(11934) = V(4816) - ARP(11935) = V(4816) - ARP(11936) = V(701) - ARP(11937) = V(701) - ARP(11938) = V(3837)*V(5255) - ARP(11939) = V(3837)*V(5252) - ARP(11940) = V(3837)*V(5256) - ARP(11941) = V(3837) - ARP(11942) = V(3837) - ARP(11943) = V(3837) - ARP(11944) = V(899)*V(5250) - ARP(11945) = V(899) - ARP(11946) = V(2663)*V(5250) - ARP(11947) = V(2663) - ARP(11948) = V(2810)*V(5250) - ARP(11949) = V(2810)*V(5250) - ARP(11950) = V(2810) - ARP(11951) = V(2664)*V(5250) - ARP(11952) = V(2664) - ARP(11953) = V(1593) - ARP(11954) = V(473)*V(5250) - ARP(11955) = V(908)*V(5250) - ARP(11956) = V(908) - ARP(11957) = V(2827) - ARP(11958) = V(3972)*V(5256) - ARP(11959) = V(3972)*V(5250) - ARP(11960) = V(3972) - ARP(11961) = V(5171)*V(5255) - ARP(11962) = V(5171)*V(5255) - ARP(11963) = V(5171)*V(5252) - ARP(11964) = V(5171)*V(5253) - ARP(11965) = V(5171)*V(5256) - ARP(11966) = V(5171) - ARP(11967) = V(3259) - ARP(11968) = V(3259) - ARP(11969) = V(3259)*V(5250) - ARP(11970) = V(1884) - ARP(11971) = V(1884)*V(5250) - ARP(11972) = V(1884)*V(5250) - ARP(11973) = V(1321)*V(5250) - ARP(11974) = V(2972) - ARP(11975) = V(3861) - ARP(11976) = V(3861)*V(5256) - ARP(11977) = V(3861)*V(5250) - ARP(11978) = V(348)*V(5250) - ARP(11979) = V(4631)*V(5255) - ARP(11980) = V(4631)*V(5255) - ARP(11981) = V(4631)*V(5252) - ARP(11982) = V(4631)*V(5253) - ARP(11983) = V(4631)*V(5256) - ARP(11984) = V(4631) - ARP(11985) = V(434)*V(5250) - ARP(11986) = V(1041) - ARP(11987) = V(1041)*V(5250) - ARP(11988) = V(3275) - ARP(11989) = V(3275)*V(5250) - ARP(11990) = V(2381)*V(5250) - ARP(11991) = V(2381) - ARP(11992) = V(1893)*V(5250) - ARP(11993) = V(1893) - ARP(11994) = V(3408)*V(5250) - ARP(11995) = V(3408) - ARP(11996) = V(1762)*V(5250) - ARP(11997) = V(1762) - ARP(11998) = V(729) - ARP(11999) = V(1901)*V(5250) - ARP(12000) = V(1901) - ARP(12001) = V(786) - ARP(12002) = V(3247) - ARP(12003) = V(3247)*V(5250) - ARP(12004) = V(1319) - ARP(12005) = V(1319)*V(5250) - ARP(12006) = V(2804) - ARP(12007) = V(2804)*V(5250) - ARP(12008) = V(2360)*V(5250) - ARP(12009) = V(2360) - ARP(12010) = V(672) - ARP(12011) = V(992)*V(5250) - ARP(12012) = V(992) - ARP(12013) = V(80) - ARP(12014) = V(4493)*V(5256) - ARP(12015) = V(4493)*V(5250) - ARP(12016) = V(4493) - ARP(12017) = V(4189)*V(5255) - ARP(12018) = V(4189)*V(5252) - ARP(12019) = V(4189)*V(5252) - ARP(12020) = V(4189)*V(5256) - ARP(12021) = V(4189) - ARP(12022) = V(4189) - ARP(12023) = V(2423)*V(5250) - ARP(12024) = V(2423) - ARP(12025) = V(541) - ARP(12026) = V(3668)*V(5255) - ARP(12027) = V(3668)*V(5252) - ARP(12028) = V(3668)*V(5252) - ARP(12029) = V(3668)*V(5256) - ARP(12030) = V(3668) - ARP(12031) = V(3668) - ARP(12032) = V(3668) - ARP(12033) = V(5021)*V(5255) - ARP(12034) = V(5021)*V(5255) - ARP(12035) = V(5021)*V(5255) - ARP(12036) = V(5021)*V(5252) - ARP(12037) = V(5021)*V(5253) - ARP(12038) = V(5021)*V(5256) - ARP(12039) = V(5021) - ARP(12040) = V(5021) - ARP(12041) = V(5086)*V(5256) - ARP(12042) = V(5086)*V(5250) - ARP(12043) = V(5086) - ARP(12044) = V(3761)*V(5255) - ARP(12045) = V(3761)*V(5252) - ARP(12046) = V(3761)*V(5256) - ARP(12047) = V(3761) - ARP(12048) = V(4580)*V(5255) - ARP(12049) = V(4580)*V(5252) - ARP(12050) = V(4580)*V(5252) - ARP(12051) = V(4580)*V(5256) - ARP(12052) = V(4580) - ARP(12053) = V(4580) - ARP(12054) = V(4290)*V(5255) - ARP(12055) = V(4290)*V(5252) - ARP(12056) = V(4290)*V(5256) - ARP(12057) = V(4290) - ARP(12058) = V(5159)*V(5256) - ARP(12059) = V(5159)*V(5250) - ARP(12060) = V(5159)*V(5250) - ARP(12061) = V(5159) - ARP(12062) = V(4119)*V(5255) - ARP(12063) = V(4119)*V(5252) - ARP(12064) = V(4119)*V(5252) - ARP(12065) = V(4119)*V(5256) - ARP(12066) = V(4119) - ARP(12067) = V(4119) - ARP(12068) = V(3710)*V(5255) - ARP(12069) = V(3710)*V(5252) - ARP(12070) = V(3710)*V(5256) - ARP(12071) = V(3710) - ARP(12072) = V(3710) - ARP(12073) = V(3710) - ARP(12074) = V(4166)*V(5255) - ARP(12075) = V(4166)*V(5252) - ARP(12076) = V(4166)*V(5252) - ARP(12077) = V(4166)*V(5256) - ARP(12078) = V(4166) - ARP(12079) = V(4166) - ARP(12080) = V(4484)*V(5255) - ARP(12081) = V(4484)*V(5255) - ARP(12082) = V(4484)*V(5255) - ARP(12083) = V(4484)*V(5252) - ARP(12084) = V(4484)*V(5253) - ARP(12085) = V(4484)*V(5256) - ARP(12086) = V(4484) - ARP(12087) = V(4484) - ARP(12088) = V(4077)*V(5255) - ARP(12089) = V(4077)*V(5252) - ARP(12090) = V(4077)*V(5256) - ARP(12091) = V(4077) - ARP(12092) = V(4077) - ARP(12093) = V(4077) - ARP(12094) = V(1442)*V(5250) - ARP(12095) = V(1442) - ARP(12096) = V(859)*V(5250) - ARP(12097) = V(859) - ARP(12098) = V(4900)*V(5255) - ARP(12099) = V(4900)*V(5252) - ARP(12100) = V(4900)*V(5252) - ARP(12101) = V(4900)*V(5256) - ARP(12102) = V(4900) - ARP(12103) = V(4900) - ARP(12104) = V(4900) - ARP(12105) = V(2636)*V(5250) - ARP(12106) = V(2636) - ARP(12107) = V(3706)*V(5255) - ARP(12108) = V(3706)*V(5252) - ARP(12109) = V(3706)*V(5256) - ARP(12110) = V(3706) - ARP(12111) = V(3706) - ARP(12112) = V(3706) - ARP(12113) = V(1093)*V(5250) - ARP(12114) = V(1093) - ARP(12115) = V(2661)*V(5250) - ARP(12116) = V(2661) - ARP(12117) = V(443) - ARP(12118) = V(442)*V(5250) - ARP(12119) = V(442) - ARP(12120) = V(1351)*V(5250) - ARP(12121) = V(1351) - ARP(12122) = V(1689) - ARP(12123) = V(1676)*V(5250) - ARP(12124) = V(1676) - ARP(12125) = V(1424)*V(5250) - ARP(12126) = V(1424) - ARP(12127) = V(2340)*V(5250) - ARP(12128) = V(2340) - ARP(12129) = V(2533)*V(5250) - ARP(12130) = V(2533) - ARP(12131) = V(1260)*V(5250) - ARP(12132) = V(1260) - ARP(12133) = V(2458)*V(5250) - ARP(12134) = V(2458) - ARP(12135) = V(182) - ARP(12136) = V(2377)*V(5250) - ARP(12137) = V(821)*V(5250) - ARP(12138) = V(821) - ARP(12139) = V(1071)*V(5250) - ARP(12140) = V(1071) - ARP(12141) = V(2495) - ARP(12142) = V(311)*V(5250) - ARP(12143) = V(311) - ARP(12144) = V(5017)*V(5255) - ARP(12145) = V(5017)*V(5255) - ARP(12146) = V(5017)*V(5255) - ARP(12147) = V(5017)*V(5252) - ARP(12148) = V(5017)*V(5253) - ARP(12149) = V(5017)*V(5256) - ARP(12150) = V(5017) - ARP(12151) = V(5017) - ARP(12152) = V(5084)*V(5255) - ARP(12153) = V(5084)*V(5252) - ARP(12154) = V(5084)*V(5252) - ARP(12155) = V(5084)*V(5256) - ARP(12156) = V(5084) - ARP(12157) = V(5084) - ARP(12158) = V(5084) - ARP(12159) = V(4236)*V(5255) - ARP(12160) = V(4236)*V(5252) - ARP(12161) = V(4236)*V(5256) - ARP(12162) = V(4236) - ARP(12163) = V(4236) - ARP(12164) = V(1012)*V(5250) - ARP(12165) = V(1012) - ARP(12166) = V(2378)*V(5250) - ARP(12167) = V(2512) - ARP(12168) = V(317)*V(5250) - ARP(12169) = V(317) - ARP(12170) = V(1237)*V(5250) - ARP(12171) = V(1237) - ARP(12172) = V(2155)*V(5250) - ARP(12173) = V(2155) - ARP(12174) = V(180) - ARP(12175) = V(5095)*V(5256) - ARP(12176) = V(5095)*V(5256) - ARP(12177) = V(5095)*V(5258) - ARP(12178) = V(5095)*V(5258) - ARP(12179) = V(5095)*V(5250) - ARP(12180) = V(5095)*V(5250) - ARP(12181) = V(5095) - ARP(12182) = V(3962)*V(5255) - ARP(12183) = V(3962)*V(5252) - ARP(12184) = V(3962)*V(5252) - ARP(12185) = V(3962)*V(5256) - ARP(12186) = V(3962) - ARP(12187) = V(3962) - ARP(12188) = V(3962) - ARP(12189) = V(4638)*V(5255) - ARP(12190) = V(4638)*V(5255) - ARP(12191) = V(4638)*V(5255) - ARP(12192) = V(4638)*V(5252) - ARP(12193) = V(4638)*V(5253) - ARP(12194) = V(4638)*V(5256) - ARP(12195) = V(4638) - ARP(12196) = V(4638) - ARP(12197) = V(3839)*V(5255) - ARP(12198) = V(3839)*V(5252) - ARP(12199) = V(3839)*V(5256) - ARP(12200) = V(3839) - ARP(12201) = V(5006)*V(5255) - ARP(12202) = V(5006)*V(5255) - ARP(12203) = V(5006)*V(5255) - ARP(12204) = V(5006)*V(5252) - ARP(12205) = V(5006)*V(5253) - ARP(12206) = V(5006)*V(5256) - ARP(12207) = V(5006) - ARP(12208) = V(5006) - ARP(12209) = V(3629)*V(5250) - ARP(12210) = V(3629) - ARP(12211) = V(2305)*V(5250) - ARP(12212) = V(2305) - ARP(12213) = V(2305) - ARP(12214) = V(679) - ARP(12215) = V(2265)*V(5250) - ARP(12216) = V(2265) - ARP(12217) = V(1586)*V(5250) - ARP(12218) = V(1586) - ARP(12219) = V(2022)*V(5250) - ARP(12220) = V(2022) - ARP(12221) = V(2022) - ARP(12222) = V(619) - ARP(12223) = V(2141)*V(5250) - ARP(12224) = V(2141) - ARP(12225) = V(1615)*V(5250) - ARP(12226) = V(1615) - ARP(12227) = V(5131)*V(5255) - ARP(12228) = V(5131)*V(5255) - ARP(12229) = V(5131)*V(5255) - ARP(12230) = V(5131)*V(5252) - ARP(12231) = V(5131)*V(5253) - ARP(12232) = V(5131)*V(5256) - ARP(12233) = V(5131) - ARP(12234) = V(5131) - ARP(12235) = V(5052)*V(5255) - ARP(12236) = V(5052)*V(5255) - ARP(12237) = V(5052)*V(5255) - ARP(12238) = V(5052)*V(5252) - ARP(12239) = V(5052)*V(5253) - ARP(12240) = V(5052)*V(5256) - ARP(12241) = V(5052) - ARP(12242) = V(5052) - ARP(12243) = V(5247)*V(5255) - ARP(12244) = V(5247)*V(5252) - ARP(12245) = V(5247)*V(5256) - ARP(12246) = V(5247) - ARP(12247) = V(5247) - ARP(12248) = V(4679)*V(5255) - ARP(12249) = V(4679)*V(5255) - ARP(12250) = V(4679)*V(5255) - ARP(12251) = V(4679)*V(5252) - ARP(12252) = V(4679)*V(5253) - ARP(12253) = V(4679)*V(5256) - ARP(12254) = V(4679) - ARP(12255) = V(4679) - ARP(12256) = V(4431)*V(5255) - ARP(12257) = V(4431)*V(5255) - ARP(12258) = V(4431)*V(5255) - ARP(12259) = V(4431)*V(5252) - ARP(12260) = V(4431)*V(5253) - ARP(12261) = V(4431)*V(5256) - ARP(12262) = V(4431) - ARP(12263) = V(4431) - ARP(12264) = V(2909)*V(5250) - ARP(12265) = V(3890)*V(5255) - ARP(12266) = V(3890)*V(5252) - ARP(12267) = V(3890)*V(5252) - ARP(12268) = V(3890)*V(5256) - ARP(12269) = V(3890) - ARP(12270) = V(3890) - ARP(12271) = V(3890) - ARP(12272) = V(507)*V(5250) - ARP(12273) = V(1454)*V(5250) - ARP(12274) = V(1454) - ARP(12275) = V(2781)*V(5250) - ARP(12276) = V(2781) - ARP(12277) = V(830)*V(5250) - ARP(12278) = V(830) - ARP(12279) = V(1657)*V(5250) - ARP(12280) = V(1657) - ARP(12281) = V(149) - ARP(12282) = V(1656)*V(5250) - ARP(12283) = V(467)*V(5250) - ARP(12284) = V(1868)*V(5250) - ARP(12285) = V(1868) - ARP(12286) = V(618) - ARP(12287) = V(2154)*V(5250) - ARP(12288) = V(2154) - ARP(12289) = V(377)*V(5250) - ARP(12290) = V(4764)*V(5255) - ARP(12291) = V(4764)*V(5252) - ARP(12292) = V(4764)*V(5252) - ARP(12293) = V(4764)*V(5256) - ARP(12294) = V(4764) - ARP(12295) = V(4764) - ARP(12296) = V(3497)*V(5250) - ARP(12297) = V(3497) - ARP(12298) = V(4363)*V(5255) - ARP(12299) = V(4363)*V(5252) - ARP(12300) = V(4363)*V(5252) - ARP(12301) = V(4363)*V(5256) - ARP(12302) = V(4363) - ARP(12303) = V(4363) - ARP(12304) = V(4363) - ARP(12305) = V(1195)*V(5250) - ARP(12306) = V(1195) - ARP(12307) = V(2250)*V(5250) - ARP(12308) = V(2250) - ARP(12309) = V(183) - ARP(12310) = V(452)*V(5250) - ARP(12311) = V(958)*V(5250) - ARP(12312) = V(2868)*V(5250) - ARP(12313) = V(2868) - ARP(12314) = V(2546)*V(5250) - ARP(12315) = V(2546) - ARP(12316) = V(1279)*V(5250) - ARP(12317) = V(1279) - ARP(12318) = V(44) - ARP(12319) = V(2797)*V(5250) - ARP(12320) = V(2797) - ARP(12321) = V(2797) - ARP(12322) = V(2145) - ARP(12323) = V(1397)*V(5250) - ARP(12324) = V(1397) - ARP(12325) = V(96) - ARP(12326) = V(301)*V(5250) - ARP(12327) = V(1471) - ARP(12328) = V(1471)*V(5250) - ARP(12329) = V(2886) - ARP(12330) = V(2886)*V(5250) - ARP(12331) = V(420)*V(5250) - ARP(12332) = V(1055) - ARP(12333) = V(1055)*V(5250) - ARP(12334) = V(2978) - ARP(12335) = V(2978)*V(5250) - ARP(12336) = V(1440) - ARP(12337) = V(1440)*V(5250) - ARP(12338) = V(945) - ARP(12339) = V(945)*V(5250) - ARP(12340) = V(2842) - ARP(12341) = V(2842)*V(5250) - ARP(12342) = V(3336) - ARP(12343) = V(3336) - ARP(12344) = V(3336)*V(5250) - ARP(12345) = V(282)*V(5250) - ARP(12346) = V(983) - ARP(12347) = V(983)*V(5250) - ARP(12348) = V(2822) - ARP(12349) = V(2822)*V(5250) - ARP(12350) = V(4778)*V(5255) - ARP(12351) = V(4778)*V(5252) - ARP(12352) = V(4778)*V(5252) - ARP(12353) = V(4778)*V(5256) - ARP(12354) = V(4778) - ARP(12355) = V(4778) - ARP(12356) = V(4778) - ARP(12357) = V(3513) - ARP(12358) = V(3513)*V(5256) - ARP(12359) = V(3513)*V(5250) - ARP(12360) = V(4549)*V(5255) - ARP(12361) = V(4549)*V(5252) - ARP(12362) = V(4549)*V(5256) - ARP(12363) = V(4549) - ARP(12364) = V(4984)*V(5255) - ARP(12365) = V(4984)*V(5255) - ARP(12366) = V(4984)*V(5252) - ARP(12367) = V(4984)*V(5253) - ARP(12368) = V(4984)*V(5256) - ARP(12369) = V(4984) - ARP(12370) = V(805) - ARP(12371) = V(805)*V(5250) - ARP(12372) = V(230)*V(5250) - ARP(12373) = V(988) - ARP(12374) = V(988)*V(5250) - ARP(12375) = V(2787) - ARP(12376) = V(2787)*V(5250) - ARP(12377) = V(1441) - ARP(12378) = V(1441)*V(5250) - ARP(12379) = V(1963) - ARP(12380) = V(1963)*V(5250) - ARP(12381) = V(2826) - ARP(12382) = V(636) - ARP(12383) = V(636)*V(5250) - ARP(12384) = V(3537) - ARP(12385) = V(3537)*V(5250) - ARP(12386) = V(1908) - ARP(12387) = V(1908) - ARP(12388) = V(1908)*V(5250) - ARP(12389) = V(778) - ARP(12390) = V(3124) - ARP(12391) = V(3124)*V(5250) - ARP(12392) = V(1548) - ARP(12393) = V(1548)*V(5250) - ARP(12394) = V(3078) - ARP(12395) = V(3078) - ARP(12396) = V(3078)*V(5250) - ARP(12397) = V(564) - ARP(12398) = V(1832) - ARP(12399) = V(1832)*V(5250) - ARP(12400) = V(1690) - ARP(12401) = V(1690)*V(5250) - ARP(12402) = V(4419)*V(5255) - ARP(12403) = V(4419)*V(5255) - ARP(12404) = V(4419)*V(5252) - ARP(12405) = V(4419)*V(5253) - ARP(12406) = V(4419)*V(5256) - ARP(12407) = V(4419) - ARP(12408) = V(4235)*V(5255) - ARP(12409) = V(4235)*V(5252) - ARP(12410) = V(4235)*V(5256) - ARP(12411) = V(4235) - ARP(12412) = V(2981) - ARP(12413) = V(2981) - ARP(12414) = V(2981)*V(5250) - ARP(12415) = V(2999) - ARP(12416) = V(2999)*V(5250) - ARP(12417) = V(3000) - ARP(12418) = V(1633) - ARP(12419) = V(1633)*V(5250) - ARP(12420) = V(2084) - ARP(12421) = V(2084) - ARP(12422) = V(2084)*V(5250) - ARP(12423) = V(1723) - ARP(12424) = V(1722) - ARP(12425) = V(1722)*V(5250) - ARP(12426) = V(2625) - ARP(12427) = V(2625) - ARP(12428) = V(2625)*V(5250) - ARP(12429) = V(2625)*V(5250) - ARP(12430) = V(638) - ARP(12431) = V(1632) - ARP(12432) = V(1632)*V(5250) - ARP(12433) = V(2910) - ARP(12434) = V(2910) - ARP(12435) = V(2910)*V(5250) - ARP(12436) = V(4874)*V(5255) - ARP(12437) = V(4874)*V(5255) - ARP(12438) = V(4874)*V(5252) - ARP(12439) = V(4874)*V(5253) - ARP(12440) = V(4874)*V(5256) - ARP(12441) = V(4874) - ARP(12442) = V(4890)*V(5255) - ARP(12443) = V(4890)*V(5252) - ARP(12444) = V(4890)*V(5252) - ARP(12445) = V(4890)*V(5256) - ARP(12446) = V(4890) - ARP(12447) = V(4890) - ARP(12448) = V(4890) - ARP(12449) = V(3086) - ARP(12450) = V(3086)*V(5250) - ARP(12451) = V(1839) - ARP(12452) = V(1839) - ARP(12453) = V(1839)*V(5250) - ARP(12454) = V(745) - ARP(12455) = V(1571) - ARP(12456) = V(1571)*V(5250) - ARP(12457) = V(4521)*V(5255) - ARP(12458) = V(4521)*V(5255) - ARP(12459) = V(4521)*V(5252) - ARP(12460) = V(4521)*V(5253) - ARP(12461) = V(4521)*V(5256) - ARP(12462) = V(4521) - ARP(12463) = V(3151) - ARP(12464) = V(3151)*V(5250) - ARP(12465) = V(2052) - ARP(12466) = V(2052) - ARP(12467) = V(2052)*V(5250) - ARP(12468) = V(722) - ARP(12469) = V(1707) - ARP(12470) = V(1707)*V(5250) - ARP(12471) = V(4430)*V(5255) - ARP(12472) = V(4430)*V(5255) - ARP(12473) = V(4430)*V(5252) - ARP(12474) = V(4430)*V(5253) - ARP(12475) = V(4430)*V(5256) - ARP(12476) = V(4430) - ARP(12477) = V(3183) - ARP(12478) = V(3183)*V(5250) - ARP(12479) = V(2059) - ARP(12480) = V(2059) - ARP(12481) = V(2059)*V(5250) - ARP(12482) = V(698) - ARP(12483) = V(1744) - ARP(12484) = V(1744)*V(5250) - ARP(12485) = V(4443)*V(5255) - ARP(12486) = V(4443)*V(5255) - ARP(12487) = V(4443)*V(5252) - ARP(12488) = V(4443)*V(5253) - ARP(12489) = V(4443)*V(5256) - ARP(12490) = V(4443) - ARP(12491) = V(4710) - ARP(12492) = V(4710)*V(5256) - ARP(12493) = V(4710)*V(5250) - ARP(12494) = V(3184) - ARP(12495) = V(3184)*V(5250) - ARP(12496) = V(2121) - ARP(12497) = V(2121) - ARP(12498) = V(2121)*V(5250) - ARP(12499) = V(570) - ARP(12500) = V(1740) - ARP(12501) = V(1740)*V(5250) - ARP(12502) = V(4450)*V(5255) - ARP(12503) = V(4450)*V(5255) - ARP(12504) = V(4450)*V(5252) - ARP(12505) = V(4450)*V(5253) - ARP(12506) = V(4450)*V(5256) - ARP(12507) = V(4450) - ARP(12508) = V(3185) - ARP(12509) = V(3185)*V(5250) - ARP(12510) = V(474)*V(5250) - ARP(12511) = V(1114) - ARP(12512) = V(1114)*V(5250) - ARP(12513) = V(2726)*V(5250) - ARP(12514) = V(2726) - ARP(12515) = V(2221) - ARP(12516) = V(2221) - ARP(12517) = V(2221)*V(5250) - ARP(12518) = V(575) - ARP(12519) = V(1674) - ARP(12520) = V(1674)*V(5250) - ARP(12521) = V(4417)*V(5255) - ARP(12522) = V(4417)*V(5255) - ARP(12523) = V(4417)*V(5252) - ARP(12524) = V(4417)*V(5253) - ARP(12525) = V(4417)*V(5256) - ARP(12526) = V(4417) - ARP(12527) = V(1192)*V(5250) - ARP(12528) = V(1192) - ARP(12529) = V(141) - ARP(12530) = V(246)*V(5250) - ARP(12531) = V(1483)*V(5250) - ARP(12532) = V(934)*V(5250) - ARP(12533) = V(934) - ARP(12534) = V(3370) - ARP(12535) = V(1508)*V(5250) - ARP(12536) = V(1508) - ARP(12537) = V(2577) - ARP(12538) = V(3478)*V(5250) - ARP(12539) = V(3571)*V(5250) - ARP(12540) = V(3571) - ARP(12541) = V(4308)*V(5255) - ARP(12542) = V(4308)*V(5255) - ARP(12543) = V(4308)*V(5252) - ARP(12544) = V(4308)*V(5253) - ARP(12545) = V(4308)*V(5256) - ARP(12546) = V(4308) - ARP(12547) = V(3783)*V(5250) - ARP(12548) = V(3783) - ARP(12549) = V(4221)*V(5255) - ARP(12550) = V(4221)*V(5255) - ARP(12551) = V(4221)*V(5252) - ARP(12552) = V(4221)*V(5253) - ARP(12553) = V(4221)*V(5256) - ARP(12554) = V(4221) - ARP(12555) = V(1376)*V(5250) - ARP(12556) = V(1376) - ARP(12557) = V(3375) - ARP(12558) = V(835)*V(5250) - ARP(12559) = V(835) - ARP(12560) = V(3036) - ARP(12561) = V(4507)*V(5250) - ARP(12562) = V(4472)*V(5255) - ARP(12563) = V(4472)*V(5255) - ARP(12564) = V(4472)*V(5252) - ARP(12565) = V(4472)*V(5253) - ARP(12566) = V(4472)*V(5256) - ARP(12567) = V(4472) - ARP(12568) = V(1117)*V(5250) - ARP(12569) = V(1117) - ARP(12570) = V(2739) - ARP(12571) = V(977)*V(5250) - ARP(12572) = V(977) - ARP(12573) = V(3402) - ARP(12574) = V(1420)*V(5250) - ARP(12575) = V(1420) - ARP(12576) = V(2935) - ARP(12577) = V(3729)*V(5250) - ARP(12578) = V(3729) - ARP(12579) = V(4241)*V(5255) - ARP(12580) = V(4241)*V(5255) - ARP(12581) = V(4241)*V(5252) - ARP(12582) = V(4241)*V(5253) - ARP(12583) = V(4241)*V(5256) - ARP(12584) = V(4241) - ARP(12585) = V(4202)*V(5255) - ARP(12586) = V(4202)*V(5255) - ARP(12587) = V(4202)*V(5252) - ARP(12588) = V(4202)*V(5253) - ARP(12589) = V(4202)*V(5256) - ARP(12590) = V(4202) - ARP(12591) = V(4770)*V(5255) - ARP(12592) = V(4770)*V(5255) - ARP(12593) = V(4770)*V(5255) - ARP(12594) = V(4770)*V(5252) - ARP(12595) = V(4770)*V(5253) - ARP(12596) = V(4770)*V(5256) - ARP(12597) = V(4770) - ARP(12598) = V(4770) - ARP(12599) = V(2769)*V(5250) - ARP(12600) = V(2769) - ARP(12601) = V(2769) - ARP(12602) = V(2430) - ARP(12603) = V(4808)*V(5255) - ARP(12604) = V(4808)*V(5255) - ARP(12605) = V(4808)*V(5255) - ARP(12606) = V(4808)*V(5252) - ARP(12607) = V(4808)*V(5253) - ARP(12608) = V(4808)*V(5256) - ARP(12609) = V(4808) - ARP(12610) = V(4808) - ARP(12611) = V(994)*V(5250) - ARP(12612) = V(994) - ARP(12613) = V(170) - ARP(12614) = V(53)*V(5250) - ARP(12615) = V(1342)*V(5250) - ARP(12616) = V(1342) - ARP(12617) = V(3371) - ARP(12618) = V(913)*V(5250) - ARP(12619) = V(913) - ARP(12620) = V(2986) - ARP(12621) = V(3742)*V(5250) - ARP(12622) = V(3742) - ARP(12623) = V(4253)*V(5255) - ARP(12624) = V(4253)*V(5255) - ARP(12625) = V(4253)*V(5252) - ARP(12626) = V(4253)*V(5253) - ARP(12627) = V(4253)*V(5256) - ARP(12628) = V(4253) - ARP(12629) = V(1426)*V(5250) - ARP(12630) = V(1426) - ARP(12631) = V(3400) - ARP(12632) = V(1472)*V(5250) - ARP(12633) = V(1472) - ARP(12634) = V(3347) - ARP(12635) = V(1278)*V(5250) - ARP(12636) = V(1278) - ARP(12637) = V(2733) - ARP(12638) = V(3595)*V(5250) - ARP(12639) = V(3595) - ARP(12640) = V(4013)*V(5255) - ARP(12641) = V(4013)*V(5255) - ARP(12642) = V(4013)*V(5252) - ARP(12643) = V(4013)*V(5253) - ARP(12644) = V(4013)*V(5256) - ARP(12645) = V(4013) - ARP(12646) = V(1169)*V(5250) - ARP(12647) = V(1169) - ARP(12648) = V(3329) - ARP(12649) = V(825)*V(5250) - ARP(12650) = V(825) - ARP(12651) = V(2903) - ARP(12652) = V(3732)*V(5250) - ARP(12653) = V(3732) - ARP(12654) = V(4046)*V(5255) - ARP(12655) = V(4046)*V(5255) - ARP(12656) = V(4046)*V(5252) - ARP(12657) = V(4046)*V(5253) - ARP(12658) = V(4046)*V(5256) - ARP(12659) = V(4046) - ARP(12660) = V(3541)*V(5250) - ARP(12661) = V(4404)*V(5255) - ARP(12662) = V(4404)*V(5255) - ARP(12663) = V(4404)*V(5252) - ARP(12664) = V(4404)*V(5253) - ARP(12665) = V(4404)*V(5256) - ARP(12666) = V(4404) - ARP(12667) = V(1309)*V(5250) - ARP(12668) = V(1309) - ARP(12669) = V(3574) - ARP(12670) = V(1504)*V(5250) - ARP(12671) = V(1504) - ARP(12672) = V(3361) - ARP(12673) = V(3673)*V(5250) - ARP(12674) = V(3673) - ARP(12675) = V(4536)*V(5255) - ARP(12676) = V(4536)*V(5255) - ARP(12677) = V(4536)*V(5252) - ARP(12678) = V(4536)*V(5253) - ARP(12679) = V(4536)*V(5256) - ARP(12680) = V(4536) - ARP(12681) = V(2548)*V(5250) - ARP(12682) = V(2228)*V(5250) - ARP(12683) = V(2228) - ARP(12684) = V(2538)*V(5250) - ARP(12685) = V(2538) - ARP(12686) = V(1118)*V(5250) - ARP(12687) = V(1118) - ARP(12688) = V(3596) - ARP(12689) = V(1025)*V(5250) - ARP(12690) = V(1025) - ARP(12691) = V(3414) - ARP(12692) = V(3787)*V(5250) - ARP(12693) = V(3787) - ARP(12694) = V(4218)*V(5255) - ARP(12695) = V(4218)*V(5255) - ARP(12696) = V(4218)*V(5252) - ARP(12697) = V(4218)*V(5253) - ARP(12698) = V(4218)*V(5256) - ARP(12699) = V(4218) - ARP(12700) = V(2854)*V(5250) - ARP(12701) = V(2120)*V(5250) - ARP(12702) = V(2120) - ARP(12703) = V(2929)*V(5250) - ARP(12704) = V(2929) - ARP(12705) = V(3937)*V(5255) - ARP(12706) = V(3937)*V(5252) - ARP(12707) = V(3937)*V(5256) - ARP(12708) = V(3937) - ARP(12709) = V(3746)*V(5255) - ARP(12710) = V(3746)*V(5252) - ARP(12711) = V(3746)*V(5256) - ARP(12712) = V(3746) - ARP(12713) = V(3746) - ARP(12714) = V(869)*V(5250) - ARP(12715) = V(869) - ARP(12716) = V(3363) - ARP(12717) = V(1166)*V(5250) - ARP(12718) = V(1166) - ARP(12719) = V(2736) - ARP(12720) = V(4331)*V(5250) - ARP(12721) = V(1455)*V(5250) - ARP(12722) = V(1455) - ARP(12723) = V(3406) - ARP(12724) = V(888)*V(5250) - ARP(12725) = V(888) - ARP(12726) = V(3381) - ARP(12727) = V(1273)*V(5250) - ARP(12728) = V(1273) - ARP(12729) = V(2952) - ARP(12730) = V(3593)*V(5250) - ARP(12731) = V(3593) - ARP(12732) = V(4324)*V(5255) - ARP(12733) = V(4324)*V(5255) - ARP(12734) = V(4324)*V(5252) - ARP(12735) = V(4324)*V(5253) - ARP(12736) = V(4324)*V(5256) - ARP(12737) = V(4324) - ARP(12738) = V(1393)*V(5250) - ARP(12739) = V(1393) - ARP(12740) = V(2768) - ARP(12741) = V(1045)*V(5250) - ARP(12742) = V(1045) - ARP(12743) = V(3362) - ARP(12744) = V(1029)*V(5250) - ARP(12745) = V(1029) - ARP(12746) = V(2598) - ARP(12747) = V(3709)*V(5250) - ARP(12748) = V(3709) - ARP(12749) = V(4154)*V(5255) - ARP(12750) = V(4154)*V(5255) - ARP(12751) = V(4154)*V(5252) - ARP(12752) = V(4154)*V(5253) - ARP(12753) = V(4154)*V(5256) - ARP(12754) = V(4154) - ARP(12755) = V(1223)*V(5250) - ARP(12756) = V(1223) - ARP(12757) = V(3417) - ARP(12758) = V(972)*V(5250) - ARP(12759) = V(972) - ARP(12760) = V(2995) - ARP(12761) = V(3968)*V(5250) - ARP(12762) = V(3968) - ARP(12763) = V(4441)*V(5255) - ARP(12764) = V(4441)*V(5255) - ARP(12765) = V(4441)*V(5252) - ARP(12766) = V(4441)*V(5253) - ARP(12767) = V(4441)*V(5256) - ARP(12768) = V(4441) - ARP(12769) = V(1030)*V(5250) - ARP(12770) = V(1030) - ARP(12771) = V(3388) - ARP(12772) = V(1423)*V(5250) - ARP(12773) = V(1423) - ARP(12774) = V(2937) - ARP(12775) = V(3681)*V(5250) - ARP(12776) = V(3681) - ARP(12777) = V(4299)*V(5255) - ARP(12778) = V(4299)*V(5255) - ARP(12779) = V(4299)*V(5252) - ARP(12780) = V(4299)*V(5253) - ARP(12781) = V(4299)*V(5256) - ARP(12782) = V(4299) - ARP(12783) = V(4977)*V(5255) - ARP(12784) = V(4977)*V(5255) - ARP(12785) = V(4977)*V(5255) - ARP(12786) = V(4977)*V(5252) - ARP(12787) = V(4977)*V(5253) - ARP(12788) = V(4977)*V(5256) - ARP(12789) = V(4977) - ARP(12790) = V(4977) - ARP(12791) = V(1215)*V(5250) - ARP(12792) = V(1215) - ARP(12793) = V(2820) - ARP(12794) = V(4052)*V(5255) - ARP(12795) = V(4052)*V(5252) - ARP(12796) = V(4052)*V(5256) - ARP(12797) = V(4052) - ARP(12798) = V(1457)*V(5250) - ARP(12799) = V(2429) - ARP(12800) = V(2429)*V(5250) - ARP(12801) = V(2705) - ARP(12802) = V(2705)*V(5250) - ARP(12803) = V(1249) - ARP(12804) = V(1249)*V(5250) - ARP(12805) = V(2655) - ARP(12806) = V(2655)*V(5250) - ARP(12807) = V(2617)*V(5250) - ARP(12808) = V(2617) - ARP(12809) = V(781) - ARP(12810) = V(3558)*V(5250) - ARP(12811) = V(3558) - ARP(12812) = V(4826)*V(5255) - ARP(12813) = V(4826)*V(5255) - ARP(12814) = V(4826)*V(5252) - ARP(12815) = V(4826)*V(5253) - ARP(12816) = V(4826)*V(5256) - ARP(12817) = V(4826) - ARP(12818) = V(4519)*V(5255) - ARP(12819) = V(4519)*V(5255) - ARP(12820) = V(4519)*V(5255) - ARP(12821) = V(4519)*V(5252) - ARP(12822) = V(4519)*V(5253) - ARP(12823) = V(4519)*V(5256) - ARP(12824) = V(4519) - ARP(12825) = V(4519) - ARP(12826) = V(4753)*V(5255) - ARP(12827) = V(4753)*V(5255) - ARP(12828) = V(4753)*V(5255) - ARP(12829) = V(4753)*V(5252) - ARP(12830) = V(4753)*V(5253) - ARP(12831) = V(4753)*V(5256) - ARP(12832) = V(4753) - ARP(12833) = V(4753) - ARP(12834) = V(4739)*V(5255) - ARP(12835) = V(4739)*V(5255) - ARP(12836) = V(4739)*V(5255) - ARP(12837) = V(4739)*V(5252) - ARP(12838) = V(4739)*V(5253) - ARP(12839) = V(4739)*V(5256) - ARP(12840) = V(4739) - ARP(12841) = V(4739) - ARP(12842) = V(1467) - ARP(12843) = V(1467)*V(5250) - ARP(12844) = V(2823) - ARP(12845) = V(2823)*V(5250) - ARP(12846) = V(1816)*V(5250) - ARP(12847) = V(1816) - ARP(12848) = V(3042)*V(5250) - ARP(12849) = V(3042) - ARP(12850) = V(2329)*V(5250) - ARP(12851) = V(2329) - ARP(12852) = V(3045)*V(5250) - ARP(12853) = V(3045) - ARP(12854) = V(5005)*V(5255) - ARP(12855) = V(5005)*V(5255) - ARP(12856) = V(5005)*V(5255) - ARP(12857) = V(5005)*V(5252) - ARP(12858) = V(5005)*V(5253) - ARP(12859) = V(5005)*V(5256) - ARP(12860) = V(5005) - ARP(12861) = V(5005) - ARP(12862) = V(5003)*V(5255) - ARP(12863) = V(5003)*V(5255) - ARP(12864) = V(5003)*V(5255) - ARP(12865) = V(5003)*V(5252) - ARP(12866) = V(5003)*V(5253) - ARP(12867) = V(5003)*V(5256) - ARP(12868) = V(5003) - ARP(12869) = V(5003) - ARP(12870) = V(1229)*V(5250) - ARP(12871) = V(3272)*V(5250) - ARP(12872) = V(3272)*V(5250) - ARP(12873) = V(3272) - ARP(12874) = V(2735)*V(5250) - ARP(12875) = V(2735) - ARP(12876) = V(3998)*V(5255) - ARP(12877) = V(3998)*V(5255) - ARP(12878) = V(3998)*V(5252) - ARP(12879) = V(3998)*V(5253) - ARP(12880) = V(3998)*V(5256) - ARP(12881) = V(3998) - ARP(12882) = V(839) - ARP(12883) = V(839)*V(5250) - ARP(12884) = V(1518) - ARP(12885) = V(1518)*V(5250) - ARP(12886) = V(1939) - ARP(12887) = V(1939)*V(5250) - ARP(12888) = V(893)*V(5250) - ARP(12889) = V(1804) - ARP(12890) = V(1804)*V(5250) - ARP(12891) = V(2925) - ARP(12892) = V(2925)*V(5250) - ARP(12893) = V(4772)*V(5255) - ARP(12894) = V(4772)*V(5255) - ARP(12895) = V(4772)*V(5255) - ARP(12896) = V(4772)*V(5252) - ARP(12897) = V(4772)*V(5253) - ARP(12898) = V(4772)*V(5256) - ARP(12899) = V(4772) - ARP(12900) = V(4772) - ARP(12901) = V(890)*V(5250) - ARP(12902) = V(1874) - ARP(12903) = V(1874)*V(5250) - ARP(12904) = V(3236) - ARP(12905) = V(3236)*V(5250) - ARP(12906) = V(3500)*V(5250) - ARP(12907) = V(3500) - ARP(12908) = V(3555)*V(5250) - ARP(12909) = V(3555) - ARP(12910) = V(3532)*V(5250) - ARP(12911) = V(3532) - ARP(12912) = V(4565)*V(5255) - ARP(12913) = V(4565)*V(5252) - ARP(12914) = V(4565)*V(5256) - ARP(12915) = V(4565) - ARP(12916) = V(4123)*V(5255) - ARP(12917) = V(4123)*V(5252) - ARP(12918) = V(4123)*V(5256) - ARP(12919) = V(4123) - ARP(12920) = V(3620)*V(5250) - ARP(12921) = V(3620)*V(5250) - ARP(12922) = V(3620) - ARP(12923) = V(957)*V(5250) - ARP(12924) = V(3490) - ARP(12925) = V(3490) - ARP(12926) = V(305)*V(5250) - ARP(12927) = V(2289)*V(5250) - ARP(12928) = V(2289) - ARP(12929) = V(645) - ARP(12930) = V(1433)*V(5250) - ARP(12931) = V(3276)*V(5250) - ARP(12932) = V(3276)*V(5250) - ARP(12933) = V(3276) - ARP(12934) = V(3324)*V(5250) - ARP(12935) = V(3324) - ARP(12936) = V(4250)*V(5251) - ARP(12937) = V(4250)*V(5252) - ARP(12938) = V(4250)*V(5253) - ARP(12939) = V(4250)*V(5254) - ARP(12940) = V(4250) - ARP(12941) = V(3216)*V(5250) - ARP(12942) = V(3216) - ARP(12943) = V(3216) - ARP(12944) = V(3215) - ARP(12945) = V(4366)*V(5250) - ARP(12946) = V(4366) - ARP(12947) = V(2568)*V(5250) - ARP(12948) = V(2568) - ARP(12949) = V(4222)*V(5255) - ARP(12950) = V(4222)*V(5255) - ARP(12951) = V(4222)*V(5255) - ARP(12952) = V(4222)*V(5252) - ARP(12953) = V(4222)*V(5253) - ARP(12954) = V(4222)*V(5256) - ARP(12955) = V(4222) - ARP(12956) = V(4222) - ARP(12957) = V(1201) - ARP(12958) = V(1201)*V(5250) - ARP(12959) = V(2622) - ARP(12960) = V(2622)*V(5250) - ARP(12961) = V(4230)*V(5255) - ARP(12962) = V(4230)*V(5255) - ARP(12963) = V(4230)*V(5252) - ARP(12964) = V(4230)*V(5253) - ARP(12965) = V(4230)*V(5256) - ARP(12966) = V(4230) - ARP(12967) = V(4191)*V(5255) - ARP(12968) = V(4191)*V(5252) - ARP(12969) = V(4191)*V(5256) - ARP(12970) = V(4191) - ARP(12971) = V(954)*V(5250) - ARP(12972) = V(954) - ARP(12973) = V(3053)*V(5250) - ARP(12974) = V(3053) - ARP(12975) = V(5004)*V(5255) - ARP(12976) = V(5004)*V(5255) - ARP(12977) = V(5004)*V(5255) - ARP(12978) = V(5004)*V(5252) - ARP(12979) = V(5004)*V(5253) - ARP(12980) = V(5004)*V(5256) - ARP(12981) = V(5004) - ARP(12982) = V(5004) - ARP(12983) = V(5111)*V(5255) - ARP(12984) = V(5111)*V(5255) - ARP(12985) = V(5111)*V(5252) - ARP(12986) = V(5111)*V(5253) - ARP(12987) = V(5111)*V(5256) - ARP(12988) = V(5111) - ARP(12989) = V(4806)*V(5255) - ARP(12990) = V(4806)*V(5255) - ARP(12991) = V(4806)*V(5252) - ARP(12992) = V(4806)*V(5253) - ARP(12993) = V(4806)*V(5256) - ARP(12994) = V(4806) - ARP(12995) = V(4969)*V(5255) - ARP(12996) = V(4969)*V(5255) - ARP(12997) = V(4969)*V(5252) - ARP(12998) = V(4969)*V(5253) - ARP(12999) = V(4969)*V(5256) - ARP(13000) = V(4969) - ARP(13001) = V(1496)*V(5250) - ARP(13002) = V(1496) - ARP(13003) = V(2812)*V(5250) - ARP(13004) = V(2812) - ARP(13005) = V(1984) - ARP(13006) = V(526)*V(5250) - ARP(13007) = V(526) - ARP(13008) = V(3760)*V(5255) - ARP(13009) = V(3760)*V(5252) - ARP(13010) = V(3760)*V(5256) - ARP(13011) = V(3760) - ARP(13012) = V(1225)*V(5250) - ARP(13013) = V(1225) - ARP(13014) = V(2034)*V(5250) - ARP(13015) = V(2034) - ARP(13016) = V(2035) - ARP(13017) = V(767)*V(5250) - ARP(13018) = V(767) - ARP(13019) = V(1277)*V(5250) - ARP(13020) = V(1277) - ARP(13021) = V(3858)*V(5255) - ARP(13022) = V(3858)*V(5252) - ARP(13023) = V(3858)*V(5252) - ARP(13024) = V(3858)*V(5256) - ARP(13025) = V(3858) - ARP(13026) = V(3858) - ARP(13027) = V(3858) - ARP(13028) = V(265)*V(5250) - ARP(13029) = V(2658)*V(5250) - ARP(13030) = V(2658) - ARP(13031) = V(4268)*V(5255) - ARP(13032) = V(4268)*V(5252) - ARP(13033) = V(4268)*V(5256) - ARP(13034) = V(4268) - ARP(13035) = V(1203)*V(5250) - ARP(13036) = V(1203) - ARP(13037) = V(49) - ARP(13038) = V(1214)*V(5250) - ARP(13039) = V(1214) - ARP(13040) = V(2701)*V(5250) - ARP(13041) = V(2701) - ARP(13042) = V(1852) - ARP(13043) = V(209)*V(5250) - ARP(13044) = V(209) - ARP(13045) = V(2151)*V(5250) - ARP(13046) = V(2151) - ARP(13047) = V(632) - ARP(13048) = V(4660)*V(5255) - ARP(13049) = V(4660)*V(5255) - ARP(13050) = V(4660)*V(5255) - ARP(13051) = V(4660)*V(5252) - ARP(13052) = V(4660)*V(5253) - ARP(13053) = V(4660)*V(5256) - ARP(13054) = V(4660) - ARP(13055) = V(4660) - ARP(13056) = V(5019)*V(5255) - ARP(13057) = V(5019)*V(5252) - ARP(13058) = V(5019)*V(5256) - ARP(13059) = V(5019) - ARP(13060) = V(5019) - ARP(13061) = V(5019) - ARP(13062) = V(1367)*V(5250) - ARP(13063) = V(1367) - ARP(13064) = V(2629)*V(5250) - ARP(13065) = V(2629) - ARP(13066) = V(2457) - ARP(13067) = V(493)*V(5250) - ARP(13068) = V(493) - ARP(13069) = V(508)*V(5250) - ARP(13070) = V(508) - ARP(13071) = V(69) - ARP(13072) = V(472)*V(5250) - ARP(13073) = V(472) - ARP(13074) = V(359)*V(5250) - ARP(13075) = V(1390)*V(5250) - ARP(13076) = V(1390) - ARP(13077) = V(2759)*V(5250) - ARP(13078) = V(2759) - ARP(13079) = V(1803) - ARP(13080) = V(400)*V(5250) - ARP(13081) = V(400) - ARP(13082) = V(210)*V(5250) - ARP(13083) = V(1540)*V(5250) - ARP(13084) = V(1540) - ARP(13085) = V(2515)*V(5250) - ARP(13086) = V(2515) - ARP(13087) = V(594)*V(5250) - ARP(13088) = V(594) - ARP(13089) = V(88) - ARP(13090) = V(593)*V(5250) - ARP(13091) = V(347)*V(5250) - ARP(13092) = V(1428)*V(5250) - ARP(13093) = V(1428) - ARP(13094) = V(1823)*V(5250) - ARP(13095) = V(1823) - ARP(13096) = V(3591) - ARP(13097) = V(3591) - ARP(13098) = V(799)*V(5250) - ARP(13099) = V(799) - ARP(13100) = V(1089)*V(5250) - ARP(13101) = V(1089) - ARP(13102) = V(125) - ARP(13103) = V(502)*V(5250) - ARP(13104) = V(3845)*V(5255) - ARP(13105) = V(3845)*V(5252) - ARP(13106) = V(3845)*V(5252) - ARP(13107) = V(3845)*V(5256) - ARP(13108) = V(3845) - ARP(13109) = V(3845) - ARP(13110) = V(3862)*V(5256) - ARP(13111) = V(3862)*V(5250) - ARP(13112) = V(3862) - ARP(13113) = V(4150)*V(5255) - ARP(13114) = V(4150)*V(5252) - ARP(13115) = V(4150)*V(5256) - ARP(13116) = V(4150) - ARP(13117) = V(4150) - ARP(13118) = V(4150) - ARP(13119) = V(5073)*V(5255) - ARP(13120) = V(5073)*V(5255) - ARP(13121) = V(5073)*V(5252) - ARP(13122) = V(5073)*V(5253) - ARP(13123) = V(5073)*V(5256) - ARP(13124) = V(5073) - ARP(13125) = V(1394)*V(5250) - ARP(13126) = V(1394) - ARP(13127) = V(993)*V(5250) - ARP(13128) = V(993) - ARP(13129) = V(2708)*V(5250) - ARP(13130) = V(2708) - ARP(13131) = V(880)*V(5250) - ARP(13132) = V(880) - ARP(13133) = V(1996)*V(5250) - ARP(13134) = V(1996) - ARP(13135) = V(158) - ARP(13136) = V(121)*V(5250) - ARP(13137) = V(5085)*V(5256) - ARP(13138) = V(5085)*V(5250) - ARP(13139) = V(5085) - ARP(13140) = V(2386)*V(5250) - ARP(13141) = V(2386) - ARP(13142) = V(2386) - ARP(13143) = V(1631) - ARP(13144) = V(1630)*V(5250) - ARP(13145) = V(1630) - ARP(13146) = V(3949)*V(5255) - ARP(13147) = V(3949)*V(5252) - ARP(13148) = V(3949)*V(5256) - ARP(13149) = V(3949) - ARP(13150) = V(3949) - ARP(13151) = V(20) - ARP(13152) = V(3950)*V(5255) - ARP(13153) = V(3950)*V(5252) - ARP(13154) = V(3950)*V(5252) - ARP(13155) = V(3950)*V(5256) - ARP(13156) = V(3950) - ARP(13157) = V(3950) - ARP(13158) = V(4059)*V(5255) - ARP(13159) = V(4059)*V(5252) - ARP(13160) = V(4059)*V(5252) - ARP(13161) = V(4059)*V(5256) - ARP(13162) = V(4059) - ARP(13163) = V(4059) - ARP(13164) = V(4059) - ARP(13165) = V(1135)*V(5250) - ARP(13166) = V(1135) - ARP(13167) = V(2352)*V(5250) - ARP(13168) = V(2352) - ARP(13169) = V(162) - ARP(13170) = V(310)*V(5250) - ARP(13171) = V(1247)*V(5250) - ARP(13172) = V(1247) - ARP(13173) = V(3703)*V(5255) - ARP(13174) = V(3703)*V(5252) - ARP(13175) = V(3703)*V(5252) - ARP(13176) = V(3703)*V(5256) - ARP(13177) = V(3703) - ARP(13178) = V(3703) - ARP(13179) = V(3703) - ARP(13180) = V(241)*V(5250) - ARP(13181) = V(2597)*V(5250) - ARP(13182) = V(2597) - ARP(13183) = V(887)*V(5250) - ARP(13184) = V(887) - ARP(13185) = V(3338) - ARP(13186) = V(492)*V(5250) - ARP(13187) = V(1317)*V(5250) - ARP(13188) = V(1317) - ARP(13189) = V(2651)*V(5250) - ARP(13190) = V(2651) - ARP(13191) = V(4538)*V(5255) - ARP(13192) = V(4538)*V(5252) - ARP(13193) = V(4538)*V(5256) - ARP(13194) = V(4538) - ARP(13195) = V(5044)*V(5255) - ARP(13196) = V(5044)*V(5255) - ARP(13197) = V(5044)*V(5255) - ARP(13198) = V(5044)*V(5252) - ARP(13199) = V(5044)*V(5253) - ARP(13200) = V(5044)*V(5256) - ARP(13201) = V(5044) - ARP(13202) = V(5044) - ARP(13203) = V(364)*V(5250) - ARP(13204) = V(1479)*V(5250) - ARP(13205) = V(1479) - ARP(13206) = V(3686)*V(5255) - ARP(13207) = V(3686)*V(5252) - ARP(13208) = V(3686)*V(5252) - ARP(13209) = V(3686)*V(5256) - ARP(13210) = V(3686) - ARP(13211) = V(3686) - ARP(13212) = V(3686) - ARP(13213) = V(3011)*V(5250) - ARP(13214) = V(3011) - ARP(13215) = V(1739) - ARP(13216) = V(1739) - ARP(13217) = V(489)*V(5250) - ARP(13218) = V(1509)*V(5250) - ARP(13219) = V(1509) - ARP(13220) = V(2704)*V(5250) - ARP(13221) = V(2704) - ARP(13222) = V(871)*V(5250) - ARP(13223) = V(871) - ARP(13224) = V(206) - ARP(13225) = V(30)*V(5250) - ARP(13226) = V(275)*V(5250) - ARP(13227) = V(951)*V(5250) - ARP(13228) = V(951) - ARP(13229) = V(3789)*V(5255) - ARP(13230) = V(3789)*V(5252) - ARP(13231) = V(3789)*V(5252) - ARP(13232) = V(3789)*V(5256) - ARP(13233) = V(3789) - ARP(13234) = V(3789) - ARP(13235) = V(3789) - ARP(13236) = V(2666)*V(5250) - ARP(13237) = V(2666) - ARP(13238) = V(215)*V(5250) - ARP(13239) = V(1233)*V(5250) - ARP(13240) = V(1233) - ARP(13241) = V(3764)*V(5255) - ARP(13242) = V(3764)*V(5252) - ARP(13243) = V(3764)*V(5252) - ARP(13244) = V(3764)*V(5256) - ARP(13245) = V(3764) - ARP(13246) = V(3764) - ARP(13247) = V(3764) - ARP(13248) = V(2613)*V(5250) - ARP(13249) = V(2613) - ARP(13250) = V(4385)*V(5255) - ARP(13251) = V(4385)*V(5252) - ARP(13252) = V(4385)*V(5252) - ARP(13253) = V(4385)*V(5256) - ARP(13254) = V(4385) - ARP(13255) = V(4385) - ARP(13256) = V(927)*V(5250) - ARP(13257) = V(927) - ARP(13258) = V(2908)*V(5250) - ARP(13259) = V(2908) - ARP(13260) = V(1961) - ARP(13261) = V(511)*V(5250) - ARP(13262) = V(4748)*V(5255) - ARP(13263) = V(4748)*V(5252) - ARP(13264) = V(4748)*V(5252) - ARP(13265) = V(4748)*V(5256) - ARP(13266) = V(4748) - ARP(13267) = V(4748) - ARP(13268) = V(4863)*V(5255) - ARP(13269) = V(4863)*V(5255) - ARP(13270) = V(4863)*V(5255) - ARP(13271) = V(4863)*V(5252) - ARP(13272) = V(4863)*V(5253) - ARP(13273) = V(4863)*V(5256) - ARP(13274) = V(4863) - ARP(13275) = V(4863) - ARP(13276) = V(1245)*V(5250) - ARP(13277) = V(1245) - ARP(13278) = V(2408)*V(5250) - ARP(13279) = V(2408) - ARP(13280) = V(315) - ARP(13281) = V(59)*V(5250) - ARP(13282) = V(4734)*V(5255) - ARP(13283) = V(4734)*V(5252) - ARP(13284) = V(4734)*V(5256) - ARP(13285) = V(4734) - ARP(13286) = V(4734) - ARP(13287) = V(5104)*V(5255) - ARP(13288) = V(5104)*V(5252) - ARP(13289) = V(5104)*V(5252) - ARP(13290) = V(5104)*V(5256) - ARP(13291) = V(5104) - ARP(13292) = V(5104) - ARP(13293) = V(1444)*V(5250) - ARP(13294) = V(1444) - ARP(13295) = V(1752)*V(5250) - ARP(13296) = V(1752) - ARP(13297) = V(3425) - ARP(13298) = V(3425) - ARP(13299) = V(256)*V(5250) - ARP(13300) = V(3951)*V(5255) - ARP(13301) = V(3951)*V(5252) - ARP(13302) = V(3951)*V(5256) - ARP(13303) = V(3951) - ARP(13304) = V(3951) - ARP(13305) = V(4648)*V(5255) - ARP(13306) = V(4648)*V(5252) - ARP(13307) = V(4648)*V(5256) - ARP(13308) = V(4648) - ARP(13309) = V(4510)*V(5255) - ARP(13310) = V(4510)*V(5252) - ARP(13311) = V(4510)*V(5256) - ARP(13312) = V(4510) - ARP(13313) = V(1779) - ARP(13314) = V(1779)*V(5250) - ARP(13315) = V(1779)*V(5250) - ARP(13316) = V(1482)*V(5250) - ARP(13317) = V(3079) - ARP(13318) = V(285)*V(5250) - ARP(13319) = V(3938) - ARP(13320) = V(3938)*V(5256) - ARP(13321) = V(3938)*V(5250) - ARP(13322) = V(4468)*V(5255) - ARP(13323) = V(4468)*V(5255) - ARP(13324) = V(4468)*V(5252) - ARP(13325) = V(4468)*V(5253) - ARP(13326) = V(4468)*V(5256) - ARP(13327) = V(4468) - ARP(13328) = V(2115) - ARP(13329) = V(2115)*V(5250) - ARP(13330) = V(820) - ARP(13331) = V(1173) - ARP(13332) = V(1173)*V(5250) - ARP(13333) = V(2987) - ARP(13334) = V(2987)*V(5250) - ARP(13335) = V(4274)*V(5255) - ARP(13336) = V(4274)*V(5252) - ARP(13337) = V(4274)*V(5256) - ARP(13338) = V(4274) - ARP(13339) = V(4138)*V(5255) - ARP(13340) = V(4138)*V(5252) - ARP(13341) = V(4138)*V(5256) - ARP(13342) = V(4138) - ARP(13343) = V(946) - ARP(13344) = V(946)*V(5250) - ARP(13345) = V(2718) - ARP(13346) = V(2718)*V(5250) - ARP(13347) = V(2723) - ARP(13348) = V(2723) - ARP(13349) = V(2723)*V(5250) - ARP(13350) = V(2203) - ARP(13351) = V(4384)*V(5255) - ARP(13352) = V(4384)*V(5252) - ARP(13353) = V(4384)*V(5256) - ARP(13354) = V(4384) - ARP(13355) = V(1234) - ARP(13356) = V(1234)*V(5250) - ARP(13357) = V(2877) - ARP(13358) = V(2877)*V(5250) - ARP(13359) = V(995) - ARP(13360) = V(995)*V(5250) - ARP(13361) = V(1026)*V(5250) - ARP(13362) = V(2946) - ARP(13363) = V(385)*V(5250) - ARP(13364) = V(3391) - ARP(13365) = V(3391)*V(5250) - ARP(13366) = V(4435)*V(5255) - ARP(13367) = V(4435)*V(5252) - ARP(13368) = V(4435)*V(5256) - ARP(13369) = V(4435) - ARP(13370) = V(850) - ARP(13371) = V(850)*V(5250) - ARP(13372) = V(3007) - ARP(13373) = V(3007)*V(5250) - ARP(13374) = V(4461)*V(5255) - ARP(13375) = V(4461)*V(5252) - ARP(13376) = V(4461)*V(5256) - ARP(13377) = V(4461) - ARP(13378) = V(1244) - ARP(13379) = V(1244)*V(5250) - ARP(13380) = V(3070) - ARP(13381) = V(3070)*V(5250) - ARP(13382) = V(4421)*V(5255) - ARP(13383) = V(4421)*V(5252) - ARP(13384) = V(4421)*V(5256) - ARP(13385) = V(4421) - ARP(13386) = V(1418) - ARP(13387) = V(1418)*V(5250) - ARP(13388) = V(3218) - ARP(13389) = V(3218)*V(5250) - ARP(13390) = V(4532)*V(5255) - ARP(13391) = V(4532)*V(5252) - ARP(13392) = V(4532)*V(5256) - ARP(13393) = V(4532) - ARP(13394) = V(1226) - ARP(13395) = V(1226)*V(5250) - ARP(13396) = V(3306) - ARP(13397) = V(3306)*V(5250) - ARP(13398) = V(4429)*V(5255) - ARP(13399) = V(4429)*V(5252) - ARP(13400) = V(4429)*V(5256) - ARP(13401) = V(4429) - ARP(13402) = V(1198) - ARP(13403) = V(1198)*V(5250) - ARP(13404) = V(3282) - ARP(13405) = V(3282)*V(5250) - ARP(13406) = V(142) - ARP(13407) = V(4267)*V(5255) - ARP(13408) = V(4267)*V(5255) - ARP(13409) = V(4267)*V(5252) - ARP(13410) = V(4267)*V(5253) - ARP(13411) = V(4267)*V(5256) - ARP(13412) = V(4267) - ARP(13413) = V(2911)*V(5250) - ARP(13414) = V(2911) - ARP(13415) = V(2725)*V(5250) - ARP(13416) = V(2725) - ARP(13417) = V(4489)*V(5255) - ARP(13418) = V(4489)*V(5255) - ARP(13419) = V(4489)*V(5252) - ARP(13420) = V(4489)*V(5253) - ARP(13421) = V(4489)*V(5256) - ARP(13422) = V(4489) - ARP(13423) = V(2991)*V(5250) - ARP(13424) = V(2991) - ARP(13425) = V(3040)*V(5250) - ARP(13426) = V(3040) - ARP(13427) = V(85) - ARP(13428) = V(1248)*V(5250) - ARP(13429) = V(1248) - ARP(13430) = V(3075)*V(5250) - ARP(13431) = V(3075) - ARP(13432) = V(4329)*V(5255) - ARP(13433) = V(4329)*V(5255) - ARP(13434) = V(4329)*V(5252) - ARP(13435) = V(4329)*V(5253) - ARP(13436) = V(4329)*V(5256) - ARP(13437) = V(4329) - ARP(13438) = V(2055)*V(5250) - ARP(13439) = V(2055) - ARP(13440) = V(2683)*V(5250) - ARP(13441) = V(2683) - ARP(13442) = V(2248)*V(5250) - ARP(13443) = V(2248) - ARP(13444) = V(2643)*V(5250) - ARP(13445) = V(2643) - ARP(13446) = V(499)*V(5250) - ARP(13447) = V(1460)*V(5250) - ARP(13448) = V(1460) - ARP(13449) = V(3315)*V(5250) - ARP(13450) = V(3315) - ARP(13451) = V(287)*V(5250) - ARP(13452) = V(894)*V(5250) - ARP(13453) = V(894) - ARP(13454) = V(2552)*V(5250) - ARP(13455) = V(2552) - ARP(13456) = V(4449)*V(5250) - ARP(13457) = V(4449) - ARP(13458) = V(2443)*V(5250) - ARP(13459) = V(2443) - ARP(13460) = V(2863)*V(5250) - ARP(13461) = V(2863) - ARP(13462) = V(4026)*V(5255) - ARP(13463) = V(4026)*V(5255) - ARP(13464) = V(4026)*V(5252) - ARP(13465) = V(4026)*V(5253) - ARP(13466) = V(4026)*V(5256) - ARP(13467) = V(4026) - ARP(13468) = V(2838)*V(5250) - ARP(13469) = V(2838) - ARP(13470) = V(2631)*V(5250) - ARP(13471) = V(2631) - ARP(13472) = V(4102)*V(5255) - ARP(13473) = V(4102)*V(5255) - ARP(13474) = V(4102)*V(5252) - ARP(13475) = V(4102)*V(5253) - ARP(13476) = V(4102)*V(5256) - ARP(13477) = V(4102) - ARP(13478) = V(2541)*V(5250) - ARP(13479) = V(2541) - ARP(13480) = V(2765)*V(5250) - ARP(13481) = V(2765) - ARP(13482) = V(422) - ARP(13483) = V(2171)*V(5250) - ARP(13484) = V(2171) - ARP(13485) = V(3063)*V(5250) - ARP(13486) = V(3063) - ARP(13487) = V(4620)*V(5255) - ARP(13488) = V(4620)*V(5255) - ARP(13489) = V(4620)*V(5252) - ARP(13490) = V(4620)*V(5253) - ARP(13491) = V(4620)*V(5256) - ARP(13492) = V(4620) - ARP(13493) = V(2654)*V(5250) - ARP(13494) = V(2654) - ARP(13495) = V(2794)*V(5250) - ARP(13496) = V(2794) - ARP(13497) = V(245) - ARP(13498) = V(4744)*V(5255) - ARP(13499) = V(4744)*V(5255) - ARP(13500) = V(4744)*V(5252) - ARP(13501) = V(4744)*V(5253) - ARP(13502) = V(4744)*V(5256) - ARP(13503) = V(4744) - ARP(13504) = V(2862)*V(5250) - ARP(13505) = V(2862) - ARP(13506) = V(2505)*V(5250) - ARP(13507) = V(2505) - ARP(13508) = V(23) - ARP(13509) = V(1301)*V(5250) - ARP(13510) = V(1301) - ARP(13511) = V(2919) - ARP(13512) = V(1335)*V(5250) - ARP(13513) = V(1335) - ARP(13514) = V(204) - ARP(13515) = V(72)*V(5250) - ARP(13516) = V(2349)*V(5250) - ARP(13517) = V(2349) - ARP(13518) = V(2615)*V(5250) - ARP(13519) = V(2615) - ARP(13520) = V(4175)*V(5250) - ARP(13521) = V(4175) - ARP(13522) = V(4175) - ARP(13523) = V(4731)*V(5255) - ARP(13524) = V(4731)*V(5255) - ARP(13525) = V(4731)*V(5252) - ARP(13526) = V(4731)*V(5253) - ARP(13527) = V(4731)*V(5256) - ARP(13528) = V(4731) - ARP(13529) = V(2064)*V(5250) - ARP(13530) = V(2064) - ARP(13531) = V(3019)*V(5250) - ARP(13532) = V(3019) - ARP(13533) = V(4203)*V(5255) - ARP(13534) = V(4203)*V(5255) - ARP(13535) = V(4203)*V(5252) - ARP(13536) = V(4203)*V(5253) - ARP(13537) = V(4203)*V(5256) - ARP(13538) = V(4203) - ARP(13539) = V(2263)*V(5250) - ARP(13540) = V(2263) - ARP(13541) = V(2866)*V(5250) - ARP(13542) = V(2866) - ARP(13543) = V(4445)*V(5255) - ARP(13544) = V(4445)*V(5255) - ARP(13545) = V(4445)*V(5252) - ARP(13546) = V(4445)*V(5253) - ARP(13547) = V(4445)*V(5256) - ARP(13548) = V(4445) - ARP(13549) = V(2754)*V(5250) - ARP(13550) = V(2754) - ARP(13551) = V(3052)*V(5250) - ARP(13552) = V(3052) - ARP(13553) = V(255)*V(5250) - ARP(13554) = V(901)*V(5250) - ARP(13555) = V(901) - ARP(13556) = V(2852)*V(5250) - ARP(13557) = V(2852) - ARP(13558) = V(952)*V(5250) - ARP(13559) = V(952) - ARP(13560) = V(4184) - ARP(13561) = V(626)*V(5250) - ARP(13562) = V(626) - ARP(13563) = V(4831)*V(5255) - ARP(13564) = V(4831)*V(5255) - ARP(13565) = V(4831)*V(5252) - ARP(13566) = V(4831)*V(5253) - ARP(13567) = V(4831)*V(5256) - ARP(13568) = V(4831) - ARP(13569) = V(4751)*V(5255) - ARP(13570) = V(4751)*V(5252) - ARP(13571) = V(4751)*V(5256) - ARP(13572) = V(4751) - ARP(13573) = V(3211)*V(5250) - ARP(13574) = V(3211) - ARP(13575) = V(3224)*V(5250) - ARP(13576) = V(3224) - ARP(13577) = V(10)*V(5250) - ARP(13578) = V(1006)*V(5250) - ARP(13579) = V(1006) - ARP(13580) = V(2003)*V(5250) - ARP(13581) = V(2003) - ARP(13582) = V(1222)*V(5250) - ARP(13583) = V(2183)*V(5250) - ARP(13584) = V(2183) - ARP(13585) = V(2928)*V(5250) - ARP(13586) = V(2928) - ARP(13587) = V(1494)*V(5250) - ARP(13588) = V(1970)*V(5250) - ARP(13589) = V(1970) - ARP(13590) = V(2907)*V(5250) - ARP(13591) = V(2907) - ARP(13592) = V(3477)*V(5250) - ARP(13593) = V(3477) - ARP(13594) = V(3563)*V(5250) - ARP(13595) = V(3563) - ARP(13596) = V(3392)*V(5250) - ARP(13597) = V(3392) - ARP(13598) = V(907)*V(5250) - ARP(13599) = V(907) - ARP(13600) = V(2957)*V(5250) - ARP(13601) = V(2957) - ARP(13602) = V(2580) - ARP(13603) = V(2580)*V(5250) - ARP(13604) = V(2870) - ARP(13605) = V(2870)*V(5250) - ARP(13606) = V(2635) - ARP(13607) = V(2635)*V(5250) - ARP(13608) = V(3267)*V(5250) - ARP(13609) = V(3267) - ARP(13610) = V(3267) - ARP(13611) = V(1787) - ARP(13612) = V(3217)*V(5250) - ARP(13613) = V(3217) - ARP(13614) = V(3217) - ARP(13615) = V(1892) - ARP(13616) = V(2345)*V(5250) - ARP(13617) = V(2345) - ARP(13618) = V(2966)*V(5250) - ARP(13619) = V(2966) - ARP(13620) = V(3601)*V(5250) - ARP(13621) = V(3601) - ARP(13622) = V(2486)*V(5250) - ARP(13623) = V(2486) - ARP(13624) = V(272)*V(5250) - ARP(13625) = V(1208)*V(5250) - ARP(13626) = V(1208) - ARP(13627) = V(2517)*V(5250) - ARP(13628) = V(2517) - ARP(13629) = V(2116) - ARP(13630) = V(2116)*V(5250) - ARP(13631) = V(2784) - ARP(13632) = V(2784)*V(5250) - ARP(13633) = V(1360)*V(5250) - ARP(13634) = V(1360) - ARP(13635) = V(2989) - ARP(13636) = V(3233)*V(5250) - ARP(13637) = V(1320)*V(5250) - ARP(13638) = V(1320) - ARP(13639) = V(3008)*V(5250) - ARP(13640) = V(3008) - ARP(13641) = V(886)*V(5250) - ARP(13642) = V(886) - ARP(13643) = V(2600)*V(5250) - ARP(13644) = V(2600) - ARP(13645) = V(3976)*V(5255) - ARP(13646) = V(3976)*V(5252) - ARP(13647) = V(3976)*V(5256) - ARP(13648) = V(3976) - ARP(13649) = V(1275)*V(5250) - ARP(13650) = V(1275) - ARP(13651) = V(2867)*V(5250) - ARP(13652) = V(2867) - ARP(13653) = V(986)*V(5250) - ARP(13654) = V(986) - ARP(13655) = V(3984)*V(5255) - ARP(13656) = V(3984)*V(5252) - ARP(13657) = V(3984)*V(5256) - ARP(13658) = V(3984) - ARP(13659) = V(2977)*V(5250) - ARP(13660) = V(2977) - ARP(13661) = V(4340)*V(5255) - ARP(13662) = V(4340)*V(5252) - ARP(13663) = V(4340)*V(5256) - ARP(13664) = V(4340) - ARP(13665) = V(4340) - ARP(13666) = V(4340) - ARP(13667) = V(1164)*V(5250) - ARP(13668) = V(1164) - ARP(13669) = V(4190) - ARP(13670) = V(4190) - ARP(13671) = V(879)*V(5250) - ARP(13672) = V(879) - ARP(13673) = V(2328)*V(5250) - ARP(13674) = V(2328) - ARP(13675) = V(193) - ARP(13676) = V(4224)*V(5256) - ARP(13677) = V(4224)*V(5250) - ARP(13678) = V(4224) - ARP(13679) = V(399)*V(5250) - ARP(13680) = V(1888)*V(5250) - ARP(13681) = V(1888) - ARP(13682) = V(582) - ARP(13683) = V(3838)*V(5255) - ARP(13684) = V(3838)*V(5252) - ARP(13685) = V(3838)*V(5256) - ARP(13686) = V(3838) - ARP(13687) = V(4104)*V(5250) - ARP(13688) = V(4104) - ARP(13689) = V(4597)*V(5255) - ARP(13690) = V(4597)*V(5252) - ARP(13691) = V(4597)*V(5252) - ARP(13692) = V(4597)*V(5256) - ARP(13693) = V(4597) - ARP(13694) = V(4597) - ARP(13695) = V(4597) - ARP(13696) = V(4560)*V(5255) - ARP(13697) = V(4560)*V(5252) - ARP(13698) = V(4560)*V(5256) - ARP(13699) = V(4560) - ARP(13700) = V(933)*V(5250) - ARP(13701) = V(933) - ARP(13702) = V(1018)*V(5250) - ARP(13703) = V(1018) - ARP(13704) = V(2527)*V(5250) - ARP(13705) = V(2527) - ARP(13706) = V(2380)*V(5250) - ARP(13707) = V(2380) - ARP(13708) = V(697) - ARP(13709) = V(3348)*V(5250) - ARP(13710) = V(3348) - ARP(13711) = V(1934)*V(5250) - ARP(13712) = V(1934)*V(5250) - ARP(13713) = V(1934) - ARP(13714) = V(4410)*V(5255) - ARP(13715) = V(4410)*V(5252) - ARP(13716) = V(4410)*V(5256) - ARP(13717) = V(4410) - ARP(13718) = V(4410) - ARP(13719) = V(4410) - ARP(13720) = V(4624)*V(5255) - ARP(13721) = V(4624)*V(5255) - ARP(13722) = V(4624)*V(5255) - ARP(13723) = V(4624)*V(5252) - ARP(13724) = V(4624)*V(5253) - ARP(13725) = V(4624)*V(5256) - ARP(13726) = V(4624) - ARP(13727) = V(4624) - ARP(13728) = V(4278)*V(5256) - ARP(13729) = V(4278)*V(5250) - ARP(13730) = V(4278) - ARP(13731) = V(4350)*V(5255) - ARP(13732) = V(4350)*V(5252) - ARP(13733) = V(4350)*V(5256) - ARP(13734) = V(4350) - ARP(13735) = V(4350) - ARP(13736) = V(4350) - ARP(13737) = V(4485)*V(5255) - ARP(13738) = V(4485)*V(5255) - ARP(13739) = V(4485)*V(5255) - ARP(13740) = V(4485)*V(5252) - ARP(13741) = V(4485)*V(5253) - ARP(13742) = V(4485)*V(5256) - ARP(13743) = V(4485) - ARP(13744) = V(4485) - ARP(13745) = V(4142)*V(5255) - ARP(13746) = V(4142)*V(5252) - ARP(13747) = V(4142)*V(5256) - ARP(13748) = V(4142) - ARP(13749) = V(4142) - ARP(13750) = V(4142) - ARP(13751) = V(1929)*V(5250) - ARP(13752) = V(1929) - ARP(13753) = V(942)*V(5250) - ARP(13754) = V(942) - ARP(13755) = V(2532)*V(5250) - ARP(13756) = V(2532) - ARP(13757) = V(2056) - ARP(13758) = V(418)*V(5250) - ARP(13759) = V(418) - ARP(13760) = V(4659)*V(5255) - ARP(13761) = V(4659)*V(5255) - ARP(13762) = V(4659)*V(5255) - ARP(13763) = V(4659)*V(5252) - ARP(13764) = V(4659)*V(5253) - ARP(13765) = V(4659)*V(5256) - ARP(13766) = V(4659) - ARP(13767) = V(4418)*V(5255) - ARP(13768) = V(4418)*V(5252) - ARP(13769) = V(4418)*V(5256) - ARP(13770) = V(4418) - ARP(13771) = V(4418) - ARP(13772) = V(4418) - ARP(13773) = V(2017)*V(5250) - ARP(13774) = V(2017) - ARP(13775) = V(2017) - ARP(13776) = V(553) - ARP(13777) = V(1643)*V(5250) - ARP(13778) = V(1731)*V(5250) - ARP(13779) = V(1731) - ARP(13780) = V(1350)*V(5250) - ARP(13781) = V(1350) - ARP(13782) = V(4371)*V(5255) - ARP(13783) = V(4371)*V(5252) - ARP(13784) = V(4371)*V(5256) - ARP(13785) = V(4371) - ARP(13786) = V(3436)*V(5250) - ARP(13787) = V(3436) - ARP(13788) = V(4439)*V(5255) - ARP(13789) = V(4439)*V(5255) - ARP(13790) = V(4439)*V(5252) - ARP(13791) = V(4439)*V(5253) - ARP(13792) = V(4439)*V(5256) - ARP(13793) = V(4439) - ARP(13794) = V(4752)*V(5255) - ARP(13795) = V(4752)*V(5255) - ARP(13796) = V(4752)*V(5255) - ARP(13797) = V(4752)*V(5252) - ARP(13798) = V(4752)*V(5253) - ARP(13799) = V(4752)*V(5256) - ARP(13800) = V(4752) - ARP(13801) = V(4752) - ARP(13802) = V(4019)*V(5255) - ARP(13803) = V(4019)*V(5252) - ARP(13804) = V(4019)*V(5252) - ARP(13805) = V(4019)*V(5256) - ARP(13806) = V(4019) - ARP(13807) = V(4019) - ARP(13808) = V(4019) - ARP(13809) = V(984)*V(5250) - ARP(13810) = V(984) - ARP(13811) = V(2750) - ARP(13812) = V(662)*V(5250) - ARP(13813) = V(4242)*V(5255) - ARP(13814) = V(4242)*V(5252) - ARP(13815) = V(4242)*V(5256) - ARP(13816) = V(4242) - ARP(13817) = V(4242) - ARP(13818) = V(1272)*V(5250) - ARP(13819) = V(1272) - ARP(13820) = V(2007)*V(5250) - ARP(13821) = V(2561) - ARP(13822) = V(793)*V(5250) - ARP(13823) = V(1126)*V(5250) - ARP(13824) = V(1126) - ARP(13825) = V(2072)*V(5250) - ARP(13826) = V(2072) - ARP(13827) = V(2073) - ARP(13828) = V(5189)*V(5256) - ARP(13829) = V(5189)*V(5256) - ARP(13830) = V(5189)*V(5258) - ARP(13831) = V(5189)*V(5258) - ARP(13832) = V(5189)*V(5250) - ARP(13833) = V(5189)*V(5250) - ARP(13834) = V(5189) - ARP(13835) = V(465)*V(5250) - ARP(13836) = V(4098)*V(5255) - ARP(13837) = V(4098)*V(5252) - ARP(13838) = V(4098)*V(5256) - ARP(13839) = V(4098) - ARP(13840) = V(4098) - ARP(13841) = V(4098) - ARP(13842) = V(1070)*V(5250) - ARP(13843) = V(1070) - ARP(13844) = V(2063)*V(5250) - ARP(13845) = V(2063) - ARP(13846) = V(168) - ARP(13847) = V(3270)*V(5250) - ARP(13848) = V(3270) - ARP(13849) = V(478)*V(5250) - ARP(13850) = V(2062)*V(5250) - ARP(13851) = V(2062) - ARP(13852) = V(704) - ARP(13853) = V(1617) - ARP(13854) = V(1617) - ARP(13855) = V(515)*V(5250) - ARP(13856) = V(1511)*V(5250) - ARP(13857) = V(1511) - ARP(13858) = V(2688)*V(5250) - ARP(13859) = V(2688) - ARP(13860) = V(1119)*V(5250) - ARP(13861) = V(1119) - ARP(13862) = V(1551)*V(5250) - ARP(13863) = V(1551) - ARP(13864) = V(174) - ARP(13865) = V(1550)*V(5250) - ARP(13866) = V(257)*V(5250) - ARP(13867) = V(4652)*V(5255) - ARP(13868) = V(4652)*V(5255) - ARP(13869) = V(4652)*V(5255) - ARP(13870) = V(4652)*V(5252) - ARP(13871) = V(4652)*V(5253) - ARP(13872) = V(4652)*V(5256) - ARP(13873) = V(4652) - ARP(13874) = V(4652) - ARP(13875) = V(4825)*V(5255) - ARP(13876) = V(4825)*V(5252) - ARP(13877) = V(4825)*V(5252) - ARP(13878) = V(4825)*V(5256) - ARP(13879) = V(4825) - ARP(13880) = V(4825) - ARP(13881) = V(4825) - ARP(13882) = V(1004)*V(5250) - ARP(13883) = V(1004) - ARP(13884) = V(2157)*V(5250) - ARP(13885) = V(2157) - ARP(13886) = V(151) - ARP(13887) = V(3213)*V(5250) - ARP(13888) = V(3213) - ARP(13889) = V(409)*V(5250) - ARP(13890) = V(1149)*V(5250) - ARP(13891) = V(1149) - ARP(13892) = V(1591)*V(5250) - ARP(13893) = V(1591) - ARP(13894) = V(190) - ARP(13895) = V(1590)*V(5250) - ARP(13896) = V(266)*V(5250) - ARP(13897) = V(1801)*V(5250) - ARP(13898) = V(1801) - ARP(13899) = V(2524)*V(5250) - ARP(13900) = V(2524) - ARP(13901) = V(1614) - ARP(13902) = V(813)*V(5250) - ARP(13903) = V(1331)*V(5250) - ARP(13904) = V(1331) - ARP(13905) = V(2195)*V(5250) - ARP(13906) = V(2195) - ARP(13907) = V(211) - ARP(13908) = V(108)*V(5250) - ARP(13909) = V(378)*V(5250) - ARP(13910) = V(1480)*V(5250) - ARP(13911) = V(1480) - ARP(13912) = V(3722)*V(5255) - ARP(13913) = V(3722)*V(5252) - ARP(13914) = V(3722)*V(5252) - ARP(13915) = V(3722)*V(5256) - ARP(13916) = V(3722) - ARP(13917) = V(3722) - ARP(13918) = V(3722) - ARP(13919) = V(2829)*V(5250) - ARP(13920) = V(2829) - ARP(13921) = V(3420)*V(5250) - ARP(13922) = V(3420) - ARP(13923) = V(4172)*V(5255) - ARP(13924) = V(4172)*V(5252) - ARP(13925) = V(4172)*V(5252) - ARP(13926) = V(4172)*V(5256) - ARP(13927) = V(4172) - ARP(13928) = V(4172) - ARP(13929) = V(4172) - ARP(13930) = V(965)*V(5250) - ARP(13931) = V(965) - ARP(13932) = V(1620) - ARP(13933) = V(118)*V(5250) - ARP(13934) = V(883)*V(5250) - ARP(13935) = V(883) - ARP(13936) = V(2621)*V(5250) - ARP(13937) = V(2621) - ARP(13938) = V(2293) - ARP(13939) = V(99)*V(5250) - ARP(13940) = V(1333)*V(5250) - ARP(13941) = V(1333) - ARP(13942) = V(113) - ARP(13943) = V(213)*V(5250) - ARP(13944) = V(2975)*V(5250) - ARP(13945) = V(2975) - ARP(13946) = V(2975) - ARP(13947) = V(2210) - ARP(13948) = V(902)*V(5250) - ARP(13949) = V(902) - ARP(13950) = V(2724) - ARP(13951) = V(4207)*V(5255) - ARP(13952) = V(4207)*V(5255) - ARP(13953) = V(4207)*V(5252) - ARP(13954) = V(4207)*V(5253) - ARP(13955) = V(4207)*V(5256) - ARP(13956) = V(4207) - ARP(13957) = V(1236) - ARP(13958) = V(1236)*V(5250) - ARP(13959) = V(2845) - ARP(13960) = V(2845)*V(5250) - ARP(13961) = V(1759) - ARP(13962) = V(1759) - ARP(13963) = V(1759)*V(5250) - ARP(13964) = V(545) - ARP(13965) = V(2930) - ARP(13966) = V(2930) - ARP(13967) = V(2930)*V(5250) - ARP(13968) = V(2201) - ARP(13969) = V(3274) - ARP(13970) = V(3274) - ARP(13971) = V(3274)*V(5250) - ARP(13972) = V(2024) - ARP(13973) = V(3899)*V(5255) - ARP(13974) = V(3899)*V(5252) - ARP(13975) = V(3899)*V(5256) - ARP(13976) = V(3899) - ARP(13977) = V(1268) - ARP(13978) = V(1268)*V(5250) - ARP(13979) = V(2960) - ARP(13980) = V(1137) - ARP(13981) = V(1137)*V(5250) - ARP(13982) = V(3073) - ARP(13983) = V(960) - ARP(13984) = V(960)*V(5250) - ARP(13985) = V(2751) - ARP(13986) = V(1271) - ARP(13987) = V(1271)*V(5250) - ARP(13988) = V(2853) - ARP(13989) = V(1338) - ARP(13990) = V(1338)*V(5250) - ARP(13991) = V(3058) - ARP(13992) = V(2763)*V(5250) - ARP(13993) = V(2763) - ARP(13994) = V(2529)*V(5250) - ARP(13995) = V(2529) - ARP(13996) = V(2414)*V(5250) - ARP(13997) = V(2414) - ARP(13998) = V(2859)*V(5250) - ARP(13999) = V(2859) - ARP(14000) = V(2039)*V(5250) - ARP(14001) = V(2039) - ARP(14002) = V(2970)*V(5250) - ARP(14003) = V(2970) - ARP(14004) = V(3546)*V(5256) - ARP(14005) = V(3546)*V(5250) - ARP(14006) = V(3546) - ARP(14007) = V(2652)*V(5250) - ARP(14008) = V(2652) - ARP(14009) = V(2998)*V(5250) - ARP(14010) = V(2998) - ARP(14011) = V(1982)*V(5250) - ARP(14012) = V(1982) - ARP(14013) = V(2901)*V(5250) - ARP(14014) = V(2901) - ARP(14015) = V(75)*V(5250) - ARP(14016) = V(1879)*V(5250) - ARP(14017) = V(1879) - ARP(14018) = V(2721)*V(5250) - ARP(14019) = V(2721) - ARP(14020) = V(15)*V(5250) - ARP(14021) = V(2026)*V(5250) - ARP(14022) = V(2026) - ARP(14023) = V(3061)*V(5250) - ARP(14024) = V(3061) - ARP(14025) = V(122)*V(5250) - ARP(14026) = V(4214)*V(5255) - ARP(14027) = V(4214)*V(5255) - ARP(14028) = V(4214)*V(5252) - ARP(14029) = V(4214)*V(5253) - ARP(14030) = V(4214)*V(5256) - ARP(14031) = V(4214) - ARP(14032) = V(2082)*V(5250) - ARP(14033) = V(2082) - ARP(14034) = V(2700)*V(5250) - ARP(14035) = V(2700) - ARP(14036) = V(2899)*V(5250) - ARP(14037) = V(2899) - ARP(14038) = V(3014)*V(5250) - ARP(14039) = V(3014) - ARP(14040) = V(2388)*V(5250) - ARP(14041) = V(2388) - ARP(14042) = V(2833)*V(5250) - ARP(14043) = V(2833) - ARP(14044) = V(2336)*V(5250) - ARP(14045) = V(2336) - ARP(14046) = V(2507)*V(5250) - ARP(14047) = V(2507) - ARP(14048) = V(3257)*V(5250) - ARP(14049) = V(3257) - ARP(14050) = V(1392)*V(5250) - ARP(14051) = V(1392) - ARP(14052) = V(3071) - ARP(14053) = V(1639)*V(5250) - ARP(14054) = V(1639) - ARP(14055) = V(4462)*V(5256) - ARP(14056) = V(4462)*V(5250) - ARP(14057) = V(4462) - ARP(14058) = V(4462) - ARP(14059) = V(2348)*V(5250) - ARP(14060) = V(2348) - ARP(14061) = V(795) - ARP(14062) = V(2217)*V(5250) - ARP(14063) = V(2217) - ARP(14064) = V(617) - ARP(14065) = V(4902)*V(5256) - ARP(14066) = V(4902)*V(5250) - ARP(14067) = V(4902) - ARP(14068) = V(1932)*V(5250) - ARP(14069) = V(1932) - ARP(14070) = V(714) - ARP(14071) = V(583)*V(5250) - ARP(14072) = V(583) - ARP(14073) = V(3694)*V(5255) - ARP(14074) = V(3694)*V(5252) - ARP(14075) = V(3694)*V(5256) - ARP(14076) = V(3694) - ARP(14077) = V(3694) - ARP(14078) = V(4496)*V(5255) - ARP(14079) = V(4496)*V(5255) - ARP(14080) = V(4496)*V(5255) - ARP(14081) = V(4496)*V(5252) - ARP(14082) = V(4496)*V(5253) - ARP(14083) = V(4496)*V(5256) - ARP(14084) = V(4496) - ARP(14085) = V(4496) - ARP(14086) = V(4295)*V(5255) - ARP(14087) = V(4295)*V(5252) - ARP(14088) = V(4295)*V(5256) - ARP(14089) = V(4295) - ARP(14090) = V(1985)*V(5250) - ARP(14091) = V(1985) - ARP(14092) = V(775) - ARP(14093) = V(1414)*V(5250) - ARP(14094) = V(1414) - ARP(14095) = V(2332)*V(5250) - ARP(14096) = V(2332) - ARP(14097) = V(2953) - ARP(14098) = V(633)*V(5250) - ARP(14099) = V(633) - ARP(14100) = V(2404)*V(5250) - ARP(14101) = V(2404) - ARP(14102) = V(581) - ARP(14103) = V(4867)*V(5255) - ARP(14104) = V(4867)*V(5255) - ARP(14105) = V(4867)*V(5255) - ARP(14106) = V(4867)*V(5252) - ARP(14107) = V(4867)*V(5253) - ARP(14108) = V(4867)*V(5256) - ARP(14109) = V(4867) - ARP(14110) = V(4867) - ARP(14111) = V(1094)*V(5250) - ARP(14112) = V(1094) - ARP(14113) = V(1732) - ARP(14114) = V(3309)*V(5250) - ARP(14115) = V(3309) - ARP(14116) = V(3309) - ARP(14117) = V(789)*V(5250) - ARP(14118) = V(789) - ARP(14119) = V(1189)*V(5250) - ARP(14120) = V(1189) - ARP(14121) = V(849)*V(5250) - ARP(14122) = V(849) - ARP(14123) = V(4131)*V(5255) - ARP(14124) = V(4131)*V(5252) - ARP(14125) = V(4131)*V(5256) - ARP(14126) = V(4131) - ARP(14127) = V(4131) - ARP(14128) = V(4131) - ARP(14129) = V(2564)*V(5250) - ARP(14130) = V(2564) - ARP(14131) = V(1312)*V(5250) - ARP(14132) = V(1312) - ARP(14133) = V(3913) - ARP(14134) = V(3913) - ARP(14135) = V(696)*V(5250) - ARP(14136) = V(696) - ARP(14137) = V(1163)*V(5250) - ARP(14138) = V(1163) - ARP(14139) = V(1402)*V(5250) - ARP(14140) = V(1402) - ARP(14141) = V(3715)*V(5255) - ARP(14142) = V(3715)*V(5252) - ARP(14143) = V(3715)*V(5252) - ARP(14144) = V(3715)*V(5256) - ARP(14145) = V(3715) - ARP(14146) = V(3715) - ARP(14147) = V(3715) - ARP(14148) = V(2984)*V(5250) - ARP(14149) = V(2984) - ARP(14150) = V(1139)*V(5250) - ARP(14151) = V(1139) - ARP(14152) = V(1579) - ARP(14153) = V(3557)*V(5250) - ARP(14154) = V(3557) - ARP(14155) = V(657)*V(5250) - ARP(14156) = V(657) - ARP(14157) = V(3750)*V(5255) - ARP(14158) = V(3750)*V(5252) - ARP(14159) = V(3750)*V(5252) - ARP(14160) = V(3750)*V(5256) - ARP(14161) = V(3750) - ARP(14162) = V(3750) - ARP(14163) = V(3750) - ARP(14164) = V(823)*V(5250) - ARP(14165) = V(823) - ARP(14166) = V(1348)*V(5250) - ARP(14167) = V(1348) - ARP(14168) = V(2523)*V(5250) - ARP(14169) = V(2523) - ARP(14170) = V(2018)*V(5250) - ARP(14171) = V(2018) - ARP(14172) = V(2018) - ARP(14173) = V(739) - ARP(14174) = V(1618)*V(5250) - ARP(14175) = V(1618) - ARP(14176) = V(3337)*V(5250) - ARP(14177) = V(3337) - ARP(14178) = V(4644)*V(5255) - ARP(14179) = V(4644)*V(5252) - ARP(14180) = V(4644)*V(5256) - ARP(14181) = V(4644) - ARP(14182) = V(3006)*V(5250) - ARP(14183) = V(3006) - ARP(14184) = V(687) - ARP(14185) = V(1925)*V(5250) - ARP(14186) = V(1925) - ARP(14187) = V(842)*V(5250) - ARP(14188) = V(842) - ARP(14189) = V(2584)*V(5250) - ARP(14190) = V(2584) - ARP(14191) = V(375)*V(5250) - ARP(14192) = V(1008)*V(5250) - ARP(14193) = V(1008) - ARP(14194) = V(2772)*V(5250) - ARP(14195) = V(2772) - ARP(14196) = V(948)*V(5250) - ARP(14197) = V(948) - ARP(14198) = V(1941)*V(5250) - ARP(14199) = V(1941) - ARP(14200) = V(1942) - ARP(14201) = V(268)*V(5250) - ARP(14202) = V(5177)*V(5256) - ARP(14203) = V(5177)*V(5250) - ARP(14204) = V(5177) - ARP(14205) = V(1887)*V(5250) - ARP(14206) = V(1887) - ARP(14207) = V(1887) - ARP(14208) = V(1691) - ARP(14209) = V(1561)*V(5250) - ARP(14210) = V(1561) - ARP(14211) = V(4955)*V(5255) - ARP(14212) = V(4955)*V(5255) - ARP(14213) = V(4955)*V(5255) - ARP(14214) = V(4955)*V(5252) - ARP(14215) = V(4955)*V(5253) - ARP(14216) = V(4955)*V(5256) - ARP(14217) = V(4955) - ARP(14218) = V(4955) - ARP(14219) = V(3895)*V(5255) - ARP(14220) = V(3895)*V(5252) - ARP(14221) = V(3895)*V(5256) - ARP(14222) = V(3895) - ARP(14223) = V(3895) - ARP(14224) = V(112) - ARP(14225) = V(3974)*V(5255) - ARP(14226) = V(3974)*V(5252) - ARP(14227) = V(3974)*V(5252) - ARP(14228) = V(3974)*V(5256) - ARP(14229) = V(3974) - ARP(14230) = V(3974) - ARP(14231) = V(1181)*V(5250) - ARP(14232) = V(1181) - ARP(14233) = V(2890) - ARP(14234) = V(1756)*V(5250) - ARP(14235) = V(1756) - ARP(14236) = V(430)*V(5250) - ARP(14237) = V(4315)*V(5255) - ARP(14238) = V(4315)*V(5252) - ARP(14239) = V(4315)*V(5256) - ARP(14240) = V(4315) - ARP(14241) = V(4315) - ARP(14242) = V(4315) - ARP(14243) = V(3908)*V(5255) - ARP(14244) = V(3908)*V(5252) - ARP(14245) = V(3908)*V(5252) - ARP(14246) = V(3908)*V(5256) - ARP(14247) = V(3908) - ARP(14248) = V(3908) - ARP(14249) = V(3908) - ARP(14250) = V(4681)*V(5255) - ARP(14251) = V(4681)*V(5255) - ARP(14252) = V(4681)*V(5255) - ARP(14253) = V(4681)*V(5252) - ARP(14254) = V(4681)*V(5253) - ARP(14255) = V(4681)*V(5256) - ARP(14256) = V(4681) - ARP(14257) = V(4681) - ARP(14258) = V(4442)*V(5255) - ARP(14259) = V(4442)*V(5252) - ARP(14260) = V(4442)*V(5252) - ARP(14261) = V(4442)*V(5256) - ARP(14262) = V(4442) - ARP(14263) = V(4442) - ARP(14264) = V(4442) - ARP(14265) = V(388)*V(5250) - ARP(14266) = V(1336)*V(5250) - ARP(14267) = V(1336) - ARP(14268) = V(3698)*V(5255) - ARP(14269) = V(3698)*V(5252) - ARP(14270) = V(3698)*V(5252) - ARP(14271) = V(3698)*V(5256) - ARP(14272) = V(3698) - ARP(14273) = V(3698) - ARP(14274) = V(3698) - ARP(14275) = V(3313)*V(5250) - ARP(14276) = V(3313) - ARP(14277) = V(882)*V(5250) - ARP(14278) = V(882) - ARP(14279) = V(2311)*V(5250) - ARP(14280) = V(2311) - ARP(14281) = V(3957) - ARP(14282) = V(3957) - ARP(14283) = V(3374)*V(5250) - ARP(14284) = V(3374) - ARP(14285) = V(699)*V(5250) - ARP(14286) = V(699) - ARP(14287) = V(4319)*V(5255) - ARP(14288) = V(4319)*V(5252) - ARP(14289) = V(4319)*V(5252) - ARP(14290) = V(4319)*V(5256) - ARP(14291) = V(4319) - ARP(14292) = V(4319) - ARP(14293) = V(4672)*V(5255) - ARP(14294) = V(4672)*V(5252) - ARP(14295) = V(4672)*V(5252) - ARP(14296) = V(4672)*V(5256) - ARP(14297) = V(4672) - ARP(14298) = V(4672) - ARP(14299) = V(4672) - ARP(14300) = V(3397)*V(5250) - ARP(14301) = V(3397) - ARP(14302) = V(4130)*V(5255) - ARP(14303) = V(4130)*V(5252) - ARP(14304) = V(4130)*V(5256) - ARP(14305) = V(4130) - ARP(14306) = V(4130) - ARP(14307) = V(4130) - ARP(14308) = V(3373)*V(5250) - ARP(14309) = V(3373) - ARP(14310) = V(4162)*V(5255) - ARP(14311) = V(4162)*V(5252) - ARP(14312) = V(4162)*V(5252) - ARP(14313) = V(4162)*V(5256) - ARP(14314) = V(4162) - ARP(14315) = V(4162) - ARP(14316) = V(4162) - ARP(14317) = V(1413)*V(5250) - ARP(14318) = V(1413) - ARP(14319) = V(1649)*V(5250) - ARP(14320) = V(1649) - ARP(14321) = V(191) - ARP(14322) = V(1648)*V(5250) - ARP(14323) = V(410)*V(5250) - ARP(14324) = V(955)*V(5250) - ARP(14325) = V(955) - ARP(14326) = V(2673)*V(5250) - ARP(14327) = V(2673) - ARP(14328) = V(1986) - ARP(14329) = V(441)*V(5250) - ARP(14330) = V(5245)*V(5255) - ARP(14331) = V(5245)*V(5255) - ARP(14332) = V(5245)*V(5255) - ARP(14333) = V(5245)*V(5252) - ARP(14334) = V(5245)*V(5253) - ARP(14335) = V(5245)*V(5256) - ARP(14336) = V(5245) - ARP(14337) = V(5245) - ARP(14338) = V(3431)*V(5250) - ARP(14339) = V(3431) - ARP(14340) = V(4147)*V(5255) - ARP(14341) = V(4147)*V(5252) - ARP(14342) = V(4147)*V(5256) - ARP(14343) = V(4147) - ARP(14344) = V(4147) - ARP(14345) = V(4147) - ARP(14346) = V(2965)*V(5250) - ARP(14347) = V(3902)*V(5255) - ARP(14348) = V(3902)*V(5252) - ARP(14349) = V(3902)*V(5252) - ARP(14350) = V(3902)*V(5256) - ARP(14351) = V(3902) - ARP(14352) = V(3902) - ARP(14353) = V(3902) - ARP(14354) = V(3612)*V(5250) - ARP(14355) = V(3612) - ARP(14356) = V(2251) - ARP(14357) = V(2251)*V(5250) - ARP(14358) = V(2800) - ARP(14359) = V(2800)*V(5250) - ARP(14360) = V(2556) - ARP(14361) = V(2556) - ARP(14362) = V(2556)*V(5250) - ARP(14363) = V(2279) - ARP(14364) = V(4423)*V(5255) - ARP(14365) = V(4423)*V(5252) - ARP(14366) = V(4423)*V(5256) - ARP(14367) = V(4423) - ARP(14368) = V(4423) - ARP(14369) = V(4482)*V(5255) - ARP(14370) = V(4482)*V(5252) - ARP(14371) = V(4482)*V(5256) - ARP(14372) = V(4482) - ARP(14373) = V(4482) - ARP(14374) = V(4426)*V(5255) - ARP(14375) = V(4426)*V(5252) - ARP(14376) = V(4426)*V(5256) - ARP(14377) = V(4426) - ARP(14378) = V(4426) - ARP(14379) = V(2159)*V(5250) - ARP(14380) = V(2159) - ARP(14381) = V(2608)*V(5250) - ARP(14382) = V(2608) - ARP(14383) = V(4759)*V(5255) - ARP(14384) = V(4759)*V(5255) - ARP(14385) = V(4759)*V(5252) - ARP(14386) = V(4759)*V(5253) - ARP(14387) = V(4759)*V(5256) - ARP(14388) = V(4759) - ARP(14389) = V(4875)*V(5255) - ARP(14390) = V(4875)*V(5252) - ARP(14391) = V(4875)*V(5256) - ARP(14392) = V(4875) - ARP(14393) = V(3719)*V(5255) - ARP(14394) = V(3719)*V(5252) - ARP(14395) = V(3719)*V(5256) - ARP(14396) = V(3719) - ARP(14397) = V(935)*V(5250) - ARP(14398) = V(935) - ARP(14399) = V(169) - ARP(14400) = V(40)*V(5250) - ARP(14401) = V(1209)*V(5250) - ARP(14402) = V(1209) - ARP(14403) = V(351)*V(5250) - ARP(14404) = V(3327)*V(5250) - ARP(14405) = V(3327) - ARP(14406) = V(1761)*V(5250) - ARP(14407) = V(1761) - ARP(14408) = V(25) - ARP(14409) = V(3846)*V(5255) - ARP(14410) = V(3846)*V(5252) - ARP(14411) = V(3846)*V(5256) - ARP(14412) = V(3846) - ARP(14413) = V(906)*V(5250) - ARP(14414) = V(906) - ARP(14415) = V(1541)*V(5250) - ARP(14416) = V(1541) - ARP(14417) = V(2660)*V(5250) - ARP(14418) = V(2660) - ARP(14419) = V(4409)*V(5255) - ARP(14420) = V(4409)*V(5255) - ARP(14421) = V(4409)*V(5252) - ARP(14422) = V(4409)*V(5253) - ARP(14423) = V(4409)*V(5256) - ARP(14424) = V(4409) - ARP(14425) = V(4447)*V(5255) - ARP(14426) = V(4447)*V(5252) - ARP(14427) = V(4447)*V(5256) - ARP(14428) = V(4447) - ARP(14429) = V(1958)*V(5250) - ARP(14430) = V(1958) - ARP(14431) = V(774) - ARP(14432) = V(3365)*V(5250) - ARP(14433) = V(3365) - ARP(14434) = V(279)*V(5250) - ARP(14435) = V(3248)*V(5256) - ARP(14436) = V(3248)*V(5250) - ARP(14437) = V(3248) - ARP(14438) = V(1264)*V(5250) - ARP(14439) = V(1264) - ARP(14440) = V(2032)*V(5250) - ARP(14441) = V(2032) - ARP(14442) = V(2033) - ARP(14443) = V(5072)*V(5256) - ARP(14444) = V(5072)*V(5256) - ARP(14445) = V(5072)*V(5250) - ARP(14446) = V(5072)*V(5250) - ARP(14447) = V(5072) - ARP(14448) = V(5072) - ARP(14449) = V(772)*V(5250) - ARP(14450) = V(772) - ARP(14451) = V(1528)*V(5250) - ARP(14452) = V(1528) - ARP(14453) = V(1811)*V(5250) - ARP(14454) = V(1811) - ARP(14455) = V(1812) - ARP(14456) = V(527)*V(5250) - ARP(14457) = V(527) - ARP(14458) = V(2445)*V(5250) - ARP(14459) = V(2445) - ARP(14460) = V(731) - ARP(14461) = V(4486)*V(5255) - ARP(14462) = V(4486)*V(5252) - ARP(14463) = V(4486)*V(5256) - ARP(14464) = V(4486) - ARP(14465) = V(4636)*V(5255) - ARP(14466) = V(4636)*V(5255) - ARP(14467) = V(4636)*V(5255) - ARP(14468) = V(4636)*V(5252) - ARP(14469) = V(4636)*V(5253) - ARP(14470) = V(4636)*V(5256) - ARP(14471) = V(4636) - ARP(14472) = V(4636) - ARP(14473) = V(5113)*V(5250) - ARP(14474) = V(5113) - ARP(14475) = V(5113) - ARP(14476) = V(294)*V(5250) - ARP(14477) = V(916)*V(5250) - ARP(14478) = V(916) - ARP(14479) = V(3010)*V(5250) - ARP(14480) = V(3010) - ARP(14481) = V(971)*V(5250) - ARP(14482) = V(971) - ARP(14483) = V(2916) - ARP(14484) = V(543)*V(5250) - ARP(14485) = V(4625)*V(5255) - ARP(14486) = V(4625)*V(5252) - ARP(14487) = V(4625)*V(5256) - ARP(14488) = V(4625) - ARP(14489) = V(4625) - ARP(14490) = V(1381)*V(5250) - ARP(14491) = V(1381) - ARP(14492) = V(1766)*V(5250) - ARP(14493) = V(2591) - ARP(14494) = V(650)*V(5250) - ARP(14495) = V(5187)*V(5256) - ARP(14496) = V(5187)*V(5256) - ARP(14497) = V(5187)*V(5258) - ARP(14498) = V(5187)*V(5258) - ARP(14499) = V(5187)*V(5250) - ARP(14500) = V(5187)*V(5250) - ARP(14501) = V(5027)*V(5255) - ARP(14502) = V(5027)*V(5255) - ARP(14503) = V(5027)*V(5255) - ARP(14504) = V(5027)*V(5252) - ARP(14505) = V(5027)*V(5253) - ARP(14506) = V(5027)*V(5256) - ARP(14507) = V(5027) - ARP(14508) = V(5027) - ARP(14509) = V(2312)*V(5250) - ARP(14510) = V(2312) - ARP(14511) = V(625) - ARP(14512) = V(1493)*V(5250) - ARP(14513) = V(1493) - ARP(14514) = V(247)*V(5250) - ARP(14515) = V(1463)*V(5250) - ARP(14516) = V(1463) - ARP(14517) = V(2224)*V(5250) - ARP(14518) = V(2224) - ARP(14519) = V(203) - ARP(14520) = V(481)*V(5250) - ARP(14521) = V(1250)*V(5250) - ARP(14522) = V(1250) - ARP(14523) = V(3743)*V(5255) - ARP(14524) = V(3743)*V(5252) - ARP(14525) = V(3743)*V(5252) - ARP(14526) = V(3743)*V(5256) - ARP(14527) = V(3743) - ARP(14528) = V(3743) - ARP(14529) = V(3743) - ARP(14530) = V(360)*V(5250) - ARP(14531) = V(3323)*V(5250) - ARP(14532) = V(3323) - ARP(14533) = V(1546)*V(5250) - ARP(14534) = V(1546) - ARP(14535) = V(2136)*V(5250) - ARP(14536) = V(2136) - ARP(14537) = V(3613) - ARP(14538) = V(3613) - ARP(14539) = V(1660)*V(5250) - ARP(14540) = V(382)*V(5250) - ARP(14541) = V(872)*V(5250) - ARP(14542) = V(872) - ARP(14543) = V(1972)*V(5250) - ARP(14544) = V(1972) - ARP(14545) = V(178) - ARP(14546) = V(2773)*V(5250) - ARP(14547) = V(2773) - ARP(14548) = V(313)*V(5250) - ARP(14549) = V(5130)*V(5255) - ARP(14550) = V(5130)*V(5252) - ARP(14551) = V(5130)*V(5252) - ARP(14552) = V(5130)*V(5256) - ARP(14553) = V(5130) - ARP(14554) = V(5130) - ARP(14555) = V(4572)*V(5255) - ARP(14556) = V(4572)*V(5252) - ARP(14557) = V(4572)*V(5256) - ARP(14558) = V(4572) - ARP(14559) = V(4572) - ARP(14560) = V(4572) - ARP(14561) = V(4839)*V(5255) - ARP(14562) = V(4839)*V(5255) - ARP(14563) = V(4839)*V(5255) - ARP(14564) = V(4839)*V(5252) - ARP(14565) = V(4839)*V(5253) - ARP(14566) = V(4839)*V(5256) - ARP(14567) = V(4839) - ARP(14568) = V(4839) - ARP(14569) = V(1155)*V(5250) - ARP(14570) = V(1155) - ARP(14571) = V(2327)*V(5250) - ARP(14572) = V(2327) - ARP(14573) = V(297) - ARP(14574) = V(134)*V(5250) - ARP(14575) = V(1162)*V(5250) - ARP(14576) = V(1162) - ARP(14577) = V(2164)*V(5250) - ARP(14578) = V(2164) - ARP(14579) = V(3737) - ARP(14580) = V(3737) - ARP(14581) = V(3736)*V(5250) - ARP(14582) = V(415)*V(5250) - ARP(14583) = V(4812)*V(5255) - ARP(14584) = V(4812)*V(5255) - ARP(14585) = V(4812)*V(5255) - ARP(14586) = V(4812)*V(5252) - ARP(14587) = V(4812)*V(5253) - ARP(14588) = V(4812)*V(5256) - ARP(14589) = V(4812) - ARP(14590) = V(4812) - ARP(14591) = V(2440)*V(5250) - ARP(14592) = V(2440) - ARP(14593) = V(817) - ARP(14594) = V(406)*V(5250) - ARP(14595) = V(1060)*V(5250) - ARP(14596) = V(1060) - ARP(14597) = V(1813)*V(5250) - ARP(14598) = V(1813) - ARP(14599) = V(1814) - ARP(14600) = V(394)*V(5250) - ARP(14601) = V(4196)*V(5255) - ARP(14602) = V(4196)*V(5252) - ARP(14603) = V(4196)*V(5252) - ARP(14604) = V(4196)*V(5256) - ARP(14605) = V(4196) - ARP(14606) = V(4196) - ARP(14607) = V(4196) - ARP(14608) = V(367)*V(5250) - ARP(14609) = V(1199)*V(5250) - ARP(14610) = V(1199) - ARP(14611) = V(3841)*V(5255) - ARP(14612) = V(3841)*V(5252) - ARP(14613) = V(3841)*V(5252) - ARP(14614) = V(3841)*V(5256) - ARP(14615) = V(3841) - ARP(14616) = V(3841) - ARP(14617) = V(3841) - ARP(14618) = V(2813)*V(5250) - ARP(14619) = V(2813) - ARP(14620) = V(4673)*V(5255) - ARP(14621) = V(4673)*V(5255) - ARP(14622) = V(4673)*V(5255) - ARP(14623) = V(4673)*V(5252) - ARP(14624) = V(4673)*V(5253) - ARP(14625) = V(4673)*V(5256) - ARP(14626) = V(4673) - ARP(14627) = V(4673) - ARP(14628) = V(1871)*V(5250) - ARP(14629) = V(1871) - ARP(14630) = V(810) - ARP(14631) = V(411)*V(5250) - ARP(14632) = V(4137)*V(5255) - ARP(14633) = V(4137)*V(5252) - ARP(14634) = V(4137)*V(5252) - ARP(14635) = V(4137)*V(5256) - ARP(14636) = V(4137) - ARP(14637) = V(4137) - ARP(14638) = V(1295)*V(5250) - ARP(14639) = V(1295) - ARP(14640) = V(1930)*V(5250) - ARP(14641) = V(1930) - ARP(14642) = V(1931) - ARP(14643) = V(218)*V(5250) - ARP(14644) = V(973)*V(5250) - ARP(14645) = V(973) - ARP(14646) = V(163) - ARP(14647) = V(101)*V(5250) - ARP(14648) = V(1357)*V(5250) - ARP(14649) = V(1357) - ARP(14650) = V(164) - ARP(14651) = V(98)*V(5250) - ARP(14652) = V(1464)*V(5250) - ARP(14653) = V(1464) - ARP(14654) = V(152) - ARP(14655) = V(26)*V(5250) - ARP(14656) = V(1085)*V(5250) - ARP(14657) = V(1085) - ARP(14658) = V(2510)*V(5250) - ARP(14659) = V(2510) - ARP(14660) = V(1784)*V(5250) - ARP(14661) = V(1784) - ARP(14662) = V(655) - ARP(14663) = V(989)*V(5250) - ARP(14664) = V(989) - ARP(14665) = V(76) - ARP(14666) = V(4157)*V(5255) - ARP(14667) = V(4157)*V(5252) - ARP(14668) = V(4157)*V(5252) - ARP(14669) = V(4157)*V(5256) - ARP(14670) = V(4157) - ARP(14671) = V(4157) - ARP(14672) = V(4497)*V(5255) - ARP(14673) = V(4497)*V(5252) - ARP(14674) = V(4497)*V(5256) - ARP(14675) = V(4497) - ARP(14676) = V(863)*V(5250) - ARP(14677) = V(863) - ARP(14678) = V(2694) - ARP(14679) = V(1146)*V(5250) - ARP(14680) = V(1146) - ARP(14681) = V(2573)*V(5250) - ARP(14682) = V(2573) - ARP(14683) = V(1522)*V(5250) - ARP(14684) = V(1522) - ARP(14685) = V(2667) - ARP(14686) = V(4854)*V(5255) - ARP(14687) = V(4854)*V(5255) - ARP(14688) = V(4854)*V(5255) - ARP(14689) = V(4854)*V(5252) - ARP(14690) = V(4854)*V(5253) - ARP(14691) = V(4854)*V(5256) - ARP(14692) = V(4854) - ARP(14693) = V(4854) - ARP(14694) = V(4653)*V(5255) - ARP(14695) = V(4653)*V(5255) - ARP(14696) = V(4653)*V(5255) - ARP(14697) = V(4653)*V(5252) - ARP(14698) = V(4653)*V(5253) - ARP(14699) = V(4653)*V(5256) - ARP(14700) = V(4653) - ARP(14701) = V(4653) - ARP(14702) = V(4818)*V(5255) - ARP(14703) = V(4818)*V(5255) - ARP(14704) = V(4818)*V(5255) - ARP(14705) = V(4818)*V(5252) - ARP(14706) = V(4818)*V(5253) - ARP(14707) = V(4818)*V(5256) - ARP(14708) = V(4818) - ARP(14709) = V(4818) - ARP(14710) = V(4459)*V(5255) - ARP(14711) = V(4459)*V(5252) - ARP(14712) = V(4459)*V(5256) - ARP(14713) = V(4459) - ARP(14714) = V(4459) - ARP(14715) = V(4459) - ARP(14716) = V(4960)*V(5255) - ARP(14717) = V(4960)*V(5252) - ARP(14718) = V(4960)*V(5256) - ARP(14719) = V(4960) - ARP(14720) = V(4960) - ARP(14721) = V(1044)*V(5250) - ARP(14722) = V(1044) - ARP(14723) = V(3067) - ARP(14724) = V(506)*V(5250) - ARP(14725) = V(936)*V(5250) - ARP(14726) = V(936) - ARP(14727) = V(2777)*V(5250) - ARP(14728) = V(2777) - ARP(14729) = V(3495)*V(5250) - ARP(14730) = V(3495) - ARP(14731) = V(3495) - ARP(14732) = V(3495) - ARP(14733) = V(3611) - ARP(14734) = V(3611) - ARP(14735) = V(2475)*V(5250) - ARP(14736) = V(2475) - ARP(14737) = V(2475) - ARP(14738) = V(4117)*V(5255) - ARP(14739) = V(4117)*V(5252) - ARP(14740) = V(4117)*V(5256) - ARP(14741) = V(4117) - ARP(14742) = V(4117) - ARP(14743) = V(3849)*V(5256) - ARP(14744) = V(3849)*V(5250) - ARP(14745) = V(61) - ARP(14746) = V(3848)*V(5255) - ARP(14747) = V(3848)*V(5252) - ARP(14748) = V(3848)*V(5252) - ARP(14749) = V(3848)*V(5256) - ARP(14750) = V(3848) - ARP(14751) = V(3848) - ARP(14752) = V(252)*V(5250) - ARP(14753) = V(1107)*V(5250) - ARP(14754) = V(1107) - ARP(14755) = V(4342)*V(5255) - ARP(14756) = V(4342)*V(5252) - ARP(14757) = V(4342)*V(5252) - ARP(14758) = V(4342)*V(5256) - ARP(14759) = V(4342) - ARP(14760) = V(4342) - ARP(14761) = V(4342) - ARP(14762) = V(2637)*V(5250) - ARP(14763) = V(2637) - ARP(14764) = V(4120)*V(5255) - ARP(14765) = V(4120)*V(5252) - ARP(14766) = V(4120)*V(5256) - ARP(14767) = V(4120) - ARP(14768) = V(4120) - ARP(14769) = V(4120) - ARP(14770) = V(1339)*V(5250) - ARP(14771) = V(1339) - ARP(14772) = V(1883)*V(5250) - ARP(14773) = V(1883) - ARP(14774) = V(157) - ARP(14775) = V(2979)*V(5250) - ARP(14776) = V(2979) - ARP(14777) = V(476)*V(5250) - ARP(14778) = V(4216)*V(5255) - ARP(14779) = V(4216)*V(5252) - ARP(14780) = V(4216)*V(5252) - ARP(14781) = V(4216)*V(5256) - ARP(14782) = V(4216) - ARP(14783) = V(4216) - ARP(14784) = V(1411)*V(5250) - ARP(14785) = V(1411) - ARP(14786) = V(2802)*V(5250) - ARP(14787) = V(2802) - ARP(14788) = V(1818) - ARP(14789) = V(547)*V(5250) - ARP(14790) = V(547) - ARP(14791) = V(1485)*V(5250) - ARP(14792) = V(1485) - ARP(14793) = V(2749) - ARP(14794) = V(2809)*V(5250) - ARP(14795) = V(2809) - ARP(14796) = V(1875)*V(5250) - ARP(14797) = V(1875) - ARP(14798) = V(470)*V(5250) - ARP(14799) = V(1507)*V(5250) - ARP(14800) = V(1507) - ARP(14801) = V(4234)*V(5255) - ARP(14802) = V(4234)*V(5252) - ARP(14803) = V(4234)*V(5256) - ARP(14804) = V(4234) - ARP(14805) = V(4234) - ARP(14806) = V(3029)*V(5250) - ARP(14807) = V(3029) - ARP(14808) = V(2719)*V(5250) - ARP(14809) = V(3855)*V(5255) - ARP(14810) = V(3855)*V(5252) - ARP(14811) = V(3855)*V(5252) - ARP(14812) = V(3855)*V(5256) - ARP(14813) = V(3855) - ARP(14814) = V(3855) - ARP(14815) = V(3855) - ARP(14816) = V(2895)*V(5250) - ARP(14817) = V(2895) - ARP(14818) = V(1238)*V(5250) - ARP(14819) = V(2139)*V(5250) - ARP(14820) = V(2139) - ARP(14821) = V(2941)*V(5250) - ARP(14822) = V(2941) - ARP(14823) = V(1519)*V(5250) - ARP(14824) = V(1519) - ARP(14825) = V(2275)*V(5250) - ARP(14826) = V(2275) - ARP(14827) = V(3424) - ARP(14828) = V(3424) - ARP(14829) = V(2938)*V(5250) - ARP(14830) = V(320)*V(5250) - ARP(14831) = V(1328)*V(5250) - ARP(14832) = V(1328) - ARP(14833) = V(2444)*V(5250) - ARP(14834) = V(2444) - ARP(14835) = V(173) - ARP(14836) = V(4978)*V(5256) - ARP(14837) = V(4978)*V(5250) - ARP(14838) = V(4978) - ARP(14839) = V(334)*V(5250) - ARP(14840) = V(856)*V(5250) - ARP(14841) = V(1920)*V(5250) - ARP(14842) = V(1920) - ARP(14843) = V(2571)*V(5250) - ARP(14844) = V(2571) - ARP(14845) = V(2214)*V(5250) - ARP(14846) = V(2214) - ARP(14847) = V(2942)*V(5250) - ARP(14848) = V(2942) - ARP(14849) = V(1724) - ARP(14850) = V(754)*V(5250) - ARP(14851) = V(4220)*V(5255) - ARP(14852) = V(4220)*V(5255) - ARP(14853) = V(4220)*V(5252) - ARP(14854) = V(4220)*V(5253) - ARP(14855) = V(4220)*V(5256) - ARP(14856) = V(4220) - ARP(14857) = V(1263)*V(5250) - ARP(14858) = V(1263) - ARP(14859) = V(3447)*V(5250) - ARP(14860) = V(3447) - ARP(14861) = V(1989) - ARP(14862) = V(520)*V(5250) - ARP(14863) = V(520) - ARP(14864) = V(2111)*V(5250) - ARP(14865) = V(2111) - ARP(14866) = V(644) - ARP(14867) = V(4362)*V(5256) - ARP(14868) = V(4362)*V(5250) - ARP(14869) = V(4362) - ARP(14870) = V(4362) - ARP(14871) = V(3355)*V(5250) - ARP(14872) = V(3355) - ARP(14873) = V(1344)*V(5250) - ARP(14874) = V(1344) - ARP(14875) = V(998)*V(5250) - ARP(14876) = V(998) - ARP(14877) = V(4346)*V(5255) - ARP(14878) = V(4346)*V(5252) - ARP(14879) = V(4346)*V(5256) - ARP(14880) = V(4346) - ARP(14881) = V(4346) - ARP(14882) = V(4346) - ARP(14883) = V(2756)*V(5250) - ARP(14884) = V(2756) - ARP(14885) = V(827)*V(5250) - ARP(14886) = V(827) - ARP(14887) = V(1408)*V(5250) - ARP(14888) = V(1408) - ARP(14889) = V(2980)*V(5250) - ARP(14890) = V(2980) - ARP(14891) = V(953)*V(5250) - ARP(14892) = V(953) - ARP(14893) = V(1022)*V(5250) - ARP(14894) = V(1022) - ARP(14895) = V(3293)*V(5250) - ARP(14896) = V(3293) - ARP(14897) = V(1130)*V(5250) - ARP(14898) = V(1130) - ARP(14899) = V(1652) - ARP(14900) = V(3639)*V(5250) - ARP(14901) = V(3639) - ARP(14902) = V(725)*V(5250) - ARP(14903) = V(725) - ARP(14904) = V(1757)*V(5250) - ARP(14905) = V(1757) - ARP(14906) = V(741) - ARP(14907) = V(1527)*V(5250) - ARP(14908) = V(1527) - ARP(14909) = V(2578) - ARP(14910) = V(530)*V(5250) - ARP(14911) = V(5054)*V(5255) - ARP(14912) = V(5054)*V(5255) - ARP(14913) = V(5054)*V(5255) - ARP(14914) = V(5054)*V(5252) - ARP(14915) = V(5054)*V(5253) - ARP(14916) = V(5054)*V(5256) - ARP(14917) = V(5054) - ARP(14918) = V(5054) - ARP(14919) = V(4779)*V(5255) - ARP(14920) = V(4779)*V(5252) - ARP(14921) = V(4779)*V(5256) - ARP(14922) = V(4779) - ARP(14923) = V(4779) - ARP(14924) = V(1046)*V(5250) - ARP(14925) = V(1046) - ARP(14926) = V(1912)*V(5250) - ARP(14927) = V(2931) - ARP(14928) = V(690)*V(5250) - ARP(14929) = V(1439)*V(5250) - ARP(14930) = V(1439) - ARP(14931) = V(1786)*V(5250) - ARP(14932) = V(1786) - ARP(14933) = V(3430) - ARP(14934) = V(3430) - ARP(14935) = V(3642)*V(5250) - ARP(14936) = V(3642) - ARP(14937) = V(390)*V(5250) - ARP(14938) = V(1019)*V(5250) - ARP(14939) = V(1019) - ARP(14940) = V(2894) - ARP(14941) = V(2209)*V(5250) - ARP(14942) = V(2209) - ARP(14943) = V(482)*V(5250) - ARP(14944) = V(4226)*V(5255) - ARP(14945) = V(4226)*V(5252) - ARP(14946) = V(4226)*V(5256) - ARP(14947) = V(4226) - ARP(14948) = V(4226) - ARP(14949) = V(4226) - ARP(14950) = V(826)*V(5250) - ARP(14951) = V(826) - ARP(14952) = V(2257)*V(5250) - ARP(14953) = V(2257) - ARP(14954) = V(290) - ARP(14955) = V(83)*V(5250) - ARP(14956) = V(4136)*V(5255) - ARP(14957) = V(4136)*V(5252) - ARP(14958) = V(4136)*V(5256) - ARP(14959) = V(4136) - ARP(14960) = V(4136) - ARP(14961) = V(4136) - ARP(14962) = V(4115)*V(5255) - ARP(14963) = V(4115)*V(5252) - ARP(14964) = V(4115)*V(5256) - ARP(14965) = V(4115) - ARP(14966) = V(414)*V(5250) - ARP(14967) = V(414) - ARP(14968) = V(760) - ARP(14969) = V(60)*V(5250) - ARP(14970) = V(1077)*V(5250) - ARP(14971) = V(1077) - ARP(14972) = V(2303)*V(5250) - ARP(14973) = V(2303) - ARP(14974) = V(2304) - ARP(14975) = V(357)*V(5250) - ARP(14976) = V(4525)*V(5255) - ARP(14977) = V(4525)*V(5255) - ARP(14978) = V(4525)*V(5252) - ARP(14979) = V(4525)*V(5253) - ARP(14980) = V(4525)*V(5256) - ARP(14981) = V(4525) - ARP(14982) = V(4477)*V(5255) - ARP(14983) = V(4477)*V(5252) - ARP(14984) = V(4477)*V(5256) - ARP(14985) = V(4477) - ARP(14986) = V(4820)*V(5255) - ARP(14987) = V(4820)*V(5252) - ARP(14988) = V(4820)*V(5256) - ARP(14989) = V(4820) - ARP(14990) = V(4820) - ARP(14991) = V(4820) - ARP(14992) = V(2142)*V(5250) - ARP(14993) = V(2142) - ARP(14994) = V(2530)*V(5250) - ARP(14995) = V(2530) - ARP(14996) = V(3874)*V(5255) - ARP(14997) = V(3874)*V(5252) - ARP(14998) = V(3874)*V(5256) - ARP(14999) = V(3874) - ARP(15000) = V(3724)*V(5255) - ARP(15001) = V(3724)*V(5252) - ARP(15002) = V(3724)*V(5256) - ARP(15003) = V(3724) - ARP(15004) = V(4520)*V(5255) - ARP(15005) = V(4520)*V(5255) - ARP(15006) = V(4520)*V(5252) - ARP(15007) = V(4520)*V(5253) - ARP(15008) = V(4520)*V(5256) - ARP(15009) = V(4520) - ARP(15010) = V(4465)*V(5255) - ARP(15011) = V(4465)*V(5252) - ARP(15012) = V(4465)*V(5256) - ARP(15013) = V(4465) - ARP(15014) = V(1538)*V(5250) - ARP(15015) = V(1538) - ARP(15016) = V(3041) - ARP(15017) = V(559)*V(5250) - ARP(15018) = V(559) - ARP(15019) = V(4853)*V(5255) - ARP(15020) = V(4853)*V(5255) - ARP(15021) = V(4853)*V(5255) - ARP(15022) = V(4853)*V(5252) - ARP(15023) = V(4853)*V(5253) - ARP(15024) = V(4853)*V(5256) - ARP(15025) = V(4853) - ARP(15026) = V(4853) - ARP(15027) = V(433)*V(5250) - ARP(15028) = V(1347)*V(5250) - ARP(15029) = V(1347) - ARP(15030) = V(4116)*V(5255) - ARP(15031) = V(4116)*V(5252) - ARP(15032) = V(4116)*V(5256) - ARP(15033) = V(4116) - ARP(15034) = V(4116) - ARP(15035) = V(4116) - ARP(15036) = V(2703)*V(5250) - ARP(15037) = V(2703) - ARP(15038) = V(3480)*V(5250) - ARP(15039) = V(3480) - ARP(15040) = V(3480) - ARP(15041) = V(3480) - ARP(15042) = V(3615) - ARP(15043) = V(3615) - ARP(15044) = V(2483)*V(5250) - ARP(15045) = V(2483) - ARP(15046) = V(2483) - ARP(15047) = V(4343)*V(5255) - ARP(15048) = V(4343)*V(5252) - ARP(15049) = V(4343)*V(5256) - ARP(15050) = V(4343) - ARP(15051) = V(4343) - ARP(15052) = V(1890)*V(5250) - ARP(15053) = V(1890) - ARP(15054) = V(537) - ARP(15055) = V(1257)*V(5250) - ARP(15056) = V(1257) - ARP(15057) = V(368)*V(5250) - ARP(15058) = V(2856)*V(5250) - ARP(15059) = V(3882)*V(5255) - ARP(15060) = V(3882)*V(5252) - ARP(15061) = V(3882)*V(5252) - ARP(15062) = V(3882)*V(5256) - ARP(15063) = V(3882) - ARP(15064) = V(3882) - ARP(15065) = V(3882) - ARP(15066) = V(1793)*V(5250) - ARP(15067) = V(1793) - ARP(15068) = V(802) - ARP(15069) = V(1678)*V(5250) - ARP(15070) = V(1678) - ARP(15071) = V(858)*V(5250) - ARP(15072) = V(858) - ARP(15073) = V(3062) - ARP(15074) = V(1154)*V(5250) - ARP(15075) = V(1154) - ARP(15076) = V(2567)*V(5250) - ARP(15077) = V(2567) - ARP(15078) = V(2153)*V(5250) - ARP(15079) = V(2153)*V(5250) - ARP(15080) = V(2153) - ARP(15081) = V(643) - ARP(15082) = V(2300)*V(5250) - ARP(15083) = V(2300) - ARP(15084) = V(695) - ARP(15085) = V(2680)*V(5250) - ARP(15086) = V(2680) - ARP(15087) = V(500)*V(5250) - ARP(15088) = V(1544) - ARP(15089) = V(1544)*V(5250) - ARP(15090) = V(3410) - ARP(15091) = V(2450)*V(5250) - ARP(15092) = V(2450) - ARP(15093) = V(733) - ARP(15094) = V(1219)*V(5250) - ARP(15095) = V(1219) - ARP(15096) = V(2729)*V(5250) - ARP(15097) = V(2729) - ARP(15098) = V(1116)*V(5250) - ARP(15099) = V(1116) - ARP(15100) = V(2607) - ARP(15101) = V(3960)*V(5256) - ARP(15102) = V(3960)*V(5250) - ARP(15103) = V(3960) - ARP(15104) = V(903)*V(5250) - ARP(15105) = V(903) - ARP(15106) = V(824)*V(5250) - ARP(15107) = V(824) - ARP(15108) = V(2864)*V(5250) - ARP(15109) = V(2864) - ARP(15110) = V(2437)*V(5250) - ARP(15111) = V(2437) - ARP(15112) = V(2437) - ARP(15113) = V(544) - ARP(15114) = V(1926)*V(5250) - ARP(15115) = V(1926) - ARP(15116) = V(1926) - ARP(15117) = V(648) - ARP(15118) = V(567)*V(5250) - ARP(15119) = V(567) - ARP(15120) = V(1505)*V(5250) - ARP(15121) = V(1505) - ARP(15122) = V(2855)*V(5250) - ARP(15123) = V(2855) - ARP(15124) = V(2226) - ARP(15125) = V(296)*V(5250) - ARP(15126) = V(3958)*V(5250) - ARP(15127) = V(3958) - ARP(15128) = V(3633)*V(5256) - ARP(15129) = V(3633)*V(5250) - ARP(15130) = V(3633) - ARP(15131) = V(4686)*V(5255) - ARP(15132) = V(4686)*V(5255) - ARP(15133) = V(4686)*V(5252) - ARP(15134) = V(4686)*V(5253) - ARP(15135) = V(4686)*V(5256) - ARP(15136) = V(4686) - ARP(15137) = V(4687)*V(5255) - ARP(15138) = V(4687)*V(5252) - ARP(15139) = V(4687)*V(5256) - ARP(15140) = V(4687) - ARP(15141) = V(4687) - ARP(15142) = V(4687) - ARP(15143) = V(4456)*V(5255) - ARP(15144) = V(4456)*V(5255) - ARP(15145) = V(4456)*V(5252) - ARP(15146) = V(4456)*V(5253) - ARP(15147) = V(4456)*V(5256) - ARP(15148) = V(4456) - ARP(15149) = V(4503)*V(5255) - ARP(15150) = V(4503)*V(5252) - ARP(15151) = V(4503)*V(5256) - ARP(15152) = V(4503) - ARP(15153) = V(1474)*V(5250) - ARP(15154) = V(1474) - ARP(15155) = V(2779)*V(5250) - ARP(15156) = V(2779) - ARP(15157) = V(1956)*V(5250) - ARP(15158) = V(1956)*V(5250) - ARP(15159) = V(1956) - ARP(15160) = V(115) - ARP(15161) = V(352)*V(5250) - ARP(15162) = V(3604)*V(5250) - ARP(15163) = V(3604) - ARP(15164) = V(1461)*V(5250) - ARP(15165) = V(1461) - ARP(15166) = V(2619)*V(5250) - ARP(15167) = V(2619) - ARP(15168) = V(940)*V(5250) - ARP(15169) = V(940) - ARP(15170) = V(2968) - ARP(15171) = V(4543)*V(5255) - ARP(15172) = V(4543)*V(5252) - ARP(15173) = V(4543)*V(5256) - ARP(15174) = V(4543) - ARP(15175) = V(866)*V(5250) - ARP(15176) = V(866) - ARP(15177) = V(2788) - -END SUBROUTINE ReactantProd - -! End of ReactantProd function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! JacReactantProd - Jacobian of Reactant Products vector -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! JVRP - d ARP(1:NREACT)/d VAR (1:NVAR) -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE JacReactantProd ( V, F, JVRP ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! F - Concentrations of fixed species (local) - REAL(kind=dp) :: F(NFIX) -! JVRP - d ARP(1:NREACT)/d VAR (1:NVAR) - REAL(kind=dp) :: JVRP(NJVRP) - - -! Reactant Products in each equation are useful in the -! stoichiometric formulation of mass action law -! Below we compute the Jacobian of the Reactant Products vector -! w.r.t. variable species: d ARP(1:NREACT) / d Var(1:NVAR) - -! JVRP(1) = dARP(2)/dV(3568) - JVRP(1) = 1 -! JVRP(2) = dARP(3)/dV(3568) - JVRP(2) = V(5258) -! JVRP(3) = dARP(3)/dV(5258) - JVRP(3) = V(3568) -! JVRP(4) = dARP(4)/dV(3568) - JVRP(4) = V(5252) -! JVRP(5) = dARP(4)/dV(5252) - JVRP(5) = V(3568) -! JVRP(6) = dARP(5)/dV(3568) - JVRP(6) = V(5253) -! JVRP(7) = dARP(5)/dV(5253) - JVRP(7) = V(3568) -! JVRP(8) = dARP(6)/dV(3568) - JVRP(8) = V(5253) -! JVRP(9) = dARP(6)/dV(5253) - JVRP(9) = V(3568) -! JVRP(10) = dARP(7)/dV(4) - JVRP(10) = 1 -! JVRP(11) = dARP(8)/dV(5252) - JVRP(11) = V(5258) -! JVRP(12) = dARP(8)/dV(5258) - JVRP(12) = V(5252) -! JVRP(13) = dARP(9)/dV(5253) - JVRP(13) = V(5258) -! JVRP(14) = dARP(9)/dV(5258) - JVRP(14) = V(5253) -! JVRP(15) = dARP(10)/dV(5252) - JVRP(15) = 2*V(5252) -! JVRP(16) = dARP(11)/dV(5252) - JVRP(16) = V(5256) -! JVRP(17) = dARP(11)/dV(5256) - JVRP(17) = V(5252) -! JVRP(18) = dARP(12)/dV(5253) - JVRP(18) = V(5256) -! JVRP(19) = dARP(12)/dV(5256) - JVRP(19) = V(5253) -! JVRP(20) = dARP(13)/dV(5253) - JVRP(20) = V(5256) -! JVRP(21) = dARP(13)/dV(5256) - JVRP(21) = V(5253) -! JVRP(22) = dARP(14)/dV(4) - JVRP(22) = 1 -! JVRP(23) = dARP(15)/dV(5250) - JVRP(23) = V(5258) -! JVRP(24) = dARP(15)/dV(5258) - JVRP(24) = V(5250) -! JVRP(25) = dARP(16)/dV(260) - JVRP(25) = V(5250) -! JVRP(26) = dARP(16)/dV(5250) - JVRP(26) = V(260) -! JVRP(27) = dARP(17)/dV(5250) - JVRP(27) = V(5251) -! JVRP(28) = dARP(17)/dV(5251) - JVRP(28) = V(5250) -! JVRP(29) = dARP(18)/dV(5046) - JVRP(29) = V(5250) -! JVRP(30) = dARP(18)/dV(5250) - JVRP(30) = V(5046) -! JVRP(31) = dARP(19)/dV(5255) - JVRP(31) = V(5258) -! JVRP(32) = dARP(19)/dV(5258) - JVRP(32) = V(5255) -! JVRP(33) = dARP(20)/dV(5250) - JVRP(33) = V(5255) -! JVRP(34) = dARP(20)/dV(5255) - JVRP(34) = V(5250) -! JVRP(35) = dARP(21)/dV(5255) - JVRP(35) = 2*V(5255) -! JVRP(36) = dARP(22)/dV(5250) - JVRP(36) = V(5252) -! JVRP(37) = dARP(22)/dV(5252) - JVRP(37) = V(5250) -! JVRP(38) = dARP(23)/dV(5250) - JVRP(38) = V(5253) -! JVRP(39) = dARP(23)/dV(5253) - JVRP(39) = V(5250) -! JVRP(40) = dARP(24)/dV(5250) - JVRP(40) = V(5256) -! JVRP(41) = dARP(24)/dV(5256) - JVRP(41) = V(5250) -! JVRP(42) = dARP(25)/dV(5252) - JVRP(42) = V(5255) -! JVRP(43) = dARP(25)/dV(5255) - JVRP(43) = V(5252) -! JVRP(44) = dARP(26)/dV(5253) - JVRP(44) = V(5255) -! JVRP(45) = dARP(26)/dV(5255) - JVRP(45) = V(5253) -! JVRP(46) = dARP(27)/dV(925) - JVRP(46) = V(5250) -! JVRP(47) = dARP(27)/dV(5250) - JVRP(47) = V(925) -! JVRP(48) = dARP(28)/dV(5255) - JVRP(48) = V(5256) -! JVRP(49) = dARP(28)/dV(5256) - JVRP(49) = V(5255) -! JVRP(50) = dARP(29)/dV(337) - JVRP(50) = V(5250) -! JVRP(51) = dARP(29)/dV(5250) - JVRP(51) = V(337) -! JVRP(52) = dARP(30)/dV(5201) - JVRP(52) = V(5250) -! JVRP(53) = dARP(30)/dV(5250) - JVRP(53) = V(5201) -! JVRP(54) = dARP(31)/dV(3568) - JVRP(54) = V(5254) -! JVRP(55) = dARP(31)/dV(5254) - JVRP(55) = V(3568) -! JVRP(56) = dARP(32)/dV(5250) - JVRP(56) = V(5254) -! JVRP(57) = dARP(32)/dV(5254) - JVRP(57) = V(5250) -! JVRP(58) = dARP(33)/dV(5) - JVRP(58) = 1 -! JVRP(59) = dARP(34)/dV(5201) - JVRP(59) = 1 -! JVRP(60) = dARP(35)/dV(137) - JVRP(60) = 1 -! JVRP(61) = dARP(36)/dV(3) - JVRP(61) = 1 -! JVRP(62) = dARP(37)/dV(5258) - JVRP(62) = 1 -! JVRP(63) = dARP(38)/dV(5258) - JVRP(63) = 1 -! JVRP(64) = dARP(39)/dV(5046) - JVRP(64) = 1 -! JVRP(65) = dARP(40)/dV(5253) - JVRP(65) = 1 -! JVRP(66) = dARP(41)/dV(5256) - JVRP(66) = 1 -! JVRP(67) = dARP(42)/dV(5256) - JVRP(67) = 1 -! JVRP(68) = dARP(43)/dV(337) - JVRP(68) = 1 -! JVRP(69) = dARP(44)/dV(5201) - JVRP(69) = 1 -! JVRP(70) = dARP(45)/dV(137) - JVRP(70) = 1 -! JVRP(71) = dARP(46)/dV(925) - JVRP(71) = 1 -! JVRP(72) = dARP(47)/dV(1068) - JVRP(72) = V(5250) -! JVRP(73) = dARP(47)/dV(5250) - JVRP(73) = V(1068) -! JVRP(74) = dARP(48)/dV(1733) - JVRP(74) = V(5250) -! JVRP(75) = dARP(48)/dV(5250) - JVRP(75) = V(1733) -! JVRP(76) = dARP(49)/dV(1733) - JVRP(76) = V(5250) -! JVRP(77) = dARP(49)/dV(5250) - JVRP(77) = V(1733) -! JVRP(78) = dARP(50)/dV(1733) - JVRP(78) = V(5250) -! JVRP(79) = dARP(50)/dV(5250) - JVRP(79) = V(1733) -! JVRP(80) = dARP(51)/dV(1686) - JVRP(80) = V(5250) -! JVRP(81) = dARP(51)/dV(5250) - JVRP(81) = V(1686) -! JVRP(82) = dARP(52)/dV(1686) - JVRP(82) = V(5250) -! JVRP(83) = dARP(52)/dV(5250) - JVRP(83) = V(1686) -! JVRP(84) = dARP(53)/dV(1686) - JVRP(84) = V(5250) -! JVRP(85) = dARP(53)/dV(5250) - JVRP(85) = V(1686) -! JVRP(86) = dARP(54)/dV(3083) - JVRP(86) = V(5250) -! JVRP(87) = dARP(54)/dV(5250) - JVRP(87) = V(3083) -! JVRP(88) = dARP(55)/dV(3083) - JVRP(88) = V(5250) -! JVRP(89) = dARP(55)/dV(5250) - JVRP(89) = V(3083) -! JVRP(90) = dARP(56)/dV(1697) - JVRP(90) = V(5250) -! JVRP(91) = dARP(56)/dV(5250) - JVRP(91) = V(1697) -! JVRP(92) = dARP(57)/dV(1697) - JVRP(92) = V(5250) -! JVRP(93) = dARP(57)/dV(5250) - JVRP(93) = V(1697) -! JVRP(94) = dARP(58)/dV(1697) - JVRP(94) = V(5250) -! JVRP(95) = dARP(58)/dV(5250) - JVRP(95) = V(1697) -! JVRP(96) = dARP(59)/dV(757) - JVRP(96) = V(5250) -! JVRP(97) = dARP(59)/dV(5250) - JVRP(97) = V(757) -! JVRP(98) = dARP(60)/dV(757) - JVRP(98) = V(5250) -! JVRP(99) = dARP(60)/dV(5250) - JVRP(99) = V(757) -! JVRP(100) = dARP(61)/dV(1701) - JVRP(100) = V(5250) -! JVRP(101) = dARP(61)/dV(5250) - JVRP(101) = V(1701) -! JVRP(102) = dARP(62)/dV(1701) - JVRP(102) = V(5250) -! JVRP(103) = dARP(62)/dV(5250) - JVRP(103) = V(1701) -! JVRP(104) = dARP(63)/dV(1701) - JVRP(104) = V(5250) -! JVRP(105) = dARP(63)/dV(5250) - JVRP(105) = V(1701) -! JVRP(106) = dARP(64)/dV(298) - JVRP(106) = V(5250) -! JVRP(107) = dARP(64)/dV(5250) - JVRP(107) = V(298) -! JVRP(108) = dARP(65)/dV(298) - JVRP(108) = V(5250) -! JVRP(109) = dARP(65)/dV(5250) - JVRP(109) = V(298) -! JVRP(110) = dARP(66)/dV(1596) - JVRP(110) = V(5250) -! JVRP(111) = dARP(66)/dV(5250) - JVRP(111) = V(1596) -! JVRP(112) = dARP(67)/dV(1596) - JVRP(112) = V(5250) -! JVRP(113) = dARP(67)/dV(5250) - JVRP(113) = V(1596) -! JVRP(114) = dARP(68)/dV(1596) - JVRP(114) = V(5250) -! JVRP(115) = dARP(68)/dV(5250) - JVRP(115) = V(1596) -! JVRP(116) = dARP(69)/dV(1730) - JVRP(116) = V(5250) -! JVRP(117) = dARP(69)/dV(5250) - JVRP(117) = V(1730) -! JVRP(118) = dARP(70)/dV(1730) - JVRP(118) = V(5250) -! JVRP(119) = dARP(70)/dV(5250) - JVRP(119) = V(1730) -! JVRP(120) = dARP(71)/dV(1730) - JVRP(120) = V(5250) -! JVRP(121) = dARP(71)/dV(5250) - JVRP(121) = V(1730) -! JVRP(122) = dARP(72)/dV(181) - JVRP(122) = V(5250) -! JVRP(123) = dARP(72)/dV(5250) - JVRP(123) = V(181) -! JVRP(124) = dARP(73)/dV(181) - JVRP(124) = V(5250) -! JVRP(125) = dARP(73)/dV(5250) - JVRP(125) = V(181) -! JVRP(126) = dARP(74)/dV(181) - JVRP(126) = V(5250) -! JVRP(127) = dARP(74)/dV(5250) - JVRP(127) = V(181) -! JVRP(128) = dARP(75)/dV(806) - JVRP(128) = V(5250) -! JVRP(129) = dARP(75)/dV(5250) - JVRP(129) = V(806) -! JVRP(130) = dARP(76)/dV(806) - JVRP(130) = V(5250) -! JVRP(131) = dARP(76)/dV(5250) - JVRP(131) = V(806) -! JVRP(132) = dARP(77)/dV(806) - JVRP(132) = V(5250) -! JVRP(133) = dARP(77)/dV(5250) - JVRP(133) = V(806) -! JVRP(134) = dARP(78)/dV(1577) - JVRP(134) = V(5250) -! JVRP(135) = dARP(78)/dV(5250) - JVRP(135) = V(1577) -! JVRP(136) = dARP(79)/dV(1577) - JVRP(136) = V(5250) -! JVRP(137) = dARP(79)/dV(5250) - JVRP(137) = V(1577) -! JVRP(138) = dARP(80)/dV(1577) - JVRP(138) = V(5250) -! JVRP(139) = dARP(80)/dV(5250) - JVRP(139) = V(1577) -! JVRP(140) = dARP(81)/dV(598) - JVRP(140) = V(5250) -! JVRP(141) = dARP(81)/dV(5250) - JVRP(141) = V(598) -! JVRP(142) = dARP(82)/dV(598) - JVRP(142) = V(5250) -! JVRP(143) = dARP(82)/dV(5250) - JVRP(143) = V(598) -! JVRP(144) = dARP(83)/dV(2118) - JVRP(144) = V(5250) -! JVRP(145) = dARP(83)/dV(5250) - JVRP(145) = V(2118) -! JVRP(146) = dARP(84)/dV(2118) - JVRP(146) = V(5250) -! JVRP(147) = dARP(84)/dV(5250) - JVRP(147) = V(2118) -! JVRP(148) = dARP(85)/dV(2118) - JVRP(148) = V(5250) -! JVRP(149) = dARP(85)/dV(5250) - JVRP(149) = V(2118) -! JVRP(150) = dARP(86)/dV(2118) - JVRP(150) = 1 -! JVRP(151) = dARP(87)/dV(249) - JVRP(151) = V(5250) -! JVRP(152) = dARP(87)/dV(5250) - JVRP(152) = V(249) -! JVRP(153) = dARP(88)/dV(2421) - JVRP(153) = V(5250) -! JVRP(154) = dARP(88)/dV(5250) - JVRP(154) = V(2421) -! JVRP(155) = dARP(89)/dV(2421) - JVRP(155) = V(5250) -! JVRP(156) = dARP(89)/dV(5250) - JVRP(156) = V(2421) -! JVRP(157) = dARP(90)/dV(4555) - JVRP(157) = V(5256) -! JVRP(158) = dARP(90)/dV(5256) - JVRP(158) = V(4555) -! JVRP(159) = dARP(91)/dV(4555) - JVRP(159) = V(5256) -! JVRP(160) = dARP(91)/dV(5256) - JVRP(160) = V(4555) -! JVRP(161) = dARP(92)/dV(4555) - JVRP(161) = V(5258) -! JVRP(162) = dARP(92)/dV(5258) - JVRP(162) = V(4555) -! JVRP(163) = dARP(93)/dV(4555) - JVRP(163) = V(5258) -! JVRP(164) = dARP(93)/dV(5258) - JVRP(164) = V(4555) -! JVRP(165) = dARP(94)/dV(4555) - JVRP(165) = V(5250) -! JVRP(166) = dARP(94)/dV(5250) - JVRP(166) = V(4555) -! JVRP(167) = dARP(95)/dV(4555) - JVRP(167) = V(5250) -! JVRP(168) = dARP(95)/dV(5250) - JVRP(168) = V(4555) -! JVRP(169) = dARP(96)/dV(5231) - JVRP(169) = 1 -! JVRP(170) = dARP(97)/dV(5231) - JVRP(170) = 1 -! JVRP(171) = dARP(98)/dV(5231) - JVRP(171) = V(5256) -! JVRP(172) = dARP(98)/dV(5256) - JVRP(172) = V(5231) -! JVRP(173) = dARP(99)/dV(5231) - JVRP(173) = V(5250) -! JVRP(174) = dARP(99)/dV(5250) - JVRP(174) = V(5231) -! JVRP(175) = dARP(100)/dV(5193) - JVRP(175) = 1 -! JVRP(176) = dARP(101)/dV(5193) - JVRP(176) = V(5256) -! JVRP(177) = dARP(101)/dV(5256) - JVRP(177) = V(5193) -! JVRP(178) = dARP(102)/dV(5193) - JVRP(178) = V(5250) -! JVRP(179) = dARP(102)/dV(5250) - JVRP(179) = V(5193) -! JVRP(180) = dARP(103)/dV(5193) - JVRP(180) = V(5250) -! JVRP(181) = dARP(103)/dV(5250) - JVRP(181) = V(5193) -! JVRP(182) = dARP(104)/dV(5191) - JVRP(182) = V(5256) -! JVRP(183) = dARP(104)/dV(5256) - JVRP(183) = V(5191) -! JVRP(184) = dARP(105)/dV(5191) - JVRP(184) = V(5250) -! JVRP(185) = dARP(105)/dV(5250) - JVRP(185) = V(5191) -! JVRP(186) = dARP(106)/dV(5191) - JVRP(186) = 1 -! JVRP(187) = dARP(107)/dV(5230) - JVRP(187) = V(5256) -! JVRP(188) = dARP(107)/dV(5256) - JVRP(188) = V(5230) -! JVRP(189) = dARP(108)/dV(5230) - JVRP(189) = V(5250) -! JVRP(190) = dARP(108)/dV(5250) - JVRP(190) = V(5230) -! JVRP(191) = dARP(109)/dV(5230) - JVRP(191) = V(5250) -! JVRP(192) = dARP(109)/dV(5250) - JVRP(192) = V(5230) -! JVRP(193) = dARP(110)/dV(5230) - JVRP(193) = 1 -! JVRP(194) = dARP(111)/dV(5230) - JVRP(194) = 1 -! JVRP(195) = dARP(112)/dV(5203) - JVRP(195) = V(5256) -! JVRP(196) = dARP(112)/dV(5256) - JVRP(196) = V(5203) -! JVRP(197) = dARP(113)/dV(5203) - JVRP(197) = V(5250) -! JVRP(198) = dARP(113)/dV(5250) - JVRP(198) = V(5203) -! JVRP(199) = dARP(114)/dV(5203) - JVRP(199) = V(5250) -! JVRP(200) = dARP(114)/dV(5250) - JVRP(200) = V(5203) -! JVRP(201) = dARP(115)/dV(5203) - JVRP(201) = V(5250) -! JVRP(202) = dARP(115)/dV(5250) - JVRP(202) = V(5203) -! JVRP(203) = dARP(116)/dV(5203) - JVRP(203) = 1 -! JVRP(204) = dARP(117)/dV(5165) - JVRP(204) = V(5256) -! JVRP(205) = dARP(117)/dV(5256) - JVRP(205) = V(5165) -! JVRP(206) = dARP(118)/dV(5165) - JVRP(206) = V(5250) -! JVRP(207) = dARP(118)/dV(5250) - JVRP(207) = V(5165) -! JVRP(208) = dARP(119)/dV(5165) - JVRP(208) = V(5250) -! JVRP(209) = dARP(119)/dV(5250) - JVRP(209) = V(5165) -! JVRP(210) = dARP(120)/dV(5165) - JVRP(210) = 1 -! JVRP(211) = dARP(121)/dV(5194) - JVRP(211) = V(5256) -! JVRP(212) = dARP(121)/dV(5256) - JVRP(212) = V(5194) -! JVRP(213) = dARP(122)/dV(5194) - JVRP(213) = V(5250) -! JVRP(214) = dARP(122)/dV(5250) - JVRP(214) = V(5194) -! JVRP(215) = dARP(123)/dV(5194) - JVRP(215) = V(5250) -! JVRP(216) = dARP(123)/dV(5250) - JVRP(216) = V(5194) -! JVRP(217) = dARP(124)/dV(5194) - JVRP(217) = V(5250) -! JVRP(218) = dARP(124)/dV(5250) - JVRP(218) = V(5194) -! JVRP(219) = dARP(125)/dV(5194) - JVRP(219) = 1 -! JVRP(220) = dARP(126)/dV(5194) - JVRP(220) = 1 -! JVRP(221) = dARP(127)/dV(5194) - JVRP(221) = 1 -! JVRP(222) = dARP(128)/dV(5194) - JVRP(222) = V(5258) -! JVRP(223) = dARP(128)/dV(5258) - JVRP(223) = V(5194) -! JVRP(224) = dARP(129)/dV(5194) - JVRP(224) = V(5258) -! JVRP(225) = dARP(129)/dV(5258) - JVRP(225) = V(5194) -! JVRP(226) = dARP(130)/dV(5226) - JVRP(226) = 1 -! JVRP(227) = dARP(131)/dV(5226) - JVRP(227) = 1 -! JVRP(228) = dARP(132)/dV(5226) - JVRP(228) = V(5256) -! JVRP(229) = dARP(132)/dV(5256) - JVRP(229) = V(5226) -! JVRP(230) = dARP(133)/dV(5226) - JVRP(230) = V(5258) -! JVRP(231) = dARP(133)/dV(5258) - JVRP(231) = V(5226) -! JVRP(232) = dARP(134)/dV(5226) - JVRP(232) = V(5258) -! JVRP(233) = dARP(134)/dV(5258) - JVRP(233) = V(5226) -! JVRP(234) = dARP(135)/dV(5226) - JVRP(234) = V(5250) -! JVRP(235) = dARP(135)/dV(5250) - JVRP(235) = V(5226) -! JVRP(236) = dARP(136)/dV(5226) - JVRP(236) = V(5250) -! JVRP(237) = dARP(136)/dV(5250) - JVRP(237) = V(5226) -! JVRP(238) = dARP(137)/dV(5226) - JVRP(238) = V(5250) -! JVRP(239) = dARP(137)/dV(5250) - JVRP(239) = V(5226) -! JVRP(240) = dARP(138)/dV(4840) - JVRP(240) = V(5256) -! JVRP(241) = dARP(138)/dV(5256) - JVRP(241) = V(4840) -! JVRP(242) = dARP(139)/dV(4840) - JVRP(242) = V(5256) -! JVRP(243) = dARP(139)/dV(5256) - JVRP(243) = V(4840) -! JVRP(244) = dARP(140)/dV(4840) - JVRP(244) = V(5256) -! JVRP(245) = dARP(140)/dV(5256) - JVRP(245) = V(4840) -! JVRP(246) = dARP(141)/dV(4840) - JVRP(246) = V(5258) -! JVRP(247) = dARP(141)/dV(5258) - JVRP(247) = V(4840) -! JVRP(248) = dARP(142)/dV(4840) - JVRP(248) = V(5258) -! JVRP(249) = dARP(142)/dV(5258) - JVRP(249) = V(4840) -! JVRP(250) = dARP(143)/dV(4840) - JVRP(250) = V(5250) -! JVRP(251) = dARP(143)/dV(5250) - JVRP(251) = V(4840) -! JVRP(252) = dARP(144)/dV(4840) - JVRP(252) = V(5250) -! JVRP(253) = dARP(144)/dV(5250) - JVRP(253) = V(4840) -! JVRP(254) = dARP(145)/dV(4840) - JVRP(254) = V(5250) -! JVRP(255) = dARP(145)/dV(5250) - JVRP(255) = V(4840) -! JVRP(256) = dARP(146)/dV(4840) - JVRP(256) = 1 -! JVRP(257) = dARP(147)/dV(2914) - JVRP(257) = V(5238) -! JVRP(258) = dARP(147)/dV(5238) - JVRP(258) = V(2914) -! JVRP(259) = dARP(148)/dV(2914) - JVRP(259) = V(5250) -! JVRP(260) = dARP(148)/dV(5250) - JVRP(260) = V(2914) -! JVRP(261) = dARP(149)/dV(2973) - JVRP(261) = V(5238) -! JVRP(262) = dARP(149)/dV(5238) - JVRP(262) = V(2973) -! JVRP(263) = dARP(150)/dV(2973) - JVRP(263) = V(5250) -! JVRP(264) = dARP(150)/dV(5250) - JVRP(264) = V(2973) -! JVRP(265) = dARP(151)/dV(3651) - JVRP(265) = V(5238) -! JVRP(266) = dARP(151)/dV(5238) - JVRP(266) = V(3651) -! JVRP(267) = dARP(152)/dV(3651) - JVRP(267) = V(5238) -! JVRP(268) = dARP(152)/dV(5238) - JVRP(268) = V(3651) -! JVRP(269) = dARP(153)/dV(3651) - JVRP(269) = V(5250) -! JVRP(270) = dARP(153)/dV(5250) - JVRP(270) = V(3651) -! JVRP(271) = dARP(154)/dV(3651) - JVRP(271) = V(5250) -! JVRP(272) = dARP(154)/dV(5250) - JVRP(272) = V(3651) -! JVRP(273) = dARP(155)/dV(1817) - JVRP(273) = V(5238) -! JVRP(274) = dARP(155)/dV(5238) - JVRP(274) = V(1817) -! JVRP(275) = dARP(156)/dV(1817) - JVRP(275) = V(5238) -! JVRP(276) = dARP(156)/dV(5238) - JVRP(276) = V(1817) -! JVRP(277) = dARP(157)/dV(1817) - JVRP(277) = V(5250) -! JVRP(278) = dARP(157)/dV(5250) - JVRP(278) = V(1817) -! JVRP(279) = dARP(158)/dV(1817) - JVRP(279) = V(5250) -! JVRP(280) = dARP(158)/dV(5250) - JVRP(280) = V(1817) -! JVRP(281) = dARP(159)/dV(601) - JVRP(281) = V(5238) -! JVRP(282) = dARP(159)/dV(5238) - JVRP(282) = V(601) -! JVRP(283) = dARP(160)/dV(601) - JVRP(283) = V(5238) -! JVRP(284) = dARP(160)/dV(5238) - JVRP(284) = V(601) -! JVRP(285) = dARP(161)/dV(601) - JVRP(285) = V(5250) -! JVRP(286) = dARP(161)/dV(5250) - JVRP(286) = V(601) -! JVRP(287) = dARP(162)/dV(601) - JVRP(287) = V(5250) -! JVRP(288) = dARP(162)/dV(5250) - JVRP(288) = V(601) -! JVRP(289) = dARP(163)/dV(1708) - JVRP(289) = V(5238) -! JVRP(290) = dARP(163)/dV(5238) - JVRP(290) = V(1708) -! JVRP(291) = dARP(164)/dV(1708) - JVRP(291) = V(5238) -! JVRP(292) = dARP(164)/dV(5238) - JVRP(292) = V(1708) -! JVRP(293) = dARP(165)/dV(1708) - JVRP(293) = V(5238) -! JVRP(294) = dARP(165)/dV(5238) - JVRP(294) = V(1708) -! JVRP(295) = dARP(166)/dV(1708) - JVRP(295) = V(5250) -! JVRP(296) = dARP(166)/dV(5250) - JVRP(296) = V(1708) -! JVRP(297) = dARP(167)/dV(1708) - JVRP(297) = V(5250) -! JVRP(298) = dARP(167)/dV(5250) - JVRP(298) = V(1708) -! JVRP(299) = dARP(168)/dV(1708) - JVRP(299) = V(5250) -! JVRP(300) = dARP(168)/dV(5250) - JVRP(300) = V(1708) -! JVRP(301) = dARP(169)/dV(1635) - JVRP(301) = V(5238) -! JVRP(302) = dARP(169)/dV(5238) - JVRP(302) = V(1635) -! JVRP(303) = dARP(170)/dV(1635) - JVRP(303) = V(5238) -! JVRP(304) = dARP(170)/dV(5238) - JVRP(304) = V(1635) -! JVRP(305) = dARP(171)/dV(1635) - JVRP(305) = V(5238) -! JVRP(306) = dARP(171)/dV(5238) - JVRP(306) = V(1635) -! JVRP(307) = dARP(172)/dV(1635) - JVRP(307) = V(5250) -! JVRP(308) = dARP(172)/dV(5250) - JVRP(308) = V(1635) -! JVRP(309) = dARP(173)/dV(1635) - JVRP(309) = V(5250) -! JVRP(310) = dARP(173)/dV(5250) - JVRP(310) = V(1635) -! JVRP(311) = dARP(174)/dV(1635) - JVRP(311) = V(5250) -! JVRP(312) = dARP(174)/dV(5250) - JVRP(312) = V(1635) -! JVRP(313) = dARP(175)/dV(288) - JVRP(313) = V(5238) -! JVRP(314) = dARP(175)/dV(5238) - JVRP(314) = V(288) -! JVRP(315) = dARP(176)/dV(288) - JVRP(315) = V(5250) -! JVRP(316) = dARP(176)/dV(5250) - JVRP(316) = V(288) -! JVRP(317) = dARP(177)/dV(1709) - JVRP(317) = V(5238) -! JVRP(318) = dARP(177)/dV(5238) - JVRP(318) = V(1709) -! JVRP(319) = dARP(178)/dV(1709) - JVRP(319) = V(5238) -! JVRP(320) = dARP(178)/dV(5238) - JVRP(320) = V(1709) -! JVRP(321) = dARP(179)/dV(1709) - JVRP(321) = V(5238) -! JVRP(322) = dARP(179)/dV(5238) - JVRP(322) = V(1709) -! JVRP(323) = dARP(180)/dV(1709) - JVRP(323) = V(5250) -! JVRP(324) = dARP(180)/dV(5250) - JVRP(324) = V(1709) -! JVRP(325) = dARP(181)/dV(1709) - JVRP(325) = V(5250) -! JVRP(326) = dARP(181)/dV(5250) - JVRP(326) = V(1709) -! JVRP(327) = dARP(182)/dV(1709) - JVRP(327) = V(5250) -! JVRP(328) = dARP(182)/dV(5250) - JVRP(328) = V(1709) -! JVRP(329) = dARP(183)/dV(2385) - JVRP(329) = V(5238) -! JVRP(330) = dARP(183)/dV(5238) - JVRP(330) = V(2385) -! JVRP(331) = dARP(184)/dV(2385) - JVRP(331) = V(5238) -! JVRP(332) = dARP(184)/dV(5238) - JVRP(332) = V(2385) -! JVRP(333) = dARP(185)/dV(2385) - JVRP(333) = V(5238) -! JVRP(334) = dARP(185)/dV(5238) - JVRP(334) = V(2385) -! JVRP(335) = dARP(186)/dV(2385) - JVRP(335) = V(5238) -! JVRP(336) = dARP(186)/dV(5238) - JVRP(336) = V(2385) -! JVRP(337) = dARP(187)/dV(2385) - JVRP(337) = V(5250) -! JVRP(338) = dARP(187)/dV(5250) - JVRP(338) = V(2385) -! JVRP(339) = dARP(188)/dV(2385) - JVRP(339) = V(5250) -! JVRP(340) = dARP(188)/dV(5250) - JVRP(340) = V(2385) -! JVRP(341) = dARP(189)/dV(2385) - JVRP(341) = V(5250) -! JVRP(342) = dARP(189)/dV(5250) - JVRP(342) = V(2385) -! JVRP(343) = dARP(190)/dV(2385) - JVRP(343) = V(5250) -! JVRP(344) = dARP(190)/dV(5250) - JVRP(344) = V(2385) -! JVRP(345) = dARP(191)/dV(1641) - JVRP(345) = V(5238) -! JVRP(346) = dARP(191)/dV(5238) - JVRP(346) = V(1641) -! JVRP(347) = dARP(192)/dV(1641) - JVRP(347) = V(5238) -! JVRP(348) = dARP(192)/dV(5238) - JVRP(348) = V(1641) -! JVRP(349) = dARP(193)/dV(1641) - JVRP(349) = V(5238) -! JVRP(350) = dARP(193)/dV(5238) - JVRP(350) = V(1641) -! JVRP(351) = dARP(194)/dV(1641) - JVRP(351) = V(5250) -! JVRP(352) = dARP(194)/dV(5250) - JVRP(352) = V(1641) -! JVRP(353) = dARP(195)/dV(1641) - JVRP(353) = V(5250) -! JVRP(354) = dARP(195)/dV(5250) - JVRP(354) = V(1641) -! JVRP(355) = dARP(196)/dV(1641) - JVRP(355) = V(5250) -! JVRP(356) = dARP(196)/dV(5250) - JVRP(356) = V(1641) -! JVRP(357) = dARP(197)/dV(1688) - JVRP(357) = V(5238) -! JVRP(358) = dARP(197)/dV(5238) - JVRP(358) = V(1688) -! JVRP(359) = dARP(198)/dV(1688) - JVRP(359) = V(5238) -! JVRP(360) = dARP(198)/dV(5238) - JVRP(360) = V(1688) -! JVRP(361) = dARP(199)/dV(1688) - JVRP(361) = V(5238) -! JVRP(362) = dARP(199)/dV(5238) - JVRP(362) = V(1688) -! JVRP(363) = dARP(200)/dV(1688) - JVRP(363) = V(5250) -! JVRP(364) = dARP(200)/dV(5250) - JVRP(364) = V(1688) -! JVRP(365) = dARP(201)/dV(1688) - JVRP(365) = V(5250) -! JVRP(366) = dARP(201)/dV(5250) - JVRP(366) = V(1688) -! JVRP(367) = dARP(202)/dV(1688) - JVRP(367) = V(5250) -! JVRP(368) = dARP(202)/dV(5250) - JVRP(368) = V(1688) -! JVRP(369) = dARP(203)/dV(566) - JVRP(369) = V(5238) -! JVRP(370) = dARP(203)/dV(5238) - JVRP(370) = V(566) -! JVRP(371) = dARP(204)/dV(566) - JVRP(371) = V(5238) -! JVRP(372) = dARP(204)/dV(5238) - JVRP(372) = V(566) -! JVRP(373) = dARP(205)/dV(566) - JVRP(373) = V(5250) -! JVRP(374) = dARP(205)/dV(5250) - JVRP(374) = V(566) -! JVRP(375) = dARP(206)/dV(566) - JVRP(375) = V(5250) -! JVRP(376) = dARP(206)/dV(5250) - JVRP(376) = V(566) -! JVRP(377) = dARP(207)/dV(447) - JVRP(377) = V(5238) -! JVRP(378) = dARP(207)/dV(5238) - JVRP(378) = V(447) -! JVRP(379) = dARP(208)/dV(447) - JVRP(379) = V(5250) -! JVRP(380) = dARP(208)/dV(5250) - JVRP(380) = V(447) -! JVRP(381) = dARP(209)/dV(588) - JVRP(381) = V(5238) -! JVRP(382) = dARP(209)/dV(5238) - JVRP(382) = V(588) -! JVRP(383) = dARP(210)/dV(588) - JVRP(383) = V(5238) -! JVRP(384) = dARP(210)/dV(5238) - JVRP(384) = V(588) -! JVRP(385) = dARP(211)/dV(588) - JVRP(385) = V(5250) -! JVRP(386) = dARP(211)/dV(5250) - JVRP(386) = V(588) -! JVRP(387) = dARP(212)/dV(588) - JVRP(387) = V(5250) -! JVRP(388) = dARP(212)/dV(5250) - JVRP(388) = V(588) -! JVRP(389) = dARP(213)/dV(548) - JVRP(389) = V(5238) -! JVRP(390) = dARP(213)/dV(5238) - JVRP(390) = V(548) -! JVRP(391) = dARP(214)/dV(548) - JVRP(391) = V(5238) -! JVRP(392) = dARP(214)/dV(5238) - JVRP(392) = V(548) -! JVRP(393) = dARP(215)/dV(548) - JVRP(393) = V(5250) -! JVRP(394) = dARP(215)/dV(5250) - JVRP(394) = V(548) -! JVRP(395) = dARP(216)/dV(548) - JVRP(395) = V(5250) -! JVRP(396) = dARP(216)/dV(5250) - JVRP(396) = V(548) -! JVRP(397) = dARP(217)/dV(221) - JVRP(397) = V(5238) -! JVRP(398) = dARP(217)/dV(5238) - JVRP(398) = V(221) -! JVRP(399) = dARP(218)/dV(221) - JVRP(399) = V(5250) -! JVRP(400) = dARP(218)/dV(5250) - JVRP(400) = V(221) -! JVRP(401) = dARP(219)/dV(270) - JVRP(401) = V(5238) -! JVRP(402) = dARP(219)/dV(5238) - JVRP(402) = V(270) -! JVRP(403) = dARP(220)/dV(270) - JVRP(403) = V(5250) -! JVRP(404) = dARP(220)/dV(5250) - JVRP(404) = V(270) -! JVRP(405) = dARP(221)/dV(342) - JVRP(405) = V(5238) -! JVRP(406) = dARP(221)/dV(5238) - JVRP(406) = V(342) -! JVRP(407) = dARP(222)/dV(342) - JVRP(407) = V(5250) -! JVRP(408) = dARP(222)/dV(5250) - JVRP(408) = V(342) -! JVRP(409) = dARP(223)/dV(426) - JVRP(409) = V(5238) -! JVRP(410) = dARP(223)/dV(5238) - JVRP(410) = V(426) -! JVRP(411) = dARP(224)/dV(426) - JVRP(411) = V(5250) -! JVRP(412) = dARP(224)/dV(5250) - JVRP(412) = V(426) -! JVRP(413) = dARP(225)/dV(253) - JVRP(413) = V(5238) -! JVRP(414) = dARP(225)/dV(5238) - JVRP(414) = V(253) -! JVRP(415) = dARP(226)/dV(253) - JVRP(415) = V(5250) -! JVRP(416) = dARP(226)/dV(5250) - JVRP(416) = V(253) -! JVRP(417) = dARP(227)/dV(235) - JVRP(417) = V(5238) -! JVRP(418) = dARP(227)/dV(5238) - JVRP(418) = V(235) -! JVRP(419) = dARP(228)/dV(235) - JVRP(419) = V(5250) -! JVRP(420) = dARP(228)/dV(5250) - JVRP(420) = V(235) -! JVRP(421) = dARP(229)/dV(5124) - JVRP(421) = V(5256) -! JVRP(422) = dARP(229)/dV(5256) - JVRP(422) = V(5124) -! JVRP(423) = dARP(230)/dV(5124) - JVRP(423) = V(5258) -! JVRP(424) = dARP(230)/dV(5258) - JVRP(424) = V(5124) -! JVRP(425) = dARP(231)/dV(5124) - JVRP(425) = V(5250) -! JVRP(426) = dARP(231)/dV(5250) - JVRP(426) = V(5124) -! JVRP(427) = dARP(232)/dV(5200) - JVRP(427) = V(5256) -! JVRP(428) = dARP(232)/dV(5256) - JVRP(428) = V(5200) -! JVRP(429) = dARP(233)/dV(5200) - JVRP(429) = V(5256) -! JVRP(430) = dARP(233)/dV(5256) - JVRP(430) = V(5200) -! JVRP(431) = dARP(234)/dV(5200) - JVRP(431) = V(5258) -! JVRP(432) = dARP(234)/dV(5258) - JVRP(432) = V(5200) -! JVRP(433) = dARP(235)/dV(5200) - JVRP(433) = V(5258) -! JVRP(434) = dARP(235)/dV(5258) - JVRP(434) = V(5200) -! JVRP(435) = dARP(236)/dV(5200) - JVRP(435) = V(5250) -! JVRP(436) = dARP(236)/dV(5250) - JVRP(436) = V(5200) -! JVRP(437) = dARP(237)/dV(5200) - JVRP(437) = V(5250) -! JVRP(438) = dARP(237)/dV(5250) - JVRP(438) = V(5200) -! JVRP(439) = dARP(238)/dV(5051) - JVRP(439) = V(5256) -! JVRP(440) = dARP(238)/dV(5256) - JVRP(440) = V(5051) -! JVRP(441) = dARP(239)/dV(5051) - JVRP(441) = V(5256) -! JVRP(442) = dARP(239)/dV(5256) - JVRP(442) = V(5051) -! JVRP(443) = dARP(240)/dV(5051) - JVRP(443) = V(5258) -! JVRP(444) = dARP(240)/dV(5258) - JVRP(444) = V(5051) -! JVRP(445) = dARP(241)/dV(5051) - JVRP(445) = V(5258) -! JVRP(446) = dARP(241)/dV(5258) - JVRP(446) = V(5051) -! JVRP(447) = dARP(242)/dV(5051) - JVRP(447) = V(5250) -! JVRP(448) = dARP(242)/dV(5250) - JVRP(448) = V(5051) -! JVRP(449) = dARP(243)/dV(5051) - JVRP(449) = V(5250) -! JVRP(450) = dARP(243)/dV(5250) - JVRP(450) = V(5051) -! JVRP(451) = dARP(244)/dV(3465) - JVRP(451) = V(5256) -! JVRP(452) = dARP(244)/dV(5256) - JVRP(452) = V(3465) -! JVRP(453) = dARP(245)/dV(3465) - JVRP(453) = V(5258) -! JVRP(454) = dARP(245)/dV(5258) - JVRP(454) = V(3465) -! JVRP(455) = dARP(246)/dV(3465) - JVRP(455) = V(5250) -! JVRP(456) = dARP(246)/dV(5250) - JVRP(456) = V(3465) -! JVRP(457) = dARP(247)/dV(3466) - JVRP(457) = V(5256) -! JVRP(458) = dARP(247)/dV(5256) - JVRP(458) = V(3466) -! JVRP(459) = dARP(248)/dV(3466) - JVRP(459) = V(5258) -! JVRP(460) = dARP(248)/dV(5258) - JVRP(460) = V(3466) -! JVRP(461) = dARP(249)/dV(3466) - JVRP(461) = V(5250) -! JVRP(462) = dARP(249)/dV(5250) - JVRP(462) = V(3466) -! JVRP(463) = dARP(250)/dV(4512) - JVRP(463) = V(5256) -! JVRP(464) = dARP(250)/dV(5256) - JVRP(464) = V(4512) -! JVRP(465) = dARP(251)/dV(4512) - JVRP(465) = V(5256) -! JVRP(466) = dARP(251)/dV(5256) - JVRP(466) = V(4512) -! JVRP(467) = dARP(252)/dV(4512) - JVRP(467) = V(5258) -! JVRP(468) = dARP(252)/dV(5258) - JVRP(468) = V(4512) -! JVRP(469) = dARP(253)/dV(4512) - JVRP(469) = V(5258) -! JVRP(470) = dARP(253)/dV(5258) - JVRP(470) = V(4512) -! JVRP(471) = dARP(254)/dV(4512) - JVRP(471) = V(5250) -! JVRP(472) = dARP(254)/dV(5250) - JVRP(472) = V(4512) -! JVRP(473) = dARP(255)/dV(4512) - JVRP(473) = V(5250) -! JVRP(474) = dARP(255)/dV(5250) - JVRP(474) = V(4512) -! JVRP(475) = dARP(256)/dV(5190) - JVRP(475) = V(5256) -! JVRP(476) = dARP(256)/dV(5256) - JVRP(476) = V(5190) -! JVRP(477) = dARP(257)/dV(5190) - JVRP(477) = V(5256) -! JVRP(478) = dARP(257)/dV(5256) - JVRP(478) = V(5190) -! JVRP(479) = dARP(258)/dV(5190) - JVRP(479) = V(5258) -! JVRP(480) = dARP(258)/dV(5258) - JVRP(480) = V(5190) -! JVRP(481) = dARP(259)/dV(5190) - JVRP(481) = V(5258) -! JVRP(482) = dARP(259)/dV(5258) - JVRP(482) = V(5190) -! JVRP(483) = dARP(260)/dV(5190) - JVRP(483) = V(5250) -! JVRP(484) = dARP(260)/dV(5250) - JVRP(484) = V(5190) -! JVRP(485) = dARP(261)/dV(5190) - JVRP(485) = V(5250) -! JVRP(486) = dARP(261)/dV(5250) - JVRP(486) = V(5190) -! JVRP(487) = dARP(262)/dV(4332) - JVRP(487) = V(5256) -! JVRP(488) = dARP(262)/dV(5256) - JVRP(488) = V(4332) -! JVRP(489) = dARP(263)/dV(4332) - JVRP(489) = V(5256) -! JVRP(490) = dARP(263)/dV(5256) - JVRP(490) = V(4332) -! JVRP(491) = dARP(264)/dV(4332) - JVRP(491) = V(5258) -! JVRP(492) = dARP(264)/dV(5258) - JVRP(492) = V(4332) -! JVRP(493) = dARP(265)/dV(4332) - JVRP(493) = V(5258) -! JVRP(494) = dARP(265)/dV(5258) - JVRP(494) = V(4332) -! JVRP(495) = dARP(266)/dV(4332) - JVRP(495) = V(5250) -! JVRP(496) = dARP(266)/dV(5250) - JVRP(496) = V(4332) -! JVRP(497) = dARP(267)/dV(4332) - JVRP(497) = V(5250) -! JVRP(498) = dARP(267)/dV(5250) - JVRP(498) = V(4332) -! JVRP(499) = dARP(268)/dV(4475) - JVRP(499) = V(5256) -! JVRP(500) = dARP(268)/dV(5256) - JVRP(500) = V(4475) -! JVRP(501) = dARP(269)/dV(4475) - JVRP(501) = V(5256) -! JVRP(502) = dARP(269)/dV(5256) - JVRP(502) = V(4475) -! JVRP(503) = dARP(270)/dV(4475) - JVRP(503) = V(5258) -! JVRP(504) = dARP(270)/dV(5258) - JVRP(504) = V(4475) -! JVRP(505) = dARP(271)/dV(4475) - JVRP(505) = V(5258) -! JVRP(506) = dARP(271)/dV(5258) - JVRP(506) = V(4475) -! JVRP(507) = dARP(272)/dV(4475) - JVRP(507) = V(5250) -! JVRP(508) = dARP(272)/dV(5250) - JVRP(508) = V(4475) -! JVRP(509) = dARP(273)/dV(4475) - JVRP(509) = V(5250) -! JVRP(510) = dARP(273)/dV(5250) - JVRP(510) = V(4475) -! JVRP(511) = dARP(274)/dV(4601) - JVRP(511) = V(5256) -! JVRP(512) = dARP(274)/dV(5256) - JVRP(512) = V(4601) -! JVRP(513) = dARP(275)/dV(4601) - JVRP(513) = V(5256) -! JVRP(514) = dARP(275)/dV(5256) - JVRP(514) = V(4601) -! JVRP(515) = dARP(276)/dV(4601) - JVRP(515) = V(5258) -! JVRP(516) = dARP(276)/dV(5258) - JVRP(516) = V(4601) -! JVRP(517) = dARP(277)/dV(4601) - JVRP(517) = V(5258) -! JVRP(518) = dARP(277)/dV(5258) - JVRP(518) = V(4601) -! JVRP(519) = dARP(278)/dV(4601) - JVRP(519) = V(5250) -! JVRP(520) = dARP(278)/dV(5250) - JVRP(520) = V(4601) -! JVRP(521) = dARP(279)/dV(4601) - JVRP(521) = V(5250) -! JVRP(522) = dARP(279)/dV(5250) - JVRP(522) = V(4601) -! JVRP(523) = dARP(280)/dV(4508) - JVRP(523) = V(5256) -! JVRP(524) = dARP(280)/dV(5256) - JVRP(524) = V(4508) -! JVRP(525) = dARP(281)/dV(4508) - JVRP(525) = V(5256) -! JVRP(526) = dARP(281)/dV(5256) - JVRP(526) = V(4508) -! JVRP(527) = dARP(282)/dV(4508) - JVRP(527) = V(5258) -! JVRP(528) = dARP(282)/dV(5258) - JVRP(528) = V(4508) -! JVRP(529) = dARP(283)/dV(4508) - JVRP(529) = V(5258) -! JVRP(530) = dARP(283)/dV(5258) - JVRP(530) = V(4508) -! JVRP(531) = dARP(284)/dV(4508) - JVRP(531) = V(5250) -! JVRP(532) = dARP(284)/dV(5250) - JVRP(532) = V(4508) -! JVRP(533) = dARP(285)/dV(4508) - JVRP(533) = V(5250) -! JVRP(534) = dARP(285)/dV(5250) - JVRP(534) = V(4508) -! JVRP(535) = dARP(286)/dV(4474) - JVRP(535) = V(5256) -! JVRP(536) = dARP(286)/dV(5256) - JVRP(536) = V(4474) -! JVRP(537) = dARP(287)/dV(4474) - JVRP(537) = V(5256) -! JVRP(538) = dARP(287)/dV(5256) - JVRP(538) = V(4474) -! JVRP(539) = dARP(288)/dV(4474) - JVRP(539) = V(5258) -! JVRP(540) = dARP(288)/dV(5258) - JVRP(540) = V(4474) -! JVRP(541) = dARP(289)/dV(4474) - JVRP(541) = V(5258) -! JVRP(542) = dARP(289)/dV(5258) - JVRP(542) = V(4474) -! JVRP(543) = dARP(290)/dV(4474) - JVRP(543) = V(5250) -! JVRP(544) = dARP(290)/dV(5250) - JVRP(544) = V(4474) -! JVRP(545) = dARP(291)/dV(4474) - JVRP(545) = V(5250) -! JVRP(546) = dARP(291)/dV(5250) - JVRP(546) = V(4474) -! JVRP(547) = dARP(292)/dV(4527) - JVRP(547) = V(5256) -! JVRP(548) = dARP(292)/dV(5256) - JVRP(548) = V(4527) -! JVRP(549) = dARP(293)/dV(4527) - JVRP(549) = V(5256) -! JVRP(550) = dARP(293)/dV(5256) - JVRP(550) = V(4527) -! JVRP(551) = dARP(294)/dV(4527) - JVRP(551) = V(5258) -! JVRP(552) = dARP(294)/dV(5258) - JVRP(552) = V(4527) -! JVRP(553) = dARP(295)/dV(4527) - JVRP(553) = V(5258) -! JVRP(554) = dARP(295)/dV(5258) - JVRP(554) = V(4527) -! JVRP(555) = dARP(296)/dV(4527) - JVRP(555) = V(5250) -! JVRP(556) = dARP(296)/dV(5250) - JVRP(556) = V(4527) -! JVRP(557) = dARP(297)/dV(4527) - JVRP(557) = V(5250) -! JVRP(558) = dARP(297)/dV(5250) - JVRP(558) = V(4527) -! JVRP(559) = dARP(298)/dV(4604) - JVRP(559) = V(5256) -! JVRP(560) = dARP(298)/dV(5256) - JVRP(560) = V(4604) -! JVRP(561) = dARP(299)/dV(4604) - JVRP(561) = V(5256) -! JVRP(562) = dARP(299)/dV(5256) - JVRP(562) = V(4604) -! JVRP(563) = dARP(300)/dV(4604) - JVRP(563) = V(5258) -! JVRP(564) = dARP(300)/dV(5258) - JVRP(564) = V(4604) -! JVRP(565) = dARP(301)/dV(4604) - JVRP(565) = V(5258) -! JVRP(566) = dARP(301)/dV(5258) - JVRP(566) = V(4604) -! JVRP(567) = dARP(302)/dV(4604) - JVRP(567) = V(5250) -! JVRP(568) = dARP(302)/dV(5250) - JVRP(568) = V(4604) -! JVRP(569) = dARP(303)/dV(4604) - JVRP(569) = V(5250) -! JVRP(570) = dARP(303)/dV(5250) - JVRP(570) = V(4604) -! JVRP(571) = dARP(304)/dV(4606) - JVRP(571) = V(5256) -! JVRP(572) = dARP(304)/dV(5256) - JVRP(572) = V(4606) -! JVRP(573) = dARP(305)/dV(4606) - JVRP(573) = V(5256) -! JVRP(574) = dARP(305)/dV(5256) - JVRP(574) = V(4606) -! JVRP(575) = dARP(306)/dV(4606) - JVRP(575) = V(5258) -! JVRP(576) = dARP(306)/dV(5258) - JVRP(576) = V(4606) -! JVRP(577) = dARP(307)/dV(4606) - JVRP(577) = V(5258) -! JVRP(578) = dARP(307)/dV(5258) - JVRP(578) = V(4606) -! JVRP(579) = dARP(308)/dV(4606) - JVRP(579) = V(5250) -! JVRP(580) = dARP(308)/dV(5250) - JVRP(580) = V(4606) -! JVRP(581) = dARP(309)/dV(4606) - JVRP(581) = V(5250) -! JVRP(582) = dARP(309)/dV(5250) - JVRP(582) = V(4606) -! JVRP(583) = dARP(310)/dV(3442) - JVRP(583) = V(5256) -! JVRP(584) = dARP(310)/dV(5256) - JVRP(584) = V(3442) -! JVRP(585) = dARP(311)/dV(3442) - JVRP(585) = V(5258) -! JVRP(586) = dARP(311)/dV(5258) - JVRP(586) = V(3442) -! JVRP(587) = dARP(312)/dV(3442) - JVRP(587) = V(5250) -! JVRP(588) = dARP(312)/dV(5250) - JVRP(588) = V(3442) -! JVRP(589) = dARP(313)/dV(198) - JVRP(589) = V(5250) -! JVRP(590) = dARP(313)/dV(5250) - JVRP(590) = V(198) -! JVRP(591) = dARP(314)/dV(198) - JVRP(591) = V(5250) -! JVRP(592) = dARP(314)/dV(5250) - JVRP(592) = V(198) -! JVRP(593) = dARP(315)/dV(1703) - JVRP(593) = V(5250) -! JVRP(594) = dARP(315)/dV(5250) - JVRP(594) = V(1703) -! JVRP(595) = dARP(316)/dV(1703) - JVRP(595) = V(5250) -! JVRP(596) = dARP(316)/dV(5250) - JVRP(596) = V(1703) -! JVRP(597) = dARP(317)/dV(1703) - JVRP(597) = V(5250) -! JVRP(598) = dARP(317)/dV(5250) - JVRP(598) = V(1703) -! JVRP(599) = dARP(318)/dV(250) - JVRP(599) = V(5250) -! JVRP(600) = dARP(318)/dV(5250) - JVRP(600) = V(250) -! JVRP(601) = dARP(319)/dV(250) - JVRP(601) = V(5250) -! JVRP(602) = dARP(319)/dV(5250) - JVRP(602) = V(250) -! JVRP(603) = dARP(320)/dV(250) - JVRP(603) = V(5250) -! JVRP(604) = dARP(320)/dV(5250) - JVRP(604) = V(250) -! JVRP(605) = dARP(321)/dV(250) - JVRP(605) = V(5250) -! JVRP(606) = dARP(321)/dV(5250) - JVRP(606) = V(250) -! JVRP(607) = dARP(322)/dV(3145) - JVRP(607) = V(5256) -! JVRP(608) = dARP(322)/dV(5256) - JVRP(608) = V(3145) -! JVRP(609) = dARP(323)/dV(3145) - JVRP(609) = V(5250) -! JVRP(610) = dARP(323)/dV(5250) - JVRP(610) = V(3145) -! JVRP(611) = dARP(324)/dV(3145) - JVRP(611) = V(5250) -! JVRP(612) = dARP(324)/dV(5250) - JVRP(612) = V(3145) -! JVRP(613) = dARP(325)/dV(3145) - JVRP(613) = V(5250) -! JVRP(614) = dARP(325)/dV(5250) - JVRP(614) = V(3145) -! JVRP(615) = dARP(326)/dV(3145) - JVRP(615) = V(5250) -! JVRP(616) = dARP(326)/dV(5250) - JVRP(616) = V(3145) -! JVRP(617) = dARP(327)/dV(3096) - JVRP(617) = V(5256) -! JVRP(618) = dARP(327)/dV(5256) - JVRP(618) = V(3096) -! JVRP(619) = dARP(328)/dV(3096) - JVRP(619) = V(5250) -! JVRP(620) = dARP(328)/dV(5250) - JVRP(620) = V(3096) -! JVRP(621) = dARP(329)/dV(3096) - JVRP(621) = V(5250) -! JVRP(622) = dARP(329)/dV(5250) - JVRP(622) = V(3096) -! JVRP(623) = dARP(330)/dV(3096) - JVRP(623) = V(5250) -! JVRP(624) = dARP(330)/dV(5250) - JVRP(624) = V(3096) -! JVRP(625) = dARP(331)/dV(3096) - JVRP(625) = V(5250) -! JVRP(626) = dARP(331)/dV(5250) - JVRP(626) = V(3096) -! JVRP(627) = dARP(332)/dV(3134) - JVRP(627) = V(5256) -! JVRP(628) = dARP(332)/dV(5256) - JVRP(628) = V(3134) -! JVRP(629) = dARP(333)/dV(3134) - JVRP(629) = V(5250) -! JVRP(630) = dARP(333)/dV(5250) - JVRP(630) = V(3134) -! JVRP(631) = dARP(334)/dV(3134) - JVRP(631) = V(5250) -! JVRP(632) = dARP(334)/dV(5250) - JVRP(632) = V(3134) -! JVRP(633) = dARP(335)/dV(3134) - JVRP(633) = V(5250) -! JVRP(634) = dARP(335)/dV(5250) - JVRP(634) = V(3134) -! JVRP(635) = dARP(336)/dV(3134) - JVRP(635) = V(5250) -! JVRP(636) = dARP(336)/dV(5250) - JVRP(636) = V(3134) -! JVRP(637) = dARP(337)/dV(3105) - JVRP(637) = V(5256) -! JVRP(638) = dARP(337)/dV(5256) - JVRP(638) = V(3105) -! JVRP(639) = dARP(338)/dV(3105) - JVRP(639) = V(5250) -! JVRP(640) = dARP(338)/dV(5250) - JVRP(640) = V(3105) -! JVRP(641) = dARP(339)/dV(3105) - JVRP(641) = V(5250) -! JVRP(642) = dARP(339)/dV(5250) - JVRP(642) = V(3105) -! JVRP(643) = dARP(340)/dV(3105) - JVRP(643) = V(5250) -! JVRP(644) = dARP(340)/dV(5250) - JVRP(644) = V(3105) -! JVRP(645) = dARP(341)/dV(3105) - JVRP(645) = V(5250) -! JVRP(646) = dARP(341)/dV(5250) - JVRP(646) = V(3105) -! JVRP(647) = dARP(342)/dV(3144) - JVRP(647) = V(5256) -! JVRP(648) = dARP(342)/dV(5256) - JVRP(648) = V(3144) -! JVRP(649) = dARP(343)/dV(3144) - JVRP(649) = V(5250) -! JVRP(650) = dARP(343)/dV(5250) - JVRP(650) = V(3144) -! JVRP(651) = dARP(344)/dV(3144) - JVRP(651) = V(5250) -! JVRP(652) = dARP(344)/dV(5250) - JVRP(652) = V(3144) -! JVRP(653) = dARP(345)/dV(3144) - JVRP(653) = V(5250) -! JVRP(654) = dARP(345)/dV(5250) - JVRP(654) = V(3144) -! JVRP(655) = dARP(346)/dV(3144) - JVRP(655) = V(5250) -! JVRP(656) = dARP(346)/dV(5250) - JVRP(656) = V(3144) -! JVRP(657) = dARP(347)/dV(3084) - JVRP(657) = V(5256) -! JVRP(658) = dARP(347)/dV(5256) - JVRP(658) = V(3084) -! JVRP(659) = dARP(348)/dV(3084) - JVRP(659) = V(5250) -! JVRP(660) = dARP(348)/dV(5250) - JVRP(660) = V(3084) -! JVRP(661) = dARP(349)/dV(3084) - JVRP(661) = V(5250) -! JVRP(662) = dARP(349)/dV(5250) - JVRP(662) = V(3084) -! JVRP(663) = dARP(350)/dV(3084) - JVRP(663) = V(5250) -! JVRP(664) = dARP(350)/dV(5250) - JVRP(664) = V(3084) -! JVRP(665) = dARP(351)/dV(3084) - JVRP(665) = V(5250) -! JVRP(666) = dARP(351)/dV(5250) - JVRP(666) = V(3084) -! JVRP(667) = dARP(352)/dV(3179) - JVRP(667) = V(5256) -! JVRP(668) = dARP(352)/dV(5256) - JVRP(668) = V(3179) -! JVRP(669) = dARP(353)/dV(3179) - JVRP(669) = V(5250) -! JVRP(670) = dARP(353)/dV(5250) - JVRP(670) = V(3179) -! JVRP(671) = dARP(354)/dV(3179) - JVRP(671) = V(5250) -! JVRP(672) = dARP(354)/dV(5250) - JVRP(672) = V(3179) -! JVRP(673) = dARP(355)/dV(3179) - JVRP(673) = V(5250) -! JVRP(674) = dARP(355)/dV(5250) - JVRP(674) = V(3179) -! JVRP(675) = dARP(356)/dV(3179) - JVRP(675) = V(5250) -! JVRP(676) = dARP(356)/dV(5250) - JVRP(676) = V(3179) -! JVRP(677) = dARP(357)/dV(3138) - JVRP(677) = V(5256) -! JVRP(678) = dARP(357)/dV(5256) - JVRP(678) = V(3138) -! JVRP(679) = dARP(358)/dV(3138) - JVRP(679) = V(5250) -! JVRP(680) = dARP(358)/dV(5250) - JVRP(680) = V(3138) -! JVRP(681) = dARP(359)/dV(3138) - JVRP(681) = V(5250) -! JVRP(682) = dARP(359)/dV(5250) - JVRP(682) = V(3138) -! JVRP(683) = dARP(360)/dV(3138) - JVRP(683) = V(5250) -! JVRP(684) = dARP(360)/dV(5250) - JVRP(684) = V(3138) -! JVRP(685) = dARP(361)/dV(3138) - JVRP(685) = V(5250) -! JVRP(686) = dARP(361)/dV(5250) - JVRP(686) = V(3138) -! JVRP(687) = dARP(362)/dV(3097) - JVRP(687) = V(5256) -! JVRP(688) = dARP(362)/dV(5256) - JVRP(688) = V(3097) -! JVRP(689) = dARP(363)/dV(3097) - JVRP(689) = V(5250) -! JVRP(690) = dARP(363)/dV(5250) - JVRP(690) = V(3097) -! JVRP(691) = dARP(364)/dV(3097) - JVRP(691) = V(5250) -! JVRP(692) = dARP(364)/dV(5250) - JVRP(692) = V(3097) -! JVRP(693) = dARP(365)/dV(3097) - JVRP(693) = V(5250) -! JVRP(694) = dARP(365)/dV(5250) - JVRP(694) = V(3097) -! JVRP(695) = dARP(366)/dV(3097) - JVRP(695) = V(5250) -! JVRP(696) = dARP(366)/dV(5250) - JVRP(696) = V(3097) -! JVRP(697) = dARP(367)/dV(3192) - JVRP(697) = V(5256) -! JVRP(698) = dARP(367)/dV(5256) - JVRP(698) = V(3192) -! JVRP(699) = dARP(368)/dV(3192) - JVRP(699) = V(5250) -! JVRP(700) = dARP(368)/dV(5250) - JVRP(700) = V(3192) -! JVRP(701) = dARP(369)/dV(3192) - JVRP(701) = V(5250) -! JVRP(702) = dARP(369)/dV(5250) - JVRP(702) = V(3192) -! JVRP(703) = dARP(370)/dV(3192) - JVRP(703) = V(5250) -! JVRP(704) = dARP(370)/dV(5250) - JVRP(704) = V(3192) -! JVRP(705) = dARP(371)/dV(3192) - JVRP(705) = V(5250) -! JVRP(706) = dARP(371)/dV(5250) - JVRP(706) = V(3192) -! JVRP(707) = dARP(372)/dV(3113) - JVRP(707) = V(5256) -! JVRP(708) = dARP(372)/dV(5256) - JVRP(708) = V(3113) -! JVRP(709) = dARP(373)/dV(3113) - JVRP(709) = V(5250) -! JVRP(710) = dARP(373)/dV(5250) - JVRP(710) = V(3113) -! JVRP(711) = dARP(374)/dV(3113) - JVRP(711) = V(5250) -! JVRP(712) = dARP(374)/dV(5250) - JVRP(712) = V(3113) -! JVRP(713) = dARP(375)/dV(3113) - JVRP(713) = V(5250) -! JVRP(714) = dARP(375)/dV(5250) - JVRP(714) = V(3113) -! JVRP(715) = dARP(376)/dV(3113) - JVRP(715) = V(5250) -! JVRP(716) = dARP(376)/dV(5250) - JVRP(716) = V(3113) -! JVRP(717) = dARP(377)/dV(3129) - JVRP(717) = V(5256) -! JVRP(718) = dARP(377)/dV(5256) - JVRP(718) = V(3129) -! JVRP(719) = dARP(378)/dV(3129) - JVRP(719) = V(5250) -! JVRP(720) = dARP(378)/dV(5250) - JVRP(720) = V(3129) -! JVRP(721) = dARP(379)/dV(3129) - JVRP(721) = V(5250) -! JVRP(722) = dARP(379)/dV(5250) - JVRP(722) = V(3129) -! JVRP(723) = dARP(380)/dV(3129) - JVRP(723) = V(5250) -! JVRP(724) = dARP(380)/dV(5250) - JVRP(724) = V(3129) -! JVRP(725) = dARP(381)/dV(3129) - JVRP(725) = V(5250) -! JVRP(726) = dARP(381)/dV(5250) - JVRP(726) = V(3129) -! JVRP(727) = dARP(382)/dV(3182) - JVRP(727) = V(5256) -! JVRP(728) = dARP(382)/dV(5256) - JVRP(728) = V(3182) -! JVRP(729) = dARP(383)/dV(3182) - JVRP(729) = V(5250) -! JVRP(730) = dARP(383)/dV(5250) - JVRP(730) = V(3182) -! JVRP(731) = dARP(384)/dV(3182) - JVRP(731) = V(5250) -! JVRP(732) = dARP(384)/dV(5250) - JVRP(732) = V(3182) -! JVRP(733) = dARP(385)/dV(3182) - JVRP(733) = V(5250) -! JVRP(734) = dARP(385)/dV(5250) - JVRP(734) = V(3182) -! JVRP(735) = dARP(386)/dV(3182) - JVRP(735) = V(5250) -! JVRP(736) = dARP(386)/dV(5250) - JVRP(736) = V(3182) -! JVRP(737) = dARP(387)/dV(3169) - JVRP(737) = V(5256) -! JVRP(738) = dARP(387)/dV(5256) - JVRP(738) = V(3169) -! JVRP(739) = dARP(388)/dV(3169) - JVRP(739) = V(5250) -! JVRP(740) = dARP(388)/dV(5250) - JVRP(740) = V(3169) -! JVRP(741) = dARP(389)/dV(3169) - JVRP(741) = V(5250) -! JVRP(742) = dARP(389)/dV(5250) - JVRP(742) = V(3169) -! JVRP(743) = dARP(390)/dV(3169) - JVRP(743) = V(5250) -! JVRP(744) = dARP(390)/dV(5250) - JVRP(744) = V(3169) -! JVRP(745) = dARP(391)/dV(3169) - JVRP(745) = V(5250) -! JVRP(746) = dARP(391)/dV(5250) - JVRP(746) = V(3169) -! JVRP(747) = dARP(392)/dV(4395) - JVRP(747) = V(5256) -! JVRP(748) = dARP(392)/dV(5256) - JVRP(748) = V(4395) -! JVRP(749) = dARP(393)/dV(4395) - JVRP(749) = V(5258) -! JVRP(750) = dARP(393)/dV(5258) - JVRP(750) = V(4395) -! JVRP(751) = dARP(394)/dV(4395) - JVRP(751) = V(5258) -! JVRP(752) = dARP(394)/dV(5258) - JVRP(752) = V(4395) -! JVRP(753) = dARP(395)/dV(4395) - JVRP(753) = V(5250) -! JVRP(754) = dARP(395)/dV(5250) - JVRP(754) = V(4395) -! JVRP(755) = dARP(396)/dV(4964) - JVRP(755) = 1 -! JVRP(756) = dARP(397)/dV(4964) - JVRP(756) = 1 -! JVRP(757) = dARP(398)/dV(4964) - JVRP(757) = V(5256) -! JVRP(758) = dARP(398)/dV(5256) - JVRP(758) = V(4964) -! JVRP(759) = dARP(399)/dV(4964) - JVRP(759) = V(5250) -! JVRP(760) = dARP(399)/dV(5250) - JVRP(760) = V(4964) -! JVRP(761) = dARP(400)/dV(5153) - JVRP(761) = V(5256) -! JVRP(762) = dARP(400)/dV(5256) - JVRP(762) = V(5153) -! JVRP(763) = dARP(401)/dV(5153) - JVRP(763) = V(5256) -! JVRP(764) = dARP(401)/dV(5256) - JVRP(764) = V(5153) -! JVRP(765) = dARP(402)/dV(5153) - JVRP(765) = V(5258) -! JVRP(766) = dARP(402)/dV(5258) - JVRP(766) = V(5153) -! JVRP(767) = dARP(403)/dV(5153) - JVRP(767) = V(5258) -! JVRP(768) = dARP(403)/dV(5258) - JVRP(768) = V(5153) -! JVRP(769) = dARP(404)/dV(5153) - JVRP(769) = V(5250) -! JVRP(770) = dARP(404)/dV(5250) - JVRP(770) = V(5153) -! JVRP(771) = dARP(405)/dV(5153) - JVRP(771) = V(5250) -! JVRP(772) = dARP(405)/dV(5250) - JVRP(772) = V(5153) -! JVRP(773) = dARP(406)/dV(5153) - JVRP(773) = V(5250) -! JVRP(774) = dARP(406)/dV(5250) - JVRP(774) = V(5153) -! JVRP(775) = dARP(407)/dV(5166) - JVRP(775) = V(5256) -! JVRP(776) = dARP(407)/dV(5256) - JVRP(776) = V(5166) -! JVRP(777) = dARP(408)/dV(5166) - JVRP(777) = V(5258) -! JVRP(778) = dARP(408)/dV(5258) - JVRP(778) = V(5166) -! JVRP(779) = dARP(409)/dV(5166) - JVRP(779) = V(5258) -! JVRP(780) = dARP(409)/dV(5258) - JVRP(780) = V(5166) -! JVRP(781) = dARP(410)/dV(5166) - JVRP(781) = V(5258) -! JVRP(782) = dARP(410)/dV(5258) - JVRP(782) = V(5166) -! JVRP(783) = dARP(411)/dV(5166) - JVRP(783) = V(5258) -! JVRP(784) = dARP(411)/dV(5258) - JVRP(784) = V(5166) -! JVRP(785) = dARP(412)/dV(5166) - JVRP(785) = V(5250) -! JVRP(786) = dARP(412)/dV(5250) - JVRP(786) = V(5166) -! JVRP(787) = dARP(413)/dV(5166) - JVRP(787) = V(5250) -! JVRP(788) = dARP(413)/dV(5250) - JVRP(788) = V(5166) -! JVRP(789) = dARP(414)/dV(5166) - JVRP(789) = V(5250) -! JVRP(790) = dARP(414)/dV(5250) - JVRP(790) = V(5166) -! JVRP(791) = dARP(415)/dV(5166) - JVRP(791) = V(5250) -! JVRP(792) = dARP(415)/dV(5250) - JVRP(792) = V(5166) -! JVRP(793) = dARP(416)/dV(5166) - JVRP(793) = V(5250) -! JVRP(794) = dARP(416)/dV(5250) - JVRP(794) = V(5166) -! JVRP(795) = dARP(417)/dV(5166) - JVRP(795) = V(5250) -! JVRP(796) = dARP(417)/dV(5250) - JVRP(796) = V(5166) -! JVRP(797) = dARP(418)/dV(5166) - JVRP(797) = V(5250) -! JVRP(798) = dARP(418)/dV(5250) - JVRP(798) = V(5166) -! JVRP(799) = dARP(419)/dV(668) - JVRP(799) = V(5256) -! JVRP(800) = dARP(419)/dV(5256) - JVRP(800) = V(668) -! JVRP(801) = dARP(420)/dV(668) - JVRP(801) = V(5250) -! JVRP(802) = dARP(420)/dV(5250) - JVRP(802) = V(668) -! JVRP(803) = dARP(421)/dV(1580) - JVRP(803) = V(5256) -! JVRP(804) = dARP(421)/dV(5256) - JVRP(804) = V(1580) -! JVRP(805) = dARP(422)/dV(1580) - JVRP(805) = V(5250) -! JVRP(806) = dARP(422)/dV(5250) - JVRP(806) = V(1580) -! JVRP(807) = dARP(423)/dV(1580) - JVRP(807) = V(5250) -! JVRP(808) = dARP(423)/dV(5250) - JVRP(808) = V(1580) -! JVRP(809) = dARP(424)/dV(5160) - JVRP(809) = V(5250) -! JVRP(810) = dARP(424)/dV(5250) - JVRP(810) = V(5160) -! JVRP(811) = dARP(425)/dV(5160) - JVRP(811) = 1 -! JVRP(812) = dARP(426)/dV(5178) - JVRP(812) = V(5250) -! JVRP(813) = dARP(426)/dV(5250) - JVRP(813) = V(5178) -! JVRP(814) = dARP(427)/dV(5178) - JVRP(814) = V(5250) -! JVRP(815) = dARP(427)/dV(5250) - JVRP(815) = V(5178) -! JVRP(816) = dARP(428)/dV(5178) - JVRP(816) = V(5250) -! JVRP(817) = dARP(428)/dV(5250) - JVRP(817) = V(5178) -! JVRP(818) = dARP(429)/dV(5178) - JVRP(818) = 1 -! JVRP(819) = dARP(430)/dV(3978) - JVRP(819) = V(5250) -! JVRP(820) = dARP(430)/dV(5250) - JVRP(820) = V(3978) -! JVRP(821) = dARP(431)/dV(3978) - JVRP(821) = V(5250) -! JVRP(822) = dARP(431)/dV(5250) - JVRP(822) = V(3978) -! JVRP(823) = dARP(432)/dV(3978) - JVRP(823) = 1 -! JVRP(824) = dARP(433)/dV(3609) - JVRP(824) = V(5250) -! JVRP(825) = dARP(433)/dV(5250) - JVRP(825) = V(3609) -! JVRP(826) = dARP(434)/dV(3609) - JVRP(826) = V(5250) -! JVRP(827) = dARP(434)/dV(5250) - JVRP(827) = V(3609) -! JVRP(828) = dARP(435)/dV(3609) - JVRP(828) = 1 -! JVRP(829) = dARP(436)/dV(3868) - JVRP(829) = 1 -! JVRP(830) = dARP(437)/dV(3868) - JVRP(830) = V(5250) -! JVRP(831) = dARP(437)/dV(5250) - JVRP(831) = V(3868) -! JVRP(832) = dARP(438)/dV(3868) - JVRP(832) = V(5250) -! JVRP(833) = dARP(438)/dV(5250) - JVRP(833) = V(3868) -! JVRP(834) = dARP(439)/dV(3505) - JVRP(834) = V(5250) -! JVRP(835) = dARP(439)/dV(5250) - JVRP(835) = V(3505) -! JVRP(836) = dARP(440)/dV(3505) - JVRP(836) = V(5250) -! JVRP(837) = dARP(440)/dV(5250) - JVRP(837) = V(3505) -! JVRP(838) = dARP(441)/dV(3505) - JVRP(838) = V(5250) -! JVRP(839) = dARP(441)/dV(5250) - JVRP(839) = V(3505) -! JVRP(840) = dARP(442)/dV(3505) - JVRP(840) = 1 -! JVRP(841) = dARP(443)/dV(3843) - JVRP(841) = V(5250) -! JVRP(842) = dARP(443)/dV(5250) - JVRP(842) = V(3843) -! JVRP(843) = dARP(444)/dV(3843) - JVRP(843) = V(5250) -! JVRP(844) = dARP(444)/dV(5250) - JVRP(844) = V(3843) -! JVRP(845) = dARP(445)/dV(3843) - JVRP(845) = V(5250) -! JVRP(846) = dARP(445)/dV(5250) - JVRP(846) = V(3843) -! JVRP(847) = dARP(446)/dV(3843) - JVRP(847) = V(5250) -! JVRP(848) = dARP(446)/dV(5250) - JVRP(848) = V(3843) -! JVRP(849) = dARP(447)/dV(3843) - JVRP(849) = 1 -! JVRP(850) = dARP(448)/dV(3583) - JVRP(850) = V(5250) -! JVRP(851) = dARP(448)/dV(5250) - JVRP(851) = V(3583) -! JVRP(852) = dARP(449)/dV(3583) - JVRP(852) = V(5250) -! JVRP(853) = dARP(449)/dV(5250) - JVRP(853) = V(3583) -! JVRP(854) = dARP(450)/dV(3583) - JVRP(854) = 1 -! JVRP(855) = dARP(451)/dV(3369) - JVRP(855) = 1 -! JVRP(856) = dARP(452)/dV(3369) - JVRP(856) = V(5250) -! JVRP(857) = dARP(452)/dV(5250) - JVRP(857) = V(3369) -! JVRP(858) = dARP(453)/dV(3689) - JVRP(858) = V(5250) -! JVRP(859) = dARP(453)/dV(5250) - JVRP(859) = V(3689) -! JVRP(860) = dARP(454)/dV(3689) - JVRP(860) = 1 -! JVRP(861) = dARP(455)/dV(3689) - JVRP(861) = 1 -! JVRP(862) = dARP(456)/dV(4492) - JVRP(862) = V(5256) -! JVRP(863) = dARP(456)/dV(5256) - JVRP(863) = V(4492) -! JVRP(864) = dARP(457)/dV(4492) - JVRP(864) = V(5256) -! JVRP(865) = dARP(457)/dV(5256) - JVRP(865) = V(4492) -! JVRP(866) = dARP(458)/dV(4492) - JVRP(866) = V(5258) -! JVRP(867) = dARP(458)/dV(5258) - JVRP(867) = V(4492) -! JVRP(868) = dARP(459)/dV(4492) - JVRP(868) = V(5258) -! JVRP(869) = dARP(459)/dV(5258) - JVRP(869) = V(4492) -! JVRP(870) = dARP(460)/dV(4492) - JVRP(870) = V(5250) -! JVRP(871) = dARP(460)/dV(5250) - JVRP(871) = V(4492) -! JVRP(872) = dARP(461)/dV(4492) - JVRP(872) = V(5250) -! JVRP(873) = dARP(461)/dV(5250) - JVRP(873) = V(4492) -! JVRP(874) = dARP(462)/dV(4492) - JVRP(874) = V(5250) -! JVRP(875) = dARP(462)/dV(5250) - JVRP(875) = V(4492) -! JVRP(876) = dARP(463)/dV(4600) - JVRP(876) = V(5256) -! JVRP(877) = dARP(463)/dV(5256) - JVRP(877) = V(4600) -! JVRP(878) = dARP(464)/dV(4600) - JVRP(878) = V(5256) -! JVRP(879) = dARP(464)/dV(5256) - JVRP(879) = V(4600) -! JVRP(880) = dARP(465)/dV(4600) - JVRP(880) = V(5258) -! JVRP(881) = dARP(465)/dV(5258) - JVRP(881) = V(4600) -! JVRP(882) = dARP(466)/dV(4600) - JVRP(882) = V(5258) -! JVRP(883) = dARP(466)/dV(5258) - JVRP(883) = V(4600) -! JVRP(884) = dARP(467)/dV(4600) - JVRP(884) = V(5250) -! JVRP(885) = dARP(467)/dV(5250) - JVRP(885) = V(4600) -! JVRP(886) = dARP(468)/dV(4600) - JVRP(886) = V(5250) -! JVRP(887) = dARP(468)/dV(5250) - JVRP(887) = V(4600) -! JVRP(888) = dARP(469)/dV(4600) - JVRP(888) = V(5250) -! JVRP(889) = dARP(469)/dV(5250) - JVRP(889) = V(4600) -! JVRP(890) = dARP(470)/dV(4605) - JVRP(890) = V(5256) -! JVRP(891) = dARP(470)/dV(5256) - JVRP(891) = V(4605) -! JVRP(892) = dARP(471)/dV(4605) - JVRP(892) = V(5258) -! JVRP(893) = dARP(471)/dV(5258) - JVRP(893) = V(4605) -! JVRP(894) = dARP(472)/dV(4605) - JVRP(894) = V(5258) -! JVRP(895) = dARP(472)/dV(5258) - JVRP(895) = V(4605) -! JVRP(896) = dARP(473)/dV(4605) - JVRP(896) = V(5250) -! JVRP(897) = dARP(473)/dV(5250) - JVRP(897) = V(4605) -! JVRP(898) = dARP(474)/dV(4605) - JVRP(898) = V(5250) -! JVRP(899) = dARP(474)/dV(5250) - JVRP(899) = V(4605) -! JVRP(900) = dARP(475)/dV(4605) - JVRP(900) = V(5250) -! JVRP(901) = dARP(475)/dV(5250) - JVRP(901) = V(4605) -! JVRP(902) = dARP(476)/dV(4988) - JVRP(902) = V(5256) -! JVRP(903) = dARP(476)/dV(5256) - JVRP(903) = V(4988) -! JVRP(904) = dARP(477)/dV(4988) - JVRP(904) = V(5258) -! JVRP(905) = dARP(477)/dV(5258) - JVRP(905) = V(4988) -! JVRP(906) = dARP(478)/dV(4988) - JVRP(906) = V(5258) -! JVRP(907) = dARP(478)/dV(5258) - JVRP(907) = V(4988) -! JVRP(908) = dARP(479)/dV(4988) - JVRP(908) = V(5258) -! JVRP(909) = dARP(479)/dV(5258) - JVRP(909) = V(4988) -! JVRP(910) = dARP(480)/dV(4988) - JVRP(910) = V(5258) -! JVRP(911) = dARP(480)/dV(5258) - JVRP(911) = V(4988) -! JVRP(912) = dARP(481)/dV(4988) - JVRP(912) = V(5250) -! JVRP(913) = dARP(481)/dV(5250) - JVRP(913) = V(4988) -! JVRP(914) = dARP(482)/dV(4988) - JVRP(914) = V(5250) -! JVRP(915) = dARP(482)/dV(5250) - JVRP(915) = V(4988) -! JVRP(916) = dARP(483)/dV(4988) - JVRP(916) = V(5250) -! JVRP(917) = dARP(483)/dV(5250) - JVRP(917) = V(4988) -! JVRP(918) = dARP(484)/dV(1750) - JVRP(918) = 1 -! JVRP(919) = dARP(485)/dV(5195) - JVRP(919) = V(5255) -! JVRP(920) = dARP(485)/dV(5255) - JVRP(920) = V(5195) -! JVRP(921) = dARP(486)/dV(5195) - JVRP(921) = V(5252) -! JVRP(922) = dARP(486)/dV(5252) - JVRP(922) = V(5195) -! JVRP(923) = dARP(487)/dV(5195) - JVRP(923) = V(5252) -! JVRP(924) = dARP(487)/dV(5252) - JVRP(924) = V(5195) -! JVRP(925) = dARP(488)/dV(5195) - JVRP(925) = V(5256) -! JVRP(926) = dARP(488)/dV(5256) - JVRP(926) = V(5195) -! JVRP(927) = dARP(489)/dV(5195) - JVRP(927) = 1 -! JVRP(928) = dARP(490)/dV(5195) - JVRP(928) = 1 -! JVRP(929) = dARP(491)/dV(5195) - JVRP(929) = 1 -! JVRP(930) = dARP(492)/dV(4995) - JVRP(930) = V(5255) -! JVRP(931) = dARP(492)/dV(5255) - JVRP(931) = V(4995) -! JVRP(932) = dARP(493)/dV(4995) - JVRP(932) = V(5252) -! JVRP(933) = dARP(493)/dV(5252) - JVRP(933) = V(4995) -! JVRP(934) = dARP(494)/dV(4995) - JVRP(934) = V(5252) -! JVRP(935) = dARP(494)/dV(5252) - JVRP(935) = V(4995) -! JVRP(936) = dARP(495)/dV(4995) - JVRP(936) = V(5256) -! JVRP(937) = dARP(495)/dV(5256) - JVRP(937) = V(4995) -! JVRP(938) = dARP(496)/dV(4995) - JVRP(938) = 1 -! JVRP(939) = dARP(497)/dV(4995) - JVRP(939) = 1 -! JVRP(940) = dARP(498)/dV(4995) - JVRP(940) = 1 -! JVRP(941) = dARP(499)/dV(5121) - JVRP(941) = V(5255) -! JVRP(942) = dARP(499)/dV(5255) - JVRP(942) = V(5121) -! JVRP(943) = dARP(500)/dV(5121) - JVRP(943) = V(5256) -! JVRP(944) = dARP(500)/dV(5256) - JVRP(944) = V(5121) -! JVRP(945) = dARP(501)/dV(5121) - JVRP(945) = 1 -! JVRP(946) = dARP(502)/dV(5121) - JVRP(946) = 1 -! JVRP(947) = dARP(503)/dV(5121) - JVRP(947) = 1 -! JVRP(948) = dARP(504)/dV(5121) - JVRP(948) = V(5252) -! JVRP(949) = dARP(504)/dV(5252) - JVRP(949) = V(5121) -! JVRP(950) = dARP(505)/dV(5121) - JVRP(950) = V(5252) -! JVRP(951) = dARP(505)/dV(5252) - JVRP(951) = V(5121) -! JVRP(952) = dARP(506)/dV(5202) - JVRP(952) = V(5255) -! JVRP(953) = dARP(506)/dV(5255) - JVRP(953) = V(5202) -! JVRP(954) = dARP(507)/dV(5202) - JVRP(954) = V(5252) -! JVRP(955) = dARP(507)/dV(5252) - JVRP(955) = V(5202) -! JVRP(956) = dARP(508)/dV(5202) - JVRP(956) = V(5252) -! JVRP(957) = dARP(508)/dV(5252) - JVRP(957) = V(5202) -! JVRP(958) = dARP(509)/dV(5202) - JVRP(958) = V(5256) -! JVRP(959) = dARP(509)/dV(5256) - JVRP(959) = V(5202) -! JVRP(960) = dARP(510)/dV(5202) - JVRP(960) = 1 -! JVRP(961) = dARP(511)/dV(5202) - JVRP(961) = 1 -! JVRP(962) = dARP(512)/dV(5202) - JVRP(962) = 1 -! JVRP(963) = dARP(513)/dV(4645) - JVRP(963) = V(5255) -! JVRP(964) = dARP(513)/dV(5255) - JVRP(964) = V(4645) -! JVRP(965) = dARP(514)/dV(4645) - JVRP(965) = V(5252) -! JVRP(966) = dARP(514)/dV(5252) - JVRP(966) = V(4645) -! JVRP(967) = dARP(515)/dV(4645) - JVRP(967) = V(5252) -! JVRP(968) = dARP(515)/dV(5252) - JVRP(968) = V(4645) -! JVRP(969) = dARP(516)/dV(4645) - JVRP(969) = V(5256) -! JVRP(970) = dARP(516)/dV(5256) - JVRP(970) = V(4645) -! JVRP(971) = dARP(517)/dV(4645) - JVRP(971) = 1 -! JVRP(972) = dARP(518)/dV(4645) - JVRP(972) = 1 -! JVRP(973) = dARP(519)/dV(4645) - JVRP(973) = 1 -! JVRP(974) = dARP(520)/dV(4870) - JVRP(974) = V(5255) -! JVRP(975) = dARP(520)/dV(5255) - JVRP(975) = V(4870) -! JVRP(976) = dARP(521)/dV(4870) - JVRP(976) = V(5252) -! JVRP(977) = dARP(521)/dV(5252) - JVRP(977) = V(4870) -! JVRP(978) = dARP(522)/dV(4870) - JVRP(978) = V(5252) -! JVRP(979) = dARP(522)/dV(5252) - JVRP(979) = V(4870) -! JVRP(980) = dARP(523)/dV(4870) - JVRP(980) = V(5256) -! JVRP(981) = dARP(523)/dV(5256) - JVRP(981) = V(4870) -! JVRP(982) = dARP(524)/dV(4870) - JVRP(982) = 1 -! JVRP(983) = dARP(525)/dV(4870) - JVRP(983) = 1 -! JVRP(984) = dARP(526)/dV(4870) - JVRP(984) = 1 -! JVRP(985) = dARP(527)/dV(5007) - JVRP(985) = V(5255) -! JVRP(986) = dARP(527)/dV(5255) - JVRP(986) = V(5007) -! JVRP(987) = dARP(528)/dV(5007) - JVRP(987) = V(5252) -! JVRP(988) = dARP(528)/dV(5252) - JVRP(988) = V(5007) -! JVRP(989) = dARP(529)/dV(5007) - JVRP(989) = V(5252) -! JVRP(990) = dARP(529)/dV(5252) - JVRP(990) = V(5007) -! JVRP(991) = dARP(530)/dV(5007) - JVRP(991) = V(5256) -! JVRP(992) = dARP(530)/dV(5256) - JVRP(992) = V(5007) -! JVRP(993) = dARP(531)/dV(5007) - JVRP(993) = 1 -! JVRP(994) = dARP(532)/dV(5007) - JVRP(994) = 1 -! JVRP(995) = dARP(533)/dV(5007) - JVRP(995) = 1 -! JVRP(996) = dARP(534)/dV(5060) - JVRP(996) = V(5255) -! JVRP(997) = dARP(534)/dV(5255) - JVRP(997) = V(5060) -! JVRP(998) = dARP(535)/dV(5060) - JVRP(998) = V(5252) -! JVRP(999) = dARP(535)/dV(5252) - JVRP(999) = V(5060) -! JVRP(1000) = dARP(536)/dV(5060) - JVRP(1000) = V(5252) -! JVRP(1001) = dARP(536)/dV(5252) - JVRP(1001) = V(5060) -! JVRP(1002) = dARP(537)/dV(5060) - JVRP(1002) = V(5256) -! JVRP(1003) = dARP(537)/dV(5256) - JVRP(1003) = V(5060) -! JVRP(1004) = dARP(538)/dV(5060) - JVRP(1004) = 1 -! JVRP(1005) = dARP(539)/dV(5060) - JVRP(1005) = 1 -! JVRP(1006) = dARP(540)/dV(4411) - JVRP(1006) = V(5255) -! JVRP(1007) = dARP(540)/dV(5255) - JVRP(1007) = V(4411) -! JVRP(1008) = dARP(541)/dV(4411) - JVRP(1008) = V(5252) -! JVRP(1009) = dARP(541)/dV(5252) - JVRP(1009) = V(4411) -! JVRP(1010) = dARP(542)/dV(4411) - JVRP(1010) = V(5252) -! JVRP(1011) = dARP(542)/dV(5252) - JVRP(1011) = V(4411) -! JVRP(1012) = dARP(543)/dV(4411) - JVRP(1012) = V(5256) -! JVRP(1013) = dARP(543)/dV(5256) - JVRP(1013) = V(4411) -! JVRP(1014) = dARP(544)/dV(4411) - JVRP(1014) = 1 -! JVRP(1015) = dARP(545)/dV(4411) - JVRP(1015) = 1 -! JVRP(1016) = dARP(546)/dV(4411) - JVRP(1016) = 1 -! JVRP(1017) = dARP(547)/dV(5129) - JVRP(1017) = V(5255) -! JVRP(1018) = dARP(547)/dV(5255) - JVRP(1018) = V(5129) -! JVRP(1019) = dARP(548)/dV(5129) - JVRP(1019) = V(5252) -! JVRP(1020) = dARP(548)/dV(5252) - JVRP(1020) = V(5129) -! JVRP(1021) = dARP(549)/dV(5129) - JVRP(1021) = V(5252) -! JVRP(1022) = dARP(549)/dV(5252) - JVRP(1022) = V(5129) -! JVRP(1023) = dARP(550)/dV(5129) - JVRP(1023) = V(5256) -! JVRP(1024) = dARP(550)/dV(5256) - JVRP(1024) = V(5129) -! JVRP(1025) = dARP(551)/dV(5129) - JVRP(1025) = 1 -! JVRP(1026) = dARP(552)/dV(5129) - JVRP(1026) = 1 -! JVRP(1027) = dARP(553)/dV(5129) - JVRP(1027) = 1 -! JVRP(1028) = dARP(554)/dV(2465) - JVRP(1028) = 1 -! JVRP(1029) = dARP(555)/dV(5185) - JVRP(1029) = V(5255) -! JVRP(1030) = dARP(555)/dV(5255) - JVRP(1030) = V(5185) -! JVRP(1031) = dARP(556)/dV(5185) - JVRP(1031) = V(5252) -! JVRP(1032) = dARP(556)/dV(5252) - JVRP(1032) = V(5185) -! JVRP(1033) = dARP(557)/dV(5185) - JVRP(1033) = V(5252) -! JVRP(1034) = dARP(557)/dV(5252) - JVRP(1034) = V(5185) -! JVRP(1035) = dARP(558)/dV(5185) - JVRP(1035) = V(5256) -! JVRP(1036) = dARP(558)/dV(5256) - JVRP(1036) = V(5185) -! JVRP(1037) = dARP(559)/dV(5185) - JVRP(1037) = 1 -! JVRP(1038) = dARP(560)/dV(5185) - JVRP(1038) = 1 -! JVRP(1039) = dARP(561)/dV(5185) - JVRP(1039) = 1 -! JVRP(1040) = dARP(562)/dV(4767) - JVRP(1040) = V(5255) -! JVRP(1041) = dARP(562)/dV(5255) - JVRP(1041) = V(4767) -! JVRP(1042) = dARP(563)/dV(4767) - JVRP(1042) = V(5252) -! JVRP(1043) = dARP(563)/dV(5252) - JVRP(1043) = V(4767) -! JVRP(1044) = dARP(564)/dV(4767) - JVRP(1044) = V(5252) -! JVRP(1045) = dARP(564)/dV(5252) - JVRP(1045) = V(4767) -! JVRP(1046) = dARP(565)/dV(4767) - JVRP(1046) = V(5256) -! JVRP(1047) = dARP(565)/dV(5256) - JVRP(1047) = V(4767) -! JVRP(1048) = dARP(566)/dV(4767) - JVRP(1048) = 1 -! JVRP(1049) = dARP(567)/dV(4767) - JVRP(1049) = 1 -! JVRP(1050) = dARP(568)/dV(4767) - JVRP(1050) = 1 -! JVRP(1051) = dARP(569)/dV(5042) - JVRP(1051) = 1 -! JVRP(1052) = dARP(570)/dV(5042) - JVRP(1052) = 1 -! JVRP(1053) = dARP(571)/dV(5042) - JVRP(1053) = V(5256) -! JVRP(1054) = dARP(571)/dV(5256) - JVRP(1054) = V(5042) -! JVRP(1055) = dARP(572)/dV(5042) - JVRP(1055) = V(5250) -! JVRP(1056) = dARP(572)/dV(5250) - JVRP(1056) = V(5042) -! JVRP(1057) = dARP(573)/dV(4310) - JVRP(1057) = V(5255) -! JVRP(1058) = dARP(573)/dV(5255) - JVRP(1058) = V(4310) -! JVRP(1059) = dARP(574)/dV(4310) - JVRP(1059) = V(5252) -! JVRP(1060) = dARP(574)/dV(5252) - JVRP(1060) = V(4310) -! JVRP(1061) = dARP(575)/dV(4310) - JVRP(1061) = V(5252) -! JVRP(1062) = dARP(575)/dV(5252) - JVRP(1062) = V(4310) -! JVRP(1063) = dARP(576)/dV(4310) - JVRP(1063) = V(5256) -! JVRP(1064) = dARP(576)/dV(5256) - JVRP(1064) = V(4310) -! JVRP(1065) = dARP(577)/dV(4310) - JVRP(1065) = 1 -! JVRP(1066) = dARP(578)/dV(4310) - JVRP(1066) = 1 -! JVRP(1067) = dARP(579)/dV(4310) - JVRP(1067) = 1 -! JVRP(1068) = dARP(580)/dV(4837) - JVRP(1068) = V(5255) -! JVRP(1069) = dARP(580)/dV(5255) - JVRP(1069) = V(4837) -! JVRP(1070) = dARP(581)/dV(4837) - JVRP(1070) = V(5252) -! JVRP(1071) = dARP(581)/dV(5252) - JVRP(1071) = V(4837) -! JVRP(1072) = dARP(582)/dV(4837) - JVRP(1072) = V(5252) -! JVRP(1073) = dARP(582)/dV(5252) - JVRP(1073) = V(4837) -! JVRP(1074) = dARP(583)/dV(4837) - JVRP(1074) = V(5256) -! JVRP(1075) = dARP(583)/dV(5256) - JVRP(1075) = V(4837) -! JVRP(1076) = dARP(584)/dV(4837) - JVRP(1076) = 1 -! JVRP(1077) = dARP(585)/dV(4837) - JVRP(1077) = 1 -! JVRP(1078) = dARP(586)/dV(1573) - JVRP(1078) = V(5256) -! JVRP(1079) = dARP(586)/dV(5256) - JVRP(1079) = V(1573) -! JVRP(1080) = dARP(587)/dV(1573) - JVRP(1080) = V(5250) -! JVRP(1081) = dARP(587)/dV(5250) - JVRP(1081) = V(1573) -! JVRP(1082) = dARP(588)/dV(1573) - JVRP(1082) = V(5250) -! JVRP(1083) = dARP(588)/dV(5250) - JVRP(1083) = V(1573) -! JVRP(1084) = dARP(589)/dV(4844) - JVRP(1084) = V(5255) -! JVRP(1085) = dARP(589)/dV(5255) - JVRP(1085) = V(4844) -! JVRP(1086) = dARP(590)/dV(4844) - JVRP(1086) = V(5252) -! JVRP(1087) = dARP(590)/dV(5252) - JVRP(1087) = V(4844) -! JVRP(1088) = dARP(591)/dV(4844) - JVRP(1088) = V(5252) -! JVRP(1089) = dARP(591)/dV(5252) - JVRP(1089) = V(4844) -! JVRP(1090) = dARP(592)/dV(4844) - JVRP(1090) = V(5256) -! JVRP(1091) = dARP(592)/dV(5256) - JVRP(1091) = V(4844) -! JVRP(1092) = dARP(593)/dV(4844) - JVRP(1092) = 1 -! JVRP(1093) = dARP(594)/dV(4844) - JVRP(1093) = 1 -! JVRP(1094) = dARP(595)/dV(4562) - JVRP(1094) = V(5255) -! JVRP(1095) = dARP(595)/dV(5255) - JVRP(1095) = V(4562) -! JVRP(1096) = dARP(596)/dV(4562) - JVRP(1096) = V(5252) -! JVRP(1097) = dARP(596)/dV(5252) - JVRP(1097) = V(4562) -! JVRP(1098) = dARP(597)/dV(4562) - JVRP(1098) = V(5252) -! JVRP(1099) = dARP(597)/dV(5252) - JVRP(1099) = V(4562) -! JVRP(1100) = dARP(598)/dV(4562) - JVRP(1100) = V(5256) -! JVRP(1101) = dARP(598)/dV(5256) - JVRP(1101) = V(4562) -! JVRP(1102) = dARP(599)/dV(4562) - JVRP(1102) = 1 -! JVRP(1103) = dARP(600)/dV(4562) - JVRP(1103) = 1 -! JVRP(1104) = dARP(601)/dV(4562) - JVRP(1104) = 1 -! JVRP(1105) = dARP(602)/dV(5148) - JVRP(1105) = V(5255) -! JVRP(1106) = dARP(602)/dV(5255) - JVRP(1106) = V(5148) -! JVRP(1107) = dARP(603)/dV(5148) - JVRP(1107) = V(5252) -! JVRP(1108) = dARP(603)/dV(5252) - JVRP(1108) = V(5148) -! JVRP(1109) = dARP(604)/dV(5148) - JVRP(1109) = V(5252) -! JVRP(1110) = dARP(604)/dV(5252) - JVRP(1110) = V(5148) -! JVRP(1111) = dARP(605)/dV(5148) - JVRP(1111) = V(5256) -! JVRP(1112) = dARP(605)/dV(5256) - JVRP(1112) = V(5148) -! JVRP(1113) = dARP(606)/dV(5148) - JVRP(1113) = 1 -! JVRP(1114) = dARP(607)/dV(5148) - JVRP(1114) = 1 -! JVRP(1115) = dARP(608)/dV(5148) - JVRP(1115) = 1 -! JVRP(1116) = dARP(609)/dV(4473) - JVRP(1116) = V(5255) -! JVRP(1117) = dARP(609)/dV(5255) - JVRP(1117) = V(4473) -! JVRP(1118) = dARP(610)/dV(4473) - JVRP(1118) = V(5252) -! JVRP(1119) = dARP(610)/dV(5252) - JVRP(1119) = V(4473) -! JVRP(1120) = dARP(611)/dV(4473) - JVRP(1120) = V(5252) -! JVRP(1121) = dARP(611)/dV(5252) - JVRP(1121) = V(4473) -! JVRP(1122) = dARP(612)/dV(4473) - JVRP(1122) = V(5256) -! JVRP(1123) = dARP(612)/dV(5256) - JVRP(1123) = V(4473) -! JVRP(1124) = dARP(613)/dV(4473) - JVRP(1124) = 1 -! JVRP(1125) = dARP(614)/dV(4473) - JVRP(1125) = 1 -! JVRP(1126) = dARP(615)/dV(4473) - JVRP(1126) = 1 -! JVRP(1127) = dARP(616)/dV(4959) - JVRP(1127) = V(5255) -! JVRP(1128) = dARP(616)/dV(5255) - JVRP(1128) = V(4959) -! JVRP(1129) = dARP(617)/dV(4959) - JVRP(1129) = V(5252) -! JVRP(1130) = dARP(617)/dV(5252) - JVRP(1130) = V(4959) -! JVRP(1131) = dARP(618)/dV(4959) - JVRP(1131) = V(5252) -! JVRP(1132) = dARP(618)/dV(5252) - JVRP(1132) = V(4959) -! JVRP(1133) = dARP(619)/dV(4959) - JVRP(1133) = V(5256) -! JVRP(1134) = dARP(619)/dV(5256) - JVRP(1134) = V(4959) -! JVRP(1135) = dARP(620)/dV(4959) - JVRP(1135) = 1 -! JVRP(1136) = dARP(621)/dV(4959) - JVRP(1136) = 1 -! JVRP(1137) = dARP(622)/dV(4959) - JVRP(1137) = 1 -! JVRP(1138) = dARP(623)/dV(5116) - JVRP(1138) = V(5255) -! JVRP(1139) = dARP(623)/dV(5255) - JVRP(1139) = V(5116) -! JVRP(1140) = dARP(624)/dV(5116) - JVRP(1140) = V(5252) -! JVRP(1141) = dARP(624)/dV(5252) - JVRP(1141) = V(5116) -! JVRP(1142) = dARP(625)/dV(5116) - JVRP(1142) = V(5252) -! JVRP(1143) = dARP(625)/dV(5252) - JVRP(1143) = V(5116) -! JVRP(1144) = dARP(626)/dV(5116) - JVRP(1144) = V(5256) -! JVRP(1145) = dARP(626)/dV(5256) - JVRP(1145) = V(5116) -! JVRP(1146) = dARP(627)/dV(5116) - JVRP(1146) = 1 -! JVRP(1147) = dARP(628)/dV(5116) - JVRP(1147) = 1 -! JVRP(1148) = dARP(629)/dV(5116) - JVRP(1148) = 1 -! JVRP(1149) = dARP(630)/dV(4647) - JVRP(1149) = V(5255) -! JVRP(1150) = dARP(630)/dV(5255) - JVRP(1150) = V(4647) -! JVRP(1151) = dARP(631)/dV(4647) - JVRP(1151) = V(5252) -! JVRP(1152) = dARP(631)/dV(5252) - JVRP(1152) = V(4647) -! JVRP(1153) = dARP(632)/dV(4647) - JVRP(1153) = V(5252) -! JVRP(1154) = dARP(632)/dV(5252) - JVRP(1154) = V(4647) -! JVRP(1155) = dARP(633)/dV(4647) - JVRP(1155) = V(5256) -! JVRP(1156) = dARP(633)/dV(5256) - JVRP(1156) = V(4647) -! JVRP(1157) = dARP(634)/dV(4647) - JVRP(1157) = 1 -! JVRP(1158) = dARP(635)/dV(4647) - JVRP(1158) = 1 -! JVRP(1159) = dARP(636)/dV(4814) - JVRP(1159) = V(5255) -! JVRP(1160) = dARP(636)/dV(5255) - JVRP(1160) = V(4814) -! JVRP(1161) = dARP(637)/dV(4814) - JVRP(1161) = V(5252) -! JVRP(1162) = dARP(637)/dV(5252) - JVRP(1162) = V(4814) -! JVRP(1163) = dARP(638)/dV(4814) - JVRP(1163) = V(5252) -! JVRP(1164) = dARP(638)/dV(5252) - JVRP(1164) = V(4814) -! JVRP(1165) = dARP(639)/dV(4814) - JVRP(1165) = V(5256) -! JVRP(1166) = dARP(639)/dV(5256) - JVRP(1166) = V(4814) -! JVRP(1167) = dARP(640)/dV(4814) - JVRP(1167) = 1 -! JVRP(1168) = dARP(641)/dV(4814) - JVRP(1168) = 1 -! JVRP(1169) = dARP(642)/dV(4814) - JVRP(1169) = 1 -! JVRP(1170) = dARP(643)/dV(4780) - JVRP(1170) = V(5255) -! JVRP(1171) = dARP(643)/dV(5255) - JVRP(1171) = V(4780) -! JVRP(1172) = dARP(644)/dV(4780) - JVRP(1172) = V(5252) -! JVRP(1173) = dARP(644)/dV(5252) - JVRP(1173) = V(4780) -! JVRP(1174) = dARP(645)/dV(4780) - JVRP(1174) = V(5256) -! JVRP(1175) = dARP(645)/dV(5256) - JVRP(1175) = V(4780) -! JVRP(1176) = dARP(646)/dV(4780) - JVRP(1176) = 1 -! JVRP(1177) = dARP(647)/dV(4780) - JVRP(1177) = 1 -! JVRP(1178) = dARP(648)/dV(4780) - JVRP(1178) = 1 -! JVRP(1179) = dARP(649)/dV(4161) - JVRP(1179) = V(5255) -! JVRP(1180) = dARP(649)/dV(5255) - JVRP(1180) = V(4161) -! JVRP(1181) = dARP(650)/dV(4161) - JVRP(1181) = V(5252) -! JVRP(1182) = dARP(650)/dV(5252) - JVRP(1182) = V(4161) -! JVRP(1183) = dARP(651)/dV(4161) - JVRP(1183) = V(5252) -! JVRP(1184) = dARP(651)/dV(5252) - JVRP(1184) = V(4161) -! JVRP(1185) = dARP(652)/dV(4161) - JVRP(1185) = V(5256) -! JVRP(1186) = dARP(652)/dV(5256) - JVRP(1186) = V(4161) -! JVRP(1187) = dARP(653)/dV(4161) - JVRP(1187) = 1 -! JVRP(1188) = dARP(654)/dV(4161) - JVRP(1188) = 1 -! JVRP(1189) = dARP(655)/dV(4161) - JVRP(1189) = 1 -! JVRP(1190) = dARP(656)/dV(4698) - JVRP(1190) = V(5255) -! JVRP(1191) = dARP(656)/dV(5255) - JVRP(1191) = V(4698) -! JVRP(1192) = dARP(657)/dV(4698) - JVRP(1192) = V(5252) -! JVRP(1193) = dARP(657)/dV(5252) - JVRP(1193) = V(4698) -! JVRP(1194) = dARP(658)/dV(4698) - JVRP(1194) = V(5256) -! JVRP(1195) = dARP(658)/dV(5256) - JVRP(1195) = V(4698) -! JVRP(1196) = dARP(659)/dV(4698) - JVRP(1196) = 1 -! JVRP(1197) = dARP(660)/dV(4698) - JVRP(1197) = 1 -! JVRP(1198) = dARP(661)/dV(4698) - JVRP(1198) = 1 -! JVRP(1199) = dARP(662)/dV(5244) - JVRP(1199) = V(5255) -! JVRP(1200) = dARP(662)/dV(5255) - JVRP(1200) = V(5244) -! JVRP(1201) = dARP(663)/dV(5244) - JVRP(1201) = V(5255) -! JVRP(1202) = dARP(663)/dV(5255) - JVRP(1202) = V(5244) -! JVRP(1203) = dARP(664)/dV(5244) - JVRP(1203) = V(5255) -! JVRP(1204) = dARP(664)/dV(5255) - JVRP(1204) = V(5244) -! JVRP(1205) = dARP(665)/dV(5244) - JVRP(1205) = V(5252) -! JVRP(1206) = dARP(665)/dV(5252) - JVRP(1206) = V(5244) -! JVRP(1207) = dARP(666)/dV(5244) - JVRP(1207) = V(5253) -! JVRP(1208) = dARP(666)/dV(5253) - JVRP(1208) = V(5244) -! JVRP(1209) = dARP(667)/dV(5244) - JVRP(1209) = V(5256) -! JVRP(1210) = dARP(667)/dV(5256) - JVRP(1210) = V(5244) -! JVRP(1211) = dARP(668)/dV(5244) - JVRP(1211) = 1 -! JVRP(1212) = dARP(669)/dV(5244) - JVRP(1212) = 1 -! JVRP(1213) = dARP(670)/dV(5234) - JVRP(1213) = V(5256) -! JVRP(1214) = dARP(670)/dV(5256) - JVRP(1214) = V(5234) -! JVRP(1215) = dARP(671)/dV(5234) - JVRP(1215) = V(5250) -! JVRP(1216) = dARP(671)/dV(5250) - JVRP(1216) = V(5234) -! JVRP(1217) = dARP(672)/dV(5234) - JVRP(1217) = V(5250) -! JVRP(1218) = dARP(672)/dV(5250) - JVRP(1218) = V(5234) -! JVRP(1219) = dARP(673)/dV(5234) - JVRP(1219) = 1 -! JVRP(1220) = dARP(674)/dV(5188) - JVRP(1220) = V(5250) -! JVRP(1221) = dARP(674)/dV(5250) - JVRP(1221) = V(5188) -! JVRP(1222) = dARP(675)/dV(5188) - JVRP(1222) = 1 -! JVRP(1223) = dARP(676)/dV(5087) - JVRP(1223) = V(5256) -! JVRP(1224) = dARP(676)/dV(5256) - JVRP(1224) = V(5087) -! JVRP(1225) = dARP(677)/dV(5087) - JVRP(1225) = V(5250) -! JVRP(1226) = dARP(677)/dV(5250) - JVRP(1226) = V(5087) -! JVRP(1227) = dARP(678)/dV(5087) - JVRP(1227) = 1 -! JVRP(1228) = dARP(679)/dV(4585) - JVRP(1228) = V(5255) -! JVRP(1229) = dARP(679)/dV(5255) - JVRP(1229) = V(4585) -! JVRP(1230) = dARP(680)/dV(4585) - JVRP(1230) = V(5252) -! JVRP(1231) = dARP(680)/dV(5252) - JVRP(1231) = V(4585) -! JVRP(1232) = dARP(681)/dV(4585) - JVRP(1232) = V(5256) -! JVRP(1233) = dARP(681)/dV(5256) - JVRP(1233) = V(4585) -! JVRP(1234) = dARP(682)/dV(4585) - JVRP(1234) = 1 -! JVRP(1235) = dARP(683)/dV(4585) - JVRP(1235) = 1 -! JVRP(1236) = dARP(684)/dV(4585) - JVRP(1236) = 1 -! JVRP(1237) = dARP(685)/dV(4364) - JVRP(1237) = V(5255) -! JVRP(1238) = dARP(685)/dV(5255) - JVRP(1238) = V(4364) -! JVRP(1239) = dARP(686)/dV(4364) - JVRP(1239) = V(5252) -! JVRP(1240) = dARP(686)/dV(5252) - JVRP(1240) = V(4364) -! JVRP(1241) = dARP(687)/dV(4364) - JVRP(1241) = V(5256) -! JVRP(1242) = dARP(687)/dV(5256) - JVRP(1242) = V(4364) -! JVRP(1243) = dARP(688)/dV(4364) - JVRP(1243) = 1 -! JVRP(1244) = dARP(689)/dV(4364) - JVRP(1244) = 1 -! JVRP(1245) = dARP(690)/dV(4364) - JVRP(1245) = 1 -! JVRP(1246) = dARP(691)/dV(1776) - JVRP(1246) = 1 -! JVRP(1247) = dARP(692)/dV(1776) - JVRP(1247) = 1 -! JVRP(1248) = dARP(693)/dV(1776) - JVRP(1248) = 1 -! JVRP(1249) = dARP(694)/dV(1776) - JVRP(1249) = 1 -! JVRP(1250) = dARP(695)/dV(5000) - JVRP(1250) = V(5250) -! JVRP(1251) = dARP(695)/dV(5250) - JVRP(1251) = V(5000) -! JVRP(1252) = dARP(696)/dV(5000) - JVRP(1252) = 1 -! JVRP(1253) = dARP(697)/dV(4528) - JVRP(1253) = 1 -! JVRP(1254) = dARP(698)/dV(4528) - JVRP(1254) = 1 -! JVRP(1255) = dARP(699)/dV(4528) - JVRP(1255) = 1 -! JVRP(1256) = dARP(700)/dV(4596) - JVRP(1256) = V(5255) -! JVRP(1257) = dARP(700)/dV(5255) - JVRP(1257) = V(4596) -! JVRP(1258) = dARP(701)/dV(4596) - JVRP(1258) = V(5252) -! JVRP(1259) = dARP(701)/dV(5252) - JVRP(1259) = V(4596) -! JVRP(1260) = dARP(702)/dV(4596) - JVRP(1260) = V(5252) -! JVRP(1261) = dARP(702)/dV(5252) - JVRP(1261) = V(4596) -! JVRP(1262) = dARP(703)/dV(4596) - JVRP(1262) = V(5256) -! JVRP(1263) = dARP(703)/dV(5256) - JVRP(1263) = V(4596) -! JVRP(1264) = dARP(704)/dV(4596) - JVRP(1264) = 1 -! JVRP(1265) = dARP(705)/dV(4596) - JVRP(1265) = 1 -! JVRP(1266) = dARP(706)/dV(4596) - JVRP(1266) = 1 -! JVRP(1267) = dARP(707)/dV(4554) - JVRP(1267) = V(5255) -! JVRP(1268) = dARP(707)/dV(5255) - JVRP(1268) = V(4554) -! JVRP(1269) = dARP(708)/dV(4554) - JVRP(1269) = V(5252) -! JVRP(1270) = dARP(708)/dV(5252) - JVRP(1270) = V(4554) -! JVRP(1271) = dARP(709)/dV(4554) - JVRP(1271) = V(5252) -! JVRP(1272) = dARP(709)/dV(5252) - JVRP(1272) = V(4554) -! JVRP(1273) = dARP(710)/dV(4554) - JVRP(1273) = V(5256) -! JVRP(1274) = dARP(710)/dV(5256) - JVRP(1274) = V(4554) -! JVRP(1275) = dARP(711)/dV(4554) - JVRP(1275) = 1 -! JVRP(1276) = dARP(712)/dV(4554) - JVRP(1276) = 1 -! JVRP(1277) = dARP(713)/dV(4554) - JVRP(1277) = 1 -! JVRP(1278) = dARP(714)/dV(5228) - JVRP(1278) = V(5255) -! JVRP(1279) = dARP(714)/dV(5255) - JVRP(1279) = V(5228) -! JVRP(1280) = dARP(715)/dV(5228) - JVRP(1280) = V(5255) -! JVRP(1281) = dARP(715)/dV(5255) - JVRP(1281) = V(5228) -! JVRP(1282) = dARP(716)/dV(5228) - JVRP(1282) = V(5252) -! JVRP(1283) = dARP(716)/dV(5252) - JVRP(1283) = V(5228) -! JVRP(1284) = dARP(717)/dV(5228) - JVRP(1284) = V(5252) -! JVRP(1285) = dARP(717)/dV(5252) - JVRP(1285) = V(5228) -! JVRP(1286) = dARP(718)/dV(5228) - JVRP(1286) = V(5253) -! JVRP(1287) = dARP(718)/dV(5253) - JVRP(1287) = V(5228) -! JVRP(1288) = dARP(719)/dV(5228) - JVRP(1288) = V(5256) -! JVRP(1289) = dARP(719)/dV(5256) - JVRP(1289) = V(5228) -! JVRP(1290) = dARP(720)/dV(5228) - JVRP(1290) = 1 -! JVRP(1291) = dARP(721)/dV(5228) - JVRP(1291) = 1 -! JVRP(1292) = dARP(722)/dV(5228) - JVRP(1292) = 1 -! JVRP(1293) = dARP(723)/dV(5235) - JVRP(1293) = V(5255) -! JVRP(1294) = dARP(723)/dV(5255) - JVRP(1294) = V(5235) -! JVRP(1295) = dARP(724)/dV(5235) - JVRP(1295) = V(5252) -! JVRP(1296) = dARP(724)/dV(5252) - JVRP(1296) = V(5235) -! JVRP(1297) = dARP(725)/dV(5235) - JVRP(1297) = V(5256) -! JVRP(1298) = dARP(725)/dV(5256) - JVRP(1298) = V(5235) -! JVRP(1299) = dARP(726)/dV(5235) - JVRP(1299) = 1 -! JVRP(1300) = dARP(727)/dV(5235) - JVRP(1300) = 1 -! JVRP(1301) = dARP(728)/dV(5235) - JVRP(1301) = 1 -! JVRP(1302) = dARP(729)/dV(5183) - JVRP(1302) = V(5255) -! JVRP(1303) = dARP(729)/dV(5255) - JVRP(1303) = V(5183) -! JVRP(1304) = dARP(730)/dV(5183) - JVRP(1304) = V(5255) -! JVRP(1305) = dARP(730)/dV(5255) - JVRP(1305) = V(5183) -! JVRP(1306) = dARP(731)/dV(5183) - JVRP(1306) = V(5255) -! JVRP(1307) = dARP(731)/dV(5255) - JVRP(1307) = V(5183) -! JVRP(1308) = dARP(732)/dV(5183) - JVRP(1308) = V(5252) -! JVRP(1309) = dARP(732)/dV(5252) - JVRP(1309) = V(5183) -! JVRP(1310) = dARP(733)/dV(5183) - JVRP(1310) = V(5253) -! JVRP(1311) = dARP(733)/dV(5253) - JVRP(1311) = V(5183) -! JVRP(1312) = dARP(734)/dV(5183) - JVRP(1312) = V(5256) -! JVRP(1313) = dARP(734)/dV(5256) - JVRP(1313) = V(5183) -! JVRP(1314) = dARP(735)/dV(5183) - JVRP(1314) = 1 -! JVRP(1315) = dARP(736)/dV(5183) - JVRP(1315) = 1 -! JVRP(1316) = dARP(737)/dV(5142) - JVRP(1316) = V(5255) -! JVRP(1317) = dARP(737)/dV(5255) - JVRP(1317) = V(5142) -! JVRP(1318) = dARP(738)/dV(5142) - JVRP(1318) = V(5252) -! JVRP(1319) = dARP(738)/dV(5252) - JVRP(1319) = V(5142) -! JVRP(1320) = dARP(739)/dV(5142) - JVRP(1320) = V(5252) -! JVRP(1321) = dARP(739)/dV(5252) - JVRP(1321) = V(5142) -! JVRP(1322) = dARP(740)/dV(5142) - JVRP(1322) = V(5256) -! JVRP(1323) = dARP(740)/dV(5256) - JVRP(1323) = V(5142) -! JVRP(1324) = dARP(741)/dV(5142) - JVRP(1324) = 1 -! JVRP(1325) = dARP(742)/dV(5142) - JVRP(1325) = 1 -! JVRP(1326) = dARP(743)/dV(5142) - JVRP(1326) = 1 -! JVRP(1327) = dARP(744)/dV(5125) - JVRP(1327) = V(5255) -! JVRP(1328) = dARP(744)/dV(5255) - JVRP(1328) = V(5125) -! JVRP(1329) = dARP(745)/dV(5125) - JVRP(1329) = V(5255) -! JVRP(1330) = dARP(745)/dV(5255) - JVRP(1330) = V(5125) -! JVRP(1331) = dARP(746)/dV(5125) - JVRP(1331) = V(5255) -! JVRP(1332) = dARP(746)/dV(5255) - JVRP(1332) = V(5125) -! JVRP(1333) = dARP(747)/dV(5125) - JVRP(1333) = V(5252) -! JVRP(1334) = dARP(747)/dV(5252) - JVRP(1334) = V(5125) -! JVRP(1335) = dARP(748)/dV(5125) - JVRP(1335) = V(5253) -! JVRP(1336) = dARP(748)/dV(5253) - JVRP(1336) = V(5125) -! JVRP(1337) = dARP(749)/dV(5125) - JVRP(1337) = V(5256) -! JVRP(1338) = dARP(749)/dV(5256) - JVRP(1338) = V(5125) -! JVRP(1339) = dARP(750)/dV(5125) - JVRP(1339) = 1 -! JVRP(1340) = dARP(751)/dV(5125) - JVRP(1340) = 1 -! JVRP(1341) = dARP(752)/dV(4705) - JVRP(1341) = V(5255) -! JVRP(1342) = dARP(752)/dV(5255) - JVRP(1342) = V(4705) -! JVRP(1343) = dARP(753)/dV(4705) - JVRP(1343) = V(5252) -! JVRP(1344) = dARP(753)/dV(5252) - JVRP(1344) = V(4705) -! JVRP(1345) = dARP(754)/dV(4705) - JVRP(1345) = V(5252) -! JVRP(1346) = dARP(754)/dV(5252) - JVRP(1346) = V(4705) -! JVRP(1347) = dARP(755)/dV(4705) - JVRP(1347) = V(5256) -! JVRP(1348) = dARP(755)/dV(5256) - JVRP(1348) = V(4705) -! JVRP(1349) = dARP(756)/dV(4705) - JVRP(1349) = 1 -! JVRP(1350) = dARP(757)/dV(4705) - JVRP(1350) = 1 -! JVRP(1351) = dARP(758)/dV(4705) - JVRP(1351) = 1 -! JVRP(1352) = dARP(759)/dV(5229) - JVRP(1352) = V(5255) -! JVRP(1353) = dARP(759)/dV(5255) - JVRP(1353) = V(5229) -! JVRP(1354) = dARP(760)/dV(5229) - JVRP(1354) = V(5252) -! JVRP(1355) = dARP(760)/dV(5252) - JVRP(1355) = V(5229) -! JVRP(1356) = dARP(761)/dV(5229) - JVRP(1356) = V(5252) -! JVRP(1357) = dARP(761)/dV(5252) - JVRP(1357) = V(5229) -! JVRP(1358) = dARP(762)/dV(5229) - JVRP(1358) = V(5256) -! JVRP(1359) = dARP(762)/dV(5256) - JVRP(1359) = V(5229) -! JVRP(1360) = dARP(763)/dV(5229) - JVRP(1360) = 1 -! JVRP(1361) = dARP(764)/dV(5229) - JVRP(1361) = 1 -! JVRP(1362) = dARP(765)/dV(5229) - JVRP(1362) = 1 -! JVRP(1363) = dARP(766)/dV(5106) - JVRP(1363) = V(5255) -! JVRP(1364) = dARP(766)/dV(5255) - JVRP(1364) = V(5106) -! JVRP(1365) = dARP(767)/dV(5106) - JVRP(1365) = V(5255) -! JVRP(1366) = dARP(767)/dV(5255) - JVRP(1366) = V(5106) -! JVRP(1367) = dARP(768)/dV(5106) - JVRP(1367) = V(5255) -! JVRP(1368) = dARP(768)/dV(5255) - JVRP(1368) = V(5106) -! JVRP(1369) = dARP(769)/dV(5106) - JVRP(1369) = V(5252) -! JVRP(1370) = dARP(769)/dV(5252) - JVRP(1370) = V(5106) -! JVRP(1371) = dARP(770)/dV(5106) - JVRP(1371) = V(5253) -! JVRP(1372) = dARP(770)/dV(5253) - JVRP(1372) = V(5106) -! JVRP(1373) = dARP(771)/dV(5106) - JVRP(1373) = V(5256) -! JVRP(1374) = dARP(771)/dV(5256) - JVRP(1374) = V(5106) -! JVRP(1375) = dARP(772)/dV(5106) - JVRP(1375) = 1 -! JVRP(1376) = dARP(773)/dV(5106) - JVRP(1376) = 1 -! JVRP(1377) = dARP(774)/dV(3847) - JVRP(1377) = V(5255) -! JVRP(1378) = dARP(774)/dV(5255) - JVRP(1378) = V(3847) -! JVRP(1379) = dARP(775)/dV(3847) - JVRP(1379) = V(5252) -! JVRP(1380) = dARP(775)/dV(5252) - JVRP(1380) = V(3847) -! JVRP(1381) = dARP(776)/dV(3847) - JVRP(1381) = V(5252) -! JVRP(1382) = dARP(776)/dV(5252) - JVRP(1382) = V(3847) -! JVRP(1383) = dARP(777)/dV(3847) - JVRP(1383) = V(5256) -! JVRP(1384) = dARP(777)/dV(5256) - JVRP(1384) = V(3847) -! JVRP(1385) = dARP(778)/dV(3847) - JVRP(1385) = 1 -! JVRP(1386) = dARP(779)/dV(3847) - JVRP(1386) = 1 -! JVRP(1387) = dARP(780)/dV(3847) - JVRP(1387) = 1 -! JVRP(1388) = dARP(781)/dV(4763) - JVRP(1388) = V(5255) -! JVRP(1389) = dARP(781)/dV(5255) - JVRP(1389) = V(4763) -! JVRP(1390) = dARP(782)/dV(4763) - JVRP(1390) = V(5252) -! JVRP(1391) = dARP(782)/dV(5252) - JVRP(1391) = V(4763) -! JVRP(1392) = dARP(783)/dV(4763) - JVRP(1392) = V(5256) -! JVRP(1393) = dARP(783)/dV(5256) - JVRP(1393) = V(4763) -! JVRP(1394) = dARP(784)/dV(4763) - JVRP(1394) = 1 -! JVRP(1395) = dARP(785)/dV(4763) - JVRP(1395) = 1 -! JVRP(1396) = dARP(786)/dV(5145) - JVRP(1396) = V(5255) -! JVRP(1397) = dARP(786)/dV(5255) - JVRP(1397) = V(5145) -! JVRP(1398) = dARP(787)/dV(5145) - JVRP(1398) = V(5252) -! JVRP(1399) = dARP(787)/dV(5252) - JVRP(1399) = V(5145) -! JVRP(1400) = dARP(788)/dV(5145) - JVRP(1400) = V(5252) -! JVRP(1401) = dARP(788)/dV(5252) - JVRP(1401) = V(5145) -! JVRP(1402) = dARP(789)/dV(5145) - JVRP(1402) = V(5256) -! JVRP(1403) = dARP(789)/dV(5256) - JVRP(1403) = V(5145) -! JVRP(1404) = dARP(790)/dV(5145) - JVRP(1404) = 1 -! JVRP(1405) = dARP(791)/dV(5145) - JVRP(1405) = 1 -! JVRP(1406) = dARP(792)/dV(5145) - JVRP(1406) = 1 -! JVRP(1407) = dARP(793)/dV(4944) - JVRP(1407) = V(5255) -! JVRP(1408) = dARP(793)/dV(5255) - JVRP(1408) = V(4944) -! JVRP(1409) = dARP(794)/dV(4944) - JVRP(1409) = V(5255) -! JVRP(1410) = dARP(794)/dV(5255) - JVRP(1410) = V(4944) -! JVRP(1411) = dARP(795)/dV(4944) - JVRP(1411) = V(5255) -! JVRP(1412) = dARP(795)/dV(5255) - JVRP(1412) = V(4944) -! JVRP(1413) = dARP(796)/dV(4944) - JVRP(1413) = V(5252) -! JVRP(1414) = dARP(796)/dV(5252) - JVRP(1414) = V(4944) -! JVRP(1415) = dARP(797)/dV(4944) - JVRP(1415) = V(5253) -! JVRP(1416) = dARP(797)/dV(5253) - JVRP(1416) = V(4944) -! JVRP(1417) = dARP(798)/dV(4944) - JVRP(1417) = V(5256) -! JVRP(1418) = dARP(798)/dV(5256) - JVRP(1418) = V(4944) -! JVRP(1419) = dARP(799)/dV(4944) - JVRP(1419) = 1 -! JVRP(1420) = dARP(800)/dV(4944) - JVRP(1420) = 1 -! JVRP(1421) = dARP(801)/dV(3884) - JVRP(1421) = V(5255) -! JVRP(1422) = dARP(801)/dV(5255) - JVRP(1422) = V(3884) -! JVRP(1423) = dARP(802)/dV(3884) - JVRP(1423) = V(5252) -! JVRP(1424) = dARP(802)/dV(5252) - JVRP(1424) = V(3884) -! JVRP(1425) = dARP(803)/dV(3884) - JVRP(1425) = V(5252) -! JVRP(1426) = dARP(803)/dV(5252) - JVRP(1426) = V(3884) -! JVRP(1427) = dARP(804)/dV(3884) - JVRP(1427) = V(5256) -! JVRP(1428) = dARP(804)/dV(5256) - JVRP(1428) = V(3884) -! JVRP(1429) = dARP(805)/dV(3884) - JVRP(1429) = 1 -! JVRP(1430) = dARP(806)/dV(3884) - JVRP(1430) = 1 -! JVRP(1431) = dARP(807)/dV(3884) - JVRP(1431) = 1 -! JVRP(1432) = dARP(808)/dV(5208) - JVRP(1432) = V(5255) -! JVRP(1433) = dARP(808)/dV(5255) - JVRP(1433) = V(5208) -! JVRP(1434) = dARP(809)/dV(5208) - JVRP(1434) = V(5252) -! JVRP(1435) = dARP(809)/dV(5252) - JVRP(1435) = V(5208) -! JVRP(1436) = dARP(810)/dV(5208) - JVRP(1436) = V(5252) -! JVRP(1437) = dARP(810)/dV(5252) - JVRP(1437) = V(5208) -! JVRP(1438) = dARP(811)/dV(5208) - JVRP(1438) = V(5256) -! JVRP(1439) = dARP(811)/dV(5256) - JVRP(1439) = V(5208) -! JVRP(1440) = dARP(812)/dV(5208) - JVRP(1440) = 1 -! JVRP(1441) = dARP(813)/dV(5208) - JVRP(1441) = 1 -! JVRP(1442) = dARP(814)/dV(5208) - JVRP(1442) = 1 -! JVRP(1443) = dARP(815)/dV(4954) - JVRP(1443) = V(5255) -! JVRP(1444) = dARP(815)/dV(5255) - JVRP(1444) = V(4954) -! JVRP(1445) = dARP(816)/dV(4954) - JVRP(1445) = V(5255) -! JVRP(1446) = dARP(816)/dV(5255) - JVRP(1446) = V(4954) -! JVRP(1447) = dARP(817)/dV(4954) - JVRP(1447) = V(5255) -! JVRP(1448) = dARP(817)/dV(5255) - JVRP(1448) = V(4954) -! JVRP(1449) = dARP(818)/dV(4954) - JVRP(1449) = V(5252) -! JVRP(1450) = dARP(818)/dV(5252) - JVRP(1450) = V(4954) -! JVRP(1451) = dARP(819)/dV(4954) - JVRP(1451) = V(5253) -! JVRP(1452) = dARP(819)/dV(5253) - JVRP(1452) = V(4954) -! JVRP(1453) = dARP(820)/dV(4954) - JVRP(1453) = V(5256) -! JVRP(1454) = dARP(820)/dV(5256) - JVRP(1454) = V(4954) -! JVRP(1455) = dARP(821)/dV(4954) - JVRP(1455) = 1 -! JVRP(1456) = dARP(822)/dV(4954) - JVRP(1456) = 1 -! JVRP(1457) = dARP(823)/dV(4382) - JVRP(1457) = V(5255) -! JVRP(1458) = dARP(823)/dV(5255) - JVRP(1458) = V(4382) -! JVRP(1459) = dARP(824)/dV(4382) - JVRP(1459) = V(5252) -! JVRP(1460) = dARP(824)/dV(5252) - JVRP(1460) = V(4382) -! JVRP(1461) = dARP(825)/dV(4382) - JVRP(1461) = V(5256) -! JVRP(1462) = dARP(825)/dV(5256) - JVRP(1462) = V(4382) -! JVRP(1463) = dARP(826)/dV(4382) - JVRP(1463) = 1 -! JVRP(1464) = dARP(827)/dV(4382) - JVRP(1464) = 1 -! JVRP(1465) = dARP(828)/dV(4382) - JVRP(1465) = 1 -! JVRP(1466) = dARP(829)/dV(4382) - JVRP(1466) = 1 -! JVRP(1467) = dARP(830)/dV(4932) - JVRP(1467) = V(5255) -! JVRP(1468) = dARP(830)/dV(5255) - JVRP(1468) = V(4932) -! JVRP(1469) = dARP(831)/dV(4932) - JVRP(1469) = V(5255) -! JVRP(1470) = dARP(831)/dV(5255) - JVRP(1470) = V(4932) -! JVRP(1471) = dARP(832)/dV(4932) - JVRP(1471) = V(5252) -! JVRP(1472) = dARP(832)/dV(5252) - JVRP(1472) = V(4932) -! JVRP(1473) = dARP(833)/dV(4932) - JVRP(1473) = V(5252) -! JVRP(1474) = dARP(833)/dV(5252) - JVRP(1474) = V(4932) -! JVRP(1475) = dARP(834)/dV(4932) - JVRP(1475) = V(5256) -! JVRP(1476) = dARP(834)/dV(5256) - JVRP(1476) = V(4932) -! JVRP(1477) = dARP(835)/dV(4932) - JVRP(1477) = 1 -! JVRP(1478) = dARP(836)/dV(4932) - JVRP(1478) = 1 -! JVRP(1479) = dARP(837)/dV(4932) - JVRP(1479) = 1 -! JVRP(1480) = dARP(838)/dV(5233) - JVRP(1480) = 1 -! JVRP(1481) = dARP(839)/dV(5233) - JVRP(1481) = 1 -! JVRP(1482) = dARP(840)/dV(5233) - JVRP(1482) = 1 -! JVRP(1483) = dARP(841)/dV(5233) - JVRP(1483) = V(5256) -! JVRP(1484) = dARP(841)/dV(5256) - JVRP(1484) = V(5233) -! JVRP(1485) = dARP(842)/dV(5233) - JVRP(1485) = V(5250) -! JVRP(1486) = dARP(842)/dV(5250) - JVRP(1486) = V(5233) -! JVRP(1487) = dARP(843)/dV(2748) - JVRP(1487) = 1 -! JVRP(1488) = dARP(844)/dV(2748) - JVRP(1488) = 1 -! JVRP(1489) = dARP(845)/dV(2748) - JVRP(1489) = 1 -! JVRP(1490) = dARP(846)/dV(2748) - JVRP(1490) = 1 -! JVRP(1491) = dARP(847)/dV(3652) - JVRP(1491) = 1 -! JVRP(1492) = dARP(848)/dV(3652) - JVRP(1492) = 1 -! JVRP(1493) = dARP(849)/dV(5128) - JVRP(1493) = V(5255) -! JVRP(1494) = dARP(849)/dV(5255) - JVRP(1494) = V(5128) -! JVRP(1495) = dARP(850)/dV(5128) - JVRP(1495) = V(5255) -! JVRP(1496) = dARP(850)/dV(5255) - JVRP(1496) = V(5128) -! JVRP(1497) = dARP(851)/dV(5128) - JVRP(1497) = V(5255) -! JVRP(1498) = dARP(851)/dV(5255) - JVRP(1498) = V(5128) -! JVRP(1499) = dARP(852)/dV(5128) - JVRP(1499) = V(5252) -! JVRP(1500) = dARP(852)/dV(5252) - JVRP(1500) = V(5128) -! JVRP(1501) = dARP(853)/dV(5128) - JVRP(1501) = V(5253) -! JVRP(1502) = dARP(853)/dV(5253) - JVRP(1502) = V(5128) -! JVRP(1503) = dARP(854)/dV(5128) - JVRP(1503) = V(5256) -! JVRP(1504) = dARP(854)/dV(5256) - JVRP(1504) = V(5128) -! JVRP(1505) = dARP(855)/dV(5128) - JVRP(1505) = 1 -! JVRP(1506) = dARP(856)/dV(5128) - JVRP(1506) = 1 -! JVRP(1507) = dARP(857)/dV(763) - JVRP(1507) = 1 -! JVRP(1508) = dARP(858)/dV(763) - JVRP(1508) = 1 -! JVRP(1509) = dARP(859)/dV(5222) - JVRP(1509) = 1 -! JVRP(1510) = dARP(860)/dV(5222) - JVRP(1510) = V(5256) -! JVRP(1511) = dARP(860)/dV(5256) - JVRP(1511) = V(5222) -! JVRP(1512) = dARP(861)/dV(5222) - JVRP(1512) = V(5250) -! JVRP(1513) = dARP(861)/dV(5250) - JVRP(1513) = V(5222) -! JVRP(1514) = dARP(862)/dV(684) - JVRP(1514) = 1 -! JVRP(1515) = dARP(863)/dV(684) - JVRP(1515) = 1 -! JVRP(1516) = dARP(864)/dV(684) - JVRP(1516) = 1 -! JVRP(1517) = dARP(865)/dV(4936) - JVRP(1517) = V(5255) -! JVRP(1518) = dARP(865)/dV(5255) - JVRP(1518) = V(4936) -! JVRP(1519) = dARP(866)/dV(4936) - JVRP(1519) = V(5252) -! JVRP(1520) = dARP(866)/dV(5252) - JVRP(1520) = V(4936) -! JVRP(1521) = dARP(867)/dV(4936) - JVRP(1521) = V(5252) -! JVRP(1522) = dARP(867)/dV(5252) - JVRP(1522) = V(4936) -! JVRP(1523) = dARP(868)/dV(4936) - JVRP(1523) = V(5256) -! JVRP(1524) = dARP(868)/dV(5256) - JVRP(1524) = V(4936) -! JVRP(1525) = dARP(869)/dV(4936) - JVRP(1525) = 1 -! JVRP(1526) = dARP(870)/dV(4936) - JVRP(1526) = 1 -! JVRP(1527) = dARP(871)/dV(4936) - JVRP(1527) = 1 -! JVRP(1528) = dARP(872)/dV(4783) - JVRP(1528) = V(5255) -! JVRP(1529) = dARP(872)/dV(5255) - JVRP(1529) = V(4783) -! JVRP(1530) = dARP(873)/dV(4783) - JVRP(1530) = V(5252) -! JVRP(1531) = dARP(873)/dV(5252) - JVRP(1531) = V(4783) -! JVRP(1532) = dARP(874)/dV(4783) - JVRP(1532) = V(5252) -! JVRP(1533) = dARP(874)/dV(5252) - JVRP(1533) = V(4783) -! JVRP(1534) = dARP(875)/dV(4783) - JVRP(1534) = V(5256) -! JVRP(1535) = dARP(875)/dV(5256) - JVRP(1535) = V(4783) -! JVRP(1536) = dARP(876)/dV(4783) - JVRP(1536) = 1 -! JVRP(1537) = dARP(877)/dV(4783) - JVRP(1537) = 1 -! JVRP(1538) = dARP(878)/dV(4783) - JVRP(1538) = 1 -! JVRP(1539) = dARP(879)/dV(4428) - JVRP(1539) = V(5255) -! JVRP(1540) = dARP(879)/dV(5255) - JVRP(1540) = V(4428) -! JVRP(1541) = dARP(880)/dV(4428) - JVRP(1541) = V(5255) -! JVRP(1542) = dARP(880)/dV(5255) - JVRP(1542) = V(4428) -! JVRP(1543) = dARP(881)/dV(4428) - JVRP(1543) = V(5255) -! JVRP(1544) = dARP(881)/dV(5255) - JVRP(1544) = V(4428) -! JVRP(1545) = dARP(882)/dV(4428) - JVRP(1545) = V(5252) -! JVRP(1546) = dARP(882)/dV(5252) - JVRP(1546) = V(4428) -! JVRP(1547) = dARP(883)/dV(4428) - JVRP(1547) = V(5253) -! JVRP(1548) = dARP(883)/dV(5253) - JVRP(1548) = V(4428) -! JVRP(1549) = dARP(884)/dV(4428) - JVRP(1549) = V(5256) -! JVRP(1550) = dARP(884)/dV(5256) - JVRP(1550) = V(4428) -! JVRP(1551) = dARP(885)/dV(4428) - JVRP(1551) = 1 -! JVRP(1552) = dARP(886)/dV(4428) - JVRP(1552) = 1 -! JVRP(1553) = dARP(887)/dV(4923) - JVRP(1553) = V(5255) -! JVRP(1554) = dARP(887)/dV(5255) - JVRP(1554) = V(4923) -! JVRP(1555) = dARP(888)/dV(4923) - JVRP(1555) = V(5252) -! JVRP(1556) = dARP(888)/dV(5252) - JVRP(1556) = V(4923) -! JVRP(1557) = dARP(889)/dV(4923) - JVRP(1557) = V(5256) -! JVRP(1558) = dARP(889)/dV(5256) - JVRP(1558) = V(4923) -! JVRP(1559) = dARP(890)/dV(4923) - JVRP(1559) = 1 -! JVRP(1560) = dARP(891)/dV(4923) - JVRP(1560) = 1 -! JVRP(1561) = dARP(892)/dV(4923) - JVRP(1561) = 1 -! JVRP(1562) = dARP(893)/dV(4922) - JVRP(1562) = V(5255) -! JVRP(1563) = dARP(893)/dV(5255) - JVRP(1563) = V(4922) -! JVRP(1564) = dARP(894)/dV(4922) - JVRP(1564) = V(5252) -! JVRP(1565) = dARP(894)/dV(5252) - JVRP(1565) = V(4922) -! JVRP(1566) = dARP(895)/dV(4922) - JVRP(1566) = V(5256) -! JVRP(1567) = dARP(895)/dV(5256) - JVRP(1567) = V(4922) -! JVRP(1568) = dARP(896)/dV(4922) - JVRP(1568) = 1 -! JVRP(1569) = dARP(897)/dV(4922) - JVRP(1569) = 1 -! JVRP(1570) = dARP(898)/dV(4922) - JVRP(1570) = 1 -! JVRP(1571) = dARP(899)/dV(4333) - JVRP(1571) = 1 -! JVRP(1572) = dARP(900)/dV(4333) - JVRP(1572) = 1 -! JVRP(1573) = dARP(901)/dV(4333) - JVRP(1573) = 1 -! JVRP(1574) = dARP(902)/dV(4333) - JVRP(1574) = 1 -! JVRP(1575) = dARP(903)/dV(4695) - JVRP(1575) = V(5255) -! JVRP(1576) = dARP(903)/dV(5255) - JVRP(1576) = V(4695) -! JVRP(1577) = dARP(904)/dV(4695) - JVRP(1577) = V(5252) -! JVRP(1578) = dARP(904)/dV(5252) - JVRP(1578) = V(4695) -! JVRP(1579) = dARP(905)/dV(4695) - JVRP(1579) = V(5252) -! JVRP(1580) = dARP(905)/dV(5252) - JVRP(1580) = V(4695) -! JVRP(1581) = dARP(906)/dV(4695) - JVRP(1581) = V(5256) -! JVRP(1582) = dARP(906)/dV(5256) - JVRP(1582) = V(4695) -! JVRP(1583) = dARP(907)/dV(4695) - JVRP(1583) = 1 -! JVRP(1584) = dARP(908)/dV(4695) - JVRP(1584) = 1 -! JVRP(1585) = dARP(909)/dV(4695) - JVRP(1585) = 1 -! JVRP(1586) = dARP(910)/dV(4353) - JVRP(1586) = V(5255) -! JVRP(1587) = dARP(910)/dV(5255) - JVRP(1587) = V(4353) -! JVRP(1588) = dARP(911)/dV(4353) - JVRP(1588) = V(5252) -! JVRP(1589) = dARP(911)/dV(5252) - JVRP(1589) = V(4353) -! JVRP(1590) = dARP(912)/dV(4353) - JVRP(1590) = V(5256) -! JVRP(1591) = dARP(912)/dV(5256) - JVRP(1591) = V(4353) -! JVRP(1592) = dARP(913)/dV(4353) - JVRP(1592) = 1 -! JVRP(1593) = dARP(914)/dV(4353) - JVRP(1593) = 1 -! JVRP(1594) = dARP(915)/dV(4353) - JVRP(1594) = 1 -! JVRP(1595) = dARP(916)/dV(5062) - JVRP(1595) = V(5255) -! JVRP(1596) = dARP(916)/dV(5255) - JVRP(1596) = V(5062) -! JVRP(1597) = dARP(917)/dV(5062) - JVRP(1597) = V(5252) -! JVRP(1598) = dARP(917)/dV(5252) - JVRP(1598) = V(5062) -! JVRP(1599) = dARP(918)/dV(5062) - JVRP(1599) = V(5252) -! JVRP(1600) = dARP(918)/dV(5252) - JVRP(1600) = V(5062) -! JVRP(1601) = dARP(919)/dV(5062) - JVRP(1601) = V(5256) -! JVRP(1602) = dARP(919)/dV(5256) - JVRP(1602) = V(5062) -! JVRP(1603) = dARP(920)/dV(5062) - JVRP(1603) = 1 -! JVRP(1604) = dARP(921)/dV(5062) - JVRP(1604) = 1 -! JVRP(1605) = dARP(922)/dV(5062) - JVRP(1605) = 1 -! JVRP(1606) = dARP(923)/dV(4755) - JVRP(1606) = V(5255) -! JVRP(1607) = dARP(923)/dV(5255) - JVRP(1607) = V(4755) -! JVRP(1608) = dARP(924)/dV(4755) - JVRP(1608) = V(5252) -! JVRP(1609) = dARP(924)/dV(5252) - JVRP(1609) = V(4755) -! JVRP(1610) = dARP(925)/dV(4755) - JVRP(1610) = V(5252) -! JVRP(1611) = dARP(925)/dV(5252) - JVRP(1611) = V(4755) -! JVRP(1612) = dARP(926)/dV(4755) - JVRP(1612) = V(5256) -! JVRP(1613) = dARP(926)/dV(5256) - JVRP(1613) = V(4755) -! JVRP(1614) = dARP(927)/dV(4755) - JVRP(1614) = 1 -! JVRP(1615) = dARP(928)/dV(4755) - JVRP(1615) = 1 -! JVRP(1616) = dARP(929)/dV(4755) - JVRP(1616) = 1 -! JVRP(1617) = dARP(930)/dV(4981) - JVRP(1617) = V(5255) -! JVRP(1618) = dARP(930)/dV(5255) - JVRP(1618) = V(4981) -! JVRP(1619) = dARP(931)/dV(4981) - JVRP(1619) = V(5252) -! JVRP(1620) = dARP(931)/dV(5252) - JVRP(1620) = V(4981) -! JVRP(1621) = dARP(932)/dV(4981) - JVRP(1621) = V(5252) -! JVRP(1622) = dARP(932)/dV(5252) - JVRP(1622) = V(4981) -! JVRP(1623) = dARP(933)/dV(4981) - JVRP(1623) = V(5256) -! JVRP(1624) = dARP(933)/dV(5256) - JVRP(1624) = V(4981) -! JVRP(1625) = dARP(934)/dV(4981) - JVRP(1625) = 1 -! JVRP(1626) = dARP(935)/dV(4981) - JVRP(1626) = 1 -! JVRP(1627) = dARP(936)/dV(5163) - JVRP(1627) = V(5255) -! JVRP(1628) = dARP(936)/dV(5255) - JVRP(1628) = V(5163) -! JVRP(1629) = dARP(937)/dV(5163) - JVRP(1629) = V(5252) -! JVRP(1630) = dARP(937)/dV(5252) - JVRP(1630) = V(5163) -! JVRP(1631) = dARP(938)/dV(5163) - JVRP(1631) = V(5252) -! JVRP(1632) = dARP(938)/dV(5252) - JVRP(1632) = V(5163) -! JVRP(1633) = dARP(939)/dV(5163) - JVRP(1633) = V(5256) -! JVRP(1634) = dARP(939)/dV(5256) - JVRP(1634) = V(5163) -! JVRP(1635) = dARP(940)/dV(5163) - JVRP(1635) = 1 -! JVRP(1636) = dARP(941)/dV(5163) - JVRP(1636) = 1 -! JVRP(1637) = dARP(942)/dV(5163) - JVRP(1637) = 1 -! JVRP(1638) = dARP(943)/dV(5192) - JVRP(1638) = V(5255) -! JVRP(1639) = dARP(943)/dV(5255) - JVRP(1639) = V(5192) -! JVRP(1640) = dARP(944)/dV(5192) - JVRP(1640) = V(5252) -! JVRP(1641) = dARP(944)/dV(5252) - JVRP(1641) = V(5192) -! JVRP(1642) = dARP(945)/dV(5192) - JVRP(1642) = V(5252) -! JVRP(1643) = dARP(945)/dV(5252) - JVRP(1643) = V(5192) -! JVRP(1644) = dARP(946)/dV(5192) - JVRP(1644) = V(5256) -! JVRP(1645) = dARP(946)/dV(5256) - JVRP(1645) = V(5192) -! JVRP(1646) = dARP(947)/dV(5192) - JVRP(1646) = 1 -! JVRP(1647) = dARP(948)/dV(5192) - JVRP(1647) = 1 -! JVRP(1648) = dARP(949)/dV(5192) - JVRP(1648) = 1 -! JVRP(1649) = dARP(950)/dV(4876) - JVRP(1649) = V(5255) -! JVRP(1650) = dARP(950)/dV(5255) - JVRP(1650) = V(4876) -! JVRP(1651) = dARP(951)/dV(4876) - JVRP(1651) = V(5252) -! JVRP(1652) = dARP(951)/dV(5252) - JVRP(1652) = V(4876) -! JVRP(1653) = dARP(952)/dV(4876) - JVRP(1653) = V(5252) -! JVRP(1654) = dARP(952)/dV(5252) - JVRP(1654) = V(4876) -! JVRP(1655) = dARP(953)/dV(4876) - JVRP(1655) = V(5256) -! JVRP(1656) = dARP(953)/dV(5256) - JVRP(1656) = V(4876) -! JVRP(1657) = dARP(954)/dV(4876) - JVRP(1657) = 1 -! JVRP(1658) = dARP(955)/dV(4876) - JVRP(1658) = 1 -! JVRP(1659) = dARP(956)/dV(4876) - JVRP(1659) = 1 -! JVRP(1660) = dARP(957)/dV(5147) - JVRP(1660) = V(5255) -! JVRP(1661) = dARP(957)/dV(5255) - JVRP(1661) = V(5147) -! JVRP(1662) = dARP(958)/dV(5147) - JVRP(1662) = V(5252) -! JVRP(1663) = dARP(958)/dV(5252) - JVRP(1663) = V(5147) -! JVRP(1664) = dARP(959)/dV(5147) - JVRP(1664) = V(5252) -! JVRP(1665) = dARP(959)/dV(5252) - JVRP(1665) = V(5147) -! JVRP(1666) = dARP(960)/dV(5147) - JVRP(1666) = V(5256) -! JVRP(1667) = dARP(960)/dV(5256) - JVRP(1667) = V(5147) -! JVRP(1668) = dARP(961)/dV(5147) - JVRP(1668) = 1 -! JVRP(1669) = dARP(962)/dV(5147) - JVRP(1669) = 1 -! JVRP(1670) = dARP(963)/dV(5147) - JVRP(1670) = 1 -! JVRP(1671) = dARP(964)/dV(4901) - JVRP(1671) = V(5255) -! JVRP(1672) = dARP(964)/dV(5255) - JVRP(1672) = V(4901) -! JVRP(1673) = dARP(965)/dV(4901) - JVRP(1673) = V(5252) -! JVRP(1674) = dARP(965)/dV(5252) - JVRP(1674) = V(4901) -! JVRP(1675) = dARP(966)/dV(4901) - JVRP(1675) = V(5252) -! JVRP(1676) = dARP(966)/dV(5252) - JVRP(1676) = V(4901) -! JVRP(1677) = dARP(967)/dV(4901) - JVRP(1677) = V(5256) -! JVRP(1678) = dARP(967)/dV(5256) - JVRP(1678) = V(4901) -! JVRP(1679) = dARP(968)/dV(4901) - JVRP(1679) = 1 -! JVRP(1680) = dARP(969)/dV(4901) - JVRP(1680) = 1 -! JVRP(1681) = dARP(970)/dV(4901) - JVRP(1681) = 1 -! JVRP(1682) = dARP(971)/dV(5078) - JVRP(1682) = V(5255) -! JVRP(1683) = dARP(971)/dV(5255) - JVRP(1683) = V(5078) -! JVRP(1684) = dARP(972)/dV(5078) - JVRP(1684) = V(5252) -! JVRP(1685) = dARP(972)/dV(5252) - JVRP(1685) = V(5078) -! JVRP(1686) = dARP(973)/dV(5078) - JVRP(1686) = V(5252) -! JVRP(1687) = dARP(973)/dV(5252) - JVRP(1687) = V(5078) -! JVRP(1688) = dARP(974)/dV(5078) - JVRP(1688) = V(5256) -! JVRP(1689) = dARP(974)/dV(5256) - JVRP(1689) = V(5078) -! JVRP(1690) = dARP(975)/dV(5078) - JVRP(1690) = 1 -! JVRP(1691) = dARP(976)/dV(5078) - JVRP(1691) = 1 -! JVRP(1692) = dARP(977)/dV(4980) - JVRP(1692) = V(5255) -! JVRP(1693) = dARP(977)/dV(5255) - JVRP(1693) = V(4980) -! JVRP(1694) = dARP(978)/dV(4980) - JVRP(1694) = V(5252) -! JVRP(1695) = dARP(978)/dV(5252) - JVRP(1695) = V(4980) -! JVRP(1696) = dARP(979)/dV(4980) - JVRP(1696) = V(5252) -! JVRP(1697) = dARP(979)/dV(5252) - JVRP(1697) = V(4980) -! JVRP(1698) = dARP(980)/dV(4980) - JVRP(1698) = V(5256) -! JVRP(1699) = dARP(980)/dV(5256) - JVRP(1699) = V(4980) -! JVRP(1700) = dARP(981)/dV(4980) - JVRP(1700) = 1 -! JVRP(1701) = dARP(982)/dV(4980) - JVRP(1701) = 1 -! JVRP(1702) = dARP(983)/dV(4980) - JVRP(1702) = 1 -! JVRP(1703) = dARP(984)/dV(4942) - JVRP(1703) = V(5255) -! JVRP(1704) = dARP(984)/dV(5255) - JVRP(1704) = V(4942) -! JVRP(1705) = dARP(985)/dV(4942) - JVRP(1705) = V(5252) -! JVRP(1706) = dARP(985)/dV(5252) - JVRP(1706) = V(4942) -! JVRP(1707) = dARP(986)/dV(4942) - JVRP(1707) = V(5252) -! JVRP(1708) = dARP(986)/dV(5252) - JVRP(1708) = V(4942) -! JVRP(1709) = dARP(987)/dV(4942) - JVRP(1709) = V(5256) -! JVRP(1710) = dARP(987)/dV(5256) - JVRP(1710) = V(4942) -! JVRP(1711) = dARP(988)/dV(4942) - JVRP(1711) = 1 -! JVRP(1712) = dARP(989)/dV(4942) - JVRP(1712) = 1 -! JVRP(1713) = dARP(990)/dV(4942) - JVRP(1713) = 1 -! JVRP(1714) = dARP(991)/dV(5109) - JVRP(1714) = V(5255) -! JVRP(1715) = dARP(991)/dV(5255) - JVRP(1715) = V(5109) -! JVRP(1716) = dARP(992)/dV(5109) - JVRP(1716) = V(5252) -! JVRP(1717) = dARP(992)/dV(5252) - JVRP(1717) = V(5109) -! JVRP(1718) = dARP(993)/dV(5109) - JVRP(1718) = V(5252) -! JVRP(1719) = dARP(993)/dV(5252) - JVRP(1719) = V(5109) -! JVRP(1720) = dARP(994)/dV(5109) - JVRP(1720) = V(5256) -! JVRP(1721) = dARP(994)/dV(5256) - JVRP(1721) = V(5109) -! JVRP(1722) = dARP(995)/dV(5109) - JVRP(1722) = 1 -! JVRP(1723) = dARP(996)/dV(5109) - JVRP(1723) = 1 -! JVRP(1724) = dARP(997)/dV(5109) - JVRP(1724) = 1 -! JVRP(1725) = dARP(998)/dV(5186) - JVRP(1725) = V(5255) -! JVRP(1726) = dARP(998)/dV(5255) - JVRP(1726) = V(5186) -! JVRP(1727) = dARP(999)/dV(5186) - JVRP(1727) = V(5252) -! JVRP(1728) = dARP(999)/dV(5252) - JVRP(1728) = V(5186) -! JVRP(1729) = dARP(1000)/dV(5186) - JVRP(1729) = V(5252) -! JVRP(1730) = dARP(1000)/dV(5252) - JVRP(1730) = V(5186) -! JVRP(1731) = dARP(1001)/dV(5186) - JVRP(1731) = V(5256) -! JVRP(1732) = dARP(1001)/dV(5256) - JVRP(1732) = V(5186) -! JVRP(1733) = dARP(1002)/dV(5186) - JVRP(1733) = 1 -! JVRP(1734) = dARP(1003)/dV(5186) - JVRP(1734) = 1 -! JVRP(1735) = dARP(1004)/dV(5186) - JVRP(1735) = 1 -! JVRP(1736) = dARP(1005)/dV(4733) - JVRP(1736) = V(5255) -! JVRP(1737) = dARP(1005)/dV(5255) - JVRP(1737) = V(4733) -! JVRP(1738) = dARP(1006)/dV(4733) - JVRP(1738) = V(5252) -! JVRP(1739) = dARP(1006)/dV(5252) - JVRP(1739) = V(4733) -! JVRP(1740) = dARP(1007)/dV(4733) - JVRP(1740) = V(5252) -! JVRP(1741) = dARP(1007)/dV(5252) - JVRP(1741) = V(4733) -! JVRP(1742) = dARP(1008)/dV(4733) - JVRP(1742) = V(5256) -! JVRP(1743) = dARP(1008)/dV(5256) - JVRP(1743) = V(4733) -! JVRP(1744) = dARP(1009)/dV(4733) - JVRP(1744) = 1 -! JVRP(1745) = dARP(1010)/dV(4733) - JVRP(1745) = 1 -! JVRP(1746) = dARP(1011)/dV(4733) - JVRP(1746) = 1 -! JVRP(1747) = dARP(1012)/dV(4974) - JVRP(1747) = V(5255) -! JVRP(1748) = dARP(1012)/dV(5255) - JVRP(1748) = V(4974) -! JVRP(1749) = dARP(1013)/dV(4974) - JVRP(1749) = V(5252) -! JVRP(1750) = dARP(1013)/dV(5252) - JVRP(1750) = V(4974) -! JVRP(1751) = dARP(1014)/dV(4974) - JVRP(1751) = V(5252) -! JVRP(1752) = dARP(1014)/dV(5252) - JVRP(1752) = V(4974) -! JVRP(1753) = dARP(1015)/dV(4974) - JVRP(1753) = V(5256) -! JVRP(1754) = dARP(1015)/dV(5256) - JVRP(1754) = V(4974) -! JVRP(1755) = dARP(1016)/dV(4974) - JVRP(1755) = 1 -! JVRP(1756) = dARP(1017)/dV(4974) - JVRP(1756) = 1 -! JVRP(1757) = dARP(1018)/dV(4974) - JVRP(1757) = 1 -! JVRP(1758) = dARP(1019)/dV(4571) - JVRP(1758) = V(5255) -! JVRP(1759) = dARP(1019)/dV(5255) - JVRP(1759) = V(4571) -! JVRP(1760) = dARP(1020)/dV(4571) - JVRP(1760) = V(5252) -! JVRP(1761) = dARP(1020)/dV(5252) - JVRP(1761) = V(4571) -! JVRP(1762) = dARP(1021)/dV(4571) - JVRP(1762) = V(5252) -! JVRP(1763) = dARP(1021)/dV(5252) - JVRP(1763) = V(4571) -! JVRP(1764) = dARP(1022)/dV(4571) - JVRP(1764) = V(5256) -! JVRP(1765) = dARP(1022)/dV(5256) - JVRP(1765) = V(4571) -! JVRP(1766) = dARP(1023)/dV(4571) - JVRP(1766) = 1 -! JVRP(1767) = dARP(1024)/dV(4571) - JVRP(1767) = 1 -! JVRP(1768) = dARP(1025)/dV(4571) - JVRP(1768) = 1 -! JVRP(1769) = dARP(1026)/dV(5056) - JVRP(1769) = V(5255) -! JVRP(1770) = dARP(1026)/dV(5255) - JVRP(1770) = V(5056) -! JVRP(1771) = dARP(1027)/dV(5056) - JVRP(1771) = V(5252) -! JVRP(1772) = dARP(1027)/dV(5252) - JVRP(1772) = V(5056) -! JVRP(1773) = dARP(1028)/dV(5056) - JVRP(1773) = V(5252) -! JVRP(1774) = dARP(1028)/dV(5252) - JVRP(1774) = V(5056) -! JVRP(1775) = dARP(1029)/dV(5056) - JVRP(1775) = V(5256) -! JVRP(1776) = dARP(1029)/dV(5256) - JVRP(1776) = V(5056) -! JVRP(1777) = dARP(1030)/dV(5056) - JVRP(1777) = 1 -! JVRP(1778) = dARP(1031)/dV(5056) - JVRP(1778) = 1 -! JVRP(1779) = dARP(1032)/dV(4696) - JVRP(1779) = V(5255) -! JVRP(1780) = dARP(1032)/dV(5255) - JVRP(1780) = V(4696) -! JVRP(1781) = dARP(1033)/dV(4696) - JVRP(1781) = V(5252) -! JVRP(1782) = dARP(1033)/dV(5252) - JVRP(1782) = V(4696) -! JVRP(1783) = dARP(1034)/dV(4696) - JVRP(1783) = V(5252) -! JVRP(1784) = dARP(1034)/dV(5252) - JVRP(1784) = V(4696) -! JVRP(1785) = dARP(1035)/dV(4696) - JVRP(1785) = V(5256) -! JVRP(1786) = dARP(1035)/dV(5256) - JVRP(1786) = V(4696) -! JVRP(1787) = dARP(1036)/dV(4696) - JVRP(1787) = 1 -! JVRP(1788) = dARP(1037)/dV(4696) - JVRP(1788) = 1 -! JVRP(1789) = dARP(1038)/dV(4696) - JVRP(1789) = 1 -! JVRP(1790) = dARP(1039)/dV(5061) - JVRP(1790) = V(5255) -! JVRP(1791) = dARP(1039)/dV(5255) - JVRP(1791) = V(5061) -! JVRP(1792) = dARP(1040)/dV(5061) - JVRP(1792) = V(5252) -! JVRP(1793) = dARP(1040)/dV(5252) - JVRP(1793) = V(5061) -! JVRP(1794) = dARP(1041)/dV(5061) - JVRP(1794) = V(5252) -! JVRP(1795) = dARP(1041)/dV(5252) - JVRP(1795) = V(5061) -! JVRP(1796) = dARP(1042)/dV(5061) - JVRP(1796) = V(5256) -! JVRP(1797) = dARP(1042)/dV(5256) - JVRP(1797) = V(5061) -! JVRP(1798) = dARP(1043)/dV(5061) - JVRP(1798) = 1 -! JVRP(1799) = dARP(1044)/dV(5061) - JVRP(1799) = 1 -! JVRP(1800) = dARP(1045)/dV(5061) - JVRP(1800) = 1 -! JVRP(1801) = dARP(1046)/dV(4121) - JVRP(1801) = V(5255) -! JVRP(1802) = dARP(1046)/dV(5255) - JVRP(1802) = V(4121) -! JVRP(1803) = dARP(1047)/dV(4121) - JVRP(1803) = V(5252) -! JVRP(1804) = dARP(1047)/dV(5252) - JVRP(1804) = V(4121) -! JVRP(1805) = dARP(1048)/dV(4121) - JVRP(1805) = V(5252) -! JVRP(1806) = dARP(1048)/dV(5252) - JVRP(1806) = V(4121) -! JVRP(1807) = dARP(1049)/dV(4121) - JVRP(1807) = V(5256) -! JVRP(1808) = dARP(1049)/dV(5256) - JVRP(1808) = V(4121) -! JVRP(1809) = dARP(1050)/dV(4121) - JVRP(1809) = 1 -! JVRP(1810) = dARP(1051)/dV(4121) - JVRP(1810) = 1 -! JVRP(1811) = dARP(1052)/dV(5045) - JVRP(1811) = V(5255) -! JVRP(1812) = dARP(1052)/dV(5255) - JVRP(1812) = V(5045) -! JVRP(1813) = dARP(1053)/dV(5045) - JVRP(1813) = V(5252) -! JVRP(1814) = dARP(1053)/dV(5252) - JVRP(1814) = V(5045) -! JVRP(1815) = dARP(1054)/dV(5045) - JVRP(1815) = V(5252) -! JVRP(1816) = dARP(1054)/dV(5252) - JVRP(1816) = V(5045) -! JVRP(1817) = dARP(1055)/dV(5045) - JVRP(1817) = V(5256) -! JVRP(1818) = dARP(1055)/dV(5256) - JVRP(1818) = V(5045) -! JVRP(1819) = dARP(1056)/dV(5045) - JVRP(1819) = 1 -! JVRP(1820) = dARP(1057)/dV(5045) - JVRP(1820) = 1 -! JVRP(1821) = dARP(1058)/dV(5045) - JVRP(1821) = 1 -! JVRP(1822) = dARP(1059)/dV(5082) - JVRP(1822) = V(5255) -! JVRP(1823) = dARP(1059)/dV(5255) - JVRP(1823) = V(5082) -! JVRP(1824) = dARP(1060)/dV(5082) - JVRP(1824) = V(5252) -! JVRP(1825) = dARP(1060)/dV(5252) - JVRP(1825) = V(5082) -! JVRP(1826) = dARP(1061)/dV(5082) - JVRP(1826) = V(5252) -! JVRP(1827) = dARP(1061)/dV(5252) - JVRP(1827) = V(5082) -! JVRP(1828) = dARP(1062)/dV(5082) - JVRP(1828) = V(5256) -! JVRP(1829) = dARP(1062)/dV(5256) - JVRP(1829) = V(5082) -! JVRP(1830) = dARP(1063)/dV(5082) - JVRP(1830) = 1 -! JVRP(1831) = dARP(1064)/dV(5082) - JVRP(1831) = 1 -! JVRP(1832) = dARP(1065)/dV(5082) - JVRP(1832) = 1 -! JVRP(1833) = dARP(1066)/dV(5077) - JVRP(1833) = V(5255) -! JVRP(1834) = dARP(1066)/dV(5255) - JVRP(1834) = V(5077) -! JVRP(1835) = dARP(1067)/dV(5077) - JVRP(1835) = V(5252) -! JVRP(1836) = dARP(1067)/dV(5252) - JVRP(1836) = V(5077) -! JVRP(1837) = dARP(1068)/dV(5077) - JVRP(1837) = V(5252) -! JVRP(1838) = dARP(1068)/dV(5252) - JVRP(1838) = V(5077) -! JVRP(1839) = dARP(1069)/dV(5077) - JVRP(1839) = V(5256) -! JVRP(1840) = dARP(1069)/dV(5256) - JVRP(1840) = V(5077) -! JVRP(1841) = dARP(1070)/dV(5077) - JVRP(1841) = 1 -! JVRP(1842) = dARP(1071)/dV(5077) - JVRP(1842) = 1 -! JVRP(1843) = dARP(1072)/dV(5077) - JVRP(1843) = 1 -! JVRP(1844) = dARP(1073)/dV(3894) - JVRP(1844) = V(5255) -! JVRP(1845) = dARP(1073)/dV(5255) - JVRP(1845) = V(3894) -! JVRP(1846) = dARP(1074)/dV(3894) - JVRP(1846) = V(5252) -! JVRP(1847) = dARP(1074)/dV(5252) - JVRP(1847) = V(3894) -! JVRP(1848) = dARP(1075)/dV(3894) - JVRP(1848) = V(5252) -! JVRP(1849) = dARP(1075)/dV(5252) - JVRP(1849) = V(3894) -! JVRP(1850) = dARP(1076)/dV(3894) - JVRP(1850) = V(5256) -! JVRP(1851) = dARP(1076)/dV(5256) - JVRP(1851) = V(3894) -! JVRP(1852) = dARP(1077)/dV(3894) - JVRP(1852) = 1 -! JVRP(1853) = dARP(1078)/dV(3894) - JVRP(1853) = 1 -! JVRP(1854) = dARP(1079)/dV(4886) - JVRP(1854) = V(5255) -! JVRP(1855) = dARP(1079)/dV(5255) - JVRP(1855) = V(4886) -! JVRP(1856) = dARP(1080)/dV(4886) - JVRP(1856) = V(5252) -! JVRP(1857) = dARP(1080)/dV(5252) - JVRP(1857) = V(4886) -! JVRP(1858) = dARP(1081)/dV(4886) - JVRP(1858) = V(5252) -! JVRP(1859) = dARP(1081)/dV(5252) - JVRP(1859) = V(4886) -! JVRP(1860) = dARP(1082)/dV(4886) - JVRP(1860) = V(5256) -! JVRP(1861) = dARP(1082)/dV(5256) - JVRP(1861) = V(4886) -! JVRP(1862) = dARP(1083)/dV(4886) - JVRP(1862) = 1 -! JVRP(1863) = dARP(1084)/dV(4886) - JVRP(1863) = 1 -! JVRP(1864) = dARP(1085)/dV(4886) - JVRP(1864) = 1 -! JVRP(1865) = dARP(1086)/dV(4766) - JVRP(1865) = V(5255) -! JVRP(1866) = dARP(1086)/dV(5255) - JVRP(1866) = V(4766) -! JVRP(1867) = dARP(1087)/dV(4766) - JVRP(1867) = V(5252) -! JVRP(1868) = dARP(1087)/dV(5252) - JVRP(1868) = V(4766) -! JVRP(1869) = dARP(1088)/dV(4766) - JVRP(1869) = V(5252) -! JVRP(1870) = dARP(1088)/dV(5252) - JVRP(1870) = V(4766) -! JVRP(1871) = dARP(1089)/dV(4766) - JVRP(1871) = V(5256) -! JVRP(1872) = dARP(1089)/dV(5256) - JVRP(1872) = V(4766) -! JVRP(1873) = dARP(1090)/dV(4766) - JVRP(1873) = 1 -! JVRP(1874) = dARP(1091)/dV(4766) - JVRP(1874) = 1 -! JVRP(1875) = dARP(1092)/dV(4766) - JVRP(1875) = 1 -! JVRP(1876) = dARP(1093)/dV(5146) - JVRP(1876) = V(5255) -! JVRP(1877) = dARP(1093)/dV(5255) - JVRP(1877) = V(5146) -! JVRP(1878) = dARP(1094)/dV(5146) - JVRP(1878) = V(5252) -! JVRP(1879) = dARP(1094)/dV(5252) - JVRP(1879) = V(5146) -! JVRP(1880) = dARP(1095)/dV(5146) - JVRP(1880) = V(5252) -! JVRP(1881) = dARP(1095)/dV(5252) - JVRP(1881) = V(5146) -! JVRP(1882) = dARP(1096)/dV(5146) - JVRP(1882) = V(5256) -! JVRP(1883) = dARP(1096)/dV(5256) - JVRP(1883) = V(5146) -! JVRP(1884) = dARP(1097)/dV(5146) - JVRP(1884) = 1 -! JVRP(1885) = dARP(1098)/dV(5146) - JVRP(1885) = 1 -! JVRP(1886) = dARP(1099)/dV(5146) - JVRP(1886) = 1 -! JVRP(1887) = dARP(1100)/dV(4099) - JVRP(1887) = V(5255) -! JVRP(1888) = dARP(1100)/dV(5255) - JVRP(1888) = V(4099) -! JVRP(1889) = dARP(1101)/dV(4099) - JVRP(1889) = V(5252) -! JVRP(1890) = dARP(1101)/dV(5252) - JVRP(1890) = V(4099) -! JVRP(1891) = dARP(1102)/dV(4099) - JVRP(1891) = V(5252) -! JVRP(1892) = dARP(1102)/dV(5252) - JVRP(1892) = V(4099) -! JVRP(1893) = dARP(1103)/dV(4099) - JVRP(1893) = V(5256) -! JVRP(1894) = dARP(1103)/dV(5256) - JVRP(1894) = V(4099) -! JVRP(1895) = dARP(1104)/dV(4099) - JVRP(1895) = 1 -! JVRP(1896) = dARP(1105)/dV(4099) - JVRP(1896) = 1 -! JVRP(1897) = dARP(1106)/dV(4586) - JVRP(1897) = V(5255) -! JVRP(1898) = dARP(1106)/dV(5255) - JVRP(1898) = V(4586) -! JVRP(1899) = dARP(1107)/dV(4586) - JVRP(1899) = V(5252) -! JVRP(1900) = dARP(1107)/dV(5252) - JVRP(1900) = V(4586) -! JVRP(1901) = dARP(1108)/dV(4586) - JVRP(1901) = V(5252) -! JVRP(1902) = dARP(1108)/dV(5252) - JVRP(1902) = V(4586) -! JVRP(1903) = dARP(1109)/dV(4586) - JVRP(1903) = V(5256) -! JVRP(1904) = dARP(1109)/dV(5256) - JVRP(1904) = V(4586) -! JVRP(1905) = dARP(1110)/dV(4586) - JVRP(1905) = 1 -! JVRP(1906) = dARP(1111)/dV(4586) - JVRP(1906) = 1 -! JVRP(1907) = dARP(1112)/dV(4586) - JVRP(1907) = 1 -! JVRP(1908) = dARP(1113)/dV(4878) - JVRP(1908) = V(5255) -! JVRP(1909) = dARP(1113)/dV(5255) - JVRP(1909) = V(4878) -! JVRP(1910) = dARP(1114)/dV(4878) - JVRP(1910) = V(5252) -! JVRP(1911) = dARP(1114)/dV(5252) - JVRP(1911) = V(4878) -! JVRP(1912) = dARP(1115)/dV(4878) - JVRP(1912) = V(5252) -! JVRP(1913) = dARP(1115)/dV(5252) - JVRP(1913) = V(4878) -! JVRP(1914) = dARP(1116)/dV(4878) - JVRP(1914) = V(5256) -! JVRP(1915) = dARP(1116)/dV(5256) - JVRP(1915) = V(4878) -! JVRP(1916) = dARP(1117)/dV(4878) - JVRP(1916) = 1 -! JVRP(1917) = dARP(1118)/dV(4878) - JVRP(1917) = 1 -! JVRP(1918) = dARP(1119)/dV(5144) - JVRP(1918) = V(5255) -! JVRP(1919) = dARP(1119)/dV(5255) - JVRP(1919) = V(5144) -! JVRP(1920) = dARP(1120)/dV(5144) - JVRP(1920) = V(5252) -! JVRP(1921) = dARP(1120)/dV(5252) - JVRP(1921) = V(5144) -! JVRP(1922) = dARP(1121)/dV(5144) - JVRP(1922) = V(5252) -! JVRP(1923) = dARP(1121)/dV(5252) - JVRP(1923) = V(5144) -! JVRP(1924) = dARP(1122)/dV(5144) - JVRP(1924) = V(5256) -! JVRP(1925) = dARP(1122)/dV(5256) - JVRP(1925) = V(5144) -! JVRP(1926) = dARP(1123)/dV(5144) - JVRP(1926) = 1 -! JVRP(1927) = dARP(1124)/dV(5144) - JVRP(1927) = 1 -! JVRP(1928) = dARP(1125)/dV(5144) - JVRP(1928) = 1 -! JVRP(1929) = dARP(1126)/dV(5112) - JVRP(1929) = V(5255) -! JVRP(1930) = dARP(1126)/dV(5255) - JVRP(1930) = V(5112) -! JVRP(1931) = dARP(1127)/dV(5112) - JVRP(1931) = V(5252) -! JVRP(1932) = dARP(1127)/dV(5252) - JVRP(1932) = V(5112) -! JVRP(1933) = dARP(1128)/dV(5112) - JVRP(1933) = V(5252) -! JVRP(1934) = dARP(1128)/dV(5252) - JVRP(1934) = V(5112) -! JVRP(1935) = dARP(1129)/dV(5112) - JVRP(1935) = V(5256) -! JVRP(1936) = dARP(1129)/dV(5256) - JVRP(1936) = V(5112) -! JVRP(1937) = dARP(1130)/dV(5112) - JVRP(1937) = 1 -! JVRP(1938) = dARP(1131)/dV(5112) - JVRP(1938) = 1 -! JVRP(1939) = dARP(1132)/dV(5112) - JVRP(1939) = 1 -! JVRP(1940) = dARP(1133)/dV(5107) - JVRP(1940) = V(5255) -! JVRP(1941) = dARP(1133)/dV(5255) - JVRP(1941) = V(5107) -! JVRP(1942) = dARP(1134)/dV(5107) - JVRP(1942) = V(5252) -! JVRP(1943) = dARP(1134)/dV(5252) - JVRP(1943) = V(5107) -! JVRP(1944) = dARP(1135)/dV(5107) - JVRP(1944) = V(5252) -! JVRP(1945) = dARP(1135)/dV(5252) - JVRP(1945) = V(5107) -! JVRP(1946) = dARP(1136)/dV(5107) - JVRP(1946) = V(5256) -! JVRP(1947) = dARP(1136)/dV(5256) - JVRP(1947) = V(5107) -! JVRP(1948) = dARP(1137)/dV(5107) - JVRP(1948) = 1 -! JVRP(1949) = dARP(1138)/dV(5107) - JVRP(1949) = 1 -! JVRP(1950) = dARP(1139)/dV(5107) - JVRP(1950) = 1 -! JVRP(1951) = dARP(1140)/dV(5138) - JVRP(1951) = V(5255) -! JVRP(1952) = dARP(1140)/dV(5255) - JVRP(1952) = V(5138) -! JVRP(1953) = dARP(1141)/dV(5138) - JVRP(1953) = V(5252) -! JVRP(1954) = dARP(1141)/dV(5252) - JVRP(1954) = V(5138) -! JVRP(1955) = dARP(1142)/dV(5138) - JVRP(1955) = V(5252) -! JVRP(1956) = dARP(1142)/dV(5252) - JVRP(1956) = V(5138) -! JVRP(1957) = dARP(1143)/dV(5138) - JVRP(1957) = V(5256) -! JVRP(1958) = dARP(1143)/dV(5256) - JVRP(1958) = V(5138) -! JVRP(1959) = dARP(1144)/dV(5138) - JVRP(1959) = 1 -! JVRP(1960) = dARP(1145)/dV(5138) - JVRP(1960) = 1 -! JVRP(1961) = dARP(1146)/dV(5138) - JVRP(1961) = 1 -! JVRP(1962) = dARP(1147)/dV(5065) - JVRP(1962) = V(5255) -! JVRP(1963) = dARP(1147)/dV(5255) - JVRP(1963) = V(5065) -! JVRP(1964) = dARP(1148)/dV(5065) - JVRP(1964) = V(5252) -! JVRP(1965) = dARP(1148)/dV(5252) - JVRP(1965) = V(5065) -! JVRP(1966) = dARP(1149)/dV(5065) - JVRP(1966) = V(5252) -! JVRP(1967) = dARP(1149)/dV(5252) - JVRP(1967) = V(5065) -! JVRP(1968) = dARP(1150)/dV(5065) - JVRP(1968) = V(5256) -! JVRP(1969) = dARP(1150)/dV(5256) - JVRP(1969) = V(5065) -! JVRP(1970) = dARP(1151)/dV(5065) - JVRP(1970) = 1 -! JVRP(1971) = dARP(1152)/dV(5065) - JVRP(1971) = 1 -! JVRP(1972) = dARP(1153)/dV(5065) - JVRP(1972) = 1 -! JVRP(1973) = dARP(1154)/dV(5181) - JVRP(1973) = V(5255) -! JVRP(1974) = dARP(1154)/dV(5255) - JVRP(1974) = V(5181) -! JVRP(1975) = dARP(1155)/dV(5181) - JVRP(1975) = V(5252) -! JVRP(1976) = dARP(1155)/dV(5252) - JVRP(1976) = V(5181) -! JVRP(1977) = dARP(1156)/dV(5181) - JVRP(1977) = V(5252) -! JVRP(1978) = dARP(1156)/dV(5252) - JVRP(1978) = V(5181) -! JVRP(1979) = dARP(1157)/dV(5181) - JVRP(1979) = V(5256) -! JVRP(1980) = dARP(1157)/dV(5256) - JVRP(1980) = V(5181) -! JVRP(1981) = dARP(1158)/dV(5181) - JVRP(1981) = 1 -! JVRP(1982) = dARP(1159)/dV(5181) - JVRP(1982) = 1 -! JVRP(1983) = dARP(1160)/dV(5181) - JVRP(1983) = 1 -! JVRP(1984) = dARP(1161)/dV(4171) - JVRP(1984) = V(5255) -! JVRP(1985) = dARP(1161)/dV(5255) - JVRP(1985) = V(4171) -! JVRP(1986) = dARP(1162)/dV(4171) - JVRP(1986) = V(5252) -! JVRP(1987) = dARP(1162)/dV(5252) - JVRP(1987) = V(4171) -! JVRP(1988) = dARP(1163)/dV(4171) - JVRP(1988) = V(5256) -! JVRP(1989) = dARP(1163)/dV(5256) - JVRP(1989) = V(4171) -! JVRP(1990) = dARP(1164)/dV(4171) - JVRP(1990) = 1 -! JVRP(1991) = dARP(1165)/dV(4171) - JVRP(1991) = 1 -! JVRP(1992) = dARP(1166)/dV(4171) - JVRP(1992) = 1 -! JVRP(1993) = dARP(1167)/dV(2038) - JVRP(1993) = 1 -! JVRP(1994) = dARP(1168)/dV(2038) - JVRP(1994) = 1 -! JVRP(1995) = dARP(1169)/dV(2038) - JVRP(1995) = 1 -! JVRP(1996) = dARP(1170)/dV(4351) - JVRP(1996) = V(5255) -! JVRP(1997) = dARP(1170)/dV(5255) - JVRP(1997) = V(4351) -! JVRP(1998) = dARP(1171)/dV(4351) - JVRP(1998) = V(5252) -! JVRP(1999) = dARP(1171)/dV(5252) - JVRP(1999) = V(4351) -! JVRP(2000) = dARP(1172)/dV(4351) - JVRP(2000) = V(5256) -! JVRP(2001) = dARP(1172)/dV(5256) - JVRP(2001) = V(4351) -! JVRP(2002) = dARP(1173)/dV(4351) - JVRP(2002) = 1 -! JVRP(2003) = dARP(1174)/dV(4351) - JVRP(2003) = 1 -! JVRP(2004) = dARP(1175)/dV(4351) - JVRP(2004) = 1 -! JVRP(2005) = dARP(1176)/dV(4370) - JVRP(2005) = V(5255) -! JVRP(2006) = dARP(1176)/dV(5255) - JVRP(2006) = V(4370) -! JVRP(2007) = dARP(1177)/dV(4370) - JVRP(2007) = V(5252) -! JVRP(2008) = dARP(1177)/dV(5252) - JVRP(2008) = V(4370) -! JVRP(2009) = dARP(1178)/dV(4370) - JVRP(2009) = V(5256) -! JVRP(2010) = dARP(1178)/dV(5256) - JVRP(2010) = V(4370) -! JVRP(2011) = dARP(1179)/dV(4370) - JVRP(2011) = 1 -! JVRP(2012) = dARP(1180)/dV(4370) - JVRP(2012) = 1 -! JVRP(2013) = dARP(1181)/dV(4370) - JVRP(2013) = 1 -! JVRP(2014) = dARP(1182)/dV(2286) - JVRP(2014) = 1 -! JVRP(2015) = dARP(1183)/dV(2286) - JVRP(2015) = 1 -! JVRP(2016) = dARP(1184)/dV(2286) - JVRP(2016) = 1 -! JVRP(2017) = dARP(1185)/dV(2286) - JVRP(2017) = 1 -! JVRP(2018) = dARP(1186)/dV(4579) - JVRP(2018) = V(5255) -! JVRP(2019) = dARP(1186)/dV(5255) - JVRP(2019) = V(4579) -! JVRP(2020) = dARP(1187)/dV(4579) - JVRP(2020) = V(5252) -! JVRP(2021) = dARP(1187)/dV(5252) - JVRP(2021) = V(4579) -! JVRP(2022) = dARP(1188)/dV(4579) - JVRP(2022) = V(5256) -! JVRP(2023) = dARP(1188)/dV(5256) - JVRP(2023) = V(4579) -! JVRP(2024) = dARP(1189)/dV(4579) - JVRP(2024) = 1 -! JVRP(2025) = dARP(1190)/dV(4579) - JVRP(2025) = 1 -! JVRP(2026) = dARP(1191)/dV(4579) - JVRP(2026) = 1 -! JVRP(2027) = dARP(1192)/dV(4574) - JVRP(2027) = V(5255) -! JVRP(2028) = dARP(1192)/dV(5255) - JVRP(2028) = V(4574) -! JVRP(2029) = dARP(1193)/dV(4574) - JVRP(2029) = V(5252) -! JVRP(2030) = dARP(1193)/dV(5252) - JVRP(2030) = V(4574) -! JVRP(2031) = dARP(1194)/dV(4574) - JVRP(2031) = V(5256) -! JVRP(2032) = dARP(1194)/dV(5256) - JVRP(2032) = V(4574) -! JVRP(2033) = dARP(1195)/dV(4574) - JVRP(2033) = 1 -! JVRP(2034) = dARP(1196)/dV(4574) - JVRP(2034) = 1 -! JVRP(2035) = dARP(1197)/dV(4574) - JVRP(2035) = 1 -! JVRP(2036) = dARP(1198)/dV(2013) - JVRP(2036) = 1 -! JVRP(2037) = dARP(1199)/dV(2013) - JVRP(2037) = 1 -! JVRP(2038) = dARP(1200)/dV(2013) - JVRP(2038) = 1 -! JVRP(2039) = dARP(1201)/dV(2013) - JVRP(2039) = 1 -! JVRP(2040) = dARP(1202)/dV(5149) - JVRP(2040) = V(5255) -! JVRP(2041) = dARP(1202)/dV(5255) - JVRP(2041) = V(5149) -! JVRP(2042) = dARP(1203)/dV(5149) - JVRP(2042) = V(5252) -! JVRP(2043) = dARP(1203)/dV(5252) - JVRP(2043) = V(5149) -! JVRP(2044) = dARP(1204)/dV(5149) - JVRP(2044) = V(5252) -! JVRP(2045) = dARP(1204)/dV(5252) - JVRP(2045) = V(5149) -! JVRP(2046) = dARP(1205)/dV(5149) - JVRP(2046) = V(5256) -! JVRP(2047) = dARP(1205)/dV(5256) - JVRP(2047) = V(5149) -! JVRP(2048) = dARP(1206)/dV(5149) - JVRP(2048) = 1 -! JVRP(2049) = dARP(1207)/dV(5149) - JVRP(2049) = 1 -! JVRP(2050) = dARP(1208)/dV(5149) - JVRP(2050) = 1 -! JVRP(2051) = dARP(1209)/dV(4387) - JVRP(2051) = V(5255) -! JVRP(2052) = dARP(1209)/dV(5255) - JVRP(2052) = V(4387) -! JVRP(2053) = dARP(1210)/dV(4387) - JVRP(2053) = V(5252) -! JVRP(2054) = dARP(1210)/dV(5252) - JVRP(2054) = V(4387) -! JVRP(2055) = dARP(1211)/dV(4387) - JVRP(2055) = V(5256) -! JVRP(2056) = dARP(1211)/dV(5256) - JVRP(2056) = V(4387) -! JVRP(2057) = dARP(1212)/dV(4387) - JVRP(2057) = 1 -! JVRP(2058) = dARP(1213)/dV(4387) - JVRP(2058) = 1 -! JVRP(2059) = dARP(1214)/dV(4387) - JVRP(2059) = 1 -! JVRP(2060) = dARP(1215)/dV(4112) - JVRP(2060) = V(5255) -! JVRP(2061) = dARP(1215)/dV(5255) - JVRP(2061) = V(4112) -! JVRP(2062) = dARP(1216)/dV(4112) - JVRP(2062) = V(5252) -! JVRP(2063) = dARP(1216)/dV(5252) - JVRP(2063) = V(4112) -! JVRP(2064) = dARP(1217)/dV(4112) - JVRP(2064) = V(5256) -! JVRP(2065) = dARP(1217)/dV(5256) - JVRP(2065) = V(4112) -! JVRP(2066) = dARP(1218)/dV(4112) - JVRP(2066) = 1 -! JVRP(2067) = dARP(1219)/dV(4112) - JVRP(2067) = 1 -! JVRP(2068) = dARP(1220)/dV(4809) - JVRP(2068) = V(5255) -! JVRP(2069) = dARP(1220)/dV(5255) - JVRP(2069) = V(4809) -! JVRP(2070) = dARP(1221)/dV(4809) - JVRP(2070) = V(5252) -! JVRP(2071) = dARP(1221)/dV(5252) - JVRP(2071) = V(4809) -! JVRP(2072) = dARP(1222)/dV(4809) - JVRP(2072) = V(5256) -! JVRP(2073) = dARP(1222)/dV(5256) - JVRP(2073) = V(4809) -! JVRP(2074) = dARP(1223)/dV(4809) - JVRP(2074) = 1 -! JVRP(2075) = dARP(1224)/dV(4809) - JVRP(2075) = 1 -! JVRP(2076) = dARP(1225)/dV(4809) - JVRP(2076) = 1 -! JVRP(2077) = dARP(1226)/dV(3479) - JVRP(2077) = 1 -! JVRP(2078) = dARP(1227)/dV(3479) - JVRP(2078) = 1 -! JVRP(2079) = dARP(1228)/dV(327) - JVRP(2079) = 1 -! JVRP(2080) = dARP(1229)/dV(327) - JVRP(2080) = 1 -! JVRP(2081) = dARP(1230)/dV(4593) - JVRP(2081) = V(5255) -! JVRP(2082) = dARP(1230)/dV(5255) - JVRP(2082) = V(4593) -! JVRP(2083) = dARP(1231)/dV(4593) - JVRP(2083) = V(5252) -! JVRP(2084) = dARP(1231)/dV(5252) - JVRP(2084) = V(4593) -! JVRP(2085) = dARP(1232)/dV(4593) - JVRP(2085) = V(5256) -! JVRP(2086) = dARP(1232)/dV(5256) - JVRP(2086) = V(4593) -! JVRP(2087) = dARP(1233)/dV(4593) - JVRP(2087) = 1 -! JVRP(2088) = dARP(1234)/dV(4593) - JVRP(2088) = 1 -! JVRP(2089) = dARP(1235)/dV(4593) - JVRP(2089) = 1 -! JVRP(2090) = dARP(1236)/dV(4972) - JVRP(2090) = V(5255) -! JVRP(2091) = dARP(1236)/dV(5255) - JVRP(2091) = V(4972) -! JVRP(2092) = dARP(1237)/dV(4972) - JVRP(2092) = V(5252) -! JVRP(2093) = dARP(1237)/dV(5252) - JVRP(2093) = V(4972) -! JVRP(2094) = dARP(1238)/dV(4972) - JVRP(2094) = V(5256) -! JVRP(2095) = dARP(1238)/dV(5256) - JVRP(2095) = V(4972) -! JVRP(2096) = dARP(1239)/dV(4972) - JVRP(2096) = 1 -! JVRP(2097) = dARP(1240)/dV(4972) - JVRP(2097) = 1 -! JVRP(2098) = dARP(1241)/dV(4972) - JVRP(2098) = 1 -! JVRP(2099) = dARP(1242)/dV(2042) - JVRP(2099) = 1 -! JVRP(2100) = dARP(1243)/dV(2042) - JVRP(2100) = 1 -! JVRP(2101) = dARP(1244)/dV(2042) - JVRP(2101) = 1 -! JVRP(2102) = dARP(1245)/dV(2042) - JVRP(2102) = 1 -! JVRP(2103) = dARP(1246)/dV(4598) - JVRP(2103) = V(5255) -! JVRP(2104) = dARP(1246)/dV(5255) - JVRP(2104) = V(4598) -! JVRP(2105) = dARP(1247)/dV(4598) - JVRP(2105) = V(5252) -! JVRP(2106) = dARP(1247)/dV(5252) - JVRP(2106) = V(4598) -! JVRP(2107) = dARP(1248)/dV(4598) - JVRP(2107) = V(5252) -! JVRP(2108) = dARP(1248)/dV(5252) - JVRP(2108) = V(4598) -! JVRP(2109) = dARP(1249)/dV(4598) - JVRP(2109) = V(5256) -! JVRP(2110) = dARP(1249)/dV(5256) - JVRP(2110) = V(4598) -! JVRP(2111) = dARP(1250)/dV(4598) - JVRP(2111) = 1 -! JVRP(2112) = dARP(1251)/dV(4598) - JVRP(2112) = 1 -! JVRP(2113) = dARP(1252)/dV(4598) - JVRP(2113) = 1 -! JVRP(2114) = dARP(1253)/dV(5096) - JVRP(2114) = V(5255) -! JVRP(2115) = dARP(1253)/dV(5255) - JVRP(2115) = V(5096) -! JVRP(2116) = dARP(1254)/dV(5096) - JVRP(2116) = V(5252) -! JVRP(2117) = dARP(1254)/dV(5252) - JVRP(2117) = V(5096) -! JVRP(2118) = dARP(1255)/dV(5096) - JVRP(2118) = V(5252) -! JVRP(2119) = dARP(1255)/dV(5252) - JVRP(2119) = V(5096) -! JVRP(2120) = dARP(1256)/dV(5096) - JVRP(2120) = V(5256) -! JVRP(2121) = dARP(1256)/dV(5256) - JVRP(2121) = V(5096) -! JVRP(2122) = dARP(1257)/dV(5096) - JVRP(2122) = 1 -! JVRP(2123) = dARP(1258)/dV(5096) - JVRP(2123) = 1 -! JVRP(2124) = dARP(1259)/dV(5096) - JVRP(2124) = 1 -! JVRP(2125) = dARP(1260)/dV(4714) - JVRP(2125) = V(5255) -! JVRP(2126) = dARP(1260)/dV(5255) - JVRP(2126) = V(4714) -! JVRP(2127) = dARP(1261)/dV(4714) - JVRP(2127) = V(5252) -! JVRP(2128) = dARP(1261)/dV(5252) - JVRP(2128) = V(4714) -! JVRP(2129) = dARP(1262)/dV(4714) - JVRP(2129) = V(5256) -! JVRP(2130) = dARP(1262)/dV(5256) - JVRP(2130) = V(4714) -! JVRP(2131) = dARP(1263)/dV(4714) - JVRP(2131) = 1 -! JVRP(2132) = dARP(1264)/dV(4714) - JVRP(2132) = 1 -! JVRP(2133) = dARP(1265)/dV(4714) - JVRP(2133) = 1 -! JVRP(2134) = dARP(1266)/dV(4782) - JVRP(2134) = V(5255) -! JVRP(2135) = dARP(1266)/dV(5255) - JVRP(2135) = V(4782) -! JVRP(2136) = dARP(1267)/dV(4782) - JVRP(2136) = V(5252) -! JVRP(2137) = dARP(1267)/dV(5252) - JVRP(2137) = V(4782) -! JVRP(2138) = dARP(1268)/dV(4782) - JVRP(2138) = V(5256) -! JVRP(2139) = dARP(1268)/dV(5256) - JVRP(2139) = V(4782) -! JVRP(2140) = dARP(1269)/dV(4782) - JVRP(2140) = 1 -! JVRP(2141) = dARP(1270)/dV(4782) - JVRP(2141) = 1 -! JVRP(2142) = dARP(1271)/dV(4782) - JVRP(2142) = 1 -! JVRP(2143) = dARP(1272)/dV(3297) - JVRP(2143) = 1 -! JVRP(2144) = dARP(1273)/dV(3297) - JVRP(2144) = 1 -! JVRP(2145) = dARP(1274)/dV(3297) - JVRP(2145) = 1 -! JVRP(2146) = dARP(1275)/dV(3297) - JVRP(2146) = 1 -! JVRP(2147) = dARP(1276)/dV(4476) - JVRP(2147) = V(5255) -! JVRP(2148) = dARP(1276)/dV(5255) - JVRP(2148) = V(4476) -! JVRP(2149) = dARP(1277)/dV(4476) - JVRP(2149) = V(5252) -! JVRP(2150) = dARP(1277)/dV(5252) - JVRP(2150) = V(4476) -! JVRP(2151) = dARP(1278)/dV(4476) - JVRP(2151) = V(5252) -! JVRP(2152) = dARP(1278)/dV(5252) - JVRP(2152) = V(4476) -! JVRP(2153) = dARP(1279)/dV(4476) - JVRP(2153) = V(5256) -! JVRP(2154) = dARP(1279)/dV(5256) - JVRP(2154) = V(4476) -! JVRP(2155) = dARP(1280)/dV(4476) - JVRP(2155) = 1 -! JVRP(2156) = dARP(1281)/dV(4476) - JVRP(2156) = 1 -! JVRP(2157) = dARP(1282)/dV(4476) - JVRP(2157) = 1 -! JVRP(2158) = dARP(1283)/dV(4777) - JVRP(2158) = V(5255) -! JVRP(2159) = dARP(1283)/dV(5255) - JVRP(2159) = V(4777) -! JVRP(2160) = dARP(1284)/dV(4777) - JVRP(2160) = V(5252) -! JVRP(2161) = dARP(1284)/dV(5252) - JVRP(2161) = V(4777) -! JVRP(2162) = dARP(1285)/dV(4777) - JVRP(2162) = V(5256) -! JVRP(2163) = dARP(1285)/dV(5256) - JVRP(2163) = V(4777) -! JVRP(2164) = dARP(1286)/dV(4777) - JVRP(2164) = 1 -! JVRP(2165) = dARP(1287)/dV(4777) - JVRP(2165) = 1 -! JVRP(2166) = dARP(1288)/dV(4777) - JVRP(2166) = 1 -! JVRP(2167) = dARP(1289)/dV(4143) - JVRP(2167) = V(5255) -! JVRP(2168) = dARP(1289)/dV(5255) - JVRP(2168) = V(4143) -! JVRP(2169) = dARP(1290)/dV(4143) - JVRP(2169) = V(5252) -! JVRP(2170) = dARP(1290)/dV(5252) - JVRP(2170) = V(4143) -! JVRP(2171) = dARP(1291)/dV(4143) - JVRP(2171) = V(5256) -! JVRP(2172) = dARP(1291)/dV(5256) - JVRP(2172) = V(4143) -! JVRP(2173) = dARP(1292)/dV(4143) - JVRP(2173) = 1 -! JVRP(2174) = dARP(1293)/dV(4143) - JVRP(2174) = 1 -! JVRP(2175) = dARP(1294)/dV(477) - JVRP(2175) = 1 -! JVRP(2176) = dARP(1295)/dV(477) - JVRP(2176) = 1 -! JVRP(2177) = dARP(1296)/dV(4700) - JVRP(2177) = V(5255) -! JVRP(2178) = dARP(1296)/dV(5255) - JVRP(2178) = V(4700) -! JVRP(2179) = dARP(1297)/dV(4700) - JVRP(2179) = V(5252) -! JVRP(2180) = dARP(1297)/dV(5252) - JVRP(2180) = V(4700) -! JVRP(2181) = dARP(1298)/dV(4700) - JVRP(2181) = V(5256) -! JVRP(2182) = dARP(1298)/dV(5256) - JVRP(2182) = V(4700) -! JVRP(2183) = dARP(1299)/dV(4700) - JVRP(2183) = 1 -! JVRP(2184) = dARP(1300)/dV(4700) - JVRP(2184) = 1 -! JVRP(2185) = dARP(1301)/dV(4700) - JVRP(2185) = 1 -! JVRP(2186) = dARP(1302)/dV(4881) - JVRP(2186) = V(5255) -! JVRP(2187) = dARP(1302)/dV(5255) - JVRP(2187) = V(4881) -! JVRP(2188) = dARP(1303)/dV(4881) - JVRP(2188) = V(5252) -! JVRP(2189) = dARP(1303)/dV(5252) - JVRP(2189) = V(4881) -! JVRP(2190) = dARP(1304)/dV(4881) - JVRP(2190) = V(5256) -! JVRP(2191) = dARP(1304)/dV(5256) - JVRP(2191) = V(4881) -! JVRP(2192) = dARP(1305)/dV(4881) - JVRP(2192) = 1 -! JVRP(2193) = dARP(1306)/dV(4881) - JVRP(2193) = 1 -! JVRP(2194) = dARP(1307)/dV(4881) - JVRP(2194) = 1 -! JVRP(2195) = dARP(1308)/dV(2212) - JVRP(2195) = 1 -! JVRP(2196) = dARP(1309)/dV(2212) - JVRP(2196) = 1 -! JVRP(2197) = dARP(1310)/dV(2212) - JVRP(2197) = 1 -! JVRP(2198) = dARP(1311)/dV(2212) - JVRP(2198) = 1 -! JVRP(2199) = dARP(1312)/dV(5043) - JVRP(2199) = V(5255) -! JVRP(2200) = dARP(1312)/dV(5255) - JVRP(2200) = V(5043) -! JVRP(2201) = dARP(1313)/dV(5043) - JVRP(2201) = V(5252) -! JVRP(2202) = dARP(1313)/dV(5252) - JVRP(2202) = V(5043) -! JVRP(2203) = dARP(1314)/dV(5043) - JVRP(2203) = V(5252) -! JVRP(2204) = dARP(1314)/dV(5252) - JVRP(2204) = V(5043) -! JVRP(2205) = dARP(1315)/dV(5043) - JVRP(2205) = V(5256) -! JVRP(2206) = dARP(1315)/dV(5256) - JVRP(2206) = V(5043) -! JVRP(2207) = dARP(1316)/dV(5043) - JVRP(2207) = 1 -! JVRP(2208) = dARP(1317)/dV(5043) - JVRP(2208) = 1 -! JVRP(2209) = dARP(1318)/dV(5043) - JVRP(2209) = 1 -! JVRP(2210) = dARP(1319)/dV(4723) - JVRP(2210) = V(5255) -! JVRP(2211) = dARP(1319)/dV(5255) - JVRP(2211) = V(4723) -! JVRP(2212) = dARP(1320)/dV(4723) - JVRP(2212) = V(5252) -! JVRP(2213) = dARP(1320)/dV(5252) - JVRP(2213) = V(4723) -! JVRP(2214) = dARP(1321)/dV(4723) - JVRP(2214) = V(5256) -! JVRP(2215) = dARP(1321)/dV(5256) - JVRP(2215) = V(4723) -! JVRP(2216) = dARP(1322)/dV(4723) - JVRP(2216) = 1 -! JVRP(2217) = dARP(1323)/dV(4723) - JVRP(2217) = 1 -! JVRP(2218) = dARP(1324)/dV(4723) - JVRP(2218) = 1 -! JVRP(2219) = dARP(1325)/dV(4140) - JVRP(2219) = V(5255) -! JVRP(2220) = dARP(1325)/dV(5255) - JVRP(2220) = V(4140) -! JVRP(2221) = dARP(1326)/dV(4140) - JVRP(2221) = V(5252) -! JVRP(2222) = dARP(1326)/dV(5252) - JVRP(2222) = V(4140) -! JVRP(2223) = dARP(1327)/dV(4140) - JVRP(2223) = V(5256) -! JVRP(2224) = dARP(1327)/dV(5256) - JVRP(2224) = V(4140) -! JVRP(2225) = dARP(1328)/dV(4140) - JVRP(2225) = 1 -! JVRP(2226) = dARP(1329)/dV(4140) - JVRP(2226) = 1 -! JVRP(2227) = dARP(1330)/dV(239) - JVRP(2227) = 1 -! JVRP(2228) = dARP(1331)/dV(239) - JVRP(2228) = 1 -! JVRP(2229) = dARP(1332)/dV(766) - JVRP(2229) = 1 -! JVRP(2230) = dARP(1333)/dV(766) - JVRP(2230) = 1 -! JVRP(2231) = dARP(1334)/dV(4879) - JVRP(2231) = V(5255) -! JVRP(2232) = dARP(1334)/dV(5255) - JVRP(2232) = V(4879) -! JVRP(2233) = dARP(1335)/dV(4879) - JVRP(2233) = V(5252) -! JVRP(2234) = dARP(1335)/dV(5252) - JVRP(2234) = V(4879) -! JVRP(2235) = dARP(1336)/dV(4879) - JVRP(2235) = V(5256) -! JVRP(2236) = dARP(1336)/dV(5256) - JVRP(2236) = V(4879) -! JVRP(2237) = dARP(1337)/dV(4879) - JVRP(2237) = 1 -! JVRP(2238) = dARP(1338)/dV(4879) - JVRP(2238) = 1 -! JVRP(2239) = dARP(1339)/dV(4879) - JVRP(2239) = 1 -! JVRP(2240) = dARP(1340)/dV(4587) - JVRP(2240) = V(5255) -! JVRP(2241) = dARP(1340)/dV(5255) - JVRP(2241) = V(4587) -! JVRP(2242) = dARP(1341)/dV(4587) - JVRP(2242) = V(5252) -! JVRP(2243) = dARP(1341)/dV(5252) - JVRP(2243) = V(4587) -! JVRP(2244) = dARP(1342)/dV(4587) - JVRP(2244) = V(5256) -! JVRP(2245) = dARP(1342)/dV(5256) - JVRP(2245) = V(4587) -! JVRP(2246) = dARP(1343)/dV(4587) - JVRP(2246) = 1 -! JVRP(2247) = dARP(1344)/dV(4587) - JVRP(2247) = 1 -! JVRP(2248) = dARP(1345)/dV(4587) - JVRP(2248) = 1 -! JVRP(2249) = dARP(1346)/dV(2487) - JVRP(2249) = 1 -! JVRP(2250) = dARP(1347)/dV(2487) - JVRP(2250) = 1 -! JVRP(2251) = dARP(1348)/dV(2487) - JVRP(2251) = 1 -! JVRP(2252) = dARP(1349)/dV(2487) - JVRP(2252) = 1 -! JVRP(2253) = dARP(1350)/dV(4582) - JVRP(2253) = V(5255) -! JVRP(2254) = dARP(1350)/dV(5255) - JVRP(2254) = V(4582) -! JVRP(2255) = dARP(1351)/dV(4582) - JVRP(2255) = V(5252) -! JVRP(2256) = dARP(1351)/dV(5252) - JVRP(2256) = V(4582) -! JVRP(2257) = dARP(1352)/dV(4582) - JVRP(2257) = V(5252) -! JVRP(2258) = dARP(1352)/dV(5252) - JVRP(2258) = V(4582) -! JVRP(2259) = dARP(1353)/dV(4582) - JVRP(2259) = V(5256) -! JVRP(2260) = dARP(1353)/dV(5256) - JVRP(2260) = V(4582) -! JVRP(2261) = dARP(1354)/dV(4582) - JVRP(2261) = 1 -! JVRP(2262) = dARP(1355)/dV(4582) - JVRP(2262) = 1 -! JVRP(2263) = dARP(1356)/dV(4582) - JVRP(2263) = 1 -! JVRP(2264) = dARP(1357)/dV(5135) - JVRP(2264) = V(5255) -! JVRP(2265) = dARP(1357)/dV(5255) - JVRP(2265) = V(5135) -! JVRP(2266) = dARP(1358)/dV(5135) - JVRP(2266) = V(5252) -! JVRP(2267) = dARP(1358)/dV(5252) - JVRP(2267) = V(5135) -! JVRP(2268) = dARP(1359)/dV(5135) - JVRP(2268) = V(5252) -! JVRP(2269) = dARP(1359)/dV(5252) - JVRP(2269) = V(5135) -! JVRP(2270) = dARP(1360)/dV(5135) - JVRP(2270) = V(5256) -! JVRP(2271) = dARP(1360)/dV(5256) - JVRP(2271) = V(5135) -! JVRP(2272) = dARP(1361)/dV(5135) - JVRP(2272) = 1 -! JVRP(2273) = dARP(1362)/dV(5135) - JVRP(2273) = 1 -! JVRP(2274) = dARP(1363)/dV(5135) - JVRP(2274) = 1 -! JVRP(2275) = dARP(1364)/dV(4884) - JVRP(2275) = V(5255) -! JVRP(2276) = dARP(1364)/dV(5255) - JVRP(2276) = V(4884) -! JVRP(2277) = dARP(1365)/dV(4884) - JVRP(2277) = V(5252) -! JVRP(2278) = dARP(1365)/dV(5252) - JVRP(2278) = V(4884) -! JVRP(2279) = dARP(1366)/dV(4884) - JVRP(2279) = V(5256) -! JVRP(2280) = dARP(1366)/dV(5256) - JVRP(2280) = V(4884) -! JVRP(2281) = dARP(1367)/dV(4884) - JVRP(2281) = 1 -! JVRP(2282) = dARP(1368)/dV(4884) - JVRP(2282) = 1 -! JVRP(2283) = dARP(1369)/dV(4884) - JVRP(2283) = 1 -! JVRP(2284) = dARP(1370)/dV(4702) - JVRP(2284) = V(5255) -! JVRP(2285) = dARP(1370)/dV(5255) - JVRP(2285) = V(4702) -! JVRP(2286) = dARP(1371)/dV(4702) - JVRP(2286) = V(5252) -! JVRP(2287) = dARP(1371)/dV(5252) - JVRP(2287) = V(4702) -! JVRP(2288) = dARP(1372)/dV(4702) - JVRP(2288) = V(5256) -! JVRP(2289) = dARP(1372)/dV(5256) - JVRP(2289) = V(4702) -! JVRP(2290) = dARP(1373)/dV(4702) - JVRP(2290) = 1 -! JVRP(2291) = dARP(1374)/dV(4702) - JVRP(2291) = 1 -! JVRP(2292) = dARP(1375)/dV(4702) - JVRP(2292) = 1 -! JVRP(2293) = dARP(1376)/dV(3202) - JVRP(2293) = 1 -! JVRP(2294) = dARP(1377)/dV(3202) - JVRP(2294) = 1 -! JVRP(2295) = dARP(1378)/dV(3202) - JVRP(2295) = 1 -! JVRP(2296) = dARP(1379)/dV(3202) - JVRP(2296) = 1 -! JVRP(2297) = dARP(1380)/dV(4607) - JVRP(2297) = V(5255) -! JVRP(2298) = dARP(1380)/dV(5255) - JVRP(2298) = V(4607) -! JVRP(2299) = dARP(1381)/dV(4607) - JVRP(2299) = V(5252) -! JVRP(2300) = dARP(1381)/dV(5252) - JVRP(2300) = V(4607) -! JVRP(2301) = dARP(1382)/dV(4607) - JVRP(2301) = V(5252) -! JVRP(2302) = dARP(1382)/dV(5252) - JVRP(2302) = V(4607) -! JVRP(2303) = dARP(1383)/dV(4607) - JVRP(2303) = V(5256) -! JVRP(2304) = dARP(1383)/dV(5256) - JVRP(2304) = V(4607) -! JVRP(2305) = dARP(1384)/dV(4607) - JVRP(2305) = 1 -! JVRP(2306) = dARP(1385)/dV(4607) - JVRP(2306) = 1 -! JVRP(2307) = dARP(1386)/dV(4607) - JVRP(2307) = 1 -! JVRP(2308) = dARP(1387)/dV(4608) - JVRP(2308) = V(5255) -! JVRP(2309) = dARP(1387)/dV(5255) - JVRP(2309) = V(4608) -! JVRP(2310) = dARP(1388)/dV(4608) - JVRP(2310) = V(5252) -! JVRP(2311) = dARP(1388)/dV(5252) - JVRP(2311) = V(4608) -! JVRP(2312) = dARP(1389)/dV(4608) - JVRP(2312) = V(5252) -! JVRP(2313) = dARP(1389)/dV(5252) - JVRP(2313) = V(4608) -! JVRP(2314) = dARP(1390)/dV(4608) - JVRP(2314) = V(5256) -! JVRP(2315) = dARP(1390)/dV(5256) - JVRP(2315) = V(4608) -! JVRP(2316) = dARP(1391)/dV(4608) - JVRP(2316) = 1 -! JVRP(2317) = dARP(1392)/dV(4608) - JVRP(2317) = 1 -! JVRP(2318) = dARP(1393)/dV(4608) - JVRP(2318) = 1 -! JVRP(2319) = dARP(1394)/dV(3671) - JVRP(2319) = V(5255) -! JVRP(2320) = dARP(1394)/dV(5255) - JVRP(2320) = V(3671) -! JVRP(2321) = dARP(1395)/dV(3671) - JVRP(2321) = V(5252) -! JVRP(2322) = dARP(1395)/dV(5252) - JVRP(2322) = V(3671) -! JVRP(2323) = dARP(1396)/dV(3671) - JVRP(2323) = V(5256) -! JVRP(2324) = dARP(1396)/dV(5256) - JVRP(2324) = V(3671) -! JVRP(2325) = dARP(1397)/dV(3671) - JVRP(2325) = 1 -! JVRP(2326) = dARP(1398)/dV(3671) - JVRP(2326) = 1 -! JVRP(2327) = dARP(1399)/dV(37) - JVRP(2327) = 1 -! JVRP(2328) = dARP(1400)/dV(3721) - JVRP(2328) = V(5255) -! JVRP(2329) = dARP(1400)/dV(5255) - JVRP(2329) = V(3721) -! JVRP(2330) = dARP(1401)/dV(3721) - JVRP(2330) = V(5252) -! JVRP(2331) = dARP(1401)/dV(5252) - JVRP(2331) = V(3721) -! JVRP(2332) = dARP(1402)/dV(3721) - JVRP(2332) = V(5252) -! JVRP(2333) = dARP(1402)/dV(5252) - JVRP(2333) = V(3721) -! JVRP(2334) = dARP(1403)/dV(3721) - JVRP(2334) = V(5256) -! JVRP(2335) = dARP(1403)/dV(5256) - JVRP(2335) = V(3721) -! JVRP(2336) = dARP(1404)/dV(3721) - JVRP(2336) = 1 -! JVRP(2337) = dARP(1405)/dV(3721) - JVRP(2337) = 1 -! JVRP(2338) = dARP(1406)/dV(680) - JVRP(2338) = V(5250) -! JVRP(2339) = dARP(1406)/dV(5250) - JVRP(2339) = V(680) -! JVRP(2340) = dARP(1407)/dV(4399) - JVRP(2340) = V(5255) -! JVRP(2341) = dARP(1407)/dV(5255) - JVRP(2341) = V(4399) -! JVRP(2342) = dARP(1408)/dV(4399) - JVRP(2342) = V(5252) -! JVRP(2343) = dARP(1408)/dV(5252) - JVRP(2343) = V(4399) -! JVRP(2344) = dARP(1409)/dV(4399) - JVRP(2344) = V(5252) -! JVRP(2345) = dARP(1409)/dV(5252) - JVRP(2345) = V(4399) -! JVRP(2346) = dARP(1410)/dV(4399) - JVRP(2346) = V(5256) -! JVRP(2347) = dARP(1410)/dV(5256) - JVRP(2347) = V(4399) -! JVRP(2348) = dARP(1411)/dV(4399) - JVRP(2348) = 1 -! JVRP(2349) = dARP(1412)/dV(4399) - JVRP(2349) = 1 -! JVRP(2350) = dARP(1413)/dV(4399) - JVRP(2350) = 1 -! JVRP(2351) = dARP(1414)/dV(4396) - JVRP(2351) = V(5256) -! JVRP(2352) = dARP(1414)/dV(5256) - JVRP(2352) = V(4396) -! JVRP(2353) = dARP(1415)/dV(4396) - JVRP(2353) = V(5258) -! JVRP(2354) = dARP(1415)/dV(5258) - JVRP(2354) = V(4396) -! JVRP(2355) = dARP(1416)/dV(4396) - JVRP(2355) = V(5250) -! JVRP(2356) = dARP(1416)/dV(5250) - JVRP(2356) = V(4396) -! JVRP(2357) = dARP(1417)/dV(4396) - JVRP(2357) = V(5250) -! JVRP(2358) = dARP(1417)/dV(5250) - JVRP(2358) = V(4396) -! JVRP(2359) = dARP(1418)/dV(4396) - JVRP(2359) = 1 -! JVRP(2360) = dARP(1419)/dV(4396) - JVRP(2360) = 1 -! JVRP(2361) = dARP(1420)/dV(4397) - JVRP(2361) = V(5256) -! JVRP(2362) = dARP(1420)/dV(5256) - JVRP(2362) = V(4397) -! JVRP(2363) = dARP(1421)/dV(4397) - JVRP(2363) = V(5256) -! JVRP(2364) = dARP(1421)/dV(5256) - JVRP(2364) = V(4397) -! JVRP(2365) = dARP(1422)/dV(4397) - JVRP(2365) = V(5250) -! JVRP(2366) = dARP(1422)/dV(5250) - JVRP(2366) = V(4397) -! JVRP(2367) = dARP(1423)/dV(4397) - JVRP(2367) = V(5250) -! JVRP(2368) = dARP(1423)/dV(5250) - JVRP(2368) = V(4397) -! JVRP(2369) = dARP(1424)/dV(4397) - JVRP(2369) = V(5250) -! JVRP(2370) = dARP(1424)/dV(5250) - JVRP(2370) = V(4397) -! JVRP(2371) = dARP(1425)/dV(3776) - JVRP(2371) = V(5255) -! JVRP(2372) = dARP(1425)/dV(5255) - JVRP(2372) = V(3776) -! JVRP(2373) = dARP(1426)/dV(3776) - JVRP(2373) = V(5252) -! JVRP(2374) = dARP(1426)/dV(5252) - JVRP(2374) = V(3776) -! JVRP(2375) = dARP(1427)/dV(3776) - JVRP(2375) = V(5252) -! JVRP(2376) = dARP(1427)/dV(5252) - JVRP(2376) = V(3776) -! JVRP(2377) = dARP(1428)/dV(3776) - JVRP(2377) = V(5256) -! JVRP(2378) = dARP(1428)/dV(5256) - JVRP(2378) = V(3776) -! JVRP(2379) = dARP(1429)/dV(3776) - JVRP(2379) = 1 -! JVRP(2380) = dARP(1430)/dV(3776) - JVRP(2380) = 1 -! JVRP(2381) = dARP(1431)/dV(3776) - JVRP(2381) = 1 -! JVRP(2382) = dARP(1432)/dV(3157) - JVRP(2382) = V(5256) -! JVRP(2383) = dARP(1432)/dV(5256) - JVRP(2383) = V(3157) -! JVRP(2384) = dARP(1433)/dV(3157) - JVRP(2384) = V(5256) -! JVRP(2385) = dARP(1433)/dV(5256) - JVRP(2385) = V(3157) -! JVRP(2386) = dARP(1434)/dV(3157) - JVRP(2386) = V(5256) -! JVRP(2387) = dARP(1434)/dV(5256) - JVRP(2387) = V(3157) -! JVRP(2388) = dARP(1435)/dV(3157) - JVRP(2388) = V(5250) -! JVRP(2389) = dARP(1435)/dV(5250) - JVRP(2389) = V(3157) -! JVRP(2390) = dARP(1436)/dV(3157) - JVRP(2390) = V(5250) -! JVRP(2391) = dARP(1436)/dV(5250) - JVRP(2391) = V(3157) -! JVRP(2392) = dARP(1437)/dV(3157) - JVRP(2392) = V(5250) -! JVRP(2393) = dARP(1437)/dV(5250) - JVRP(2393) = V(3157) -! JVRP(2394) = dARP(1438)/dV(3823) - JVRP(2394) = V(5255) -! JVRP(2395) = dARP(1438)/dV(5255) - JVRP(2395) = V(3823) -! JVRP(2396) = dARP(1439)/dV(3823) - JVRP(2396) = V(5252) -! JVRP(2397) = dARP(1439)/dV(5252) - JVRP(2397) = V(3823) -! JVRP(2398) = dARP(1440)/dV(3823) - JVRP(2398) = V(5252) -! JVRP(2399) = dARP(1440)/dV(5252) - JVRP(2399) = V(3823) -! JVRP(2400) = dARP(1441)/dV(3823) - JVRP(2400) = V(5256) -! JVRP(2401) = dARP(1441)/dV(5256) - JVRP(2401) = V(3823) -! JVRP(2402) = dARP(1442)/dV(3823) - JVRP(2402) = 1 -! JVRP(2403) = dARP(1443)/dV(3823) - JVRP(2403) = 1 -! JVRP(2404) = dARP(1444)/dV(3823) - JVRP(2404) = 1 -! JVRP(2405) = dARP(1445)/dV(4010) - JVRP(2405) = V(5256) -! JVRP(2406) = dARP(1445)/dV(5256) - JVRP(2406) = V(4010) -! JVRP(2407) = dARP(1446)/dV(4010) - JVRP(2407) = V(5258) -! JVRP(2408) = dARP(1446)/dV(5258) - JVRP(2408) = V(4010) -! JVRP(2409) = dARP(1447)/dV(4010) - JVRP(2409) = V(5250) -! JVRP(2410) = dARP(1447)/dV(5250) - JVRP(2410) = V(4010) -! JVRP(2411) = dARP(1448)/dV(4010) - JVRP(2411) = V(5250) -! JVRP(2412) = dARP(1448)/dV(5250) - JVRP(2412) = V(4010) -! JVRP(2413) = dARP(1449)/dV(4010) - JVRP(2413) = 1 -! JVRP(2414) = dARP(1450)/dV(4010) - JVRP(2414) = 1 -! JVRP(2415) = dARP(1451)/dV(3523) - JVRP(2415) = V(5255) -! JVRP(2416) = dARP(1451)/dV(5255) - JVRP(2416) = V(3523) -! JVRP(2417) = dARP(1452)/dV(3523) - JVRP(2417) = V(5252) -! JVRP(2418) = dARP(1452)/dV(5252) - JVRP(2418) = V(3523) -! JVRP(2419) = dARP(1453)/dV(3523) - JVRP(2419) = V(5252) -! JVRP(2420) = dARP(1453)/dV(5252) - JVRP(2420) = V(3523) -! JVRP(2421) = dARP(1454)/dV(3523) - JVRP(2421) = V(5256) -! JVRP(2422) = dARP(1454)/dV(5256) - JVRP(2422) = V(3523) -! JVRP(2423) = dARP(1455)/dV(3523) - JVRP(2423) = 1 -! JVRP(2424) = dARP(1456)/dV(3523) - JVRP(2424) = 1 -! JVRP(2425) = dARP(1457)/dV(3523) - JVRP(2425) = 1 -! JVRP(2426) = dARP(1458)/dV(4028) - JVRP(2426) = V(5255) -! JVRP(2427) = dARP(1458)/dV(5255) - JVRP(2427) = V(4028) -! JVRP(2428) = dARP(1459)/dV(4028) - JVRP(2428) = V(5252) -! JVRP(2429) = dARP(1459)/dV(5252) - JVRP(2429) = V(4028) -! JVRP(2430) = dARP(1460)/dV(4028) - JVRP(2430) = V(5252) -! JVRP(2431) = dARP(1460)/dV(5252) - JVRP(2431) = V(4028) -! JVRP(2432) = dARP(1461)/dV(4028) - JVRP(2432) = V(5256) -! JVRP(2433) = dARP(1461)/dV(5256) - JVRP(2433) = V(4028) -! JVRP(2434) = dARP(1462)/dV(4028) - JVRP(2434) = 1 -! JVRP(2435) = dARP(1463)/dV(4028) - JVRP(2435) = 1 -! JVRP(2436) = dARP(1464)/dV(3834) - JVRP(2436) = V(5256) -! JVRP(2437) = dARP(1464)/dV(5256) - JVRP(2437) = V(3834) -! JVRP(2438) = dARP(1465)/dV(3834) - JVRP(2438) = V(5258) -! JVRP(2439) = dARP(1465)/dV(5258) - JVRP(2439) = V(3834) -! JVRP(2440) = dARP(1466)/dV(3834) - JVRP(2440) = V(5250) -! JVRP(2441) = dARP(1466)/dV(5250) - JVRP(2441) = V(3834) -! JVRP(2442) = dARP(1467)/dV(3834) - JVRP(2442) = V(5250) -! JVRP(2443) = dARP(1467)/dV(5250) - JVRP(2443) = V(3834) -! JVRP(2444) = dARP(1468)/dV(3834) - JVRP(2444) = 1 -! JVRP(2445) = dARP(1469)/dV(3834) - JVRP(2445) = 1 -! JVRP(2446) = dARP(1470)/dV(3158) - JVRP(2446) = V(5256) -! JVRP(2447) = dARP(1470)/dV(5256) - JVRP(2447) = V(3158) -! JVRP(2448) = dARP(1471)/dV(3158) - JVRP(2448) = V(5256) -! JVRP(2449) = dARP(1471)/dV(5256) - JVRP(2449) = V(3158) -! JVRP(2450) = dARP(1472)/dV(3158) - JVRP(2450) = V(5256) -! JVRP(2451) = dARP(1472)/dV(5256) - JVRP(2451) = V(3158) -! JVRP(2452) = dARP(1473)/dV(3158) - JVRP(2452) = V(5250) -! JVRP(2453) = dARP(1473)/dV(5250) - JVRP(2453) = V(3158) -! JVRP(2454) = dARP(1474)/dV(3158) - JVRP(2454) = V(5250) -! JVRP(2455) = dARP(1474)/dV(5250) - JVRP(2455) = V(3158) -! JVRP(2456) = dARP(1475)/dV(3158) - JVRP(2456) = V(5250) -! JVRP(2457) = dARP(1475)/dV(5250) - JVRP(2457) = V(3158) -! JVRP(2458) = dARP(1476)/dV(3509) - JVRP(2458) = V(5255) -! JVRP(2459) = dARP(1476)/dV(5255) - JVRP(2459) = V(3509) -! JVRP(2460) = dARP(1477)/dV(3509) - JVRP(2460) = V(5252) -! JVRP(2461) = dARP(1477)/dV(5252) - JVRP(2461) = V(3509) -! JVRP(2462) = dARP(1478)/dV(3509) - JVRP(2462) = V(5252) -! JVRP(2463) = dARP(1478)/dV(5252) - JVRP(2463) = V(3509) -! JVRP(2464) = dARP(1479)/dV(3509) - JVRP(2464) = V(5256) -! JVRP(2465) = dARP(1479)/dV(5256) - JVRP(2465) = V(3509) -! JVRP(2466) = dARP(1480)/dV(3509) - JVRP(2466) = 1 -! JVRP(2467) = dARP(1481)/dV(3509) - JVRP(2467) = 1 -! JVRP(2468) = dARP(1482)/dV(3509) - JVRP(2468) = 1 -! JVRP(2469) = dARP(1483)/dV(4003) - JVRP(2469) = V(5255) -! JVRP(2470) = dARP(1483)/dV(5255) - JVRP(2470) = V(4003) -! JVRP(2471) = dARP(1484)/dV(4003) - JVRP(2471) = V(5252) -! JVRP(2472) = dARP(1484)/dV(5252) - JVRP(2472) = V(4003) -! JVRP(2473) = dARP(1485)/dV(4003) - JVRP(2473) = V(5252) -! JVRP(2474) = dARP(1485)/dV(5252) - JVRP(2474) = V(4003) -! JVRP(2475) = dARP(1486)/dV(4003) - JVRP(2475) = V(5256) -! JVRP(2476) = dARP(1486)/dV(5256) - JVRP(2476) = V(4003) -! JVRP(2477) = dARP(1487)/dV(4003) - JVRP(2477) = 1 -! JVRP(2478) = dARP(1488)/dV(4003) - JVRP(2478) = 1 -! JVRP(2479) = dARP(1489)/dV(4003) - JVRP(2479) = 1 -! JVRP(2480) = dARP(1490)/dV(4056) - JVRP(2480) = V(5256) -! JVRP(2481) = dARP(1490)/dV(5256) - JVRP(2481) = V(4056) -! JVRP(2482) = dARP(1491)/dV(4056) - JVRP(2482) = V(5258) -! JVRP(2483) = dARP(1491)/dV(5258) - JVRP(2483) = V(4056) -! JVRP(2484) = dARP(1492)/dV(4056) - JVRP(2484) = V(5250) -! JVRP(2485) = dARP(1492)/dV(5250) - JVRP(2485) = V(4056) -! JVRP(2486) = dARP(1493)/dV(4056) - JVRP(2486) = V(5250) -! JVRP(2487) = dARP(1493)/dV(5250) - JVRP(2487) = V(4056) -! JVRP(2488) = dARP(1494)/dV(4056) - JVRP(2488) = 1 -! JVRP(2489) = dARP(1495)/dV(4056) - JVRP(2489) = 1 -! JVRP(2490) = dARP(1496)/dV(3131) - JVRP(2490) = V(5256) -! JVRP(2491) = dARP(1496)/dV(5256) - JVRP(2491) = V(3131) -! JVRP(2492) = dARP(1497)/dV(3131) - JVRP(2492) = V(5256) -! JVRP(2493) = dARP(1497)/dV(5256) - JVRP(2493) = V(3131) -! JVRP(2494) = dARP(1498)/dV(3131) - JVRP(2494) = V(5256) -! JVRP(2495) = dARP(1498)/dV(5256) - JVRP(2495) = V(3131) -! JVRP(2496) = dARP(1499)/dV(3131) - JVRP(2496) = V(5250) -! JVRP(2497) = dARP(1499)/dV(5250) - JVRP(2497) = V(3131) -! JVRP(2498) = dARP(1500)/dV(3131) - JVRP(2498) = V(5250) -! JVRP(2499) = dARP(1500)/dV(5250) - JVRP(2499) = V(3131) -! JVRP(2500) = dARP(1501)/dV(3131) - JVRP(2500) = V(5250) -! JVRP(2501) = dARP(1501)/dV(5250) - JVRP(2501) = V(3131) -! JVRP(2502) = dARP(1502)/dV(3507) - JVRP(2502) = V(5255) -! JVRP(2503) = dARP(1502)/dV(5255) - JVRP(2503) = V(3507) -! JVRP(2504) = dARP(1503)/dV(3507) - JVRP(2504) = V(5252) -! JVRP(2505) = dARP(1503)/dV(5252) - JVRP(2505) = V(3507) -! JVRP(2506) = dARP(1504)/dV(3507) - JVRP(2506) = V(5252) -! JVRP(2507) = dARP(1504)/dV(5252) - JVRP(2507) = V(3507) -! JVRP(2508) = dARP(1505)/dV(3507) - JVRP(2508) = V(5256) -! JVRP(2509) = dARP(1505)/dV(5256) - JVRP(2509) = V(3507) -! JVRP(2510) = dARP(1506)/dV(3507) - JVRP(2510) = 1 -! JVRP(2511) = dARP(1507)/dV(3507) - JVRP(2511) = 1 -! JVRP(2512) = dARP(1508)/dV(3507) - JVRP(2512) = 1 -! JVRP(2513) = dARP(1509)/dV(4529) - JVRP(2513) = V(5255) -! JVRP(2514) = dARP(1509)/dV(5255) - JVRP(2514) = V(4529) -! JVRP(2515) = dARP(1510)/dV(4529) - JVRP(2515) = V(5252) -! JVRP(2516) = dARP(1510)/dV(5252) - JVRP(2516) = V(4529) -! JVRP(2517) = dARP(1511)/dV(4529) - JVRP(2517) = V(5252) -! JVRP(2518) = dARP(1511)/dV(5252) - JVRP(2518) = V(4529) -! JVRP(2519) = dARP(1512)/dV(4529) - JVRP(2519) = V(5256) -! JVRP(2520) = dARP(1512)/dV(5256) - JVRP(2520) = V(4529) -! JVRP(2521) = dARP(1513)/dV(4529) - JVRP(2521) = 1 -! JVRP(2522) = dARP(1514)/dV(4529) - JVRP(2522) = 1 -! JVRP(2523) = dARP(1515)/dV(4083) - JVRP(2523) = V(5256) -! JVRP(2524) = dARP(1515)/dV(5256) - JVRP(2524) = V(4083) -! JVRP(2525) = dARP(1516)/dV(4083) - JVRP(2525) = V(5258) -! JVRP(2526) = dARP(1516)/dV(5258) - JVRP(2526) = V(4083) -! JVRP(2527) = dARP(1517)/dV(4083) - JVRP(2527) = V(5250) -! JVRP(2528) = dARP(1517)/dV(5250) - JVRP(2528) = V(4083) -! JVRP(2529) = dARP(1518)/dV(4083) - JVRP(2529) = V(5250) -! JVRP(2530) = dARP(1518)/dV(5250) - JVRP(2530) = V(4083) -! JVRP(2531) = dARP(1519)/dV(4083) - JVRP(2531) = 1 -! JVRP(2532) = dARP(1520)/dV(4083) - JVRP(2532) = 1 -! JVRP(2533) = dARP(1521)/dV(3135) - JVRP(2533) = V(5256) -! JVRP(2534) = dARP(1521)/dV(5256) - JVRP(2534) = V(3135) -! JVRP(2535) = dARP(1522)/dV(3135) - JVRP(2535) = V(5256) -! JVRP(2536) = dARP(1522)/dV(5256) - JVRP(2536) = V(3135) -! JVRP(2537) = dARP(1523)/dV(3135) - JVRP(2537) = V(5256) -! JVRP(2538) = dARP(1523)/dV(5256) - JVRP(2538) = V(3135) -! JVRP(2539) = dARP(1524)/dV(3135) - JVRP(2539) = V(5250) -! JVRP(2540) = dARP(1524)/dV(5250) - JVRP(2540) = V(3135) -! JVRP(2541) = dARP(1525)/dV(3135) - JVRP(2541) = V(5250) -! JVRP(2542) = dARP(1525)/dV(5250) - JVRP(2542) = V(3135) -! JVRP(2543) = dARP(1526)/dV(3135) - JVRP(2543) = V(5250) -! JVRP(2544) = dARP(1526)/dV(5250) - JVRP(2544) = V(3135) -! JVRP(2545) = dARP(1527)/dV(3481) - JVRP(2545) = V(5255) -! JVRP(2546) = dARP(1527)/dV(5255) - JVRP(2546) = V(3481) -! JVRP(2547) = dARP(1528)/dV(3481) - JVRP(2547) = V(5252) -! JVRP(2548) = dARP(1528)/dV(5252) - JVRP(2548) = V(3481) -! JVRP(2549) = dARP(1529)/dV(3481) - JVRP(2549) = V(5252) -! JVRP(2550) = dARP(1529)/dV(5252) - JVRP(2550) = V(3481) -! JVRP(2551) = dARP(1530)/dV(3481) - JVRP(2551) = V(5256) -! JVRP(2552) = dARP(1530)/dV(5256) - JVRP(2552) = V(3481) -! JVRP(2553) = dARP(1531)/dV(3481) - JVRP(2553) = 1 -! JVRP(2554) = dARP(1532)/dV(3481) - JVRP(2554) = 1 -! JVRP(2555) = dARP(1533)/dV(3481) - JVRP(2555) = 1 -! JVRP(2556) = dARP(1534)/dV(3136) - JVRP(2556) = V(5256) -! JVRP(2557) = dARP(1534)/dV(5256) - JVRP(2557) = V(3136) -! JVRP(2558) = dARP(1535)/dV(3136) - JVRP(2558) = V(5256) -! JVRP(2559) = dARP(1535)/dV(5256) - JVRP(2559) = V(3136) -! JVRP(2560) = dARP(1536)/dV(3136) - JVRP(2560) = V(5256) -! JVRP(2561) = dARP(1536)/dV(5256) - JVRP(2561) = V(3136) -! JVRP(2562) = dARP(1537)/dV(3136) - JVRP(2562) = V(5250) -! JVRP(2563) = dARP(1537)/dV(5250) - JVRP(2563) = V(3136) -! JVRP(2564) = dARP(1538)/dV(3136) - JVRP(2564) = V(5250) -! JVRP(2565) = dARP(1538)/dV(5250) - JVRP(2565) = V(3136) -! JVRP(2566) = dARP(1539)/dV(3136) - JVRP(2566) = V(5250) -! JVRP(2567) = dARP(1539)/dV(5250) - JVRP(2567) = V(3136) -! JVRP(2568) = dARP(1540)/dV(3811) - JVRP(2568) = V(5255) -! JVRP(2569) = dARP(1540)/dV(5255) - JVRP(2569) = V(3811) -! JVRP(2570) = dARP(1541)/dV(3811) - JVRP(2570) = V(5252) -! JVRP(2571) = dARP(1541)/dV(5252) - JVRP(2571) = V(3811) -! JVRP(2572) = dARP(1542)/dV(3811) - JVRP(2572) = V(5252) -! JVRP(2573) = dARP(1542)/dV(5252) - JVRP(2573) = V(3811) -! JVRP(2574) = dARP(1543)/dV(3811) - JVRP(2574) = V(5256) -! JVRP(2575) = dARP(1543)/dV(5256) - JVRP(2575) = V(3811) -! JVRP(2576) = dARP(1544)/dV(3811) - JVRP(2576) = 1 -! JVRP(2577) = dARP(1545)/dV(3811) - JVRP(2577) = 1 -! JVRP(2578) = dARP(1546)/dV(3811) - JVRP(2578) = 1 -! JVRP(2579) = dARP(1547)/dV(4032) - JVRP(2579) = V(5256) -! JVRP(2580) = dARP(1547)/dV(5256) - JVRP(2580) = V(4032) -! JVRP(2581) = dARP(1548)/dV(4032) - JVRP(2581) = V(5258) -! JVRP(2582) = dARP(1548)/dV(5258) - JVRP(2582) = V(4032) -! JVRP(2583) = dARP(1549)/dV(4032) - JVRP(2583) = V(5250) -! JVRP(2584) = dARP(1549)/dV(5250) - JVRP(2584) = V(4032) -! JVRP(2585) = dARP(1550)/dV(4032) - JVRP(2585) = V(5250) -! JVRP(2586) = dARP(1550)/dV(5250) - JVRP(2586) = V(4032) -! JVRP(2587) = dARP(1551)/dV(4032) - JVRP(2587) = 1 -! JVRP(2588) = dARP(1552)/dV(4032) - JVRP(2588) = 1 -! JVRP(2589) = dARP(1553)/dV(3807) - JVRP(2589) = V(5255) -! JVRP(2590) = dARP(1553)/dV(5255) - JVRP(2590) = V(3807) -! JVRP(2591) = dARP(1554)/dV(3807) - JVRP(2591) = V(5252) -! JVRP(2592) = dARP(1554)/dV(5252) - JVRP(2592) = V(3807) -! JVRP(2593) = dARP(1555)/dV(3807) - JVRP(2593) = V(5252) -! JVRP(2594) = dARP(1555)/dV(5252) - JVRP(2594) = V(3807) -! JVRP(2595) = dARP(1556)/dV(3807) - JVRP(2595) = V(5256) -! JVRP(2596) = dARP(1556)/dV(5256) - JVRP(2596) = V(3807) -! JVRP(2597) = dARP(1557)/dV(3807) - JVRP(2597) = 1 -! JVRP(2598) = dARP(1558)/dV(3807) - JVRP(2598) = 1 -! JVRP(2599) = dARP(1559)/dV(3807) - JVRP(2599) = 1 -! JVRP(2600) = dARP(1560)/dV(3149) - JVRP(2600) = V(5256) -! JVRP(2601) = dARP(1560)/dV(5256) - JVRP(2601) = V(3149) -! JVRP(2602) = dARP(1561)/dV(3149) - JVRP(2602) = V(5256) -! JVRP(2603) = dARP(1561)/dV(5256) - JVRP(2603) = V(3149) -! JVRP(2604) = dARP(1562)/dV(3149) - JVRP(2604) = V(5256) -! JVRP(2605) = dARP(1562)/dV(5256) - JVRP(2605) = V(3149) -! JVRP(2606) = dARP(1563)/dV(3149) - JVRP(2606) = V(5250) -! JVRP(2607) = dARP(1563)/dV(5250) - JVRP(2607) = V(3149) -! JVRP(2608) = dARP(1564)/dV(3149) - JVRP(2608) = V(5250) -! JVRP(2609) = dARP(1564)/dV(5250) - JVRP(2609) = V(3149) -! JVRP(2610) = dARP(1565)/dV(3149) - JVRP(2610) = V(5250) -! JVRP(2611) = dARP(1565)/dV(5250) - JVRP(2611) = V(3149) -! JVRP(2612) = dARP(1566)/dV(3804) - JVRP(2612) = V(5255) -! JVRP(2613) = dARP(1566)/dV(5255) - JVRP(2613) = V(3804) -! JVRP(2614) = dARP(1567)/dV(3804) - JVRP(2614) = V(5252) -! JVRP(2615) = dARP(1567)/dV(5252) - JVRP(2615) = V(3804) -! JVRP(2616) = dARP(1568)/dV(3804) - JVRP(2616) = V(5252) -! JVRP(2617) = dARP(1568)/dV(5252) - JVRP(2617) = V(3804) -! JVRP(2618) = dARP(1569)/dV(3804) - JVRP(2618) = V(5256) -! JVRP(2619) = dARP(1569)/dV(5256) - JVRP(2619) = V(3804) -! JVRP(2620) = dARP(1570)/dV(3804) - JVRP(2620) = 1 -! JVRP(2621) = dARP(1571)/dV(3804) - JVRP(2621) = 1 -! JVRP(2622) = dARP(1572)/dV(3804) - JVRP(2622) = 1 -! JVRP(2623) = dARP(1573)/dV(4094) - JVRP(2623) = V(5256) -! JVRP(2624) = dARP(1573)/dV(5256) - JVRP(2624) = V(4094) -! JVRP(2625) = dARP(1574)/dV(4094) - JVRP(2625) = V(5258) -! JVRP(2626) = dARP(1574)/dV(5258) - JVRP(2626) = V(4094) -! JVRP(2627) = dARP(1575)/dV(4094) - JVRP(2627) = V(5250) -! JVRP(2628) = dARP(1575)/dV(5250) - JVRP(2628) = V(4094) -! JVRP(2629) = dARP(1576)/dV(4094) - JVRP(2629) = V(5250) -! JVRP(2630) = dARP(1576)/dV(5250) - JVRP(2630) = V(4094) -! JVRP(2631) = dARP(1577)/dV(4094) - JVRP(2631) = 1 -! JVRP(2632) = dARP(1578)/dV(4094) - JVRP(2632) = 1 -! JVRP(2633) = dARP(1579)/dV(4068) - JVRP(2633) = V(5255) -! JVRP(2634) = dARP(1579)/dV(5255) - JVRP(2634) = V(4068) -! JVRP(2635) = dARP(1580)/dV(4068) - JVRP(2635) = V(5252) -! JVRP(2636) = dARP(1580)/dV(5252) - JVRP(2636) = V(4068) -! JVRP(2637) = dARP(1581)/dV(4068) - JVRP(2637) = V(5252) -! JVRP(2638) = dARP(1581)/dV(5252) - JVRP(2638) = V(4068) -! JVRP(2639) = dARP(1582)/dV(4068) - JVRP(2639) = V(5256) -! JVRP(2640) = dARP(1582)/dV(5256) - JVRP(2640) = V(4068) -! JVRP(2641) = dARP(1583)/dV(4068) - JVRP(2641) = 1 -! JVRP(2642) = dARP(1584)/dV(4068) - JVRP(2642) = 1 -! JVRP(2643) = dARP(1585)/dV(3172) - JVRP(2643) = V(5256) -! JVRP(2644) = dARP(1585)/dV(5256) - JVRP(2644) = V(3172) -! JVRP(2645) = dARP(1586)/dV(3172) - JVRP(2645) = V(5256) -! JVRP(2646) = dARP(1586)/dV(5256) - JVRP(2646) = V(3172) -! JVRP(2647) = dARP(1587)/dV(3172) - JVRP(2647) = V(5256) -! JVRP(2648) = dARP(1587)/dV(5256) - JVRP(2648) = V(3172) -! JVRP(2649) = dARP(1588)/dV(3172) - JVRP(2649) = V(5250) -! JVRP(2650) = dARP(1588)/dV(5250) - JVRP(2650) = V(3172) -! JVRP(2651) = dARP(1589)/dV(3172) - JVRP(2651) = V(5250) -! JVRP(2652) = dARP(1589)/dV(5250) - JVRP(2652) = V(3172) -! JVRP(2653) = dARP(1590)/dV(3172) - JVRP(2653) = V(5250) -! JVRP(2654) = dARP(1590)/dV(5250) - JVRP(2654) = V(3172) -! JVRP(2655) = dARP(1591)/dV(3794) - JVRP(2655) = V(5255) -! JVRP(2656) = dARP(1591)/dV(5255) - JVRP(2656) = V(3794) -! JVRP(2657) = dARP(1592)/dV(3794) - JVRP(2657) = V(5252) -! JVRP(2658) = dARP(1592)/dV(5252) - JVRP(2658) = V(3794) -! JVRP(2659) = dARP(1593)/dV(3794) - JVRP(2659) = V(5252) -! JVRP(2660) = dARP(1593)/dV(5252) - JVRP(2660) = V(3794) -! JVRP(2661) = dARP(1594)/dV(3794) - JVRP(2661) = V(5256) -! JVRP(2662) = dARP(1594)/dV(5256) - JVRP(2662) = V(3794) -! JVRP(2663) = dARP(1595)/dV(3794) - JVRP(2663) = 1 -! JVRP(2664) = dARP(1596)/dV(3794) - JVRP(2664) = 1 -! JVRP(2665) = dARP(1597)/dV(3794) - JVRP(2665) = 1 -! JVRP(2666) = dARP(1598)/dV(4093) - JVRP(2666) = V(5256) -! JVRP(2667) = dARP(1598)/dV(5256) - JVRP(2667) = V(4093) -! JVRP(2668) = dARP(1599)/dV(4093) - JVRP(2668) = V(5258) -! JVRP(2669) = dARP(1599)/dV(5258) - JVRP(2669) = V(4093) -! JVRP(2670) = dARP(1600)/dV(4093) - JVRP(2670) = V(5250) -! JVRP(2671) = dARP(1600)/dV(5250) - JVRP(2671) = V(4093) -! JVRP(2672) = dARP(1601)/dV(4093) - JVRP(2672) = V(5250) -! JVRP(2673) = dARP(1601)/dV(5250) - JVRP(2673) = V(4093) -! JVRP(2674) = dARP(1602)/dV(4093) - JVRP(2674) = 1 -! JVRP(2675) = dARP(1603)/dV(4093) - JVRP(2675) = 1 -! JVRP(2676) = dARP(1604)/dV(3521) - JVRP(2676) = V(5255) -! JVRP(2677) = dARP(1604)/dV(5255) - JVRP(2677) = V(3521) -! JVRP(2678) = dARP(1605)/dV(3521) - JVRP(2678) = V(5252) -! JVRP(2679) = dARP(1605)/dV(5252) - JVRP(2679) = V(3521) -! JVRP(2680) = dARP(1606)/dV(3521) - JVRP(2680) = V(5252) -! JVRP(2681) = dARP(1606)/dV(5252) - JVRP(2681) = V(3521) -! JVRP(2682) = dARP(1607)/dV(3521) - JVRP(2682) = V(5256) -! JVRP(2683) = dARP(1607)/dV(5256) - JVRP(2683) = V(3521) -! JVRP(2684) = dARP(1608)/dV(3521) - JVRP(2684) = 1 -! JVRP(2685) = dARP(1609)/dV(3521) - JVRP(2685) = 1 -! JVRP(2686) = dARP(1610)/dV(3521) - JVRP(2686) = 1 -! JVRP(2687) = dARP(1611)/dV(3180) - JVRP(2687) = V(5256) -! JVRP(2688) = dARP(1611)/dV(5256) - JVRP(2688) = V(3180) -! JVRP(2689) = dARP(1612)/dV(3180) - JVRP(2689) = V(5256) -! JVRP(2690) = dARP(1612)/dV(5256) - JVRP(2690) = V(3180) -! JVRP(2691) = dARP(1613)/dV(3180) - JVRP(2691) = V(5256) -! JVRP(2692) = dARP(1613)/dV(5256) - JVRP(2692) = V(3180) -! JVRP(2693) = dARP(1614)/dV(3180) - JVRP(2693) = V(5250) -! JVRP(2694) = dARP(1614)/dV(5250) - JVRP(2694) = V(3180) -! JVRP(2695) = dARP(1615)/dV(3180) - JVRP(2695) = V(5250) -! JVRP(2696) = dARP(1615)/dV(5250) - JVRP(2696) = V(3180) -! JVRP(2697) = dARP(1616)/dV(3180) - JVRP(2697) = V(5250) -! JVRP(2698) = dARP(1616)/dV(5250) - JVRP(2698) = V(3180) -! JVRP(2699) = dARP(1617)/dV(3803) - JVRP(2699) = V(5255) -! JVRP(2700) = dARP(1617)/dV(5255) - JVRP(2700) = V(3803) -! JVRP(2701) = dARP(1618)/dV(3803) - JVRP(2701) = V(5252) -! JVRP(2702) = dARP(1618)/dV(5252) - JVRP(2702) = V(3803) -! JVRP(2703) = dARP(1619)/dV(3803) - JVRP(2703) = V(5252) -! JVRP(2704) = dARP(1619)/dV(5252) - JVRP(2704) = V(3803) -! JVRP(2705) = dARP(1620)/dV(3803) - JVRP(2705) = V(5256) -! JVRP(2706) = dARP(1620)/dV(5256) - JVRP(2706) = V(3803) -! JVRP(2707) = dARP(1621)/dV(3803) - JVRP(2707) = 1 -! JVRP(2708) = dARP(1622)/dV(3803) - JVRP(2708) = 1 -! JVRP(2709) = dARP(1623)/dV(3803) - JVRP(2709) = 1 -! JVRP(2710) = dARP(1624)/dV(3622) - JVRP(2710) = V(5258) -! JVRP(2711) = dARP(1624)/dV(5258) - JVRP(2711) = V(3622) -! JVRP(2712) = dARP(1625)/dV(3622) - JVRP(2712) = V(5250) -! JVRP(2713) = dARP(1625)/dV(5250) - JVRP(2713) = V(3622) -! JVRP(2714) = dARP(1626)/dV(3622) - JVRP(2714) = 1 -! JVRP(2715) = dARP(1627)/dV(3622) - JVRP(2715) = 1 -! JVRP(2716) = dARP(1628)/dV(3525) - JVRP(2716) = V(5255) -! JVRP(2717) = dARP(1628)/dV(5255) - JVRP(2717) = V(3525) -! JVRP(2718) = dARP(1629)/dV(3525) - JVRP(2718) = V(5252) -! JVRP(2719) = dARP(1629)/dV(5252) - JVRP(2719) = V(3525) -! JVRP(2720) = dARP(1630)/dV(3525) - JVRP(2720) = V(5252) -! JVRP(2721) = dARP(1630)/dV(5252) - JVRP(2721) = V(3525) -! JVRP(2722) = dARP(1631)/dV(3525) - JVRP(2722) = V(5256) -! JVRP(2723) = dARP(1631)/dV(5256) - JVRP(2723) = V(3525) -! JVRP(2724) = dARP(1632)/dV(3525) - JVRP(2724) = 1 -! JVRP(2725) = dARP(1633)/dV(3525) - JVRP(2725) = 1 -! JVRP(2726) = dARP(1634)/dV(3525) - JVRP(2726) = 1 -! JVRP(2727) = dARP(1635)/dV(4133) - JVRP(2727) = V(5255) -! JVRP(2728) = dARP(1635)/dV(5255) - JVRP(2728) = V(4133) -! JVRP(2729) = dARP(1636)/dV(4133) - JVRP(2729) = V(5252) -! JVRP(2730) = dARP(1636)/dV(5252) - JVRP(2730) = V(4133) -! JVRP(2731) = dARP(1637)/dV(4133) - JVRP(2731) = V(5252) -! JVRP(2732) = dARP(1637)/dV(5252) - JVRP(2732) = V(4133) -! JVRP(2733) = dARP(1638)/dV(4133) - JVRP(2733) = V(5256) -! JVRP(2734) = dARP(1638)/dV(5256) - JVRP(2734) = V(4133) -! JVRP(2735) = dARP(1639)/dV(4133) - JVRP(2735) = 1 -! JVRP(2736) = dARP(1640)/dV(4133) - JVRP(2736) = 1 -! JVRP(2737) = dARP(1641)/dV(3139) - JVRP(2737) = V(5256) -! JVRP(2738) = dARP(1641)/dV(5256) - JVRP(2738) = V(3139) -! JVRP(2739) = dARP(1642)/dV(3139) - JVRP(2739) = V(5256) -! JVRP(2740) = dARP(1642)/dV(5256) - JVRP(2740) = V(3139) -! JVRP(2741) = dARP(1643)/dV(3139) - JVRP(2741) = V(5256) -! JVRP(2742) = dARP(1643)/dV(5256) - JVRP(2742) = V(3139) -! JVRP(2743) = dARP(1644)/dV(3139) - JVRP(2743) = V(5250) -! JVRP(2744) = dARP(1644)/dV(5250) - JVRP(2744) = V(3139) -! JVRP(2745) = dARP(1645)/dV(3139) - JVRP(2745) = V(5250) -! JVRP(2746) = dARP(1645)/dV(5250) - JVRP(2746) = V(3139) -! JVRP(2747) = dARP(1646)/dV(3139) - JVRP(2747) = V(5250) -! JVRP(2748) = dARP(1646)/dV(5250) - JVRP(2748) = V(3139) -! JVRP(2749) = dARP(1647)/dV(4027) - JVRP(2749) = V(5256) -! JVRP(2750) = dARP(1647)/dV(5256) - JVRP(2750) = V(4027) -! JVRP(2751) = dARP(1648)/dV(4027) - JVRP(2751) = V(5258) -! JVRP(2752) = dARP(1648)/dV(5258) - JVRP(2752) = V(4027) -! JVRP(2753) = dARP(1649)/dV(4027) - JVRP(2753) = V(5250) -! JVRP(2754) = dARP(1649)/dV(5250) - JVRP(2754) = V(4027) -! JVRP(2755) = dARP(1650)/dV(4027) - JVRP(2755) = V(5250) -! JVRP(2756) = dARP(1650)/dV(5250) - JVRP(2756) = V(4027) -! JVRP(2757) = dARP(1651)/dV(4027) - JVRP(2757) = 1 -! JVRP(2758) = dARP(1652)/dV(4027) - JVRP(2758) = 1 -! JVRP(2759) = dARP(1653)/dV(3492) - JVRP(2759) = V(5255) -! JVRP(2760) = dARP(1653)/dV(5255) - JVRP(2760) = V(3492) -! JVRP(2761) = dARP(1654)/dV(3492) - JVRP(2761) = V(5252) -! JVRP(2762) = dARP(1654)/dV(5252) - JVRP(2762) = V(3492) -! JVRP(2763) = dARP(1655)/dV(3492) - JVRP(2763) = V(5252) -! JVRP(2764) = dARP(1655)/dV(5252) - JVRP(2764) = V(3492) -! JVRP(2765) = dARP(1656)/dV(3492) - JVRP(2765) = V(5256) -! JVRP(2766) = dARP(1656)/dV(5256) - JVRP(2766) = V(3492) -! JVRP(2767) = dARP(1657)/dV(3492) - JVRP(2767) = 1 -! JVRP(2768) = dARP(1658)/dV(3492) - JVRP(2768) = 1 -! JVRP(2769) = dARP(1659)/dV(3492) - JVRP(2769) = 1 -! JVRP(2770) = dARP(1660)/dV(4055) - JVRP(2770) = V(5255) -! JVRP(2771) = dARP(1660)/dV(5255) - JVRP(2771) = V(4055) -! JVRP(2772) = dARP(1661)/dV(4055) - JVRP(2772) = V(5252) -! JVRP(2773) = dARP(1661)/dV(5252) - JVRP(2773) = V(4055) -! JVRP(2774) = dARP(1662)/dV(4055) - JVRP(2774) = V(5252) -! JVRP(2775) = dARP(1662)/dV(5252) - JVRP(2775) = V(4055) -! JVRP(2776) = dARP(1663)/dV(4055) - JVRP(2776) = V(5256) -! JVRP(2777) = dARP(1663)/dV(5256) - JVRP(2777) = V(4055) -! JVRP(2778) = dARP(1664)/dV(4055) - JVRP(2778) = 1 -! JVRP(2779) = dARP(1665)/dV(4055) - JVRP(2779) = 1 -! JVRP(2780) = dARP(1666)/dV(4055) - JVRP(2780) = 1 -! JVRP(2781) = dARP(1667)/dV(3263) - JVRP(2781) = V(5256) -! JVRP(2782) = dARP(1667)/dV(5256) - JVRP(2782) = V(3263) -! JVRP(2783) = dARP(1668)/dV(3263) - JVRP(2783) = V(5256) -! JVRP(2784) = dARP(1668)/dV(5256) - JVRP(2784) = V(3263) -! JVRP(2785) = dARP(1669)/dV(3263) - JVRP(2785) = V(5250) -! JVRP(2786) = dARP(1669)/dV(5250) - JVRP(2786) = V(3263) -! JVRP(2787) = dARP(1670)/dV(3263) - JVRP(2787) = V(5250) -! JVRP(2788) = dARP(1670)/dV(5250) - JVRP(2788) = V(3263) -! JVRP(2789) = dARP(1671)/dV(3996) - JVRP(2789) = V(5256) -! JVRP(2790) = dARP(1671)/dV(5256) - JVRP(2790) = V(3996) -! JVRP(2791) = dARP(1672)/dV(3996) - JVRP(2791) = V(5258) -! JVRP(2792) = dARP(1672)/dV(5258) - JVRP(2792) = V(3996) -! JVRP(2793) = dARP(1673)/dV(3996) - JVRP(2793) = V(5250) -! JVRP(2794) = dARP(1673)/dV(5250) - JVRP(2794) = V(3996) -! JVRP(2795) = dARP(1674)/dV(3996) - JVRP(2795) = V(5250) -! JVRP(2796) = dARP(1674)/dV(5250) - JVRP(2796) = V(3996) -! JVRP(2797) = dARP(1675)/dV(3996) - JVRP(2797) = 1 -! JVRP(2798) = dARP(1676)/dV(3996) - JVRP(2798) = 1 -! JVRP(2799) = dARP(1677)/dV(3797) - JVRP(2799) = V(5255) -! JVRP(2800) = dARP(1677)/dV(5255) - JVRP(2800) = V(3797) -! JVRP(2801) = dARP(1678)/dV(3797) - JVRP(2801) = V(5252) -! JVRP(2802) = dARP(1678)/dV(5252) - JVRP(2802) = V(3797) -! JVRP(2803) = dARP(1679)/dV(3797) - JVRP(2803) = V(5252) -! JVRP(2804) = dARP(1679)/dV(5252) - JVRP(2804) = V(3797) -! JVRP(2805) = dARP(1680)/dV(3797) - JVRP(2805) = V(5256) -! JVRP(2806) = dARP(1680)/dV(5256) - JVRP(2806) = V(3797) -! JVRP(2807) = dARP(1681)/dV(3797) - JVRP(2807) = 1 -! JVRP(2808) = dARP(1682)/dV(3797) - JVRP(2808) = 1 -! JVRP(2809) = dARP(1683)/dV(3797) - JVRP(2809) = 1 -! JVRP(2810) = dARP(1684)/dV(4074) - JVRP(2810) = V(5255) -! JVRP(2811) = dARP(1684)/dV(5255) - JVRP(2811) = V(4074) -! JVRP(2812) = dARP(1685)/dV(4074) - JVRP(2812) = V(5252) -! JVRP(2813) = dARP(1685)/dV(5252) - JVRP(2813) = V(4074) -! JVRP(2814) = dARP(1686)/dV(4074) - JVRP(2814) = V(5252) -! JVRP(2815) = dARP(1686)/dV(5252) - JVRP(2815) = V(4074) -! JVRP(2816) = dARP(1687)/dV(4074) - JVRP(2816) = V(5256) -! JVRP(2817) = dARP(1687)/dV(5256) - JVRP(2817) = V(4074) -! JVRP(2818) = dARP(1688)/dV(4074) - JVRP(2818) = 1 -! JVRP(2819) = dARP(1689)/dV(4074) - JVRP(2819) = 1 -! JVRP(2820) = dARP(1690)/dV(3833) - JVRP(2820) = V(5256) -! JVRP(2821) = dARP(1690)/dV(5256) - JVRP(2821) = V(3833) -! JVRP(2822) = dARP(1691)/dV(3833) - JVRP(2822) = V(5258) -! JVRP(2823) = dARP(1691)/dV(5258) - JVRP(2823) = V(3833) -! JVRP(2824) = dARP(1692)/dV(3833) - JVRP(2824) = V(5250) -! JVRP(2825) = dARP(1692)/dV(5250) - JVRP(2825) = V(3833) -! JVRP(2826) = dARP(1693)/dV(3833) - JVRP(2826) = V(5250) -! JVRP(2827) = dARP(1693)/dV(5250) - JVRP(2827) = V(3833) -! JVRP(2828) = dARP(1694)/dV(3833) - JVRP(2828) = 1 -! JVRP(2829) = dARP(1695)/dV(3833) - JVRP(2829) = 1 -! JVRP(2830) = dARP(1696)/dV(3193) - JVRP(2830) = V(5256) -! JVRP(2831) = dARP(1696)/dV(5256) - JVRP(2831) = V(3193) -! JVRP(2832) = dARP(1697)/dV(3193) - JVRP(2832) = V(5256) -! JVRP(2833) = dARP(1697)/dV(5256) - JVRP(2833) = V(3193) -! JVRP(2834) = dARP(1698)/dV(3193) - JVRP(2834) = V(5256) -! JVRP(2835) = dARP(1698)/dV(5256) - JVRP(2835) = V(3193) -! JVRP(2836) = dARP(1699)/dV(3193) - JVRP(2836) = V(5250) -! JVRP(2837) = dARP(1699)/dV(5250) - JVRP(2837) = V(3193) -! JVRP(2838) = dARP(1700)/dV(3193) - JVRP(2838) = V(5250) -! JVRP(2839) = dARP(1700)/dV(5250) - JVRP(2839) = V(3193) -! JVRP(2840) = dARP(1701)/dV(3193) - JVRP(2840) = V(5250) -! JVRP(2841) = dARP(1701)/dV(5250) - JVRP(2841) = V(3193) -! JVRP(2842) = dARP(1702)/dV(3798) - JVRP(2842) = V(5255) -! JVRP(2843) = dARP(1702)/dV(5255) - JVRP(2843) = V(3798) -! JVRP(2844) = dARP(1703)/dV(3798) - JVRP(2844) = V(5252) -! JVRP(2845) = dARP(1703)/dV(5252) - JVRP(2845) = V(3798) -! JVRP(2846) = dARP(1704)/dV(3798) - JVRP(2846) = V(5252) -! JVRP(2847) = dARP(1704)/dV(5252) - JVRP(2847) = V(3798) -! JVRP(2848) = dARP(1705)/dV(3798) - JVRP(2848) = V(5256) -! JVRP(2849) = dARP(1705)/dV(5256) - JVRP(2849) = V(3798) -! JVRP(2850) = dARP(1706)/dV(3798) - JVRP(2850) = 1 -! JVRP(2851) = dARP(1707)/dV(3798) - JVRP(2851) = 1 -! JVRP(2852) = dARP(1708)/dV(3798) - JVRP(2852) = 1 -! JVRP(2853) = dARP(1709)/dV(4080) - JVRP(2853) = V(5256) -! JVRP(2854) = dARP(1709)/dV(5256) - JVRP(2854) = V(4080) -! JVRP(2855) = dARP(1710)/dV(4080) - JVRP(2855) = V(5258) -! JVRP(2856) = dARP(1710)/dV(5258) - JVRP(2856) = V(4080) -! JVRP(2857) = dARP(1711)/dV(4080) - JVRP(2857) = V(5250) -! JVRP(2858) = dARP(1711)/dV(5250) - JVRP(2858) = V(4080) -! JVRP(2859) = dARP(1712)/dV(4080) - JVRP(2859) = V(5250) -! JVRP(2860) = dARP(1712)/dV(5250) - JVRP(2860) = V(4080) -! JVRP(2861) = dARP(1713)/dV(4080) - JVRP(2861) = 1 -! JVRP(2862) = dARP(1714)/dV(4080) - JVRP(2862) = 1 -! JVRP(2863) = dARP(1715)/dV(3164) - JVRP(2863) = V(5256) -! JVRP(2864) = dARP(1715)/dV(5256) - JVRP(2864) = V(3164) -! JVRP(2865) = dARP(1716)/dV(3164) - JVRP(2865) = V(5256) -! JVRP(2866) = dARP(1716)/dV(5256) - JVRP(2866) = V(3164) -! JVRP(2867) = dARP(1717)/dV(3164) - JVRP(2867) = V(5256) -! JVRP(2868) = dARP(1717)/dV(5256) - JVRP(2868) = V(3164) -! JVRP(2869) = dARP(1718)/dV(3164) - JVRP(2869) = V(5250) -! JVRP(2870) = dARP(1718)/dV(5250) - JVRP(2870) = V(3164) -! JVRP(2871) = dARP(1719)/dV(3164) - JVRP(2871) = V(5250) -! JVRP(2872) = dARP(1719)/dV(5250) - JVRP(2872) = V(3164) -! JVRP(2873) = dARP(1720)/dV(3164) - JVRP(2873) = V(5250) -! JVRP(2874) = dARP(1720)/dV(5250) - JVRP(2874) = V(3164) -! JVRP(2875) = dARP(1721)/dV(3527) - JVRP(2875) = V(5255) -! JVRP(2876) = dARP(1721)/dV(5255) - JVRP(2876) = V(3527) -! JVRP(2877) = dARP(1722)/dV(3527) - JVRP(2877) = V(5252) -! JVRP(2878) = dARP(1722)/dV(5252) - JVRP(2878) = V(3527) -! JVRP(2879) = dARP(1723)/dV(3527) - JVRP(2879) = V(5252) -! JVRP(2880) = dARP(1723)/dV(5252) - JVRP(2880) = V(3527) -! JVRP(2881) = dARP(1724)/dV(3527) - JVRP(2881) = V(5256) -! JVRP(2882) = dARP(1724)/dV(5256) - JVRP(2882) = V(3527) -! JVRP(2883) = dARP(1725)/dV(3527) - JVRP(2883) = 1 -! JVRP(2884) = dARP(1726)/dV(3527) - JVRP(2884) = 1 -! JVRP(2885) = dARP(1727)/dV(4272) - JVRP(2885) = V(5256) -! JVRP(2886) = dARP(1727)/dV(5256) - JVRP(2886) = V(4272) -! JVRP(2887) = dARP(1728)/dV(4272) - JVRP(2887) = V(5258) -! JVRP(2888) = dARP(1728)/dV(5258) - JVRP(2888) = V(4272) -! JVRP(2889) = dARP(1729)/dV(4272) - JVRP(2889) = V(5250) -! JVRP(2890) = dARP(1729)/dV(5250) - JVRP(2890) = V(4272) -! JVRP(2891) = dARP(1730)/dV(4272) - JVRP(2891) = V(5250) -! JVRP(2892) = dARP(1730)/dV(5250) - JVRP(2892) = V(4272) -! JVRP(2893) = dARP(1731)/dV(4272) - JVRP(2893) = 1 -! JVRP(2894) = dARP(1732)/dV(4272) - JVRP(2894) = 1 -! JVRP(2895) = dARP(1733)/dV(3130) - JVRP(2895) = V(5256) -! JVRP(2896) = dARP(1733)/dV(5256) - JVRP(2896) = V(3130) -! JVRP(2897) = dARP(1734)/dV(3130) - JVRP(2897) = V(5256) -! JVRP(2898) = dARP(1734)/dV(5256) - JVRP(2898) = V(3130) -! JVRP(2899) = dARP(1735)/dV(3130) - JVRP(2899) = V(5256) -! JVRP(2900) = dARP(1735)/dV(5256) - JVRP(2900) = V(3130) -! JVRP(2901) = dARP(1736)/dV(3130) - JVRP(2901) = V(5250) -! JVRP(2902) = dARP(1736)/dV(5250) - JVRP(2902) = V(3130) -! JVRP(2903) = dARP(1737)/dV(3130) - JVRP(2903) = V(5250) -! JVRP(2904) = dARP(1737)/dV(5250) - JVRP(2904) = V(3130) -! JVRP(2905) = dARP(1738)/dV(3130) - JVRP(2905) = V(5250) -! JVRP(2906) = dARP(1738)/dV(5250) - JVRP(2906) = V(3130) -! JVRP(2907) = dARP(1739)/dV(3819) - JVRP(2907) = V(5255) -! JVRP(2908) = dARP(1739)/dV(5255) - JVRP(2908) = V(3819) -! JVRP(2909) = dARP(1740)/dV(3819) - JVRP(2909) = V(5252) -! JVRP(2910) = dARP(1740)/dV(5252) - JVRP(2910) = V(3819) -! JVRP(2911) = dARP(1741)/dV(3819) - JVRP(2911) = V(5252) -! JVRP(2912) = dARP(1741)/dV(5252) - JVRP(2912) = V(3819) -! JVRP(2913) = dARP(1742)/dV(3819) - JVRP(2913) = V(5256) -! JVRP(2914) = dARP(1742)/dV(5256) - JVRP(2914) = V(3819) -! JVRP(2915) = dARP(1743)/dV(3819) - JVRP(2915) = 1 -! JVRP(2916) = dARP(1744)/dV(3819) - JVRP(2916) = 1 -! JVRP(2917) = dARP(1745)/dV(3819) - JVRP(2917) = 1 -! JVRP(2918) = dARP(1746)/dV(3817) - JVRP(2918) = V(5255) -! JVRP(2919) = dARP(1746)/dV(5255) - JVRP(2919) = V(3817) -! JVRP(2920) = dARP(1747)/dV(3817) - JVRP(2920) = V(5252) -! JVRP(2921) = dARP(1747)/dV(5252) - JVRP(2921) = V(3817) -! JVRP(2922) = dARP(1748)/dV(3817) - JVRP(2922) = V(5252) -! JVRP(2923) = dARP(1748)/dV(5252) - JVRP(2923) = V(3817) -! JVRP(2924) = dARP(1749)/dV(3817) - JVRP(2924) = V(5256) -! JVRP(2925) = dARP(1749)/dV(5256) - JVRP(2925) = V(3817) -! JVRP(2926) = dARP(1750)/dV(3817) - JVRP(2926) = 1 -! JVRP(2927) = dARP(1751)/dV(3817) - JVRP(2927) = 1 -! JVRP(2928) = dARP(1752)/dV(3817) - JVRP(2928) = 1 -! JVRP(2929) = dARP(1753)/dV(4018) - JVRP(2929) = V(5256) -! JVRP(2930) = dARP(1753)/dV(5256) - JVRP(2930) = V(4018) -! JVRP(2931) = dARP(1754)/dV(4018) - JVRP(2931) = V(5258) -! JVRP(2932) = dARP(1754)/dV(5258) - JVRP(2932) = V(4018) -! JVRP(2933) = dARP(1755)/dV(4018) - JVRP(2933) = V(5250) -! JVRP(2934) = dARP(1755)/dV(5250) - JVRP(2934) = V(4018) -! JVRP(2935) = dARP(1756)/dV(4018) - JVRP(2935) = V(5250) -! JVRP(2936) = dARP(1756)/dV(5250) - JVRP(2936) = V(4018) -! JVRP(2937) = dARP(1757)/dV(4018) - JVRP(2937) = 1 -! JVRP(2938) = dARP(1758)/dV(4018) - JVRP(2938) = 1 -! JVRP(2939) = dARP(1759)/dV(3244) - JVRP(2939) = V(5256) -! JVRP(2940) = dARP(1759)/dV(5256) - JVRP(2940) = V(3244) -! JVRP(2941) = dARP(1760)/dV(3244) - JVRP(2941) = V(5256) -! JVRP(2942) = dARP(1760)/dV(5256) - JVRP(2942) = V(3244) -! JVRP(2943) = dARP(1761)/dV(3244) - JVRP(2943) = V(5250) -! JVRP(2944) = dARP(1761)/dV(5250) - JVRP(2944) = V(3244) -! JVRP(2945) = dARP(1762)/dV(3244) - JVRP(2945) = V(5250) -! JVRP(2946) = dARP(1762)/dV(5250) - JVRP(2946) = V(3244) -! JVRP(2947) = dARP(1763)/dV(3790) - JVRP(2947) = V(5255) -! JVRP(2948) = dARP(1763)/dV(5255) - JVRP(2948) = V(3790) -! JVRP(2949) = dARP(1764)/dV(3790) - JVRP(2949) = V(5252) -! JVRP(2950) = dARP(1764)/dV(5252) - JVRP(2950) = V(3790) -! JVRP(2951) = dARP(1765)/dV(3790) - JVRP(2951) = V(5252) -! JVRP(2952) = dARP(1765)/dV(5252) - JVRP(2952) = V(3790) -! JVRP(2953) = dARP(1766)/dV(3790) - JVRP(2953) = V(5256) -! JVRP(2954) = dARP(1766)/dV(5256) - JVRP(2954) = V(3790) -! JVRP(2955) = dARP(1767)/dV(3790) - JVRP(2955) = 1 -! JVRP(2956) = dARP(1768)/dV(3790) - JVRP(2956) = 1 -! JVRP(2957) = dARP(1769)/dV(3790) - JVRP(2957) = 1 -! JVRP(2958) = dARP(1770)/dV(3219) - JVRP(2958) = V(5256) -! JVRP(2959) = dARP(1770)/dV(5256) - JVRP(2959) = V(3219) -! JVRP(2960) = dARP(1771)/dV(3219) - JVRP(2960) = V(5256) -! JVRP(2961) = dARP(1771)/dV(5256) - JVRP(2961) = V(3219) -! JVRP(2962) = dARP(1772)/dV(3219) - JVRP(2962) = V(5250) -! JVRP(2963) = dARP(1772)/dV(5250) - JVRP(2963) = V(3219) -! JVRP(2964) = dARP(1773)/dV(3219) - JVRP(2964) = V(5250) -! JVRP(2965) = dARP(1773)/dV(5250) - JVRP(2965) = V(3219) -! JVRP(2966) = dARP(1774)/dV(4167) - JVRP(2966) = V(5255) -! JVRP(2967) = dARP(1774)/dV(5255) - JVRP(2967) = V(4167) -! JVRP(2968) = dARP(1775)/dV(4167) - JVRP(2968) = V(5252) -! JVRP(2969) = dARP(1775)/dV(5252) - JVRP(2969) = V(4167) -! JVRP(2970) = dARP(1776)/dV(4167) - JVRP(2970) = V(5252) -! JVRP(2971) = dARP(1776)/dV(5252) - JVRP(2971) = V(4167) -! JVRP(2972) = dARP(1777)/dV(4167) - JVRP(2972) = V(5256) -! JVRP(2973) = dARP(1777)/dV(5256) - JVRP(2973) = V(4167) -! JVRP(2974) = dARP(1778)/dV(4167) - JVRP(2974) = 1 -! JVRP(2975) = dARP(1779)/dV(4167) - JVRP(2975) = 1 -! JVRP(2976) = dARP(1780)/dV(4167) - JVRP(2976) = 1 -! JVRP(2977) = dARP(1781)/dV(4017) - JVRP(2977) = V(5256) -! JVRP(2978) = dARP(1781)/dV(5256) - JVRP(2978) = V(4017) -! JVRP(2979) = dARP(1782)/dV(4017) - JVRP(2979) = V(5258) -! JVRP(2980) = dARP(1782)/dV(5258) - JVRP(2980) = V(4017) -! JVRP(2981) = dARP(1783)/dV(4017) - JVRP(2981) = V(5250) -! JVRP(2982) = dARP(1783)/dV(5250) - JVRP(2982) = V(4017) -! JVRP(2983) = dARP(1784)/dV(4017) - JVRP(2983) = V(5250) -! JVRP(2984) = dARP(1784)/dV(5250) - JVRP(2984) = V(4017) -! JVRP(2985) = dARP(1785)/dV(4017) - JVRP(2985) = 1 -! JVRP(2986) = dARP(1786)/dV(4017) - JVRP(2986) = 1 -! JVRP(2987) = dARP(1787)/dV(3866) - JVRP(2987) = V(5255) -! JVRP(2988) = dARP(1787)/dV(5255) - JVRP(2988) = V(3866) -! JVRP(2989) = dARP(1788)/dV(3866) - JVRP(2989) = V(5252) -! JVRP(2990) = dARP(1788)/dV(5252) - JVRP(2990) = V(3866) -! JVRP(2991) = dARP(1789)/dV(3866) - JVRP(2991) = V(5256) -! JVRP(2992) = dARP(1789)/dV(5256) - JVRP(2992) = V(3866) -! JVRP(2993) = dARP(1790)/dV(3866) - JVRP(2993) = 1 -! JVRP(2994) = dARP(1791)/dV(3147) - JVRP(2994) = 1 -! JVRP(2995) = dARP(1792)/dV(3147) - JVRP(2995) = 1 -! JVRP(2996) = dARP(1793)/dV(3147) - JVRP(2996) = 1 -! JVRP(2997) = dARP(1794)/dV(3147) - JVRP(2997) = 1 -! JVRP(2998) = dARP(1795)/dV(3987) - JVRP(2998) = V(5255) -! JVRP(2999) = dARP(1795)/dV(5255) - JVRP(2999) = V(3987) -! JVRP(3000) = dARP(1796)/dV(3987) - JVRP(3000) = V(5252) -! JVRP(3001) = dARP(1796)/dV(5252) - JVRP(3001) = V(3987) -! JVRP(3002) = dARP(1797)/dV(3987) - JVRP(3002) = V(5256) -! JVRP(3003) = dARP(1797)/dV(5256) - JVRP(3003) = V(3987) -! JVRP(3004) = dARP(1798)/dV(3987) - JVRP(3004) = 1 -! JVRP(3005) = dARP(1799)/dV(4622) - JVRP(3005) = V(5255) -! JVRP(3006) = dARP(1799)/dV(5255) - JVRP(3006) = V(4622) -! JVRP(3007) = dARP(1800)/dV(4622) - JVRP(3007) = V(5255) -! JVRP(3008) = dARP(1800)/dV(5255) - JVRP(3008) = V(4622) -! JVRP(3009) = dARP(1801)/dV(4622) - JVRP(3009) = V(5255) -! JVRP(3010) = dARP(1801)/dV(5255) - JVRP(3010) = V(4622) -! JVRP(3011) = dARP(1802)/dV(4622) - JVRP(3011) = V(5252) -! JVRP(3012) = dARP(1802)/dV(5252) - JVRP(3012) = V(4622) -! JVRP(3013) = dARP(1803)/dV(4622) - JVRP(3013) = V(5253) -! JVRP(3014) = dARP(1803)/dV(5253) - JVRP(3014) = V(4622) -! JVRP(3015) = dARP(1804)/dV(4622) - JVRP(3015) = V(5256) -! JVRP(3016) = dARP(1804)/dV(5256) - JVRP(3016) = V(4622) -! JVRP(3017) = dARP(1805)/dV(4622) - JVRP(3017) = 1 -! JVRP(3018) = dARP(1806)/dV(4622) - JVRP(3018) = 1 -! JVRP(3019) = dARP(1807)/dV(4666) - JVRP(3019) = V(5255) -! JVRP(3020) = dARP(1807)/dV(5255) - JVRP(3020) = V(4666) -! JVRP(3021) = dARP(1808)/dV(4666) - JVRP(3021) = V(5252) -! JVRP(3022) = dARP(1808)/dV(5252) - JVRP(3022) = V(4666) -! JVRP(3023) = dARP(1809)/dV(4666) - JVRP(3023) = V(5256) -! JVRP(3024) = dARP(1809)/dV(5256) - JVRP(3024) = V(4666) -! JVRP(3025) = dARP(1810)/dV(4666) - JVRP(3025) = 1 -! JVRP(3026) = dARP(1811)/dV(3636) - JVRP(3026) = V(5255) -! JVRP(3027) = dARP(1811)/dV(5255) - JVRP(3027) = V(3636) -! JVRP(3028) = dARP(1812)/dV(3636) - JVRP(3028) = V(5252) -! JVRP(3029) = dARP(1812)/dV(5252) - JVRP(3029) = V(3636) -! JVRP(3030) = dARP(1813)/dV(3636) - JVRP(3030) = V(5256) -! JVRP(3031) = dARP(1813)/dV(5256) - JVRP(3031) = V(3636) -! JVRP(3032) = dARP(1814)/dV(3636) - JVRP(3032) = 1 -! JVRP(3033) = dARP(1815)/dV(3636) - JVRP(3033) = 1 -! JVRP(3034) = dARP(1816)/dV(3636) - JVRP(3034) = 1 -! JVRP(3035) = dARP(1817)/dV(3658) - JVRP(3035) = V(5255) -! JVRP(3036) = dARP(1817)/dV(5255) - JVRP(3036) = V(3658) -! JVRP(3037) = dARP(1818)/dV(3658) - JVRP(3037) = V(5252) -! JVRP(3038) = dARP(1818)/dV(5252) - JVRP(3038) = V(3658) -! JVRP(3039) = dARP(1819)/dV(3658) - JVRP(3039) = V(5252) -! JVRP(3040) = dARP(1819)/dV(5252) - JVRP(3040) = V(3658) -! JVRP(3041) = dARP(1820)/dV(3658) - JVRP(3041) = V(5256) -! JVRP(3042) = dARP(1820)/dV(5256) - JVRP(3042) = V(3658) -! JVRP(3043) = dARP(1821)/dV(3658) - JVRP(3043) = 1 -! JVRP(3044) = dARP(1822)/dV(3658) - JVRP(3044) = 1 -! JVRP(3045) = dARP(1823)/dV(3658) - JVRP(3045) = 1 -! JVRP(3046) = dARP(1824)/dV(686) - JVRP(3046) = 1 -! JVRP(3047) = dARP(1825)/dV(686) - JVRP(3047) = 1 -! JVRP(3048) = dARP(1826)/dV(686) - JVRP(3048) = 1 -! JVRP(3049) = dARP(1827)/dV(1959) - JVRP(3049) = 1 -! JVRP(3050) = dARP(1828)/dV(1959) - JVRP(3050) = 1 -! JVRP(3051) = dARP(1829)/dV(1959) - JVRP(3051) = 1 -! JVRP(3052) = dARP(1830)/dV(1959) - JVRP(3052) = 1 -! JVRP(3053) = dARP(1831)/dV(3670) - JVRP(3053) = V(5255) -! JVRP(3054) = dARP(1831)/dV(5255) - JVRP(3054) = V(3670) -! JVRP(3055) = dARP(1832)/dV(3670) - JVRP(3055) = V(5252) -! JVRP(3056) = dARP(1832)/dV(5252) - JVRP(3056) = V(3670) -! JVRP(3057) = dARP(1833)/dV(3670) - JVRP(3057) = V(5252) -! JVRP(3058) = dARP(1833)/dV(5252) - JVRP(3058) = V(3670) -! JVRP(3059) = dARP(1834)/dV(3670) - JVRP(3059) = V(5256) -! JVRP(3060) = dARP(1834)/dV(5256) - JVRP(3060) = V(3670) -! JVRP(3061) = dARP(1835)/dV(3670) - JVRP(3061) = 1 -! JVRP(3062) = dARP(1836)/dV(3670) - JVRP(3062) = 1 -! JVRP(3063) = dARP(1837)/dV(3670) - JVRP(3063) = 1 -! JVRP(3064) = dARP(1838)/dV(4111) - JVRP(3064) = V(5255) -! JVRP(3065) = dARP(1838)/dV(5255) - JVRP(3065) = V(4111) -! JVRP(3066) = dARP(1839)/dV(4111) - JVRP(3066) = V(5252) -! JVRP(3067) = dARP(1839)/dV(5252) - JVRP(3067) = V(4111) -! JVRP(3068) = dARP(1840)/dV(4111) - JVRP(3068) = V(5252) -! JVRP(3069) = dARP(1840)/dV(5252) - JVRP(3069) = V(4111) -! JVRP(3070) = dARP(1841)/dV(4111) - JVRP(3070) = V(5256) -! JVRP(3071) = dARP(1841)/dV(5256) - JVRP(3071) = V(4111) -! JVRP(3072) = dARP(1842)/dV(4111) - JVRP(3072) = 1 -! JVRP(3073) = dARP(1843)/dV(4111) - JVRP(3073) = 1 -! JVRP(3074) = dARP(1844)/dV(4111) - JVRP(3074) = 1 -! JVRP(3075) = dARP(1845)/dV(4372) - JVRP(3075) = V(5255) -! JVRP(3076) = dARP(1845)/dV(5255) - JVRP(3076) = V(4372) -! JVRP(3077) = dARP(1846)/dV(4372) - JVRP(3077) = V(5252) -! JVRP(3078) = dARP(1846)/dV(5252) - JVRP(3078) = V(4372) -! JVRP(3079) = dARP(1847)/dV(4372) - JVRP(3079) = V(5252) -! JVRP(3080) = dARP(1847)/dV(5252) - JVRP(3080) = V(4372) -! JVRP(3081) = dARP(1848)/dV(4372) - JVRP(3081) = V(5256) -! JVRP(3082) = dARP(1848)/dV(5256) - JVRP(3082) = V(4372) -! JVRP(3083) = dARP(1849)/dV(4372) - JVRP(3083) = 1 -! JVRP(3084) = dARP(1850)/dV(4372) - JVRP(3084) = 1 -! JVRP(3085) = dARP(1851)/dV(4372) - JVRP(3085) = 1 -! JVRP(3086) = dARP(1852)/dV(3634) - JVRP(3086) = V(5255) -! JVRP(3087) = dARP(1852)/dV(5255) - JVRP(3087) = V(3634) -! JVRP(3088) = dARP(1853)/dV(3634) - JVRP(3088) = V(5252) -! JVRP(3089) = dARP(1853)/dV(5252) - JVRP(3089) = V(3634) -! JVRP(3090) = dARP(1854)/dV(3634) - JVRP(3090) = V(5252) -! JVRP(3091) = dARP(1854)/dV(5252) - JVRP(3091) = V(3634) -! JVRP(3092) = dARP(1855)/dV(3634) - JVRP(3092) = V(5256) -! JVRP(3093) = dARP(1855)/dV(5256) - JVRP(3093) = V(3634) -! JVRP(3094) = dARP(1856)/dV(3634) - JVRP(3094) = 1 -! JVRP(3095) = dARP(1857)/dV(3634) - JVRP(3095) = 1 -! JVRP(3096) = dARP(1858)/dV(3634) - JVRP(3096) = 1 -! JVRP(3097) = dARP(1859)/dV(685) - JVRP(3097) = 1 -! JVRP(3098) = dARP(1860)/dV(685) - JVRP(3098) = 1 -! JVRP(3099) = dARP(1861)/dV(685) - JVRP(3099) = 1 -! JVRP(3100) = dARP(1862)/dV(5227) - JVRP(3100) = 1 -! JVRP(3101) = dARP(1863)/dV(5227) - JVRP(3101) = 1 -! JVRP(3102) = dARP(1864)/dV(5227) - JVRP(3102) = V(5258) -! JVRP(3103) = dARP(1864)/dV(5258) - JVRP(3103) = V(5227) -! JVRP(3104) = dARP(1865)/dV(5227) - JVRP(3104) = V(5258) -! JVRP(3105) = dARP(1865)/dV(5258) - JVRP(3105) = V(5227) -! JVRP(3106) = dARP(1866)/dV(5227) - JVRP(3106) = V(5250) -! JVRP(3107) = dARP(1866)/dV(5250) - JVRP(3107) = V(5227) -! JVRP(3108) = dARP(1867)/dV(5227) - JVRP(3108) = V(5250) -! JVRP(3109) = dARP(1867)/dV(5250) - JVRP(3109) = V(5227) -! JVRP(3110) = dARP(1868)/dV(2476) - JVRP(3110) = 1 -! JVRP(3111) = dARP(1869)/dV(2476) - JVRP(3111) = 1 -! JVRP(3112) = dARP(1870)/dV(2476) - JVRP(3112) = 1 -! JVRP(3113) = dARP(1871)/dV(2476) - JVRP(3113) = 1 -! JVRP(3114) = dARP(1872)/dV(3155) - JVRP(3114) = 1 -! JVRP(3115) = dARP(1873)/dV(3155) - JVRP(3115) = 1 -! JVRP(3116) = dARP(1874)/dV(3155) - JVRP(3116) = 1 -! JVRP(3117) = dARP(1875)/dV(3155) - JVRP(3117) = 1 -! JVRP(3118) = dARP(1876)/dV(702) - JVRP(3118) = 1 -! JVRP(3119) = dARP(1877)/dV(702) - JVRP(3119) = 1 -! JVRP(3120) = dARP(1878)/dV(715) - JVRP(3120) = 1 -! JVRP(3121) = dARP(1879)/dV(715) - JVRP(3121) = 1 -! JVRP(3122) = dARP(1880)/dV(5132) - JVRP(3122) = V(5255) -! JVRP(3123) = dARP(1880)/dV(5255) - JVRP(3123) = V(5132) -! JVRP(3124) = dARP(1881)/dV(5132) - JVRP(3124) = V(5252) -! JVRP(3125) = dARP(1881)/dV(5252) - JVRP(3125) = V(5132) -! JVRP(3126) = dARP(1882)/dV(5132) - JVRP(3126) = V(5252) -! JVRP(3127) = dARP(1882)/dV(5252) - JVRP(3127) = V(5132) -! JVRP(3128) = dARP(1883)/dV(5132) - JVRP(3128) = V(5256) -! JVRP(3129) = dARP(1883)/dV(5256) - JVRP(3129) = V(5132) -! JVRP(3130) = dARP(1884)/dV(5132) - JVRP(3130) = 1 -! JVRP(3131) = dARP(1885)/dV(5132) - JVRP(3131) = 1 -! JVRP(3132) = dARP(1886)/dV(5132) - JVRP(3132) = 1 -! JVRP(3133) = dARP(1887)/dV(4794) - JVRP(3133) = V(5256) -! JVRP(3134) = dARP(1887)/dV(5256) - JVRP(3134) = V(4794) -! JVRP(3135) = dARP(1888)/dV(4794) - JVRP(3135) = V(5258) -! JVRP(3136) = dARP(1888)/dV(5258) - JVRP(3136) = V(4794) -! JVRP(3137) = dARP(1889)/dV(4794) - JVRP(3137) = V(5258) -! JVRP(3138) = dARP(1889)/dV(5258) - JVRP(3138) = V(4794) -! JVRP(3139) = dARP(1890)/dV(4794) - JVRP(3139) = V(5250) -! JVRP(3140) = dARP(1890)/dV(5250) - JVRP(3140) = V(4794) -! JVRP(3141) = dARP(1891)/dV(4794) - JVRP(3141) = V(5250) -! JVRP(3142) = dARP(1891)/dV(5250) - JVRP(3142) = V(4794) -! JVRP(3143) = dARP(1892)/dV(4794) - JVRP(3143) = 1 -! JVRP(3144) = dARP(1893)/dV(4907) - JVRP(3144) = V(5256) -! JVRP(3145) = dARP(1893)/dV(5256) - JVRP(3145) = V(4907) -! JVRP(3146) = dARP(1894)/dV(4907) - JVRP(3146) = V(5258) -! JVRP(3147) = dARP(1894)/dV(5258) - JVRP(3147) = V(4907) -! JVRP(3148) = dARP(1895)/dV(4907) - JVRP(3148) = V(5258) -! JVRP(3149) = dARP(1895)/dV(5258) - JVRP(3149) = V(4907) -! JVRP(3150) = dARP(1896)/dV(4907) - JVRP(3150) = V(5250) -! JVRP(3151) = dARP(1896)/dV(5250) - JVRP(3151) = V(4907) -! JVRP(3152) = dARP(1897)/dV(4907) - JVRP(3152) = 1 -! JVRP(3153) = dARP(1898)/dV(606) - JVRP(3153) = 1 -! JVRP(3154) = dARP(1899)/dV(606) - JVRP(3154) = 1 -! JVRP(3155) = dARP(1900)/dV(607) - JVRP(3155) = 1 -! JVRP(3156) = dARP(1901)/dV(607) - JVRP(3156) = 1 -! JVRP(3157) = dARP(1902)/dV(3637) - JVRP(3157) = V(5255) -! JVRP(3158) = dARP(1902)/dV(5255) - JVRP(3158) = V(3637) -! JVRP(3159) = dARP(1903)/dV(3637) - JVRP(3159) = V(5255) -! JVRP(3160) = dARP(1903)/dV(5255) - JVRP(3160) = V(3637) -! JVRP(3161) = dARP(1904)/dV(3637) - JVRP(3161) = V(5252) -! JVRP(3162) = dARP(1904)/dV(5252) - JVRP(3162) = V(3637) -! JVRP(3163) = dARP(1905)/dV(3637) - JVRP(3163) = V(5252) -! JVRP(3164) = dARP(1905)/dV(5252) - JVRP(3164) = V(3637) -! JVRP(3165) = dARP(1906)/dV(3637) - JVRP(3165) = V(5256) -! JVRP(3166) = dARP(1906)/dV(5256) - JVRP(3166) = V(3637) -! JVRP(3167) = dARP(1907)/dV(3637) - JVRP(3167) = 1 -! JVRP(3168) = dARP(1908)/dV(3637) - JVRP(3168) = 1 -! JVRP(3169) = dARP(1909)/dV(3637) - JVRP(3169) = 1 -! JVRP(3170) = dARP(1910)/dV(4616) - JVRP(3170) = V(5255) -! JVRP(3171) = dARP(1910)/dV(5255) - JVRP(3171) = V(4616) -! JVRP(3172) = dARP(1911)/dV(4616) - JVRP(3172) = V(5255) -! JVRP(3173) = dARP(1911)/dV(5255) - JVRP(3173) = V(4616) -! JVRP(3174) = dARP(1912)/dV(4616) - JVRP(3174) = V(5252) -! JVRP(3175) = dARP(1912)/dV(5252) - JVRP(3175) = V(4616) -! JVRP(3176) = dARP(1913)/dV(4616) - JVRP(3176) = V(5252) -! JVRP(3177) = dARP(1913)/dV(5252) - JVRP(3177) = V(4616) -! JVRP(3178) = dARP(1914)/dV(4616) - JVRP(3178) = V(5256) -! JVRP(3179) = dARP(1914)/dV(5256) - JVRP(3179) = V(4616) -! JVRP(3180) = dARP(1915)/dV(4616) - JVRP(3180) = 1 -! JVRP(3181) = dARP(1916)/dV(4616) - JVRP(3181) = 1 -! JVRP(3182) = dARP(1917)/dV(4616) - JVRP(3182) = 1 -! JVRP(3183) = dARP(1918)/dV(4609) - JVRP(3183) = V(5255) -! JVRP(3184) = dARP(1918)/dV(5255) - JVRP(3184) = V(4609) -! JVRP(3185) = dARP(1919)/dV(4609) - JVRP(3185) = V(5252) -! JVRP(3186) = dARP(1919)/dV(5252) - JVRP(3186) = V(4609) -! JVRP(3187) = dARP(1920)/dV(4609) - JVRP(3187) = V(5252) -! JVRP(3188) = dARP(1920)/dV(5252) - JVRP(3188) = V(4609) -! JVRP(3189) = dARP(1921)/dV(4609) - JVRP(3189) = V(5256) -! JVRP(3190) = dARP(1921)/dV(5256) - JVRP(3190) = V(4609) -! JVRP(3191) = dARP(1922)/dV(4609) - JVRP(3191) = 1 -! JVRP(3192) = dARP(1923)/dV(4609) - JVRP(3192) = 1 -! JVRP(3193) = dARP(1924)/dV(4609) - JVRP(3193) = 1 -! JVRP(3194) = dARP(1925)/dV(5241) - JVRP(3194) = V(5255) -! JVRP(3195) = dARP(1925)/dV(5255) - JVRP(3195) = V(5241) -! JVRP(3196) = dARP(1926)/dV(5241) - JVRP(3196) = V(5255) -! JVRP(3197) = dARP(1926)/dV(5255) - JVRP(3197) = V(5241) -! JVRP(3198) = dARP(1927)/dV(5241) - JVRP(3198) = V(5252) -! JVRP(3199) = dARP(1927)/dV(5252) - JVRP(3199) = V(5241) -! JVRP(3200) = dARP(1928)/dV(5241) - JVRP(3200) = V(5256) -! JVRP(3201) = dARP(1928)/dV(5256) - JVRP(3201) = V(5241) -! JVRP(3202) = dARP(1929)/dV(5241) - JVRP(3202) = 1 -! JVRP(3203) = dARP(1930)/dV(5241) - JVRP(3203) = 1 -! JVRP(3204) = dARP(1931)/dV(5241) - JVRP(3204) = 1 -! JVRP(3205) = dARP(1932)/dV(5246) - JVRP(3205) = V(5255) -! JVRP(3206) = dARP(1932)/dV(5255) - JVRP(3206) = V(5246) -! JVRP(3207) = dARP(1933)/dV(5246) - JVRP(3207) = V(5252) -! JVRP(3208) = dARP(1933)/dV(5252) - JVRP(3208) = V(5246) -! JVRP(3209) = dARP(1934)/dV(5246) - JVRP(3209) = V(5252) -! JVRP(3210) = dARP(1934)/dV(5252) - JVRP(3210) = V(5246) -! JVRP(3211) = dARP(1935)/dV(5246) - JVRP(3211) = V(5256) -! JVRP(3212) = dARP(1935)/dV(5256) - JVRP(3212) = V(5246) -! JVRP(3213) = dARP(1936)/dV(5246) - JVRP(3213) = 1 -! JVRP(3214) = dARP(1937)/dV(5246) - JVRP(3214) = 1 -! JVRP(3215) = dARP(1938)/dV(5246) - JVRP(3215) = 1 -! JVRP(3216) = dARP(1939)/dV(5098) - JVRP(3216) = V(5255) -! JVRP(3217) = dARP(1939)/dV(5255) - JVRP(3217) = V(5098) -! JVRP(3218) = dARP(1940)/dV(5098) - JVRP(3218) = V(5252) -! JVRP(3219) = dARP(1940)/dV(5252) - JVRP(3219) = V(5098) -! JVRP(3220) = dARP(1941)/dV(5098) - JVRP(3220) = V(5256) -! JVRP(3221) = dARP(1941)/dV(5256) - JVRP(3221) = V(5098) -! JVRP(3222) = dARP(1942)/dV(5098) - JVRP(3222) = 1 -! JVRP(3223) = dARP(1943)/dV(5098) - JVRP(3223) = 1 -! JVRP(3224) = dARP(1944)/dV(5098) - JVRP(3224) = 1 -! JVRP(3225) = dARP(1945)/dV(5053) - JVRP(3225) = V(5255) -! JVRP(3226) = dARP(1945)/dV(5255) - JVRP(3226) = V(5053) -! JVRP(3227) = dARP(1946)/dV(5053) - JVRP(3227) = V(5252) -! JVRP(3228) = dARP(1946)/dV(5252) - JVRP(3228) = V(5053) -! JVRP(3229) = dARP(1947)/dV(5053) - JVRP(3229) = V(5256) -! JVRP(3230) = dARP(1947)/dV(5256) - JVRP(3230) = V(5053) -! JVRP(3231) = dARP(1948)/dV(5053) - JVRP(3231) = 1 -! JVRP(3232) = dARP(1949)/dV(5053) - JVRP(3232) = 1 -! JVRP(3233) = dARP(1950)/dV(5053) - JVRP(3233) = 1 -! JVRP(3234) = dARP(1951)/dV(5151) - JVRP(3234) = V(5255) -! JVRP(3235) = dARP(1951)/dV(5255) - JVRP(3235) = V(5151) -! JVRP(3236) = dARP(1952)/dV(5151) - JVRP(3236) = V(5252) -! JVRP(3237) = dARP(1952)/dV(5252) - JVRP(3237) = V(5151) -! JVRP(3238) = dARP(1953)/dV(5151) - JVRP(3238) = V(5252) -! JVRP(3239) = dARP(1953)/dV(5252) - JVRP(3239) = V(5151) -! JVRP(3240) = dARP(1954)/dV(5151) - JVRP(3240) = V(5256) -! JVRP(3241) = dARP(1954)/dV(5256) - JVRP(3241) = V(5151) -! JVRP(3242) = dARP(1955)/dV(5151) - JVRP(3242) = 1 -! JVRP(3243) = dARP(1956)/dV(5151) - JVRP(3243) = 1 -! JVRP(3244) = dARP(1957)/dV(5151) - JVRP(3244) = 1 -! JVRP(3245) = dARP(1958)/dV(4858) - JVRP(3245) = V(5255) -! JVRP(3246) = dARP(1958)/dV(5255) - JVRP(3246) = V(4858) -! JVRP(3247) = dARP(1959)/dV(4858) - JVRP(3247) = V(5252) -! JVRP(3248) = dARP(1959)/dV(5252) - JVRP(3248) = V(4858) -! JVRP(3249) = dARP(1960)/dV(4858) - JVRP(3249) = V(5256) -! JVRP(3250) = dARP(1960)/dV(5256) - JVRP(3250) = V(4858) -! JVRP(3251) = dARP(1961)/dV(4858) - JVRP(3251) = 1 -! JVRP(3252) = dARP(1962)/dV(4858) - JVRP(3252) = 1 -! JVRP(3253) = dARP(1963)/dV(4858) - JVRP(3253) = 1 -! JVRP(3254) = dARP(1964)/dV(4852) - JVRP(3254) = V(5255) -! JVRP(3255) = dARP(1964)/dV(5255) - JVRP(3255) = V(4852) -! JVRP(3256) = dARP(1965)/dV(4852) - JVRP(3256) = V(5252) -! JVRP(3257) = dARP(1965)/dV(5252) - JVRP(3257) = V(4852) -! JVRP(3258) = dARP(1966)/dV(4852) - JVRP(3258) = V(5256) -! JVRP(3259) = dARP(1966)/dV(5256) - JVRP(3259) = V(4852) -! JVRP(3260) = dARP(1967)/dV(4852) - JVRP(3260) = 1 -! JVRP(3261) = dARP(1968)/dV(4852) - JVRP(3261) = 1 -! JVRP(3262) = dARP(1969)/dV(4852) - JVRP(3262) = 1 -! JVRP(3263) = dARP(1970)/dV(5161) - JVRP(3263) = V(5255) -! JVRP(3264) = dARP(1970)/dV(5255) - JVRP(3264) = V(5161) -! JVRP(3265) = dARP(1971)/dV(5161) - JVRP(3265) = V(5252) -! JVRP(3266) = dARP(1971)/dV(5252) - JVRP(3266) = V(5161) -! JVRP(3267) = dARP(1972)/dV(5161) - JVRP(3267) = V(5252) -! JVRP(3268) = dARP(1972)/dV(5252) - JVRP(3268) = V(5161) -! JVRP(3269) = dARP(1973)/dV(5161) - JVRP(3269) = V(5256) -! JVRP(3270) = dARP(1973)/dV(5256) - JVRP(3270) = V(5161) -! JVRP(3271) = dARP(1974)/dV(5161) - JVRP(3271) = 1 -! JVRP(3272) = dARP(1975)/dV(5161) - JVRP(3272) = 1 -! JVRP(3273) = dARP(1976)/dV(5161) - JVRP(3273) = 1 -! JVRP(3274) = dARP(1977)/dV(4841) - JVRP(3274) = V(5255) -! JVRP(3275) = dARP(1977)/dV(5255) - JVRP(3275) = V(4841) -! JVRP(3276) = dARP(1978)/dV(4841) - JVRP(3276) = V(5252) -! JVRP(3277) = dARP(1978)/dV(5252) - JVRP(3277) = V(4841) -! JVRP(3278) = dARP(1979)/dV(4841) - JVRP(3278) = V(5256) -! JVRP(3279) = dARP(1979)/dV(5256) - JVRP(3279) = V(4841) -! JVRP(3280) = dARP(1980)/dV(4841) - JVRP(3280) = 1 -! JVRP(3281) = dARP(1981)/dV(4841) - JVRP(3281) = 1 -! JVRP(3282) = dARP(1982)/dV(5097) - JVRP(3282) = V(5255) -! JVRP(3283) = dARP(1982)/dV(5255) - JVRP(3283) = V(5097) -! JVRP(3284) = dARP(1983)/dV(5097) - JVRP(3284) = V(5252) -! JVRP(3285) = dARP(1983)/dV(5252) - JVRP(3285) = V(5097) -! JVRP(3286) = dARP(1984)/dV(5097) - JVRP(3286) = V(5252) -! JVRP(3287) = dARP(1984)/dV(5252) - JVRP(3287) = V(5097) -! JVRP(3288) = dARP(1985)/dV(5097) - JVRP(3288) = V(5256) -! JVRP(3289) = dARP(1985)/dV(5256) - JVRP(3289) = V(5097) -! JVRP(3290) = dARP(1986)/dV(5097) - JVRP(3290) = 1 -! JVRP(3291) = dARP(1987)/dV(5097) - JVRP(3291) = 1 -! JVRP(3292) = dARP(1988)/dV(5097) - JVRP(3292) = 1 -! JVRP(3293) = dARP(1989)/dV(4581) - JVRP(3293) = V(5255) -! JVRP(3294) = dARP(1989)/dV(5255) - JVRP(3294) = V(4581) -! JVRP(3295) = dARP(1990)/dV(4581) - JVRP(3295) = V(5252) -! JVRP(3296) = dARP(1990)/dV(5252) - JVRP(3296) = V(4581) -! JVRP(3297) = dARP(1991)/dV(4581) - JVRP(3297) = V(5252) -! JVRP(3298) = dARP(1991)/dV(5252) - JVRP(3298) = V(4581) -! JVRP(3299) = dARP(1992)/dV(4581) - JVRP(3299) = V(5256) -! JVRP(3300) = dARP(1992)/dV(5256) - JVRP(3300) = V(4581) -! JVRP(3301) = dARP(1993)/dV(4581) - JVRP(3301) = 1 -! JVRP(3302) = dARP(1994)/dV(4581) - JVRP(3302) = 1 -! JVRP(3303) = dARP(1995)/dV(4581) - JVRP(3303) = 1 -! JVRP(3304) = dARP(1996)/dV(4784) - JVRP(3304) = V(5255) -! JVRP(3305) = dARP(1996)/dV(5255) - JVRP(3305) = V(4784) -! JVRP(3306) = dARP(1997)/dV(4784) - JVRP(3306) = V(5252) -! JVRP(3307) = dARP(1997)/dV(5252) - JVRP(3307) = V(4784) -! JVRP(3308) = dARP(1998)/dV(4784) - JVRP(3308) = V(5252) -! JVRP(3309) = dARP(1998)/dV(5252) - JVRP(3309) = V(4784) -! JVRP(3310) = dARP(1999)/dV(4784) - JVRP(3310) = V(5256) -! JVRP(3311) = dARP(1999)/dV(5256) - JVRP(3311) = V(4784) -! JVRP(3312) = dARP(2000)/dV(4784) - JVRP(3312) = 1 -! JVRP(3313) = dARP(2001)/dV(4784) - JVRP(3313) = 1 -! JVRP(3314) = dARP(2002)/dV(4784) - JVRP(3314) = 1 -! JVRP(3315) = dARP(2003)/dV(4390) - JVRP(3315) = V(5255) -! JVRP(3316) = dARP(2003)/dV(5255) - JVRP(3316) = V(4390) -! JVRP(3317) = dARP(2004)/dV(4390) - JVRP(3317) = V(5252) -! JVRP(3318) = dARP(2004)/dV(5252) - JVRP(3318) = V(4390) -! JVRP(3319) = dARP(2005)/dV(4390) - JVRP(3319) = V(5256) -! JVRP(3320) = dARP(2005)/dV(5256) - JVRP(3320) = V(4390) -! JVRP(3321) = dARP(2006)/dV(4390) - JVRP(3321) = 1 -! JVRP(3322) = dARP(2007)/dV(4390) - JVRP(3322) = 1 -! JVRP(3323) = dARP(2008)/dV(4390) - JVRP(3323) = 1 -! JVRP(3324) = dARP(2009)/dV(4583) - JVRP(3324) = V(5255) -! JVRP(3325) = dARP(2009)/dV(5255) - JVRP(3325) = V(4583) -! JVRP(3326) = dARP(2010)/dV(4583) - JVRP(3326) = V(5252) -! JVRP(3327) = dARP(2010)/dV(5252) - JVRP(3327) = V(4583) -! JVRP(3328) = dARP(2011)/dV(4583) - JVRP(3328) = V(5252) -! JVRP(3329) = dARP(2011)/dV(5252) - JVRP(3329) = V(4583) -! JVRP(3330) = dARP(2012)/dV(4583) - JVRP(3330) = V(5256) -! JVRP(3331) = dARP(2012)/dV(5256) - JVRP(3331) = V(4583) -! JVRP(3332) = dARP(2013)/dV(4583) - JVRP(3332) = 1 -! JVRP(3333) = dARP(2014)/dV(4583) - JVRP(3333) = 1 -! JVRP(3334) = dARP(2015)/dV(4583) - JVRP(3334) = 1 -! JVRP(3335) = dARP(2016)/dV(4367) - JVRP(3335) = V(5255) -! JVRP(3336) = dARP(2016)/dV(5255) - JVRP(3336) = V(4367) -! JVRP(3337) = dARP(2017)/dV(4367) - JVRP(3337) = V(5252) -! JVRP(3338) = dARP(2017)/dV(5252) - JVRP(3338) = V(4367) -! JVRP(3339) = dARP(2018)/dV(4367) - JVRP(3339) = V(5256) -! JVRP(3340) = dARP(2018)/dV(5256) - JVRP(3340) = V(4367) -! JVRP(3341) = dARP(2019)/dV(4367) - JVRP(3341) = 1 -! JVRP(3342) = dARP(2020)/dV(4367) - JVRP(3342) = 1 -! JVRP(3343) = dARP(2021)/dV(4367) - JVRP(3343) = 1 -! JVRP(3344) = dARP(2022)/dV(4336) - JVRP(3344) = V(5255) -! JVRP(3345) = dARP(2022)/dV(5255) - JVRP(3345) = V(4336) -! JVRP(3346) = dARP(2023)/dV(4336) - JVRP(3346) = V(5252) -! JVRP(3347) = dARP(2023)/dV(5252) - JVRP(3347) = V(4336) -! JVRP(3348) = dARP(2024)/dV(4336) - JVRP(3348) = V(5256) -! JVRP(3349) = dARP(2024)/dV(5256) - JVRP(3349) = V(4336) -! JVRP(3350) = dARP(2025)/dV(4336) - JVRP(3350) = 1 -! JVRP(3351) = dARP(2026)/dV(4336) - JVRP(3351) = 1 -! JVRP(3352) = dARP(2027)/dV(4336) - JVRP(3352) = 1 -! JVRP(3353) = dARP(2028)/dV(4356) - JVRP(3353) = V(5255) -! JVRP(3354) = dARP(2028)/dV(5255) - JVRP(3354) = V(4356) -! JVRP(3355) = dARP(2029)/dV(4356) - JVRP(3355) = V(5252) -! JVRP(3356) = dARP(2029)/dV(5252) - JVRP(3356) = V(4356) -! JVRP(3357) = dARP(2030)/dV(4356) - JVRP(3357) = V(5252) -! JVRP(3358) = dARP(2030)/dV(5252) - JVRP(3358) = V(4356) -! JVRP(3359) = dARP(2031)/dV(4356) - JVRP(3359) = V(5256) -! JVRP(3360) = dARP(2031)/dV(5256) - JVRP(3360) = V(4356) -! JVRP(3361) = dARP(2032)/dV(4356) - JVRP(3361) = 1 -! JVRP(3362) = dARP(2033)/dV(4356) - JVRP(3362) = 1 -! JVRP(3363) = dARP(2034)/dV(4356) - JVRP(3363) = 1 -! JVRP(3364) = dARP(2035)/dV(5032) - JVRP(3364) = V(5255) -! JVRP(3365) = dARP(2035)/dV(5255) - JVRP(3365) = V(5032) -! JVRP(3366) = dARP(2036)/dV(5032) - JVRP(3366) = V(5252) -! JVRP(3367) = dARP(2036)/dV(5252) - JVRP(3367) = V(5032) -! JVRP(3368) = dARP(2037)/dV(5032) - JVRP(3368) = V(5252) -! JVRP(3369) = dARP(2037)/dV(5252) - JVRP(3369) = V(5032) -! JVRP(3370) = dARP(2038)/dV(5032) - JVRP(3370) = V(5256) -! JVRP(3371) = dARP(2038)/dV(5256) - JVRP(3371) = V(5032) -! JVRP(3372) = dARP(2039)/dV(5032) - JVRP(3372) = 1 -! JVRP(3373) = dARP(2040)/dV(5032) - JVRP(3373) = 1 -! JVRP(3374) = dARP(2041)/dV(4594) - JVRP(3374) = V(5255) -! JVRP(3375) = dARP(2041)/dV(5255) - JVRP(3375) = V(4594) -! JVRP(3376) = dARP(2042)/dV(4594) - JVRP(3376) = V(5252) -! JVRP(3377) = dARP(2042)/dV(5252) - JVRP(3377) = V(4594) -! JVRP(3378) = dARP(2043)/dV(4594) - JVRP(3378) = V(5256) -! JVRP(3379) = dARP(2043)/dV(5256) - JVRP(3379) = V(4594) -! JVRP(3380) = dARP(2044)/dV(4594) - JVRP(3380) = 1 -! JVRP(3381) = dARP(2045)/dV(4594) - JVRP(3381) = 1 -! JVRP(3382) = dARP(2046)/dV(4594) - JVRP(3382) = 1 -! JVRP(3383) = dARP(2047)/dV(3836) - JVRP(3383) = V(5255) -! JVRP(3384) = dARP(2047)/dV(5255) - JVRP(3384) = V(3836) -! JVRP(3385) = dARP(2048)/dV(3836) - JVRP(3385) = V(5252) -! JVRP(3386) = dARP(2048)/dV(5252) - JVRP(3386) = V(3836) -! JVRP(3387) = dARP(2049)/dV(3836) - JVRP(3387) = V(5252) -! JVRP(3388) = dARP(2049)/dV(5252) - JVRP(3388) = V(3836) -! JVRP(3389) = dARP(2050)/dV(3836) - JVRP(3389) = V(5256) -! JVRP(3390) = dARP(2050)/dV(5256) - JVRP(3390) = V(3836) -! JVRP(3391) = dARP(2051)/dV(3836) - JVRP(3391) = 1 -! JVRP(3392) = dARP(2052)/dV(3836) - JVRP(3392) = 1 -! JVRP(3393) = dARP(2053)/dV(3836) - JVRP(3393) = 1 -! JVRP(3394) = dARP(2054)/dV(5081) - JVRP(3394) = V(5255) -! JVRP(3395) = dARP(2054)/dV(5255) - JVRP(3395) = V(5081) -! JVRP(3396) = dARP(2055)/dV(5081) - JVRP(3396) = V(5252) -! JVRP(3397) = dARP(2055)/dV(5252) - JVRP(3397) = V(5081) -! JVRP(3398) = dARP(2056)/dV(5081) - JVRP(3398) = V(5252) -! JVRP(3399) = dARP(2056)/dV(5252) - JVRP(3399) = V(5081) -! JVRP(3400) = dARP(2057)/dV(5081) - JVRP(3400) = V(5256) -! JVRP(3401) = dARP(2057)/dV(5256) - JVRP(3401) = V(5081) -! JVRP(3402) = dARP(2058)/dV(5081) - JVRP(3402) = 1 -! JVRP(3403) = dARP(2059)/dV(5081) - JVRP(3403) = 1 -! JVRP(3404) = dARP(2060)/dV(5081) - JVRP(3404) = 1 -! JVRP(3405) = dARP(2061)/dV(3943) - JVRP(3405) = V(5255) -! JVRP(3406) = dARP(2061)/dV(5255) - JVRP(3406) = V(3943) -! JVRP(3407) = dARP(2062)/dV(3943) - JVRP(3407) = V(5252) -! JVRP(3408) = dARP(2062)/dV(5252) - JVRP(3408) = V(3943) -! JVRP(3409) = dARP(2063)/dV(3943) - JVRP(3409) = V(5256) -! JVRP(3410) = dARP(2063)/dV(5256) - JVRP(3410) = V(3943) -! JVRP(3411) = dARP(2064)/dV(3943) - JVRP(3411) = 1 -! JVRP(3412) = dARP(2065)/dV(3943) - JVRP(3412) = 1 -! JVRP(3413) = dARP(2066)/dV(4925) - JVRP(3413) = V(5255) -! JVRP(3414) = dARP(2066)/dV(5255) - JVRP(3414) = V(4925) -! JVRP(3415) = dARP(2067)/dV(4925) - JVRP(3415) = V(5252) -! JVRP(3416) = dARP(2067)/dV(5252) - JVRP(3416) = V(4925) -! JVRP(3417) = dARP(2068)/dV(4925) - JVRP(3417) = V(5256) -! JVRP(3418) = dARP(2068)/dV(5256) - JVRP(3418) = V(4925) -! JVRP(3419) = dARP(2069)/dV(4925) - JVRP(3419) = 1 -! JVRP(3420) = dARP(2070)/dV(4925) - JVRP(3420) = 1 -! JVRP(3421) = dARP(2071)/dV(4925) - JVRP(3421) = 1 -! JVRP(3422) = dARP(2072)/dV(293) - JVRP(3422) = 1 -! JVRP(3423) = dARP(2073)/dV(293) - JVRP(3423) = 1 -! JVRP(3424) = dARP(2074)/dV(604) - JVRP(3424) = 1 -! JVRP(3425) = dARP(2075)/dV(604) - JVRP(3425) = 1 -! JVRP(3426) = dARP(2076)/dV(3921) - JVRP(3426) = V(5255) -! JVRP(3427) = dARP(2076)/dV(5255) - JVRP(3427) = V(3921) -! JVRP(3428) = dARP(2077)/dV(3921) - JVRP(3428) = V(5252) -! JVRP(3429) = dARP(2077)/dV(5252) - JVRP(3429) = V(3921) -! JVRP(3430) = dARP(2078)/dV(3921) - JVRP(3430) = V(5252) -! JVRP(3431) = dARP(2078)/dV(5252) - JVRP(3431) = V(3921) -! JVRP(3432) = dARP(2079)/dV(3921) - JVRP(3432) = V(5256) -! JVRP(3433) = dARP(2079)/dV(5256) - JVRP(3433) = V(3921) -! JVRP(3434) = dARP(2080)/dV(3921) - JVRP(3434) = 1 -! JVRP(3435) = dARP(2081)/dV(3921) - JVRP(3435) = 1 -! JVRP(3436) = dARP(2082)/dV(3936) - JVRP(3436) = V(5255) -! JVRP(3437) = dARP(2082)/dV(5255) - JVRP(3437) = V(3936) -! JVRP(3438) = dARP(2083)/dV(3936) - JVRP(3438) = V(5252) -! JVRP(3439) = dARP(2083)/dV(5252) - JVRP(3439) = V(3936) -! JVRP(3440) = dARP(2084)/dV(3936) - JVRP(3440) = V(5252) -! JVRP(3441) = dARP(2084)/dV(5252) - JVRP(3441) = V(3936) -! JVRP(3442) = dARP(2085)/dV(3936) - JVRP(3442) = V(5256) -! JVRP(3443) = dARP(2085)/dV(5256) - JVRP(3443) = V(3936) -! JVRP(3444) = dARP(2086)/dV(3936) - JVRP(3444) = 1 -! JVRP(3445) = dARP(2087)/dV(3936) - JVRP(3445) = 1 -! JVRP(3446) = dARP(2088)/dV(3936) - JVRP(3446) = 1 -! JVRP(3447) = dARP(2089)/dV(4091) - JVRP(3447) = V(5255) -! JVRP(3448) = dARP(2089)/dV(5255) - JVRP(3448) = V(4091) -! JVRP(3449) = dARP(2090)/dV(4091) - JVRP(3449) = V(5252) -! JVRP(3450) = dARP(2090)/dV(5252) - JVRP(3450) = V(4091) -! JVRP(3451) = dARP(2091)/dV(4091) - JVRP(3451) = V(5252) -! JVRP(3452) = dARP(2091)/dV(5252) - JVRP(3452) = V(4091) -! JVRP(3453) = dARP(2092)/dV(4091) - JVRP(3453) = V(5256) -! JVRP(3454) = dARP(2092)/dV(5256) - JVRP(3454) = V(4091) -! JVRP(3455) = dARP(2093)/dV(4091) - JVRP(3455) = 1 -! JVRP(3456) = dARP(2094)/dV(4091) - JVRP(3456) = 1 -! JVRP(3457) = dARP(2095)/dV(4097) - JVRP(3457) = V(5255) -! JVRP(3458) = dARP(2095)/dV(5255) - JVRP(3458) = V(4097) -! JVRP(3459) = dARP(2096)/dV(4097) - JVRP(3459) = V(5252) -! JVRP(3460) = dARP(2096)/dV(5252) - JVRP(3460) = V(4097) -! JVRP(3461) = dARP(2097)/dV(4097) - JVRP(3461) = V(5256) -! JVRP(3462) = dARP(2097)/dV(5256) - JVRP(3462) = V(4097) -! JVRP(3463) = dARP(2098)/dV(4097) - JVRP(3463) = 1 -! JVRP(3464) = dARP(2099)/dV(4097) - JVRP(3464) = 1 -! JVRP(3465) = dARP(2100)/dV(3806) - JVRP(3465) = V(5255) -! JVRP(3466) = dARP(2100)/dV(5255) - JVRP(3466) = V(3806) -! JVRP(3467) = dARP(2101)/dV(3806) - JVRP(3467) = V(5252) -! JVRP(3468) = dARP(2101)/dV(5252) - JVRP(3468) = V(3806) -! JVRP(3469) = dARP(2102)/dV(3806) - JVRP(3469) = V(5256) -! JVRP(3470) = dARP(2102)/dV(5256) - JVRP(3470) = V(3806) -! JVRP(3471) = dARP(2103)/dV(3806) - JVRP(3471) = 1 -! JVRP(3472) = dARP(2104)/dV(3806) - JVRP(3472) = 1 -! JVRP(3473) = dARP(2105)/dV(3806) - JVRP(3473) = 1 -! JVRP(3474) = dARP(2106)/dV(5215) - JVRP(3474) = V(5250) -! JVRP(3475) = dARP(2106)/dV(5250) - JVRP(3475) = V(5215) -! JVRP(3476) = dARP(2107)/dV(5215) - JVRP(3476) = V(5250) -! JVRP(3477) = dARP(2107)/dV(5250) - JVRP(3477) = V(5215) -! JVRP(3478) = dARP(2108)/dV(5215) - JVRP(3478) = V(5250) -! JVRP(3479) = dARP(2108)/dV(5250) - JVRP(3479) = V(5215) -! JVRP(3480) = dARP(2109)/dV(5215) - JVRP(3480) = V(5250) -! JVRP(3481) = dARP(2109)/dV(5250) - JVRP(3481) = V(5215) -! JVRP(3482) = dARP(2110)/dV(4747) - JVRP(3482) = 1 -! JVRP(3483) = dARP(2111)/dV(4747) - JVRP(3483) = 1 -! JVRP(3484) = dARP(2112)/dV(4747) - JVRP(3484) = 1 -! JVRP(3485) = dARP(2113)/dV(640) - JVRP(3485) = 1 -! JVRP(3486) = dARP(2114)/dV(640) - JVRP(3486) = 1 -! JVRP(3487) = dARP(2115)/dV(640) - JVRP(3487) = 1 -! JVRP(3488) = dARP(2116)/dV(4185) - JVRP(3488) = V(5255) -! JVRP(3489) = dARP(2116)/dV(5255) - JVRP(3489) = V(4185) -! JVRP(3490) = dARP(2117)/dV(4185) - JVRP(3490) = V(5252) -! JVRP(3491) = dARP(2117)/dV(5252) - JVRP(3491) = V(4185) -! JVRP(3492) = dARP(2118)/dV(4185) - JVRP(3492) = V(5252) -! JVRP(3493) = dARP(2118)/dV(5252) - JVRP(3493) = V(4185) -! JVRP(3494) = dARP(2119)/dV(4185) - JVRP(3494) = V(5256) -! JVRP(3495) = dARP(2119)/dV(5256) - JVRP(3495) = V(4185) -! JVRP(3496) = dARP(2120)/dV(4185) - JVRP(3496) = 1 -! JVRP(3497) = dARP(2121)/dV(4185) - JVRP(3497) = 1 -! JVRP(3498) = dARP(2122)/dV(4146) - JVRP(3498) = V(5255) -! JVRP(3499) = dARP(2122)/dV(5255) - JVRP(3499) = V(4146) -! JVRP(3500) = dARP(2123)/dV(4146) - JVRP(3500) = V(5252) -! JVRP(3501) = dARP(2123)/dV(5252) - JVRP(3501) = V(4146) -! JVRP(3502) = dARP(2124)/dV(4146) - JVRP(3502) = V(5252) -! JVRP(3503) = dARP(2124)/dV(5252) - JVRP(3503) = V(4146) -! JVRP(3504) = dARP(2125)/dV(4146) - JVRP(3504) = V(5256) -! JVRP(3505) = dARP(2125)/dV(5256) - JVRP(3505) = V(4146) -! JVRP(3506) = dARP(2126)/dV(4146) - JVRP(3506) = 1 -! JVRP(3507) = dARP(2127)/dV(4146) - JVRP(3507) = 1 -! JVRP(3508) = dARP(2128)/dV(4146) - JVRP(3508) = 1 -! JVRP(3509) = dARP(2129)/dV(4090) - JVRP(3509) = V(5255) -! JVRP(3510) = dARP(2129)/dV(5255) - JVRP(3510) = V(4090) -! JVRP(3511) = dARP(2130)/dV(4090) - JVRP(3511) = V(5252) -! JVRP(3512) = dARP(2130)/dV(5252) - JVRP(3512) = V(4090) -! JVRP(3513) = dARP(2131)/dV(4090) - JVRP(3513) = V(5252) -! JVRP(3514) = dARP(2131)/dV(5252) - JVRP(3514) = V(4090) -! JVRP(3515) = dARP(2132)/dV(4090) - JVRP(3515) = V(5256) -! JVRP(3516) = dARP(2132)/dV(5256) - JVRP(3516) = V(4090) -! JVRP(3517) = dARP(2133)/dV(4090) - JVRP(3517) = 1 -! JVRP(3518) = dARP(2134)/dV(4090) - JVRP(3518) = 1 -! JVRP(3519) = dARP(2135)/dV(3940) - JVRP(3519) = V(5255) -! JVRP(3520) = dARP(2135)/dV(5255) - JVRP(3520) = V(3940) -! JVRP(3521) = dARP(2136)/dV(3940) - JVRP(3521) = V(5252) -! JVRP(3522) = dARP(2136)/dV(5252) - JVRP(3522) = V(3940) -! JVRP(3523) = dARP(2137)/dV(3940) - JVRP(3523) = V(5256) -! JVRP(3524) = dARP(2137)/dV(5256) - JVRP(3524) = V(3940) -! JVRP(3525) = dARP(2138)/dV(3940) - JVRP(3525) = 1 -! JVRP(3526) = dARP(2139)/dV(3940) - JVRP(3526) = 1 -! JVRP(3527) = dARP(2140)/dV(419) - JVRP(3527) = 1 -! JVRP(3528) = dARP(2141)/dV(419) - JVRP(3528) = 1 -! JVRP(3529) = dARP(2142)/dV(719) - JVRP(3529) = 1 -! JVRP(3530) = dARP(2143)/dV(719) - JVRP(3530) = 1 -! JVRP(3531) = dARP(2144)/dV(3863) - JVRP(3531) = V(5255) -! JVRP(3532) = dARP(2144)/dV(5255) - JVRP(3532) = V(3863) -! JVRP(3533) = dARP(2145)/dV(3863) - JVRP(3533) = V(5252) -! JVRP(3534) = dARP(2145)/dV(5252) - JVRP(3534) = V(3863) -! JVRP(3535) = dARP(2146)/dV(3863) - JVRP(3535) = V(5252) -! JVRP(3536) = dARP(2146)/dV(5252) - JVRP(3536) = V(3863) -! JVRP(3537) = dARP(2147)/dV(3863) - JVRP(3537) = V(5256) -! JVRP(3538) = dARP(2147)/dV(5256) - JVRP(3538) = V(3863) -! JVRP(3539) = dARP(2148)/dV(3863) - JVRP(3539) = 1 -! JVRP(3540) = dARP(2149)/dV(3863) - JVRP(3540) = 1 -! JVRP(3541) = dARP(2150)/dV(3867) - JVRP(3541) = V(5255) -! JVRP(3542) = dARP(2150)/dV(5255) - JVRP(3542) = V(3867) -! JVRP(3543) = dARP(2151)/dV(3867) - JVRP(3543) = V(5252) -! JVRP(3544) = dARP(2151)/dV(5252) - JVRP(3544) = V(3867) -! JVRP(3545) = dARP(2152)/dV(3867) - JVRP(3545) = V(5252) -! JVRP(3546) = dARP(2152)/dV(5252) - JVRP(3546) = V(3867) -! JVRP(3547) = dARP(2153)/dV(3867) - JVRP(3547) = V(5256) -! JVRP(3548) = dARP(2153)/dV(5256) - JVRP(3548) = V(3867) -! JVRP(3549) = dARP(2154)/dV(3867) - JVRP(3549) = 1 -! JVRP(3550) = dARP(2155)/dV(3867) - JVRP(3550) = 1 -! JVRP(3551) = dARP(2156)/dV(3867) - JVRP(3551) = 1 -! JVRP(3552) = dARP(2157)/dV(3994) - JVRP(3552) = V(5255) -! JVRP(3553) = dARP(2157)/dV(5255) - JVRP(3553) = V(3994) -! JVRP(3554) = dARP(2158)/dV(3994) - JVRP(3554) = V(5252) -! JVRP(3555) = dARP(2158)/dV(5252) - JVRP(3555) = V(3994) -! JVRP(3556) = dARP(2159)/dV(3994) - JVRP(3556) = V(5252) -! JVRP(3557) = dARP(2159)/dV(5252) - JVRP(3557) = V(3994) -! JVRP(3558) = dARP(2160)/dV(3994) - JVRP(3558) = V(5256) -! JVRP(3559) = dARP(2160)/dV(5256) - JVRP(3559) = V(3994) -! JVRP(3560) = dARP(2161)/dV(3994) - JVRP(3560) = 1 -! JVRP(3561) = dARP(2162)/dV(3994) - JVRP(3561) = 1 -! JVRP(3562) = dARP(2163)/dV(3891) - JVRP(3562) = V(5255) -! JVRP(3563) = dARP(2163)/dV(5255) - JVRP(3563) = V(3891) -! JVRP(3564) = dARP(2164)/dV(3891) - JVRP(3564) = V(5252) -! JVRP(3565) = dARP(2164)/dV(5252) - JVRP(3565) = V(3891) -! JVRP(3566) = dARP(2165)/dV(3891) - JVRP(3566) = V(5256) -! JVRP(3567) = dARP(2165)/dV(5256) - JVRP(3567) = V(3891) -! JVRP(3568) = dARP(2166)/dV(3891) - JVRP(3568) = 1 -! JVRP(3569) = dARP(2167)/dV(3891) - JVRP(3569) = 1 -! JVRP(3570) = dARP(2168)/dV(5048) - JVRP(3570) = V(5251) -! JVRP(3571) = dARP(2168)/dV(5251) - JVRP(3571) = V(5048) -! JVRP(3572) = dARP(2169)/dV(5048) - JVRP(3572) = V(5252) -! JVRP(3573) = dARP(2169)/dV(5252) - JVRP(3573) = V(5048) -! JVRP(3574) = dARP(2170)/dV(5048) - JVRP(3574) = V(5253) -! JVRP(3575) = dARP(2170)/dV(5253) - JVRP(3575) = V(5048) -! JVRP(3576) = dARP(2171)/dV(5048) - JVRP(3576) = V(5254) -! JVRP(3577) = dARP(2171)/dV(5254) - JVRP(3577) = V(5048) -! JVRP(3578) = dARP(2172)/dV(5048) - JVRP(3578) = 1 -! JVRP(3579) = dARP(2173)/dV(5048) - JVRP(3579) = 1 -! JVRP(3580) = dARP(2174)/dV(5092) - JVRP(3580) = V(5251) -! JVRP(3581) = dARP(2174)/dV(5251) - JVRP(3581) = V(5092) -! JVRP(3582) = dARP(2175)/dV(5092) - JVRP(3582) = V(5252) -! JVRP(3583) = dARP(2175)/dV(5252) - JVRP(3583) = V(5092) -! JVRP(3584) = dARP(2176)/dV(5092) - JVRP(3584) = V(5253) -! JVRP(3585) = dARP(2176)/dV(5253) - JVRP(3585) = V(5092) -! JVRP(3586) = dARP(2177)/dV(5092) - JVRP(3586) = V(5254) -! JVRP(3587) = dARP(2177)/dV(5254) - JVRP(3587) = V(5092) -! JVRP(3588) = dARP(2178)/dV(5092) - JVRP(3588) = 1 -! JVRP(3589) = dARP(2179)/dV(5092) - JVRP(3589) = 1 -! JVRP(3590) = dARP(2180)/dV(2470) - JVRP(3590) = 1 -! JVRP(3591) = dARP(2181)/dV(2470) - JVRP(3591) = 1 -! JVRP(3592) = dARP(2182)/dV(2470) - JVRP(3592) = 1 -! JVRP(3593) = dARP(2183)/dV(2470) - JVRP(3593) = 1 -! JVRP(3594) = dARP(2184)/dV(1746) - JVRP(3594) = 1 -! JVRP(3595) = dARP(2185)/dV(1746) - JVRP(3595) = 1 -! JVRP(3596) = dARP(2186)/dV(1746) - JVRP(3596) = 1 -! JVRP(3597) = dARP(2187)/dV(3971) - JVRP(3597) = V(5255) -! JVRP(3598) = dARP(2187)/dV(5255) - JVRP(3598) = V(3971) -! JVRP(3599) = dARP(2188)/dV(3971) - JVRP(3599) = V(5252) -! JVRP(3600) = dARP(2188)/dV(5252) - JVRP(3600) = V(3971) -! JVRP(3601) = dARP(2189)/dV(3971) - JVRP(3601) = V(5252) -! JVRP(3602) = dARP(2189)/dV(5252) - JVRP(3602) = V(3971) -! JVRP(3603) = dARP(2190)/dV(3971) - JVRP(3603) = V(5256) -! JVRP(3604) = dARP(2190)/dV(5256) - JVRP(3604) = V(3971) -! JVRP(3605) = dARP(2191)/dV(3971) - JVRP(3605) = 1 -! JVRP(3606) = dARP(2192)/dV(3971) - JVRP(3606) = 1 -! JVRP(3607) = dARP(2193)/dV(3963) - JVRP(3607) = V(5255) -! JVRP(3608) = dARP(2193)/dV(5255) - JVRP(3608) = V(3963) -! JVRP(3609) = dARP(2194)/dV(3963) - JVRP(3609) = V(5252) -! JVRP(3610) = dARP(2194)/dV(5252) - JVRP(3610) = V(3963) -! JVRP(3611) = dARP(2195)/dV(3963) - JVRP(3611) = V(5252) -! JVRP(3612) = dARP(2195)/dV(5252) - JVRP(3612) = V(3963) -! JVRP(3613) = dARP(2196)/dV(3963) - JVRP(3613) = V(5256) -! JVRP(3614) = dARP(2196)/dV(5256) - JVRP(3614) = V(3963) -! JVRP(3615) = dARP(2197)/dV(3963) - JVRP(3615) = 1 -! JVRP(3616) = dARP(2198)/dV(3963) - JVRP(3616) = 1 -! JVRP(3617) = dARP(2199)/dV(3963) - JVRP(3617) = 1 -! JVRP(3618) = dARP(2200)/dV(3898) - JVRP(3618) = V(5255) -! JVRP(3619) = dARP(2200)/dV(5255) - JVRP(3619) = V(3898) -! JVRP(3620) = dARP(2201)/dV(3898) - JVRP(3620) = V(5252) -! JVRP(3621) = dARP(2201)/dV(5252) - JVRP(3621) = V(3898) -! JVRP(3622) = dARP(2202)/dV(3898) - JVRP(3622) = V(5252) -! JVRP(3623) = dARP(2202)/dV(5252) - JVRP(3623) = V(3898) -! JVRP(3624) = dARP(2203)/dV(3898) - JVRP(3624) = V(5256) -! JVRP(3625) = dARP(2203)/dV(5256) - JVRP(3625) = V(3898) -! JVRP(3626) = dARP(2204)/dV(3898) - JVRP(3626) = 1 -! JVRP(3627) = dARP(2205)/dV(3898) - JVRP(3627) = 1 -! JVRP(3628) = dARP(2206)/dV(1809) - JVRP(3628) = V(5250) -! JVRP(3629) = dARP(2206)/dV(5250) - JVRP(3629) = V(1809) -! JVRP(3630) = dARP(2207)/dV(1809) - JVRP(3630) = V(5250) -! JVRP(3631) = dARP(2207)/dV(5250) - JVRP(3631) = V(1809) -! JVRP(3632) = dARP(2208)/dV(1809) - JVRP(3632) = 1 -! JVRP(3633) = dARP(2209)/dV(2096) - JVRP(3633) = V(5250) -! JVRP(3634) = dARP(2209)/dV(5250) - JVRP(3634) = V(2096) -! JVRP(3635) = dARP(2210)/dV(2707) - JVRP(3635) = 1 -! JVRP(3636) = dARP(2211)/dV(2707) - JVRP(3636) = 1 -! JVRP(3637) = dARP(2212)/dV(2456) - JVRP(3637) = 1 -! JVRP(3638) = dARP(2213)/dV(2456) - JVRP(3638) = V(5250) -! JVRP(3639) = dARP(2213)/dV(5250) - JVRP(3639) = V(2456) -! JVRP(3640) = dARP(2214)/dV(2456) - JVRP(3640) = V(5250) -! JVRP(3641) = dARP(2214)/dV(5250) - JVRP(3641) = V(2456) -! JVRP(3642) = dARP(2215)/dV(2306) - JVRP(3642) = 1 -! JVRP(3643) = dARP(2216)/dV(2306) - JVRP(3643) = V(5250) -! JVRP(3644) = dARP(2216)/dV(5250) - JVRP(3644) = V(2306) -! JVRP(3645) = dARP(2217)/dV(1679) - JVRP(3645) = 1 -! JVRP(3646) = dARP(2218)/dV(5184) - JVRP(3646) = 1 -! JVRP(3647) = dARP(2219)/dV(5184) - JVRP(3647) = V(5256) -! JVRP(3648) = dARP(2219)/dV(5256) - JVRP(3648) = V(5184) -! JVRP(3649) = dARP(2220)/dV(5184) - JVRP(3649) = V(5250) -! JVRP(3650) = dARP(2220)/dV(5250) - JVRP(3650) = V(5184) -! JVRP(3651) = dARP(2221)/dV(416) - JVRP(3651) = V(5250) -! JVRP(3652) = dARP(2221)/dV(5250) - JVRP(3652) = V(416) -! JVRP(3653) = dARP(2222)/dV(1899) - JVRP(3653) = V(5250) -! JVRP(3654) = dARP(2222)/dV(5250) - JVRP(3654) = V(1899) -! JVRP(3655) = dARP(2223)/dV(1899) - JVRP(3655) = V(5250) -! JVRP(3656) = dARP(2223)/dV(5250) - JVRP(3656) = V(1899) -! JVRP(3657) = dARP(2224)/dV(1899) - JVRP(3657) = 1 -! JVRP(3658) = dARP(2225)/dV(2639) - JVRP(3658) = 1 -! JVRP(3659) = dARP(2226)/dV(3245) - JVRP(3659) = V(5250) -! JVRP(3660) = dARP(2226)/dV(5250) - JVRP(3660) = V(3245) -! JVRP(3661) = dARP(2227)/dV(3277) - JVRP(3661) = V(5250) -! JVRP(3662) = dARP(2227)/dV(5250) - JVRP(3662) = V(3277) -! JVRP(3663) = dARP(2228)/dV(3277) - JVRP(3663) = V(5250) -! JVRP(3664) = dARP(2228)/dV(5250) - JVRP(3664) = V(3277) -! JVRP(3665) = dARP(2229)/dV(3277) - JVRP(3665) = 1 -! JVRP(3666) = dARP(2230)/dV(2229) - JVRP(3666) = 1 -! JVRP(3667) = dARP(2231)/dV(2433) - JVRP(3667) = V(5250) -! JVRP(3668) = dARP(2231)/dV(5250) - JVRP(3668) = V(2433) -! JVRP(3669) = dARP(2232)/dV(1886) - JVRP(3669) = V(5250) -! JVRP(3670) = dARP(2232)/dV(5250) - JVRP(3670) = V(1886) -! JVRP(3671) = dARP(2233)/dV(1886) - JVRP(3671) = V(5250) -! JVRP(3672) = dARP(2233)/dV(5250) - JVRP(3672) = V(1886) -! JVRP(3673) = dARP(2234)/dV(1886) - JVRP(3673) = 1 -! JVRP(3674) = dARP(2235)/dV(2367) - JVRP(3674) = V(5250) -! JVRP(3675) = dARP(2235)/dV(5250) - JVRP(3675) = V(2367) -! JVRP(3676) = dARP(2236)/dV(2720) - JVRP(3676) = 1 -! JVRP(3677) = dARP(2237)/dV(3959) - JVRP(3677) = V(5250) -! JVRP(3678) = dARP(2237)/dV(5250) - JVRP(3678) = V(3959) -! JVRP(3679) = dARP(2238)/dV(3959) - JVRP(3679) = 1 -! JVRP(3680) = dARP(2239)/dV(847) - JVRP(3680) = V(5250) -! JVRP(3681) = dARP(2239)/dV(5250) - JVRP(3681) = V(847) -! JVRP(3682) = dARP(2240)/dV(1914) - JVRP(3682) = V(5250) -! JVRP(3683) = dARP(2240)/dV(5250) - JVRP(3683) = V(1914) -! JVRP(3684) = dARP(2241)/dV(1914) - JVRP(3684) = V(5250) -! JVRP(3685) = dARP(2241)/dV(5250) - JVRP(3685) = V(1914) -! JVRP(3686) = dARP(2242)/dV(1914) - JVRP(3686) = 1 -! JVRP(3687) = dARP(2243)/dV(2128) - JVRP(3687) = V(5250) -! JVRP(3688) = dARP(2243)/dV(5250) - JVRP(3688) = V(2128) -! JVRP(3689) = dARP(2244)/dV(2128) - JVRP(3689) = 1 -! JVRP(3690) = dARP(2245)/dV(3386) - JVRP(3690) = 1 -! JVRP(3691) = dARP(2246)/dV(3386) - JVRP(3691) = 1 -! JVRP(3692) = dARP(2247)/dV(1140) - JVRP(3692) = V(5250) -! JVRP(3693) = dARP(2247)/dV(5250) - JVRP(3693) = V(1140) -! JVRP(3694) = dARP(2248)/dV(4973) - JVRP(3694) = V(5250) -! JVRP(3695) = dARP(2248)/dV(5250) - JVRP(3695) = V(4973) -! JVRP(3696) = dARP(2249)/dV(4973) - JVRP(3696) = 1 -! JVRP(3697) = dARP(2250)/dV(2503) - JVRP(3697) = V(5250) -! JVRP(3698) = dARP(2250)/dV(5250) - JVRP(3698) = V(2503) -! JVRP(3699) = dARP(2251)/dV(2503) - JVRP(3699) = V(5250) -! JVRP(3700) = dARP(2251)/dV(5250) - JVRP(3700) = V(2503) -! JVRP(3701) = dARP(2252)/dV(2503) - JVRP(3701) = 1 -! JVRP(3702) = dARP(2253)/dV(615) - JVRP(3702) = 1 -! JVRP(3703) = dARP(2254)/dV(1782) - JVRP(3703) = V(5250) -! JVRP(3704) = dARP(2254)/dV(5250) - JVRP(3704) = V(1782) -! JVRP(3705) = dARP(2255)/dV(4386) - JVRP(3705) = V(5250) -! JVRP(3706) = dARP(2255)/dV(5250) - JVRP(3706) = V(4386) -! JVRP(3707) = dARP(2256)/dV(4386) - JVRP(3707) = 1 -! JVRP(3708) = dARP(2257)/dV(335) - JVRP(3708) = V(5250) -! JVRP(3709) = dARP(2257)/dV(5250) - JVRP(3709) = V(335) -! JVRP(3710) = dARP(2258)/dV(1138) - JVRP(3710) = V(5250) -! JVRP(3711) = dARP(2258)/dV(5250) - JVRP(3711) = V(1138) -! JVRP(3712) = dARP(2259)/dV(1138) - JVRP(3712) = 1 -! JVRP(3713) = dARP(2260)/dV(3173) - JVRP(3713) = V(5250) -! JVRP(3714) = dARP(2260)/dV(5250) - JVRP(3714) = V(3173) -! JVRP(3715) = dARP(2261)/dV(2840) - JVRP(3715) = 1 -! JVRP(3716) = dARP(2262)/dV(1369) - JVRP(3716) = V(5250) -! JVRP(3717) = dARP(2262)/dV(5250) - JVRP(3717) = V(1369) -! JVRP(3718) = dARP(2263)/dV(2235) - JVRP(3718) = V(5250) -! JVRP(3719) = dARP(2263)/dV(5250) - JVRP(3719) = V(2235) -! JVRP(3720) = dARP(2264)/dV(2235) - JVRP(3720) = V(5250) -! JVRP(3721) = dARP(2264)/dV(5250) - JVRP(3721) = V(2235) -! JVRP(3722) = dARP(2265)/dV(2235) - JVRP(3722) = 1 -! JVRP(3723) = dARP(2266)/dV(2261) - JVRP(3723) = V(5250) -! JVRP(3724) = dARP(2266)/dV(5250) - JVRP(3724) = V(2261) -! JVRP(3725) = dARP(2267)/dV(2261) - JVRP(3725) = 1 -! JVRP(3726) = dARP(2268)/dV(1568) - JVRP(3726) = 1 -! JVRP(3727) = dARP(2269)/dV(5071) - JVRP(3727) = 1 -! JVRP(3728) = dARP(2270)/dV(5071) - JVRP(3728) = V(5256) -! JVRP(3729) = dARP(2270)/dV(5256) - JVRP(3729) = V(5071) -! JVRP(3730) = dARP(2271)/dV(5071) - JVRP(3730) = V(5250) -! JVRP(3731) = dARP(2271)/dV(5250) - JVRP(3731) = V(5071) -! JVRP(3732) = dARP(2272)/dV(126) - JVRP(3732) = V(5250) -! JVRP(3733) = dARP(2272)/dV(5250) - JVRP(3733) = V(126) -! JVRP(3734) = dARP(2273)/dV(3299) - JVRP(3734) = V(5250) -! JVRP(3735) = dARP(2273)/dV(5250) - JVRP(3735) = V(3299) -! JVRP(3736) = dARP(2274)/dV(3299) - JVRP(3736) = V(5250) -! JVRP(3737) = dARP(2274)/dV(5250) - JVRP(3737) = V(3299) -! JVRP(3738) = dARP(2275)/dV(3299) - JVRP(3738) = 1 -! JVRP(3739) = dARP(2276)/dV(2037) - JVRP(3739) = V(5250) -! JVRP(3740) = dARP(2276)/dV(5250) - JVRP(3740) = V(2037) -! JVRP(3741) = dARP(2277)/dV(1944) - JVRP(3741) = 1 -! JVRP(3742) = dARP(2278)/dV(2391) - JVRP(3742) = 1 -! JVRP(3743) = dARP(2279)/dV(2391) - JVRP(3743) = V(5250) -! JVRP(3744) = dARP(2279)/dV(5250) - JVRP(3744) = V(2391) -! JVRP(3745) = dARP(2280)/dV(2391) - JVRP(3745) = V(5250) -! JVRP(3746) = dARP(2280)/dV(5250) - JVRP(3746) = V(2391) -! JVRP(3747) = dARP(2281)/dV(1800) - JVRP(3747) = 1 -! JVRP(3748) = dARP(2282)/dV(1800) - JVRP(3748) = V(5250) -! JVRP(3749) = dARP(2282)/dV(5250) - JVRP(3749) = V(1800) -! JVRP(3750) = dARP(2283)/dV(153) - JVRP(3750) = 1 -! JVRP(3751) = dARP(2284)/dV(286) - JVRP(3751) = V(5250) -! JVRP(3752) = dARP(2284)/dV(5250) - JVRP(3752) = V(286) -! JVRP(3753) = dARP(2285)/dV(4872) - JVRP(3753) = 1 -! JVRP(3754) = dARP(2286)/dV(4872) - JVRP(3754) = V(5256) -! JVRP(3755) = dARP(2286)/dV(5256) - JVRP(3755) = V(4872) -! JVRP(3756) = dARP(2287)/dV(4872) - JVRP(3756) = V(5250) -! JVRP(3757) = dARP(2287)/dV(5250) - JVRP(3757) = V(4872) -! JVRP(3758) = dARP(2288)/dV(4872) - JVRP(3758) = V(5250) -! JVRP(3759) = dARP(2288)/dV(5250) - JVRP(3759) = V(4872) -! JVRP(3760) = dARP(2289)/dV(3265) - JVRP(3760) = V(5250) -! JVRP(3761) = dARP(2289)/dV(5250) - JVRP(3761) = V(3265) -! JVRP(3762) = dARP(2290)/dV(3265) - JVRP(3762) = V(5250) -! JVRP(3763) = dARP(2290)/dV(5250) - JVRP(3763) = V(3265) -! JVRP(3764) = dARP(2291)/dV(3265) - JVRP(3764) = 1 -! JVRP(3765) = dARP(2292)/dV(2297) - JVRP(3765) = V(5250) -! JVRP(3766) = dARP(2292)/dV(5250) - JVRP(3766) = V(2297) -! JVRP(3767) = dARP(2293)/dV(2066) - JVRP(3767) = 1 -! JVRP(3768) = dARP(2294)/dV(1035) - JVRP(3768) = V(5250) -! JVRP(3769) = dARP(2294)/dV(5250) - JVRP(3769) = V(1035) -! JVRP(3770) = dARP(2295)/dV(3735) - JVRP(3770) = V(5250) -! JVRP(3771) = dARP(2295)/dV(5250) - JVRP(3771) = V(3735) -! JVRP(3772) = dARP(2296)/dV(3735) - JVRP(3772) = 1 -! JVRP(3773) = dARP(2297)/dV(4634) - JVRP(3773) = V(5255) -! JVRP(3774) = dARP(2297)/dV(5255) - JVRP(3774) = V(4634) -! JVRP(3775) = dARP(2298)/dV(4634) - JVRP(3775) = V(5255) -! JVRP(3776) = dARP(2298)/dV(5255) - JVRP(3776) = V(4634) -! JVRP(3777) = dARP(2299)/dV(4634) - JVRP(3777) = V(5255) -! JVRP(3778) = dARP(2299)/dV(5255) - JVRP(3778) = V(4634) -! JVRP(3779) = dARP(2300)/dV(4634) - JVRP(3779) = V(5252) -! JVRP(3780) = dARP(2300)/dV(5252) - JVRP(3780) = V(4634) -! JVRP(3781) = dARP(2301)/dV(4634) - JVRP(3781) = V(5253) -! JVRP(3782) = dARP(2301)/dV(5253) - JVRP(3782) = V(4634) -! JVRP(3783) = dARP(2302)/dV(4634) - JVRP(3783) = V(5256) -! JVRP(3784) = dARP(2302)/dV(5256) - JVRP(3784) = V(4634) -! JVRP(3785) = dARP(2303)/dV(4634) - JVRP(3785) = 1 -! JVRP(3786) = dARP(2304)/dV(4634) - JVRP(3786) = 1 -! JVRP(3787) = dARP(2305)/dV(1108) - JVRP(3787) = 1 -! JVRP(3788) = dARP(2306)/dV(1108) - JVRP(3788) = V(5250) -! JVRP(3789) = dARP(2306)/dV(5250) - JVRP(3789) = V(1108) -! JVRP(3790) = dARP(2307)/dV(2198) - JVRP(3790) = 1 -! JVRP(3791) = dARP(2308)/dV(2198) - JVRP(3791) = V(5250) -! JVRP(3792) = dARP(2308)/dV(5250) - JVRP(3792) = V(2198) -! JVRP(3793) = dARP(2309)/dV(1906) - JVRP(3793) = 1 -! JVRP(3794) = dARP(2310)/dV(1050) - JVRP(3794) = V(5250) -! JVRP(3795) = dARP(2310)/dV(5250) - JVRP(3795) = V(1050) -! JVRP(3796) = dARP(2311)/dV(4524) - JVRP(3796) = 1 -! JVRP(3797) = dARP(2312)/dV(4524) - JVRP(3797) = V(5250) -! JVRP(3798) = dARP(2312)/dV(5250) - JVRP(3798) = V(4524) -! JVRP(3799) = dARP(2313)/dV(1422) - JVRP(3799) = V(5250) -! JVRP(3800) = dARP(2313)/dV(5250) - JVRP(3800) = V(1422) -! JVRP(3801) = dARP(2314)/dV(1422) - JVRP(3801) = 1 -! JVRP(3802) = dARP(2315)/dV(3106) - JVRP(3802) = V(5250) -! JVRP(3803) = dARP(2315)/dV(5250) - JVRP(3803) = V(3106) -! JVRP(3804) = dARP(2316)/dV(2983) - JVRP(3804) = 1 -! JVRP(3805) = dARP(2317)/dV(874) - JVRP(3805) = V(5250) -! JVRP(3806) = dARP(2317)/dV(5250) - JVRP(3806) = V(874) -! JVRP(3807) = dARP(2318)/dV(4380) - JVRP(3807) = V(5255) -! JVRP(3808) = dARP(2318)/dV(5255) - JVRP(3808) = V(4380) -! JVRP(3809) = dARP(2319)/dV(4380) - JVRP(3809) = V(5255) -! JVRP(3810) = dARP(2319)/dV(5255) - JVRP(3810) = V(4380) -! JVRP(3811) = dARP(2320)/dV(4380) - JVRP(3811) = V(5255) -! JVRP(3812) = dARP(2320)/dV(5255) - JVRP(3812) = V(4380) -! JVRP(3813) = dARP(2321)/dV(4380) - JVRP(3813) = V(5252) -! JVRP(3814) = dARP(2321)/dV(5252) - JVRP(3814) = V(4380) -! JVRP(3815) = dARP(2322)/dV(4380) - JVRP(3815) = V(5253) -! JVRP(3816) = dARP(2322)/dV(5253) - JVRP(3816) = V(4380) -! JVRP(3817) = dARP(2323)/dV(4380) - JVRP(3817) = V(5256) -! JVRP(3818) = dARP(2323)/dV(5256) - JVRP(3818) = V(4380) -! JVRP(3819) = dARP(2324)/dV(4380) - JVRP(3819) = 1 -! JVRP(3820) = dARP(2325)/dV(4380) - JVRP(3820) = 1 -! JVRP(3821) = dARP(2326)/dV(5239) - JVRP(3821) = V(5255) -! JVRP(3822) = dARP(2326)/dV(5255) - JVRP(3822) = V(5239) -! JVRP(3823) = dARP(2327)/dV(5239) - JVRP(3823) = V(5252) -! JVRP(3824) = dARP(2327)/dV(5252) - JVRP(3824) = V(5239) -! JVRP(3825) = dARP(2328)/dV(5239) - JVRP(3825) = V(5252) -! JVRP(3826) = dARP(2328)/dV(5252) - JVRP(3826) = V(5239) -! JVRP(3827) = dARP(2329)/dV(5239) - JVRP(3827) = V(5256) -! JVRP(3828) = dARP(2329)/dV(5256) - JVRP(3828) = V(5239) -! JVRP(3829) = dARP(2330)/dV(5239) - JVRP(3829) = 1 -! JVRP(3830) = dARP(2331)/dV(5239) - JVRP(3830) = 1 -! JVRP(3831) = dARP(2332)/dV(1265) - JVRP(3831) = 1 -! JVRP(3832) = dARP(2333)/dV(1265) - JVRP(3832) = V(5250) -! JVRP(3833) = dARP(2333)/dV(5250) - JVRP(3833) = V(1265) -! JVRP(3834) = dARP(2334)/dV(2542) - JVRP(3834) = 1 -! JVRP(3835) = dARP(2335)/dV(2542) - JVRP(3835) = V(5250) -! JVRP(3836) = dARP(2335)/dV(5250) - JVRP(3836) = V(2542) -! JVRP(3837) = dARP(2336)/dV(2374) - JVRP(3837) = 1 -! JVRP(3838) = dARP(2337)/dV(896) - JVRP(3838) = V(5250) -! JVRP(3839) = dARP(2337)/dV(5250) - JVRP(3839) = V(896) -! JVRP(3840) = dARP(2338)/dV(2006) - JVRP(3840) = V(5250) -! JVRP(3841) = dARP(2338)/dV(5250) - JVRP(3841) = V(2006) -! JVRP(3842) = dARP(2339)/dV(2006) - JVRP(3842) = V(5250) -! JVRP(3843) = dARP(2339)/dV(5250) - JVRP(3843) = V(2006) -! JVRP(3844) = dARP(2340)/dV(2006) - JVRP(3844) = 1 -! JVRP(3845) = dARP(2341)/dV(1977) - JVRP(3845) = V(5250) -! JVRP(3846) = dARP(2341)/dV(5250) - JVRP(3846) = V(1977) -! JVRP(3847) = dARP(2342)/dV(2747) - JVRP(3847) = 1 -! JVRP(3848) = dARP(2343)/dV(1194) - JVRP(3848) = V(5250) -! JVRP(3849) = dARP(2343)/dV(5250) - JVRP(3849) = V(1194) -! JVRP(3850) = dARP(2344)/dV(3716) - JVRP(3850) = V(5250) -! JVRP(3851) = dARP(2344)/dV(5250) - JVRP(3851) = V(3716) -! JVRP(3852) = dARP(2345)/dV(3716) - JVRP(3852) = 1 -! JVRP(3853) = dARP(2346)/dV(1994) - JVRP(3853) = 1 -! JVRP(3854) = dARP(2347)/dV(1994) - JVRP(3854) = V(5250) -! JVRP(3855) = dARP(2347)/dV(5250) - JVRP(3855) = V(1994) -! JVRP(3856) = dARP(2348)/dV(1994) - JVRP(3856) = V(5250) -! JVRP(3857) = dARP(2348)/dV(5250) - JVRP(3857) = V(1994) -! JVRP(3858) = dARP(2349)/dV(2459) - JVRP(3858) = 1 -! JVRP(3859) = dARP(2350)/dV(2459) - JVRP(3859) = V(5250) -! JVRP(3860) = dARP(2350)/dV(5250) - JVRP(3860) = V(2459) -! JVRP(3861) = dARP(2351)/dV(2891) - JVRP(3861) = 1 -! JVRP(3862) = dARP(2352)/dV(2891) - JVRP(3862) = 1 -! JVRP(3863) = dARP(2353)/dV(5057) - JVRP(3863) = 1 -! JVRP(3864) = dARP(2354)/dV(5057) - JVRP(3864) = V(5256) -! JVRP(3865) = dARP(2354)/dV(5256) - JVRP(3865) = V(5057) -! JVRP(3866) = dARP(2355)/dV(5057) - JVRP(3866) = V(5250) -! JVRP(3867) = dARP(2355)/dV(5250) - JVRP(3867) = V(5057) -! JVRP(3868) = dARP(2356)/dV(1948) - JVRP(3868) = V(5250) -! JVRP(3869) = dARP(2356)/dV(5250) - JVRP(3869) = V(1948) -! JVRP(3870) = dARP(2357)/dV(1948) - JVRP(3870) = V(5250) -! JVRP(3871) = dARP(2357)/dV(5250) - JVRP(3871) = V(1948) -! JVRP(3872) = dARP(2358)/dV(1948) - JVRP(3872) = 1 -! JVRP(3873) = dARP(2359)/dV(1976) - JVRP(3873) = V(5250) -! JVRP(3874) = dARP(2359)/dV(5250) - JVRP(3874) = V(1976) -! JVRP(3875) = dARP(2360)/dV(3422) - JVRP(3875) = 1 -! JVRP(3876) = dARP(2361)/dV(3422) - JVRP(3876) = 1 -! JVRP(3877) = dARP(2362)/dV(1124) - JVRP(3877) = V(5250) -! JVRP(3878) = dARP(2362)/dV(5250) - JVRP(3878) = V(1124) -! JVRP(3879) = dARP(2363)/dV(3536) - JVRP(3879) = V(5250) -! JVRP(3880) = dARP(2363)/dV(5250) - JVRP(3880) = V(3536) -! JVRP(3881) = dARP(2364)/dV(3310) - JVRP(3881) = V(5250) -! JVRP(3882) = dARP(2364)/dV(5250) - JVRP(3882) = V(3310) -! JVRP(3883) = dARP(2365)/dV(3310) - JVRP(3883) = V(5250) -! JVRP(3884) = dARP(2365)/dV(5250) - JVRP(3884) = V(3310) -! JVRP(3885) = dARP(2366)/dV(3310) - JVRP(3885) = 1 -! JVRP(3886) = dARP(2367)/dV(1957) - JVRP(3886) = V(5250) -! JVRP(3887) = dARP(2367)/dV(5250) - JVRP(3887) = V(1957) -! JVRP(3888) = dARP(2368)/dV(2090) - JVRP(3888) = 1 -! JVRP(3889) = dARP(2369)/dV(5012) - JVRP(3889) = V(5256) -! JVRP(3890) = dARP(2369)/dV(5256) - JVRP(3890) = V(5012) -! JVRP(3891) = dARP(2370)/dV(5012) - JVRP(3891) = V(5250) -! JVRP(3892) = dARP(2370)/dV(5250) - JVRP(3892) = V(5012) -! JVRP(3893) = dARP(2371)/dV(5012) - JVRP(3893) = 1 -! JVRP(3894) = dARP(2372)/dV(1842) - JVRP(3894) = 1 -! JVRP(3895) = dARP(2373)/dV(1842) - JVRP(3895) = V(5250) -! JVRP(3896) = dARP(2373)/dV(5250) - JVRP(3896) = V(1842) -! JVRP(3897) = dARP(2374)/dV(1842) - JVRP(3897) = V(5250) -! JVRP(3898) = dARP(2374)/dV(5250) - JVRP(3898) = V(1842) -! JVRP(3899) = dARP(2375)/dV(2220) - JVRP(3899) = 1 -! JVRP(3900) = dARP(2376)/dV(2220) - JVRP(3900) = V(5250) -! JVRP(3901) = dARP(2376)/dV(5250) - JVRP(3901) = V(2220) -! JVRP(3902) = dARP(2377)/dV(2647) - JVRP(3902) = 1 -! JVRP(3903) = dARP(2378)/dV(2647) - JVRP(3903) = 1 -! JVRP(3904) = dARP(2379)/dV(4737) - JVRP(3904) = 1 -! JVRP(3905) = dARP(2380)/dV(4737) - JVRP(3905) = V(5256) -! JVRP(3906) = dARP(2380)/dV(5256) - JVRP(3906) = V(4737) -! JVRP(3907) = dARP(2381)/dV(4737) - JVRP(3907) = V(5250) -! JVRP(3908) = dARP(2381)/dV(5250) - JVRP(3908) = V(4737) -! JVRP(3909) = dARP(2382)/dV(4737) - JVRP(3909) = V(5250) -! JVRP(3910) = dARP(2382)/dV(5250) - JVRP(3910) = V(4737) -! JVRP(3911) = dARP(2383)/dV(3444) - JVRP(3911) = V(5250) -! JVRP(3912) = dARP(2383)/dV(5250) - JVRP(3912) = V(3444) -! JVRP(3913) = dARP(2384)/dV(3444) - JVRP(3913) = V(5250) -! JVRP(3914) = dARP(2384)/dV(5250) - JVRP(3914) = V(3444) -! JVRP(3915) = dARP(2385)/dV(3444) - JVRP(3915) = 1 -! JVRP(3916) = dARP(2386)/dV(3159) - JVRP(3916) = V(5250) -! JVRP(3917) = dARP(2386)/dV(5250) - JVRP(3917) = V(3159) -! JVRP(3918) = dARP(2387)/dV(1924) - JVRP(3918) = 1 -! JVRP(3919) = dARP(2388)/dV(3018) - JVRP(3919) = V(5250) -! JVRP(3920) = dARP(2388)/dV(5250) - JVRP(3920) = V(3018) -! JVRP(3921) = dARP(2389)/dV(3018) - JVRP(3921) = V(5250) -! JVRP(3922) = dARP(2389)/dV(5250) - JVRP(3922) = V(3018) -! JVRP(3923) = dARP(2390)/dV(3018) - JVRP(3923) = 1 -! JVRP(3924) = dARP(2391)/dV(765) - JVRP(3924) = 1 -! JVRP(3925) = dARP(2392)/dV(1400) - JVRP(3925) = V(5250) -! JVRP(3926) = dARP(2392)/dV(5250) - JVRP(3926) = V(1400) -! JVRP(3927) = dARP(2393)/dV(278) - JVRP(3927) = V(5250) -! JVRP(3928) = dARP(2393)/dV(5250) - JVRP(3928) = V(278) -! JVRP(3929) = dARP(2394)/dV(3653) - JVRP(3929) = V(5250) -! JVRP(3930) = dARP(2394)/dV(5250) - JVRP(3930) = V(3653) -! JVRP(3931) = dARP(2395)/dV(3653) - JVRP(3931) = 1 -! JVRP(3932) = dARP(2396)/dV(3623) - JVRP(3932) = V(5250) -! JVRP(3933) = dARP(2396)/dV(5250) - JVRP(3933) = V(3623) -! JVRP(3934) = dARP(2397)/dV(3623) - JVRP(3934) = V(5250) -! JVRP(3935) = dARP(2397)/dV(5250) - JVRP(3935) = V(3623) -! JVRP(3936) = dARP(2398)/dV(3623) - JVRP(3936) = 1 -! JVRP(3937) = dARP(2399)/dV(3623) - JVRP(3937) = 1 -! JVRP(3938) = dARP(2400)/dV(2029) - JVRP(3938) = 1 -! JVRP(3939) = dARP(2401)/dV(2438) - JVRP(3939) = V(5250) -! JVRP(3940) = dARP(2401)/dV(5250) - JVRP(3940) = V(2438) -! JVRP(3941) = dARP(2402)/dV(2438) - JVRP(3941) = 1 -! JVRP(3942) = dARP(2403)/dV(1671) - JVRP(3942) = V(5250) -! JVRP(3943) = dARP(2403)/dV(5250) - JVRP(3943) = V(1671) -! JVRP(3944) = dARP(2404)/dV(1671) - JVRP(3944) = 1 -! JVRP(3945) = dARP(2405)/dV(1897) - JVRP(3945) = V(5250) -! JVRP(3946) = dARP(2405)/dV(5250) - JVRP(3946) = V(1897) -! JVRP(3947) = dARP(2406)/dV(1897) - JVRP(3947) = V(5250) -! JVRP(3948) = dARP(2406)/dV(5250) - JVRP(3948) = V(1897) -! JVRP(3949) = dARP(2407)/dV(1897) - JVRP(3949) = 1 -! JVRP(3950) = dARP(2408)/dV(2550) - JVRP(3950) = 1 -! JVRP(3951) = dARP(2409)/dV(1081) - JVRP(3951) = V(5250) -! JVRP(3952) = dARP(2409)/dV(5250) - JVRP(3952) = V(1081) -! JVRP(3953) = dARP(2410)/dV(2001) - JVRP(3953) = 1 -! JVRP(3954) = dARP(2411)/dV(2001) - JVRP(3954) = V(5250) -! JVRP(3955) = dARP(2411)/dV(5250) - JVRP(3955) = V(2001) -! JVRP(3956) = dARP(2412)/dV(3547) - JVRP(3956) = 1 -! JVRP(3957) = dARP(2413)/dV(3547) - JVRP(3957) = V(5250) -! JVRP(3958) = dARP(2413)/dV(5250) - JVRP(3958) = V(3547) -! JVRP(3959) = dARP(2414)/dV(3207) - JVRP(3959) = V(5250) -! JVRP(3960) = dARP(2414)/dV(5250) - JVRP(3960) = V(3207) -! JVRP(3961) = dARP(2415)/dV(3207) - JVRP(3961) = 1 -! JVRP(3962) = dARP(2416)/dV(3207) - JVRP(3962) = 1 -! JVRP(3963) = dARP(2417)/dV(630) - JVRP(3963) = 1 -! JVRP(3964) = dARP(2418)/dV(1582) - JVRP(3964) = V(5250) -! JVRP(3965) = dARP(2418)/dV(5250) - JVRP(3965) = V(1582) -! JVRP(3966) = dARP(2419)/dV(1582) - JVRP(3966) = 1 -! JVRP(3967) = dARP(2420)/dV(3892) - JVRP(3967) = V(5256) -! JVRP(3968) = dARP(2420)/dV(5256) - JVRP(3968) = V(3892) -! JVRP(3969) = dARP(2421)/dV(3892) - JVRP(3969) = V(5250) -! JVRP(3970) = dARP(2421)/dV(5250) - JVRP(3970) = V(3892) -! JVRP(3971) = dARP(2422)/dV(3892) - JVRP(3971) = 1 -! JVRP(3972) = dARP(2423)/dV(818) - JVRP(3972) = V(5250) -! JVRP(3973) = dARP(2423)/dV(5250) - JVRP(3973) = V(818) -! JVRP(3974) = dARP(2424)/dV(1066) - JVRP(3974) = V(5250) -! JVRP(3975) = dARP(2424)/dV(5250) - JVRP(3975) = V(1066) -! JVRP(3976) = dARP(2425)/dV(1066) - JVRP(3976) = 1 -! JVRP(3977) = dARP(2426)/dV(2657) - JVRP(3977) = V(5250) -! JVRP(3978) = dARP(2426)/dV(5250) - JVRP(3978) = V(2657) -! JVRP(3979) = dARP(2427)/dV(2657) - JVRP(3979) = 1 -! JVRP(3980) = dARP(2428)/dV(5232) - JVRP(3980) = V(5255) -! JVRP(3981) = dARP(2428)/dV(5255) - JVRP(3981) = V(5232) -! JVRP(3982) = dARP(2429)/dV(5232) - JVRP(3982) = V(5255) -! JVRP(3983) = dARP(2429)/dV(5255) - JVRP(3983) = V(5232) -! JVRP(3984) = dARP(2430)/dV(5232) - JVRP(3984) = V(5255) -! JVRP(3985) = dARP(2430)/dV(5255) - JVRP(3985) = V(5232) -! JVRP(3986) = dARP(2431)/dV(5232) - JVRP(3986) = V(5252) -! JVRP(3987) = dARP(2431)/dV(5252) - JVRP(3987) = V(5232) -! JVRP(3988) = dARP(2432)/dV(5232) - JVRP(3988) = V(5253) -! JVRP(3989) = dARP(2432)/dV(5253) - JVRP(3989) = V(5232) -! JVRP(3990) = dARP(2433)/dV(5232) - JVRP(3990) = V(5256) -! JVRP(3991) = dARP(2433)/dV(5256) - JVRP(3991) = V(5232) -! JVRP(3992) = dARP(2434)/dV(5232) - JVRP(3992) = 1 -! JVRP(3993) = dARP(2435)/dV(5232) - JVRP(3993) = 1 -! JVRP(3994) = dARP(2436)/dV(4924) - JVRP(3994) = V(5255) -! JVRP(3995) = dARP(2436)/dV(5255) - JVRP(3995) = V(4924) -! JVRP(3996) = dARP(2437)/dV(4924) - JVRP(3996) = V(5255) -! JVRP(3997) = dARP(2437)/dV(5255) - JVRP(3997) = V(4924) -! JVRP(3998) = dARP(2438)/dV(4924) - JVRP(3998) = V(5252) -! JVRP(3999) = dARP(2438)/dV(5252) - JVRP(3999) = V(4924) -! JVRP(4000) = dARP(2439)/dV(4924) - JVRP(4000) = V(5253) -! JVRP(4001) = dARP(2439)/dV(5253) - JVRP(4001) = V(4924) -! JVRP(4002) = dARP(2440)/dV(4924) - JVRP(4002) = V(5256) -! JVRP(4003) = dARP(2440)/dV(5256) - JVRP(4003) = V(4924) -! JVRP(4004) = dARP(2441)/dV(4924) - JVRP(4004) = 1 -! JVRP(4005) = dARP(2442)/dV(3198) - JVRP(4005) = V(5250) -! JVRP(4006) = dARP(2442)/dV(5250) - JVRP(4006) = V(3198) -! JVRP(4007) = dARP(2443)/dV(3198) - JVRP(4007) = V(5250) -! JVRP(4008) = dARP(2443)/dV(5250) - JVRP(4008) = V(3198) -! JVRP(4009) = dARP(2444)/dV(3198) - JVRP(4009) = 1 -! JVRP(4010) = dARP(2445)/dV(1808) - JVRP(4010) = 1 -! JVRP(4011) = dARP(2446)/dV(578) - JVRP(4011) = V(5250) -! JVRP(4012) = dARP(2446)/dV(5250) - JVRP(4012) = V(578) -! JVRP(4013) = dARP(2447)/dV(2276) - JVRP(4013) = V(5250) -! JVRP(4014) = dARP(2447)/dV(5250) - JVRP(4014) = V(2276) -! JVRP(4015) = dARP(2448)/dV(2010) - JVRP(4015) = V(5250) -! JVRP(4016) = dARP(2448)/dV(5250) - JVRP(4016) = V(2010) -! JVRP(4017) = dARP(2449)/dV(2010) - JVRP(4017) = V(5250) -! JVRP(4018) = dARP(2449)/dV(5250) - JVRP(4018) = V(2010) -! JVRP(4019) = dARP(2450)/dV(2010) - JVRP(4019) = 1 -! JVRP(4020) = dARP(2451)/dV(2869) - JVRP(4020) = 1 -! JVRP(4021) = dARP(2452)/dV(1894) - JVRP(4021) = V(5250) -! JVRP(4022) = dARP(2452)/dV(5250) - JVRP(4022) = V(1894) -! JVRP(4023) = dARP(2453)/dV(232) - JVRP(4023) = V(5250) -! JVRP(4024) = dARP(2453)/dV(5250) - JVRP(4024) = V(232) -! JVRP(4025) = dARP(2454)/dV(4908) - JVRP(4025) = V(5251) -! JVRP(4026) = dARP(2454)/dV(5251) - JVRP(4026) = V(4908) -! JVRP(4027) = dARP(2455)/dV(4908) - JVRP(4027) = V(5252) -! JVRP(4028) = dARP(2455)/dV(5252) - JVRP(4028) = V(4908) -! JVRP(4029) = dARP(2456)/dV(4908) - JVRP(4029) = V(5253) -! JVRP(4030) = dARP(2456)/dV(5253) - JVRP(4030) = V(4908) -! JVRP(4031) = dARP(2457)/dV(4908) - JVRP(4031) = V(5254) -! JVRP(4032) = dARP(2457)/dV(5254) - JVRP(4032) = V(4908) -! JVRP(4033) = dARP(2458)/dV(4908) - JVRP(4033) = 1 -! JVRP(4034) = dARP(2459)/dV(4908) - JVRP(4034) = 1 -! JVRP(4035) = dARP(2460)/dV(5243) - JVRP(4035) = V(5255) -! JVRP(4036) = dARP(2460)/dV(5255) - JVRP(4036) = V(5243) -! JVRP(4037) = dARP(2461)/dV(5243) - JVRP(4037) = V(5255) -! JVRP(4038) = dARP(2461)/dV(5255) - JVRP(4038) = V(5243) -! JVRP(4039) = dARP(2462)/dV(5243) - JVRP(4039) = V(5255) -! JVRP(4040) = dARP(2462)/dV(5255) - JVRP(4040) = V(5243) -! JVRP(4041) = dARP(2463)/dV(5243) - JVRP(4041) = V(5252) -! JVRP(4042) = dARP(2463)/dV(5252) - JVRP(4042) = V(5243) -! JVRP(4043) = dARP(2464)/dV(5243) - JVRP(4043) = V(5253) -! JVRP(4044) = dARP(2464)/dV(5253) - JVRP(4044) = V(5243) -! JVRP(4045) = dARP(2465)/dV(5243) - JVRP(4045) = V(5256) -! JVRP(4046) = dARP(2465)/dV(5256) - JVRP(4046) = V(5243) -! JVRP(4047) = dARP(2466)/dV(5243) - JVRP(4047) = 1 -! JVRP(4048) = dARP(2467)/dV(5243) - JVRP(4048) = 1 -! JVRP(4049) = dARP(2468)/dV(5223) - JVRP(4049) = V(5251) -! JVRP(4050) = dARP(2468)/dV(5251) - JVRP(4050) = V(5223) -! JVRP(4051) = dARP(2469)/dV(5223) - JVRP(4051) = V(5252) -! JVRP(4052) = dARP(2469)/dV(5252) - JVRP(4052) = V(5223) -! JVRP(4053) = dARP(2470)/dV(5223) - JVRP(4053) = V(5253) -! JVRP(4054) = dARP(2470)/dV(5253) - JVRP(4054) = V(5223) -! JVRP(4055) = dARP(2471)/dV(5223) - JVRP(4055) = V(5254) -! JVRP(4056) = dARP(2471)/dV(5254) - JVRP(4056) = V(5223) -! JVRP(4057) = dARP(2472)/dV(5223) - JVRP(4057) = 1 -! JVRP(4058) = dARP(2473)/dV(5223) - JVRP(4058) = 1 -! JVRP(4059) = dARP(2474)/dV(3243) - JVRP(4059) = V(5250) -! JVRP(4060) = dARP(2474)/dV(5250) - JVRP(4060) = V(3243) -! JVRP(4061) = dARP(2475)/dV(3243) - JVRP(4061) = V(5250) -! JVRP(4062) = dARP(2475)/dV(5250) - JVRP(4062) = V(3243) -! JVRP(4063) = dARP(2476)/dV(3243) - JVRP(4063) = 1 -! JVRP(4064) = dARP(2477)/dV(1815) - JVRP(4064) = 1 -! JVRP(4065) = dARP(2478)/dV(3755) - JVRP(4065) = V(5250) -! JVRP(4066) = dARP(2478)/dV(5250) - JVRP(4066) = V(3755) -! JVRP(4067) = dARP(2479)/dV(3755) - JVRP(4067) = 1 -! JVRP(4068) = dARP(2480)/dV(1120) - JVRP(4068) = V(5250) -! JVRP(4069) = dARP(2480)/dV(5250) - JVRP(4069) = V(1120) -! JVRP(4070) = dARP(2481)/dV(3256) - JVRP(4070) = V(5250) -! JVRP(4071) = dARP(2481)/dV(5250) - JVRP(4071) = V(3256) -! JVRP(4072) = dARP(2482)/dV(3256) - JVRP(4072) = V(5250) -! JVRP(4073) = dARP(2482)/dV(5250) - JVRP(4073) = V(3256) -! JVRP(4074) = dARP(2483)/dV(3256) - JVRP(4074) = 1 -! JVRP(4075) = dARP(2484)/dV(1882) - JVRP(4075) = 1 -! JVRP(4076) = dARP(2485)/dV(3603) - JVRP(4076) = V(5250) -! JVRP(4077) = dARP(2485)/dV(5250) - JVRP(4077) = V(3603) -! JVRP(4078) = dARP(2486)/dV(3603) - JVRP(4078) = 1 -! JVRP(4079) = dARP(2487)/dV(2044) - JVRP(4079) = 1 -! JVRP(4080) = dARP(2488)/dV(2044) - JVRP(4080) = V(5250) -! JVRP(4081) = dARP(2488)/dV(5250) - JVRP(4081) = V(2044) -! JVRP(4082) = dARP(2489)/dV(2044) - JVRP(4082) = V(5250) -! JVRP(4083) = dARP(2489)/dV(5250) - JVRP(4083) = V(2044) -! JVRP(4084) = dARP(2490)/dV(3394) - JVRP(4084) = 1 -! JVRP(4085) = dARP(2491)/dV(3394) - JVRP(4085) = V(5250) -! JVRP(4086) = dARP(2491)/dV(5250) - JVRP(4086) = V(3394) -! JVRP(4087) = dARP(2492)/dV(1634) - JVRP(4087) = 1 -! JVRP(4088) = dARP(2493)/dV(86) - JVRP(4088) = 1 -! JVRP(4089) = dARP(2494)/dV(4420) - JVRP(4089) = V(5250) -! JVRP(4090) = dARP(2494)/dV(5250) - JVRP(4090) = V(4420) -! JVRP(4091) = dARP(2495)/dV(4420) - JVRP(4091) = V(5250) -! JVRP(4092) = dARP(2495)/dV(5250) - JVRP(4092) = V(4420) -! JVRP(4093) = dARP(2496)/dV(4420) - JVRP(4093) = 1 -! JVRP(4094) = dARP(2497)/dV(4420) - JVRP(4094) = 1 -! JVRP(4095) = dARP(2498)/dV(2861) - JVRP(4095) = 1 -! JVRP(4096) = dARP(2499)/dV(987) - JVRP(4096) = V(5250) -! JVRP(4097) = dARP(2499)/dV(5250) - JVRP(4097) = V(987) -! JVRP(4098) = dARP(2500)/dV(987) - JVRP(4098) = 1 -! JVRP(4099) = dARP(2501)/dV(751) - JVRP(4099) = V(5250) -! JVRP(4100) = dARP(2501)/dV(5250) - JVRP(4100) = V(751) -! JVRP(4101) = dARP(2502)/dV(3003) - JVRP(4101) = V(5250) -! JVRP(4102) = dARP(2502)/dV(5250) - JVRP(4102) = V(3003) -! JVRP(4103) = dARP(2503)/dV(3003) - JVRP(4103) = 1 -! JVRP(4104) = dARP(2504)/dV(2188) - JVRP(4104) = 1 -! JVRP(4105) = dARP(2505)/dV(2188) - JVRP(4105) = V(5250) -! JVRP(4106) = dARP(2505)/dV(5250) - JVRP(4106) = V(2188) -! JVRP(4107) = dARP(2506)/dV(2188) - JVRP(4107) = V(5250) -! JVRP(4108) = dARP(2506)/dV(5250) - JVRP(4108) = V(2188) -! JVRP(4109) = dARP(2507)/dV(1749) - JVRP(4109) = 1 -! JVRP(4110) = dARP(2508)/dV(1749) - JVRP(4110) = V(5250) -! JVRP(4111) = dARP(2508)/dV(5250) - JVRP(4111) = V(1749) -! JVRP(4112) = dARP(2509)/dV(691) - JVRP(4112) = V(5250) -! JVRP(4113) = dARP(2509)/dV(5250) - JVRP(4113) = V(691) -! JVRP(4114) = dARP(2510)/dV(1500) - JVRP(4114) = V(5250) -! JVRP(4115) = dARP(2510)/dV(5250) - JVRP(4115) = V(1500) -! JVRP(4116) = dARP(2511)/dV(1500) - JVRP(4116) = 1 -! JVRP(4117) = dARP(2512)/dV(2537) - JVRP(4117) = V(5250) -! JVRP(4118) = dARP(2512)/dV(5250) - JVRP(4118) = V(2537) -! JVRP(4119) = dARP(2513)/dV(2537) - JVRP(4119) = 1 -! JVRP(4120) = dARP(2514)/dV(3540) - JVRP(4120) = V(5250) -! JVRP(4121) = dARP(2514)/dV(5250) - JVRP(4121) = V(3540) -! JVRP(4122) = dARP(2515)/dV(3540) - JVRP(4122) = V(5250) -! JVRP(4123) = dARP(2515)/dV(5250) - JVRP(4123) = V(3540) -! JVRP(4124) = dARP(2516)/dV(3540) - JVRP(4124) = 1 -! JVRP(4125) = dARP(2517)/dV(3540) - JVRP(4125) = 1 -! JVRP(4126) = dARP(2518)/dV(2077) - JVRP(4126) = V(5250) -! JVRP(4127) = dARP(2518)/dV(5250) - JVRP(4127) = V(2077) -! JVRP(4128) = dARP(2519)/dV(2077) - JVRP(4128) = 1 -! JVRP(4129) = dARP(2520)/dV(3383) - JVRP(4129) = 1 -! JVRP(4130) = dARP(2521)/dV(3383) - JVRP(4130) = 1 -! JVRP(4131) = dARP(2522)/dV(5242) - JVRP(4131) = V(5256) -! JVRP(4132) = dARP(2522)/dV(5256) - JVRP(4132) = V(5242) -! JVRP(4133) = dARP(2523)/dV(5242) - JVRP(4133) = V(5250) -! JVRP(4134) = dARP(2523)/dV(5250) - JVRP(4134) = V(5242) -! JVRP(4135) = dARP(2524)/dV(5242) - JVRP(4135) = 1 -! JVRP(4136) = dARP(2525)/dV(5055) - JVRP(4136) = 1 -! JVRP(4137) = dARP(2526)/dV(5055) - JVRP(4137) = V(5256) -! JVRP(4138) = dARP(2526)/dV(5256) - JVRP(4138) = V(5055) -! JVRP(4139) = dARP(2527)/dV(5055) - JVRP(4139) = V(5250) -! JVRP(4140) = dARP(2527)/dV(5250) - JVRP(4140) = V(5055) -! JVRP(4141) = dARP(2528)/dV(5055) - JVRP(4141) = V(5250) -! JVRP(4142) = dARP(2528)/dV(5250) - JVRP(4142) = V(5055) -! JVRP(4143) = dARP(2529)/dV(2292) - JVRP(4143) = 1 -! JVRP(4144) = dARP(2530)/dV(2292) - JVRP(4144) = V(5250) -! JVRP(4145) = dARP(2530)/dV(5250) - JVRP(4145) = V(2292) -! JVRP(4146) = dARP(2531)/dV(2292) - JVRP(4146) = V(5250) -! JVRP(4147) = dARP(2531)/dV(5250) - JVRP(4147) = V(2292) -! JVRP(4148) = dARP(2532)/dV(1974) - JVRP(4148) = 1 -! JVRP(4149) = dARP(2533)/dV(1974) - JVRP(4149) = V(5250) -! JVRP(4150) = dARP(2533)/dV(5250) - JVRP(4150) = V(1974) -! JVRP(4151) = dARP(2534)/dV(1695) - JVRP(4151) = 1 -! JVRP(4152) = dARP(2535)/dV(631) - JVRP(4152) = V(5250) -! JVRP(4153) = dARP(2535)/dV(5250) - JVRP(4153) = V(631) -! JVRP(4154) = dARP(2536)/dV(1466) - JVRP(4154) = V(5250) -! JVRP(4155) = dARP(2536)/dV(5250) - JVRP(4155) = V(1466) -! JVRP(4156) = dARP(2537)/dV(1466) - JVRP(4156) = 1 -! JVRP(4157) = dARP(2538)/dV(2612) - JVRP(4157) = V(5250) -! JVRP(4158) = dARP(2538)/dV(5250) - JVRP(4158) = V(2612) -! JVRP(4159) = dARP(2539)/dV(2612) - JVRP(4159) = 1 -! JVRP(4160) = dARP(2540)/dV(2463) - JVRP(4160) = V(5250) -! JVRP(4161) = dARP(2540)/dV(5250) - JVRP(4161) = V(2463) -! JVRP(4162) = dARP(2541)/dV(2463) - JVRP(4162) = V(5250) -! JVRP(4163) = dARP(2541)/dV(5250) - JVRP(4163) = V(2463) -! JVRP(4164) = dARP(2542)/dV(2463) - JVRP(4164) = 1 -! JVRP(4165) = dARP(2543)/dV(2338) - JVRP(4165) = V(5250) -! JVRP(4166) = dARP(2543)/dV(5250) - JVRP(4166) = V(2338) -! JVRP(4167) = dARP(2544)/dV(2338) - JVRP(4167) = 1 -! JVRP(4168) = dARP(2545)/dV(1702) - JVRP(4168) = 1 -! JVRP(4169) = dARP(2546)/dV(3995) - JVRP(4169) = V(5256) -! JVRP(4170) = dARP(2546)/dV(5256) - JVRP(4170) = V(3995) -! JVRP(4171) = dARP(2547)/dV(3995) - JVRP(4171) = V(5250) -! JVRP(4172) = dARP(2547)/dV(5250) - JVRP(4172) = V(3995) -! JVRP(4173) = dARP(2548)/dV(3995) - JVRP(4173) = 1 -! JVRP(4174) = dARP(2549)/dV(2993) - JVRP(4174) = V(5250) -! JVRP(4175) = dARP(2549)/dV(5250) - JVRP(4175) = V(2993) -! JVRP(4176) = dARP(2550)/dV(2993) - JVRP(4176) = 1 -! JVRP(4177) = dARP(2551)/dV(2993) - JVRP(4177) = 1 -! JVRP(4178) = dARP(2552)/dV(2992) - JVRP(4178) = 1 -! JVRP(4179) = dARP(2553)/dV(2126) - JVRP(4179) = 1 -! JVRP(4180) = dARP(2554)/dV(2126) - JVRP(4180) = V(5250) -! JVRP(4181) = dARP(2554)/dV(5250) - JVRP(4181) = V(2126) -! JVRP(4182) = dARP(2555)/dV(2126) - JVRP(4182) = V(5250) -! JVRP(4183) = dARP(2555)/dV(5250) - JVRP(4183) = V(2126) -! JVRP(4184) = dARP(2556)/dV(2427) - JVRP(4184) = 1 -! JVRP(4185) = dARP(2557)/dV(2427) - JVRP(4185) = V(5250) -! JVRP(4186) = dARP(2557)/dV(5250) - JVRP(4186) = V(2427) -! JVRP(4187) = dARP(2558)/dV(1662) - JVRP(4187) = 1 -! JVRP(4188) = dARP(2559)/dV(611) - JVRP(4188) = V(5250) -! JVRP(4189) = dARP(2559)/dV(5250) - JVRP(4189) = V(611) -! JVRP(4190) = dARP(2560)/dV(1332) - JVRP(4190) = V(5250) -! JVRP(4191) = dARP(2560)/dV(5250) - JVRP(4191) = V(1332) -! JVRP(4192) = dARP(2561)/dV(1332) - JVRP(4192) = 1 -! JVRP(4193) = dARP(2562)/dV(2611) - JVRP(4193) = V(5250) -! JVRP(4194) = dARP(2562)/dV(5250) - JVRP(4194) = V(2611) -! JVRP(4195) = dARP(2563)/dV(2611) - JVRP(4195) = 1 -! JVRP(4196) = dARP(2564)/dV(1880) - JVRP(4196) = V(5250) -! JVRP(4197) = dARP(2564)/dV(5250) - JVRP(4197) = V(1880) -! JVRP(4198) = dARP(2565)/dV(1880) - JVRP(4198) = V(5250) -! JVRP(4199) = dARP(2565)/dV(5250) - JVRP(4199) = V(1880) -! JVRP(4200) = dARP(2566)/dV(1880) - JVRP(4200) = 1 -! JVRP(4201) = dARP(2567)/dV(2106) - JVRP(4201) = V(5250) -! JVRP(4202) = dARP(2567)/dV(5250) - JVRP(4202) = V(2106) -! JVRP(4203) = dARP(2568)/dV(2106) - JVRP(4203) = 1 -! JVRP(4204) = dARP(2569)/dV(1725) - JVRP(4204) = 1 -! JVRP(4205) = dARP(2570)/dV(5143) - JVRP(4205) = 1 -! JVRP(4206) = dARP(2571)/dV(5143) - JVRP(4206) = V(5256) -! JVRP(4207) = dARP(2571)/dV(5256) - JVRP(4207) = V(5143) -! JVRP(4208) = dARP(2572)/dV(5143) - JVRP(4208) = V(5250) -! JVRP(4209) = dARP(2572)/dV(5250) - JVRP(4209) = V(5143) -! JVRP(4210) = dARP(2573)/dV(2318) - JVRP(4210) = 1 -! JVRP(4211) = dARP(2574)/dV(2318) - JVRP(4211) = V(5250) -! JVRP(4212) = dARP(2574)/dV(5250) - JVRP(4212) = V(2318) -! JVRP(4213) = dARP(2575)/dV(2318) - JVRP(4213) = V(5250) -! JVRP(4214) = dARP(2575)/dV(5250) - JVRP(4214) = V(2318) -! JVRP(4215) = dARP(2576)/dV(1921) - JVRP(4215) = 1 -! JVRP(4216) = dARP(2577)/dV(1921) - JVRP(4216) = V(5250) -! JVRP(4217) = dARP(2577)/dV(5250) - JVRP(4217) = V(1921) -! JVRP(4218) = dARP(2578)/dV(2926) - JVRP(4218) = 1 -! JVRP(4219) = dARP(2579)/dV(2926) - JVRP(4219) = 1 -! JVRP(4220) = dARP(2580)/dV(3099) - JVRP(4220) = V(5250) -! JVRP(4221) = dARP(2580)/dV(5250) - JVRP(4221) = V(3099) -! JVRP(4222) = dARP(2581)/dV(3294) - JVRP(4222) = 1 -! JVRP(4223) = dARP(2582)/dV(3294) - JVRP(4223) = V(5250) -! JVRP(4224) = dARP(2582)/dV(5250) - JVRP(4224) = V(3294) -! JVRP(4225) = dARP(2583)/dV(3294) - JVRP(4225) = V(5250) -! JVRP(4226) = dARP(2583)/dV(5250) - JVRP(4226) = V(3294) -! JVRP(4227) = dARP(2584)/dV(3254) - JVRP(4227) = 1 -! JVRP(4228) = dARP(2585)/dV(3254) - JVRP(4228) = V(5250) -! JVRP(4229) = dARP(2585)/dV(5250) - JVRP(4229) = V(3254) -! JVRP(4230) = dARP(2586)/dV(875) - JVRP(4230) = V(5250) -! JVRP(4231) = dARP(2586)/dV(5250) - JVRP(4231) = V(875) -! JVRP(4232) = dARP(2587)/dV(875) - JVRP(4232) = 1 -! JVRP(4233) = dARP(2588)/dV(2526) - JVRP(4233) = 1 -! JVRP(4234) = dARP(2589)/dV(5023) - JVRP(4234) = 1 -! JVRP(4235) = dARP(2590)/dV(5023) - JVRP(4235) = V(5256) -! JVRP(4236) = dARP(2590)/dV(5256) - JVRP(4236) = V(5023) -! JVRP(4237) = dARP(2591)/dV(5023) - JVRP(4237) = V(5250) -! JVRP(4238) = dARP(2591)/dV(5250) - JVRP(4238) = V(5023) -! JVRP(4239) = dARP(2592)/dV(484) - JVRP(4239) = V(5250) -! JVRP(4240) = dARP(2592)/dV(5250) - JVRP(4240) = V(484) -! JVRP(4241) = dARP(2593)/dV(4708) - JVRP(4241) = V(5250) -! JVRP(4242) = dARP(2593)/dV(5250) - JVRP(4242) = V(4708) -! JVRP(4243) = dARP(2594)/dV(4708) - JVRP(4243) = 1 -! JVRP(4244) = dARP(2595)/dV(2627) - JVRP(4244) = V(5250) -! JVRP(4245) = dARP(2595)/dV(5250) - JVRP(4245) = V(2627) -! JVRP(4246) = dARP(2596)/dV(2627) - JVRP(4246) = 1 -! JVRP(4247) = dARP(2597)/dV(3587) - JVRP(4247) = 1 -! JVRP(4248) = dARP(2598)/dV(3587) - JVRP(4248) = V(5250) -! JVRP(4249) = dARP(2598)/dV(5250) - JVRP(4249) = V(3587) -! JVRP(4250) = dARP(2599)/dV(1013) - JVRP(4250) = 1 -! JVRP(4251) = dARP(2600)/dV(3809) - JVRP(4251) = 1 -! JVRP(4252) = dARP(2601)/dV(3809) - JVRP(4252) = 1 -! JVRP(4253) = dARP(2602)/dV(3809) - JVRP(4253) = 1 -! JVRP(4254) = dARP(2603)/dV(5170) - JVRP(4254) = V(5251) -! JVRP(4255) = dARP(2603)/dV(5251) - JVRP(4255) = V(5170) -! JVRP(4256) = dARP(2604)/dV(5170) - JVRP(4256) = V(5252) -! JVRP(4257) = dARP(2604)/dV(5252) - JVRP(4257) = V(5170) -! JVRP(4258) = dARP(2605)/dV(5170) - JVRP(4258) = V(5253) -! JVRP(4259) = dARP(2605)/dV(5253) - JVRP(4259) = V(5170) -! JVRP(4260) = dARP(2606)/dV(5170) - JVRP(4260) = V(5254) -! JVRP(4261) = dARP(2606)/dV(5254) - JVRP(4261) = V(5170) -! JVRP(4262) = dARP(2607)/dV(5170) - JVRP(4262) = 1 -! JVRP(4263) = dARP(2608)/dV(5170) - JVRP(4263) = 1 -! JVRP(4264) = dARP(2609)/dV(642) - JVRP(4264) = V(5250) -! JVRP(4265) = dARP(2609)/dV(5250) - JVRP(4265) = V(642) -! JVRP(4266) = dARP(2610)/dV(3448) - JVRP(4266) = 1 -! JVRP(4267) = dARP(2611)/dV(3448) - JVRP(4267) = V(5250) -! JVRP(4268) = dARP(2611)/dV(5250) - JVRP(4268) = V(3448) -! JVRP(4269) = dARP(2612)/dV(3448) - JVRP(4269) = V(5250) -! JVRP(4270) = dARP(2612)/dV(5250) - JVRP(4270) = V(3448) -! JVRP(4271) = dARP(2613)/dV(3448) - JVRP(4271) = V(5250) -! JVRP(4272) = dARP(2613)/dV(5250) - JVRP(4272) = V(3448) -! JVRP(4273) = dARP(2614)/dV(4330) - JVRP(4273) = 1 -! JVRP(4274) = dARP(2615)/dV(4330) - JVRP(4274) = V(5258) -! JVRP(4275) = dARP(2615)/dV(5258) - JVRP(4275) = V(4330) -! JVRP(4276) = dARP(2616)/dV(4330) - JVRP(4276) = V(5250) -! JVRP(4277) = dARP(2616)/dV(5250) - JVRP(4277) = V(4330) -! JVRP(4278) = dARP(2617)/dV(4330) - JVRP(4278) = V(5250) -! JVRP(4279) = dARP(2617)/dV(5250) - JVRP(4279) = V(4330) -! JVRP(4280) = dARP(2618)/dV(4330) - JVRP(4280) = V(5250) -! JVRP(4281) = dARP(2618)/dV(5250) - JVRP(4281) = V(4330) -! JVRP(4282) = dARP(2619)/dV(5156) - JVRP(4282) = V(5251) -! JVRP(4283) = dARP(2619)/dV(5251) - JVRP(4283) = V(5156) -! JVRP(4284) = dARP(2620)/dV(5156) - JVRP(4284) = V(5252) -! JVRP(4285) = dARP(2620)/dV(5252) - JVRP(4285) = V(5156) -! JVRP(4286) = dARP(2621)/dV(5156) - JVRP(4286) = V(5253) -! JVRP(4287) = dARP(2621)/dV(5253) - JVRP(4287) = V(5156) -! JVRP(4288) = dARP(2622)/dV(5156) - JVRP(4288) = V(5254) -! JVRP(4289) = dARP(2622)/dV(5254) - JVRP(4289) = V(5156) -! JVRP(4290) = dARP(2623)/dV(5156) - JVRP(4290) = 1 -! JVRP(4291) = dARP(2624)/dV(3330) - JVRP(4291) = 1 -! JVRP(4292) = dARP(2625)/dV(3330) - JVRP(4292) = 1 -! JVRP(4293) = dARP(2626)/dV(3330) - JVRP(4293) = V(5250) -! JVRP(4294) = dARP(2626)/dV(5250) - JVRP(4294) = V(3330) -! JVRP(4295) = dARP(2627)/dV(5221) - JVRP(4295) = V(5250) -! JVRP(4296) = dARP(2627)/dV(5250) - JVRP(4296) = V(5221) -! JVRP(4297) = dARP(2628)/dV(5221) - JVRP(4297) = V(5250) -! JVRP(4298) = dARP(2628)/dV(5250) - JVRP(4298) = V(5221) -! JVRP(4299) = dARP(2629)/dV(5221) - JVRP(4299) = 1 -! JVRP(4300) = dARP(2630)/dV(2004) - JVRP(4300) = 1 -! JVRP(4301) = dARP(2631)/dV(3993) - JVRP(4301) = 1 -! JVRP(4302) = dARP(2632)/dV(3993) - JVRP(4302) = V(5250) -! JVRP(4303) = dARP(2632)/dV(5250) - JVRP(4303) = V(3993) -! JVRP(4304) = dARP(2633)/dV(3462) - JVRP(4304) = V(5250) -! JVRP(4305) = dARP(2633)/dV(5250) - JVRP(4305) = V(3462) -! JVRP(4306) = dARP(2634)/dV(3462) - JVRP(4306) = 1 -! JVRP(4307) = dARP(2635)/dV(3462) - JVRP(4307) = 1 -! JVRP(4308) = dARP(2636)/dV(3929) - JVRP(4308) = 1 -! JVRP(4309) = dARP(2637)/dV(3929) - JVRP(4309) = V(5250) -! JVRP(4310) = dARP(2637)/dV(5250) - JVRP(4310) = V(3929) -! JVRP(4311) = dARP(2638)/dV(1866) - JVRP(4311) = 1 -! JVRP(4312) = dARP(2639)/dV(5094) - JVRP(4312) = V(5250) -! JVRP(4313) = dARP(2639)/dV(5250) - JVRP(4313) = V(5094) -! JVRP(4314) = dARP(2640)/dV(5094) - JVRP(4314) = 1 -! JVRP(4315) = dARP(2641)/dV(2873) - JVRP(4315) = V(5250) -! JVRP(4316) = dARP(2641)/dV(5250) - JVRP(4316) = V(2873) -! JVRP(4317) = dARP(2642)/dV(2873) - JVRP(4317) = 1 -! JVRP(4318) = dARP(2643)/dV(2346) - JVRP(4318) = V(5250) -! JVRP(4319) = dARP(2643)/dV(5250) - JVRP(4319) = V(2346) -! JVRP(4320) = dARP(2644)/dV(2811) - JVRP(4320) = V(5250) -! JVRP(4321) = dARP(2644)/dV(5250) - JVRP(4321) = V(2811) -! JVRP(4322) = dARP(2645)/dV(2811) - JVRP(4322) = 1 -! JVRP(4323) = dARP(2646)/dV(3660) - JVRP(4323) = V(5256) -! JVRP(4324) = dARP(2646)/dV(5256) - JVRP(4324) = V(3660) -! JVRP(4325) = dARP(2647)/dV(3660) - JVRP(4325) = V(5250) -! JVRP(4326) = dARP(2647)/dV(5250) - JVRP(4326) = V(3660) -! JVRP(4327) = dARP(2648)/dV(3660) - JVRP(4327) = 1 -! JVRP(4328) = dARP(2649)/dV(2734) - JVRP(4328) = 1 -! JVRP(4329) = dARP(2650)/dV(4156) - JVRP(4329) = V(5256) -! JVRP(4330) = dARP(2650)/dV(5256) - JVRP(4330) = V(4156) -! JVRP(4331) = dARP(2651)/dV(4156) - JVRP(4331) = V(5250) -! JVRP(4332) = dARP(2651)/dV(5250) - JVRP(4332) = V(4156) -! JVRP(4333) = dARP(2652)/dV(4156) - JVRP(4333) = 1 -! JVRP(4334) = dARP(2653)/dV(4156) - JVRP(4334) = 1 -! JVRP(4335) = dARP(2654)/dV(1853) - JVRP(4335) = V(5250) -! JVRP(4336) = dARP(2654)/dV(5250) - JVRP(4336) = V(1853) -! JVRP(4337) = dARP(2655)/dV(1853) - JVRP(4337) = 1 -! JVRP(4338) = dARP(2656)/dV(3654) - JVRP(4338) = V(5256) -! JVRP(4339) = dARP(2656)/dV(5256) - JVRP(4339) = V(3654) -! JVRP(4340) = dARP(2657)/dV(3654) - JVRP(4340) = V(5250) -! JVRP(4341) = dARP(2657)/dV(5250) - JVRP(4341) = V(3654) -! JVRP(4342) = dARP(2658)/dV(3654) - JVRP(4342) = 1 -! JVRP(4343) = dARP(2659)/dV(1011) - JVRP(4343) = 1 -! JVRP(4344) = dARP(2660)/dV(3520) - JVRP(4344) = V(5250) -! JVRP(4345) = dARP(2660)/dV(5250) - JVRP(4345) = V(3520) -! JVRP(4346) = dARP(2661)/dV(3520) - JVRP(4346) = 1 -! JVRP(4347) = dARP(2662)/dV(4943) - JVRP(4347) = V(5251) -! JVRP(4348) = dARP(2662)/dV(5251) - JVRP(4348) = V(4943) -! JVRP(4349) = dARP(2663)/dV(4943) - JVRP(4349) = V(5252) -! JVRP(4350) = dARP(2663)/dV(5252) - JVRP(4350) = V(4943) -! JVRP(4351) = dARP(2664)/dV(4943) - JVRP(4351) = V(5253) -! JVRP(4352) = dARP(2664)/dV(5253) - JVRP(4352) = V(4943) -! JVRP(4353) = dARP(2665)/dV(4943) - JVRP(4353) = V(5254) -! JVRP(4354) = dARP(2665)/dV(5254) - JVRP(4354) = V(4943) -! JVRP(4355) = dARP(2666)/dV(4943) - JVRP(4355) = 1 -! JVRP(4356) = dARP(2667)/dV(4943) - JVRP(4356) = 1 -! JVRP(4357) = dARP(2668)/dV(1185) - JVRP(4357) = V(5250) -! JVRP(4358) = dARP(2668)/dV(5250) - JVRP(4358) = V(1185) -! JVRP(4359) = dARP(2669)/dV(1185) - JVRP(4359) = 1 -! JVRP(4360) = dARP(2670)/dV(2795) - JVRP(4360) = 1 -! JVRP(4361) = dARP(2671)/dV(3044) - JVRP(4361) = V(5250) -! JVRP(4362) = dARP(2671)/dV(5250) - JVRP(4362) = V(3044) -! JVRP(4363) = dARP(2672)/dV(3044) - JVRP(4363) = 1 -! JVRP(4364) = dARP(2673)/dV(5210) - JVRP(4364) = 1 -! JVRP(4365) = dARP(2674)/dV(5210) - JVRP(4365) = V(5256) -! JVRP(4366) = dARP(2674)/dV(5256) - JVRP(4366) = V(5210) -! JVRP(4367) = dARP(2675)/dV(5210) - JVRP(4367) = V(5250) -! JVRP(4368) = dARP(2675)/dV(5250) - JVRP(4368) = V(5210) -! JVRP(4369) = dARP(2676)/dV(2805) - JVRP(4369) = V(5250) -! JVRP(4370) = dARP(2676)/dV(5250) - JVRP(4370) = V(2805) -! JVRP(4371) = dARP(2677)/dV(2805) - JVRP(4371) = 1 -! JVRP(4372) = dARP(2678)/dV(2805) - JVRP(4372) = 1 -! JVRP(4373) = dARP(2679)/dV(1872) - JVRP(4373) = 1 -! JVRP(4374) = dARP(2680)/dV(3171) - JVRP(4374) = V(5250) -! JVRP(4375) = dARP(2680)/dV(5250) - JVRP(4375) = V(3171) -! JVRP(4376) = dARP(2681)/dV(3171) - JVRP(4376) = 1 -! JVRP(4377) = dARP(2682)/dV(2435) - JVRP(4377) = V(5250) -! JVRP(4378) = dARP(2682)/dV(5250) - JVRP(4378) = V(2435) -! JVRP(4379) = dARP(2683)/dV(2435) - JVRP(4379) = V(5250) -! JVRP(4380) = dARP(2683)/dV(5250) - JVRP(4380) = V(2435) -! JVRP(4381) = dARP(2684)/dV(2435) - JVRP(4381) = 1 -! JVRP(4382) = dARP(2685)/dV(1946) - JVRP(4382) = V(5250) -! JVRP(4383) = dARP(2685)/dV(5250) - JVRP(4383) = V(1946) -! JVRP(4384) = dARP(2686)/dV(1946) - JVRP(4384) = 1 -! JVRP(4385) = dARP(2687)/dV(3429) - JVRP(4385) = 1 -! JVRP(4386) = dARP(2688)/dV(3429) - JVRP(4386) = 1 -! JVRP(4387) = dARP(2689)/dV(2339) - JVRP(4387) = 1 -! JVRP(4388) = dARP(2690)/dV(2339) - JVRP(4388) = V(5250) -! JVRP(4389) = dARP(2690)/dV(5250) - JVRP(4389) = V(2339) -! JVRP(4390) = dARP(2691)/dV(2339) - JVRP(4390) = V(5250) -! JVRP(4391) = dARP(2691)/dV(5250) - JVRP(4391) = V(2339) -! JVRP(4392) = dARP(2692)/dV(2237) - JVRP(4392) = 1 -! JVRP(4393) = dARP(2693)/dV(2237) - JVRP(4393) = V(5250) -! JVRP(4394) = dARP(2693)/dV(5250) - JVRP(4394) = V(2237) -! JVRP(4395) = dARP(2694)/dV(1715) - JVRP(4395) = 1 -! JVRP(4396) = dARP(2695)/dV(855) - JVRP(4396) = V(5250) -! JVRP(4397) = dARP(2695)/dV(5250) - JVRP(4397) = V(855) -! JVRP(4398) = dARP(2696)/dV(855) - JVRP(4398) = 1 -! JVRP(4399) = dARP(2697)/dV(2687) - JVRP(4399) = V(5250) -! JVRP(4400) = dARP(2697)/dV(5250) - JVRP(4400) = V(2687) -! JVRP(4401) = dARP(2698)/dV(2687) - JVRP(4401) = 1 -! JVRP(4402) = dARP(2699)/dV(2227) - JVRP(4402) = V(5250) -! JVRP(4403) = dARP(2699)/dV(5250) - JVRP(4403) = V(2227) -! JVRP(4404) = dARP(2700)/dV(2227) - JVRP(4404) = V(5250) -! JVRP(4405) = dARP(2700)/dV(5250) - JVRP(4405) = V(2227) -! JVRP(4406) = dARP(2701)/dV(2227) - JVRP(4406) = 1 -! JVRP(4407) = dARP(2702)/dV(2285) - JVRP(4407) = V(5250) -! JVRP(4408) = dARP(2702)/dV(5250) - JVRP(4408) = V(2285) -! JVRP(4409) = dARP(2703)/dV(2285) - JVRP(4409) = 1 -! JVRP(4410) = dARP(2704)/dV(160) - JVRP(4410) = 1 -! JVRP(4411) = dARP(2705)/dV(345) - JVRP(4411) = V(5250) -! JVRP(4412) = dARP(2705)/dV(5250) - JVRP(4412) = V(345) -! JVRP(4413) = dARP(2706)/dV(2057) - JVRP(4413) = V(5250) -! JVRP(4414) = dARP(2706)/dV(5250) - JVRP(4414) = V(2057) -! JVRP(4415) = dARP(2707)/dV(2057) - JVRP(4415) = V(5250) -! JVRP(4416) = dARP(2707)/dV(5250) - JVRP(4416) = V(2057) -! JVRP(4417) = dARP(2708)/dV(2057) - JVRP(4417) = 1 -! JVRP(4418) = dARP(2709)/dV(1965) - JVRP(4418) = V(5250) -! JVRP(4419) = dARP(2709)/dV(5250) - JVRP(4419) = V(1965) -! JVRP(4420) = dARP(2710)/dV(1965) - JVRP(4420) = 1 -! JVRP(4421) = dARP(2711)/dV(2699) - JVRP(4421) = 1 -! JVRP(4422) = dARP(2712)/dV(2699) - JVRP(4422) = 1 -! JVRP(4423) = dARP(2713)/dV(495) - JVRP(4423) = V(5250) -! JVRP(4424) = dARP(2713)/dV(5250) - JVRP(4424) = V(495) -! JVRP(4425) = dARP(2714)/dV(999) - JVRP(4425) = V(5250) -! JVRP(4426) = dARP(2714)/dV(5250) - JVRP(4426) = V(999) -! JVRP(4427) = dARP(2715)/dV(999) - JVRP(4427) = 1 -! JVRP(4428) = dARP(2716)/dV(2196) - JVRP(4428) = V(5250) -! JVRP(4429) = dARP(2716)/dV(5250) - JVRP(4429) = V(2196) -! JVRP(4430) = dARP(2717)/dV(2196) - JVRP(4430) = 1 -! JVRP(4431) = dARP(2718)/dV(3377) - JVRP(4431) = 1 -! JVRP(4432) = dARP(2719)/dV(3377) - JVRP(4432) = 1 -! JVRP(4433) = dARP(2720)/dV(1885) - JVRP(4433) = 1 -! JVRP(4434) = dARP(2721)/dV(1885) - JVRP(4434) = V(5250) -! JVRP(4435) = dARP(2721)/dV(5250) - JVRP(4435) = V(1885) -! JVRP(4436) = dARP(2722)/dV(1885) - JVRP(4436) = V(5250) -! JVRP(4437) = dARP(2722)/dV(5250) - JVRP(4437) = V(1885) -! JVRP(4438) = dARP(2723)/dV(2337) - JVRP(4438) = 1 -! JVRP(4439) = dARP(2724)/dV(2337) - JVRP(4439) = V(5250) -! JVRP(4440) = dARP(2724)/dV(5250) - JVRP(4440) = V(2337) -! JVRP(4441) = dARP(2725)/dV(3032) - JVRP(4441) = 1 -! JVRP(4442) = dARP(2726)/dV(3032) - JVRP(4442) = 1 -! JVRP(4443) = dARP(2727)/dV(2223) - JVRP(4443) = 1 -! JVRP(4444) = dARP(2728)/dV(2223) - JVRP(4444) = V(5250) -! JVRP(4445) = dARP(2728)/dV(5250) - JVRP(4445) = V(2223) -! JVRP(4446) = dARP(2729)/dV(2223) - JVRP(4446) = V(5250) -! JVRP(4447) = dARP(2729)/dV(5250) - JVRP(4447) = V(2223) -! JVRP(4448) = dARP(2730)/dV(2193) - JVRP(4448) = 1 -! JVRP(4449) = dARP(2731)/dV(2193) - JVRP(4449) = V(5250) -! JVRP(4450) = dARP(2731)/dV(5250) - JVRP(4450) = V(2193) -! JVRP(4451) = dARP(2732)/dV(3404) - JVRP(4451) = 1 -! JVRP(4452) = dARP(2733)/dV(3404) - JVRP(4452) = 1 -! JVRP(4453) = dARP(2734)/dV(1069) - JVRP(4453) = 1 -! JVRP(4454) = dARP(2735)/dV(1069) - JVRP(4454) = V(5250) -! JVRP(4455) = dARP(2735)/dV(5250) - JVRP(4455) = V(1069) -! JVRP(4456) = dARP(2736)/dV(3076) - JVRP(4456) = 1 -! JVRP(4457) = dARP(2737)/dV(3076) - JVRP(4457) = V(5250) -! JVRP(4458) = dARP(2737)/dV(5250) - JVRP(4458) = V(3076) -! JVRP(4459) = dARP(2738)/dV(2490) - JVRP(4459) = 1 -! JVRP(4460) = dARP(2739)/dV(2628) - JVRP(4460) = 1 -! JVRP(4461) = dARP(2740)/dV(2628) - JVRP(4461) = V(5250) -! JVRP(4462) = dARP(2740)/dV(5250) - JVRP(4462) = V(2628) -! JVRP(4463) = dARP(2741)/dV(2628) - JVRP(4463) = V(5250) -! JVRP(4464) = dARP(2741)/dV(5250) - JVRP(4464) = V(2628) -! JVRP(4465) = dARP(2742)/dV(2913) - JVRP(4465) = 1 -! JVRP(4466) = dARP(2743)/dV(2913) - JVRP(4466) = V(5250) -! JVRP(4467) = dARP(2743)/dV(5250) - JVRP(4467) = V(2913) -! JVRP(4468) = dARP(2744)/dV(1741) - JVRP(4468) = 1 -! JVRP(4469) = dARP(2745)/dV(304) - JVRP(4469) = V(5250) -! JVRP(4470) = dARP(2745)/dV(5250) - JVRP(4470) = V(304) -! JVRP(4471) = dARP(2746)/dV(4559) - JVRP(4471) = V(5256) -! JVRP(4472) = dARP(2746)/dV(5256) - JVRP(4472) = V(4559) -! JVRP(4473) = dARP(2747)/dV(4559) - JVRP(4473) = V(5250) -! JVRP(4474) = dARP(2747)/dV(5250) - JVRP(4474) = V(4559) -! JVRP(4475) = dARP(2748)/dV(4559) - JVRP(4475) = 1 -! JVRP(4476) = dARP(2749)/dV(2416) - JVRP(4476) = 1 -! JVRP(4477) = dARP(2750)/dV(2416) - JVRP(4477) = V(5250) -! JVRP(4478) = dARP(2750)/dV(5250) - JVRP(4478) = V(2416) -! JVRP(4479) = dARP(2751)/dV(2416) - JVRP(4479) = V(5250) -! JVRP(4480) = dARP(2751)/dV(5250) - JVRP(4480) = V(2416) -! JVRP(4481) = dARP(2752)/dV(1987) - JVRP(4481) = 1 -! JVRP(4482) = dARP(2753)/dV(1987) - JVRP(4482) = V(5250) -! JVRP(4483) = dARP(2753)/dV(5250) - JVRP(4483) = V(1987) -! JVRP(4484) = dARP(2754)/dV(155) - JVRP(4484) = 1 -! JVRP(4485) = dARP(2755)/dV(5162) - JVRP(4485) = 1 -! JVRP(4486) = dARP(2756)/dV(5162) - JVRP(4486) = 1 -! JVRP(4487) = dARP(2757)/dV(5162) - JVRP(4487) = V(5256) -! JVRP(4488) = dARP(2757)/dV(5256) - JVRP(4488) = V(5162) -! JVRP(4489) = dARP(2758)/dV(5162) - JVRP(4489) = V(5250) -! JVRP(4490) = dARP(2758)/dV(5250) - JVRP(4490) = V(5162) -! JVRP(4491) = dARP(2759)/dV(383) - JVRP(4491) = V(5250) -! JVRP(4492) = dARP(2759)/dV(5250) - JVRP(4492) = V(383) -! JVRP(4493) = dARP(2760)/dV(2422) - JVRP(4493) = 1 -! JVRP(4494) = dARP(2761)/dV(2422) - JVRP(4494) = V(5250) -! JVRP(4495) = dARP(2761)/dV(5250) - JVRP(4495) = V(2422) -! JVRP(4496) = dARP(2762)/dV(2422) - JVRP(4496) = V(5250) -! JVRP(4497) = dARP(2762)/dV(5250) - JVRP(4497) = V(2422) -! JVRP(4498) = dARP(2763)/dV(2086) - JVRP(4498) = 1 -! JVRP(4499) = dARP(2764)/dV(2086) - JVRP(4499) = V(5250) -! JVRP(4500) = dARP(2764)/dV(5250) - JVRP(4500) = V(2086) -! JVRP(4501) = dARP(2765)/dV(171) - JVRP(4501) = 1 -! JVRP(4502) = dARP(2766)/dV(228) - JVRP(4502) = V(5250) -! JVRP(4503) = dARP(2766)/dV(5250) - JVRP(4503) = V(228) -! JVRP(4504) = dARP(2767)/dV(1298) - JVRP(4504) = 1 -! JVRP(4505) = dARP(2768)/dV(1298) - JVRP(4505) = V(5250) -! JVRP(4506) = dARP(2768)/dV(5250) - JVRP(4506) = V(1298) -! JVRP(4507) = dARP(2769)/dV(2149) - JVRP(4507) = 1 -! JVRP(4508) = dARP(2770)/dV(2149) - JVRP(4508) = V(5250) -! JVRP(4509) = dARP(2770)/dV(5250) - JVRP(4509) = V(2149) -! JVRP(4510) = dARP(2771)/dV(2710) - JVRP(4510) = 1 -! JVRP(4511) = dARP(2772)/dV(2710) - JVRP(4511) = 1 -! JVRP(4512) = dARP(2773)/dV(380) - JVRP(4512) = V(5250) -! JVRP(4513) = dARP(2773)/dV(5250) - JVRP(4513) = V(380) -! JVRP(4514) = dARP(2774)/dV(1966) - JVRP(4514) = 1 -! JVRP(4515) = dARP(2775)/dV(1966) - JVRP(4515) = V(5250) -! JVRP(4516) = dARP(2775)/dV(5250) - JVRP(4516) = V(1966) -! JVRP(4517) = dARP(2776)/dV(1966) - JVRP(4517) = V(5250) -! JVRP(4518) = dARP(2776)/dV(5250) - JVRP(4518) = V(1966) -! JVRP(4519) = dARP(2777)/dV(2168) - JVRP(4519) = 1 -! JVRP(4520) = dARP(2778)/dV(2168) - JVRP(4520) = V(5250) -! JVRP(4521) = dARP(2778)/dV(5250) - JVRP(4521) = V(2168) -! JVRP(4522) = dARP(2779)/dV(202) - JVRP(4522) = 1 -! JVRP(4523) = dARP(2780)/dV(3875) - JVRP(4523) = 1 -! JVRP(4524) = dARP(2781)/dV(3875) - JVRP(4524) = V(5256) -! JVRP(4525) = dARP(2781)/dV(5256) - JVRP(4525) = V(3875) -! JVRP(4526) = dARP(2782)/dV(3875) - JVRP(4526) = V(5250) -! JVRP(4527) = dARP(2782)/dV(5250) - JVRP(4527) = V(3875) -! JVRP(4528) = dARP(2783)/dV(242) - JVRP(4528) = V(5250) -! JVRP(4529) = dARP(2783)/dV(5250) - JVRP(4529) = V(242) -! JVRP(4530) = dARP(2784)/dV(1855) - JVRP(4530) = 1 -! JVRP(4531) = dARP(2785)/dV(1855) - JVRP(4531) = V(5250) -! JVRP(4532) = dARP(2785)/dV(5250) - JVRP(4532) = V(1855) -! JVRP(4533) = dARP(2786)/dV(1855) - JVRP(4533) = V(5250) -! JVRP(4534) = dARP(2786)/dV(5250) - JVRP(4534) = V(1855) -! JVRP(4535) = dARP(2787)/dV(2350) - JVRP(4535) = 1 -! JVRP(4536) = dARP(2788)/dV(2350) - JVRP(4536) = V(5250) -! JVRP(4537) = dARP(2788)/dV(5250) - JVRP(4537) = V(2350) -! JVRP(4538) = dARP(2789)/dV(2974) - JVRP(4538) = 1 -! JVRP(4539) = dARP(2790)/dV(2974) - JVRP(4539) = 1 -! JVRP(4540) = dARP(2791)/dV(424) - JVRP(4540) = V(5250) -! JVRP(4541) = dARP(2791)/dV(5250) - JVRP(4541) = V(424) -! JVRP(4542) = dARP(2792)/dV(2355) - JVRP(4542) = 1 -! JVRP(4543) = dARP(2793)/dV(2355) - JVRP(4543) = V(5250) -! JVRP(4544) = dARP(2793)/dV(5250) - JVRP(4544) = V(2355) -! JVRP(4545) = dARP(2794)/dV(2355) - JVRP(4545) = V(5250) -! JVRP(4546) = dARP(2794)/dV(5250) - JVRP(4546) = V(2355) -! JVRP(4547) = dARP(2795)/dV(2194) - JVRP(4547) = 1 -! JVRP(4548) = dARP(2796)/dV(2194) - JVRP(4548) = V(5250) -! JVRP(4549) = dARP(2796)/dV(5250) - JVRP(4549) = V(2194) -! JVRP(4550) = dARP(2797)/dV(3779) - JVRP(4550) = 1 -! JVRP(4551) = dARP(2798)/dV(3779) - JVRP(4551) = 1 -! JVRP(4552) = dARP(2799)/dV(3779) - JVRP(4552) = 1 -! JVRP(4553) = dARP(2800)/dV(4736) - JVRP(4553) = 1 -! JVRP(4554) = dARP(2801)/dV(4736) - JVRP(4554) = 1 -! JVRP(4555) = dARP(2802)/dV(4736) - JVRP(4555) = V(5250) -! JVRP(4556) = dARP(2802)/dV(5250) - JVRP(4556) = V(4736) -! JVRP(4557) = dARP(2803)/dV(4736) - JVRP(4557) = V(5250) -! JVRP(4558) = dARP(2803)/dV(5250) - JVRP(4558) = V(4736) -! JVRP(4559) = dARP(2804)/dV(316) - JVRP(4559) = V(5250) -! JVRP(4560) = dARP(2804)/dV(5250) - JVRP(4560) = V(316) -! JVRP(4561) = dARP(2805)/dV(1488) - JVRP(4561) = 1 -! JVRP(4562) = dARP(2806)/dV(1488) - JVRP(4562) = V(5250) -! JVRP(4563) = dARP(2806)/dV(5250) - JVRP(4563) = V(1488) -! JVRP(4564) = dARP(2807)/dV(2610) - JVRP(4564) = 1 -! JVRP(4565) = dARP(2808)/dV(2610) - JVRP(4565) = V(5250) -! JVRP(4566) = dARP(2808)/dV(5250) - JVRP(4566) = V(2610) -! JVRP(4567) = dARP(2809)/dV(2933) - JVRP(4567) = 1 -! JVRP(4568) = dARP(2810)/dV(2933) - JVRP(4568) = 1 -! JVRP(4569) = dARP(2811)/dV(144) - JVRP(4569) = V(5250) -! JVRP(4570) = dARP(2811)/dV(5250) - JVRP(4570) = V(144) -! JVRP(4571) = dARP(2812)/dV(1751) - JVRP(4571) = 1 -! JVRP(4572) = dARP(2813)/dV(1751) - JVRP(4572) = V(5250) -! JVRP(4573) = dARP(2813)/dV(5250) - JVRP(4573) = V(1751) -! JVRP(4574) = dARP(2814)/dV(1751) - JVRP(4574) = V(5250) -! JVRP(4575) = dARP(2814)/dV(5250) - JVRP(4575) = V(1751) -! JVRP(4576) = dARP(2815)/dV(2277) - JVRP(4576) = 1 -! JVRP(4577) = dARP(2816)/dV(2277) - JVRP(4577) = V(5250) -! JVRP(4578) = dARP(2816)/dV(5250) - JVRP(4578) = V(2277) -! JVRP(4579) = dARP(2817)/dV(165) - JVRP(4579) = 1 -! JVRP(4580) = dARP(2818)/dV(3851) - JVRP(4580) = 1 -! JVRP(4581) = dARP(2819)/dV(3851) - JVRP(4581) = V(5256) -! JVRP(4582) = dARP(2819)/dV(5256) - JVRP(4582) = V(3851) -! JVRP(4583) = dARP(2820)/dV(3851) - JVRP(4583) = V(5250) -! JVRP(4584) = dARP(2820)/dV(5250) - JVRP(4584) = V(3851) -! JVRP(4585) = dARP(2821)/dV(349) - JVRP(4585) = V(5250) -! JVRP(4586) = dARP(2821)/dV(5250) - JVRP(4586) = V(349) -! JVRP(4587) = dARP(2822)/dV(1753) - JVRP(4587) = 1 -! JVRP(4588) = dARP(2823)/dV(1753) - JVRP(4588) = V(5250) -! JVRP(4589) = dARP(2823)/dV(5250) - JVRP(4589) = V(1753) -! JVRP(4590) = dARP(2824)/dV(1753) - JVRP(4590) = V(5250) -! JVRP(4591) = dARP(2824)/dV(5250) - JVRP(4591) = V(1753) -! JVRP(4592) = dARP(2825)/dV(2246) - JVRP(4592) = 1 -! JVRP(4593) = dARP(2826)/dV(2246) - JVRP(4593) = V(5250) -! JVRP(4594) = dARP(2826)/dV(5250) - JVRP(4594) = V(2246) -! JVRP(4595) = dARP(2827)/dV(2990) - JVRP(4595) = 1 -! JVRP(4596) = dARP(2828)/dV(2990) - JVRP(4596) = 1 -! JVRP(4597) = dARP(2829)/dV(3594) - JVRP(4597) = 1 -! JVRP(4598) = dARP(2830)/dV(3594) - JVRP(4598) = V(5250) -! JVRP(4599) = dARP(2830)/dV(5250) - JVRP(4599) = V(3594) -! JVRP(4600) = dARP(2831)/dV(3594) - JVRP(4600) = V(5250) -! JVRP(4601) = dARP(2831)/dV(5250) - JVRP(4601) = V(3594) -! JVRP(4602) = dARP(2832)/dV(504) - JVRP(4602) = V(5250) -! JVRP(4603) = dARP(2832)/dV(5250) - JVRP(4603) = V(504) -! JVRP(4604) = dARP(2833)/dV(980) - JVRP(4604) = 1 -! JVRP(4605) = dARP(2834)/dV(980) - JVRP(4605) = V(5250) -! JVRP(4606) = dARP(2834)/dV(5250) - JVRP(4606) = V(980) -! JVRP(4607) = dARP(2835)/dV(2839) - JVRP(4607) = 1 -! JVRP(4608) = dARP(2836)/dV(2839) - JVRP(4608) = V(5250) -! JVRP(4609) = dARP(2836)/dV(5250) - JVRP(4609) = V(2839) -! JVRP(4610) = dARP(2837)/dV(1962) - JVRP(4610) = 1 -! JVRP(4611) = dARP(2838)/dV(133) - JVRP(4611) = V(5250) -! JVRP(4612) = dARP(2838)/dV(5250) - JVRP(4612) = V(133) -! JVRP(4613) = dARP(2839)/dV(2409) - JVRP(4613) = 1 -! JVRP(4614) = dARP(2840)/dV(2409) - JVRP(4614) = V(5250) -! JVRP(4615) = dARP(2840)/dV(5250) - JVRP(4615) = V(2409) -! JVRP(4616) = dARP(2841)/dV(2409) - JVRP(4616) = V(5250) -! JVRP(4617) = dARP(2841)/dV(5250) - JVRP(4617) = V(2409) -! JVRP(4618) = dARP(2842)/dV(2199) - JVRP(4618) = 1 -! JVRP(4619) = dARP(2843)/dV(2199) - JVRP(4619) = V(5250) -! JVRP(4620) = dARP(2843)/dV(5250) - JVRP(4620) = V(2199) -! JVRP(4621) = dARP(2844)/dV(3333) - JVRP(4621) = 1 -! JVRP(4622) = dARP(2845)/dV(3333) - JVRP(4622) = 1 -! JVRP(4623) = dARP(2846)/dV(466) - JVRP(4623) = V(5250) -! JVRP(4624) = dARP(2846)/dV(5250) - JVRP(4624) = V(466) -! JVRP(4625) = dARP(2847)/dV(2264) - JVRP(4625) = 1 -! JVRP(4626) = dARP(2848)/dV(2264) - JVRP(4626) = V(5250) -! JVRP(4627) = dARP(2848)/dV(5250) - JVRP(4627) = V(2264) -! JVRP(4628) = dARP(2849)/dV(2264) - JVRP(4628) = V(5250) -! JVRP(4629) = dARP(2849)/dV(5250) - JVRP(4629) = V(2264) -! JVRP(4630) = dARP(2850)/dV(2169) - JVRP(4630) = 1 -! JVRP(4631) = dARP(2851)/dV(2169) - JVRP(4631) = V(5250) -! JVRP(4632) = dARP(2851)/dV(5250) - JVRP(4632) = V(2169) -! JVRP(4633) = dARP(2852)/dV(205) - JVRP(4633) = 1 -! JVRP(4634) = dARP(2853)/dV(3856) - JVRP(4634) = 1 -! JVRP(4635) = dARP(2854)/dV(3856) - JVRP(4635) = V(5256) -! JVRP(4636) = dARP(2854)/dV(5256) - JVRP(4636) = V(3856) -! JVRP(4637) = dARP(2855)/dV(3856) - JVRP(4637) = V(5250) -! JVRP(4638) = dARP(2855)/dV(5250) - JVRP(4638) = V(3856) -! JVRP(4639) = dARP(2856)/dV(338) - JVRP(4639) = V(5250) -! JVRP(4640) = dARP(2856)/dV(5250) - JVRP(4640) = V(338) -! JVRP(4641) = dARP(2857)/dV(2192) - JVRP(4641) = 1 -! JVRP(4642) = dARP(2858)/dV(2192) - JVRP(4642) = V(5250) -! JVRP(4643) = dARP(2858)/dV(5250) - JVRP(4643) = V(2192) -! JVRP(4644) = dARP(2859)/dV(2192) - JVRP(4644) = V(5250) -! JVRP(4645) = dARP(2859)/dV(5250) - JVRP(4645) = V(2192) -! JVRP(4646) = dARP(2860)/dV(2097) - JVRP(4646) = 1 -! JVRP(4647) = dARP(2861)/dV(2097) - JVRP(4647) = V(5250) -! JVRP(4648) = dARP(2861)/dV(5250) - JVRP(4648) = V(2097) -! JVRP(4649) = dARP(2862)/dV(2906) - JVRP(4649) = 1 -! JVRP(4650) = dARP(2863)/dV(2906) - JVRP(4650) = 1 -! JVRP(4651) = dARP(2864)/dV(3924) - JVRP(4651) = 1 -! JVRP(4652) = dARP(2865)/dV(3924) - JVRP(4652) = V(5256) -! JVRP(4653) = dARP(2865)/dV(5256) - JVRP(4653) = V(3924) -! JVRP(4654) = dARP(2866)/dV(3924) - JVRP(4654) = V(5250) -! JVRP(4655) = dARP(2866)/dV(5250) - JVRP(4655) = V(3924) -! JVRP(4656) = dARP(2867)/dV(308) - JVRP(4656) = V(5250) -! JVRP(4657) = dARP(2867)/dV(5250) - JVRP(4657) = V(308) -! JVRP(4658) = dARP(2868)/dV(1469) - JVRP(4658) = 1 -! JVRP(4659) = dARP(2869)/dV(1469) - JVRP(4659) = V(5250) -! JVRP(4660) = dARP(2869)/dV(5250) - JVRP(4660) = V(1469) -! JVRP(4661) = dARP(2870)/dV(1788) - JVRP(4661) = 1 -! JVRP(4662) = dARP(2871)/dV(1788) - JVRP(4662) = V(5250) -! JVRP(4663) = dARP(2871)/dV(5250) - JVRP(4663) = V(1788) -! JVRP(4664) = dARP(2872)/dV(1789) - JVRP(4664) = 1 -! JVRP(4665) = dARP(2873)/dV(64) - JVRP(4665) = V(5250) -! JVRP(4666) = dARP(2873)/dV(5250) - JVRP(4666) = V(64) -! JVRP(4667) = dARP(2874)/dV(2019) - JVRP(4667) = 1 -! JVRP(4668) = dARP(2875)/dV(2019) - JVRP(4668) = V(5250) -! JVRP(4669) = dARP(2875)/dV(5250) - JVRP(4669) = V(2019) -! JVRP(4670) = dARP(2876)/dV(2019) - JVRP(4670) = V(5250) -! JVRP(4671) = dARP(2876)/dV(5250) - JVRP(4671) = V(2019) -! JVRP(4672) = dARP(2877)/dV(2403) - JVRP(4672) = 1 -! JVRP(4673) = dARP(2878)/dV(2403) - JVRP(4673) = V(5250) -! JVRP(4674) = dARP(2878)/dV(5250) - JVRP(4674) = V(2403) -! JVRP(4675) = dARP(2879)/dV(2767) - JVRP(4675) = 1 -! JVRP(4676) = dARP(2880)/dV(2767) - JVRP(4676) = 1 -! JVRP(4677) = dARP(2881)/dV(339) - JVRP(4677) = V(5250) -! JVRP(4678) = dARP(2881)/dV(5250) - JVRP(4678) = V(339) -! JVRP(4679) = dARP(2882)/dV(3877) - JVRP(4679) = 1 -! JVRP(4680) = dARP(2883)/dV(3877) - JVRP(4680) = V(5256) -! JVRP(4681) = dARP(2883)/dV(5256) - JVRP(4681) = V(3877) -! JVRP(4682) = dARP(2884)/dV(3877) - JVRP(4682) = V(5250) -! JVRP(4683) = dARP(2884)/dV(5250) - JVRP(4683) = V(3877) -! JVRP(4684) = dARP(2885)/dV(1267) - JVRP(4684) = 1 -! JVRP(4685) = dARP(2886)/dV(1267) - JVRP(4685) = V(5250) -! JVRP(4686) = dARP(2886)/dV(5250) - JVRP(4686) = V(1267) -! JVRP(4687) = dARP(2887)/dV(1919) - JVRP(4687) = 1 -! JVRP(4688) = dARP(2888)/dV(1919) - JVRP(4688) = V(5250) -! JVRP(4689) = dARP(2888)/dV(5250) - JVRP(4689) = V(1919) -! JVRP(4690) = dARP(2889)/dV(161) - JVRP(4690) = 1 -! JVRP(4691) = dARP(2890)/dV(3118) - JVRP(4691) = 1 -! JVRP(4692) = dARP(2891)/dV(3118) - JVRP(4692) = V(5250) -! JVRP(4693) = dARP(2891)/dV(5250) - JVRP(4693) = V(3118) -! JVRP(4694) = dARP(2892)/dV(353) - JVRP(4694) = V(5250) -! JVRP(4695) = dARP(2892)/dV(5250) - JVRP(4695) = V(353) -! JVRP(4696) = dARP(2893)/dV(870) - JVRP(4696) = 1 -! JVRP(4697) = dARP(2894)/dV(870) - JVRP(4697) = V(5250) -! JVRP(4698) = dARP(2894)/dV(5250) - JVRP(4698) = V(870) -! JVRP(4699) = dARP(2895)/dV(2094) - JVRP(4699) = 1 -! JVRP(4700) = dARP(2896)/dV(2094) - JVRP(4700) = V(5250) -! JVRP(4701) = dARP(2896)/dV(5250) - JVRP(4701) = V(2094) -! JVRP(4702) = dARP(2897)/dV(184) - JVRP(4702) = 1 -! JVRP(4703) = dARP(2898)/dV(3168) - JVRP(4703) = 1 -! JVRP(4704) = dARP(2899)/dV(3168) - JVRP(4704) = V(5250) -! JVRP(4705) = dARP(2899)/dV(5250) - JVRP(4705) = V(3168) -! JVRP(4706) = dARP(2900)/dV(412) - JVRP(4706) = V(5250) -! JVRP(4707) = dARP(2900)/dV(5250) - JVRP(4707) = V(412) -! JVRP(4708) = dARP(2901)/dV(1207) - JVRP(4708) = 1 -! JVRP(4709) = dARP(2902)/dV(1207) - JVRP(4709) = V(5250) -! JVRP(4710) = dARP(2902)/dV(5250) - JVRP(4710) = V(1207) -! JVRP(4711) = dARP(2903)/dV(2534) - JVRP(4711) = 1 -! JVRP(4712) = dARP(2904)/dV(2534) - JVRP(4712) = V(5250) -! JVRP(4713) = dARP(2904)/dV(5250) - JVRP(4713) = V(2534) -! JVRP(4714) = dARP(2905)/dV(445) - JVRP(4714) = 1 -! JVRP(4715) = dARP(2906)/dV(34) - JVRP(4715) = V(5250) -! JVRP(4716) = dARP(2906)/dV(5250) - JVRP(4716) = V(34) -! JVRP(4717) = dARP(2907)/dV(1501) - JVRP(4717) = 1 -! JVRP(4718) = dARP(2908)/dV(1501) - JVRP(4718) = V(5250) -! JVRP(4719) = dARP(2908)/dV(5250) - JVRP(4719) = V(1501) -! JVRP(4720) = dARP(2909)/dV(1831) - JVRP(4720) = 1 -! JVRP(4721) = dARP(2910)/dV(1831) - JVRP(4721) = V(5250) -! JVRP(4722) = dARP(2910)/dV(5250) - JVRP(4722) = V(1831) -! JVRP(4723) = dARP(2911)/dV(166) - JVRP(4723) = 1 -! JVRP(4724) = dARP(2912)/dV(3109) - JVRP(4724) = 1 -! JVRP(4725) = dARP(2913)/dV(3109) - JVRP(4725) = V(5250) -! JVRP(4726) = dARP(2913)/dV(5250) - JVRP(4726) = V(3109) -! JVRP(4727) = dARP(2914)/dV(234) - JVRP(4727) = V(5250) -! JVRP(4728) = dARP(2914)/dV(5250) - JVRP(4728) = V(234) -! JVRP(4729) = dARP(2915)/dV(1082) - JVRP(4729) = 1 -! JVRP(4730) = dARP(2916)/dV(1082) - JVRP(4730) = V(5250) -! JVRP(4731) = dARP(2916)/dV(5250) - JVRP(4731) = V(1082) -! JVRP(4732) = dARP(2917)/dV(2964) - JVRP(4732) = 1 -! JVRP(4733) = dARP(2918)/dV(2964) - JVRP(4733) = V(5250) -! JVRP(4734) = dARP(2918)/dV(5250) - JVRP(4734) = V(2964) -! JVRP(4735) = dARP(2919)/dV(421) - JVRP(4735) = 1 -! JVRP(4736) = dARP(2920)/dV(139) - JVRP(4736) = V(5250) -! JVRP(4737) = dARP(2920)/dV(5250) - JVRP(4737) = V(139) -! JVRP(4738) = dARP(2921)/dV(1491) - JVRP(4738) = 1 -! JVRP(4739) = dARP(2922)/dV(1491) - JVRP(4739) = V(5250) -! JVRP(4740) = dARP(2922)/dV(5250) - JVRP(4740) = V(1491) -! JVRP(4741) = dARP(2923)/dV(2161) - JVRP(4741) = 1 -! JVRP(4742) = dARP(2924)/dV(2161) - JVRP(4742) = V(5250) -! JVRP(4743) = dARP(2924)/dV(5250) - JVRP(4743) = V(2161) -! JVRP(4744) = dARP(2925)/dV(177) - JVRP(4744) = 1 -! JVRP(4745) = dARP(2926)/dV(3148) - JVRP(4745) = 1 -! JVRP(4746) = dARP(2927)/dV(3148) - JVRP(4746) = V(5250) -! JVRP(4747) = dARP(2927)/dV(5250) - JVRP(4747) = V(3148) -! JVRP(4748) = dARP(2928)/dV(269) - JVRP(4748) = V(5250) -! JVRP(4749) = dARP(2928)/dV(5250) - JVRP(4749) = V(269) -! JVRP(4750) = dARP(2929)/dV(1259) - JVRP(4750) = 1 -! JVRP(4751) = dARP(2930)/dV(1259) - JVRP(4751) = V(5250) -! JVRP(4752) = dARP(2930)/dV(5250) - JVRP(4752) = V(1259) -! JVRP(4753) = dARP(2931)/dV(2216) - JVRP(4753) = 1 -! JVRP(4754) = dARP(2932)/dV(2216) - JVRP(4754) = V(5250) -! JVRP(4755) = dARP(2932)/dV(5250) - JVRP(4755) = V(2216) -! JVRP(4756) = dARP(2933)/dV(197) - JVRP(4756) = 1 -! JVRP(4757) = dARP(2934)/dV(3117) - JVRP(4757) = 1 -! JVRP(4758) = dARP(2935)/dV(3117) - JVRP(4758) = V(5250) -! JVRP(4759) = dARP(2935)/dV(5250) - JVRP(4759) = V(3117) -! JVRP(4760) = dARP(2936)/dV(453) - JVRP(4760) = V(5250) -! JVRP(4761) = dARP(2936)/dV(5250) - JVRP(4761) = V(453) -! JVRP(4762) = dARP(2937)/dV(1079) - JVRP(4762) = 1 -! JVRP(4763) = dARP(2938)/dV(1079) - JVRP(4763) = V(5250) -! JVRP(4764) = dARP(2938)/dV(5250) - JVRP(4764) = V(1079) -! JVRP(4765) = dARP(2939)/dV(1824) - JVRP(4765) = 1 -! JVRP(4766) = dARP(2940)/dV(1824) - JVRP(4766) = V(5250) -! JVRP(4767) = dARP(2940)/dV(5250) - JVRP(4767) = V(1824) -! JVRP(4768) = dARP(2941)/dV(192) - JVRP(4768) = 1 -! JVRP(4769) = dARP(2942)/dV(3166) - JVRP(4769) = 1 -! JVRP(4770) = dARP(2943)/dV(3166) - JVRP(4770) = V(5250) -! JVRP(4771) = dARP(2943)/dV(5250) - JVRP(4771) = V(3166) -! JVRP(4772) = dARP(2944)/dV(486) - JVRP(4772) = V(5250) -! JVRP(4773) = dARP(2944)/dV(5250) - JVRP(4773) = V(486) -! JVRP(4774) = dARP(2945)/dV(1052) - JVRP(4774) = V(5250) -! JVRP(4775) = dARP(2945)/dV(5250) - JVRP(4775) = V(1052) -! JVRP(4776) = dARP(2946)/dV(1052) - JVRP(4776) = 1 -! JVRP(4777) = dARP(2947)/dV(2432) - JVRP(4777) = V(5250) -! JVRP(4778) = dARP(2947)/dV(5250) - JVRP(4778) = V(2432) -! JVRP(4779) = dARP(2948)/dV(2432) - JVRP(4779) = 1 -! JVRP(4780) = dARP(2949)/dV(186) - JVRP(4780) = 1 -! JVRP(4781) = dARP(2950)/dV(3091) - JVRP(4781) = V(5250) -! JVRP(4782) = dARP(2950)/dV(5250) - JVRP(4782) = V(3091) -! JVRP(4783) = dARP(2951)/dV(3091) - JVRP(4783) = 1 -! JVRP(4784) = dARP(2952)/dV(460) - JVRP(4784) = V(5250) -! JVRP(4785) = dARP(2952)/dV(5250) - JVRP(4785) = V(460) -! JVRP(4786) = dARP(2953)/dV(848) - JVRP(4786) = 1 -! JVRP(4787) = dARP(2954)/dV(848) - JVRP(4787) = V(5250) -! JVRP(4788) = dARP(2954)/dV(5250) - JVRP(4788) = V(848) -! JVRP(4789) = dARP(2955)/dV(2113) - JVRP(4789) = 1 -! JVRP(4790) = dARP(2956)/dV(2113) - JVRP(4790) = V(5250) -! JVRP(4791) = dARP(2956)/dV(5250) - JVRP(4791) = V(2113) -! JVRP(4792) = dARP(2957)/dV(196) - JVRP(4792) = 1 -! JVRP(4793) = dARP(2958)/dV(3110) - JVRP(4793) = 1 -! JVRP(4794) = dARP(2959)/dV(3110) - JVRP(4794) = V(5250) -! JVRP(4795) = dARP(2959)/dV(5250) - JVRP(4795) = V(3110) -! JVRP(4796) = dARP(2960)/dV(429) - JVRP(4796) = V(5250) -! JVRP(4797) = dARP(2960)/dV(5250) - JVRP(4797) = V(429) -! JVRP(4798) = dARP(2961)/dV(1235) - JVRP(4798) = 1 -! JVRP(4799) = dARP(2962)/dV(1235) - JVRP(4799) = V(5250) -! JVRP(4800) = dARP(2962)/dV(5250) - JVRP(4800) = V(1235) -! JVRP(4801) = dARP(2963)/dV(2020) - JVRP(4801) = 1 -! JVRP(4802) = dARP(2964)/dV(2020) - JVRP(4802) = V(5250) -! JVRP(4803) = dARP(2964)/dV(5250) - JVRP(4803) = V(2020) -! JVRP(4804) = dARP(2965)/dV(2922) - JVRP(4804) = 1 -! JVRP(4805) = dARP(2966)/dV(2922) - JVRP(4805) = 1 -! JVRP(4806) = dARP(2967)/dV(1849) - JVRP(4806) = V(5250) -! JVRP(4807) = dARP(2967)/dV(5250) - JVRP(4807) = V(1849) -! JVRP(4808) = dARP(2968)/dV(1849) - JVRP(4808) = V(5250) -! JVRP(4809) = dARP(2968)/dV(5250) - JVRP(4809) = V(1849) -! JVRP(4810) = dARP(2969)/dV(1849) - JVRP(4810) = 1 -! JVRP(4811) = dARP(2970)/dV(3351) - JVRP(4811) = 1 -! JVRP(4812) = dARP(2971)/dV(3351) - JVRP(4812) = 1 -! JVRP(4813) = dARP(2972)/dV(5180) - JVRP(4813) = V(5256) -! JVRP(4814) = dARP(2972)/dV(5256) - JVRP(4814) = V(5180) -! JVRP(4815) = dARP(2973)/dV(5180) - JVRP(4815) = V(5250) -! JVRP(4816) = dARP(2973)/dV(5250) - JVRP(4816) = V(5180) -! JVRP(4817) = dARP(2974)/dV(5180) - JVRP(4817) = 1 -! JVRP(4818) = dARP(2975)/dV(1859) - JVRP(4818) = V(5250) -! JVRP(4819) = dARP(2975)/dV(5250) - JVRP(4819) = V(1859) -! JVRP(4820) = dARP(2976)/dV(1859) - JVRP(4820) = V(5250) -! JVRP(4821) = dARP(2976)/dV(5250) - JVRP(4821) = V(1859) -! JVRP(4822) = dARP(2977)/dV(1859) - JVRP(4822) = 1 -! JVRP(4823) = dARP(2978)/dV(3585) - JVRP(4823) = 1 -! JVRP(4824) = dARP(2979)/dV(3585) - JVRP(4824) = 1 -! JVRP(4825) = dARP(2980)/dV(4845) - JVRP(4825) = V(5256) -! JVRP(4826) = dARP(2980)/dV(5256) - JVRP(4826) = V(4845) -! JVRP(4827) = dARP(2981)/dV(4845) - JVRP(4827) = V(5250) -! JVRP(4828) = dARP(2981)/dV(5250) - JVRP(4828) = V(4845) -! JVRP(4829) = dARP(2982)/dV(4845) - JVRP(4829) = 1 -! JVRP(4830) = dARP(2983)/dV(2442) - JVRP(4830) = V(5250) -! JVRP(4831) = dARP(2983)/dV(5250) - JVRP(4831) = V(2442) -! JVRP(4832) = dARP(2984)/dV(2442) - JVRP(4832) = V(5250) -! JVRP(4833) = dARP(2984)/dV(5250) - JVRP(4833) = V(2442) -! JVRP(4834) = dARP(2985)/dV(2442) - JVRP(4834) = 1 -! JVRP(4835) = dARP(2986)/dV(3577) - JVRP(4835) = 1 -! JVRP(4836) = dARP(2987)/dV(3577) - JVRP(4836) = 1 -! JVRP(4837) = dARP(2988)/dV(4909) - JVRP(4837) = V(5250) -! JVRP(4838) = dARP(2988)/dV(5250) - JVRP(4838) = V(4909) -! JVRP(4839) = dARP(2989)/dV(4909) - JVRP(4839) = 1 -! JVRP(4840) = dARP(2990)/dV(1302) - JVRP(4840) = V(5250) -! JVRP(4841) = dARP(2990)/dV(5250) - JVRP(4841) = V(1302) -! JVRP(4842) = dARP(2991)/dV(1302) - JVRP(4842) = 1 -! JVRP(4843) = dARP(2992)/dV(3942) - JVRP(4843) = 1 -! JVRP(4844) = dARP(2993)/dV(3942) - JVRP(4844) = 1 -! JVRP(4845) = dARP(2994)/dV(3077) - JVRP(4845) = V(5250) -! JVRP(4846) = dARP(2994)/dV(5250) - JVRP(4846) = V(3077) -! JVRP(4847) = dARP(2995)/dV(3077) - JVRP(4847) = 1 -! JVRP(4848) = dARP(2996)/dV(1785) - JVRP(4848) = V(5250) -! JVRP(4849) = dARP(2996)/dV(5250) - JVRP(4849) = V(1785) -! JVRP(4850) = dARP(2997)/dV(1063) - JVRP(4850) = V(5250) -! JVRP(4851) = dARP(2997)/dV(5250) - JVRP(4851) = V(1063) -! JVRP(4852) = dARP(2998)/dV(1063) - JVRP(4852) = 1 -! JVRP(4853) = dARP(2999)/dV(3934) - JVRP(4853) = 1 -! JVRP(4854) = dARP(3000)/dV(3934) - JVRP(4854) = 1 -! JVRP(4855) = dARP(3001)/dV(3302) - JVRP(4855) = V(5250) -! JVRP(4856) = dARP(3001)/dV(5250) - JVRP(4856) = V(3302) -! JVRP(4857) = dARP(3002)/dV(3302) - JVRP(4857) = 1 -! JVRP(4858) = dARP(3003)/dV(3302) - JVRP(4858) = 1 -! JVRP(4859) = dARP(3004)/dV(4941) - JVRP(4859) = V(5251) -! JVRP(4860) = dARP(3004)/dV(5251) - JVRP(4860) = V(4941) -! JVRP(4861) = dARP(3005)/dV(4941) - JVRP(4861) = V(5252) -! JVRP(4862) = dARP(3005)/dV(5252) - JVRP(4862) = V(4941) -! JVRP(4863) = dARP(3006)/dV(4941) - JVRP(4863) = V(5253) -! JVRP(4864) = dARP(3006)/dV(5253) - JVRP(4864) = V(4941) -! JVRP(4865) = dARP(3007)/dV(4941) - JVRP(4865) = V(5254) -! JVRP(4866) = dARP(3007)/dV(5254) - JVRP(4866) = V(4941) -! JVRP(4867) = dARP(3008)/dV(4941) - JVRP(4867) = 1 -! JVRP(4868) = dARP(3009)/dV(4941) - JVRP(4868) = 1 -! JVRP(4869) = dARP(3010)/dV(3208) - JVRP(4869) = V(5250) -! JVRP(4870) = dARP(3010)/dV(5250) - JVRP(4870) = V(3208) -! JVRP(4871) = dARP(3011)/dV(3208) - JVRP(4871) = V(5250) -! JVRP(4872) = dARP(3011)/dV(5250) - JVRP(4872) = V(3208) -! JVRP(4873) = dARP(3012)/dV(3208) - JVRP(4873) = 1 -! JVRP(4874) = dARP(3013)/dV(2012) - JVRP(4874) = 1 -! JVRP(4875) = dARP(3014)/dV(5067) - JVRP(4875) = V(5256) -! JVRP(4876) = dARP(3014)/dV(5256) - JVRP(4876) = V(5067) -! JVRP(4877) = dARP(3015)/dV(5067) - JVRP(4877) = V(5250) -! JVRP(4878) = dARP(3015)/dV(5250) - JVRP(4878) = V(5067) -! JVRP(4879) = dARP(3016)/dV(5067) - JVRP(4879) = 1 -! JVRP(4880) = dARP(3017)/dV(1141) - JVRP(4880) = V(5250) -! JVRP(4881) = dARP(3017)/dV(5250) - JVRP(4881) = V(1141) -! JVRP(4882) = dARP(3018)/dV(1141) - JVRP(4882) = 1 -! JVRP(4883) = dARP(3019)/dV(3767) - JVRP(4883) = 1 -! JVRP(4884) = dARP(3020)/dV(3767) - JVRP(4884) = 1 -! JVRP(4885) = dARP(3021)/dV(3328) - JVRP(4885) = V(5250) -! JVRP(4886) = dARP(3021)/dV(5250) - JVRP(4886) = V(3328) -! JVRP(4887) = dARP(3022)/dV(3328) - JVRP(4887) = 1 -! JVRP(4888) = dARP(3023)/dV(1288) - JVRP(4888) = V(5250) -! JVRP(4889) = dARP(3023)/dV(5250) - JVRP(4889) = V(1288) -! JVRP(4890) = dARP(3024)/dV(1288) - JVRP(4890) = 1 -! JVRP(4891) = dARP(3025)/dV(2502) - JVRP(4891) = 1 -! JVRP(4892) = dARP(3026)/dV(1300) - JVRP(4892) = V(5250) -! JVRP(4893) = dARP(3026)/dV(5250) - JVRP(4893) = V(1300) -! JVRP(4894) = dARP(3027)/dV(1300) - JVRP(4894) = 1 -! JVRP(4895) = dARP(3028)/dV(3598) - JVRP(4895) = 1 -! JVRP(4896) = dARP(3029)/dV(3598) - JVRP(4896) = 1 -! JVRP(4897) = dARP(3030)/dV(4108) - JVRP(4897) = V(5256) -! JVRP(4898) = dARP(3030)/dV(5256) - JVRP(4898) = V(4108) -! JVRP(4899) = dARP(3031)/dV(4108) - JVRP(4899) = V(5250) -! JVRP(4900) = dARP(3031)/dV(5250) - JVRP(4900) = V(4108) -! JVRP(4901) = dARP(3032)/dV(4108) - JVRP(4901) = 1 -! JVRP(4902) = dARP(3033)/dV(4108) - JVRP(4902) = 1 -! JVRP(4903) = dARP(3034)/dV(4544) - JVRP(4903) = V(5251) -! JVRP(4904) = dARP(3034)/dV(5251) - JVRP(4904) = V(4544) -! JVRP(4905) = dARP(3035)/dV(4544) - JVRP(4905) = V(5252) -! JVRP(4906) = dARP(3035)/dV(5252) - JVRP(4906) = V(4544) -! JVRP(4907) = dARP(3036)/dV(4544) - JVRP(4907) = V(5253) -! JVRP(4908) = dARP(3036)/dV(5253) - JVRP(4908) = V(4544) -! JVRP(4909) = dARP(3037)/dV(4544) - JVRP(4909) = V(5254) -! JVRP(4910) = dARP(3037)/dV(5254) - JVRP(4910) = V(4544) -! JVRP(4911) = dARP(3038)/dV(4544) - JVRP(4911) = 1 -! JVRP(4912) = dARP(3039)/dV(2394) - JVRP(4912) = V(5250) -! JVRP(4913) = dARP(3039)/dV(5250) - JVRP(4913) = V(2394) -! JVRP(4914) = dARP(3040)/dV(2394) - JVRP(4914) = V(5250) -! JVRP(4915) = dARP(3040)/dV(5250) - JVRP(4915) = V(2394) -! JVRP(4916) = dARP(3041)/dV(2394) - JVRP(4916) = 1 -! JVRP(4917) = dARP(3042)/dV(3878) - JVRP(4917) = 1 -! JVRP(4918) = dARP(3043)/dV(3878) - JVRP(4918) = 1 -! JVRP(4919) = dARP(3044)/dV(3399) - JVRP(4919) = V(5250) -! JVRP(4920) = dARP(3044)/dV(5250) - JVRP(4920) = V(3399) -! JVRP(4921) = dARP(3045)/dV(3399) - JVRP(4921) = 1 -! JVRP(4922) = dARP(3046)/dV(2278) - JVRP(4922) = V(5250) -! JVRP(4923) = dARP(3046)/dV(5250) - JVRP(4923) = V(2278) -! JVRP(4924) = dARP(3047)/dV(2179) - JVRP(4924) = V(5250) -! JVRP(4925) = dARP(3047)/dV(5250) - JVRP(4925) = V(2179) -! JVRP(4926) = dARP(3048)/dV(2179) - JVRP(4926) = V(5250) -! JVRP(4927) = dARP(3048)/dV(5250) - JVRP(4927) = V(2179) -! JVRP(4928) = dARP(3049)/dV(2179) - JVRP(4928) = 1 -! JVRP(4929) = dARP(3050)/dV(3572) - JVRP(4929) = 1 -! JVRP(4930) = dARP(3051)/dV(3572) - JVRP(4930) = 1 -! JVRP(4931) = dARP(3052)/dV(4174) - JVRP(4931) = V(5256) -! JVRP(4932) = dARP(3052)/dV(5256) - JVRP(4932) = V(4174) -! JVRP(4933) = dARP(3053)/dV(4174) - JVRP(4933) = V(5250) -! JVRP(4934) = dARP(3053)/dV(5250) - JVRP(4934) = V(4174) -! JVRP(4935) = dARP(3054)/dV(4174) - JVRP(4935) = 1 -! JVRP(4936) = dARP(3055)/dV(2441) - JVRP(4936) = V(5250) -! JVRP(4937) = dARP(3055)/dV(5250) - JVRP(4937) = V(2441) -! JVRP(4938) = dARP(3056)/dV(4956) - JVRP(4938) = V(5251) -! JVRP(4939) = dARP(3056)/dV(5251) - JVRP(4939) = V(4956) -! JVRP(4940) = dARP(3057)/dV(4956) - JVRP(4940) = V(5252) -! JVRP(4941) = dARP(3057)/dV(5252) - JVRP(4941) = V(4956) -! JVRP(4942) = dARP(3058)/dV(4956) - JVRP(4942) = V(5253) -! JVRP(4943) = dARP(3058)/dV(5253) - JVRP(4943) = V(4956) -! JVRP(4944) = dARP(3059)/dV(4956) - JVRP(4944) = V(5254) -! JVRP(4945) = dARP(3059)/dV(5254) - JVRP(4945) = V(4956) -! JVRP(4946) = dARP(3060)/dV(4956) - JVRP(4946) = 1 -! JVRP(4947) = dARP(3061)/dV(4956) - JVRP(4947) = 1 -! JVRP(4948) = dARP(3062)/dV(3289) - JVRP(4948) = V(5250) -! JVRP(4949) = dARP(3062)/dV(5250) - JVRP(4949) = V(3289) -! JVRP(4950) = dARP(3063)/dV(3289) - JVRP(4950) = V(5250) -! JVRP(4951) = dARP(3063)/dV(5250) - JVRP(4951) = V(3289) -! JVRP(4952) = dARP(3064)/dV(3289) - JVRP(4952) = 1 -! JVRP(4953) = dARP(3065)/dV(1877) - JVRP(4953) = 1 -! JVRP(4954) = dARP(3066)/dV(3561) - JVRP(4954) = V(5250) -! JVRP(4955) = dARP(3066)/dV(5250) - JVRP(4955) = V(3561) -! JVRP(4956) = dARP(3067)/dV(3561) - JVRP(4956) = 1 -! JVRP(4957) = dARP(3068)/dV(926) - JVRP(4957) = V(5250) -! JVRP(4958) = dARP(3068)/dV(5250) - JVRP(4958) = V(926) -! JVRP(4959) = dARP(3069)/dV(1778) - JVRP(4959) = V(5250) -! JVRP(4960) = dARP(3069)/dV(5250) - JVRP(4960) = V(1778) -! JVRP(4961) = dARP(3070)/dV(1778) - JVRP(4961) = V(5250) -! JVRP(4962) = dARP(3070)/dV(5250) - JVRP(4962) = V(1778) -! JVRP(4963) = dARP(3071)/dV(1778) - JVRP(4963) = 1 -! JVRP(4964) = dARP(3072)/dV(2549) - JVRP(4964) = 1 -! JVRP(4965) = dARP(3073)/dV(5009) - JVRP(4965) = V(5256) -! JVRP(4966) = dARP(3073)/dV(5256) - JVRP(4966) = V(5009) -! JVRP(4967) = dARP(3074)/dV(5009) - JVRP(4967) = V(5250) -! JVRP(4968) = dARP(3074)/dV(5250) - JVRP(4968) = V(5009) -! JVRP(4969) = dARP(3075)/dV(5009) - JVRP(4969) = 1 -! JVRP(4970) = dARP(3076)/dV(2413) - JVRP(4970) = V(5250) -! JVRP(4971) = dARP(3076)/dV(5250) - JVRP(4971) = V(2413) -! JVRP(4972) = dARP(3077)/dV(2413) - JVRP(4972) = V(5250) -! JVRP(4973) = dARP(3077)/dV(5250) - JVRP(4973) = V(2413) -! JVRP(4974) = dARP(3078)/dV(2413) - JVRP(4974) = 1 -! JVRP(4975) = dARP(3079)/dV(3956) - JVRP(4975) = 1 -! JVRP(4976) = dARP(3080)/dV(3956) - JVRP(4976) = 1 -! JVRP(4977) = dARP(3081)/dV(3418) - JVRP(4977) = V(5250) -! JVRP(4978) = dARP(3081)/dV(5250) - JVRP(4978) = V(3418) -! JVRP(4979) = dARP(3082)/dV(3418) - JVRP(4979) = 1 -! JVRP(4980) = dARP(3083)/dV(2449) - JVRP(4980) = V(5250) -! JVRP(4981) = dARP(3083)/dV(5250) - JVRP(4981) = V(2449) -! JVRP(4982) = dARP(3084)/dV(2449) - JVRP(4982) = V(5250) -! JVRP(4983) = dARP(3084)/dV(5250) - JVRP(4983) = V(2449) -! JVRP(4984) = dARP(3085)/dV(2449) - JVRP(4984) = 1 -! JVRP(4985) = dARP(3086)/dV(3922) - JVRP(4985) = 1 -! JVRP(4986) = dARP(3087)/dV(3922) - JVRP(4986) = 1 -! JVRP(4987) = dARP(3088)/dV(3409) - JVRP(4987) = V(5250) -! JVRP(4988) = dARP(3088)/dV(5250) - JVRP(4988) = V(3409) -! JVRP(4989) = dARP(3089)/dV(3409) - JVRP(4989) = 1 -! JVRP(4990) = dARP(3090)/dV(2447) - JVRP(4990) = V(5250) -! JVRP(4991) = dARP(3090)/dV(5250) - JVRP(4991) = V(2447) -! JVRP(4992) = dARP(3091)/dV(3266) - JVRP(4992) = V(5250) -! JVRP(4993) = dARP(3091)/dV(5250) - JVRP(4993) = V(3266) -! JVRP(4994) = dARP(3092)/dV(3266) - JVRP(4994) = V(5250) -! JVRP(4995) = dARP(3092)/dV(5250) - JVRP(4995) = V(3266) -! JVRP(4996) = dARP(3093)/dV(3266) - JVRP(4996) = 1 -! JVRP(4997) = dARP(3094)/dV(2158) - JVRP(4997) = 1 -! JVRP(4998) = dARP(3095)/dV(3656) - JVRP(4998) = V(5250) -! JVRP(4999) = dARP(3095)/dV(5250) - JVRP(4999) = V(3656) -! JVRP(5000) = dARP(3096)/dV(3656) - JVRP(5000) = 1 -! JVRP(5001) = dARP(3097)/dV(2369) - JVRP(5001) = V(5250) -! JVRP(5002) = dARP(3097)/dV(5250) - JVRP(5002) = V(2369) -! JVRP(5003) = dARP(3098)/dV(2369) - JVRP(5003) = V(5250) -! JVRP(5004) = dARP(3098)/dV(5250) - JVRP(5004) = V(2369) -! JVRP(5005) = dARP(3099)/dV(2369) - JVRP(5005) = 1 -! JVRP(5006) = dARP(3100)/dV(3592) - JVRP(5006) = 1 -! JVRP(5007) = dARP(3101)/dV(3592) - JVRP(5007) = 1 -! JVRP(5008) = dARP(3102)/dV(4114) - JVRP(5008) = V(5256) -! JVRP(5009) = dARP(3102)/dV(5256) - JVRP(5009) = V(4114) -! JVRP(5010) = dARP(3103)/dV(4114) - JVRP(5010) = V(5250) -! JVRP(5011) = dARP(3103)/dV(5250) - JVRP(5011) = V(4114) -! JVRP(5012) = dARP(3104)/dV(4114) - JVRP(5012) = 1 -! JVRP(5013) = dARP(3105)/dV(4114) - JVRP(5013) = 1 -! JVRP(5014) = dARP(3106)/dV(1391) - JVRP(5014) = V(5250) -! JVRP(5015) = dARP(3106)/dV(5250) - JVRP(5015) = V(1391) -! JVRP(5016) = dARP(3107)/dV(1391) - JVRP(5016) = 1 -! JVRP(5017) = dARP(3108)/dV(2851) - JVRP(5017) = 1 -! JVRP(5018) = dARP(3109)/dV(4320) - JVRP(5018) = V(5251) -! JVRP(5019) = dARP(3109)/dV(5251) - JVRP(5019) = V(4320) -! JVRP(5020) = dARP(3110)/dV(4320) - JVRP(5020) = V(5252) -! JVRP(5021) = dARP(3110)/dV(5252) - JVRP(5021) = V(4320) -! JVRP(5022) = dARP(3111)/dV(4320) - JVRP(5022) = V(5253) -! JVRP(5023) = dARP(3111)/dV(5253) - JVRP(5023) = V(4320) -! JVRP(5024) = dARP(3112)/dV(4320) - JVRP(5024) = V(5254) -! JVRP(5025) = dARP(3112)/dV(5254) - JVRP(5025) = V(4320) -! JVRP(5026) = dARP(3113)/dV(4320) - JVRP(5026) = 1 -! JVRP(5027) = dARP(3114)/dV(2069) - JVRP(5027) = V(5250) -! JVRP(5028) = dARP(3114)/dV(5250) - JVRP(5028) = V(2069) -! JVRP(5029) = dARP(3115)/dV(2069) - JVRP(5029) = V(5250) -! JVRP(5030) = dARP(3115)/dV(5250) - JVRP(5030) = V(2069) -! JVRP(5031) = dARP(3116)/dV(2069) - JVRP(5031) = 1 -! JVRP(5032) = dARP(3117)/dV(3887) - JVRP(5032) = 1 -! JVRP(5033) = dARP(3118)/dV(3887) - JVRP(5033) = 1 -! JVRP(5034) = dARP(3119)/dV(3432) - JVRP(5034) = V(5250) -! JVRP(5035) = dARP(3119)/dV(5250) - JVRP(5035) = V(3432) -! JVRP(5036) = dARP(3120)/dV(3432) - JVRP(5036) = 1 -! JVRP(5037) = dARP(3121)/dV(3175) - JVRP(5037) = V(5250) -! JVRP(5038) = dARP(3121)/dV(5250) - JVRP(5038) = V(3175) -! JVRP(5039) = dARP(3122)/dV(3175) - JVRP(5039) = 1 -! JVRP(5040) = dARP(3123)/dV(2363) - JVRP(5040) = V(5250) -! JVRP(5041) = dARP(3123)/dV(5250) - JVRP(5041) = V(2363) -! JVRP(5042) = dARP(3124)/dV(2363) - JVRP(5042) = V(5250) -! JVRP(5043) = dARP(3124)/dV(5250) - JVRP(5043) = V(2363) -! JVRP(5044) = dARP(3125)/dV(2363) - JVRP(5044) = 1 -! JVRP(5045) = dARP(3126)/dV(3575) - JVRP(5045) = 1 -! JVRP(5046) = dARP(3127)/dV(3575) - JVRP(5046) = 1 -! JVRP(5047) = dARP(3128)/dV(4160) - JVRP(5047) = V(5256) -! JVRP(5048) = dARP(3128)/dV(5256) - JVRP(5048) = V(4160) -! JVRP(5049) = dARP(3129)/dV(4160) - JVRP(5049) = V(5250) -! JVRP(5050) = dARP(3129)/dV(5250) - JVRP(5050) = V(4160) -! JVRP(5051) = dARP(3130)/dV(4160) - JVRP(5051) = 1 -! JVRP(5052) = dARP(3131)/dV(4868) - JVRP(5052) = V(5251) -! JVRP(5053) = dARP(3131)/dV(5251) - JVRP(5053) = V(4868) -! JVRP(5054) = dARP(3132)/dV(4868) - JVRP(5054) = V(5252) -! JVRP(5055) = dARP(3132)/dV(5252) - JVRP(5055) = V(4868) -! JVRP(5056) = dARP(3133)/dV(4868) - JVRP(5056) = V(5253) -! JVRP(5057) = dARP(3133)/dV(5253) - JVRP(5057) = V(4868) -! JVRP(5058) = dARP(3134)/dV(4868) - JVRP(5058) = V(5254) -! JVRP(5059) = dARP(3134)/dV(5254) - JVRP(5059) = V(4868) -! JVRP(5060) = dARP(3135)/dV(4868) - JVRP(5060) = 1 -! JVRP(5061) = dARP(3136)/dV(4868) - JVRP(5061) = 1 -! JVRP(5062) = dARP(3137)/dV(2135) - JVRP(5062) = V(5250) -! JVRP(5063) = dARP(3137)/dV(5250) - JVRP(5063) = V(2135) -! JVRP(5064) = dARP(3138)/dV(2135) - JVRP(5064) = V(5250) -! JVRP(5065) = dARP(3138)/dV(5250) - JVRP(5065) = V(2135) -! JVRP(5066) = dARP(3139)/dV(2135) - JVRP(5066) = 1 -! JVRP(5067) = dARP(3140)/dV(3268) - JVRP(5067) = 1 -! JVRP(5068) = dARP(3141)/dV(4961) - JVRP(5068) = V(5256) -! JVRP(5069) = dARP(3141)/dV(5256) - JVRP(5069) = V(4961) -! JVRP(5070) = dARP(3142)/dV(4961) - JVRP(5070) = V(5250) -! JVRP(5071) = dARP(3142)/dV(5250) - JVRP(5071) = V(4961) -! JVRP(5072) = dARP(3143)/dV(4961) - JVRP(5072) = 1 -! JVRP(5073) = dARP(3144)/dV(2366) - JVRP(5073) = V(5250) -! JVRP(5074) = dARP(3144)/dV(5250) - JVRP(5074) = V(2366) -! JVRP(5075) = dARP(3145)/dV(2366) - JVRP(5075) = V(5250) -! JVRP(5076) = dARP(3145)/dV(5250) - JVRP(5076) = V(2366) -! JVRP(5077) = dARP(3146)/dV(2366) - JVRP(5077) = 1 -! JVRP(5078) = dARP(3147)/dV(3970) - JVRP(5078) = 1 -! JVRP(5079) = dARP(3148)/dV(3970) - JVRP(5079) = 1 -! JVRP(5080) = dARP(3149)/dV(3364) - JVRP(5080) = V(5250) -! JVRP(5081) = dARP(3149)/dV(5250) - JVRP(5081) = V(3364) -! JVRP(5082) = dARP(3150)/dV(3364) - JVRP(5082) = 1 -! JVRP(5083) = dARP(3151)/dV(1072) - JVRP(5083) = V(5250) -! JVRP(5084) = dARP(3151)/dV(5250) - JVRP(5084) = V(1072) -! JVRP(5085) = dARP(3152)/dV(1072) - JVRP(5085) = 1 -! JVRP(5086) = dARP(3153)/dV(2831) - JVRP(5086) = 1 -! JVRP(5087) = dARP(3154)/dV(976) - JVRP(5087) = V(5250) -! JVRP(5088) = dARP(3154)/dV(5250) - JVRP(5088) = V(976) -! JVRP(5089) = dARP(3155)/dV(976) - JVRP(5089) = V(5250) -! JVRP(5090) = dARP(3155)/dV(5250) - JVRP(5090) = V(976) -! JVRP(5091) = dARP(3156)/dV(3002) - JVRP(5091) = 1 -! JVRP(5092) = dARP(3157)/dV(3002) - JVRP(5092) = 1 -! JVRP(5093) = dARP(3158)/dV(4155) - JVRP(5093) = V(5256) -! JVRP(5094) = dARP(3158)/dV(5256) - JVRP(5094) = V(4155) -! JVRP(5095) = dARP(3159)/dV(4155) - JVRP(5095) = V(5250) -! JVRP(5096) = dARP(3159)/dV(5250) - JVRP(5096) = V(4155) -! JVRP(5097) = dARP(3160)/dV(4155) - JVRP(5097) = 1 -! JVRP(5098) = dARP(3161)/dV(1827) - JVRP(5098) = V(5250) -! JVRP(5099) = dARP(3161)/dV(5250) - JVRP(5099) = V(1827) -! JVRP(5100) = dARP(3162)/dV(2125) - JVRP(5100) = V(5250) -! JVRP(5101) = dARP(3162)/dV(5250) - JVRP(5101) = V(2125) -! JVRP(5102) = dARP(3163)/dV(2125) - JVRP(5102) = V(5250) -! JVRP(5103) = dARP(3163)/dV(5250) - JVRP(5103) = V(2125) -! JVRP(5104) = dARP(3164)/dV(2125) - JVRP(5104) = 1 -! JVRP(5105) = dARP(3165)/dV(3925) - JVRP(5105) = 1 -! JVRP(5106) = dARP(3166)/dV(3925) - JVRP(5106) = 1 -! JVRP(5107) = dARP(3167)/dV(3349) - JVRP(5107) = V(5250) -! JVRP(5108) = dARP(3167)/dV(5250) - JVRP(5108) = V(3349) -! JVRP(5109) = dARP(3168)/dV(3349) - JVRP(5109) = 1 -! JVRP(5110) = dARP(3169)/dV(2011) - JVRP(5110) = V(5250) -! JVRP(5111) = dARP(3169)/dV(5250) - JVRP(5111) = V(2011) -! JVRP(5112) = dARP(3170)/dV(4838) - JVRP(5112) = V(5251) -! JVRP(5113) = dARP(3170)/dV(5251) - JVRP(5113) = V(4838) -! JVRP(5114) = dARP(3171)/dV(4838) - JVRP(5114) = V(5252) -! JVRP(5115) = dARP(3171)/dV(5252) - JVRP(5115) = V(4838) -! JVRP(5116) = dARP(3172)/dV(4838) - JVRP(5116) = V(5253) -! JVRP(5117) = dARP(3172)/dV(5253) - JVRP(5117) = V(4838) -! JVRP(5118) = dARP(3173)/dV(4838) - JVRP(5118) = V(5254) -! JVRP(5119) = dARP(3173)/dV(5254) - JVRP(5119) = V(4838) -! JVRP(5120) = dARP(3174)/dV(4838) - JVRP(5120) = 1 -! JVRP(5121) = dARP(3175)/dV(4838) - JVRP(5121) = 1 -! JVRP(5122) = dARP(3176)/dV(3308) - JVRP(5122) = V(5250) -! JVRP(5123) = dARP(3176)/dV(5250) - JVRP(5123) = V(3308) -! JVRP(5124) = dARP(3177)/dV(3308) - JVRP(5124) = V(5250) -! JVRP(5125) = dARP(3177)/dV(5250) - JVRP(5125) = V(3308) -! JVRP(5126) = dARP(3178)/dV(3308) - JVRP(5126) = 1 -! JVRP(5127) = dARP(3179)/dV(1927) - JVRP(5127) = 1 -! JVRP(5128) = dARP(3180)/dV(3542) - JVRP(5128) = V(5250) -! JVRP(5129) = dARP(3180)/dV(5250) - JVRP(5129) = V(3542) -! JVRP(5130) = dARP(3181)/dV(3542) - JVRP(5130) = 1 -! JVRP(5131) = dARP(3182)/dV(1386) - JVRP(5131) = V(5250) -! JVRP(5132) = dARP(3182)/dV(5250) - JVRP(5132) = V(1386) -! JVRP(5133) = dARP(3183)/dV(1774) - JVRP(5133) = 1 -! JVRP(5134) = dARP(3184)/dV(1774) - JVRP(5134) = V(5250) -! JVRP(5135) = dARP(3184)/dV(5250) - JVRP(5135) = V(1774) -! JVRP(5136) = dARP(3185)/dV(1774) - JVRP(5136) = V(5250) -! JVRP(5137) = dARP(3185)/dV(5250) - JVRP(5137) = V(1774) -! JVRP(5138) = dARP(3186)/dV(2944) - JVRP(5138) = 1 -! JVRP(5139) = dARP(3187)/dV(4873) - JVRP(5139) = 1 -! JVRP(5140) = dARP(3188)/dV(4873) - JVRP(5140) = V(5256) -! JVRP(5141) = dARP(3188)/dV(5256) - JVRP(5141) = V(4873) -! JVRP(5142) = dARP(3189)/dV(4873) - JVRP(5142) = V(5250) -! JVRP(5143) = dARP(3189)/dV(5250) - JVRP(5143) = V(4873) -! JVRP(5144) = dARP(3190)/dV(2455) - JVRP(5144) = V(5250) -! JVRP(5145) = dARP(3190)/dV(5250) - JVRP(5145) = V(2455) -! JVRP(5146) = dARP(3191)/dV(2455) - JVRP(5146) = V(5250) -! JVRP(5147) = dARP(3191)/dV(5250) - JVRP(5147) = V(2455) -! JVRP(5148) = dARP(3192)/dV(2455) - JVRP(5148) = 1 -! JVRP(5149) = dARP(3193)/dV(3910) - JVRP(5149) = 1 -! JVRP(5150) = dARP(3194)/dV(3910) - JVRP(5150) = 1 -! JVRP(5151) = dARP(3195)/dV(3341) - JVRP(5151) = V(5250) -! JVRP(5152) = dARP(3195)/dV(5250) - JVRP(5152) = V(3341) -! JVRP(5153) = dARP(3196)/dV(3341) - JVRP(5153) = 1 -! JVRP(5154) = dARP(3197)/dV(2370) - JVRP(5154) = V(5250) -! JVRP(5155) = dARP(3197)/dV(5250) - JVRP(5155) = V(2370) -! JVRP(5156) = dARP(3198)/dV(1940) - JVRP(5156) = V(5250) -! JVRP(5157) = dARP(3198)/dV(5250) - JVRP(5157) = V(1940) -! JVRP(5158) = dARP(3199)/dV(1940) - JVRP(5158) = V(5250) -! JVRP(5159) = dARP(3199)/dV(5250) - JVRP(5159) = V(1940) -! JVRP(5160) = dARP(3200)/dV(1940) - JVRP(5160) = 1 -! JVRP(5161) = dARP(3201)/dV(3842) - JVRP(5161) = 1 -! JVRP(5162) = dARP(3202)/dV(3842) - JVRP(5162) = 1 -! JVRP(5163) = dARP(3203)/dV(3376) - JVRP(5163) = V(5250) -! JVRP(5164) = dARP(3203)/dV(5250) - JVRP(5164) = V(3376) -! JVRP(5165) = dARP(3204)/dV(3376) - JVRP(5165) = 1 -! JVRP(5166) = dARP(3205)/dV(2067) - JVRP(5166) = V(5250) -! JVRP(5167) = dARP(3205)/dV(5250) - JVRP(5167) = V(2067) -! JVRP(5168) = dARP(3206)/dV(1767) - JVRP(5168) = V(5250) -! JVRP(5169) = dARP(3206)/dV(5250) - JVRP(5169) = V(1767) -! JVRP(5170) = dARP(3207)/dV(1767) - JVRP(5170) = V(5250) -! JVRP(5171) = dARP(3207)/dV(5250) - JVRP(5171) = V(1767) -! JVRP(5172) = dARP(3208)/dV(1767) - JVRP(5172) = 1 -! JVRP(5173) = dARP(3209)/dV(2912) - JVRP(5173) = 1 -! JVRP(5174) = dARP(3210)/dV(1121) - JVRP(5174) = V(5250) -! JVRP(5175) = dARP(3210)/dV(5250) - JVRP(5175) = V(1121) -! JVRP(5176) = dARP(3211)/dV(3757) - JVRP(5176) = V(5250) -! JVRP(5177) = dARP(3211)/dV(5250) - JVRP(5177) = V(3757) -! JVRP(5178) = dARP(3212)/dV(3757) - JVRP(5178) = 1 -! JVRP(5179) = dARP(3213)/dV(2133) - JVRP(5179) = V(5250) -! JVRP(5180) = dARP(3213)/dV(5250) - JVRP(5180) = V(2133) -! JVRP(5181) = dARP(3214)/dV(2133) - JVRP(5181) = V(5250) -! JVRP(5182) = dARP(3214)/dV(5250) - JVRP(5182) = V(2133) -! JVRP(5183) = dARP(3215)/dV(2133) - JVRP(5183) = 1 -! JVRP(5184) = dARP(3216)/dV(2849) - JVRP(5184) = 1 -! JVRP(5185) = dARP(3217)/dV(4223) - JVRP(5185) = V(5250) -! JVRP(5186) = dARP(3217)/dV(5250) - JVRP(5186) = V(4223) -! JVRP(5187) = dARP(3218)/dV(4223) - JVRP(5187) = 1 -! JVRP(5188) = dARP(3219)/dV(2068) - JVRP(5188) = V(5250) -! JVRP(5189) = dARP(3219)/dV(5250) - JVRP(5189) = V(2068) -! JVRP(5190) = dARP(3220)/dV(2068) - JVRP(5190) = 1 -! JVRP(5191) = dARP(3221)/dV(573) - JVRP(5191) = 1 -! JVRP(5192) = dARP(3222)/dV(3188) - JVRP(5192) = V(5250) -! JVRP(5193) = dARP(3222)/dV(5250) - JVRP(5193) = V(3188) -! JVRP(5194) = dARP(3223)/dV(1171) - JVRP(5194) = V(5250) -! JVRP(5195) = dARP(3223)/dV(5250) - JVRP(5195) = V(1171) -! JVRP(5196) = dARP(3224)/dV(1171) - JVRP(5196) = 1 -! JVRP(5197) = dARP(3225)/dV(1754) - JVRP(5197) = 1 -! JVRP(5198) = dARP(3226)/dV(32) - JVRP(5198) = V(5250) -! JVRP(5199) = dARP(3226)/dV(5250) - JVRP(5199) = V(32) -! JVRP(5200) = dARP(3227)/dV(1434) - JVRP(5200) = V(5250) -! JVRP(5201) = dARP(3227)/dV(5250) - JVRP(5201) = V(1434) -! JVRP(5202) = dARP(3228)/dV(1434) - JVRP(5202) = 1 -! JVRP(5203) = dARP(3229)/dV(2341) - JVRP(5203) = V(5250) -! JVRP(5204) = dARP(3229)/dV(5250) - JVRP(5204) = V(2341) -! JVRP(5205) = dARP(3230)/dV(2341) - JVRP(5205) = 1 -! JVRP(5206) = dARP(3231)/dV(3342) - JVRP(5206) = 1 -! JVRP(5207) = dARP(3232)/dV(3342) - JVRP(5207) = 1 -! JVRP(5208) = dARP(3233)/dV(517) - JVRP(5208) = V(5250) -! JVRP(5209) = dARP(3233)/dV(5250) - JVRP(5209) = V(517) -! JVRP(5210) = dARP(3234)/dV(3121) - JVRP(5210) = V(5250) -! JVRP(5211) = dARP(3234)/dV(5250) - JVRP(5211) = V(3121) -! JVRP(5212) = dARP(3235)/dV(3121) - JVRP(5212) = 1 -! JVRP(5213) = dARP(3236)/dV(4649) - JVRP(5213) = V(5255) -! JVRP(5214) = dARP(3236)/dV(5255) - JVRP(5214) = V(4649) -! JVRP(5215) = dARP(3237)/dV(4649) - JVRP(5215) = V(5255) -! JVRP(5216) = dARP(3237)/dV(5255) - JVRP(5216) = V(4649) -! JVRP(5217) = dARP(3238)/dV(4649) - JVRP(5217) = V(5255) -! JVRP(5218) = dARP(3238)/dV(5255) - JVRP(5218) = V(4649) -! JVRP(5219) = dARP(3239)/dV(4649) - JVRP(5219) = V(5252) -! JVRP(5220) = dARP(3239)/dV(5252) - JVRP(5220) = V(4649) -! JVRP(5221) = dARP(3240)/dV(4649) - JVRP(5221) = V(5253) -! JVRP(5222) = dARP(3240)/dV(5253) - JVRP(5222) = V(4649) -! JVRP(5223) = dARP(3241)/dV(4649) - JVRP(5223) = V(5256) -! JVRP(5224) = dARP(3241)/dV(5256) - JVRP(5224) = V(4649) -! JVRP(5225) = dARP(3242)/dV(4649) - JVRP(5225) = 1 -! JVRP(5226) = dARP(3243)/dV(4649) - JVRP(5226) = 1 -! JVRP(5227) = dARP(3244)/dV(4721) - JVRP(5227) = V(5256) -! JVRP(5228) = dARP(3244)/dV(5256) - JVRP(5228) = V(4721) -! JVRP(5229) = dARP(3245)/dV(4721) - JVRP(5229) = V(5250) -! JVRP(5230) = dARP(3245)/dV(5250) - JVRP(5230) = V(4721) -! JVRP(5231) = dARP(3246)/dV(4721) - JVRP(5231) = 1 -! JVRP(5232) = dARP(3247)/dV(4588) - JVRP(5232) = 1 -! JVRP(5233) = dARP(3248)/dV(4588) - JVRP(5233) = 1 -! JVRP(5234) = dARP(3249)/dV(4588) - JVRP(5234) = 1 -! JVRP(5235) = dARP(3250)/dV(4588) - JVRP(5235) = 1 -! JVRP(5236) = dARP(3251)/dV(4720) - JVRP(5236) = V(5255) -! JVRP(5237) = dARP(3251)/dV(5255) - JVRP(5237) = V(4720) -! JVRP(5238) = dARP(3252)/dV(4720) - JVRP(5238) = V(5252) -! JVRP(5239) = dARP(3252)/dV(5252) - JVRP(5239) = V(4720) -! JVRP(5240) = dARP(3253)/dV(4720) - JVRP(5240) = V(5252) -! JVRP(5241) = dARP(3253)/dV(5252) - JVRP(5241) = V(4720) -! JVRP(5242) = dARP(3254)/dV(4720) - JVRP(5242) = V(5256) -! JVRP(5243) = dARP(3254)/dV(5256) - JVRP(5243) = V(4720) -! JVRP(5244) = dARP(3255)/dV(4720) - JVRP(5244) = 1 -! JVRP(5245) = dARP(3256)/dV(4720) - JVRP(5245) = 1 -! JVRP(5246) = dARP(3257)/dV(4720) - JVRP(5246) = 1 -! JVRP(5247) = dARP(3258)/dV(4513) - JVRP(5247) = V(5255) -! JVRP(5248) = dARP(3258)/dV(5255) - JVRP(5248) = V(4513) -! JVRP(5249) = dARP(3259)/dV(4513) - JVRP(5249) = V(5252) -! JVRP(5250) = dARP(3259)/dV(5252) - JVRP(5250) = V(4513) -! JVRP(5251) = dARP(3260)/dV(4513) - JVRP(5251) = V(5256) -! JVRP(5252) = dARP(3260)/dV(5256) - JVRP(5252) = V(4513) -! JVRP(5253) = dARP(3261)/dV(4513) - JVRP(5253) = 1 -! JVRP(5254) = dARP(3262)/dV(4513) - JVRP(5254) = 1 -! JVRP(5255) = dARP(3263)/dV(4513) - JVRP(5255) = 1 -! JVRP(5256) = dARP(3264)/dV(5058) - JVRP(5256) = V(5256) -! JVRP(5257) = dARP(3264)/dV(5256) - JVRP(5257) = V(5058) -! JVRP(5258) = dARP(3265)/dV(5058) - JVRP(5258) = V(5258) -! JVRP(5259) = dARP(3265)/dV(5258) - JVRP(5259) = V(5058) -! JVRP(5260) = dARP(3266)/dV(5058) - JVRP(5260) = V(5250) -! JVRP(5261) = dARP(3266)/dV(5250) - JVRP(5261) = V(5058) -! JVRP(5262) = dARP(3267)/dV(5058) - JVRP(5262) = V(5250) -! JVRP(5263) = dARP(3267)/dV(5250) - JVRP(5263) = V(5058) -! JVRP(5264) = dARP(3268)/dV(5058) - JVRP(5264) = 1 -! JVRP(5265) = dARP(3269)/dV(5058) - JVRP(5265) = 1 -! JVRP(5266) = dARP(3270)/dV(4965) - JVRP(5266) = V(5253) -! JVRP(5267) = dARP(3270)/dV(5253) - JVRP(5267) = V(4965) -! JVRP(5268) = dARP(3271)/dV(4965) - JVRP(5268) = V(5258) -! JVRP(5269) = dARP(3271)/dV(5258) - JVRP(5269) = V(4965) -! JVRP(5270) = dARP(3272)/dV(3903) - JVRP(5270) = V(5255) -! JVRP(5271) = dARP(3272)/dV(5255) - JVRP(5271) = V(3903) -! JVRP(5272) = dARP(3273)/dV(3903) - JVRP(5272) = V(5252) -! JVRP(5273) = dARP(3273)/dV(5252) - JVRP(5273) = V(3903) -! JVRP(5274) = dARP(3274)/dV(3903) - JVRP(5274) = V(5256) -! JVRP(5275) = dARP(3274)/dV(5256) - JVRP(5275) = V(3903) -! JVRP(5276) = dARP(3275)/dV(3903) - JVRP(5276) = 1 -! JVRP(5277) = dARP(3276)/dV(3903) - JVRP(5277) = 1 -! JVRP(5278) = dARP(3277)/dV(3830) - JVRP(5278) = V(5256) -! JVRP(5279) = dARP(3277)/dV(5256) - JVRP(5279) = V(3830) -! JVRP(5280) = dARP(3278)/dV(3830) - JVRP(5280) = V(5258) -! JVRP(5281) = dARP(3278)/dV(5258) - JVRP(5281) = V(3830) -! JVRP(5282) = dARP(3279)/dV(3830) - JVRP(5282) = V(5250) -! JVRP(5283) = dARP(3279)/dV(5250) - JVRP(5283) = V(3830) -! JVRP(5284) = dARP(3280)/dV(3786) - JVRP(5284) = V(5255) -! JVRP(5285) = dARP(3280)/dV(5255) - JVRP(5285) = V(3786) -! JVRP(5286) = dARP(3281)/dV(3786) - JVRP(5286) = V(5252) -! JVRP(5287) = dARP(3281)/dV(5252) - JVRP(5287) = V(3786) -! JVRP(5288) = dARP(3282)/dV(3786) - JVRP(5288) = V(5256) -! JVRP(5289) = dARP(3282)/dV(5256) - JVRP(5289) = V(3786) -! JVRP(5290) = dARP(3283)/dV(3786) - JVRP(5290) = 1 -! JVRP(5291) = dARP(3284)/dV(3786) - JVRP(5291) = 1 -! JVRP(5292) = dARP(3285)/dV(1341) - JVRP(5292) = V(5250) -! JVRP(5293) = dARP(3285)/dV(5250) - JVRP(5293) = V(1341) -! JVRP(5294) = dARP(3286)/dV(1341) - JVRP(5294) = 1 -! JVRP(5295) = dARP(3287)/dV(1794) - JVRP(5295) = V(5250) -! JVRP(5296) = dARP(3287)/dV(5250) - JVRP(5296) = V(1794) -! JVRP(5297) = dARP(3288)/dV(1794) - JVRP(5297) = 1 -! JVRP(5298) = dARP(3289)/dV(1792) - JVRP(5298) = 1 -! JVRP(5299) = dARP(3290)/dV(444) - JVRP(5299) = V(5250) -! JVRP(5300) = dARP(3290)/dV(5250) - JVRP(5300) = V(444) -! JVRP(5301) = dARP(3291)/dV(3538) - JVRP(5301) = V(5255) -! JVRP(5302) = dARP(3291)/dV(5255) - JVRP(5302) = V(3538) -! JVRP(5303) = dARP(3292)/dV(3538) - JVRP(5303) = V(5252) -! JVRP(5304) = dARP(3292)/dV(5252) - JVRP(5304) = V(3538) -! JVRP(5305) = dARP(3293)/dV(3538) - JVRP(5305) = V(5256) -! JVRP(5306) = dARP(3293)/dV(5256) - JVRP(5306) = V(3538) -! JVRP(5307) = dARP(3294)/dV(3538) - JVRP(5307) = 1 -! JVRP(5308) = dARP(3295)/dV(3538) - JVRP(5308) = 1 -! JVRP(5309) = dARP(3296)/dV(3827) - JVRP(5309) = V(5255) -! JVRP(5310) = dARP(3296)/dV(5255) - JVRP(5310) = V(3827) -! JVRP(5311) = dARP(3297)/dV(3827) - JVRP(5311) = V(5252) -! JVRP(5312) = dARP(3297)/dV(5252) - JVRP(5312) = V(3827) -! JVRP(5313) = dARP(3298)/dV(3827) - JVRP(5313) = V(5256) -! JVRP(5314) = dARP(3298)/dV(5256) - JVRP(5314) = V(3827) -! JVRP(5315) = dARP(3299)/dV(3827) - JVRP(5315) = 1 -! JVRP(5316) = dARP(3300)/dV(3827) - JVRP(5316) = 1 -! JVRP(5317) = dARP(3301)/dV(3793) - JVRP(5317) = V(5253) -! JVRP(5318) = dARP(3301)/dV(5253) - JVRP(5318) = V(3793) -! JVRP(5319) = dARP(3302)/dV(3793) - JVRP(5319) = V(5258) -! JVRP(5320) = dARP(3302)/dV(5258) - JVRP(5320) = V(3793) -! JVRP(5321) = dARP(3303)/dV(3545) - JVRP(5321) = V(5256) -! JVRP(5322) = dARP(3303)/dV(5256) - JVRP(5322) = V(3545) -! JVRP(5323) = dARP(3304)/dV(3545) - JVRP(5323) = V(5258) -! JVRP(5324) = dARP(3304)/dV(5258) - JVRP(5324) = V(3545) -! JVRP(5325) = dARP(3305)/dV(3545) - JVRP(5325) = V(5250) -! JVRP(5326) = dARP(3305)/dV(5250) - JVRP(5326) = V(3545) -! JVRP(5327) = dARP(3306)/dV(1307) - JVRP(5327) = V(5250) -! JVRP(5328) = dARP(3306)/dV(5250) - JVRP(5328) = V(1307) -! JVRP(5329) = dARP(3307)/dV(1307) - JVRP(5329) = 1 -! JVRP(5330) = dARP(3308)/dV(3824) - JVRP(5330) = 1 -! JVRP(5331) = dARP(3309)/dV(3824) - JVRP(5331) = 1 -! JVRP(5332) = dARP(3310)/dV(3824) - JVRP(5332) = 1 -! JVRP(5333) = dARP(3311)/dV(3824) - JVRP(5333) = 1 -! JVRP(5334) = dARP(3312)/dV(3824) - JVRP(5334) = 1 -! JVRP(5335) = dARP(3313)/dV(2383) - JVRP(5335) = V(5250) -! JVRP(5336) = dARP(3313)/dV(5250) - JVRP(5336) = V(2383) -! JVRP(5337) = dARP(3314)/dV(2383) - JVRP(5337) = 1 -! JVRP(5338) = dARP(3315)/dV(361) - JVRP(5338) = V(5250) -! JVRP(5339) = dARP(3315)/dV(5250) - JVRP(5339) = V(361) -! JVRP(5340) = dARP(3316)/dV(3372) - JVRP(5340) = V(5250) -! JVRP(5341) = dARP(3316)/dV(5250) - JVRP(5341) = V(3372) -! JVRP(5342) = dARP(3317)/dV(3372) - JVRP(5342) = 1 -! JVRP(5343) = dARP(3318)/dV(4626) - JVRP(5343) = V(5255) -! JVRP(5344) = dARP(3318)/dV(5255) - JVRP(5344) = V(4626) -! JVRP(5345) = dARP(3319)/dV(4626) - JVRP(5345) = V(5255) -! JVRP(5346) = dARP(3319)/dV(5255) - JVRP(5346) = V(4626) -! JVRP(5347) = dARP(3320)/dV(4626) - JVRP(5347) = V(5255) -! JVRP(5348) = dARP(3320)/dV(5255) - JVRP(5348) = V(4626) -! JVRP(5349) = dARP(3321)/dV(4626) - JVRP(5349) = V(5252) -! JVRP(5350) = dARP(3321)/dV(5252) - JVRP(5350) = V(4626) -! JVRP(5351) = dARP(3322)/dV(4626) - JVRP(5351) = V(5253) -! JVRP(5352) = dARP(3322)/dV(5253) - JVRP(5352) = V(4626) -! JVRP(5353) = dARP(3323)/dV(4626) - JVRP(5353) = V(5256) -! JVRP(5354) = dARP(3323)/dV(5256) - JVRP(5354) = V(4626) -! JVRP(5355) = dARP(3324)/dV(4626) - JVRP(5355) = 1 -! JVRP(5356) = dARP(3325)/dV(4626) - JVRP(5356) = 1 -! JVRP(5357) = dARP(3326)/dV(4084) - JVRP(5357) = 1 -! JVRP(5358) = dARP(3327)/dV(4084) - JVRP(5358) = 1 -! JVRP(5359) = dARP(3328)/dV(4084) - JVRP(5359) = 1 -! JVRP(5360) = dARP(3329)/dV(4084) - JVRP(5360) = 1 -! JVRP(5361) = dARP(3330)/dV(4821) - JVRP(5361) = V(5255) -! JVRP(5362) = dARP(3330)/dV(5255) - JVRP(5362) = V(4821) -! JVRP(5363) = dARP(3331)/dV(4821) - JVRP(5363) = V(5252) -! JVRP(5364) = dARP(3331)/dV(5252) - JVRP(5364) = V(4821) -! JVRP(5365) = dARP(3332)/dV(4821) - JVRP(5365) = V(5252) -! JVRP(5366) = dARP(3332)/dV(5252) - JVRP(5366) = V(4821) -! JVRP(5367) = dARP(3333)/dV(4821) - JVRP(5367) = V(5256) -! JVRP(5368) = dARP(3333)/dV(5256) - JVRP(5368) = V(4821) -! JVRP(5369) = dARP(3334)/dV(4821) - JVRP(5369) = 1 -! JVRP(5370) = dARP(3335)/dV(4821) - JVRP(5370) = 1 -! JVRP(5371) = dARP(3336)/dV(4821) - JVRP(5371) = 1 -! JVRP(5372) = dARP(3337)/dV(4432) - JVRP(5372) = V(5255) -! JVRP(5373) = dARP(3337)/dV(5255) - JVRP(5373) = V(4432) -! JVRP(5374) = dARP(3338)/dV(4432) - JVRP(5374) = V(5252) -! JVRP(5375) = dARP(3338)/dV(5252) - JVRP(5375) = V(4432) -! JVRP(5376) = dARP(3339)/dV(4432) - JVRP(5376) = V(5256) -! JVRP(5377) = dARP(3339)/dV(5256) - JVRP(5377) = V(4432) -! JVRP(5378) = dARP(3340)/dV(4432) - JVRP(5378) = 1 -! JVRP(5379) = dARP(3341)/dV(4432) - JVRP(5379) = 1 -! JVRP(5380) = dARP(3342)/dV(4432) - JVRP(5380) = 1 -! JVRP(5381) = dARP(3343)/dV(1287) - JVRP(5381) = V(5250) -! JVRP(5382) = dARP(3343)/dV(5250) - JVRP(5382) = V(1287) -! JVRP(5383) = dARP(3344)/dV(1287) - JVRP(5383) = 1 -! JVRP(5384) = dARP(3345)/dV(2014) - JVRP(5384) = V(5250) -! JVRP(5385) = dARP(3345)/dV(5250) - JVRP(5385) = V(2014) -! JVRP(5386) = dARP(3346)/dV(2014) - JVRP(5386) = 1 -! JVRP(5387) = dARP(3347)/dV(2015) - JVRP(5387) = 1 -! JVRP(5388) = dARP(3348)/dV(3643) - JVRP(5388) = V(5256) -! JVRP(5389) = dARP(3348)/dV(5256) - JVRP(5389) = V(3643) -! JVRP(5390) = dARP(3349)/dV(3643) - JVRP(5390) = V(5250) -! JVRP(5391) = dARP(3349)/dV(5250) - JVRP(5391) = V(3643) -! JVRP(5392) = dARP(3350)/dV(3643) - JVRP(5392) = 1 -! JVRP(5393) = dARP(3351)/dV(3643) - JVRP(5393) = 1 -! JVRP(5394) = dARP(3352)/dV(225) - JVRP(5394) = V(5250) -! JVRP(5395) = dARP(3352)/dV(5250) - JVRP(5395) = V(225) -! JVRP(5396) = dARP(3353)/dV(1451) - JVRP(5396) = V(5250) -! JVRP(5397) = dARP(3353)/dV(5250) - JVRP(5397) = V(1451) -! JVRP(5398) = dARP(3354)/dV(1451) - JVRP(5398) = 1 -! JVRP(5399) = dARP(3355)/dV(3435) - JVRP(5399) = V(5250) -! JVRP(5400) = dARP(3355)/dV(5250) - JVRP(5400) = V(3435) -! JVRP(5401) = dARP(3356)/dV(3435) - JVRP(5401) = 1 -! JVRP(5402) = dARP(3357)/dV(4950) - JVRP(5402) = 1 -! JVRP(5403) = dARP(3358)/dV(4950) - JVRP(5403) = 1 -! JVRP(5404) = dARP(3359)/dV(4950) - JVRP(5404) = 1 -! JVRP(5405) = dARP(3360)/dV(4950) - JVRP(5405) = 1 -! JVRP(5406) = dARP(3361)/dV(4950) - JVRP(5406) = 1 -! JVRP(5407) = dARP(3362)/dV(4950) - JVRP(5407) = 1 -! JVRP(5408) = dARP(3363)/dV(135) - JVRP(5408) = V(5250) -! JVRP(5409) = dARP(3363)/dV(5250) - JVRP(5409) = V(135) -! JVRP(5410) = dARP(3364)/dV(4833) - JVRP(5410) = V(5255) -! JVRP(5411) = dARP(3364)/dV(5255) - JVRP(5411) = V(4833) -! JVRP(5412) = dARP(3365)/dV(4833) - JVRP(5412) = V(5255) -! JVRP(5413) = dARP(3365)/dV(5255) - JVRP(5413) = V(4833) -! JVRP(5414) = dARP(3366)/dV(4833) - JVRP(5414) = V(5255) -! JVRP(5415) = dARP(3366)/dV(5255) - JVRP(5415) = V(4833) -! JVRP(5416) = dARP(3367)/dV(4833) - JVRP(5416) = V(5252) -! JVRP(5417) = dARP(3367)/dV(5252) - JVRP(5417) = V(4833) -! JVRP(5418) = dARP(3368)/dV(4833) - JVRP(5418) = V(5253) -! JVRP(5419) = dARP(3368)/dV(5253) - JVRP(5419) = V(4833) -! JVRP(5420) = dARP(3369)/dV(4833) - JVRP(5420) = V(5256) -! JVRP(5421) = dARP(3369)/dV(5256) - JVRP(5421) = V(4833) -! JVRP(5422) = dARP(3370)/dV(4833) - JVRP(5422) = 1 -! JVRP(5423) = dARP(3371)/dV(4833) - JVRP(5423) = 1 -! JVRP(5424) = dARP(3372)/dV(4547) - JVRP(5424) = V(5256) -! JVRP(5425) = dARP(3372)/dV(5256) - JVRP(5425) = V(4547) -! JVRP(5426) = dARP(3373)/dV(4547) - JVRP(5426) = V(5250) -! JVRP(5427) = dARP(3373)/dV(5250) - JVRP(5427) = V(4547) -! JVRP(5428) = dARP(3374)/dV(4547) - JVRP(5428) = 1 -! JVRP(5429) = dARP(3375)/dV(4707) - JVRP(5429) = V(5255) -! JVRP(5430) = dARP(3375)/dV(5255) - JVRP(5430) = V(4707) -! JVRP(5431) = dARP(3376)/dV(4707) - JVRP(5431) = V(5252) -! JVRP(5432) = dARP(3376)/dV(5252) - JVRP(5432) = V(4707) -! JVRP(5433) = dARP(3377)/dV(4707) - JVRP(5433) = V(5252) -! JVRP(5434) = dARP(3377)/dV(5252) - JVRP(5434) = V(4707) -! JVRP(5435) = dARP(3378)/dV(4707) - JVRP(5435) = V(5256) -! JVRP(5436) = dARP(3378)/dV(5256) - JVRP(5436) = V(4707) -! JVRP(5437) = dARP(3379)/dV(4707) - JVRP(5437) = 1 -! JVRP(5438) = dARP(3380)/dV(4707) - JVRP(5438) = 1 -! JVRP(5439) = dARP(3381)/dV(4707) - JVRP(5439) = 1 -! JVRP(5440) = dARP(3382)/dV(4887) - JVRP(5440) = V(5255) -! JVRP(5441) = dARP(3382)/dV(5255) - JVRP(5441) = V(4887) -! JVRP(5442) = dARP(3383)/dV(4887) - JVRP(5442) = V(5252) -! JVRP(5443) = dARP(3383)/dV(5252) - JVRP(5443) = V(4887) -! JVRP(5444) = dARP(3384)/dV(4887) - JVRP(5444) = V(5256) -! JVRP(5445) = dARP(3384)/dV(5256) - JVRP(5445) = V(4887) -! JVRP(5446) = dARP(3385)/dV(4887) - JVRP(5446) = 1 -! JVRP(5447) = dARP(3386)/dV(4887) - JVRP(5447) = 1 -! JVRP(5448) = dARP(3387)/dV(3820) - JVRP(5448) = V(5255) -! JVRP(5449) = dARP(3387)/dV(5255) - JVRP(5449) = V(3820) -! JVRP(5450) = dARP(3388)/dV(3820) - JVRP(5450) = V(5252) -! JVRP(5451) = dARP(3388)/dV(5252) - JVRP(5451) = V(3820) -! JVRP(5452) = dARP(3389)/dV(3820) - JVRP(5452) = V(5256) -! JVRP(5453) = dARP(3389)/dV(5256) - JVRP(5453) = V(3820) -! JVRP(5454) = dARP(3390)/dV(3820) - JVRP(5454) = 1 -! JVRP(5455) = dARP(3391)/dV(3820) - JVRP(5455) = 1 -! JVRP(5456) = dARP(3392)/dV(4478) - JVRP(5456) = V(5253) -! JVRP(5457) = dARP(3392)/dV(5253) - JVRP(5457) = V(4478) -! JVRP(5458) = dARP(3393)/dV(4478) - JVRP(5458) = V(5258) -! JVRP(5459) = dARP(3393)/dV(5258) - JVRP(5459) = V(4478) -! JVRP(5460) = dARP(3394)/dV(3491) - JVRP(5460) = V(5255) -! JVRP(5461) = dARP(3394)/dV(5255) - JVRP(5461) = V(3491) -! JVRP(5462) = dARP(3395)/dV(3491) - JVRP(5462) = V(5252) -! JVRP(5463) = dARP(3395)/dV(5252) - JVRP(5463) = V(3491) -! JVRP(5464) = dARP(3396)/dV(3491) - JVRP(5464) = V(5256) -! JVRP(5465) = dARP(3396)/dV(5256) - JVRP(5465) = V(3491) -! JVRP(5466) = dARP(3397)/dV(3491) - JVRP(5466) = 1 -! JVRP(5467) = dARP(3398)/dV(3491) - JVRP(5467) = 1 -! JVRP(5468) = dARP(3399)/dV(3508) - JVRP(5468) = V(5256) -! JVRP(5469) = dARP(3399)/dV(5256) - JVRP(5469) = V(3508) -! JVRP(5470) = dARP(3400)/dV(3508) - JVRP(5470) = V(5258) -! JVRP(5471) = dARP(3400)/dV(5258) - JVRP(5471) = V(3508) -! JVRP(5472) = dARP(3401)/dV(3508) - JVRP(5472) = V(5250) -! JVRP(5473) = dARP(3401)/dV(5250) - JVRP(5473) = V(3508) -! JVRP(5474) = dARP(3402)/dV(1484) - JVRP(5474) = V(5250) -! JVRP(5475) = dARP(3402)/dV(5250) - JVRP(5475) = V(1484) -! JVRP(5476) = dARP(3403)/dV(1484) - JVRP(5476) = 1 -! JVRP(5477) = dARP(3404)/dV(1819) - JVRP(5477) = V(5250) -! JVRP(5478) = dARP(3404)/dV(5250) - JVRP(5478) = V(1819) -! JVRP(5479) = dARP(3405)/dV(1819) - JVRP(5479) = 1 -! JVRP(5480) = dARP(3406)/dV(1820) - JVRP(5480) = 1 -! JVRP(5481) = dARP(3407)/dV(3640) - JVRP(5481) = V(5256) -! JVRP(5482) = dARP(3407)/dV(5256) - JVRP(5482) = V(3640) -! JVRP(5483) = dARP(3408)/dV(3640) - JVRP(5483) = V(5250) -! JVRP(5484) = dARP(3408)/dV(5250) - JVRP(5484) = V(3640) -! JVRP(5485) = dARP(3409)/dV(3640) - JVRP(5485) = 1 -! JVRP(5486) = dARP(3410)/dV(3640) - JVRP(5486) = 1 -! JVRP(5487) = dARP(3411)/dV(332) - JVRP(5487) = V(5250) -! JVRP(5488) = dARP(3411)/dV(5250) - JVRP(5488) = V(332) -! JVRP(5489) = dARP(3412)/dV(1276) - JVRP(5489) = V(5250) -! JVRP(5490) = dARP(3412)/dV(5250) - JVRP(5490) = V(1276) -! JVRP(5491) = dARP(3413)/dV(1276) - JVRP(5491) = 1 -! JVRP(5492) = dARP(3414)/dV(2317) - JVRP(5492) = V(5250) -! JVRP(5493) = dARP(3414)/dV(5250) - JVRP(5493) = V(2317) -! JVRP(5494) = dARP(3415)/dV(2317) - JVRP(5494) = 1 -! JVRP(5495) = dARP(3416)/dV(4004) - JVRP(5495) = 1 -! JVRP(5496) = dARP(3417)/dV(4004) - JVRP(5496) = 1 -! JVRP(5497) = dARP(3418)/dV(4004) - JVRP(5497) = 1 -! JVRP(5498) = dARP(3419)/dV(4004) - JVRP(5498) = 1 -! JVRP(5499) = dARP(3420)/dV(4004) - JVRP(5499) = 1 -! JVRP(5500) = dARP(3421)/dV(292) - JVRP(5500) = V(5250) -! JVRP(5501) = dARP(3421)/dV(5250) - JVRP(5501) = V(292) -! JVRP(5502) = dARP(3422)/dV(3599) - JVRP(5502) = V(5250) -! JVRP(5503) = dARP(3422)/dV(5250) - JVRP(5503) = V(3599) -! JVRP(5504) = dARP(3423)/dV(3599) - JVRP(5504) = V(5250) -! JVRP(5505) = dARP(3423)/dV(5250) - JVRP(5505) = V(3599) -! JVRP(5506) = dARP(3424)/dV(3599) - JVRP(5506) = 1 -! JVRP(5507) = dARP(3425)/dV(3599) - JVRP(5507) = 1 -! JVRP(5508) = dARP(3426)/dV(4892) - JVRP(5508) = V(5255) -! JVRP(5509) = dARP(3426)/dV(5255) - JVRP(5509) = V(4892) -! JVRP(5510) = dARP(3427)/dV(4892) - JVRP(5510) = V(5255) -! JVRP(5511) = dARP(3427)/dV(5255) - JVRP(5511) = V(4892) -! JVRP(5512) = dARP(3428)/dV(4892) - JVRP(5512) = V(5255) -! JVRP(5513) = dARP(3428)/dV(5255) - JVRP(5513) = V(4892) -! JVRP(5514) = dARP(3429)/dV(4892) - JVRP(5514) = V(5252) -! JVRP(5515) = dARP(3429)/dV(5252) - JVRP(5515) = V(4892) -! JVRP(5516) = dARP(3430)/dV(4892) - JVRP(5516) = V(5253) -! JVRP(5517) = dARP(3430)/dV(5253) - JVRP(5517) = V(4892) -! JVRP(5518) = dARP(3431)/dV(4892) - JVRP(5518) = V(5256) -! JVRP(5519) = dARP(3431)/dV(5256) - JVRP(5519) = V(4892) -! JVRP(5520) = dARP(3432)/dV(4892) - JVRP(5520) = 1 -! JVRP(5521) = dARP(3433)/dV(4892) - JVRP(5521) = 1 -! JVRP(5522) = dARP(3434)/dV(4729) - JVRP(5522) = V(5256) -! JVRP(5523) = dARP(3434)/dV(5256) - JVRP(5523) = V(4729) -! JVRP(5524) = dARP(3435)/dV(4729) - JVRP(5524) = V(5250) -! JVRP(5525) = dARP(3435)/dV(5250) - JVRP(5525) = V(4729) -! JVRP(5526) = dARP(3436)/dV(4729) - JVRP(5526) = 1 -! JVRP(5527) = dARP(3437)/dV(4718) - JVRP(5527) = V(5255) -! JVRP(5528) = dARP(3437)/dV(5255) - JVRP(5528) = V(4718) -! JVRP(5529) = dARP(3438)/dV(4718) - JVRP(5529) = V(5252) -! JVRP(5530) = dARP(3438)/dV(5252) - JVRP(5530) = V(4718) -! JVRP(5531) = dARP(3439)/dV(4718) - JVRP(5531) = V(5252) -! JVRP(5532) = dARP(3439)/dV(5252) - JVRP(5532) = V(4718) -! JVRP(5533) = dARP(3440)/dV(4718) - JVRP(5533) = V(5256) -! JVRP(5534) = dARP(3440)/dV(5256) - JVRP(5534) = V(4718) -! JVRP(5535) = dARP(3441)/dV(4718) - JVRP(5535) = 1 -! JVRP(5536) = dARP(3442)/dV(4718) - JVRP(5536) = 1 -! JVRP(5537) = dARP(3443)/dV(4718) - JVRP(5537) = 1 -! JVRP(5538) = dARP(3444)/dV(4483) - JVRP(5538) = V(5255) -! JVRP(5539) = dARP(3444)/dV(5255) - JVRP(5539) = V(4483) -! JVRP(5540) = dARP(3445)/dV(4483) - JVRP(5540) = V(5252) -! JVRP(5541) = dARP(3445)/dV(5252) - JVRP(5541) = V(4483) -! JVRP(5542) = dARP(3446)/dV(4483) - JVRP(5542) = V(5256) -! JVRP(5543) = dARP(3446)/dV(5256) - JVRP(5543) = V(4483) -! JVRP(5544) = dARP(3447)/dV(4483) - JVRP(5544) = 1 -! JVRP(5545) = dARP(3448)/dV(4483) - JVRP(5545) = 1 -! JVRP(5546) = dARP(3449)/dV(4483) - JVRP(5546) = 1 -! JVRP(5547) = dARP(3450)/dV(4408) - JVRP(5547) = V(5253) -! JVRP(5548) = dARP(3450)/dV(5253) - JVRP(5548) = V(4408) -! JVRP(5549) = dARP(3451)/dV(4408) - JVRP(5549) = V(5258) -! JVRP(5550) = dARP(3451)/dV(5258) - JVRP(5550) = V(4408) -! JVRP(5551) = dARP(3452)/dV(3531) - JVRP(5551) = V(5255) -! JVRP(5552) = dARP(3452)/dV(5255) - JVRP(5552) = V(3531) -! JVRP(5553) = dARP(3453)/dV(3531) - JVRP(5553) = V(5252) -! JVRP(5554) = dARP(3453)/dV(5252) - JVRP(5554) = V(3531) -! JVRP(5555) = dARP(3454)/dV(3531) - JVRP(5555) = V(5256) -! JVRP(5556) = dARP(3454)/dV(5256) - JVRP(5556) = V(3531) -! JVRP(5557) = dARP(3455)/dV(3531) - JVRP(5557) = 1 -! JVRP(5558) = dARP(3456)/dV(3531) - JVRP(5558) = 1 -! JVRP(5559) = dARP(3457)/dV(3796) - JVRP(5559) = V(5255) -! JVRP(5560) = dARP(3457)/dV(5255) - JVRP(5560) = V(3796) -! JVRP(5561) = dARP(3458)/dV(3796) - JVRP(5561) = V(5252) -! JVRP(5562) = dARP(3458)/dV(5252) - JVRP(5562) = V(3796) -! JVRP(5563) = dARP(3459)/dV(3796) - JVRP(5563) = V(5256) -! JVRP(5564) = dARP(3459)/dV(5256) - JVRP(5564) = V(3796) -! JVRP(5565) = dARP(3460)/dV(3796) - JVRP(5565) = 1 -! JVRP(5566) = dARP(3461)/dV(3796) - JVRP(5566) = 1 -! JVRP(5567) = dARP(3462)/dV(3560) - JVRP(5567) = V(5256) -! JVRP(5568) = dARP(3462)/dV(5256) - JVRP(5568) = V(3560) -! JVRP(5569) = dARP(3463)/dV(3560) - JVRP(5569) = V(5258) -! JVRP(5570) = dARP(3463)/dV(5258) - JVRP(5570) = V(3560) -! JVRP(5571) = dARP(3464)/dV(3560) - JVRP(5571) = V(5250) -! JVRP(5572) = dARP(3464)/dV(5250) - JVRP(5572) = V(3560) -! JVRP(5573) = dARP(3465)/dV(922) - JVRP(5573) = V(5250) -! JVRP(5574) = dARP(3465)/dV(5250) - JVRP(5574) = V(922) -! JVRP(5575) = dARP(3466)/dV(922) - JVRP(5575) = 1 -! JVRP(5576) = dARP(3467)/dV(2309) - JVRP(5576) = V(5250) -! JVRP(5577) = dARP(3467)/dV(5250) - JVRP(5577) = V(2309) -! JVRP(5578) = dARP(3468)/dV(2309) - JVRP(5578) = 1 -! JVRP(5579) = dARP(3469)/dV(1821) - JVRP(5579) = 1 -! JVRP(5580) = dARP(3470)/dV(3657) - JVRP(5580) = V(5256) -! JVRP(5581) = dARP(3470)/dV(5256) - JVRP(5581) = V(3657) -! JVRP(5582) = dARP(3471)/dV(3657) - JVRP(5582) = V(5250) -! JVRP(5583) = dARP(3471)/dV(5250) - JVRP(5583) = V(3657) -! JVRP(5584) = dARP(3472)/dV(3657) - JVRP(5584) = 1 -! JVRP(5585) = dARP(3473)/dV(3657) - JVRP(5585) = 1 -! JVRP(5586) = dARP(3474)/dV(262) - JVRP(5586) = V(5250) -! JVRP(5587) = dARP(3474)/dV(5250) - JVRP(5587) = V(262) -! JVRP(5588) = dARP(3475)/dV(1533) - JVRP(5588) = V(5250) -! JVRP(5589) = dARP(3475)/dV(5250) - JVRP(5589) = V(1533) -! JVRP(5590) = dARP(3476)/dV(1533) - JVRP(5590) = 1 -! JVRP(5591) = dARP(3477)/dV(2782) - JVRP(5591) = V(5250) -! JVRP(5592) = dARP(3477)/dV(5250) - JVRP(5592) = V(2782) -! JVRP(5593) = dARP(3478)/dV(2782) - JVRP(5593) = 1 -! JVRP(5594) = dARP(3479)/dV(3754) - JVRP(5594) = 1 -! JVRP(5595) = dARP(3480)/dV(3754) - JVRP(5595) = 1 -! JVRP(5596) = dARP(3481)/dV(3754) - JVRP(5596) = 1 -! JVRP(5597) = dARP(3482)/dV(102) - JVRP(5597) = V(5250) -! JVRP(5598) = dARP(3482)/dV(5250) - JVRP(5598) = V(102) -! JVRP(5599) = dARP(3483)/dV(4692) - JVRP(5599) = V(5255) -! JVRP(5600) = dARP(3483)/dV(5255) - JVRP(5600) = V(4692) -! JVRP(5601) = dARP(3484)/dV(4692) - JVRP(5601) = V(5255) -! JVRP(5602) = dARP(3484)/dV(5255) - JVRP(5602) = V(4692) -! JVRP(5603) = dARP(3485)/dV(4692) - JVRP(5603) = V(5255) -! JVRP(5604) = dARP(3485)/dV(5255) - JVRP(5604) = V(4692) -! JVRP(5605) = dARP(3486)/dV(4692) - JVRP(5605) = V(5252) -! JVRP(5606) = dARP(3486)/dV(5252) - JVRP(5606) = V(4692) -! JVRP(5607) = dARP(3487)/dV(4692) - JVRP(5607) = V(5253) -! JVRP(5608) = dARP(3487)/dV(5253) - JVRP(5608) = V(4692) -! JVRP(5609) = dARP(3488)/dV(4692) - JVRP(5609) = V(5256) -! JVRP(5610) = dARP(3488)/dV(5256) - JVRP(5610) = V(4692) -! JVRP(5611) = dARP(3489)/dV(4692) - JVRP(5611) = 1 -! JVRP(5612) = dARP(3490)/dV(4692) - JVRP(5612) = 1 -! JVRP(5613) = dARP(3491)/dV(4699) - JVRP(5613) = V(5255) -! JVRP(5614) = dARP(3491)/dV(5255) - JVRP(5614) = V(4699) -! JVRP(5615) = dARP(3492)/dV(4699) - JVRP(5615) = V(5252) -! JVRP(5616) = dARP(3492)/dV(5252) - JVRP(5616) = V(4699) -! JVRP(5617) = dARP(3493)/dV(4699) - JVRP(5617) = V(5252) -! JVRP(5618) = dARP(3493)/dV(5252) - JVRP(5618) = V(4699) -! JVRP(5619) = dARP(3494)/dV(4699) - JVRP(5619) = V(5256) -! JVRP(5620) = dARP(3494)/dV(5256) - JVRP(5620) = V(4699) -! JVRP(5621) = dARP(3495)/dV(4699) - JVRP(5621) = 1 -! JVRP(5622) = dARP(3496)/dV(4699) - JVRP(5622) = 1 -! JVRP(5623) = dARP(3497)/dV(4699) - JVRP(5623) = 1 -! JVRP(5624) = dARP(3498)/dV(4893) - JVRP(5624) = V(5255) -! JVRP(5625) = dARP(3498)/dV(5255) - JVRP(5625) = V(4893) -! JVRP(5626) = dARP(3499)/dV(4893) - JVRP(5626) = V(5252) -! JVRP(5627) = dARP(3499)/dV(5252) - JVRP(5627) = V(4893) -! JVRP(5628) = dARP(3500)/dV(4893) - JVRP(5628) = V(5256) -! JVRP(5629) = dARP(3500)/dV(5256) - JVRP(5629) = V(4893) -! JVRP(5630) = dARP(3501)/dV(4893) - JVRP(5630) = 1 -! JVRP(5631) = dARP(3502)/dV(4893) - JVRP(5631) = 1 -! JVRP(5632) = dARP(3503)/dV(3808) - JVRP(5632) = V(5255) -! JVRP(5633) = dARP(3503)/dV(5255) - JVRP(5633) = V(3808) -! JVRP(5634) = dARP(3504)/dV(3808) - JVRP(5634) = V(5252) -! JVRP(5635) = dARP(3504)/dV(5252) - JVRP(5635) = V(3808) -! JVRP(5636) = dARP(3505)/dV(3808) - JVRP(5636) = V(5256) -! JVRP(5637) = dARP(3505)/dV(5256) - JVRP(5637) = V(3808) -! JVRP(5638) = dARP(3506)/dV(3808) - JVRP(5638) = 1 -! JVRP(5639) = dARP(3507)/dV(3808) - JVRP(5639) = 1 -! JVRP(5640) = dARP(3508)/dV(4495) - JVRP(5640) = V(5253) -! JVRP(5641) = dARP(3508)/dV(5253) - JVRP(5641) = V(4495) -! JVRP(5642) = dARP(3509)/dV(4495) - JVRP(5642) = V(5258) -! JVRP(5643) = dARP(3509)/dV(5258) - JVRP(5643) = V(4495) -! JVRP(5644) = dARP(3510)/dV(3534) - JVRP(5644) = V(5255) -! JVRP(5645) = dARP(3510)/dV(5255) - JVRP(5645) = V(3534) -! JVRP(5646) = dARP(3511)/dV(3534) - JVRP(5646) = V(5252) -! JVRP(5647) = dARP(3511)/dV(5252) - JVRP(5647) = V(3534) -! JVRP(5648) = dARP(3512)/dV(3534) - JVRP(5648) = V(5256) -! JVRP(5649) = dARP(3512)/dV(5256) - JVRP(5649) = V(3534) -! JVRP(5650) = dARP(3513)/dV(3534) - JVRP(5650) = 1 -! JVRP(5651) = dARP(3514)/dV(3534) - JVRP(5651) = 1 -! JVRP(5652) = dARP(3515)/dV(3512) - JVRP(5652) = V(5256) -! JVRP(5653) = dARP(3515)/dV(5256) - JVRP(5653) = V(3512) -! JVRP(5654) = dARP(3516)/dV(3512) - JVRP(5654) = V(5258) -! JVRP(5655) = dARP(3516)/dV(5258) - JVRP(5655) = V(3512) -! JVRP(5656) = dARP(3517)/dV(3512) - JVRP(5656) = V(5250) -! JVRP(5657) = dARP(3517)/dV(5250) - JVRP(5657) = V(3512) -! JVRP(5658) = dARP(3518)/dV(966) - JVRP(5658) = V(5250) -! JVRP(5659) = dARP(3518)/dV(5250) - JVRP(5659) = V(966) -! JVRP(5660) = dARP(3519)/dV(966) - JVRP(5660) = 1 -! JVRP(5661) = dARP(3520)/dV(1796) - JVRP(5661) = 1 -! JVRP(5662) = dARP(3521)/dV(2302) - JVRP(5662) = V(5250) -! JVRP(5663) = dARP(3521)/dV(5250) - JVRP(5663) = V(2302) -! JVRP(5664) = dARP(3522)/dV(2302) - JVRP(5664) = 1 -! JVRP(5665) = dARP(3523)/dV(277) - JVRP(5665) = V(5250) -! JVRP(5666) = dARP(3523)/dV(5250) - JVRP(5666) = V(277) -! JVRP(5667) = dARP(3524)/dV(3649) - JVRP(5667) = V(5256) -! JVRP(5668) = dARP(3524)/dV(5256) - JVRP(5668) = V(3649) -! JVRP(5669) = dARP(3525)/dV(3649) - JVRP(5669) = V(5250) -! JVRP(5670) = dARP(3525)/dV(5250) - JVRP(5670) = V(3649) -! JVRP(5671) = dARP(3526)/dV(3649) - JVRP(5671) = 1 -! JVRP(5672) = dARP(3527)/dV(4453) - JVRP(5672) = V(5253) -! JVRP(5673) = dARP(3527)/dV(5253) - JVRP(5673) = V(4453) -! JVRP(5674) = dARP(3528)/dV(4453) - JVRP(5674) = V(5258) -! JVRP(5675) = dARP(3528)/dV(5258) - JVRP(5675) = V(4453) -! JVRP(5676) = dARP(3529)/dV(3562) - JVRP(5676) = V(5255) -! JVRP(5677) = dARP(3529)/dV(5255) - JVRP(5677) = V(3562) -! JVRP(5678) = dARP(3530)/dV(3562) - JVRP(5678) = V(5252) -! JVRP(5679) = dARP(3530)/dV(5252) - JVRP(5679) = V(3562) -! JVRP(5680) = dARP(3531)/dV(3562) - JVRP(5680) = V(5256) -! JVRP(5681) = dARP(3531)/dV(5256) - JVRP(5681) = V(3562) -! JVRP(5682) = dARP(3532)/dV(3562) - JVRP(5682) = 1 -! JVRP(5683) = dARP(3533)/dV(3562) - JVRP(5683) = 1 -! JVRP(5684) = dARP(3534)/dV(3813) - JVRP(5684) = V(5255) -! JVRP(5685) = dARP(3534)/dV(5255) - JVRP(5685) = V(3813) -! JVRP(5686) = dARP(3535)/dV(3813) - JVRP(5686) = V(5252) -! JVRP(5687) = dARP(3535)/dV(5252) - JVRP(5687) = V(3813) -! JVRP(5688) = dARP(3536)/dV(3813) - JVRP(5688) = V(5256) -! JVRP(5689) = dARP(3536)/dV(5256) - JVRP(5689) = V(3813) -! JVRP(5690) = dARP(3537)/dV(3813) - JVRP(5690) = 1 -! JVRP(5691) = dARP(3538)/dV(3813) - JVRP(5691) = 1 -! JVRP(5692) = dARP(3539)/dV(3831) - JVRP(5692) = V(5256) -! JVRP(5693) = dARP(3539)/dV(5256) - JVRP(5693) = V(3831) -! JVRP(5694) = dARP(3540)/dV(3831) - JVRP(5694) = V(5258) -! JVRP(5695) = dARP(3540)/dV(5258) - JVRP(5695) = V(3831) -! JVRP(5696) = dARP(3541)/dV(3831) - JVRP(5696) = V(5250) -! JVRP(5697) = dARP(3541)/dV(5250) - JVRP(5697) = V(3831) -! JVRP(5698) = dARP(3542)/dV(1211) - JVRP(5698) = V(5250) -! JVRP(5699) = dARP(3542)/dV(5250) - JVRP(5699) = V(1211) -! JVRP(5700) = dARP(3543)/dV(1211) - JVRP(5700) = 1 -! JVRP(5701) = dARP(3544)/dV(3812) - JVRP(5701) = 1 -! JVRP(5702) = dARP(3545)/dV(3812) - JVRP(5702) = 1 -! JVRP(5703) = dARP(3546)/dV(3812) - JVRP(5703) = 1 -! JVRP(5704) = dARP(3547)/dV(3812) - JVRP(5704) = 1 -! JVRP(5705) = dARP(3548)/dV(1964) - JVRP(5705) = V(5250) -! JVRP(5706) = dARP(3548)/dV(5250) - JVRP(5706) = V(1964) -! JVRP(5707) = dARP(3549)/dV(1964) - JVRP(5707) = 1 -! JVRP(5708) = dARP(3550)/dV(428) - JVRP(5708) = V(5250) -! JVRP(5709) = dARP(3550)/dV(5250) - JVRP(5709) = V(428) -! JVRP(5710) = dARP(3551)/dV(3089) - JVRP(5710) = V(5250) -! JVRP(5711) = dARP(3551)/dV(5250) - JVRP(5711) = V(3089) -! JVRP(5712) = dARP(3552)/dV(3089) - JVRP(5712) = 1 -! JVRP(5713) = dARP(3553)/dV(4641) - JVRP(5713) = V(5255) -! JVRP(5714) = dARP(3553)/dV(5255) - JVRP(5714) = V(4641) -! JVRP(5715) = dARP(3554)/dV(4641) - JVRP(5715) = V(5255) -! JVRP(5716) = dARP(3554)/dV(5255) - JVRP(5716) = V(4641) -! JVRP(5717) = dARP(3555)/dV(4641) - JVRP(5717) = V(5255) -! JVRP(5718) = dARP(3555)/dV(5255) - JVRP(5718) = V(4641) -! JVRP(5719) = dARP(3556)/dV(4641) - JVRP(5719) = V(5252) -! JVRP(5720) = dARP(3556)/dV(5252) - JVRP(5720) = V(4641) -! JVRP(5721) = dARP(3557)/dV(4641) - JVRP(5721) = V(5253) -! JVRP(5722) = dARP(3557)/dV(5253) - JVRP(5722) = V(4641) -! JVRP(5723) = dARP(3558)/dV(4641) - JVRP(5723) = V(5256) -! JVRP(5724) = dARP(3558)/dV(5256) - JVRP(5724) = V(4641) -! JVRP(5725) = dARP(3559)/dV(4641) - JVRP(5725) = 1 -! JVRP(5726) = dARP(3560)/dV(4641) - JVRP(5726) = 1 -! JVRP(5727) = dARP(3561)/dV(4081) - JVRP(5727) = 1 -! JVRP(5728) = dARP(3562)/dV(4081) - JVRP(5728) = 1 -! JVRP(5729) = dARP(3563)/dV(4081) - JVRP(5729) = 1 -! JVRP(5730) = dARP(3564)/dV(4081) - JVRP(5730) = 1 -! JVRP(5731) = dARP(3565)/dV(4701) - JVRP(5731) = V(5255) -! JVRP(5732) = dARP(3565)/dV(5255) - JVRP(5732) = V(4701) -! JVRP(5733) = dARP(3566)/dV(4701) - JVRP(5733) = V(5252) -! JVRP(5734) = dARP(3566)/dV(5252) - JVRP(5734) = V(4701) -! JVRP(5735) = dARP(3567)/dV(4701) - JVRP(5735) = V(5252) -! JVRP(5736) = dARP(3567)/dV(5252) - JVRP(5736) = V(4701) -! JVRP(5737) = dARP(3568)/dV(4701) - JVRP(5737) = V(5256) -! JVRP(5738) = dARP(3568)/dV(5256) - JVRP(5738) = V(4701) -! JVRP(5739) = dARP(3569)/dV(4701) - JVRP(5739) = 1 -! JVRP(5740) = dARP(3570)/dV(4701) - JVRP(5740) = 1 -! JVRP(5741) = dARP(3571)/dV(4701) - JVRP(5741) = 1 -! JVRP(5742) = dARP(3572)/dV(4667) - JVRP(5742) = V(5255) -! JVRP(5743) = dARP(3572)/dV(5255) - JVRP(5743) = V(4667) -! JVRP(5744) = dARP(3573)/dV(4667) - JVRP(5744) = V(5252) -! JVRP(5745) = dARP(3573)/dV(5252) - JVRP(5745) = V(4667) -! JVRP(5746) = dARP(3574)/dV(4667) - JVRP(5746) = V(5256) -! JVRP(5747) = dARP(3574)/dV(5256) - JVRP(5747) = V(4667) -! JVRP(5748) = dARP(3575)/dV(4667) - JVRP(5748) = 1 -! JVRP(5749) = dARP(3576)/dV(4667) - JVRP(5749) = 1 -! JVRP(5750) = dARP(3577)/dV(4667) - JVRP(5750) = 1 -! JVRP(5751) = dARP(3578)/dV(1315) - JVRP(5751) = V(5250) -! JVRP(5752) = dARP(3578)/dV(5250) - JVRP(5752) = V(1315) -! JVRP(5753) = dARP(3579)/dV(1315) - JVRP(5753) = 1 -! JVRP(5754) = dARP(3580)/dV(2321) - JVRP(5754) = V(5250) -! JVRP(5755) = dARP(3580)/dV(5250) - JVRP(5755) = V(2321) -! JVRP(5756) = dARP(3581)/dV(2321) - JVRP(5756) = 1 -! JVRP(5757) = dARP(3582)/dV(2322) - JVRP(5757) = 1 -! JVRP(5758) = dARP(3583)/dV(464) - JVRP(5758) = V(5250) -! JVRP(5759) = dARP(3583)/dV(5250) - JVRP(5759) = V(464) -! JVRP(5760) = dARP(3584)/dV(3368) - JVRP(5760) = V(5250) -! JVRP(5761) = dARP(3584)/dV(5250) - JVRP(5761) = V(3368) -! JVRP(5762) = dARP(3585)/dV(3368) - JVRP(5762) = 1 -! JVRP(5763) = dARP(3586)/dV(3799) - JVRP(5763) = V(5255) -! JVRP(5764) = dARP(3586)/dV(5255) - JVRP(5764) = V(3799) -! JVRP(5765) = dARP(3587)/dV(3799) - JVRP(5765) = V(5252) -! JVRP(5766) = dARP(3587)/dV(5252) - JVRP(5766) = V(3799) -! JVRP(5767) = dARP(3588)/dV(3799) - JVRP(5767) = V(5256) -! JVRP(5768) = dARP(3588)/dV(5256) - JVRP(5768) = V(3799) -! JVRP(5769) = dARP(3589)/dV(3799) - JVRP(5769) = 1 -! JVRP(5770) = dARP(3590)/dV(3799) - JVRP(5770) = 1 -! JVRP(5771) = dARP(3591)/dV(4479) - JVRP(5771) = V(5253) -! JVRP(5772) = dARP(3591)/dV(5253) - JVRP(5772) = V(4479) -! JVRP(5773) = dARP(3592)/dV(4479) - JVRP(5773) = V(5258) -! JVRP(5774) = dARP(3592)/dV(5258) - JVRP(5774) = V(4479) -! JVRP(5775) = dARP(3593)/dV(3554) - JVRP(5775) = V(5255) -! JVRP(5776) = dARP(3593)/dV(5255) - JVRP(5776) = V(3554) -! JVRP(5777) = dARP(3594)/dV(3554) - JVRP(5777) = V(5252) -! JVRP(5778) = dARP(3594)/dV(5252) - JVRP(5778) = V(3554) -! JVRP(5779) = dARP(3595)/dV(3554) - JVRP(5779) = V(5256) -! JVRP(5780) = dARP(3595)/dV(5256) - JVRP(5780) = V(3554) -! JVRP(5781) = dARP(3596)/dV(3554) - JVRP(5781) = 1 -! JVRP(5782) = dARP(3597)/dV(3554) - JVRP(5782) = 1 -! JVRP(5783) = dARP(3598)/dV(3701) - JVRP(5783) = V(5256) -! JVRP(5784) = dARP(3598)/dV(5256) - JVRP(5784) = V(3701) -! JVRP(5785) = dARP(3599)/dV(3701) - JVRP(5785) = V(5258) -! JVRP(5786) = dARP(3599)/dV(5258) - JVRP(5786) = V(3701) -! JVRP(5787) = dARP(3600)/dV(3701) - JVRP(5787) = V(5250) -! JVRP(5788) = dARP(3600)/dV(5250) - JVRP(5788) = V(3701) -! JVRP(5789) = dARP(3601)/dV(1027) - JVRP(5789) = V(5250) -! JVRP(5790) = dARP(3601)/dV(5250) - JVRP(5790) = V(1027) -! JVRP(5791) = dARP(3602)/dV(1027) - JVRP(5791) = 1 -! JVRP(5792) = dARP(3603)/dV(3805) - JVRP(5792) = 1 -! JVRP(5793) = dARP(3604)/dV(3805) - JVRP(5793) = 1 -! JVRP(5794) = dARP(3605)/dV(3805) - JVRP(5794) = 1 -! JVRP(5795) = dARP(3606)/dV(3805) - JVRP(5795) = 1 -! JVRP(5796) = dARP(3607)/dV(2406) - JVRP(5796) = V(5250) -! JVRP(5797) = dARP(3607)/dV(5250) - JVRP(5797) = V(2406) -! JVRP(5798) = dARP(3608)/dV(2406) - JVRP(5798) = 1 -! JVRP(5799) = dARP(3609)/dV(436) - JVRP(5799) = V(5250) -! JVRP(5800) = dARP(3609)/dV(5250) - JVRP(5800) = V(436) -! JVRP(5801) = dARP(3610)/dV(3174) - JVRP(5801) = V(5250) -! JVRP(5802) = dARP(3610)/dV(5250) - JVRP(5802) = V(3174) -! JVRP(5803) = dARP(3611)/dV(3174) - JVRP(5803) = 1 -! JVRP(5804) = dARP(3612)/dV(4829) - JVRP(5804) = V(5255) -! JVRP(5805) = dARP(3612)/dV(5255) - JVRP(5805) = V(4829) -! JVRP(5806) = dARP(3613)/dV(4829) - JVRP(5806) = V(5255) -! JVRP(5807) = dARP(3613)/dV(5255) - JVRP(5807) = V(4829) -! JVRP(5808) = dARP(3614)/dV(4829) - JVRP(5808) = V(5255) -! JVRP(5809) = dARP(3614)/dV(5255) - JVRP(5809) = V(4829) -! JVRP(5810) = dARP(3615)/dV(4829) - JVRP(5810) = V(5252) -! JVRP(5811) = dARP(3615)/dV(5252) - JVRP(5811) = V(4829) -! JVRP(5812) = dARP(3616)/dV(4829) - JVRP(5812) = V(5253) -! JVRP(5813) = dARP(3616)/dV(5253) - JVRP(5813) = V(4829) -! JVRP(5814) = dARP(3617)/dV(4829) - JVRP(5814) = V(5256) -! JVRP(5815) = dARP(3617)/dV(5256) - JVRP(5815) = V(4829) -! JVRP(5816) = dARP(3618)/dV(4829) - JVRP(5816) = 1 -! JVRP(5817) = dARP(3619)/dV(4829) - JVRP(5817) = 1 -! JVRP(5818) = dARP(3620)/dV(2148) - JVRP(5818) = 1 -! JVRP(5819) = dARP(3621)/dV(2148) - JVRP(5819) = 1 -! JVRP(5820) = dARP(3622)/dV(2148) - JVRP(5820) = 1 -! JVRP(5821) = dARP(3623)/dV(2148) - JVRP(5821) = 1 -! JVRP(5822) = dARP(3624)/dV(4377) - JVRP(5822) = V(5255) -! JVRP(5823) = dARP(3624)/dV(5255) - JVRP(5823) = V(4377) -! JVRP(5824) = dARP(3625)/dV(4377) - JVRP(5824) = V(5252) -! JVRP(5825) = dARP(3625)/dV(5252) - JVRP(5825) = V(4377) -! JVRP(5826) = dARP(3626)/dV(4377) - JVRP(5826) = V(5252) -! JVRP(5827) = dARP(3626)/dV(5252) - JVRP(5827) = V(4377) -! JVRP(5828) = dARP(3627)/dV(4377) - JVRP(5828) = V(5256) -! JVRP(5829) = dARP(3627)/dV(5256) - JVRP(5829) = V(4377) -! JVRP(5830) = dARP(3628)/dV(4377) - JVRP(5830) = 1 -! JVRP(5831) = dARP(3629)/dV(4377) - JVRP(5831) = 1 -! JVRP(5832) = dARP(3630)/dV(4377) - JVRP(5832) = 1 -! JVRP(5833) = dARP(3631)/dV(4683) - JVRP(5833) = V(5255) -! JVRP(5834) = dARP(3631)/dV(5255) - JVRP(5834) = V(4683) -! JVRP(5835) = dARP(3632)/dV(4683) - JVRP(5835) = V(5252) -! JVRP(5836) = dARP(3632)/dV(5252) - JVRP(5836) = V(4683) -! JVRP(5837) = dARP(3633)/dV(4683) - JVRP(5837) = V(5256) -! JVRP(5838) = dARP(3633)/dV(5256) - JVRP(5838) = V(4683) -! JVRP(5839) = dARP(3634)/dV(4683) - JVRP(5839) = 1 -! JVRP(5840) = dARP(3635)/dV(4683) - JVRP(5840) = 1 -! JVRP(5841) = dARP(3636)/dV(4683) - JVRP(5841) = 1 -! JVRP(5842) = dARP(3637)/dV(1431) - JVRP(5842) = V(5250) -! JVRP(5843) = dARP(3637)/dV(5250) - JVRP(5843) = V(1431) -! JVRP(5844) = dARP(3638)/dV(1431) - JVRP(5844) = 1 -! JVRP(5845) = dARP(3639)/dV(3439) - JVRP(5845) = V(5250) -! JVRP(5846) = dARP(3639)/dV(5250) - JVRP(5846) = V(3439) -! JVRP(5847) = dARP(3640)/dV(3439) - JVRP(5847) = 1 -! JVRP(5848) = dARP(3641)/dV(3440) - JVRP(5848) = 1 -! JVRP(5849) = dARP(3642)/dV(89) - JVRP(5849) = V(5250) -! JVRP(5850) = dARP(3642)/dV(5250) - JVRP(5850) = V(89) -! JVRP(5851) = dARP(3643)/dV(4457) - JVRP(5851) = V(5253) -! JVRP(5852) = dARP(3643)/dV(5253) - JVRP(5852) = V(4457) -! JVRP(5853) = dARP(3644)/dV(4457) - JVRP(5853) = V(5258) -! JVRP(5854) = dARP(3644)/dV(5258) - JVRP(5854) = V(4457) -! JVRP(5855) = dARP(3645)/dV(3539) - JVRP(5855) = V(5255) -! JVRP(5856) = dARP(3645)/dV(5255) - JVRP(5856) = V(3539) -! JVRP(5857) = dARP(3646)/dV(3539) - JVRP(5857) = V(5252) -! JVRP(5858) = dARP(3646)/dV(5252) - JVRP(5858) = V(3539) -! JVRP(5859) = dARP(3647)/dV(3539) - JVRP(5859) = V(5256) -! JVRP(5860) = dARP(3647)/dV(5256) - JVRP(5860) = V(3539) -! JVRP(5861) = dARP(3648)/dV(3539) - JVRP(5861) = 1 -! JVRP(5862) = dARP(3649)/dV(3539) - JVRP(5862) = 1 -! JVRP(5863) = dARP(3650)/dV(3815) - JVRP(5863) = V(5255) -! JVRP(5864) = dARP(3650)/dV(5255) - JVRP(5864) = V(3815) -! JVRP(5865) = dARP(3651)/dV(3815) - JVRP(5865) = V(5252) -! JVRP(5866) = dARP(3651)/dV(5252) - JVRP(5866) = V(3815) -! JVRP(5867) = dARP(3652)/dV(3815) - JVRP(5867) = V(5256) -! JVRP(5868) = dARP(3652)/dV(5256) - JVRP(5868) = V(3815) -! JVRP(5869) = dARP(3653)/dV(3815) - JVRP(5869) = 1 -! JVRP(5870) = dARP(3654)/dV(3815) - JVRP(5870) = 1 -! JVRP(5871) = dARP(3655)/dV(3684) - JVRP(5871) = V(5256) -! JVRP(5872) = dARP(3655)/dV(5256) - JVRP(5872) = V(3684) -! JVRP(5873) = dARP(3656)/dV(3684) - JVRP(5873) = V(5258) -! JVRP(5874) = dARP(3656)/dV(5258) - JVRP(5874) = V(3684) -! JVRP(5875) = dARP(3657)/dV(3684) - JVRP(5875) = V(5250) -! JVRP(5876) = dARP(3657)/dV(5250) - JVRP(5876) = V(3684) -! JVRP(5877) = dARP(3658)/dV(1039) - JVRP(5877) = V(5250) -! JVRP(5878) = dARP(3658)/dV(5250) - JVRP(5878) = V(1039) -! JVRP(5879) = dARP(3659)/dV(1039) - JVRP(5879) = 1 -! JVRP(5880) = dARP(3660)/dV(3795) - JVRP(5880) = 1 -! JVRP(5881) = dARP(3661)/dV(3795) - JVRP(5881) = 1 -! JVRP(5882) = dARP(3662)/dV(3795) - JVRP(5882) = 1 -! JVRP(5883) = dARP(3663)/dV(3795) - JVRP(5883) = 1 -! JVRP(5884) = dARP(3664)/dV(2418) - JVRP(5884) = V(5250) -! JVRP(5885) = dARP(3664)/dV(5250) - JVRP(5885) = V(2418) -! JVRP(5886) = dARP(3665)/dV(2418) - JVRP(5886) = 1 -! JVRP(5887) = dARP(3666)/dV(283) - JVRP(5887) = V(5250) -! JVRP(5888) = dARP(3666)/dV(5250) - JVRP(5888) = V(283) -! JVRP(5889) = dARP(3667)/dV(3122) - JVRP(5889) = V(5250) -! JVRP(5890) = dARP(3667)/dV(5250) - JVRP(5890) = V(3122) -! JVRP(5891) = dARP(3668)/dV(3122) - JVRP(5891) = 1 -! JVRP(5892) = dARP(3669)/dV(4635) - JVRP(5892) = V(5255) -! JVRP(5893) = dARP(3669)/dV(5255) - JVRP(5893) = V(4635) -! JVRP(5894) = dARP(3670)/dV(4635) - JVRP(5894) = V(5255) -! JVRP(5895) = dARP(3670)/dV(5255) - JVRP(5895) = V(4635) -! JVRP(5896) = dARP(3671)/dV(4635) - JVRP(5896) = V(5255) -! JVRP(5897) = dARP(3671)/dV(5255) - JVRP(5897) = V(4635) -! JVRP(5898) = dARP(3672)/dV(4635) - JVRP(5898) = V(5252) -! JVRP(5899) = dARP(3672)/dV(5252) - JVRP(5899) = V(4635) -! JVRP(5900) = dARP(3673)/dV(4635) - JVRP(5900) = V(5253) -! JVRP(5901) = dARP(3673)/dV(5253) - JVRP(5901) = V(4635) -! JVRP(5902) = dARP(3674)/dV(4635) - JVRP(5902) = V(5256) -! JVRP(5903) = dARP(3674)/dV(5256) - JVRP(5903) = V(4635) -! JVRP(5904) = dARP(3675)/dV(4635) - JVRP(5904) = 1 -! JVRP(5905) = dARP(3676)/dV(4635) - JVRP(5905) = 1 -! JVRP(5906) = dARP(3677)/dV(3210) - JVRP(5906) = 1 -! JVRP(5907) = dARP(3678)/dV(3210) - JVRP(5907) = 1 -! JVRP(5908) = dARP(3679)/dV(3210) - JVRP(5908) = 1 -! JVRP(5909) = dARP(3680)/dV(3210) - JVRP(5909) = 1 -! JVRP(5910) = dARP(3681)/dV(4928) - JVRP(5910) = V(5255) -! JVRP(5911) = dARP(3681)/dV(5255) - JVRP(5911) = V(4928) -! JVRP(5912) = dARP(3682)/dV(4928) - JVRP(5912) = V(5252) -! JVRP(5913) = dARP(3682)/dV(5252) - JVRP(5913) = V(4928) -! JVRP(5914) = dARP(3683)/dV(4928) - JVRP(5914) = V(5252) -! JVRP(5915) = dARP(3683)/dV(5252) - JVRP(5915) = V(4928) -! JVRP(5916) = dARP(3684)/dV(4928) - JVRP(5916) = V(5256) -! JVRP(5917) = dARP(3684)/dV(5256) - JVRP(5917) = V(4928) -! JVRP(5918) = dARP(3685)/dV(4928) - JVRP(5918) = 1 -! JVRP(5919) = dARP(3686)/dV(4928) - JVRP(5919) = 1 -! JVRP(5920) = dARP(3687)/dV(4928) - JVRP(5920) = 1 -! JVRP(5921) = dARP(3688)/dV(4675) - JVRP(5921) = V(5255) -! JVRP(5922) = dARP(3688)/dV(5255) - JVRP(5922) = V(4675) -! JVRP(5923) = dARP(3689)/dV(4675) - JVRP(5923) = V(5252) -! JVRP(5924) = dARP(3689)/dV(5252) - JVRP(5924) = V(4675) -! JVRP(5925) = dARP(3690)/dV(4675) - JVRP(5925) = V(5256) -! JVRP(5926) = dARP(3690)/dV(5256) - JVRP(5926) = V(4675) -! JVRP(5927) = dARP(3691)/dV(4675) - JVRP(5927) = 1 -! JVRP(5928) = dARP(3692)/dV(4675) - JVRP(5928) = 1 -! JVRP(5929) = dARP(3693)/dV(4675) - JVRP(5929) = 1 -! JVRP(5930) = dARP(3694)/dV(1542) - JVRP(5930) = V(5250) -! JVRP(5931) = dARP(3694)/dV(5250) - JVRP(5931) = V(1542) -! JVRP(5932) = dARP(3695)/dV(1542) - JVRP(5932) = 1 -! JVRP(5933) = dARP(3696)/dV(1881) - JVRP(5933) = V(5250) -! JVRP(5934) = dARP(3696)/dV(5250) - JVRP(5934) = V(1881) -! JVRP(5935) = dARP(3697)/dV(1881) - JVRP(5935) = 1 -! JVRP(5936) = dARP(3698)/dV(1860) - JVRP(5936) = 1 -! JVRP(5937) = dARP(3699)/dV(3661) - JVRP(5937) = V(5256) -! JVRP(5938) = dARP(3699)/dV(5256) - JVRP(5938) = V(3661) -! JVRP(5939) = dARP(3700)/dV(3661) - JVRP(5939) = V(5250) -! JVRP(5940) = dARP(3700)/dV(5250) - JVRP(5940) = V(3661) -! JVRP(5941) = dARP(3701)/dV(3661) - JVRP(5941) = 1 -! JVRP(5942) = dARP(3702)/dV(3661) - JVRP(5942) = 1 -! JVRP(5943) = dARP(3703)/dV(396) - JVRP(5943) = V(5250) -! JVRP(5944) = dARP(3703)/dV(5250) - JVRP(5944) = V(396) -! JVRP(5945) = dARP(3704)/dV(3663) - JVRP(5945) = V(5255) -! JVRP(5946) = dARP(3704)/dV(5255) - JVRP(5946) = V(3663) -! JVRP(5947) = dARP(3705)/dV(3663) - JVRP(5947) = V(5252) -! JVRP(5948) = dARP(3705)/dV(5252) - JVRP(5948) = V(3663) -! JVRP(5949) = dARP(3706)/dV(3663) - JVRP(5949) = V(5256) -! JVRP(5950) = dARP(3706)/dV(5256) - JVRP(5950) = V(3663) -! JVRP(5951) = dARP(3707)/dV(3663) - JVRP(5951) = 1 -! JVRP(5952) = dARP(3708)/dV(3663) - JVRP(5952) = 1 -! JVRP(5953) = dARP(3709)/dV(4494) - JVRP(5953) = V(5253) -! JVRP(5954) = dARP(3709)/dV(5253) - JVRP(5954) = V(4494) -! JVRP(5955) = dARP(3710)/dV(4494) - JVRP(5955) = V(5258) -! JVRP(5956) = dARP(3710)/dV(5258) - JVRP(5956) = V(4494) -! JVRP(5957) = dARP(3711)/dV(3627) - JVRP(5957) = V(5255) -! JVRP(5958) = dARP(3711)/dV(5255) - JVRP(5958) = V(3627) -! JVRP(5959) = dARP(3712)/dV(3627) - JVRP(5959) = V(5252) -! JVRP(5960) = dARP(3712)/dV(5252) - JVRP(5960) = V(3627) -! JVRP(5961) = dARP(3713)/dV(3627) - JVRP(5961) = V(5256) -! JVRP(5962) = dARP(3713)/dV(5256) - JVRP(5962) = V(3627) -! JVRP(5963) = dARP(3714)/dV(3627) - JVRP(5963) = 1 -! JVRP(5964) = dARP(3715)/dV(3627) - JVRP(5964) = 1 -! JVRP(5965) = dARP(3716)/dV(3482) - JVRP(5965) = V(5256) -! JVRP(5966) = dARP(3716)/dV(5256) - JVRP(5966) = V(3482) -! JVRP(5967) = dARP(3717)/dV(3482) - JVRP(5967) = V(5258) -! JVRP(5968) = dARP(3717)/dV(5258) - JVRP(5968) = V(3482) -! JVRP(5969) = dARP(3718)/dV(3482) - JVRP(5969) = V(5250) -! JVRP(5970) = dARP(3718)/dV(5250) - JVRP(5970) = V(3482) -! JVRP(5971) = dARP(3719)/dV(956) - JVRP(5971) = V(5250) -! JVRP(5972) = dARP(3719)/dV(5250) - JVRP(5972) = V(956) -! JVRP(5973) = dARP(3720)/dV(956) - JVRP(5973) = 1 -! JVRP(5974) = dARP(3721)/dV(2241) - JVRP(5974) = V(5250) -! JVRP(5975) = dARP(3721)/dV(5250) - JVRP(5975) = V(2241) -! JVRP(5976) = dARP(3722)/dV(2241) - JVRP(5976) = 1 -! JVRP(5977) = dARP(3723)/dV(4937) - JVRP(5977) = 1 -! JVRP(5978) = dARP(3724)/dV(4937) - JVRP(5978) = 1 -! JVRP(5979) = dARP(3725)/dV(4937) - JVRP(5979) = 1 -! JVRP(5980) = dARP(3726)/dV(4937) - JVRP(5980) = 1 -! JVRP(5981) = dARP(3727)/dV(4937) - JVRP(5981) = 1 -! JVRP(5982) = dARP(3728)/dV(4937) - JVRP(5982) = 1 -! JVRP(5983) = dARP(3729)/dV(274) - JVRP(5983) = V(5250) -! JVRP(5984) = dARP(3729)/dV(5250) - JVRP(5984) = V(274) -! JVRP(5985) = dARP(3730)/dV(3103) - JVRP(5985) = V(5250) -! JVRP(5986) = dARP(3730)/dV(5250) - JVRP(5986) = V(3103) -! JVRP(5987) = dARP(3731)/dV(3103) - JVRP(5987) = 1 -! JVRP(5988) = dARP(3732)/dV(4630) - JVRP(5988) = V(5256) -! JVRP(5989) = dARP(3732)/dV(5256) - JVRP(5989) = V(4630) -! JVRP(5990) = dARP(3733)/dV(4630) - JVRP(5990) = V(5250) -! JVRP(5991) = dARP(3733)/dV(5250) - JVRP(5991) = V(4630) -! JVRP(5992) = dARP(3734)/dV(4630) - JVRP(5992) = 1 -! JVRP(5993) = dARP(3735)/dV(4630) - JVRP(5993) = 1 -! JVRP(5994) = dARP(3736)/dV(4971) - JVRP(5994) = V(5255) -! JVRP(5995) = dARP(3736)/dV(5255) - JVRP(5995) = V(4971) -! JVRP(5996) = dARP(3737)/dV(4971) - JVRP(5996) = V(5252) -! JVRP(5997) = dARP(3737)/dV(5252) - JVRP(5997) = V(4971) -! JVRP(5998) = dARP(3738)/dV(4971) - JVRP(5998) = V(5252) -! JVRP(5999) = dARP(3738)/dV(5252) - JVRP(5999) = V(4971) -! JVRP(6000) = dARP(3739)/dV(4971) - JVRP(6000) = V(5256) -! JVRP(6001) = dARP(3739)/dV(5256) - JVRP(6001) = V(4971) -! JVRP(6002) = dARP(3740)/dV(4971) - JVRP(6002) = 1 -! JVRP(6003) = dARP(3741)/dV(4971) - JVRP(6003) = 1 -! JVRP(6004) = dARP(3742)/dV(4971) - JVRP(6004) = 1 -! JVRP(6005) = dARP(3743)/dV(1458) - JVRP(6005) = V(5250) -! JVRP(6006) = dARP(3743)/dV(5250) - JVRP(6006) = V(1458) -! JVRP(6007) = dARP(3744)/dV(1458) - JVRP(6007) = 1 -! JVRP(6008) = dARP(3745)/dV(1772) - JVRP(6008) = V(5250) -! JVRP(6009) = dARP(3745)/dV(5250) - JVRP(6009) = V(1772) -! JVRP(6010) = dARP(3746)/dV(1772) - JVRP(6010) = 1 -! JVRP(6011) = dARP(3747)/dV(1773) - JVRP(6011) = 1 -! JVRP(6012) = dARP(3748)/dV(3655) - JVRP(6012) = V(5256) -! JVRP(6013) = dARP(3748)/dV(5256) - JVRP(6013) = V(3655) -! JVRP(6014) = dARP(3749)/dV(3655) - JVRP(6014) = V(5250) -! JVRP(6015) = dARP(3749)/dV(5250) - JVRP(6015) = V(3655) -! JVRP(6016) = dARP(3750)/dV(3655) - JVRP(6016) = 1 -! JVRP(6017) = dARP(3751)/dV(3655) - JVRP(6017) = 1 -! JVRP(6018) = dARP(3752)/dV(480) - JVRP(6018) = V(5250) -! JVRP(6019) = dARP(3752)/dV(5250) - JVRP(6019) = V(480) -! JVRP(6020) = dARP(3753)/dV(1486) - JVRP(6020) = V(5250) -! JVRP(6021) = dARP(3753)/dV(5250) - JVRP(6021) = V(1486) -! JVRP(6022) = dARP(3754)/dV(1486) - JVRP(6022) = 1 -! JVRP(6023) = dARP(3755)/dV(2605) - JVRP(6023) = V(5250) -! JVRP(6024) = dARP(3755)/dV(5250) - JVRP(6024) = V(2605) -! JVRP(6025) = dARP(3756)/dV(2605) - JVRP(6025) = 1 -! JVRP(6026) = dARP(3757)/dV(5030) - JVRP(6026) = 1 -! JVRP(6027) = dARP(3758)/dV(5030) - JVRP(6027) = 1 -! JVRP(6028) = dARP(3759)/dV(5030) - JVRP(6028) = 1 -! JVRP(6029) = dARP(3760)/dV(5030) - JVRP(6029) = 1 -! JVRP(6030) = dARP(3761)/dV(5030) - JVRP(6030) = 1 -! JVRP(6031) = dARP(3762)/dV(5030) - JVRP(6031) = 1 -! JVRP(6032) = dARP(3763)/dV(52) - JVRP(6032) = V(5250) -! JVRP(6033) = dARP(3763)/dV(5250) - JVRP(6033) = V(52) -! JVRP(6034) = dARP(3764)/dV(3828) - JVRP(6034) = V(5255) -! JVRP(6035) = dARP(3764)/dV(5255) - JVRP(6035) = V(3828) -! JVRP(6036) = dARP(3765)/dV(3828) - JVRP(6036) = V(5252) -! JVRP(6037) = dARP(3765)/dV(5252) - JVRP(6037) = V(3828) -! JVRP(6038) = dARP(3766)/dV(3828) - JVRP(6038) = V(5256) -! JVRP(6039) = dARP(3766)/dV(5256) - JVRP(6039) = V(3828) -! JVRP(6040) = dARP(3767)/dV(3828) - JVRP(6040) = 1 -! JVRP(6041) = dARP(3768)/dV(3828) - JVRP(6041) = 1 -! JVRP(6042) = dARP(3769)/dV(4407) - JVRP(6042) = V(5253) -! JVRP(6043) = dARP(3769)/dV(5253) - JVRP(6043) = V(4407) -! JVRP(6044) = dARP(3770)/dV(4407) - JVRP(6044) = V(5258) -! JVRP(6045) = dARP(3770)/dV(5258) - JVRP(6045) = V(4407) -! JVRP(6046) = dARP(3771)/dV(3518) - JVRP(6046) = V(5255) -! JVRP(6047) = dARP(3771)/dV(5255) - JVRP(6047) = V(3518) -! JVRP(6048) = dARP(3772)/dV(3518) - JVRP(6048) = V(5252) -! JVRP(6049) = dARP(3772)/dV(5252) - JVRP(6049) = V(3518) -! JVRP(6050) = dARP(3773)/dV(3518) - JVRP(6050) = V(5256) -! JVRP(6051) = dARP(3773)/dV(5256) - JVRP(6051) = V(3518) -! JVRP(6052) = dARP(3774)/dV(3518) - JVRP(6052) = 1 -! JVRP(6053) = dARP(3775)/dV(3518) - JVRP(6053) = 1 -! JVRP(6054) = dARP(3776)/dV(3494) - JVRP(6054) = V(5256) -! JVRP(6055) = dARP(3776)/dV(5256) - JVRP(6055) = V(3494) -! JVRP(6056) = dARP(3777)/dV(3494) - JVRP(6056) = V(5258) -! JVRP(6057) = dARP(3777)/dV(5258) - JVRP(6057) = V(3494) -! JVRP(6058) = dARP(3778)/dV(3494) - JVRP(6058) = V(5250) -! JVRP(6059) = dARP(3778)/dV(5250) - JVRP(6059) = V(3494) -! JVRP(6060) = dARP(3779)/dV(4948) - JVRP(6060) = V(5255) -! JVRP(6061) = dARP(3779)/dV(5255) - JVRP(6061) = V(4948) -! JVRP(6062) = dARP(3780)/dV(4948) - JVRP(6062) = V(5255) -! JVRP(6063) = dARP(3780)/dV(5255) - JVRP(6063) = V(4948) -! JVRP(6064) = dARP(3781)/dV(4948) - JVRP(6064) = V(5255) -! JVRP(6065) = dARP(3781)/dV(5255) - JVRP(6065) = V(4948) -! JVRP(6066) = dARP(3782)/dV(4948) - JVRP(6066) = V(5252) -! JVRP(6067) = dARP(3782)/dV(5252) - JVRP(6067) = V(4948) -! JVRP(6068) = dARP(3783)/dV(4948) - JVRP(6068) = V(5253) -! JVRP(6069) = dARP(3783)/dV(5253) - JVRP(6069) = V(4948) -! JVRP(6070) = dARP(3784)/dV(4948) - JVRP(6070) = V(5256) -! JVRP(6071) = dARP(3784)/dV(5256) - JVRP(6071) = V(4948) -! JVRP(6072) = dARP(3785)/dV(4948) - JVRP(6072) = 1 -! JVRP(6073) = dARP(3786)/dV(4948) - JVRP(6073) = 1 -! JVRP(6074) = dARP(3787)/dV(4803) - JVRP(6074) = V(5255) -! JVRP(6075) = dARP(3787)/dV(5255) - JVRP(6075) = V(4803) -! JVRP(6076) = dARP(3788)/dV(4803) - JVRP(6076) = V(5252) -! JVRP(6077) = dARP(3788)/dV(5252) - JVRP(6077) = V(4803) -! JVRP(6078) = dARP(3789)/dV(4803) - JVRP(6078) = V(5252) -! JVRP(6079) = dARP(3789)/dV(5252) - JVRP(6079) = V(4803) -! JVRP(6080) = dARP(3790)/dV(4803) - JVRP(6080) = V(5256) -! JVRP(6081) = dARP(3790)/dV(5256) - JVRP(6081) = V(4803) -! JVRP(6082) = dARP(3791)/dV(4803) - JVRP(6082) = 1 -! JVRP(6083) = dARP(3792)/dV(4803) - JVRP(6083) = 1 -! JVRP(6084) = dARP(3793)/dV(4803) - JVRP(6084) = 1 -! JVRP(6085) = dARP(3794)/dV(4899) - JVRP(6085) = V(5255) -! JVRP(6086) = dARP(3794)/dV(5255) - JVRP(6086) = V(4899) -! JVRP(6087) = dARP(3795)/dV(4899) - JVRP(6087) = V(5252) -! JVRP(6088) = dARP(3795)/dV(5252) - JVRP(6088) = V(4899) -! JVRP(6089) = dARP(3796)/dV(4899) - JVRP(6089) = V(5256) -! JVRP(6090) = dARP(3796)/dV(5256) - JVRP(6090) = V(4899) -! JVRP(6091) = dARP(3797)/dV(4899) - JVRP(6091) = 1 -! JVRP(6092) = dARP(3798)/dV(4899) - JVRP(6092) = 1 -! JVRP(6093) = dARP(3799)/dV(1385) - JVRP(6093) = V(5250) -! JVRP(6094) = dARP(3799)/dV(5250) - JVRP(6094) = V(1385) -! JVRP(6095) = dARP(3800)/dV(1385) - JVRP(6095) = 1 -! JVRP(6096) = dARP(3801)/dV(2232) - JVRP(6096) = V(5250) -! JVRP(6097) = dARP(3801)/dV(5250) - JVRP(6097) = V(2232) -! JVRP(6098) = dARP(3802)/dV(2232) - JVRP(6098) = 1 -! JVRP(6099) = dARP(3803)/dV(1903) - JVRP(6099) = 1 -! JVRP(6100) = dARP(3804)/dV(3645) - JVRP(6100) = V(5256) -! JVRP(6101) = dARP(3804)/dV(5256) - JVRP(6101) = V(3645) -! JVRP(6102) = dARP(3805)/dV(3645) - JVRP(6102) = V(5250) -! JVRP(6103) = dARP(3805)/dV(5250) - JVRP(6103) = V(3645) -! JVRP(6104) = dARP(3806)/dV(3645) - JVRP(6104) = 1 -! JVRP(6105) = dARP(3807)/dV(3645) - JVRP(6105) = 1 -! JVRP(6106) = dARP(3808)/dV(431) - JVRP(6106) = V(5250) -! JVRP(6107) = dARP(3808)/dV(5250) - JVRP(6107) = V(431) -! JVRP(6108) = dARP(3809)/dV(1310) - JVRP(6108) = V(5250) -! JVRP(6109) = dARP(3809)/dV(5250) - JVRP(6109) = V(1310) -! JVRP(6110) = dARP(3810)/dV(1310) - JVRP(6110) = 1 -! JVRP(6111) = dARP(3811)/dV(2372) - JVRP(6111) = V(5250) -! JVRP(6112) = dARP(3811)/dV(5250) - JVRP(6112) = V(2372) -! JVRP(6113) = dARP(3812)/dV(2372) - JVRP(6113) = 1 -! JVRP(6114) = dARP(3813)/dV(3332) - JVRP(6114) = 1 -! JVRP(6115) = dARP(3814)/dV(3332) - JVRP(6115) = 1 -! JVRP(6116) = dARP(3815)/dV(523) - JVRP(6116) = V(5250) -! JVRP(6117) = dARP(3815)/dV(5250) - JVRP(6117) = V(523) -! JVRP(6118) = dARP(3816)/dV(3082) - JVRP(6118) = V(5250) -! JVRP(6119) = dARP(3816)/dV(5250) - JVRP(6119) = V(3082) -! JVRP(6120) = dARP(3817)/dV(3082) - JVRP(6120) = 1 -! JVRP(6121) = dARP(3818)/dV(3641) - JVRP(6121) = V(5255) -! JVRP(6122) = dARP(3818)/dV(5255) - JVRP(6122) = V(3641) -! JVRP(6123) = dARP(3819)/dV(3641) - JVRP(6123) = V(5252) -! JVRP(6124) = dARP(3819)/dV(5252) - JVRP(6124) = V(3641) -! JVRP(6125) = dARP(3820)/dV(3641) - JVRP(6125) = V(5256) -! JVRP(6126) = dARP(3820)/dV(5256) - JVRP(6126) = V(3641) -! JVRP(6127) = dARP(3821)/dV(3641) - JVRP(6127) = 1 -! JVRP(6128) = dARP(3822)/dV(3641) - JVRP(6128) = 1 -! JVRP(6129) = dARP(3823)/dV(707) - JVRP(6129) = V(5255) -! JVRP(6130) = dARP(3823)/dV(5255) - JVRP(6130) = V(707) -! JVRP(6131) = dARP(3824)/dV(3648) - JVRP(6131) = V(5255) -! JVRP(6132) = dARP(3824)/dV(5255) - JVRP(6132) = V(3648) -! JVRP(6133) = dARP(3825)/dV(3648) - JVRP(6133) = V(5252) -! JVRP(6134) = dARP(3825)/dV(5252) - JVRP(6134) = V(3648) -! JVRP(6135) = dARP(3826)/dV(3648) - JVRP(6135) = V(5256) -! JVRP(6136) = dARP(3826)/dV(5256) - JVRP(6136) = V(3648) -! JVRP(6137) = dARP(3827)/dV(3648) - JVRP(6137) = 1 -! JVRP(6138) = dARP(3828)/dV(3648) - JVRP(6138) = 1 -! JVRP(6139) = dARP(3829)/dV(4807) - JVRP(6139) = V(5255) -! JVRP(6140) = dARP(3829)/dV(5255) - JVRP(6140) = V(4807) -! JVRP(6141) = dARP(3830)/dV(4807) - JVRP(6141) = V(5255) -! JVRP(6142) = dARP(3830)/dV(5255) - JVRP(6142) = V(4807) -! JVRP(6143) = dARP(3831)/dV(4807) - JVRP(6143) = V(5255) -! JVRP(6144) = dARP(3831)/dV(5255) - JVRP(6144) = V(4807) -! JVRP(6145) = dARP(3832)/dV(4807) - JVRP(6145) = V(5252) -! JVRP(6146) = dARP(3832)/dV(5252) - JVRP(6146) = V(4807) -! JVRP(6147) = dARP(3833)/dV(4807) - JVRP(6147) = V(5253) -! JVRP(6148) = dARP(3833)/dV(5253) - JVRP(6148) = V(4807) -! JVRP(6149) = dARP(3834)/dV(4807) - JVRP(6149) = V(5256) -! JVRP(6150) = dARP(3834)/dV(5256) - JVRP(6150) = V(4807) -! JVRP(6151) = dARP(3835)/dV(4807) - JVRP(6151) = 1 -! JVRP(6152) = dARP(3836)/dV(4807) - JVRP(6152) = 1 -! JVRP(6153) = dARP(3837)/dV(4569) - JVRP(6153) = V(5256) -! JVRP(6154) = dARP(3837)/dV(5256) - JVRP(6154) = V(4569) -! JVRP(6155) = dARP(3838)/dV(4569) - JVRP(6155) = V(5250) -! JVRP(6156) = dARP(3838)/dV(5250) - JVRP(6156) = V(4569) -! JVRP(6157) = dARP(3839)/dV(4569) - JVRP(6157) = 1 -! JVRP(6158) = dARP(3840)/dV(4569) - JVRP(6158) = 1 -! JVRP(6159) = dARP(3841)/dV(3133) - JVRP(6159) = 1 -! JVRP(6160) = dARP(3842)/dV(3133) - JVRP(6160) = 1 -! JVRP(6161) = dARP(3843)/dV(4568) - JVRP(6161) = V(5255) -! JVRP(6162) = dARP(3843)/dV(5255) - JVRP(6162) = V(4568) -! JVRP(6163) = dARP(3844)/dV(4568) - JVRP(6163) = V(5252) -! JVRP(6164) = dARP(3844)/dV(5252) - JVRP(6164) = V(4568) -! JVRP(6165) = dARP(3845)/dV(4568) - JVRP(6165) = V(5252) -! JVRP(6166) = dARP(3845)/dV(5252) - JVRP(6166) = V(4568) -! JVRP(6167) = dARP(3846)/dV(4568) - JVRP(6167) = V(5256) -! JVRP(6168) = dARP(3846)/dV(5256) - JVRP(6168) = V(4568) -! JVRP(6169) = dARP(3847)/dV(4568) - JVRP(6169) = 1 -! JVRP(6170) = dARP(3848)/dV(4568) - JVRP(6170) = 1 -! JVRP(6171) = dARP(3849)/dV(4935) - JVRP(6171) = V(5255) -! JVRP(6172) = dARP(3849)/dV(5255) - JVRP(6172) = V(4935) -! JVRP(6173) = dARP(3850)/dV(4935) - JVRP(6173) = V(5252) -! JVRP(6174) = dARP(3850)/dV(5252) - JVRP(6174) = V(4935) -! JVRP(6175) = dARP(3851)/dV(4935) - JVRP(6175) = V(5256) -! JVRP(6176) = dARP(3851)/dV(5256) - JVRP(6176) = V(4935) -! JVRP(6177) = dARP(3852)/dV(4935) - JVRP(6177) = 1 -! JVRP(6178) = dARP(3853)/dV(4935) - JVRP(6178) = 1 -! JVRP(6179) = dARP(3854)/dV(4935) - JVRP(6179) = 1 -! JVRP(6180) = dARP(3855)/dV(1150) - JVRP(6180) = V(5250) -! JVRP(6181) = dARP(3855)/dV(5250) - JVRP(6181) = V(1150) -! JVRP(6182) = dARP(3856)/dV(1150) - JVRP(6182) = 1 -! JVRP(6183) = dARP(3857)/dV(2087) - JVRP(6183) = V(5250) -! JVRP(6184) = dARP(3857)/dV(5250) - JVRP(6184) = V(2087) -! JVRP(6185) = dARP(3858)/dV(2087) - JVRP(6185) = 1 -! JVRP(6186) = dARP(3859)/dV(2088) - JVRP(6186) = 1 -! JVRP(6187) = dARP(3860)/dV(446) - JVRP(6187) = V(5250) -! JVRP(6188) = dARP(3860)/dV(5250) - JVRP(6188) = V(446) -! JVRP(6189) = dARP(3861)/dV(3331) - JVRP(6189) = V(5250) -! JVRP(6190) = dARP(3861)/dV(5250) - JVRP(6190) = V(3331) -! JVRP(6191) = dARP(3862)/dV(3331) - JVRP(6191) = 1 -! JVRP(6192) = dARP(3863)/dV(1535) - JVRP(6192) = V(5250) -! JVRP(6193) = dARP(3863)/dV(5250) - JVRP(6193) = V(1535) -! JVRP(6194) = dARP(3864)/dV(1535) - JVRP(6194) = 1 -! JVRP(6195) = dARP(3865)/dV(3445) - JVRP(6195) = V(5250) -! JVRP(6196) = dARP(3865)/dV(5250) - JVRP(6196) = V(3445) -! JVRP(6197) = dARP(3866)/dV(3445) - JVRP(6197) = 1 -! JVRP(6198) = dARP(3867)/dV(4177) - JVRP(6198) = 1 -! JVRP(6199) = dARP(3868)/dV(4177) - JVRP(6199) = 1 -! JVRP(6200) = dARP(3869)/dV(4177) - JVRP(6200) = 1 -! JVRP(6201) = dARP(3870)/dV(4177) - JVRP(6201) = 1 -! JVRP(6202) = dARP(3871)/dV(4177) - JVRP(6202) = 1 -! JVRP(6203) = dARP(3872)/dV(4177) - JVRP(6203) = 1 -! JVRP(6204) = dARP(3873)/dV(54) - JVRP(6204) = V(5250) -! JVRP(6205) = dARP(3873)/dV(5250) - JVRP(6205) = V(54) -! JVRP(6206) = dARP(3874)/dV(4654) - JVRP(6206) = V(5255) -! JVRP(6207) = dARP(3874)/dV(5255) - JVRP(6207) = V(4654) -! JVRP(6208) = dARP(3875)/dV(4654) - JVRP(6208) = V(5255) -! JVRP(6209) = dARP(3875)/dV(5255) - JVRP(6209) = V(4654) -! JVRP(6210) = dARP(3876)/dV(4654) - JVRP(6210) = V(5255) -! JVRP(6211) = dARP(3876)/dV(5255) - JVRP(6211) = V(4654) -! JVRP(6212) = dARP(3877)/dV(4654) - JVRP(6212) = V(5252) -! JVRP(6213) = dARP(3877)/dV(5252) - JVRP(6213) = V(4654) -! JVRP(6214) = dARP(3878)/dV(4654) - JVRP(6214) = V(5253) -! JVRP(6215) = dARP(3878)/dV(5253) - JVRP(6215) = V(4654) -! JVRP(6216) = dARP(3879)/dV(4654) - JVRP(6216) = V(5256) -! JVRP(6217) = dARP(3879)/dV(5256) - JVRP(6217) = V(4654) -! JVRP(6218) = dARP(3880)/dV(4654) - JVRP(6218) = 1 -! JVRP(6219) = dARP(3881)/dV(4654) - JVRP(6219) = 1 -! JVRP(6220) = dARP(3882)/dV(4576) - JVRP(6220) = V(5256) -! JVRP(6221) = dARP(3882)/dV(5256) - JVRP(6221) = V(4576) -! JVRP(6222) = dARP(3883)/dV(4576) - JVRP(6222) = V(5250) -! JVRP(6223) = dARP(3883)/dV(5250) - JVRP(6223) = V(4576) -! JVRP(6224) = dARP(3884)/dV(4576) - JVRP(6224) = 1 -! JVRP(6225) = dARP(3885)/dV(4575) - JVRP(6225) = V(5255) -! JVRP(6226) = dARP(3885)/dV(5255) - JVRP(6226) = V(4575) -! JVRP(6227) = dARP(3886)/dV(4575) - JVRP(6227) = V(5252) -! JVRP(6228) = dARP(3886)/dV(5252) - JVRP(6228) = V(4575) -! JVRP(6229) = dARP(3887)/dV(4575) - JVRP(6229) = V(5252) -! JVRP(6230) = dARP(3887)/dV(5252) - JVRP(6230) = V(4575) -! JVRP(6231) = dARP(3888)/dV(4575) - JVRP(6231) = V(5256) -! JVRP(6232) = dARP(3888)/dV(5256) - JVRP(6232) = V(4575) -! JVRP(6233) = dARP(3889)/dV(4575) - JVRP(6233) = 1 -! JVRP(6234) = dARP(3890)/dV(4575) - JVRP(6234) = 1 -! JVRP(6235) = dARP(3891)/dV(4575) - JVRP(6235) = 1 -! JVRP(6236) = dARP(3892)/dV(4311) - JVRP(6236) = V(5255) -! JVRP(6237) = dARP(3892)/dV(5255) - JVRP(6237) = V(4311) -! JVRP(6238) = dARP(3893)/dV(4311) - JVRP(6238) = V(5252) -! JVRP(6239) = dARP(3893)/dV(5252) - JVRP(6239) = V(4311) -! JVRP(6240) = dARP(3894)/dV(4311) - JVRP(6240) = V(5256) -! JVRP(6241) = dARP(3894)/dV(5256) - JVRP(6241) = V(4311) -! JVRP(6242) = dARP(3895)/dV(4311) - JVRP(6242) = 1 -! JVRP(6243) = dARP(3896)/dV(4311) - JVRP(6243) = 1 -! JVRP(6244) = dARP(3897)/dV(3665) - JVRP(6244) = V(5255) -! JVRP(6245) = dARP(3897)/dV(5255) - JVRP(6245) = V(3665) -! JVRP(6246) = dARP(3898)/dV(3665) - JVRP(6246) = V(5252) -! JVRP(6247) = dARP(3898)/dV(5252) - JVRP(6247) = V(3665) -! JVRP(6248) = dARP(3899)/dV(3665) - JVRP(6248) = V(5256) -! JVRP(6249) = dARP(3899)/dV(5256) - JVRP(6249) = V(3665) -! JVRP(6250) = dARP(3900)/dV(3665) - JVRP(6250) = 1 -! JVRP(6251) = dARP(3901)/dV(3665) - JVRP(6251) = 1 -! JVRP(6252) = dARP(3902)/dV(4438) - JVRP(6252) = V(5253) -! JVRP(6253) = dARP(3902)/dV(5253) - JVRP(6253) = V(4438) -! JVRP(6254) = dARP(3903)/dV(4438) - JVRP(6254) = V(5258) -! JVRP(6255) = dARP(3903)/dV(5258) - JVRP(6255) = V(4438) -! JVRP(6256) = dARP(3904)/dV(3503) - JVRP(6256) = V(5255) -! JVRP(6257) = dARP(3904)/dV(5255) - JVRP(6257) = V(3503) -! JVRP(6258) = dARP(3905)/dV(3503) - JVRP(6258) = V(5252) -! JVRP(6259) = dARP(3905)/dV(5252) - JVRP(6259) = V(3503) -! JVRP(6260) = dARP(3906)/dV(3503) - JVRP(6260) = V(5256) -! JVRP(6261) = dARP(3906)/dV(5256) - JVRP(6261) = V(3503) -! JVRP(6262) = dARP(3907)/dV(3503) - JVRP(6262) = 1 -! JVRP(6263) = dARP(3908)/dV(3503) - JVRP(6263) = 1 -! JVRP(6264) = dARP(3909)/dV(3506) - JVRP(6264) = V(5256) -! JVRP(6265) = dARP(3909)/dV(5256) - JVRP(6265) = V(3506) -! JVRP(6266) = dARP(3910)/dV(3506) - JVRP(6266) = V(5258) -! JVRP(6267) = dARP(3910)/dV(5258) - JVRP(6267) = V(3506) -! JVRP(6268) = dARP(3911)/dV(3506) - JVRP(6268) = V(5250) -! JVRP(6269) = dARP(3911)/dV(5250) - JVRP(6269) = V(3506) -! JVRP(6270) = dARP(3912)/dV(861) - JVRP(6270) = V(5250) -! JVRP(6271) = dARP(3912)/dV(5250) - JVRP(6271) = V(861) -! JVRP(6272) = dARP(3913)/dV(861) - JVRP(6272) = 1 -! JVRP(6273) = dARP(3914)/dV(1896) - JVRP(6273) = V(5250) -! JVRP(6274) = dARP(3914)/dV(5250) - JVRP(6274) = V(1896) -! JVRP(6275) = dARP(3915)/dV(1896) - JVRP(6275) = 1 -! JVRP(6276) = dARP(3916)/dV(3826) - JVRP(6276) = 1 -! JVRP(6277) = dARP(3917)/dV(3826) - JVRP(6277) = 1 -! JVRP(6278) = dARP(3918)/dV(3826) - JVRP(6278) = 1 -! JVRP(6279) = dARP(3919)/dV(3826) - JVRP(6279) = 1 -! JVRP(6280) = dARP(3920)/dV(3826) - JVRP(6280) = 1 -! JVRP(6281) = dARP(3921)/dV(22) - JVRP(6281) = V(5250) -! JVRP(6282) = dARP(3921)/dV(5250) - JVRP(6282) = V(22) -! JVRP(6283) = dARP(3922)/dV(2021) - JVRP(6283) = V(5250) -! JVRP(6284) = dARP(3922)/dV(5250) - JVRP(6284) = V(2021) -! JVRP(6285) = dARP(3923)/dV(2021) - JVRP(6285) = 1 -! JVRP(6286) = dARP(3924)/dV(4132) - JVRP(6286) = V(5255) -! JVRP(6287) = dARP(3924)/dV(5255) - JVRP(6287) = V(4132) -! JVRP(6288) = dARP(3925)/dV(4132) - JVRP(6288) = V(5255) -! JVRP(6289) = dARP(3925)/dV(5255) - JVRP(6289) = V(4132) -! JVRP(6290) = dARP(3926)/dV(4132) - JVRP(6290) = V(5255) -! JVRP(6291) = dARP(3926)/dV(5255) - JVRP(6291) = V(4132) -! JVRP(6292) = dARP(3927)/dV(4132) - JVRP(6292) = V(5253) -! JVRP(6293) = dARP(3927)/dV(5253) - JVRP(6293) = V(4132) -! JVRP(6294) = dARP(3928)/dV(4132) - JVRP(6294) = V(5253) -! JVRP(6295) = dARP(3928)/dV(5253) - JVRP(6295) = V(4132) -! JVRP(6296) = dARP(3929)/dV(4132) - JVRP(6296) = V(5256) -! JVRP(6297) = dARP(3929)/dV(5256) - JVRP(6297) = V(4132) -! JVRP(6298) = dARP(3930)/dV(4132) - JVRP(6298) = 1 -! JVRP(6299) = dARP(3931)/dV(4132) - JVRP(6299) = 1 -! JVRP(6300) = dARP(3932)/dV(4725) - JVRP(6300) = V(5255) -! JVRP(6301) = dARP(3932)/dV(5255) - JVRP(6301) = V(4725) -! JVRP(6302) = dARP(3933)/dV(4725) - JVRP(6302) = V(5252) -! JVRP(6303) = dARP(3933)/dV(5252) - JVRP(6303) = V(4725) -! JVRP(6304) = dARP(3934)/dV(4725) - JVRP(6304) = V(5252) -! JVRP(6305) = dARP(3934)/dV(5252) - JVRP(6305) = V(4725) -! JVRP(6306) = dARP(3935)/dV(4725) - JVRP(6306) = V(5256) -! JVRP(6307) = dARP(3935)/dV(5256) - JVRP(6307) = V(4725) -! JVRP(6308) = dARP(3936)/dV(4725) - JVRP(6308) = 1 -! JVRP(6309) = dARP(3937)/dV(4725) - JVRP(6309) = 1 -! JVRP(6310) = dARP(3938)/dV(4725) - JVRP(6310) = 1 -! JVRP(6311) = dARP(3939)/dV(4897) - JVRP(6311) = V(5255) -! JVRP(6312) = dARP(3939)/dV(5255) - JVRP(6312) = V(4897) -! JVRP(6313) = dARP(3940)/dV(4897) - JVRP(6313) = V(5252) -! JVRP(6314) = dARP(3940)/dV(5252) - JVRP(6314) = V(4897) -! JVRP(6315) = dARP(3941)/dV(4897) - JVRP(6315) = V(5256) -! JVRP(6316) = dARP(3941)/dV(5256) - JVRP(6316) = V(4897) -! JVRP(6317) = dARP(3942)/dV(4897) - JVRP(6317) = 1 -! JVRP(6318) = dARP(3943)/dV(4897) - JVRP(6318) = 1 -! JVRP(6319) = dARP(3944)/dV(4897) - JVRP(6319) = 1 -! JVRP(6320) = dARP(3945)/dV(4437) - JVRP(6320) = V(5253) -! JVRP(6321) = dARP(3945)/dV(5253) - JVRP(6321) = V(4437) -! JVRP(6322) = dARP(3946)/dV(4437) - JVRP(6322) = V(5258) -! JVRP(6323) = dARP(3946)/dV(5258) - JVRP(6323) = V(4437) -! JVRP(6324) = dARP(3947)/dV(3511) - JVRP(6324) = V(5255) -! JVRP(6325) = dARP(3947)/dV(5255) - JVRP(6325) = V(3511) -! JVRP(6326) = dARP(3948)/dV(3511) - JVRP(6326) = V(5252) -! JVRP(6327) = dARP(3948)/dV(5252) - JVRP(6327) = V(3511) -! JVRP(6328) = dARP(3949)/dV(3511) - JVRP(6328) = V(5256) -! JVRP(6329) = dARP(3949)/dV(5256) - JVRP(6329) = V(3511) -! JVRP(6330) = dARP(3950)/dV(3511) - JVRP(6330) = 1 -! JVRP(6331) = dARP(3951)/dV(3511) - JVRP(6331) = 1 -! JVRP(6332) = dARP(3952)/dV(3791) - JVRP(6332) = V(5255) -! JVRP(6333) = dARP(3952)/dV(5255) - JVRP(6333) = V(3791) -! JVRP(6334) = dARP(3953)/dV(3791) - JVRP(6334) = V(5252) -! JVRP(6335) = dARP(3953)/dV(5252) - JVRP(6335) = V(3791) -! JVRP(6336) = dARP(3954)/dV(3791) - JVRP(6336) = V(5256) -! JVRP(6337) = dARP(3954)/dV(5256) - JVRP(6337) = V(3791) -! JVRP(6338) = dARP(3955)/dV(3791) - JVRP(6338) = 1 -! JVRP(6339) = dARP(3956)/dV(3791) - JVRP(6339) = 1 -! JVRP(6340) = dARP(3957)/dV(3499) - JVRP(6340) = V(5256) -! JVRP(6341) = dARP(3957)/dV(5256) - JVRP(6341) = V(3499) -! JVRP(6342) = dARP(3958)/dV(3499) - JVRP(6342) = V(5258) -! JVRP(6343) = dARP(3958)/dV(5258) - JVRP(6343) = V(3499) -! JVRP(6344) = dARP(3959)/dV(3499) - JVRP(6344) = V(5250) -! JVRP(6345) = dARP(3959)/dV(5250) - JVRP(6345) = V(3499) -! JVRP(6346) = dARP(3960)/dV(1525) - JVRP(6346) = V(5250) -! JVRP(6347) = dARP(3960)/dV(5250) - JVRP(6347) = V(1525) -! JVRP(6348) = dARP(3961)/dV(1525) - JVRP(6348) = 1 -! JVRP(6349) = dARP(3962)/dV(1000) - JVRP(6349) = V(5250) -! JVRP(6350) = dARP(3962)/dV(5250) - JVRP(6350) = V(1000) -! JVRP(6351) = dARP(3963)/dV(1000) - JVRP(6351) = 1 -! JVRP(6352) = dARP(3964)/dV(3802) - JVRP(6352) = 1 -! JVRP(6353) = dARP(3965)/dV(3802) - JVRP(6353) = 1 -! JVRP(6354) = dARP(3966)/dV(3802) - JVRP(6354) = 1 -! JVRP(6355) = dARP(3967)/dV(3802) - JVRP(6355) = 1 -! JVRP(6356) = dARP(3968)/dV(129) - JVRP(6356) = V(5250) -! JVRP(6357) = dARP(3968)/dV(5250) - JVRP(6357) = V(129) -! JVRP(6358) = dARP(3969)/dV(4633) - JVRP(6358) = V(5255) -! JVRP(6359) = dARP(3969)/dV(5255) - JVRP(6359) = V(4633) -! JVRP(6360) = dARP(3970)/dV(4633) - JVRP(6360) = V(5255) -! JVRP(6361) = dARP(3970)/dV(5255) - JVRP(6361) = V(4633) -! JVRP(6362) = dARP(3971)/dV(4633) - JVRP(6362) = V(5255) -! JVRP(6363) = dARP(3971)/dV(5255) - JVRP(6363) = V(4633) -! JVRP(6364) = dARP(3972)/dV(4633) - JVRP(6364) = V(5252) -! JVRP(6365) = dARP(3972)/dV(5252) - JVRP(6365) = V(4633) -! JVRP(6366) = dARP(3973)/dV(4633) - JVRP(6366) = V(5253) -! JVRP(6367) = dARP(3973)/dV(5253) - JVRP(6367) = V(4633) -! JVRP(6368) = dARP(3974)/dV(4633) - JVRP(6368) = V(5256) -! JVRP(6369) = dARP(3974)/dV(5256) - JVRP(6369) = V(4633) -! JVRP(6370) = dARP(3975)/dV(4633) - JVRP(6370) = 1 -! JVRP(6371) = dARP(3976)/dV(4633) - JVRP(6371) = 1 -! JVRP(6372) = dARP(3977)/dV(4727) - JVRP(6372) = V(5255) -! JVRP(6373) = dARP(3977)/dV(5255) - JVRP(6373) = V(4727) -! JVRP(6374) = dARP(3978)/dV(4727) - JVRP(6374) = V(5252) -! JVRP(6375) = dARP(3978)/dV(5252) - JVRP(6375) = V(4727) -! JVRP(6376) = dARP(3979)/dV(4727) - JVRP(6376) = V(5252) -! JVRP(6377) = dARP(3979)/dV(5252) - JVRP(6377) = V(4727) -! JVRP(6378) = dARP(3980)/dV(4727) - JVRP(6378) = V(5256) -! JVRP(6379) = dARP(3980)/dV(5256) - JVRP(6379) = V(4727) -! JVRP(6380) = dARP(3981)/dV(4727) - JVRP(6380) = 1 -! JVRP(6381) = dARP(3982)/dV(4727) - JVRP(6381) = 1 -! JVRP(6382) = dARP(3983)/dV(4727) - JVRP(6382) = 1 -! JVRP(6383) = dARP(3984)/dV(4905) - JVRP(6383) = V(5255) -! JVRP(6384) = dARP(3984)/dV(5255) - JVRP(6384) = V(4905) -! JVRP(6385) = dARP(3985)/dV(4905) - JVRP(6385) = V(5252) -! JVRP(6386) = dARP(3985)/dV(5252) - JVRP(6386) = V(4905) -! JVRP(6387) = dARP(3986)/dV(4905) - JVRP(6387) = V(5256) -! JVRP(6388) = dARP(3986)/dV(5256) - JVRP(6388) = V(4905) -! JVRP(6389) = dARP(3987)/dV(4905) - JVRP(6389) = 1 -! JVRP(6390) = dARP(3988)/dV(4905) - JVRP(6390) = 1 -! JVRP(6391) = dARP(3989)/dV(3825) - JVRP(6391) = V(5255) -! JVRP(6392) = dARP(3989)/dV(5255) - JVRP(6392) = V(3825) -! JVRP(6393) = dARP(3990)/dV(3825) - JVRP(6393) = V(5252) -! JVRP(6394) = dARP(3990)/dV(5252) - JVRP(6394) = V(3825) -! JVRP(6395) = dARP(3991)/dV(3825) - JVRP(6395) = V(5256) -! JVRP(6396) = dARP(3991)/dV(5256) - JVRP(6396) = V(3825) -! JVRP(6397) = dARP(3992)/dV(3825) - JVRP(6397) = 1 -! JVRP(6398) = dARP(3993)/dV(3825) - JVRP(6398) = 1 -! JVRP(6399) = dARP(3994)/dV(4504) - JVRP(6399) = V(5253) -! JVRP(6400) = dARP(3994)/dV(5253) - JVRP(6400) = V(4504) -! JVRP(6401) = dARP(3995)/dV(4504) - JVRP(6401) = V(5258) -! JVRP(6402) = dARP(3995)/dV(5258) - JVRP(6402) = V(4504) -! JVRP(6403) = dARP(3996)/dV(3489) - JVRP(6403) = V(5255) -! JVRP(6404) = dARP(3996)/dV(5255) - JVRP(6404) = V(3489) -! JVRP(6405) = dARP(3997)/dV(3489) - JVRP(6405) = V(5252) -! JVRP(6406) = dARP(3997)/dV(5252) - JVRP(6406) = V(3489) -! JVRP(6407) = dARP(3998)/dV(3489) - JVRP(6407) = V(5256) -! JVRP(6408) = dARP(3998)/dV(5256) - JVRP(6408) = V(3489) -! JVRP(6409) = dARP(3999)/dV(3489) - JVRP(6409) = 1 -! JVRP(6410) = dARP(4000)/dV(3489) - JVRP(6410) = 1 -! JVRP(6411) = dARP(4001)/dV(3551) - JVRP(6411) = V(5256) -! JVRP(6412) = dARP(4001)/dV(5256) - JVRP(6412) = V(3551) -! JVRP(6413) = dARP(4002)/dV(3551) - JVRP(6413) = V(5258) -! JVRP(6414) = dARP(4002)/dV(5258) - JVRP(6414) = V(3551) -! JVRP(6415) = dARP(4003)/dV(3551) - JVRP(6415) = V(5250) -! JVRP(6416) = dARP(4003)/dV(5250) - JVRP(6416) = V(3551) -! JVRP(6417) = dARP(4004)/dV(1270) - JVRP(6417) = V(5250) -! JVRP(6418) = dARP(4004)/dV(5250) - JVRP(6418) = V(1270) -! JVRP(6419) = dARP(4005)/dV(1270) - JVRP(6419) = 1 -! JVRP(6420) = dARP(4006)/dV(2333) - JVRP(6420) = V(5250) -! JVRP(6421) = dARP(4006)/dV(5250) - JVRP(6421) = V(2333) -! JVRP(6422) = dARP(4007)/dV(2333) - JVRP(6422) = 1 -! JVRP(6423) = dARP(4008)/dV(2334) - JVRP(6423) = 1 -! JVRP(6424) = dARP(4009)/dV(505) - JVRP(6424) = V(5250) -! JVRP(6425) = dARP(4009)/dV(5250) - JVRP(6425) = V(505) -! JVRP(6426) = dARP(4010)/dV(3412) - JVRP(6426) = V(5250) -! JVRP(6427) = dARP(4010)/dV(5250) - JVRP(6427) = V(3412) -! JVRP(6428) = dARP(4011)/dV(3412) - JVRP(6428) = 1 -! JVRP(6429) = dARP(4012)/dV(1200) - JVRP(6429) = V(5250) -! JVRP(6430) = dARP(4012)/dV(5250) - JVRP(6430) = V(1200) -! JVRP(6431) = dARP(4013)/dV(1200) - JVRP(6431) = 1 -! JVRP(6432) = dARP(4014)/dV(1216) - JVRP(6432) = V(5250) -! JVRP(6433) = dARP(4014)/dV(5250) - JVRP(6433) = V(1216) -! JVRP(6434) = dARP(4015)/dV(1216) - JVRP(6434) = 1 -! JVRP(6435) = dARP(4016)/dV(3818) - JVRP(6435) = 1 -! JVRP(6436) = dARP(4017)/dV(3818) - JVRP(6436) = 1 -! JVRP(6437) = dARP(4018)/dV(3818) - JVRP(6437) = 1 -! JVRP(6438) = dARP(4019)/dV(3818) - JVRP(6438) = 1 -! JVRP(6439) = dARP(4020)/dV(81) - JVRP(6439) = V(5250) -! JVRP(6440) = dARP(4020)/dV(5250) - JVRP(6440) = V(81) -! JVRP(6441) = dARP(4021)/dV(634) - JVRP(6441) = V(5250) -! JVRP(6442) = dARP(4021)/dV(5250) - JVRP(6442) = V(634) -! JVRP(6443) = dARP(4022)/dV(634) - JVRP(6443) = 1 -! JVRP(6444) = dARP(4023)/dV(4685) - JVRP(6444) = V(5255) -! JVRP(6445) = dARP(4023)/dV(5255) - JVRP(6445) = V(4685) -! JVRP(6446) = dARP(4024)/dV(4685) - JVRP(6446) = V(5255) -! JVRP(6447) = dARP(4024)/dV(5255) - JVRP(6447) = V(4685) -! JVRP(6448) = dARP(4025)/dV(4685) - JVRP(6448) = V(5255) -! JVRP(6449) = dARP(4025)/dV(5255) - JVRP(6449) = V(4685) -! JVRP(6450) = dARP(4026)/dV(4685) - JVRP(6450) = V(5252) -! JVRP(6451) = dARP(4026)/dV(5252) - JVRP(6451) = V(4685) -! JVRP(6452) = dARP(4027)/dV(4685) - JVRP(6452) = V(5253) -! JVRP(6453) = dARP(4027)/dV(5253) - JVRP(6453) = V(4685) -! JVRP(6454) = dARP(4028)/dV(4685) - JVRP(6454) = V(5256) -! JVRP(6455) = dARP(4028)/dV(5256) - JVRP(6455) = V(4685) -! JVRP(6456) = dARP(4029)/dV(4685) - JVRP(6456) = 1 -! JVRP(6457) = dARP(4030)/dV(4685) - JVRP(6457) = 1 -! JVRP(6458) = dARP(4031)/dV(3186) - JVRP(6458) = 1 -! JVRP(6459) = dARP(4032)/dV(3186) - JVRP(6459) = 1 -! JVRP(6460) = dARP(4033)/dV(4400) - JVRP(6460) = V(5255) -! JVRP(6461) = dARP(4033)/dV(5255) - JVRP(6461) = V(4400) -! JVRP(6462) = dARP(4034)/dV(4400) - JVRP(6462) = V(5252) -! JVRP(6463) = dARP(4034)/dV(5252) - JVRP(6463) = V(4400) -! JVRP(6464) = dARP(4035)/dV(4400) - JVRP(6464) = V(5252) -! JVRP(6465) = dARP(4035)/dV(5252) - JVRP(6465) = V(4400) -! JVRP(6466) = dARP(4036)/dV(4400) - JVRP(6466) = V(5256) -! JVRP(6467) = dARP(4036)/dV(5256) - JVRP(6467) = V(4400) -! JVRP(6468) = dARP(4037)/dV(4400) - JVRP(6468) = 1 -! JVRP(6469) = dARP(4038)/dV(4400) - JVRP(6469) = 1 -! JVRP(6470) = dARP(4039)/dV(4992) - JVRP(6470) = V(5255) -! JVRP(6471) = dARP(4039)/dV(5255) - JVRP(6471) = V(4992) -! JVRP(6472) = dARP(4040)/dV(4992) - JVRP(6472) = V(5252) -! JVRP(6473) = dARP(4040)/dV(5252) - JVRP(6473) = V(4992) -! JVRP(6474) = dARP(4041)/dV(4992) - JVRP(6474) = V(5256) -! JVRP(6475) = dARP(4041)/dV(5256) - JVRP(6475) = V(4992) -! JVRP(6476) = dARP(4042)/dV(4992) - JVRP(6476) = 1 -! JVRP(6477) = dARP(4043)/dV(4992) - JVRP(6477) = 1 -! JVRP(6478) = dARP(4044)/dV(4992) - JVRP(6478) = 1 -! JVRP(6479) = dARP(4045)/dV(677) - JVRP(6479) = V(5255) -! JVRP(6480) = dARP(4045)/dV(5255) - JVRP(6480) = V(677) -! JVRP(6481) = dARP(4046)/dV(3631) - JVRP(6481) = V(5255) -! JVRP(6482) = dARP(4046)/dV(5255) - JVRP(6482) = V(3631) -! JVRP(6483) = dARP(4047)/dV(3631) - JVRP(6483) = V(5252) -! JVRP(6484) = dARP(4047)/dV(5252) - JVRP(6484) = V(3631) -! JVRP(6485) = dARP(4048)/dV(3631) - JVRP(6485) = V(5256) -! JVRP(6486) = dARP(4048)/dV(5256) - JVRP(6486) = V(3631) -! JVRP(6487) = dARP(4049)/dV(3631) - JVRP(6487) = 1 -! JVRP(6488) = dARP(4050)/dV(3631) - JVRP(6488) = 1 -! JVRP(6489) = dARP(4051)/dV(3632) - JVRP(6489) = V(5255) -! JVRP(6490) = dARP(4051)/dV(5255) - JVRP(6490) = V(3632) -! JVRP(6491) = dARP(4052)/dV(3632) - JVRP(6491) = V(5252) -! JVRP(6492) = dARP(4052)/dV(5252) - JVRP(6492) = V(3632) -! JVRP(6493) = dARP(4053)/dV(3632) - JVRP(6493) = V(5256) -! JVRP(6494) = dARP(4053)/dV(5256) - JVRP(6494) = V(3632) -! JVRP(6495) = dARP(4054)/dV(3632) - JVRP(6495) = 1 -! JVRP(6496) = dARP(4055)/dV(3632) - JVRP(6496) = 1 -! JVRP(6497) = dARP(4056)/dV(1131) - JVRP(6497) = V(5250) -! JVRP(6498) = dARP(4056)/dV(5250) - JVRP(6498) = V(1131) -! JVRP(6499) = dARP(4057)/dV(1131) - JVRP(6499) = 1 -! JVRP(6500) = dARP(4058)/dV(2078) - JVRP(6500) = V(5250) -! JVRP(6501) = dARP(4058)/dV(5250) - JVRP(6501) = V(2078) -! JVRP(6502) = dARP(4059)/dV(2078) - JVRP(6502) = 1 -! JVRP(6503) = dARP(4060)/dV(1822) - JVRP(6503) = 1 -! JVRP(6504) = dARP(4061)/dV(432) - JVRP(6504) = V(5250) -! JVRP(6505) = dARP(4061)/dV(5250) - JVRP(6505) = V(432) -! JVRP(6506) = dARP(4062)/dV(3343) - JVRP(6506) = V(5250) -! JVRP(6507) = dARP(4062)/dV(5250) - JVRP(6507) = V(3343) -! JVRP(6508) = dARP(4063)/dV(3343) - JVRP(6508) = 1 -! JVRP(6509) = dARP(4064)/dV(627) - JVRP(6509) = V(5255) -! JVRP(6510) = dARP(4064)/dV(5255) - JVRP(6510) = V(627) -! JVRP(6511) = dARP(4065)/dV(3659) - JVRP(6511) = V(5255) -! JVRP(6512) = dARP(4065)/dV(5255) - JVRP(6512) = V(3659) -! JVRP(6513) = dARP(4066)/dV(3659) - JVRP(6513) = V(5252) -! JVRP(6514) = dARP(4066)/dV(5252) - JVRP(6514) = V(3659) -! JVRP(6515) = dARP(4067)/dV(3659) - JVRP(6515) = V(5256) -! JVRP(6516) = dARP(4067)/dV(5256) - JVRP(6516) = V(3659) -! JVRP(6517) = dARP(4068)/dV(3659) - JVRP(6517) = 1 -! JVRP(6518) = dARP(4069)/dV(3659) - JVRP(6518) = 1 -! JVRP(6519) = dARP(4070)/dV(3650) - JVRP(6519) = V(5255) -! JVRP(6520) = dARP(4070)/dV(5255) - JVRP(6520) = V(3650) -! JVRP(6521) = dARP(4071)/dV(3650) - JVRP(6521) = V(5252) -! JVRP(6522) = dARP(4071)/dV(5252) - JVRP(6522) = V(3650) -! JVRP(6523) = dARP(4072)/dV(3650) - JVRP(6523) = V(5256) -! JVRP(6524) = dARP(4072)/dV(5256) - JVRP(6524) = V(3650) -! JVRP(6525) = dARP(4073)/dV(3650) - JVRP(6525) = 1 -! JVRP(6526) = dARP(4074)/dV(3650) - JVRP(6526) = 1 -! JVRP(6527) = dARP(4075)/dV(1159) - JVRP(6527) = V(5250) -! JVRP(6528) = dARP(4075)/dV(5250) - JVRP(6528) = V(1159) -! JVRP(6529) = dARP(4076)/dV(1159) - JVRP(6529) = 1 -! JVRP(6530) = dARP(4077)/dV(1083) - JVRP(6530) = V(5250) -! JVRP(6531) = dARP(4077)/dV(5250) - JVRP(6531) = V(1083) -! JVRP(6532) = dARP(4078)/dV(1083) - JVRP(6532) = 1 -! JVRP(6533) = dARP(4079)/dV(3403) - JVRP(6533) = 1 -! JVRP(6534) = dARP(4080)/dV(3403) - JVRP(6534) = 1 -! JVRP(6535) = dARP(4081)/dV(128) - JVRP(6535) = V(5250) -! JVRP(6536) = dARP(4081)/dV(5250) - JVRP(6536) = V(128) -! JVRP(6537) = dARP(4082)/dV(796) - JVRP(6537) = V(5250) -! JVRP(6538) = dARP(4082)/dV(5250) - JVRP(6538) = V(796) -! JVRP(6539) = dARP(4083)/dV(796) - JVRP(6539) = 1 -! JVRP(6540) = dARP(4084)/dV(4656) - JVRP(6540) = V(5255) -! JVRP(6541) = dARP(4084)/dV(5255) - JVRP(6541) = V(4656) -! JVRP(6542) = dARP(4085)/dV(4656) - JVRP(6542) = V(5255) -! JVRP(6543) = dARP(4085)/dV(5255) - JVRP(6543) = V(4656) -! JVRP(6544) = dARP(4086)/dV(4656) - JVRP(6544) = V(5255) -! JVRP(6545) = dARP(4086)/dV(5255) - JVRP(6545) = V(4656) -! JVRP(6546) = dARP(4087)/dV(4656) - JVRP(6546) = V(5252) -! JVRP(6547) = dARP(4087)/dV(5252) - JVRP(6547) = V(4656) -! JVRP(6548) = dARP(4088)/dV(4656) - JVRP(6548) = V(5253) -! JVRP(6549) = dARP(4088)/dV(5253) - JVRP(6549) = V(4656) -! JVRP(6550) = dARP(4089)/dV(4656) - JVRP(6550) = V(5256) -! JVRP(6551) = dARP(4089)/dV(5256) - JVRP(6551) = V(4656) -! JVRP(6552) = dARP(4090)/dV(4656) - JVRP(6552) = 1 -! JVRP(6553) = dARP(4091)/dV(4656) - JVRP(6553) = 1 -! JVRP(6554) = dARP(4092)/dV(4933) - JVRP(6554) = V(5256) -! JVRP(6555) = dARP(4092)/dV(5256) - JVRP(6555) = V(4933) -! JVRP(6556) = dARP(4093)/dV(4933) - JVRP(6556) = V(5250) -! JVRP(6557) = dARP(4093)/dV(5250) - JVRP(6557) = V(4933) -! JVRP(6558) = dARP(4094)/dV(4933) - JVRP(6558) = 1 -! JVRP(6559) = dARP(4095)/dV(4933) - JVRP(6559) = 1 -! JVRP(6560) = dARP(4096)/dV(4335) - JVRP(6560) = V(5255) -! JVRP(6561) = dARP(4096)/dV(5255) - JVRP(6561) = V(4335) -! JVRP(6562) = dARP(4097)/dV(4335) - JVRP(6562) = V(5252) -! JVRP(6563) = dARP(4097)/dV(5252) - JVRP(6563) = V(4335) -! JVRP(6564) = dARP(4098)/dV(4335) - JVRP(6564) = V(5252) -! JVRP(6565) = dARP(4098)/dV(5252) - JVRP(6565) = V(4335) -! JVRP(6566) = dARP(4099)/dV(4335) - JVRP(6566) = V(5256) -! JVRP(6567) = dARP(4099)/dV(5256) - JVRP(6567) = V(4335) -! JVRP(6568) = dARP(4100)/dV(4335) - JVRP(6568) = 1 -! JVRP(6569) = dARP(4101)/dV(4335) - JVRP(6569) = 1 -! JVRP(6570) = dARP(4102)/dV(4813) - JVRP(6570) = V(5255) -! JVRP(6571) = dARP(4102)/dV(5255) - JVRP(6571) = V(4813) -! JVRP(6572) = dARP(4103)/dV(4813) - JVRP(6572) = V(5252) -! JVRP(6573) = dARP(4103)/dV(5252) - JVRP(6573) = V(4813) -! JVRP(6574) = dARP(4104)/dV(4813) - JVRP(6574) = V(5256) -! JVRP(6575) = dARP(4104)/dV(5256) - JVRP(6575) = V(4813) -! JVRP(6576) = dARP(4105)/dV(4813) - JVRP(6576) = 1 -! JVRP(6577) = dARP(4106)/dV(4813) - JVRP(6577) = 1 -! JVRP(6578) = dARP(4107)/dV(4813) - JVRP(6578) = 1 -! JVRP(6579) = dARP(4108)/dV(328) - JVRP(6579) = V(5250) -! JVRP(6580) = dARP(4108)/dV(5250) - JVRP(6580) = V(328) -! JVRP(6581) = dARP(4109)/dV(1240) - JVRP(6581) = 1 -! JVRP(6582) = dARP(4110)/dV(4919) - JVRP(6582) = V(5251) -! JVRP(6583) = dARP(4110)/dV(5251) - JVRP(6583) = V(4919) -! JVRP(6584) = dARP(4111)/dV(4919) - JVRP(6584) = V(5252) -! JVRP(6585) = dARP(4111)/dV(5252) - JVRP(6585) = V(4919) -! JVRP(6586) = dARP(4112)/dV(4919) - JVRP(6586) = V(5253) -! JVRP(6587) = dARP(4112)/dV(5253) - JVRP(6587) = V(4919) -! JVRP(6588) = dARP(4113)/dV(4919) - JVRP(6588) = V(5254) -! JVRP(6589) = dARP(4113)/dV(5254) - JVRP(6589) = V(4919) -! JVRP(6590) = dARP(4114)/dV(4919) - JVRP(6590) = 1 -! JVRP(6591) = dARP(4115)/dV(4919) - JVRP(6591) = 1 -! JVRP(6592) = dARP(4116)/dV(1377) - JVRP(6592) = V(5250) -! JVRP(6593) = dARP(4116)/dV(5250) - JVRP(6593) = V(1377) -! JVRP(6594) = dARP(4117)/dV(1377) - JVRP(6594) = 1 -! JVRP(6595) = dARP(4118)/dV(3072) - JVRP(6595) = 1 -! JVRP(6596) = dARP(4119)/dV(1095) - JVRP(6596) = V(5250) -! JVRP(6597) = dARP(4119)/dV(5250) - JVRP(6597) = V(1095) -! JVRP(6598) = dARP(4120)/dV(1095) - JVRP(6598) = 1 -! JVRP(6599) = dARP(4121)/dV(613) - JVRP(6599) = V(5250) -! JVRP(6600) = dARP(4121)/dV(5250) - JVRP(6600) = V(613) -! JVRP(6601) = dARP(4122)/dV(3317) - JVRP(6601) = V(5250) -! JVRP(6602) = dARP(4122)/dV(5250) - JVRP(6602) = V(3317) -! JVRP(6603) = dARP(4123)/dV(3317) - JVRP(6603) = 1 -! JVRP(6604) = dARP(4124)/dV(1763) - JVRP(6604) = V(5250) -! JVRP(6605) = dARP(4124)/dV(5250) - JVRP(6605) = V(1763) -! JVRP(6606) = dARP(4125)/dV(1763) - JVRP(6606) = 1 -! JVRP(6607) = dARP(4126)/dV(969) - JVRP(6607) = 1 -! JVRP(6608) = dARP(4127)/dV(969) - JVRP(6608) = V(5250) -! JVRP(6609) = dARP(4127)/dV(5250) - JVRP(6609) = V(969) -! JVRP(6610) = dARP(4128)/dV(552) - JVRP(6610) = 1 -! JVRP(6611) = dARP(4129)/dV(2222) - JVRP(6611) = V(5250) -! JVRP(6612) = dARP(4129)/dV(5250) - JVRP(6612) = V(2222) -! JVRP(6613) = dARP(4130)/dV(3763) - JVRP(6613) = 1 -! JVRP(6614) = dARP(4131)/dV(3763) - JVRP(6614) = V(5250) -! JVRP(6615) = dARP(4131)/dV(5250) - JVRP(6615) = V(3763) -! JVRP(6616) = dARP(4132)/dV(1365) - JVRP(6616) = 1 -! JVRP(6617) = dARP(4133)/dV(1365) - JVRP(6617) = V(5250) -! JVRP(6618) = dARP(4133)/dV(5250) - JVRP(6618) = V(1365) -! JVRP(6619) = dARP(4134)/dV(2099) - JVRP(6619) = 1 -! JVRP(6620) = dARP(4135)/dV(2099) - JVRP(6620) = V(5250) -! JVRP(6621) = dARP(4135)/dV(5250) - JVRP(6621) = V(2099) -! JVRP(6622) = dARP(4136)/dV(2100) - JVRP(6622) = 1 -! JVRP(6623) = dARP(4137)/dV(3102) - JVRP(6623) = 1 -! JVRP(6624) = dARP(4138)/dV(3102) - JVRP(6624) = V(5250) -! JVRP(6625) = dARP(4138)/dV(5250) - JVRP(6625) = V(3102) -! JVRP(6626) = dARP(4139)/dV(5050) - JVRP(6626) = 1 -! JVRP(6627) = dARP(4140)/dV(5050) - JVRP(6627) = V(5256) -! JVRP(6628) = dARP(4140)/dV(5256) - JVRP(6628) = V(5050) -! JVRP(6629) = dARP(4141)/dV(5050) - JVRP(6629) = V(5258) -! JVRP(6630) = dARP(4141)/dV(5258) - JVRP(6630) = V(5050) -! JVRP(6631) = dARP(4142)/dV(5050) - JVRP(6631) = V(5258) -! JVRP(6632) = dARP(4142)/dV(5258) - JVRP(6632) = V(5050) -! JVRP(6633) = dARP(4143)/dV(5050) - JVRP(6633) = V(5250) -! JVRP(6634) = dARP(4143)/dV(5250) - JVRP(6634) = V(5050) -! JVRP(6635) = dARP(4144)/dV(5050) - JVRP(6635) = V(5250) -! JVRP(6636) = dARP(4144)/dV(5250) - JVRP(6636) = V(5050) -! JVRP(6637) = dARP(4145)/dV(4819) - JVRP(6637) = V(5251) -! JVRP(6638) = dARP(4145)/dV(5251) - JVRP(6638) = V(4819) -! JVRP(6639) = dARP(4146)/dV(4819) - JVRP(6639) = V(5252) -! JVRP(6640) = dARP(4146)/dV(5252) - JVRP(6640) = V(4819) -! JVRP(6641) = dARP(4147)/dV(4819) - JVRP(6641) = V(5253) -! JVRP(6642) = dARP(4147)/dV(5253) - JVRP(6642) = V(4819) -! JVRP(6643) = dARP(4148)/dV(4819) - JVRP(6643) = V(5254) -! JVRP(6644) = dARP(4148)/dV(5254) - JVRP(6644) = V(4819) -! JVRP(6645) = dARP(4149)/dV(4819) - JVRP(6645) = 1 -! JVRP(6646) = dARP(4150)/dV(4819) - JVRP(6646) = 1 -! JVRP(6647) = dARP(4151)/dV(1352) - JVRP(6647) = 1 -! JVRP(6648) = dARP(4152)/dV(1352) - JVRP(6648) = V(5250) -! JVRP(6649) = dARP(4152)/dV(5250) - JVRP(6649) = V(1352) -! JVRP(6650) = dARP(4153)/dV(1971) - JVRP(6650) = 1 -! JVRP(6651) = dARP(4154)/dV(238) - JVRP(6651) = V(5250) -! JVRP(6652) = dARP(4154)/dV(5250) - JVRP(6652) = V(238) -! JVRP(6653) = dARP(4155)/dV(5049) - JVRP(6653) = 1 -! JVRP(6654) = dARP(4156)/dV(5049) - JVRP(6654) = 1 -! JVRP(6655) = dARP(4157)/dV(5049) - JVRP(6655) = V(5256) -! JVRP(6656) = dARP(4157)/dV(5256) - JVRP(6656) = V(5049) -! JVRP(6657) = dARP(4158)/dV(5049) - JVRP(6657) = V(5258) -! JVRP(6658) = dARP(4158)/dV(5258) - JVRP(6658) = V(5049) -! JVRP(6659) = dARP(4159)/dV(5049) - JVRP(6659) = V(5258) -! JVRP(6660) = dARP(4159)/dV(5258) - JVRP(6660) = V(5049) -! JVRP(6661) = dARP(4160)/dV(5049) - JVRP(6661) = V(5250) -! JVRP(6662) = dARP(4160)/dV(5250) - JVRP(6662) = V(5049) -! JVRP(6663) = dARP(4161)/dV(5049) - JVRP(6663) = V(5250) -! JVRP(6664) = dARP(4161)/dV(5250) - JVRP(6664) = V(5049) -! JVRP(6665) = dARP(4162)/dV(841) - JVRP(6665) = 1 -! JVRP(6666) = dARP(4163)/dV(841) - JVRP(6666) = V(5250) -! JVRP(6667) = dARP(4163)/dV(5250) - JVRP(6667) = V(841) -! JVRP(6668) = dARP(4164)/dV(1172) - JVRP(6668) = V(5250) -! JVRP(6669) = dARP(4164)/dV(5250) - JVRP(6669) = V(1172) -! JVRP(6670) = dARP(4165)/dV(2771) - JVRP(6670) = 1 -! JVRP(6671) = dARP(4166)/dV(1054) - JVRP(6671) = V(5250) -! JVRP(6672) = dARP(4166)/dV(5250) - JVRP(6672) = V(1054) -! JVRP(6673) = dARP(4167)/dV(5093) - JVRP(6673) = V(5258) -! JVRP(6674) = dARP(4167)/dV(5258) - JVRP(6674) = V(5093) -! JVRP(6675) = dARP(4168)/dV(5093) - JVRP(6675) = V(5258) -! JVRP(6676) = dARP(4168)/dV(5258) - JVRP(6676) = V(5093) -! JVRP(6677) = dARP(4169)/dV(5093) - JVRP(6677) = V(5250) -! JVRP(6678) = dARP(4169)/dV(5250) - JVRP(6678) = V(5093) -! JVRP(6679) = dARP(4170)/dV(5093) - JVRP(6679) = V(5250) -! JVRP(6680) = dARP(4170)/dV(5250) - JVRP(6680) = V(5093) -! JVRP(6681) = dARP(4171)/dV(5093) - JVRP(6681) = 1 -! JVRP(6682) = dARP(4172)/dV(5093) - JVRP(6682) = 1 -! JVRP(6683) = dARP(4173)/dV(1395) - JVRP(6683) = 1 -! JVRP(6684) = dARP(4174)/dV(1395) - JVRP(6684) = V(5250) -! JVRP(6685) = dARP(4174)/dV(5250) - JVRP(6685) = V(1395) -! JVRP(6686) = dARP(4175)/dV(2706) - JVRP(6686) = 1 -! JVRP(6687) = dARP(4176)/dV(4373) - JVRP(6687) = 1 -! JVRP(6688) = dARP(4177)/dV(4373) - JVRP(6688) = V(5256) -! JVRP(6689) = dARP(4177)/dV(5256) - JVRP(6689) = V(4373) -! JVRP(6690) = dARP(4178)/dV(4373) - JVRP(6690) = V(5250) -! JVRP(6691) = dARP(4178)/dV(5250) - JVRP(6691) = V(4373) -! JVRP(6692) = dARP(4179)/dV(1258) - JVRP(6692) = 1 -! JVRP(6693) = dARP(4180)/dV(1258) - JVRP(6693) = V(5250) -! JVRP(6694) = dARP(4180)/dV(5250) - JVRP(6694) = V(1258) -! JVRP(6695) = dARP(4181)/dV(2040) - JVRP(6695) = 1 -! JVRP(6696) = dARP(4182)/dV(2040) - JVRP(6696) = V(5250) -! JVRP(6697) = dARP(4182)/dV(5250) - JVRP(6697) = V(2040) -! JVRP(6698) = dARP(4183)/dV(2041) - JVRP(6698) = 1 -! JVRP(6699) = dARP(4184)/dV(5168) - JVRP(6699) = 1 -! JVRP(6700) = dARP(4185)/dV(5168) - JVRP(6700) = V(5258) -! JVRP(6701) = dARP(4185)/dV(5258) - JVRP(6701) = V(5168) -! JVRP(6702) = dARP(4186)/dV(5168) - JVRP(6702) = V(5258) -! JVRP(6703) = dARP(4186)/dV(5258) - JVRP(6703) = V(5168) -! JVRP(6704) = dARP(4187)/dV(5168) - JVRP(6704) = V(5250) -! JVRP(6705) = dARP(4187)/dV(5250) - JVRP(6705) = V(5168) -! JVRP(6706) = dARP(4188)/dV(5069) - JVRP(6706) = 1 -! JVRP(6707) = dARP(4189)/dV(5069) - JVRP(6707) = V(5256) -! JVRP(6708) = dARP(4189)/dV(5256) - JVRP(6708) = V(5069) -! JVRP(6709) = dARP(4190)/dV(5069) - JVRP(6709) = V(5258) -! JVRP(6710) = dARP(4190)/dV(5258) - JVRP(6710) = V(5069) -! JVRP(6711) = dARP(4191)/dV(5069) - JVRP(6711) = V(5258) -! JVRP(6712) = dARP(4191)/dV(5258) - JVRP(6712) = V(5069) -! JVRP(6713) = dARP(4192)/dV(5069) - JVRP(6713) = V(5250) -! JVRP(6714) = dARP(4192)/dV(5250) - JVRP(6714) = V(5069) -! JVRP(6715) = dARP(4193)/dV(5069) - JVRP(6715) = V(5250) -! JVRP(6716) = dARP(4193)/dV(5250) - JVRP(6716) = V(5069) -! JVRP(6717) = dARP(4194)/dV(2479) - JVRP(6717) = 1 -! JVRP(6718) = dARP(4195)/dV(2479) - JVRP(6718) = 1 -! JVRP(6719) = dARP(4196)/dV(2479) - JVRP(6719) = 1 -! JVRP(6720) = dARP(4197)/dV(2479) - JVRP(6720) = 1 -! JVRP(6721) = dARP(4198)/dV(5020) - JVRP(6721) = V(5255) -! JVRP(6722) = dARP(4198)/dV(5255) - JVRP(6722) = V(5020) -! JVRP(6723) = dARP(4199)/dV(5020) - JVRP(6723) = V(5252) -! JVRP(6724) = dARP(4199)/dV(5252) - JVRP(6724) = V(5020) -! JVRP(6725) = dARP(4200)/dV(5020) - JVRP(6725) = V(5252) -! JVRP(6726) = dARP(4200)/dV(5252) - JVRP(6726) = V(5020) -! JVRP(6727) = dARP(4201)/dV(5020) - JVRP(6727) = V(5256) -! JVRP(6728) = dARP(4201)/dV(5256) - JVRP(6728) = V(5020) -! JVRP(6729) = dARP(4202)/dV(5020) - JVRP(6729) = 1 -! JVRP(6730) = dARP(4203)/dV(5020) - JVRP(6730) = 1 -! JVRP(6731) = dARP(4204)/dV(5020) - JVRP(6731) = 1 -! JVRP(6732) = dARP(4205)/dV(5016) - JVRP(6732) = V(5252) -! JVRP(6733) = dARP(4205)/dV(5252) - JVRP(6733) = V(5016) -! JVRP(6734) = dARP(4206)/dV(5016) - JVRP(6734) = V(5255) -! JVRP(6735) = dARP(4206)/dV(5255) - JVRP(6735) = V(5016) -! JVRP(6736) = dARP(4207)/dV(5016) - JVRP(6736) = V(5252) -! JVRP(6737) = dARP(4207)/dV(5252) - JVRP(6737) = V(5016) -! JVRP(6738) = dARP(4208)/dV(5016) - JVRP(6738) = V(5256) -! JVRP(6739) = dARP(4208)/dV(5256) - JVRP(6739) = V(5016) -! JVRP(6740) = dARP(4209)/dV(5016) - JVRP(6740) = 1 -! JVRP(6741) = dARP(4210)/dV(5016) - JVRP(6741) = 1 -! JVRP(6742) = dARP(4211)/dV(5016) - JVRP(6742) = 1 -! JVRP(6743) = dARP(4212)/dV(4906) - JVRP(6743) = V(5251) -! JVRP(6744) = dARP(4212)/dV(5251) - JVRP(6744) = V(4906) -! JVRP(6745) = dARP(4213)/dV(4906) - JVRP(6745) = V(5252) -! JVRP(6746) = dARP(4213)/dV(5252) - JVRP(6746) = V(4906) -! JVRP(6747) = dARP(4214)/dV(4906) - JVRP(6747) = V(5253) -! JVRP(6748) = dARP(4214)/dV(5253) - JVRP(6748) = V(4906) -! JVRP(6749) = dARP(4215)/dV(4906) - JVRP(6749) = V(5254) -! JVRP(6750) = dARP(4215)/dV(5254) - JVRP(6750) = V(4906) -! JVRP(6751) = dARP(4216)/dV(4906) - JVRP(6751) = 1 -! JVRP(6752) = dARP(4217)/dV(4906) - JVRP(6752) = 1 -! JVRP(6753) = dARP(4218)/dV(4286) - JVRP(6753) = V(5251) -! JVRP(6754) = dARP(4218)/dV(5251) - JVRP(6754) = V(4286) -! JVRP(6755) = dARP(4219)/dV(4286) - JVRP(6755) = V(5252) -! JVRP(6756) = dARP(4219)/dV(5252) - JVRP(6756) = V(4286) -! JVRP(6757) = dARP(4220)/dV(4286) - JVRP(6757) = V(5253) -! JVRP(6758) = dARP(4220)/dV(5253) - JVRP(6758) = V(4286) -! JVRP(6759) = dARP(4221)/dV(4286) - JVRP(6759) = V(5254) -! JVRP(6760) = dARP(4221)/dV(5254) - JVRP(6760) = V(4286) -! JVRP(6761) = dARP(4222)/dV(4286) - JVRP(6761) = 1 -! JVRP(6762) = dARP(4223)/dV(4774) - JVRP(6762) = V(5255) -! JVRP(6763) = dARP(4223)/dV(5255) - JVRP(6763) = V(4774) -! JVRP(6764) = dARP(4224)/dV(4774) - JVRP(6764) = V(5252) -! JVRP(6765) = dARP(4224)/dV(5252) - JVRP(6765) = V(4774) -! JVRP(6766) = dARP(4225)/dV(4774) - JVRP(6766) = V(5256) -! JVRP(6767) = dARP(4225)/dV(5256) - JVRP(6767) = V(4774) -! JVRP(6768) = dARP(4226)/dV(4774) - JVRP(6768) = 1 -! JVRP(6769) = dARP(4227)/dV(4774) - JVRP(6769) = 1 -! JVRP(6770) = dARP(4228)/dV(4774) - JVRP(6770) = 1 -! JVRP(6771) = dARP(4229)/dV(5217) - JVRP(6771) = V(5255) -! JVRP(6772) = dARP(4229)/dV(5255) - JVRP(6772) = V(5217) -! JVRP(6773) = dARP(4230)/dV(5217) - JVRP(6773) = V(5252) -! JVRP(6774) = dARP(4230)/dV(5252) - JVRP(6774) = V(5217) -! JVRP(6775) = dARP(4231)/dV(5217) - JVRP(6775) = V(5252) -! JVRP(6776) = dARP(4231)/dV(5252) - JVRP(6776) = V(5217) -! JVRP(6777) = dARP(4232)/dV(5217) - JVRP(6777) = V(5256) -! JVRP(6778) = dARP(4232)/dV(5256) - JVRP(6778) = V(5217) -! JVRP(6779) = dARP(4233)/dV(5217) - JVRP(6779) = 1 -! JVRP(6780) = dARP(4234)/dV(5217) - JVRP(6780) = 1 -! JVRP(6781) = dARP(4235)/dV(5217) - JVRP(6781) = 1 -! JVRP(6782) = dARP(4236)/dV(5217) - JVRP(6782) = 1 -! JVRP(6783) = dARP(4237)/dV(5217) - JVRP(6783) = 1 -! JVRP(6784) = dARP(4238)/dV(5217) - JVRP(6784) = 1 -! JVRP(6785) = dARP(4239)/dV(5219) - JVRP(6785) = V(5255) -! JVRP(6786) = dARP(4239)/dV(5255) - JVRP(6786) = V(5219) -! JVRP(6787) = dARP(4240)/dV(5219) - JVRP(6787) = V(5252) -! JVRP(6788) = dARP(4240)/dV(5252) - JVRP(6788) = V(5219) -! JVRP(6789) = dARP(4241)/dV(5219) - JVRP(6789) = V(5252) -! JVRP(6790) = dARP(4241)/dV(5252) - JVRP(6790) = V(5219) -! JVRP(6791) = dARP(4242)/dV(5219) - JVRP(6791) = V(5256) -! JVRP(6792) = dARP(4242)/dV(5256) - JVRP(6792) = V(5219) -! JVRP(6793) = dARP(4243)/dV(5219) - JVRP(6793) = 1 -! JVRP(6794) = dARP(4244)/dV(5219) - JVRP(6794) = 1 -! JVRP(6795) = dARP(4245)/dV(5219) - JVRP(6795) = 1 -! JVRP(6796) = dARP(4246)/dV(5219) - JVRP(6796) = 1 -! JVRP(6797) = dARP(4247)/dV(5219) - JVRP(6797) = 1 -! JVRP(6798) = dARP(4248)/dV(5204) - JVRP(6798) = V(5255) -! JVRP(6799) = dARP(4248)/dV(5255) - JVRP(6799) = V(5204) -! JVRP(6800) = dARP(4249)/dV(5204) - JVRP(6800) = V(5252) -! JVRP(6801) = dARP(4249)/dV(5252) - JVRP(6801) = V(5204) -! JVRP(6802) = dARP(4250)/dV(5204) - JVRP(6802) = V(5252) -! JVRP(6803) = dARP(4250)/dV(5252) - JVRP(6803) = V(5204) -! JVRP(6804) = dARP(4251)/dV(5204) - JVRP(6804) = V(5256) -! JVRP(6805) = dARP(4251)/dV(5256) - JVRP(6805) = V(5204) -! JVRP(6806) = dARP(4252)/dV(5204) - JVRP(6806) = 1 -! JVRP(6807) = dARP(4253)/dV(5204) - JVRP(6807) = 1 -! JVRP(6808) = dARP(4254)/dV(5204) - JVRP(6808) = 1 -! JVRP(6809) = dARP(4255)/dV(5204) - JVRP(6809) = 1 -! JVRP(6810) = dARP(4256)/dV(5204) - JVRP(6810) = 1 -! JVRP(6811) = dARP(4257)/dV(5204) - JVRP(6811) = 1 -! JVRP(6812) = dARP(4258)/dV(5224) - JVRP(6812) = V(5255) -! JVRP(6813) = dARP(4258)/dV(5255) - JVRP(6813) = V(5224) -! JVRP(6814) = dARP(4259)/dV(5224) - JVRP(6814) = V(5252) -! JVRP(6815) = dARP(4259)/dV(5252) - JVRP(6815) = V(5224) -! JVRP(6816) = dARP(4260)/dV(5224) - JVRP(6816) = V(5252) -! JVRP(6817) = dARP(4260)/dV(5252) - JVRP(6817) = V(5224) -! JVRP(6818) = dARP(4261)/dV(5224) - JVRP(6818) = V(5256) -! JVRP(6819) = dARP(4261)/dV(5256) - JVRP(6819) = V(5224) -! JVRP(6820) = dARP(4262)/dV(5224) - JVRP(6820) = 1 -! JVRP(6821) = dARP(4263)/dV(5224) - JVRP(6821) = 1 -! JVRP(6822) = dARP(4264)/dV(5224) - JVRP(6822) = 1 -! JVRP(6823) = dARP(4265)/dV(5224) - JVRP(6823) = 1 -! JVRP(6824) = dARP(4266)/dV(5224) - JVRP(6824) = 1 -! JVRP(6825) = dARP(4267)/dV(5224) - JVRP(6825) = 1 -! JVRP(6826) = dARP(4268)/dV(968) - JVRP(6826) = V(5250) -! JVRP(6827) = dARP(4268)/dV(5250) - JVRP(6827) = V(968) -! JVRP(6828) = dARP(4269)/dV(968) - JVRP(6828) = 1 -! JVRP(6829) = dARP(4270)/dV(4096) - JVRP(6829) = V(5250) -! JVRP(6830) = dARP(4270)/dV(5250) - JVRP(6830) = V(4096) -! JVRP(6831) = dARP(4271)/dV(4096) - JVRP(6831) = V(5258) -! JVRP(6832) = dARP(4271)/dV(5258) - JVRP(6832) = V(4096) -! JVRP(6833) = dARP(4272)/dV(4096) - JVRP(6833) = V(5258) -! JVRP(6834) = dARP(4272)/dV(5258) - JVRP(6834) = V(4096) -! JVRP(6835) = dARP(4273)/dV(2623) - JVRP(6835) = 1 -! JVRP(6836) = dARP(4274)/dV(3228) - JVRP(6836) = V(5250) -! JVRP(6837) = dARP(4274)/dV(5250) - JVRP(6837) = V(3228) -! JVRP(6838) = dARP(4275)/dV(3228) - JVRP(6838) = V(5250) -! JVRP(6839) = dARP(4275)/dV(5250) - JVRP(6839) = V(3228) -! JVRP(6840) = dARP(4276)/dV(3228) - JVRP(6840) = 1 -! JVRP(6841) = dARP(4277)/dV(1280) - JVRP(6841) = V(5250) -! JVRP(6842) = dARP(4277)/dV(5250) - JVRP(6842) = V(1280) -! JVRP(6843) = dARP(4278)/dV(4337) - JVRP(6843) = V(5255) -! JVRP(6844) = dARP(4278)/dV(5255) - JVRP(6844) = V(4337) -! JVRP(6845) = dARP(4279)/dV(4337) - JVRP(6845) = V(5252) -! JVRP(6846) = dARP(4279)/dV(5252) - JVRP(6846) = V(4337) -! JVRP(6847) = dARP(4280)/dV(4337) - JVRP(6847) = V(5256) -! JVRP(6848) = dARP(4280)/dV(5256) - JVRP(6848) = V(4337) -! JVRP(6849) = dARP(4281)/dV(4337) - JVRP(6849) = 1 -! JVRP(6850) = dARP(4282)/dV(514) - JVRP(6850) = 1 -! JVRP(6851) = dARP(4283)/dV(514) - JVRP(6851) = 1 -! JVRP(6852) = dARP(4284)/dV(3980) - JVRP(6852) = V(5255) -! JVRP(6853) = dARP(4284)/dV(5255) - JVRP(6853) = V(3980) -! JVRP(6854) = dARP(4285)/dV(3980) - JVRP(6854) = V(5252) -! JVRP(6855) = dARP(4285)/dV(5252) - JVRP(6855) = V(3980) -! JVRP(6856) = dARP(4286)/dV(3980) - JVRP(6856) = V(5252) -! JVRP(6857) = dARP(4286)/dV(5252) - JVRP(6857) = V(3980) -! JVRP(6858) = dARP(4287)/dV(3980) - JVRP(6858) = V(5256) -! JVRP(6859) = dARP(4287)/dV(5256) - JVRP(6859) = V(3980) -! JVRP(6860) = dARP(4288)/dV(3980) - JVRP(6860) = 1 -! JVRP(6861) = dARP(4289)/dV(4255) - JVRP(6861) = V(5255) -! JVRP(6862) = dARP(4289)/dV(5255) - JVRP(6862) = V(4255) -! JVRP(6863) = dARP(4290)/dV(4255) - JVRP(6863) = V(5255) -! JVRP(6864) = dARP(4290)/dV(5255) - JVRP(6864) = V(4255) -! JVRP(6865) = dARP(4291)/dV(4255) - JVRP(6865) = V(5252) -! JVRP(6866) = dARP(4291)/dV(5252) - JVRP(6866) = V(4255) -! JVRP(6867) = dARP(4292)/dV(4255) - JVRP(6867) = V(5253) -! JVRP(6868) = dARP(4292)/dV(5253) - JVRP(6868) = V(4255) -! JVRP(6869) = dARP(4293)/dV(4255) - JVRP(6869) = V(5256) -! JVRP(6870) = dARP(4293)/dV(5256) - JVRP(6870) = V(4255) -! JVRP(6871) = dARP(4294)/dV(4255) - JVRP(6871) = 1 -! JVRP(6872) = dARP(4295)/dV(4087) - JVRP(6872) = V(5255) -! JVRP(6873) = dARP(4295)/dV(5255) - JVRP(6873) = V(4087) -! JVRP(6874) = dARP(4296)/dV(4087) - JVRP(6874) = V(5252) -! JVRP(6875) = dARP(4296)/dV(5252) - JVRP(6875) = V(4087) -! JVRP(6876) = dARP(4297)/dV(4087) - JVRP(6876) = V(5252) -! JVRP(6877) = dARP(4297)/dV(5252) - JVRP(6877) = V(4087) -! JVRP(6878) = dARP(4298)/dV(4087) - JVRP(6878) = V(5256) -! JVRP(6879) = dARP(4298)/dV(5256) - JVRP(6879) = V(4087) -! JVRP(6880) = dARP(4299)/dV(4087) - JVRP(6880) = 1 -! JVRP(6881) = dARP(4300)/dV(3865) - JVRP(6881) = V(5255) -! JVRP(6882) = dARP(4300)/dV(5255) - JVRP(6882) = V(3865) -! JVRP(6883) = dARP(4301)/dV(3865) - JVRP(6883) = V(5252) -! JVRP(6884) = dARP(4301)/dV(5252) - JVRP(6884) = V(3865) -! JVRP(6885) = dARP(4302)/dV(3865) - JVRP(6885) = V(5256) -! JVRP(6886) = dARP(4302)/dV(5256) - JVRP(6886) = V(3865) -! JVRP(6887) = dARP(4303)/dV(3865) - JVRP(6887) = 1 -! JVRP(6888) = dARP(4304)/dV(2425) - JVRP(6888) = 1 -! JVRP(6889) = dARP(4305)/dV(2425) - JVRP(6889) = 1 -! JVRP(6890) = dARP(4306)/dV(2425) - JVRP(6890) = 1 -! JVRP(6891) = dARP(4307)/dV(2425) - JVRP(6891) = 1 -! JVRP(6892) = dARP(4308)/dV(5127) - JVRP(6892) = V(5255) -! JVRP(6893) = dARP(4308)/dV(5255) - JVRP(6893) = V(5127) -! JVRP(6894) = dARP(4309)/dV(5127) - JVRP(6894) = V(5252) -! JVRP(6895) = dARP(4309)/dV(5252) - JVRP(6895) = V(5127) -! JVRP(6896) = dARP(4310)/dV(5127) - JVRP(6896) = V(5252) -! JVRP(6897) = dARP(4310)/dV(5252) - JVRP(6897) = V(5127) -! JVRP(6898) = dARP(4311)/dV(5127) - JVRP(6898) = V(5256) -! JVRP(6899) = dARP(4311)/dV(5256) - JVRP(6899) = V(5127) -! JVRP(6900) = dARP(4312)/dV(5127) - JVRP(6900) = 1 -! JVRP(6901) = dARP(4313)/dV(5127) - JVRP(6901) = 1 -! JVRP(6902) = dARP(4314)/dV(5127) - JVRP(6902) = 1 -! JVRP(6903) = dARP(4315)/dV(3496) - JVRP(6903) = V(5255) -! JVRP(6904) = dARP(4315)/dV(5255) - JVRP(6904) = V(3496) -! JVRP(6905) = dARP(4316)/dV(3496) - JVRP(6905) = V(5252) -! JVRP(6906) = dARP(4316)/dV(5252) - JVRP(6906) = V(3496) -! JVRP(6907) = dARP(4317)/dV(3496) - JVRP(6907) = V(5252) -! JVRP(6908) = dARP(4317)/dV(5252) - JVRP(6908) = V(3496) -! JVRP(6909) = dARP(4318)/dV(3496) - JVRP(6909) = V(5256) -! JVRP(6910) = dARP(4318)/dV(5256) - JVRP(6910) = V(3496) -! JVRP(6911) = dARP(4319)/dV(3496) - JVRP(6911) = 1 -! JVRP(6912) = dARP(4320)/dV(3496) - JVRP(6912) = 1 -! JVRP(6913) = dARP(4321)/dV(3496) - JVRP(6913) = 1 -! JVRP(6914) = dARP(4322)/dV(5218) - JVRP(6914) = V(5255) -! JVRP(6915) = dARP(4322)/dV(5255) - JVRP(6915) = V(5218) -! JVRP(6916) = dARP(4323)/dV(5218) - JVRP(6916) = V(5252) -! JVRP(6917) = dARP(4323)/dV(5252) - JVRP(6917) = V(5218) -! JVRP(6918) = dARP(4324)/dV(5218) - JVRP(6918) = V(5252) -! JVRP(6919) = dARP(4324)/dV(5252) - JVRP(6919) = V(5218) -! JVRP(6920) = dARP(4325)/dV(5218) - JVRP(6920) = V(5256) -! JVRP(6921) = dARP(4325)/dV(5256) - JVRP(6921) = V(5218) -! JVRP(6922) = dARP(4326)/dV(5218) - JVRP(6922) = 1 -! JVRP(6923) = dARP(4327)/dV(5218) - JVRP(6923) = 1 -! JVRP(6924) = dARP(4328)/dV(5218) - JVRP(6924) = 1 -! JVRP(6925) = dARP(4329)/dV(5218) - JVRP(6925) = 1 -! JVRP(6926) = dARP(4330)/dV(5118) - JVRP(6926) = V(5255) -! JVRP(6927) = dARP(4330)/dV(5255) - JVRP(6927) = V(5118) -! JVRP(6928) = dARP(4331)/dV(5118) - JVRP(6928) = V(5252) -! JVRP(6929) = dARP(4331)/dV(5252) - JVRP(6929) = V(5118) -! JVRP(6930) = dARP(4332)/dV(5118) - JVRP(6930) = V(5252) -! JVRP(6931) = dARP(4332)/dV(5252) - JVRP(6931) = V(5118) -! JVRP(6932) = dARP(4333)/dV(5118) - JVRP(6932) = V(5256) -! JVRP(6933) = dARP(4333)/dV(5256) - JVRP(6933) = V(5118) -! JVRP(6934) = dARP(4334)/dV(5118) - JVRP(6934) = 1 -! JVRP(6935) = dARP(4335)/dV(5118) - JVRP(6935) = 1 -! JVRP(6936) = dARP(4336)/dV(5118) - JVRP(6936) = 1 -! JVRP(6937) = dARP(4337)/dV(5118) - JVRP(6937) = 1 -! JVRP(6938) = dARP(4338)/dV(1239) - JVRP(6938) = V(5250) -! JVRP(6939) = dARP(4338)/dV(5250) - JVRP(6939) = V(1239) -! JVRP(6940) = dARP(4339)/dV(1239) - JVRP(6940) = 1 -! JVRP(6941) = dARP(4340)/dV(2574) - JVRP(6941) = V(5250) -! JVRP(6942) = dARP(4340)/dV(5250) - JVRP(6942) = V(2574) -! JVRP(6943) = dARP(4341)/dV(2574) - JVRP(6943) = V(5250) -! JVRP(6944) = dARP(4341)/dV(5250) - JVRP(6944) = V(2574) -! JVRP(6945) = dARP(4342)/dV(1922) - JVRP(6945) = V(5250) -! JVRP(6946) = dARP(4342)/dV(5250) - JVRP(6946) = V(1922) -! JVRP(6947) = dARP(4343)/dV(1922) - JVRP(6947) = 1 -! JVRP(6948) = dARP(4344)/dV(1923) - JVRP(6948) = 1 -! JVRP(6949) = dARP(4345)/dV(307) - JVRP(6949) = V(5250) -! JVRP(6950) = dARP(4345)/dV(5250) - JVRP(6950) = V(307) -! JVRP(6951) = dARP(4346)/dV(1143) - JVRP(6951) = V(5250) -! JVRP(6952) = dARP(4346)/dV(5250) - JVRP(6952) = V(1143) -! JVRP(6953) = dARP(4347)/dV(1143) - JVRP(6953) = 1 -! JVRP(6954) = dARP(4348)/dV(3156) - JVRP(6954) = V(5250) -! JVRP(6955) = dARP(4348)/dV(5250) - JVRP(6955) = V(3156) -! JVRP(6956) = dARP(4349)/dV(3156) - JVRP(6956) = V(5250) -! JVRP(6957) = dARP(4349)/dV(5250) - JVRP(6957) = V(3156) -! JVRP(6958) = dARP(4350)/dV(3156) - JVRP(6958) = V(5250) -! JVRP(6959) = dARP(4350)/dV(5250) - JVRP(6959) = V(3156) -! JVRP(6960) = dARP(4351)/dV(2075) - JVRP(6960) = V(5250) -! JVRP(6961) = dARP(4351)/dV(5250) - JVRP(6961) = V(2075) -! JVRP(6962) = dARP(4352)/dV(2075) - JVRP(6962) = 1 -! JVRP(6963) = dARP(4353)/dV(2076) - JVRP(6963) = 1 -! JVRP(6964) = dARP(4354)/dV(417) - JVRP(6964) = V(5250) -! JVRP(6965) = dARP(4354)/dV(5250) - JVRP(6965) = V(417) -! JVRP(6966) = dARP(4355)/dV(1305) - JVRP(6966) = V(5250) -! JVRP(6967) = dARP(4355)/dV(5250) - JVRP(6967) = V(1305) -! JVRP(6968) = dARP(4356)/dV(1305) - JVRP(6968) = 1 -! JVRP(6969) = dARP(4357)/dV(2817) - JVRP(6969) = V(5250) -! JVRP(6970) = dARP(4357)/dV(5250) - JVRP(6970) = V(2817) -! JVRP(6971) = dARP(4358)/dV(2817) - JVRP(6971) = 1 -! JVRP(6972) = dARP(4359)/dV(1867) - JVRP(6972) = 1 -! JVRP(6973) = dARP(4360)/dV(3472) - JVRP(6973) = V(5256) -! JVRP(6974) = dARP(4360)/dV(5256) - JVRP(6974) = V(3472) -! JVRP(6975) = dARP(4361)/dV(3472) - JVRP(6975) = V(5256) -! JVRP(6976) = dARP(4361)/dV(5256) - JVRP(6976) = V(3472) -! JVRP(6977) = dARP(4362)/dV(3472) - JVRP(6977) = V(5250) -! JVRP(6978) = dARP(4362)/dV(5250) - JVRP(6978) = V(3472) -! JVRP(6979) = dARP(4363)/dV(3472) - JVRP(6979) = V(5250) -! JVRP(6980) = dARP(4363)/dV(5250) - JVRP(6980) = V(3472) -! JVRP(6981) = dARP(4364)/dV(3472) - JVRP(6981) = V(5250) -! JVRP(6982) = dARP(4364)/dV(5250) - JVRP(6982) = V(3472) -! JVRP(6983) = dARP(4365)/dV(3900) - JVRP(6983) = V(5256) -! JVRP(6984) = dARP(4365)/dV(5256) - JVRP(6984) = V(3900) -! JVRP(6985) = dARP(4366)/dV(3900) - JVRP(6985) = V(5250) -! JVRP(6986) = dARP(4366)/dV(5250) - JVRP(6986) = V(3900) -! JVRP(6987) = dARP(4367)/dV(3900) - JVRP(6987) = 1 -! JVRP(6988) = dARP(4368)/dV(2326) - JVRP(6988) = 1 -! JVRP(6989) = dARP(4369)/dV(4383) - JVRP(6989) = V(5250) -! JVRP(6990) = dARP(4369)/dV(5250) - JVRP(6990) = V(4383) -! JVRP(6991) = dARP(4370)/dV(4383) - JVRP(6991) = V(5250) -! JVRP(6992) = dARP(4370)/dV(5250) - JVRP(6992) = V(4383) -! JVRP(6993) = dARP(4371)/dV(4383) - JVRP(6993) = 1 -! JVRP(6994) = dARP(4372)/dV(4383) - JVRP(6994) = 1 -! JVRP(6995) = dARP(4373)/dV(2070) - JVRP(6995) = V(5250) -! JVRP(6996) = dARP(4373)/dV(5250) - JVRP(6996) = V(2070) -! JVRP(6997) = dARP(4374)/dV(2070) - JVRP(6997) = V(5250) -! JVRP(6998) = dARP(4374)/dV(5250) - JVRP(6998) = V(2070) -! JVRP(6999) = dARP(4375)/dV(2070) - JVRP(6999) = 1 -! JVRP(7000) = dARP(4376)/dV(1895) - JVRP(7000) = V(5250) -! JVRP(7001) = dARP(4376)/dV(5250) - JVRP(7001) = V(1895) -! JVRP(7002) = dARP(4377)/dV(1895) - JVRP(7002) = 1 -! JVRP(7003) = dARP(4378)/dV(2539) - JVRP(7003) = 1 -! JVRP(7004) = dARP(4379)/dV(2539) - JVRP(7004) = 1 -! JVRP(7005) = dARP(4380)/dV(2715) - JVRP(7005) = V(5250) -! JVRP(7006) = dARP(4380)/dV(5250) - JVRP(7006) = V(2715) -! JVRP(7007) = dARP(4381)/dV(2715) - JVRP(7007) = V(5250) -! JVRP(7008) = dARP(4381)/dV(5250) - JVRP(7008) = V(2715) -! JVRP(7009) = dARP(4382)/dV(2715) - JVRP(7009) = 1 -! JVRP(7010) = dARP(4383)/dV(2715) - JVRP(7010) = 1 -! JVRP(7011) = dARP(4384)/dV(1592) - JVRP(7011) = 1 -! JVRP(7012) = dARP(4385)/dV(4938) - JVRP(7012) = 1 -! JVRP(7013) = dARP(4386)/dV(4938) - JVRP(7013) = V(5250) -! JVRP(7014) = dARP(4386)/dV(5250) - JVRP(7014) = V(4938) -! JVRP(7015) = dARP(4387)/dV(2774) - JVRP(7015) = V(5250) -! JVRP(7016) = dARP(4387)/dV(5250) - JVRP(7016) = V(2774) -! JVRP(7017) = dARP(4388)/dV(2774) - JVRP(7017) = V(5250) -! JVRP(7018) = dARP(4388)/dV(5250) - JVRP(7018) = V(2774) -! JVRP(7019) = dARP(4389)/dV(2774) - JVRP(7019) = 1 -! JVRP(7020) = dARP(4390)/dV(2774) - JVRP(7020) = 1 -! JVRP(7021) = dARP(4391)/dV(1574) - JVRP(7021) = 1 -! JVRP(7022) = dARP(4392)/dV(5139) - JVRP(7022) = 1 -! JVRP(7023) = dARP(4393)/dV(5139) - JVRP(7023) = V(5256) -! JVRP(7024) = dARP(4393)/dV(5256) - JVRP(7024) = V(5139) -! JVRP(7025) = dARP(4394)/dV(5139) - JVRP(7025) = V(5250) -! JVRP(7026) = dARP(4394)/dV(5250) - JVRP(7026) = V(5139) -! JVRP(7027) = dARP(4395)/dV(3222) - JVRP(7027) = V(5250) -! JVRP(7028) = dARP(4395)/dV(5250) - JVRP(7028) = V(3222) -! JVRP(7029) = dARP(4396)/dV(3222) - JVRP(7029) = V(5250) -! JVRP(7030) = dARP(4396)/dV(5250) - JVRP(7030) = V(3222) -! JVRP(7031) = dARP(4397)/dV(3222) - JVRP(7031) = 1 -! JVRP(7032) = dARP(4398)/dV(3222) - JVRP(7032) = 1 -! JVRP(7033) = dARP(4399)/dV(179) - JVRP(7033) = 1 -! JVRP(7034) = dARP(4400)/dV(2365) - JVRP(7034) = V(5250) -! JVRP(7035) = dARP(4400)/dV(5250) - JVRP(7035) = V(2365) -! JVRP(7036) = dARP(4401)/dV(2365) - JVRP(7036) = 1 -! JVRP(7037) = dARP(4402)/dV(4801) - JVRP(7037) = V(5250) -! JVRP(7038) = dARP(4402)/dV(5250) - JVRP(7038) = V(4801) -! JVRP(7039) = dARP(4403)/dV(4801) - JVRP(7039) = 1 -! JVRP(7040) = dARP(4404)/dV(4391) - JVRP(7040) = V(5250) -! JVRP(7041) = dARP(4404)/dV(5250) - JVRP(7041) = V(4391) -! JVRP(7042) = dARP(4405)/dV(4391) - JVRP(7042) = 1 -! JVRP(7043) = dARP(4406)/dV(3035) - JVRP(7043) = V(5250) -! JVRP(7044) = dARP(4406)/dV(5250) - JVRP(7044) = V(3035) -! JVRP(7045) = dARP(4407)/dV(3035) - JVRP(7045) = V(5250) -! JVRP(7046) = dARP(4407)/dV(5250) - JVRP(7046) = V(3035) -! JVRP(7047) = dARP(4408)/dV(3035) - JVRP(7047) = 1 -! JVRP(7048) = dARP(4409)/dV(3035) - JVRP(7048) = 1 -! JVRP(7049) = dARP(4410)/dV(1595) - JVRP(7049) = 1 -! JVRP(7050) = dARP(4411)/dV(4618) - JVRP(7050) = V(5250) -! JVRP(7051) = dARP(4411)/dV(5250) - JVRP(7051) = V(4618) -! JVRP(7052) = dARP(4412)/dV(4618) - JVRP(7052) = 1 -! JVRP(7053) = dARP(4413)/dV(2893) - JVRP(7053) = V(5250) -! JVRP(7054) = dARP(4413)/dV(5250) - JVRP(7054) = V(2893) -! JVRP(7055) = dARP(4414)/dV(2893) - JVRP(7055) = V(5250) -! JVRP(7056) = dARP(4414)/dV(5250) - JVRP(7056) = V(2893) -! JVRP(7057) = dARP(4415)/dV(2893) - JVRP(7057) = 1 -! JVRP(7058) = dARP(4416)/dV(2893) - JVRP(7058) = 1 -! JVRP(7059) = dARP(4417)/dV(1638) - JVRP(7059) = 1 -! JVRP(7060) = dARP(4418)/dV(2400) - JVRP(7060) = V(5250) -! JVRP(7061) = dARP(4418)/dV(5250) - JVRP(7061) = V(2400) -! JVRP(7062) = dARP(4419)/dV(2400) - JVRP(7062) = V(5250) -! JVRP(7063) = dARP(4419)/dV(5250) - JVRP(7063) = V(2400) -! JVRP(7064) = dARP(4420)/dV(2400) - JVRP(7064) = 1 -! JVRP(7065) = dARP(4421)/dV(2083) - JVRP(7065) = V(5250) -! JVRP(7066) = dARP(4421)/dV(5250) - JVRP(7066) = V(2083) -! JVRP(7067) = dARP(4422)/dV(2083) - JVRP(7067) = 1 -! JVRP(7068) = dARP(4423)/dV(175) - JVRP(7068) = 1 -! JVRP(7069) = dARP(4424)/dV(2665) - JVRP(7069) = V(5250) -! JVRP(7070) = dARP(4424)/dV(5250) - JVRP(7070) = V(2665) -! JVRP(7071) = dARP(4425)/dV(2665) - JVRP(7071) = 1 -! JVRP(7072) = dARP(4426)/dV(1983) - JVRP(7072) = 1 -! JVRP(7073) = dARP(4427)/dV(1983) - JVRP(7073) = V(5250) -! JVRP(7074) = dARP(4427)/dV(5250) - JVRP(7074) = V(1983) -! JVRP(7075) = dARP(4428)/dV(3104) - JVRP(7075) = 1 -! JVRP(7076) = dARP(4429)/dV(1132) - JVRP(7076) = 1 -! JVRP(7077) = dARP(4430)/dV(1132) - JVRP(7077) = V(5250) -! JVRP(7078) = dARP(4430)/dV(5250) - JVRP(7078) = V(1132) -! JVRP(7079) = dARP(4431)/dV(2092) - JVRP(7079) = 1 -! JVRP(7080) = dARP(4432)/dV(2092) - JVRP(7080) = V(5250) -! JVRP(7081) = dARP(4432)/dV(5250) - JVRP(7081) = V(2092) -! JVRP(7082) = dARP(4433)/dV(2614) - JVRP(7082) = 1 -! JVRP(7083) = dARP(4434)/dV(2614) - JVRP(7083) = 1 -! JVRP(7084) = dARP(4435)/dV(5026) - JVRP(7084) = 1 -! JVRP(7085) = dARP(4436)/dV(5026) - JVRP(7085) = V(5256) -! JVRP(7086) = dARP(4436)/dV(5256) - JVRP(7086) = V(5026) -! JVRP(7087) = dARP(4437)/dV(5026) - JVRP(7087) = V(5250) -! JVRP(7088) = dARP(4437)/dV(5250) - JVRP(7088) = V(5026) -! JVRP(7089) = dARP(4438)/dV(2269) - JVRP(7089) = V(5250) -! JVRP(7090) = dARP(4438)/dV(5250) - JVRP(7090) = V(2269) -! JVRP(7091) = dARP(4439)/dV(2269) - JVRP(7091) = V(5250) -! JVRP(7092) = dARP(4439)/dV(5250) - JVRP(7092) = V(2269) -! JVRP(7093) = dARP(4440)/dV(2269) - JVRP(7093) = 1 -! JVRP(7094) = dARP(4441)/dV(1841) - JVRP(7094) = V(5250) -! JVRP(7095) = dARP(4441)/dV(5250) - JVRP(7095) = V(1841) -! JVRP(7096) = dARP(4442)/dV(1841) - JVRP(7096) = 1 -! JVRP(7097) = dARP(4443)/dV(185) - JVRP(7097) = 1 -! JVRP(7098) = dARP(4444)/dV(5157) - JVRP(7098) = V(5250) -! JVRP(7099) = dARP(4444)/dV(5250) - JVRP(7099) = V(5157) -! JVRP(7100) = dARP(4445)/dV(5157) - JVRP(7100) = 1 -! JVRP(7101) = dARP(4446)/dV(5157) - JVRP(7101) = 1 -! JVRP(7102) = dARP(4447)/dV(1719) - JVRP(7102) = V(5250) -! JVRP(7103) = dARP(4447)/dV(5250) - JVRP(7103) = V(1719) -! JVRP(7104) = dARP(4448)/dV(1719) - JVRP(7104) = 1 -! JVRP(7105) = dARP(4449)/dV(1876) - JVRP(7105) = V(5250) -! JVRP(7106) = dARP(4449)/dV(5250) - JVRP(7106) = V(1876) -! JVRP(7107) = dARP(4450)/dV(1876) - JVRP(7107) = V(5250) -! JVRP(7108) = dARP(4450)/dV(5250) - JVRP(7108) = V(1876) -! JVRP(7109) = dARP(4451)/dV(1876) - JVRP(7109) = 1 -! JVRP(7110) = dARP(4452)/dV(1904) - JVRP(7110) = V(5250) -! JVRP(7111) = dARP(4452)/dV(5250) - JVRP(7111) = V(1904) -! JVRP(7112) = dARP(4453)/dV(1904) - JVRP(7112) = 1 -! JVRP(7113) = dARP(4454)/dV(3367) - JVRP(7113) = 1 -! JVRP(7114) = dARP(4455)/dV(3367) - JVRP(7114) = 1 -! JVRP(7115) = dARP(4456)/dV(3530) - JVRP(7115) = 1 -! JVRP(7116) = dARP(4457)/dV(3530) - JVRP(7116) = V(5250) -! JVRP(7117) = dARP(4457)/dV(5250) - JVRP(7117) = V(3530) -! JVRP(7118) = dARP(4458)/dV(4300) - JVRP(7118) = 1 -! JVRP(7119) = dARP(4459)/dV(4300) - JVRP(7119) = V(5250) -! JVRP(7120) = dARP(4459)/dV(5250) - JVRP(7120) = V(4300) -! JVRP(7121) = dARP(4460)/dV(4300) - JVRP(7121) = V(5250) -! JVRP(7122) = dARP(4460)/dV(5250) - JVRP(7122) = V(4300) -! JVRP(7123) = dARP(4461)/dV(2878) - JVRP(7123) = V(5250) -! JVRP(7124) = dARP(4461)/dV(5250) - JVRP(7124) = V(2878) -! JVRP(7125) = dARP(4462)/dV(2878) - JVRP(7125) = V(5250) -! JVRP(7126) = dARP(4462)/dV(5250) - JVRP(7126) = V(2878) -! JVRP(7127) = dARP(4463)/dV(2878) - JVRP(7127) = 1 -! JVRP(7128) = dARP(4464)/dV(2878) - JVRP(7128) = 1 -! JVRP(7129) = dARP(4465)/dV(1699) - JVRP(7129) = 1 -! JVRP(7130) = dARP(4466)/dV(3498) - JVRP(7130) = V(5250) -! JVRP(7131) = dARP(4466)/dV(5250) - JVRP(7131) = V(3498) -! JVRP(7132) = dARP(4467)/dV(3498) - JVRP(7132) = 1 -! JVRP(7133) = dARP(4468)/dV(3288) - JVRP(7133) = V(5250) -! JVRP(7134) = dARP(4468)/dV(5250) - JVRP(7134) = V(3288) -! JVRP(7135) = dARP(4469)/dV(3288) - JVRP(7135) = V(5250) -! JVRP(7136) = dARP(4469)/dV(5250) - JVRP(7136) = V(3288) -! JVRP(7137) = dARP(4470)/dV(3288) - JVRP(7137) = 1 -! JVRP(7138) = dARP(4471)/dV(3288) - JVRP(7138) = 1 -! JVRP(7139) = dARP(4472)/dV(1954) - JVRP(7139) = V(5250) -! JVRP(7140) = dARP(4472)/dV(5250) - JVRP(7140) = V(1954) -! JVRP(7141) = dARP(4473)/dV(1954) - JVRP(7141) = 1 -! JVRP(7142) = dARP(4474)/dV(150) - JVRP(7142) = 1 -! JVRP(7143) = dARP(4475)/dV(1704) - JVRP(7143) = V(5250) -! JVRP(7144) = dARP(4475)/dV(5250) - JVRP(7144) = V(1704) -! JVRP(7145) = dARP(4476)/dV(1704) - JVRP(7145) = 1 -! JVRP(7146) = dARP(4477)/dV(2572) - JVRP(7146) = V(5250) -! JVRP(7147) = dARP(4477)/dV(5250) - JVRP(7147) = V(2572) -! JVRP(7148) = dARP(4478)/dV(2572) - JVRP(7148) = V(5250) -! JVRP(7149) = dARP(4478)/dV(5250) - JVRP(7149) = V(2572) -! JVRP(7150) = dARP(4479)/dV(2572) - JVRP(7150) = 1 -! JVRP(7151) = dARP(4480)/dV(2572) - JVRP(7151) = 1 -! JVRP(7152) = dARP(4481)/dV(761) - JVRP(7152) = 1 -! JVRP(7153) = dARP(4482)/dV(1712) - JVRP(7153) = V(5250) -! JVRP(7154) = dARP(4482)/dV(5250) - JVRP(7154) = V(1712) -! JVRP(7155) = dARP(4483)/dV(1712) - JVRP(7155) = 1 -! JVRP(7156) = dARP(4484)/dV(1711) - JVRP(7156) = V(5250) -! JVRP(7157) = dARP(4484)/dV(5250) - JVRP(7157) = V(1711) -! JVRP(7158) = dARP(4485)/dV(1711) - JVRP(7158) = 1 -! JVRP(7159) = dARP(4486)/dV(2558) - JVRP(7159) = V(5250) -! JVRP(7160) = dARP(4486)/dV(5250) - JVRP(7160) = V(2558) -! JVRP(7161) = dARP(4487)/dV(2558) - JVRP(7161) = V(5250) -! JVRP(7162) = dARP(4487)/dV(5250) - JVRP(7162) = V(2558) -! JVRP(7163) = dARP(4488)/dV(2558) - JVRP(7163) = 1 -! JVRP(7164) = dARP(4489)/dV(2558) - JVRP(7164) = 1 -! JVRP(7165) = dARP(4490)/dV(1737) - JVRP(7165) = 1 -! JVRP(7166) = dARP(4491)/dV(2401) - JVRP(7166) = V(5250) -! JVRP(7167) = dARP(4491)/dV(5250) - JVRP(7167) = V(2401) -! JVRP(7168) = dARP(4492)/dV(2401) - JVRP(7168) = V(5250) -! JVRP(7169) = dARP(4492)/dV(5250) - JVRP(7169) = V(2401) -! JVRP(7170) = dARP(4493)/dV(2401) - JVRP(7170) = 1 -! JVRP(7171) = dARP(4494)/dV(2213) - JVRP(7171) = V(5250) -! JVRP(7172) = dARP(4494)/dV(5250) - JVRP(7172) = V(2213) -! JVRP(7173) = dARP(4495)/dV(2213) - JVRP(7173) = 1 -! JVRP(7174) = dARP(4496)/dV(167) - JVRP(7174) = 1 -! JVRP(7175) = dARP(4497)/dV(4717) - JVRP(7175) = V(5256) -! JVRP(7176) = dARP(4497)/dV(5256) - JVRP(7176) = V(4717) -! JVRP(7177) = dARP(4498)/dV(4717) - JVRP(7177) = V(5250) -! JVRP(7178) = dARP(4498)/dV(5250) - JVRP(7178) = V(4717) -! JVRP(7179) = dARP(4499)/dV(4717) - JVRP(7179) = 1 -! JVRP(7180) = dARP(4500)/dV(4717) - JVRP(7180) = 1 -! JVRP(7181) = dARP(4501)/dV(1599) - JVRP(7181) = V(5250) -! JVRP(7182) = dARP(4501)/dV(5250) - JVRP(7182) = V(1599) -! JVRP(7183) = dARP(4502)/dV(1599) - JVRP(7183) = 1 -! JVRP(7184) = dARP(4503)/dV(1153) - JVRP(7184) = V(5250) -! JVRP(7185) = dARP(4503)/dV(5250) - JVRP(7185) = V(1153) -! JVRP(7186) = dARP(4504)/dV(1153) - JVRP(7186) = 1 -! JVRP(7187) = dARP(4505)/dV(3068) - JVRP(7187) = V(5250) -! JVRP(7188) = dARP(4505)/dV(5250) - JVRP(7188) = V(3068) -! JVRP(7189) = dARP(4506)/dV(3068) - JVRP(7189) = 1 -! JVRP(7190) = dARP(4507)/dV(3069) - JVRP(7190) = 1 -! JVRP(7191) = dARP(4508)/dV(3069) - JVRP(7191) = 1 -! JVRP(7192) = dARP(4509)/dV(3314) - JVRP(7192) = V(5250) -! JVRP(7193) = dARP(4509)/dV(5250) - JVRP(7193) = V(3314) -! JVRP(7194) = dARP(4510)/dV(3314) - JVRP(7194) = V(5250) -! JVRP(7195) = dARP(4510)/dV(5250) - JVRP(7195) = V(3314) -! JVRP(7196) = dARP(4511)/dV(3314) - JVRP(7196) = 1 -! JVRP(7197) = dARP(4512)/dV(3314) - JVRP(7197) = 1 -! JVRP(7198) = dARP(4513)/dV(666) - JVRP(7198) = 1 -! JVRP(7199) = dARP(4514)/dV(1790) - JVRP(7199) = V(5250) -! JVRP(7200) = dARP(4514)/dV(5250) - JVRP(7200) = V(1790) -! JVRP(7201) = dARP(4515)/dV(1790) - JVRP(7201) = 1 -! JVRP(7202) = dARP(4516)/dV(1587) - JVRP(7202) = V(5250) -! JVRP(7203) = dARP(4516)/dV(5250) - JVRP(7203) = V(1587) -! JVRP(7204) = dARP(4517)/dV(1587) - JVRP(7204) = 1 -! JVRP(7205) = dARP(4518)/dV(1177) - JVRP(7205) = 1 -! JVRP(7206) = dARP(4519)/dV(1177) - JVRP(7206) = V(5250) -! JVRP(7207) = dARP(4519)/dV(5250) - JVRP(7207) = V(1177) -! JVRP(7208) = dARP(4520)/dV(2453) - JVRP(7208) = 1 -! JVRP(7209) = dARP(4521)/dV(2453) - JVRP(7209) = V(5250) -! JVRP(7210) = dARP(4521)/dV(5250) - JVRP(7210) = V(2453) -! JVRP(7211) = dARP(4522)/dV(2634) - JVRP(7211) = 1 -! JVRP(7212) = dARP(4523)/dV(2634) - JVRP(7212) = 1 -! JVRP(7213) = dARP(4524)/dV(3879) - JVRP(7213) = 1 -! JVRP(7214) = dARP(4525)/dV(3879) - JVRP(7214) = V(5256) -! JVRP(7215) = dARP(4525)/dV(5256) - JVRP(7215) = V(3879) -! JVRP(7216) = dARP(4526)/dV(3879) - JVRP(7216) = V(5250) -! JVRP(7217) = dARP(4526)/dV(5250) - JVRP(7217) = V(3879) -! JVRP(7218) = dARP(4527)/dV(577) - JVRP(7218) = 1 -! JVRP(7219) = dARP(4528)/dV(577) - JVRP(7219) = V(5250) -! JVRP(7220) = dARP(4528)/dV(5250) - JVRP(7220) = V(577) -! JVRP(7221) = dARP(4529)/dV(1313) - JVRP(7221) = V(5250) -! JVRP(7222) = dARP(4529)/dV(5250) - JVRP(7222) = V(1313) -! JVRP(7223) = dARP(4530)/dV(1313) - JVRP(7223) = 1 -! JVRP(7224) = dARP(4531)/dV(2215) - JVRP(7224) = V(5250) -! JVRP(7225) = dARP(4531)/dV(5250) - JVRP(7225) = V(2215) -! JVRP(7226) = dARP(4532)/dV(2215) - JVRP(7226) = 1 -! JVRP(7227) = dARP(4533)/dV(3066) - JVRP(7227) = 1 -! JVRP(7228) = dARP(4534)/dV(3066) - JVRP(7228) = 1 -! JVRP(7229) = dARP(4535)/dV(3607) - JVRP(7229) = V(5250) -! JVRP(7230) = dARP(4535)/dV(5250) - JVRP(7230) = V(3607) -! JVRP(7231) = dARP(4536)/dV(3607) - JVRP(7231) = 1 -! JVRP(7232) = dARP(4537)/dV(1673) - JVRP(7232) = V(5250) -! JVRP(7233) = dARP(4537)/dV(5250) - JVRP(7233) = V(1673) -! JVRP(7234) = dARP(4538)/dV(1673) - JVRP(7234) = 1 -! JVRP(7235) = dARP(4539)/dV(1844) - JVRP(7235) = V(5250) -! JVRP(7236) = dARP(4539)/dV(5250) - JVRP(7236) = V(1844) -! JVRP(7237) = dARP(4540)/dV(1844) - JVRP(7237) = 1 -! JVRP(7238) = dARP(4541)/dV(670) - JVRP(7238) = 1 -! JVRP(7239) = dARP(4542)/dV(2023) - JVRP(7239) = V(5250) -! JVRP(7240) = dARP(4542)/dV(5250) - JVRP(7240) = V(2023) -! JVRP(7241) = dARP(4543)/dV(2174) - JVRP(7241) = V(5250) -! JVRP(7242) = dARP(4543)/dV(5250) - JVRP(7242) = V(2174) -! JVRP(7243) = dARP(4544)/dV(2174) - JVRP(7243) = V(5250) -! JVRP(7244) = dARP(4544)/dV(5250) - JVRP(7244) = V(2174) -! JVRP(7245) = dARP(4545)/dV(2174) - JVRP(7245) = 1 -! JVRP(7246) = dARP(4546)/dV(3744) - JVRP(7246) = 1 -! JVRP(7247) = dARP(4547)/dV(3744) - JVRP(7247) = 1 -! JVRP(7248) = dARP(4548)/dV(2181) - JVRP(7248) = V(5250) -! JVRP(7249) = dARP(4548)/dV(5250) - JVRP(7249) = V(2181) -! JVRP(7250) = dARP(4549)/dV(3090) - JVRP(7250) = V(5250) -! JVRP(7251) = dARP(4549)/dV(5250) - JVRP(7251) = V(3090) -! JVRP(7252) = dARP(4550)/dV(3090) - JVRP(7252) = 1 -! JVRP(7253) = dARP(4551)/dV(4201) - JVRP(7253) = V(5255) -! JVRP(7254) = dARP(4551)/dV(5255) - JVRP(7254) = V(4201) -! JVRP(7255) = dARP(4552)/dV(4201) - JVRP(7255) = V(5252) -! JVRP(7256) = dARP(4552)/dV(5252) - JVRP(7256) = V(4201) -! JVRP(7257) = dARP(4553)/dV(4201) - JVRP(7257) = V(5256) -! JVRP(7258) = dARP(4553)/dV(5256) - JVRP(7258) = V(4201) -! JVRP(7259) = dARP(4554)/dV(4201) - JVRP(7259) = 1 -! JVRP(7260) = dARP(4555)/dV(4201) - JVRP(7260) = 1 -! JVRP(7261) = dARP(4556)/dV(4563) - JVRP(7261) = V(5255) -! JVRP(7262) = dARP(4556)/dV(5255) - JVRP(7262) = V(4563) -! JVRP(7263) = dARP(4557)/dV(4563) - JVRP(7263) = V(5252) -! JVRP(7264) = dARP(4557)/dV(5252) - JVRP(7264) = V(4563) -! JVRP(7265) = dARP(4558)/dV(4563) - JVRP(7265) = V(5256) -! JVRP(7266) = dARP(4558)/dV(5256) - JVRP(7266) = V(4563) -! JVRP(7267) = dARP(4559)/dV(4563) - JVRP(7267) = 1 -! JVRP(7268) = dARP(4560)/dV(4563) - JVRP(7268) = 1 -! JVRP(7269) = dARP(4561)/dV(4563) - JVRP(7269) = 1 -! JVRP(7270) = dARP(4562)/dV(4912) - JVRP(7270) = V(5251) -! JVRP(7271) = dARP(4562)/dV(5251) - JVRP(7271) = V(4912) -! JVRP(7272) = dARP(4563)/dV(4912) - JVRP(7272) = V(5252) -! JVRP(7273) = dARP(4563)/dV(5252) - JVRP(7273) = V(4912) -! JVRP(7274) = dARP(4564)/dV(4912) - JVRP(7274) = V(5253) -! JVRP(7275) = dARP(4564)/dV(5253) - JVRP(7275) = V(4912) -! JVRP(7276) = dARP(4565)/dV(4912) - JVRP(7276) = V(5254) -! JVRP(7277) = dARP(4565)/dV(5254) - JVRP(7277) = V(4912) -! JVRP(7278) = dARP(4566)/dV(4912) - JVRP(7278) = 1 -! JVRP(7279) = dARP(4567)/dV(4912) - JVRP(7279) = 1 -! JVRP(7280) = dARP(4568)/dV(5198) - JVRP(7280) = V(5255) -! JVRP(7281) = dARP(4568)/dV(5255) - JVRP(7281) = V(5198) -! JVRP(7282) = dARP(4569)/dV(5198) - JVRP(7282) = V(5252) -! JVRP(7283) = dARP(4569)/dV(5252) - JVRP(7283) = V(5198) -! JVRP(7284) = dARP(4570)/dV(5198) - JVRP(7284) = V(5252) -! JVRP(7285) = dARP(4570)/dV(5252) - JVRP(7285) = V(5198) -! JVRP(7286) = dARP(4571)/dV(5198) - JVRP(7286) = V(5256) -! JVRP(7287) = dARP(4571)/dV(5256) - JVRP(7287) = V(5198) -! JVRP(7288) = dARP(4572)/dV(5198) - JVRP(7288) = 1 -! JVRP(7289) = dARP(4573)/dV(5198) - JVRP(7289) = 1 -! JVRP(7290) = dARP(4574)/dV(5198) - JVRP(7290) = 1 -! JVRP(7291) = dARP(4575)/dV(2103) - JVRP(7291) = V(5250) -! JVRP(7292) = dARP(4575)/dV(5250) - JVRP(7292) = V(2103) -! JVRP(7293) = dARP(4576)/dV(2103) - JVRP(7293) = 1 -! JVRP(7294) = dARP(4577)/dV(783) - JVRP(7294) = 1 -! JVRP(7295) = dARP(4578)/dV(1036) - JVRP(7295) = V(5250) -! JVRP(7296) = dARP(4578)/dV(5250) - JVRP(7296) = V(1036) -! JVRP(7297) = dARP(4579)/dV(2058) - JVRP(7297) = V(5250) -! JVRP(7298) = dARP(4579)/dV(5250) - JVRP(7298) = V(2058) -! JVRP(7299) = dARP(4580)/dV(2058) - JVRP(7299) = 1 -! JVRP(7300) = dARP(4581)/dV(784) - JVRP(7300) = 1 -! JVRP(7301) = dARP(4582)/dV(1565) - JVRP(7301) = V(5250) -! JVRP(7302) = dARP(4582)/dV(5250) - JVRP(7302) = V(1565) -! JVRP(7303) = dARP(4583)/dV(1241) - JVRP(7303) = V(5250) -! JVRP(7304) = dARP(4583)/dV(5250) - JVRP(7304) = V(1241) -! JVRP(7305) = dARP(4584)/dV(1241) - JVRP(7305) = 1 -! JVRP(7306) = dARP(4585)/dV(2626) - JVRP(7306) = V(5250) -! JVRP(7307) = dARP(4585)/dV(5250) - JVRP(7307) = V(2626) -! JVRP(7308) = dARP(4586)/dV(2626) - JVRP(7308) = 1 -! JVRP(7309) = dARP(4587)/dV(2415) - JVRP(7309) = 1 -! JVRP(7310) = dARP(4588)/dV(95) - JVRP(7310) = V(5250) -! JVRP(7311) = dARP(4588)/dV(5250) - JVRP(7311) = V(95) -! JVRP(7312) = dARP(4589)/dV(897) - JVRP(7312) = V(5250) -! JVRP(7313) = dARP(4589)/dV(5250) - JVRP(7313) = V(897) -! JVRP(7314) = dARP(4590)/dV(897) - JVRP(7314) = 1 -! JVRP(7315) = dARP(4591)/dV(3030) - JVRP(7315) = 1 -! JVRP(7316) = dARP(4592)/dV(2343) - JVRP(7316) = V(5250) -! JVRP(7317) = dARP(4592)/dV(5250) - JVRP(7317) = V(2343) -! JVRP(7318) = dARP(4593)/dV(1362) - JVRP(7318) = V(5250) -! JVRP(7319) = dARP(4593)/dV(5250) - JVRP(7319) = V(1362) -! JVRP(7320) = dARP(4594)/dV(1362) - JVRP(7320) = 1 -! JVRP(7321) = dARP(4595)/dV(2959) - JVRP(7321) = 1 -! JVRP(7322) = dARP(4596)/dV(3141) - JVRP(7322) = V(5250) -! JVRP(7323) = dARP(4596)/dV(5250) - JVRP(7323) = V(3141) -! JVRP(7324) = dARP(4597)/dV(4151) - JVRP(7324) = V(5256) -! JVRP(7325) = dARP(4597)/dV(5256) - JVRP(7325) = V(4151) -! JVRP(7326) = dARP(4598)/dV(4151) - JVRP(7326) = V(5250) -! JVRP(7327) = dARP(4598)/dV(5250) - JVRP(7327) = V(4151) -! JVRP(7328) = dARP(4599)/dV(4151) - JVRP(7328) = 1 -! JVRP(7329) = dARP(4600)/dV(3852) - JVRP(7329) = V(5255) -! JVRP(7330) = dARP(4600)/dV(5255) - JVRP(7330) = V(3852) -! JVRP(7331) = dARP(4601)/dV(3852) - JVRP(7331) = V(5252) -! JVRP(7332) = dARP(4601)/dV(5252) - JVRP(7332) = V(3852) -! JVRP(7333) = dARP(4602)/dV(3852) - JVRP(7333) = V(5252) -! JVRP(7334) = dARP(4602)/dV(5252) - JVRP(7334) = V(3852) -! JVRP(7335) = dARP(4603)/dV(3852) - JVRP(7335) = V(5256) -! JVRP(7336) = dARP(4603)/dV(5256) - JVRP(7336) = V(3852) -! JVRP(7337) = dARP(4604)/dV(3852) - JVRP(7337) = 1 -! JVRP(7338) = dARP(4605)/dV(3852) - JVRP(7338) = 1 -! JVRP(7339) = dARP(4606)/dV(3852) - JVRP(7339) = 1 -! JVRP(7340) = dARP(4607)/dV(3733) - JVRP(7340) = V(5255) -! JVRP(7341) = dARP(4607)/dV(5255) - JVRP(7341) = V(3733) -! JVRP(7342) = dARP(4608)/dV(3733) - JVRP(7342) = V(5252) -! JVRP(7343) = dARP(4608)/dV(5252) - JVRP(7343) = V(3733) -! JVRP(7344) = dARP(4609)/dV(3733) - JVRP(7344) = V(5252) -! JVRP(7345) = dARP(4609)/dV(5252) - JVRP(7345) = V(3733) -! JVRP(7346) = dARP(4610)/dV(3733) - JVRP(7346) = V(5256) -! JVRP(7347) = dARP(4610)/dV(5256) - JVRP(7347) = V(3733) -! JVRP(7348) = dARP(4611)/dV(3733) - JVRP(7348) = 1 -! JVRP(7349) = dARP(4612)/dV(3733) - JVRP(7349) = 1 -! JVRP(7350) = dARP(4613)/dV(3733) - JVRP(7350) = 1 -! JVRP(7351) = dARP(4614)/dV(3982) - JVRP(7351) = V(5255) -! JVRP(7352) = dARP(4614)/dV(5255) - JVRP(7352) = V(3982) -! JVRP(7353) = dARP(4615)/dV(3982) - JVRP(7353) = V(5252) -! JVRP(7354) = dARP(4615)/dV(5252) - JVRP(7354) = V(3982) -! JVRP(7355) = dARP(4616)/dV(3982) - JVRP(7355) = V(5252) -! JVRP(7356) = dARP(4616)/dV(5252) - JVRP(7356) = V(3982) -! JVRP(7357) = dARP(4617)/dV(3982) - JVRP(7357) = V(5256) -! JVRP(7358) = dARP(4617)/dV(5256) - JVRP(7358) = V(3982) -! JVRP(7359) = dARP(4618)/dV(3982) - JVRP(7359) = 1 -! JVRP(7360) = dARP(4619)/dV(3982) - JVRP(7360) = 1 -! JVRP(7361) = dARP(4620)/dV(4240) - JVRP(7361) = V(5255) -! JVRP(7362) = dARP(4620)/dV(5255) - JVRP(7362) = V(4240) -! JVRP(7363) = dARP(4621)/dV(4240) - JVRP(7363) = V(5252) -! JVRP(7364) = dARP(4621)/dV(5252) - JVRP(7364) = V(4240) -! JVRP(7365) = dARP(4622)/dV(4240) - JVRP(7365) = V(5256) -! JVRP(7366) = dARP(4622)/dV(5256) - JVRP(7366) = V(4240) -! JVRP(7367) = dARP(4623)/dV(4240) - JVRP(7367) = 1 -! JVRP(7368) = dARP(4624)/dV(4240) - JVRP(7368) = 1 -! JVRP(7369) = dARP(4625)/dV(4240) - JVRP(7369) = 1 -! JVRP(7370) = dARP(4626)/dV(147) - JVRP(7370) = V(5250) -! JVRP(7371) = dARP(4626)/dV(5250) - JVRP(7371) = V(147) -! JVRP(7372) = dARP(4627)/dV(4302) - JVRP(7372) = V(5251) -! JVRP(7373) = dARP(4627)/dV(5251) - JVRP(7373) = V(4302) -! JVRP(7374) = dARP(4628)/dV(4302) - JVRP(7374) = V(5252) -! JVRP(7375) = dARP(4628)/dV(5252) - JVRP(7375) = V(4302) -! JVRP(7376) = dARP(4629)/dV(4302) - JVRP(7376) = V(5253) -! JVRP(7377) = dARP(4629)/dV(5253) - JVRP(7377) = V(4302) -! JVRP(7378) = dARP(4630)/dV(4302) - JVRP(7378) = V(5254) -! JVRP(7379) = dARP(4630)/dV(5254) - JVRP(7379) = V(4302) -! JVRP(7380) = dARP(4631)/dV(4302) - JVRP(7380) = 1 -! JVRP(7381) = dARP(4632)/dV(1186) - JVRP(7381) = V(5250) -! JVRP(7382) = dARP(4632)/dV(5250) - JVRP(7382) = V(1186) -! JVRP(7383) = dARP(4633)/dV(1186) - JVRP(7383) = 1 -! JVRP(7384) = dARP(4634)/dV(2902) - JVRP(7384) = 1 -! JVRP(7385) = dARP(4635)/dV(1297) - JVRP(7385) = V(5250) -! JVRP(7386) = dARP(4635)/dV(5250) - JVRP(7386) = V(1297) -! JVRP(7387) = dARP(4636)/dV(920) - JVRP(7387) = V(5250) -! JVRP(7388) = dARP(4636)/dV(5250) - JVRP(7388) = V(920) -! JVRP(7389) = dARP(4637)/dV(920) - JVRP(7389) = 1 -! JVRP(7390) = dARP(4638)/dV(2516) - JVRP(7390) = 1 -! JVRP(7391) = dARP(4639)/dV(4186) - JVRP(7391) = V(5256) -! JVRP(7392) = dARP(4639)/dV(5256) - JVRP(7392) = V(4186) -! JVRP(7393) = dARP(4640)/dV(4186) - JVRP(7393) = V(5250) -! JVRP(7394) = dARP(4640)/dV(5250) - JVRP(7394) = V(4186) -! JVRP(7395) = dARP(4641)/dV(4186) - JVRP(7395) = 1 -! JVRP(7396) = dARP(4642)/dV(912) - JVRP(7396) = V(5250) -! JVRP(7397) = dARP(4642)/dV(5250) - JVRP(7397) = V(912) -! JVRP(7398) = dARP(4643)/dV(912) - JVRP(7398) = 1 -! JVRP(7399) = dARP(4644)/dV(2888) - JVRP(7399) = V(5250) -! JVRP(7400) = dARP(4644)/dV(5250) - JVRP(7400) = V(2888) -! JVRP(7401) = dARP(4645)/dV(2888) - JVRP(7401) = 1 -! JVRP(7402) = dARP(4646)/dV(1975) - JVRP(7402) = 1 -! JVRP(7403) = dARP(4647)/dV(104) - JVRP(7403) = V(5250) -! JVRP(7404) = dARP(4647)/dV(5250) - JVRP(7404) = V(104) -! JVRP(7405) = dARP(4648)/dV(2065) - JVRP(7405) = V(5250) -! JVRP(7406) = dARP(4648)/dV(5250) - JVRP(7406) = V(2065) -! JVRP(7407) = dARP(4649)/dV(2065) - JVRP(7407) = 1 -! JVRP(7408) = dARP(4650)/dV(635) - JVRP(7408) = 1 -! JVRP(7409) = dARP(4651)/dV(1915) - JVRP(7409) = V(5250) -! JVRP(7410) = dARP(4651)/dV(5250) - JVRP(7410) = V(1915) -! JVRP(7411) = dARP(4652)/dV(4148) - JVRP(7411) = V(5255) -! JVRP(7412) = dARP(4652)/dV(5255) - JVRP(7412) = V(4148) -! JVRP(7413) = dARP(4653)/dV(4148) - JVRP(7413) = V(5252) -! JVRP(7414) = dARP(4653)/dV(5252) - JVRP(7414) = V(4148) -! JVRP(7415) = dARP(4654)/dV(4148) - JVRP(7415) = V(5256) -! JVRP(7416) = dARP(4654)/dV(5256) - JVRP(7416) = V(4148) -! JVRP(7417) = dARP(4655)/dV(4148) - JVRP(7417) = 1 -! JVRP(7418) = dARP(4656)/dV(4148) - JVRP(7418) = 1 -! JVRP(7419) = dARP(4657)/dV(4148) - JVRP(7419) = 1 -! JVRP(7420) = dARP(4658)/dV(4144) - JVRP(7420) = V(5255) -! JVRP(7421) = dARP(4658)/dV(5255) - JVRP(7421) = V(4144) -! JVRP(7422) = dARP(4659)/dV(4144) - JVRP(7422) = V(5252) -! JVRP(7423) = dARP(4659)/dV(5252) - JVRP(7423) = V(4144) -! JVRP(7424) = dARP(4660)/dV(4144) - JVRP(7424) = V(5256) -! JVRP(7425) = dARP(4660)/dV(5256) - JVRP(7425) = V(4144) -! JVRP(7426) = dARP(4661)/dV(4144) - JVRP(7426) = 1 -! JVRP(7427) = dARP(4662)/dV(4144) - JVRP(7427) = 1 -! JVRP(7428) = dARP(4663)/dV(4144) - JVRP(7428) = 1 -! JVRP(7429) = dARP(4664)/dV(5236) - JVRP(7429) = V(5255) -! JVRP(7430) = dARP(4664)/dV(5255) - JVRP(7430) = V(5236) -! JVRP(7431) = dARP(4665)/dV(5236) - JVRP(7431) = V(5252) -! JVRP(7432) = dARP(4665)/dV(5252) - JVRP(7432) = V(5236) -! JVRP(7433) = dARP(4666)/dV(5236) - JVRP(7433) = V(5252) -! JVRP(7434) = dARP(4666)/dV(5252) - JVRP(7434) = V(5236) -! JVRP(7435) = dARP(4667)/dV(5236) - JVRP(7435) = V(5256) -! JVRP(7436) = dARP(4667)/dV(5256) - JVRP(7436) = V(5236) -! JVRP(7437) = dARP(4668)/dV(5236) - JVRP(7437) = 1 -! JVRP(7438) = dARP(4669)/dV(5236) - JVRP(7438) = 1 -! JVRP(7439) = dARP(4670)/dV(5236) - JVRP(7439) = 1 -! JVRP(7440) = dARP(4671)/dV(4843) - JVRP(7440) = V(5251) -! JVRP(7441) = dARP(4671)/dV(5251) - JVRP(7441) = V(4843) -! JVRP(7442) = dARP(4672)/dV(4843) - JVRP(7442) = V(5252) -! JVRP(7443) = dARP(4672)/dV(5252) - JVRP(7443) = V(4843) -! JVRP(7444) = dARP(4673)/dV(4843) - JVRP(7444) = V(5253) -! JVRP(7445) = dARP(4673)/dV(5253) - JVRP(7445) = V(4843) -! JVRP(7446) = dARP(4674)/dV(4843) - JVRP(7446) = V(5254) -! JVRP(7447) = dARP(4674)/dV(5254) - JVRP(7447) = V(4843) -! JVRP(7448) = dARP(4675)/dV(4843) - JVRP(7448) = 1 -! JVRP(7449) = dARP(4676)/dV(4843) - JVRP(7449) = 1 -! JVRP(7450) = dARP(4677)/dV(2451) - JVRP(7450) = V(5250) -! JVRP(7451) = dARP(4677)/dV(5250) - JVRP(7451) = V(2451) -! JVRP(7452) = dARP(4678)/dV(2451) - JVRP(7452) = 1 -! JVRP(7453) = dARP(4679)/dV(1058) - JVRP(7453) = V(5250) -! JVRP(7454) = dARP(4679)/dV(5250) - JVRP(7454) = V(1058) -! JVRP(7455) = dARP(4680)/dV(748) - JVRP(7455) = 1 -! JVRP(7456) = dARP(4681)/dV(1520) - JVRP(7456) = V(5250) -! JVRP(7457) = dARP(4681)/dV(5250) - JVRP(7457) = V(1520) -! JVRP(7458) = dARP(4682)/dV(1911) - JVRP(7458) = V(5250) -! JVRP(7459) = dARP(4682)/dV(5250) - JVRP(7459) = V(1911) -! JVRP(7460) = dARP(4683)/dV(1911) - JVRP(7460) = 1 -! JVRP(7461) = dARP(4684)/dV(639) - JVRP(7461) = 1 -! JVRP(7462) = dARP(4685)/dV(1581) - JVRP(7462) = V(5250) -! JVRP(7463) = dARP(4685)/dV(5250) - JVRP(7463) = V(1581) -! JVRP(7464) = dARP(4686)/dV(1468) - JVRP(7464) = V(5250) -! JVRP(7465) = dARP(4686)/dV(5250) - JVRP(7465) = V(1468) -! JVRP(7466) = dARP(4687)/dV(1468) - JVRP(7466) = 1 -! JVRP(7467) = dARP(4688)/dV(1905) - JVRP(7467) = V(5250) -! JVRP(7468) = dARP(4688)/dV(5250) - JVRP(7468) = V(1905) -! JVRP(7469) = dARP(4689)/dV(2508) - JVRP(7469) = 1 -! JVRP(7470) = dARP(4690)/dV(540) - JVRP(7470) = V(5250) -! JVRP(7471) = dARP(4690)/dV(5250) - JVRP(7471) = V(540) -! JVRP(7472) = dARP(4691)/dV(2180) - JVRP(7472) = V(5250) -! JVRP(7473) = dARP(4691)/dV(5250) - JVRP(7473) = V(2180) -! JVRP(7474) = dARP(4692)/dV(2180) - JVRP(7474) = 1 -! JVRP(7475) = dARP(4693)/dV(797) - JVRP(7475) = 1 -! JVRP(7476) = dARP(4694)/dV(2184) - JVRP(7476) = V(5250) -! JVRP(7477) = dARP(4694)/dV(5250) - JVRP(7477) = V(2184) -! JVRP(7478) = dARP(4695)/dV(5256) - JVRP(7478) = V(5257) -! JVRP(7479) = dARP(4695)/dV(5257) - JVRP(7479) = V(5256) -! JVRP(7480) = dARP(4696)/dV(5256) - JVRP(7480) = V(5257) -! JVRP(7481) = dARP(4696)/dV(5257) - JVRP(7481) = V(5256) -! JVRP(7482) = dARP(4697)/dV(5257) - JVRP(7482) = V(5258) -! JVRP(7483) = dARP(4697)/dV(5258) - JVRP(7483) = V(5257) -! JVRP(7484) = dARP(4698)/dV(5257) - JVRP(7484) = V(5258) -! JVRP(7485) = dARP(4698)/dV(5258) - JVRP(7485) = V(5257) -! JVRP(7486) = dARP(4699)/dV(5250) - JVRP(7486) = V(5257) -! JVRP(7487) = dARP(4699)/dV(5257) - JVRP(7487) = V(5250) -! JVRP(7488) = dARP(4700)/dV(5250) - JVRP(7488) = V(5257) -! JVRP(7489) = dARP(4700)/dV(5257) - JVRP(7489) = V(5250) -! JVRP(7490) = dARP(4701)/dV(5250) - JVRP(7490) = V(5257) -! JVRP(7491) = dARP(4701)/dV(5257) - JVRP(7491) = V(5250) -! JVRP(7492) = dARP(4702)/dV(5250) - JVRP(7492) = V(5257) -! JVRP(7493) = dARP(4702)/dV(5257) - JVRP(7493) = V(5250) -! JVRP(7494) = dARP(4703)/dV(5250) - JVRP(7494) = V(5257) -! JVRP(7495) = dARP(4703)/dV(5257) - JVRP(7495) = V(5250) -! JVRP(7496) = dARP(4704)/dV(5257) - JVRP(7496) = 1 -! JVRP(7497) = dARP(4705)/dV(3646) - JVRP(7497) = V(5258) -! JVRP(7498) = dARP(4705)/dV(5258) - JVRP(7498) = V(3646) -! JVRP(7499) = dARP(4706)/dV(3646) - JVRP(7499) = V(5258) -! JVRP(7500) = dARP(4706)/dV(5258) - JVRP(7500) = V(3646) -! JVRP(7501) = dARP(4707)/dV(3646) - JVRP(7501) = V(5250) -! JVRP(7502) = dARP(4707)/dV(5250) - JVRP(7502) = V(3646) -! JVRP(7503) = dARP(4708)/dV(4970) - JVRP(7503) = V(5258) -! JVRP(7504) = dARP(4708)/dV(5258) - JVRP(7504) = V(4970) -! JVRP(7505) = dARP(4709)/dV(4970) - JVRP(7505) = V(5258) -! JVRP(7506) = dARP(4709)/dV(5258) - JVRP(7506) = V(4970) -! JVRP(7507) = dARP(4710)/dV(4970) - JVRP(7507) = V(5250) -! JVRP(7508) = dARP(4710)/dV(5250) - JVRP(7508) = V(4970) -! JVRP(7509) = dARP(4711)/dV(4754) - JVRP(7509) = V(5255) -! JVRP(7510) = dARP(4711)/dV(5255) - JVRP(7510) = V(4754) -! JVRP(7511) = dARP(4712)/dV(4754) - JVRP(7511) = V(5252) -! JVRP(7512) = dARP(4712)/dV(5252) - JVRP(7512) = V(4754) -! JVRP(7513) = dARP(4713)/dV(4754) - JVRP(7513) = V(5256) -! JVRP(7514) = dARP(4713)/dV(5256) - JVRP(7514) = V(4754) -! JVRP(7515) = dARP(4714)/dV(4754) - JVRP(7515) = 1 -! JVRP(7516) = dARP(4715)/dV(4754) - JVRP(7516) = 1 -! JVRP(7517) = dARP(4716)/dV(4754) - JVRP(7517) = 1 -! JVRP(7518) = dARP(4717)/dV(4756) - JVRP(7518) = V(5255) -! JVRP(7519) = dARP(4717)/dV(5255) - JVRP(7519) = V(4756) -! JVRP(7520) = dARP(4718)/dV(4756) - JVRP(7520) = V(5252) -! JVRP(7521) = dARP(4718)/dV(5252) - JVRP(7521) = V(4756) -! JVRP(7522) = dARP(4719)/dV(4756) - JVRP(7522) = V(5256) -! JVRP(7523) = dARP(4719)/dV(5256) - JVRP(7523) = V(4756) -! JVRP(7524) = dARP(4720)/dV(4756) - JVRP(7524) = 1 -! JVRP(7525) = dARP(4721)/dV(4756) - JVRP(7525) = 1 -! JVRP(7526) = dARP(4722)/dV(4756) - JVRP(7526) = 1 -! JVRP(7527) = dARP(4723)/dV(3517) - JVRP(7527) = V(5258) -! JVRP(7528) = dARP(4723)/dV(5258) - JVRP(7528) = V(3517) -! JVRP(7529) = dARP(4724)/dV(3517) - JVRP(7529) = V(5258) -! JVRP(7530) = dARP(4724)/dV(5258) - JVRP(7530) = V(3517) -! JVRP(7531) = dARP(4725)/dV(3517) - JVRP(7531) = V(5250) -! JVRP(7532) = dARP(4725)/dV(5250) - JVRP(7532) = V(3517) -! JVRP(7533) = dARP(4726)/dV(5041) - JVRP(7533) = V(5255) -! JVRP(7534) = dARP(4726)/dV(5255) - JVRP(7534) = V(5041) -! JVRP(7535) = dARP(4727)/dV(5041) - JVRP(7535) = V(5252) -! JVRP(7536) = dARP(4727)/dV(5252) - JVRP(7536) = V(5041) -! JVRP(7537) = dARP(4728)/dV(5041) - JVRP(7537) = V(5252) -! JVRP(7538) = dARP(4728)/dV(5252) - JVRP(7538) = V(5041) -! JVRP(7539) = dARP(4729)/dV(5041) - JVRP(7539) = V(5256) -! JVRP(7540) = dARP(4729)/dV(5256) - JVRP(7540) = V(5041) -! JVRP(7541) = dARP(4730)/dV(5041) - JVRP(7541) = 1 -! JVRP(7542) = dARP(4731)/dV(5041) - JVRP(7542) = 1 -! JVRP(7543) = dARP(4732)/dV(5041) - JVRP(7543) = 1 -! JVRP(7544) = dARP(4733)/dV(4746) - JVRP(7544) = V(5255) -! JVRP(7545) = dARP(4733)/dV(5255) - JVRP(7545) = V(4746) -! JVRP(7546) = dARP(4734)/dV(4746) - JVRP(7546) = V(5252) -! JVRP(7547) = dARP(4734)/dV(5252) - JVRP(7547) = V(4746) -! JVRP(7548) = dARP(4735)/dV(4746) - JVRP(7548) = V(5256) -! JVRP(7549) = dARP(4735)/dV(5256) - JVRP(7549) = V(4746) -! JVRP(7550) = dARP(4736)/dV(4746) - JVRP(7550) = 1 -! JVRP(7551) = dARP(4737)/dV(4746) - JVRP(7551) = 1 -! JVRP(7552) = dARP(4738)/dV(4746) - JVRP(7552) = 1 -! JVRP(7553) = dARP(4739)/dV(5206) - JVRP(7553) = V(5255) -! JVRP(7554) = dARP(4739)/dV(5255) - JVRP(7554) = V(5206) -! JVRP(7555) = dARP(4740)/dV(5206) - JVRP(7555) = V(5252) -! JVRP(7556) = dARP(4740)/dV(5252) - JVRP(7556) = V(5206) -! JVRP(7557) = dARP(4741)/dV(5206) - JVRP(7557) = V(5252) -! JVRP(7558) = dARP(4741)/dV(5252) - JVRP(7558) = V(5206) -! JVRP(7559) = dARP(4742)/dV(5206) - JVRP(7559) = V(5256) -! JVRP(7560) = dARP(4742)/dV(5256) - JVRP(7560) = V(5206) -! JVRP(7561) = dARP(4743)/dV(5206) - JVRP(7561) = 1 -! JVRP(7562) = dARP(4744)/dV(5206) - JVRP(7562) = 1 -! JVRP(7563) = dARP(4745)/dV(5206) - JVRP(7563) = 1 -! JVRP(7564) = dARP(4746)/dV(2178) - JVRP(7564) = V(5250) -! JVRP(7565) = dARP(4746)/dV(5250) - JVRP(7565) = V(2178) -! JVRP(7566) = dARP(4747)/dV(2178) - JVRP(7566) = 1 -! JVRP(7567) = dARP(4748)/dV(905) - JVRP(7567) = V(5250) -! JVRP(7568) = dARP(4748)/dV(5250) - JVRP(7568) = V(905) -! JVRP(7569) = dARP(4749)/dV(646) - JVRP(7569) = 1 -! JVRP(7570) = dARP(4750)/dV(1001) - JVRP(7570) = V(5250) -! JVRP(7571) = dARP(4750)/dV(5250) - JVRP(7571) = V(1001) -! JVRP(7572) = dARP(4751)/dV(2160) - JVRP(7572) = V(5250) -! JVRP(7573) = dARP(4751)/dV(5250) - JVRP(7573) = V(2160) -! JVRP(7574) = dARP(4752)/dV(2160) - JVRP(7574) = 1 -! JVRP(7575) = dARP(4753)/dV(624) - JVRP(7575) = 1 -! JVRP(7576) = dARP(4754)/dV(1736) - JVRP(7576) = V(5250) -! JVRP(7577) = dARP(4754)/dV(5250) - JVRP(7577) = V(1736) -! JVRP(7578) = dARP(4755)/dV(881) - JVRP(7578) = V(5250) -! JVRP(7579) = dARP(4755)/dV(5250) - JVRP(7579) = V(881) -! JVRP(7580) = dARP(4756)/dV(881) - JVRP(7580) = 1 -! JVRP(7581) = dARP(4757)/dV(2242) - JVRP(7581) = V(5250) -! JVRP(7582) = dARP(4757)/dV(5250) - JVRP(7582) = V(2242) -! JVRP(7583) = dARP(4758)/dV(2961) - JVRP(7583) = 1 -! JVRP(7584) = dARP(4759)/dV(661) - JVRP(7584) = V(5250) -! JVRP(7585) = dARP(4759)/dV(5250) - JVRP(7585) = V(661) -! JVRP(7586) = dARP(4760)/dV(5237) - JVRP(7586) = V(5255) -! JVRP(7587) = dARP(4760)/dV(5255) - JVRP(7587) = V(5237) -! JVRP(7588) = dARP(4761)/dV(5237) - JVRP(7588) = V(5255) -! JVRP(7589) = dARP(4761)/dV(5255) - JVRP(7589) = V(5237) -! JVRP(7590) = dARP(4762)/dV(5237) - JVRP(7590) = V(5255) -! JVRP(7591) = dARP(4762)/dV(5255) - JVRP(7591) = V(5237) -! JVRP(7592) = dARP(4763)/dV(5237) - JVRP(7592) = V(5252) -! JVRP(7593) = dARP(4763)/dV(5252) - JVRP(7593) = V(5237) -! JVRP(7594) = dARP(4764)/dV(5237) - JVRP(7594) = V(5253) -! JVRP(7595) = dARP(4764)/dV(5253) - JVRP(7595) = V(5237) -! JVRP(7596) = dARP(4765)/dV(5237) - JVRP(7596) = V(5256) -! JVRP(7597) = dARP(4765)/dV(5256) - JVRP(7597) = V(5237) -! JVRP(7598) = dARP(4766)/dV(5237) - JVRP(7598) = 1 -! JVRP(7599) = dARP(4767)/dV(5237) - JVRP(7599) = 1 -! JVRP(7600) = dARP(4768)/dV(4949) - JVRP(7600) = V(5255) -! JVRP(7601) = dARP(4768)/dV(5255) - JVRP(7601) = V(4949) -! JVRP(7602) = dARP(4769)/dV(4949) - JVRP(7602) = V(5255) -! JVRP(7603) = dARP(4769)/dV(5255) - JVRP(7603) = V(4949) -! JVRP(7604) = dARP(4770)/dV(4949) - JVRP(7604) = V(5255) -! JVRP(7605) = dARP(4770)/dV(5255) - JVRP(7605) = V(4949) -! JVRP(7606) = dARP(4771)/dV(4949) - JVRP(7606) = V(5252) -! JVRP(7607) = dARP(4771)/dV(5252) - JVRP(7607) = V(4949) -! JVRP(7608) = dARP(4772)/dV(4949) - JVRP(7608) = V(5253) -! JVRP(7609) = dARP(4772)/dV(5253) - JVRP(7609) = V(4949) -! JVRP(7610) = dARP(4773)/dV(4949) - JVRP(7610) = V(5256) -! JVRP(7611) = dARP(4773)/dV(5256) - JVRP(7611) = V(4949) -! JVRP(7612) = dARP(4774)/dV(4949) - JVRP(7612) = 1 -! JVRP(7613) = dARP(4775)/dV(4949) - JVRP(7613) = 1 -! JVRP(7614) = dARP(4776)/dV(4374) - JVRP(7614) = V(5255) -! JVRP(7615) = dARP(4776)/dV(5255) - JVRP(7615) = V(4374) -! JVRP(7616) = dARP(4777)/dV(4374) - JVRP(7616) = V(5252) -! JVRP(7617) = dARP(4777)/dV(5252) - JVRP(7617) = V(4374) -! JVRP(7618) = dARP(4778)/dV(4374) - JVRP(7618) = V(5252) -! JVRP(7619) = dARP(4778)/dV(5252) - JVRP(7619) = V(4374) -! JVRP(7620) = dARP(4779)/dV(4374) - JVRP(7620) = V(5256) -! JVRP(7621) = dARP(4779)/dV(5256) - JVRP(7621) = V(4374) -! JVRP(7622) = dARP(4780)/dV(4374) - JVRP(7622) = 1 -! JVRP(7623) = dARP(4781)/dV(4374) - JVRP(7623) = 1 -! JVRP(7624) = dARP(4782)/dV(4374) - JVRP(7624) = 1 -! JVRP(7625) = dARP(4783)/dV(5136) - JVRP(7625) = V(5255) -! JVRP(7626) = dARP(4783)/dV(5255) - JVRP(7626) = V(5136) -! JVRP(7627) = dARP(4784)/dV(5136) - JVRP(7627) = V(5255) -! JVRP(7628) = dARP(4784)/dV(5255) - JVRP(7628) = V(5136) -! JVRP(7629) = dARP(4785)/dV(5136) - JVRP(7629) = V(5252) -! JVRP(7630) = dARP(4785)/dV(5252) - JVRP(7630) = V(5136) -! JVRP(7631) = dARP(4786)/dV(5136) - JVRP(7631) = V(5253) -! JVRP(7632) = dARP(4786)/dV(5253) - JVRP(7632) = V(5136) -! JVRP(7633) = dARP(4787)/dV(5136) - JVRP(7633) = V(5256) -! JVRP(7634) = dARP(4787)/dV(5256) - JVRP(7634) = V(5136) -! JVRP(7635) = dARP(4788)/dV(5136) - JVRP(7635) = 1 -! JVRP(7636) = dARP(4789)/dV(438) - JVRP(7636) = V(5250) -! JVRP(7637) = dARP(4789)/dV(5250) - JVRP(7637) = V(438) -! JVRP(7638) = dARP(4790)/dV(1516) - JVRP(7638) = 1 -! JVRP(7639) = dARP(4791)/dV(1516) - JVRP(7639) = V(5250) -! JVRP(7640) = dARP(4791)/dV(5250) - JVRP(7640) = V(1516) -! JVRP(7641) = dARP(4792)/dV(2882) - JVRP(7641) = 1 -! JVRP(7642) = dARP(4793)/dV(2882) - JVRP(7642) = V(5250) -! JVRP(7643) = dARP(4793)/dV(5250) - JVRP(7643) = V(2882) -! JVRP(7644) = dARP(4794)/dV(384) - JVRP(7644) = V(5250) -! JVRP(7645) = dARP(4794)/dV(5250) - JVRP(7645) = V(384) -! JVRP(7646) = dARP(4795)/dV(1106) - JVRP(7646) = V(5250) -! JVRP(7647) = dARP(4795)/dV(5250) - JVRP(7647) = V(1106) -! JVRP(7648) = dARP(4796)/dV(1106) - JVRP(7648) = 1 -! JVRP(7649) = dARP(4797)/dV(2743) - JVRP(7649) = V(5250) -! JVRP(7650) = dARP(4797)/dV(5250) - JVRP(7650) = V(2743) -! JVRP(7651) = dARP(4798)/dV(2743) - JVRP(7651) = 1 -! JVRP(7652) = dARP(4799)/dV(918) - JVRP(7652) = V(5250) -! JVRP(7653) = dARP(4799)/dV(5250) - JVRP(7653) = V(918) -! JVRP(7654) = dARP(4800)/dV(918) - JVRP(7654) = 1 -! JVRP(7655) = dARP(4801)/dV(3533) - JVRP(7655) = V(5250) -! JVRP(7656) = dARP(4801)/dV(5250) - JVRP(7656) = V(3533) -! JVRP(7657) = dARP(4802)/dV(3533) - JVRP(7657) = 1 -! JVRP(7658) = dARP(4803)/dV(3533) - JVRP(7658) = 1 -! JVRP(7659) = dARP(4804)/dV(2399) - JVRP(7659) = 1 -! JVRP(7660) = dARP(4805)/dV(4931) - JVRP(7660) = V(5256) -! JVRP(7661) = dARP(4805)/dV(5256) - JVRP(7661) = V(4931) -! JVRP(7662) = dARP(4806)/dV(4931) - JVRP(7662) = V(5250) -! JVRP(7663) = dARP(4806)/dV(5250) - JVRP(7663) = V(4931) -! JVRP(7664) = dARP(4807)/dV(4931) - JVRP(7664) = 1 -! JVRP(7665) = dARP(4808)/dV(4785) - JVRP(7665) = V(5255) -! JVRP(7666) = dARP(4808)/dV(5255) - JVRP(7666) = V(4785) -! JVRP(7667) = dARP(4809)/dV(4785) - JVRP(7667) = V(5252) -! JVRP(7668) = dARP(4809)/dV(5252) - JVRP(7668) = V(4785) -! JVRP(7669) = dARP(4810)/dV(4785) - JVRP(7669) = V(5252) -! JVRP(7670) = dARP(4810)/dV(5252) - JVRP(7670) = V(4785) -! JVRP(7671) = dARP(4811)/dV(4785) - JVRP(7671) = V(5256) -! JVRP(7672) = dARP(4811)/dV(5256) - JVRP(7672) = V(4785) -! JVRP(7673) = dARP(4812)/dV(4785) - JVRP(7673) = 1 -! JVRP(7674) = dARP(4813)/dV(4785) - JVRP(7674) = 1 -! JVRP(7675) = dARP(4814)/dV(4785) - JVRP(7675) = 1 -! JVRP(7676) = dARP(4815)/dV(5101) - JVRP(7676) = V(5255) -! JVRP(7677) = dARP(4815)/dV(5255) - JVRP(7677) = V(5101) -! JVRP(7678) = dARP(4816)/dV(5101) - JVRP(7678) = V(5255) -! JVRP(7679) = dARP(4816)/dV(5255) - JVRP(7679) = V(5101) -! JVRP(7680) = dARP(4817)/dV(5101) - JVRP(7680) = V(5252) -! JVRP(7681) = dARP(4817)/dV(5252) - JVRP(7681) = V(5101) -! JVRP(7682) = dARP(4818)/dV(5101) - JVRP(7682) = V(5253) -! JVRP(7683) = dARP(4818)/dV(5253) - JVRP(7683) = V(5101) -! JVRP(7684) = dARP(4819)/dV(5101) - JVRP(7684) = V(5256) -! JVRP(7685) = dARP(4819)/dV(5256) - JVRP(7685) = V(5101) -! JVRP(7686) = dARP(4820)/dV(5101) - JVRP(7686) = 1 -! JVRP(7687) = dARP(4821)/dV(4206) - JVRP(7687) = V(5255) -! JVRP(7688) = dARP(4821)/dV(5255) - JVRP(7688) = V(4206) -! JVRP(7689) = dARP(4822)/dV(4206) - JVRP(7689) = V(5255) -! JVRP(7690) = dARP(4822)/dV(5255) - JVRP(7690) = V(4206) -! JVRP(7691) = dARP(4823)/dV(4206) - JVRP(7691) = V(5252) -! JVRP(7692) = dARP(4823)/dV(5252) - JVRP(7692) = V(4206) -! JVRP(7693) = dARP(4824)/dV(4206) - JVRP(7693) = V(5253) -! JVRP(7694) = dARP(4824)/dV(5253) - JVRP(7694) = V(4206) -! JVRP(7695) = dARP(4825)/dV(4206) - JVRP(7695) = V(5256) -! JVRP(7696) = dARP(4825)/dV(5256) - JVRP(7696) = V(4206) -! JVRP(7697) = dARP(4826)/dV(4206) - JVRP(7697) = 1 -! JVRP(7698) = dARP(4827)/dV(4359) - JVRP(7698) = V(5255) -! JVRP(7699) = dARP(4827)/dV(5255) - JVRP(7699) = V(4359) -! JVRP(7700) = dARP(4828)/dV(4359) - JVRP(7700) = V(5252) -! JVRP(7701) = dARP(4828)/dV(5252) - JVRP(7701) = V(4359) -! JVRP(7702) = dARP(4829)/dV(4359) - JVRP(7702) = V(5252) -! JVRP(7703) = dARP(4829)/dV(5252) - JVRP(7703) = V(4359) -! JVRP(7704) = dARP(4830)/dV(4359) - JVRP(7704) = V(5256) -! JVRP(7705) = dARP(4830)/dV(5256) - JVRP(7705) = V(4359) -! JVRP(7706) = dARP(4831)/dV(4359) - JVRP(7706) = 1 -! JVRP(7707) = dARP(4832)/dV(4359) - JVRP(7707) = 1 -! JVRP(7708) = dARP(4833)/dV(4359) - JVRP(7708) = 1 -! JVRP(7709) = dARP(4834)/dV(5008) - JVRP(7709) = V(5255) -! JVRP(7710) = dARP(4834)/dV(5255) - JVRP(7710) = V(5008) -! JVRP(7711) = dARP(4835)/dV(5008) - JVRP(7711) = V(5255) -! JVRP(7712) = dARP(4835)/dV(5255) - JVRP(7712) = V(5008) -! JVRP(7713) = dARP(4836)/dV(5008) - JVRP(7713) = V(5255) -! JVRP(7714) = dARP(4836)/dV(5255) - JVRP(7714) = V(5008) -! JVRP(7715) = dARP(4837)/dV(5008) - JVRP(7715) = V(5252) -! JVRP(7716) = dARP(4837)/dV(5252) - JVRP(7716) = V(5008) -! JVRP(7717) = dARP(4838)/dV(5008) - JVRP(7717) = V(5253) -! JVRP(7718) = dARP(4838)/dV(5253) - JVRP(7718) = V(5008) -! JVRP(7719) = dARP(4839)/dV(5008) - JVRP(7719) = V(5256) -! JVRP(7720) = dARP(4839)/dV(5256) - JVRP(7720) = V(5008) -! JVRP(7721) = dARP(4840)/dV(5008) - JVRP(7721) = 1 -! JVRP(7722) = dARP(4841)/dV(5008) - JVRP(7722) = 1 -! JVRP(7723) = dARP(4842)/dV(4882) - JVRP(7723) = V(5256) -! JVRP(7724) = dARP(4842)/dV(5256) - JVRP(7724) = V(4882) -! JVRP(7725) = dARP(4843)/dV(4882) - JVRP(7725) = V(5250) -! JVRP(7726) = dARP(4843)/dV(5250) - JVRP(7726) = V(4882) -! JVRP(7727) = dARP(4844)/dV(4882) - JVRP(7727) = V(5250) -! JVRP(7728) = dARP(4844)/dV(5250) - JVRP(7728) = V(4882) -! JVRP(7729) = dARP(4845)/dV(4882) - JVRP(7729) = 1 -! JVRP(7730) = dARP(4846)/dV(591) - JVRP(7730) = V(5250) -! JVRP(7731) = dARP(4846)/dV(5250) - JVRP(7731) = V(591) -! JVRP(7732) = dARP(4847)/dV(591) - JVRP(7732) = 1 -! JVRP(7733) = dARP(4848)/dV(2272) - JVRP(7733) = V(5250) -! JVRP(7734) = dARP(4848)/dV(5250) - JVRP(7734) = V(2272) -! JVRP(7735) = dARP(4849)/dV(3979) - JVRP(7735) = V(5255) -! JVRP(7736) = dARP(4849)/dV(5255) - JVRP(7736) = V(3979) -! JVRP(7737) = dARP(4850)/dV(3979) - JVRP(7737) = V(5252) -! JVRP(7738) = dARP(4850)/dV(5252) - JVRP(7738) = V(3979) -! JVRP(7739) = dARP(4851)/dV(3979) - JVRP(7739) = V(5256) -! JVRP(7740) = dARP(4851)/dV(5256) - JVRP(7740) = V(3979) -! JVRP(7741) = dARP(4852)/dV(3979) - JVRP(7741) = 1 -! JVRP(7742) = dARP(4853)/dV(3284) - JVRP(7742) = 1 -! JVRP(7743) = dARP(4854)/dV(3255) - JVRP(7743) = 1 -! JVRP(7744) = dARP(4855)/dV(1764) - JVRP(7744) = V(5250) -! JVRP(7745) = dARP(4855)/dV(5250) - JVRP(7745) = V(1764) -! JVRP(7746) = dARP(4856)/dV(2412) - JVRP(7746) = V(5250) -! JVRP(7747) = dARP(4856)/dV(5250) - JVRP(7747) = V(2412) -! JVRP(7748) = dARP(4857)/dV(2412) - JVRP(7748) = 1 -! JVRP(7749) = dARP(4858)/dV(3047) - JVRP(7749) = V(5250) -! JVRP(7750) = dARP(4858)/dV(5250) - JVRP(7750) = V(3047) -! JVRP(7751) = dARP(4859)/dV(3047) - JVRP(7751) = 1 -! JVRP(7752) = dARP(4860)/dV(2219) - JVRP(7752) = V(5250) -! JVRP(7753) = dARP(4860)/dV(5250) - JVRP(7753) = V(2219) -! JVRP(7754) = dARP(4861)/dV(2219) - JVRP(7754) = 1 -! JVRP(7755) = dARP(4862)/dV(2945) - JVRP(7755) = V(5250) -! JVRP(7756) = dARP(4862)/dV(5250) - JVRP(7756) = V(2945) -! JVRP(7757) = dARP(4863)/dV(2945) - JVRP(7757) = 1 -! JVRP(7758) = dARP(4864)/dV(2473) - JVRP(7758) = 1 -! JVRP(7759) = dARP(4865)/dV(4316) - JVRP(7759) = V(5255) -! JVRP(7760) = dARP(4865)/dV(5255) - JVRP(7760) = V(4316) -! JVRP(7761) = dARP(4866)/dV(4316) - JVRP(7761) = V(5255) -! JVRP(7762) = dARP(4866)/dV(5255) - JVRP(7762) = V(4316) -! JVRP(7763) = dARP(4867)/dV(4316) - JVRP(7763) = V(5252) -! JVRP(7764) = dARP(4867)/dV(5252) - JVRP(7764) = V(4316) -! JVRP(7765) = dARP(4868)/dV(4316) - JVRP(7765) = V(5253) -! JVRP(7766) = dARP(4868)/dV(5253) - JVRP(7766) = V(4316) -! JVRP(7767) = dARP(4869)/dV(4316) - JVRP(7767) = V(5256) -! JVRP(7768) = dARP(4869)/dV(5256) - JVRP(7768) = V(4316) -! JVRP(7769) = dARP(4870)/dV(4316) - JVRP(7769) = 1 -! JVRP(7770) = dARP(4871)/dV(2364) - JVRP(7770) = V(5250) -! JVRP(7771) = dARP(4871)/dV(5250) - JVRP(7771) = V(2364) -! JVRP(7772) = dARP(4872)/dV(2211) - JVRP(7772) = 1 -! JVRP(7773) = dARP(4873)/dV(2211) - JVRP(7773) = V(5250) -! JVRP(7774) = dARP(4873)/dV(5250) - JVRP(7774) = V(2211) -! JVRP(7775) = dARP(4874)/dV(2792) - JVRP(7775) = 1 -! JVRP(7776) = dARP(4875)/dV(2792) - JVRP(7776) = V(5250) -! JVRP(7777) = dARP(4875)/dV(5250) - JVRP(7777) = V(2792) -! JVRP(7778) = dARP(4876)/dV(579) - JVRP(7778) = V(5250) -! JVRP(7779) = dARP(4876)/dV(5250) - JVRP(7779) = V(579) -! JVRP(7780) = dARP(4877)/dV(579) - JVRP(7780) = 1 -! JVRP(7781) = dARP(4878)/dV(4553) - JVRP(7781) = V(5255) -! JVRP(7782) = dARP(4878)/dV(5255) - JVRP(7782) = V(4553) -! JVRP(7783) = dARP(4879)/dV(4553) - JVRP(7783) = V(5255) -! JVRP(7784) = dARP(4879)/dV(5255) - JVRP(7784) = V(4553) -! JVRP(7785) = dARP(4880)/dV(4553) - JVRP(7785) = V(5252) -! JVRP(7786) = dARP(4880)/dV(5252) - JVRP(7786) = V(4553) -! JVRP(7787) = dARP(4881)/dV(4553) - JVRP(7787) = V(5253) -! JVRP(7788) = dARP(4881)/dV(5253) - JVRP(7788) = V(4553) -! JVRP(7789) = dARP(4882)/dV(4553) - JVRP(7789) = V(5256) -! JVRP(7790) = dARP(4882)/dV(5256) - JVRP(7790) = V(4553) -! JVRP(7791) = dARP(4883)/dV(4553) - JVRP(7791) = 1 -! JVRP(7792) = dARP(4884)/dV(5158) - JVRP(7792) = V(5255) -! JVRP(7793) = dARP(4884)/dV(5255) - JVRP(7793) = V(5158) -! JVRP(7794) = dARP(4885)/dV(5158) - JVRP(7794) = V(5255) -! JVRP(7795) = dARP(4885)/dV(5255) - JVRP(7795) = V(5158) -! JVRP(7796) = dARP(4886)/dV(5158) - JVRP(7796) = V(5252) -! JVRP(7797) = dARP(4886)/dV(5252) - JVRP(7797) = V(5158) -! JVRP(7798) = dARP(4887)/dV(5158) - JVRP(7798) = V(5253) -! JVRP(7799) = dARP(4887)/dV(5253) - JVRP(7799) = V(5158) -! JVRP(7800) = dARP(4888)/dV(5158) - JVRP(7800) = V(5256) -! JVRP(7801) = dARP(4888)/dV(5256) - JVRP(7801) = V(5158) -! JVRP(7802) = dARP(4889)/dV(5158) - JVRP(7802) = 1 -! JVRP(7803) = dARP(4890)/dV(5164) - JVRP(7803) = V(5255) -! JVRP(7804) = dARP(4890)/dV(5255) - JVRP(7804) = V(5164) -! JVRP(7805) = dARP(4891)/dV(5164) - JVRP(7805) = V(5255) -! JVRP(7806) = dARP(4891)/dV(5255) - JVRP(7806) = V(5164) -! JVRP(7807) = dARP(4892)/dV(5164) - JVRP(7807) = V(5255) -! JVRP(7808) = dARP(4892)/dV(5255) - JVRP(7808) = V(5164) -! JVRP(7809) = dARP(4893)/dV(5164) - JVRP(7809) = V(5252) -! JVRP(7810) = dARP(4893)/dV(5252) - JVRP(7810) = V(5164) -! JVRP(7811) = dARP(4894)/dV(5164) - JVRP(7811) = V(5253) -! JVRP(7812) = dARP(4894)/dV(5253) - JVRP(7812) = V(5164) -! JVRP(7813) = dARP(4895)/dV(5164) - JVRP(7813) = V(5256) -! JVRP(7814) = dARP(4895)/dV(5256) - JVRP(7814) = V(5164) -! JVRP(7815) = dARP(4896)/dV(5164) - JVRP(7815) = 1 -! JVRP(7816) = dARP(4897)/dV(5164) - JVRP(7816) = 1 -! JVRP(7817) = dARP(4898)/dV(4915) - JVRP(7817) = V(5255) -! JVRP(7818) = dARP(4898)/dV(5255) - JVRP(7818) = V(4915) -! JVRP(7819) = dARP(4899)/dV(4915) - JVRP(7819) = V(5255) -! JVRP(7820) = dARP(4899)/dV(5255) - JVRP(7820) = V(4915) -! JVRP(7821) = dARP(4900)/dV(4915) - JVRP(7821) = V(5255) -! JVRP(7822) = dARP(4900)/dV(5255) - JVRP(7822) = V(4915) -! JVRP(7823) = dARP(4901)/dV(4915) - JVRP(7823) = V(5252) -! JVRP(7824) = dARP(4901)/dV(5252) - JVRP(7824) = V(4915) -! JVRP(7825) = dARP(4902)/dV(4915) - JVRP(7825) = V(5253) -! JVRP(7826) = dARP(4902)/dV(5253) - JVRP(7826) = V(4915) -! JVRP(7827) = dARP(4903)/dV(4915) - JVRP(7827) = V(5256) -! JVRP(7828) = dARP(4903)/dV(5256) - JVRP(7828) = V(4915) -! JVRP(7829) = dARP(4904)/dV(4915) - JVRP(7829) = 1 -! JVRP(7830) = dARP(4905)/dV(4915) - JVRP(7830) = 1 -! JVRP(7831) = dARP(4906)/dV(4640) - JVRP(7831) = V(5255) -! JVRP(7832) = dARP(4906)/dV(5255) - JVRP(7832) = V(4640) -! JVRP(7833) = dARP(4907)/dV(4640) - JVRP(7833) = V(5252) -! JVRP(7834) = dARP(4907)/dV(5252) - JVRP(7834) = V(4640) -! JVRP(7835) = dARP(4908)/dV(4640) - JVRP(7835) = V(5256) -! JVRP(7836) = dARP(4908)/dV(5256) - JVRP(7836) = V(4640) -! JVRP(7837) = dARP(4909)/dV(4640) - JVRP(7837) = 1 -! JVRP(7838) = dARP(4910)/dV(4640) - JVRP(7838) = 1 -! JVRP(7839) = dARP(4911)/dV(4640) - JVRP(7839) = 1 -! JVRP(7840) = dARP(4912)/dV(5137) - JVRP(7840) = V(5255) -! JVRP(7841) = dARP(4912)/dV(5255) - JVRP(7841) = V(5137) -! JVRP(7842) = dARP(4913)/dV(5137) - JVRP(7842) = V(5255) -! JVRP(7843) = dARP(4913)/dV(5255) - JVRP(7843) = V(5137) -! JVRP(7844) = dARP(4914)/dV(5137) - JVRP(7844) = V(5255) -! JVRP(7845) = dARP(4914)/dV(5255) - JVRP(7845) = V(5137) -! JVRP(7846) = dARP(4915)/dV(5137) - JVRP(7846) = V(5252) -! JVRP(7847) = dARP(4915)/dV(5252) - JVRP(7847) = V(5137) -! JVRP(7848) = dARP(4916)/dV(5137) - JVRP(7848) = V(5253) -! JVRP(7849) = dARP(4916)/dV(5253) - JVRP(7849) = V(5137) -! JVRP(7850) = dARP(4917)/dV(5137) - JVRP(7850) = V(5256) -! JVRP(7851) = dARP(4917)/dV(5256) - JVRP(7851) = V(5137) -! JVRP(7852) = dARP(4918)/dV(5137) - JVRP(7852) = 1 -! JVRP(7853) = dARP(4919)/dV(5137) - JVRP(7853) = 1 -! JVRP(7854) = dARP(4920)/dV(3758) - JVRP(7854) = V(5255) -! JVRP(7855) = dARP(4920)/dV(5255) - JVRP(7855) = V(3758) -! JVRP(7856) = dARP(4921)/dV(3758) - JVRP(7856) = V(5252) -! JVRP(7857) = dARP(4921)/dV(5252) - JVRP(7857) = V(3758) -! JVRP(7858) = dARP(4922)/dV(3758) - JVRP(7858) = V(5252) -! JVRP(7859) = dARP(4922)/dV(5252) - JVRP(7859) = V(3758) -! JVRP(7860) = dARP(4923)/dV(3758) - JVRP(7860) = V(5256) -! JVRP(7861) = dARP(4923)/dV(5256) - JVRP(7861) = V(3758) -! JVRP(7862) = dARP(4924)/dV(3758) - JVRP(7862) = 1 -! JVRP(7863) = dARP(4925)/dV(3758) - JVRP(7863) = 1 -! JVRP(7864) = dARP(4926)/dV(3758) - JVRP(7864) = 1 -! JVRP(7865) = dARP(4927)/dV(4862) - JVRP(7865) = V(5255) -! JVRP(7866) = dARP(4927)/dV(5255) - JVRP(7866) = V(4862) -! JVRP(7867) = dARP(4928)/dV(4862) - JVRP(7867) = V(5255) -! JVRP(7868) = dARP(4928)/dV(5255) - JVRP(7868) = V(4862) -! JVRP(7869) = dARP(4929)/dV(4862) - JVRP(7869) = V(5255) -! JVRP(7870) = dARP(4929)/dV(5255) - JVRP(7870) = V(4862) -! JVRP(7871) = dARP(4930)/dV(4862) - JVRP(7871) = V(5252) -! JVRP(7872) = dARP(4930)/dV(5252) - JVRP(7872) = V(4862) -! JVRP(7873) = dARP(4931)/dV(4862) - JVRP(7873) = V(5253) -! JVRP(7874) = dARP(4931)/dV(5253) - JVRP(7874) = V(4862) -! JVRP(7875) = dARP(4932)/dV(4862) - JVRP(7875) = V(5256) -! JVRP(7876) = dARP(4932)/dV(5256) - JVRP(7876) = V(4862) -! JVRP(7877) = dARP(4933)/dV(4862) - JVRP(7877) = 1 -! JVRP(7878) = dARP(4934)/dV(4862) - JVRP(7878) = 1 -! JVRP(7879) = dARP(4935)/dV(5038) - JVRP(7879) = V(5255) -! JVRP(7880) = dARP(4935)/dV(5255) - JVRP(7880) = V(5038) -! JVRP(7881) = dARP(4936)/dV(5038) - JVRP(7881) = V(5255) -! JVRP(7882) = dARP(4936)/dV(5255) - JVRP(7882) = V(5038) -! JVRP(7883) = dARP(4937)/dV(5038) - JVRP(7883) = V(5252) -! JVRP(7884) = dARP(4937)/dV(5252) - JVRP(7884) = V(5038) -! JVRP(7885) = dARP(4938)/dV(5038) - JVRP(7885) = V(5253) -! JVRP(7886) = dARP(4938)/dV(5253) - JVRP(7886) = V(5038) -! JVRP(7887) = dARP(4939)/dV(5038) - JVRP(7887) = V(5256) -! JVRP(7888) = dARP(4939)/dV(5256) - JVRP(7888) = V(5038) -! JVRP(7889) = dARP(4940)/dV(5038) - JVRP(7889) = 1 -! JVRP(7890) = dARP(4941)/dV(4530) - JVRP(7890) = 1 -! JVRP(7891) = dARP(4942)/dV(4530) - JVRP(7891) = 1 -! JVRP(7892) = dARP(4943)/dV(4530) - JVRP(7892) = V(5256) -! JVRP(7893) = dARP(4943)/dV(5256) - JVRP(7893) = V(4530) -! JVRP(7894) = dARP(4944)/dV(4530) - JVRP(7894) = V(5250) -! JVRP(7895) = dARP(4944)/dV(5250) - JVRP(7895) = V(4530) -! JVRP(7896) = dARP(4945)/dV(5216) - JVRP(7896) = V(5255) -! JVRP(7897) = dARP(4945)/dV(5255) - JVRP(7897) = V(5216) -! JVRP(7898) = dARP(4946)/dV(5216) - JVRP(7898) = V(5255) -! JVRP(7899) = dARP(4946)/dV(5255) - JVRP(7899) = V(5216) -! JVRP(7900) = dARP(4947)/dV(5216) - JVRP(7900) = V(5255) -! JVRP(7901) = dARP(4947)/dV(5255) - JVRP(7901) = V(5216) -! JVRP(7902) = dARP(4948)/dV(5216) - JVRP(7902) = V(5252) -! JVRP(7903) = dARP(4948)/dV(5252) - JVRP(7903) = V(5216) -! JVRP(7904) = dARP(4949)/dV(5216) - JVRP(7904) = V(5253) -! JVRP(7905) = dARP(4949)/dV(5253) - JVRP(7905) = V(5216) -! JVRP(7906) = dARP(4950)/dV(5216) - JVRP(7906) = V(5256) -! JVRP(7907) = dARP(4950)/dV(5256) - JVRP(7907) = V(5216) -! JVRP(7908) = dARP(4951)/dV(5216) - JVRP(7908) = 1 -! JVRP(7909) = dARP(4952)/dV(5216) - JVRP(7909) = 1 -! JVRP(7910) = dARP(4953)/dV(4796) - JVRP(7910) = 1 -! JVRP(7911) = dARP(4954)/dV(4796) - JVRP(7911) = V(5250) -! JVRP(7912) = dARP(4954)/dV(5250) - JVRP(7912) = V(4796) -! JVRP(7913) = dARP(4955)/dV(1269) - JVRP(7913) = V(5250) -! JVRP(7914) = dARP(4955)/dV(5250) - JVRP(7914) = V(1269) -! JVRP(7915) = dARP(4956)/dV(12) - JVRP(7915) = V(5250) -! JVRP(7916) = dARP(4956)/dV(5250) - JVRP(7916) = V(12) -! JVRP(7917) = dARP(4957)/dV(4406) - JVRP(7917) = V(5250) -! JVRP(7918) = dARP(4957)/dV(5250) - JVRP(7918) = V(4406) -! JVRP(7919) = dARP(4958)/dV(4406) - JVRP(7919) = 1 -! JVRP(7920) = dARP(4959)/dV(5155) - JVRP(7920) = V(5255) -! JVRP(7921) = dARP(4959)/dV(5255) - JVRP(7921) = V(5155) -! JVRP(7922) = dARP(4960)/dV(5155) - JVRP(7922) = V(5255) -! JVRP(7923) = dARP(4960)/dV(5255) - JVRP(7923) = V(5155) -! JVRP(7924) = dARP(4961)/dV(5155) - JVRP(7924) = V(5255) -! JVRP(7925) = dARP(4961)/dV(5255) - JVRP(7925) = V(5155) -! JVRP(7926) = dARP(4962)/dV(5155) - JVRP(7926) = V(5252) -! JVRP(7927) = dARP(4962)/dV(5252) - JVRP(7927) = V(5155) -! JVRP(7928) = dARP(4963)/dV(5155) - JVRP(7928) = V(5253) -! JVRP(7929) = dARP(4963)/dV(5253) - JVRP(7929) = V(5155) -! JVRP(7930) = dARP(4964)/dV(5155) - JVRP(7930) = V(5256) -! JVRP(7931) = dARP(4964)/dV(5256) - JVRP(7931) = V(5155) -! JVRP(7932) = dARP(4965)/dV(5155) - JVRP(7932) = 1 -! JVRP(7933) = dARP(4966)/dV(5155) - JVRP(7933) = 1 -! JVRP(7934) = dARP(4967)/dV(5036) - JVRP(7934) = V(5255) -! JVRP(7935) = dARP(4967)/dV(5255) - JVRP(7935) = V(5036) -! JVRP(7936) = dARP(4968)/dV(5036) - JVRP(7936) = V(5255) -! JVRP(7937) = dARP(4968)/dV(5255) - JVRP(7937) = V(5036) -! JVRP(7938) = dARP(4969)/dV(5036) - JVRP(7938) = V(5255) -! JVRP(7939) = dARP(4969)/dV(5255) - JVRP(7939) = V(5036) -! JVRP(7940) = dARP(4970)/dV(5036) - JVRP(7940) = V(5252) -! JVRP(7941) = dARP(4970)/dV(5252) - JVRP(7941) = V(5036) -! JVRP(7942) = dARP(4971)/dV(5036) - JVRP(7942) = V(5253) -! JVRP(7943) = dARP(4971)/dV(5253) - JVRP(7943) = V(5036) -! JVRP(7944) = dARP(4972)/dV(5036) - JVRP(7944) = V(5256) -! JVRP(7945) = dARP(4972)/dV(5256) - JVRP(7945) = V(5036) -! JVRP(7946) = dARP(4973)/dV(5036) - JVRP(7946) = 1 -! JVRP(7947) = dARP(4974)/dV(5036) - JVRP(7947) = 1 -! JVRP(7948) = dARP(4975)/dV(4557) - JVRP(7948) = V(5255) -! JVRP(7949) = dARP(4975)/dV(5255) - JVRP(7949) = V(4557) -! JVRP(7950) = dARP(4976)/dV(4557) - JVRP(7950) = V(5255) -! JVRP(7951) = dARP(4976)/dV(5255) - JVRP(7951) = V(4557) -! JVRP(7952) = dARP(4977)/dV(4557) - JVRP(7952) = V(5252) -! JVRP(7953) = dARP(4977)/dV(5252) - JVRP(7953) = V(4557) -! JVRP(7954) = dARP(4978)/dV(4557) - JVRP(7954) = V(5253) -! JVRP(7955) = dARP(4978)/dV(5253) - JVRP(7955) = V(4557) -! JVRP(7956) = dARP(4979)/dV(4557) - JVRP(7956) = V(5256) -! JVRP(7957) = dARP(4979)/dV(5256) - JVRP(7957) = V(4557) -! JVRP(7958) = dARP(4980)/dV(4557) - JVRP(7958) = 1 -! JVRP(7959) = dARP(4981)/dV(3566) - JVRP(7959) = 1 -! JVRP(7960) = dARP(4982)/dV(3566) - JVRP(7960) = 1 -! JVRP(7961) = dARP(4983)/dV(5100) - JVRP(7961) = V(5255) -! JVRP(7962) = dARP(4983)/dV(5255) - JVRP(7962) = V(5100) -! JVRP(7963) = dARP(4984)/dV(5100) - JVRP(7963) = V(5255) -! JVRP(7964) = dARP(4984)/dV(5255) - JVRP(7964) = V(5100) -! JVRP(7965) = dARP(4985)/dV(5100) - JVRP(7965) = V(5252) -! JVRP(7966) = dARP(4985)/dV(5252) - JVRP(7966) = V(5100) -! JVRP(7967) = dARP(4986)/dV(5100) - JVRP(7967) = V(5253) -! JVRP(7968) = dARP(4986)/dV(5253) - JVRP(7968) = V(5100) -! JVRP(7969) = dARP(4987)/dV(5100) - JVRP(7969) = V(5256) -! JVRP(7970) = dARP(4987)/dV(5256) - JVRP(7970) = V(5100) -! JVRP(7971) = dARP(4988)/dV(5100) - JVRP(7971) = 1 -! JVRP(7972) = dARP(4989)/dV(3932) - JVRP(7972) = V(5255) -! JVRP(7973) = dARP(4989)/dV(5255) - JVRP(7973) = V(3932) -! JVRP(7974) = dARP(4990)/dV(3932) - JVRP(7974) = V(5252) -! JVRP(7975) = dARP(4990)/dV(5252) - JVRP(7975) = V(3932) -! JVRP(7976) = dARP(4991)/dV(3932) - JVRP(7976) = V(5252) -! JVRP(7977) = dARP(4991)/dV(5252) - JVRP(7977) = V(3932) -! JVRP(7978) = dARP(4992)/dV(3932) - JVRP(7978) = V(5256) -! JVRP(7979) = dARP(4992)/dV(5256) - JVRP(7979) = V(3932) -! JVRP(7980) = dARP(4993)/dV(3932) - JVRP(7980) = 1 -! JVRP(7981) = dARP(4994)/dV(3932) - JVRP(7981) = 1 -! JVRP(7982) = dARP(4995)/dV(3932) - JVRP(7982) = 1 -! JVRP(7983) = dARP(4996)/dV(3893) - JVRP(7983) = V(5255) -! JVRP(7984) = dARP(4996)/dV(5255) - JVRP(7984) = V(3893) -! JVRP(7985) = dARP(4997)/dV(3893) - JVRP(7985) = V(5252) -! JVRP(7986) = dARP(4997)/dV(5252) - JVRP(7986) = V(3893) -! JVRP(7987) = dARP(4998)/dV(3893) - JVRP(7987) = V(5252) -! JVRP(7988) = dARP(4998)/dV(5252) - JVRP(7988) = V(3893) -! JVRP(7989) = dARP(4999)/dV(3893) - JVRP(7989) = V(5256) -! JVRP(7990) = dARP(4999)/dV(5256) - JVRP(7990) = V(3893) -! JVRP(7991) = dARP(5000)/dV(3893) - JVRP(7991) = 1 -! JVRP(7992) = dARP(5001)/dV(3893) - JVRP(7992) = 1 -! JVRP(7993) = dARP(5002)/dV(3893) - JVRP(7993) = 1 -! JVRP(7994) = dARP(5003)/dV(3885) - JVRP(7994) = V(5255) -! JVRP(7995) = dARP(5003)/dV(5255) - JVRP(7995) = V(3885) -! JVRP(7996) = dARP(5004)/dV(3885) - JVRP(7996) = V(5252) -! JVRP(7997) = dARP(5004)/dV(5252) - JVRP(7997) = V(3885) -! JVRP(7998) = dARP(5005)/dV(3885) - JVRP(7998) = V(5252) -! JVRP(7999) = dARP(5005)/dV(5252) - JVRP(7999) = V(3885) -! JVRP(8000) = dARP(5006)/dV(3885) - JVRP(8000) = V(5256) -! JVRP(8001) = dARP(5006)/dV(5256) - JVRP(8001) = V(3885) -! JVRP(8002) = dARP(5007)/dV(3885) - JVRP(8002) = 1 -! JVRP(8003) = dARP(5008)/dV(3885) - JVRP(8003) = 1 -! JVRP(8004) = dARP(5009)/dV(3885) - JVRP(8004) = 1 -! JVRP(8005) = dARP(5010)/dV(4860) - JVRP(8005) = V(5255) -! JVRP(8006) = dARP(5010)/dV(5255) - JVRP(8006) = V(4860) -! JVRP(8007) = dARP(5011)/dV(4860) - JVRP(8007) = V(5255) -! JVRP(8008) = dARP(5011)/dV(5255) - JVRP(8008) = V(4860) -! JVRP(8009) = dARP(5012)/dV(4860) - JVRP(8009) = V(5252) -! JVRP(8010) = dARP(5012)/dV(5252) - JVRP(8010) = V(4860) -! JVRP(8011) = dARP(5013)/dV(4860) - JVRP(8011) = V(5253) -! JVRP(8012) = dARP(5013)/dV(5253) - JVRP(8012) = V(4860) -! JVRP(8013) = dARP(5014)/dV(4860) - JVRP(8013) = V(5256) -! JVRP(8014) = dARP(5014)/dV(5256) - JVRP(8014) = V(4860) -! JVRP(8015) = dARP(5015)/dV(4860) - JVRP(8015) = 1 -! JVRP(8016) = dARP(5016)/dV(3870) - JVRP(8016) = V(5255) -! JVRP(8017) = dARP(5016)/dV(5255) - JVRP(8017) = V(3870) -! JVRP(8018) = dARP(5017)/dV(3870) - JVRP(8018) = V(5252) -! JVRP(8019) = dARP(5017)/dV(5252) - JVRP(8019) = V(3870) -! JVRP(8020) = dARP(5018)/dV(3870) - JVRP(8020) = V(5252) -! JVRP(8021) = dARP(5018)/dV(5252) - JVRP(8021) = V(3870) -! JVRP(8022) = dARP(5019)/dV(3870) - JVRP(8022) = V(5256) -! JVRP(8023) = dARP(5019)/dV(5256) - JVRP(8023) = V(3870) -! JVRP(8024) = dARP(5020)/dV(3870) - JVRP(8024) = 1 -! JVRP(8025) = dARP(5021)/dV(3870) - JVRP(8025) = 1 -! JVRP(8026) = dARP(5022)/dV(3870) - JVRP(8026) = 1 -! JVRP(8027) = dARP(5023)/dV(4760) - JVRP(8027) = V(5255) -! JVRP(8028) = dARP(5023)/dV(5255) - JVRP(8028) = V(4760) -! JVRP(8029) = dARP(5024)/dV(4760) - JVRP(8029) = V(5255) -! JVRP(8030) = dARP(5024)/dV(5255) - JVRP(8030) = V(4760) -! JVRP(8031) = dARP(5025)/dV(4760) - JVRP(8031) = V(5252) -! JVRP(8032) = dARP(5025)/dV(5252) - JVRP(8032) = V(4760) -! JVRP(8033) = dARP(5026)/dV(4760) - JVRP(8033) = V(5253) -! JVRP(8034) = dARP(5026)/dV(5253) - JVRP(8034) = V(4760) -! JVRP(8035) = dARP(5027)/dV(4760) - JVRP(8035) = V(5256) -! JVRP(8036) = dARP(5027)/dV(5256) - JVRP(8036) = V(4760) -! JVRP(8037) = dARP(5028)/dV(4760) - JVRP(8037) = 1 -! JVRP(8038) = dARP(5029)/dV(3718) - JVRP(8038) = V(5255) -! JVRP(8039) = dARP(5029)/dV(5255) - JVRP(8039) = V(3718) -! JVRP(8040) = dARP(5030)/dV(3718) - JVRP(8040) = V(5252) -! JVRP(8041) = dARP(5030)/dV(5252) - JVRP(8041) = V(3718) -! JVRP(8042) = dARP(5031)/dV(3718) - JVRP(8042) = V(5252) -! JVRP(8043) = dARP(5031)/dV(5252) - JVRP(8043) = V(3718) -! JVRP(8044) = dARP(5032)/dV(3718) - JVRP(8044) = V(5256) -! JVRP(8045) = dARP(5032)/dV(5256) - JVRP(8045) = V(3718) -! JVRP(8046) = dARP(5033)/dV(3718) - JVRP(8046) = 1 -! JVRP(8047) = dARP(5034)/dV(3718) - JVRP(8047) = 1 -! JVRP(8048) = dARP(5035)/dV(3718) - JVRP(8048) = 1 -! JVRP(8049) = dARP(5036)/dV(3961) - JVRP(8049) = V(5255) -! JVRP(8050) = dARP(5036)/dV(5255) - JVRP(8050) = V(3961) -! JVRP(8051) = dARP(5037)/dV(3961) - JVRP(8051) = V(5252) -! JVRP(8052) = dARP(5037)/dV(5252) - JVRP(8052) = V(3961) -! JVRP(8053) = dARP(5038)/dV(3961) - JVRP(8053) = V(5252) -! JVRP(8054) = dARP(5038)/dV(5252) - JVRP(8054) = V(3961) -! JVRP(8055) = dARP(5039)/dV(3961) - JVRP(8055) = V(5256) -! JVRP(8056) = dARP(5039)/dV(5256) - JVRP(8056) = V(3961) -! JVRP(8057) = dARP(5040)/dV(3961) - JVRP(8057) = 1 -! JVRP(8058) = dARP(5041)/dV(3961) - JVRP(8058) = 1 -! JVRP(8059) = dARP(5042)/dV(3961) - JVRP(8059) = 1 -! JVRP(8060) = dARP(5043)/dV(3967) - JVRP(8060) = V(5255) -! JVRP(8061) = dARP(5043)/dV(5255) - JVRP(8061) = V(3967) -! JVRP(8062) = dARP(5044)/dV(3967) - JVRP(8062) = V(5252) -! JVRP(8063) = dARP(5044)/dV(5252) - JVRP(8063) = V(3967) -! JVRP(8064) = dARP(5045)/dV(3967) - JVRP(8064) = V(5252) -! JVRP(8065) = dARP(5045)/dV(5252) - JVRP(8065) = V(3967) -! JVRP(8066) = dARP(5046)/dV(3967) - JVRP(8066) = V(5256) -! JVRP(8067) = dARP(5046)/dV(5256) - JVRP(8067) = V(3967) -! JVRP(8068) = dARP(5047)/dV(3967) - JVRP(8068) = 1 -! JVRP(8069) = dARP(5048)/dV(3967) - JVRP(8069) = 1 -! JVRP(8070) = dARP(5049)/dV(3967) - JVRP(8070) = 1 -! JVRP(8071) = dARP(5050)/dV(4990) - JVRP(8071) = V(5255) -! JVRP(8072) = dARP(5050)/dV(5255) - JVRP(8072) = V(4990) -! JVRP(8073) = dARP(5051)/dV(4990) - JVRP(8073) = V(5255) -! JVRP(8074) = dARP(5051)/dV(5255) - JVRP(8074) = V(4990) -! JVRP(8075) = dARP(5052)/dV(4990) - JVRP(8075) = V(5252) -! JVRP(8076) = dARP(5052)/dV(5252) - JVRP(8076) = V(4990) -! JVRP(8077) = dARP(5053)/dV(4990) - JVRP(8077) = V(5253) -! JVRP(8078) = dARP(5053)/dV(5253) - JVRP(8078) = V(4990) -! JVRP(8079) = dARP(5054)/dV(4990) - JVRP(8079) = V(5256) -! JVRP(8080) = dARP(5054)/dV(5256) - JVRP(8080) = V(4990) -! JVRP(8081) = dARP(5055)/dV(4990) - JVRP(8081) = 1 -! JVRP(8082) = dARP(5056)/dV(3869) - JVRP(8082) = V(5255) -! JVRP(8083) = dARP(5056)/dV(5255) - JVRP(8083) = V(3869) -! JVRP(8084) = dARP(5057)/dV(3869) - JVRP(8084) = V(5252) -! JVRP(8085) = dARP(5057)/dV(5252) - JVRP(8085) = V(3869) -! JVRP(8086) = dARP(5058)/dV(3869) - JVRP(8086) = V(5252) -! JVRP(8087) = dARP(5058)/dV(5252) - JVRP(8087) = V(3869) -! JVRP(8088) = dARP(5059)/dV(3869) - JVRP(8088) = V(5256) -! JVRP(8089) = dARP(5059)/dV(5256) - JVRP(8089) = V(3869) -! JVRP(8090) = dARP(5060)/dV(3869) - JVRP(8090) = 1 -! JVRP(8091) = dARP(5061)/dV(3869) - JVRP(8091) = 1 -! JVRP(8092) = dARP(5062)/dV(3869) - JVRP(8092) = 1 -! JVRP(8093) = dARP(5063)/dV(3944) - JVRP(8093) = V(5255) -! JVRP(8094) = dARP(5063)/dV(5255) - JVRP(8094) = V(3944) -! JVRP(8095) = dARP(5064)/dV(3944) - JVRP(8095) = V(5252) -! JVRP(8096) = dARP(5064)/dV(5252) - JVRP(8096) = V(3944) -! JVRP(8097) = dARP(5065)/dV(3944) - JVRP(8097) = V(5256) -! JVRP(8098) = dARP(5065)/dV(5256) - JVRP(8098) = V(3944) -! JVRP(8099) = dARP(5066)/dV(3944) - JVRP(8099) = 1 -! JVRP(8100) = dARP(5067)/dV(3944) - JVRP(8100) = 1 -! JVRP(8101) = dARP(5068)/dV(4880) - JVRP(8101) = V(5255) -! JVRP(8102) = dARP(5068)/dV(5255) - JVRP(8102) = V(4880) -! JVRP(8103) = dARP(5069)/dV(4880) - JVRP(8103) = V(5252) -! JVRP(8104) = dARP(5069)/dV(5252) - JVRP(8104) = V(4880) -! JVRP(8105) = dARP(5070)/dV(4880) - JVRP(8105) = V(5252) -! JVRP(8106) = dARP(5070)/dV(5252) - JVRP(8106) = V(4880) -! JVRP(8107) = dARP(5071)/dV(4880) - JVRP(8107) = V(5256) -! JVRP(8108) = dARP(5071)/dV(5256) - JVRP(8108) = V(4880) -! JVRP(8109) = dARP(5072)/dV(4880) - JVRP(8109) = 1 -! JVRP(8110) = dARP(5073)/dV(4880) - JVRP(8110) = 1 -! JVRP(8111) = dARP(5074)/dV(4880) - JVRP(8111) = 1 -! JVRP(8112) = dARP(5075)/dV(3778) - JVRP(8112) = V(5255) -! JVRP(8113) = dARP(5075)/dV(5255) - JVRP(8113) = V(3778) -! JVRP(8114) = dARP(5076)/dV(3778) - JVRP(8114) = V(5252) -! JVRP(8115) = dARP(5076)/dV(5252) - JVRP(8115) = V(3778) -! JVRP(8116) = dARP(5077)/dV(3778) - JVRP(8116) = V(5252) -! JVRP(8117) = dARP(5077)/dV(5252) - JVRP(8117) = V(3778) -! JVRP(8118) = dARP(5078)/dV(3778) - JVRP(8118) = V(5256) -! JVRP(8119) = dARP(5078)/dV(5256) - JVRP(8119) = V(3778) -! JVRP(8120) = dARP(5079)/dV(3778) - JVRP(8120) = 1 -! JVRP(8121) = dARP(5080)/dV(3778) - JVRP(8121) = 1 -! JVRP(8122) = dARP(5081)/dV(3778) - JVRP(8122) = 1 -! JVRP(8123) = dARP(5082)/dV(3989) - JVRP(8123) = V(5255) -! JVRP(8124) = dARP(5082)/dV(5255) - JVRP(8124) = V(3989) -! JVRP(8125) = dARP(5083)/dV(3989) - JVRP(8125) = V(5252) -! JVRP(8126) = dARP(5083)/dV(5252) - JVRP(8126) = V(3989) -! JVRP(8127) = dARP(5084)/dV(3989) - JVRP(8127) = V(5252) -! JVRP(8128) = dARP(5084)/dV(5252) - JVRP(8128) = V(3989) -! JVRP(8129) = dARP(5085)/dV(3989) - JVRP(8129) = V(5256) -! JVRP(8130) = dARP(5085)/dV(5256) - JVRP(8130) = V(3989) -! JVRP(8131) = dARP(5086)/dV(3989) - JVRP(8131) = 1 -! JVRP(8132) = dARP(5087)/dV(3989) - JVRP(8132) = 1 -! JVRP(8133) = dARP(5088)/dV(3989) - JVRP(8133) = 1 -! JVRP(8134) = dARP(5089)/dV(4515) - JVRP(8134) = V(5255) -! JVRP(8135) = dARP(5089)/dV(5255) - JVRP(8135) = V(4515) -! JVRP(8136) = dARP(5090)/dV(4515) - JVRP(8136) = V(5255) -! JVRP(8137) = dARP(5090)/dV(5255) - JVRP(8137) = V(4515) -! JVRP(8138) = dARP(5091)/dV(4515) - JVRP(8138) = V(5252) -! JVRP(8139) = dARP(5091)/dV(5252) - JVRP(8139) = V(4515) -! JVRP(8140) = dARP(5092)/dV(4515) - JVRP(8140) = V(5253) -! JVRP(8141) = dARP(5092)/dV(5253) - JVRP(8141) = V(4515) -! JVRP(8142) = dARP(5093)/dV(4515) - JVRP(8142) = V(5256) -! JVRP(8143) = dARP(5093)/dV(5256) - JVRP(8143) = V(4515) -! JVRP(8144) = dARP(5094)/dV(4515) - JVRP(8144) = 1 -! JVRP(8145) = dARP(5095)/dV(3873) - JVRP(8145) = V(5255) -! JVRP(8146) = dARP(5095)/dV(5255) - JVRP(8146) = V(3873) -! JVRP(8147) = dARP(5096)/dV(3873) - JVRP(8147) = V(5252) -! JVRP(8148) = dARP(5096)/dV(5252) - JVRP(8148) = V(3873) -! JVRP(8149) = dARP(5097)/dV(3873) - JVRP(8149) = V(5252) -! JVRP(8150) = dARP(5097)/dV(5252) - JVRP(8150) = V(3873) -! JVRP(8151) = dARP(5098)/dV(3873) - JVRP(8151) = V(5256) -! JVRP(8152) = dARP(5098)/dV(5256) - JVRP(8152) = V(3873) -! JVRP(8153) = dARP(5099)/dV(3873) - JVRP(8153) = 1 -! JVRP(8154) = dARP(5100)/dV(3873) - JVRP(8154) = 1 -! JVRP(8155) = dARP(5101)/dV(3873) - JVRP(8155) = 1 -! JVRP(8156) = dARP(5102)/dV(4334) - JVRP(8156) = V(5255) -! JVRP(8157) = dARP(5102)/dV(5255) - JVRP(8157) = V(4334) -! JVRP(8158) = dARP(5103)/dV(4334) - JVRP(8158) = V(5252) -! JVRP(8159) = dARP(5103)/dV(5252) - JVRP(8159) = V(4334) -! JVRP(8160) = dARP(5104)/dV(4334) - JVRP(8160) = V(5252) -! JVRP(8161) = dARP(5104)/dV(5252) - JVRP(8161) = V(4334) -! JVRP(8162) = dARP(5105)/dV(4334) - JVRP(8162) = V(5256) -! JVRP(8163) = dARP(5105)/dV(5256) - JVRP(8163) = V(4334) -! JVRP(8164) = dARP(5106)/dV(4334) - JVRP(8164) = 1 -! JVRP(8165) = dARP(5107)/dV(4334) - JVRP(8165) = 1 -! JVRP(8166) = dARP(5108)/dV(4334) - JVRP(8166) = 1 -! JVRP(8167) = dARP(5109)/dV(3889) - JVRP(8167) = V(5255) -! JVRP(8168) = dARP(5109)/dV(5255) - JVRP(8168) = V(3889) -! JVRP(8169) = dARP(5110)/dV(3889) - JVRP(8169) = V(5252) -! JVRP(8170) = dARP(5110)/dV(5252) - JVRP(8170) = V(3889) -! JVRP(8171) = dARP(5111)/dV(3889) - JVRP(8171) = V(5256) -! JVRP(8172) = dARP(5111)/dV(5256) - JVRP(8172) = V(3889) -! JVRP(8173) = dARP(5112)/dV(3889) - JVRP(8173) = 1 -! JVRP(8174) = dARP(5113)/dV(3889) - JVRP(8174) = 1 -! JVRP(8175) = dARP(5114)/dV(3854) - JVRP(8175) = V(5255) -! JVRP(8176) = dARP(5114)/dV(5255) - JVRP(8176) = V(3854) -! JVRP(8177) = dARP(5115)/dV(3854) - JVRP(8177) = V(5252) -! JVRP(8178) = dARP(5115)/dV(5252) - JVRP(8178) = V(3854) -! JVRP(8179) = dARP(5116)/dV(3854) - JVRP(8179) = V(5252) -! JVRP(8180) = dARP(5116)/dV(5252) - JVRP(8180) = V(3854) -! JVRP(8181) = dARP(5117)/dV(3854) - JVRP(8181) = V(5256) -! JVRP(8182) = dARP(5117)/dV(5256) - JVRP(8182) = V(3854) -! JVRP(8183) = dARP(5118)/dV(3854) - JVRP(8183) = 1 -! JVRP(8184) = dARP(5119)/dV(3854) - JVRP(8184) = 1 -! JVRP(8185) = dARP(5120)/dV(3854) - JVRP(8185) = 1 -! JVRP(8186) = dARP(5121)/dV(4469) - JVRP(8186) = V(5255) -! JVRP(8187) = dARP(5121)/dV(5255) - JVRP(8187) = V(4469) -! JVRP(8188) = dARP(5122)/dV(4469) - JVRP(8188) = V(5255) -! JVRP(8189) = dARP(5122)/dV(5255) - JVRP(8189) = V(4469) -! JVRP(8190) = dARP(5123)/dV(4469) - JVRP(8190) = V(5252) -! JVRP(8191) = dARP(5123)/dV(5252) - JVRP(8191) = V(4469) -! JVRP(8192) = dARP(5124)/dV(4469) - JVRP(8192) = V(5253) -! JVRP(8193) = dARP(5124)/dV(5253) - JVRP(8193) = V(4469) -! JVRP(8194) = dARP(5125)/dV(4469) - JVRP(8194) = V(5256) -! JVRP(8195) = dARP(5125)/dV(5256) - JVRP(8195) = V(4469) -! JVRP(8196) = dARP(5126)/dV(4469) - JVRP(8196) = 1 -! JVRP(8197) = dARP(5127)/dV(3859) - JVRP(8197) = V(5255) -! JVRP(8198) = dARP(5127)/dV(5255) - JVRP(8198) = V(3859) -! JVRP(8199) = dARP(5128)/dV(3859) - JVRP(8199) = V(5252) -! JVRP(8200) = dARP(5128)/dV(5252) - JVRP(8200) = V(3859) -! JVRP(8201) = dARP(5129)/dV(3859) - JVRP(8201) = V(5252) -! JVRP(8202) = dARP(5129)/dV(5252) - JVRP(8202) = V(3859) -! JVRP(8203) = dARP(5130)/dV(3859) - JVRP(8203) = V(5256) -! JVRP(8204) = dARP(5130)/dV(5256) - JVRP(8204) = V(3859) -! JVRP(8205) = dARP(5131)/dV(3859) - JVRP(8205) = 1 -! JVRP(8206) = dARP(5132)/dV(3859) - JVRP(8206) = 1 -! JVRP(8207) = dARP(5133)/dV(3859) - JVRP(8207) = 1 -! JVRP(8208) = dARP(5134)/dV(4771) - JVRP(8208) = V(5255) -! JVRP(8209) = dARP(5134)/dV(5255) - JVRP(8209) = V(4771) -! JVRP(8210) = dARP(5135)/dV(4771) - JVRP(8210) = V(5255) -! JVRP(8211) = dARP(5135)/dV(5255) - JVRP(8211) = V(4771) -! JVRP(8212) = dARP(5136)/dV(4771) - JVRP(8212) = V(5255) -! JVRP(8213) = dARP(5136)/dV(5255) - JVRP(8213) = V(4771) -! JVRP(8214) = dARP(5137)/dV(4771) - JVRP(8214) = V(5252) -! JVRP(8215) = dARP(5137)/dV(5252) - JVRP(8215) = V(4771) -! JVRP(8216) = dARP(5138)/dV(4771) - JVRP(8216) = V(5253) -! JVRP(8217) = dARP(5138)/dV(5253) - JVRP(8217) = V(4771) -! JVRP(8218) = dARP(5139)/dV(4771) - JVRP(8218) = V(5256) -! JVRP(8219) = dARP(5139)/dV(5256) - JVRP(8219) = V(4771) -! JVRP(8220) = dARP(5140)/dV(4771) - JVRP(8220) = 1 -! JVRP(8221) = dARP(5141)/dV(4771) - JVRP(8221) = 1 -! JVRP(8222) = dARP(5142)/dV(3667) - JVRP(8222) = V(5255) -! JVRP(8223) = dARP(5142)/dV(5255) - JVRP(8223) = V(3667) -! JVRP(8224) = dARP(5143)/dV(3667) - JVRP(8224) = V(5252) -! JVRP(8225) = dARP(5143)/dV(5252) - JVRP(8225) = V(3667) -! JVRP(8226) = dARP(5144)/dV(3667) - JVRP(8226) = V(5252) -! JVRP(8227) = dARP(5144)/dV(5252) - JVRP(8227) = V(3667) -! JVRP(8228) = dARP(5145)/dV(3667) - JVRP(8228) = V(5256) -! JVRP(8229) = dARP(5145)/dV(5256) - JVRP(8229) = V(3667) -! JVRP(8230) = dARP(5146)/dV(3667) - JVRP(8230) = 1 -! JVRP(8231) = dARP(5147)/dV(3667) - JVRP(8231) = 1 -! JVRP(8232) = dARP(5148)/dV(3667) - JVRP(8232) = 1 -! JVRP(8233) = dARP(5149)/dV(4994) - JVRP(8233) = V(5255) -! JVRP(8234) = dARP(5149)/dV(5255) - JVRP(8234) = V(4994) -! JVRP(8235) = dARP(5150)/dV(4994) - JVRP(8235) = V(5255) -! JVRP(8236) = dARP(5150)/dV(5255) - JVRP(8236) = V(4994) -! JVRP(8237) = dARP(5151)/dV(4994) - JVRP(8237) = V(5255) -! JVRP(8238) = dARP(5151)/dV(5255) - JVRP(8238) = V(4994) -! JVRP(8239) = dARP(5152)/dV(4994) - JVRP(8239) = V(5252) -! JVRP(8240) = dARP(5152)/dV(5252) - JVRP(8240) = V(4994) -! JVRP(8241) = dARP(5153)/dV(4994) - JVRP(8241) = V(5253) -! JVRP(8242) = dARP(5153)/dV(5253) - JVRP(8242) = V(4994) -! JVRP(8243) = dARP(5154)/dV(4994) - JVRP(8243) = V(5256) -! JVRP(8244) = dARP(5154)/dV(5256) - JVRP(8244) = V(4994) -! JVRP(8245) = dARP(5155)/dV(4994) - JVRP(8245) = 1 -! JVRP(8246) = dARP(5156)/dV(4994) - JVRP(8246) = 1 -! JVRP(8247) = dARP(5157)/dV(5108) - JVRP(8247) = V(5255) -! JVRP(8248) = dARP(5157)/dV(5255) - JVRP(8248) = V(5108) -! JVRP(8249) = dARP(5158)/dV(5108) - JVRP(8249) = V(5252) -! JVRP(8250) = dARP(5158)/dV(5252) - JVRP(8250) = V(5108) -! JVRP(8251) = dARP(5159)/dV(5108) - JVRP(8251) = V(5252) -! JVRP(8252) = dARP(5159)/dV(5252) - JVRP(8252) = V(5108) -! JVRP(8253) = dARP(5160)/dV(5108) - JVRP(8253) = V(5256) -! JVRP(8254) = dARP(5160)/dV(5256) - JVRP(8254) = V(5108) -! JVRP(8255) = dARP(5161)/dV(5108) - JVRP(8255) = 1 -! JVRP(8256) = dARP(5162)/dV(5108) - JVRP(8256) = 1 -! JVRP(8257) = dARP(5163)/dV(5108) - JVRP(8257) = 1 -! JVRP(8258) = dARP(5164)/dV(3785) - JVRP(8258) = V(5255) -! JVRP(8259) = dARP(5164)/dV(5255) - JVRP(8259) = V(3785) -! JVRP(8260) = dARP(5165)/dV(3785) - JVRP(8260) = V(5252) -! JVRP(8261) = dARP(5165)/dV(5252) - JVRP(8261) = V(3785) -! JVRP(8262) = dARP(5166)/dV(3785) - JVRP(8262) = V(5256) -! JVRP(8263) = dARP(5166)/dV(5256) - JVRP(8263) = V(3785) -! JVRP(8264) = dARP(5167)/dV(3785) - JVRP(8264) = 1 -! JVRP(8265) = dARP(5168)/dV(4722) - JVRP(8265) = V(5255) -! JVRP(8266) = dARP(5168)/dV(5255) - JVRP(8266) = V(4722) -! JVRP(8267) = dARP(5169)/dV(4722) - JVRP(8267) = V(5252) -! JVRP(8268) = dARP(5169)/dV(5252) - JVRP(8268) = V(4722) -! JVRP(8269) = dARP(5170)/dV(4722) - JVRP(8269) = V(5252) -! JVRP(8270) = dARP(5170)/dV(5252) - JVRP(8270) = V(4722) -! JVRP(8271) = dARP(5171)/dV(4722) - JVRP(8271) = V(5256) -! JVRP(8272) = dARP(5171)/dV(5256) - JVRP(8272) = V(4722) -! JVRP(8273) = dARP(5172)/dV(4722) - JVRP(8273) = 1 -! JVRP(8274) = dARP(5173)/dV(4722) - JVRP(8274) = 1 -! JVRP(8275) = dARP(5174)/dV(3674) - JVRP(8275) = V(5255) -! JVRP(8276) = dARP(5174)/dV(5255) - JVRP(8276) = V(3674) -! JVRP(8277) = dARP(5175)/dV(3674) - JVRP(8277) = V(5252) -! JVRP(8278) = dARP(5175)/dV(5252) - JVRP(8278) = V(3674) -! JVRP(8279) = dARP(5176)/dV(3674) - JVRP(8279) = V(5256) -! JVRP(8280) = dARP(5176)/dV(5256) - JVRP(8280) = V(3674) -! JVRP(8281) = dARP(5177)/dV(3674) - JVRP(8281) = 1 -! JVRP(8282) = dARP(5178)/dV(4577) - JVRP(8282) = V(5255) -! JVRP(8283) = dARP(5178)/dV(5255) - JVRP(8283) = V(4577) -! JVRP(8284) = dARP(5179)/dV(4577) - JVRP(8284) = V(5252) -! JVRP(8285) = dARP(5179)/dV(5252) - JVRP(8285) = V(4577) -! JVRP(8286) = dARP(5180)/dV(4577) - JVRP(8286) = V(5252) -! JVRP(8287) = dARP(5180)/dV(5252) - JVRP(8287) = V(4577) -! JVRP(8288) = dARP(5181)/dV(4577) - JVRP(8288) = V(5256) -! JVRP(8289) = dARP(5181)/dV(5256) - JVRP(8289) = V(4577) -! JVRP(8290) = dARP(5182)/dV(4577) - JVRP(8290) = 1 -! JVRP(8291) = dARP(5183)/dV(4577) - JVRP(8291) = 1 -! JVRP(8292) = dARP(5184)/dV(4577) - JVRP(8292) = 1 -! JVRP(8293) = dARP(5185)/dV(5119) - JVRP(8293) = V(5255) -! JVRP(8294) = dARP(5185)/dV(5255) - JVRP(8294) = V(5119) -! JVRP(8295) = dARP(5186)/dV(5119) - JVRP(8295) = V(5252) -! JVRP(8296) = dARP(5186)/dV(5252) - JVRP(8296) = V(5119) -! JVRP(8297) = dARP(5187)/dV(5119) - JVRP(8297) = V(5252) -! JVRP(8298) = dARP(5187)/dV(5252) - JVRP(8298) = V(5119) -! JVRP(8299) = dARP(5188)/dV(5119) - JVRP(8299) = V(5256) -! JVRP(8300) = dARP(5188)/dV(5256) - JVRP(8300) = V(5119) -! JVRP(8301) = dARP(5189)/dV(5119) - JVRP(8301) = 1 -! JVRP(8302) = dARP(5190)/dV(5119) - JVRP(8302) = 1 -! JVRP(8303) = dARP(5191)/dV(5119) - JVRP(8303) = 1 -! JVRP(8304) = dARP(5192)/dV(3730) - JVRP(8304) = V(5255) -! JVRP(8305) = dARP(5192)/dV(5255) - JVRP(8305) = V(3730) -! JVRP(8306) = dARP(5193)/dV(3730) - JVRP(8306) = V(5252) -! JVRP(8307) = dARP(5193)/dV(5252) - JVRP(8307) = V(3730) -! JVRP(8308) = dARP(5194)/dV(3730) - JVRP(8308) = V(5256) -! JVRP(8309) = dARP(5194)/dV(5256) - JVRP(8309) = V(3730) -! JVRP(8310) = dARP(5195)/dV(3730) - JVRP(8310) = 1 -! JVRP(8311) = dARP(5196)/dV(3688) - JVRP(8311) = V(5255) -! JVRP(8312) = dARP(5196)/dV(5255) - JVRP(8312) = V(3688) -! JVRP(8313) = dARP(5197)/dV(3688) - JVRP(8313) = V(5252) -! JVRP(8314) = dARP(5197)/dV(5252) - JVRP(8314) = V(3688) -! JVRP(8315) = dARP(5198)/dV(3688) - JVRP(8315) = V(5252) -! JVRP(8316) = dARP(5198)/dV(5252) - JVRP(8316) = V(3688) -! JVRP(8317) = dARP(5199)/dV(3688) - JVRP(8317) = V(5256) -! JVRP(8318) = dARP(5199)/dV(5256) - JVRP(8318) = V(3688) -! JVRP(8319) = dARP(5200)/dV(3688) - JVRP(8319) = 1 -! JVRP(8320) = dARP(5201)/dV(3688) - JVRP(8320) = 1 -! JVRP(8321) = dARP(5202)/dV(3688) - JVRP(8321) = 1 -! JVRP(8322) = dARP(5203)/dV(3749) - JVRP(8322) = V(5255) -! JVRP(8323) = dARP(5203)/dV(5255) - JVRP(8323) = V(3749) -! JVRP(8324) = dARP(5204)/dV(3749) - JVRP(8324) = V(5252) -! JVRP(8325) = dARP(5204)/dV(5252) - JVRP(8325) = V(3749) -! JVRP(8326) = dARP(5205)/dV(3749) - JVRP(8326) = V(5252) -! JVRP(8327) = dARP(5205)/dV(5252) - JVRP(8327) = V(3749) -! JVRP(8328) = dARP(5206)/dV(3749) - JVRP(8328) = V(5256) -! JVRP(8329) = dARP(5206)/dV(5256) - JVRP(8329) = V(3749) -! JVRP(8330) = dARP(5207)/dV(3749) - JVRP(8330) = 1 -! JVRP(8331) = dARP(5208)/dV(3749) - JVRP(8331) = 1 -! JVRP(8332) = dARP(5209)/dV(3749) - JVRP(8332) = 1 -! JVRP(8333) = dARP(5210)/dV(3781) - JVRP(8333) = V(5255) -! JVRP(8334) = dARP(5210)/dV(5255) - JVRP(8334) = V(3781) -! JVRP(8335) = dARP(5211)/dV(3781) - JVRP(8335) = V(5252) -! JVRP(8336) = dARP(5211)/dV(5252) - JVRP(8336) = V(3781) -! JVRP(8337) = dARP(5212)/dV(3781) - JVRP(8337) = V(5256) -! JVRP(8338) = dARP(5212)/dV(5256) - JVRP(8338) = V(3781) -! JVRP(8339) = dARP(5213)/dV(3781) - JVRP(8339) = 1 -! JVRP(8340) = dARP(5214)/dV(3751) - JVRP(8340) = V(5255) -! JVRP(8341) = dARP(5214)/dV(5255) - JVRP(8341) = V(3751) -! JVRP(8342) = dARP(5215)/dV(3751) - JVRP(8342) = V(5252) -! JVRP(8343) = dARP(5215)/dV(5252) - JVRP(8343) = V(3751) -! JVRP(8344) = dARP(5216)/dV(3751) - JVRP(8344) = V(5252) -! JVRP(8345) = dARP(5216)/dV(5252) - JVRP(8345) = V(3751) -! JVRP(8346) = dARP(5217)/dV(3751) - JVRP(8346) = V(5256) -! JVRP(8347) = dARP(5217)/dV(5256) - JVRP(8347) = V(3751) -! JVRP(8348) = dARP(5218)/dV(3751) - JVRP(8348) = 1 -! JVRP(8349) = dARP(5219)/dV(3751) - JVRP(8349) = 1 -! JVRP(8350) = dARP(5220)/dV(3751) - JVRP(8350) = 1 -! JVRP(8351) = dARP(5221)/dV(3768) - JVRP(8351) = V(5255) -! JVRP(8352) = dARP(5221)/dV(5255) - JVRP(8352) = V(3768) -! JVRP(8353) = dARP(5222)/dV(3768) - JVRP(8353) = V(5252) -! JVRP(8354) = dARP(5222)/dV(5252) - JVRP(8354) = V(3768) -! JVRP(8355) = dARP(5223)/dV(3768) - JVRP(8355) = V(5256) -! JVRP(8356) = dARP(5223)/dV(5256) - JVRP(8356) = V(3768) -! JVRP(8357) = dARP(5224)/dV(3768) - JVRP(8357) = 1 -! JVRP(8358) = dARP(5225)/dV(3731) - JVRP(8358) = V(5255) -! JVRP(8359) = dARP(5225)/dV(5255) - JVRP(8359) = V(3731) -! JVRP(8360) = dARP(5226)/dV(3731) - JVRP(8360) = V(5252) -! JVRP(8361) = dARP(5226)/dV(5252) - JVRP(8361) = V(3731) -! JVRP(8362) = dARP(5227)/dV(3731) - JVRP(8362) = V(5252) -! JVRP(8363) = dARP(5227)/dV(5252) - JVRP(8363) = V(3731) -! JVRP(8364) = dARP(5228)/dV(3731) - JVRP(8364) = V(5256) -! JVRP(8365) = dARP(5228)/dV(5256) - JVRP(8365) = V(3731) -! JVRP(8366) = dARP(5229)/dV(3731) - JVRP(8366) = 1 -! JVRP(8367) = dARP(5230)/dV(3731) - JVRP(8367) = 1 -! JVRP(8368) = dARP(5231)/dV(3731) - JVRP(8368) = 1 -! JVRP(8369) = dARP(5232)/dV(3766) - JVRP(8369) = V(5255) -! JVRP(8370) = dARP(5232)/dV(5255) - JVRP(8370) = V(3766) -! JVRP(8371) = dARP(5233)/dV(3766) - JVRP(8371) = V(5252) -! JVRP(8372) = dARP(5233)/dV(5252) - JVRP(8372) = V(3766) -! JVRP(8373) = dARP(5234)/dV(3766) - JVRP(8373) = V(5256) -! JVRP(8374) = dARP(5234)/dV(5256) - JVRP(8374) = V(3766) -! JVRP(8375) = dARP(5235)/dV(3766) - JVRP(8375) = 1 -! JVRP(8376) = dARP(5236)/dV(3690) - JVRP(8376) = V(5255) -! JVRP(8377) = dARP(5236)/dV(5255) - JVRP(8377) = V(3690) -! JVRP(8378) = dARP(5237)/dV(3690) - JVRP(8378) = V(5252) -! JVRP(8379) = dARP(5237)/dV(5252) - JVRP(8379) = V(3690) -! JVRP(8380) = dARP(5238)/dV(3690) - JVRP(8380) = V(5252) -! JVRP(8381) = dARP(5238)/dV(5252) - JVRP(8381) = V(3690) -! JVRP(8382) = dARP(5239)/dV(3690) - JVRP(8382) = V(5256) -! JVRP(8383) = dARP(5239)/dV(5256) - JVRP(8383) = V(3690) -! JVRP(8384) = dARP(5240)/dV(3690) - JVRP(8384) = 1 -! JVRP(8385) = dARP(5241)/dV(3690) - JVRP(8385) = 1 -! JVRP(8386) = dARP(5242)/dV(3690) - JVRP(8386) = 1 -! JVRP(8387) = dARP(5243)/dV(3678) - JVRP(8387) = V(5255) -! JVRP(8388) = dARP(5243)/dV(5255) - JVRP(8388) = V(3678) -! JVRP(8389) = dARP(5244)/dV(3678) - JVRP(8389) = V(5252) -! JVRP(8390) = dARP(5244)/dV(5252) - JVRP(8390) = V(3678) -! JVRP(8391) = dARP(5245)/dV(3678) - JVRP(8391) = V(5256) -! JVRP(8392) = dARP(5245)/dV(5256) - JVRP(8392) = V(3678) -! JVRP(8393) = dARP(5246)/dV(3678) - JVRP(8393) = 1 -! JVRP(8394) = dARP(5247)/dV(3691) - JVRP(8394) = V(5255) -! JVRP(8395) = dARP(5247)/dV(5255) - JVRP(8395) = V(3691) -! JVRP(8396) = dARP(5248)/dV(3691) - JVRP(8396) = V(5252) -! JVRP(8397) = dARP(5248)/dV(5252) - JVRP(8397) = V(3691) -! JVRP(8398) = dARP(5249)/dV(3691) - JVRP(8398) = V(5252) -! JVRP(8399) = dARP(5249)/dV(5252) - JVRP(8399) = V(3691) -! JVRP(8400) = dARP(5250)/dV(3691) - JVRP(8400) = V(5256) -! JVRP(8401) = dARP(5250)/dV(5256) - JVRP(8401) = V(3691) -! JVRP(8402) = dARP(5251)/dV(3691) - JVRP(8402) = 1 -! JVRP(8403) = dARP(5252)/dV(3691) - JVRP(8403) = 1 -! JVRP(8404) = dARP(5253)/dV(3691) - JVRP(8404) = 1 -! JVRP(8405) = dARP(5254)/dV(3704) - JVRP(8405) = V(5255) -! JVRP(8406) = dARP(5254)/dV(5255) - JVRP(8406) = V(3704) -! JVRP(8407) = dARP(5255)/dV(3704) - JVRP(8407) = V(5252) -! JVRP(8408) = dARP(5255)/dV(5252) - JVRP(8408) = V(3704) -! JVRP(8409) = dARP(5256)/dV(3704) - JVRP(8409) = V(5256) -! JVRP(8410) = dARP(5256)/dV(5256) - JVRP(8410) = V(3704) -! JVRP(8411) = dARP(5257)/dV(3704) - JVRP(8411) = 1 -! JVRP(8412) = dARP(5258)/dV(3952) - JVRP(8412) = V(5255) -! JVRP(8413) = dARP(5258)/dV(5255) - JVRP(8413) = V(3952) -! JVRP(8414) = dARP(5259)/dV(3952) - JVRP(8414) = V(5252) -! JVRP(8415) = dARP(5259)/dV(5252) - JVRP(8415) = V(3952) -! JVRP(8416) = dARP(5260)/dV(3952) - JVRP(8416) = V(5252) -! JVRP(8417) = dARP(5260)/dV(5252) - JVRP(8417) = V(3952) -! JVRP(8418) = dARP(5261)/dV(3952) - JVRP(8418) = V(5256) -! JVRP(8419) = dARP(5261)/dV(5256) - JVRP(8419) = V(3952) -! JVRP(8420) = dARP(5262)/dV(3952) - JVRP(8420) = 1 -! JVRP(8421) = dARP(5263)/dV(3952) - JVRP(8421) = 1 -! JVRP(8422) = dARP(5264)/dV(3952) - JVRP(8422) = 1 -! JVRP(8423) = dARP(5265)/dV(5152) - JVRP(8423) = V(5255) -! JVRP(8424) = dARP(5265)/dV(5255) - JVRP(8424) = V(5152) -! JVRP(8425) = dARP(5266)/dV(5152) - JVRP(8425) = V(5255) -! JVRP(8426) = dARP(5266)/dV(5255) - JVRP(8426) = V(5152) -! JVRP(8427) = dARP(5267)/dV(5152) - JVRP(8427) = V(5255) -! JVRP(8428) = dARP(5267)/dV(5255) - JVRP(8428) = V(5152) -! JVRP(8429) = dARP(5268)/dV(5152) - JVRP(8429) = V(5252) -! JVRP(8430) = dARP(5268)/dV(5252) - JVRP(8430) = V(5152) -! JVRP(8431) = dARP(5269)/dV(5152) - JVRP(8431) = V(5253) -! JVRP(8432) = dARP(5269)/dV(5253) - JVRP(8432) = V(5152) -! JVRP(8433) = dARP(5270)/dV(5152) - JVRP(8433) = V(5256) -! JVRP(8434) = dARP(5270)/dV(5256) - JVRP(8434) = V(5152) -! JVRP(8435) = dARP(5271)/dV(5152) - JVRP(8435) = 1 -! JVRP(8436) = dARP(5272)/dV(5152) - JVRP(8436) = 1 -! JVRP(8437) = dARP(5273)/dV(4405) - JVRP(8437) = V(5255) -! JVRP(8438) = dARP(5273)/dV(5255) - JVRP(8438) = V(4405) -! JVRP(8439) = dARP(5274)/dV(4405) - JVRP(8439) = V(5255) -! JVRP(8440) = dARP(5274)/dV(5255) - JVRP(8440) = V(4405) -! JVRP(8441) = dARP(5275)/dV(4405) - JVRP(8441) = V(5255) -! JVRP(8442) = dARP(5275)/dV(5255) - JVRP(8442) = V(4405) -! JVRP(8443) = dARP(5276)/dV(4405) - JVRP(8443) = V(5252) -! JVRP(8444) = dARP(5276)/dV(5252) - JVRP(8444) = V(4405) -! JVRP(8445) = dARP(5277)/dV(4405) - JVRP(8445) = V(5253) -! JVRP(8446) = dARP(5277)/dV(5253) - JVRP(8446) = V(4405) -! JVRP(8447) = dARP(5278)/dV(4405) - JVRP(8447) = V(5256) -! JVRP(8448) = dARP(5278)/dV(5256) - JVRP(8448) = V(4405) -! JVRP(8449) = dARP(5279)/dV(4405) - JVRP(8449) = 1 -! JVRP(8450) = dARP(5280)/dV(4405) - JVRP(8450) = 1 -! JVRP(8451) = dARP(5281)/dV(2807) - JVRP(8451) = 1 -! JVRP(8452) = dARP(5282)/dV(4724) - JVRP(8452) = V(5255) -! JVRP(8453) = dARP(5282)/dV(5255) - JVRP(8453) = V(4724) -! JVRP(8454) = dARP(5283)/dV(4724) - JVRP(8454) = V(5252) -! JVRP(8455) = dARP(5283)/dV(5252) - JVRP(8455) = V(4724) -! JVRP(8456) = dARP(5284)/dV(4724) - JVRP(8456) = V(5256) -! JVRP(8457) = dARP(5284)/dV(5256) - JVRP(8457) = V(4724) -! JVRP(8458) = dARP(5285)/dV(4724) - JVRP(8458) = 1 -! JVRP(8459) = dARP(5286)/dV(4724) - JVRP(8459) = 1 -! JVRP(8460) = dARP(5287)/dV(4724) - JVRP(8460) = 1 -! JVRP(8461) = dARP(5288)/dV(3301) - JVRP(8461) = 1 -! JVRP(8462) = dARP(5289)/dV(4275) - JVRP(8462) = V(5255) -! JVRP(8463) = dARP(5289)/dV(5255) - JVRP(8463) = V(4275) -! JVRP(8464) = dARP(5290)/dV(4275) - JVRP(8464) = V(5255) -! JVRP(8465) = dARP(5290)/dV(5255) - JVRP(8465) = V(4275) -! JVRP(8466) = dARP(5291)/dV(4275) - JVRP(8466) = V(5252) -! JVRP(8467) = dARP(5291)/dV(5252) - JVRP(8467) = V(4275) -! JVRP(8468) = dARP(5292)/dV(4275) - JVRP(8468) = V(5253) -! JVRP(8469) = dARP(5292)/dV(5253) - JVRP(8469) = V(4275) -! JVRP(8470) = dARP(5293)/dV(4275) - JVRP(8470) = V(5256) -! JVRP(8471) = dARP(5293)/dV(5256) - JVRP(8471) = V(4275) -! JVRP(8472) = dARP(5294)/dV(4275) - JVRP(8472) = 1 -! JVRP(8473) = dARP(5295)/dV(4452) - JVRP(8473) = V(5255) -! JVRP(8474) = dARP(5295)/dV(5255) - JVRP(8474) = V(4452) -! JVRP(8475) = dARP(5296)/dV(4452) - JVRP(8475) = V(5255) -! JVRP(8476) = dARP(5296)/dV(5255) - JVRP(8476) = V(4452) -! JVRP(8477) = dARP(5297)/dV(4452) - JVRP(8477) = V(5255) -! JVRP(8478) = dARP(5297)/dV(5255) - JVRP(8478) = V(4452) -! JVRP(8479) = dARP(5298)/dV(4452) - JVRP(8479) = V(5252) -! JVRP(8480) = dARP(5298)/dV(5252) - JVRP(8480) = V(4452) -! JVRP(8481) = dARP(5299)/dV(4452) - JVRP(8481) = V(5253) -! JVRP(8482) = dARP(5299)/dV(5253) - JVRP(8482) = V(4452) -! JVRP(8483) = dARP(5300)/dV(4452) - JVRP(8483) = V(5256) -! JVRP(8484) = dARP(5300)/dV(5256) - JVRP(8484) = V(4452) -! JVRP(8485) = dARP(5301)/dV(4452) - JVRP(8485) = 1 -! JVRP(8486) = dARP(5302)/dV(4452) - JVRP(8486) = 1 -! JVRP(8487) = dARP(5303)/dV(4817) - JVRP(8487) = V(5255) -! JVRP(8488) = dARP(5303)/dV(5255) - JVRP(8488) = V(4817) -! JVRP(8489) = dARP(5304)/dV(4817) - JVRP(8489) = V(5252) -! JVRP(8490) = dARP(5304)/dV(5252) - JVRP(8490) = V(4817) -! JVRP(8491) = dARP(5305)/dV(4817) - JVRP(8491) = V(5256) -! JVRP(8492) = dARP(5305)/dV(5256) - JVRP(8492) = V(4817) -! JVRP(8493) = dARP(5306)/dV(4817) - JVRP(8493) = 1 -! JVRP(8494) = dARP(5307)/dV(4817) - JVRP(8494) = 1 -! JVRP(8495) = dARP(5308)/dV(4817) - JVRP(8495) = 1 -! JVRP(8496) = dARP(5309)/dV(2163) - JVRP(8496) = 1 -! JVRP(8497) = dARP(5310)/dV(4470) - JVRP(8497) = V(5255) -! JVRP(8498) = dARP(5310)/dV(5255) - JVRP(8498) = V(4470) -! JVRP(8499) = dARP(5311)/dV(4470) - JVRP(8499) = V(5255) -! JVRP(8500) = dARP(5311)/dV(5255) - JVRP(8500) = V(4470) -! JVRP(8501) = dARP(5312)/dV(4470) - JVRP(8501) = V(5255) -! JVRP(8502) = dARP(5312)/dV(5255) - JVRP(8502) = V(4470) -! JVRP(8503) = dARP(5313)/dV(4470) - JVRP(8503) = V(5252) -! JVRP(8504) = dARP(5313)/dV(5252) - JVRP(8504) = V(4470) -! JVRP(8505) = dARP(5314)/dV(4470) - JVRP(8505) = V(5253) -! JVRP(8506) = dARP(5314)/dV(5253) - JVRP(8506) = V(4470) -! JVRP(8507) = dARP(5315)/dV(4470) - JVRP(8507) = V(5256) -! JVRP(8508) = dARP(5315)/dV(5256) - JVRP(8508) = V(4470) -! JVRP(8509) = dARP(5316)/dV(4470) - JVRP(8509) = 1 -! JVRP(8510) = dARP(5317)/dV(4470) - JVRP(8510) = 1 -! JVRP(8511) = dARP(5318)/dV(3269) - JVRP(8511) = 1 -! JVRP(8512) = dARP(5319)/dV(4856) - JVRP(8512) = V(5255) -! JVRP(8513) = dARP(5319)/dV(5255) - JVRP(8513) = V(4856) -! JVRP(8514) = dARP(5320)/dV(4856) - JVRP(8514) = V(5252) -! JVRP(8515) = dARP(5320)/dV(5252) - JVRP(8515) = V(4856) -! JVRP(8516) = dARP(5321)/dV(4856) - JVRP(8516) = V(5256) -! JVRP(8517) = dARP(5321)/dV(5256) - JVRP(8517) = V(4856) -! JVRP(8518) = dARP(5322)/dV(4856) - JVRP(8518) = 1 -! JVRP(8519) = dARP(5323)/dV(4281) - JVRP(8519) = V(5255) -! JVRP(8520) = dARP(5323)/dV(5255) - JVRP(8520) = V(4281) -! JVRP(8521) = dARP(5324)/dV(4281) - JVRP(8521) = V(5255) -! JVRP(8522) = dARP(5324)/dV(5255) - JVRP(8522) = V(4281) -! JVRP(8523) = dARP(5325)/dV(4281) - JVRP(8523) = V(5252) -! JVRP(8524) = dARP(5325)/dV(5252) - JVRP(8524) = V(4281) -! JVRP(8525) = dARP(5326)/dV(4281) - JVRP(8525) = V(5253) -! JVRP(8526) = dARP(5326)/dV(5253) - JVRP(8526) = V(4281) -! JVRP(8527) = dARP(5327)/dV(4281) - JVRP(8527) = V(5256) -! JVRP(8528) = dARP(5327)/dV(5256) - JVRP(8528) = V(4281) -! JVRP(8529) = dARP(5328)/dV(4281) - JVRP(8529) = 1 -! JVRP(8530) = dARP(5329)/dV(3964) - JVRP(8530) = V(5255) -! JVRP(8531) = dARP(5329)/dV(5255) - JVRP(8531) = V(3964) -! JVRP(8532) = dARP(5330)/dV(3964) - JVRP(8532) = V(5252) -! JVRP(8533) = dARP(5330)/dV(5252) - JVRP(8533) = V(3964) -! JVRP(8534) = dARP(5331)/dV(3964) - JVRP(8534) = V(5256) -! JVRP(8535) = dARP(5331)/dV(5256) - JVRP(8535) = V(3964) -! JVRP(8536) = dARP(5332)/dV(3964) - JVRP(8536) = 1 -! JVRP(8537) = dARP(5333)/dV(4344) - JVRP(8537) = V(5255) -! JVRP(8538) = dARP(5333)/dV(5255) - JVRP(8538) = V(4344) -! JVRP(8539) = dARP(5334)/dV(4344) - JVRP(8539) = V(5252) -! JVRP(8540) = dARP(5334)/dV(5252) - JVRP(8540) = V(4344) -! JVRP(8541) = dARP(5335)/dV(4344) - JVRP(8541) = V(5256) -! JVRP(8542) = dARP(5335)/dV(5256) - JVRP(8542) = V(4344) -! JVRP(8543) = dARP(5336)/dV(4344) - JVRP(8543) = 1 -! JVRP(8544) = dARP(5337)/dV(4522) - JVRP(8544) = V(5255) -! JVRP(8545) = dARP(5337)/dV(5255) - JVRP(8545) = V(4522) -! JVRP(8546) = dARP(5338)/dV(4522) - JVRP(8546) = V(5255) -! JVRP(8547) = dARP(5338)/dV(5255) - JVRP(8547) = V(4522) -! JVRP(8548) = dARP(5339)/dV(4522) - JVRP(8548) = V(5255) -! JVRP(8549) = dARP(5339)/dV(5255) - JVRP(8549) = V(4522) -! JVRP(8550) = dARP(5340)/dV(4522) - JVRP(8550) = V(5252) -! JVRP(8551) = dARP(5340)/dV(5252) - JVRP(8551) = V(4522) -! JVRP(8552) = dARP(5341)/dV(4522) - JVRP(8552) = V(5253) -! JVRP(8553) = dARP(5341)/dV(5253) - JVRP(8553) = V(4522) -! JVRP(8554) = dARP(5342)/dV(4522) - JVRP(8554) = V(5256) -! JVRP(8555) = dARP(5342)/dV(5256) - JVRP(8555) = V(4522) -! JVRP(8556) = dARP(5343)/dV(4522) - JVRP(8556) = 1 -! JVRP(8557) = dARP(5344)/dV(4522) - JVRP(8557) = 1 -! JVRP(8558) = dARP(5345)/dV(11) - JVRP(8558) = 1 -! JVRP(8559) = dARP(5346)/dV(3888) - JVRP(8559) = V(5255) -! JVRP(8560) = dARP(5346)/dV(5255) - JVRP(8560) = V(3888) -! JVRP(8561) = dARP(5347)/dV(3888) - JVRP(8561) = V(5252) -! JVRP(8562) = dARP(5347)/dV(5252) - JVRP(8562) = V(3888) -! JVRP(8563) = dARP(5348)/dV(3888) - JVRP(8563) = V(5256) -! JVRP(8564) = dARP(5348)/dV(5256) - JVRP(8564) = V(3888) -! JVRP(8565) = dARP(5349)/dV(3888) - JVRP(8565) = 1 -! JVRP(8566) = dARP(5350)/dV(3888) - JVRP(8566) = 1 -! JVRP(8567) = dARP(5351)/dV(7) - JVRP(8567) = 1 -! JVRP(8568) = dARP(5352)/dV(4433) - JVRP(8568) = V(5255) -! JVRP(8569) = dARP(5352)/dV(5255) - JVRP(8569) = V(4433) -! JVRP(8570) = dARP(5353)/dV(4433) - JVRP(8570) = V(5255) -! JVRP(8571) = dARP(5353)/dV(5255) - JVRP(8571) = V(4433) -! JVRP(8572) = dARP(5354)/dV(4433) - JVRP(8572) = V(5255) -! JVRP(8573) = dARP(5354)/dV(5255) - JVRP(8573) = V(4433) -! JVRP(8574) = dARP(5355)/dV(4433) - JVRP(8574) = V(5252) -! JVRP(8575) = dARP(5355)/dV(5252) - JVRP(8575) = V(4433) -! JVRP(8576) = dARP(5356)/dV(4433) - JVRP(8576) = V(5253) -! JVRP(8577) = dARP(5356)/dV(5253) - JVRP(8577) = V(4433) -! JVRP(8578) = dARP(5357)/dV(4433) - JVRP(8578) = V(5256) -! JVRP(8579) = dARP(5357)/dV(5256) - JVRP(8579) = V(4433) -! JVRP(8580) = dARP(5358)/dV(4433) - JVRP(8580) = 1 -! JVRP(8581) = dARP(5359)/dV(4433) - JVRP(8581) = 1 -! JVRP(8582) = dARP(5360)/dV(3252) - JVRP(8582) = 1 -! JVRP(8583) = dARP(5361)/dV(4215) - JVRP(8583) = V(5255) -! JVRP(8584) = dARP(5361)/dV(5255) - JVRP(8584) = V(4215) -! JVRP(8585) = dARP(5362)/dV(4215) - JVRP(8585) = V(5255) -! JVRP(8586) = dARP(5362)/dV(5255) - JVRP(8586) = V(4215) -! JVRP(8587) = dARP(5363)/dV(4215) - JVRP(8587) = V(5252) -! JVRP(8588) = dARP(5363)/dV(5252) - JVRP(8588) = V(4215) -! JVRP(8589) = dARP(5364)/dV(4215) - JVRP(8589) = V(5253) -! JVRP(8590) = dARP(5364)/dV(5253) - JVRP(8590) = V(4215) -! JVRP(8591) = dARP(5365)/dV(4215) - JVRP(8591) = V(5256) -! JVRP(8592) = dARP(5365)/dV(5256) - JVRP(8592) = V(4215) -! JVRP(8593) = dARP(5366)/dV(4215) - JVRP(8593) = 1 -! JVRP(8594) = dARP(5367)/dV(4345) - JVRP(8594) = V(5255) -! JVRP(8595) = dARP(5367)/dV(5255) - JVRP(8595) = V(4345) -! JVRP(8596) = dARP(5368)/dV(4345) - JVRP(8596) = V(5252) -! JVRP(8597) = dARP(5368)/dV(5252) - JVRP(8597) = V(4345) -! JVRP(8598) = dARP(5369)/dV(4345) - JVRP(8598) = V(5256) -! JVRP(8599) = dARP(5369)/dV(5256) - JVRP(8599) = V(4345) -! JVRP(8600) = dARP(5370)/dV(4345) - JVRP(8600) = 1 -! JVRP(8601) = dARP(5371)/dV(4427) - JVRP(8601) = V(5255) -! JVRP(8602) = dARP(5371)/dV(5255) - JVRP(8602) = V(4427) -! JVRP(8603) = dARP(5372)/dV(4427) - JVRP(8603) = V(5255) -! JVRP(8604) = dARP(5372)/dV(5255) - JVRP(8604) = V(4427) -! JVRP(8605) = dARP(5373)/dV(4427) - JVRP(8605) = V(5255) -! JVRP(8606) = dARP(5373)/dV(5255) - JVRP(8606) = V(4427) -! JVRP(8607) = dARP(5374)/dV(4427) - JVRP(8607) = V(5252) -! JVRP(8608) = dARP(5374)/dV(5252) - JVRP(8608) = V(4427) -! JVRP(8609) = dARP(5375)/dV(4427) - JVRP(8609) = V(5253) -! JVRP(8610) = dARP(5375)/dV(5253) - JVRP(8610) = V(4427) -! JVRP(8611) = dARP(5376)/dV(4427) - JVRP(8611) = V(5256) -! JVRP(8612) = dARP(5376)/dV(5256) - JVRP(8612) = V(4427) -! JVRP(8613) = dARP(5377)/dV(4427) - JVRP(8613) = 1 -! JVRP(8614) = dARP(5378)/dV(4427) - JVRP(8614) = 1 -! JVRP(8615) = dARP(5379)/dV(4804) - JVRP(8615) = V(5255) -! JVRP(8616) = dARP(5379)/dV(5255) - JVRP(8616) = V(4804) -! JVRP(8617) = dARP(5380)/dV(4804) - JVRP(8617) = V(5252) -! JVRP(8618) = dARP(5380)/dV(5252) - JVRP(8618) = V(4804) -! JVRP(8619) = dARP(5381)/dV(4804) - JVRP(8619) = V(5256) -! JVRP(8620) = dARP(5381)/dV(5256) - JVRP(8620) = V(4804) -! JVRP(8621) = dARP(5382)/dV(4804) - JVRP(8621) = 1 -! JVRP(8622) = dARP(5383)/dV(4804) - JVRP(8622) = 1 -! JVRP(8623) = dARP(5384)/dV(4804) - JVRP(8623) = 1 -! JVRP(8624) = dARP(5385)/dV(4889) - JVRP(8624) = V(5255) -! JVRP(8625) = dARP(5385)/dV(5255) - JVRP(8625) = V(4889) -! JVRP(8626) = dARP(5386)/dV(4889) - JVRP(8626) = V(5252) -! JVRP(8627) = dARP(5386)/dV(5252) - JVRP(8627) = V(4889) -! JVRP(8628) = dARP(5387)/dV(4889) - JVRP(8628) = V(5256) -! JVRP(8629) = dARP(5387)/dV(5256) - JVRP(8629) = V(4889) -! JVRP(8630) = dARP(5388)/dV(4889) - JVRP(8630) = 1 -! JVRP(8631) = dARP(5389)/dV(4889) - JVRP(8631) = 1 -! JVRP(8632) = dARP(5390)/dV(4889) - JVRP(8632) = 1 -! JVRP(8633) = dARP(5391)/dV(4283) - JVRP(8633) = V(5255) -! JVRP(8634) = dARP(5391)/dV(5255) - JVRP(8634) = V(4283) -! JVRP(8635) = dARP(5392)/dV(4283) - JVRP(8635) = V(5255) -! JVRP(8636) = dARP(5392)/dV(5255) - JVRP(8636) = V(4283) -! JVRP(8637) = dARP(5393)/dV(4283) - JVRP(8637) = V(5252) -! JVRP(8638) = dARP(5393)/dV(5252) - JVRP(8638) = V(4283) -! JVRP(8639) = dARP(5394)/dV(4283) - JVRP(8639) = V(5253) -! JVRP(8640) = dARP(5394)/dV(5253) - JVRP(8640) = V(4283) -! JVRP(8641) = dARP(5395)/dV(4283) - JVRP(8641) = V(5256) -! JVRP(8642) = dARP(5395)/dV(5256) - JVRP(8642) = V(4283) -! JVRP(8643) = dARP(5396)/dV(4283) - JVRP(8643) = 1 -! JVRP(8644) = dARP(5397)/dV(4590) - JVRP(8644) = V(5255) -! JVRP(8645) = dARP(5397)/dV(5255) - JVRP(8645) = V(4590) -! JVRP(8646) = dARP(5398)/dV(4590) - JVRP(8646) = V(5252) -! JVRP(8647) = dARP(5398)/dV(5252) - JVRP(8647) = V(4590) -! JVRP(8648) = dARP(5399)/dV(4590) - JVRP(8648) = V(5256) -! JVRP(8649) = dARP(5399)/dV(5256) - JVRP(8649) = V(4590) -! JVRP(8650) = dARP(5400)/dV(4590) - JVRP(8650) = 1 -! JVRP(8651) = dARP(5401)/dV(4590) - JVRP(8651) = 1 -! JVRP(8652) = dARP(5402)/dV(4590) - JVRP(8652) = 1 -! JVRP(8653) = dARP(5403)/dV(4719) - JVRP(8653) = V(5255) -! JVRP(8654) = dARP(5403)/dV(5255) - JVRP(8654) = V(4719) -! JVRP(8655) = dARP(5404)/dV(4719) - JVRP(8655) = V(5252) -! JVRP(8656) = dARP(5404)/dV(5252) - JVRP(8656) = V(4719) -! JVRP(8657) = dARP(5405)/dV(4719) - JVRP(8657) = V(5256) -! JVRP(8658) = dARP(5405)/dV(5256) - JVRP(8658) = V(4719) -! JVRP(8659) = dARP(5406)/dV(4719) - JVRP(8659) = 1 -! JVRP(8660) = dARP(5407)/dV(4719) - JVRP(8660) = 1 -! JVRP(8661) = dARP(5408)/dV(4719) - JVRP(8661) = 1 -! JVRP(8662) = dARP(5409)/dV(4951) - JVRP(8662) = V(5256) -! JVRP(8663) = dARP(5409)/dV(5256) - JVRP(8663) = V(4951) -! JVRP(8664) = dARP(5410)/dV(4951) - JVRP(8664) = V(5258) -! JVRP(8665) = dARP(5410)/dV(5258) - JVRP(8665) = V(4951) -! JVRP(8666) = dARP(5411)/dV(4951) - JVRP(8666) = V(5250) -! JVRP(8667) = dARP(5411)/dV(5250) - JVRP(8667) = V(4951) -! JVRP(8668) = dARP(5412)/dV(4916) - JVRP(8668) = V(5255) -! JVRP(8669) = dARP(5412)/dV(5255) - JVRP(8669) = V(4916) -! JVRP(8670) = dARP(5413)/dV(4916) - JVRP(8670) = V(5255) -! JVRP(8671) = dARP(5413)/dV(5255) - JVRP(8671) = V(4916) -! JVRP(8672) = dARP(5414)/dV(4916) - JVRP(8672) = V(5255) -! JVRP(8673) = dARP(5414)/dV(5255) - JVRP(8673) = V(4916) -! JVRP(8674) = dARP(5415)/dV(4916) - JVRP(8674) = V(5252) -! JVRP(8675) = dARP(5415)/dV(5252) - JVRP(8675) = V(4916) -! JVRP(8676) = dARP(5416)/dV(4916) - JVRP(8676) = V(5253) -! JVRP(8677) = dARP(5416)/dV(5253) - JVRP(8677) = V(4916) -! JVRP(8678) = dARP(5417)/dV(4916) - JVRP(8678) = V(5256) -! JVRP(8679) = dARP(5417)/dV(5256) - JVRP(8679) = V(4916) -! JVRP(8680) = dARP(5418)/dV(4916) - JVRP(8680) = 1 -! JVRP(8681) = dARP(5419)/dV(4916) - JVRP(8681) = 1 -! JVRP(8682) = dARP(5420)/dV(1210) - JVRP(8682) = V(5250) -! JVRP(8683) = dARP(5420)/dV(5250) - JVRP(8683) = V(1210) -! JVRP(8684) = dARP(5421)/dV(1210) - JVRP(8684) = 1 -! JVRP(8685) = dARP(5422)/dV(1417) - JVRP(8685) = V(5250) -! JVRP(8686) = dARP(5422)/dV(5250) - JVRP(8686) = V(1417) -! JVRP(8687) = dARP(5423)/dV(1417) - JVRP(8687) = 1 -! JVRP(8688) = dARP(5424)/dV(2955) - JVRP(8688) = V(5250) -! JVRP(8689) = dARP(5424)/dV(5250) - JVRP(8689) = V(2955) -! JVRP(8690) = dARP(5425)/dV(2955) - JVRP(8690) = 1 -! JVRP(8691) = dARP(5426)/dV(4822) - JVRP(8691) = V(5255) -! JVRP(8692) = dARP(5426)/dV(5255) - JVRP(8692) = V(4822) -! JVRP(8693) = dARP(5427)/dV(4822) - JVRP(8693) = V(5255) -! JVRP(8694) = dARP(5427)/dV(5255) - JVRP(8694) = V(4822) -! JVRP(8695) = dARP(5428)/dV(4822) - JVRP(8695) = V(5255) -! JVRP(8696) = dARP(5428)/dV(5255) - JVRP(8696) = V(4822) -! JVRP(8697) = dARP(5429)/dV(4822) - JVRP(8697) = V(5252) -! JVRP(8698) = dARP(5429)/dV(5252) - JVRP(8698) = V(4822) -! JVRP(8699) = dARP(5430)/dV(4822) - JVRP(8699) = V(5253) -! JVRP(8700) = dARP(5430)/dV(5253) - JVRP(8700) = V(4822) -! JVRP(8701) = dARP(5431)/dV(4822) - JVRP(8701) = V(5256) -! JVRP(8702) = dARP(5431)/dV(5256) - JVRP(8702) = V(4822) -! JVRP(8703) = dARP(5432)/dV(4822) - JVRP(8703) = 1 -! JVRP(8704) = dARP(5433)/dV(4822) - JVRP(8704) = 1 -! JVRP(8705) = dARP(5434)/dV(4823) - JVRP(8705) = V(5255) -! JVRP(8706) = dARP(5434)/dV(5255) - JVRP(8706) = V(4823) -! JVRP(8707) = dARP(5435)/dV(4823) - JVRP(8707) = V(5252) -! JVRP(8708) = dARP(5435)/dV(5252) - JVRP(8708) = V(4823) -! JVRP(8709) = dARP(5436)/dV(4823) - JVRP(8709) = V(5256) -! JVRP(8710) = dARP(5436)/dV(5256) - JVRP(8710) = V(4823) -! JVRP(8711) = dARP(5437)/dV(4823) - JVRP(8711) = 1 -! JVRP(8712) = dARP(5438)/dV(4823) - JVRP(8712) = 1 -! JVRP(8713) = dARP(5439)/dV(4823) - JVRP(8713) = 1 -! JVRP(8714) = dARP(5440)/dV(1016) - JVRP(8714) = V(5250) -! JVRP(8715) = dARP(5440)/dV(5250) - JVRP(8715) = V(1016) -! JVRP(8716) = dARP(5441)/dV(1016) - JVRP(8716) = 1 -! JVRP(8717) = dARP(5442)/dV(3285) - JVRP(8717) = V(5250) -! JVRP(8718) = dARP(5442)/dV(5250) - JVRP(8718) = V(3285) -! JVRP(8719) = dARP(5443)/dV(3285) - JVRP(8719) = 1 -! JVRP(8720) = dARP(5444)/dV(3576) - JVRP(8720) = 1 -! JVRP(8721) = dARP(5445)/dV(3576) - JVRP(8721) = 1 -! JVRP(8722) = dARP(5446)/dV(3416) - JVRP(8722) = V(5250) -! JVRP(8723) = dARP(5446)/dV(5250) - JVRP(8723) = V(3416) -! JVRP(8724) = dARP(5447)/dV(3416) - JVRP(8724) = 1 -! JVRP(8725) = dARP(5448)/dV(788) - JVRP(8725) = V(5250) -! JVRP(8726) = dARP(5448)/dV(5250) - JVRP(8726) = V(788) -! JVRP(8727) = dARP(5449)/dV(788) - JVRP(8727) = 1 -! JVRP(8728) = dARP(5450)/dV(3022) - JVRP(8728) = V(5250) -! JVRP(8729) = dARP(5450)/dV(5250) - JVRP(8729) = V(3022) -! JVRP(8730) = dARP(5451)/dV(3022) - JVRP(8730) = 1 -! JVRP(8731) = dARP(5452)/dV(3022) - JVRP(8731) = 1 -! JVRP(8732) = dARP(5453)/dV(2200) - JVRP(8732) = 1 -! JVRP(8733) = dARP(5454)/dV(2448) - JVRP(8733) = V(5250) -! JVRP(8734) = dARP(5454)/dV(5250) - JVRP(8734) = V(2448) -! JVRP(8735) = dARP(5455)/dV(2448) - JVRP(8735) = 1 -! JVRP(8736) = dARP(5456)/dV(1698) - JVRP(8736) = V(5250) -! JVRP(8737) = dARP(5456)/dV(5250) - JVRP(8737) = V(1698) -! JVRP(8738) = dARP(5457)/dV(1698) - JVRP(8738) = 1 -! JVRP(8739) = dARP(5458)/dV(4358) - JVRP(8739) = V(5255) -! JVRP(8740) = dARP(5458)/dV(5255) - JVRP(8740) = V(4358) -! JVRP(8741) = dARP(5459)/dV(4358) - JVRP(8741) = V(5252) -! JVRP(8742) = dARP(5459)/dV(5252) - JVRP(8742) = V(4358) -! JVRP(8743) = dARP(5460)/dV(4358) - JVRP(8743) = V(5256) -! JVRP(8744) = dARP(5460)/dV(5256) - JVRP(8744) = V(4358) -! JVRP(8745) = dARP(5461)/dV(4358) - JVRP(8745) = 1 -! JVRP(8746) = dARP(5462)/dV(4358) - JVRP(8746) = 1 -! JVRP(8747) = dARP(5463)/dV(4358) - JVRP(8747) = 1 -! JVRP(8748) = dARP(5464)/dV(3161) - JVRP(8748) = V(5256) -! JVRP(8749) = dARP(5464)/dV(5256) - JVRP(8749) = V(3161) -! JVRP(8750) = dARP(5465)/dV(3161) - JVRP(8750) = V(5250) -! JVRP(8751) = dARP(5465)/dV(5250) - JVRP(8751) = V(3161) -! JVRP(8752) = dARP(5466)/dV(2799) - JVRP(8752) = V(5250) -! JVRP(8753) = dARP(5466)/dV(5250) - JVRP(8753) = V(2799) -! JVRP(8754) = dARP(5467)/dV(2799) - JVRP(8754) = 1 -! JVRP(8755) = dARP(5468)/dV(2799) - JVRP(8755) = 1 -! JVRP(8756) = dARP(5469)/dV(2798) - JVRP(8756) = 1 -! JVRP(8757) = dARP(5470)/dV(2468) - JVRP(8757) = V(5250) -! JVRP(8758) = dARP(5470)/dV(5250) - JVRP(8758) = V(2468) -! JVRP(8759) = dARP(5471)/dV(2468) - JVRP(8759) = 1 -! JVRP(8760) = dARP(5472)/dV(4531) - JVRP(8760) = V(5253) -! JVRP(8761) = dARP(5472)/dV(5253) - JVRP(8761) = V(4531) -! JVRP(8762) = dARP(5473)/dV(4531) - JVRP(8762) = V(5258) -! JVRP(8763) = dARP(5473)/dV(5258) - JVRP(8763) = V(4531) -! JVRP(8764) = dARP(5474)/dV(614) - JVRP(8764) = 1 -! JVRP(8765) = dARP(5475)/dV(1024) - JVRP(8765) = V(5250) -! JVRP(8766) = dARP(5475)/dV(5250) - JVRP(8766) = V(1024) -! JVRP(8767) = dARP(5476)/dV(1024) - JVRP(8767) = 1 -! JVRP(8768) = dARP(5477)/dV(4603) - JVRP(8768) = 1 -! JVRP(8769) = dARP(5478)/dV(4603) - JVRP(8769) = 1 -! JVRP(8770) = dARP(5479)/dV(94) - JVRP(8770) = V(5250) -! JVRP(8771) = dARP(5479)/dV(5250) - JVRP(8771) = V(94) -! JVRP(8772) = dARP(5480)/dV(939) - JVRP(8772) = V(5250) -! JVRP(8773) = dARP(5480)/dV(5250) - JVRP(8773) = V(939) -! JVRP(8774) = dARP(5481)/dV(939) - JVRP(8774) = 1 -! JVRP(8775) = dARP(5482)/dV(4488) - JVRP(8775) = 1 -! JVRP(8776) = dARP(5483)/dV(4488) - JVRP(8776) = 1 -! JVRP(8777) = dARP(5484)/dV(136) - JVRP(8777) = V(5250) -! JVRP(8778) = dARP(5484)/dV(5250) - JVRP(8778) = V(136) -! JVRP(8779) = dARP(5485)/dV(3253) - JVRP(8779) = V(5250) -! JVRP(8780) = dARP(5485)/dV(5250) - JVRP(8780) = V(3253) -! JVRP(8781) = dARP(5486)/dV(3253) - JVRP(8781) = 1 -! JVRP(8782) = dARP(5487)/dV(3253) - JVRP(8782) = 1 -! JVRP(8783) = dARP(5488)/dV(2506) - JVRP(8783) = 1 -! JVRP(8784) = dARP(5489)/dV(1747) - JVRP(8784) = V(5250) -! JVRP(8785) = dARP(5489)/dV(5250) - JVRP(8785) = V(1747) -! JVRP(8786) = dARP(5490)/dV(1747) - JVRP(8786) = 1 -! JVRP(8787) = dARP(5491)/dV(4048) - JVRP(8787) = V(5256) -! JVRP(8788) = dARP(5491)/dV(5256) - JVRP(8788) = V(4048) -! JVRP(8789) = dARP(5492)/dV(4048) - JVRP(8789) = V(5250) -! JVRP(8790) = dARP(5492)/dV(5250) - JVRP(8790) = V(4048) -! JVRP(8791) = dARP(5493)/dV(4592) - JVRP(8791) = V(5255) -! JVRP(8792) = dARP(5493)/dV(5255) - JVRP(8792) = V(4592) -! JVRP(8793) = dARP(5494)/dV(4592) - JVRP(8793) = V(5252) -! JVRP(8794) = dARP(5494)/dV(5252) - JVRP(8794) = V(4592) -! JVRP(8795) = dARP(5495)/dV(4592) - JVRP(8795) = V(5256) -! JVRP(8796) = dARP(5495)/dV(5256) - JVRP(8796) = V(4592) -! JVRP(8797) = dARP(5496)/dV(4592) - JVRP(8797) = 1 -! JVRP(8798) = dARP(5497)/dV(4514) - JVRP(8798) = V(5253) -! JVRP(8799) = dARP(5497)/dV(5253) - JVRP(8799) = V(4514) -! JVRP(8800) = dARP(5498)/dV(4514) - JVRP(8800) = V(5258) -! JVRP(8801) = dARP(5498)/dV(5258) - JVRP(8801) = V(4514) -! JVRP(8802) = dARP(5499)/dV(628) - JVRP(8802) = 1 -! JVRP(8803) = dARP(5500)/dV(5209) - JVRP(8803) = V(5256) -! JVRP(8804) = dARP(5500)/dV(5256) - JVRP(8804) = V(5209) -! JVRP(8805) = dARP(5501)/dV(5209) - JVRP(8805) = V(5256) -! JVRP(8806) = dARP(5501)/dV(5256) - JVRP(8806) = V(5209) -! JVRP(8807) = dARP(5502)/dV(5209) - JVRP(8807) = V(5258) -! JVRP(8808) = dARP(5502)/dV(5258) - JVRP(8808) = V(5209) -! JVRP(8809) = dARP(5503)/dV(5209) - JVRP(8809) = V(5258) -! JVRP(8810) = dARP(5503)/dV(5258) - JVRP(8810) = V(5209) -! JVRP(8811) = dARP(5504)/dV(5209) - JVRP(8811) = V(5250) -! JVRP(8812) = dARP(5504)/dV(5250) - JVRP(8812) = V(5209) -! JVRP(8813) = dARP(5505)/dV(5209) - JVRP(8813) = V(5250) -! JVRP(8814) = dARP(5505)/dV(5250) - JVRP(8814) = V(5209) -! JVRP(8815) = dARP(5506)/dV(5209) - JVRP(8815) = V(5250) -! JVRP(8816) = dARP(5506)/dV(5250) - JVRP(8816) = V(5209) -! JVRP(8817) = dARP(5507)/dV(5209) - JVRP(8817) = 1 -! JVRP(8818) = dARP(5508)/dV(5209) - JVRP(8818) = 1 -! JVRP(8819) = dARP(5509)/dV(5209) - JVRP(8819) = 1 -! JVRP(8820) = dARP(5510)/dV(5123) - JVRP(8820) = V(5256) -! JVRP(8821) = dARP(5510)/dV(5256) - JVRP(8821) = V(5123) -! JVRP(8822) = dARP(5511)/dV(5123) - JVRP(8822) = V(5258) -! JVRP(8823) = dARP(5511)/dV(5258) - JVRP(8823) = V(5123) -! JVRP(8824) = dARP(5512)/dV(5123) - JVRP(8824) = V(5258) -! JVRP(8825) = dARP(5512)/dV(5258) - JVRP(8825) = V(5123) -! JVRP(8826) = dARP(5513)/dV(5123) - JVRP(8826) = V(5250) -! JVRP(8827) = dARP(5513)/dV(5250) - JVRP(8827) = V(5123) -! JVRP(8828) = dARP(5514)/dV(5123) - JVRP(8828) = V(5250) -! JVRP(8829) = dARP(5514)/dV(5250) - JVRP(8829) = V(5123) -! JVRP(8830) = dARP(5515)/dV(5123) - JVRP(8830) = 1 -! JVRP(8831) = dARP(5516)/dV(5123) - JVRP(8831) = 1 -! JVRP(8832) = dARP(5517)/dV(4952) - JVRP(8832) = V(5256) -! JVRP(8833) = dARP(5517)/dV(5256) - JVRP(8833) = V(4952) -! JVRP(8834) = dARP(5518)/dV(4952) - JVRP(8834) = V(5258) -! JVRP(8835) = dARP(5518)/dV(5258) - JVRP(8835) = V(4952) -! JVRP(8836) = dARP(5519)/dV(4952) - JVRP(8836) = V(5250) -! JVRP(8837) = dARP(5519)/dV(5250) - JVRP(8837) = V(4952) -! JVRP(8838) = dARP(5520)/dV(4986) - JVRP(8838) = V(5255) -! JVRP(8839) = dARP(5520)/dV(5255) - JVRP(8839) = V(4986) -! JVRP(8840) = dARP(5521)/dV(4986) - JVRP(8840) = V(5255) -! JVRP(8841) = dARP(5521)/dV(5255) - JVRP(8841) = V(4986) -! JVRP(8842) = dARP(5522)/dV(4986) - JVRP(8842) = V(5255) -! JVRP(8843) = dARP(5522)/dV(5255) - JVRP(8843) = V(4986) -! JVRP(8844) = dARP(5523)/dV(4986) - JVRP(8844) = V(5252) -! JVRP(8845) = dARP(5523)/dV(5252) - JVRP(8845) = V(4986) -! JVRP(8846) = dARP(5524)/dV(4986) - JVRP(8846) = V(5253) -! JVRP(8847) = dARP(5524)/dV(5253) - JVRP(8847) = V(4986) -! JVRP(8848) = dARP(5525)/dV(4986) - JVRP(8848) = V(5256) -! JVRP(8849) = dARP(5525)/dV(5256) - JVRP(8849) = V(4986) -! JVRP(8850) = dARP(5526)/dV(4986) - JVRP(8850) = 1 -! JVRP(8851) = dARP(5527)/dV(4986) - JVRP(8851) = 1 -! JVRP(8852) = dARP(5528)/dV(1316) - JVRP(8852) = V(5250) -! JVRP(8853) = dARP(5528)/dV(5250) - JVRP(8853) = V(1316) -! JVRP(8854) = dARP(5529)/dV(1316) - JVRP(8854) = 1 -! JVRP(8855) = dARP(5530)/dV(837) - JVRP(8855) = V(5250) -! JVRP(8856) = dARP(5530)/dV(5250) - JVRP(8856) = V(837) -! JVRP(8857) = dARP(5531)/dV(837) - JVRP(8857) = 1 -! JVRP(8858) = dARP(5532)/dV(3060) - JVRP(8858) = V(5250) -! JVRP(8859) = dARP(5532)/dV(5250) - JVRP(8859) = V(3060) -! JVRP(8860) = dARP(5533)/dV(3060) - JVRP(8860) = 1 -! JVRP(8861) = dARP(5534)/dV(5102) - JVRP(8861) = V(5251) -! JVRP(8862) = dARP(5534)/dV(5251) - JVRP(8862) = V(5102) -! JVRP(8863) = dARP(5535)/dV(5102) - JVRP(8863) = V(5252) -! JVRP(8864) = dARP(5535)/dV(5252) - JVRP(8864) = V(5102) -! JVRP(8865) = dARP(5536)/dV(5102) - JVRP(8865) = V(5253) -! JVRP(8866) = dARP(5536)/dV(5253) - JVRP(8866) = V(5102) -! JVRP(8867) = dARP(5537)/dV(5102) - JVRP(8867) = V(5254) -! JVRP(8868) = dARP(5537)/dV(5254) - JVRP(8868) = V(5102) -! JVRP(8869) = dARP(5538)/dV(5102) - JVRP(8869) = 1 -! JVRP(8870) = dARP(5539)/dV(5102) - JVRP(8870) = 1 -! JVRP(8871) = dARP(5540)/dV(846) - JVRP(8871) = V(5250) -! JVRP(8872) = dARP(5540)/dV(5250) - JVRP(8872) = V(846) -! JVRP(8873) = dARP(5541)/dV(846) - JVRP(8873) = 1 -! JVRP(8874) = dARP(5542)/dV(3379) - JVRP(8874) = V(5250) -! JVRP(8875) = dARP(5542)/dV(5250) - JVRP(8875) = V(3379) -! JVRP(8876) = dARP(5543)/dV(3379) - JVRP(8876) = 1 -! JVRP(8877) = dARP(5544)/dV(3589) - JVRP(8877) = 1 -! JVRP(8878) = dARP(5545)/dV(3589) - JVRP(8878) = 1 -! JVRP(8879) = dARP(5546)/dV(3378) - JVRP(8879) = V(5250) -! JVRP(8880) = dARP(5546)/dV(5250) - JVRP(8880) = V(3378) -! JVRP(8881) = dARP(5547)/dV(3378) - JVRP(8881) = 1 -! JVRP(8882) = dARP(5548)/dV(565) - JVRP(8882) = V(5250) -! JVRP(8883) = dARP(5548)/dV(5250) - JVRP(8883) = V(565) -! JVRP(8884) = dARP(5549)/dV(565) - JVRP(8884) = 1 -! JVRP(8885) = dARP(5550)/dV(2501) - JVRP(8885) = V(5250) -! JVRP(8886) = dARP(5550)/dV(5250) - JVRP(8886) = V(2501) -! JVRP(8887) = dARP(5551)/dV(2501) - JVRP(8887) = 1 -! JVRP(8888) = dARP(5552)/dV(2501) - JVRP(8888) = 1 -! JVRP(8889) = dARP(5553)/dV(2234) - JVRP(8889) = 1 -! JVRP(8890) = dARP(5554)/dV(1806) - JVRP(8890) = V(5250) -! JVRP(8891) = dARP(5554)/dV(5250) - JVRP(8891) = V(1806) -! JVRP(8892) = dARP(5555)/dV(1806) - JVRP(8892) = 1 -! JVRP(8893) = dARP(5556)/dV(1588) - JVRP(8893) = V(5250) -! JVRP(8894) = dARP(5556)/dV(5250) - JVRP(8894) = V(1588) -! JVRP(8895) = dARP(5557)/dV(1588) - JVRP(8895) = 1 -! JVRP(8896) = dARP(5558)/dV(4591) - JVRP(8896) = V(5255) -! JVRP(8897) = dARP(5558)/dV(5255) - JVRP(8897) = V(4591) -! JVRP(8898) = dARP(5559)/dV(4591) - JVRP(8898) = V(5255) -! JVRP(8899) = dARP(5559)/dV(5255) - JVRP(8899) = V(4591) -! JVRP(8900) = dARP(5560)/dV(4591) - JVRP(8900) = V(5255) -! JVRP(8901) = dARP(5560)/dV(5255) - JVRP(8901) = V(4591) -! JVRP(8902) = dARP(5561)/dV(4591) - JVRP(8902) = V(5252) -! JVRP(8903) = dARP(5561)/dV(5252) - JVRP(8903) = V(4591) -! JVRP(8904) = dARP(5562)/dV(4591) - JVRP(8904) = V(5253) -! JVRP(8905) = dARP(5562)/dV(5253) - JVRP(8905) = V(4591) -! JVRP(8906) = dARP(5563)/dV(4591) - JVRP(8906) = V(5256) -! JVRP(8907) = dARP(5563)/dV(5256) - JVRP(8907) = V(4591) -! JVRP(8908) = dARP(5564)/dV(4591) - JVRP(8908) = 1 -! JVRP(8909) = dARP(5565)/dV(4591) - JVRP(8909) = 1 -! JVRP(8910) = dARP(5566)/dV(2175) - JVRP(8910) = V(5250) -! JVRP(8911) = dARP(5566)/dV(5250) - JVRP(8911) = V(2175) -! JVRP(8912) = dARP(5567)/dV(2175) - JVRP(8912) = 1 -! JVRP(8913) = dARP(5568)/dV(5076) - JVRP(8913) = V(5256) -! JVRP(8914) = dARP(5568)/dV(5256) - JVRP(8914) = V(5076) -! JVRP(8915) = dARP(5569)/dV(5076) - JVRP(8915) = V(5258) -! JVRP(8916) = dARP(5569)/dV(5258) - JVRP(8916) = V(5076) -! JVRP(8917) = dARP(5570)/dV(5076) - JVRP(8917) = V(5258) -! JVRP(8918) = dARP(5570)/dV(5258) - JVRP(8918) = V(5076) -! JVRP(8919) = dARP(5571)/dV(5076) - JVRP(8919) = V(5250) -! JVRP(8920) = dARP(5571)/dV(5250) - JVRP(8920) = V(5076) -! JVRP(8921) = dARP(5572)/dV(5076) - JVRP(8921) = V(5250) -! JVRP(8922) = dARP(5572)/dV(5250) - JVRP(8922) = V(5076) -! JVRP(8923) = dARP(5573)/dV(5076) - JVRP(8923) = 1 -! JVRP(8924) = dARP(5574)/dV(5076) - JVRP(8924) = 1 -! JVRP(8925) = dARP(5575)/dV(3519) - JVRP(8925) = V(5256) -! JVRP(8926) = dARP(5575)/dV(5256) - JVRP(8926) = V(3519) -! JVRP(8927) = dARP(5576)/dV(3519) - JVRP(8927) = V(5258) -! JVRP(8928) = dARP(5576)/dV(5258) - JVRP(8928) = V(3519) -! JVRP(8929) = dARP(5577)/dV(3519) - JVRP(8929) = V(5250) -! JVRP(8930) = dARP(5577)/dV(5250) - JVRP(8930) = V(3519) -! JVRP(8931) = dARP(5578)/dV(1343) - JVRP(8931) = V(5250) -! JVRP(8932) = dARP(5578)/dV(5250) - JVRP(8932) = V(1343) -! JVRP(8933) = dARP(5579)/dV(1343) - JVRP(8933) = 1 -! JVRP(8934) = dARP(5580)/dV(937) - JVRP(8934) = V(5250) -! JVRP(8935) = dARP(5580)/dV(5250) - JVRP(8935) = V(937) -! JVRP(8936) = dARP(5581)/dV(937) - JVRP(8936) = 1 -! JVRP(8937) = dARP(5582)/dV(3292) - JVRP(8937) = V(5250) -! JVRP(8938) = dARP(5582)/dV(5250) - JVRP(8938) = V(3292) -! JVRP(8939) = dARP(5583)/dV(3292) - JVRP(8939) = 1 -! JVRP(8940) = dARP(5584)/dV(4740) - JVRP(8940) = V(5255) -! JVRP(8941) = dARP(5584)/dV(5255) - JVRP(8941) = V(4740) -! JVRP(8942) = dARP(5585)/dV(4740) - JVRP(8942) = V(5255) -! JVRP(8943) = dARP(5585)/dV(5255) - JVRP(8943) = V(4740) -! JVRP(8944) = dARP(5586)/dV(4740) - JVRP(8944) = V(5255) -! JVRP(8945) = dARP(5586)/dV(5255) - JVRP(8945) = V(4740) -! JVRP(8946) = dARP(5587)/dV(4740) - JVRP(8946) = V(5252) -! JVRP(8947) = dARP(5587)/dV(5252) - JVRP(8947) = V(4740) -! JVRP(8948) = dARP(5588)/dV(4740) - JVRP(8948) = V(5253) -! JVRP(8949) = dARP(5588)/dV(5253) - JVRP(8949) = V(4740) -! JVRP(8950) = dARP(5589)/dV(4740) - JVRP(8950) = V(5256) -! JVRP(8951) = dARP(5589)/dV(5256) - JVRP(8951) = V(4740) -! JVRP(8952) = dARP(5590)/dV(4740) - JVRP(8952) = 1 -! JVRP(8953) = dARP(5591)/dV(4740) - JVRP(8953) = 1 -! JVRP(8954) = dARP(5592)/dV(4947) - JVRP(8954) = V(5255) -! JVRP(8955) = dARP(5592)/dV(5255) - JVRP(8955) = V(4947) -! JVRP(8956) = dARP(5593)/dV(4947) - JVRP(8956) = V(5252) -! JVRP(8957) = dARP(5593)/dV(5252) - JVRP(8957) = V(4947) -! JVRP(8958) = dARP(5594)/dV(4947) - JVRP(8958) = V(5256) -! JVRP(8959) = dARP(5594)/dV(5256) - JVRP(8959) = V(4947) -! JVRP(8960) = dARP(5595)/dV(4947) - JVRP(8960) = 1 -! JVRP(8961) = dARP(5596)/dV(1049) - JVRP(8961) = V(5250) -! JVRP(8962) = dARP(5596)/dV(5250) - JVRP(8962) = V(1049) -! JVRP(8963) = dARP(5597)/dV(1049) - JVRP(8963) = 1 -! JVRP(8964) = dARP(5598)/dV(3177) - JVRP(8964) = V(5250) -! JVRP(8965) = dARP(5598)/dV(5250) - JVRP(8965) = V(3177) -! JVRP(8966) = dARP(5599)/dV(3177) - JVRP(8966) = 1 -! JVRP(8967) = dARP(5600)/dV(3573) - JVRP(8967) = 1 -! JVRP(8968) = dARP(5601)/dV(3573) - JVRP(8968) = 1 -! JVRP(8969) = dARP(5602)/dV(3176) - JVRP(8969) = V(5250) -! JVRP(8970) = dARP(5602)/dV(5250) - JVRP(8970) = V(3176) -! JVRP(8971) = dARP(5603)/dV(3176) - JVRP(8971) = 1 -! JVRP(8972) = dARP(5604)/dV(764) - JVRP(8972) = V(5250) -! JVRP(8973) = dARP(5604)/dV(5250) - JVRP(8973) = V(764) -! JVRP(8974) = dARP(5605)/dV(764) - JVRP(8974) = 1 -! JVRP(8975) = dARP(5606)/dV(3469) - JVRP(8975) = V(5250) -! JVRP(8976) = dARP(5606)/dV(5250) - JVRP(8976) = V(3469) -! JVRP(8977) = dARP(5607)/dV(3469) - JVRP(8977) = 1 -! JVRP(8978) = dARP(5608)/dV(3469) - JVRP(8978) = 1 -! JVRP(8979) = dARP(5609)/dV(3469) - JVRP(8979) = 1 -! JVRP(8980) = dARP(5610)/dV(755) - JVRP(8980) = 1 -! JVRP(8981) = dARP(5611)/dV(1988) - JVRP(8981) = V(5250) -! JVRP(8982) = dARP(5611)/dV(5250) - JVRP(8982) = V(1988) -! JVRP(8983) = dARP(5612)/dV(1988) - JVRP(8983) = 1 -! JVRP(8984) = dARP(5613)/dV(1988) - JVRP(8984) = 1 -! JVRP(8985) = dARP(5614)/dV(3321) - JVRP(8985) = V(5250) -! JVRP(8986) = dARP(5614)/dV(5250) - JVRP(8986) = V(3321) -! JVRP(8987) = dARP(5615)/dV(3321) - JVRP(8987) = 1 -! JVRP(8988) = dARP(5616)/dV(3321) - JVRP(8988) = 1 -! JVRP(8989) = dARP(5617)/dV(2806) - JVRP(8989) = 1 -! JVRP(8990) = dARP(5618)/dV(1549) - JVRP(8990) = V(5250) -! JVRP(8991) = dARP(5618)/dV(5250) - JVRP(8991) = V(1549) -! JVRP(8992) = dARP(5619)/dV(1549) - JVRP(8992) = 1 -! JVRP(8993) = dARP(5620)/dV(3170) - JVRP(8993) = V(5256) -! JVRP(8994) = dARP(5620)/dV(5256) - JVRP(8994) = V(3170) -! JVRP(8995) = dARP(5621)/dV(3170) - JVRP(8995) = V(5250) -! JVRP(8996) = dARP(5621)/dV(5250) - JVRP(8996) = V(3170) -! JVRP(8997) = dARP(5622)/dV(4376) - JVRP(8997) = V(5255) -! JVRP(8998) = dARP(5622)/dV(5255) - JVRP(8998) = V(4376) -! JVRP(8999) = dARP(5623)/dV(4376) - JVRP(8999) = V(5252) -! JVRP(9000) = dARP(5623)/dV(5252) - JVRP(9000) = V(4376) -! JVRP(9001) = dARP(5624)/dV(4376) - JVRP(9001) = V(5256) -! JVRP(9002) = dARP(5624)/dV(5256) - JVRP(9002) = V(4376) -! JVRP(9003) = dARP(5625)/dV(4376) - JVRP(9003) = 1 -! JVRP(9004) = dARP(5626)/dV(1157) - JVRP(9004) = V(5250) -! JVRP(9005) = dARP(5626)/dV(5250) - JVRP(9005) = V(1157) -! JVRP(9006) = dARP(5627)/dV(1157) - JVRP(9006) = 1 -! JVRP(9007) = dARP(5628)/dV(4326) - JVRP(9007) = 1 -! JVRP(9008) = dARP(5629)/dV(4326) - JVRP(9008) = 1 -! JVRP(9009) = dARP(5630)/dV(109) - JVRP(9009) = V(5250) -! JVRP(9010) = dARP(5630)/dV(5250) - JVRP(9010) = V(109) -! JVRP(9011) = dARP(5631)/dV(4471) - JVRP(9011) = V(5253) -! JVRP(9012) = dARP(5631)/dV(5253) - JVRP(9012) = V(4471) -! JVRP(9013) = dARP(5632)/dV(4471) - JVRP(9013) = V(5258) -! JVRP(9014) = dARP(5632)/dV(5258) - JVRP(9014) = V(4471) -! JVRP(9015) = dARP(5633)/dV(723) - JVRP(9015) = 1 -! JVRP(9016) = dARP(5634)/dV(4338) - JVRP(9016) = V(5255) -! JVRP(9017) = dARP(5634)/dV(5255) - JVRP(9017) = V(4338) -! JVRP(9018) = dARP(5635)/dV(4338) - JVRP(9018) = V(5255) -! JVRP(9019) = dARP(5635)/dV(5255) - JVRP(9019) = V(4338) -! JVRP(9020) = dARP(5636)/dV(4338) - JVRP(9020) = V(5255) -! JVRP(9021) = dARP(5636)/dV(5255) - JVRP(9021) = V(4338) -! JVRP(9022) = dARP(5637)/dV(4338) - JVRP(9022) = V(5252) -! JVRP(9023) = dARP(5637)/dV(5252) - JVRP(9023) = V(4338) -! JVRP(9024) = dARP(5638)/dV(4338) - JVRP(9024) = V(5253) -! JVRP(9025) = dARP(5638)/dV(5253) - JVRP(9025) = V(4338) -! JVRP(9026) = dARP(5639)/dV(4338) - JVRP(9026) = V(5256) -! JVRP(9027) = dARP(5639)/dV(5256) - JVRP(9027) = V(4338) -! JVRP(9028) = dARP(5640)/dV(4338) - JVRP(9028) = 1 -! JVRP(9029) = dARP(5641)/dV(4338) - JVRP(9029) = 1 -! JVRP(9030) = dARP(5642)/dV(4038) - JVRP(9030) = V(5255) -! JVRP(9031) = dARP(5642)/dV(5255) - JVRP(9031) = V(4038) -! JVRP(9032) = dARP(5643)/dV(4038) - JVRP(9032) = V(5252) -! JVRP(9033) = dARP(5643)/dV(5252) - JVRP(9033) = V(4038) -! JVRP(9034) = dARP(5644)/dV(4038) - JVRP(9034) = V(5256) -! JVRP(9035) = dARP(5644)/dV(5256) - JVRP(9035) = V(4038) -! JVRP(9036) = dARP(5645)/dV(4038) - JVRP(9036) = 1 -! JVRP(9037) = dARP(5646)/dV(5089) - JVRP(9037) = V(5256) -! JVRP(9038) = dARP(5646)/dV(5256) - JVRP(9038) = V(5089) -! JVRP(9039) = dARP(5647)/dV(5089) - JVRP(9039) = V(5258) -! JVRP(9040) = dARP(5647)/dV(5258) - JVRP(9040) = V(5089) -! JVRP(9041) = dARP(5648)/dV(5089) - JVRP(9041) = V(5258) -! JVRP(9042) = dARP(5648)/dV(5258) - JVRP(9042) = V(5089) -! JVRP(9043) = dARP(5649)/dV(5089) - JVRP(9043) = V(5250) -! JVRP(9044) = dARP(5649)/dV(5250) - JVRP(9044) = V(5089) -! JVRP(9045) = dARP(5650)/dV(5089) - JVRP(9045) = V(5250) -! JVRP(9046) = dARP(5650)/dV(5250) - JVRP(9046) = V(5089) -! JVRP(9047) = dARP(5651)/dV(5089) - JVRP(9047) = 1 -! JVRP(9048) = dARP(5652)/dV(5089) - JVRP(9048) = 1 -! JVRP(9049) = dARP(5653)/dV(4895) - JVRP(9049) = V(5256) -! JVRP(9050) = dARP(5653)/dV(5256) - JVRP(9050) = V(4895) -! JVRP(9051) = dARP(5654)/dV(4895) - JVRP(9051) = V(5258) -! JVRP(9052) = dARP(5654)/dV(5258) - JVRP(9052) = V(4895) -! JVRP(9053) = dARP(5655)/dV(4895) - JVRP(9053) = V(5250) -! JVRP(9054) = dARP(5655)/dV(5250) - JVRP(9054) = V(4895) -! JVRP(9055) = dARP(5656)/dV(4927) - JVRP(9055) = V(5256) -! JVRP(9056) = dARP(5656)/dV(5256) - JVRP(9056) = V(4927) -! JVRP(9057) = dARP(5657)/dV(4927) - JVRP(9057) = V(5258) -! JVRP(9058) = dARP(5657)/dV(5258) - JVRP(9058) = V(4927) -! JVRP(9059) = dARP(5658)/dV(4927) - JVRP(9059) = V(5250) -! JVRP(9060) = dARP(5658)/dV(5250) - JVRP(9060) = V(4927) -! JVRP(9061) = dARP(5659)/dV(4773) - JVRP(9061) = V(5255) -! JVRP(9062) = dARP(5659)/dV(5255) - JVRP(9062) = V(4773) -! JVRP(9063) = dARP(5660)/dV(4773) - JVRP(9063) = V(5255) -! JVRP(9064) = dARP(5660)/dV(5255) - JVRP(9064) = V(4773) -! JVRP(9065) = dARP(5661)/dV(4773) - JVRP(9065) = V(5252) -! JVRP(9066) = dARP(5661)/dV(5252) - JVRP(9066) = V(4773) -! JVRP(9067) = dARP(5662)/dV(4773) - JVRP(9067) = V(5253) -! JVRP(9068) = dARP(5662)/dV(5253) - JVRP(9068) = V(4773) -! JVRP(9069) = dARP(5663)/dV(4773) - JVRP(9069) = V(5256) -! JVRP(9070) = dARP(5663)/dV(5256) - JVRP(9070) = V(4773) -! JVRP(9071) = dARP(5664)/dV(4773) - JVRP(9071) = 1 -! JVRP(9072) = dARP(5665)/dV(1354) - JVRP(9072) = V(5250) -! JVRP(9073) = dARP(5665)/dV(5250) - JVRP(9073) = V(1354) -! JVRP(9074) = dARP(5666)/dV(1354) - JVRP(9074) = 1 -! JVRP(9075) = dARP(5667)/dV(1296) - JVRP(9075) = V(5250) -! JVRP(9076) = dARP(5667)/dV(5250) - JVRP(9076) = V(1296) -! JVRP(9077) = dARP(5668)/dV(1296) - JVRP(9077) = 1 -! JVRP(9078) = dARP(5669)/dV(3206) - JVRP(9078) = V(5250) -! JVRP(9079) = dARP(5669)/dV(5250) - JVRP(9079) = V(3206) -! JVRP(9080) = dARP(5670)/dV(3206) - JVRP(9080) = 1 -! JVRP(9081) = dARP(5671)/dV(4684) - JVRP(9081) = V(5255) -! JVRP(9082) = dARP(5671)/dV(5255) - JVRP(9082) = V(4684) -! JVRP(9083) = dARP(5672)/dV(4684) - JVRP(9083) = V(5255) -! JVRP(9084) = dARP(5672)/dV(5255) - JVRP(9084) = V(4684) -! JVRP(9085) = dARP(5673)/dV(4684) - JVRP(9085) = V(5255) -! JVRP(9086) = dARP(5673)/dV(5255) - JVRP(9086) = V(4684) -! JVRP(9087) = dARP(5674)/dV(4684) - JVRP(9087) = V(5252) -! JVRP(9088) = dARP(5674)/dV(5252) - JVRP(9088) = V(4684) -! JVRP(9089) = dARP(5675)/dV(4684) - JVRP(9089) = V(5253) -! JVRP(9090) = dARP(5675)/dV(5253) - JVRP(9090) = V(4684) -! JVRP(9091) = dARP(5676)/dV(4684) - JVRP(9091) = V(5256) -! JVRP(9092) = dARP(5676)/dV(5256) - JVRP(9092) = V(4684) -! JVRP(9093) = dARP(5677)/dV(4684) - JVRP(9093) = 1 -! JVRP(9094) = dARP(5678)/dV(4684) - JVRP(9094) = 1 -! JVRP(9095) = dARP(5679)/dV(5001) - JVRP(9095) = V(5255) -! JVRP(9096) = dARP(5679)/dV(5255) - JVRP(9096) = V(5001) -! JVRP(9097) = dARP(5680)/dV(5001) - JVRP(9097) = V(5252) -! JVRP(9098) = dARP(5680)/dV(5252) - JVRP(9098) = V(5001) -! JVRP(9099) = dARP(5681)/dV(5001) - JVRP(9099) = V(5256) -! JVRP(9100) = dARP(5681)/dV(5256) - JVRP(9100) = V(5001) -! JVRP(9101) = dARP(5682)/dV(5001) - JVRP(9101) = 1 -! JVRP(9102) = dARP(5683)/dV(5001) - JVRP(9102) = 1 -! JVRP(9103) = dARP(5684)/dV(1415) - JVRP(9103) = V(5250) -! JVRP(9104) = dARP(5684)/dV(5250) - JVRP(9104) = V(1415) -! JVRP(9105) = dARP(5685)/dV(1415) - JVRP(9105) = 1 -! JVRP(9106) = dARP(5686)/dV(3360) - JVRP(9106) = V(5250) -! JVRP(9107) = dARP(5686)/dV(5250) - JVRP(9107) = V(3360) -! JVRP(9108) = dARP(5687)/dV(3360) - JVRP(9108) = 1 -! JVRP(9109) = dARP(5688)/dV(3614) - JVRP(9109) = 1 -! JVRP(9110) = dARP(5689)/dV(3614) - JVRP(9110) = 1 -! JVRP(9111) = dARP(5690)/dV(3359) - JVRP(9111) = V(5250) -! JVRP(9112) = dARP(5690)/dV(5250) - JVRP(9112) = V(3359) -! JVRP(9113) = dARP(5691)/dV(3359) - JVRP(9113) = 1 -! JVRP(9114) = dARP(5692)/dV(779) - JVRP(9114) = V(5250) -! JVRP(9115) = dARP(5692)/dV(5250) - JVRP(9115) = V(779) -! JVRP(9116) = dARP(5693)/dV(779) - JVRP(9116) = 1 -! JVRP(9117) = dARP(5694)/dV(1836) - JVRP(9117) = V(5250) -! JVRP(9118) = dARP(5694)/dV(5250) - JVRP(9118) = V(1836) -! JVRP(9119) = dARP(5695)/dV(1836) - JVRP(9119) = 1 -! JVRP(9120) = dARP(5696)/dV(720) - JVRP(9120) = 1 -! JVRP(9121) = dARP(5697)/dV(1610) - JVRP(9121) = V(5250) -! JVRP(9122) = dARP(5697)/dV(5250) - JVRP(9122) = V(1610) -! JVRP(9123) = dARP(5698)/dV(1610) - JVRP(9123) = 1 -! JVRP(9124) = dARP(5699)/dV(1609) - JVRP(9124) = V(5250) -! JVRP(9125) = dARP(5699)/dV(5250) - JVRP(9125) = V(1609) -! JVRP(9126) = dARP(5700)/dV(1609) - JVRP(9126) = 1 -! JVRP(9127) = dARP(5701)/dV(3125) - JVRP(9127) = V(5256) -! JVRP(9128) = dARP(5701)/dV(5256) - JVRP(9128) = V(3125) -! JVRP(9129) = dARP(5702)/dV(3125) - JVRP(9129) = V(5250) -! JVRP(9130) = dARP(5702)/dV(5250) - JVRP(9130) = V(3125) -! JVRP(9131) = dARP(5703)/dV(4075) - JVRP(9131) = V(5255) -! JVRP(9132) = dARP(5703)/dV(5255) - JVRP(9132) = V(4075) -! JVRP(9133) = dARP(5704)/dV(4075) - JVRP(9133) = V(5252) -! JVRP(9134) = dARP(5704)/dV(5252) - JVRP(9134) = V(4075) -! JVRP(9135) = dARP(5705)/dV(4075) - JVRP(9135) = V(5256) -! JVRP(9136) = dARP(5705)/dV(5256) - JVRP(9136) = V(4075) -! JVRP(9137) = dARP(5706)/dV(4075) - JVRP(9137) = 1 -! JVRP(9138) = dARP(5707)/dV(1009) - JVRP(9138) = V(5250) -! JVRP(9139) = dARP(5707)/dV(5250) - JVRP(9139) = V(1009) -! JVRP(9140) = dARP(5708)/dV(1009) - JVRP(9140) = 1 -! JVRP(9141) = dARP(5709)/dV(4448) - JVRP(9141) = 1 -! JVRP(9142) = dARP(5710)/dV(4448) - JVRP(9142) = 1 -! JVRP(9143) = dARP(5711)/dV(31) - JVRP(9143) = V(5250) -! JVRP(9144) = dARP(5711)/dV(5250) - JVRP(9144) = V(31) -! JVRP(9145) = dARP(5712)/dV(3320) - JVRP(9145) = V(5250) -! JVRP(9146) = dARP(5712)/dV(5250) - JVRP(9146) = V(3320) -! JVRP(9147) = dARP(5713)/dV(3320) - JVRP(9147) = 1 -! JVRP(9148) = dARP(5714)/dV(3320) - JVRP(9148) = 1 -! JVRP(9149) = dARP(5715)/dV(2762) - JVRP(9149) = 1 -! JVRP(9150) = dARP(5716)/dV(1664) - JVRP(9150) = V(5250) -! JVRP(9151) = dARP(5716)/dV(5250) - JVRP(9151) = V(1664) -! JVRP(9152) = dARP(5717)/dV(1664) - JVRP(9152) = 1 -! JVRP(9153) = dARP(5718)/dV(4487) - JVRP(9153) = V(5253) -! JVRP(9154) = dARP(5718)/dV(5253) - JVRP(9154) = V(4487) -! JVRP(9155) = dARP(5719)/dV(4487) - JVRP(9155) = V(5258) -! JVRP(9156) = dARP(5719)/dV(5258) - JVRP(9156) = V(4487) -! JVRP(9157) = dARP(5720)/dV(738) - JVRP(9157) = 1 -! JVRP(9158) = dARP(5721)/dV(4100) - JVRP(9158) = V(5255) -! JVRP(9159) = dARP(5721)/dV(5255) - JVRP(9159) = V(4100) -! JVRP(9160) = dARP(5722)/dV(4100) - JVRP(9160) = V(5255) -! JVRP(9161) = dARP(5722)/dV(5255) - JVRP(9161) = V(4100) -! JVRP(9162) = dARP(5723)/dV(4100) - JVRP(9162) = V(5255) -! JVRP(9163) = dARP(5723)/dV(5255) - JVRP(9163) = V(4100) -! JVRP(9164) = dARP(5724)/dV(4100) - JVRP(9164) = V(5252) -! JVRP(9165) = dARP(5724)/dV(5252) - JVRP(9165) = V(4100) -! JVRP(9166) = dARP(5725)/dV(4100) - JVRP(9166) = V(5253) -! JVRP(9167) = dARP(5725)/dV(5253) - JVRP(9167) = V(4100) -! JVRP(9168) = dARP(5726)/dV(4100) - JVRP(9168) = V(5256) -! JVRP(9169) = dARP(5726)/dV(5256) - JVRP(9169) = V(4100) -! JVRP(9170) = dARP(5727)/dV(4100) - JVRP(9170) = 1 -! JVRP(9171) = dARP(5728)/dV(4100) - JVRP(9171) = 1 -! JVRP(9172) = dARP(5729)/dV(4005) - JVRP(9172) = V(5255) -! JVRP(9173) = dARP(5729)/dV(5255) - JVRP(9173) = V(4005) -! JVRP(9174) = dARP(5730)/dV(4005) - JVRP(9174) = V(5252) -! JVRP(9175) = dARP(5730)/dV(5252) - JVRP(9175) = V(4005) -! JVRP(9176) = dARP(5731)/dV(4005) - JVRP(9176) = V(5256) -! JVRP(9177) = dARP(5731)/dV(5256) - JVRP(9177) = V(4005) -! JVRP(9178) = dARP(5732)/dV(4005) - JVRP(9178) = 1 -! JVRP(9179) = dARP(5733)/dV(5037) - JVRP(9179) = V(5258) -! JVRP(9180) = dARP(5733)/dV(5258) - JVRP(9180) = V(5037) -! JVRP(9181) = dARP(5734)/dV(5037) - JVRP(9181) = V(5250) -! JVRP(9182) = dARP(5734)/dV(5250) - JVRP(9182) = V(5037) -! JVRP(9183) = dARP(5735)/dV(5037) - JVRP(9183) = 1 -! JVRP(9184) = dARP(5736)/dV(1403) - JVRP(9184) = V(5250) -! JVRP(9185) = dARP(5736)/dV(5250) - JVRP(9185) = V(1403) -! JVRP(9186) = dARP(5737)/dV(1403) - JVRP(9186) = 1 -! JVRP(9187) = dARP(5738)/dV(941) - JVRP(9187) = V(5250) -! JVRP(9188) = dARP(5738)/dV(5250) - JVRP(9188) = V(941) -! JVRP(9189) = dARP(5739)/dV(941) - JVRP(9189) = 1 -! JVRP(9190) = dARP(5740)/dV(2569) - JVRP(9190) = V(5250) -! JVRP(9191) = dARP(5740)/dV(5250) - JVRP(9191) = V(2569) -! JVRP(9192) = dARP(5741)/dV(2569) - JVRP(9192) = 1 -! JVRP(9193) = dARP(5742)/dV(1167) - JVRP(9193) = V(5250) -! JVRP(9194) = dARP(5742)/dV(5250) - JVRP(9194) = V(1167) -! JVRP(9195) = dARP(5743)/dV(1167) - JVRP(9195) = 1 -! JVRP(9196) = dARP(5744)/dV(3340) - JVRP(9196) = V(5250) -! JVRP(9197) = dARP(5744)/dV(5250) - JVRP(9197) = V(3340) -! JVRP(9198) = dARP(5745)/dV(3340) - JVRP(9198) = 1 -! JVRP(9199) = dARP(5746)/dV(3605) - JVRP(9199) = 1 -! JVRP(9200) = dARP(5747)/dV(3605) - JVRP(9200) = 1 -! JVRP(9201) = dARP(5748)/dV(3339) - JVRP(9201) = V(5250) -! JVRP(9202) = dARP(5748)/dV(5250) - JVRP(9202) = V(3339) -! JVRP(9203) = dARP(5749)/dV(3339) - JVRP(9203) = 1 -! JVRP(9204) = dARP(5750)/dV(681) - JVRP(9204) = V(5250) -! JVRP(9205) = dARP(5750)/dV(5250) - JVRP(9205) = V(681) -! JVRP(9206) = dARP(5751)/dV(681) - JVRP(9206) = 1 -! JVRP(9207) = dARP(5752)/dV(3468) - JVRP(9207) = V(5250) -! JVRP(9208) = dARP(5752)/dV(5250) - JVRP(9208) = V(3468) -! JVRP(9209) = dARP(5753)/dV(3468) - JVRP(9209) = 1 -! JVRP(9210) = dARP(5754)/dV(3468) - JVRP(9210) = 1 -! JVRP(9211) = dARP(5755)/dV(3468) - JVRP(9211) = 1 -! JVRP(9212) = dARP(5756)/dV(2837) - JVRP(9212) = 1 -! JVRP(9213) = dARP(5757)/dV(2477) - JVRP(9213) = V(5250) -! JVRP(9214) = dARP(5757)/dV(5250) - JVRP(9214) = V(2477) -! JVRP(9215) = dARP(5758)/dV(2477) - JVRP(9215) = 1 -! JVRP(9216) = dARP(5759)/dV(2477) - JVRP(9216) = 1 -! JVRP(9217) = dARP(5760)/dV(2565) - JVRP(9217) = V(5250) -! JVRP(9218) = dARP(5760)/dV(5250) - JVRP(9218) = V(2565) -! JVRP(9219) = dARP(5761)/dV(2565) - JVRP(9219) = 1 -! JVRP(9220) = dARP(5762)/dV(2565) - JVRP(9220) = 1 -! JVRP(9221) = dARP(5763)/dV(2595) - JVRP(9221) = 1 -! JVRP(9222) = dARP(5764)/dV(1700) - JVRP(9222) = V(5250) -! JVRP(9223) = dARP(5764)/dV(5250) - JVRP(9223) = V(1700) -! JVRP(9224) = dARP(5765)/dV(1700) - JVRP(9224) = 1 -! JVRP(9225) = dARP(5766)/dV(3150) - JVRP(9225) = V(5256) -! JVRP(9226) = dARP(5766)/dV(5256) - JVRP(9226) = V(3150) -! JVRP(9227) = dARP(5767)/dV(3150) - JVRP(9227) = V(5250) -! JVRP(9228) = dARP(5767)/dV(5250) - JVRP(9228) = V(3150) -! JVRP(9229) = dARP(5768)/dV(4001) - JVRP(9229) = V(5255) -! JVRP(9230) = dARP(5768)/dV(5255) - JVRP(9230) = V(4001) -! JVRP(9231) = dARP(5769)/dV(4001) - JVRP(9231) = V(5252) -! JVRP(9232) = dARP(5769)/dV(5252) - JVRP(9232) = V(4001) -! JVRP(9233) = dARP(5770)/dV(4001) - JVRP(9233) = V(5256) -! JVRP(9234) = dARP(5770)/dV(5256) - JVRP(9234) = V(4001) -! JVRP(9235) = dARP(5771)/dV(4001) - JVRP(9235) = 1 -! JVRP(9236) = dARP(5772)/dV(996) - JVRP(9236) = V(5250) -! JVRP(9237) = dARP(5772)/dV(5250) - JVRP(9237) = V(996) -! JVRP(9238) = dARP(5773)/dV(996) - JVRP(9238) = 1 -! JVRP(9239) = dARP(5774)/dV(4012) - JVRP(9239) = 1 -! JVRP(9240) = dARP(5775)/dV(4012) - JVRP(9240) = 1 -! JVRP(9241) = dARP(5776)/dV(84) - JVRP(9241) = V(5250) -! JVRP(9242) = dARP(5776)/dV(5250) - JVRP(9242) = V(84) -! JVRP(9243) = dARP(5777)/dV(4509) - JVRP(9243) = V(5253) -! JVRP(9244) = dARP(5777)/dV(5253) - JVRP(9244) = V(4509) -! JVRP(9245) = dARP(5778)/dV(4509) - JVRP(9245) = V(5258) -! JVRP(9246) = dARP(5778)/dV(5258) - JVRP(9246) = V(4509) -! JVRP(9247) = dARP(5779)/dV(569) - JVRP(9247) = 1 -! JVRP(9248) = dARP(5780)/dV(4187) - JVRP(9248) = V(5255) -! JVRP(9249) = dARP(5780)/dV(5255) - JVRP(9249) = V(4187) -! JVRP(9250) = dARP(5781)/dV(4187) - JVRP(9250) = V(5255) -! JVRP(9251) = dARP(5781)/dV(5255) - JVRP(9251) = V(4187) -! JVRP(9252) = dARP(5782)/dV(4187) - JVRP(9252) = V(5255) -! JVRP(9253) = dARP(5782)/dV(5255) - JVRP(9253) = V(4187) -! JVRP(9254) = dARP(5783)/dV(4187) - JVRP(9254) = V(5252) -! JVRP(9255) = dARP(5783)/dV(5252) - JVRP(9255) = V(4187) -! JVRP(9256) = dARP(5784)/dV(4187) - JVRP(9256) = V(5253) -! JVRP(9257) = dARP(5784)/dV(5253) - JVRP(9257) = V(4187) -! JVRP(9258) = dARP(5785)/dV(4187) - JVRP(9258) = V(5256) -! JVRP(9259) = dARP(5785)/dV(5256) - JVRP(9259) = V(4187) -! JVRP(9260) = dARP(5786)/dV(4187) - JVRP(9260) = 1 -! JVRP(9261) = dARP(5787)/dV(4187) - JVRP(9261) = 1 -! JVRP(9262) = dARP(5788)/dV(3093) - JVRP(9262) = V(5256) -! JVRP(9263) = dARP(5788)/dV(5256) - JVRP(9263) = V(3093) -! JVRP(9264) = dARP(5789)/dV(3093) - JVRP(9264) = V(5250) -! JVRP(9265) = dARP(5789)/dV(5250) - JVRP(9265) = V(3093) -! JVRP(9266) = dARP(5790)/dV(4020) - JVRP(9266) = V(5255) -! JVRP(9267) = dARP(5790)/dV(5255) - JVRP(9267) = V(4020) -! JVRP(9268) = dARP(5791)/dV(4020) - JVRP(9268) = V(5252) -! JVRP(9269) = dARP(5791)/dV(5252) - JVRP(9269) = V(4020) -! JVRP(9270) = dARP(5792)/dV(4020) - JVRP(9270) = V(5256) -! JVRP(9271) = dARP(5792)/dV(5256) - JVRP(9271) = V(4020) -! JVRP(9272) = dARP(5793)/dV(4020) - JVRP(9272) = 1 -! JVRP(9273) = dARP(5794)/dV(938) - JVRP(9273) = V(5250) -! JVRP(9274) = dARP(5794)/dV(5250) - JVRP(9274) = V(938) -! JVRP(9275) = dARP(5795)/dV(938) - JVRP(9275) = 1 -! JVRP(9276) = dARP(5796)/dV(4045) - JVRP(9276) = 1 -! JVRP(9277) = dARP(5797)/dV(4045) - JVRP(9277) = 1 -! JVRP(9278) = dARP(5798)/dV(47) - JVRP(9278) = V(5250) -! JVRP(9279) = dARP(5798)/dV(5250) - JVRP(9279) = V(47) -! JVRP(9280) = dARP(5799)/dV(2520) - JVRP(9280) = V(5250) -! JVRP(9281) = dARP(5799)/dV(5250) - JVRP(9281) = V(2520) -! JVRP(9282) = dARP(5800)/dV(2520) - JVRP(9282) = 1 -! JVRP(9283) = dARP(5801)/dV(2520) - JVRP(9283) = 1 -! JVRP(9284) = dARP(5802)/dV(3050) - JVRP(9284) = 1 -! JVRP(9285) = dARP(5803)/dV(1613) - JVRP(9285) = V(5250) -! JVRP(9286) = dARP(5803)/dV(5250) - JVRP(9286) = V(1613) -! JVRP(9287) = dARP(5804)/dV(1613) - JVRP(9287) = 1 -! JVRP(9288) = dARP(5805)/dV(4454) - JVRP(9288) = V(5253) -! JVRP(9289) = dARP(5805)/dV(5253) - JVRP(9289) = V(4454) -! JVRP(9290) = dARP(5806)/dV(4454) - JVRP(9290) = V(5258) -! JVRP(9291) = dARP(5806)/dV(5258) - JVRP(9291) = V(4454) -! JVRP(9292) = dARP(5807)/dV(568) - JVRP(9292) = 1 -! JVRP(9293) = dARP(5808)/dV(5126) - JVRP(9293) = V(5256) -! JVRP(9294) = dARP(5808)/dV(5256) - JVRP(9294) = V(5126) -! JVRP(9295) = dARP(5809)/dV(5126) - JVRP(9295) = V(5258) -! JVRP(9296) = dARP(5809)/dV(5258) - JVRP(9296) = V(5126) -! JVRP(9297) = dARP(5810)/dV(5126) - JVRP(9297) = V(5258) -! JVRP(9298) = dARP(5810)/dV(5258) - JVRP(9298) = V(5126) -! JVRP(9299) = dARP(5811)/dV(5126) - JVRP(9299) = V(5250) -! JVRP(9300) = dARP(5811)/dV(5250) - JVRP(9300) = V(5126) -! JVRP(9301) = dARP(5812)/dV(5126) - JVRP(9301) = V(5250) -! JVRP(9302) = dARP(5812)/dV(5250) - JVRP(9302) = V(5126) -! JVRP(9303) = dARP(5813)/dV(5126) - JVRP(9303) = 1 -! JVRP(9304) = dARP(5814)/dV(5126) - JVRP(9304) = 1 -! JVRP(9305) = dARP(5815)/dV(4896) - JVRP(9305) = V(5256) -! JVRP(9306) = dARP(5815)/dV(5256) - JVRP(9306) = V(4896) -! JVRP(9307) = dARP(5816)/dV(4896) - JVRP(9307) = V(5258) -! JVRP(9308) = dARP(5816)/dV(5258) - JVRP(9308) = V(4896) -! JVRP(9309) = dARP(5817)/dV(4896) - JVRP(9309) = V(5250) -! JVRP(9310) = dARP(5817)/dV(5250) - JVRP(9310) = V(4896) -! JVRP(9311) = dARP(5818)/dV(5034) - JVRP(9311) = V(5255) -! JVRP(9312) = dARP(5818)/dV(5255) - JVRP(9312) = V(5034) -! JVRP(9313) = dARP(5819)/dV(5034) - JVRP(9313) = V(5255) -! JVRP(9314) = dARP(5819)/dV(5255) - JVRP(9314) = V(5034) -! JVRP(9315) = dARP(5820)/dV(5034) - JVRP(9315) = V(5255) -! JVRP(9316) = dARP(5820)/dV(5255) - JVRP(9316) = V(5034) -! JVRP(9317) = dARP(5821)/dV(5034) - JVRP(9317) = V(5252) -! JVRP(9318) = dARP(5821)/dV(5252) - JVRP(9318) = V(5034) -! JVRP(9319) = dARP(5822)/dV(5034) - JVRP(9319) = V(5253) -! JVRP(9320) = dARP(5822)/dV(5253) - JVRP(9320) = V(5034) -! JVRP(9321) = dARP(5823)/dV(5034) - JVRP(9321) = V(5256) -! JVRP(9322) = dARP(5823)/dV(5256) - JVRP(9322) = V(5034) -! JVRP(9323) = dARP(5824)/dV(5034) - JVRP(9323) = 1 -! JVRP(9324) = dARP(5825)/dV(5034) - JVRP(9324) = 1 -! JVRP(9325) = dARP(5826)/dV(961) - JVRP(9325) = V(5250) -! JVRP(9326) = dARP(5826)/dV(5250) - JVRP(9326) = V(961) -! JVRP(9327) = dARP(5827)/dV(961) - JVRP(9327) = 1 -! JVRP(9328) = dARP(5828)/dV(921) - JVRP(9328) = V(5250) -! JVRP(9329) = dARP(5828)/dV(5250) - JVRP(9329) = V(921) -! JVRP(9330) = dARP(5829)/dV(921) - JVRP(9330) = 1 -! JVRP(9331) = dARP(5830)/dV(2640) - JVRP(9331) = V(5250) -! JVRP(9332) = dARP(5830)/dV(5250) - JVRP(9332) = V(2640) -! JVRP(9333) = dARP(5831)/dV(2640) - JVRP(9333) = 1 -! JVRP(9334) = dARP(5832)/dV(5070) - JVRP(9334) = V(5251) -! JVRP(9335) = dARP(5832)/dV(5251) - JVRP(9335) = V(5070) -! JVRP(9336) = dARP(5833)/dV(5070) - JVRP(9336) = V(5252) -! JVRP(9337) = dARP(5833)/dV(5252) - JVRP(9337) = V(5070) -! JVRP(9338) = dARP(5834)/dV(5070) - JVRP(9338) = V(5253) -! JVRP(9339) = dARP(5834)/dV(5253) - JVRP(9339) = V(5070) -! JVRP(9340) = dARP(5835)/dV(5070) - JVRP(9340) = V(5254) -! JVRP(9341) = dARP(5835)/dV(5254) - JVRP(9341) = V(5070) -! JVRP(9342) = dARP(5836)/dV(5070) - JVRP(9342) = 1 -! JVRP(9343) = dARP(5837)/dV(5070) - JVRP(9343) = 1 -! JVRP(9344) = dARP(5838)/dV(1510) - JVRP(9344) = V(5250) -! JVRP(9345) = dARP(5838)/dV(5250) - JVRP(9345) = V(1510) -! JVRP(9346) = dARP(5839)/dV(1510) - JVRP(9346) = 1 -! JVRP(9347) = dARP(5840)/dV(3357) - JVRP(9347) = V(5250) -! JVRP(9348) = dARP(5840)/dV(5250) - JVRP(9348) = V(3357) -! JVRP(9349) = dARP(5841)/dV(3357) - JVRP(9349) = 1 -! JVRP(9350) = dARP(5842)/dV(3588) - JVRP(9350) = 1 -! JVRP(9351) = dARP(5843)/dV(3588) - JVRP(9351) = 1 -! JVRP(9352) = dARP(5844)/dV(3356) - JVRP(9352) = V(5250) -! JVRP(9353) = dARP(5844)/dV(5250) - JVRP(9353) = V(3356) -! JVRP(9354) = dARP(5845)/dV(3356) - JVRP(9354) = 1 -! JVRP(9355) = dARP(5846)/dV(683) - JVRP(9355) = V(5250) -! JVRP(9356) = dARP(5846)/dV(5250) - JVRP(9356) = V(683) -! JVRP(9357) = dARP(5847)/dV(683) - JVRP(9357) = 1 -! JVRP(9358) = dARP(5848)/dV(3238) - JVRP(9358) = V(5250) -! JVRP(9359) = dARP(5848)/dV(5250) - JVRP(9359) = V(3238) -! JVRP(9360) = dARP(5849)/dV(3238) - JVRP(9360) = 1 -! JVRP(9361) = dARP(5850)/dV(3238) - JVRP(9361) = 1 -! JVRP(9362) = dARP(5851)/dV(1760) - JVRP(9362) = 1 -! JVRP(9363) = dARP(5852)/dV(1598) - JVRP(9363) = V(5250) -! JVRP(9364) = dARP(5852)/dV(5250) - JVRP(9364) = V(1598) -! JVRP(9365) = dARP(5853)/dV(1598) - JVRP(9365) = 1 -! JVRP(9366) = dARP(5854)/dV(2714) - JVRP(9366) = V(5250) -! JVRP(9367) = dARP(5854)/dV(5250) - JVRP(9367) = V(2714) -! JVRP(9368) = dARP(5855)/dV(2714) - JVRP(9368) = 1 -! JVRP(9369) = dARP(5856)/dV(4030) - JVRP(9369) = V(5255) -! JVRP(9370) = dARP(5856)/dV(5255) - JVRP(9370) = V(4030) -! JVRP(9371) = dARP(5857)/dV(4030) - JVRP(9371) = V(5252) -! JVRP(9372) = dARP(5857)/dV(5252) - JVRP(9372) = V(4030) -! JVRP(9373) = dARP(5858)/dV(4030) - JVRP(9373) = V(5256) -! JVRP(9374) = dARP(5858)/dV(5256) - JVRP(9374) = V(4030) -! JVRP(9375) = dARP(5859)/dV(4030) - JVRP(9375) = 1 -! JVRP(9376) = dARP(5860)/dV(4030) - JVRP(9376) = 1 -! JVRP(9377) = dARP(5861)/dV(4030) - JVRP(9377) = 1 -! JVRP(9378) = dARP(5862)/dV(3319) - JVRP(9378) = V(5250) -! JVRP(9379) = dARP(5862)/dV(5250) - JVRP(9379) = V(3319) -! JVRP(9380) = dARP(5863)/dV(3319) - JVRP(9380) = 1 -! JVRP(9381) = dARP(5864)/dV(3319) - JVRP(9381) = 1 -! JVRP(9382) = dARP(5865)/dV(2493) - JVRP(9382) = 1 -! JVRP(9383) = dARP(5866)/dV(1672) - JVRP(9383) = V(5250) -! JVRP(9384) = dARP(5866)/dV(5250) - JVRP(9384) = V(1672) -! JVRP(9385) = dARP(5867)/dV(1672) - JVRP(9385) = 1 -! JVRP(9386) = dARP(5868)/dV(3140) - JVRP(9386) = V(5256) -! JVRP(9387) = dARP(5868)/dV(5256) - JVRP(9387) = V(3140) -! JVRP(9388) = dARP(5869)/dV(3140) - JVRP(9388) = V(5250) -! JVRP(9389) = dARP(5869)/dV(5250) - JVRP(9389) = V(3140) -! JVRP(9390) = dARP(5870)/dV(4016) - JVRP(9390) = V(5255) -! JVRP(9391) = dARP(5870)/dV(5255) - JVRP(9391) = V(4016) -! JVRP(9392) = dARP(5871)/dV(4016) - JVRP(9392) = V(5252) -! JVRP(9393) = dARP(5871)/dV(5252) - JVRP(9393) = V(4016) -! JVRP(9394) = dARP(5872)/dV(4016) - JVRP(9394) = V(5256) -! JVRP(9395) = dARP(5872)/dV(5256) - JVRP(9395) = V(4016) -! JVRP(9396) = dARP(5873)/dV(4016) - JVRP(9396) = 1 -! JVRP(9397) = dARP(5874)/dV(1023) - JVRP(9397) = V(5250) -! JVRP(9398) = dARP(5874)/dV(5250) - JVRP(9398) = V(1023) -! JVRP(9399) = dARP(5875)/dV(1023) - JVRP(9399) = 1 -! JVRP(9400) = dARP(5876)/dV(4619) - JVRP(9400) = 1 -! JVRP(9401) = dARP(5877)/dV(4619) - JVRP(9401) = 1 -! JVRP(9402) = dARP(5878)/dV(143) - JVRP(9402) = V(5250) -! JVRP(9403) = dARP(5878)/dV(5250) - JVRP(9403) = V(143) -! JVRP(9404) = dARP(5879)/dV(4466) - JVRP(9404) = V(5253) -! JVRP(9405) = dARP(5879)/dV(5253) - JVRP(9405) = V(4466) -! JVRP(9406) = dARP(5880)/dV(4466) - JVRP(9406) = V(5258) -! JVRP(9407) = dARP(5880)/dV(5258) - JVRP(9407) = V(4466) -! JVRP(9408) = dARP(5881)/dV(538) - JVRP(9408) = 1 -! JVRP(9409) = dARP(5882)/dV(4918) - JVRP(9409) = V(5256) -! JVRP(9410) = dARP(5882)/dV(5256) - JVRP(9410) = V(4918) -! JVRP(9411) = dARP(5883)/dV(4918) - JVRP(9411) = V(5250) -! JVRP(9412) = dARP(5883)/dV(5250) - JVRP(9412) = V(4918) -! JVRP(9413) = dARP(5884)/dV(4918) - JVRP(9413) = 1 -! JVRP(9414) = dARP(5885)/dV(5066) - JVRP(9414) = V(5256) -! JVRP(9415) = dARP(5885)/dV(5256) - JVRP(9415) = V(5066) -! JVRP(9416) = dARP(5886)/dV(5066) - JVRP(9416) = V(5258) -! JVRP(9417) = dARP(5886)/dV(5258) - JVRP(9417) = V(5066) -! JVRP(9418) = dARP(5887)/dV(5066) - JVRP(9418) = V(5258) -! JVRP(9419) = dARP(5887)/dV(5258) - JVRP(9419) = V(5066) -! JVRP(9420) = dARP(5888)/dV(5066) - JVRP(9420) = V(5250) -! JVRP(9421) = dARP(5888)/dV(5250) - JVRP(9421) = V(5066) -! JVRP(9422) = dARP(5889)/dV(5066) - JVRP(9422) = V(5250) -! JVRP(9423) = dARP(5889)/dV(5250) - JVRP(9423) = V(5066) -! JVRP(9424) = dARP(5890)/dV(5066) - JVRP(9424) = 1 -! JVRP(9425) = dARP(5891)/dV(5066) - JVRP(9425) = 1 -! JVRP(9426) = dARP(5892)/dV(4637) - JVRP(9426) = V(5256) -! JVRP(9427) = dARP(5892)/dV(5256) - JVRP(9427) = V(4637) -! JVRP(9428) = dARP(5893)/dV(4637) - JVRP(9428) = V(5258) -! JVRP(9429) = dARP(5893)/dV(5258) - JVRP(9429) = V(4637) -! JVRP(9430) = dARP(5894)/dV(4637) - JVRP(9430) = V(5250) -! JVRP(9431) = dARP(5894)/dV(5250) - JVRP(9431) = V(4637) -! JVRP(9432) = dARP(5895)/dV(4917) - JVRP(9432) = V(5255) -! JVRP(9433) = dARP(5895)/dV(5255) - JVRP(9433) = V(4917) -! JVRP(9434) = dARP(5896)/dV(4917) - JVRP(9434) = V(5255) -! JVRP(9435) = dARP(5896)/dV(5255) - JVRP(9435) = V(4917) -! JVRP(9436) = dARP(5897)/dV(4917) - JVRP(9436) = V(5255) -! JVRP(9437) = dARP(5897)/dV(5255) - JVRP(9437) = V(4917) -! JVRP(9438) = dARP(5898)/dV(4917) - JVRP(9438) = V(5252) -! JVRP(9439) = dARP(5898)/dV(5252) - JVRP(9439) = V(4917) -! JVRP(9440) = dARP(5899)/dV(4917) - JVRP(9440) = V(5253) -! JVRP(9441) = dARP(5899)/dV(5253) - JVRP(9441) = V(4917) -! JVRP(9442) = dARP(5900)/dV(4917) - JVRP(9442) = V(5256) -! JVRP(9443) = dARP(5900)/dV(5256) - JVRP(9443) = V(4917) -! JVRP(9444) = dARP(5901)/dV(4917) - JVRP(9444) = 1 -! JVRP(9445) = dARP(5902)/dV(4917) - JVRP(9445) = 1 -! JVRP(9446) = dARP(5903)/dV(1073) - JVRP(9446) = V(5250) -! JVRP(9447) = dARP(5903)/dV(5250) - JVRP(9447) = V(1073) -! JVRP(9448) = dARP(5904)/dV(1073) - JVRP(9448) = 1 -! JVRP(9449) = dARP(5905)/dV(1031) - JVRP(9449) = V(5250) -! JVRP(9450) = dARP(5905)/dV(5250) - JVRP(9450) = V(1031) -! JVRP(9451) = dARP(5906)/dV(1031) - JVRP(9451) = 1 -! JVRP(9452) = dARP(5907)/dV(2656) - JVRP(9452) = V(5250) -! JVRP(9453) = dARP(5907)/dV(5250) - JVRP(9453) = V(2656) -! JVRP(9454) = dARP(5908)/dV(2656) - JVRP(9454) = 1 -! JVRP(9455) = dARP(5909)/dV(4997) - JVRP(9455) = V(5251) -! JVRP(9456) = dARP(5909)/dV(5251) - JVRP(9456) = V(4997) -! JVRP(9457) = dARP(5910)/dV(4997) - JVRP(9457) = V(5252) -! JVRP(9458) = dARP(5910)/dV(5252) - JVRP(9458) = V(4997) -! JVRP(9459) = dARP(5911)/dV(4997) - JVRP(9459) = V(5253) -! JVRP(9460) = dARP(5911)/dV(5253) - JVRP(9460) = V(4997) -! JVRP(9461) = dARP(5912)/dV(4997) - JVRP(9461) = V(5254) -! JVRP(9462) = dARP(5912)/dV(5254) - JVRP(9462) = V(4997) -! JVRP(9463) = dARP(5913)/dV(4997) - JVRP(9463) = 1 -! JVRP(9464) = dARP(5914)/dV(4997) - JVRP(9464) = 1 -! JVRP(9465) = dARP(5915)/dV(851) - JVRP(9465) = V(5250) -! JVRP(9466) = dARP(5915)/dV(5250) - JVRP(9466) = V(851) -! JVRP(9467) = dARP(5916)/dV(851) - JVRP(9467) = 1 -! JVRP(9468) = dARP(5917)/dV(3427) - JVRP(9468) = V(5250) -! JVRP(9469) = dARP(5917)/dV(5250) - JVRP(9469) = V(3427) -! JVRP(9470) = dARP(5918)/dV(3427) - JVRP(9470) = 1 -! JVRP(9471) = dARP(5919)/dV(4388) - JVRP(9471) = 1 -! JVRP(9472) = dARP(5920)/dV(4388) - JVRP(9472) = 1 -! JVRP(9473) = dARP(5921)/dV(3426) - JVRP(9473) = V(5250) -! JVRP(9474) = dARP(5921)/dV(5250) - JVRP(9474) = V(3426) -! JVRP(9475) = dARP(5922)/dV(3426) - JVRP(9475) = 1 -! JVRP(9476) = dARP(5923)/dV(732) - JVRP(9476) = V(5250) -! JVRP(9477) = dARP(5923)/dV(5250) - JVRP(9477) = V(732) -! JVRP(9478) = dARP(5924)/dV(732) - JVRP(9478) = 1 -! JVRP(9479) = dARP(5925)/dV(2559) - JVRP(9479) = V(5250) -! JVRP(9480) = dARP(5925)/dV(5250) - JVRP(9480) = V(2559) -! JVRP(9481) = dARP(5926)/dV(2559) - JVRP(9481) = 1 -! JVRP(9482) = dARP(5927)/dV(2559) - JVRP(9482) = 1 -! JVRP(9483) = dARP(5928)/dV(2117) - JVRP(9483) = 1 -! JVRP(9484) = dARP(5929)/dV(1623) - JVRP(9484) = V(5250) -! JVRP(9485) = dARP(5929)/dV(5250) - JVRP(9485) = V(1623) -! JVRP(9486) = dARP(5930)/dV(1623) - JVRP(9486) = 1 -! JVRP(9487) = dARP(5931)/dV(2645) - JVRP(9487) = V(5250) -! JVRP(9488) = dARP(5931)/dV(5250) - JVRP(9488) = V(2645) -! JVRP(9489) = dARP(5932)/dV(2645) - JVRP(9489) = 1 -! JVRP(9490) = dARP(5933)/dV(1878) - JVRP(9490) = V(5250) -! JVRP(9491) = dARP(5933)/dV(5250) - JVRP(9491) = V(1878) -! JVRP(9492) = dARP(5934)/dV(1878) - JVRP(9492) = 1 -! JVRP(9493) = dARP(5935)/dV(3165) - JVRP(9493) = V(5256) -! JVRP(9494) = dARP(5935)/dV(5256) - JVRP(9494) = V(3165) -! JVRP(9495) = dARP(5936)/dV(3165) - JVRP(9495) = V(5250) -! JVRP(9496) = dARP(5936)/dV(5250) - JVRP(9496) = V(3165) -! JVRP(9497) = dARP(5937)/dV(4063) - JVRP(9497) = V(5255) -! JVRP(9498) = dARP(5937)/dV(5255) - JVRP(9498) = V(4063) -! JVRP(9499) = dARP(5938)/dV(4063) - JVRP(9499) = V(5252) -! JVRP(9500) = dARP(5938)/dV(5252) - JVRP(9500) = V(4063) -! JVRP(9501) = dARP(5939)/dV(4063) - JVRP(9501) = V(5256) -! JVRP(9502) = dARP(5939)/dV(5256) - JVRP(9502) = V(4063) -! JVRP(9503) = dARP(5940)/dV(4063) - JVRP(9503) = 1 -! JVRP(9504) = dARP(5941)/dV(1232) - JVRP(9504) = V(5250) -! JVRP(9505) = dARP(5941)/dV(5250) - JVRP(9505) = V(1232) -! JVRP(9506) = dARP(5942)/dV(1232) - JVRP(9506) = 1 -! JVRP(9507) = dARP(5943)/dV(4743) - JVRP(9507) = 1 -! JVRP(9508) = dARP(5944)/dV(4743) - JVRP(9508) = 1 -! JVRP(9509) = dARP(5945)/dV(71) - JVRP(9509) = V(5250) -! JVRP(9510) = dARP(5945)/dV(5250) - JVRP(9510) = V(71) -! JVRP(9511) = dARP(5946)/dV(2709) - JVRP(9511) = V(5250) -! JVRP(9512) = dARP(5946)/dV(5250) - JVRP(9512) = V(2709) -! JVRP(9513) = dARP(5947)/dV(2709) - JVRP(9513) = 1 -! JVRP(9514) = dARP(5948)/dV(2709) - JVRP(9514) = 1 -! JVRP(9515) = dARP(5949)/dV(3027) - JVRP(9515) = 1 -! JVRP(9516) = dARP(5950)/dV(1717) - JVRP(9516) = V(5250) -! JVRP(9517) = dARP(5950)/dV(5250) - JVRP(9517) = V(1717) -! JVRP(9518) = dARP(5951)/dV(1717) - JVRP(9518) = 1 -! JVRP(9519) = dARP(5952)/dV(4444) - JVRP(9519) = V(5253) -! JVRP(9520) = dARP(5952)/dV(5253) - JVRP(9520) = V(4444) -! JVRP(9521) = dARP(5953)/dV(4444) - JVRP(9521) = V(5258) -! JVRP(9522) = dARP(5953)/dV(5258) - JVRP(9522) = V(4444) -! JVRP(9523) = dARP(5954)/dV(700) - JVRP(9523) = 1 -! JVRP(9524) = dARP(5955)/dV(5068) - JVRP(9524) = V(5256) -! JVRP(9525) = dARP(5955)/dV(5256) - JVRP(9525) = V(5068) -! JVRP(9526) = dARP(5956)/dV(5068) - JVRP(9526) = V(5258) -! JVRP(9527) = dARP(5956)/dV(5258) - JVRP(9527) = V(5068) -! JVRP(9528) = dARP(5957)/dV(5068) - JVRP(9528) = V(5258) -! JVRP(9529) = dARP(5957)/dV(5258) - JVRP(9529) = V(5068) -! JVRP(9530) = dARP(5958)/dV(5068) - JVRP(9530) = V(5250) -! JVRP(9531) = dARP(5958)/dV(5250) - JVRP(9531) = V(5068) -! JVRP(9532) = dARP(5959)/dV(5068) - JVRP(9532) = V(5250) -! JVRP(9533) = dARP(5959)/dV(5250) - JVRP(9533) = V(5068) -! JVRP(9534) = dARP(5960)/dV(5068) - JVRP(9534) = 1 -! JVRP(9535) = dARP(5961)/dV(5068) - JVRP(9535) = 1 -! JVRP(9536) = dARP(5962)/dV(5068) - JVRP(9536) = 1 -! JVRP(9537) = dARP(5963)/dV(4650) - JVRP(9537) = V(5256) -! JVRP(9538) = dARP(5963)/dV(5256) - JVRP(9538) = V(4650) -! JVRP(9539) = dARP(5964)/dV(4650) - JVRP(9539) = V(5258) -! JVRP(9540) = dARP(5964)/dV(5258) - JVRP(9540) = V(4650) -! JVRP(9541) = dARP(5965)/dV(4650) - JVRP(9541) = V(5250) -! JVRP(9542) = dARP(5965)/dV(5250) - JVRP(9542) = V(4650) -! JVRP(9543) = dARP(5966)/dV(4930) - JVRP(9543) = V(5255) -! JVRP(9544) = dARP(5966)/dV(5255) - JVRP(9544) = V(4930) -! JVRP(9545) = dARP(5967)/dV(4930) - JVRP(9545) = V(5255) -! JVRP(9546) = dARP(5967)/dV(5255) - JVRP(9546) = V(4930) -! JVRP(9547) = dARP(5968)/dV(4930) - JVRP(9547) = V(5255) -! JVRP(9548) = dARP(5968)/dV(5255) - JVRP(9548) = V(4930) -! JVRP(9549) = dARP(5969)/dV(4930) - JVRP(9549) = V(5252) -! JVRP(9550) = dARP(5969)/dV(5252) - JVRP(9550) = V(4930) -! JVRP(9551) = dARP(5970)/dV(4930) - JVRP(9551) = V(5253) -! JVRP(9552) = dARP(5970)/dV(5253) - JVRP(9552) = V(4930) -! JVRP(9553) = dARP(5971)/dV(4930) - JVRP(9553) = V(5256) -! JVRP(9554) = dARP(5971)/dV(5256) - JVRP(9554) = V(4930) -! JVRP(9555) = dARP(5972)/dV(4930) - JVRP(9555) = 1 -! JVRP(9556) = dARP(5973)/dV(4930) - JVRP(9556) = 1 -! JVRP(9557) = dARP(5974)/dV(1174) - JVRP(9557) = V(5250) -! JVRP(9558) = dARP(5974)/dV(5250) - JVRP(9558) = V(1174) -! JVRP(9559) = dARP(5975)/dV(1174) - JVRP(9559) = 1 -! JVRP(9560) = dARP(5976)/dV(910) - JVRP(9560) = V(5250) -! JVRP(9561) = dARP(5976)/dV(5250) - JVRP(9561) = V(910) -! JVRP(9562) = dARP(5977)/dV(910) - JVRP(9562) = 1 -! JVRP(9563) = dARP(5978)/dV(2915) - JVRP(9563) = V(5250) -! JVRP(9564) = dARP(5978)/dV(5250) - JVRP(9564) = V(2915) -! JVRP(9565) = dARP(5979)/dV(2915) - JVRP(9565) = 1 -! JVRP(9566) = dARP(5980)/dV(4998) - JVRP(9566) = V(5251) -! JVRP(9567) = dARP(5980)/dV(5251) - JVRP(9567) = V(4998) -! JVRP(9568) = dARP(5981)/dV(4998) - JVRP(9568) = V(5252) -! JVRP(9569) = dARP(5981)/dV(5252) - JVRP(9569) = V(4998) -! JVRP(9570) = dARP(5982)/dV(4998) - JVRP(9570) = V(5253) -! JVRP(9571) = dARP(5982)/dV(5253) - JVRP(9571) = V(4998) -! JVRP(9572) = dARP(5983)/dV(4998) - JVRP(9572) = V(5254) -! JVRP(9573) = dARP(5983)/dV(5254) - JVRP(9573) = V(4998) -! JVRP(9574) = dARP(5984)/dV(4998) - JVRP(9574) = 1 -! JVRP(9575) = dARP(5985)/dV(4998) - JVRP(9575) = 1 -! JVRP(9576) = dARP(5986)/dV(1065) - JVRP(9576) = V(5250) -! JVRP(9577) = dARP(5986)/dV(5250) - JVRP(9577) = V(1065) -! JVRP(9578) = dARP(5987)/dV(1065) - JVRP(9578) = 1 -! JVRP(9579) = dARP(5988)/dV(3353) - JVRP(9579) = V(5250) -! JVRP(9580) = dARP(5988)/dV(5250) - JVRP(9580) = V(3353) -! JVRP(9581) = dARP(5989)/dV(3353) - JVRP(9581) = 1 -! JVRP(9582) = dARP(5990)/dV(4393) - JVRP(9582) = 1 -! JVRP(9583) = dARP(5991)/dV(4393) - JVRP(9583) = 1 -! JVRP(9584) = dARP(5992)/dV(3352) - JVRP(9584) = V(5250) -! JVRP(9585) = dARP(5992)/dV(5250) - JVRP(9585) = V(3352) -! JVRP(9586) = dARP(5993)/dV(3352) - JVRP(9586) = 1 -! JVRP(9587) = dARP(5994)/dV(531) - JVRP(9587) = V(5250) -! JVRP(9588) = dARP(5994)/dV(5250) - JVRP(9588) = V(531) -! JVRP(9589) = dARP(5995)/dV(531) - JVRP(9589) = 1 -! JVRP(9590) = dARP(5996)/dV(2601) - JVRP(9590) = V(5250) -! JVRP(9591) = dARP(5996)/dV(5250) - JVRP(9591) = V(2601) -! JVRP(9592) = dARP(5997)/dV(2601) - JVRP(9592) = 1 -! JVRP(9593) = dARP(5998)/dV(2601) - JVRP(9593) = 1 -! JVRP(9594) = dARP(5999)/dV(1951) - JVRP(9594) = 1 -! JVRP(9595) = dARP(6000)/dV(1636) - JVRP(9595) = V(5250) -! JVRP(9596) = dARP(6000)/dV(5250) - JVRP(9596) = V(1636) -! JVRP(9597) = dARP(6001)/dV(1636) - JVRP(9597) = 1 -! JVRP(9598) = dARP(6002)/dV(2875) - JVRP(9598) = V(5250) -! JVRP(9599) = dARP(6002)/dV(5250) - JVRP(9599) = V(2875) -! JVRP(9600) = dARP(6003)/dV(2875) - JVRP(9600) = 1 -! JVRP(9601) = dARP(6004)/dV(4375) - JVRP(9601) = V(5255) -! JVRP(9602) = dARP(6004)/dV(5255) - JVRP(9602) = V(4375) -! JVRP(9603) = dARP(6005)/dV(4375) - JVRP(9603) = V(5255) -! JVRP(9604) = dARP(6005)/dV(5255) - JVRP(9604) = V(4375) -! JVRP(9605) = dARP(6006)/dV(4375) - JVRP(9605) = V(5255) -! JVRP(9606) = dARP(6006)/dV(5255) - JVRP(9606) = V(4375) -! JVRP(9607) = dARP(6007)/dV(4375) - JVRP(9607) = V(5252) -! JVRP(9608) = dARP(6007)/dV(5252) - JVRP(9608) = V(4375) -! JVRP(9609) = dARP(6008)/dV(4375) - JVRP(9609) = V(5253) -! JVRP(9610) = dARP(6008)/dV(5253) - JVRP(9610) = V(4375) -! JVRP(9611) = dARP(6009)/dV(4375) - JVRP(9611) = V(5256) -! JVRP(9612) = dARP(6009)/dV(5256) - JVRP(9612) = V(4375) -! JVRP(9613) = dARP(6010)/dV(4375) - JVRP(9613) = 1 -! JVRP(9614) = dARP(6011)/dV(4375) - JVRP(9614) = 1 -! JVRP(9615) = dARP(6012)/dV(2740) - JVRP(9615) = V(5250) -! JVRP(9616) = dARP(6012)/dV(5250) - JVRP(9616) = V(2740) -! JVRP(9617) = dARP(6013)/dV(2740) - JVRP(9617) = 1 -! JVRP(9618) = dARP(6014)/dV(2740) - JVRP(9618) = 1 -! JVRP(9619) = dARP(6015)/dV(2994) - JVRP(9619) = 1 -! JVRP(9620) = dARP(6016)/dV(1647) - JVRP(9620) = V(5250) -! JVRP(9621) = dARP(6016)/dV(5250) - JVRP(9621) = V(1647) -! JVRP(9622) = dARP(6017)/dV(1647) - JVRP(9622) = 1 -! JVRP(9623) = dARP(6018)/dV(3111) - JVRP(9623) = V(5256) -! JVRP(9624) = dARP(6018)/dV(5256) - JVRP(9624) = V(3111) -! JVRP(9625) = dARP(6019)/dV(3111) - JVRP(9625) = V(5250) -! JVRP(9626) = dARP(6019)/dV(5250) - JVRP(9626) = V(3111) -! JVRP(9627) = dARP(6020)/dV(4037) - JVRP(9627) = V(5255) -! JVRP(9628) = dARP(6020)/dV(5255) - JVRP(9628) = V(4037) -! JVRP(9629) = dARP(6021)/dV(4037) - JVRP(9629) = V(5252) -! JVRP(9630) = dARP(6021)/dV(5252) - JVRP(9630) = V(4037) -! JVRP(9631) = dARP(6022)/dV(4037) - JVRP(9631) = V(5256) -! JVRP(9632) = dARP(6022)/dV(5256) - JVRP(9632) = V(4037) -! JVRP(9633) = dARP(6023)/dV(4037) - JVRP(9633) = 1 -! JVRP(9634) = dARP(6024)/dV(884) - JVRP(9634) = V(5250) -! JVRP(9635) = dARP(6024)/dV(5250) - JVRP(9635) = V(884) -! JVRP(9636) = dARP(6025)/dV(884) - JVRP(9636) = 1 -! JVRP(9637) = dARP(6026)/dV(3195) - JVRP(9637) = 1 -! JVRP(9638) = dARP(6027)/dV(68) - JVRP(9638) = V(5250) -! JVRP(9639) = dARP(6027)/dV(5250) - JVRP(9639) = V(68) -! JVRP(9640) = dARP(6028)/dV(4639) - JVRP(9640) = V(5253) -! JVRP(9641) = dARP(6028)/dV(5253) - JVRP(9641) = V(4639) -! JVRP(9642) = dARP(6029)/dV(4639) - JVRP(9642) = V(5258) -! JVRP(9643) = dARP(6029)/dV(5258) - JVRP(9643) = V(4639) -! JVRP(9644) = dARP(6030)/dV(752) - JVRP(9644) = 1 -! JVRP(9645) = dARP(6031)/dV(3437) - JVRP(9645) = V(5256) -! JVRP(9646) = dARP(6031)/dV(5256) - JVRP(9646) = V(3437) -! JVRP(9647) = dARP(6032)/dV(3437) - JVRP(9647) = V(5250) -! JVRP(9648) = dARP(6032)/dV(5250) - JVRP(9648) = V(3437) -! JVRP(9649) = dARP(6033)/dV(3437) - JVRP(9649) = V(5250) -! JVRP(9650) = dARP(6033)/dV(5250) - JVRP(9650) = V(3437) -! JVRP(9651) = dARP(6034)/dV(3437) - JVRP(9651) = 1 -! JVRP(9652) = dARP(6035)/dV(3437) - JVRP(9652) = 1 -! JVRP(9653) = dARP(6036)/dV(4505) - JVRP(9653) = V(5256) -! JVRP(9654) = dARP(6036)/dV(5256) - JVRP(9654) = V(4505) -! JVRP(9655) = dARP(6037)/dV(4505) - JVRP(9655) = V(5258) -! JVRP(9656) = dARP(6037)/dV(5258) - JVRP(9656) = V(4505) -! JVRP(9657) = dARP(6038)/dV(4505) - JVRP(9657) = V(5250) -! JVRP(9658) = dARP(6038)/dV(5250) - JVRP(9658) = V(4505) -! JVRP(9659) = dARP(6039)/dV(3553) - JVRP(9659) = V(5256) -! JVRP(9660) = dARP(6039)/dV(5256) - JVRP(9660) = V(3553) -! JVRP(9661) = dARP(6040)/dV(3553) - JVRP(9661) = V(5258) -! JVRP(9662) = dARP(6040)/dV(5258) - JVRP(9662) = V(3553) -! JVRP(9663) = dARP(6041)/dV(3553) - JVRP(9663) = V(5250) -! JVRP(9664) = dARP(6041)/dV(5250) - JVRP(9664) = V(3553) -! JVRP(9665) = dARP(6042)/dV(4846) - JVRP(9665) = V(5255) -! JVRP(9666) = dARP(6042)/dV(5255) - JVRP(9666) = V(4846) -! JVRP(9667) = dARP(6043)/dV(4846) - JVRP(9667) = V(5255) -! JVRP(9668) = dARP(6043)/dV(5255) - JVRP(9668) = V(4846) -! JVRP(9669) = dARP(6044)/dV(4846) - JVRP(9669) = V(5255) -! JVRP(9670) = dARP(6044)/dV(5255) - JVRP(9670) = V(4846) -! JVRP(9671) = dARP(6045)/dV(4846) - JVRP(9671) = V(5252) -! JVRP(9672) = dARP(6045)/dV(5252) - JVRP(9672) = V(4846) -! JVRP(9673) = dARP(6046)/dV(4846) - JVRP(9673) = V(5253) -! JVRP(9674) = dARP(6046)/dV(5253) - JVRP(9674) = V(4846) -! JVRP(9675) = dARP(6047)/dV(4846) - JVRP(9675) = V(5256) -! JVRP(9676) = dARP(6047)/dV(5256) - JVRP(9676) = V(4846) -! JVRP(9677) = dARP(6048)/dV(4846) - JVRP(9677) = 1 -! JVRP(9678) = dARP(6049)/dV(4846) - JVRP(9678) = 1 -! JVRP(9679) = dARP(6050)/dV(4913) - JVRP(9679) = V(5255) -! JVRP(9680) = dARP(6050)/dV(5255) - JVRP(9680) = V(4913) -! JVRP(9681) = dARP(6051)/dV(4913) - JVRP(9681) = V(5252) -! JVRP(9682) = dARP(6051)/dV(5252) - JVRP(9682) = V(4913) -! JVRP(9683) = dARP(6052)/dV(4913) - JVRP(9683) = V(5256) -! JVRP(9684) = dARP(6052)/dV(5256) - JVRP(9684) = V(4913) -! JVRP(9685) = dARP(6053)/dV(4913) - JVRP(9685) = 1 -! JVRP(9686) = dARP(6054)/dV(1112) - JVRP(9686) = V(5250) -! JVRP(9687) = dARP(6054)/dV(5250) - JVRP(9687) = V(1112) -! JVRP(9688) = dARP(6055)/dV(1112) - JVRP(9688) = 1 -! JVRP(9689) = dARP(6056)/dV(3567) - JVRP(9689) = 1 -! JVRP(9690) = dARP(6057)/dV(3567) - JVRP(9690) = 1 -! JVRP(9691) = dARP(6058)/dV(3304) - JVRP(9691) = V(5250) -! JVRP(9692) = dARP(6058)/dV(5250) - JVRP(9692) = V(3304) -! JVRP(9693) = dARP(6059)/dV(3304) - JVRP(9693) = 1 -! JVRP(9694) = dARP(6060)/dV(3486) - JVRP(9694) = V(5250) -! JVRP(9695) = dARP(6060)/dV(5250) - JVRP(9695) = V(3486) -! JVRP(9696) = dARP(6061)/dV(3486) - JVRP(9696) = 1 -! JVRP(9697) = dARP(6062)/dV(3486) - JVRP(9697) = 1 -! JVRP(9698) = dARP(6063)/dV(812) - JVRP(9698) = V(5250) -! JVRP(9699) = dARP(6063)/dV(5250) - JVRP(9699) = V(812) -! JVRP(9700) = dARP(6064)/dV(812) - JVRP(9700) = 1 -! JVRP(9701) = dARP(6065)/dV(4139) - JVRP(9701) = V(5255) -! JVRP(9702) = dARP(6065)/dV(5255) - JVRP(9702) = V(4139) -! JVRP(9703) = dARP(6066)/dV(4139) - JVRP(9703) = V(5255) -! JVRP(9704) = dARP(6066)/dV(5255) - JVRP(9704) = V(4139) -! JVRP(9705) = dARP(6067)/dV(4139) - JVRP(9705) = V(5255) -! JVRP(9706) = dARP(6067)/dV(5255) - JVRP(9706) = V(4139) -! JVRP(9707) = dARP(6068)/dV(4139) - JVRP(9707) = V(5252) -! JVRP(9708) = dARP(6068)/dV(5252) - JVRP(9708) = V(4139) -! JVRP(9709) = dARP(6069)/dV(4139) - JVRP(9709) = V(5253) -! JVRP(9710) = dARP(6069)/dV(5253) - JVRP(9710) = V(4139) -! JVRP(9711) = dARP(6070)/dV(4139) - JVRP(9711) = V(5256) -! JVRP(9712) = dARP(6070)/dV(5256) - JVRP(9712) = V(4139) -! JVRP(9713) = dARP(6071)/dV(4139) - JVRP(9713) = 1 -! JVRP(9714) = dARP(6072)/dV(4139) - JVRP(9714) = 1 -! JVRP(9715) = dARP(6073)/dV(4000) - JVRP(9715) = V(5255) -! JVRP(9716) = dARP(6073)/dV(5255) - JVRP(9716) = V(4000) -! JVRP(9717) = dARP(6074)/dV(4000) - JVRP(9717) = V(5252) -! JVRP(9718) = dARP(6074)/dV(5252) - JVRP(9718) = V(4000) -! JVRP(9719) = dARP(6075)/dV(4000) - JVRP(9719) = V(5256) -! JVRP(9720) = dARP(6075)/dV(5256) - JVRP(9720) = V(4000) -! JVRP(9721) = dARP(6076)/dV(4000) - JVRP(9721) = 1 -! JVRP(9722) = dARP(6077)/dV(3832) - JVRP(9722) = V(5258) -! JVRP(9723) = dARP(6077)/dV(5258) - JVRP(9723) = V(3832) -! JVRP(9724) = dARP(6078)/dV(3832) - JVRP(9724) = V(5258) -! JVRP(9725) = dARP(6078)/dV(5258) - JVRP(9725) = V(3832) -! JVRP(9726) = dARP(6079)/dV(3832) - JVRP(9726) = V(5250) -! JVRP(9727) = dARP(6079)/dV(5250) - JVRP(9727) = V(3832) -! JVRP(9728) = dARP(6080)/dV(3832) - JVRP(9728) = 1 -! JVRP(9729) = dARP(6081)/dV(3832) - JVRP(9729) = 1 -! JVRP(9730) = dARP(6082)/dV(2649) - JVRP(9730) = V(5250) -! JVRP(9731) = dARP(6082)/dV(5250) - JVRP(9731) = V(2649) -! JVRP(9732) = dARP(6083)/dV(2649) - JVRP(9732) = 1 -! JVRP(9733) = dARP(6084)/dV(2649) - JVRP(9733) = 1 -! JVRP(9734) = dARP(6085)/dV(2776) - JVRP(9734) = 1 -! JVRP(9735) = dARP(6086)/dV(1669) - JVRP(9735) = V(5250) -! JVRP(9736) = dARP(6086)/dV(5250) - JVRP(9736) = V(1669) -! JVRP(9737) = dARP(6087)/dV(1669) - JVRP(9737) = 1 -! JVRP(9738) = dARP(6088)/dV(3085) - JVRP(9738) = V(5256) -! JVRP(9739) = dARP(6088)/dV(5256) - JVRP(9739) = V(3085) -! JVRP(9740) = dARP(6089)/dV(3085) - JVRP(9740) = V(5250) -! JVRP(9741) = dARP(6089)/dV(5250) - JVRP(9741) = V(3085) -! JVRP(9742) = dARP(6090)/dV(4009) - JVRP(9742) = V(5255) -! JVRP(9743) = dARP(6090)/dV(5255) - JVRP(9743) = V(4009) -! JVRP(9744) = dARP(6091)/dV(4009) - JVRP(9744) = V(5252) -! JVRP(9745) = dARP(6091)/dV(5252) - JVRP(9745) = V(4009) -! JVRP(9746) = dARP(6092)/dV(4009) - JVRP(9746) = V(5256) -! JVRP(9747) = dARP(6092)/dV(5256) - JVRP(9747) = V(4009) -! JVRP(9748) = dARP(6093)/dV(4009) - JVRP(9748) = 1 -! JVRP(9749) = dARP(6094)/dV(959) - JVRP(9749) = V(5250) -! JVRP(9750) = dARP(6094)/dV(5250) - JVRP(9750) = V(959) -! JVRP(9751) = dARP(6095)/dV(959) - JVRP(9751) = 1 -! JVRP(9752) = dARP(6096)/dV(4322) - JVRP(9752) = 1 -! JVRP(9753) = dARP(6097)/dV(4322) - JVRP(9753) = 1 -! JVRP(9754) = dARP(6098)/dV(17) - JVRP(9754) = V(5250) -! JVRP(9755) = dARP(6098)/dV(5250) - JVRP(9755) = V(17) -! JVRP(9756) = dARP(6099)/dV(4670) - JVRP(9756) = V(5253) -! JVRP(9757) = dARP(6099)/dV(5253) - JVRP(9757) = V(4670) -! JVRP(9758) = dARP(6100)/dV(4670) - JVRP(9758) = V(5258) -! JVRP(9759) = dARP(6100)/dV(5258) - JVRP(9759) = V(4670) -! JVRP(9760) = dARP(6101)/dV(705) - JVRP(9760) = 1 -! JVRP(9761) = dARP(6102)/dV(3227) - JVRP(9761) = V(5250) -! JVRP(9762) = dARP(6102)/dV(5250) - JVRP(9762) = V(3227) -! JVRP(9763) = dARP(6103)/dV(3227) - JVRP(9763) = 1 -! JVRP(9764) = dARP(6104)/dV(3487) - JVRP(9764) = V(5250) -! JVRP(9765) = dARP(6104)/dV(5250) - JVRP(9765) = V(3487) -! JVRP(9766) = dARP(6105)/dV(3487) - JVRP(9766) = 1 -! JVRP(9767) = dARP(6106)/dV(3487) - JVRP(9767) = 1 -! JVRP(9768) = dARP(6107)/dV(3316) - JVRP(9768) = V(5250) -! JVRP(9769) = dARP(6107)/dV(5250) - JVRP(9769) = V(3316) -! JVRP(9770) = dARP(6108)/dV(3316) - JVRP(9770) = 1 -! JVRP(9771) = dARP(6109)/dV(1014) - JVRP(9771) = V(5250) -! JVRP(9772) = dARP(6109)/dV(5250) - JVRP(9772) = V(1014) -! JVRP(9773) = dARP(6110)/dV(1014) - JVRP(9773) = 1 -! JVRP(9774) = dARP(6111)/dV(3584) - JVRP(9774) = 1 -! JVRP(9775) = dARP(6112)/dV(3584) - JVRP(9775) = 1 -! JVRP(9776) = dARP(6113)/dV(3264) - JVRP(9776) = V(5250) -! JVRP(9777) = dARP(6113)/dV(5250) - JVRP(9777) = V(3264) -! JVRP(9778) = dARP(6114)/dV(3264) - JVRP(9778) = 1 -! JVRP(9779) = dARP(6115)/dV(3433) - JVRP(9779) = V(5250) -! JVRP(9780) = dARP(6115)/dV(5250) - JVRP(9780) = V(3433) -! JVRP(9781) = dARP(6116)/dV(3433) - JVRP(9781) = 1 -! JVRP(9782) = dARP(6117)/dV(785) - JVRP(9782) = V(5250) -! JVRP(9783) = dARP(6117)/dV(5250) - JVRP(9783) = V(785) -! JVRP(9784) = dARP(6118)/dV(785) - JVRP(9784) = 1 -! JVRP(9785) = dARP(6119)/dV(3452) - JVRP(9785) = V(5250) -! JVRP(9786) = dARP(6119)/dV(5250) - JVRP(9786) = V(3452) -! JVRP(9787) = dARP(6120)/dV(3452) - JVRP(9787) = 1 -! JVRP(9788) = dARP(6121)/dV(3452) - JVRP(9788) = 1 -! JVRP(9789) = dARP(6122)/dV(3452) - JVRP(9789) = 1 -! JVRP(9790) = dARP(6123)/dV(2356) - JVRP(9790) = 1 -! JVRP(9791) = dARP(6124)/dV(2357) - JVRP(9791) = V(5250) -! JVRP(9792) = dARP(6124)/dV(5250) - JVRP(9792) = V(2357) -! JVRP(9793) = dARP(6125)/dV(2357) - JVRP(9793) = 1 -! JVRP(9794) = dARP(6126)/dV(2357) - JVRP(9794) = 1 -! JVRP(9795) = dARP(6127)/dV(4181) - JVRP(9795) = V(5255) -! JVRP(9796) = dARP(6127)/dV(5255) - JVRP(9796) = V(4181) -! JVRP(9797) = dARP(6128)/dV(4181) - JVRP(9797) = V(5255) -! JVRP(9798) = dARP(6128)/dV(5255) - JVRP(9798) = V(4181) -! JVRP(9799) = dARP(6129)/dV(4181) - JVRP(9799) = V(5255) -! JVRP(9800) = dARP(6129)/dV(5255) - JVRP(9800) = V(4181) -! JVRP(9801) = dARP(6130)/dV(4181) - JVRP(9801) = V(5252) -! JVRP(9802) = dARP(6130)/dV(5252) - JVRP(9802) = V(4181) -! JVRP(9803) = dARP(6131)/dV(4181) - JVRP(9803) = V(5253) -! JVRP(9804) = dARP(6131)/dV(5253) - JVRP(9804) = V(4181) -! JVRP(9805) = dARP(6132)/dV(4181) - JVRP(9805) = V(5256) -! JVRP(9806) = dARP(6132)/dV(5256) - JVRP(9806) = V(4181) -! JVRP(9807) = dARP(6133)/dV(4181) - JVRP(9807) = 1 -! JVRP(9808) = dARP(6134)/dV(4181) - JVRP(9808) = 1 -! JVRP(9809) = dARP(6135)/dV(4041) - JVRP(9809) = V(5255) -! JVRP(9810) = dARP(6135)/dV(5255) - JVRP(9810) = V(4041) -! JVRP(9811) = dARP(6136)/dV(4041) - JVRP(9811) = V(5252) -! JVRP(9812) = dARP(6136)/dV(5252) - JVRP(9812) = V(4041) -! JVRP(9813) = dARP(6137)/dV(4041) - JVRP(9813) = V(5256) -! JVRP(9814) = dARP(6137)/dV(5256) - JVRP(9814) = V(4041) -! JVRP(9815) = dARP(6138)/dV(4041) - JVRP(9815) = 1 -! JVRP(9816) = dARP(6139)/dV(4985) - JVRP(9816) = V(5255) -! JVRP(9817) = dARP(6139)/dV(5255) - JVRP(9817) = V(4985) -! JVRP(9818) = dARP(6140)/dV(4985) - JVRP(9818) = V(5255) -! JVRP(9819) = dARP(6140)/dV(5255) - JVRP(9819) = V(4985) -! JVRP(9820) = dARP(6141)/dV(4985) - JVRP(9820) = V(5252) -! JVRP(9821) = dARP(6141)/dV(5252) - JVRP(9821) = V(4985) -! JVRP(9822) = dARP(6142)/dV(4985) - JVRP(9822) = V(5253) -! JVRP(9823) = dARP(6142)/dV(5253) - JVRP(9823) = V(4985) -! JVRP(9824) = dARP(6143)/dV(4985) - JVRP(9824) = V(5256) -! JVRP(9825) = dARP(6143)/dV(5256) - JVRP(9825) = V(4985) -! JVRP(9826) = dARP(6144)/dV(4985) - JVRP(9826) = 1 -! JVRP(9827) = dARP(6145)/dV(4985) - JVRP(9827) = 1 -! JVRP(9828) = dARP(6146)/dV(2585) - JVRP(9828) = V(5250) -! JVRP(9829) = dARP(6146)/dV(5250) - JVRP(9829) = V(2585) -! JVRP(9830) = dARP(6147)/dV(2585) - JVRP(9830) = 1 -! JVRP(9831) = dARP(6148)/dV(2585) - JVRP(9831) = 1 -! JVRP(9832) = dARP(6149)/dV(2847) - JVRP(9832) = 1 -! JVRP(9833) = dARP(6150)/dV(1589) - JVRP(9833) = V(5250) -! JVRP(9834) = dARP(6150)/dV(5250) - JVRP(9834) = V(1589) -! JVRP(9835) = dARP(6151)/dV(1589) - JVRP(9835) = 1 -! JVRP(9836) = dARP(6152)/dV(1218) - JVRP(9836) = V(5250) -! JVRP(9837) = dARP(6152)/dV(5250) - JVRP(9837) = V(1218) -! JVRP(9838) = dARP(6153)/dV(1218) - JVRP(9838) = 1 -! JVRP(9839) = dARP(6154)/dV(3246) - JVRP(9839) = 1 -! JVRP(9840) = dARP(6155)/dV(13) - JVRP(9840) = V(5250) -! JVRP(9841) = dARP(6155)/dV(5250) - JVRP(9841) = V(13) -! JVRP(9842) = dARP(6156)/dV(1513) - JVRP(9842) = V(5250) -! JVRP(9843) = dARP(6156)/dV(5250) - JVRP(9843) = V(1513) -! JVRP(9844) = dARP(6157)/dV(1513) - JVRP(9844) = 1 -! JVRP(9845) = dARP(6158)/dV(1465) - JVRP(9845) = V(5250) -! JVRP(9846) = dARP(6158)/dV(5250) - JVRP(9846) = V(1465) -! JVRP(9847) = dARP(6159)/dV(1465) - JVRP(9847) = 1 -! JVRP(9848) = dARP(6160)/dV(3258) - JVRP(9848) = V(5250) -! JVRP(9849) = dARP(6160)/dV(5250) - JVRP(9849) = V(3258) -! JVRP(9850) = dARP(6161)/dV(3258) - JVRP(9850) = 1 -! JVRP(9851) = dARP(6162)/dV(4680) - JVRP(9851) = V(5255) -! JVRP(9852) = dARP(6162)/dV(5255) - JVRP(9852) = V(4680) -! JVRP(9853) = dARP(6163)/dV(4680) - JVRP(9853) = V(5255) -! JVRP(9854) = dARP(6163)/dV(5255) - JVRP(9854) = V(4680) -! JVRP(9855) = dARP(6164)/dV(4680) - JVRP(9855) = V(5255) -! JVRP(9856) = dARP(6164)/dV(5255) - JVRP(9856) = V(4680) -! JVRP(9857) = dARP(6165)/dV(4680) - JVRP(9857) = V(5252) -! JVRP(9858) = dARP(6165)/dV(5252) - JVRP(9858) = V(4680) -! JVRP(9859) = dARP(6166)/dV(4680) - JVRP(9859) = V(5253) -! JVRP(9860) = dARP(6166)/dV(5253) - JVRP(9860) = V(4680) -! JVRP(9861) = dARP(6167)/dV(4680) - JVRP(9861) = V(5256) -! JVRP(9862) = dARP(6167)/dV(5256) - JVRP(9862) = V(4680) -! JVRP(9863) = dARP(6168)/dV(4680) - JVRP(9863) = 1 -! JVRP(9864) = dARP(6169)/dV(4680) - JVRP(9864) = 1 -! JVRP(9865) = dARP(6170)/dV(5011) - JVRP(9865) = V(5255) -! JVRP(9866) = dARP(6170)/dV(5255) - JVRP(9866) = V(5011) -! JVRP(9867) = dARP(6171)/dV(5011) - JVRP(9867) = V(5252) -! JVRP(9868) = dARP(6171)/dV(5252) - JVRP(9868) = V(5011) -! JVRP(9869) = dARP(6172)/dV(5011) - JVRP(9869) = V(5256) -! JVRP(9870) = dARP(6172)/dV(5256) - JVRP(9870) = V(5011) -! JVRP(9871) = dARP(6173)/dV(5011) - JVRP(9871) = 1 -! JVRP(9872) = dARP(6174)/dV(1034) - JVRP(9872) = V(5250) -! JVRP(9873) = dARP(6174)/dV(5250) - JVRP(9873) = V(1034) -! JVRP(9874) = dARP(6175)/dV(1034) - JVRP(9874) = 1 -! JVRP(9875) = dARP(6176)/dV(3569) - JVRP(9875) = 1 -! JVRP(9876) = dARP(6177)/dV(3569) - JVRP(9876) = 1 -! JVRP(9877) = dARP(6178)/dV(3438) - JVRP(9877) = V(5250) -! JVRP(9878) = dARP(6178)/dV(5250) - JVRP(9878) = V(3438) -! JVRP(9879) = dARP(6179)/dV(3438) - JVRP(9879) = 1 -! JVRP(9880) = dARP(6180)/dV(487) - JVRP(9880) = V(5250) -! JVRP(9881) = dARP(6180)/dV(5250) - JVRP(9881) = V(487) -! JVRP(9882) = dARP(6181)/dV(487) - JVRP(9882) = 1 -! JVRP(9883) = dARP(6182)/dV(3624) - JVRP(9883) = V(5250) -! JVRP(9884) = dARP(6182)/dV(5250) - JVRP(9884) = V(3624) -! JVRP(9885) = dARP(6183)/dV(3624) - JVRP(9885) = 1 -! JVRP(9886) = dARP(6184)/dV(3624) - JVRP(9886) = 1 -! JVRP(9887) = dARP(6185)/dV(3624) - JVRP(9887) = 1 -! JVRP(9888) = dARP(6186)/dV(756) - JVRP(9888) = 1 -! JVRP(9889) = dARP(6187)/dV(1600) - JVRP(9889) = V(5250) -! JVRP(9890) = dARP(6187)/dV(5250) - JVRP(9890) = V(1600) -! JVRP(9891) = dARP(6188)/dV(1600) - JVRP(9891) = 1 -! JVRP(9892) = dARP(6189)/dV(3251) - JVRP(9892) = V(5250) -! JVRP(9893) = dARP(6189)/dV(5250) - JVRP(9893) = V(3251) -! JVRP(9894) = dARP(6190)/dV(3251) - JVRP(9894) = 1 -! JVRP(9895) = dARP(6191)/dV(3251) - JVRP(9895) = 1 -! JVRP(9896) = dARP(6192)/dV(3814) - JVRP(9896) = V(5255) -! JVRP(9897) = dARP(6192)/dV(5255) - JVRP(9897) = V(3814) -! JVRP(9898) = dARP(6193)/dV(3814) - JVRP(9898) = V(5252) -! JVRP(9899) = dARP(6193)/dV(5252) - JVRP(9899) = V(3814) -! JVRP(9900) = dARP(6194)/dV(3814) - JVRP(9900) = V(5256) -! JVRP(9901) = dARP(6194)/dV(5256) - JVRP(9901) = V(3814) -! JVRP(9902) = dARP(6195)/dV(3814) - JVRP(9902) = 1 -! JVRP(9903) = dARP(6196)/dV(3814) - JVRP(9903) = 1 -! JVRP(9904) = dARP(6197)/dV(3814) - JVRP(9904) = 1 -! JVRP(9905) = dARP(6198)/dV(1409) - JVRP(9905) = V(5250) -! JVRP(9906) = dARP(6198)/dV(5250) - JVRP(9906) = V(1409) -! JVRP(9907) = dARP(6199)/dV(1409) - JVRP(9907) = 1 -! JVRP(9908) = dARP(6200)/dV(1370) - JVRP(9908) = V(5250) -! JVRP(9909) = dARP(6200)/dV(5250) - JVRP(9909) = V(1370) -! JVRP(9910) = dARP(6201)/dV(1370) - JVRP(9910) = 1 -! JVRP(9911) = dARP(6202)/dV(2857) - JVRP(9911) = V(5250) -! JVRP(9912) = dARP(6202)/dV(5250) - JVRP(9912) = V(2857) -! JVRP(9913) = dARP(6203)/dV(2857) - JVRP(9913) = 1 -! JVRP(9914) = dARP(6204)/dV(4198) - JVRP(9914) = V(5255) -! JVRP(9915) = dARP(6204)/dV(5255) - JVRP(9915) = V(4198) -! JVRP(9916) = dARP(6205)/dV(4198) - JVRP(9916) = V(5255) -! JVRP(9917) = dARP(6205)/dV(5255) - JVRP(9917) = V(4198) -! JVRP(9918) = dARP(6206)/dV(4198) - JVRP(9918) = V(5255) -! JVRP(9919) = dARP(6206)/dV(5255) - JVRP(9919) = V(4198) -! JVRP(9920) = dARP(6207)/dV(4198) - JVRP(9920) = V(5252) -! JVRP(9921) = dARP(6207)/dV(5252) - JVRP(9921) = V(4198) -! JVRP(9922) = dARP(6208)/dV(4198) - JVRP(9922) = V(5253) -! JVRP(9923) = dARP(6208)/dV(5253) - JVRP(9923) = V(4198) -! JVRP(9924) = dARP(6209)/dV(4198) - JVRP(9924) = V(5256) -! JVRP(9925) = dARP(6209)/dV(5256) - JVRP(9925) = V(4198) -! JVRP(9926) = dARP(6210)/dV(4198) - JVRP(9926) = 1 -! JVRP(9927) = dARP(6211)/dV(4198) - JVRP(9927) = 1 -! JVRP(9928) = dARP(6212)/dV(4769) - JVRP(9928) = V(5255) -! JVRP(9929) = dARP(6212)/dV(5255) - JVRP(9929) = V(4769) -! JVRP(9930) = dARP(6213)/dV(4769) - JVRP(9930) = V(5252) -! JVRP(9931) = dARP(6213)/dV(5252) - JVRP(9931) = V(4769) -! JVRP(9932) = dARP(6214)/dV(4769) - JVRP(9932) = V(5256) -! JVRP(9933) = dARP(6214)/dV(5256) - JVRP(9933) = V(4769) -! JVRP(9934) = dARP(6215)/dV(4769) - JVRP(9934) = 1 -! JVRP(9935) = dARP(6216)/dV(1103) - JVRP(9935) = V(5250) -! JVRP(9936) = dARP(6216)/dV(5250) - JVRP(9936) = V(1103) -! JVRP(9937) = dARP(6217)/dV(1103) - JVRP(9937) = 1 -! JVRP(9938) = dARP(6218)/dV(3108) - JVRP(9938) = V(5250) -! JVRP(9939) = dARP(6218)/dV(5250) - JVRP(9939) = V(3108) -! JVRP(9940) = dARP(6219)/dV(3108) - JVRP(9940) = 1 -! JVRP(9941) = dARP(6220)/dV(3606) - JVRP(9941) = 1 -! JVRP(9942) = dARP(6221)/dV(3606) - JVRP(9942) = 1 -! JVRP(9943) = dARP(6222)/dV(3107) - JVRP(9943) = V(5250) -! JVRP(9944) = dARP(6222)/dV(5250) - JVRP(9944) = V(3107) -! JVRP(9945) = dARP(6223)/dV(3107) - JVRP(9945) = 1 -! JVRP(9946) = dARP(6224)/dV(647) - JVRP(9946) = V(5250) -! JVRP(9947) = dARP(6224)/dV(5250) - JVRP(9947) = V(647) -! JVRP(9948) = dARP(6225)/dV(647) - JVRP(9948) = 1 -! JVRP(9949) = dARP(6226)/dV(1968) - JVRP(9949) = V(5250) -! JVRP(9950) = dARP(6226)/dV(5250) - JVRP(9950) = V(1968) -! JVRP(9951) = dARP(6227)/dV(1968) - JVRP(9951) = 1 -! JVRP(9952) = dARP(6228)/dV(1968) - JVRP(9952) = 1 -! JVRP(9953) = dARP(6229)/dV(1583) - JVRP(9953) = 1 -! JVRP(9954) = dARP(6230)/dV(1584) - JVRP(9954) = V(5250) -! JVRP(9955) = dARP(6230)/dV(5250) - JVRP(9955) = V(1584) -! JVRP(9956) = dARP(6231)/dV(1584) - JVRP(9956) = 1 -! JVRP(9957) = dARP(6232)/dV(1584) - JVRP(9957) = 1 -! JVRP(9958) = dARP(6233)/dV(2624) - JVRP(9958) = V(5250) -! JVRP(9959) = dARP(6233)/dV(5250) - JVRP(9959) = V(2624) -! JVRP(9960) = dARP(6234)/dV(2624) - JVRP(9960) = 1 -! JVRP(9961) = dARP(6235)/dV(2624) - JVRP(9961) = 1 -! JVRP(9962) = dARP(6236)/dV(3666) - JVRP(9962) = 1 -! JVRP(9963) = dARP(6237)/dV(1567) - JVRP(9963) = V(5250) -! JVRP(9964) = dARP(6237)/dV(5250) - JVRP(9964) = V(1567) -! JVRP(9965) = dARP(6238)/dV(1567) - JVRP(9965) = 1 -! JVRP(9966) = dARP(6239)/dV(3153) - JVRP(9966) = V(5256) -! JVRP(9967) = dARP(6239)/dV(5256) - JVRP(9967) = V(3153) -! JVRP(9968) = dARP(6240)/dV(3153) - JVRP(9968) = V(5250) -! JVRP(9969) = dARP(6240)/dV(5250) - JVRP(9969) = V(3153) -! JVRP(9970) = dARP(6241)/dV(4082) - JVRP(9970) = V(5255) -! JVRP(9971) = dARP(6241)/dV(5255) - JVRP(9971) = V(4082) -! JVRP(9972) = dARP(6242)/dV(4082) - JVRP(9972) = V(5252) -! JVRP(9973) = dARP(6242)/dV(5252) - JVRP(9973) = V(4082) -! JVRP(9974) = dARP(6243)/dV(4082) - JVRP(9974) = V(5256) -! JVRP(9975) = dARP(6243)/dV(5256) - JVRP(9975) = V(4082) -! JVRP(9976) = dARP(6244)/dV(4082) - JVRP(9976) = 1 -! JVRP(9977) = dARP(6245)/dV(1033) - JVRP(9977) = V(5250) -! JVRP(9978) = dARP(6245)/dV(5250) - JVRP(9978) = V(1033) -! JVRP(9979) = dARP(6246)/dV(1033) - JVRP(9979) = 1 -! JVRP(9980) = dARP(6247)/dV(4152) - JVRP(9980) = 1 -! JVRP(9981) = dARP(6248)/dV(4152) - JVRP(9981) = 1 -! JVRP(9982) = dARP(6249)/dV(119) - JVRP(9982) = V(5250) -! JVRP(9983) = dARP(6249)/dV(5250) - JVRP(9983) = V(119) -! JVRP(9984) = dARP(6250)/dV(4413) - JVRP(9984) = V(5253) -! JVRP(9985) = dARP(6250)/dV(5253) - JVRP(9985) = V(4413) -! JVRP(9986) = dARP(6251)/dV(4413) - JVRP(9986) = V(5258) -! JVRP(9987) = dARP(6251)/dV(5258) - JVRP(9987) = V(4413) -! JVRP(9988) = dARP(6252)/dV(718) - JVRP(9988) = 1 -! JVRP(9989) = dARP(6253)/dV(1405) - JVRP(9989) = V(5250) -! JVRP(9990) = dARP(6253)/dV(5250) - JVRP(9990) = V(1405) -! JVRP(9991) = dARP(6254)/dV(1405) - JVRP(9991) = 1 -! JVRP(9992) = dARP(6255)/dV(1473) - JVRP(9992) = V(5250) -! JVRP(9993) = dARP(6255)/dV(5250) - JVRP(9993) = V(1473) -! JVRP(9994) = dARP(6256)/dV(1473) - JVRP(9994) = 1 -! JVRP(9995) = dARP(6257)/dV(2950) - JVRP(9995) = V(5250) -! JVRP(9996) = dARP(6257)/dV(5250) - JVRP(9996) = V(2950) -! JVRP(9997) = dARP(6258)/dV(2950) - JVRP(9997) = 1 -! JVRP(9998) = dARP(6259)/dV(1038) - JVRP(9998) = V(5250) -! JVRP(9999) = dARP(6259)/dV(5250) - JVRP(9999) = V(1038) -! JVRP(10000) = dARP(6260)/dV(1038) - JVRP(10000) = 1 -! JVRP(10001) = dARP(6261)/dV(3322) - JVRP(10001) = V(5250) -! JVRP(10002) = dARP(6261)/dV(5250) - JVRP(10002) = V(3322) -! JVRP(10003) = dARP(6262)/dV(3322) - JVRP(10003) = 1 -! JVRP(10004) = dARP(6263)/dV(3610) - JVRP(10004) = 1 -! JVRP(10005) = dARP(6264)/dV(3610) - JVRP(10005) = 1 -! JVRP(10006) = dARP(6265)/dV(3411) - JVRP(10006) = V(5250) -! JVRP(10007) = dARP(6265)/dV(5250) - JVRP(10007) = V(3411) -! JVRP(10008) = dARP(6266)/dV(3411) - JVRP(10008) = 1 -! JVRP(10009) = dARP(6267)/dV(742) - JVRP(10009) = V(5250) -! JVRP(10010) = dARP(6267)/dV(5250) - JVRP(10010) = V(742) -! JVRP(10011) = dARP(6268)/dV(742) - JVRP(10011) = 1 -! JVRP(10012) = dARP(6269)/dV(1873) - JVRP(10012) = V(5250) -! JVRP(10013) = dARP(6269)/dV(5250) - JVRP(10013) = V(1873) -! JVRP(10014) = dARP(6270)/dV(1873) - JVRP(10014) = 1 -! JVRP(10015) = dARP(6271)/dV(1873) - JVRP(10015) = 1 -! JVRP(10016) = dARP(6272)/dV(1640) - JVRP(10016) = 1 -! JVRP(10017) = dARP(6273)/dV(2484) - JVRP(10017) = V(5250) -! JVRP(10018) = dARP(6273)/dV(5250) - JVRP(10018) = V(2484) -! JVRP(10019) = dARP(6274)/dV(2484) - JVRP(10019) = 1 -! JVRP(10020) = dARP(6275)/dV(2484) - JVRP(10020) = 1 -! JVRP(10021) = dARP(6276)/dV(1560) - JVRP(10021) = V(5250) -! JVRP(10022) = dARP(6276)/dV(5250) - JVRP(10022) = V(1560) -! JVRP(10023) = dARP(6277)/dV(1560) - JVRP(10023) = 1 -! JVRP(10024) = dARP(6278)/dV(1560) - JVRP(10024) = 1 -! JVRP(10025) = dARP(6279)/dV(3101) - JVRP(10025) = V(5256) -! JVRP(10026) = dARP(6279)/dV(5256) - JVRP(10026) = V(3101) -! JVRP(10027) = dARP(6280)/dV(3101) - JVRP(10027) = V(5250) -! JVRP(10028) = dARP(6280)/dV(5250) - JVRP(10028) = V(3101) -! JVRP(10029) = dARP(6281)/dV(4008) - JVRP(10029) = V(5255) -! JVRP(10030) = dARP(6281)/dV(5255) - JVRP(10030) = V(4008) -! JVRP(10031) = dARP(6282)/dV(4008) - JVRP(10031) = V(5252) -! JVRP(10032) = dARP(6282)/dV(5252) - JVRP(10032) = V(4008) -! JVRP(10033) = dARP(6283)/dV(4008) - JVRP(10033) = V(5256) -! JVRP(10034) = dARP(6283)/dV(5256) - JVRP(10034) = V(4008) -! JVRP(10035) = dARP(6284)/dV(4008) - JVRP(10035) = 1 -! JVRP(10036) = dARP(6285)/dV(1503) - JVRP(10036) = V(5250) -! JVRP(10037) = dARP(6285)/dV(5250) - JVRP(10037) = V(1503) -! JVRP(10038) = dARP(6286)/dV(1503) - JVRP(10038) = 1 -! JVRP(10039) = dARP(6287)/dV(4799) - JVRP(10039) = 1 -! JVRP(10040) = dARP(6288)/dV(4799) - JVRP(10040) = 1 -! JVRP(10041) = dARP(6289)/dV(124) - JVRP(10041) = V(5250) -! JVRP(10042) = dARP(6289)/dV(5250) - JVRP(10042) = V(124) -! JVRP(10043) = dARP(6290)/dV(2499) - JVRP(10043) = V(5250) -! JVRP(10044) = dARP(6290)/dV(5250) - JVRP(10044) = V(2499) -! JVRP(10045) = dARP(6291)/dV(2499) - JVRP(10045) = 1 -! JVRP(10046) = dARP(6292)/dV(2499) - JVRP(10046) = 1 -! JVRP(10047) = dARP(6293)/dV(2789) - JVRP(10047) = 1 -! JVRP(10048) = dARP(6294)/dV(1555) - JVRP(10048) = V(5250) -! JVRP(10049) = dARP(6294)/dV(5250) - JVRP(10049) = V(1555) -! JVRP(10050) = dARP(6295)/dV(1555) - JVRP(10050) = 1 -! JVRP(10051) = dARP(6296)/dV(4402) - JVRP(10051) = V(5253) -! JVRP(10052) = dARP(6296)/dV(5253) - JVRP(10052) = V(4402) -! JVRP(10053) = dARP(6297)/dV(4402) - JVRP(10053) = V(5258) -! JVRP(10054) = dARP(6297)/dV(5258) - JVRP(10054) = V(4402) -! JVRP(10055) = dARP(6298)/dV(676) - JVRP(10055) = 1 -! JVRP(10056) = dARP(6299)/dV(5103) - JVRP(10056) = V(5258) -! JVRP(10057) = dARP(6299)/dV(5258) - JVRP(10057) = V(5103) -! JVRP(10058) = dARP(6300)/dV(5103) - JVRP(10058) = V(5258) -! JVRP(10059) = dARP(6300)/dV(5258) - JVRP(10059) = V(5103) -! JVRP(10060) = dARP(6301)/dV(5103) - JVRP(10060) = V(5250) -! JVRP(10061) = dARP(6301)/dV(5250) - JVRP(10061) = V(5103) -! JVRP(10062) = dARP(6302)/dV(5103) - JVRP(10062) = 1 -! JVRP(10063) = dARP(6303)/dV(5103) - JVRP(10063) = 1 -! JVRP(10064) = dARP(6304)/dV(1481) - JVRP(10064) = V(5250) -! JVRP(10065) = dARP(6304)/dV(5250) - JVRP(10065) = V(1481) -! JVRP(10066) = dARP(6305)/dV(1481) - JVRP(10066) = 1 -! JVRP(10067) = dARP(6306)/dV(1254) - JVRP(10067) = V(5250) -! JVRP(10068) = dARP(6306)/dV(5250) - JVRP(10068) = V(1254) -! JVRP(10069) = dARP(6307)/dV(1254) - JVRP(10069) = 1 -! JVRP(10070) = dARP(6308)/dV(2632) - JVRP(10070) = V(5250) -! JVRP(10071) = dARP(6308)/dV(5250) - JVRP(10071) = V(2632) -! JVRP(10072) = dARP(6309)/dV(2632) - JVRP(10072) = 1 -! JVRP(10073) = dARP(6310)/dV(1161) - JVRP(10073) = V(5250) -! JVRP(10074) = dARP(6310)/dV(5250) - JVRP(10074) = V(1161) -! JVRP(10075) = dARP(6311)/dV(1161) - JVRP(10075) = 1 -! JVRP(10076) = dARP(6312)/dV(3271) - JVRP(10076) = V(5250) -! JVRP(10077) = dARP(6312)/dV(5250) - JVRP(10077) = V(3271) -! JVRP(10078) = dARP(6313)/dV(3271) - JVRP(10078) = 1 -! JVRP(10079) = dARP(6314)/dV(3570) - JVRP(10079) = 1 -! JVRP(10080) = dARP(6315)/dV(3570) - JVRP(10080) = 1 -! JVRP(10081) = dARP(6316)/dV(3345) - JVRP(10081) = V(5250) -! JVRP(10082) = dARP(6316)/dV(5250) - JVRP(10082) = V(3345) -! JVRP(10083) = dARP(6317)/dV(3345) - JVRP(10083) = 1 -! JVRP(10084) = dARP(6318)/dV(811) - JVRP(10084) = V(5250) -! JVRP(10085) = dARP(6318)/dV(5250) - JVRP(10085) = V(811) -! JVRP(10086) = dARP(6319)/dV(811) - JVRP(10086) = 1 -! JVRP(10087) = dARP(6320)/dV(3451) - JVRP(10087) = V(5250) -! JVRP(10088) = dARP(6320)/dV(5250) - JVRP(10088) = V(3451) -! JVRP(10089) = dARP(6321)/dV(3451) - JVRP(10089) = 1 -! JVRP(10090) = dARP(6322)/dV(3451) - JVRP(10090) = 1 -! JVRP(10091) = dARP(6323)/dV(3451) - JVRP(10091) = 1 -! JVRP(10092) = dARP(6324)/dV(2287) - JVRP(10092) = 1 -! JVRP(10093) = dARP(6325)/dV(1857) - JVRP(10093) = V(5250) -! JVRP(10094) = dARP(6325)/dV(5250) - JVRP(10094) = V(1857) -! JVRP(10095) = dARP(6326)/dV(1857) - JVRP(10095) = 1 -! JVRP(10096) = dARP(6327)/dV(1857) - JVRP(10096) = 1 -! JVRP(10097) = dARP(6328)/dV(3279) - JVRP(10097) = V(5250) -! JVRP(10098) = dARP(6328)/dV(5250) - JVRP(10098) = V(3279) -! JVRP(10099) = dARP(6329)/dV(3279) - JVRP(10099) = 1 -! JVRP(10100) = dARP(6330)/dV(3279) - JVRP(10100) = 1 -! JVRP(10101) = dARP(6331)/dV(2563) - JVRP(10101) = 1 -! JVRP(10102) = dARP(6332)/dV(1554) - JVRP(10102) = V(5250) -! JVRP(10103) = dARP(6332)/dV(5250) - JVRP(10103) = V(1554) -! JVRP(10104) = dARP(6333)/dV(1554) - JVRP(10104) = 1 -! JVRP(10105) = dARP(6334)/dV(3098) - JVRP(10105) = V(5256) -! JVRP(10106) = dARP(6334)/dV(5256) - JVRP(10106) = V(3098) -! JVRP(10107) = dARP(6335)/dV(3098) - JVRP(10107) = V(5250) -! JVRP(10108) = dARP(6335)/dV(5250) - JVRP(10108) = V(3098) -! JVRP(10109) = dARP(6336)/dV(4085) - JVRP(10109) = V(5255) -! JVRP(10110) = dARP(6336)/dV(5255) - JVRP(10110) = V(4085) -! JVRP(10111) = dARP(6337)/dV(4085) - JVRP(10111) = V(5252) -! JVRP(10112) = dARP(6337)/dV(5252) - JVRP(10112) = V(4085) -! JVRP(10113) = dARP(6338)/dV(4085) - JVRP(10113) = V(5256) -! JVRP(10114) = dARP(6338)/dV(5256) - JVRP(10114) = V(4085) -! JVRP(10115) = dARP(6339)/dV(4085) - JVRP(10115) = 1 -! JVRP(10116) = dARP(6340)/dV(932) - JVRP(10116) = V(5250) -! JVRP(10117) = dARP(6340)/dV(5250) - JVRP(10117) = V(932) -! JVRP(10118) = dARP(6341)/dV(932) - JVRP(10118) = 1 -! JVRP(10119) = dARP(6342)/dV(4533) - JVRP(10119) = 1 -! JVRP(10120) = dARP(6343)/dV(4533) - JVRP(10120) = 1 -! JVRP(10121) = dARP(6344)/dV(111) - JVRP(10121) = V(5250) -! JVRP(10122) = dARP(6344)/dV(5250) - JVRP(10122) = V(111) -! JVRP(10123) = dARP(6345)/dV(4499) - JVRP(10123) = V(5253) -! JVRP(10124) = dARP(6345)/dV(5253) - JVRP(10124) = V(4499) -! JVRP(10125) = dARP(6346)/dV(4499) - JVRP(10125) = V(5258) -! JVRP(10126) = dARP(6346)/dV(5258) - JVRP(10126) = V(4499) -! JVRP(10127) = dARP(6347)/dV(560) - JVRP(10127) = 1 -! JVRP(10128) = dARP(6348)/dV(4070) - JVRP(10128) = V(5255) -! JVRP(10129) = dARP(6348)/dV(5255) - JVRP(10129) = V(4070) -! JVRP(10130) = dARP(6349)/dV(4070) - JVRP(10130) = V(5252) -! JVRP(10131) = dARP(6349)/dV(5252) - JVRP(10131) = V(4070) -! JVRP(10132) = dARP(6350)/dV(4070) - JVRP(10132) = V(5256) -! JVRP(10133) = dARP(6350)/dV(5256) - JVRP(10133) = V(4070) -! JVRP(10134) = dARP(6351)/dV(4070) - JVRP(10134) = 1 -! JVRP(10135) = dARP(6352)/dV(4070) - JVRP(10135) = 1 -! JVRP(10136) = dARP(6353)/dV(4070) - JVRP(10136) = 1 -! JVRP(10137) = dARP(6354)/dV(5141) - JVRP(10137) = V(5256) -! JVRP(10138) = dARP(6354)/dV(5256) - JVRP(10138) = V(5141) -! JVRP(10139) = dARP(6355)/dV(5141) - JVRP(10139) = V(5258) -! JVRP(10140) = dARP(6355)/dV(5258) - JVRP(10140) = V(5141) -! JVRP(10141) = dARP(6356)/dV(5141) - JVRP(10141) = V(5258) -! JVRP(10142) = dARP(6356)/dV(5258) - JVRP(10142) = V(5141) -! JVRP(10143) = dARP(6357)/dV(5141) - JVRP(10143) = V(5250) -! JVRP(10144) = dARP(6357)/dV(5250) - JVRP(10144) = V(5141) -! JVRP(10145) = dARP(6358)/dV(5141) - JVRP(10145) = V(5250) -! JVRP(10146) = dARP(6358)/dV(5250) - JVRP(10146) = V(5141) -! JVRP(10147) = dARP(6359)/dV(5141) - JVRP(10147) = 1 -! JVRP(10148) = dARP(6360)/dV(5141) - JVRP(10148) = 1 -! JVRP(10149) = dARP(6361)/dV(4793) - JVRP(10149) = V(5256) -! JVRP(10150) = dARP(6361)/dV(5256) - JVRP(10150) = V(4793) -! JVRP(10151) = dARP(6362)/dV(4793) - JVRP(10151) = V(5258) -! JVRP(10152) = dARP(6362)/dV(5258) - JVRP(10152) = V(4793) -! JVRP(10153) = dARP(6363)/dV(4793) - JVRP(10153) = V(5250) -! JVRP(10154) = dARP(6363)/dV(5250) - JVRP(10154) = V(4793) -! JVRP(10155) = dARP(6364)/dV(1330) - JVRP(10155) = V(5250) -! JVRP(10156) = dARP(6364)/dV(5250) - JVRP(10156) = V(1330) -! JVRP(10157) = dARP(6365)/dV(1330) - JVRP(10157) = 1 -! JVRP(10158) = dARP(6366)/dV(1299) - JVRP(10158) = V(5250) -! JVRP(10159) = dARP(6366)/dV(5250) - JVRP(10159) = V(1299) -! JVRP(10160) = dARP(6367)/dV(1299) - JVRP(10160) = 1 -! JVRP(10161) = dARP(6368)/dV(2948) - JVRP(10161) = V(5250) -! JVRP(10162) = dARP(6368)/dV(5250) - JVRP(10162) = V(2948) -! JVRP(10163) = dARP(6369)/dV(2948) - JVRP(10163) = 1 -! JVRP(10164) = dARP(6370)/dV(947) - JVRP(10164) = V(5250) -! JVRP(10165) = dARP(6370)/dV(5250) - JVRP(10165) = V(947) -! JVRP(10166) = dARP(6371)/dV(947) - JVRP(10166) = 1 -! JVRP(10167) = dARP(6372)/dV(3581) - JVRP(10167) = 1 -! JVRP(10168) = dARP(6373)/dV(3581) - JVRP(10168) = 1 -! JVRP(10169) = dARP(6374)/dV(3457) - JVRP(10169) = V(5250) -! JVRP(10170) = dARP(6374)/dV(5250) - JVRP(10170) = V(3457) -! JVRP(10171) = dARP(6375)/dV(3457) - JVRP(10171) = 1 -! JVRP(10172) = dARP(6376)/dV(475) - JVRP(10172) = V(5250) -! JVRP(10173) = dARP(6376)/dV(5250) - JVRP(10173) = V(475) -! JVRP(10174) = dARP(6377)/dV(475) - JVRP(10174) = 1 -! JVRP(10175) = dARP(6378)/dV(3702) - JVRP(10175) = V(5250) -! JVRP(10176) = dARP(6378)/dV(5250) - JVRP(10176) = V(3702) -! JVRP(10177) = dARP(6379)/dV(3702) - JVRP(10177) = 1 -! JVRP(10178) = dARP(6380)/dV(3702) - JVRP(10178) = 1 -! JVRP(10179) = dARP(6381)/dV(3702) - JVRP(10179) = 1 -! JVRP(10180) = dARP(6382)/dV(623) - JVRP(10180) = 1 -! JVRP(10181) = dARP(6383)/dV(1665) - JVRP(10181) = V(5250) -! JVRP(10182) = dARP(6383)/dV(5250) - JVRP(10182) = V(1665) -! JVRP(10183) = dARP(6384)/dV(1665) - JVRP(10183) = 1 -! JVRP(10184) = dARP(6385)/dV(3262) - JVRP(10184) = V(5250) -! JVRP(10185) = dARP(6385)/dV(5250) - JVRP(10185) = V(3262) -! JVRP(10186) = dARP(6386)/dV(3262) - JVRP(10186) = 1 -! JVRP(10187) = dARP(6387)/dV(3295) - JVRP(10187) = V(5250) -! JVRP(10188) = dARP(6387)/dV(5250) - JVRP(10188) = V(3295) -! JVRP(10189) = dARP(6388)/dV(3295) - JVRP(10189) = 1 -! JVRP(10190) = dARP(6389)/dV(3295) - JVRP(10190) = 1 -! JVRP(10191) = dARP(6390)/dV(2728) - JVRP(10191) = 1 -! JVRP(10192) = dARP(6391)/dV(1594) - JVRP(10192) = V(5250) -! JVRP(10193) = dARP(6391)/dV(5250) - JVRP(10193) = V(1594) -! JVRP(10194) = dARP(6392)/dV(1594) - JVRP(10194) = 1 -! JVRP(10195) = dARP(6393)/dV(982) - JVRP(10195) = V(5250) -! JVRP(10196) = dARP(6393)/dV(5250) - JVRP(10196) = V(982) -! JVRP(10197) = dARP(6394)/dV(982) - JVRP(10197) = 1 -! JVRP(10198) = dARP(6395)/dV(3296) - JVRP(10198) = 1 -! JVRP(10199) = dARP(6396)/dV(18) - JVRP(10199) = V(5250) -! JVRP(10200) = dARP(6396)/dV(5250) - JVRP(10200) = V(18) -! JVRP(10201) = dARP(6397)/dV(3810) - JVRP(10201) = V(5255) -! JVRP(10202) = dARP(6397)/dV(5255) - JVRP(10202) = V(3810) -! JVRP(10203) = dARP(6398)/dV(3810) - JVRP(10203) = V(5252) -! JVRP(10204) = dARP(6398)/dV(5252) - JVRP(10204) = V(3810) -! JVRP(10205) = dARP(6399)/dV(3810) - JVRP(10205) = V(5256) -! JVRP(10206) = dARP(6399)/dV(5256) - JVRP(10206) = V(3810) -! JVRP(10207) = dARP(6400)/dV(3810) - JVRP(10207) = 1 -! JVRP(10208) = dARP(6401)/dV(3810) - JVRP(10208) = 1 -! JVRP(10209) = dARP(6402)/dV(3810) - JVRP(10209) = 1 -! JVRP(10210) = dARP(6403)/dV(4051) - JVRP(10210) = V(5255) -! JVRP(10211) = dARP(6403)/dV(5255) - JVRP(10211) = V(4051) -! JVRP(10212) = dARP(6404)/dV(4051) - JVRP(10212) = V(5255) -! JVRP(10213) = dARP(6404)/dV(5255) - JVRP(10213) = V(4051) -! JVRP(10214) = dARP(6405)/dV(4051) - JVRP(10214) = V(5252) -! JVRP(10215) = dARP(6405)/dV(5252) - JVRP(10215) = V(4051) -! JVRP(10216) = dARP(6406)/dV(4051) - JVRP(10216) = V(5253) -! JVRP(10217) = dARP(6406)/dV(5253) - JVRP(10217) = V(4051) -! JVRP(10218) = dARP(6407)/dV(4051) - JVRP(10218) = V(5256) -! JVRP(10219) = dARP(6407)/dV(5256) - JVRP(10219) = V(4051) -! JVRP(10220) = dARP(6408)/dV(4051) - JVRP(10220) = 1 -! JVRP(10221) = dARP(6409)/dV(3235) - JVRP(10221) = V(5250) -! JVRP(10222) = dARP(6409)/dV(5250) - JVRP(10222) = V(3235) -! JVRP(10223) = dARP(6410)/dV(3235) - JVRP(10223) = 1 -! JVRP(10224) = dARP(6411)/dV(3235) - JVRP(10224) = 1 -! JVRP(10225) = dARP(6412)/dV(2732) - JVRP(10225) = 1 -! JVRP(10226) = dARP(6413)/dV(1729) - JVRP(10226) = V(5250) -! JVRP(10227) = dARP(6413)/dV(5250) - JVRP(10227) = V(1729) -! JVRP(10228) = dARP(6414)/dV(1729) - JVRP(10228) = 1 -! JVRP(10229) = dARP(6415)/dV(1396) - JVRP(10229) = V(5250) -! JVRP(10230) = dARP(6415)/dV(5250) - JVRP(10230) = V(1396) -! JVRP(10231) = dARP(6416)/dV(1396) - JVRP(10231) = 1 -! JVRP(10232) = dARP(6417)/dV(3283) - JVRP(10232) = 1 -! JVRP(10233) = dARP(6418)/dV(74) - JVRP(10233) = V(5250) -! JVRP(10234) = dARP(6418)/dV(5250) - JVRP(10234) = V(74) -! JVRP(10235) = dARP(6419)/dV(4168) - JVRP(10235) = V(5255) -! JVRP(10236) = dARP(6419)/dV(5255) - JVRP(10236) = V(4168) -! JVRP(10237) = dARP(6420)/dV(4168) - JVRP(10237) = V(5255) -! JVRP(10238) = dARP(6420)/dV(5255) - JVRP(10238) = V(4168) -! JVRP(10239) = dARP(6421)/dV(4168) - JVRP(10239) = V(5252) -! JVRP(10240) = dARP(6421)/dV(5252) - JVRP(10240) = V(4168) -! JVRP(10241) = dARP(6422)/dV(4168) - JVRP(10241) = V(5253) -! JVRP(10242) = dARP(6422)/dV(5253) - JVRP(10242) = V(4168) -! JVRP(10243) = dARP(6423)/dV(4168) - JVRP(10243) = V(5256) -! JVRP(10244) = dARP(6423)/dV(5256) - JVRP(10244) = V(4168) -! JVRP(10245) = dARP(6424)/dV(4168) - JVRP(10245) = 1 -! JVRP(10246) = dARP(6425)/dV(898) - JVRP(10246) = V(5250) -! JVRP(10247) = dARP(6425)/dV(5250) - JVRP(10247) = V(898) -! JVRP(10248) = dARP(6426)/dV(898) - JVRP(10248) = 1 -! JVRP(10249) = dARP(6427)/dV(1274) - JVRP(10249) = V(5250) -! JVRP(10250) = dARP(6427)/dV(5250) - JVRP(10250) = V(1274) -! JVRP(10251) = dARP(6428)/dV(1274) - JVRP(10251) = 1 -! JVRP(10252) = dARP(6429)/dV(2650) - JVRP(10252) = V(5250) -! JVRP(10253) = dARP(6429)/dV(5250) - JVRP(10253) = V(2650) -! JVRP(10254) = dARP(6430)/dV(2650) - JVRP(10254) = 1 -! JVRP(10255) = dARP(6431)/dV(4628) - JVRP(10255) = V(5255) -! JVRP(10256) = dARP(6431)/dV(5255) - JVRP(10256) = V(4628) -! JVRP(10257) = dARP(6432)/dV(4628) - JVRP(10257) = V(5255) -! JVRP(10258) = dARP(6432)/dV(5255) - JVRP(10258) = V(4628) -! JVRP(10259) = dARP(6433)/dV(4628) - JVRP(10259) = V(5255) -! JVRP(10260) = dARP(6433)/dV(5255) - JVRP(10260) = V(4628) -! JVRP(10261) = dARP(6434)/dV(4628) - JVRP(10261) = V(5252) -! JVRP(10262) = dARP(6434)/dV(5252) - JVRP(10262) = V(4628) -! JVRP(10263) = dARP(6435)/dV(4628) - JVRP(10263) = V(5253) -! JVRP(10264) = dARP(6435)/dV(5253) - JVRP(10264) = V(4628) -! JVRP(10265) = dARP(6436)/dV(4628) - JVRP(10265) = V(5256) -! JVRP(10266) = dARP(6436)/dV(5256) - JVRP(10266) = V(4628) -! JVRP(10267) = dARP(6437)/dV(4628) - JVRP(10267) = 1 -! JVRP(10268) = dARP(6438)/dV(4628) - JVRP(10268) = 1 -! JVRP(10269) = dARP(6439)/dV(4277) - JVRP(10269) = V(5255) -! JVRP(10270) = dARP(6439)/dV(5255) - JVRP(10270) = V(4277) -! JVRP(10271) = dARP(6440)/dV(4277) - JVRP(10271) = V(5252) -! JVRP(10272) = dARP(6440)/dV(5252) - JVRP(10272) = V(4277) -! JVRP(10273) = dARP(6441)/dV(4277) - JVRP(10273) = V(5256) -! JVRP(10274) = dARP(6441)/dV(5256) - JVRP(10274) = V(4277) -! JVRP(10275) = dARP(6442)/dV(4277) - JVRP(10275) = 1 -! JVRP(10276) = dARP(6443)/dV(4277) - JVRP(10276) = 1 -! JVRP(10277) = dARP(6444)/dV(4787) - JVRP(10277) = V(5255) -! JVRP(10278) = dARP(6444)/dV(5255) - JVRP(10278) = V(4787) -! JVRP(10279) = dARP(6445)/dV(4787) - JVRP(10279) = V(5252) -! JVRP(10280) = dARP(6445)/dV(5252) - JVRP(10280) = V(4787) -! JVRP(10281) = dARP(6446)/dV(4787) - JVRP(10281) = V(5256) -! JVRP(10282) = dARP(6446)/dV(5256) - JVRP(10282) = V(4787) -! JVRP(10283) = dARP(6447)/dV(4787) - JVRP(10283) = 1 -! JVRP(10284) = dARP(6448)/dV(4787) - JVRP(10284) = 1 -! JVRP(10285) = dARP(6449)/dV(4787) - JVRP(10285) = 1 -! JVRP(10286) = dARP(6450)/dV(914) - JVRP(10286) = V(5250) -! JVRP(10287) = dARP(6450)/dV(5250) - JVRP(10287) = V(914) -! JVRP(10288) = dARP(6451)/dV(914) - JVRP(10288) = 1 -! JVRP(10289) = dARP(6452)/dV(3600) - JVRP(10289) = 1 -! JVRP(10290) = dARP(6453)/dV(3600) - JVRP(10290) = 1 -! JVRP(10291) = dARP(6454)/dV(3460) - JVRP(10291) = V(5250) -! JVRP(10292) = dARP(6454)/dV(5250) - JVRP(10292) = V(3460) -! JVRP(10293) = dARP(6455)/dV(3460) - JVRP(10293) = 1 -! JVRP(10294) = dARP(6456)/dV(374) - JVRP(10294) = V(5250) -! JVRP(10295) = dARP(6456)/dV(5250) - JVRP(10295) = V(374) -! JVRP(10296) = dARP(6457)/dV(374) - JVRP(10296) = 1 -! JVRP(10297) = dARP(6458)/dV(2137) - JVRP(10297) = V(5250) -! JVRP(10298) = dARP(6458)/dV(5250) - JVRP(10298) = V(2137) -! JVRP(10299) = dARP(6459)/dV(2137) - JVRP(10299) = 1 -! JVRP(10300) = dARP(6460)/dV(2137) - JVRP(10300) = 1 -! JVRP(10301) = dARP(6461)/dV(589) - JVRP(10301) = 1 -! JVRP(10302) = dARP(6462)/dV(1576) - JVRP(10302) = V(5250) -! JVRP(10303) = dARP(6462)/dV(5250) - JVRP(10303) = V(1576) -! JVRP(10304) = dARP(6463)/dV(1576) - JVRP(10304) = 1 -! JVRP(10305) = dARP(6464)/dV(3200) - JVRP(10305) = V(5250) -! JVRP(10306) = dARP(6464)/dV(5250) - JVRP(10306) = V(3200) -! JVRP(10307) = dARP(6465)/dV(3200) - JVRP(10307) = 1 -! JVRP(10308) = dARP(6466)/dV(4589) - JVRP(10308) = V(5255) -! JVRP(10309) = dARP(6466)/dV(5255) - JVRP(10309) = V(4589) -! JVRP(10310) = dARP(6467)/dV(4589) - JVRP(10310) = V(5252) -! JVRP(10311) = dARP(6467)/dV(5252) - JVRP(10311) = V(4589) -! JVRP(10312) = dARP(6468)/dV(4589) - JVRP(10312) = V(5256) -! JVRP(10313) = dARP(6468)/dV(5256) - JVRP(10313) = V(4589) -! JVRP(10314) = dARP(6469)/dV(4589) - JVRP(10314) = 1 -! JVRP(10315) = dARP(6470)/dV(4589) - JVRP(10315) = 1 -! JVRP(10316) = dARP(6471)/dV(4589) - JVRP(10316) = 1 -! JVRP(10317) = dARP(6472)/dV(4516) - JVRP(10317) = V(5255) -! JVRP(10318) = dARP(6472)/dV(5255) - JVRP(10318) = V(4516) -! JVRP(10319) = dARP(6473)/dV(4516) - JVRP(10319) = V(5255) -! JVRP(10320) = dARP(6473)/dV(5255) - JVRP(10320) = V(4516) -! JVRP(10321) = dARP(6474)/dV(4516) - JVRP(10321) = V(5255) -! JVRP(10322) = dARP(6474)/dV(5255) - JVRP(10322) = V(4516) -! JVRP(10323) = dARP(6475)/dV(4516) - JVRP(10323) = V(5252) -! JVRP(10324) = dARP(6475)/dV(5252) - JVRP(10324) = V(4516) -! JVRP(10325) = dARP(6476)/dV(4516) - JVRP(10325) = V(5253) -! JVRP(10326) = dARP(6476)/dV(5253) - JVRP(10326) = V(4516) -! JVRP(10327) = dARP(6477)/dV(4516) - JVRP(10327) = V(5256) -! JVRP(10328) = dARP(6477)/dV(5256) - JVRP(10328) = V(4516) -! JVRP(10329) = dARP(6478)/dV(4516) - JVRP(10329) = 1 -! JVRP(10330) = dARP(6479)/dV(4516) - JVRP(10330) = 1 -! JVRP(10331) = dARP(6480)/dV(2481) - JVRP(10331) = 1 -! JVRP(10332) = dARP(6481)/dV(2481) - JVRP(10332) = 1 -! JVRP(10333) = dARP(6482)/dV(2481) - JVRP(10333) = 1 -! JVRP(10334) = dARP(6483)/dV(2481) - JVRP(10334) = 1 -! JVRP(10335) = dARP(6484)/dV(4732) - JVRP(10335) = V(5255) -! JVRP(10336) = dARP(6484)/dV(5255) - JVRP(10336) = V(4732) -! JVRP(10337) = dARP(6485)/dV(4732) - JVRP(10337) = V(5252) -! JVRP(10338) = dARP(6485)/dV(5252) - JVRP(10338) = V(4732) -! JVRP(10339) = dARP(6486)/dV(4732) - JVRP(10339) = V(5256) -! JVRP(10340) = dARP(6486)/dV(5256) - JVRP(10340) = V(4732) -! JVRP(10341) = dARP(6487)/dV(4732) - JVRP(10341) = 1 -! JVRP(10342) = dARP(6488)/dV(4732) - JVRP(10342) = 1 -! JVRP(10343) = dARP(6489)/dV(4732) - JVRP(10343) = 1 -! JVRP(10344) = dARP(6490)/dV(4414) - JVRP(10344) = V(5255) -! JVRP(10345) = dARP(6490)/dV(5255) - JVRP(10345) = V(4414) -! JVRP(10346) = dARP(6491)/dV(4414) - JVRP(10346) = V(5255) -! JVRP(10347) = dARP(6491)/dV(5255) - JVRP(10347) = V(4414) -! JVRP(10348) = dARP(6492)/dV(4414) - JVRP(10348) = V(5255) -! JVRP(10349) = dARP(6492)/dV(5255) - JVRP(10349) = V(4414) -! JVRP(10350) = dARP(6493)/dV(4414) - JVRP(10350) = V(5252) -! JVRP(10351) = dARP(6493)/dV(5252) - JVRP(10351) = V(4414) -! JVRP(10352) = dARP(6494)/dV(4414) - JVRP(10352) = V(5253) -! JVRP(10353) = dARP(6494)/dV(5253) - JVRP(10353) = V(4414) -! JVRP(10354) = dARP(6495)/dV(4414) - JVRP(10354) = V(5256) -! JVRP(10355) = dARP(6495)/dV(5256) - JVRP(10355) = V(4414) -! JVRP(10356) = dARP(6496)/dV(4414) - JVRP(10356) = 1 -! JVRP(10357) = dARP(6497)/dV(4414) - JVRP(10357) = 1 -! JVRP(10358) = dARP(6498)/dV(1642) - JVRP(10358) = 1 -! JVRP(10359) = dARP(6499)/dV(1642) - JVRP(10359) = 1 -! JVRP(10360) = dARP(6500)/dV(1642) - JVRP(10360) = 1 -! JVRP(10361) = dARP(6501)/dV(1642) - JVRP(10361) = 1 -! JVRP(10362) = dARP(6502)/dV(4159) - JVRP(10362) = V(5255) -! JVRP(10363) = dARP(6502)/dV(5255) - JVRP(10363) = V(4159) -! JVRP(10364) = dARP(6503)/dV(4159) - JVRP(10364) = V(5252) -! JVRP(10365) = dARP(6503)/dV(5252) - JVRP(10365) = V(4159) -! JVRP(10366) = dARP(6504)/dV(4159) - JVRP(10366) = V(5252) -! JVRP(10367) = dARP(6504)/dV(5252) - JVRP(10367) = V(4159) -! JVRP(10368) = dARP(6505)/dV(4159) - JVRP(10368) = V(5256) -! JVRP(10369) = dARP(6505)/dV(5256) - JVRP(10369) = V(4159) -! JVRP(10370) = dARP(6506)/dV(4159) - JVRP(10370) = 1 -! JVRP(10371) = dARP(6507)/dV(4159) - JVRP(10371) = 1 -! JVRP(10372) = dARP(6508)/dV(4159) - JVRP(10372) = 1 -! JVRP(10373) = dARP(6509)/dV(2258) - JVRP(10373) = 1 -! JVRP(10374) = dARP(6510)/dV(2258) - JVRP(10374) = 1 -! JVRP(10375) = dARP(6511)/dV(2258) - JVRP(10375) = 1 -! JVRP(10376) = dARP(6512)/dV(2258) - JVRP(10376) = 1 -! JVRP(10377) = dARP(6513)/dV(4578) - JVRP(10377) = V(5255) -! JVRP(10378) = dARP(6513)/dV(5255) - JVRP(10378) = V(4578) -! JVRP(10379) = dARP(6514)/dV(4578) - JVRP(10379) = V(5252) -! JVRP(10380) = dARP(6514)/dV(5252) - JVRP(10380) = V(4578) -! JVRP(10381) = dARP(6515)/dV(4578) - JVRP(10381) = V(5252) -! JVRP(10382) = dARP(6515)/dV(5252) - JVRP(10382) = V(4578) -! JVRP(10383) = dARP(6516)/dV(4578) - JVRP(10383) = V(5256) -! JVRP(10384) = dARP(6516)/dV(5256) - JVRP(10384) = V(4578) -! JVRP(10385) = dARP(6517)/dV(4578) - JVRP(10385) = 1 -! JVRP(10386) = dARP(6518)/dV(4578) - JVRP(10386) = 1 -! JVRP(10387) = dARP(6519)/dV(4578) - JVRP(10387) = 1 -! JVRP(10388) = dARP(6520)/dV(4341) - JVRP(10388) = V(5255) -! JVRP(10389) = dARP(6520)/dV(5255) - JVRP(10389) = V(4341) -! JVRP(10390) = dARP(6521)/dV(4341) - JVRP(10390) = V(5252) -! JVRP(10391) = dARP(6521)/dV(5252) - JVRP(10391) = V(4341) -! JVRP(10392) = dARP(6522)/dV(4341) - JVRP(10392) = V(5256) -! JVRP(10393) = dARP(6522)/dV(5256) - JVRP(10393) = V(4341) -! JVRP(10394) = dARP(6523)/dV(4341) - JVRP(10394) = 1 -! JVRP(10395) = dARP(6524)/dV(4341) - JVRP(10395) = 1 -! JVRP(10396) = dARP(6525)/dV(4341) - JVRP(10396) = 1 -! JVRP(10397) = dARP(6526)/dV(4259) - JVRP(10397) = V(5255) -! JVRP(10398) = dARP(6526)/dV(5255) - JVRP(10398) = V(4259) -! JVRP(10399) = dARP(6527)/dV(4259) - JVRP(10399) = V(5255) -! JVRP(10400) = dARP(6527)/dV(5255) - JVRP(10400) = V(4259) -! JVRP(10401) = dARP(6528)/dV(4259) - JVRP(10401) = V(5252) -! JVRP(10402) = dARP(6528)/dV(5252) - JVRP(10402) = V(4259) -! JVRP(10403) = dARP(6529)/dV(4259) - JVRP(10403) = V(5253) -! JVRP(10404) = dARP(6529)/dV(5253) - JVRP(10404) = V(4259) -! JVRP(10405) = dARP(6530)/dV(4259) - JVRP(10405) = V(5256) -! JVRP(10406) = dARP(6530)/dV(5256) - JVRP(10406) = V(4259) -! JVRP(10407) = dARP(6531)/dV(4259) - JVRP(10407) = 1 -! JVRP(10408) = dARP(6532)/dV(1661) - JVRP(10408) = 1 -! JVRP(10409) = dARP(6533)/dV(2081) - JVRP(10409) = 1 -! JVRP(10410) = dARP(6534)/dV(2081) - JVRP(10410) = 1 -! JVRP(10411) = dARP(6535)/dV(563) - JVRP(10411) = 1 -! JVRP(10412) = dARP(6536)/dV(563) - JVRP(10412) = 1 -! JVRP(10413) = dARP(6537)/dV(5015) - JVRP(10413) = V(5255) -! JVRP(10414) = dARP(6537)/dV(5255) - JVRP(10414) = V(5015) -! JVRP(10415) = dARP(6538)/dV(5015) - JVRP(10415) = V(5252) -! JVRP(10416) = dARP(6538)/dV(5252) - JVRP(10416) = V(5015) -! JVRP(10417) = dARP(6539)/dV(5015) - JVRP(10417) = V(5252) -! JVRP(10418) = dARP(6539)/dV(5252) - JVRP(10418) = V(5015) -! JVRP(10419) = dARP(6540)/dV(5015) - JVRP(10419) = V(5256) -! JVRP(10420) = dARP(6540)/dV(5256) - JVRP(10420) = V(5015) -! JVRP(10421) = dARP(6541)/dV(5015) - JVRP(10421) = 1 -! JVRP(10422) = dARP(6542)/dV(5015) - JVRP(10422) = 1 -! JVRP(10423) = dARP(6543)/dV(5015) - JVRP(10423) = 1 -! JVRP(10424) = dARP(6544)/dV(4436) - JVRP(10424) = V(5255) -! JVRP(10425) = dARP(6544)/dV(5255) - JVRP(10425) = V(4436) -! JVRP(10426) = dARP(6545)/dV(4436) - JVRP(10426) = V(5255) -! JVRP(10427) = dARP(6545)/dV(5255) - JVRP(10427) = V(4436) -! JVRP(10428) = dARP(6546)/dV(4436) - JVRP(10428) = V(5255) -! JVRP(10429) = dARP(6546)/dV(5255) - JVRP(10429) = V(4436) -! JVRP(10430) = dARP(6547)/dV(4436) - JVRP(10430) = V(5252) -! JVRP(10431) = dARP(6547)/dV(5252) - JVRP(10431) = V(4436) -! JVRP(10432) = dARP(6548)/dV(4436) - JVRP(10432) = V(5253) -! JVRP(10433) = dARP(6548)/dV(5253) - JVRP(10433) = V(4436) -! JVRP(10434) = dARP(6549)/dV(4436) - JVRP(10434) = V(5256) -! JVRP(10435) = dARP(6549)/dV(5256) - JVRP(10435) = V(4436) -! JVRP(10436) = dARP(6550)/dV(4436) - JVRP(10436) = 1 -! JVRP(10437) = dARP(6551)/dV(4436) - JVRP(10437) = 1 -! JVRP(10438) = dARP(6552)/dV(3630) - JVRP(10438) = 1 -! JVRP(10439) = dARP(6553)/dV(3630) - JVRP(10439) = 1 -! JVRP(10440) = dARP(6554)/dV(529) - JVRP(10440) = 1 -! JVRP(10441) = dARP(6555)/dV(529) - JVRP(10441) = 1 -! JVRP(10442) = dARP(6556)/dV(3939) - JVRP(10442) = V(5255) -! JVRP(10443) = dARP(6556)/dV(5255) - JVRP(10443) = V(3939) -! JVRP(10444) = dARP(6557)/dV(3939) - JVRP(10444) = V(5252) -! JVRP(10445) = dARP(6557)/dV(5252) - JVRP(10445) = V(3939) -! JVRP(10446) = dARP(6558)/dV(3939) - JVRP(10446) = V(5256) -! JVRP(10447) = dARP(6558)/dV(5256) - JVRP(10447) = V(3939) -! JVRP(10448) = dARP(6559)/dV(3939) - JVRP(10448) = 1 -! JVRP(10449) = dARP(6560)/dV(3939) - JVRP(10449) = 1 -! JVRP(10450) = dARP(6561)/dV(1289) - JVRP(10450) = 1 -! JVRP(10451) = dARP(6562)/dV(1289) - JVRP(10451) = V(5250) -! JVRP(10452) = dARP(6562)/dV(5250) - JVRP(10452) = V(1289) -! JVRP(10453) = dARP(6563)/dV(4958) - JVRP(10453) = 1 -! JVRP(10454) = dARP(6564)/dV(4958) - JVRP(10454) = V(5250) -! JVRP(10455) = dARP(6564)/dV(5250) - JVRP(10455) = V(4958) -! JVRP(10456) = dARP(6565)/dV(3234) - JVRP(10456) = 1 -! JVRP(10457) = dARP(6566)/dV(4564) - JVRP(10457) = 1 -! JVRP(10458) = dARP(6567)/dV(4564) - JVRP(10458) = V(5250) -! JVRP(10459) = dARP(6567)/dV(5250) - JVRP(10459) = V(4564) -! JVRP(10460) = dARP(6568)/dV(5225) - JVRP(10460) = V(5250) -! JVRP(10461) = dARP(6568)/dV(5250) - JVRP(10461) = V(5225) -! JVRP(10462) = dARP(6569)/dV(5225) - JVRP(10462) = V(5250) -! JVRP(10463) = dARP(6569)/dV(5250) - JVRP(10463) = V(5225) -! JVRP(10464) = dARP(6570)/dV(5225) - JVRP(10464) = 1 -! JVRP(10465) = dARP(6571)/dV(3514) - JVRP(10465) = 1 -! JVRP(10466) = dARP(6572)/dV(3514) - JVRP(10466) = V(5250) -! JVRP(10467) = dARP(6572)/dV(5250) - JVRP(10467) = V(3514) -! JVRP(10468) = dARP(6573)/dV(533) - JVRP(10468) = 1 -! JVRP(10469) = dARP(6574)/dV(5080) - JVRP(10469) = 1 -! JVRP(10470) = dARP(6575)/dV(5080) - JVRP(10470) = V(5250) -! JVRP(10471) = dARP(6575)/dV(5250) - JVRP(10471) = V(5080) -! JVRP(10472) = dARP(6576)/dV(2497) - JVRP(10472) = 1 -! JVRP(10473) = dARP(6577)/dV(2497) - JVRP(10473) = 1 -! JVRP(10474) = dARP(6578)/dV(2497) - JVRP(10474) = V(5250) -! JVRP(10475) = dARP(6578)/dV(5250) - JVRP(10475) = V(2497) -! JVRP(10476) = dARP(6579)/dV(2497) - JVRP(10476) = V(5250) -! JVRP(10477) = dARP(6579)/dV(5250) - JVRP(10477) = V(2497) -! JVRP(10478) = dARP(6580)/dV(654) - JVRP(10478) = 1 -! JVRP(10479) = dARP(6581)/dV(3488) - JVRP(10479) = V(5256) -! JVRP(10480) = dARP(6581)/dV(5256) - JVRP(10480) = V(3488) -! JVRP(10481) = dARP(6582)/dV(3488) - JVRP(10481) = V(5250) -! JVRP(10482) = dARP(6582)/dV(5250) - JVRP(10482) = V(3488) -! JVRP(10483) = dARP(6583)/dV(3488) - JVRP(10483) = 1 -! JVRP(10484) = dARP(6584)/dV(4107) - JVRP(10484) = 1 -! JVRP(10485) = dARP(6585)/dV(4107) - JVRP(10485) = V(5250) -! JVRP(10486) = dARP(6585)/dV(5250) - JVRP(10486) = V(4107) -! JVRP(10487) = dARP(6586)/dV(4107) - JVRP(10487) = V(5250) -! JVRP(10488) = dARP(6586)/dV(5250) - JVRP(10488) = V(4107) -! JVRP(10489) = dARP(6587)/dV(4107) - JVRP(10489) = V(5250) -! JVRP(10490) = dARP(6587)/dV(5250) - JVRP(10490) = V(4107) -! JVRP(10491) = dARP(6588)/dV(2308) - JVRP(10491) = 1 -! JVRP(10492) = dARP(6589)/dV(2308) - JVRP(10492) = 1 -! JVRP(10493) = dARP(6590)/dV(2308) - JVRP(10493) = 1 -! JVRP(10494) = dARP(6591)/dV(5013) - JVRP(10494) = 1 -! JVRP(10495) = dARP(6592)/dV(5013) - JVRP(10495) = V(5258) -! JVRP(10496) = dARP(6592)/dV(5258) - JVRP(10496) = V(5013) -! JVRP(10497) = dARP(6593)/dV(5013) - JVRP(10497) = V(5258) -! JVRP(10498) = dARP(6593)/dV(5258) - JVRP(10498) = V(5013) -! JVRP(10499) = dARP(6594)/dV(5013) - JVRP(10499) = V(5250) -! JVRP(10500) = dARP(6594)/dV(5250) - JVRP(10500) = V(5013) -! JVRP(10501) = dARP(6595)/dV(4758) - JVRP(10501) = V(5255) -! JVRP(10502) = dARP(6595)/dV(5255) - JVRP(10502) = V(4758) -! JVRP(10503) = dARP(6596)/dV(4758) - JVRP(10503) = V(5252) -! JVRP(10504) = dARP(6596)/dV(5252) - JVRP(10504) = V(4758) -! JVRP(10505) = dARP(6597)/dV(4758) - JVRP(10505) = V(5256) -! JVRP(10506) = dARP(6597)/dV(5256) - JVRP(10506) = V(4758) -! JVRP(10507) = dARP(6598)/dV(4758) - JVRP(10507) = 1 -! JVRP(10508) = dARP(6599)/dV(4758) - JVRP(10508) = 1 -! JVRP(10509) = dARP(6600)/dV(4976) - JVRP(10509) = V(5256) -! JVRP(10510) = dARP(6600)/dV(5256) - JVRP(10510) = V(4976) -! JVRP(10511) = dARP(6601)/dV(4976) - JVRP(10511) = V(5258) -! JVRP(10512) = dARP(6601)/dV(5258) - JVRP(10512) = V(4976) -! JVRP(10513) = dARP(6602)/dV(4976) - JVRP(10513) = V(5258) -! JVRP(10514) = dARP(6602)/dV(5258) - JVRP(10514) = V(4976) -! JVRP(10515) = dARP(6603)/dV(4976) - JVRP(10515) = V(5250) -! JVRP(10516) = dARP(6603)/dV(5250) - JVRP(10516) = V(4976) -! JVRP(10517) = dARP(6604)/dV(4976) - JVRP(10517) = V(5250) -! JVRP(10518) = dARP(6604)/dV(5250) - JVRP(10518) = V(4976) -! JVRP(10519) = dARP(6605)/dV(4976) - JVRP(10519) = V(5250) -! JVRP(10520) = dARP(6605)/dV(5250) - JVRP(10520) = V(4976) -! JVRP(10521) = dARP(6606)/dV(4976) - JVRP(10521) = 1 -! JVRP(10522) = dARP(6607)/dV(4976) - JVRP(10522) = 1 -! JVRP(10523) = dARP(6608)/dV(5205) - JVRP(10523) = 1 -! JVRP(10524) = dARP(6609)/dV(5205) - JVRP(10524) = 1 -! JVRP(10525) = dARP(6610)/dV(5205) - JVRP(10525) = V(5256) -! JVRP(10526) = dARP(6610)/dV(5256) - JVRP(10526) = V(5205) -! JVRP(10527) = dARP(6611)/dV(5205) - JVRP(10527) = V(5258) -! JVRP(10528) = dARP(6611)/dV(5258) - JVRP(10528) = V(5205) -! JVRP(10529) = dARP(6612)/dV(5205) - JVRP(10529) = V(5258) -! JVRP(10530) = dARP(6612)/dV(5258) - JVRP(10530) = V(5205) -! JVRP(10531) = dARP(6613)/dV(5205) - JVRP(10531) = V(5250) -! JVRP(10532) = dARP(6613)/dV(5250) - JVRP(10532) = V(5205) -! JVRP(10533) = dARP(6614)/dV(5205) - JVRP(10533) = V(5250) -! JVRP(10534) = dARP(6614)/dV(5250) - JVRP(10534) = V(5205) -! JVRP(10535) = dARP(6615)/dV(5205) - JVRP(10535) = V(5250) -! JVRP(10536) = dARP(6615)/dV(5250) - JVRP(10536) = V(5205) -! JVRP(10537) = dARP(6616)/dV(5205) - JVRP(10537) = V(5250) -! JVRP(10538) = dARP(6616)/dV(5250) - JVRP(10538) = V(5205) -! JVRP(10539) = dARP(6617)/dV(3413) - JVRP(10539) = V(5250) -! JVRP(10540) = dARP(6617)/dV(5250) - JVRP(10540) = V(3413) -! JVRP(10541) = dARP(6618)/dV(3413) - JVRP(10541) = V(5250) -! JVRP(10542) = dARP(6618)/dV(5250) - JVRP(10542) = V(3413) -! JVRP(10543) = dARP(6619)/dV(2252) - JVRP(10543) = 1 -! JVRP(10544) = dARP(6620)/dV(2252) - JVRP(10544) = V(5250) -! JVRP(10545) = dARP(6620)/dV(5250) - JVRP(10545) = V(2252) -! JVRP(10546) = dARP(6621)/dV(2252) - JVRP(10546) = V(5250) -! JVRP(10547) = dARP(6621)/dV(5250) - JVRP(10547) = V(2252) -! JVRP(10548) = dARP(6622)/dV(4615) - JVRP(10548) = 1 -! JVRP(10549) = dARP(6623)/dV(4615) - JVRP(10549) = V(5258) -! JVRP(10550) = dARP(6623)/dV(5258) - JVRP(10550) = V(4615) -! JVRP(10551) = dARP(6624)/dV(4615) - JVRP(10551) = V(5258) -! JVRP(10552) = dARP(6624)/dV(5258) - JVRP(10552) = V(4615) -! JVRP(10553) = dARP(6625)/dV(4615) - JVRP(10553) = V(5250) -! JVRP(10554) = dARP(6625)/dV(5250) - JVRP(10554) = V(4615) -! JVRP(10555) = dARP(6626)/dV(4615) - JVRP(10555) = V(5250) -! JVRP(10556) = dARP(6626)/dV(5250) - JVRP(10556) = V(4615) -! JVRP(10557) = dARP(6627)/dV(3241) - JVRP(10557) = 1 -! JVRP(10558) = dARP(6628)/dV(105) - JVRP(10558) = V(5250) -! JVRP(10559) = dARP(6628)/dV(5250) - JVRP(10559) = V(105) -! JVRP(10560) = dARP(6629)/dV(4113) - JVRP(10560) = 1 -! JVRP(10561) = dARP(6630)/dV(4113) - JVRP(10561) = V(5250) -! JVRP(10562) = dARP(6630)/dV(5250) - JVRP(10562) = V(4113) -! JVRP(10563) = dARP(6631)/dV(4113) - JVRP(10563) = V(5250) -! JVRP(10564) = dARP(6631)/dV(5250) - JVRP(10564) = V(4113) -! JVRP(10565) = dARP(6632)/dV(4113) - JVRP(10565) = V(5250) -! JVRP(10566) = dARP(6632)/dV(5250) - JVRP(10566) = V(4113) -! JVRP(10567) = dARP(6633)/dV(2130) - JVRP(10567) = 1 -! JVRP(10568) = dARP(6634)/dV(2130) - JVRP(10568) = 1 -! JVRP(10569) = dARP(6635)/dV(2130) - JVRP(10569) = 1 -! JVRP(10570) = dARP(6636)/dV(4617) - JVRP(10570) = V(5255) -! JVRP(10571) = dARP(6636)/dV(5255) - JVRP(10571) = V(4617) -! JVRP(10572) = dARP(6637)/dV(4617) - JVRP(10572) = V(5252) -! JVRP(10573) = dARP(6637)/dV(5252) - JVRP(10573) = V(4617) -! JVRP(10574) = dARP(6638)/dV(4617) - JVRP(10574) = V(5256) -! JVRP(10575) = dARP(6638)/dV(5256) - JVRP(10575) = V(4617) -! JVRP(10576) = dARP(6639)/dV(4617) - JVRP(10576) = 1 -! JVRP(10577) = dARP(6640)/dV(4617) - JVRP(10577) = 1 -! JVRP(10578) = dARP(6641)/dV(5002) - JVRP(10578) = V(5256) -! JVRP(10579) = dARP(6641)/dV(5256) - JVRP(10579) = V(5002) -! JVRP(10580) = dARP(6642)/dV(5002) - JVRP(10580) = V(5258) -! JVRP(10581) = dARP(6642)/dV(5258) - JVRP(10581) = V(5002) -! JVRP(10582) = dARP(6643)/dV(5002) - JVRP(10582) = V(5258) -! JVRP(10583) = dARP(6643)/dV(5258) - JVRP(10583) = V(5002) -! JVRP(10584) = dARP(6644)/dV(5002) - JVRP(10584) = V(5250) -! JVRP(10585) = dARP(6644)/dV(5250) - JVRP(10585) = V(5002) -! JVRP(10586) = dARP(6645)/dV(5002) - JVRP(10586) = V(5250) -! JVRP(10587) = dARP(6645)/dV(5250) - JVRP(10587) = V(5002) -! JVRP(10588) = dARP(6646)/dV(5002) - JVRP(10588) = V(5250) -! JVRP(10589) = dARP(6646)/dV(5250) - JVRP(10589) = V(5002) -! JVRP(10590) = dARP(6647)/dV(5002) - JVRP(10590) = 1 -! JVRP(10591) = dARP(6648)/dV(5002) - JVRP(10591) = 1 -! JVRP(10592) = dARP(6649)/dV(5220) - JVRP(10592) = 1 -! JVRP(10593) = dARP(6650)/dV(5220) - JVRP(10593) = 1 -! JVRP(10594) = dARP(6651)/dV(5220) - JVRP(10594) = V(5256) -! JVRP(10595) = dARP(6651)/dV(5256) - JVRP(10595) = V(5220) -! JVRP(10596) = dARP(6652)/dV(5220) - JVRP(10596) = V(5258) -! JVRP(10597) = dARP(6652)/dV(5258) - JVRP(10597) = V(5220) -! JVRP(10598) = dARP(6653)/dV(5220) - JVRP(10598) = V(5258) -! JVRP(10599) = dARP(6653)/dV(5258) - JVRP(10599) = V(5220) -! JVRP(10600) = dARP(6654)/dV(5220) - JVRP(10600) = V(5250) -! JVRP(10601) = dARP(6654)/dV(5250) - JVRP(10601) = V(5220) -! JVRP(10602) = dARP(6655)/dV(5220) - JVRP(10602) = V(5250) -! JVRP(10603) = dARP(6655)/dV(5250) - JVRP(10603) = V(5220) -! JVRP(10604) = dARP(6656)/dV(5220) - JVRP(10604) = V(5250) -! JVRP(10605) = dARP(6656)/dV(5250) - JVRP(10605) = V(5220) -! JVRP(10606) = dARP(6657)/dV(5220) - JVRP(10606) = V(5250) -! JVRP(10607) = dARP(6657)/dV(5250) - JVRP(10607) = V(5220) -! JVRP(10608) = dARP(6658)/dV(2544) - JVRP(10608) = 1 -! JVRP(10609) = dARP(6659)/dV(2544) - JVRP(10609) = V(5250) -! JVRP(10610) = dARP(6659)/dV(5250) - JVRP(10610) = V(2544) -! JVRP(10611) = dARP(6660)/dV(2544) - JVRP(10611) = V(5250) -! JVRP(10612) = dARP(6660)/dV(5250) - JVRP(10612) = V(2544) -! JVRP(10613) = dARP(6661)/dV(2544) - JVRP(10613) = V(5250) -! JVRP(10614) = dARP(6661)/dV(5250) - JVRP(10614) = V(2544) -! JVRP(10615) = dARP(6662)/dV(4786) - JVRP(10615) = 1 -! JVRP(10616) = dARP(6663)/dV(4786) - JVRP(10616) = V(5258) -! JVRP(10617) = dARP(6663)/dV(5258) - JVRP(10617) = V(4786) -! JVRP(10618) = dARP(6664)/dV(4786) - JVRP(10618) = V(5258) -! JVRP(10619) = dARP(6664)/dV(5258) - JVRP(10619) = V(4786) -! JVRP(10620) = dARP(6665)/dV(4786) - JVRP(10620) = V(5250) -! JVRP(10621) = dARP(6665)/dV(5250) - JVRP(10621) = V(4786) -! JVRP(10622) = dARP(6666)/dV(3194) - JVRP(10622) = 1 -! JVRP(10623) = dARP(6667)/dV(3734) - JVRP(10623) = 1 -! JVRP(10624) = dARP(6668)/dV(3734) - JVRP(10624) = V(5250) -! JVRP(10625) = dARP(6668)/dV(5250) - JVRP(10625) = V(3734) -! JVRP(10626) = dARP(6669)/dV(5173) - JVRP(10626) = V(5255) -! JVRP(10627) = dARP(6669)/dV(5255) - JVRP(10627) = V(5173) -! JVRP(10628) = dARP(6670)/dV(5173) - JVRP(10628) = V(5252) -! JVRP(10629) = dARP(6670)/dV(5252) - JVRP(10629) = V(5173) -! JVRP(10630) = dARP(6671)/dV(5173) - JVRP(10630) = V(5252) -! JVRP(10631) = dARP(6671)/dV(5252) - JVRP(10631) = V(5173) -! JVRP(10632) = dARP(6672)/dV(5173) - JVRP(10632) = V(5256) -! JVRP(10633) = dARP(6672)/dV(5256) - JVRP(10633) = V(5173) -! JVRP(10634) = dARP(6673)/dV(5173) - JVRP(10634) = 1 -! JVRP(10635) = dARP(6674)/dV(5173) - JVRP(10635) = 1 -! JVRP(10636) = dARP(6675)/dV(558) - JVRP(10636) = 1 -! JVRP(10637) = dARP(6676)/dV(558) - JVRP(10637) = 1 -! JVRP(10638) = dARP(6677)/dV(4894) - JVRP(10638) = V(5255) -! JVRP(10639) = dARP(6677)/dV(5255) - JVRP(10639) = V(4894) -! JVRP(10640) = dARP(6678)/dV(4894) - JVRP(10640) = V(5252) -! JVRP(10641) = dARP(6678)/dV(5252) - JVRP(10641) = V(4894) -! JVRP(10642) = dARP(6679)/dV(4894) - JVRP(10642) = V(5252) -! JVRP(10643) = dARP(6679)/dV(5252) - JVRP(10643) = V(4894) -! JVRP(10644) = dARP(6680)/dV(4894) - JVRP(10644) = V(5256) -! JVRP(10645) = dARP(6680)/dV(5256) - JVRP(10645) = V(4894) -! JVRP(10646) = dARP(6681)/dV(4894) - JVRP(10646) = 1 -! JVRP(10647) = dARP(6682)/dV(4894) - JVRP(10647) = 1 -! JVRP(10648) = dARP(6683)/dV(4269) - JVRP(10648) = V(5255) -! JVRP(10649) = dARP(6683)/dV(5255) - JVRP(10649) = V(4269) -! JVRP(10650) = dARP(6684)/dV(4269) - JVRP(10650) = V(5255) -! JVRP(10651) = dARP(6684)/dV(5255) - JVRP(10651) = V(4269) -! JVRP(10652) = dARP(6685)/dV(4269) - JVRP(10652) = V(5252) -! JVRP(10653) = dARP(6685)/dV(5252) - JVRP(10653) = V(4269) -! JVRP(10654) = dARP(6686)/dV(4269) - JVRP(10654) = V(5253) -! JVRP(10655) = dARP(6686)/dV(5253) - JVRP(10655) = V(4269) -! JVRP(10656) = dARP(6687)/dV(4269) - JVRP(10656) = V(5256) -! JVRP(10657) = dARP(6687)/dV(5256) - JVRP(10657) = V(4269) -! JVRP(10658) = dARP(6688)/dV(4269) - JVRP(10658) = 1 -! JVRP(10659) = dARP(6689)/dV(1364) - JVRP(10659) = V(5250) -! JVRP(10660) = dARP(6689)/dV(5250) - JVRP(10660) = V(1364) -! JVRP(10661) = dARP(6690)/dV(1364) - JVRP(10661) = 1 -! JVRP(10662) = dARP(6691)/dV(3586) - JVRP(10662) = 1 -! JVRP(10663) = dARP(6692)/dV(3586) - JVRP(10663) = 1 -! JVRP(10664) = dARP(6693)/dV(4963) - JVRP(10664) = V(5251) -! JVRP(10665) = dARP(6693)/dV(5251) - JVRP(10665) = V(4963) -! JVRP(10666) = dARP(6694)/dV(4963) - JVRP(10666) = V(5252) -! JVRP(10667) = dARP(6694)/dV(5252) - JVRP(10667) = V(4963) -! JVRP(10668) = dARP(6695)/dV(4963) - JVRP(10668) = V(5253) -! JVRP(10669) = dARP(6695)/dV(5253) - JVRP(10669) = V(4963) -! JVRP(10670) = dARP(6696)/dV(4963) - JVRP(10670) = V(5254) -! JVRP(10671) = dARP(6696)/dV(5254) - JVRP(10671) = V(4963) -! JVRP(10672) = dARP(6697)/dV(4963) - JVRP(10672) = 1 -! JVRP(10673) = dARP(6698)/dV(4963) - JVRP(10673) = 1 -! JVRP(10674) = dARP(6699)/dV(873) - JVRP(10674) = V(5250) -! JVRP(10675) = dARP(6699)/dV(5250) - JVRP(10675) = V(873) -! JVRP(10676) = dARP(6700)/dV(873) - JVRP(10676) = 1 -! JVRP(10677) = dARP(6701)/dV(2834) - JVRP(10677) = V(5250) -! JVRP(10678) = dARP(6701)/dV(5250) - JVRP(10678) = V(2834) -! JVRP(10679) = dARP(6702)/dV(2834) - JVRP(10679) = 1 -! JVRP(10680) = dARP(6703)/dV(3048) - JVRP(10680) = 1 -! JVRP(10681) = dARP(6704)/dV(1285) - JVRP(10681) = V(5250) -! JVRP(10682) = dARP(6704)/dV(5250) - JVRP(10682) = V(1285) -! JVRP(10683) = dARP(6705)/dV(1285) - JVRP(10683) = 1 -! JVRP(10684) = dARP(6706)/dV(2791) - JVRP(10684) = V(5250) -! JVRP(10685) = dARP(6706)/dV(5250) - JVRP(10685) = V(2791) -! JVRP(10686) = dARP(6707)/dV(2791) - JVRP(10686) = 1 -! JVRP(10687) = dARP(6708)/dV(1445) - JVRP(10687) = V(5250) -! JVRP(10688) = dARP(6708)/dV(5250) - JVRP(10688) = V(1445) -! JVRP(10689) = dARP(6709)/dV(1445) - JVRP(10689) = 1 -! JVRP(10690) = dARP(6710)/dV(1846) - JVRP(10690) = V(5250) -! JVRP(10691) = dARP(6710)/dV(5250) - JVRP(10691) = V(1846) -! JVRP(10692) = dARP(6711)/dV(1846) - JVRP(10692) = 1 -! JVRP(10693) = dARP(6712)/dV(1847) - JVRP(10693) = 1 -! JVRP(10694) = dARP(6713)/dV(1306) - JVRP(10694) = V(5250) -! JVRP(10695) = dARP(6713)/dV(5250) - JVRP(10695) = V(1306) -! JVRP(10696) = dARP(6714)/dV(1306) - JVRP(10696) = 1 -! JVRP(10697) = dARP(6715)/dV(2821) - JVRP(10697) = 1 -! JVRP(10698) = dARP(6716)/dV(981) - JVRP(10698) = 1 -! JVRP(10699) = dARP(6717)/dV(981) - JVRP(10699) = V(5250) -! JVRP(10700) = dARP(6717)/dV(5250) - JVRP(10700) = V(981) -! JVRP(10701) = dARP(6718)/dV(2436) - JVRP(10701) = 1 -! JVRP(10702) = dARP(6719)/dV(2436) - JVRP(10702) = V(5250) -! JVRP(10703) = dARP(6719)/dV(5250) - JVRP(10703) = V(2436) -! JVRP(10704) = dARP(6720)/dV(2996) - JVRP(10704) = 1 -! JVRP(10705) = dARP(6721)/dV(9) - JVRP(10705) = V(5250) -! JVRP(10706) = dARP(6721)/dV(5250) - JVRP(10706) = V(9) -! JVRP(10707) = dARP(6722)/dV(4109) - JVRP(10707) = 1 -! JVRP(10708) = dARP(6723)/dV(4109) - JVRP(10708) = V(5250) -! JVRP(10709) = dARP(6723)/dV(5250) - JVRP(10709) = V(4109) -! JVRP(10710) = dARP(6724)/dV(1102) - JVRP(10710) = V(5250) -! JVRP(10711) = dARP(6724)/dV(5250) - JVRP(10711) = V(1102) -! JVRP(10712) = dARP(6725)/dV(1102) - JVRP(10712) = 1 -! JVRP(10713) = dARP(6726)/dV(1909) - JVRP(10713) = V(5250) -! JVRP(10714) = dARP(6726)/dV(5250) - JVRP(10714) = V(1909) -! JVRP(10715) = dARP(6727)/dV(1909) - JVRP(10715) = 1 -! JVRP(10716) = dARP(6728)/dV(1910) - JVRP(10716) = 1 -! JVRP(10717) = dARP(6729)/dV(194) - JVRP(10717) = 1 -! JVRP(10718) = dARP(6730)/dV(4060) - JVRP(10718) = V(5255) -! JVRP(10719) = dARP(6730)/dV(5255) - JVRP(10719) = V(4060) -! JVRP(10720) = dARP(6731)/dV(4060) - JVRP(10720) = V(5252) -! JVRP(10721) = dARP(6731)/dV(5252) - JVRP(10721) = V(4060) -! JVRP(10722) = dARP(6732)/dV(4060) - JVRP(10722) = V(5252) -! JVRP(10723) = dARP(6732)/dV(5252) - JVRP(10723) = V(4060) -! JVRP(10724) = dARP(6733)/dV(4060) - JVRP(10724) = V(5256) -! JVRP(10725) = dARP(6733)/dV(5256) - JVRP(10725) = V(4060) -! JVRP(10726) = dARP(6734)/dV(4060) - JVRP(10726) = 1 -! JVRP(10727) = dARP(6735)/dV(4060) - JVRP(10727) = 1 -! JVRP(10728) = dARP(6736)/dV(4060) - JVRP(10728) = 1 -! JVRP(10729) = dARP(6737)/dV(3676) - JVRP(10729) = V(5255) -! JVRP(10730) = dARP(6737)/dV(5255) - JVRP(10730) = V(3676) -! JVRP(10731) = dARP(6738)/dV(3676) - JVRP(10731) = V(5252) -! JVRP(10732) = dARP(6738)/dV(5252) - JVRP(10732) = V(3676) -! JVRP(10733) = dARP(6739)/dV(3676) - JVRP(10733) = V(5252) -! JVRP(10734) = dARP(6739)/dV(5252) - JVRP(10734) = V(3676) -! JVRP(10735) = dARP(6740)/dV(3676) - JVRP(10735) = V(5256) -! JVRP(10736) = dARP(6740)/dV(5256) - JVRP(10736) = V(3676) -! JVRP(10737) = dARP(6741)/dV(3676) - JVRP(10737) = 1 -! JVRP(10738) = dARP(6742)/dV(3676) - JVRP(10738) = 1 -! JVRP(10739) = dARP(6743)/dV(3676) - JVRP(10739) = 1 -! JVRP(10740) = dARP(6744)/dV(4595) - JVRP(10740) = V(5255) -! JVRP(10741) = dARP(6744)/dV(5255) - JVRP(10741) = V(4595) -! JVRP(10742) = dARP(6745)/dV(4595) - JVRP(10742) = V(5252) -! JVRP(10743) = dARP(6745)/dV(5252) - JVRP(10743) = V(4595) -! JVRP(10744) = dARP(6746)/dV(4595) - JVRP(10744) = V(5256) -! JVRP(10745) = dARP(6746)/dV(5256) - JVRP(10745) = V(4595) -! JVRP(10746) = dARP(6747)/dV(4595) - JVRP(10746) = 1 -! JVRP(10747) = dARP(6748)/dV(4595) - JVRP(10747) = 1 -! JVRP(10748) = dARP(6749)/dV(4595) - JVRP(10748) = 1 -! JVRP(10749) = dARP(6750)/dV(4127) - JVRP(10749) = V(5255) -! JVRP(10750) = dARP(6750)/dV(5255) - JVRP(10750) = V(4127) -! JVRP(10751) = dARP(6751)/dV(4127) - JVRP(10751) = V(5255) -! JVRP(10752) = dARP(6751)/dV(5255) - JVRP(10752) = V(4127) -! JVRP(10753) = dARP(6752)/dV(4127) - JVRP(10753) = V(5252) -! JVRP(10754) = dARP(6752)/dV(5252) - JVRP(10754) = V(4127) -! JVRP(10755) = dARP(6753)/dV(4127) - JVRP(10755) = V(5252) -! JVRP(10756) = dARP(6753)/dV(5252) - JVRP(10756) = V(4127) -! JVRP(10757) = dARP(6754)/dV(4127) - JVRP(10757) = V(5256) -! JVRP(10758) = dARP(6754)/dV(5256) - JVRP(10758) = V(4127) -! JVRP(10759) = dARP(6755)/dV(4127) - JVRP(10759) = 1 -! JVRP(10760) = dARP(6756)/dV(4127) - JVRP(10760) = 1 -! JVRP(10761) = dARP(6757)/dV(4127) - JVRP(10761) = 1 -! JVRP(10762) = dARP(6758)/dV(3619) - JVRP(10762) = V(5250) -! JVRP(10763) = dARP(6758)/dV(5250) - JVRP(10763) = V(3619) -! JVRP(10764) = dARP(6759)/dV(3619) - JVRP(10764) = V(5250) -! JVRP(10765) = dARP(6759)/dV(5250) - JVRP(10765) = V(3619) -! JVRP(10766) = dARP(6760)/dV(4219) - JVRP(10766) = V(5255) -! JVRP(10767) = dARP(6760)/dV(5255) - JVRP(10767) = V(4219) -! JVRP(10768) = dARP(6761)/dV(4219) - JVRP(10768) = V(5255) -! JVRP(10769) = dARP(6761)/dV(5255) - JVRP(10769) = V(4219) -! JVRP(10770) = dARP(6762)/dV(4219) - JVRP(10770) = V(5252) -! JVRP(10771) = dARP(6762)/dV(5252) - JVRP(10771) = V(4219) -! JVRP(10772) = dARP(6763)/dV(4219) - JVRP(10772) = V(5252) -! JVRP(10773) = dARP(6763)/dV(5252) - JVRP(10773) = V(4219) -! JVRP(10774) = dARP(6764)/dV(4219) - JVRP(10774) = V(5256) -! JVRP(10775) = dARP(6764)/dV(5256) - JVRP(10775) = V(4219) -! JVRP(10776) = dARP(6765)/dV(4219) - JVRP(10776) = 1 -! JVRP(10777) = dARP(6766)/dV(4219) - JVRP(10777) = 1 -! JVRP(10778) = dARP(6767)/dV(4219) - JVRP(10778) = 1 -! JVRP(10779) = dARP(6768)/dV(4368) - JVRP(10779) = V(5255) -! JVRP(10780) = dARP(6768)/dV(5255) - JVRP(10780) = V(4368) -! JVRP(10781) = dARP(6769)/dV(4368) - JVRP(10781) = V(5255) -! JVRP(10782) = dARP(6769)/dV(5255) - JVRP(10782) = V(4368) -! JVRP(10783) = dARP(6770)/dV(4368) - JVRP(10783) = V(5252) -! JVRP(10784) = dARP(6770)/dV(5252) - JVRP(10784) = V(4368) -! JVRP(10785) = dARP(6771)/dV(4368) - JVRP(10785) = V(5252) -! JVRP(10786) = dARP(6771)/dV(5252) - JVRP(10786) = V(4368) -! JVRP(10787) = dARP(6772)/dV(4368) - JVRP(10787) = V(5256) -! JVRP(10788) = dARP(6772)/dV(5256) - JVRP(10788) = V(4368) -! JVRP(10789) = dARP(6773)/dV(4368) - JVRP(10789) = 1 -! JVRP(10790) = dARP(6774)/dV(4368) - JVRP(10790) = 1 -! JVRP(10791) = dARP(6775)/dV(4368) - JVRP(10791) = 1 -! JVRP(10792) = dARP(6776)/dV(4610) - JVRP(10792) = V(5255) -! JVRP(10793) = dARP(6776)/dV(5255) - JVRP(10793) = V(4610) -! JVRP(10794) = dARP(6777)/dV(4610) - JVRP(10794) = V(5255) -! JVRP(10795) = dARP(6777)/dV(5255) - JVRP(10795) = V(4610) -! JVRP(10796) = dARP(6778)/dV(4610) - JVRP(10796) = V(5252) -! JVRP(10797) = dARP(6778)/dV(5252) - JVRP(10797) = V(4610) -! JVRP(10798) = dARP(6779)/dV(4610) - JVRP(10798) = V(5252) -! JVRP(10799) = dARP(6779)/dV(5252) - JVRP(10799) = V(4610) -! JVRP(10800) = dARP(6780)/dV(4610) - JVRP(10800) = V(5256) -! JVRP(10801) = dARP(6780)/dV(5256) - JVRP(10801) = V(4610) -! JVRP(10802) = dARP(6781)/dV(4610) - JVRP(10802) = 1 -! JVRP(10803) = dARP(6782)/dV(4610) - JVRP(10803) = 1 -! JVRP(10804) = dARP(6783)/dV(4610) - JVRP(10804) = 1 -! JVRP(10805) = dARP(6784)/dV(4611) - JVRP(10805) = V(5255) -! JVRP(10806) = dARP(6784)/dV(5255) - JVRP(10806) = V(4611) -! JVRP(10807) = dARP(6785)/dV(4611) - JVRP(10807) = V(5255) -! JVRP(10808) = dARP(6785)/dV(5255) - JVRP(10808) = V(4611) -! JVRP(10809) = dARP(6786)/dV(4611) - JVRP(10809) = V(5255) -! JVRP(10810) = dARP(6786)/dV(5255) - JVRP(10810) = V(4611) -! JVRP(10811) = dARP(6787)/dV(4611) - JVRP(10811) = V(5252) -! JVRP(10812) = dARP(6787)/dV(5252) - JVRP(10812) = V(4611) -! JVRP(10813) = dARP(6788)/dV(4611) - JVRP(10813) = V(5253) -! JVRP(10814) = dARP(6788)/dV(5253) - JVRP(10814) = V(4611) -! JVRP(10815) = dARP(6789)/dV(4611) - JVRP(10815) = V(5256) -! JVRP(10816) = dARP(6789)/dV(5256) - JVRP(10816) = V(4611) -! JVRP(10817) = dARP(6790)/dV(4611) - JVRP(10817) = 1 -! JVRP(10818) = dARP(6791)/dV(4611) - JVRP(10818) = 1 -! JVRP(10819) = dARP(6792)/dV(4730) - JVRP(10819) = V(5255) -! JVRP(10820) = dARP(6792)/dV(5255) - JVRP(10820) = V(4730) -! JVRP(10821) = dARP(6793)/dV(4730) - JVRP(10821) = V(5252) -! JVRP(10822) = dARP(6793)/dV(5252) - JVRP(10822) = V(4730) -! JVRP(10823) = dARP(6794)/dV(4730) - JVRP(10823) = V(5256) -! JVRP(10824) = dARP(6794)/dV(5256) - JVRP(10824) = V(4730) -! JVRP(10825) = dARP(6795)/dV(4730) - JVRP(10825) = 1 -! JVRP(10826) = dARP(6796)/dV(4730) - JVRP(10826) = 1 -! JVRP(10827) = dARP(6797)/dV(4730) - JVRP(10827) = 1 -! JVRP(10828) = dARP(6798)/dV(5197) - JVRP(10828) = V(5255) -! JVRP(10829) = dARP(6798)/dV(5255) - JVRP(10829) = V(5197) -! JVRP(10830) = dARP(6799)/dV(5197) - JVRP(10830) = V(5252) -! JVRP(10831) = dARP(6799)/dV(5252) - JVRP(10831) = V(5197) -! JVRP(10832) = dARP(6800)/dV(5197) - JVRP(10832) = V(5256) -! JVRP(10833) = dARP(6800)/dV(5256) - JVRP(10833) = V(5197) -! JVRP(10834) = dARP(6801)/dV(5197) - JVRP(10834) = 1 -! JVRP(10835) = dARP(6802)/dV(5197) - JVRP(10835) = 1 -! JVRP(10836) = dARP(6803)/dV(5197) - JVRP(10836) = 1 -! JVRP(10837) = dARP(6804)/dV(4885) - JVRP(10837) = V(5255) -! JVRP(10838) = dARP(6804)/dV(5255) - JVRP(10838) = V(4885) -! JVRP(10839) = dARP(6805)/dV(4885) - JVRP(10839) = V(5252) -! JVRP(10840) = dARP(6805)/dV(5252) - JVRP(10840) = V(4885) -! JVRP(10841) = dARP(6806)/dV(4885) - JVRP(10841) = V(5256) -! JVRP(10842) = dARP(6806)/dV(5256) - JVRP(10842) = V(4885) -! JVRP(10843) = dARP(6807)/dV(4885) - JVRP(10843) = 1 -! JVRP(10844) = dARP(6808)/dV(4885) - JVRP(10844) = 1 -! JVRP(10845) = dARP(6809)/dV(4885) - JVRP(10845) = 1 -! JVRP(10846) = dARP(6810)/dV(4991) - JVRP(10846) = V(5255) -! JVRP(10847) = dARP(6810)/dV(5255) - JVRP(10847) = V(4991) -! JVRP(10848) = dARP(6811)/dV(4991) - JVRP(10848) = V(5252) -! JVRP(10849) = dARP(6811)/dV(5252) - JVRP(10849) = V(4991) -! JVRP(10850) = dARP(6812)/dV(4991) - JVRP(10850) = V(5256) -! JVRP(10851) = dARP(6812)/dV(5256) - JVRP(10851) = V(4991) -! JVRP(10852) = dARP(6813)/dV(4991) - JVRP(10852) = 1 -! JVRP(10853) = dARP(6814)/dV(4169) - JVRP(10853) = V(5255) -! JVRP(10854) = dARP(6814)/dV(5255) - JVRP(10854) = V(4169) -! JVRP(10855) = dARP(6815)/dV(4169) - JVRP(10855) = V(5252) -! JVRP(10856) = dARP(6815)/dV(5252) - JVRP(10856) = V(4169) -! JVRP(10857) = dARP(6816)/dV(4169) - JVRP(10857) = V(5256) -! JVRP(10858) = dARP(6816)/dV(5256) - JVRP(10858) = V(4169) -! JVRP(10859) = dARP(6817)/dV(4169) - JVRP(10859) = 1 -! JVRP(10860) = dARP(6818)/dV(4169) - JVRP(10860) = 1 -! JVRP(10861) = dARP(6819)/dV(4169) - JVRP(10861) = 1 -! JVRP(10862) = dARP(6820)/dV(4126) - JVRP(10862) = V(5255) -! JVRP(10863) = dARP(6820)/dV(5255) - JVRP(10863) = V(4126) -! JVRP(10864) = dARP(6821)/dV(4126) - JVRP(10864) = V(5252) -! JVRP(10865) = dARP(6821)/dV(5252) - JVRP(10865) = V(4126) -! JVRP(10866) = dARP(6822)/dV(4126) - JVRP(10866) = V(5256) -! JVRP(10867) = dARP(6822)/dV(5256) - JVRP(10867) = V(4126) -! JVRP(10868) = dARP(6823)/dV(4126) - JVRP(10868) = 1 -! JVRP(10869) = dARP(6824)/dV(4126) - JVRP(10869) = 1 -! JVRP(10870) = dARP(6825)/dV(4126) - JVRP(10870) = 1 -! JVRP(10871) = dARP(6826)/dV(5117) - JVRP(10871) = V(5255) -! JVRP(10872) = dARP(6826)/dV(5255) - JVRP(10872) = V(5117) -! JVRP(10873) = dARP(6827)/dV(5117) - JVRP(10873) = V(5255) -! JVRP(10874) = dARP(6827)/dV(5255) - JVRP(10874) = V(5117) -! JVRP(10875) = dARP(6828)/dV(5117) - JVRP(10875) = V(5255) -! JVRP(10876) = dARP(6828)/dV(5255) - JVRP(10876) = V(5117) -! JVRP(10877) = dARP(6829)/dV(5117) - JVRP(10877) = V(5252) -! JVRP(10878) = dARP(6829)/dV(5252) - JVRP(10878) = V(5117) -! JVRP(10879) = dARP(6830)/dV(5117) - JVRP(10879) = V(5253) -! JVRP(10880) = dARP(6830)/dV(5253) - JVRP(10880) = V(5117) -! JVRP(10881) = dARP(6831)/dV(5117) - JVRP(10881) = V(5256) -! JVRP(10882) = dARP(6831)/dV(5256) - JVRP(10882) = V(5117) -! JVRP(10883) = dARP(6832)/dV(5117) - JVRP(10883) = 1 -! JVRP(10884) = dARP(6833)/dV(5117) - JVRP(10884) = 1 -! JVRP(10885) = dARP(6834)/dV(3926) - JVRP(10885) = V(5255) -! JVRP(10886) = dARP(6834)/dV(5255) - JVRP(10886) = V(3926) -! JVRP(10887) = dARP(6835)/dV(3926) - JVRP(10887) = V(5252) -! JVRP(10888) = dARP(6835)/dV(5252) - JVRP(10888) = V(3926) -! JVRP(10889) = dARP(6836)/dV(3926) - JVRP(10889) = V(5256) -! JVRP(10890) = dARP(6836)/dV(5256) - JVRP(10890) = V(3926) -! JVRP(10891) = dARP(6837)/dV(3926) - JVRP(10891) = 1 -! JVRP(10892) = dARP(6838)/dV(4095) - JVRP(10892) = V(5255) -! JVRP(10893) = dARP(6838)/dV(5255) - JVRP(10893) = V(4095) -! JVRP(10894) = dARP(6839)/dV(4095) - JVRP(10894) = V(5252) -! JVRP(10895) = dARP(6839)/dV(5252) - JVRP(10895) = V(4095) -! JVRP(10896) = dARP(6840)/dV(4095) - JVRP(10896) = V(5256) -! JVRP(10897) = dARP(6840)/dV(5256) - JVRP(10897) = V(4095) -! JVRP(10898) = dARP(6841)/dV(4095) - JVRP(10898) = 1 -! JVRP(10899) = dARP(6842)/dV(4446) - JVRP(10899) = V(5255) -! JVRP(10900) = dARP(6842)/dV(5255) - JVRP(10900) = V(4446) -! JVRP(10901) = dARP(6843)/dV(4446) - JVRP(10901) = V(5252) -! JVRP(10902) = dARP(6843)/dV(5252) - JVRP(10902) = V(4446) -! JVRP(10903) = dARP(6844)/dV(4446) - JVRP(10903) = V(5256) -! JVRP(10904) = dARP(6844)/dV(5256) - JVRP(10904) = V(4446) -! JVRP(10905) = dARP(6845)/dV(4446) - JVRP(10905) = 1 -! JVRP(10906) = dARP(6846)/dV(4446) - JVRP(10906) = 1 -! JVRP(10907) = dARP(6847)/dV(4446) - JVRP(10907) = 1 -! JVRP(10908) = dARP(6848)/dV(5150) - JVRP(10908) = V(5255) -! JVRP(10909) = dARP(6848)/dV(5255) - JVRP(10909) = V(5150) -! JVRP(10910) = dARP(6849)/dV(5150) - JVRP(10910) = V(5252) -! JVRP(10911) = dARP(6849)/dV(5252) - JVRP(10911) = V(5150) -! JVRP(10912) = dARP(6850)/dV(5150) - JVRP(10912) = V(5252) -! JVRP(10913) = dARP(6850)/dV(5252) - JVRP(10913) = V(5150) -! JVRP(10914) = dARP(6851)/dV(5150) - JVRP(10914) = V(5256) -! JVRP(10915) = dARP(6851)/dV(5256) - JVRP(10915) = V(5150) -! JVRP(10916) = dARP(6852)/dV(5150) - JVRP(10916) = 1 -! JVRP(10917) = dARP(6853)/dV(5150) - JVRP(10917) = 1 -! JVRP(10918) = dARP(6854)/dV(5150) - JVRP(10918) = 1 -! JVRP(10919) = dARP(6855)/dV(4646) - JVRP(10919) = V(5255) -! JVRP(10920) = dARP(6855)/dV(5255) - JVRP(10920) = V(4646) -! JVRP(10921) = dARP(6856)/dV(4646) - JVRP(10921) = V(5252) -! JVRP(10922) = dARP(6856)/dV(5252) - JVRP(10922) = V(4646) -! JVRP(10923) = dARP(6857)/dV(4646) - JVRP(10923) = V(5252) -! JVRP(10924) = dARP(6857)/dV(5252) - JVRP(10924) = V(4646) -! JVRP(10925) = dARP(6858)/dV(4646) - JVRP(10925) = V(5256) -! JVRP(10926) = dARP(6858)/dV(5256) - JVRP(10926) = V(4646) -! JVRP(10927) = dARP(6859)/dV(4646) - JVRP(10927) = 1 -! JVRP(10928) = dARP(6860)/dV(4646) - JVRP(10928) = 1 -! JVRP(10929) = dARP(6861)/dV(4646) - JVRP(10929) = 1 -! JVRP(10930) = dARP(6862)/dV(4871) - JVRP(10930) = V(5255) -! JVRP(10931) = dARP(6862)/dV(5255) - JVRP(10931) = V(4871) -! JVRP(10932) = dARP(6863)/dV(4871) - JVRP(10932) = V(5252) -! JVRP(10933) = dARP(6863)/dV(5252) - JVRP(10933) = V(4871) -! JVRP(10934) = dARP(6864)/dV(4871) - JVRP(10934) = V(5256) -! JVRP(10935) = dARP(6864)/dV(5256) - JVRP(10935) = V(4871) -! JVRP(10936) = dARP(6865)/dV(4871) - JVRP(10936) = 1 -! JVRP(10937) = dARP(6866)/dV(4827) - JVRP(10937) = V(5255) -! JVRP(10938) = dARP(6866)/dV(5255) - JVRP(10938) = V(4827) -! JVRP(10939) = dARP(6867)/dV(4827) - JVRP(10939) = V(5252) -! JVRP(10940) = dARP(6867)/dV(5252) - JVRP(10940) = V(4827) -! JVRP(10941) = dARP(6868)/dV(4827) - JVRP(10941) = V(5256) -! JVRP(10942) = dARP(6868)/dV(5256) - JVRP(10942) = V(4827) -! JVRP(10943) = dARP(6869)/dV(4827) - JVRP(10943) = 1 -! JVRP(10944) = dARP(6870)/dV(4827) - JVRP(10944) = 1 -! JVRP(10945) = dARP(6871)/dV(4827) - JVRP(10945) = 1 -! JVRP(10946) = dARP(6872)/dV(4118) - JVRP(10946) = V(5255) -! JVRP(10947) = dARP(6872)/dV(5255) - JVRP(10947) = V(4118) -! JVRP(10948) = dARP(6873)/dV(4118) - JVRP(10948) = V(5252) -! JVRP(10949) = dARP(6873)/dV(5252) - JVRP(10949) = V(4118) -! JVRP(10950) = dARP(6874)/dV(4118) - JVRP(10950) = V(5256) -! JVRP(10951) = dARP(6874)/dV(5256) - JVRP(10951) = V(4118) -! JVRP(10952) = dARP(6875)/dV(4118) - JVRP(10952) = 1 -! JVRP(10953) = dARP(6876)/dV(4365) - JVRP(10953) = V(5255) -! JVRP(10954) = dARP(6876)/dV(5255) - JVRP(10954) = V(4365) -! JVRP(10955) = dARP(6877)/dV(4365) - JVRP(10955) = V(5252) -! JVRP(10956) = dARP(6877)/dV(5252) - JVRP(10956) = V(4365) -! JVRP(10957) = dARP(6878)/dV(4365) - JVRP(10957) = V(5256) -! JVRP(10958) = dARP(6878)/dV(5256) - JVRP(10958) = V(4365) -! JVRP(10959) = dARP(6879)/dV(4365) - JVRP(10959) = 1 -! JVRP(10960) = dARP(6880)/dV(4365) - JVRP(10960) = 1 -! JVRP(10961) = dARP(6881)/dV(4365) - JVRP(10961) = 1 -! JVRP(10962) = dARP(6882)/dV(4627) - JVRP(10962) = V(5255) -! JVRP(10963) = dARP(6882)/dV(5255) - JVRP(10963) = V(4627) -! JVRP(10964) = dARP(6883)/dV(4627) - JVRP(10964) = V(5255) -! JVRP(10965) = dARP(6883)/dV(5255) - JVRP(10965) = V(4627) -! JVRP(10966) = dARP(6884)/dV(4627) - JVRP(10966) = V(5252) -! JVRP(10967) = dARP(6884)/dV(5252) - JVRP(10967) = V(4627) -! JVRP(10968) = dARP(6885)/dV(4627) - JVRP(10968) = V(5253) -! JVRP(10969) = dARP(6885)/dV(5253) - JVRP(10969) = V(4627) -! JVRP(10970) = dARP(6886)/dV(4627) - JVRP(10970) = V(5256) -! JVRP(10971) = dARP(6886)/dV(5256) - JVRP(10971) = V(4627) -! JVRP(10972) = dARP(6887)/dV(4627) - JVRP(10972) = 1 -! JVRP(10973) = dARP(6888)/dV(4318) - JVRP(10973) = V(5255) -! JVRP(10974) = dARP(6888)/dV(5255) - JVRP(10974) = V(4318) -! JVRP(10975) = dARP(6889)/dV(4318) - JVRP(10975) = V(5252) -! JVRP(10976) = dARP(6889)/dV(5252) - JVRP(10976) = V(4318) -! JVRP(10977) = dARP(6890)/dV(4318) - JVRP(10977) = V(5256) -! JVRP(10978) = dARP(6890)/dV(5256) - JVRP(10978) = V(4318) -! JVRP(10979) = dARP(6891)/dV(4318) - JVRP(10979) = 1 -! JVRP(10980) = dARP(6892)/dV(4170) - JVRP(10980) = V(5255) -! JVRP(10981) = dARP(6892)/dV(5255) - JVRP(10981) = V(4170) -! JVRP(10982) = dARP(6893)/dV(4170) - JVRP(10982) = V(5252) -! JVRP(10983) = dARP(6893)/dV(5252) - JVRP(10983) = V(4170) -! JVRP(10984) = dARP(6894)/dV(4170) - JVRP(10984) = V(5256) -! JVRP(10985) = dARP(6894)/dV(5256) - JVRP(10985) = V(4170) -! JVRP(10986) = dARP(6895)/dV(4170) - JVRP(10986) = 1 -! JVRP(10987) = dARP(6896)/dV(4105) - JVRP(10987) = V(5255) -! JVRP(10988) = dARP(6896)/dV(5255) - JVRP(10988) = V(4105) -! JVRP(10989) = dARP(6897)/dV(4105) - JVRP(10989) = V(5252) -! JVRP(10990) = dARP(6897)/dV(5252) - JVRP(10990) = V(4105) -! JVRP(10991) = dARP(6898)/dV(4105) - JVRP(10991) = V(5256) -! JVRP(10992) = dARP(6898)/dV(5256) - JVRP(10992) = V(4105) -! JVRP(10993) = dARP(6899)/dV(4105) - JVRP(10993) = 1 -! JVRP(10994) = dARP(6900)/dV(4105) - JVRP(10994) = 1 -! JVRP(10995) = dARP(6901)/dV(4105) - JVRP(10995) = 1 -! JVRP(10996) = dARP(6902)/dV(4836) - JVRP(10996) = V(5255) -! JVRP(10997) = dARP(6902)/dV(5255) - JVRP(10997) = V(4836) -! JVRP(10998) = dARP(6903)/dV(4836) - JVRP(10998) = V(5255) -! JVRP(10999) = dARP(6903)/dV(5255) - JVRP(10999) = V(4836) -! JVRP(11000) = dARP(6904)/dV(4836) - JVRP(11000) = V(5255) -! JVRP(11001) = dARP(6904)/dV(5255) - JVRP(11001) = V(4836) -! JVRP(11002) = dARP(6905)/dV(4836) - JVRP(11002) = V(5252) -! JVRP(11003) = dARP(6905)/dV(5252) - JVRP(11003) = V(4836) -! JVRP(11004) = dARP(6906)/dV(4836) - JVRP(11004) = V(5253) -! JVRP(11005) = dARP(6906)/dV(5253) - JVRP(11005) = V(4836) -! JVRP(11006) = dARP(6907)/dV(4836) - JVRP(11006) = V(5256) -! JVRP(11007) = dARP(6907)/dV(5256) - JVRP(11007) = V(4836) -! JVRP(11008) = dARP(6908)/dV(4836) - JVRP(11008) = 1 -! JVRP(11009) = dARP(6909)/dV(4836) - JVRP(11009) = 1 -! JVRP(11010) = dARP(6910)/dV(4158) - JVRP(11010) = V(5255) -! JVRP(11011) = dARP(6910)/dV(5255) - JVRP(11011) = V(4158) -! JVRP(11012) = dARP(6911)/dV(4158) - JVRP(11012) = V(5252) -! JVRP(11013) = dARP(6911)/dV(5252) - JVRP(11013) = V(4158) -! JVRP(11014) = dARP(6912)/dV(4158) - JVRP(11014) = V(5256) -! JVRP(11015) = dARP(6912)/dV(5256) - JVRP(11015) = V(4158) -! JVRP(11016) = dARP(6913)/dV(4158) - JVRP(11016) = 1 -! JVRP(11017) = dARP(6914)/dV(4158) - JVRP(11017) = 1 -! JVRP(11018) = dARP(6915)/dV(4158) - JVRP(11018) = 1 -! JVRP(11019) = dARP(6916)/dV(4765) - JVRP(11019) = V(5255) -! JVRP(11020) = dARP(6916)/dV(5255) - JVRP(11020) = V(4765) -! JVRP(11021) = dARP(6917)/dV(4765) - JVRP(11021) = V(5252) -! JVRP(11022) = dARP(6917)/dV(5252) - JVRP(11022) = V(4765) -! JVRP(11023) = dARP(6918)/dV(4765) - JVRP(11023) = V(5256) -! JVRP(11024) = dARP(6918)/dV(5256) - JVRP(11024) = V(4765) -! JVRP(11025) = dARP(6919)/dV(4765) - JVRP(11025) = 1 -! JVRP(11026) = dARP(6920)/dV(4765) - JVRP(11026) = 1 -! JVRP(11027) = dARP(6921)/dV(4765) - JVRP(11027) = 1 -! JVRP(11028) = dARP(6922)/dV(1113) - JVRP(11028) = V(5250) -! JVRP(11029) = dARP(6922)/dV(5250) - JVRP(11029) = V(1113) -! JVRP(11030) = dARP(6923)/dV(5213) - JVRP(11030) = V(5256) -! JVRP(11031) = dARP(6923)/dV(5256) - JVRP(11031) = V(5213) -! JVRP(11032) = dARP(6924)/dV(5213) - JVRP(11032) = V(5250) -! JVRP(11033) = dARP(6924)/dV(5250) - JVRP(11033) = V(5213) -! JVRP(11034) = dARP(6925)/dV(5213) - JVRP(11034) = V(5250) -! JVRP(11035) = dARP(6925)/dV(5250) - JVRP(11035) = V(5213) -! JVRP(11036) = dARP(6926)/dV(5213) - JVRP(11036) = 1 -! JVRP(11037) = dARP(6927)/dV(3745) - JVRP(11037) = V(5255) -! JVRP(11038) = dARP(6927)/dV(5255) - JVRP(11038) = V(3745) -! JVRP(11039) = dARP(6928)/dV(3745) - JVRP(11039) = V(5252) -! JVRP(11040) = dARP(6928)/dV(5252) - JVRP(11040) = V(3745) -! JVRP(11041) = dARP(6929)/dV(3745) - JVRP(11041) = V(5256) -! JVRP(11042) = dARP(6929)/dV(5256) - JVRP(11042) = V(3745) -! JVRP(11043) = dARP(6930)/dV(3745) - JVRP(11043) = 1 -! JVRP(11044) = dARP(6931)/dV(5029) - JVRP(11044) = V(5255) -! JVRP(11045) = dARP(6931)/dV(5255) - JVRP(11045) = V(5029) -! JVRP(11046) = dARP(6932)/dV(5029) - JVRP(11046) = V(5255) -! JVRP(11047) = dARP(6932)/dV(5255) - JVRP(11047) = V(5029) -! JVRP(11048) = dARP(6933)/dV(5029) - JVRP(11048) = V(5255) -! JVRP(11049) = dARP(6933)/dV(5255) - JVRP(11049) = V(5029) -! JVRP(11050) = dARP(6934)/dV(5029) - JVRP(11050) = V(5252) -! JVRP(11051) = dARP(6934)/dV(5252) - JVRP(11051) = V(5029) -! JVRP(11052) = dARP(6935)/dV(5029) - JVRP(11052) = V(5253) -! JVRP(11053) = dARP(6935)/dV(5253) - JVRP(11053) = V(5029) -! JVRP(11054) = dARP(6936)/dV(5029) - JVRP(11054) = V(5256) -! JVRP(11055) = dARP(6936)/dV(5256) - JVRP(11055) = V(5029) -! JVRP(11056) = dARP(6937)/dV(5029) - JVRP(11056) = 1 -! JVRP(11057) = dARP(6938)/dV(5029) - JVRP(11057) = 1 -! JVRP(11058) = dARP(6939)/dV(1007) - JVRP(11058) = V(5250) -! JVRP(11059) = dARP(6939)/dV(5250) - JVRP(11059) = V(1007) -! JVRP(11060) = dARP(6940)/dV(1007) - JVRP(11060) = 1 -! JVRP(11061) = dARP(6941)/dV(370) - JVRP(11061) = 1 -! JVRP(11062) = dARP(6942)/dV(369) - JVRP(11062) = V(5250) -! JVRP(11063) = dARP(6942)/dV(5250) - JVRP(11063) = V(369) -! JVRP(11064) = dARP(6943)/dV(369) - JVRP(11064) = 1 -! JVRP(11065) = dARP(6944)/dV(2540) - JVRP(11065) = V(5250) -! JVRP(11066) = dARP(6944)/dV(5250) - JVRP(11066) = V(2540) -! JVRP(11067) = dARP(6945)/dV(2540) - JVRP(11067) = 1 -! JVRP(11068) = dARP(6946)/dV(2540) - JVRP(11068) = 1 -! JVRP(11069) = dARP(6947)/dV(2323) - JVRP(11069) = 1 -! JVRP(11070) = dARP(6948)/dV(2323) - JVRP(11070) = 1 -! JVRP(11071) = dARP(6949)/dV(3115) - JVRP(11071) = V(5250) -! JVRP(11072) = dARP(6949)/dV(5250) - JVRP(11072) = V(3115) -! JVRP(11073) = dARP(6950)/dV(3115) - JVRP(11073) = 1 -! JVRP(11074) = dARP(6951)/dV(3559) - JVRP(11074) = V(5250) -! JVRP(11075) = dARP(6951)/dV(5250) - JVRP(11075) = V(3559) -! JVRP(11076) = dARP(6952)/dV(3559) - JVRP(11076) = 1 -! JVRP(11077) = dARP(6953)/dV(3559) - JVRP(11077) = 1 -! JVRP(11078) = dARP(6954)/dV(2140) - JVRP(11078) = V(5250) -! JVRP(11079) = dARP(6954)/dV(5250) - JVRP(11079) = V(2140) -! JVRP(11080) = dARP(6955)/dV(2140) - JVRP(11080) = 1 -! JVRP(11081) = dARP(6956)/dV(2002) - JVRP(11081) = V(5250) -! JVRP(11082) = dARP(6956)/dV(5250) - JVRP(11082) = V(2002) -! JVRP(11083) = dARP(6957)/dV(2002) - JVRP(11083) = V(5250) -! JVRP(11084) = dARP(6957)/dV(5250) - JVRP(11084) = V(2002) -! JVRP(11085) = dARP(6958)/dV(2002) - JVRP(11085) = 1 -! JVRP(11086) = dARP(6959)/dV(2313) - JVRP(11086) = V(5250) -! JVRP(11087) = dARP(6959)/dV(5250) - JVRP(11087) = V(2313) -! JVRP(11088) = dARP(6960)/dV(2313) - JVRP(11088) = 1 -! JVRP(11089) = dARP(6961)/dV(271) - JVRP(11089) = 1 -! JVRP(11090) = dARP(6962)/dV(599) - JVRP(11090) = V(5250) -! JVRP(11091) = dARP(6962)/dV(5250) - JVRP(11091) = V(599) -! JVRP(11092) = dARP(6963)/dV(599) - JVRP(11092) = 1 -! JVRP(11093) = dARP(6964)/dV(4914) - JVRP(11093) = V(5256) -! JVRP(11094) = dARP(6964)/dV(5256) - JVRP(11094) = V(4914) -! JVRP(11095) = dARP(6965)/dV(4914) - JVRP(11095) = V(5250) -! JVRP(11096) = dARP(6965)/dV(5250) - JVRP(11096) = V(4914) -! JVRP(11097) = dARP(6966)/dV(4914) - JVRP(11097) = 1 -! JVRP(11098) = dARP(6967)/dV(2480) - JVRP(11098) = V(5250) -! JVRP(11099) = dARP(6967)/dV(5250) - JVRP(11099) = V(2480) -! JVRP(11100) = dARP(6968)/dV(4089) - JVRP(11100) = V(5255) -! JVRP(11101) = dARP(6968)/dV(5255) - JVRP(11101) = V(4089) -! JVRP(11102) = dARP(6969)/dV(4089) - JVRP(11102) = V(5252) -! JVRP(11103) = dARP(6969)/dV(5252) - JVRP(11103) = V(4089) -! JVRP(11104) = dARP(6970)/dV(4089) - JVRP(11104) = V(5252) -! JVRP(11105) = dARP(6970)/dV(5252) - JVRP(11105) = V(4089) -! JVRP(11106) = dARP(6971)/dV(4089) - JVRP(11106) = V(5256) -! JVRP(11107) = dARP(6971)/dV(5256) - JVRP(11107) = V(4089) -! JVRP(11108) = dARP(6972)/dV(4089) - JVRP(11108) = 1 -! JVRP(11109) = dARP(6973)/dV(4089) - JVRP(11109) = 1 -! JVRP(11110) = dARP(6974)/dV(4089) - JVRP(11110) = 1 -! JVRP(11111) = dARP(6975)/dV(4266) - JVRP(11111) = V(5255) -! JVRP(11112) = dARP(6975)/dV(5255) - JVRP(11112) = V(4266) -! JVRP(11113) = dARP(6976)/dV(4266) - JVRP(11113) = V(5255) -! JVRP(11114) = dARP(6976)/dV(5255) - JVRP(11114) = V(4266) -! JVRP(11115) = dARP(6977)/dV(4266) - JVRP(11115) = V(5252) -! JVRP(11116) = dARP(6977)/dV(5252) - JVRP(11116) = V(4266) -! JVRP(11117) = dARP(6978)/dV(4266) - JVRP(11117) = V(5253) -! JVRP(11118) = dARP(6978)/dV(5253) - JVRP(11118) = V(4266) -! JVRP(11119) = dARP(6979)/dV(4266) - JVRP(11119) = V(5256) -! JVRP(11120) = dARP(6979)/dV(5256) - JVRP(11120) = V(4266) -! JVRP(11121) = dARP(6980)/dV(4266) - JVRP(11121) = 1 -! JVRP(11122) = dARP(6981)/dV(904) - JVRP(11122) = V(5250) -! JVRP(11123) = dARP(6981)/dV(5250) - JVRP(11123) = V(904) -! JVRP(11124) = dARP(6982)/dV(904) - JVRP(11124) = 1 -! JVRP(11125) = dARP(6983)/dV(2296) - JVRP(11125) = V(5250) -! JVRP(11126) = dARP(6983)/dV(5250) - JVRP(11126) = V(2296) -! JVRP(11127) = dARP(6984)/dV(2296) - JVRP(11127) = 1 -! JVRP(11128) = dARP(6985)/dV(3398) - JVRP(11128) = 1 -! JVRP(11129) = dARP(6986)/dV(3398) - JVRP(11129) = 1 -! JVRP(11130) = dARP(6987)/dV(1604) - JVRP(11130) = V(5250) -! JVRP(11131) = dARP(6987)/dV(5250) - JVRP(11131) = V(1604) -! JVRP(11132) = dARP(6988)/dV(336) - JVRP(11132) = V(5250) -! JVRP(11133) = dARP(6988)/dV(5250) - JVRP(11133) = V(336) -! JVRP(11134) = dARP(6989)/dV(653) - JVRP(11134) = V(5250) -! JVRP(11135) = dARP(6989)/dV(5250) - JVRP(11135) = V(653) -! JVRP(11136) = dARP(6990)/dV(653) - JVRP(11136) = 1 -! JVRP(11137) = dARP(6991)/dV(840) - JVRP(11137) = V(5250) -! JVRP(11138) = dARP(6991)/dV(5250) - JVRP(11138) = V(840) -! JVRP(11139) = dARP(6992)/dV(840) - JVRP(11139) = 1 -! JVRP(11140) = dARP(6993)/dV(176) - JVRP(11140) = 1 -! JVRP(11141) = dARP(6994)/dV(652) - JVRP(11141) = V(5250) -! JVRP(11142) = dARP(6994)/dV(5250) - JVRP(11142) = V(652) -! JVRP(11143) = dARP(6995)/dV(395) - JVRP(11143) = V(5250) -! JVRP(11144) = dARP(6995)/dV(5250) - JVRP(11144) = V(395) -! JVRP(11145) = dARP(6996)/dV(1470) - JVRP(11145) = V(5250) -! JVRP(11146) = dARP(6996)/dV(5250) - JVRP(11146) = V(1470) -! JVRP(11147) = dARP(6997)/dV(1470) - JVRP(11147) = 1 -! JVRP(11148) = dARP(6998)/dV(3034) - JVRP(11148) = V(5250) -! JVRP(11149) = dARP(6998)/dV(5250) - JVRP(11149) = V(3034) -! JVRP(11150) = dARP(6999)/dV(3034) - JVRP(11150) = 1 -! JVRP(11151) = dARP(7000)/dV(254) - JVRP(11151) = 1 -! JVRP(11152) = dARP(7001)/dV(28) - JVRP(11152) = V(5250) -! JVRP(11153) = dARP(7001)/dV(5250) - JVRP(11153) = V(28) -! JVRP(11154) = dARP(7002)/dV(405) - JVRP(11154) = V(5250) -! JVRP(11155) = dARP(7002)/dV(5250) - JVRP(11155) = V(405) -! JVRP(11156) = dARP(7003)/dV(405) - JVRP(11156) = 1 -! JVRP(11157) = dARP(7004)/dV(145) - JVRP(11157) = 1 -! JVRP(11158) = dARP(7005)/dV(404) - JVRP(11158) = V(5250) -! JVRP(11159) = dARP(7005)/dV(5250) - JVRP(11159) = V(404) -! JVRP(11160) = dARP(7006)/dV(403) - JVRP(11160) = V(5250) -! JVRP(11161) = dARP(7006)/dV(5250) - JVRP(11161) = V(403) -! JVRP(11162) = dARP(7007)/dV(4078) - JVRP(11162) = V(5255) -! JVRP(11163) = dARP(7007)/dV(5255) - JVRP(11163) = V(4078) -! JVRP(11164) = dARP(7008)/dV(4078) - JVRP(11164) = V(5252) -! JVRP(11165) = dARP(7008)/dV(5252) - JVRP(11165) = V(4078) -! JVRP(11166) = dARP(7009)/dV(4078) - JVRP(11166) = V(5252) -! JVRP(11167) = dARP(7009)/dV(5252) - JVRP(11167) = V(4078) -! JVRP(11168) = dARP(7010)/dV(4078) - JVRP(11168) = V(5256) -! JVRP(11169) = dARP(7010)/dV(5256) - JVRP(11169) = V(4078) -! JVRP(11170) = dARP(7011)/dV(4078) - JVRP(11170) = 1 -! JVRP(11171) = dARP(7012)/dV(4078) - JVRP(11171) = 1 -! JVRP(11172) = dARP(7013)/dV(4078) - JVRP(11172) = 1 -! JVRP(11173) = dARP(7014)/dV(4301) - JVRP(11173) = V(5255) -! JVRP(11174) = dARP(7014)/dV(5255) - JVRP(11174) = V(4301) -! JVRP(11175) = dARP(7015)/dV(4301) - JVRP(11175) = V(5255) -! JVRP(11176) = dARP(7015)/dV(5255) - JVRP(11176) = V(4301) -! JVRP(11177) = dARP(7016)/dV(4301) - JVRP(11177) = V(5252) -! JVRP(11178) = dARP(7016)/dV(5252) - JVRP(11178) = V(4301) -! JVRP(11179) = dARP(7017)/dV(4301) - JVRP(11179) = V(5253) -! JVRP(11180) = dARP(7017)/dV(5253) - JVRP(11180) = V(4301) -! JVRP(11181) = dARP(7018)/dV(4301) - JVRP(11181) = V(5256) -! JVRP(11182) = dARP(7018)/dV(5256) - JVRP(11182) = V(4301) -! JVRP(11183) = dARP(7019)/dV(4301) - JVRP(11183) = 1 -! JVRP(11184) = dARP(7020)/dV(5169) - JVRP(11184) = V(5256) -! JVRP(11185) = dARP(7020)/dV(5256) - JVRP(11185) = V(5169) -! JVRP(11186) = dARP(7021)/dV(5169) - JVRP(11186) = V(5256) -! JVRP(11187) = dARP(7021)/dV(5256) - JVRP(11187) = V(5169) -! JVRP(11188) = dARP(7022)/dV(5169) - JVRP(11188) = V(5258) -! JVRP(11189) = dARP(7022)/dV(5258) - JVRP(11189) = V(5169) -! JVRP(11190) = dARP(7023)/dV(5169) - JVRP(11190) = V(5258) -! JVRP(11191) = dARP(7023)/dV(5258) - JVRP(11191) = V(5169) -! JVRP(11192) = dARP(7024)/dV(5169) - JVRP(11192) = V(5250) -! JVRP(11193) = dARP(7024)/dV(5250) - JVRP(11193) = V(5169) -! JVRP(11194) = dARP(7025)/dV(5169) - JVRP(11194) = V(5250) -! JVRP(11195) = dARP(7025)/dV(5250) - JVRP(11195) = V(5169) -! JVRP(11196) = dARP(7026)/dV(5169) - JVRP(11196) = 1 -! JVRP(11197) = dARP(7027)/dV(2362) - JVRP(11197) = V(5250) -! JVRP(11198) = dARP(7027)/dV(5250) - JVRP(11198) = V(2362) -! JVRP(11199) = dARP(7028)/dV(2362) - JVRP(11199) = 1 -! JVRP(11200) = dARP(7029)/dV(2362) - JVRP(11200) = 1 -! JVRP(11201) = dARP(7030)/dV(740) - JVRP(11201) = 1 -! JVRP(11202) = dARP(7031)/dV(2231) - JVRP(11202) = V(5250) -! JVRP(11203) = dARP(7031)/dV(5250) - JVRP(11203) = V(2231) -! JVRP(11204) = dARP(7032)/dV(2231) - JVRP(11204) = 1 -! JVRP(11205) = dARP(7033)/dV(1585) - JVRP(11205) = V(5250) -! JVRP(11206) = dARP(7033)/dV(5250) - JVRP(11206) = V(1585) -! JVRP(11207) = dARP(7034)/dV(1585) - JVRP(11207) = 1 -! JVRP(11208) = dARP(7035)/dV(2727) - JVRP(11208) = V(5250) -! JVRP(11209) = dARP(7035)/dV(5250) - JVRP(11209) = V(2727) -! JVRP(11210) = dARP(7036)/dV(2727) - JVRP(11210) = 1 -! JVRP(11211) = dARP(7037)/dV(2727) - JVRP(11211) = 1 -! JVRP(11212) = dARP(7038)/dV(708) - JVRP(11212) = 1 -! JVRP(11213) = dARP(7039)/dV(1858) - JVRP(11213) = V(5250) -! JVRP(11214) = dARP(7039)/dV(5250) - JVRP(11214) = V(1858) -! JVRP(11215) = dARP(7040)/dV(1858) - JVRP(11215) = 1 -! JVRP(11216) = dARP(7041)/dV(1718) - JVRP(11216) = V(5250) -! JVRP(11217) = dARP(7041)/dV(5250) - JVRP(11217) = V(1718) -! JVRP(11218) = dARP(7042)/dV(1718) - JVRP(11218) = 1 -! JVRP(11219) = dARP(7043)/dV(1205) - JVRP(11219) = V(5250) -! JVRP(11220) = dARP(7043)/dV(5250) - JVRP(11220) = V(1205) -! JVRP(11221) = dARP(7044)/dV(1205) - JVRP(11221) = 1 -! JVRP(11222) = dARP(7045)/dV(2061) - JVRP(11222) = V(5250) -! JVRP(11223) = dARP(7045)/dV(5250) - JVRP(11223) = V(2061) -! JVRP(11224) = dARP(7046)/dV(2061) - JVRP(11224) = 1 -! JVRP(11225) = dARP(7047)/dV(199) - JVRP(11225) = 1 -! JVRP(11226) = dARP(7048)/dV(401) - JVRP(11226) = V(5250) -! JVRP(11227) = dARP(7048)/dV(5250) - JVRP(11227) = V(401) -! JVRP(11228) = dARP(7049)/dV(5212) - JVRP(11228) = V(5250) -! JVRP(11229) = dARP(7049)/dV(5250) - JVRP(11229) = V(5212) -! JVRP(11230) = dARP(7050)/dV(5212) - JVRP(11230) = V(5250) -! JVRP(11231) = dARP(7050)/dV(5250) - JVRP(11231) = V(5212) -! JVRP(11232) = dARP(7051)/dV(5212) - JVRP(11232) = 1 -! JVRP(11233) = dARP(7052)/dV(709) - JVRP(11233) = V(5250) -! JVRP(11234) = dARP(7052)/dV(5250) - JVRP(11234) = V(709) -! JVRP(11235) = dARP(7053)/dV(4847) - JVRP(11235) = V(5255) -! JVRP(11236) = dARP(7053)/dV(5255) - JVRP(11236) = V(4847) -! JVRP(11237) = dARP(7054)/dV(4847) - JVRP(11237) = V(5255) -! JVRP(11238) = dARP(7054)/dV(5255) - JVRP(11238) = V(4847) -! JVRP(11239) = dARP(7055)/dV(4847) - JVRP(11239) = V(5255) -! JVRP(11240) = dARP(7055)/dV(5255) - JVRP(11240) = V(4847) -! JVRP(11241) = dARP(7056)/dV(4847) - JVRP(11241) = V(5252) -! JVRP(11242) = dARP(7056)/dV(5252) - JVRP(11242) = V(4847) -! JVRP(11243) = dARP(7057)/dV(4847) - JVRP(11243) = V(5253) -! JVRP(11244) = dARP(7057)/dV(5253) - JVRP(11244) = V(4847) -! JVRP(11245) = dARP(7058)/dV(4847) - JVRP(11245) = V(5256) -! JVRP(11246) = dARP(7058)/dV(5256) - JVRP(11246) = V(4847) -! JVRP(11247) = dARP(7059)/dV(4847) - JVRP(11247) = 1 -! JVRP(11248) = dARP(7060)/dV(4847) - JVRP(11248) = 1 -! JVRP(11249) = dARP(7061)/dV(5175) - JVRP(11249) = V(5256) -! JVRP(11250) = dARP(7061)/dV(5256) - JVRP(11250) = V(5175) -! JVRP(11251) = dARP(7062)/dV(5175) - JVRP(11251) = V(5258) -! JVRP(11252) = dARP(7062)/dV(5258) - JVRP(11252) = V(5175) -! JVRP(11253) = dARP(7063)/dV(5175) - JVRP(11253) = V(5258) -! JVRP(11254) = dARP(7063)/dV(5258) - JVRP(11254) = V(5175) -! JVRP(11255) = dARP(7064)/dV(5175) - JVRP(11255) = V(5250) -! JVRP(11256) = dARP(7064)/dV(5250) - JVRP(11256) = V(5175) -! JVRP(11257) = dARP(7065)/dV(5175) - JVRP(11257) = V(5250) -! JVRP(11258) = dARP(7065)/dV(5250) - JVRP(11258) = V(5175) -! JVRP(11259) = dARP(7066)/dV(5099) - JVRP(11259) = V(5255) -! JVRP(11260) = dARP(7066)/dV(5255) - JVRP(11260) = V(5099) -! JVRP(11261) = dARP(7067)/dV(5099) - JVRP(11261) = V(5255) -! JVRP(11262) = dARP(7067)/dV(5255) - JVRP(11262) = V(5099) -! JVRP(11263) = dARP(7068)/dV(5099) - JVRP(11263) = V(5255) -! JVRP(11264) = dARP(7068)/dV(5255) - JVRP(11264) = V(5099) -! JVRP(11265) = dARP(7069)/dV(5099) - JVRP(11265) = V(5252) -! JVRP(11266) = dARP(7069)/dV(5252) - JVRP(11266) = V(5099) -! JVRP(11267) = dARP(7070)/dV(5099) - JVRP(11267) = V(5253) -! JVRP(11268) = dARP(7070)/dV(5253) - JVRP(11268) = V(5099) -! JVRP(11269) = dARP(7071)/dV(5099) - JVRP(11269) = V(5256) -! JVRP(11270) = dARP(7071)/dV(5256) - JVRP(11270) = V(5099) -! JVRP(11271) = dARP(7072)/dV(5099) - JVRP(11271) = 1 -! JVRP(11272) = dARP(7073)/dV(5099) - JVRP(11272) = 1 -! JVRP(11273) = dARP(7074)/dV(3988) - JVRP(11273) = V(5255) -! JVRP(11274) = dARP(7074)/dV(5255) - JVRP(11274) = V(3988) -! JVRP(11275) = dARP(7075)/dV(3988) - JVRP(11275) = V(5252) -! JVRP(11276) = dARP(7075)/dV(5252) - JVRP(11276) = V(3988) -! JVRP(11277) = dARP(7076)/dV(3988) - JVRP(11277) = V(5256) -! JVRP(11278) = dARP(7076)/dV(5256) - JVRP(11278) = V(3988) -! JVRP(11279) = dARP(7077)/dV(3988) - JVRP(11279) = 1 -! JVRP(11280) = dARP(7078)/dV(3988) - JVRP(11280) = 1 -! JVRP(11281) = dARP(7079)/dV(236) - JVRP(11281) = 1 -! JVRP(11282) = dARP(7080)/dV(236) - JVRP(11282) = 1 -! JVRP(11283) = dARP(7081)/dV(5248) - JVRP(11283) = V(5256) -! JVRP(11284) = dARP(7081)/dV(5256) - JVRP(11284) = V(5248) -! JVRP(11285) = dARP(7082)/dV(5248) - JVRP(11285) = V(5250) -! JVRP(11286) = dARP(7082)/dV(5250) - JVRP(11286) = V(5248) -! JVRP(11287) = dARP(7083)/dV(5248) - JVRP(11287) = V(5250) -! JVRP(11288) = dARP(7083)/dV(5250) - JVRP(11288) = V(5248) -! JVRP(11289) = dARP(7084)/dV(5248) - JVRP(11289) = V(5250) -! JVRP(11290) = dARP(7084)/dV(5250) - JVRP(11290) = V(5248) -! JVRP(11291) = dARP(7085)/dV(5248) - JVRP(11291) = V(5250) -! JVRP(11292) = dARP(7085)/dV(5250) - JVRP(11292) = V(5248) -! JVRP(11293) = dARP(7086)/dV(5248) - JVRP(11293) = V(5250) -! JVRP(11294) = dARP(7086)/dV(5250) - JVRP(11294) = V(5248) -! JVRP(11295) = dARP(7087)/dV(5248) - JVRP(11295) = 1 -! JVRP(11296) = dARP(7088)/dV(3883) - JVRP(11296) = V(5255) -! JVRP(11297) = dARP(7088)/dV(5255) - JVRP(11297) = V(3883) -! JVRP(11298) = dARP(7089)/dV(3883) - JVRP(11298) = V(5252) -! JVRP(11299) = dARP(7089)/dV(5252) - JVRP(11299) = V(3883) -! JVRP(11300) = dARP(7090)/dV(3883) - JVRP(11300) = V(5252) -! JVRP(11301) = dARP(7090)/dV(5252) - JVRP(11301) = V(3883) -! JVRP(11302) = dARP(7091)/dV(3883) - JVRP(11302) = V(5256) -! JVRP(11303) = dARP(7091)/dV(5256) - JVRP(11303) = V(3883) -! JVRP(11304) = dARP(7092)/dV(3883) - JVRP(11304) = 1 -! JVRP(11305) = dARP(7093)/dV(3883) - JVRP(11305) = 1 -! JVRP(11306) = dARP(7094)/dV(3617) - JVRP(11306) = V(5250) -! JVRP(11307) = dARP(7094)/dV(5250) - JVRP(11307) = V(3617) -! JVRP(11308) = dARP(7095)/dV(4869) - JVRP(11308) = V(5251) -! JVRP(11309) = dARP(7095)/dV(5251) - JVRP(11309) = V(4869) -! JVRP(11310) = dARP(7096)/dV(4869) - JVRP(11310) = V(5252) -! JVRP(11311) = dARP(7096)/dV(5252) - JVRP(11311) = V(4869) -! JVRP(11312) = dARP(7097)/dV(4869) - JVRP(11312) = V(5253) -! JVRP(11313) = dARP(7097)/dV(5253) - JVRP(11313) = V(4869) -! JVRP(11314) = dARP(7098)/dV(4869) - JVRP(11314) = V(5254) -! JVRP(11315) = dARP(7098)/dV(5254) - JVRP(11315) = V(4869) -! JVRP(11316) = dARP(7099)/dV(4869) - JVRP(11316) = 1 -! JVRP(11317) = dARP(7100)/dV(4541) - JVRP(11317) = V(5255) -! JVRP(11318) = dARP(7100)/dV(5255) - JVRP(11318) = V(4541) -! JVRP(11319) = dARP(7101)/dV(4541) - JVRP(11319) = V(5252) -! JVRP(11320) = dARP(7101)/dV(5252) - JVRP(11320) = V(4541) -! JVRP(11321) = dARP(7102)/dV(4541) - JVRP(11321) = V(5252) -! JVRP(11322) = dARP(7102)/dV(5252) - JVRP(11322) = V(4541) -! JVRP(11323) = dARP(7103)/dV(4541) - JVRP(11323) = V(5256) -! JVRP(11324) = dARP(7103)/dV(5256) - JVRP(11324) = V(4541) -! JVRP(11325) = dARP(7104)/dV(4541) - JVRP(11325) = 1 -! JVRP(11326) = dARP(7105)/dV(4541) - JVRP(11326) = 1 -! JVRP(11327) = dARP(7106)/dV(3638) - JVRP(11327) = V(5250) -! JVRP(11328) = dARP(7106)/dV(5250) - JVRP(11328) = V(3638) -! JVRP(11329) = dARP(7107)/dV(362) - JVRP(11329) = 1 -! JVRP(11330) = dARP(7108)/dV(362) - JVRP(11330) = 1 -! JVRP(11331) = dARP(7109)/dV(3990) - JVRP(11331) = V(5255) -! JVRP(11332) = dARP(7109)/dV(5255) - JVRP(11332) = V(3990) -! JVRP(11333) = dARP(7110)/dV(3990) - JVRP(11333) = V(5252) -! JVRP(11334) = dARP(7110)/dV(5252) - JVRP(11334) = V(3990) -! JVRP(11335) = dARP(7111)/dV(3990) - JVRP(11335) = V(5252) -! JVRP(11336) = dARP(7111)/dV(5252) - JVRP(11336) = V(3990) -! JVRP(11337) = dARP(7112)/dV(3990) - JVRP(11337) = V(5256) -! JVRP(11338) = dARP(7112)/dV(5256) - JVRP(11338) = V(3990) -! JVRP(11339) = dARP(7113)/dV(3990) - JVRP(11339) = 1 -! JVRP(11340) = dARP(7114)/dV(3990) - JVRP(11340) = 1 -! JVRP(11341) = dARP(7115)/dV(2469) - JVRP(11341) = V(5250) -! JVRP(11342) = dARP(7115)/dV(5250) - JVRP(11342) = V(2469) -! JVRP(11343) = dARP(7116)/dV(2469) - JVRP(11343) = 1 -! JVRP(11344) = dARP(7117)/dV(2469) - JVRP(11344) = 1 -! JVRP(11345) = dARP(7118)/dV(770) - JVRP(11345) = 1 -! JVRP(11346) = dARP(7119)/dV(1834) - JVRP(11346) = V(5250) -! JVRP(11347) = dARP(7119)/dV(5250) - JVRP(11347) = V(1834) -! JVRP(11348) = dARP(7120)/dV(1834) - JVRP(11348) = 1 -! JVRP(11349) = dARP(7121)/dV(1611) - JVRP(11349) = V(5250) -! JVRP(11350) = dARP(7121)/dV(5250) - JVRP(11350) = V(1611) -! JVRP(11351) = dARP(7122)/dV(1611) - JVRP(11351) = 1 -! JVRP(11352) = dARP(7123)/dV(2836) - JVRP(11352) = V(5250) -! JVRP(11353) = dARP(7123)/dV(5250) - JVRP(11353) = V(2836) -! JVRP(11354) = dARP(7124)/dV(2836) - JVRP(11354) = 1 -! JVRP(11355) = dARP(7125)/dV(2836) - JVRP(11355) = 1 -! JVRP(11356) = dARP(7126)/dV(688) - JVRP(11356) = 1 -! JVRP(11357) = dARP(7127)/dV(1791) - JVRP(11357) = V(5250) -! JVRP(11358) = dARP(7127)/dV(5250) - JVRP(11358) = V(1791) -! JVRP(11359) = dARP(7128)/dV(1791) - JVRP(11359) = 1 -! JVRP(11360) = dARP(7129)/dV(1742) - JVRP(11360) = V(5250) -! JVRP(11361) = dARP(7129)/dV(5250) - JVRP(11361) = V(1742) -! JVRP(11362) = dARP(7130)/dV(1742) - JVRP(11362) = 1 -! JVRP(11363) = dARP(7131)/dV(243) - JVRP(11363) = 1 -! JVRP(11364) = dARP(7132)/dV(243) - JVRP(11364) = 1 -! JVRP(11365) = dARP(7133)/dV(3516) - JVRP(11365) = V(5250) -! JVRP(11366) = dARP(7133)/dV(5250) - JVRP(11366) = V(3516) -! JVRP(11367) = dARP(7134)/dV(4249) - JVRP(11367) = V(5255) -! JVRP(11368) = dARP(7134)/dV(5255) - JVRP(11368) = V(4249) -! JVRP(11369) = dARP(7135)/dV(4249) - JVRP(11369) = V(5252) -! JVRP(11370) = dARP(7135)/dV(5252) - JVRP(11370) = V(4249) -! JVRP(11371) = dARP(7136)/dV(4249) - JVRP(11371) = V(5252) -! JVRP(11372) = dARP(7136)/dV(5252) - JVRP(11372) = V(4249) -! JVRP(11373) = dARP(7137)/dV(4249) - JVRP(11373) = V(5256) -! JVRP(11374) = dARP(7137)/dV(5256) - JVRP(11374) = V(4249) -! JVRP(11375) = dARP(7138)/dV(4249) - JVRP(11375) = 1 -! JVRP(11376) = dARP(7139)/dV(4249) - JVRP(11376) = 1 -! JVRP(11377) = dARP(7140)/dV(1178) - JVRP(11377) = V(5250) -! JVRP(11378) = dARP(7140)/dV(5250) - JVRP(11378) = V(1178) -! JVRP(11379) = dARP(7141)/dV(1178) - JVRP(11379) = 1 -! JVRP(11380) = dARP(7142)/dV(1771) - JVRP(11380) = V(5250) -! JVRP(11381) = dARP(7142)/dV(5250) - JVRP(11381) = V(1771) -! JVRP(11382) = dARP(7143)/dV(1771) - JVRP(11382) = 1 -! JVRP(11383) = dARP(7144)/dV(156) - JVRP(11383) = 1 -! JVRP(11384) = dARP(7145)/dV(5207) - JVRP(11384) = V(5256) -! JVRP(11385) = dARP(7145)/dV(5256) - JVRP(11385) = V(5207) -! JVRP(11386) = dARP(7146)/dV(5207) - JVRP(11386) = V(5256) -! JVRP(11387) = dARP(7146)/dV(5256) - JVRP(11387) = V(5207) -! JVRP(11388) = dARP(7147)/dV(5207) - JVRP(11388) = V(5258) -! JVRP(11389) = dARP(7147)/dV(5258) - JVRP(11389) = V(5207) -! JVRP(11390) = dARP(7148)/dV(5207) - JVRP(11390) = V(5258) -! JVRP(11391) = dARP(7148)/dV(5258) - JVRP(11391) = V(5207) -! JVRP(11392) = dARP(7149)/dV(5207) - JVRP(11392) = V(5250) -! JVRP(11393) = dARP(7149)/dV(5250) - JVRP(11393) = V(5207) -! JVRP(11394) = dARP(7150)/dV(5207) - JVRP(11394) = V(5250) -! JVRP(11395) = dARP(7150)/dV(5250) - JVRP(11395) = V(5207) -! JVRP(11396) = dARP(7151)/dV(5207) - JVRP(11396) = 1 -! JVRP(11397) = dARP(7152)/dV(325) - JVRP(11397) = V(5250) -! JVRP(11398) = dARP(7152)/dV(5250) - JVRP(11398) = V(325) -! JVRP(11399) = dARP(7153)/dV(3043) - JVRP(11399) = V(5250) -! JVRP(11400) = dARP(7153)/dV(5250) - JVRP(11400) = V(3043) -! JVRP(11401) = dARP(7154)/dV(3043) - JVRP(11401) = 1 -! JVRP(11402) = dARP(7155)/dV(3043) - JVRP(11402) = 1 -! JVRP(11403) = dARP(7156)/dV(2170) - JVRP(11403) = 1 -! JVRP(11404) = dARP(7157)/dV(2132) - JVRP(11404) = V(5250) -! JVRP(11405) = dARP(7157)/dV(5250) - JVRP(11405) = V(2132) -! JVRP(11406) = dARP(7158)/dV(2132) - JVRP(11406) = 1 -! JVRP(11407) = dARP(7159)/dV(1612) - JVRP(11407) = V(5250) -! JVRP(11408) = dARP(7159)/dV(5250) - JVRP(11408) = V(1612) -! JVRP(11409) = dARP(7160)/dV(1612) - JVRP(11409) = 1 -! JVRP(11410) = dARP(7161)/dV(1128) - JVRP(11410) = V(5250) -! JVRP(11411) = dARP(7161)/dV(5250) - JVRP(11411) = V(1128) -! JVRP(11412) = dARP(7162)/dV(1128) - JVRP(11412) = 1 -! JVRP(11413) = dARP(7163)/dV(2108) - JVRP(11413) = V(5250) -! JVRP(11414) = dARP(7163)/dV(5250) - JVRP(11414) = V(2108) -! JVRP(11415) = dARP(7164)/dV(2108) - JVRP(11415) = 1 -! JVRP(11416) = dARP(7165)/dV(172) - JVRP(11416) = 1 -! JVRP(11417) = dARP(7166)/dV(4183) - JVRP(11417) = V(5250) -! JVRP(11418) = dARP(7166)/dV(5250) - JVRP(11418) = V(4183) -! JVRP(11419) = dARP(7167)/dV(4183) - JVRP(11419) = 1 -! JVRP(11420) = dARP(7168)/dV(439) - JVRP(11420) = V(5250) -! JVRP(11421) = dARP(7168)/dV(5250) - JVRP(11421) = V(439) -! JVRP(11422) = dARP(7169)/dV(5249) - JVRP(11422) = V(5256) -! JVRP(11423) = dARP(7169)/dV(5256) - JVRP(11423) = V(5249) -! JVRP(11424) = dARP(7170)/dV(5249) - JVRP(11424) = V(5258) -! JVRP(11425) = dARP(7170)/dV(5258) - JVRP(11425) = V(5249) -! JVRP(11426) = dARP(7171)/dV(5249) - JVRP(11426) = V(5258) -! JVRP(11427) = dARP(7171)/dV(5258) - JVRP(11427) = V(5249) -! JVRP(11428) = dARP(7172)/dV(5249) - JVRP(11428) = V(5258) -! JVRP(11429) = dARP(7172)/dV(5258) - JVRP(11429) = V(5249) -! JVRP(11430) = dARP(7173)/dV(5249) - JVRP(11430) = V(5258) -! JVRP(11431) = dARP(7173)/dV(5258) - JVRP(11431) = V(5249) -! JVRP(11432) = dARP(7174)/dV(5249) - JVRP(11432) = V(5250) -! JVRP(11433) = dARP(7174)/dV(5250) - JVRP(11433) = V(5249) -! JVRP(11434) = dARP(7175)/dV(5249) - JVRP(11434) = V(5250) -! JVRP(11435) = dARP(7175)/dV(5250) - JVRP(11435) = V(5249) -! JVRP(11436) = dARP(7176)/dV(237) - JVRP(11436) = V(5250) -! JVRP(11437) = dARP(7176)/dV(5250) - JVRP(11437) = V(237) -! JVRP(11438) = dARP(7177)/dV(868) - JVRP(11438) = 1 -! JVRP(11439) = dARP(7178)/dV(868) - JVRP(11439) = V(5250) -! JVRP(11440) = dARP(7178)/dV(5250) - JVRP(11440) = V(868) -! JVRP(11441) = dARP(7179)/dV(2825) - JVRP(11441) = 1 -! JVRP(11442) = dARP(7180)/dV(2825) - JVRP(11442) = V(5250) -! JVRP(11443) = dARP(7180)/dV(5250) - JVRP(11443) = V(2825) -! JVRP(11444) = dARP(7181)/dV(343) - JVRP(11444) = V(5250) -! JVRP(11445) = dARP(7181)/dV(5250) - JVRP(11445) = V(343) -! JVRP(11446) = dARP(7182)/dV(1158) - JVRP(11446) = 1 -! JVRP(11447) = dARP(7183)/dV(1158) - JVRP(11447) = V(5250) -! JVRP(11448) = dARP(7183)/dV(5250) - JVRP(11448) = V(1158) -! JVRP(11449) = dARP(7184)/dV(2790) - JVRP(11449) = 1 -! JVRP(11450) = dARP(7185)/dV(2790) - JVRP(11450) = V(5250) -! JVRP(11451) = dARP(7185)/dV(5250) - JVRP(11451) = V(2790) -! JVRP(11452) = dARP(7186)/dV(1142) - JVRP(11452) = 1 -! JVRP(11453) = dARP(7187)/dV(1142) - JVRP(11453) = V(5250) -! JVRP(11454) = dARP(7187)/dV(5250) - JVRP(11454) = V(1142) -! JVRP(11455) = dARP(7188)/dV(2074) - JVRP(11455) = 1 -! JVRP(11456) = dARP(7189)/dV(2074) - JVRP(11456) = V(5250) -! JVRP(11457) = dARP(7189)/dV(5250) - JVRP(11457) = V(2074) -! JVRP(11458) = dARP(7190)/dV(2745) - JVRP(11458) = 1 -! JVRP(11459) = dARP(7191)/dV(498) - JVRP(11459) = V(5250) -! JVRP(11460) = dARP(7191)/dV(5250) - JVRP(11460) = V(498) -! JVRP(11461) = dARP(7192)/dV(3602) - JVRP(11461) = 1 -! JVRP(11462) = dARP(7193)/dV(3602) - JVRP(11462) = V(5250) -! JVRP(11463) = dARP(7193)/dV(5250) - JVRP(11463) = V(3602) -! JVRP(11464) = dARP(7194)/dV(1545) - JVRP(11464) = 1 -! JVRP(11465) = dARP(7195)/dV(1545) - JVRP(11465) = V(5250) -! JVRP(11466) = dARP(7195)/dV(5250) - JVRP(11466) = V(1545) -! JVRP(11467) = dARP(7196)/dV(2880) - JVRP(11467) = 1 -! JVRP(11468) = dARP(7197)/dV(2880) - JVRP(11468) = V(5250) -! JVRP(11469) = dARP(7197)/dV(5250) - JVRP(11469) = V(2880) -! JVRP(11470) = dARP(7198)/dV(2693) - JVRP(11470) = 1 -! JVRP(11471) = dARP(7199)/dV(2693) - JVRP(11471) = V(5250) -! JVRP(11472) = dARP(7199)/dV(5250) - JVRP(11472) = V(2693) -! JVRP(11473) = dARP(7200)/dV(2693) - JVRP(11473) = V(5250) -! JVRP(11474) = dARP(7200)/dV(5250) - JVRP(11474) = V(2693) -! JVRP(11475) = dARP(7201)/dV(1531) - JVRP(11475) = V(5250) -! JVRP(11476) = dARP(7201)/dV(5250) - JVRP(11476) = V(1531) -! JVRP(11477) = dARP(7202)/dV(532) - JVRP(11477) = 1 -! JVRP(11478) = dARP(7203)/dV(497) - JVRP(11478) = V(5250) -! JVRP(11479) = dARP(7203)/dV(5250) - JVRP(11479) = V(497) -! JVRP(11480) = dARP(7204)/dV(3935) - JVRP(11480) = 1 -! JVRP(11481) = dARP(7205)/dV(3935) - JVRP(11481) = V(5256) -! JVRP(11482) = dARP(7205)/dV(5256) - JVRP(11482) = V(3935) -! JVRP(11483) = dARP(7206)/dV(3935) - JVRP(11483) = V(5250) -! JVRP(11484) = dARP(7206)/dV(5250) - JVRP(11484) = V(3935) -! JVRP(11485) = dARP(7207)/dV(1380) - JVRP(11485) = 1 -! JVRP(11486) = dARP(7208)/dV(1380) - JVRP(11486) = V(5250) -! JVRP(11487) = dARP(7208)/dV(5250) - JVRP(11487) = V(1380) -! JVRP(11488) = dARP(7209)/dV(2675) - JVRP(11488) = 1 -! JVRP(11489) = dARP(7210)/dV(2675) - JVRP(11489) = V(5250) -! JVRP(11490) = dARP(7210)/dV(5250) - JVRP(11490) = V(2675) -! JVRP(11491) = dARP(7211)/dV(2208) - JVRP(11491) = V(5250) -! JVRP(11492) = dARP(7211)/dV(5250) - JVRP(11492) = V(2208) -! JVRP(11493) = dARP(7212)/dV(2208) - JVRP(11493) = 1 -! JVRP(11494) = dARP(7213)/dV(2620) - JVRP(11494) = V(5250) -! JVRP(11495) = dARP(7213)/dV(5250) - JVRP(11495) = V(2620) -! JVRP(11496) = dARP(7214)/dV(2620) - JVRP(11496) = 1 -! JVRP(11497) = dARP(7215)/dV(3205) - JVRP(11497) = 1 -! JVRP(11498) = dARP(7216)/dV(3205) - JVRP(11498) = V(5250) -! JVRP(11499) = dARP(7216)/dV(5250) - JVRP(11499) = V(3205) -! JVRP(11500) = dARP(7217)/dV(3205) - JVRP(11500) = V(5250) -! JVRP(11501) = dARP(7217)/dV(5250) - JVRP(11501) = V(3205) -! JVRP(11502) = dARP(7218)/dV(1005) - JVRP(11502) = V(5250) -! JVRP(11503) = dARP(7218)/dV(5250) - JVRP(11503) = V(1005) -! JVRP(11504) = dARP(7219)/dV(2005) - JVRP(11504) = 1 -! JVRP(11505) = dARP(7220)/dV(3991) - JVRP(11505) = 1 -! JVRP(11506) = dARP(7221)/dV(3991) - JVRP(11506) = V(5256) -! JVRP(11507) = dARP(7221)/dV(5256) - JVRP(11507) = V(3991) -! JVRP(11508) = dARP(7222)/dV(3991) - JVRP(11508) = V(5250) -! JVRP(11509) = dARP(7222)/dV(5250) - JVRP(11509) = V(3991) -! JVRP(11510) = dARP(7223)/dV(355) - JVRP(11510) = V(5250) -! JVRP(11511) = dARP(7223)/dV(5250) - JVRP(11511) = V(355) -! JVRP(11512) = dARP(7224)/dV(393) - JVRP(11512) = V(5250) -! JVRP(11513) = dARP(7224)/dV(5250) - JVRP(11513) = V(393) -! JVRP(11514) = dARP(7225)/dV(1134) - JVRP(11514) = 1 -! JVRP(11515) = dARP(7226)/dV(1134) - JVRP(11515) = V(5250) -! JVRP(11516) = dARP(7226)/dV(5250) - JVRP(11516) = V(1134) -! JVRP(11517) = dARP(7227)/dV(2684) - JVRP(11517) = 1 -! JVRP(11518) = dARP(7228)/dV(2684) - JVRP(11518) = V(5250) -! JVRP(11519) = dARP(7228)/dV(5250) - JVRP(11519) = V(2684) -! JVRP(11520) = dARP(7229)/dV(4451) - JVRP(11520) = V(5255) -! JVRP(11521) = dARP(7229)/dV(5255) - JVRP(11521) = V(4451) -! JVRP(11522) = dARP(7230)/dV(4451) - JVRP(11522) = V(5255) -! JVRP(11523) = dARP(7230)/dV(5255) - JVRP(11523) = V(4451) -! JVRP(11524) = dARP(7231)/dV(4451) - JVRP(11524) = V(5252) -! JVRP(11525) = dARP(7231)/dV(5252) - JVRP(11525) = V(4451) -! JVRP(11526) = dARP(7232)/dV(4451) - JVRP(11526) = V(5253) -! JVRP(11527) = dARP(7232)/dV(5253) - JVRP(11527) = V(4451) -! JVRP(11528) = dARP(7233)/dV(4451) - JVRP(11528) = V(5256) -! JVRP(11529) = dARP(7233)/dV(5256) - JVRP(11529) = V(4451) -! JVRP(11530) = dARP(7234)/dV(4451) - JVRP(11530) = 1 -! JVRP(11531) = dARP(7235)/dV(4354) - JVRP(11531) = V(5255) -! JVRP(11532) = dARP(7235)/dV(5255) - JVRP(11532) = V(4354) -! JVRP(11533) = dARP(7236)/dV(4354) - JVRP(11533) = V(5252) -! JVRP(11534) = dARP(7236)/dV(5252) - JVRP(11534) = V(4354) -! JVRP(11535) = dARP(7237)/dV(4354) - JVRP(11535) = V(5256) -! JVRP(11536) = dARP(7237)/dV(5256) - JVRP(11536) = V(4354) -! JVRP(11537) = dARP(7238)/dV(4354) - JVRP(11537) = 1 -! JVRP(11538) = dARP(7239)/dV(4354) - JVRP(11538) = 1 -! JVRP(11539) = dARP(7240)/dV(4354) - JVRP(11539) = 1 -! JVRP(11540) = dARP(7241)/dV(4244) - JVRP(11540) = V(5255) -! JVRP(11541) = dARP(7241)/dV(5255) - JVRP(11541) = V(4244) -! JVRP(11542) = dARP(7242)/dV(4244) - JVRP(11542) = V(5252) -! JVRP(11543) = dARP(7242)/dV(5252) - JVRP(11543) = V(4244) -! JVRP(11544) = dARP(7243)/dV(4244) - JVRP(11544) = V(5256) -! JVRP(11545) = dARP(7243)/dV(5256) - JVRP(11545) = V(4244) -! JVRP(11546) = dARP(7244)/dV(4244) - JVRP(11546) = 1 -! JVRP(11547) = dARP(7245)/dV(3784) - JVRP(11547) = V(5255) -! JVRP(11548) = dARP(7245)/dV(5255) - JVRP(11548) = V(3784) -! JVRP(11549) = dARP(7246)/dV(3784) - JVRP(11549) = V(5252) -! JVRP(11550) = dARP(7246)/dV(5252) - JVRP(11550) = V(3784) -! JVRP(11551) = dARP(7247)/dV(3784) - JVRP(11551) = V(5256) -! JVRP(11552) = dARP(7247)/dV(5256) - JVRP(11552) = V(3784) -! JVRP(11553) = dARP(7248)/dV(3784) - JVRP(11553) = 1 -! JVRP(11554) = dARP(7249)/dV(1430) - JVRP(11554) = V(5250) -! JVRP(11555) = dARP(7249)/dV(5250) - JVRP(11555) = V(1430) -! JVRP(11556) = dARP(7250)/dV(1430) - JVRP(11556) = 1 -! JVRP(11557) = dARP(7251)/dV(3054) - JVRP(11557) = 1 -! JVRP(11558) = dARP(7252)/dV(2434) - JVRP(11558) = V(5250) -! JVRP(11559) = dARP(7252)/dV(5250) - JVRP(11559) = V(2434) -! JVRP(11560) = dARP(7253)/dV(2434) - JVRP(11560) = 1 -! JVRP(11561) = dARP(7254)/dV(2815) - JVRP(11561) = V(5250) -! JVRP(11562) = dARP(7254)/dV(5250) - JVRP(11562) = V(2815) -! JVRP(11563) = dARP(7255)/dV(2815) - JVRP(11563) = 1 -! JVRP(11564) = dARP(7256)/dV(2110) - JVRP(11564) = V(5250) -! JVRP(11565) = dARP(7256)/dV(5250) - JVRP(11565) = V(2110) -! JVRP(11566) = dARP(7257)/dV(2110) - JVRP(11566) = 1 -! JVRP(11567) = dARP(7258)/dV(3020) - JVRP(11567) = V(5250) -! JVRP(11568) = dARP(7258)/dV(5250) - JVRP(11568) = V(3020) -! JVRP(11569) = dARP(7259)/dV(3020) - JVRP(11569) = 1 -! JVRP(11570) = dARP(7260)/dV(833) - JVRP(11570) = V(5250) -! JVRP(11571) = dARP(7260)/dV(5250) - JVRP(11571) = V(833) -! JVRP(11572) = dARP(7261)/dV(833) - JVRP(11572) = 1 -! JVRP(11573) = dARP(7262)/dV(3021) - JVRP(11573) = V(5250) -! JVRP(11574) = dARP(7262)/dV(5250) - JVRP(11574) = V(3021) -! JVRP(11575) = dARP(7263)/dV(3021) - JVRP(11575) = 1 -! JVRP(11576) = dARP(7264)/dV(330) - JVRP(11576) = V(5250) -! JVRP(11577) = dARP(7264)/dV(5250) - JVRP(11577) = V(330) -! JVRP(11578) = dARP(7265)/dV(1015) - JVRP(11578) = 1 -! JVRP(11579) = dARP(7266)/dV(1015) - JVRP(11579) = V(5250) -! JVRP(11580) = dARP(7266)/dV(5250) - JVRP(11580) = V(1015) -! JVRP(11581) = dARP(7267)/dV(2525) - JVRP(11581) = 1 -! JVRP(11582) = dARP(7268)/dV(2525) - JVRP(11582) = V(5250) -! JVRP(11583) = dARP(7268)/dV(5250) - JVRP(11583) = V(2525) -! JVRP(11584) = dARP(7269)/dV(1097) - JVRP(11584) = V(5250) -! JVRP(11585) = dARP(7269)/dV(5250) - JVRP(11585) = V(1097) -! JVRP(11586) = dARP(7270)/dV(1097) - JVRP(11586) = 1 -! JVRP(11587) = dARP(7271)/dV(1048) - JVRP(11587) = V(5250) -! JVRP(11588) = dARP(7271)/dV(5250) - JVRP(11588) = V(1048) -! JVRP(11589) = dARP(7272)/dV(1048) - JVRP(11589) = 1 -! JVRP(11590) = dARP(7273)/dV(3056) - JVRP(11590) = V(5250) -! JVRP(11591) = dARP(7273)/dV(5250) - JVRP(11591) = V(3056) -! JVRP(11592) = dARP(7274)/dV(3056) - JVRP(11592) = 1 -! JVRP(11593) = dARP(7275)/dV(2828) - JVRP(11593) = V(5250) -! JVRP(11594) = dARP(7275)/dV(5250) - JVRP(11594) = V(2828) -! JVRP(11595) = dARP(7276)/dV(2828) - JVRP(11595) = 1 -! JVRP(11596) = dARP(7277)/dV(2828) - JVRP(11596) = 1 -! JVRP(11597) = dARP(7278)/dV(1037) - JVRP(11597) = 1 -! JVRP(11598) = dARP(7279)/dV(1037) - JVRP(11598) = V(5250) -! JVRP(11599) = dARP(7279)/dV(5250) - JVRP(11599) = V(1037) -! JVRP(11600) = dARP(7280)/dV(1100) - JVRP(11600) = 1 -! JVRP(11601) = dARP(7281)/dV(1100) - JVRP(11601) = V(5250) -! JVRP(11602) = dARP(7281)/dV(5250) - JVRP(11602) = V(1100) -! JVRP(11603) = dARP(7282)/dV(2691) - JVRP(11603) = 1 -! JVRP(11604) = dARP(7283)/dV(2691) - JVRP(11604) = V(5250) -! JVRP(11605) = dARP(7283)/dV(5250) - JVRP(11605) = V(2691) -! JVRP(11606) = dARP(7284)/dV(2127) - JVRP(11606) = 1 -! JVRP(11607) = dARP(7285)/dV(2127) - JVRP(11607) = V(5250) -! JVRP(11608) = dARP(7285)/dV(5250) - JVRP(11608) = V(2127) -! JVRP(11609) = dARP(7286)/dV(2127) - JVRP(11609) = V(5250) -! JVRP(11610) = dARP(7286)/dV(5250) - JVRP(11610) = V(2127) -! JVRP(11611) = dARP(7287)/dV(1902) - JVRP(11611) = 1 -! JVRP(11612) = dARP(7288)/dV(1902) - JVRP(11612) = V(5250) -! JVRP(11613) = dARP(7288)/dV(5250) - JVRP(11613) = V(1902) -! JVRP(11614) = dARP(7289)/dV(1720) - JVRP(11614) = 1 -! JVRP(11615) = dARP(7290)/dV(4540) - JVRP(11615) = 1 -! JVRP(11616) = dARP(7291)/dV(4540) - JVRP(11616) = V(5256) -! JVRP(11617) = dARP(7291)/dV(5256) - JVRP(11617) = V(4540) -! JVRP(11618) = dARP(7292)/dV(4540) - JVRP(11618) = V(5250) -! JVRP(11619) = dARP(7292)/dV(5250) - JVRP(11619) = V(4540) -! JVRP(11620) = dARP(7293)/dV(231) - JVRP(11620) = V(5250) -! JVRP(11621) = dARP(7293)/dV(5250) - JVRP(11621) = V(231) -! JVRP(11622) = dARP(7294)/dV(603) - JVRP(11622) = 1 -! JVRP(11623) = dARP(7295)/dV(222) - JVRP(11623) = V(5250) -! JVRP(11624) = dARP(7295)/dV(5250) - JVRP(11624) = V(222) -! JVRP(11625) = dARP(7296)/dV(1436) - JVRP(11625) = V(5250) -! JVRP(11626) = dARP(7296)/dV(5250) - JVRP(11626) = V(1436) -! JVRP(11627) = dARP(7297)/dV(1436) - JVRP(11627) = 1 -! JVRP(11628) = dARP(7298)/dV(2921) - JVRP(11628) = V(5250) -! JVRP(11629) = dARP(7298)/dV(5250) - JVRP(11629) = V(2921) -! JVRP(11630) = dARP(7299)/dV(2921) - JVRP(11630) = 1 -! JVRP(11631) = dARP(7300)/dV(2410) - JVRP(11631) = V(5250) -! JVRP(11632) = dARP(7300)/dV(5250) - JVRP(11632) = V(2410) -! JVRP(11633) = dARP(7301)/dV(2410) - JVRP(11633) = 1 -! JVRP(11634) = dARP(7302)/dV(2511) - JVRP(11634) = V(5250) -! JVRP(11635) = dARP(7302)/dV(5250) - JVRP(11635) = V(2511) -! JVRP(11636) = dARP(7303)/dV(2511) - JVRP(11636) = 1 -! JVRP(11637) = dARP(7304)/dV(4983) - JVRP(11637) = 1 -! JVRP(11638) = dARP(7305)/dV(4983) - JVRP(11638) = V(5250) -! JVRP(11639) = dARP(7305)/dV(5250) - JVRP(11639) = V(4983) -! JVRP(11640) = dARP(7306)/dV(5133) - JVRP(11640) = V(5255) -! JVRP(11641) = dARP(7306)/dV(5255) - JVRP(11641) = V(5133) -! JVRP(11642) = dARP(7307)/dV(5133) - JVRP(11642) = V(5255) -! JVRP(11643) = dARP(7307)/dV(5255) - JVRP(11643) = V(5133) -! JVRP(11644) = dARP(7308)/dV(5133) - JVRP(11644) = V(5255) -! JVRP(11645) = dARP(7308)/dV(5255) - JVRP(11645) = V(5133) -! JVRP(11646) = dARP(7309)/dV(5133) - JVRP(11646) = V(5252) -! JVRP(11647) = dARP(7309)/dV(5252) - JVRP(11647) = V(5133) -! JVRP(11648) = dARP(7310)/dV(5133) - JVRP(11648) = V(5253) -! JVRP(11649) = dARP(7310)/dV(5253) - JVRP(11649) = V(5133) -! JVRP(11650) = dARP(7311)/dV(5133) - JVRP(11650) = V(5256) -! JVRP(11651) = dARP(7311)/dV(5256) - JVRP(11651) = V(5133) -! JVRP(11652) = dARP(7312)/dV(5133) - JVRP(11652) = 1 -! JVRP(11653) = dARP(7313)/dV(5133) - JVRP(11653) = 1 -! JVRP(11654) = dARP(7314)/dV(3334) - JVRP(11654) = V(5250) -! JVRP(11655) = dARP(7314)/dV(5250) - JVRP(11655) = V(3334) -! JVRP(11656) = dARP(7315)/dV(3334) - JVRP(11656) = V(5250) -! JVRP(11657) = dARP(7315)/dV(5250) - JVRP(11657) = V(3334) -! JVRP(11658) = dARP(7316)/dV(3326) - JVRP(11658) = V(5250) -! JVRP(11659) = dARP(7316)/dV(5250) - JVRP(11659) = V(3326) -! JVRP(11660) = dARP(7317)/dV(3326) - JVRP(11660) = V(5250) -! JVRP(11661) = dARP(7317)/dV(5250) - JVRP(11661) = V(3326) -! JVRP(11662) = dARP(7318)/dV(3326) - JVRP(11662) = 1 -! JVRP(11663) = dARP(7319)/dV(3059) - JVRP(11663) = V(5250) -! JVRP(11664) = dARP(7319)/dV(5250) - JVRP(11664) = V(3059) -! JVRP(11665) = dARP(7320)/dV(3059) - JVRP(11665) = 1 -! JVRP(11666) = dARP(7321)/dV(2985) - JVRP(11666) = V(5250) -! JVRP(11667) = dARP(7321)/dV(5250) - JVRP(11667) = V(2985) -! JVRP(11668) = dARP(7322)/dV(2985) - JVRP(11668) = V(5250) -! JVRP(11669) = dARP(7322)/dV(5250) - JVRP(11669) = V(2985) -! JVRP(11670) = dARP(7323)/dV(3203) - JVRP(11670) = V(5250) -! JVRP(11671) = dARP(7323)/dV(5250) - JVRP(11671) = V(3203) -! JVRP(11672) = dARP(7324)/dV(3203) - JVRP(11672) = V(5250) -! JVRP(11673) = dARP(7324)/dV(5250) - JVRP(11673) = V(3203) -! JVRP(11674) = dARP(7325)/dV(3203) - JVRP(11674) = 1 -! JVRP(11675) = dARP(7326)/dV(2240) - JVRP(11675) = V(5250) -! JVRP(11676) = dARP(7326)/dV(5250) - JVRP(11676) = V(2240) -! JVRP(11677) = dARP(7327)/dV(2240) - JVRP(11677) = 1 -! JVRP(11678) = dARP(7328)/dV(2131) - JVRP(11678) = V(5250) -! JVRP(11679) = dARP(7328)/dV(5250) - JVRP(11679) = V(2131) -! JVRP(11680) = dARP(7329)/dV(2131) - JVRP(11680) = 1 -! JVRP(11681) = dARP(7330)/dV(2887) - JVRP(11681) = V(5250) -! JVRP(11682) = dARP(7330)/dV(5250) - JVRP(11682) = V(2887) -! JVRP(11683) = dARP(7331)/dV(2887) - JVRP(11683) = 1 -! JVRP(11684) = dARP(7332)/dV(3476) - JVRP(11684) = 1 -! JVRP(11685) = dARP(7333)/dV(3476) - JVRP(11685) = 1 -! JVRP(11686) = dARP(7334)/dV(3476) - JVRP(11686) = V(5250) -! JVRP(11687) = dARP(7334)/dV(5250) - JVRP(11687) = V(3476) -! JVRP(11688) = dARP(7335)/dV(2793) - JVRP(11688) = 1 -! JVRP(11689) = dARP(7336)/dV(2793) - JVRP(11689) = V(5250) -! JVRP(11690) = dARP(7336)/dV(5250) - JVRP(11690) = V(2793) -! JVRP(11691) = dARP(7337)/dV(831) - JVRP(11691) = 1 -! JVRP(11692) = dARP(7338)/dV(831) - JVRP(11692) = V(5250) -! JVRP(11693) = dARP(7338)/dV(5250) - JVRP(11693) = V(831) -! JVRP(11694) = dARP(7339)/dV(2172) - JVRP(11694) = 1 -! JVRP(11695) = dARP(7340)/dV(2172) - JVRP(11695) = V(5250) -! JVRP(11696) = dARP(7340)/dV(5250) - JVRP(11696) = V(2172) -! JVRP(11697) = dARP(7341)/dV(2173) - JVRP(11697) = 1 -! JVRP(11698) = dARP(7342)/dV(4248) - JVRP(11698) = 1 -! JVRP(11699) = dARP(7343)/dV(4248) - JVRP(11699) = V(5250) -! JVRP(11700) = dARP(7343)/dV(5250) - JVRP(11700) = V(4248) -! JVRP(11701) = dARP(7344)/dV(4248) - JVRP(11701) = V(5250) -! JVRP(11702) = dARP(7344)/dV(5250) - JVRP(11702) = V(4248) -! JVRP(11703) = dARP(7345)/dV(1179) - JVRP(11703) = V(5250) -! JVRP(11704) = dARP(7345)/dV(5250) - JVRP(11704) = V(1179) -! JVRP(11705) = dARP(7346)/dV(2785) - JVRP(11705) = 1 -! JVRP(11706) = dARP(7347)/dV(2785) - JVRP(11706) = V(5250) -! JVRP(11707) = dARP(7347)/dV(5250) - JVRP(11707) = V(2785) -! JVRP(11708) = dARP(7348)/dV(2785) - JVRP(11708) = V(5250) -! JVRP(11709) = dARP(7348)/dV(5250) - JVRP(11709) = V(2785) -! JVRP(11710) = dARP(7349)/dV(2519) - JVRP(11710) = 1 -! JVRP(11711) = dARP(7350)/dV(2519) - JVRP(11711) = V(5250) -! JVRP(11712) = dARP(7350)/dV(5250) - JVRP(11712) = V(2519) -! JVRP(11713) = dARP(7351)/dV(1667) - JVRP(11713) = 1 -! JVRP(11714) = dARP(7352)/dV(4261) - JVRP(11714) = 1 -! JVRP(11715) = dARP(7353)/dV(4261) - JVRP(11715) = V(5256) -! JVRP(11716) = dARP(7353)/dV(5256) - JVRP(11716) = V(4261) -! JVRP(11717) = dARP(7354)/dV(4261) - JVRP(11717) = V(5250) -! JVRP(11718) = dARP(7354)/dV(5250) - JVRP(11718) = V(4261) -! JVRP(11719) = dARP(7355)/dV(2871) - JVRP(11719) = 1 -! JVRP(11720) = dARP(7356)/dV(2871) - JVRP(11720) = V(5250) -! JVRP(11721) = dARP(7356)/dV(5250) - JVRP(11721) = V(2871) -! JVRP(11722) = dARP(7357)/dV(2871) - JVRP(11722) = V(5250) -! JVRP(11723) = dARP(7357)/dV(5250) - JVRP(11723) = V(2871) -! JVRP(11724) = dARP(7358)/dV(2761) - JVRP(11724) = 1 -! JVRP(11725) = dARP(7359)/dV(2761) - JVRP(11725) = V(5250) -! JVRP(11726) = dARP(7359)/dV(5250) - JVRP(11726) = V(2761) -! JVRP(11727) = dARP(7360)/dV(1616) - JVRP(11727) = 1 -! JVRP(11728) = dARP(7361)/dV(546) - JVRP(11728) = V(5250) -! JVRP(11729) = dARP(7361)/dV(5250) - JVRP(11729) = V(546) -! JVRP(11730) = dARP(7362)/dV(546) - JVRP(11730) = V(5250) -! JVRP(11731) = dARP(7362)/dV(5250) - JVRP(11731) = V(546) -! JVRP(11732) = dARP(7363)/dV(3923) - JVRP(11732) = 1 -! JVRP(11733) = dARP(7364)/dV(3923) - JVRP(11733) = V(5256) -! JVRP(11734) = dARP(7364)/dV(5256) - JVRP(11734) = V(3923) -! JVRP(11735) = dARP(7365)/dV(3923) - JVRP(11735) = V(5250) -! JVRP(11736) = dARP(7365)/dV(5250) - JVRP(11736) = V(3923) -! JVRP(11737) = dARP(7366)/dV(889) - JVRP(11737) = V(5250) -! JVRP(11738) = dARP(7366)/dV(5250) - JVRP(11738) = V(889) -! JVRP(11739) = dARP(7367)/dV(889) - JVRP(11739) = 1 -! JVRP(11740) = dARP(7368)/dV(3260) - JVRP(11740) = 1 -! JVRP(11741) = dARP(7369)/dV(3260) - JVRP(11741) = V(5250) -! JVRP(11742) = dARP(7369)/dV(5250) - JVRP(11742) = V(3260) -! JVRP(11743) = dARP(7370)/dV(1165) - JVRP(11743) = 1 -! JVRP(11744) = dARP(7371)/dV(1165) - JVRP(11744) = V(5250) -! JVRP(11745) = dARP(7371)/dV(5250) - JVRP(11745) = V(1165) -! JVRP(11746) = dARP(7372)/dV(2509) - JVRP(11746) = 1 -! JVRP(11747) = dARP(7373)/dV(2509) - JVRP(11747) = V(5250) -! JVRP(11748) = dARP(7373)/dV(5250) - JVRP(11748) = V(2509) -! JVRP(11749) = dARP(7374)/dV(1755) - JVRP(11749) = 1 -! JVRP(11750) = dARP(7375)/dV(1521) - JVRP(11750) = V(5250) -! JVRP(11751) = dARP(7375)/dV(5250) - JVRP(11751) = V(1521) -! JVRP(11752) = dARP(7376)/dV(5140) - JVRP(11752) = 1 -! JVRP(11753) = dARP(7377)/dV(5140) - JVRP(11753) = 1 -! JVRP(11754) = dARP(7378)/dV(5140) - JVRP(11754) = V(5250) -! JVRP(11755) = dARP(7378)/dV(5250) - JVRP(11755) = V(5140) -! JVRP(11756) = dARP(7379)/dV(5140) - JVRP(11756) = V(5250) -! JVRP(11757) = dARP(7379)/dV(5250) - JVRP(11757) = V(5140) -! JVRP(11758) = dARP(7380)/dV(1290) - JVRP(11758) = 1 -! JVRP(11759) = dARP(7381)/dV(1290) - JVRP(11759) = V(5250) -! JVRP(11760) = dARP(7381)/dV(5250) - JVRP(11760) = V(1290) -! JVRP(11761) = dARP(7382)/dV(2841) - JVRP(11761) = V(5250) -! JVRP(11762) = dARP(7382)/dV(5250) - JVRP(11762) = V(2841) -! JVRP(11763) = dARP(7383)/dV(2841) - JVRP(11763) = 1 -! JVRP(11764) = dARP(7384)/dV(836) - JVRP(11764) = 1 -! JVRP(11765) = dARP(7385)/dV(836) - JVRP(11765) = V(5250) -! JVRP(11766) = dARP(7385)/dV(5250) - JVRP(11766) = V(836) -! JVRP(11767) = dARP(7386)/dV(2189) - JVRP(11767) = 1 -! JVRP(11768) = dARP(7387)/dV(2189) - JVRP(11768) = V(5250) -! JVRP(11769) = dARP(7387)/dV(5250) - JVRP(11769) = V(2189) -! JVRP(11770) = dARP(7388)/dV(2030) - JVRP(11770) = 1 -! JVRP(11771) = dARP(7389)/dV(437) - JVRP(11771) = V(5250) -! JVRP(11772) = dARP(7389)/dV(5250) - JVRP(11772) = V(437) -! JVRP(11773) = dARP(7390)/dV(3046) - JVRP(11773) = 1 -! JVRP(11774) = dARP(7391)/dV(3046) - JVRP(11774) = V(5250) -! JVRP(11775) = dARP(7391)/dV(5250) - JVRP(11775) = V(3046) -! JVRP(11776) = dARP(7392)/dV(3046) - JVRP(11776) = V(5250) -! JVRP(11777) = dARP(7392)/dV(5250) - JVRP(11777) = V(3046) -! JVRP(11778) = dARP(7393)/dV(2835) - JVRP(11778) = 1 -! JVRP(11779) = dARP(7394)/dV(2835) - JVRP(11779) = V(5250) -! JVRP(11780) = dARP(7394)/dV(5250) - JVRP(11780) = V(2835) -! JVRP(11781) = dARP(7395)/dV(1563) - JVRP(11781) = 1 -! JVRP(11782) = dARP(7396)/dV(5115) - JVRP(11782) = 1 -! JVRP(11783) = dARP(7397)/dV(5115) - JVRP(11783) = V(5256) -! JVRP(11784) = dARP(7397)/dV(5256) - JVRP(11784) = V(5115) -! JVRP(11785) = dARP(7398)/dV(5115) - JVRP(11785) = V(5250) -! JVRP(11786) = dARP(7398)/dV(5250) - JVRP(11786) = V(5115) -! JVRP(11787) = dARP(7399)/dV(5115) - JVRP(11787) = V(5250) -! JVRP(11788) = dARP(7399)/dV(5250) - JVRP(11788) = V(5115) -! JVRP(11789) = dARP(7400)/dV(1506) - JVRP(11789) = 1 -! JVRP(11790) = dARP(7401)/dV(1506) - JVRP(11790) = V(5250) -! JVRP(11791) = dARP(7401)/dV(5250) - JVRP(11791) = V(1506) -! JVRP(11792) = dARP(7402)/dV(1798) - JVRP(11792) = 1 -! JVRP(11793) = dARP(7403)/dV(1798) - JVRP(11793) = V(5250) -! JVRP(11794) = dARP(7403)/dV(5250) - JVRP(11794) = V(1798) -! JVRP(11795) = dARP(7404)/dV(1799) - JVRP(11795) = 1 -! JVRP(11796) = dARP(7405)/dV(5010) - JVRP(11796) = 1 -! JVRP(11797) = dARP(7406)/dV(5010) - JVRP(11797) = V(5250) -! JVRP(11798) = dARP(7406)/dV(5250) - JVRP(11798) = V(5010) -! JVRP(11799) = dARP(7407)/dV(5010) - JVRP(11799) = V(5250) -! JVRP(11800) = dARP(7407)/dV(5250) - JVRP(11800) = V(5010) -! JVRP(11801) = dARP(7408)/dV(435) - JVRP(11801) = V(5250) -! JVRP(11802) = dARP(7408)/dV(5250) - JVRP(11802) = V(435) -! JVRP(11803) = dARP(7409)/dV(876) - JVRP(11803) = 1 -! JVRP(11804) = dARP(7410)/dV(876) - JVRP(11804) = V(5250) -! JVRP(11805) = dARP(7410)/dV(5250) - JVRP(11805) = V(876) -! JVRP(11806) = dARP(7411)/dV(2755) - JVRP(11806) = 1 -! JVRP(11807) = dARP(7412)/dV(2755) - JVRP(11807) = V(5250) -! JVRP(11808) = dARP(7412)/dV(5250) - JVRP(11808) = V(2755) -! JVRP(11809) = dARP(7413)/dV(2543) - JVRP(11809) = 1 -! JVRP(11810) = dARP(7414)/dV(2543) - JVRP(11810) = V(5250) -! JVRP(11811) = dARP(7414)/dV(5250) - JVRP(11811) = V(2543) -! JVRP(11812) = dARP(7415)/dV(2543) - JVRP(11812) = V(5250) -! JVRP(11813) = dARP(7415)/dV(5250) - JVRP(11813) = V(2543) -! JVRP(11814) = dARP(7416)/dV(2653) - JVRP(11814) = 1 -! JVRP(11815) = dARP(7417)/dV(2653) - JVRP(11815) = V(5250) -! JVRP(11816) = dARP(7417)/dV(5250) - JVRP(11816) = V(2653) -! JVRP(11817) = dARP(7418)/dV(1564) - JVRP(11817) = 1 -! JVRP(11818) = dARP(7419)/dV(4975) - JVRP(11818) = 1 -! JVRP(11819) = dARP(7420)/dV(4975) - JVRP(11819) = V(5256) -! JVRP(11820) = dARP(7420)/dV(5256) - JVRP(11820) = V(4975) -! JVRP(11821) = dARP(7421)/dV(4975) - JVRP(11821) = V(5250) -! JVRP(11822) = dARP(7421)/dV(5250) - JVRP(11822) = V(4975) -! JVRP(11823) = dARP(7422)/dV(4975) - JVRP(11823) = V(5250) -! JVRP(11824) = dARP(7422)/dV(5250) - JVRP(11824) = V(4975) -! JVRP(11825) = dARP(7423)/dV(2244) - JVRP(11825) = 1 -! JVRP(11826) = dARP(7424)/dV(2244) - JVRP(11826) = 1 -! JVRP(11827) = dARP(7425)/dV(2244) - JVRP(11827) = V(5250) -! JVRP(11828) = dARP(7425)/dV(5250) - JVRP(11828) = V(2244) -! JVRP(11829) = dARP(7426)/dV(1654) - JVRP(11829) = 1 -! JVRP(11830) = dARP(7427)/dV(1653) - JVRP(11830) = 1 -! JVRP(11831) = dARP(7428)/dV(1653) - JVRP(11831) = V(5250) -! JVRP(11832) = dARP(7428)/dV(5250) - JVRP(11832) = V(1653) -! JVRP(11833) = dARP(7429)/dV(1262) - JVRP(11833) = 1 -! JVRP(11834) = dARP(7430)/dV(1262) - JVRP(11834) = V(5250) -! JVRP(11835) = dARP(7430)/dV(5250) - JVRP(11835) = V(1262) -! JVRP(11836) = dARP(7431)/dV(1980) - JVRP(11836) = 1 -! JVRP(11837) = dARP(7432)/dV(1980) - JVRP(11837) = V(5250) -! JVRP(11838) = dARP(7432)/dV(5250) - JVRP(11838) = V(1980) -! JVRP(11839) = dARP(7433)/dV(195) - JVRP(11839) = 1 -! JVRP(11840) = dARP(7434)/dV(3857) - JVRP(11840) = 1 -! JVRP(11841) = dARP(7435)/dV(3857) - JVRP(11841) = V(5256) -! JVRP(11842) = dARP(7435)/dV(5256) - JVRP(11842) = V(3857) -! JVRP(11843) = dARP(7436)/dV(3857) - JVRP(11843) = V(5250) -! JVRP(11844) = dARP(7436)/dV(5250) - JVRP(11844) = V(3857) -! JVRP(11845) = dARP(7437)/dV(1693) - JVRP(11845) = 1 -! JVRP(11846) = dARP(7438)/dV(1693) - JVRP(11846) = V(5250) -! JVRP(11847) = dARP(7438)/dV(5250) - JVRP(11847) = V(1693) -! JVRP(11848) = dARP(7439)/dV(2233) - JVRP(11848) = 1 -! JVRP(11849) = dARP(7440)/dV(2233) - JVRP(11849) = V(5250) -! JVRP(11850) = dARP(7440)/dV(5250) - JVRP(11850) = V(2233) -! JVRP(11851) = dARP(7441)/dV(2233) - JVRP(11851) = V(5250) -! JVRP(11852) = dARP(7441)/dV(5250) - JVRP(11852) = V(2233) -! JVRP(11853) = dARP(7442)/dV(2182) - JVRP(11853) = 1 -! JVRP(11854) = dARP(7443)/dV(2182) - JVRP(11854) = V(5250) -! JVRP(11855) = dARP(7443)/dV(5250) - JVRP(11855) = V(2182) -! JVRP(11856) = dARP(7444)/dV(1692) - JVRP(11856) = 1 -! JVRP(11857) = dARP(7445)/dV(4110) - JVRP(11857) = 1 -! JVRP(11858) = dARP(7446)/dV(4110) - JVRP(11858) = V(5256) -! JVRP(11859) = dARP(7446)/dV(5256) - JVRP(11859) = V(4110) -! JVRP(11860) = dARP(7447)/dV(4110) - JVRP(11860) = V(5250) -! JVRP(11861) = dARP(7447)/dV(5250) - JVRP(11861) = V(4110) -! JVRP(11862) = dARP(7448)/dV(4110) - JVRP(11862) = V(5250) -! JVRP(11863) = dARP(7448)/dV(5250) - JVRP(11863) = V(4110) -! JVRP(11864) = dARP(7449)/dV(425) - JVRP(11864) = V(5250) -! JVRP(11865) = dARP(7449)/dV(5250) - JVRP(11865) = V(425) -! JVRP(11866) = dARP(7450)/dV(1340) - JVRP(11866) = 1 -! JVRP(11867) = dARP(7451)/dV(1340) - JVRP(11867) = V(5250) -! JVRP(11868) = dARP(7451)/dV(5250) - JVRP(11868) = V(1340) -! JVRP(11869) = dARP(7452)/dV(2555) - JVRP(11869) = 1 -! JVRP(11870) = dARP(7453)/dV(2555) - JVRP(11870) = V(5250) -! JVRP(11871) = dARP(7453)/dV(5250) - JVRP(11871) = V(2555) -! JVRP(11872) = dARP(7454)/dV(1838) - JVRP(11872) = 1 -! JVRP(11873) = dARP(7455)/dV(5064) - JVRP(11873) = 1 -! JVRP(11874) = dARP(7456)/dV(5064) - JVRP(11874) = V(5250) -! JVRP(11875) = dARP(7456)/dV(5250) - JVRP(11875) = V(5064) -! JVRP(11876) = dARP(7457)/dV(5064) - JVRP(11876) = V(5250) -! JVRP(11877) = dARP(7457)/dV(5250) - JVRP(11877) = V(5064) -! JVRP(11878) = dARP(7458)/dV(488) - JVRP(11878) = V(5250) -! JVRP(11879) = dARP(7458)/dV(5250) - JVRP(11879) = V(488) -! JVRP(11880) = dARP(7459)/dV(1180) - JVRP(11880) = 1 -! JVRP(11881) = dARP(7460)/dV(1180) - JVRP(11881) = V(5250) -! JVRP(11882) = dARP(7460)/dV(5250) - JVRP(11882) = V(1180) -! JVRP(11883) = dARP(7461)/dV(3024) - JVRP(11883) = 1 -! JVRP(11884) = dARP(7462)/dV(3024) - JVRP(11884) = V(5250) -! JVRP(11885) = dARP(7462)/dV(5250) - JVRP(11885) = V(3024) -! JVRP(11886) = dARP(7463)/dV(2775) - JVRP(11886) = 1 -! JVRP(11887) = dARP(7464)/dV(2775) - JVRP(11887) = V(5250) -! JVRP(11888) = dARP(7464)/dV(5250) - JVRP(11888) = V(2775) -! JVRP(11889) = dARP(7465)/dV(2775) - JVRP(11889) = V(5250) -! JVRP(11890) = dARP(7465)/dV(5250) - JVRP(11890) = V(2775) -! JVRP(11891) = dARP(7466)/dV(2934) - JVRP(11891) = 1 -! JVRP(11892) = dARP(7467)/dV(2934) - JVRP(11892) = V(5250) -! JVRP(11893) = dARP(7467)/dV(5250) - JVRP(11893) = V(2934) -! JVRP(11894) = dARP(7468)/dV(1721) - JVRP(11894) = 1 -! JVRP(11895) = dARP(7469)/dV(5063) - JVRP(11895) = 1 -! JVRP(11896) = dARP(7470)/dV(5063) - JVRP(11896) = V(5256) -! JVRP(11897) = dARP(7470)/dV(5256) - JVRP(11897) = V(5063) -! JVRP(11898) = dARP(7471)/dV(5063) - JVRP(11898) = V(5250) -! JVRP(11899) = dARP(7471)/dV(5250) - JVRP(11899) = V(5063) -! JVRP(11900) = dARP(7472)/dV(5063) - JVRP(11900) = V(5250) -! JVRP(11901) = dARP(7472)/dV(5250) - JVRP(11901) = V(5063) -! JVRP(11902) = dARP(7473)/dV(1281) - JVRP(11902) = 1 -! JVRP(11903) = dARP(7474)/dV(1281) - JVRP(11903) = V(5250) -! JVRP(11904) = dARP(7474)/dV(5250) - JVRP(11904) = V(1281) -! JVRP(11905) = dARP(7475)/dV(2045) - JVRP(11905) = 1 -! JVRP(11906) = dARP(7476)/dV(2045) - JVRP(11906) = V(5250) -! JVRP(11907) = dARP(7476)/dV(5250) - JVRP(11907) = V(2045) -! JVRP(11908) = dARP(7477)/dV(2889) - JVRP(11908) = 1 -! JVRP(11909) = dARP(7478)/dV(2889) - JVRP(11909) = 1 -! JVRP(11910) = dARP(7479)/dV(3384) - JVRP(11910) = 1 -! JVRP(11911) = dARP(7480)/dV(3384) - JVRP(11911) = V(5250) -! JVRP(11912) = dARP(7480)/dV(5250) - JVRP(11912) = V(3384) -! JVRP(11913) = dARP(7481)/dV(220) - JVRP(11913) = V(5250) -! JVRP(11914) = dARP(7481)/dV(5250) - JVRP(11914) = V(220) -! JVRP(11915) = dARP(7482)/dV(1514) - JVRP(11915) = 1 -! JVRP(11916) = dARP(7483)/dV(1514) - JVRP(11916) = V(5250) -! JVRP(11917) = dARP(7483)/dV(5250) - JVRP(11917) = V(1514) -! JVRP(11918) = dARP(7484)/dV(1714) - JVRP(11918) = 1 -! JVRP(11919) = dARP(7485)/dV(1694) - JVRP(11919) = 1 -! JVRP(11920) = dARP(7486)/dV(1694) - JVRP(11920) = V(5250) -! JVRP(11921) = dARP(7486)/dV(5250) - JVRP(11921) = V(1694) -! JVRP(11922) = dARP(7487)/dV(3038) - JVRP(11922) = 1 -! JVRP(11923) = dARP(7488)/dV(3038) - JVRP(11923) = V(5250) -! JVRP(11924) = dARP(7488)/dV(5250) - JVRP(11924) = V(3038) -! JVRP(11925) = dARP(7489)/dV(3038) - JVRP(11925) = V(5250) -! JVRP(11926) = dARP(7489)/dV(5250) - JVRP(11926) = V(3038) -! JVRP(11927) = dARP(7490)/dV(2513) - JVRP(11927) = 1 -! JVRP(11928) = dARP(7491)/dV(2513) - JVRP(11928) = V(5250) -! JVRP(11929) = dARP(7491)/dV(5250) - JVRP(11929) = V(2513) -! JVRP(11930) = dARP(7492)/dV(1663) - JVRP(11930) = 1 -! JVRP(11931) = dARP(7493)/dV(4313) - JVRP(11931) = 1 -! JVRP(11932) = dARP(7494)/dV(4313) - JVRP(11932) = V(5256) -! JVRP(11933) = dARP(7494)/dV(5256) - JVRP(11933) = V(4313) -! JVRP(11934) = dARP(7495)/dV(4313) - JVRP(11934) = V(5250) -! JVRP(11935) = dARP(7495)/dV(5250) - JVRP(11935) = V(4313) -! JVRP(11936) = dARP(7496)/dV(2259) - JVRP(11936) = V(5250) -! JVRP(11937) = dARP(7496)/dV(5250) - JVRP(11937) = V(2259) -! JVRP(11938) = dARP(7497)/dV(2259) - JVRP(11938) = V(5250) -! JVRP(11939) = dARP(7497)/dV(5250) - JVRP(11939) = V(2259) -! JVRP(11940) = dARP(7498)/dV(853) - JVRP(11940) = 1 -! JVRP(11941) = dARP(7499)/dV(853) - JVRP(11941) = V(5250) -! JVRP(11942) = dARP(7499)/dV(5250) - JVRP(11942) = V(853) -! JVRP(11943) = dARP(7500)/dV(3026) - JVRP(11943) = 1 -! JVRP(11944) = dARP(7501)/dV(3026) - JVRP(11944) = V(5250) -! JVRP(11945) = dARP(7501)/dV(5250) - JVRP(11945) = V(3026) -! JVRP(11946) = dARP(7502)/dV(2633) - JVRP(11946) = 1 -! JVRP(11947) = dARP(7503)/dV(2633) - JVRP(11947) = V(5250) -! JVRP(11948) = dARP(7503)/dV(5250) - JVRP(11948) = V(2633) -! JVRP(11949) = dARP(7504)/dV(2633) - JVRP(11949) = V(5250) -! JVRP(11950) = dARP(7504)/dV(5250) - JVRP(11950) = V(2633) -! JVRP(11951) = dARP(7505)/dV(2713) - JVRP(11951) = 1 -! JVRP(11952) = dARP(7506)/dV(2713) - JVRP(11952) = V(5250) -! JVRP(11953) = dARP(7506)/dV(5250) - JVRP(11953) = V(2713) -! JVRP(11954) = dARP(7507)/dV(1627) - JVRP(11954) = 1 -! JVRP(11955) = dARP(7508)/dV(4834) - JVRP(11955) = 1 -! JVRP(11956) = dARP(7509)/dV(4834) - JVRP(11956) = V(5256) -! JVRP(11957) = dARP(7509)/dV(5256) - JVRP(11957) = V(4834) -! JVRP(11958) = dARP(7510)/dV(4834) - JVRP(11958) = V(5250) -! JVRP(11959) = dARP(7510)/dV(5250) - JVRP(11959) = V(4834) -! JVRP(11960) = dARP(7511)/dV(291) - JVRP(11960) = V(5250) -! JVRP(11961) = dARP(7511)/dV(5250) - JVRP(11961) = V(291) -! JVRP(11962) = dARP(7512)/dV(828) - JVRP(11962) = 1 -! JVRP(11963) = dARP(7513)/dV(828) - JVRP(11963) = V(5250) -! JVRP(11964) = dARP(7513)/dV(5250) - JVRP(11964) = V(828) -! JVRP(11965) = dARP(7514)/dV(3312) - JVRP(11965) = 1 -! JVRP(11966) = dARP(7515)/dV(3312) - JVRP(11966) = V(5250) -! JVRP(11967) = dARP(7515)/dV(5250) - JVRP(11967) = V(3312) -! JVRP(11968) = dARP(7516)/dV(1992) - JVRP(11968) = 1 -! JVRP(11969) = dARP(7517)/dV(1992) - JVRP(11969) = V(5250) -! JVRP(11970) = dARP(7517)/dV(5250) - JVRP(11970) = V(1992) -! JVRP(11971) = dARP(7518)/dV(1992) - JVRP(11971) = V(5250) -! JVRP(11972) = dARP(7518)/dV(5250) - JVRP(11972) = V(1992) -! JVRP(11973) = dARP(7519)/dV(2218) - JVRP(11973) = 1 -! JVRP(11974) = dARP(7520)/dV(2218) - JVRP(11974) = V(5250) -! JVRP(11975) = dARP(7520)/dV(5250) - JVRP(11975) = V(2218) -! JVRP(11976) = dARP(7521)/dV(1559) - JVRP(11976) = 1 -! JVRP(11977) = dARP(7522)/dV(333) - JVRP(11977) = V(5250) -! JVRP(11978) = dARP(7522)/dV(5250) - JVRP(11978) = V(333) -! JVRP(11979) = dARP(7523)/dV(3986) - JVRP(11979) = 1 -! JVRP(11980) = dARP(7524)/dV(3986) - JVRP(11980) = V(5256) -! JVRP(11981) = dARP(7524)/dV(5256) - JVRP(11981) = V(3986) -! JVRP(11982) = dARP(7525)/dV(3986) - JVRP(11982) = V(5250) -! JVRP(11983) = dARP(7525)/dV(5250) - JVRP(11983) = V(3986) -! JVRP(11984) = dARP(7526)/dV(379) - JVRP(11984) = V(5250) -! JVRP(11985) = dARP(7526)/dV(5250) - JVRP(11985) = V(379) -! JVRP(11986) = dARP(7527)/dV(832) - JVRP(11986) = 1 -! JVRP(11987) = dARP(7528)/dV(832) - JVRP(11987) = V(5250) -! JVRP(11988) = dARP(7528)/dV(5250) - JVRP(11988) = V(832) -! JVRP(11989) = dARP(7529)/dV(3023) - JVRP(11989) = 1 -! JVRP(11990) = dARP(7530)/dV(3023) - JVRP(11990) = V(5250) -! JVRP(11991) = dARP(7530)/dV(5250) - JVRP(11991) = V(3023) -! JVRP(11992) = dARP(7531)/dV(1375) - JVRP(11992) = 1 -! JVRP(11993) = dARP(7532)/dV(1375) - JVRP(11993) = V(5250) -! JVRP(11994) = dARP(7532)/dV(5250) - JVRP(11994) = V(1375) -! JVRP(11995) = dARP(7533)/dV(2917) - JVRP(11995) = 1 -! JVRP(11996) = dARP(7534)/dV(2917) - JVRP(11996) = V(5250) -! JVRP(11997) = dARP(7534)/dV(5250) - JVRP(11997) = V(2917) -! JVRP(11998) = dARP(7535)/dV(1945) - JVRP(11998) = 1 -! JVRP(11999) = dARP(7536)/dV(314) - JVRP(11999) = V(5250) -! JVRP(12000) = dARP(7536)/dV(5250) - JVRP(12000) = V(314) -! JVRP(12001) = dARP(7537)/dV(3382) - JVRP(12001) = 1 -! JVRP(12002) = dARP(7538)/dV(3382) - JVRP(12002) = V(5250) -! JVRP(12003) = dARP(7538)/dV(5250) - JVRP(12003) = V(3382) -! JVRP(12004) = dARP(7539)/dV(1075) - JVRP(12004) = 1 -! JVRP(12005) = dARP(7540)/dV(1075) - JVRP(12005) = V(5250) -! JVRP(12006) = dARP(7540)/dV(5250) - JVRP(12006) = V(1075) -! JVRP(12007) = dARP(7541)/dV(117) - JVRP(12007) = 1 -! JVRP(12008) = dARP(7542)/dV(1326) - JVRP(12008) = 1 -! JVRP(12009) = dARP(7543)/dV(1326) - JVRP(12009) = V(5250) -! JVRP(12010) = dARP(7543)/dV(5250) - JVRP(12010) = V(1326) -! JVRP(12011) = dARP(7544)/dV(3212) - JVRP(12011) = 1 -! JVRP(12012) = dARP(7545)/dV(3212) - JVRP(12012) = V(5250) -! JVRP(12013) = dARP(7545)/dV(5250) - JVRP(12013) = V(3212) -! JVRP(12014) = dARP(7546)/dV(2361) - JVRP(12014) = 1 -! JVRP(12015) = dARP(7547)/dV(895) - JVRP(12015) = V(5250) -! JVRP(12016) = dARP(7547)/dV(5250) - JVRP(12016) = V(895) -! JVRP(12017) = dARP(7548)/dV(1282) - JVRP(12017) = 1 -! JVRP(12018) = dARP(7549)/dV(1282) - JVRP(12018) = V(5250) -! JVRP(12019) = dARP(7549)/dV(5250) - JVRP(12019) = V(1282) -! JVRP(12020) = dARP(7550)/dV(91) - JVRP(12020) = 1 -! JVRP(12021) = dARP(7551)/dV(1010) - JVRP(12021) = 1 -! JVRP(12022) = dARP(7552)/dV(1010) - JVRP(12022) = V(5250) -! JVRP(12023) = dARP(7552)/dV(5250) - JVRP(12023) = V(1010) -! JVRP(12024) = dARP(7553)/dV(2291) - JVRP(12024) = 1 -! JVRP(12025) = dARP(7554)/dV(2291) - JVRP(12025) = V(5250) -! JVRP(12026) = dARP(7554)/dV(5250) - JVRP(12026) = V(2291) -! JVRP(12027) = dARP(7555)/dV(3393) - JVRP(12027) = 1 -! JVRP(12028) = dARP(7556)/dV(3393) - JVRP(12028) = 1 -! JVRP(12029) = dARP(7557)/dV(3747) - JVRP(12029) = 1 -! JVRP(12030) = dARP(7558)/dV(3747) - JVRP(12030) = V(5250) -! JVRP(12031) = dARP(7558)/dV(5250) - JVRP(12031) = V(3747) -! JVRP(12032) = dARP(7559)/dV(3747) - JVRP(12032) = V(5250) -! JVRP(12033) = dARP(7559)/dV(5250) - JVRP(12033) = V(3747) -! JVRP(12034) = dARP(7560)/dV(964) - JVRP(12034) = 1 -! JVRP(12035) = dARP(7561)/dV(964) - JVRP(12035) = V(5250) -! JVRP(12036) = dARP(7561)/dV(5250) - JVRP(12036) = V(964) -! JVRP(12037) = dARP(7562)/dV(2049) - JVRP(12037) = 1 -! JVRP(12038) = dARP(7563)/dV(2049) - JVRP(12038) = V(5250) -! JVRP(12039) = dARP(7563)/dV(5250) - JVRP(12039) = V(2049) -! JVRP(12040) = dARP(7564)/dV(2050) - JVRP(12040) = 1 -! JVRP(12041) = dARP(7565)/dV(675) - JVRP(12041) = V(5250) -! JVRP(12042) = dARP(7565)/dV(5250) - JVRP(12042) = V(675) -! JVRP(12043) = dARP(7566)/dV(675) - JVRP(12043) = V(5250) -! JVRP(12044) = dARP(7566)/dV(5250) - JVRP(12044) = V(675) -! JVRP(12045) = dARP(7567)/dV(3822) - JVRP(12045) = V(5250) -! JVRP(12046) = dARP(7567)/dV(5250) - JVRP(12046) = V(3822) -! JVRP(12047) = dARP(7568)/dV(3822) - JVRP(12047) = 1 -! JVRP(12048) = dARP(7569)/dV(1032) - JVRP(12048) = 1 -! JVRP(12049) = dARP(7570)/dV(1032) - JVRP(12049) = V(5250) -! JVRP(12050) = dARP(7570)/dV(5250) - JVRP(12050) = V(1032) -! JVRP(12051) = dARP(7571)/dV(132) - JVRP(12051) = 1 -! JVRP(12052) = dARP(7572)/dV(1382) - JVRP(12052) = V(5250) -! JVRP(12053) = dARP(7572)/dV(5250) - JVRP(12053) = V(1382) -! JVRP(12054) = dARP(7573)/dV(1382) - JVRP(12054) = V(5250) -! JVRP(12055) = dARP(7573)/dV(5250) - JVRP(12055) = V(1382) -! JVRP(12056) = dARP(7574)/dV(2202) - JVRP(12056) = 1 -! JVRP(12057) = dARP(7575)/dV(2202) - JVRP(12057) = V(5250) -! JVRP(12058) = dARP(7575)/dV(5250) - JVRP(12058) = V(2202) -! JVRP(12059) = dARP(7576)/dV(727) - JVRP(12059) = 1 -! JVRP(12060) = dARP(7577)/dV(223) - JVRP(12060) = V(5250) -! JVRP(12061) = dARP(7577)/dV(5250) - JVRP(12061) = V(223) -! JVRP(12062) = dARP(7578)/dV(3946) - JVRP(12062) = 1 -! JVRP(12063) = dARP(7579)/dV(3946) - JVRP(12063) = V(5256) -! JVRP(12064) = dARP(7579)/dV(5256) - JVRP(12064) = V(3946) -! JVRP(12065) = dARP(7580)/dV(3946) - JVRP(12065) = V(5250) -! JVRP(12066) = dARP(7580)/dV(5250) - JVRP(12066) = V(3946) -! JVRP(12067) = dARP(7581)/dV(1168) - JVRP(12067) = 1 -! JVRP(12068) = dARP(7582)/dV(1168) - JVRP(12068) = V(5250) -! JVRP(12069) = dARP(7582)/dV(5250) - JVRP(12069) = V(1168) -! JVRP(12070) = dARP(7583)/dV(2299) - JVRP(12070) = 1 -! JVRP(12071) = dARP(7584)/dV(2299) - JVRP(12071) = V(5250) -! JVRP(12072) = dARP(7584)/dV(5250) - JVRP(12072) = V(2299) -! JVRP(12073) = dARP(7585)/dV(2284) - JVRP(12073) = 1 -! JVRP(12074) = dARP(7586)/dV(469) - JVRP(12074) = V(5250) -! JVRP(12075) = dARP(7586)/dV(5250) - JVRP(12075) = V(469) -! JVRP(12076) = dARP(7587)/dV(3917) - JVRP(12076) = 1 -! JVRP(12077) = dARP(7588)/dV(3917) - JVRP(12077) = V(5250) -! JVRP(12078) = dARP(7588)/dV(5250) - JVRP(12078) = V(3917) -! JVRP(12079) = dARP(7589)/dV(3917) - JVRP(12079) = V(5250) -! JVRP(12080) = dARP(7589)/dV(5250) - JVRP(12080) = V(3917) -! JVRP(12081) = dARP(7590)/dV(1416) - JVRP(12081) = 1 -! JVRP(12082) = dARP(7591)/dV(1416) - JVRP(12082) = V(5250) -! JVRP(12083) = dARP(7591)/dV(5250) - JVRP(12083) = V(1416) -! JVRP(12084) = dARP(7592)/dV(50) - JVRP(12084) = 1 -! JVRP(12085) = dARP(7593)/dV(1401) - JVRP(12085) = 1 -! JVRP(12086) = dARP(7594)/dV(1401) - JVRP(12086) = V(5250) -! JVRP(12087) = dARP(7594)/dV(5250) - JVRP(12087) = V(1401) -! JVRP(12088) = dARP(7595)/dV(1780) - JVRP(12088) = 1 -! JVRP(12089) = dARP(7596)/dV(1780) - JVRP(12089) = V(5250) -! JVRP(12090) = dARP(7596)/dV(5250) - JVRP(12090) = V(1780) -! JVRP(12091) = dARP(7597)/dV(1781) - JVRP(12091) = 1 -! JVRP(12092) = dARP(7598)/dV(468) - JVRP(12092) = V(5250) -! JVRP(12093) = dARP(7598)/dV(5250) - JVRP(12093) = V(468) -! JVRP(12094) = dARP(7599)/dV(4103) - JVRP(12094) = 1 -! JVRP(12095) = dARP(7600)/dV(4103) - JVRP(12095) = V(5250) -! JVRP(12096) = dARP(7600)/dV(5250) - JVRP(12096) = V(4103) -! JVRP(12097) = dARP(7601)/dV(4103) - JVRP(12097) = V(5250) -! JVRP(12098) = dARP(7601)/dV(5250) - JVRP(12098) = V(4103) -! JVRP(12099) = dARP(7602)/dV(1374) - JVRP(12099) = 1 -! JVRP(12100) = dARP(7603)/dV(1374) - JVRP(12100) = V(5250) -! JVRP(12101) = dARP(7603)/dV(5250) - JVRP(12101) = V(1374) -! JVRP(12102) = dARP(7604)/dV(140) - JVRP(12102) = 1 -! JVRP(12103) = dARP(7605)/dV(1304) - JVRP(12103) = 1 -! JVRP(12104) = dARP(7606)/dV(1304) - JVRP(12104) = V(5250) -! JVRP(12105) = dARP(7606)/dV(5250) - JVRP(12105) = V(1304) -! JVRP(12106) = dARP(7607)/dV(2268) - JVRP(12106) = 1 -! JVRP(12107) = dARP(7608)/dV(2268) - JVRP(12107) = V(5250) -! JVRP(12108) = dARP(7608)/dV(5250) - JVRP(12108) = V(2268) -! JVRP(12109) = dARP(7609)/dV(2122) - JVRP(12109) = 1 -! JVRP(12110) = dARP(7610)/dV(525) - JVRP(12110) = V(5250) -! JVRP(12111) = dARP(7610)/dV(5250) - JVRP(12111) = V(525) -! JVRP(12112) = dARP(7611)/dV(4122) - JVRP(12112) = 1 -! JVRP(12113) = dARP(7612)/dV(4122) - JVRP(12113) = V(5250) -! JVRP(12114) = dARP(7612)/dV(5250) - JVRP(12114) = V(4122) -! JVRP(12115) = dARP(7613)/dV(4122) - JVRP(12115) = V(5250) -! JVRP(12116) = dARP(7613)/dV(5250) - JVRP(12116) = V(4122) -! JVRP(12117) = dARP(7614)/dV(1410) - JVRP(12117) = 1 -! JVRP(12118) = dARP(7615)/dV(1410) - JVRP(12118) = V(5250) -! JVRP(12119) = dARP(7615)/dV(5250) - JVRP(12119) = V(1410) -! JVRP(12120) = dARP(7616)/dV(66) - JVRP(12120) = 1 -! JVRP(12121) = dARP(7617)/dV(1349) - JVRP(12121) = 1 -! JVRP(12122) = dARP(7618)/dV(1349) - JVRP(12122) = V(5250) -! JVRP(12123) = dARP(7618)/dV(5250) - JVRP(12123) = V(1349) -! JVRP(12124) = dARP(7619)/dV(2206) - JVRP(12124) = 1 -! JVRP(12125) = dARP(7620)/dV(2206) - JVRP(12125) = V(5250) -! JVRP(12126) = dARP(7620)/dV(5250) - JVRP(12126) = V(2206) -! JVRP(12127) = dARP(7621)/dV(2060) - JVRP(12127) = 1 -! JVRP(12128) = dARP(7622)/dV(295) - JVRP(12128) = V(5250) -! JVRP(12129) = dARP(7622)/dV(5250) - JVRP(12129) = V(295) -! JVRP(12130) = dARP(7623)/dV(4179) - JVRP(12130) = 1 -! JVRP(12131) = dARP(7624)/dV(4179) - JVRP(12131) = V(5250) -! JVRP(12132) = dARP(7624)/dV(5250) - JVRP(12132) = V(4179) -! JVRP(12133) = dARP(7625)/dV(4179) - JVRP(12133) = V(5250) -! JVRP(12134) = dARP(7625)/dV(5250) - JVRP(12134) = V(4179) -! JVRP(12135) = dARP(7626)/dV(1028) - JVRP(12135) = 1 -! JVRP(12136) = dARP(7627)/dV(1028) - JVRP(12136) = V(5250) -! JVRP(12137) = dARP(7627)/dV(5250) - JVRP(12137) = V(1028) -! JVRP(12138) = dARP(7628)/dV(35) - JVRP(12138) = 1 -! JVRP(12139) = dARP(7629)/dV(1387) - JVRP(12139) = 1 -! JVRP(12140) = dARP(7630)/dV(1387) - JVRP(12140) = V(5250) -! JVRP(12141) = dARP(7630)/dV(5250) - JVRP(12141) = V(1387) -! JVRP(12142) = dARP(7631)/dV(2387) - JVRP(12142) = 1 -! JVRP(12143) = dARP(7632)/dV(2387) - JVRP(12143) = V(5250) -! JVRP(12144) = dARP(7632)/dV(5250) - JVRP(12144) = V(2387) -! JVRP(12145) = dARP(7633)/dV(2031) - JVRP(12145) = 1 -! JVRP(12146) = dARP(7634)/dV(524) - JVRP(12146) = V(5250) -! JVRP(12147) = dARP(7634)/dV(5250) - JVRP(12147) = V(524) -! JVRP(12148) = dARP(7635)/dV(4164) - JVRP(12148) = 1 -! JVRP(12149) = dARP(7636)/dV(4164) - JVRP(12149) = V(5250) -! JVRP(12150) = dARP(7636)/dV(5250) - JVRP(12150) = V(4164) -! JVRP(12151) = dARP(7637)/dV(4164) - JVRP(12151) = V(5250) -! JVRP(12152) = dARP(7637)/dV(5250) - JVRP(12152) = V(4164) -! JVRP(12153) = dARP(7638)/dV(1534) - JVRP(12153) = 1 -! JVRP(12154) = dARP(7639)/dV(1534) - JVRP(12154) = V(5250) -! JVRP(12155) = dARP(7639)/dV(5250) - JVRP(12155) = V(1534) -! JVRP(12156) = dARP(7640)/dV(43) - JVRP(12156) = 1 -! JVRP(12157) = dARP(7641)/dV(1536) - JVRP(12157) = V(5250) -! JVRP(12158) = dARP(7641)/dV(5250) - JVRP(12158) = V(1536) -! JVRP(12159) = dARP(7642)/dV(1536) - JVRP(12159) = 1 -! JVRP(12160) = dARP(7643)/dV(1889) - JVRP(12160) = V(5250) -! JVRP(12161) = dARP(7643)/dV(5250) - JVRP(12161) = V(1889) -! JVRP(12162) = dARP(7644)/dV(1889) - JVRP(12162) = 1 -! JVRP(12163) = dARP(7645)/dV(188) - JVRP(12163) = 1 -! JVRP(12164) = dARP(7646)/dV(501) - JVRP(12164) = V(5250) -! JVRP(12165) = dARP(7646)/dV(5250) - JVRP(12165) = V(501) -! JVRP(12166) = dARP(7647)/dV(2783) - JVRP(12166) = V(5250) -! JVRP(12167) = dARP(7647)/dV(5250) - JVRP(12167) = V(2783) -! JVRP(12168) = dARP(7648)/dV(2150) - JVRP(12168) = V(5250) -! JVRP(12169) = dARP(7648)/dV(5250) - JVRP(12169) = V(2150) -! JVRP(12170) = dARP(7649)/dV(2150) - JVRP(12170) = 1 -! JVRP(12171) = dARP(7650)/dV(2500) - JVRP(12171) = V(5250) -! JVRP(12172) = dARP(7650)/dV(5250) - JVRP(12172) = V(2500) -! JVRP(12173) = dARP(7651)/dV(2500) - JVRP(12173) = 1 -! JVRP(12174) = dARP(7652)/dV(1110) - JVRP(12174) = V(5250) -! JVRP(12175) = dARP(7652)/dV(5250) - JVRP(12175) = V(1110) -! JVRP(12176) = dARP(7653)/dV(1997) - JVRP(12176) = V(5250) -! JVRP(12177) = dARP(7653)/dV(5250) - JVRP(12177) = V(1997) -! JVRP(12178) = dARP(7654)/dV(1997) - JVRP(12178) = 1 -! JVRP(12179) = dARP(7655)/dV(2579) - JVRP(12179) = V(5250) -! JVRP(12180) = dARP(7655)/dV(5250) - JVRP(12180) = V(2579) -! JVRP(12181) = dARP(7656)/dV(2579) - JVRP(12181) = 1 -! JVRP(12182) = dARP(7657)/dV(2080) - JVRP(12182) = V(5250) -! JVRP(12183) = dARP(7657)/dV(5250) - JVRP(12183) = V(2080) -! JVRP(12184) = dARP(7658)/dV(2080) - JVRP(12184) = 1 -! JVRP(12185) = dARP(7659)/dV(637) - JVRP(12185) = 1 -! JVRP(12186) = dARP(7660)/dV(4352) - JVRP(12186) = V(5250) -! JVRP(12187) = dARP(7660)/dV(5250) - JVRP(12187) = V(4352) -! JVRP(12188) = dARP(7661)/dV(4352) - JVRP(12188) = 1 -! JVRP(12189) = dARP(7662)/dV(1916) - JVRP(12189) = V(5250) -! JVRP(12190) = dARP(7662)/dV(5250) - JVRP(12190) = V(1916) -! JVRP(12191) = dARP(7663)/dV(1916) - JVRP(12191) = 1 -! JVRP(12192) = dARP(7664)/dV(2384) - JVRP(12192) = V(5250) -! JVRP(12193) = dARP(7664)/dV(5250) - JVRP(12193) = V(2384) -! JVRP(12194) = dARP(7665)/dV(2384) - JVRP(12194) = 1 -! JVRP(12195) = dARP(7666)/dV(2698) - JVRP(12195) = V(5250) -! JVRP(12196) = dARP(7666)/dV(5250) - JVRP(12196) = V(2698) -! JVRP(12197) = dARP(7667)/dV(2698) - JVRP(12197) = 1 -! JVRP(12198) = dARP(7668)/dV(1078) - JVRP(12198) = V(5250) -! JVRP(12199) = dARP(7668)/dV(5250) - JVRP(12199) = V(1078) -! JVRP(12200) = dARP(7669)/dV(2460) - JVRP(12200) = V(5250) -! JVRP(12201) = dARP(7669)/dV(5250) - JVRP(12201) = V(2460) -! JVRP(12202) = dARP(7670)/dV(2460) - JVRP(12202) = 1 -! JVRP(12203) = dARP(7671)/dV(2522) - JVRP(12203) = V(5250) -! JVRP(12204) = dARP(7671)/dV(5250) - JVRP(12204) = V(2522) -! JVRP(12205) = dARP(7672)/dV(2522) - JVRP(12205) = 1 -! JVRP(12206) = dARP(7673)/dV(1802) - JVRP(12206) = V(5250) -! JVRP(12207) = dARP(7673)/dV(5250) - JVRP(12207) = V(1802) -! JVRP(12208) = dARP(7674)/dV(1802) - JVRP(12208) = 1 -! JVRP(12209) = dARP(7675)/dV(737) - JVRP(12209) = 1 -! JVRP(12210) = dARP(7676)/dV(2478) - JVRP(12210) = V(5250) -! JVRP(12211) = dARP(7676)/dV(5250) - JVRP(12211) = V(2478) -! JVRP(12212) = dARP(7677)/dV(2478) - JVRP(12212) = 1 -! JVRP(12213) = dARP(7678)/dV(2478) - JVRP(12213) = 1 -! JVRP(12214) = dARP(7679)/dV(1562) - JVRP(12214) = V(5250) -! JVRP(12215) = dARP(7679)/dV(5250) - JVRP(12215) = V(1562) -! JVRP(12216) = dARP(7680)/dV(1562) - JVRP(12216) = 1 -! JVRP(12217) = dARP(7681)/dV(1363) - JVRP(12217) = V(5250) -! JVRP(12218) = dARP(7681)/dV(5250) - JVRP(12218) = V(1363) -! JVRP(12219) = dARP(7682)/dV(2176) - JVRP(12219) = V(5250) -! JVRP(12220) = dARP(7682)/dV(5250) - JVRP(12220) = V(2176) -! JVRP(12221) = dARP(7683)/dV(2176) - JVRP(12221) = 1 -! JVRP(12222) = dARP(7684)/dV(2583) - JVRP(12222) = V(5250) -! JVRP(12223) = dARP(7684)/dV(5250) - JVRP(12223) = V(2583) -! JVRP(12224) = dARP(7685)/dV(2583) - JVRP(12224) = 1 -! JVRP(12225) = dARP(7686)/dV(3231) - JVRP(12225) = V(5250) -! JVRP(12226) = dARP(7686)/dV(5250) - JVRP(12226) = V(3231) -! JVRP(12227) = dARP(7687)/dV(3231) - JVRP(12227) = 1 -! JVRP(12228) = dARP(7688)/dV(3231) - JVRP(12228) = 1 -! JVRP(12229) = dARP(7689)/dV(706) - JVRP(12229) = 1 -! JVRP(12230) = dARP(7690)/dV(2396) - JVRP(12230) = V(5250) -! JVRP(12231) = dARP(7690)/dV(5250) - JVRP(12231) = V(2396) -! JVRP(12232) = dARP(7691)/dV(2396) - JVRP(12232) = 1 -! JVRP(12233) = dARP(7692)/dV(2738) - JVRP(12233) = V(5250) -! JVRP(12234) = dARP(7692)/dV(5250) - JVRP(12234) = V(2738) -! JVRP(12235) = dARP(7693)/dV(2738) - JVRP(12235) = 1 -! JVRP(12236) = dARP(7694)/dV(1515) - JVRP(12236) = V(5250) -! JVRP(12237) = dARP(7694)/dV(5250) - JVRP(12237) = V(1515) -! JVRP(12238) = dARP(7695)/dV(1515) - JVRP(12238) = 1 -! JVRP(12239) = dARP(7696)/dV(2858) - JVRP(12239) = 1 -! JVRP(12240) = dARP(7697)/dV(829) - JVRP(12240) = V(5250) -! JVRP(12241) = dARP(7697)/dV(5250) - JVRP(12241) = V(829) -! JVRP(12242) = dARP(7698)/dV(829) - JVRP(12242) = 1 -! JVRP(12243) = dARP(7699)/dV(3897) - JVRP(12243) = 1 -! JVRP(12244) = dARP(7700)/dV(3897) - JVRP(12244) = 1 -! JVRP(12245) = dARP(7701)/dV(924) - JVRP(12245) = V(5250) -! JVRP(12246) = dARP(7701)/dV(5250) - JVRP(12246) = V(924) -! JVRP(12247) = dARP(7702)/dV(2314) - JVRP(12247) = V(5250) -! JVRP(12248) = dARP(7702)/dV(5250) - JVRP(12248) = V(2314) -! JVRP(12249) = dARP(7703)/dV(2314) - JVRP(12249) = 1 -! JVRP(12250) = dARP(7704)/dV(2702) - JVRP(12250) = V(5250) -! JVRP(12251) = dARP(7704)/dV(5250) - JVRP(12251) = V(2702) -! JVRP(12252) = dARP(7705)/dV(2702) - JVRP(12252) = 1 -! JVRP(12253) = dARP(7706)/dV(1080) - JVRP(12253) = V(5250) -! JVRP(12254) = dARP(7706)/dV(5250) - JVRP(12254) = V(1080) -! JVRP(12255) = dARP(7707)/dV(1080) - JVRP(12255) = 1 -! JVRP(12256) = dARP(7708)/dV(1261) - JVRP(12256) = V(5250) -! JVRP(12257) = dARP(7708)/dV(5250) - JVRP(12257) = V(1261) -! JVRP(12258) = dARP(7709)/dV(2036) - JVRP(12258) = V(5250) -! JVRP(12259) = dARP(7709)/dV(5250) - JVRP(12259) = V(2036) -! JVRP(12260) = dARP(7710)/dV(2036) - JVRP(12260) = 1 -! JVRP(12261) = dARP(7711)/dV(2872) - JVRP(12261) = V(5250) -! JVRP(12262) = dARP(7711)/dV(5250) - JVRP(12262) = V(2872) -! JVRP(12263) = dARP(7712)/dV(2872) - JVRP(12263) = 1 -! JVRP(12264) = dARP(7713)/dV(2301) - JVRP(12264) = V(5250) -! JVRP(12265) = dARP(7713)/dV(5250) - JVRP(12265) = V(2301) -! JVRP(12266) = dARP(7714)/dV(2301) - JVRP(12266) = 1 -! JVRP(12267) = dARP(7715)/dV(3051) - JVRP(12267) = V(5250) -! JVRP(12268) = dARP(7715)/dV(5250) - JVRP(12268) = V(3051) -! JVRP(12269) = dARP(7716)/dV(3051) - JVRP(12269) = 1 -! JVRP(12270) = dARP(7717)/dV(3278) - JVRP(12270) = V(5250) -! JVRP(12271) = dARP(7717)/dV(5250) - JVRP(12271) = V(3278) -! JVRP(12272) = dARP(7718)/dV(3278) - JVRP(12272) = V(5250) -! JVRP(12273) = dARP(7718)/dV(5250) - JVRP(12273) = V(3278) -! JVRP(12274) = dARP(7719)/dV(3278) - JVRP(12274) = 1 -! JVRP(12275) = dARP(7720)/dV(3909) - JVRP(12275) = 1 -! JVRP(12276) = dARP(7721)/dV(3909) - JVRP(12276) = 1 -! JVRP(12277) = dARP(7722)/dV(834) - JVRP(12277) = V(5250) -! JVRP(12278) = dARP(7722)/dV(5250) - JVRP(12278) = V(834) -! JVRP(12279) = dARP(7723)/dV(2290) - JVRP(12279) = V(5250) -! JVRP(12280) = dARP(7723)/dV(5250) - JVRP(12280) = V(2290) -! JVRP(12281) = dARP(7724)/dV(2290) - JVRP(12281) = 1 -! JVRP(12282) = dARP(7725)/dV(2988) - JVRP(12282) = V(5250) -! JVRP(12283) = dARP(7725)/dV(5250) - JVRP(12283) = V(2988) -! JVRP(12284) = dARP(7726)/dV(2988) - JVRP(12284) = 1 -! JVRP(12285) = dARP(7727)/dV(1999) - JVRP(12285) = V(5250) -! JVRP(12286) = dARP(7727)/dV(5250) - JVRP(12286) = V(1999) -! JVRP(12287) = dARP(7728)/dV(1999) - JVRP(12287) = 1 -! JVRP(12288) = dARP(7729)/dV(669) - JVRP(12288) = 1 -! JVRP(12289) = dARP(7730)/dV(2028) - JVRP(12289) = V(5250) -! JVRP(12290) = dARP(7730)/dV(5250) - JVRP(12290) = V(2028) -! JVRP(12291) = dARP(7731)/dV(2028) - JVRP(12291) = 1 -! JVRP(12292) = dARP(7732)/dV(2028) - JVRP(12292) = 1 -! JVRP(12293) = dARP(7733)/dV(1621) - JVRP(12293) = V(5250) -! JVRP(12294) = dARP(7733)/dV(5250) - JVRP(12294) = V(1621) -! JVRP(12295) = dARP(7734)/dV(1621) - JVRP(12295) = 1 -! JVRP(12296) = dARP(7735)/dV(2466) - JVRP(12296) = V(5250) -! JVRP(12297) = dARP(7735)/dV(5250) - JVRP(12297) = V(2466) -! JVRP(12298) = dARP(7736)/dV(2466) - JVRP(12298) = 1 -! JVRP(12299) = dARP(7737)/dV(551) - JVRP(12299) = 1 -! JVRP(12300) = dARP(7738)/dV(1670) - JVRP(12300) = V(5250) -! JVRP(12301) = dARP(7738)/dV(5250) - JVRP(12301) = V(1670) -! JVRP(12302) = dARP(7739)/dV(1670) - JVRP(12302) = 1 -! JVRP(12303) = dARP(7740)/dV(3759) - JVRP(12303) = 1 -! JVRP(12304) = dARP(7741)/dV(3759) - JVRP(12304) = V(5250) -! JVRP(12305) = dARP(7741)/dV(5250) - JVRP(12305) = V(3759) -! JVRP(12306) = dARP(7742)/dV(2371) - JVRP(12306) = 1 -! JVRP(12307) = dARP(7743)/dV(2371) - JVRP(12307) = V(5250) -! JVRP(12308) = dARP(7743)/dV(5250) - JVRP(12308) = V(2371) -! JVRP(12309) = dARP(7744)/dV(2896) - JVRP(12309) = 1 -! JVRP(12310) = dARP(7745)/dV(2896) - JVRP(12310) = V(5250) -! JVRP(12311) = dARP(7745)/dV(5250) - JVRP(12311) = V(2896) -! JVRP(12312) = dARP(7746)/dV(2166) - JVRP(12312) = V(5250) -! JVRP(12313) = dARP(7746)/dV(5250) - JVRP(12313) = V(2166) -! JVRP(12314) = dARP(7747)/dV(2166) - JVRP(12314) = 1 -! JVRP(12315) = dARP(7748)/dV(815) - JVRP(12315) = 1 -! JVRP(12316) = dARP(7749)/dV(2547) - JVRP(12316) = V(5250) -! JVRP(12317) = dARP(7749)/dV(5250) - JVRP(12317) = V(2547) -! JVRP(12318) = dARP(7750)/dV(2547) - JVRP(12318) = 1 -! JVRP(12319) = dARP(7751)/dV(2129) - JVRP(12319) = V(5250) -! JVRP(12320) = dARP(7751)/dV(5250) - JVRP(12320) = V(2129) -! JVRP(12321) = dARP(7752)/dV(2129) - JVRP(12321) = 1 -! JVRP(12322) = dARP(7753)/dV(2114) - JVRP(12322) = V(5250) -! JVRP(12323) = dARP(7753)/dV(5250) - JVRP(12323) = V(2114) -! JVRP(12324) = dARP(7754)/dV(2114) - JVRP(12324) = V(5250) -! JVRP(12325) = dARP(7754)/dV(5250) - JVRP(12325) = V(2114) -! JVRP(12326) = dARP(7755)/dV(2114) - JVRP(12326) = 1 -! JVRP(12327) = dARP(7756)/dV(3904) - JVRP(12327) = 1 -! JVRP(12328) = dARP(7757)/dV(3904) - JVRP(12328) = 1 -! JVRP(12329) = dARP(7758)/dV(3354) - JVRP(12329) = V(5250) -! JVRP(12330) = dARP(7758)/dV(5250) - JVRP(12330) = V(3354) -! JVRP(12331) = dARP(7759)/dV(3354) - JVRP(12331) = 1 -! JVRP(12332) = dARP(7760)/dV(2344) - JVRP(12332) = V(5250) -! JVRP(12333) = dARP(7760)/dV(5250) - JVRP(12333) = V(2344) -! JVRP(12334) = dARP(7761)/dV(2344) - JVRP(12334) = 1 -! JVRP(12335) = dARP(7762)/dV(3728) - JVRP(12335) = V(5255) -! JVRP(12336) = dARP(7762)/dV(5255) - JVRP(12336) = V(3728) -! JVRP(12337) = dARP(7763)/dV(3728) - JVRP(12337) = V(5252) -! JVRP(12338) = dARP(7763)/dV(5252) - JVRP(12338) = V(3728) -! JVRP(12339) = dARP(7764)/dV(3728) - JVRP(12339) = V(5256) -! JVRP(12340) = dARP(7764)/dV(5256) - JVRP(12340) = V(3728) -! JVRP(12341) = dARP(7765)/dV(3728) - JVRP(12341) = 1 -! JVRP(12342) = dARP(7766)/dV(759) - JVRP(12342) = 1 -! JVRP(12343) = dARP(7767)/dV(759) - JVRP(12343) = 1 -! JVRP(12344) = dARP(7768)/dV(3669) - JVRP(12344) = V(5255) -! JVRP(12345) = dARP(7768)/dV(5255) - JVRP(12345) = V(3669) -! JVRP(12346) = dARP(7769)/dV(3669) - JVRP(12346) = V(5252) -! JVRP(12347) = dARP(7769)/dV(5252) - JVRP(12347) = V(3669) -! JVRP(12348) = dARP(7770)/dV(3669) - JVRP(12348) = V(5256) -! JVRP(12349) = dARP(7770)/dV(5256) - JVRP(12349) = V(3669) -! JVRP(12350) = dARP(7771)/dV(3669) - JVRP(12350) = 1 -! JVRP(12351) = dARP(7772)/dV(3669) - JVRP(12351) = 1 -! JVRP(12352) = dARP(7773)/dV(3669) - JVRP(12352) = 1 -! JVRP(12353) = dARP(7774)/dV(4398) - JVRP(12353) = V(5250) -! JVRP(12354) = dARP(7774)/dV(5250) - JVRP(12354) = V(4398) -! JVRP(12355) = dARP(7775)/dV(4398) - JVRP(12355) = 1 -! JVRP(12356) = dARP(7776)/dV(3325) - JVRP(12356) = V(5250) -! JVRP(12357) = dARP(7776)/dV(5250) - JVRP(12357) = V(3325) -! JVRP(12358) = dARP(7777)/dV(3325) - JVRP(12358) = 1 -! JVRP(12359) = dARP(7778)/dV(3325) - JVRP(12359) = 1 -! JVRP(12360) = dARP(7779)/dV(3712) - JVRP(12360) = 1 -! JVRP(12361) = dARP(7780)/dV(3712) - JVRP(12361) = 1 -! JVRP(12362) = dARP(7781)/dV(2924) - JVRP(12362) = V(5250) -! JVRP(12363) = dARP(7781)/dV(5250) - JVRP(12363) = V(2924) -! JVRP(12364) = dARP(7782)/dV(2924) - JVRP(12364) = 1 -! JVRP(12365) = dARP(7783)/dV(1356) - JVRP(12365) = V(5250) -! JVRP(12366) = dARP(7783)/dV(5250) - JVRP(12366) = V(1356) -! JVRP(12367) = dARP(7784)/dV(1356) - JVRP(12367) = 1 -! JVRP(12368) = dARP(7785)/dV(1067) - JVRP(12368) = V(5250) -! JVRP(12369) = dARP(7785)/dV(5250) - JVRP(12369) = V(1067) -! JVRP(12370) = dARP(7786)/dV(1067) - JVRP(12370) = 1 -! JVRP(12371) = dARP(7787)/dV(2712) - JVRP(12371) = V(5250) -! JVRP(12372) = dARP(7787)/dV(5250) - JVRP(12372) = V(2712) -! JVRP(12373) = dARP(7788)/dV(2712) - JVRP(12373) = 1 -! JVRP(12374) = dARP(7789)/dV(2609) - JVRP(12374) = V(5250) -! JVRP(12375) = dARP(7789)/dV(5250) - JVRP(12375) = V(2609) -! JVRP(12376) = dARP(7790)/dV(2609) - JVRP(12376) = 1 -! JVRP(12377) = dARP(7791)/dV(2609) - JVRP(12377) = 1 -! JVRP(12378) = dARP(7792)/dV(2376) - JVRP(12378) = 1 -! JVRP(12379) = dARP(7793)/dV(4602) - JVRP(12379) = V(5250) -! JVRP(12380) = dARP(7793)/dV(5250) - JVRP(12380) = V(4602) -! JVRP(12381) = dARP(7794)/dV(4602) - JVRP(12381) = 1 -! JVRP(12382) = dARP(7795)/dV(3446) - JVRP(12382) = V(5250) -! JVRP(12383) = dARP(7795)/dV(5250) - JVRP(12383) = V(3446) -! JVRP(12384) = dARP(7796)/dV(3446) - JVRP(12384) = V(5250) -! JVRP(12385) = dARP(7796)/dV(5250) - JVRP(12385) = V(3446) -! JVRP(12386) = dARP(7797)/dV(3446) - JVRP(12386) = 1 -! JVRP(12387) = dARP(7798)/dV(3446) - JVRP(12387) = 1 -! JVRP(12388) = dARP(7799)/dV(808) - JVRP(12388) = 1 -! JVRP(12389) = dARP(7800)/dV(3644) - JVRP(12389) = V(5250) -! JVRP(12390) = dARP(7800)/dV(5250) - JVRP(12390) = V(3644) -! JVRP(12391) = dARP(7801)/dV(3644) - JVRP(12391) = 1 -! JVRP(12392) = dARP(7802)/dV(1570) - JVRP(12392) = V(5250) -! JVRP(12393) = dARP(7802)/dV(5250) - JVRP(12393) = V(1570) -! JVRP(12394) = dARP(7803)/dV(1570) - JVRP(12394) = 1 -! JVRP(12395) = dARP(7804)/dV(4859) - JVRP(12395) = V(5253) -! JVRP(12396) = dARP(7804)/dV(5253) - JVRP(12396) = V(4859) -! JVRP(12397) = dARP(7805)/dV(4859) - JVRP(12397) = V(5258) -! JVRP(12398) = dARP(7805)/dV(5258) - JVRP(12398) = V(4859) -! JVRP(12399) = dARP(7806)/dV(3092) - JVRP(12399) = V(5256) -! JVRP(12400) = dARP(7806)/dV(5256) - JVRP(12400) = V(3092) -! JVRP(12401) = dARP(7807)/dV(3092) - JVRP(12401) = V(5250) -! JVRP(12402) = dARP(7807)/dV(5250) - JVRP(12402) = V(3092) -! JVRP(12403) = dARP(7808)/dV(4079) - JVRP(12403) = V(5255) -! JVRP(12404) = dARP(7808)/dV(5255) - JVRP(12404) = V(4079) -! JVRP(12405) = dARP(7809)/dV(4079) - JVRP(12405) = V(5252) -! JVRP(12406) = dARP(7809)/dV(5252) - JVRP(12406) = V(4079) -! JVRP(12407) = dARP(7810)/dV(4079) - JVRP(12407) = V(5256) -! JVRP(12408) = dARP(7810)/dV(5256) - JVRP(12408) = V(4079) -! JVRP(12409) = dARP(7811)/dV(4079) - JVRP(12409) = 1 -! JVRP(12410) = dARP(7812)/dV(1775) - JVRP(12410) = V(5256) -! JVRP(12411) = dARP(7812)/dV(5256) - JVRP(12411) = V(1775) -! JVRP(12412) = dARP(7813)/dV(1775) - JVRP(12412) = V(5250) -! JVRP(12413) = dARP(7813)/dV(5250) - JVRP(12413) = V(1775) -! JVRP(12414) = dARP(7814)/dV(4491) - JVRP(12414) = V(5250) -! JVRP(12415) = dARP(7814)/dV(5250) - JVRP(12415) = V(4491) -! JVRP(12416) = dARP(7815)/dV(4491) - JVRP(12416) = 1 -! JVRP(12417) = dARP(7816)/dV(2054) - JVRP(12417) = V(5256) -! JVRP(12418) = dARP(7816)/dV(5256) - JVRP(12418) = V(2054) -! JVRP(12419) = dARP(7817)/dV(2054) - JVRP(12419) = V(5250) -! JVRP(12420) = dARP(7817)/dV(5250) - JVRP(12420) = V(2054) -! JVRP(12421) = dARP(7818)/dV(4798) - JVRP(12421) = V(5253) -! JVRP(12422) = dARP(7818)/dV(5253) - JVRP(12422) = V(4798) -! JVRP(12423) = dARP(7819)/dV(4798) - JVRP(12423) = V(5258) -! JVRP(12424) = dARP(7819)/dV(5258) - JVRP(12424) = V(4798) -! JVRP(12425) = dARP(7820)/dV(2283) - JVRP(12425) = V(5250) -! JVRP(12426) = dARP(7820)/dV(5250) - JVRP(12426) = V(2283) -! JVRP(12427) = dARP(7821)/dV(2283) - JVRP(12427) = 1 -! JVRP(12428) = dARP(7822)/dV(3167) - JVRP(12428) = V(5256) -! JVRP(12429) = dARP(7822)/dV(5256) - JVRP(12429) = V(3167) -! JVRP(12430) = dARP(7823)/dV(3167) - JVRP(12430) = V(5250) -! JVRP(12431) = dARP(7823)/dV(5250) - JVRP(12431) = V(3167) -! JVRP(12432) = dARP(7824)/dV(4049) - JVRP(12432) = V(5255) -! JVRP(12433) = dARP(7824)/dV(5255) - JVRP(12433) = V(4049) -! JVRP(12434) = dARP(7825)/dV(4049) - JVRP(12434) = V(5252) -! JVRP(12435) = dARP(7825)/dV(5252) - JVRP(12435) = V(4049) -! JVRP(12436) = dARP(7826)/dV(4049) - JVRP(12436) = V(5256) -! JVRP(12437) = dARP(7826)/dV(5256) - JVRP(12437) = V(4049) -! JVRP(12438) = dARP(7827)/dV(4049) - JVRP(12438) = 1 -! JVRP(12439) = dARP(7828)/dV(3590) - JVRP(12439) = V(5250) -! JVRP(12440) = dARP(7828)/dV(5250) - JVRP(12440) = V(3590) -! JVRP(12441) = dARP(7829)/dV(3590) - JVRP(12441) = 1 -! JVRP(12442) = dARP(7830)/dV(4993) - JVRP(12442) = V(5255) -! JVRP(12443) = dARP(7830)/dV(5255) - JVRP(12443) = V(4993) -! JVRP(12444) = dARP(7831)/dV(4993) - JVRP(12444) = V(5255) -! JVRP(12445) = dARP(7831)/dV(5255) - JVRP(12445) = V(4993) -! JVRP(12446) = dARP(7832)/dV(4993) - JVRP(12446) = V(5255) -! JVRP(12447) = dARP(7832)/dV(5255) - JVRP(12447) = V(4993) -! JVRP(12448) = dARP(7833)/dV(4993) - JVRP(12448) = V(5252) -! JVRP(12449) = dARP(7833)/dV(5252) - JVRP(12449) = V(4993) -! JVRP(12450) = dARP(7834)/dV(4993) - JVRP(12450) = V(5253) -! JVRP(12451) = dARP(7834)/dV(5253) - JVRP(12451) = V(4993) -! JVRP(12452) = dARP(7835)/dV(4993) - JVRP(12452) = V(5256) -! JVRP(12453) = dARP(7835)/dV(5256) - JVRP(12453) = V(4993) -! JVRP(12454) = dARP(7836)/dV(4993) - JVRP(12454) = 1 -! JVRP(12455) = dARP(7837)/dV(4993) - JVRP(12455) = 1 -! JVRP(12456) = dARP(7838)/dV(3647) - JVRP(12456) = 1 -! JVRP(12457) = dARP(7839)/dV(3647) - JVRP(12457) = 1 -! JVRP(12458) = dARP(7840)/dV(4861) - JVRP(12458) = V(5255) -! JVRP(12459) = dARP(7840)/dV(5255) - JVRP(12459) = V(4861) -! JVRP(12460) = dARP(7841)/dV(4861) - JVRP(12460) = V(5252) -! JVRP(12461) = dARP(7841)/dV(5252) - JVRP(12461) = V(4861) -! JVRP(12462) = dARP(7842)/dV(4861) - JVRP(12462) = V(5256) -! JVRP(12463) = dARP(7842)/dV(5256) - JVRP(12463) = V(4861) -! JVRP(12464) = dARP(7843)/dV(4861) - JVRP(12464) = 1 -! JVRP(12465) = dARP(7844)/dV(4861) - JVRP(12465) = 1 -! JVRP(12466) = dARP(7845)/dV(4835) - JVRP(12466) = V(5255) -! JVRP(12467) = dARP(7845)/dV(5255) - JVRP(12467) = V(4835) -! JVRP(12468) = dARP(7846)/dV(4835) - JVRP(12468) = V(5252) -! JVRP(12469) = dARP(7846)/dV(5252) - JVRP(12469) = V(4835) -! JVRP(12470) = dARP(7847)/dV(4835) - JVRP(12470) = V(5256) -! JVRP(12471) = dARP(7847)/dV(5256) - JVRP(12471) = V(4835) -! JVRP(12472) = dARP(7848)/dV(4835) - JVRP(12472) = 1 -! JVRP(12473) = dARP(7849)/dV(4835) - JVRP(12473) = 1 -! JVRP(12474) = dARP(7850)/dV(4835) - JVRP(12474) = 1 -! JVRP(12475) = dARP(7851)/dV(3692) - JVRP(12475) = V(5255) -! JVRP(12476) = dARP(7851)/dV(5255) - JVRP(12476) = V(3692) -! JVRP(12477) = dARP(7852)/dV(3692) - JVRP(12477) = V(5252) -! JVRP(12478) = dARP(7852)/dV(5252) - JVRP(12478) = V(3692) -! JVRP(12479) = dARP(7853)/dV(3692) - JVRP(12479) = V(5256) -! JVRP(12480) = dARP(7853)/dV(5256) - JVRP(12480) = V(3692) -! JVRP(12481) = dARP(7854)/dV(3692) - JVRP(12481) = 1 -! JVRP(12482) = dARP(7855)/dV(771) - JVRP(12482) = 1 -! JVRP(12483) = dARP(7856)/dV(771) - JVRP(12483) = 1 -! JVRP(12484) = dARP(7857)/dV(3752) - JVRP(12484) = V(5255) -! JVRP(12485) = dARP(7857)/dV(5255) - JVRP(12485) = V(3752) -! JVRP(12486) = dARP(7858)/dV(3752) - JVRP(12486) = V(5252) -! JVRP(12487) = dARP(7858)/dV(5252) - JVRP(12487) = V(3752) -! JVRP(12488) = dARP(7859)/dV(3752) - JVRP(12488) = V(5256) -! JVRP(12489) = dARP(7859)/dV(5256) - JVRP(12489) = V(3752) -! JVRP(12490) = dARP(7860)/dV(3752) - JVRP(12490) = 1 -! JVRP(12491) = dARP(7861)/dV(3752) - JVRP(12491) = 1 -! JVRP(12492) = dARP(7862)/dV(4071) - JVRP(12492) = 1 -! JVRP(12493) = dARP(7863)/dV(4071) - JVRP(12493) = 1 -! JVRP(12494) = dARP(7864)/dV(1109) - JVRP(12494) = V(5250) -! JVRP(12495) = dARP(7864)/dV(5250) - JVRP(12495) = V(1109) -! JVRP(12496) = dARP(7865)/dV(1109) - JVRP(12496) = 1 -! JVRP(12497) = dARP(7866)/dV(2876) - JVRP(12497) = V(5250) -! JVRP(12498) = dARP(7866)/dV(5250) - JVRP(12498) = V(2876) -! JVRP(12499) = dARP(7867)/dV(2876) - JVRP(12499) = 1 -! JVRP(12500) = dARP(7868)/dV(4693) - JVRP(12500) = 1 -! JVRP(12501) = dARP(7869)/dV(4693) - JVRP(12501) = V(5250) -! JVRP(12502) = dARP(7869)/dV(5250) - JVRP(12502) = V(4693) -! JVRP(12503) = dARP(7870)/dV(461) - JVRP(12503) = V(5250) -! JVRP(12504) = dARP(7870)/dV(5250) - JVRP(12504) = V(461) -! JVRP(12505) = dARP(7871)/dV(1456) - JVRP(12505) = V(5250) -! JVRP(12506) = dARP(7871)/dV(5250) - JVRP(12506) = V(1456) -! JVRP(12507) = dARP(7872)/dV(1456) - JVRP(12507) = 1 -! JVRP(12508) = dARP(7873)/dV(3220) - JVRP(12508) = V(5250) -! JVRP(12509) = dARP(7873)/dV(5250) - JVRP(12509) = V(3220) -! JVRP(12510) = dARP(7874)/dV(3220) - JVRP(12510) = 1 -! JVRP(12511) = dARP(7875)/dV(4968) - JVRP(12511) = V(5255) -! JVRP(12512) = dARP(7875)/dV(5255) - JVRP(12512) = V(4968) -! JVRP(12513) = dARP(7876)/dV(4968) - JVRP(12513) = V(5255) -! JVRP(12514) = dARP(7876)/dV(5255) - JVRP(12514) = V(4968) -! JVRP(12515) = dARP(7877)/dV(4968) - JVRP(12515) = V(5255) -! JVRP(12516) = dARP(7877)/dV(5255) - JVRP(12516) = V(4968) -! JVRP(12517) = dARP(7878)/dV(4968) - JVRP(12517) = V(5252) -! JVRP(12518) = dARP(7878)/dV(5252) - JVRP(12518) = V(4968) -! JVRP(12519) = dARP(7879)/dV(4968) - JVRP(12519) = V(5253) -! JVRP(12520) = dARP(7879)/dV(5253) - JVRP(12520) = V(4968) -! JVRP(12521) = dARP(7880)/dV(4968) - JVRP(12521) = V(5256) -! JVRP(12522) = dARP(7880)/dV(5256) - JVRP(12522) = V(4968) -! JVRP(12523) = dARP(7881)/dV(4968) - JVRP(12523) = 1 -! JVRP(12524) = dARP(7882)/dV(4968) - JVRP(12524) = 1 -! JVRP(12525) = dARP(7883)/dV(2393) - JVRP(12525) = 1 -! JVRP(12526) = dARP(7884)/dV(2393) - JVRP(12526) = 1 -! JVRP(12527) = dARP(7885)/dV(2393) - JVRP(12527) = 1 -! JVRP(12528) = dARP(7886)/dV(2393) - JVRP(12528) = 1 -! JVRP(12529) = dARP(7887)/dV(4347) - JVRP(12529) = V(5255) -! JVRP(12530) = dARP(7887)/dV(5255) - JVRP(12530) = V(4347) -! JVRP(12531) = dARP(7888)/dV(4347) - JVRP(12531) = V(5252) -! JVRP(12532) = dARP(7888)/dV(5252) - JVRP(12532) = V(4347) -! JVRP(12533) = dARP(7889)/dV(4347) - JVRP(12533) = V(5256) -! JVRP(12534) = dARP(7889)/dV(5256) - JVRP(12534) = V(4347) -! JVRP(12535) = dARP(7890)/dV(4347) - JVRP(12535) = 1 -! JVRP(12536) = dARP(7891)/dV(4347) - JVRP(12536) = 1 -! JVRP(12537) = dARP(7892)/dV(4440) - JVRP(12537) = V(5255) -! JVRP(12538) = dARP(7892)/dV(5255) - JVRP(12538) = V(4440) -! JVRP(12539) = dARP(7893)/dV(4440) - JVRP(12539) = V(5252) -! JVRP(12540) = dARP(7893)/dV(5252) - JVRP(12540) = V(4440) -! JVRP(12541) = dARP(7894)/dV(4440) - JVRP(12541) = V(5256) -! JVRP(12542) = dARP(7894)/dV(5256) - JVRP(12542) = V(4440) -! JVRP(12543) = dARP(7895)/dV(4440) - JVRP(12543) = 1 -! JVRP(12544) = dARP(7896)/dV(4669) - JVRP(12544) = V(5255) -! JVRP(12545) = dARP(7896)/dV(5255) - JVRP(12545) = V(4669) -! JVRP(12546) = dARP(7897)/dV(4669) - JVRP(12546) = V(5252) -! JVRP(12547) = dARP(7897)/dV(5252) - JVRP(12547) = V(4669) -! JVRP(12548) = dARP(7898)/dV(4669) - JVRP(12548) = V(5256) -! JVRP(12549) = dARP(7898)/dV(5256) - JVRP(12549) = V(4669) -! JVRP(12550) = dARP(7899)/dV(4669) - JVRP(12550) = 1 -! JVRP(12551) = dARP(7900)/dV(4669) - JVRP(12551) = 1 -! JVRP(12552) = dARP(7901)/dV(4669) - JVRP(12552) = 1 -! JVRP(12553) = dARP(7902)/dV(4422) - JVRP(12553) = V(5255) -! JVRP(12554) = dARP(7902)/dV(5255) - JVRP(12554) = V(4422) -! JVRP(12555) = dARP(7903)/dV(4422) - JVRP(12555) = V(5252) -! JVRP(12556) = dARP(7903)/dV(5252) - JVRP(12556) = V(4422) -! JVRP(12557) = dARP(7904)/dV(4422) - JVRP(12557) = V(5256) -! JVRP(12558) = dARP(7904)/dV(5256) - JVRP(12558) = V(4422) -! JVRP(12559) = dARP(7905)/dV(4422) - JVRP(12559) = 1 -! JVRP(12560) = dARP(7906)/dV(4422) - JVRP(12560) = 1 -! JVRP(12561) = dARP(7907)/dV(1765) - JVRP(12561) = V(5250) -! JVRP(12562) = dARP(7907)/dV(5250) - JVRP(12562) = V(1765) -! JVRP(12563) = dARP(7908)/dV(1765) - JVRP(12563) = 1 -! JVRP(12564) = dARP(7909)/dV(2051) - JVRP(12564) = V(5250) -! JVRP(12565) = dARP(7909)/dV(5250) - JVRP(12565) = V(2051) -! JVRP(12566) = dARP(7910)/dV(2051) - JVRP(12566) = 1 -! JVRP(12567) = dARP(7911)/dV(1086) - JVRP(12567) = V(5250) -! JVRP(12568) = dARP(7911)/dV(5250) - JVRP(12568) = V(1086) -! JVRP(12569) = dARP(7912)/dV(1086) - JVRP(12569) = 1 -! JVRP(12570) = dARP(7913)/dV(3931) - JVRP(12570) = V(5250) -! JVRP(12571) = dARP(7913)/dV(5250) - JVRP(12571) = V(3931) -! JVRP(12572) = dARP(7914)/dV(3931) - JVRP(12572) = 1 -! JVRP(12573) = dARP(7915)/dV(3931) - JVRP(12573) = 1 -! JVRP(12574) = dARP(7916)/dV(3931) - JVRP(12574) = 1 -! JVRP(12575) = dARP(7917)/dV(3930) - JVRP(12575) = 1 -! JVRP(12576) = dARP(7918)/dV(3930) - JVRP(12576) = 1 -! JVRP(12577) = dARP(7919)/dV(3450) - JVRP(12577) = V(5250) -! JVRP(12578) = dARP(7919)/dV(5250) - JVRP(12578) = V(3450) -! JVRP(12579) = dARP(7920)/dV(3450) - JVRP(12579) = 1 -! JVRP(12580) = dARP(7921)/dV(3450) - JVRP(12580) = 1 -! JVRP(12581) = dARP(7922)/dV(3821) - JVRP(12581) = V(5250) -! JVRP(12582) = dARP(7922)/dV(5250) - JVRP(12582) = V(3821) -! JVRP(12583) = dARP(7923)/dV(3821) - JVRP(12583) = 1 -! JVRP(12584) = dARP(7924)/dV(4690) - JVRP(12584) = V(5253) -! JVRP(12585) = dARP(7924)/dV(5253) - JVRP(12585) = V(4690) -! JVRP(12586) = dARP(7925)/dV(4690) - JVRP(12586) = V(5258) -! JVRP(12587) = dARP(7925)/dV(5258) - JVRP(12587) = V(4690) -! JVRP(12588) = dARP(7926)/dV(2177) - JVRP(12588) = V(5250) -! JVRP(12589) = dARP(7926)/dV(5250) - JVRP(12589) = V(2177) -! JVRP(12590) = dARP(7927)/dV(2177) - JVRP(12590) = 1 -! JVRP(12591) = dARP(7928)/dV(1936) - JVRP(12591) = V(5256) -! JVRP(12592) = dARP(7928)/dV(5256) - JVRP(12592) = V(1936) -! JVRP(12593) = dARP(7929)/dV(1936) - JVRP(12593) = V(5250) -! JVRP(12594) = dARP(7929)/dV(5250) - JVRP(12594) = V(1936) -! JVRP(12595) = dARP(7930)/dV(3095) - JVRP(12595) = V(5256) -! JVRP(12596) = dARP(7930)/dV(5256) - JVRP(12596) = V(3095) -! JVRP(12597) = dARP(7931)/dV(3095) - JVRP(12597) = V(5250) -! JVRP(12598) = dARP(7931)/dV(5250) - JVRP(12598) = V(3095) -! JVRP(12599) = dARP(7932)/dV(4033) - JVRP(12599) = V(5255) -! JVRP(12600) = dARP(7932)/dV(5255) - JVRP(12600) = V(4033) -! JVRP(12601) = dARP(7933)/dV(4033) - JVRP(12601) = V(5252) -! JVRP(12602) = dARP(7933)/dV(5252) - JVRP(12602) = V(4033) -! JVRP(12603) = dARP(7934)/dV(4033) - JVRP(12603) = V(5256) -! JVRP(12604) = dARP(7934)/dV(5256) - JVRP(12604) = V(4033) -! JVRP(12605) = dARP(7935)/dV(4033) - JVRP(12605) = 1 -! JVRP(12606) = dARP(7936)/dV(389) - JVRP(12606) = V(5250) -! JVRP(12607) = dARP(7936)/dV(5250) - JVRP(12607) = V(389) -! JVRP(12608) = dARP(7937)/dV(1283) - JVRP(12608) = V(5250) -! JVRP(12609) = dARP(7937)/dV(5250) - JVRP(12609) = V(1283) -! JVRP(12610) = dARP(7938)/dV(1283) - JVRP(12610) = 1 -! JVRP(12611) = dARP(7939)/dV(2956) - JVRP(12611) = V(5250) -! JVRP(12612) = dARP(7939)/dV(5250) - JVRP(12612) = V(2956) -! JVRP(12613) = dARP(7940)/dV(2956) - JVRP(12613) = 1 -! JVRP(12614) = dARP(7941)/dV(3385) - JVRP(12614) = V(5250) -! JVRP(12615) = dARP(7941)/dV(5250) - JVRP(12615) = V(3385) -! JVRP(12616) = dARP(7942)/dV(3385) - JVRP(12616) = 1 -! JVRP(12617) = dARP(7943)/dV(1645) - JVRP(12617) = V(5253) -! JVRP(12618) = dARP(7943)/dV(5253) - JVRP(12618) = V(1645) -! JVRP(12619) = dARP(7944)/dV(4558) - JVRP(12619) = V(5255) -! JVRP(12620) = dARP(7944)/dV(5255) - JVRP(12620) = V(4558) -! JVRP(12621) = dARP(7945)/dV(4558) - JVRP(12621) = V(5252) -! JVRP(12622) = dARP(7945)/dV(5252) - JVRP(12622) = V(4558) -! JVRP(12623) = dARP(7946)/dV(4558) - JVRP(12623) = V(5256) -! JVRP(12624) = dARP(7946)/dV(5256) - JVRP(12624) = V(4558) -! JVRP(12625) = dARP(7947)/dV(4558) - JVRP(12625) = 1 -! JVRP(12626) = dARP(7948)/dV(4558) - JVRP(12626) = 1 -! JVRP(12627) = dARP(7949)/dV(3739) - JVRP(12627) = V(5255) -! JVRP(12628) = dARP(7949)/dV(5255) - JVRP(12628) = V(3739) -! JVRP(12629) = dARP(7950)/dV(3739) - JVRP(12629) = V(5252) -! JVRP(12630) = dARP(7950)/dV(5252) - JVRP(12630) = V(3739) -! JVRP(12631) = dARP(7951)/dV(3739) - JVRP(12631) = V(5256) -! JVRP(12632) = dARP(7951)/dV(5256) - JVRP(12632) = V(3739) -! JVRP(12633) = dARP(7952)/dV(3739) - JVRP(12633) = 1 -! JVRP(12634) = dARP(7953)/dV(4857) - JVRP(12634) = V(5255) -! JVRP(12635) = dARP(7953)/dV(5255) - JVRP(12635) = V(4857) -! JVRP(12636) = dARP(7954)/dV(4857) - JVRP(12636) = V(5252) -! JVRP(12637) = dARP(7954)/dV(5252) - JVRP(12637) = V(4857) -! JVRP(12638) = dARP(7955)/dV(4857) - JVRP(12638) = V(5256) -! JVRP(12639) = dARP(7955)/dV(5256) - JVRP(12639) = V(4857) -! JVRP(12640) = dARP(7956)/dV(4857) - JVRP(12640) = 1 -! JVRP(12641) = dARP(7957)/dV(4857) - JVRP(12641) = 1 -! JVRP(12642) = dARP(7958)/dV(4857) - JVRP(12642) = 1 -! JVRP(12643) = dARP(7959)/dV(3705) - JVRP(12643) = V(5255) -! JVRP(12644) = dARP(7959)/dV(5255) - JVRP(12644) = V(3705) -! JVRP(12645) = dARP(7960)/dV(3705) - JVRP(12645) = V(5252) -! JVRP(12646) = dARP(7960)/dV(5252) - JVRP(12646) = V(3705) -! JVRP(12647) = dARP(7961)/dV(3705) - JVRP(12647) = V(5256) -! JVRP(12648) = dARP(7961)/dV(5256) - JVRP(12648) = V(3705) -! JVRP(12649) = dARP(7962)/dV(3705) - JVRP(12649) = 1 -! JVRP(12650) = dARP(7963)/dV(3705) - JVRP(12650) = 1 -! JVRP(12651) = dARP(7964)/dV(3677) - JVRP(12651) = V(5255) -! JVRP(12652) = dARP(7964)/dV(5255) - JVRP(12652) = V(3677) -! JVRP(12653) = dARP(7965)/dV(3677) - JVRP(12653) = V(5252) -! JVRP(12654) = dARP(7965)/dV(5252) - JVRP(12654) = V(3677) -! JVRP(12655) = dARP(7966)/dV(3677) - JVRP(12655) = V(5256) -! JVRP(12656) = dARP(7966)/dV(5256) - JVRP(12656) = V(3677) -! JVRP(12657) = dARP(7967)/dV(3677) - JVRP(12657) = 1 -! JVRP(12658) = dARP(7968)/dV(4550) - JVRP(12658) = V(5255) -! JVRP(12659) = dARP(7968)/dV(5255) - JVRP(12659) = V(4550) -! JVRP(12660) = dARP(7969)/dV(4550) - JVRP(12660) = V(5252) -! JVRP(12661) = dARP(7969)/dV(5252) - JVRP(12661) = V(4550) -! JVRP(12662) = dARP(7970)/dV(4550) - JVRP(12662) = V(5256) -! JVRP(12663) = dARP(7970)/dV(5256) - JVRP(12663) = V(4550) -! JVRP(12664) = dARP(7971)/dV(4550) - JVRP(12664) = 1 -! JVRP(12665) = dARP(7972)/dV(3695) - JVRP(12665) = V(5255) -! JVRP(12666) = dARP(7972)/dV(5255) - JVRP(12666) = V(3695) -! JVRP(12667) = dARP(7973)/dV(3695) - JVRP(12667) = V(5252) -! JVRP(12668) = dARP(7973)/dV(5252) - JVRP(12668) = V(3695) -! JVRP(12669) = dARP(7974)/dV(3695) - JVRP(12669) = V(5256) -! JVRP(12670) = dARP(7974)/dV(5256) - JVRP(12670) = V(3695) -! JVRP(12671) = dARP(7975)/dV(3695) - JVRP(12671) = 1 -! JVRP(12672) = dARP(7976)/dV(3695) - JVRP(12672) = 1 -! JVRP(12673) = dARP(7977)/dV(3582) - JVRP(12673) = 1 -! JVRP(12674) = dARP(7978)/dV(3582) - JVRP(12674) = 1 -! JVRP(12675) = dARP(7979)/dV(3475) - JVRP(12675) = V(5250) -! JVRP(12676) = dARP(7979)/dV(5250) - JVRP(12676) = V(3475) -! JVRP(12677) = dARP(7980)/dV(3475) - JVRP(12677) = 1 -! JVRP(12678) = dARP(7981)/dV(3475) - JVRP(12678) = 1 -! JVRP(12679) = dARP(7982)/dV(2830) - JVRP(12679) = V(5250) -! JVRP(12680) = dARP(7982)/dV(5250) - JVRP(12680) = V(2830) -! JVRP(12681) = dARP(7983)/dV(2830) - JVRP(12681) = 1 -! JVRP(12682) = dARP(7984)/dV(1084) - JVRP(12682) = V(5250) -! JVRP(12683) = dARP(7984)/dV(5250) - JVRP(12683) = V(1084) -! JVRP(12684) = dARP(7985)/dV(1084) - JVRP(12684) = 1 -! JVRP(12685) = dARP(7986)/dV(915) - JVRP(12685) = V(5250) -! JVRP(12686) = dARP(7986)/dV(5250) - JVRP(12686) = V(915) -! JVRP(12687) = dARP(7987)/dV(915) - JVRP(12687) = 1 -! JVRP(12688) = dARP(7988)/dV(2904) - JVRP(12688) = V(5250) -! JVRP(12689) = dARP(7988)/dV(5250) - JVRP(12689) = V(2904) -! JVRP(12690) = dARP(7989)/dV(2904) - JVRP(12690) = 1 -! JVRP(12691) = dARP(7990)/dV(4125) - JVRP(12691) = V(5250) -! JVRP(12692) = dARP(7990)/dV(5250) - JVRP(12692) = V(4125) -! JVRP(12693) = dARP(7991)/dV(4125) - JVRP(12693) = 1 -! JVRP(12694) = dARP(7992)/dV(4125) - JVRP(12694) = 1 -! JVRP(12695) = dARP(7993)/dV(1810) - JVRP(12695) = 1 -! JVRP(12696) = dARP(7994)/dV(4671) - JVRP(12696) = V(5253) -! JVRP(12697) = dARP(7994)/dV(5253) - JVRP(12697) = V(4671) -! JVRP(12698) = dARP(7995)/dV(4671) - JVRP(12698) = V(5258) -! JVRP(12699) = dARP(7995)/dV(5258) - JVRP(12699) = V(4671) -! JVRP(12700) = dARP(7996)/dV(1419) - JVRP(12700) = V(5250) -! JVRP(12701) = dARP(7996)/dV(5250) - JVRP(12701) = V(1419) -! JVRP(12702) = dARP(7997)/dV(1419) - JVRP(12702) = 1 -! JVRP(12703) = dARP(7998)/dV(2464) - JVRP(12703) = V(5256) -! JVRP(12704) = dARP(7998)/dV(5256) - JVRP(12704) = V(2464) -! JVRP(12705) = dARP(7999)/dV(2464) - JVRP(12705) = V(5250) -! JVRP(12706) = dARP(7999)/dV(5250) - JVRP(12706) = V(2464) -! JVRP(12707) = dARP(8000)/dV(3119) - JVRP(12707) = V(5256) -! JVRP(12708) = dARP(8000)/dV(5256) - JVRP(12708) = V(3119) -! JVRP(12709) = dARP(8001)/dV(3119) - JVRP(12709) = V(5250) -! JVRP(12710) = dARP(8001)/dV(5250) - JVRP(12710) = V(3119) -! JVRP(12711) = dARP(8002)/dV(4073) - JVRP(12711) = V(5255) -! JVRP(12712) = dARP(8002)/dV(5255) - JVRP(12712) = V(4073) -! JVRP(12713) = dARP(8003)/dV(4073) - JVRP(12713) = V(5252) -! JVRP(12714) = dARP(8003)/dV(5252) - JVRP(12714) = V(4073) -! JVRP(12715) = dARP(8004)/dV(4073) - JVRP(12715) = V(5256) -! JVRP(12716) = dARP(8004)/dV(5256) - JVRP(12716) = V(4073) -! JVRP(12717) = dARP(8005)/dV(4073) - JVRP(12717) = 1 -! JVRP(12718) = dARP(8006)/dV(4014) - JVRP(12718) = V(5250) -! JVRP(12719) = dARP(8006)/dV(5250) - JVRP(12719) = V(4014) -! JVRP(12720) = dARP(8007)/dV(4014) - JVRP(12720) = 1 -! JVRP(12721) = dARP(8008)/dV(341) - JVRP(12721) = V(5250) -! JVRP(12722) = dARP(8008)/dV(5250) - JVRP(12722) = V(341) -! JVRP(12723) = dARP(8009)/dV(1002) - JVRP(12723) = V(5250) -! JVRP(12724) = dARP(8009)/dV(5250) - JVRP(12724) = V(1002) -! JVRP(12725) = dARP(8010)/dV(1002) - JVRP(12725) = 1 -! JVRP(12726) = dARP(8011)/dV(3229) - JVRP(12726) = V(5250) -! JVRP(12727) = dARP(8011)/dV(5250) - JVRP(12727) = V(3229) -! JVRP(12728) = dARP(8012)/dV(3229) - JVRP(12728) = 1 -! JVRP(12729) = dARP(8013)/dV(2102) - JVRP(12729) = V(5250) -! JVRP(12730) = dARP(8013)/dV(5250) - JVRP(12730) = V(2102) -! JVRP(12731) = dARP(8014)/dV(2102) - JVRP(12731) = 1 -! JVRP(12732) = dARP(8015)/dV(3456) - JVRP(12732) = V(5253) -! JVRP(12733) = dARP(8015)/dV(5253) - JVRP(12733) = V(3456) -! JVRP(12734) = dARP(8016)/dV(4706) - JVRP(12734) = V(5255) -! JVRP(12735) = dARP(8016)/dV(5255) - JVRP(12735) = V(4706) -! JVRP(12736) = dARP(8017)/dV(4706) - JVRP(12736) = V(5252) -! JVRP(12737) = dARP(8017)/dV(5252) - JVRP(12737) = V(4706) -! JVRP(12738) = dARP(8018)/dV(4706) - JVRP(12738) = V(5256) -! JVRP(12739) = dARP(8018)/dV(5256) - JVRP(12739) = V(4706) -! JVRP(12740) = dARP(8019)/dV(4706) - JVRP(12740) = 1 -! JVRP(12741) = dARP(8020)/dV(4706) - JVRP(12741) = 1 -! JVRP(12742) = dARP(8021)/dV(4706) - JVRP(12742) = 1 -! JVRP(12743) = dARP(8022)/dV(4676) - JVRP(12743) = V(5253) -! JVRP(12744) = dARP(8022)/dV(5253) - JVRP(12744) = V(4676) -! JVRP(12745) = dARP(8023)/dV(4676) - JVRP(12745) = V(5258) -! JVRP(12746) = dARP(8023)/dV(5258) - JVRP(12746) = V(4676) -! JVRP(12747) = dARP(8024)/dV(854) - JVRP(12747) = V(5250) -! JVRP(12748) = dARP(8024)/dV(5250) - JVRP(12748) = V(854) -! JVRP(12749) = dARP(8025)/dV(854) - JVRP(12749) = 1 -! JVRP(12750) = dARP(8026)/dV(2167) - JVRP(12750) = V(5256) -! JVRP(12751) = dARP(8026)/dV(5256) - JVRP(12751) = V(2167) -! JVRP(12752) = dARP(8027)/dV(2167) - JVRP(12752) = V(5250) -! JVRP(12753) = dARP(8027)/dV(5250) - JVRP(12753) = V(2167) -! JVRP(12754) = dARP(8028)/dV(3112) - JVRP(12754) = V(5256) -! JVRP(12755) = dARP(8028)/dV(5256) - JVRP(12755) = V(3112) -! JVRP(12756) = dARP(8029)/dV(3112) - JVRP(12756) = V(5250) -! JVRP(12757) = dARP(8029)/dV(5250) - JVRP(12757) = V(3112) -! JVRP(12758) = dARP(8030)/dV(4002) - JVRP(12758) = V(5255) -! JVRP(12759) = dARP(8030)/dV(5255) - JVRP(12759) = V(4002) -! JVRP(12760) = dARP(8031)/dV(4002) - JVRP(12760) = V(5252) -! JVRP(12761) = dARP(8031)/dV(5252) - JVRP(12761) = V(4002) -! JVRP(12762) = dARP(8032)/dV(4002) - JVRP(12762) = V(5256) -! JVRP(12763) = dARP(8032)/dV(5256) - JVRP(12763) = V(4002) -! JVRP(12764) = dARP(8033)/dV(4002) - JVRP(12764) = 1 -! JVRP(12765) = dARP(8034)/dV(276) - JVRP(12765) = V(5250) -! JVRP(12766) = dARP(8034)/dV(5250) - JVRP(12766) = V(276) -! JVRP(12767) = dARP(8035)/dV(867) - JVRP(12767) = V(5250) -! JVRP(12768) = dARP(8035)/dV(5250) - JVRP(12768) = V(867) -! JVRP(12769) = dARP(8036)/dV(867) - JVRP(12769) = 1 -! JVRP(12770) = dARP(8037)/dV(2780) - JVRP(12770) = V(5250) -! JVRP(12771) = dARP(8037)/dV(5250) - JVRP(12771) = V(2780) -! JVRP(12772) = dARP(8038)/dV(2780) - JVRP(12772) = 1 -! JVRP(12773) = dARP(8039)/dV(4797) - JVRP(12773) = V(5253) -! JVRP(12774) = dARP(8039)/dV(5253) - JVRP(12774) = V(4797) -! JVRP(12775) = dARP(8040)/dV(4797) - JVRP(12775) = V(5258) -! JVRP(12776) = dARP(8040)/dV(5258) - JVRP(12776) = V(4797) -! JVRP(12777) = dARP(8041)/dV(1476) - JVRP(12777) = V(5250) -! JVRP(12778) = dARP(8041)/dV(5250) - JVRP(12778) = V(1476) -! JVRP(12779) = dARP(8042)/dV(1476) - JVRP(12779) = 1 -! JVRP(12780) = dARP(8043)/dV(4047) - JVRP(12780) = V(5250) -! JVRP(12781) = dARP(8043)/dV(5250) - JVRP(12781) = V(4047) -! JVRP(12782) = dARP(8044)/dV(4047) - JVRP(12782) = 1 -! JVRP(12783) = dARP(8045)/dV(1805) - JVRP(12783) = V(5256) -! JVRP(12784) = dARP(8045)/dV(5256) - JVRP(12784) = V(1805) -! JVRP(12785) = dARP(8046)/dV(1805) - JVRP(12785) = V(5250) -! JVRP(12786) = dARP(8046)/dV(5250) - JVRP(12786) = V(1805) -! JVRP(12787) = dARP(8047)/dV(3162) - JVRP(12787) = V(5256) -! JVRP(12788) = dARP(8047)/dV(5256) - JVRP(12788) = V(3162) -! JVRP(12789) = dARP(8048)/dV(3162) - JVRP(12789) = V(5250) -! JVRP(12790) = dARP(8048)/dV(5250) - JVRP(12790) = V(3162) -! JVRP(12791) = dARP(8049)/dV(4057) - JVRP(12791) = V(5255) -! JVRP(12792) = dARP(8049)/dV(5255) - JVRP(12792) = V(4057) -! JVRP(12793) = dARP(8050)/dV(4057) - JVRP(12793) = V(5252) -! JVRP(12794) = dARP(8050)/dV(5252) - JVRP(12794) = V(4057) -! JVRP(12795) = dARP(8051)/dV(4057) - JVRP(12795) = V(5256) -! JVRP(12796) = dARP(8051)/dV(5256) - JVRP(12796) = V(4057) -! JVRP(12797) = dARP(8052)/dV(4057) - JVRP(12797) = 1 -! JVRP(12798) = dARP(8053)/dV(3230) - JVRP(12798) = V(5250) -! JVRP(12799) = dARP(8053)/dV(5250) - JVRP(12799) = V(3230) -! JVRP(12800) = dARP(8054)/dV(3230) - JVRP(12800) = 1 -! JVRP(12801) = dARP(8055)/dV(4877) - JVRP(12801) = V(5255) -! JVRP(12802) = dARP(8055)/dV(5255) - JVRP(12802) = V(4877) -! JVRP(12803) = dARP(8056)/dV(4877) - JVRP(12803) = V(5252) -! JVRP(12804) = dARP(8056)/dV(5252) - JVRP(12804) = V(4877) -! JVRP(12805) = dARP(8057)/dV(4877) - JVRP(12805) = V(5256) -! JVRP(12806) = dARP(8057)/dV(5256) - JVRP(12806) = V(4877) -! JVRP(12807) = dARP(8058)/dV(4877) - JVRP(12807) = 1 -! JVRP(12808) = dARP(8059)/dV(4877) - JVRP(12808) = 1 -! JVRP(12809) = dARP(8060)/dV(4877) - JVRP(12809) = 1 -! JVRP(12810) = dARP(8061)/dV(3713) - JVRP(12810) = V(5255) -! JVRP(12811) = dARP(8061)/dV(5255) - JVRP(12811) = V(3713) -! JVRP(12812) = dARP(8062)/dV(3713) - JVRP(12812) = V(5252) -! JVRP(12813) = dARP(8062)/dV(5252) - JVRP(12813) = V(3713) -! JVRP(12814) = dARP(8063)/dV(3713) - JVRP(12814) = V(5256) -! JVRP(12815) = dARP(8063)/dV(5256) - JVRP(12815) = V(3713) -! JVRP(12816) = dARP(8064)/dV(3713) - JVRP(12816) = 1 -! JVRP(12817) = dARP(8065)/dV(4661) - JVRP(12817) = V(5255) -! JVRP(12818) = dARP(8065)/dV(5255) - JVRP(12818) = V(4661) -! JVRP(12819) = dARP(8066)/dV(4661) - JVRP(12819) = V(5252) -! JVRP(12820) = dARP(8066)/dV(5252) - JVRP(12820) = V(4661) -! JVRP(12821) = dARP(8067)/dV(4661) - JVRP(12821) = V(5256) -! JVRP(12822) = dARP(8067)/dV(5256) - JVRP(12822) = V(4661) -! JVRP(12823) = dARP(8068)/dV(4661) - JVRP(12823) = 1 -! JVRP(12824) = dARP(8069)/dV(4661) - JVRP(12824) = 1 -! JVRP(12825) = dARP(8070)/dV(4661) - JVRP(12825) = 1 -! JVRP(12826) = dARP(8071)/dV(3727) - JVRP(12826) = V(5255) -! JVRP(12827) = dARP(8071)/dV(5255) - JVRP(12827) = V(3727) -! JVRP(12828) = dARP(8072)/dV(3727) - JVRP(12828) = V(5252) -! JVRP(12829) = dARP(8072)/dV(5252) - JVRP(12829) = V(3727) -! JVRP(12830) = dARP(8073)/dV(3727) - JVRP(12830) = V(5256) -! JVRP(12831) = dARP(8073)/dV(5256) - JVRP(12831) = V(3727) -! JVRP(12832) = dARP(8074)/dV(3727) - JVRP(12832) = 1 -! JVRP(12833) = dARP(8075)/dV(3727) - JVRP(12833) = 1 -! JVRP(12834) = dARP(8076)/dV(3727) - JVRP(12834) = 1 -! JVRP(12835) = dARP(8077)/dV(4062) - JVRP(12835) = 1 -! JVRP(12836) = dARP(8078)/dV(4062) - JVRP(12836) = 1 -! JVRP(12837) = dARP(8079)/dV(3458) - JVRP(12837) = V(5250) -! JVRP(12838) = dARP(8079)/dV(5250) - JVRP(12838) = V(3458) -! JVRP(12839) = dARP(8080)/dV(3458) - JVRP(12839) = 1 -! JVRP(12840) = dARP(8081)/dV(3458) - JVRP(12840) = 1 -! JVRP(12841) = dARP(8082)/dV(2582) - JVRP(12841) = V(5250) -! JVRP(12842) = dARP(8082)/dV(5250) - JVRP(12842) = V(2582) -! JVRP(12843) = dARP(8083)/dV(2582) - JVRP(12843) = 1 -! JVRP(12844) = dARP(8084)/dV(4403) - JVRP(12844) = V(5250) -! JVRP(12845) = dARP(8084)/dV(5250) - JVRP(12845) = V(4403) -! JVRP(12846) = dARP(8085)/dV(4403) - JVRP(12846) = 1 -! JVRP(12847) = dARP(8086)/dV(4728) - JVRP(12847) = V(5250) -! JVRP(12848) = dARP(8086)/dV(5250) - JVRP(12848) = V(4728) -! JVRP(12849) = dARP(8087)/dV(4728) - JVRP(12849) = 1 -! JVRP(12850) = dARP(8088)/dV(4728) - JVRP(12850) = 1 -! JVRP(12851) = dARP(8089)/dV(3860) - JVRP(12851) = V(5255) -! JVRP(12852) = dARP(8089)/dV(5255) - JVRP(12852) = V(3860) -! JVRP(12853) = dARP(8090)/dV(3860) - JVRP(12853) = V(5252) -! JVRP(12854) = dARP(8090)/dV(5252) - JVRP(12854) = V(3860) -! JVRP(12855) = dARP(8091)/dV(3860) - JVRP(12855) = V(5256) -! JVRP(12856) = dARP(8091)/dV(5256) - JVRP(12856) = V(3860) -! JVRP(12857) = dARP(8092)/dV(3860) - JVRP(12857) = 1 -! JVRP(12858) = dARP(8093)/dV(2204) - JVRP(12858) = V(5250) -! JVRP(12859) = dARP(8093)/dV(5250) - JVRP(12859) = V(2204) -! JVRP(12860) = dARP(8094)/dV(2204) - JVRP(12860) = 1 -! JVRP(12861) = dARP(8095)/dV(787) - JVRP(12861) = 1 -! JVRP(12862) = dARP(8096)/dV(2295) - JVRP(12862) = V(5250) -! JVRP(12863) = dARP(8096)/dV(5250) - JVRP(12863) = V(2295) -! JVRP(12864) = dARP(8097)/dV(2295) - JVRP(12864) = 1 -! JVRP(12865) = dARP(8098)/dV(358) - JVRP(12865) = V(5250) -! JVRP(12866) = dARP(8098)/dV(5250) - JVRP(12866) = V(358) -! JVRP(12867) = dARP(8099)/dV(3800) - JVRP(12867) = V(5250) -! JVRP(12868) = dARP(8099)/dV(5250) - JVRP(12868) = V(3800) -! JVRP(12869) = dARP(8100)/dV(3800) - JVRP(12869) = 1 -! JVRP(12870) = dARP(8101)/dV(4791) - JVRP(12870) = V(5253) -! JVRP(12871) = dARP(8101)/dV(5253) - JVRP(12871) = V(4791) -! JVRP(12872) = dARP(8102)/dV(4791) - JVRP(12872) = V(5258) -! JVRP(12873) = dARP(8102)/dV(5258) - JVRP(12873) = V(4791) -! JVRP(12874) = dARP(8103)/dV(1188) - JVRP(12874) = V(5250) -! JVRP(12875) = dARP(8103)/dV(5250) - JVRP(12875) = V(1188) -! JVRP(12876) = dARP(8104)/dV(1188) - JVRP(12876) = 1 -! JVRP(12877) = dARP(8105)/dV(2274) - JVRP(12877) = V(5256) -! JVRP(12878) = dARP(8105)/dV(5256) - JVRP(12878) = V(2274) -! JVRP(12879) = dARP(8106)/dV(2274) - JVRP(12879) = V(5250) -! JVRP(12880) = dARP(8106)/dV(5250) - JVRP(12880) = V(2274) -! JVRP(12881) = dARP(8107)/dV(3123) - JVRP(12881) = V(5256) -! JVRP(12882) = dARP(8107)/dV(5256) - JVRP(12882) = V(3123) -! JVRP(12883) = dARP(8108)/dV(3123) - JVRP(12883) = V(5250) -! JVRP(12884) = dARP(8108)/dV(5250) - JVRP(12884) = V(3123) -! JVRP(12885) = dARP(8109)/dV(4065) - JVRP(12885) = V(5255) -! JVRP(12886) = dARP(8109)/dV(5255) - JVRP(12886) = V(4065) -! JVRP(12887) = dARP(8110)/dV(4065) - JVRP(12887) = V(5252) -! JVRP(12888) = dARP(8110)/dV(5252) - JVRP(12888) = V(4065) -! JVRP(12889) = dARP(8111)/dV(4065) - JVRP(12889) = V(5256) -! JVRP(12890) = dARP(8111)/dV(5256) - JVRP(12890) = V(4065) -! JVRP(12891) = dARP(8112)/dV(4065) - JVRP(12891) = 1 -! JVRP(12892) = dARP(8113)/dV(2936) - JVRP(12892) = V(5250) -! JVRP(12893) = dARP(8113)/dV(5250) - JVRP(12893) = V(2936) -! JVRP(12894) = dARP(8114)/dV(2936) - JVRP(12894) = 1 -! JVRP(12895) = dARP(8115)/dV(2104) - JVRP(12895) = 1 -! JVRP(12896) = dARP(8116)/dV(2104) - JVRP(12896) = 1 -! JVRP(12897) = dARP(8117)/dV(2104) - JVRP(12897) = 1 -! JVRP(12898) = dARP(8118)/dV(2104) - JVRP(12898) = 1 -! JVRP(12899) = dARP(8119)/dV(4165) - JVRP(12899) = V(5255) -! JVRP(12900) = dARP(8119)/dV(5255) - JVRP(12900) = V(4165) -! JVRP(12901) = dARP(8120)/dV(4165) - JVRP(12901) = V(5252) -! JVRP(12902) = dARP(8120)/dV(5252) - JVRP(12902) = V(4165) -! JVRP(12903) = dARP(8121)/dV(4165) - JVRP(12903) = V(5256) -! JVRP(12904) = dARP(8121)/dV(5256) - JVRP(12904) = V(4165) -! JVRP(12905) = dARP(8122)/dV(4165) - JVRP(12905) = 1 -! JVRP(12906) = dARP(8123)/dV(4165) - JVRP(12906) = 1 -! JVRP(12907) = dARP(8124)/dV(4165) - JVRP(12907) = 1 -! JVRP(12908) = dARP(8125)/dV(3772) - JVRP(12908) = V(5255) -! JVRP(12909) = dARP(8125)/dV(5255) - JVRP(12909) = V(3772) -! JVRP(12910) = dARP(8126)/dV(3772) - JVRP(12910) = V(5252) -! JVRP(12911) = dARP(8126)/dV(5252) - JVRP(12911) = V(3772) -! JVRP(12912) = dARP(8127)/dV(3772) - JVRP(12912) = V(5256) -! JVRP(12913) = dARP(8127)/dV(5256) - JVRP(12913) = V(3772) -! JVRP(12914) = dARP(8128)/dV(3772) - JVRP(12914) = 1 -! JVRP(12915) = dARP(8129)/dV(4689) - JVRP(12915) = V(5255) -! JVRP(12916) = dARP(8129)/dV(5255) - JVRP(12916) = V(4689) -! JVRP(12917) = dARP(8130)/dV(4689) - JVRP(12917) = V(5252) -! JVRP(12918) = dARP(8130)/dV(5252) - JVRP(12918) = V(4689) -! JVRP(12919) = dARP(8131)/dV(4689) - JVRP(12919) = V(5256) -! JVRP(12920) = dARP(8131)/dV(5256) - JVRP(12920) = V(4689) -! JVRP(12921) = dARP(8132)/dV(4689) - JVRP(12921) = 1 -! JVRP(12922) = dARP(8133)/dV(4689) - JVRP(12922) = 1 -! JVRP(12923) = dARP(8134)/dV(4689) - JVRP(12923) = 1 -! JVRP(12924) = dARP(8135)/dV(3696) - JVRP(12924) = V(5255) -! JVRP(12925) = dARP(8135)/dV(5255) - JVRP(12925) = V(3696) -! JVRP(12926) = dARP(8136)/dV(3696) - JVRP(12926) = V(5252) -! JVRP(12927) = dARP(8136)/dV(5252) - JVRP(12927) = V(3696) -! JVRP(12928) = dARP(8137)/dV(3696) - JVRP(12928) = V(5256) -! JVRP(12929) = dARP(8137)/dV(5256) - JVRP(12929) = V(3696) -! JVRP(12930) = dARP(8138)/dV(3696) - JVRP(12930) = 1 -! JVRP(12931) = dARP(8139)/dV(3696) - JVRP(12931) = 1 -! JVRP(12932) = dARP(8140)/dV(3696) - JVRP(12932) = 1 -! JVRP(12933) = dARP(8141)/dV(4029) - JVRP(12933) = 1 -! JVRP(12934) = dARP(8142)/dV(4029) - JVRP(12934) = 1 -! JVRP(12935) = dARP(8143)/dV(3225) - JVRP(12935) = V(5250) -! JVRP(12936) = dARP(8143)/dV(5250) - JVRP(12936) = V(3225) -! JVRP(12937) = dARP(8144)/dV(3225) - JVRP(12937) = 1 -! JVRP(12938) = dARP(8145)/dV(3225) - JVRP(12938) = 1 -! JVRP(12939) = dARP(8146)/dV(2689) - JVRP(12939) = V(5250) -! JVRP(12940) = dARP(8146)/dV(5250) - JVRP(12940) = V(2689) -! JVRP(12941) = dARP(8147)/dV(2689) - JVRP(12941) = 1 -! JVRP(12942) = dARP(8148)/dV(862) - JVRP(12942) = V(5250) -! JVRP(12943) = dARP(8148)/dV(5250) - JVRP(12943) = V(862) -! JVRP(12944) = dARP(8149)/dV(862) - JVRP(12944) = 1 -! JVRP(12945) = dARP(8150)/dV(2474) - JVRP(12945) = V(5250) -! JVRP(12946) = dARP(8150)/dV(5250) - JVRP(12946) = V(2474) -! JVRP(12947) = dARP(8151)/dV(2474) - JVRP(12947) = 1 -! JVRP(12948) = dARP(8152)/dV(2474) - JVRP(12948) = 1 -! JVRP(12949) = dARP(8153)/dV(3973) - JVRP(12949) = V(5255) -! JVRP(12950) = dARP(8153)/dV(5255) - JVRP(12950) = V(3973) -! JVRP(12951) = dARP(8154)/dV(3973) - JVRP(12951) = V(5252) -! JVRP(12952) = dARP(8154)/dV(5252) - JVRP(12952) = V(3973) -! JVRP(12953) = dARP(8155)/dV(3973) - JVRP(12953) = V(5256) -! JVRP(12954) = dARP(8155)/dV(5256) - JVRP(12954) = V(3973) -! JVRP(12955) = dARP(8156)/dV(3973) - JVRP(12955) = 1 -! JVRP(12956) = dARP(8157)/dV(4069) - JVRP(12956) = V(5255) -! JVRP(12957) = dARP(8157)/dV(5255) - JVRP(12957) = V(4069) -! JVRP(12958) = dARP(8158)/dV(4069) - JVRP(12958) = V(5252) -! JVRP(12959) = dARP(8158)/dV(5252) - JVRP(12959) = V(4069) -! JVRP(12960) = dARP(8159)/dV(4069) - JVRP(12960) = V(5256) -! JVRP(12961) = dARP(8159)/dV(5256) - JVRP(12961) = V(4069) -! JVRP(12962) = dARP(8160)/dV(4069) - JVRP(12962) = 1 -! JVRP(12963) = dARP(8161)/dV(4069) - JVRP(12963) = 1 -! JVRP(12964) = dARP(8162)/dV(4069) - JVRP(12964) = 1 -! JVRP(12965) = dARP(8163)/dV(4790) - JVRP(12965) = V(5253) -! JVRP(12966) = dARP(8163)/dV(5253) - JVRP(12966) = V(4790) -! JVRP(12967) = dARP(8164)/dV(4790) - JVRP(12967) = V(5258) -! JVRP(12968) = dARP(8164)/dV(5258) - JVRP(12968) = V(4790) -! JVRP(12969) = dARP(8165)/dV(1303) - JVRP(12969) = V(5250) -! JVRP(12970) = dARP(8165)/dV(5250) - JVRP(12970) = V(1303) -! JVRP(12971) = dARP(8166)/dV(1303) - JVRP(12971) = 1 -! JVRP(12972) = dARP(8167)/dV(3816) - JVRP(12972) = V(5250) -! JVRP(12973) = dARP(8167)/dV(5250) - JVRP(12973) = V(3816) -! JVRP(12974) = dARP(8168)/dV(3816) - JVRP(12974) = 1 -! JVRP(12975) = dARP(8169)/dV(2398) - JVRP(12975) = V(5256) -! JVRP(12976) = dARP(8169)/dV(5256) - JVRP(12976) = V(2398) -! JVRP(12977) = dARP(8170)/dV(2398) - JVRP(12977) = V(5250) -! JVRP(12978) = dARP(8170)/dV(5250) - JVRP(12978) = V(2398) -! JVRP(12979) = dARP(8171)/dV(3100) - JVRP(12979) = V(5256) -! JVRP(12980) = dARP(8171)/dV(5256) - JVRP(12980) = V(3100) -! JVRP(12981) = dARP(8172)/dV(3100) - JVRP(12981) = V(5250) -! JVRP(12982) = dARP(8172)/dV(5250) - JVRP(12982) = V(3100) -! JVRP(12983) = dARP(8173)/dV(3997) - JVRP(12983) = V(5255) -! JVRP(12984) = dARP(8173)/dV(5255) - JVRP(12984) = V(3997) -! JVRP(12985) = dARP(8174)/dV(3997) - JVRP(12985) = V(5252) -! JVRP(12986) = dARP(8174)/dV(5252) - JVRP(12986) = V(3997) -! JVRP(12987) = dARP(8175)/dV(3997) - JVRP(12987) = V(5256) -! JVRP(12988) = dARP(8175)/dV(5256) - JVRP(12988) = V(3997) -! JVRP(12989) = dARP(8176)/dV(3997) - JVRP(12989) = 1 -! JVRP(12990) = dARP(8177)/dV(2927) - JVRP(12990) = V(5250) -! JVRP(12991) = dARP(8177)/dV(5250) - JVRP(12991) = V(2927) -! JVRP(12992) = dARP(8178)/dV(2927) - JVRP(12992) = 1 -! JVRP(12993) = dARP(8179)/dV(4141) - JVRP(12993) = V(5255) -! JVRP(12994) = dARP(8179)/dV(5255) - JVRP(12994) = V(4141) -! JVRP(12995) = dARP(8180)/dV(4141) - JVRP(12995) = V(5252) -! JVRP(12996) = dARP(8180)/dV(5252) - JVRP(12996) = V(4141) -! JVRP(12997) = dARP(8181)/dV(4141) - JVRP(12997) = V(5256) -! JVRP(12998) = dARP(8181)/dV(5256) - JVRP(12998) = V(4141) -! JVRP(12999) = dARP(8182)/dV(4141) - JVRP(12999) = 1 -! JVRP(13000) = dARP(8183)/dV(4141) - JVRP(13000) = 1 -! JVRP(13001) = dARP(8184)/dV(4141) - JVRP(13001) = 1 -! JVRP(13002) = dARP(8185)/dV(3774) - JVRP(13002) = V(5255) -! JVRP(13003) = dARP(8185)/dV(5255) - JVRP(13003) = V(3774) -! JVRP(13004) = dARP(8186)/dV(3774) - JVRP(13004) = V(5252) -! JVRP(13005) = dARP(8186)/dV(5252) - JVRP(13005) = V(3774) -! JVRP(13006) = dARP(8187)/dV(3774) - JVRP(13006) = V(5256) -! JVRP(13007) = dARP(8187)/dV(5256) - JVRP(13007) = V(3774) -! JVRP(13008) = dARP(8188)/dV(3774) - JVRP(13008) = 1 -! JVRP(13009) = dARP(8189)/dV(4688) - JVRP(13009) = V(5255) -! JVRP(13010) = dARP(8189)/dV(5255) - JVRP(13010) = V(4688) -! JVRP(13011) = dARP(8190)/dV(4688) - JVRP(13011) = V(5252) -! JVRP(13012) = dARP(8190)/dV(5252) - JVRP(13012) = V(4688) -! JVRP(13013) = dARP(8191)/dV(4688) - JVRP(13013) = V(5256) -! JVRP(13014) = dARP(8191)/dV(5256) - JVRP(13014) = V(4688) -! JVRP(13015) = dARP(8192)/dV(4688) - JVRP(13015) = 1 -! JVRP(13016) = dARP(8193)/dV(4688) - JVRP(13016) = 1 -! JVRP(13017) = dARP(8194)/dV(4688) - JVRP(13017) = 1 -! JVRP(13018) = dARP(8195)/dV(3762) - JVRP(13018) = V(5255) -! JVRP(13019) = dARP(8195)/dV(5255) - JVRP(13019) = V(3762) -! JVRP(13020) = dARP(8196)/dV(3762) - JVRP(13020) = V(5252) -! JVRP(13021) = dARP(8196)/dV(5252) - JVRP(13021) = V(3762) -! JVRP(13022) = dARP(8197)/dV(3762) - JVRP(13022) = V(5256) -! JVRP(13023) = dARP(8197)/dV(5256) - JVRP(13023) = V(3762) -! JVRP(13024) = dARP(8198)/dV(3762) - JVRP(13024) = 1 -! JVRP(13025) = dARP(8199)/dV(3762) - JVRP(13025) = 1 -! JVRP(13026) = dARP(8200)/dV(3762) - JVRP(13026) = 1 -! JVRP(13027) = dARP(8201)/dV(4086) - JVRP(13027) = 1 -! JVRP(13028) = dARP(8202)/dV(4086) - JVRP(13028) = 1 -! JVRP(13029) = dARP(8203)/dV(3226) - JVRP(13029) = V(5250) -! JVRP(13030) = dARP(8203)/dV(5250) - JVRP(13030) = V(3226) -! JVRP(13031) = dARP(8204)/dV(3226) - JVRP(13031) = 1 -! JVRP(13032) = dARP(8205)/dV(3226) - JVRP(13032) = 1 -! JVRP(13033) = dARP(8206)/dV(2808) - JVRP(13033) = V(5250) -! JVRP(13034) = dARP(8206)/dV(5250) - JVRP(13034) = V(2808) -! JVRP(13035) = dARP(8207)/dV(2808) - JVRP(13035) = 1 -! JVRP(13036) = dARP(8208)/dV(1111) - JVRP(13036) = V(5250) -! JVRP(13037) = dARP(8208)/dV(5250) - JVRP(13037) = V(1111) -! JVRP(13038) = dARP(8209)/dV(1111) - JVRP(13038) = 1 -! JVRP(13039) = dARP(8210)/dV(2472) - JVRP(13039) = V(5250) -! JVRP(13040) = dARP(8210)/dV(5250) - JVRP(13040) = V(2472) -! JVRP(13041) = dARP(8211)/dV(2472) - JVRP(13041) = 1 -! JVRP(13042) = dARP(8212)/dV(2472) - JVRP(13042) = 1 -! JVRP(13043) = dARP(8213)/dV(3953) - JVRP(13043) = V(5255) -! JVRP(13044) = dARP(8213)/dV(5255) - JVRP(13044) = V(3953) -! JVRP(13045) = dARP(8214)/dV(3953) - JVRP(13045) = V(5252) -! JVRP(13046) = dARP(8214)/dV(5252) - JVRP(13046) = V(3953) -! JVRP(13047) = dARP(8215)/dV(3953) - JVRP(13047) = V(5256) -! JVRP(13048) = dARP(8215)/dV(5256) - JVRP(13048) = V(3953) -! JVRP(13049) = dARP(8216)/dV(3953) - JVRP(13049) = 1 -! JVRP(13050) = dARP(8217)/dV(227) - JVRP(13050) = V(5250) -! JVRP(13051) = dARP(8217)/dV(5250) - JVRP(13051) = V(227) -! JVRP(13052) = dARP(8218)/dV(1355) - JVRP(13052) = V(5250) -! JVRP(13053) = dARP(8218)/dV(5250) - JVRP(13053) = V(1355) -! JVRP(13054) = dARP(8219)/dV(1355) - JVRP(13054) = 1 -! JVRP(13055) = dARP(8220)/dV(3199) - JVRP(13055) = V(5250) -! JVRP(13056) = dARP(8220)/dV(5250) - JVRP(13056) = V(3199) -! JVRP(13057) = dARP(8221)/dV(3199) - JVRP(13057) = 1 -! JVRP(13058) = dARP(8222)/dV(3664) - JVRP(13058) = V(5250) -! JVRP(13059) = dARP(8222)/dV(5250) - JVRP(13059) = V(3664) -! JVRP(13060) = dARP(8223)/dV(3664) - JVRP(13060) = 1 -! JVRP(13061) = dARP(8224)/dV(4810) - JVRP(13061) = V(5253) -! JVRP(13062) = dARP(8224)/dV(5253) - JVRP(13062) = V(4810) -! JVRP(13063) = dARP(8225)/dV(4810) - JVRP(13063) = V(5258) -! JVRP(13064) = dARP(8225)/dV(5258) - JVRP(13064) = V(4810) -! JVRP(13065) = dARP(8226)/dV(1227) - JVRP(13065) = V(5250) -! JVRP(13066) = dARP(8226)/dV(5250) - JVRP(13066) = V(1227) -! JVRP(13067) = dARP(8227)/dV(1227) - JVRP(13067) = 1 -! JVRP(13068) = dARP(8228)/dV(3114) - JVRP(13068) = V(5256) -! JVRP(13069) = dARP(8228)/dV(5256) - JVRP(13069) = V(3114) -! JVRP(13070) = dARP(8229)/dV(3114) - JVRP(13070) = V(5250) -! JVRP(13071) = dARP(8229)/dV(5250) - JVRP(13071) = V(3114) -! JVRP(13072) = dARP(8230)/dV(4023) - JVRP(13072) = V(5255) -! JVRP(13073) = dARP(8230)/dV(5255) - JVRP(13073) = V(4023) -! JVRP(13074) = dARP(8231)/dV(4023) - JVRP(13074) = V(5252) -! JVRP(13075) = dARP(8231)/dV(5252) - JVRP(13075) = V(4023) -! JVRP(13076) = dARP(8232)/dV(4023) - JVRP(13076) = V(5256) -! JVRP(13077) = dARP(8232)/dV(5256) - JVRP(13077) = V(4023) -! JVRP(13078) = dARP(8233)/dV(4023) - JVRP(13078) = 1 -! JVRP(13079) = dARP(8234)/dV(4888) - JVRP(13079) = V(5255) -! JVRP(13080) = dARP(8234)/dV(5255) - JVRP(13080) = V(4888) -! JVRP(13081) = dARP(8235)/dV(4888) - JVRP(13081) = V(5255) -! JVRP(13082) = dARP(8235)/dV(5255) - JVRP(13082) = V(4888) -! JVRP(13083) = dARP(8236)/dV(4888) - JVRP(13083) = V(5255) -! JVRP(13084) = dARP(8236)/dV(5255) - JVRP(13084) = V(4888) -! JVRP(13085) = dARP(8237)/dV(4888) - JVRP(13085) = V(5252) -! JVRP(13086) = dARP(8237)/dV(5252) - JVRP(13086) = V(4888) -! JVRP(13087) = dARP(8238)/dV(4888) - JVRP(13087) = V(5253) -! JVRP(13088) = dARP(8238)/dV(5253) - JVRP(13088) = V(4888) -! JVRP(13089) = dARP(8239)/dV(4888) - JVRP(13089) = V(5256) -! JVRP(13090) = dARP(8239)/dV(5256) - JVRP(13090) = V(4888) -! JVRP(13091) = dARP(8240)/dV(4888) - JVRP(13091) = 1 -! JVRP(13092) = dARP(8241)/dV(4888) - JVRP(13092) = 1 -! JVRP(13093) = dARP(8242)/dV(3975) - JVRP(13093) = V(5255) -! JVRP(13094) = dARP(8242)/dV(5255) - JVRP(13094) = V(3975) -! JVRP(13095) = dARP(8243)/dV(3975) - JVRP(13095) = V(5252) -! JVRP(13096) = dARP(8243)/dV(5252) - JVRP(13096) = V(3975) -! JVRP(13097) = dARP(8244)/dV(3975) - JVRP(13097) = V(5256) -! JVRP(13098) = dARP(8244)/dV(5256) - JVRP(13098) = V(3975) -! JVRP(13099) = dARP(8245)/dV(3975) - JVRP(13099) = 1 -! JVRP(13100) = dARP(8246)/dV(3975) - JVRP(13100) = 1 -! JVRP(13101) = dARP(8247)/dV(3945) - JVRP(13101) = V(5255) -! JVRP(13102) = dARP(8247)/dV(5255) - JVRP(13102) = V(3945) -! JVRP(13103) = dARP(8248)/dV(3945) - JVRP(13103) = V(5252) -! JVRP(13104) = dARP(8248)/dV(5252) - JVRP(13104) = V(3945) -! JVRP(13105) = dARP(8249)/dV(3945) - JVRP(13105) = V(5256) -! JVRP(13106) = dARP(8249)/dV(5256) - JVRP(13106) = V(3945) -! JVRP(13107) = dARP(8250)/dV(3945) - JVRP(13107) = 1 -! JVRP(13108) = dARP(8251)/dV(3726) - JVRP(13108) = V(5250) -! JVRP(13109) = dARP(8251)/dV(5250) - JVRP(13109) = V(3726) -! JVRP(13110) = dARP(8252)/dV(3726) - JVRP(13110) = 1 -! JVRP(13111) = dARP(8253)/dV(3725) - JVRP(13111) = V(5255) -! JVRP(13112) = dARP(8253)/dV(5255) - JVRP(13112) = V(3725) -! JVRP(13113) = dARP(8254)/dV(3725) - JVRP(13113) = V(5252) -! JVRP(13114) = dARP(8254)/dV(5252) - JVRP(13114) = V(3725) -! JVRP(13115) = dARP(8255)/dV(3725) - JVRP(13115) = V(5256) -! JVRP(13116) = dARP(8255)/dV(5256) - JVRP(13116) = V(3725) -! JVRP(13117) = dARP(8256)/dV(3725) - JVRP(13117) = 1 -! JVRP(13118) = dARP(8257)/dV(3725) - JVRP(13118) = 1 -! JVRP(13119) = dARP(8258)/dV(4416) - JVRP(13119) = V(5255) -! JVRP(13120) = dARP(8258)/dV(5255) - JVRP(13120) = V(4416) -! JVRP(13121) = dARP(8259)/dV(4416) - JVRP(13121) = V(5252) -! JVRP(13122) = dARP(8259)/dV(5252) - JVRP(13122) = V(4416) -! JVRP(13123) = dARP(8260)/dV(4416) - JVRP(13123) = V(5256) -! JVRP(13124) = dARP(8260)/dV(5256) - JVRP(13124) = V(4416) -! JVRP(13125) = dARP(8261)/dV(4416) - JVRP(13125) = 1 -! JVRP(13126) = dARP(8262)/dV(4481) - JVRP(13126) = V(5255) -! JVRP(13127) = dARP(8262)/dV(5255) - JVRP(13127) = V(4481) -! JVRP(13128) = dARP(8263)/dV(4481) - JVRP(13128) = V(5252) -! JVRP(13129) = dARP(8263)/dV(5252) - JVRP(13129) = V(4481) -! JVRP(13130) = dARP(8264)/dV(4481) - JVRP(13130) = V(5256) -! JVRP(13131) = dARP(8264)/dV(5256) - JVRP(13131) = V(4481) -! JVRP(13132) = dARP(8265)/dV(4481) - JVRP(13132) = 1 -! JVRP(13133) = dARP(8266)/dV(4481) - JVRP(13133) = 1 -! JVRP(13134) = dARP(8267)/dV(4480) - JVRP(13134) = V(5255) -! JVRP(13135) = dARP(8267)/dV(5255) - JVRP(13135) = V(4480) -! JVRP(13136) = dARP(8268)/dV(4480) - JVRP(13136) = V(5252) -! JVRP(13137) = dARP(8268)/dV(5252) - JVRP(13137) = V(4480) -! JVRP(13138) = dARP(8269)/dV(4480) - JVRP(13138) = V(5256) -! JVRP(13139) = dARP(8269)/dV(5256) - JVRP(13139) = V(4480) -! JVRP(13140) = dARP(8270)/dV(4480) - JVRP(13140) = 1 -! JVRP(13141) = dARP(8271)/dV(4480) - JVRP(13141) = 1 -! JVRP(13142) = dARP(8272)/dV(1175) - JVRP(13142) = V(5250) -! JVRP(13143) = dARP(8272)/dV(5250) - JVRP(13143) = V(1175) -! JVRP(13144) = dARP(8273)/dV(1175) - JVRP(13144) = 1 -! JVRP(13145) = dARP(8274)/dV(1404) - JVRP(13145) = V(5250) -! JVRP(13146) = dARP(8274)/dV(5250) - JVRP(13146) = V(1404) -! JVRP(13147) = dARP(8275)/dV(1404) - JVRP(13147) = 1 -! JVRP(13148) = dARP(8276)/dV(2518) - JVRP(13148) = V(5250) -! JVRP(13149) = dARP(8276)/dV(5250) - JVRP(13149) = V(2518) -! JVRP(13150) = dARP(8277)/dV(2518) - JVRP(13150) = 1 -! JVRP(13151) = dARP(8278)/dV(3965) - JVRP(13151) = V(5250) -! JVRP(13152) = dARP(8278)/dV(5250) - JVRP(13152) = V(3965) -! JVRP(13153) = dARP(8279)/dV(3965) - JVRP(13153) = 1 -! JVRP(13154) = dARP(8280)/dV(3965) - JVRP(13154) = 1 -! JVRP(13155) = dARP(8281)/dV(3965) - JVRP(13155) = 1 -! JVRP(13156) = dARP(8282)/dV(503) - JVRP(13156) = V(5250) -! JVRP(13157) = dARP(8282)/dV(5250) - JVRP(13157) = V(503) -! JVRP(13158) = dARP(8283)/dV(1537) - JVRP(13158) = V(5250) -! JVRP(13159) = dARP(8283)/dV(5250) - JVRP(13159) = V(1537) -! JVRP(13160) = dARP(8284)/dV(1537) - JVRP(13160) = 1 -! JVRP(13161) = dARP(8285)/dV(3318) - JVRP(13161) = V(5250) -! JVRP(13162) = dARP(8285)/dV(5250) - JVRP(13162) = V(3318) -! JVRP(13163) = dARP(8286)/dV(3318) - JVRP(13163) = 1 -! JVRP(13164) = dARP(8287)/dV(2225) - JVRP(13164) = V(5250) -! JVRP(13165) = dARP(8287)/dV(5250) - JVRP(13165) = V(2225) -! JVRP(13166) = dARP(8288)/dV(2225) - JVRP(13166) = 1 -! JVRP(13167) = dARP(8289)/dV(3305) - JVRP(13167) = V(5253) -! JVRP(13168) = dARP(8289)/dV(5253) - JVRP(13168) = V(3305) -! JVRP(13169) = dARP(8290)/dV(214) - JVRP(13169) = 1 -! JVRP(13170) = dARP(8291)/dV(214) - JVRP(13170) = 1 -! JVRP(13171) = dARP(8292)/dV(4674) - JVRP(13171) = V(5255) -! JVRP(13172) = dARP(8292)/dV(5255) - JVRP(13172) = V(4674) -! JVRP(13173) = dARP(8293)/dV(4674) - JVRP(13173) = V(5252) -! JVRP(13174) = dARP(8293)/dV(5252) - JVRP(13174) = V(4674) -! JVRP(13175) = dARP(8294)/dV(4674) - JVRP(13175) = V(5256) -! JVRP(13176) = dARP(8294)/dV(5256) - JVRP(13176) = V(4674) -! JVRP(13177) = dARP(8295)/dV(4674) - JVRP(13177) = 1 -! JVRP(13178) = dARP(8296)/dV(4674) - JVRP(13178) = 1 -! JVRP(13179) = dARP(8297)/dV(3829) - JVRP(13179) = V(5250) -! JVRP(13180) = dARP(8297)/dV(5250) - JVRP(13180) = V(3829) -! JVRP(13181) = dARP(8298)/dV(3829) - JVRP(13181) = 1 -! JVRP(13182) = dARP(8299)/dV(4788) - JVRP(13182) = V(5253) -! JVRP(13183) = dARP(8299)/dV(5253) - JVRP(13183) = V(4788) -! JVRP(13184) = dARP(8300)/dV(4788) - JVRP(13184) = V(5258) -! JVRP(13185) = dARP(8300)/dV(5258) - JVRP(13185) = V(4788) -! JVRP(13186) = dARP(8301)/dV(943) - JVRP(13186) = V(5250) -! JVRP(13187) = dARP(8301)/dV(5250) - JVRP(13187) = V(943) -! JVRP(13188) = dARP(8302)/dV(943) - JVRP(13188) = 1 -! JVRP(13189) = dARP(8303)/dV(2048) - JVRP(13189) = V(5256) -! JVRP(13190) = dARP(8303)/dV(5256) - JVRP(13190) = V(2048) -! JVRP(13191) = dARP(8304)/dV(2048) - JVRP(13191) = V(5250) -! JVRP(13192) = dARP(8304)/dV(5250) - JVRP(13192) = V(2048) -! JVRP(13193) = dARP(8305)/dV(3142) - JVRP(13193) = V(5256) -! JVRP(13194) = dARP(8305)/dV(5256) - JVRP(13194) = V(3142) -! JVRP(13195) = dARP(8306)/dV(3142) - JVRP(13195) = V(5250) -! JVRP(13196) = dARP(8306)/dV(5250) - JVRP(13196) = V(3142) -! JVRP(13197) = dARP(8307)/dV(4007) - JVRP(13197) = V(5255) -! JVRP(13198) = dARP(8307)/dV(5255) - JVRP(13198) = V(4007) -! JVRP(13199) = dARP(8308)/dV(4007) - JVRP(13199) = V(5252) -! JVRP(13200) = dARP(8308)/dV(5252) - JVRP(13200) = V(4007) -! JVRP(13201) = dARP(8309)/dV(4007) - JVRP(13201) = V(5256) -! JVRP(13202) = dARP(8309)/dV(5256) - JVRP(13202) = V(4007) -! JVRP(13203) = dARP(8310)/dV(4007) - JVRP(13203) = 1 -! JVRP(13204) = dARP(8311)/dV(4694) - JVRP(13204) = V(5250) -! JVRP(13205) = dARP(8311)/dV(5250) - JVRP(13205) = V(4694) -! JVRP(13206) = dARP(8312)/dV(4694) - JVRP(13206) = 1 -! JVRP(13207) = dARP(8313)/dV(423) - JVRP(13207) = V(5250) -! JVRP(13208) = dARP(8313)/dV(5250) - JVRP(13208) = V(423) -! JVRP(13209) = dARP(8314)/dV(1228) - JVRP(13209) = V(5250) -! JVRP(13210) = dARP(8314)/dV(5250) - JVRP(13210) = V(1228) -! JVRP(13211) = dARP(8315)/dV(1228) - JVRP(13211) = 1 -! JVRP(13212) = dARP(8316)/dV(3232) - JVRP(13212) = V(5250) -! JVRP(13213) = dARP(8316)/dV(5250) - JVRP(13213) = V(3232) -! JVRP(13214) = dARP(8317)/dV(3232) - JVRP(13214) = 1 -! JVRP(13215) = dARP(8318)/dV(2379) - JVRP(13215) = V(5250) -! JVRP(13216) = dARP(8318)/dV(5250) - JVRP(13216) = V(2379) -! JVRP(13217) = dARP(8319)/dV(2379) - JVRP(13217) = 1 -! JVRP(13218) = dARP(8320)/dV(3474) - JVRP(13218) = V(5253) -! JVRP(13219) = dARP(8320)/dV(5253) - JVRP(13219) = V(3474) -! JVRP(13220) = dARP(8321)/dV(3765) - JVRP(13220) = 1 -! JVRP(13221) = dARP(8322)/dV(3765) - JVRP(13221) = 1 -! JVRP(13222) = dARP(8323)/dV(2603) - JVRP(13222) = V(5250) -! JVRP(13223) = dARP(8323)/dV(5250) - JVRP(13223) = V(2603) -! JVRP(13224) = dARP(8324)/dV(2603) - JVRP(13224) = 1 -! JVRP(13225) = dARP(8325)/dV(2603) - JVRP(13225) = 1 -! JVRP(13226) = dARP(8326)/dV(3300) - JVRP(13226) = V(5250) -! JVRP(13227) = dARP(8326)/dV(5250) - JVRP(13227) = V(3300) -! JVRP(13228) = dARP(8327)/dV(3300) - JVRP(13228) = 1 -! JVRP(13229) = dARP(8328)/dV(1432) - JVRP(13229) = V(5250) -! JVRP(13230) = dARP(8328)/dV(5250) - JVRP(13230) = V(1432) -! JVRP(13231) = dARP(8329)/dV(1432) - JVRP(13231) = 1 -! JVRP(13232) = dARP(8330)/dV(1378) - JVRP(13232) = V(5250) -! JVRP(13233) = dARP(8330)/dV(5250) - JVRP(13233) = V(1378) -! JVRP(13234) = dARP(8331)/dV(1378) - JVRP(13234) = 1 -! JVRP(13235) = dARP(8332)/dV(2671) - JVRP(13235) = V(5250) -! JVRP(13236) = dARP(8332)/dV(5250) - JVRP(13236) = V(2671) -! JVRP(13237) = dARP(8333)/dV(2671) - JVRP(13237) = 1 -! JVRP(13238) = dARP(8334)/dV(3366) - JVRP(13238) = V(5250) -! JVRP(13239) = dARP(8334)/dV(5250) - JVRP(13239) = V(3366) -! JVRP(13240) = dARP(8335)/dV(3366) - JVRP(13240) = 1 -! JVRP(13241) = dARP(8336)/dV(3366) - JVRP(13241) = 1 -! JVRP(13242) = dARP(8337)/dV(1833) - JVRP(13242) = 1 -! JVRP(13243) = dARP(8338)/dV(3918) - JVRP(13243) = V(5250) -! JVRP(13244) = dARP(8338)/dV(5250) - JVRP(13244) = V(3918) -! JVRP(13245) = dARP(8339)/dV(3918) - JVRP(13245) = 1 -! JVRP(13246) = dARP(8340)/dV(5031) - JVRP(13246) = V(5250) -! JVRP(13247) = dARP(8340)/dV(5250) - JVRP(13247) = V(5031) -! JVRP(13248) = dARP(8341)/dV(5031) - JVRP(13248) = 1 -! JVRP(13249) = dARP(8342)/dV(2047) - JVRP(13249) = V(5250) -! JVRP(13250) = dARP(8342)/dV(5250) - JVRP(13250) = V(2047) -! JVRP(13251) = dARP(8343)/dV(2047) - JVRP(13251) = 1 -! JVRP(13252) = dARP(8344)/dV(2047) - JVRP(13252) = 1 -! JVRP(13253) = dARP(8345)/dV(782) - JVRP(13253) = 1 -! JVRP(13254) = dARP(8346)/dV(1666) - JVRP(13254) = V(5250) -! JVRP(13255) = dARP(8346)/dV(5250) - JVRP(13255) = V(1666) -! JVRP(13256) = dARP(8347)/dV(1666) - JVRP(13256) = 1 -! JVRP(13257) = dARP(8348)/dV(3132) - JVRP(13257) = V(5250) -! JVRP(13258) = dARP(8348)/dV(5250) - JVRP(13258) = V(3132) -! JVRP(13259) = dARP(8349)/dV(3132) - JVRP(13259) = 1 -! JVRP(13260) = dARP(8350)/dV(1389) - JVRP(13260) = V(5250) -! JVRP(13261) = dARP(8350)/dV(5250) - JVRP(13261) = V(1389) -! JVRP(13262) = dARP(8351)/dV(1389) - JVRP(13262) = 1 -! JVRP(13263) = dARP(8352)/dV(1206) - JVRP(13263) = V(5250) -! JVRP(13264) = dARP(8352)/dV(5250) - JVRP(13264) = V(1206) -! JVRP(13265) = dARP(8353)/dV(1206) - JVRP(13265) = 1 -! JVRP(13266) = dARP(8354)/dV(1368) - JVRP(13266) = V(5250) -! JVRP(13267) = dARP(8354)/dV(5250) - JVRP(13267) = V(1368) -! JVRP(13268) = dARP(8355)/dV(1368) - JVRP(13268) = 1 -! JVRP(13269) = dARP(8356)/dV(3441) - JVRP(13269) = V(5250) -! JVRP(13270) = dARP(8356)/dV(5250) - JVRP(13270) = V(3441) -! JVRP(13271) = dARP(8357)/dV(3441) - JVRP(13271) = 1 -! JVRP(13272) = dARP(8358)/dV(3441) - JVRP(13272) = 1 -! JVRP(13273) = dARP(8359)/dV(3441) - JVRP(13273) = 1 -! JVRP(13274) = dARP(8360)/dV(3419) - JVRP(13274) = 1 -! JVRP(13275) = dARP(8361)/dV(3419) - JVRP(13275) = 1 -! JVRP(13276) = dARP(8362)/dV(2310) - JVRP(13276) = V(5250) -! JVRP(13277) = dARP(8362)/dV(5250) - JVRP(13277) = V(2310) -! JVRP(13278) = dARP(8363)/dV(2310) - JVRP(13278) = 1 -! JVRP(13279) = dARP(8364)/dV(4682) - JVRP(13279) = V(5253) -! JVRP(13280) = dARP(8364)/dV(5253) - JVRP(13280) = V(4682) -! JVRP(13281) = dARP(8365)/dV(4682) - JVRP(13281) = V(5258) -! JVRP(13282) = dARP(8365)/dV(5258) - JVRP(13282) = V(4682) -! JVRP(13283) = dARP(8366)/dV(1156) - JVRP(13283) = V(5250) -! JVRP(13284) = dARP(8366)/dV(5250) - JVRP(13284) = V(1156) -! JVRP(13285) = dARP(8367)/dV(1156) - JVRP(13285) = 1 -! JVRP(13286) = dARP(8368)/dV(2420) - JVRP(13286) = V(5256) -! JVRP(13287) = dARP(8368)/dV(5256) - JVRP(13287) = V(2420) -! JVRP(13288) = dARP(8369)/dV(2420) - JVRP(13288) = V(5250) -! JVRP(13289) = dARP(8369)/dV(5250) - JVRP(13289) = V(2420) -! JVRP(13290) = dARP(8370)/dV(3127) - JVRP(13290) = V(5256) -! JVRP(13291) = dARP(8370)/dV(5256) - JVRP(13291) = V(3127) -! JVRP(13292) = dARP(8371)/dV(3127) - JVRP(13292) = V(5250) -! JVRP(13293) = dARP(8371)/dV(5250) - JVRP(13293) = V(3127) -! JVRP(13294) = dARP(8372)/dV(4054) - JVRP(13294) = V(5255) -! JVRP(13295) = dARP(8372)/dV(5255) - JVRP(13295) = V(4054) -! JVRP(13296) = dARP(8373)/dV(4054) - JVRP(13296) = V(5252) -! JVRP(13297) = dARP(8373)/dV(5252) - JVRP(13297) = V(4054) -! JVRP(13298) = dARP(8374)/dV(4054) - JVRP(13298) = V(5256) -! JVRP(13299) = dARP(8374)/dV(5256) - JVRP(13299) = V(4054) -! JVRP(13300) = dARP(8375)/dV(4054) - JVRP(13300) = 1 -! JVRP(13301) = dARP(8376)/dV(5199) - JVRP(13301) = 1 -! JVRP(13302) = dARP(8377)/dV(5199) - JVRP(13302) = 1 -! JVRP(13303) = dARP(8378)/dV(5199) - JVRP(13303) = V(5256) -! JVRP(13304) = dARP(8378)/dV(5256) - JVRP(13304) = V(5199) -! JVRP(13305) = dARP(8379)/dV(5199) - JVRP(13305) = V(5250) -! JVRP(13306) = dARP(8379)/dV(5250) - JVRP(13306) = V(5199) -! JVRP(13307) = dARP(8380)/dV(4632) - JVRP(13307) = V(5253) -! JVRP(13308) = dARP(8380)/dV(5253) - JVRP(13308) = V(4632) -! JVRP(13309) = dARP(8381)/dV(4632) - JVRP(13309) = V(5258) -! JVRP(13310) = dARP(8381)/dV(5258) - JVRP(13310) = V(4632) -! JVRP(13311) = dARP(8382)/dV(843) - JVRP(13311) = V(5250) -! JVRP(13312) = dARP(8382)/dV(5250) - JVRP(13312) = V(843) -! JVRP(13313) = dARP(8383)/dV(843) - JVRP(13313) = 1 -! JVRP(13314) = dARP(8384)/dV(2281) - JVRP(13314) = V(5256) -! JVRP(13315) = dARP(8384)/dV(5256) - JVRP(13315) = V(2281) -! JVRP(13316) = dARP(8385)/dV(2281) - JVRP(13316) = V(5250) -! JVRP(13317) = dARP(8385)/dV(5250) - JVRP(13317) = V(2281) -! JVRP(13318) = dARP(8386)/dV(3116) - JVRP(13318) = V(5256) -! JVRP(13319) = dARP(8386)/dV(5256) - JVRP(13319) = V(3116) -! JVRP(13320) = dARP(8387)/dV(3116) - JVRP(13320) = V(5250) -! JVRP(13321) = dARP(8387)/dV(5250) - JVRP(13321) = V(3116) -! JVRP(13322) = dARP(8388)/dV(4035) - JVRP(13322) = V(5255) -! JVRP(13323) = dARP(8388)/dV(5255) - JVRP(13323) = V(4035) -! JVRP(13324) = dARP(8389)/dV(4035) - JVRP(13324) = V(5252) -! JVRP(13325) = dARP(8389)/dV(5252) - JVRP(13325) = V(4035) -! JVRP(13326) = dARP(8390)/dV(4035) - JVRP(13326) = V(5256) -! JVRP(13327) = dARP(8390)/dV(5256) - JVRP(13327) = V(4035) -! JVRP(13328) = dARP(8391)/dV(4035) - JVRP(13328) = 1 -! JVRP(13329) = dARP(8392)/dV(4703) - JVRP(13329) = V(5255) -! JVRP(13330) = dARP(8392)/dV(5255) - JVRP(13330) = V(4703) -! JVRP(13331) = dARP(8393)/dV(4703) - JVRP(13331) = V(5252) -! JVRP(13332) = dARP(8393)/dV(5252) - JVRP(13332) = V(4703) -! JVRP(13333) = dARP(8394)/dV(4703) - JVRP(13333) = V(5256) -! JVRP(13334) = dARP(8394)/dV(5256) - JVRP(13334) = V(4703) -! JVRP(13335) = dARP(8395)/dV(4703) - JVRP(13335) = 1 -! JVRP(13336) = dARP(8396)/dV(4703) - JVRP(13336) = 1 -! JVRP(13337) = dARP(8397)/dV(4703) - JVRP(13337) = 1 -! JVRP(13338) = dARP(8398)/dV(4663) - JVRP(13338) = V(5253) -! JVRP(13339) = dARP(8398)/dV(5253) - JVRP(13339) = V(4663) -! JVRP(13340) = dARP(8399)/dV(4663) - JVRP(13340) = V(5258) -! JVRP(13341) = dARP(8399)/dV(5258) - JVRP(13341) = V(4663) -! JVRP(13342) = dARP(8400)/dV(852) - JVRP(13342) = V(5250) -! JVRP(13343) = dARP(8400)/dV(5250) - JVRP(13343) = V(852) -! JVRP(13344) = dARP(8401)/dV(852) - JVRP(13344) = 1 -! JVRP(13345) = dARP(8402)/dV(2390) - JVRP(13345) = V(5256) -! JVRP(13346) = dARP(8402)/dV(5256) - JVRP(13346) = V(2390) -! JVRP(13347) = dARP(8403)/dV(2390) - JVRP(13347) = V(5250) -! JVRP(13348) = dARP(8403)/dV(5250) - JVRP(13348) = V(2390) -! JVRP(13349) = dARP(8404)/dV(3087) - JVRP(13349) = V(5256) -! JVRP(13350) = dARP(8404)/dV(5256) - JVRP(13350) = V(3087) -! JVRP(13351) = dARP(8405)/dV(3087) - JVRP(13351) = V(5250) -! JVRP(13352) = dARP(8405)/dV(5250) - JVRP(13352) = V(3087) -! JVRP(13353) = dARP(8406)/dV(4064) - JVRP(13353) = V(5255) -! JVRP(13354) = dARP(8406)/dV(5255) - JVRP(13354) = V(4064) -! JVRP(13355) = dARP(8407)/dV(4064) - JVRP(13355) = V(5252) -! JVRP(13356) = dARP(8407)/dV(5252) - JVRP(13356) = V(4064) -! JVRP(13357) = dARP(8408)/dV(4064) - JVRP(13357) = V(5256) -! JVRP(13358) = dARP(8408)/dV(5256) - JVRP(13358) = V(4064) -! JVRP(13359) = dARP(8409)/dV(4064) - JVRP(13359) = 1 -! JVRP(13360) = dARP(8410)/dV(2690) - JVRP(13360) = V(5250) -! JVRP(13361) = dARP(8410)/dV(5250) - JVRP(13361) = V(2690) -! JVRP(13362) = dARP(8411)/dV(2690) - JVRP(13362) = 1 -! JVRP(13363) = dARP(8412)/dV(2690) - JVRP(13363) = 1 -! JVRP(13364) = dARP(8413)/dV(801) - JVRP(13364) = 1 -! JVRP(13365) = dARP(8414)/dV(1735) - JVRP(13365) = V(5250) -! JVRP(13366) = dARP(8414)/dV(5250) - JVRP(13366) = V(1735) -! JVRP(13367) = dARP(8415)/dV(1735) - JVRP(13367) = 1 -! JVRP(13368) = dARP(8416)/dV(1797) - JVRP(13368) = V(5250) -! JVRP(13369) = dARP(8416)/dV(5250) - JVRP(13369) = V(1797) -! JVRP(13370) = dARP(8417)/dV(1797) - JVRP(13370) = 1 -! JVRP(13371) = dARP(8418)/dV(4946) - JVRP(13371) = V(5255) -! JVRP(13372) = dARP(8418)/dV(5255) - JVRP(13372) = V(4946) -! JVRP(13373) = dARP(8419)/dV(4946) - JVRP(13373) = V(5255) -! JVRP(13374) = dARP(8419)/dV(5255) - JVRP(13374) = V(4946) -! JVRP(13375) = dARP(8420)/dV(4946) - JVRP(13375) = V(5255) -! JVRP(13376) = dARP(8420)/dV(5255) - JVRP(13376) = V(4946) -! JVRP(13377) = dARP(8421)/dV(4946) - JVRP(13377) = V(5252) -! JVRP(13378) = dARP(8421)/dV(5252) - JVRP(13378) = V(4946) -! JVRP(13379) = dARP(8422)/dV(4946) - JVRP(13379) = V(5253) -! JVRP(13380) = dARP(8422)/dV(5253) - JVRP(13380) = V(4946) -! JVRP(13381) = dARP(8423)/dV(4946) - JVRP(13381) = V(5256) -! JVRP(13382) = dARP(8423)/dV(5256) - JVRP(13382) = V(4946) -! JVRP(13383) = dARP(8424)/dV(4946) - JVRP(13383) = 1 -! JVRP(13384) = dARP(8425)/dV(4946) - JVRP(13384) = 1 -! JVRP(13385) = dARP(8426)/dV(3853) - JVRP(13385) = V(5255) -! JVRP(13386) = dARP(8426)/dV(5255) - JVRP(13386) = V(3853) -! JVRP(13387) = dARP(8427)/dV(3853) - JVRP(13387) = V(5252) -! JVRP(13388) = dARP(8427)/dV(5252) - JVRP(13388) = V(3853) -! JVRP(13389) = dARP(8428)/dV(3853) - JVRP(13389) = V(5256) -! JVRP(13390) = dARP(8428)/dV(5256) - JVRP(13390) = V(3853) -! JVRP(13391) = dARP(8429)/dV(3853) - JVRP(13391) = 1 -! JVRP(13392) = dARP(8430)/dV(3853) - JVRP(13392) = 1 -! JVRP(13393) = dARP(8431)/dV(3687) - JVRP(13393) = V(5255) -! JVRP(13394) = dARP(8431)/dV(5255) - JVRP(13394) = V(3687) -! JVRP(13395) = dARP(8432)/dV(3687) - JVRP(13395) = V(5252) -! JVRP(13396) = dARP(8432)/dV(5252) - JVRP(13396) = V(3687) -! JVRP(13397) = dARP(8433)/dV(3687) - JVRP(13397) = V(5256) -! JVRP(13398) = dARP(8433)/dV(5256) - JVRP(13398) = V(3687) -! JVRP(13399) = dARP(8434)/dV(3687) - JVRP(13399) = 1 -! JVRP(13400) = dARP(8435)/dV(4920) - JVRP(13400) = V(5255) -! JVRP(13401) = dARP(8435)/dV(5255) - JVRP(13401) = V(4920) -! JVRP(13402) = dARP(8436)/dV(4920) - JVRP(13402) = V(5252) -! JVRP(13403) = dARP(8436)/dV(5252) - JVRP(13403) = V(4920) -! JVRP(13404) = dARP(8437)/dV(4920) - JVRP(13404) = V(5256) -! JVRP(13405) = dARP(8437)/dV(5256) - JVRP(13405) = V(4920) -! JVRP(13406) = dARP(8438)/dV(4920) - JVRP(13406) = 1 -! JVRP(13407) = dARP(8439)/dV(4920) - JVRP(13407) = 1 -! JVRP(13408) = dARP(8440)/dV(4920) - JVRP(13408) = 1 -! JVRP(13409) = dARP(8441)/dV(3788) - JVRP(13409) = V(5255) -! JVRP(13410) = dARP(8441)/dV(5255) - JVRP(13410) = V(3788) -! JVRP(13411) = dARP(8442)/dV(3788) - JVRP(13411) = V(5252) -! JVRP(13412) = dARP(8442)/dV(5252) - JVRP(13412) = V(3788) -! JVRP(13413) = dARP(8443)/dV(3788) - JVRP(13413) = V(5256) -! JVRP(13414) = dARP(8443)/dV(5256) - JVRP(13414) = V(3788) -! JVRP(13415) = dARP(8444)/dV(3788) - JVRP(13415) = 1 -! JVRP(13416) = dARP(8445)/dV(3788) - JVRP(13416) = 1 -! JVRP(13417) = dARP(8446)/dV(4401) - JVRP(13417) = V(5250) -! JVRP(13418) = dARP(8446)/dV(5250) - JVRP(13418) = V(4401) -! JVRP(13419) = dARP(8447)/dV(4401) - JVRP(13419) = 1 -! JVRP(13420) = dARP(8448)/dV(4401) - JVRP(13420) = 1 -! JVRP(13421) = dARP(8449)/dV(2900) - JVRP(13421) = V(5250) -! JVRP(13422) = dARP(8449)/dV(5250) - JVRP(13422) = V(2900) -! JVRP(13423) = dARP(8450)/dV(2900) - JVRP(13423) = 1 -! JVRP(13424) = dARP(8451)/dV(2900) - JVRP(13424) = 1 -! JVRP(13425) = dARP(8452)/dV(717) - JVRP(13425) = 1 -! JVRP(13426) = dARP(8453)/dV(1716) - JVRP(13426) = V(5250) -! JVRP(13427) = dARP(8453)/dV(5250) - JVRP(13427) = V(1716) -! JVRP(13428) = dARP(8454)/dV(1716) - JVRP(13428) = 1 -! JVRP(13429) = dARP(8455)/dV(2134) - JVRP(13429) = V(5250) -! JVRP(13430) = dARP(8455)/dV(5250) - JVRP(13430) = V(2134) -! JVRP(13431) = dARP(8456)/dV(2134) - JVRP(13431) = 1 -! JVRP(13432) = dARP(8457)/dV(1076) - JVRP(13432) = V(5250) -! JVRP(13433) = dARP(8457)/dV(5250) - JVRP(13433) = V(1076) -! JVRP(13434) = dARP(8458)/dV(1076) - JVRP(13434) = 1 -! JVRP(13435) = dARP(8459)/dV(4050) - JVRP(13435) = V(5255) -! JVRP(13436) = dARP(8459)/dV(5255) - JVRP(13436) = V(4050) -! JVRP(13437) = dARP(8460)/dV(4050) - JVRP(13437) = V(5252) -! JVRP(13438) = dARP(8460)/dV(5252) - JVRP(13438) = V(4050) -! JVRP(13439) = dARP(8461)/dV(4050) - JVRP(13439) = V(5256) -! JVRP(13440) = dARP(8461)/dV(5256) - JVRP(13440) = V(4050) -! JVRP(13441) = dARP(8462)/dV(4050) - JVRP(13441) = 1 -! JVRP(13442) = dARP(8463)/dV(3303) - JVRP(13442) = V(5250) -! JVRP(13443) = dARP(8463)/dV(5250) - JVRP(13443) = V(3303) -! JVRP(13444) = dARP(8464)/dV(3303) - JVRP(13444) = 1 -! JVRP(13445) = dARP(8465)/dV(4178) - JVRP(13445) = V(5250) -! JVRP(13446) = dARP(8465)/dV(5250) - JVRP(13446) = V(4178) -! JVRP(13447) = dARP(8466)/dV(4178) - JVRP(13447) = V(5250) -! JVRP(13448) = dARP(8466)/dV(5250) - JVRP(13448) = V(4178) -! JVRP(13449) = dARP(8467)/dV(4178) - JVRP(13449) = 1 -! JVRP(13450) = dARP(8468)/dV(4178) - JVRP(13450) = 1 -! JVRP(13451) = dARP(8469)/dV(2307) - JVRP(13451) = V(5250) -! JVRP(13452) = dARP(8469)/dV(5250) - JVRP(13452) = V(2307) -! JVRP(13453) = dARP(8470)/dV(2307) - JVRP(13453) = 1 -! JVRP(13454) = dARP(8471)/dV(2681) - JVRP(13454) = V(5250) -! JVRP(13455) = dARP(8471)/dV(5250) - JVRP(13455) = V(2681) -! JVRP(13456) = dARP(8472)/dV(2681) - JVRP(13456) = 1 -! JVRP(13457) = dARP(8473)/dV(1256) - JVRP(13457) = V(5250) -! JVRP(13458) = dARP(8473)/dV(5250) - JVRP(13458) = V(1256) -! JVRP(13459) = dARP(8474)/dV(1256) - JVRP(13459) = 1 -! JVRP(13460) = dARP(8475)/dV(1176) - JVRP(13460) = V(5250) -! JVRP(13461) = dARP(8475)/dV(5250) - JVRP(13461) = V(1176) -! JVRP(13462) = dARP(8476)/dV(1176) - JVRP(13462) = 1 -! JVRP(13463) = dARP(8477)/dV(2630) - JVRP(13463) = V(5250) -! JVRP(13464) = dARP(8477)/dV(5250) - JVRP(13464) = V(2630) -! JVRP(13465) = dARP(8478)/dV(2630) - JVRP(13465) = 1 -! JVRP(13466) = dARP(8479)/dV(2971) - JVRP(13466) = V(5250) -! JVRP(13467) = dARP(8479)/dV(5250) - JVRP(13467) = V(2971) -! JVRP(13468) = dARP(8480)/dV(2971) - JVRP(13468) = 1 -! JVRP(13469) = dARP(8481)/dV(2971) - JVRP(13469) = 1 -! JVRP(13470) = dARP(8482)/dV(2238) - JVRP(13470) = 1 -! JVRP(13471) = dARP(8483)/dV(572) - JVRP(13471) = V(5250) -! JVRP(13472) = dARP(8483)/dV(5250) - JVRP(13472) = V(572) -! JVRP(13473) = dARP(8484)/dV(572) - JVRP(13473) = 1 -! JVRP(13474) = dARP(8485)/dV(2358) - JVRP(13474) = V(5250) -! JVRP(13475) = dARP(8485)/dV(5250) - JVRP(13475) = V(2358) -! JVRP(13476) = dARP(8486)/dV(2358) - JVRP(13476) = 1 -! JVRP(13477) = dARP(8487)/dV(2358) - JVRP(13477) = 1 -! JVRP(13478) = dARP(8488)/dV(750) - JVRP(13478) = 1 -! JVRP(13479) = dARP(8489)/dV(4865) - JVRP(13479) = V(5250) -! JVRP(13480) = dARP(8489)/dV(5250) - JVRP(13480) = V(4865) -! JVRP(13481) = dARP(8490)/dV(4865) - JVRP(13481) = 1 -! JVRP(13482) = dARP(8491)/dV(1917) - JVRP(13482) = 1 -! JVRP(13483) = dARP(8492)/dV(1917) - JVRP(13483) = 1 -! JVRP(13484) = dARP(8493)/dV(1917) - JVRP(13484) = V(5250) -! JVRP(13485) = dARP(8493)/dV(5250) - JVRP(13485) = V(1917) -! JVRP(13486) = dARP(8494)/dV(595) - JVRP(13486) = 1 -! JVRP(13487) = dARP(8495)/dV(2711) - JVRP(13487) = 1 -! JVRP(13488) = dARP(8496)/dV(2711) - JVRP(13488) = V(5250) -! JVRP(13489) = dARP(8496)/dV(5250) - JVRP(13489) = V(2711) -! JVRP(13490) = dARP(8497)/dV(1683) - JVRP(13490) = 1 -! JVRP(13491) = dARP(8498)/dV(1683) - JVRP(13491) = V(5250) -! JVRP(13492) = dARP(8498)/dV(5250) - JVRP(13492) = V(1683) -! JVRP(13493) = dARP(8499)/dV(1969) - JVRP(13493) = V(5250) -! JVRP(13494) = dARP(8499)/dV(5250) - JVRP(13494) = V(1969) -! JVRP(13495) = dARP(8500)/dV(2824) - JVRP(13495) = 1 -! JVRP(13496) = dARP(8501)/dV(2824) - JVRP(13496) = V(5250) -! JVRP(13497) = dARP(8501)/dV(5250) - JVRP(13497) = V(2824) -! JVRP(13498) = dARP(8502)/dV(2531) - JVRP(13498) = 1 -! JVRP(13499) = dARP(8503)/dV(2531) - JVRP(13499) = V(5250) -! JVRP(13500) = dARP(8503)/dV(5250) - JVRP(13500) = V(2531) -! JVRP(13501) = dARP(8504)/dV(4668) - JVRP(13501) = V(5251) -! JVRP(13502) = dARP(8504)/dV(5251) - JVRP(13502) = V(4668) -! JVRP(13503) = dARP(8505)/dV(4668) - JVRP(13503) = V(5252) -! JVRP(13504) = dARP(8505)/dV(5252) - JVRP(13504) = V(4668) -! JVRP(13505) = dARP(8506)/dV(4668) - JVRP(13505) = V(5253) -! JVRP(13506) = dARP(8506)/dV(5253) - JVRP(13506) = V(4668) -! JVRP(13507) = dARP(8507)/dV(4668) - JVRP(13507) = V(5254) -! JVRP(13508) = dARP(8507)/dV(5254) - JVRP(13508) = V(4668) -! JVRP(13509) = dARP(8508)/dV(4668) - JVRP(13509) = 1 -! JVRP(13510) = dARP(8509)/dV(4668) - JVRP(13510) = 1 -! JVRP(13511) = dARP(8510)/dV(3459) - JVRP(13511) = 1 -! JVRP(13512) = dARP(8511)/dV(3459) - JVRP(13512) = 1 -! JVRP(13513) = dARP(8512)/dV(3459) - JVRP(13513) = V(5250) -! JVRP(13514) = dARP(8512)/dV(5250) - JVRP(13514) = V(3459) -! JVRP(13515) = dARP(8513)/dV(2112) - JVRP(13515) = 1 -! JVRP(13516) = dARP(8514)/dV(1644) - JVRP(13516) = 1 -! JVRP(13517) = dARP(8515)/dV(1644) - JVRP(13517) = V(5250) -! JVRP(13518) = dARP(8515)/dV(5250) - JVRP(13518) = V(1644) -! JVRP(13519) = dARP(8516)/dV(3483) - JVRP(13519) = 1 -! JVRP(13520) = dARP(8517)/dV(3483) - JVRP(13520) = V(5256) -! JVRP(13521) = dARP(8517)/dV(5256) - JVRP(13521) = V(3483) -! JVRP(13522) = dARP(8518)/dV(3483) - JVRP(13522) = V(5250) -! JVRP(13523) = dARP(8518)/dV(5250) - JVRP(13523) = V(3483) -! JVRP(13524) = dARP(8519)/dV(1851) - JVRP(13524) = V(5250) -! JVRP(13525) = dARP(8519)/dV(5250) - JVRP(13525) = V(1851) -! JVRP(13526) = dARP(8520)/dV(2494) - JVRP(13526) = 1 -! JVRP(13527) = dARP(8521)/dV(2494) - JVRP(13527) = V(5250) -! JVRP(13528) = dARP(8521)/dV(5250) - JVRP(13528) = V(2494) -! JVRP(13529) = dARP(8522)/dV(2796) - JVRP(13529) = 1 -! JVRP(13530) = dARP(8523)/dV(2796) - JVRP(13530) = V(5250) -! JVRP(13531) = dARP(8523)/dV(5250) - JVRP(13531) = V(2796) -! JVRP(13532) = dARP(8524)/dV(4999) - JVRP(13532) = V(5251) -! JVRP(13533) = dARP(8524)/dV(5251) - JVRP(13533) = V(4999) -! JVRP(13534) = dARP(8525)/dV(4999) - JVRP(13534) = V(5252) -! JVRP(13535) = dARP(8525)/dV(5252) - JVRP(13535) = V(4999) -! JVRP(13536) = dARP(8526)/dV(4999) - JVRP(13536) = V(5253) -! JVRP(13537) = dARP(8526)/dV(5253) - JVRP(13537) = V(4999) -! JVRP(13538) = dARP(8527)/dV(4999) - JVRP(13538) = V(5254) -! JVRP(13539) = dARP(8527)/dV(5254) - JVRP(13539) = V(4999) -! JVRP(13540) = dARP(8528)/dV(4999) - JVRP(13540) = 1 -! JVRP(13541) = dARP(8529)/dV(4999) - JVRP(13541) = 1 -! JVRP(13542) = dARP(8530)/dV(1098) - JVRP(13542) = 1 -! JVRP(13543) = dARP(8531)/dV(1098) - JVRP(13543) = V(5250) -! JVRP(13544) = dARP(8531)/dV(5250) - JVRP(13544) = V(1098) -! JVRP(13545) = dARP(8532)/dV(991) - JVRP(13545) = V(5250) -! JVRP(13546) = dARP(8532)/dV(5250) - JVRP(13546) = V(991) -! JVRP(13547) = dARP(8533)/dV(2816) - JVRP(13547) = 1 -! JVRP(13548) = dARP(8534)/dV(1626) - JVRP(13548) = 1 -! JVRP(13549) = dARP(8535)/dV(1626) - JVRP(13549) = V(5250) -! JVRP(13550) = dARP(8535)/dV(5250) - JVRP(13550) = V(1626) -! JVRP(13551) = dARP(8536)/dV(4851) - JVRP(13551) = 1 -! JVRP(13552) = dARP(8537)/dV(4851) - JVRP(13552) = V(5256) -! JVRP(13553) = dARP(8537)/dV(5256) - JVRP(13553) = V(4851) -! JVRP(13554) = dARP(8538)/dV(4851) - JVRP(13554) = V(5250) -! JVRP(13555) = dARP(8538)/dV(5250) - JVRP(13555) = V(4851) -! JVRP(13556) = dARP(8539)/dV(4776) - JVRP(13556) = V(5251) -! JVRP(13557) = dARP(8539)/dV(5251) - JVRP(13557) = V(4776) -! JVRP(13558) = dARP(8540)/dV(4776) - JVRP(13558) = V(5252) -! JVRP(13559) = dARP(8540)/dV(5252) - JVRP(13559) = V(4776) -! JVRP(13560) = dARP(8541)/dV(4776) - JVRP(13560) = V(5253) -! JVRP(13561) = dARP(8541)/dV(5253) - JVRP(13561) = V(4776) -! JVRP(13562) = dARP(8542)/dV(4776) - JVRP(13562) = V(5254) -! JVRP(13563) = dARP(8542)/dV(5254) - JVRP(13563) = V(4776) -! JVRP(13564) = dARP(8543)/dV(4776) - JVRP(13564) = 1 -! JVRP(13565) = dARP(8544)/dV(4776) - JVRP(13565) = 1 -! JVRP(13566) = dARP(8545)/dV(1220) - JVRP(13566) = V(5250) -! JVRP(13567) = dARP(8545)/dV(5250) - JVRP(13567) = V(1220) -! JVRP(13568) = dARP(8546)/dV(1220) - JVRP(13568) = 1 -! JVRP(13569) = dARP(8547)/dV(1529) - JVRP(13569) = V(5250) -! JVRP(13570) = dARP(8547)/dV(5250) - JVRP(13570) = V(1529) -! JVRP(13571) = dARP(8548)/dV(2596) - JVRP(13571) = 1 -! JVRP(13572) = dARP(8549)/dV(3608) - JVRP(13572) = V(5250) -! JVRP(13573) = dARP(8549)/dV(5250) - JVRP(13573) = V(3608) -! JVRP(13574) = dARP(8550)/dV(3608) - JVRP(13574) = 1 -! JVRP(13575) = dARP(8551)/dV(2695) - JVRP(13575) = V(5250) -! JVRP(13576) = dARP(8551)/dV(5250) - JVRP(13576) = V(2695) -! JVRP(13577) = dARP(8552)/dV(2695) - JVRP(13577) = 1 -! JVRP(13578) = dARP(8553)/dV(2695) - JVRP(13578) = 1 -! JVRP(13579) = dARP(8554)/dV(656) - JVRP(13579) = 1 -! JVRP(13580) = dARP(8555)/dV(2043) - JVRP(13580) = V(5250) -! JVRP(13581) = dARP(8555)/dV(5250) - JVRP(13581) = V(2043) -! JVRP(13582) = dARP(8556)/dV(2043) - JVRP(13582) = 1 -! JVRP(13583) = dARP(8557)/dV(2431) - JVRP(13583) = 1 -! JVRP(13584) = dARP(8558)/dV(2431) - JVRP(13584) = V(5250) -! JVRP(13585) = dARP(8558)/dV(5250) - JVRP(13585) = V(2431) -! JVRP(13586) = dARP(8559)/dV(2801) - JVRP(13586) = 1 -! JVRP(13587) = dARP(8560)/dV(2801) - JVRP(13587) = V(5250) -! JVRP(13588) = dARP(8560)/dV(5250) - JVRP(13588) = V(2801) -! JVRP(13589) = dARP(8561)/dV(4282) - JVRP(13589) = V(5251) -! JVRP(13590) = dARP(8561)/dV(5251) - JVRP(13590) = V(4282) -! JVRP(13591) = dARP(8562)/dV(4282) - JVRP(13591) = V(5252) -! JVRP(13592) = dARP(8562)/dV(5252) - JVRP(13592) = V(4282) -! JVRP(13593) = dARP(8563)/dV(4282) - JVRP(13593) = V(5253) -! JVRP(13594) = dARP(8563)/dV(5253) - JVRP(13594) = V(4282) -! JVRP(13595) = dARP(8564)/dV(4282) - JVRP(13595) = V(5254) -! JVRP(13596) = dARP(8564)/dV(5254) - JVRP(13596) = V(4282) -! JVRP(13597) = dARP(8565)/dV(4282) - JVRP(13597) = 1 -! JVRP(13598) = dARP(8566)/dV(2147) - JVRP(13598) = 1 -! JVRP(13599) = dARP(8567)/dV(2147) - JVRP(13599) = V(5250) -! JVRP(13600) = dARP(8567)/dV(5250) - JVRP(13600) = V(2147) -! JVRP(13601) = dARP(8568)/dV(2147) - JVRP(13601) = V(5250) -! JVRP(13602) = dARP(8568)/dV(5250) - JVRP(13602) = V(2147) -! JVRP(13603) = dARP(8569)/dV(3835) - JVRP(13603) = V(5250) -! JVRP(13604) = dARP(8569)/dV(5250) - JVRP(13604) = V(3835) -! JVRP(13605) = dARP(8570)/dV(3835) - JVRP(13605) = V(5250) -! JVRP(13606) = dARP(8570)/dV(5250) - JVRP(13606) = V(3835) -! JVRP(13607) = dARP(8571)/dV(3835) - JVRP(13607) = V(5250) -! JVRP(13608) = dARP(8571)/dV(5250) - JVRP(13608) = V(3835) -! JVRP(13609) = dARP(8572)/dV(2717) - JVRP(13609) = 1 -! JVRP(13610) = dARP(8573)/dV(3628) - JVRP(13610) = 1 -! JVRP(13611) = dARP(8574)/dV(3628) - JVRP(13611) = V(5250) -! JVRP(13612) = dARP(8574)/dV(5250) - JVRP(13612) = V(3628) -! JVRP(13613) = dARP(8575)/dV(463) - JVRP(13613) = V(5250) -! JVRP(13614) = dARP(8575)/dV(5250) - JVRP(13614) = V(463) -! JVRP(13615) = dARP(8576)/dV(2191) - JVRP(13615) = V(5250) -! JVRP(13616) = dARP(8576)/dV(5250) - JVRP(13616) = V(2191) -! JVRP(13617) = dARP(8577)/dV(3033) - JVRP(13617) = 1 -! JVRP(13618) = dARP(8578)/dV(3033) - JVRP(13618) = V(5250) -! JVRP(13619) = dARP(8578)/dV(5250) - JVRP(13619) = V(3033) -! JVRP(13620) = dARP(8579)/dV(2670) - JVRP(13620) = 1 -! JVRP(13621) = dARP(8580)/dV(2670) - JVRP(13621) = V(5250) -! JVRP(13622) = dARP(8580)/dV(5250) - JVRP(13622) = V(2670) -! JVRP(13623) = dARP(8581)/dV(4213) - JVRP(13623) = V(5251) -! JVRP(13624) = dARP(8581)/dV(5251) - JVRP(13624) = V(4213) -! JVRP(13625) = dARP(8582)/dV(4213) - JVRP(13625) = V(5252) -! JVRP(13626) = dARP(8582)/dV(5252) - JVRP(13626) = V(4213) -! JVRP(13627) = dARP(8583)/dV(4213) - JVRP(13627) = V(5253) -! JVRP(13628) = dARP(8583)/dV(5253) - JVRP(13628) = V(4213) -! JVRP(13629) = dARP(8584)/dV(4213) - JVRP(13629) = V(5254) -! JVRP(13630) = dARP(8584)/dV(5254) - JVRP(13630) = V(4213) -! JVRP(13631) = dARP(8585)/dV(4213) - JVRP(13631) = 1 -! JVRP(13632) = dARP(8586)/dV(1438) - JVRP(13632) = 1 -! JVRP(13633) = dARP(8587)/dV(1438) - JVRP(13633) = V(5250) -! JVRP(13634) = dARP(8587)/dV(5250) - JVRP(13634) = V(1438) -! JVRP(13635) = dARP(8588)/dV(2545) - JVRP(13635) = 1 -! JVRP(13636) = dARP(8589)/dV(55) - JVRP(13636) = V(5250) -! JVRP(13637) = dARP(8589)/dV(5250) - JVRP(13637) = V(55) -! JVRP(13638) = dARP(8590)/dV(3933) - JVRP(13638) = V(5250) -! JVRP(13639) = dARP(8590)/dV(5250) - JVRP(13639) = V(3933) -! JVRP(13640) = dARP(8591)/dV(3933) - JVRP(13640) = 1 -! JVRP(13641) = dARP(8592)/dV(391) - JVRP(13641) = V(5250) -! JVRP(13642) = dARP(8592)/dV(5250) - JVRP(13642) = V(391) -! JVRP(13643) = dARP(8593)/dV(4321) - JVRP(13643) = V(5255) -! JVRP(13644) = dARP(8593)/dV(5255) - JVRP(13644) = V(4321) -! JVRP(13645) = dARP(8594)/dV(4321) - JVRP(13645) = V(5252) -! JVRP(13646) = dARP(8594)/dV(5252) - JVRP(13646) = V(4321) -! JVRP(13647) = dARP(8595)/dV(4321) - JVRP(13647) = V(5252) -! JVRP(13648) = dARP(8595)/dV(5252) - JVRP(13648) = V(4321) -! JVRP(13649) = dARP(8596)/dV(4321) - JVRP(13649) = V(5256) -! JVRP(13650) = dARP(8596)/dV(5256) - JVRP(13650) = V(4321) -! JVRP(13651) = dARP(8597)/dV(4321) - JVRP(13651) = 1 -! JVRP(13652) = dARP(8598)/dV(4321) - JVRP(13652) = 1 -! JVRP(13653) = dARP(8599)/dV(4832) - JVRP(13653) = V(5256) -! JVRP(13654) = dARP(8599)/dV(5256) - JVRP(13654) = V(4832) -! JVRP(13655) = dARP(8600)/dV(4832) - JVRP(13655) = V(5258) -! JVRP(13656) = dARP(8600)/dV(5258) - JVRP(13656) = V(4832) -! JVRP(13657) = dARP(8601)/dV(4832) - JVRP(13657) = V(5250) -! JVRP(13658) = dARP(8601)/dV(5250) - JVRP(13658) = V(4832) -! JVRP(13659) = dARP(8602)/dV(819) - JVRP(13659) = 1 -! JVRP(13660) = dARP(8603)/dV(819) - JVRP(13660) = 1 -! JVRP(13661) = dARP(8604)/dV(1795) - JVRP(13661) = 1 -! JVRP(13662) = dARP(8605)/dV(1795) - JVRP(13662) = 1 -! JVRP(13663) = dARP(8606)/dV(3707) - JVRP(13663) = V(5250) -! JVRP(13664) = dARP(8606)/dV(5250) - JVRP(13664) = V(3707) -! JVRP(13665) = dARP(8607)/dV(3707) - JVRP(13665) = 1 -! JVRP(13666) = dARP(8608)/dV(3707) - JVRP(13666) = 1 -! JVRP(13667) = dARP(8609)/dV(3707) - JVRP(13667) = 1 -! JVRP(13668) = dARP(8610)/dV(1346) - JVRP(13668) = 1 -! JVRP(13669) = dARP(8611)/dV(3464) - JVRP(13669) = V(5250) -! JVRP(13670) = dARP(8611)/dV(5250) - JVRP(13670) = V(3464) -! JVRP(13671) = dARP(8612)/dV(3464) - JVRP(13671) = V(5250) -! JVRP(13672) = dARP(8612)/dV(5250) - JVRP(13672) = V(3464) -! JVRP(13673) = dARP(8613)/dV(3464) - JVRP(13673) = 1 -! JVRP(13674) = dARP(8614)/dV(3464) - JVRP(13674) = 1 -! JVRP(13675) = dARP(8615)/dV(4805) - JVRP(13675) = V(5258) -! JVRP(13676) = dARP(8615)/dV(5258) - JVRP(13676) = V(4805) -! JVRP(13677) = dARP(8616)/dV(4805) - JVRP(13677) = V(5258) -! JVRP(13678) = dARP(8616)/dV(5258) - JVRP(13678) = V(4805) -! JVRP(13679) = dARP(8617)/dV(4805) - JVRP(13679) = V(5250) -! JVRP(13680) = dARP(8617)/dV(5250) - JVRP(13680) = V(4805) -! JVRP(13681) = dARP(8618)/dV(4805) - JVRP(13681) = 1 -! JVRP(13682) = dARP(8619)/dV(29) - JVRP(13682) = 1 -! JVRP(13683) = dARP(8620)/dV(3693) - JVRP(13683) = V(5250) -! JVRP(13684) = dARP(8620)/dV(5250) - JVRP(13684) = V(3693) -! JVRP(13685) = dARP(8621)/dV(3693) - JVRP(13685) = 1 -! JVRP(13686) = dARP(8622)/dV(3693) - JVRP(13686) = 1 -! JVRP(13687) = dARP(8623)/dV(1558) - JVRP(13687) = V(5250) -! JVRP(13688) = dARP(8623)/dV(5250) - JVRP(13688) = V(1558) -! JVRP(13689) = dARP(8624)/dV(1558) - JVRP(13689) = 1 -! JVRP(13690) = dARP(8625)/dV(5025) - JVRP(13690) = V(5255) -! JVRP(13691) = dARP(8625)/dV(5255) - JVRP(13691) = V(5025) -! JVRP(13692) = dARP(8626)/dV(5025) - JVRP(13692) = V(5255) -! JVRP(13693) = dARP(8626)/dV(5255) - JVRP(13693) = V(5025) -! JVRP(13694) = dARP(8627)/dV(5025) - JVRP(13694) = V(5255) -! JVRP(13695) = dARP(8627)/dV(5255) - JVRP(13695) = V(5025) -! JVRP(13696) = dARP(8628)/dV(5025) - JVRP(13696) = V(5252) -! JVRP(13697) = dARP(8628)/dV(5252) - JVRP(13697) = V(5025) -! JVRP(13698) = dARP(8629)/dV(5025) - JVRP(13698) = V(5253) -! JVRP(13699) = dARP(8629)/dV(5253) - JVRP(13699) = V(5025) -! JVRP(13700) = dARP(8630)/dV(5025) - JVRP(13700) = V(5256) -! JVRP(13701) = dARP(8630)/dV(5256) - JVRP(13701) = V(5025) -! JVRP(13702) = dARP(8631)/dV(5025) - JVRP(13702) = 1 -! JVRP(13703) = dARP(8632)/dV(5025) - JVRP(13703) = 1 -! JVRP(13704) = dARP(8633)/dV(5025) - JVRP(13704) = 1 -! JVRP(13705) = dARP(8634)/dV(5035) - JVRP(13705) = V(5255) -! JVRP(13706) = dARP(8634)/dV(5255) - JVRP(13706) = V(5035) -! JVRP(13707) = dARP(8635)/dV(5035) - JVRP(13707) = V(5252) -! JVRP(13708) = dARP(8635)/dV(5252) - JVRP(13708) = V(5035) -! JVRP(13709) = dARP(8636)/dV(5035) - JVRP(13709) = V(5252) -! JVRP(13710) = dARP(8636)/dV(5252) - JVRP(13710) = V(5035) -! JVRP(13711) = dARP(8637)/dV(5035) - JVRP(13711) = V(5256) -! JVRP(13712) = dARP(8637)/dV(5256) - JVRP(13712) = V(5035) -! JVRP(13713) = dARP(8638)/dV(5035) - JVRP(13713) = 1 -! JVRP(13714) = dARP(8639)/dV(5035) - JVRP(13714) = 1 -! JVRP(13715) = dARP(8640)/dV(3428) - JVRP(13715) = V(5250) -! JVRP(13716) = dARP(8640)/dV(5250) - JVRP(13716) = V(3428) -! JVRP(13717) = dARP(8641)/dV(3428) - JVRP(13717) = V(5250) -! JVRP(13718) = dARP(8641)/dV(5250) - JVRP(13718) = V(3428) -! JVRP(13719) = dARP(8642)/dV(3428) - JVRP(13719) = V(5250) -! JVRP(13720) = dARP(8642)/dV(5250) - JVRP(13720) = V(3428) -! JVRP(13721) = dARP(8643)/dV(3428) - JVRP(13721) = V(5250) -! JVRP(13722) = dARP(8643)/dV(5250) - JVRP(13722) = V(3428) -! JVRP(13723) = dARP(8644)/dV(3428) - JVRP(13723) = V(5250) -! JVRP(13724) = dARP(8644)/dV(5250) - JVRP(13724) = V(3428) -! JVRP(13725) = dARP(8645)/dV(2489) - JVRP(13725) = 1 -! JVRP(13726) = dARP(8646)/dV(2489) - JVRP(13726) = 1 -! JVRP(13727) = dARP(8647)/dV(2489) - JVRP(13727) = 1 -! JVRP(13728) = dARP(8648)/dV(2489) - JVRP(13728) = 1 -! JVRP(13729) = dARP(8649)/dV(5074) - JVRP(13729) = V(5255) -! JVRP(13730) = dARP(8649)/dV(5255) - JVRP(13730) = V(5074) -! JVRP(13731) = dARP(8650)/dV(5074) - JVRP(13731) = V(5252) -! JVRP(13732) = dARP(8650)/dV(5252) - JVRP(13732) = V(5074) -! JVRP(13733) = dARP(8651)/dV(5074) - JVRP(13733) = V(5252) -! JVRP(13734) = dARP(8651)/dV(5252) - JVRP(13734) = V(5074) -! JVRP(13735) = dARP(8652)/dV(5074) - JVRP(13735) = V(5256) -! JVRP(13736) = dARP(8652)/dV(5256) - JVRP(13736) = V(5074) -! JVRP(13737) = dARP(8653)/dV(5074) - JVRP(13737) = 1 -! JVRP(13738) = dARP(8654)/dV(5074) - JVRP(13738) = 1 -! JVRP(13739) = dARP(8655)/dV(5074) - JVRP(13739) = 1 -! JVRP(13740) = dARP(8656)/dV(5154) - JVRP(13740) = V(5255) -! JVRP(13741) = dARP(8656)/dV(5255) - JVRP(13741) = V(5154) -! JVRP(13742) = dARP(8657)/dV(5154) - JVRP(13742) = V(5252) -! JVRP(13743) = dARP(8657)/dV(5252) - JVRP(13743) = V(5154) -! JVRP(13744) = dARP(8658)/dV(5154) - JVRP(13744) = V(5252) -! JVRP(13745) = dARP(8658)/dV(5252) - JVRP(13745) = V(5154) -! JVRP(13746) = dARP(8659)/dV(5154) - JVRP(13746) = 1 -! JVRP(13747) = dARP(8660)/dV(5154) - JVRP(13747) = 1 -! JVRP(13748) = dARP(8661)/dV(5154) - JVRP(13748) = 1 -! JVRP(13749) = dARP(8662)/dV(678) - JVRP(13749) = V(5250) -! JVRP(13750) = dARP(8662)/dV(5250) - JVRP(13750) = V(678) -! JVRP(13751) = dARP(8663)/dV(678) - JVRP(13751) = V(5250) -! JVRP(13752) = dARP(8663)/dV(5250) - JVRP(13752) = V(678) -! JVRP(13753) = dARP(8664)/dV(3801) - JVRP(13753) = V(5255) -! JVRP(13754) = dARP(8664)/dV(5255) - JVRP(13754) = V(3801) -! JVRP(13755) = dARP(8665)/dV(3801) - JVRP(13755) = V(5252) -! JVRP(13756) = dARP(8665)/dV(5252) - JVRP(13756) = V(3801) -! JVRP(13757) = dARP(8666)/dV(3801) - JVRP(13757) = V(5252) -! JVRP(13758) = dARP(8666)/dV(5252) - JVRP(13758) = V(3801) -! JVRP(13759) = dARP(8667)/dV(3801) - JVRP(13759) = V(5256) -! JVRP(13760) = dARP(8667)/dV(5256) - JVRP(13760) = V(3801) -! JVRP(13761) = dARP(8668)/dV(3801) - JVRP(13761) = 1 -! JVRP(13762) = dARP(8669)/dV(3801) - JVRP(13762) = 1 -! JVRP(13763) = dARP(8670)/dV(3524) - JVRP(13763) = V(5250) -! JVRP(13764) = dARP(8670)/dV(5250) - JVRP(13764) = V(3524) -! JVRP(13765) = dARP(8671)/dV(3524) - JVRP(13765) = 1 -! JVRP(13766) = dARP(8672)/dV(3524) - JVRP(13766) = 1 -! JVRP(13767) = dARP(8673)/dV(3524) - JVRP(13767) = 1 -! JVRP(13768) = dARP(8674)/dV(1246) - JVRP(13768) = 1 -! JVRP(13769) = dARP(8675)/dV(4749) - JVRP(13769) = V(5250) -! JVRP(13770) = dARP(8675)/dV(5250) - JVRP(13770) = V(4749) -! JVRP(13771) = dARP(8676)/dV(4749) - JVRP(13771) = V(5250) -! JVRP(13772) = dARP(8676)/dV(5250) - JVRP(13772) = V(4749) -! JVRP(13773) = dARP(8677)/dV(4749) - JVRP(13773) = 1 -! JVRP(13774) = dARP(8678)/dV(4749) - JVRP(13774) = 1 -! JVRP(13775) = dARP(8679)/dV(4749) - JVRP(13775) = 1 -! JVRP(13776) = dARP(8680)/dV(4570) - JVRP(13776) = V(5258) -! JVRP(13777) = dARP(8680)/dV(5258) - JVRP(13777) = V(4570) -! JVRP(13778) = dARP(8681)/dV(4570) - JVRP(13778) = V(5258) -! JVRP(13779) = dARP(8681)/dV(5258) - JVRP(13779) = V(4570) -! JVRP(13780) = dARP(8682)/dV(4570) - JVRP(13780) = V(5250) -! JVRP(13781) = dARP(8682)/dV(5250) - JVRP(13781) = V(4570) -! JVRP(13782) = dARP(8683)/dV(4570) - JVRP(13782) = 1 -! JVRP(13783) = dARP(8684)/dV(19) - JVRP(13783) = 1 -! JVRP(13784) = dARP(8685)/dV(4339) - JVRP(13784) = V(5255) -! JVRP(13785) = dARP(8685)/dV(5255) - JVRP(13785) = V(4339) -! JVRP(13786) = dARP(8686)/dV(4339) - JVRP(13786) = V(5252) -! JVRP(13787) = dARP(8686)/dV(5252) - JVRP(13787) = V(4339) -! JVRP(13788) = dARP(8687)/dV(4339) - JVRP(13788) = V(5256) -! JVRP(13789) = dARP(8687)/dV(5256) - JVRP(13789) = V(4339) -! JVRP(13790) = dARP(8688)/dV(4339) - JVRP(13790) = 1 -! JVRP(13791) = dARP(8689)/dV(1682) - JVRP(13791) = V(5250) -! JVRP(13792) = dARP(8689)/dV(5250) - JVRP(13792) = V(1682) -! JVRP(13793) = dARP(8690)/dV(1682) - JVRP(13793) = 1 -! JVRP(13794) = dARP(8691)/dV(5033) - JVRP(13794) = V(5255) -! JVRP(13795) = dARP(8691)/dV(5255) - JVRP(13795) = V(5033) -! JVRP(13796) = dARP(8692)/dV(5033) - JVRP(13796) = V(5255) -! JVRP(13797) = dARP(8692)/dV(5255) - JVRP(13797) = V(5033) -! JVRP(13798) = dARP(8693)/dV(5033) - JVRP(13798) = V(5255) -! JVRP(13799) = dARP(8693)/dV(5255) - JVRP(13799) = V(5033) -! JVRP(13800) = dARP(8694)/dV(5033) - JVRP(13800) = V(5252) -! JVRP(13801) = dARP(8694)/dV(5252) - JVRP(13801) = V(5033) -! JVRP(13802) = dARP(8695)/dV(5033) - JVRP(13802) = V(5253) -! JVRP(13803) = dARP(8695)/dV(5253) - JVRP(13803) = V(5033) -! JVRP(13804) = dARP(8696)/dV(5033) - JVRP(13804) = V(5256) -! JVRP(13805) = dARP(8696)/dV(5256) - JVRP(13805) = V(5033) -! JVRP(13806) = dARP(8697)/dV(5033) - JVRP(13806) = 1 -! JVRP(13807) = dARP(8698)/dV(5033) - JVRP(13807) = 1 -! JVRP(13808) = dARP(8699)/dV(5033) - JVRP(13808) = 1 -! JVRP(13809) = dARP(8700)/dV(4711) - JVRP(13809) = V(5255) -! JVRP(13810) = dARP(8700)/dV(5255) - JVRP(13810) = V(4711) -! JVRP(13811) = dARP(8701)/dV(4711) - JVRP(13811) = V(5252) -! JVRP(13812) = dARP(8701)/dV(5252) - JVRP(13812) = V(4711) -! JVRP(13813) = dARP(8702)/dV(4711) - JVRP(13813) = V(5252) -! JVRP(13814) = dARP(8702)/dV(5252) - JVRP(13814) = V(4711) -! JVRP(13815) = dARP(8703)/dV(4711) - JVRP(13815) = V(5256) -! JVRP(13816) = dARP(8703)/dV(5256) - JVRP(13816) = V(4711) -! JVRP(13817) = dARP(8704)/dV(4711) - JVRP(13817) = 1 -! JVRP(13818) = dARP(8705)/dV(5174) - JVRP(13818) = V(5255) -! JVRP(13819) = dARP(8705)/dV(5255) - JVRP(13819) = V(5174) -! JVRP(13820) = dARP(8706)/dV(5174) - JVRP(13820) = V(5252) -! JVRP(13821) = dARP(8706)/dV(5252) - JVRP(13821) = V(5174) -! JVRP(13822) = dARP(8707)/dV(5174) - JVRP(13822) = V(5252) -! JVRP(13823) = dARP(8707)/dV(5252) - JVRP(13823) = V(5174) -! JVRP(13824) = dARP(8708)/dV(5174) - JVRP(13824) = V(5256) -! JVRP(13825) = dARP(8708)/dV(5256) - JVRP(13825) = V(5174) -! JVRP(13826) = dARP(8709)/dV(5174) - JVRP(13826) = 1 -! JVRP(13827) = dARP(8710)/dV(5174) - JVRP(13827) = 1 -! JVRP(13828) = dARP(8711)/dV(5174) - JVRP(13828) = 1 -! JVRP(13829) = dARP(8712)/dV(790) - JVRP(13829) = 1 -! JVRP(13830) = dARP(8713)/dV(790) - JVRP(13830) = 1 -! JVRP(13831) = dARP(8714)/dV(5022) - JVRP(13831) = V(5255) -! JVRP(13832) = dARP(8714)/dV(5255) - JVRP(13832) = V(5022) -! JVRP(13833) = dARP(8715)/dV(5022) - JVRP(13833) = V(5252) -! JVRP(13834) = dARP(8715)/dV(5252) - JVRP(13834) = V(5022) -! JVRP(13835) = dARP(8716)/dV(5022) - JVRP(13835) = V(5252) -! JVRP(13836) = dARP(8716)/dV(5252) - JVRP(13836) = V(5022) -! JVRP(13837) = dARP(8717)/dV(5022) - JVRP(13837) = V(5256) -! JVRP(13838) = dARP(8717)/dV(5256) - JVRP(13838) = V(5022) -! JVRP(13839) = dARP(8718)/dV(5022) - JVRP(13839) = 1 -! JVRP(13840) = dARP(8719)/dV(5022) - JVRP(13840) = 1 -! JVRP(13841) = dARP(8720)/dV(5134) - JVRP(13841) = V(5255) -! JVRP(13842) = dARP(8720)/dV(5255) - JVRP(13842) = V(5134) -! JVRP(13843) = dARP(8721)/dV(5134) - JVRP(13843) = V(5252) -! JVRP(13844) = dARP(8721)/dV(5252) - JVRP(13844) = V(5134) -! JVRP(13845) = dARP(8722)/dV(5134) - JVRP(13845) = V(5256) -! JVRP(13846) = dARP(8722)/dV(5256) - JVRP(13846) = V(5134) -! JVRP(13847) = dARP(8723)/dV(5134) - JVRP(13847) = 1 -! JVRP(13848) = dARP(8724)/dV(3552) - JVRP(13848) = 1 -! JVRP(13849) = dARP(8725)/dV(3552) - JVRP(13849) = V(5250) -! JVRP(13850) = dARP(8725)/dV(5250) - JVRP(13850) = V(3552) -! JVRP(13851) = dARP(8726)/dV(3552) - JVRP(13851) = V(5250) -! JVRP(13852) = dARP(8726)/dV(5250) - JVRP(13852) = V(3552) -! JVRP(13853) = dARP(8727)/dV(4945) - JVRP(13853) = V(5250) -! JVRP(13854) = dARP(8727)/dV(5250) - JVRP(13854) = V(4945) -! JVRP(13855) = dARP(8728)/dV(4945) - JVRP(13855) = V(5250) -! JVRP(13856) = dARP(8728)/dV(5250) - JVRP(13856) = V(4945) -! JVRP(13857) = dARP(8729)/dV(4945) - JVRP(13857) = V(5250) -! JVRP(13858) = dARP(8729)/dV(5250) - JVRP(13858) = V(4945) -! JVRP(13859) = dARP(8730)/dV(4945) - JVRP(13859) = V(5250) -! JVRP(13860) = dARP(8730)/dV(5250) - JVRP(13860) = V(4945) -! JVRP(13861) = dARP(8731)/dV(4945) - JVRP(13861) = V(5250) -! JVRP(13862) = dARP(8731)/dV(5250) - JVRP(13862) = V(4945) -! JVRP(13863) = dARP(8732)/dV(2162) - JVRP(13863) = 1 -! JVRP(13864) = dARP(8733)/dV(458) - JVRP(13864) = V(5250) -! JVRP(13865) = dARP(8733)/dV(5250) - JVRP(13865) = V(458) -! JVRP(13866) = dARP(8734)/dV(4556) - JVRP(13866) = V(5251) -! JVRP(13867) = dARP(8734)/dV(5251) - JVRP(13867) = V(4556) -! JVRP(13868) = dARP(8735)/dV(4556) - JVRP(13868) = V(5252) -! JVRP(13869) = dARP(8735)/dV(5252) - JVRP(13869) = V(4556) -! JVRP(13870) = dARP(8736)/dV(4556) - JVRP(13870) = V(5253) -! JVRP(13871) = dARP(8736)/dV(5253) - JVRP(13871) = V(4556) -! JVRP(13872) = dARP(8737)/dV(4556) - JVRP(13872) = V(5254) -! JVRP(13873) = dARP(8737)/dV(5254) - JVRP(13873) = V(4556) -! JVRP(13874) = dARP(8738)/dV(4556) - JVRP(13874) = 1 -! JVRP(13875) = dARP(8739)/dV(2236) - JVRP(13875) = 1 -! JVRP(13876) = dARP(8740)/dV(2236) - JVRP(13876) = V(5250) -! JVRP(13877) = dARP(8740)/dV(5250) - JVRP(13877) = V(2236) -! JVRP(13878) = dARP(8741)/dV(4256) - JVRP(13878) = 1 -! JVRP(13879) = dARP(8742)/dV(4256) - JVRP(13879) = V(5250) -! JVRP(13880) = dARP(8742)/dV(5250) - JVRP(13880) = V(4256) -! JVRP(13881) = dARP(8743)/dV(3080) - JVRP(13881) = 1 -! JVRP(13882) = dARP(8744)/dV(70) - JVRP(13882) = V(5250) -! JVRP(13883) = dARP(8744)/dV(5250) - JVRP(13883) = V(70) -! JVRP(13884) = dARP(8745)/dV(2402) - JVRP(13884) = V(5250) -! JVRP(13885) = dARP(8745)/dV(5250) - JVRP(13885) = V(2402) -! JVRP(13886) = dARP(8746)/dV(2402) - JVRP(13886) = 1 -! JVRP(13887) = dARP(8747)/dV(2576) - JVRP(13887) = V(5250) -! JVRP(13888) = dARP(8747)/dV(5250) - JVRP(13888) = V(2576) -! JVRP(13889) = dARP(8748)/dV(2576) - JVRP(13889) = 1 -! JVRP(13890) = dARP(8749)/dV(114) - JVRP(13890) = V(5250) -! JVRP(13891) = dARP(8749)/dV(5250) - JVRP(13891) = V(114) -! JVRP(13892) = dARP(8750)/dV(4939) - JVRP(13892) = 1 -! JVRP(13893) = dARP(8751)/dV(4939) - JVRP(13893) = V(5256) -! JVRP(13894) = dARP(8751)/dV(5256) - JVRP(13894) = V(4939) -! JVRP(13895) = dARP(8752)/dV(4939) - JVRP(13895) = V(5250) -! JVRP(13896) = dARP(8752)/dV(5250) - JVRP(13896) = V(4939) -! JVRP(13897) = dARP(8753)/dV(5091) - JVRP(13897) = V(5255) -! JVRP(13898) = dARP(8753)/dV(5255) - JVRP(13898) = V(5091) -! JVRP(13899) = dARP(8754)/dV(5091) - JVRP(13899) = V(5252) -! JVRP(13900) = dARP(8754)/dV(5252) - JVRP(13900) = V(5091) -! JVRP(13901) = dARP(8755)/dV(5091) - JVRP(13901) = V(5252) -! JVRP(13902) = dARP(8755)/dV(5252) - JVRP(13902) = V(5091) -! JVRP(13903) = dARP(8756)/dV(5091) - JVRP(13903) = V(5256) -! JVRP(13904) = dARP(8756)/dV(5256) - JVRP(13904) = V(5091) -! JVRP(13905) = dARP(8757)/dV(5091) - JVRP(13905) = 1 -! JVRP(13906) = dARP(8758)/dV(5091) - JVRP(13906) = 1 -! JVRP(13907) = dARP(8759)/dV(5091) - JVRP(13907) = 1 -! JVRP(13908) = dARP(8760)/dV(5091) - JVRP(13908) = 1 -! JVRP(13909) = dARP(8761)/dV(2156) - JVRP(13909) = V(5250) -! JVRP(13910) = dARP(8761)/dV(5250) - JVRP(13910) = V(2156) -! JVRP(13911) = dARP(8762)/dV(2156) - JVRP(13911) = V(5250) -! JVRP(13912) = dARP(8762)/dV(5250) - JVRP(13912) = V(2156) -! JVRP(13913) = dARP(8763)/dV(2156) - JVRP(13913) = 1 -! JVRP(13914) = dARP(8764)/dV(2461) - JVRP(13914) = V(5250) -! JVRP(13915) = dARP(8764)/dV(5250) - JVRP(13915) = V(2461) -! JVRP(13916) = dARP(8765)/dV(2461) - JVRP(13916) = 1 -! JVRP(13917) = dARP(8766)/dV(3344) - JVRP(13917) = 1 -! JVRP(13918) = dARP(8767)/dV(3344) - JVRP(13918) = 1 -! JVRP(13919) = dARP(8768)/dV(319) - JVRP(13919) = V(5250) -! JVRP(13920) = dARP(8768)/dV(5250) - JVRP(13920) = V(319) -! JVRP(13921) = dARP(8769)/dV(3626) - JVRP(13921) = V(5250) -! JVRP(13922) = dARP(8769)/dV(5250) - JVRP(13922) = V(3626) -! JVRP(13923) = dARP(8770)/dV(2187) - JVRP(13923) = V(5250) -! JVRP(13924) = dARP(8770)/dV(5250) - JVRP(13924) = V(2187) -! JVRP(13925) = dARP(8771)/dV(2187) - JVRP(13925) = V(5250) -! JVRP(13926) = dARP(8771)/dV(5250) - JVRP(13926) = V(2187) -! JVRP(13927) = dARP(8772)/dV(2187) - JVRP(13927) = 1 -! JVRP(13928) = dARP(8773)/dV(2375) - JVRP(13928) = V(5250) -! JVRP(13929) = dARP(8773)/dV(5250) - JVRP(13929) = V(2375) -! JVRP(13930) = dARP(8774)/dV(2375) - JVRP(13930) = 1 -! JVRP(13931) = dARP(8775)/dV(1743) - JVRP(13931) = 1 -! JVRP(13932) = dARP(8776)/dV(4231) - JVRP(13932) = V(5256) -! JVRP(13933) = dARP(8776)/dV(5256) - JVRP(13933) = V(4231) -! JVRP(13934) = dARP(8777)/dV(4231) - JVRP(13934) = V(5250) -! JVRP(13935) = dARP(8777)/dV(5250) - JVRP(13935) = V(4231) -! JVRP(13936) = dARP(8778)/dV(4231) - JVRP(13936) = 1 -! JVRP(13937) = dARP(8779)/dV(2716) - JVRP(13937) = V(5250) -! JVRP(13938) = dARP(8779)/dV(5250) - JVRP(13938) = V(2716) -! JVRP(13939) = dARP(8780)/dV(2260) - JVRP(13939) = V(5250) -! JVRP(13940) = dARP(8780)/dV(5250) - JVRP(13940) = V(2260) -! JVRP(13941) = dARP(8781)/dV(2260) - JVRP(13941) = V(5250) -! JVRP(13942) = dARP(8781)/dV(5250) - JVRP(13942) = V(2260) -! JVRP(13943) = dARP(8782)/dV(2260) - JVRP(13943) = 1 -! JVRP(13944) = dARP(8783)/dV(51) - JVRP(13944) = 1 -! JVRP(13945) = dARP(8784)/dV(3510) - JVRP(13945) = V(5256) -! JVRP(13946) = dARP(8784)/dV(5256) - JVRP(13946) = V(3510) -! JVRP(13947) = dARP(8785)/dV(3510) - JVRP(13947) = V(5250) -! JVRP(13948) = dARP(8785)/dV(5250) - JVRP(13948) = V(3510) -! JVRP(13949) = dARP(8786)/dV(3510) - JVRP(13949) = 1 -! JVRP(13950) = dARP(8787)/dV(1870) - JVRP(13950) = V(5250) -! JVRP(13951) = dARP(8787)/dV(5250) - JVRP(13951) = V(1870) -! JVRP(13952) = dARP(8788)/dV(2753) - JVRP(13952) = V(5250) -! JVRP(13953) = dARP(8788)/dV(5250) - JVRP(13953) = V(2753) -! JVRP(13954) = dARP(8789)/dV(2753) - JVRP(13954) = V(5250) -! JVRP(13955) = dARP(8789)/dV(5250) - JVRP(13955) = V(2753) -! JVRP(13956) = dARP(8790)/dV(2753) - JVRP(13956) = 1 -! JVRP(13957) = dARP(8791)/dV(1728) - JVRP(13957) = V(5250) -! JVRP(13958) = dARP(8791)/dV(5250) - JVRP(13958) = V(1728) -! JVRP(13959) = dARP(8792)/dV(2672) - JVRP(13959) = V(5250) -! JVRP(13960) = dARP(8792)/dV(5250) - JVRP(13960) = V(2672) -! JVRP(13961) = dARP(8793)/dV(2672) - JVRP(13961) = 1 -! JVRP(13962) = dARP(8794)/dV(1553) - JVRP(13962) = 1 -! JVRP(13963) = dARP(8795)/dV(208) - JVRP(13963) = V(5250) -! JVRP(13964) = dARP(8795)/dV(5250) - JVRP(13964) = V(208) -! JVRP(13965) = dARP(8796)/dV(4612) - JVRP(13965) = V(5255) -! JVRP(13966) = dARP(8796)/dV(5255) - JVRP(13966) = V(4612) -! JVRP(13967) = dARP(8797)/dV(4612) - JVRP(13967) = V(5255) -! JVRP(13968) = dARP(8797)/dV(5255) - JVRP(13968) = V(4612) -! JVRP(13969) = dARP(8798)/dV(4612) - JVRP(13969) = V(5252) -! JVRP(13970) = dARP(8798)/dV(5252) - JVRP(13970) = V(4612) -! JVRP(13971) = dARP(8799)/dV(4612) - JVRP(13971) = V(5252) -! JVRP(13972) = dARP(8799)/dV(5252) - JVRP(13972) = V(4612) -! JVRP(13973) = dARP(8800)/dV(4612) - JVRP(13973) = V(5256) -! JVRP(13974) = dARP(8800)/dV(5256) - JVRP(13974) = V(4612) -! JVRP(13975) = dARP(8801)/dV(4612) - JVRP(13975) = 1 -! JVRP(13976) = dARP(8802)/dV(4612) - JVRP(13976) = 1 -! JVRP(13977) = dARP(8803)/dV(4612) - JVRP(13977) = 1 -! JVRP(13978) = dARP(8804)/dV(1449) - JVRP(13978) = V(5250) -! JVRP(13979) = dARP(8804)/dV(5250) - JVRP(13979) = V(1449) -! JVRP(13980) = dARP(8805)/dV(1449) - JVRP(13980) = 1 -! JVRP(13981) = dARP(8806)/dV(1864) - JVRP(13981) = V(5250) -! JVRP(13982) = dARP(8806)/dV(5250) - JVRP(13982) = V(1864) -! JVRP(13983) = dARP(8807)/dV(1864) - JVRP(13983) = 1 -! JVRP(13984) = dARP(8808)/dV(1865) - JVRP(13984) = 1 -! JVRP(13985) = dARP(8809)/dV(471) - JVRP(13985) = V(5250) -! JVRP(13986) = dARP(8809)/dV(5250) - JVRP(13986) = V(471) -! JVRP(13987) = dARP(8810)/dV(1869) - JVRP(13987) = V(5250) -! JVRP(13988) = dARP(8810)/dV(5250) - JVRP(13988) = V(1869) -! JVRP(13989) = dARP(8811)/dV(1869) - JVRP(13989) = 1 -! JVRP(13990) = dARP(8812)/dV(2954) - JVRP(13990) = 1 -! JVRP(13991) = dARP(8813)/dV(2405) - JVRP(13991) = V(5250) -! JVRP(13992) = dARP(8813)/dV(5250) - JVRP(13992) = V(2405) -! JVRP(13993) = dARP(8814)/dV(2405) - JVRP(13993) = 1 -! JVRP(13994) = dARP(8815)/dV(321) - JVRP(13994) = V(5250) -! JVRP(13995) = dARP(8815)/dV(5250) - JVRP(13995) = V(321) -! JVRP(13996) = dARP(8816)/dV(1160) - JVRP(13996) = V(5250) -! JVRP(13997) = dARP(8816)/dV(5250) - JVRP(13997) = V(1160) -! JVRP(13998) = dARP(8817)/dV(1160) - JVRP(13998) = 1 -! JVRP(13999) = dARP(8818)/dV(3405) - JVRP(13999) = 1 -! JVRP(14000) = dARP(8819)/dV(1952) - JVRP(14000) = V(5250) -! JVRP(14001) = dARP(8819)/dV(5250) - JVRP(14001) = V(1952) -! JVRP(14002) = dARP(8820)/dV(1952) - JVRP(14002) = 1 -! JVRP(14003) = dARP(8821)/dV(381) - JVRP(14003) = V(5250) -! JVRP(14004) = dARP(8821)/dV(5250) - JVRP(14004) = V(381) -! JVRP(14005) = dARP(8822)/dV(309) - JVRP(14005) = V(5250) -! JVRP(14006) = dARP(8822)/dV(5250) - JVRP(14006) = V(309) -! JVRP(14007) = dARP(8823)/dV(1064) - JVRP(14007) = V(5250) -! JVRP(14008) = dARP(8823)/dV(5250) - JVRP(14008) = V(1064) -! JVRP(14009) = dARP(8824)/dV(1064) - JVRP(14009) = 1 -! JVRP(14010) = dARP(8825)/dV(2757) - JVRP(14010) = V(5250) -! JVRP(14011) = dARP(8825)/dV(5250) - JVRP(14011) = V(2757) -! JVRP(14012) = dARP(8826)/dV(2757) - JVRP(14012) = 1 -! JVRP(14013) = dARP(8827)/dV(3049) - JVRP(14013) = V(5250) -! JVRP(14014) = dARP(8827)/dV(5250) - JVRP(14014) = V(3049) -! JVRP(14015) = dARP(8828)/dV(3049) - JVRP(14015) = V(5250) -! JVRP(14016) = dARP(8828)/dV(5250) - JVRP(14016) = V(3049) -! JVRP(14017) = dARP(8829)/dV(3049) - JVRP(14017) = 1 -! JVRP(14018) = dARP(8830)/dV(665) - JVRP(14018) = 1 -! JVRP(14019) = dARP(8831)/dV(3682) - JVRP(14019) = V(5250) -! JVRP(14020) = dARP(8831)/dV(5250) - JVRP(14020) = V(3682) -! JVRP(14021) = dARP(8832)/dV(3682) - JVRP(14021) = 1 -! JVRP(14022) = dARP(8833)/dV(4239) - JVRP(14022) = V(5256) -! JVRP(14023) = dARP(8833)/dV(5256) - JVRP(14023) = V(4239) -! JVRP(14024) = dARP(8834)/dV(4239) - JVRP(14024) = V(5250) -! JVRP(14025) = dARP(8834)/dV(5250) - JVRP(14025) = V(4239) -! JVRP(14026) = dARP(8835)/dV(4239) - JVRP(14026) = 1 -! JVRP(14027) = dARP(8836)/dV(3708) - JVRP(14027) = 1 -! JVRP(14028) = dARP(8837)/dV(3708) - JVRP(14028) = V(5250) -! JVRP(14029) = dARP(8837)/dV(5250) - JVRP(14029) = V(3708) -! JVRP(14030) = dARP(8838)/dV(3708) - JVRP(14030) = V(5250) -! JVRP(14031) = dARP(8838)/dV(5250) - JVRP(14031) = V(3708) -! JVRP(14032) = dARP(8839)/dV(1825) - JVRP(14032) = 1 -! JVRP(14033) = dARP(8840)/dV(1938) - JVRP(14033) = V(5250) -! JVRP(14034) = dARP(8840)/dV(5250) - JVRP(14034) = V(1938) -! JVRP(14035) = dARP(8841)/dV(1938) - JVRP(14035) = V(5250) -! JVRP(14036) = dARP(8841)/dV(5250) - JVRP(14036) = V(1938) -! JVRP(14037) = dARP(8842)/dV(1938) - JVRP(14037) = 1 -! JVRP(14038) = dARP(8843)/dV(2000) - JVRP(14038) = 1 -! JVRP(14039) = dARP(8844)/dV(1655) - JVRP(14039) = V(5250) -! JVRP(14040) = dARP(8844)/dV(5250) - JVRP(14040) = V(1655) -! JVRP(14041) = dARP(8845)/dV(1655) - JVRP(14041) = 1 -! JVRP(14042) = dARP(8846)/dV(3683) - JVRP(14042) = V(5250) -! JVRP(14043) = dARP(8846)/dV(5250) - JVRP(14043) = V(3683) -! JVRP(14044) = dARP(8847)/dV(3683) - JVRP(14044) = 1 -! JVRP(14045) = dARP(8848)/dV(1099) - JVRP(14045) = V(5250) -! JVRP(14046) = dARP(8848)/dV(5250) - JVRP(14046) = V(1099) -! JVRP(14047) = dARP(8849)/dV(1099) - JVRP(14047) = 1 -! JVRP(14048) = dARP(8850)/dV(2679) - JVRP(14048) = 1 -! JVRP(14049) = dARP(8851)/dV(2424) - JVRP(14049) = V(5250) -! JVRP(14050) = dARP(8851)/dV(5250) - JVRP(14050) = V(2424) -! JVRP(14051) = dARP(8852)/dV(2424) - JVRP(14051) = 1 -! JVRP(14052) = dARP(8853)/dV(2424) - JVRP(14052) = 1 -! JVRP(14053) = dARP(8854)/dV(600) - JVRP(14053) = 1 -! JVRP(14054) = dARP(8855)/dV(1646) - JVRP(14054) = V(5250) -! JVRP(14055) = dARP(8855)/dV(5250) - JVRP(14055) = V(1646) -! JVRP(14056) = dARP(8856)/dV(1646) - JVRP(14056) = 1 -! JVRP(14057) = dARP(8857)/dV(4392) - JVRP(14057) = 1 -! JVRP(14058) = dARP(8858)/dV(4392) - JVRP(14058) = V(5250) -! JVRP(14059) = dARP(8858)/dV(5250) - JVRP(14059) = V(4392) -! JVRP(14060) = dARP(8859)/dV(3287) - JVRP(14060) = 1 -! JVRP(14061) = dARP(8860)/dV(3287) - JVRP(14061) = 1 -! JVRP(14062) = dARP(8861)/dV(3287) - JVRP(14062) = V(5250) -! JVRP(14063) = dARP(8861)/dV(5250) - JVRP(14063) = V(3287) -! JVRP(14064) = dARP(8862)/dV(3287) - JVRP(14064) = V(5250) -! JVRP(14065) = dARP(8862)/dV(5250) - JVRP(14065) = V(3287) -! JVRP(14066) = dARP(8863)/dV(689) - JVRP(14066) = 1 -! JVRP(14067) = dARP(8864)/dV(1658) - JVRP(14067) = 1 -! JVRP(14068) = dARP(8865)/dV(1658) - JVRP(14068) = V(5250) -! JVRP(14069) = dARP(8865)/dV(5250) - JVRP(14069) = V(1658) -! JVRP(14070) = dARP(8866)/dV(2395) - JVRP(14070) = 1 -! JVRP(14071) = dARP(8867)/dV(2395) - JVRP(14071) = V(5250) -! JVRP(14072) = dARP(8867)/dV(5250) - JVRP(14072) = V(2395) -! JVRP(14073) = dARP(8868)/dV(2397) - JVRP(14073) = 1 -! JVRP(14074) = dARP(8869)/dV(2397) - JVRP(14074) = V(5250) -! JVRP(14075) = dARP(8869)/dV(5250) - JVRP(14075) = V(2397) -! JVRP(14076) = dARP(8870)/dV(3031) - JVRP(14076) = 1 -! JVRP(14077) = dARP(8871)/dV(3031) - JVRP(14077) = 1 -! JVRP(14078) = dARP(8872)/dV(3031) - JVRP(14078) = V(5250) -! JVRP(14079) = dARP(8872)/dV(5250) - JVRP(14079) = V(3031) -! JVRP(14080) = dARP(8873)/dV(2883) - JVRP(14080) = 1 -! JVRP(14081) = dARP(8874)/dV(2883) - JVRP(14081) = V(5250) -! JVRP(14082) = dARP(8874)/dV(5250) - JVRP(14082) = V(2883) -! JVRP(14083) = dARP(8875)/dV(1212) - JVRP(14083) = V(5250) -! JVRP(14084) = dARP(8875)/dV(5250) - JVRP(14084) = V(1212) -! JVRP(14085) = dARP(8876)/dV(1212) - JVRP(14085) = 1 -! JVRP(14086) = dARP(8877)/dV(2190) - JVRP(14086) = 1 -! JVRP(14087) = dARP(8878)/dV(2618) - JVRP(14087) = V(5250) -! JVRP(14088) = dARP(8878)/dV(5250) - JVRP(14088) = V(2618) -! JVRP(14089) = dARP(8879)/dV(2618) - JVRP(14089) = V(5250) -! JVRP(14090) = dARP(8879)/dV(5250) - JVRP(14090) = V(2618) -! JVRP(14091) = dARP(8880)/dV(2618) - JVRP(14091) = 1 -! JVRP(14092) = dARP(8881)/dV(2618) - JVRP(14092) = 1 -! JVRP(14093) = dARP(8882)/dV(610) - JVRP(14093) = 1 -! JVRP(14094) = dARP(8883)/dV(2428) - JVRP(14094) = 1 -! JVRP(14095) = dARP(8884)/dV(2428) - JVRP(14095) = 1 -! JVRP(14096) = dARP(8885)/dV(2428) - JVRP(14096) = V(5250) -! JVRP(14097) = dARP(8885)/dV(5250) - JVRP(14097) = V(2428) -! JVRP(14098) = dARP(8886)/dV(682) - JVRP(14098) = 1 -! JVRP(14099) = dARP(8887)/dV(5110) - JVRP(14099) = 1 -! JVRP(14100) = dARP(8888)/dV(5110) - JVRP(14100) = 1 -! JVRP(14101) = dARP(8889)/dV(5110) - JVRP(14101) = V(5250) -! JVRP(14102) = dARP(8889)/dV(5250) - JVRP(14102) = V(5110) -! JVRP(14103) = dARP(8890)/dV(1566) - JVRP(14103) = 1 -! JVRP(14104) = dARP(8891)/dV(1566) - JVRP(14104) = V(5250) -! JVRP(14105) = dARP(8891)/dV(5250) - JVRP(14105) = V(1566) -! JVRP(14106) = dARP(8892)/dV(2247) - JVRP(14106) = 1 -! JVRP(14107) = dARP(8893)/dV(2247) - JVRP(14107) = V(5250) -! JVRP(14108) = dARP(8893)/dV(5250) - JVRP(14108) = V(2247) -! JVRP(14109) = dARP(8894)/dV(2247) - JVRP(14109) = V(5250) -! JVRP(14110) = dARP(8894)/dV(5250) - JVRP(14110) = V(2247) -! JVRP(14111) = dARP(8895)/dV(1856) - JVRP(14111) = 1 -! JVRP(14112) = dARP(8896)/dV(1856) - JVRP(14112) = V(5250) -! JVRP(14113) = dARP(8896)/dV(5250) - JVRP(14113) = V(1856) -! JVRP(14114) = dARP(8897)/dV(2939) - JVRP(14114) = 1 -! JVRP(14115) = dARP(8898)/dV(2939) - JVRP(14115) = 1 -! JVRP(14116) = dARP(8899)/dV(1337) - JVRP(14116) = 1 -! JVRP(14117) = dARP(8900)/dV(1337) - JVRP(14117) = V(5250) -! JVRP(14118) = dARP(8900)/dV(5250) - JVRP(14118) = V(1337) -! JVRP(14119) = dARP(8901)/dV(2123) - JVRP(14119) = 1 -! JVRP(14120) = dARP(8902)/dV(2123) - JVRP(14120) = V(5250) -! JVRP(14121) = dARP(8902)/dV(5250) - JVRP(14121) = V(2123) -! JVRP(14122) = dARP(8903)/dV(2528) - JVRP(14122) = 1 -! JVRP(14123) = dARP(8904)/dV(3616) - JVRP(14123) = 1 -! JVRP(14124) = dARP(8905)/dV(3616) - JVRP(14124) = V(5250) -! JVRP(14125) = dARP(8905)/dV(5250) - JVRP(14125) = V(3616) -! JVRP(14126) = dARP(8906)/dV(586) - JVRP(14126) = 1 -! JVRP(14127) = dARP(8907)/dV(586) - JVRP(14127) = V(5250) -! JVRP(14128) = dARP(8907)/dV(5250) - JVRP(14128) = V(586) -! JVRP(14129) = dARP(8908)/dV(1406) - JVRP(14129) = V(5250) -! JVRP(14130) = dARP(8908)/dV(5250) - JVRP(14130) = V(1406) -! JVRP(14131) = dARP(8909)/dV(1406) - JVRP(14131) = 1 -! JVRP(14132) = dARP(8910)/dV(3346) - JVRP(14132) = 1 -! JVRP(14133) = dARP(8911)/dV(3346) - JVRP(14133) = 1 -! JVRP(14134) = dARP(8912)/dV(2940) - JVRP(14134) = V(5250) -! JVRP(14135) = dARP(8912)/dV(5250) - JVRP(14135) = V(2940) -! JVRP(14136) = dARP(8913)/dV(2940) - JVRP(14136) = V(5250) -! JVRP(14137) = dARP(8913)/dV(5250) - JVRP(14137) = V(2940) -! JVRP(14138) = dARP(8914)/dV(2940) - JVRP(14138) = 1 -! JVRP(14139) = dARP(8915)/dV(1650) - JVRP(14139) = 1 -! JVRP(14140) = dARP(8916)/dV(3756) - JVRP(14140) = V(5250) -! JVRP(14141) = dARP(8916)/dV(5250) - JVRP(14141) = V(3756) -! JVRP(14142) = dARP(8917)/dV(3756) - JVRP(14142) = 1 -! JVRP(14143) = dARP(8918)/dV(1705) - JVRP(14143) = V(5250) -! JVRP(14144) = dARP(8918)/dV(5250) - JVRP(14144) = V(1705) -! JVRP(14145) = dARP(8919)/dV(1705) - JVRP(14145) = 1 -! JVRP(14146) = dARP(8920)/dV(1495) - JVRP(14146) = V(5250) -! JVRP(14147) = dARP(8920)/dV(5250) - JVRP(14147) = V(1495) -! JVRP(14148) = dARP(8921)/dV(1495) - JVRP(14148) = 1 -! JVRP(14149) = dARP(8922)/dV(2692) - JVRP(14149) = 1 -! JVRP(14150) = dARP(8923)/dV(3473) - JVRP(14150) = V(5250) -! JVRP(14151) = dARP(8923)/dV(5250) - JVRP(14151) = V(3473) -! JVRP(14152) = dARP(8924)/dV(3473) - JVRP(14152) = V(5250) -! JVRP(14153) = dARP(8924)/dV(5250) - JVRP(14153) = V(3473) -! JVRP(14154) = dARP(8925)/dV(3473) - JVRP(14154) = 1 -! JVRP(14155) = dARP(8926)/dV(3473) - JVRP(14155) = 1 -! JVRP(14156) = dARP(8927)/dV(749) - JVRP(14156) = 1 -! JVRP(14157) = dARP(8928)/dV(2932) - JVRP(14157) = V(5250) -! JVRP(14158) = dARP(8928)/dV(5250) - JVRP(14158) = V(2932) -! JVRP(14159) = dARP(8929)/dV(2932) - JVRP(14159) = 1 -! JVRP(14160) = dARP(8930)/dV(1601) - JVRP(14160) = V(5250) -! JVRP(14161) = dARP(8930)/dV(5250) - JVRP(14161) = V(1601) -! JVRP(14162) = dARP(8931)/dV(1601) - JVRP(14162) = 1 -! JVRP(14163) = dARP(8932)/dV(1498) - JVRP(14163) = V(5250) -! JVRP(14164) = dARP(8932)/dV(5250) - JVRP(14164) = V(1498) -! JVRP(14165) = dARP(8933)/dV(1498) - JVRP(14165) = 1 -! JVRP(14166) = dARP(8934)/dV(2560) - JVRP(14166) = V(5250) -! JVRP(14167) = dARP(8934)/dV(5250) - JVRP(14167) = V(2560) -! JVRP(14168) = dARP(8935)/dV(2560) - JVRP(14168) = 1 -! JVRP(14169) = dARP(8936)/dV(1217) - JVRP(14169) = V(5250) -! JVRP(14170) = dARP(8936)/dV(5250) - JVRP(14170) = V(1217) -! JVRP(14171) = dARP(8937)/dV(1217) - JVRP(14171) = 1 -! JVRP(14172) = dARP(8938)/dV(1292) - JVRP(14172) = V(5250) -! JVRP(14173) = dARP(8938)/dV(5250) - JVRP(14173) = V(1292) -! JVRP(14174) = dARP(8939)/dV(1292) - JVRP(14174) = 1 -! JVRP(14175) = dARP(8940)/dV(2881) - JVRP(14175) = 1 -! JVRP(14176) = dARP(8941)/dV(3291) - JVRP(14176) = 1 -! JVRP(14177) = dARP(8942)/dV(3291) - JVRP(14177) = V(5250) -! JVRP(14178) = dARP(8942)/dV(5250) - JVRP(14178) = V(3291) -! JVRP(14179) = dARP(8943)/dV(3291) - JVRP(14179) = V(5250) -! JVRP(14180) = dARP(8943)/dV(5250) - JVRP(14180) = V(3291) -! JVRP(14181) = dARP(8944)/dV(1556) - JVRP(14181) = 1 -! JVRP(14182) = dARP(8945)/dV(608) - JVRP(14182) = 1 -! JVRP(14183) = dARP(8946)/dV(608) - JVRP(14183) = V(5250) -! JVRP(14184) = dARP(8946)/dV(5250) - JVRP(14184) = V(608) -! JVRP(14185) = dARP(8947)/dV(2255) - JVRP(14185) = 1 -! JVRP(14186) = dARP(8948)/dV(2255) - JVRP(14186) = V(5250) -! JVRP(14187) = dARP(8948)/dV(5250) - JVRP(14187) = V(2255) -! JVRP(14188) = dARP(8949)/dV(363) - JVRP(14188) = V(5250) -! JVRP(14189) = dARP(8949)/dV(5250) - JVRP(14189) = V(363) -! JVRP(14190) = dARP(8950)/dV(1193) - JVRP(14190) = 1 -! JVRP(14191) = dARP(8951)/dV(1193) - JVRP(14191) = V(5250) -! JVRP(14192) = dARP(8951)/dV(5250) - JVRP(14192) = V(1193) -! JVRP(14193) = dARP(8952)/dV(3239) - JVRP(14193) = 1 -! JVRP(14194) = dARP(8953)/dV(3239) - JVRP(14194) = V(5250) -! JVRP(14195) = dARP(8953)/dV(5250) - JVRP(14195) = V(3239) -! JVRP(14196) = dARP(8954)/dV(1935) - JVRP(14196) = V(5250) -! JVRP(14197) = dARP(8954)/dV(5250) - JVRP(14197) = V(1935) -! JVRP(14198) = dARP(8955)/dV(1935) - JVRP(14198) = 1 -! JVRP(14199) = dARP(8956)/dV(557) - JVRP(14199) = 1 -! JVRP(14200) = dARP(8957)/dV(4996) - JVRP(14200) = V(5256) -! JVRP(14201) = dARP(8957)/dV(5256) - JVRP(14201) = V(4996) -! JVRP(14202) = dARP(8958)/dV(4996) - JVRP(14202) = V(5250) -! JVRP(14203) = dARP(8958)/dV(5250) - JVRP(14203) = V(4996) -! JVRP(14204) = dARP(8959)/dV(4996) - JVRP(14204) = 1 -! JVRP(14205) = dARP(8960)/dV(4996) - JVRP(14205) = 1 -! JVRP(14206) = dARP(8961)/dV(3580) - JVRP(14206) = V(5250) -! JVRP(14207) = dARP(8961)/dV(5250) - JVRP(14207) = V(3580) -! JVRP(14208) = dARP(8962)/dV(3580) - JVRP(14208) = 1 -! JVRP(14209) = dARP(8963)/dV(3055) - JVRP(14209) = V(5250) -! JVRP(14210) = dARP(8963)/dV(5250) - JVRP(14210) = V(3055) -! JVRP(14211) = dARP(8964)/dV(3055) - JVRP(14211) = V(5250) -! JVRP(14212) = dARP(8964)/dV(5250) - JVRP(14212) = V(3055) -! JVRP(14213) = dARP(8965)/dV(3055) - JVRP(14213) = 1 -! JVRP(14214) = dARP(8966)/dV(2186) - JVRP(14214) = 1 -! JVRP(14215) = dARP(8967)/dV(2186) - JVRP(14215) = 1 -! JVRP(14216) = dARP(8968)/dV(1777) - JVRP(14216) = V(5250) -! JVRP(14217) = dARP(8968)/dV(5250) - JVRP(14217) = V(1777) -! JVRP(14218) = dARP(8969)/dV(1777) - JVRP(14218) = 1 -! JVRP(14219) = dARP(8970)/dV(3389) - JVRP(14219) = V(5250) -! JVRP(14220) = dARP(8970)/dV(5250) - JVRP(14220) = V(3389) -! JVRP(14221) = dARP(8971)/dV(3389) - JVRP(14221) = 1 -! JVRP(14222) = dARP(8972)/dV(4124) - JVRP(14222) = V(5255) -! JVRP(14223) = dARP(8972)/dV(5255) - JVRP(14223) = V(4124) -! JVRP(14224) = dARP(8973)/dV(4124) - JVRP(14224) = V(5252) -! JVRP(14225) = dARP(8973)/dV(5252) - JVRP(14225) = V(4124) -! JVRP(14226) = dARP(8974)/dV(4124) - JVRP(14226) = V(5252) -! JVRP(14227) = dARP(8974)/dV(5252) - JVRP(14227) = V(4124) -! JVRP(14228) = dARP(8975)/dV(4124) - JVRP(14228) = V(5256) -! JVRP(14229) = dARP(8975)/dV(5256) - JVRP(14229) = V(4124) -! JVRP(14230) = dARP(8976)/dV(4124) - JVRP(14230) = 1 -! JVRP(14231) = dARP(8977)/dV(4124) - JVRP(14231) = 1 -! JVRP(14232) = dARP(8978)/dV(1043) - JVRP(14232) = V(5250) -! JVRP(14233) = dARP(8978)/dV(5250) - JVRP(14233) = V(1043) -! JVRP(14234) = dARP(8979)/dV(1043) - JVRP(14234) = 1 -! JVRP(14235) = dARP(8980)/dV(42) - JVRP(14235) = 1 -! JVRP(14236) = dARP(8981)/dV(1462) - JVRP(14236) = V(5250) -! JVRP(14237) = dARP(8981)/dV(5250) - JVRP(14237) = V(1462) -! JVRP(14238) = dARP(8982)/dV(1462) - JVRP(14238) = 1 -! JVRP(14239) = dARP(8983)/dV(2951) - JVRP(14239) = V(5250) -! JVRP(14240) = dARP(8983)/dV(5250) - JVRP(14240) = V(2951) -! JVRP(14241) = dARP(8984)/dV(2951) - JVRP(14241) = 1 -! JVRP(14242) = dARP(8985)/dV(3955) - JVRP(14242) = V(5255) -! JVRP(14243) = dARP(8985)/dV(5255) - JVRP(14243) = V(3955) -! JVRP(14244) = dARP(8986)/dV(3955) - JVRP(14244) = V(5252) -! JVRP(14245) = dARP(8986)/dV(5252) - JVRP(14245) = V(3955) -! JVRP(14246) = dARP(8987)/dV(3955) - JVRP(14246) = V(5252) -! JVRP(14247) = dARP(8987)/dV(5252) - JVRP(14247) = V(3955) -! JVRP(14248) = dARP(8988)/dV(3955) - JVRP(14248) = V(5256) -! JVRP(14249) = dARP(8988)/dV(5256) - JVRP(14249) = V(3955) -! JVRP(14250) = dARP(8989)/dV(3955) - JVRP(14250) = 1 -! JVRP(14251) = dARP(8990)/dV(3955) - JVRP(14251) = 1 -! JVRP(14252) = dARP(8991)/dV(4910) - JVRP(14252) = V(5255) -! JVRP(14253) = dARP(8991)/dV(5255) - JVRP(14253) = V(4910) -! JVRP(14254) = dARP(8992)/dV(4910) - JVRP(14254) = V(5255) -! JVRP(14255) = dARP(8992)/dV(5255) - JVRP(14255) = V(4910) -! JVRP(14256) = dARP(8993)/dV(4910) - JVRP(14256) = V(5255) -! JVRP(14257) = dARP(8993)/dV(5255) - JVRP(14257) = V(4910) -! JVRP(14258) = dARP(8994)/dV(4910) - JVRP(14258) = V(5252) -! JVRP(14259) = dARP(8994)/dV(5252) - JVRP(14259) = V(4910) -! JVRP(14260) = dARP(8995)/dV(4910) - JVRP(14260) = V(5253) -! JVRP(14261) = dARP(8995)/dV(5253) - JVRP(14261) = V(4910) -! JVRP(14262) = dARP(8996)/dV(4910) - JVRP(14262) = V(5256) -! JVRP(14263) = dARP(8996)/dV(5256) - JVRP(14263) = V(4910) -! JVRP(14264) = dARP(8997)/dV(4910) - JVRP(14264) = 1 -! JVRP(14265) = dARP(8998)/dV(4910) - JVRP(14265) = 1 -! JVRP(14266) = dARP(8999)/dV(4830) - JVRP(14266) = V(5255) -! JVRP(14267) = dARP(8999)/dV(5255) - JVRP(14267) = V(4830) -! JVRP(14268) = dARP(9000)/dV(4830) - JVRP(14268) = V(5255) -! JVRP(14269) = dARP(9000)/dV(5255) - JVRP(14269) = V(4830) -! JVRP(14270) = dARP(9001)/dV(4830) - JVRP(14270) = V(5255) -! JVRP(14271) = dARP(9001)/dV(5255) - JVRP(14271) = V(4830) -! JVRP(14272) = dARP(9002)/dV(4830) - JVRP(14272) = V(5252) -! JVRP(14273) = dARP(9002)/dV(5252) - JVRP(14273) = V(4830) -! JVRP(14274) = dARP(9003)/dV(4830) - JVRP(14274) = V(5253) -! JVRP(14275) = dARP(9003)/dV(5253) - JVRP(14275) = V(4830) -! JVRP(14276) = dARP(9004)/dV(4830) - JVRP(14276) = V(5256) -! JVRP(14277) = dARP(9004)/dV(5256) - JVRP(14277) = V(4830) -! JVRP(14278) = dARP(9005)/dV(4830) - JVRP(14278) = 1 -! JVRP(14279) = dARP(9006)/dV(4830) - JVRP(14279) = 1 -! JVRP(14280) = dARP(9007)/dV(4898) - JVRP(14280) = V(5255) -! JVRP(14281) = dARP(9007)/dV(5255) - JVRP(14281) = V(4898) -! JVRP(14282) = dARP(9008)/dV(4898) - JVRP(14282) = V(5252) -! JVRP(14283) = dARP(9008)/dV(5252) - JVRP(14283) = V(4898) -! JVRP(14284) = dARP(9009)/dV(4898) - JVRP(14284) = V(5256) -! JVRP(14285) = dARP(9009)/dV(5256) - JVRP(14285) = V(4898) -! JVRP(14286) = dARP(9010)/dV(4898) - JVRP(14286) = 1 -! JVRP(14287) = dARP(9011)/dV(3741) - JVRP(14287) = V(5255) -! JVRP(14288) = dARP(9011)/dV(5255) - JVRP(14288) = V(3741) -! JVRP(14289) = dARP(9012)/dV(3741) - JVRP(14289) = V(5252) -! JVRP(14290) = dARP(9012)/dV(5252) - JVRP(14290) = V(3741) -! JVRP(14291) = dARP(9013)/dV(3741) - JVRP(14291) = V(5256) -! JVRP(14292) = dARP(9013)/dV(5256) - JVRP(14292) = V(3741) -! JVRP(14293) = dARP(9014)/dV(3741) - JVRP(14293) = 1 -! JVRP(14294) = dARP(9015)/dV(3741) - JVRP(14294) = 1 -! JVRP(14295) = dARP(9016)/dV(4288) - JVRP(14295) = V(5255) -! JVRP(14296) = dARP(9016)/dV(5255) - JVRP(14296) = V(4288) -! JVRP(14297) = dARP(9017)/dV(4288) - JVRP(14297) = V(5255) -! JVRP(14298) = dARP(9017)/dV(5255) - JVRP(14298) = V(4288) -! JVRP(14299) = dARP(9018)/dV(4288) - JVRP(14299) = V(5252) -! JVRP(14300) = dARP(9018)/dV(5252) - JVRP(14300) = V(4288) -! JVRP(14301) = dARP(9019)/dV(4288) - JVRP(14301) = V(5253) -! JVRP(14302) = dARP(9019)/dV(5253) - JVRP(14302) = V(4288) -! JVRP(14303) = dARP(9020)/dV(4288) - JVRP(14303) = V(5256) -! JVRP(14304) = dARP(9020)/dV(5256) - JVRP(14304) = V(4288) -! JVRP(14305) = dARP(9021)/dV(4288) - JVRP(14305) = 1 -! JVRP(14306) = dARP(9022)/dV(4257) - JVRP(14306) = V(5255) -! JVRP(14307) = dARP(9022)/dV(5255) - JVRP(14307) = V(4257) -! JVRP(14308) = dARP(9023)/dV(4257) - JVRP(14308) = V(5252) -! JVRP(14309) = dARP(9023)/dV(5252) - JVRP(14309) = V(4257) -! JVRP(14310) = dARP(9024)/dV(4257) - JVRP(14310) = V(5256) -! JVRP(14311) = dARP(9024)/dV(5256) - JVRP(14311) = V(4257) -! JVRP(14312) = dARP(9025)/dV(4257) - JVRP(14312) = 1 -! JVRP(14313) = dARP(9026)/dV(4092) - JVRP(14313) = V(5255) -! JVRP(14314) = dARP(9026)/dV(5255) - JVRP(14314) = V(4092) -! JVRP(14315) = dARP(9027)/dV(4092) - JVRP(14315) = V(5252) -! JVRP(14316) = dARP(9027)/dV(5252) - JVRP(14316) = V(4092) -! JVRP(14317) = dARP(9028)/dV(4092) - JVRP(14317) = V(5252) -! JVRP(14318) = dARP(9028)/dV(5252) - JVRP(14318) = V(4092) -! JVRP(14319) = dARP(9029)/dV(4092) - JVRP(14319) = V(5256) -! JVRP(14320) = dARP(9029)/dV(5256) - JVRP(14320) = V(4092) -! JVRP(14321) = dARP(9030)/dV(4092) - JVRP(14321) = 1 -! JVRP(14322) = dARP(9031)/dV(4092) - JVRP(14322) = 1 -! JVRP(14323) = dARP(9032)/dV(1059) - JVRP(14323) = V(5250) -! JVRP(14324) = dARP(9032)/dV(5250) - JVRP(14324) = V(1059) -! JVRP(14325) = dARP(9033)/dV(1059) - JVRP(14325) = 1 -! JVRP(14326) = dARP(9034)/dV(2462) - JVRP(14326) = V(5250) -! JVRP(14327) = dARP(9034)/dV(5250) - JVRP(14327) = V(2462) -! JVRP(14328) = dARP(9035)/dV(2462) - JVRP(14328) = 1 -! JVRP(14329) = dARP(9036)/dV(2324) - JVRP(14329) = 1 -! JVRP(14330) = dARP(9037)/dV(516) - JVRP(14330) = V(5250) -! JVRP(14331) = dARP(9037)/dV(5250) - JVRP(14331) = V(516) -! JVRP(14332) = dARP(9038)/dV(1770) - JVRP(14332) = V(5250) -! JVRP(14333) = dARP(9038)/dV(5250) - JVRP(14333) = V(1770) -! JVRP(14334) = dARP(9039)/dV(1770) - JVRP(14334) = 1 -! JVRP(14335) = dARP(9040)/dV(2898) - JVRP(14335) = V(5250) -! JVRP(14336) = dARP(9040)/dV(5250) - JVRP(14336) = V(2898) -! JVRP(14337) = dARP(9041)/dV(2898) - JVRP(14337) = 1 -! JVRP(14338) = dARP(9042)/dV(4173) - JVRP(14338) = V(5255) -! JVRP(14339) = dARP(9042)/dV(5255) - JVRP(14339) = V(4173) -! JVRP(14340) = dARP(9043)/dV(4173) - JVRP(14340) = V(5252) -! JVRP(14341) = dARP(9043)/dV(5252) - JVRP(14341) = V(4173) -! JVRP(14342) = dARP(9044)/dV(4173) - JVRP(14342) = V(5252) -! JVRP(14343) = dARP(9044)/dV(5252) - JVRP(14343) = V(4173) -! JVRP(14344) = dARP(9045)/dV(4173) - JVRP(14344) = V(5256) -! JVRP(14345) = dARP(9045)/dV(5256) - JVRP(14345) = V(4173) -! JVRP(14346) = dARP(9046)/dV(4173) - JVRP(14346) = 1 -! JVRP(14347) = dARP(9047)/dV(4173) - JVRP(14347) = 1 -! JVRP(14348) = dARP(9048)/dV(3720) - JVRP(14348) = V(5255) -! JVRP(14349) = dARP(9048)/dV(5255) - JVRP(14349) = V(3720) -! JVRP(14350) = dARP(9049)/dV(3720) - JVRP(14350) = V(5252) -! JVRP(14351) = dARP(9049)/dV(5252) - JVRP(14351) = V(3720) -! JVRP(14352) = dARP(9050)/dV(3720) - JVRP(14352) = V(5252) -! JVRP(14353) = dARP(9050)/dV(5252) - JVRP(14353) = V(3720) -! JVRP(14354) = dARP(9051)/dV(3720) - JVRP(14354) = V(5256) -! JVRP(14355) = dARP(9051)/dV(5256) - JVRP(14355) = V(3720) -! JVRP(14356) = dARP(9052)/dV(3720) - JVRP(14356) = 1 -! JVRP(14357) = dARP(9053)/dV(3720) - JVRP(14357) = 1 -! JVRP(14358) = dARP(9054)/dV(3720) - JVRP(14358) = 1 -! JVRP(14359) = dARP(9055)/dV(4789) - JVRP(14359) = V(5255) -! JVRP(14360) = dARP(9055)/dV(5255) - JVRP(14360) = V(4789) -! JVRP(14361) = dARP(9056)/dV(4789) - JVRP(14361) = V(5252) -! JVRP(14362) = dARP(9056)/dV(5252) - JVRP(14362) = V(4789) -! JVRP(14363) = dARP(9057)/dV(4789) - JVRP(14363) = V(5252) -! JVRP(14364) = dARP(9057)/dV(5252) - JVRP(14364) = V(4789) -! JVRP(14365) = dARP(9058)/dV(4789) - JVRP(14365) = V(5256) -! JVRP(14366) = dARP(9058)/dV(5256) - JVRP(14366) = V(4789) -! JVRP(14367) = dARP(9059)/dV(4789) - JVRP(14367) = 1 -! JVRP(14368) = dARP(9060)/dV(4789) - JVRP(14368) = 1 -! JVRP(14369) = dARP(9061)/dV(4789) - JVRP(14369) = 1 -! JVRP(14370) = dARP(9062)/dV(1696) - JVRP(14370) = V(5250) -! JVRP(14371) = dARP(9062)/dV(5250) - JVRP(14371) = V(1696) -! JVRP(14372) = dARP(9063)/dV(3981) - JVRP(14372) = V(5255) -! JVRP(14373) = dARP(9063)/dV(5255) - JVRP(14373) = V(3981) -! JVRP(14374) = dARP(9064)/dV(3981) - JVRP(14374) = V(5252) -! JVRP(14375) = dARP(9064)/dV(5252) - JVRP(14375) = V(3981) -! JVRP(14376) = dARP(9065)/dV(3981) - JVRP(14376) = V(5252) -! JVRP(14377) = dARP(9065)/dV(5252) - JVRP(14377) = V(3981) -! JVRP(14378) = dARP(9066)/dV(3981) - JVRP(14378) = V(5256) -! JVRP(14379) = dARP(9066)/dV(5256) - JVRP(14379) = V(3981) -! JVRP(14380) = dARP(9067)/dV(3981) - JVRP(14380) = 1 -! JVRP(14381) = dARP(9068)/dV(3981) - JVRP(14381) = 1 -! JVRP(14382) = dARP(9069)/dV(736) - JVRP(14382) = V(5250) -! JVRP(14383) = dARP(9069)/dV(5250) - JVRP(14383) = V(736) -! JVRP(14384) = dARP(9070)/dV(736) - JVRP(14384) = 1 -! JVRP(14385) = dARP(9071)/dV(1057) - JVRP(14385) = V(5250) -! JVRP(14386) = dARP(9071)/dV(5250) - JVRP(14386) = V(1057) -! JVRP(14387) = dARP(9072)/dV(1057) - JVRP(14387) = 1 -! JVRP(14388) = dARP(9073)/dV(154) - JVRP(14388) = 1 -! JVRP(14389) = dARP(9074)/dV(735) - JVRP(14389) = V(5250) -! JVRP(14390) = dARP(9074)/dV(5250) - JVRP(14390) = V(735) -! JVRP(14391) = dARP(9075)/dV(344) - JVRP(14391) = V(5250) -! JVRP(14392) = dARP(9075)/dV(5250) - JVRP(14392) = V(344) -! JVRP(14393) = dARP(9076)/dV(2146) - JVRP(14393) = V(5250) -! JVRP(14394) = dARP(9076)/dV(5250) - JVRP(14394) = V(2146) -! JVRP(14395) = dARP(9077)/dV(2146) - JVRP(14395) = 1 -! JVRP(14396) = dARP(9078)/dV(3017) - JVRP(14396) = V(5250) -! JVRP(14397) = dARP(9078)/dV(5250) - JVRP(14397) = V(3017) -! JVRP(14398) = dARP(9079)/dV(3017) - JVRP(14398) = 1 -! JVRP(14399) = dARP(9080)/dV(3876) - JVRP(14399) = V(5255) -! JVRP(14400) = dARP(9080)/dV(5255) - JVRP(14400) = V(3876) -! JVRP(14401) = dARP(9081)/dV(3876) - JVRP(14401) = V(5252) -! JVRP(14402) = dARP(9081)/dV(5252) - JVRP(14402) = V(3876) -! JVRP(14403) = dARP(9082)/dV(3876) - JVRP(14403) = V(5256) -! JVRP(14404) = dARP(9082)/dV(5256) - JVRP(14404) = V(3876) -! JVRP(14405) = dARP(9083)/dV(3876) - JVRP(14405) = 1 -! JVRP(14406) = dARP(9084)/dV(3876) - JVRP(14406) = 1 -! JVRP(14407) = dARP(9085)/dV(148) - JVRP(14407) = 1 -! JVRP(14408) = dARP(9086)/dV(5176) - JVRP(14408) = V(5256) -! JVRP(14409) = dARP(9086)/dV(5256) - JVRP(14409) = V(5176) -! JVRP(14410) = dARP(9087)/dV(5176) - JVRP(14410) = V(5250) -! JVRP(14411) = dARP(9087)/dV(5250) - JVRP(14411) = V(5176) -! JVRP(14412) = dARP(9088)/dV(5176) - JVRP(14412) = V(5250) -! JVRP(14413) = dARP(9088)/dV(5250) - JVRP(14413) = V(5176) -! JVRP(14414) = dARP(9089)/dV(5176) - JVRP(14414) = 1 -! JVRP(14415) = dARP(9090)/dV(3850) - JVRP(14415) = V(5255) -! JVRP(14416) = dARP(9090)/dV(5255) - JVRP(14416) = V(3850) -! JVRP(14417) = dARP(9091)/dV(3850) - JVRP(14417) = V(5252) -! JVRP(14418) = dARP(9091)/dV(5252) - JVRP(14418) = V(3850) -! JVRP(14419) = dARP(9092)/dV(3850) - JVRP(14419) = V(5252) -! JVRP(14420) = dARP(9092)/dV(5252) - JVRP(14420) = V(3850) -! JVRP(14421) = dARP(9093)/dV(3850) - JVRP(14421) = V(5256) -! JVRP(14422) = dARP(9093)/dV(5256) - JVRP(14422) = V(3850) -! JVRP(14423) = dARP(9094)/dV(3850) - JVRP(14423) = 1 -! JVRP(14424) = dARP(9095)/dV(3850) - JVRP(14424) = 1 -! JVRP(14425) = dARP(9096)/dV(5083) - JVRP(14425) = V(5256) -! JVRP(14426) = dARP(9096)/dV(5256) - JVRP(14426) = V(5083) -! JVRP(14427) = dARP(9097)/dV(5083) - JVRP(14427) = V(5256) -! JVRP(14428) = dARP(9097)/dV(5256) - JVRP(14428) = V(5083) -! JVRP(14429) = dARP(9098)/dV(5083) - JVRP(14429) = V(5258) -! JVRP(14430) = dARP(9098)/dV(5258) - JVRP(14430) = V(5083) -! JVRP(14431) = dARP(9099)/dV(5083) - JVRP(14431) = V(5258) -! JVRP(14432) = dARP(9099)/dV(5258) - JVRP(14432) = V(5083) -! JVRP(14433) = dARP(9100)/dV(5083) - JVRP(14433) = V(5250) -! JVRP(14434) = dARP(9100)/dV(5250) - JVRP(14434) = V(5083) -! JVRP(14435) = dARP(9101)/dV(5083) - JVRP(14435) = V(5250) -! JVRP(14436) = dARP(9101)/dV(5250) - JVRP(14436) = V(5083) -! JVRP(14437) = dARP(9102)/dV(5083) - JVRP(14437) = 1 -! JVRP(14438) = dARP(9103)/dV(4855) - JVRP(14438) = V(5255) -! JVRP(14439) = dARP(9103)/dV(5255) - JVRP(14439) = V(4855) -! JVRP(14440) = dARP(9104)/dV(4855) - JVRP(14440) = V(5255) -! JVRP(14441) = dARP(9104)/dV(5255) - JVRP(14441) = V(4855) -! JVRP(14442) = dARP(9105)/dV(4855) - JVRP(14442) = V(5255) -! JVRP(14443) = dARP(9105)/dV(5255) - JVRP(14443) = V(4855) -! JVRP(14444) = dARP(9106)/dV(4855) - JVRP(14444) = V(5252) -! JVRP(14445) = dARP(9106)/dV(5252) - JVRP(14445) = V(4855) -! JVRP(14446) = dARP(9107)/dV(4855) - JVRP(14446) = V(5253) -! JVRP(14447) = dARP(9107)/dV(5253) - JVRP(14447) = V(4855) -! JVRP(14448) = dARP(9108)/dV(4855) - JVRP(14448) = V(5256) -! JVRP(14449) = dARP(9108)/dV(5256) - JVRP(14449) = V(4855) -! JVRP(14450) = dARP(9109)/dV(4855) - JVRP(14450) = 1 -! JVRP(14451) = dARP(9110)/dV(4855) - JVRP(14451) = 1 -! JVRP(14452) = dARP(9111)/dV(4953) - JVRP(14452) = V(5255) -! JVRP(14453) = dARP(9111)/dV(5255) - JVRP(14453) = V(4953) -! JVRP(14454) = dARP(9112)/dV(4953) - JVRP(14454) = V(5255) -! JVRP(14455) = dARP(9112)/dV(5255) - JVRP(14455) = V(4953) -! JVRP(14456) = dARP(9113)/dV(4953) - JVRP(14456) = V(5255) -! JVRP(14457) = dARP(9113)/dV(5255) - JVRP(14457) = V(4953) -! JVRP(14458) = dARP(9114)/dV(4953) - JVRP(14458) = V(5252) -! JVRP(14459) = dARP(9114)/dV(5252) - JVRP(14459) = V(4953) -! JVRP(14460) = dARP(9115)/dV(4953) - JVRP(14460) = V(5253) -! JVRP(14461) = dARP(9115)/dV(5253) - JVRP(14461) = V(4953) -! JVRP(14462) = dARP(9116)/dV(4953) - JVRP(14462) = V(5256) -! JVRP(14463) = dARP(9116)/dV(5256) - JVRP(14463) = V(4953) -! JVRP(14464) = dARP(9117)/dV(4953) - JVRP(14464) = 1 -! JVRP(14465) = dARP(9118)/dV(4953) - JVRP(14465) = 1 -! JVRP(14466) = dARP(9119)/dV(4567) - JVRP(14466) = V(5255) -! JVRP(14467) = dARP(9119)/dV(5255) - JVRP(14467) = V(4567) -! JVRP(14468) = dARP(9120)/dV(4567) - JVRP(14468) = V(5252) -! JVRP(14469) = dARP(9120)/dV(5252) - JVRP(14469) = V(4567) -! JVRP(14470) = dARP(9121)/dV(4567) - JVRP(14470) = V(5256) -! JVRP(14471) = dARP(9121)/dV(5256) - JVRP(14471) = V(4567) -! JVRP(14472) = dARP(9122)/dV(4567) - JVRP(14472) = 1 -! JVRP(14473) = dARP(9123)/dV(4567) - JVRP(14473) = 1 -! JVRP(14474) = dARP(9124)/dV(4567) - JVRP(14474) = 1 -! JVRP(14475) = dARP(9125)/dV(4891) - JVRP(14475) = V(5255) -! JVRP(14476) = dARP(9125)/dV(5255) - JVRP(14476) = V(4891) -! JVRP(14477) = dARP(9126)/dV(4891) - JVRP(14477) = V(5255) -! JVRP(14478) = dARP(9126)/dV(5255) - JVRP(14478) = V(4891) -! JVRP(14479) = dARP(9127)/dV(4891) - JVRP(14479) = V(5252) -! JVRP(14480) = dARP(9127)/dV(5252) - JVRP(14480) = V(4891) -! JVRP(14481) = dARP(9128)/dV(4891) - JVRP(14481) = V(5253) -! JVRP(14482) = dARP(9128)/dV(5253) - JVRP(14482) = V(4891) -! JVRP(14483) = dARP(9129)/dV(4891) - JVRP(14483) = V(5256) -! JVRP(14484) = dARP(9129)/dV(5256) - JVRP(14484) = V(4891) -! JVRP(14485) = dARP(9130)/dV(4891) - JVRP(14485) = 1 -! JVRP(14486) = dARP(9131)/dV(3907) - JVRP(14486) = V(5255) -! JVRP(14487) = dARP(9131)/dV(5255) - JVRP(14487) = V(3907) -! JVRP(14488) = dARP(9132)/dV(3907) - JVRP(14488) = V(5252) -! JVRP(14489) = dARP(9132)/dV(5252) - JVRP(14489) = V(3907) -! JVRP(14490) = dARP(9133)/dV(3907) - JVRP(14490) = V(5256) -! JVRP(14491) = dARP(9133)/dV(5256) - JVRP(14491) = V(3907) -! JVRP(14492) = dARP(9134)/dV(3907) - JVRP(14492) = 1 -! JVRP(14493) = dARP(9135)/dV(4781) - JVRP(14493) = V(5255) -! JVRP(14494) = dARP(9135)/dV(5255) - JVRP(14494) = V(4781) -! JVRP(14495) = dARP(9136)/dV(4781) - JVRP(14495) = V(5252) -! JVRP(14496) = dARP(9136)/dV(5252) - JVRP(14496) = V(4781) -! JVRP(14497) = dARP(9137)/dV(4781) - JVRP(14497) = V(5256) -! JVRP(14498) = dARP(9137)/dV(5256) - JVRP(14498) = V(4781) -! JVRP(14499) = dARP(9138)/dV(4781) - JVRP(14499) = 1 -! JVRP(14500) = dARP(9139)/dV(985) - JVRP(14500) = V(5250) -! JVRP(14501) = dARP(9139)/dV(5250) - JVRP(14501) = V(985) -! JVRP(14502) = dARP(9140)/dV(985) - JVRP(14502) = 1 -! JVRP(14503) = dARP(9141)/dV(2593) - JVRP(14503) = V(5250) -! JVRP(14504) = dARP(9141)/dV(5250) - JVRP(14504) = V(2593) -! JVRP(14505) = dARP(9142)/dV(2593) - JVRP(14505) = 1 -! JVRP(14506) = dARP(9143)/dV(3969) - JVRP(14506) = V(5255) -! JVRP(14507) = dARP(9143)/dV(5255) - JVRP(14507) = V(3969) -! JVRP(14508) = dARP(9144)/dV(3969) - JVRP(14508) = V(5252) -! JVRP(14509) = dARP(9144)/dV(5252) - JVRP(14509) = V(3969) -! JVRP(14510) = dARP(9145)/dV(3969) - JVRP(14510) = V(5256) -! JVRP(14511) = dARP(9145)/dV(5256) - JVRP(14511) = V(3969) -! JVRP(14512) = dARP(9146)/dV(3969) - JVRP(14512) = 1 -! JVRP(14513) = dARP(9147)/dV(3969) - JVRP(14513) = 1 -! JVRP(14514) = dARP(9148)/dV(224) - JVRP(14514) = 1 -! JVRP(14515) = dARP(9149)/dV(224) - JVRP(14515) = 1 -! JVRP(14516) = dARP(9150)/dV(612) - JVRP(14516) = 1 -! JVRP(14517) = dARP(9151)/dV(612) - JVRP(14517) = 1 -! JVRP(14518) = dARP(9152)/dV(3872) - JVRP(14518) = V(5255) -! JVRP(14519) = dARP(9152)/dV(5255) - JVRP(14519) = V(3872) -! JVRP(14520) = dARP(9153)/dV(3872) - JVRP(14520) = V(5252) -! JVRP(14521) = dARP(9153)/dV(5252) - JVRP(14521) = V(3872) -! JVRP(14522) = dARP(9154)/dV(3872) - JVRP(14522) = V(5252) -! JVRP(14523) = dARP(9154)/dV(5252) - JVRP(14523) = V(3872) -! JVRP(14524) = dARP(9155)/dV(3872) - JVRP(14524) = V(5256) -! JVRP(14525) = dARP(9155)/dV(5256) - JVRP(14525) = V(3872) -! JVRP(14526) = dARP(9156)/dV(3872) - JVRP(14526) = 1 -! JVRP(14527) = dARP(9157)/dV(3872) - JVRP(14527) = 1 -! JVRP(14528) = dARP(9158)/dV(3927) - JVRP(14528) = V(5255) -! JVRP(14529) = dARP(9158)/dV(5255) - JVRP(14529) = V(3927) -! JVRP(14530) = dARP(9159)/dV(3927) - JVRP(14530) = V(5252) -! JVRP(14531) = dARP(9159)/dV(5252) - JVRP(14531) = V(3927) -! JVRP(14532) = dARP(9160)/dV(3927) - JVRP(14532) = V(5252) -! JVRP(14533) = dARP(9160)/dV(5252) - JVRP(14533) = V(3927) -! JVRP(14534) = dARP(9161)/dV(3927) - JVRP(14534) = V(5256) -! JVRP(14535) = dARP(9161)/dV(5256) - JVRP(14535) = V(3927) -! JVRP(14536) = dARP(9162)/dV(3927) - JVRP(14536) = 1 -! JVRP(14537) = dARP(9163)/dV(3927) - JVRP(14537) = 1 -! JVRP(14538) = dARP(9164)/dV(3927) - JVRP(14538) = 1 -! JVRP(14539) = dARP(9165)/dV(1251) - JVRP(14539) = V(5250) -! JVRP(14540) = dARP(9165)/dV(5250) - JVRP(14540) = V(1251) -! JVRP(14541) = dARP(9166)/dV(1251) - JVRP(14541) = 1 -! JVRP(14542) = dARP(9167)/dV(2587) - JVRP(14542) = V(5250) -! JVRP(14543) = dARP(9167)/dV(5250) - JVRP(14543) = V(2587) -! JVRP(14544) = dARP(9168)/dV(2587) - JVRP(14544) = 1 -! JVRP(14545) = dARP(9169)/dV(885) - JVRP(14545) = V(5250) -! JVRP(14546) = dARP(9169)/dV(5250) - JVRP(14546) = V(885) -! JVRP(14547) = dARP(9170)/dV(885) - JVRP(14547) = 1 -! JVRP(14548) = dARP(9171)/dV(3074) - JVRP(14548) = 1 -! JVRP(14549) = dARP(9172)/dV(621) - JVRP(14549) = V(5250) -! JVRP(14550) = dARP(9172)/dV(5250) - JVRP(14550) = V(621) -! JVRP(14551) = dARP(9173)/dV(4264) - JVRP(14551) = V(5251) -! JVRP(14552) = dARP(9173)/dV(5251) - JVRP(14552) = V(4264) -! JVRP(14553) = dARP(9174)/dV(4264) - JVRP(14553) = V(5252) -! JVRP(14554) = dARP(9174)/dV(5252) - JVRP(14554) = V(4264) -! JVRP(14555) = dARP(9175)/dV(4264) - JVRP(14555) = V(5253) -! JVRP(14556) = dARP(9175)/dV(5253) - JVRP(14556) = V(4264) -! JVRP(14557) = dARP(9176)/dV(4264) - JVRP(14557) = V(5254) -! JVRP(14558) = dARP(9176)/dV(5254) - JVRP(14558) = V(4264) -! JVRP(14559) = dARP(9177)/dV(4264) - JVRP(14559) = 1 -! JVRP(14560) = dARP(9178)/dV(4762) - JVRP(14560) = V(5255) -! JVRP(14561) = dARP(9178)/dV(5255) - JVRP(14561) = V(4762) -! JVRP(14562) = dARP(9179)/dV(4762) - JVRP(14562) = V(5252) -! JVRP(14563) = dARP(9179)/dV(5252) - JVRP(14563) = V(4762) -! JVRP(14564) = dARP(9180)/dV(4762) - JVRP(14564) = V(5256) -! JVRP(14565) = dARP(9180)/dV(5256) - JVRP(14565) = V(4762) -! JVRP(14566) = dARP(9181)/dV(4762) - JVRP(14566) = 1 -! JVRP(14567) = dARP(9182)/dV(4762) - JVRP(14567) = 1 -! JVRP(14568) = dARP(9183)/dV(4762) - JVRP(14568) = 1 -! JVRP(14569) = dARP(9184)/dV(4921) - JVRP(14569) = V(5255) -! JVRP(14570) = dARP(9184)/dV(5255) - JVRP(14570) = V(4921) -! JVRP(14571) = dARP(9185)/dV(4921) - JVRP(14571) = V(5255) -! JVRP(14572) = dARP(9185)/dV(5255) - JVRP(14572) = V(4921) -! JVRP(14573) = dARP(9186)/dV(4921) - JVRP(14573) = V(5255) -! JVRP(14574) = dARP(9186)/dV(5255) - JVRP(14574) = V(4921) -! JVRP(14575) = dARP(9187)/dV(4921) - JVRP(14575) = V(5252) -! JVRP(14576) = dARP(9187)/dV(5252) - JVRP(14576) = V(4921) -! JVRP(14577) = dARP(9188)/dV(4921) - JVRP(14577) = V(5253) -! JVRP(14578) = dARP(9188)/dV(5253) - JVRP(14578) = V(4921) -! JVRP(14579) = dARP(9189)/dV(4921) - JVRP(14579) = V(5256) -! JVRP(14580) = dARP(9189)/dV(5256) - JVRP(14580) = V(4921) -! JVRP(14581) = dARP(9190)/dV(4921) - JVRP(14581) = 1 -! JVRP(14582) = dARP(9191)/dV(4921) - JVRP(14582) = 1 -! JVRP(14583) = dARP(9192)/dV(5028) - JVRP(14583) = V(5255) -! JVRP(14584) = dARP(9192)/dV(5255) - JVRP(14584) = V(5028) -! JVRP(14585) = dARP(9193)/dV(5028) - JVRP(14585) = V(5252) -! JVRP(14586) = dARP(9193)/dV(5252) - JVRP(14586) = V(5028) -! JVRP(14587) = dARP(9194)/dV(5028) - JVRP(14587) = V(5256) -! JVRP(14588) = dARP(9194)/dV(5256) - JVRP(14588) = V(5028) -! JVRP(14589) = dARP(9195)/dV(5028) - JVRP(14589) = 1 -! JVRP(14590) = dARP(9196)/dV(5028) - JVRP(14590) = 1 -! JVRP(14591) = dARP(9197)/dV(5028) - JVRP(14591) = 1 -! JVRP(14592) = dARP(9198)/dV(4761) - JVRP(14592) = V(5255) -! JVRP(14593) = dARP(9198)/dV(5255) - JVRP(14593) = V(4761) -! JVRP(14594) = dARP(9199)/dV(4761) - JVRP(14594) = V(5252) -! JVRP(14595) = dARP(9199)/dV(5252) - JVRP(14595) = V(4761) -! JVRP(14596) = dARP(9200)/dV(4761) - JVRP(14596) = V(5256) -! JVRP(14597) = dARP(9200)/dV(5256) - JVRP(14597) = V(4761) -! JVRP(14598) = dARP(9201)/dV(4761) - JVRP(14598) = 1 -! JVRP(14599) = dARP(9202)/dV(4761) - JVRP(14599) = 1 -! JVRP(14600) = dARP(9203)/dV(4761) - JVRP(14600) = 1 -! JVRP(14601) = dARP(9204)/dV(4542) - JVRP(14601) = V(5255) -! JVRP(14602) = dARP(9204)/dV(5255) - JVRP(14602) = V(4542) -! JVRP(14603) = dARP(9205)/dV(4542) - JVRP(14603) = V(5252) -! JVRP(14604) = dARP(9205)/dV(5252) - JVRP(14604) = V(4542) -! JVRP(14605) = dARP(9206)/dV(4542) - JVRP(14605) = V(5256) -! JVRP(14606) = dARP(9206)/dV(5256) - JVRP(14606) = V(4542) -! JVRP(14607) = dARP(9207)/dV(4542) - JVRP(14607) = 1 -! JVRP(14608) = dARP(9208)/dV(4542) - JVRP(14608) = 1 -! JVRP(14609) = dARP(9209)/dV(4542) - JVRP(14609) = 1 -! JVRP(14610) = dARP(9210)/dV(4940) - JVRP(14610) = V(5255) -! JVRP(14611) = dARP(9210)/dV(5255) - JVRP(14611) = V(4940) -! JVRP(14612) = dARP(9211)/dV(4940) - JVRP(14612) = V(5252) -! JVRP(14613) = dARP(9211)/dV(5252) - JVRP(14613) = V(4940) -! JVRP(14614) = dARP(9212)/dV(4940) - JVRP(14614) = V(5252) -! JVRP(14615) = dARP(9212)/dV(5252) - JVRP(14615) = V(4940) -! JVRP(14616) = dARP(9213)/dV(4940) - JVRP(14616) = V(5256) -! JVRP(14617) = dARP(9213)/dV(5256) - JVRP(14617) = V(4940) -! JVRP(14618) = dARP(9214)/dV(4940) - JVRP(14618) = 1 -! JVRP(14619) = dARP(9215)/dV(4940) - JVRP(14619) = 1 -! JVRP(14620) = dARP(9216)/dV(4940) - JVRP(14620) = 1 -! JVRP(14621) = dARP(9217)/dV(1314) - JVRP(14621) = V(5250) -! JVRP(14622) = dARP(9217)/dV(5250) - JVRP(14622) = V(1314) -! JVRP(14623) = dARP(9218)/dV(1314) - JVRP(14623) = 1 -! JVRP(14624) = dARP(9219)/dV(1918) - JVRP(14624) = V(5250) -! JVRP(14625) = dARP(9219)/dV(5250) - JVRP(14625) = V(1918) -! JVRP(14626) = dARP(9220)/dV(3039) - JVRP(14626) = 1 -! JVRP(14627) = dARP(9221)/dV(667) - JVRP(14627) = V(5250) -! JVRP(14628) = dARP(9221)/dV(5250) - JVRP(14628) = V(667) -! JVRP(14629) = dARP(9222)/dV(1993) - JVRP(14629) = V(5250) -! JVRP(14630) = dARP(9222)/dV(5250) - JVRP(14630) = V(1993) -! JVRP(14631) = dARP(9223)/dV(1993) - JVRP(14631) = 1 -! JVRP(14632) = dARP(9224)/dV(2254) - JVRP(14632) = V(5250) -! JVRP(14633) = dARP(9224)/dV(5250) - JVRP(14633) = V(2254) -! JVRP(14634) = dARP(9225)/dV(3037) - JVRP(14634) = 1 -! JVRP(14635) = dARP(9226)/dV(580) - JVRP(14635) = V(5250) -! JVRP(14636) = dARP(9226)/dV(5250) - JVRP(14636) = V(580) -! JVRP(14637) = dARP(9227)/dV(5039) - JVRP(14637) = V(5255) -! JVRP(14638) = dARP(9227)/dV(5255) - JVRP(14638) = V(5039) -! JVRP(14639) = dARP(9228)/dV(5039) - JVRP(14639) = V(5252) -! JVRP(14640) = dARP(9228)/dV(5252) - JVRP(14640) = V(5039) -! JVRP(14641) = dARP(9229)/dV(5039) - JVRP(14641) = V(5256) -! JVRP(14642) = dARP(9229)/dV(5256) - JVRP(14642) = V(5039) -! JVRP(14643) = dARP(9230)/dV(5039) - JVRP(14643) = 1 -! JVRP(14644) = dARP(9231)/dV(5039) - JVRP(14644) = 1 -! JVRP(14645) = dARP(9232)/dV(5039) - JVRP(14645) = 1 -! JVRP(14646) = dARP(9233)/dV(4526) - JVRP(14646) = V(5251) -! JVRP(14647) = dARP(9233)/dV(5251) - JVRP(14647) = V(4526) -! JVRP(14648) = dARP(9234)/dV(4526) - JVRP(14648) = V(5252) -! JVRP(14649) = dARP(9234)/dV(5252) - JVRP(14649) = V(4526) -! JVRP(14650) = dARP(9235)/dV(4526) - JVRP(14650) = V(5253) -! JVRP(14651) = dARP(9235)/dV(5253) - JVRP(14651) = V(4526) -! JVRP(14652) = dARP(9236)/dV(4526) - JVRP(14652) = V(5254) -! JVRP(14653) = dARP(9236)/dV(5254) - JVRP(14653) = V(4526) -! JVRP(14654) = dARP(9237)/dV(4526) - JVRP(14654) = 1 -! JVRP(14655) = dARP(9238)/dV(1758) - JVRP(14655) = V(5250) -! JVRP(14656) = dARP(9238)/dV(5250) - JVRP(14656) = V(1758) -! JVRP(14657) = dARP(9239)/dV(1758) - JVRP(14657) = 1 -! JVRP(14658) = dARP(9240)/dV(2347) - JVRP(14658) = V(5250) -! JVRP(14659) = dARP(9240)/dV(5250) - JVRP(14659) = V(2347) -! JVRP(14660) = dARP(9241)/dV(2744) - JVRP(14660) = 1 -! JVRP(14661) = dARP(9242)/dV(536) - JVRP(14661) = V(5250) -! JVRP(14662) = dARP(9242)/dV(5250) - JVRP(14662) = V(536) -! JVRP(14663) = dARP(9243)/dV(5014) - JVRP(14663) = V(5255) -! JVRP(14664) = dARP(9243)/dV(5255) - JVRP(14664) = V(5014) -! JVRP(14665) = dARP(9244)/dV(5014) - JVRP(14665) = V(5255) -! JVRP(14666) = dARP(9244)/dV(5255) - JVRP(14666) = V(5014) -! JVRP(14667) = dARP(9245)/dV(5014) - JVRP(14667) = V(5255) -! JVRP(14668) = dARP(9245)/dV(5255) - JVRP(14668) = V(5014) -! JVRP(14669) = dARP(9246)/dV(5014) - JVRP(14669) = V(5252) -! JVRP(14670) = dARP(9246)/dV(5252) - JVRP(14670) = V(5014) -! JVRP(14671) = dARP(9247)/dV(5014) - JVRP(14671) = V(5253) -! JVRP(14672) = dARP(9247)/dV(5253) - JVRP(14672) = V(5014) -! JVRP(14673) = dARP(9248)/dV(5014) - JVRP(14673) = V(5256) -! JVRP(14674) = dARP(9248)/dV(5256) - JVRP(14674) = V(5014) -! JVRP(14675) = dARP(9249)/dV(5014) - JVRP(14675) = 1 -! JVRP(14676) = dARP(9250)/dV(5014) - JVRP(14676) = 1 -! JVRP(14677) = dARP(9251)/dV(4989) - JVRP(14677) = V(5255) -! JVRP(14678) = dARP(9251)/dV(5255) - JVRP(14678) = V(4989) -! JVRP(14679) = dARP(9252)/dV(4989) - JVRP(14679) = V(5255) -! JVRP(14680) = dARP(9252)/dV(5255) - JVRP(14680) = V(4989) -! JVRP(14681) = dARP(9253)/dV(4989) - JVRP(14681) = V(5255) -! JVRP(14682) = dARP(9253)/dV(5255) - JVRP(14682) = V(4989) -! JVRP(14683) = dARP(9254)/dV(4989) - JVRP(14683) = V(5252) -! JVRP(14684) = dARP(9254)/dV(5252) - JVRP(14684) = V(4989) -! JVRP(14685) = dARP(9255)/dV(4989) - JVRP(14685) = V(5253) -! JVRP(14686) = dARP(9255)/dV(5253) - JVRP(14686) = V(4989) -! JVRP(14687) = dARP(9256)/dV(4989) - JVRP(14687) = V(5256) -! JVRP(14688) = dARP(9256)/dV(5256) - JVRP(14688) = V(4989) -! JVRP(14689) = dARP(9257)/dV(4989) - JVRP(14689) = 1 -! JVRP(14690) = dARP(9258)/dV(4989) - JVRP(14690) = 1 -! JVRP(14691) = dARP(9259)/dV(4757) - JVRP(14691) = V(5251) -! JVRP(14692) = dARP(9259)/dV(5251) - JVRP(14692) = V(4757) -! JVRP(14693) = dARP(9260)/dV(4757) - JVRP(14693) = V(5252) -! JVRP(14694) = dARP(9260)/dV(5252) - JVRP(14694) = V(4757) -! JVRP(14695) = dARP(9261)/dV(4757) - JVRP(14695) = V(5253) -! JVRP(14696) = dARP(9261)/dV(5253) - JVRP(14696) = V(4757) -! JVRP(14697) = dARP(9262)/dV(4757) - JVRP(14697) = V(5254) -! JVRP(14698) = dARP(9262)/dV(5254) - JVRP(14698) = V(4757) -! JVRP(14699) = dARP(9263)/dV(4757) - JVRP(14699) = 1 -! JVRP(14700) = dARP(9264)/dV(5122) - JVRP(14700) = V(5255) -! JVRP(14701) = dARP(9264)/dV(5255) - JVRP(14701) = V(5122) -! JVRP(14702) = dARP(9265)/dV(5122) - JVRP(14702) = V(5252) -! JVRP(14703) = dARP(9265)/dV(5252) - JVRP(14703) = V(5122) -! JVRP(14704) = dARP(9266)/dV(5122) - JVRP(14704) = V(5256) -! JVRP(14705) = dARP(9266)/dV(5256) - JVRP(14705) = V(5122) -! JVRP(14706) = dARP(9267)/dV(5122) - JVRP(14706) = 1 -! JVRP(14707) = dARP(9268)/dV(5122) - JVRP(14707) = 1 -! JVRP(14708) = dARP(9269)/dV(5122) - JVRP(14708) = 1 -! JVRP(14709) = dARP(9270)/dV(2373) - JVRP(14709) = V(5250) -! JVRP(14710) = dARP(9270)/dV(5250) - JVRP(14710) = V(2373) -! JVRP(14711) = dARP(9271)/dV(2373) - JVRP(14711) = 1 -! JVRP(14712) = dARP(9272)/dV(2280) - JVRP(14712) = V(5250) -! JVRP(14713) = dARP(9272)/dV(5250) - JVRP(14713) = V(2280) -! JVRP(14714) = dARP(9273)/dV(2008) - JVRP(14714) = 1 -! JVRP(14715) = dARP(9274)/dV(694) - JVRP(14715) = V(5250) -! JVRP(14716) = dARP(9274)/dV(5250) - JVRP(14716) = V(694) -! JVRP(14717) = dARP(9275)/dV(3901) - JVRP(14717) = V(5255) -! JVRP(14718) = dARP(9275)/dV(5255) - JVRP(14718) = V(3901) -! JVRP(14719) = dARP(9276)/dV(3901) - JVRP(14719) = V(5252) -! JVRP(14720) = dARP(9276)/dV(5252) - JVRP(14720) = V(3901) -! JVRP(14721) = dARP(9277)/dV(3901) - JVRP(14721) = V(5252) -! JVRP(14722) = dARP(9277)/dV(5252) - JVRP(14722) = V(3901) -! JVRP(14723) = dARP(9278)/dV(3901) - JVRP(14723) = V(5256) -! JVRP(14724) = dARP(9278)/dV(5256) - JVRP(14724) = V(3901) -! JVRP(14725) = dARP(9279)/dV(3901) - JVRP(14725) = 1 -! JVRP(14726) = dARP(9280)/dV(3901) - JVRP(14726) = 1 -! JVRP(14727) = dARP(9281)/dV(3928) - JVRP(14727) = V(5255) -! JVRP(14728) = dARP(9281)/dV(5255) - JVRP(14728) = V(3928) -! JVRP(14729) = dARP(9282)/dV(3928) - JVRP(14729) = V(5252) -! JVRP(14730) = dARP(9282)/dV(5252) - JVRP(14730) = V(3928) -! JVRP(14731) = dARP(9283)/dV(3928) - JVRP(14731) = V(5256) -! JVRP(14732) = dARP(9283)/dV(5256) - JVRP(14732) = V(3928) -! JVRP(14733) = dARP(9284)/dV(3928) - JVRP(14733) = 1 -! JVRP(14734) = dARP(9285)/dV(3928) - JVRP(14734) = 1 -! JVRP(14735) = dARP(9286)/dV(5240) - JVRP(14735) = V(5256) -! JVRP(14736) = dARP(9286)/dV(5256) - JVRP(14736) = V(5240) -! JVRP(14737) = dARP(9287)/dV(5240) - JVRP(14737) = V(5250) -! JVRP(14738) = dARP(9287)/dV(5250) - JVRP(14738) = V(5240) -! JVRP(14739) = dARP(9288)/dV(5240) - JVRP(14739) = 1 -! JVRP(14740) = dARP(9289)/dV(522) - JVRP(14740) = 1 -! JVRP(14741) = dARP(9290)/dV(522) - JVRP(14741) = 1 -! JVRP(14742) = dARP(9291)/dV(3886) - JVRP(14742) = V(5255) -! JVRP(14743) = dARP(9291)/dV(5255) - JVRP(14743) = V(3886) -! JVRP(14744) = dARP(9292)/dV(3886) - JVRP(14744) = V(5252) -! JVRP(14745) = dARP(9292)/dV(5252) - JVRP(14745) = V(3886) -! JVRP(14746) = dARP(9293)/dV(3886) - JVRP(14746) = V(5252) -! JVRP(14747) = dARP(9293)/dV(5252) - JVRP(14747) = V(3886) -! JVRP(14748) = dARP(9294)/dV(3886) - JVRP(14748) = V(5256) -! JVRP(14749) = dARP(9294)/dV(5256) - JVRP(14749) = V(3886) -! JVRP(14750) = dARP(9295)/dV(3886) - JVRP(14750) = 1 -! JVRP(14751) = dARP(9296)/dV(3886) - JVRP(14751) = 1 -! JVRP(14752) = dARP(9297)/dV(4088) - JVRP(14752) = V(5255) -! JVRP(14753) = dARP(9297)/dV(5255) - JVRP(14753) = V(4088) -! JVRP(14754) = dARP(9298)/dV(4088) - JVRP(14754) = V(5252) -! JVRP(14755) = dARP(9298)/dV(5252) - JVRP(14755) = V(4088) -! JVRP(14756) = dARP(9299)/dV(4088) - JVRP(14756) = V(5252) -! JVRP(14757) = dARP(9299)/dV(5252) - JVRP(14757) = V(4088) -! JVRP(14758) = dARP(9300)/dV(4088) - JVRP(14758) = V(5256) -! JVRP(14759) = dARP(9300)/dV(5256) - JVRP(14759) = V(4088) -! JVRP(14760) = dARP(9301)/dV(4088) - JVRP(14760) = 1 -! JVRP(14761) = dARP(9302)/dV(4088) - JVRP(14761) = 1 -! JVRP(14762) = dARP(9303)/dV(4088) - JVRP(14762) = 1 -! JVRP(14763) = dARP(9304)/dV(4745) - JVRP(14763) = V(5255) -! JVRP(14764) = dARP(9304)/dV(5255) - JVRP(14764) = V(4745) -! JVRP(14765) = dARP(9305)/dV(4745) - JVRP(14765) = V(5252) -! JVRP(14766) = dARP(9305)/dV(5252) - JVRP(14766) = V(4745) -! JVRP(14767) = dARP(9306)/dV(4745) - JVRP(14767) = V(5256) -! JVRP(14768) = dARP(9306)/dV(5256) - JVRP(14768) = V(4745) -! JVRP(14769) = dARP(9307)/dV(4745) - JVRP(14769) = 1 -! JVRP(14770) = dARP(9308)/dV(4394) - JVRP(14770) = V(5255) -! JVRP(14771) = dARP(9308)/dV(5255) - JVRP(14771) = V(4394) -! JVRP(14772) = dARP(9309)/dV(4394) - JVRP(14772) = V(5252) -! JVRP(14773) = dARP(9309)/dV(5252) - JVRP(14773) = V(4394) -! JVRP(14774) = dARP(9310)/dV(4394) - JVRP(14774) = V(5252) -! JVRP(14775) = dARP(9310)/dV(5252) - JVRP(14775) = V(4394) -! JVRP(14776) = dARP(9311)/dV(4394) - JVRP(14776) = V(5256) -! JVRP(14777) = dARP(9311)/dV(5256) - JVRP(14777) = V(4394) -! JVRP(14778) = dARP(9312)/dV(4394) - JVRP(14778) = 1 -! JVRP(14779) = dARP(9313)/dV(4394) - JVRP(14779) = 1 -! JVRP(14780) = dARP(9314)/dV(3564) - JVRP(14780) = 1 -! JVRP(14781) = dARP(9315)/dV(3844) - JVRP(14781) = V(5255) -! JVRP(14782) = dARP(9315)/dV(5255) - JVRP(14782) = V(3844) -! JVRP(14783) = dARP(9316)/dV(3844) - JVRP(14783) = V(5252) -! JVRP(14784) = dARP(9316)/dV(5252) - JVRP(14784) = V(3844) -! JVRP(14785) = dARP(9317)/dV(3844) - JVRP(14785) = V(5256) -! JVRP(14786) = dARP(9317)/dV(5256) - JVRP(14786) = V(3844) -! JVRP(14787) = dARP(9318)/dV(3844) - JVRP(14787) = 1 -! JVRP(14788) = dARP(9319)/dV(3844) - JVRP(14788) = 1 -! JVRP(14789) = dARP(9320)/dV(4691) - JVRP(14789) = V(5251) -! JVRP(14790) = dARP(9320)/dV(5251) - JVRP(14790) = V(4691) -! JVRP(14791) = dARP(9321)/dV(4691) - JVRP(14791) = V(5252) -! JVRP(14792) = dARP(9321)/dV(5252) - JVRP(14792) = V(4691) -! JVRP(14793) = dARP(9322)/dV(4691) - JVRP(14793) = V(5253) -! JVRP(14794) = dARP(9322)/dV(5253) - JVRP(14794) = V(4691) -! JVRP(14795) = dARP(9323)/dV(4691) - JVRP(14795) = V(5254) -! JVRP(14796) = dARP(9323)/dV(5254) - JVRP(14796) = V(4691) -! JVRP(14797) = dARP(9324)/dV(4691) - JVRP(14797) = 1 -! JVRP(14798) = dARP(9325)/dV(4691) - JVRP(14798) = 1 -! JVRP(14799) = dARP(9326)/dV(4678) - JVRP(14799) = V(5251) -! JVRP(14800) = dARP(9326)/dV(5251) - JVRP(14800) = V(4678) -! JVRP(14801) = dARP(9327)/dV(4678) - JVRP(14801) = V(5252) -! JVRP(14802) = dARP(9327)/dV(5252) - JVRP(14802) = V(4678) -! JVRP(14803) = dARP(9328)/dV(4678) - JVRP(14803) = V(5253) -! JVRP(14804) = dARP(9328)/dV(5253) - JVRP(14804) = V(4678) -! JVRP(14805) = dARP(9329)/dV(4678) - JVRP(14805) = V(5254) -! JVRP(14806) = dARP(9329)/dV(5254) - JVRP(14806) = V(4678) -! JVRP(14807) = dARP(9330)/dV(4678) - JVRP(14807) = 1 -! JVRP(14808) = dARP(9331)/dV(4678) - JVRP(14808) = 1 -! JVRP(14809) = dARP(9332)/dV(2359) - JVRP(14809) = 1 -! JVRP(14810) = dARP(9333)/dV(2359) - JVRP(14810) = 1 -! JVRP(14811) = dARP(9334)/dV(2359) - JVRP(14811) = 1 -! JVRP(14812) = dARP(9335)/dV(2359) - JVRP(14812) = 1 -! JVRP(14813) = dARP(9336)/dV(1569) - JVRP(14813) = 1 -! JVRP(14814) = dARP(9337)/dV(1569) - JVRP(14814) = 1 -! JVRP(14815) = dARP(9338)/dV(1569) - JVRP(14815) = 1 -! JVRP(14816) = dARP(9339)/dV(3920) - JVRP(14816) = V(5255) -! JVRP(14817) = dARP(9339)/dV(5255) - JVRP(14817) = V(3920) -! JVRP(14818) = dARP(9340)/dV(3920) - JVRP(14818) = V(5252) -! JVRP(14819) = dARP(9340)/dV(5252) - JVRP(14819) = V(3920) -! JVRP(14820) = dARP(9341)/dV(3920) - JVRP(14820) = V(5252) -! JVRP(14821) = dARP(9341)/dV(5252) - JVRP(14821) = V(3920) -! JVRP(14822) = dARP(9342)/dV(3920) - JVRP(14822) = V(5256) -! JVRP(14823) = dARP(9342)/dV(5256) - JVRP(14823) = V(3920) -! JVRP(14824) = dARP(9343)/dV(3920) - JVRP(14824) = 1 -! JVRP(14825) = dARP(9344)/dV(3920) - JVRP(14825) = 1 -! JVRP(14826) = dARP(9345)/dV(3966) - JVRP(14826) = V(5255) -! JVRP(14827) = dARP(9345)/dV(5255) - JVRP(14827) = V(3966) -! JVRP(14828) = dARP(9346)/dV(3966) - JVRP(14828) = V(5252) -! JVRP(14829) = dARP(9346)/dV(5252) - JVRP(14829) = V(3966) -! JVRP(14830) = dARP(9347)/dV(3966) - JVRP(14830) = V(5252) -! JVRP(14831) = dARP(9347)/dV(5252) - JVRP(14831) = V(3966) -! JVRP(14832) = dARP(9348)/dV(3966) - JVRP(14832) = V(5256) -! JVRP(14833) = dARP(9348)/dV(5256) - JVRP(14833) = V(3966) -! JVRP(14834) = dARP(9349)/dV(3966) - JVRP(14834) = 1 -! JVRP(14835) = dARP(9350)/dV(3966) - JVRP(14835) = 1 -! JVRP(14836) = dARP(9351)/dV(3966) - JVRP(14836) = 1 -! JVRP(14837) = dARP(9352)/dV(4243) - JVRP(14837) = V(5255) -! JVRP(14838) = dARP(9352)/dV(5255) - JVRP(14838) = V(4243) -! JVRP(14839) = dARP(9353)/dV(4243) - JVRP(14839) = V(5255) -! JVRP(14840) = dARP(9353)/dV(5255) - JVRP(14840) = V(4243) -! JVRP(14841) = dARP(9354)/dV(4243) - JVRP(14841) = V(5252) -! JVRP(14842) = dARP(9354)/dV(5252) - JVRP(14842) = V(4243) -! JVRP(14843) = dARP(9355)/dV(4243) - JVRP(14843) = V(5253) -! JVRP(14844) = dARP(9355)/dV(5253) - JVRP(14844) = V(4243) -! JVRP(14845) = dARP(9356)/dV(4243) - JVRP(14845) = V(5256) -! JVRP(14846) = dARP(9356)/dV(5256) - JVRP(14846) = V(4243) -! JVRP(14847) = dARP(9357)/dV(4243) - JVRP(14847) = 1 -! JVRP(14848) = dARP(9358)/dV(4260) - JVRP(14848) = V(5255) -! JVRP(14849) = dARP(9358)/dV(5255) - JVRP(14849) = V(4260) -! JVRP(14850) = dARP(9359)/dV(4260) - JVRP(14850) = V(5255) -! JVRP(14851) = dARP(9359)/dV(5255) - JVRP(14851) = V(4260) -! JVRP(14852) = dARP(9360)/dV(4260) - JVRP(14852) = V(5252) -! JVRP(14853) = dARP(9360)/dV(5252) - JVRP(14853) = V(4260) -! JVRP(14854) = dARP(9361)/dV(4260) - JVRP(14854) = V(5253) -! JVRP(14855) = dARP(9361)/dV(5253) - JVRP(14855) = V(4260) -! JVRP(14856) = dARP(9362)/dV(4260) - JVRP(14856) = V(5256) -! JVRP(14857) = dARP(9362)/dV(5256) - JVRP(14857) = V(4260) -! JVRP(14858) = dARP(9363)/dV(4260) - JVRP(14858) = 1 -! JVRP(14859) = dARP(9364)/dV(929) - JVRP(14859) = V(5250) -! JVRP(14860) = dARP(9364)/dV(5250) - JVRP(14860) = V(929) -! JVRP(14861) = dARP(9365)/dV(929) - JVRP(14861) = 1 -! JVRP(14862) = dARP(9366)/dV(2674) - JVRP(14862) = V(5250) -! JVRP(14863) = dARP(9366)/dV(5250) - JVRP(14863) = V(2674) -! JVRP(14864) = dARP(9367)/dV(2674) - JVRP(14864) = 1 -! JVRP(14865) = dARP(9368)/dV(2009) - JVRP(14865) = V(5250) -! JVRP(14866) = dARP(9368)/dV(5250) - JVRP(14866) = V(2009) -! JVRP(14867) = dARP(9369)/dV(2009) - JVRP(14867) = V(5250) -! JVRP(14868) = dARP(9369)/dV(5250) - JVRP(14868) = V(2009) -! JVRP(14869) = dARP(9370)/dV(2009) - JVRP(14869) = 1 -! JVRP(14870) = dARP(9371)/dV(3415) - JVRP(14870) = 1 -! JVRP(14871) = dARP(9372)/dV(3415) - JVRP(14871) = 1 -! JVRP(14872) = dARP(9373)/dV(4883) - JVRP(14872) = V(5250) -! JVRP(14873) = dARP(9373)/dV(5250) - JVRP(14873) = V(4883) -! JVRP(14874) = dARP(9374)/dV(4883) - JVRP(14874) = V(5250) -! JVRP(14875) = dARP(9374)/dV(5250) - JVRP(14875) = V(4883) -! JVRP(14876) = dARP(9375)/dV(4883) - JVRP(14876) = 1 -! JVRP(14877) = dARP(9376)/dV(865) - JVRP(14877) = V(5250) -! JVRP(14878) = dARP(9376)/dV(5250) - JVRP(14878) = V(865) -! JVRP(14879) = dARP(9377)/dV(865) - JVRP(14879) = 1 -! JVRP(14880) = dARP(9378)/dV(36) - JVRP(14880) = 1 -! JVRP(14881) = dARP(9379)/dV(1202) - JVRP(14881) = V(5250) -! JVRP(14882) = dARP(9379)/dV(5250) - JVRP(14882) = V(1202) -! JVRP(14883) = dARP(9380)/dV(1202) - JVRP(14883) = 1 -! JVRP(14884) = dARP(9381)/dV(45) - JVRP(14884) = 1 -! JVRP(14885) = dARP(9382)/dV(4962) - JVRP(14885) = V(5255) -! JVRP(14886) = dARP(9382)/dV(5255) - JVRP(14886) = V(4962) -! JVRP(14887) = dARP(9383)/dV(4962) - JVRP(14887) = V(5255) -! JVRP(14888) = dARP(9383)/dV(5255) - JVRP(14888) = V(4962) -! JVRP(14889) = dARP(9384)/dV(4962) - JVRP(14889) = V(5255) -! JVRP(14890) = dARP(9384)/dV(5255) - JVRP(14890) = V(4962) -! JVRP(14891) = dARP(9385)/dV(4962) - JVRP(14891) = V(5252) -! JVRP(14892) = dARP(9385)/dV(5252) - JVRP(14892) = V(4962) -! JVRP(14893) = dARP(9386)/dV(4962) - JVRP(14893) = V(5253) -! JVRP(14894) = dARP(9386)/dV(5253) - JVRP(14894) = V(4962) -! JVRP(14895) = dARP(9387)/dV(4962) - JVRP(14895) = V(5256) -! JVRP(14896) = dARP(9387)/dV(5256) - JVRP(14896) = V(4962) -! JVRP(14897) = dARP(9388)/dV(4962) - JVRP(14897) = 1 -! JVRP(14898) = dARP(9389)/dV(4962) - JVRP(14898) = 1 -! JVRP(14899) = dARP(9390)/dV(4263) - JVRP(14899) = V(5255) -! JVRP(14900) = dARP(9390)/dV(5255) - JVRP(14900) = V(4263) -! JVRP(14901) = dARP(9391)/dV(4263) - JVRP(14901) = V(5252) -! JVRP(14902) = dARP(9391)/dV(5252) - JVRP(14902) = V(4263) -! JVRP(14903) = dARP(9392)/dV(4263) - JVRP(14903) = V(5256) -! JVRP(14904) = dARP(9392)/dV(5256) - JVRP(14904) = V(4263) -! JVRP(14905) = dARP(9393)/dV(4263) - JVRP(14905) = 1 -! JVRP(14906) = dARP(9394)/dV(3672) - JVRP(14906) = V(5250) -! JVRP(14907) = dARP(9394)/dV(5250) - JVRP(14907) = V(3672) -! JVRP(14908) = dARP(9395)/dV(3672) - JVRP(14908) = 1 -! JVRP(14909) = dARP(9396)/dV(3502) - JVRP(14909) = V(5250) -! JVRP(14910) = dARP(9396)/dV(5250) - JVRP(14910) = V(3502) -! JVRP(14911) = dARP(9397)/dV(3502) - JVRP(14911) = 1 -! JVRP(14912) = dARP(9398)/dV(3529) - JVRP(14912) = V(5250) -! JVRP(14913) = dARP(9398)/dV(5250) - JVRP(14913) = V(3529) -! JVRP(14914) = dARP(9399)/dV(3529) - JVRP(14914) = 1 -! JVRP(14915) = dARP(9400)/dV(3387) - JVRP(14915) = V(5250) -! JVRP(14916) = dARP(9400)/dV(5250) - JVRP(14916) = V(3387) -! JVRP(14917) = dARP(9401)/dV(3387) - JVRP(14917) = 1 -! JVRP(14918) = dARP(9402)/dV(3515) - JVRP(14918) = V(5250) -! JVRP(14919) = dARP(9402)/dV(5250) - JVRP(14919) = V(3515) -! JVRP(14920) = dARP(9403)/dV(3515) - JVRP(14920) = 1 -! JVRP(14921) = dARP(9404)/dV(3515) - JVRP(14921) = 1 -! JVRP(14922) = dARP(9405)/dV(3401) - JVRP(14922) = V(5250) -! JVRP(14923) = dARP(9405)/dV(5250) - JVRP(14923) = V(3401) -! JVRP(14924) = dARP(9406)/dV(3401) - JVRP(14924) = 1 -! JVRP(14925) = dARP(9407)/dV(5211) - JVRP(14925) = 1 -! JVRP(14926) = dARP(9408)/dV(5211) - JVRP(14926) = V(5256) -! JVRP(14927) = dARP(9408)/dV(5256) - JVRP(14927) = V(5211) -! JVRP(14928) = dARP(9409)/dV(5211) - JVRP(14928) = V(5250) -! JVRP(14929) = dARP(9409)/dV(5250) - JVRP(14929) = V(5211) -! JVRP(14930) = dARP(9410)/dV(4848) - JVRP(14930) = V(5255) -! JVRP(14931) = dARP(9410)/dV(5255) - JVRP(14931) = V(4848) -! JVRP(14932) = dARP(9411)/dV(4848) - JVRP(14932) = V(5255) -! JVRP(14933) = dARP(9411)/dV(5255) - JVRP(14933) = V(4848) -! JVRP(14934) = dARP(9412)/dV(4848) - JVRP(14934) = V(5255) -! JVRP(14935) = dARP(9412)/dV(5255) - JVRP(14935) = V(4848) -! JVRP(14936) = dARP(9413)/dV(4848) - JVRP(14936) = V(5252) -! JVRP(14937) = dARP(9413)/dV(5252) - JVRP(14937) = V(4848) -! JVRP(14938) = dARP(9414)/dV(4848) - JVRP(14938) = V(5253) -! JVRP(14939) = dARP(9414)/dV(5253) - JVRP(14939) = V(4848) -! JVRP(14940) = dARP(9415)/dV(4848) - JVRP(14940) = V(5256) -! JVRP(14941) = dARP(9415)/dV(5256) - JVRP(14941) = V(4848) -! JVRP(14942) = dARP(9416)/dV(4848) - JVRP(14942) = 1 -! JVRP(14943) = dARP(9417)/dV(4848) - JVRP(14943) = 1 -! JVRP(14944) = dARP(9418)/dV(3915) - JVRP(14944) = 1 -! JVRP(14945) = dARP(9419)/dV(3915) - JVRP(14945) = V(5256) -! JVRP(14946) = dARP(9419)/dV(5256) - JVRP(14946) = V(3915) -! JVRP(14947) = dARP(9420)/dV(3915) - JVRP(14947) = V(5250) -! JVRP(14948) = dARP(9420)/dV(5250) - JVRP(14948) = V(3915) -! JVRP(14949) = dARP(9421)/dV(4412) - JVRP(14949) = V(5255) -! JVRP(14950) = dARP(9421)/dV(5255) - JVRP(14950) = V(4412) -! JVRP(14951) = dARP(9422)/dV(4412) - JVRP(14951) = V(5255) -! JVRP(14952) = dARP(9422)/dV(5255) - JVRP(14952) = V(4412) -! JVRP(14953) = dARP(9423)/dV(4412) - JVRP(14953) = V(5252) -! JVRP(14954) = dARP(9423)/dV(5252) - JVRP(14954) = V(4412) -! JVRP(14955) = dARP(9424)/dV(4412) - JVRP(14955) = V(5253) -! JVRP(14956) = dARP(9424)/dV(5253) - JVRP(14956) = V(4412) -! JVRP(14957) = dARP(9425)/dV(4412) - JVRP(14957) = V(5256) -! JVRP(14958) = dARP(9425)/dV(5256) - JVRP(14958) = V(4412) -! JVRP(14959) = dARP(9426)/dV(4412) - JVRP(14959) = 1 -! JVRP(14960) = dARP(9427)/dV(4735) - JVRP(14960) = V(5255) -! JVRP(14961) = dARP(9427)/dV(5255) - JVRP(14961) = V(4735) -! JVRP(14962) = dARP(9428)/dV(4735) - JVRP(14962) = V(5252) -! JVRP(14963) = dARP(9428)/dV(5252) - JVRP(14963) = V(4735) -! JVRP(14964) = dARP(9429)/dV(4735) - JVRP(14964) = V(5252) -! JVRP(14965) = dARP(9429)/dV(5252) - JVRP(14965) = V(4735) -! JVRP(14966) = dARP(9430)/dV(4735) - JVRP(14966) = V(5256) -! JVRP(14967) = dARP(9430)/dV(5256) - JVRP(14967) = V(4735) -! JVRP(14968) = dARP(9431)/dV(4735) - JVRP(14968) = 1 -! JVRP(14969) = dARP(9432)/dV(4735) - JVRP(14969) = 1 -! JVRP(14970) = dARP(9433)/dV(4735) - JVRP(14970) = 1 -! JVRP(14971) = dARP(9434)/dV(3662) - JVRP(14971) = 1 -! JVRP(14972) = dARP(9435)/dV(3662) - JVRP(14972) = V(5256) -! JVRP(14973) = dARP(9435)/dV(5256) - JVRP(14973) = V(3662) -! JVRP(14974) = dARP(9436)/dV(3662) - JVRP(14974) = V(5250) -! JVRP(14975) = dARP(9436)/dV(5250) - JVRP(14975) = V(3662) -! JVRP(14976) = dARP(9437)/dV(4623) - JVRP(14976) = V(5255) -! JVRP(14977) = dARP(9437)/dV(5255) - JVRP(14977) = V(4623) -! JVRP(14978) = dARP(9438)/dV(4623) - JVRP(14978) = V(5255) -! JVRP(14979) = dARP(9438)/dV(5255) - JVRP(14979) = V(4623) -! JVRP(14980) = dARP(9439)/dV(4623) - JVRP(14980) = V(5255) -! JVRP(14981) = dARP(9439)/dV(5255) - JVRP(14981) = V(4623) -! JVRP(14982) = dARP(9440)/dV(4623) - JVRP(14982) = V(5252) -! JVRP(14983) = dARP(9440)/dV(5252) - JVRP(14983) = V(4623) -! JVRP(14984) = dARP(9441)/dV(4623) - JVRP(14984) = V(5253) -! JVRP(14985) = dARP(9441)/dV(5253) - JVRP(14985) = V(4623) -! JVRP(14986) = dARP(9442)/dV(4623) - JVRP(14986) = V(5256) -! JVRP(14987) = dARP(9442)/dV(5256) - JVRP(14987) = V(4623) -! JVRP(14988) = dARP(9443)/dV(4623) - JVRP(14988) = 1 -! JVRP(14989) = dARP(9444)/dV(4623) - JVRP(14989) = 1 -! JVRP(14990) = dARP(9445)/dV(4561) - JVRP(14990) = V(5255) -! JVRP(14991) = dARP(9445)/dV(5255) - JVRP(14991) = V(4561) -! JVRP(14992) = dARP(9446)/dV(4561) - JVRP(14992) = V(5252) -! JVRP(14993) = dARP(9446)/dV(5252) - JVRP(14993) = V(4561) -! JVRP(14994) = dARP(9447)/dV(4561) - JVRP(14994) = V(5252) -! JVRP(14995) = dARP(9447)/dV(5252) - JVRP(14995) = V(4561) -! JVRP(14996) = dARP(9448)/dV(4561) - JVRP(14996) = V(5256) -! JVRP(14997) = dARP(9448)/dV(5256) - JVRP(14997) = V(4561) -! JVRP(14998) = dARP(9449)/dV(4561) - JVRP(14998) = 1 -! JVRP(14999) = dARP(9450)/dV(4561) - JVRP(14999) = 1 -! JVRP(15000) = dARP(9451)/dV(3792) - JVRP(15000) = 1 -! JVRP(15001) = dARP(9452)/dV(3792) - JVRP(15001) = V(5256) -! JVRP(15002) = dARP(9452)/dV(5256) - JVRP(15002) = V(3792) -! JVRP(15003) = dARP(9453)/dV(3792) - JVRP(15003) = V(5250) -! JVRP(15004) = dARP(9453)/dV(5250) - JVRP(15004) = V(3792) -! JVRP(15005) = dARP(9454)/dV(3792) - JVRP(15005) = V(5250) -! JVRP(15006) = dARP(9454)/dV(5250) - JVRP(15006) = V(3792) -! JVRP(15007) = dARP(9455)/dV(5120) - JVRP(15007) = V(5255) -! JVRP(15008) = dARP(9455)/dV(5255) - JVRP(15008) = V(5120) -! JVRP(15009) = dARP(9456)/dV(5120) - JVRP(15009) = V(5252) -! JVRP(15010) = dARP(9456)/dV(5252) - JVRP(15010) = V(5120) -! JVRP(15011) = dARP(9457)/dV(5120) - JVRP(15011) = V(5252) -! JVRP(15012) = dARP(9457)/dV(5252) - JVRP(15012) = V(5120) -! JVRP(15013) = dARP(9458)/dV(5120) - JVRP(15013) = V(5256) -! JVRP(15014) = dARP(9458)/dV(5256) - JVRP(15014) = V(5120) -! JVRP(15015) = dARP(9459)/dV(5120) - JVRP(15015) = 1 -! JVRP(15016) = dARP(9460)/dV(5120) - JVRP(15016) = 1 -! JVRP(15017) = dARP(9461)/dV(5120) - JVRP(15017) = 1 -! JVRP(15018) = dARP(9462)/dV(4934) - JVRP(15018) = V(5255) -! JVRP(15019) = dARP(9462)/dV(5255) - JVRP(15019) = V(4934) -! JVRP(15020) = dARP(9463)/dV(4934) - JVRP(15020) = V(5255) -! JVRP(15021) = dARP(9463)/dV(5255) - JVRP(15021) = V(4934) -! JVRP(15022) = dARP(9464)/dV(4934) - JVRP(15022) = V(5255) -! JVRP(15023) = dARP(9464)/dV(5255) - JVRP(15023) = V(4934) -! JVRP(15024) = dARP(9465)/dV(4934) - JVRP(15024) = V(5252) -! JVRP(15025) = dARP(9465)/dV(5252) - JVRP(15025) = V(4934) -! JVRP(15026) = dARP(9466)/dV(4934) - JVRP(15026) = V(5253) -! JVRP(15027) = dARP(9466)/dV(5253) - JVRP(15027) = V(4934) -! JVRP(15028) = dARP(9467)/dV(4934) - JVRP(15028) = V(5256) -! JVRP(15029) = dARP(9467)/dV(5256) - JVRP(15029) = V(4934) -! JVRP(15030) = dARP(9468)/dV(4934) - JVRP(15030) = 1 -! JVRP(15031) = dARP(9469)/dV(4934) - JVRP(15031) = 1 -! JVRP(15032) = dARP(9470)/dV(4911) - JVRP(15032) = V(5255) -! JVRP(15033) = dARP(9470)/dV(5255) - JVRP(15033) = V(4911) -! JVRP(15034) = dARP(9471)/dV(4911) - JVRP(15034) = V(5252) -! JVRP(15035) = dARP(9471)/dV(5252) - JVRP(15035) = V(4911) -! JVRP(15036) = dARP(9472)/dV(4911) - JVRP(15036) = V(5256) -! JVRP(15037) = dARP(9472)/dV(5256) - JVRP(15037) = V(4911) -! JVRP(15038) = dARP(9473)/dV(4911) - JVRP(15038) = 1 -! JVRP(15039) = dARP(9474)/dV(4911) - JVRP(15039) = 1 -! JVRP(15040) = dARP(9475)/dV(4911) - JVRP(15040) = 1 -! JVRP(15041) = dARP(9476)/dV(4517) - JVRP(15041) = V(5255) -! JVRP(15042) = dARP(9476)/dV(5255) - JVRP(15042) = V(4517) -! JVRP(15043) = dARP(9477)/dV(4517) - JVRP(15043) = V(5255) -! JVRP(15044) = dARP(9477)/dV(5255) - JVRP(15044) = V(4517) -! JVRP(15045) = dARP(9478)/dV(4517) - JVRP(15045) = V(5252) -! JVRP(15046) = dARP(9478)/dV(5252) - JVRP(15046) = V(4517) -! JVRP(15047) = dARP(9479)/dV(4517) - JVRP(15047) = V(5253) -! JVRP(15048) = dARP(9479)/dV(5253) - JVRP(15048) = V(4517) -! JVRP(15049) = dARP(9480)/dV(4517) - JVRP(15049) = V(5256) -! JVRP(15050) = dARP(9480)/dV(5256) - JVRP(15050) = V(4517) -! JVRP(15051) = dARP(9481)/dV(4517) - JVRP(15051) = 1 -! JVRP(15052) = dARP(9482)/dV(4629) - JVRP(15052) = V(5255) -! JVRP(15053) = dARP(9482)/dV(5255) - JVRP(15053) = V(4629) -! JVRP(15054) = dARP(9483)/dV(4629) - JVRP(15054) = V(5255) -! JVRP(15055) = dARP(9483)/dV(5255) - JVRP(15055) = V(4629) -! JVRP(15056) = dARP(9484)/dV(4629) - JVRP(15056) = V(5255) -! JVRP(15057) = dARP(9484)/dV(5255) - JVRP(15057) = V(4629) -! JVRP(15058) = dARP(9485)/dV(4629) - JVRP(15058) = V(5252) -! JVRP(15059) = dARP(9485)/dV(5252) - JVRP(15059) = V(4629) -! JVRP(15060) = dARP(9486)/dV(4629) - JVRP(15060) = V(5253) -! JVRP(15061) = dARP(9486)/dV(5253) - JVRP(15061) = V(4629) -! JVRP(15062) = dARP(9487)/dV(4629) - JVRP(15062) = V(5256) -! JVRP(15063) = dARP(9487)/dV(5256) - JVRP(15063) = V(4629) -! JVRP(15064) = dARP(9488)/dV(4629) - JVRP(15064) = 1 -! JVRP(15065) = dARP(9489)/dV(4629) - JVRP(15065) = 1 -! JVRP(15066) = dARP(9490)/dV(4128) - JVRP(15066) = V(5255) -! JVRP(15067) = dARP(9490)/dV(5255) - JVRP(15067) = V(4128) -! JVRP(15068) = dARP(9491)/dV(4128) - JVRP(15068) = V(5252) -! JVRP(15069) = dARP(9491)/dV(5252) - JVRP(15069) = V(4128) -! JVRP(15070) = dARP(9492)/dV(4128) - JVRP(15070) = V(5252) -! JVRP(15071) = dARP(9492)/dV(5252) - JVRP(15071) = V(4128) -! JVRP(15072) = dARP(9493)/dV(4128) - JVRP(15072) = V(5256) -! JVRP(15073) = dARP(9493)/dV(5256) - JVRP(15073) = V(4128) -! JVRP(15074) = dARP(9494)/dV(4128) - JVRP(15074) = 1 -! JVRP(15075) = dARP(9495)/dV(4128) - JVRP(15075) = 1 -! JVRP(15076) = dARP(9496)/dV(4128) - JVRP(15076) = 1 -! JVRP(15077) = dARP(9497)/dV(4704) - JVRP(15077) = V(5255) -! JVRP(15078) = dARP(9497)/dV(5255) - JVRP(15078) = V(4704) -! JVRP(15079) = dARP(9498)/dV(4704) - JVRP(15079) = V(5252) -! JVRP(15080) = dARP(9498)/dV(5252) - JVRP(15080) = V(4704) -! JVRP(15081) = dARP(9499)/dV(4704) - JVRP(15081) = V(5252) -! JVRP(15082) = dARP(9499)/dV(5252) - JVRP(15082) = V(4704) -! JVRP(15083) = dARP(9500)/dV(4704) - JVRP(15083) = V(5256) -! JVRP(15084) = dARP(9500)/dV(5256) - JVRP(15084) = V(4704) -! JVRP(15085) = dARP(9501)/dV(4704) - JVRP(15085) = 1 -! JVRP(15086) = dARP(9502)/dV(4704) - JVRP(15086) = 1 -! JVRP(15087) = dARP(9503)/dV(4704) - JVRP(15087) = 1 -! JVRP(15088) = dARP(9504)/dV(3471) - JVRP(15088) = 1 -! JVRP(15089) = dARP(9505)/dV(3471) - JVRP(15089) = V(5256) -! JVRP(15090) = dARP(9505)/dV(5256) - JVRP(15090) = V(3471) -! JVRP(15091) = dARP(9506)/dV(3471) - JVRP(15091) = V(5250) -! JVRP(15092) = dARP(9506)/dV(5250) - JVRP(15092) = V(3471) -! JVRP(15093) = dARP(9507)/dV(4665) - JVRP(15093) = V(5255) -! JVRP(15094) = dARP(9507)/dV(5255) - JVRP(15094) = V(4665) -! JVRP(15095) = dARP(9508)/dV(4665) - JVRP(15095) = V(5255) -! JVRP(15096) = dARP(9508)/dV(5255) - JVRP(15096) = V(4665) -! JVRP(15097) = dARP(9509)/dV(4665) - JVRP(15097) = V(5255) -! JVRP(15098) = dARP(9509)/dV(5255) - JVRP(15098) = V(4665) -! JVRP(15099) = dARP(9510)/dV(4665) - JVRP(15099) = V(5252) -! JVRP(15100) = dARP(9510)/dV(5252) - JVRP(15100) = V(4665) -! JVRP(15101) = dARP(9511)/dV(4665) - JVRP(15101) = V(5253) -! JVRP(15102) = dARP(9511)/dV(5253) - JVRP(15102) = V(4665) -! JVRP(15103) = dARP(9512)/dV(4665) - JVRP(15103) = V(5256) -! JVRP(15104) = dARP(9512)/dV(5256) - JVRP(15104) = V(4665) -! JVRP(15105) = dARP(9513)/dV(4665) - JVRP(15105) = 1 -! JVRP(15106) = dARP(9514)/dV(4665) - JVRP(15106) = 1 -! JVRP(15107) = dARP(9515)/dV(4357) - JVRP(15107) = V(5255) -! JVRP(15108) = dARP(9515)/dV(5255) - JVRP(15108) = V(4357) -! JVRP(15109) = dARP(9516)/dV(4357) - JVRP(15109) = V(5252) -! JVRP(15110) = dARP(9516)/dV(5252) - JVRP(15110) = V(4357) -! JVRP(15111) = dARP(9517)/dV(4357) - JVRP(15111) = V(5252) -! JVRP(15112) = dARP(9517)/dV(5252) - JVRP(15112) = V(4357) -! JVRP(15113) = dARP(9518)/dV(4357) - JVRP(15113) = V(5256) -! JVRP(15114) = dARP(9518)/dV(5256) - JVRP(15114) = V(4357) -! JVRP(15115) = dARP(9519)/dV(4357) - JVRP(15115) = 1 -! JVRP(15116) = dARP(9520)/dV(4357) - JVRP(15116) = 1 -! JVRP(15117) = dARP(9521)/dV(4697) - JVRP(15117) = V(5255) -! JVRP(15118) = dARP(9521)/dV(5255) - JVRP(15118) = V(4697) -! JVRP(15119) = dARP(9522)/dV(4697) - JVRP(15119) = V(5252) -! JVRP(15120) = dARP(9522)/dV(5252) - JVRP(15120) = V(4697) -! JVRP(15121) = dARP(9523)/dV(4697) - JVRP(15121) = V(5256) -! JVRP(15122) = dARP(9523)/dV(5256) - JVRP(15122) = V(4697) -! JVRP(15123) = dARP(9524)/dV(4697) - JVRP(15123) = 1 -! JVRP(15124) = dARP(9525)/dV(4697) - JVRP(15124) = 1 -! JVRP(15125) = dARP(9526)/dV(4697) - JVRP(15125) = 1 -! JVRP(15126) = dARP(9527)/dV(3948) - JVRP(15126) = V(5255) -! JVRP(15127) = dARP(9527)/dV(5255) - JVRP(15127) = V(3948) -! JVRP(15128) = dARP(9528)/dV(3948) - JVRP(15128) = V(5252) -! JVRP(15129) = dARP(9528)/dV(5252) - JVRP(15129) = V(3948) -! JVRP(15130) = dARP(9529)/dV(3948) - JVRP(15130) = V(5256) -! JVRP(15131) = dARP(9529)/dV(5256) - JVRP(15131) = V(3948) -! JVRP(15132) = dARP(9530)/dV(3948) - JVRP(15132) = 1 -! JVRP(15133) = dARP(9531)/dV(3948) - JVRP(15133) = 1 -! JVRP(15134) = dARP(9532)/dV(5090) - JVRP(15134) = V(5255) -! JVRP(15135) = dARP(9532)/dV(5255) - JVRP(15135) = V(5090) -! JVRP(15136) = dARP(9533)/dV(5090) - JVRP(15136) = V(5255) -! JVRP(15137) = dARP(9533)/dV(5255) - JVRP(15137) = V(5090) -! JVRP(15138) = dARP(9534)/dV(5090) - JVRP(15138) = V(5255) -! JVRP(15139) = dARP(9534)/dV(5255) - JVRP(15139) = V(5090) -! JVRP(15140) = dARP(9535)/dV(5090) - JVRP(15140) = V(5252) -! JVRP(15141) = dARP(9535)/dV(5252) - JVRP(15141) = V(5090) -! JVRP(15142) = dARP(9536)/dV(5090) - JVRP(15142) = V(5253) -! JVRP(15143) = dARP(9536)/dV(5253) - JVRP(15143) = V(5090) -! JVRP(15144) = dARP(9537)/dV(5090) - JVRP(15144) = V(5256) -! JVRP(15145) = dARP(9537)/dV(5256) - JVRP(15145) = V(5090) -! JVRP(15146) = dARP(9538)/dV(5090) - JVRP(15146) = 1 -! JVRP(15147) = dARP(9539)/dV(5090) - JVRP(15147) = 1 -! JVRP(15148) = dARP(9540)/dV(4058) - JVRP(15148) = V(5255) -! JVRP(15149) = dARP(9540)/dV(5255) - JVRP(15149) = V(4058) -! JVRP(15150) = dARP(9541)/dV(4058) - JVRP(15150) = V(5252) -! JVRP(15151) = dARP(9541)/dV(5252) - JVRP(15151) = V(4058) -! JVRP(15152) = dARP(9542)/dV(4058) - JVRP(15152) = V(5252) -! JVRP(15153) = dARP(9542)/dV(5252) - JVRP(15153) = V(4058) -! JVRP(15154) = dARP(9543)/dV(4058) - JVRP(15154) = V(5256) -! JVRP(15155) = dARP(9543)/dV(5256) - JVRP(15155) = V(4058) -! JVRP(15156) = dARP(9544)/dV(4058) - JVRP(15156) = 1 -! JVRP(15157) = dARP(9545)/dV(4058) - JVRP(15157) = 1 -! JVRP(15158) = dARP(9546)/dV(4058) - JVRP(15158) = 1 -! JVRP(15159) = dARP(9547)/dV(4500) - JVRP(15159) = V(5255) -! JVRP(15160) = dARP(9547)/dV(5255) - JVRP(15160) = V(4500) -! JVRP(15161) = dARP(9548)/dV(4500) - JVRP(15161) = V(5255) -! JVRP(15162) = dARP(9548)/dV(5255) - JVRP(15162) = V(4500) -! JVRP(15163) = dARP(9549)/dV(4500) - JVRP(15163) = V(5255) -! JVRP(15164) = dARP(9549)/dV(5255) - JVRP(15164) = V(4500) -! JVRP(15165) = dARP(9550)/dV(4500) - JVRP(15165) = V(5252) -! JVRP(15166) = dARP(9550)/dV(5252) - JVRP(15166) = V(4500) -! JVRP(15167) = dARP(9551)/dV(4500) - JVRP(15167) = V(5253) -! JVRP(15168) = dARP(9551)/dV(5253) - JVRP(15168) = V(4500) -! JVRP(15169) = dARP(9552)/dV(4500) - JVRP(15169) = V(5256) -! JVRP(15170) = dARP(9552)/dV(5256) - JVRP(15170) = V(4500) -! JVRP(15171) = dARP(9553)/dV(4500) - JVRP(15171) = 1 -! JVRP(15172) = dARP(9554)/dV(4500) - JVRP(15172) = 1 -! JVRP(15173) = dARP(9555)/dV(4523) - JVRP(15173) = V(5255) -! JVRP(15174) = dARP(9555)/dV(5255) - JVRP(15174) = V(4523) -! JVRP(15175) = dARP(9556)/dV(4523) - JVRP(15175) = V(5255) -! JVRP(15176) = dARP(9556)/dV(5255) - JVRP(15176) = V(4523) -! JVRP(15177) = dARP(9557)/dV(4523) - JVRP(15177) = V(5255) -! JVRP(15178) = dARP(9557)/dV(5255) - JVRP(15178) = V(4523) -! JVRP(15179) = dARP(9558)/dV(4523) - JVRP(15179) = V(5252) -! JVRP(15180) = dARP(9558)/dV(5252) - JVRP(15180) = V(4523) -! JVRP(15181) = dARP(9559)/dV(4523) - JVRP(15181) = V(5253) -! JVRP(15182) = dARP(9559)/dV(5253) - JVRP(15182) = V(4523) -! JVRP(15183) = dARP(9560)/dV(4523) - JVRP(15183) = V(5256) -! JVRP(15184) = dARP(9560)/dV(5256) - JVRP(15184) = V(4523) -! JVRP(15185) = dARP(9561)/dV(4523) - JVRP(15185) = 1 -! JVRP(15186) = dARP(9562)/dV(4523) - JVRP(15186) = 1 -! JVRP(15187) = dARP(9563)/dV(3777) - JVRP(15187) = 1 -! JVRP(15188) = dARP(9564)/dV(3777) - JVRP(15188) = V(5250) -! JVRP(15189) = dARP(9564)/dV(5250) - JVRP(15189) = V(3777) -! JVRP(15190) = dARP(9565)/dV(3777) - JVRP(15190) = V(5250) -! JVRP(15191) = dARP(9565)/dV(5250) - JVRP(15191) = V(3777) -! JVRP(15192) = dARP(9566)/dV(3906) - JVRP(15192) = 1 -! JVRP(15193) = dARP(9567)/dV(3906) - JVRP(15193) = 1 -! JVRP(15194) = dARP(9568)/dV(3906) - JVRP(15194) = V(5250) -! JVRP(15195) = dARP(9568)/dV(5250) - JVRP(15195) = V(3906) -! JVRP(15196) = dARP(9569)/dV(3906) - JVRP(15196) = V(5250) -! JVRP(15197) = dARP(9569)/dV(5250) - JVRP(15197) = V(3906) -! JVRP(15198) = dARP(9570)/dV(3912) - JVRP(15198) = V(5255) -! JVRP(15199) = dARP(9570)/dV(5255) - JVRP(15199) = V(3912) -! JVRP(15200) = dARP(9571)/dV(3912) - JVRP(15200) = V(5252) -! JVRP(15201) = dARP(9571)/dV(5252) - JVRP(15201) = V(3912) -! JVRP(15202) = dARP(9572)/dV(3912) - JVRP(15202) = V(5256) -! JVRP(15203) = dARP(9572)/dV(5256) - JVRP(15203) = V(3912) -! JVRP(15204) = dARP(9573)/dV(3912) - JVRP(15204) = 1 -! JVRP(15205) = dARP(9574)/dV(3941) - JVRP(15205) = V(5255) -! JVRP(15206) = dARP(9574)/dV(5255) - JVRP(15206) = V(3941) -! JVRP(15207) = dARP(9575)/dV(3941) - JVRP(15207) = V(5252) -! JVRP(15208) = dARP(9575)/dV(5252) - JVRP(15208) = V(3941) -! JVRP(15209) = dARP(9576)/dV(3941) - JVRP(15209) = V(5256) -! JVRP(15210) = dARP(9576)/dV(5256) - JVRP(15210) = V(3941) -! JVRP(15211) = dARP(9577)/dV(3941) - JVRP(15211) = 1 -! JVRP(15212) = dARP(9578)/dV(4903) - JVRP(15212) = V(5255) -! JVRP(15213) = dARP(9578)/dV(5255) - JVRP(15213) = V(4903) -! JVRP(15214) = dARP(9579)/dV(4903) - JVRP(15214) = V(5252) -! JVRP(15215) = dARP(9579)/dV(5252) - JVRP(15215) = V(4903) -! JVRP(15216) = dARP(9580)/dV(4903) - JVRP(15216) = V(5252) -! JVRP(15217) = dARP(9580)/dV(5252) - JVRP(15217) = V(4903) -! JVRP(15218) = dARP(9581)/dV(4903) - JVRP(15218) = V(5256) -! JVRP(15219) = dARP(9581)/dV(5256) - JVRP(15219) = V(4903) -! JVRP(15220) = dARP(9582)/dV(4903) - JVRP(15220) = 1 -! JVRP(15221) = dARP(9583)/dV(4903) - JVRP(15221) = 1 -! JVRP(15222) = dARP(9584)/dV(4903) - JVRP(15222) = 1 -! JVRP(15223) = dARP(9585)/dV(4967) - JVRP(15223) = V(5255) -! JVRP(15224) = dARP(9585)/dV(5255) - JVRP(15224) = V(4967) -! JVRP(15225) = dARP(9586)/dV(4967) - JVRP(15225) = V(5252) -! JVRP(15226) = dARP(9586)/dV(5252) - JVRP(15226) = V(4967) -! JVRP(15227) = dARP(9587)/dV(4967) - JVRP(15227) = V(5256) -! JVRP(15228) = dARP(9587)/dV(5256) - JVRP(15228) = V(4967) -! JVRP(15229) = dARP(9588)/dV(4967) - JVRP(15229) = 1 -! JVRP(15230) = dARP(9589)/dV(4967) - JVRP(15230) = 1 -! JVRP(15231) = dARP(9590)/dV(4967) - JVRP(15231) = 1 -! JVRP(15232) = dARP(9591)/dV(4800) - JVRP(15232) = 1 -! JVRP(15233) = dARP(9592)/dV(4800) - JVRP(15233) = V(5250) -! JVRP(15234) = dARP(9592)/dV(5250) - JVRP(15234) = V(4800) -! JVRP(15235) = dARP(9593)/dV(4800) - JVRP(15235) = V(5250) -! JVRP(15236) = dARP(9593)/dV(5250) - JVRP(15236) = V(4800) -! JVRP(15237) = dARP(9594)/dV(3298) - JVRP(15237) = 1 -! JVRP(15238) = dARP(9595)/dV(3298) - JVRP(15238) = 1 -! JVRP(15239) = dARP(9596)/dV(3298) - JVRP(15239) = V(5250) -! JVRP(15240) = dARP(9596)/dV(5250) - JVRP(15240) = V(3298) -! JVRP(15241) = dARP(9597)/dV(3298) - JVRP(15241) = V(5250) -! JVRP(15242) = dARP(9597)/dV(5250) - JVRP(15242) = V(3298) -! JVRP(15243) = dARP(9598)/dV(3871) - JVRP(15243) = V(5255) -! JVRP(15244) = dARP(9598)/dV(5255) - JVRP(15244) = V(3871) -! JVRP(15245) = dARP(9599)/dV(3871) - JVRP(15245) = V(5252) -! JVRP(15246) = dARP(9599)/dV(5252) - JVRP(15246) = V(3871) -! JVRP(15247) = dARP(9600)/dV(3871) - JVRP(15247) = V(5256) -! JVRP(15248) = dARP(9600)/dV(5256) - JVRP(15248) = V(3871) -! JVRP(15249) = dARP(9601)/dV(3871) - JVRP(15249) = 1 -! JVRP(15250) = dARP(9602)/dV(4251) - JVRP(15250) = V(5255) -! JVRP(15251) = dARP(9602)/dV(5255) - JVRP(15251) = V(4251) -! JVRP(15252) = dARP(9603)/dV(4251) - JVRP(15252) = V(5252) -! JVRP(15253) = dARP(9603)/dV(5252) - JVRP(15253) = V(4251) -! JVRP(15254) = dARP(9604)/dV(4251) - JVRP(15254) = V(5252) -! JVRP(15255) = dARP(9604)/dV(5252) - JVRP(15255) = V(4251) -! JVRP(15256) = dARP(9605)/dV(4251) - JVRP(15256) = V(5256) -! JVRP(15257) = dARP(9605)/dV(5256) - JVRP(15257) = V(4251) -! JVRP(15258) = dARP(9606)/dV(4251) - JVRP(15258) = 1 -! JVRP(15259) = dARP(9607)/dV(4251) - JVRP(15259) = 1 -! JVRP(15260) = dARP(9608)/dV(4251) - JVRP(15260) = 1 -! JVRP(15261) = dARP(9609)/dV(5088) - JVRP(15261) = V(5255) -! JVRP(15262) = dARP(9609)/dV(5255) - JVRP(15262) = V(5088) -! JVRP(15263) = dARP(9610)/dV(5088) - JVRP(15263) = V(5255) -! JVRP(15264) = dARP(9610)/dV(5255) - JVRP(15264) = V(5088) -! JVRP(15265) = dARP(9611)/dV(5088) - JVRP(15265) = V(5255) -! JVRP(15266) = dARP(9611)/dV(5255) - JVRP(15266) = V(5088) -! JVRP(15267) = dARP(9612)/dV(5088) - JVRP(15267) = V(5252) -! JVRP(15268) = dARP(9612)/dV(5252) - JVRP(15268) = V(5088) -! JVRP(15269) = dARP(9613)/dV(5088) - JVRP(15269) = V(5253) -! JVRP(15270) = dARP(9613)/dV(5253) - JVRP(15270) = V(5088) -! JVRP(15271) = dARP(9614)/dV(5088) - JVRP(15271) = V(5256) -! JVRP(15272) = dARP(9614)/dV(5256) - JVRP(15272) = V(5088) -! JVRP(15273) = dARP(9615)/dV(5088) - JVRP(15273) = 1 -! JVRP(15274) = dARP(9616)/dV(5088) - JVRP(15274) = 1 -! JVRP(15275) = dARP(9617)/dV(4716) - JVRP(15275) = V(5255) -! JVRP(15276) = dARP(9617)/dV(5255) - JVRP(15276) = V(4716) -! JVRP(15277) = dARP(9618)/dV(4716) - JVRP(15277) = V(5252) -! JVRP(15278) = dARP(9618)/dV(5252) - JVRP(15278) = V(4716) -! JVRP(15279) = dARP(9619)/dV(4716) - JVRP(15279) = V(5252) -! JVRP(15280) = dARP(9619)/dV(5252) - JVRP(15280) = V(4716) -! JVRP(15281) = dARP(9620)/dV(4716) - JVRP(15281) = V(5256) -! JVRP(15282) = dARP(9620)/dV(5256) - JVRP(15282) = V(4716) -! JVRP(15283) = dARP(9621)/dV(4716) - JVRP(15283) = 1 -! JVRP(15284) = dARP(9622)/dV(4716) - JVRP(15284) = 1 -! JVRP(15285) = dARP(9623)/dV(4716) - JVRP(15285) = 1 -! JVRP(15286) = dARP(9624)/dV(602) - JVRP(15286) = 1 -! JVRP(15287) = dARP(9625)/dV(602) - JVRP(15287) = V(5250) -! JVRP(15288) = dARP(9625)/dV(5250) - JVRP(15288) = V(602) -! JVRP(15289) = dARP(9626)/dV(3977) - JVRP(15289) = V(5255) -! JVRP(15290) = dARP(9626)/dV(5255) - JVRP(15290) = V(3977) -! JVRP(15291) = dARP(9627)/dV(3977) - JVRP(15291) = V(5252) -! JVRP(15292) = dARP(9627)/dV(5252) - JVRP(15292) = V(3977) -! JVRP(15293) = dARP(9628)/dV(3977) - JVRP(15293) = V(5256) -! JVRP(15294) = dARP(9628)/dV(5256) - JVRP(15294) = V(3977) -! JVRP(15295) = dARP(9629)/dV(3977) - JVRP(15295) = 1 -! JVRP(15296) = dARP(9630)/dV(4713) - JVRP(15296) = V(5255) -! JVRP(15297) = dARP(9630)/dV(5255) - JVRP(15297) = V(4713) -! JVRP(15298) = dARP(9631)/dV(4713) - JVRP(15298) = V(5252) -! JVRP(15299) = dARP(9631)/dV(5252) - JVRP(15299) = V(4713) -! JVRP(15300) = dARP(9632)/dV(4713) - JVRP(15300) = V(5252) -! JVRP(15301) = dARP(9632)/dV(5252) - JVRP(15301) = V(4713) -! JVRP(15302) = dARP(9633)/dV(4713) - JVRP(15302) = V(5256) -! JVRP(15303) = dARP(9633)/dV(5256) - JVRP(15303) = V(4713) -! JVRP(15304) = dARP(9634)/dV(4713) - JVRP(15304) = 1 -! JVRP(15305) = dARP(9635)/dV(4713) - JVRP(15305) = 1 -! JVRP(15306) = dARP(9636)/dV(4713) - JVRP(15306) = 1 -! JVRP(15307) = dARP(9637)/dV(803) - JVRP(15307) = 1 -! JVRP(15308) = dARP(9638)/dV(803) - JVRP(15308) = V(5250) -! JVRP(15309) = dARP(9638)/dV(5250) - JVRP(15309) = V(803) -! JVRP(15310) = dARP(9639)/dV(3881) - JVRP(15310) = V(5255) -! JVRP(15311) = dARP(9639)/dV(5255) - JVRP(15311) = V(3881) -! JVRP(15312) = dARP(9640)/dV(3881) - JVRP(15312) = V(5252) -! JVRP(15313) = dARP(9640)/dV(5252) - JVRP(15313) = V(3881) -! JVRP(15314) = dARP(9641)/dV(3881) - JVRP(15314) = V(5256) -! JVRP(15315) = dARP(9641)/dV(5256) - JVRP(15315) = V(3881) -! JVRP(15316) = dARP(9642)/dV(3881) - JVRP(15316) = 1 -! JVRP(15317) = dARP(9643)/dV(4270) - JVRP(15317) = V(5255) -! JVRP(15318) = dARP(9643)/dV(5255) - JVRP(15318) = V(4270) -! JVRP(15319) = dARP(9644)/dV(4270) - JVRP(15319) = V(5252) -! JVRP(15320) = dARP(9644)/dV(5252) - JVRP(15320) = V(4270) -! JVRP(15321) = dARP(9645)/dV(4270) - JVRP(15321) = V(5256) -! JVRP(15322) = dARP(9645)/dV(5256) - JVRP(15322) = V(4270) -! JVRP(15323) = dARP(9646)/dV(4270) - JVRP(15323) = 1 -! JVRP(15324) = dARP(9647)/dV(4712) - JVRP(15324) = V(5255) -! JVRP(15325) = dARP(9647)/dV(5255) - JVRP(15325) = V(4712) -! JVRP(15326) = dARP(9648)/dV(4712) - JVRP(15326) = V(5252) -! JVRP(15327) = dARP(9648)/dV(5252) - JVRP(15327) = V(4712) -! JVRP(15328) = dARP(9649)/dV(4712) - JVRP(15328) = V(5252) -! JVRP(15329) = dARP(9649)/dV(5252) - JVRP(15329) = V(4712) -! JVRP(15330) = dARP(9650)/dV(4712) - JVRP(15330) = V(5256) -! JVRP(15331) = dARP(9650)/dV(5256) - JVRP(15331) = V(4712) -! JVRP(15332) = dARP(9651)/dV(4712) - JVRP(15332) = 1 -! JVRP(15333) = dARP(9652)/dV(4712) - JVRP(15333) = 1 -! JVRP(15334) = dARP(9653)/dV(4712) - JVRP(15334) = 1 -! JVRP(15335) = dARP(9654)/dV(769) - JVRP(15335) = 1 -! JVRP(15336) = dARP(9655)/dV(769) - JVRP(15336) = V(5250) -! JVRP(15337) = dARP(9655)/dV(5250) - JVRP(15337) = V(769) -! JVRP(15338) = dARP(9656)/dV(3919) - JVRP(15338) = V(5255) -! JVRP(15339) = dARP(9656)/dV(5255) - JVRP(15339) = V(3919) -! JVRP(15340) = dARP(9657)/dV(3919) - JVRP(15340) = V(5252) -! JVRP(15341) = dARP(9657)/dV(5252) - JVRP(15341) = V(3919) -! JVRP(15342) = dARP(9658)/dV(3919) - JVRP(15342) = V(5256) -! JVRP(15343) = dARP(9658)/dV(5256) - JVRP(15343) = V(3919) -! JVRP(15344) = dARP(9659)/dV(3919) - JVRP(15344) = 1 -! JVRP(15345) = dARP(9660)/dV(4254) - JVRP(15345) = V(5255) -! JVRP(15346) = dARP(9660)/dV(5255) - JVRP(15346) = V(4254) -! JVRP(15347) = dARP(9661)/dV(4254) - JVRP(15347) = V(5252) -! JVRP(15348) = dARP(9661)/dV(5252) - JVRP(15348) = V(4254) -! JVRP(15349) = dARP(9662)/dV(4254) - JVRP(15349) = V(5256) -! JVRP(15350) = dARP(9662)/dV(5256) - JVRP(15350) = V(4254) -! JVRP(15351) = dARP(9663)/dV(4254) - JVRP(15351) = 1 -! JVRP(15352) = dARP(9664)/dV(4715) - JVRP(15352) = V(5255) -! JVRP(15353) = dARP(9664)/dV(5255) - JVRP(15353) = V(4715) -! JVRP(15354) = dARP(9665)/dV(4715) - JVRP(15354) = V(5252) -! JVRP(15355) = dARP(9665)/dV(5252) - JVRP(15355) = V(4715) -! JVRP(15356) = dARP(9666)/dV(4715) - JVRP(15356) = V(5252) -! JVRP(15357) = dARP(9666)/dV(5252) - JVRP(15357) = V(4715) -! JVRP(15358) = dARP(9667)/dV(4715) - JVRP(15358) = V(5256) -! JVRP(15359) = dARP(9667)/dV(5256) - JVRP(15359) = V(4715) -! JVRP(15360) = dARP(9668)/dV(4715) - JVRP(15360) = 1 -! JVRP(15361) = dARP(9669)/dV(4715) - JVRP(15361) = 1 -! JVRP(15362) = dARP(9670)/dV(4715) - JVRP(15362) = 1 -! JVRP(15363) = dARP(9671)/dV(794) - JVRP(15363) = 1 -! JVRP(15364) = dARP(9672)/dV(794) - JVRP(15364) = V(5250) -! JVRP(15365) = dARP(9672)/dV(5250) - JVRP(15365) = V(794) -! JVRP(15366) = dARP(9673)/dV(3916) - JVRP(15366) = V(5255) -! JVRP(15367) = dARP(9673)/dV(5255) - JVRP(15367) = V(3916) -! JVRP(15368) = dARP(9674)/dV(3916) - JVRP(15368) = V(5252) -! JVRP(15369) = dARP(9674)/dV(5252) - JVRP(15369) = V(3916) -! JVRP(15370) = dARP(9675)/dV(3916) - JVRP(15370) = V(5256) -! JVRP(15371) = dARP(9675)/dV(5256) - JVRP(15371) = V(3916) -! JVRP(15372) = dARP(9676)/dV(3916) - JVRP(15372) = 1 -! JVRP(15373) = dARP(9677)/dV(4238) - JVRP(15373) = V(5255) -! JVRP(15374) = dARP(9677)/dV(5255) - JVRP(15374) = V(4238) -! JVRP(15375) = dARP(9678)/dV(4238) - JVRP(15375) = V(5252) -! JVRP(15376) = dARP(9678)/dV(5252) - JVRP(15376) = V(4238) -! JVRP(15377) = dARP(9679)/dV(4238) - JVRP(15377) = V(5256) -! JVRP(15378) = dARP(9679)/dV(5256) - JVRP(15378) = V(4238) -! JVRP(15379) = dARP(9680)/dV(4238) - JVRP(15379) = 1 -! JVRP(15380) = dARP(9681)/dV(4709) - JVRP(15380) = V(5255) -! JVRP(15381) = dARP(9681)/dV(5255) - JVRP(15381) = V(4709) -! JVRP(15382) = dARP(9682)/dV(4709) - JVRP(15382) = V(5252) -! JVRP(15383) = dARP(9682)/dV(5252) - JVRP(15383) = V(4709) -! JVRP(15384) = dARP(9683)/dV(4709) - JVRP(15384) = V(5252) -! JVRP(15385) = dARP(9683)/dV(5252) - JVRP(15385) = V(4709) -! JVRP(15386) = dARP(9684)/dV(4709) - JVRP(15386) = V(5256) -! JVRP(15387) = dARP(9684)/dV(5256) - JVRP(15387) = V(4709) -! JVRP(15388) = dARP(9685)/dV(4709) - JVRP(15388) = 1 -! JVRP(15389) = dARP(9686)/dV(4709) - JVRP(15389) = 1 -! JVRP(15390) = dARP(9687)/dV(4709) - JVRP(15390) = 1 -! JVRP(15391) = dARP(9688)/dV(609) - JVRP(15391) = 1 -! JVRP(15392) = dARP(9689)/dV(609) - JVRP(15392) = V(5250) -! JVRP(15393) = dARP(9689)/dV(5250) - JVRP(15393) = V(609) -! JVRP(15394) = dARP(9690)/dV(3880) - JVRP(15394) = V(5255) -! JVRP(15395) = dARP(9690)/dV(5255) - JVRP(15395) = V(3880) -! JVRP(15396) = dARP(9691)/dV(3880) - JVRP(15396) = V(5252) -! JVRP(15397) = dARP(9691)/dV(5252) - JVRP(15397) = V(3880) -! JVRP(15398) = dARP(9692)/dV(3880) - JVRP(15398) = V(5256) -! JVRP(15399) = dARP(9692)/dV(5256) - JVRP(15399) = V(3880) -! JVRP(15400) = dARP(9693)/dV(3880) - JVRP(15400) = 1 -! JVRP(15401) = dARP(9694)/dV(4360) - JVRP(15401) = V(5255) -! JVRP(15402) = dARP(9694)/dV(5255) - JVRP(15402) = V(4360) -! JVRP(15403) = dARP(9695)/dV(4360) - JVRP(15403) = V(5252) -! JVRP(15404) = dARP(9695)/dV(5252) - JVRP(15404) = V(4360) -! JVRP(15405) = dARP(9696)/dV(4360) - JVRP(15405) = V(5252) -! JVRP(15406) = dARP(9696)/dV(5252) - JVRP(15406) = V(4360) -! JVRP(15407) = dARP(9697)/dV(4360) - JVRP(15407) = V(5256) -! JVRP(15408) = dARP(9697)/dV(5256) - JVRP(15408) = V(4360) -! JVRP(15409) = dARP(9698)/dV(4360) - JVRP(15409) = 1 -! JVRP(15410) = dARP(9699)/dV(4360) - JVRP(15410) = 1 -! JVRP(15411) = dARP(9700)/dV(4360) - JVRP(15411) = 1 -! JVRP(15412) = dARP(9701)/dV(6) - JVRP(15412) = 1 -! JVRP(15413) = dARP(9702)/dV(8) - JVRP(15413) = 1 -! JVRP(15414) = dARP(9703)/dV(4284) - JVRP(15414) = V(5255) -! JVRP(15415) = dARP(9703)/dV(5255) - JVRP(15415) = V(4284) -! JVRP(15416) = dARP(9704)/dV(4284) - JVRP(15416) = V(5252) -! JVRP(15417) = dARP(9704)/dV(5252) - JVRP(15417) = V(4284) -! JVRP(15418) = dARP(9705)/dV(4284) - JVRP(15418) = V(5256) -! JVRP(15419) = dARP(9705)/dV(5256) - JVRP(15419) = V(4284) -! JVRP(15420) = dARP(9706)/dV(4284) - JVRP(15420) = 1 -! JVRP(15421) = dARP(9707)/dV(713) - JVRP(15421) = V(5250) -! JVRP(15422) = dARP(9707)/dV(5250) - JVRP(15422) = V(713) -! JVRP(15423) = dARP(9708)/dV(713) - JVRP(15423) = 1 -! JVRP(15424) = dARP(9709)/dV(1807) - JVRP(15424) = V(5250) -! JVRP(15425) = dARP(9709)/dV(5250) - JVRP(15425) = V(1807) -! JVRP(15426) = dARP(9710)/dV(1807) - JVRP(15426) = 1 -! JVRP(15427) = dARP(9711)/dV(4053) - JVRP(15427) = V(5250) -! JVRP(15428) = dARP(9711)/dV(5250) - JVRP(15428) = V(4053) -! JVRP(15429) = dARP(9712)/dV(4053) - JVRP(15429) = 1 -! JVRP(15430) = dARP(9713)/dV(2803) - JVRP(15430) = 1 -! JVRP(15431) = dARP(9714)/dV(2803) - JVRP(15431) = 1 -! JVRP(15432) = dARP(9715)/dV(2803) - JVRP(15432) = V(5250) -! JVRP(15433) = dARP(9715)/dV(5250) - JVRP(15433) = V(2803) -! JVRP(15434) = dARP(9716)/dV(1127) - JVRP(15434) = V(5250) -! JVRP(15435) = dARP(9716)/dV(5250) - JVRP(15435) = V(1127) -! JVRP(15436) = dARP(9717)/dV(1127) - JVRP(15436) = 1 -! JVRP(15437) = dARP(9718)/dV(3407) - JVRP(15437) = 1 -! JVRP(15438) = dARP(9719)/dV(3407) - JVRP(15438) = 1 -! JVRP(15439) = dARP(9720)/dV(4828) - JVRP(15439) = V(5251) -! JVRP(15440) = dARP(9720)/dV(5251) - JVRP(15440) = V(4828) -! JVRP(15441) = dARP(9721)/dV(4828) - JVRP(15441) = V(5252) -! JVRP(15442) = dARP(9721)/dV(5252) - JVRP(15442) = V(4828) -! JVRP(15443) = dARP(9722)/dV(4828) - JVRP(15443) = V(5253) -! JVRP(15444) = dARP(9722)/dV(5253) - JVRP(15444) = V(4828) -! JVRP(15445) = dARP(9723)/dV(4828) - JVRP(15445) = V(5254) -! JVRP(15446) = dARP(9723)/dV(5254) - JVRP(15446) = V(4828) -! JVRP(15447) = dARP(9724)/dV(4828) - JVRP(15447) = 1 -! JVRP(15448) = dARP(9725)/dV(4828) - JVRP(15448) = 1 -! JVRP(15449) = dARP(9726)/dV(2089) - JVRP(15449) = V(5250) -! JVRP(15450) = dARP(9726)/dV(5250) - JVRP(15450) = V(2089) -! JVRP(15451) = dARP(9727)/dV(2089) - JVRP(15451) = 1 -! JVRP(15452) = dARP(9728)/dV(768) - JVRP(15452) = 1 -! JVRP(15453) = dARP(9729)/dV(1040) - JVRP(15453) = V(5250) -! JVRP(15454) = dARP(9729)/dV(5250) - JVRP(15454) = V(1040) -! JVRP(15455) = dARP(9730)/dV(233) - JVRP(15455) = V(5250) -! JVRP(15456) = dARP(9730)/dV(5250) - JVRP(15456) = V(233) -! JVRP(15457) = dARP(9731)/dV(2471) - JVRP(15457) = V(5250) -! JVRP(15458) = dARP(9731)/dV(5250) - JVRP(15458) = V(2471) -! JVRP(15459) = dARP(9732)/dV(451) - JVRP(15459) = V(5250) -! JVRP(15460) = dARP(9732)/dV(5250) - JVRP(15460) = V(451) -! JVRP(15461) = dARP(9733)/dV(451) - JVRP(15461) = 1 -! JVRP(15462) = dARP(9734)/dV(3146) - JVRP(15462) = V(5256) -! JVRP(15463) = dARP(9734)/dV(5256) - JVRP(15463) = V(3146) -! JVRP(15464) = dARP(9735)/dV(3146) - JVRP(15464) = V(5250) -! JVRP(15465) = dARP(9735)/dV(5250) - JVRP(15465) = V(3146) -! JVRP(15466) = dARP(9736)/dV(4067) - JVRP(15466) = V(5255) -! JVRP(15467) = dARP(9736)/dV(5255) - JVRP(15467) = V(4067) -! JVRP(15468) = dARP(9737)/dV(4067) - JVRP(15468) = V(5252) -! JVRP(15469) = dARP(9737)/dV(5252) - JVRP(15469) = V(4067) -! JVRP(15470) = dARP(9738)/dV(4067) - JVRP(15470) = V(5256) -! JVRP(15471) = dARP(9738)/dV(5256) - JVRP(15471) = V(4067) -! JVRP(15472) = dARP(9739)/dV(4067) - JVRP(15472) = 1 -! JVRP(15473) = dARP(9740)/dV(4195) - JVRP(15473) = V(5255) -! JVRP(15474) = dARP(9740)/dV(5255) - JVRP(15474) = V(4195) -! JVRP(15475) = dARP(9741)/dV(4195) - JVRP(15475) = V(5252) -! JVRP(15476) = dARP(9741)/dV(5252) - JVRP(15476) = V(4195) -! JVRP(15477) = dARP(9742)/dV(4195) - JVRP(15477) = V(5256) -! JVRP(15478) = dARP(9742)/dV(5256) - JVRP(15478) = V(4195) -! JVRP(15479) = dARP(9743)/dV(4195) - JVRP(15479) = 1 -! JVRP(15480) = dARP(9744)/dV(4273) - JVRP(15480) = V(5255) -! JVRP(15481) = dARP(9744)/dV(5255) - JVRP(15481) = V(4273) -! JVRP(15482) = dARP(9745)/dV(4273) - JVRP(15482) = V(5252) -! JVRP(15483) = dARP(9745)/dV(5252) - JVRP(15483) = V(4273) -! JVRP(15484) = dARP(9746)/dV(4273) - JVRP(15484) = V(5256) -! JVRP(15485) = dARP(9746)/dV(5256) - JVRP(15485) = V(4273) -! JVRP(15486) = dARP(9747)/dV(4273) - JVRP(15486) = 1 -! JVRP(15487) = dARP(9748)/dV(1125) - JVRP(15487) = V(5250) -! JVRP(15488) = dARP(9748)/dV(5250) - JVRP(15488) = V(1125) -! JVRP(15489) = dARP(9749)/dV(1125) - JVRP(15489) = 1 -! JVRP(15490) = dARP(9750)/dV(4163) - JVRP(15490) = V(5255) -! JVRP(15491) = dARP(9750)/dV(5255) - JVRP(15491) = V(4163) -! JVRP(15492) = dARP(9751)/dV(4163) - JVRP(15492) = V(5252) -! JVRP(15493) = dARP(9751)/dV(5252) - JVRP(15493) = V(4163) -! JVRP(15494) = dARP(9752)/dV(4163) - JVRP(15494) = V(5256) -! JVRP(15495) = dARP(9752)/dV(5256) - JVRP(15495) = V(4163) -! JVRP(15496) = dARP(9753)/dV(4163) - JVRP(15496) = 1 -! JVRP(15497) = dARP(9754)/dV(3740) - JVRP(15497) = V(5255) -! JVRP(15498) = dARP(9754)/dV(5255) - JVRP(15498) = V(3740) -! JVRP(15499) = dARP(9755)/dV(3740) - JVRP(15499) = V(5252) -! JVRP(15500) = dARP(9755)/dV(5252) - JVRP(15500) = V(3740) -! JVRP(15501) = dARP(9756)/dV(3740) - JVRP(15501) = V(5256) -! JVRP(15502) = dARP(9756)/dV(5256) - JVRP(15502) = V(3740) -! JVRP(15503) = dARP(9757)/dV(3740) - JVRP(15503) = 1 -! JVRP(15504) = dARP(9758)/dV(3740) - JVRP(15504) = 1 -! JVRP(15505) = dARP(9759)/dV(3740) - JVRP(15505) = 1 -! JVRP(15506) = dARP(9760)/dV(3685) - JVRP(15506) = V(5255) -! JVRP(15507) = dARP(9760)/dV(5255) - JVRP(15507) = V(3685) -! JVRP(15508) = dARP(9761)/dV(3685) - JVRP(15508) = V(5252) -! JVRP(15509) = dARP(9761)/dV(5252) - JVRP(15509) = V(3685) -! JVRP(15510) = dARP(9762)/dV(3685) - JVRP(15510) = V(5256) -! JVRP(15511) = dARP(9762)/dV(5256) - JVRP(15511) = V(3685) -! JVRP(15512) = dARP(9763)/dV(3685) - JVRP(15512) = 1 -! JVRP(15513) = dARP(9764)/dV(3699) - JVRP(15513) = V(5255) -! JVRP(15514) = dARP(9764)/dV(5255) - JVRP(15514) = V(3699) -! JVRP(15515) = dARP(9765)/dV(3699) - JVRP(15515) = V(5252) -! JVRP(15516) = dARP(9765)/dV(5252) - JVRP(15516) = V(3699) -! JVRP(15517) = dARP(9766)/dV(3699) - JVRP(15517) = V(5256) -! JVRP(15518) = dARP(9766)/dV(5256) - JVRP(15518) = V(3699) -! JVRP(15519) = dARP(9767)/dV(3699) - JVRP(15519) = 1 -! JVRP(15520) = dARP(9768)/dV(3699) - JVRP(15520) = 1 -! JVRP(15521) = dARP(9769)/dV(3699) - JVRP(15521) = 1 -! JVRP(15522) = dARP(9770)/dV(3088) - JVRP(15522) = V(5256) -! JVRP(15523) = dARP(9770)/dV(5256) - JVRP(15523) = V(3088) -! JVRP(15524) = dARP(9771)/dV(3088) - JVRP(15524) = V(5250) -! JVRP(15525) = dARP(9771)/dV(5250) - JVRP(15525) = V(3088) -! JVRP(15526) = dARP(9772)/dV(4022) - JVRP(15526) = V(5255) -! JVRP(15527) = dARP(9772)/dV(5255) - JVRP(15527) = V(4022) -! JVRP(15528) = dARP(9773)/dV(4022) - JVRP(15528) = V(5252) -! JVRP(15529) = dARP(9773)/dV(5252) - JVRP(15529) = V(4022) -! JVRP(15530) = dARP(9774)/dV(4022) - JVRP(15530) = V(5256) -! JVRP(15531) = dARP(9774)/dV(5256) - JVRP(15531) = V(4022) -! JVRP(15532) = dARP(9775)/dV(4022) - JVRP(15532) = 1 -! JVRP(15533) = dARP(9776)/dV(4265) - JVRP(15533) = V(5255) -! JVRP(15534) = dARP(9776)/dV(5255) - JVRP(15534) = V(4265) -! JVRP(15535) = dARP(9777)/dV(4265) - JVRP(15535) = V(5252) -! JVRP(15536) = dARP(9777)/dV(5252) - JVRP(15536) = V(4265) -! JVRP(15537) = dARP(9778)/dV(4265) - JVRP(15537) = V(5256) -! JVRP(15538) = dARP(9778)/dV(5256) - JVRP(15538) = V(4265) -! JVRP(15539) = dARP(9779)/dV(4265) - JVRP(15539) = 1 -! JVRP(15540) = dARP(9780)/dV(4217) - JVRP(15540) = V(5255) -! JVRP(15541) = dARP(9780)/dV(5255) - JVRP(15541) = V(4217) -! JVRP(15542) = dARP(9781)/dV(4217) - JVRP(15542) = V(5252) -! JVRP(15543) = dARP(9781)/dV(5252) - JVRP(15543) = V(4217) -! JVRP(15544) = dARP(9782)/dV(4217) - JVRP(15544) = V(5256) -! JVRP(15545) = dARP(9782)/dV(5256) - JVRP(15545) = V(4217) -! JVRP(15546) = dARP(9783)/dV(4217) - JVRP(15546) = 1 -! JVRP(15547) = dARP(9784)/dV(1429) - JVRP(15547) = V(5250) -! JVRP(15548) = dARP(9784)/dV(5250) - JVRP(15548) = V(1429) -! JVRP(15549) = dARP(9785)/dV(1429) - JVRP(15549) = 1 -! JVRP(15550) = dARP(9786)/dV(4024) - JVRP(15550) = 1 -! JVRP(15551) = dARP(9787)/dV(4024) - JVRP(15551) = 1 -! JVRP(15552) = dARP(9788)/dV(3280) - JVRP(15552) = V(5250) -! JVRP(15553) = dARP(9788)/dV(5250) - JVRP(15553) = V(3280) -! JVRP(15554) = dARP(9789)/dV(3280) - JVRP(15554) = 1 -! JVRP(15555) = dARP(9790)/dV(3280) - JVRP(15555) = 1 -! JVRP(15556) = dARP(9791)/dV(3290) - JVRP(15556) = V(5250) -! JVRP(15557) = dARP(9791)/dV(5250) - JVRP(15557) = V(3290) -! JVRP(15558) = dARP(9792)/dV(3290) - JVRP(15558) = 1 -! JVRP(15559) = dARP(9793)/dV(2592) - JVRP(15559) = 1 -! JVRP(15560) = dARP(9794)/dV(1602) - JVRP(15560) = V(5250) -! JVRP(15561) = dARP(9794)/dV(5250) - JVRP(15561) = V(1602) -! JVRP(15562) = dARP(9795)/dV(1602) - JVRP(15562) = 1 -! JVRP(15563) = dARP(9796)/dV(1837) - JVRP(15563) = V(5250) -! JVRP(15564) = dARP(9796)/dV(5250) - JVRP(15564) = V(1837) -! JVRP(15565) = dARP(9797)/dV(1837) - JVRP(15565) = V(5250) -! JVRP(15566) = dARP(9797)/dV(5250) - JVRP(15566) = V(1837) -! JVRP(15567) = dARP(9798)/dV(1837) - JVRP(15567) = 1 -! JVRP(15568) = dARP(9799)/dV(2752) - JVRP(15568) = 1 -! JVRP(15569) = dARP(9800)/dV(4490) - JVRP(15569) = V(5250) -! JVRP(15570) = dARP(9800)/dV(5250) - JVRP(15570) = V(4490) -! JVRP(15571) = dARP(9801)/dV(4490) - JVRP(15571) = 1 -! JVRP(15572) = dARP(9802)/dV(1734) - JVRP(15572) = V(5250) -! JVRP(15573) = dARP(9802)/dV(5250) - JVRP(15573) = V(1734) -! JVRP(15574) = dARP(9803)/dV(1734) - JVRP(15574) = 1 -! JVRP(15575) = dARP(9804)/dV(2454) - JVRP(15575) = V(5250) -! JVRP(15576) = dARP(9804)/dV(5250) - JVRP(15576) = V(2454) -! JVRP(15577) = dARP(9805)/dV(2454) - JVRP(15577) = 1 -! JVRP(15578) = dARP(9806)/dV(712) - JVRP(15578) = 1 -! JVRP(15579) = dARP(9807)/dV(4929) - JVRP(15579) = V(5255) -! JVRP(15580) = dARP(9807)/dV(5255) - JVRP(15580) = V(4929) -! JVRP(15581) = dARP(9808)/dV(4929) - JVRP(15581) = V(5252) -! JVRP(15582) = dARP(9808)/dV(5252) - JVRP(15582) = V(4929) -! JVRP(15583) = dARP(9809)/dV(4929) - JVRP(15583) = V(5256) -! JVRP(15584) = dARP(9809)/dV(5256) - JVRP(15584) = V(4929) -! JVRP(15585) = dARP(9810)/dV(4929) - JVRP(15585) = 1 -! JVRP(15586) = dARP(9811)/dV(4621) - JVRP(15586) = V(5251) -! JVRP(15587) = dARP(9811)/dV(5251) - JVRP(15587) = V(4621) -! JVRP(15588) = dARP(9812)/dV(4621) - JVRP(15588) = V(5252) -! JVRP(15589) = dARP(9812)/dV(5252) - JVRP(15589) = V(4621) -! JVRP(15590) = dARP(9813)/dV(4621) - JVRP(15590) = V(5253) -! JVRP(15591) = dARP(9813)/dV(5253) - JVRP(15591) = V(4621) -! JVRP(15592) = dARP(9814)/dV(4621) - JVRP(15592) = V(5254) -! JVRP(15593) = dARP(9814)/dV(5254) - JVRP(15593) = V(4621) -! JVRP(15594) = dARP(9815)/dV(4621) - JVRP(15594) = 1 -! JVRP(15595) = dARP(9816)/dV(4621) - JVRP(15595) = 1 -! JVRP(15596) = dARP(9817)/dV(944) - JVRP(15596) = V(5250) -! JVRP(15597) = dARP(9817)/dV(5250) - JVRP(15597) = V(944) -! JVRP(15598) = dARP(9818)/dV(944) - JVRP(15598) = 1 -! JVRP(15599) = dARP(9819)/dV(1675) - JVRP(15599) = 1 -! JVRP(15600) = dARP(9820)/dV(100) - JVRP(15600) = V(5250) -! JVRP(15601) = dARP(9820)/dV(5250) - JVRP(15601) = V(100) -! JVRP(15602) = dARP(9821)/dV(3209) - JVRP(15602) = V(5250) -! JVRP(15603) = dARP(9821)/dV(5250) - JVRP(15603) = V(3209) -! JVRP(15604) = dARP(9822)/dV(3209) - JVRP(15604) = 1 -! JVRP(15605) = dARP(9823)/dV(3209) - JVRP(15605) = 1 -! JVRP(15606) = dARP(9824)/dV(4328) - JVRP(15606) = 1 -! JVRP(15607) = dARP(9825)/dV(4328) - JVRP(15607) = 1 -! JVRP(15608) = dARP(9826)/dV(2504) - JVRP(15608) = V(5250) -! JVRP(15609) = dARP(9826)/dV(5250) - JVRP(15609) = V(2504) -! JVRP(15610) = dARP(9827)/dV(2504) - JVRP(15610) = 1 -! JVRP(15611) = dARP(9828)/dV(4741) - JVRP(15611) = V(5251) -! JVRP(15612) = dARP(9828)/dV(5251) - JVRP(15612) = V(4741) -! JVRP(15613) = dARP(9829)/dV(4741) - JVRP(15613) = V(5252) -! JVRP(15614) = dARP(9829)/dV(5252) - JVRP(15614) = V(4741) -! JVRP(15615) = dARP(9830)/dV(4741) - JVRP(15615) = V(5253) -! JVRP(15616) = dARP(9830)/dV(5253) - JVRP(15616) = V(4741) -! JVRP(15617) = dARP(9831)/dV(4741) - JVRP(15617) = V(5254) -! JVRP(15618) = dARP(9831)/dV(5254) - JVRP(15618) = V(4741) -! JVRP(15619) = dARP(9832)/dV(4741) - JVRP(15619) = 1 -! JVRP(15620) = dARP(9833)/dV(2602) - JVRP(15620) = V(5250) -! JVRP(15621) = dARP(9833)/dV(5250) - JVRP(15621) = V(2602) -! JVRP(15622) = dARP(9834)/dV(2602) - JVRP(15622) = 1 -! JVRP(15623) = dARP(9835)/dV(2602) - JVRP(15623) = 1 -! JVRP(15624) = dARP(9836)/dV(2659) - JVRP(15624) = 1 -! JVRP(15625) = dARP(9837)/dV(1681) - JVRP(15625) = V(5250) -! JVRP(15626) = dARP(9837)/dV(5250) - JVRP(15626) = V(1681) -! JVRP(15627) = dARP(9838)/dV(1681) - JVRP(15627) = 1 -! JVRP(15628) = dARP(9839)/dV(2152) - JVRP(15628) = V(5250) -! JVRP(15629) = dARP(9839)/dV(5250) - JVRP(15629) = V(2152) -! JVRP(15630) = dARP(9840)/dV(2152) - JVRP(15630) = 1 -! JVRP(15631) = dARP(9841)/dV(800) - JVRP(15631) = 1 -! JVRP(15632) = dARP(9842)/dV(3214) - JVRP(15632) = V(5250) -! JVRP(15633) = dARP(9842)/dV(5250) - JVRP(15633) = V(3214) -! JVRP(15634) = dARP(9843)/dV(3214) - JVRP(15634) = V(5250) -! JVRP(15635) = dARP(9843)/dV(5250) - JVRP(15635) = V(3214) -! JVRP(15636) = dARP(9844)/dV(3214) - JVRP(15636) = 1 -! JVRP(15637) = dARP(9845)/dV(605) - JVRP(15637) = 1 -! JVRP(15638) = dARP(9846)/dV(2467) - JVRP(15638) = V(5250) -! JVRP(15639) = dARP(9846)/dV(5250) - JVRP(15639) = V(2467) -! JVRP(15640) = dARP(9847)/dV(2467) - JVRP(15640) = 1 -! JVRP(15641) = dARP(9848)/dV(392) - JVRP(15641) = V(5250) -! JVRP(15642) = dARP(9848)/dV(5250) - JVRP(15642) = V(392) -! JVRP(15643) = dARP(9849)/dV(838) - JVRP(15643) = V(5250) -! JVRP(15644) = dARP(9849)/dV(5250) - JVRP(15644) = V(838) -! JVRP(15645) = dARP(9850)/dV(838) - JVRP(15645) = 1 -! JVRP(15646) = dARP(9851)/dV(1727) - JVRP(15646) = 1 -! JVRP(15647) = dARP(9852)/dV(73) - JVRP(15647) = V(5250) -! JVRP(15648) = dARP(9852)/dV(5250) - JVRP(15648) = V(73) -! JVRP(15649) = dARP(9853)/dV(3163) - JVRP(15649) = V(5256) -! JVRP(15650) = dARP(9853)/dV(5256) - JVRP(15650) = V(3163) -! JVRP(15651) = dARP(9854)/dV(3163) - JVRP(15651) = V(5250) -! JVRP(15652) = dARP(9854)/dV(5250) - JVRP(15652) = V(3163) -! JVRP(15653) = dARP(9855)/dV(4006) - JVRP(15653) = V(5255) -! JVRP(15654) = dARP(9855)/dV(5255) - JVRP(15654) = V(4006) -! JVRP(15655) = dARP(9856)/dV(4006) - JVRP(15655) = V(5252) -! JVRP(15656) = dARP(9856)/dV(5252) - JVRP(15656) = V(4006) -! JVRP(15657) = dARP(9857)/dV(4006) - JVRP(15657) = V(5256) -! JVRP(15658) = dARP(9857)/dV(5256) - JVRP(15658) = V(4006) -! JVRP(15659) = dARP(9858)/dV(4006) - JVRP(15659) = 1 -! JVRP(15660) = dARP(9859)/dV(4327) - JVRP(15660) = V(5255) -! JVRP(15661) = dARP(9859)/dV(5255) - JVRP(15661) = V(4327) -! JVRP(15662) = dARP(9860)/dV(4327) - JVRP(15662) = V(5252) -! JVRP(15663) = dARP(9860)/dV(5252) - JVRP(15663) = V(4327) -! JVRP(15664) = dARP(9861)/dV(4327) - JVRP(15664) = V(5256) -! JVRP(15665) = dARP(9861)/dV(5256) - JVRP(15665) = V(4327) -! JVRP(15666) = dARP(9862)/dV(4327) - JVRP(15666) = 1 -! JVRP(15667) = dARP(9863)/dV(3697) - JVRP(15667) = V(5255) -! JVRP(15668) = dARP(9863)/dV(5255) - JVRP(15668) = V(3697) -! JVRP(15669) = dARP(9864)/dV(3697) - JVRP(15669) = V(5252) -! JVRP(15670) = dARP(9864)/dV(5252) - JVRP(15670) = V(3697) -! JVRP(15671) = dARP(9865)/dV(3697) - JVRP(15671) = V(5256) -! JVRP(15672) = dARP(9865)/dV(5256) - JVRP(15672) = V(3697) -! JVRP(15673) = dARP(9866)/dV(3697) - JVRP(15673) = 1 -! JVRP(15674) = dARP(9867)/dV(3697) - JVRP(15674) = 1 -! JVRP(15675) = dARP(9868)/dV(3697) - JVRP(15675) = 1 -! JVRP(15676) = dARP(9869)/dV(4293) - JVRP(15676) = V(5255) -! JVRP(15677) = dARP(9869)/dV(5255) - JVRP(15677) = V(4293) -! JVRP(15678) = dARP(9870)/dV(4293) - JVRP(15678) = V(5252) -! JVRP(15679) = dARP(9870)/dV(5252) - JVRP(15679) = V(4293) -! JVRP(15680) = dARP(9871)/dV(4293) - JVRP(15680) = V(5256) -! JVRP(15681) = dARP(9871)/dV(5256) - JVRP(15681) = V(4293) -! JVRP(15682) = dARP(9872)/dV(4293) - JVRP(15682) = 1 -! JVRP(15683) = dARP(9873)/dV(4291) - JVRP(15683) = V(5255) -! JVRP(15684) = dARP(9873)/dV(5255) - JVRP(15684) = V(4291) -! JVRP(15685) = dARP(9874)/dV(4291) - JVRP(15685) = V(5252) -! JVRP(15686) = dARP(9874)/dV(5252) - JVRP(15686) = V(4291) -! JVRP(15687) = dARP(9875)/dV(4291) - JVRP(15687) = V(5256) -! JVRP(15688) = dARP(9875)/dV(5256) - JVRP(15688) = V(4291) -! JVRP(15689) = dARP(9876)/dV(4291) - JVRP(15689) = 1 -! JVRP(15690) = dARP(9877)/dV(1243) - JVRP(15690) = V(5250) -! JVRP(15691) = dARP(9877)/dV(5250) - JVRP(15691) = V(1243) -! JVRP(15692) = dARP(9878)/dV(1243) - JVRP(15692) = 1 -! JVRP(15693) = dARP(9879)/dV(3196) - JVRP(15693) = V(5250) -! JVRP(15694) = dARP(9879)/dV(5250) - JVRP(15694) = V(3196) -! JVRP(15695) = dARP(9880)/dV(3196) - JVRP(15695) = 1 -! JVRP(15696) = dARP(9881)/dV(3196) - JVRP(15696) = 1 -! JVRP(15697) = dARP(9882)/dV(711) - JVRP(15697) = 1 -! JVRP(15698) = dARP(9883)/dV(2482) - JVRP(15698) = V(5250) -! JVRP(15699) = dARP(9883)/dV(5250) - JVRP(15699) = V(2482) -! JVRP(15700) = dARP(9884)/dV(2482) - JVRP(15700) = 1 -! JVRP(15701) = dARP(9885)/dV(2053) - JVRP(15701) = V(5250) -! JVRP(15702) = dARP(9885)/dV(5250) - JVRP(15702) = V(2053) -! JVRP(15703) = dARP(9886)/dV(2053) - JVRP(15703) = 1 -! JVRP(15704) = dARP(9887)/dV(660) - JVRP(15704) = 1 -! JVRP(15705) = dARP(9888)/dV(2920) - JVRP(15705) = V(5250) -! JVRP(15706) = dARP(9888)/dV(5250) - JVRP(15706) = V(2920) -! JVRP(15707) = dARP(9889)/dV(2920) - JVRP(15707) = V(5250) -! JVRP(15708) = dARP(9889)/dV(5250) - JVRP(15708) = V(2920) -! JVRP(15709) = dARP(9890)/dV(2920) - JVRP(15709) = 1 -! JVRP(15710) = dARP(9891)/dV(710) - JVRP(15710) = 1 -! JVRP(15711) = dARP(9892)/dV(1953) - JVRP(15711) = V(5250) -! JVRP(15712) = dARP(9892)/dV(5250) - JVRP(15712) = V(1953) -! JVRP(15713) = dARP(9893)/dV(1953) - JVRP(15713) = 1 -! JVRP(15714) = dARP(9894)/dV(340) - JVRP(15714) = V(5250) -! JVRP(15715) = dARP(9894)/dV(5250) - JVRP(15715) = V(340) -! JVRP(15716) = dARP(9895)/dV(1020) - JVRP(15716) = V(5250) -! JVRP(15717) = dARP(9895)/dV(5250) - JVRP(15717) = V(1020) -! JVRP(15718) = dARP(9896)/dV(1020) - JVRP(15718) = 1 -! JVRP(15719) = dARP(9897)/dV(1713) - JVRP(15719) = 1 -! JVRP(15720) = dARP(9898)/dV(41) - JVRP(15720) = V(5250) -! JVRP(15721) = dARP(9898)/dV(5250) - JVRP(15721) = V(41) -! JVRP(15722) = dARP(9899)/dV(1850) - JVRP(15722) = V(5250) -! JVRP(15723) = dARP(9899)/dV(5250) - JVRP(15723) = V(1850) -! JVRP(15724) = dARP(9900)/dV(1850) - JVRP(15724) = 1 -! JVRP(15725) = dARP(9901)/dV(747) - JVRP(15725) = 1 -! JVRP(15726) = dARP(9902)/dV(1854) - JVRP(15726) = V(5250) -! JVRP(15727) = dARP(9902)/dV(5250) - JVRP(15727) = V(1854) -! JVRP(15728) = dARP(9903)/dV(1854) - JVRP(15728) = 1 -! JVRP(15729) = dARP(9904)/dV(1854) - JVRP(15729) = 1 -! JVRP(15730) = dARP(9905)/dV(592) - JVRP(15730) = 1 -! JVRP(15731) = dARP(9906)/dV(1443) - JVRP(15731) = V(5250) -! JVRP(15732) = dARP(9906)/dV(5250) - JVRP(15732) = V(1443) -! JVRP(15733) = dARP(9907)/dV(1443) - JVRP(15733) = 1 -! JVRP(15734) = dARP(9908)/dV(1606) - JVRP(15734) = 1 -! JVRP(15735) = dARP(9909)/dV(58) - JVRP(15735) = V(5250) -! JVRP(15736) = dARP(9909)/dV(5250) - JVRP(15736) = V(58) -! JVRP(15737) = dARP(9910)/dV(2488) - JVRP(15737) = V(5250) -! JVRP(15738) = dARP(9910)/dV(5250) - JVRP(15738) = V(2488) -! JVRP(15739) = dARP(9911)/dV(3120) - JVRP(15739) = V(5256) -! JVRP(15740) = dARP(9911)/dV(5256) - JVRP(15740) = V(3120) -! JVRP(15741) = dARP(9912)/dV(3120) - JVRP(15741) = V(5250) -! JVRP(15742) = dARP(9912)/dV(5250) - JVRP(15742) = V(3120) -! JVRP(15743) = dARP(9913)/dV(4011) - JVRP(15743) = V(5255) -! JVRP(15744) = dARP(9913)/dV(5255) - JVRP(15744) = V(4011) -! JVRP(15745) = dARP(9914)/dV(4011) - JVRP(15745) = V(5252) -! JVRP(15746) = dARP(9914)/dV(5252) - JVRP(15746) = V(4011) -! JVRP(15747) = dARP(9915)/dV(4011) - JVRP(15747) = V(5256) -! JVRP(15748) = dARP(9915)/dV(5256) - JVRP(15748) = V(4011) -! JVRP(15749) = dARP(9916)/dV(4011) - JVRP(15749) = 1 -! JVRP(15750) = dARP(9917)/dV(3679) - JVRP(15750) = V(5255) -! JVRP(15751) = dARP(9917)/dV(5255) - JVRP(15751) = V(3679) -! JVRP(15752) = dARP(9918)/dV(3679) - JVRP(15752) = V(5252) -! JVRP(15753) = dARP(9918)/dV(5252) - JVRP(15753) = V(3679) -! JVRP(15754) = dARP(9919)/dV(3679) - JVRP(15754) = V(5256) -! JVRP(15755) = dARP(9919)/dV(5256) - JVRP(15755) = V(3679) -! JVRP(15756) = dARP(9920)/dV(3679) - JVRP(15756) = 1 -! JVRP(15757) = dARP(9921)/dV(3714) - JVRP(15757) = V(5255) -! JVRP(15758) = dARP(9921)/dV(5255) - JVRP(15758) = V(3714) -! JVRP(15759) = dARP(9922)/dV(3714) - JVRP(15759) = V(5252) -! JVRP(15760) = dARP(9922)/dV(5252) - JVRP(15760) = V(3714) -! JVRP(15761) = dARP(9923)/dV(3714) - JVRP(15761) = V(5256) -! JVRP(15762) = dARP(9923)/dV(5256) - JVRP(15762) = V(3714) -! JVRP(15763) = dARP(9924)/dV(3714) - JVRP(15763) = 1 -! JVRP(15764) = dARP(9925)/dV(3714) - JVRP(15764) = 1 -! JVRP(15765) = dARP(9926)/dV(4303) - JVRP(15765) = V(5255) -! JVRP(15766) = dARP(9926)/dV(5255) - JVRP(15766) = V(4303) -! JVRP(15767) = dARP(9927)/dV(4303) - JVRP(15767) = V(5252) -! JVRP(15768) = dARP(9927)/dV(5252) - JVRP(15768) = V(4303) -! JVRP(15769) = dARP(9928)/dV(4303) - JVRP(15769) = V(5256) -! JVRP(15770) = dARP(9928)/dV(5256) - JVRP(15770) = V(4303) -! JVRP(15771) = dARP(9929)/dV(4303) - JVRP(15771) = 1 -! JVRP(15772) = dARP(9930)/dV(4200) - JVRP(15772) = V(5255) -! JVRP(15773) = dARP(9930)/dV(5255) - JVRP(15773) = V(4200) -! JVRP(15774) = dARP(9931)/dV(4200) - JVRP(15774) = V(5252) -! JVRP(15775) = dARP(9931)/dV(5252) - JVRP(15775) = V(4200) -! JVRP(15776) = dARP(9932)/dV(4200) - JVRP(15776) = V(5256) -! JVRP(15777) = dARP(9932)/dV(5256) - JVRP(15777) = V(4200) -! JVRP(15778) = dARP(9933)/dV(4200) - JVRP(15778) = 1 -! JVRP(15779) = dARP(9934)/dV(1152) - JVRP(15779) = V(5250) -! JVRP(15780) = dARP(9934)/dV(5250) - JVRP(15780) = V(1152) -! JVRP(15781) = dARP(9935)/dV(1152) - JVRP(15781) = 1 -! JVRP(15782) = dARP(9936)/dV(216) - JVRP(15782) = V(5250) -! JVRP(15783) = dARP(9936)/dV(5250) - JVRP(15783) = V(216) -! JVRP(15784) = dARP(9937)/dV(3455) - JVRP(15784) = V(5250) -! JVRP(15785) = dARP(9937)/dV(5250) - JVRP(15785) = V(3455) -! JVRP(15786) = dARP(9938)/dV(3455) - JVRP(15786) = V(5250) -! JVRP(15787) = dARP(9938)/dV(5250) - JVRP(15787) = V(3455) -! JVRP(15788) = dARP(9939)/dV(3455) - JVRP(15788) = 1 -! JVRP(15789) = dARP(9940)/dV(3455) - JVRP(15789) = 1 -! JVRP(15790) = dARP(9941)/dV(3094) - JVRP(15790) = 1 -! JVRP(15791) = dARP(9942)/dV(3094) - JVRP(15791) = 1 -! JVRP(15792) = dARP(9943)/dV(1726) - JVRP(15792) = V(5250) -! JVRP(15793) = dARP(9943)/dV(5250) - JVRP(15793) = V(1726) -! JVRP(15794) = dARP(9944)/dV(1726) - JVRP(15794) = 1 -! JVRP(15795) = dARP(9945)/dV(4325) - JVRP(15795) = V(5250) -! JVRP(15796) = dARP(9945)/dV(5250) - JVRP(15796) = V(4325) -! JVRP(15797) = dARP(9946)/dV(4325) - JVRP(15797) = 1 -! JVRP(15798) = dARP(9947)/dV(4325) - JVRP(15798) = 1 -! JVRP(15799) = dARP(9948)/dV(3189) - JVRP(15799) = V(5256) -! JVRP(15800) = dARP(9948)/dV(5256) - JVRP(15800) = V(3189) -! JVRP(15801) = dARP(9949)/dV(3189) - JVRP(15801) = V(5250) -! JVRP(15802) = dARP(9949)/dV(5250) - JVRP(15802) = V(3189) -! JVRP(15803) = dARP(9950)/dV(4039) - JVRP(15803) = V(5255) -! JVRP(15804) = dARP(9950)/dV(5255) - JVRP(15804) = V(4039) -! JVRP(15805) = dARP(9951)/dV(4039) - JVRP(15805) = V(5252) -! JVRP(15806) = dARP(9951)/dV(5252) - JVRP(15806) = V(4039) -! JVRP(15807) = dARP(9952)/dV(4039) - JVRP(15807) = V(5256) -! JVRP(15808) = dARP(9952)/dV(5256) - JVRP(15808) = V(4039) -! JVRP(15809) = dARP(9953)/dV(4039) - JVRP(15809) = 1 -! JVRP(15810) = dARP(9954)/dV(4025) - JVRP(15810) = V(5255) -! JVRP(15811) = dARP(9954)/dV(5255) - JVRP(15811) = V(4025) -! JVRP(15812) = dARP(9955)/dV(4025) - JVRP(15812) = V(5252) -! JVRP(15813) = dARP(9955)/dV(5252) - JVRP(15813) = V(4025) -! JVRP(15814) = dARP(9956)/dV(4025) - JVRP(15814) = V(5256) -! JVRP(15815) = dARP(9956)/dV(5256) - JVRP(15815) = V(4025) -! JVRP(15816) = dARP(9957)/dV(4025) - JVRP(15816) = 1 -! JVRP(15817) = dARP(9958)/dV(3769) - JVRP(15817) = V(5255) -! JVRP(15818) = dARP(9958)/dV(5255) - JVRP(15818) = V(3769) -! JVRP(15819) = dARP(9959)/dV(3769) - JVRP(15819) = V(5252) -! JVRP(15820) = dARP(9959)/dV(5252) - JVRP(15820) = V(3769) -! JVRP(15821) = dARP(9960)/dV(3769) - JVRP(15821) = V(5256) -! JVRP(15822) = dARP(9960)/dV(5256) - JVRP(15822) = V(3769) -! JVRP(15823) = dARP(9961)/dV(3769) - JVRP(15823) = 1 -! JVRP(15824) = dARP(9962)/dV(3769) - JVRP(15824) = 1 -! JVRP(15825) = dARP(9963)/dV(4292) - JVRP(15825) = V(5255) -! JVRP(15826) = dARP(9963)/dV(5255) - JVRP(15826) = V(4292) -! JVRP(15827) = dARP(9964)/dV(4292) - JVRP(15827) = V(5252) -! JVRP(15828) = dARP(9964)/dV(5252) - JVRP(15828) = V(4292) -! JVRP(15829) = dARP(9965)/dV(4292) - JVRP(15829) = V(5256) -! JVRP(15830) = dARP(9965)/dV(5256) - JVRP(15830) = V(4292) -! JVRP(15831) = dARP(9966)/dV(4292) - JVRP(15831) = 1 -! JVRP(15832) = dARP(9967)/dV(4225) - JVRP(15832) = V(5255) -! JVRP(15833) = dARP(9967)/dV(5255) - JVRP(15833) = V(4225) -! JVRP(15834) = dARP(9968)/dV(4225) - JVRP(15834) = V(5252) -! JVRP(15835) = dARP(9968)/dV(5252) - JVRP(15835) = V(4225) -! JVRP(15836) = dARP(9969)/dV(4225) - JVRP(15836) = V(5256) -! JVRP(15837) = dARP(9969)/dV(5256) - JVRP(15837) = V(4225) -! JVRP(15838) = dARP(9970)/dV(4225) - JVRP(15838) = 1 -! JVRP(15839) = dARP(9971)/dV(1421) - JVRP(15839) = V(5250) -! JVRP(15840) = dARP(9971)/dV(5250) - JVRP(15840) = V(1421) -! JVRP(15841) = dARP(9972)/dV(1421) - JVRP(15841) = 1 -! JVRP(15842) = dARP(9973)/dV(3181) - JVRP(15842) = V(5256) -! JVRP(15843) = dARP(9973)/dV(5256) - JVRP(15843) = V(3181) -! JVRP(15844) = dARP(9974)/dV(3181) - JVRP(15844) = V(5250) -! JVRP(15845) = dARP(9974)/dV(5250) - JVRP(15845) = V(3181) -! JVRP(15846) = dARP(9975)/dV(4036) - JVRP(15846) = V(5255) -! JVRP(15847) = dARP(9975)/dV(5255) - JVRP(15847) = V(4036) -! JVRP(15848) = dARP(9976)/dV(4036) - JVRP(15848) = V(5252) -! JVRP(15849) = dARP(9976)/dV(5252) - JVRP(15849) = V(4036) -! JVRP(15850) = dARP(9977)/dV(4036) - JVRP(15850) = V(5256) -! JVRP(15851) = dARP(9977)/dV(5256) - JVRP(15851) = V(4036) -! JVRP(15852) = dARP(9978)/dV(4036) - JVRP(15852) = 1 -! JVRP(15853) = dARP(9979)/dV(4076) - JVRP(15853) = V(5255) -! JVRP(15854) = dARP(9979)/dV(5255) - JVRP(15854) = V(4076) -! JVRP(15855) = dARP(9980)/dV(4076) - JVRP(15855) = V(5252) -! JVRP(15856) = dARP(9980)/dV(5252) - JVRP(15856) = V(4076) -! JVRP(15857) = dARP(9981)/dV(4076) - JVRP(15857) = V(5256) -! JVRP(15858) = dARP(9981)/dV(5256) - JVRP(15858) = V(4076) -! JVRP(15859) = dARP(9982)/dV(4076) - JVRP(15859) = 1 -! JVRP(15860) = dARP(9983)/dV(3675) - JVRP(15860) = V(5255) -! JVRP(15861) = dARP(9983)/dV(5255) - JVRP(15861) = V(3675) -! JVRP(15862) = dARP(9984)/dV(3675) - JVRP(15862) = V(5252) -! JVRP(15863) = dARP(9984)/dV(5252) - JVRP(15863) = V(3675) -! JVRP(15864) = dARP(9985)/dV(3675) - JVRP(15864) = V(5256) -! JVRP(15865) = dARP(9985)/dV(5256) - JVRP(15865) = V(3675) -! JVRP(15866) = dARP(9986)/dV(3675) - JVRP(15866) = 1 -! JVRP(15867) = dARP(9987)/dV(3675) - JVRP(15867) = 1 -! JVRP(15868) = dARP(9988)/dV(3675) - JVRP(15868) = 1 -! JVRP(15869) = dARP(9989)/dV(4246) - JVRP(15869) = V(5255) -! JVRP(15870) = dARP(9989)/dV(5255) - JVRP(15870) = V(4246) -! JVRP(15871) = dARP(9990)/dV(4246) - JVRP(15871) = V(5252) -! JVRP(15872) = dARP(9990)/dV(5252) - JVRP(15872) = V(4246) -! JVRP(15873) = dARP(9991)/dV(4246) - JVRP(15873) = V(5256) -! JVRP(15874) = dARP(9991)/dV(5256) - JVRP(15874) = V(4246) -! JVRP(15875) = dARP(9992)/dV(4246) - JVRP(15875) = 1 -! JVRP(15876) = dARP(9993)/dV(4304) - JVRP(15876) = V(5255) -! JVRP(15877) = dARP(9993)/dV(5255) - JVRP(15877) = V(4304) -! JVRP(15878) = dARP(9994)/dV(4304) - JVRP(15878) = V(5252) -! JVRP(15879) = dARP(9994)/dV(5252) - JVRP(15879) = V(4304) -! JVRP(15880) = dARP(9995)/dV(4304) - JVRP(15880) = V(5256) -! JVRP(15881) = dARP(9995)/dV(5256) - JVRP(15881) = V(4304) -! JVRP(15882) = dARP(9996)/dV(4304) - JVRP(15882) = 1 -! JVRP(15883) = dARP(9997)/dV(1294) - JVRP(15883) = V(5250) -! JVRP(15884) = dARP(9997)/dV(5250) - JVRP(15884) = V(1294) -! JVRP(15885) = dARP(9998)/dV(1294) - JVRP(15885) = 1 -! JVRP(15886) = dARP(9999)/dV(3453) - JVRP(15886) = V(5250) -! JVRP(15887) = dARP(9999)/dV(5250) - JVRP(15887) = V(3453) -! JVRP(15888) = dARP(10000)/dV(3453) - JVRP(15888) = 1 -! JVRP(15889) = dARP(10001)/dV(3453) - JVRP(15889) = 1 -! JVRP(15890) = dARP(10002)/dV(1960) - JVRP(15890) = 1 -! JVRP(15891) = dARP(10003)/dV(4199) - JVRP(15891) = V(5250) -! JVRP(15892) = dARP(10003)/dV(5250) - JVRP(15892) = V(4199) -! JVRP(15893) = dARP(10004)/dV(4199) - JVRP(15893) = 1 -! JVRP(15894) = dARP(10005)/dV(2485) - JVRP(15894) = V(5250) -! JVRP(15895) = dARP(10005)/dV(5250) - JVRP(15895) = V(2485) -! JVRP(15896) = dARP(10006)/dV(2485) - JVRP(15896) = 1 -! JVRP(15897) = dARP(10007)/dV(2485) - JVRP(15897) = 1 -! JVRP(15898) = dARP(10008)/dV(1053) - JVRP(15898) = V(5250) -! JVRP(15899) = dARP(10008)/dV(5250) - JVRP(15899) = V(1053) -! JVRP(15900) = dARP(10009)/dV(1053) - JVRP(15900) = 1 -! JVRP(15901) = dARP(10010)/dV(3396) - JVRP(15901) = 1 -! JVRP(15902) = dARP(10011)/dV(3396) - JVRP(15902) = 1 -! JVRP(15903) = dARP(10012)/dV(1768) - JVRP(15903) = V(5250) -! JVRP(15904) = dARP(10012)/dV(5250) - JVRP(15904) = V(1768) -! JVRP(15905) = dARP(10013)/dV(1768) - JVRP(15905) = V(5250) -! JVRP(15906) = dARP(10013)/dV(5250) - JVRP(15906) = V(1768) -! JVRP(15907) = dARP(10014)/dV(1768) - JVRP(15907) = 1 -! JVRP(15908) = dARP(10015)/dV(1898) - JVRP(15908) = V(5250) -! JVRP(15909) = dARP(10015)/dV(5250) - JVRP(15909) = V(1898) -! JVRP(15910) = dARP(10016)/dV(1898) - JVRP(15910) = 1 -! JVRP(15911) = dARP(10017)/dV(792) - JVRP(15911) = 1 -! JVRP(15912) = dARP(10018)/dV(1133) - JVRP(15912) = V(5250) -! JVRP(15913) = dARP(10018)/dV(5250) - JVRP(15913) = V(1133) -! JVRP(15914) = dARP(10019)/dV(312) - JVRP(15914) = V(5250) -! JVRP(15915) = dARP(10019)/dV(5250) - JVRP(15915) = V(312) -! JVRP(15916) = dARP(10020)/dV(4966) - JVRP(15916) = V(5255) -! JVRP(15917) = dARP(10020)/dV(5255) - JVRP(15917) = V(4966) -! JVRP(15918) = dARP(10021)/dV(4966) - JVRP(15918) = V(5255) -! JVRP(15919) = dARP(10021)/dV(5255) - JVRP(15919) = V(4966) -! JVRP(15920) = dARP(10022)/dV(4966) - JVRP(15920) = V(5252) -! JVRP(15921) = dARP(10022)/dV(5252) - JVRP(15921) = V(4966) -! JVRP(15922) = dARP(10023)/dV(4966) - JVRP(15922) = V(5253) -! JVRP(15923) = dARP(10023)/dV(5253) - JVRP(15923) = V(4966) -! JVRP(15924) = dARP(10024)/dV(4966) - JVRP(15924) = V(5256) -! JVRP(15925) = dARP(10024)/dV(5256) - JVRP(15925) = V(4966) -! JVRP(15926) = dARP(10025)/dV(4966) - JVRP(15926) = 1 -! JVRP(15927) = dARP(10026)/dV(891) - JVRP(15927) = V(5250) -! JVRP(15928) = dARP(10026)/dV(5250) - JVRP(15928) = V(891) -! JVRP(15929) = dARP(10027)/dV(891) - JVRP(15929) = 1 -! JVRP(15930) = dARP(10028)/dV(2897) - JVRP(15930) = 1 -! JVRP(15931) = dARP(10029)/dV(4031) - JVRP(15931) = V(5255) -! JVRP(15932) = dARP(10029)/dV(5255) - JVRP(15932) = V(4031) -! JVRP(15933) = dARP(10030)/dV(4031) - JVRP(15933) = V(5252) -! JVRP(15934) = dARP(10030)/dV(5252) - JVRP(15934) = V(4031) -! JVRP(15935) = dARP(10031)/dV(4031) - JVRP(15935) = V(5256) -! JVRP(15936) = dARP(10031)/dV(5256) - JVRP(15936) = V(4031) -! JVRP(15937) = dARP(10032)/dV(4031) - JVRP(15937) = 1 -! JVRP(15938) = dARP(10033)/dV(3187) - JVRP(15938) = V(5256) -! JVRP(15939) = dARP(10033)/dV(5256) - JVRP(15939) = V(3187) -! JVRP(15940) = dARP(10034)/dV(3187) - JVRP(15940) = V(5250) -! JVRP(15941) = dARP(10034)/dV(5250) - JVRP(15941) = V(3187) -! JVRP(15942) = dARP(10035)/dV(3999) - JVRP(15942) = V(5255) -! JVRP(15943) = dARP(10035)/dV(5255) - JVRP(15943) = V(3999) -! JVRP(15944) = dARP(10036)/dV(3999) - JVRP(15944) = V(5252) -! JVRP(15945) = dARP(10036)/dV(5252) - JVRP(15945) = V(3999) -! JVRP(15946) = dARP(10037)/dV(3999) - JVRP(15946) = V(5256) -! JVRP(15947) = dARP(10037)/dV(5256) - JVRP(15947) = V(3999) -! JVRP(15948) = dARP(10038)/dV(3999) - JVRP(15948) = 1 -! JVRP(15949) = dARP(10039)/dV(4381) - JVRP(15949) = V(5255) -! JVRP(15950) = dARP(10039)/dV(5255) - JVRP(15950) = V(4381) -! JVRP(15951) = dARP(10040)/dV(4381) - JVRP(15951) = V(5252) -! JVRP(15952) = dARP(10040)/dV(5252) - JVRP(15952) = V(4381) -! JVRP(15953) = dARP(10041)/dV(4381) - JVRP(15953) = V(5256) -! JVRP(15954) = dARP(10041)/dV(5256) - JVRP(15954) = V(4381) -! JVRP(15955) = dARP(10042)/dV(4381) - JVRP(15955) = 1 -! JVRP(15956) = dARP(10043)/dV(3711) - JVRP(15956) = V(5255) -! JVRP(15957) = dARP(10043)/dV(5255) - JVRP(15957) = V(3711) -! JVRP(15958) = dARP(10044)/dV(3711) - JVRP(15958) = V(5252) -! JVRP(15959) = dARP(10044)/dV(5252) - JVRP(15959) = V(3711) -! JVRP(15960) = dARP(10045)/dV(3711) - JVRP(15960) = V(5256) -! JVRP(15961) = dARP(10045)/dV(5256) - JVRP(15961) = V(3711) -! JVRP(15962) = dARP(10046)/dV(3711) - JVRP(15962) = 1 -! JVRP(15963) = dARP(10047)/dV(3711) - JVRP(15963) = 1 -! JVRP(15964) = dARP(10048)/dV(3711) - JVRP(15964) = 1 -! JVRP(15965) = dARP(10049)/dV(4237) - JVRP(15965) = V(5255) -! JVRP(15966) = dARP(10049)/dV(5255) - JVRP(15966) = V(4237) -! JVRP(15967) = dARP(10050)/dV(4237) - JVRP(15967) = V(5252) -! JVRP(15968) = dARP(10050)/dV(5252) - JVRP(15968) = V(4237) -! JVRP(15969) = dARP(10051)/dV(4237) - JVRP(15969) = V(5256) -! JVRP(15970) = dARP(10051)/dV(5256) - JVRP(15970) = V(4237) -! JVRP(15971) = dARP(10052)/dV(4237) - JVRP(15971) = 1 -! JVRP(15972) = dARP(10053)/dV(4280) - JVRP(15972) = V(5255) -! JVRP(15973) = dARP(10053)/dV(5255) - JVRP(15973) = V(4280) -! JVRP(15974) = dARP(10054)/dV(4280) - JVRP(15974) = V(5252) -! JVRP(15975) = dARP(10054)/dV(5252) - JVRP(15975) = V(4280) -! JVRP(15976) = dARP(10055)/dV(4280) - JVRP(15976) = V(5256) -! JVRP(15977) = dARP(10055)/dV(5256) - JVRP(15977) = V(4280) -! JVRP(15978) = dARP(10056)/dV(4280) - JVRP(15978) = 1 -! JVRP(15979) = dARP(10057)/dV(1539) - JVRP(15979) = V(5250) -! JVRP(15980) = dARP(10057)/dV(5250) - JVRP(15980) = V(1539) -! JVRP(15981) = dARP(10058)/dV(1539) - JVRP(15981) = 1 -! JVRP(15982) = dARP(10059)/dV(1224) - JVRP(15982) = V(5250) -! JVRP(15983) = dARP(10059)/dV(5250) - JVRP(15983) = V(1224) -! JVRP(15984) = dARP(10060)/dV(1224) - JVRP(15984) = 1 -! JVRP(15985) = dARP(10061)/dV(2492) - JVRP(15985) = 1 -! JVRP(15986) = dARP(10062)/dV(4775) - JVRP(15986) = V(5256) -! JVRP(15987) = dARP(10062)/dV(5256) - JVRP(15987) = V(4775) -! JVRP(15988) = dARP(10063)/dV(4775) - JVRP(15988) = V(5250) -! JVRP(15989) = dARP(10063)/dV(5250) - JVRP(15989) = V(4775) -! JVRP(15990) = dARP(10064)/dV(4775) - JVRP(15990) = 1 -! JVRP(15991) = dARP(10065)/dV(4775) - JVRP(15991) = 1 -! JVRP(15992) = dARP(10066)/dV(4775) - JVRP(15992) = 1 -! JVRP(15993) = dARP(10067)/dV(622) - JVRP(15993) = V(5250) -! JVRP(15994) = dARP(10067)/dV(5250) - JVRP(15994) = V(622) -! JVRP(15995) = dARP(10068)/dV(622) - JVRP(15995) = 1 -! JVRP(15996) = dARP(10069)/dV(1388) - JVRP(15996) = V(5250) -! JVRP(15997) = dARP(10069)/dV(5250) - JVRP(15997) = V(1388) -! JVRP(15998) = dARP(10070)/dV(1388) - JVRP(15998) = 1 -! JVRP(15999) = dARP(10071)/dV(3423) - JVRP(15999) = 1 -! JVRP(16000) = dARP(10072)/dV(3423) - JVRP(16000) = 1 -! JVRP(16001) = dARP(10073)/dV(2025) - JVRP(16001) = V(5250) -! JVRP(16002) = dARP(10073)/dV(5250) - JVRP(16002) = V(2025) -! JVRP(16003) = dARP(10074)/dV(2025) - JVRP(16003) = V(5250) -! JVRP(16004) = dARP(10074)/dV(5250) - JVRP(16004) = V(2025) -! JVRP(16005) = dARP(10075)/dV(2025) - JVRP(16005) = 1 -! JVRP(16006) = dARP(10076)/dV(1861) - JVRP(16006) = V(5250) -! JVRP(16007) = dARP(10076)/dV(5250) - JVRP(16007) = V(1861) -! JVRP(16008) = dARP(10077)/dV(1861) - JVRP(16008) = 1 -! JVRP(16009) = dARP(10078)/dV(620) - JVRP(16009) = 1 -! JVRP(16010) = dARP(10079)/dV(911) - JVRP(16010) = V(5250) -! JVRP(16011) = dARP(10079)/dV(5250) - JVRP(16011) = V(911) -! JVRP(16012) = dARP(10080)/dV(485) - JVRP(16012) = V(5250) -! JVRP(16013) = dARP(10080)/dV(5250) - JVRP(16013) = V(485) -! JVRP(16014) = dARP(10081)/dV(4792) - JVRP(16014) = V(5255) -! JVRP(16015) = dARP(10081)/dV(5255) - JVRP(16015) = V(4792) -! JVRP(16016) = dARP(10082)/dV(4792) - JVRP(16016) = V(5255) -! JVRP(16017) = dARP(10082)/dV(5255) - JVRP(16017) = V(4792) -! JVRP(16018) = dARP(10083)/dV(4792) - JVRP(16018) = V(5252) -! JVRP(16019) = dARP(10083)/dV(5252) - JVRP(16019) = V(4792) -! JVRP(16020) = dARP(10084)/dV(4792) - JVRP(16020) = V(5253) -! JVRP(16021) = dARP(10084)/dV(5253) - JVRP(16021) = V(4792) -! JVRP(16022) = dARP(10085)/dV(4792) - JVRP(16022) = V(5256) -! JVRP(16023) = dARP(10085)/dV(5256) - JVRP(16023) = V(4792) -! JVRP(16024) = dARP(10086)/dV(4792) - JVRP(16024) = 1 -! JVRP(16025) = dARP(10087)/dV(1170) - JVRP(16025) = V(5250) -! JVRP(16026) = dARP(10087)/dV(5250) - JVRP(16026) = V(1170) -! JVRP(16027) = dARP(10088)/dV(1170) - JVRP(16027) = 1 -! JVRP(16028) = dARP(10089)/dV(2581) - JVRP(16028) = 1 -! JVRP(16029) = dARP(10090)/dV(1840) - JVRP(16029) = V(5250) -! JVRP(16030) = dARP(10090)/dV(5250) - JVRP(16030) = V(1840) -! JVRP(16031) = dARP(10091)/dV(1840) - JVRP(16031) = 1 -! JVRP(16032) = dARP(10092)/dV(773) - JVRP(16032) = 1 -! JVRP(16033) = dARP(10093)/dV(402) - JVRP(16033) = V(5250) -! JVRP(16034) = dARP(10093)/dV(5250) - JVRP(16034) = V(402) -! JVRP(16035) = dARP(10094)/dV(3543) - JVRP(16035) = V(5256) -! JVRP(16036) = dARP(10094)/dV(5256) - JVRP(16036) = V(3543) -! JVRP(16037) = dARP(10095)/dV(3543) - JVRP(16037) = V(5250) -! JVRP(16038) = dARP(10095)/dV(5250) - JVRP(16038) = V(3543) -! JVRP(16039) = dARP(10096)/dV(3543) - JVRP(16039) = 1 -! JVRP(16040) = dARP(10097)/dV(3178) - JVRP(16040) = V(5256) -! JVRP(16041) = dARP(10097)/dV(5256) - JVRP(16041) = V(3178) -! JVRP(16042) = dARP(10098)/dV(3178) - JVRP(16042) = V(5250) -! JVRP(16043) = dARP(10098)/dV(5250) - JVRP(16043) = V(3178) -! JVRP(16044) = dARP(10099)/dV(4021) - JVRP(16044) = V(5255) -! JVRP(16045) = dARP(10099)/dV(5255) - JVRP(16045) = V(4021) -! JVRP(16046) = dARP(10100)/dV(4021) - JVRP(16046) = V(5252) -! JVRP(16047) = dARP(10100)/dV(5252) - JVRP(16047) = V(4021) -! JVRP(16048) = dARP(10101)/dV(4021) - JVRP(16048) = V(5256) -! JVRP(16049) = dARP(10101)/dV(5256) - JVRP(16049) = V(4021) -! JVRP(16050) = dARP(10102)/dV(4021) - JVRP(16050) = 1 -! JVRP(16051) = dARP(10103)/dV(3738) - JVRP(16051) = V(5255) -! JVRP(16052) = dARP(10103)/dV(5255) - JVRP(16052) = V(3738) -! JVRP(16053) = dARP(10104)/dV(3738) - JVRP(16053) = V(5252) -! JVRP(16054) = dARP(10104)/dV(5252) - JVRP(16054) = V(3738) -! JVRP(16055) = dARP(10105)/dV(3738) - JVRP(16055) = V(5256) -! JVRP(16056) = dARP(10105)/dV(5256) - JVRP(16056) = V(3738) -! JVRP(16057) = dARP(10106)/dV(3738) - JVRP(16057) = 1 -! JVRP(16058) = dARP(10107)/dV(3983) - JVRP(16058) = V(5255) -! JVRP(16059) = dARP(10107)/dV(5255) - JVRP(16059) = V(3983) -! JVRP(16060) = dARP(10108)/dV(3983) - JVRP(16060) = V(5252) -! JVRP(16061) = dARP(10108)/dV(5252) - JVRP(16061) = V(3983) -! JVRP(16062) = dARP(10109)/dV(3983) - JVRP(16062) = V(5256) -! JVRP(16063) = dARP(10109)/dV(5256) - JVRP(16063) = V(3983) -! JVRP(16064) = dARP(10110)/dV(3983) - JVRP(16064) = 1 -! JVRP(16065) = dARP(10111)/dV(3983) - JVRP(16065) = 1 -! JVRP(16066) = dARP(10112)/dV(3983) - JVRP(16066) = 1 -! JVRP(16067) = dARP(10113)/dV(4307) - JVRP(16067) = V(5255) -! JVRP(16068) = dARP(10113)/dV(5255) - JVRP(16068) = V(4307) -! JVRP(16069) = dARP(10114)/dV(4307) - JVRP(16069) = V(5252) -! JVRP(16070) = dARP(10114)/dV(5252) - JVRP(16070) = V(4307) -! JVRP(16071) = dARP(10115)/dV(4307) - JVRP(16071) = V(5256) -! JVRP(16072) = dARP(10115)/dV(5256) - JVRP(16072) = V(4307) -! JVRP(16073) = dARP(10116)/dV(4307) - JVRP(16073) = 1 -! JVRP(16074) = dARP(10117)/dV(4296) - JVRP(16074) = V(5255) -! JVRP(16075) = dARP(10117)/dV(5255) - JVRP(16075) = V(4296) -! JVRP(16076) = dARP(10118)/dV(4296) - JVRP(16076) = V(5252) -! JVRP(16077) = dARP(10118)/dV(5252) - JVRP(16077) = V(4296) -! JVRP(16078) = dARP(10119)/dV(4296) - JVRP(16078) = V(5256) -! JVRP(16079) = dARP(10119)/dV(5256) - JVRP(16079) = V(4296) -! JVRP(16080) = dARP(10120)/dV(4296) - JVRP(16080) = 1 -! JVRP(16081) = dARP(10121)/dV(822) - JVRP(16081) = V(5250) -! JVRP(16082) = dARP(10121)/dV(5250) - JVRP(16082) = V(822) -! JVRP(16083) = dARP(10122)/dV(822) - JVRP(16083) = 1 -! JVRP(16084) = dARP(10123)/dV(1088) - JVRP(16084) = V(5250) -! JVRP(16085) = dARP(10123)/dV(5250) - JVRP(16085) = V(1088) -! JVRP(16086) = dARP(10124)/dV(1088) - JVRP(16086) = 1 -! JVRP(16087) = dARP(10125)/dV(2949) - JVRP(16087) = 1 -! JVRP(16088) = dARP(10126)/dV(4815) - JVRP(16088) = V(5256) -! JVRP(16089) = dARP(10126)/dV(5256) - JVRP(16089) = V(4815) -! JVRP(16090) = dARP(10127)/dV(4815) - JVRP(16090) = V(5250) -! JVRP(16091) = dARP(10127)/dV(5250) - JVRP(16091) = V(4815) -! JVRP(16092) = dARP(10128)/dV(4815) - JVRP(16092) = 1 -! JVRP(16093) = dARP(10129)/dV(4815) - JVRP(16093) = 1 -! JVRP(16094) = dARP(10130)/dV(4815) - JVRP(16094) = 1 -! JVRP(16095) = dARP(10131)/dV(659) - JVRP(16095) = V(5250) -! JVRP(16096) = dARP(10131)/dV(5250) - JVRP(16096) = V(659) -! JVRP(16097) = dARP(10132)/dV(659) - JVRP(16097) = 1 -! JVRP(16098) = dARP(10133)/dV(1123) - JVRP(16098) = V(5250) -! JVRP(16099) = dARP(10133)/dV(5250) - JVRP(16099) = V(1123) -! JVRP(16100) = dARP(10134)/dV(1123) - JVRP(16100) = 1 -! JVRP(16101) = dARP(10135)/dV(3380) - JVRP(16101) = 1 -! JVRP(16102) = dARP(10136)/dV(3380) - JVRP(16102) = 1 -! JVRP(16103) = dARP(10137)/dV(1949) - JVRP(16103) = V(5250) -! JVRP(16104) = dARP(10137)/dV(5250) - JVRP(16104) = V(1949) -! JVRP(16105) = dARP(10138)/dV(1949) - JVRP(16105) = V(5250) -! JVRP(16106) = dARP(10138)/dV(5250) - JVRP(16106) = V(1949) -! JVRP(16107) = dARP(10139)/dV(1949) - JVRP(16107) = 1 -! JVRP(16108) = dARP(10140)/dV(2446) - JVRP(16108) = V(5250) -! JVRP(16109) = dARP(10140)/dV(5250) - JVRP(16109) = V(2446) -! JVRP(16110) = dARP(10141)/dV(2446) - JVRP(16110) = 1 -! JVRP(16111) = dARP(10142)/dV(716) - JVRP(16111) = 1 -! JVRP(16112) = dARP(10143)/dV(1231) - JVRP(16112) = V(5250) -! JVRP(16113) = dARP(10143)/dV(5250) - JVRP(16113) = V(1231) -! JVRP(16114) = dARP(10144)/dV(356) - JVRP(16114) = V(5250) -! JVRP(16115) = dARP(10144)/dV(5250) - JVRP(16115) = V(356) -! JVRP(16116) = dARP(10145)/dV(4864) - JVRP(16116) = V(5255) -! JVRP(16117) = dARP(10145)/dV(5255) - JVRP(16117) = V(4864) -! JVRP(16118) = dARP(10146)/dV(4864) - JVRP(16118) = V(5255) -! JVRP(16119) = dARP(10146)/dV(5255) - JVRP(16119) = V(4864) -! JVRP(16120) = dARP(10147)/dV(4864) - JVRP(16120) = V(5252) -! JVRP(16121) = dARP(10147)/dV(5252) - JVRP(16121) = V(4864) -! JVRP(16122) = dARP(10148)/dV(4864) - JVRP(16122) = V(5253) -! JVRP(16123) = dARP(10148)/dV(5253) - JVRP(16123) = V(4864) -! JVRP(16124) = dARP(10149)/dV(4864) - JVRP(16124) = V(5256) -! JVRP(16125) = dARP(10149)/dV(5256) - JVRP(16125) = V(4864) -! JVRP(16126) = dARP(10150)/dV(4864) - JVRP(16126) = 1 -! JVRP(16127) = dARP(10151)/dV(974) - JVRP(16127) = V(5250) -! JVRP(16128) = dARP(10151)/dV(5250) - JVRP(16128) = V(974) -! JVRP(16129) = dARP(10152)/dV(974) - JVRP(16129) = 1 -! JVRP(16130) = dARP(10153)/dV(3028) - JVRP(16130) = 1 -! JVRP(16131) = dARP(10154)/dV(4379) - JVRP(16131) = 1 -! JVRP(16132) = dARP(10155)/dV(4379) - JVRP(16132) = 1 -! JVRP(16133) = dARP(10156)/dV(3191) - JVRP(16133) = V(5256) -! JVRP(16134) = dARP(10156)/dV(5256) - JVRP(16134) = V(3191) -! JVRP(16135) = dARP(10157)/dV(3191) - JVRP(16135) = V(5250) -! JVRP(16136) = dARP(10157)/dV(5250) - JVRP(16136) = V(3191) -! JVRP(16137) = dARP(10158)/dV(4034) - JVRP(16137) = V(5255) -! JVRP(16138) = dARP(10158)/dV(5255) - JVRP(16138) = V(4034) -! JVRP(16139) = dARP(10159)/dV(4034) - JVRP(16139) = V(5252) -! JVRP(16140) = dARP(10159)/dV(5252) - JVRP(16140) = V(4034) -! JVRP(16141) = dARP(10160)/dV(4034) - JVRP(16141) = V(5256) -! JVRP(16142) = dARP(10160)/dV(5256) - JVRP(16142) = V(4034) -! JVRP(16143) = dARP(10161)/dV(4034) - JVRP(16143) = 1 -! JVRP(16144) = dARP(10162)/dV(4212) - JVRP(16144) = V(5255) -! JVRP(16145) = dARP(10162)/dV(5255) - JVRP(16145) = V(4212) -! JVRP(16146) = dARP(10163)/dV(4212) - JVRP(16146) = V(5252) -! JVRP(16147) = dARP(10163)/dV(5252) - JVRP(16147) = V(4212) -! JVRP(16148) = dARP(10164)/dV(4212) - JVRP(16148) = V(5256) -! JVRP(16149) = dARP(10164)/dV(5256) - JVRP(16149) = V(4212) -! JVRP(16150) = dARP(10165)/dV(4212) - JVRP(16150) = 1 -! JVRP(16151) = dARP(10166)/dV(4193) - JVRP(16151) = V(5255) -! JVRP(16152) = dARP(10166)/dV(5255) - JVRP(16152) = V(4193) -! JVRP(16153) = dARP(10167)/dV(4193) - JVRP(16153) = V(5252) -! JVRP(16154) = dARP(10167)/dV(5252) - JVRP(16154) = V(4193) -! JVRP(16155) = dARP(10168)/dV(4193) - JVRP(16155) = V(5256) -! JVRP(16156) = dARP(10168)/dV(5256) - JVRP(16156) = V(4193) -! JVRP(16157) = dARP(10169)/dV(4193) - JVRP(16157) = 1 -! JVRP(16158) = dARP(10170)/dV(1361) - JVRP(16158) = V(5250) -! JVRP(16159) = dARP(10170)/dV(5250) - JVRP(16159) = V(1361) -! JVRP(16160) = dARP(10171)/dV(1361) - JVRP(16160) = 1 -! JVRP(16161) = dARP(10172)/dV(2766) - JVRP(16161) = V(5250) -! JVRP(16162) = dARP(10172)/dV(5250) - JVRP(16162) = V(2766) -! JVRP(16163) = dARP(10173)/dV(2766) - JVRP(16163) = 1 -! JVRP(16164) = dARP(10174)/dV(2766) - JVRP(16164) = 1 -! JVRP(16165) = dARP(10175)/dV(3221) - JVRP(16165) = V(5250) -! JVRP(16166) = dARP(10175)/dV(5250) - JVRP(16166) = V(3221) -! JVRP(16167) = dARP(10176)/dV(3221) - JVRP(16167) = 1 -! JVRP(16168) = dARP(10177)/dV(1345) - JVRP(16168) = V(5250) -! JVRP(16169) = dARP(10177)/dV(5250) - JVRP(16169) = V(1345) -! JVRP(16170) = dARP(10178)/dV(1345) - JVRP(16170) = 1 -! JVRP(16171) = dARP(10179)/dV(2967) - JVRP(16171) = 1 -! JVRP(16172) = dARP(10180)/dV(263) - JVRP(16172) = V(5250) -! JVRP(16173) = dARP(10180)/dV(5250) - JVRP(16173) = V(263) -! JVRP(16174) = dARP(10181)/dV(263) - JVRP(16174) = 1 -! JVRP(16175) = dARP(10182)/dV(2262) - JVRP(16175) = V(5250) -! JVRP(16176) = dARP(10182)/dV(5250) - JVRP(16176) = V(2262) -! JVRP(16177) = dARP(10183)/dV(2262) - JVRP(16177) = 1 -! JVRP(16178) = dARP(10184)/dV(814) - JVRP(16178) = 1 -! JVRP(16179) = dARP(10185)/dV(1252) - JVRP(16179) = V(5250) -! JVRP(16180) = dARP(10185)/dV(5250) - JVRP(16180) = V(1252) -! JVRP(16181) = dARP(10186)/dV(1252) - JVRP(16181) = 1 -! JVRP(16182) = dARP(10187)/dV(1680) - JVRP(16182) = 1 -! JVRP(16183) = dARP(10188)/dV(46) - JVRP(16183) = V(5250) -! JVRP(16184) = dARP(10188)/dV(5250) - JVRP(16184) = V(46) -! JVRP(16185) = dARP(10189)/dV(2417) - JVRP(16185) = V(5250) -! JVRP(16186) = dARP(10189)/dV(5250) - JVRP(16186) = V(2417) -! JVRP(16187) = dARP(10190)/dV(2417) - JVRP(16187) = 1 -! JVRP(16188) = dARP(10191)/dV(584) - JVRP(16188) = 1 -! JVRP(16189) = dARP(10192)/dV(928) - JVRP(16189) = V(5250) -! JVRP(16190) = dARP(10192)/dV(5250) - JVRP(16190) = V(928) -! JVRP(16191) = dARP(10193)/dV(928) - JVRP(16191) = 1 -! JVRP(16192) = dARP(10194)/dV(1710) - JVRP(16192) = 1 -! JVRP(16193) = dARP(10195)/dV(63) - JVRP(16193) = V(5250) -! JVRP(16194) = dARP(10195)/dV(5250) - JVRP(16194) = V(63) -! JVRP(16195) = dARP(10196)/dV(1129) - JVRP(16195) = V(5250) -! JVRP(16196) = dARP(10196)/dV(5250) - JVRP(16196) = V(1129) -! JVRP(16197) = dARP(10197)/dV(1129) - JVRP(16197) = 1 -! JVRP(16198) = dARP(10198)/dV(1622) - JVRP(16198) = 1 -! JVRP(16199) = dARP(10199)/dV(38) - JVRP(16199) = V(5250) -! JVRP(16200) = dARP(10199)/dV(5250) - JVRP(16200) = V(38) -! JVRP(16201) = dARP(10200)/dV(264) - JVRP(16201) = V(5250) -! JVRP(16202) = dARP(10200)/dV(5250) - JVRP(16202) = V(264) -! JVRP(16203) = dARP(10201)/dV(2686) - JVRP(16203) = V(5250) -! JVRP(16204) = dARP(10201)/dV(5250) - JVRP(16204) = V(2686) -! JVRP(16205) = dARP(10202)/dV(2686) - JVRP(16205) = 1 -! JVRP(16206) = dARP(10203)/dV(2686) - JVRP(16206) = 1 -! JVRP(16207) = dARP(10204)/dV(3578) - JVRP(16207) = 1 -! JVRP(16208) = dARP(10205)/dV(3578) - JVRP(16208) = 1 -! JVRP(16209) = dARP(10206)/dV(1578) - JVRP(16209) = V(5250) -! JVRP(16210) = dARP(10206)/dV(5250) - JVRP(16210) = V(1578) -! JVRP(16211) = dARP(10207)/dV(1578) - JVRP(16211) = 1 -! JVRP(16212) = dARP(10208)/dV(3137) - JVRP(16212) = V(5256) -! JVRP(16213) = dARP(10208)/dV(5256) - JVRP(16213) = V(3137) -! JVRP(16214) = dARP(10209)/dV(3137) - JVRP(16214) = V(5250) -! JVRP(16215) = dARP(10209)/dV(5250) - JVRP(16215) = V(3137) -! JVRP(16216) = dARP(10210)/dV(4044) - JVRP(16216) = V(5255) -! JVRP(16217) = dARP(10210)/dV(5255) - JVRP(16217) = V(4044) -! JVRP(16218) = dARP(10211)/dV(4044) - JVRP(16218) = V(5252) -! JVRP(16219) = dARP(10211)/dV(5252) - JVRP(16219) = V(4044) -! JVRP(16220) = dARP(10212)/dV(4044) - JVRP(16220) = V(5256) -! JVRP(16221) = dARP(10212)/dV(5256) - JVRP(16221) = V(4044) -! JVRP(16222) = dARP(10213)/dV(4044) - JVRP(16222) = 1 -! JVRP(16223) = dARP(10214)/dV(4323) - JVRP(16223) = V(5255) -! JVRP(16224) = dARP(10214)/dV(5255) - JVRP(16224) = V(4323) -! JVRP(16225) = dARP(10215)/dV(4323) - JVRP(16225) = V(5252) -! JVRP(16226) = dARP(10215)/dV(5252) - JVRP(16226) = V(4323) -! JVRP(16227) = dARP(10216)/dV(4323) - JVRP(16227) = V(5256) -! JVRP(16228) = dARP(10216)/dV(5256) - JVRP(16228) = V(4323) -! JVRP(16229) = dARP(10217)/dV(4323) - JVRP(16229) = 1 -! JVRP(16230) = dARP(10218)/dV(3771) - JVRP(16230) = V(5255) -! JVRP(16231) = dARP(10218)/dV(5255) - JVRP(16231) = V(3771) -! JVRP(16232) = dARP(10219)/dV(3771) - JVRP(16232) = V(5252) -! JVRP(16233) = dARP(10219)/dV(5252) - JVRP(16233) = V(3771) -! JVRP(16234) = dARP(10220)/dV(3771) - JVRP(16234) = V(5256) -! JVRP(16235) = dARP(10220)/dV(5256) - JVRP(16235) = V(3771) -! JVRP(16236) = dARP(10221)/dV(3771) - JVRP(16236) = 1 -! JVRP(16237) = dARP(10222)/dV(3771) - JVRP(16237) = 1 -! JVRP(16238) = dARP(10223)/dV(4192) - JVRP(16238) = V(5255) -! JVRP(16239) = dARP(10223)/dV(5255) - JVRP(16239) = V(4192) -! JVRP(16240) = dARP(10224)/dV(4192) - JVRP(16240) = V(5252) -! JVRP(16241) = dARP(10224)/dV(5252) - JVRP(16241) = V(4192) -! JVRP(16242) = dARP(10225)/dV(4192) - JVRP(16242) = V(5256) -! JVRP(16243) = dARP(10225)/dV(5256) - JVRP(16243) = V(4192) -! JVRP(16244) = dARP(10226)/dV(4192) - JVRP(16244) = 1 -! JVRP(16245) = dARP(10227)/dV(4317) - JVRP(16245) = V(5255) -! JVRP(16246) = dARP(10227)/dV(5255) - JVRP(16246) = V(4317) -! JVRP(16247) = dARP(10228)/dV(4317) - JVRP(16247) = V(5252) -! JVRP(16248) = dARP(10228)/dV(5252) - JVRP(16248) = V(4317) -! JVRP(16249) = dARP(10229)/dV(4317) - JVRP(16249) = V(5256) -! JVRP(16250) = dARP(10229)/dV(5256) - JVRP(16250) = V(4317) -! JVRP(16251) = dARP(10230)/dV(4317) - JVRP(16251) = 1 -! JVRP(16252) = dARP(10231)/dV(1003) - JVRP(16252) = V(5250) -! JVRP(16253) = dARP(10231)/dV(5250) - JVRP(16253) = V(1003) -! JVRP(16254) = dARP(10232)/dV(1003) - JVRP(16254) = 1 -! JVRP(16255) = dARP(10233)/dV(483) - JVRP(16255) = V(5250) -! JVRP(16256) = dARP(10233)/dV(5250) - JVRP(16256) = V(483) -! JVRP(16257) = dARP(10234)/dV(4149) - JVRP(16257) = V(5255) -! JVRP(16258) = dARP(10234)/dV(5255) - JVRP(16258) = V(4149) -! JVRP(16259) = dARP(10235)/dV(4149) - JVRP(16259) = V(5252) -! JVRP(16260) = dARP(10235)/dV(5252) - JVRP(16260) = V(4149) -! JVRP(16261) = dARP(10236)/dV(4149) - JVRP(16261) = V(5256) -! JVRP(16262) = dARP(10236)/dV(5256) - JVRP(16262) = V(4149) -! JVRP(16263) = dARP(10237)/dV(4149) - JVRP(16263) = 1 -! JVRP(16264) = dARP(10238)/dV(3143) - JVRP(16264) = V(5256) -! JVRP(16265) = dARP(10238)/dV(5256) - JVRP(16265) = V(3143) -! JVRP(16266) = dARP(10239)/dV(3143) - JVRP(16266) = V(5250) -! JVRP(16267) = dARP(10239)/dV(5250) - JVRP(16267) = V(3143) -! JVRP(16268) = dARP(10240)/dV(4040) - JVRP(16268) = V(5255) -! JVRP(16269) = dARP(10240)/dV(5255) - JVRP(16269) = V(4040) -! JVRP(16270) = dARP(10241)/dV(4040) - JVRP(16270) = V(5252) -! JVRP(16271) = dARP(10241)/dV(5252) - JVRP(16271) = V(4040) -! JVRP(16272) = dARP(10242)/dV(4040) - JVRP(16272) = V(5256) -! JVRP(16273) = dARP(10242)/dV(5256) - JVRP(16273) = V(4040) -! JVRP(16274) = dARP(10243)/dV(4040) - JVRP(16274) = 1 -! JVRP(16275) = dARP(10244)/dV(4153) - JVRP(16275) = V(5255) -! JVRP(16276) = dARP(10244)/dV(5255) - JVRP(16276) = V(4153) -! JVRP(16277) = dARP(10245)/dV(4153) - JVRP(16277) = V(5252) -! JVRP(16278) = dARP(10245)/dV(5252) - JVRP(16278) = V(4153) -! JVRP(16279) = dARP(10246)/dV(4153) - JVRP(16279) = V(5256) -! JVRP(16280) = dARP(10246)/dV(5256) - JVRP(16280) = V(4153) -! JVRP(16281) = dARP(10247)/dV(4153) - JVRP(16281) = 1 -! JVRP(16282) = dARP(10248)/dV(3770) - JVRP(16282) = V(5255) -! JVRP(16283) = dARP(10248)/dV(5255) - JVRP(16283) = V(3770) -! JVRP(16284) = dARP(10249)/dV(3770) - JVRP(16284) = V(5252) -! JVRP(16285) = dARP(10249)/dV(5252) - JVRP(16285) = V(3770) -! JVRP(16286) = dARP(10250)/dV(3770) - JVRP(16286) = V(5256) -! JVRP(16287) = dARP(10250)/dV(5256) - JVRP(16287) = V(3770) -! JVRP(16288) = dARP(10251)/dV(3770) - JVRP(16288) = 1 -! JVRP(16289) = dARP(10252)/dV(3770) - JVRP(16289) = 1 -! JVRP(16290) = dARP(10253)/dV(3770) - JVRP(16290) = 1 -! JVRP(16291) = dARP(10254)/dV(4210) - JVRP(16291) = V(5255) -! JVRP(16292) = dARP(10254)/dV(5255) - JVRP(16292) = V(4210) -! JVRP(16293) = dARP(10255)/dV(4210) - JVRP(16293) = V(5252) -! JVRP(16294) = dARP(10255)/dV(5252) - JVRP(16294) = V(4210) -! JVRP(16295) = dARP(10256)/dV(4210) - JVRP(16295) = V(5256) -! JVRP(16296) = dARP(10256)/dV(5256) - JVRP(16296) = V(4210) -! JVRP(16297) = dARP(10257)/dV(4210) - JVRP(16297) = 1 -! JVRP(16298) = dARP(10258)/dV(4314) - JVRP(16298) = V(5255) -! JVRP(16299) = dARP(10258)/dV(5255) - JVRP(16299) = V(4314) -! JVRP(16300) = dARP(10259)/dV(4314) - JVRP(16300) = V(5252) -! JVRP(16301) = dARP(10259)/dV(5252) - JVRP(16301) = V(4314) -! JVRP(16302) = dARP(10260)/dV(4314) - JVRP(16302) = V(5256) -! JVRP(16303) = dARP(10260)/dV(5256) - JVRP(16303) = V(4314) -! JVRP(16304) = dARP(10261)/dV(4314) - JVRP(16304) = 1 -! JVRP(16305) = dARP(10262)/dV(1017) - JVRP(16305) = V(5250) -! JVRP(16306) = dARP(10262)/dV(5250) - JVRP(16306) = V(1017) -! JVRP(16307) = dARP(10263)/dV(1017) - JVRP(16307) = 1 -! JVRP(16308) = dARP(10264)/dV(3190) - JVRP(16308) = V(5256) -! JVRP(16309) = dARP(10264)/dV(5256) - JVRP(16309) = V(3190) -! JVRP(16310) = dARP(10265)/dV(3190) - JVRP(16310) = V(5250) -! JVRP(16311) = dARP(10265)/dV(5250) - JVRP(16311) = V(3190) -! JVRP(16312) = dARP(10266)/dV(4061) - JVRP(16312) = V(5255) -! JVRP(16313) = dARP(10266)/dV(5255) - JVRP(16313) = V(4061) -! JVRP(16314) = dARP(10267)/dV(4061) - JVRP(16314) = V(5252) -! JVRP(16315) = dARP(10267)/dV(5252) - JVRP(16315) = V(4061) -! JVRP(16316) = dARP(10268)/dV(4061) - JVRP(16316) = V(5256) -! JVRP(16317) = dARP(10268)/dV(5256) - JVRP(16317) = V(4061) -! JVRP(16318) = dARP(10269)/dV(4061) - JVRP(16318) = 1 -! JVRP(16319) = dARP(10270)/dV(3680) - JVRP(16319) = V(5255) -! JVRP(16320) = dARP(10270)/dV(5255) - JVRP(16320) = V(3680) -! JVRP(16321) = dARP(10271)/dV(3680) - JVRP(16321) = V(5252) -! JVRP(16322) = dARP(10271)/dV(5252) - JVRP(16322) = V(3680) -! JVRP(16323) = dARP(10272)/dV(3680) - JVRP(16323) = V(5256) -! JVRP(16324) = dARP(10272)/dV(5256) - JVRP(16324) = V(3680) -! JVRP(16325) = dARP(10273)/dV(3680) - JVRP(16325) = 1 -! JVRP(16326) = dARP(10274)/dV(3782) - JVRP(16326) = V(5255) -! JVRP(16327) = dARP(10274)/dV(5255) - JVRP(16327) = V(3782) -! JVRP(16328) = dARP(10275)/dV(3782) - JVRP(16328) = V(5252) -! JVRP(16329) = dARP(10275)/dV(5252) - JVRP(16329) = V(3782) -! JVRP(16330) = dARP(10276)/dV(3782) - JVRP(16330) = V(5256) -! JVRP(16331) = dARP(10276)/dV(5256) - JVRP(16331) = V(3782) -! JVRP(16332) = dARP(10277)/dV(3782) - JVRP(16332) = 1 -! JVRP(16333) = dARP(10278)/dV(3782) - JVRP(16333) = 1 -! JVRP(16334) = dARP(10279)/dV(4312) - JVRP(16334) = V(5255) -! JVRP(16335) = dARP(10279)/dV(5255) - JVRP(16335) = V(4312) -! JVRP(16336) = dARP(10280)/dV(4312) - JVRP(16336) = V(5252) -! JVRP(16337) = dARP(10280)/dV(5252) - JVRP(16337) = V(4312) -! JVRP(16338) = dARP(10281)/dV(4312) - JVRP(16338) = V(5256) -! JVRP(16339) = dARP(10281)/dV(5256) - JVRP(16339) = V(4312) -! JVRP(16340) = dARP(10282)/dV(4312) - JVRP(16340) = 1 -! JVRP(16341) = dARP(10283)/dV(4252) - JVRP(16341) = V(5255) -! JVRP(16342) = dARP(10283)/dV(5255) - JVRP(16342) = V(4252) -! JVRP(16343) = dARP(10284)/dV(4252) - JVRP(16343) = V(5252) -! JVRP(16344) = dARP(10284)/dV(5252) - JVRP(16344) = V(4252) -! JVRP(16345) = dARP(10285)/dV(4252) - JVRP(16345) = V(5256) -! JVRP(16346) = dARP(10285)/dV(5256) - JVRP(16346) = V(4252) -! JVRP(16347) = dARP(10286)/dV(4252) - JVRP(16347) = 1 -! JVRP(16348) = dARP(10287)/dV(844) - JVRP(16348) = V(5250) -! JVRP(16349) = dARP(10287)/dV(5250) - JVRP(16349) = V(844) -! JVRP(16350) = dARP(10288)/dV(844) - JVRP(16350) = 1 -! JVRP(16351) = dARP(10289)/dV(1092) - JVRP(16351) = V(5250) -! JVRP(16352) = dARP(10289)/dV(5250) - JVRP(16352) = V(1092) -! JVRP(16353) = dARP(10290)/dV(1092) - JVRP(16353) = 1 -! JVRP(16354) = dARP(10291)/dV(3565) - JVRP(16354) = 1 -! JVRP(16355) = dARP(10292)/dV(3565) - JVRP(16355) = 1 -! JVRP(16356) = dARP(10293)/dV(4534) - JVRP(16356) = V(5250) -! JVRP(16357) = dARP(10293)/dV(5250) - JVRP(16357) = V(4534) -! JVRP(16358) = dARP(10294)/dV(4534) - JVRP(16358) = 1 -! JVRP(16359) = dARP(10295)/dV(4534) - JVRP(16359) = 1 -! JVRP(16360) = dARP(10296)/dV(576) - JVRP(16360) = V(5250) -! JVRP(16361) = dARP(10296)/dV(5250) - JVRP(16361) = V(576) -! JVRP(16362) = dARP(10297)/dV(576) - JVRP(16362) = 1 -! JVRP(16363) = dARP(10298)/dV(3152) - JVRP(16363) = V(5256) -! JVRP(16364) = dARP(10298)/dV(5256) - JVRP(16364) = V(3152) -! JVRP(16365) = dARP(10299)/dV(3152) - JVRP(16365) = V(5250) -! JVRP(16366) = dARP(10299)/dV(5250) - JVRP(16366) = V(3152) -! JVRP(16367) = dARP(10300)/dV(4072) - JVRP(16367) = V(5255) -! JVRP(16368) = dARP(10300)/dV(5255) - JVRP(16368) = V(4072) -! JVRP(16369) = dARP(10301)/dV(4072) - JVRP(16369) = V(5252) -! JVRP(16370) = dARP(10301)/dV(5252) - JVRP(16370) = V(4072) -! JVRP(16371) = dARP(10302)/dV(4072) - JVRP(16371) = V(5256) -! JVRP(16372) = dARP(10302)/dV(5256) - JVRP(16372) = V(4072) -! JVRP(16373) = dARP(10303)/dV(4072) - JVRP(16373) = 1 -! JVRP(16374) = dARP(10304)/dV(4535) - JVRP(16374) = V(5255) -! JVRP(16375) = dARP(10304)/dV(5255) - JVRP(16375) = V(4535) -! JVRP(16376) = dARP(10305)/dV(4535) - JVRP(16376) = V(5252) -! JVRP(16377) = dARP(10305)/dV(5252) - JVRP(16377) = V(4535) -! JVRP(16378) = dARP(10306)/dV(4535) - JVRP(16378) = V(5256) -! JVRP(16379) = dARP(10306)/dV(5256) - JVRP(16379) = V(4535) -! JVRP(16380) = dARP(10307)/dV(4535) - JVRP(16380) = 1 -! JVRP(16381) = dARP(10308)/dV(3753) - JVRP(16381) = V(5255) -! JVRP(16382) = dARP(10308)/dV(5255) - JVRP(16382) = V(3753) -! JVRP(16383) = dARP(10309)/dV(3753) - JVRP(16383) = V(5252) -! JVRP(16384) = dARP(10309)/dV(5252) - JVRP(16384) = V(3753) -! JVRP(16385) = dARP(10310)/dV(3753) - JVRP(16385) = V(5256) -! JVRP(16386) = dARP(10310)/dV(5256) - JVRP(16386) = V(3753) -! JVRP(16387) = dARP(10311)/dV(3753) - JVRP(16387) = 1 -! JVRP(16388) = dARP(10312)/dV(3753) - JVRP(16388) = 1 -! JVRP(16389) = dARP(10313)/dV(4297) - JVRP(16389) = V(5255) -! JVRP(16390) = dARP(10313)/dV(5255) - JVRP(16390) = V(4297) -! JVRP(16391) = dARP(10314)/dV(4297) - JVRP(16391) = V(5252) -! JVRP(16392) = dARP(10314)/dV(5252) - JVRP(16392) = V(4297) -! JVRP(16393) = dARP(10315)/dV(4297) - JVRP(16393) = V(5256) -! JVRP(16394) = dARP(10315)/dV(5256) - JVRP(16394) = V(4297) -! JVRP(16395) = dARP(10316)/dV(4297) - JVRP(16395) = 1 -! JVRP(16396) = dARP(10317)/dV(4287) - JVRP(16396) = V(5255) -! JVRP(16397) = dARP(10317)/dV(5255) - JVRP(16397) = V(4287) -! JVRP(16398) = dARP(10318)/dV(4287) - JVRP(16398) = V(5252) -! JVRP(16399) = dARP(10318)/dV(5252) - JVRP(16399) = V(4287) -! JVRP(16400) = dARP(10319)/dV(4287) - JVRP(16400) = V(5256) -! JVRP(16401) = dARP(10319)/dV(5256) - JVRP(16401) = V(4287) -! JVRP(16402) = dARP(10320)/dV(4287) - JVRP(16402) = 1 -! JVRP(16403) = dARP(10321)/dV(1450) - JVRP(16403) = V(5250) -! JVRP(16404) = dARP(10321)/dV(5250) - JVRP(16404) = V(1450) -! JVRP(16405) = dARP(10322)/dV(1450) - JVRP(16405) = 1 -! JVRP(16406) = dARP(10323)/dV(3723) - JVRP(16406) = 1 -! JVRP(16407) = dARP(10324)/dV(3723) - JVRP(16407) = 1 -! JVRP(16408) = dARP(10325)/dV(3005) - JVRP(16408) = V(5250) -! JVRP(16409) = dARP(10325)/dV(5250) - JVRP(16409) = V(3005) -! JVRP(16410) = dARP(10326)/dV(3005) - JVRP(16410) = 1 -! JVRP(16411) = dARP(10327)/dV(3005) - JVRP(16411) = 1 -! JVRP(16412) = dARP(10328)/dV(3249) - JVRP(16412) = V(5250) -! JVRP(16413) = dARP(10328)/dV(5250) - JVRP(16413) = V(3249) -! JVRP(16414) = dARP(10329)/dV(3249) - JVRP(16414) = 1 -! JVRP(16415) = dARP(10330)/dV(1021) - JVRP(16415) = V(5250) -! JVRP(16416) = dARP(10330)/dV(5250) - JVRP(16416) = V(1021) -! JVRP(16417) = dARP(10331)/dV(1021) - JVRP(16417) = 1 -! JVRP(16418) = dARP(10332)/dV(2521) - JVRP(16418) = 1 -! JVRP(16419) = dARP(10333)/dV(350) - JVRP(16419) = V(5250) -! JVRP(16420) = dARP(10333)/dV(5250) - JVRP(16420) = V(350) -! JVRP(16421) = dARP(10334)/dV(350) - JVRP(16421) = 1 -! JVRP(16422) = dARP(10335)/dV(2267) - JVRP(16422) = V(5250) -! JVRP(16423) = dARP(10335)/dV(5250) - JVRP(16423) = V(2267) -! JVRP(16424) = dARP(10336)/dV(2267) - JVRP(16424) = 1 -! JVRP(16425) = dARP(10337)/dV(550) - JVRP(16425) = 1 -! JVRP(16426) = dARP(10338)/dV(2923) - JVRP(16426) = V(5250) -! JVRP(16427) = dARP(10338)/dV(5250) - JVRP(16427) = V(2923) -! JVRP(16428) = dARP(10339)/dV(2923) - JVRP(16428) = V(5250) -! JVRP(16429) = dARP(10339)/dV(5250) - JVRP(16429) = V(2923) -! JVRP(16430) = dARP(10340)/dV(2923) - JVRP(16430) = 1 -! JVRP(16431) = dARP(10341)/dV(641) - JVRP(16431) = 1 -! JVRP(16432) = dARP(10342)/dV(3434) - JVRP(16432) = V(5250) -! JVRP(16433) = dARP(10342)/dV(5250) - JVRP(16433) = V(3434) -! JVRP(16434) = dARP(10343)/dV(3434) - JVRP(16434) = 1 -! JVRP(16435) = dARP(10344)/dV(513) - JVRP(16435) = V(5250) -! JVRP(16436) = dARP(10344)/dV(5250) - JVRP(16436) = V(513) -! JVRP(16437) = dARP(10345)/dV(1530) - JVRP(16437) = V(5250) -! JVRP(16438) = dARP(10345)/dV(5250) - JVRP(16438) = V(1530) -! JVRP(16439) = dARP(10346)/dV(1530) - JVRP(16439) = 1 -! JVRP(16440) = dARP(10347)/dV(1745) - JVRP(16440) = 1 -! JVRP(16441) = dARP(10348)/dV(39) - JVRP(16441) = V(5250) -! JVRP(16442) = dARP(10348)/dV(5250) - JVRP(16442) = V(39) -! JVRP(16443) = dARP(10349)/dV(2353) - JVRP(16443) = V(5250) -! JVRP(16444) = dARP(10349)/dV(5250) - JVRP(16444) = V(2353) -! JVRP(16445) = dARP(10350)/dV(2353) - JVRP(16445) = 1 -! JVRP(16446) = dARP(10351)/dV(3461) - JVRP(16446) = V(5253) -! JVRP(16447) = dARP(10351)/dV(5253) - JVRP(16447) = V(3461) -! JVRP(16448) = dARP(10352)/dV(4134) - JVRP(16448) = V(5255) -! JVRP(16449) = dARP(10352)/dV(5255) - JVRP(16449) = V(4134) -! JVRP(16450) = dARP(10353)/dV(4134) - JVRP(16450) = V(5252) -! JVRP(16451) = dARP(10353)/dV(5252) - JVRP(16451) = V(4134) -! JVRP(16452) = dARP(10354)/dV(4134) - JVRP(16452) = V(5256) -! JVRP(16453) = dARP(10354)/dV(5256) - JVRP(16453) = V(4134) -! JVRP(16454) = dARP(10355)/dV(4134) - JVRP(16454) = 1 -! JVRP(16455) = dARP(10356)/dV(3526) - JVRP(16455) = 1 -! JVRP(16456) = dARP(10357)/dV(3526) - JVRP(16456) = V(5256) -! JVRP(16457) = dARP(10357)/dV(5256) - JVRP(16457) = V(3526) -! JVRP(16458) = dARP(10358)/dV(3526) - JVRP(16458) = V(5250) -! JVRP(16459) = dARP(10358)/dV(5250) - JVRP(16459) = V(3526) -! JVRP(16460) = dARP(10359)/dV(4209) - JVRP(16460) = V(5255) -! JVRP(16461) = dARP(10359)/dV(5255) - JVRP(16461) = V(4209) -! JVRP(16462) = dARP(10360)/dV(4209) - JVRP(16462) = V(5255) -! JVRP(16463) = dARP(10360)/dV(5255) - JVRP(16463) = V(4209) -! JVRP(16464) = dARP(10361)/dV(4209) - JVRP(16464) = V(5252) -! JVRP(16465) = dARP(10361)/dV(5252) - JVRP(16465) = V(4209) -! JVRP(16466) = dARP(10362)/dV(4209) - JVRP(16466) = V(5253) -! JVRP(16467) = dARP(10362)/dV(5253) - JVRP(16467) = V(4209) -! JVRP(16468) = dARP(10363)/dV(4209) - JVRP(16468) = V(5256) -! JVRP(16469) = dARP(10363)/dV(5256) - JVRP(16469) = V(4209) -! JVRP(16470) = dARP(10364)/dV(4209) - JVRP(16470) = 1 -! JVRP(16471) = dARP(10365)/dV(494) - JVRP(16471) = V(5250) -! JVRP(16472) = dARP(10365)/dV(5250) - JVRP(16472) = V(494) -! JVRP(16473) = dARP(10366)/dV(494) - JVRP(16473) = 1 -! JVRP(16474) = dARP(10367)/dV(3350) - JVRP(16474) = V(5250) -! JVRP(16475) = dARP(10367)/dV(5250) - JVRP(16475) = V(3350) -! JVRP(16476) = dARP(10368)/dV(3350) - JVRP(16476) = 1 -! JVRP(16477) = dARP(10369)/dV(3154) - JVRP(16477) = V(5250) -! JVRP(16478) = dARP(10369)/dV(5250) - JVRP(16478) = V(3154) -! JVRP(16479) = dARP(10370)/dV(3154) - JVRP(16479) = V(5250) -! JVRP(16480) = dARP(10370)/dV(5250) - JVRP(16480) = V(3154) -! JVRP(16481) = dARP(10371)/dV(3154) - JVRP(16481) = 1 -! JVRP(16482) = dARP(10372)/dV(1684) - JVRP(16482) = 1 -! JVRP(16483) = dARP(10373)/dV(2335) - JVRP(16483) = 1 -! JVRP(16484) = dARP(10374)/dV(2335) - JVRP(16484) = V(5250) -! JVRP(16485) = dARP(10374)/dV(5250) - JVRP(16485) = V(2335) -! JVRP(16486) = dARP(10375)/dV(4208) - JVRP(16486) = V(5255) -! JVRP(16487) = dARP(10375)/dV(5255) - JVRP(16487) = V(4208) -! JVRP(16488) = dARP(10376)/dV(4208) - JVRP(16488) = V(5255) -! JVRP(16489) = dARP(10376)/dV(5255) - JVRP(16489) = V(4208) -! JVRP(16490) = dARP(10377)/dV(4208) - JVRP(16490) = V(5252) -! JVRP(16491) = dARP(10377)/dV(5252) - JVRP(16491) = V(4208) -! JVRP(16492) = dARP(10378)/dV(4208) - JVRP(16492) = V(5253) -! JVRP(16493) = dARP(10378)/dV(5253) - JVRP(16493) = V(4208) -! JVRP(16494) = dARP(10379)/dV(4208) - JVRP(16494) = V(5256) -! JVRP(16495) = dARP(10379)/dV(5256) - JVRP(16495) = V(4208) -! JVRP(16496) = dARP(10380)/dV(4208) - JVRP(16496) = 1 -! JVRP(16497) = dARP(10381)/dV(3470) - JVRP(16497) = 1 -! JVRP(16498) = dARP(10382)/dV(3470) - JVRP(16498) = V(5256) -! JVRP(16499) = dARP(10382)/dV(5256) - JVRP(16499) = V(3470) -! JVRP(16500) = dARP(10383)/dV(3470) - JVRP(16500) = V(5250) -! JVRP(16501) = dARP(10383)/dV(5250) - JVRP(16501) = V(3470) -! JVRP(16502) = dARP(10384)/dV(3501) - JVRP(16502) = V(5250) -! JVRP(16503) = dARP(10384)/dV(5250) - JVRP(16503) = V(3501) -! JVRP(16504) = dARP(10385)/dV(3501) - JVRP(16504) = V(5250) -! JVRP(16505) = dARP(10385)/dV(5250) - JVRP(16505) = V(3501) -! JVRP(16506) = dARP(10386)/dV(3501) - JVRP(16506) = 1 -! JVRP(16507) = dARP(10387)/dV(3501) - JVRP(16507) = 1 -! JVRP(16508) = dARP(10388)/dV(3240) - JVRP(16508) = V(5250) -! JVRP(16509) = dARP(10388)/dV(5250) - JVRP(16509) = V(3240) -! JVRP(16510) = dARP(10389)/dV(3240) - JVRP(16510) = 1 -! JVRP(16511) = dARP(10390)/dV(2249) - JVRP(16511) = 1 -! JVRP(16512) = dARP(10391)/dV(386) - JVRP(16512) = 1 -! JVRP(16513) = dARP(10392)/dV(386) - JVRP(16513) = 1 -! JVRP(16514) = dARP(10393)/dV(4677) - JVRP(16514) = V(5251) -! JVRP(16515) = dARP(10393)/dV(5251) - JVRP(16515) = V(4677) -! JVRP(16516) = dARP(10394)/dV(4677) - JVRP(16516) = V(5252) -! JVRP(16517) = dARP(10394)/dV(5252) - JVRP(16517) = V(4677) -! JVRP(16518) = dARP(10395)/dV(4677) - JVRP(16518) = V(5253) -! JVRP(16519) = dARP(10395)/dV(5253) - JVRP(16519) = V(4677) -! JVRP(16520) = dARP(10396)/dV(4677) - JVRP(16520) = V(5254) -! JVRP(16521) = dARP(10396)/dV(5254) - JVRP(16521) = V(4677) -! JVRP(16522) = dARP(10397)/dV(4677) - JVRP(16522) = 1 -! JVRP(16523) = dARP(10398)/dV(4677) - JVRP(16523) = 1 -! JVRP(16524) = dARP(10399)/dV(4551) - JVRP(16524) = V(5251) -! JVRP(16525) = dARP(10399)/dV(5251) - JVRP(16525) = V(4551) -! JVRP(16526) = dARP(10400)/dV(4551) - JVRP(16526) = V(5252) -! JVRP(16527) = dARP(10400)/dV(5252) - JVRP(16527) = V(4551) -! JVRP(16528) = dARP(10401)/dV(4551) - JVRP(16528) = V(5253) -! JVRP(16529) = dARP(10401)/dV(5253) - JVRP(16529) = V(4551) -! JVRP(16530) = dARP(10402)/dV(4551) - JVRP(16530) = V(5254) -! JVRP(16531) = dARP(10402)/dV(5254) - JVRP(16531) = V(4551) -! JVRP(16532) = dARP(10403)/dV(4551) - JVRP(16532) = 1 -! JVRP(16533) = dARP(10404)/dV(4294) - JVRP(16533) = V(5250) -! JVRP(16534) = dARP(10404)/dV(5250) - JVRP(16534) = V(4294) -! JVRP(16535) = dARP(10405)/dV(4294) - JVRP(16535) = 1 -! JVRP(16536) = dARP(10406)/dV(131) - JVRP(16536) = 1 -! JVRP(16537) = dARP(10407)/dV(4180) - JVRP(16537) = V(5255) -! JVRP(16538) = dARP(10407)/dV(5255) - JVRP(16538) = V(4180) -! JVRP(16539) = dARP(10408)/dV(4180) - JVRP(16539) = V(5252) -! JVRP(16540) = dARP(10408)/dV(5252) - JVRP(16540) = V(4180) -! JVRP(16541) = dARP(10409)/dV(4180) - JVRP(16541) = V(5256) -! JVRP(16542) = dARP(10409)/dV(5256) - JVRP(16542) = V(4180) -! JVRP(16543) = dARP(10410)/dV(4180) - JVRP(16543) = 1 -! JVRP(16544) = dARP(10411)/dV(2138) - JVRP(16544) = V(5250) -! JVRP(16545) = dARP(10411)/dV(5250) - JVRP(16545) = V(2138) -! JVRP(16546) = dARP(10412)/dV(2616) - JVRP(16546) = 1 -! JVRP(16547) = dARP(10413)/dV(2616) - JVRP(16547) = V(5250) -! JVRP(16548) = dARP(10413)/dV(5250) - JVRP(16548) = V(2616) -! JVRP(16549) = dARP(10414)/dV(3204) - JVRP(16549) = 1 -! JVRP(16550) = dARP(10415)/dV(3204) - JVRP(16550) = V(5250) -! JVRP(16551) = dARP(10415)/dV(5250) - JVRP(16551) = V(3204) -! JVRP(16552) = dARP(10416)/dV(2392) - JVRP(16552) = V(5250) -! JVRP(16553) = dARP(10416)/dV(5250) - JVRP(16553) = V(2392) -! JVRP(16554) = dARP(10417)/dV(2392) - JVRP(16554) = 1 -! JVRP(16555) = dARP(10418)/dV(3443) - JVRP(16555) = V(5250) -! JVRP(16556) = dARP(10418)/dV(5250) - JVRP(16556) = V(3443) -! JVRP(16557) = dARP(10419)/dV(3443) - JVRP(16557) = 1 -! JVRP(16558) = dARP(10420)/dV(3064) - JVRP(16558) = 1 -! JVRP(16559) = dARP(10421)/dV(48) - JVRP(16559) = V(5250) -! JVRP(16560) = dARP(10421)/dV(5250) - JVRP(16560) = V(48) -! JVRP(16561) = dARP(10422)/dV(21) - JVRP(16561) = V(5250) -! JVRP(16562) = dARP(10422)/dV(5250) - JVRP(16562) = V(21) -! JVRP(16563) = dARP(10423)/dV(5040) - JVRP(16563) = V(5251) -! JVRP(16564) = dARP(10423)/dV(5251) - JVRP(16564) = V(5040) -! JVRP(16565) = dARP(10424)/dV(5040) - JVRP(16565) = V(5252) -! JVRP(16566) = dARP(10424)/dV(5252) - JVRP(16566) = V(5040) -! JVRP(16567) = dARP(10425)/dV(5040) - JVRP(16567) = V(5253) -! JVRP(16568) = dARP(10425)/dV(5253) - JVRP(16568) = V(5040) -! JVRP(16569) = dARP(10426)/dV(5040) - JVRP(16569) = V(5254) -! JVRP(16570) = dARP(10426)/dV(5254) - JVRP(16570) = V(5040) -! JVRP(16571) = dARP(10427)/dV(5040) - JVRP(16571) = 1 -! JVRP(16572) = dARP(10428)/dV(5040) - JVRP(16572) = 1 -! JVRP(16573) = dARP(10429)/dV(3625) - JVRP(16573) = V(5250) -! JVRP(16574) = dARP(10429)/dV(5250) - JVRP(16574) = V(3625) -! JVRP(16575) = dARP(10430)/dV(3625) - JVRP(16575) = V(5250) -! JVRP(16576) = dARP(10430)/dV(5250) - JVRP(16576) = V(3625) -! JVRP(16577) = dARP(10431)/dV(3625) - JVRP(16577) = V(5250) -! JVRP(16578) = dARP(10431)/dV(5250) - JVRP(16578) = V(3625) -! JVRP(16579) = dARP(10432)/dV(3625) - JVRP(16579) = 1 -! JVRP(16580) = dARP(10433)/dV(4066) - JVRP(16580) = V(5250) -! JVRP(16581) = dARP(10433)/dV(5250) - JVRP(16581) = V(4066) -! JVRP(16582) = dARP(10434)/dV(4066) - JVRP(16582) = V(5250) -! JVRP(16583) = dARP(10434)/dV(5250) - JVRP(16583) = V(4066) -! JVRP(16584) = dARP(10435)/dV(1748) - JVRP(16584) = 1 -! JVRP(16585) = dARP(10436)/dV(3635) - JVRP(16585) = V(5250) -! JVRP(16586) = dARP(10436)/dV(5250) - JVRP(16586) = V(3635) -! JVRP(16587) = dARP(10437)/dV(3635) - JVRP(16587) = 1 -! JVRP(16588) = dARP(10438)/dV(2101) - JVRP(16588) = V(5250) -! JVRP(16589) = dARP(10438)/dV(5250) - JVRP(16589) = V(2101) -! JVRP(16590) = dARP(10439)/dV(2101) - JVRP(16590) = V(5250) -! JVRP(16591) = dARP(10439)/dV(5250) - JVRP(16591) = V(2101) -! JVRP(16592) = dARP(10440)/dV(2590) - JVRP(16592) = V(5250) -! JVRP(16593) = dARP(10440)/dV(5250) - JVRP(16593) = V(2590) -! JVRP(16594) = dARP(10441)/dV(2590) - JVRP(16594) = V(5250) -! JVRP(16595) = dARP(10441)/dV(5250) - JVRP(16595) = V(2590) -! JVRP(16596) = dARP(10442)/dV(2590) - JVRP(16596) = 1 -! JVRP(16597) = dARP(10443)/dV(261) - JVRP(16597) = 1 -! JVRP(16598) = dARP(10444)/dV(3454) - JVRP(16598) = 1 -! JVRP(16599) = dARP(10445)/dV(3454) - JVRP(16599) = V(5256) -! JVRP(16600) = dARP(10445)/dV(5256) - JVRP(16600) = V(3454) -! JVRP(16601) = dARP(10446)/dV(3454) - JVRP(16601) = V(5250) -! JVRP(16602) = dARP(10446)/dV(5250) - JVRP(16602) = V(3454) -! JVRP(16603) = dARP(10447)/dV(3286) - JVRP(16603) = V(5250) -! JVRP(16604) = dARP(10447)/dV(5250) - JVRP(16604) = V(3286) -! JVRP(16605) = dARP(10448)/dV(3286) - JVRP(16605) = 1 -! JVRP(16606) = dARP(10449)/dV(3286) - JVRP(16606) = 1 -! JVRP(16607) = dARP(10450)/dV(3273) - JVRP(16607) = V(5250) -! JVRP(16608) = dARP(10450)/dV(5250) - JVRP(16608) = V(3273) -! JVRP(16609) = dARP(10451)/dV(3273) - JVRP(16609) = 1 -! JVRP(16610) = dARP(10452)/dV(1967) - JVRP(16610) = 1 -! JVRP(16611) = dARP(10453)/dV(67) - JVRP(16611) = 1 -! JVRP(16612) = dARP(10454)/dV(4982) - JVRP(16612) = V(5255) -! JVRP(16613) = dARP(10454)/dV(5255) - JVRP(16613) = V(4982) -! JVRP(16614) = dARP(10455)/dV(4982) - JVRP(16614) = V(5252) -! JVRP(16615) = dARP(10455)/dV(5252) - JVRP(16615) = V(4982) -! JVRP(16616) = dARP(10456)/dV(4982) - JVRP(16616) = V(5256) -! JVRP(16617) = dARP(10456)/dV(5256) - JVRP(16617) = V(4982) -! JVRP(16618) = dARP(10457)/dV(4982) - JVRP(16618) = 1 -! JVRP(16619) = dARP(10458)/dV(3449) - JVRP(16619) = V(5250) -! JVRP(16620) = dARP(10458)/dV(5250) - JVRP(16620) = V(3449) -! JVRP(16621) = dARP(10459)/dV(3449) - JVRP(16621) = 1 -! JVRP(16622) = dARP(10460)/dV(3449) - JVRP(16622) = 1 -! JVRP(16623) = dARP(10461)/dV(1848) - JVRP(16623) = 1 -! JVRP(16624) = dARP(10462)/dV(1242) - JVRP(16624) = V(5250) -! JVRP(16625) = dARP(10462)/dV(5250) - JVRP(16625) = V(1242) -! JVRP(16626) = dARP(10463)/dV(2554) - JVRP(16626) = 1 -! JVRP(16627) = dARP(10464)/dV(2554) - JVRP(16627) = V(5250) -! JVRP(16628) = dARP(10464)/dV(5250) - JVRP(16628) = V(2554) -! JVRP(16629) = dARP(10465)/dV(3197) - JVRP(16629) = 1 -! JVRP(16630) = dARP(10466)/dV(3197) - JVRP(16630) = V(5250) -! JVRP(16631) = dARP(10466)/dV(5250) - JVRP(16631) = V(3197) -! JVRP(16632) = dARP(10467)/dV(3201) - JVRP(16632) = V(5250) -! JVRP(16633) = dARP(10467)/dV(5250) - JVRP(16633) = V(3201) -! JVRP(16634) = dARP(10468)/dV(3201) - JVRP(16634) = 1 -! JVRP(16635) = dARP(10469)/dV(1955) - JVRP(16635) = 1 -! JVRP(16636) = dARP(10470)/dV(3549) - JVRP(16636) = V(5250) -! JVRP(16637) = dARP(10470)/dV(5250) - JVRP(16637) = V(3549) -! JVRP(16638) = dARP(10471)/dV(3549) - JVRP(16638) = 1 -! JVRP(16639) = dARP(10472)/dV(2109) - JVRP(16639) = 1 -! JVRP(16640) = dARP(10473)/dV(2109) - JVRP(16640) = V(5250) -! JVRP(16641) = dARP(10473)/dV(5250) - JVRP(16641) = V(2109) -! JVRP(16642) = dARP(10474)/dV(4378) - JVRP(16642) = V(5250) -! JVRP(16643) = dARP(10474)/dV(5250) - JVRP(16643) = V(4378) -! JVRP(16644) = dARP(10475)/dV(4378) - JVRP(16644) = V(5250) -! JVRP(16645) = dARP(10475)/dV(5250) - JVRP(16645) = V(4378) -! JVRP(16646) = dARP(10476)/dV(4378) - JVRP(16646) = 1 -! JVRP(16647) = dARP(10477)/dV(2662) - JVRP(16647) = 1 -! JVRP(16648) = dARP(10478)/dV(62) - JVRP(16648) = V(5250) -! JVRP(16649) = dARP(10478)/dV(5250) - JVRP(16649) = V(62) -! JVRP(16650) = dARP(10479)/dV(4247) - JVRP(16650) = V(5251) -! JVRP(16651) = dARP(10479)/dV(5251) - JVRP(16651) = V(4247) -! JVRP(16652) = dARP(10480)/dV(4247) - JVRP(16652) = V(5252) -! JVRP(16653) = dARP(10480)/dV(5252) - JVRP(16653) = V(4247) -! JVRP(16654) = dARP(10481)/dV(4247) - JVRP(16654) = V(5253) -! JVRP(16655) = dARP(10481)/dV(5253) - JVRP(16655) = V(4247) -! JVRP(16656) = dARP(10482)/dV(4247) - JVRP(16656) = V(5254) -! JVRP(16657) = dARP(10482)/dV(5254) - JVRP(16657) = V(4247) -! JVRP(16658) = dARP(10483)/dV(4247) - JVRP(16658) = 1 -! JVRP(16659) = dARP(10484)/dV(3485) - JVRP(16659) = V(5250) -! JVRP(16660) = dARP(10484)/dV(5250) - JVRP(16660) = V(3485) -! JVRP(16661) = dARP(10485)/dV(3485) - JVRP(16661) = V(5250) -! JVRP(16662) = dARP(10485)/dV(5250) - JVRP(16662) = V(3485) -! JVRP(16663) = dARP(10486)/dV(3485) - JVRP(16663) = 1 -! JVRP(16664) = dARP(10487)/dV(3700) - JVRP(16664) = 1 -! JVRP(16665) = dARP(10488)/dV(3700) - JVRP(16665) = 1 -! JVRP(16666) = dARP(10489)/dV(302) - JVRP(16666) = V(5250) -! JVRP(16667) = dARP(10489)/dV(5250) - JVRP(16667) = V(302) -! JVRP(16668) = dARP(10490)/dV(3550) - JVRP(16668) = 1 -! JVRP(16669) = dARP(10491)/dV(3550) - JVRP(16669) = 1 -! JVRP(16670) = dARP(10492)/dV(3550) - JVRP(16670) = V(5250) -! JVRP(16671) = dARP(10492)/dV(5250) - JVRP(16671) = V(3550) -! JVRP(16672) = dARP(10493)/dV(3550) - JVRP(16672) = V(5250) -! JVRP(16673) = dARP(10493)/dV(5250) - JVRP(16673) = V(3550) -! JVRP(16674) = dARP(10494)/dV(1575) - JVRP(16674) = 1 -! JVRP(16675) = dARP(10495)/dV(1575) - JVRP(16675) = V(5250) -! JVRP(16676) = dARP(10495)/dV(5250) - JVRP(16676) = V(1575) -! JVRP(16677) = dARP(10496)/dV(1981) - JVRP(16677) = 1 -! JVRP(16678) = dARP(10497)/dV(1981) - JVRP(16678) = V(5250) -! JVRP(16679) = dARP(10497)/dV(5250) - JVRP(16679) = V(1981) -! JVRP(16680) = dARP(10498)/dV(3160) - JVRP(16680) = 1 -! JVRP(16681) = dARP(10499)/dV(3160) - JVRP(16681) = V(5250) -! JVRP(16682) = dARP(10499)/dV(5250) - JVRP(16682) = V(3160) -! JVRP(16683) = dARP(10500)/dV(3160) - JVRP(16683) = V(5250) -! JVRP(16684) = dARP(10500)/dV(5250) - JVRP(16684) = V(3160) -! JVRP(16685) = dARP(10501)/dV(1685) - JVRP(16685) = 1 -! JVRP(16686) = dARP(10502)/dV(1685) - JVRP(16686) = V(5250) -! JVRP(16687) = dARP(10502)/dV(5250) - JVRP(16687) = V(1685) -! JVRP(16688) = dARP(10503)/dV(5167) - JVRP(16688) = V(5255) -! JVRP(16689) = dARP(10503)/dV(5255) - JVRP(16689) = V(5167) -! JVRP(16690) = dARP(10504)/dV(5167) - JVRP(16690) = V(5255) -! JVRP(16691) = dARP(10504)/dV(5255) - JVRP(16691) = V(5167) -! JVRP(16692) = dARP(10505)/dV(5167) - JVRP(16692) = V(5255) -! JVRP(16693) = dARP(10505)/dV(5255) - JVRP(16693) = V(5167) -! JVRP(16694) = dARP(10506)/dV(5167) - JVRP(16694) = V(5252) -! JVRP(16695) = dARP(10506)/dV(5252) - JVRP(16695) = V(5167) -! JVRP(16696) = dARP(10507)/dV(5167) - JVRP(16696) = V(5253) -! JVRP(16697) = dARP(10507)/dV(5253) - JVRP(16697) = V(5167) -! JVRP(16698) = dARP(10508)/dV(5167) - JVRP(16698) = 1 -! JVRP(16699) = dARP(10509)/dV(5167) - JVRP(16699) = 1 -! JVRP(16700) = dARP(10510)/dV(3621) - JVRP(16700) = V(5250) -! JVRP(16701) = dARP(10510)/dV(5250) - JVRP(16701) = V(3621) -! JVRP(16702) = dARP(10511)/dV(3621) - JVRP(16702) = V(5250) -! JVRP(16703) = dARP(10511)/dV(5250) - JVRP(16703) = V(3621) -! JVRP(16704) = dARP(10512)/dV(3621) - JVRP(16704) = V(5250) -! JVRP(16705) = dARP(10512)/dV(5250) - JVRP(16705) = V(3621) -! JVRP(16706) = dARP(10513)/dV(3621) - JVRP(16706) = 1 -! JVRP(16707) = dARP(10514)/dV(2354) - JVRP(16707) = V(5250) -! JVRP(16708) = dARP(10514)/dV(5250) - JVRP(16708) = V(2354) -! JVRP(16709) = dARP(10515)/dV(2354) - JVRP(16709) = 1 -! JVRP(16710) = dARP(10516)/dV(2770) - JVRP(16710) = 1 -! JVRP(16711) = dARP(10517)/dV(2230) - JVRP(16711) = V(5250) -! JVRP(16712) = dARP(10517)/dV(5250) - JVRP(16712) = V(2230) -! JVRP(16713) = dARP(10518)/dV(2230) - JVRP(16713) = 1 -! JVRP(16714) = dARP(10519)/dV(226) - JVRP(16714) = V(5250) -! JVRP(16715) = dARP(10519)/dV(5250) - JVRP(16715) = V(226) -! JVRP(16716) = dARP(10520)/dV(5024) - JVRP(16716) = V(5256) -! JVRP(16717) = dARP(10520)/dV(5256) - JVRP(16717) = V(5024) -! JVRP(16718) = dARP(10521)/dV(5024) - JVRP(16718) = V(5258) -! JVRP(16719) = dARP(10521)/dV(5258) - JVRP(16719) = V(5024) -! JVRP(16720) = dARP(10522)/dV(5024) - JVRP(16720) = V(5258) -! JVRP(16721) = dARP(10522)/dV(5258) - JVRP(16721) = V(5024) -! JVRP(16722) = dARP(10523)/dV(5024) - JVRP(16722) = V(5250) -! JVRP(16723) = dARP(10523)/dV(5250) - JVRP(16723) = V(5024) -! JVRP(16724) = dARP(10524)/dV(5024) - JVRP(16724) = V(5250) -! JVRP(16725) = dARP(10524)/dV(5250) - JVRP(16725) = V(5024) -! JVRP(16726) = dARP(10525)/dV(4613) - JVRP(16726) = V(5255) -! JVRP(16727) = dARP(10525)/dV(5255) - JVRP(16727) = V(4613) -! JVRP(16728) = dARP(10526)/dV(4613) - JVRP(16728) = V(5255) -! JVRP(16729) = dARP(10526)/dV(5255) - JVRP(16729) = V(4613) -! JVRP(16730) = dARP(10527)/dV(4613) - JVRP(16730) = V(5252) -! JVRP(16731) = dARP(10527)/dV(5252) - JVRP(16731) = V(4613) -! JVRP(16732) = dARP(10528)/dV(4613) - JVRP(16732) = V(5253) -! JVRP(16733) = dARP(10528)/dV(5253) - JVRP(16733) = V(4613) -! JVRP(16734) = dARP(10529)/dV(4613) - JVRP(16734) = V(5256) -! JVRP(16735) = dARP(10529)/dV(5256) - JVRP(16735) = V(4613) -! JVRP(16736) = dARP(10530)/dV(4613) - JVRP(16736) = 1 -! JVRP(16737) = dARP(10531)/dV(4614) - JVRP(16737) = V(5255) -! JVRP(16738) = dARP(10531)/dV(5255) - JVRP(16738) = V(4614) -! JVRP(16739) = dARP(10532)/dV(4614) - JVRP(16739) = V(5255) -! JVRP(16740) = dARP(10532)/dV(5255) - JVRP(16740) = V(4614) -! JVRP(16741) = dARP(10533)/dV(4614) - JVRP(16741) = V(5252) -! JVRP(16742) = dARP(10533)/dV(5252) - JVRP(16742) = V(4614) -! JVRP(16743) = dARP(10534)/dV(4614) - JVRP(16743) = V(5252) -! JVRP(16744) = dARP(10534)/dV(5252) - JVRP(16744) = V(4614) -! JVRP(16745) = dARP(10535)/dV(4614) - JVRP(16745) = V(5256) -! JVRP(16746) = dARP(10535)/dV(5256) - JVRP(16746) = V(4614) -! JVRP(16747) = dARP(10536)/dV(4614) - JVRP(16747) = 1 -! JVRP(16748) = dARP(10537)/dV(4614) - JVRP(16748) = 1 -! JVRP(16749) = dARP(10538)/dV(4614) - JVRP(16749) = 1 -! JVRP(16750) = dARP(10539)/dV(4211) - JVRP(16750) = V(5255) -! JVRP(16751) = dARP(10539)/dV(5255) - JVRP(16751) = V(4211) -! JVRP(16752) = dARP(10540)/dV(4211) - JVRP(16752) = V(5252) -! JVRP(16753) = dARP(10540)/dV(5252) - JVRP(16753) = V(4211) -! JVRP(16754) = dARP(10541)/dV(4211) - JVRP(16754) = V(5256) -! JVRP(16755) = dARP(10541)/dV(5256) - JVRP(16755) = V(4211) -! JVRP(16756) = dARP(10542)/dV(4211) - JVRP(16756) = 1 -! JVRP(16757) = dARP(10543)/dV(2976) - JVRP(16757) = V(5250) -! JVRP(16758) = dARP(10543)/dV(5250) - JVRP(16758) = V(2976) -! JVRP(16759) = dARP(10544)/dV(2976) - JVRP(16759) = V(5250) -! JVRP(16760) = dARP(10544)/dV(5250) - JVRP(16760) = V(2976) -! JVRP(16761) = dARP(10545)/dV(2976) - JVRP(16761) = 1 -! JVRP(16762) = dARP(10546)/dV(3128) - JVRP(16762) = V(5250) -! JVRP(16763) = dARP(10546)/dV(5250) - JVRP(16763) = V(3128) -! JVRP(16764) = dARP(10547)/dV(2764) - JVRP(16764) = V(5250) -! JVRP(16765) = dARP(10547)/dV(5250) - JVRP(16765) = V(2764) -! JVRP(16766) = dARP(10548)/dV(2764) - JVRP(16766) = 1 -! JVRP(16767) = dARP(10549)/dV(1597) - JVRP(16767) = 1 -! JVRP(16768) = dARP(10550)/dV(512) - JVRP(16768) = V(5250) -! JVRP(16769) = dARP(10550)/dV(5250) - JVRP(16769) = V(512) -! JVRP(16770) = dARP(10551)/dV(229) - JVRP(16770) = V(5250) -! JVRP(16771) = dARP(10551)/dV(5250) - JVRP(16771) = V(229) -! JVRP(16772) = dARP(10552)/dV(5105) - JVRP(16772) = 1 -! JVRP(16773) = dARP(10553)/dV(5105) - JVRP(16773) = 1 -! JVRP(16774) = dARP(10554)/dV(5105) - JVRP(16774) = V(5256) -! JVRP(16775) = dARP(10554)/dV(5256) - JVRP(16775) = V(5105) -! JVRP(16776) = dARP(10555)/dV(5105) - JVRP(16776) = V(5250) -! JVRP(16777) = dARP(10555)/dV(5250) - JVRP(16777) = V(5105) -! JVRP(16778) = dARP(10556)/dV(4106) - JVRP(16778) = V(5255) -! JVRP(16779) = dARP(10556)/dV(5255) - JVRP(16779) = V(4106) -! JVRP(16780) = dARP(10557)/dV(4106) - JVRP(16780) = V(5252) -! JVRP(16781) = dARP(10557)/dV(5252) - JVRP(16781) = V(4106) -! JVRP(16782) = dARP(10558)/dV(4106) - JVRP(16782) = V(5256) -! JVRP(16783) = dARP(10558)/dV(5256) - JVRP(16783) = V(4106) -! JVRP(16784) = dARP(10559)/dV(4106) - JVRP(16784) = 1 -! JVRP(16785) = dARP(10560)/dV(4348) - JVRP(16785) = V(5255) -! JVRP(16786) = dARP(10560)/dV(5255) - JVRP(16786) = V(4348) -! JVRP(16787) = dARP(10561)/dV(4348) - JVRP(16787) = V(5252) -! JVRP(16788) = dARP(10561)/dV(5252) - JVRP(16788) = V(4348) -! JVRP(16789) = dARP(10562)/dV(4348) - JVRP(16789) = V(5252) -! JVRP(16790) = dARP(10562)/dV(5252) - JVRP(16790) = V(4348) -! JVRP(16791) = dARP(10563)/dV(4348) - JVRP(16791) = V(5256) -! JVRP(16792) = dARP(10563)/dV(5256) - JVRP(16792) = V(4348) -! JVRP(16793) = dARP(10564)/dV(4348) - JVRP(16793) = 1 -! JVRP(16794) = dARP(10565)/dV(4348) - JVRP(16794) = 1 -! JVRP(16795) = dARP(10566)/dV(4348) - JVRP(16795) = 1 -! JVRP(16796) = dARP(10567)/dV(77) - JVRP(16796) = V(5250) -! JVRP(16797) = dARP(10567)/dV(5250) - JVRP(16797) = V(77) -! JVRP(16798) = dARP(10568)/dV(5079) - JVRP(16798) = V(5255) -! JVRP(16799) = dARP(10568)/dV(5255) - JVRP(16799) = V(5079) -! JVRP(16800) = dARP(10569)/dV(5079) - JVRP(16800) = V(5255) -! JVRP(16801) = dARP(10569)/dV(5255) - JVRP(16801) = V(5079) -! JVRP(16802) = dARP(10570)/dV(5079) - JVRP(16802) = V(5255) -! JVRP(16803) = dARP(10570)/dV(5255) - JVRP(16803) = V(5079) -! JVRP(16804) = dARP(10571)/dV(5079) - JVRP(16804) = V(5252) -! JVRP(16805) = dARP(10571)/dV(5252) - JVRP(16805) = V(5079) -! JVRP(16806) = dARP(10572)/dV(5079) - JVRP(16806) = V(5253) -! JVRP(16807) = dARP(10572)/dV(5253) - JVRP(16807) = V(5079) -! JVRP(16808) = dARP(10573)/dV(5079) - JVRP(16808) = V(5256) -! JVRP(16809) = dARP(10573)/dV(5256) - JVRP(16809) = V(5079) -! JVRP(16810) = dARP(10574)/dV(5079) - JVRP(16810) = 1 -! JVRP(16811) = dARP(10575)/dV(5079) - JVRP(16811) = 1 -! JVRP(16812) = dARP(10576)/dV(4926) - JVRP(16812) = V(5255) -! JVRP(16813) = dARP(10576)/dV(5255) - JVRP(16813) = V(4926) -! JVRP(16814) = dARP(10577)/dV(4926) - JVRP(16814) = V(5255) -! JVRP(16815) = dARP(10577)/dV(5255) - JVRP(16815) = V(4926) -! JVRP(16816) = dARP(10578)/dV(4926) - JVRP(16816) = V(5255) -! JVRP(16817) = dARP(10578)/dV(5255) - JVRP(16817) = V(4926) -! JVRP(16818) = dARP(10579)/dV(4926) - JVRP(16818) = V(5252) -! JVRP(16819) = dARP(10579)/dV(5252) - JVRP(16819) = V(4926) -! JVRP(16820) = dARP(10580)/dV(4926) - JVRP(16820) = V(5253) -! JVRP(16821) = dARP(10580)/dV(5253) - JVRP(16821) = V(4926) -! JVRP(16822) = dARP(10581)/dV(4926) - JVRP(16822) = V(5256) -! JVRP(16823) = dARP(10581)/dV(5256) - JVRP(16823) = V(4926) -! JVRP(16824) = dARP(10582)/dV(4926) - JVRP(16824) = 1 -! JVRP(16825) = dARP(10583)/dV(4926) - JVRP(16825) = 1 -! JVRP(16826) = dARP(10584)/dV(4552) - JVRP(16826) = V(5255) -! JVRP(16827) = dARP(10584)/dV(5255) - JVRP(16827) = V(4552) -! JVRP(16828) = dARP(10585)/dV(4552) - JVRP(16828) = V(5252) -! JVRP(16829) = dARP(10585)/dV(5252) - JVRP(16829) = V(4552) -! JVRP(16830) = dARP(10586)/dV(4552) - JVRP(16830) = V(5256) -! JVRP(16831) = dARP(10586)/dV(5256) - JVRP(16831) = V(4552) -! JVRP(16832) = dARP(10587)/dV(4552) - JVRP(16832) = 1 -! JVRP(16833) = dARP(10588)/dV(4768) - JVRP(16833) = V(5255) -! JVRP(16834) = dARP(10588)/dV(5255) - JVRP(16834) = V(4768) -! JVRP(16835) = dARP(10589)/dV(4768) - JVRP(16835) = V(5252) -! JVRP(16836) = dARP(10589)/dV(5252) - JVRP(16836) = V(4768) -! JVRP(16837) = dARP(10590)/dV(4768) - JVRP(16837) = V(5256) -! JVRP(16838) = dARP(10590)/dV(5256) - JVRP(16838) = V(4768) -! JVRP(16839) = dARP(10591)/dV(4768) - JVRP(16839) = 1 -! JVRP(16840) = dARP(10592)/dV(5214) - JVRP(16840) = V(5255) -! JVRP(16841) = dARP(10592)/dV(5255) - JVRP(16841) = V(5214) -! JVRP(16842) = dARP(10593)/dV(5214) - JVRP(16842) = V(5255) -! JVRP(16843) = dARP(10593)/dV(5255) - JVRP(16843) = V(5214) -! JVRP(16844) = dARP(10594)/dV(5214) - JVRP(16844) = V(5255) -! JVRP(16845) = dARP(10594)/dV(5255) - JVRP(16845) = V(5214) -! JVRP(16846) = dARP(10595)/dV(5214) - JVRP(16846) = V(5252) -! JVRP(16847) = dARP(10595)/dV(5252) - JVRP(16847) = V(5214) -! JVRP(16848) = dARP(10596)/dV(5214) - JVRP(16848) = V(5253) -! JVRP(16849) = dARP(10596)/dV(5253) - JVRP(16849) = V(5214) -! JVRP(16850) = dARP(10597)/dV(5214) - JVRP(16850) = V(5256) -! JVRP(16851) = dARP(10597)/dV(5256) - JVRP(16851) = V(5214) -! JVRP(16852) = dARP(10598)/dV(5214) - JVRP(16852) = 1 -! JVRP(16853) = dARP(10599)/dV(5214) - JVRP(16853) = 1 -! JVRP(16854) = dARP(10600)/dV(3954) - JVRP(16854) = V(5255) -! JVRP(16855) = dARP(10600)/dV(5255) - JVRP(16855) = V(3954) -! JVRP(16856) = dARP(10601)/dV(3954) - JVRP(16856) = V(5252) -! JVRP(16857) = dARP(10601)/dV(5252) - JVRP(16857) = V(3954) -! JVRP(16858) = dARP(10602)/dV(3954) - JVRP(16858) = V(5256) -! JVRP(16859) = dARP(10602)/dV(5256) - JVRP(16859) = V(3954) -! JVRP(16860) = dARP(10603)/dV(3954) - JVRP(16860) = 1 -! JVRP(16861) = dARP(10604)/dV(3717) - JVRP(16861) = V(5255) -! JVRP(16862) = dARP(10604)/dV(5255) - JVRP(16862) = V(3717) -! JVRP(16863) = dARP(10605)/dV(3717) - JVRP(16863) = V(5252) -! JVRP(16864) = dARP(10605)/dV(5252) - JVRP(16864) = V(3717) -! JVRP(16865) = dARP(10606)/dV(3717) - JVRP(16865) = V(5256) -! JVRP(16866) = dARP(10606)/dV(5256) - JVRP(16866) = V(3717) -! JVRP(16867) = dARP(10607)/dV(3717) - JVRP(16867) = 1 -! JVRP(16868) = dARP(10608)/dV(931) - JVRP(16868) = V(5250) -! JVRP(16869) = dARP(10608)/dV(5250) - JVRP(16869) = V(931) -! JVRP(16870) = dARP(10609)/dV(931) - JVRP(16870) = 1 -! JVRP(16871) = dARP(10610)/dV(2892) - JVRP(16871) = V(5250) -! JVRP(16872) = dARP(10610)/dV(5250) - JVRP(16872) = V(2892) -! JVRP(16873) = dARP(10611)/dV(2892) - JVRP(16873) = 1 -! JVRP(16874) = dARP(10612)/dV(450) - JVRP(16874) = 1 -! JVRP(16875) = dARP(10613)/dV(366) - JVRP(16875) = V(5250) -! JVRP(16876) = dARP(10613)/dV(5250) - JVRP(16876) = V(366) -! JVRP(16877) = dARP(10614)/dV(366) - JVRP(16877) = 1 -! JVRP(16878) = dARP(10615)/dV(3905) - JVRP(16878) = V(5255) -! JVRP(16879) = dARP(10615)/dV(5255) - JVRP(16879) = V(3905) -! JVRP(16880) = dARP(10616)/dV(3905) - JVRP(16880) = V(5252) -! JVRP(16881) = dARP(10616)/dV(5252) - JVRP(16881) = V(3905) -! JVRP(16882) = dARP(10617)/dV(3905) - JVRP(16882) = V(5256) -! JVRP(16883) = dARP(10617)/dV(5256) - JVRP(16883) = V(3905) -! JVRP(16884) = dARP(10618)/dV(3905) - JVRP(16884) = 1 -! JVRP(16885) = dARP(10619)/dV(1353) - JVRP(16885) = V(5250) -! JVRP(16886) = dARP(10619)/dV(5250) - JVRP(16886) = V(1353) -! JVRP(16887) = dARP(10620)/dV(1353) - JVRP(16887) = 1 -! JVRP(16888) = dARP(10621)/dV(2742) - JVRP(16888) = V(5250) -! JVRP(16889) = dARP(10621)/dV(5250) - JVRP(16889) = V(2742) -! JVRP(16890) = dARP(10622)/dV(2742) - JVRP(16890) = 1 -! JVRP(16891) = dARP(10623)/dV(2452) - JVRP(16891) = 1 -! JVRP(16892) = dARP(10624)/dV(354) - JVRP(16892) = V(5250) -! JVRP(16893) = dARP(10624)/dV(5250) - JVRP(16893) = V(354) -! JVRP(16894) = dARP(10625)/dV(354) - JVRP(16894) = 1 -! JVRP(16895) = dARP(10626)/dV(1608) - JVRP(16895) = 1 -! JVRP(16896) = dARP(10627)/dV(1608) - JVRP(16896) = 1 -! JVRP(16897) = dARP(10628)/dV(1489) - JVRP(16897) = V(5250) -! JVRP(16898) = dARP(10628)/dV(5250) - JVRP(16898) = V(1489) -! JVRP(16899) = dARP(10629)/dV(1489) - JVRP(16899) = 1 -! JVRP(16900) = dARP(10630)/dV(864) - JVRP(16900) = V(5250) -! JVRP(16901) = dARP(10630)/dV(5250) - JVRP(16901) = V(864) -! JVRP(16902) = dARP(10631)/dV(864) - JVRP(16902) = 1 -! JVRP(16903) = dARP(10632)/dV(3223) - JVRP(16903) = V(5250) -! JVRP(16904) = dARP(10632)/dV(5250) - JVRP(16904) = V(3223) -! JVRP(16905) = dARP(10633)/dV(3223) - JVRP(16905) = 1 -! JVRP(16906) = dARP(10634)/dV(1437) - JVRP(16906) = V(5250) -! JVRP(16907) = dARP(10634)/dV(5250) - JVRP(16907) = V(1437) -! JVRP(16908) = dARP(10635)/dV(1437) - JVRP(16908) = 1 -! JVRP(16909) = dARP(10636)/dV(990) - JVRP(16909) = V(5250) -! JVRP(16910) = dARP(10636)/dV(5250) - JVRP(16910) = V(990) -! JVRP(16911) = dARP(10637)/dV(990) - JVRP(16911) = 1 -! JVRP(16912) = dARP(10638)/dV(2850) - JVRP(16912) = V(5250) -! JVRP(16913) = dARP(10638)/dV(5250) - JVRP(16913) = V(2850) -! JVRP(16914) = dARP(10639)/dV(2850) - JVRP(16914) = 1 -! JVRP(16915) = dARP(10640)/dV(1383) - JVRP(16915) = V(5250) -! JVRP(16916) = dARP(10640)/dV(5250) - JVRP(16916) = V(1383) -! JVRP(16917) = dARP(10641)/dV(1383) - JVRP(16917) = 1 -! JVRP(16918) = dARP(10642)/dV(146) - JVRP(16918) = 1 -! JVRP(16919) = dARP(10643)/dV(1324) - JVRP(16919) = V(5250) -! JVRP(16920) = dARP(10643)/dV(5250) - JVRP(16920) = V(1324) -! JVRP(16921) = dARP(10644)/dV(1324) - JVRP(16921) = 1 -! JVRP(16922) = dARP(10645)/dV(300) - JVRP(16922) = 1 -! JVRP(16923) = dARP(10646)/dV(454) - JVRP(16923) = V(5250) -! JVRP(16924) = dARP(10646)/dV(5250) - JVRP(16924) = V(454) -! JVRP(16925) = dARP(10647)/dV(454) - JVRP(16925) = 1 -! JVRP(16926) = dARP(10648)/dV(919) - JVRP(16926) = V(5250) -! JVRP(16927) = dARP(10648)/dV(5250) - JVRP(16927) = V(919) -! JVRP(16928) = dARP(10649)/dV(919) - JVRP(16928) = 1 -! JVRP(16929) = dARP(10650)/dV(3307) - JVRP(16929) = V(5250) -! JVRP(16930) = dARP(10650)/dV(5250) - JVRP(16930) = V(3307) -! JVRP(16931) = dARP(10651)/dV(3307) - JVRP(16931) = 1 -! JVRP(16932) = dARP(10652)/dV(2143) - JVRP(16932) = V(5250) -! JVRP(16933) = dARP(10652)/dV(5250) - JVRP(16933) = V(2143) -! JVRP(16934) = dARP(10653)/dV(2143) - JVRP(16934) = 1 -! JVRP(16935) = dARP(10654)/dV(138) - JVRP(16935) = 1 -! JVRP(16936) = dARP(10655)/dV(1147) - JVRP(16936) = V(5250) -! JVRP(16937) = dARP(10655)/dV(5250) - JVRP(16937) = V(1147) -! JVRP(16938) = dARP(10656)/dV(1147) - JVRP(16938) = 1 -! JVRP(16939) = dARP(10657)/dV(1311) - JVRP(16939) = V(5250) -! JVRP(16940) = dARP(10657)/dV(5250) - JVRP(16940) = V(1311) -! JVRP(16941) = dARP(10658)/dV(1572) - JVRP(16941) = 1 -! JVRP(16942) = dARP(10659)/dV(24) - JVRP(16942) = V(5250) -! JVRP(16943) = dARP(10659)/dV(5250) - JVRP(16943) = V(24) -! JVRP(16944) = dARP(10660)/dV(1197) - JVRP(16944) = V(5250) -! JVRP(16945) = dARP(10660)/dV(5250) - JVRP(16945) = V(1197) -! JVRP(16946) = dARP(10661)/dV(1197) - JVRP(16946) = 1 -! JVRP(16947) = dARP(10662)/dV(3081) - JVRP(16947) = V(5250) -! JVRP(16948) = dARP(10662)/dV(5250) - JVRP(16948) = V(3081) -! JVRP(16949) = dARP(10663)/dV(3081) - JVRP(16949) = 1 -! JVRP(16950) = dARP(10664)/dV(407) - JVRP(16950) = 1 -! JVRP(16951) = dARP(10665)/dV(365) - JVRP(16951) = V(5250) -! JVRP(16952) = dARP(10665)/dV(5250) - JVRP(16952) = V(365) -! JVRP(16953) = dARP(10666)/dV(365) - JVRP(16953) = 1 -! JVRP(16954) = dARP(10667)/dV(562) - JVRP(16954) = V(5250) -! JVRP(16955) = dARP(10667)/dV(5250) - JVRP(16955) = V(562) -! JVRP(16956) = dARP(10668)/dV(562) - JVRP(16956) = 1 -! JVRP(16957) = dARP(10669)/dV(1284) - JVRP(16957) = V(5250) -! JVRP(16958) = dARP(10669)/dV(5250) - JVRP(16958) = V(1284) -! JVRP(16959) = dARP(10670)/dV(1284) - JVRP(16959) = 1 -! JVRP(16960) = dARP(10671)/dV(201) - JVRP(16960) = 1 -! JVRP(16961) = dARP(10672)/dV(561) - JVRP(16961) = V(5250) -! JVRP(16962) = dARP(10672)/dV(5250) - JVRP(16962) = V(561) -! JVRP(16963) = dARP(10673)/dV(303) - JVRP(16963) = V(5250) -! JVRP(16964) = dARP(10673)/dV(5250) - JVRP(16964) = V(303) -! JVRP(16965) = dARP(10674)/dV(1492) - JVRP(16965) = V(5250) -! JVRP(16966) = dARP(10674)/dV(5250) - JVRP(16966) = V(1492) -! JVRP(16967) = dARP(10675)/dV(1492) - JVRP(16967) = 1 -! JVRP(16968) = dARP(10676)/dV(1933) - JVRP(16968) = V(5250) -! JVRP(16969) = dARP(10676)/dV(5250) - JVRP(16969) = V(1933) -! JVRP(16970) = dARP(10677)/dV(1933) - JVRP(16970) = 1 -! JVRP(16971) = dARP(10678)/dV(2722) - JVRP(16971) = 1 -! JVRP(16972) = dARP(10679)/dV(2722) - JVRP(16972) = 1 -! JVRP(16973) = dARP(10680)/dV(3947) - JVRP(16973) = V(5256) -! JVRP(16974) = dARP(10680)/dV(5256) - JVRP(16974) = V(3947) -! JVRP(16975) = dARP(10681)/dV(3947) - JVRP(16975) = V(5250) -! JVRP(16976) = dARP(10681)/dV(5250) - JVRP(16976) = V(3947) -! JVRP(16977) = dARP(10682)/dV(3947) - JVRP(16977) = 1 -! JVRP(16978) = dARP(10683)/dV(427) - JVRP(16978) = V(5250) -! JVRP(16979) = dARP(10683)/dV(5250) - JVRP(16979) = V(427) -! JVRP(16980) = dARP(10684)/dV(4664) - JVRP(16980) = V(5255) -! JVRP(16981) = dARP(10684)/dV(5255) - JVRP(16981) = V(4664) -! JVRP(16982) = dARP(10685)/dV(4664) - JVRP(16982) = V(5255) -! JVRP(16983) = dARP(10685)/dV(5255) - JVRP(16983) = V(4664) -! JVRP(16984) = dARP(10686)/dV(4664) - JVRP(16984) = V(5255) -! JVRP(16985) = dARP(10686)/dV(5255) - JVRP(16985) = V(4664) -! JVRP(16986) = dARP(10687)/dV(4664) - JVRP(16986) = V(5252) -! JVRP(16987) = dARP(10687)/dV(5252) - JVRP(16987) = V(4664) -! JVRP(16988) = dARP(10688)/dV(4664) - JVRP(16988) = V(5253) -! JVRP(16989) = dARP(10688)/dV(5253) - JVRP(16989) = V(4664) -! JVRP(16990) = dARP(10689)/dV(4664) - JVRP(16990) = V(5256) -! JVRP(16991) = dARP(10689)/dV(5256) - JVRP(16991) = V(4664) -! JVRP(16992) = dARP(10690)/dV(4664) - JVRP(16992) = 1 -! JVRP(16993) = dARP(10691)/dV(4664) - JVRP(16993) = 1 -! JVRP(16994) = dARP(10692)/dV(1266) - JVRP(16994) = V(5250) -! JVRP(16995) = dARP(10692)/dV(5250) - JVRP(16995) = V(1266) -! JVRP(16996) = dARP(10693)/dV(1266) - JVRP(16996) = 1 -! JVRP(16997) = dARP(10694)/dV(2943) - JVRP(16997) = V(5250) -! JVRP(16998) = dARP(10694)/dV(5250) - JVRP(16998) = V(2943) -! JVRP(16999) = dARP(10695)/dV(2943) - JVRP(16999) = 1 -! JVRP(17000) = dARP(10696)/dV(2207) - JVRP(17000) = 1 -! JVRP(17001) = dARP(10697)/dV(79) - JVRP(17001) = V(5250) -! JVRP(17002) = dARP(10697)/dV(5250) - JVRP(17002) = V(79) -! JVRP(17003) = dARP(10698)/dV(4545) - JVRP(17003) = V(5255) -! JVRP(17004) = dARP(10698)/dV(5255) - JVRP(17004) = V(4545) -! JVRP(17005) = dARP(10699)/dV(4545) - JVRP(17005) = V(5252) -! JVRP(17006) = dARP(10699)/dV(5252) - JVRP(17006) = V(4545) -! JVRP(17007) = dARP(10700)/dV(4545) - JVRP(17007) = V(5252) -! JVRP(17008) = dARP(10700)/dV(5252) - JVRP(17008) = V(4545) -! JVRP(17009) = dARP(10701)/dV(4545) - JVRP(17009) = V(5256) -! JVRP(17010) = dARP(10701)/dV(5256) - JVRP(17010) = V(4545) -! JVRP(17011) = dARP(10702)/dV(4545) - JVRP(17011) = 1 -! JVRP(17012) = dARP(10703)/dV(4545) - JVRP(17012) = 1 -! JVRP(17013) = dARP(10704)/dV(1517) - JVRP(17013) = V(5250) -! JVRP(17014) = dARP(10704)/dV(5250) - JVRP(17014) = V(1517) -! JVRP(17015) = dARP(10705)/dV(1517) - JVRP(17015) = 1 -! JVRP(17016) = dARP(10706)/dV(2962) - JVRP(17016) = 1 -! JVRP(17017) = dARP(10707)/dV(587) - JVRP(17017) = V(5250) -! JVRP(17018) = dARP(10707)/dV(5250) - JVRP(17018) = V(587) -! JVRP(17019) = dARP(10708)/dV(4987) - JVRP(17019) = V(5255) -! JVRP(17020) = dARP(10708)/dV(5255) - JVRP(17020) = V(4987) -! JVRP(17021) = dARP(10709)/dV(4987) - JVRP(17021) = V(5252) -! JVRP(17022) = dARP(10709)/dV(5252) - JVRP(17022) = V(4987) -! JVRP(17023) = dARP(10710)/dV(4987) - JVRP(17023) = V(5256) -! JVRP(17024) = dARP(10710)/dV(5256) - JVRP(17024) = V(4987) -! JVRP(17025) = dARP(10711)/dV(4987) - JVRP(17025) = 1 -! JVRP(17026) = dARP(10712)/dV(4987) - JVRP(17026) = 1 -! JVRP(17027) = dARP(10713)/dV(4849) - JVRP(17027) = V(5255) -! JVRP(17028) = dARP(10713)/dV(5255) - JVRP(17028) = V(4849) -! JVRP(17029) = dARP(10714)/dV(4849) - JVRP(17029) = V(5255) -! JVRP(17030) = dARP(10714)/dV(5255) - JVRP(17030) = V(4849) -! JVRP(17031) = dARP(10715)/dV(4849) - JVRP(17031) = V(5255) -! JVRP(17032) = dARP(10715)/dV(5255) - JVRP(17032) = V(4849) -! JVRP(17033) = dARP(10716)/dV(4849) - JVRP(17033) = V(5252) -! JVRP(17034) = dARP(10716)/dV(5252) - JVRP(17034) = V(4849) -! JVRP(17035) = dARP(10717)/dV(4849) - JVRP(17035) = V(5253) -! JVRP(17036) = dARP(10717)/dV(5253) - JVRP(17036) = V(4849) -! JVRP(17037) = dARP(10718)/dV(4849) - JVRP(17037) = V(5256) -! JVRP(17038) = dARP(10718)/dV(5256) - JVRP(17038) = V(4849) -! JVRP(17039) = dARP(10719)/dV(4849) - JVRP(17039) = 1 -! JVRP(17040) = dARP(10720)/dV(4849) - JVRP(17040) = 1 -! JVRP(17041) = dARP(10721)/dV(5196) - JVRP(17041) = V(5255) -! JVRP(17042) = dARP(10721)/dV(5255) - JVRP(17042) = V(5196) -! JVRP(17043) = dARP(10722)/dV(5196) - JVRP(17043) = V(5252) -! JVRP(17044) = dARP(10722)/dV(5252) - JVRP(17044) = V(5196) -! JVRP(17045) = dARP(10723)/dV(5196) - JVRP(17045) = V(5252) -! JVRP(17046) = dARP(10723)/dV(5252) - JVRP(17046) = V(5196) -! JVRP(17047) = dARP(10724)/dV(5196) - JVRP(17047) = V(5256) -! JVRP(17048) = dARP(10724)/dV(5256) - JVRP(17048) = V(5196) -! JVRP(17049) = dARP(10725)/dV(5196) - JVRP(17049) = 1 -! JVRP(17050) = dARP(10726)/dV(5196) - JVRP(17050) = 1 -! JVRP(17051) = dARP(10727)/dV(5196) - JVRP(17051) = 1 -! JVRP(17052) = dARP(10728)/dV(1371) - JVRP(17052) = V(5250) -! JVRP(17053) = dARP(10728)/dV(5250) - JVRP(17053) = V(1371) -! JVRP(17054) = dARP(10729)/dV(1371) - JVRP(17054) = 1 -! JVRP(17055) = dARP(10730)/dV(1835) - JVRP(17055) = V(5250) -! JVRP(17056) = dARP(10730)/dV(5250) - JVRP(17056) = V(1835) -! JVRP(17057) = dARP(10731)/dV(2997) - JVRP(17057) = 1 -! JVRP(17058) = dARP(10732)/dV(556) - JVRP(17058) = V(5250) -! JVRP(17059) = dARP(10732)/dV(5250) - JVRP(17059) = V(556) -! JVRP(17060) = dARP(10733)/dV(3840) - JVRP(17060) = V(5255) -! JVRP(17061) = dARP(10733)/dV(5255) - JVRP(17061) = V(3840) -! JVRP(17062) = dARP(10734)/dV(3840) - JVRP(17062) = V(5252) -! JVRP(17063) = dARP(10734)/dV(5252) - JVRP(17063) = V(3840) -! JVRP(17064) = dARP(10735)/dV(3840) - JVRP(17064) = V(5256) -! JVRP(17065) = dARP(10735)/dV(5256) - JVRP(17065) = V(3840) -! JVRP(17066) = dARP(10736)/dV(3840) - JVRP(17066) = 1 -! JVRP(17067) = dARP(10737)/dV(3840) - JVRP(17067) = 1 -! JVRP(17068) = dARP(10738)/dV(4842) - JVRP(17068) = V(5256) -! JVRP(17069) = dARP(10738)/dV(5256) - JVRP(17069) = V(4842) -! JVRP(17070) = dARP(10739)/dV(4842) - JVRP(17070) = V(5250) -! JVRP(17071) = dARP(10739)/dV(5250) - JVRP(17071) = V(4842) -! JVRP(17072) = dARP(10740)/dV(4842) - JVRP(17072) = 1 -! JVRP(17073) = dARP(10741)/dV(27) - JVRP(17073) = 1 -! JVRP(17074) = dARP(10742)/dV(3985) - JVRP(17074) = V(5255) -! JVRP(17075) = dARP(10742)/dV(5255) - JVRP(17075) = V(3985) -! JVRP(17076) = dARP(10743)/dV(3985) - JVRP(17076) = V(5252) -! JVRP(17077) = dARP(10743)/dV(5252) - JVRP(17077) = V(3985) -! JVRP(17078) = dARP(10744)/dV(3985) - JVRP(17078) = V(5252) -! JVRP(17079) = dARP(10744)/dV(5252) - JVRP(17079) = V(3985) -! JVRP(17080) = dARP(10745)/dV(3985) - JVRP(17080) = V(5256) -! JVRP(17081) = dARP(10745)/dV(5256) - JVRP(17081) = V(3985) -! JVRP(17082) = dARP(10746)/dV(3985) - JVRP(17082) = 1 -! JVRP(17083) = dARP(10747)/dV(3985) - JVRP(17083) = 1 -! JVRP(17084) = dARP(10748)/dV(4197) - JVRP(17084) = V(5255) -! JVRP(17085) = dARP(10748)/dV(5255) - JVRP(17085) = V(4197) -! JVRP(17086) = dARP(10749)/dV(4197) - JVRP(17086) = V(5252) -! JVRP(17087) = dARP(10749)/dV(5252) - JVRP(17087) = V(4197) -! JVRP(17088) = dARP(10750)/dV(4197) - JVRP(17088) = V(5252) -! JVRP(17089) = dARP(10750)/dV(5252) - JVRP(17089) = V(4197) -! JVRP(17090) = dARP(10751)/dV(4197) - JVRP(17090) = V(5256) -! JVRP(17091) = dARP(10751)/dV(5256) - JVRP(17091) = V(4197) -! JVRP(17092) = dARP(10752)/dV(4197) - JVRP(17092) = 1 -! JVRP(17093) = dARP(10753)/dV(4197) - JVRP(17093) = 1 -! JVRP(17094) = dARP(10754)/dV(1087) - JVRP(17094) = V(5250) -! JVRP(17095) = dARP(10754)/dV(5250) - JVRP(17095) = V(1087) -! JVRP(17096) = dARP(10755)/dV(1087) - JVRP(17096) = 1 -! JVRP(17097) = dARP(10756)/dV(1047) - JVRP(17097) = V(5250) -! JVRP(17098) = dARP(10756)/dV(5250) - JVRP(17098) = V(1047) -! JVRP(17099) = dARP(10757)/dV(1047) - JVRP(17099) = 1 -! JVRP(17100) = dARP(10758)/dV(2879) - JVRP(17100) = V(5250) -! JVRP(17101) = dARP(10758)/dV(5250) - JVRP(17101) = V(2879) -! JVRP(17102) = dARP(10759)/dV(2879) - JVRP(17102) = 1 -! JVRP(17103) = dARP(10760)/dV(1605) - JVRP(17103) = 1 -! JVRP(17104) = dARP(10761)/dV(1605) - JVRP(17104) = 1 -! JVRP(17105) = dARP(10762)/dV(457) - JVRP(17105) = V(5250) -! JVRP(17106) = dARP(10762)/dV(5250) - JVRP(17106) = V(457) -! JVRP(17107) = dARP(10763)/dV(1325) - JVRP(17107) = V(5250) -! JVRP(17108) = dARP(10763)/dV(5250) - JVRP(17108) = V(1325) -! JVRP(17109) = dARP(10764)/dV(1325) - JVRP(17109) = 1 -! JVRP(17110) = dARP(10765)/dV(2958) - JVRP(17110) = V(5250) -! JVRP(17111) = dARP(10765)/dV(5250) - JVRP(17111) = V(2958) -! JVRP(17112) = dARP(10766)/dV(2958) - JVRP(17112) = 1 -! JVRP(17113) = dARP(10767)/dV(2071) - JVRP(17113) = V(5250) -! JVRP(17114) = dARP(10767)/dV(5250) - JVRP(17114) = V(2071) -! JVRP(17115) = dARP(10768)/dV(2071) - JVRP(17115) = 1 -! JVRP(17116) = dARP(10769)/dV(728) - JVRP(17116) = 1 -! JVRP(17117) = dARP(10770)/dV(2273) - JVRP(17117) = V(5250) -! JVRP(17118) = dARP(10770)/dV(5250) - JVRP(17118) = V(2273) -! JVRP(17119) = dARP(10771)/dV(2273) - JVRP(17119) = 1 -! JVRP(17120) = dARP(10772)/dV(219) - JVRP(17120) = V(5250) -! JVRP(17121) = dARP(10772)/dV(5250) - JVRP(17121) = V(219) -! JVRP(17122) = dARP(10773)/dV(1447) - JVRP(17122) = V(5250) -! JVRP(17123) = dARP(10773)/dV(5250) - JVRP(17123) = V(1447) -! JVRP(17124) = dARP(10774)/dV(1447) - JVRP(17124) = 1 -! JVRP(17125) = dARP(10775)/dV(2947) - JVRP(17125) = V(5250) -! JVRP(17126) = dARP(10775)/dV(5250) - JVRP(17126) = V(2947) -! JVRP(17127) = dARP(10776)/dV(2947) - JVRP(17127) = 1 -! JVRP(17128) = dARP(10777)/dV(1487) - JVRP(17128) = V(5250) -! JVRP(17129) = dARP(10777)/dV(5250) - JVRP(17129) = V(1487) -! JVRP(17130) = dARP(10778)/dV(1487) - JVRP(17130) = 1 -! JVRP(17131) = dARP(10779)/dV(3335) - JVRP(17131) = 1 -! JVRP(17132) = dARP(10780)/dV(1318) - JVRP(17132) = V(5250) -! JVRP(17133) = dARP(10780)/dV(5250) - JVRP(17133) = V(1318) -! JVRP(17134) = dARP(10781)/dV(1318) - JVRP(17134) = 1 -! JVRP(17135) = dARP(10782)/dV(3390) - JVRP(17135) = 1 -! JVRP(17136) = dARP(10783)/dV(3390) - JVRP(17136) = 1 -! JVRP(17137) = dARP(10784)/dV(1990) - JVRP(17137) = V(5250) -! JVRP(17138) = dARP(10784)/dV(5250) - JVRP(17138) = V(1990) -! JVRP(17139) = dARP(10785)/dV(1990) - JVRP(17139) = 1 -! JVRP(17140) = dARP(10786)/dV(649) - JVRP(17140) = 1 -! JVRP(17141) = dARP(10787)/dV(1995) - JVRP(17141) = V(5250) -! JVRP(17142) = dARP(10787)/dV(5250) - JVRP(17142) = V(1995) -! JVRP(17143) = dARP(10788)/dV(4145) - JVRP(17143) = V(5255) -! JVRP(17144) = dARP(10788)/dV(5255) - JVRP(17144) = V(4145) -! JVRP(17145) = dARP(10789)/dV(4145) - JVRP(17145) = V(5252) -! JVRP(17146) = dARP(10789)/dV(5252) - JVRP(17146) = V(4145) -! JVRP(17147) = dARP(10790)/dV(4145) - JVRP(17147) = V(5256) -! JVRP(17148) = dARP(10790)/dV(5256) - JVRP(17148) = V(4145) -! JVRP(17149) = dARP(10791)/dV(4145) - JVRP(17149) = 1 -! JVRP(17150) = dARP(10792)/dV(4145) - JVRP(17150) = 1 -! JVRP(17151) = dARP(10793)/dV(4145) - JVRP(17151) = 1 -! JVRP(17152) = dARP(10794)/dV(4135) - JVRP(17152) = V(5255) -! JVRP(17153) = dARP(10794)/dV(5255) - JVRP(17153) = V(4135) -! JVRP(17154) = dARP(10795)/dV(4135) - JVRP(17154) = V(5252) -! JVRP(17155) = dARP(10795)/dV(5252) - JVRP(17155) = V(4135) -! JVRP(17156) = dARP(10796)/dV(4135) - JVRP(17156) = V(5256) -! JVRP(17157) = dARP(10796)/dV(5256) - JVRP(17157) = V(4135) -! JVRP(17158) = dARP(10797)/dV(4135) - JVRP(17158) = 1 -! JVRP(17159) = dARP(10798)/dV(4135) - JVRP(17159) = 1 -! JVRP(17160) = dARP(10799)/dV(4135) - JVRP(17160) = 1 -! JVRP(17161) = dARP(10800)/dV(4824) - JVRP(17161) = V(5251) -! JVRP(17162) = dARP(10800)/dV(5251) - JVRP(17162) = V(4824) -! JVRP(17163) = dARP(10801)/dV(4824) - JVRP(17163) = V(5252) -! JVRP(17164) = dARP(10801)/dV(5252) - JVRP(17164) = V(4824) -! JVRP(17165) = dARP(10802)/dV(4824) - JVRP(17165) = V(5253) -! JVRP(17166) = dARP(10802)/dV(5253) - JVRP(17166) = V(4824) -! JVRP(17167) = dARP(10803)/dV(4824) - JVRP(17167) = V(5254) -! JVRP(17168) = dARP(10803)/dV(5254) - JVRP(17168) = V(4824) -! JVRP(17169) = dARP(10804)/dV(4824) - JVRP(17169) = 1 -! JVRP(17170) = dARP(10805)/dV(4824) - JVRP(17170) = 1 -! JVRP(17171) = dARP(10806)/dV(2407) - JVRP(17171) = V(5250) -! JVRP(17172) = dARP(10806)/dV(5250) - JVRP(17172) = V(2407) -! JVRP(17173) = dARP(10807)/dV(2407) - JVRP(17173) = 1 -! JVRP(17174) = dARP(10808)/dV(1151) - JVRP(17174) = V(5250) -! JVRP(17175) = dARP(10808)/dV(5250) - JVRP(17175) = V(1151) -! JVRP(17176) = dARP(10809)/dV(549) - JVRP(17176) = 1 -! JVRP(17177) = dARP(10810)/dV(1384) - JVRP(17177) = V(5250) -! JVRP(17178) = dARP(10810)/dV(5250) - JVRP(17178) = V(1384) -! JVRP(17179) = dARP(10811)/dV(1973) - JVRP(17179) = V(5250) -! JVRP(17180) = dARP(10811)/dV(5250) - JVRP(17180) = V(1973) -! JVRP(17181) = dARP(10812)/dV(1973) - JVRP(17181) = 1 -! JVRP(17182) = dARP(10813)/dV(721) - JVRP(17182) = 1 -! JVRP(17183) = dARP(10814)/dV(1706) - JVRP(17183) = V(5250) -! JVRP(17184) = dARP(10814)/dV(5250) - JVRP(17184) = V(1706) -! JVRP(17185) = dARP(10815)/dV(2439) - JVRP(17185) = V(5250) -! JVRP(17186) = dARP(10815)/dV(5250) - JVRP(17186) = V(2439) -! JVRP(17187) = dARP(10816)/dV(2439) - JVRP(17187) = 1 -! JVRP(17188) = dARP(10817)/dV(703) - JVRP(17188) = 1 -! JVRP(17189) = dARP(10818)/dV(1843) - JVRP(17189) = V(5250) -! JVRP(17190) = dARP(10818)/dV(5250) - JVRP(17190) = V(1843) -! JVRP(17191) = dARP(10819)/dV(1843) - JVRP(17191) = 1 -! JVRP(17192) = dARP(10820)/dV(281) - JVRP(17192) = V(5250) -! JVRP(17193) = dARP(10820)/dV(5250) - JVRP(17193) = V(281) -! JVRP(17194) = dARP(10821)/dV(1182) - JVRP(17194) = V(5250) -! JVRP(17195) = dARP(10821)/dV(5250) - JVRP(17195) = V(1182) -! JVRP(17196) = dARP(10822)/dV(1182) - JVRP(17196) = 1 -! JVRP(17197) = dARP(10823)/dV(2860) - JVRP(17197) = V(5250) -! JVRP(17198) = dARP(10823)/dV(5250) - JVRP(17198) = V(2860) -! JVRP(17199) = dARP(10824)/dV(2860) - JVRP(17199) = 1 -! JVRP(17200) = dARP(10825)/dV(1950) - JVRP(17200) = V(5250) -! JVRP(17201) = dARP(10825)/dV(5250) - JVRP(17201) = V(1950) -! JVRP(17202) = dARP(10826)/dV(1950) - JVRP(17202) = 1 -! JVRP(17203) = dARP(10827)/dV(1950) - JVRP(17203) = 1 -! JVRP(17204) = dARP(10828)/dV(658) - JVRP(17204) = 1 -! JVRP(17205) = dARP(10829)/dV(2119) - JVRP(17205) = V(5250) -! JVRP(17206) = dARP(10829)/dV(5250) - JVRP(17206) = V(2119) -! JVRP(17207) = dARP(10830)/dV(2119) - JVRP(17207) = 1 -! JVRP(17208) = dARP(10831)/dV(1668) - JVRP(17208) = V(5250) -! JVRP(17209) = dARP(10831)/dV(5250) - JVRP(17209) = V(1668) -! JVRP(17210) = dARP(10832)/dV(1668) - JVRP(17210) = 1 -! JVRP(17211) = dARP(10833)/dV(1863) - JVRP(17211) = V(5250) -! JVRP(17212) = dARP(10833)/dV(5250) - JVRP(17212) = V(1863) -! JVRP(17213) = dARP(10834)/dV(1863) - JVRP(17213) = 1 -! JVRP(17214) = dARP(10835)/dV(1863) - JVRP(17214) = 1 -! JVRP(17215) = dARP(10836)/dV(585) - JVRP(17215) = 1 -! JVRP(17216) = dARP(10837)/dV(2315) - JVRP(17216) = V(5250) -! JVRP(17217) = dARP(10837)/dV(5250) - JVRP(17217) = V(2315) -! JVRP(17218) = dARP(10838)/dV(2315) - JVRP(17218) = 1 -! JVRP(17219) = dARP(10839)/dV(1687) - JVRP(17219) = V(5250) -! JVRP(17220) = dARP(10839)/dV(5250) - JVRP(17220) = V(1687) -! JVRP(17221) = dARP(10840)/dV(1687) - JVRP(17221) = 1 -! JVRP(17222) = dARP(10841)/dV(2737) - JVRP(17222) = V(5250) -! JVRP(17223) = dARP(10841)/dV(5250) - JVRP(17223) = V(2737) -! JVRP(17224) = dARP(10842)/dV(2737) - JVRP(17224) = 1 -! JVRP(17225) = dARP(10843)/dV(2737) - JVRP(17225) = 1 -! JVRP(17226) = dARP(10844)/dV(1769) - JVRP(17226) = 1 -! JVRP(17227) = dARP(10845)/dV(1828) - JVRP(17227) = V(5250) -! JVRP(17228) = dARP(10845)/dV(5250) - JVRP(17228) = V(1828) -! JVRP(17229) = dARP(10846)/dV(1828) - JVRP(17229) = 1 -! JVRP(17230) = dARP(10847)/dV(1619) - JVRP(17230) = V(5250) -! JVRP(17231) = dARP(10847)/dV(5250) - JVRP(17231) = V(1619) -! JVRP(17232) = dARP(10848)/dV(1619) - JVRP(17232) = 1 -! JVRP(17233) = dARP(10849)/dV(1523) - JVRP(17233) = V(5250) -! JVRP(17234) = dARP(10849)/dV(5250) - JVRP(17234) = V(1523) -! JVRP(17235) = dARP(10850)/dV(1523) - JVRP(17235) = 1 -! JVRP(17236) = dARP(10851)/dV(2165) - JVRP(17236) = V(5250) -! JVRP(17237) = dARP(10851)/dV(5250) - JVRP(17237) = V(2165) -! JVRP(17238) = dARP(10852)/dV(2165) - JVRP(17238) = 1 -! JVRP(17239) = dARP(10853)/dV(189) - JVRP(17239) = 1 -! JVRP(17240) = dARP(10854)/dV(3242) - JVRP(17240) = V(5250) -! JVRP(17241) = dARP(10854)/dV(5250) - JVRP(17241) = V(3242) -! JVRP(17242) = dARP(10855)/dV(413) - JVRP(17242) = V(5250) -! JVRP(17243) = dARP(10855)/dV(5250) - JVRP(17243) = V(413) -! JVRP(17244) = dARP(10856)/dV(1373) - JVRP(17244) = V(5250) -! JVRP(17245) = dARP(10856)/dV(5250) - JVRP(17245) = V(1373) -! JVRP(17246) = dARP(10857)/dV(1373) - JVRP(17246) = 1 -! JVRP(17247) = dARP(10858)/dV(726) - JVRP(17247) = 1 -! JVRP(17248) = dARP(10859)/dV(1372) - JVRP(17248) = V(5250) -! JVRP(17249) = dARP(10859)/dV(5250) - JVRP(17249) = V(1372) -! JVRP(17250) = dARP(10860)/dV(440) - JVRP(17250) = V(5250) -! JVRP(17251) = dARP(10860)/dV(5250) - JVRP(17251) = V(440) -! JVRP(17252) = dARP(10861)/dV(251) - JVRP(17252) = V(5250) -! JVRP(17253) = dARP(10861)/dV(5250) - JVRP(17253) = V(251) -! JVRP(17254) = dARP(10862)/dV(900) - JVRP(17254) = V(5250) -! JVRP(17255) = dARP(10862)/dV(5250) - JVRP(17255) = V(900) -! JVRP(17256) = dARP(10863)/dV(900) - JVRP(17256) = 1 -! JVRP(17257) = dARP(10864)/dV(2648) - JVRP(17257) = V(5250) -! JVRP(17258) = dARP(10864)/dV(5250) - JVRP(17258) = V(2648) -! JVRP(17259) = dARP(10865)/dV(2648) - JVRP(17259) = 1 -! JVRP(17260) = dARP(10866)/dV(1624) - JVRP(17260) = 1 -! JVRP(17261) = dARP(10867)/dV(1624) - JVRP(17261) = 1 -! JVRP(17262) = dARP(10868)/dV(496) - JVRP(17262) = V(5250) -! JVRP(17263) = dARP(10868)/dV(5250) - JVRP(17263) = V(496) -! JVRP(17264) = dARP(10869)/dV(1407) - JVRP(17264) = V(5250) -! JVRP(17265) = dARP(10869)/dV(5250) - JVRP(17265) = V(1407) -! JVRP(17266) = dARP(10870)/dV(1407) - JVRP(17266) = 1 -! JVRP(17267) = dARP(10871)/dV(2685) - JVRP(17267) = V(5250) -! JVRP(17268) = dARP(10871)/dV(5250) - JVRP(17268) = V(2685) -! JVRP(17269) = dARP(10872)/dV(2685) - JVRP(17269) = 1 -! JVRP(17270) = dARP(10873)/dV(1900) - JVRP(17270) = V(5250) -! JVRP(17271) = dARP(10873)/dV(5250) - JVRP(17271) = V(1900) -! JVRP(17272) = dARP(10874)/dV(1900) - JVRP(17272) = 1 -! JVRP(17273) = dARP(10875)/dV(724) - JVRP(17273) = 1 -! JVRP(17274) = dARP(10876)/dV(1913) - JVRP(17274) = V(5250) -! JVRP(17275) = dARP(10876)/dV(5250) - JVRP(17275) = V(1913) -! JVRP(17276) = dARP(10877)/dV(1913) - JVRP(17276) = 1 -! JVRP(17277) = dARP(10878)/dV(371) - JVRP(17277) = V(5250) -! JVRP(17278) = dARP(10878)/dV(5250) - JVRP(17278) = V(371) -! JVRP(17279) = dARP(10879)/dV(949) - JVRP(17279) = V(5250) -! JVRP(17280) = dARP(10879)/dV(5250) - JVRP(17280) = V(949) -! JVRP(17281) = dARP(10880)/dV(949) - JVRP(17281) = 1 -! JVRP(17282) = dARP(10881)/dV(2079) - JVRP(17282) = V(5250) -! JVRP(17283) = dARP(10881)/dV(5250) - JVRP(17283) = V(2079) -! JVRP(17284) = dARP(10882)/dV(2079) - JVRP(17284) = 1 -! JVRP(17285) = dARP(10883)/dV(159) - JVRP(17285) = 1 -! JVRP(17286) = dARP(10884)/dV(462) - JVRP(17286) = V(5250) -! JVRP(17287) = dARP(10884)/dV(5250) - JVRP(17287) = V(462) -! JVRP(17288) = dARP(10885)/dV(1502) - JVRP(17288) = V(5250) -! JVRP(17289) = dARP(10885)/dV(5250) - JVRP(17289) = V(1502) -! JVRP(17290) = dARP(10886)/dV(1502) - JVRP(17290) = 1 -! JVRP(17291) = dARP(10887)/dV(2832) - JVRP(17291) = 1 -! JVRP(17292) = dARP(10888)/dV(692) - JVRP(17292) = V(5250) -! JVRP(17293) = dARP(10888)/dV(5250) - JVRP(17293) = V(692) -! JVRP(17294) = dARP(10889)/dV(4738) - JVRP(17294) = V(5255) -! JVRP(17295) = dARP(10889)/dV(5255) - JVRP(17295) = V(4738) -! JVRP(17296) = dARP(10890)/dV(4738) - JVRP(17296) = V(5255) -! JVRP(17297) = dARP(10890)/dV(5255) - JVRP(17297) = V(4738) -! JVRP(17298) = dARP(10891)/dV(4738) - JVRP(17298) = V(5255) -! JVRP(17299) = dARP(10891)/dV(5255) - JVRP(17299) = V(4738) -! JVRP(17300) = dARP(10892)/dV(4738) - JVRP(17300) = V(5252) -! JVRP(17301) = dARP(10892)/dV(5252) - JVRP(17301) = V(4738) -! JVRP(17302) = dARP(10893)/dV(4738) - JVRP(17302) = V(5253) -! JVRP(17303) = dARP(10893)/dV(5253) - JVRP(17303) = V(4738) -! JVRP(17304) = dARP(10894)/dV(4738) - JVRP(17304) = V(5256) -! JVRP(17305) = dARP(10894)/dV(5256) - JVRP(17305) = V(4738) -! JVRP(17306) = dARP(10895)/dV(4738) - JVRP(17306) = 1 -! JVRP(17307) = dARP(10896)/dV(4738) - JVRP(17307) = 1 -! JVRP(17308) = dARP(10897)/dV(4043) - JVRP(17308) = V(5255) -! JVRP(17309) = dARP(10897)/dV(5255) - JVRP(17309) = V(4043) -! JVRP(17310) = dARP(10898)/dV(4043) - JVRP(17310) = V(5252) -! JVRP(17311) = dARP(10898)/dV(5252) - JVRP(17311) = V(4043) -! JVRP(17312) = dARP(10899)/dV(4043) - JVRP(17312) = V(5252) -! JVRP(17313) = dARP(10899)/dV(5252) - JVRP(17313) = V(4043) -! JVRP(17314) = dARP(10900)/dV(4043) - JVRP(17314) = V(5256) -! JVRP(17315) = dARP(10900)/dV(5256) - JVRP(17315) = V(4043) -! JVRP(17316) = dARP(10901)/dV(4043) - JVRP(17316) = 1 -! JVRP(17317) = dARP(10902)/dV(4043) - JVRP(17317) = 1 -! JVRP(17318) = dARP(10903)/dV(4043) - JVRP(17318) = 1 -! JVRP(17319) = dARP(10904)/dV(4258) - JVRP(17319) = V(5251) -! JVRP(17320) = dARP(10904)/dV(5251) - JVRP(17320) = V(4258) -! JVRP(17321) = dARP(10905)/dV(4258) - JVRP(17321) = V(5252) -! JVRP(17322) = dARP(10905)/dV(5252) - JVRP(17322) = V(4258) -! JVRP(17323) = dARP(10906)/dV(4258) - JVRP(17323) = V(5253) -! JVRP(17324) = dARP(10906)/dV(5253) - JVRP(17324) = V(4258) -! JVRP(17325) = dARP(10907)/dV(4258) - JVRP(17325) = V(5254) -! JVRP(17326) = dARP(10907)/dV(5254) - JVRP(17326) = V(4258) -! JVRP(17327) = dARP(10908)/dV(4258) - JVRP(17327) = 1 -! JVRP(17328) = dARP(10909)/dV(4176) - JVRP(17328) = V(5255) -! JVRP(17329) = dARP(10909)/dV(5255) - JVRP(17329) = V(4176) -! JVRP(17330) = dARP(10910)/dV(4176) - JVRP(17330) = V(5252) -! JVRP(17331) = dARP(10910)/dV(5252) - JVRP(17331) = V(4176) -! JVRP(17332) = dARP(10911)/dV(4176) - JVRP(17332) = V(5256) -! JVRP(17333) = dARP(10911)/dV(5256) - JVRP(17333) = V(4176) -! JVRP(17334) = dARP(10912)/dV(4176) - JVRP(17334) = 1 -! JVRP(17335) = dARP(10913)/dV(4176) - JVRP(17335) = 1 -! JVRP(17336) = dARP(10914)/dV(4176) - JVRP(17336) = 1 -! JVRP(17337) = dARP(10915)/dV(1183) - JVRP(17337) = V(5250) -! JVRP(17338) = dARP(10915)/dV(5250) - JVRP(17338) = V(1183) -! JVRP(17339) = dARP(10916)/dV(1183) - JVRP(17339) = 1 -! JVRP(17340) = dARP(10917)/dV(2325) - JVRP(17340) = V(5250) -! JVRP(17341) = dARP(10917)/dV(5250) - JVRP(17341) = V(2325) -! JVRP(17342) = dARP(10918)/dV(2746) - JVRP(17342) = 1 -! JVRP(17343) = dARP(10919)/dV(127) - JVRP(17343) = V(5250) -! JVRP(17344) = dARP(10919)/dV(5250) - JVRP(17344) = V(127) -! JVRP(17345) = dARP(10920)/dV(1286) - JVRP(17345) = V(5250) -! JVRP(17346) = dARP(10920)/dV(5250) - JVRP(17346) = V(1286) -! JVRP(17347) = dARP(10921)/dV(1286) - JVRP(17347) = 1 -! JVRP(17348) = dARP(10922)/dV(1629) - JVRP(17348) = V(5250) -! JVRP(17349) = dARP(10922)/dV(5250) - JVRP(17349) = V(1629) -! JVRP(17350) = dARP(10923)/dV(1629) - JVRP(17350) = 1 -! JVRP(17351) = dARP(10924)/dV(187) - JVRP(17351) = 1 -! JVRP(17352) = dARP(10925)/dV(1628) - JVRP(17352) = V(5250) -! JVRP(17353) = dARP(10925)/dV(5250) - JVRP(17353) = V(1628) -! JVRP(17354) = dARP(10926)/dV(248) - JVRP(17354) = V(5250) -! JVRP(17355) = dARP(10926)/dV(5250) - JVRP(17355) = V(248) -! JVRP(17356) = dARP(10927)/dV(930) - JVRP(17356) = V(5250) -! JVRP(17357) = dARP(10927)/dV(5250) - JVRP(17357) = V(930) -! JVRP(17358) = dARP(10928)/dV(930) - JVRP(17358) = 1 -! JVRP(17359) = dARP(10929)/dV(970) - JVRP(17359) = V(5250) -! JVRP(17360) = dARP(10929)/dV(5250) - JVRP(17360) = V(970) -! JVRP(17361) = dARP(10930)/dV(970) - JVRP(17361) = 1 -! JVRP(17362) = dARP(10931)/dV(2239) - JVRP(17362) = V(5250) -! JVRP(17363) = dARP(10931)/dV(5250) - JVRP(17363) = V(2239) -! JVRP(17364) = dARP(10932)/dV(2239) - JVRP(17364) = 1 -! JVRP(17365) = dARP(10933)/dV(326) - JVRP(17365) = 1 -! JVRP(17366) = dARP(10934)/dV(87) - JVRP(17366) = V(5250) -! JVRP(17367) = dARP(10934)/dV(5250) - JVRP(17367) = V(87) -! JVRP(17368) = dARP(10935)/dV(1862) - JVRP(17368) = V(5250) -! JVRP(17369) = dARP(10935)/dV(5250) - JVRP(17369) = V(1862) -! JVRP(17370) = dARP(10936)/dV(1862) - JVRP(17370) = 1 -! JVRP(17371) = dARP(10937)/dV(673) - JVRP(17371) = 1 -! JVRP(17372) = dARP(10938)/dV(2288) - JVRP(17372) = V(5250) -! JVRP(17373) = dARP(10938)/dV(5250) - JVRP(17373) = V(2288) -! JVRP(17374) = dARP(10939)/dV(5114) - JVRP(17374) = V(5255) -! JVRP(17375) = dARP(10939)/dV(5255) - JVRP(17375) = V(5114) -! JVRP(17376) = dARP(10940)/dV(5114) - JVRP(17376) = V(5252) -! JVRP(17377) = dARP(10940)/dV(5252) - JVRP(17377) = V(5114) -! JVRP(17378) = dARP(10941)/dV(5114) - JVRP(17378) = V(5252) -! JVRP(17379) = dARP(10941)/dV(5252) - JVRP(17379) = V(5114) -! JVRP(17380) = dARP(10942)/dV(5114) - JVRP(17380) = V(5256) -! JVRP(17381) = dARP(10942)/dV(5256) - JVRP(17381) = V(5114) -! JVRP(17382) = dARP(10943)/dV(5114) - JVRP(17382) = 1 -! JVRP(17383) = dARP(10944)/dV(5114) - JVRP(17383) = 1 -! JVRP(17384) = dARP(10945)/dV(5114) - JVRP(17384) = 1 -! JVRP(17385) = dARP(10946)/dV(2098) - JVRP(17385) = V(5250) -! JVRP(17386) = dARP(10946)/dV(5250) - JVRP(17386) = V(2098) -! JVRP(17387) = dARP(10947)/dV(2098) - JVRP(17387) = 1 -! JVRP(17388) = dARP(10948)/dV(1334) - JVRP(17388) = V(5250) -! JVRP(17389) = dARP(10948)/dV(5250) - JVRP(17389) = V(1334) -! JVRP(17390) = dARP(10949)/dV(730) - JVRP(17390) = 1 -! JVRP(17391) = dARP(10950)/dV(1056) - JVRP(17391) = V(5250) -! JVRP(17392) = dARP(10950)/dV(5250) - JVRP(17392) = V(1056) -! JVRP(17393) = dARP(10951)/dV(2266) - JVRP(17393) = V(5250) -! JVRP(17394) = dARP(10951)/dV(5250) - JVRP(17394) = V(2266) -! JVRP(17395) = dARP(10952)/dV(2266) - JVRP(17395) = 1 -! JVRP(17396) = dARP(10953)/dV(663) - JVRP(17396) = 1 -! JVRP(17397) = dARP(10954)/dV(1738) - JVRP(17397) = V(5250) -! JVRP(17398) = dARP(10954)/dV(5250) - JVRP(17398) = V(1738) -! JVRP(17399) = dARP(10955)/dV(2319) - JVRP(17399) = 1 -! JVRP(17400) = dARP(10956)/dV(2319) - JVRP(17400) = V(5250) -! JVRP(17401) = dARP(10956)/dV(5250) - JVRP(17401) = V(2319) -! JVRP(17402) = dARP(10957)/dV(2678) - JVRP(17402) = 1 -! JVRP(17403) = dARP(10958)/dV(2678) - JVRP(17403) = V(5250) -! JVRP(17404) = dARP(10958)/dV(5250) - JVRP(17404) = V(2678) -! JVRP(17405) = dARP(10959)/dV(2144) - JVRP(17405) = 1 -! JVRP(17406) = dARP(10960)/dV(2144) - JVRP(17406) = V(5250) -! JVRP(17407) = dARP(10960)/dV(5250) - JVRP(17407) = V(2144) -! JVRP(17408) = dARP(10961)/dV(2677) - JVRP(17408) = 1 -! JVRP(17409) = dARP(10962)/dV(2677) - JVRP(17409) = V(5250) -! JVRP(17410) = dARP(10962)/dV(5250) - JVRP(17410) = V(2677) -! JVRP(17411) = dARP(10963)/dV(5182) - JVRP(17411) = 1 -! JVRP(17412) = dARP(10964)/dV(5182) - JVRP(17412) = V(5256) -! JVRP(17413) = dARP(10964)/dV(5256) - JVRP(17413) = V(5182) -! JVRP(17414) = dARP(10965)/dV(5182) - JVRP(17414) = V(5250) -! JVRP(17415) = dARP(10965)/dV(5250) - JVRP(17415) = V(5182) -! JVRP(17416) = dARP(10966)/dV(4957) - JVRP(17416) = V(5255) -! JVRP(17417) = dARP(10966)/dV(5255) - JVRP(17417) = V(4957) -! JVRP(17418) = dARP(10967)/dV(4957) - JVRP(17418) = V(5255) -! JVRP(17419) = dARP(10967)/dV(5255) - JVRP(17419) = V(4957) -! JVRP(17420) = dARP(10968)/dV(4957) - JVRP(17420) = V(5255) -! JVRP(17421) = dARP(10968)/dV(5255) - JVRP(17421) = V(4957) -! JVRP(17422) = dARP(10969)/dV(4957) - JVRP(17422) = V(5252) -! JVRP(17423) = dARP(10969)/dV(5252) - JVRP(17423) = V(4957) -! JVRP(17424) = dARP(10970)/dV(4957) - JVRP(17424) = V(5253) -! JVRP(17425) = dARP(10970)/dV(5253) - JVRP(17425) = V(4957) -! JVRP(17426) = dARP(10971)/dV(4957) - JVRP(17426) = V(5256) -! JVRP(17427) = dARP(10971)/dV(5256) - JVRP(17427) = V(4957) -! JVRP(17428) = dARP(10972)/dV(4957) - JVRP(17428) = 1 -! JVRP(17429) = dARP(10973)/dV(4957) - JVRP(17429) = 1 -! JVRP(17430) = dARP(10974)/dV(4015) - JVRP(17430) = V(5255) -! JVRP(17431) = dARP(10974)/dV(5255) - JVRP(17431) = V(4015) -! JVRP(17432) = dARP(10975)/dV(4015) - JVRP(17432) = V(5252) -! JVRP(17433) = dARP(10975)/dV(5252) - JVRP(17433) = V(4015) -! JVRP(17434) = dARP(10976)/dV(4015) - JVRP(17434) = V(5256) -! JVRP(17435) = dARP(10976)/dV(5256) - JVRP(17435) = V(4015) -! JVRP(17436) = dARP(10977)/dV(4015) - JVRP(17436) = 1 -! JVRP(17437) = dARP(10978)/dV(3992) - JVRP(17437) = V(5255) -! JVRP(17438) = dARP(10978)/dV(5255) - JVRP(17438) = V(3992) -! JVRP(17439) = dARP(10979)/dV(3992) - JVRP(17439) = V(5252) -! JVRP(17440) = dARP(10979)/dV(5252) - JVRP(17440) = V(3992) -! JVRP(17441) = dARP(10980)/dV(3992) - JVRP(17441) = V(5256) -! JVRP(17442) = dARP(10980)/dV(5256) - JVRP(17442) = V(3992) -! JVRP(17443) = dARP(10981)/dV(3992) - JVRP(17443) = 1 -! JVRP(17444) = dARP(10982)/dV(4042) - JVRP(17444) = V(5255) -! JVRP(17445) = dARP(10982)/dV(5255) - JVRP(17445) = V(4042) -! JVRP(17446) = dARP(10983)/dV(4042) - JVRP(17446) = V(5252) -! JVRP(17447) = dARP(10983)/dV(5252) - JVRP(17447) = V(4042) -! JVRP(17448) = dARP(10984)/dV(4042) - JVRP(17448) = V(5256) -! JVRP(17449) = dARP(10984)/dV(5256) - JVRP(17449) = V(4042) -! JVRP(17450) = dARP(10985)/dV(4042) - JVRP(17450) = 1 -! JVRP(17451) = dARP(10986)/dV(258) - JVRP(17451) = V(5250) -! JVRP(17452) = dARP(10986)/dV(5250) - JVRP(17452) = V(258) -! JVRP(17453) = dARP(10987)/dV(1475) - JVRP(17453) = 1 -! JVRP(17454) = dARP(10988)/dV(1475) - JVRP(17454) = V(5250) -! JVRP(17455) = dARP(10988)/dV(5250) - JVRP(17455) = V(1475) -! JVRP(17456) = dARP(10989)/dV(2786) - JVRP(17456) = 1 -! JVRP(17457) = dARP(10990)/dV(2786) - JVRP(17457) = V(5250) -! JVRP(17458) = dARP(10990)/dV(5250) - JVRP(17458) = V(2786) -! JVRP(17459) = dARP(10991)/dV(909) - JVRP(17459) = V(5250) -! JVRP(17460) = dARP(10991)/dV(5250) - JVRP(17460) = V(909) -! JVRP(17461) = dARP(10992)/dV(909) - JVRP(17461) = 1 -! JVRP(17462) = dARP(10993)/dV(2865) - JVRP(17462) = 1 -! JVRP(17463) = dARP(10994)/dV(3358) - JVRP(17463) = V(5250) -! JVRP(17464) = dARP(10994)/dV(5250) - JVRP(17464) = V(3358) -! JVRP(17465) = dARP(10995)/dV(3358) - JVRP(17465) = 1 -! JVRP(17466) = dARP(10996)/dV(4795) - JVRP(17466) = V(5255) -! JVRP(17467) = dARP(10996)/dV(5255) - JVRP(17467) = V(4795) -! JVRP(17468) = dARP(10997)/dV(4795) - JVRP(17468) = V(5255) -! JVRP(17469) = dARP(10997)/dV(5255) - JVRP(17469) = V(4795) -! JVRP(17470) = dARP(10998)/dV(4795) - JVRP(17470) = V(5255) -! JVRP(17471) = dARP(10998)/dV(5255) - JVRP(17471) = V(4795) -! JVRP(17472) = dARP(10999)/dV(4795) - JVRP(17472) = V(5252) -! JVRP(17473) = dARP(10999)/dV(5252) - JVRP(17473) = V(4795) -! JVRP(17474) = dARP(11000)/dV(4795) - JVRP(17474) = V(5253) -! JVRP(17475) = dARP(11000)/dV(5253) - JVRP(17475) = V(4795) -! JVRP(17476) = dARP(11001)/dV(4795) - JVRP(17476) = V(5256) -! JVRP(17477) = dARP(11001)/dV(5256) - JVRP(17477) = V(4795) -! JVRP(17478) = dARP(11002)/dV(4795) - JVRP(17478) = 1 -! JVRP(17479) = dARP(11003)/dV(4795) - JVRP(17479) = 1 -! JVRP(17480) = dARP(11004)/dV(5179) - JVRP(17480) = V(5255) -! JVRP(17481) = dARP(11004)/dV(5255) - JVRP(17481) = V(5179) -! JVRP(17482) = dARP(11005)/dV(5179) - JVRP(17482) = V(5255) -! JVRP(17483) = dARP(11005)/dV(5255) - JVRP(17483) = V(5179) -! JVRP(17484) = dARP(11006)/dV(5179) - JVRP(17484) = V(5255) -! JVRP(17485) = dARP(11006)/dV(5255) - JVRP(17485) = V(5179) -! JVRP(17486) = dARP(11007)/dV(5179) - JVRP(17486) = V(5252) -! JVRP(17487) = dARP(11007)/dV(5252) - JVRP(17487) = V(5179) -! JVRP(17488) = dARP(11008)/dV(5179) - JVRP(17488) = V(5253) -! JVRP(17489) = dARP(11008)/dV(5253) - JVRP(17489) = V(5179) -! JVRP(17490) = dARP(11009)/dV(5179) - JVRP(17490) = V(5256) -! JVRP(17491) = dARP(11009)/dV(5256) - JVRP(17491) = V(5179) -! JVRP(17492) = dARP(11010)/dV(5179) - JVRP(17492) = 1 -! JVRP(17493) = dARP(11011)/dV(5179) - JVRP(17493) = 1 -! JVRP(17494) = dARP(11012)/dV(207) - JVRP(17494) = V(5250) -! JVRP(17495) = dARP(11012)/dV(5250) - JVRP(17495) = V(207) -! JVRP(17496) = dARP(11013)/dV(1042) - JVRP(17496) = 1 -! JVRP(17497) = dARP(11014)/dV(1042) - JVRP(17497) = V(5250) -! JVRP(17498) = dARP(11014)/dV(5250) - JVRP(17498) = V(1042) -! JVRP(17499) = dARP(11015)/dV(2884) - JVRP(17499) = 1 -! JVRP(17500) = dARP(11016)/dV(2884) - JVRP(17500) = V(5250) -! JVRP(17501) = dARP(11016)/dV(5250) - JVRP(17501) = V(2884) -! JVRP(17502) = dARP(11017)/dV(4662) - JVRP(17502) = V(5255) -! JVRP(17503) = dARP(11017)/dV(5255) - JVRP(17503) = V(4662) -! JVRP(17504) = dARP(11018)/dV(4662) - JVRP(17504) = V(5255) -! JVRP(17505) = dARP(11018)/dV(5255) - JVRP(17505) = V(4662) -! JVRP(17506) = dARP(11019)/dV(4662) - JVRP(17506) = V(5255) -! JVRP(17507) = dARP(11019)/dV(5255) - JVRP(17507) = V(4662) -! JVRP(17508) = dARP(11020)/dV(4662) - JVRP(17508) = V(5252) -! JVRP(17509) = dARP(11020)/dV(5252) - JVRP(17509) = V(4662) -! JVRP(17510) = dARP(11021)/dV(4662) - JVRP(17510) = V(5253) -! JVRP(17511) = dARP(11021)/dV(5253) - JVRP(17511) = V(4662) -! JVRP(17512) = dARP(11022)/dV(4662) - JVRP(17512) = V(5256) -! JVRP(17513) = dARP(11022)/dV(5256) - JVRP(17513) = V(4662) -! JVRP(17514) = dARP(11023)/dV(4662) - JVRP(17514) = 1 -! JVRP(17515) = dARP(11024)/dV(4662) - JVRP(17515) = 1 -! JVRP(17516) = dARP(11025)/dV(1074) - JVRP(17516) = 1 -! JVRP(17517) = dARP(11026)/dV(1074) - JVRP(17517) = V(5250) -! JVRP(17518) = dARP(11026)/dV(5250) - JVRP(17518) = V(1074) -! JVRP(17519) = dARP(11027)/dV(2885) - JVRP(17519) = 1 -! JVRP(17520) = dARP(11028)/dV(2885) - JVRP(17520) = V(5250) -! JVRP(17521) = dARP(11028)/dV(5250) - JVRP(17521) = V(2885) -! JVRP(17522) = dARP(11029)/dV(1204) - JVRP(17522) = 1 -! JVRP(17523) = dARP(11030)/dV(1204) - JVRP(17523) = V(5250) -! JVRP(17524) = dARP(11030)/dV(5250) - JVRP(17524) = V(1204) -! JVRP(17525) = dARP(11031)/dV(2270) - JVRP(17525) = 1 -! JVRP(17526) = dARP(11032)/dV(2270) - JVRP(17526) = V(5250) -! JVRP(17527) = dARP(11032)/dV(5250) - JVRP(17527) = V(2270) -! JVRP(17528) = dARP(11033)/dV(2589) - JVRP(17528) = 1 -! JVRP(17529) = dARP(11034)/dV(590) - JVRP(17529) = 1 -! JVRP(17530) = dARP(11035)/dV(590) - JVRP(17530) = V(5250) -! JVRP(17531) = dARP(11035)/dV(5250) - JVRP(17531) = V(590) -! JVRP(17532) = dARP(11036)/dV(4866) - JVRP(17532) = V(5255) -! JVRP(17533) = dARP(11036)/dV(5255) - JVRP(17533) = V(4866) -! JVRP(17534) = dARP(11037)/dV(4866) - JVRP(17534) = V(5255) -! JVRP(17535) = dARP(11037)/dV(5255) - JVRP(17535) = V(4866) -! JVRP(17536) = dARP(11038)/dV(4866) - JVRP(17536) = V(5255) -! JVRP(17537) = dARP(11038)/dV(5255) - JVRP(17537) = V(4866) -! JVRP(17538) = dARP(11039)/dV(4866) - JVRP(17538) = V(5252) -! JVRP(17539) = dARP(11039)/dV(5252) - JVRP(17539) = V(4866) -! JVRP(17540) = dARP(11040)/dV(4866) - JVRP(17540) = V(5253) -! JVRP(17541) = dARP(11040)/dV(5253) - JVRP(17541) = V(4866) -! JVRP(17542) = dARP(11041)/dV(4866) - JVRP(17542) = V(5256) -! JVRP(17543) = dARP(11041)/dV(5256) - JVRP(17543) = V(4866) -! JVRP(17544) = dARP(11042)/dV(4866) - JVRP(17544) = 1 -! JVRP(17545) = dARP(11043)/dV(4866) - JVRP(17545) = 1 -! JVRP(17546) = dARP(11044)/dV(376) - JVRP(17546) = V(5250) -! JVRP(17547) = dARP(11044)/dV(5250) - JVRP(17547) = V(376) -! JVRP(17548) = dARP(11045)/dV(1448) - JVRP(17548) = 1 -! JVRP(17549) = dARP(11046)/dV(1448) - JVRP(17549) = V(5250) -! JVRP(17550) = dARP(11046)/dV(5250) - JVRP(17550) = V(1448) -! JVRP(17551) = dARP(11047)/dV(2843) - JVRP(17551) = 1 -! JVRP(17552) = dARP(11048)/dV(2843) - JVRP(17552) = V(5250) -! JVRP(17553) = dARP(11048)/dV(5250) - JVRP(17553) = V(2843) -! JVRP(17554) = dARP(11049)/dV(2553) - JVRP(17554) = 1 -! JVRP(17555) = dARP(11050)/dV(2553) - JVRP(17555) = V(5250) -! JVRP(17556) = dARP(11050)/dV(5250) - JVRP(17556) = V(2553) -! JVRP(17557) = dARP(11051)/dV(2553) - JVRP(17557) = V(5250) -! JVRP(17558) = dARP(11051)/dV(5250) - JVRP(17558) = V(2553) -! JVRP(17559) = dARP(11052)/dV(2814) - JVRP(17559) = 1 -! JVRP(17560) = dARP(11053)/dV(2814) - JVRP(17560) = V(5250) -! JVRP(17561) = dARP(11053)/dV(5250) - JVRP(17561) = V(2814) -! JVRP(17562) = dARP(11054)/dV(4979) - JVRP(17562) = V(5255) -! JVRP(17563) = dARP(11054)/dV(5255) - JVRP(17563) = V(4979) -! JVRP(17564) = dARP(11055)/dV(4979) - JVRP(17564) = V(5255) -! JVRP(17565) = dARP(11055)/dV(5255) - JVRP(17565) = V(4979) -! JVRP(17566) = dARP(11056)/dV(4979) - JVRP(17566) = V(5255) -! JVRP(17567) = dARP(11056)/dV(5255) - JVRP(17567) = V(4979) -! JVRP(17568) = dARP(11057)/dV(4979) - JVRP(17568) = V(5252) -! JVRP(17569) = dARP(11057)/dV(5252) - JVRP(17569) = V(4979) -! JVRP(17570) = dARP(11058)/dV(4979) - JVRP(17570) = V(5253) -! JVRP(17571) = dARP(11058)/dV(5253) - JVRP(17571) = V(4979) -! JVRP(17572) = dARP(11059)/dV(4979) - JVRP(17572) = V(5256) -! JVRP(17573) = dARP(11059)/dV(5256) - JVRP(17573) = V(4979) -! JVRP(17574) = dARP(11060)/dV(4979) - JVRP(17574) = 1 -! JVRP(17575) = dARP(11061)/dV(4979) - JVRP(17575) = 1 -! JVRP(17576) = dARP(11062)/dV(4546) - JVRP(17576) = V(5255) -! JVRP(17577) = dARP(11062)/dV(5255) - JVRP(17577) = V(4546) -! JVRP(17578) = dARP(11063)/dV(4546) - JVRP(17578) = V(5252) -! JVRP(17579) = dARP(11063)/dV(5252) - JVRP(17579) = V(4546) -! JVRP(17580) = dARP(11064)/dV(4546) - JVRP(17580) = V(5256) -! JVRP(17581) = dARP(11064)/dV(5256) - JVRP(17581) = V(4546) -! JVRP(17582) = dARP(11065)/dV(4546) - JVRP(17582) = 1 -! JVRP(17583) = dARP(11066)/dV(4546) - JVRP(17583) = 1 -! JVRP(17584) = dARP(11067)/dV(1490) - JVRP(17584) = 1 -! JVRP(17585) = dARP(11068)/dV(1490) - JVRP(17585) = V(5250) -! JVRP(17586) = dARP(11068)/dV(5250) - JVRP(17586) = V(1490) -! JVRP(17587) = dARP(11069)/dV(1978) - JVRP(17587) = 1 -! JVRP(17588) = dARP(11070)/dV(1978) - JVRP(17588) = V(5250) -! JVRP(17589) = dARP(11070)/dV(5250) - JVRP(17589) = V(1978) -! JVRP(17590) = dARP(11071)/dV(2646) - JVRP(17590) = 1 -! JVRP(17591) = dARP(11072)/dV(2646) - JVRP(17591) = 1 -! JVRP(17592) = dARP(11073)/dV(289) - JVRP(17592) = V(5250) -! JVRP(17593) = dARP(11073)/dV(5250) - JVRP(17593) = V(289) -! JVRP(17594) = dARP(11074)/dV(479) - JVRP(17594) = V(5250) -! JVRP(17595) = dARP(11074)/dV(5250) - JVRP(17595) = V(479) -! JVRP(17596) = dARP(11075)/dV(1090) - JVRP(17596) = 1 -! JVRP(17597) = dARP(11076)/dV(1090) - JVRP(17597) = V(5250) -! JVRP(17598) = dARP(11076)/dV(5250) - JVRP(17598) = V(1090) -! JVRP(17599) = dARP(11077)/dV(2846) - JVRP(17599) = 1 -! JVRP(17600) = dARP(11078)/dV(2846) - JVRP(17600) = V(5250) -! JVRP(17601) = dARP(11078)/dV(5250) - JVRP(17601) = V(2846) -! JVRP(17602) = dARP(11079)/dV(2730) - JVRP(17602) = 1 -! JVRP(17603) = dARP(11080)/dV(2730) - JVRP(17603) = 1 -! JVRP(17604) = dARP(11081)/dV(2730) - JVRP(17604) = V(5250) -! JVRP(17605) = dARP(11081)/dV(5250) - JVRP(17605) = V(2730) -! JVRP(17606) = dARP(11082)/dV(2730) - JVRP(17606) = V(5250) -! JVRP(17607) = dARP(11082)/dV(5250) - JVRP(17607) = V(2730) -! JVRP(17608) = dARP(11083)/dV(674) - JVRP(17608) = 1 -! JVRP(17609) = dARP(11084)/dV(3057) - JVRP(17609) = 1 -! JVRP(17610) = dARP(11085)/dV(3057) - JVRP(17610) = V(5250) -! JVRP(17611) = dARP(11085)/dV(5250) - JVRP(17611) = V(3057) -! JVRP(17612) = dARP(11086)/dV(1659) - JVRP(17612) = 1 -! JVRP(17613) = dARP(11087)/dV(1659) - JVRP(17613) = V(5250) -! JVRP(17614) = dARP(11087)/dV(5250) - JVRP(17614) = V(1659) -! JVRP(17615) = dARP(11088)/dV(1327) - JVRP(17615) = 1 -! JVRP(17616) = dARP(11089)/dV(1327) - JVRP(17616) = V(5250) -! JVRP(17617) = dARP(11089)/dV(5250) - JVRP(17617) = V(1327) -! JVRP(17618) = dARP(11090)/dV(2844) - JVRP(17618) = 1 -! JVRP(17619) = dARP(11091)/dV(2844) - JVRP(17619) = V(5250) -! JVRP(17620) = dARP(11091)/dV(5250) - JVRP(17620) = V(2844) -! JVRP(17621) = dARP(11092)/dV(240) - JVRP(17621) = V(5250) -! JVRP(17622) = dARP(11092)/dV(5250) - JVRP(17622) = V(240) -! JVRP(17623) = dARP(11093)/dV(845) - JVRP(17623) = 1 -! JVRP(17624) = dARP(11094)/dV(845) - JVRP(17624) = V(5250) -! JVRP(17625) = dARP(11094)/dV(5250) - JVRP(17625) = V(845) -! JVRP(17626) = dARP(11095)/dV(2848) - JVRP(17626) = 1 -! JVRP(17627) = dARP(11096)/dV(2848) - JVRP(17627) = V(5250) -! JVRP(17628) = dARP(11096)/dV(5250) - JVRP(17628) = V(2848) -! JVRP(17629) = dARP(11097)/dV(1213) - JVRP(17629) = 1 -! JVRP(17630) = dARP(11098)/dV(1213) - JVRP(17630) = V(5250) -! JVRP(17631) = dARP(11098)/dV(5250) - JVRP(17631) = V(1213) -! JVRP(17632) = dARP(11099)/dV(2256) - JVRP(17632) = 1 -! JVRP(17633) = dARP(11100)/dV(2256) - JVRP(17633) = V(5250) -! JVRP(17634) = dARP(11100)/dV(5250) - JVRP(17634) = V(2256) -! JVRP(17635) = dARP(11101)/dV(3013) - JVRP(17635) = 1 -! JVRP(17636) = dARP(11102)/dV(4279) - JVRP(17636) = 1 -! JVRP(17637) = dARP(11103)/dV(4279) - JVRP(17637) = V(5256) -! JVRP(17638) = dARP(11103)/dV(5256) - JVRP(17638) = V(4279) -! JVRP(17639) = dARP(11104)/dV(4279) - JVRP(17639) = V(5250) -! JVRP(17640) = dARP(11104)/dV(5250) - JVRP(17640) = V(4279) -! JVRP(17641) = dARP(11105)/dV(554) - JVRP(17641) = 1 -! JVRP(17642) = dARP(11106)/dV(554) - JVRP(17642) = V(5250) -! JVRP(17643) = dARP(11106)/dV(5250) - JVRP(17643) = V(554) -! JVRP(17644) = dARP(11107)/dV(1323) - JVRP(17644) = 1 -! JVRP(17645) = dARP(11108)/dV(1323) - JVRP(17645) = V(5250) -! JVRP(17646) = dARP(11108)/dV(5250) - JVRP(17646) = V(1323) -! JVRP(17647) = dARP(11109)/dV(2253) - JVRP(17647) = 1 -! JVRP(17648) = dARP(11110)/dV(2253) - JVRP(17648) = V(5250) -! JVRP(17649) = dARP(11110)/dV(5250) - JVRP(17649) = V(2253) -! JVRP(17650) = dARP(11111)/dV(2982) - JVRP(17650) = 1 -! JVRP(17651) = dARP(11112)/dV(651) - JVRP(17651) = 1 -! JVRP(17652) = dARP(11113)/dV(651) - JVRP(17652) = V(5250) -! JVRP(17653) = dARP(11113)/dV(5250) - JVRP(17653) = V(651) -! JVRP(17654) = dARP(11114)/dV(3780) - JVRP(17654) = 1 -! JVRP(17655) = dARP(11115)/dV(3780) - JVRP(17655) = V(5250) -! JVRP(17656) = dARP(11115)/dV(5250) - JVRP(17656) = V(3780) -! JVRP(17657) = dARP(11116)/dV(4642) - JVRP(17657) = V(5255) -! JVRP(17658) = dARP(11116)/dV(5255) - JVRP(17658) = V(4642) -! JVRP(17659) = dARP(11117)/dV(4642) - JVRP(17659) = V(5255) -! JVRP(17660) = dARP(11117)/dV(5255) - JVRP(17660) = V(4642) -! JVRP(17661) = dARP(11118)/dV(4642) - JVRP(17661) = V(5255) -! JVRP(17662) = dARP(11118)/dV(5255) - JVRP(17662) = V(4642) -! JVRP(17663) = dARP(11119)/dV(4642) - JVRP(17663) = V(5252) -! JVRP(17664) = dARP(11119)/dV(5252) - JVRP(17664) = V(4642) -! JVRP(17665) = dARP(11120)/dV(4642) - JVRP(17665) = V(5253) -! JVRP(17666) = dARP(11120)/dV(5253) - JVRP(17666) = V(4642) -! JVRP(17667) = dARP(11121)/dV(4642) - JVRP(17667) = V(5256) -! JVRP(17668) = dARP(11121)/dV(5256) - JVRP(17668) = V(4642) -! JVRP(17669) = dARP(11122)/dV(4642) - JVRP(17669) = 1 -! JVRP(17670) = dARP(11123)/dV(4642) - JVRP(17670) = 1 -! JVRP(17671) = dARP(11124)/dV(449) - JVRP(17671) = V(5250) -! JVRP(17672) = dARP(11124)/dV(5250) - JVRP(17672) = V(449) -! JVRP(17673) = dARP(11125)/dV(1291) - JVRP(17673) = 1 -! JVRP(17674) = dARP(11126)/dV(1291) - JVRP(17674) = V(5250) -! JVRP(17675) = dARP(11126)/dV(5250) - JVRP(17675) = V(1291) -! JVRP(17676) = dARP(11127)/dV(3025) - JVRP(17676) = 1 -! JVRP(17677) = dARP(11128)/dV(3025) - JVRP(17677) = V(5250) -! JVRP(17678) = dARP(11128)/dV(5250) - JVRP(17678) = V(3025) -! JVRP(17679) = dARP(11129)/dV(1499) - JVRP(17679) = 1 -! JVRP(17680) = dARP(11130)/dV(1499) - JVRP(17680) = V(5250) -! JVRP(17681) = dARP(11130)/dV(5250) - JVRP(17681) = V(1499) -! JVRP(17682) = dARP(11131)/dV(2514) - JVRP(17682) = 1 -! JVRP(17683) = dARP(11132)/dV(2514) - JVRP(17683) = V(5250) -! JVRP(17684) = dARP(11132)/dV(5250) - JVRP(17684) = V(2514) -! JVRP(17685) = dARP(11133)/dV(2644) - JVRP(17685) = 1 -! JVRP(17686) = dARP(11134)/dV(284) - JVRP(17686) = 1 -! JVRP(17687) = dARP(11135)/dV(284) - JVRP(17687) = V(5250) -! JVRP(17688) = dARP(11135)/dV(5250) - JVRP(17688) = V(284) -! JVRP(17689) = dARP(11136)/dV(1191) - JVRP(17689) = 1 -! JVRP(17690) = dARP(11137)/dV(1191) - JVRP(17690) = V(5250) -! JVRP(17691) = dARP(11137)/dV(5250) - JVRP(17691) = V(1191) -! JVRP(17692) = dARP(11138)/dV(1607) - JVRP(17692) = 1 -! JVRP(17693) = dARP(11139)/dV(664) - JVRP(17693) = 1 -! JVRP(17694) = dARP(11140)/dV(664) - JVRP(17694) = V(5250) -! JVRP(17695) = dARP(11140)/dV(5250) - JVRP(17695) = V(664) -! JVRP(17696) = dARP(11141)/dV(2197) - JVRP(17696) = 1 -! JVRP(17697) = dARP(11142)/dV(2197) - JVRP(17697) = V(5250) -! JVRP(17698) = dARP(11142)/dV(5250) - JVRP(17698) = V(2197) -! JVRP(17699) = dARP(11143)/dV(2426) - JVRP(17699) = 1 -! JVRP(17700) = dARP(11144)/dV(2426) - JVRP(17700) = 1 -! JVRP(17701) = dARP(11145)/dV(2426) - JVRP(17701) = V(5250) -! JVRP(17702) = dARP(11145)/dV(5250) - JVRP(17702) = V(2426) -! JVRP(17703) = dARP(11146)/dV(1677) - JVRP(17703) = 1 -! JVRP(17704) = dARP(11147)/dV(1637) - JVRP(17704) = 1 -! JVRP(17705) = dARP(11148)/dV(1637) - JVRP(17705) = V(5250) -! JVRP(17706) = dARP(11148)/dV(5250) - JVRP(17706) = V(1637) -! JVRP(17707) = dARP(11149)/dV(456) - JVRP(17707) = V(5250) -! JVRP(17708) = dARP(11149)/dV(5250) - JVRP(17708) = V(456) -! JVRP(17709) = dARP(11150)/dV(1547) - JVRP(17709) = 1 -! JVRP(17710) = dARP(11151)/dV(1547) - JVRP(17710) = V(5250) -! JVRP(17711) = dARP(11151)/dV(5250) - JVRP(17711) = V(1547) -! JVRP(17712) = dARP(11152)/dV(3311) - JVRP(17712) = 1 -! JVRP(17713) = dARP(11153)/dV(3311) - JVRP(17713) = V(5250) -! JVRP(17714) = dARP(11153)/dV(5250) - JVRP(17714) = V(3311) -! JVRP(17715) = dARP(11154)/dV(1907) - JVRP(17715) = 1 -! JVRP(17716) = dARP(11155)/dV(1907) - JVRP(17716) = V(5250) -! JVRP(17717) = dARP(11155)/dV(5250) - JVRP(17717) = V(1907) -! JVRP(17718) = dARP(11156)/dV(1907) - JVRP(17718) = V(5250) -! JVRP(17719) = dARP(11156)/dV(5250) - JVRP(17719) = V(1907) -! JVRP(17720) = dARP(11157)/dV(2419) - JVRP(17720) = 1 -! JVRP(17721) = dARP(11158)/dV(2419) - JVRP(17721) = V(5250) -! JVRP(17722) = dARP(11158)/dV(5250) - JVRP(17722) = V(2419) -! JVRP(17723) = dARP(11159)/dV(1552) - JVRP(17723) = 1 -! JVRP(17724) = dARP(11160)/dV(346) - JVRP(17724) = V(5250) -! JVRP(17725) = dARP(11160)/dV(5250) - JVRP(17725) = V(346) -! JVRP(17726) = dARP(11161)/dV(4501) - JVRP(17726) = 1 -! JVRP(17727) = dARP(11162)/dV(4501) - JVRP(17727) = V(5256) -! JVRP(17728) = dARP(11162)/dV(5256) - JVRP(17728) = V(4501) -! JVRP(17729) = dARP(11163)/dV(4501) - JVRP(17729) = V(5250) -! JVRP(17730) = dARP(11163)/dV(5250) - JVRP(17730) = V(4501) -! JVRP(17731) = dARP(11164)/dV(329) - JVRP(17731) = V(5250) -! JVRP(17732) = dARP(11164)/dV(5250) - JVRP(17732) = V(329) -! JVRP(17733) = dARP(11165)/dV(975) - JVRP(17733) = 1 -! JVRP(17734) = dARP(11166)/dV(975) - JVRP(17734) = V(5250) -! JVRP(17735) = dARP(11166)/dV(5250) - JVRP(17735) = V(975) -! JVRP(17736) = dARP(11167)/dV(2669) - JVRP(17736) = 1 -! JVRP(17737) = dARP(11168)/dV(2669) - JVRP(17737) = V(5250) -! JVRP(17738) = dARP(11168)/dV(5250) - JVRP(17738) = V(2669) -! JVRP(17739) = dARP(11169)/dV(519) - JVRP(17739) = V(5250) -! JVRP(17740) = dARP(11169)/dV(5250) - JVRP(17740) = V(519) -! JVRP(17741) = dARP(11170)/dV(1477) - JVRP(17741) = 1 -! JVRP(17742) = dARP(11171)/dV(1477) - JVRP(17742) = V(5250) -! JVRP(17743) = dARP(11171)/dV(5250) - JVRP(17743) = V(1477) -! JVRP(17744) = dARP(11172)/dV(2778) - JVRP(17744) = 1 -! JVRP(17745) = dARP(11173)/dV(2778) - JVRP(17745) = V(5250) -! JVRP(17746) = dARP(11173)/dV(5250) - JVRP(17746) = V(2778) -! JVRP(17747) = dARP(11174)/dV(4573) - JVRP(17747) = V(5255) -! JVRP(17748) = dARP(11174)/dV(5255) - JVRP(17748) = V(4573) -! JVRP(17749) = dARP(11175)/dV(4573) - JVRP(17749) = V(5252) -! JVRP(17750) = dARP(11175)/dV(5252) - JVRP(17750) = V(4573) -! JVRP(17751) = dARP(11176)/dV(4573) - JVRP(17751) = V(5252) -! JVRP(17752) = dARP(11176)/dV(5252) - JVRP(17752) = V(4573) -! JVRP(17753) = dARP(11177)/dV(4573) - JVRP(17753) = V(5256) -! JVRP(17754) = dARP(11177)/dV(5256) - JVRP(17754) = V(4573) -! JVRP(17755) = dARP(11178)/dV(4573) - JVRP(17755) = 1 -! JVRP(17756) = dARP(11179)/dV(4573) - JVRP(17756) = 1 -! JVRP(17757) = dARP(11180)/dV(4573) - JVRP(17757) = 1 -! JVRP(17758) = dARP(11181)/dV(4566) - JVRP(17758) = V(5255) -! JVRP(17759) = dARP(11181)/dV(5255) - JVRP(17759) = V(4566) -! JVRP(17760) = dARP(11182)/dV(4566) - JVRP(17760) = V(5252) -! JVRP(17761) = dARP(11182)/dV(5252) - JVRP(17761) = V(4566) -! JVRP(17762) = dARP(11183)/dV(4566) - JVRP(17762) = V(5256) -! JVRP(17763) = dARP(11183)/dV(5256) - JVRP(17763) = V(4566) -! JVRP(17764) = dARP(11184)/dV(4566) - JVRP(17764) = 1 -! JVRP(17765) = dARP(11185)/dV(4566) - JVRP(17765) = 1 -! JVRP(17766) = dARP(11186)/dV(4566) - JVRP(17766) = 1 -! JVRP(17767) = dARP(11187)/dV(4584) - JVRP(17767) = V(5255) -! JVRP(17768) = dARP(11187)/dV(5255) - JVRP(17768) = V(4584) -! JVRP(17769) = dARP(11188)/dV(4584) - JVRP(17769) = V(5252) -! JVRP(17770) = dARP(11188)/dV(5252) - JVRP(17770) = V(4584) -! JVRP(17771) = dARP(11189)/dV(4584) - JVRP(17771) = V(5256) -! JVRP(17772) = dARP(11189)/dV(5256) - JVRP(17772) = V(4584) -! JVRP(17773) = dARP(11190)/dV(4584) - JVRP(17773) = 1 -! JVRP(17774) = dARP(11191)/dV(4584) - JVRP(17774) = 1 -! JVRP(17775) = dARP(11192)/dV(4584) - JVRP(17775) = 1 -! JVRP(17776) = dARP(11193)/dV(1937) - JVRP(17776) = 1 -! JVRP(17777) = dARP(11194)/dV(1937) - JVRP(17777) = 1 -! JVRP(17778) = dARP(11195)/dV(1937) - JVRP(17778) = V(5250) -! JVRP(17779) = dARP(11195)/dV(5250) - JVRP(17779) = V(1937) -! JVRP(17780) = dARP(11196)/dV(596) - JVRP(17780) = 1 -! JVRP(17781) = dARP(11197)/dV(2016) - JVRP(17781) = 1 -! JVRP(17782) = dARP(11198)/dV(2016) - JVRP(17782) = V(5250) -! JVRP(17783) = dARP(11198)/dV(5250) - JVRP(17783) = V(2016) -! JVRP(17784) = dARP(11199)/dV(534) - JVRP(17784) = 1 -! JVRP(17785) = dARP(11200)/dV(1145) - JVRP(17785) = 1 -! JVRP(17786) = dARP(11201)/dV(1145) - JVRP(17786) = V(5250) -! JVRP(17787) = dARP(11201)/dV(5250) - JVRP(17787) = V(1145) -! JVRP(17788) = dARP(11202)/dV(2282) - JVRP(17788) = 1 -! JVRP(17789) = dARP(11203)/dV(2282) - JVRP(17789) = V(5250) -! JVRP(17790) = dARP(11203)/dV(5250) - JVRP(17790) = V(2282) -! JVRP(17791) = dARP(11204)/dV(2697) - JVRP(17791) = 1 -! JVRP(17792) = dARP(11205)/dV(3126) - JVRP(17792) = 1 -! JVRP(17793) = dARP(11206)/dV(3126) - JVRP(17793) = V(5250) -! JVRP(17794) = dARP(11206)/dV(5250) - JVRP(17794) = V(3126) -! JVRP(17795) = dARP(11207)/dV(758) - JVRP(17795) = 1 -! JVRP(17796) = dARP(11208)/dV(758) - JVRP(17796) = V(5250) -! JVRP(17797) = dARP(11208)/dV(5250) - JVRP(17797) = V(758) -! JVRP(17798) = dARP(11209)/dV(3528) - JVRP(17798) = 1 -! JVRP(17799) = dARP(11210)/dV(3528) - JVRP(17799) = 1 -! JVRP(17800) = dARP(11211)/dV(3528) - JVRP(17800) = V(5250) -! JVRP(17801) = dARP(11211)/dV(5250) - JVRP(17801) = V(3528) -! JVRP(17802) = dARP(11212)/dV(3528) - JVRP(17802) = V(5250) -! JVRP(17803) = dARP(11212)/dV(5250) - JVRP(17803) = V(3528) -! JVRP(17804) = dARP(11213)/dV(734) - JVRP(17804) = 1 -! JVRP(17805) = dARP(11214)/dV(1826) - JVRP(17805) = 1 -! JVRP(17806) = dARP(11215)/dV(1826) - JVRP(17806) = V(5250) -! JVRP(17807) = dARP(11215)/dV(5250) - JVRP(17807) = V(1826) -! JVRP(17808) = dARP(11216)/dV(1557) - JVRP(17808) = 1 -! JVRP(17809) = dARP(11217)/dV(1557) - JVRP(17809) = V(5250) -! JVRP(17810) = dARP(11217)/dV(5250) - JVRP(17810) = V(1557) -! JVRP(17811) = dARP(11218)/dV(4802) - JVRP(17811) = V(5255) -! JVRP(17812) = dARP(11218)/dV(5255) - JVRP(17812) = V(4802) -! JVRP(17813) = dARP(11219)/dV(4802) - JVRP(17813) = V(5252) -! JVRP(17814) = dARP(11219)/dV(5252) - JVRP(17814) = V(4802) -! JVRP(17815) = dARP(11220)/dV(4802) - JVRP(17815) = V(5252) -! JVRP(17816) = dARP(11220)/dV(5252) - JVRP(17816) = V(4802) -! JVRP(17817) = dARP(11221)/dV(4802) - JVRP(17817) = V(5256) -! JVRP(17818) = dARP(11221)/dV(5256) - JVRP(17818) = V(4802) -! JVRP(17819) = dARP(11222)/dV(4802) - JVRP(17819) = 1 -! JVRP(17820) = dARP(11223)/dV(4802) - JVRP(17820) = 1 -! JVRP(17821) = dARP(11224)/dV(4309) - JVRP(17821) = V(5255) -! JVRP(17822) = dARP(11224)/dV(5255) - JVRP(17822) = V(4309) -! JVRP(17823) = dARP(11225)/dV(4309) - JVRP(17823) = V(5252) -! JVRP(17824) = dARP(11225)/dV(5252) - JVRP(17824) = V(4309) -! JVRP(17825) = dARP(11226)/dV(4309) - JVRP(17825) = V(5256) -! JVRP(17826) = dARP(11226)/dV(5256) - JVRP(17826) = V(4309) -! JVRP(17827) = dARP(11227)/dV(4309) - JVRP(17827) = 1 -! JVRP(17828) = dARP(11228)/dV(4309) - JVRP(17828) = 1 -! JVRP(17829) = dARP(11229)/dV(4811) - JVRP(17829) = V(5255) -! JVRP(17830) = dARP(11229)/dV(5255) - JVRP(17830) = V(4811) -! JVRP(17831) = dARP(11230)/dV(4811) - JVRP(17831) = V(5252) -! JVRP(17832) = dARP(11230)/dV(5252) - JVRP(17832) = V(4811) -! JVRP(17833) = dARP(11231)/dV(4811) - JVRP(17833) = V(5256) -! JVRP(17834) = dARP(11231)/dV(5256) - JVRP(17834) = V(4811) -! JVRP(17835) = dARP(11232)/dV(4811) - JVRP(17835) = 1 -! JVRP(17836) = dARP(11233)/dV(4811) - JVRP(17836) = 1 -! JVRP(17837) = dARP(11234)/dV(4811) - JVRP(17837) = 1 -! JVRP(17838) = dARP(11235)/dV(2095) - JVRP(17838) = 1 -! JVRP(17839) = dARP(11236)/dV(2095) - JVRP(17839) = V(5250) -! JVRP(17840) = dARP(11236)/dV(5250) - JVRP(17840) = V(2095) -! JVRP(17841) = dARP(11237)/dV(571) - JVRP(17841) = 1 -! JVRP(17842) = dARP(11238)/dV(2331) - JVRP(17842) = 1 -! JVRP(17843) = dARP(11239)/dV(2331) - JVRP(17843) = V(5250) -! JVRP(17844) = dARP(11239)/dV(5250) - JVRP(17844) = V(2331) -! JVRP(17845) = dARP(11240)/dV(2331) - JVRP(17845) = V(5250) -! JVRP(17846) = dARP(11240)/dV(5250) - JVRP(17846) = V(2331) -! JVRP(17847) = dARP(11241)/dV(1829) - JVRP(17847) = 1 -! JVRP(17848) = dARP(11242)/dV(1829) - JVRP(17848) = V(5250) -! JVRP(17849) = dARP(11242)/dV(5250) - JVRP(17849) = V(1829) -! JVRP(17850) = dARP(11243)/dV(200) - JVRP(17850) = 1 -! JVRP(17851) = dARP(11244)/dV(306) - JVRP(17851) = V(5250) -! JVRP(17852) = dARP(11244)/dV(5250) - JVRP(17852) = V(306) -! JVRP(17853) = dARP(11245)/dV(4537) - JVRP(17853) = 1 -! JVRP(17854) = dARP(11246)/dV(4537) - JVRP(17854) = V(5256) -! JVRP(17855) = dARP(11246)/dV(5256) - JVRP(17855) = V(4537) -! JVRP(17856) = dARP(11247)/dV(4537) - JVRP(17856) = V(5250) -! JVRP(17857) = dARP(11247)/dV(5250) - JVRP(17857) = V(4537) -! JVRP(17858) = dARP(11248)/dV(280) - JVRP(17858) = V(5250) -! JVRP(17859) = dARP(11248)/dV(5250) - JVRP(17859) = V(280) -! JVRP(17860) = dARP(11249)/dV(1196) - JVRP(17860) = 1 -! JVRP(17861) = dARP(11250)/dV(1196) - JVRP(17861) = V(5250) -! JVRP(17862) = dARP(11250)/dV(5250) - JVRP(17862) = V(1196) -! JVRP(17863) = dARP(11251)/dV(2496) - JVRP(17863) = 1 -! JVRP(17864) = dARP(11252)/dV(2496) - JVRP(17864) = V(5250) -! JVRP(17865) = dARP(11252)/dV(5250) - JVRP(17865) = V(2496) -! JVRP(17866) = dARP(11253)/dV(1136) - JVRP(17866) = 1 -! JVRP(17867) = dARP(11254)/dV(1136) - JVRP(17867) = V(5250) -! JVRP(17868) = dARP(11254)/dV(5250) - JVRP(17868) = V(1136) -! JVRP(17869) = dARP(11255)/dV(2185) - JVRP(17869) = 1 -! JVRP(17870) = dARP(11256)/dV(2185) - JVRP(17870) = V(5250) -! JVRP(17871) = dARP(11256)/dV(5250) - JVRP(17871) = V(2185) -! JVRP(17872) = dARP(11257)/dV(3009) - JVRP(17872) = 1 -! JVRP(17873) = dARP(11258)/dV(807) - JVRP(17873) = 1 -! JVRP(17874) = dARP(11259)/dV(807) - JVRP(17874) = V(5250) -! JVRP(17875) = dARP(11259)/dV(5250) - JVRP(17875) = V(807) -! JVRP(17876) = dARP(11260)/dV(3504) - JVRP(17876) = 1 -! JVRP(17877) = dARP(11261)/dV(3504) - JVRP(17877) = V(5250) -! JVRP(17878) = dARP(11261)/dV(5250) - JVRP(17878) = V(3504) -! JVRP(17879) = dARP(11262)/dV(4369) - JVRP(17879) = V(5255) -! JVRP(17880) = dARP(11262)/dV(5255) - JVRP(17880) = V(4369) -! JVRP(17881) = dARP(11263)/dV(4369) - JVRP(17881) = V(5252) -! JVRP(17882) = dARP(11263)/dV(5252) - JVRP(17882) = V(4369) -! JVRP(17883) = dARP(11264)/dV(4369) - JVRP(17883) = V(5256) -! JVRP(17884) = dARP(11264)/dV(5256) - JVRP(17884) = V(4369) -! JVRP(17885) = dARP(11265)/dV(4369) - JVRP(17885) = 1 -! JVRP(17886) = dARP(11266)/dV(4369) - JVRP(17886) = 1 -! JVRP(17887) = dARP(11267)/dV(4369) - JVRP(17887) = 1 -! JVRP(17888) = dARP(11268)/dV(2316) - JVRP(17888) = 1 -! JVRP(17889) = dARP(11269)/dV(2316) - JVRP(17889) = V(5250) -! JVRP(17890) = dARP(11269)/dV(5250) - JVRP(17890) = V(2316) -! JVRP(17891) = dARP(11270)/dV(539) - JVRP(17891) = 1 -! JVRP(17892) = dARP(11271)/dV(1446) - JVRP(17892) = 1 -! JVRP(17893) = dARP(11272)/dV(1446) - JVRP(17893) = V(5250) -! JVRP(17894) = dARP(11272)/dV(5250) - JVRP(17894) = V(1446) -! JVRP(17895) = dARP(11273)/dV(2124) - JVRP(17895) = 1 -! JVRP(17896) = dARP(11274)/dV(2124) - JVRP(17896) = V(5250) -! JVRP(17897) = dARP(11274)/dV(5250) - JVRP(17897) = V(2124) -! JVRP(17898) = dARP(11275)/dV(2642) - JVRP(17898) = 1 -! JVRP(17899) = dARP(11276)/dV(3522) - JVRP(17899) = 1 -! JVRP(17900) = dARP(11277)/dV(3522) - JVRP(17900) = V(5250) -! JVRP(17901) = dARP(11277)/dV(5250) - JVRP(17901) = V(3522) -! JVRP(17902) = dARP(11278)/dV(616) - JVRP(17902) = 1 -! JVRP(17903) = dARP(11279)/dV(616) - JVRP(17903) = V(5250) -! JVRP(17904) = dARP(11279)/dV(5250) - JVRP(17904) = V(616) -! JVRP(17905) = dARP(11280)/dV(4349) - JVRP(17905) = V(5255) -! JVRP(17906) = dARP(11280)/dV(5255) - JVRP(17906) = V(4349) -! JVRP(17907) = dARP(11281)/dV(4349) - JVRP(17907) = V(5252) -! JVRP(17908) = dARP(11281)/dV(5252) - JVRP(17908) = V(4349) -! JVRP(17909) = dARP(11282)/dV(4349) - JVRP(17909) = V(5256) -! JVRP(17910) = dARP(11282)/dV(5256) - JVRP(17910) = V(4349) -! JVRP(17911) = dARP(11283)/dV(4349) - JVRP(17911) = 1 -! JVRP(17912) = dARP(11284)/dV(4349) - JVRP(17912) = 1 -! JVRP(17913) = dARP(11285)/dV(4349) - JVRP(17913) = 1 -! JVRP(17914) = dARP(11286)/dV(2027) - JVRP(17914) = 1 -! JVRP(17915) = dARP(11287)/dV(2027) - JVRP(17915) = V(5250) -! JVRP(17916) = dARP(11287)/dV(5250) - JVRP(17916) = V(2027) -! JVRP(17917) = dARP(11288)/dV(791) - JVRP(17917) = 1 -! JVRP(17918) = dARP(11289)/dV(1115) - JVRP(17918) = 1 -! JVRP(17919) = dARP(11290)/dV(1115) - JVRP(17919) = V(5250) -! JVRP(17920) = dARP(11290)/dV(5250) - JVRP(17920) = V(1115) -! JVRP(17921) = dARP(11291)/dV(2760) - JVRP(17921) = 1 -! JVRP(17922) = dARP(11292)/dV(967) - JVRP(17922) = 1 -! JVRP(17923) = dARP(11293)/dV(967) - JVRP(17923) = V(5250) -! JVRP(17924) = dARP(11293)/dV(5250) - JVRP(17924) = V(967) -! JVRP(17925) = dARP(11294)/dV(2245) - JVRP(17925) = 1 -! JVRP(17926) = dARP(11295)/dV(2245) - JVRP(17926) = V(5250) -! JVRP(17927) = dARP(11295)/dV(5250) - JVRP(17927) = V(2245) -! JVRP(17928) = dARP(11296)/dV(2594) - JVRP(17928) = 1 -! JVRP(17929) = dARP(11297)/dV(3544) - JVRP(17929) = 1 -! JVRP(17930) = dARP(11298)/dV(3544) - JVRP(17930) = V(5250) -! JVRP(17931) = dARP(11298)/dV(5250) - JVRP(17931) = V(3544) -! JVRP(17932) = dARP(11299)/dV(671) - JVRP(17932) = 1 -! JVRP(17933) = dARP(11300)/dV(671) - JVRP(17933) = V(5250) -! JVRP(17934) = dARP(11300)/dV(5250) - JVRP(17934) = V(671) -! JVRP(17935) = dARP(11301)/dV(4389) - JVRP(17935) = V(5255) -! JVRP(17936) = dARP(11301)/dV(5255) - JVRP(17936) = V(4389) -! JVRP(17937) = dARP(11302)/dV(4389) - JVRP(17937) = V(5252) -! JVRP(17938) = dARP(11302)/dV(5252) - JVRP(17938) = V(4389) -! JVRP(17939) = dARP(11303)/dV(4389) - JVRP(17939) = V(5256) -! JVRP(17940) = dARP(11303)/dV(5256) - JVRP(17940) = V(4389) -! JVRP(17941) = dARP(11304)/dV(4389) - JVRP(17941) = 1 -! JVRP(17942) = dARP(11305)/dV(4389) - JVRP(17942) = 1 -! JVRP(17943) = dARP(11306)/dV(4389) - JVRP(17943) = 1 -! JVRP(17944) = dARP(11307)/dV(2298) - JVRP(17944) = 1 -! JVRP(17945) = dARP(11308)/dV(2298) - JVRP(17945) = V(5250) -! JVRP(17946) = dARP(11308)/dV(5250) - JVRP(17946) = V(2298) -! JVRP(17947) = dARP(11309)/dV(776) - JVRP(17947) = 1 -! JVRP(17948) = dARP(11310)/dV(1122) - JVRP(17948) = 1 -! JVRP(17949) = dARP(11311)/dV(1122) - JVRP(17949) = V(5250) -! JVRP(17950) = dARP(11311)/dV(5250) - JVRP(17950) = V(1122) -! JVRP(17951) = dARP(11312)/dV(2874) - JVRP(17951) = 1 -! JVRP(17952) = dARP(11313)/dV(1526) - JVRP(17952) = 1 -! JVRP(17953) = dARP(11314)/dV(1526) - JVRP(17953) = V(5250) -! JVRP(17954) = dARP(11314)/dV(5250) - JVRP(17954) = V(1526) -! JVRP(17955) = dARP(11315)/dV(2330) - JVRP(17955) = 1 -! JVRP(17956) = dARP(11316)/dV(2330) - JVRP(17956) = V(5250) -! JVRP(17957) = dARP(11316)/dV(5250) - JVRP(17957) = V(2330) -! JVRP(17958) = dARP(11317)/dV(2638) - JVRP(17958) = 1 -! JVRP(17959) = dARP(11318)/dV(3493) - JVRP(17959) = 1 -! JVRP(17960) = dARP(11319)/dV(3493) - JVRP(17960) = V(5250) -! JVRP(17961) = dARP(11319)/dV(5250) - JVRP(17961) = V(3493) -! JVRP(17962) = dARP(11320)/dV(804) - JVRP(17962) = 1 -! JVRP(17963) = dARP(11321)/dV(804) - JVRP(17963) = V(5250) -! JVRP(17964) = dARP(11321)/dV(5250) - JVRP(17964) = V(804) -! JVRP(17965) = dARP(11322)/dV(4361) - JVRP(17965) = V(5255) -! JVRP(17966) = dARP(11322)/dV(5255) - JVRP(17966) = V(4361) -! JVRP(17967) = dARP(11323)/dV(4361) - JVRP(17967) = V(5252) -! JVRP(17968) = dARP(11323)/dV(5252) - JVRP(17968) = V(4361) -! JVRP(17969) = dARP(11324)/dV(4361) - JVRP(17969) = V(5256) -! JVRP(17970) = dARP(11324)/dV(5256) - JVRP(17970) = V(4361) -! JVRP(17971) = dARP(11325)/dV(4361) - JVRP(17971) = 1 -! JVRP(17972) = dARP(11326)/dV(4361) - JVRP(17972) = 1 -! JVRP(17973) = dARP(11327)/dV(4361) - JVRP(17973) = 1 -! JVRP(17974) = dARP(11328)/dV(2411) - JVRP(17974) = 1 -! JVRP(17975) = dARP(11329)/dV(2411) - JVRP(17975) = V(5250) -! JVRP(17976) = dARP(11329)/dV(5250) - JVRP(17976) = V(2411) -! JVRP(17977) = dARP(11330)/dV(528) - JVRP(17977) = 1 -! JVRP(17978) = dARP(11331)/dV(1398) - JVRP(17978) = 1 -! JVRP(17979) = dARP(11332)/dV(1398) - JVRP(17979) = V(5250) -! JVRP(17980) = dARP(11332)/dV(5250) - JVRP(17980) = V(1398) -! JVRP(17981) = dARP(11333)/dV(2676) - JVRP(17981) = 1 -! JVRP(17982) = dARP(11334)/dV(1543) - JVRP(17982) = 1 -! JVRP(17983) = dARP(11335)/dV(1543) - JVRP(17983) = V(5250) -! JVRP(17984) = dARP(11335)/dV(5250) - JVRP(17984) = V(1543) -! JVRP(17985) = dARP(11336)/dV(2271) - JVRP(17985) = 1 -! JVRP(17986) = dARP(11337)/dV(2271) - JVRP(17986) = V(5250) -! JVRP(17987) = dARP(11337)/dV(5250) - JVRP(17987) = V(2271) -! JVRP(17988) = dARP(11338)/dV(2562) - JVRP(17988) = 1 -! JVRP(17989) = dARP(11339)/dV(3548) - JVRP(17989) = 1 -! JVRP(17990) = dARP(11340)/dV(3548) - JVRP(17990) = V(5250) -! JVRP(17991) = dARP(11340)/dV(5250) - JVRP(17991) = V(3548) -! JVRP(17992) = dARP(11341)/dV(762) - JVRP(17992) = 1 -! JVRP(17993) = dARP(11342)/dV(762) - JVRP(17993) = V(5250) -! JVRP(17994) = dARP(11342)/dV(5250) - JVRP(17994) = V(762) -! JVRP(17995) = dARP(11343)/dV(4850) - JVRP(17995) = V(5255) -! JVRP(17996) = dARP(11343)/dV(5255) - JVRP(17996) = V(4850) -! JVRP(17997) = dARP(11344)/dV(4850) - JVRP(17997) = V(5255) -! JVRP(17998) = dARP(11344)/dV(5255) - JVRP(17998) = V(4850) -! JVRP(17999) = dARP(11345)/dV(4850) - JVRP(17999) = V(5255) -! JVRP(18000) = dARP(11345)/dV(5255) - JVRP(18000) = V(4850) -! JVRP(18001) = dARP(11346)/dV(4850) - JVRP(18001) = V(5252) -! JVRP(18002) = dARP(11346)/dV(5252) - JVRP(18002) = V(4850) -! JVRP(18003) = dARP(11347)/dV(4850) - JVRP(18003) = V(5253) -! JVRP(18004) = dARP(11347)/dV(5253) - JVRP(18004) = V(4850) -! JVRP(18005) = dARP(11348)/dV(4850) - JVRP(18005) = V(5256) -! JVRP(18006) = dARP(11348)/dV(5256) - JVRP(18006) = V(4850) -! JVRP(18007) = dARP(11349)/dV(4850) - JVRP(18007) = 1 -! JVRP(18008) = dARP(11350)/dV(4850) - JVRP(18008) = 1 -! JVRP(18009) = dARP(11351)/dV(4355) - JVRP(18009) = V(5255) -! JVRP(18010) = dARP(11351)/dV(5255) - JVRP(18010) = V(4355) -! JVRP(18011) = dARP(11352)/dV(4355) - JVRP(18011) = V(5252) -! JVRP(18012) = dARP(11352)/dV(5252) - JVRP(18012) = V(4355) -! JVRP(18013) = dARP(11353)/dV(4355) - JVRP(18013) = V(5256) -! JVRP(18014) = dARP(11353)/dV(5256) - JVRP(18014) = V(4355) -! JVRP(18015) = dARP(11354)/dV(4355) - JVRP(18015) = 1 -! JVRP(18016) = dARP(11355)/dV(4355) - JVRP(18016) = 1 -! JVRP(18017) = dARP(11356)/dV(4355) - JVRP(18017) = 1 -! JVRP(18018) = dARP(11357)/dV(2205) - JVRP(18018) = 1 -! JVRP(18019) = dARP(11358)/dV(2205) - JVRP(18019) = V(5250) -! JVRP(18020) = dARP(11358)/dV(5250) - JVRP(18020) = V(2205) -! JVRP(18021) = dARP(11359)/dV(574) - JVRP(18021) = 1 -! JVRP(18022) = dARP(11360)/dV(1478) - JVRP(18022) = V(5250) -! JVRP(18023) = dARP(11360)/dV(5250) - JVRP(18023) = V(1478) -! JVRP(18024) = dARP(11361)/dV(1478) - JVRP(18024) = 1 -! JVRP(18025) = dARP(11362)/dV(3015) - JVRP(18025) = V(5250) -! JVRP(18026) = dARP(11362)/dV(5250) - JVRP(18026) = V(3015) -! JVRP(18027) = dARP(11363)/dV(3015) - JVRP(18027) = 1 -! JVRP(18028) = dARP(11364)/dV(1998) - JVRP(18028) = 1 -! JVRP(18029) = dARP(11365)/dV(408) - JVRP(18029) = V(5250) -! JVRP(18030) = dARP(11365)/dV(5250) - JVRP(18030) = V(408) -! JVRP(18031) = dARP(11366)/dV(1947) - JVRP(18031) = V(5250) -! JVRP(18032) = dARP(11366)/dV(5250) - JVRP(18032) = V(1947) -! JVRP(18033) = dARP(11367)/dV(1947) - JVRP(18033) = 1 -! JVRP(18034) = dARP(11368)/dV(777) - JVRP(18034) = 1 -! JVRP(18035) = dARP(11369)/dV(4651) - JVRP(18035) = V(5256) -! JVRP(18036) = dARP(11369)/dV(5256) - JVRP(18036) = V(4651) -! JVRP(18037) = dARP(11370)/dV(4651) - JVRP(18037) = V(5250) -! JVRP(18038) = dARP(11370)/dV(5250) - JVRP(18038) = V(4651) -! JVRP(18039) = dARP(11371)/dV(4651) - JVRP(18039) = 1 -! JVRP(18040) = dARP(11372)/dV(331) - JVRP(18040) = V(5250) -! JVRP(18041) = dARP(11372)/dV(5250) - JVRP(18041) = V(331) -! JVRP(18042) = dARP(11373)/dV(110) - JVRP(18042) = V(5250) -! JVRP(18043) = dARP(11373)/dV(5250) - JVRP(18043) = V(110) -! JVRP(18044) = dARP(11374)/dV(5059) - JVRP(18044) = V(5255) -! JVRP(18045) = dARP(11374)/dV(5255) - JVRP(18045) = V(5059) -! JVRP(18046) = dARP(11375)/dV(5059) - JVRP(18046) = V(5252) -! JVRP(18047) = dARP(11375)/dV(5252) - JVRP(18047) = V(5059) -! JVRP(18048) = dARP(11376)/dV(5059) - JVRP(18048) = V(5256) -! JVRP(18049) = dARP(11376)/dV(5256) - JVRP(18049) = V(5059) -! JVRP(18050) = dARP(11377)/dV(5059) - JVRP(18050) = 1 -! JVRP(18051) = dARP(11378)/dV(5059) - JVRP(18051) = 1 -! JVRP(18052) = dARP(11379)/dV(5059) - JVRP(18052) = 1 -! JVRP(18053) = dARP(11380)/dV(4467) - JVRP(18053) = V(5255) -! JVRP(18054) = dARP(11380)/dV(5255) - JVRP(18054) = V(4467) -! JVRP(18055) = dARP(11381)/dV(4467) - JVRP(18055) = V(5252) -! JVRP(18056) = dARP(11381)/dV(5252) - JVRP(18056) = V(4467) -! JVRP(18057) = dARP(11382)/dV(4467) - JVRP(18057) = V(5256) -! JVRP(18058) = dARP(11382)/dV(5256) - JVRP(18058) = V(4467) -! JVRP(18059) = dARP(11383)/dV(4467) - JVRP(18059) = 1 -! JVRP(18060) = dARP(11384)/dV(4271) - JVRP(18060) = V(5255) -! JVRP(18061) = dARP(11384)/dV(5255) - JVRP(18061) = V(4271) -! JVRP(18062) = dARP(11385)/dV(4271) - JVRP(18062) = V(5252) -! JVRP(18063) = dARP(11385)/dV(5252) - JVRP(18063) = V(4271) -! JVRP(18064) = dARP(11386)/dV(4271) - JVRP(18064) = V(5256) -! JVRP(18065) = dARP(11386)/dV(5256) - JVRP(18065) = V(4271) -! JVRP(18066) = dARP(11387)/dV(4271) - JVRP(18066) = 1 -! JVRP(18067) = dARP(11388)/dV(1427) - JVRP(18067) = V(5250) -! JVRP(18068) = dARP(11388)/dV(5250) - JVRP(18068) = V(1427) -! JVRP(18069) = dARP(11389)/dV(1427) - JVRP(18069) = 1 -! JVRP(18070) = dARP(11390)/dV(979) - JVRP(18070) = V(5250) -! JVRP(18071) = dARP(11390)/dV(5250) - JVRP(18071) = V(979) -! JVRP(18072) = dARP(11391)/dV(979) - JVRP(18072) = 1 -! JVRP(18073) = dARP(11392)/dV(2535) - JVRP(18073) = 1 -! JVRP(18074) = dARP(11393)/dV(1105) - JVRP(18074) = V(5250) -! JVRP(18075) = dARP(11393)/dV(5250) - JVRP(18075) = V(1105) -! JVRP(18076) = dARP(11394)/dV(1105) - JVRP(18076) = 1 -! JVRP(18077) = dARP(11395)/dV(2731) - JVRP(18077) = 1 -! JVRP(18078) = dARP(11396)/dV(1943) - JVRP(18078) = V(5250) -! JVRP(18079) = dARP(11396)/dV(5250) - JVRP(18079) = V(1943) -! JVRP(18080) = dARP(11397)/dV(1943) - JVRP(18080) = 1 -! JVRP(18081) = dARP(11398)/dV(535) - JVRP(18081) = 1 -! JVRP(18082) = dARP(11399)/dV(491) - JVRP(18082) = V(5250) -! JVRP(18083) = dARP(11399)/dV(5250) - JVRP(18083) = V(491) -! JVRP(18084) = dARP(11400)/dV(491) - JVRP(18084) = 1 -! JVRP(18085) = dARP(11401)/dV(130) - JVRP(18085) = 1 -! JVRP(18086) = dARP(11402)/dV(490) - JVRP(18086) = V(5250) -! JVRP(18087) = dARP(11402)/dV(5250) - JVRP(18087) = V(490) -! JVRP(18088) = dARP(11403)/dV(212) - JVRP(18088) = V(5250) -! JVRP(18089) = dARP(11403)/dV(5250) - JVRP(18089) = V(212) -! JVRP(18090) = dARP(11404)/dV(2046) - JVRP(18090) = V(5250) -! JVRP(18091) = dARP(11404)/dV(5250) - JVRP(18091) = V(2046) -! JVRP(18092) = dARP(11405)/dV(2046) - JVRP(18092) = 1 -! JVRP(18093) = dARP(11406)/dV(816) - JVRP(18093) = 1 -! JVRP(18094) = dARP(11407)/dV(518) - JVRP(18094) = V(5250) -! JVRP(18095) = dARP(11407)/dV(5250) - JVRP(18095) = V(518) -! JVRP(18096) = dARP(11408)/dV(518) - JVRP(18096) = 1 -! JVRP(18097) = dARP(11409)/dV(14) - JVRP(18097) = 1 -! JVRP(18098) = dARP(11410)/dV(455) - JVRP(18098) = V(5250) -! JVRP(18099) = dARP(11410)/dV(5250) - JVRP(18099) = V(455) -! JVRP(18100) = dARP(11411)/dV(372) - JVRP(18100) = V(5250) -! JVRP(18101) = dARP(11411)/dV(5250) - JVRP(18101) = V(372) -! JVRP(18102) = dARP(11412)/dV(4458) - JVRP(18102) = V(5255) -! JVRP(18103) = dARP(11412)/dV(5255) - JVRP(18103) = V(4458) -! JVRP(18104) = dARP(11413)/dV(4458) - JVRP(18104) = V(5252) -! JVRP(18105) = dARP(11413)/dV(5252) - JVRP(18105) = V(4458) -! JVRP(18106) = dARP(11414)/dV(4458) - JVRP(18106) = V(5256) -! JVRP(18107) = dARP(11414)/dV(5256) - JVRP(18107) = V(4458) -! JVRP(18108) = dARP(11415)/dV(4458) - JVRP(18108) = 1 -! JVRP(18109) = dARP(11416)/dV(4306) - JVRP(18109) = V(5255) -! JVRP(18110) = dARP(11416)/dV(5255) - JVRP(18110) = V(4306) -! JVRP(18111) = dARP(11417)/dV(4306) - JVRP(18111) = V(5252) -! JVRP(18112) = dARP(11417)/dV(5252) - JVRP(18112) = V(4306) -! JVRP(18113) = dARP(11418)/dV(4306) - JVRP(18113) = V(5256) -! JVRP(18114) = dARP(11418)/dV(5256) - JVRP(18114) = V(4306) -! JVRP(18115) = dARP(11419)/dV(4306) - JVRP(18115) = 1 -! JVRP(18116) = dARP(11420)/dV(1230) - JVRP(18116) = V(5250) -! JVRP(18117) = dARP(11420)/dV(5250) - JVRP(18117) = V(1230) -! JVRP(18118) = dARP(11421)/dV(1230) - JVRP(18118) = 1 -! JVRP(18119) = dARP(11422)/dV(1096) - JVRP(18119) = V(5250) -! JVRP(18120) = dARP(11422)/dV(5250) - JVRP(18120) = V(1096) -! JVRP(18121) = dARP(11423)/dV(1096) - JVRP(18121) = 1 -! JVRP(18122) = dARP(11424)/dV(2536) - JVRP(18122) = 1 -! JVRP(18123) = dARP(11425)/dV(1322) - JVRP(18123) = V(5250) -! JVRP(18124) = dARP(11425)/dV(5250) - JVRP(18124) = V(1322) -! JVRP(18125) = dARP(11426)/dV(1322) - JVRP(18125) = 1 -! JVRP(18126) = dARP(11427)/dV(3001) - JVRP(18126) = 1 -! JVRP(18127) = dARP(11428)/dV(3484) - JVRP(18127) = V(5256) -! JVRP(18128) = dARP(11428)/dV(5256) - JVRP(18128) = V(3484) -! JVRP(18129) = dARP(11429)/dV(3484) - JVRP(18129) = V(5250) -! JVRP(18130) = dARP(11429)/dV(5250) - JVRP(18130) = V(3484) -! JVRP(18131) = dARP(11430)/dV(3484) - JVRP(18131) = 1 -! JVRP(18132) = dARP(11431)/dV(5018) - JVRP(18132) = V(5256) -! JVRP(18133) = dARP(11431)/dV(5256) - JVRP(18133) = V(5018) -! JVRP(18134) = dARP(11432)/dV(5018) - JVRP(18134) = V(5250) -! JVRP(18135) = dARP(11432)/dV(5250) - JVRP(18135) = V(5018) -! JVRP(18136) = dARP(11433)/dV(5018) - JVRP(18136) = 1 -! JVRP(18137) = dARP(11434)/dV(2107) - JVRP(18137) = V(5250) -! JVRP(18138) = dARP(11434)/dV(5250) - JVRP(18138) = V(2107) -! JVRP(18139) = dARP(11435)/dV(2107) - JVRP(18139) = 1 -! JVRP(18140) = dARP(11436)/dV(693) - JVRP(18140) = 1 -! JVRP(18141) = dARP(11437)/dV(56) - JVRP(18141) = V(5250) -! JVRP(18142) = dARP(11437)/dV(5250) - JVRP(18142) = V(56) -! JVRP(18143) = dARP(11438)/dV(3535) - JVRP(18143) = V(5250) -! JVRP(18144) = dARP(11438)/dV(5250) - JVRP(18144) = V(3535) -! JVRP(18145) = dARP(11439)/dV(3535) - JVRP(18145) = 1 -! JVRP(18146) = dARP(11440)/dV(4188) - JVRP(18146) = V(5255) -! JVRP(18147) = dARP(11440)/dV(5255) - JVRP(18147) = V(4188) -! JVRP(18148) = dARP(11441)/dV(4188) - JVRP(18148) = V(5252) -! JVRP(18149) = dARP(11441)/dV(5252) - JVRP(18149) = V(4188) -! JVRP(18150) = dARP(11442)/dV(4188) - JVRP(18150) = V(5256) -! JVRP(18151) = dARP(11442)/dV(5256) - JVRP(18151) = V(4188) -! JVRP(18152) = dARP(11443)/dV(4188) - JVRP(18152) = 1 -! JVRP(18153) = dARP(11444)/dV(4415) - JVRP(18153) = V(5255) -! JVRP(18154) = dARP(11444)/dV(5255) - JVRP(18154) = V(4415) -! JVRP(18155) = dARP(11445)/dV(4415) - JVRP(18155) = V(5252) -! JVRP(18156) = dARP(11445)/dV(5252) - JVRP(18156) = V(4415) -! JVRP(18157) = dARP(11446)/dV(4415) - JVRP(18157) = V(5256) -! JVRP(18158) = dARP(11446)/dV(5256) - JVRP(18158) = V(4415) -! JVRP(18159) = dARP(11447)/dV(4415) - JVRP(18159) = 1 -! JVRP(18160) = dARP(11448)/dV(4298) - JVRP(18160) = V(5255) -! JVRP(18161) = dARP(11448)/dV(5255) - JVRP(18161) = V(4298) -! JVRP(18162) = dARP(11449)/dV(4298) - JVRP(18162) = V(5252) -! JVRP(18163) = dARP(11449)/dV(5252) - JVRP(18163) = V(4298) -! JVRP(18164) = dARP(11450)/dV(4298) - JVRP(18164) = V(5256) -! JVRP(18165) = dARP(11450)/dV(5256) - JVRP(18165) = V(4298) -! JVRP(18166) = dARP(11451)/dV(4298) - JVRP(18166) = 1 -! JVRP(18167) = dARP(11452)/dV(978) - JVRP(18167) = V(5250) -! JVRP(18168) = dARP(11452)/dV(5250) - JVRP(18168) = V(978) -! JVRP(18169) = dARP(11453)/dV(978) - JVRP(18169) = 1 -! JVRP(18170) = dARP(11454)/dV(2093) - JVRP(18170) = V(5250) -! JVRP(18171) = dARP(11454)/dV(5250) - JVRP(18171) = V(2093) -! JVRP(18172) = dARP(11455)/dV(2093) - JVRP(18172) = 1 -! JVRP(18173) = dARP(11456)/dV(809) - JVRP(18173) = 1 -! JVRP(18174) = dARP(11457)/dV(398) - JVRP(18174) = V(5250) -! JVRP(18175) = dARP(11457)/dV(5250) - JVRP(18175) = V(398) -! JVRP(18176) = dARP(11458)/dV(398) - JVRP(18176) = 1 -! JVRP(18177) = dARP(11459)/dV(120) - JVRP(18177) = 1 -! JVRP(18178) = dARP(11460)/dV(397) - JVRP(18178) = V(5250) -! JVRP(18179) = dARP(11460)/dV(5250) - JVRP(18179) = V(397) -! JVRP(18180) = dARP(11461)/dV(299) - JVRP(18180) = V(5250) -! JVRP(18181) = dARP(11461)/dV(5250) - JVRP(18181) = V(299) -! JVRP(18182) = dARP(11462)/dV(1104) - JVRP(18182) = V(5250) -! JVRP(18183) = dARP(11462)/dV(5250) - JVRP(18183) = V(1104) -! JVRP(18184) = dARP(11463)/dV(1104) - JVRP(18184) = 1 -! JVRP(18185) = dARP(11464)/dV(2918) - JVRP(18185) = 1 -! JVRP(18186) = dARP(11465)/dV(917) - JVRP(18186) = V(5250) -! JVRP(18187) = dARP(11465)/dV(5250) - JVRP(18187) = V(917) -! JVRP(18188) = dARP(11466)/dV(917) - JVRP(18188) = 1 -! JVRP(18189) = dARP(11467)/dV(2641) - JVRP(18189) = 1 -! JVRP(18190) = dARP(11468)/dV(542) - JVRP(18190) = V(5250) -! JVRP(18191) = dARP(11468)/dV(5250) - JVRP(18191) = V(542) -! JVRP(18192) = dARP(11469)/dV(542) - JVRP(18192) = 1 -! JVRP(18193) = dARP(11470)/dV(3914) - JVRP(18193) = V(5256) -! JVRP(18194) = dARP(11470)/dV(5256) - JVRP(18194) = V(3914) -! JVRP(18195) = dARP(11471)/dV(3914) - JVRP(18195) = V(5250) -! JVRP(18196) = dARP(11471)/dV(5250) - JVRP(18196) = V(3914) -! JVRP(18197) = dARP(11472)/dV(3914) - JVRP(18197) = 1 -! JVRP(18198) = dARP(11473)/dV(4742) - JVRP(18198) = V(5255) -! JVRP(18199) = dARP(11473)/dV(5255) - JVRP(18199) = V(4742) -! JVRP(18200) = dARP(11474)/dV(4742) - JVRP(18200) = V(5252) -! JVRP(18201) = dARP(11474)/dV(5252) - JVRP(18201) = V(4742) -! JVRP(18202) = dARP(11475)/dV(4742) - JVRP(18202) = V(5256) -! JVRP(18203) = dARP(11475)/dV(5256) - JVRP(18203) = V(4742) -! JVRP(18204) = dARP(11476)/dV(4742) - JVRP(18204) = 1 -! JVRP(18205) = dARP(11477)/dV(3911) - JVRP(18205) = V(5256) -! JVRP(18206) = dARP(11477)/dV(5256) - JVRP(18206) = V(3911) -! JVRP(18207) = dARP(11478)/dV(3911) - JVRP(18207) = V(5250) -! JVRP(18208) = dARP(11478)/dV(5250) - JVRP(18208) = V(3911) -! JVRP(18209) = dARP(11479)/dV(3911) - JVRP(18209) = 1 -! JVRP(18210) = dARP(11480)/dV(4904) - JVRP(18210) = V(5255) -! JVRP(18211) = dARP(11480)/dV(5255) - JVRP(18211) = V(4904) -! JVRP(18212) = dARP(11481)/dV(4904) - JVRP(18212) = V(5252) -! JVRP(18213) = dARP(11481)/dV(5252) - JVRP(18213) = V(4904) -! JVRP(18214) = dARP(11482)/dV(4904) - JVRP(18214) = V(5256) -! JVRP(18215) = dARP(11482)/dV(5256) - JVRP(18215) = V(4904) -! JVRP(18216) = dARP(11483)/dV(4904) - JVRP(18216) = 1 -! JVRP(18217) = dARP(11484)/dV(4904) - JVRP(18217) = 1 -! JVRP(18218) = dARP(11485)/dV(4498) - JVRP(18218) = V(5255) -! JVRP(18219) = dARP(11485)/dV(5255) - JVRP(18219) = V(4498) -! JVRP(18220) = dARP(11486)/dV(4498) - JVRP(18220) = V(5252) -! JVRP(18221) = dARP(11486)/dV(5252) - JVRP(18221) = V(4498) -! JVRP(18222) = dARP(11487)/dV(4498) - JVRP(18222) = V(5256) -! JVRP(18223) = dARP(11487)/dV(5256) - JVRP(18223) = V(4498) -! JVRP(18224) = dARP(11488)/dV(4498) - JVRP(18224) = 1 -! JVRP(18225) = dARP(11489)/dV(4305) - JVRP(18225) = V(5255) -! JVRP(18226) = dARP(11489)/dV(5255) - JVRP(18226) = V(4305) -! JVRP(18227) = dARP(11490)/dV(4305) - JVRP(18227) = V(5252) -! JVRP(18228) = dARP(11490)/dV(5252) - JVRP(18228) = V(4305) -! JVRP(18229) = dARP(11491)/dV(4305) - JVRP(18229) = V(5256) -! JVRP(18230) = dARP(11491)/dV(5256) - JVRP(18230) = V(4305) -! JVRP(18231) = dARP(11492)/dV(4305) - JVRP(18231) = 1 -! JVRP(18232) = dARP(11493)/dV(892) - JVRP(18232) = V(5250) -! JVRP(18233) = dARP(11493)/dV(5250) - JVRP(18233) = V(892) -! JVRP(18234) = dARP(11494)/dV(892) - JVRP(18234) = 1 -! JVRP(18235) = dARP(11495)/dV(1979) - JVRP(18235) = V(5250) -! JVRP(18236) = dARP(11495)/dV(5250) - JVRP(18236) = V(1979) -! JVRP(18237) = dARP(11496)/dV(1979) - JVRP(18237) = 1 -! JVRP(18238) = dARP(11497)/dV(753) - JVRP(18238) = 1 -! JVRP(18239) = dARP(11498)/dV(963) - JVRP(18239) = V(5250) -! JVRP(18240) = dARP(11498)/dV(5250) - JVRP(18240) = V(963) -! JVRP(18241) = dARP(11499)/dV(963) - JVRP(18241) = 1 -! JVRP(18242) = dARP(11500)/dV(82) - JVRP(18242) = 1 -! JVRP(18243) = dARP(11501)/dV(33) - JVRP(18243) = V(5250) -! JVRP(18244) = dARP(11501)/dV(5250) - JVRP(18244) = V(33) -! JVRP(18245) = dARP(11502)/dV(1255) - JVRP(18245) = V(5250) -! JVRP(18246) = dARP(11502)/dV(5250) - JVRP(18246) = V(1255) -! JVRP(18247) = dARP(11503)/dV(1255) - JVRP(18247) = 1 -! JVRP(18248) = dARP(11504)/dV(2668) - JVRP(18248) = 1 -! JVRP(18249) = dARP(11505)/dV(1379) - JVRP(18249) = V(5250) -! JVRP(18250) = dARP(11505)/dV(5250) - JVRP(18250) = V(1379) -! JVRP(18251) = dARP(11506)/dV(1379) - JVRP(18251) = 1 -! JVRP(18252) = dARP(11507)/dV(2963) - JVRP(18252) = 1 -! JVRP(18253) = dARP(11508)/dV(4101) - JVRP(18253) = V(5255) -! JVRP(18254) = dARP(11508)/dV(5255) - JVRP(18254) = V(4101) -! JVRP(18255) = dARP(11509)/dV(4101) - JVRP(18255) = V(5252) -! JVRP(18256) = dARP(11509)/dV(5252) - JVRP(18256) = V(4101) -! JVRP(18257) = dARP(11510)/dV(4101) - JVRP(18257) = V(5256) -! JVRP(18258) = dARP(11510)/dV(5256) - JVRP(18258) = V(4101) -! JVRP(18259) = dARP(11511)/dV(4101) - JVRP(18259) = 1 -! JVRP(18260) = dARP(11512)/dV(3281) - JVRP(18260) = 1 -! JVRP(18261) = dARP(11513)/dV(4506) - JVRP(18261) = V(5255) -! JVRP(18262) = dARP(11513)/dV(5255) - JVRP(18262) = V(4506) -! JVRP(18263) = dARP(11514)/dV(4506) - JVRP(18263) = V(5252) -! JVRP(18264) = dARP(11514)/dV(5252) - JVRP(18264) = V(4506) -! JVRP(18265) = dARP(11515)/dV(4506) - JVRP(18265) = V(5256) -! JVRP(18266) = dARP(11515)/dV(5256) - JVRP(18266) = V(4506) -! JVRP(18267) = dARP(11516)/dV(4506) - JVRP(18267) = 1 -! JVRP(18268) = dARP(11517)/dV(4204) - JVRP(18268) = V(5255) -! JVRP(18269) = dARP(11517)/dV(5255) - JVRP(18269) = V(4204) -! JVRP(18270) = dARP(11518)/dV(4204) - JVRP(18270) = V(5252) -! JVRP(18271) = dARP(11518)/dV(5252) - JVRP(18271) = V(4204) -! JVRP(18272) = dARP(11519)/dV(4204) - JVRP(18272) = V(5256) -! JVRP(18273) = dARP(11519)/dV(5256) - JVRP(18273) = V(4204) -! JVRP(18274) = dARP(11520)/dV(4204) - JVRP(18274) = 1 -! JVRP(18275) = dARP(11521)/dV(1366) - JVRP(18275) = V(5250) -! JVRP(18276) = dARP(11521)/dV(5250) - JVRP(18276) = V(1366) -! JVRP(18277) = dARP(11522)/dV(1366) - JVRP(18277) = 1 -! JVRP(18278) = dARP(11523)/dV(2091) - JVRP(18278) = V(5250) -! JVRP(18279) = dARP(11523)/dV(5250) - JVRP(18279) = V(2091) -! JVRP(18280) = dARP(11524)/dV(2091) - JVRP(18280) = 1 -! JVRP(18281) = dARP(11525)/dV(555) - JVRP(18281) = 1 -! JVRP(18282) = dARP(11526)/dV(1497) - JVRP(18282) = V(5250) -! JVRP(18283) = dARP(11526)/dV(5250) - JVRP(18283) = V(1497) -! JVRP(18284) = dARP(11527)/dV(1497) - JVRP(18284) = 1 -! JVRP(18285) = dARP(11528)/dV(65) - JVRP(18285) = 1 -! JVRP(18286) = dARP(11529)/dV(103) - JVRP(18286) = V(5250) -! JVRP(18287) = dARP(11529)/dV(5250) - JVRP(18287) = V(103) -! JVRP(18288) = dARP(11530)/dV(1144) - JVRP(18288) = V(5250) -! JVRP(18289) = dARP(11530)/dV(5250) - JVRP(18289) = V(1144) -! JVRP(18290) = dARP(11531)/dV(1144) - JVRP(18290) = 1 -! JVRP(18291) = dARP(11532)/dV(2682) - JVRP(18291) = 1 -! JVRP(18292) = dARP(11533)/dV(1190) - JVRP(18292) = V(5250) -! JVRP(18293) = dARP(11533)/dV(5250) - JVRP(18293) = V(1190) -! JVRP(18294) = dARP(11534)/dV(1190) - JVRP(18294) = 1 -! JVRP(18295) = dARP(11535)/dV(2741) - JVRP(18295) = 1 -! JVRP(18296) = dARP(11536)/dV(4464) - JVRP(18296) = V(5255) -! JVRP(18297) = dARP(11536)/dV(5255) - JVRP(18297) = V(4464) -! JVRP(18298) = dARP(11537)/dV(4464) - JVRP(18298) = V(5252) -! JVRP(18299) = dARP(11537)/dV(5252) - JVRP(18299) = V(4464) -! JVRP(18300) = dARP(11538)/dV(4464) - JVRP(18300) = V(5256) -! JVRP(18301) = dARP(11538)/dV(5256) - JVRP(18301) = V(4464) -! JVRP(18302) = dARP(11539)/dV(4464) - JVRP(18302) = 1 -! JVRP(18303) = dARP(11540)/dV(4262) - JVRP(18303) = V(5255) -! JVRP(18304) = dARP(11540)/dV(5255) - JVRP(18304) = V(4262) -! JVRP(18305) = dARP(11541)/dV(4262) - JVRP(18305) = V(5252) -! JVRP(18306) = dARP(11541)/dV(5252) - JVRP(18306) = V(4262) -! JVRP(18307) = dARP(11542)/dV(4262) - JVRP(18307) = V(5256) -! JVRP(18308) = dARP(11542)/dV(5256) - JVRP(18308) = V(4262) -! JVRP(18309) = dARP(11543)/dV(4262) - JVRP(18309) = 1 -! JVRP(18310) = dARP(11544)/dV(1221) - JVRP(18310) = V(5250) -! JVRP(18311) = dARP(11544)/dV(5250) - JVRP(18311) = V(1221) -! JVRP(18312) = dARP(11545)/dV(1221) - JVRP(18312) = 1 -! JVRP(18313) = dARP(11546)/dV(2351) - JVRP(18313) = V(5250) -! JVRP(18314) = dARP(11546)/dV(5250) - JVRP(18314) = V(2351) -! JVRP(18315) = dARP(11547)/dV(2351) - JVRP(18315) = 1 -! JVRP(18316) = dARP(11548)/dV(746) - JVRP(18316) = 1 -! JVRP(18317) = dARP(11549)/dV(521) - JVRP(18317) = V(5250) -! JVRP(18318) = dARP(11549)/dV(5250) - JVRP(18318) = V(521) -! JVRP(18319) = dARP(11550)/dV(521) - JVRP(18319) = 1 -! JVRP(18320) = dARP(11551)/dV(116) - JVRP(18320) = 1 -! JVRP(18321) = dARP(11552)/dV(318) - JVRP(18321) = V(5250) -! JVRP(18322) = dARP(11552)/dV(5250) - JVRP(18322) = V(318) -! JVRP(18323) = dARP(11553)/dV(273) - JVRP(18323) = V(5250) -! JVRP(18324) = dARP(11553)/dV(5250) - JVRP(18324) = V(273) -! JVRP(18325) = dARP(11554)/dV(1253) - JVRP(18325) = V(5250) -! JVRP(18326) = dARP(11554)/dV(5250) - JVRP(18326) = V(1253) -! JVRP(18327) = dARP(11555)/dV(1253) - JVRP(18327) = 1 -! JVRP(18328) = dARP(11556)/dV(2588) - JVRP(18328) = 1 -! JVRP(18329) = dARP(11557)/dV(1512) - JVRP(18329) = V(5250) -! JVRP(18330) = dARP(11557)/dV(5250) - JVRP(18330) = V(1512) -! JVRP(18331) = dARP(11558)/dV(1512) - JVRP(18331) = 1 -! JVRP(18332) = dARP(11559)/dV(2604) - JVRP(18332) = 1 -! JVRP(18333) = dARP(11560)/dV(1928) - JVRP(18333) = V(5250) -! JVRP(18334) = dARP(11560)/dV(5250) - JVRP(18334) = V(1928) -! JVRP(18335) = dARP(11561)/dV(1928) - JVRP(18335) = 1 -! JVRP(18336) = dARP(11562)/dV(1928) - JVRP(18336) = 1 -! JVRP(18337) = dARP(11563)/dV(3748) - JVRP(18337) = V(5256) -! JVRP(18338) = dARP(11563)/dV(5256) - JVRP(18338) = V(3748) -! JVRP(18339) = dARP(11564)/dV(3748) - JVRP(18339) = V(5250) -! JVRP(18340) = dARP(11564)/dV(5250) - JVRP(18340) = V(3748) -! JVRP(18341) = dARP(11565)/dV(3748) - JVRP(18341) = 1 -! JVRP(18342) = dARP(11566)/dV(259) - JVRP(18342) = V(5250) -! JVRP(18343) = dARP(11566)/dV(5250) - JVRP(18343) = V(259) -! JVRP(18344) = dARP(11567)/dV(3237) - JVRP(18344) = V(5250) -! JVRP(18345) = dARP(11567)/dV(5250) - JVRP(18345) = V(3237) -! JVRP(18346) = dARP(11568)/dV(3237) - JVRP(18346) = 1 -! JVRP(18347) = dARP(11569)/dV(3237) - JVRP(18347) = 1 -! JVRP(18348) = dARP(11570)/dV(2696) - JVRP(18348) = V(5250) -! JVRP(18349) = dARP(11570)/dV(5250) - JVRP(18349) = V(2696) -! JVRP(18350) = dARP(11571)/dV(2696) - JVRP(18350) = 1 -! JVRP(18351) = dARP(11572)/dV(1293) - JVRP(18351) = V(5250) -! JVRP(18352) = dARP(11572)/dV(5250) - JVRP(18352) = V(1293) -! JVRP(18353) = dARP(11573)/dV(1293) - JVRP(18353) = 1 -! JVRP(18354) = dARP(11574)/dV(2758) - JVRP(18354) = 1 -! JVRP(18355) = dARP(11575)/dV(4511) - JVRP(18355) = V(5255) -! JVRP(18356) = dARP(11575)/dV(5255) - JVRP(18356) = V(4511) -! JVRP(18357) = dARP(11576)/dV(4511) - JVRP(18357) = V(5252) -! JVRP(18358) = dARP(11576)/dV(5252) - JVRP(18358) = V(4511) -! JVRP(18359) = dARP(11577)/dV(4511) - JVRP(18359) = V(5256) -! JVRP(18360) = dARP(11577)/dV(5256) - JVRP(18360) = V(4511) -! JVRP(18361) = dARP(11578)/dV(4511) - JVRP(18361) = 1 -! JVRP(18362) = dARP(11579)/dV(4205) - JVRP(18362) = V(5255) -! JVRP(18363) = dARP(11579)/dV(5255) - JVRP(18363) = V(4205) -! JVRP(18364) = dARP(11580)/dV(4205) - JVRP(18364) = V(5252) -! JVRP(18365) = dARP(11580)/dV(5252) - JVRP(18365) = V(4205) -! JVRP(18366) = dARP(11581)/dV(4205) - JVRP(18366) = V(5256) -! JVRP(18367) = dARP(11581)/dV(5256) - JVRP(18367) = V(4205) -! JVRP(18368) = dARP(11582)/dV(4205) - JVRP(18368) = 1 -! JVRP(18369) = dARP(11583)/dV(1091) - JVRP(18369) = V(5250) -! JVRP(18370) = dARP(11583)/dV(5250) - JVRP(18370) = V(1091) -! JVRP(18371) = dARP(11584)/dV(1091) - JVRP(18371) = 1 -! JVRP(18372) = dARP(11585)/dV(1830) - JVRP(18372) = V(5250) -! JVRP(18373) = dARP(11585)/dV(5250) - JVRP(18373) = V(1830) -! JVRP(18374) = dARP(11586)/dV(1830) - JVRP(18374) = 1 -! JVRP(18375) = dARP(11587)/dV(744) - JVRP(18375) = 1 -! JVRP(18376) = dARP(11588)/dV(324) - JVRP(18376) = V(5250) -! JVRP(18377) = dARP(11588)/dV(5250) - JVRP(18377) = V(324) -! JVRP(18378) = dARP(11589)/dV(324) - JVRP(18378) = 1 -! JVRP(18379) = dARP(11590)/dV(97) - JVRP(18379) = 1 -! JVRP(18380) = dARP(11591)/dV(323) - JVRP(18380) = V(5250) -! JVRP(18381) = dARP(11591)/dV(5250) - JVRP(18381) = V(323) -! JVRP(18382) = dARP(11592)/dV(322) - JVRP(18382) = V(5250) -! JVRP(18383) = dARP(11592)/dV(5250) - JVRP(18383) = V(322) -! JVRP(18384) = dARP(11593)/dV(1329) - JVRP(18384) = V(5250) -! JVRP(18385) = dARP(11593)/dV(5250) - JVRP(18385) = V(1329) -! JVRP(18386) = dARP(11594)/dV(1329) - JVRP(18386) = 1 -! JVRP(18387) = dARP(11595)/dV(3421) - JVRP(18387) = 1 -! JVRP(18388) = dARP(11596)/dV(860) - JVRP(18388) = V(5250) -! JVRP(18389) = dARP(11596)/dV(5250) - JVRP(18389) = V(860) -! JVRP(18390) = dARP(11597)/dV(860) - JVRP(18390) = 1 -! JVRP(18391) = dARP(11598)/dV(3579) - JVRP(18391) = 1 -! JVRP(18392) = dARP(11599)/dV(4502) - JVRP(18392) = V(5255) -! JVRP(18393) = dARP(11599)/dV(5255) - JVRP(18393) = V(4502) -! JVRP(18394) = dARP(11600)/dV(4502) - JVRP(18394) = V(5255) -! JVRP(18395) = dARP(11600)/dV(5255) - JVRP(18395) = V(4502) -! JVRP(18396) = dARP(11601)/dV(4502) - JVRP(18396) = V(5252) -! JVRP(18397) = dARP(11601)/dV(5252) - JVRP(18397) = V(4502) -! JVRP(18398) = dARP(11602)/dV(4502) - JVRP(18398) = V(5253) -! JVRP(18399) = dARP(11602)/dV(5253) - JVRP(18399) = V(4502) -! JVRP(18400) = dARP(11603)/dV(4502) - JVRP(18400) = V(5256) -! JVRP(18401) = dARP(11603)/dV(5256) - JVRP(18401) = V(4502) -! JVRP(18402) = dARP(11604)/dV(4502) - JVRP(18402) = 1 -! JVRP(18403) = dARP(11605)/dV(4233) - JVRP(18403) = V(5256) -! JVRP(18404) = dARP(11605)/dV(5256) - JVRP(18404) = V(4233) -! JVRP(18405) = dARP(11606)/dV(4233) - JVRP(18405) = V(5250) -! JVRP(18406) = dARP(11606)/dV(5250) - JVRP(18406) = V(4233) -! JVRP(18407) = dARP(11607)/dV(4233) - JVRP(18407) = 1 -! JVRP(18408) = dARP(11608)/dV(3773) - JVRP(18408) = V(5256) -! JVRP(18409) = dARP(11608)/dV(5256) - JVRP(18409) = V(3773) -! JVRP(18410) = dARP(11609)/dV(3773) - JVRP(18410) = V(5250) -! JVRP(18411) = dARP(11609)/dV(5250) - JVRP(18411) = V(3773) -! JVRP(18412) = dARP(11610)/dV(3773) - JVRP(18412) = 1 -! JVRP(18413) = dARP(11611)/dV(448) - JVRP(18413) = V(5250) -! JVRP(18414) = dARP(11611)/dV(5250) - JVRP(18414) = V(448) -! JVRP(18415) = dARP(11612)/dV(3467) - JVRP(18415) = V(5250) -! JVRP(18416) = dARP(11612)/dV(5250) - JVRP(18416) = V(3467) -! JVRP(18417) = dARP(11613)/dV(3467) - JVRP(18417) = 1 -! JVRP(18418) = dARP(11614)/dV(3467) - JVRP(18418) = 1 -! JVRP(18419) = dARP(11615)/dV(3012) - JVRP(18419) = V(5250) -! JVRP(18420) = dARP(11615)/dV(5250) - JVRP(18420) = V(3012) -! JVRP(18421) = dARP(11616)/dV(3012) - JVRP(18421) = 1 -! JVRP(18422) = dARP(11617)/dV(4425) - JVRP(18422) = V(5255) -! JVRP(18423) = dARP(11617)/dV(5255) - JVRP(18423) = V(4425) -! JVRP(18424) = dARP(11618)/dV(4425) - JVRP(18424) = V(5252) -! JVRP(18425) = dARP(11618)/dV(5252) - JVRP(18425) = V(4425) -! JVRP(18426) = dARP(11619)/dV(4425) - JVRP(18426) = V(5256) -! JVRP(18427) = dARP(11619)/dV(5256) - JVRP(18427) = V(4425) -! JVRP(18428) = dARP(11620)/dV(4425) - JVRP(18428) = 1 -! JVRP(18429) = dARP(11621)/dV(4194) - JVRP(18429) = V(5255) -! JVRP(18430) = dARP(11621)/dV(5255) - JVRP(18430) = V(4194) -! JVRP(18431) = dARP(11622)/dV(4194) - JVRP(18431) = V(5252) -! JVRP(18432) = dARP(11622)/dV(5252) - JVRP(18432) = V(4194) -! JVRP(18433) = dARP(11623)/dV(4194) - JVRP(18433) = V(5256) -! JVRP(18434) = dARP(11623)/dV(5256) - JVRP(18434) = V(4194) -! JVRP(18435) = dARP(11624)/dV(4194) - JVRP(18435) = 1 -! JVRP(18436) = dARP(11625)/dV(1308) - JVRP(18436) = V(5250) -! JVRP(18437) = dARP(11625)/dV(5250) - JVRP(18437) = V(1308) -! JVRP(18438) = dARP(11626)/dV(1308) - JVRP(18438) = 1 -! JVRP(18439) = dARP(11627)/dV(2294) - JVRP(18439) = V(5250) -! JVRP(18440) = dARP(11627)/dV(5250) - JVRP(18440) = V(2294) -! JVRP(18441) = dARP(11628)/dV(2294) - JVRP(18441) = 1 -! JVRP(18442) = dARP(11629)/dV(743) - JVRP(18442) = 1 -! JVRP(18443) = dARP(11630)/dV(1359) - JVRP(18443) = V(5250) -! JVRP(18444) = dARP(11630)/dV(5250) - JVRP(18444) = V(1359) -! JVRP(18445) = dARP(11631)/dV(1359) - JVRP(18445) = 1 -! JVRP(18446) = dARP(11632)/dV(92) - JVRP(18446) = 1 -! JVRP(18447) = dARP(11633)/dV(510) - JVRP(18447) = V(5250) -! JVRP(18448) = dARP(11633)/dV(5250) - JVRP(18448) = V(510) -! JVRP(18449) = dARP(11634)/dV(509) - JVRP(18449) = V(5250) -! JVRP(18450) = dARP(11634)/dV(5250) - JVRP(18450) = V(509) -! JVRP(18451) = dARP(11635)/dV(923) - JVRP(18451) = V(5250) -! JVRP(18452) = dARP(11635)/dV(5250) - JVRP(18452) = V(923) -! JVRP(18453) = dARP(11636)/dV(923) - JVRP(18453) = 1 -! JVRP(18454) = dARP(11637)/dV(3395) - JVRP(18454) = 1 -! JVRP(18455) = dARP(11638)/dV(878) - JVRP(18455) = V(5250) -! JVRP(18456) = dARP(11638)/dV(5250) - JVRP(18456) = V(878) -! JVRP(18457) = dARP(11639)/dV(878) - JVRP(18457) = 1 -! JVRP(18458) = dARP(11640)/dV(3597) - JVRP(18458) = 1 -! JVRP(18459) = dARP(11641)/dV(4424) - JVRP(18459) = V(5255) -! JVRP(18460) = dARP(11641)/dV(5255) - JVRP(18460) = V(4424) -! JVRP(18461) = dARP(11642)/dV(4424) - JVRP(18461) = V(5255) -! JVRP(18462) = dARP(11642)/dV(5255) - JVRP(18462) = V(4424) -! JVRP(18463) = dARP(11643)/dV(4424) - JVRP(18463) = V(5252) -! JVRP(18464) = dARP(11643)/dV(5252) - JVRP(18464) = V(4424) -! JVRP(18465) = dARP(11644)/dV(4424) - JVRP(18465) = V(5253) -! JVRP(18466) = dARP(11644)/dV(5253) - JVRP(18466) = V(4424) -! JVRP(18467) = dARP(11645)/dV(4424) - JVRP(18467) = V(5256) -! JVRP(18468) = dARP(11645)/dV(5256) - JVRP(18468) = V(4424) -! JVRP(18469) = dARP(11646)/dV(4424) - JVRP(18469) = 1 -! JVRP(18470) = dARP(11647)/dV(4227) - JVRP(18470) = V(5256) -! JVRP(18471) = dARP(11647)/dV(5256) - JVRP(18471) = V(4227) -! JVRP(18472) = dARP(11648)/dV(4227) - JVRP(18472) = V(5250) -! JVRP(18473) = dARP(11648)/dV(5250) - JVRP(18473) = V(4227) -! JVRP(18474) = dARP(11649)/dV(4227) - JVRP(18474) = 1 -! JVRP(18475) = dARP(11650)/dV(3775) - JVRP(18475) = V(5256) -! JVRP(18476) = dARP(11650)/dV(5256) - JVRP(18476) = V(3775) -! JVRP(18477) = dARP(11651)/dV(3775) - JVRP(18477) = V(5250) -! JVRP(18478) = dARP(11651)/dV(5250) - JVRP(18478) = V(3775) -! JVRP(18479) = dARP(11652)/dV(3775) - JVRP(18479) = 1 -! JVRP(18480) = dARP(11653)/dV(244) - JVRP(18480) = V(5250) -! JVRP(18481) = dARP(11653)/dV(5250) - JVRP(18481) = V(244) -! JVRP(18482) = dARP(11654)/dV(3463) - JVRP(18482) = V(5250) -! JVRP(18483) = dARP(11654)/dV(5250) - JVRP(18483) = V(3463) -! JVRP(18484) = dARP(11655)/dV(3463) - JVRP(18484) = 1 -! JVRP(18485) = dARP(11656)/dV(3463) - JVRP(18485) = 1 -! JVRP(18486) = dARP(11657)/dV(2969) - JVRP(18486) = V(5250) -! JVRP(18487) = dARP(11657)/dV(5250) - JVRP(18487) = V(2969) -! JVRP(18488) = dARP(11658)/dV(2969) - JVRP(18488) = 1 -! JVRP(18489) = dARP(11659)/dV(1845) - JVRP(18489) = V(5256) -! JVRP(18490) = dARP(11659)/dV(5256) - JVRP(18490) = V(1845) -! JVRP(18491) = dARP(11660)/dV(1845) - JVRP(18491) = V(5250) -! JVRP(18492) = dARP(11660)/dV(5250) - JVRP(18492) = V(1845) -! JVRP(18493) = dARP(11661)/dV(4655) - JVRP(18493) = V(5255) -! JVRP(18494) = dARP(11661)/dV(5255) - JVRP(18494) = V(4655) -! JVRP(18495) = dARP(11662)/dV(4655) - JVRP(18495) = V(5252) -! JVRP(18496) = dARP(11662)/dV(5252) - JVRP(18496) = V(4655) -! JVRP(18497) = dARP(11663)/dV(4655) - JVRP(18497) = V(5256) -! JVRP(18498) = dARP(11663)/dV(5256) - JVRP(18498) = V(4655) -! JVRP(18499) = dARP(11664)/dV(4655) - JVRP(18499) = 1 -! JVRP(18500) = dARP(11665)/dV(4285) - JVRP(18500) = V(5255) -! JVRP(18501) = dARP(11665)/dV(5255) - JVRP(18501) = V(4285) -! JVRP(18502) = dARP(11666)/dV(4285) - JVRP(18502) = V(5252) -! JVRP(18503) = dARP(11666)/dV(5252) - JVRP(18503) = V(4285) -! JVRP(18504) = dARP(11667)/dV(4285) - JVRP(18504) = V(5256) -! JVRP(18505) = dARP(11667)/dV(5256) - JVRP(18505) = V(4285) -! JVRP(18506) = dARP(11668)/dV(4285) - JVRP(18506) = 1 -! JVRP(18507) = dARP(11669)/dV(1061) - JVRP(18507) = V(5250) -! JVRP(18508) = dARP(11669)/dV(5250) - JVRP(18508) = V(1061) -! JVRP(18509) = dARP(11670)/dV(1061) - JVRP(18509) = 1 -! JVRP(18510) = dARP(11671)/dV(1051) - JVRP(18510) = V(5250) -! JVRP(18511) = dARP(11671)/dV(5250) - JVRP(18511) = V(1051) -! JVRP(18512) = dARP(11672)/dV(1051) - JVRP(18512) = 1 -! JVRP(18513) = dARP(11673)/dV(3016) - JVRP(18513) = 1 -! JVRP(18514) = dARP(11674)/dV(1532) - JVRP(18514) = V(5250) -! JVRP(18515) = dARP(11674)/dV(5250) - JVRP(18515) = V(1532) -! JVRP(18516) = dARP(11675)/dV(1532) - JVRP(18516) = 1 -! JVRP(18517) = dARP(11676)/dV(2586) - JVRP(18517) = 1 -! JVRP(18518) = dARP(11677)/dV(3556) - JVRP(18518) = V(5250) -! JVRP(18519) = dARP(11677)/dV(5250) - JVRP(18519) = V(3556) -! JVRP(18520) = dARP(11678)/dV(3556) - JVRP(18520) = 1 -! JVRP(18521) = dARP(11679)/dV(4726) - JVRP(18521) = V(5255) -! JVRP(18522) = dARP(11679)/dV(5255) - JVRP(18522) = V(4726) -! JVRP(18523) = dARP(11680)/dV(4726) - JVRP(18523) = V(5252) -! JVRP(18524) = dARP(11680)/dV(5252) - JVRP(18524) = V(4726) -! JVRP(18525) = dARP(11681)/dV(4726) - JVRP(18525) = V(5256) -! JVRP(18526) = dARP(11681)/dV(5256) - JVRP(18526) = V(4726) -! JVRP(18527) = dARP(11682)/dV(4726) - JVRP(18527) = 1 -! JVRP(18528) = dARP(11683)/dV(4643) - JVRP(18528) = V(5255) -! JVRP(18529) = dARP(11683)/dV(5255) - JVRP(18529) = V(4643) -! JVRP(18530) = dARP(11684)/dV(4643) - JVRP(18530) = V(5252) -! JVRP(18531) = dARP(11684)/dV(5252) - JVRP(18531) = V(4643) -! JVRP(18532) = dARP(11685)/dV(4643) - JVRP(18532) = V(5256) -! JVRP(18533) = dARP(11685)/dV(5256) - JVRP(18533) = V(4643) -! JVRP(18534) = dARP(11686)/dV(4643) - JVRP(18534) = 1 -! JVRP(18535) = dARP(11687)/dV(4276) - JVRP(18535) = V(5255) -! JVRP(18536) = dARP(11687)/dV(5255) - JVRP(18536) = V(4276) -! JVRP(18537) = dARP(11688)/dV(4276) - JVRP(18537) = V(5252) -! JVRP(18538) = dARP(11688)/dV(5252) - JVRP(18538) = V(4276) -! JVRP(18539) = dARP(11689)/dV(4276) - JVRP(18539) = V(5256) -! JVRP(18540) = dARP(11689)/dV(5256) - JVRP(18540) = V(4276) -! JVRP(18541) = dARP(11690)/dV(4276) - JVRP(18541) = 1 -! JVRP(18542) = dARP(11691)/dV(950) - JVRP(18542) = V(5250) -! JVRP(18543) = dARP(11691)/dV(5250) - JVRP(18543) = V(950) -! JVRP(18544) = dARP(11692)/dV(950) - JVRP(18544) = 1 -! JVRP(18545) = dARP(11693)/dV(2342) - JVRP(18545) = V(5250) -! JVRP(18546) = dARP(11693)/dV(5250) - JVRP(18546) = V(2342) -! JVRP(18547) = dARP(11694)/dV(2342) - JVRP(18547) = 1 -! JVRP(18548) = dARP(11695)/dV(629) - JVRP(18548) = 1 -! JVRP(18549) = dARP(11696)/dV(1062) - JVRP(18549) = V(5250) -! JVRP(18550) = dARP(11696)/dV(5250) - JVRP(18550) = V(1062) -! JVRP(18551) = dARP(11697)/dV(1062) - JVRP(18551) = 1 -! JVRP(18552) = dARP(11698)/dV(57) - JVRP(18552) = 1 -! JVRP(18553) = dARP(11699)/dV(90) - JVRP(18553) = V(5250) -! JVRP(18554) = dARP(11699)/dV(5250) - JVRP(18554) = V(90) -! JVRP(18555) = dARP(11700)/dV(1459) - JVRP(18555) = V(5250) -! JVRP(18556) = dARP(11700)/dV(5250) - JVRP(18556) = V(1459) -! JVRP(18557) = dARP(11701)/dV(1459) - JVRP(18557) = 1 -! JVRP(18558) = dARP(11702)/dV(2557) - JVRP(18558) = 1 -! JVRP(18559) = dARP(11703)/dV(1187) - JVRP(18559) = V(5250) -! JVRP(18560) = dARP(11703)/dV(5250) - JVRP(18560) = V(1187) -! JVRP(18561) = dARP(11704)/dV(1187) - JVRP(18561) = 1 -! JVRP(18562) = dARP(11705)/dV(2551) - JVRP(18562) = 1 -! JVRP(18563) = dARP(11706)/dV(4182) - JVRP(18563) = V(5255) -! JVRP(18564) = dARP(11706)/dV(5255) - JVRP(18564) = V(4182) -! JVRP(18565) = dARP(11707)/dV(4182) - JVRP(18565) = V(5252) -! JVRP(18566) = dARP(11707)/dV(5252) - JVRP(18566) = V(4182) -! JVRP(18567) = dARP(11708)/dV(4182) - JVRP(18567) = V(5256) -! JVRP(18568) = dARP(11708)/dV(5256) - JVRP(18568) = V(4182) -! JVRP(18569) = dARP(11709)/dV(4182) - JVRP(18569) = 1 -! JVRP(18570) = dARP(11710)/dV(877) - JVRP(18570) = V(5250) -! JVRP(18571) = dARP(11710)/dV(5250) - JVRP(18571) = V(877) -! JVRP(18572) = dARP(11711)/dV(877) - JVRP(18572) = 1 -! JVRP(18573) = dARP(11712)/dV(2819) - JVRP(18573) = 1 -! JVRP(18574) = dARP(11713)/dV(4463) - JVRP(18574) = V(5255) -! JVRP(18575) = dARP(11713)/dV(5255) - JVRP(18575) = V(4463) -! JVRP(18576) = dARP(11714)/dV(4463) - JVRP(18576) = V(5252) -! JVRP(18577) = dARP(11714)/dV(5252) - JVRP(18577) = V(4463) -! JVRP(18578) = dARP(11715)/dV(4463) - JVRP(18578) = V(5256) -! JVRP(18579) = dARP(11715)/dV(5256) - JVRP(18579) = V(4463) -! JVRP(18580) = dARP(11716)/dV(4463) - JVRP(18580) = 1 -! JVRP(18581) = dARP(11717)/dV(4289) - JVRP(18581) = V(5255) -! JVRP(18582) = dARP(11717)/dV(5255) - JVRP(18582) = V(4289) -! JVRP(18583) = dARP(11718)/dV(4289) - JVRP(18583) = V(5252) -! JVRP(18584) = dARP(11718)/dV(5252) - JVRP(18584) = V(4289) -! JVRP(18585) = dARP(11719)/dV(4289) - JVRP(18585) = V(5256) -! JVRP(18586) = dARP(11719)/dV(5256) - JVRP(18586) = V(4289) -! JVRP(18587) = dARP(11720)/dV(4289) - JVRP(18587) = 1 -! JVRP(18588) = dARP(11721)/dV(1452) - JVRP(18588) = V(5250) -! JVRP(18589) = dARP(11721)/dV(5250) - JVRP(18589) = V(1452) -! JVRP(18590) = dARP(11722)/dV(1452) - JVRP(18590) = 1 -! JVRP(18591) = dARP(11723)/dV(2368) - JVRP(18591) = V(5250) -! JVRP(18592) = dARP(11723)/dV(5250) - JVRP(18592) = V(2368) -! JVRP(18593) = dARP(11724)/dV(2368) - JVRP(18593) = 1 -! JVRP(18594) = dARP(11725)/dV(597) - JVRP(18594) = 1 -! JVRP(18595) = dARP(11726)/dV(459) - JVRP(18595) = V(5250) -! JVRP(18596) = dARP(11726)/dV(5250) - JVRP(18596) = V(459) -! JVRP(18597) = dARP(11727)/dV(459) - JVRP(18597) = 1 -! JVRP(18598) = dARP(11728)/dV(107) - JVRP(18598) = 1 -! JVRP(18599) = dARP(11729)/dV(373) - JVRP(18599) = V(5250) -! JVRP(18600) = dARP(11729)/dV(5250) - JVRP(18600) = V(373) -! JVRP(18601) = dARP(11730)/dV(267) - JVRP(18601) = V(5250) -! JVRP(18602) = dARP(11730)/dV(5250) - JVRP(18602) = V(267) -! JVRP(18603) = dARP(11731)/dV(962) - JVRP(18603) = V(5250) -! JVRP(18604) = dARP(11731)/dV(5250) - JVRP(18604) = V(962) -! JVRP(18605) = dARP(11732)/dV(962) - JVRP(18605) = 1 -! JVRP(18606) = dARP(11733)/dV(2566) - JVRP(18606) = 1 -! JVRP(18607) = dARP(11734)/dV(1358) - JVRP(18607) = V(5250) -! JVRP(18608) = dARP(11734)/dV(5250) - JVRP(18608) = V(1358) -! JVRP(18609) = dARP(11735)/dV(1358) - JVRP(18609) = 1 -! JVRP(18610) = dARP(11736)/dV(3004) - JVRP(18610) = 1 -! JVRP(18611) = dARP(11737)/dV(4434) - JVRP(18611) = V(5255) -! JVRP(18612) = dARP(11737)/dV(5255) - JVRP(18612) = V(4434) -! JVRP(18613) = dARP(11738)/dV(4434) - JVRP(18613) = V(5252) -! JVRP(18614) = dARP(11738)/dV(5252) - JVRP(18614) = V(4434) -! JVRP(18615) = dARP(11739)/dV(4434) - JVRP(18615) = V(5256) -! JVRP(18616) = dARP(11739)/dV(5256) - JVRP(18616) = V(4434) -! JVRP(18617) = dARP(11740)/dV(4434) - JVRP(18617) = 1 -! JVRP(18618) = dARP(11741)/dV(4245) - JVRP(18618) = V(5255) -! JVRP(18619) = dARP(11741)/dV(5255) - JVRP(18619) = V(4245) -! JVRP(18620) = dARP(11742)/dV(4245) - JVRP(18620) = V(5252) -! JVRP(18621) = dARP(11742)/dV(5252) - JVRP(18621) = V(4245) -! JVRP(18622) = dARP(11743)/dV(4245) - JVRP(18622) = V(5256) -! JVRP(18623) = dARP(11743)/dV(5256) - JVRP(18623) = V(4245) -! JVRP(18624) = dARP(11744)/dV(4245) - JVRP(18624) = 1 -! JVRP(18625) = dARP(11745)/dV(857) - JVRP(18625) = V(5250) -! JVRP(18626) = dARP(11745)/dV(5250) - JVRP(18626) = V(857) -! JVRP(18627) = dARP(11746)/dV(857) - JVRP(18627) = 1 -! JVRP(18628) = dARP(11747)/dV(2389) - JVRP(18628) = V(5250) -! JVRP(18629) = dARP(11747)/dV(5250) - JVRP(18629) = V(2389) -! JVRP(18630) = dARP(11748)/dV(2389) - JVRP(18630) = 1 -! JVRP(18631) = dARP(11749)/dV(798) - JVRP(18631) = 1 -! JVRP(18632) = dARP(11750)/dV(1435) - JVRP(18632) = V(5250) -! JVRP(18633) = dARP(11750)/dV(5250) - JVRP(18633) = V(1435) -! JVRP(18634) = dARP(11751)/dV(1435) - JVRP(18634) = 1 -! JVRP(18635) = dARP(11752)/dV(78) - JVRP(18635) = 1 -! JVRP(18636) = dARP(11753)/dV(93) - JVRP(18636) = V(5250) -! JVRP(18637) = dARP(11753)/dV(5250) - JVRP(18637) = V(93) -! JVRP(18638) = dARP(11754)/dV(1399) - JVRP(18638) = V(5250) -! JVRP(18639) = dARP(11754)/dV(5250) - JVRP(18639) = V(1399) -! JVRP(18640) = dARP(11755)/dV(1399) - JVRP(18640) = 1 -! JVRP(18641) = dARP(11756)/dV(2818) - JVRP(18641) = 1 -! JVRP(18642) = dARP(11757)/dV(1524) - JVRP(18642) = V(5250) -! JVRP(18643) = dARP(11757)/dV(5250) - JVRP(18643) = V(1524) -! JVRP(18644) = dARP(11758)/dV(1524) - JVRP(18644) = 1 -! JVRP(18645) = dARP(11759)/dV(2599) - JVRP(18645) = 1 -! JVRP(18646) = dARP(11760)/dV(4455) - JVRP(18646) = V(5255) -! JVRP(18647) = dARP(11760)/dV(5255) - JVRP(18647) = V(4455) -! JVRP(18648) = dARP(11761)/dV(4455) - JVRP(18648) = V(5252) -! JVRP(18649) = dARP(11761)/dV(5252) - JVRP(18649) = V(4455) -! JVRP(18650) = dARP(11762)/dV(4455) - JVRP(18650) = V(5256) -! JVRP(18651) = dARP(11762)/dV(5256) - JVRP(18651) = V(4455) -! JVRP(18652) = dARP(11763)/dV(4455) - JVRP(18652) = 1 -! JVRP(18653) = dARP(11764)/dV(4232) - JVRP(18653) = V(5255) -! JVRP(18654) = dARP(11764)/dV(5255) - JVRP(18654) = V(4232) -! JVRP(18655) = dARP(11765)/dV(4232) - JVRP(18655) = V(5252) -! JVRP(18656) = dARP(11765)/dV(5252) - JVRP(18656) = V(4232) -! JVRP(18657) = dARP(11766)/dV(4232) - JVRP(18657) = V(5256) -! JVRP(18658) = dARP(11766)/dV(5256) - JVRP(18658) = V(4232) -! JVRP(18659) = dARP(11767)/dV(4232) - JVRP(18659) = 1 -! JVRP(18660) = dARP(11768)/dV(1453) - JVRP(18660) = V(5250) -! JVRP(18661) = dARP(11768)/dV(5250) - JVRP(18661) = V(1453) -! JVRP(18662) = dARP(11769)/dV(1453) - JVRP(18662) = 1 -! JVRP(18663) = dARP(11770)/dV(1783) - JVRP(18663) = V(5250) -! JVRP(18664) = dARP(11770)/dV(5250) - JVRP(18664) = V(1783) -! JVRP(18665) = dARP(11771)/dV(1783) - JVRP(18665) = 1 -! JVRP(18666) = dARP(11772)/dV(780) - JVRP(18666) = 1 -! JVRP(18667) = dARP(11773)/dV(1412) - JVRP(18667) = V(5250) -! JVRP(18668) = dARP(11773)/dV(5250) - JVRP(18668) = V(1412) -! JVRP(18669) = dARP(11774)/dV(1412) - JVRP(18669) = 1 -! JVRP(18670) = dARP(11775)/dV(16) - JVRP(18670) = 1 -! JVRP(18671) = dARP(11776)/dV(106) - JVRP(18671) = V(5250) -! JVRP(18672) = dARP(11776)/dV(5250) - JVRP(18672) = V(106) -! JVRP(18673) = dARP(11777)/dV(1101) - JVRP(18673) = V(5250) -! JVRP(18674) = dARP(11777)/dV(5250) - JVRP(18674) = V(1101) -! JVRP(18675) = dARP(11778)/dV(1101) - JVRP(18675) = 1 -! JVRP(18676) = dARP(11779)/dV(3065) - JVRP(18676) = 1 -! JVRP(18677) = dARP(11780)/dV(1148) - JVRP(18677) = V(5250) -! JVRP(18678) = dARP(11780)/dV(5250) - JVRP(18678) = V(1148) -! JVRP(18679) = dARP(11781)/dV(1148) - JVRP(18679) = 1 -! JVRP(18680) = dARP(11782)/dV(2575) - JVRP(18680) = 1 -! JVRP(18681) = dARP(11783)/dV(3896) - JVRP(18681) = V(5256) -! JVRP(18682) = dARP(11783)/dV(5256) - JVRP(18682) = V(3896) -! JVRP(18683) = dARP(11784)/dV(3896) - JVRP(18683) = V(5250) -! JVRP(18684) = dARP(11784)/dV(5250) - JVRP(18684) = V(3896) -! JVRP(18685) = dARP(11785)/dV(3896) - JVRP(18685) = 1 -! JVRP(18686) = dARP(11786)/dV(4750) - JVRP(18686) = V(5255) -! JVRP(18687) = dARP(11786)/dV(5255) - JVRP(18687) = V(4750) -! JVRP(18688) = dARP(11787)/dV(4750) - JVRP(18688) = V(5252) -! JVRP(18689) = dARP(11787)/dV(5252) - JVRP(18689) = V(4750) -! JVRP(18690) = dARP(11788)/dV(4750) - JVRP(18690) = V(5256) -! JVRP(18691) = dARP(11788)/dV(5256) - JVRP(18691) = V(4750) -! JVRP(18692) = dARP(11789)/dV(4750) - JVRP(18692) = 1 -! JVRP(18693) = dARP(11790)/dV(387) - JVRP(18693) = V(5250) -! JVRP(18694) = dARP(11790)/dV(5250) - JVRP(18694) = V(387) -! JVRP(18695) = dARP(11791)/dV(997) - JVRP(18695) = V(5250) -! JVRP(18696) = dARP(11791)/dV(5250) - JVRP(18696) = V(997) -! JVRP(18697) = dARP(11792)/dV(997) - JVRP(18697) = 1 -! JVRP(18698) = dARP(11793)/dV(2905) - JVRP(18698) = 1 -! JVRP(18699) = dARP(11794)/dV(2320) - JVRP(18699) = 1 -! JVRP(18700) = dARP(11795)/dV(2320) - JVRP(18700) = V(5250) -! JVRP(18701) = dARP(11795)/dV(5250) - JVRP(18701) = V(2320) -! JVRP(18702) = dARP(11796)/dV(2498) - JVRP(18702) = 1 -! JVRP(18703) = dARP(11797)/dV(2498) - JVRP(18703) = V(5250) -! JVRP(18704) = dARP(11797)/dV(5250) - JVRP(18704) = V(2498) -! JVRP(18705) = dARP(11798)/dV(4460) - JVRP(18705) = V(5255) -! JVRP(18706) = dARP(11798)/dV(5255) - JVRP(18706) = V(4460) -! JVRP(18707) = dARP(11799)/dV(4460) - JVRP(18707) = V(5255) -! JVRP(18708) = dARP(11799)/dV(5255) - JVRP(18708) = V(4460) -! JVRP(18709) = dARP(11800)/dV(4460) - JVRP(18709) = V(5255) -! JVRP(18710) = dARP(11800)/dV(5255) - JVRP(18710) = V(4460) -! JVRP(18711) = dARP(11801)/dV(4460) - JVRP(18711) = V(5252) -! JVRP(18712) = dARP(11801)/dV(5252) - JVRP(18712) = V(4460) -! JVRP(18713) = dARP(11802)/dV(4460) - JVRP(18713) = V(5253) -! JVRP(18714) = dARP(11802)/dV(5253) - JVRP(18714) = V(4460) -! JVRP(18715) = dARP(11803)/dV(4460) - JVRP(18715) = V(5256) -! JVRP(18716) = dARP(11803)/dV(5256) - JVRP(18716) = V(4460) -! JVRP(18717) = dARP(11804)/dV(4460) - JVRP(18717) = 1 -! JVRP(18718) = dARP(11805)/dV(4460) - JVRP(18718) = 1 -! JVRP(18719) = dARP(11806)/dV(2105) - JVRP(18719) = V(5250) -! JVRP(18720) = dARP(11806)/dV(5250) - JVRP(18720) = V(2105) -! JVRP(18721) = dARP(11807)/dV(2105) - JVRP(18721) = 1 -! JVRP(18722) = dARP(11808)/dV(1184) - JVRP(18722) = V(5250) -! JVRP(18723) = dARP(11808)/dV(5250) - JVRP(18723) = V(1184) -! JVRP(18724) = dARP(11809)/dV(1184) - JVRP(18724) = 1 -! JVRP(18725) = dARP(11810)/dV(4548) - JVRP(18725) = V(5255) -! JVRP(18726) = dARP(11810)/dV(5255) - JVRP(18726) = V(4548) -! JVRP(18727) = dARP(11811)/dV(4548) - JVRP(18727) = V(5255) -! JVRP(18728) = dARP(11811)/dV(5255) - JVRP(18728) = V(4548) -! JVRP(18729) = dARP(11812)/dV(4548) - JVRP(18729) = V(5252) -! JVRP(18730) = dARP(11812)/dV(5252) - JVRP(18730) = V(4548) -! JVRP(18731) = dARP(11813)/dV(4548) - JVRP(18731) = V(5253) -! JVRP(18732) = dARP(11813)/dV(5253) - JVRP(18732) = V(4548) -! JVRP(18733) = dARP(11814)/dV(4548) - JVRP(18733) = V(5256) -! JVRP(18734) = dARP(11814)/dV(5256) - JVRP(18734) = V(4548) -! JVRP(18735) = dARP(11815)/dV(4548) - JVRP(18735) = 1 -! JVRP(18736) = dARP(11816)/dV(3250) - JVRP(18736) = 1 -! JVRP(18737) = dARP(11817)/dV(3250) - JVRP(18737) = 1 -! JVRP(18738) = dARP(11818)/dV(3250) - JVRP(18738) = V(5250) -! JVRP(18739) = dARP(11818)/dV(5250) - JVRP(18739) = V(3250) -! JVRP(18740) = dARP(11819)/dV(4129) - JVRP(18740) = V(5255) -! JVRP(18741) = dARP(11819)/dV(5255) - JVRP(18741) = V(4129) -! JVRP(18742) = dARP(11820)/dV(4129) - JVRP(18742) = V(5252) -! JVRP(18743) = dARP(11820)/dV(5252) - JVRP(18743) = V(4129) -! JVRP(18744) = dARP(11821)/dV(4129) - JVRP(18744) = V(5256) -! JVRP(18745) = dARP(11821)/dV(5256) - JVRP(18745) = V(4129) -! JVRP(18746) = dARP(11822)/dV(4129) - JVRP(18746) = 1 -! JVRP(18747) = dARP(11823)/dV(5047) - JVRP(18747) = V(5251) -! JVRP(18748) = dARP(11823)/dV(5251) - JVRP(18748) = V(5047) -! JVRP(18749) = dARP(11824)/dV(5047) - JVRP(18749) = V(5252) -! JVRP(18750) = dARP(11824)/dV(5252) - JVRP(18750) = V(5047) -! JVRP(18751) = dARP(11825)/dV(5047) - JVRP(18751) = V(5253) -! JVRP(18752) = dARP(11825)/dV(5253) - JVRP(18752) = V(5047) -! JVRP(18753) = dARP(11826)/dV(5047) - JVRP(18753) = V(5254) -! JVRP(18754) = dARP(11826)/dV(5254) - JVRP(18754) = V(5047) -! JVRP(18755) = dARP(11827)/dV(5047) - JVRP(18755) = 1 -! JVRP(18756) = dARP(11828)/dV(5172) - JVRP(18756) = V(5255) -! JVRP(18757) = dARP(11828)/dV(5255) - JVRP(18757) = V(5172) -! JVRP(18758) = dARP(11829)/dV(5172) - JVRP(18758) = V(5255) -! JVRP(18759) = dARP(11829)/dV(5255) - JVRP(18759) = V(5172) -! JVRP(18760) = dARP(11830)/dV(5172) - JVRP(18760) = V(5252) -! JVRP(18761) = dARP(11830)/dV(5252) - JVRP(18761) = V(5172) -! JVRP(18762) = dARP(11831)/dV(5172) - JVRP(18762) = V(5253) -! JVRP(18763) = dARP(11831)/dV(5253) - JVRP(18763) = V(5172) -! JVRP(18764) = dARP(11832)/dV(5172) - JVRP(18764) = V(5256) -! JVRP(18765) = dARP(11832)/dV(5256) - JVRP(18765) = V(5172) -! JVRP(18766) = dARP(11833)/dV(5172) - JVRP(18766) = 1 -! JVRP(18767) = dARP(11834)/dV(3261) - JVRP(18767) = V(5250) -! JVRP(18768) = dARP(11834)/dV(5250) - JVRP(18768) = V(3261) -! JVRP(18769) = dARP(11835)/dV(3261) - JVRP(18769) = 1 -! JVRP(18770) = dARP(11836)/dV(3261) - JVRP(18770) = 1 -! JVRP(18771) = dARP(11837)/dV(2085) - JVRP(18771) = 1 -! JVRP(18772) = dARP(11838)/dV(2382) - JVRP(18772) = V(5250) -! JVRP(18773) = dARP(11838)/dV(5250) - JVRP(18773) = V(2382) -! JVRP(18774) = dARP(11839)/dV(2382) - JVRP(18774) = 1 -! JVRP(18775) = dARP(11840)/dV(1625) - JVRP(18775) = 1 -! JVRP(18776) = dARP(11841)/dV(1625) - JVRP(18776) = V(5250) -! JVRP(18777) = dARP(11841)/dV(5250) - JVRP(18777) = V(1625) -! JVRP(18778) = dARP(11842)/dV(1603) - JVRP(18778) = 1 -! JVRP(18779) = dARP(11843)/dV(1603) - JVRP(18779) = V(5250) -! JVRP(18780) = dARP(11843)/dV(5250) - JVRP(18780) = V(1603) -! JVRP(18781) = dARP(11844)/dV(1991) - JVRP(18781) = 1 -! JVRP(18782) = dARP(11845)/dV(1991) - JVRP(18782) = V(5250) -! JVRP(18783) = dARP(11845)/dV(5250) - JVRP(18783) = V(1991) -! JVRP(18784) = dARP(11846)/dV(2243) - JVRP(18784) = V(5250) -! JVRP(18785) = dARP(11846)/dV(5250) - JVRP(18785) = V(2243) -! JVRP(18786) = dARP(11847)/dV(2243) - JVRP(18786) = 1 -! JVRP(18787) = dARP(11848)/dV(4539) - JVRP(18787) = V(5255) -! JVRP(18788) = dARP(11848)/dV(5255) - JVRP(18788) = V(4539) -! JVRP(18789) = dARP(11849)/dV(4539) - JVRP(18789) = V(5255) -! JVRP(18790) = dARP(11849)/dV(5255) - JVRP(18790) = V(4539) -! JVRP(18791) = dARP(11850)/dV(4539) - JVRP(18791) = V(5252) -! JVRP(18792) = dARP(11850)/dV(5252) - JVRP(18792) = V(4539) -! JVRP(18793) = dARP(11851)/dV(4539) - JVRP(18793) = V(5253) -! JVRP(18794) = dARP(11851)/dV(5253) - JVRP(18794) = V(4539) -! JVRP(18795) = dARP(11852)/dV(4539) - JVRP(18795) = V(5256) -! JVRP(18796) = dARP(11852)/dV(5256) - JVRP(18796) = V(4539) -! JVRP(18797) = dARP(11853)/dV(4539) - JVRP(18797) = 1 -! JVRP(18798) = dARP(11854)/dV(3618) - JVRP(18798) = V(5250) -! JVRP(18799) = dARP(11854)/dV(5250) - JVRP(18799) = V(3618) -! JVRP(18800) = dARP(11855)/dV(3618) - JVRP(18800) = 1 -! JVRP(18801) = dARP(11856)/dV(3618) - JVRP(18801) = 1 -! JVRP(18802) = dARP(11857)/dV(3618) - JVRP(18802) = 1 -! JVRP(18803) = dARP(11858)/dV(1891) - JVRP(18803) = 1 -! JVRP(18804) = dARP(11859)/dV(4229) - JVRP(18804) = V(5255) -! JVRP(18805) = dARP(11859)/dV(5255) - JVRP(18805) = V(4229) -! JVRP(18806) = dARP(11860)/dV(4229) - JVRP(18806) = V(5255) -! JVRP(18807) = dARP(11860)/dV(5255) - JVRP(18807) = V(4229) -! JVRP(18808) = dARP(11861)/dV(4229) - JVRP(18808) = V(5252) -! JVRP(18809) = dARP(11861)/dV(5252) - JVRP(18809) = V(4229) -! JVRP(18810) = dARP(11862)/dV(4229) - JVRP(18810) = V(5253) -! JVRP(18811) = dARP(11862)/dV(5253) - JVRP(18811) = V(4229) -! JVRP(18812) = dARP(11863)/dV(4229) - JVRP(18812) = V(5256) -! JVRP(18813) = dARP(11863)/dV(5256) - JVRP(18813) = V(4229) -! JVRP(18814) = dARP(11864)/dV(4229) - JVRP(18814) = 1 -! JVRP(18815) = dARP(11865)/dV(4228) - JVRP(18815) = V(5255) -! JVRP(18816) = dARP(11865)/dV(5255) - JVRP(18816) = V(4228) -! JVRP(18817) = dARP(11866)/dV(4228) - JVRP(18817) = V(5255) -! JVRP(18818) = dARP(11866)/dV(5255) - JVRP(18818) = V(4228) -! JVRP(18819) = dARP(11867)/dV(4228) - JVRP(18819) = V(5252) -! JVRP(18820) = dARP(11867)/dV(5252) - JVRP(18820) = V(4228) -! JVRP(18821) = dARP(11868)/dV(4228) - JVRP(18821) = V(5253) -! JVRP(18822) = dARP(11868)/dV(5253) - JVRP(18822) = V(4228) -! JVRP(18823) = dARP(11869)/dV(4228) - JVRP(18823) = V(5256) -! JVRP(18824) = dARP(11869)/dV(5256) - JVRP(18824) = V(4228) -! JVRP(18825) = dARP(11870)/dV(4228) - JVRP(18825) = 1 -! JVRP(18826) = dARP(11871)/dV(2491) - JVRP(18826) = V(5250) -! JVRP(18827) = dARP(11871)/dV(5250) - JVRP(18827) = V(2491) -! JVRP(18828) = dARP(11872)/dV(2491) - JVRP(18828) = V(5250) -! JVRP(18829) = dARP(11872)/dV(5250) - JVRP(18829) = V(2491) -! JVRP(18830) = dARP(11873)/dV(2491) - JVRP(18830) = 1 -! JVRP(18831) = dARP(11874)/dV(5075) - JVRP(18831) = V(5255) -! JVRP(18832) = dARP(11874)/dV(5255) - JVRP(18832) = V(5075) -! JVRP(18833) = dARP(11875)/dV(5075) - JVRP(18833) = V(5255) -! JVRP(18834) = dARP(11875)/dV(5255) - JVRP(18834) = V(5075) -! JVRP(18835) = dARP(11876)/dV(5075) - JVRP(18835) = V(5255) -! JVRP(18836) = dARP(11876)/dV(5255) - JVRP(18836) = V(5075) -! JVRP(18837) = dARP(11877)/dV(5075) - JVRP(18837) = V(5252) -! JVRP(18838) = dARP(11877)/dV(5252) - JVRP(18838) = V(5075) -! JVRP(18839) = dARP(11878)/dV(5075) - JVRP(18839) = V(5253) -! JVRP(18840) = dARP(11878)/dV(5253) - JVRP(18840) = V(5075) -! JVRP(18841) = dARP(11879)/dV(5075) - JVRP(18841) = V(5256) -! JVRP(18842) = dARP(11879)/dV(5256) - JVRP(18842) = V(5075) -! JVRP(18843) = dARP(11880)/dV(5075) - JVRP(18843) = V(5256) -! JVRP(18844) = dARP(11880)/dV(5256) - JVRP(18844) = V(5075) -! JVRP(18845) = dARP(11881)/dV(5075) - JVRP(18845) = 1 -! JVRP(18846) = dARP(11882)/dV(5075) - JVRP(18846) = 1 -! JVRP(18847) = dARP(11883)/dV(1651) - JVRP(18847) = V(5250) -! JVRP(18848) = dARP(11883)/dV(5250) - JVRP(18848) = V(1651) -! JVRP(18849) = dARP(11884)/dV(1651) - JVRP(18849) = 1 -! JVRP(18850) = dARP(11885)/dV(4658) - JVRP(18850) = V(5255) -! JVRP(18851) = dARP(11885)/dV(5255) - JVRP(18851) = V(4658) -! JVRP(18852) = dARP(11886)/dV(4658) - JVRP(18852) = V(5255) -! JVRP(18853) = dARP(11886)/dV(5255) - JVRP(18853) = V(4658) -! JVRP(18854) = dARP(11887)/dV(4658) - JVRP(18854) = V(5255) -! JVRP(18855) = dARP(11887)/dV(5255) - JVRP(18855) = V(4658) -! JVRP(18856) = dARP(11888)/dV(4658) - JVRP(18856) = V(5252) -! JVRP(18857) = dARP(11888)/dV(5252) - JVRP(18857) = V(4658) -! JVRP(18858) = dARP(11889)/dV(4658) - JVRP(18858) = V(5253) -! JVRP(18859) = dARP(11889)/dV(5253) - JVRP(18859) = V(4658) -! JVRP(18860) = dARP(11890)/dV(4658) - JVRP(18860) = V(5256) -! JVRP(18861) = dARP(11890)/dV(5256) - JVRP(18861) = V(4658) -! JVRP(18862) = dARP(11891)/dV(4658) - JVRP(18862) = 1 -! JVRP(18863) = dARP(11892)/dV(4658) - JVRP(18863) = 1 -! JVRP(18864) = dARP(11893)/dV(4518) - JVRP(18864) = V(5255) -! JVRP(18865) = dARP(11893)/dV(5255) - JVRP(18865) = V(4518) -! JVRP(18866) = dARP(11894)/dV(4518) - JVRP(18866) = V(5255) -! JVRP(18867) = dARP(11894)/dV(5255) - JVRP(18867) = V(4518) -! JVRP(18868) = dARP(11895)/dV(4518) - JVRP(18868) = V(5255) -! JVRP(18869) = dARP(11895)/dV(5255) - JVRP(18869) = V(4518) -! JVRP(18870) = dARP(11896)/dV(4518) - JVRP(18870) = V(5252) -! JVRP(18871) = dARP(11896)/dV(5252) - JVRP(18871) = V(4518) -! JVRP(18872) = dARP(11897)/dV(4518) - JVRP(18872) = V(5253) -! JVRP(18873) = dARP(11897)/dV(5253) - JVRP(18873) = V(4518) -! JVRP(18874) = dARP(11898)/dV(4518) - JVRP(18874) = V(5256) -! JVRP(18875) = dARP(11898)/dV(5256) - JVRP(18875) = V(4518) -! JVRP(18876) = dARP(11899)/dV(4518) - JVRP(18876) = 1 -! JVRP(18877) = dARP(11900)/dV(4518) - JVRP(18877) = 1 -! JVRP(18878) = dARP(11901)/dV(123) - JVRP(18878) = V(5250) -! JVRP(18879) = dARP(11901)/dV(5250) - JVRP(18879) = V(123) -! JVRP(18880) = dARP(11902)/dV(4657) - JVRP(18880) = V(5255) -! JVRP(18881) = dARP(11902)/dV(5255) - JVRP(18881) = V(4657) -! JVRP(18882) = dARP(11903)/dV(4657) - JVRP(18882) = V(5255) -! JVRP(18883) = dARP(11903)/dV(5255) - JVRP(18883) = V(4657) -! JVRP(18884) = dARP(11904)/dV(4657) - JVRP(18884) = V(5255) -! JVRP(18885) = dARP(11904)/dV(5255) - JVRP(18885) = V(4657) -! JVRP(18886) = dARP(11905)/dV(4657) - JVRP(18886) = V(5252) -! JVRP(18887) = dARP(11905)/dV(5252) - JVRP(18887) = V(4657) -! JVRP(18888) = dARP(11906)/dV(4657) - JVRP(18888) = V(5253) -! JVRP(18889) = dARP(11906)/dV(5253) - JVRP(18889) = V(4657) -! JVRP(18890) = dARP(11907)/dV(4657) - JVRP(18890) = V(5256) -! JVRP(18891) = dARP(11907)/dV(5256) - JVRP(18891) = V(4657) -! JVRP(18892) = dARP(11908)/dV(4657) - JVRP(18892) = 1 -! JVRP(18893) = dARP(11909)/dV(4657) - JVRP(18893) = 1 -! JVRP(18894) = dARP(11910)/dV(1425) - JVRP(18894) = V(5250) -! JVRP(18895) = dARP(11910)/dV(5250) - JVRP(18895) = V(1425) -! JVRP(18896) = dARP(11911)/dV(2570) - JVRP(18896) = 1 -! JVRP(18897) = dARP(11912)/dV(2570) - JVRP(18897) = V(5250) -! JVRP(18898) = dARP(11912)/dV(5250) - JVRP(18898) = V(2570) -! JVRP(18899) = dARP(11913)/dV(2570) - JVRP(18899) = V(5250) -! JVRP(18900) = dARP(11913)/dV(5250) - JVRP(18900) = V(2570) -! JVRP(18901) = dARP(11914)/dV(2606) - JVRP(18901) = 1 -! JVRP(18902) = dARP(11915)/dV(2606) - JVRP(18902) = V(5250) -! JVRP(18903) = dARP(11915)/dV(5250) - JVRP(18903) = V(2606) -! JVRP(18904) = dARP(11916)/dV(217) - JVRP(18904) = V(5250) -! JVRP(18905) = dARP(11916)/dV(5250) - JVRP(18905) = V(217) -! JVRP(18906) = dARP(11917)/dV(217) - JVRP(18906) = V(5250) -! JVRP(18907) = dARP(11917)/dV(5250) - JVRP(18907) = V(217) -! JVRP(18908) = dARP(11918)/dV(4599) - JVRP(18908) = V(5255) -! JVRP(18909) = dARP(11918)/dV(5255) - JVRP(18909) = V(4599) -! JVRP(18910) = dARP(11919)/dV(4599) - JVRP(18910) = V(5252) -! JVRP(18911) = dARP(11919)/dV(5252) - JVRP(18911) = V(4599) -! JVRP(18912) = dARP(11920)/dV(4599) - JVRP(18912) = V(5252) -! JVRP(18913) = dARP(11920)/dV(5252) - JVRP(18913) = V(4599) -! JVRP(18914) = dARP(11921)/dV(4599) - JVRP(18914) = V(5256) -! JVRP(18915) = dARP(11921)/dV(5256) - JVRP(18915) = V(4599) -! JVRP(18916) = dARP(11922)/dV(4599) - JVRP(18916) = 1 -! JVRP(18917) = dARP(11923)/dV(4599) - JVRP(18917) = 1 -! JVRP(18918) = dARP(11924)/dV(3864) - JVRP(18918) = V(5255) -! JVRP(18919) = dARP(11924)/dV(5255) - JVRP(18919) = V(3864) -! JVRP(18920) = dARP(11925)/dV(3864) - JVRP(18920) = V(5252) -! JVRP(18921) = dARP(11925)/dV(5252) - JVRP(18921) = V(3864) -! JVRP(18922) = dARP(11926)/dV(3864) - JVRP(18922) = V(5256) -! JVRP(18923) = dARP(11926)/dV(5256) - JVRP(18923) = V(3864) -! JVRP(18924) = dARP(11927)/dV(3864) - JVRP(18924) = 1 -! JVRP(18925) = dARP(11928)/dV(4816) - JVRP(18925) = V(5255) -! JVRP(18926) = dARP(11928)/dV(5255) - JVRP(18926) = V(4816) -! JVRP(18927) = dARP(11929)/dV(4816) - JVRP(18927) = V(5255) -! JVRP(18928) = dARP(11929)/dV(5255) - JVRP(18928) = V(4816) -! JVRP(18929) = dARP(11930)/dV(4816) - JVRP(18929) = V(5255) -! JVRP(18930) = dARP(11930)/dV(5255) - JVRP(18930) = V(4816) -! JVRP(18931) = dARP(11931)/dV(4816) - JVRP(18931) = V(5252) -! JVRP(18932) = dARP(11931)/dV(5252) - JVRP(18932) = V(4816) -! JVRP(18933) = dARP(11932)/dV(4816) - JVRP(18933) = V(5253) -! JVRP(18934) = dARP(11932)/dV(5253) - JVRP(18934) = V(4816) -! JVRP(18935) = dARP(11933)/dV(4816) - JVRP(18935) = V(5256) -! JVRP(18936) = dARP(11933)/dV(5256) - JVRP(18936) = V(4816) -! JVRP(18937) = dARP(11934)/dV(4816) - JVRP(18937) = 1 -! JVRP(18938) = dARP(11935)/dV(4816) - JVRP(18938) = 1 -! JVRP(18939) = dARP(11936)/dV(701) - JVRP(18939) = 1 -! JVRP(18940) = dARP(11937)/dV(701) - JVRP(18940) = 1 -! JVRP(18941) = dARP(11938)/dV(3837) - JVRP(18941) = V(5255) -! JVRP(18942) = dARP(11938)/dV(5255) - JVRP(18942) = V(3837) -! JVRP(18943) = dARP(11939)/dV(3837) - JVRP(18943) = V(5252) -! JVRP(18944) = dARP(11939)/dV(5252) - JVRP(18944) = V(3837) -! JVRP(18945) = dARP(11940)/dV(3837) - JVRP(18945) = V(5256) -! JVRP(18946) = dARP(11940)/dV(5256) - JVRP(18946) = V(3837) -! JVRP(18947) = dARP(11941)/dV(3837) - JVRP(18947) = 1 -! JVRP(18948) = dARP(11942)/dV(3837) - JVRP(18948) = 1 -! JVRP(18949) = dARP(11943)/dV(3837) - JVRP(18949) = 1 -! JVRP(18950) = dARP(11944)/dV(899) - JVRP(18950) = V(5250) -! JVRP(18951) = dARP(11944)/dV(5250) - JVRP(18951) = V(899) -! JVRP(18952) = dARP(11945)/dV(899) - JVRP(18952) = 1 -! JVRP(18953) = dARP(11946)/dV(2663) - JVRP(18953) = V(5250) -! JVRP(18954) = dARP(11946)/dV(5250) - JVRP(18954) = V(2663) -! JVRP(18955) = dARP(11947)/dV(2663) - JVRP(18955) = 1 -! JVRP(18956) = dARP(11948)/dV(2810) - JVRP(18956) = V(5250) -! JVRP(18957) = dARP(11948)/dV(5250) - JVRP(18957) = V(2810) -! JVRP(18958) = dARP(11949)/dV(2810) - JVRP(18958) = V(5250) -! JVRP(18959) = dARP(11949)/dV(5250) - JVRP(18959) = V(2810) -! JVRP(18960) = dARP(11950)/dV(2810) - JVRP(18960) = 1 -! JVRP(18961) = dARP(11951)/dV(2664) - JVRP(18961) = V(5250) -! JVRP(18962) = dARP(11951)/dV(5250) - JVRP(18962) = V(2664) -! JVRP(18963) = dARP(11952)/dV(2664) - JVRP(18963) = 1 -! JVRP(18964) = dARP(11953)/dV(1593) - JVRP(18964) = 1 -! JVRP(18965) = dARP(11954)/dV(473) - JVRP(18965) = V(5250) -! JVRP(18966) = dARP(11954)/dV(5250) - JVRP(18966) = V(473) -! JVRP(18967) = dARP(11955)/dV(908) - JVRP(18967) = V(5250) -! JVRP(18968) = dARP(11955)/dV(5250) - JVRP(18968) = V(908) -! JVRP(18969) = dARP(11956)/dV(908) - JVRP(18969) = 1 -! JVRP(18970) = dARP(11957)/dV(2827) - JVRP(18970) = 1 -! JVRP(18971) = dARP(11958)/dV(3972) - JVRP(18971) = V(5256) -! JVRP(18972) = dARP(11958)/dV(5256) - JVRP(18972) = V(3972) -! JVRP(18973) = dARP(11959)/dV(3972) - JVRP(18973) = V(5250) -! JVRP(18974) = dARP(11959)/dV(5250) - JVRP(18974) = V(3972) -! JVRP(18975) = dARP(11960)/dV(3972) - JVRP(18975) = 1 -! JVRP(18976) = dARP(11961)/dV(5171) - JVRP(18976) = V(5255) -! JVRP(18977) = dARP(11961)/dV(5255) - JVRP(18977) = V(5171) -! JVRP(18978) = dARP(11962)/dV(5171) - JVRP(18978) = V(5255) -! JVRP(18979) = dARP(11962)/dV(5255) - JVRP(18979) = V(5171) -! JVRP(18980) = dARP(11963)/dV(5171) - JVRP(18980) = V(5252) -! JVRP(18981) = dARP(11963)/dV(5252) - JVRP(18981) = V(5171) -! JVRP(18982) = dARP(11964)/dV(5171) - JVRP(18982) = V(5253) -! JVRP(18983) = dARP(11964)/dV(5253) - JVRP(18983) = V(5171) -! JVRP(18984) = dARP(11965)/dV(5171) - JVRP(18984) = V(5256) -! JVRP(18985) = dARP(11965)/dV(5256) - JVRP(18985) = V(5171) -! JVRP(18986) = dARP(11966)/dV(5171) - JVRP(18986) = 1 -! JVRP(18987) = dARP(11967)/dV(3259) - JVRP(18987) = 1 -! JVRP(18988) = dARP(11968)/dV(3259) - JVRP(18988) = 1 -! JVRP(18989) = dARP(11969)/dV(3259) - JVRP(18989) = V(5250) -! JVRP(18990) = dARP(11969)/dV(5250) - JVRP(18990) = V(3259) -! JVRP(18991) = dARP(11970)/dV(1884) - JVRP(18991) = 1 -! JVRP(18992) = dARP(11971)/dV(1884) - JVRP(18992) = V(5250) -! JVRP(18993) = dARP(11971)/dV(5250) - JVRP(18993) = V(1884) -! JVRP(18994) = dARP(11972)/dV(1884) - JVRP(18994) = V(5250) -! JVRP(18995) = dARP(11972)/dV(5250) - JVRP(18995) = V(1884) -! JVRP(18996) = dARP(11973)/dV(1321) - JVRP(18996) = V(5250) -! JVRP(18997) = dARP(11973)/dV(5250) - JVRP(18997) = V(1321) -! JVRP(18998) = dARP(11974)/dV(2972) - JVRP(18998) = 1 -! JVRP(18999) = dARP(11975)/dV(3861) - JVRP(18999) = 1 -! JVRP(19000) = dARP(11976)/dV(3861) - JVRP(19000) = V(5256) -! JVRP(19001) = dARP(11976)/dV(5256) - JVRP(19001) = V(3861) -! JVRP(19002) = dARP(11977)/dV(3861) - JVRP(19002) = V(5250) -! JVRP(19003) = dARP(11977)/dV(5250) - JVRP(19003) = V(3861) -! JVRP(19004) = dARP(11978)/dV(348) - JVRP(19004) = V(5250) -! JVRP(19005) = dARP(11978)/dV(5250) - JVRP(19005) = V(348) -! JVRP(19006) = dARP(11979)/dV(4631) - JVRP(19006) = V(5255) -! JVRP(19007) = dARP(11979)/dV(5255) - JVRP(19007) = V(4631) -! JVRP(19008) = dARP(11980)/dV(4631) - JVRP(19008) = V(5255) -! JVRP(19009) = dARP(11980)/dV(5255) - JVRP(19009) = V(4631) -! JVRP(19010) = dARP(11981)/dV(4631) - JVRP(19010) = V(5252) -! JVRP(19011) = dARP(11981)/dV(5252) - JVRP(19011) = V(4631) -! JVRP(19012) = dARP(11982)/dV(4631) - JVRP(19012) = V(5253) -! JVRP(19013) = dARP(11982)/dV(5253) - JVRP(19013) = V(4631) -! JVRP(19014) = dARP(11983)/dV(4631) - JVRP(19014) = V(5256) -! JVRP(19015) = dARP(11983)/dV(5256) - JVRP(19015) = V(4631) -! JVRP(19016) = dARP(11984)/dV(4631) - JVRP(19016) = 1 -! JVRP(19017) = dARP(11985)/dV(434) - JVRP(19017) = V(5250) -! JVRP(19018) = dARP(11985)/dV(5250) - JVRP(19018) = V(434) -! JVRP(19019) = dARP(11986)/dV(1041) - JVRP(19019) = 1 -! JVRP(19020) = dARP(11987)/dV(1041) - JVRP(19020) = V(5250) -! JVRP(19021) = dARP(11987)/dV(5250) - JVRP(19021) = V(1041) -! JVRP(19022) = dARP(11988)/dV(3275) - JVRP(19022) = 1 -! JVRP(19023) = dARP(11989)/dV(3275) - JVRP(19023) = V(5250) -! JVRP(19024) = dARP(11989)/dV(5250) - JVRP(19024) = V(3275) -! JVRP(19025) = dARP(11990)/dV(2381) - JVRP(19025) = V(5250) -! JVRP(19026) = dARP(11990)/dV(5250) - JVRP(19026) = V(2381) -! JVRP(19027) = dARP(11991)/dV(2381) - JVRP(19027) = 1 -! JVRP(19028) = dARP(11992)/dV(1893) - JVRP(19028) = V(5250) -! JVRP(19029) = dARP(11992)/dV(5250) - JVRP(19029) = V(1893) -! JVRP(19030) = dARP(11993)/dV(1893) - JVRP(19030) = 1 -! JVRP(19031) = dARP(11994)/dV(3408) - JVRP(19031) = V(5250) -! JVRP(19032) = dARP(11994)/dV(5250) - JVRP(19032) = V(3408) -! JVRP(19033) = dARP(11995)/dV(3408) - JVRP(19033) = 1 -! JVRP(19034) = dARP(11996)/dV(1762) - JVRP(19034) = V(5250) -! JVRP(19035) = dARP(11996)/dV(5250) - JVRP(19035) = V(1762) -! JVRP(19036) = dARP(11997)/dV(1762) - JVRP(19036) = 1 -! JVRP(19037) = dARP(11998)/dV(729) - JVRP(19037) = 1 -! JVRP(19038) = dARP(11999)/dV(1901) - JVRP(19038) = V(5250) -! JVRP(19039) = dARP(11999)/dV(5250) - JVRP(19039) = V(1901) -! JVRP(19040) = dARP(12000)/dV(1901) - JVRP(19040) = 1 -! JVRP(19041) = dARP(12001)/dV(786) - JVRP(19041) = 1 -! JVRP(19042) = dARP(12002)/dV(3247) - JVRP(19042) = 1 -! JVRP(19043) = dARP(12003)/dV(3247) - JVRP(19043) = V(5250) -! JVRP(19044) = dARP(12003)/dV(5250) - JVRP(19044) = V(3247) -! JVRP(19045) = dARP(12004)/dV(1319) - JVRP(19045) = 1 -! JVRP(19046) = dARP(12005)/dV(1319) - JVRP(19046) = V(5250) -! JVRP(19047) = dARP(12005)/dV(5250) - JVRP(19047) = V(1319) -! JVRP(19048) = dARP(12006)/dV(2804) - JVRP(19048) = 1 -! JVRP(19049) = dARP(12007)/dV(2804) - JVRP(19049) = V(5250) -! JVRP(19050) = dARP(12007)/dV(5250) - JVRP(19050) = V(2804) -! JVRP(19051) = dARP(12008)/dV(2360) - JVRP(19051) = V(5250) -! JVRP(19052) = dARP(12008)/dV(5250) - JVRP(19052) = V(2360) -! JVRP(19053) = dARP(12009)/dV(2360) - JVRP(19053) = 1 -! JVRP(19054) = dARP(12010)/dV(672) - JVRP(19054) = 1 -! JVRP(19055) = dARP(12011)/dV(992) - JVRP(19055) = V(5250) -! JVRP(19056) = dARP(12011)/dV(5250) - JVRP(19056) = V(992) -! JVRP(19057) = dARP(12012)/dV(992) - JVRP(19057) = 1 -! JVRP(19058) = dARP(12013)/dV(80) - JVRP(19058) = 1 -! JVRP(19059) = dARP(12014)/dV(4493) - JVRP(19059) = V(5256) -! JVRP(19060) = dARP(12014)/dV(5256) - JVRP(19060) = V(4493) -! JVRP(19061) = dARP(12015)/dV(4493) - JVRP(19061) = V(5250) -! JVRP(19062) = dARP(12015)/dV(5250) - JVRP(19062) = V(4493) -! JVRP(19063) = dARP(12016)/dV(4493) - JVRP(19063) = 1 -! JVRP(19064) = dARP(12017)/dV(4189) - JVRP(19064) = V(5255) -! JVRP(19065) = dARP(12017)/dV(5255) - JVRP(19065) = V(4189) -! JVRP(19066) = dARP(12018)/dV(4189) - JVRP(19066) = V(5252) -! JVRP(19067) = dARP(12018)/dV(5252) - JVRP(19067) = V(4189) -! JVRP(19068) = dARP(12019)/dV(4189) - JVRP(19068) = V(5252) -! JVRP(19069) = dARP(12019)/dV(5252) - JVRP(19069) = V(4189) -! JVRP(19070) = dARP(12020)/dV(4189) - JVRP(19070) = V(5256) -! JVRP(19071) = dARP(12020)/dV(5256) - JVRP(19071) = V(4189) -! JVRP(19072) = dARP(12021)/dV(4189) - JVRP(19072) = 1 -! JVRP(19073) = dARP(12022)/dV(4189) - JVRP(19073) = 1 -! JVRP(19074) = dARP(12023)/dV(2423) - JVRP(19074) = V(5250) -! JVRP(19075) = dARP(12023)/dV(5250) - JVRP(19075) = V(2423) -! JVRP(19076) = dARP(12024)/dV(2423) - JVRP(19076) = 1 -! JVRP(19077) = dARP(12025)/dV(541) - JVRP(19077) = 1 -! JVRP(19078) = dARP(12026)/dV(3668) - JVRP(19078) = V(5255) -! JVRP(19079) = dARP(12026)/dV(5255) - JVRP(19079) = V(3668) -! JVRP(19080) = dARP(12027)/dV(3668) - JVRP(19080) = V(5252) -! JVRP(19081) = dARP(12027)/dV(5252) - JVRP(19081) = V(3668) -! JVRP(19082) = dARP(12028)/dV(3668) - JVRP(19082) = V(5252) -! JVRP(19083) = dARP(12028)/dV(5252) - JVRP(19083) = V(3668) -! JVRP(19084) = dARP(12029)/dV(3668) - JVRP(19084) = V(5256) -! JVRP(19085) = dARP(12029)/dV(5256) - JVRP(19085) = V(3668) -! JVRP(19086) = dARP(12030)/dV(3668) - JVRP(19086) = 1 -! JVRP(19087) = dARP(12031)/dV(3668) - JVRP(19087) = 1 -! JVRP(19088) = dARP(12032)/dV(3668) - JVRP(19088) = 1 -! JVRP(19089) = dARP(12033)/dV(5021) - JVRP(19089) = V(5255) -! JVRP(19090) = dARP(12033)/dV(5255) - JVRP(19090) = V(5021) -! JVRP(19091) = dARP(12034)/dV(5021) - JVRP(19091) = V(5255) -! JVRP(19092) = dARP(12034)/dV(5255) - JVRP(19092) = V(5021) -! JVRP(19093) = dARP(12035)/dV(5021) - JVRP(19093) = V(5255) -! JVRP(19094) = dARP(12035)/dV(5255) - JVRP(19094) = V(5021) -! JVRP(19095) = dARP(12036)/dV(5021) - JVRP(19095) = V(5252) -! JVRP(19096) = dARP(12036)/dV(5252) - JVRP(19096) = V(5021) -! JVRP(19097) = dARP(12037)/dV(5021) - JVRP(19097) = V(5253) -! JVRP(19098) = dARP(12037)/dV(5253) - JVRP(19098) = V(5021) -! JVRP(19099) = dARP(12038)/dV(5021) - JVRP(19099) = V(5256) -! JVRP(19100) = dARP(12038)/dV(5256) - JVRP(19100) = V(5021) -! JVRP(19101) = dARP(12039)/dV(5021) - JVRP(19101) = 1 -! JVRP(19102) = dARP(12040)/dV(5021) - JVRP(19102) = 1 -! JVRP(19103) = dARP(12041)/dV(5086) - JVRP(19103) = V(5256) -! JVRP(19104) = dARP(12041)/dV(5256) - JVRP(19104) = V(5086) -! JVRP(19105) = dARP(12042)/dV(5086) - JVRP(19105) = V(5250) -! JVRP(19106) = dARP(12042)/dV(5250) - JVRP(19106) = V(5086) -! JVRP(19107) = dARP(12043)/dV(5086) - JVRP(19107) = 1 -! JVRP(19108) = dARP(12044)/dV(3761) - JVRP(19108) = V(5255) -! JVRP(19109) = dARP(12044)/dV(5255) - JVRP(19109) = V(3761) -! JVRP(19110) = dARP(12045)/dV(3761) - JVRP(19110) = V(5252) -! JVRP(19111) = dARP(12045)/dV(5252) - JVRP(19111) = V(3761) -! JVRP(19112) = dARP(12046)/dV(3761) - JVRP(19112) = V(5256) -! JVRP(19113) = dARP(12046)/dV(5256) - JVRP(19113) = V(3761) -! JVRP(19114) = dARP(12047)/dV(3761) - JVRP(19114) = 1 -! JVRP(19115) = dARP(12048)/dV(4580) - JVRP(19115) = V(5255) -! JVRP(19116) = dARP(12048)/dV(5255) - JVRP(19116) = V(4580) -! JVRP(19117) = dARP(12049)/dV(4580) - JVRP(19117) = V(5252) -! JVRP(19118) = dARP(12049)/dV(5252) - JVRP(19118) = V(4580) -! JVRP(19119) = dARP(12050)/dV(4580) - JVRP(19119) = V(5252) -! JVRP(19120) = dARP(12050)/dV(5252) - JVRP(19120) = V(4580) -! JVRP(19121) = dARP(12051)/dV(4580) - JVRP(19121) = V(5256) -! JVRP(19122) = dARP(12051)/dV(5256) - JVRP(19122) = V(4580) -! JVRP(19123) = dARP(12052)/dV(4580) - JVRP(19123) = 1 -! JVRP(19124) = dARP(12053)/dV(4580) - JVRP(19124) = 1 -! JVRP(19125) = dARP(12054)/dV(4290) - JVRP(19125) = V(5255) -! JVRP(19126) = dARP(12054)/dV(5255) - JVRP(19126) = V(4290) -! JVRP(19127) = dARP(12055)/dV(4290) - JVRP(19127) = V(5252) -! JVRP(19128) = dARP(12055)/dV(5252) - JVRP(19128) = V(4290) -! JVRP(19129) = dARP(12056)/dV(4290) - JVRP(19129) = V(5256) -! JVRP(19130) = dARP(12056)/dV(5256) - JVRP(19130) = V(4290) -! JVRP(19131) = dARP(12057)/dV(4290) - JVRP(19131) = 1 -! JVRP(19132) = dARP(12058)/dV(5159) - JVRP(19132) = V(5256) -! JVRP(19133) = dARP(12058)/dV(5256) - JVRP(19133) = V(5159) -! JVRP(19134) = dARP(12059)/dV(5159) - JVRP(19134) = V(5250) -! JVRP(19135) = dARP(12059)/dV(5250) - JVRP(19135) = V(5159) -! JVRP(19136) = dARP(12060)/dV(5159) - JVRP(19136) = V(5250) -! JVRP(19137) = dARP(12060)/dV(5250) - JVRP(19137) = V(5159) -! JVRP(19138) = dARP(12061)/dV(5159) - JVRP(19138) = 1 -! JVRP(19139) = dARP(12062)/dV(4119) - JVRP(19139) = V(5255) -! JVRP(19140) = dARP(12062)/dV(5255) - JVRP(19140) = V(4119) -! JVRP(19141) = dARP(12063)/dV(4119) - JVRP(19141) = V(5252) -! JVRP(19142) = dARP(12063)/dV(5252) - JVRP(19142) = V(4119) -! JVRP(19143) = dARP(12064)/dV(4119) - JVRP(19143) = V(5252) -! JVRP(19144) = dARP(12064)/dV(5252) - JVRP(19144) = V(4119) -! JVRP(19145) = dARP(12065)/dV(4119) - JVRP(19145) = V(5256) -! JVRP(19146) = dARP(12065)/dV(5256) - JVRP(19146) = V(4119) -! JVRP(19147) = dARP(12066)/dV(4119) - JVRP(19147) = 1 -! JVRP(19148) = dARP(12067)/dV(4119) - JVRP(19148) = 1 -! JVRP(19149) = dARP(12068)/dV(3710) - JVRP(19149) = V(5255) -! JVRP(19150) = dARP(12068)/dV(5255) - JVRP(19150) = V(3710) -! JVRP(19151) = dARP(12069)/dV(3710) - JVRP(19151) = V(5252) -! JVRP(19152) = dARP(12069)/dV(5252) - JVRP(19152) = V(3710) -! JVRP(19153) = dARP(12070)/dV(3710) - JVRP(19153) = V(5256) -! JVRP(19154) = dARP(12070)/dV(5256) - JVRP(19154) = V(3710) -! JVRP(19155) = dARP(12071)/dV(3710) - JVRP(19155) = 1 -! JVRP(19156) = dARP(12072)/dV(3710) - JVRP(19156) = 1 -! JVRP(19157) = dARP(12073)/dV(3710) - JVRP(19157) = 1 -! JVRP(19158) = dARP(12074)/dV(4166) - JVRP(19158) = V(5255) -! JVRP(19159) = dARP(12074)/dV(5255) - JVRP(19159) = V(4166) -! JVRP(19160) = dARP(12075)/dV(4166) - JVRP(19160) = V(5252) -! JVRP(19161) = dARP(12075)/dV(5252) - JVRP(19161) = V(4166) -! JVRP(19162) = dARP(12076)/dV(4166) - JVRP(19162) = V(5252) -! JVRP(19163) = dARP(12076)/dV(5252) - JVRP(19163) = V(4166) -! JVRP(19164) = dARP(12077)/dV(4166) - JVRP(19164) = V(5256) -! JVRP(19165) = dARP(12077)/dV(5256) - JVRP(19165) = V(4166) -! JVRP(19166) = dARP(12078)/dV(4166) - JVRP(19166) = 1 -! JVRP(19167) = dARP(12079)/dV(4166) - JVRP(19167) = 1 -! JVRP(19168) = dARP(12080)/dV(4484) - JVRP(19168) = V(5255) -! JVRP(19169) = dARP(12080)/dV(5255) - JVRP(19169) = V(4484) -! JVRP(19170) = dARP(12081)/dV(4484) - JVRP(19170) = V(5255) -! JVRP(19171) = dARP(12081)/dV(5255) - JVRP(19171) = V(4484) -! JVRP(19172) = dARP(12082)/dV(4484) - JVRP(19172) = V(5255) -! JVRP(19173) = dARP(12082)/dV(5255) - JVRP(19173) = V(4484) -! JVRP(19174) = dARP(12083)/dV(4484) - JVRP(19174) = V(5252) -! JVRP(19175) = dARP(12083)/dV(5252) - JVRP(19175) = V(4484) -! JVRP(19176) = dARP(12084)/dV(4484) - JVRP(19176) = V(5253) -! JVRP(19177) = dARP(12084)/dV(5253) - JVRP(19177) = V(4484) -! JVRP(19178) = dARP(12085)/dV(4484) - JVRP(19178) = V(5256) -! JVRP(19179) = dARP(12085)/dV(5256) - JVRP(19179) = V(4484) -! JVRP(19180) = dARP(12086)/dV(4484) - JVRP(19180) = 1 -! JVRP(19181) = dARP(12087)/dV(4484) - JVRP(19181) = 1 -! JVRP(19182) = dARP(12088)/dV(4077) - JVRP(19182) = V(5255) -! JVRP(19183) = dARP(12088)/dV(5255) - JVRP(19183) = V(4077) -! JVRP(19184) = dARP(12089)/dV(4077) - JVRP(19184) = V(5252) -! JVRP(19185) = dARP(12089)/dV(5252) - JVRP(19185) = V(4077) -! JVRP(19186) = dARP(12090)/dV(4077) - JVRP(19186) = V(5256) -! JVRP(19187) = dARP(12090)/dV(5256) - JVRP(19187) = V(4077) -! JVRP(19188) = dARP(12091)/dV(4077) - JVRP(19188) = 1 -! JVRP(19189) = dARP(12092)/dV(4077) - JVRP(19189) = 1 -! JVRP(19190) = dARP(12093)/dV(4077) - JVRP(19190) = 1 -! JVRP(19191) = dARP(12094)/dV(1442) - JVRP(19191) = V(5250) -! JVRP(19192) = dARP(12094)/dV(5250) - JVRP(19192) = V(1442) -! JVRP(19193) = dARP(12095)/dV(1442) - JVRP(19193) = 1 -! JVRP(19194) = dARP(12096)/dV(859) - JVRP(19194) = V(5250) -! JVRP(19195) = dARP(12096)/dV(5250) - JVRP(19195) = V(859) -! JVRP(19196) = dARP(12097)/dV(859) - JVRP(19196) = 1 -! JVRP(19197) = dARP(12098)/dV(4900) - JVRP(19197) = V(5255) -! JVRP(19198) = dARP(12098)/dV(5255) - JVRP(19198) = V(4900) -! JVRP(19199) = dARP(12099)/dV(4900) - JVRP(19199) = V(5252) -! JVRP(19200) = dARP(12099)/dV(5252) - JVRP(19200) = V(4900) -! JVRP(19201) = dARP(12100)/dV(4900) - JVRP(19201) = V(5252) -! JVRP(19202) = dARP(12100)/dV(5252) - JVRP(19202) = V(4900) -! JVRP(19203) = dARP(12101)/dV(4900) - JVRP(19203) = V(5256) -! JVRP(19204) = dARP(12101)/dV(5256) - JVRP(19204) = V(4900) -! JVRP(19205) = dARP(12102)/dV(4900) - JVRP(19205) = 1 -! JVRP(19206) = dARP(12103)/dV(4900) - JVRP(19206) = 1 -! JVRP(19207) = dARP(12104)/dV(4900) - JVRP(19207) = 1 -! JVRP(19208) = dARP(12105)/dV(2636) - JVRP(19208) = V(5250) -! JVRP(19209) = dARP(12105)/dV(5250) - JVRP(19209) = V(2636) -! JVRP(19210) = dARP(12106)/dV(2636) - JVRP(19210) = 1 -! JVRP(19211) = dARP(12107)/dV(3706) - JVRP(19211) = V(5255) -! JVRP(19212) = dARP(12107)/dV(5255) - JVRP(19212) = V(3706) -! JVRP(19213) = dARP(12108)/dV(3706) - JVRP(19213) = V(5252) -! JVRP(19214) = dARP(12108)/dV(5252) - JVRP(19214) = V(3706) -! JVRP(19215) = dARP(12109)/dV(3706) - JVRP(19215) = V(5256) -! JVRP(19216) = dARP(12109)/dV(5256) - JVRP(19216) = V(3706) -! JVRP(19217) = dARP(12110)/dV(3706) - JVRP(19217) = 1 -! JVRP(19218) = dARP(12111)/dV(3706) - JVRP(19218) = 1 -! JVRP(19219) = dARP(12112)/dV(3706) - JVRP(19219) = 1 -! JVRP(19220) = dARP(12113)/dV(1093) - JVRP(19220) = V(5250) -! JVRP(19221) = dARP(12113)/dV(5250) - JVRP(19221) = V(1093) -! JVRP(19222) = dARP(12114)/dV(1093) - JVRP(19222) = 1 -! JVRP(19223) = dARP(12115)/dV(2661) - JVRP(19223) = V(5250) -! JVRP(19224) = dARP(12115)/dV(5250) - JVRP(19224) = V(2661) -! JVRP(19225) = dARP(12116)/dV(2661) - JVRP(19225) = 1 -! JVRP(19226) = dARP(12117)/dV(443) - JVRP(19226) = 1 -! JVRP(19227) = dARP(12118)/dV(442) - JVRP(19227) = V(5250) -! JVRP(19228) = dARP(12118)/dV(5250) - JVRP(19228) = V(442) -! JVRP(19229) = dARP(12119)/dV(442) - JVRP(19229) = 1 -! JVRP(19230) = dARP(12120)/dV(1351) - JVRP(19230) = V(5250) -! JVRP(19231) = dARP(12120)/dV(5250) - JVRP(19231) = V(1351) -! JVRP(19232) = dARP(12121)/dV(1351) - JVRP(19232) = 1 -! JVRP(19233) = dARP(12122)/dV(1689) - JVRP(19233) = 1 -! JVRP(19234) = dARP(12123)/dV(1676) - JVRP(19234) = V(5250) -! JVRP(19235) = dARP(12123)/dV(5250) - JVRP(19235) = V(1676) -! JVRP(19236) = dARP(12124)/dV(1676) - JVRP(19236) = 1 -! JVRP(19237) = dARP(12125)/dV(1424) - JVRP(19237) = V(5250) -! JVRP(19238) = dARP(12125)/dV(5250) - JVRP(19238) = V(1424) -! JVRP(19239) = dARP(12126)/dV(1424) - JVRP(19239) = 1 -! JVRP(19240) = dARP(12127)/dV(2340) - JVRP(19240) = V(5250) -! JVRP(19241) = dARP(12127)/dV(5250) - JVRP(19241) = V(2340) -! JVRP(19242) = dARP(12128)/dV(2340) - JVRP(19242) = 1 -! JVRP(19243) = dARP(12129)/dV(2533) - JVRP(19243) = V(5250) -! JVRP(19244) = dARP(12129)/dV(5250) - JVRP(19244) = V(2533) -! JVRP(19245) = dARP(12130)/dV(2533) - JVRP(19245) = 1 -! JVRP(19246) = dARP(12131)/dV(1260) - JVRP(19246) = V(5250) -! JVRP(19247) = dARP(12131)/dV(5250) - JVRP(19247) = V(1260) -! JVRP(19248) = dARP(12132)/dV(1260) - JVRP(19248) = 1 -! JVRP(19249) = dARP(12133)/dV(2458) - JVRP(19249) = V(5250) -! JVRP(19250) = dARP(12133)/dV(5250) - JVRP(19250) = V(2458) -! JVRP(19251) = dARP(12134)/dV(2458) - JVRP(19251) = 1 -! JVRP(19252) = dARP(12135)/dV(182) - JVRP(19252) = 1 -! JVRP(19253) = dARP(12136)/dV(2377) - JVRP(19253) = V(5250) -! JVRP(19254) = dARP(12136)/dV(5250) - JVRP(19254) = V(2377) -! JVRP(19255) = dARP(12137)/dV(821) - JVRP(19255) = V(5250) -! JVRP(19256) = dARP(12137)/dV(5250) - JVRP(19256) = V(821) -! JVRP(19257) = dARP(12138)/dV(821) - JVRP(19257) = 1 -! JVRP(19258) = dARP(12139)/dV(1071) - JVRP(19258) = V(5250) -! JVRP(19259) = dARP(12139)/dV(5250) - JVRP(19259) = V(1071) -! JVRP(19260) = dARP(12140)/dV(1071) - JVRP(19260) = 1 -! JVRP(19261) = dARP(12141)/dV(2495) - JVRP(19261) = 1 -! JVRP(19262) = dARP(12142)/dV(311) - JVRP(19262) = V(5250) -! JVRP(19263) = dARP(12142)/dV(5250) - JVRP(19263) = V(311) -! JVRP(19264) = dARP(12143)/dV(311) - JVRP(19264) = 1 -! JVRP(19265) = dARP(12144)/dV(5017) - JVRP(19265) = V(5255) -! JVRP(19266) = dARP(12144)/dV(5255) - JVRP(19266) = V(5017) -! JVRP(19267) = dARP(12145)/dV(5017) - JVRP(19267) = V(5255) -! JVRP(19268) = dARP(12145)/dV(5255) - JVRP(19268) = V(5017) -! JVRP(19269) = dARP(12146)/dV(5017) - JVRP(19269) = V(5255) -! JVRP(19270) = dARP(12146)/dV(5255) - JVRP(19270) = V(5017) -! JVRP(19271) = dARP(12147)/dV(5017) - JVRP(19271) = V(5252) -! JVRP(19272) = dARP(12147)/dV(5252) - JVRP(19272) = V(5017) -! JVRP(19273) = dARP(12148)/dV(5017) - JVRP(19273) = V(5253) -! JVRP(19274) = dARP(12148)/dV(5253) - JVRP(19274) = V(5017) -! JVRP(19275) = dARP(12149)/dV(5017) - JVRP(19275) = V(5256) -! JVRP(19276) = dARP(12149)/dV(5256) - JVRP(19276) = V(5017) -! JVRP(19277) = dARP(12150)/dV(5017) - JVRP(19277) = 1 -! JVRP(19278) = dARP(12151)/dV(5017) - JVRP(19278) = 1 -! JVRP(19279) = dARP(12152)/dV(5084) - JVRP(19279) = V(5255) -! JVRP(19280) = dARP(12152)/dV(5255) - JVRP(19280) = V(5084) -! JVRP(19281) = dARP(12153)/dV(5084) - JVRP(19281) = V(5252) -! JVRP(19282) = dARP(12153)/dV(5252) - JVRP(19282) = V(5084) -! JVRP(19283) = dARP(12154)/dV(5084) - JVRP(19283) = V(5252) -! JVRP(19284) = dARP(12154)/dV(5252) - JVRP(19284) = V(5084) -! JVRP(19285) = dARP(12155)/dV(5084) - JVRP(19285) = V(5256) -! JVRP(19286) = dARP(12155)/dV(5256) - JVRP(19286) = V(5084) -! JVRP(19287) = dARP(12156)/dV(5084) - JVRP(19287) = 1 -! JVRP(19288) = dARP(12157)/dV(5084) - JVRP(19288) = 1 -! JVRP(19289) = dARP(12158)/dV(5084) - JVRP(19289) = 1 -! JVRP(19290) = dARP(12159)/dV(4236) - JVRP(19290) = V(5255) -! JVRP(19291) = dARP(12159)/dV(5255) - JVRP(19291) = V(4236) -! JVRP(19292) = dARP(12160)/dV(4236) - JVRP(19292) = V(5252) -! JVRP(19293) = dARP(12160)/dV(5252) - JVRP(19293) = V(4236) -! JVRP(19294) = dARP(12161)/dV(4236) - JVRP(19294) = V(5256) -! JVRP(19295) = dARP(12161)/dV(5256) - JVRP(19295) = V(4236) -! JVRP(19296) = dARP(12162)/dV(4236) - JVRP(19296) = 1 -! JVRP(19297) = dARP(12163)/dV(4236) - JVRP(19297) = 1 -! JVRP(19298) = dARP(12164)/dV(1012) - JVRP(19298) = V(5250) -! JVRP(19299) = dARP(12164)/dV(5250) - JVRP(19299) = V(1012) -! JVRP(19300) = dARP(12165)/dV(1012) - JVRP(19300) = 1 -! JVRP(19301) = dARP(12166)/dV(2378) - JVRP(19301) = V(5250) -! JVRP(19302) = dARP(12166)/dV(5250) - JVRP(19302) = V(2378) -! JVRP(19303) = dARP(12167)/dV(2512) - JVRP(19303) = 1 -! JVRP(19304) = dARP(12168)/dV(317) - JVRP(19304) = V(5250) -! JVRP(19305) = dARP(12168)/dV(5250) - JVRP(19305) = V(317) -! JVRP(19306) = dARP(12169)/dV(317) - JVRP(19306) = 1 -! JVRP(19307) = dARP(12170)/dV(1237) - JVRP(19307) = V(5250) -! JVRP(19308) = dARP(12170)/dV(5250) - JVRP(19308) = V(1237) -! JVRP(19309) = dARP(12171)/dV(1237) - JVRP(19309) = 1 -! JVRP(19310) = dARP(12172)/dV(2155) - JVRP(19310) = V(5250) -! JVRP(19311) = dARP(12172)/dV(5250) - JVRP(19311) = V(2155) -! JVRP(19312) = dARP(12173)/dV(2155) - JVRP(19312) = 1 -! JVRP(19313) = dARP(12174)/dV(180) - JVRP(19313) = 1 -! JVRP(19314) = dARP(12175)/dV(5095) - JVRP(19314) = V(5256) -! JVRP(19315) = dARP(12175)/dV(5256) - JVRP(19315) = V(5095) -! JVRP(19316) = dARP(12176)/dV(5095) - JVRP(19316) = V(5256) -! JVRP(19317) = dARP(12176)/dV(5256) - JVRP(19317) = V(5095) -! JVRP(19318) = dARP(12177)/dV(5095) - JVRP(19318) = V(5258) -! JVRP(19319) = dARP(12177)/dV(5258) - JVRP(19319) = V(5095) -! JVRP(19320) = dARP(12178)/dV(5095) - JVRP(19320) = V(5258) -! JVRP(19321) = dARP(12178)/dV(5258) - JVRP(19321) = V(5095) -! JVRP(19322) = dARP(12179)/dV(5095) - JVRP(19322) = V(5250) -! JVRP(19323) = dARP(12179)/dV(5250) - JVRP(19323) = V(5095) -! JVRP(19324) = dARP(12180)/dV(5095) - JVRP(19324) = V(5250) -! JVRP(19325) = dARP(12180)/dV(5250) - JVRP(19325) = V(5095) -! JVRP(19326) = dARP(12181)/dV(5095) - JVRP(19326) = 1 -! JVRP(19327) = dARP(12182)/dV(3962) - JVRP(19327) = V(5255) -! JVRP(19328) = dARP(12182)/dV(5255) - JVRP(19328) = V(3962) -! JVRP(19329) = dARP(12183)/dV(3962) - JVRP(19329) = V(5252) -! JVRP(19330) = dARP(12183)/dV(5252) - JVRP(19330) = V(3962) -! JVRP(19331) = dARP(12184)/dV(3962) - JVRP(19331) = V(5252) -! JVRP(19332) = dARP(12184)/dV(5252) - JVRP(19332) = V(3962) -! JVRP(19333) = dARP(12185)/dV(3962) - JVRP(19333) = V(5256) -! JVRP(19334) = dARP(12185)/dV(5256) - JVRP(19334) = V(3962) -! JVRP(19335) = dARP(12186)/dV(3962) - JVRP(19335) = 1 -! JVRP(19336) = dARP(12187)/dV(3962) - JVRP(19336) = 1 -! JVRP(19337) = dARP(12188)/dV(3962) - JVRP(19337) = 1 -! JVRP(19338) = dARP(12189)/dV(4638) - JVRP(19338) = V(5255) -! JVRP(19339) = dARP(12189)/dV(5255) - JVRP(19339) = V(4638) -! JVRP(19340) = dARP(12190)/dV(4638) - JVRP(19340) = V(5255) -! JVRP(19341) = dARP(12190)/dV(5255) - JVRP(19341) = V(4638) -! JVRP(19342) = dARP(12191)/dV(4638) - JVRP(19342) = V(5255) -! JVRP(19343) = dARP(12191)/dV(5255) - JVRP(19343) = V(4638) -! JVRP(19344) = dARP(12192)/dV(4638) - JVRP(19344) = V(5252) -! JVRP(19345) = dARP(12192)/dV(5252) - JVRP(19345) = V(4638) -! JVRP(19346) = dARP(12193)/dV(4638) - JVRP(19346) = V(5253) -! JVRP(19347) = dARP(12193)/dV(5253) - JVRP(19347) = V(4638) -! JVRP(19348) = dARP(12194)/dV(4638) - JVRP(19348) = V(5256) -! JVRP(19349) = dARP(12194)/dV(5256) - JVRP(19349) = V(4638) -! JVRP(19350) = dARP(12195)/dV(4638) - JVRP(19350) = 1 -! JVRP(19351) = dARP(12196)/dV(4638) - JVRP(19351) = 1 -! JVRP(19352) = dARP(12197)/dV(3839) - JVRP(19352) = V(5255) -! JVRP(19353) = dARP(12197)/dV(5255) - JVRP(19353) = V(3839) -! JVRP(19354) = dARP(12198)/dV(3839) - JVRP(19354) = V(5252) -! JVRP(19355) = dARP(12198)/dV(5252) - JVRP(19355) = V(3839) -! JVRP(19356) = dARP(12199)/dV(3839) - JVRP(19356) = V(5256) -! JVRP(19357) = dARP(12199)/dV(5256) - JVRP(19357) = V(3839) -! JVRP(19358) = dARP(12200)/dV(3839) - JVRP(19358) = 1 -! JVRP(19359) = dARP(12201)/dV(5006) - JVRP(19359) = V(5255) -! JVRP(19360) = dARP(12201)/dV(5255) - JVRP(19360) = V(5006) -! JVRP(19361) = dARP(12202)/dV(5006) - JVRP(19361) = V(5255) -! JVRP(19362) = dARP(12202)/dV(5255) - JVRP(19362) = V(5006) -! JVRP(19363) = dARP(12203)/dV(5006) - JVRP(19363) = V(5255) -! JVRP(19364) = dARP(12203)/dV(5255) - JVRP(19364) = V(5006) -! JVRP(19365) = dARP(12204)/dV(5006) - JVRP(19365) = V(5252) -! JVRP(19366) = dARP(12204)/dV(5252) - JVRP(19366) = V(5006) -! JVRP(19367) = dARP(12205)/dV(5006) - JVRP(19367) = V(5253) -! JVRP(19368) = dARP(12205)/dV(5253) - JVRP(19368) = V(5006) -! JVRP(19369) = dARP(12206)/dV(5006) - JVRP(19369) = V(5256) -! JVRP(19370) = dARP(12206)/dV(5256) - JVRP(19370) = V(5006) -! JVRP(19371) = dARP(12207)/dV(5006) - JVRP(19371) = 1 -! JVRP(19372) = dARP(12208)/dV(5006) - JVRP(19372) = 1 -! JVRP(19373) = dARP(12209)/dV(3629) - JVRP(19373) = V(5250) -! JVRP(19374) = dARP(12209)/dV(5250) - JVRP(19374) = V(3629) -! JVRP(19375) = dARP(12210)/dV(3629) - JVRP(19375) = 1 -! JVRP(19376) = dARP(12211)/dV(2305) - JVRP(19376) = V(5250) -! JVRP(19377) = dARP(12211)/dV(5250) - JVRP(19377) = V(2305) -! JVRP(19378) = dARP(12212)/dV(2305) - JVRP(19378) = 1 -! JVRP(19379) = dARP(12213)/dV(2305) - JVRP(19379) = 1 -! JVRP(19380) = dARP(12214)/dV(679) - JVRP(19380) = 1 -! JVRP(19381) = dARP(12215)/dV(2265) - JVRP(19381) = V(5250) -! JVRP(19382) = dARP(12215)/dV(5250) - JVRP(19382) = V(2265) -! JVRP(19383) = dARP(12216)/dV(2265) - JVRP(19383) = 1 -! JVRP(19384) = dARP(12217)/dV(1586) - JVRP(19384) = V(5250) -! JVRP(19385) = dARP(12217)/dV(5250) - JVRP(19385) = V(1586) -! JVRP(19386) = dARP(12218)/dV(1586) - JVRP(19386) = 1 -! JVRP(19387) = dARP(12219)/dV(2022) - JVRP(19387) = V(5250) -! JVRP(19388) = dARP(12219)/dV(5250) - JVRP(19388) = V(2022) -! JVRP(19389) = dARP(12220)/dV(2022) - JVRP(19389) = 1 -! JVRP(19390) = dARP(12221)/dV(2022) - JVRP(19390) = 1 -! JVRP(19391) = dARP(12222)/dV(619) - JVRP(19391) = 1 -! JVRP(19392) = dARP(12223)/dV(2141) - JVRP(19392) = V(5250) -! JVRP(19393) = dARP(12223)/dV(5250) - JVRP(19393) = V(2141) -! JVRP(19394) = dARP(12224)/dV(2141) - JVRP(19394) = 1 -! JVRP(19395) = dARP(12225)/dV(1615) - JVRP(19395) = V(5250) -! JVRP(19396) = dARP(12225)/dV(5250) - JVRP(19396) = V(1615) -! JVRP(19397) = dARP(12226)/dV(1615) - JVRP(19397) = 1 -! JVRP(19398) = dARP(12227)/dV(5131) - JVRP(19398) = V(5255) -! JVRP(19399) = dARP(12227)/dV(5255) - JVRP(19399) = V(5131) -! JVRP(19400) = dARP(12228)/dV(5131) - JVRP(19400) = V(5255) -! JVRP(19401) = dARP(12228)/dV(5255) - JVRP(19401) = V(5131) -! JVRP(19402) = dARP(12229)/dV(5131) - JVRP(19402) = V(5255) -! JVRP(19403) = dARP(12229)/dV(5255) - JVRP(19403) = V(5131) -! JVRP(19404) = dARP(12230)/dV(5131) - JVRP(19404) = V(5252) -! JVRP(19405) = dARP(12230)/dV(5252) - JVRP(19405) = V(5131) -! JVRP(19406) = dARP(12231)/dV(5131) - JVRP(19406) = V(5253) -! JVRP(19407) = dARP(12231)/dV(5253) - JVRP(19407) = V(5131) -! JVRP(19408) = dARP(12232)/dV(5131) - JVRP(19408) = V(5256) -! JVRP(19409) = dARP(12232)/dV(5256) - JVRP(19409) = V(5131) -! JVRP(19410) = dARP(12233)/dV(5131) - JVRP(19410) = 1 -! JVRP(19411) = dARP(12234)/dV(5131) - JVRP(19411) = 1 -! JVRP(19412) = dARP(12235)/dV(5052) - JVRP(19412) = V(5255) -! JVRP(19413) = dARP(12235)/dV(5255) - JVRP(19413) = V(5052) -! JVRP(19414) = dARP(12236)/dV(5052) - JVRP(19414) = V(5255) -! JVRP(19415) = dARP(12236)/dV(5255) - JVRP(19415) = V(5052) -! JVRP(19416) = dARP(12237)/dV(5052) - JVRP(19416) = V(5255) -! JVRP(19417) = dARP(12237)/dV(5255) - JVRP(19417) = V(5052) -! JVRP(19418) = dARP(12238)/dV(5052) - JVRP(19418) = V(5252) -! JVRP(19419) = dARP(12238)/dV(5252) - JVRP(19419) = V(5052) -! JVRP(19420) = dARP(12239)/dV(5052) - JVRP(19420) = V(5253) -! JVRP(19421) = dARP(12239)/dV(5253) - JVRP(19421) = V(5052) -! JVRP(19422) = dARP(12240)/dV(5052) - JVRP(19422) = V(5256) -! JVRP(19423) = dARP(12240)/dV(5256) - JVRP(19423) = V(5052) -! JVRP(19424) = dARP(12241)/dV(5052) - JVRP(19424) = 1 -! JVRP(19425) = dARP(12242)/dV(5052) - JVRP(19425) = 1 -! JVRP(19426) = dARP(12243)/dV(5247) - JVRP(19426) = V(5255) -! JVRP(19427) = dARP(12243)/dV(5255) - JVRP(19427) = V(5247) -! JVRP(19428) = dARP(12244)/dV(5247) - JVRP(19428) = V(5252) -! JVRP(19429) = dARP(12244)/dV(5252) - JVRP(19429) = V(5247) -! JVRP(19430) = dARP(12245)/dV(5247) - JVRP(19430) = V(5256) -! JVRP(19431) = dARP(12245)/dV(5256) - JVRP(19431) = V(5247) -! JVRP(19432) = dARP(12246)/dV(5247) - JVRP(19432) = 1 -! JVRP(19433) = dARP(12247)/dV(5247) - JVRP(19433) = 1 -! JVRP(19434) = dARP(12248)/dV(4679) - JVRP(19434) = V(5255) -! JVRP(19435) = dARP(12248)/dV(5255) - JVRP(19435) = V(4679) -! JVRP(19436) = dARP(12249)/dV(4679) - JVRP(19436) = V(5255) -! JVRP(19437) = dARP(12249)/dV(5255) - JVRP(19437) = V(4679) -! JVRP(19438) = dARP(12250)/dV(4679) - JVRP(19438) = V(5255) -! JVRP(19439) = dARP(12250)/dV(5255) - JVRP(19439) = V(4679) -! JVRP(19440) = dARP(12251)/dV(4679) - JVRP(19440) = V(5252) -! JVRP(19441) = dARP(12251)/dV(5252) - JVRP(19441) = V(4679) -! JVRP(19442) = dARP(12252)/dV(4679) - JVRP(19442) = V(5253) -! JVRP(19443) = dARP(12252)/dV(5253) - JVRP(19443) = V(4679) -! JVRP(19444) = dARP(12253)/dV(4679) - JVRP(19444) = V(5256) -! JVRP(19445) = dARP(12253)/dV(5256) - JVRP(19445) = V(4679) -! JVRP(19446) = dARP(12254)/dV(4679) - JVRP(19446) = 1 -! JVRP(19447) = dARP(12255)/dV(4679) - JVRP(19447) = 1 -! JVRP(19448) = dARP(12256)/dV(4431) - JVRP(19448) = V(5255) -! JVRP(19449) = dARP(12256)/dV(5255) - JVRP(19449) = V(4431) -! JVRP(19450) = dARP(12257)/dV(4431) - JVRP(19450) = V(5255) -! JVRP(19451) = dARP(12257)/dV(5255) - JVRP(19451) = V(4431) -! JVRP(19452) = dARP(12258)/dV(4431) - JVRP(19452) = V(5255) -! JVRP(19453) = dARP(12258)/dV(5255) - JVRP(19453) = V(4431) -! JVRP(19454) = dARP(12259)/dV(4431) - JVRP(19454) = V(5252) -! JVRP(19455) = dARP(12259)/dV(5252) - JVRP(19455) = V(4431) -! JVRP(19456) = dARP(12260)/dV(4431) - JVRP(19456) = V(5253) -! JVRP(19457) = dARP(12260)/dV(5253) - JVRP(19457) = V(4431) -! JVRP(19458) = dARP(12261)/dV(4431) - JVRP(19458) = V(5256) -! JVRP(19459) = dARP(12261)/dV(5256) - JVRP(19459) = V(4431) -! JVRP(19460) = dARP(12262)/dV(4431) - JVRP(19460) = 1 -! JVRP(19461) = dARP(12263)/dV(4431) - JVRP(19461) = 1 -! JVRP(19462) = dARP(12264)/dV(2909) - JVRP(19462) = V(5250) -! JVRP(19463) = dARP(12264)/dV(5250) - JVRP(19463) = V(2909) -! JVRP(19464) = dARP(12265)/dV(3890) - JVRP(19464) = V(5255) -! JVRP(19465) = dARP(12265)/dV(5255) - JVRP(19465) = V(3890) -! JVRP(19466) = dARP(12266)/dV(3890) - JVRP(19466) = V(5252) -! JVRP(19467) = dARP(12266)/dV(5252) - JVRP(19467) = V(3890) -! JVRP(19468) = dARP(12267)/dV(3890) - JVRP(19468) = V(5252) -! JVRP(19469) = dARP(12267)/dV(5252) - JVRP(19469) = V(3890) -! JVRP(19470) = dARP(12268)/dV(3890) - JVRP(19470) = V(5256) -! JVRP(19471) = dARP(12268)/dV(5256) - JVRP(19471) = V(3890) -! JVRP(19472) = dARP(12269)/dV(3890) - JVRP(19472) = 1 -! JVRP(19473) = dARP(12270)/dV(3890) - JVRP(19473) = 1 -! JVRP(19474) = dARP(12271)/dV(3890) - JVRP(19474) = 1 -! JVRP(19475) = dARP(12272)/dV(507) - JVRP(19475) = V(5250) -! JVRP(19476) = dARP(12272)/dV(5250) - JVRP(19476) = V(507) -! JVRP(19477) = dARP(12273)/dV(1454) - JVRP(19477) = V(5250) -! JVRP(19478) = dARP(12273)/dV(5250) - JVRP(19478) = V(1454) -! JVRP(19479) = dARP(12274)/dV(1454) - JVRP(19479) = 1 -! JVRP(19480) = dARP(12275)/dV(2781) - JVRP(19480) = V(5250) -! JVRP(19481) = dARP(12275)/dV(5250) - JVRP(19481) = V(2781) -! JVRP(19482) = dARP(12276)/dV(2781) - JVRP(19482) = 1 -! JVRP(19483) = dARP(12277)/dV(830) - JVRP(19483) = V(5250) -! JVRP(19484) = dARP(12277)/dV(5250) - JVRP(19484) = V(830) -! JVRP(19485) = dARP(12278)/dV(830) - JVRP(19485) = 1 -! JVRP(19486) = dARP(12279)/dV(1657) - JVRP(19486) = V(5250) -! JVRP(19487) = dARP(12279)/dV(5250) - JVRP(19487) = V(1657) -! JVRP(19488) = dARP(12280)/dV(1657) - JVRP(19488) = 1 -! JVRP(19489) = dARP(12281)/dV(149) - JVRP(19489) = 1 -! JVRP(19490) = dARP(12282)/dV(1656) - JVRP(19490) = V(5250) -! JVRP(19491) = dARP(12282)/dV(5250) - JVRP(19491) = V(1656) -! JVRP(19492) = dARP(12283)/dV(467) - JVRP(19492) = V(5250) -! JVRP(19493) = dARP(12283)/dV(5250) - JVRP(19493) = V(467) -! JVRP(19494) = dARP(12284)/dV(1868) - JVRP(19494) = V(5250) -! JVRP(19495) = dARP(12284)/dV(5250) - JVRP(19495) = V(1868) -! JVRP(19496) = dARP(12285)/dV(1868) - JVRP(19496) = 1 -! JVRP(19497) = dARP(12286)/dV(618) - JVRP(19497) = 1 -! JVRP(19498) = dARP(12287)/dV(2154) - JVRP(19498) = V(5250) -! JVRP(19499) = dARP(12287)/dV(5250) - JVRP(19499) = V(2154) -! JVRP(19500) = dARP(12288)/dV(2154) - JVRP(19500) = 1 -! JVRP(19501) = dARP(12289)/dV(377) - JVRP(19501) = V(5250) -! JVRP(19502) = dARP(12289)/dV(5250) - JVRP(19502) = V(377) -! JVRP(19503) = dARP(12290)/dV(4764) - JVRP(19503) = V(5255) -! JVRP(19504) = dARP(12290)/dV(5255) - JVRP(19504) = V(4764) -! JVRP(19505) = dARP(12291)/dV(4764) - JVRP(19505) = V(5252) -! JVRP(19506) = dARP(12291)/dV(5252) - JVRP(19506) = V(4764) -! JVRP(19507) = dARP(12292)/dV(4764) - JVRP(19507) = V(5252) -! JVRP(19508) = dARP(12292)/dV(5252) - JVRP(19508) = V(4764) -! JVRP(19509) = dARP(12293)/dV(4764) - JVRP(19509) = V(5256) -! JVRP(19510) = dARP(12293)/dV(5256) - JVRP(19510) = V(4764) -! JVRP(19511) = dARP(12294)/dV(4764) - JVRP(19511) = 1 -! JVRP(19512) = dARP(12295)/dV(4764) - JVRP(19512) = 1 -! JVRP(19513) = dARP(12296)/dV(3497) - JVRP(19513) = V(5250) -! JVRP(19514) = dARP(12296)/dV(5250) - JVRP(19514) = V(3497) -! JVRP(19515) = dARP(12297)/dV(3497) - JVRP(19515) = 1 -! JVRP(19516) = dARP(12298)/dV(4363) - JVRP(19516) = V(5255) -! JVRP(19517) = dARP(12298)/dV(5255) - JVRP(19517) = V(4363) -! JVRP(19518) = dARP(12299)/dV(4363) - JVRP(19518) = V(5252) -! JVRP(19519) = dARP(12299)/dV(5252) - JVRP(19519) = V(4363) -! JVRP(19520) = dARP(12300)/dV(4363) - JVRP(19520) = V(5252) -! JVRP(19521) = dARP(12300)/dV(5252) - JVRP(19521) = V(4363) -! JVRP(19522) = dARP(12301)/dV(4363) - JVRP(19522) = V(5256) -! JVRP(19523) = dARP(12301)/dV(5256) - JVRP(19523) = V(4363) -! JVRP(19524) = dARP(12302)/dV(4363) - JVRP(19524) = 1 -! JVRP(19525) = dARP(12303)/dV(4363) - JVRP(19525) = 1 -! JVRP(19526) = dARP(12304)/dV(4363) - JVRP(19526) = 1 -! JVRP(19527) = dARP(12305)/dV(1195) - JVRP(19527) = V(5250) -! JVRP(19528) = dARP(12305)/dV(5250) - JVRP(19528) = V(1195) -! JVRP(19529) = dARP(12306)/dV(1195) - JVRP(19529) = 1 -! JVRP(19530) = dARP(12307)/dV(2250) - JVRP(19530) = V(5250) -! JVRP(19531) = dARP(12307)/dV(5250) - JVRP(19531) = V(2250) -! JVRP(19532) = dARP(12308)/dV(2250) - JVRP(19532) = 1 -! JVRP(19533) = dARP(12309)/dV(183) - JVRP(19533) = 1 -! JVRP(19534) = dARP(12310)/dV(452) - JVRP(19534) = V(5250) -! JVRP(19535) = dARP(12310)/dV(5250) - JVRP(19535) = V(452) -! JVRP(19536) = dARP(12311)/dV(958) - JVRP(19536) = V(5250) -! JVRP(19537) = dARP(12311)/dV(5250) - JVRP(19537) = V(958) -! JVRP(19538) = dARP(12312)/dV(2868) - JVRP(19538) = V(5250) -! JVRP(19539) = dARP(12312)/dV(5250) - JVRP(19539) = V(2868) -! JVRP(19540) = dARP(12313)/dV(2868) - JVRP(19540) = 1 -! JVRP(19541) = dARP(12314)/dV(2546) - JVRP(19541) = V(5250) -! JVRP(19542) = dARP(12314)/dV(5250) - JVRP(19542) = V(2546) -! JVRP(19543) = dARP(12315)/dV(2546) - JVRP(19543) = 1 -! JVRP(19544) = dARP(12316)/dV(1279) - JVRP(19544) = V(5250) -! JVRP(19545) = dARP(12316)/dV(5250) - JVRP(19545) = V(1279) -! JVRP(19546) = dARP(12317)/dV(1279) - JVRP(19546) = 1 -! JVRP(19547) = dARP(12318)/dV(44) - JVRP(19547) = 1 -! JVRP(19548) = dARP(12319)/dV(2797) - JVRP(19548) = V(5250) -! JVRP(19549) = dARP(12319)/dV(5250) - JVRP(19549) = V(2797) -! JVRP(19550) = dARP(12320)/dV(2797) - JVRP(19550) = 1 -! JVRP(19551) = dARP(12321)/dV(2797) - JVRP(19551) = 1 -! JVRP(19552) = dARP(12322)/dV(2145) - JVRP(19552) = 1 -! JVRP(19553) = dARP(12323)/dV(1397) - JVRP(19553) = V(5250) -! JVRP(19554) = dARP(12323)/dV(5250) - JVRP(19554) = V(1397) -! JVRP(19555) = dARP(12324)/dV(1397) - JVRP(19555) = 1 -! JVRP(19556) = dARP(12325)/dV(96) - JVRP(19556) = 1 -! JVRP(19557) = dARP(12326)/dV(301) - JVRP(19557) = V(5250) -! JVRP(19558) = dARP(12326)/dV(5250) - JVRP(19558) = V(301) -! JVRP(19559) = dARP(12327)/dV(1471) - JVRP(19559) = 1 -! JVRP(19560) = dARP(12328)/dV(1471) - JVRP(19560) = V(5250) -! JVRP(19561) = dARP(12328)/dV(5250) - JVRP(19561) = V(1471) -! JVRP(19562) = dARP(12329)/dV(2886) - JVRP(19562) = 1 -! JVRP(19563) = dARP(12330)/dV(2886) - JVRP(19563) = V(5250) -! JVRP(19564) = dARP(12330)/dV(5250) - JVRP(19564) = V(2886) -! JVRP(19565) = dARP(12331)/dV(420) - JVRP(19565) = V(5250) -! JVRP(19566) = dARP(12331)/dV(5250) - JVRP(19566) = V(420) -! JVRP(19567) = dARP(12332)/dV(1055) - JVRP(19567) = 1 -! JVRP(19568) = dARP(12333)/dV(1055) - JVRP(19568) = V(5250) -! JVRP(19569) = dARP(12333)/dV(5250) - JVRP(19569) = V(1055) -! JVRP(19570) = dARP(12334)/dV(2978) - JVRP(19570) = 1 -! JVRP(19571) = dARP(12335)/dV(2978) - JVRP(19571) = V(5250) -! JVRP(19572) = dARP(12335)/dV(5250) - JVRP(19572) = V(2978) -! JVRP(19573) = dARP(12336)/dV(1440) - JVRP(19573) = 1 -! JVRP(19574) = dARP(12337)/dV(1440) - JVRP(19574) = V(5250) -! JVRP(19575) = dARP(12337)/dV(5250) - JVRP(19575) = V(1440) -! JVRP(19576) = dARP(12338)/dV(945) - JVRP(19576) = 1 -! JVRP(19577) = dARP(12339)/dV(945) - JVRP(19577) = V(5250) -! JVRP(19578) = dARP(12339)/dV(5250) - JVRP(19578) = V(945) -! JVRP(19579) = dARP(12340)/dV(2842) - JVRP(19579) = 1 -! JVRP(19580) = dARP(12341)/dV(2842) - JVRP(19580) = V(5250) -! JVRP(19581) = dARP(12341)/dV(5250) - JVRP(19581) = V(2842) -! JVRP(19582) = dARP(12342)/dV(3336) - JVRP(19582) = 1 -! JVRP(19583) = dARP(12343)/dV(3336) - JVRP(19583) = 1 -! JVRP(19584) = dARP(12344)/dV(3336) - JVRP(19584) = V(5250) -! JVRP(19585) = dARP(12344)/dV(5250) - JVRP(19585) = V(3336) -! JVRP(19586) = dARP(12345)/dV(282) - JVRP(19586) = V(5250) -! JVRP(19587) = dARP(12345)/dV(5250) - JVRP(19587) = V(282) -! JVRP(19588) = dARP(12346)/dV(983) - JVRP(19588) = 1 -! JVRP(19589) = dARP(12347)/dV(983) - JVRP(19589) = V(5250) -! JVRP(19590) = dARP(12347)/dV(5250) - JVRP(19590) = V(983) -! JVRP(19591) = dARP(12348)/dV(2822) - JVRP(19591) = 1 -! JVRP(19592) = dARP(12349)/dV(2822) - JVRP(19592) = V(5250) -! JVRP(19593) = dARP(12349)/dV(5250) - JVRP(19593) = V(2822) -! JVRP(19594) = dARP(12350)/dV(4778) - JVRP(19594) = V(5255) -! JVRP(19595) = dARP(12350)/dV(5255) - JVRP(19595) = V(4778) -! JVRP(19596) = dARP(12351)/dV(4778) - JVRP(19596) = V(5252) -! JVRP(19597) = dARP(12351)/dV(5252) - JVRP(19597) = V(4778) -! JVRP(19598) = dARP(12352)/dV(4778) - JVRP(19598) = V(5252) -! JVRP(19599) = dARP(12352)/dV(5252) - JVRP(19599) = V(4778) -! JVRP(19600) = dARP(12353)/dV(4778) - JVRP(19600) = V(5256) -! JVRP(19601) = dARP(12353)/dV(5256) - JVRP(19601) = V(4778) -! JVRP(19602) = dARP(12354)/dV(4778) - JVRP(19602) = 1 -! JVRP(19603) = dARP(12355)/dV(4778) - JVRP(19603) = 1 -! JVRP(19604) = dARP(12356)/dV(4778) - JVRP(19604) = 1 -! JVRP(19605) = dARP(12357)/dV(3513) - JVRP(19605) = 1 -! JVRP(19606) = dARP(12358)/dV(3513) - JVRP(19606) = V(5256) -! JVRP(19607) = dARP(12358)/dV(5256) - JVRP(19607) = V(3513) -! JVRP(19608) = dARP(12359)/dV(3513) - JVRP(19608) = V(5250) -! JVRP(19609) = dARP(12359)/dV(5250) - JVRP(19609) = V(3513) -! JVRP(19610) = dARP(12360)/dV(4549) - JVRP(19610) = V(5255) -! JVRP(19611) = dARP(12360)/dV(5255) - JVRP(19611) = V(4549) -! JVRP(19612) = dARP(12361)/dV(4549) - JVRP(19612) = V(5252) -! JVRP(19613) = dARP(12361)/dV(5252) - JVRP(19613) = V(4549) -! JVRP(19614) = dARP(12362)/dV(4549) - JVRP(19614) = V(5256) -! JVRP(19615) = dARP(12362)/dV(5256) - JVRP(19615) = V(4549) -! JVRP(19616) = dARP(12363)/dV(4549) - JVRP(19616) = 1 -! JVRP(19617) = dARP(12364)/dV(4984) - JVRP(19617) = V(5255) -! JVRP(19618) = dARP(12364)/dV(5255) - JVRP(19618) = V(4984) -! JVRP(19619) = dARP(12365)/dV(4984) - JVRP(19619) = V(5255) -! JVRP(19620) = dARP(12365)/dV(5255) - JVRP(19620) = V(4984) -! JVRP(19621) = dARP(12366)/dV(4984) - JVRP(19621) = V(5252) -! JVRP(19622) = dARP(12366)/dV(5252) - JVRP(19622) = V(4984) -! JVRP(19623) = dARP(12367)/dV(4984) - JVRP(19623) = V(5253) -! JVRP(19624) = dARP(12367)/dV(5253) - JVRP(19624) = V(4984) -! JVRP(19625) = dARP(12368)/dV(4984) - JVRP(19625) = V(5256) -! JVRP(19626) = dARP(12368)/dV(5256) - JVRP(19626) = V(4984) -! JVRP(19627) = dARP(12369)/dV(4984) - JVRP(19627) = 1 -! JVRP(19628) = dARP(12370)/dV(805) - JVRP(19628) = 1 -! JVRP(19629) = dARP(12371)/dV(805) - JVRP(19629) = V(5250) -! JVRP(19630) = dARP(12371)/dV(5250) - JVRP(19630) = V(805) -! JVRP(19631) = dARP(12372)/dV(230) - JVRP(19631) = V(5250) -! JVRP(19632) = dARP(12372)/dV(5250) - JVRP(19632) = V(230) -! JVRP(19633) = dARP(12373)/dV(988) - JVRP(19633) = 1 -! JVRP(19634) = dARP(12374)/dV(988) - JVRP(19634) = V(5250) -! JVRP(19635) = dARP(12374)/dV(5250) - JVRP(19635) = V(988) -! JVRP(19636) = dARP(12375)/dV(2787) - JVRP(19636) = 1 -! JVRP(19637) = dARP(12376)/dV(2787) - JVRP(19637) = V(5250) -! JVRP(19638) = dARP(12376)/dV(5250) - JVRP(19638) = V(2787) -! JVRP(19639) = dARP(12377)/dV(1441) - JVRP(19639) = 1 -! JVRP(19640) = dARP(12378)/dV(1441) - JVRP(19640) = V(5250) -! JVRP(19641) = dARP(12378)/dV(5250) - JVRP(19641) = V(1441) -! JVRP(19642) = dARP(12379)/dV(1963) - JVRP(19642) = 1 -! JVRP(19643) = dARP(12380)/dV(1963) - JVRP(19643) = V(5250) -! JVRP(19644) = dARP(12380)/dV(5250) - JVRP(19644) = V(1963) -! JVRP(19645) = dARP(12381)/dV(2826) - JVRP(19645) = 1 -! JVRP(19646) = dARP(12382)/dV(636) - JVRP(19646) = 1 -! JVRP(19647) = dARP(12383)/dV(636) - JVRP(19647) = V(5250) -! JVRP(19648) = dARP(12383)/dV(5250) - JVRP(19648) = V(636) -! JVRP(19649) = dARP(12384)/dV(3537) - JVRP(19649) = 1 -! JVRP(19650) = dARP(12385)/dV(3537) - JVRP(19650) = V(5250) -! JVRP(19651) = dARP(12385)/dV(5250) - JVRP(19651) = V(3537) -! JVRP(19652) = dARP(12386)/dV(1908) - JVRP(19652) = 1 -! JVRP(19653) = dARP(12387)/dV(1908) - JVRP(19653) = 1 -! JVRP(19654) = dARP(12388)/dV(1908) - JVRP(19654) = V(5250) -! JVRP(19655) = dARP(12388)/dV(5250) - JVRP(19655) = V(1908) -! JVRP(19656) = dARP(12389)/dV(778) - JVRP(19656) = 1 -! JVRP(19657) = dARP(12390)/dV(3124) - JVRP(19657) = 1 -! JVRP(19658) = dARP(12391)/dV(3124) - JVRP(19658) = V(5250) -! JVRP(19659) = dARP(12391)/dV(5250) - JVRP(19659) = V(3124) -! JVRP(19660) = dARP(12392)/dV(1548) - JVRP(19660) = 1 -! JVRP(19661) = dARP(12393)/dV(1548) - JVRP(19661) = V(5250) -! JVRP(19662) = dARP(12393)/dV(5250) - JVRP(19662) = V(1548) -! JVRP(19663) = dARP(12394)/dV(3078) - JVRP(19663) = 1 -! JVRP(19664) = dARP(12395)/dV(3078) - JVRP(19664) = 1 -! JVRP(19665) = dARP(12396)/dV(3078) - JVRP(19665) = V(5250) -! JVRP(19666) = dARP(12396)/dV(5250) - JVRP(19666) = V(3078) -! JVRP(19667) = dARP(12397)/dV(564) - JVRP(19667) = 1 -! JVRP(19668) = dARP(12398)/dV(1832) - JVRP(19668) = 1 -! JVRP(19669) = dARP(12399)/dV(1832) - JVRP(19669) = V(5250) -! JVRP(19670) = dARP(12399)/dV(5250) - JVRP(19670) = V(1832) -! JVRP(19671) = dARP(12400)/dV(1690) - JVRP(19671) = 1 -! JVRP(19672) = dARP(12401)/dV(1690) - JVRP(19672) = V(5250) -! JVRP(19673) = dARP(12401)/dV(5250) - JVRP(19673) = V(1690) -! JVRP(19674) = dARP(12402)/dV(4419) - JVRP(19674) = V(5255) -! JVRP(19675) = dARP(12402)/dV(5255) - JVRP(19675) = V(4419) -! JVRP(19676) = dARP(12403)/dV(4419) - JVRP(19676) = V(5255) -! JVRP(19677) = dARP(12403)/dV(5255) - JVRP(19677) = V(4419) -! JVRP(19678) = dARP(12404)/dV(4419) - JVRP(19678) = V(5252) -! JVRP(19679) = dARP(12404)/dV(5252) - JVRP(19679) = V(4419) -! JVRP(19680) = dARP(12405)/dV(4419) - JVRP(19680) = V(5253) -! JVRP(19681) = dARP(12405)/dV(5253) - JVRP(19681) = V(4419) -! JVRP(19682) = dARP(12406)/dV(4419) - JVRP(19682) = V(5256) -! JVRP(19683) = dARP(12406)/dV(5256) - JVRP(19683) = V(4419) -! JVRP(19684) = dARP(12407)/dV(4419) - JVRP(19684) = 1 -! JVRP(19685) = dARP(12408)/dV(4235) - JVRP(19685) = V(5255) -! JVRP(19686) = dARP(12408)/dV(5255) - JVRP(19686) = V(4235) -! JVRP(19687) = dARP(12409)/dV(4235) - JVRP(19687) = V(5252) -! JVRP(19688) = dARP(12409)/dV(5252) - JVRP(19688) = V(4235) -! JVRP(19689) = dARP(12410)/dV(4235) - JVRP(19689) = V(5256) -! JVRP(19690) = dARP(12410)/dV(5256) - JVRP(19690) = V(4235) -! JVRP(19691) = dARP(12411)/dV(4235) - JVRP(19691) = 1 -! JVRP(19692) = dARP(12412)/dV(2981) - JVRP(19692) = 1 -! JVRP(19693) = dARP(12413)/dV(2981) - JVRP(19693) = 1 -! JVRP(19694) = dARP(12414)/dV(2981) - JVRP(19694) = V(5250) -! JVRP(19695) = dARP(12414)/dV(5250) - JVRP(19695) = V(2981) -! JVRP(19696) = dARP(12415)/dV(2999) - JVRP(19696) = 1 -! JVRP(19697) = dARP(12416)/dV(2999) - JVRP(19697) = V(5250) -! JVRP(19698) = dARP(12416)/dV(5250) - JVRP(19698) = V(2999) -! JVRP(19699) = dARP(12417)/dV(3000) - JVRP(19699) = 1 -! JVRP(19700) = dARP(12418)/dV(1633) - JVRP(19700) = 1 -! JVRP(19701) = dARP(12419)/dV(1633) - JVRP(19701) = V(5250) -! JVRP(19702) = dARP(12419)/dV(5250) - JVRP(19702) = V(1633) -! JVRP(19703) = dARP(12420)/dV(2084) - JVRP(19703) = 1 -! JVRP(19704) = dARP(12421)/dV(2084) - JVRP(19704) = 1 -! JVRP(19705) = dARP(12422)/dV(2084) - JVRP(19705) = V(5250) -! JVRP(19706) = dARP(12422)/dV(5250) - JVRP(19706) = V(2084) -! JVRP(19707) = dARP(12423)/dV(1723) - JVRP(19707) = 1 -! JVRP(19708) = dARP(12424)/dV(1722) - JVRP(19708) = 1 -! JVRP(19709) = dARP(12425)/dV(1722) - JVRP(19709) = V(5250) -! JVRP(19710) = dARP(12425)/dV(5250) - JVRP(19710) = V(1722) -! JVRP(19711) = dARP(12426)/dV(2625) - JVRP(19711) = 1 -! JVRP(19712) = dARP(12427)/dV(2625) - JVRP(19712) = 1 -! JVRP(19713) = dARP(12428)/dV(2625) - JVRP(19713) = V(5250) -! JVRP(19714) = dARP(12428)/dV(5250) - JVRP(19714) = V(2625) -! JVRP(19715) = dARP(12429)/dV(2625) - JVRP(19715) = V(5250) -! JVRP(19716) = dARP(12429)/dV(5250) - JVRP(19716) = V(2625) -! JVRP(19717) = dARP(12430)/dV(638) - JVRP(19717) = 1 -! JVRP(19718) = dARP(12431)/dV(1632) - JVRP(19718) = 1 -! JVRP(19719) = dARP(12432)/dV(1632) - JVRP(19719) = V(5250) -! JVRP(19720) = dARP(12432)/dV(5250) - JVRP(19720) = V(1632) -! JVRP(19721) = dARP(12433)/dV(2910) - JVRP(19721) = 1 -! JVRP(19722) = dARP(12434)/dV(2910) - JVRP(19722) = 1 -! JVRP(19723) = dARP(12435)/dV(2910) - JVRP(19723) = V(5250) -! JVRP(19724) = dARP(12435)/dV(5250) - JVRP(19724) = V(2910) -! JVRP(19725) = dARP(12436)/dV(4874) - JVRP(19725) = V(5255) -! JVRP(19726) = dARP(12436)/dV(5255) - JVRP(19726) = V(4874) -! JVRP(19727) = dARP(12437)/dV(4874) - JVRP(19727) = V(5255) -! JVRP(19728) = dARP(12437)/dV(5255) - JVRP(19728) = V(4874) -! JVRP(19729) = dARP(12438)/dV(4874) - JVRP(19729) = V(5252) -! JVRP(19730) = dARP(12438)/dV(5252) - JVRP(19730) = V(4874) -! JVRP(19731) = dARP(12439)/dV(4874) - JVRP(19731) = V(5253) -! JVRP(19732) = dARP(12439)/dV(5253) - JVRP(19732) = V(4874) -! JVRP(19733) = dARP(12440)/dV(4874) - JVRP(19733) = V(5256) -! JVRP(19734) = dARP(12440)/dV(5256) - JVRP(19734) = V(4874) -! JVRP(19735) = dARP(12441)/dV(4874) - JVRP(19735) = 1 -! JVRP(19736) = dARP(12442)/dV(4890) - JVRP(19736) = V(5255) -! JVRP(19737) = dARP(12442)/dV(5255) - JVRP(19737) = V(4890) -! JVRP(19738) = dARP(12443)/dV(4890) - JVRP(19738) = V(5252) -! JVRP(19739) = dARP(12443)/dV(5252) - JVRP(19739) = V(4890) -! JVRP(19740) = dARP(12444)/dV(4890) - JVRP(19740) = V(5252) -! JVRP(19741) = dARP(12444)/dV(5252) - JVRP(19741) = V(4890) -! JVRP(19742) = dARP(12445)/dV(4890) - JVRP(19742) = V(5256) -! JVRP(19743) = dARP(12445)/dV(5256) - JVRP(19743) = V(4890) -! JVRP(19744) = dARP(12446)/dV(4890) - JVRP(19744) = 1 -! JVRP(19745) = dARP(12447)/dV(4890) - JVRP(19745) = 1 -! JVRP(19746) = dARP(12448)/dV(4890) - JVRP(19746) = 1 -! JVRP(19747) = dARP(12449)/dV(3086) - JVRP(19747) = 1 -! JVRP(19748) = dARP(12450)/dV(3086) - JVRP(19748) = V(5250) -! JVRP(19749) = dARP(12450)/dV(5250) - JVRP(19749) = V(3086) -! JVRP(19750) = dARP(12451)/dV(1839) - JVRP(19750) = 1 -! JVRP(19751) = dARP(12452)/dV(1839) - JVRP(19751) = 1 -! JVRP(19752) = dARP(12453)/dV(1839) - JVRP(19752) = V(5250) -! JVRP(19753) = dARP(12453)/dV(5250) - JVRP(19753) = V(1839) -! JVRP(19754) = dARP(12454)/dV(745) - JVRP(19754) = 1 -! JVRP(19755) = dARP(12455)/dV(1571) - JVRP(19755) = 1 -! JVRP(19756) = dARP(12456)/dV(1571) - JVRP(19756) = V(5250) -! JVRP(19757) = dARP(12456)/dV(5250) - JVRP(19757) = V(1571) -! JVRP(19758) = dARP(12457)/dV(4521) - JVRP(19758) = V(5255) -! JVRP(19759) = dARP(12457)/dV(5255) - JVRP(19759) = V(4521) -! JVRP(19760) = dARP(12458)/dV(4521) - JVRP(19760) = V(5255) -! JVRP(19761) = dARP(12458)/dV(5255) - JVRP(19761) = V(4521) -! JVRP(19762) = dARP(12459)/dV(4521) - JVRP(19762) = V(5252) -! JVRP(19763) = dARP(12459)/dV(5252) - JVRP(19763) = V(4521) -! JVRP(19764) = dARP(12460)/dV(4521) - JVRP(19764) = V(5253) -! JVRP(19765) = dARP(12460)/dV(5253) - JVRP(19765) = V(4521) -! JVRP(19766) = dARP(12461)/dV(4521) - JVRP(19766) = V(5256) -! JVRP(19767) = dARP(12461)/dV(5256) - JVRP(19767) = V(4521) -! JVRP(19768) = dARP(12462)/dV(4521) - JVRP(19768) = 1 -! JVRP(19769) = dARP(12463)/dV(3151) - JVRP(19769) = 1 -! JVRP(19770) = dARP(12464)/dV(3151) - JVRP(19770) = V(5250) -! JVRP(19771) = dARP(12464)/dV(5250) - JVRP(19771) = V(3151) -! JVRP(19772) = dARP(12465)/dV(2052) - JVRP(19772) = 1 -! JVRP(19773) = dARP(12466)/dV(2052) - JVRP(19773) = 1 -! JVRP(19774) = dARP(12467)/dV(2052) - JVRP(19774) = V(5250) -! JVRP(19775) = dARP(12467)/dV(5250) - JVRP(19775) = V(2052) -! JVRP(19776) = dARP(12468)/dV(722) - JVRP(19776) = 1 -! JVRP(19777) = dARP(12469)/dV(1707) - JVRP(19777) = 1 -! JVRP(19778) = dARP(12470)/dV(1707) - JVRP(19778) = V(5250) -! JVRP(19779) = dARP(12470)/dV(5250) - JVRP(19779) = V(1707) -! JVRP(19780) = dARP(12471)/dV(4430) - JVRP(19780) = V(5255) -! JVRP(19781) = dARP(12471)/dV(5255) - JVRP(19781) = V(4430) -! JVRP(19782) = dARP(12472)/dV(4430) - JVRP(19782) = V(5255) -! JVRP(19783) = dARP(12472)/dV(5255) - JVRP(19783) = V(4430) -! JVRP(19784) = dARP(12473)/dV(4430) - JVRP(19784) = V(5252) -! JVRP(19785) = dARP(12473)/dV(5252) - JVRP(19785) = V(4430) -! JVRP(19786) = dARP(12474)/dV(4430) - JVRP(19786) = V(5253) -! JVRP(19787) = dARP(12474)/dV(5253) - JVRP(19787) = V(4430) -! JVRP(19788) = dARP(12475)/dV(4430) - JVRP(19788) = V(5256) -! JVRP(19789) = dARP(12475)/dV(5256) - JVRP(19789) = V(4430) -! JVRP(19790) = dARP(12476)/dV(4430) - JVRP(19790) = 1 -! JVRP(19791) = dARP(12477)/dV(3183) - JVRP(19791) = 1 -! JVRP(19792) = dARP(12478)/dV(3183) - JVRP(19792) = V(5250) -! JVRP(19793) = dARP(12478)/dV(5250) - JVRP(19793) = V(3183) -! JVRP(19794) = dARP(12479)/dV(2059) - JVRP(19794) = 1 -! JVRP(19795) = dARP(12480)/dV(2059) - JVRP(19795) = 1 -! JVRP(19796) = dARP(12481)/dV(2059) - JVRP(19796) = V(5250) -! JVRP(19797) = dARP(12481)/dV(5250) - JVRP(19797) = V(2059) -! JVRP(19798) = dARP(12482)/dV(698) - JVRP(19798) = 1 -! JVRP(19799) = dARP(12483)/dV(1744) - JVRP(19799) = 1 -! JVRP(19800) = dARP(12484)/dV(1744) - JVRP(19800) = V(5250) -! JVRP(19801) = dARP(12484)/dV(5250) - JVRP(19801) = V(1744) -! JVRP(19802) = dARP(12485)/dV(4443) - JVRP(19802) = V(5255) -! JVRP(19803) = dARP(12485)/dV(5255) - JVRP(19803) = V(4443) -! JVRP(19804) = dARP(12486)/dV(4443) - JVRP(19804) = V(5255) -! JVRP(19805) = dARP(12486)/dV(5255) - JVRP(19805) = V(4443) -! JVRP(19806) = dARP(12487)/dV(4443) - JVRP(19806) = V(5252) -! JVRP(19807) = dARP(12487)/dV(5252) - JVRP(19807) = V(4443) -! JVRP(19808) = dARP(12488)/dV(4443) - JVRP(19808) = V(5253) -! JVRP(19809) = dARP(12488)/dV(5253) - JVRP(19809) = V(4443) -! JVRP(19810) = dARP(12489)/dV(4443) - JVRP(19810) = V(5256) -! JVRP(19811) = dARP(12489)/dV(5256) - JVRP(19811) = V(4443) -! JVRP(19812) = dARP(12490)/dV(4443) - JVRP(19812) = 1 -! JVRP(19813) = dARP(12491)/dV(4710) - JVRP(19813) = 1 -! JVRP(19814) = dARP(12492)/dV(4710) - JVRP(19814) = V(5256) -! JVRP(19815) = dARP(12492)/dV(5256) - JVRP(19815) = V(4710) -! JVRP(19816) = dARP(12493)/dV(4710) - JVRP(19816) = V(5250) -! JVRP(19817) = dARP(12493)/dV(5250) - JVRP(19817) = V(4710) -! JVRP(19818) = dARP(12494)/dV(3184) - JVRP(19818) = 1 -! JVRP(19819) = dARP(12495)/dV(3184) - JVRP(19819) = V(5250) -! JVRP(19820) = dARP(12495)/dV(5250) - JVRP(19820) = V(3184) -! JVRP(19821) = dARP(12496)/dV(2121) - JVRP(19821) = 1 -! JVRP(19822) = dARP(12497)/dV(2121) - JVRP(19822) = 1 -! JVRP(19823) = dARP(12498)/dV(2121) - JVRP(19823) = V(5250) -! JVRP(19824) = dARP(12498)/dV(5250) - JVRP(19824) = V(2121) -! JVRP(19825) = dARP(12499)/dV(570) - JVRP(19825) = 1 -! JVRP(19826) = dARP(12500)/dV(1740) - JVRP(19826) = 1 -! JVRP(19827) = dARP(12501)/dV(1740) - JVRP(19827) = V(5250) -! JVRP(19828) = dARP(12501)/dV(5250) - JVRP(19828) = V(1740) -! JVRP(19829) = dARP(12502)/dV(4450) - JVRP(19829) = V(5255) -! JVRP(19830) = dARP(12502)/dV(5255) - JVRP(19830) = V(4450) -! JVRP(19831) = dARP(12503)/dV(4450) - JVRP(19831) = V(5255) -! JVRP(19832) = dARP(12503)/dV(5255) - JVRP(19832) = V(4450) -! JVRP(19833) = dARP(12504)/dV(4450) - JVRP(19833) = V(5252) -! JVRP(19834) = dARP(12504)/dV(5252) - JVRP(19834) = V(4450) -! JVRP(19835) = dARP(12505)/dV(4450) - JVRP(19835) = V(5253) -! JVRP(19836) = dARP(12505)/dV(5253) - JVRP(19836) = V(4450) -! JVRP(19837) = dARP(12506)/dV(4450) - JVRP(19837) = V(5256) -! JVRP(19838) = dARP(12506)/dV(5256) - JVRP(19838) = V(4450) -! JVRP(19839) = dARP(12507)/dV(4450) - JVRP(19839) = 1 -! JVRP(19840) = dARP(12508)/dV(3185) - JVRP(19840) = 1 -! JVRP(19841) = dARP(12509)/dV(3185) - JVRP(19841) = V(5250) -! JVRP(19842) = dARP(12509)/dV(5250) - JVRP(19842) = V(3185) -! JVRP(19843) = dARP(12510)/dV(474) - JVRP(19843) = V(5250) -! JVRP(19844) = dARP(12510)/dV(5250) - JVRP(19844) = V(474) -! JVRP(19845) = dARP(12511)/dV(1114) - JVRP(19845) = 1 -! JVRP(19846) = dARP(12512)/dV(1114) - JVRP(19846) = V(5250) -! JVRP(19847) = dARP(12512)/dV(5250) - JVRP(19847) = V(1114) -! JVRP(19848) = dARP(12513)/dV(2726) - JVRP(19848) = V(5250) -! JVRP(19849) = dARP(12513)/dV(5250) - JVRP(19849) = V(2726) -! JVRP(19850) = dARP(12514)/dV(2726) - JVRP(19850) = 1 -! JVRP(19851) = dARP(12515)/dV(2221) - JVRP(19851) = 1 -! JVRP(19852) = dARP(12516)/dV(2221) - JVRP(19852) = 1 -! JVRP(19853) = dARP(12517)/dV(2221) - JVRP(19853) = V(5250) -! JVRP(19854) = dARP(12517)/dV(5250) - JVRP(19854) = V(2221) -! JVRP(19855) = dARP(12518)/dV(575) - JVRP(19855) = 1 -! JVRP(19856) = dARP(12519)/dV(1674) - JVRP(19856) = 1 -! JVRP(19857) = dARP(12520)/dV(1674) - JVRP(19857) = V(5250) -! JVRP(19858) = dARP(12520)/dV(5250) - JVRP(19858) = V(1674) -! JVRP(19859) = dARP(12521)/dV(4417) - JVRP(19859) = V(5255) -! JVRP(19860) = dARP(12521)/dV(5255) - JVRP(19860) = V(4417) -! JVRP(19861) = dARP(12522)/dV(4417) - JVRP(19861) = V(5255) -! JVRP(19862) = dARP(12522)/dV(5255) - JVRP(19862) = V(4417) -! JVRP(19863) = dARP(12523)/dV(4417) - JVRP(19863) = V(5252) -! JVRP(19864) = dARP(12523)/dV(5252) - JVRP(19864) = V(4417) -! JVRP(19865) = dARP(12524)/dV(4417) - JVRP(19865) = V(5253) -! JVRP(19866) = dARP(12524)/dV(5253) - JVRP(19866) = V(4417) -! JVRP(19867) = dARP(12525)/dV(4417) - JVRP(19867) = V(5256) -! JVRP(19868) = dARP(12525)/dV(5256) - JVRP(19868) = V(4417) -! JVRP(19869) = dARP(12526)/dV(4417) - JVRP(19869) = 1 -! JVRP(19870) = dARP(12527)/dV(1192) - JVRP(19870) = V(5250) -! JVRP(19871) = dARP(12527)/dV(5250) - JVRP(19871) = V(1192) -! JVRP(19872) = dARP(12528)/dV(1192) - JVRP(19872) = 1 -! JVRP(19873) = dARP(12529)/dV(141) - JVRP(19873) = 1 -! JVRP(19874) = dARP(12530)/dV(246) - JVRP(19874) = V(5250) -! JVRP(19875) = dARP(12530)/dV(5250) - JVRP(19875) = V(246) -! JVRP(19876) = dARP(12531)/dV(1483) - JVRP(19876) = V(5250) -! JVRP(19877) = dARP(12531)/dV(5250) - JVRP(19877) = V(1483) -! JVRP(19878) = dARP(12532)/dV(934) - JVRP(19878) = V(5250) -! JVRP(19879) = dARP(12532)/dV(5250) - JVRP(19879) = V(934) -! JVRP(19880) = dARP(12533)/dV(934) - JVRP(19880) = 1 -! JVRP(19881) = dARP(12534)/dV(3370) - JVRP(19881) = 1 -! JVRP(19882) = dARP(12535)/dV(1508) - JVRP(19882) = V(5250) -! JVRP(19883) = dARP(12535)/dV(5250) - JVRP(19883) = V(1508) -! JVRP(19884) = dARP(12536)/dV(1508) - JVRP(19884) = 1 -! JVRP(19885) = dARP(12537)/dV(2577) - JVRP(19885) = 1 -! JVRP(19886) = dARP(12538)/dV(3478) - JVRP(19886) = V(5250) -! JVRP(19887) = dARP(12538)/dV(5250) - JVRP(19887) = V(3478) -! JVRP(19888) = dARP(12539)/dV(3571) - JVRP(19888) = V(5250) -! JVRP(19889) = dARP(12539)/dV(5250) - JVRP(19889) = V(3571) -! JVRP(19890) = dARP(12540)/dV(3571) - JVRP(19890) = 1 -! JVRP(19891) = dARP(12541)/dV(4308) - JVRP(19891) = V(5255) -! JVRP(19892) = dARP(12541)/dV(5255) - JVRP(19892) = V(4308) -! JVRP(19893) = dARP(12542)/dV(4308) - JVRP(19893) = V(5255) -! JVRP(19894) = dARP(12542)/dV(5255) - JVRP(19894) = V(4308) -! JVRP(19895) = dARP(12543)/dV(4308) - JVRP(19895) = V(5252) -! JVRP(19896) = dARP(12543)/dV(5252) - JVRP(19896) = V(4308) -! JVRP(19897) = dARP(12544)/dV(4308) - JVRP(19897) = V(5253) -! JVRP(19898) = dARP(12544)/dV(5253) - JVRP(19898) = V(4308) -! JVRP(19899) = dARP(12545)/dV(4308) - JVRP(19899) = V(5256) -! JVRP(19900) = dARP(12545)/dV(5256) - JVRP(19900) = V(4308) -! JVRP(19901) = dARP(12546)/dV(4308) - JVRP(19901) = 1 -! JVRP(19902) = dARP(12547)/dV(3783) - JVRP(19902) = V(5250) -! JVRP(19903) = dARP(12547)/dV(5250) - JVRP(19903) = V(3783) -! JVRP(19904) = dARP(12548)/dV(3783) - JVRP(19904) = 1 -! JVRP(19905) = dARP(12549)/dV(4221) - JVRP(19905) = V(5255) -! JVRP(19906) = dARP(12549)/dV(5255) - JVRP(19906) = V(4221) -! JVRP(19907) = dARP(12550)/dV(4221) - JVRP(19907) = V(5255) -! JVRP(19908) = dARP(12550)/dV(5255) - JVRP(19908) = V(4221) -! JVRP(19909) = dARP(12551)/dV(4221) - JVRP(19909) = V(5252) -! JVRP(19910) = dARP(12551)/dV(5252) - JVRP(19910) = V(4221) -! JVRP(19911) = dARP(12552)/dV(4221) - JVRP(19911) = V(5253) -! JVRP(19912) = dARP(12552)/dV(5253) - JVRP(19912) = V(4221) -! JVRP(19913) = dARP(12553)/dV(4221) - JVRP(19913) = V(5256) -! JVRP(19914) = dARP(12553)/dV(5256) - JVRP(19914) = V(4221) -! JVRP(19915) = dARP(12554)/dV(4221) - JVRP(19915) = 1 -! JVRP(19916) = dARP(12555)/dV(1376) - JVRP(19916) = V(5250) -! JVRP(19917) = dARP(12555)/dV(5250) - JVRP(19917) = V(1376) -! JVRP(19918) = dARP(12556)/dV(1376) - JVRP(19918) = 1 -! JVRP(19919) = dARP(12557)/dV(3375) - JVRP(19919) = 1 -! JVRP(19920) = dARP(12558)/dV(835) - JVRP(19920) = V(5250) -! JVRP(19921) = dARP(12558)/dV(5250) - JVRP(19921) = V(835) -! JVRP(19922) = dARP(12559)/dV(835) - JVRP(19922) = 1 -! JVRP(19923) = dARP(12560)/dV(3036) - JVRP(19923) = 1 -! JVRP(19924) = dARP(12561)/dV(4507) - JVRP(19924) = V(5250) -! JVRP(19925) = dARP(12561)/dV(5250) - JVRP(19925) = V(4507) -! JVRP(19926) = dARP(12562)/dV(4472) - JVRP(19926) = V(5255) -! JVRP(19927) = dARP(12562)/dV(5255) - JVRP(19927) = V(4472) -! JVRP(19928) = dARP(12563)/dV(4472) - JVRP(19928) = V(5255) -! JVRP(19929) = dARP(12563)/dV(5255) - JVRP(19929) = V(4472) -! JVRP(19930) = dARP(12564)/dV(4472) - JVRP(19930) = V(5252) -! JVRP(19931) = dARP(12564)/dV(5252) - JVRP(19931) = V(4472) -! JVRP(19932) = dARP(12565)/dV(4472) - JVRP(19932) = V(5253) -! JVRP(19933) = dARP(12565)/dV(5253) - JVRP(19933) = V(4472) -! JVRP(19934) = dARP(12566)/dV(4472) - JVRP(19934) = V(5256) -! JVRP(19935) = dARP(12566)/dV(5256) - JVRP(19935) = V(4472) -! JVRP(19936) = dARP(12567)/dV(4472) - JVRP(19936) = 1 -! JVRP(19937) = dARP(12568)/dV(1117) - JVRP(19937) = V(5250) -! JVRP(19938) = dARP(12568)/dV(5250) - JVRP(19938) = V(1117) -! JVRP(19939) = dARP(12569)/dV(1117) - JVRP(19939) = 1 -! JVRP(19940) = dARP(12570)/dV(2739) - JVRP(19940) = 1 -! JVRP(19941) = dARP(12571)/dV(977) - JVRP(19941) = V(5250) -! JVRP(19942) = dARP(12571)/dV(5250) - JVRP(19942) = V(977) -! JVRP(19943) = dARP(12572)/dV(977) - JVRP(19943) = 1 -! JVRP(19944) = dARP(12573)/dV(3402) - JVRP(19944) = 1 -! JVRP(19945) = dARP(12574)/dV(1420) - JVRP(19945) = V(5250) -! JVRP(19946) = dARP(12574)/dV(5250) - JVRP(19946) = V(1420) -! JVRP(19947) = dARP(12575)/dV(1420) - JVRP(19947) = 1 -! JVRP(19948) = dARP(12576)/dV(2935) - JVRP(19948) = 1 -! JVRP(19949) = dARP(12577)/dV(3729) - JVRP(19949) = V(5250) -! JVRP(19950) = dARP(12577)/dV(5250) - JVRP(19950) = V(3729) -! JVRP(19951) = dARP(12578)/dV(3729) - JVRP(19951) = 1 -! JVRP(19952) = dARP(12579)/dV(4241) - JVRP(19952) = V(5255) -! JVRP(19953) = dARP(12579)/dV(5255) - JVRP(19953) = V(4241) -! JVRP(19954) = dARP(12580)/dV(4241) - JVRP(19954) = V(5255) -! JVRP(19955) = dARP(12580)/dV(5255) - JVRP(19955) = V(4241) -! JVRP(19956) = dARP(12581)/dV(4241) - JVRP(19956) = V(5252) -! JVRP(19957) = dARP(12581)/dV(5252) - JVRP(19957) = V(4241) -! JVRP(19958) = dARP(12582)/dV(4241) - JVRP(19958) = V(5253) -! JVRP(19959) = dARP(12582)/dV(5253) - JVRP(19959) = V(4241) -! JVRP(19960) = dARP(12583)/dV(4241) - JVRP(19960) = V(5256) -! JVRP(19961) = dARP(12583)/dV(5256) - JVRP(19961) = V(4241) -! JVRP(19962) = dARP(12584)/dV(4241) - JVRP(19962) = 1 -! JVRP(19963) = dARP(12585)/dV(4202) - JVRP(19963) = V(5255) -! JVRP(19964) = dARP(12585)/dV(5255) - JVRP(19964) = V(4202) -! JVRP(19965) = dARP(12586)/dV(4202) - JVRP(19965) = V(5255) -! JVRP(19966) = dARP(12586)/dV(5255) - JVRP(19966) = V(4202) -! JVRP(19967) = dARP(12587)/dV(4202) - JVRP(19967) = V(5252) -! JVRP(19968) = dARP(12587)/dV(5252) - JVRP(19968) = V(4202) -! JVRP(19969) = dARP(12588)/dV(4202) - JVRP(19969) = V(5253) -! JVRP(19970) = dARP(12588)/dV(5253) - JVRP(19970) = V(4202) -! JVRP(19971) = dARP(12589)/dV(4202) - JVRP(19971) = V(5256) -! JVRP(19972) = dARP(12589)/dV(5256) - JVRP(19972) = V(4202) -! JVRP(19973) = dARP(12590)/dV(4202) - JVRP(19973) = 1 -! JVRP(19974) = dARP(12591)/dV(4770) - JVRP(19974) = V(5255) -! JVRP(19975) = dARP(12591)/dV(5255) - JVRP(19975) = V(4770) -! JVRP(19976) = dARP(12592)/dV(4770) - JVRP(19976) = V(5255) -! JVRP(19977) = dARP(12592)/dV(5255) - JVRP(19977) = V(4770) -! JVRP(19978) = dARP(12593)/dV(4770) - JVRP(19978) = V(5255) -! JVRP(19979) = dARP(12593)/dV(5255) - JVRP(19979) = V(4770) -! JVRP(19980) = dARP(12594)/dV(4770) - JVRP(19980) = V(5252) -! JVRP(19981) = dARP(12594)/dV(5252) - JVRP(19981) = V(4770) -! JVRP(19982) = dARP(12595)/dV(4770) - JVRP(19982) = V(5253) -! JVRP(19983) = dARP(12595)/dV(5253) - JVRP(19983) = V(4770) -! JVRP(19984) = dARP(12596)/dV(4770) - JVRP(19984) = V(5256) -! JVRP(19985) = dARP(12596)/dV(5256) - JVRP(19985) = V(4770) -! JVRP(19986) = dARP(12597)/dV(4770) - JVRP(19986) = 1 -! JVRP(19987) = dARP(12598)/dV(4770) - JVRP(19987) = 1 -! JVRP(19988) = dARP(12599)/dV(2769) - JVRP(19988) = V(5250) -! JVRP(19989) = dARP(12599)/dV(5250) - JVRP(19989) = V(2769) -! JVRP(19990) = dARP(12600)/dV(2769) - JVRP(19990) = 1 -! JVRP(19991) = dARP(12601)/dV(2769) - JVRP(19991) = 1 -! JVRP(19992) = dARP(12602)/dV(2430) - JVRP(19992) = 1 -! JVRP(19993) = dARP(12603)/dV(4808) - JVRP(19993) = V(5255) -! JVRP(19994) = dARP(12603)/dV(5255) - JVRP(19994) = V(4808) -! JVRP(19995) = dARP(12604)/dV(4808) - JVRP(19995) = V(5255) -! JVRP(19996) = dARP(12604)/dV(5255) - JVRP(19996) = V(4808) -! JVRP(19997) = dARP(12605)/dV(4808) - JVRP(19997) = V(5255) -! JVRP(19998) = dARP(12605)/dV(5255) - JVRP(19998) = V(4808) -! JVRP(19999) = dARP(12606)/dV(4808) - JVRP(19999) = V(5252) -! JVRP(20000) = dARP(12606)/dV(5252) - JVRP(20000) = V(4808) -! JVRP(20001) = dARP(12607)/dV(4808) - JVRP(20001) = V(5253) -! JVRP(20002) = dARP(12607)/dV(5253) - JVRP(20002) = V(4808) -! JVRP(20003) = dARP(12608)/dV(4808) - JVRP(20003) = V(5256) -! JVRP(20004) = dARP(12608)/dV(5256) - JVRP(20004) = V(4808) -! JVRP(20005) = dARP(12609)/dV(4808) - JVRP(20005) = 1 -! JVRP(20006) = dARP(12610)/dV(4808) - JVRP(20006) = 1 -! JVRP(20007) = dARP(12611)/dV(994) - JVRP(20007) = V(5250) -! JVRP(20008) = dARP(12611)/dV(5250) - JVRP(20008) = V(994) -! JVRP(20009) = dARP(12612)/dV(994) - JVRP(20009) = 1 -! JVRP(20010) = dARP(12613)/dV(170) - JVRP(20010) = 1 -! JVRP(20011) = dARP(12614)/dV(53) - JVRP(20011) = V(5250) -! JVRP(20012) = dARP(12614)/dV(5250) - JVRP(20012) = V(53) -! JVRP(20013) = dARP(12615)/dV(1342) - JVRP(20013) = V(5250) -! JVRP(20014) = dARP(12615)/dV(5250) - JVRP(20014) = V(1342) -! JVRP(20015) = dARP(12616)/dV(1342) - JVRP(20015) = 1 -! JVRP(20016) = dARP(12617)/dV(3371) - JVRP(20016) = 1 -! JVRP(20017) = dARP(12618)/dV(913) - JVRP(20017) = V(5250) -! JVRP(20018) = dARP(12618)/dV(5250) - JVRP(20018) = V(913) -! JVRP(20019) = dARP(12619)/dV(913) - JVRP(20019) = 1 -! JVRP(20020) = dARP(12620)/dV(2986) - JVRP(20020) = 1 -! JVRP(20021) = dARP(12621)/dV(3742) - JVRP(20021) = V(5250) -! JVRP(20022) = dARP(12621)/dV(5250) - JVRP(20022) = V(3742) -! JVRP(20023) = dARP(12622)/dV(3742) - JVRP(20023) = 1 -! JVRP(20024) = dARP(12623)/dV(4253) - JVRP(20024) = V(5255) -! JVRP(20025) = dARP(12623)/dV(5255) - JVRP(20025) = V(4253) -! JVRP(20026) = dARP(12624)/dV(4253) - JVRP(20026) = V(5255) -! JVRP(20027) = dARP(12624)/dV(5255) - JVRP(20027) = V(4253) -! JVRP(20028) = dARP(12625)/dV(4253) - JVRP(20028) = V(5252) -! JVRP(20029) = dARP(12625)/dV(5252) - JVRP(20029) = V(4253) -! JVRP(20030) = dARP(12626)/dV(4253) - JVRP(20030) = V(5253) -! JVRP(20031) = dARP(12626)/dV(5253) - JVRP(20031) = V(4253) -! JVRP(20032) = dARP(12627)/dV(4253) - JVRP(20032) = V(5256) -! JVRP(20033) = dARP(12627)/dV(5256) - JVRP(20033) = V(4253) -! JVRP(20034) = dARP(12628)/dV(4253) - JVRP(20034) = 1 -! JVRP(20035) = dARP(12629)/dV(1426) - JVRP(20035) = V(5250) -! JVRP(20036) = dARP(12629)/dV(5250) - JVRP(20036) = V(1426) -! JVRP(20037) = dARP(12630)/dV(1426) - JVRP(20037) = 1 -! JVRP(20038) = dARP(12631)/dV(3400) - JVRP(20038) = 1 -! JVRP(20039) = dARP(12632)/dV(1472) - JVRP(20039) = V(5250) -! JVRP(20040) = dARP(12632)/dV(5250) - JVRP(20040) = V(1472) -! JVRP(20041) = dARP(12633)/dV(1472) - JVRP(20041) = 1 -! JVRP(20042) = dARP(12634)/dV(3347) - JVRP(20042) = 1 -! JVRP(20043) = dARP(12635)/dV(1278) - JVRP(20043) = V(5250) -! JVRP(20044) = dARP(12635)/dV(5250) - JVRP(20044) = V(1278) -! JVRP(20045) = dARP(12636)/dV(1278) - JVRP(20045) = 1 -! JVRP(20046) = dARP(12637)/dV(2733) - JVRP(20046) = 1 -! JVRP(20047) = dARP(12638)/dV(3595) - JVRP(20047) = V(5250) -! JVRP(20048) = dARP(12638)/dV(5250) - JVRP(20048) = V(3595) -! JVRP(20049) = dARP(12639)/dV(3595) - JVRP(20049) = 1 -! JVRP(20050) = dARP(12640)/dV(4013) - JVRP(20050) = V(5255) -! JVRP(20051) = dARP(12640)/dV(5255) - JVRP(20051) = V(4013) -! JVRP(20052) = dARP(12641)/dV(4013) - JVRP(20052) = V(5255) -! JVRP(20053) = dARP(12641)/dV(5255) - JVRP(20053) = V(4013) -! JVRP(20054) = dARP(12642)/dV(4013) - JVRP(20054) = V(5252) -! JVRP(20055) = dARP(12642)/dV(5252) - JVRP(20055) = V(4013) -! JVRP(20056) = dARP(12643)/dV(4013) - JVRP(20056) = V(5253) -! JVRP(20057) = dARP(12643)/dV(5253) - JVRP(20057) = V(4013) -! JVRP(20058) = dARP(12644)/dV(4013) - JVRP(20058) = V(5256) -! JVRP(20059) = dARP(12644)/dV(5256) - JVRP(20059) = V(4013) -! JVRP(20060) = dARP(12645)/dV(4013) - JVRP(20060) = 1 -! JVRP(20061) = dARP(12646)/dV(1169) - JVRP(20061) = V(5250) -! JVRP(20062) = dARP(12646)/dV(5250) - JVRP(20062) = V(1169) -! JVRP(20063) = dARP(12647)/dV(1169) - JVRP(20063) = 1 -! JVRP(20064) = dARP(12648)/dV(3329) - JVRP(20064) = 1 -! JVRP(20065) = dARP(12649)/dV(825) - JVRP(20065) = V(5250) -! JVRP(20066) = dARP(12649)/dV(5250) - JVRP(20066) = V(825) -! JVRP(20067) = dARP(12650)/dV(825) - JVRP(20067) = 1 -! JVRP(20068) = dARP(12651)/dV(2903) - JVRP(20068) = 1 -! JVRP(20069) = dARP(12652)/dV(3732) - JVRP(20069) = V(5250) -! JVRP(20070) = dARP(12652)/dV(5250) - JVRP(20070) = V(3732) -! JVRP(20071) = dARP(12653)/dV(3732) - JVRP(20071) = 1 -! JVRP(20072) = dARP(12654)/dV(4046) - JVRP(20072) = V(5255) -! JVRP(20073) = dARP(12654)/dV(5255) - JVRP(20073) = V(4046) -! JVRP(20074) = dARP(12655)/dV(4046) - JVRP(20074) = V(5255) -! JVRP(20075) = dARP(12655)/dV(5255) - JVRP(20075) = V(4046) -! JVRP(20076) = dARP(12656)/dV(4046) - JVRP(20076) = V(5252) -! JVRP(20077) = dARP(12656)/dV(5252) - JVRP(20077) = V(4046) -! JVRP(20078) = dARP(12657)/dV(4046) - JVRP(20078) = V(5253) -! JVRP(20079) = dARP(12657)/dV(5253) - JVRP(20079) = V(4046) -! JVRP(20080) = dARP(12658)/dV(4046) - JVRP(20080) = V(5256) -! JVRP(20081) = dARP(12658)/dV(5256) - JVRP(20081) = V(4046) -! JVRP(20082) = dARP(12659)/dV(4046) - JVRP(20082) = 1 -! JVRP(20083) = dARP(12660)/dV(3541) - JVRP(20083) = V(5250) -! JVRP(20084) = dARP(12660)/dV(5250) - JVRP(20084) = V(3541) -! JVRP(20085) = dARP(12661)/dV(4404) - JVRP(20085) = V(5255) -! JVRP(20086) = dARP(12661)/dV(5255) - JVRP(20086) = V(4404) -! JVRP(20087) = dARP(12662)/dV(4404) - JVRP(20087) = V(5255) -! JVRP(20088) = dARP(12662)/dV(5255) - JVRP(20088) = V(4404) -! JVRP(20089) = dARP(12663)/dV(4404) - JVRP(20089) = V(5252) -! JVRP(20090) = dARP(12663)/dV(5252) - JVRP(20090) = V(4404) -! JVRP(20091) = dARP(12664)/dV(4404) - JVRP(20091) = V(5253) -! JVRP(20092) = dARP(12664)/dV(5253) - JVRP(20092) = V(4404) -! JVRP(20093) = dARP(12665)/dV(4404) - JVRP(20093) = V(5256) -! JVRP(20094) = dARP(12665)/dV(5256) - JVRP(20094) = V(4404) -! JVRP(20095) = dARP(12666)/dV(4404) - JVRP(20095) = 1 -! JVRP(20096) = dARP(12667)/dV(1309) - JVRP(20096) = V(5250) -! JVRP(20097) = dARP(12667)/dV(5250) - JVRP(20097) = V(1309) -! JVRP(20098) = dARP(12668)/dV(1309) - JVRP(20098) = 1 -! JVRP(20099) = dARP(12669)/dV(3574) - JVRP(20099) = 1 -! JVRP(20100) = dARP(12670)/dV(1504) - JVRP(20100) = V(5250) -! JVRP(20101) = dARP(12670)/dV(5250) - JVRP(20101) = V(1504) -! JVRP(20102) = dARP(12671)/dV(1504) - JVRP(20102) = 1 -! JVRP(20103) = dARP(12672)/dV(3361) - JVRP(20103) = 1 -! JVRP(20104) = dARP(12673)/dV(3673) - JVRP(20104) = V(5250) -! JVRP(20105) = dARP(12673)/dV(5250) - JVRP(20105) = V(3673) -! JVRP(20106) = dARP(12674)/dV(3673) - JVRP(20106) = 1 -! JVRP(20107) = dARP(12675)/dV(4536) - JVRP(20107) = V(5255) -! JVRP(20108) = dARP(12675)/dV(5255) - JVRP(20108) = V(4536) -! JVRP(20109) = dARP(12676)/dV(4536) - JVRP(20109) = V(5255) -! JVRP(20110) = dARP(12676)/dV(5255) - JVRP(20110) = V(4536) -! JVRP(20111) = dARP(12677)/dV(4536) - JVRP(20111) = V(5252) -! JVRP(20112) = dARP(12677)/dV(5252) - JVRP(20112) = V(4536) -! JVRP(20113) = dARP(12678)/dV(4536) - JVRP(20113) = V(5253) -! JVRP(20114) = dARP(12678)/dV(5253) - JVRP(20114) = V(4536) -! JVRP(20115) = dARP(12679)/dV(4536) - JVRP(20115) = V(5256) -! JVRP(20116) = dARP(12679)/dV(5256) - JVRP(20116) = V(4536) -! JVRP(20117) = dARP(12680)/dV(4536) - JVRP(20117) = 1 -! JVRP(20118) = dARP(12681)/dV(2548) - JVRP(20118) = V(5250) -! JVRP(20119) = dARP(12681)/dV(5250) - JVRP(20119) = V(2548) -! JVRP(20120) = dARP(12682)/dV(2228) - JVRP(20120) = V(5250) -! JVRP(20121) = dARP(12682)/dV(5250) - JVRP(20121) = V(2228) -! JVRP(20122) = dARP(12683)/dV(2228) - JVRP(20122) = 1 -! JVRP(20123) = dARP(12684)/dV(2538) - JVRP(20123) = V(5250) -! JVRP(20124) = dARP(12684)/dV(5250) - JVRP(20124) = V(2538) -! JVRP(20125) = dARP(12685)/dV(2538) - JVRP(20125) = 1 -! JVRP(20126) = dARP(12686)/dV(1118) - JVRP(20126) = V(5250) -! JVRP(20127) = dARP(12686)/dV(5250) - JVRP(20127) = V(1118) -! JVRP(20128) = dARP(12687)/dV(1118) - JVRP(20128) = 1 -! JVRP(20129) = dARP(12688)/dV(3596) - JVRP(20129) = 1 -! JVRP(20130) = dARP(12689)/dV(1025) - JVRP(20130) = V(5250) -! JVRP(20131) = dARP(12689)/dV(5250) - JVRP(20131) = V(1025) -! JVRP(20132) = dARP(12690)/dV(1025) - JVRP(20132) = 1 -! JVRP(20133) = dARP(12691)/dV(3414) - JVRP(20133) = 1 -! JVRP(20134) = dARP(12692)/dV(3787) - JVRP(20134) = V(5250) -! JVRP(20135) = dARP(12692)/dV(5250) - JVRP(20135) = V(3787) -! JVRP(20136) = dARP(12693)/dV(3787) - JVRP(20136) = 1 -! JVRP(20137) = dARP(12694)/dV(4218) - JVRP(20137) = V(5255) -! JVRP(20138) = dARP(12694)/dV(5255) - JVRP(20138) = V(4218) -! JVRP(20139) = dARP(12695)/dV(4218) - JVRP(20139) = V(5255) -! JVRP(20140) = dARP(12695)/dV(5255) - JVRP(20140) = V(4218) -! JVRP(20141) = dARP(12696)/dV(4218) - JVRP(20141) = V(5252) -! JVRP(20142) = dARP(12696)/dV(5252) - JVRP(20142) = V(4218) -! JVRP(20143) = dARP(12697)/dV(4218) - JVRP(20143) = V(5253) -! JVRP(20144) = dARP(12697)/dV(5253) - JVRP(20144) = V(4218) -! JVRP(20145) = dARP(12698)/dV(4218) - JVRP(20145) = V(5256) -! JVRP(20146) = dARP(12698)/dV(5256) - JVRP(20146) = V(4218) -! JVRP(20147) = dARP(12699)/dV(4218) - JVRP(20147) = 1 -! JVRP(20148) = dARP(12700)/dV(2854) - JVRP(20148) = V(5250) -! JVRP(20149) = dARP(12700)/dV(5250) - JVRP(20149) = V(2854) -! JVRP(20150) = dARP(12701)/dV(2120) - JVRP(20150) = V(5250) -! JVRP(20151) = dARP(12701)/dV(5250) - JVRP(20151) = V(2120) -! JVRP(20152) = dARP(12702)/dV(2120) - JVRP(20152) = 1 -! JVRP(20153) = dARP(12703)/dV(2929) - JVRP(20153) = V(5250) -! JVRP(20154) = dARP(12703)/dV(5250) - JVRP(20154) = V(2929) -! JVRP(20155) = dARP(12704)/dV(2929) - JVRP(20155) = 1 -! JVRP(20156) = dARP(12705)/dV(3937) - JVRP(20156) = V(5255) -! JVRP(20157) = dARP(12705)/dV(5255) - JVRP(20157) = V(3937) -! JVRP(20158) = dARP(12706)/dV(3937) - JVRP(20158) = V(5252) -! JVRP(20159) = dARP(12706)/dV(5252) - JVRP(20159) = V(3937) -! JVRP(20160) = dARP(12707)/dV(3937) - JVRP(20160) = V(5256) -! JVRP(20161) = dARP(12707)/dV(5256) - JVRP(20161) = V(3937) -! JVRP(20162) = dARP(12708)/dV(3937) - JVRP(20162) = 1 -! JVRP(20163) = dARP(12709)/dV(3746) - JVRP(20163) = V(5255) -! JVRP(20164) = dARP(12709)/dV(5255) - JVRP(20164) = V(3746) -! JVRP(20165) = dARP(12710)/dV(3746) - JVRP(20165) = V(5252) -! JVRP(20166) = dARP(12710)/dV(5252) - JVRP(20166) = V(3746) -! JVRP(20167) = dARP(12711)/dV(3746) - JVRP(20167) = V(5256) -! JVRP(20168) = dARP(12711)/dV(5256) - JVRP(20168) = V(3746) -! JVRP(20169) = dARP(12712)/dV(3746) - JVRP(20169) = 1 -! JVRP(20170) = dARP(12713)/dV(3746) - JVRP(20170) = 1 -! JVRP(20171) = dARP(12714)/dV(869) - JVRP(20171) = V(5250) -! JVRP(20172) = dARP(12714)/dV(5250) - JVRP(20172) = V(869) -! JVRP(20173) = dARP(12715)/dV(869) - JVRP(20173) = 1 -! JVRP(20174) = dARP(12716)/dV(3363) - JVRP(20174) = 1 -! JVRP(20175) = dARP(12717)/dV(1166) - JVRP(20175) = V(5250) -! JVRP(20176) = dARP(12717)/dV(5250) - JVRP(20176) = V(1166) -! JVRP(20177) = dARP(12718)/dV(1166) - JVRP(20177) = 1 -! JVRP(20178) = dARP(12719)/dV(2736) - JVRP(20178) = 1 -! JVRP(20179) = dARP(12720)/dV(4331) - JVRP(20179) = V(5250) -! JVRP(20180) = dARP(12720)/dV(5250) - JVRP(20180) = V(4331) -! JVRP(20181) = dARP(12721)/dV(1455) - JVRP(20181) = V(5250) -! JVRP(20182) = dARP(12721)/dV(5250) - JVRP(20182) = V(1455) -! JVRP(20183) = dARP(12722)/dV(1455) - JVRP(20183) = 1 -! JVRP(20184) = dARP(12723)/dV(3406) - JVRP(20184) = 1 -! JVRP(20185) = dARP(12724)/dV(888) - JVRP(20185) = V(5250) -! JVRP(20186) = dARP(12724)/dV(5250) - JVRP(20186) = V(888) -! JVRP(20187) = dARP(12725)/dV(888) - JVRP(20187) = 1 -! JVRP(20188) = dARP(12726)/dV(3381) - JVRP(20188) = 1 -! JVRP(20189) = dARP(12727)/dV(1273) - JVRP(20189) = V(5250) -! JVRP(20190) = dARP(12727)/dV(5250) - JVRP(20190) = V(1273) -! JVRP(20191) = dARP(12728)/dV(1273) - JVRP(20191) = 1 -! JVRP(20192) = dARP(12729)/dV(2952) - JVRP(20192) = 1 -! JVRP(20193) = dARP(12730)/dV(3593) - JVRP(20193) = V(5250) -! JVRP(20194) = dARP(12730)/dV(5250) - JVRP(20194) = V(3593) -! JVRP(20195) = dARP(12731)/dV(3593) - JVRP(20195) = 1 -! JVRP(20196) = dARP(12732)/dV(4324) - JVRP(20196) = V(5255) -! JVRP(20197) = dARP(12732)/dV(5255) - JVRP(20197) = V(4324) -! JVRP(20198) = dARP(12733)/dV(4324) - JVRP(20198) = V(5255) -! JVRP(20199) = dARP(12733)/dV(5255) - JVRP(20199) = V(4324) -! JVRP(20200) = dARP(12734)/dV(4324) - JVRP(20200) = V(5252) -! JVRP(20201) = dARP(12734)/dV(5252) - JVRP(20201) = V(4324) -! JVRP(20202) = dARP(12735)/dV(4324) - JVRP(20202) = V(5253) -! JVRP(20203) = dARP(12735)/dV(5253) - JVRP(20203) = V(4324) -! JVRP(20204) = dARP(12736)/dV(4324) - JVRP(20204) = V(5256) -! JVRP(20205) = dARP(12736)/dV(5256) - JVRP(20205) = V(4324) -! JVRP(20206) = dARP(12737)/dV(4324) - JVRP(20206) = 1 -! JVRP(20207) = dARP(12738)/dV(1393) - JVRP(20207) = V(5250) -! JVRP(20208) = dARP(12738)/dV(5250) - JVRP(20208) = V(1393) -! JVRP(20209) = dARP(12739)/dV(1393) - JVRP(20209) = 1 -! JVRP(20210) = dARP(12740)/dV(2768) - JVRP(20210) = 1 -! JVRP(20211) = dARP(12741)/dV(1045) - JVRP(20211) = V(5250) -! JVRP(20212) = dARP(12741)/dV(5250) - JVRP(20212) = V(1045) -! JVRP(20213) = dARP(12742)/dV(1045) - JVRP(20213) = 1 -! JVRP(20214) = dARP(12743)/dV(3362) - JVRP(20214) = 1 -! JVRP(20215) = dARP(12744)/dV(1029) - JVRP(20215) = V(5250) -! JVRP(20216) = dARP(12744)/dV(5250) - JVRP(20216) = V(1029) -! JVRP(20217) = dARP(12745)/dV(1029) - JVRP(20217) = 1 -! JVRP(20218) = dARP(12746)/dV(2598) - JVRP(20218) = 1 -! JVRP(20219) = dARP(12747)/dV(3709) - JVRP(20219) = V(5250) -! JVRP(20220) = dARP(12747)/dV(5250) - JVRP(20220) = V(3709) -! JVRP(20221) = dARP(12748)/dV(3709) - JVRP(20221) = 1 -! JVRP(20222) = dARP(12749)/dV(4154) - JVRP(20222) = V(5255) -! JVRP(20223) = dARP(12749)/dV(5255) - JVRP(20223) = V(4154) -! JVRP(20224) = dARP(12750)/dV(4154) - JVRP(20224) = V(5255) -! JVRP(20225) = dARP(12750)/dV(5255) - JVRP(20225) = V(4154) -! JVRP(20226) = dARP(12751)/dV(4154) - JVRP(20226) = V(5252) -! JVRP(20227) = dARP(12751)/dV(5252) - JVRP(20227) = V(4154) -! JVRP(20228) = dARP(12752)/dV(4154) - JVRP(20228) = V(5253) -! JVRP(20229) = dARP(12752)/dV(5253) - JVRP(20229) = V(4154) -! JVRP(20230) = dARP(12753)/dV(4154) - JVRP(20230) = V(5256) -! JVRP(20231) = dARP(12753)/dV(5256) - JVRP(20231) = V(4154) -! JVRP(20232) = dARP(12754)/dV(4154) - JVRP(20232) = 1 -! JVRP(20233) = dARP(12755)/dV(1223) - JVRP(20233) = V(5250) -! JVRP(20234) = dARP(12755)/dV(5250) - JVRP(20234) = V(1223) -! JVRP(20235) = dARP(12756)/dV(1223) - JVRP(20235) = 1 -! JVRP(20236) = dARP(12757)/dV(3417) - JVRP(20236) = 1 -! JVRP(20237) = dARP(12758)/dV(972) - JVRP(20237) = V(5250) -! JVRP(20238) = dARP(12758)/dV(5250) - JVRP(20238) = V(972) -! JVRP(20239) = dARP(12759)/dV(972) - JVRP(20239) = 1 -! JVRP(20240) = dARP(12760)/dV(2995) - JVRP(20240) = 1 -! JVRP(20241) = dARP(12761)/dV(3968) - JVRP(20241) = V(5250) -! JVRP(20242) = dARP(12761)/dV(5250) - JVRP(20242) = V(3968) -! JVRP(20243) = dARP(12762)/dV(3968) - JVRP(20243) = 1 -! JVRP(20244) = dARP(12763)/dV(4441) - JVRP(20244) = V(5255) -! JVRP(20245) = dARP(12763)/dV(5255) - JVRP(20245) = V(4441) -! JVRP(20246) = dARP(12764)/dV(4441) - JVRP(20246) = V(5255) -! JVRP(20247) = dARP(12764)/dV(5255) - JVRP(20247) = V(4441) -! JVRP(20248) = dARP(12765)/dV(4441) - JVRP(20248) = V(5252) -! JVRP(20249) = dARP(12765)/dV(5252) - JVRP(20249) = V(4441) -! JVRP(20250) = dARP(12766)/dV(4441) - JVRP(20250) = V(5253) -! JVRP(20251) = dARP(12766)/dV(5253) - JVRP(20251) = V(4441) -! JVRP(20252) = dARP(12767)/dV(4441) - JVRP(20252) = V(5256) -! JVRP(20253) = dARP(12767)/dV(5256) - JVRP(20253) = V(4441) -! JVRP(20254) = dARP(12768)/dV(4441) - JVRP(20254) = 1 -! JVRP(20255) = dARP(12769)/dV(1030) - JVRP(20255) = V(5250) -! JVRP(20256) = dARP(12769)/dV(5250) - JVRP(20256) = V(1030) -! JVRP(20257) = dARP(12770)/dV(1030) - JVRP(20257) = 1 -! JVRP(20258) = dARP(12771)/dV(3388) - JVRP(20258) = 1 -! JVRP(20259) = dARP(12772)/dV(1423) - JVRP(20259) = V(5250) -! JVRP(20260) = dARP(12772)/dV(5250) - JVRP(20260) = V(1423) -! JVRP(20261) = dARP(12773)/dV(1423) - JVRP(20261) = 1 -! JVRP(20262) = dARP(12774)/dV(2937) - JVRP(20262) = 1 -! JVRP(20263) = dARP(12775)/dV(3681) - JVRP(20263) = V(5250) -! JVRP(20264) = dARP(12775)/dV(5250) - JVRP(20264) = V(3681) -! JVRP(20265) = dARP(12776)/dV(3681) - JVRP(20265) = 1 -! JVRP(20266) = dARP(12777)/dV(4299) - JVRP(20266) = V(5255) -! JVRP(20267) = dARP(12777)/dV(5255) - JVRP(20267) = V(4299) -! JVRP(20268) = dARP(12778)/dV(4299) - JVRP(20268) = V(5255) -! JVRP(20269) = dARP(12778)/dV(5255) - JVRP(20269) = V(4299) -! JVRP(20270) = dARP(12779)/dV(4299) - JVRP(20270) = V(5252) -! JVRP(20271) = dARP(12779)/dV(5252) - JVRP(20271) = V(4299) -! JVRP(20272) = dARP(12780)/dV(4299) - JVRP(20272) = V(5253) -! JVRP(20273) = dARP(12780)/dV(5253) - JVRP(20273) = V(4299) -! JVRP(20274) = dARP(12781)/dV(4299) - JVRP(20274) = V(5256) -! JVRP(20275) = dARP(12781)/dV(5256) - JVRP(20275) = V(4299) -! JVRP(20276) = dARP(12782)/dV(4299) - JVRP(20276) = 1 -! JVRP(20277) = dARP(12783)/dV(4977) - JVRP(20277) = V(5255) -! JVRP(20278) = dARP(12783)/dV(5255) - JVRP(20278) = V(4977) -! JVRP(20279) = dARP(12784)/dV(4977) - JVRP(20279) = V(5255) -! JVRP(20280) = dARP(12784)/dV(5255) - JVRP(20280) = V(4977) -! JVRP(20281) = dARP(12785)/dV(4977) - JVRP(20281) = V(5255) -! JVRP(20282) = dARP(12785)/dV(5255) - JVRP(20282) = V(4977) -! JVRP(20283) = dARP(12786)/dV(4977) - JVRP(20283) = V(5252) -! JVRP(20284) = dARP(12786)/dV(5252) - JVRP(20284) = V(4977) -! JVRP(20285) = dARP(12787)/dV(4977) - JVRP(20285) = V(5253) -! JVRP(20286) = dARP(12787)/dV(5253) - JVRP(20286) = V(4977) -! JVRP(20287) = dARP(12788)/dV(4977) - JVRP(20287) = V(5256) -! JVRP(20288) = dARP(12788)/dV(5256) - JVRP(20288) = V(4977) -! JVRP(20289) = dARP(12789)/dV(4977) - JVRP(20289) = 1 -! JVRP(20290) = dARP(12790)/dV(4977) - JVRP(20290) = 1 -! JVRP(20291) = dARP(12791)/dV(1215) - JVRP(20291) = V(5250) -! JVRP(20292) = dARP(12791)/dV(5250) - JVRP(20292) = V(1215) -! JVRP(20293) = dARP(12792)/dV(1215) - JVRP(20293) = 1 -! JVRP(20294) = dARP(12793)/dV(2820) - JVRP(20294) = 1 -! JVRP(20295) = dARP(12794)/dV(4052) - JVRP(20295) = V(5255) -! JVRP(20296) = dARP(12794)/dV(5255) - JVRP(20296) = V(4052) -! JVRP(20297) = dARP(12795)/dV(4052) - JVRP(20297) = V(5252) -! JVRP(20298) = dARP(12795)/dV(5252) - JVRP(20298) = V(4052) -! JVRP(20299) = dARP(12796)/dV(4052) - JVRP(20299) = V(5256) -! JVRP(20300) = dARP(12796)/dV(5256) - JVRP(20300) = V(4052) -! JVRP(20301) = dARP(12797)/dV(4052) - JVRP(20301) = 1 -! JVRP(20302) = dARP(12798)/dV(1457) - JVRP(20302) = V(5250) -! JVRP(20303) = dARP(12798)/dV(5250) - JVRP(20303) = V(1457) -! JVRP(20304) = dARP(12799)/dV(2429) - JVRP(20304) = 1 -! JVRP(20305) = dARP(12800)/dV(2429) - JVRP(20305) = V(5250) -! JVRP(20306) = dARP(12800)/dV(5250) - JVRP(20306) = V(2429) -! JVRP(20307) = dARP(12801)/dV(2705) - JVRP(20307) = 1 -! JVRP(20308) = dARP(12802)/dV(2705) - JVRP(20308) = V(5250) -! JVRP(20309) = dARP(12802)/dV(5250) - JVRP(20309) = V(2705) -! JVRP(20310) = dARP(12803)/dV(1249) - JVRP(20310) = 1 -! JVRP(20311) = dARP(12804)/dV(1249) - JVRP(20311) = V(5250) -! JVRP(20312) = dARP(12804)/dV(5250) - JVRP(20312) = V(1249) -! JVRP(20313) = dARP(12805)/dV(2655) - JVRP(20313) = 1 -! JVRP(20314) = dARP(12806)/dV(2655) - JVRP(20314) = V(5250) -! JVRP(20315) = dARP(12806)/dV(5250) - JVRP(20315) = V(2655) -! JVRP(20316) = dARP(12807)/dV(2617) - JVRP(20316) = V(5250) -! JVRP(20317) = dARP(12807)/dV(5250) - JVRP(20317) = V(2617) -! JVRP(20318) = dARP(12808)/dV(2617) - JVRP(20318) = 1 -! JVRP(20319) = dARP(12809)/dV(781) - JVRP(20319) = 1 -! JVRP(20320) = dARP(12810)/dV(3558) - JVRP(20320) = V(5250) -! JVRP(20321) = dARP(12810)/dV(5250) - JVRP(20321) = V(3558) -! JVRP(20322) = dARP(12811)/dV(3558) - JVRP(20322) = 1 -! JVRP(20323) = dARP(12812)/dV(4826) - JVRP(20323) = V(5255) -! JVRP(20324) = dARP(12812)/dV(5255) - JVRP(20324) = V(4826) -! JVRP(20325) = dARP(12813)/dV(4826) - JVRP(20325) = V(5255) -! JVRP(20326) = dARP(12813)/dV(5255) - JVRP(20326) = V(4826) -! JVRP(20327) = dARP(12814)/dV(4826) - JVRP(20327) = V(5252) -! JVRP(20328) = dARP(12814)/dV(5252) - JVRP(20328) = V(4826) -! JVRP(20329) = dARP(12815)/dV(4826) - JVRP(20329) = V(5253) -! JVRP(20330) = dARP(12815)/dV(5253) - JVRP(20330) = V(4826) -! JVRP(20331) = dARP(12816)/dV(4826) - JVRP(20331) = V(5256) -! JVRP(20332) = dARP(12816)/dV(5256) - JVRP(20332) = V(4826) -! JVRP(20333) = dARP(12817)/dV(4826) - JVRP(20333) = 1 -! JVRP(20334) = dARP(12818)/dV(4519) - JVRP(20334) = V(5255) -! JVRP(20335) = dARP(12818)/dV(5255) - JVRP(20335) = V(4519) -! JVRP(20336) = dARP(12819)/dV(4519) - JVRP(20336) = V(5255) -! JVRP(20337) = dARP(12819)/dV(5255) - JVRP(20337) = V(4519) -! JVRP(20338) = dARP(12820)/dV(4519) - JVRP(20338) = V(5255) -! JVRP(20339) = dARP(12820)/dV(5255) - JVRP(20339) = V(4519) -! JVRP(20340) = dARP(12821)/dV(4519) - JVRP(20340) = V(5252) -! JVRP(20341) = dARP(12821)/dV(5252) - JVRP(20341) = V(4519) -! JVRP(20342) = dARP(12822)/dV(4519) - JVRP(20342) = V(5253) -! JVRP(20343) = dARP(12822)/dV(5253) - JVRP(20343) = V(4519) -! JVRP(20344) = dARP(12823)/dV(4519) - JVRP(20344) = V(5256) -! JVRP(20345) = dARP(12823)/dV(5256) - JVRP(20345) = V(4519) -! JVRP(20346) = dARP(12824)/dV(4519) - JVRP(20346) = 1 -! JVRP(20347) = dARP(12825)/dV(4519) - JVRP(20347) = 1 -! JVRP(20348) = dARP(12826)/dV(4753) - JVRP(20348) = V(5255) -! JVRP(20349) = dARP(12826)/dV(5255) - JVRP(20349) = V(4753) -! JVRP(20350) = dARP(12827)/dV(4753) - JVRP(20350) = V(5255) -! JVRP(20351) = dARP(12827)/dV(5255) - JVRP(20351) = V(4753) -! JVRP(20352) = dARP(12828)/dV(4753) - JVRP(20352) = V(5255) -! JVRP(20353) = dARP(12828)/dV(5255) - JVRP(20353) = V(4753) -! JVRP(20354) = dARP(12829)/dV(4753) - JVRP(20354) = V(5252) -! JVRP(20355) = dARP(12829)/dV(5252) - JVRP(20355) = V(4753) -! JVRP(20356) = dARP(12830)/dV(4753) - JVRP(20356) = V(5253) -! JVRP(20357) = dARP(12830)/dV(5253) - JVRP(20357) = V(4753) -! JVRP(20358) = dARP(12831)/dV(4753) - JVRP(20358) = V(5256) -! JVRP(20359) = dARP(12831)/dV(5256) - JVRP(20359) = V(4753) -! JVRP(20360) = dARP(12832)/dV(4753) - JVRP(20360) = 1 -! JVRP(20361) = dARP(12833)/dV(4753) - JVRP(20361) = 1 -! JVRP(20362) = dARP(12834)/dV(4739) - JVRP(20362) = V(5255) -! JVRP(20363) = dARP(12834)/dV(5255) - JVRP(20363) = V(4739) -! JVRP(20364) = dARP(12835)/dV(4739) - JVRP(20364) = V(5255) -! JVRP(20365) = dARP(12835)/dV(5255) - JVRP(20365) = V(4739) -! JVRP(20366) = dARP(12836)/dV(4739) - JVRP(20366) = V(5255) -! JVRP(20367) = dARP(12836)/dV(5255) - JVRP(20367) = V(4739) -! JVRP(20368) = dARP(12837)/dV(4739) - JVRP(20368) = V(5252) -! JVRP(20369) = dARP(12837)/dV(5252) - JVRP(20369) = V(4739) -! JVRP(20370) = dARP(12838)/dV(4739) - JVRP(20370) = V(5253) -! JVRP(20371) = dARP(12838)/dV(5253) - JVRP(20371) = V(4739) -! JVRP(20372) = dARP(12839)/dV(4739) - JVRP(20372) = V(5256) -! JVRP(20373) = dARP(12839)/dV(5256) - JVRP(20373) = V(4739) -! JVRP(20374) = dARP(12840)/dV(4739) - JVRP(20374) = 1 -! JVRP(20375) = dARP(12841)/dV(4739) - JVRP(20375) = 1 -! JVRP(20376) = dARP(12842)/dV(1467) - JVRP(20376) = 1 -! JVRP(20377) = dARP(12843)/dV(1467) - JVRP(20377) = V(5250) -! JVRP(20378) = dARP(12843)/dV(5250) - JVRP(20378) = V(1467) -! JVRP(20379) = dARP(12844)/dV(2823) - JVRP(20379) = 1 -! JVRP(20380) = dARP(12845)/dV(2823) - JVRP(20380) = V(5250) -! JVRP(20381) = dARP(12845)/dV(5250) - JVRP(20381) = V(2823) -! JVRP(20382) = dARP(12846)/dV(1816) - JVRP(20382) = V(5250) -! JVRP(20383) = dARP(12846)/dV(5250) - JVRP(20383) = V(1816) -! JVRP(20384) = dARP(12847)/dV(1816) - JVRP(20384) = 1 -! JVRP(20385) = dARP(12848)/dV(3042) - JVRP(20385) = V(5250) -! JVRP(20386) = dARP(12848)/dV(5250) - JVRP(20386) = V(3042) -! JVRP(20387) = dARP(12849)/dV(3042) - JVRP(20387) = 1 -! JVRP(20388) = dARP(12850)/dV(2329) - JVRP(20388) = V(5250) -! JVRP(20389) = dARP(12850)/dV(5250) - JVRP(20389) = V(2329) -! JVRP(20390) = dARP(12851)/dV(2329) - JVRP(20390) = 1 -! JVRP(20391) = dARP(12852)/dV(3045) - JVRP(20391) = V(5250) -! JVRP(20392) = dARP(12852)/dV(5250) - JVRP(20392) = V(3045) -! JVRP(20393) = dARP(12853)/dV(3045) - JVRP(20393) = 1 -! JVRP(20394) = dARP(12854)/dV(5005) - JVRP(20394) = V(5255) -! JVRP(20395) = dARP(12854)/dV(5255) - JVRP(20395) = V(5005) -! JVRP(20396) = dARP(12855)/dV(5005) - JVRP(20396) = V(5255) -! JVRP(20397) = dARP(12855)/dV(5255) - JVRP(20397) = V(5005) -! JVRP(20398) = dARP(12856)/dV(5005) - JVRP(20398) = V(5255) -! JVRP(20399) = dARP(12856)/dV(5255) - JVRP(20399) = V(5005) -! JVRP(20400) = dARP(12857)/dV(5005) - JVRP(20400) = V(5252) -! JVRP(20401) = dARP(12857)/dV(5252) - JVRP(20401) = V(5005) -! JVRP(20402) = dARP(12858)/dV(5005) - JVRP(20402) = V(5253) -! JVRP(20403) = dARP(12858)/dV(5253) - JVRP(20403) = V(5005) -! JVRP(20404) = dARP(12859)/dV(5005) - JVRP(20404) = V(5256) -! JVRP(20405) = dARP(12859)/dV(5256) - JVRP(20405) = V(5005) -! JVRP(20406) = dARP(12860)/dV(5005) - JVRP(20406) = 1 -! JVRP(20407) = dARP(12861)/dV(5005) - JVRP(20407) = 1 -! JVRP(20408) = dARP(12862)/dV(5003) - JVRP(20408) = V(5255) -! JVRP(20409) = dARP(12862)/dV(5255) - JVRP(20409) = V(5003) -! JVRP(20410) = dARP(12863)/dV(5003) - JVRP(20410) = V(5255) -! JVRP(20411) = dARP(12863)/dV(5255) - JVRP(20411) = V(5003) -! JVRP(20412) = dARP(12864)/dV(5003) - JVRP(20412) = V(5255) -! JVRP(20413) = dARP(12864)/dV(5255) - JVRP(20413) = V(5003) -! JVRP(20414) = dARP(12865)/dV(5003) - JVRP(20414) = V(5252) -! JVRP(20415) = dARP(12865)/dV(5252) - JVRP(20415) = V(5003) -! JVRP(20416) = dARP(12866)/dV(5003) - JVRP(20416) = V(5253) -! JVRP(20417) = dARP(12866)/dV(5253) - JVRP(20417) = V(5003) -! JVRP(20418) = dARP(12867)/dV(5003) - JVRP(20418) = V(5256) -! JVRP(20419) = dARP(12867)/dV(5256) - JVRP(20419) = V(5003) -! JVRP(20420) = dARP(12868)/dV(5003) - JVRP(20420) = 1 -! JVRP(20421) = dARP(12869)/dV(5003) - JVRP(20421) = 1 -! JVRP(20422) = dARP(12870)/dV(1229) - JVRP(20422) = V(5250) -! JVRP(20423) = dARP(12870)/dV(5250) - JVRP(20423) = V(1229) -! JVRP(20424) = dARP(12871)/dV(3272) - JVRP(20424) = V(5250) -! JVRP(20425) = dARP(12871)/dV(5250) - JVRP(20425) = V(3272) -! JVRP(20426) = dARP(12872)/dV(3272) - JVRP(20426) = V(5250) -! JVRP(20427) = dARP(12872)/dV(5250) - JVRP(20427) = V(3272) -! JVRP(20428) = dARP(12873)/dV(3272) - JVRP(20428) = 1 -! JVRP(20429) = dARP(12874)/dV(2735) - JVRP(20429) = V(5250) -! JVRP(20430) = dARP(12874)/dV(5250) - JVRP(20430) = V(2735) -! JVRP(20431) = dARP(12875)/dV(2735) - JVRP(20431) = 1 -! JVRP(20432) = dARP(12876)/dV(3998) - JVRP(20432) = V(5255) -! JVRP(20433) = dARP(12876)/dV(5255) - JVRP(20433) = V(3998) -! JVRP(20434) = dARP(12877)/dV(3998) - JVRP(20434) = V(5255) -! JVRP(20435) = dARP(12877)/dV(5255) - JVRP(20435) = V(3998) -! JVRP(20436) = dARP(12878)/dV(3998) - JVRP(20436) = V(5252) -! JVRP(20437) = dARP(12878)/dV(5252) - JVRP(20437) = V(3998) -! JVRP(20438) = dARP(12879)/dV(3998) - JVRP(20438) = V(5253) -! JVRP(20439) = dARP(12879)/dV(5253) - JVRP(20439) = V(3998) -! JVRP(20440) = dARP(12880)/dV(3998) - JVRP(20440) = V(5256) -! JVRP(20441) = dARP(12880)/dV(5256) - JVRP(20441) = V(3998) -! JVRP(20442) = dARP(12881)/dV(3998) - JVRP(20442) = 1 -! JVRP(20443) = dARP(12882)/dV(839) - JVRP(20443) = 1 -! JVRP(20444) = dARP(12883)/dV(839) - JVRP(20444) = V(5250) -! JVRP(20445) = dARP(12883)/dV(5250) - JVRP(20445) = V(839) -! JVRP(20446) = dARP(12884)/dV(1518) - JVRP(20446) = 1 -! JVRP(20447) = dARP(12885)/dV(1518) - JVRP(20447) = V(5250) -! JVRP(20448) = dARP(12885)/dV(5250) - JVRP(20448) = V(1518) -! JVRP(20449) = dARP(12886)/dV(1939) - JVRP(20449) = 1 -! JVRP(20450) = dARP(12887)/dV(1939) - JVRP(20450) = V(5250) -! JVRP(20451) = dARP(12887)/dV(5250) - JVRP(20451) = V(1939) -! JVRP(20452) = dARP(12888)/dV(893) - JVRP(20452) = V(5250) -! JVRP(20453) = dARP(12888)/dV(5250) - JVRP(20453) = V(893) -! JVRP(20454) = dARP(12889)/dV(1804) - JVRP(20454) = 1 -! JVRP(20455) = dARP(12890)/dV(1804) - JVRP(20455) = V(5250) -! JVRP(20456) = dARP(12890)/dV(5250) - JVRP(20456) = V(1804) -! JVRP(20457) = dARP(12891)/dV(2925) - JVRP(20457) = 1 -! JVRP(20458) = dARP(12892)/dV(2925) - JVRP(20458) = V(5250) -! JVRP(20459) = dARP(12892)/dV(5250) - JVRP(20459) = V(2925) -! JVRP(20460) = dARP(12893)/dV(4772) - JVRP(20460) = V(5255) -! JVRP(20461) = dARP(12893)/dV(5255) - JVRP(20461) = V(4772) -! JVRP(20462) = dARP(12894)/dV(4772) - JVRP(20462) = V(5255) -! JVRP(20463) = dARP(12894)/dV(5255) - JVRP(20463) = V(4772) -! JVRP(20464) = dARP(12895)/dV(4772) - JVRP(20464) = V(5255) -! JVRP(20465) = dARP(12895)/dV(5255) - JVRP(20465) = V(4772) -! JVRP(20466) = dARP(12896)/dV(4772) - JVRP(20466) = V(5252) -! JVRP(20467) = dARP(12896)/dV(5252) - JVRP(20467) = V(4772) -! JVRP(20468) = dARP(12897)/dV(4772) - JVRP(20468) = V(5253) -! JVRP(20469) = dARP(12897)/dV(5253) - JVRP(20469) = V(4772) -! JVRP(20470) = dARP(12898)/dV(4772) - JVRP(20470) = V(5256) -! JVRP(20471) = dARP(12898)/dV(5256) - JVRP(20471) = V(4772) -! JVRP(20472) = dARP(12899)/dV(4772) - JVRP(20472) = 1 -! JVRP(20473) = dARP(12900)/dV(4772) - JVRP(20473) = 1 -! JVRP(20474) = dARP(12901)/dV(890) - JVRP(20474) = V(5250) -! JVRP(20475) = dARP(12901)/dV(5250) - JVRP(20475) = V(890) -! JVRP(20476) = dARP(12902)/dV(1874) - JVRP(20476) = 1 -! JVRP(20477) = dARP(12903)/dV(1874) - JVRP(20477) = V(5250) -! JVRP(20478) = dARP(12903)/dV(5250) - JVRP(20478) = V(1874) -! JVRP(20479) = dARP(12904)/dV(3236) - JVRP(20479) = 1 -! JVRP(20480) = dARP(12905)/dV(3236) - JVRP(20480) = V(5250) -! JVRP(20481) = dARP(12905)/dV(5250) - JVRP(20481) = V(3236) -! JVRP(20482) = dARP(12906)/dV(3500) - JVRP(20482) = V(5250) -! JVRP(20483) = dARP(12906)/dV(5250) - JVRP(20483) = V(3500) -! JVRP(20484) = dARP(12907)/dV(3500) - JVRP(20484) = 1 -! JVRP(20485) = dARP(12908)/dV(3555) - JVRP(20485) = V(5250) -! JVRP(20486) = dARP(12908)/dV(5250) - JVRP(20486) = V(3555) -! JVRP(20487) = dARP(12909)/dV(3555) - JVRP(20487) = 1 -! JVRP(20488) = dARP(12910)/dV(3532) - JVRP(20488) = V(5250) -! JVRP(20489) = dARP(12910)/dV(5250) - JVRP(20489) = V(3532) -! JVRP(20490) = dARP(12911)/dV(3532) - JVRP(20490) = 1 -! JVRP(20491) = dARP(12912)/dV(4565) - JVRP(20491) = V(5255) -! JVRP(20492) = dARP(12912)/dV(5255) - JVRP(20492) = V(4565) -! JVRP(20493) = dARP(12913)/dV(4565) - JVRP(20493) = V(5252) -! JVRP(20494) = dARP(12913)/dV(5252) - JVRP(20494) = V(4565) -! JVRP(20495) = dARP(12914)/dV(4565) - JVRP(20495) = V(5256) -! JVRP(20496) = dARP(12914)/dV(5256) - JVRP(20496) = V(4565) -! JVRP(20497) = dARP(12915)/dV(4565) - JVRP(20497) = 1 -! JVRP(20498) = dARP(12916)/dV(4123) - JVRP(20498) = V(5255) -! JVRP(20499) = dARP(12916)/dV(5255) - JVRP(20499) = V(4123) -! JVRP(20500) = dARP(12917)/dV(4123) - JVRP(20500) = V(5252) -! JVRP(20501) = dARP(12917)/dV(5252) - JVRP(20501) = V(4123) -! JVRP(20502) = dARP(12918)/dV(4123) - JVRP(20502) = V(5256) -! JVRP(20503) = dARP(12918)/dV(5256) - JVRP(20503) = V(4123) -! JVRP(20504) = dARP(12919)/dV(4123) - JVRP(20504) = 1 -! JVRP(20505) = dARP(12920)/dV(3620) - JVRP(20505) = V(5250) -! JVRP(20506) = dARP(12920)/dV(5250) - JVRP(20506) = V(3620) -! JVRP(20507) = dARP(12921)/dV(3620) - JVRP(20507) = V(5250) -! JVRP(20508) = dARP(12921)/dV(5250) - JVRP(20508) = V(3620) -! JVRP(20509) = dARP(12922)/dV(3620) - JVRP(20509) = 1 -! JVRP(20510) = dARP(12923)/dV(957) - JVRP(20510) = V(5250) -! JVRP(20511) = dARP(12923)/dV(5250) - JVRP(20511) = V(957) -! JVRP(20512) = dARP(12924)/dV(3490) - JVRP(20512) = 1 -! JVRP(20513) = dARP(12925)/dV(3490) - JVRP(20513) = 1 -! JVRP(20514) = dARP(12926)/dV(305) - JVRP(20514) = V(5250) -! JVRP(20515) = dARP(12926)/dV(5250) - JVRP(20515) = V(305) -! JVRP(20516) = dARP(12927)/dV(2289) - JVRP(20516) = V(5250) -! JVRP(20517) = dARP(12927)/dV(5250) - JVRP(20517) = V(2289) -! JVRP(20518) = dARP(12928)/dV(2289) - JVRP(20518) = 1 -! JVRP(20519) = dARP(12929)/dV(645) - JVRP(20519) = 1 -! JVRP(20520) = dARP(12930)/dV(1433) - JVRP(20520) = V(5250) -! JVRP(20521) = dARP(12930)/dV(5250) - JVRP(20521) = V(1433) -! JVRP(20522) = dARP(12931)/dV(3276) - JVRP(20522) = V(5250) -! JVRP(20523) = dARP(12931)/dV(5250) - JVRP(20523) = V(3276) -! JVRP(20524) = dARP(12932)/dV(3276) - JVRP(20524) = V(5250) -! JVRP(20525) = dARP(12932)/dV(5250) - JVRP(20525) = V(3276) -! JVRP(20526) = dARP(12933)/dV(3276) - JVRP(20526) = 1 -! JVRP(20527) = dARP(12934)/dV(3324) - JVRP(20527) = V(5250) -! JVRP(20528) = dARP(12934)/dV(5250) - JVRP(20528) = V(3324) -! JVRP(20529) = dARP(12935)/dV(3324) - JVRP(20529) = 1 -! JVRP(20530) = dARP(12936)/dV(4250) - JVRP(20530) = V(5251) -! JVRP(20531) = dARP(12936)/dV(5251) - JVRP(20531) = V(4250) -! JVRP(20532) = dARP(12937)/dV(4250) - JVRP(20532) = V(5252) -! JVRP(20533) = dARP(12937)/dV(5252) - JVRP(20533) = V(4250) -! JVRP(20534) = dARP(12938)/dV(4250) - JVRP(20534) = V(5253) -! JVRP(20535) = dARP(12938)/dV(5253) - JVRP(20535) = V(4250) -! JVRP(20536) = dARP(12939)/dV(4250) - JVRP(20536) = V(5254) -! JVRP(20537) = dARP(12939)/dV(5254) - JVRP(20537) = V(4250) -! JVRP(20538) = dARP(12940)/dV(4250) - JVRP(20538) = 1 -! JVRP(20539) = dARP(12941)/dV(3216) - JVRP(20539) = V(5250) -! JVRP(20540) = dARP(12941)/dV(5250) - JVRP(20540) = V(3216) -! JVRP(20541) = dARP(12942)/dV(3216) - JVRP(20541) = 1 -! JVRP(20542) = dARP(12943)/dV(3216) - JVRP(20542) = 1 -! JVRP(20543) = dARP(12944)/dV(3215) - JVRP(20543) = 1 -! JVRP(20544) = dARP(12945)/dV(4366) - JVRP(20544) = V(5250) -! JVRP(20545) = dARP(12945)/dV(5250) - JVRP(20545) = V(4366) -! JVRP(20546) = dARP(12946)/dV(4366) - JVRP(20546) = 1 -! JVRP(20547) = dARP(12947)/dV(2568) - JVRP(20547) = V(5250) -! JVRP(20548) = dARP(12947)/dV(5250) - JVRP(20548) = V(2568) -! JVRP(20549) = dARP(12948)/dV(2568) - JVRP(20549) = 1 -! JVRP(20550) = dARP(12949)/dV(4222) - JVRP(20550) = V(5255) -! JVRP(20551) = dARP(12949)/dV(5255) - JVRP(20551) = V(4222) -! JVRP(20552) = dARP(12950)/dV(4222) - JVRP(20552) = V(5255) -! JVRP(20553) = dARP(12950)/dV(5255) - JVRP(20553) = V(4222) -! JVRP(20554) = dARP(12951)/dV(4222) - JVRP(20554) = V(5255) -! JVRP(20555) = dARP(12951)/dV(5255) - JVRP(20555) = V(4222) -! JVRP(20556) = dARP(12952)/dV(4222) - JVRP(20556) = V(5252) -! JVRP(20557) = dARP(12952)/dV(5252) - JVRP(20557) = V(4222) -! JVRP(20558) = dARP(12953)/dV(4222) - JVRP(20558) = V(5253) -! JVRP(20559) = dARP(12953)/dV(5253) - JVRP(20559) = V(4222) -! JVRP(20560) = dARP(12954)/dV(4222) - JVRP(20560) = V(5256) -! JVRP(20561) = dARP(12954)/dV(5256) - JVRP(20561) = V(4222) -! JVRP(20562) = dARP(12955)/dV(4222) - JVRP(20562) = 1 -! JVRP(20563) = dARP(12956)/dV(4222) - JVRP(20563) = 1 -! JVRP(20564) = dARP(12957)/dV(1201) - JVRP(20564) = 1 -! JVRP(20565) = dARP(12958)/dV(1201) - JVRP(20565) = V(5250) -! JVRP(20566) = dARP(12958)/dV(5250) - JVRP(20566) = V(1201) -! JVRP(20567) = dARP(12959)/dV(2622) - JVRP(20567) = 1 -! JVRP(20568) = dARP(12960)/dV(2622) - JVRP(20568) = V(5250) -! JVRP(20569) = dARP(12960)/dV(5250) - JVRP(20569) = V(2622) -! JVRP(20570) = dARP(12961)/dV(4230) - JVRP(20570) = V(5255) -! JVRP(20571) = dARP(12961)/dV(5255) - JVRP(20571) = V(4230) -! JVRP(20572) = dARP(12962)/dV(4230) - JVRP(20572) = V(5255) -! JVRP(20573) = dARP(12962)/dV(5255) - JVRP(20573) = V(4230) -! JVRP(20574) = dARP(12963)/dV(4230) - JVRP(20574) = V(5252) -! JVRP(20575) = dARP(12963)/dV(5252) - JVRP(20575) = V(4230) -! JVRP(20576) = dARP(12964)/dV(4230) - JVRP(20576) = V(5253) -! JVRP(20577) = dARP(12964)/dV(5253) - JVRP(20577) = V(4230) -! JVRP(20578) = dARP(12965)/dV(4230) - JVRP(20578) = V(5256) -! JVRP(20579) = dARP(12965)/dV(5256) - JVRP(20579) = V(4230) -! JVRP(20580) = dARP(12966)/dV(4230) - JVRP(20580) = 1 -! JVRP(20581) = dARP(12967)/dV(4191) - JVRP(20581) = V(5255) -! JVRP(20582) = dARP(12967)/dV(5255) - JVRP(20582) = V(4191) -! JVRP(20583) = dARP(12968)/dV(4191) - JVRP(20583) = V(5252) -! JVRP(20584) = dARP(12968)/dV(5252) - JVRP(20584) = V(4191) -! JVRP(20585) = dARP(12969)/dV(4191) - JVRP(20585) = V(5256) -! JVRP(20586) = dARP(12969)/dV(5256) - JVRP(20586) = V(4191) -! JVRP(20587) = dARP(12970)/dV(4191) - JVRP(20587) = 1 -! JVRP(20588) = dARP(12971)/dV(954) - JVRP(20588) = V(5250) -! JVRP(20589) = dARP(12971)/dV(5250) - JVRP(20589) = V(954) -! JVRP(20590) = dARP(12972)/dV(954) - JVRP(20590) = 1 -! JVRP(20591) = dARP(12973)/dV(3053) - JVRP(20591) = V(5250) -! JVRP(20592) = dARP(12973)/dV(5250) - JVRP(20592) = V(3053) -! JVRP(20593) = dARP(12974)/dV(3053) - JVRP(20593) = 1 -! JVRP(20594) = dARP(12975)/dV(5004) - JVRP(20594) = V(5255) -! JVRP(20595) = dARP(12975)/dV(5255) - JVRP(20595) = V(5004) -! JVRP(20596) = dARP(12976)/dV(5004) - JVRP(20596) = V(5255) -! JVRP(20597) = dARP(12976)/dV(5255) - JVRP(20597) = V(5004) -! JVRP(20598) = dARP(12977)/dV(5004) - JVRP(20598) = V(5255) -! JVRP(20599) = dARP(12977)/dV(5255) - JVRP(20599) = V(5004) -! JVRP(20600) = dARP(12978)/dV(5004) - JVRP(20600) = V(5252) -! JVRP(20601) = dARP(12978)/dV(5252) - JVRP(20601) = V(5004) -! JVRP(20602) = dARP(12979)/dV(5004) - JVRP(20602) = V(5253) -! JVRP(20603) = dARP(12979)/dV(5253) - JVRP(20603) = V(5004) -! JVRP(20604) = dARP(12980)/dV(5004) - JVRP(20604) = V(5256) -! JVRP(20605) = dARP(12980)/dV(5256) - JVRP(20605) = V(5004) -! JVRP(20606) = dARP(12981)/dV(5004) - JVRP(20606) = 1 -! JVRP(20607) = dARP(12982)/dV(5004) - JVRP(20607) = 1 -! JVRP(20608) = dARP(12983)/dV(5111) - JVRP(20608) = V(5255) -! JVRP(20609) = dARP(12983)/dV(5255) - JVRP(20609) = V(5111) -! JVRP(20610) = dARP(12984)/dV(5111) - JVRP(20610) = V(5255) -! JVRP(20611) = dARP(12984)/dV(5255) - JVRP(20611) = V(5111) -! JVRP(20612) = dARP(12985)/dV(5111) - JVRP(20612) = V(5252) -! JVRP(20613) = dARP(12985)/dV(5252) - JVRP(20613) = V(5111) -! JVRP(20614) = dARP(12986)/dV(5111) - JVRP(20614) = V(5253) -! JVRP(20615) = dARP(12986)/dV(5253) - JVRP(20615) = V(5111) -! JVRP(20616) = dARP(12987)/dV(5111) - JVRP(20616) = V(5256) -! JVRP(20617) = dARP(12987)/dV(5256) - JVRP(20617) = V(5111) -! JVRP(20618) = dARP(12988)/dV(5111) - JVRP(20618) = 1 -! JVRP(20619) = dARP(12989)/dV(4806) - JVRP(20619) = V(5255) -! JVRP(20620) = dARP(12989)/dV(5255) - JVRP(20620) = V(4806) -! JVRP(20621) = dARP(12990)/dV(4806) - JVRP(20621) = V(5255) -! JVRP(20622) = dARP(12990)/dV(5255) - JVRP(20622) = V(4806) -! JVRP(20623) = dARP(12991)/dV(4806) - JVRP(20623) = V(5252) -! JVRP(20624) = dARP(12991)/dV(5252) - JVRP(20624) = V(4806) -! JVRP(20625) = dARP(12992)/dV(4806) - JVRP(20625) = V(5253) -! JVRP(20626) = dARP(12992)/dV(5253) - JVRP(20626) = V(4806) -! JVRP(20627) = dARP(12993)/dV(4806) - JVRP(20627) = V(5256) -! JVRP(20628) = dARP(12993)/dV(5256) - JVRP(20628) = V(4806) -! JVRP(20629) = dARP(12994)/dV(4806) - JVRP(20629) = 1 -! JVRP(20630) = dARP(12995)/dV(4969) - JVRP(20630) = V(5255) -! JVRP(20631) = dARP(12995)/dV(5255) - JVRP(20631) = V(4969) -! JVRP(20632) = dARP(12996)/dV(4969) - JVRP(20632) = V(5255) -! JVRP(20633) = dARP(12996)/dV(5255) - JVRP(20633) = V(4969) -! JVRP(20634) = dARP(12997)/dV(4969) - JVRP(20634) = V(5252) -! JVRP(20635) = dARP(12997)/dV(5252) - JVRP(20635) = V(4969) -! JVRP(20636) = dARP(12998)/dV(4969) - JVRP(20636) = V(5253) -! JVRP(20637) = dARP(12998)/dV(5253) - JVRP(20637) = V(4969) -! JVRP(20638) = dARP(12999)/dV(4969) - JVRP(20638) = V(5256) -! JVRP(20639) = dARP(12999)/dV(5256) - JVRP(20639) = V(4969) -! JVRP(20640) = dARP(13000)/dV(4969) - JVRP(20640) = 1 -! JVRP(20641) = dARP(13001)/dV(1496) - JVRP(20641) = V(5250) -! JVRP(20642) = dARP(13001)/dV(5250) - JVRP(20642) = V(1496) -! JVRP(20643) = dARP(13002)/dV(1496) - JVRP(20643) = 1 -! JVRP(20644) = dARP(13003)/dV(2812) - JVRP(20644) = V(5250) -! JVRP(20645) = dARP(13003)/dV(5250) - JVRP(20645) = V(2812) -! JVRP(20646) = dARP(13004)/dV(2812) - JVRP(20646) = 1 -! JVRP(20647) = dARP(13005)/dV(1984) - JVRP(20647) = 1 -! JVRP(20648) = dARP(13006)/dV(526) - JVRP(20648) = V(5250) -! JVRP(20649) = dARP(13006)/dV(5250) - JVRP(20649) = V(526) -! JVRP(20650) = dARP(13007)/dV(526) - JVRP(20650) = 1 -! JVRP(20651) = dARP(13008)/dV(3760) - JVRP(20651) = V(5255) -! JVRP(20652) = dARP(13008)/dV(5255) - JVRP(20652) = V(3760) -! JVRP(20653) = dARP(13009)/dV(3760) - JVRP(20653) = V(5252) -! JVRP(20654) = dARP(13009)/dV(5252) - JVRP(20654) = V(3760) -! JVRP(20655) = dARP(13010)/dV(3760) - JVRP(20655) = V(5256) -! JVRP(20656) = dARP(13010)/dV(5256) - JVRP(20656) = V(3760) -! JVRP(20657) = dARP(13011)/dV(3760) - JVRP(20657) = 1 -! JVRP(20658) = dARP(13012)/dV(1225) - JVRP(20658) = V(5250) -! JVRP(20659) = dARP(13012)/dV(5250) - JVRP(20659) = V(1225) -! JVRP(20660) = dARP(13013)/dV(1225) - JVRP(20660) = 1 -! JVRP(20661) = dARP(13014)/dV(2034) - JVRP(20661) = V(5250) -! JVRP(20662) = dARP(13014)/dV(5250) - JVRP(20662) = V(2034) -! JVRP(20663) = dARP(13015)/dV(2034) - JVRP(20663) = 1 -! JVRP(20664) = dARP(13016)/dV(2035) - JVRP(20664) = 1 -! JVRP(20665) = dARP(13017)/dV(767) - JVRP(20665) = V(5250) -! JVRP(20666) = dARP(13017)/dV(5250) - JVRP(20666) = V(767) -! JVRP(20667) = dARP(13018)/dV(767) - JVRP(20667) = 1 -! JVRP(20668) = dARP(13019)/dV(1277) - JVRP(20668) = V(5250) -! JVRP(20669) = dARP(13019)/dV(5250) - JVRP(20669) = V(1277) -! JVRP(20670) = dARP(13020)/dV(1277) - JVRP(20670) = 1 -! JVRP(20671) = dARP(13021)/dV(3858) - JVRP(20671) = V(5255) -! JVRP(20672) = dARP(13021)/dV(5255) - JVRP(20672) = V(3858) -! JVRP(20673) = dARP(13022)/dV(3858) - JVRP(20673) = V(5252) -! JVRP(20674) = dARP(13022)/dV(5252) - JVRP(20674) = V(3858) -! JVRP(20675) = dARP(13023)/dV(3858) - JVRP(20675) = V(5252) -! JVRP(20676) = dARP(13023)/dV(5252) - JVRP(20676) = V(3858) -! JVRP(20677) = dARP(13024)/dV(3858) - JVRP(20677) = V(5256) -! JVRP(20678) = dARP(13024)/dV(5256) - JVRP(20678) = V(3858) -! JVRP(20679) = dARP(13025)/dV(3858) - JVRP(20679) = 1 -! JVRP(20680) = dARP(13026)/dV(3858) - JVRP(20680) = 1 -! JVRP(20681) = dARP(13027)/dV(3858) - JVRP(20681) = 1 -! JVRP(20682) = dARP(13028)/dV(265) - JVRP(20682) = V(5250) -! JVRP(20683) = dARP(13028)/dV(5250) - JVRP(20683) = V(265) -! JVRP(20684) = dARP(13029)/dV(2658) - JVRP(20684) = V(5250) -! JVRP(20685) = dARP(13029)/dV(5250) - JVRP(20685) = V(2658) -! JVRP(20686) = dARP(13030)/dV(2658) - JVRP(20686) = 1 -! JVRP(20687) = dARP(13031)/dV(4268) - JVRP(20687) = V(5255) -! JVRP(20688) = dARP(13031)/dV(5255) - JVRP(20688) = V(4268) -! JVRP(20689) = dARP(13032)/dV(4268) - JVRP(20689) = V(5252) -! JVRP(20690) = dARP(13032)/dV(5252) - JVRP(20690) = V(4268) -! JVRP(20691) = dARP(13033)/dV(4268) - JVRP(20691) = V(5256) -! JVRP(20692) = dARP(13033)/dV(5256) - JVRP(20692) = V(4268) -! JVRP(20693) = dARP(13034)/dV(4268) - JVRP(20693) = 1 -! JVRP(20694) = dARP(13035)/dV(1203) - JVRP(20694) = V(5250) -! JVRP(20695) = dARP(13035)/dV(5250) - JVRP(20695) = V(1203) -! JVRP(20696) = dARP(13036)/dV(1203) - JVRP(20696) = 1 -! JVRP(20697) = dARP(13037)/dV(49) - JVRP(20697) = 1 -! JVRP(20698) = dARP(13038)/dV(1214) - JVRP(20698) = V(5250) -! JVRP(20699) = dARP(13038)/dV(5250) - JVRP(20699) = V(1214) -! JVRP(20700) = dARP(13039)/dV(1214) - JVRP(20700) = 1 -! JVRP(20701) = dARP(13040)/dV(2701) - JVRP(20701) = V(5250) -! JVRP(20702) = dARP(13040)/dV(5250) - JVRP(20702) = V(2701) -! JVRP(20703) = dARP(13041)/dV(2701) - JVRP(20703) = 1 -! JVRP(20704) = dARP(13042)/dV(1852) - JVRP(20704) = 1 -! JVRP(20705) = dARP(13043)/dV(209) - JVRP(20705) = V(5250) -! JVRP(20706) = dARP(13043)/dV(5250) - JVRP(20706) = V(209) -! JVRP(20707) = dARP(13044)/dV(209) - JVRP(20707) = 1 -! JVRP(20708) = dARP(13045)/dV(2151) - JVRP(20708) = V(5250) -! JVRP(20709) = dARP(13045)/dV(5250) - JVRP(20709) = V(2151) -! JVRP(20710) = dARP(13046)/dV(2151) - JVRP(20710) = 1 -! JVRP(20711) = dARP(13047)/dV(632) - JVRP(20711) = 1 -! JVRP(20712) = dARP(13048)/dV(4660) - JVRP(20712) = V(5255) -! JVRP(20713) = dARP(13048)/dV(5255) - JVRP(20713) = V(4660) -! JVRP(20714) = dARP(13049)/dV(4660) - JVRP(20714) = V(5255) -! JVRP(20715) = dARP(13049)/dV(5255) - JVRP(20715) = V(4660) -! JVRP(20716) = dARP(13050)/dV(4660) - JVRP(20716) = V(5255) -! JVRP(20717) = dARP(13050)/dV(5255) - JVRP(20717) = V(4660) -! JVRP(20718) = dARP(13051)/dV(4660) - JVRP(20718) = V(5252) -! JVRP(20719) = dARP(13051)/dV(5252) - JVRP(20719) = V(4660) -! JVRP(20720) = dARP(13052)/dV(4660) - JVRP(20720) = V(5253) -! JVRP(20721) = dARP(13052)/dV(5253) - JVRP(20721) = V(4660) -! JVRP(20722) = dARP(13053)/dV(4660) - JVRP(20722) = V(5256) -! JVRP(20723) = dARP(13053)/dV(5256) - JVRP(20723) = V(4660) -! JVRP(20724) = dARP(13054)/dV(4660) - JVRP(20724) = 1 -! JVRP(20725) = dARP(13055)/dV(4660) - JVRP(20725) = 1 -! JVRP(20726) = dARP(13056)/dV(5019) - JVRP(20726) = V(5255) -! JVRP(20727) = dARP(13056)/dV(5255) - JVRP(20727) = V(5019) -! JVRP(20728) = dARP(13057)/dV(5019) - JVRP(20728) = V(5252) -! JVRP(20729) = dARP(13057)/dV(5252) - JVRP(20729) = V(5019) -! JVRP(20730) = dARP(13058)/dV(5019) - JVRP(20730) = V(5256) -! JVRP(20731) = dARP(13058)/dV(5256) - JVRP(20731) = V(5019) -! JVRP(20732) = dARP(13059)/dV(5019) - JVRP(20732) = 1 -! JVRP(20733) = dARP(13060)/dV(5019) - JVRP(20733) = 1 -! JVRP(20734) = dARP(13061)/dV(5019) - JVRP(20734) = 1 -! JVRP(20735) = dARP(13062)/dV(1367) - JVRP(20735) = V(5250) -! JVRP(20736) = dARP(13062)/dV(5250) - JVRP(20736) = V(1367) -! JVRP(20737) = dARP(13063)/dV(1367) - JVRP(20737) = 1 -! JVRP(20738) = dARP(13064)/dV(2629) - JVRP(20738) = V(5250) -! JVRP(20739) = dARP(13064)/dV(5250) - JVRP(20739) = V(2629) -! JVRP(20740) = dARP(13065)/dV(2629) - JVRP(20740) = 1 -! JVRP(20741) = dARP(13066)/dV(2457) - JVRP(20741) = 1 -! JVRP(20742) = dARP(13067)/dV(493) - JVRP(20742) = V(5250) -! JVRP(20743) = dARP(13067)/dV(5250) - JVRP(20743) = V(493) -! JVRP(20744) = dARP(13068)/dV(493) - JVRP(20744) = 1 -! JVRP(20745) = dARP(13069)/dV(508) - JVRP(20745) = V(5250) -! JVRP(20746) = dARP(13069)/dV(5250) - JVRP(20746) = V(508) -! JVRP(20747) = dARP(13070)/dV(508) - JVRP(20747) = 1 -! JVRP(20748) = dARP(13071)/dV(69) - JVRP(20748) = 1 -! JVRP(20749) = dARP(13072)/dV(472) - JVRP(20749) = V(5250) -! JVRP(20750) = dARP(13072)/dV(5250) - JVRP(20750) = V(472) -! JVRP(20751) = dARP(13073)/dV(472) - JVRP(20751) = 1 -! JVRP(20752) = dARP(13074)/dV(359) - JVRP(20752) = V(5250) -! JVRP(20753) = dARP(13074)/dV(5250) - JVRP(20753) = V(359) -! JVRP(20754) = dARP(13075)/dV(1390) - JVRP(20754) = V(5250) -! JVRP(20755) = dARP(13075)/dV(5250) - JVRP(20755) = V(1390) -! JVRP(20756) = dARP(13076)/dV(1390) - JVRP(20756) = 1 -! JVRP(20757) = dARP(13077)/dV(2759) - JVRP(20757) = V(5250) -! JVRP(20758) = dARP(13077)/dV(5250) - JVRP(20758) = V(2759) -! JVRP(20759) = dARP(13078)/dV(2759) - JVRP(20759) = 1 -! JVRP(20760) = dARP(13079)/dV(1803) - JVRP(20760) = 1 -! JVRP(20761) = dARP(13080)/dV(400) - JVRP(20761) = V(5250) -! JVRP(20762) = dARP(13080)/dV(5250) - JVRP(20762) = V(400) -! JVRP(20763) = dARP(13081)/dV(400) - JVRP(20763) = 1 -! JVRP(20764) = dARP(13082)/dV(210) - JVRP(20764) = V(5250) -! JVRP(20765) = dARP(13082)/dV(5250) - JVRP(20765) = V(210) -! JVRP(20766) = dARP(13083)/dV(1540) - JVRP(20766) = V(5250) -! JVRP(20767) = dARP(13083)/dV(5250) - JVRP(20767) = V(1540) -! JVRP(20768) = dARP(13084)/dV(1540) - JVRP(20768) = 1 -! JVRP(20769) = dARP(13085)/dV(2515) - JVRP(20769) = V(5250) -! JVRP(20770) = dARP(13085)/dV(5250) - JVRP(20770) = V(2515) -! JVRP(20771) = dARP(13086)/dV(2515) - JVRP(20771) = 1 -! JVRP(20772) = dARP(13087)/dV(594) - JVRP(20772) = V(5250) -! JVRP(20773) = dARP(13087)/dV(5250) - JVRP(20773) = V(594) -! JVRP(20774) = dARP(13088)/dV(594) - JVRP(20774) = 1 -! JVRP(20775) = dARP(13089)/dV(88) - JVRP(20775) = 1 -! JVRP(20776) = dARP(13090)/dV(593) - JVRP(20776) = V(5250) -! JVRP(20777) = dARP(13090)/dV(5250) - JVRP(20777) = V(593) -! JVRP(20778) = dARP(13091)/dV(347) - JVRP(20778) = V(5250) -! JVRP(20779) = dARP(13091)/dV(5250) - JVRP(20779) = V(347) -! JVRP(20780) = dARP(13092)/dV(1428) - JVRP(20780) = V(5250) -! JVRP(20781) = dARP(13092)/dV(5250) - JVRP(20781) = V(1428) -! JVRP(20782) = dARP(13093)/dV(1428) - JVRP(20782) = 1 -! JVRP(20783) = dARP(13094)/dV(1823) - JVRP(20783) = V(5250) -! JVRP(20784) = dARP(13094)/dV(5250) - JVRP(20784) = V(1823) -! JVRP(20785) = dARP(13095)/dV(1823) - JVRP(20785) = 1 -! JVRP(20786) = dARP(13096)/dV(3591) - JVRP(20786) = 1 -! JVRP(20787) = dARP(13097)/dV(3591) - JVRP(20787) = 1 -! JVRP(20788) = dARP(13098)/dV(799) - JVRP(20788) = V(5250) -! JVRP(20789) = dARP(13098)/dV(5250) - JVRP(20789) = V(799) -! JVRP(20790) = dARP(13099)/dV(799) - JVRP(20790) = 1 -! JVRP(20791) = dARP(13100)/dV(1089) - JVRP(20791) = V(5250) -! JVRP(20792) = dARP(13100)/dV(5250) - JVRP(20792) = V(1089) -! JVRP(20793) = dARP(13101)/dV(1089) - JVRP(20793) = 1 -! JVRP(20794) = dARP(13102)/dV(125) - JVRP(20794) = 1 -! JVRP(20795) = dARP(13103)/dV(502) - JVRP(20795) = V(5250) -! JVRP(20796) = dARP(13103)/dV(5250) - JVRP(20796) = V(502) -! JVRP(20797) = dARP(13104)/dV(3845) - JVRP(20797) = V(5255) -! JVRP(20798) = dARP(13104)/dV(5255) - JVRP(20798) = V(3845) -! JVRP(20799) = dARP(13105)/dV(3845) - JVRP(20799) = V(5252) -! JVRP(20800) = dARP(13105)/dV(5252) - JVRP(20800) = V(3845) -! JVRP(20801) = dARP(13106)/dV(3845) - JVRP(20801) = V(5252) -! JVRP(20802) = dARP(13106)/dV(5252) - JVRP(20802) = V(3845) -! JVRP(20803) = dARP(13107)/dV(3845) - JVRP(20803) = V(5256) -! JVRP(20804) = dARP(13107)/dV(5256) - JVRP(20804) = V(3845) -! JVRP(20805) = dARP(13108)/dV(3845) - JVRP(20805) = 1 -! JVRP(20806) = dARP(13109)/dV(3845) - JVRP(20806) = 1 -! JVRP(20807) = dARP(13110)/dV(3862) - JVRP(20807) = V(5256) -! JVRP(20808) = dARP(13110)/dV(5256) - JVRP(20808) = V(3862) -! JVRP(20809) = dARP(13111)/dV(3862) - JVRP(20809) = V(5250) -! JVRP(20810) = dARP(13111)/dV(5250) - JVRP(20810) = V(3862) -! JVRP(20811) = dARP(13112)/dV(3862) - JVRP(20811) = 1 -! JVRP(20812) = dARP(13113)/dV(4150) - JVRP(20812) = V(5255) -! JVRP(20813) = dARP(13113)/dV(5255) - JVRP(20813) = V(4150) -! JVRP(20814) = dARP(13114)/dV(4150) - JVRP(20814) = V(5252) -! JVRP(20815) = dARP(13114)/dV(5252) - JVRP(20815) = V(4150) -! JVRP(20816) = dARP(13115)/dV(4150) - JVRP(20816) = V(5256) -! JVRP(20817) = dARP(13115)/dV(5256) - JVRP(20817) = V(4150) -! JVRP(20818) = dARP(13116)/dV(4150) - JVRP(20818) = 1 -! JVRP(20819) = dARP(13117)/dV(4150) - JVRP(20819) = 1 -! JVRP(20820) = dARP(13118)/dV(4150) - JVRP(20820) = 1 -! JVRP(20821) = dARP(13119)/dV(5073) - JVRP(20821) = V(5255) -! JVRP(20822) = dARP(13119)/dV(5255) - JVRP(20822) = V(5073) -! JVRP(20823) = dARP(13120)/dV(5073) - JVRP(20823) = V(5255) -! JVRP(20824) = dARP(13120)/dV(5255) - JVRP(20824) = V(5073) -! JVRP(20825) = dARP(13121)/dV(5073) - JVRP(20825) = V(5252) -! JVRP(20826) = dARP(13121)/dV(5252) - JVRP(20826) = V(5073) -! JVRP(20827) = dARP(13122)/dV(5073) - JVRP(20827) = V(5253) -! JVRP(20828) = dARP(13122)/dV(5253) - JVRP(20828) = V(5073) -! JVRP(20829) = dARP(13123)/dV(5073) - JVRP(20829) = V(5256) -! JVRP(20830) = dARP(13123)/dV(5256) - JVRP(20830) = V(5073) -! JVRP(20831) = dARP(13124)/dV(5073) - JVRP(20831) = 1 -! JVRP(20832) = dARP(13125)/dV(1394) - JVRP(20832) = V(5250) -! JVRP(20833) = dARP(13125)/dV(5250) - JVRP(20833) = V(1394) -! JVRP(20834) = dARP(13126)/dV(1394) - JVRP(20834) = 1 -! JVRP(20835) = dARP(13127)/dV(993) - JVRP(20835) = V(5250) -! JVRP(20836) = dARP(13127)/dV(5250) - JVRP(20836) = V(993) -! JVRP(20837) = dARP(13128)/dV(993) - JVRP(20837) = 1 -! JVRP(20838) = dARP(13129)/dV(2708) - JVRP(20838) = V(5250) -! JVRP(20839) = dARP(13129)/dV(5250) - JVRP(20839) = V(2708) -! JVRP(20840) = dARP(13130)/dV(2708) - JVRP(20840) = 1 -! JVRP(20841) = dARP(13131)/dV(880) - JVRP(20841) = V(5250) -! JVRP(20842) = dARP(13131)/dV(5250) - JVRP(20842) = V(880) -! JVRP(20843) = dARP(13132)/dV(880) - JVRP(20843) = 1 -! JVRP(20844) = dARP(13133)/dV(1996) - JVRP(20844) = V(5250) -! JVRP(20845) = dARP(13133)/dV(5250) - JVRP(20845) = V(1996) -! JVRP(20846) = dARP(13134)/dV(1996) - JVRP(20846) = 1 -! JVRP(20847) = dARP(13135)/dV(158) - JVRP(20847) = 1 -! JVRP(20848) = dARP(13136)/dV(121) - JVRP(20848) = V(5250) -! JVRP(20849) = dARP(13136)/dV(5250) - JVRP(20849) = V(121) -! JVRP(20850) = dARP(13137)/dV(5085) - JVRP(20850) = V(5256) -! JVRP(20851) = dARP(13137)/dV(5256) - JVRP(20851) = V(5085) -! JVRP(20852) = dARP(13138)/dV(5085) - JVRP(20852) = V(5250) -! JVRP(20853) = dARP(13138)/dV(5250) - JVRP(20853) = V(5085) -! JVRP(20854) = dARP(13139)/dV(5085) - JVRP(20854) = 1 -! JVRP(20855) = dARP(13140)/dV(2386) - JVRP(20855) = V(5250) -! JVRP(20856) = dARP(13140)/dV(5250) - JVRP(20856) = V(2386) -! JVRP(20857) = dARP(13141)/dV(2386) - JVRP(20857) = 1 -! JVRP(20858) = dARP(13142)/dV(2386) - JVRP(20858) = 1 -! JVRP(20859) = dARP(13143)/dV(1631) - JVRP(20859) = 1 -! JVRP(20860) = dARP(13144)/dV(1630) - JVRP(20860) = V(5250) -! JVRP(20861) = dARP(13144)/dV(5250) - JVRP(20861) = V(1630) -! JVRP(20862) = dARP(13145)/dV(1630) - JVRP(20862) = 1 -! JVRP(20863) = dARP(13146)/dV(3949) - JVRP(20863) = V(5255) -! JVRP(20864) = dARP(13146)/dV(5255) - JVRP(20864) = V(3949) -! JVRP(20865) = dARP(13147)/dV(3949) - JVRP(20865) = V(5252) -! JVRP(20866) = dARP(13147)/dV(5252) - JVRP(20866) = V(3949) -! JVRP(20867) = dARP(13148)/dV(3949) - JVRP(20867) = V(5256) -! JVRP(20868) = dARP(13148)/dV(5256) - JVRP(20868) = V(3949) -! JVRP(20869) = dARP(13149)/dV(3949) - JVRP(20869) = 1 -! JVRP(20870) = dARP(13150)/dV(3949) - JVRP(20870) = 1 -! JVRP(20871) = dARP(13151)/dV(20) - JVRP(20871) = 1 -! JVRP(20872) = dARP(13152)/dV(3950) - JVRP(20872) = V(5255) -! JVRP(20873) = dARP(13152)/dV(5255) - JVRP(20873) = V(3950) -! JVRP(20874) = dARP(13153)/dV(3950) - JVRP(20874) = V(5252) -! JVRP(20875) = dARP(13153)/dV(5252) - JVRP(20875) = V(3950) -! JVRP(20876) = dARP(13154)/dV(3950) - JVRP(20876) = V(5252) -! JVRP(20877) = dARP(13154)/dV(5252) - JVRP(20877) = V(3950) -! JVRP(20878) = dARP(13155)/dV(3950) - JVRP(20878) = V(5256) -! JVRP(20879) = dARP(13155)/dV(5256) - JVRP(20879) = V(3950) -! JVRP(20880) = dARP(13156)/dV(3950) - JVRP(20880) = 1 -! JVRP(20881) = dARP(13157)/dV(3950) - JVRP(20881) = 1 -! JVRP(20882) = dARP(13158)/dV(4059) - JVRP(20882) = V(5255) -! JVRP(20883) = dARP(13158)/dV(5255) - JVRP(20883) = V(4059) -! JVRP(20884) = dARP(13159)/dV(4059) - JVRP(20884) = V(5252) -! JVRP(20885) = dARP(13159)/dV(5252) - JVRP(20885) = V(4059) -! JVRP(20886) = dARP(13160)/dV(4059) - JVRP(20886) = V(5252) -! JVRP(20887) = dARP(13160)/dV(5252) - JVRP(20887) = V(4059) -! JVRP(20888) = dARP(13161)/dV(4059) - JVRP(20888) = V(5256) -! JVRP(20889) = dARP(13161)/dV(5256) - JVRP(20889) = V(4059) -! JVRP(20890) = dARP(13162)/dV(4059) - JVRP(20890) = 1 -! JVRP(20891) = dARP(13163)/dV(4059) - JVRP(20891) = 1 -! JVRP(20892) = dARP(13164)/dV(4059) - JVRP(20892) = 1 -! JVRP(20893) = dARP(13165)/dV(1135) - JVRP(20893) = V(5250) -! JVRP(20894) = dARP(13165)/dV(5250) - JVRP(20894) = V(1135) -! JVRP(20895) = dARP(13166)/dV(1135) - JVRP(20895) = 1 -! JVRP(20896) = dARP(13167)/dV(2352) - JVRP(20896) = V(5250) -! JVRP(20897) = dARP(13167)/dV(5250) - JVRP(20897) = V(2352) -! JVRP(20898) = dARP(13168)/dV(2352) - JVRP(20898) = 1 -! JVRP(20899) = dARP(13169)/dV(162) - JVRP(20899) = 1 -! JVRP(20900) = dARP(13170)/dV(310) - JVRP(20900) = V(5250) -! JVRP(20901) = dARP(13170)/dV(5250) - JVRP(20901) = V(310) -! JVRP(20902) = dARP(13171)/dV(1247) - JVRP(20902) = V(5250) -! JVRP(20903) = dARP(13171)/dV(5250) - JVRP(20903) = V(1247) -! JVRP(20904) = dARP(13172)/dV(1247) - JVRP(20904) = 1 -! JVRP(20905) = dARP(13173)/dV(3703) - JVRP(20905) = V(5255) -! JVRP(20906) = dARP(13173)/dV(5255) - JVRP(20906) = V(3703) -! JVRP(20907) = dARP(13174)/dV(3703) - JVRP(20907) = V(5252) -! JVRP(20908) = dARP(13174)/dV(5252) - JVRP(20908) = V(3703) -! JVRP(20909) = dARP(13175)/dV(3703) - JVRP(20909) = V(5252) -! JVRP(20910) = dARP(13175)/dV(5252) - JVRP(20910) = V(3703) -! JVRP(20911) = dARP(13176)/dV(3703) - JVRP(20911) = V(5256) -! JVRP(20912) = dARP(13176)/dV(5256) - JVRP(20912) = V(3703) -! JVRP(20913) = dARP(13177)/dV(3703) - JVRP(20913) = 1 -! JVRP(20914) = dARP(13178)/dV(3703) - JVRP(20914) = 1 -! JVRP(20915) = dARP(13179)/dV(3703) - JVRP(20915) = 1 -! JVRP(20916) = dARP(13180)/dV(241) - JVRP(20916) = V(5250) -! JVRP(20917) = dARP(13180)/dV(5250) - JVRP(20917) = V(241) -! JVRP(20918) = dARP(13181)/dV(2597) - JVRP(20918) = V(5250) -! JVRP(20919) = dARP(13181)/dV(5250) - JVRP(20919) = V(2597) -! JVRP(20920) = dARP(13182)/dV(2597) - JVRP(20920) = 1 -! JVRP(20921) = dARP(13183)/dV(887) - JVRP(20921) = V(5250) -! JVRP(20922) = dARP(13183)/dV(5250) - JVRP(20922) = V(887) -! JVRP(20923) = dARP(13184)/dV(887) - JVRP(20923) = 1 -! JVRP(20924) = dARP(13185)/dV(3338) - JVRP(20924) = 1 -! JVRP(20925) = dARP(13186)/dV(492) - JVRP(20925) = V(5250) -! JVRP(20926) = dARP(13186)/dV(5250) - JVRP(20926) = V(492) -! JVRP(20927) = dARP(13187)/dV(1317) - JVRP(20927) = V(5250) -! JVRP(20928) = dARP(13187)/dV(5250) - JVRP(20928) = V(1317) -! JVRP(20929) = dARP(13188)/dV(1317) - JVRP(20929) = 1 -! JVRP(20930) = dARP(13189)/dV(2651) - JVRP(20930) = V(5250) -! JVRP(20931) = dARP(13189)/dV(5250) - JVRP(20931) = V(2651) -! JVRP(20932) = dARP(13190)/dV(2651) - JVRP(20932) = 1 -! JVRP(20933) = dARP(13191)/dV(4538) - JVRP(20933) = V(5255) -! JVRP(20934) = dARP(13191)/dV(5255) - JVRP(20934) = V(4538) -! JVRP(20935) = dARP(13192)/dV(4538) - JVRP(20935) = V(5252) -! JVRP(20936) = dARP(13192)/dV(5252) - JVRP(20936) = V(4538) -! JVRP(20937) = dARP(13193)/dV(4538) - JVRP(20937) = V(5256) -! JVRP(20938) = dARP(13193)/dV(5256) - JVRP(20938) = V(4538) -! JVRP(20939) = dARP(13194)/dV(4538) - JVRP(20939) = 1 -! JVRP(20940) = dARP(13195)/dV(5044) - JVRP(20940) = V(5255) -! JVRP(20941) = dARP(13195)/dV(5255) - JVRP(20941) = V(5044) -! JVRP(20942) = dARP(13196)/dV(5044) - JVRP(20942) = V(5255) -! JVRP(20943) = dARP(13196)/dV(5255) - JVRP(20943) = V(5044) -! JVRP(20944) = dARP(13197)/dV(5044) - JVRP(20944) = V(5255) -! JVRP(20945) = dARP(13197)/dV(5255) - JVRP(20945) = V(5044) -! JVRP(20946) = dARP(13198)/dV(5044) - JVRP(20946) = V(5252) -! JVRP(20947) = dARP(13198)/dV(5252) - JVRP(20947) = V(5044) -! JVRP(20948) = dARP(13199)/dV(5044) - JVRP(20948) = V(5253) -! JVRP(20949) = dARP(13199)/dV(5253) - JVRP(20949) = V(5044) -! JVRP(20950) = dARP(13200)/dV(5044) - JVRP(20950) = V(5256) -! JVRP(20951) = dARP(13200)/dV(5256) - JVRP(20951) = V(5044) -! JVRP(20952) = dARP(13201)/dV(5044) - JVRP(20952) = 1 -! JVRP(20953) = dARP(13202)/dV(5044) - JVRP(20953) = 1 -! JVRP(20954) = dARP(13203)/dV(364) - JVRP(20954) = V(5250) -! JVRP(20955) = dARP(13203)/dV(5250) - JVRP(20955) = V(364) -! JVRP(20956) = dARP(13204)/dV(1479) - JVRP(20956) = V(5250) -! JVRP(20957) = dARP(13204)/dV(5250) - JVRP(20957) = V(1479) -! JVRP(20958) = dARP(13205)/dV(1479) - JVRP(20958) = 1 -! JVRP(20959) = dARP(13206)/dV(3686) - JVRP(20959) = V(5255) -! JVRP(20960) = dARP(13206)/dV(5255) - JVRP(20960) = V(3686) -! JVRP(20961) = dARP(13207)/dV(3686) - JVRP(20961) = V(5252) -! JVRP(20962) = dARP(13207)/dV(5252) - JVRP(20962) = V(3686) -! JVRP(20963) = dARP(13208)/dV(3686) - JVRP(20963) = V(5252) -! JVRP(20964) = dARP(13208)/dV(5252) - JVRP(20964) = V(3686) -! JVRP(20965) = dARP(13209)/dV(3686) - JVRP(20965) = V(5256) -! JVRP(20966) = dARP(13209)/dV(5256) - JVRP(20966) = V(3686) -! JVRP(20967) = dARP(13210)/dV(3686) - JVRP(20967) = 1 -! JVRP(20968) = dARP(13211)/dV(3686) - JVRP(20968) = 1 -! JVRP(20969) = dARP(13212)/dV(3686) - JVRP(20969) = 1 -! JVRP(20970) = dARP(13213)/dV(3011) - JVRP(20970) = V(5250) -! JVRP(20971) = dARP(13213)/dV(5250) - JVRP(20971) = V(3011) -! JVRP(20972) = dARP(13214)/dV(3011) - JVRP(20972) = 1 -! JVRP(20973) = dARP(13215)/dV(1739) - JVRP(20973) = 1 -! JVRP(20974) = dARP(13216)/dV(1739) - JVRP(20974) = 1 -! JVRP(20975) = dARP(13217)/dV(489) - JVRP(20975) = V(5250) -! JVRP(20976) = dARP(13217)/dV(5250) - JVRP(20976) = V(489) -! JVRP(20977) = dARP(13218)/dV(1509) - JVRP(20977) = V(5250) -! JVRP(20978) = dARP(13218)/dV(5250) - JVRP(20978) = V(1509) -! JVRP(20979) = dARP(13219)/dV(1509) - JVRP(20979) = 1 -! JVRP(20980) = dARP(13220)/dV(2704) - JVRP(20980) = V(5250) -! JVRP(20981) = dARP(13220)/dV(5250) - JVRP(20981) = V(2704) -! JVRP(20982) = dARP(13221)/dV(2704) - JVRP(20982) = 1 -! JVRP(20983) = dARP(13222)/dV(871) - JVRP(20983) = V(5250) -! JVRP(20984) = dARP(13222)/dV(5250) - JVRP(20984) = V(871) -! JVRP(20985) = dARP(13223)/dV(871) - JVRP(20985) = 1 -! JVRP(20986) = dARP(13224)/dV(206) - JVRP(20986) = 1 -! JVRP(20987) = dARP(13225)/dV(30) - JVRP(20987) = V(5250) -! JVRP(20988) = dARP(13225)/dV(5250) - JVRP(20988) = V(30) -! JVRP(20989) = dARP(13226)/dV(275) - JVRP(20989) = V(5250) -! JVRP(20990) = dARP(13226)/dV(5250) - JVRP(20990) = V(275) -! JVRP(20991) = dARP(13227)/dV(951) - JVRP(20991) = V(5250) -! JVRP(20992) = dARP(13227)/dV(5250) - JVRP(20992) = V(951) -! JVRP(20993) = dARP(13228)/dV(951) - JVRP(20993) = 1 -! JVRP(20994) = dARP(13229)/dV(3789) - JVRP(20994) = V(5255) -! JVRP(20995) = dARP(13229)/dV(5255) - JVRP(20995) = V(3789) -! JVRP(20996) = dARP(13230)/dV(3789) - JVRP(20996) = V(5252) -! JVRP(20997) = dARP(13230)/dV(5252) - JVRP(20997) = V(3789) -! JVRP(20998) = dARP(13231)/dV(3789) - JVRP(20998) = V(5252) -! JVRP(20999) = dARP(13231)/dV(5252) - JVRP(20999) = V(3789) -! JVRP(21000) = dARP(13232)/dV(3789) - JVRP(21000) = V(5256) -! JVRP(21001) = dARP(13232)/dV(5256) - JVRP(21001) = V(3789) -! JVRP(21002) = dARP(13233)/dV(3789) - JVRP(21002) = 1 -! JVRP(21003) = dARP(13234)/dV(3789) - JVRP(21003) = 1 -! JVRP(21004) = dARP(13235)/dV(3789) - JVRP(21004) = 1 -! JVRP(21005) = dARP(13236)/dV(2666) - JVRP(21005) = V(5250) -! JVRP(21006) = dARP(13236)/dV(5250) - JVRP(21006) = V(2666) -! JVRP(21007) = dARP(13237)/dV(2666) - JVRP(21007) = 1 -! JVRP(21008) = dARP(13238)/dV(215) - JVRP(21008) = V(5250) -! JVRP(21009) = dARP(13238)/dV(5250) - JVRP(21009) = V(215) -! JVRP(21010) = dARP(13239)/dV(1233) - JVRP(21010) = V(5250) -! JVRP(21011) = dARP(13239)/dV(5250) - JVRP(21011) = V(1233) -! JVRP(21012) = dARP(13240)/dV(1233) - JVRP(21012) = 1 -! JVRP(21013) = dARP(13241)/dV(3764) - JVRP(21013) = V(5255) -! JVRP(21014) = dARP(13241)/dV(5255) - JVRP(21014) = V(3764) -! JVRP(21015) = dARP(13242)/dV(3764) - JVRP(21015) = V(5252) -! JVRP(21016) = dARP(13242)/dV(5252) - JVRP(21016) = V(3764) -! JVRP(21017) = dARP(13243)/dV(3764) - JVRP(21017) = V(5252) -! JVRP(21018) = dARP(13243)/dV(5252) - JVRP(21018) = V(3764) -! JVRP(21019) = dARP(13244)/dV(3764) - JVRP(21019) = V(5256) -! JVRP(21020) = dARP(13244)/dV(5256) - JVRP(21020) = V(3764) -! JVRP(21021) = dARP(13245)/dV(3764) - JVRP(21021) = 1 -! JVRP(21022) = dARP(13246)/dV(3764) - JVRP(21022) = 1 -! JVRP(21023) = dARP(13247)/dV(3764) - JVRP(21023) = 1 -! JVRP(21024) = dARP(13248)/dV(2613) - JVRP(21024) = V(5250) -! JVRP(21025) = dARP(13248)/dV(5250) - JVRP(21025) = V(2613) -! JVRP(21026) = dARP(13249)/dV(2613) - JVRP(21026) = 1 -! JVRP(21027) = dARP(13250)/dV(4385) - JVRP(21027) = V(5255) -! JVRP(21028) = dARP(13250)/dV(5255) - JVRP(21028) = V(4385) -! JVRP(21029) = dARP(13251)/dV(4385) - JVRP(21029) = V(5252) -! JVRP(21030) = dARP(13251)/dV(5252) - JVRP(21030) = V(4385) -! JVRP(21031) = dARP(13252)/dV(4385) - JVRP(21031) = V(5252) -! JVRP(21032) = dARP(13252)/dV(5252) - JVRP(21032) = V(4385) -! JVRP(21033) = dARP(13253)/dV(4385) - JVRP(21033) = V(5256) -! JVRP(21034) = dARP(13253)/dV(5256) - JVRP(21034) = V(4385) -! JVRP(21035) = dARP(13254)/dV(4385) - JVRP(21035) = 1 -! JVRP(21036) = dARP(13255)/dV(4385) - JVRP(21036) = 1 -! JVRP(21037) = dARP(13256)/dV(927) - JVRP(21037) = V(5250) -! JVRP(21038) = dARP(13256)/dV(5250) - JVRP(21038) = V(927) -! JVRP(21039) = dARP(13257)/dV(927) - JVRP(21039) = 1 -! JVRP(21040) = dARP(13258)/dV(2908) - JVRP(21040) = V(5250) -! JVRP(21041) = dARP(13258)/dV(5250) - JVRP(21041) = V(2908) -! JVRP(21042) = dARP(13259)/dV(2908) - JVRP(21042) = 1 -! JVRP(21043) = dARP(13260)/dV(1961) - JVRP(21043) = 1 -! JVRP(21044) = dARP(13261)/dV(511) - JVRP(21044) = V(5250) -! JVRP(21045) = dARP(13261)/dV(5250) - JVRP(21045) = V(511) -! JVRP(21046) = dARP(13262)/dV(4748) - JVRP(21046) = V(5255) -! JVRP(21047) = dARP(13262)/dV(5255) - JVRP(21047) = V(4748) -! JVRP(21048) = dARP(13263)/dV(4748) - JVRP(21048) = V(5252) -! JVRP(21049) = dARP(13263)/dV(5252) - JVRP(21049) = V(4748) -! JVRP(21050) = dARP(13264)/dV(4748) - JVRP(21050) = V(5252) -! JVRP(21051) = dARP(13264)/dV(5252) - JVRP(21051) = V(4748) -! JVRP(21052) = dARP(13265)/dV(4748) - JVRP(21052) = V(5256) -! JVRP(21053) = dARP(13265)/dV(5256) - JVRP(21053) = V(4748) -! JVRP(21054) = dARP(13266)/dV(4748) - JVRP(21054) = 1 -! JVRP(21055) = dARP(13267)/dV(4748) - JVRP(21055) = 1 -! JVRP(21056) = dARP(13268)/dV(4863) - JVRP(21056) = V(5255) -! JVRP(21057) = dARP(13268)/dV(5255) - JVRP(21057) = V(4863) -! JVRP(21058) = dARP(13269)/dV(4863) - JVRP(21058) = V(5255) -! JVRP(21059) = dARP(13269)/dV(5255) - JVRP(21059) = V(4863) -! JVRP(21060) = dARP(13270)/dV(4863) - JVRP(21060) = V(5255) -! JVRP(21061) = dARP(13270)/dV(5255) - JVRP(21061) = V(4863) -! JVRP(21062) = dARP(13271)/dV(4863) - JVRP(21062) = V(5252) -! JVRP(21063) = dARP(13271)/dV(5252) - JVRP(21063) = V(4863) -! JVRP(21064) = dARP(13272)/dV(4863) - JVRP(21064) = V(5253) -! JVRP(21065) = dARP(13272)/dV(5253) - JVRP(21065) = V(4863) -! JVRP(21066) = dARP(13273)/dV(4863) - JVRP(21066) = V(5256) -! JVRP(21067) = dARP(13273)/dV(5256) - JVRP(21067) = V(4863) -! JVRP(21068) = dARP(13274)/dV(4863) - JVRP(21068) = 1 -! JVRP(21069) = dARP(13275)/dV(4863) - JVRP(21069) = 1 -! JVRP(21070) = dARP(13276)/dV(1245) - JVRP(21070) = V(5250) -! JVRP(21071) = dARP(13276)/dV(5250) - JVRP(21071) = V(1245) -! JVRP(21072) = dARP(13277)/dV(1245) - JVRP(21072) = 1 -! JVRP(21073) = dARP(13278)/dV(2408) - JVRP(21073) = V(5250) -! JVRP(21074) = dARP(13278)/dV(5250) - JVRP(21074) = V(2408) -! JVRP(21075) = dARP(13279)/dV(2408) - JVRP(21075) = 1 -! JVRP(21076) = dARP(13280)/dV(315) - JVRP(21076) = 1 -! JVRP(21077) = dARP(13281)/dV(59) - JVRP(21077) = V(5250) -! JVRP(21078) = dARP(13281)/dV(5250) - JVRP(21078) = V(59) -! JVRP(21079) = dARP(13282)/dV(4734) - JVRP(21079) = V(5255) -! JVRP(21080) = dARP(13282)/dV(5255) - JVRP(21080) = V(4734) -! JVRP(21081) = dARP(13283)/dV(4734) - JVRP(21081) = V(5252) -! JVRP(21082) = dARP(13283)/dV(5252) - JVRP(21082) = V(4734) -! JVRP(21083) = dARP(13284)/dV(4734) - JVRP(21083) = V(5256) -! JVRP(21084) = dARP(13284)/dV(5256) - JVRP(21084) = V(4734) -! JVRP(21085) = dARP(13285)/dV(4734) - JVRP(21085) = 1 -! JVRP(21086) = dARP(13286)/dV(4734) - JVRP(21086) = 1 -! JVRP(21087) = dARP(13287)/dV(5104) - JVRP(21087) = V(5255) -! JVRP(21088) = dARP(13287)/dV(5255) - JVRP(21088) = V(5104) -! JVRP(21089) = dARP(13288)/dV(5104) - JVRP(21089) = V(5252) -! JVRP(21090) = dARP(13288)/dV(5252) - JVRP(21090) = V(5104) -! JVRP(21091) = dARP(13289)/dV(5104) - JVRP(21091) = V(5252) -! JVRP(21092) = dARP(13289)/dV(5252) - JVRP(21092) = V(5104) -! JVRP(21093) = dARP(13290)/dV(5104) - JVRP(21093) = V(5256) -! JVRP(21094) = dARP(13290)/dV(5256) - JVRP(21094) = V(5104) -! JVRP(21095) = dARP(13291)/dV(5104) - JVRP(21095) = 1 -! JVRP(21096) = dARP(13292)/dV(5104) - JVRP(21096) = 1 -! JVRP(21097) = dARP(13293)/dV(1444) - JVRP(21097) = V(5250) -! JVRP(21098) = dARP(13293)/dV(5250) - JVRP(21098) = V(1444) -! JVRP(21099) = dARP(13294)/dV(1444) - JVRP(21099) = 1 -! JVRP(21100) = dARP(13295)/dV(1752) - JVRP(21100) = V(5250) -! JVRP(21101) = dARP(13295)/dV(5250) - JVRP(21101) = V(1752) -! JVRP(21102) = dARP(13296)/dV(1752) - JVRP(21102) = 1 -! JVRP(21103) = dARP(13297)/dV(3425) - JVRP(21103) = 1 -! JVRP(21104) = dARP(13298)/dV(3425) - JVRP(21104) = 1 -! JVRP(21105) = dARP(13299)/dV(256) - JVRP(21105) = V(5250) -! JVRP(21106) = dARP(13299)/dV(5250) - JVRP(21106) = V(256) -! JVRP(21107) = dARP(13300)/dV(3951) - JVRP(21107) = V(5255) -! JVRP(21108) = dARP(13300)/dV(5255) - JVRP(21108) = V(3951) -! JVRP(21109) = dARP(13301)/dV(3951) - JVRP(21109) = V(5252) -! JVRP(21110) = dARP(13301)/dV(5252) - JVRP(21110) = V(3951) -! JVRP(21111) = dARP(13302)/dV(3951) - JVRP(21111) = V(5256) -! JVRP(21112) = dARP(13302)/dV(5256) - JVRP(21112) = V(3951) -! JVRP(21113) = dARP(13303)/dV(3951) - JVRP(21113) = 1 -! JVRP(21114) = dARP(13304)/dV(3951) - JVRP(21114) = 1 -! JVRP(21115) = dARP(13305)/dV(4648) - JVRP(21115) = V(5255) -! JVRP(21116) = dARP(13305)/dV(5255) - JVRP(21116) = V(4648) -! JVRP(21117) = dARP(13306)/dV(4648) - JVRP(21117) = V(5252) -! JVRP(21118) = dARP(13306)/dV(5252) - JVRP(21118) = V(4648) -! JVRP(21119) = dARP(13307)/dV(4648) - JVRP(21119) = V(5256) -! JVRP(21120) = dARP(13307)/dV(5256) - JVRP(21120) = V(4648) -! JVRP(21121) = dARP(13308)/dV(4648) - JVRP(21121) = 1 -! JVRP(21122) = dARP(13309)/dV(4510) - JVRP(21122) = V(5255) -! JVRP(21123) = dARP(13309)/dV(5255) - JVRP(21123) = V(4510) -! JVRP(21124) = dARP(13310)/dV(4510) - JVRP(21124) = V(5252) -! JVRP(21125) = dARP(13310)/dV(5252) - JVRP(21125) = V(4510) -! JVRP(21126) = dARP(13311)/dV(4510) - JVRP(21126) = V(5256) -! JVRP(21127) = dARP(13311)/dV(5256) - JVRP(21127) = V(4510) -! JVRP(21128) = dARP(13312)/dV(4510) - JVRP(21128) = 1 -! JVRP(21129) = dARP(13313)/dV(1779) - JVRP(21129) = 1 -! JVRP(21130) = dARP(13314)/dV(1779) - JVRP(21130) = V(5250) -! JVRP(21131) = dARP(13314)/dV(5250) - JVRP(21131) = V(1779) -! JVRP(21132) = dARP(13315)/dV(1779) - JVRP(21132) = V(5250) -! JVRP(21133) = dARP(13315)/dV(5250) - JVRP(21133) = V(1779) -! JVRP(21134) = dARP(13316)/dV(1482) - JVRP(21134) = V(5250) -! JVRP(21135) = dARP(13316)/dV(5250) - JVRP(21135) = V(1482) -! JVRP(21136) = dARP(13317)/dV(3079) - JVRP(21136) = 1 -! JVRP(21137) = dARP(13318)/dV(285) - JVRP(21137) = V(5250) -! JVRP(21138) = dARP(13318)/dV(5250) - JVRP(21138) = V(285) -! JVRP(21139) = dARP(13319)/dV(3938) - JVRP(21139) = 1 -! JVRP(21140) = dARP(13320)/dV(3938) - JVRP(21140) = V(5256) -! JVRP(21141) = dARP(13320)/dV(5256) - JVRP(21141) = V(3938) -! JVRP(21142) = dARP(13321)/dV(3938) - JVRP(21142) = V(5250) -! JVRP(21143) = dARP(13321)/dV(5250) - JVRP(21143) = V(3938) -! JVRP(21144) = dARP(13322)/dV(4468) - JVRP(21144) = V(5255) -! JVRP(21145) = dARP(13322)/dV(5255) - JVRP(21145) = V(4468) -! JVRP(21146) = dARP(13323)/dV(4468) - JVRP(21146) = V(5255) -! JVRP(21147) = dARP(13323)/dV(5255) - JVRP(21147) = V(4468) -! JVRP(21148) = dARP(13324)/dV(4468) - JVRP(21148) = V(5252) -! JVRP(21149) = dARP(13324)/dV(5252) - JVRP(21149) = V(4468) -! JVRP(21150) = dARP(13325)/dV(4468) - JVRP(21150) = V(5253) -! JVRP(21151) = dARP(13325)/dV(5253) - JVRP(21151) = V(4468) -! JVRP(21152) = dARP(13326)/dV(4468) - JVRP(21152) = V(5256) -! JVRP(21153) = dARP(13326)/dV(5256) - JVRP(21153) = V(4468) -! JVRP(21154) = dARP(13327)/dV(4468) - JVRP(21154) = 1 -! JVRP(21155) = dARP(13328)/dV(2115) - JVRP(21155) = 1 -! JVRP(21156) = dARP(13329)/dV(2115) - JVRP(21156) = V(5250) -! JVRP(21157) = dARP(13329)/dV(5250) - JVRP(21157) = V(2115) -! JVRP(21158) = dARP(13330)/dV(820) - JVRP(21158) = 1 -! JVRP(21159) = dARP(13331)/dV(1173) - JVRP(21159) = 1 -! JVRP(21160) = dARP(13332)/dV(1173) - JVRP(21160) = V(5250) -! JVRP(21161) = dARP(13332)/dV(5250) - JVRP(21161) = V(1173) -! JVRP(21162) = dARP(13333)/dV(2987) - JVRP(21162) = 1 -! JVRP(21163) = dARP(13334)/dV(2987) - JVRP(21163) = V(5250) -! JVRP(21164) = dARP(13334)/dV(5250) - JVRP(21164) = V(2987) -! JVRP(21165) = dARP(13335)/dV(4274) - JVRP(21165) = V(5255) -! JVRP(21166) = dARP(13335)/dV(5255) - JVRP(21166) = V(4274) -! JVRP(21167) = dARP(13336)/dV(4274) - JVRP(21167) = V(5252) -! JVRP(21168) = dARP(13336)/dV(5252) - JVRP(21168) = V(4274) -! JVRP(21169) = dARP(13337)/dV(4274) - JVRP(21169) = V(5256) -! JVRP(21170) = dARP(13337)/dV(5256) - JVRP(21170) = V(4274) -! JVRP(21171) = dARP(13338)/dV(4274) - JVRP(21171) = 1 -! JVRP(21172) = dARP(13339)/dV(4138) - JVRP(21172) = V(5255) -! JVRP(21173) = dARP(13339)/dV(5255) - JVRP(21173) = V(4138) -! JVRP(21174) = dARP(13340)/dV(4138) - JVRP(21174) = V(5252) -! JVRP(21175) = dARP(13340)/dV(5252) - JVRP(21175) = V(4138) -! JVRP(21176) = dARP(13341)/dV(4138) - JVRP(21176) = V(5256) -! JVRP(21177) = dARP(13341)/dV(5256) - JVRP(21177) = V(4138) -! JVRP(21178) = dARP(13342)/dV(4138) - JVRP(21178) = 1 -! JVRP(21179) = dARP(13343)/dV(946) - JVRP(21179) = 1 -! JVRP(21180) = dARP(13344)/dV(946) - JVRP(21180) = V(5250) -! JVRP(21181) = dARP(13344)/dV(5250) - JVRP(21181) = V(946) -! JVRP(21182) = dARP(13345)/dV(2718) - JVRP(21182) = 1 -! JVRP(21183) = dARP(13346)/dV(2718) - JVRP(21183) = V(5250) -! JVRP(21184) = dARP(13346)/dV(5250) - JVRP(21184) = V(2718) -! JVRP(21185) = dARP(13347)/dV(2723) - JVRP(21185) = 1 -! JVRP(21186) = dARP(13348)/dV(2723) - JVRP(21186) = 1 -! JVRP(21187) = dARP(13349)/dV(2723) - JVRP(21187) = V(5250) -! JVRP(21188) = dARP(13349)/dV(5250) - JVRP(21188) = V(2723) -! JVRP(21189) = dARP(13350)/dV(2203) - JVRP(21189) = 1 -! JVRP(21190) = dARP(13351)/dV(4384) - JVRP(21190) = V(5255) -! JVRP(21191) = dARP(13351)/dV(5255) - JVRP(21191) = V(4384) -! JVRP(21192) = dARP(13352)/dV(4384) - JVRP(21192) = V(5252) -! JVRP(21193) = dARP(13352)/dV(5252) - JVRP(21193) = V(4384) -! JVRP(21194) = dARP(13353)/dV(4384) - JVRP(21194) = V(5256) -! JVRP(21195) = dARP(13353)/dV(5256) - JVRP(21195) = V(4384) -! JVRP(21196) = dARP(13354)/dV(4384) - JVRP(21196) = 1 -! JVRP(21197) = dARP(13355)/dV(1234) - JVRP(21197) = 1 -! JVRP(21198) = dARP(13356)/dV(1234) - JVRP(21198) = V(5250) -! JVRP(21199) = dARP(13356)/dV(5250) - JVRP(21199) = V(1234) -! JVRP(21200) = dARP(13357)/dV(2877) - JVRP(21200) = 1 -! JVRP(21201) = dARP(13358)/dV(2877) - JVRP(21201) = V(5250) -! JVRP(21202) = dARP(13358)/dV(5250) - JVRP(21202) = V(2877) -! JVRP(21203) = dARP(13359)/dV(995) - JVRP(21203) = 1 -! JVRP(21204) = dARP(13360)/dV(995) - JVRP(21204) = V(5250) -! JVRP(21205) = dARP(13360)/dV(5250) - JVRP(21205) = V(995) -! JVRP(21206) = dARP(13361)/dV(1026) - JVRP(21206) = V(5250) -! JVRP(21207) = dARP(13361)/dV(5250) - JVRP(21207) = V(1026) -! JVRP(21208) = dARP(13362)/dV(2946) - JVRP(21208) = 1 -! JVRP(21209) = dARP(13363)/dV(385) - JVRP(21209) = V(5250) -! JVRP(21210) = dARP(13363)/dV(5250) - JVRP(21210) = V(385) -! JVRP(21211) = dARP(13364)/dV(3391) - JVRP(21211) = 1 -! JVRP(21212) = dARP(13365)/dV(3391) - JVRP(21212) = V(5250) -! JVRP(21213) = dARP(13365)/dV(5250) - JVRP(21213) = V(3391) -! JVRP(21214) = dARP(13366)/dV(4435) - JVRP(21214) = V(5255) -! JVRP(21215) = dARP(13366)/dV(5255) - JVRP(21215) = V(4435) -! JVRP(21216) = dARP(13367)/dV(4435) - JVRP(21216) = V(5252) -! JVRP(21217) = dARP(13367)/dV(5252) - JVRP(21217) = V(4435) -! JVRP(21218) = dARP(13368)/dV(4435) - JVRP(21218) = V(5256) -! JVRP(21219) = dARP(13368)/dV(5256) - JVRP(21219) = V(4435) -! JVRP(21220) = dARP(13369)/dV(4435) - JVRP(21220) = 1 -! JVRP(21221) = dARP(13370)/dV(850) - JVRP(21221) = 1 -! JVRP(21222) = dARP(13371)/dV(850) - JVRP(21222) = V(5250) -! JVRP(21223) = dARP(13371)/dV(5250) - JVRP(21223) = V(850) -! JVRP(21224) = dARP(13372)/dV(3007) - JVRP(21224) = 1 -! JVRP(21225) = dARP(13373)/dV(3007) - JVRP(21225) = V(5250) -! JVRP(21226) = dARP(13373)/dV(5250) - JVRP(21226) = V(3007) -! JVRP(21227) = dARP(13374)/dV(4461) - JVRP(21227) = V(5255) -! JVRP(21228) = dARP(13374)/dV(5255) - JVRP(21228) = V(4461) -! JVRP(21229) = dARP(13375)/dV(4461) - JVRP(21229) = V(5252) -! JVRP(21230) = dARP(13375)/dV(5252) - JVRP(21230) = V(4461) -! JVRP(21231) = dARP(13376)/dV(4461) - JVRP(21231) = V(5256) -! JVRP(21232) = dARP(13376)/dV(5256) - JVRP(21232) = V(4461) -! JVRP(21233) = dARP(13377)/dV(4461) - JVRP(21233) = 1 -! JVRP(21234) = dARP(13378)/dV(1244) - JVRP(21234) = 1 -! JVRP(21235) = dARP(13379)/dV(1244) - JVRP(21235) = V(5250) -! JVRP(21236) = dARP(13379)/dV(5250) - JVRP(21236) = V(1244) -! JVRP(21237) = dARP(13380)/dV(3070) - JVRP(21237) = 1 -! JVRP(21238) = dARP(13381)/dV(3070) - JVRP(21238) = V(5250) -! JVRP(21239) = dARP(13381)/dV(5250) - JVRP(21239) = V(3070) -! JVRP(21240) = dARP(13382)/dV(4421) - JVRP(21240) = V(5255) -! JVRP(21241) = dARP(13382)/dV(5255) - JVRP(21241) = V(4421) -! JVRP(21242) = dARP(13383)/dV(4421) - JVRP(21242) = V(5252) -! JVRP(21243) = dARP(13383)/dV(5252) - JVRP(21243) = V(4421) -! JVRP(21244) = dARP(13384)/dV(4421) - JVRP(21244) = V(5256) -! JVRP(21245) = dARP(13384)/dV(5256) - JVRP(21245) = V(4421) -! JVRP(21246) = dARP(13385)/dV(4421) - JVRP(21246) = 1 -! JVRP(21247) = dARP(13386)/dV(1418) - JVRP(21247) = 1 -! JVRP(21248) = dARP(13387)/dV(1418) - JVRP(21248) = V(5250) -! JVRP(21249) = dARP(13387)/dV(5250) - JVRP(21249) = V(1418) -! JVRP(21250) = dARP(13388)/dV(3218) - JVRP(21250) = 1 -! JVRP(21251) = dARP(13389)/dV(3218) - JVRP(21251) = V(5250) -! JVRP(21252) = dARP(13389)/dV(5250) - JVRP(21252) = V(3218) -! JVRP(21253) = dARP(13390)/dV(4532) - JVRP(21253) = V(5255) -! JVRP(21254) = dARP(13390)/dV(5255) - JVRP(21254) = V(4532) -! JVRP(21255) = dARP(13391)/dV(4532) - JVRP(21255) = V(5252) -! JVRP(21256) = dARP(13391)/dV(5252) - JVRP(21256) = V(4532) -! JVRP(21257) = dARP(13392)/dV(4532) - JVRP(21257) = V(5256) -! JVRP(21258) = dARP(13392)/dV(5256) - JVRP(21258) = V(4532) -! JVRP(21259) = dARP(13393)/dV(4532) - JVRP(21259) = 1 -! JVRP(21260) = dARP(13394)/dV(1226) - JVRP(21260) = 1 -! JVRP(21261) = dARP(13395)/dV(1226) - JVRP(21261) = V(5250) -! JVRP(21262) = dARP(13395)/dV(5250) - JVRP(21262) = V(1226) -! JVRP(21263) = dARP(13396)/dV(3306) - JVRP(21263) = 1 -! JVRP(21264) = dARP(13397)/dV(3306) - JVRP(21264) = V(5250) -! JVRP(21265) = dARP(13397)/dV(5250) - JVRP(21265) = V(3306) -! JVRP(21266) = dARP(13398)/dV(4429) - JVRP(21266) = V(5255) -! JVRP(21267) = dARP(13398)/dV(5255) - JVRP(21267) = V(4429) -! JVRP(21268) = dARP(13399)/dV(4429) - JVRP(21268) = V(5252) -! JVRP(21269) = dARP(13399)/dV(5252) - JVRP(21269) = V(4429) -! JVRP(21270) = dARP(13400)/dV(4429) - JVRP(21270) = V(5256) -! JVRP(21271) = dARP(13400)/dV(5256) - JVRP(21271) = V(4429) -! JVRP(21272) = dARP(13401)/dV(4429) - JVRP(21272) = 1 -! JVRP(21273) = dARP(13402)/dV(1198) - JVRP(21273) = 1 -! JVRP(21274) = dARP(13403)/dV(1198) - JVRP(21274) = V(5250) -! JVRP(21275) = dARP(13403)/dV(5250) - JVRP(21275) = V(1198) -! JVRP(21276) = dARP(13404)/dV(3282) - JVRP(21276) = 1 -! JVRP(21277) = dARP(13405)/dV(3282) - JVRP(21277) = V(5250) -! JVRP(21278) = dARP(13405)/dV(5250) - JVRP(21278) = V(3282) -! JVRP(21279) = dARP(13406)/dV(142) - JVRP(21279) = 1 -! JVRP(21280) = dARP(13407)/dV(4267) - JVRP(21280) = V(5255) -! JVRP(21281) = dARP(13407)/dV(5255) - JVRP(21281) = V(4267) -! JVRP(21282) = dARP(13408)/dV(4267) - JVRP(21282) = V(5255) -! JVRP(21283) = dARP(13408)/dV(5255) - JVRP(21283) = V(4267) -! JVRP(21284) = dARP(13409)/dV(4267) - JVRP(21284) = V(5252) -! JVRP(21285) = dARP(13409)/dV(5252) - JVRP(21285) = V(4267) -! JVRP(21286) = dARP(13410)/dV(4267) - JVRP(21286) = V(5253) -! JVRP(21287) = dARP(13410)/dV(5253) - JVRP(21287) = V(4267) -! JVRP(21288) = dARP(13411)/dV(4267) - JVRP(21288) = V(5256) -! JVRP(21289) = dARP(13411)/dV(5256) - JVRP(21289) = V(4267) -! JVRP(21290) = dARP(13412)/dV(4267) - JVRP(21290) = 1 -! JVRP(21291) = dARP(13413)/dV(2911) - JVRP(21291) = V(5250) -! JVRP(21292) = dARP(13413)/dV(5250) - JVRP(21292) = V(2911) -! JVRP(21293) = dARP(13414)/dV(2911) - JVRP(21293) = 1 -! JVRP(21294) = dARP(13415)/dV(2725) - JVRP(21294) = V(5250) -! JVRP(21295) = dARP(13415)/dV(5250) - JVRP(21295) = V(2725) -! JVRP(21296) = dARP(13416)/dV(2725) - JVRP(21296) = 1 -! JVRP(21297) = dARP(13417)/dV(4489) - JVRP(21297) = V(5255) -! JVRP(21298) = dARP(13417)/dV(5255) - JVRP(21298) = V(4489) -! JVRP(21299) = dARP(13418)/dV(4489) - JVRP(21299) = V(5255) -! JVRP(21300) = dARP(13418)/dV(5255) - JVRP(21300) = V(4489) -! JVRP(21301) = dARP(13419)/dV(4489) - JVRP(21301) = V(5252) -! JVRP(21302) = dARP(13419)/dV(5252) - JVRP(21302) = V(4489) -! JVRP(21303) = dARP(13420)/dV(4489) - JVRP(21303) = V(5253) -! JVRP(21304) = dARP(13420)/dV(5253) - JVRP(21304) = V(4489) -! JVRP(21305) = dARP(13421)/dV(4489) - JVRP(21305) = V(5256) -! JVRP(21306) = dARP(13421)/dV(5256) - JVRP(21306) = V(4489) -! JVRP(21307) = dARP(13422)/dV(4489) - JVRP(21307) = 1 -! JVRP(21308) = dARP(13423)/dV(2991) - JVRP(21308) = V(5250) -! JVRP(21309) = dARP(13423)/dV(5250) - JVRP(21309) = V(2991) -! JVRP(21310) = dARP(13424)/dV(2991) - JVRP(21310) = 1 -! JVRP(21311) = dARP(13425)/dV(3040) - JVRP(21311) = V(5250) -! JVRP(21312) = dARP(13425)/dV(5250) - JVRP(21312) = V(3040) -! JVRP(21313) = dARP(13426)/dV(3040) - JVRP(21313) = 1 -! JVRP(21314) = dARP(13427)/dV(85) - JVRP(21314) = 1 -! JVRP(21315) = dARP(13428)/dV(1248) - JVRP(21315) = V(5250) -! JVRP(21316) = dARP(13428)/dV(5250) - JVRP(21316) = V(1248) -! JVRP(21317) = dARP(13429)/dV(1248) - JVRP(21317) = 1 -! JVRP(21318) = dARP(13430)/dV(3075) - JVRP(21318) = V(5250) -! JVRP(21319) = dARP(13430)/dV(5250) - JVRP(21319) = V(3075) -! JVRP(21320) = dARP(13431)/dV(3075) - JVRP(21320) = 1 -! JVRP(21321) = dARP(13432)/dV(4329) - JVRP(21321) = V(5255) -! JVRP(21322) = dARP(13432)/dV(5255) - JVRP(21322) = V(4329) -! JVRP(21323) = dARP(13433)/dV(4329) - JVRP(21323) = V(5255) -! JVRP(21324) = dARP(13433)/dV(5255) - JVRP(21324) = V(4329) -! JVRP(21325) = dARP(13434)/dV(4329) - JVRP(21325) = V(5252) -! JVRP(21326) = dARP(13434)/dV(5252) - JVRP(21326) = V(4329) -! JVRP(21327) = dARP(13435)/dV(4329) - JVRP(21327) = V(5253) -! JVRP(21328) = dARP(13435)/dV(5253) - JVRP(21328) = V(4329) -! JVRP(21329) = dARP(13436)/dV(4329) - JVRP(21329) = V(5256) -! JVRP(21330) = dARP(13436)/dV(5256) - JVRP(21330) = V(4329) -! JVRP(21331) = dARP(13437)/dV(4329) - JVRP(21331) = 1 -! JVRP(21332) = dARP(13438)/dV(2055) - JVRP(21332) = V(5250) -! JVRP(21333) = dARP(13438)/dV(5250) - JVRP(21333) = V(2055) -! JVRP(21334) = dARP(13439)/dV(2055) - JVRP(21334) = 1 -! JVRP(21335) = dARP(13440)/dV(2683) - JVRP(21335) = V(5250) -! JVRP(21336) = dARP(13440)/dV(5250) - JVRP(21336) = V(2683) -! JVRP(21337) = dARP(13441)/dV(2683) - JVRP(21337) = 1 -! JVRP(21338) = dARP(13442)/dV(2248) - JVRP(21338) = V(5250) -! JVRP(21339) = dARP(13442)/dV(5250) - JVRP(21339) = V(2248) -! JVRP(21340) = dARP(13443)/dV(2248) - JVRP(21340) = 1 -! JVRP(21341) = dARP(13444)/dV(2643) - JVRP(21341) = V(5250) -! JVRP(21342) = dARP(13444)/dV(5250) - JVRP(21342) = V(2643) -! JVRP(21343) = dARP(13445)/dV(2643) - JVRP(21343) = 1 -! JVRP(21344) = dARP(13446)/dV(499) - JVRP(21344) = V(5250) -! JVRP(21345) = dARP(13446)/dV(5250) - JVRP(21345) = V(499) -! JVRP(21346) = dARP(13447)/dV(1460) - JVRP(21346) = V(5250) -! JVRP(21347) = dARP(13447)/dV(5250) - JVRP(21347) = V(1460) -! JVRP(21348) = dARP(13448)/dV(1460) - JVRP(21348) = 1 -! JVRP(21349) = dARP(13449)/dV(3315) - JVRP(21349) = V(5250) -! JVRP(21350) = dARP(13449)/dV(5250) - JVRP(21350) = V(3315) -! JVRP(21351) = dARP(13450)/dV(3315) - JVRP(21351) = 1 -! JVRP(21352) = dARP(13451)/dV(287) - JVRP(21352) = V(5250) -! JVRP(21353) = dARP(13451)/dV(5250) - JVRP(21353) = V(287) -! JVRP(21354) = dARP(13452)/dV(894) - JVRP(21354) = V(5250) -! JVRP(21355) = dARP(13452)/dV(5250) - JVRP(21355) = V(894) -! JVRP(21356) = dARP(13453)/dV(894) - JVRP(21356) = 1 -! JVRP(21357) = dARP(13454)/dV(2552) - JVRP(21357) = V(5250) -! JVRP(21358) = dARP(13454)/dV(5250) - JVRP(21358) = V(2552) -! JVRP(21359) = dARP(13455)/dV(2552) - JVRP(21359) = 1 -! JVRP(21360) = dARP(13456)/dV(4449) - JVRP(21360) = V(5250) -! JVRP(21361) = dARP(13456)/dV(5250) - JVRP(21361) = V(4449) -! JVRP(21362) = dARP(13457)/dV(4449) - JVRP(21362) = 1 -! JVRP(21363) = dARP(13458)/dV(2443) - JVRP(21363) = V(5250) -! JVRP(21364) = dARP(13458)/dV(5250) - JVRP(21364) = V(2443) -! JVRP(21365) = dARP(13459)/dV(2443) - JVRP(21365) = 1 -! JVRP(21366) = dARP(13460)/dV(2863) - JVRP(21366) = V(5250) -! JVRP(21367) = dARP(13460)/dV(5250) - JVRP(21367) = V(2863) -! JVRP(21368) = dARP(13461)/dV(2863) - JVRP(21368) = 1 -! JVRP(21369) = dARP(13462)/dV(4026) - JVRP(21369) = V(5255) -! JVRP(21370) = dARP(13462)/dV(5255) - JVRP(21370) = V(4026) -! JVRP(21371) = dARP(13463)/dV(4026) - JVRP(21371) = V(5255) -! JVRP(21372) = dARP(13463)/dV(5255) - JVRP(21372) = V(4026) -! JVRP(21373) = dARP(13464)/dV(4026) - JVRP(21373) = V(5252) -! JVRP(21374) = dARP(13464)/dV(5252) - JVRP(21374) = V(4026) -! JVRP(21375) = dARP(13465)/dV(4026) - JVRP(21375) = V(5253) -! JVRP(21376) = dARP(13465)/dV(5253) - JVRP(21376) = V(4026) -! JVRP(21377) = dARP(13466)/dV(4026) - JVRP(21377) = V(5256) -! JVRP(21378) = dARP(13466)/dV(5256) - JVRP(21378) = V(4026) -! JVRP(21379) = dARP(13467)/dV(4026) - JVRP(21379) = 1 -! JVRP(21380) = dARP(13468)/dV(2838) - JVRP(21380) = V(5250) -! JVRP(21381) = dARP(13468)/dV(5250) - JVRP(21381) = V(2838) -! JVRP(21382) = dARP(13469)/dV(2838) - JVRP(21382) = 1 -! JVRP(21383) = dARP(13470)/dV(2631) - JVRP(21383) = V(5250) -! JVRP(21384) = dARP(13470)/dV(5250) - JVRP(21384) = V(2631) -! JVRP(21385) = dARP(13471)/dV(2631) - JVRP(21385) = 1 -! JVRP(21386) = dARP(13472)/dV(4102) - JVRP(21386) = V(5255) -! JVRP(21387) = dARP(13472)/dV(5255) - JVRP(21387) = V(4102) -! JVRP(21388) = dARP(13473)/dV(4102) - JVRP(21388) = V(5255) -! JVRP(21389) = dARP(13473)/dV(5255) - JVRP(21389) = V(4102) -! JVRP(21390) = dARP(13474)/dV(4102) - JVRP(21390) = V(5252) -! JVRP(21391) = dARP(13474)/dV(5252) - JVRP(21391) = V(4102) -! JVRP(21392) = dARP(13475)/dV(4102) - JVRP(21392) = V(5253) -! JVRP(21393) = dARP(13475)/dV(5253) - JVRP(21393) = V(4102) -! JVRP(21394) = dARP(13476)/dV(4102) - JVRP(21394) = V(5256) -! JVRP(21395) = dARP(13476)/dV(5256) - JVRP(21395) = V(4102) -! JVRP(21396) = dARP(13477)/dV(4102) - JVRP(21396) = 1 -! JVRP(21397) = dARP(13478)/dV(2541) - JVRP(21397) = V(5250) -! JVRP(21398) = dARP(13478)/dV(5250) - JVRP(21398) = V(2541) -! JVRP(21399) = dARP(13479)/dV(2541) - JVRP(21399) = 1 -! JVRP(21400) = dARP(13480)/dV(2765) - JVRP(21400) = V(5250) -! JVRP(21401) = dARP(13480)/dV(5250) - JVRP(21401) = V(2765) -! JVRP(21402) = dARP(13481)/dV(2765) - JVRP(21402) = 1 -! JVRP(21403) = dARP(13482)/dV(422) - JVRP(21403) = 1 -! JVRP(21404) = dARP(13483)/dV(2171) - JVRP(21404) = V(5250) -! JVRP(21405) = dARP(13483)/dV(5250) - JVRP(21405) = V(2171) -! JVRP(21406) = dARP(13484)/dV(2171) - JVRP(21406) = 1 -! JVRP(21407) = dARP(13485)/dV(3063) - JVRP(21407) = V(5250) -! JVRP(21408) = dARP(13485)/dV(5250) - JVRP(21408) = V(3063) -! JVRP(21409) = dARP(13486)/dV(3063) - JVRP(21409) = 1 -! JVRP(21410) = dARP(13487)/dV(4620) - JVRP(21410) = V(5255) -! JVRP(21411) = dARP(13487)/dV(5255) - JVRP(21411) = V(4620) -! JVRP(21412) = dARP(13488)/dV(4620) - JVRP(21412) = V(5255) -! JVRP(21413) = dARP(13488)/dV(5255) - JVRP(21413) = V(4620) -! JVRP(21414) = dARP(13489)/dV(4620) - JVRP(21414) = V(5252) -! JVRP(21415) = dARP(13489)/dV(5252) - JVRP(21415) = V(4620) -! JVRP(21416) = dARP(13490)/dV(4620) - JVRP(21416) = V(5253) -! JVRP(21417) = dARP(13490)/dV(5253) - JVRP(21417) = V(4620) -! JVRP(21418) = dARP(13491)/dV(4620) - JVRP(21418) = V(5256) -! JVRP(21419) = dARP(13491)/dV(5256) - JVRP(21419) = V(4620) -! JVRP(21420) = dARP(13492)/dV(4620) - JVRP(21420) = 1 -! JVRP(21421) = dARP(13493)/dV(2654) - JVRP(21421) = V(5250) -! JVRP(21422) = dARP(13493)/dV(5250) - JVRP(21422) = V(2654) -! JVRP(21423) = dARP(13494)/dV(2654) - JVRP(21423) = 1 -! JVRP(21424) = dARP(13495)/dV(2794) - JVRP(21424) = V(5250) -! JVRP(21425) = dARP(13495)/dV(5250) - JVRP(21425) = V(2794) -! JVRP(21426) = dARP(13496)/dV(2794) - JVRP(21426) = 1 -! JVRP(21427) = dARP(13497)/dV(245) - JVRP(21427) = 1 -! JVRP(21428) = dARP(13498)/dV(4744) - JVRP(21428) = V(5255) -! JVRP(21429) = dARP(13498)/dV(5255) - JVRP(21429) = V(4744) -! JVRP(21430) = dARP(13499)/dV(4744) - JVRP(21430) = V(5255) -! JVRP(21431) = dARP(13499)/dV(5255) - JVRP(21431) = V(4744) -! JVRP(21432) = dARP(13500)/dV(4744) - JVRP(21432) = V(5252) -! JVRP(21433) = dARP(13500)/dV(5252) - JVRP(21433) = V(4744) -! JVRP(21434) = dARP(13501)/dV(4744) - JVRP(21434) = V(5253) -! JVRP(21435) = dARP(13501)/dV(5253) - JVRP(21435) = V(4744) -! JVRP(21436) = dARP(13502)/dV(4744) - JVRP(21436) = V(5256) -! JVRP(21437) = dARP(13502)/dV(5256) - JVRP(21437) = V(4744) -! JVRP(21438) = dARP(13503)/dV(4744) - JVRP(21438) = 1 -! JVRP(21439) = dARP(13504)/dV(2862) - JVRP(21439) = V(5250) -! JVRP(21440) = dARP(13504)/dV(5250) - JVRP(21440) = V(2862) -! JVRP(21441) = dARP(13505)/dV(2862) - JVRP(21441) = 1 -! JVRP(21442) = dARP(13506)/dV(2505) - JVRP(21442) = V(5250) -! JVRP(21443) = dARP(13506)/dV(5250) - JVRP(21443) = V(2505) -! JVRP(21444) = dARP(13507)/dV(2505) - JVRP(21444) = 1 -! JVRP(21445) = dARP(13508)/dV(23) - JVRP(21445) = 1 -! JVRP(21446) = dARP(13509)/dV(1301) - JVRP(21446) = V(5250) -! JVRP(21447) = dARP(13509)/dV(5250) - JVRP(21447) = V(1301) -! JVRP(21448) = dARP(13510)/dV(1301) - JVRP(21448) = 1 -! JVRP(21449) = dARP(13511)/dV(2919) - JVRP(21449) = 1 -! JVRP(21450) = dARP(13512)/dV(1335) - JVRP(21450) = V(5250) -! JVRP(21451) = dARP(13512)/dV(5250) - JVRP(21451) = V(1335) -! JVRP(21452) = dARP(13513)/dV(1335) - JVRP(21452) = 1 -! JVRP(21453) = dARP(13514)/dV(204) - JVRP(21453) = 1 -! JVRP(21454) = dARP(13515)/dV(72) - JVRP(21454) = V(5250) -! JVRP(21455) = dARP(13515)/dV(5250) - JVRP(21455) = V(72) -! JVRP(21456) = dARP(13516)/dV(2349) - JVRP(21456) = V(5250) -! JVRP(21457) = dARP(13516)/dV(5250) - JVRP(21457) = V(2349) -! JVRP(21458) = dARP(13517)/dV(2349) - JVRP(21458) = 1 -! JVRP(21459) = dARP(13518)/dV(2615) - JVRP(21459) = V(5250) -! JVRP(21460) = dARP(13518)/dV(5250) - JVRP(21460) = V(2615) -! JVRP(21461) = dARP(13519)/dV(2615) - JVRP(21461) = 1 -! JVRP(21462) = dARP(13520)/dV(4175) - JVRP(21462) = V(5250) -! JVRP(21463) = dARP(13520)/dV(5250) - JVRP(21463) = V(4175) -! JVRP(21464) = dARP(13521)/dV(4175) - JVRP(21464) = 1 -! JVRP(21465) = dARP(13522)/dV(4175) - JVRP(21465) = 1 -! JVRP(21466) = dARP(13523)/dV(4731) - JVRP(21466) = V(5255) -! JVRP(21467) = dARP(13523)/dV(5255) - JVRP(21467) = V(4731) -! JVRP(21468) = dARP(13524)/dV(4731) - JVRP(21468) = V(5255) -! JVRP(21469) = dARP(13524)/dV(5255) - JVRP(21469) = V(4731) -! JVRP(21470) = dARP(13525)/dV(4731) - JVRP(21470) = V(5252) -! JVRP(21471) = dARP(13525)/dV(5252) - JVRP(21471) = V(4731) -! JVRP(21472) = dARP(13526)/dV(4731) - JVRP(21472) = V(5253) -! JVRP(21473) = dARP(13526)/dV(5253) - JVRP(21473) = V(4731) -! JVRP(21474) = dARP(13527)/dV(4731) - JVRP(21474) = V(5256) -! JVRP(21475) = dARP(13527)/dV(5256) - JVRP(21475) = V(4731) -! JVRP(21476) = dARP(13528)/dV(4731) - JVRP(21476) = 1 -! JVRP(21477) = dARP(13529)/dV(2064) - JVRP(21477) = V(5250) -! JVRP(21478) = dARP(13529)/dV(5250) - JVRP(21478) = V(2064) -! JVRP(21479) = dARP(13530)/dV(2064) - JVRP(21479) = 1 -! JVRP(21480) = dARP(13531)/dV(3019) - JVRP(21480) = V(5250) -! JVRP(21481) = dARP(13531)/dV(5250) - JVRP(21481) = V(3019) -! JVRP(21482) = dARP(13532)/dV(3019) - JVRP(21482) = 1 -! JVRP(21483) = dARP(13533)/dV(4203) - JVRP(21483) = V(5255) -! JVRP(21484) = dARP(13533)/dV(5255) - JVRP(21484) = V(4203) -! JVRP(21485) = dARP(13534)/dV(4203) - JVRP(21485) = V(5255) -! JVRP(21486) = dARP(13534)/dV(5255) - JVRP(21486) = V(4203) -! JVRP(21487) = dARP(13535)/dV(4203) - JVRP(21487) = V(5252) -! JVRP(21488) = dARP(13535)/dV(5252) - JVRP(21488) = V(4203) -! JVRP(21489) = dARP(13536)/dV(4203) - JVRP(21489) = V(5253) -! JVRP(21490) = dARP(13536)/dV(5253) - JVRP(21490) = V(4203) -! JVRP(21491) = dARP(13537)/dV(4203) - JVRP(21491) = V(5256) -! JVRP(21492) = dARP(13537)/dV(5256) - JVRP(21492) = V(4203) -! JVRP(21493) = dARP(13538)/dV(4203) - JVRP(21493) = 1 -! JVRP(21494) = dARP(13539)/dV(2263) - JVRP(21494) = V(5250) -! JVRP(21495) = dARP(13539)/dV(5250) - JVRP(21495) = V(2263) -! JVRP(21496) = dARP(13540)/dV(2263) - JVRP(21496) = 1 -! JVRP(21497) = dARP(13541)/dV(2866) - JVRP(21497) = V(5250) -! JVRP(21498) = dARP(13541)/dV(5250) - JVRP(21498) = V(2866) -! JVRP(21499) = dARP(13542)/dV(2866) - JVRP(21499) = 1 -! JVRP(21500) = dARP(13543)/dV(4445) - JVRP(21500) = V(5255) -! JVRP(21501) = dARP(13543)/dV(5255) - JVRP(21501) = V(4445) -! JVRP(21502) = dARP(13544)/dV(4445) - JVRP(21502) = V(5255) -! JVRP(21503) = dARP(13544)/dV(5255) - JVRP(21503) = V(4445) -! JVRP(21504) = dARP(13545)/dV(4445) - JVRP(21504) = V(5252) -! JVRP(21505) = dARP(13545)/dV(5252) - JVRP(21505) = V(4445) -! JVRP(21506) = dARP(13546)/dV(4445) - JVRP(21506) = V(5253) -! JVRP(21507) = dARP(13546)/dV(5253) - JVRP(21507) = V(4445) -! JVRP(21508) = dARP(13547)/dV(4445) - JVRP(21508) = V(5256) -! JVRP(21509) = dARP(13547)/dV(5256) - JVRP(21509) = V(4445) -! JVRP(21510) = dARP(13548)/dV(4445) - JVRP(21510) = 1 -! JVRP(21511) = dARP(13549)/dV(2754) - JVRP(21511) = V(5250) -! JVRP(21512) = dARP(13549)/dV(5250) - JVRP(21512) = V(2754) -! JVRP(21513) = dARP(13550)/dV(2754) - JVRP(21513) = 1 -! JVRP(21514) = dARP(13551)/dV(3052) - JVRP(21514) = V(5250) -! JVRP(21515) = dARP(13551)/dV(5250) - JVRP(21515) = V(3052) -! JVRP(21516) = dARP(13552)/dV(3052) - JVRP(21516) = 1 -! JVRP(21517) = dARP(13553)/dV(255) - JVRP(21517) = V(5250) -! JVRP(21518) = dARP(13553)/dV(5250) - JVRP(21518) = V(255) -! JVRP(21519) = dARP(13554)/dV(901) - JVRP(21519) = V(5250) -! JVRP(21520) = dARP(13554)/dV(5250) - JVRP(21520) = V(901) -! JVRP(21521) = dARP(13555)/dV(901) - JVRP(21521) = 1 -! JVRP(21522) = dARP(13556)/dV(2852) - JVRP(21522) = V(5250) -! JVRP(21523) = dARP(13556)/dV(5250) - JVRP(21523) = V(2852) -! JVRP(21524) = dARP(13557)/dV(2852) - JVRP(21524) = 1 -! JVRP(21525) = dARP(13558)/dV(952) - JVRP(21525) = V(5250) -! JVRP(21526) = dARP(13558)/dV(5250) - JVRP(21526) = V(952) -! JVRP(21527) = dARP(13559)/dV(952) - JVRP(21527) = 1 -! JVRP(21528) = dARP(13560)/dV(4184) - JVRP(21528) = 1 -! JVRP(21529) = dARP(13561)/dV(626) - JVRP(21529) = V(5250) -! JVRP(21530) = dARP(13561)/dV(5250) - JVRP(21530) = V(626) -! JVRP(21531) = dARP(13562)/dV(626) - JVRP(21531) = 1 -! JVRP(21532) = dARP(13563)/dV(4831) - JVRP(21532) = V(5255) -! JVRP(21533) = dARP(13563)/dV(5255) - JVRP(21533) = V(4831) -! JVRP(21534) = dARP(13564)/dV(4831) - JVRP(21534) = V(5255) -! JVRP(21535) = dARP(13564)/dV(5255) - JVRP(21535) = V(4831) -! JVRP(21536) = dARP(13565)/dV(4831) - JVRP(21536) = V(5252) -! JVRP(21537) = dARP(13565)/dV(5252) - JVRP(21537) = V(4831) -! JVRP(21538) = dARP(13566)/dV(4831) - JVRP(21538) = V(5253) -! JVRP(21539) = dARP(13566)/dV(5253) - JVRP(21539) = V(4831) -! JVRP(21540) = dARP(13567)/dV(4831) - JVRP(21540) = V(5256) -! JVRP(21541) = dARP(13567)/dV(5256) - JVRP(21541) = V(4831) -! JVRP(21542) = dARP(13568)/dV(4831) - JVRP(21542) = 1 -! JVRP(21543) = dARP(13569)/dV(4751) - JVRP(21543) = V(5255) -! JVRP(21544) = dARP(13569)/dV(5255) - JVRP(21544) = V(4751) -! JVRP(21545) = dARP(13570)/dV(4751) - JVRP(21545) = V(5252) -! JVRP(21546) = dARP(13570)/dV(5252) - JVRP(21546) = V(4751) -! JVRP(21547) = dARP(13571)/dV(4751) - JVRP(21547) = V(5256) -! JVRP(21548) = dARP(13571)/dV(5256) - JVRP(21548) = V(4751) -! JVRP(21549) = dARP(13572)/dV(4751) - JVRP(21549) = 1 -! JVRP(21550) = dARP(13573)/dV(3211) - JVRP(21550) = V(5250) -! JVRP(21551) = dARP(13573)/dV(5250) - JVRP(21551) = V(3211) -! JVRP(21552) = dARP(13574)/dV(3211) - JVRP(21552) = 1 -! JVRP(21553) = dARP(13575)/dV(3224) - JVRP(21553) = V(5250) -! JVRP(21554) = dARP(13575)/dV(5250) - JVRP(21554) = V(3224) -! JVRP(21555) = dARP(13576)/dV(3224) - JVRP(21555) = 1 -! JVRP(21556) = dARP(13577)/dV(10) - JVRP(21556) = V(5250) -! JVRP(21557) = dARP(13577)/dV(5250) - JVRP(21557) = V(10) -! JVRP(21558) = dARP(13578)/dV(1006) - JVRP(21558) = V(5250) -! JVRP(21559) = dARP(13578)/dV(5250) - JVRP(21559) = V(1006) -! JVRP(21560) = dARP(13579)/dV(1006) - JVRP(21560) = 1 -! JVRP(21561) = dARP(13580)/dV(2003) - JVRP(21561) = V(5250) -! JVRP(21562) = dARP(13580)/dV(5250) - JVRP(21562) = V(2003) -! JVRP(21563) = dARP(13581)/dV(2003) - JVRP(21563) = 1 -! JVRP(21564) = dARP(13582)/dV(1222) - JVRP(21564) = V(5250) -! JVRP(21565) = dARP(13582)/dV(5250) - JVRP(21565) = V(1222) -! JVRP(21566) = dARP(13583)/dV(2183) - JVRP(21566) = V(5250) -! JVRP(21567) = dARP(13583)/dV(5250) - JVRP(21567) = V(2183) -! JVRP(21568) = dARP(13584)/dV(2183) - JVRP(21568) = 1 -! JVRP(21569) = dARP(13585)/dV(2928) - JVRP(21569) = V(5250) -! JVRP(21570) = dARP(13585)/dV(5250) - JVRP(21570) = V(2928) -! JVRP(21571) = dARP(13586)/dV(2928) - JVRP(21571) = 1 -! JVRP(21572) = dARP(13587)/dV(1494) - JVRP(21572) = V(5250) -! JVRP(21573) = dARP(13587)/dV(5250) - JVRP(21573) = V(1494) -! JVRP(21574) = dARP(13588)/dV(1970) - JVRP(21574) = V(5250) -! JVRP(21575) = dARP(13588)/dV(5250) - JVRP(21575) = V(1970) -! JVRP(21576) = dARP(13589)/dV(1970) - JVRP(21576) = 1 -! JVRP(21577) = dARP(13590)/dV(2907) - JVRP(21577) = V(5250) -! JVRP(21578) = dARP(13590)/dV(5250) - JVRP(21578) = V(2907) -! JVRP(21579) = dARP(13591)/dV(2907) - JVRP(21579) = 1 -! JVRP(21580) = dARP(13592)/dV(3477) - JVRP(21580) = V(5250) -! JVRP(21581) = dARP(13592)/dV(5250) - JVRP(21581) = V(3477) -! JVRP(21582) = dARP(13593)/dV(3477) - JVRP(21582) = 1 -! JVRP(21583) = dARP(13594)/dV(3563) - JVRP(21583) = V(5250) -! JVRP(21584) = dARP(13594)/dV(5250) - JVRP(21584) = V(3563) -! JVRP(21585) = dARP(13595)/dV(3563) - JVRP(21585) = 1 -! JVRP(21586) = dARP(13596)/dV(3392) - JVRP(21586) = V(5250) -! JVRP(21587) = dARP(13596)/dV(5250) - JVRP(21587) = V(3392) -! JVRP(21588) = dARP(13597)/dV(3392) - JVRP(21588) = 1 -! JVRP(21589) = dARP(13598)/dV(907) - JVRP(21589) = V(5250) -! JVRP(21590) = dARP(13598)/dV(5250) - JVRP(21590) = V(907) -! JVRP(21591) = dARP(13599)/dV(907) - JVRP(21591) = 1 -! JVRP(21592) = dARP(13600)/dV(2957) - JVRP(21592) = V(5250) -! JVRP(21593) = dARP(13600)/dV(5250) - JVRP(21593) = V(2957) -! JVRP(21594) = dARP(13601)/dV(2957) - JVRP(21594) = 1 -! JVRP(21595) = dARP(13602)/dV(2580) - JVRP(21595) = 1 -! JVRP(21596) = dARP(13603)/dV(2580) - JVRP(21596) = V(5250) -! JVRP(21597) = dARP(13603)/dV(5250) - JVRP(21597) = V(2580) -! JVRP(21598) = dARP(13604)/dV(2870) - JVRP(21598) = 1 -! JVRP(21599) = dARP(13605)/dV(2870) - JVRP(21599) = V(5250) -! JVRP(21600) = dARP(13605)/dV(5250) - JVRP(21600) = V(2870) -! JVRP(21601) = dARP(13606)/dV(2635) - JVRP(21601) = 1 -! JVRP(21602) = dARP(13607)/dV(2635) - JVRP(21602) = V(5250) -! JVRP(21603) = dARP(13607)/dV(5250) - JVRP(21603) = V(2635) -! JVRP(21604) = dARP(13608)/dV(3267) - JVRP(21604) = V(5250) -! JVRP(21605) = dARP(13608)/dV(5250) - JVRP(21605) = V(3267) -! JVRP(21606) = dARP(13609)/dV(3267) - JVRP(21606) = 1 -! JVRP(21607) = dARP(13610)/dV(3267) - JVRP(21607) = 1 -! JVRP(21608) = dARP(13611)/dV(1787) - JVRP(21608) = 1 -! JVRP(21609) = dARP(13612)/dV(3217) - JVRP(21609) = V(5250) -! JVRP(21610) = dARP(13612)/dV(5250) - JVRP(21610) = V(3217) -! JVRP(21611) = dARP(13613)/dV(3217) - JVRP(21611) = 1 -! JVRP(21612) = dARP(13614)/dV(3217) - JVRP(21612) = 1 -! JVRP(21613) = dARP(13615)/dV(1892) - JVRP(21613) = 1 -! JVRP(21614) = dARP(13616)/dV(2345) - JVRP(21614) = V(5250) -! JVRP(21615) = dARP(13616)/dV(5250) - JVRP(21615) = V(2345) -! JVRP(21616) = dARP(13617)/dV(2345) - JVRP(21616) = 1 -! JVRP(21617) = dARP(13618)/dV(2966) - JVRP(21617) = V(5250) -! JVRP(21618) = dARP(13618)/dV(5250) - JVRP(21618) = V(2966) -! JVRP(21619) = dARP(13619)/dV(2966) - JVRP(21619) = 1 -! JVRP(21620) = dARP(13620)/dV(3601) - JVRP(21620) = V(5250) -! JVRP(21621) = dARP(13620)/dV(5250) - JVRP(21621) = V(3601) -! JVRP(21622) = dARP(13621)/dV(3601) - JVRP(21622) = 1 -! JVRP(21623) = dARP(13622)/dV(2486) - JVRP(21623) = V(5250) -! JVRP(21624) = dARP(13622)/dV(5250) - JVRP(21624) = V(2486) -! JVRP(21625) = dARP(13623)/dV(2486) - JVRP(21625) = 1 -! JVRP(21626) = dARP(13624)/dV(272) - JVRP(21626) = V(5250) -! JVRP(21627) = dARP(13624)/dV(5250) - JVRP(21627) = V(272) -! JVRP(21628) = dARP(13625)/dV(1208) - JVRP(21628) = V(5250) -! JVRP(21629) = dARP(13625)/dV(5250) - JVRP(21629) = V(1208) -! JVRP(21630) = dARP(13626)/dV(1208) - JVRP(21630) = 1 -! JVRP(21631) = dARP(13627)/dV(2517) - JVRP(21631) = V(5250) -! JVRP(21632) = dARP(13627)/dV(5250) - JVRP(21632) = V(2517) -! JVRP(21633) = dARP(13628)/dV(2517) - JVRP(21633) = 1 -! JVRP(21634) = dARP(13629)/dV(2116) - JVRP(21634) = 1 -! JVRP(21635) = dARP(13630)/dV(2116) - JVRP(21635) = V(5250) -! JVRP(21636) = dARP(13630)/dV(5250) - JVRP(21636) = V(2116) -! JVRP(21637) = dARP(13631)/dV(2784) - JVRP(21637) = 1 -! JVRP(21638) = dARP(13632)/dV(2784) - JVRP(21638) = V(5250) -! JVRP(21639) = dARP(13632)/dV(5250) - JVRP(21639) = V(2784) -! JVRP(21640) = dARP(13633)/dV(1360) - JVRP(21640) = V(5250) -! JVRP(21641) = dARP(13633)/dV(5250) - JVRP(21641) = V(1360) -! JVRP(21642) = dARP(13634)/dV(1360) - JVRP(21642) = 1 -! JVRP(21643) = dARP(13635)/dV(2989) - JVRP(21643) = 1 -! JVRP(21644) = dARP(13636)/dV(3233) - JVRP(21644) = V(5250) -! JVRP(21645) = dARP(13636)/dV(5250) - JVRP(21645) = V(3233) -! JVRP(21646) = dARP(13637)/dV(1320) - JVRP(21646) = V(5250) -! JVRP(21647) = dARP(13637)/dV(5250) - JVRP(21647) = V(1320) -! JVRP(21648) = dARP(13638)/dV(1320) - JVRP(21648) = 1 -! JVRP(21649) = dARP(13639)/dV(3008) - JVRP(21649) = V(5250) -! JVRP(21650) = dARP(13639)/dV(5250) - JVRP(21650) = V(3008) -! JVRP(21651) = dARP(13640)/dV(3008) - JVRP(21651) = 1 -! JVRP(21652) = dARP(13641)/dV(886) - JVRP(21652) = V(5250) -! JVRP(21653) = dARP(13641)/dV(5250) - JVRP(21653) = V(886) -! JVRP(21654) = dARP(13642)/dV(886) - JVRP(21654) = 1 -! JVRP(21655) = dARP(13643)/dV(2600) - JVRP(21655) = V(5250) -! JVRP(21656) = dARP(13643)/dV(5250) - JVRP(21656) = V(2600) -! JVRP(21657) = dARP(13644)/dV(2600) - JVRP(21657) = 1 -! JVRP(21658) = dARP(13645)/dV(3976) - JVRP(21658) = V(5255) -! JVRP(21659) = dARP(13645)/dV(5255) - JVRP(21659) = V(3976) -! JVRP(21660) = dARP(13646)/dV(3976) - JVRP(21660) = V(5252) -! JVRP(21661) = dARP(13646)/dV(5252) - JVRP(21661) = V(3976) -! JVRP(21662) = dARP(13647)/dV(3976) - JVRP(21662) = V(5256) -! JVRP(21663) = dARP(13647)/dV(5256) - JVRP(21663) = V(3976) -! JVRP(21664) = dARP(13648)/dV(3976) - JVRP(21664) = 1 -! JVRP(21665) = dARP(13649)/dV(1275) - JVRP(21665) = V(5250) -! JVRP(21666) = dARP(13649)/dV(5250) - JVRP(21666) = V(1275) -! JVRP(21667) = dARP(13650)/dV(1275) - JVRP(21667) = 1 -! JVRP(21668) = dARP(13651)/dV(2867) - JVRP(21668) = V(5250) -! JVRP(21669) = dARP(13651)/dV(5250) - JVRP(21669) = V(2867) -! JVRP(21670) = dARP(13652)/dV(2867) - JVRP(21670) = 1 -! JVRP(21671) = dARP(13653)/dV(986) - JVRP(21671) = V(5250) -! JVRP(21672) = dARP(13653)/dV(5250) - JVRP(21672) = V(986) -! JVRP(21673) = dARP(13654)/dV(986) - JVRP(21673) = 1 -! JVRP(21674) = dARP(13655)/dV(3984) - JVRP(21674) = V(5255) -! JVRP(21675) = dARP(13655)/dV(5255) - JVRP(21675) = V(3984) -! JVRP(21676) = dARP(13656)/dV(3984) - JVRP(21676) = V(5252) -! JVRP(21677) = dARP(13656)/dV(5252) - JVRP(21677) = V(3984) -! JVRP(21678) = dARP(13657)/dV(3984) - JVRP(21678) = V(5256) -! JVRP(21679) = dARP(13657)/dV(5256) - JVRP(21679) = V(3984) -! JVRP(21680) = dARP(13658)/dV(3984) - JVRP(21680) = 1 -! JVRP(21681) = dARP(13659)/dV(2977) - JVRP(21681) = V(5250) -! JVRP(21682) = dARP(13659)/dV(5250) - JVRP(21682) = V(2977) -! JVRP(21683) = dARP(13660)/dV(2977) - JVRP(21683) = 1 -! JVRP(21684) = dARP(13661)/dV(4340) - JVRP(21684) = V(5255) -! JVRP(21685) = dARP(13661)/dV(5255) - JVRP(21685) = V(4340) -! JVRP(21686) = dARP(13662)/dV(4340) - JVRP(21686) = V(5252) -! JVRP(21687) = dARP(13662)/dV(5252) - JVRP(21687) = V(4340) -! JVRP(21688) = dARP(13663)/dV(4340) - JVRP(21688) = V(5256) -! JVRP(21689) = dARP(13663)/dV(5256) - JVRP(21689) = V(4340) -! JVRP(21690) = dARP(13664)/dV(4340) - JVRP(21690) = 1 -! JVRP(21691) = dARP(13665)/dV(4340) - JVRP(21691) = 1 -! JVRP(21692) = dARP(13666)/dV(4340) - JVRP(21692) = 1 -! JVRP(21693) = dARP(13667)/dV(1164) - JVRP(21693) = V(5250) -! JVRP(21694) = dARP(13667)/dV(5250) - JVRP(21694) = V(1164) -! JVRP(21695) = dARP(13668)/dV(1164) - JVRP(21695) = 1 -! JVRP(21696) = dARP(13669)/dV(4190) - JVRP(21696) = 1 -! JVRP(21697) = dARP(13670)/dV(4190) - JVRP(21697) = 1 -! JVRP(21698) = dARP(13671)/dV(879) - JVRP(21698) = V(5250) -! JVRP(21699) = dARP(13671)/dV(5250) - JVRP(21699) = V(879) -! JVRP(21700) = dARP(13672)/dV(879) - JVRP(21700) = 1 -! JVRP(21701) = dARP(13673)/dV(2328) - JVRP(21701) = V(5250) -! JVRP(21702) = dARP(13673)/dV(5250) - JVRP(21702) = V(2328) -! JVRP(21703) = dARP(13674)/dV(2328) - JVRP(21703) = 1 -! JVRP(21704) = dARP(13675)/dV(193) - JVRP(21704) = 1 -! JVRP(21705) = dARP(13676)/dV(4224) - JVRP(21705) = V(5256) -! JVRP(21706) = dARP(13676)/dV(5256) - JVRP(21706) = V(4224) -! JVRP(21707) = dARP(13677)/dV(4224) - JVRP(21707) = V(5250) -! JVRP(21708) = dARP(13677)/dV(5250) - JVRP(21708) = V(4224) -! JVRP(21709) = dARP(13678)/dV(4224) - JVRP(21709) = 1 -! JVRP(21710) = dARP(13679)/dV(399) - JVRP(21710) = V(5250) -! JVRP(21711) = dARP(13679)/dV(5250) - JVRP(21711) = V(399) -! JVRP(21712) = dARP(13680)/dV(1888) - JVRP(21712) = V(5250) -! JVRP(21713) = dARP(13680)/dV(5250) - JVRP(21713) = V(1888) -! JVRP(21714) = dARP(13681)/dV(1888) - JVRP(21714) = 1 -! JVRP(21715) = dARP(13682)/dV(582) - JVRP(21715) = 1 -! JVRP(21716) = dARP(13683)/dV(3838) - JVRP(21716) = V(5255) -! JVRP(21717) = dARP(13683)/dV(5255) - JVRP(21717) = V(3838) -! JVRP(21718) = dARP(13684)/dV(3838) - JVRP(21718) = V(5252) -! JVRP(21719) = dARP(13684)/dV(5252) - JVRP(21719) = V(3838) -! JVRP(21720) = dARP(13685)/dV(3838) - JVRP(21720) = V(5256) -! JVRP(21721) = dARP(13685)/dV(5256) - JVRP(21721) = V(3838) -! JVRP(21722) = dARP(13686)/dV(3838) - JVRP(21722) = 1 -! JVRP(21723) = dARP(13687)/dV(4104) - JVRP(21723) = V(5250) -! JVRP(21724) = dARP(13687)/dV(5250) - JVRP(21724) = V(4104) -! JVRP(21725) = dARP(13688)/dV(4104) - JVRP(21725) = 1 -! JVRP(21726) = dARP(13689)/dV(4597) - JVRP(21726) = V(5255) -! JVRP(21727) = dARP(13689)/dV(5255) - JVRP(21727) = V(4597) -! JVRP(21728) = dARP(13690)/dV(4597) - JVRP(21728) = V(5252) -! JVRP(21729) = dARP(13690)/dV(5252) - JVRP(21729) = V(4597) -! JVRP(21730) = dARP(13691)/dV(4597) - JVRP(21730) = V(5252) -! JVRP(21731) = dARP(13691)/dV(5252) - JVRP(21731) = V(4597) -! JVRP(21732) = dARP(13692)/dV(4597) - JVRP(21732) = V(5256) -! JVRP(21733) = dARP(13692)/dV(5256) - JVRP(21733) = V(4597) -! JVRP(21734) = dARP(13693)/dV(4597) - JVRP(21734) = 1 -! JVRP(21735) = dARP(13694)/dV(4597) - JVRP(21735) = 1 -! JVRP(21736) = dARP(13695)/dV(4597) - JVRP(21736) = 1 -! JVRP(21737) = dARP(13696)/dV(4560) - JVRP(21737) = V(5255) -! JVRP(21738) = dARP(13696)/dV(5255) - JVRP(21738) = V(4560) -! JVRP(21739) = dARP(13697)/dV(4560) - JVRP(21739) = V(5252) -! JVRP(21740) = dARP(13697)/dV(5252) - JVRP(21740) = V(4560) -! JVRP(21741) = dARP(13698)/dV(4560) - JVRP(21741) = V(5256) -! JVRP(21742) = dARP(13698)/dV(5256) - JVRP(21742) = V(4560) -! JVRP(21743) = dARP(13699)/dV(4560) - JVRP(21743) = 1 -! JVRP(21744) = dARP(13700)/dV(933) - JVRP(21744) = V(5250) -! JVRP(21745) = dARP(13700)/dV(5250) - JVRP(21745) = V(933) -! JVRP(21746) = dARP(13701)/dV(933) - JVRP(21746) = 1 -! JVRP(21747) = dARP(13702)/dV(1018) - JVRP(21747) = V(5250) -! JVRP(21748) = dARP(13702)/dV(5250) - JVRP(21748) = V(1018) -! JVRP(21749) = dARP(13703)/dV(1018) - JVRP(21749) = 1 -! JVRP(21750) = dARP(13704)/dV(2527) - JVRP(21750) = V(5250) -! JVRP(21751) = dARP(13704)/dV(5250) - JVRP(21751) = V(2527) -! JVRP(21752) = dARP(13705)/dV(2527) - JVRP(21752) = 1 -! JVRP(21753) = dARP(13706)/dV(2380) - JVRP(21753) = V(5250) -! JVRP(21754) = dARP(13706)/dV(5250) - JVRP(21754) = V(2380) -! JVRP(21755) = dARP(13707)/dV(2380) - JVRP(21755) = 1 -! JVRP(21756) = dARP(13708)/dV(697) - JVRP(21756) = 1 -! JVRP(21757) = dARP(13709)/dV(3348) - JVRP(21757) = V(5250) -! JVRP(21758) = dARP(13709)/dV(5250) - JVRP(21758) = V(3348) -! JVRP(21759) = dARP(13710)/dV(3348) - JVRP(21759) = 1 -! JVRP(21760) = dARP(13711)/dV(1934) - JVRP(21760) = V(5250) -! JVRP(21761) = dARP(13711)/dV(5250) - JVRP(21761) = V(1934) -! JVRP(21762) = dARP(13712)/dV(1934) - JVRP(21762) = V(5250) -! JVRP(21763) = dARP(13712)/dV(5250) - JVRP(21763) = V(1934) -! JVRP(21764) = dARP(13713)/dV(1934) - JVRP(21764) = 1 -! JVRP(21765) = dARP(13714)/dV(4410) - JVRP(21765) = V(5255) -! JVRP(21766) = dARP(13714)/dV(5255) - JVRP(21766) = V(4410) -! JVRP(21767) = dARP(13715)/dV(4410) - JVRP(21767) = V(5252) -! JVRP(21768) = dARP(13715)/dV(5252) - JVRP(21768) = V(4410) -! JVRP(21769) = dARP(13716)/dV(4410) - JVRP(21769) = V(5256) -! JVRP(21770) = dARP(13716)/dV(5256) - JVRP(21770) = V(4410) -! JVRP(21771) = dARP(13717)/dV(4410) - JVRP(21771) = 1 -! JVRP(21772) = dARP(13718)/dV(4410) - JVRP(21772) = 1 -! JVRP(21773) = dARP(13719)/dV(4410) - JVRP(21773) = 1 -! JVRP(21774) = dARP(13720)/dV(4624) - JVRP(21774) = V(5255) -! JVRP(21775) = dARP(13720)/dV(5255) - JVRP(21775) = V(4624) -! JVRP(21776) = dARP(13721)/dV(4624) - JVRP(21776) = V(5255) -! JVRP(21777) = dARP(13721)/dV(5255) - JVRP(21777) = V(4624) -! JVRP(21778) = dARP(13722)/dV(4624) - JVRP(21778) = V(5255) -! JVRP(21779) = dARP(13722)/dV(5255) - JVRP(21779) = V(4624) -! JVRP(21780) = dARP(13723)/dV(4624) - JVRP(21780) = V(5252) -! JVRP(21781) = dARP(13723)/dV(5252) - JVRP(21781) = V(4624) -! JVRP(21782) = dARP(13724)/dV(4624) - JVRP(21782) = V(5253) -! JVRP(21783) = dARP(13724)/dV(5253) - JVRP(21783) = V(4624) -! JVRP(21784) = dARP(13725)/dV(4624) - JVRP(21784) = V(5256) -! JVRP(21785) = dARP(13725)/dV(5256) - JVRP(21785) = V(4624) -! JVRP(21786) = dARP(13726)/dV(4624) - JVRP(21786) = 1 -! JVRP(21787) = dARP(13727)/dV(4624) - JVRP(21787) = 1 -! JVRP(21788) = dARP(13728)/dV(4278) - JVRP(21788) = V(5256) -! JVRP(21789) = dARP(13728)/dV(5256) - JVRP(21789) = V(4278) -! JVRP(21790) = dARP(13729)/dV(4278) - JVRP(21790) = V(5250) -! JVRP(21791) = dARP(13729)/dV(5250) - JVRP(21791) = V(4278) -! JVRP(21792) = dARP(13730)/dV(4278) - JVRP(21792) = 1 -! JVRP(21793) = dARP(13731)/dV(4350) - JVRP(21793) = V(5255) -! JVRP(21794) = dARP(13731)/dV(5255) - JVRP(21794) = V(4350) -! JVRP(21795) = dARP(13732)/dV(4350) - JVRP(21795) = V(5252) -! JVRP(21796) = dARP(13732)/dV(5252) - JVRP(21796) = V(4350) -! JVRP(21797) = dARP(13733)/dV(4350) - JVRP(21797) = V(5256) -! JVRP(21798) = dARP(13733)/dV(5256) - JVRP(21798) = V(4350) -! JVRP(21799) = dARP(13734)/dV(4350) - JVRP(21799) = 1 -! JVRP(21800) = dARP(13735)/dV(4350) - JVRP(21800) = 1 -! JVRP(21801) = dARP(13736)/dV(4350) - JVRP(21801) = 1 -! JVRP(21802) = dARP(13737)/dV(4485) - JVRP(21802) = V(5255) -! JVRP(21803) = dARP(13737)/dV(5255) - JVRP(21803) = V(4485) -! JVRP(21804) = dARP(13738)/dV(4485) - JVRP(21804) = V(5255) -! JVRP(21805) = dARP(13738)/dV(5255) - JVRP(21805) = V(4485) -! JVRP(21806) = dARP(13739)/dV(4485) - JVRP(21806) = V(5255) -! JVRP(21807) = dARP(13739)/dV(5255) - JVRP(21807) = V(4485) -! JVRP(21808) = dARP(13740)/dV(4485) - JVRP(21808) = V(5252) -! JVRP(21809) = dARP(13740)/dV(5252) - JVRP(21809) = V(4485) -! JVRP(21810) = dARP(13741)/dV(4485) - JVRP(21810) = V(5253) -! JVRP(21811) = dARP(13741)/dV(5253) - JVRP(21811) = V(4485) -! JVRP(21812) = dARP(13742)/dV(4485) - JVRP(21812) = V(5256) -! JVRP(21813) = dARP(13742)/dV(5256) - JVRP(21813) = V(4485) -! JVRP(21814) = dARP(13743)/dV(4485) - JVRP(21814) = 1 -! JVRP(21815) = dARP(13744)/dV(4485) - JVRP(21815) = 1 -! JVRP(21816) = dARP(13745)/dV(4142) - JVRP(21816) = V(5255) -! JVRP(21817) = dARP(13745)/dV(5255) - JVRP(21817) = V(4142) -! JVRP(21818) = dARP(13746)/dV(4142) - JVRP(21818) = V(5252) -! JVRP(21819) = dARP(13746)/dV(5252) - JVRP(21819) = V(4142) -! JVRP(21820) = dARP(13747)/dV(4142) - JVRP(21820) = V(5256) -! JVRP(21821) = dARP(13747)/dV(5256) - JVRP(21821) = V(4142) -! JVRP(21822) = dARP(13748)/dV(4142) - JVRP(21822) = 1 -! JVRP(21823) = dARP(13749)/dV(4142) - JVRP(21823) = 1 -! JVRP(21824) = dARP(13750)/dV(4142) - JVRP(21824) = 1 -! JVRP(21825) = dARP(13751)/dV(1929) - JVRP(21825) = V(5250) -! JVRP(21826) = dARP(13751)/dV(5250) - JVRP(21826) = V(1929) -! JVRP(21827) = dARP(13752)/dV(1929) - JVRP(21827) = 1 -! JVRP(21828) = dARP(13753)/dV(942) - JVRP(21828) = V(5250) -! JVRP(21829) = dARP(13753)/dV(5250) - JVRP(21829) = V(942) -! JVRP(21830) = dARP(13754)/dV(942) - JVRP(21830) = 1 -! JVRP(21831) = dARP(13755)/dV(2532) - JVRP(21831) = V(5250) -! JVRP(21832) = dARP(13755)/dV(5250) - JVRP(21832) = V(2532) -! JVRP(21833) = dARP(13756)/dV(2532) - JVRP(21833) = 1 -! JVRP(21834) = dARP(13757)/dV(2056) - JVRP(21834) = 1 -! JVRP(21835) = dARP(13758)/dV(418) - JVRP(21835) = V(5250) -! JVRP(21836) = dARP(13758)/dV(5250) - JVRP(21836) = V(418) -! JVRP(21837) = dARP(13759)/dV(418) - JVRP(21837) = 1 -! JVRP(21838) = dARP(13760)/dV(4659) - JVRP(21838) = V(5255) -! JVRP(21839) = dARP(13760)/dV(5255) - JVRP(21839) = V(4659) -! JVRP(21840) = dARP(13761)/dV(4659) - JVRP(21840) = V(5255) -! JVRP(21841) = dARP(13761)/dV(5255) - JVRP(21841) = V(4659) -! JVRP(21842) = dARP(13762)/dV(4659) - JVRP(21842) = V(5255) -! JVRP(21843) = dARP(13762)/dV(5255) - JVRP(21843) = V(4659) -! JVRP(21844) = dARP(13763)/dV(4659) - JVRP(21844) = V(5252) -! JVRP(21845) = dARP(13763)/dV(5252) - JVRP(21845) = V(4659) -! JVRP(21846) = dARP(13764)/dV(4659) - JVRP(21846) = V(5253) -! JVRP(21847) = dARP(13764)/dV(5253) - JVRP(21847) = V(4659) -! JVRP(21848) = dARP(13765)/dV(4659) - JVRP(21848) = V(5256) -! JVRP(21849) = dARP(13765)/dV(5256) - JVRP(21849) = V(4659) -! JVRP(21850) = dARP(13766)/dV(4659) - JVRP(21850) = 1 -! JVRP(21851) = dARP(13767)/dV(4418) - JVRP(21851) = V(5255) -! JVRP(21852) = dARP(13767)/dV(5255) - JVRP(21852) = V(4418) -! JVRP(21853) = dARP(13768)/dV(4418) - JVRP(21853) = V(5252) -! JVRP(21854) = dARP(13768)/dV(5252) - JVRP(21854) = V(4418) -! JVRP(21855) = dARP(13769)/dV(4418) - JVRP(21855) = V(5256) -! JVRP(21856) = dARP(13769)/dV(5256) - JVRP(21856) = V(4418) -! JVRP(21857) = dARP(13770)/dV(4418) - JVRP(21857) = 1 -! JVRP(21858) = dARP(13771)/dV(4418) - JVRP(21858) = 1 -! JVRP(21859) = dARP(13772)/dV(4418) - JVRP(21859) = 1 -! JVRP(21860) = dARP(13773)/dV(2017) - JVRP(21860) = V(5250) -! JVRP(21861) = dARP(13773)/dV(5250) - JVRP(21861) = V(2017) -! JVRP(21862) = dARP(13774)/dV(2017) - JVRP(21862) = 1 -! JVRP(21863) = dARP(13775)/dV(2017) - JVRP(21863) = 1 -! JVRP(21864) = dARP(13776)/dV(553) - JVRP(21864) = 1 -! JVRP(21865) = dARP(13777)/dV(1643) - JVRP(21865) = V(5250) -! JVRP(21866) = dARP(13777)/dV(5250) - JVRP(21866) = V(1643) -! JVRP(21867) = dARP(13778)/dV(1731) - JVRP(21867) = V(5250) -! JVRP(21868) = dARP(13778)/dV(5250) - JVRP(21868) = V(1731) -! JVRP(21869) = dARP(13779)/dV(1731) - JVRP(21869) = 1 -! JVRP(21870) = dARP(13780)/dV(1350) - JVRP(21870) = V(5250) -! JVRP(21871) = dARP(13780)/dV(5250) - JVRP(21871) = V(1350) -! JVRP(21872) = dARP(13781)/dV(1350) - JVRP(21872) = 1 -! JVRP(21873) = dARP(13782)/dV(4371) - JVRP(21873) = V(5255) -! JVRP(21874) = dARP(13782)/dV(5255) - JVRP(21874) = V(4371) -! JVRP(21875) = dARP(13783)/dV(4371) - JVRP(21875) = V(5252) -! JVRP(21876) = dARP(13783)/dV(5252) - JVRP(21876) = V(4371) -! JVRP(21877) = dARP(13784)/dV(4371) - JVRP(21877) = V(5256) -! JVRP(21878) = dARP(13784)/dV(5256) - JVRP(21878) = V(4371) -! JVRP(21879) = dARP(13785)/dV(4371) - JVRP(21879) = 1 -! JVRP(21880) = dARP(13786)/dV(3436) - JVRP(21880) = V(5250) -! JVRP(21881) = dARP(13786)/dV(5250) - JVRP(21881) = V(3436) -! JVRP(21882) = dARP(13787)/dV(3436) - JVRP(21882) = 1 -! JVRP(21883) = dARP(13788)/dV(4439) - JVRP(21883) = V(5255) -! JVRP(21884) = dARP(13788)/dV(5255) - JVRP(21884) = V(4439) -! JVRP(21885) = dARP(13789)/dV(4439) - JVRP(21885) = V(5255) -! JVRP(21886) = dARP(13789)/dV(5255) - JVRP(21886) = V(4439) -! JVRP(21887) = dARP(13790)/dV(4439) - JVRP(21887) = V(5252) -! JVRP(21888) = dARP(13790)/dV(5252) - JVRP(21888) = V(4439) -! JVRP(21889) = dARP(13791)/dV(4439) - JVRP(21889) = V(5253) -! JVRP(21890) = dARP(13791)/dV(5253) - JVRP(21890) = V(4439) -! JVRP(21891) = dARP(13792)/dV(4439) - JVRP(21891) = V(5256) -! JVRP(21892) = dARP(13792)/dV(5256) - JVRP(21892) = V(4439) -! JVRP(21893) = dARP(13793)/dV(4439) - JVRP(21893) = 1 -! JVRP(21894) = dARP(13794)/dV(4752) - JVRP(21894) = V(5255) -! JVRP(21895) = dARP(13794)/dV(5255) - JVRP(21895) = V(4752) -! JVRP(21896) = dARP(13795)/dV(4752) - JVRP(21896) = V(5255) -! JVRP(21897) = dARP(13795)/dV(5255) - JVRP(21897) = V(4752) -! JVRP(21898) = dARP(13796)/dV(4752) - JVRP(21898) = V(5255) -! JVRP(21899) = dARP(13796)/dV(5255) - JVRP(21899) = V(4752) -! JVRP(21900) = dARP(13797)/dV(4752) - JVRP(21900) = V(5252) -! JVRP(21901) = dARP(13797)/dV(5252) - JVRP(21901) = V(4752) -! JVRP(21902) = dARP(13798)/dV(4752) - JVRP(21902) = V(5253) -! JVRP(21903) = dARP(13798)/dV(5253) - JVRP(21903) = V(4752) -! JVRP(21904) = dARP(13799)/dV(4752) - JVRP(21904) = V(5256) -! JVRP(21905) = dARP(13799)/dV(5256) - JVRP(21905) = V(4752) -! JVRP(21906) = dARP(13800)/dV(4752) - JVRP(21906) = 1 -! JVRP(21907) = dARP(13801)/dV(4752) - JVRP(21907) = 1 -! JVRP(21908) = dARP(13802)/dV(4019) - JVRP(21908) = V(5255) -! JVRP(21909) = dARP(13802)/dV(5255) - JVRP(21909) = V(4019) -! JVRP(21910) = dARP(13803)/dV(4019) - JVRP(21910) = V(5252) -! JVRP(21911) = dARP(13803)/dV(5252) - JVRP(21911) = V(4019) -! JVRP(21912) = dARP(13804)/dV(4019) - JVRP(21912) = V(5252) -! JVRP(21913) = dARP(13804)/dV(5252) - JVRP(21913) = V(4019) -! JVRP(21914) = dARP(13805)/dV(4019) - JVRP(21914) = V(5256) -! JVRP(21915) = dARP(13805)/dV(5256) - JVRP(21915) = V(4019) -! JVRP(21916) = dARP(13806)/dV(4019) - JVRP(21916) = 1 -! JVRP(21917) = dARP(13807)/dV(4019) - JVRP(21917) = 1 -! JVRP(21918) = dARP(13808)/dV(4019) - JVRP(21918) = 1 -! JVRP(21919) = dARP(13809)/dV(984) - JVRP(21919) = V(5250) -! JVRP(21920) = dARP(13809)/dV(5250) - JVRP(21920) = V(984) -! JVRP(21921) = dARP(13810)/dV(984) - JVRP(21921) = 1 -! JVRP(21922) = dARP(13811)/dV(2750) - JVRP(21922) = 1 -! JVRP(21923) = dARP(13812)/dV(662) - JVRP(21923) = V(5250) -! JVRP(21924) = dARP(13812)/dV(5250) - JVRP(21924) = V(662) -! JVRP(21925) = dARP(13813)/dV(4242) - JVRP(21925) = V(5255) -! JVRP(21926) = dARP(13813)/dV(5255) - JVRP(21926) = V(4242) -! JVRP(21927) = dARP(13814)/dV(4242) - JVRP(21927) = V(5252) -! JVRP(21928) = dARP(13814)/dV(5252) - JVRP(21928) = V(4242) -! JVRP(21929) = dARP(13815)/dV(4242) - JVRP(21929) = V(5256) -! JVRP(21930) = dARP(13815)/dV(5256) - JVRP(21930) = V(4242) -! JVRP(21931) = dARP(13816)/dV(4242) - JVRP(21931) = 1 -! JVRP(21932) = dARP(13817)/dV(4242) - JVRP(21932) = 1 -! JVRP(21933) = dARP(13818)/dV(1272) - JVRP(21933) = V(5250) -! JVRP(21934) = dARP(13818)/dV(5250) - JVRP(21934) = V(1272) -! JVRP(21935) = dARP(13819)/dV(1272) - JVRP(21935) = 1 -! JVRP(21936) = dARP(13820)/dV(2007) - JVRP(21936) = V(5250) -! JVRP(21937) = dARP(13820)/dV(5250) - JVRP(21937) = V(2007) -! JVRP(21938) = dARP(13821)/dV(2561) - JVRP(21938) = 1 -! JVRP(21939) = dARP(13822)/dV(793) - JVRP(21939) = V(5250) -! JVRP(21940) = dARP(13822)/dV(5250) - JVRP(21940) = V(793) -! JVRP(21941) = dARP(13823)/dV(1126) - JVRP(21941) = V(5250) -! JVRP(21942) = dARP(13823)/dV(5250) - JVRP(21942) = V(1126) -! JVRP(21943) = dARP(13824)/dV(1126) - JVRP(21943) = 1 -! JVRP(21944) = dARP(13825)/dV(2072) - JVRP(21944) = V(5250) -! JVRP(21945) = dARP(13825)/dV(5250) - JVRP(21945) = V(2072) -! JVRP(21946) = dARP(13826)/dV(2072) - JVRP(21946) = 1 -! JVRP(21947) = dARP(13827)/dV(2073) - JVRP(21947) = 1 -! JVRP(21948) = dARP(13828)/dV(5189) - JVRP(21948) = V(5256) -! JVRP(21949) = dARP(13828)/dV(5256) - JVRP(21949) = V(5189) -! JVRP(21950) = dARP(13829)/dV(5189) - JVRP(21950) = V(5256) -! JVRP(21951) = dARP(13829)/dV(5256) - JVRP(21951) = V(5189) -! JVRP(21952) = dARP(13830)/dV(5189) - JVRP(21952) = V(5258) -! JVRP(21953) = dARP(13830)/dV(5258) - JVRP(21953) = V(5189) -! JVRP(21954) = dARP(13831)/dV(5189) - JVRP(21954) = V(5258) -! JVRP(21955) = dARP(13831)/dV(5258) - JVRP(21955) = V(5189) -! JVRP(21956) = dARP(13832)/dV(5189) - JVRP(21956) = V(5250) -! JVRP(21957) = dARP(13832)/dV(5250) - JVRP(21957) = V(5189) -! JVRP(21958) = dARP(13833)/dV(5189) - JVRP(21958) = V(5250) -! JVRP(21959) = dARP(13833)/dV(5250) - JVRP(21959) = V(5189) -! JVRP(21960) = dARP(13834)/dV(5189) - JVRP(21960) = 1 -! JVRP(21961) = dARP(13835)/dV(465) - JVRP(21961) = V(5250) -! JVRP(21962) = dARP(13835)/dV(5250) - JVRP(21962) = V(465) -! JVRP(21963) = dARP(13836)/dV(4098) - JVRP(21963) = V(5255) -! JVRP(21964) = dARP(13836)/dV(5255) - JVRP(21964) = V(4098) -! JVRP(21965) = dARP(13837)/dV(4098) - JVRP(21965) = V(5252) -! JVRP(21966) = dARP(13837)/dV(5252) - JVRP(21966) = V(4098) -! JVRP(21967) = dARP(13838)/dV(4098) - JVRP(21967) = V(5256) -! JVRP(21968) = dARP(13838)/dV(5256) - JVRP(21968) = V(4098) -! JVRP(21969) = dARP(13839)/dV(4098) - JVRP(21969) = 1 -! JVRP(21970) = dARP(13840)/dV(4098) - JVRP(21970) = 1 -! JVRP(21971) = dARP(13841)/dV(4098) - JVRP(21971) = 1 -! JVRP(21972) = dARP(13842)/dV(1070) - JVRP(21972) = V(5250) -! JVRP(21973) = dARP(13842)/dV(5250) - JVRP(21973) = V(1070) -! JVRP(21974) = dARP(13843)/dV(1070) - JVRP(21974) = 1 -! JVRP(21975) = dARP(13844)/dV(2063) - JVRP(21975) = V(5250) -! JVRP(21976) = dARP(13844)/dV(5250) - JVRP(21976) = V(2063) -! JVRP(21977) = dARP(13845)/dV(2063) - JVRP(21977) = 1 -! JVRP(21978) = dARP(13846)/dV(168) - JVRP(21978) = 1 -! JVRP(21979) = dARP(13847)/dV(3270) - JVRP(21979) = V(5250) -! JVRP(21980) = dARP(13847)/dV(5250) - JVRP(21980) = V(3270) -! JVRP(21981) = dARP(13848)/dV(3270) - JVRP(21981) = 1 -! JVRP(21982) = dARP(13849)/dV(478) - JVRP(21982) = V(5250) -! JVRP(21983) = dARP(13849)/dV(5250) - JVRP(21983) = V(478) -! JVRP(21984) = dARP(13850)/dV(2062) - JVRP(21984) = V(5250) -! JVRP(21985) = dARP(13850)/dV(5250) - JVRP(21985) = V(2062) -! JVRP(21986) = dARP(13851)/dV(2062) - JVRP(21986) = 1 -! JVRP(21987) = dARP(13852)/dV(704) - JVRP(21987) = 1 -! JVRP(21988) = dARP(13853)/dV(1617) - JVRP(21988) = 1 -! JVRP(21989) = dARP(13854)/dV(1617) - JVRP(21989) = 1 -! JVRP(21990) = dARP(13855)/dV(515) - JVRP(21990) = V(5250) -! JVRP(21991) = dARP(13855)/dV(5250) - JVRP(21991) = V(515) -! JVRP(21992) = dARP(13856)/dV(1511) - JVRP(21992) = V(5250) -! JVRP(21993) = dARP(13856)/dV(5250) - JVRP(21993) = V(1511) -! JVRP(21994) = dARP(13857)/dV(1511) - JVRP(21994) = 1 -! JVRP(21995) = dARP(13858)/dV(2688) - JVRP(21995) = V(5250) -! JVRP(21996) = dARP(13858)/dV(5250) - JVRP(21996) = V(2688) -! JVRP(21997) = dARP(13859)/dV(2688) - JVRP(21997) = 1 -! JVRP(21998) = dARP(13860)/dV(1119) - JVRP(21998) = V(5250) -! JVRP(21999) = dARP(13860)/dV(5250) - JVRP(21999) = V(1119) -! JVRP(22000) = dARP(13861)/dV(1119) - JVRP(22000) = 1 -! JVRP(22001) = dARP(13862)/dV(1551) - JVRP(22001) = V(5250) -! JVRP(22002) = dARP(13862)/dV(5250) - JVRP(22002) = V(1551) -! JVRP(22003) = dARP(13863)/dV(1551) - JVRP(22003) = 1 -! JVRP(22004) = dARP(13864)/dV(174) - JVRP(22004) = 1 -! JVRP(22005) = dARP(13865)/dV(1550) - JVRP(22005) = V(5250) -! JVRP(22006) = dARP(13865)/dV(5250) - JVRP(22006) = V(1550) -! JVRP(22007) = dARP(13866)/dV(257) - JVRP(22007) = V(5250) -! JVRP(22008) = dARP(13866)/dV(5250) - JVRP(22008) = V(257) -! JVRP(22009) = dARP(13867)/dV(4652) - JVRP(22009) = V(5255) -! JVRP(22010) = dARP(13867)/dV(5255) - JVRP(22010) = V(4652) -! JVRP(22011) = dARP(13868)/dV(4652) - JVRP(22011) = V(5255) -! JVRP(22012) = dARP(13868)/dV(5255) - JVRP(22012) = V(4652) -! JVRP(22013) = dARP(13869)/dV(4652) - JVRP(22013) = V(5255) -! JVRP(22014) = dARP(13869)/dV(5255) - JVRP(22014) = V(4652) -! JVRP(22015) = dARP(13870)/dV(4652) - JVRP(22015) = V(5252) -! JVRP(22016) = dARP(13870)/dV(5252) - JVRP(22016) = V(4652) -! JVRP(22017) = dARP(13871)/dV(4652) - JVRP(22017) = V(5253) -! JVRP(22018) = dARP(13871)/dV(5253) - JVRP(22018) = V(4652) -! JVRP(22019) = dARP(13872)/dV(4652) - JVRP(22019) = V(5256) -! JVRP(22020) = dARP(13872)/dV(5256) - JVRP(22020) = V(4652) -! JVRP(22021) = dARP(13873)/dV(4652) - JVRP(22021) = 1 -! JVRP(22022) = dARP(13874)/dV(4652) - JVRP(22022) = 1 -! JVRP(22023) = dARP(13875)/dV(4825) - JVRP(22023) = V(5255) -! JVRP(22024) = dARP(13875)/dV(5255) - JVRP(22024) = V(4825) -! JVRP(22025) = dARP(13876)/dV(4825) - JVRP(22025) = V(5252) -! JVRP(22026) = dARP(13876)/dV(5252) - JVRP(22026) = V(4825) -! JVRP(22027) = dARP(13877)/dV(4825) - JVRP(22027) = V(5252) -! JVRP(22028) = dARP(13877)/dV(5252) - JVRP(22028) = V(4825) -! JVRP(22029) = dARP(13878)/dV(4825) - JVRP(22029) = V(5256) -! JVRP(22030) = dARP(13878)/dV(5256) - JVRP(22030) = V(4825) -! JVRP(22031) = dARP(13879)/dV(4825) - JVRP(22031) = 1 -! JVRP(22032) = dARP(13880)/dV(4825) - JVRP(22032) = 1 -! JVRP(22033) = dARP(13881)/dV(4825) - JVRP(22033) = 1 -! JVRP(22034) = dARP(13882)/dV(1004) - JVRP(22034) = V(5250) -! JVRP(22035) = dARP(13882)/dV(5250) - JVRP(22035) = V(1004) -! JVRP(22036) = dARP(13883)/dV(1004) - JVRP(22036) = 1 -! JVRP(22037) = dARP(13884)/dV(2157) - JVRP(22037) = V(5250) -! JVRP(22038) = dARP(13884)/dV(5250) - JVRP(22038) = V(2157) -! JVRP(22039) = dARP(13885)/dV(2157) - JVRP(22039) = 1 -! JVRP(22040) = dARP(13886)/dV(151) - JVRP(22040) = 1 -! JVRP(22041) = dARP(13887)/dV(3213) - JVRP(22041) = V(5250) -! JVRP(22042) = dARP(13887)/dV(5250) - JVRP(22042) = V(3213) -! JVRP(22043) = dARP(13888)/dV(3213) - JVRP(22043) = 1 -! JVRP(22044) = dARP(13889)/dV(409) - JVRP(22044) = V(5250) -! JVRP(22045) = dARP(13889)/dV(5250) - JVRP(22045) = V(409) -! JVRP(22046) = dARP(13890)/dV(1149) - JVRP(22046) = V(5250) -! JVRP(22047) = dARP(13890)/dV(5250) - JVRP(22047) = V(1149) -! JVRP(22048) = dARP(13891)/dV(1149) - JVRP(22048) = 1 -! JVRP(22049) = dARP(13892)/dV(1591) - JVRP(22049) = V(5250) -! JVRP(22050) = dARP(13892)/dV(5250) - JVRP(22050) = V(1591) -! JVRP(22051) = dARP(13893)/dV(1591) - JVRP(22051) = 1 -! JVRP(22052) = dARP(13894)/dV(190) - JVRP(22052) = 1 -! JVRP(22053) = dARP(13895)/dV(1590) - JVRP(22053) = V(5250) -! JVRP(22054) = dARP(13895)/dV(5250) - JVRP(22054) = V(1590) -! JVRP(22055) = dARP(13896)/dV(266) - JVRP(22055) = V(5250) -! JVRP(22056) = dARP(13896)/dV(5250) - JVRP(22056) = V(266) -! JVRP(22057) = dARP(13897)/dV(1801) - JVRP(22057) = V(5250) -! JVRP(22058) = dARP(13897)/dV(5250) - JVRP(22058) = V(1801) -! JVRP(22059) = dARP(13898)/dV(1801) - JVRP(22059) = 1 -! JVRP(22060) = dARP(13899)/dV(2524) - JVRP(22060) = V(5250) -! JVRP(22061) = dARP(13899)/dV(5250) - JVRP(22061) = V(2524) -! JVRP(22062) = dARP(13900)/dV(2524) - JVRP(22062) = 1 -! JVRP(22063) = dARP(13901)/dV(1614) - JVRP(22063) = 1 -! JVRP(22064) = dARP(13902)/dV(813) - JVRP(22064) = V(5250) -! JVRP(22065) = dARP(13902)/dV(5250) - JVRP(22065) = V(813) -! JVRP(22066) = dARP(13903)/dV(1331) - JVRP(22066) = V(5250) -! JVRP(22067) = dARP(13903)/dV(5250) - JVRP(22067) = V(1331) -! JVRP(22068) = dARP(13904)/dV(1331) - JVRP(22068) = 1 -! JVRP(22069) = dARP(13905)/dV(2195) - JVRP(22069) = V(5250) -! JVRP(22070) = dARP(13905)/dV(5250) - JVRP(22070) = V(2195) -! JVRP(22071) = dARP(13906)/dV(2195) - JVRP(22071) = 1 -! JVRP(22072) = dARP(13907)/dV(211) - JVRP(22072) = 1 -! JVRP(22073) = dARP(13908)/dV(108) - JVRP(22073) = V(5250) -! JVRP(22074) = dARP(13908)/dV(5250) - JVRP(22074) = V(108) -! JVRP(22075) = dARP(13909)/dV(378) - JVRP(22075) = V(5250) -! JVRP(22076) = dARP(13909)/dV(5250) - JVRP(22076) = V(378) -! JVRP(22077) = dARP(13910)/dV(1480) - JVRP(22077) = V(5250) -! JVRP(22078) = dARP(13910)/dV(5250) - JVRP(22078) = V(1480) -! JVRP(22079) = dARP(13911)/dV(1480) - JVRP(22079) = 1 -! JVRP(22080) = dARP(13912)/dV(3722) - JVRP(22080) = V(5255) -! JVRP(22081) = dARP(13912)/dV(5255) - JVRP(22081) = V(3722) -! JVRP(22082) = dARP(13913)/dV(3722) - JVRP(22082) = V(5252) -! JVRP(22083) = dARP(13913)/dV(5252) - JVRP(22083) = V(3722) -! JVRP(22084) = dARP(13914)/dV(3722) - JVRP(22084) = V(5252) -! JVRP(22085) = dARP(13914)/dV(5252) - JVRP(22085) = V(3722) -! JVRP(22086) = dARP(13915)/dV(3722) - JVRP(22086) = V(5256) -! JVRP(22087) = dARP(13915)/dV(5256) - JVRP(22087) = V(3722) -! JVRP(22088) = dARP(13916)/dV(3722) - JVRP(22088) = 1 -! JVRP(22089) = dARP(13917)/dV(3722) - JVRP(22089) = 1 -! JVRP(22090) = dARP(13918)/dV(3722) - JVRP(22090) = 1 -! JVRP(22091) = dARP(13919)/dV(2829) - JVRP(22091) = V(5250) -! JVRP(22092) = dARP(13919)/dV(5250) - JVRP(22092) = V(2829) -! JVRP(22093) = dARP(13920)/dV(2829) - JVRP(22093) = 1 -! JVRP(22094) = dARP(13921)/dV(3420) - JVRP(22094) = V(5250) -! JVRP(22095) = dARP(13921)/dV(5250) - JVRP(22095) = V(3420) -! JVRP(22096) = dARP(13922)/dV(3420) - JVRP(22096) = 1 -! JVRP(22097) = dARP(13923)/dV(4172) - JVRP(22097) = V(5255) -! JVRP(22098) = dARP(13923)/dV(5255) - JVRP(22098) = V(4172) -! JVRP(22099) = dARP(13924)/dV(4172) - JVRP(22099) = V(5252) -! JVRP(22100) = dARP(13924)/dV(5252) - JVRP(22100) = V(4172) -! JVRP(22101) = dARP(13925)/dV(4172) - JVRP(22101) = V(5252) -! JVRP(22102) = dARP(13925)/dV(5252) - JVRP(22102) = V(4172) -! JVRP(22103) = dARP(13926)/dV(4172) - JVRP(22103) = V(5256) -! JVRP(22104) = dARP(13926)/dV(5256) - JVRP(22104) = V(4172) -! JVRP(22105) = dARP(13927)/dV(4172) - JVRP(22105) = 1 -! JVRP(22106) = dARP(13928)/dV(4172) - JVRP(22106) = 1 -! JVRP(22107) = dARP(13929)/dV(4172) - JVRP(22107) = 1 -! JVRP(22108) = dARP(13930)/dV(965) - JVRP(22108) = V(5250) -! JVRP(22109) = dARP(13930)/dV(5250) - JVRP(22109) = V(965) -! JVRP(22110) = dARP(13931)/dV(965) - JVRP(22110) = 1 -! JVRP(22111) = dARP(13932)/dV(1620) - JVRP(22111) = 1 -! JVRP(22112) = dARP(13933)/dV(118) - JVRP(22112) = V(5250) -! JVRP(22113) = dARP(13933)/dV(5250) - JVRP(22113) = V(118) -! JVRP(22114) = dARP(13934)/dV(883) - JVRP(22114) = V(5250) -! JVRP(22115) = dARP(13934)/dV(5250) - JVRP(22115) = V(883) -! JVRP(22116) = dARP(13935)/dV(883) - JVRP(22116) = 1 -! JVRP(22117) = dARP(13936)/dV(2621) - JVRP(22117) = V(5250) -! JVRP(22118) = dARP(13936)/dV(5250) - JVRP(22118) = V(2621) -! JVRP(22119) = dARP(13937)/dV(2621) - JVRP(22119) = 1 -! JVRP(22120) = dARP(13938)/dV(2293) - JVRP(22120) = 1 -! JVRP(22121) = dARP(13939)/dV(99) - JVRP(22121) = V(5250) -! JVRP(22122) = dARP(13939)/dV(5250) - JVRP(22122) = V(99) -! JVRP(22123) = dARP(13940)/dV(1333) - JVRP(22123) = V(5250) -! JVRP(22124) = dARP(13940)/dV(5250) - JVRP(22124) = V(1333) -! JVRP(22125) = dARP(13941)/dV(1333) - JVRP(22125) = 1 -! JVRP(22126) = dARP(13942)/dV(113) - JVRP(22126) = 1 -! JVRP(22127) = dARP(13943)/dV(213) - JVRP(22127) = V(5250) -! JVRP(22128) = dARP(13943)/dV(5250) - JVRP(22128) = V(213) -! JVRP(22129) = dARP(13944)/dV(2975) - JVRP(22129) = V(5250) -! JVRP(22130) = dARP(13944)/dV(5250) - JVRP(22130) = V(2975) -! JVRP(22131) = dARP(13945)/dV(2975) - JVRP(22131) = 1 -! JVRP(22132) = dARP(13946)/dV(2975) - JVRP(22132) = 1 -! JVRP(22133) = dARP(13947)/dV(2210) - JVRP(22133) = 1 -! JVRP(22134) = dARP(13948)/dV(902) - JVRP(22134) = V(5250) -! JVRP(22135) = dARP(13948)/dV(5250) - JVRP(22135) = V(902) -! JVRP(22136) = dARP(13949)/dV(902) - JVRP(22136) = 1 -! JVRP(22137) = dARP(13950)/dV(2724) - JVRP(22137) = 1 -! JVRP(22138) = dARP(13951)/dV(4207) - JVRP(22138) = V(5255) -! JVRP(22139) = dARP(13951)/dV(5255) - JVRP(22139) = V(4207) -! JVRP(22140) = dARP(13952)/dV(4207) - JVRP(22140) = V(5255) -! JVRP(22141) = dARP(13952)/dV(5255) - JVRP(22141) = V(4207) -! JVRP(22142) = dARP(13953)/dV(4207) - JVRP(22142) = V(5252) -! JVRP(22143) = dARP(13953)/dV(5252) - JVRP(22143) = V(4207) -! JVRP(22144) = dARP(13954)/dV(4207) - JVRP(22144) = V(5253) -! JVRP(22145) = dARP(13954)/dV(5253) - JVRP(22145) = V(4207) -! JVRP(22146) = dARP(13955)/dV(4207) - JVRP(22146) = V(5256) -! JVRP(22147) = dARP(13955)/dV(5256) - JVRP(22147) = V(4207) -! JVRP(22148) = dARP(13956)/dV(4207) - JVRP(22148) = 1 -! JVRP(22149) = dARP(13957)/dV(1236) - JVRP(22149) = 1 -! JVRP(22150) = dARP(13958)/dV(1236) - JVRP(22150) = V(5250) -! JVRP(22151) = dARP(13958)/dV(5250) - JVRP(22151) = V(1236) -! JVRP(22152) = dARP(13959)/dV(2845) - JVRP(22152) = 1 -! JVRP(22153) = dARP(13960)/dV(2845) - JVRP(22153) = V(5250) -! JVRP(22154) = dARP(13960)/dV(5250) - JVRP(22154) = V(2845) -! JVRP(22155) = dARP(13961)/dV(1759) - JVRP(22155) = 1 -! JVRP(22156) = dARP(13962)/dV(1759) - JVRP(22156) = 1 -! JVRP(22157) = dARP(13963)/dV(1759) - JVRP(22157) = V(5250) -! JVRP(22158) = dARP(13963)/dV(5250) - JVRP(22158) = V(1759) -! JVRP(22159) = dARP(13964)/dV(545) - JVRP(22159) = 1 -! JVRP(22160) = dARP(13965)/dV(2930) - JVRP(22160) = 1 -! JVRP(22161) = dARP(13966)/dV(2930) - JVRP(22161) = 1 -! JVRP(22162) = dARP(13967)/dV(2930) - JVRP(22162) = V(5250) -! JVRP(22163) = dARP(13967)/dV(5250) - JVRP(22163) = V(2930) -! JVRP(22164) = dARP(13968)/dV(2201) - JVRP(22164) = 1 -! JVRP(22165) = dARP(13969)/dV(3274) - JVRP(22165) = 1 -! JVRP(22166) = dARP(13970)/dV(3274) - JVRP(22166) = 1 -! JVRP(22167) = dARP(13971)/dV(3274) - JVRP(22167) = V(5250) -! JVRP(22168) = dARP(13971)/dV(5250) - JVRP(22168) = V(3274) -! JVRP(22169) = dARP(13972)/dV(2024) - JVRP(22169) = 1 -! JVRP(22170) = dARP(13973)/dV(3899) - JVRP(22170) = V(5255) -! JVRP(22171) = dARP(13973)/dV(5255) - JVRP(22171) = V(3899) -! JVRP(22172) = dARP(13974)/dV(3899) - JVRP(22172) = V(5252) -! JVRP(22173) = dARP(13974)/dV(5252) - JVRP(22173) = V(3899) -! JVRP(22174) = dARP(13975)/dV(3899) - JVRP(22174) = V(5256) -! JVRP(22175) = dARP(13975)/dV(5256) - JVRP(22175) = V(3899) -! JVRP(22176) = dARP(13976)/dV(3899) - JVRP(22176) = 1 -! JVRP(22177) = dARP(13977)/dV(1268) - JVRP(22177) = 1 -! JVRP(22178) = dARP(13978)/dV(1268) - JVRP(22178) = V(5250) -! JVRP(22179) = dARP(13978)/dV(5250) - JVRP(22179) = V(1268) -! JVRP(22180) = dARP(13979)/dV(2960) - JVRP(22180) = 1 -! JVRP(22181) = dARP(13980)/dV(1137) - JVRP(22181) = 1 -! JVRP(22182) = dARP(13981)/dV(1137) - JVRP(22182) = V(5250) -! JVRP(22183) = dARP(13981)/dV(5250) - JVRP(22183) = V(1137) -! JVRP(22184) = dARP(13982)/dV(3073) - JVRP(22184) = 1 -! JVRP(22185) = dARP(13983)/dV(960) - JVRP(22185) = 1 -! JVRP(22186) = dARP(13984)/dV(960) - JVRP(22186) = V(5250) -! JVRP(22187) = dARP(13984)/dV(5250) - JVRP(22187) = V(960) -! JVRP(22188) = dARP(13985)/dV(2751) - JVRP(22188) = 1 -! JVRP(22189) = dARP(13986)/dV(1271) - JVRP(22189) = 1 -! JVRP(22190) = dARP(13987)/dV(1271) - JVRP(22190) = V(5250) -! JVRP(22191) = dARP(13987)/dV(5250) - JVRP(22191) = V(1271) -! JVRP(22192) = dARP(13988)/dV(2853) - JVRP(22192) = 1 -! JVRP(22193) = dARP(13989)/dV(1338) - JVRP(22193) = 1 -! JVRP(22194) = dARP(13990)/dV(1338) - JVRP(22194) = V(5250) -! JVRP(22195) = dARP(13990)/dV(5250) - JVRP(22195) = V(1338) -! JVRP(22196) = dARP(13991)/dV(3058) - JVRP(22196) = 1 -! JVRP(22197) = dARP(13992)/dV(2763) - JVRP(22197) = V(5250) -! JVRP(22198) = dARP(13992)/dV(5250) - JVRP(22198) = V(2763) -! JVRP(22199) = dARP(13993)/dV(2763) - JVRP(22199) = 1 -! JVRP(22200) = dARP(13994)/dV(2529) - JVRP(22200) = V(5250) -! JVRP(22201) = dARP(13994)/dV(5250) - JVRP(22201) = V(2529) -! JVRP(22202) = dARP(13995)/dV(2529) - JVRP(22202) = 1 -! JVRP(22203) = dARP(13996)/dV(2414) - JVRP(22203) = V(5250) -! JVRP(22204) = dARP(13996)/dV(5250) - JVRP(22204) = V(2414) -! JVRP(22205) = dARP(13997)/dV(2414) - JVRP(22205) = 1 -! JVRP(22206) = dARP(13998)/dV(2859) - JVRP(22206) = V(5250) -! JVRP(22207) = dARP(13998)/dV(5250) - JVRP(22207) = V(2859) -! JVRP(22208) = dARP(13999)/dV(2859) - JVRP(22208) = 1 -! JVRP(22209) = dARP(14000)/dV(2039) - JVRP(22209) = V(5250) -! JVRP(22210) = dARP(14000)/dV(5250) - JVRP(22210) = V(2039) -! JVRP(22211) = dARP(14001)/dV(2039) - JVRP(22211) = 1 -! JVRP(22212) = dARP(14002)/dV(2970) - JVRP(22212) = V(5250) -! JVRP(22213) = dARP(14002)/dV(5250) - JVRP(22213) = V(2970) -! JVRP(22214) = dARP(14003)/dV(2970) - JVRP(22214) = 1 -! JVRP(22215) = dARP(14004)/dV(3546) - JVRP(22215) = V(5256) -! JVRP(22216) = dARP(14004)/dV(5256) - JVRP(22216) = V(3546) -! JVRP(22217) = dARP(14005)/dV(3546) - JVRP(22217) = V(5250) -! JVRP(22218) = dARP(14005)/dV(5250) - JVRP(22218) = V(3546) -! JVRP(22219) = dARP(14006)/dV(3546) - JVRP(22219) = 1 -! JVRP(22220) = dARP(14007)/dV(2652) - JVRP(22220) = V(5250) -! JVRP(22221) = dARP(14007)/dV(5250) - JVRP(22221) = V(2652) -! JVRP(22222) = dARP(14008)/dV(2652) - JVRP(22222) = 1 -! JVRP(22223) = dARP(14009)/dV(2998) - JVRP(22223) = V(5250) -! JVRP(22224) = dARP(14009)/dV(5250) - JVRP(22224) = V(2998) -! JVRP(22225) = dARP(14010)/dV(2998) - JVRP(22225) = 1 -! JVRP(22226) = dARP(14011)/dV(1982) - JVRP(22226) = V(5250) -! JVRP(22227) = dARP(14011)/dV(5250) - JVRP(22227) = V(1982) -! JVRP(22228) = dARP(14012)/dV(1982) - JVRP(22228) = 1 -! JVRP(22229) = dARP(14013)/dV(2901) - JVRP(22229) = V(5250) -! JVRP(22230) = dARP(14013)/dV(5250) - JVRP(22230) = V(2901) -! JVRP(22231) = dARP(14014)/dV(2901) - JVRP(22231) = 1 -! JVRP(22232) = dARP(14015)/dV(75) - JVRP(22232) = V(5250) -! JVRP(22233) = dARP(14015)/dV(5250) - JVRP(22233) = V(75) -! JVRP(22234) = dARP(14016)/dV(1879) - JVRP(22234) = V(5250) -! JVRP(22235) = dARP(14016)/dV(5250) - JVRP(22235) = V(1879) -! JVRP(22236) = dARP(14017)/dV(1879) - JVRP(22236) = 1 -! JVRP(22237) = dARP(14018)/dV(2721) - JVRP(22237) = V(5250) -! JVRP(22238) = dARP(14018)/dV(5250) - JVRP(22238) = V(2721) -! JVRP(22239) = dARP(14019)/dV(2721) - JVRP(22239) = 1 -! JVRP(22240) = dARP(14020)/dV(15) - JVRP(22240) = V(5250) -! JVRP(22241) = dARP(14020)/dV(5250) - JVRP(22241) = V(15) -! JVRP(22242) = dARP(14021)/dV(2026) - JVRP(22242) = V(5250) -! JVRP(22243) = dARP(14021)/dV(5250) - JVRP(22243) = V(2026) -! JVRP(22244) = dARP(14022)/dV(2026) - JVRP(22244) = 1 -! JVRP(22245) = dARP(14023)/dV(3061) - JVRP(22245) = V(5250) -! JVRP(22246) = dARP(14023)/dV(5250) - JVRP(22246) = V(3061) -! JVRP(22247) = dARP(14024)/dV(3061) - JVRP(22247) = 1 -! JVRP(22248) = dARP(14025)/dV(122) - JVRP(22248) = V(5250) -! JVRP(22249) = dARP(14025)/dV(5250) - JVRP(22249) = V(122) -! JVRP(22250) = dARP(14026)/dV(4214) - JVRP(22250) = V(5255) -! JVRP(22251) = dARP(14026)/dV(5255) - JVRP(22251) = V(4214) -! JVRP(22252) = dARP(14027)/dV(4214) - JVRP(22252) = V(5255) -! JVRP(22253) = dARP(14027)/dV(5255) - JVRP(22253) = V(4214) -! JVRP(22254) = dARP(14028)/dV(4214) - JVRP(22254) = V(5252) -! JVRP(22255) = dARP(14028)/dV(5252) - JVRP(22255) = V(4214) -! JVRP(22256) = dARP(14029)/dV(4214) - JVRP(22256) = V(5253) -! JVRP(22257) = dARP(14029)/dV(5253) - JVRP(22257) = V(4214) -! JVRP(22258) = dARP(14030)/dV(4214) - JVRP(22258) = V(5256) -! JVRP(22259) = dARP(14030)/dV(5256) - JVRP(22259) = V(4214) -! JVRP(22260) = dARP(14031)/dV(4214) - JVRP(22260) = 1 -! JVRP(22261) = dARP(14032)/dV(2082) - JVRP(22261) = V(5250) -! JVRP(22262) = dARP(14032)/dV(5250) - JVRP(22262) = V(2082) -! JVRP(22263) = dARP(14033)/dV(2082) - JVRP(22263) = 1 -! JVRP(22264) = dARP(14034)/dV(2700) - JVRP(22264) = V(5250) -! JVRP(22265) = dARP(14034)/dV(5250) - JVRP(22265) = V(2700) -! JVRP(22266) = dARP(14035)/dV(2700) - JVRP(22266) = 1 -! JVRP(22267) = dARP(14036)/dV(2899) - JVRP(22267) = V(5250) -! JVRP(22268) = dARP(14036)/dV(5250) - JVRP(22268) = V(2899) -! JVRP(22269) = dARP(14037)/dV(2899) - JVRP(22269) = 1 -! JVRP(22270) = dARP(14038)/dV(3014) - JVRP(22270) = V(5250) -! JVRP(22271) = dARP(14038)/dV(5250) - JVRP(22271) = V(3014) -! JVRP(22272) = dARP(14039)/dV(3014) - JVRP(22272) = 1 -! JVRP(22273) = dARP(14040)/dV(2388) - JVRP(22273) = V(5250) -! JVRP(22274) = dARP(14040)/dV(5250) - JVRP(22274) = V(2388) -! JVRP(22275) = dARP(14041)/dV(2388) - JVRP(22275) = 1 -! JVRP(22276) = dARP(14042)/dV(2833) - JVRP(22276) = V(5250) -! JVRP(22277) = dARP(14042)/dV(5250) - JVRP(22277) = V(2833) -! JVRP(22278) = dARP(14043)/dV(2833) - JVRP(22278) = 1 -! JVRP(22279) = dARP(14044)/dV(2336) - JVRP(22279) = V(5250) -! JVRP(22280) = dARP(14044)/dV(5250) - JVRP(22280) = V(2336) -! JVRP(22281) = dARP(14045)/dV(2336) - JVRP(22281) = 1 -! JVRP(22282) = dARP(14046)/dV(2507) - JVRP(22282) = V(5250) -! JVRP(22283) = dARP(14046)/dV(5250) - JVRP(22283) = V(2507) -! JVRP(22284) = dARP(14047)/dV(2507) - JVRP(22284) = 1 -! JVRP(22285) = dARP(14048)/dV(3257) - JVRP(22285) = V(5250) -! JVRP(22286) = dARP(14048)/dV(5250) - JVRP(22286) = V(3257) -! JVRP(22287) = dARP(14049)/dV(3257) - JVRP(22287) = 1 -! JVRP(22288) = dARP(14050)/dV(1392) - JVRP(22288) = V(5250) -! JVRP(22289) = dARP(14050)/dV(5250) - JVRP(22289) = V(1392) -! JVRP(22290) = dARP(14051)/dV(1392) - JVRP(22290) = 1 -! JVRP(22291) = dARP(14052)/dV(3071) - JVRP(22291) = 1 -! JVRP(22292) = dARP(14053)/dV(1639) - JVRP(22292) = V(5250) -! JVRP(22293) = dARP(14053)/dV(5250) - JVRP(22293) = V(1639) -! JVRP(22294) = dARP(14054)/dV(1639) - JVRP(22294) = 1 -! JVRP(22295) = dARP(14055)/dV(4462) - JVRP(22295) = V(5256) -! JVRP(22296) = dARP(14055)/dV(5256) - JVRP(22296) = V(4462) -! JVRP(22297) = dARP(14056)/dV(4462) - JVRP(22297) = V(5250) -! JVRP(22298) = dARP(14056)/dV(5250) - JVRP(22298) = V(4462) -! JVRP(22299) = dARP(14057)/dV(4462) - JVRP(22299) = 1 -! JVRP(22300) = dARP(14058)/dV(4462) - JVRP(22300) = 1 -! JVRP(22301) = dARP(14059)/dV(2348) - JVRP(22301) = V(5250) -! JVRP(22302) = dARP(14059)/dV(5250) - JVRP(22302) = V(2348) -! JVRP(22303) = dARP(14060)/dV(2348) - JVRP(22303) = 1 -! JVRP(22304) = dARP(14061)/dV(795) - JVRP(22304) = 1 -! JVRP(22305) = dARP(14062)/dV(2217) - JVRP(22305) = V(5250) -! JVRP(22306) = dARP(14062)/dV(5250) - JVRP(22306) = V(2217) -! JVRP(22307) = dARP(14063)/dV(2217) - JVRP(22307) = 1 -! JVRP(22308) = dARP(14064)/dV(617) - JVRP(22308) = 1 -! JVRP(22309) = dARP(14065)/dV(4902) - JVRP(22309) = V(5256) -! JVRP(22310) = dARP(14065)/dV(5256) - JVRP(22310) = V(4902) -! JVRP(22311) = dARP(14066)/dV(4902) - JVRP(22311) = V(5250) -! JVRP(22312) = dARP(14066)/dV(5250) - JVRP(22312) = V(4902) -! JVRP(22313) = dARP(14067)/dV(4902) - JVRP(22313) = 1 -! JVRP(22314) = dARP(14068)/dV(1932) - JVRP(22314) = V(5250) -! JVRP(22315) = dARP(14068)/dV(5250) - JVRP(22315) = V(1932) -! JVRP(22316) = dARP(14069)/dV(1932) - JVRP(22316) = 1 -! JVRP(22317) = dARP(14070)/dV(714) - JVRP(22317) = 1 -! JVRP(22318) = dARP(14071)/dV(583) - JVRP(22318) = V(5250) -! JVRP(22319) = dARP(14071)/dV(5250) - JVRP(22319) = V(583) -! JVRP(22320) = dARP(14072)/dV(583) - JVRP(22320) = 1 -! JVRP(22321) = dARP(14073)/dV(3694) - JVRP(22321) = V(5255) -! JVRP(22322) = dARP(14073)/dV(5255) - JVRP(22322) = V(3694) -! JVRP(22323) = dARP(14074)/dV(3694) - JVRP(22323) = V(5252) -! JVRP(22324) = dARP(14074)/dV(5252) - JVRP(22324) = V(3694) -! JVRP(22325) = dARP(14075)/dV(3694) - JVRP(22325) = V(5256) -! JVRP(22326) = dARP(14075)/dV(5256) - JVRP(22326) = V(3694) -! JVRP(22327) = dARP(14076)/dV(3694) - JVRP(22327) = 1 -! JVRP(22328) = dARP(14077)/dV(3694) - JVRP(22328) = 1 -! JVRP(22329) = dARP(14078)/dV(4496) - JVRP(22329) = V(5255) -! JVRP(22330) = dARP(14078)/dV(5255) - JVRP(22330) = V(4496) -! JVRP(22331) = dARP(14079)/dV(4496) - JVRP(22331) = V(5255) -! JVRP(22332) = dARP(14079)/dV(5255) - JVRP(22332) = V(4496) -! JVRP(22333) = dARP(14080)/dV(4496) - JVRP(22333) = V(5255) -! JVRP(22334) = dARP(14080)/dV(5255) - JVRP(22334) = V(4496) -! JVRP(22335) = dARP(14081)/dV(4496) - JVRP(22335) = V(5252) -! JVRP(22336) = dARP(14081)/dV(5252) - JVRP(22336) = V(4496) -! JVRP(22337) = dARP(14082)/dV(4496) - JVRP(22337) = V(5253) -! JVRP(22338) = dARP(14082)/dV(5253) - JVRP(22338) = V(4496) -! JVRP(22339) = dARP(14083)/dV(4496) - JVRP(22339) = V(5256) -! JVRP(22340) = dARP(14083)/dV(5256) - JVRP(22340) = V(4496) -! JVRP(22341) = dARP(14084)/dV(4496) - JVRP(22341) = 1 -! JVRP(22342) = dARP(14085)/dV(4496) - JVRP(22342) = 1 -! JVRP(22343) = dARP(14086)/dV(4295) - JVRP(22343) = V(5255) -! JVRP(22344) = dARP(14086)/dV(5255) - JVRP(22344) = V(4295) -! JVRP(22345) = dARP(14087)/dV(4295) - JVRP(22345) = V(5252) -! JVRP(22346) = dARP(14087)/dV(5252) - JVRP(22346) = V(4295) -! JVRP(22347) = dARP(14088)/dV(4295) - JVRP(22347) = V(5256) -! JVRP(22348) = dARP(14088)/dV(5256) - JVRP(22348) = V(4295) -! JVRP(22349) = dARP(14089)/dV(4295) - JVRP(22349) = 1 -! JVRP(22350) = dARP(14090)/dV(1985) - JVRP(22350) = V(5250) -! JVRP(22351) = dARP(14090)/dV(5250) - JVRP(22351) = V(1985) -! JVRP(22352) = dARP(14091)/dV(1985) - JVRP(22352) = 1 -! JVRP(22353) = dARP(14092)/dV(775) - JVRP(22353) = 1 -! JVRP(22354) = dARP(14093)/dV(1414) - JVRP(22354) = V(5250) -! JVRP(22355) = dARP(14093)/dV(5250) - JVRP(22355) = V(1414) -! JVRP(22356) = dARP(14094)/dV(1414) - JVRP(22356) = 1 -! JVRP(22357) = dARP(14095)/dV(2332) - JVRP(22357) = V(5250) -! JVRP(22358) = dARP(14095)/dV(5250) - JVRP(22358) = V(2332) -! JVRP(22359) = dARP(14096)/dV(2332) - JVRP(22359) = 1 -! JVRP(22360) = dARP(14097)/dV(2953) - JVRP(22360) = 1 -! JVRP(22361) = dARP(14098)/dV(633) - JVRP(22361) = V(5250) -! JVRP(22362) = dARP(14098)/dV(5250) - JVRP(22362) = V(633) -! JVRP(22363) = dARP(14099)/dV(633) - JVRP(22363) = 1 -! JVRP(22364) = dARP(14100)/dV(2404) - JVRP(22364) = V(5250) -! JVRP(22365) = dARP(14100)/dV(5250) - JVRP(22365) = V(2404) -! JVRP(22366) = dARP(14101)/dV(2404) - JVRP(22366) = 1 -! JVRP(22367) = dARP(14102)/dV(581) - JVRP(22367) = 1 -! JVRP(22368) = dARP(14103)/dV(4867) - JVRP(22368) = V(5255) -! JVRP(22369) = dARP(14103)/dV(5255) - JVRP(22369) = V(4867) -! JVRP(22370) = dARP(14104)/dV(4867) - JVRP(22370) = V(5255) -! JVRP(22371) = dARP(14104)/dV(5255) - JVRP(22371) = V(4867) -! JVRP(22372) = dARP(14105)/dV(4867) - JVRP(22372) = V(5255) -! JVRP(22373) = dARP(14105)/dV(5255) - JVRP(22373) = V(4867) -! JVRP(22374) = dARP(14106)/dV(4867) - JVRP(22374) = V(5252) -! JVRP(22375) = dARP(14106)/dV(5252) - JVRP(22375) = V(4867) -! JVRP(22376) = dARP(14107)/dV(4867) - JVRP(22376) = V(5253) -! JVRP(22377) = dARP(14107)/dV(5253) - JVRP(22377) = V(4867) -! JVRP(22378) = dARP(14108)/dV(4867) - JVRP(22378) = V(5256) -! JVRP(22379) = dARP(14108)/dV(5256) - JVRP(22379) = V(4867) -! JVRP(22380) = dARP(14109)/dV(4867) - JVRP(22380) = 1 -! JVRP(22381) = dARP(14110)/dV(4867) - JVRP(22381) = 1 -! JVRP(22382) = dARP(14111)/dV(1094) - JVRP(22382) = V(5250) -! JVRP(22383) = dARP(14111)/dV(5250) - JVRP(22383) = V(1094) -! JVRP(22384) = dARP(14112)/dV(1094) - JVRP(22384) = 1 -! JVRP(22385) = dARP(14113)/dV(1732) - JVRP(22385) = 1 -! JVRP(22386) = dARP(14114)/dV(3309) - JVRP(22386) = V(5250) -! JVRP(22387) = dARP(14114)/dV(5250) - JVRP(22387) = V(3309) -! JVRP(22388) = dARP(14115)/dV(3309) - JVRP(22388) = 1 -! JVRP(22389) = dARP(14116)/dV(3309) - JVRP(22389) = 1 -! JVRP(22390) = dARP(14117)/dV(789) - JVRP(22390) = V(5250) -! JVRP(22391) = dARP(14117)/dV(5250) - JVRP(22391) = V(789) -! JVRP(22392) = dARP(14118)/dV(789) - JVRP(22392) = 1 -! JVRP(22393) = dARP(14119)/dV(1189) - JVRP(22393) = V(5250) -! JVRP(22394) = dARP(14119)/dV(5250) - JVRP(22394) = V(1189) -! JVRP(22395) = dARP(14120)/dV(1189) - JVRP(22395) = 1 -! JVRP(22396) = dARP(14121)/dV(849) - JVRP(22396) = V(5250) -! JVRP(22397) = dARP(14121)/dV(5250) - JVRP(22397) = V(849) -! JVRP(22398) = dARP(14122)/dV(849) - JVRP(22398) = 1 -! JVRP(22399) = dARP(14123)/dV(4131) - JVRP(22399) = V(5255) -! JVRP(22400) = dARP(14123)/dV(5255) - JVRP(22400) = V(4131) -! JVRP(22401) = dARP(14124)/dV(4131) - JVRP(22401) = V(5252) -! JVRP(22402) = dARP(14124)/dV(5252) - JVRP(22402) = V(4131) -! JVRP(22403) = dARP(14125)/dV(4131) - JVRP(22403) = V(5256) -! JVRP(22404) = dARP(14125)/dV(5256) - JVRP(22404) = V(4131) -! JVRP(22405) = dARP(14126)/dV(4131) - JVRP(22405) = 1 -! JVRP(22406) = dARP(14127)/dV(4131) - JVRP(22406) = 1 -! JVRP(22407) = dARP(14128)/dV(4131) - JVRP(22407) = 1 -! JVRP(22408) = dARP(14129)/dV(2564) - JVRP(22408) = V(5250) -! JVRP(22409) = dARP(14129)/dV(5250) - JVRP(22409) = V(2564) -! JVRP(22410) = dARP(14130)/dV(2564) - JVRP(22410) = 1 -! JVRP(22411) = dARP(14131)/dV(1312) - JVRP(22411) = V(5250) -! JVRP(22412) = dARP(14131)/dV(5250) - JVRP(22412) = V(1312) -! JVRP(22413) = dARP(14132)/dV(1312) - JVRP(22413) = 1 -! JVRP(22414) = dARP(14133)/dV(3913) - JVRP(22414) = 1 -! JVRP(22415) = dARP(14134)/dV(3913) - JVRP(22415) = 1 -! JVRP(22416) = dARP(14135)/dV(696) - JVRP(22416) = V(5250) -! JVRP(22417) = dARP(14135)/dV(5250) - JVRP(22417) = V(696) -! JVRP(22418) = dARP(14136)/dV(696) - JVRP(22418) = 1 -! JVRP(22419) = dARP(14137)/dV(1163) - JVRP(22419) = V(5250) -! JVRP(22420) = dARP(14137)/dV(5250) - JVRP(22420) = V(1163) -! JVRP(22421) = dARP(14138)/dV(1163) - JVRP(22421) = 1 -! JVRP(22422) = dARP(14139)/dV(1402) - JVRP(22422) = V(5250) -! JVRP(22423) = dARP(14139)/dV(5250) - JVRP(22423) = V(1402) -! JVRP(22424) = dARP(14140)/dV(1402) - JVRP(22424) = 1 -! JVRP(22425) = dARP(14141)/dV(3715) - JVRP(22425) = V(5255) -! JVRP(22426) = dARP(14141)/dV(5255) - JVRP(22426) = V(3715) -! JVRP(22427) = dARP(14142)/dV(3715) - JVRP(22427) = V(5252) -! JVRP(22428) = dARP(14142)/dV(5252) - JVRP(22428) = V(3715) -! JVRP(22429) = dARP(14143)/dV(3715) - JVRP(22429) = V(5252) -! JVRP(22430) = dARP(14143)/dV(5252) - JVRP(22430) = V(3715) -! JVRP(22431) = dARP(14144)/dV(3715) - JVRP(22431) = V(5256) -! JVRP(22432) = dARP(14144)/dV(5256) - JVRP(22432) = V(3715) -! JVRP(22433) = dARP(14145)/dV(3715) - JVRP(22433) = 1 -! JVRP(22434) = dARP(14146)/dV(3715) - JVRP(22434) = 1 -! JVRP(22435) = dARP(14147)/dV(3715) - JVRP(22435) = 1 -! JVRP(22436) = dARP(14148)/dV(2984) - JVRP(22436) = V(5250) -! JVRP(22437) = dARP(14148)/dV(5250) - JVRP(22437) = V(2984) -! JVRP(22438) = dARP(14149)/dV(2984) - JVRP(22438) = 1 -! JVRP(22439) = dARP(14150)/dV(1139) - JVRP(22439) = V(5250) -! JVRP(22440) = dARP(14150)/dV(5250) - JVRP(22440) = V(1139) -! JVRP(22441) = dARP(14151)/dV(1139) - JVRP(22441) = 1 -! JVRP(22442) = dARP(14152)/dV(1579) - JVRP(22442) = 1 -! JVRP(22443) = dARP(14153)/dV(3557) - JVRP(22443) = V(5250) -! JVRP(22444) = dARP(14153)/dV(5250) - JVRP(22444) = V(3557) -! JVRP(22445) = dARP(14154)/dV(3557) - JVRP(22445) = 1 -! JVRP(22446) = dARP(14155)/dV(657) - JVRP(22446) = V(5250) -! JVRP(22447) = dARP(14155)/dV(5250) - JVRP(22447) = V(657) -! JVRP(22448) = dARP(14156)/dV(657) - JVRP(22448) = 1 -! JVRP(22449) = dARP(14157)/dV(3750) - JVRP(22449) = V(5255) -! JVRP(22450) = dARP(14157)/dV(5255) - JVRP(22450) = V(3750) -! JVRP(22451) = dARP(14158)/dV(3750) - JVRP(22451) = V(5252) -! JVRP(22452) = dARP(14158)/dV(5252) - JVRP(22452) = V(3750) -! JVRP(22453) = dARP(14159)/dV(3750) - JVRP(22453) = V(5252) -! JVRP(22454) = dARP(14159)/dV(5252) - JVRP(22454) = V(3750) -! JVRP(22455) = dARP(14160)/dV(3750) - JVRP(22455) = V(5256) -! JVRP(22456) = dARP(14160)/dV(5256) - JVRP(22456) = V(3750) -! JVRP(22457) = dARP(14161)/dV(3750) - JVRP(22457) = 1 -! JVRP(22458) = dARP(14162)/dV(3750) - JVRP(22458) = 1 -! JVRP(22459) = dARP(14163)/dV(3750) - JVRP(22459) = 1 -! JVRP(22460) = dARP(14164)/dV(823) - JVRP(22460) = V(5250) -! JVRP(22461) = dARP(14164)/dV(5250) - JVRP(22461) = V(823) -! JVRP(22462) = dARP(14165)/dV(823) - JVRP(22462) = 1 -! JVRP(22463) = dARP(14166)/dV(1348) - JVRP(22463) = V(5250) -! JVRP(22464) = dARP(14166)/dV(5250) - JVRP(22464) = V(1348) -! JVRP(22465) = dARP(14167)/dV(1348) - JVRP(22465) = 1 -! JVRP(22466) = dARP(14168)/dV(2523) - JVRP(22466) = V(5250) -! JVRP(22467) = dARP(14168)/dV(5250) - JVRP(22467) = V(2523) -! JVRP(22468) = dARP(14169)/dV(2523) - JVRP(22468) = 1 -! JVRP(22469) = dARP(14170)/dV(2018) - JVRP(22469) = V(5250) -! JVRP(22470) = dARP(14170)/dV(5250) - JVRP(22470) = V(2018) -! JVRP(22471) = dARP(14171)/dV(2018) - JVRP(22471) = 1 -! JVRP(22472) = dARP(14172)/dV(2018) - JVRP(22472) = 1 -! JVRP(22473) = dARP(14173)/dV(739) - JVRP(22473) = 1 -! JVRP(22474) = dARP(14174)/dV(1618) - JVRP(22474) = V(5250) -! JVRP(22475) = dARP(14174)/dV(5250) - JVRP(22475) = V(1618) -! JVRP(22476) = dARP(14175)/dV(1618) - JVRP(22476) = 1 -! JVRP(22477) = dARP(14176)/dV(3337) - JVRP(22477) = V(5250) -! JVRP(22478) = dARP(14176)/dV(5250) - JVRP(22478) = V(3337) -! JVRP(22479) = dARP(14177)/dV(3337) - JVRP(22479) = 1 -! JVRP(22480) = dARP(14178)/dV(4644) - JVRP(22480) = V(5255) -! JVRP(22481) = dARP(14178)/dV(5255) - JVRP(22481) = V(4644) -! JVRP(22482) = dARP(14179)/dV(4644) - JVRP(22482) = V(5252) -! JVRP(22483) = dARP(14179)/dV(5252) - JVRP(22483) = V(4644) -! JVRP(22484) = dARP(14180)/dV(4644) - JVRP(22484) = V(5256) -! JVRP(22485) = dARP(14180)/dV(5256) - JVRP(22485) = V(4644) -! JVRP(22486) = dARP(14181)/dV(4644) - JVRP(22486) = 1 -! JVRP(22487) = dARP(14182)/dV(3006) - JVRP(22487) = V(5250) -! JVRP(22488) = dARP(14182)/dV(5250) - JVRP(22488) = V(3006) -! JVRP(22489) = dARP(14183)/dV(3006) - JVRP(22489) = 1 -! JVRP(22490) = dARP(14184)/dV(687) - JVRP(22490) = 1 -! JVRP(22491) = dARP(14185)/dV(1925) - JVRP(22491) = V(5250) -! JVRP(22492) = dARP(14185)/dV(5250) - JVRP(22492) = V(1925) -! JVRP(22493) = dARP(14186)/dV(1925) - JVRP(22493) = 1 -! JVRP(22494) = dARP(14187)/dV(842) - JVRP(22494) = V(5250) -! JVRP(22495) = dARP(14187)/dV(5250) - JVRP(22495) = V(842) -! JVRP(22496) = dARP(14188)/dV(842) - JVRP(22496) = 1 -! JVRP(22497) = dARP(14189)/dV(2584) - JVRP(22497) = V(5250) -! JVRP(22498) = dARP(14189)/dV(5250) - JVRP(22498) = V(2584) -! JVRP(22499) = dARP(14190)/dV(2584) - JVRP(22499) = 1 -! JVRP(22500) = dARP(14191)/dV(375) - JVRP(22500) = V(5250) -! JVRP(22501) = dARP(14191)/dV(5250) - JVRP(22501) = V(375) -! JVRP(22502) = dARP(14192)/dV(1008) - JVRP(22502) = V(5250) -! JVRP(22503) = dARP(14192)/dV(5250) - JVRP(22503) = V(1008) -! JVRP(22504) = dARP(14193)/dV(1008) - JVRP(22504) = 1 -! JVRP(22505) = dARP(14194)/dV(2772) - JVRP(22505) = V(5250) -! JVRP(22506) = dARP(14194)/dV(5250) - JVRP(22506) = V(2772) -! JVRP(22507) = dARP(14195)/dV(2772) - JVRP(22507) = 1 -! JVRP(22508) = dARP(14196)/dV(948) - JVRP(22508) = V(5250) -! JVRP(22509) = dARP(14196)/dV(5250) - JVRP(22509) = V(948) -! JVRP(22510) = dARP(14197)/dV(948) - JVRP(22510) = 1 -! JVRP(22511) = dARP(14198)/dV(1941) - JVRP(22511) = V(5250) -! JVRP(22512) = dARP(14198)/dV(5250) - JVRP(22512) = V(1941) -! JVRP(22513) = dARP(14199)/dV(1941) - JVRP(22513) = 1 -! JVRP(22514) = dARP(14200)/dV(1942) - JVRP(22514) = 1 -! JVRP(22515) = dARP(14201)/dV(268) - JVRP(22515) = V(5250) -! JVRP(22516) = dARP(14201)/dV(5250) - JVRP(22516) = V(268) -! JVRP(22517) = dARP(14202)/dV(5177) - JVRP(22517) = V(5256) -! JVRP(22518) = dARP(14202)/dV(5256) - JVRP(22518) = V(5177) -! JVRP(22519) = dARP(14203)/dV(5177) - JVRP(22519) = V(5250) -! JVRP(22520) = dARP(14203)/dV(5250) - JVRP(22520) = V(5177) -! JVRP(22521) = dARP(14204)/dV(5177) - JVRP(22521) = 1 -! JVRP(22522) = dARP(14205)/dV(1887) - JVRP(22522) = V(5250) -! JVRP(22523) = dARP(14205)/dV(5250) - JVRP(22523) = V(1887) -! JVRP(22524) = dARP(14206)/dV(1887) - JVRP(22524) = 1 -! JVRP(22525) = dARP(14207)/dV(1887) - JVRP(22525) = 1 -! JVRP(22526) = dARP(14208)/dV(1691) - JVRP(22526) = 1 -! JVRP(22527) = dARP(14209)/dV(1561) - JVRP(22527) = V(5250) -! JVRP(22528) = dARP(14209)/dV(5250) - JVRP(22528) = V(1561) -! JVRP(22529) = dARP(14210)/dV(1561) - JVRP(22529) = 1 -! JVRP(22530) = dARP(14211)/dV(4955) - JVRP(22530) = V(5255) -! JVRP(22531) = dARP(14211)/dV(5255) - JVRP(22531) = V(4955) -! JVRP(22532) = dARP(14212)/dV(4955) - JVRP(22532) = V(5255) -! JVRP(22533) = dARP(14212)/dV(5255) - JVRP(22533) = V(4955) -! JVRP(22534) = dARP(14213)/dV(4955) - JVRP(22534) = V(5255) -! JVRP(22535) = dARP(14213)/dV(5255) - JVRP(22535) = V(4955) -! JVRP(22536) = dARP(14214)/dV(4955) - JVRP(22536) = V(5252) -! JVRP(22537) = dARP(14214)/dV(5252) - JVRP(22537) = V(4955) -! JVRP(22538) = dARP(14215)/dV(4955) - JVRP(22538) = V(5253) -! JVRP(22539) = dARP(14215)/dV(5253) - JVRP(22539) = V(4955) -! JVRP(22540) = dARP(14216)/dV(4955) - JVRP(22540) = V(5256) -! JVRP(22541) = dARP(14216)/dV(5256) - JVRP(22541) = V(4955) -! JVRP(22542) = dARP(14217)/dV(4955) - JVRP(22542) = 1 -! JVRP(22543) = dARP(14218)/dV(4955) - JVRP(22543) = 1 -! JVRP(22544) = dARP(14219)/dV(3895) - JVRP(22544) = V(5255) -! JVRP(22545) = dARP(14219)/dV(5255) - JVRP(22545) = V(3895) -! JVRP(22546) = dARP(14220)/dV(3895) - JVRP(22546) = V(5252) -! JVRP(22547) = dARP(14220)/dV(5252) - JVRP(22547) = V(3895) -! JVRP(22548) = dARP(14221)/dV(3895) - JVRP(22548) = V(5256) -! JVRP(22549) = dARP(14221)/dV(5256) - JVRP(22549) = V(3895) -! JVRP(22550) = dARP(14222)/dV(3895) - JVRP(22550) = 1 -! JVRP(22551) = dARP(14223)/dV(3895) - JVRP(22551) = 1 -! JVRP(22552) = dARP(14224)/dV(112) - JVRP(22552) = 1 -! JVRP(22553) = dARP(14225)/dV(3974) - JVRP(22553) = V(5255) -! JVRP(22554) = dARP(14225)/dV(5255) - JVRP(22554) = V(3974) -! JVRP(22555) = dARP(14226)/dV(3974) - JVRP(22555) = V(5252) -! JVRP(22556) = dARP(14226)/dV(5252) - JVRP(22556) = V(3974) -! JVRP(22557) = dARP(14227)/dV(3974) - JVRP(22557) = V(5252) -! JVRP(22558) = dARP(14227)/dV(5252) - JVRP(22558) = V(3974) -! JVRP(22559) = dARP(14228)/dV(3974) - JVRP(22559) = V(5256) -! JVRP(22560) = dARP(14228)/dV(5256) - JVRP(22560) = V(3974) -! JVRP(22561) = dARP(14229)/dV(3974) - JVRP(22561) = 1 -! JVRP(22562) = dARP(14230)/dV(3974) - JVRP(22562) = 1 -! JVRP(22563) = dARP(14231)/dV(1181) - JVRP(22563) = V(5250) -! JVRP(22564) = dARP(14231)/dV(5250) - JVRP(22564) = V(1181) -! JVRP(22565) = dARP(14232)/dV(1181) - JVRP(22565) = 1 -! JVRP(22566) = dARP(14233)/dV(2890) - JVRP(22566) = 1 -! JVRP(22567) = dARP(14234)/dV(1756) - JVRP(22567) = V(5250) -! JVRP(22568) = dARP(14234)/dV(5250) - JVRP(22568) = V(1756) -! JVRP(22569) = dARP(14235)/dV(1756) - JVRP(22569) = 1 -! JVRP(22570) = dARP(14236)/dV(430) - JVRP(22570) = V(5250) -! JVRP(22571) = dARP(14236)/dV(5250) - JVRP(22571) = V(430) -! JVRP(22572) = dARP(14237)/dV(4315) - JVRP(22572) = V(5255) -! JVRP(22573) = dARP(14237)/dV(5255) - JVRP(22573) = V(4315) -! JVRP(22574) = dARP(14238)/dV(4315) - JVRP(22574) = V(5252) -! JVRP(22575) = dARP(14238)/dV(5252) - JVRP(22575) = V(4315) -! JVRP(22576) = dARP(14239)/dV(4315) - JVRP(22576) = V(5256) -! JVRP(22577) = dARP(14239)/dV(5256) - JVRP(22577) = V(4315) -! JVRP(22578) = dARP(14240)/dV(4315) - JVRP(22578) = 1 -! JVRP(22579) = dARP(14241)/dV(4315) - JVRP(22579) = 1 -! JVRP(22580) = dARP(14242)/dV(4315) - JVRP(22580) = 1 -! JVRP(22581) = dARP(14243)/dV(3908) - JVRP(22581) = V(5255) -! JVRP(22582) = dARP(14243)/dV(5255) - JVRP(22582) = V(3908) -! JVRP(22583) = dARP(14244)/dV(3908) - JVRP(22583) = V(5252) -! JVRP(22584) = dARP(14244)/dV(5252) - JVRP(22584) = V(3908) -! JVRP(22585) = dARP(14245)/dV(3908) - JVRP(22585) = V(5252) -! JVRP(22586) = dARP(14245)/dV(5252) - JVRP(22586) = V(3908) -! JVRP(22587) = dARP(14246)/dV(3908) - JVRP(22587) = V(5256) -! JVRP(22588) = dARP(14246)/dV(5256) - JVRP(22588) = V(3908) -! JVRP(22589) = dARP(14247)/dV(3908) - JVRP(22589) = 1 -! JVRP(22590) = dARP(14248)/dV(3908) - JVRP(22590) = 1 -! JVRP(22591) = dARP(14249)/dV(3908) - JVRP(22591) = 1 -! JVRP(22592) = dARP(14250)/dV(4681) - JVRP(22592) = V(5255) -! JVRP(22593) = dARP(14250)/dV(5255) - JVRP(22593) = V(4681) -! JVRP(22594) = dARP(14251)/dV(4681) - JVRP(22594) = V(5255) -! JVRP(22595) = dARP(14251)/dV(5255) - JVRP(22595) = V(4681) -! JVRP(22596) = dARP(14252)/dV(4681) - JVRP(22596) = V(5255) -! JVRP(22597) = dARP(14252)/dV(5255) - JVRP(22597) = V(4681) -! JVRP(22598) = dARP(14253)/dV(4681) - JVRP(22598) = V(5252) -! JVRP(22599) = dARP(14253)/dV(5252) - JVRP(22599) = V(4681) -! JVRP(22600) = dARP(14254)/dV(4681) - JVRP(22600) = V(5253) -! JVRP(22601) = dARP(14254)/dV(5253) - JVRP(22601) = V(4681) -! JVRP(22602) = dARP(14255)/dV(4681) - JVRP(22602) = V(5256) -! JVRP(22603) = dARP(14255)/dV(5256) - JVRP(22603) = V(4681) -! JVRP(22604) = dARP(14256)/dV(4681) - JVRP(22604) = 1 -! JVRP(22605) = dARP(14257)/dV(4681) - JVRP(22605) = 1 -! JVRP(22606) = dARP(14258)/dV(4442) - JVRP(22606) = V(5255) -! JVRP(22607) = dARP(14258)/dV(5255) - JVRP(22607) = V(4442) -! JVRP(22608) = dARP(14259)/dV(4442) - JVRP(22608) = V(5252) -! JVRP(22609) = dARP(14259)/dV(5252) - JVRP(22609) = V(4442) -! JVRP(22610) = dARP(14260)/dV(4442) - JVRP(22610) = V(5252) -! JVRP(22611) = dARP(14260)/dV(5252) - JVRP(22611) = V(4442) -! JVRP(22612) = dARP(14261)/dV(4442) - JVRP(22612) = V(5256) -! JVRP(22613) = dARP(14261)/dV(5256) - JVRP(22613) = V(4442) -! JVRP(22614) = dARP(14262)/dV(4442) - JVRP(22614) = 1 -! JVRP(22615) = dARP(14263)/dV(4442) - JVRP(22615) = 1 -! JVRP(22616) = dARP(14264)/dV(4442) - JVRP(22616) = 1 -! JVRP(22617) = dARP(14265)/dV(388) - JVRP(22617) = V(5250) -! JVRP(22618) = dARP(14265)/dV(5250) - JVRP(22618) = V(388) -! JVRP(22619) = dARP(14266)/dV(1336) - JVRP(22619) = V(5250) -! JVRP(22620) = dARP(14266)/dV(5250) - JVRP(22620) = V(1336) -! JVRP(22621) = dARP(14267)/dV(1336) - JVRP(22621) = 1 -! JVRP(22622) = dARP(14268)/dV(3698) - JVRP(22622) = V(5255) -! JVRP(22623) = dARP(14268)/dV(5255) - JVRP(22623) = V(3698) -! JVRP(22624) = dARP(14269)/dV(3698) - JVRP(22624) = V(5252) -! JVRP(22625) = dARP(14269)/dV(5252) - JVRP(22625) = V(3698) -! JVRP(22626) = dARP(14270)/dV(3698) - JVRP(22626) = V(5252) -! JVRP(22627) = dARP(14270)/dV(5252) - JVRP(22627) = V(3698) -! JVRP(22628) = dARP(14271)/dV(3698) - JVRP(22628) = V(5256) -! JVRP(22629) = dARP(14271)/dV(5256) - JVRP(22629) = V(3698) -! JVRP(22630) = dARP(14272)/dV(3698) - JVRP(22630) = 1 -! JVRP(22631) = dARP(14273)/dV(3698) - JVRP(22631) = 1 -! JVRP(22632) = dARP(14274)/dV(3698) - JVRP(22632) = 1 -! JVRP(22633) = dARP(14275)/dV(3313) - JVRP(22633) = V(5250) -! JVRP(22634) = dARP(14275)/dV(5250) - JVRP(22634) = V(3313) -! JVRP(22635) = dARP(14276)/dV(3313) - JVRP(22635) = 1 -! JVRP(22636) = dARP(14277)/dV(882) - JVRP(22636) = V(5250) -! JVRP(22637) = dARP(14277)/dV(5250) - JVRP(22637) = V(882) -! JVRP(22638) = dARP(14278)/dV(882) - JVRP(22638) = 1 -! JVRP(22639) = dARP(14279)/dV(2311) - JVRP(22639) = V(5250) -! JVRP(22640) = dARP(14279)/dV(5250) - JVRP(22640) = V(2311) -! JVRP(22641) = dARP(14280)/dV(2311) - JVRP(22641) = 1 -! JVRP(22642) = dARP(14281)/dV(3957) - JVRP(22642) = 1 -! JVRP(22643) = dARP(14282)/dV(3957) - JVRP(22643) = 1 -! JVRP(22644) = dARP(14283)/dV(3374) - JVRP(22644) = V(5250) -! JVRP(22645) = dARP(14283)/dV(5250) - JVRP(22645) = V(3374) -! JVRP(22646) = dARP(14284)/dV(3374) - JVRP(22646) = 1 -! JVRP(22647) = dARP(14285)/dV(699) - JVRP(22647) = V(5250) -! JVRP(22648) = dARP(14285)/dV(5250) - JVRP(22648) = V(699) -! JVRP(22649) = dARP(14286)/dV(699) - JVRP(22649) = 1 -! JVRP(22650) = dARP(14287)/dV(4319) - JVRP(22650) = V(5255) -! JVRP(22651) = dARP(14287)/dV(5255) - JVRP(22651) = V(4319) -! JVRP(22652) = dARP(14288)/dV(4319) - JVRP(22652) = V(5252) -! JVRP(22653) = dARP(14288)/dV(5252) - JVRP(22653) = V(4319) -! JVRP(22654) = dARP(14289)/dV(4319) - JVRP(22654) = V(5252) -! JVRP(22655) = dARP(14289)/dV(5252) - JVRP(22655) = V(4319) -! JVRP(22656) = dARP(14290)/dV(4319) - JVRP(22656) = V(5256) -! JVRP(22657) = dARP(14290)/dV(5256) - JVRP(22657) = V(4319) -! JVRP(22658) = dARP(14291)/dV(4319) - JVRP(22658) = 1 -! JVRP(22659) = dARP(14292)/dV(4319) - JVRP(22659) = 1 -! JVRP(22660) = dARP(14293)/dV(4672) - JVRP(22660) = V(5255) -! JVRP(22661) = dARP(14293)/dV(5255) - JVRP(22661) = V(4672) -! JVRP(22662) = dARP(14294)/dV(4672) - JVRP(22662) = V(5252) -! JVRP(22663) = dARP(14294)/dV(5252) - JVRP(22663) = V(4672) -! JVRP(22664) = dARP(14295)/dV(4672) - JVRP(22664) = V(5252) -! JVRP(22665) = dARP(14295)/dV(5252) - JVRP(22665) = V(4672) -! JVRP(22666) = dARP(14296)/dV(4672) - JVRP(22666) = V(5256) -! JVRP(22667) = dARP(14296)/dV(5256) - JVRP(22667) = V(4672) -! JVRP(22668) = dARP(14297)/dV(4672) - JVRP(22668) = 1 -! JVRP(22669) = dARP(14298)/dV(4672) - JVRP(22669) = 1 -! JVRP(22670) = dARP(14299)/dV(4672) - JVRP(22670) = 1 -! JVRP(22671) = dARP(14300)/dV(3397) - JVRP(22671) = V(5250) -! JVRP(22672) = dARP(14300)/dV(5250) - JVRP(22672) = V(3397) -! JVRP(22673) = dARP(14301)/dV(3397) - JVRP(22673) = 1 -! JVRP(22674) = dARP(14302)/dV(4130) - JVRP(22674) = V(5255) -! JVRP(22675) = dARP(14302)/dV(5255) - JVRP(22675) = V(4130) -! JVRP(22676) = dARP(14303)/dV(4130) - JVRP(22676) = V(5252) -! JVRP(22677) = dARP(14303)/dV(5252) - JVRP(22677) = V(4130) -! JVRP(22678) = dARP(14304)/dV(4130) - JVRP(22678) = V(5256) -! JVRP(22679) = dARP(14304)/dV(5256) - JVRP(22679) = V(4130) -! JVRP(22680) = dARP(14305)/dV(4130) - JVRP(22680) = 1 -! JVRP(22681) = dARP(14306)/dV(4130) - JVRP(22681) = 1 -! JVRP(22682) = dARP(14307)/dV(4130) - JVRP(22682) = 1 -! JVRP(22683) = dARP(14308)/dV(3373) - JVRP(22683) = V(5250) -! JVRP(22684) = dARP(14308)/dV(5250) - JVRP(22684) = V(3373) -! JVRP(22685) = dARP(14309)/dV(3373) - JVRP(22685) = 1 -! JVRP(22686) = dARP(14310)/dV(4162) - JVRP(22686) = V(5255) -! JVRP(22687) = dARP(14310)/dV(5255) - JVRP(22687) = V(4162) -! JVRP(22688) = dARP(14311)/dV(4162) - JVRP(22688) = V(5252) -! JVRP(22689) = dARP(14311)/dV(5252) - JVRP(22689) = V(4162) -! JVRP(22690) = dARP(14312)/dV(4162) - JVRP(22690) = V(5252) -! JVRP(22691) = dARP(14312)/dV(5252) - JVRP(22691) = V(4162) -! JVRP(22692) = dARP(14313)/dV(4162) - JVRP(22692) = V(5256) -! JVRP(22693) = dARP(14313)/dV(5256) - JVRP(22693) = V(4162) -! JVRP(22694) = dARP(14314)/dV(4162) - JVRP(22694) = 1 -! JVRP(22695) = dARP(14315)/dV(4162) - JVRP(22695) = 1 -! JVRP(22696) = dARP(14316)/dV(4162) - JVRP(22696) = 1 -! JVRP(22697) = dARP(14317)/dV(1413) - JVRP(22697) = V(5250) -! JVRP(22698) = dARP(14317)/dV(5250) - JVRP(22698) = V(1413) -! JVRP(22699) = dARP(14318)/dV(1413) - JVRP(22699) = 1 -! JVRP(22700) = dARP(14319)/dV(1649) - JVRP(22700) = V(5250) -! JVRP(22701) = dARP(14319)/dV(5250) - JVRP(22701) = V(1649) -! JVRP(22702) = dARP(14320)/dV(1649) - JVRP(22702) = 1 -! JVRP(22703) = dARP(14321)/dV(191) - JVRP(22703) = 1 -! JVRP(22704) = dARP(14322)/dV(1648) - JVRP(22704) = V(5250) -! JVRP(22705) = dARP(14322)/dV(5250) - JVRP(22705) = V(1648) -! JVRP(22706) = dARP(14323)/dV(410) - JVRP(22706) = V(5250) -! JVRP(22707) = dARP(14323)/dV(5250) - JVRP(22707) = V(410) -! JVRP(22708) = dARP(14324)/dV(955) - JVRP(22708) = V(5250) -! JVRP(22709) = dARP(14324)/dV(5250) - JVRP(22709) = V(955) -! JVRP(22710) = dARP(14325)/dV(955) - JVRP(22710) = 1 -! JVRP(22711) = dARP(14326)/dV(2673) - JVRP(22711) = V(5250) -! JVRP(22712) = dARP(14326)/dV(5250) - JVRP(22712) = V(2673) -! JVRP(22713) = dARP(14327)/dV(2673) - JVRP(22713) = 1 -! JVRP(22714) = dARP(14328)/dV(1986) - JVRP(22714) = 1 -! JVRP(22715) = dARP(14329)/dV(441) - JVRP(22715) = V(5250) -! JVRP(22716) = dARP(14329)/dV(5250) - JVRP(22716) = V(441) -! JVRP(22717) = dARP(14330)/dV(5245) - JVRP(22717) = V(5255) -! JVRP(22718) = dARP(14330)/dV(5255) - JVRP(22718) = V(5245) -! JVRP(22719) = dARP(14331)/dV(5245) - JVRP(22719) = V(5255) -! JVRP(22720) = dARP(14331)/dV(5255) - JVRP(22720) = V(5245) -! JVRP(22721) = dARP(14332)/dV(5245) - JVRP(22721) = V(5255) -! JVRP(22722) = dARP(14332)/dV(5255) - JVRP(22722) = V(5245) -! JVRP(22723) = dARP(14333)/dV(5245) - JVRP(22723) = V(5252) -! JVRP(22724) = dARP(14333)/dV(5252) - JVRP(22724) = V(5245) -! JVRP(22725) = dARP(14334)/dV(5245) - JVRP(22725) = V(5253) -! JVRP(22726) = dARP(14334)/dV(5253) - JVRP(22726) = V(5245) -! JVRP(22727) = dARP(14335)/dV(5245) - JVRP(22727) = V(5256) -! JVRP(22728) = dARP(14335)/dV(5256) - JVRP(22728) = V(5245) -! JVRP(22729) = dARP(14336)/dV(5245) - JVRP(22729) = 1 -! JVRP(22730) = dARP(14337)/dV(5245) - JVRP(22730) = 1 -! JVRP(22731) = dARP(14338)/dV(3431) - JVRP(22731) = V(5250) -! JVRP(22732) = dARP(14338)/dV(5250) - JVRP(22732) = V(3431) -! JVRP(22733) = dARP(14339)/dV(3431) - JVRP(22733) = 1 -! JVRP(22734) = dARP(14340)/dV(4147) - JVRP(22734) = V(5255) -! JVRP(22735) = dARP(14340)/dV(5255) - JVRP(22735) = V(4147) -! JVRP(22736) = dARP(14341)/dV(4147) - JVRP(22736) = V(5252) -! JVRP(22737) = dARP(14341)/dV(5252) - JVRP(22737) = V(4147) -! JVRP(22738) = dARP(14342)/dV(4147) - JVRP(22738) = V(5256) -! JVRP(22739) = dARP(14342)/dV(5256) - JVRP(22739) = V(4147) -! JVRP(22740) = dARP(14343)/dV(4147) - JVRP(22740) = 1 -! JVRP(22741) = dARP(14344)/dV(4147) - JVRP(22741) = 1 -! JVRP(22742) = dARP(14345)/dV(4147) - JVRP(22742) = 1 -! JVRP(22743) = dARP(14346)/dV(2965) - JVRP(22743) = V(5250) -! JVRP(22744) = dARP(14346)/dV(5250) - JVRP(22744) = V(2965) -! JVRP(22745) = dARP(14347)/dV(3902) - JVRP(22745) = V(5255) -! JVRP(22746) = dARP(14347)/dV(5255) - JVRP(22746) = V(3902) -! JVRP(22747) = dARP(14348)/dV(3902) - JVRP(22747) = V(5252) -! JVRP(22748) = dARP(14348)/dV(5252) - JVRP(22748) = V(3902) -! JVRP(22749) = dARP(14349)/dV(3902) - JVRP(22749) = V(5252) -! JVRP(22750) = dARP(14349)/dV(5252) - JVRP(22750) = V(3902) -! JVRP(22751) = dARP(14350)/dV(3902) - JVRP(22751) = V(5256) -! JVRP(22752) = dARP(14350)/dV(5256) - JVRP(22752) = V(3902) -! JVRP(22753) = dARP(14351)/dV(3902) - JVRP(22753) = 1 -! JVRP(22754) = dARP(14352)/dV(3902) - JVRP(22754) = 1 -! JVRP(22755) = dARP(14353)/dV(3902) - JVRP(22755) = 1 -! JVRP(22756) = dARP(14354)/dV(3612) - JVRP(22756) = V(5250) -! JVRP(22757) = dARP(14354)/dV(5250) - JVRP(22757) = V(3612) -! JVRP(22758) = dARP(14355)/dV(3612) - JVRP(22758) = 1 -! JVRP(22759) = dARP(14356)/dV(2251) - JVRP(22759) = 1 -! JVRP(22760) = dARP(14357)/dV(2251) - JVRP(22760) = V(5250) -! JVRP(22761) = dARP(14357)/dV(5250) - JVRP(22761) = V(2251) -! JVRP(22762) = dARP(14358)/dV(2800) - JVRP(22762) = 1 -! JVRP(22763) = dARP(14359)/dV(2800) - JVRP(22763) = V(5250) -! JVRP(22764) = dARP(14359)/dV(5250) - JVRP(22764) = V(2800) -! JVRP(22765) = dARP(14360)/dV(2556) - JVRP(22765) = 1 -! JVRP(22766) = dARP(14361)/dV(2556) - JVRP(22766) = 1 -! JVRP(22767) = dARP(14362)/dV(2556) - JVRP(22767) = V(5250) -! JVRP(22768) = dARP(14362)/dV(5250) - JVRP(22768) = V(2556) -! JVRP(22769) = dARP(14363)/dV(2279) - JVRP(22769) = 1 -! JVRP(22770) = dARP(14364)/dV(4423) - JVRP(22770) = V(5255) -! JVRP(22771) = dARP(14364)/dV(5255) - JVRP(22771) = V(4423) -! JVRP(22772) = dARP(14365)/dV(4423) - JVRP(22772) = V(5252) -! JVRP(22773) = dARP(14365)/dV(5252) - JVRP(22773) = V(4423) -! JVRP(22774) = dARP(14366)/dV(4423) - JVRP(22774) = V(5256) -! JVRP(22775) = dARP(14366)/dV(5256) - JVRP(22775) = V(4423) -! JVRP(22776) = dARP(14367)/dV(4423) - JVRP(22776) = 1 -! JVRP(22777) = dARP(14368)/dV(4423) - JVRP(22777) = 1 -! JVRP(22778) = dARP(14369)/dV(4482) - JVRP(22778) = V(5255) -! JVRP(22779) = dARP(14369)/dV(5255) - JVRP(22779) = V(4482) -! JVRP(22780) = dARP(14370)/dV(4482) - JVRP(22780) = V(5252) -! JVRP(22781) = dARP(14370)/dV(5252) - JVRP(22781) = V(4482) -! JVRP(22782) = dARP(14371)/dV(4482) - JVRP(22782) = V(5256) -! JVRP(22783) = dARP(14371)/dV(5256) - JVRP(22783) = V(4482) -! JVRP(22784) = dARP(14372)/dV(4482) - JVRP(22784) = 1 -! JVRP(22785) = dARP(14373)/dV(4482) - JVRP(22785) = 1 -! JVRP(22786) = dARP(14374)/dV(4426) - JVRP(22786) = V(5255) -! JVRP(22787) = dARP(14374)/dV(5255) - JVRP(22787) = V(4426) -! JVRP(22788) = dARP(14375)/dV(4426) - JVRP(22788) = V(5252) -! JVRP(22789) = dARP(14375)/dV(5252) - JVRP(22789) = V(4426) -! JVRP(22790) = dARP(14376)/dV(4426) - JVRP(22790) = V(5256) -! JVRP(22791) = dARP(14376)/dV(5256) - JVRP(22791) = V(4426) -! JVRP(22792) = dARP(14377)/dV(4426) - JVRP(22792) = 1 -! JVRP(22793) = dARP(14378)/dV(4426) - JVRP(22793) = 1 -! JVRP(22794) = dARP(14379)/dV(2159) - JVRP(22794) = V(5250) -! JVRP(22795) = dARP(14379)/dV(5250) - JVRP(22795) = V(2159) -! JVRP(22796) = dARP(14380)/dV(2159) - JVRP(22796) = 1 -! JVRP(22797) = dARP(14381)/dV(2608) - JVRP(22797) = V(5250) -! JVRP(22798) = dARP(14381)/dV(5250) - JVRP(22798) = V(2608) -! JVRP(22799) = dARP(14382)/dV(2608) - JVRP(22799) = 1 -! JVRP(22800) = dARP(14383)/dV(4759) - JVRP(22800) = V(5255) -! JVRP(22801) = dARP(14383)/dV(5255) - JVRP(22801) = V(4759) -! JVRP(22802) = dARP(14384)/dV(4759) - JVRP(22802) = V(5255) -! JVRP(22803) = dARP(14384)/dV(5255) - JVRP(22803) = V(4759) -! JVRP(22804) = dARP(14385)/dV(4759) - JVRP(22804) = V(5252) -! JVRP(22805) = dARP(14385)/dV(5252) - JVRP(22805) = V(4759) -! JVRP(22806) = dARP(14386)/dV(4759) - JVRP(22806) = V(5253) -! JVRP(22807) = dARP(14386)/dV(5253) - JVRP(22807) = V(4759) -! JVRP(22808) = dARP(14387)/dV(4759) - JVRP(22808) = V(5256) -! JVRP(22809) = dARP(14387)/dV(5256) - JVRP(22809) = V(4759) -! JVRP(22810) = dARP(14388)/dV(4759) - JVRP(22810) = 1 -! JVRP(22811) = dARP(14389)/dV(4875) - JVRP(22811) = V(5255) -! JVRP(22812) = dARP(14389)/dV(5255) - JVRP(22812) = V(4875) -! JVRP(22813) = dARP(14390)/dV(4875) - JVRP(22813) = V(5252) -! JVRP(22814) = dARP(14390)/dV(5252) - JVRP(22814) = V(4875) -! JVRP(22815) = dARP(14391)/dV(4875) - JVRP(22815) = V(5256) -! JVRP(22816) = dARP(14391)/dV(5256) - JVRP(22816) = V(4875) -! JVRP(22817) = dARP(14392)/dV(4875) - JVRP(22817) = 1 -! JVRP(22818) = dARP(14393)/dV(3719) - JVRP(22818) = V(5255) -! JVRP(22819) = dARP(14393)/dV(5255) - JVRP(22819) = V(3719) -! JVRP(22820) = dARP(14394)/dV(3719) - JVRP(22820) = V(5252) -! JVRP(22821) = dARP(14394)/dV(5252) - JVRP(22821) = V(3719) -! JVRP(22822) = dARP(14395)/dV(3719) - JVRP(22822) = V(5256) -! JVRP(22823) = dARP(14395)/dV(5256) - JVRP(22823) = V(3719) -! JVRP(22824) = dARP(14396)/dV(3719) - JVRP(22824) = 1 -! JVRP(22825) = dARP(14397)/dV(935) - JVRP(22825) = V(5250) -! JVRP(22826) = dARP(14397)/dV(5250) - JVRP(22826) = V(935) -! JVRP(22827) = dARP(14398)/dV(935) - JVRP(22827) = 1 -! JVRP(22828) = dARP(14399)/dV(169) - JVRP(22828) = 1 -! JVRP(22829) = dARP(14400)/dV(40) - JVRP(22829) = V(5250) -! JVRP(22830) = dARP(14400)/dV(5250) - JVRP(22830) = V(40) -! JVRP(22831) = dARP(14401)/dV(1209) - JVRP(22831) = V(5250) -! JVRP(22832) = dARP(14401)/dV(5250) - JVRP(22832) = V(1209) -! JVRP(22833) = dARP(14402)/dV(1209) - JVRP(22833) = 1 -! JVRP(22834) = dARP(14403)/dV(351) - JVRP(22834) = V(5250) -! JVRP(22835) = dARP(14403)/dV(5250) - JVRP(22835) = V(351) -! JVRP(22836) = dARP(14404)/dV(3327) - JVRP(22836) = V(5250) -! JVRP(22837) = dARP(14404)/dV(5250) - JVRP(22837) = V(3327) -! JVRP(22838) = dARP(14405)/dV(3327) - JVRP(22838) = 1 -! JVRP(22839) = dARP(14406)/dV(1761) - JVRP(22839) = V(5250) -! JVRP(22840) = dARP(14406)/dV(5250) - JVRP(22840) = V(1761) -! JVRP(22841) = dARP(14407)/dV(1761) - JVRP(22841) = 1 -! JVRP(22842) = dARP(14408)/dV(25) - JVRP(22842) = 1 -! JVRP(22843) = dARP(14409)/dV(3846) - JVRP(22843) = V(5255) -! JVRP(22844) = dARP(14409)/dV(5255) - JVRP(22844) = V(3846) -! JVRP(22845) = dARP(14410)/dV(3846) - JVRP(22845) = V(5252) -! JVRP(22846) = dARP(14410)/dV(5252) - JVRP(22846) = V(3846) -! JVRP(22847) = dARP(14411)/dV(3846) - JVRP(22847) = V(5256) -! JVRP(22848) = dARP(14411)/dV(5256) - JVRP(22848) = V(3846) -! JVRP(22849) = dARP(14412)/dV(3846) - JVRP(22849) = 1 -! JVRP(22850) = dARP(14413)/dV(906) - JVRP(22850) = V(5250) -! JVRP(22851) = dARP(14413)/dV(5250) - JVRP(22851) = V(906) -! JVRP(22852) = dARP(14414)/dV(906) - JVRP(22852) = 1 -! JVRP(22853) = dARP(14415)/dV(1541) - JVRP(22853) = V(5250) -! JVRP(22854) = dARP(14415)/dV(5250) - JVRP(22854) = V(1541) -! JVRP(22855) = dARP(14416)/dV(1541) - JVRP(22855) = 1 -! JVRP(22856) = dARP(14417)/dV(2660) - JVRP(22856) = V(5250) -! JVRP(22857) = dARP(14417)/dV(5250) - JVRP(22857) = V(2660) -! JVRP(22858) = dARP(14418)/dV(2660) - JVRP(22858) = 1 -! JVRP(22859) = dARP(14419)/dV(4409) - JVRP(22859) = V(5255) -! JVRP(22860) = dARP(14419)/dV(5255) - JVRP(22860) = V(4409) -! JVRP(22861) = dARP(14420)/dV(4409) - JVRP(22861) = V(5255) -! JVRP(22862) = dARP(14420)/dV(5255) - JVRP(22862) = V(4409) -! JVRP(22863) = dARP(14421)/dV(4409) - JVRP(22863) = V(5252) -! JVRP(22864) = dARP(14421)/dV(5252) - JVRP(22864) = V(4409) -! JVRP(22865) = dARP(14422)/dV(4409) - JVRP(22865) = V(5253) -! JVRP(22866) = dARP(14422)/dV(5253) - JVRP(22866) = V(4409) -! JVRP(22867) = dARP(14423)/dV(4409) - JVRP(22867) = V(5256) -! JVRP(22868) = dARP(14423)/dV(5256) - JVRP(22868) = V(4409) -! JVRP(22869) = dARP(14424)/dV(4409) - JVRP(22869) = 1 -! JVRP(22870) = dARP(14425)/dV(4447) - JVRP(22870) = V(5255) -! JVRP(22871) = dARP(14425)/dV(5255) - JVRP(22871) = V(4447) -! JVRP(22872) = dARP(14426)/dV(4447) - JVRP(22872) = V(5252) -! JVRP(22873) = dARP(14426)/dV(5252) - JVRP(22873) = V(4447) -! JVRP(22874) = dARP(14427)/dV(4447) - JVRP(22874) = V(5256) -! JVRP(22875) = dARP(14427)/dV(5256) - JVRP(22875) = V(4447) -! JVRP(22876) = dARP(14428)/dV(4447) - JVRP(22876) = 1 -! JVRP(22877) = dARP(14429)/dV(1958) - JVRP(22877) = V(5250) -! JVRP(22878) = dARP(14429)/dV(5250) - JVRP(22878) = V(1958) -! JVRP(22879) = dARP(14430)/dV(1958) - JVRP(22879) = 1 -! JVRP(22880) = dARP(14431)/dV(774) - JVRP(22880) = 1 -! JVRP(22881) = dARP(14432)/dV(3365) - JVRP(22881) = V(5250) -! JVRP(22882) = dARP(14432)/dV(5250) - JVRP(22882) = V(3365) -! JVRP(22883) = dARP(14433)/dV(3365) - JVRP(22883) = 1 -! JVRP(22884) = dARP(14434)/dV(279) - JVRP(22884) = V(5250) -! JVRP(22885) = dARP(14434)/dV(5250) - JVRP(22885) = V(279) -! JVRP(22886) = dARP(14435)/dV(3248) - JVRP(22886) = V(5256) -! JVRP(22887) = dARP(14435)/dV(5256) - JVRP(22887) = V(3248) -! JVRP(22888) = dARP(14436)/dV(3248) - JVRP(22888) = V(5250) -! JVRP(22889) = dARP(14436)/dV(5250) - JVRP(22889) = V(3248) -! JVRP(22890) = dARP(14437)/dV(3248) - JVRP(22890) = 1 -! JVRP(22891) = dARP(14438)/dV(1264) - JVRP(22891) = V(5250) -! JVRP(22892) = dARP(14438)/dV(5250) - JVRP(22892) = V(1264) -! JVRP(22893) = dARP(14439)/dV(1264) - JVRP(22893) = 1 -! JVRP(22894) = dARP(14440)/dV(2032) - JVRP(22894) = V(5250) -! JVRP(22895) = dARP(14440)/dV(5250) - JVRP(22895) = V(2032) -! JVRP(22896) = dARP(14441)/dV(2032) - JVRP(22896) = 1 -! JVRP(22897) = dARP(14442)/dV(2033) - JVRP(22897) = 1 -! JVRP(22898) = dARP(14443)/dV(5072) - JVRP(22898) = V(5256) -! JVRP(22899) = dARP(14443)/dV(5256) - JVRP(22899) = V(5072) -! JVRP(22900) = dARP(14444)/dV(5072) - JVRP(22900) = V(5256) -! JVRP(22901) = dARP(14444)/dV(5256) - JVRP(22901) = V(5072) -! JVRP(22902) = dARP(14445)/dV(5072) - JVRP(22902) = V(5250) -! JVRP(22903) = dARP(14445)/dV(5250) - JVRP(22903) = V(5072) -! JVRP(22904) = dARP(14446)/dV(5072) - JVRP(22904) = V(5250) -! JVRP(22905) = dARP(14446)/dV(5250) - JVRP(22905) = V(5072) -! JVRP(22906) = dARP(14447)/dV(5072) - JVRP(22906) = 1 -! JVRP(22907) = dARP(14448)/dV(5072) - JVRP(22907) = 1 -! JVRP(22908) = dARP(14449)/dV(772) - JVRP(22908) = V(5250) -! JVRP(22909) = dARP(14449)/dV(5250) - JVRP(22909) = V(772) -! JVRP(22910) = dARP(14450)/dV(772) - JVRP(22910) = 1 -! JVRP(22911) = dARP(14451)/dV(1528) - JVRP(22911) = V(5250) -! JVRP(22912) = dARP(14451)/dV(5250) - JVRP(22912) = V(1528) -! JVRP(22913) = dARP(14452)/dV(1528) - JVRP(22913) = 1 -! JVRP(22914) = dARP(14453)/dV(1811) - JVRP(22914) = V(5250) -! JVRP(22915) = dARP(14453)/dV(5250) - JVRP(22915) = V(1811) -! JVRP(22916) = dARP(14454)/dV(1811) - JVRP(22916) = 1 -! JVRP(22917) = dARP(14455)/dV(1812) - JVRP(22917) = 1 -! JVRP(22918) = dARP(14456)/dV(527) - JVRP(22918) = V(5250) -! JVRP(22919) = dARP(14456)/dV(5250) - JVRP(22919) = V(527) -! JVRP(22920) = dARP(14457)/dV(527) - JVRP(22920) = 1 -! JVRP(22921) = dARP(14458)/dV(2445) - JVRP(22921) = V(5250) -! JVRP(22922) = dARP(14458)/dV(5250) - JVRP(22922) = V(2445) -! JVRP(22923) = dARP(14459)/dV(2445) - JVRP(22923) = 1 -! JVRP(22924) = dARP(14460)/dV(731) - JVRP(22924) = 1 -! JVRP(22925) = dARP(14461)/dV(4486) - JVRP(22925) = V(5255) -! JVRP(22926) = dARP(14461)/dV(5255) - JVRP(22926) = V(4486) -! JVRP(22927) = dARP(14462)/dV(4486) - JVRP(22927) = V(5252) -! JVRP(22928) = dARP(14462)/dV(5252) - JVRP(22928) = V(4486) -! JVRP(22929) = dARP(14463)/dV(4486) - JVRP(22929) = V(5256) -! JVRP(22930) = dARP(14463)/dV(5256) - JVRP(22930) = V(4486) -! JVRP(22931) = dARP(14464)/dV(4486) - JVRP(22931) = 1 -! JVRP(22932) = dARP(14465)/dV(4636) - JVRP(22932) = V(5255) -! JVRP(22933) = dARP(14465)/dV(5255) - JVRP(22933) = V(4636) -! JVRP(22934) = dARP(14466)/dV(4636) - JVRP(22934) = V(5255) -! JVRP(22935) = dARP(14466)/dV(5255) - JVRP(22935) = V(4636) -! JVRP(22936) = dARP(14467)/dV(4636) - JVRP(22936) = V(5255) -! JVRP(22937) = dARP(14467)/dV(5255) - JVRP(22937) = V(4636) -! JVRP(22938) = dARP(14468)/dV(4636) - JVRP(22938) = V(5252) -! JVRP(22939) = dARP(14468)/dV(5252) - JVRP(22939) = V(4636) -! JVRP(22940) = dARP(14469)/dV(4636) - JVRP(22940) = V(5253) -! JVRP(22941) = dARP(14469)/dV(5253) - JVRP(22941) = V(4636) -! JVRP(22942) = dARP(14470)/dV(4636) - JVRP(22942) = V(5256) -! JVRP(22943) = dARP(14470)/dV(5256) - JVRP(22943) = V(4636) -! JVRP(22944) = dARP(14471)/dV(4636) - JVRP(22944) = 1 -! JVRP(22945) = dARP(14472)/dV(4636) - JVRP(22945) = 1 -! JVRP(22946) = dARP(14473)/dV(5113) - JVRP(22946) = V(5250) -! JVRP(22947) = dARP(14473)/dV(5250) - JVRP(22947) = V(5113) -! JVRP(22948) = dARP(14474)/dV(5113) - JVRP(22948) = 1 -! JVRP(22949) = dARP(14475)/dV(5113) - JVRP(22949) = 1 -! JVRP(22950) = dARP(14476)/dV(294) - JVRP(22950) = V(5250) -! JVRP(22951) = dARP(14476)/dV(5250) - JVRP(22951) = V(294) -! JVRP(22952) = dARP(14477)/dV(916) - JVRP(22952) = V(5250) -! JVRP(22953) = dARP(14477)/dV(5250) - JVRP(22953) = V(916) -! JVRP(22954) = dARP(14478)/dV(916) - JVRP(22954) = 1 -! JVRP(22955) = dARP(14479)/dV(3010) - JVRP(22955) = V(5250) -! JVRP(22956) = dARP(14479)/dV(5250) - JVRP(22956) = V(3010) -! JVRP(22957) = dARP(14480)/dV(3010) - JVRP(22957) = 1 -! JVRP(22958) = dARP(14481)/dV(971) - JVRP(22958) = V(5250) -! JVRP(22959) = dARP(14481)/dV(5250) - JVRP(22959) = V(971) -! JVRP(22960) = dARP(14482)/dV(971) - JVRP(22960) = 1 -! JVRP(22961) = dARP(14483)/dV(2916) - JVRP(22961) = 1 -! JVRP(22962) = dARP(14484)/dV(543) - JVRP(22962) = V(5250) -! JVRP(22963) = dARP(14484)/dV(5250) - JVRP(22963) = V(543) -! JVRP(22964) = dARP(14485)/dV(4625) - JVRP(22964) = V(5255) -! JVRP(22965) = dARP(14485)/dV(5255) - JVRP(22965) = V(4625) -! JVRP(22966) = dARP(14486)/dV(4625) - JVRP(22966) = V(5252) -! JVRP(22967) = dARP(14486)/dV(5252) - JVRP(22967) = V(4625) -! JVRP(22968) = dARP(14487)/dV(4625) - JVRP(22968) = V(5256) -! JVRP(22969) = dARP(14487)/dV(5256) - JVRP(22969) = V(4625) -! JVRP(22970) = dARP(14488)/dV(4625) - JVRP(22970) = 1 -! JVRP(22971) = dARP(14489)/dV(4625) - JVRP(22971) = 1 -! JVRP(22972) = dARP(14490)/dV(1381) - JVRP(22972) = V(5250) -! JVRP(22973) = dARP(14490)/dV(5250) - JVRP(22973) = V(1381) -! JVRP(22974) = dARP(14491)/dV(1381) - JVRP(22974) = 1 -! JVRP(22975) = dARP(14492)/dV(1766) - JVRP(22975) = V(5250) -! JVRP(22976) = dARP(14492)/dV(5250) - JVRP(22976) = V(1766) -! JVRP(22977) = dARP(14493)/dV(2591) - JVRP(22977) = 1 -! JVRP(22978) = dARP(14494)/dV(650) - JVRP(22978) = V(5250) -! JVRP(22979) = dARP(14494)/dV(5250) - JVRP(22979) = V(650) -! JVRP(22980) = dARP(14495)/dV(5187) - JVRP(22980) = V(5256) -! JVRP(22981) = dARP(14495)/dV(5256) - JVRP(22981) = V(5187) -! JVRP(22982) = dARP(14496)/dV(5187) - JVRP(22982) = V(5256) -! JVRP(22983) = dARP(14496)/dV(5256) - JVRP(22983) = V(5187) -! JVRP(22984) = dARP(14497)/dV(5187) - JVRP(22984) = V(5258) -! JVRP(22985) = dARP(14497)/dV(5258) - JVRP(22985) = V(5187) -! JVRP(22986) = dARP(14498)/dV(5187) - JVRP(22986) = V(5258) -! JVRP(22987) = dARP(14498)/dV(5258) - JVRP(22987) = V(5187) -! JVRP(22988) = dARP(14499)/dV(5187) - JVRP(22988) = V(5250) -! JVRP(22989) = dARP(14499)/dV(5250) - JVRP(22989) = V(5187) -! JVRP(22990) = dARP(14500)/dV(5187) - JVRP(22990) = V(5250) -! JVRP(22991) = dARP(14500)/dV(5250) - JVRP(22991) = V(5187) -! JVRP(22992) = dARP(14501)/dV(5027) - JVRP(22992) = V(5255) -! JVRP(22993) = dARP(14501)/dV(5255) - JVRP(22993) = V(5027) -! JVRP(22994) = dARP(14502)/dV(5027) - JVRP(22994) = V(5255) -! JVRP(22995) = dARP(14502)/dV(5255) - JVRP(22995) = V(5027) -! JVRP(22996) = dARP(14503)/dV(5027) - JVRP(22996) = V(5255) -! JVRP(22997) = dARP(14503)/dV(5255) - JVRP(22997) = V(5027) -! JVRP(22998) = dARP(14504)/dV(5027) - JVRP(22998) = V(5252) -! JVRP(22999) = dARP(14504)/dV(5252) - JVRP(22999) = V(5027) -! JVRP(23000) = dARP(14505)/dV(5027) - JVRP(23000) = V(5253) -! JVRP(23001) = dARP(14505)/dV(5253) - JVRP(23001) = V(5027) -! JVRP(23002) = dARP(14506)/dV(5027) - JVRP(23002) = V(5256) -! JVRP(23003) = dARP(14506)/dV(5256) - JVRP(23003) = V(5027) -! JVRP(23004) = dARP(14507)/dV(5027) - JVRP(23004) = 1 -! JVRP(23005) = dARP(14508)/dV(5027) - JVRP(23005) = 1 -! JVRP(23006) = dARP(14509)/dV(2312) - JVRP(23006) = V(5250) -! JVRP(23007) = dARP(14509)/dV(5250) - JVRP(23007) = V(2312) -! JVRP(23008) = dARP(14510)/dV(2312) - JVRP(23008) = 1 -! JVRP(23009) = dARP(14511)/dV(625) - JVRP(23009) = 1 -! JVRP(23010) = dARP(14512)/dV(1493) - JVRP(23010) = V(5250) -! JVRP(23011) = dARP(14512)/dV(5250) - JVRP(23011) = V(1493) -! JVRP(23012) = dARP(14513)/dV(1493) - JVRP(23012) = 1 -! JVRP(23013) = dARP(14514)/dV(247) - JVRP(23013) = V(5250) -! JVRP(23014) = dARP(14514)/dV(5250) - JVRP(23014) = V(247) -! JVRP(23015) = dARP(14515)/dV(1463) - JVRP(23015) = V(5250) -! JVRP(23016) = dARP(14515)/dV(5250) - JVRP(23016) = V(1463) -! JVRP(23017) = dARP(14516)/dV(1463) - JVRP(23017) = 1 -! JVRP(23018) = dARP(14517)/dV(2224) - JVRP(23018) = V(5250) -! JVRP(23019) = dARP(14517)/dV(5250) - JVRP(23019) = V(2224) -! JVRP(23020) = dARP(14518)/dV(2224) - JVRP(23020) = 1 -! JVRP(23021) = dARP(14519)/dV(203) - JVRP(23021) = 1 -! JVRP(23022) = dARP(14520)/dV(481) - JVRP(23022) = V(5250) -! JVRP(23023) = dARP(14520)/dV(5250) - JVRP(23023) = V(481) -! JVRP(23024) = dARP(14521)/dV(1250) - JVRP(23024) = V(5250) -! JVRP(23025) = dARP(14521)/dV(5250) - JVRP(23025) = V(1250) -! JVRP(23026) = dARP(14522)/dV(1250) - JVRP(23026) = 1 -! JVRP(23027) = dARP(14523)/dV(3743) - JVRP(23027) = V(5255) -! JVRP(23028) = dARP(14523)/dV(5255) - JVRP(23028) = V(3743) -! JVRP(23029) = dARP(14524)/dV(3743) - JVRP(23029) = V(5252) -! JVRP(23030) = dARP(14524)/dV(5252) - JVRP(23030) = V(3743) -! JVRP(23031) = dARP(14525)/dV(3743) - JVRP(23031) = V(5252) -! JVRP(23032) = dARP(14525)/dV(5252) - JVRP(23032) = V(3743) -! JVRP(23033) = dARP(14526)/dV(3743) - JVRP(23033) = V(5256) -! JVRP(23034) = dARP(14526)/dV(5256) - JVRP(23034) = V(3743) -! JVRP(23035) = dARP(14527)/dV(3743) - JVRP(23035) = 1 -! JVRP(23036) = dARP(14528)/dV(3743) - JVRP(23036) = 1 -! JVRP(23037) = dARP(14529)/dV(3743) - JVRP(23037) = 1 -! JVRP(23038) = dARP(14530)/dV(360) - JVRP(23038) = V(5250) -! JVRP(23039) = dARP(14530)/dV(5250) - JVRP(23039) = V(360) -! JVRP(23040) = dARP(14531)/dV(3323) - JVRP(23040) = V(5250) -! JVRP(23041) = dARP(14531)/dV(5250) - JVRP(23041) = V(3323) -! JVRP(23042) = dARP(14532)/dV(3323) - JVRP(23042) = 1 -! JVRP(23043) = dARP(14533)/dV(1546) - JVRP(23043) = V(5250) -! JVRP(23044) = dARP(14533)/dV(5250) - JVRP(23044) = V(1546) -! JVRP(23045) = dARP(14534)/dV(1546) - JVRP(23045) = 1 -! JVRP(23046) = dARP(14535)/dV(2136) - JVRP(23046) = V(5250) -! JVRP(23047) = dARP(14535)/dV(5250) - JVRP(23047) = V(2136) -! JVRP(23048) = dARP(14536)/dV(2136) - JVRP(23048) = 1 -! JVRP(23049) = dARP(14537)/dV(3613) - JVRP(23049) = 1 -! JVRP(23050) = dARP(14538)/dV(3613) - JVRP(23050) = 1 -! JVRP(23051) = dARP(14539)/dV(1660) - JVRP(23051) = V(5250) -! JVRP(23052) = dARP(14539)/dV(5250) - JVRP(23052) = V(1660) -! JVRP(23053) = dARP(14540)/dV(382) - JVRP(23053) = V(5250) -! JVRP(23054) = dARP(14540)/dV(5250) - JVRP(23054) = V(382) -! JVRP(23055) = dARP(14541)/dV(872) - JVRP(23055) = V(5250) -! JVRP(23056) = dARP(14541)/dV(5250) - JVRP(23056) = V(872) -! JVRP(23057) = dARP(14542)/dV(872) - JVRP(23057) = 1 -! JVRP(23058) = dARP(14543)/dV(1972) - JVRP(23058) = V(5250) -! JVRP(23059) = dARP(14543)/dV(5250) - JVRP(23059) = V(1972) -! JVRP(23060) = dARP(14544)/dV(1972) - JVRP(23060) = 1 -! JVRP(23061) = dARP(14545)/dV(178) - JVRP(23061) = 1 -! JVRP(23062) = dARP(14546)/dV(2773) - JVRP(23062) = V(5250) -! JVRP(23063) = dARP(14546)/dV(5250) - JVRP(23063) = V(2773) -! JVRP(23064) = dARP(14547)/dV(2773) - JVRP(23064) = 1 -! JVRP(23065) = dARP(14548)/dV(313) - JVRP(23065) = V(5250) -! JVRP(23066) = dARP(14548)/dV(5250) - JVRP(23066) = V(313) -! JVRP(23067) = dARP(14549)/dV(5130) - JVRP(23067) = V(5255) -! JVRP(23068) = dARP(14549)/dV(5255) - JVRP(23068) = V(5130) -! JVRP(23069) = dARP(14550)/dV(5130) - JVRP(23069) = V(5252) -! JVRP(23070) = dARP(14550)/dV(5252) - JVRP(23070) = V(5130) -! JVRP(23071) = dARP(14551)/dV(5130) - JVRP(23071) = V(5252) -! JVRP(23072) = dARP(14551)/dV(5252) - JVRP(23072) = V(5130) -! JVRP(23073) = dARP(14552)/dV(5130) - JVRP(23073) = V(5256) -! JVRP(23074) = dARP(14552)/dV(5256) - JVRP(23074) = V(5130) -! JVRP(23075) = dARP(14553)/dV(5130) - JVRP(23075) = 1 -! JVRP(23076) = dARP(14554)/dV(5130) - JVRP(23076) = 1 -! JVRP(23077) = dARP(14555)/dV(4572) - JVRP(23077) = V(5255) -! JVRP(23078) = dARP(14555)/dV(5255) - JVRP(23078) = V(4572) -! JVRP(23079) = dARP(14556)/dV(4572) - JVRP(23079) = V(5252) -! JVRP(23080) = dARP(14556)/dV(5252) - JVRP(23080) = V(4572) -! JVRP(23081) = dARP(14557)/dV(4572) - JVRP(23081) = V(5256) -! JVRP(23082) = dARP(14557)/dV(5256) - JVRP(23082) = V(4572) -! JVRP(23083) = dARP(14558)/dV(4572) - JVRP(23083) = 1 -! JVRP(23084) = dARP(14559)/dV(4572) - JVRP(23084) = 1 -! JVRP(23085) = dARP(14560)/dV(4572) - JVRP(23085) = 1 -! JVRP(23086) = dARP(14561)/dV(4839) - JVRP(23086) = V(5255) -! JVRP(23087) = dARP(14561)/dV(5255) - JVRP(23087) = V(4839) -! JVRP(23088) = dARP(14562)/dV(4839) - JVRP(23088) = V(5255) -! JVRP(23089) = dARP(14562)/dV(5255) - JVRP(23089) = V(4839) -! JVRP(23090) = dARP(14563)/dV(4839) - JVRP(23090) = V(5255) -! JVRP(23091) = dARP(14563)/dV(5255) - JVRP(23091) = V(4839) -! JVRP(23092) = dARP(14564)/dV(4839) - JVRP(23092) = V(5252) -! JVRP(23093) = dARP(14564)/dV(5252) - JVRP(23093) = V(4839) -! JVRP(23094) = dARP(14565)/dV(4839) - JVRP(23094) = V(5253) -! JVRP(23095) = dARP(14565)/dV(5253) - JVRP(23095) = V(4839) -! JVRP(23096) = dARP(14566)/dV(4839) - JVRP(23096) = V(5256) -! JVRP(23097) = dARP(14566)/dV(5256) - JVRP(23097) = V(4839) -! JVRP(23098) = dARP(14567)/dV(4839) - JVRP(23098) = 1 -! JVRP(23099) = dARP(14568)/dV(4839) - JVRP(23099) = 1 -! JVRP(23100) = dARP(14569)/dV(1155) - JVRP(23100) = V(5250) -! JVRP(23101) = dARP(14569)/dV(5250) - JVRP(23101) = V(1155) -! JVRP(23102) = dARP(14570)/dV(1155) - JVRP(23102) = 1 -! JVRP(23103) = dARP(14571)/dV(2327) - JVRP(23103) = V(5250) -! JVRP(23104) = dARP(14571)/dV(5250) - JVRP(23104) = V(2327) -! JVRP(23105) = dARP(14572)/dV(2327) - JVRP(23105) = 1 -! JVRP(23106) = dARP(14573)/dV(297) - JVRP(23106) = 1 -! JVRP(23107) = dARP(14574)/dV(134) - JVRP(23107) = V(5250) -! JVRP(23108) = dARP(14574)/dV(5250) - JVRP(23108) = V(134) -! JVRP(23109) = dARP(14575)/dV(1162) - JVRP(23109) = V(5250) -! JVRP(23110) = dARP(14575)/dV(5250) - JVRP(23110) = V(1162) -! JVRP(23111) = dARP(14576)/dV(1162) - JVRP(23111) = 1 -! JVRP(23112) = dARP(14577)/dV(2164) - JVRP(23112) = V(5250) -! JVRP(23113) = dARP(14577)/dV(5250) - JVRP(23113) = V(2164) -! JVRP(23114) = dARP(14578)/dV(2164) - JVRP(23114) = 1 -! JVRP(23115) = dARP(14579)/dV(3737) - JVRP(23115) = 1 -! JVRP(23116) = dARP(14580)/dV(3737) - JVRP(23116) = 1 -! JVRP(23117) = dARP(14581)/dV(3736) - JVRP(23117) = V(5250) -! JVRP(23118) = dARP(14581)/dV(5250) - JVRP(23118) = V(3736) -! JVRP(23119) = dARP(14582)/dV(415) - JVRP(23119) = V(5250) -! JVRP(23120) = dARP(14582)/dV(5250) - JVRP(23120) = V(415) -! JVRP(23121) = dARP(14583)/dV(4812) - JVRP(23121) = V(5255) -! JVRP(23122) = dARP(14583)/dV(5255) - JVRP(23122) = V(4812) -! JVRP(23123) = dARP(14584)/dV(4812) - JVRP(23123) = V(5255) -! JVRP(23124) = dARP(14584)/dV(5255) - JVRP(23124) = V(4812) -! JVRP(23125) = dARP(14585)/dV(4812) - JVRP(23125) = V(5255) -! JVRP(23126) = dARP(14585)/dV(5255) - JVRP(23126) = V(4812) -! JVRP(23127) = dARP(14586)/dV(4812) - JVRP(23127) = V(5252) -! JVRP(23128) = dARP(14586)/dV(5252) - JVRP(23128) = V(4812) -! JVRP(23129) = dARP(14587)/dV(4812) - JVRP(23129) = V(5253) -! JVRP(23130) = dARP(14587)/dV(5253) - JVRP(23130) = V(4812) -! JVRP(23131) = dARP(14588)/dV(4812) - JVRP(23131) = V(5256) -! JVRP(23132) = dARP(14588)/dV(5256) - JVRP(23132) = V(4812) -! JVRP(23133) = dARP(14589)/dV(4812) - JVRP(23133) = 1 -! JVRP(23134) = dARP(14590)/dV(4812) - JVRP(23134) = 1 -! JVRP(23135) = dARP(14591)/dV(2440) - JVRP(23135) = V(5250) -! JVRP(23136) = dARP(14591)/dV(5250) - JVRP(23136) = V(2440) -! JVRP(23137) = dARP(14592)/dV(2440) - JVRP(23137) = 1 -! JVRP(23138) = dARP(14593)/dV(817) - JVRP(23138) = 1 -! JVRP(23139) = dARP(14594)/dV(406) - JVRP(23139) = V(5250) -! JVRP(23140) = dARP(14594)/dV(5250) - JVRP(23140) = V(406) -! JVRP(23141) = dARP(14595)/dV(1060) - JVRP(23141) = V(5250) -! JVRP(23142) = dARP(14595)/dV(5250) - JVRP(23142) = V(1060) -! JVRP(23143) = dARP(14596)/dV(1060) - JVRP(23143) = 1 -! JVRP(23144) = dARP(14597)/dV(1813) - JVRP(23144) = V(5250) -! JVRP(23145) = dARP(14597)/dV(5250) - JVRP(23145) = V(1813) -! JVRP(23146) = dARP(14598)/dV(1813) - JVRP(23146) = 1 -! JVRP(23147) = dARP(14599)/dV(1814) - JVRP(23147) = 1 -! JVRP(23148) = dARP(14600)/dV(394) - JVRP(23148) = V(5250) -! JVRP(23149) = dARP(14600)/dV(5250) - JVRP(23149) = V(394) -! JVRP(23150) = dARP(14601)/dV(4196) - JVRP(23150) = V(5255) -! JVRP(23151) = dARP(14601)/dV(5255) - JVRP(23151) = V(4196) -! JVRP(23152) = dARP(14602)/dV(4196) - JVRP(23152) = V(5252) -! JVRP(23153) = dARP(14602)/dV(5252) - JVRP(23153) = V(4196) -! JVRP(23154) = dARP(14603)/dV(4196) - JVRP(23154) = V(5252) -! JVRP(23155) = dARP(14603)/dV(5252) - JVRP(23155) = V(4196) -! JVRP(23156) = dARP(14604)/dV(4196) - JVRP(23156) = V(5256) -! JVRP(23157) = dARP(14604)/dV(5256) - JVRP(23157) = V(4196) -! JVRP(23158) = dARP(14605)/dV(4196) - JVRP(23158) = 1 -! JVRP(23159) = dARP(14606)/dV(4196) - JVRP(23159) = 1 -! JVRP(23160) = dARP(14607)/dV(4196) - JVRP(23160) = 1 -! JVRP(23161) = dARP(14608)/dV(367) - JVRP(23161) = V(5250) -! JVRP(23162) = dARP(14608)/dV(5250) - JVRP(23162) = V(367) -! JVRP(23163) = dARP(14609)/dV(1199) - JVRP(23163) = V(5250) -! JVRP(23164) = dARP(14609)/dV(5250) - JVRP(23164) = V(1199) -! JVRP(23165) = dARP(14610)/dV(1199) - JVRP(23165) = 1 -! JVRP(23166) = dARP(14611)/dV(3841) - JVRP(23166) = V(5255) -! JVRP(23167) = dARP(14611)/dV(5255) - JVRP(23167) = V(3841) -! JVRP(23168) = dARP(14612)/dV(3841) - JVRP(23168) = V(5252) -! JVRP(23169) = dARP(14612)/dV(5252) - JVRP(23169) = V(3841) -! JVRP(23170) = dARP(14613)/dV(3841) - JVRP(23170) = V(5252) -! JVRP(23171) = dARP(14613)/dV(5252) - JVRP(23171) = V(3841) -! JVRP(23172) = dARP(14614)/dV(3841) - JVRP(23172) = V(5256) -! JVRP(23173) = dARP(14614)/dV(5256) - JVRP(23173) = V(3841) -! JVRP(23174) = dARP(14615)/dV(3841) - JVRP(23174) = 1 -! JVRP(23175) = dARP(14616)/dV(3841) - JVRP(23175) = 1 -! JVRP(23176) = dARP(14617)/dV(3841) - JVRP(23176) = 1 -! JVRP(23177) = dARP(14618)/dV(2813) - JVRP(23177) = V(5250) -! JVRP(23178) = dARP(14618)/dV(5250) - JVRP(23178) = V(2813) -! JVRP(23179) = dARP(14619)/dV(2813) - JVRP(23179) = 1 -! JVRP(23180) = dARP(14620)/dV(4673) - JVRP(23180) = V(5255) -! JVRP(23181) = dARP(14620)/dV(5255) - JVRP(23181) = V(4673) -! JVRP(23182) = dARP(14621)/dV(4673) - JVRP(23182) = V(5255) -! JVRP(23183) = dARP(14621)/dV(5255) - JVRP(23183) = V(4673) -! JVRP(23184) = dARP(14622)/dV(4673) - JVRP(23184) = V(5255) -! JVRP(23185) = dARP(14622)/dV(5255) - JVRP(23185) = V(4673) -! JVRP(23186) = dARP(14623)/dV(4673) - JVRP(23186) = V(5252) -! JVRP(23187) = dARP(14623)/dV(5252) - JVRP(23187) = V(4673) -! JVRP(23188) = dARP(14624)/dV(4673) - JVRP(23188) = V(5253) -! JVRP(23189) = dARP(14624)/dV(5253) - JVRP(23189) = V(4673) -! JVRP(23190) = dARP(14625)/dV(4673) - JVRP(23190) = V(5256) -! JVRP(23191) = dARP(14625)/dV(5256) - JVRP(23191) = V(4673) -! JVRP(23192) = dARP(14626)/dV(4673) - JVRP(23192) = 1 -! JVRP(23193) = dARP(14627)/dV(4673) - JVRP(23193) = 1 -! JVRP(23194) = dARP(14628)/dV(1871) - JVRP(23194) = V(5250) -! JVRP(23195) = dARP(14628)/dV(5250) - JVRP(23195) = V(1871) -! JVRP(23196) = dARP(14629)/dV(1871) - JVRP(23196) = 1 -! JVRP(23197) = dARP(14630)/dV(810) - JVRP(23197) = 1 -! JVRP(23198) = dARP(14631)/dV(411) - JVRP(23198) = V(5250) -! JVRP(23199) = dARP(14631)/dV(5250) - JVRP(23199) = V(411) -! JVRP(23200) = dARP(14632)/dV(4137) - JVRP(23200) = V(5255) -! JVRP(23201) = dARP(14632)/dV(5255) - JVRP(23201) = V(4137) -! JVRP(23202) = dARP(14633)/dV(4137) - JVRP(23202) = V(5252) -! JVRP(23203) = dARP(14633)/dV(5252) - JVRP(23203) = V(4137) -! JVRP(23204) = dARP(14634)/dV(4137) - JVRP(23204) = V(5252) -! JVRP(23205) = dARP(14634)/dV(5252) - JVRP(23205) = V(4137) -! JVRP(23206) = dARP(14635)/dV(4137) - JVRP(23206) = V(5256) -! JVRP(23207) = dARP(14635)/dV(5256) - JVRP(23207) = V(4137) -! JVRP(23208) = dARP(14636)/dV(4137) - JVRP(23208) = 1 -! JVRP(23209) = dARP(14637)/dV(4137) - JVRP(23209) = 1 -! JVRP(23210) = dARP(14638)/dV(1295) - JVRP(23210) = V(5250) -! JVRP(23211) = dARP(14638)/dV(5250) - JVRP(23211) = V(1295) -! JVRP(23212) = dARP(14639)/dV(1295) - JVRP(23212) = 1 -! JVRP(23213) = dARP(14640)/dV(1930) - JVRP(23213) = V(5250) -! JVRP(23214) = dARP(14640)/dV(5250) - JVRP(23214) = V(1930) -! JVRP(23215) = dARP(14641)/dV(1930) - JVRP(23215) = 1 -! JVRP(23216) = dARP(14642)/dV(1931) - JVRP(23216) = 1 -! JVRP(23217) = dARP(14643)/dV(218) - JVRP(23217) = V(5250) -! JVRP(23218) = dARP(14643)/dV(5250) - JVRP(23218) = V(218) -! JVRP(23219) = dARP(14644)/dV(973) - JVRP(23219) = V(5250) -! JVRP(23220) = dARP(14644)/dV(5250) - JVRP(23220) = V(973) -! JVRP(23221) = dARP(14645)/dV(973) - JVRP(23221) = 1 -! JVRP(23222) = dARP(14646)/dV(163) - JVRP(23222) = 1 -! JVRP(23223) = dARP(14647)/dV(101) - JVRP(23223) = V(5250) -! JVRP(23224) = dARP(14647)/dV(5250) - JVRP(23224) = V(101) -! JVRP(23225) = dARP(14648)/dV(1357) - JVRP(23225) = V(5250) -! JVRP(23226) = dARP(14648)/dV(5250) - JVRP(23226) = V(1357) -! JVRP(23227) = dARP(14649)/dV(1357) - JVRP(23227) = 1 -! JVRP(23228) = dARP(14650)/dV(164) - JVRP(23228) = 1 -! JVRP(23229) = dARP(14651)/dV(98) - JVRP(23229) = V(5250) -! JVRP(23230) = dARP(14651)/dV(5250) - JVRP(23230) = V(98) -! JVRP(23231) = dARP(14652)/dV(1464) - JVRP(23231) = V(5250) -! JVRP(23232) = dARP(14652)/dV(5250) - JVRP(23232) = V(1464) -! JVRP(23233) = dARP(14653)/dV(1464) - JVRP(23233) = 1 -! JVRP(23234) = dARP(14654)/dV(152) - JVRP(23234) = 1 -! JVRP(23235) = dARP(14655)/dV(26) - JVRP(23235) = V(5250) -! JVRP(23236) = dARP(14655)/dV(5250) - JVRP(23236) = V(26) -! JVRP(23237) = dARP(14656)/dV(1085) - JVRP(23237) = V(5250) -! JVRP(23238) = dARP(14656)/dV(5250) - JVRP(23238) = V(1085) -! JVRP(23239) = dARP(14657)/dV(1085) - JVRP(23239) = 1 -! JVRP(23240) = dARP(14658)/dV(2510) - JVRP(23240) = V(5250) -! JVRP(23241) = dARP(14658)/dV(5250) - JVRP(23241) = V(2510) -! JVRP(23242) = dARP(14659)/dV(2510) - JVRP(23242) = 1 -! JVRP(23243) = dARP(14660)/dV(1784) - JVRP(23243) = V(5250) -! JVRP(23244) = dARP(14660)/dV(5250) - JVRP(23244) = V(1784) -! JVRP(23245) = dARP(14661)/dV(1784) - JVRP(23245) = 1 -! JVRP(23246) = dARP(14662)/dV(655) - JVRP(23246) = 1 -! JVRP(23247) = dARP(14663)/dV(989) - JVRP(23247) = V(5250) -! JVRP(23248) = dARP(14663)/dV(5250) - JVRP(23248) = V(989) -! JVRP(23249) = dARP(14664)/dV(989) - JVRP(23249) = 1 -! JVRP(23250) = dARP(14665)/dV(76) - JVRP(23250) = 1 -! JVRP(23251) = dARP(14666)/dV(4157) - JVRP(23251) = V(5255) -! JVRP(23252) = dARP(14666)/dV(5255) - JVRP(23252) = V(4157) -! JVRP(23253) = dARP(14667)/dV(4157) - JVRP(23253) = V(5252) -! JVRP(23254) = dARP(14667)/dV(5252) - JVRP(23254) = V(4157) -! JVRP(23255) = dARP(14668)/dV(4157) - JVRP(23255) = V(5252) -! JVRP(23256) = dARP(14668)/dV(5252) - JVRP(23256) = V(4157) -! JVRP(23257) = dARP(14669)/dV(4157) - JVRP(23257) = V(5256) -! JVRP(23258) = dARP(14669)/dV(5256) - JVRP(23258) = V(4157) -! JVRP(23259) = dARP(14670)/dV(4157) - JVRP(23259) = 1 -! JVRP(23260) = dARP(14671)/dV(4157) - JVRP(23260) = 1 -! JVRP(23261) = dARP(14672)/dV(4497) - JVRP(23261) = V(5255) -! JVRP(23262) = dARP(14672)/dV(5255) - JVRP(23262) = V(4497) -! JVRP(23263) = dARP(14673)/dV(4497) - JVRP(23263) = V(5252) -! JVRP(23264) = dARP(14673)/dV(5252) - JVRP(23264) = V(4497) -! JVRP(23265) = dARP(14674)/dV(4497) - JVRP(23265) = V(5256) -! JVRP(23266) = dARP(14674)/dV(5256) - JVRP(23266) = V(4497) -! JVRP(23267) = dARP(14675)/dV(4497) - JVRP(23267) = 1 -! JVRP(23268) = dARP(14676)/dV(863) - JVRP(23268) = V(5250) -! JVRP(23269) = dARP(14676)/dV(5250) - JVRP(23269) = V(863) -! JVRP(23270) = dARP(14677)/dV(863) - JVRP(23270) = 1 -! JVRP(23271) = dARP(14678)/dV(2694) - JVRP(23271) = 1 -! JVRP(23272) = dARP(14679)/dV(1146) - JVRP(23272) = V(5250) -! JVRP(23273) = dARP(14679)/dV(5250) - JVRP(23273) = V(1146) -! JVRP(23274) = dARP(14680)/dV(1146) - JVRP(23274) = 1 -! JVRP(23275) = dARP(14681)/dV(2573) - JVRP(23275) = V(5250) -! JVRP(23276) = dARP(14681)/dV(5250) - JVRP(23276) = V(2573) -! JVRP(23277) = dARP(14682)/dV(2573) - JVRP(23277) = 1 -! JVRP(23278) = dARP(14683)/dV(1522) - JVRP(23278) = V(5250) -! JVRP(23279) = dARP(14683)/dV(5250) - JVRP(23279) = V(1522) -! JVRP(23280) = dARP(14684)/dV(1522) - JVRP(23280) = 1 -! JVRP(23281) = dARP(14685)/dV(2667) - JVRP(23281) = 1 -! JVRP(23282) = dARP(14686)/dV(4854) - JVRP(23282) = V(5255) -! JVRP(23283) = dARP(14686)/dV(5255) - JVRP(23283) = V(4854) -! JVRP(23284) = dARP(14687)/dV(4854) - JVRP(23284) = V(5255) -! JVRP(23285) = dARP(14687)/dV(5255) - JVRP(23285) = V(4854) -! JVRP(23286) = dARP(14688)/dV(4854) - JVRP(23286) = V(5255) -! JVRP(23287) = dARP(14688)/dV(5255) - JVRP(23287) = V(4854) -! JVRP(23288) = dARP(14689)/dV(4854) - JVRP(23288) = V(5252) -! JVRP(23289) = dARP(14689)/dV(5252) - JVRP(23289) = V(4854) -! JVRP(23290) = dARP(14690)/dV(4854) - JVRP(23290) = V(5253) -! JVRP(23291) = dARP(14690)/dV(5253) - JVRP(23291) = V(4854) -! JVRP(23292) = dARP(14691)/dV(4854) - JVRP(23292) = V(5256) -! JVRP(23293) = dARP(14691)/dV(5256) - JVRP(23293) = V(4854) -! JVRP(23294) = dARP(14692)/dV(4854) - JVRP(23294) = 1 -! JVRP(23295) = dARP(14693)/dV(4854) - JVRP(23295) = 1 -! JVRP(23296) = dARP(14694)/dV(4653) - JVRP(23296) = V(5255) -! JVRP(23297) = dARP(14694)/dV(5255) - JVRP(23297) = V(4653) -! JVRP(23298) = dARP(14695)/dV(4653) - JVRP(23298) = V(5255) -! JVRP(23299) = dARP(14695)/dV(5255) - JVRP(23299) = V(4653) -! JVRP(23300) = dARP(14696)/dV(4653) - JVRP(23300) = V(5255) -! JVRP(23301) = dARP(14696)/dV(5255) - JVRP(23301) = V(4653) -! JVRP(23302) = dARP(14697)/dV(4653) - JVRP(23302) = V(5252) -! JVRP(23303) = dARP(14697)/dV(5252) - JVRP(23303) = V(4653) -! JVRP(23304) = dARP(14698)/dV(4653) - JVRP(23304) = V(5253) -! JVRP(23305) = dARP(14698)/dV(5253) - JVRP(23305) = V(4653) -! JVRP(23306) = dARP(14699)/dV(4653) - JVRP(23306) = V(5256) -! JVRP(23307) = dARP(14699)/dV(5256) - JVRP(23307) = V(4653) -! JVRP(23308) = dARP(14700)/dV(4653) - JVRP(23308) = 1 -! JVRP(23309) = dARP(14701)/dV(4653) - JVRP(23309) = 1 -! JVRP(23310) = dARP(14702)/dV(4818) - JVRP(23310) = V(5255) -! JVRP(23311) = dARP(14702)/dV(5255) - JVRP(23311) = V(4818) -! JVRP(23312) = dARP(14703)/dV(4818) - JVRP(23312) = V(5255) -! JVRP(23313) = dARP(14703)/dV(5255) - JVRP(23313) = V(4818) -! JVRP(23314) = dARP(14704)/dV(4818) - JVRP(23314) = V(5255) -! JVRP(23315) = dARP(14704)/dV(5255) - JVRP(23315) = V(4818) -! JVRP(23316) = dARP(14705)/dV(4818) - JVRP(23316) = V(5252) -! JVRP(23317) = dARP(14705)/dV(5252) - JVRP(23317) = V(4818) -! JVRP(23318) = dARP(14706)/dV(4818) - JVRP(23318) = V(5253) -! JVRP(23319) = dARP(14706)/dV(5253) - JVRP(23319) = V(4818) -! JVRP(23320) = dARP(14707)/dV(4818) - JVRP(23320) = V(5256) -! JVRP(23321) = dARP(14707)/dV(5256) - JVRP(23321) = V(4818) -! JVRP(23322) = dARP(14708)/dV(4818) - JVRP(23322) = 1 -! JVRP(23323) = dARP(14709)/dV(4818) - JVRP(23323) = 1 -! JVRP(23324) = dARP(14710)/dV(4459) - JVRP(23324) = V(5255) -! JVRP(23325) = dARP(14710)/dV(5255) - JVRP(23325) = V(4459) -! JVRP(23326) = dARP(14711)/dV(4459) - JVRP(23326) = V(5252) -! JVRP(23327) = dARP(14711)/dV(5252) - JVRP(23327) = V(4459) -! JVRP(23328) = dARP(14712)/dV(4459) - JVRP(23328) = V(5256) -! JVRP(23329) = dARP(14712)/dV(5256) - JVRP(23329) = V(4459) -! JVRP(23330) = dARP(14713)/dV(4459) - JVRP(23330) = 1 -! JVRP(23331) = dARP(14714)/dV(4459) - JVRP(23331) = 1 -! JVRP(23332) = dARP(14715)/dV(4459) - JVRP(23332) = 1 -! JVRP(23333) = dARP(14716)/dV(4960) - JVRP(23333) = V(5255) -! JVRP(23334) = dARP(14716)/dV(5255) - JVRP(23334) = V(4960) -! JVRP(23335) = dARP(14717)/dV(4960) - JVRP(23335) = V(5252) -! JVRP(23336) = dARP(14717)/dV(5252) - JVRP(23336) = V(4960) -! JVRP(23337) = dARP(14718)/dV(4960) - JVRP(23337) = V(5256) -! JVRP(23338) = dARP(14718)/dV(5256) - JVRP(23338) = V(4960) -! JVRP(23339) = dARP(14719)/dV(4960) - JVRP(23339) = 1 -! JVRP(23340) = dARP(14720)/dV(4960) - JVRP(23340) = 1 -! JVRP(23341) = dARP(14721)/dV(1044) - JVRP(23341) = V(5250) -! JVRP(23342) = dARP(14721)/dV(5250) - JVRP(23342) = V(1044) -! JVRP(23343) = dARP(14722)/dV(1044) - JVRP(23343) = 1 -! JVRP(23344) = dARP(14723)/dV(3067) - JVRP(23344) = 1 -! JVRP(23345) = dARP(14724)/dV(506) - JVRP(23345) = V(5250) -! JVRP(23346) = dARP(14724)/dV(5250) - JVRP(23346) = V(506) -! JVRP(23347) = dARP(14725)/dV(936) - JVRP(23347) = V(5250) -! JVRP(23348) = dARP(14725)/dV(5250) - JVRP(23348) = V(936) -! JVRP(23349) = dARP(14726)/dV(936) - JVRP(23349) = 1 -! JVRP(23350) = dARP(14727)/dV(2777) - JVRP(23350) = V(5250) -! JVRP(23351) = dARP(14727)/dV(5250) - JVRP(23351) = V(2777) -! JVRP(23352) = dARP(14728)/dV(2777) - JVRP(23352) = 1 -! JVRP(23353) = dARP(14729)/dV(3495) - JVRP(23353) = V(5250) -! JVRP(23354) = dARP(14729)/dV(5250) - JVRP(23354) = V(3495) -! JVRP(23355) = dARP(14730)/dV(3495) - JVRP(23355) = 1 -! JVRP(23356) = dARP(14731)/dV(3495) - JVRP(23356) = 1 -! JVRP(23357) = dARP(14732)/dV(3495) - JVRP(23357) = 1 -! JVRP(23358) = dARP(14733)/dV(3611) - JVRP(23358) = 1 -! JVRP(23359) = dARP(14734)/dV(3611) - JVRP(23359) = 1 -! JVRP(23360) = dARP(14735)/dV(2475) - JVRP(23360) = V(5250) -! JVRP(23361) = dARP(14735)/dV(5250) - JVRP(23361) = V(2475) -! JVRP(23362) = dARP(14736)/dV(2475) - JVRP(23362) = 1 -! JVRP(23363) = dARP(14737)/dV(2475) - JVRP(23363) = 1 -! JVRP(23364) = dARP(14738)/dV(4117) - JVRP(23364) = V(5255) -! JVRP(23365) = dARP(14738)/dV(5255) - JVRP(23365) = V(4117) -! JVRP(23366) = dARP(14739)/dV(4117) - JVRP(23366) = V(5252) -! JVRP(23367) = dARP(14739)/dV(5252) - JVRP(23367) = V(4117) -! JVRP(23368) = dARP(14740)/dV(4117) - JVRP(23368) = V(5256) -! JVRP(23369) = dARP(14740)/dV(5256) - JVRP(23369) = V(4117) -! JVRP(23370) = dARP(14741)/dV(4117) - JVRP(23370) = 1 -! JVRP(23371) = dARP(14742)/dV(4117) - JVRP(23371) = 1 -! JVRP(23372) = dARP(14743)/dV(3849) - JVRP(23372) = V(5256) -! JVRP(23373) = dARP(14743)/dV(5256) - JVRP(23373) = V(3849) -! JVRP(23374) = dARP(14744)/dV(3849) - JVRP(23374) = V(5250) -! JVRP(23375) = dARP(14744)/dV(5250) - JVRP(23375) = V(3849) -! JVRP(23376) = dARP(14745)/dV(61) - JVRP(23376) = 1 -! JVRP(23377) = dARP(14746)/dV(3848) - JVRP(23377) = V(5255) -! JVRP(23378) = dARP(14746)/dV(5255) - JVRP(23378) = V(3848) -! JVRP(23379) = dARP(14747)/dV(3848) - JVRP(23379) = V(5252) -! JVRP(23380) = dARP(14747)/dV(5252) - JVRP(23380) = V(3848) -! JVRP(23381) = dARP(14748)/dV(3848) - JVRP(23381) = V(5252) -! JVRP(23382) = dARP(14748)/dV(5252) - JVRP(23382) = V(3848) -! JVRP(23383) = dARP(14749)/dV(3848) - JVRP(23383) = V(5256) -! JVRP(23384) = dARP(14749)/dV(5256) - JVRP(23384) = V(3848) -! JVRP(23385) = dARP(14750)/dV(3848) - JVRP(23385) = 1 -! JVRP(23386) = dARP(14751)/dV(3848) - JVRP(23386) = 1 -! JVRP(23387) = dARP(14752)/dV(252) - JVRP(23387) = V(5250) -! JVRP(23388) = dARP(14752)/dV(5250) - JVRP(23388) = V(252) -! JVRP(23389) = dARP(14753)/dV(1107) - JVRP(23389) = V(5250) -! JVRP(23390) = dARP(14753)/dV(5250) - JVRP(23390) = V(1107) -! JVRP(23391) = dARP(14754)/dV(1107) - JVRP(23391) = 1 -! JVRP(23392) = dARP(14755)/dV(4342) - JVRP(23392) = V(5255) -! JVRP(23393) = dARP(14755)/dV(5255) - JVRP(23393) = V(4342) -! JVRP(23394) = dARP(14756)/dV(4342) - JVRP(23394) = V(5252) -! JVRP(23395) = dARP(14756)/dV(5252) - JVRP(23395) = V(4342) -! JVRP(23396) = dARP(14757)/dV(4342) - JVRP(23396) = V(5252) -! JVRP(23397) = dARP(14757)/dV(5252) - JVRP(23397) = V(4342) -! JVRP(23398) = dARP(14758)/dV(4342) - JVRP(23398) = V(5256) -! JVRP(23399) = dARP(14758)/dV(5256) - JVRP(23399) = V(4342) -! JVRP(23400) = dARP(14759)/dV(4342) - JVRP(23400) = 1 -! JVRP(23401) = dARP(14760)/dV(4342) - JVRP(23401) = 1 -! JVRP(23402) = dARP(14761)/dV(4342) - JVRP(23402) = 1 -! JVRP(23403) = dARP(14762)/dV(2637) - JVRP(23403) = V(5250) -! JVRP(23404) = dARP(14762)/dV(5250) - JVRP(23404) = V(2637) -! JVRP(23405) = dARP(14763)/dV(2637) - JVRP(23405) = 1 -! JVRP(23406) = dARP(14764)/dV(4120) - JVRP(23406) = V(5255) -! JVRP(23407) = dARP(14764)/dV(5255) - JVRP(23407) = V(4120) -! JVRP(23408) = dARP(14765)/dV(4120) - JVRP(23408) = V(5252) -! JVRP(23409) = dARP(14765)/dV(5252) - JVRP(23409) = V(4120) -! JVRP(23410) = dARP(14766)/dV(4120) - JVRP(23410) = V(5256) -! JVRP(23411) = dARP(14766)/dV(5256) - JVRP(23411) = V(4120) -! JVRP(23412) = dARP(14767)/dV(4120) - JVRP(23412) = 1 -! JVRP(23413) = dARP(14768)/dV(4120) - JVRP(23413) = 1 -! JVRP(23414) = dARP(14769)/dV(4120) - JVRP(23414) = 1 -! JVRP(23415) = dARP(14770)/dV(1339) - JVRP(23415) = V(5250) -! JVRP(23416) = dARP(14770)/dV(5250) - JVRP(23416) = V(1339) -! JVRP(23417) = dARP(14771)/dV(1339) - JVRP(23417) = 1 -! JVRP(23418) = dARP(14772)/dV(1883) - JVRP(23418) = V(5250) -! JVRP(23419) = dARP(14772)/dV(5250) - JVRP(23419) = V(1883) -! JVRP(23420) = dARP(14773)/dV(1883) - JVRP(23420) = 1 -! JVRP(23421) = dARP(14774)/dV(157) - JVRP(23421) = 1 -! JVRP(23422) = dARP(14775)/dV(2979) - JVRP(23422) = V(5250) -! JVRP(23423) = dARP(14775)/dV(5250) - JVRP(23423) = V(2979) -! JVRP(23424) = dARP(14776)/dV(2979) - JVRP(23424) = 1 -! JVRP(23425) = dARP(14777)/dV(476) - JVRP(23425) = V(5250) -! JVRP(23426) = dARP(14777)/dV(5250) - JVRP(23426) = V(476) -! JVRP(23427) = dARP(14778)/dV(4216) - JVRP(23427) = V(5255) -! JVRP(23428) = dARP(14778)/dV(5255) - JVRP(23428) = V(4216) -! JVRP(23429) = dARP(14779)/dV(4216) - JVRP(23429) = V(5252) -! JVRP(23430) = dARP(14779)/dV(5252) - JVRP(23430) = V(4216) -! JVRP(23431) = dARP(14780)/dV(4216) - JVRP(23431) = V(5252) -! JVRP(23432) = dARP(14780)/dV(5252) - JVRP(23432) = V(4216) -! JVRP(23433) = dARP(14781)/dV(4216) - JVRP(23433) = V(5256) -! JVRP(23434) = dARP(14781)/dV(5256) - JVRP(23434) = V(4216) -! JVRP(23435) = dARP(14782)/dV(4216) - JVRP(23435) = 1 -! JVRP(23436) = dARP(14783)/dV(4216) - JVRP(23436) = 1 -! JVRP(23437) = dARP(14784)/dV(1411) - JVRP(23437) = V(5250) -! JVRP(23438) = dARP(14784)/dV(5250) - JVRP(23438) = V(1411) -! JVRP(23439) = dARP(14785)/dV(1411) - JVRP(23439) = 1 -! JVRP(23440) = dARP(14786)/dV(2802) - JVRP(23440) = V(5250) -! JVRP(23441) = dARP(14786)/dV(5250) - JVRP(23441) = V(2802) -! JVRP(23442) = dARP(14787)/dV(2802) - JVRP(23442) = 1 -! JVRP(23443) = dARP(14788)/dV(1818) - JVRP(23443) = 1 -! JVRP(23444) = dARP(14789)/dV(547) - JVRP(23444) = V(5250) -! JVRP(23445) = dARP(14789)/dV(5250) - JVRP(23445) = V(547) -! JVRP(23446) = dARP(14790)/dV(547) - JVRP(23446) = 1 -! JVRP(23447) = dARP(14791)/dV(1485) - JVRP(23447) = V(5250) -! JVRP(23448) = dARP(14791)/dV(5250) - JVRP(23448) = V(1485) -! JVRP(23449) = dARP(14792)/dV(1485) - JVRP(23449) = 1 -! JVRP(23450) = dARP(14793)/dV(2749) - JVRP(23450) = 1 -! JVRP(23451) = dARP(14794)/dV(2809) - JVRP(23451) = V(5250) -! JVRP(23452) = dARP(14794)/dV(5250) - JVRP(23452) = V(2809) -! JVRP(23453) = dARP(14795)/dV(2809) - JVRP(23453) = 1 -! JVRP(23454) = dARP(14796)/dV(1875) - JVRP(23454) = V(5250) -! JVRP(23455) = dARP(14796)/dV(5250) - JVRP(23455) = V(1875) -! JVRP(23456) = dARP(14797)/dV(1875) - JVRP(23456) = 1 -! JVRP(23457) = dARP(14798)/dV(470) - JVRP(23457) = V(5250) -! JVRP(23458) = dARP(14798)/dV(5250) - JVRP(23458) = V(470) -! JVRP(23459) = dARP(14799)/dV(1507) - JVRP(23459) = V(5250) -! JVRP(23460) = dARP(14799)/dV(5250) - JVRP(23460) = V(1507) -! JVRP(23461) = dARP(14800)/dV(1507) - JVRP(23461) = 1 -! JVRP(23462) = dARP(14801)/dV(4234) - JVRP(23462) = V(5255) -! JVRP(23463) = dARP(14801)/dV(5255) - JVRP(23463) = V(4234) -! JVRP(23464) = dARP(14802)/dV(4234) - JVRP(23464) = V(5252) -! JVRP(23465) = dARP(14802)/dV(5252) - JVRP(23465) = V(4234) -! JVRP(23466) = dARP(14803)/dV(4234) - JVRP(23466) = V(5256) -! JVRP(23467) = dARP(14803)/dV(5256) - JVRP(23467) = V(4234) -! JVRP(23468) = dARP(14804)/dV(4234) - JVRP(23468) = 1 -! JVRP(23469) = dARP(14805)/dV(4234) - JVRP(23469) = 1 -! JVRP(23470) = dARP(14806)/dV(3029) - JVRP(23470) = V(5250) -! JVRP(23471) = dARP(14806)/dV(5250) - JVRP(23471) = V(3029) -! JVRP(23472) = dARP(14807)/dV(3029) - JVRP(23472) = 1 -! JVRP(23473) = dARP(14808)/dV(2719) - JVRP(23473) = V(5250) -! JVRP(23474) = dARP(14808)/dV(5250) - JVRP(23474) = V(2719) -! JVRP(23475) = dARP(14809)/dV(3855) - JVRP(23475) = V(5255) -! JVRP(23476) = dARP(14809)/dV(5255) - JVRP(23476) = V(3855) -! JVRP(23477) = dARP(14810)/dV(3855) - JVRP(23477) = V(5252) -! JVRP(23478) = dARP(14810)/dV(5252) - JVRP(23478) = V(3855) -! JVRP(23479) = dARP(14811)/dV(3855) - JVRP(23479) = V(5252) -! JVRP(23480) = dARP(14811)/dV(5252) - JVRP(23480) = V(3855) -! JVRP(23481) = dARP(14812)/dV(3855) - JVRP(23481) = V(5256) -! JVRP(23482) = dARP(14812)/dV(5256) - JVRP(23482) = V(3855) -! JVRP(23483) = dARP(14813)/dV(3855) - JVRP(23483) = 1 -! JVRP(23484) = dARP(14814)/dV(3855) - JVRP(23484) = 1 -! JVRP(23485) = dARP(14815)/dV(3855) - JVRP(23485) = 1 -! JVRP(23486) = dARP(14816)/dV(2895) - JVRP(23486) = V(5250) -! JVRP(23487) = dARP(14816)/dV(5250) - JVRP(23487) = V(2895) -! JVRP(23488) = dARP(14817)/dV(2895) - JVRP(23488) = 1 -! JVRP(23489) = dARP(14818)/dV(1238) - JVRP(23489) = V(5250) -! JVRP(23490) = dARP(14818)/dV(5250) - JVRP(23490) = V(1238) -! JVRP(23491) = dARP(14819)/dV(2139) - JVRP(23491) = V(5250) -! JVRP(23492) = dARP(14819)/dV(5250) - JVRP(23492) = V(2139) -! JVRP(23493) = dARP(14820)/dV(2139) - JVRP(23493) = 1 -! JVRP(23494) = dARP(14821)/dV(2941) - JVRP(23494) = V(5250) -! JVRP(23495) = dARP(14821)/dV(5250) - JVRP(23495) = V(2941) -! JVRP(23496) = dARP(14822)/dV(2941) - JVRP(23496) = 1 -! JVRP(23497) = dARP(14823)/dV(1519) - JVRP(23497) = V(5250) -! JVRP(23498) = dARP(14823)/dV(5250) - JVRP(23498) = V(1519) -! JVRP(23499) = dARP(14824)/dV(1519) - JVRP(23499) = 1 -! JVRP(23500) = dARP(14825)/dV(2275) - JVRP(23500) = V(5250) -! JVRP(23501) = dARP(14825)/dV(5250) - JVRP(23501) = V(2275) -! JVRP(23502) = dARP(14826)/dV(2275) - JVRP(23502) = 1 -! JVRP(23503) = dARP(14827)/dV(3424) - JVRP(23503) = 1 -! JVRP(23504) = dARP(14828)/dV(3424) - JVRP(23504) = 1 -! JVRP(23505) = dARP(14829)/dV(2938) - JVRP(23505) = V(5250) -! JVRP(23506) = dARP(14829)/dV(5250) - JVRP(23506) = V(2938) -! JVRP(23507) = dARP(14830)/dV(320) - JVRP(23507) = V(5250) -! JVRP(23508) = dARP(14830)/dV(5250) - JVRP(23508) = V(320) -! JVRP(23509) = dARP(14831)/dV(1328) - JVRP(23509) = V(5250) -! JVRP(23510) = dARP(14831)/dV(5250) - JVRP(23510) = V(1328) -! JVRP(23511) = dARP(14832)/dV(1328) - JVRP(23511) = 1 -! JVRP(23512) = dARP(14833)/dV(2444) - JVRP(23512) = V(5250) -! JVRP(23513) = dARP(14833)/dV(5250) - JVRP(23513) = V(2444) -! JVRP(23514) = dARP(14834)/dV(2444) - JVRP(23514) = 1 -! JVRP(23515) = dARP(14835)/dV(173) - JVRP(23515) = 1 -! JVRP(23516) = dARP(14836)/dV(4978) - JVRP(23516) = V(5256) -! JVRP(23517) = dARP(14836)/dV(5256) - JVRP(23517) = V(4978) -! JVRP(23518) = dARP(14837)/dV(4978) - JVRP(23518) = V(5250) -! JVRP(23519) = dARP(14837)/dV(5250) - JVRP(23519) = V(4978) -! JVRP(23520) = dARP(14838)/dV(4978) - JVRP(23520) = 1 -! JVRP(23521) = dARP(14839)/dV(334) - JVRP(23521) = V(5250) -! JVRP(23522) = dARP(14839)/dV(5250) - JVRP(23522) = V(334) -! JVRP(23523) = dARP(14840)/dV(856) - JVRP(23523) = V(5250) -! JVRP(23524) = dARP(14840)/dV(5250) - JVRP(23524) = V(856) -! JVRP(23525) = dARP(14841)/dV(1920) - JVRP(23525) = V(5250) -! JVRP(23526) = dARP(14841)/dV(5250) - JVRP(23526) = V(1920) -! JVRP(23527) = dARP(14842)/dV(1920) - JVRP(23527) = 1 -! JVRP(23528) = dARP(14843)/dV(2571) - JVRP(23528) = V(5250) -! JVRP(23529) = dARP(14843)/dV(5250) - JVRP(23529) = V(2571) -! JVRP(23530) = dARP(14844)/dV(2571) - JVRP(23530) = 1 -! JVRP(23531) = dARP(14845)/dV(2214) - JVRP(23531) = V(5250) -! JVRP(23532) = dARP(14845)/dV(5250) - JVRP(23532) = V(2214) -! JVRP(23533) = dARP(14846)/dV(2214) - JVRP(23533) = 1 -! JVRP(23534) = dARP(14847)/dV(2942) - JVRP(23534) = V(5250) -! JVRP(23535) = dARP(14847)/dV(5250) - JVRP(23535) = V(2942) -! JVRP(23536) = dARP(14848)/dV(2942) - JVRP(23536) = 1 -! JVRP(23537) = dARP(14849)/dV(1724) - JVRP(23537) = 1 -! JVRP(23538) = dARP(14850)/dV(754) - JVRP(23538) = V(5250) -! JVRP(23539) = dARP(14850)/dV(5250) - JVRP(23539) = V(754) -! JVRP(23540) = dARP(14851)/dV(4220) - JVRP(23540) = V(5255) -! JVRP(23541) = dARP(14851)/dV(5255) - JVRP(23541) = V(4220) -! JVRP(23542) = dARP(14852)/dV(4220) - JVRP(23542) = V(5255) -! JVRP(23543) = dARP(14852)/dV(5255) - JVRP(23543) = V(4220) -! JVRP(23544) = dARP(14853)/dV(4220) - JVRP(23544) = V(5252) -! JVRP(23545) = dARP(14853)/dV(5252) - JVRP(23545) = V(4220) -! JVRP(23546) = dARP(14854)/dV(4220) - JVRP(23546) = V(5253) -! JVRP(23547) = dARP(14854)/dV(5253) - JVRP(23547) = V(4220) -! JVRP(23548) = dARP(14855)/dV(4220) - JVRP(23548) = V(5256) -! JVRP(23549) = dARP(14855)/dV(5256) - JVRP(23549) = V(4220) -! JVRP(23550) = dARP(14856)/dV(4220) - JVRP(23550) = 1 -! JVRP(23551) = dARP(14857)/dV(1263) - JVRP(23551) = V(5250) -! JVRP(23552) = dARP(14857)/dV(5250) - JVRP(23552) = V(1263) -! JVRP(23553) = dARP(14858)/dV(1263) - JVRP(23553) = 1 -! JVRP(23554) = dARP(14859)/dV(3447) - JVRP(23554) = V(5250) -! JVRP(23555) = dARP(14859)/dV(5250) - JVRP(23555) = V(3447) -! JVRP(23556) = dARP(14860)/dV(3447) - JVRP(23556) = 1 -! JVRP(23557) = dARP(14861)/dV(1989) - JVRP(23557) = 1 -! JVRP(23558) = dARP(14862)/dV(520) - JVRP(23558) = V(5250) -! JVRP(23559) = dARP(14862)/dV(5250) - JVRP(23559) = V(520) -! JVRP(23560) = dARP(14863)/dV(520) - JVRP(23560) = 1 -! JVRP(23561) = dARP(14864)/dV(2111) - JVRP(23561) = V(5250) -! JVRP(23562) = dARP(14864)/dV(5250) - JVRP(23562) = V(2111) -! JVRP(23563) = dARP(14865)/dV(2111) - JVRP(23563) = 1 -! JVRP(23564) = dARP(14866)/dV(644) - JVRP(23564) = 1 -! JVRP(23565) = dARP(14867)/dV(4362) - JVRP(23565) = V(5256) -! JVRP(23566) = dARP(14867)/dV(5256) - JVRP(23566) = V(4362) -! JVRP(23567) = dARP(14868)/dV(4362) - JVRP(23567) = V(5250) -! JVRP(23568) = dARP(14868)/dV(5250) - JVRP(23568) = V(4362) -! JVRP(23569) = dARP(14869)/dV(4362) - JVRP(23569) = 1 -! JVRP(23570) = dARP(14870)/dV(4362) - JVRP(23570) = 1 -! JVRP(23571) = dARP(14871)/dV(3355) - JVRP(23571) = V(5250) -! JVRP(23572) = dARP(14871)/dV(5250) - JVRP(23572) = V(3355) -! JVRP(23573) = dARP(14872)/dV(3355) - JVRP(23573) = 1 -! JVRP(23574) = dARP(14873)/dV(1344) - JVRP(23574) = V(5250) -! JVRP(23575) = dARP(14873)/dV(5250) - JVRP(23575) = V(1344) -! JVRP(23576) = dARP(14874)/dV(1344) - JVRP(23576) = 1 -! JVRP(23577) = dARP(14875)/dV(998) - JVRP(23577) = V(5250) -! JVRP(23578) = dARP(14875)/dV(5250) - JVRP(23578) = V(998) -! JVRP(23579) = dARP(14876)/dV(998) - JVRP(23579) = 1 -! JVRP(23580) = dARP(14877)/dV(4346) - JVRP(23580) = V(5255) -! JVRP(23581) = dARP(14877)/dV(5255) - JVRP(23581) = V(4346) -! JVRP(23582) = dARP(14878)/dV(4346) - JVRP(23582) = V(5252) -! JVRP(23583) = dARP(14878)/dV(5252) - JVRP(23583) = V(4346) -! JVRP(23584) = dARP(14879)/dV(4346) - JVRP(23584) = V(5256) -! JVRP(23585) = dARP(14879)/dV(5256) - JVRP(23585) = V(4346) -! JVRP(23586) = dARP(14880)/dV(4346) - JVRP(23586) = 1 -! JVRP(23587) = dARP(14881)/dV(4346) - JVRP(23587) = 1 -! JVRP(23588) = dARP(14882)/dV(4346) - JVRP(23588) = 1 -! JVRP(23589) = dARP(14883)/dV(2756) - JVRP(23589) = V(5250) -! JVRP(23590) = dARP(14883)/dV(5250) - JVRP(23590) = V(2756) -! JVRP(23591) = dARP(14884)/dV(2756) - JVRP(23591) = 1 -! JVRP(23592) = dARP(14885)/dV(827) - JVRP(23592) = V(5250) -! JVRP(23593) = dARP(14885)/dV(5250) - JVRP(23593) = V(827) -! JVRP(23594) = dARP(14886)/dV(827) - JVRP(23594) = 1 -! JVRP(23595) = dARP(14887)/dV(1408) - JVRP(23595) = V(5250) -! JVRP(23596) = dARP(14887)/dV(5250) - JVRP(23596) = V(1408) -! JVRP(23597) = dARP(14888)/dV(1408) - JVRP(23597) = 1 -! JVRP(23598) = dARP(14889)/dV(2980) - JVRP(23598) = V(5250) -! JVRP(23599) = dARP(14889)/dV(5250) - JVRP(23599) = V(2980) -! JVRP(23600) = dARP(14890)/dV(2980) - JVRP(23600) = 1 -! JVRP(23601) = dARP(14891)/dV(953) - JVRP(23601) = V(5250) -! JVRP(23602) = dARP(14891)/dV(5250) - JVRP(23602) = V(953) -! JVRP(23603) = dARP(14892)/dV(953) - JVRP(23603) = 1 -! JVRP(23604) = dARP(14893)/dV(1022) - JVRP(23604) = V(5250) -! JVRP(23605) = dARP(14893)/dV(5250) - JVRP(23605) = V(1022) -! JVRP(23606) = dARP(14894)/dV(1022) - JVRP(23606) = 1 -! JVRP(23607) = dARP(14895)/dV(3293) - JVRP(23607) = V(5250) -! JVRP(23608) = dARP(14895)/dV(5250) - JVRP(23608) = V(3293) -! JVRP(23609) = dARP(14896)/dV(3293) - JVRP(23609) = 1 -! JVRP(23610) = dARP(14897)/dV(1130) - JVRP(23610) = V(5250) -! JVRP(23611) = dARP(14897)/dV(5250) - JVRP(23611) = V(1130) -! JVRP(23612) = dARP(14898)/dV(1130) - JVRP(23612) = 1 -! JVRP(23613) = dARP(14899)/dV(1652) - JVRP(23613) = 1 -! JVRP(23614) = dARP(14900)/dV(3639) - JVRP(23614) = V(5250) -! JVRP(23615) = dARP(14900)/dV(5250) - JVRP(23615) = V(3639) -! JVRP(23616) = dARP(14901)/dV(3639) - JVRP(23616) = 1 -! JVRP(23617) = dARP(14902)/dV(725) - JVRP(23617) = V(5250) -! JVRP(23618) = dARP(14902)/dV(5250) - JVRP(23618) = V(725) -! JVRP(23619) = dARP(14903)/dV(725) - JVRP(23619) = 1 -! JVRP(23620) = dARP(14904)/dV(1757) - JVRP(23620) = V(5250) -! JVRP(23621) = dARP(14904)/dV(5250) - JVRP(23621) = V(1757) -! JVRP(23622) = dARP(14905)/dV(1757) - JVRP(23622) = 1 -! JVRP(23623) = dARP(14906)/dV(741) - JVRP(23623) = 1 -! JVRP(23624) = dARP(14907)/dV(1527) - JVRP(23624) = V(5250) -! JVRP(23625) = dARP(14907)/dV(5250) - JVRP(23625) = V(1527) -! JVRP(23626) = dARP(14908)/dV(1527) - JVRP(23626) = 1 -! JVRP(23627) = dARP(14909)/dV(2578) - JVRP(23627) = 1 -! JVRP(23628) = dARP(14910)/dV(530) - JVRP(23628) = V(5250) -! JVRP(23629) = dARP(14910)/dV(5250) - JVRP(23629) = V(530) -! JVRP(23630) = dARP(14911)/dV(5054) - JVRP(23630) = V(5255) -! JVRP(23631) = dARP(14911)/dV(5255) - JVRP(23631) = V(5054) -! JVRP(23632) = dARP(14912)/dV(5054) - JVRP(23632) = V(5255) -! JVRP(23633) = dARP(14912)/dV(5255) - JVRP(23633) = V(5054) -! JVRP(23634) = dARP(14913)/dV(5054) - JVRP(23634) = V(5255) -! JVRP(23635) = dARP(14913)/dV(5255) - JVRP(23635) = V(5054) -! JVRP(23636) = dARP(14914)/dV(5054) - JVRP(23636) = V(5252) -! JVRP(23637) = dARP(14914)/dV(5252) - JVRP(23637) = V(5054) -! JVRP(23638) = dARP(14915)/dV(5054) - JVRP(23638) = V(5253) -! JVRP(23639) = dARP(14915)/dV(5253) - JVRP(23639) = V(5054) -! JVRP(23640) = dARP(14916)/dV(5054) - JVRP(23640) = V(5256) -! JVRP(23641) = dARP(14916)/dV(5256) - JVRP(23641) = V(5054) -! JVRP(23642) = dARP(14917)/dV(5054) - JVRP(23642) = 1 -! JVRP(23643) = dARP(14918)/dV(5054) - JVRP(23643) = 1 -! JVRP(23644) = dARP(14919)/dV(4779) - JVRP(23644) = V(5255) -! JVRP(23645) = dARP(14919)/dV(5255) - JVRP(23645) = V(4779) -! JVRP(23646) = dARP(14920)/dV(4779) - JVRP(23646) = V(5252) -! JVRP(23647) = dARP(14920)/dV(5252) - JVRP(23647) = V(4779) -! JVRP(23648) = dARP(14921)/dV(4779) - JVRP(23648) = V(5256) -! JVRP(23649) = dARP(14921)/dV(5256) - JVRP(23649) = V(4779) -! JVRP(23650) = dARP(14922)/dV(4779) - JVRP(23650) = 1 -! JVRP(23651) = dARP(14923)/dV(4779) - JVRP(23651) = 1 -! JVRP(23652) = dARP(14924)/dV(1046) - JVRP(23652) = V(5250) -! JVRP(23653) = dARP(14924)/dV(5250) - JVRP(23653) = V(1046) -! JVRP(23654) = dARP(14925)/dV(1046) - JVRP(23654) = 1 -! JVRP(23655) = dARP(14926)/dV(1912) - JVRP(23655) = V(5250) -! JVRP(23656) = dARP(14926)/dV(5250) - JVRP(23656) = V(1912) -! JVRP(23657) = dARP(14927)/dV(2931) - JVRP(23657) = 1 -! JVRP(23658) = dARP(14928)/dV(690) - JVRP(23658) = V(5250) -! JVRP(23659) = dARP(14928)/dV(5250) - JVRP(23659) = V(690) -! JVRP(23660) = dARP(14929)/dV(1439) - JVRP(23660) = V(5250) -! JVRP(23661) = dARP(14929)/dV(5250) - JVRP(23661) = V(1439) -! JVRP(23662) = dARP(14930)/dV(1439) - JVRP(23662) = 1 -! JVRP(23663) = dARP(14931)/dV(1786) - JVRP(23663) = V(5250) -! JVRP(23664) = dARP(14931)/dV(5250) - JVRP(23664) = V(1786) -! JVRP(23665) = dARP(14932)/dV(1786) - JVRP(23665) = 1 -! JVRP(23666) = dARP(14933)/dV(3430) - JVRP(23666) = 1 -! JVRP(23667) = dARP(14934)/dV(3430) - JVRP(23667) = 1 -! JVRP(23668) = dARP(14935)/dV(3642) - JVRP(23668) = V(5250) -! JVRP(23669) = dARP(14935)/dV(5250) - JVRP(23669) = V(3642) -! JVRP(23670) = dARP(14936)/dV(3642) - JVRP(23670) = 1 -! JVRP(23671) = dARP(14937)/dV(390) - JVRP(23671) = V(5250) -! JVRP(23672) = dARP(14937)/dV(5250) - JVRP(23672) = V(390) -! JVRP(23673) = dARP(14938)/dV(1019) - JVRP(23673) = V(5250) -! JVRP(23674) = dARP(14938)/dV(5250) - JVRP(23674) = V(1019) -! JVRP(23675) = dARP(14939)/dV(1019) - JVRP(23675) = 1 -! JVRP(23676) = dARP(14940)/dV(2894) - JVRP(23676) = 1 -! JVRP(23677) = dARP(14941)/dV(2209) - JVRP(23677) = V(5250) -! JVRP(23678) = dARP(14941)/dV(5250) - JVRP(23678) = V(2209) -! JVRP(23679) = dARP(14942)/dV(2209) - JVRP(23679) = 1 -! JVRP(23680) = dARP(14943)/dV(482) - JVRP(23680) = V(5250) -! JVRP(23681) = dARP(14943)/dV(5250) - JVRP(23681) = V(482) -! JVRP(23682) = dARP(14944)/dV(4226) - JVRP(23682) = V(5255) -! JVRP(23683) = dARP(14944)/dV(5255) - JVRP(23683) = V(4226) -! JVRP(23684) = dARP(14945)/dV(4226) - JVRP(23684) = V(5252) -! JVRP(23685) = dARP(14945)/dV(5252) - JVRP(23685) = V(4226) -! JVRP(23686) = dARP(14946)/dV(4226) - JVRP(23686) = V(5256) -! JVRP(23687) = dARP(14946)/dV(5256) - JVRP(23687) = V(4226) -! JVRP(23688) = dARP(14947)/dV(4226) - JVRP(23688) = 1 -! JVRP(23689) = dARP(14948)/dV(4226) - JVRP(23689) = 1 -! JVRP(23690) = dARP(14949)/dV(4226) - JVRP(23690) = 1 -! JVRP(23691) = dARP(14950)/dV(826) - JVRP(23691) = V(5250) -! JVRP(23692) = dARP(14950)/dV(5250) - JVRP(23692) = V(826) -! JVRP(23693) = dARP(14951)/dV(826) - JVRP(23693) = 1 -! JVRP(23694) = dARP(14952)/dV(2257) - JVRP(23694) = V(5250) -! JVRP(23695) = dARP(14952)/dV(5250) - JVRP(23695) = V(2257) -! JVRP(23696) = dARP(14953)/dV(2257) - JVRP(23696) = 1 -! JVRP(23697) = dARP(14954)/dV(290) - JVRP(23697) = 1 -! JVRP(23698) = dARP(14955)/dV(83) - JVRP(23698) = V(5250) -! JVRP(23699) = dARP(14955)/dV(5250) - JVRP(23699) = V(83) -! JVRP(23700) = dARP(14956)/dV(4136) - JVRP(23700) = V(5255) -! JVRP(23701) = dARP(14956)/dV(5255) - JVRP(23701) = V(4136) -! JVRP(23702) = dARP(14957)/dV(4136) - JVRP(23702) = V(5252) -! JVRP(23703) = dARP(14957)/dV(5252) - JVRP(23703) = V(4136) -! JVRP(23704) = dARP(14958)/dV(4136) - JVRP(23704) = V(5256) -! JVRP(23705) = dARP(14958)/dV(5256) - JVRP(23705) = V(4136) -! JVRP(23706) = dARP(14959)/dV(4136) - JVRP(23706) = 1 -! JVRP(23707) = dARP(14960)/dV(4136) - JVRP(23707) = 1 -! JVRP(23708) = dARP(14961)/dV(4136) - JVRP(23708) = 1 -! JVRP(23709) = dARP(14962)/dV(4115) - JVRP(23709) = V(5255) -! JVRP(23710) = dARP(14962)/dV(5255) - JVRP(23710) = V(4115) -! JVRP(23711) = dARP(14963)/dV(4115) - JVRP(23711) = V(5252) -! JVRP(23712) = dARP(14963)/dV(5252) - JVRP(23712) = V(4115) -! JVRP(23713) = dARP(14964)/dV(4115) - JVRP(23713) = V(5256) -! JVRP(23714) = dARP(14964)/dV(5256) - JVRP(23714) = V(4115) -! JVRP(23715) = dARP(14965)/dV(4115) - JVRP(23715) = 1 -! JVRP(23716) = dARP(14966)/dV(414) - JVRP(23716) = V(5250) -! JVRP(23717) = dARP(14966)/dV(5250) - JVRP(23717) = V(414) -! JVRP(23718) = dARP(14967)/dV(414) - JVRP(23718) = 1 -! JVRP(23719) = dARP(14968)/dV(760) - JVRP(23719) = 1 -! JVRP(23720) = dARP(14969)/dV(60) - JVRP(23720) = V(5250) -! JVRP(23721) = dARP(14969)/dV(5250) - JVRP(23721) = V(60) -! JVRP(23722) = dARP(14970)/dV(1077) - JVRP(23722) = V(5250) -! JVRP(23723) = dARP(14970)/dV(5250) - JVRP(23723) = V(1077) -! JVRP(23724) = dARP(14971)/dV(1077) - JVRP(23724) = 1 -! JVRP(23725) = dARP(14972)/dV(2303) - JVRP(23725) = V(5250) -! JVRP(23726) = dARP(14972)/dV(5250) - JVRP(23726) = V(2303) -! JVRP(23727) = dARP(14973)/dV(2303) - JVRP(23727) = 1 -! JVRP(23728) = dARP(14974)/dV(2304) - JVRP(23728) = 1 -! JVRP(23729) = dARP(14975)/dV(357) - JVRP(23729) = V(5250) -! JVRP(23730) = dARP(14975)/dV(5250) - JVRP(23730) = V(357) -! JVRP(23731) = dARP(14976)/dV(4525) - JVRP(23731) = V(5255) -! JVRP(23732) = dARP(14976)/dV(5255) - JVRP(23732) = V(4525) -! JVRP(23733) = dARP(14977)/dV(4525) - JVRP(23733) = V(5255) -! JVRP(23734) = dARP(14977)/dV(5255) - JVRP(23734) = V(4525) -! JVRP(23735) = dARP(14978)/dV(4525) - JVRP(23735) = V(5252) -! JVRP(23736) = dARP(14978)/dV(5252) - JVRP(23736) = V(4525) -! JVRP(23737) = dARP(14979)/dV(4525) - JVRP(23737) = V(5253) -! JVRP(23738) = dARP(14979)/dV(5253) - JVRP(23738) = V(4525) -! JVRP(23739) = dARP(14980)/dV(4525) - JVRP(23739) = V(5256) -! JVRP(23740) = dARP(14980)/dV(5256) - JVRP(23740) = V(4525) -! JVRP(23741) = dARP(14981)/dV(4525) - JVRP(23741) = 1 -! JVRP(23742) = dARP(14982)/dV(4477) - JVRP(23742) = V(5255) -! JVRP(23743) = dARP(14982)/dV(5255) - JVRP(23743) = V(4477) -! JVRP(23744) = dARP(14983)/dV(4477) - JVRP(23744) = V(5252) -! JVRP(23745) = dARP(14983)/dV(5252) - JVRP(23745) = V(4477) -! JVRP(23746) = dARP(14984)/dV(4477) - JVRP(23746) = V(5256) -! JVRP(23747) = dARP(14984)/dV(5256) - JVRP(23747) = V(4477) -! JVRP(23748) = dARP(14985)/dV(4477) - JVRP(23748) = 1 -! JVRP(23749) = dARP(14986)/dV(4820) - JVRP(23749) = V(5255) -! JVRP(23750) = dARP(14986)/dV(5255) - JVRP(23750) = V(4820) -! JVRP(23751) = dARP(14987)/dV(4820) - JVRP(23751) = V(5252) -! JVRP(23752) = dARP(14987)/dV(5252) - JVRP(23752) = V(4820) -! JVRP(23753) = dARP(14988)/dV(4820) - JVRP(23753) = V(5256) -! JVRP(23754) = dARP(14988)/dV(5256) - JVRP(23754) = V(4820) -! JVRP(23755) = dARP(14989)/dV(4820) - JVRP(23755) = 1 -! JVRP(23756) = dARP(14990)/dV(4820) - JVRP(23756) = 1 -! JVRP(23757) = dARP(14991)/dV(4820) - JVRP(23757) = 1 -! JVRP(23758) = dARP(14992)/dV(2142) - JVRP(23758) = V(5250) -! JVRP(23759) = dARP(14992)/dV(5250) - JVRP(23759) = V(2142) -! JVRP(23760) = dARP(14993)/dV(2142) - JVRP(23760) = 1 -! JVRP(23761) = dARP(14994)/dV(2530) - JVRP(23761) = V(5250) -! JVRP(23762) = dARP(14994)/dV(5250) - JVRP(23762) = V(2530) -! JVRP(23763) = dARP(14995)/dV(2530) - JVRP(23763) = 1 -! JVRP(23764) = dARP(14996)/dV(3874) - JVRP(23764) = V(5255) -! JVRP(23765) = dARP(14996)/dV(5255) - JVRP(23765) = V(3874) -! JVRP(23766) = dARP(14997)/dV(3874) - JVRP(23766) = V(5252) -! JVRP(23767) = dARP(14997)/dV(5252) - JVRP(23767) = V(3874) -! JVRP(23768) = dARP(14998)/dV(3874) - JVRP(23768) = V(5256) -! JVRP(23769) = dARP(14998)/dV(5256) - JVRP(23769) = V(3874) -! JVRP(23770) = dARP(14999)/dV(3874) - JVRP(23770) = 1 -! JVRP(23771) = dARP(15000)/dV(3724) - JVRP(23771) = V(5255) -! JVRP(23772) = dARP(15000)/dV(5255) - JVRP(23772) = V(3724) -! JVRP(23773) = dARP(15001)/dV(3724) - JVRP(23773) = V(5252) -! JVRP(23774) = dARP(15001)/dV(5252) - JVRP(23774) = V(3724) -! JVRP(23775) = dARP(15002)/dV(3724) - JVRP(23775) = V(5256) -! JVRP(23776) = dARP(15002)/dV(5256) - JVRP(23776) = V(3724) -! JVRP(23777) = dARP(15003)/dV(3724) - JVRP(23777) = 1 -! JVRP(23778) = dARP(15004)/dV(4520) - JVRP(23778) = V(5255) -! JVRP(23779) = dARP(15004)/dV(5255) - JVRP(23779) = V(4520) -! JVRP(23780) = dARP(15005)/dV(4520) - JVRP(23780) = V(5255) -! JVRP(23781) = dARP(15005)/dV(5255) - JVRP(23781) = V(4520) -! JVRP(23782) = dARP(15006)/dV(4520) - JVRP(23782) = V(5252) -! JVRP(23783) = dARP(15006)/dV(5252) - JVRP(23783) = V(4520) -! JVRP(23784) = dARP(15007)/dV(4520) - JVRP(23784) = V(5253) -! JVRP(23785) = dARP(15007)/dV(5253) - JVRP(23785) = V(4520) -! JVRP(23786) = dARP(15008)/dV(4520) - JVRP(23786) = V(5256) -! JVRP(23787) = dARP(15008)/dV(5256) - JVRP(23787) = V(4520) -! JVRP(23788) = dARP(15009)/dV(4520) - JVRP(23788) = 1 -! JVRP(23789) = dARP(15010)/dV(4465) - JVRP(23789) = V(5255) -! JVRP(23790) = dARP(15010)/dV(5255) - JVRP(23790) = V(4465) -! JVRP(23791) = dARP(15011)/dV(4465) - JVRP(23791) = V(5252) -! JVRP(23792) = dARP(15011)/dV(5252) - JVRP(23792) = V(4465) -! JVRP(23793) = dARP(15012)/dV(4465) - JVRP(23793) = V(5256) -! JVRP(23794) = dARP(15012)/dV(5256) - JVRP(23794) = V(4465) -! JVRP(23795) = dARP(15013)/dV(4465) - JVRP(23795) = 1 -! JVRP(23796) = dARP(15014)/dV(1538) - JVRP(23796) = V(5250) -! JVRP(23797) = dARP(15014)/dV(5250) - JVRP(23797) = V(1538) -! JVRP(23798) = dARP(15015)/dV(1538) - JVRP(23798) = 1 -! JVRP(23799) = dARP(15016)/dV(3041) - JVRP(23799) = 1 -! JVRP(23800) = dARP(15017)/dV(559) - JVRP(23800) = V(5250) -! JVRP(23801) = dARP(15017)/dV(5250) - JVRP(23801) = V(559) -! JVRP(23802) = dARP(15018)/dV(559) - JVRP(23802) = 1 -! JVRP(23803) = dARP(15019)/dV(4853) - JVRP(23803) = V(5255) -! JVRP(23804) = dARP(15019)/dV(5255) - JVRP(23804) = V(4853) -! JVRP(23805) = dARP(15020)/dV(4853) - JVRP(23805) = V(5255) -! JVRP(23806) = dARP(15020)/dV(5255) - JVRP(23806) = V(4853) -! JVRP(23807) = dARP(15021)/dV(4853) - JVRP(23807) = V(5255) -! JVRP(23808) = dARP(15021)/dV(5255) - JVRP(23808) = V(4853) -! JVRP(23809) = dARP(15022)/dV(4853) - JVRP(23809) = V(5252) -! JVRP(23810) = dARP(15022)/dV(5252) - JVRP(23810) = V(4853) -! JVRP(23811) = dARP(15023)/dV(4853) - JVRP(23811) = V(5253) -! JVRP(23812) = dARP(15023)/dV(5253) - JVRP(23812) = V(4853) -! JVRP(23813) = dARP(15024)/dV(4853) - JVRP(23813) = V(5256) -! JVRP(23814) = dARP(15024)/dV(5256) - JVRP(23814) = V(4853) -! JVRP(23815) = dARP(15025)/dV(4853) - JVRP(23815) = 1 -! JVRP(23816) = dARP(15026)/dV(4853) - JVRP(23816) = 1 -! JVRP(23817) = dARP(15027)/dV(433) - JVRP(23817) = V(5250) -! JVRP(23818) = dARP(15027)/dV(5250) - JVRP(23818) = V(433) -! JVRP(23819) = dARP(15028)/dV(1347) - JVRP(23819) = V(5250) -! JVRP(23820) = dARP(15028)/dV(5250) - JVRP(23820) = V(1347) -! JVRP(23821) = dARP(15029)/dV(1347) - JVRP(23821) = 1 -! JVRP(23822) = dARP(15030)/dV(4116) - JVRP(23822) = V(5255) -! JVRP(23823) = dARP(15030)/dV(5255) - JVRP(23823) = V(4116) -! JVRP(23824) = dARP(15031)/dV(4116) - JVRP(23824) = V(5252) -! JVRP(23825) = dARP(15031)/dV(5252) - JVRP(23825) = V(4116) -! JVRP(23826) = dARP(15032)/dV(4116) - JVRP(23826) = V(5256) -! JVRP(23827) = dARP(15032)/dV(5256) - JVRP(23827) = V(4116) -! JVRP(23828) = dARP(15033)/dV(4116) - JVRP(23828) = 1 -! JVRP(23829) = dARP(15034)/dV(4116) - JVRP(23829) = 1 -! JVRP(23830) = dARP(15035)/dV(4116) - JVRP(23830) = 1 -! JVRP(23831) = dARP(15036)/dV(2703) - JVRP(23831) = V(5250) -! JVRP(23832) = dARP(15036)/dV(5250) - JVRP(23832) = V(2703) -! JVRP(23833) = dARP(15037)/dV(2703) - JVRP(23833) = 1 -! JVRP(23834) = dARP(15038)/dV(3480) - JVRP(23834) = V(5250) -! JVRP(23835) = dARP(15038)/dV(5250) - JVRP(23835) = V(3480) -! JVRP(23836) = dARP(15039)/dV(3480) - JVRP(23836) = 1 -! JVRP(23837) = dARP(15040)/dV(3480) - JVRP(23837) = 1 -! JVRP(23838) = dARP(15041)/dV(3480) - JVRP(23838) = 1 -! JVRP(23839) = dARP(15042)/dV(3615) - JVRP(23839) = 1 -! JVRP(23840) = dARP(15043)/dV(3615) - JVRP(23840) = 1 -! JVRP(23841) = dARP(15044)/dV(2483) - JVRP(23841) = V(5250) -! JVRP(23842) = dARP(15044)/dV(5250) - JVRP(23842) = V(2483) -! JVRP(23843) = dARP(15045)/dV(2483) - JVRP(23843) = 1 -! JVRP(23844) = dARP(15046)/dV(2483) - JVRP(23844) = 1 -! JVRP(23845) = dARP(15047)/dV(4343) - JVRP(23845) = V(5255) -! JVRP(23846) = dARP(15047)/dV(5255) - JVRP(23846) = V(4343) -! JVRP(23847) = dARP(15048)/dV(4343) - JVRP(23847) = V(5252) -! JVRP(23848) = dARP(15048)/dV(5252) - JVRP(23848) = V(4343) -! JVRP(23849) = dARP(15049)/dV(4343) - JVRP(23849) = V(5256) -! JVRP(23850) = dARP(15049)/dV(5256) - JVRP(23850) = V(4343) -! JVRP(23851) = dARP(15050)/dV(4343) - JVRP(23851) = 1 -! JVRP(23852) = dARP(15051)/dV(4343) - JVRP(23852) = 1 -! JVRP(23853) = dARP(15052)/dV(1890) - JVRP(23853) = V(5250) -! JVRP(23854) = dARP(15052)/dV(5250) - JVRP(23854) = V(1890) -! JVRP(23855) = dARP(15053)/dV(1890) - JVRP(23855) = 1 -! JVRP(23856) = dARP(15054)/dV(537) - JVRP(23856) = 1 -! JVRP(23857) = dARP(15055)/dV(1257) - JVRP(23857) = V(5250) -! JVRP(23858) = dARP(15055)/dV(5250) - JVRP(23858) = V(1257) -! JVRP(23859) = dARP(15056)/dV(1257) - JVRP(23859) = 1 -! JVRP(23860) = dARP(15057)/dV(368) - JVRP(23860) = V(5250) -! JVRP(23861) = dARP(15057)/dV(5250) - JVRP(23861) = V(368) -! JVRP(23862) = dARP(15058)/dV(2856) - JVRP(23862) = V(5250) -! JVRP(23863) = dARP(15058)/dV(5250) - JVRP(23863) = V(2856) -! JVRP(23864) = dARP(15059)/dV(3882) - JVRP(23864) = V(5255) -! JVRP(23865) = dARP(15059)/dV(5255) - JVRP(23865) = V(3882) -! JVRP(23866) = dARP(15060)/dV(3882) - JVRP(23866) = V(5252) -! JVRP(23867) = dARP(15060)/dV(5252) - JVRP(23867) = V(3882) -! JVRP(23868) = dARP(15061)/dV(3882) - JVRP(23868) = V(5252) -! JVRP(23869) = dARP(15061)/dV(5252) - JVRP(23869) = V(3882) -! JVRP(23870) = dARP(15062)/dV(3882) - JVRP(23870) = V(5256) -! JVRP(23871) = dARP(15062)/dV(5256) - JVRP(23871) = V(3882) -! JVRP(23872) = dARP(15063)/dV(3882) - JVRP(23872) = 1 -! JVRP(23873) = dARP(15064)/dV(3882) - JVRP(23873) = 1 -! JVRP(23874) = dARP(15065)/dV(3882) - JVRP(23874) = 1 -! JVRP(23875) = dARP(15066)/dV(1793) - JVRP(23875) = V(5250) -! JVRP(23876) = dARP(15066)/dV(5250) - JVRP(23876) = V(1793) -! JVRP(23877) = dARP(15067)/dV(1793) - JVRP(23877) = 1 -! JVRP(23878) = dARP(15068)/dV(802) - JVRP(23878) = 1 -! JVRP(23879) = dARP(15069)/dV(1678) - JVRP(23879) = V(5250) -! JVRP(23880) = dARP(15069)/dV(5250) - JVRP(23880) = V(1678) -! JVRP(23881) = dARP(15070)/dV(1678) - JVRP(23881) = 1 -! JVRP(23882) = dARP(15071)/dV(858) - JVRP(23882) = V(5250) -! JVRP(23883) = dARP(15071)/dV(5250) - JVRP(23883) = V(858) -! JVRP(23884) = dARP(15072)/dV(858) - JVRP(23884) = 1 -! JVRP(23885) = dARP(15073)/dV(3062) - JVRP(23885) = 1 -! JVRP(23886) = dARP(15074)/dV(1154) - JVRP(23886) = V(5250) -! JVRP(23887) = dARP(15074)/dV(5250) - JVRP(23887) = V(1154) -! JVRP(23888) = dARP(15075)/dV(1154) - JVRP(23888) = 1 -! JVRP(23889) = dARP(15076)/dV(2567) - JVRP(23889) = V(5250) -! JVRP(23890) = dARP(15076)/dV(5250) - JVRP(23890) = V(2567) -! JVRP(23891) = dARP(15077)/dV(2567) - JVRP(23891) = 1 -! JVRP(23892) = dARP(15078)/dV(2153) - JVRP(23892) = V(5250) -! JVRP(23893) = dARP(15078)/dV(5250) - JVRP(23893) = V(2153) -! JVRP(23894) = dARP(15079)/dV(2153) - JVRP(23894) = V(5250) -! JVRP(23895) = dARP(15079)/dV(5250) - JVRP(23895) = V(2153) -! JVRP(23896) = dARP(15080)/dV(2153) - JVRP(23896) = 1 -! JVRP(23897) = dARP(15081)/dV(643) - JVRP(23897) = 1 -! JVRP(23898) = dARP(15082)/dV(2300) - JVRP(23898) = V(5250) -! JVRP(23899) = dARP(15082)/dV(5250) - JVRP(23899) = V(2300) -! JVRP(23900) = dARP(15083)/dV(2300) - JVRP(23900) = 1 -! JVRP(23901) = dARP(15084)/dV(695) - JVRP(23901) = 1 -! JVRP(23902) = dARP(15085)/dV(2680) - JVRP(23902) = V(5250) -! JVRP(23903) = dARP(15085)/dV(5250) - JVRP(23903) = V(2680) -! JVRP(23904) = dARP(15086)/dV(2680) - JVRP(23904) = 1 -! JVRP(23905) = dARP(15087)/dV(500) - JVRP(23905) = V(5250) -! JVRP(23906) = dARP(15087)/dV(5250) - JVRP(23906) = V(500) -! JVRP(23907) = dARP(15088)/dV(1544) - JVRP(23907) = 1 -! JVRP(23908) = dARP(15089)/dV(1544) - JVRP(23908) = V(5250) -! JVRP(23909) = dARP(15089)/dV(5250) - JVRP(23909) = V(1544) -! JVRP(23910) = dARP(15090)/dV(3410) - JVRP(23910) = 1 -! JVRP(23911) = dARP(15091)/dV(2450) - JVRP(23911) = V(5250) -! JVRP(23912) = dARP(15091)/dV(5250) - JVRP(23912) = V(2450) -! JVRP(23913) = dARP(15092)/dV(2450) - JVRP(23913) = 1 -! JVRP(23914) = dARP(15093)/dV(733) - JVRP(23914) = 1 -! JVRP(23915) = dARP(15094)/dV(1219) - JVRP(23915) = V(5250) -! JVRP(23916) = dARP(15094)/dV(5250) - JVRP(23916) = V(1219) -! JVRP(23917) = dARP(15095)/dV(1219) - JVRP(23917) = 1 -! JVRP(23918) = dARP(15096)/dV(2729) - JVRP(23918) = V(5250) -! JVRP(23919) = dARP(15096)/dV(5250) - JVRP(23919) = V(2729) -! JVRP(23920) = dARP(15097)/dV(2729) - JVRP(23920) = 1 -! JVRP(23921) = dARP(15098)/dV(1116) - JVRP(23921) = V(5250) -! JVRP(23922) = dARP(15098)/dV(5250) - JVRP(23922) = V(1116) -! JVRP(23923) = dARP(15099)/dV(1116) - JVRP(23923) = 1 -! JVRP(23924) = dARP(15100)/dV(2607) - JVRP(23924) = 1 -! JVRP(23925) = dARP(15101)/dV(3960) - JVRP(23925) = V(5256) -! JVRP(23926) = dARP(15101)/dV(5256) - JVRP(23926) = V(3960) -! JVRP(23927) = dARP(15102)/dV(3960) - JVRP(23927) = V(5250) -! JVRP(23928) = dARP(15102)/dV(5250) - JVRP(23928) = V(3960) -! JVRP(23929) = dARP(15103)/dV(3960) - JVRP(23929) = 1 -! JVRP(23930) = dARP(15104)/dV(903) - JVRP(23930) = V(5250) -! JVRP(23931) = dARP(15104)/dV(5250) - JVRP(23931) = V(903) -! JVRP(23932) = dARP(15105)/dV(903) - JVRP(23932) = 1 -! JVRP(23933) = dARP(15106)/dV(824) - JVRP(23933) = V(5250) -! JVRP(23934) = dARP(15106)/dV(5250) - JVRP(23934) = V(824) -! JVRP(23935) = dARP(15107)/dV(824) - JVRP(23935) = 1 -! JVRP(23936) = dARP(15108)/dV(2864) - JVRP(23936) = V(5250) -! JVRP(23937) = dARP(15108)/dV(5250) - JVRP(23937) = V(2864) -! JVRP(23938) = dARP(15109)/dV(2864) - JVRP(23938) = 1 -! JVRP(23939) = dARP(15110)/dV(2437) - JVRP(23939) = V(5250) -! JVRP(23940) = dARP(15110)/dV(5250) - JVRP(23940) = V(2437) -! JVRP(23941) = dARP(15111)/dV(2437) - JVRP(23941) = 1 -! JVRP(23942) = dARP(15112)/dV(2437) - JVRP(23942) = 1 -! JVRP(23943) = dARP(15113)/dV(544) - JVRP(23943) = 1 -! JVRP(23944) = dARP(15114)/dV(1926) - JVRP(23944) = V(5250) -! JVRP(23945) = dARP(15114)/dV(5250) - JVRP(23945) = V(1926) -! JVRP(23946) = dARP(15115)/dV(1926) - JVRP(23946) = 1 -! JVRP(23947) = dARP(15116)/dV(1926) - JVRP(23947) = 1 -! JVRP(23948) = dARP(15117)/dV(648) - JVRP(23948) = 1 -! JVRP(23949) = dARP(15118)/dV(567) - JVRP(23949) = V(5250) -! JVRP(23950) = dARP(15118)/dV(5250) - JVRP(23950) = V(567) -! JVRP(23951) = dARP(15119)/dV(567) - JVRP(23951) = 1 -! JVRP(23952) = dARP(15120)/dV(1505) - JVRP(23952) = V(5250) -! JVRP(23953) = dARP(15120)/dV(5250) - JVRP(23953) = V(1505) -! JVRP(23954) = dARP(15121)/dV(1505) - JVRP(23954) = 1 -! JVRP(23955) = dARP(15122)/dV(2855) - JVRP(23955) = V(5250) -! JVRP(23956) = dARP(15122)/dV(5250) - JVRP(23956) = V(2855) -! JVRP(23957) = dARP(15123)/dV(2855) - JVRP(23957) = 1 -! JVRP(23958) = dARP(15124)/dV(2226) - JVRP(23958) = 1 -! JVRP(23959) = dARP(15125)/dV(296) - JVRP(23959) = V(5250) -! JVRP(23960) = dARP(15125)/dV(5250) - JVRP(23960) = V(296) -! JVRP(23961) = dARP(15126)/dV(3958) - JVRP(23961) = V(5250) -! JVRP(23962) = dARP(15126)/dV(5250) - JVRP(23962) = V(3958) -! JVRP(23963) = dARP(15127)/dV(3958) - JVRP(23963) = 1 -! JVRP(23964) = dARP(15128)/dV(3633) - JVRP(23964) = V(5256) -! JVRP(23965) = dARP(15128)/dV(5256) - JVRP(23965) = V(3633) -! JVRP(23966) = dARP(15129)/dV(3633) - JVRP(23966) = V(5250) -! JVRP(23967) = dARP(15129)/dV(5250) - JVRP(23967) = V(3633) -! JVRP(23968) = dARP(15130)/dV(3633) - JVRP(23968) = 1 -! JVRP(23969) = dARP(15131)/dV(4686) - JVRP(23969) = V(5255) -! JVRP(23970) = dARP(15131)/dV(5255) - JVRP(23970) = V(4686) -! JVRP(23971) = dARP(15132)/dV(4686) - JVRP(23971) = V(5255) -! JVRP(23972) = dARP(15132)/dV(5255) - JVRP(23972) = V(4686) -! JVRP(23973) = dARP(15133)/dV(4686) - JVRP(23973) = V(5252) -! JVRP(23974) = dARP(15133)/dV(5252) - JVRP(23974) = V(4686) -! JVRP(23975) = dARP(15134)/dV(4686) - JVRP(23975) = V(5253) -! JVRP(23976) = dARP(15134)/dV(5253) - JVRP(23976) = V(4686) -! JVRP(23977) = dARP(15135)/dV(4686) - JVRP(23977) = V(5256) -! JVRP(23978) = dARP(15135)/dV(5256) - JVRP(23978) = V(4686) -! JVRP(23979) = dARP(15136)/dV(4686) - JVRP(23979) = 1 -! JVRP(23980) = dARP(15137)/dV(4687) - JVRP(23980) = V(5255) -! JVRP(23981) = dARP(15137)/dV(5255) - JVRP(23981) = V(4687) -! JVRP(23982) = dARP(15138)/dV(4687) - JVRP(23982) = V(5252) -! JVRP(23983) = dARP(15138)/dV(5252) - JVRP(23983) = V(4687) -! JVRP(23984) = dARP(15139)/dV(4687) - JVRP(23984) = V(5256) -! JVRP(23985) = dARP(15139)/dV(5256) - JVRP(23985) = V(4687) -! JVRP(23986) = dARP(15140)/dV(4687) - JVRP(23986) = 1 -! JVRP(23987) = dARP(15141)/dV(4687) - JVRP(23987) = 1 -! JVRP(23988) = dARP(15142)/dV(4687) - JVRP(23988) = 1 -! JVRP(23989) = dARP(15143)/dV(4456) - JVRP(23989) = V(5255) -! JVRP(23990) = dARP(15143)/dV(5255) - JVRP(23990) = V(4456) -! JVRP(23991) = dARP(15144)/dV(4456) - JVRP(23991) = V(5255) -! JVRP(23992) = dARP(15144)/dV(5255) - JVRP(23992) = V(4456) -! JVRP(23993) = dARP(15145)/dV(4456) - JVRP(23993) = V(5252) -! JVRP(23994) = dARP(15145)/dV(5252) - JVRP(23994) = V(4456) -! JVRP(23995) = dARP(15146)/dV(4456) - JVRP(23995) = V(5253) -! JVRP(23996) = dARP(15146)/dV(5253) - JVRP(23996) = V(4456) -! JVRP(23997) = dARP(15147)/dV(4456) - JVRP(23997) = V(5256) -! JVRP(23998) = dARP(15147)/dV(5256) - JVRP(23998) = V(4456) -! JVRP(23999) = dARP(15148)/dV(4456) - JVRP(23999) = 1 -! JVRP(24000) = dARP(15149)/dV(4503) - JVRP(24000) = V(5255) -! JVRP(24001) = dARP(15149)/dV(5255) - JVRP(24001) = V(4503) -! JVRP(24002) = dARP(15150)/dV(4503) - JVRP(24002) = V(5252) -! JVRP(24003) = dARP(15150)/dV(5252) - JVRP(24003) = V(4503) -! JVRP(24004) = dARP(15151)/dV(4503) - JVRP(24004) = V(5256) -! JVRP(24005) = dARP(15151)/dV(5256) - JVRP(24005) = V(4503) -! JVRP(24006) = dARP(15152)/dV(4503) - JVRP(24006) = 1 -! JVRP(24007) = dARP(15153)/dV(1474) - JVRP(24007) = V(5250) -! JVRP(24008) = dARP(15153)/dV(5250) - JVRP(24008) = V(1474) -! JVRP(24009) = dARP(15154)/dV(1474) - JVRP(24009) = 1 -! JVRP(24010) = dARP(15155)/dV(2779) - JVRP(24010) = V(5250) -! JVRP(24011) = dARP(15155)/dV(5250) - JVRP(24011) = V(2779) -! JVRP(24012) = dARP(15156)/dV(2779) - JVRP(24012) = 1 -! JVRP(24013) = dARP(15157)/dV(1956) - JVRP(24013) = V(5250) -! JVRP(24014) = dARP(15157)/dV(5250) - JVRP(24014) = V(1956) -! JVRP(24015) = dARP(15158)/dV(1956) - JVRP(24015) = V(5250) -! JVRP(24016) = dARP(15158)/dV(5250) - JVRP(24016) = V(1956) -! JVRP(24017) = dARP(15159)/dV(1956) - JVRP(24017) = 1 -! JVRP(24018) = dARP(15160)/dV(115) - JVRP(24018) = 1 -! JVRP(24019) = dARP(15161)/dV(352) - JVRP(24019) = V(5250) -! JVRP(24020) = dARP(15161)/dV(5250) - JVRP(24020) = V(352) -! JVRP(24021) = dARP(15162)/dV(3604) - JVRP(24021) = V(5250) -! JVRP(24022) = dARP(15162)/dV(5250) - JVRP(24022) = V(3604) -! JVRP(24023) = dARP(15163)/dV(3604) - JVRP(24023) = 1 -! JVRP(24024) = dARP(15164)/dV(1461) - JVRP(24024) = V(5250) -! JVRP(24025) = dARP(15164)/dV(5250) - JVRP(24025) = V(1461) -! JVRP(24026) = dARP(15165)/dV(1461) - JVRP(24026) = 1 -! JVRP(24027) = dARP(15166)/dV(2619) - JVRP(24027) = V(5250) -! JVRP(24028) = dARP(15166)/dV(5250) - JVRP(24028) = V(2619) -! JVRP(24029) = dARP(15167)/dV(2619) - JVRP(24029) = 1 -! JVRP(24030) = dARP(15168)/dV(940) - JVRP(24030) = V(5250) -! JVRP(24031) = dARP(15168)/dV(5250) - JVRP(24031) = V(940) -! JVRP(24032) = dARP(15169)/dV(940) - JVRP(24032) = 1 -! JVRP(24033) = dARP(15170)/dV(2968) - JVRP(24033) = 1 -! JVRP(24034) = dARP(15171)/dV(4543) - JVRP(24034) = V(5255) -! JVRP(24035) = dARP(15171)/dV(5255) - JVRP(24035) = V(4543) -! JVRP(24036) = dARP(15172)/dV(4543) - JVRP(24036) = V(5252) -! JVRP(24037) = dARP(15172)/dV(5252) - JVRP(24037) = V(4543) -! JVRP(24038) = dARP(15173)/dV(4543) - JVRP(24038) = V(5256) -! JVRP(24039) = dARP(15173)/dV(5256) - JVRP(24039) = V(4543) -! JVRP(24040) = dARP(15174)/dV(4543) - JVRP(24040) = 1 -! JVRP(24041) = dARP(15175)/dV(866) - JVRP(24041) = V(5250) -! JVRP(24042) = dARP(15175)/dV(5250) - JVRP(24042) = V(866) -! JVRP(24043) = dARP(15176)/dV(866) - JVRP(24043) = 1 -! JVRP(24044) = dARP(15177)/dV(2788) - JVRP(24044) = 1 - -END SUBROUTINE JacReactantProd - -! End of JacReactantProd function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! Begin Derivative w.r.t. Rate Coefficients - -! ------------------------------------------------------------------------------ -! Subroutine for the derivative of Fun with respect to rate coefficients -! ----------------------------------------------------------------------------- - - SUBROUTINE dFun_dRcoeff( V, F, NCOEFF, JCOEFF, DFDR ) - - USE MCMv3_3_Parameters - USE MCMv3_3_StoichiomSP - IMPLICIT NONE - -! V - Concentrations of variable/radical/fixed species - REAL(kind=dp) V(NVAR), F(NFIX) -! NCOEFF - the number of rate coefficients with respect to which we differentiate - INTEGER NCOEFF -! JCOEFF - a vector of integers containing the indices of reactions (rate -! coefficients) with respect to which we differentiate - INTEGER JCOEFF(NCOEFF) -! DFDR - a matrix containg derivative values; specifically, -! column j contains d Fun(1:NVAR) / d RCT( JCOEFF(j) ) -! for each 1 <= j <= NCOEFF -! This matrix is stored in a column-wise linearized format - REAL(kind=dp) DFDR(NVAR*NCOEFF) - -! Local vector with reactant products - REAL(kind=dp) A_RPROD(NREACT) - REAL(kind=dp) aj - INTEGER i,j,k - -! Compute the reactant products of all reactions - CALL ReactantProd ( V, F, A_RPROD ) - -! Compute the derivatives by multiplying column JCOEFF(j) of the stoichiometric matrix with A_RPROD - DO j=1,NCOEFF -! Initialize the j-th column of derivative matrix to zero - DO i=1,NVAR - DFDR(i+NVAR*(j-1)) = 0.0_dp - END DO -! Column JCOEFF(j) in the stoichiometric matrix times the -! reactant product of the JCOEFF(j)-th reaction -! give the j-th column of the derivative matrix - aj = A_RPROD(JCOEFF(j)) - DO k=CCOL_STOICM(JCOEFF(j)),CCOL_STOICM(JCOEFF(j)+1)-1 - DFDR(IROW_STOICM(k)+NVAR*(j-1)) = STOICM(k)*aj - END DO - END DO - - END SUBROUTINE dFun_dRcoeff - -! End Derivative w.r.t. Rate Coefficients - - -! Begin Jacobian Derivative w.r.t. Rate Coefficients - -! ------------------------------------------------------------------------------ -! Subroutine for the derivative of Jac with respect to rate coefficients -! Times a user vector -! ----------------------------------------------------------------------------- - - SUBROUTINE dJac_dRcoeff( V, F, U, NCOEFF, JCOEFF, DJDR ) - - USE MCMv3_3_Parameters - USE MCMv3_3_StoichiomSP - IMPLICIT NONE - -! V - Concentrations of variable/fixed species - REAL(kind=dp) V(NVAR), F(NFIX) -! U - User-supplied Vector - REAL(kind=dp) U(NVAR) -! NCOEFF - the number of rate coefficients with respect to which we differentiate - INTEGER NCOEFF -! JCOEFF - a vector of integers containing the indices of reactions (rate -! coefficients) with respect to which we differentiate - INTEGER JCOEFF(NCOEFF) -! DFDR - a matrix containg derivative values; specifically, -! column j contains d Jac(1:NVAR) / d RCT( JCOEFF(j) ) * U -! for each 1 <= j <= NCOEFF -! This matrix is stored in a column-wise linearized format - REAL(kind=dp) DJDR(NVAR*NCOEFF) - -! Local vector for Jacobian of reactant products - REAL(kind=dp) JV_RPROD(NJVRP) - REAL(kind=dp) aj - INTEGER i,j,k - -! Compute the Jacobian of all reactant products - CALL JacReactantProd( V, F, JV_RPROD ) - -! Compute the derivatives by multiplying column JCOEFF(j) of the stoichiometric matrix with A_PROD - DO j=1,NCOEFF -! Initialize the j-th column of derivative matrix to zero - DO i=1,NVAR - DJDR(i+NVAR*(j-1)) = 0.0_dp - END DO -! Column JCOEFF(j) in the stoichiometric matrix times the -! ( Gradient of reactant product of the JCOEFF(j)-th reaction X user vector ) -! give the j-th column of the derivative matrix -! -! Row JCOEFF(j) of JV_RPROD times the user vector - aj = 0.0_dp - DO k=CROW_JVRP(JCOEFF(j)),CROW_JVRP(JCOEFF(j)+1)-1 - aj = aj + JV_RPROD(k)*U(ICOL_JVRP(k)) - END DO -! Column JCOEFF(j) of Stoichiom. matrix times aj - DO k=CCOL_STOICM(JCOEFF(j)),CCOL_STOICM(JCOEFF(j)+1)-1 - DJDR(IROW_STOICM(k)+NVAR*(j-1)) = STOICM(k)*aj - END DO - END DO - - END SUBROUTINE dJac_dRcoeff - -! End Jacobian Derivative w.r.t. Rate Coefficients - - -END MODULE MCMv3_3_Stoichiom - diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Stoichiom.o b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Stoichiom.o deleted file mode 100644 index 4517a88f97c6371dfcd1deb107e3a15c474d0241..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Stoichiom.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_StoichiomSP.f90 b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_StoichiomSP.f90 deleted file mode 100644 index 82e8b770678f60f4b3bd6116ad8d8643f40535af..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_StoichiomSP.f90 +++ /dev/null @@ -1,25640 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Sparse Stoichiometric Data Structures File -! -! Generated by KPP-2.2.3 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 : MCMv3_3_StoichiomSP.f90 -! Time : Mon Jul 19 14:16:06 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MCMv3_3_3654_BOXMOX -! Equation file : MCMv3_3.kpp -! Output root filename : MCMv3_3 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MCMv3_3_StoichiomSP - - USE MCMv3_3_Precision - PUBLIC - SAVE - - -! Row-compressed sparse data for the Jacobian of reaction products JVRP - - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_0 = (/ & - 1, 1, 2, 4, 6, 8, 10, 11, 13, 15, 16, 18, & - 20, 22, 23, 25, 27, 29, 31, 33, 35, 36, 38, 40, & - 42, 44, 46, 48, 50, 52, 54, 56, 58, 59, 60, 61, & - 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 74, & - 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 96, 98, & - 100,102,104,106,108,110,112,114,116,118,120,122, & - 124,126,128,130,132,134,136,138,140,142,144,146, & - 148,150,151,153,155,157,159,161,163,165,167,169, & - 170,171,173,175,176,178,180,182,184,186,187,189, & - 191,193,194,195,197,199,201,203,204,206,208,210, & - 211,213,215,217,219,220,221,222,224,226,227,228, & - 230,232,234,236,238,240,242,244,246,248,250,252, & - 254,256,257,259,261,263,265,267,269,271,273,275, & - 277,279,281,283,285,287,289,291,293,295,297,299, & - 301,303,305,307,309,311,313,315,317,319,321,323, & - 325,327,329,331,333,335,337,339,341,343,345,347, & - 349,351,353,355,357,359,361,363,365,367,369,371, & - 373,375,377,379,381,383,385,387,389,391,393,395, & - 397,399,401,403,405,407,409,411,413,415,417,419, & - 421,423,425,427,429,431,433,435,437,439,441,443, & - 445,447,449,451,453,455,457,459,461,463,465,467, & - 469,471,473,475,477,479,481,483,485,487,489,491, & - 493,495,497,499,501,503,505,507,509,511,513,515, & - 517,519,521,523,525,527,529,531,533,535,537,539, & - 541,543,545,547,549,551,553,555,557,559,561,563, & - 565,567,569,571,573,575,577,579,581,583,585,587, & - 589,591,593,595,597,599,601,603,605,607,609,611, & - 613,615,617,619,621,623,625,627,629,631,633,635, & - 637,639,641,643,645,647,649,651,653,655,657,659, & - 661,663,665,667,669,671,673,675,677,679,681,683 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_1 = (/ & - 685,687,689,691,693,695,697,699,701,703,705,707, & - 709,711,713,715,717,719,721,723,725,727,729,731, & - 733,735,737,739,741,743,745,747,749,751,753,755, & - 756,757,759,761,763,765,767,769,771,773,775,777, & - 779,781,783,785,787,789,791,793,795,797,799,801, & - 803,805,807,809,811,812,814,816,818,819,821,823, & - 824,826,828,829,830,832,834,836,838,840,841,843, & - 845,847,849,850,852,854,855,856,858,860,861,862, & - 864,866,868,870,872,874,876,878,880,882,884,886, & - 888,890,892,894,896,898,900,902,904,906,908,910, & - 912,914,916,918,919,921,923,925,927,928,929,930, & - 932,934,936,938,939,940,941,943,945,946,947,948, & - 950,952,954,956,958,960,961,962,963,965,967,969, & - 971,972,973,974,976,978,980,982,983,984,985,987, & - 989,991,993,994,995,996,998,1000,1002,1004,1005,1006, & - 1008,1010,1012,1014,1015,1016,1017,1019,1021,1023,1025,1026, & - 1027,1028,1029,1031,1033,1035,1037,1038,1039,1040,1042,1044, & - 1046,1048,1049,1050,1051,1052,1053,1055,1057,1059,1061,1063, & - 1065,1066,1067,1068,1070,1072,1074,1076,1077,1078,1080,1082, & - 1084,1086,1088,1090,1092,1093,1094,1096,1098,1100,1102,1103, & - 1104,1105,1107,1109,1111,1113,1114,1115,1116,1118,1120,1122, & - 1124,1125,1126,1127,1129,1131,1133,1135,1136,1137,1138,1140, & - 1142,1144,1146,1147,1148,1149,1151,1153,1155,1157,1158,1159, & - 1161,1163,1165,1167,1168,1169,1170,1172,1174,1176,1177,1178, & - 1179,1181,1183,1185,1187,1188,1189,1190,1192,1194,1196,1197, & - 1198,1199,1201,1203,1205,1207,1209,1211,1212,1213,1215,1217, & - 1219,1220,1222,1223,1225,1227,1228,1230,1232,1234,1235,1236, & - 1237,1239,1241,1243,1244,1245,1246,1247,1248,1249,1250,1252, & - 1253,1254,1255,1256,1258,1260,1262,1264,1265,1266,1267,1269, & - 1271,1273,1275,1276,1277,1278,1280,1282,1284,1286,1288,1290 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_2 = (/ & - 1291,1292,1293,1295,1297,1299,1300,1301,1302,1304,1306,1308, & - 1310,1312,1314,1315,1316,1318,1320,1322,1324,1325,1326,1327, & - 1329,1331,1333,1335,1337,1339,1340,1341,1343,1345,1347,1349, & - 1350,1351,1352,1354,1356,1358,1360,1361,1362,1363,1365,1367, & - 1369,1371,1373,1375,1376,1377,1379,1381,1383,1385,1386,1387, & - 1388,1390,1392,1394,1395,1396,1398,1400,1402,1404,1405,1406, & - 1407,1409,1411,1413,1415,1417,1419,1420,1421,1423,1425,1427, & - 1429,1430,1431,1432,1434,1436,1438,1440,1441,1442,1443,1445, & - 1447,1449,1451,1453,1455,1456,1457,1459,1461,1463,1464,1465, & - 1466,1467,1469,1471,1473,1475,1477,1478,1479,1480,1481,1482, & - 1483,1485,1487,1488,1489,1490,1491,1492,1493,1495,1497,1499, & - 1501,1503,1505,1506,1507,1508,1509,1510,1512,1514,1515,1516, & - 1517,1519,1521,1523,1525,1526,1527,1528,1530,1532,1534,1536, & - 1537,1538,1539,1541,1543,1545,1547,1549,1551,1552,1553,1555, & - 1557,1559,1560,1561,1562,1564,1566,1568,1569,1570,1571,1572, & - 1573,1574,1575,1577,1579,1581,1583,1584,1585,1586,1588,1590, & - 1592,1593,1594,1595,1597,1599,1601,1603,1604,1605,1606,1608, & - 1610,1612,1614,1615,1616,1617,1619,1621,1623,1625,1626,1627, & - 1629,1631,1633,1635,1636,1637,1638,1640,1642,1644,1646,1647, & - 1648,1649,1651,1653,1655,1657,1658,1659,1660,1662,1664,1666, & - 1668,1669,1670,1671,1673,1675,1677,1679,1680,1681,1682,1684, & - 1686,1688,1690,1691,1692,1694,1696,1698,1700,1701,1702,1703, & - 1705,1707,1709,1711,1712,1713,1714,1716,1718,1720,1722,1723, & - 1724,1725,1727,1729,1731,1733,1734,1735,1736,1738,1740,1742, & - 1744,1745,1746,1747,1749,1751,1753,1755,1756,1757,1758,1760, & - 1762,1764,1766,1767,1768,1769,1771,1773,1775,1777,1778,1779, & - 1781,1783,1785,1787,1788,1789,1790,1792,1794,1796,1798,1799, & - 1800,1801,1803,1805,1807,1809,1810,1811,1813,1815,1817,1819, & - 1820,1821,1822,1824,1826,1828,1830,1831,1832,1833,1835,1837, & - 1839,1841,1842,1843,1844,1846,1848,1850,1852,1853,1854,1856 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_3 = (/ & - 1858,1860,1862,1863,1864,1865,1867,1869,1871,1873,1874,1875, & - 1876,1878,1880,1882,1884,1885,1886,1887,1889,1891,1893,1895, & - 1896,1897,1899,1901,1903,1905,1906,1907,1908,1910,1912,1914, & - 1916,1917,1918,1920,1922,1924,1926,1927,1928,1929,1931,1933, & - 1935,1937,1938,1939,1940,1942,1944,1946,1948,1949,1950,1951, & - 1953,1955,1957,1959,1960,1961,1962,1964,1966,1968,1970,1971, & - 1972,1973,1975,1977,1979,1981,1982,1983,1984,1986,1988,1990, & - 1991,1992,1993,1994,1995,1996,1998,2000,2002,2003,2004,2005, & - 2007,2009,2011,2012,2013,2014,2015,2016,2017,2018,2020,2022, & - 2024,2025,2026,2027,2029,2031,2033,2034,2035,2036,2037,2038, & - 2039,2040,2042,2044,2046,2048,2049,2050,2051,2053,2055,2057, & - 2058,2059,2060,2062,2064,2066,2067,2068,2070,2072,2074,2075, & - 2076,2077,2078,2079,2080,2081,2083,2085,2087,2088,2089,2090, & - 2092,2094,2096,2097,2098,2099,2100,2101,2102,2103,2105,2107, & - 2109,2111,2112,2113,2114,2116,2118,2120,2122,2123,2124,2125, & - 2127,2129,2131,2132,2133,2134,2136,2138,2140,2141,2142,2143, & - 2144,2145,2146,2147,2149,2151,2153,2155,2156,2157,2158,2160, & - 2162,2164,2165,2166,2167,2169,2171,2173,2174,2175,2176,2177, & - 2179,2181,2183,2184,2185,2186,2188,2190,2192,2193,2194,2195, & - 2196,2197,2198,2199,2201,2203,2205,2207,2208,2209,2210,2212, & - 2214,2216,2217,2218,2219,2221,2223,2225,2226,2227,2228,2229, & - 2230,2231,2233,2235,2237,2238,2239,2240,2242,2244,2246,2247, & - 2248,2249,2250,2251,2252,2253,2255,2257,2259,2261,2262,2263, & - 2264,2266,2268,2270,2272,2273,2274,2275,2277,2279,2281,2282, & - 2283,2284,2286,2288,2290,2291,2292,2293,2294,2295,2296,2297, & - 2299,2301,2303,2305,2306,2307,2308,2310,2312,2314,2316,2317, & - 2318,2319,2321,2323,2325,2326,2327,2328,2330,2332,2334,2336, & - 2337,2338,2340,2342,2344,2346,2348,2349,2350,2351,2353,2355, & - 2357,2359,2360,2361,2363,2365,2367,2369,2371,2373,2375,2377, & - 2379,2380,2381,2382,2384,2386,2388,2390,2392,2394,2396,2398 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_4 = (/ & - 2400,2402,2403,2404,2405,2407,2409,2411,2413,2414,2415,2417, & - 2419,2421,2423,2424,2425,2426,2428,2430,2432,2434,2435,2436, & - 2438,2440,2442,2444,2445,2446,2448,2450,2452,2454,2456,2458, & - 2460,2462,2464,2466,2467,2468,2469,2471,2473,2475,2477,2478, & - 2479,2480,2482,2484,2486,2488,2489,2490,2492,2494,2496,2498, & - 2500,2502,2504,2506,2508,2510,2511,2512,2513,2515,2517,2519, & - 2521,2522,2523,2525,2527,2529,2531,2532,2533,2535,2537,2539, & - 2541,2543,2545,2547,2549,2551,2553,2554,2555,2556,2558,2560, & - 2562,2564,2566,2568,2570,2572,2574,2576,2577,2578,2579,2581, & - 2583,2585,2587,2588,2589,2591,2593,2595,2597,2598,2599,2600, & - 2602,2604,2606,2608,2610,2612,2614,2616,2618,2620,2621,2622, & - 2623,2625,2627,2629,2631,2632,2633,2635,2637,2639,2641,2642, & - 2643,2645,2647,2649,2651,2653,2655,2657,2659,2661,2663,2664, & - 2665,2666,2668,2670,2672,2674,2675,2676,2678,2680,2682,2684, & - 2685,2686,2687,2689,2691,2693,2695,2697,2699,2701,2703,2705, & - 2707,2708,2709,2710,2712,2714,2715,2716,2718,2720,2722,2724, & - 2725,2726,2727,2729,2731,2733,2735,2736,2737,2739,2741,2743, & - 2745,2747,2749,2751,2753,2755,2757,2758,2759,2761,2763,2765, & - 2767,2768,2769,2770,2772,2774,2776,2778,2779,2780,2781,2783, & - 2785,2787,2789,2791,2793,2795,2797,2798,2799,2801,2803,2805, & - 2807,2808,2809,2810,2812,2814,2816,2818,2819,2820,2822,2824, & - 2826,2828,2829,2830,2832,2834,2836,2838,2840,2842,2844,2846, & - 2848,2850,2851,2852,2853,2855,2857,2859,2861,2862,2863,2865, & - 2867,2869,2871,2873,2875,2877,2879,2881,2883,2884,2885,2887, & - 2889,2891,2893,2894,2895,2897,2899,2901,2903,2905,2907,2909, & - 2911,2913,2915,2916,2917,2918,2920,2922,2924,2926,2927,2928, & - 2929,2931,2933,2935,2937,2938,2939,2941,2943,2945,2947,2949, & - 2951,2953,2955,2956,2957,2958,2960,2962,2964,2966,2968,2970, & - 2972,2974,2975,2976,2977,2979,2981,2983,2985,2986,2987,2989, & - 2991,2993,2994,2995,2996,2997,2998,3000,3002,3004,3005,3007 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_5 = (/ & - 3009,3011,3013,3015,3017,3018,3019,3021,3023,3025,3026,3028, & - 3030,3032,3033,3034,3035,3037,3039,3041,3043,3044,3045,3046, & - 3047,3048,3049,3050,3051,3052,3053,3055,3057,3059,3061,3062, & - 3063,3064,3066,3068,3070,3072,3073,3074,3075,3077,3079,3081, & - 3083,3084,3085,3086,3088,3090,3092,3094,3095,3096,3097,3098, & - 3099,3100,3101,3102,3104,3106,3108,3110,3111,3112,3113,3114, & - 3115,3116,3117,3118,3119,3120,3121,3122,3124,3126,3128,3130, & - 3131,3132,3133,3135,3137,3139,3141,3143,3144,3146,3148,3150, & - 3152,3153,3154,3155,3156,3157,3159,3161,3163,3165,3167,3168, & - 3169,3170,3172,3174,3176,3178,3180,3181,3182,3183,3185,3187, & - 3189,3191,3192,3193,3194,3196,3198,3200,3202,3203,3204,3205, & - 3207,3209,3211,3213,3214,3215,3216,3218,3220,3222,3223,3224, & - 3225,3227,3229,3231,3232,3233,3234,3236,3238,3240,3242,3243, & - 3244,3245,3247,3249,3251,3252,3253,3254,3256,3258,3260,3261, & - 3262,3263,3265,3267,3269,3271,3272,3273,3274,3276,3278,3280, & - 3281,3282,3284,3286,3288,3290,3291,3292,3293,3295,3297,3299, & - 3301,3302,3303,3304,3306,3308,3310,3312,3313,3314,3315,3317, & - 3319,3321,3322,3323,3324,3326,3328,3330,3332,3333,3334,3335, & - 3337,3339,3341,3342,3343,3344,3346,3348,3350,3351,3352,3353, & - 3355,3357,3359,3361,3362,3363,3364,3366,3368,3370,3372,3373, & - 3374,3376,3378,3380,3381,3382,3383,3385,3387,3389,3391,3392, & - 3393,3394,3396,3398,3400,3402,3403,3404,3405,3407,3409,3411, & - 3412,3413,3415,3417,3419,3420,3421,3422,3423,3424,3425,3426, & - 3428,3430,3432,3434,3435,3436,3438,3440,3442,3444,3445,3446, & - 3447,3449,3451,3453,3455,3456,3457,3459,3461,3463,3464,3465, & - 3467,3469,3471,3472,3473,3474,3476,3478,3480,3482,3483,3484, & - 3485,3486,3487,3488,3490,3492,3494,3496,3497,3498,3500,3502, & - 3504,3506,3507,3508,3509,3511,3513,3515,3517,3518,3519,3521, & - 3523,3525,3526,3527,3528,3529,3530,3531,3533,3535,3537,3539, & - 3540,3541,3543,3545,3547,3549,3550,3551,3552,3554,3556,3558 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_6 = (/ & - 3560,3561,3562,3564,3566,3568,3569,3570,3572,3574,3576,3578, & - 3579,3580,3582,3584,3586,3588,3589,3590,3591,3592,3593,3594, & - 3595,3596,3597,3599,3601,3603,3605,3606,3607,3609,3611,3613, & - 3615,3616,3617,3618,3620,3622,3624,3626,3627,3628,3630,3632, & - 3633,3635,3636,3637,3638,3640,3642,3643,3645,3646,3647,3649, & - 3651,3653,3655,3657,3658,3659,3661,3663,3665,3666,3667,3669, & - 3671,3673,3674,3676,3677,3679,3680,3682,3684,3686,3687,3689, & - 3690,3691,3692,3694,3696,3697,3699,3701,3702,3703,3705,3707, & - 3708,3710,3712,3713,3715,3716,3718,3720,3722,3723,3725,3726, & - 3727,3728,3730,3732,3734,3736,3738,3739,3741,3742,3743,3745, & - 3747,3748,3750,3751,3753,3754,3756,3758,3760,3762,3764,3765, & - 3767,3768,3770,3772,3773,3775,3777,3779,3781,3783,3785,3786, & - 3787,3788,3790,3791,3793,3794,3796,3797,3799,3801,3802,3804, & - 3805,3807,3809,3811,3813,3815,3817,3819,3820,3821,3823,3825, & - 3827,3829,3830,3831,3832,3834,3835,3837,3838,3840,3842,3844, & - 3845,3847,3848,3850,3852,3853,3854,3856,3858,3859,3861,3862, & - 3863,3864,3866,3868,3870,3872,3873,3875,3876,3877,3879,3881, & - 3883,3885,3886,3888,3889,3891,3893,3894,3895,3897,3899,3900, & - 3902,3903,3904,3905,3907,3909,3911,3913,3915,3916,3918,3919, & - 3921,3923,3924,3925,3927,3929,3931,3932,3934,3936,3937,3938, & - 3939,3941,3942,3944,3945,3947,3949,3950,3951,3953,3954,3956, & - 3957,3959,3961,3962,3963,3964,3966,3967,3969,3971,3972,3974, & - 3976,3977,3979,3980,3982,3984,3986,3988,3990,3992,3993,3994, & - 3996,3998,4000,4002,4004,4005,4007,4009,4010,4011,4013,4015, & - 4017,4019,4020,4021,4023,4025,4027,4029,4031,4033,4034,4035, & - 4037,4039,4041,4043,4045,4047,4048,4049,4051,4053,4055,4057, & - 4058,4059,4061,4063,4064,4065,4067,4068,4070,4072,4074,4075, & - 4076,4078,4079,4080,4082,4084,4085,4087,4088,4089,4091,4093, & - 4094,4095,4096,4098,4099,4101,4103,4104,4105,4107,4109,4110, & - 4112,4114,4116,4117,4119,4120,4122,4124,4125,4126,4128,4129 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_7 = (/ & - 4130,4131,4133,4135,4136,4137,4139,4141,4143,4144,4146,4148, & - 4149,4151,4152,4154,4156,4157,4159,4160,4162,4164,4165,4167, & - 4168,4169,4171,4173,4174,4176,4177,4178,4179,4180,4182,4184, & - 4185,4187,4188,4190,4192,4193,4195,4196,4198,4200,4201,4203, & - 4204,4205,4206,4208,4210,4211,4213,4215,4216,4218,4219,4220, & - 4222,4223,4225,4227,4228,4230,4232,4233,4234,4235,4237,4239, & - 4241,4243,4244,4246,4247,4248,4250,4251,4252,4253,4254,4256, & - 4258,4260,4262,4263,4264,4266,4267,4269,4271,4273,4274,4276, & - 4278,4280,4282,4284,4286,4288,4290,4291,4292,4293,4295,4297, & - 4299,4300,4301,4302,4304,4306,4307,4308,4309,4311,4312,4314, & - 4315,4317,4318,4320,4322,4323,4325,4327,4328,4329,4331,4333, & - 4334,4335,4337,4338,4340,4342,4343,4344,4346,4347,4349,4351, & - 4353,4355,4356,4357,4359,4360,4361,4363,4364,4365,4367,4369, & - 4371,4372,4373,4374,4376,4377,4379,4381,4382,4384,4385,4386, & - 4387,4388,4390,4392,4393,4395,4396,4398,4399,4401,4402,4404, & - 4406,4407,4409,4410,4411,4413,4415,4417,4418,4420,4421,4422, & - 4423,4425,4427,4428,4430,4431,4432,4433,4434,4436,4438,4439, & - 4441,4442,4443,4444,4446,4448,4449,4451,4452,4453,4454,4456, & - 4457,4459,4460,4461,4463,4465,4466,4468,4469,4471,4473,4475, & - 4476,4477,4479,4481,4482,4484,4485,4486,4487,4489,4491,4493, & - 4494,4496,4498,4499,4501,4502,4504,4505,4507,4508,4510,4511, & - 4512,4514,4515,4517,4519,4520,4522,4523,4524,4526,4528,4530, & - 4531,4533,4535,4536,4538,4539,4540,4542,4543,4545,4547,4548, & - 4550,4551,4552,4553,4554,4555,4557,4559,4561,4562,4564,4565, & - 4567,4568,4569,4571,4572,4574,4576,4577,4579,4580,4581,4583, & - 4585,4587,4588,4590,4592,4593,4595,4596,4597,4598,4600,4602, & - 4604,4605,4607,4608,4610,4611,4613,4614,4616,4618,4619,4621, & - 4622,4623,4625,4626,4628,4630,4631,4633,4634,4635,4637,4639, & - 4641,4642,4644,4646,4647,4649,4650,4651,4652,4654,4656,4658, & - 4659,4661,4662,4664,4665,4667,4668,4670,4672,4673,4675,4676 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_8 = (/ & - 4677,4679,4680,4682,4684,4685,4687,4688,4690,4691,4692,4694, & - 4696,4697,4699,4700,4702,4703,4704,4706,4708,4709,4711,4712, & - 4714,4715,4717,4718,4720,4721,4723,4724,4725,4727,4729,4730, & - 4732,4733,4735,4736,4738,4739,4741,4742,4744,4745,4746,4748, & - 4750,4751,4753,4754,4756,4757,4758,4760,4762,4763,4765,4766, & - 4768,4769,4770,4772,4774,4776,4777,4779,4780,4781,4783,4784, & - 4786,4787,4789,4790,4792,4793,4794,4796,4798,4799,4801,4802, & - 4804,4805,4806,4808,4810,4811,4812,4813,4815,4817,4818,4820, & - 4822,4823,4824,4825,4827,4829,4830,4832,4834,4835,4836,4837, & - 4839,4840,4842,4843,4844,4845,4847,4848,4850,4852,4853,4854, & - 4855,4857,4858,4859,4861,4863,4865,4867,4868,4869,4871,4873, & - 4874,4875,4877,4879,4880,4882,4883,4884,4885,4887,4888,4890, & - 4891,4892,4894,4895,4896,4897,4899,4901,4902,4903,4905,4907, & - 4909,4911,4912,4914,4916,4917,4918,4919,4921,4922,4924,4926, & - 4928,4929,4930,4931,4933,4935,4936,4938,4940,4942,4944,4946, & - 4947,4948,4950,4952,4953,4954,4956,4957,4959,4961,4963,4964, & - 4965,4967,4969,4970,4972,4974,4975,4976,4977,4979,4980,4982, & - 4984,4985,4986,4987,4989,4990,4992,4994,4996,4997,4998,5000, & - 5001,5003,5005,5006,5007,5008,5010,5012,5013,5014,5016,5017, & - 5018,5020,5022,5024,5026,5027,5029,5031,5032,5033,5034,5036, & - 5037,5039,5040,5042,5044,5045,5046,5047,5049,5051,5052,5054, & - 5056,5058,5060,5061,5062,5064,5066,5067,5068,5070,5072,5073, & - 5075,5077,5078,5079,5080,5082,5083,5085,5086,5087,5089,5091, & - 5092,5093,5095,5097,5098,5100,5102,5104,5105,5106,5107,5109, & - 5110,5112,5114,5116,5118,5120,5121,5122,5124,5126,5127,5128, & - 5130,5131,5133,5134,5136,5138,5139,5140,5142,5144,5146,5148, & - 5149,5150,5151,5153,5154,5156,5158,5160,5161,5162,5163,5165, & - 5166,5168,5170,5172,5173,5174,5176,5178,5179,5181,5183,5184, & - 5185,5187,5188,5190,5191,5192,5194,5196,5197,5198,5200,5202, & - 5203,5205,5206,5207,5208,5210,5212,5213,5215,5217,5219,5221 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_9 = (/ & - 5223,5225,5226,5227,5229,5231,5232,5233,5234,5235,5236,5238, & - 5240,5242,5244,5245,5246,5247,5249,5251,5253,5254,5255,5256, & - 5258,5260,5262,5264,5265,5266,5268,5270,5272,5274,5276,5277, & - 5278,5280,5282,5284,5286,5288,5290,5291,5292,5294,5295,5297, & - 5298,5299,5301,5303,5305,5307,5308,5309,5311,5313,5315,5316, & - 5317,5319,5321,5323,5325,5327,5329,5330,5331,5332,5333,5334, & - 5335,5337,5338,5340,5342,5343,5345,5347,5349,5351,5353,5355, & - 5356,5357,5358,5359,5360,5361,5363,5365,5367,5369,5370,5371, & - 5372,5374,5376,5378,5379,5380,5381,5383,5384,5386,5387,5388, & - 5390,5392,5393,5394,5396,5398,5399,5401,5402,5403,5404,5405, & - 5406,5407,5408,5410,5412,5414,5416,5418,5420,5422,5423,5424, & - 5426,5428,5429,5431,5433,5435,5437,5438,5439,5440,5442,5444, & - 5446,5447,5448,5450,5452,5454,5455,5456,5458,5460,5462,5464, & - 5466,5467,5468,5470,5472,5474,5476,5477,5479,5480,5481,5483, & - 5485,5486,5487,5489,5491,5492,5494,5495,5496,5497,5498,5499, & - 5500,5502,5504,5506,5507,5508,5510,5512,5514,5516,5518,5520, & - 5521,5522,5524,5526,5527,5529,5531,5533,5535,5536,5537,5538, & - 5540,5542,5544,5545,5546,5547,5549,5551,5553,5555,5557,5558, & - 5559,5561,5563,5565,5566,5567,5569,5571,5573,5575,5576,5578, & - 5579,5580,5582,5584,5585,5586,5588,5590,5591,5593,5594,5595, & - 5596,5597,5599,5601,5603,5605,5607,5609,5611,5612,5613,5615, & - 5617,5619,5621,5622,5623,5624,5626,5628,5630,5631,5632,5634, & - 5636,5638,5639,5640,5642,5644,5646,5648,5650,5651,5652,5654, & - 5656,5658,5660,5661,5662,5664,5665,5667,5669,5671,5672,5674, & - 5676,5678,5680,5682,5683,5684,5686,5688,5690,5691,5692,5694, & - 5696,5698,5700,5701,5702,5703,5704,5705,5707,5708,5710,5712, & - 5713,5715,5717,5719,5721,5723,5725,5726,5727,5728,5729,5730, & - 5731,5733,5735,5737,5739,5740,5741,5742,5744,5746,5748,5749, & - 5750,5751,5753,5754,5756,5757,5758,5760,5762,5763,5765,5767, & - 5769,5770,5771,5773,5775,5777,5779,5781,5782,5783,5785,5787 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_10 = (/ & - 5789,5791,5792,5793,5794,5795,5796,5798,5799,5801,5803,5804, & - 5806,5808,5810,5812,5814,5816,5817,5818,5819,5820,5821,5822, & - 5824,5826,5828,5830,5831,5832,5833,5835,5837,5839,5840,5841, & - 5842,5844,5845,5847,5848,5849,5851,5853,5855,5857,5859,5861, & - 5862,5863,5865,5867,5869,5870,5871,5873,5875,5877,5879,5880, & - 5881,5882,5883,5884,5886,5887,5889,5891,5892,5894,5896,5898, & - 5900,5902,5904,5905,5906,5907,5908,5909,5910,5912,5914,5916, & - 5918,5919,5920,5921,5923,5925,5927,5928,5929,5930,5932,5933, & - 5935,5936,5937,5939,5941,5942,5943,5945,5947,5949,5951,5952, & - 5953,5955,5957,5959,5961,5963,5964,5965,5967,5969,5971,5973, & - 5974,5976,5977,5978,5979,5980,5981,5982,5983,5985,5987,5988, & - 5990,5992,5993,5994,5996,5998,6000,6002,6003,6004,6005,6007, & - 6008,6010,6011,6012,6014,6016,6017,6018,6020,6022,6023,6025, & - 6026,6027,6028,6029,6030,6031,6032,6034,6036,6038,6040,6041, & - 6042,6044,6046,6048,6050,6052,6053,6054,6056,6058,6060,6062, & - 6064,6066,6068,6070,6072,6073,6074,6076,6078,6080,6082,6083, & - 6084,6085,6087,6089,6091,6092,6093,6095,6096,6098,6099,6100, & - 6102,6104,6105,6106,6108,6110,6111,6113,6114,6115,6116,6118, & - 6120,6121,6123,6125,6127,6128,6129,6131,6133,6135,6137,6138, & - 6139,6141,6143,6145,6147,6149,6151,6152,6153,6155,6157,6158, & - 6159,6160,6161,6163,6165,6167,6169,6170,6171,6173,6175,6177, & - 6178,6179,6180,6182,6183,6185,6186,6187,6189,6191,6192,6194, & - 6195,6197,6198,6199,6200,6201,6202,6203,6204,6206,6208,6210, & - 6212,6214,6216,6218,6219,6220,6222,6224,6225,6227,6229,6231, & - 6233,6234,6235,6236,6238,6240,6242,6243,6244,6246,6248,6250, & - 6251,6252,6254,6256,6258,6260,6262,6263,6264,6266,6268,6270, & - 6272,6273,6275,6276,6277,6278,6279,6280,6281,6283,6285,6286, & - 6288,6290,6292,6294,6296,6298,6299,6300,6302,6304,6306,6308, & - 6309,6310,6311,6313,6315,6317,6318,6319,6320,6322,6324,6326, & - 6328,6330,6331,6332,6334,6336,6338,6339,6340,6342,6344,6346 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_11 = (/ & - 6348,6349,6351,6352,6353,6354,6355,6356,6358,6360,6362,6364, & - 6366,6368,6370,6371,6372,6374,6376,6378,6380,6381,6382,6383, & - 6385,6387,6389,6390,6391,6393,6395,6397,6398,6399,6401,6403, & - 6405,6407,6409,6410,6411,6413,6415,6417,6419,6420,6422,6423, & - 6424,6426,6428,6429,6431,6432,6434,6435,6436,6437,6438,6439, & - 6441,6443,6444,6446,6448,6450,6452,6454,6456,6457,6458,6459, & - 6460,6462,6464,6466,6468,6469,6470,6472,6474,6476,6477,6478, & - 6479,6481,6483,6485,6487,6488,6489,6491,6493,6495,6496,6497, & - 6499,6500,6502,6503,6504,6506,6508,6509,6511,6513,6515,6517, & - 6518,6519,6521,6523,6525,6526,6527,6529,6530,6532,6533,6534, & - 6535,6537,6539,6540,6542,6544,6546,6548,6550,6552,6553,6554, & - 6556,6558,6559,6560,6562,6564,6566,6568,6569,6570,6572,6574, & - 6576,6577,6578,6579,6581,6582,6584,6586,6588,6590,6591,6592, & - 6594,6595,6596,6598,6599,6601,6603,6604,6606,6607,6608,6610, & - 6611,6613,6614,6616,6617,6619,6620,6622,6623,6624,6626,6627, & - 6629,6631,6633,6635,6637,6639,6641,6643,6645,6646,6647,6648, & - 6650,6651,6653,6654,6655,6657,6659,6661,6663,6665,6666,6668, & - 6670,6671,6673,6675,6677,6679,6681,6682,6683,6684,6686,6687, & - 6688,6690,6692,6693,6695,6696,6698,6699,6700,6702,6704,6706, & - 6707,6709,6711,6713,6715,6717,6718,6719,6720,6721,6723,6725, & - 6727,6729,6730,6731,6732,6734,6736,6738,6740,6741,6742,6743, & - 6745,6747,6749,6751,6752,6753,6755,6757,6759,6761,6762,6764, & - 6766,6768,6769,6770,6771,6773,6775,6777,6779,6780,6781,6782, & - 6783,6784,6785,6787,6789,6791,6793,6794,6795,6796,6797,6798, & - 6800,6802,6804,6806,6807,6808,6809,6810,6811,6812,6814,6816, & - 6818,6820,6821,6822,6823,6824,6825,6826,6828,6829,6831,6833, & - 6835,6836,6838,6840,6841,6843,6845,6847,6849,6850,6851,6852, & - 6854,6856,6858,6860,6861,6863,6865,6867,6869,6871,6872,6874, & - 6876,6878,6880,6881,6883,6885,6887,6888,6889,6890,6891,6892, & - 6894,6896,6898,6900,6901,6902,6903,6905,6907,6909,6911,6912 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_12 = (/ & - 6913,6914,6916,6918,6920,6922,6923,6924,6925,6926,6928,6930, & - 6932,6934,6935,6936,6937,6938,6940,6941,6943,6945,6947,6948, & - 6949,6951,6953,6954,6956,6958,6960,6962,6963,6964,6966,6968, & - 6969,6971,6972,6973,6975,6977,6979,6981,6983,6985,6987,6988, & - 6989,6991,6993,6994,6995,6997,6999,7000,7002,7003,7004,7005, & - 7007,7009,7010,7011,7012,7013,7015,7017,7019,7020,7021,7022, & - 7023,7025,7027,7029,7031,7032,7033,7034,7036,7037,7039,7040, & - 7042,7043,7045,7047,7048,7049,7050,7052,7053,7055,7057,7058, & - 7059,7060,7062,7064,7065,7067,7068,7069,7071,7072,7073,7075, & - 7076,7077,7079,7080,7082,7083,7084,7085,7087,7089,7091,7093, & - 7094,7096,7097,7098,7100,7101,7102,7104,7105,7107,7109,7110, & - 7112,7113,7114,7115,7116,7118,7119,7121,7123,7125,7127,7128, & - 7129,7130,7132,7133,7135,7137,7138,7139,7141,7142,7143,7145, & - 7146,7148,7150,7151,7152,7153,7155,7156,7158,7159,7161,7163, & - 7164,7165,7166,7168,7170,7171,7173,7174,7175,7177,7179,7180, & - 7181,7183,7184,7186,7187,7189,7190,7191,7192,7194,7196,7197, & - 7198,7199,7201,7202,7204,7205,7206,7208,7209,7211,7212,7213, & - 7214,7216,7218,7219,7221,7223,7224,7226,7227,7228,7229,7231, & - 7232,7234,7235,7237,7238,7239,7241,7243,7245,7246,7247,7248, & - 7250,7252,7253,7255,7257,7259,7260,7261,7263,7265,7267,7268, & - 7269,7270,7272,7274,7276,7278,7279,7280,7282,7284,7286,7288, & - 7289,7290,7291,7293,7294,7295,7297,7299,7300,7301,7303,7305, & - 7306,7308,7309,7310,7312,7314,7315,7316,7318,7320,7321,7322, & - 7324,7326,7328,7329,7331,7333,7335,7337,7338,7339,7340,7342, & - 7344,7346,7348,7349,7350,7351,7353,7355,7357,7359,7360,7361, & - 7363,7365,7367,7368,7369,7370,7372,7374,7376,7378,7380,7381, & - 7383,7384,7385,7387,7389,7390,7391,7393,7395,7396,7398,7399, & - 7401,7402,7403,7405,7407,7408,7409,7411,7413,7415,7417,7418, & - 7419,7420,7422,7424,7426,7427,7428,7429,7431,7433,7435,7437, & - 7438,7439,7440,7442,7444,7446,7448,7449,7450,7452,7453,7455 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_13 = (/ & - 7456,7458,7460,7461,7462,7464,7466,7467,7469,7470,7472,7474, & - 7475,7476,7478,7480,7482,7484,7486,7488,7490,7492,7494,7496, & - 7497,7499,7501,7503,7505,7507,7509,7511,7513,7515,7516,7517, & - 7518,7520,7522,7524,7525,7526,7527,7529,7531,7533,7535,7537, & - 7539,7541,7542,7543,7544,7546,7548,7550,7551,7552,7553,7555, & - 7557,7559,7561,7562,7563,7564,7566,7567,7569,7570,7572,7574, & - 7575,7576,7578,7580,7581,7583,7584,7586,7588,7590,7592,7594, & - 7596,7598,7599,7600,7602,7604,7606,7608,7610,7612,7613,7614, & - 7616,7618,7620,7622,7623,7624,7625,7627,7629,7631,7633,7635, & - 7636,7638,7639,7641,7642,7644,7646,7648,7649,7651,7652,7654, & - 7655,7657,7658,7659,7660,7662,7664,7665,7667,7669,7671,7673, & - 7674,7675,7676,7678,7680,7682,7684,7686,7687,7689,7691,7693, & - 7695,7697,7698,7700,7702,7704,7706,7707,7708,7709,7711,7713, & - 7715,7717,7719,7721,7722,7723,7725,7727,7729,7730,7732,7733, & - 7735,7737,7739,7741,7742,7743,7744,7746,7748,7749,7751,7752, & - 7754,7755,7757,7758,7759,7761,7763,7765,7767,7769,7770,7772, & - 7773,7775,7776,7778,7780,7781,7783,7785,7787,7789,7791,7792, & - 7794,7796,7798,7800,7802,7803,7805,7807,7809,7811,7813,7815, & - 7816,7817,7819,7821,7823,7825,7827,7829,7830,7831,7833,7835, & - 7837,7838,7839,7840,7842,7844,7846,7848,7850,7852,7853,7854, & - 7856,7858,7860,7862,7863,7864,7865,7867,7869,7871,7873,7875, & - 7877,7878,7879,7881,7883,7885,7887,7889,7890,7891,7892,7894, & - 7896,7898,7900,7902,7904,7906,7908,7909,7910,7911,7913,7915, & - 7917,7919,7920,7922,7924,7926,7928,7930,7932,7933,7934,7936, & - 7938,7940,7942,7944,7946,7947,7948,7950,7952,7954,7956,7958, & - 7959,7960,7961,7963,7965,7967,7969,7971,7972,7974,7976,7978, & - 7980,7981,7982,7983,7985,7987,7989,7991,7992,7993,7994,7996, & - 7998,8000,8002,8003,8004,8005,8007,8009,8011,8013,8015,8016, & - 8018,8020,8022,8024,8025,8026,8027,8029,8031,8033,8035,8037, & - 8038,8040,8042,8044,8046,8047,8048,8049,8051,8053,8055,8057 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_14 = (/ & - 8058,8059,8060,8062,8064,8066,8068,8069,8070,8071,8073,8075, & - 8077,8079,8081,8082,8084,8086,8088,8090,8091,8092,8093,8095, & - 8097,8099,8100,8101,8103,8105,8107,8109,8110,8111,8112,8114, & - 8116,8118,8120,8121,8122,8123,8125,8127,8129,8131,8132,8133, & - 8134,8136,8138,8140,8142,8144,8145,8147,8149,8151,8153,8154, & - 8155,8156,8158,8160,8162,8164,8165,8166,8167,8169,8171,8173, & - 8174,8175,8177,8179,8181,8183,8184,8185,8186,8188,8190,8192, & - 8194,8196,8197,8199,8201,8203,8205,8206,8207,8208,8210,8212, & - 8214,8216,8218,8220,8221,8222,8224,8226,8228,8230,8231,8232, & - 8233,8235,8237,8239,8241,8243,8245,8246,8247,8249,8251,8253, & - 8255,8256,8257,8258,8260,8262,8264,8265,8267,8269,8271,8273, & - 8274,8275,8277,8279,8281,8282,8284,8286,8288,8290,8291,8292, & - 8293,8295,8297,8299,8301,8302,8303,8304,8306,8308,8310,8311, & - 8313,8315,8317,8319,8320,8321,8322,8324,8326,8328,8330,8331, & - 8332,8333,8335,8337,8339,8340,8342,8344,8346,8348,8349,8350, & - 8351,8353,8355,8357,8358,8360,8362,8364,8366,8367,8368,8369, & - 8371,8373,8375,8376,8378,8380,8382,8384,8385,8386,8387,8389, & - 8391,8393,8394,8396,8398,8400,8402,8403,8404,8405,8407,8409, & - 8411,8412,8414,8416,8418,8420,8421,8422,8423,8425,8427,8429, & - 8431,8433,8435,8436,8437,8439,8441,8443,8445,8447,8449,8450, & - 8451,8452,8454,8456,8458,8459,8460,8461,8462,8464,8466,8468, & - 8470,8472,8473,8475,8477,8479,8481,8483,8485,8486,8487,8489, & - 8491,8493,8494,8495,8496,8497,8499,8501,8503,8505,8507,8509, & - 8510,8511,8512,8514,8516,8518,8519,8521,8523,8525,8527,8529, & - 8530,8532,8534,8536,8537,8539,8541,8543,8544,8546,8548,8550, & - 8552,8554,8556,8557,8558,8559,8561,8563,8565,8566,8567,8568, & - 8570,8572,8574,8576,8578,8580,8581,8582,8583,8585,8587,8589, & - 8591,8593,8594,8596,8598,8600,8601,8603,8605,8607,8609,8611, & - 8613,8614,8615,8617,8619,8621,8622,8623,8624,8626,8628,8630, & - 8631,8632,8633,8635,8637,8639,8641,8643,8644,8646,8648,8650 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_15 = (/ & - 8651,8652,8653,8655,8657,8659,8660,8661,8662,8664,8666,8668, & - 8670,8672,8674,8676,8678,8680,8681,8682,8684,8685,8687,8688, & - 8690,8691,8693,8695,8697,8699,8701,8703,8704,8705,8707,8709, & - 8711,8712,8713,8714,8716,8717,8719,8720,8721,8722,8724,8725, & - 8727,8728,8730,8731,8732,8733,8735,8736,8738,8739,8741,8743, & - 8745,8746,8747,8748,8750,8752,8754,8755,8756,8757,8759,8760, & - 8762,8764,8765,8767,8768,8769,8770,8772,8774,8775,8776,8777, & - 8779,8781,8782,8783,8784,8786,8787,8789,8791,8793,8795,8797, & - 8798,8800,8802,8803,8805,8807,8809,8811,8813,8815,8817,8818, & - 8819,8820,8822,8824,8826,8828,8830,8831,8832,8834,8836,8838, & - 8840,8842,8844,8846,8848,8850,8851,8852,8854,8855,8857,8858, & - 8860,8861,8863,8865,8867,8869,8870,8871,8873,8874,8876,8877, & - 8878,8879,8881,8882,8884,8885,8887,8888,8889,8890,8892,8893, & - 8895,8896,8898,8900,8902,8904,8906,8908,8909,8910,8912,8913, & - 8915,8917,8919,8921,8923,8924,8925,8927,8929,8931,8933,8934, & - 8936,8937,8939,8940,8942,8944,8946,8948,8950,8952,8953,8954, & - 8956,8958,8960,8961,8963,8964,8966,8967,8968,8969,8971,8972, & - 8974,8975,8977,8978,8979,8980,8981,8983,8984,8985,8987,8988, & - 8989,8990,8992,8993,8995,8997,8999,9001,9003,9004,9006,9007, & - 9008,9009,9011,9013,9015,9016,9018,9020,9022,9024,9026,9028, & - 9029,9030,9032,9034,9036,9037,9039,9041,9043,9045,9047,9048, & - 9049,9051,9053,9055,9057,9059,9061,9063,9065,9067,9069,9071, & - 9072,9074,9075,9077,9078,9080,9081,9083,9085,9087,9089,9091, & - 9093,9094,9095,9097,9099,9101,9102,9103,9105,9106,9108,9109, & - 9110,9111,9113,9114,9116,9117,9119,9120,9121,9123,9124,9126, & - 9127,9129,9131,9133,9135,9137,9138,9140,9141,9142,9143,9145, & - 9147,9148,9149,9150,9152,9153,9155,9157,9158,9160,9162,9164, & - 9166,9168,9170,9171,9172,9174,9176,9178,9179,9181,9183,9184, & - 9186,9187,9189,9190,9192,9193,9195,9196,9198,9199,9200,9201, & - 9203,9204,9206,9207,9209,9210,9211,9212,9213,9215,9216,9217 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_16 = (/ & - 9219,9220,9221,9222,9224,9225,9227,9229,9231,9233,9235,9236, & - 9238,9239,9240,9241,9243,9245,9247,9248,9250,9252,9254,9256, & - 9258,9260,9261,9262,9264,9266,9268,9270,9272,9273,9275,9276, & - 9277,9278,9280,9282,9283,9284,9285,9287,9288,9290,9292,9293, & - 9295,9297,9299,9301,9303,9304,9305,9307,9309,9311,9313,9315, & - 9317,9319,9321,9323,9324,9325,9327,9328,9330,9331,9333,9334, & - 9336,9338,9340,9342,9343,9344,9346,9347,9349,9350,9351,9352, & - 9354,9355,9357,9358,9360,9361,9362,9363,9365,9366,9368,9369, & - 9371,9373,9375,9376,9377,9378,9380,9381,9382,9383,9385,9386, & - 9388,9390,9392,9394,9396,9397,9399,9400,9401,9402,9404,9406, & - 9408,9409,9411,9413,9414,9416,9418,9420,9422,9424,9425,9426, & - 9428,9430,9432,9434,9436,9438,9440,9442,9444,9445,9446,9448, & - 9449,9451,9452,9454,9455,9457,9459,9461,9463,9464,9465,9467, & - 9468,9470,9471,9472,9473,9475,9476,9478,9479,9481,9482,9483, & - 9484,9486,9487,9489,9490,9492,9493,9495,9497,9499,9501,9503, & - 9504,9506,9507,9508,9509,9511,9513,9514,9515,9516,9518,9519, & - 9521,9523,9524,9526,9528,9530,9532,9534,9535,9536,9537,9539, & - 9541,9543,9545,9547,9549,9551,9553,9555,9556,9557,9559,9560, & - 9562,9563,9565,9566,9568,9570,9572,9574,9575,9576,9578,9579, & - 9581,9582,9583,9584,9586,9587,9589,9590,9592,9593,9594,9595, & - 9597,9598,9600,9601,9603,9605,9607,9609,9611,9613,9614,9615, & - 9617,9618,9619,9620,9622,9623,9625,9627,9629,9631,9633,9634, & - 9636,9637,9638,9640,9642,9644,9645,9647,9649,9651,9652,9653, & - 9655,9657,9659,9661,9663,9665,9667,9669,9671,9673,9675,9677, & - 9678,9679,9681,9683,9685,9686,9688,9689,9690,9691,9693,9694, & - 9696,9697,9698,9700,9701,9703,9705,9707,9709,9711,9713,9714, & - 9715,9717,9719,9721,9722,9724,9726,9728,9729,9730,9732,9733, & - 9734,9735,9737,9738,9740,9742,9744,9746,9748,9749,9751,9752, & - 9753,9754,9756,9758,9760,9761,9763,9764,9766,9767,9768,9770, & - 9771,9773,9774,9775,9776,9778,9779,9781,9782,9784,9785,9787 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_17 = (/ & - 9788,9789,9790,9791,9793,9794,9795,9797,9799,9801,9803,9805, & - 9807,9808,9809,9811,9813,9815,9816,9818,9820,9822,9824,9826, & - 9827,9828,9830,9831,9832,9833,9835,9836,9838,9839,9840,9842, & - 9844,9845,9847,9848,9850,9851,9853,9855,9857,9859,9861,9863, & - 9864,9865,9867,9869,9871,9872,9874,9875,9876,9877,9879,9880, & - 9882,9883,9885,9886,9887,9888,9889,9891,9892,9894,9895,9896, & - 9898,9900,9902,9903,9904,9905,9907,9908,9910,9911,9913,9914, & - 9916,9918,9920,9922,9924,9926,9927,9928,9930,9932,9934,9935, & - 9937,9938,9940,9941,9942,9943,9945,9946,9948,9949,9951,9952, & - 9953,9954,9956,9957,9958,9960,9961,9962,9963,9965,9966,9968, & - 9970,9972,9974,9976,9977,9979,9980,9981,9982,9984,9986,9988, & - 9989,9991,9992,9994,9995,9997,9998,10000,10001,10003,10004,10005, & - 10006,10008,10009,10011,10012,10014,10015,10016,10017,10019,10020,10021, & - 10023,10024,10025,10027,10029,10031,10033,10035,10036,10038,10039,10040, & - 10041,10043,10045,10046,10047,10048,10050,10051,10053,10055,10056,10058, & - 10060,10062,10063,10064,10066,10067,10069,10070,10072,10073,10075,10076, & - 10078,10079,10080,10081,10083,10084,10086,10087,10089,10090,10091,10092, & - 10093,10095,10096,10097,10099,10100,10101,10102,10104,10105,10107,10109, & - 10111,10113,10115,10116,10118,10119,10120,10121,10123,10125,10127,10128, & - 10130,10132,10134,10135,10136,10137,10139,10141,10143,10145,10147,10148, & - 10149,10151,10153,10155,10157,10158,10160,10161,10163,10164,10166,10167, & - 10168,10169,10171,10172,10174,10175,10177,10178,10179,10180,10181,10183, & - 10184,10186,10187,10189,10190,10191,10192,10194,10195,10197,10198,10199, & - 10201,10203,10205,10207,10208,10209,10210,10212,10214,10216,10218,10220, & - 10221,10223,10224,10225,10226,10228,10229,10231,10232,10233,10235,10237, & - 10239,10241,10243,10245,10246,10248,10249,10251,10252,10254,10255,10257, & - 10259,10261,10263,10265,10267,10268,10269,10271,10273,10275,10276,10277, & - 10279,10281,10283,10284,10285,10286,10288,10289,10290,10291,10293,10294, & - 10296,10297,10299,10300,10301,10302,10304,10305,10307,10308,10310,10312, & - 10314,10315,10316,10317,10319,10321,10323,10325,10327,10329,10330,10331 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_18 = (/ & - 10332,10333,10334,10335,10337,10339,10341,10342,10343,10344,10346,10348, & - 10350,10352,10354,10356,10357,10358,10359,10360,10361,10362,10364,10366, & - 10368,10370,10371,10372,10373,10374,10375,10376,10377,10379,10381,10383, & - 10385,10386,10387,10388,10390,10392,10394,10395,10396,10397,10399,10401, & - 10403,10405,10407,10408,10409,10410,10411,10412,10413,10415,10417,10419, & - 10421,10422,10423,10424,10426,10428,10430,10432,10434,10436,10437,10438, & - 10439,10440,10441,10442,10444,10446,10448,10449,10450,10451,10453,10454, & - 10456,10457,10458,10460,10462,10464,10465,10466,10468,10469,10470,10472, & - 10473,10474,10476,10478,10479,10481,10483,10484,10485,10487,10489,10491, & - 10492,10493,10494,10495,10497,10499,10501,10503,10505,10507,10508,10509, & - 10511,10513,10515,10517,10519,10521,10522,10523,10524,10525,10527,10529, & - 10531,10533,10535,10537,10539,10541,10543,10544,10546,10548,10549,10551, & - 10553,10555,10557,10558,10560,10561,10563,10565,10567,10568,10569,10570, & - 10572,10574,10576,10577,10578,10580,10582,10584,10586,10588,10590,10591, & - 10592,10593,10594,10596,10598,10600,10602,10604,10606,10608,10609,10611, & - 10613,10615,10616,10618,10620,10622,10623,10624,10626,10628,10630,10632, & - 10634,10635,10636,10637,10638,10640,10642,10644,10646,10647,10648,10650, & - 10652,10654,10656,10658,10659,10661,10662,10663,10664,10666,10668,10670, & - 10672,10673,10674,10676,10677,10679,10680,10681,10683,10684,10686,10687, & - 10689,10690,10692,10693,10694,10696,10697,10698,10699,10701,10702,10704, & - 10705,10707,10708,10710,10712,10713,10715,10716,10717,10718,10720,10722, & - 10724,10726,10727,10728,10729,10731,10733,10735,10737,10738,10739,10740, & - 10742,10744,10746,10747,10748,10749,10751,10753,10755,10757,10759,10760, & - 10761,10762,10764,10766,10768,10770,10772,10774,10776,10777,10778,10779, & - 10781,10783,10785,10787,10789,10790,10791,10792,10794,10796,10798,10800, & - 10802,10803,10804,10805,10807,10809,10811,10813,10815,10817,10818,10819, & - 10821,10823,10825,10826,10827,10828,10830,10832,10834,10835,10836,10837, & - 10839,10841,10843,10844,10845,10846,10848,10850,10852,10853,10855,10857, & - 10859,10860,10861,10862,10864,10866,10868,10869,10870,10871,10873,10875, & - 10877,10879,10881,10883,10884,10885,10887,10889,10891,10892,10894,10896 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_19 = (/ & - 10898,10899,10901,10903,10905,10906,10907,10908,10910,10912,10914,10916, & - 10917,10918,10919,10921,10923,10925,10927,10928,10929,10930,10932,10934, & - 10936,10937,10939,10941,10943,10944,10945,10946,10948,10950,10952,10953, & - 10955,10957,10959,10960,10961,10962,10964,10966,10968,10970,10972,10973, & - 10975,10977,10979,10980,10982,10984,10986,10987,10989,10991,10993,10994, & - 10995,10996,10998,11000,11002,11004,11006,11008,11009,11010,11012,11014, & - 11016,11017,11018,11019,11021,11023,11025,11026,11027,11028,11030,11032, & - 11034,11036,11037,11039,11041,11043,11044,11046,11048,11050,11052,11054, & - 11056,11057,11058,11060,11061,11062,11064,11065,11067,11068,11069,11070, & - 11071,11073,11074,11076,11077,11078,11080,11081,11083,11085,11086,11088, & - 11089,11090,11092,11093,11095,11097,11098,11100,11102,11104,11106,11108, & - 11109,11110,11111,11113,11115,11117,11119,11121,11122,11124,11125,11127, & - 11128,11129,11130,11132,11134,11136,11137,11139,11140,11141,11143,11145, & - 11147,11148,11150,11151,11152,11154,11156,11157,11158,11160,11162,11164, & - 11166,11168,11170,11171,11172,11173,11175,11177,11179,11181,11183,11184, & - 11186,11188,11190,11192,11194,11196,11197,11199,11200,11201,11202,11204, & - 11205,11207,11208,11210,11211,11212,11213,11215,11216,11218,11219,11221, & - 11222,11224,11225,11226,11228,11230,11232,11233,11235,11237,11239,11241, & - 11243,11245,11247,11248,11249,11251,11253,11255,11257,11259,11261,11263, & - 11265,11267,11269,11271,11272,11273,11275,11277,11279,11280,11281,11282, & - 11283,11285,11287,11289,11291,11293,11295,11296,11298,11300,11302,11304, & - 11305,11306,11308,11310,11312,11314,11316,11317,11319,11321,11323,11325, & - 11326,11327,11329,11330,11331,11333,11335,11337,11339,11340,11341,11343, & - 11344,11345,11346,11348,11349,11351,11352,11354,11355,11356,11357,11359, & - 11360,11362,11363,11364,11365,11367,11369,11371,11373,11375,11376,11377, & - 11379,11380,11382,11383,11384,11386,11388,11390,11392,11394,11396,11397, & - 11399,11401,11402,11403,11404,11406,11407,11409,11410,11412,11413,11415, & - 11416,11417,11419,11420,11422,11424,11426,11428,11430,11432,11434,11436, & - 11438,11439,11441,11442,11444,11446,11447,11449,11450,11452,11453,11455, & - 11456,11458,11459,11461,11462,11464,11465,11467,11468,11470,11471,11473 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_20 = (/ & - 11475,11477,11478,11480,11481,11483,11485,11486,11488,11489,11491,11493, & - 11494,11496,11497,11498,11500,11502,11504,11505,11506,11508,11510,11512, & - 11514,11515,11517,11518,11520,11522,11524,11526,11528,11530,11531,11533, & - 11535,11537,11538,11539,11540,11542,11544,11546,11547,11549,11551,11553, & - 11554,11556,11557,11558,11560,11561,11563,11564,11566,11567,11569,11570, & - 11572,11573,11575,11576,11578,11579,11581,11582,11584,11586,11587,11589, & - 11590,11592,11593,11595,11596,11597,11598,11600,11601,11603,11604,11606, & - 11607,11609,11611,11612,11614,11615,11616,11618,11620,11622,11623,11625, & - 11627,11628,11630,11631,11633,11634,11636,11637,11638,11640,11642,11644, & - 11646,11648,11650,11652,11653,11654,11656,11658,11660,11662,11663,11665, & - 11666,11668,11670,11672,11674,11675,11677,11678,11680,11681,11683,11684, & - 11685,11686,11688,11689,11691,11692,11694,11695,11697,11698,11699,11701, & - 11703,11705,11706,11708,11710,11711,11713,11714,11715,11717,11719,11720, & - 11722,11724,11725,11727,11728,11730,11732,11733,11735,11737,11739,11740, & - 11741,11743,11744,11746,11747,11749,11750,11752,11753,11754,11756,11758, & - 11759,11761,11763,11764,11765,11767,11768,11770,11771,11773,11774,11776, & - 11778,11779,11781,11782,11783,11785,11787,11789,11790,11792,11793,11795, & - 11796,11797,11799,11801,11803,11804,11806,11807,11809,11810,11812,11814, & - 11815,11817,11818,11819,11821,11823,11825,11826,11827,11829,11830,11831, & - 11833,11834,11836,11837,11839,11840,11841,11843,11845,11846,11848,11849, & - 11851,11853,11854,11856,11857,11858,11860,11862,11864,11866,11867,11869, & - 11870,11872,11873,11874,11876,11878,11880,11881,11883,11884,11886,11887, & - 11889,11891,11892,11894,11895,11896,11898,11900,11902,11903,11905,11906, & - 11908,11909,11910,11911,11913,11915,11916,11918,11919,11920,11922,11923, & - 11925,11927,11928,11930,11931,11932,11934,11936,11938,11940,11941,11943, & - 11944,11946,11947,11949,11951,11952,11954,11955,11956,11958,11960,11962, & - 11963,11965,11966,11968,11969,11971,11973,11974,11976,11977,11979,11980, & - 11982,11984,11986,11987,11989,11990,11992,11993,11995,11996,11998,11999, & - 12001,12002,12004,12005,12007,12008,12009,12011,12012,12014,12015,12017, & - 12018,12020,12021,12022,12024,12025,12027,12028,12029,12030,12032,12034 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_21 = (/ & - 12035,12037,12038,12040,12041,12043,12045,12047,12048,12049,12051,12052, & - 12054,12056,12057,12059,12060,12062,12063,12065,12067,12068,12070,12071, & - 12073,12074,12076,12077,12079,12081,12082,12084,12085,12086,12088,12089, & - 12091,12092,12094,12095,12097,12099,12100,12102,12103,12104,12106,12107, & - 12109,12110,12112,12113,12115,12117,12118,12120,12121,12122,12124,12125, & - 12127,12128,12130,12131,12133,12135,12136,12138,12139,12140,12142,12143, & - 12145,12146,12148,12149,12151,12153,12154,12156,12157,12159,12160,12162, & - 12163,12164,12166,12168,12170,12171,12173,12174,12176,12178,12179,12181, & - 12182,12184,12185,12186,12188,12189,12191,12192,12194,12195,12197,12198, & - 12200,12202,12203,12205,12206,12208,12209,12210,12212,12213,12214,12216, & - 12217,12219,12221,12222,12224,12225,12227,12228,12229,12230,12232,12233, & - 12235,12236,12238,12239,12240,12242,12243,12244,12245,12247,12249,12250, & - 12252,12253,12255,12256,12258,12260,12261,12263,12264,12266,12267,12269, & - 12270,12272,12274,12275,12276,12277,12279,12281,12282,12284,12285,12287, & - 12288,12289,12291,12292,12293,12295,12296,12298,12299,12300,12302,12303, & - 12304,12306,12307,12309,12310,12312,12314,12315,12316,12318,12319,12321, & - 12322,12324,12326,12327,12328,12329,12331,12332,12334,12335,12337,12339, & - 12341,12342,12343,12344,12346,12348,12350,12351,12352,12353,12355,12356, & - 12358,12359,12360,12361,12362,12364,12365,12367,12368,12370,12371,12373, & - 12374,12376,12377,12378,12379,12381,12382,12384,12386,12387,12388,12389, & - 12391,12392,12394,12395,12397,12399,12401,12403,12405,12407,12409,12410, & - 12412,12414,12416,12417,12419,12421,12423,12425,12427,12428,12430,12432, & - 12434,12436,12438,12439,12441,12442,12444,12446,12448,12450,12452,12454, & - 12455,12456,12457,12458,12460,12462,12464,12465,12466,12468,12470,12472, & - 12473,12474,12475,12477,12479,12481,12482,12483,12484,12486,12488,12490, & - 12491,12492,12493,12494,12496,12497,12499,12500,12501,12503,12505,12507, & - 12508,12510,12511,12513,12515,12517,12519,12521,12523,12524,12525,12526, & - 12527,12528,12529,12531,12533,12535,12536,12537,12539,12541,12543,12544, & - 12546,12548,12550,12551,12552,12553,12555,12557,12559,12560,12561,12563, & - 12564,12566,12567,12569,12570,12572,12573,12574,12575,12576,12577,12579 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_22 = (/ & - 12580,12581,12583,12584,12586,12588,12590,12591,12593,12595,12597,12599, & - 12601,12603,12605,12606,12608,12610,12611,12613,12614,12616,12617,12619, & - 12621,12623,12625,12626,12627,12629,12631,12633,12634,12636,12638,12640, & - 12641,12642,12643,12645,12647,12649,12650,12651,12653,12655,12657,12658, & - 12660,12662,12664,12665,12667,12669,12671,12672,12673,12674,12675,12677, & - 12678,12679,12681,12682,12684,12685,12687,12688,12690,12691,12693,12694, & - 12695,12696,12698,12700,12702,12703,12705,12707,12709,12711,12713,12715, & - 12717,12718,12720,12721,12723,12725,12726,12728,12729,12731,12732,12734, & - 12736,12738,12740,12741,12742,12743,12745,12747,12749,12750,12752,12754, & - 12756,12758,12760,12762,12764,12765,12767,12769,12770,12772,12773,12775, & - 12777,12779,12780,12782,12783,12785,12787,12789,12791,12793,12795,12797, & - 12798,12800,12801,12803,12805,12807,12808,12809,12810,12812,12814,12816, & - 12817,12819,12821,12823,12824,12825,12826,12828,12830,12832,12833,12834, & - 12835,12836,12837,12839,12840,12841,12843,12844,12846,12847,12849,12850, & - 12851,12853,12855,12857,12858,12860,12861,12862,12864,12865,12867,12869, & - 12870,12872,12874,12876,12877,12879,12881,12883,12885,12887,12889,12891, & - 12892,12894,12895,12896,12897,12898,12899,12901,12903,12905,12906,12907, & - 12908,12910,12912,12914,12915,12917,12919,12921,12922,12923,12924,12926, & - 12928,12930,12931,12932,12933,12934,12935,12937,12938,12939,12941,12942, & - 12944,12945,12947,12948,12949,12951,12953,12955,12956,12958,12960,12962, & - 12963,12964,12965,12967,12969,12971,12972,12974,12975,12977,12979,12981, & - 12983,12985,12987,12989,12990,12992,12993,12995,12997,12999,13000,13001, & - 13002,13004,13006,13008,13009,13011,13013,13015,13016,13017,13018,13020, & - 13022,13024,13025,13026,13027,13028,13029,13031,13032,13033,13035,13036, & - 13038,13039,13041,13042,13043,13045,13047,13049,13050,13052,13054,13055, & - 13057,13058,13060,13061,13063,13065,13067,13068,13070,13072,13074,13076, & - 13078,13079,13081,13083,13085,13087,13089,13091,13092,13093,13095,13097, & - 13099,13100,13101,13103,13105,13107,13108,13110,13111,13113,13115,13117, & - 13118,13119,13121,13123,13125,13126,13128,13130,13132,13133,13134,13136, & - 13138,13140,13141,13142,13144,13145,13147,13148,13150,13151,13153,13154 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_23 = (/ & - 13155,13156,13158,13160,13161,13163,13164,13166,13167,13169,13170,13171, & - 13173,13175,13177,13178,13179,13181,13182,13184,13186,13188,13189,13191, & - 13193,13195,13197,13199,13201,13203,13204,13206,13207,13209,13211,13212, & - 13214,13215,13217,13218,13220,13221,13222,13224,13225,13226,13228,13229, & - 13231,13232,13234,13235,13237,13238,13240,13241,13242,13243,13245,13246, & - 13248,13249,13251,13252,13253,13254,13256,13257,13259,13260,13262,13263, & - 13265,13266,13268,13269,13271,13272,13273,13274,13275,13276,13278,13279, & - 13281,13283,13285,13286,13288,13290,13292,13294,13296,13298,13300,13301, & - 13302,13303,13305,13307,13309,13311,13313,13314,13316,13318,13320,13322, & - 13324,13326,13328,13329,13331,13333,13335,13336,13337,13338,13340,13342, & - 13344,13345,13347,13349,13351,13353,13355,13357,13359,13360,13362,13363, & - 13364,13365,13367,13368,13370,13371,13373,13375,13377,13379,13381,13383, & - 13384,13385,13387,13389,13391,13392,13393,13395,13397,13399,13400,13402, & - 13404,13406,13407,13408,13409,13411,13413,13415,13416,13417,13419,13420, & - 13421,13423,13424,13425,13426,13428,13429,13431,13432,13434,13435,13437, & - 13439,13441,13442,13444,13445,13447,13449,13450,13451,13453,13454,13456, & - 13457,13459,13460,13462,13463,13465,13466,13468,13469,13470,13471,13473, & - 13474,13476,13477,13478,13479,13481,13482,13483,13484,13486,13487,13488, & - 13490,13491,13493,13495,13496,13498,13499,13501,13503,13505,13507,13509, & - 13510,13511,13512,13513,13515,13516,13517,13519,13520,13522,13524,13526, & - 13527,13529,13530,13532,13534,13536,13538,13540,13541,13542,13543,13545, & - 13547,13548,13549,13551,13552,13554,13556,13558,13560,13562,13564,13565, & - 13566,13568,13569,13571,13572,13574,13575,13577,13578,13579,13580,13582, & - 13583,13584,13586,13587,13589,13591,13593,13595,13597,13598,13599,13601, & - 13603,13605,13607,13609,13610,13611,13613,13615,13617,13618,13620,13621, & - 13623,13625,13627,13629,13631,13632,13633,13635,13636,13638,13640,13641, & - 13643,13645,13647,13649,13651,13652,13653,13655,13657,13659,13660,13661, & - 13662,13663,13665,13666,13667,13668,13669,13671,13673,13674,13675,13677, & - 13679,13681,13682,13683,13685,13686,13687,13689,13690,13692,13694,13696, & - 13698,13700,13702,13703,13704,13705,13707,13709,13711,13713,13714,13715 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_24 = (/ & - 13717,13719,13721,13723,13725,13726,13727,13728,13729,13731,13733,13735, & - 13737,13738,13739,13740,13742,13744,13746,13747,13748,13749,13751,13753, & - 13755,13757,13759,13761,13762,13763,13765,13766,13767,13768,13769,13771, & - 13773,13774,13775,13776,13778,13780,13782,13783,13784,13786,13788,13790, & - 13791,13793,13794,13796,13798,13800,13802,13804,13806,13807,13808,13809, & - 13811,13813,13815,13817,13818,13820,13822,13824,13826,13827,13828,13829, & - 13830,13831,13833,13835,13837,13839,13840,13841,13843,13845,13847,13848, & - 13849,13851,13853,13855,13857,13859,13861,13863,13864,13866,13868,13870, & - 13872,13874,13875,13876,13878,13879,13881,13882,13884,13886,13887,13889, & - 13890,13892,13893,13895,13897,13899,13901,13903,13905,13906,13907,13908, & - 13909,13911,13913,13914,13916,13917,13918,13919,13921,13923,13925,13927, & - 13928,13930,13931,13932,13934,13936,13937,13939,13941,13943,13944,13945, & - 13947,13949,13950,13952,13954,13956,13957,13959,13961,13962,13963,13965, & - 13967,13969,13971,13973,13975,13976,13977,13978,13980,13981,13983,13984, & - 13985,13987,13989,13990,13991,13993,13994,13996,13998,13999,14000,14002, & - 14003,14005,14007,14009,14010,14012,14013,14015,14017,14018,14019,14021, & - 14022,14024,14026,14027,14028,14030,14032,14033,14035,14037,14038,14039, & - 14041,14042,14044,14045,14047,14048,14049,14051,14052,14053,14054,14056, & - 14057,14058,14060,14061,14062,14064,14066,14067,14068,14070,14071,14073, & - 14074,14076,14077,14078,14080,14081,14083,14085,14086,14087,14089,14091, & - 14092,14093,14094,14095,14096,14098,14099,14100,14101,14103,14104,14106, & - 14107,14109,14111,14112,14114,14115,14116,14117,14119,14120,14122,14123, & - 14124,14126,14127,14129,14131,14132,14133,14134,14136,14138,14139,14140, & - 14142,14143,14145,14146,14148,14149,14150,14152,14154,14155,14156,14157, & - 14159,14160,14162,14163,14165,14166,14168,14169,14171,14172,14174,14175, & - 14176,14177,14179,14181,14182,14183,14185,14186,14188,14190,14191,14193, & - 14194,14196,14198,14199,14200,14202,14204,14205,14206,14208,14209,14211, & - 14213,14214,14215,14216,14218,14219,14221,14222,14224,14226,14228,14230, & - 14231,14232,14234,14235,14236,14238,14239,14241,14242,14244,14246,14248, & - 14250,14251,14252,14254,14256,14258,14260,14262,14264,14265,14266,14268 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_25 = (/ & - 14270,14272,14274,14276,14278,14279,14280,14282,14284,14286,14287,14289, & - 14291,14293,14294,14295,14297,14299,14301,14303,14305,14306,14308,14310, & - 14312,14313,14315,14317,14319,14321,14322,14323,14325,14326,14328,14329, & - 14330,14332,14334,14335,14337,14338,14340,14342,14344,14346,14347,14348, & - 14350,14352,14354,14356,14357,14358,14359,14361,14363,14365,14367,14368, & - 14369,14370,14372,14374,14376,14378,14380,14381,14382,14384,14385,14387, & - 14388,14389,14391,14393,14395,14396,14398,14399,14401,14403,14405,14406, & - 14407,14408,14410,14412,14414,14415,14417,14419,14421,14423,14424,14425, & - 14427,14429,14431,14433,14435,14437,14438,14440,14442,14444,14446,14448, & - 14450,14451,14452,14454,14456,14458,14460,14462,14464,14465,14466,14468, & - 14470,14472,14473,14474,14475,14477,14479,14481,14483,14485,14486,14488, & - 14490,14492,14493,14495,14497,14499,14500,14502,14503,14505,14506,14508, & - 14510,14512,14513,14514,14515,14516,14517,14518,14520,14522,14524,14526, & - 14527,14528,14530,14532,14534,14536,14537,14538,14539,14541,14542,14544, & - 14545,14547,14548,14549,14551,14553,14555,14557,14559,14560,14562,14564, & - 14566,14567,14568,14569,14571,14573,14575,14577,14579,14581,14582,14583, & - 14585,14587,14589,14590,14591,14592,14594,14596,14598,14599,14600,14601, & - 14603,14605,14607,14608,14609,14610,14612,14614,14616,14618,14619,14620, & - 14621,14623,14624,14626,14627,14629,14631,14632,14634,14635,14637,14639, & - 14641,14643,14644,14645,14646,14648,14650,14652,14654,14655,14657,14658, & - 14660,14661,14663,14665,14667,14669,14671,14673,14675,14676,14677,14679, & - 14681,14683,14685,14687,14689,14690,14691,14693,14695,14697,14699,14700, & - 14702,14704,14706,14707,14708,14709,14711,14712,14714,14715,14717,14719, & - 14721,14723,14725,14726,14727,14729,14731,14733,14734,14735,14737,14739, & - 14740,14741,14742,14744,14746,14748,14750,14751,14752,14754,14756,14758, & - 14760,14761,14762,14763,14765,14767,14769,14770,14772,14774,14776,14778, & - 14779,14780,14781,14783,14785,14787,14788,14789,14791,14793,14795,14797, & - 14798,14799,14801,14803,14805,14807,14808,14809,14810,14811,14812,14813, & - 14814,14815,14816,14818,14820,14822,14824,14825,14826,14828,14830,14832, & - 14834,14835,14836,14837,14839,14841,14843,14845,14847,14848,14850,14852 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_26 = (/ & - 14854,14856,14858,14859,14861,14862,14864,14865,14867,14869,14870,14871, & - 14872,14874,14876,14877,14879,14880,14881,14883,14884,14885,14887,14889, & - 14891,14893,14895,14897,14898,14899,14901,14903,14905,14906,14908,14909, & - 14911,14912,14914,14915,14917,14918,14920,14921,14922,14924,14925,14926, & - 14928,14930,14932,14934,14936,14938,14940,14942,14943,14944,14945,14947, & - 14949,14951,14953,14955,14957,14959,14960,14962,14964,14966,14968,14969, & - 14970,14971,14972,14974,14976,14978,14980,14982,14984,14986,14988,14989, & - 14990,14992,14994,14996,14998,14999,15000,15001,15003,15005,15007,15009, & - 15011,15013,15015,15016,15017,15018,15020,15022,15024,15026,15028,15030, & - 15031,15032,15034,15036,15038,15039,15040,15041,15043,15045,15047,15049, & - 15051,15052,15054,15056,15058,15060,15062,15064,15065,15066,15068,15070, & - 15072,15074,15075,15076,15077,15079,15081,15083,15085,15086,15087,15088, & - 15089,15091,15093,15095,15097,15099,15101,15103,15105,15106,15107,15109, & - 15111,15113,15115,15116,15117,15119,15121,15123,15124,15125,15126,15128, & - 15130,15132,15133,15134,15136,15138,15140,15142,15144,15146,15147,15148, & - 15150,15152,15154,15156,15157,15158,15159,15161,15163,15165,15167,15169, & - 15171,15172,15173,15175,15177,15179,15181,15183,15185,15186,15187,15188, & - 15190,15192,15193,15194,15196,15198,15200,15202,15204,15205,15207,15209, & - 15211,15212,15214,15216,15218,15220,15221,15222,15223,15225,15227,15229, & - 15230,15231,15232,15233,15235,15237,15238,15239,15241,15243,15245,15247, & - 15249,15250,15252,15254,15256,15258,15259,15260,15261,15263,15265,15267, & - 15269,15271,15273,15274,15275,15277,15279,15281,15283,15284,15285,15286, & - 15287,15289,15291,15293,15295,15296,15298,15300,15302,15304,15305,15306, & - 15307,15308,15310,15312,15314,15316,15317,15319,15321,15323,15324,15326, & - 15328,15330,15332,15333,15334,15335,15336,15338,15340,15342,15344,15345, & - 15347,15349,15351,15352,15354,15356,15358,15360,15361,15362,15363,15364, & - 15366,15368,15370,15372,15373,15375,15377,15379,15380,15382,15384,15386, & - 15388,15389,15390,15391,15392,15394,15396,15398,15400,15401,15403,15405, & - 15407,15409,15410,15411,15412,15413,15414,15416,15418,15420,15421,15423, & - 15424,15426,15427,15429,15430,15431,15432,15434,15436,15437,15438,15439 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_27 = (/ & - 15441,15443,15445,15447,15448,15449,15451,15452,15453,15455,15457,15459, & - 15461,15462,15464,15466,15468,15470,15472,15473,15475,15477,15479,15480, & - 15482,15484,15486,15487,15489,15490,15492,15494,15496,15497,15499,15501, & - 15503,15504,15505,15506,15508,15510,15512,15513,15515,15517,15519,15520, & - 15521,15522,15524,15526,15528,15530,15532,15533,15535,15537,15539,15540, & - 15542,15544,15546,15547,15549,15550,15551,15552,15554,15555,15556,15558, & - 15559,15560,15562,15563,15565,15567,15568,15569,15571,15572,15574,15575, & - 15577,15578,15579,15581,15583,15585,15586,15588,15590,15592,15594,15595, & - 15596,15598,15599,15600,15602,15604,15605,15606,15607,15608,15610,15611, & - 15613,15615,15617,15619,15620,15622,15623,15624,15625,15627,15628,15630, & - 15631,15632,15634,15636,15637,15638,15640,15641,15643,15645,15646,15647, & - 15649,15651,15653,15655,15657,15659,15660,15662,15664,15666,15667,15669, & - 15671,15673,15674,15675,15676,15678,15680,15682,15683,15685,15687,15689, & - 15690,15692,15693,15695,15696,15697,15698,15700,15701,15703,15704,15705, & - 15707,15709,15710,15711,15713,15714,15716,15718,15719,15720,15722,15724, & - 15725,15726,15728,15729,15730,15731,15733,15734,15735,15737,15739,15741, & - 15743,15745,15747,15749,15750,15752,15754,15756,15757,15759,15761,15763, & - 15764,15765,15767,15769,15771,15772,15774,15776,15778,15779,15781,15782, & - 15784,15786,15788,15789,15790,15791,15792,15794,15795,15797,15798,15799, & - 15801,15803,15805,15807,15809,15810,15812,15814,15816,15817,15819,15821, & - 15823,15824,15825,15827,15829,15831,15832,15834,15836,15838,15839,15841, & - 15842,15844,15846,15848,15850,15852,15853,15855,15857,15859,15860,15862, & - 15864,15866,15867,15868,15869,15871,15873,15875,15876,15878,15880,15882, & - 15883,15885,15886,15888,15889,15890,15891,15893,15894,15896,15897,15898, & - 15900,15901,15902,15903,15905,15907,15908,15910,15911,15912,15914,15916, & - 15918,15920,15922,15924,15926,15927,15929,15930,15931,15933,15935,15937, & - 15938,15940,15942,15944,15946,15948,15949,15951,15953,15955,15956,15958, & - 15960,15962,15963,15964,15965,15967,15969,15971,15972,15974,15976,15978, & - 15979,15981,15982,15984,15985,15986,15988,15990,15991,15992,15993,15995, & - 15996,15998,15999,16000,16001,16003,16005,16006,16008,16009,16010,16012 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_28 = (/ & - 16014,16016,16018,16020,16022,16024,16025,16027,16028,16029,16031,16032, & - 16033,16035,16037,16039,16040,16042,16044,16046,16048,16050,16051,16053, & - 16055,16057,16058,16060,16062,16064,16065,16066,16067,16069,16071,16073, & - 16074,16076,16078,16080,16081,16083,16084,16086,16087,16088,16090,16092, & - 16093,16094,16095,16097,16098,16100,16101,16102,16103,16105,16107,16108, & - 16110,16111,16112,16114,16116,16118,16120,16122,16124,16126,16127,16129, & - 16130,16131,16132,16133,16135,16137,16139,16141,16143,16144,16146,16148, & - 16150,16151,16153,16155,16157,16158,16160,16161,16163,16164,16165,16167, & - 16168,16170,16171,16172,16174,16175,16177,16178,16179,16181,16182,16183, & - 16185,16187,16188,16189,16191,16192,16193,16195,16197,16198,16199,16201, & - 16203,16205,16206,16207,16208,16209,16211,16212,16214,16216,16218,16220, & - 16222,16223,16225,16227,16229,16230,16232,16234,16236,16237,16238,16240, & - 16242,16244,16245,16247,16249,16251,16252,16254,16255,16257,16259,16261, & - 16263,16264,16266,16268,16270,16272,16274,16275,16277,16279,16281,16282, & - 16284,16286,16288,16289,16290,16291,16293,16295,16297,16298,16300,16302, & - 16304,16305,16307,16308,16310,16312,16314,16316,16318,16319,16321,16323, & - 16325,16326,16328,16330,16332,16333,16334,16336,16338,16340,16341,16343, & - 16345,16347,16348,16350,16351,16353,16354,16355,16356,16358,16359,16360, & - 16362,16363,16365,16367,16369,16371,16373,16374,16376,16378,16380,16381, & - 16383,16385,16387,16388,16389,16391,16393,16395,16396,16398,16400,16402, & - 16403,16405,16406,16407,16408,16410,16411,16412,16414,16415,16417,16418, & - 16419,16421,16422,16424,16425,16426,16428,16430,16431,16432,16434,16435, & - 16437,16439,16440,16441,16443,16445,16446,16448,16450,16452,16454,16455, & - 16456,16458,16460,16462,16464,16466,16468,16470,16471,16473,16474,16476, & - 16477,16479,16481,16482,16483,16484,16486,16488,16490,16492,16494,16496, & - 16497,16498,16500,16502,16504,16506,16507,16508,16510,16511,16512,16513, & - 16514,16516,16518,16520,16522,16523,16524,16526,16528,16530,16532,16533, & - 16535,16536,16537,16539,16541,16543,16544,16546,16547,16549,16550,16552, & - 16554,16555,16557,16558,16559,16561,16563,16565,16567,16569,16571,16572, & - 16573,16575,16577,16579,16580,16582,16584,16585,16587,16588,16590,16592 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_29 = (/ & - 16594,16596,16597,16598,16599,16601,16603,16605,16606,16607,16609,16610, & - 16611,16612,16614,16616,16618,16619,16621,16622,16623,16624,16626,16627, & - 16629,16630,16632,16634,16635,16636,16638,16639,16640,16642,16644,16646, & - 16647,16648,16650,16652,16654,16656,16658,16659,16661,16663,16664,16665, & - 16666,16668,16669,16670,16672,16674,16675,16677,16678,16680,16681,16683, & - 16685,16686,16688,16690,16692,16694,16696,16698,16699,16700,16702,16704, & - 16706,16707,16709,16710,16711,16713,16714,16716,16718,16720,16722,16724, & - 16726,16728,16730,16732,16734,16736,16737,16739,16741,16743,16745,16747, & - 16748,16749,16750,16752,16754,16756,16757,16759,16761,16762,16764,16766, & - 16767,16768,16770,16772,16773,16774,16776,16778,16780,16782,16784,16785, & - 16787,16789,16791,16793,16794,16795,16796,16798,16800,16802,16804,16806, & - 16808,16810,16811,16812,16814,16816,16818,16820,16822,16824,16825,16826, & - 16828,16830,16832,16833,16835,16837,16839,16840,16842,16844,16846,16848, & - 16850,16852,16853,16854,16856,16858,16860,16861,16863,16865,16867,16868, & - 16870,16871,16873,16874,16875,16877,16878,16880,16882,16884,16885,16887, & - 16888,16890,16891,16892,16894,16895,16896,16897,16899,16900,16902,16903, & - 16905,16906,16908,16909,16911,16912,16914,16915,16917,16918,16919,16921, & - 16922,16923,16925,16926,16928,16929,16931,16932,16934,16935,16936,16938, & - 16939,16941,16942,16944,16946,16947,16949,16950,16951,16953,16954,16956, & - 16957,16959,16960,16961,16963,16965,16967,16968,16970,16971,16972,16973, & - 16975,16977,16978,16980,16982,16984,16986,16988,16990,16992,16993,16994, & - 16996,16997,16999,17000,17001,17003,17005,17007,17009,17011,17012,17013, & - 17015,17016,17017,17019,17021,17023,17025,17026,17027,17029,17031,17033, & - 17035,17037,17039,17040,17041,17043,17045,17047,17049,17050,17051,17052, & - 17054,17055,17057,17058,17060,17062,17064,17066,17067,17068,17070,17072, & - 17073,17074,17076,17078,17080,17082,17083,17084,17086,17088,17090,17092, & - 17093,17094,17096,17097,17099,17100,17102,17103,17104,17105,17107,17109, & - 17110,17112,17113,17115,17116,17117,17119,17120,17122,17124,17125,17127, & - 17128,17130,17131,17132,17134,17135,17136,17137,17139,17140,17141,17143, & - 17145,17147,17149,17150,17151,17152,17154,17156,17158,17159,17160,17161 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_30 = (/ & - 17163,17165,17167,17169,17170,17171,17173,17174,17176,17177,17179,17181, & - 17182,17183,17185,17187,17188,17189,17191,17192,17194,17196,17197,17199, & - 17200,17202,17203,17204,17205,17207,17208,17210,17211,17213,17214,17215, & - 17216,17218,17219,17221,17222,17224,17225,17226,17227,17229,17230,17232, & - 17233,17235,17236,17238,17239,17240,17242,17244,17246,17247,17248,17250, & - 17252,17254,17256,17257,17259,17260,17261,17262,17264,17266,17267,17269, & - 17270,17272,17273,17274,17276,17277,17279,17281,17282,17284,17285,17286, & - 17288,17290,17291,17292,17294,17296,17298,17300,17302,17304,17306,17307, & - 17308,17310,17312,17314,17316,17317,17318,17319,17321,17323,17325,17327, & - 17328,17330,17332,17334,17335,17336,17337,17339,17340,17342,17343,17345, & - 17347,17348,17350,17351,17352,17354,17356,17358,17359,17361,17362,17364, & - 17365,17366,17368,17370,17371,17372,17374,17376,17378,17380,17382,17383, & - 17384,17385,17387,17388,17390,17391,17393,17395,17396,17397,17399,17400, & - 17402,17403,17405,17406,17408,17409,17411,17412,17414,17416,17418,17420, & - 17422,17424,17426,17428,17429,17430,17432,17434,17436,17437,17439,17441, & - 17443,17444,17446,17448,17450,17451,17453,17454,17456,17457,17459,17461, & - 17462,17463,17465,17466,17468,17470,17472,17474,17476,17478,17479,17480, & - 17482,17484,17486,17488,17490,17492,17493,17494,17496,17497,17499,17500, & - 17502,17504,17506,17508,17510,17512,17514,17515,17516,17517,17519,17520, & - 17522,17523,17525,17526,17528,17529,17530,17532,17534,17536,17538,17540, & - 17542,17544,17545,17546,17548,17549,17551,17552,17554,17555,17557,17559, & - 17560,17562,17564,17566,17568,17570,17572,17574,17575,17576,17578,17580, & - 17582,17583,17584,17585,17587,17588,17590,17591,17592,17594,17596,17597, & - 17599,17600,17602,17603,17604,17606,17608,17609,17610,17612,17613,17615, & - 17616,17618,17619,17621,17623,17624,17626,17627,17629,17630,17632,17633, & - 17635,17636,17637,17639,17641,17642,17644,17645,17647,17648,17650,17651, & - 17652,17654,17655,17657,17659,17661,17663,17665,17667,17669,17670,17671, & - 17673,17674,17676,17677,17679,17680,17682,17683,17685,17686,17687,17689, & - 17690,17692,17693,17694,17696,17697,17699,17700,17701,17703,17704,17705, & - 17707,17709,17710,17712,17713,17715,17716,17718,17720,17721,17723,17724 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_31 = (/ & - 17726,17727,17729,17731,17733,17734,17736,17737,17739,17741,17742,17744, & - 17745,17747,17749,17751,17753,17755,17756,17757,17758,17760,17762,17764, & - 17765,17766,17767,17769,17771,17773,17774,17775,17776,17777,17778,17780, & - 17781,17782,17784,17785,17786,17788,17789,17791,17792,17793,17795,17796, & - 17798,17799,17800,17802,17804,17805,17806,17808,17809,17811,17813,17815, & - 17817,17819,17820,17821,17823,17825,17827,17828,17829,17831,17833,17835, & - 17836,17837,17838,17839,17841,17842,17843,17845,17847,17848,17850,17851, & - 17853,17854,17856,17858,17860,17861,17863,17864,17866,17867,17869,17870, & - 17872,17873,17874,17876,17877,17879,17881,17883,17885,17886,17887,17888, & - 17889,17891,17892,17893,17895,17896,17898,17899,17900,17902,17903,17905, & - 17907,17909,17911,17912,17913,17914,17915,17917,17918,17919,17921,17922, & - 17923,17925,17926,17928,17929,17930,17932,17933,17935,17937,17939,17941, & - 17942,17943,17944,17945,17947,17948,17949,17951,17952,17953,17955,17956, & - 17958,17959,17960,17962,17963,17965,17967,17969,17971,17972,17973,17974, & - 17975,17977,17978,17979,17981,17982,17983,17985,17986,17988,17989,17990, & - 17992,17993,17995,17997,17999,18001,18003,18005,18007,18008,18009,18011, & - 18013,18015,18016,18017,18018,18019,18021,18022,18024,18025,18027,18028, & - 18029,18031,18033,18034,18035,18037,18039,18040,18042,18044,18046,18048, & - 18050,18051,18052,18053,18055,18057,18059,18060,18062,18064,18066,18067, & - 18069,18070,18072,18073,18074,18076,18077,18078,18080,18081,18082,18084, & - 18085,18086,18088,18090,18092,18093,18094,18096,18097,18098,18100,18102, & - 18104,18106,18108,18109,18111,18113,18115,18116,18118,18119,18121,18122, & - 18123,18125,18126,18127,18129,18131,18132,18134,18136,18137,18139,18140, & - 18141,18143,18145,18146,18148,18150,18152,18153,18155,18157,18159,18160, & - 18162,18164,18166,18167,18169,18170,18172,18173,18174,18176,18177,18178, & - 18180,18182,18184,18185,18186,18188,18189,18190,18192,18193,18195,18197, & - 18198,18200,18202,18204,18205,18207,18209,18210,18212,18214,18216,18217, & - 18218,18220,18222,18224,18225,18227,18229,18231,18232,18234,18235,18237, & - 18238,18239,18241,18242,18243,18245,18247,18248,18249,18251,18252,18253, & - 18255,18257,18259,18260,18261,18263,18265,18267,18268,18270,18272,18274 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_32 = (/ & - 18275,18277,18278,18280,18281,18282,18284,18285,18286,18288,18290,18291, & - 18292,18294,18295,18296,18298,18300,18302,18303,18305,18307,18309,18310, & - 18312,18313,18315,18316,18317,18319,18320,18321,18323,18325,18327,18328, & - 18329,18331,18332,18333,18335,18336,18337,18339,18341,18342,18344,18346, & - 18347,18348,18350,18351,18353,18354,18355,18357,18359,18361,18362,18364, & - 18366,18368,18369,18371,18372,18374,18375,18376,18378,18379,18380,18382, & - 18384,18386,18387,18388,18390,18391,18392,18394,18396,18398,18400,18402, & - 18403,18405,18407,18408,18410,18412,18413,18415,18417,18418,18419,18421, & - 18422,18424,18426,18428,18429,18431,18433,18435,18436,18438,18439,18441, & - 18442,18443,18445,18446,18447,18449,18451,18453,18454,18455,18457,18458, & - 18459,18461,18463,18465,18467,18469,18470,18472,18474,18475,18477,18479, & - 18480,18482,18484,18485,18486,18488,18489,18491,18493,18495,18497,18499, & - 18500,18502,18504,18506,18507,18509,18510,18512,18513,18514,18516,18517, & - 18518,18520,18521,18523,18525,18527,18528,18530,18532,18534,18535,18537, & - 18539,18541,18542,18544,18545,18547,18548,18549,18551,18552,18553,18555, & - 18557,18558,18559,18561,18562,18563,18565,18567,18569,18570,18572,18573, & - 18574,18576,18578,18580,18581,18583,18585,18587,18588,18590,18591,18593, & - 18594,18595,18597,18598,18599,18601,18603,18605,18606,18607,18609,18610, & - 18611,18613,18615,18617,18618,18620,18622,18624,18625,18627,18628,18630, & - 18631,18632,18634,18635,18636,18638,18640,18641,18642,18644,18645,18646, & - 18648,18650,18652,18653,18655,18657,18659,18660,18662,18663,18665,18666, & - 18667,18669,18670,18671,18673,18675,18676,18677,18679,18680,18681,18683, & - 18685,18686,18688,18690,18692,18693,18695,18697,18698,18699,18700,18702, & - 18703,18705,18707,18709,18711,18713,18715,18717,18718,18719,18721,18722, & - 18724,18725,18727,18729,18731,18733,18735,18736,18737,18738,18740,18742, & - 18744,18746,18747,18749,18751,18753,18755,18756,18758,18760,18762,18764, & - 18766,18767,18769,18770,18771,18772,18774,18775,18776,18778,18779,18781, & - 18782,18784,18786,18787,18789,18791,18793,18795,18797,18798,18800,18801, & - 18802,18803,18804,18806,18808,18810,18812,18814,18815,18817,18819,18821, & - 18823,18825,18826,18828,18830,18831,18833,18835,18837,18839,18841,18843 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_33 = (/ & - 18845,18846,18847,18849,18850,18852,18854,18856,18858,18860,18862,18863, & - 18864,18866,18868,18870,18872,18874,18876,18877,18878,18880,18882,18884, & - 18886,18888,18890,18892,18893,18894,18896,18897,18899,18901,18902,18904, & - 18906,18908,18910,18912,18914,18916,18917,18918,18920,18922,18924,18925, & - 18927,18929,18931,18933,18935,18937,18938,18939,18940,18941,18943,18945, & - 18947,18948,18949,18950,18952,18953,18955,18956,18958,18960,18961,18963, & - 18964,18965,18967,18969,18970,18971,18973,18975,18976,18978,18980,18982, & - 18984,18986,18987,18988,18989,18991,18992,18994,18996,18998,18999,19000, & - 19002,19004,19006,19008,19010,19012,19014,19016,19017,19019,19020,19022, & - 19023,19025,19027,19028,19030,19031,19033,19034,19036,19037,19038,19040, & - 19041,19042,19043,19045,19046,19048,19049,19051,19053,19054,19055,19057, & - 19058,19059,19061,19063,19064,19066,19068,19070,19072,19073,19074,19076, & - 19077,19078,19080,19082,19084,19086,19087,19088,19089,19091,19093,19095, & - 19097,19099,19101,19102,19103,19105,19107,19108,19110,19112,19114,19115, & - 19117,19119,19121,19123,19124,19125,19127,19129,19131,19132,19134,19136, & - 19138,19139,19141,19143,19145,19147,19148,19149,19151,19153,19155,19156, & - 19157,19158,19160,19162,19164,19166,19167,19168,19170,19172,19174,19176, & - 19178,19180,19181,19182,19184,19186,19188,19189,19190,19191,19193,19194, & - 19196,19197,19199,19201,19203,19205,19206,19207,19208,19210,19211,19213, & - 19215,19217,19218,19219,19220,19222,19223,19225,19226,19227,19229,19230, & - 19232,19233,19234,19236,19237,19239,19240,19242,19243,19245,19246,19248, & - 19249,19251,19252,19253,19255,19257,19258,19260,19261,19262,19264,19265, & - 19267,19269,19271,19273,19275,19277,19278,19279,19281,19283,19285,19287, & - 19288,19289,19290,19292,19294,19296,19297,19298,19300,19301,19303,19304, & - 19306,19307,19309,19310,19312,19313,19314,19316,19318,19320,19322,19324, & - 19326,19327,19329,19331,19333,19335,19336,19337,19338,19340,19342,19344, & - 19346,19348,19350,19351,19352,19354,19356,19358,19359,19361,19363,19365, & - 19367,19369,19371,19372,19373,19375,19376,19378,19379,19380,19381,19383, & - 19384,19386,19387,19389,19390,19391,19392,19394,19395,19397,19398,19400, & - 19402,19404,19406,19408,19410,19411,19412,19414,19416,19418,19420,19422 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_34 = (/ & - 19424,19425,19426,19428,19430,19432,19433,19434,19436,19438,19440,19442, & - 19444,19446,19447,19448,19450,19452,19454,19456,19458,19460,19461,19462, & - 19464,19466,19468,19470,19472,19473,19474,19475,19477,19479,19480,19482, & - 19483,19485,19486,19488,19489,19490,19492,19494,19496,19497,19498,19500, & - 19501,19503,19505,19507,19509,19511,19512,19513,19515,19516,19518,19520, & - 19522,19524,19525,19526,19527,19529,19530,19532,19533,19534,19536,19538, & - 19540,19541,19543,19544,19546,19547,19548,19550,19551,19552,19553,19555, & - 19556,19557,19559,19560,19562,19563,19565,19567,19568,19570,19571,19573, & - 19574,19576,19577,19579,19580,19582,19583,19584,19586,19588,19589,19591, & - 19592,19594,19596,19598,19600,19602,19603,19604,19605,19606,19608,19610, & - 19612,19614,19616,19617,19619,19621,19623,19625,19627,19628,19629,19631, & - 19633,19634,19636,19637,19639,19640,19642,19643,19645,19646,19647,19649, & - 19650,19652,19653,19654,19656,19657,19658,19660,19661,19663,19664,19665, & - 19667,19668,19669,19671,19672,19674,19676,19678,19680,19682,19684,19685, & - 19687,19689,19691,19692,19693,19694,19696,19697,19699,19700,19701,19703, & - 19704,19705,19707,19708,19709,19711,19712,19713,19715,19717,19718,19719, & - 19721,19722,19723,19725,19727,19729,19731,19733,19735,19736,19738,19740, & - 19742,19744,19745,19746,19747,19748,19750,19751,19752,19754,19755,19756, & - 19758,19760,19762,19764,19766,19768,19769,19770,19772,19773,19774,19776, & - 19777,19778,19780,19782,19784,19786,19788,19790,19791,19792,19794,19795, & - 19796,19798,19799,19800,19802,19804,19806,19808,19810,19812,19813,19814, & - 19816,19818,19819,19821,19822,19823,19825,19826,19827,19829,19831,19833, & - 19835,19837,19839,19840,19841,19843,19845,19846,19848,19850,19851,19852, & - 19853,19855,19856,19857,19859,19861,19863,19865,19867,19869,19870,19872, & - 19873,19874,19876,19878,19880,19881,19882,19884,19885,19886,19888,19890, & - 19891,19893,19895,19897,19899,19901,19902,19904,19905,19907,19909,19911, & - 19913,19915,19916,19918,19919,19920,19922,19923,19924,19926,19928,19930, & - 19932,19934,19936,19937,19939,19940,19941,19943,19944,19945,19947,19948, & - 19949,19951,19952,19954,19956,19958,19960,19962,19963,19965,19967,19969, & - 19971,19973,19974,19976,19978,19980,19982,19984,19986,19987,19988,19990 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_35 = (/ & - 19991,19992,19993,19995,19997,19999,20001,20003,20005,20006,20007,20009, & - 20010,20011,20013,20015,20016,20017,20019,20020,20021,20023,20024,20026, & - 20028,20030,20032,20034,20035,20037,20038,20039,20041,20042,20043,20045, & - 20046,20047,20049,20050,20052,20054,20056,20058,20060,20061,20063,20064, & - 20065,20067,20068,20069,20071,20072,20074,20076,20078,20080,20082,20083, & - 20085,20087,20089,20091,20093,20095,20096,20098,20099,20100,20102,20103, & - 20104,20106,20107,20109,20111,20113,20115,20117,20118,20120,20122,20123, & - 20125,20126,20128,20129,20130,20132,20133,20134,20136,20137,20139,20141, & - 20143,20145,20147,20148,20150,20152,20153,20155,20156,20158,20160,20162, & - 20163,20165,20167,20169,20170,20171,20173,20174,20175,20177,20178,20179, & - 20181,20183,20184,20185,20187,20188,20189,20191,20192,20193,20195,20196, & - 20198,20200,20202,20204,20206,20207,20209,20210,20211,20213,20214,20215, & - 20217,20218,20219,20221,20222,20224,20226,20228,20230,20232,20233,20235, & - 20236,20237,20239,20240,20241,20243,20244,20246,20248,20250,20252,20254, & - 20255,20257,20258,20259,20261,20262,20263,20265,20266,20268,20270,20272, & - 20274,20276,20277,20279,20281,20283,20285,20287,20289,20290,20291,20293, & - 20294,20295,20297,20299,20301,20302,20304,20305,20307,20308,20310,20311, & - 20313,20314,20316,20318,20319,20320,20322,20323,20325,20327,20329,20331, & - 20333,20334,20336,20338,20340,20342,20344,20346,20347,20348,20350,20352, & - 20354,20356,20358,20360,20361,20362,20364,20366,20368,20370,20372,20374, & - 20375,20376,20377,20379,20380,20382,20384,20385,20387,20388,20390,20391, & - 20393,20394,20396,20398,20400,20402,20404,20406,20407,20408,20410,20412, & - 20414,20416,20418,20420,20421,20422,20424,20426,20428,20429,20431,20432, & - 20434,20436,20438,20440,20442,20443,20444,20446,20447,20449,20450,20452, & - 20454,20455,20457,20458,20460,20462,20464,20466,20468,20470,20472,20473, & - 20474,20476,20477,20479,20480,20482,20484,20485,20487,20488,20490,20491, & - 20493,20495,20497,20498,20500,20502,20504,20505,20507,20509,20510,20512, & - 20513,20514,20516,20518,20519,20520,20522,20524,20526,20527,20529,20530, & - 20532,20534,20536,20538,20539,20541,20542,20543,20544,20546,20547,20549, & - 20550,20552,20554,20556,20558,20560,20562,20563,20564,20565,20567,20568 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_36 = (/ & - 20570,20572,20574,20576,20578,20580,20581,20583,20585,20587,20588,20590, & - 20591,20593,20594,20596,20598,20600,20602,20604,20606,20607,20608,20610, & - 20612,20614,20616,20618,20619,20621,20623,20625,20627,20629,20630,20632, & - 20634,20636,20638,20640,20641,20643,20644,20646,20647,20648,20650,20651, & - 20653,20655,20657,20658,20660,20661,20663,20664,20665,20667,20668,20670, & - 20671,20673,20675,20677,20679,20680,20681,20682,20684,20686,20687,20689, & - 20691,20693,20694,20696,20697,20698,20700,20701,20703,20704,20705,20707, & - 20708,20710,20711,20712,20714,20716,20718,20720,20722,20724,20725,20726, & - 20728,20730,20732,20733,20734,20735,20737,20738,20740,20741,20742,20744, & - 20745,20747,20748,20749,20751,20752,20754,20756,20757,20759,20760,20761, & - 20763,20764,20766,20768,20769,20771,20772,20774,20775,20776,20778,20780, & - 20782,20783,20785,20786,20787,20788,20790,20791,20793,20794,20795,20797, & - 20799,20801,20803,20805,20806,20807,20809,20811,20812,20814,20816,20818, & - 20819,20820,20821,20823,20825,20827,20829,20831,20832,20834,20835,20837, & - 20838,20840,20841,20843,20844,20846,20847,20848,20850,20852,20854,20855, & - 20857,20858,20859,20860,20862,20863,20865,20867,20869,20870,20871,20872, & - 20874,20876,20878,20880,20881,20882,20884,20886,20888,20890,20891,20892, & - 20893,20895,20896,20898,20899,20900,20902,20904,20905,20907,20909,20911, & - 20913,20914,20915,20916,20918,20920,20921,20923,20924,20925,20927,20929, & - 20930,20932,20933,20935,20937,20939,20940,20942,20944,20946,20948,20950, & - 20952,20953,20954,20956,20958,20959,20961,20963,20965,20967,20968,20969, & - 20970,20972,20973,20974,20975,20977,20979,20980,20982,20983,20985,20986, & - 20987,20989,20991,20993,20994,20996,20998,21000,21002,21003,21004,21005, & - 21007,21008,21010,21012,21013,21015,21017,21019,21021,21022,21023,21024, & - 21026,21027,21029,21031,21033,21035,21036,21037,21039,21040,21042,21043, & - 21044,21046,21048,21050,21052,21054,21055,21056,21058,21060,21062,21064, & - 21066,21068,21069,21070,21072,21073,21075,21076,21077,21079,21081,21083, & - 21085,21086,21087,21089,21091,21093,21095,21096,21097,21099,21100,21102, & - 21103,21104,21105,21107,21109,21111,21113,21114,21115,21117,21119,21121, & - 21122,21124,21126,21128,21129,21130,21132,21134,21136,21137,21139,21140 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_37 = (/ & - 21142,21144,21146,21148,21150,21152,21154,21155,21156,21158,21159,21160, & - 21162,21163,21165,21167,21169,21171,21172,21174,21176,21178,21179,21180, & - 21182,21183,21185,21186,21187,21189,21190,21192,21194,21196,21197,21198, & - 21200,21201,21203,21204,21206,21208,21209,21211,21212,21214,21216,21218, & - 21220,21221,21222,21224,21225,21227,21229,21231,21233,21234,21235,21237, & - 21238,21240,21242,21244,21246,21247,21248,21250,21251,21253,21255,21257, & - 21259,21260,21261,21263,21264,21266,21268,21270,21272,21273,21274,21276, & - 21277,21279,21280,21282,21284,21286,21288,21290,21291,21293,21294,21296, & - 21297,21299,21301,21303,21305,21307,21308,21310,21311,21313,21314,21315, & - 21317,21318,21320,21321,21323,21325,21327,21329,21331,21332,21334,21335, & - 21337,21338,21340,21341,21343,21344,21346,21348,21349,21351,21352,21354, & - 21356,21357,21359,21360,21362,21363,21365,21366,21368,21369,21371,21373, & - 21375,21377,21379,21380,21382,21383,21385,21386,21388,21390,21392,21394, & - 21396,21397,21399,21400,21402,21403,21404,21406,21407,21409,21410,21412, & - 21414,21416,21418,21420,21421,21423,21424,21426,21427,21428,21430,21432, & - 21434,21436,21438,21439,21441,21442,21444,21445,21446,21448,21449,21450, & - 21452,21453,21454,21456,21458,21459,21461,21462,21464,21465,21466,21468, & - 21470,21472,21474,21476,21477,21479,21480,21482,21483,21485,21487,21489, & - 21491,21493,21494,21496,21497,21499,21500,21502,21504,21506,21508,21510, & - 21511,21513,21514,21516,21517,21519,21521,21522,21524,21525,21527,21528, & - 21529,21531,21532,21534,21536,21538,21540,21542,21543,21545,21547,21549, & - 21550,21552,21553,21555,21556,21558,21560,21561,21563,21564,21566,21568, & - 21569,21571,21572,21574,21576,21577,21579,21580,21582,21583,21585,21586, & - 21588,21589,21591,21592,21594,21595,21596,21598,21599,21601,21602,21604, & - 21606,21607,21608,21609,21611,21612,21613,21614,21616,21617,21619,21620, & - 21622,21623,21625,21626,21628,21630,21631,21633,21634,21635,21637,21638, & - 21640,21642,21643,21644,21646,21648,21649,21651,21652,21654,21655,21657, & - 21658,21660,21662,21664,21665,21667,21668,21670,21671,21673,21674,21676, & - 21678,21680,21681,21683,21684,21686,21688,21690,21691,21692,21693,21695, & - 21696,21697,21698,21700,21701,21703,21704,21705,21707,21709,21710,21712 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_38 = (/ & - 21714,21715,21716,21718,21720,21722,21723,21725,21726,21728,21730,21732, & - 21734,21735,21736,21737,21739,21741,21743,21744,21746,21747,21749,21750, & - 21752,21753,21755,21756,21757,21759,21760,21762,21764,21765,21767,21769, & - 21771,21772,21773,21774,21776,21778,21780,21782,21784,21786,21787,21788, & - 21790,21792,21793,21795,21797,21799,21800,21801,21802,21804,21806,21808, & - 21810,21812,21814,21815,21816,21818,21820,21822,21823,21824,21825,21827, & - 21828,21830,21831,21833,21834,21835,21837,21838,21840,21842,21844,21846, & - 21848,21850,21851,21853,21855,21857,21858,21859,21860,21862,21863,21864, & - 21865,21867,21869,21870,21872,21873,21875,21877,21879,21880,21882,21883, & - 21885,21887,21889,21891,21893,21894,21896,21898,21900,21902,21904,21906, & - 21907,21908,21910,21912,21914,21916,21917,21918,21919,21921,21922,21923, & - 21925,21927,21929,21931,21932,21933,21935,21936,21938,21939,21941,21943, & - 21944,21946,21947,21948,21950,21952,21954,21956,21958,21960,21961,21963, & - 21965,21967,21969,21970,21971,21972,21974,21975,21977,21978,21979,21981, & - 21982,21984,21986,21987,21988,21989,21990,21992,21994,21995,21997,21998, & - 22000,22001,22003,22004,22005,22007,22009,22011,22013,22015,22017,22019, & - 22021,22022,22023,22025,22027,22029,22031,22032,22033,22034,22036,22037, & - 22039,22040,22041,22043,22044,22046,22048,22049,22051,22052,22053,22055, & - 22057,22059,22060,22062,22063,22064,22066,22068,22069,22071,22072,22073, & - 22075,22077,22079,22080,22082,22084,22086,22088,22089,22090,22091,22093, & - 22094,22096,22097,22099,22101,22103,22105,22106,22107,22108,22110,22111, & - 22112,22114,22116,22117,22119,22120,22121,22123,22125,22126,22127,22129, & - 22131,22132,22133,22134,22136,22137,22138,22140,22142,22144,22146,22148, & - 22149,22150,22152,22153,22155,22156,22157,22159,22160,22161,22162,22164, & - 22165,22166,22167,22169,22170,22172,22174,22176,22177,22178,22180,22181, & - 22182,22184,22185,22186,22188,22189,22190,22192,22193,22194,22196,22197, & - 22199,22200,22202,22203,22205,22206,22208,22209,22211,22212,22214,22215, & - 22217,22219,22220,22222,22223,22225,22226,22228,22229,22231,22232,22234, & - 22236,22237,22239,22240,22242,22244,22245,22247,22248,22250,22252,22254, & - 22256,22258,22260,22261,22263,22264,22266,22267,22269,22270,22272,22273 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_39 = (/ & - 22275,22276,22278,22279,22281,22282,22284,22285,22287,22288,22290,22291, & - 22292,22294,22295,22297,22299,22300,22301,22303,22304,22305,22307,22308, & - 22309,22311,22313,22314,22316,22317,22318,22320,22321,22323,22325,22327, & - 22328,22329,22331,22333,22335,22337,22339,22341,22342,22343,22345,22347, & - 22349,22350,22352,22353,22354,22356,22357,22359,22360,22361,22363,22364, & - 22366,22367,22368,22370,22372,22374,22376,22378,22380,22381,22382,22384, & - 22385,22386,22388,22389,22390,22392,22393,22395,22396,22398,22399,22401, & - 22403,22405,22406,22407,22408,22410,22411,22413,22414,22415,22416,22418, & - 22419,22421,22422,22424,22425,22427,22429,22431,22433,22434,22435,22436, & - 22438,22439,22441,22442,22443,22445,22446,22448,22449,22451,22453,22455, & - 22457,22458,22459,22460,22462,22463,22465,22466,22468,22469,22471,22472, & - 22473,22474,22476,22477,22479,22480,22482,22484,22486,22487,22489,22490, & - 22491,22493,22494,22496,22497,22499,22500,22502,22504,22505,22507,22508, & - 22510,22511,22513,22514,22515,22517,22519,22521,22522,22524,22525,22526, & - 22527,22529,22530,22532,22534,22536,22538,22540,22542,22543,22544,22546, & - 22548,22550,22551,22552,22553,22555,22557,22559,22561,22562,22563,22565, & - 22566,22567,22569,22570,22572,22574,22576,22578,22579,22580,22581,22583, & - 22585,22587,22589,22590,22591,22592,22594,22596,22598,22600,22602,22604, & - 22605,22606,22608,22610,22612,22614,22615,22616,22617,22619,22621,22622, & - 22624,22626,22628,22630,22631,22632,22633,22635,22636,22638,22639,22641, & - 22642,22643,22644,22646,22647,22649,22650,22652,22654,22656,22658,22659, & - 22660,22662,22664,22666,22668,22669,22670,22671,22673,22674,22676,22678, & - 22680,22681,22682,22683,22685,22686,22688,22690,22692,22694,22695,22696, & - 22697,22699,22700,22702,22703,22704,22706,22708,22710,22711,22713,22714, & - 22715,22717,22719,22721,22723,22725,22727,22729,22730,22731,22733,22734, & - 22736,22738,22740,22741,22742,22743,22745,22747,22749,22751,22753,22754, & - 22755,22756,22758,22759,22760,22762,22763,22765,22766,22767,22769,22770, & - 22772,22774,22776,22777,22778,22780,22782,22784,22785,22786,22788,22790, & - 22792,22793,22794,22796,22797,22799,22800,22802,22804,22806,22808,22810, & - 22811,22813,22815,22817,22818,22820,22822,22824,22825,22827,22828,22829 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_40 = (/ & - 22831,22833,22834,22836,22838,22839,22841,22842,22843,22845,22847,22849, & - 22850,22852,22853,22855,22856,22858,22859,22861,22863,22865,22867,22869, & - 22870,22872,22874,22876,22877,22879,22880,22881,22883,22884,22886,22888, & - 22890,22891,22893,22894,22896,22897,22898,22900,22902,22904,22906,22907, & - 22908,22910,22911,22913,22914,22916,22917,22918,22920,22921,22923,22924, & - 22925,22927,22929,22931,22932,22934,22936,22938,22940,22942,22944,22945, & - 22946,22948,22949,22950,22952,22954,22955,22957,22958,22960,22961,22962, & - 22964,22966,22968,22970,22971,22972,22974,22975,22977,22978,22980,22982, & - 22984,22986,22988,22990,22992,22994,22996,22998,23000,23002,23004,23005, & - 23006,23008,23009,23010,23012,23013,23015,23017,23018,23020,23021,23022, & - 23024,23026,23027,23029,23031,23033,23035,23036,23037,23038,23040,23042, & - 23043,23045,23046,23048,23049,23050,23051,23053,23055,23057,23058,23060, & - 23061,23062,23064,23065,23067,23069,23071,23073,23075,23076,23077,23079, & - 23081,23083,23084,23085,23086,23088,23090,23092,23094,23096,23098,23099, & - 23100,23102,23103,23105,23106,23107,23109,23111,23112,23114,23115,23116, & - 23117,23119,23121,23123,23125,23127,23129,23131,23133,23134,23135,23137, & - 23138,23139,23141,23143,23144,23146,23147,23148,23150,23152,23154,23156, & - 23158,23159,23160,23161,23163,23165,23166,23168,23170,23172,23174,23175, & - 23176,23177,23179,23180,23182,23184,23186,23188,23190,23192,23193,23194, & - 23196,23197,23198,23200,23202,23204,23206,23208,23209,23210,23212,23213, & - 23215,23216,23217,23219,23221,23222,23223,23225,23227,23228,23229,23231, & - 23233,23234,23235,23237,23239,23240,23242,23243,23245,23246,23247,23249, & - 23250,23251,23253,23255,23257,23259,23260,23261,23263,23265,23267,23268, & - 23270,23271,23272,23274,23275,23277,23278,23280,23281,23282,23284,23286, & - 23288,23290,23292,23294,23295,23296,23298,23300,23302,23304,23306,23308, & - 23309,23310,23312,23314,23316,23318,23320,23322,23323,23324,23326,23328, & - 23330,23331,23332,23333,23335,23337,23339,23340,23341,23343,23344,23345, & - 23347,23349,23350,23352,23353,23355,23356,23357,23358,23359,23360,23362, & - 23363,23364,23366,23368,23370,23371,23372,23374,23376,23377,23379,23381, & - 23383,23385,23386,23387,23389,23391,23392,23394,23396,23398,23400,23401 /) - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_41 = (/ & - 23402,23403,23405,23406,23408,23410,23412,23413,23414,23415,23417,23418, & - 23420,23421,23422,23424,23425,23427,23429,23431,23433,23435,23436,23437, & - 23439,23440,23442,23443,23444,23446,23447,23449,23450,23451,23453,23454, & - 23456,23457,23459,23461,23462,23464,23466,23468,23469,23470,23472,23473, & - 23475,23477,23479,23481,23483,23484,23485,23486,23488,23489,23491,23493, & - 23494,23496,23497,23499,23500,23502,23503,23504,23505,23507,23509,23511, & - 23512,23514,23515,23516,23518,23520,23521,23523,23525,23527,23528,23530, & - 23531,23533,23534,23536,23537,23538,23540,23542,23544,23546,23548,23550, & - 23551,23553,23554,23556,23557,23558,23560,23561,23563,23564,23565,23567, & - 23569,23570,23571,23573,23574,23576,23577,23579,23580,23582,23584,23586, & - 23587,23588,23589,23591,23592,23594,23595,23597,23598,23600,23601,23603, & - 23604,23606,23607,23609,23610,23612,23613,23614,23616,23617,23619,23620, & - 23622,23623,23624,23626,23627,23628,23630,23632,23634,23636,23638,23640, & - 23642,23643,23644,23646,23648,23650,23651,23652,23654,23655,23657,23658, & - 23660,23662,23663,23665,23666,23667,23668,23670,23671,23673,23675,23676, & - 23677,23679,23680,23682,23684,23686,23688,23689,23690,23691,23693,23694, & - 23696,23697,23698,23700,23702,23704,23706,23707,23708,23709,23711,23713, & - 23715,23716,23718,23719,23720,23722,23724,23725,23727,23728,23729,23731, & - 23733,23735,23737,23739,23741,23742,23744,23746,23748,23749,23751,23753, & - 23755,23756,23757,23758,23760,23761,23763,23764,23766,23768,23770,23771, & - 23773,23775,23777,23778,23780,23782,23784,23786,23788,23789,23791,23793, & - 23795,23796,23798,23799,23800,23802,23803,23805,23807,23809,23811,23813, & - 23815,23816,23817,23819,23821,23822,23824,23826,23828,23829,23830,23831, & - 23833,23834,23836,23837,23838,23839,23840,23841,23843,23844,23845,23847, & - 23849,23851,23852,23853,23855,23856,23857,23859,23860,23862,23864,23866, & - 23868,23870,23872,23873,23874,23875,23877,23878,23879,23881,23882,23884, & - 23885,23886,23888,23889,23891,23892,23894,23896,23897,23898,23900,23901, & - 23902,23904,23905,23907,23908,23910,23911,23913,23914,23915,23917,23918, & - 23920,23921,23923,23924,23925,23927,23929,23930,23932,23933,23935,23936, & - 23938,23939,23941,23942,23943,23944,23946,23947,23948,23949,23951,23952 /) - INTEGER, PARAMETER, DIMENSION(58) :: CROW_JVRP_42 = (/ & - 23954,23955,23957,23958,23959,23961,23963,23964,23966,23968,23969,23971, & - 23973,23975,23977,23979,23980,23982,23984,23986,23987,23988,23989,23991, & - 23993,23995,23997,23999,24000,24002,24004,24006,24007,24009,24010,24012, & - 24013,24015,24017,24018,24019,24021,24023,24024,24026,24027,24029,24030, & - 24032,24033,24034,24036,24038,24040,24041,24043,24044,24045 /) - INTEGER, PARAMETER, DIMENSION(15178) :: CROW_JVRP = (/& - CROW_JVRP_0, CROW_JVRP_1, CROW_JVRP_2, CROW_JVRP_3, CROW_JVRP_4, & - CROW_JVRP_5, CROW_JVRP_6, CROW_JVRP_7, CROW_JVRP_8, CROW_JVRP_9, & - CROW_JVRP_10, CROW_JVRP_11, CROW_JVRP_12, CROW_JVRP_13, CROW_JVRP_14, & - CROW_JVRP_15, CROW_JVRP_16, CROW_JVRP_17, CROW_JVRP_18, CROW_JVRP_19, & - CROW_JVRP_20, CROW_JVRP_21, CROW_JVRP_22, CROW_JVRP_23, CROW_JVRP_24, & - CROW_JVRP_25, CROW_JVRP_26, CROW_JVRP_27, CROW_JVRP_28, CROW_JVRP_29, & - CROW_JVRP_30, CROW_JVRP_31, CROW_JVRP_32, CROW_JVRP_33, CROW_JVRP_34, & - CROW_JVRP_35, CROW_JVRP_36, CROW_JVRP_37, CROW_JVRP_38, CROW_JVRP_39, & - CROW_JVRP_40, CROW_JVRP_41, CROW_JVRP_42 /) - - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_0 = (/ & - 3568,3568,5258,3568,5252,3568,5253,3568,5253, 4,5252,5258, & - 5253,5258,5252,5252,5256,5253,5256,5253,5256, 4,5250,5258, & - 260,5250,5250,5251,5046,5250,5255,5258,5250,5255,5255,5250, & - 5252,5250,5253,5250,5256,5252,5255,5253,5255,925,5250,5255, & - 5256,337,5250,5201,5250,3568,5254,5250,5254, 5,5201,137, & - 3,5258,5258,5046,5253,5256,5256,337,5201,137,925,1068, & - 5250,1733,5250,1733,5250,1733,5250,1686,5250,1686,5250,1686, & - 5250,3083,5250,3083,5250,1697,5250,1697,5250,1697,5250,757, & - 5250,757,5250,1701,5250,1701,5250,1701,5250,298,5250,298, & - 5250,1596,5250,1596,5250,1596,5250,1730,5250,1730,5250,1730, & - 5250,181,5250,181,5250,181,5250,806,5250,806,5250,806, & - 5250,1577,5250,1577,5250,1577,5250,598,5250,598,5250,2118, & - 5250,2118,5250,2118,5250,2118,249,5250,2421,5250,2421,5250, & - 4555,5256,4555,5256,4555,5258,4555,5258,4555,5250,4555,5250, & - 5231,5231,5231,5256,5231,5250,5193,5193,5256,5193,5250,5193, & - 5250,5191,5256,5191,5250,5191,5230,5256,5230,5250,5230,5250, & - 5230,5230,5203,5256,5203,5250,5203,5250,5203,5250,5203,5165, & - 5256,5165,5250,5165,5250,5165,5194,5256,5194,5250,5194,5250, & - 5194,5250,5194,5194,5194,5194,5258,5194,5258,5226,5226,5226, & - 5256,5226,5258,5226,5258,5226,5250,5226,5250,5226,5250,4840, & - 5256,4840,5256,4840,5256,4840,5258,4840,5258,4840,5250,4840, & - 5250,4840,5250,4840,2914,5238,2914,5250,2973,5238,2973,5250, & - 3651,5238,3651,5238,3651,5250,3651,5250,1817,5238,1817,5238, & - 1817,5250,1817,5250,601,5238,601,5238,601,5250,601,5250, & - 1708,5238,1708,5238,1708,5238,1708,5250,1708,5250,1708,5250, & - 1635,5238,1635,5238,1635,5238,1635,5250,1635,5250,1635,5250, & - 288,5238,288,5250,1709,5238,1709,5238,1709,5238,1709,5250, & - 1709,5250,1709,5250,2385,5238,2385,5238,2385,5238,2385,5238, & - 2385,5250,2385,5250,2385,5250,2385,5250,1641,5238,1641,5238, & - 1641,5238,1641,5250,1641,5250,1641,5250,1688,5238,1688,5238 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_1 = (/ & - 1688,5238,1688,5250,1688,5250,1688,5250,566,5238,566,5238, & - 566,5250,566,5250,447,5238,447,5250,588,5238,588,5238, & - 588,5250,588,5250,548,5238,548,5238,548,5250,548,5250, & - 221,5238,221,5250,270,5238,270,5250,342,5238,342,5250, & - 426,5238,426,5250,253,5238,253,5250,235,5238,235,5250, & - 5124,5256,5124,5258,5124,5250,5200,5256,5200,5256,5200,5258, & - 5200,5258,5200,5250,5200,5250,5051,5256,5051,5256,5051,5258, & - 5051,5258,5051,5250,5051,5250,3465,5256,3465,5258,3465,5250, & - 3466,5256,3466,5258,3466,5250,4512,5256,4512,5256,4512,5258, & - 4512,5258,4512,5250,4512,5250,5190,5256,5190,5256,5190,5258, & - 5190,5258,5190,5250,5190,5250,4332,5256,4332,5256,4332,5258, & - 4332,5258,4332,5250,4332,5250,4475,5256,4475,5256,4475,5258, & - 4475,5258,4475,5250,4475,5250,4601,5256,4601,5256,4601,5258, & - 4601,5258,4601,5250,4601,5250,4508,5256,4508,5256,4508,5258, & - 4508,5258,4508,5250,4508,5250,4474,5256,4474,5256,4474,5258, & - 4474,5258,4474,5250,4474,5250,4527,5256,4527,5256,4527,5258, & - 4527,5258,4527,5250,4527,5250,4604,5256,4604,5256,4604,5258, & - 4604,5258,4604,5250,4604,5250,4606,5256,4606,5256,4606,5258, & - 4606,5258,4606,5250,4606,5250,3442,5256,3442,5258,3442,5250, & - 198,5250,198,5250,1703,5250,1703,5250,1703,5250,250,5250, & - 250,5250,250,5250,250,5250,3145,5256,3145,5250,3145,5250, & - 3145,5250,3145,5250,3096,5256,3096,5250,3096,5250,3096,5250, & - 3096,5250,3134,5256,3134,5250,3134,5250,3134,5250,3134,5250, & - 3105,5256,3105,5250,3105,5250,3105,5250,3105,5250,3144,5256, & - 3144,5250,3144,5250,3144,5250,3144,5250,3084,5256,3084,5250, & - 3084,5250,3084,5250,3084,5250,3179,5256,3179,5250,3179,5250, & - 3179,5250,3179,5250,3138,5256,3138,5250,3138,5250,3138,5250, & - 3138,5250,3097,5256,3097,5250,3097,5250,3097,5250,3097,5250, & - 3192,5256,3192,5250,3192,5250,3192,5250,3192,5250,3113,5256, & - 3113,5250,3113,5250,3113,5250,3113,5250,3129,5256,3129,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_2 = (/ & - 3129,5250,3129,5250,3129,5250,3182,5256,3182,5250,3182,5250, & - 3182,5250,3182,5250,3169,5256,3169,5250,3169,5250,3169,5250, & - 3169,5250,4395,5256,4395,5258,4395,5258,4395,5250,4964,4964, & - 4964,5256,4964,5250,5153,5256,5153,5256,5153,5258,5153,5258, & - 5153,5250,5153,5250,5153,5250,5166,5256,5166,5258,5166,5258, & - 5166,5258,5166,5258,5166,5250,5166,5250,5166,5250,5166,5250, & - 5166,5250,5166,5250,5166,5250,668,5256,668,5250,1580,5256, & - 1580,5250,1580,5250,5160,5250,5160,5178,5250,5178,5250,5178, & - 5250,5178,3978,5250,3978,5250,3978,3609,5250,3609,5250,3609, & - 3868,3868,5250,3868,5250,3505,5250,3505,5250,3505,5250,3505, & - 3843,5250,3843,5250,3843,5250,3843,5250,3843,3583,5250,3583, & - 5250,3583,3369,3369,5250,3689,5250,3689,3689,4492,5256,4492, & - 5256,4492,5258,4492,5258,4492,5250,4492,5250,4492,5250,4600, & - 5256,4600,5256,4600,5258,4600,5258,4600,5250,4600,5250,4600, & - 5250,4605,5256,4605,5258,4605,5258,4605,5250,4605,5250,4605, & - 5250,4988,5256,4988,5258,4988,5258,4988,5258,4988,5258,4988, & - 5250,4988,5250,4988,5250,1750,5195,5255,5195,5252,5195,5252, & - 5195,5256,5195,5195,5195,4995,5255,4995,5252,4995,5252,4995, & - 5256,4995,4995,4995,5121,5255,5121,5256,5121,5121,5121,5121, & - 5252,5121,5252,5202,5255,5202,5252,5202,5252,5202,5256,5202, & - 5202,5202,4645,5255,4645,5252,4645,5252,4645,5256,4645,4645, & - 4645,4870,5255,4870,5252,4870,5252,4870,5256,4870,4870,4870, & - 5007,5255,5007,5252,5007,5252,5007,5256,5007,5007,5007,5060, & - 5255,5060,5252,5060,5252,5060,5256,5060,5060,4411,5255,4411, & - 5252,4411,5252,4411,5256,4411,4411,4411,5129,5255,5129,5252, & - 5129,5252,5129,5256,5129,5129,5129,2465,5185,5255,5185,5252, & - 5185,5252,5185,5256,5185,5185,5185,4767,5255,4767,5252,4767, & - 5252,4767,5256,4767,4767,4767,5042,5042,5042,5256,5042,5250, & - 4310,5255,4310,5252,4310,5252,4310,5256,4310,4310,4310,4837, & - 5255,4837,5252,4837,5252,4837,5256,4837,4837,1573,5256,1573 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_3 = (/ & - 5250,1573,5250,4844,5255,4844,5252,4844,5252,4844,5256,4844, & - 4844,4562,5255,4562,5252,4562,5252,4562,5256,4562,4562,4562, & - 5148,5255,5148,5252,5148,5252,5148,5256,5148,5148,5148,4473, & - 5255,4473,5252,4473,5252,4473,5256,4473,4473,4473,4959,5255, & - 4959,5252,4959,5252,4959,5256,4959,4959,4959,5116,5255,5116, & - 5252,5116,5252,5116,5256,5116,5116,5116,4647,5255,4647,5252, & - 4647,5252,4647,5256,4647,4647,4814,5255,4814,5252,4814,5252, & - 4814,5256,4814,4814,4814,4780,5255,4780,5252,4780,5256,4780, & - 4780,4780,4161,5255,4161,5252,4161,5252,4161,5256,4161,4161, & - 4161,4698,5255,4698,5252,4698,5256,4698,4698,4698,5244,5255, & - 5244,5255,5244,5255,5244,5252,5244,5253,5244,5256,5244,5244, & - 5234,5256,5234,5250,5234,5250,5234,5188,5250,5188,5087,5256, & - 5087,5250,5087,4585,5255,4585,5252,4585,5256,4585,4585,4585, & - 4364,5255,4364,5252,4364,5256,4364,4364,4364,1776,1776,1776, & - 1776,5000,5250,5000,4528,4528,4528,4596,5255,4596,5252,4596, & - 5252,4596,5256,4596,4596,4596,4554,5255,4554,5252,4554,5252, & - 4554,5256,4554,4554,4554,5228,5255,5228,5255,5228,5252,5228, & - 5252,5228,5253,5228,5256,5228,5228,5228,5235,5255,5235,5252, & - 5235,5256,5235,5235,5235,5183,5255,5183,5255,5183,5255,5183, & - 5252,5183,5253,5183,5256,5183,5183,5142,5255,5142,5252,5142, & - 5252,5142,5256,5142,5142,5142,5125,5255,5125,5255,5125,5255, & - 5125,5252,5125,5253,5125,5256,5125,5125,4705,5255,4705,5252, & - 4705,5252,4705,5256,4705,4705,4705,5229,5255,5229,5252,5229, & - 5252,5229,5256,5229,5229,5229,5106,5255,5106,5255,5106,5255, & - 5106,5252,5106,5253,5106,5256,5106,5106,3847,5255,3847,5252, & - 3847,5252,3847,5256,3847,3847,3847,4763,5255,4763,5252,4763, & - 5256,4763,4763,5145,5255,5145,5252,5145,5252,5145,5256,5145, & - 5145,5145,4944,5255,4944,5255,4944,5255,4944,5252,4944,5253, & - 4944,5256,4944,4944,3884,5255,3884,5252,3884,5252,3884,5256, & - 3884,3884,3884,5208,5255,5208,5252,5208,5252,5208,5256,5208 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_4 = (/ & - 5208,5208,4954,5255,4954,5255,4954,5255,4954,5252,4954,5253, & - 4954,5256,4954,4954,4382,5255,4382,5252,4382,5256,4382,4382, & - 4382,4382,4932,5255,4932,5255,4932,5252,4932,5252,4932,5256, & - 4932,4932,4932,5233,5233,5233,5233,5256,5233,5250,2748,2748, & - 2748,2748,3652,3652,5128,5255,5128,5255,5128,5255,5128,5252, & - 5128,5253,5128,5256,5128,5128,763,763,5222,5222,5256,5222, & - 5250,684,684,684,4936,5255,4936,5252,4936,5252,4936,5256, & - 4936,4936,4936,4783,5255,4783,5252,4783,5252,4783,5256,4783, & - 4783,4783,4428,5255,4428,5255,4428,5255,4428,5252,4428,5253, & - 4428,5256,4428,4428,4923,5255,4923,5252,4923,5256,4923,4923, & - 4923,4922,5255,4922,5252,4922,5256,4922,4922,4922,4333,4333, & - 4333,4333,4695,5255,4695,5252,4695,5252,4695,5256,4695,4695, & - 4695,4353,5255,4353,5252,4353,5256,4353,4353,4353,5062,5255, & - 5062,5252,5062,5252,5062,5256,5062,5062,5062,4755,5255,4755, & - 5252,4755,5252,4755,5256,4755,4755,4755,4981,5255,4981,5252, & - 4981,5252,4981,5256,4981,4981,5163,5255,5163,5252,5163,5252, & - 5163,5256,5163,5163,5163,5192,5255,5192,5252,5192,5252,5192, & - 5256,5192,5192,5192,4876,5255,4876,5252,4876,5252,4876,5256, & - 4876,4876,4876,5147,5255,5147,5252,5147,5252,5147,5256,5147, & - 5147,5147,4901,5255,4901,5252,4901,5252,4901,5256,4901,4901, & - 4901,5078,5255,5078,5252,5078,5252,5078,5256,5078,5078,4980, & - 5255,4980,5252,4980,5252,4980,5256,4980,4980,4980,4942,5255, & - 4942,5252,4942,5252,4942,5256,4942,4942,4942,5109,5255,5109, & - 5252,5109,5252,5109,5256,5109,5109,5109,5186,5255,5186,5252, & - 5186,5252,5186,5256,5186,5186,5186,4733,5255,4733,5252,4733, & - 5252,4733,5256,4733,4733,4733,4974,5255,4974,5252,4974,5252, & - 4974,5256,4974,4974,4974,4571,5255,4571,5252,4571,5252,4571, & - 5256,4571,4571,4571,5056,5255,5056,5252,5056,5252,5056,5256, & - 5056,5056,4696,5255,4696,5252,4696,5252,4696,5256,4696,4696, & - 4696,5061,5255,5061,5252,5061,5252,5061,5256,5061,5061,5061 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_5 = (/ & - 4121,5255,4121,5252,4121,5252,4121,5256,4121,4121,5045,5255, & - 5045,5252,5045,5252,5045,5256,5045,5045,5045,5082,5255,5082, & - 5252,5082,5252,5082,5256,5082,5082,5082,5077,5255,5077,5252, & - 5077,5252,5077,5256,5077,5077,5077,3894,5255,3894,5252,3894, & - 5252,3894,5256,3894,3894,4886,5255,4886,5252,4886,5252,4886, & - 5256,4886,4886,4886,4766,5255,4766,5252,4766,5252,4766,5256, & - 4766,4766,4766,5146,5255,5146,5252,5146,5252,5146,5256,5146, & - 5146,5146,4099,5255,4099,5252,4099,5252,4099,5256,4099,4099, & - 4586,5255,4586,5252,4586,5252,4586,5256,4586,4586,4586,4878, & - 5255,4878,5252,4878,5252,4878,5256,4878,4878,5144,5255,5144, & - 5252,5144,5252,5144,5256,5144,5144,5144,5112,5255,5112,5252, & - 5112,5252,5112,5256,5112,5112,5112,5107,5255,5107,5252,5107, & - 5252,5107,5256,5107,5107,5107,5138,5255,5138,5252,5138,5252, & - 5138,5256,5138,5138,5138,5065,5255,5065,5252,5065,5252,5065, & - 5256,5065,5065,5065,5181,5255,5181,5252,5181,5252,5181,5256, & - 5181,5181,5181,4171,5255,4171,5252,4171,5256,4171,4171,4171, & - 2038,2038,2038,4351,5255,4351,5252,4351,5256,4351,4351,4351, & - 4370,5255,4370,5252,4370,5256,4370,4370,4370,2286,2286,2286, & - 2286,4579,5255,4579,5252,4579,5256,4579,4579,4579,4574,5255, & - 4574,5252,4574,5256,4574,4574,4574,2013,2013,2013,2013,5149, & - 5255,5149,5252,5149,5252,5149,5256,5149,5149,5149,4387,5255, & - 4387,5252,4387,5256,4387,4387,4387,4112,5255,4112,5252,4112, & - 5256,4112,4112,4809,5255,4809,5252,4809,5256,4809,4809,4809, & - 3479,3479,327,327,4593,5255,4593,5252,4593,5256,4593,4593, & - 4593,4972,5255,4972,5252,4972,5256,4972,4972,4972,2042,2042, & - 2042,2042,4598,5255,4598,5252,4598,5252,4598,5256,4598,4598, & - 4598,5096,5255,5096,5252,5096,5252,5096,5256,5096,5096,5096, & - 4714,5255,4714,5252,4714,5256,4714,4714,4714,4782,5255,4782, & - 5252,4782,5256,4782,4782,4782,3297,3297,3297,3297,4476,5255, & - 4476,5252,4476,5252,4476,5256,4476,4476,4476,4777,5255,4777 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_6 = (/ & - 5252,4777,5256,4777,4777,4777,4143,5255,4143,5252,4143,5256, & - 4143,4143,477,477,4700,5255,4700,5252,4700,5256,4700,4700, & - 4700,4881,5255,4881,5252,4881,5256,4881,4881,4881,2212,2212, & - 2212,2212,5043,5255,5043,5252,5043,5252,5043,5256,5043,5043, & - 5043,4723,5255,4723,5252,4723,5256,4723,4723,4723,4140,5255, & - 4140,5252,4140,5256,4140,4140,239,239,766,766,4879,5255, & - 4879,5252,4879,5256,4879,4879,4879,4587,5255,4587,5252,4587, & - 5256,4587,4587,4587,2487,2487,2487,2487,4582,5255,4582,5252, & - 4582,5252,4582,5256,4582,4582,4582,5135,5255,5135,5252,5135, & - 5252,5135,5256,5135,5135,5135,4884,5255,4884,5252,4884,5256, & - 4884,4884,4884,4702,5255,4702,5252,4702,5256,4702,4702,4702, & - 3202,3202,3202,3202,4607,5255,4607,5252,4607,5252,4607,5256, & - 4607,4607,4607,4608,5255,4608,5252,4608,5252,4608,5256,4608, & - 4608,4608,3671,5255,3671,5252,3671,5256,3671,3671, 37,3721, & - 5255,3721,5252,3721,5252,3721,5256,3721,3721,680,5250,4399, & - 5255,4399,5252,4399,5252,4399,5256,4399,4399,4399,4396,5256, & - 4396,5258,4396,5250,4396,5250,4396,4396,4397,5256,4397,5256, & - 4397,5250,4397,5250,4397,5250,3776,5255,3776,5252,3776,5252, & - 3776,5256,3776,3776,3776,3157,5256,3157,5256,3157,5256,3157, & - 5250,3157,5250,3157,5250,3823,5255,3823,5252,3823,5252,3823, & - 5256,3823,3823,3823,4010,5256,4010,5258,4010,5250,4010,5250, & - 4010,4010,3523,5255,3523,5252,3523,5252,3523,5256,3523,3523, & - 3523,4028,5255,4028,5252,4028,5252,4028,5256,4028,4028,3834, & - 5256,3834,5258,3834,5250,3834,5250,3834,3834,3158,5256,3158, & - 5256,3158,5256,3158,5250,3158,5250,3158,5250,3509,5255,3509, & - 5252,3509,5252,3509,5256,3509,3509,3509,4003,5255,4003,5252, & - 4003,5252,4003,5256,4003,4003,4003,4056,5256,4056,5258,4056, & - 5250,4056,5250,4056,4056,3131,5256,3131,5256,3131,5256,3131, & - 5250,3131,5250,3131,5250,3507,5255,3507,5252,3507,5252,3507, & - 5256,3507,3507,3507,4529,5255,4529,5252,4529,5252,4529,5256 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_7 = (/ & - 4529,4529,4083,5256,4083,5258,4083,5250,4083,5250,4083,4083, & - 3135,5256,3135,5256,3135,5256,3135,5250,3135,5250,3135,5250, & - 3481,5255,3481,5252,3481,5252,3481,5256,3481,3481,3481,3136, & - 5256,3136,5256,3136,5256,3136,5250,3136,5250,3136,5250,3811, & - 5255,3811,5252,3811,5252,3811,5256,3811,3811,3811,4032,5256, & - 4032,5258,4032,5250,4032,5250,4032,4032,3807,5255,3807,5252, & - 3807,5252,3807,5256,3807,3807,3807,3149,5256,3149,5256,3149, & - 5256,3149,5250,3149,5250,3149,5250,3804,5255,3804,5252,3804, & - 5252,3804,5256,3804,3804,3804,4094,5256,4094,5258,4094,5250, & - 4094,5250,4094,4094,4068,5255,4068,5252,4068,5252,4068,5256, & - 4068,4068,3172,5256,3172,5256,3172,5256,3172,5250,3172,5250, & - 3172,5250,3794,5255,3794,5252,3794,5252,3794,5256,3794,3794, & - 3794,4093,5256,4093,5258,4093,5250,4093,5250,4093,4093,3521, & - 5255,3521,5252,3521,5252,3521,5256,3521,3521,3521,3180,5256, & - 3180,5256,3180,5256,3180,5250,3180,5250,3180,5250,3803,5255, & - 3803,5252,3803,5252,3803,5256,3803,3803,3803,3622,5258,3622, & - 5250,3622,3622,3525,5255,3525,5252,3525,5252,3525,5256,3525, & - 3525,3525,4133,5255,4133,5252,4133,5252,4133,5256,4133,4133, & - 3139,5256,3139,5256,3139,5256,3139,5250,3139,5250,3139,5250, & - 4027,5256,4027,5258,4027,5250,4027,5250,4027,4027,3492,5255, & - 3492,5252,3492,5252,3492,5256,3492,3492,3492,4055,5255,4055, & - 5252,4055,5252,4055,5256,4055,4055,4055,3263,5256,3263,5256, & - 3263,5250,3263,5250,3996,5256,3996,5258,3996,5250,3996,5250, & - 3996,3996,3797,5255,3797,5252,3797,5252,3797,5256,3797,3797, & - 3797,4074,5255,4074,5252,4074,5252,4074,5256,4074,4074,3833, & - 5256,3833,5258,3833,5250,3833,5250,3833,3833,3193,5256,3193, & - 5256,3193,5256,3193,5250,3193,5250,3193,5250,3798,5255,3798, & - 5252,3798,5252,3798,5256,3798,3798,3798,4080,5256,4080,5258, & - 4080,5250,4080,5250,4080,4080,3164,5256,3164,5256,3164,5256, & - 3164,5250,3164,5250,3164,5250,3527,5255,3527,5252,3527,5252 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_8 = (/ & - 3527,5256,3527,3527,4272,5256,4272,5258,4272,5250,4272,5250, & - 4272,4272,3130,5256,3130,5256,3130,5256,3130,5250,3130,5250, & - 3130,5250,3819,5255,3819,5252,3819,5252,3819,5256,3819,3819, & - 3819,3817,5255,3817,5252,3817,5252,3817,5256,3817,3817,3817, & - 4018,5256,4018,5258,4018,5250,4018,5250,4018,4018,3244,5256, & - 3244,5256,3244,5250,3244,5250,3790,5255,3790,5252,3790,5252, & - 3790,5256,3790,3790,3790,3219,5256,3219,5256,3219,5250,3219, & - 5250,4167,5255,4167,5252,4167,5252,4167,5256,4167,4167,4167, & - 4017,5256,4017,5258,4017,5250,4017,5250,4017,4017,3866,5255, & - 3866,5252,3866,5256,3866,3147,3147,3147,3147,3987,5255,3987, & - 5252,3987,5256,3987,4622,5255,4622,5255,4622,5255,4622,5252, & - 4622,5253,4622,5256,4622,4622,4666,5255,4666,5252,4666,5256, & - 4666,3636,5255,3636,5252,3636,5256,3636,3636,3636,3658,5255, & - 3658,5252,3658,5252,3658,5256,3658,3658,3658,686,686,686, & - 1959,1959,1959,1959,3670,5255,3670,5252,3670,5252,3670,5256, & - 3670,3670,3670,4111,5255,4111,5252,4111,5252,4111,5256,4111, & - 4111,4111,4372,5255,4372,5252,4372,5252,4372,5256,4372,4372, & - 4372,3634,5255,3634,5252,3634,5252,3634,5256,3634,3634,3634, & - 685,685,685,5227,5227,5227,5258,5227,5258,5227,5250,5227, & - 5250,2476,2476,2476,2476,3155,3155,3155,3155,702,702,715, & - 715,5132,5255,5132,5252,5132,5252,5132,5256,5132,5132,5132, & - 4794,5256,4794,5258,4794,5258,4794,5250,4794,5250,4794,4907, & - 5256,4907,5258,4907,5258,4907,5250,4907,606,606,607,607, & - 3637,5255,3637,5255,3637,5252,3637,5252,3637,5256,3637,3637, & - 3637,4616,5255,4616,5255,4616,5252,4616,5252,4616,5256,4616, & - 4616,4616,4609,5255,4609,5252,4609,5252,4609,5256,4609,4609, & - 4609,5241,5255,5241,5255,5241,5252,5241,5256,5241,5241,5241, & - 5246,5255,5246,5252,5246,5252,5246,5256,5246,5246,5246,5098, & - 5255,5098,5252,5098,5256,5098,5098,5098,5053,5255,5053,5252, & - 5053,5256,5053,5053,5053,5151,5255,5151,5252,5151,5252,5151 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_9 = (/ & - 5256,5151,5151,5151,4858,5255,4858,5252,4858,5256,4858,4858, & - 4858,4852,5255,4852,5252,4852,5256,4852,4852,4852,5161,5255, & - 5161,5252,5161,5252,5161,5256,5161,5161,5161,4841,5255,4841, & - 5252,4841,5256,4841,4841,5097,5255,5097,5252,5097,5252,5097, & - 5256,5097,5097,5097,4581,5255,4581,5252,4581,5252,4581,5256, & - 4581,4581,4581,4784,5255,4784,5252,4784,5252,4784,5256,4784, & - 4784,4784,4390,5255,4390,5252,4390,5256,4390,4390,4390,4583, & - 5255,4583,5252,4583,5252,4583,5256,4583,4583,4583,4367,5255, & - 4367,5252,4367,5256,4367,4367,4367,4336,5255,4336,5252,4336, & - 5256,4336,4336,4336,4356,5255,4356,5252,4356,5252,4356,5256, & - 4356,4356,4356,5032,5255,5032,5252,5032,5252,5032,5256,5032, & - 5032,4594,5255,4594,5252,4594,5256,4594,4594,4594,3836,5255, & - 3836,5252,3836,5252,3836,5256,3836,3836,3836,5081,5255,5081, & - 5252,5081,5252,5081,5256,5081,5081,5081,3943,5255,3943,5252, & - 3943,5256,3943,3943,4925,5255,4925,5252,4925,5256,4925,4925, & - 4925,293,293,604,604,3921,5255,3921,5252,3921,5252,3921, & - 5256,3921,3921,3936,5255,3936,5252,3936,5252,3936,5256,3936, & - 3936,3936,4091,5255,4091,5252,4091,5252,4091,5256,4091,4091, & - 4097,5255,4097,5252,4097,5256,4097,4097,3806,5255,3806,5252, & - 3806,5256,3806,3806,3806,5215,5250,5215,5250,5215,5250,5215, & - 5250,4747,4747,4747,640,640,640,4185,5255,4185,5252,4185, & - 5252,4185,5256,4185,4185,4146,5255,4146,5252,4146,5252,4146, & - 5256,4146,4146,4146,4090,5255,4090,5252,4090,5252,4090,5256, & - 4090,4090,3940,5255,3940,5252,3940,5256,3940,3940,419,419, & - 719,719,3863,5255,3863,5252,3863,5252,3863,5256,3863,3863, & - 3867,5255,3867,5252,3867,5252,3867,5256,3867,3867,3867,3994, & - 5255,3994,5252,3994,5252,3994,5256,3994,3994,3891,5255,3891, & - 5252,3891,5256,3891,3891,5048,5251,5048,5252,5048,5253,5048, & - 5254,5048,5048,5092,5251,5092,5252,5092,5253,5092,5254,5092, & - 5092,2470,2470,2470,2470,1746,1746,1746,3971,5255,3971,5252 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_10 = (/ & - 3971,5252,3971,5256,3971,3971,3963,5255,3963,5252,3963,5252, & - 3963,5256,3963,3963,3963,3898,5255,3898,5252,3898,5252,3898, & - 5256,3898,3898,1809,5250,1809,5250,1809,2096,5250,2707,2707, & - 2456,2456,5250,2456,5250,2306,2306,5250,1679,5184,5184,5256, & - 5184,5250,416,5250,1899,5250,1899,5250,1899,2639,3245,5250, & - 3277,5250,3277,5250,3277,2229,2433,5250,1886,5250,1886,5250, & - 1886,2367,5250,2720,3959,5250,3959,847,5250,1914,5250,1914, & - 5250,1914,2128,5250,2128,3386,3386,1140,5250,4973,5250,4973, & - 2503,5250,2503,5250,2503,615,1782,5250,4386,5250,4386,335, & - 5250,1138,5250,1138,3173,5250,2840,1369,5250,2235,5250,2235, & - 5250,2235,2261,5250,2261,1568,5071,5071,5256,5071,5250,126, & - 5250,3299,5250,3299,5250,3299,2037,5250,1944,2391,2391,5250, & - 2391,5250,1800,1800,5250,153,286,5250,4872,4872,5256,4872, & - 5250,4872,5250,3265,5250,3265,5250,3265,2297,5250,2066,1035, & - 5250,3735,5250,3735,4634,5255,4634,5255,4634,5255,4634,5252, & - 4634,5253,4634,5256,4634,4634,1108,1108,5250,2198,2198,5250, & - 1906,1050,5250,4524,4524,5250,1422,5250,1422,3106,5250,2983, & - 874,5250,4380,5255,4380,5255,4380,5255,4380,5252,4380,5253, & - 4380,5256,4380,4380,5239,5255,5239,5252,5239,5252,5239,5256, & - 5239,5239,1265,1265,5250,2542,2542,5250,2374,896,5250,2006, & - 5250,2006,5250,2006,1977,5250,2747,1194,5250,3716,5250,3716, & - 1994,1994,5250,1994,5250,2459,2459,5250,2891,2891,5057,5057, & - 5256,5057,5250,1948,5250,1948,5250,1948,1976,5250,3422,3422, & - 1124,5250,3536,5250,3310,5250,3310,5250,3310,1957,5250,2090, & - 5012,5256,5012,5250,5012,1842,1842,5250,1842,5250,2220,2220, & - 5250,2647,2647,4737,4737,5256,4737,5250,4737,5250,3444,5250, & - 3444,5250,3444,3159,5250,1924,3018,5250,3018,5250,3018,765, & - 1400,5250,278,5250,3653,5250,3653,3623,5250,3623,5250,3623, & - 3623,2029,2438,5250,2438,1671,5250,1671,1897,5250,1897,5250, & - 1897,2550,1081,5250,2001,2001,5250,3547,3547,5250,3207,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_11 = (/ & - 3207,3207,630,1582,5250,1582,3892,5256,3892,5250,3892,818, & - 5250,1066,5250,1066,2657,5250,2657,5232,5255,5232,5255,5232, & - 5255,5232,5252,5232,5253,5232,5256,5232,5232,4924,5255,4924, & - 5255,4924,5252,4924,5253,4924,5256,4924,3198,5250,3198,5250, & - 3198,1808,578,5250,2276,5250,2010,5250,2010,5250,2010,2869, & - 1894,5250,232,5250,4908,5251,4908,5252,4908,5253,4908,5254, & - 4908,4908,5243,5255,5243,5255,5243,5255,5243,5252,5243,5253, & - 5243,5256,5243,5243,5223,5251,5223,5252,5223,5253,5223,5254, & - 5223,5223,3243,5250,3243,5250,3243,1815,3755,5250,3755,1120, & - 5250,3256,5250,3256,5250,3256,1882,3603,5250,3603,2044,2044, & - 5250,2044,5250,3394,3394,5250,1634, 86,4420,5250,4420,5250, & - 4420,4420,2861,987,5250,987,751,5250,3003,5250,3003,2188, & - 2188,5250,2188,5250,1749,1749,5250,691,5250,1500,5250,1500, & - 2537,5250,2537,3540,5250,3540,5250,3540,3540,2077,5250,2077, & - 3383,3383,5242,5256,5242,5250,5242,5055,5055,5256,5055,5250, & - 5055,5250,2292,2292,5250,2292,5250,1974,1974,5250,1695,631, & - 5250,1466,5250,1466,2612,5250,2612,2463,5250,2463,5250,2463, & - 2338,5250,2338,1702,3995,5256,3995,5250,3995,2993,5250,2993, & - 2993,2992,2126,2126,5250,2126,5250,2427,2427,5250,1662,611, & - 5250,1332,5250,1332,2611,5250,2611,1880,5250,1880,5250,1880, & - 2106,5250,2106,1725,5143,5143,5256,5143,5250,2318,2318,5250, & - 2318,5250,1921,1921,5250,2926,2926,3099,5250,3294,3294,5250, & - 3294,5250,3254,3254,5250,875,5250,875,2526,5023,5023,5256, & - 5023,5250,484,5250,4708,5250,4708,2627,5250,2627,3587,3587, & - 5250,1013,3809,3809,3809,5170,5251,5170,5252,5170,5253,5170, & - 5254,5170,5170,642,5250,3448,3448,5250,3448,5250,3448,5250, & - 4330,4330,5258,4330,5250,4330,5250,4330,5250,5156,5251,5156, & - 5252,5156,5253,5156,5254,5156,3330,3330,3330,5250,5221,5250, & - 5221,5250,5221,2004,3993,3993,5250,3462,5250,3462,3462,3929, & - 3929,5250,1866,5094,5250,5094,2873,5250,2873,2346,5250,2811 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_12 = (/ & - 5250,2811,3660,5256,3660,5250,3660,2734,4156,5256,4156,5250, & - 4156,4156,1853,5250,1853,3654,5256,3654,5250,3654,1011,3520, & - 5250,3520,4943,5251,4943,5252,4943,5253,4943,5254,4943,4943, & - 1185,5250,1185,2795,3044,5250,3044,5210,5210,5256,5210,5250, & - 2805,5250,2805,2805,1872,3171,5250,3171,2435,5250,2435,5250, & - 2435,1946,5250,1946,3429,3429,2339,2339,5250,2339,5250,2237, & - 2237,5250,1715,855,5250,855,2687,5250,2687,2227,5250,2227, & - 5250,2227,2285,5250,2285,160,345,5250,2057,5250,2057,5250, & - 2057,1965,5250,1965,2699,2699,495,5250,999,5250,999,2196, & - 5250,2196,3377,3377,1885,1885,5250,1885,5250,2337,2337,5250, & - 3032,3032,2223,2223,5250,2223,5250,2193,2193,5250,3404,3404, & - 1069,1069,5250,3076,3076,5250,2490,2628,2628,5250,2628,5250, & - 2913,2913,5250,1741,304,5250,4559,5256,4559,5250,4559,2416, & - 2416,5250,2416,5250,1987,1987,5250,155,5162,5162,5162,5256, & - 5162,5250,383,5250,2422,2422,5250,2422,5250,2086,2086,5250, & - 171,228,5250,1298,1298,5250,2149,2149,5250,2710,2710,380, & - 5250,1966,1966,5250,1966,5250,2168,2168,5250,202,3875,3875, & - 5256,3875,5250,242,5250,1855,1855,5250,1855,5250,2350,2350, & - 5250,2974,2974,424,5250,2355,2355,5250,2355,5250,2194,2194, & - 5250,3779,3779,3779,4736,4736,4736,5250,4736,5250,316,5250, & - 1488,1488,5250,2610,2610,5250,2933,2933,144,5250,1751,1751, & - 5250,1751,5250,2277,2277,5250,165,3851,3851,5256,3851,5250, & - 349,5250,1753,1753,5250,1753,5250,2246,2246,5250,2990,2990, & - 3594,3594,5250,3594,5250,504,5250,980,980,5250,2839,2839, & - 5250,1962,133,5250,2409,2409,5250,2409,5250,2199,2199,5250, & - 3333,3333,466,5250,2264,2264,5250,2264,5250,2169,2169,5250, & - 205,3856,3856,5256,3856,5250,338,5250,2192,2192,5250,2192, & - 5250,2097,2097,5250,2906,2906,3924,3924,5256,3924,5250,308, & - 5250,1469,1469,5250,1788,1788,5250,1789, 64,5250,2019,2019, & - 5250,2019,5250,2403,2403,5250,2767,2767,339,5250,3877,3877 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_13 = (/ & - 5256,3877,5250,1267,1267,5250,1919,1919,5250,161,3118,3118, & - 5250,353,5250,870,870,5250,2094,2094,5250,184,3168,3168, & - 5250,412,5250,1207,1207,5250,2534,2534,5250,445, 34,5250, & - 1501,1501,5250,1831,1831,5250,166,3109,3109,5250,234,5250, & - 1082,1082,5250,2964,2964,5250,421,139,5250,1491,1491,5250, & - 2161,2161,5250,177,3148,3148,5250,269,5250,1259,1259,5250, & - 2216,2216,5250,197,3117,3117,5250,453,5250,1079,1079,5250, & - 1824,1824,5250,192,3166,3166,5250,486,5250,1052,5250,1052, & - 2432,5250,2432,186,3091,5250,3091,460,5250,848,848,5250, & - 2113,2113,5250,196,3110,3110,5250,429,5250,1235,1235,5250, & - 2020,2020,5250,2922,2922,1849,5250,1849,5250,1849,3351,3351, & - 5180,5256,5180,5250,5180,1859,5250,1859,5250,1859,3585,3585, & - 4845,5256,4845,5250,4845,2442,5250,2442,5250,2442,3577,3577, & - 4909,5250,4909,1302,5250,1302,3942,3942,3077,5250,3077,1785, & - 5250,1063,5250,1063,3934,3934,3302,5250,3302,3302,4941,5251, & - 4941,5252,4941,5253,4941,5254,4941,4941,3208,5250,3208,5250, & - 3208,2012,5067,5256,5067,5250,5067,1141,5250,1141,3767,3767, & - 3328,5250,3328,1288,5250,1288,2502,1300,5250,1300,3598,3598, & - 4108,5256,4108,5250,4108,4108,4544,5251,4544,5252,4544,5253, & - 4544,5254,4544,2394,5250,2394,5250,2394,3878,3878,3399,5250, & - 3399,2278,5250,2179,5250,2179,5250,2179,3572,3572,4174,5256, & - 4174,5250,4174,2441,5250,4956,5251,4956,5252,4956,5253,4956, & - 5254,4956,4956,3289,5250,3289,5250,3289,1877,3561,5250,3561, & - 926,5250,1778,5250,1778,5250,1778,2549,5009,5256,5009,5250, & - 5009,2413,5250,2413,5250,2413,3956,3956,3418,5250,3418,2449, & - 5250,2449,5250,2449,3922,3922,3409,5250,3409,2447,5250,3266, & - 5250,3266,5250,3266,2158,3656,5250,3656,2369,5250,2369,5250, & - 2369,3592,3592,4114,5256,4114,5250,4114,4114,1391,5250,1391, & - 2851,4320,5251,4320,5252,4320,5253,4320,5254,4320,2069,5250, & - 2069,5250,2069,3887,3887,3432,5250,3432,3175,5250,3175,2363 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_14 = (/ & - 5250,2363,5250,2363,3575,3575,4160,5256,4160,5250,4160,4868, & - 5251,4868,5252,4868,5253,4868,5254,4868,4868,2135,5250,2135, & - 5250,2135,3268,4961,5256,4961,5250,4961,2366,5250,2366,5250, & - 2366,3970,3970,3364,5250,3364,1072,5250,1072,2831,976,5250, & - 976,5250,3002,3002,4155,5256,4155,5250,4155,1827,5250,2125, & - 5250,2125,5250,2125,3925,3925,3349,5250,3349,2011,5250,4838, & - 5251,4838,5252,4838,5253,4838,5254,4838,4838,3308,5250,3308, & - 5250,3308,1927,3542,5250,3542,1386,5250,1774,1774,5250,1774, & - 5250,2944,4873,4873,5256,4873,5250,2455,5250,2455,5250,2455, & - 3910,3910,3341,5250,3341,2370,5250,1940,5250,1940,5250,1940, & - 3842,3842,3376,5250,3376,2067,5250,1767,5250,1767,5250,1767, & - 2912,1121,5250,3757,5250,3757,2133,5250,2133,5250,2133,2849, & - 4223,5250,4223,2068,5250,2068,573,3188,5250,1171,5250,1171, & - 1754, 32,5250,1434,5250,1434,2341,5250,2341,3342,3342,517, & - 5250,3121,5250,3121,4649,5255,4649,5255,4649,5255,4649,5252, & - 4649,5253,4649,5256,4649,4649,4721,5256,4721,5250,4721,4588, & - 4588,4588,4588,4720,5255,4720,5252,4720,5252,4720,5256,4720, & - 4720,4720,4513,5255,4513,5252,4513,5256,4513,4513,4513,5058, & - 5256,5058,5258,5058,5250,5058,5250,5058,5058,4965,5253,4965, & - 5258,3903,5255,3903,5252,3903,5256,3903,3903,3830,5256,3830, & - 5258,3830,5250,3786,5255,3786,5252,3786,5256,3786,3786,1341, & - 5250,1341,1794,5250,1794,1792,444,5250,3538,5255,3538,5252, & - 3538,5256,3538,3538,3827,5255,3827,5252,3827,5256,3827,3827, & - 3793,5253,3793,5258,3545,5256,3545,5258,3545,5250,1307,5250, & - 1307,3824,3824,3824,3824,3824,2383,5250,2383,361,5250,3372, & - 5250,3372,4626,5255,4626,5255,4626,5255,4626,5252,4626,5253, & - 4626,5256,4626,4626,4084,4084,4084,4084,4821,5255,4821,5252, & - 4821,5252,4821,5256,4821,4821,4821,4432,5255,4432,5252,4432, & - 5256,4432,4432,4432,1287,5250,1287,2014,5250,2014,2015,3643, & - 5256,3643,5250,3643,3643,225,5250,1451,5250,1451,3435,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_15 = (/ & - 3435,4950,4950,4950,4950,4950,4950,135,5250,4833,5255,4833, & - 5255,4833,5255,4833,5252,4833,5253,4833,5256,4833,4833,4547, & - 5256,4547,5250,4547,4707,5255,4707,5252,4707,5252,4707,5256, & - 4707,4707,4707,4887,5255,4887,5252,4887,5256,4887,4887,3820, & - 5255,3820,5252,3820,5256,3820,3820,4478,5253,4478,5258,3491, & - 5255,3491,5252,3491,5256,3491,3491,3508,5256,3508,5258,3508, & - 5250,1484,5250,1484,1819,5250,1819,1820,3640,5256,3640,5250, & - 3640,3640,332,5250,1276,5250,1276,2317,5250,2317,4004,4004, & - 4004,4004,4004,292,5250,3599,5250,3599,5250,3599,3599,4892, & - 5255,4892,5255,4892,5255,4892,5252,4892,5253,4892,5256,4892, & - 4892,4729,5256,4729,5250,4729,4718,5255,4718,5252,4718,5252, & - 4718,5256,4718,4718,4718,4483,5255,4483,5252,4483,5256,4483, & - 4483,4483,4408,5253,4408,5258,3531,5255,3531,5252,3531,5256, & - 3531,3531,3796,5255,3796,5252,3796,5256,3796,3796,3560,5256, & - 3560,5258,3560,5250,922,5250,922,2309,5250,2309,1821,3657, & - 5256,3657,5250,3657,3657,262,5250,1533,5250,1533,2782,5250, & - 2782,3754,3754,3754,102,5250,4692,5255,4692,5255,4692,5255, & - 4692,5252,4692,5253,4692,5256,4692,4692,4699,5255,4699,5252, & - 4699,5252,4699,5256,4699,4699,4699,4893,5255,4893,5252,4893, & - 5256,4893,4893,3808,5255,3808,5252,3808,5256,3808,3808,4495, & - 5253,4495,5258,3534,5255,3534,5252,3534,5256,3534,3534,3512, & - 5256,3512,5258,3512,5250,966,5250,966,1796,2302,5250,2302, & - 277,5250,3649,5256,3649,5250,3649,4453,5253,4453,5258,3562, & - 5255,3562,5252,3562,5256,3562,3562,3813,5255,3813,5252,3813, & - 5256,3813,3813,3831,5256,3831,5258,3831,5250,1211,5250,1211, & - 3812,3812,3812,3812,1964,5250,1964,428,5250,3089,5250,3089, & - 4641,5255,4641,5255,4641,5255,4641,5252,4641,5253,4641,5256, & - 4641,4641,4081,4081,4081,4081,4701,5255,4701,5252,4701,5252, & - 4701,5256,4701,4701,4701,4667,5255,4667,5252,4667,5256,4667, & - 4667,4667,1315,5250,1315,2321,5250,2321,2322,464,5250,3368 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_16 = (/ & - 5250,3368,3799,5255,3799,5252,3799,5256,3799,3799,4479,5253, & - 4479,5258,3554,5255,3554,5252,3554,5256,3554,3554,3701,5256, & - 3701,5258,3701,5250,1027,5250,1027,3805,3805,3805,3805,2406, & - 5250,2406,436,5250,3174,5250,3174,4829,5255,4829,5255,4829, & - 5255,4829,5252,4829,5253,4829,5256,4829,4829,2148,2148,2148, & - 2148,4377,5255,4377,5252,4377,5252,4377,5256,4377,4377,4377, & - 4683,5255,4683,5252,4683,5256,4683,4683,4683,1431,5250,1431, & - 3439,5250,3439,3440, 89,5250,4457,5253,4457,5258,3539,5255, & - 3539,5252,3539,5256,3539,3539,3815,5255,3815,5252,3815,5256, & - 3815,3815,3684,5256,3684,5258,3684,5250,1039,5250,1039,3795, & - 3795,3795,3795,2418,5250,2418,283,5250,3122,5250,3122,4635, & - 5255,4635,5255,4635,5255,4635,5252,4635,5253,4635,5256,4635, & - 4635,3210,3210,3210,3210,4928,5255,4928,5252,4928,5252,4928, & - 5256,4928,4928,4928,4675,5255,4675,5252,4675,5256,4675,4675, & - 4675,1542,5250,1542,1881,5250,1881,1860,3661,5256,3661,5250, & - 3661,3661,396,5250,3663,5255,3663,5252,3663,5256,3663,3663, & - 4494,5253,4494,5258,3627,5255,3627,5252,3627,5256,3627,3627, & - 3482,5256,3482,5258,3482,5250,956,5250,956,2241,5250,2241, & - 4937,4937,4937,4937,4937,4937,274,5250,3103,5250,3103,4630, & - 5256,4630,5250,4630,4630,4971,5255,4971,5252,4971,5252,4971, & - 5256,4971,4971,4971,1458,5250,1458,1772,5250,1772,1773,3655, & - 5256,3655,5250,3655,3655,480,5250,1486,5250,1486,2605,5250, & - 2605,5030,5030,5030,5030,5030,5030, 52,5250,3828,5255,3828, & - 5252,3828,5256,3828,3828,4407,5253,4407,5258,3518,5255,3518, & - 5252,3518,5256,3518,3518,3494,5256,3494,5258,3494,5250,4948, & - 5255,4948,5255,4948,5255,4948,5252,4948,5253,4948,5256,4948, & - 4948,4803,5255,4803,5252,4803,5252,4803,5256,4803,4803,4803, & - 4899,5255,4899,5252,4899,5256,4899,4899,1385,5250,1385,2232, & - 5250,2232,1903,3645,5256,3645,5250,3645,3645,431,5250,1310, & - 5250,1310,2372,5250,2372,3332,3332,523,5250,3082,5250,3082 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_17 = (/ & - 3641,5255,3641,5252,3641,5256,3641,3641,707,5255,3648,5255, & - 3648,5252,3648,5256,3648,3648,4807,5255,4807,5255,4807,5255, & - 4807,5252,4807,5253,4807,5256,4807,4807,4569,5256,4569,5250, & - 4569,4569,3133,3133,4568,5255,4568,5252,4568,5252,4568,5256, & - 4568,4568,4935,5255,4935,5252,4935,5256,4935,4935,4935,1150, & - 5250,1150,2087,5250,2087,2088,446,5250,3331,5250,3331,1535, & - 5250,1535,3445,5250,3445,4177,4177,4177,4177,4177,4177, 54, & - 5250,4654,5255,4654,5255,4654,5255,4654,5252,4654,5253,4654, & - 5256,4654,4654,4576,5256,4576,5250,4576,4575,5255,4575,5252, & - 4575,5252,4575,5256,4575,4575,4575,4311,5255,4311,5252,4311, & - 5256,4311,4311,3665,5255,3665,5252,3665,5256,3665,3665,4438, & - 5253,4438,5258,3503,5255,3503,5252,3503,5256,3503,3503,3506, & - 5256,3506,5258,3506,5250,861,5250,861,1896,5250,1896,3826, & - 3826,3826,3826,3826, 22,5250,2021,5250,2021,4132,5255,4132, & - 5255,4132,5255,4132,5253,4132,5253,4132,5256,4132,4132,4725, & - 5255,4725,5252,4725,5252,4725,5256,4725,4725,4725,4897,5255, & - 4897,5252,4897,5256,4897,4897,4897,4437,5253,4437,5258,3511, & - 5255,3511,5252,3511,5256,3511,3511,3791,5255,3791,5252,3791, & - 5256,3791,3791,3499,5256,3499,5258,3499,5250,1525,5250,1525, & - 1000,5250,1000,3802,3802,3802,3802,129,5250,4633,5255,4633, & - 5255,4633,5255,4633,5252,4633,5253,4633,5256,4633,4633,4727, & - 5255,4727,5252,4727,5252,4727,5256,4727,4727,4727,4905,5255, & - 4905,5252,4905,5256,4905,4905,3825,5255,3825,5252,3825,5256, & - 3825,3825,4504,5253,4504,5258,3489,5255,3489,5252,3489,5256, & - 3489,3489,3551,5256,3551,5258,3551,5250,1270,5250,1270,2333, & - 5250,2333,2334,505,5250,3412,5250,3412,1200,5250,1200,1216, & - 5250,1216,3818,3818,3818,3818, 81,5250,634,5250,634,4685, & - 5255,4685,5255,4685,5255,4685,5252,4685,5253,4685,5256,4685, & - 4685,3186,3186,4400,5255,4400,5252,4400,5252,4400,5256,4400, & - 4400,4992,5255,4992,5252,4992,5256,4992,4992,4992,677,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_18 = (/ & - 3631,5255,3631,5252,3631,5256,3631,3631,3632,5255,3632,5252, & - 3632,5256,3632,3632,1131,5250,1131,2078,5250,2078,1822,432, & - 5250,3343,5250,3343,627,5255,3659,5255,3659,5252,3659,5256, & - 3659,3659,3650,5255,3650,5252,3650,5256,3650,3650,1159,5250, & - 1159,1083,5250,1083,3403,3403,128,5250,796,5250,796,4656, & - 5255,4656,5255,4656,5255,4656,5252,4656,5253,4656,5256,4656, & - 4656,4933,5256,4933,5250,4933,4933,4335,5255,4335,5252,4335, & - 5252,4335,5256,4335,4335,4813,5255,4813,5252,4813,5256,4813, & - 4813,4813,328,5250,1240,4919,5251,4919,5252,4919,5253,4919, & - 5254,4919,4919,1377,5250,1377,3072,1095,5250,1095,613,5250, & - 3317,5250,3317,1763,5250,1763,969,969,5250,552,2222,5250, & - 3763,3763,5250,1365,1365,5250,2099,2099,5250,2100,3102,3102, & - 5250,5050,5050,5256,5050,5258,5050,5258,5050,5250,5050,5250, & - 4819,5251,4819,5252,4819,5253,4819,5254,4819,4819,1352,1352, & - 5250,1971,238,5250,5049,5049,5049,5256,5049,5258,5049,5258, & - 5049,5250,5049,5250,841,841,5250,1172,5250,2771,1054,5250, & - 5093,5258,5093,5258,5093,5250,5093,5250,5093,5093,1395,1395, & - 5250,2706,4373,4373,5256,4373,5250,1258,1258,5250,2040,2040, & - 5250,2041,5168,5168,5258,5168,5258,5168,5250,5069,5069,5256, & - 5069,5258,5069,5258,5069,5250,5069,5250,2479,2479,2479,2479, & - 5020,5255,5020,5252,5020,5252,5020,5256,5020,5020,5020,5016, & - 5252,5016,5255,5016,5252,5016,5256,5016,5016,5016,4906,5251, & - 4906,5252,4906,5253,4906,5254,4906,4906,4286,5251,4286,5252, & - 4286,5253,4286,5254,4286,4774,5255,4774,5252,4774,5256,4774, & - 4774,4774,5217,5255,5217,5252,5217,5252,5217,5256,5217,5217, & - 5217,5217,5217,5217,5219,5255,5219,5252,5219,5252,5219,5256, & - 5219,5219,5219,5219,5219,5204,5255,5204,5252,5204,5252,5204, & - 5256,5204,5204,5204,5204,5204,5204,5224,5255,5224,5252,5224, & - 5252,5224,5256,5224,5224,5224,5224,5224,5224,968,5250,968, & - 4096,5250,4096,5258,4096,5258,2623,3228,5250,3228,5250,3228 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_19 = (/ & - 1280,5250,4337,5255,4337,5252,4337,5256,4337,514,514,3980, & - 5255,3980,5252,3980,5252,3980,5256,3980,4255,5255,4255,5255, & - 4255,5252,4255,5253,4255,5256,4255,4087,5255,4087,5252,4087, & - 5252,4087,5256,4087,3865,5255,3865,5252,3865,5256,3865,2425, & - 2425,2425,2425,5127,5255,5127,5252,5127,5252,5127,5256,5127, & - 5127,5127,3496,5255,3496,5252,3496,5252,3496,5256,3496,3496, & - 3496,5218,5255,5218,5252,5218,5252,5218,5256,5218,5218,5218, & - 5218,5118,5255,5118,5252,5118,5252,5118,5256,5118,5118,5118, & - 5118,1239,5250,1239,2574,5250,2574,5250,1922,5250,1922,1923, & - 307,5250,1143,5250,1143,3156,5250,3156,5250,3156,5250,2075, & - 5250,2075,2076,417,5250,1305,5250,1305,2817,5250,2817,1867, & - 3472,5256,3472,5256,3472,5250,3472,5250,3472,5250,3900,5256, & - 3900,5250,3900,2326,4383,5250,4383,5250,4383,4383,2070,5250, & - 2070,5250,2070,1895,5250,1895,2539,2539,2715,5250,2715,5250, & - 2715,2715,1592,4938,4938,5250,2774,5250,2774,5250,2774,2774, & - 1574,5139,5139,5256,5139,5250,3222,5250,3222,5250,3222,3222, & - 179,2365,5250,2365,4801,5250,4801,4391,5250,4391,3035,5250, & - 3035,5250,3035,3035,1595,4618,5250,4618,2893,5250,2893,5250, & - 2893,2893,1638,2400,5250,2400,5250,2400,2083,5250,2083,175, & - 2665,5250,2665,1983,1983,5250,3104,1132,1132,5250,2092,2092, & - 5250,2614,2614,5026,5026,5256,5026,5250,2269,5250,2269,5250, & - 2269,1841,5250,1841,185,5157,5250,5157,5157,1719,5250,1719, & - 1876,5250,1876,5250,1876,1904,5250,1904,3367,3367,3530,3530, & - 5250,4300,4300,5250,4300,5250,2878,5250,2878,5250,2878,2878, & - 1699,3498,5250,3498,3288,5250,3288,5250,3288,3288,1954,5250, & - 1954,150,1704,5250,1704,2572,5250,2572,5250,2572,2572,761, & - 1712,5250,1712,1711,5250,1711,2558,5250,2558,5250,2558,2558, & - 1737,2401,5250,2401,5250,2401,2213,5250,2213,167,4717,5256, & - 4717,5250,4717,4717,1599,5250,1599,1153,5250,1153,3068,5250, & - 3068,3069,3069,3314,5250,3314,5250,3314,3314,666,1790,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_20 = (/ & - 1790,1587,5250,1587,1177,1177,5250,2453,2453,5250,2634,2634, & - 3879,3879,5256,3879,5250,577,577,5250,1313,5250,1313,2215, & - 5250,2215,3066,3066,3607,5250,3607,1673,5250,1673,1844,5250, & - 1844,670,2023,5250,2174,5250,2174,5250,2174,3744,3744,2181, & - 5250,3090,5250,3090,4201,5255,4201,5252,4201,5256,4201,4201, & - 4563,5255,4563,5252,4563,5256,4563,4563,4563,4912,5251,4912, & - 5252,4912,5253,4912,5254,4912,4912,5198,5255,5198,5252,5198, & - 5252,5198,5256,5198,5198,5198,2103,5250,2103,783,1036,5250, & - 2058,5250,2058,784,1565,5250,1241,5250,1241,2626,5250,2626, & - 2415, 95,5250,897,5250,897,3030,2343,5250,1362,5250,1362, & - 2959,3141,5250,4151,5256,4151,5250,4151,3852,5255,3852,5252, & - 3852,5252,3852,5256,3852,3852,3852,3733,5255,3733,5252,3733, & - 5252,3733,5256,3733,3733,3733,3982,5255,3982,5252,3982,5252, & - 3982,5256,3982,3982,4240,5255,4240,5252,4240,5256,4240,4240, & - 4240,147,5250,4302,5251,4302,5252,4302,5253,4302,5254,4302, & - 1186,5250,1186,2902,1297,5250,920,5250,920,2516,4186,5256, & - 4186,5250,4186,912,5250,912,2888,5250,2888,1975,104,5250, & - 2065,5250,2065,635,1915,5250,4148,5255,4148,5252,4148,5256, & - 4148,4148,4148,4144,5255,4144,5252,4144,5256,4144,4144,4144, & - 5236,5255,5236,5252,5236,5252,5236,5256,5236,5236,5236,4843, & - 5251,4843,5252,4843,5253,4843,5254,4843,4843,2451,5250,2451, & - 1058,5250,748,1520,5250,1911,5250,1911,639,1581,5250,1468, & - 5250,1468,1905,5250,2508,540,5250,2180,5250,2180,797,2184, & - 5250,5256,5257,5256,5257,5257,5258,5257,5258,5250,5257,5250, & - 5257,5250,5257,5250,5257,5250,5257,5257,3646,5258,3646,5258, & - 3646,5250,4970,5258,4970,5258,4970,5250,4754,5255,4754,5252, & - 4754,5256,4754,4754,4754,4756,5255,4756,5252,4756,5256,4756, & - 4756,4756,3517,5258,3517,5258,3517,5250,5041,5255,5041,5252, & - 5041,5252,5041,5256,5041,5041,5041,4746,5255,4746,5252,4746, & - 5256,4746,4746,4746,5206,5255,5206,5252,5206,5252,5206,5256 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_21 = (/ & - 5206,5206,5206,2178,5250,2178,905,5250,646,1001,5250,2160, & - 5250,2160,624,1736,5250,881,5250,881,2242,5250,2961,661, & - 5250,5237,5255,5237,5255,5237,5255,5237,5252,5237,5253,5237, & - 5256,5237,5237,4949,5255,4949,5255,4949,5255,4949,5252,4949, & - 5253,4949,5256,4949,4949,4374,5255,4374,5252,4374,5252,4374, & - 5256,4374,4374,4374,5136,5255,5136,5255,5136,5252,5136,5253, & - 5136,5256,5136,438,5250,1516,1516,5250,2882,2882,5250,384, & - 5250,1106,5250,1106,2743,5250,2743,918,5250,918,3533,5250, & - 3533,3533,2399,4931,5256,4931,5250,4931,4785,5255,4785,5252, & - 4785,5252,4785,5256,4785,4785,4785,5101,5255,5101,5255,5101, & - 5252,5101,5253,5101,5256,5101,4206,5255,4206,5255,4206,5252, & - 4206,5253,4206,5256,4206,4359,5255,4359,5252,4359,5252,4359, & - 5256,4359,4359,4359,5008,5255,5008,5255,5008,5255,5008,5252, & - 5008,5253,5008,5256,5008,5008,4882,5256,4882,5250,4882,5250, & - 4882,591,5250,591,2272,5250,3979,5255,3979,5252,3979,5256, & - 3979,3284,3255,1764,5250,2412,5250,2412,3047,5250,3047,2219, & - 5250,2219,2945,5250,2945,2473,4316,5255,4316,5255,4316,5252, & - 4316,5253,4316,5256,4316,2364,5250,2211,2211,5250,2792,2792, & - 5250,579,5250,579,4553,5255,4553,5255,4553,5252,4553,5253, & - 4553,5256,4553,5158,5255,5158,5255,5158,5252,5158,5253,5158, & - 5256,5158,5164,5255,5164,5255,5164,5255,5164,5252,5164,5253, & - 5164,5256,5164,5164,4915,5255,4915,5255,4915,5255,4915,5252, & - 4915,5253,4915,5256,4915,4915,4640,5255,4640,5252,4640,5256, & - 4640,4640,4640,5137,5255,5137,5255,5137,5255,5137,5252,5137, & - 5253,5137,5256,5137,5137,3758,5255,3758,5252,3758,5252,3758, & - 5256,3758,3758,3758,4862,5255,4862,5255,4862,5255,4862,5252, & - 4862,5253,4862,5256,4862,4862,5038,5255,5038,5255,5038,5252, & - 5038,5253,5038,5256,5038,4530,4530,4530,5256,4530,5250,5216, & - 5255,5216,5255,5216,5255,5216,5252,5216,5253,5216,5256,5216, & - 5216,4796,4796,5250,1269,5250, 12,5250,4406,5250,4406,5155 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_22 = (/ & - 5255,5155,5255,5155,5255,5155,5252,5155,5253,5155,5256,5155, & - 5155,5036,5255,5036,5255,5036,5255,5036,5252,5036,5253,5036, & - 5256,5036,5036,4557,5255,4557,5255,4557,5252,4557,5253,4557, & - 5256,4557,3566,3566,5100,5255,5100,5255,5100,5252,5100,5253, & - 5100,5256,5100,3932,5255,3932,5252,3932,5252,3932,5256,3932, & - 3932,3932,3893,5255,3893,5252,3893,5252,3893,5256,3893,3893, & - 3893,3885,5255,3885,5252,3885,5252,3885,5256,3885,3885,3885, & - 4860,5255,4860,5255,4860,5252,4860,5253,4860,5256,4860,3870, & - 5255,3870,5252,3870,5252,3870,5256,3870,3870,3870,4760,5255, & - 4760,5255,4760,5252,4760,5253,4760,5256,4760,3718,5255,3718, & - 5252,3718,5252,3718,5256,3718,3718,3718,3961,5255,3961,5252, & - 3961,5252,3961,5256,3961,3961,3961,3967,5255,3967,5252,3967, & - 5252,3967,5256,3967,3967,3967,4990,5255,4990,5255,4990,5252, & - 4990,5253,4990,5256,4990,3869,5255,3869,5252,3869,5252,3869, & - 5256,3869,3869,3869,3944,5255,3944,5252,3944,5256,3944,3944, & - 4880,5255,4880,5252,4880,5252,4880,5256,4880,4880,4880,3778, & - 5255,3778,5252,3778,5252,3778,5256,3778,3778,3778,3989,5255, & - 3989,5252,3989,5252,3989,5256,3989,3989,3989,4515,5255,4515, & - 5255,4515,5252,4515,5253,4515,5256,4515,3873,5255,3873,5252, & - 3873,5252,3873,5256,3873,3873,3873,4334,5255,4334,5252,4334, & - 5252,4334,5256,4334,4334,4334,3889,5255,3889,5252,3889,5256, & - 3889,3889,3854,5255,3854,5252,3854,5252,3854,5256,3854,3854, & - 3854,4469,5255,4469,5255,4469,5252,4469,5253,4469,5256,4469, & - 3859,5255,3859,5252,3859,5252,3859,5256,3859,3859,3859,4771, & - 5255,4771,5255,4771,5255,4771,5252,4771,5253,4771,5256,4771, & - 4771,3667,5255,3667,5252,3667,5252,3667,5256,3667,3667,3667, & - 4994,5255,4994,5255,4994,5255,4994,5252,4994,5253,4994,5256, & - 4994,4994,5108,5255,5108,5252,5108,5252,5108,5256,5108,5108, & - 5108,3785,5255,3785,5252,3785,5256,3785,4722,5255,4722,5252, & - 4722,5252,4722,5256,4722,4722,3674,5255,3674,5252,3674,5256 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_23 = (/ & - 3674,4577,5255,4577,5252,4577,5252,4577,5256,4577,4577,4577, & - 5119,5255,5119,5252,5119,5252,5119,5256,5119,5119,5119,3730, & - 5255,3730,5252,3730,5256,3730,3688,5255,3688,5252,3688,5252, & - 3688,5256,3688,3688,3688,3749,5255,3749,5252,3749,5252,3749, & - 5256,3749,3749,3749,3781,5255,3781,5252,3781,5256,3781,3751, & - 5255,3751,5252,3751,5252,3751,5256,3751,3751,3751,3768,5255, & - 3768,5252,3768,5256,3768,3731,5255,3731,5252,3731,5252,3731, & - 5256,3731,3731,3731,3766,5255,3766,5252,3766,5256,3766,3690, & - 5255,3690,5252,3690,5252,3690,5256,3690,3690,3690,3678,5255, & - 3678,5252,3678,5256,3678,3691,5255,3691,5252,3691,5252,3691, & - 5256,3691,3691,3691,3704,5255,3704,5252,3704,5256,3704,3952, & - 5255,3952,5252,3952,5252,3952,5256,3952,3952,3952,5152,5255, & - 5152,5255,5152,5255,5152,5252,5152,5253,5152,5256,5152,5152, & - 4405,5255,4405,5255,4405,5255,4405,5252,4405,5253,4405,5256, & - 4405,4405,2807,4724,5255,4724,5252,4724,5256,4724,4724,4724, & - 3301,4275,5255,4275,5255,4275,5252,4275,5253,4275,5256,4275, & - 4452,5255,4452,5255,4452,5255,4452,5252,4452,5253,4452,5256, & - 4452,4452,4817,5255,4817,5252,4817,5256,4817,4817,4817,2163, & - 4470,5255,4470,5255,4470,5255,4470,5252,4470,5253,4470,5256, & - 4470,4470,3269,4856,5255,4856,5252,4856,5256,4856,4281,5255, & - 4281,5255,4281,5252,4281,5253,4281,5256,4281,3964,5255,3964, & - 5252,3964,5256,3964,4344,5255,4344,5252,4344,5256,4344,4522, & - 5255,4522,5255,4522,5255,4522,5252,4522,5253,4522,5256,4522, & - 4522, 11,3888,5255,3888,5252,3888,5256,3888,3888, 7,4433, & - 5255,4433,5255,4433,5255,4433,5252,4433,5253,4433,5256,4433, & - 4433,3252,4215,5255,4215,5255,4215,5252,4215,5253,4215,5256, & - 4215,4345,5255,4345,5252,4345,5256,4345,4427,5255,4427,5255, & - 4427,5255,4427,5252,4427,5253,4427,5256,4427,4427,4804,5255, & - 4804,5252,4804,5256,4804,4804,4804,4889,5255,4889,5252,4889, & - 5256,4889,4889,4889,4283,5255,4283,5255,4283,5252,4283,5253 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_24 = (/ & - 4283,5256,4283,4590,5255,4590,5252,4590,5256,4590,4590,4590, & - 4719,5255,4719,5252,4719,5256,4719,4719,4719,4951,5256,4951, & - 5258,4951,5250,4916,5255,4916,5255,4916,5255,4916,5252,4916, & - 5253,4916,5256,4916,4916,1210,5250,1210,1417,5250,1417,2955, & - 5250,2955,4822,5255,4822,5255,4822,5255,4822,5252,4822,5253, & - 4822,5256,4822,4822,4823,5255,4823,5252,4823,5256,4823,4823, & - 4823,1016,5250,1016,3285,5250,3285,3576,3576,3416,5250,3416, & - 788,5250,788,3022,5250,3022,3022,2200,2448,5250,2448,1698, & - 5250,1698,4358,5255,4358,5252,4358,5256,4358,4358,4358,3161, & - 5256,3161,5250,2799,5250,2799,2799,2798,2468,5250,2468,4531, & - 5253,4531,5258,614,1024,5250,1024,4603,4603, 94,5250,939, & - 5250,939,4488,4488,136,5250,3253,5250,3253,3253,2506,1747, & - 5250,1747,4048,5256,4048,5250,4592,5255,4592,5252,4592,5256, & - 4592,4514,5253,4514,5258,628,5209,5256,5209,5256,5209,5258, & - 5209,5258,5209,5250,5209,5250,5209,5250,5209,5209,5209,5123, & - 5256,5123,5258,5123,5258,5123,5250,5123,5250,5123,5123,4952, & - 5256,4952,5258,4952,5250,4986,5255,4986,5255,4986,5255,4986, & - 5252,4986,5253,4986,5256,4986,4986,1316,5250,1316,837,5250, & - 837,3060,5250,3060,5102,5251,5102,5252,5102,5253,5102,5254, & - 5102,5102,846,5250,846,3379,5250,3379,3589,3589,3378,5250, & - 3378,565,5250,565,2501,5250,2501,2501,2234,1806,5250,1806, & - 1588,5250,1588,4591,5255,4591,5255,4591,5255,4591,5252,4591, & - 5253,4591,5256,4591,4591,2175,5250,2175,5076,5256,5076,5258, & - 5076,5258,5076,5250,5076,5250,5076,5076,3519,5256,3519,5258, & - 3519,5250,1343,5250,1343,937,5250,937,3292,5250,3292,4740, & - 5255,4740,5255,4740,5255,4740,5252,4740,5253,4740,5256,4740, & - 4740,4947,5255,4947,5252,4947,5256,4947,1049,5250,1049,3177, & - 5250,3177,3573,3573,3176,5250,3176,764,5250,764,3469,5250, & - 3469,3469,3469,755,1988,5250,1988,1988,3321,5250,3321,3321, & - 2806,1549,5250,1549,3170,5256,3170,5250,4376,5255,4376,5252 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_25 = (/ & - 4376,5256,4376,1157,5250,1157,4326,4326,109,5250,4471,5253, & - 4471,5258,723,4338,5255,4338,5255,4338,5255,4338,5252,4338, & - 5253,4338,5256,4338,4338,4038,5255,4038,5252,4038,5256,4038, & - 5089,5256,5089,5258,5089,5258,5089,5250,5089,5250,5089,5089, & - 4895,5256,4895,5258,4895,5250,4927,5256,4927,5258,4927,5250, & - 4773,5255,4773,5255,4773,5252,4773,5253,4773,5256,4773,1354, & - 5250,1354,1296,5250,1296,3206,5250,3206,4684,5255,4684,5255, & - 4684,5255,4684,5252,4684,5253,4684,5256,4684,4684,5001,5255, & - 5001,5252,5001,5256,5001,5001,1415,5250,1415,3360,5250,3360, & - 3614,3614,3359,5250,3359,779,5250,779,1836,5250,1836,720, & - 1610,5250,1610,1609,5250,1609,3125,5256,3125,5250,4075,5255, & - 4075,5252,4075,5256,4075,1009,5250,1009,4448,4448, 31,5250, & - 3320,5250,3320,3320,2762,1664,5250,1664,4487,5253,4487,5258, & - 738,4100,5255,4100,5255,4100,5255,4100,5252,4100,5253,4100, & - 5256,4100,4100,4005,5255,4005,5252,4005,5256,4005,5037,5258, & - 5037,5250,5037,1403,5250,1403,941,5250,941,2569,5250,2569, & - 1167,5250,1167,3340,5250,3340,3605,3605,3339,5250,3339,681, & - 5250,681,3468,5250,3468,3468,3468,2837,2477,5250,2477,2477, & - 2565,5250,2565,2565,2595,1700,5250,1700,3150,5256,3150,5250, & - 4001,5255,4001,5252,4001,5256,4001,996,5250,996,4012,4012, & - 84,5250,4509,5253,4509,5258,569,4187,5255,4187,5255,4187, & - 5255,4187,5252,4187,5253,4187,5256,4187,4187,3093,5256,3093, & - 5250,4020,5255,4020,5252,4020,5256,4020,938,5250,938,4045, & - 4045, 47,5250,2520,5250,2520,2520,3050,1613,5250,1613,4454, & - 5253,4454,5258,568,5126,5256,5126,5258,5126,5258,5126,5250, & - 5126,5250,5126,5126,4896,5256,4896,5258,4896,5250,5034,5255, & - 5034,5255,5034,5255,5034,5252,5034,5253,5034,5256,5034,5034, & - 961,5250,961,921,5250,921,2640,5250,2640,5070,5251,5070, & - 5252,5070,5253,5070,5254,5070,5070,1510,5250,1510,3357,5250, & - 3357,3588,3588,3356,5250,3356,683,5250,683,3238,5250,3238 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_26 = (/ & - 3238,1760,1598,5250,1598,2714,5250,2714,4030,5255,4030,5252, & - 4030,5256,4030,4030,4030,3319,5250,3319,3319,2493,1672,5250, & - 1672,3140,5256,3140,5250,4016,5255,4016,5252,4016,5256,4016, & - 1023,5250,1023,4619,4619,143,5250,4466,5253,4466,5258,538, & - 4918,5256,4918,5250,4918,5066,5256,5066,5258,5066,5258,5066, & - 5250,5066,5250,5066,5066,4637,5256,4637,5258,4637,5250,4917, & - 5255,4917,5255,4917,5255,4917,5252,4917,5253,4917,5256,4917, & - 4917,1073,5250,1073,1031,5250,1031,2656,5250,2656,4997,5251, & - 4997,5252,4997,5253,4997,5254,4997,4997,851,5250,851,3427, & - 5250,3427,4388,4388,3426,5250,3426,732,5250,732,2559,5250, & - 2559,2559,2117,1623,5250,1623,2645,5250,2645,1878,5250,1878, & - 3165,5256,3165,5250,4063,5255,4063,5252,4063,5256,4063,1232, & - 5250,1232,4743,4743, 71,5250,2709,5250,2709,2709,3027,1717, & - 5250,1717,4444,5253,4444,5258,700,5068,5256,5068,5258,5068, & - 5258,5068,5250,5068,5250,5068,5068,5068,4650,5256,4650,5258, & - 4650,5250,4930,5255,4930,5255,4930,5255,4930,5252,4930,5253, & - 4930,5256,4930,4930,1174,5250,1174,910,5250,910,2915,5250, & - 2915,4998,5251,4998,5252,4998,5253,4998,5254,4998,4998,1065, & - 5250,1065,3353,5250,3353,4393,4393,3352,5250,3352,531,5250, & - 531,2601,5250,2601,2601,1951,1636,5250,1636,2875,5250,2875, & - 4375,5255,4375,5255,4375,5255,4375,5252,4375,5253,4375,5256, & - 4375,4375,2740,5250,2740,2740,2994,1647,5250,1647,3111,5256, & - 3111,5250,4037,5255,4037,5252,4037,5256,4037,884,5250,884, & - 3195, 68,5250,4639,5253,4639,5258,752,3437,5256,3437,5250, & - 3437,5250,3437,3437,4505,5256,4505,5258,4505,5250,3553,5256, & - 3553,5258,3553,5250,4846,5255,4846,5255,4846,5255,4846,5252, & - 4846,5253,4846,5256,4846,4846,4913,5255,4913,5252,4913,5256, & - 4913,1112,5250,1112,3567,3567,3304,5250,3304,3486,5250,3486, & - 3486,812,5250,812,4139,5255,4139,5255,4139,5255,4139,5252, & - 4139,5253,4139,5256,4139,4139,4000,5255,4000,5252,4000,5256 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_27 = (/ & - 4000,3832,5258,3832,5258,3832,5250,3832,3832,2649,5250,2649, & - 2649,2776,1669,5250,1669,3085,5256,3085,5250,4009,5255,4009, & - 5252,4009,5256,4009,959,5250,959,4322,4322, 17,5250,4670, & - 5253,4670,5258,705,3227,5250,3227,3487,5250,3487,3487,3316, & - 5250,3316,1014,5250,1014,3584,3584,3264,5250,3264,3433,5250, & - 3433,785,5250,785,3452,5250,3452,3452,3452,2356,2357,5250, & - 2357,2357,4181,5255,4181,5255,4181,5255,4181,5252,4181,5253, & - 4181,5256,4181,4181,4041,5255,4041,5252,4041,5256,4041,4985, & - 5255,4985,5255,4985,5252,4985,5253,4985,5256,4985,4985,2585, & - 5250,2585,2585,2847,1589,5250,1589,1218,5250,1218,3246, 13, & - 5250,1513,5250,1513,1465,5250,1465,3258,5250,3258,4680,5255, & - 4680,5255,4680,5255,4680,5252,4680,5253,4680,5256,4680,4680, & - 5011,5255,5011,5252,5011,5256,5011,1034,5250,1034,3569,3569, & - 3438,5250,3438,487,5250,487,3624,5250,3624,3624,3624,756, & - 1600,5250,1600,3251,5250,3251,3251,3814,5255,3814,5252,3814, & - 5256,3814,3814,3814,1409,5250,1409,1370,5250,1370,2857,5250, & - 2857,4198,5255,4198,5255,4198,5255,4198,5252,4198,5253,4198, & - 5256,4198,4198,4769,5255,4769,5252,4769,5256,4769,1103,5250, & - 1103,3108,5250,3108,3606,3606,3107,5250,3107,647,5250,647, & - 1968,5250,1968,1968,1583,1584,5250,1584,1584,2624,5250,2624, & - 2624,3666,1567,5250,1567,3153,5256,3153,5250,4082,5255,4082, & - 5252,4082,5256,4082,1033,5250,1033,4152,4152,119,5250,4413, & - 5253,4413,5258,718,1405,5250,1405,1473,5250,1473,2950,5250, & - 2950,1038,5250,1038,3322,5250,3322,3610,3610,3411,5250,3411, & - 742,5250,742,1873,5250,1873,1873,1640,2484,5250,2484,2484, & - 1560,5250,1560,1560,3101,5256,3101,5250,4008,5255,4008,5252, & - 4008,5256,4008,1503,5250,1503,4799,4799,124,5250,2499,5250, & - 2499,2499,2789,1555,5250,1555,4402,5253,4402,5258,676,5103, & - 5258,5103,5258,5103,5250,5103,5103,1481,5250,1481,1254,5250, & - 1254,2632,5250,2632,1161,5250,1161,3271,5250,3271,3570,3570 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_28 = (/ & - 3345,5250,3345,811,5250,811,3451,5250,3451,3451,3451,2287, & - 1857,5250,1857,1857,3279,5250,3279,3279,2563,1554,5250,1554, & - 3098,5256,3098,5250,4085,5255,4085,5252,4085,5256,4085,932, & - 5250,932,4533,4533,111,5250,4499,5253,4499,5258,560,4070, & - 5255,4070,5252,4070,5256,4070,4070,4070,5141,5256,5141,5258, & - 5141,5258,5141,5250,5141,5250,5141,5141,4793,5256,4793,5258, & - 4793,5250,1330,5250,1330,1299,5250,1299,2948,5250,2948,947, & - 5250,947,3581,3581,3457,5250,3457,475,5250,475,3702,5250, & - 3702,3702,3702,623,1665,5250,1665,3262,5250,3262,3295,5250, & - 3295,3295,2728,1594,5250,1594,982,5250,982,3296, 18,5250, & - 3810,5255,3810,5252,3810,5256,3810,3810,3810,4051,5255,4051, & - 5255,4051,5252,4051,5253,4051,5256,4051,3235,5250,3235,3235, & - 2732,1729,5250,1729,1396,5250,1396,3283, 74,5250,4168,5255, & - 4168,5255,4168,5252,4168,5253,4168,5256,4168,898,5250,898, & - 1274,5250,1274,2650,5250,2650,4628,5255,4628,5255,4628,5255, & - 4628,5252,4628,5253,4628,5256,4628,4628,4277,5255,4277,5252, & - 4277,5256,4277,4277,4787,5255,4787,5252,4787,5256,4787,4787, & - 4787,914,5250,914,3600,3600,3460,5250,3460,374,5250,374, & - 2137,5250,2137,2137,589,1576,5250,1576,3200,5250,3200,4589, & - 5255,4589,5252,4589,5256,4589,4589,4589,4516,5255,4516,5255, & - 4516,5255,4516,5252,4516,5253,4516,5256,4516,4516,2481,2481, & - 2481,2481,4732,5255,4732,5252,4732,5256,4732,4732,4732,4414, & - 5255,4414,5255,4414,5255,4414,5252,4414,5253,4414,5256,4414, & - 4414,1642,1642,1642,1642,4159,5255,4159,5252,4159,5252,4159, & - 5256,4159,4159,4159,2258,2258,2258,2258,4578,5255,4578,5252, & - 4578,5252,4578,5256,4578,4578,4578,4341,5255,4341,5252,4341, & - 5256,4341,4341,4341,4259,5255,4259,5255,4259,5252,4259,5253, & - 4259,5256,4259,1661,2081,2081,563,563,5015,5255,5015,5252, & - 5015,5252,5015,5256,5015,5015,5015,4436,5255,4436,5255,4436, & - 5255,4436,5252,4436,5253,4436,5256,4436,4436,3630,3630,529 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_29 = (/ & - 529,3939,5255,3939,5252,3939,5256,3939,3939,1289,1289,5250, & - 4958,4958,5250,3234,4564,4564,5250,5225,5250,5225,5250,5225, & - 3514,3514,5250,533,5080,5080,5250,2497,2497,2497,5250,2497, & - 5250,654,3488,5256,3488,5250,3488,4107,4107,5250,4107,5250, & - 4107,5250,2308,2308,2308,5013,5013,5258,5013,5258,5013,5250, & - 4758,5255,4758,5252,4758,5256,4758,4758,4976,5256,4976,5258, & - 4976,5258,4976,5250,4976,5250,4976,5250,4976,4976,5205,5205, & - 5205,5256,5205,5258,5205,5258,5205,5250,5205,5250,5205,5250, & - 5205,5250,3413,5250,3413,5250,2252,2252,5250,2252,5250,4615, & - 4615,5258,4615,5258,4615,5250,4615,5250,3241,105,5250,4113, & - 4113,5250,4113,5250,4113,5250,2130,2130,2130,4617,5255,4617, & - 5252,4617,5256,4617,4617,5002,5256,5002,5258,5002,5258,5002, & - 5250,5002,5250,5002,5250,5002,5002,5220,5220,5220,5256,5220, & - 5258,5220,5258,5220,5250,5220,5250,5220,5250,5220,5250,2544, & - 2544,5250,2544,5250,2544,5250,4786,4786,5258,4786,5258,4786, & - 5250,3194,3734,3734,5250,5173,5255,5173,5252,5173,5252,5173, & - 5256,5173,5173,558,558,4894,5255,4894,5252,4894,5252,4894, & - 5256,4894,4894,4269,5255,4269,5255,4269,5252,4269,5253,4269, & - 5256,4269,1364,5250,1364,3586,3586,4963,5251,4963,5252,4963, & - 5253,4963,5254,4963,4963,873,5250,873,2834,5250,2834,3048, & - 1285,5250,1285,2791,5250,2791,1445,5250,1445,1846,5250,1846, & - 1847,1306,5250,1306,2821,981,981,5250,2436,2436,5250,2996, & - 9,5250,4109,4109,5250,1102,5250,1102,1909,5250,1909,1910, & - 194,4060,5255,4060,5252,4060,5252,4060,5256,4060,4060,4060, & - 3676,5255,3676,5252,3676,5252,3676,5256,3676,3676,3676,4595, & - 5255,4595,5252,4595,5256,4595,4595,4595,4127,5255,4127,5255, & - 4127,5252,4127,5252,4127,5256,4127,4127,4127,3619,5250,3619, & - 5250,4219,5255,4219,5255,4219,5252,4219,5252,4219,5256,4219, & - 4219,4219,4368,5255,4368,5255,4368,5252,4368,5252,4368,5256, & - 4368,4368,4368,4610,5255,4610,5255,4610,5252,4610,5252,4610 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_30 = (/ & - 5256,4610,4610,4610,4611,5255,4611,5255,4611,5255,4611,5252, & - 4611,5253,4611,5256,4611,4611,4730,5255,4730,5252,4730,5256, & - 4730,4730,4730,5197,5255,5197,5252,5197,5256,5197,5197,5197, & - 4885,5255,4885,5252,4885,5256,4885,4885,4885,4991,5255,4991, & - 5252,4991,5256,4991,4169,5255,4169,5252,4169,5256,4169,4169, & - 4169,4126,5255,4126,5252,4126,5256,4126,4126,4126,5117,5255, & - 5117,5255,5117,5255,5117,5252,5117,5253,5117,5256,5117,5117, & - 3926,5255,3926,5252,3926,5256,3926,4095,5255,4095,5252,4095, & - 5256,4095,4446,5255,4446,5252,4446,5256,4446,4446,4446,5150, & - 5255,5150,5252,5150,5252,5150,5256,5150,5150,5150,4646,5255, & - 4646,5252,4646,5252,4646,5256,4646,4646,4646,4871,5255,4871, & - 5252,4871,5256,4871,4827,5255,4827,5252,4827,5256,4827,4827, & - 4827,4118,5255,4118,5252,4118,5256,4118,4365,5255,4365,5252, & - 4365,5256,4365,4365,4365,4627,5255,4627,5255,4627,5252,4627, & - 5253,4627,5256,4627,4318,5255,4318,5252,4318,5256,4318,4170, & - 5255,4170,5252,4170,5256,4170,4105,5255,4105,5252,4105,5256, & - 4105,4105,4105,4836,5255,4836,5255,4836,5255,4836,5252,4836, & - 5253,4836,5256,4836,4836,4158,5255,4158,5252,4158,5256,4158, & - 4158,4158,4765,5255,4765,5252,4765,5256,4765,4765,4765,1113, & - 5250,5213,5256,5213,5250,5213,5250,5213,3745,5255,3745,5252, & - 3745,5256,3745,5029,5255,5029,5255,5029,5255,5029,5252,5029, & - 5253,5029,5256,5029,5029,1007,5250,1007,370,369,5250,369, & - 2540,5250,2540,2540,2323,2323,3115,5250,3115,3559,5250,3559, & - 3559,2140,5250,2140,2002,5250,2002,5250,2002,2313,5250,2313, & - 271,599,5250,599,4914,5256,4914,5250,4914,2480,5250,4089, & - 5255,4089,5252,4089,5252,4089,5256,4089,4089,4089,4266,5255, & - 4266,5255,4266,5252,4266,5253,4266,5256,4266,904,5250,904, & - 2296,5250,2296,3398,3398,1604,5250,336,5250,653,5250,653, & - 840,5250,840,176,652,5250,395,5250,1470,5250,1470,3034, & - 5250,3034,254, 28,5250,405,5250,405,145,404,5250,403 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_31 = (/ & - 5250,4078,5255,4078,5252,4078,5252,4078,5256,4078,4078,4078, & - 4301,5255,4301,5255,4301,5252,4301,5253,4301,5256,4301,5169, & - 5256,5169,5256,5169,5258,5169,5258,5169,5250,5169,5250,5169, & - 2362,5250,2362,2362,740,2231,5250,2231,1585,5250,1585,2727, & - 5250,2727,2727,708,1858,5250,1858,1718,5250,1718,1205,5250, & - 1205,2061,5250,2061,199,401,5250,5212,5250,5212,5250,5212, & - 709,5250,4847,5255,4847,5255,4847,5255,4847,5252,4847,5253, & - 4847,5256,4847,4847,5175,5256,5175,5258,5175,5258,5175,5250, & - 5175,5250,5099,5255,5099,5255,5099,5255,5099,5252,5099,5253, & - 5099,5256,5099,5099,3988,5255,3988,5252,3988,5256,3988,3988, & - 236,236,5248,5256,5248,5250,5248,5250,5248,5250,5248,5250, & - 5248,5250,5248,3883,5255,3883,5252,3883,5252,3883,5256,3883, & - 3883,3617,5250,4869,5251,4869,5252,4869,5253,4869,5254,4869, & - 4541,5255,4541,5252,4541,5252,4541,5256,4541,4541,3638,5250, & - 362,362,3990,5255,3990,5252,3990,5252,3990,5256,3990,3990, & - 2469,5250,2469,2469,770,1834,5250,1834,1611,5250,1611,2836, & - 5250,2836,2836,688,1791,5250,1791,1742,5250,1742,243,243, & - 3516,5250,4249,5255,4249,5252,4249,5252,4249,5256,4249,4249, & - 1178,5250,1178,1771,5250,1771,156,5207,5256,5207,5256,5207, & - 5258,5207,5258,5207,5250,5207,5250,5207,325,5250,3043,5250, & - 3043,3043,2170,2132,5250,2132,1612,5250,1612,1128,5250,1128, & - 2108,5250,2108,172,4183,5250,4183,439,5250,5249,5256,5249, & - 5258,5249,5258,5249,5258,5249,5258,5249,5250,5249,5250,237, & - 5250,868,868,5250,2825,2825,5250,343,5250,1158,1158,5250, & - 2790,2790,5250,1142,1142,5250,2074,2074,5250,2745,498,5250, & - 3602,3602,5250,1545,1545,5250,2880,2880,5250,2693,2693,5250, & - 2693,5250,1531,5250,532,497,5250,3935,3935,5256,3935,5250, & - 1380,1380,5250,2675,2675,5250,2208,5250,2208,2620,5250,2620, & - 3205,3205,5250,3205,5250,1005,5250,2005,3991,3991,5256,3991, & - 5250,355,5250,393,5250,1134,1134,5250,2684,2684,5250,4451 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_32 = (/ & - 5255,4451,5255,4451,5252,4451,5253,4451,5256,4451,4354,5255, & - 4354,5252,4354,5256,4354,4354,4354,4244,5255,4244,5252,4244, & - 5256,4244,3784,5255,3784,5252,3784,5256,3784,1430,5250,1430, & - 3054,2434,5250,2434,2815,5250,2815,2110,5250,2110,3020,5250, & - 3020,833,5250,833,3021,5250,3021,330,5250,1015,1015,5250, & - 2525,2525,5250,1097,5250,1097,1048,5250,1048,3056,5250,3056, & - 2828,5250,2828,2828,1037,1037,5250,1100,1100,5250,2691,2691, & - 5250,2127,2127,5250,2127,5250,1902,1902,5250,1720,4540,4540, & - 5256,4540,5250,231,5250,603,222,5250,1436,5250,1436,2921, & - 5250,2921,2410,5250,2410,2511,5250,2511,4983,4983,5250,5133, & - 5255,5133,5255,5133,5255,5133,5252,5133,5253,5133,5256,5133, & - 5133,3334,5250,3334,5250,3326,5250,3326,5250,3326,3059,5250, & - 3059,2985,5250,2985,5250,3203,5250,3203,5250,3203,2240,5250, & - 2240,2131,5250,2131,2887,5250,2887,3476,3476,3476,5250,2793, & - 2793,5250,831,831,5250,2172,2172,5250,2173,4248,4248,5250, & - 4248,5250,1179,5250,2785,2785,5250,2785,5250,2519,2519,5250, & - 1667,4261,4261,5256,4261,5250,2871,2871,5250,2871,5250,2761, & - 2761,5250,1616,546,5250,546,5250,3923,3923,5256,3923,5250, & - 889,5250,889,3260,3260,5250,1165,1165,5250,2509,2509,5250, & - 1755,1521,5250,5140,5140,5140,5250,5140,5250,1290,1290,5250, & - 2841,5250,2841,836,836,5250,2189,2189,5250,2030,437,5250, & - 3046,3046,5250,3046,5250,2835,2835,5250,1563,5115,5115,5256, & - 5115,5250,5115,5250,1506,1506,5250,1798,1798,5250,1799,5010, & - 5010,5250,5010,5250,435,5250,876,876,5250,2755,2755,5250, & - 2543,2543,5250,2543,5250,2653,2653,5250,1564,4975,4975,5256, & - 4975,5250,4975,5250,2244,2244,2244,5250,1654,1653,1653,5250, & - 1262,1262,5250,1980,1980,5250,195,3857,3857,5256,3857,5250, & - 1693,1693,5250,2233,2233,5250,2233,5250,2182,2182,5250,1692, & - 4110,4110,5256,4110,5250,4110,5250,425,5250,1340,1340,5250, & - 2555,2555,5250,1838,5064,5064,5250,5064,5250,488,5250,1180 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_33 = (/ & - 1180,5250,3024,3024,5250,2775,2775,5250,2775,5250,2934,2934, & - 5250,1721,5063,5063,5256,5063,5250,5063,5250,1281,1281,5250, & - 2045,2045,5250,2889,2889,3384,3384,5250,220,5250,1514,1514, & - 5250,1714,1694,1694,5250,3038,3038,5250,3038,5250,2513,2513, & - 5250,1663,4313,4313,5256,4313,5250,2259,5250,2259,5250,853, & - 853,5250,3026,3026,5250,2633,2633,5250,2633,5250,2713,2713, & - 5250,1627,4834,4834,5256,4834,5250,291,5250,828,828,5250, & - 3312,3312,5250,1992,1992,5250,1992,5250,2218,2218,5250,1559, & - 333,5250,3986,3986,5256,3986,5250,379,5250,832,832,5250, & - 3023,3023,5250,1375,1375,5250,2917,2917,5250,1945,314,5250, & - 3382,3382,5250,1075,1075,5250,117,1326,1326,5250,3212,3212, & - 5250,2361,895,5250,1282,1282,5250, 91,1010,1010,5250,2291, & - 2291,5250,3393,3393,3747,3747,5250,3747,5250,964,964,5250, & - 2049,2049,5250,2050,675,5250,675,5250,3822,5250,3822,1032, & - 1032,5250,132,1382,5250,1382,5250,2202,2202,5250,727,223, & - 5250,3946,3946,5256,3946,5250,1168,1168,5250,2299,2299,5250, & - 2284,469,5250,3917,3917,5250,3917,5250,1416,1416,5250, 50, & - 1401,1401,5250,1780,1780,5250,1781,468,5250,4103,4103,5250, & - 4103,5250,1374,1374,5250,140,1304,1304,5250,2268,2268,5250, & - 2122,525,5250,4122,4122,5250,4122,5250,1410,1410,5250, 66, & - 1349,1349,5250,2206,2206,5250,2060,295,5250,4179,4179,5250, & - 4179,5250,1028,1028,5250, 35,1387,1387,5250,2387,2387,5250, & - 2031,524,5250,4164,4164,5250,4164,5250,1534,1534,5250, 43, & - 1536,5250,1536,1889,5250,1889,188,501,5250,2783,5250,2150, & - 5250,2150,2500,5250,2500,1110,5250,1997,5250,1997,2579,5250, & - 2579,2080,5250,2080,637,4352,5250,4352,1916,5250,1916,2384, & - 5250,2384,2698,5250,2698,1078,5250,2460,5250,2460,2522,5250, & - 2522,1802,5250,1802,737,2478,5250,2478,2478,1562,5250,1562, & - 1363,5250,2176,5250,2176,2583,5250,2583,3231,5250,3231,3231, & - 706,2396,5250,2396,2738,5250,2738,1515,5250,1515,2858,829 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_34 = (/ & - 5250,829,3897,3897,924,5250,2314,5250,2314,2702,5250,2702, & - 1080,5250,1080,1261,5250,2036,5250,2036,2872,5250,2872,2301, & - 5250,2301,3051,5250,3051,3278,5250,3278,5250,3278,3909,3909, & - 834,5250,2290,5250,2290,2988,5250,2988,1999,5250,1999,669, & - 2028,5250,2028,2028,1621,5250,1621,2466,5250,2466,551,1670, & - 5250,1670,3759,3759,5250,2371,2371,5250,2896,2896,5250,2166, & - 5250,2166,815,2547,5250,2547,2129,5250,2129,2114,5250,2114, & - 5250,2114,3904,3904,3354,5250,3354,2344,5250,2344,3728,5255, & - 3728,5252,3728,5256,3728,759,759,3669,5255,3669,5252,3669, & - 5256,3669,3669,3669,4398,5250,4398,3325,5250,3325,3325,3712, & - 3712,2924,5250,2924,1356,5250,1356,1067,5250,1067,2712,5250, & - 2712,2609,5250,2609,2609,2376,4602,5250,4602,3446,5250,3446, & - 5250,3446,3446,808,3644,5250,3644,1570,5250,1570,4859,5253, & - 4859,5258,3092,5256,3092,5250,4079,5255,4079,5252,4079,5256, & - 4079,1775,5256,1775,5250,4491,5250,4491,2054,5256,2054,5250, & - 4798,5253,4798,5258,2283,5250,2283,3167,5256,3167,5250,4049, & - 5255,4049,5252,4049,5256,4049,3590,5250,3590,4993,5255,4993, & - 5255,4993,5255,4993,5252,4993,5253,4993,5256,4993,4993,3647, & - 3647,4861,5255,4861,5252,4861,5256,4861,4861,4835,5255,4835, & - 5252,4835,5256,4835,4835,4835,3692,5255,3692,5252,3692,5256, & - 3692,771,771,3752,5255,3752,5252,3752,5256,3752,3752,4071, & - 4071,1109,5250,1109,2876,5250,2876,4693,4693,5250,461,5250, & - 1456,5250,1456,3220,5250,3220,4968,5255,4968,5255,4968,5255, & - 4968,5252,4968,5253,4968,5256,4968,4968,2393,2393,2393,2393, & - 4347,5255,4347,5252,4347,5256,4347,4347,4440,5255,4440,5252, & - 4440,5256,4440,4669,5255,4669,5252,4669,5256,4669,4669,4669, & - 4422,5255,4422,5252,4422,5256,4422,4422,1765,5250,1765,2051, & - 5250,2051,1086,5250,1086,3931,5250,3931,3931,3931,3930,3930, & - 3450,5250,3450,3450,3821,5250,3821,4690,5253,4690,5258,2177, & - 5250,2177,1936,5256,1936,5250,3095,5256,3095,5250,4033,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_35 = (/ & - 4033,5252,4033,5256,4033,389,5250,1283,5250,1283,2956,5250, & - 2956,3385,5250,3385,1645,5253,4558,5255,4558,5252,4558,5256, & - 4558,4558,3739,5255,3739,5252,3739,5256,3739,4857,5255,4857, & - 5252,4857,5256,4857,4857,4857,3705,5255,3705,5252,3705,5256, & - 3705,3705,3677,5255,3677,5252,3677,5256,3677,4550,5255,4550, & - 5252,4550,5256,4550,3695,5255,3695,5252,3695,5256,3695,3695, & - 3582,3582,3475,5250,3475,3475,2830,5250,2830,1084,5250,1084, & - 915,5250,915,2904,5250,2904,4125,5250,4125,4125,1810,4671, & - 5253,4671,5258,1419,5250,1419,2464,5256,2464,5250,3119,5256, & - 3119,5250,4073,5255,4073,5252,4073,5256,4073,4014,5250,4014, & - 341,5250,1002,5250,1002,3229,5250,3229,2102,5250,2102,3456, & - 5253,4706,5255,4706,5252,4706,5256,4706,4706,4706,4676,5253, & - 4676,5258,854,5250,854,2167,5256,2167,5250,3112,5256,3112, & - 5250,4002,5255,4002,5252,4002,5256,4002,276,5250,867,5250, & - 867,2780,5250,2780,4797,5253,4797,5258,1476,5250,1476,4047, & - 5250,4047,1805,5256,1805,5250,3162,5256,3162,5250,4057,5255, & - 4057,5252,4057,5256,4057,3230,5250,3230,4877,5255,4877,5252, & - 4877,5256,4877,4877,4877,3713,5255,3713,5252,3713,5256,3713, & - 4661,5255,4661,5252,4661,5256,4661,4661,4661,3727,5255,3727, & - 5252,3727,5256,3727,3727,3727,4062,4062,3458,5250,3458,3458, & - 2582,5250,2582,4403,5250,4403,4728,5250,4728,4728,3860,5255, & - 3860,5252,3860,5256,3860,2204,5250,2204,787,2295,5250,2295, & - 358,5250,3800,5250,3800,4791,5253,4791,5258,1188,5250,1188, & - 2274,5256,2274,5250,3123,5256,3123,5250,4065,5255,4065,5252, & - 4065,5256,4065,2936,5250,2936,2104,2104,2104,2104,4165,5255, & - 4165,5252,4165,5256,4165,4165,4165,3772,5255,3772,5252,3772, & - 5256,3772,4689,5255,4689,5252,4689,5256,4689,4689,4689,3696, & - 5255,3696,5252,3696,5256,3696,3696,3696,4029,4029,3225,5250, & - 3225,3225,2689,5250,2689,862,5250,862,2474,5250,2474,2474, & - 3973,5255,3973,5252,3973,5256,3973,4069,5255,4069,5252,4069 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_36 = (/ & - 5256,4069,4069,4069,4790,5253,4790,5258,1303,5250,1303,3816, & - 5250,3816,2398,5256,2398,5250,3100,5256,3100,5250,3997,5255, & - 3997,5252,3997,5256,3997,2927,5250,2927,4141,5255,4141,5252, & - 4141,5256,4141,4141,4141,3774,5255,3774,5252,3774,5256,3774, & - 4688,5255,4688,5252,4688,5256,4688,4688,4688,3762,5255,3762, & - 5252,3762,5256,3762,3762,3762,4086,4086,3226,5250,3226,3226, & - 2808,5250,2808,1111,5250,1111,2472,5250,2472,2472,3953,5255, & - 3953,5252,3953,5256,3953,227,5250,1355,5250,1355,3199,5250, & - 3199,3664,5250,3664,4810,5253,4810,5258,1227,5250,1227,3114, & - 5256,3114,5250,4023,5255,4023,5252,4023,5256,4023,4888,5255, & - 4888,5255,4888,5255,4888,5252,4888,5253,4888,5256,4888,4888, & - 3975,5255,3975,5252,3975,5256,3975,3975,3945,5255,3945,5252, & - 3945,5256,3945,3726,5250,3726,3725,5255,3725,5252,3725,5256, & - 3725,3725,4416,5255,4416,5252,4416,5256,4416,4481,5255,4481, & - 5252,4481,5256,4481,4481,4480,5255,4480,5252,4480,5256,4480, & - 4480,1175,5250,1175,1404,5250,1404,2518,5250,2518,3965,5250, & - 3965,3965,3965,503,5250,1537,5250,1537,3318,5250,3318,2225, & - 5250,2225,3305,5253,214,214,4674,5255,4674,5252,4674,5256, & - 4674,4674,3829,5250,3829,4788,5253,4788,5258,943,5250,943, & - 2048,5256,2048,5250,3142,5256,3142,5250,4007,5255,4007,5252, & - 4007,5256,4007,4694,5250,4694,423,5250,1228,5250,1228,3232, & - 5250,3232,2379,5250,2379,3474,5253,3765,3765,2603,5250,2603, & - 2603,3300,5250,3300,1432,5250,1432,1378,5250,1378,2671,5250, & - 2671,3366,5250,3366,3366,1833,3918,5250,3918,5031,5250,5031, & - 2047,5250,2047,2047,782,1666,5250,1666,3132,5250,3132,1389, & - 5250,1389,1206,5250,1206,1368,5250,1368,3441,5250,3441,3441, & - 3441,3419,3419,2310,5250,2310,4682,5253,4682,5258,1156,5250, & - 1156,2420,5256,2420,5250,3127,5256,3127,5250,4054,5255,4054, & - 5252,4054,5256,4054,5199,5199,5199,5256,5199,5250,4632,5253, & - 4632,5258,843,5250,843,2281,5256,2281,5250,3116,5256,3116 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_37 = (/ & - 5250,4035,5255,4035,5252,4035,5256,4035,4703,5255,4703,5252, & - 4703,5256,4703,4703,4703,4663,5253,4663,5258,852,5250,852, & - 2390,5256,2390,5250,3087,5256,3087,5250,4064,5255,4064,5252, & - 4064,5256,4064,2690,5250,2690,2690,801,1735,5250,1735,1797, & - 5250,1797,4946,5255,4946,5255,4946,5255,4946,5252,4946,5253, & - 4946,5256,4946,4946,3853,5255,3853,5252,3853,5256,3853,3853, & - 3687,5255,3687,5252,3687,5256,3687,4920,5255,4920,5252,4920, & - 5256,4920,4920,4920,3788,5255,3788,5252,3788,5256,3788,3788, & - 4401,5250,4401,4401,2900,5250,2900,2900,717,1716,5250,1716, & - 2134,5250,2134,1076,5250,1076,4050,5255,4050,5252,4050,5256, & - 4050,3303,5250,3303,4178,5250,4178,5250,4178,4178,2307,5250, & - 2307,2681,5250,2681,1256,5250,1256,1176,5250,1176,2630,5250, & - 2630,2971,5250,2971,2971,2238,572,5250,572,2358,5250,2358, & - 2358,750,4865,5250,4865,1917,1917,1917,5250,595,2711,2711, & - 5250,1683,1683,5250,1969,5250,2824,2824,5250,2531,2531,5250, & - 4668,5251,4668,5252,4668,5253,4668,5254,4668,4668,3459,3459, & - 3459,5250,2112,1644,1644,5250,3483,3483,5256,3483,5250,1851, & - 5250,2494,2494,5250,2796,2796,5250,4999,5251,4999,5252,4999, & - 5253,4999,5254,4999,4999,1098,1098,5250,991,5250,2816,1626, & - 1626,5250,4851,4851,5256,4851,5250,4776,5251,4776,5252,4776, & - 5253,4776,5254,4776,4776,1220,5250,1220,1529,5250,2596,3608, & - 5250,3608,2695,5250,2695,2695,656,2043,5250,2043,2431,2431, & - 5250,2801,2801,5250,4282,5251,4282,5252,4282,5253,4282,5254, & - 4282,2147,2147,5250,2147,5250,3835,5250,3835,5250,3835,5250, & - 2717,3628,3628,5250,463,5250,2191,5250,3033,3033,5250,2670, & - 2670,5250,4213,5251,4213,5252,4213,5253,4213,5254,4213,1438, & - 1438,5250,2545, 55,5250,3933,5250,3933,391,5250,4321,5255, & - 4321,5252,4321,5252,4321,5256,4321,4321,4832,5256,4832,5258, & - 4832,5250,819,819,1795,1795,3707,5250,3707,3707,3707,1346, & - 3464,5250,3464,5250,3464,3464,4805,5258,4805,5258,4805,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_38 = (/ & - 4805, 29,3693,5250,3693,3693,1558,5250,1558,5025,5255,5025, & - 5255,5025,5255,5025,5252,5025,5253,5025,5256,5025,5025,5025, & - 5035,5255,5035,5252,5035,5252,5035,5256,5035,5035,3428,5250, & - 3428,5250,3428,5250,3428,5250,3428,5250,2489,2489,2489,2489, & - 5074,5255,5074,5252,5074,5252,5074,5256,5074,5074,5074,5154, & - 5255,5154,5252,5154,5252,5154,5154,5154,678,5250,678,5250, & - 3801,5255,3801,5252,3801,5252,3801,5256,3801,3801,3524,5250, & - 3524,3524,3524,1246,4749,5250,4749,5250,4749,4749,4749,4570, & - 5258,4570,5258,4570,5250,4570, 19,4339,5255,4339,5252,4339, & - 5256,4339,1682,5250,1682,5033,5255,5033,5255,5033,5255,5033, & - 5252,5033,5253,5033,5256,5033,5033,5033,4711,5255,4711,5252, & - 4711,5252,4711,5256,4711,5174,5255,5174,5252,5174,5252,5174, & - 5256,5174,5174,5174,790,790,5022,5255,5022,5252,5022,5252, & - 5022,5256,5022,5022,5134,5255,5134,5252,5134,5256,5134,3552, & - 3552,5250,3552,5250,4945,5250,4945,5250,4945,5250,4945,5250, & - 4945,5250,2162,458,5250,4556,5251,4556,5252,4556,5253,4556, & - 5254,4556,2236,2236,5250,4256,4256,5250,3080, 70,5250,2402, & - 5250,2402,2576,5250,2576,114,5250,4939,4939,5256,4939,5250, & - 5091,5255,5091,5252,5091,5252,5091,5256,5091,5091,5091,5091, & - 2156,5250,2156,5250,2156,2461,5250,2461,3344,3344,319,5250, & - 3626,5250,2187,5250,2187,5250,2187,2375,5250,2375,1743,4231, & - 5256,4231,5250,4231,2716,5250,2260,5250,2260,5250,2260, 51, & - 3510,5256,3510,5250,3510,1870,5250,2753,5250,2753,5250,2753, & - 1728,5250,2672,5250,2672,1553,208,5250,4612,5255,4612,5255, & - 4612,5252,4612,5252,4612,5256,4612,4612,4612,1449,5250,1449, & - 1864,5250,1864,1865,471,5250,1869,5250,1869,2954,2405,5250, & - 2405,321,5250,1160,5250,1160,3405,1952,5250,1952,381,5250, & - 309,5250,1064,5250,1064,2757,5250,2757,3049,5250,3049,5250, & - 3049,665,3682,5250,3682,4239,5256,4239,5250,4239,3708,3708, & - 5250,3708,5250,1825,1938,5250,1938,5250,1938,2000,1655,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_39 = (/ & - 1655,3683,5250,3683,1099,5250,1099,2679,2424,5250,2424,2424, & - 600,1646,5250,1646,4392,4392,5250,3287,3287,3287,5250,3287, & - 5250,689,1658,1658,5250,2395,2395,5250,2397,2397,5250,3031, & - 3031,3031,5250,2883,2883,5250,1212,5250,1212,2190,2618,5250, & - 2618,5250,2618,2618,610,2428,2428,2428,5250,682,5110,5110, & - 5110,5250,1566,1566,5250,2247,2247,5250,2247,5250,1856,1856, & - 5250,2939,2939,1337,1337,5250,2123,2123,5250,2528,3616,3616, & - 5250,586,586,5250,1406,5250,1406,3346,3346,2940,5250,2940, & - 5250,2940,1650,3756,5250,3756,1705,5250,1705,1495,5250,1495, & - 2692,3473,5250,3473,5250,3473,3473,749,2932,5250,2932,1601, & - 5250,1601,1498,5250,1498,2560,5250,2560,1217,5250,1217,1292, & - 5250,1292,2881,3291,3291,5250,3291,5250,1556,608,608,5250, & - 2255,2255,5250,363,5250,1193,1193,5250,3239,3239,5250,1935, & - 5250,1935,557,4996,5256,4996,5250,4996,4996,3580,5250,3580, & - 3055,5250,3055,5250,3055,2186,2186,1777,5250,1777,3389,5250, & - 3389,4124,5255,4124,5252,4124,5252,4124,5256,4124,4124,1043, & - 5250,1043, 42,1462,5250,1462,2951,5250,2951,3955,5255,3955, & - 5252,3955,5252,3955,5256,3955,3955,4910,5255,4910,5255,4910, & - 5255,4910,5252,4910,5253,4910,5256,4910,4910,4830,5255,4830, & - 5255,4830,5255,4830,5252,4830,5253,4830,5256,4830,4830,4898, & - 5255,4898,5252,4898,5256,4898,3741,5255,3741,5252,3741,5256, & - 3741,3741,4288,5255,4288,5255,4288,5252,4288,5253,4288,5256, & - 4288,4257,5255,4257,5252,4257,5256,4257,4092,5255,4092,5252, & - 4092,5252,4092,5256,4092,4092,1059,5250,1059,2462,5250,2462, & - 2324,516,5250,1770,5250,1770,2898,5250,2898,4173,5255,4173, & - 5252,4173,5252,4173,5256,4173,4173,3720,5255,3720,5252,3720, & - 5252,3720,5256,3720,3720,3720,4789,5255,4789,5252,4789,5252, & - 4789,5256,4789,4789,4789,1696,5250,3981,5255,3981,5252,3981, & - 5252,3981,5256,3981,3981,736,5250,736,1057,5250,1057,154, & - 735,5250,344,5250,2146,5250,2146,3017,5250,3017,3876,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_40 = (/ & - 3876,5252,3876,5256,3876,3876,148,5176,5256,5176,5250,5176, & - 5250,5176,3850,5255,3850,5252,3850,5252,3850,5256,3850,3850, & - 5083,5256,5083,5256,5083,5258,5083,5258,5083,5250,5083,5250, & - 5083,4855,5255,4855,5255,4855,5255,4855,5252,4855,5253,4855, & - 5256,4855,4855,4953,5255,4953,5255,4953,5255,4953,5252,4953, & - 5253,4953,5256,4953,4953,4567,5255,4567,5252,4567,5256,4567, & - 4567,4567,4891,5255,4891,5255,4891,5252,4891,5253,4891,5256, & - 4891,3907,5255,3907,5252,3907,5256,3907,4781,5255,4781,5252, & - 4781,5256,4781,985,5250,985,2593,5250,2593,3969,5255,3969, & - 5252,3969,5256,3969,3969,224,224,612,612,3872,5255,3872, & - 5252,3872,5252,3872,5256,3872,3872,3927,5255,3927,5252,3927, & - 5252,3927,5256,3927,3927,3927,1251,5250,1251,2587,5250,2587, & - 885,5250,885,3074,621,5250,4264,5251,4264,5252,4264,5253, & - 4264,5254,4264,4762,5255,4762,5252,4762,5256,4762,4762,4762, & - 4921,5255,4921,5255,4921,5255,4921,5252,4921,5253,4921,5256, & - 4921,4921,5028,5255,5028,5252,5028,5256,5028,5028,5028,4761, & - 5255,4761,5252,4761,5256,4761,4761,4761,4542,5255,4542,5252, & - 4542,5256,4542,4542,4542,4940,5255,4940,5252,4940,5252,4940, & - 5256,4940,4940,4940,1314,5250,1314,1918,5250,3039,667,5250, & - 1993,5250,1993,2254,5250,3037,580,5250,5039,5255,5039,5252, & - 5039,5256,5039,5039,5039,4526,5251,4526,5252,4526,5253,4526, & - 5254,4526,1758,5250,1758,2347,5250,2744,536,5250,5014,5255, & - 5014,5255,5014,5255,5014,5252,5014,5253,5014,5256,5014,5014, & - 4989,5255,4989,5255,4989,5255,4989,5252,4989,5253,4989,5256, & - 4989,4989,4757,5251,4757,5252,4757,5253,4757,5254,4757,5122, & - 5255,5122,5252,5122,5256,5122,5122,5122,2373,5250,2373,2280, & - 5250,2008,694,5250,3901,5255,3901,5252,3901,5252,3901,5256, & - 3901,3901,3928,5255,3928,5252,3928,5256,3928,3928,5240,5256, & - 5240,5250,5240,522,522,3886,5255,3886,5252,3886,5252,3886, & - 5256,3886,3886,4088,5255,4088,5252,4088,5252,4088,5256,4088 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_41 = (/ & - 4088,4088,4745,5255,4745,5252,4745,5256,4745,4394,5255,4394, & - 5252,4394,5252,4394,5256,4394,4394,3564,3844,5255,3844,5252, & - 3844,5256,3844,3844,4691,5251,4691,5252,4691,5253,4691,5254, & - 4691,4691,4678,5251,4678,5252,4678,5253,4678,5254,4678,4678, & - 2359,2359,2359,2359,1569,1569,1569,3920,5255,3920,5252,3920, & - 5252,3920,5256,3920,3920,3966,5255,3966,5252,3966,5252,3966, & - 5256,3966,3966,3966,4243,5255,4243,5255,4243,5252,4243,5253, & - 4243,5256,4243,4260,5255,4260,5255,4260,5252,4260,5253,4260, & - 5256,4260,929,5250,929,2674,5250,2674,2009,5250,2009,5250, & - 2009,3415,3415,4883,5250,4883,5250,4883,865,5250,865, 36, & - 1202,5250,1202, 45,4962,5255,4962,5255,4962,5255,4962,5252, & - 4962,5253,4962,5256,4962,4962,4263,5255,4263,5252,4263,5256, & - 4263,3672,5250,3672,3502,5250,3502,3529,5250,3529,3387,5250, & - 3387,3515,5250,3515,3515,3401,5250,3401,5211,5211,5256,5211, & - 5250,4848,5255,4848,5255,4848,5255,4848,5252,4848,5253,4848, & - 5256,4848,4848,3915,3915,5256,3915,5250,4412,5255,4412,5255, & - 4412,5252,4412,5253,4412,5256,4412,4735,5255,4735,5252,4735, & - 5252,4735,5256,4735,4735,4735,3662,3662,5256,3662,5250,4623, & - 5255,4623,5255,4623,5255,4623,5252,4623,5253,4623,5256,4623, & - 4623,4561,5255,4561,5252,4561,5252,4561,5256,4561,4561,3792, & - 3792,5256,3792,5250,3792,5250,5120,5255,5120,5252,5120,5252, & - 5120,5256,5120,5120,5120,4934,5255,4934,5255,4934,5255,4934, & - 5252,4934,5253,4934,5256,4934,4934,4911,5255,4911,5252,4911, & - 5256,4911,4911,4911,4517,5255,4517,5255,4517,5252,4517,5253, & - 4517,5256,4517,4629,5255,4629,5255,4629,5255,4629,5252,4629, & - 5253,4629,5256,4629,4629,4128,5255,4128,5252,4128,5252,4128, & - 5256,4128,4128,4128,4704,5255,4704,5252,4704,5252,4704,5256, & - 4704,4704,4704,3471,3471,5256,3471,5250,4665,5255,4665,5255, & - 4665,5255,4665,5252,4665,5253,4665,5256,4665,4665,4357,5255, & - 4357,5252,4357,5252,4357,5256,4357,4357,4697,5255,4697,5252 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_42 = (/ & - 4697,5256,4697,4697,4697,3948,5255,3948,5252,3948,5256,3948, & - 3948,5090,5255,5090,5255,5090,5255,5090,5252,5090,5253,5090, & - 5256,5090,5090,4058,5255,4058,5252,4058,5252,4058,5256,4058, & - 4058,4058,4500,5255,4500,5255,4500,5255,4500,5252,4500,5253, & - 4500,5256,4500,4500,4523,5255,4523,5255,4523,5255,4523,5252, & - 4523,5253,4523,5256,4523,4523,3777,3777,5250,3777,5250,3906, & - 3906,3906,5250,3906,5250,3912,5255,3912,5252,3912,5256,3912, & - 3941,5255,3941,5252,3941,5256,3941,4903,5255,4903,5252,4903, & - 5252,4903,5256,4903,4903,4903,4967,5255,4967,5252,4967,5256, & - 4967,4967,4967,4800,4800,5250,4800,5250,3298,3298,3298,5250, & - 3298,5250,3871,5255,3871,5252,3871,5256,3871,4251,5255,4251, & - 5252,4251,5252,4251,5256,4251,4251,4251,5088,5255,5088,5255, & - 5088,5255,5088,5252,5088,5253,5088,5256,5088,5088,4716,5255, & - 4716,5252,4716,5252,4716,5256,4716,4716,4716,602,602,5250, & - 3977,5255,3977,5252,3977,5256,3977,4713,5255,4713,5252,4713, & - 5252,4713,5256,4713,4713,4713,803,803,5250,3881,5255,3881, & - 5252,3881,5256,3881,4270,5255,4270,5252,4270,5256,4270,4712, & - 5255,4712,5252,4712,5252,4712,5256,4712,4712,4712,769,769, & - 5250,3919,5255,3919,5252,3919,5256,3919,4254,5255,4254,5252, & - 4254,5256,4254,4715,5255,4715,5252,4715,5252,4715,5256,4715, & - 4715,4715,794,794,5250,3916,5255,3916,5252,3916,5256,3916, & - 4238,5255,4238,5252,4238,5256,4238,4709,5255,4709,5252,4709, & - 5252,4709,5256,4709,4709,4709,609,609,5250,3880,5255,3880, & - 5252,3880,5256,3880,4360,5255,4360,5252,4360,5252,4360,5256, & - 4360,4360,4360, 6, 8,4284,5255,4284,5252,4284,5256,4284, & - 713,5250,713,1807,5250,1807,4053,5250,4053,2803,2803,2803, & - 5250,1127,5250,1127,3407,3407,4828,5251,4828,5252,4828,5253, & - 4828,5254,4828,4828,2089,5250,2089,768,1040,5250,233,5250, & - 2471,5250,451,5250,451,3146,5256,3146,5250,4067,5255,4067, & - 5252,4067,5256,4067,4195,5255,4195,5252,4195,5256,4195,4273 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_43 = (/ & - 5255,4273,5252,4273,5256,4273,1125,5250,1125,4163,5255,4163, & - 5252,4163,5256,4163,3740,5255,3740,5252,3740,5256,3740,3740, & - 3740,3685,5255,3685,5252,3685,5256,3685,3699,5255,3699,5252, & - 3699,5256,3699,3699,3699,3088,5256,3088,5250,4022,5255,4022, & - 5252,4022,5256,4022,4265,5255,4265,5252,4265,5256,4265,4217, & - 5255,4217,5252,4217,5256,4217,1429,5250,1429,4024,4024,3280, & - 5250,3280,3280,3290,5250,3290,2592,1602,5250,1602,1837,5250, & - 1837,5250,1837,2752,4490,5250,4490,1734,5250,1734,2454,5250, & - 2454,712,4929,5255,4929,5252,4929,5256,4929,4621,5251,4621, & - 5252,4621,5253,4621,5254,4621,4621,944,5250,944,1675,100, & - 5250,3209,5250,3209,3209,4328,4328,2504,5250,2504,4741,5251, & - 4741,5252,4741,5253,4741,5254,4741,2602,5250,2602,2602,2659, & - 1681,5250,1681,2152,5250,2152,800,3214,5250,3214,5250,3214, & - 605,2467,5250,2467,392,5250,838,5250,838,1727, 73,5250, & - 3163,5256,3163,5250,4006,5255,4006,5252,4006,5256,4006,4327, & - 5255,4327,5252,4327,5256,4327,3697,5255,3697,5252,3697,5256, & - 3697,3697,3697,4293,5255,4293,5252,4293,5256,4293,4291,5255, & - 4291,5252,4291,5256,4291,1243,5250,1243,3196,5250,3196,3196, & - 711,2482,5250,2482,2053,5250,2053,660,2920,5250,2920,5250, & - 2920,710,1953,5250,1953,340,5250,1020,5250,1020,1713, 41, & - 5250,1850,5250,1850,747,1854,5250,1854,1854,592,1443,5250, & - 1443,1606, 58,5250,2488,5250,3120,5256,3120,5250,4011,5255, & - 4011,5252,4011,5256,4011,3679,5255,3679,5252,3679,5256,3679, & - 3714,5255,3714,5252,3714,5256,3714,3714,4303,5255,4303,5252, & - 4303,5256,4303,4200,5255,4200,5252,4200,5256,4200,1152,5250, & - 1152,216,5250,3455,5250,3455,5250,3455,3455,3094,3094,1726, & - 5250,1726,4325,5250,4325,4325,3189,5256,3189,5250,4039,5255, & - 4039,5252,4039,5256,4039,4025,5255,4025,5252,4025,5256,4025, & - 3769,5255,3769,5252,3769,5256,3769,3769,4292,5255,4292,5252, & - 4292,5256,4292,4225,5255,4225,5252,4225,5256,4225,1421,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_44 = (/ & - 1421,3181,5256,3181,5250,4036,5255,4036,5252,4036,5256,4036, & - 4076,5255,4076,5252,4076,5256,4076,3675,5255,3675,5252,3675, & - 5256,3675,3675,3675,4246,5255,4246,5252,4246,5256,4246,4304, & - 5255,4304,5252,4304,5256,4304,1294,5250,1294,3453,5250,3453, & - 3453,1960,4199,5250,4199,2485,5250,2485,2485,1053,5250,1053, & - 3396,3396,1768,5250,1768,5250,1768,1898,5250,1898,792,1133, & - 5250,312,5250,4966,5255,4966,5255,4966,5252,4966,5253,4966, & - 5256,4966,891,5250,891,2897,4031,5255,4031,5252,4031,5256, & - 4031,3187,5256,3187,5250,3999,5255,3999,5252,3999,5256,3999, & - 4381,5255,4381,5252,4381,5256,4381,3711,5255,3711,5252,3711, & - 5256,3711,3711,3711,4237,5255,4237,5252,4237,5256,4237,4280, & - 5255,4280,5252,4280,5256,4280,1539,5250,1539,1224,5250,1224, & - 2492,4775,5256,4775,5250,4775,4775,4775,622,5250,622,1388, & - 5250,1388,3423,3423,2025,5250,2025,5250,2025,1861,5250,1861, & - 620,911,5250,485,5250,4792,5255,4792,5255,4792,5252,4792, & - 5253,4792,5256,4792,1170,5250,1170,2581,1840,5250,1840,773, & - 402,5250,3543,5256,3543,5250,3543,3178,5256,3178,5250,4021, & - 5255,4021,5252,4021,5256,4021,3738,5255,3738,5252,3738,5256, & - 3738,3983,5255,3983,5252,3983,5256,3983,3983,3983,4307,5255, & - 4307,5252,4307,5256,4307,4296,5255,4296,5252,4296,5256,4296, & - 822,5250,822,1088,5250,1088,2949,4815,5256,4815,5250,4815, & - 4815,4815,659,5250,659,1123,5250,1123,3380,3380,1949,5250, & - 1949,5250,1949,2446,5250,2446,716,1231,5250,356,5250,4864, & - 5255,4864,5255,4864,5252,4864,5253,4864,5256,4864,974,5250, & - 974,3028,4379,4379,3191,5256,3191,5250,4034,5255,4034,5252, & - 4034,5256,4034,4212,5255,4212,5252,4212,5256,4212,4193,5255, & - 4193,5252,4193,5256,4193,1361,5250,1361,2766,5250,2766,2766, & - 3221,5250,3221,1345,5250,1345,2967,263,5250,263,2262,5250, & - 2262,814,1252,5250,1252,1680, 46,5250,2417,5250,2417,584, & - 928,5250,928,1710, 63,5250,1129,5250,1129,1622, 38,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_45 = (/ & - 264,5250,2686,5250,2686,2686,3578,3578,1578,5250,1578,3137, & - 5256,3137,5250,4044,5255,4044,5252,4044,5256,4044,4323,5255, & - 4323,5252,4323,5256,4323,3771,5255,3771,5252,3771,5256,3771, & - 3771,4192,5255,4192,5252,4192,5256,4192,4317,5255,4317,5252, & - 4317,5256,4317,1003,5250,1003,483,5250,4149,5255,4149,5252, & - 4149,5256,4149,3143,5256,3143,5250,4040,5255,4040,5252,4040, & - 5256,4040,4153,5255,4153,5252,4153,5256,4153,3770,5255,3770, & - 5252,3770,5256,3770,3770,3770,4210,5255,4210,5252,4210,5256, & - 4210,4314,5255,4314,5252,4314,5256,4314,1017,5250,1017,3190, & - 5256,3190,5250,4061,5255,4061,5252,4061,5256,4061,3680,5255, & - 3680,5252,3680,5256,3680,3782,5255,3782,5252,3782,5256,3782, & - 3782,4312,5255,4312,5252,4312,5256,4312,4252,5255,4252,5252, & - 4252,5256,4252,844,5250,844,1092,5250,1092,3565,3565,4534, & - 5250,4534,4534,576,5250,576,3152,5256,3152,5250,4072,5255, & - 4072,5252,4072,5256,4072,4535,5255,4535,5252,4535,5256,4535, & - 3753,5255,3753,5252,3753,5256,3753,3753,4297,5255,4297,5252, & - 4297,5256,4297,4287,5255,4287,5252,4287,5256,4287,1450,5250, & - 1450,3723,3723,3005,5250,3005,3005,3249,5250,3249,1021,5250, & - 1021,2521,350,5250,350,2267,5250,2267,550,2923,5250,2923, & - 5250,2923,641,3434,5250,3434,513,5250,1530,5250,1530,1745, & - 39,5250,2353,5250,2353,3461,5253,4134,5255,4134,5252,4134, & - 5256,4134,3526,3526,5256,3526,5250,4209,5255,4209,5255,4209, & - 5252,4209,5253,4209,5256,4209,494,5250,494,3350,5250,3350, & - 3154,5250,3154,5250,3154,1684,2335,2335,5250,4208,5255,4208, & - 5255,4208,5252,4208,5253,4208,5256,4208,3470,3470,5256,3470, & - 5250,3501,5250,3501,5250,3501,3501,3240,5250,3240,2249,386, & - 386,4677,5251,4677,5252,4677,5253,4677,5254,4677,4677,4551, & - 5251,4551,5252,4551,5253,4551,5254,4551,4294,5250,4294,131, & - 4180,5255,4180,5252,4180,5256,4180,2138,5250,2616,2616,5250, & - 3204,3204,5250,2392,5250,2392,3443,5250,3443,3064, 48,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_46 = (/ & - 21,5250,5040,5251,5040,5252,5040,5253,5040,5254,5040,5040, & - 3625,5250,3625,5250,3625,5250,3625,4066,5250,4066,5250,1748, & - 3635,5250,3635,2101,5250,2101,5250,2590,5250,2590,5250,2590, & - 261,3454,3454,5256,3454,5250,3286,5250,3286,3286,3273,5250, & - 3273,1967, 67,4982,5255,4982,5252,4982,5256,4982,3449,5250, & - 3449,3449,1848,1242,5250,2554,2554,5250,3197,3197,5250,3201, & - 5250,3201,1955,3549,5250,3549,2109,2109,5250,4378,5250,4378, & - 5250,4378,2662, 62,5250,4247,5251,4247,5252,4247,5253,4247, & - 5254,4247,3485,5250,3485,5250,3485,3700,3700,302,5250,3550, & - 3550,3550,5250,3550,5250,1575,1575,5250,1981,1981,5250,3160, & - 3160,5250,3160,5250,1685,1685,5250,5167,5255,5167,5255,5167, & - 5255,5167,5252,5167,5253,5167,5167,3621,5250,3621,5250,3621, & - 5250,3621,2354,5250,2354,2770,2230,5250,2230,226,5250,5024, & - 5256,5024,5258,5024,5258,5024,5250,5024,5250,4613,5255,4613, & - 5255,4613,5252,4613,5253,4613,5256,4613,4614,5255,4614,5255, & - 4614,5252,4614,5252,4614,5256,4614,4614,4614,4211,5255,4211, & - 5252,4211,5256,4211,2976,5250,2976,5250,2976,3128,5250,2764, & - 5250,2764,1597,512,5250,229,5250,5105,5105,5105,5256,5105, & - 5250,4106,5255,4106,5252,4106,5256,4106,4348,5255,4348,5252, & - 4348,5252,4348,5256,4348,4348,4348, 77,5250,5079,5255,5079, & - 5255,5079,5255,5079,5252,5079,5253,5079,5256,5079,5079,4926, & - 5255,4926,5255,4926,5255,4926,5252,4926,5253,4926,5256,4926, & - 4926,4552,5255,4552,5252,4552,5256,4552,4768,5255,4768,5252, & - 4768,5256,4768,5214,5255,5214,5255,5214,5255,5214,5252,5214, & - 5253,5214,5256,5214,5214,3954,5255,3954,5252,3954,5256,3954, & - 3717,5255,3717,5252,3717,5256,3717,931,5250,931,2892,5250, & - 2892,450,366,5250,366,3905,5255,3905,5252,3905,5256,3905, & - 1353,5250,1353,2742,5250,2742,2452,354,5250,354,1608,1608, & - 1489,5250,1489,864,5250,864,3223,5250,3223,1437,5250,1437, & - 990,5250,990,2850,5250,2850,1383,5250,1383,146,1324,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_47 = (/ & - 1324,300,454,5250,454,919,5250,919,3307,5250,3307,2143, & - 5250,2143,138,1147,5250,1147,1311,5250,1572, 24,5250,1197, & - 5250,1197,3081,5250,3081,407,365,5250,365,562,5250,562, & - 1284,5250,1284,201,561,5250,303,5250,1492,5250,1492,1933, & - 5250,1933,2722,2722,3947,5256,3947,5250,3947,427,5250,4664, & - 5255,4664,5255,4664,5255,4664,5252,4664,5253,4664,5256,4664, & - 4664,1266,5250,1266,2943,5250,2943,2207, 79,5250,4545,5255, & - 4545,5252,4545,5252,4545,5256,4545,4545,1517,5250,1517,2962, & - 587,5250,4987,5255,4987,5252,4987,5256,4987,4987,4849,5255, & - 4849,5255,4849,5255,4849,5252,4849,5253,4849,5256,4849,4849, & - 5196,5255,5196,5252,5196,5252,5196,5256,5196,5196,5196,1371, & - 5250,1371,1835,5250,2997,556,5250,3840,5255,3840,5252,3840, & - 5256,3840,3840,4842,5256,4842,5250,4842, 27,3985,5255,3985, & - 5252,3985,5252,3985,5256,3985,3985,4197,5255,4197,5252,4197, & - 5252,4197,5256,4197,4197,1087,5250,1087,1047,5250,1047,2879, & - 5250,2879,1605,1605,457,5250,1325,5250,1325,2958,5250,2958, & - 2071,5250,2071,728,2273,5250,2273,219,5250,1447,5250,1447, & - 2947,5250,2947,1487,5250,1487,3335,1318,5250,1318,3390,3390, & - 1990,5250,1990,649,1995,5250,4145,5255,4145,5252,4145,5256, & - 4145,4145,4145,4135,5255,4135,5252,4135,5256,4135,4135,4135, & - 4824,5251,4824,5252,4824,5253,4824,5254,4824,4824,2407,5250, & - 2407,1151,5250,549,1384,5250,1973,5250,1973,721,1706,5250, & - 2439,5250,2439,703,1843,5250,1843,281,5250,1182,5250,1182, & - 2860,5250,2860,1950,5250,1950,1950,658,2119,5250,2119,1668, & - 5250,1668,1863,5250,1863,1863,585,2315,5250,2315,1687,5250, & - 1687,2737,5250,2737,2737,1769,1828,5250,1828,1619,5250,1619, & - 1523,5250,1523,2165,5250,2165,189,3242,5250,413,5250,1373, & - 5250,1373,726,1372,5250,440,5250,251,5250,900,5250,900, & - 2648,5250,2648,1624,1624,496,5250,1407,5250,1407,2685,5250, & - 2685,1900,5250,1900,724,1913,5250,1913,371,5250,949,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_48 = (/ & - 949,2079,5250,2079,159,462,5250,1502,5250,1502,2832,692, & - 5250,4738,5255,4738,5255,4738,5255,4738,5252,4738,5253,4738, & - 5256,4738,4738,4043,5255,4043,5252,4043,5252,4043,5256,4043, & - 4043,4043,4258,5251,4258,5252,4258,5253,4258,5254,4258,4176, & - 5255,4176,5252,4176,5256,4176,4176,4176,1183,5250,1183,2325, & - 5250,2746,127,5250,1286,5250,1286,1629,5250,1629,187,1628, & - 5250,248,5250,930,5250,930,970,5250,970,2239,5250,2239, & - 326, 87,5250,1862,5250,1862,673,2288,5250,5114,5255,5114, & - 5252,5114,5252,5114,5256,5114,5114,5114,2098,5250,2098,1334, & - 5250,730,1056,5250,2266,5250,2266,663,1738,5250,2319,2319, & - 5250,2678,2678,5250,2144,2144,5250,2677,2677,5250,5182,5182, & - 5256,5182,5250,4957,5255,4957,5255,4957,5255,4957,5252,4957, & - 5253,4957,5256,4957,4957,4015,5255,4015,5252,4015,5256,4015, & - 3992,5255,3992,5252,3992,5256,3992,4042,5255,4042,5252,4042, & - 5256,4042,258,5250,1475,1475,5250,2786,2786,5250,909,5250, & - 909,2865,3358,5250,3358,4795,5255,4795,5255,4795,5255,4795, & - 5252,4795,5253,4795,5256,4795,4795,5179,5255,5179,5255,5179, & - 5255,5179,5252,5179,5253,5179,5256,5179,5179,207,5250,1042, & - 1042,5250,2884,2884,5250,4662,5255,4662,5255,4662,5255,4662, & - 5252,4662,5253,4662,5256,4662,4662,1074,1074,5250,2885,2885, & - 5250,1204,1204,5250,2270,2270,5250,2589,590,590,5250,4866, & - 5255,4866,5255,4866,5255,4866,5252,4866,5253,4866,5256,4866, & - 4866,376,5250,1448,1448,5250,2843,2843,5250,2553,2553,5250, & - 2553,5250,2814,2814,5250,4979,5255,4979,5255,4979,5255,4979, & - 5252,4979,5253,4979,5256,4979,4979,4546,5255,4546,5252,4546, & - 5256,4546,4546,1490,1490,5250,1978,1978,5250,2646,2646,289, & - 5250,479,5250,1090,1090,5250,2846,2846,5250,2730,2730,2730, & - 5250,2730,5250,674,3057,3057,5250,1659,1659,5250,1327,1327, & - 5250,2844,2844,5250,240,5250,845,845,5250,2848,2848,5250, & - 1213,1213,5250,2256,2256,5250,3013,4279,4279,5256,4279,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_49 = (/ & - 554,554,5250,1323,1323,5250,2253,2253,5250,2982,651,651, & - 5250,3780,3780,5250,4642,5255,4642,5255,4642,5255,4642,5252, & - 4642,5253,4642,5256,4642,4642,449,5250,1291,1291,5250,3025, & - 3025,5250,1499,1499,5250,2514,2514,5250,2644,284,284,5250, & - 1191,1191,5250,1607,664,664,5250,2197,2197,5250,2426,2426, & - 2426,5250,1677,1637,1637,5250,456,5250,1547,1547,5250,3311, & - 3311,5250,1907,1907,5250,1907,5250,2419,2419,5250,1552,346, & - 5250,4501,4501,5256,4501,5250,329,5250,975,975,5250,2669, & - 2669,5250,519,5250,1477,1477,5250,2778,2778,5250,4573,5255, & - 4573,5252,4573,5252,4573,5256,4573,4573,4573,4566,5255,4566, & - 5252,4566,5256,4566,4566,4566,4584,5255,4584,5252,4584,5256, & - 4584,4584,4584,1937,1937,1937,5250,596,2016,2016,5250,534, & - 1145,1145,5250,2282,2282,5250,2697,3126,3126,5250,758,758, & - 5250,3528,3528,3528,5250,3528,5250,734,1826,1826,5250,1557, & - 1557,5250,4802,5255,4802,5252,4802,5252,4802,5256,4802,4802, & - 4309,5255,4309,5252,4309,5256,4309,4309,4811,5255,4811,5252, & - 4811,5256,4811,4811,4811,2095,2095,5250,571,2331,2331,5250, & - 2331,5250,1829,1829,5250,200,306,5250,4537,4537,5256,4537, & - 5250,280,5250,1196,1196,5250,2496,2496,5250,1136,1136,5250, & - 2185,2185,5250,3009,807,807,5250,3504,3504,5250,4369,5255, & - 4369,5252,4369,5256,4369,4369,4369,2316,2316,5250,539,1446, & - 1446,5250,2124,2124,5250,2642,3522,3522,5250,616,616,5250, & - 4349,5255,4349,5252,4349,5256,4349,4349,4349,2027,2027,5250, & - 791,1115,1115,5250,2760,967,967,5250,2245,2245,5250,2594, & - 3544,3544,5250,671,671,5250,4389,5255,4389,5252,4389,5256, & - 4389,4389,4389,2298,2298,5250,776,1122,1122,5250,2874,1526, & - 1526,5250,2330,2330,5250,2638,3493,3493,5250,804,804,5250, & - 4361,5255,4361,5252,4361,5256,4361,4361,4361,2411,2411,5250, & - 528,1398,1398,5250,2676,1543,1543,5250,2271,2271,5250,2562, & - 3548,3548,5250,762,762,5250,4850,5255,4850,5255,4850,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_50 = (/ & - 4850,5252,4850,5253,4850,5256,4850,4850,4355,5255,4355,5252, & - 4355,5256,4355,4355,4355,2205,2205,5250,574,1478,5250,1478, & - 3015,5250,3015,1998,408,5250,1947,5250,1947,777,4651,5256, & - 4651,5250,4651,331,5250,110,5250,5059,5255,5059,5252,5059, & - 5256,5059,5059,5059,4467,5255,4467,5252,4467,5256,4467,4271, & - 5255,4271,5252,4271,5256,4271,1427,5250,1427,979,5250,979, & - 2535,1105,5250,1105,2731,1943,5250,1943,535,491,5250,491, & - 130,490,5250,212,5250,2046,5250,2046,816,518,5250,518, & - 14,455,5250,372,5250,4458,5255,4458,5252,4458,5256,4458, & - 4306,5255,4306,5252,4306,5256,4306,1230,5250,1230,1096,5250, & - 1096,2536,1322,5250,1322,3001,3484,5256,3484,5250,3484,5018, & - 5256,5018,5250,5018,2107,5250,2107,693, 56,5250,3535,5250, & - 3535,4188,5255,4188,5252,4188,5256,4188,4415,5255,4415,5252, & - 4415,5256,4415,4298,5255,4298,5252,4298,5256,4298,978,5250, & - 978,2093,5250,2093,809,398,5250,398,120,397,5250,299, & - 5250,1104,5250,1104,2918,917,5250,917,2641,542,5250,542, & - 3914,5256,3914,5250,3914,4742,5255,4742,5252,4742,5256,4742, & - 3911,5256,3911,5250,3911,4904,5255,4904,5252,4904,5256,4904, & - 4904,4498,5255,4498,5252,4498,5256,4498,4305,5255,4305,5252, & - 4305,5256,4305,892,5250,892,1979,5250,1979,753,963,5250, & - 963, 82, 33,5250,1255,5250,1255,2668,1379,5250,1379,2963, & - 4101,5255,4101,5252,4101,5256,4101,3281,4506,5255,4506,5252, & - 4506,5256,4506,4204,5255,4204,5252,4204,5256,4204,1366,5250, & - 1366,2091,5250,2091,555,1497,5250,1497, 65,103,5250,1144, & - 5250,1144,2682,1190,5250,1190,2741,4464,5255,4464,5252,4464, & - 5256,4464,4262,5255,4262,5252,4262,5256,4262,1221,5250,1221, & - 2351,5250,2351,746,521,5250,521,116,318,5250,273,5250, & - 1253,5250,1253,2588,1512,5250,1512,2604,1928,5250,1928,1928, & - 3748,5256,3748,5250,3748,259,5250,3237,5250,3237,3237,2696, & - 5250,2696,1293,5250,1293,2758,4511,5255,4511,5252,4511,5256 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_51 = (/ & - 4511,4205,5255,4205,5252,4205,5256,4205,1091,5250,1091,1830, & - 5250,1830,744,324,5250,324, 97,323,5250,322,5250,1329, & - 5250,1329,3421,860,5250,860,3579,4502,5255,4502,5255,4502, & - 5252,4502,5253,4502,5256,4502,4233,5256,4233,5250,4233,3773, & - 5256,3773,5250,3773,448,5250,3467,5250,3467,3467,3012,5250, & - 3012,4425,5255,4425,5252,4425,5256,4425,4194,5255,4194,5252, & - 4194,5256,4194,1308,5250,1308,2294,5250,2294,743,1359,5250, & - 1359, 92,510,5250,509,5250,923,5250,923,3395,878,5250, & - 878,3597,4424,5255,4424,5255,4424,5252,4424,5253,4424,5256, & - 4424,4227,5256,4227,5250,4227,3775,5256,3775,5250,3775,244, & - 5250,3463,5250,3463,3463,2969,5250,2969,1845,5256,1845,5250, & - 4655,5255,4655,5252,4655,5256,4655,4285,5255,4285,5252,4285, & - 5256,4285,1061,5250,1061,1051,5250,1051,3016,1532,5250,1532, & - 2586,3556,5250,3556,4726,5255,4726,5252,4726,5256,4726,4643, & - 5255,4643,5252,4643,5256,4643,4276,5255,4276,5252,4276,5256, & - 4276,950,5250,950,2342,5250,2342,629,1062,5250,1062, 57, & - 90,5250,1459,5250,1459,2557,1187,5250,1187,2551,4182,5255, & - 4182,5252,4182,5256,4182,877,5250,877,2819,4463,5255,4463, & - 5252,4463,5256,4463,4289,5255,4289,5252,4289,5256,4289,1452, & - 5250,1452,2368,5250,2368,597,459,5250,459,107,373,5250, & - 267,5250,962,5250,962,2566,1358,5250,1358,3004,4434,5255, & - 4434,5252,4434,5256,4434,4245,5255,4245,5252,4245,5256,4245, & - 857,5250,857,2389,5250,2389,798,1435,5250,1435, 78, 93, & - 5250,1399,5250,1399,2818,1524,5250,1524,2599,4455,5255,4455, & - 5252,4455,5256,4455,4232,5255,4232,5252,4232,5256,4232,1453, & - 5250,1453,1783,5250,1783,780,1412,5250,1412, 16,106,5250, & - 1101,5250,1101,3065,1148,5250,1148,2575,3896,5256,3896,5250, & - 3896,4750,5255,4750,5252,4750,5256,4750,387,5250,997,5250, & - 997,2905,2320,2320,5250,2498,2498,5250,4460,5255,4460,5255, & - 4460,5255,4460,5252,4460,5253,4460,5256,4460,4460,2105,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_52 = (/ & - 2105,1184,5250,1184,4548,5255,4548,5255,4548,5252,4548,5253, & - 4548,5256,4548,3250,3250,3250,5250,4129,5255,4129,5252,4129, & - 5256,4129,5047,5251,5047,5252,5047,5253,5047,5254,5047,5172, & - 5255,5172,5255,5172,5252,5172,5253,5172,5256,5172,3261,5250, & - 3261,3261,2085,2382,5250,2382,1625,1625,5250,1603,1603,5250, & - 1991,1991,5250,2243,5250,2243,4539,5255,4539,5255,4539,5252, & - 4539,5253,4539,5256,4539,3618,5250,3618,3618,3618,1891,4229, & - 5255,4229,5255,4229,5252,4229,5253,4229,5256,4229,4228,5255, & - 4228,5255,4228,5252,4228,5253,4228,5256,4228,2491,5250,2491, & - 5250,2491,5075,5255,5075,5255,5075,5255,5075,5252,5075,5253, & - 5075,5256,5075,5256,5075,5075,1651,5250,1651,4658,5255,4658, & - 5255,4658,5255,4658,5252,4658,5253,4658,5256,4658,4658,4518, & - 5255,4518,5255,4518,5255,4518,5252,4518,5253,4518,5256,4518, & - 4518,123,5250,4657,5255,4657,5255,4657,5255,4657,5252,4657, & - 5253,4657,5256,4657,4657,1425,5250,2570,2570,5250,2570,5250, & - 2606,2606,5250,217,5250,217,5250,4599,5255,4599,5252,4599, & - 5252,4599,5256,4599,4599,3864,5255,3864,5252,3864,5256,3864, & - 4816,5255,4816,5255,4816,5255,4816,5252,4816,5253,4816,5256, & - 4816,4816,701,701,3837,5255,3837,5252,3837,5256,3837,3837, & - 3837,899,5250,899,2663,5250,2663,2810,5250,2810,5250,2810, & - 2664,5250,2664,1593,473,5250,908,5250,908,2827,3972,5256, & - 3972,5250,3972,5171,5255,5171,5255,5171,5252,5171,5253,5171, & - 5256,5171,3259,3259,3259,5250,1884,1884,5250,1884,5250,1321, & - 5250,2972,3861,3861,5256,3861,5250,348,5250,4631,5255,4631, & - 5255,4631,5252,4631,5253,4631,5256,4631,434,5250,1041,1041, & - 5250,3275,3275,5250,2381,5250,2381,1893,5250,1893,3408,5250, & - 3408,1762,5250,1762,729,1901,5250,1901,786,3247,3247,5250, & - 1319,1319,5250,2804,2804,5250,2360,5250,2360,672,992,5250, & - 992, 80,4493,5256,4493,5250,4493,4189,5255,4189,5252,4189, & - 5252,4189,5256,4189,4189,2423,5250,2423,541,3668,5255,3668 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_53 = (/ & - 5252,3668,5252,3668,5256,3668,3668,3668,5021,5255,5021,5255, & - 5021,5255,5021,5252,5021,5253,5021,5256,5021,5021,5086,5256, & - 5086,5250,5086,3761,5255,3761,5252,3761,5256,3761,4580,5255, & - 4580,5252,4580,5252,4580,5256,4580,4580,4290,5255,4290,5252, & - 4290,5256,4290,5159,5256,5159,5250,5159,5250,5159,4119,5255, & - 4119,5252,4119,5252,4119,5256,4119,4119,3710,5255,3710,5252, & - 3710,5256,3710,3710,3710,4166,5255,4166,5252,4166,5252,4166, & - 5256,4166,4166,4484,5255,4484,5255,4484,5255,4484,5252,4484, & - 5253,4484,5256,4484,4484,4077,5255,4077,5252,4077,5256,4077, & - 4077,4077,1442,5250,1442,859,5250,859,4900,5255,4900,5252, & - 4900,5252,4900,5256,4900,4900,4900,2636,5250,2636,3706,5255, & - 3706,5252,3706,5256,3706,3706,3706,1093,5250,1093,2661,5250, & - 2661,443,442,5250,442,1351,5250,1351,1689,1676,5250,1676, & - 1424,5250,1424,2340,5250,2340,2533,5250,2533,1260,5250,1260, & - 2458,5250,2458,182,2377,5250,821,5250,821,1071,5250,1071, & - 2495,311,5250,311,5017,5255,5017,5255,5017,5255,5017,5252, & - 5017,5253,5017,5256,5017,5017,5084,5255,5084,5252,5084,5252, & - 5084,5256,5084,5084,5084,4236,5255,4236,5252,4236,5256,4236, & - 4236,1012,5250,1012,2378,5250,2512,317,5250,317,1237,5250, & - 1237,2155,5250,2155,180,5095,5256,5095,5256,5095,5258,5095, & - 5258,5095,5250,5095,5250,5095,3962,5255,3962,5252,3962,5252, & - 3962,5256,3962,3962,3962,4638,5255,4638,5255,4638,5255,4638, & - 5252,4638,5253,4638,5256,4638,4638,3839,5255,3839,5252,3839, & - 5256,3839,5006,5255,5006,5255,5006,5255,5006,5252,5006,5253, & - 5006,5256,5006,5006,3629,5250,3629,2305,5250,2305,2305,679, & - 2265,5250,2265,1586,5250,1586,2022,5250,2022,2022,619,2141, & - 5250,2141,1615,5250,1615,5131,5255,5131,5255,5131,5255,5131, & - 5252,5131,5253,5131,5256,5131,5131,5052,5255,5052,5255,5052, & - 5255,5052,5252,5052,5253,5052,5256,5052,5052,5247,5255,5247, & - 5252,5247,5256,5247,5247,4679,5255,4679,5255,4679,5255,4679 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_54 = (/ & - 5252,4679,5253,4679,5256,4679,4679,4431,5255,4431,5255,4431, & - 5255,4431,5252,4431,5253,4431,5256,4431,4431,2909,5250,3890, & - 5255,3890,5252,3890,5252,3890,5256,3890,3890,3890,507,5250, & - 1454,5250,1454,2781,5250,2781,830,5250,830,1657,5250,1657, & - 149,1656,5250,467,5250,1868,5250,1868,618,2154,5250,2154, & - 377,5250,4764,5255,4764,5252,4764,5252,4764,5256,4764,4764, & - 3497,5250,3497,4363,5255,4363,5252,4363,5252,4363,5256,4363, & - 4363,4363,1195,5250,1195,2250,5250,2250,183,452,5250,958, & - 5250,2868,5250,2868,2546,5250,2546,1279,5250,1279, 44,2797, & - 5250,2797,2797,2145,1397,5250,1397, 96,301,5250,1471,1471, & - 5250,2886,2886,5250,420,5250,1055,1055,5250,2978,2978,5250, & - 1440,1440,5250,945,945,5250,2842,2842,5250,3336,3336,3336, & - 5250,282,5250,983,983,5250,2822,2822,5250,4778,5255,4778, & - 5252,4778,5252,4778,5256,4778,4778,4778,3513,3513,5256,3513, & - 5250,4549,5255,4549,5252,4549,5256,4549,4984,5255,4984,5255, & - 4984,5252,4984,5253,4984,5256,4984,805,805,5250,230,5250, & - 988,988,5250,2787,2787,5250,1441,1441,5250,1963,1963,5250, & - 2826,636,636,5250,3537,3537,5250,1908,1908,1908,5250,778, & - 3124,3124,5250,1548,1548,5250,3078,3078,3078,5250,564,1832, & - 1832,5250,1690,1690,5250,4419,5255,4419,5255,4419,5252,4419, & - 5253,4419,5256,4419,4235,5255,4235,5252,4235,5256,4235,2981, & - 2981,2981,5250,2999,2999,5250,3000,1633,1633,5250,2084,2084, & - 2084,5250,1723,1722,1722,5250,2625,2625,2625,5250,2625,5250, & - 638,1632,1632,5250,2910,2910,2910,5250,4874,5255,4874,5255, & - 4874,5252,4874,5253,4874,5256,4874,4890,5255,4890,5252,4890, & - 5252,4890,5256,4890,4890,4890,3086,3086,5250,1839,1839,1839, & - 5250,745,1571,1571,5250,4521,5255,4521,5255,4521,5252,4521, & - 5253,4521,5256,4521,3151,3151,5250,2052,2052,2052,5250,722, & - 1707,1707,5250,4430,5255,4430,5255,4430,5252,4430,5253,4430, & - 5256,4430,3183,3183,5250,2059,2059,2059,5250,698,1744,1744 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_55 = (/ & - 5250,4443,5255,4443,5255,4443,5252,4443,5253,4443,5256,4443, & - 4710,4710,5256,4710,5250,3184,3184,5250,2121,2121,2121,5250, & - 570,1740,1740,5250,4450,5255,4450,5255,4450,5252,4450,5253, & - 4450,5256,4450,3185,3185,5250,474,5250,1114,1114,5250,2726, & - 5250,2726,2221,2221,2221,5250,575,1674,1674,5250,4417,5255, & - 4417,5255,4417,5252,4417,5253,4417,5256,4417,1192,5250,1192, & - 141,246,5250,1483,5250,934,5250,934,3370,1508,5250,1508, & - 2577,3478,5250,3571,5250,3571,4308,5255,4308,5255,4308,5252, & - 4308,5253,4308,5256,4308,3783,5250,3783,4221,5255,4221,5255, & - 4221,5252,4221,5253,4221,5256,4221,1376,5250,1376,3375,835, & - 5250,835,3036,4507,5250,4472,5255,4472,5255,4472,5252,4472, & - 5253,4472,5256,4472,1117,5250,1117,2739,977,5250,977,3402, & - 1420,5250,1420,2935,3729,5250,3729,4241,5255,4241,5255,4241, & - 5252,4241,5253,4241,5256,4241,4202,5255,4202,5255,4202,5252, & - 4202,5253,4202,5256,4202,4770,5255,4770,5255,4770,5255,4770, & - 5252,4770,5253,4770,5256,4770,4770,2769,5250,2769,2769,2430, & - 4808,5255,4808,5255,4808,5255,4808,5252,4808,5253,4808,5256, & - 4808,4808,994,5250,994,170, 53,5250,1342,5250,1342,3371, & - 913,5250,913,2986,3742,5250,3742,4253,5255,4253,5255,4253, & - 5252,4253,5253,4253,5256,4253,1426,5250,1426,3400,1472,5250, & - 1472,3347,1278,5250,1278,2733,3595,5250,3595,4013,5255,4013, & - 5255,4013,5252,4013,5253,4013,5256,4013,1169,5250,1169,3329, & - 825,5250,825,2903,3732,5250,3732,4046,5255,4046,5255,4046, & - 5252,4046,5253,4046,5256,4046,3541,5250,4404,5255,4404,5255, & - 4404,5252,4404,5253,4404,5256,4404,1309,5250,1309,3574,1504, & - 5250,1504,3361,3673,5250,3673,4536,5255,4536,5255,4536,5252, & - 4536,5253,4536,5256,4536,2548,5250,2228,5250,2228,2538,5250, & - 2538,1118,5250,1118,3596,1025,5250,1025,3414,3787,5250,3787, & - 4218,5255,4218,5255,4218,5252,4218,5253,4218,5256,4218,2854, & - 5250,2120,5250,2120,2929,5250,2929,3937,5255,3937,5252,3937 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_56 = (/ & - 5256,3937,3746,5255,3746,5252,3746,5256,3746,3746,869,5250, & - 869,3363,1166,5250,1166,2736,4331,5250,1455,5250,1455,3406, & - 888,5250,888,3381,1273,5250,1273,2952,3593,5250,3593,4324, & - 5255,4324,5255,4324,5252,4324,5253,4324,5256,4324,1393,5250, & - 1393,2768,1045,5250,1045,3362,1029,5250,1029,2598,3709,5250, & - 3709,4154,5255,4154,5255,4154,5252,4154,5253,4154,5256,4154, & - 1223,5250,1223,3417,972,5250,972,2995,3968,5250,3968,4441, & - 5255,4441,5255,4441,5252,4441,5253,4441,5256,4441,1030,5250, & - 1030,3388,1423,5250,1423,2937,3681,5250,3681,4299,5255,4299, & - 5255,4299,5252,4299,5253,4299,5256,4299,4977,5255,4977,5255, & - 4977,5255,4977,5252,4977,5253,4977,5256,4977,4977,1215,5250, & - 1215,2820,4052,5255,4052,5252,4052,5256,4052,1457,5250,2429, & - 2429,5250,2705,2705,5250,1249,1249,5250,2655,2655,5250,2617, & - 5250,2617,781,3558,5250,3558,4826,5255,4826,5255,4826,5252, & - 4826,5253,4826,5256,4826,4519,5255,4519,5255,4519,5255,4519, & - 5252,4519,5253,4519,5256,4519,4519,4753,5255,4753,5255,4753, & - 5255,4753,5252,4753,5253,4753,5256,4753,4753,4739,5255,4739, & - 5255,4739,5255,4739,5252,4739,5253,4739,5256,4739,4739,1467, & - 1467,5250,2823,2823,5250,1816,5250,1816,3042,5250,3042,2329, & - 5250,2329,3045,5250,3045,5005,5255,5005,5255,5005,5255,5005, & - 5252,5005,5253,5005,5256,5005,5005,5003,5255,5003,5255,5003, & - 5255,5003,5252,5003,5253,5003,5256,5003,5003,1229,5250,3272, & - 5250,3272,5250,3272,2735,5250,2735,3998,5255,3998,5255,3998, & - 5252,3998,5253,3998,5256,3998,839,839,5250,1518,1518,5250, & - 1939,1939,5250,893,5250,1804,1804,5250,2925,2925,5250,4772, & - 5255,4772,5255,4772,5255,4772,5252,4772,5253,4772,5256,4772, & - 4772,890,5250,1874,1874,5250,3236,3236,5250,3500,5250,3500, & - 3555,5250,3555,3532,5250,3532,4565,5255,4565,5252,4565,5256, & - 4565,4123,5255,4123,5252,4123,5256,4123,3620,5250,3620,5250, & - 3620,957,5250,3490,3490,305,5250,2289,5250,2289,645,1433 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_57 = (/ & - 5250,3276,5250,3276,5250,3276,3324,5250,3324,4250,5251,4250, & - 5252,4250,5253,4250,5254,4250,3216,5250,3216,3216,3215,4366, & - 5250,4366,2568,5250,2568,4222,5255,4222,5255,4222,5255,4222, & - 5252,4222,5253,4222,5256,4222,4222,1201,1201,5250,2622,2622, & - 5250,4230,5255,4230,5255,4230,5252,4230,5253,4230,5256,4230, & - 4191,5255,4191,5252,4191,5256,4191,954,5250,954,3053,5250, & - 3053,5004,5255,5004,5255,5004,5255,5004,5252,5004,5253,5004, & - 5256,5004,5004,5111,5255,5111,5255,5111,5252,5111,5253,5111, & - 5256,5111,4806,5255,4806,5255,4806,5252,4806,5253,4806,5256, & - 4806,4969,5255,4969,5255,4969,5252,4969,5253,4969,5256,4969, & - 1496,5250,1496,2812,5250,2812,1984,526,5250,526,3760,5255, & - 3760,5252,3760,5256,3760,1225,5250,1225,2034,5250,2034,2035, & - 767,5250,767,1277,5250,1277,3858,5255,3858,5252,3858,5252, & - 3858,5256,3858,3858,3858,265,5250,2658,5250,2658,4268,5255, & - 4268,5252,4268,5256,4268,1203,5250,1203, 49,1214,5250,1214, & - 2701,5250,2701,1852,209,5250,209,2151,5250,2151,632,4660, & - 5255,4660,5255,4660,5255,4660,5252,4660,5253,4660,5256,4660, & - 4660,5019,5255,5019,5252,5019,5256,5019,5019,5019,1367,5250, & - 1367,2629,5250,2629,2457,493,5250,493,508,5250,508, 69, & - 472,5250,472,359,5250,1390,5250,1390,2759,5250,2759,1803, & - 400,5250,400,210,5250,1540,5250,1540,2515,5250,2515,594, & - 5250,594, 88,593,5250,347,5250,1428,5250,1428,1823,5250, & - 1823,3591,3591,799,5250,799,1089,5250,1089,125,502,5250, & - 3845,5255,3845,5252,3845,5252,3845,5256,3845,3845,3862,5256, & - 3862,5250,3862,4150,5255,4150,5252,4150,5256,4150,4150,4150, & - 5073,5255,5073,5255,5073,5252,5073,5253,5073,5256,5073,1394, & - 5250,1394,993,5250,993,2708,5250,2708,880,5250,880,1996, & - 5250,1996,158,121,5250,5085,5256,5085,5250,5085,2386,5250, & - 2386,2386,1631,1630,5250,1630,3949,5255,3949,5252,3949,5256, & - 3949,3949, 20,3950,5255,3950,5252,3950,5252,3950,5256,3950 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_58 = (/ & - 3950,4059,5255,4059,5252,4059,5252,4059,5256,4059,4059,4059, & - 1135,5250,1135,2352,5250,2352,162,310,5250,1247,5250,1247, & - 3703,5255,3703,5252,3703,5252,3703,5256,3703,3703,3703,241, & - 5250,2597,5250,2597,887,5250,887,3338,492,5250,1317,5250, & - 1317,2651,5250,2651,4538,5255,4538,5252,4538,5256,4538,5044, & - 5255,5044,5255,5044,5255,5044,5252,5044,5253,5044,5256,5044, & - 5044,364,5250,1479,5250,1479,3686,5255,3686,5252,3686,5252, & - 3686,5256,3686,3686,3686,3011,5250,3011,1739,1739,489,5250, & - 1509,5250,1509,2704,5250,2704,871,5250,871,206, 30,5250, & - 275,5250,951,5250,951,3789,5255,3789,5252,3789,5252,3789, & - 5256,3789,3789,3789,2666,5250,2666,215,5250,1233,5250,1233, & - 3764,5255,3764,5252,3764,5252,3764,5256,3764,3764,3764,2613, & - 5250,2613,4385,5255,4385,5252,4385,5252,4385,5256,4385,4385, & - 927,5250,927,2908,5250,2908,1961,511,5250,4748,5255,4748, & - 5252,4748,5252,4748,5256,4748,4748,4863,5255,4863,5255,4863, & - 5255,4863,5252,4863,5253,4863,5256,4863,4863,1245,5250,1245, & - 2408,5250,2408,315, 59,5250,4734,5255,4734,5252,4734,5256, & - 4734,4734,5104,5255,5104,5252,5104,5252,5104,5256,5104,5104, & - 1444,5250,1444,1752,5250,1752,3425,3425,256,5250,3951,5255, & - 3951,5252,3951,5256,3951,3951,4648,5255,4648,5252,4648,5256, & - 4648,4510,5255,4510,5252,4510,5256,4510,1779,1779,5250,1779, & - 5250,1482,5250,3079,285,5250,3938,3938,5256,3938,5250,4468, & - 5255,4468,5255,4468,5252,4468,5253,4468,5256,4468,2115,2115, & - 5250,820,1173,1173,5250,2987,2987,5250,4274,5255,4274,5252, & - 4274,5256,4274,4138,5255,4138,5252,4138,5256,4138,946,946, & - 5250,2718,2718,5250,2723,2723,2723,5250,2203,4384,5255,4384, & - 5252,4384,5256,4384,1234,1234,5250,2877,2877,5250,995,995, & - 5250,1026,5250,2946,385,5250,3391,3391,5250,4435,5255,4435, & - 5252,4435,5256,4435,850,850,5250,3007,3007,5250,4461,5255, & - 4461,5252,4461,5256,4461,1244,1244,5250,3070,3070,5250,4421 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_59 = (/ & - 5255,4421,5252,4421,5256,4421,1418,1418,5250,3218,3218,5250, & - 4532,5255,4532,5252,4532,5256,4532,1226,1226,5250,3306,3306, & - 5250,4429,5255,4429,5252,4429,5256,4429,1198,1198,5250,3282, & - 3282,5250,142,4267,5255,4267,5255,4267,5252,4267,5253,4267, & - 5256,4267,2911,5250,2911,2725,5250,2725,4489,5255,4489,5255, & - 4489,5252,4489,5253,4489,5256,4489,2991,5250,2991,3040,5250, & - 3040, 85,1248,5250,1248,3075,5250,3075,4329,5255,4329,5255, & - 4329,5252,4329,5253,4329,5256,4329,2055,5250,2055,2683,5250, & - 2683,2248,5250,2248,2643,5250,2643,499,5250,1460,5250,1460, & - 3315,5250,3315,287,5250,894,5250,894,2552,5250,2552,4449, & - 5250,4449,2443,5250,2443,2863,5250,2863,4026,5255,4026,5255, & - 4026,5252,4026,5253,4026,5256,4026,2838,5250,2838,2631,5250, & - 2631,4102,5255,4102,5255,4102,5252,4102,5253,4102,5256,4102, & - 2541,5250,2541,2765,5250,2765,422,2171,5250,2171,3063,5250, & - 3063,4620,5255,4620,5255,4620,5252,4620,5253,4620,5256,4620, & - 2654,5250,2654,2794,5250,2794,245,4744,5255,4744,5255,4744, & - 5252,4744,5253,4744,5256,4744,2862,5250,2862,2505,5250,2505, & - 23,1301,5250,1301,2919,1335,5250,1335,204, 72,5250,2349, & - 5250,2349,2615,5250,2615,4175,5250,4175,4175,4731,5255,4731, & - 5255,4731,5252,4731,5253,4731,5256,4731,2064,5250,2064,3019, & - 5250,3019,4203,5255,4203,5255,4203,5252,4203,5253,4203,5256, & - 4203,2263,5250,2263,2866,5250,2866,4445,5255,4445,5255,4445, & - 5252,4445,5253,4445,5256,4445,2754,5250,2754,3052,5250,3052, & - 255,5250,901,5250,901,2852,5250,2852,952,5250,952,4184, & - 626,5250,626,4831,5255,4831,5255,4831,5252,4831,5253,4831, & - 5256,4831,4751,5255,4751,5252,4751,5256,4751,3211,5250,3211, & - 3224,5250,3224, 10,5250,1006,5250,1006,2003,5250,2003,1222, & - 5250,2183,5250,2183,2928,5250,2928,1494,5250,1970,5250,1970, & - 2907,5250,2907,3477,5250,3477,3563,5250,3563,3392,5250,3392, & - 907,5250,907,2957,5250,2957,2580,2580,5250,2870,2870,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_60 = (/ & - 2635,2635,5250,3267,5250,3267,3267,1787,3217,5250,3217,3217, & - 1892,2345,5250,2345,2966,5250,2966,3601,5250,3601,2486,5250, & - 2486,272,5250,1208,5250,1208,2517,5250,2517,2116,2116,5250, & - 2784,2784,5250,1360,5250,1360,2989,3233,5250,1320,5250,1320, & - 3008,5250,3008,886,5250,886,2600,5250,2600,3976,5255,3976, & - 5252,3976,5256,3976,1275,5250,1275,2867,5250,2867,986,5250, & - 986,3984,5255,3984,5252,3984,5256,3984,2977,5250,2977,4340, & - 5255,4340,5252,4340,5256,4340,4340,4340,1164,5250,1164,4190, & - 4190,879,5250,879,2328,5250,2328,193,4224,5256,4224,5250, & - 4224,399,5250,1888,5250,1888,582,3838,5255,3838,5252,3838, & - 5256,3838,4104,5250,4104,4597,5255,4597,5252,4597,5252,4597, & - 5256,4597,4597,4597,4560,5255,4560,5252,4560,5256,4560,933, & - 5250,933,1018,5250,1018,2527,5250,2527,2380,5250,2380,697, & - 3348,5250,3348,1934,5250,1934,5250,1934,4410,5255,4410,5252, & - 4410,5256,4410,4410,4410,4624,5255,4624,5255,4624,5255,4624, & - 5252,4624,5253,4624,5256,4624,4624,4278,5256,4278,5250,4278, & - 4350,5255,4350,5252,4350,5256,4350,4350,4350,4485,5255,4485, & - 5255,4485,5255,4485,5252,4485,5253,4485,5256,4485,4485,4142, & - 5255,4142,5252,4142,5256,4142,4142,4142,1929,5250,1929,942, & - 5250,942,2532,5250,2532,2056,418,5250,418,4659,5255,4659, & - 5255,4659,5255,4659,5252,4659,5253,4659,5256,4659,4418,5255, & - 4418,5252,4418,5256,4418,4418,4418,2017,5250,2017,2017,553, & - 1643,5250,1731,5250,1731,1350,5250,1350,4371,5255,4371,5252, & - 4371,5256,4371,3436,5250,3436,4439,5255,4439,5255,4439,5252, & - 4439,5253,4439,5256,4439,4752,5255,4752,5255,4752,5255,4752, & - 5252,4752,5253,4752,5256,4752,4752,4019,5255,4019,5252,4019, & - 5252,4019,5256,4019,4019,4019,984,5250,984,2750,662,5250, & - 4242,5255,4242,5252,4242,5256,4242,4242,1272,5250,1272,2007, & - 5250,2561,793,5250,1126,5250,1126,2072,5250,2072,2073,5189, & - 5256,5189,5256,5189,5258,5189,5258,5189,5250,5189,5250,5189 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_61 = (/ & - 465,5250,4098,5255,4098,5252,4098,5256,4098,4098,4098,1070, & - 5250,1070,2063,5250,2063,168,3270,5250,3270,478,5250,2062, & - 5250,2062,704,1617,1617,515,5250,1511,5250,1511,2688,5250, & - 2688,1119,5250,1119,1551,5250,1551,174,1550,5250,257,5250, & - 4652,5255,4652,5255,4652,5255,4652,5252,4652,5253,4652,5256, & - 4652,4652,4825,5255,4825,5252,4825,5252,4825,5256,4825,4825, & - 4825,1004,5250,1004,2157,5250,2157,151,3213,5250,3213,409, & - 5250,1149,5250,1149,1591,5250,1591,190,1590,5250,266,5250, & - 1801,5250,1801,2524,5250,2524,1614,813,5250,1331,5250,1331, & - 2195,5250,2195,211,108,5250,378,5250,1480,5250,1480,3722, & - 5255,3722,5252,3722,5252,3722,5256,3722,3722,3722,2829,5250, & - 2829,3420,5250,3420,4172,5255,4172,5252,4172,5252,4172,5256, & - 4172,4172,4172,965,5250,965,1620,118,5250,883,5250,883, & - 2621,5250,2621,2293, 99,5250,1333,5250,1333,113,213,5250, & - 2975,5250,2975,2975,2210,902,5250,902,2724,4207,5255,4207, & - 5255,4207,5252,4207,5253,4207,5256,4207,1236,1236,5250,2845, & - 2845,5250,1759,1759,1759,5250,545,2930,2930,2930,5250,2201, & - 3274,3274,3274,5250,2024,3899,5255,3899,5252,3899,5256,3899, & - 1268,1268,5250,2960,1137,1137,5250,3073,960,960,5250,2751, & - 1271,1271,5250,2853,1338,1338,5250,3058,2763,5250,2763,2529, & - 5250,2529,2414,5250,2414,2859,5250,2859,2039,5250,2039,2970, & - 5250,2970,3546,5256,3546,5250,3546,2652,5250,2652,2998,5250, & - 2998,1982,5250,1982,2901,5250,2901, 75,5250,1879,5250,1879, & - 2721,5250,2721, 15,5250,2026,5250,2026,3061,5250,3061,122, & - 5250,4214,5255,4214,5255,4214,5252,4214,5253,4214,5256,4214, & - 2082,5250,2082,2700,5250,2700,2899,5250,2899,3014,5250,3014, & - 2388,5250,2388,2833,5250,2833,2336,5250,2336,2507,5250,2507, & - 3257,5250,3257,1392,5250,1392,3071,1639,5250,1639,4462,5256, & - 4462,5250,4462,4462,2348,5250,2348,795,2217,5250,2217,617, & - 4902,5256,4902,5250,4902,1932,5250,1932,714,583,5250,583 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_62 = (/ & - 3694,5255,3694,5252,3694,5256,3694,3694,4496,5255,4496,5255, & - 4496,5255,4496,5252,4496,5253,4496,5256,4496,4496,4295,5255, & - 4295,5252,4295,5256,4295,1985,5250,1985,775,1414,5250,1414, & - 2332,5250,2332,2953,633,5250,633,2404,5250,2404,581,4867, & - 5255,4867,5255,4867,5255,4867,5252,4867,5253,4867,5256,4867, & - 4867,1094,5250,1094,1732,3309,5250,3309,3309,789,5250,789, & - 1189,5250,1189,849,5250,849,4131,5255,4131,5252,4131,5256, & - 4131,4131,4131,2564,5250,2564,1312,5250,1312,3913,3913,696, & - 5250,696,1163,5250,1163,1402,5250,1402,3715,5255,3715,5252, & - 3715,5252,3715,5256,3715,3715,3715,2984,5250,2984,1139,5250, & - 1139,1579,3557,5250,3557,657,5250,657,3750,5255,3750,5252, & - 3750,5252,3750,5256,3750,3750,3750,823,5250,823,1348,5250, & - 1348,2523,5250,2523,2018,5250,2018,2018,739,1618,5250,1618, & - 3337,5250,3337,4644,5255,4644,5252,4644,5256,4644,3006,5250, & - 3006,687,1925,5250,1925,842,5250,842,2584,5250,2584,375, & - 5250,1008,5250,1008,2772,5250,2772,948,5250,948,1941,5250, & - 1941,1942,268,5250,5177,5256,5177,5250,5177,1887,5250,1887, & - 1887,1691,1561,5250,1561,4955,5255,4955,5255,4955,5255,4955, & - 5252,4955,5253,4955,5256,4955,4955,3895,5255,3895,5252,3895, & - 5256,3895,3895,112,3974,5255,3974,5252,3974,5252,3974,5256, & - 3974,3974,1181,5250,1181,2890,1756,5250,1756,430,5250,4315, & - 5255,4315,5252,4315,5256,4315,4315,4315,3908,5255,3908,5252, & - 3908,5252,3908,5256,3908,3908,3908,4681,5255,4681,5255,4681, & - 5255,4681,5252,4681,5253,4681,5256,4681,4681,4442,5255,4442, & - 5252,4442,5252,4442,5256,4442,4442,4442,388,5250,1336,5250, & - 1336,3698,5255,3698,5252,3698,5252,3698,5256,3698,3698,3698, & - 3313,5250,3313,882,5250,882,2311,5250,2311,3957,3957,3374, & - 5250,3374,699,5250,699,4319,5255,4319,5252,4319,5252,4319, & - 5256,4319,4319,4672,5255,4672,5252,4672,5252,4672,5256,4672, & - 4672,4672,3397,5250,3397,4130,5255,4130,5252,4130,5256,4130 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_63 = (/ & - 4130,4130,3373,5250,3373,4162,5255,4162,5252,4162,5252,4162, & - 5256,4162,4162,4162,1413,5250,1413,1649,5250,1649,191,1648, & - 5250,410,5250,955,5250,955,2673,5250,2673,1986,441,5250, & - 5245,5255,5245,5255,5245,5255,5245,5252,5245,5253,5245,5256, & - 5245,5245,3431,5250,3431,4147,5255,4147,5252,4147,5256,4147, & - 4147,4147,2965,5250,3902,5255,3902,5252,3902,5252,3902,5256, & - 3902,3902,3902,3612,5250,3612,2251,2251,5250,2800,2800,5250, & - 2556,2556,2556,5250,2279,4423,5255,4423,5252,4423,5256,4423, & - 4423,4482,5255,4482,5252,4482,5256,4482,4482,4426,5255,4426, & - 5252,4426,5256,4426,4426,2159,5250,2159,2608,5250,2608,4759, & - 5255,4759,5255,4759,5252,4759,5253,4759,5256,4759,4875,5255, & - 4875,5252,4875,5256,4875,3719,5255,3719,5252,3719,5256,3719, & - 935,5250,935,169, 40,5250,1209,5250,1209,351,5250,3327, & - 5250,3327,1761,5250,1761, 25,3846,5255,3846,5252,3846,5256, & - 3846,906,5250,906,1541,5250,1541,2660,5250,2660,4409,5255, & - 4409,5255,4409,5252,4409,5253,4409,5256,4409,4447,5255,4447, & - 5252,4447,5256,4447,1958,5250,1958,774,3365,5250,3365,279, & - 5250,3248,5256,3248,5250,3248,1264,5250,1264,2032,5250,2032, & - 2033,5072,5256,5072,5256,5072,5250,5072,5250,5072,5072,772, & - 5250,772,1528,5250,1528,1811,5250,1811,1812,527,5250,527, & - 2445,5250,2445,731,4486,5255,4486,5252,4486,5256,4486,4636, & - 5255,4636,5255,4636,5255,4636,5252,4636,5253,4636,5256,4636, & - 4636,5113,5250,5113,5113,294,5250,916,5250,916,3010,5250, & - 3010,971,5250,971,2916,543,5250,4625,5255,4625,5252,4625, & - 5256,4625,4625,1381,5250,1381,1766,5250,2591,650,5250,5187, & - 5256,5187,5256,5187,5258,5187,5258,5187,5250,5187,5250,5027, & - 5255,5027,5255,5027,5255,5027,5252,5027,5253,5027,5256,5027, & - 5027,2312,5250,2312,625,1493,5250,1493,247,5250,1463,5250, & - 1463,2224,5250,2224,203,481,5250,1250,5250,1250,3743,5255, & - 3743,5252,3743,5252,3743,5256,3743,3743,3743,360,5250,3323 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_64 = (/ & - 5250,3323,1546,5250,1546,2136,5250,2136,3613,3613,1660,5250, & - 382,5250,872,5250,872,1972,5250,1972,178,2773,5250,2773, & - 313,5250,5130,5255,5130,5252,5130,5252,5130,5256,5130,5130, & - 4572,5255,4572,5252,4572,5256,4572,4572,4572,4839,5255,4839, & - 5255,4839,5255,4839,5252,4839,5253,4839,5256,4839,4839,1155, & - 5250,1155,2327,5250,2327,297,134,5250,1162,5250,1162,2164, & - 5250,2164,3737,3737,3736,5250,415,5250,4812,5255,4812,5255, & - 4812,5255,4812,5252,4812,5253,4812,5256,4812,4812,2440,5250, & - 2440,817,406,5250,1060,5250,1060,1813,5250,1813,1814,394, & - 5250,4196,5255,4196,5252,4196,5252,4196,5256,4196,4196,4196, & - 367,5250,1199,5250,1199,3841,5255,3841,5252,3841,5252,3841, & - 5256,3841,3841,3841,2813,5250,2813,4673,5255,4673,5255,4673, & - 5255,4673,5252,4673,5253,4673,5256,4673,4673,1871,5250,1871, & - 810,411,5250,4137,5255,4137,5252,4137,5252,4137,5256,4137, & - 4137,1295,5250,1295,1930,5250,1930,1931,218,5250,973,5250, & - 973,163,101,5250,1357,5250,1357,164, 98,5250,1464,5250, & - 1464,152, 26,5250,1085,5250,1085,2510,5250,2510,1784,5250, & - 1784,655,989,5250,989, 76,4157,5255,4157,5252,4157,5252, & - 4157,5256,4157,4157,4497,5255,4497,5252,4497,5256,4497,863, & - 5250,863,2694,1146,5250,1146,2573,5250,2573,1522,5250,1522, & - 2667,4854,5255,4854,5255,4854,5255,4854,5252,4854,5253,4854, & - 5256,4854,4854,4653,5255,4653,5255,4653,5255,4653,5252,4653, & - 5253,4653,5256,4653,4653,4818,5255,4818,5255,4818,5255,4818, & - 5252,4818,5253,4818,5256,4818,4818,4459,5255,4459,5252,4459, & - 5256,4459,4459,4459,4960,5255,4960,5252,4960,5256,4960,4960, & - 1044,5250,1044,3067,506,5250,936,5250,936,2777,5250,2777, & - 3495,5250,3495,3495,3495,3611,3611,2475,5250,2475,2475,4117, & - 5255,4117,5252,4117,5256,4117,4117,3849,5256,3849,5250, 61, & - 3848,5255,3848,5252,3848,5252,3848,5256,3848,3848,252,5250, & - 1107,5250,1107,4342,5255,4342,5252,4342,5252,4342,5256,4342 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_65 = (/ & - 4342,4342,2637,5250,2637,4120,5255,4120,5252,4120,5256,4120, & - 4120,4120,1339,5250,1339,1883,5250,1883,157,2979,5250,2979, & - 476,5250,4216,5255,4216,5252,4216,5252,4216,5256,4216,4216, & - 1411,5250,1411,2802,5250,2802,1818,547,5250,547,1485,5250, & - 1485,2749,2809,5250,2809,1875,5250,1875,470,5250,1507,5250, & - 1507,4234,5255,4234,5252,4234,5256,4234,4234,3029,5250,3029, & - 2719,5250,3855,5255,3855,5252,3855,5252,3855,5256,3855,3855, & - 3855,2895,5250,2895,1238,5250,2139,5250,2139,2941,5250,2941, & - 1519,5250,1519,2275,5250,2275,3424,3424,2938,5250,320,5250, & - 1328,5250,1328,2444,5250,2444,173,4978,5256,4978,5250,4978, & - 334,5250,856,5250,1920,5250,1920,2571,5250,2571,2214,5250, & - 2214,2942,5250,2942,1724,754,5250,4220,5255,4220,5255,4220, & - 5252,4220,5253,4220,5256,4220,1263,5250,1263,3447,5250,3447, & - 1989,520,5250,520,2111,5250,2111,644,4362,5256,4362,5250, & - 4362,4362,3355,5250,3355,1344,5250,1344,998,5250,998,4346, & - 5255,4346,5252,4346,5256,4346,4346,4346,2756,5250,2756,827, & - 5250,827,1408,5250,1408,2980,5250,2980,953,5250,953,1022, & - 5250,1022,3293,5250,3293,1130,5250,1130,1652,3639,5250,3639, & - 725,5250,725,1757,5250,1757,741,1527,5250,1527,2578,530, & - 5250,5054,5255,5054,5255,5054,5255,5054,5252,5054,5253,5054, & - 5256,5054,5054,4779,5255,4779,5252,4779,5256,4779,4779,1046, & - 5250,1046,1912,5250,2931,690,5250,1439,5250,1439,1786,5250, & - 1786,3430,3430,3642,5250,3642,390,5250,1019,5250,1019,2894, & - 2209,5250,2209,482,5250,4226,5255,4226,5252,4226,5256,4226, & - 4226,4226,826,5250,826,2257,5250,2257,290, 83,5250,4136, & - 5255,4136,5252,4136,5256,4136,4136,4136,4115,5255,4115,5252, & - 4115,5256,4115,414,5250,414,760, 60,5250,1077,5250,1077, & - 2303,5250,2303,2304,357,5250,4525,5255,4525,5255,4525,5252, & - 4525,5253,4525,5256,4525,4477,5255,4477,5252,4477,5256,4477, & - 4820,5255,4820,5252,4820,5256,4820,4820,4820,2142,5250,2142 /) - INTEGER, PARAMETER, DIMENSION(284) :: ICOL_JVRP_66 = (/ & - 2530,5250,2530,3874,5255,3874,5252,3874,5256,3874,3724,5255, & - 3724,5252,3724,5256,3724,4520,5255,4520,5255,4520,5252,4520, & - 5253,4520,5256,4520,4465,5255,4465,5252,4465,5256,4465,1538, & - 5250,1538,3041,559,5250,559,4853,5255,4853,5255,4853,5255, & - 4853,5252,4853,5253,4853,5256,4853,4853,433,5250,1347,5250, & - 1347,4116,5255,4116,5252,4116,5256,4116,4116,4116,2703,5250, & - 2703,3480,5250,3480,3480,3480,3615,3615,2483,5250,2483,2483, & - 4343,5255,4343,5252,4343,5256,4343,4343,1890,5250,1890,537, & - 1257,5250,1257,368,5250,2856,5250,3882,5255,3882,5252,3882, & - 5252,3882,5256,3882,3882,3882,1793,5250,1793,802,1678,5250, & - 1678,858,5250,858,3062,1154,5250,1154,2567,5250,2567,2153, & - 5250,2153,5250,2153,643,2300,5250,2300,695,2680,5250,2680, & - 500,5250,1544,1544,5250,3410,2450,5250,2450,733,1219,5250, & - 1219,2729,5250,2729,1116,5250,1116,2607,3960,5256,3960,5250, & - 3960,903,5250,903,824,5250,824,2864,5250,2864,2437,5250, & - 2437,2437,544,1926,5250,1926,1926,648,567,5250,567,1505, & - 5250,1505,2855,5250,2855,2226,296,5250,3958,5250,3958,3633, & - 5256,3633,5250,3633,4686,5255,4686,5255,4686,5252,4686,5253, & - 4686,5256,4686,4687,5255,4687,5252,4687,5256,4687,4687,4687, & - 4456,5255,4456,5255,4456,5252,4456,5253,4456,5256,4456,4503, & - 5255,4503,5252,4503,5256,4503,1474,5250,1474,2779,5250,2779, & - 1956,5250,1956,5250,1956,115,352,5250,3604,5250,3604,1461, & - 5250,1461,2619,5250,2619,940,5250,940,2968,4543,5255,4543, & - 5252,4543,5256,4543,866,5250,866,2788 /) - INTEGER, PARAMETER, DIMENSION(24044) :: ICOL_JVRP = (/& - ICOL_JVRP_0, ICOL_JVRP_1, ICOL_JVRP_2, ICOL_JVRP_3, ICOL_JVRP_4, & - ICOL_JVRP_5, ICOL_JVRP_6, ICOL_JVRP_7, ICOL_JVRP_8, ICOL_JVRP_9, & - ICOL_JVRP_10, ICOL_JVRP_11, ICOL_JVRP_12, ICOL_JVRP_13, ICOL_JVRP_14, & - ICOL_JVRP_15, ICOL_JVRP_16, ICOL_JVRP_17, ICOL_JVRP_18, ICOL_JVRP_19, & - ICOL_JVRP_20, ICOL_JVRP_21, ICOL_JVRP_22, ICOL_JVRP_23, ICOL_JVRP_24, & - ICOL_JVRP_25, ICOL_JVRP_26, ICOL_JVRP_27, ICOL_JVRP_28, ICOL_JVRP_29, & - ICOL_JVRP_30, ICOL_JVRP_31, ICOL_JVRP_32, ICOL_JVRP_33, ICOL_JVRP_34, & - ICOL_JVRP_35, ICOL_JVRP_36, ICOL_JVRP_37, ICOL_JVRP_38, ICOL_JVRP_39, & - ICOL_JVRP_40, ICOL_JVRP_41, ICOL_JVRP_42, ICOL_JVRP_43, ICOL_JVRP_44, & - ICOL_JVRP_45, ICOL_JVRP_46, ICOL_JVRP_47, ICOL_JVRP_48, ICOL_JVRP_49, & - ICOL_JVRP_50, ICOL_JVRP_51, ICOL_JVRP_52, ICOL_JVRP_53, ICOL_JVRP_54, & - ICOL_JVRP_55, ICOL_JVRP_56, ICOL_JVRP_57, ICOL_JVRP_58, ICOL_JVRP_59, & - ICOL_JVRP_60, ICOL_JVRP_61, ICOL_JVRP_62, ICOL_JVRP_63, ICOL_JVRP_64, & - ICOL_JVRP_65, ICOL_JVRP_66 /) - - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_0 = (/ & - 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 8, 8, & - 9, 9, 10, 11, 11, 12, 12, 13, 13, 14, 15, 15, & - 16, 16, 17, 17, 18, 18, 19, 19, 20, 20, 21, 22, & - 22, 23, 23, 24, 24, 25, 25, 26, 26, 27, 27, 28, & - 28, 29, 29, 30, 30, 31, 31, 32, 32, 33, 34, 35, & - 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, & - 47, 48, 48, 49, 49, 50, 50, 51, 51, 52, 52, 53, & - 53, 54, 54, 55, 55, 56, 56, 57, 57, 58, 58, 59, & - 59, 60, 60, 61, 61, 62, 62, 63, 63, 64, 64, 65, & - 65, 66, 66, 67, 67, 68, 68, 69, 69, 70, 70, 71, & - 71, 72, 72, 73, 73, 74, 74, 75, 75, 76, 76, 77, & - 77, 78, 78, 79, 79, 80, 80, 81, 81, 82, 82, 83, & - 83, 84, 84, 85, 85, 86, 87, 87, 88, 88, 89, 89, & - 90, 90, 91, 91, 92, 92, 93, 93, 94, 94, 95, 95, & - 96, 97, 98, 98, 99, 99,100,101,101,102,102,103, & - 103,104,104,105,105,106,107,107,108,108,109,109, & - 110,111,112,112,113,113,114,114,115,115,116,117, & - 117,118,118,119,119,120,121,121,122,122,123,123, & - 124,124,125,126,127,128,128,129,129,130,131,132, & - 132,133,133,134,134,135,135,136,136,137,137,138, & - 138,139,139,140,140,141,141,142,142,143,143,144, & - 144,145,145,146,147,147,148,148,149,149,150,150, & - 151,151,152,152,153,153,154,154,155,155,156,156, & - 157,157,158,158,159,159,160,160,161,161,162,162, & - 163,163,164,164,165,165,166,166,167,167,168,168, & - 169,169,170,170,171,171,172,172,173,173,174,174, & - 175,175,176,176,177,177,178,178,179,179,180,180, & - 181,181,182,182,183,183,184,184,185,185,186,186, & - 187,187,188,188,189,189,190,190,191,191,192,192, & - 193,193,194,194,195,195,196,196,197,197,198,198 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_1 = (/ & - 199,199,200,200,201,201,202,202,203,203,204,204, & - 205,205,206,206,207,207,208,208,209,209,210,210, & - 211,211,212,212,213,213,214,214,215,215,216,216, & - 217,217,218,218,219,219,220,220,221,221,222,222, & - 223,223,224,224,225,225,226,226,227,227,228,228, & - 229,229,230,230,231,231,232,232,233,233,234,234, & - 235,235,236,236,237,237,238,238,239,239,240,240, & - 241,241,242,242,243,243,244,244,245,245,246,246, & - 247,247,248,248,249,249,250,250,251,251,252,252, & - 253,253,254,254,255,255,256,256,257,257,258,258, & - 259,259,260,260,261,261,262,262,263,263,264,264, & - 265,265,266,266,267,267,268,268,269,269,270,270, & - 271,271,272,272,273,273,274,274,275,275,276,276, & - 277,277,278,278,279,279,280,280,281,281,282,282, & - 283,283,284,284,285,285,286,286,287,287,288,288, & - 289,289,290,290,291,291,292,292,293,293,294,294, & - 295,295,296,296,297,297,298,298,299,299,300,300, & - 301,301,302,302,303,303,304,304,305,305,306,306, & - 307,307,308,308,309,309,310,310,311,311,312,312, & - 313,313,314,314,315,315,316,316,317,317,318,318, & - 319,319,320,320,321,321,322,322,323,323,324,324, & - 325,325,326,326,327,327,328,328,329,329,330,330, & - 331,331,332,332,333,333,334,334,335,335,336,336, & - 337,337,338,338,339,339,340,340,341,341,342,342, & - 343,343,344,344,345,345,346,346,347,347,348,348, & - 349,349,350,350,351,351,352,352,353,353,354,354, & - 355,355,356,356,357,357,358,358,359,359,360,360, & - 361,361,362,362,363,363,364,364,365,365,366,366, & - 367,367,368,368,369,369,370,370,371,371,372,372, & - 373,373,374,374,375,375,376,376,377,377,378,378 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_2 = (/ & - 379,379,380,380,381,381,382,382,383,383,384,384, & - 385,385,386,386,387,387,388,388,389,389,390,390, & - 391,391,392,392,393,393,394,394,395,395,396,397, & - 398,398,399,399,400,400,401,401,402,402,403,403, & - 404,404,405,405,406,406,407,407,408,408,409,409, & - 410,410,411,411,412,412,413,413,414,414,415,415, & - 416,416,417,417,418,418,419,419,420,420,421,421, & - 422,422,423,423,424,424,425,426,426,427,427,428, & - 428,429,430,430,431,431,432,433,433,434,434,435, & - 436,437,437,438,438,439,439,440,440,441,441,442, & - 443,443,444,444,445,445,446,446,447,448,448,449, & - 449,450,451,452,452,453,453,454,455,456,456,457, & - 457,458,458,459,459,460,460,461,461,462,462,463, & - 463,464,464,465,465,466,466,467,467,468,468,469, & - 469,470,470,471,471,472,472,473,473,474,474,475, & - 475,476,476,477,477,478,478,479,479,480,480,481, & - 481,482,482,483,483,484,485,485,486,486,487,487, & - 488,488,489,490,491,492,492,493,493,494,494,495, & - 495,496,497,498,499,499,500,500,501,502,503,504, & - 504,505,505,506,506,507,507,508,508,509,509,510, & - 511,512,513,513,514,514,515,515,516,516,517,518, & - 519,520,520,521,521,522,522,523,523,524,525,526, & - 527,527,528,528,529,529,530,530,531,532,533,534, & - 534,535,535,536,536,537,537,538,539,540,540,541, & - 541,542,542,543,543,544,545,546,547,547,548,548, & - 549,549,550,550,551,552,553,554,555,555,556,556, & - 557,557,558,558,559,560,561,562,562,563,563,564, & - 564,565,565,566,567,568,569,570,571,571,572,572, & - 573,573,574,574,575,575,576,576,577,578,579,580, & - 580,581,581,582,582,583,583,584,585,586,586,587 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_3 = (/ & - 587,588,588,589,589,590,590,591,591,592,592,593, & - 594,595,595,596,596,597,597,598,598,599,600,601, & - 602,602,603,603,604,604,605,605,606,607,608,609, & - 609,610,610,611,611,612,612,613,614,615,616,616, & - 617,617,618,618,619,619,620,621,622,623,623,624, & - 624,625,625,626,626,627,628,629,630,630,631,631, & - 632,632,633,633,634,635,636,636,637,637,638,638, & - 639,639,640,641,642,643,643,644,644,645,645,646, & - 647,648,649,649,650,650,651,651,652,652,653,654, & - 655,656,656,657,657,658,658,659,660,661,662,662, & - 663,663,664,664,665,665,666,666,667,667,668,669, & - 670,670,671,671,672,672,673,674,674,675,676,676, & - 677,677,678,679,679,680,680,681,681,682,683,684, & - 685,685,686,686,687,687,688,689,690,691,692,693, & - 694,695,695,696,697,698,699,700,700,701,701,702, & - 702,703,703,704,705,706,707,707,708,708,709,709, & - 710,710,711,712,713,714,714,715,715,716,716,717, & - 717,718,718,719,719,720,721,722,723,723,724,724, & - 725,725,726,727,728,729,729,730,730,731,731,732, & - 732,733,733,734,734,735,736,737,737,738,738,739, & - 739,740,740,741,742,743,744,744,745,745,746,746, & - 747,747,748,748,749,749,750,751,752,752,753,753, & - 754,754,755,755,756,757,758,759,759,760,760,761, & - 761,762,762,763,764,765,766,766,767,767,768,768, & - 769,769,770,770,771,771,772,773,774,774,775,775, & - 776,776,777,777,778,779,780,781,781,782,782,783, & - 783,784,785,786,786,787,787,788,788,789,789,790, & - 791,792,793,793,794,794,795,795,796,796,797,797, & - 798,798,799,800,801,801,802,802,803,803,804,804, & - 805,806,807,808,808,809,809,810,810,811,811,812 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_4 = (/ & - 813,814,815,815,816,816,817,817,818,818,819,819, & - 820,820,821,822,823,823,824,824,825,825,826,827, & - 828,829,830,830,831,831,832,832,833,833,834,834, & - 835,836,837,838,839,840,841,841,842,842,843,844, & - 845,846,847,848,849,849,850,850,851,851,852,852, & - 853,853,854,854,855,856,857,858,859,860,860,861, & - 861,862,863,864,865,865,866,866,867,867,868,868, & - 869,870,871,872,872,873,873,874,874,875,875,876, & - 877,878,879,879,880,880,881,881,882,882,883,883, & - 884,884,885,886,887,887,888,888,889,889,890,891, & - 892,893,893,894,894,895,895,896,897,898,899,900, & - 901,902,903,903,904,904,905,905,906,906,907,908, & - 909,910,910,911,911,912,912,913,914,915,916,916, & - 917,917,918,918,919,919,920,921,922,923,923,924, & - 924,925,925,926,926,927,928,929,930,930,931,931, & - 932,932,933,933,934,935,936,936,937,937,938,938, & - 939,939,940,941,942,943,943,944,944,945,945,946, & - 946,947,948,949,950,950,951,951,952,952,953,953, & - 954,955,956,957,957,958,958,959,959,960,960,961, & - 962,963,964,964,965,965,966,966,967,967,968,969, & - 970,971,971,972,972,973,973,974,974,975,976,977, & - 977,978,978,979,979,980,980,981,982,983,984,984, & - 985,985,986,986,987,987,988,989,990,991,991,992, & - 992,993,993,994,994,995,996,997,998,998,999,999, & - 1000,1000,1001,1001,1002,1003,1004,1005,1005,1006,1006,1007, & - 1007,1008,1008,1009,1010,1011,1012,1012,1013,1013,1014,1014, & - 1015,1015,1016,1017,1018,1019,1019,1020,1020,1021,1021,1022, & - 1022,1023,1024,1025,1026,1026,1027,1027,1028,1028,1029,1029, & - 1030,1031,1032,1032,1033,1033,1034,1034,1035,1035,1036,1037, & - 1038,1039,1039,1040,1040,1041,1041,1042,1042,1043,1044,1045 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_5 = (/ & - 1046,1046,1047,1047,1048,1048,1049,1049,1050,1051,1052,1052, & - 1053,1053,1054,1054,1055,1055,1056,1057,1058,1059,1059,1060, & - 1060,1061,1061,1062,1062,1063,1064,1065,1066,1066,1067,1067, & - 1068,1068,1069,1069,1070,1071,1072,1073,1073,1074,1074,1075, & - 1075,1076,1076,1077,1078,1079,1079,1080,1080,1081,1081,1082, & - 1082,1083,1084,1085,1086,1086,1087,1087,1088,1088,1089,1089, & - 1090,1091,1092,1093,1093,1094,1094,1095,1095,1096,1096,1097, & - 1098,1099,1100,1100,1101,1101,1102,1102,1103,1103,1104,1105, & - 1106,1106,1107,1107,1108,1108,1109,1109,1110,1111,1112,1113, & - 1113,1114,1114,1115,1115,1116,1116,1117,1118,1119,1119,1120, & - 1120,1121,1121,1122,1122,1123,1124,1125,1126,1126,1127,1127, & - 1128,1128,1129,1129,1130,1131,1132,1133,1133,1134,1134,1135, & - 1135,1136,1136,1137,1138,1139,1140,1140,1141,1141,1142,1142, & - 1143,1143,1144,1145,1146,1147,1147,1148,1148,1149,1149,1150, & - 1150,1151,1152,1153,1154,1154,1155,1155,1156,1156,1157,1157, & - 1158,1159,1160,1161,1161,1162,1162,1163,1163,1164,1165,1166, & - 1167,1168,1169,1170,1170,1171,1171,1172,1172,1173,1174,1175, & - 1176,1176,1177,1177,1178,1178,1179,1180,1181,1182,1183,1184, & - 1185,1186,1186,1187,1187,1188,1188,1189,1190,1191,1192,1192, & - 1193,1193,1194,1194,1195,1196,1197,1198,1199,1200,1201,1202, & - 1202,1203,1203,1204,1204,1205,1205,1206,1207,1208,1209,1209, & - 1210,1210,1211,1211,1212,1213,1214,1215,1215,1216,1216,1217, & - 1217,1218,1219,1220,1220,1221,1221,1222,1222,1223,1224,1225, & - 1226,1227,1228,1229,1230,1230,1231,1231,1232,1232,1233,1234, & - 1235,1236,1236,1237,1237,1238,1238,1239,1240,1241,1242,1243, & - 1244,1245,1246,1246,1247,1247,1248,1248,1249,1249,1250,1251, & - 1252,1253,1253,1254,1254,1255,1255,1256,1256,1257,1258,1259, & - 1260,1260,1261,1261,1262,1262,1263,1264,1265,1266,1266,1267, & - 1267,1268,1268,1269,1270,1271,1272,1273,1274,1275,1276,1276, & - 1277,1277,1278,1278,1279,1279,1280,1281,1282,1283,1283,1284 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_6 = (/ & - 1284,1285,1285,1286,1287,1288,1289,1289,1290,1290,1291,1291, & - 1292,1293,1294,1295,1296,1296,1297,1297,1298,1298,1299,1300, & - 1301,1302,1302,1303,1303,1304,1304,1305,1306,1307,1308,1309, & - 1310,1311,1312,1312,1313,1313,1314,1314,1315,1315,1316,1317, & - 1318,1319,1319,1320,1320,1321,1321,1322,1323,1324,1325,1325, & - 1326,1326,1327,1327,1328,1329,1330,1331,1332,1333,1334,1334, & - 1335,1335,1336,1336,1337,1338,1339,1340,1340,1341,1341,1342, & - 1342,1343,1344,1345,1346,1347,1348,1349,1350,1350,1351,1351, & - 1352,1352,1353,1353,1354,1355,1356,1357,1357,1358,1358,1359, & - 1359,1360,1360,1361,1362,1363,1364,1364,1365,1365,1366,1366, & - 1367,1368,1369,1370,1370,1371,1371,1372,1372,1373,1374,1375, & - 1376,1377,1378,1379,1380,1380,1381,1381,1382,1382,1383,1383, & - 1384,1385,1386,1387,1387,1388,1388,1389,1389,1390,1390,1391, & - 1392,1393,1394,1394,1395,1395,1396,1396,1397,1398,1399,1400, & - 1400,1401,1401,1402,1402,1403,1403,1404,1405,1406,1406,1407, & - 1407,1408,1408,1409,1409,1410,1410,1411,1412,1413,1414,1414, & - 1415,1415,1416,1416,1417,1417,1418,1419,1420,1420,1421,1421, & - 1422,1422,1423,1423,1424,1424,1425,1425,1426,1426,1427,1427, & - 1428,1428,1429,1430,1431,1432,1432,1433,1433,1434,1434,1435, & - 1435,1436,1436,1437,1437,1438,1438,1439,1439,1440,1440,1441, & - 1441,1442,1443,1444,1445,1445,1446,1446,1447,1447,1448,1448, & - 1449,1450,1451,1451,1452,1452,1453,1453,1454,1454,1455,1456, & - 1457,1458,1458,1459,1459,1460,1460,1461,1461,1462,1463,1464, & - 1464,1465,1465,1466,1466,1467,1467,1468,1469,1470,1470,1471, & - 1471,1472,1472,1473,1473,1474,1474,1475,1475,1476,1476,1477, & - 1477,1478,1478,1479,1479,1480,1481,1482,1483,1483,1484,1484, & - 1485,1485,1486,1486,1487,1488,1489,1490,1490,1491,1491,1492, & - 1492,1493,1493,1494,1495,1496,1496,1497,1497,1498,1498,1499, & - 1499,1500,1500,1501,1501,1502,1502,1503,1503,1504,1504,1505, & - 1505,1506,1507,1508,1509,1509,1510,1510,1511,1511,1512,1512 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_7 = (/ & - 1513,1514,1515,1515,1516,1516,1517,1517,1518,1518,1519,1520, & - 1521,1521,1522,1522,1523,1523,1524,1524,1525,1525,1526,1526, & - 1527,1527,1528,1528,1529,1529,1530,1530,1531,1532,1533,1534, & - 1534,1535,1535,1536,1536,1537,1537,1538,1538,1539,1539,1540, & - 1540,1541,1541,1542,1542,1543,1543,1544,1545,1546,1547,1547, & - 1548,1548,1549,1549,1550,1550,1551,1552,1553,1553,1554,1554, & - 1555,1555,1556,1556,1557,1558,1559,1560,1560,1561,1561,1562, & - 1562,1563,1563,1564,1564,1565,1565,1566,1566,1567,1567,1568, & - 1568,1569,1569,1570,1571,1572,1573,1573,1574,1574,1575,1575, & - 1576,1576,1577,1578,1579,1579,1580,1580,1581,1581,1582,1582, & - 1583,1584,1585,1585,1586,1586,1587,1587,1588,1588,1589,1589, & - 1590,1590,1591,1591,1592,1592,1593,1593,1594,1594,1595,1596, & - 1597,1598,1598,1599,1599,1600,1600,1601,1601,1602,1603,1604, & - 1604,1605,1605,1606,1606,1607,1607,1608,1609,1610,1611,1611, & - 1612,1612,1613,1613,1614,1614,1615,1615,1616,1616,1617,1617, & - 1618,1618,1619,1619,1620,1620,1621,1622,1623,1624,1624,1625, & - 1625,1626,1627,1628,1628,1629,1629,1630,1630,1631,1631,1632, & - 1633,1634,1635,1635,1636,1636,1637,1637,1638,1638,1639,1640, & - 1641,1641,1642,1642,1643,1643,1644,1644,1645,1645,1646,1646, & - 1647,1647,1648,1648,1649,1649,1650,1650,1651,1652,1653,1653, & - 1654,1654,1655,1655,1656,1656,1657,1658,1659,1660,1660,1661, & - 1661,1662,1662,1663,1663,1664,1665,1666,1667,1667,1668,1668, & - 1669,1669,1670,1670,1671,1671,1672,1672,1673,1673,1674,1674, & - 1675,1676,1677,1677,1678,1678,1679,1679,1680,1680,1681,1682, & - 1683,1684,1684,1685,1685,1686,1686,1687,1687,1688,1689,1690, & - 1690,1691,1691,1692,1692,1693,1693,1694,1695,1696,1696,1697, & - 1697,1698,1698,1699,1699,1700,1700,1701,1701,1702,1702,1703, & - 1703,1704,1704,1705,1705,1706,1707,1708,1709,1709,1710,1710, & - 1711,1711,1712,1712,1713,1714,1715,1715,1716,1716,1717,1717, & - 1718,1718,1719,1719,1720,1720,1721,1721,1722,1722,1723,1723 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_8 = (/ & - 1724,1724,1725,1726,1727,1727,1728,1728,1729,1729,1730,1730, & - 1731,1732,1733,1733,1734,1734,1735,1735,1736,1736,1737,1737, & - 1738,1738,1739,1739,1740,1740,1741,1741,1742,1742,1743,1744, & - 1745,1746,1746,1747,1747,1748,1748,1749,1749,1750,1751,1752, & - 1753,1753,1754,1754,1755,1755,1756,1756,1757,1758,1759,1759, & - 1760,1760,1761,1761,1762,1762,1763,1763,1764,1764,1765,1765, & - 1766,1766,1767,1768,1769,1770,1770,1771,1771,1772,1772,1773, & - 1773,1774,1774,1775,1775,1776,1776,1777,1777,1778,1779,1780, & - 1781,1781,1782,1782,1783,1783,1784,1784,1785,1786,1787,1787, & - 1788,1788,1789,1789,1790,1791,1792,1793,1794,1795,1795,1796, & - 1796,1797,1797,1798,1799,1799,1800,1800,1801,1801,1802,1802, & - 1803,1803,1804,1804,1805,1806,1807,1807,1808,1808,1809,1809, & - 1810,1811,1811,1812,1812,1813,1813,1814,1815,1816,1817,1817, & - 1818,1818,1819,1819,1820,1820,1821,1822,1823,1824,1825,1826, & - 1827,1828,1829,1830,1831,1831,1832,1832,1833,1833,1834,1834, & - 1835,1836,1837,1838,1838,1839,1839,1840,1840,1841,1841,1842, & - 1843,1844,1845,1845,1846,1846,1847,1847,1848,1848,1849,1850, & - 1851,1852,1852,1853,1853,1854,1854,1855,1855,1856,1857,1858, & - 1859,1860,1861,1862,1863,1864,1864,1865,1865,1866,1866,1867, & - 1867,1868,1869,1870,1871,1872,1873,1874,1875,1876,1877,1878, & - 1879,1880,1880,1881,1881,1882,1882,1883,1883,1884,1885,1886, & - 1887,1887,1888,1888,1889,1889,1890,1890,1891,1891,1892,1893, & - 1893,1894,1894,1895,1895,1896,1896,1897,1898,1899,1900,1901, & - 1902,1902,1903,1903,1904,1904,1905,1905,1906,1906,1907,1908, & - 1909,1910,1910,1911,1911,1912,1912,1913,1913,1914,1914,1915, & - 1916,1917,1918,1918,1919,1919,1920,1920,1921,1921,1922,1923, & - 1924,1925,1925,1926,1926,1927,1927,1928,1928,1929,1930,1931, & - 1932,1932,1933,1933,1934,1934,1935,1935,1936,1937,1938,1939, & - 1939,1940,1940,1941,1941,1942,1943,1944,1945,1945,1946,1946, & - 1947,1947,1948,1949,1950,1951,1951,1952,1952,1953,1953,1954 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_9 = (/ & - 1954,1955,1956,1957,1958,1958,1959,1959,1960,1960,1961,1962, & - 1963,1964,1964,1965,1965,1966,1966,1967,1968,1969,1970,1970, & - 1971,1971,1972,1972,1973,1973,1974,1975,1976,1977,1977,1978, & - 1978,1979,1979,1980,1981,1982,1982,1983,1983,1984,1984,1985, & - 1985,1986,1987,1988,1989,1989,1990,1990,1991,1991,1992,1992, & - 1993,1994,1995,1996,1996,1997,1997,1998,1998,1999,1999,2000, & - 2001,2002,2003,2003,2004,2004,2005,2005,2006,2007,2008,2009, & - 2009,2010,2010,2011,2011,2012,2012,2013,2014,2015,2016,2016, & - 2017,2017,2018,2018,2019,2020,2021,2022,2022,2023,2023,2024, & - 2024,2025,2026,2027,2028,2028,2029,2029,2030,2030,2031,2031, & - 2032,2033,2034,2035,2035,2036,2036,2037,2037,2038,2038,2039, & - 2040,2041,2041,2042,2042,2043,2043,2044,2045,2046,2047,2047, & - 2048,2048,2049,2049,2050,2050,2051,2052,2053,2054,2054,2055, & - 2055,2056,2056,2057,2057,2058,2059,2060,2061,2061,2062,2062, & - 2063,2063,2064,2065,2066,2066,2067,2067,2068,2068,2069,2070, & - 2071,2072,2073,2074,2075,2076,2076,2077,2077,2078,2078,2079, & - 2079,2080,2081,2082,2082,2083,2083,2084,2084,2085,2085,2086, & - 2087,2088,2089,2089,2090,2090,2091,2091,2092,2092,2093,2094, & - 2095,2095,2096,2096,2097,2097,2098,2099,2100,2100,2101,2101, & - 2102,2102,2103,2104,2105,2106,2106,2107,2107,2108,2108,2109, & - 2109,2110,2111,2112,2113,2114,2115,2116,2116,2117,2117,2118, & - 2118,2119,2119,2120,2121,2122,2122,2123,2123,2124,2124,2125, & - 2125,2126,2127,2128,2129,2129,2130,2130,2131,2131,2132,2132, & - 2133,2134,2135,2135,2136,2136,2137,2137,2138,2139,2140,2141, & - 2142,2143,2144,2144,2145,2145,2146,2146,2147,2147,2148,2149, & - 2150,2150,2151,2151,2152,2152,2153,2153,2154,2155,2156,2157, & - 2157,2158,2158,2159,2159,2160,2160,2161,2162,2163,2163,2164, & - 2164,2165,2165,2166,2167,2168,2168,2169,2169,2170,2170,2171, & - 2171,2172,2173,2174,2174,2175,2175,2176,2176,2177,2177,2178, & - 2179,2180,2181,2182,2183,2184,2185,2186,2187,2187,2188,2188 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_10 = (/ & - 2189,2189,2190,2190,2191,2192,2193,2193,2194,2194,2195,2195, & - 2196,2196,2197,2198,2199,2200,2200,2201,2201,2202,2202,2203, & - 2203,2204,2205,2206,2206,2207,2207,2208,2209,2209,2210,2211, & - 2212,2213,2213,2214,2214,2215,2216,2216,2217,2218,2219,2219, & - 2220,2220,2221,2221,2222,2222,2223,2223,2224,2225,2226,2226, & - 2227,2227,2228,2228,2229,2230,2231,2231,2232,2232,2233,2233, & - 2234,2235,2235,2236,2237,2237,2238,2239,2239,2240,2240,2241, & - 2241,2242,2243,2243,2244,2245,2246,2247,2247,2248,2248,2249, & - 2250,2250,2251,2251,2252,2253,2254,2254,2255,2255,2256,2257, & - 2257,2258,2258,2259,2260,2260,2261,2262,2262,2263,2263,2264, & - 2264,2265,2266,2266,2267,2268,2269,2270,2270,2271,2271,2272, & - 2272,2273,2273,2274,2274,2275,2276,2276,2277,2278,2279,2279, & - 2280,2280,2281,2282,2282,2283,2284,2284,2285,2286,2286,2287, & - 2287,2288,2288,2289,2289,2290,2290,2291,2292,2292,2293,2294, & - 2294,2295,2295,2296,2297,2297,2298,2298,2299,2299,2300,2300, & - 2301,2301,2302,2302,2303,2304,2305,2306,2306,2307,2308,2308, & - 2309,2310,2310,2311,2312,2312,2313,2313,2314,2315,2315,2316, & - 2317,2317,2318,2318,2319,2319,2320,2320,2321,2321,2322,2322, & - 2323,2323,2324,2325,2326,2326,2327,2327,2328,2328,2329,2329, & - 2330,2331,2332,2333,2333,2334,2335,2335,2336,2337,2337,2338, & - 2338,2339,2339,2340,2341,2341,2342,2343,2343,2344,2344,2345, & - 2346,2347,2347,2348,2348,2349,2350,2350,2351,2352,2353,2354, & - 2354,2355,2355,2356,2356,2357,2357,2358,2359,2359,2360,2361, & - 2362,2362,2363,2363,2364,2364,2365,2365,2366,2367,2367,2368, & - 2369,2369,2370,2370,2371,2372,2373,2373,2374,2374,2375,2376, & - 2376,2377,2378,2379,2380,2380,2381,2381,2382,2382,2383,2383, & - 2384,2384,2385,2386,2386,2387,2388,2388,2389,2389,2390,2391, & - 2392,2392,2393,2393,2394,2394,2395,2396,2396,2397,2397,2398, & - 2399,2400,2401,2401,2402,2403,2403,2404,2405,2405,2406,2406, & - 2407,2408,2409,2409,2410,2411,2411,2412,2413,2413,2414,2414 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_11 = (/ & - 2415,2416,2417,2418,2418,2419,2420,2420,2421,2421,2422,2423, & - 2423,2424,2424,2425,2426,2426,2427,2428,2428,2429,2429,2430, & - 2430,2431,2431,2432,2432,2433,2433,2434,2435,2436,2436,2437, & - 2437,2438,2438,2439,2439,2440,2440,2441,2442,2442,2443,2443, & - 2444,2445,2446,2446,2447,2447,2448,2448,2449,2449,2450,2451, & - 2452,2452,2453,2453,2454,2454,2455,2455,2456,2456,2457,2457, & - 2458,2459,2460,2460,2461,2461,2462,2462,2463,2463,2464,2464, & - 2465,2465,2466,2467,2468,2468,2469,2469,2470,2470,2471,2471, & - 2472,2473,2474,2474,2475,2475,2476,2477,2478,2478,2479,2480, & - 2480,2481,2481,2482,2482,2483,2484,2485,2485,2486,2487,2488, & - 2488,2489,2489,2490,2491,2491,2492,2493,2494,2494,2495,2495, & - 2496,2497,2498,2499,2499,2500,2501,2501,2502,2502,2503,2504, & - 2505,2505,2506,2506,2507,2508,2508,2509,2509,2510,2510,2511, & - 2512,2512,2513,2514,2514,2515,2515,2516,2517,2518,2518,2519, & - 2520,2521,2522,2522,2523,2523,2524,2525,2526,2526,2527,2527, & - 2528,2528,2529,2530,2530,2531,2531,2532,2533,2533,2534,2535, & - 2535,2536,2536,2537,2538,2538,2539,2540,2540,2541,2541,2542, & - 2543,2543,2544,2545,2546,2546,2547,2547,2548,2549,2549,2550, & - 2551,2552,2553,2554,2554,2555,2555,2556,2557,2557,2558,2559, & - 2559,2560,2560,2561,2562,2562,2563,2564,2564,2565,2565,2566, & - 2567,2567,2568,2569,2570,2571,2571,2572,2572,2573,2574,2574, & - 2575,2575,2576,2577,2577,2578,2579,2580,2580,2581,2582,2582, & - 2583,2583,2584,2585,2585,2586,2586,2587,2588,2589,2590,2590, & - 2591,2591,2592,2592,2593,2593,2594,2595,2595,2596,2597,2598, & - 2598,2599,2600,2601,2602,2603,2603,2604,2604,2605,2605,2606, & - 2606,2607,2608,2609,2609,2610,2611,2611,2612,2612,2613,2613, & - 2614,2615,2615,2616,2616,2617,2617,2618,2618,2619,2619,2620, & - 2620,2621,2621,2622,2622,2623,2624,2625,2626,2626,2627,2627, & - 2628,2628,2629,2630,2631,2632,2632,2633,2633,2634,2635,2636, & - 2637,2637,2638,2639,2639,2640,2641,2641,2642,2643,2643,2644 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_12 = (/ & - 2644,2645,2646,2646,2647,2647,2648,2649,2650,2650,2651,2651, & - 2652,2653,2654,2654,2655,2656,2656,2657,2657,2658,2659,2660, & - 2660,2661,2662,2662,2663,2663,2664,2664,2665,2665,2666,2667, & - 2668,2668,2669,2670,2671,2671,2672,2673,2674,2674,2675,2675, & - 2676,2676,2677,2678,2679,2680,2680,2681,2682,2682,2683,2683, & - 2684,2685,2685,2686,2687,2688,2689,2690,2690,2691,2691,2692, & - 2693,2693,2694,2695,2695,2696,2697,2697,2698,2699,2699,2700, & - 2700,2701,2702,2702,2703,2704,2705,2705,2706,2706,2707,2707, & - 2708,2709,2709,2710,2711,2712,2713,2713,2714,2714,2715,2716, & - 2716,2717,2718,2719,2720,2721,2721,2722,2722,2723,2724,2724, & - 2725,2726,2727,2728,2728,2729,2729,2730,2731,2731,2732,2733, & - 2734,2735,2735,2736,2737,2737,2738,2739,2740,2740,2741,2741, & - 2742,2743,2743,2744,2745,2745,2746,2746,2747,2747,2748,2749, & - 2750,2750,2751,2751,2752,2753,2753,2754,2755,2756,2757,2757, & - 2758,2758,2759,2759,2760,2761,2761,2762,2762,2763,2764,2764, & - 2765,2766,2766,2767,2768,2768,2769,2770,2770,2771,2772,2773, & - 2773,2774,2775,2775,2776,2776,2777,2778,2778,2779,2780,2781, & - 2781,2782,2782,2783,2783,2784,2785,2785,2786,2786,2787,2788, & - 2788,2789,2790,2791,2791,2792,2793,2793,2794,2794,2795,2796, & - 2796,2797,2798,2799,2800,2801,2802,2802,2803,2803,2804,2804, & - 2805,2806,2806,2807,2808,2808,2809,2810,2811,2811,2812,2813, & - 2813,2814,2814,2815,2816,2816,2817,2818,2819,2819,2820,2820, & - 2821,2821,2822,2823,2823,2824,2824,2825,2826,2826,2827,2828, & - 2829,2830,2830,2831,2831,2832,2832,2833,2834,2834,2835,2836, & - 2836,2837,2838,2838,2839,2840,2840,2841,2841,2842,2843,2843, & - 2844,2845,2846,2846,2847,2848,2848,2849,2849,2850,2851,2851, & - 2852,2853,2854,2854,2855,2855,2856,2856,2857,2858,2858,2859, & - 2859,2860,2861,2861,2862,2863,2864,2865,2865,2866,2866,2867, & - 2867,2868,2869,2869,2870,2871,2871,2872,2873,2873,2874,2875, & - 2875,2876,2876,2877,2878,2878,2879,2880,2881,2881,2882,2883 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_13 = (/ & - 2883,2884,2884,2885,2886,2886,2887,2888,2888,2889,2890,2891, & - 2891,2892,2892,2893,2894,2894,2895,2896,2896,2897,2898,2899, & - 2899,2900,2900,2901,2902,2902,2903,2904,2904,2905,2906,2906, & - 2907,2908,2908,2909,2910,2910,2911,2912,2913,2913,2914,2914, & - 2915,2916,2916,2917,2918,2918,2919,2920,2920,2921,2922,2922, & - 2923,2924,2924,2925,2926,2927,2927,2928,2928,2929,2930,2930, & - 2931,2932,2932,2933,2934,2935,2935,2936,2936,2937,2938,2938, & - 2939,2940,2940,2941,2942,2943,2943,2944,2944,2945,2945,2946, & - 2947,2947,2948,2949,2950,2950,2951,2952,2952,2953,2954,2954, & - 2955,2956,2956,2957,2958,2959,2959,2960,2960,2961,2962,2962, & - 2963,2964,2964,2965,2966,2967,2967,2968,2968,2969,2970,2971, & - 2972,2972,2973,2973,2974,2975,2975,2976,2976,2977,2978,2979, & - 2980,2980,2981,2981,2982,2983,2983,2984,2984,2985,2986,2987, & - 2988,2988,2989,2990,2990,2991,2992,2993,2994,2994,2995,2996, & - 2996,2997,2997,2998,2999,3000,3001,3001,3002,3003,3004,3004, & - 3005,3005,3006,3006,3007,3007,3008,3009,3010,3010,3011,3011, & - 3012,3013,3014,3014,3015,3015,3016,3017,3017,3018,3019,3020, & - 3021,3021,3022,3023,3023,3024,3025,3026,3026,3027,3028,3029, & - 3030,3030,3031,3031,3032,3033,3034,3034,3035,3035,3036,3036, & - 3037,3037,3038,3039,3039,3040,3040,3041,3042,3043,3044,3044, & - 3045,3046,3046,3047,3047,3048,3048,3049,3050,3051,3052,3052, & - 3053,3053,3054,3055,3055,3056,3056,3057,3057,3058,3058,3059, & - 3059,3060,3061,3062,3062,3063,3063,3064,3065,3066,3066,3067, & - 3068,3068,3069,3069,3070,3070,3071,3072,3073,3073,3074,3074, & - 3075,3076,3076,3077,3077,3078,3079,3080,3081,3081,3082,3083, & - 3083,3084,3084,3085,3086,3087,3088,3088,3089,3090,3090,3091, & - 3091,3092,3092,3093,3094,3095,3095,3096,3097,3097,3098,3098, & - 3099,3100,3101,3102,3102,3103,3103,3104,3105,3106,3106,3107, & - 3108,3109,3109,3110,3110,3111,3111,3112,3112,3113,3114,3114, & - 3115,3115,3116,3117,3118,3119,3119,3120,3121,3121,3122,3123 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_14 = (/ & - 3123,3124,3124,3125,3126,3127,3128,3128,3129,3129,3130,3131, & - 3131,3132,3132,3133,3133,3134,3134,3135,3136,3137,3137,3138, & - 3138,3139,3140,3141,3141,3142,3142,3143,3144,3144,3145,3145, & - 3146,3147,3148,3149,3149,3150,3151,3151,3152,3153,3154,3154, & - 3155,3155,3156,3157,3158,3158,3159,3159,3160,3161,3161,3162, & - 3162,3163,3163,3164,3165,3166,3167,3167,3168,3169,3169,3170, & - 3170,3171,3171,3172,3172,3173,3173,3174,3175,3176,3176,3177, & - 3177,3178,3179,3180,3180,3181,3182,3182,3183,3184,3184,3185, & - 3185,3186,3187,3188,3188,3189,3189,3190,3190,3191,3191,3192, & - 3193,3194,3195,3195,3196,3197,3197,3198,3198,3199,3199,3200, & - 3201,3202,3203,3203,3204,3205,3205,3206,3206,3207,3207,3208, & - 3209,3210,3210,3211,3211,3212,3213,3213,3214,3214,3215,3216, & - 3217,3217,3218,3219,3219,3220,3221,3222,3222,3223,3223,3224, & - 3225,3226,3226,3227,3227,3228,3229,3229,3230,3231,3232,3233, & - 3233,3234,3234,3235,3236,3236,3237,3237,3238,3238,3239,3239, & - 3240,3240,3241,3241,3242,3243,3244,3244,3245,3245,3246,3247, & - 3248,3249,3250,3251,3251,3252,3252,3253,3253,3254,3254,3255, & - 3256,3257,3258,3258,3259,3259,3260,3260,3261,3262,3263,3264, & - 3264,3265,3265,3266,3266,3267,3267,3268,3269,3270,3270,3271, & - 3271,3272,3272,3273,3273,3274,3274,3275,3276,3277,3277,3278, & - 3278,3279,3279,3280,3280,3281,3281,3282,3282,3283,3284,3285, & - 3285,3286,3287,3287,3288,3289,3290,3290,3291,3291,3292,3292, & - 3293,3293,3294,3295,3296,3296,3297,3297,3298,3298,3299,3300, & - 3301,3301,3302,3302,3303,3303,3304,3304,3305,3305,3306,3306, & - 3307,3308,3309,3310,3311,3312,3313,3313,3314,3315,3315,3316, & - 3316,3317,3318,3318,3319,3319,3320,3320,3321,3321,3322,3322, & - 3323,3323,3324,3325,3326,3327,3328,3329,3330,3330,3331,3331, & - 3332,3332,3333,3333,3334,3335,3336,3337,3337,3338,3338,3339, & - 3339,3340,3341,3342,3343,3343,3344,3345,3345,3346,3347,3348, & - 3348,3349,3349,3350,3351,3352,3352,3353,3353,3354,3355,3355 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_15 = (/ & - 3356,3357,3358,3359,3360,3361,3362,3363,3363,3364,3364,3365, & - 3365,3366,3366,3367,3367,3368,3368,3369,3369,3370,3371,3372, & - 3372,3373,3373,3374,3375,3375,3376,3376,3377,3377,3378,3378, & - 3379,3380,3381,3382,3382,3383,3383,3384,3384,3385,3386,3387, & - 3387,3388,3388,3389,3389,3390,3391,3392,3392,3393,3393,3394, & - 3394,3395,3395,3396,3396,3397,3398,3399,3399,3400,3400,3401, & - 3401,3402,3402,3403,3404,3404,3405,3406,3407,3407,3408,3408, & - 3409,3410,3411,3411,3412,3412,3413,3414,3414,3415,3416,3417, & - 3418,3419,3420,3421,3421,3422,3422,3423,3423,3424,3425,3426, & - 3426,3427,3427,3428,3428,3429,3429,3430,3430,3431,3431,3432, & - 3433,3434,3434,3435,3435,3436,3437,3437,3438,3438,3439,3439, & - 3440,3440,3441,3442,3443,3444,3444,3445,3445,3446,3446,3447, & - 3448,3449,3450,3450,3451,3451,3452,3452,3453,3453,3454,3454, & - 3455,3456,3457,3457,3458,3458,3459,3459,3460,3461,3462,3462, & - 3463,3463,3464,3464,3465,3465,3466,3467,3467,3468,3469,3470, & - 3470,3471,3471,3472,3473,3474,3474,3475,3475,3476,3477,3477, & - 3478,3479,3480,3481,3482,3482,3483,3483,3484,3484,3485,3485, & - 3486,3486,3487,3487,3488,3488,3489,3490,3491,3491,3492,3492, & - 3493,3493,3494,3494,3495,3496,3497,3498,3498,3499,3499,3500, & - 3500,3501,3502,3503,3503,3504,3504,3505,3505,3506,3507,3508, & - 3508,3509,3509,3510,3510,3511,3511,3512,3512,3513,3514,3515, & - 3515,3516,3516,3517,3517,3518,3518,3519,3520,3521,3521,3522, & - 3523,3523,3524,3524,3525,3525,3526,3527,3527,3528,3528,3529, & - 3529,3530,3530,3531,3531,3532,3533,3534,3534,3535,3535,3536, & - 3536,3537,3538,3539,3539,3540,3540,3541,3541,3542,3542,3543, & - 3544,3545,3546,3547,3548,3548,3549,3550,3550,3551,3551,3552, & - 3553,3553,3554,3554,3555,3555,3556,3556,3557,3557,3558,3558, & - 3559,3560,3561,3562,3563,3564,3565,3565,3566,3566,3567,3567, & - 3568,3568,3569,3570,3571,3572,3572,3573,3573,3574,3574,3575, & - 3576,3577,3578,3578,3579,3580,3580,3581,3582,3583,3583,3584 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_16 = (/ & - 3584,3585,3586,3586,3587,3587,3588,3588,3589,3590,3591,3591, & - 3592,3592,3593,3593,3594,3594,3595,3595,3596,3597,3598,3598, & - 3599,3599,3600,3600,3601,3601,3602,3603,3604,3605,3606,3607, & - 3607,3608,3609,3609,3610,3610,3611,3612,3612,3613,3613,3614, & - 3614,3615,3615,3616,3616,3617,3617,3618,3619,3620,3621,3622, & - 3623,3624,3624,3625,3625,3626,3626,3627,3627,3628,3629,3630, & - 3631,3631,3632,3632,3633,3633,3634,3635,3636,3637,3637,3638, & - 3639,3639,3640,3641,3642,3642,3643,3643,3644,3644,3645,3645, & - 3646,3646,3647,3647,3648,3649,3650,3650,3651,3651,3652,3652, & - 3653,3654,3655,3655,3656,3656,3657,3657,3658,3658,3659,3660, & - 3661,3662,3663,3664,3664,3665,3666,3666,3667,3667,3668,3669, & - 3669,3670,3670,3671,3671,3672,3672,3673,3673,3674,3674,3675, & - 3676,3677,3678,3679,3680,3681,3681,3682,3682,3683,3683,3684, & - 3684,3685,3686,3687,3688,3688,3689,3689,3690,3690,3691,3692, & - 3693,3694,3694,3695,3696,3696,3697,3698,3699,3699,3700,3700, & - 3701,3702,3703,3703,3704,3704,3705,3705,3706,3706,3707,3708, & - 3709,3709,3710,3710,3711,3711,3712,3712,3713,3713,3714,3715, & - 3716,3716,3717,3717,3718,3718,3719,3719,3720,3721,3721,3722, & - 3723,3724,3725,3726,3727,3728,3729,3729,3730,3730,3731,3732, & - 3732,3733,3733,3734,3735,3736,3736,3737,3737,3738,3738,3739, & - 3739,3740,3741,3742,3743,3743,3744,3745,3745,3746,3747,3748, & - 3748,3749,3749,3750,3751,3752,3752,3753,3753,3754,3755,3755, & - 3756,3757,3758,3759,3760,3761,3762,3763,3763,3764,3764,3765, & - 3765,3766,3766,3767,3768,3769,3769,3770,3770,3771,3771,3772, & - 3772,3773,3773,3774,3775,3776,3776,3777,3777,3778,3778,3779, & - 3779,3780,3780,3781,3781,3782,3782,3783,3783,3784,3784,3785, & - 3786,3787,3787,3788,3788,3789,3789,3790,3790,3791,3792,3793, & - 3794,3794,3795,3795,3796,3796,3797,3798,3799,3799,3800,3801, & - 3801,3802,3803,3804,3804,3805,3805,3806,3807,3808,3808,3809, & - 3809,3810,3811,3811,3812,3813,3814,3815,3815,3816,3816,3817 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_17 = (/ & - 3818,3818,3819,3819,3820,3820,3821,3822,3823,3823,3824,3824, & - 3825,3825,3826,3826,3827,3828,3829,3829,3830,3830,3831,3831, & - 3832,3832,3833,3833,3834,3834,3835,3836,3837,3837,3838,3838, & - 3839,3840,3841,3842,3843,3843,3844,3844,3845,3845,3846,3846, & - 3847,3848,3849,3849,3850,3850,3851,3851,3852,3853,3854,3855, & - 3855,3856,3857,3857,3858,3859,3860,3860,3861,3861,3862,3863, & - 3863,3864,3865,3865,3866,3867,3868,3869,3870,3871,3872,3873, & - 3873,3874,3874,3875,3875,3876,3876,3877,3877,3878,3878,3879, & - 3879,3880,3881,3882,3882,3883,3883,3884,3885,3885,3886,3886, & - 3887,3887,3888,3888,3889,3890,3891,3892,3892,3893,3893,3894, & - 3894,3895,3896,3897,3897,3898,3898,3899,3899,3900,3901,3902, & - 3902,3903,3903,3904,3904,3905,3905,3906,3906,3907,3908,3909, & - 3909,3910,3910,3911,3911,3912,3912,3913,3914,3914,3915,3916, & - 3917,3918,3919,3920,3921,3921,3922,3922,3923,3924,3924,3925, & - 3925,3926,3926,3927,3927,3928,3928,3929,3929,3930,3931,3932, & - 3932,3933,3933,3934,3934,3935,3935,3936,3937,3938,3939,3939, & - 3940,3940,3941,3941,3942,3943,3944,3945,3945,3946,3946,3947, & - 3947,3948,3948,3949,3949,3950,3951,3952,3952,3953,3953,3954, & - 3954,3955,3956,3957,3957,3958,3958,3959,3959,3960,3960,3961, & - 3962,3962,3963,3964,3965,3966,3967,3968,3968,3969,3969,3970, & - 3970,3971,3971,3972,3972,3973,3973,3974,3974,3975,3976,3977, & - 3977,3978,3978,3979,3979,3980,3980,3981,3982,3983,3984,3984, & - 3985,3985,3986,3986,3987,3988,3989,3989,3990,3990,3991,3991, & - 3992,3993,3994,3994,3995,3995,3996,3996,3997,3997,3998,3998, & - 3999,4000,4001,4001,4002,4002,4003,4003,4004,4004,4005,4006, & - 4006,4007,4008,4009,4009,4010,4010,4011,4012,4012,4013,4014, & - 4014,4015,4016,4017,4018,4019,4020,4020,4021,4021,4022,4023, & - 4023,4024,4024,4025,4025,4026,4026,4027,4027,4028,4028,4029, & - 4030,4031,4032,4033,4033,4034,4034,4035,4035,4036,4036,4037, & - 4038,4039,4039,4040,4040,4041,4041,4042,4043,4044,4045,4045 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_18 = (/ & - 4046,4046,4047,4047,4048,4048,4049,4050,4051,4051,4052,4052, & - 4053,4053,4054,4055,4056,4056,4057,4058,4058,4059,4060,4061, & - 4061,4062,4062,4063,4064,4064,4065,4065,4066,4066,4067,4067, & - 4068,4069,4070,4070,4071,4071,4072,4072,4073,4074,4075,4075, & - 4076,4077,4077,4078,4079,4080,4081,4081,4082,4082,4083,4084, & - 4084,4085,4085,4086,4086,4087,4087,4088,4088,4089,4089,4090, & - 4091,4092,4092,4093,4093,4094,4095,4096,4096,4097,4097,4098, & - 4098,4099,4099,4100,4101,4102,4102,4103,4103,4104,4104,4105, & - 4106,4107,4108,4108,4109,4110,4110,4111,4111,4112,4112,4113, & - 4113,4114,4115,4116,4116,4117,4118,4119,4119,4120,4121,4121, & - 4122,4122,4123,4124,4124,4125,4126,4127,4127,4128,4129,4129, & - 4130,4131,4131,4132,4133,4133,4134,4135,4135,4136,4137,4138, & - 4138,4139,4140,4140,4141,4141,4142,4142,4143,4143,4144,4144, & - 4145,4145,4146,4146,4147,4147,4148,4148,4149,4150,4151,4152, & - 4152,4153,4154,4154,4155,4156,4157,4157,4158,4158,4159,4159, & - 4160,4160,4161,4161,4162,4163,4163,4164,4164,4165,4166,4166, & - 4167,4167,4168,4168,4169,4169,4170,4170,4171,4172,4173,4174, & - 4174,4175,4176,4177,4177,4178,4178,4179,4180,4180,4181,4182, & - 4182,4183,4184,4185,4185,4186,4186,4187,4187,4188,4189,4189, & - 4190,4190,4191,4191,4192,4192,4193,4193,4194,4195,4196,4197, & - 4198,4198,4199,4199,4200,4200,4201,4201,4202,4203,4204,4205, & - 4205,4206,4206,4207,4207,4208,4208,4209,4210,4211,4212,4212, & - 4213,4213,4214,4214,4215,4215,4216,4217,4218,4218,4219,4219, & - 4220,4220,4221,4221,4222,4223,4223,4224,4224,4225,4225,4226, & - 4227,4228,4229,4229,4230,4230,4231,4231,4232,4232,4233,4234, & - 4235,4236,4237,4238,4239,4239,4240,4240,4241,4241,4242,4242, & - 4243,4244,4245,4246,4247,4248,4248,4249,4249,4250,4250,4251, & - 4251,4252,4253,4254,4255,4256,4257,4258,4258,4259,4259,4260, & - 4260,4261,4261,4262,4263,4264,4265,4266,4267,4268,4268,4269, & - 4270,4270,4271,4271,4272,4272,4273,4274,4274,4275,4275,4276 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_19 = (/ & - 4277,4277,4278,4278,4279,4279,4280,4280,4281,4282,4283,4284, & - 4284,4285,4285,4286,4286,4287,4287,4288,4289,4289,4290,4290, & - 4291,4291,4292,4292,4293,4293,4294,4295,4295,4296,4296,4297, & - 4297,4298,4298,4299,4300,4300,4301,4301,4302,4302,4303,4304, & - 4305,4306,4307,4308,4308,4309,4309,4310,4310,4311,4311,4312, & - 4313,4314,4315,4315,4316,4316,4317,4317,4318,4318,4319,4320, & - 4321,4322,4322,4323,4323,4324,4324,4325,4325,4326,4327,4328, & - 4329,4330,4330,4331,4331,4332,4332,4333,4333,4334,4335,4336, & - 4337,4338,4338,4339,4340,4340,4341,4341,4342,4342,4343,4344, & - 4345,4345,4346,4346,4347,4348,4348,4349,4349,4350,4350,4351, & - 4351,4352,4353,4354,4354,4355,4355,4356,4357,4357,4358,4359, & - 4360,4360,4361,4361,4362,4362,4363,4363,4364,4364,4365,4365, & - 4366,4366,4367,4368,4369,4369,4370,4370,4371,4372,4373,4373, & - 4374,4374,4375,4376,4376,4377,4378,4379,4380,4380,4381,4381, & - 4382,4383,4384,4385,4386,4386,4387,4387,4388,4388,4389,4390, & - 4391,4392,4393,4393,4394,4394,4395,4395,4396,4396,4397,4398, & - 4399,4400,4400,4401,4402,4402,4403,4404,4404,4405,4406,4406, & - 4407,4407,4408,4409,4410,4411,4411,4412,4413,4413,4414,4414, & - 4415,4416,4417,4418,4418,4419,4419,4420,4421,4421,4422,4423, & - 4424,4424,4425,4426,4427,4427,4428,4429,4430,4430,4431,4432, & - 4432,4433,4434,4435,4436,4436,4437,4437,4438,4438,4439,4439, & - 4440,4441,4441,4442,4443,4444,4444,4445,4446,4447,4447,4448, & - 4449,4449,4450,4450,4451,4452,4452,4453,4454,4455,4456,4457, & - 4457,4458,4459,4459,4460,4460,4461,4461,4462,4462,4463,4464, & - 4465,4466,4466,4467,4468,4468,4469,4469,4470,4471,4472,4472, & - 4473,4474,4475,4475,4476,4477,4477,4478,4478,4479,4480,4481, & - 4482,4482,4483,4484,4484,4485,4486,4486,4487,4487,4488,4489, & - 4490,4491,4491,4492,4492,4493,4494,4494,4495,4496,4497,4497, & - 4498,4498,4499,4500,4501,4501,4502,4503,4503,4504,4505,4505, & - 4506,4507,4508,4509,4509,4510,4510,4511,4512,4513,4514,4514 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_20 = (/ & - 4515,4516,4516,4517,4518,4519,4519,4520,4521,4521,4522,4523, & - 4524,4525,4525,4526,4526,4527,4528,4528,4529,4529,4530,4531, & - 4531,4532,4533,4534,4535,4535,4536,4537,4537,4538,4539,4539, & - 4540,4541,4542,4542,4543,4543,4544,4544,4545,4546,4547,4548, & - 4548,4549,4549,4550,4551,4551,4552,4552,4553,4553,4554,4555, & - 4556,4556,4557,4557,4558,4558,4559,4560,4561,4562,4562,4563, & - 4563,4564,4564,4565,4565,4566,4567,4568,4568,4569,4569,4570, & - 4570,4571,4571,4572,4573,4574,4575,4575,4576,4577,4578,4578, & - 4579,4579,4580,4581,4582,4582,4583,4583,4584,4585,4585,4586, & - 4587,4588,4588,4589,4589,4590,4591,4592,4592,4593,4593,4594, & - 4595,4596,4596,4597,4597,4598,4598,4599,4600,4600,4601,4601, & - 4602,4602,4603,4603,4604,4605,4606,4607,4607,4608,4608,4609, & - 4609,4610,4610,4611,4612,4613,4614,4614,4615,4615,4616,4616, & - 4617,4617,4618,4619,4620,4620,4621,4621,4622,4622,4623,4624, & - 4625,4626,4626,4627,4627,4628,4628,4629,4629,4630,4630,4631, & - 4632,4632,4633,4634,4635,4635,4636,4636,4637,4638,4639,4639, & - 4640,4640,4641,4642,4642,4643,4644,4644,4645,4646,4647,4647, & - 4648,4648,4649,4650,4651,4651,4652,4652,4653,4653,4654,4654, & - 4655,4656,4657,4658,4658,4659,4659,4660,4660,4661,4662,4663, & - 4664,4664,4665,4665,4666,4666,4667,4667,4668,4669,4670,4671, & - 4671,4672,4672,4673,4673,4674,4674,4675,4676,4677,4677,4678, & - 4679,4679,4680,4681,4681,4682,4682,4683,4684,4685,4685,4686, & - 4686,4687,4688,4688,4689,4690,4690,4691,4691,4692,4693,4694, & - 4694,4695,4695,4696,4696,4697,4697,4698,4698,4699,4699,4700, & - 4700,4701,4701,4702,4702,4703,4703,4704,4705,4705,4706,4706, & - 4707,4707,4708,4708,4709,4709,4710,4710,4711,4711,4712,4712, & - 4713,4713,4714,4715,4716,4717,4717,4718,4718,4719,4719,4720, & - 4721,4722,4723,4723,4724,4724,4725,4725,4726,4726,4727,4727, & - 4728,4728,4729,4729,4730,4731,4732,4733,4733,4734,4734,4735, & - 4735,4736,4737,4738,4739,4739,4740,4740,4741,4741,4742,4742 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_21 = (/ & - 4743,4744,4745,4746,4746,4747,4748,4748,4749,4750,4750,4751, & - 4751,4752,4753,4754,4754,4755,4755,4756,4757,4757,4758,4759, & - 4759,4760,4760,4761,4761,4762,4762,4763,4763,4764,4764,4765, & - 4765,4766,4767,4768,4768,4769,4769,4770,4770,4771,4771,4772, & - 4772,4773,4773,4774,4775,4776,4776,4777,4777,4778,4778,4779, & - 4779,4780,4781,4782,4783,4783,4784,4784,4785,4785,4786,4786, & - 4787,4787,4788,4789,4789,4790,4791,4791,4792,4793,4793,4794, & - 4794,4795,4795,4796,4797,4797,4798,4799,4799,4800,4801,4801, & - 4802,4803,4804,4805,4805,4806,4806,4807,4808,4808,4809,4809, & - 4810,4810,4811,4811,4812,4813,4814,4815,4815,4816,4816,4817, & - 4817,4818,4818,4819,4819,4820,4821,4821,4822,4822,4823,4823, & - 4824,4824,4825,4825,4826,4827,4827,4828,4828,4829,4829,4830, & - 4830,4831,4832,4833,4834,4834,4835,4835,4836,4836,4837,4837, & - 4838,4838,4839,4839,4840,4841,4842,4842,4843,4843,4844,4844, & - 4845,4846,4846,4847,4848,4848,4849,4849,4850,4850,4851,4851, & - 4852,4853,4854,4855,4855,4856,4856,4857,4858,4858,4859,4860, & - 4860,4861,4862,4862,4863,4864,4865,4865,4866,4866,4867,4867, & - 4868,4868,4869,4869,4870,4871,4871,4872,4873,4873,4874,4875, & - 4875,4876,4876,4877,4878,4878,4879,4879,4880,4880,4881,4881, & - 4882,4882,4883,4884,4884,4885,4885,4886,4886,4887,4887,4888, & - 4888,4889,4890,4890,4891,4891,4892,4892,4893,4893,4894,4894, & - 4895,4895,4896,4897,4898,4898,4899,4899,4900,4900,4901,4901, & - 4902,4902,4903,4903,4904,4905,4906,4906,4907,4907,4908,4908, & - 4909,4910,4911,4912,4912,4913,4913,4914,4914,4915,4915,4916, & - 4916,4917,4917,4918,4919,4920,4920,4921,4921,4922,4922,4923, & - 4923,4924,4925,4926,4927,4927,4928,4928,4929,4929,4930,4930, & - 4931,4931,4932,4932,4933,4934,4935,4935,4936,4936,4937,4937, & - 4938,4938,4939,4939,4940,4941,4942,4943,4943,4944,4944,4945, & - 4945,4946,4946,4947,4947,4948,4948,4949,4949,4950,4950,4951, & - 4952,4953,4954,4954,4955,4955,4956,4956,4957,4957,4958,4959 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_22 = (/ & - 4959,4960,4960,4961,4961,4962,4962,4963,4963,4964,4964,4965, & - 4966,4967,4967,4968,4968,4969,4969,4970,4970,4971,4971,4972, & - 4972,4973,4974,4975,4975,4976,4976,4977,4977,4978,4978,4979, & - 4979,4980,4981,4982,4983,4983,4984,4984,4985,4985,4986,4986, & - 4987,4987,4988,4989,4989,4990,4990,4991,4991,4992,4992,4993, & - 4994,4995,4996,4996,4997,4997,4998,4998,4999,4999,5000,5001, & - 5002,5003,5003,5004,5004,5005,5005,5006,5006,5007,5008,5009, & - 5010,5010,5011,5011,5012,5012,5013,5013,5014,5014,5015,5016, & - 5016,5017,5017,5018,5018,5019,5019,5020,5021,5022,5023,5023, & - 5024,5024,5025,5025,5026,5026,5027,5027,5028,5029,5029,5030, & - 5030,5031,5031,5032,5032,5033,5034,5035,5036,5036,5037,5037, & - 5038,5038,5039,5039,5040,5041,5042,5043,5043,5044,5044,5045, & - 5045,5046,5046,5047,5048,5049,5050,5050,5051,5051,5052,5052, & - 5053,5053,5054,5054,5055,5056,5056,5057,5057,5058,5058,5059, & - 5059,5060,5061,5062,5063,5063,5064,5064,5065,5065,5066,5067, & - 5068,5068,5069,5069,5070,5070,5071,5071,5072,5073,5074,5075, & - 5075,5076,5076,5077,5077,5078,5078,5079,5080,5081,5082,5082, & - 5083,5083,5084,5084,5085,5085,5086,5087,5088,5089,5089,5090, & - 5090,5091,5091,5092,5092,5093,5093,5094,5095,5095,5096,5096, & - 5097,5097,5098,5098,5099,5100,5101,5102,5102,5103,5103,5104, & - 5104,5105,5105,5106,5107,5108,5109,5109,5110,5110,5111,5111, & - 5112,5113,5114,5114,5115,5115,5116,5116,5117,5117,5118,5119, & - 5120,5121,5121,5122,5122,5123,5123,5124,5124,5125,5125,5126, & - 5127,5127,5128,5128,5129,5129,5130,5130,5131,5132,5133,5134, & - 5134,5135,5135,5136,5136,5137,5137,5138,5138,5139,5139,5140, & - 5141,5142,5142,5143,5143,5144,5144,5145,5145,5146,5147,5148, & - 5149,5149,5150,5150,5151,5151,5152,5152,5153,5153,5154,5154, & - 5155,5156,5157,5157,5158,5158,5159,5159,5160,5160,5161,5162, & - 5163,5164,5164,5165,5165,5166,5166,5167,5168,5168,5169,5169, & - 5170,5170,5171,5171,5172,5173,5174,5174,5175,5175,5176,5176 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_23 = (/ & - 5177,5178,5178,5179,5179,5180,5180,5181,5181,5182,5183,5184, & - 5185,5185,5186,5186,5187,5187,5188,5188,5189,5190,5191,5192, & - 5192,5193,5193,5194,5194,5195,5196,5196,5197,5197,5198,5198, & - 5199,5199,5200,5201,5202,5203,5203,5204,5204,5205,5205,5206, & - 5206,5207,5208,5209,5210,5210,5211,5211,5212,5212,5213,5214, & - 5214,5215,5215,5216,5216,5217,5217,5218,5219,5220,5221,5221, & - 5222,5222,5223,5223,5224,5225,5225,5226,5226,5227,5227,5228, & - 5228,5229,5230,5231,5232,5232,5233,5233,5234,5234,5235,5236, & - 5236,5237,5237,5238,5238,5239,5239,5240,5241,5242,5243,5243, & - 5244,5244,5245,5245,5246,5247,5247,5248,5248,5249,5249,5250, & - 5250,5251,5252,5253,5254,5254,5255,5255,5256,5256,5257,5258, & - 5258,5259,5259,5260,5260,5261,5261,5262,5263,5264,5265,5265, & - 5266,5266,5267,5267,5268,5268,5269,5269,5270,5270,5271,5272, & - 5273,5273,5274,5274,5275,5275,5276,5276,5277,5277,5278,5278, & - 5279,5280,5281,5282,5282,5283,5283,5284,5284,5285,5286,5287, & - 5288,5289,5289,5290,5290,5291,5291,5292,5292,5293,5293,5294, & - 5295,5295,5296,5296,5297,5297,5298,5298,5299,5299,5300,5300, & - 5301,5302,5303,5303,5304,5304,5305,5305,5306,5307,5308,5309, & - 5310,5310,5311,5311,5312,5312,5313,5313,5314,5314,5315,5315, & - 5316,5317,5318,5319,5319,5320,5320,5321,5321,5322,5323,5323, & - 5324,5324,5325,5325,5326,5326,5327,5327,5328,5329,5329,5330, & - 5330,5331,5331,5332,5333,5333,5334,5334,5335,5335,5336,5337, & - 5337,5338,5338,5339,5339,5340,5340,5341,5341,5342,5342,5343, & - 5344,5345,5346,5346,5347,5347,5348,5348,5349,5350,5351,5352, & - 5352,5353,5353,5354,5354,5355,5355,5356,5356,5357,5357,5358, & - 5359,5360,5361,5361,5362,5362,5363,5363,5364,5364,5365,5365, & - 5366,5367,5367,5368,5368,5369,5369,5370,5371,5371,5372,5372, & - 5373,5373,5374,5374,5375,5375,5376,5376,5377,5378,5379,5379, & - 5380,5380,5381,5381,5382,5383,5384,5385,5385,5386,5386,5387, & - 5387,5388,5389,5390,5391,5391,5392,5392,5393,5393,5394,5394 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_24 = (/ & - 5395,5395,5396,5397,5397,5398,5398,5399,5399,5400,5401,5402, & - 5403,5403,5404,5404,5405,5405,5406,5407,5408,5409,5409,5410, & - 5410,5411,5411,5412,5412,5413,5413,5414,5414,5415,5415,5416, & - 5416,5417,5417,5418,5419,5420,5420,5421,5422,5422,5423,5424, & - 5424,5425,5426,5426,5427,5427,5428,5428,5429,5429,5430,5430, & - 5431,5431,5432,5433,5434,5434,5435,5435,5436,5436,5437,5438, & - 5439,5440,5440,5441,5442,5442,5443,5444,5445,5446,5446,5447, & - 5448,5448,5449,5450,5450,5451,5452,5453,5454,5454,5455,5456, & - 5456,5457,5458,5458,5459,5459,5460,5460,5461,5462,5463,5464, & - 5464,5465,5465,5466,5466,5467,5468,5469,5470,5470,5471,5472, & - 5472,5473,5473,5474,5475,5475,5476,5477,5478,5479,5479,5480, & - 5480,5481,5482,5483,5484,5484,5485,5485,5486,5487,5488,5489, & - 5489,5490,5491,5491,5492,5492,5493,5493,5494,5494,5495,5495, & - 5496,5497,5497,5498,5498,5499,5500,5500,5501,5501,5502,5502, & - 5503,5503,5504,5504,5505,5505,5506,5506,5507,5508,5509,5510, & - 5510,5511,5511,5512,5512,5513,5513,5514,5514,5515,5516,5517, & - 5517,5518,5518,5519,5519,5520,5520,5521,5521,5522,5522,5523, & - 5523,5524,5524,5525,5525,5526,5527,5528,5528,5529,5530,5530, & - 5531,5532,5532,5533,5534,5534,5535,5535,5536,5536,5537,5537, & - 5538,5539,5540,5540,5541,5542,5542,5543,5544,5545,5546,5546, & - 5547,5548,5548,5549,5550,5550,5551,5552,5553,5554,5554,5555, & - 5556,5556,5557,5558,5558,5559,5559,5560,5560,5561,5561,5562, & - 5562,5563,5563,5564,5565,5566,5566,5567,5568,5568,5569,5569, & - 5570,5570,5571,5571,5572,5572,5573,5574,5575,5575,5576,5576, & - 5577,5577,5578,5578,5579,5580,5580,5581,5582,5582,5583,5584, & - 5584,5585,5585,5586,5586,5587,5587,5588,5588,5589,5589,5590, & - 5591,5592,5592,5593,5593,5594,5594,5595,5596,5596,5597,5598, & - 5598,5599,5600,5601,5602,5602,5603,5604,5604,5605,5606,5606, & - 5607,5608,5609,5610,5611,5611,5612,5613,5614,5614,5615,5616, & - 5617,5618,5618,5619,5620,5620,5621,5621,5622,5622,5623,5623 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_25 = (/ & - 5624,5624,5625,5626,5626,5627,5628,5629,5630,5630,5631,5631, & - 5632,5632,5633,5634,5634,5635,5635,5636,5636,5637,5637,5638, & - 5638,5639,5639,5640,5641,5642,5642,5643,5643,5644,5644,5645, & - 5646,5646,5647,5647,5648,5648,5649,5649,5650,5650,5651,5652, & - 5653,5653,5654,5654,5655,5655,5656,5656,5657,5657,5658,5658, & - 5659,5659,5660,5660,5661,5661,5662,5662,5663,5663,5664,5665, & - 5665,5666,5667,5667,5668,5669,5669,5670,5671,5671,5672,5672, & - 5673,5673,5674,5674,5675,5675,5676,5676,5677,5678,5679,5679, & - 5680,5680,5681,5681,5682,5683,5684,5684,5685,5686,5686,5687, & - 5688,5689,5690,5690,5691,5692,5692,5693,5694,5694,5695,5696, & - 5697,5697,5698,5699,5699,5700,5701,5701,5702,5702,5703,5703, & - 5704,5704,5705,5705,5706,5707,5707,5708,5709,5710,5711,5711, & - 5712,5712,5713,5714,5715,5716,5716,5717,5718,5718,5719,5719, & - 5720,5721,5721,5722,5722,5723,5723,5724,5724,5725,5725,5726, & - 5726,5727,5728,5729,5729,5730,5730,5731,5731,5732,5733,5733, & - 5734,5734,5735,5736,5736,5737,5738,5738,5739,5740,5740,5741, & - 5742,5742,5743,5744,5744,5745,5746,5747,5748,5748,5749,5750, & - 5750,5751,5752,5752,5753,5754,5755,5756,5757,5757,5758,5759, & - 5760,5760,5761,5762,5763,5764,5764,5765,5766,5766,5767,5767, & - 5768,5768,5769,5769,5770,5770,5771,5772,5772,5773,5774,5775, & - 5776,5776,5777,5777,5778,5778,5779,5780,5780,5781,5781,5782, & - 5782,5783,5783,5784,5784,5785,5785,5786,5787,5788,5788,5789, & - 5789,5790,5790,5791,5791,5792,5792,5793,5794,5794,5795,5796, & - 5797,5798,5798,5799,5799,5800,5801,5802,5803,5803,5804,5805, & - 5805,5806,5806,5807,5808,5808,5809,5809,5810,5810,5811,5811, & - 5812,5812,5813,5814,5815,5815,5816,5816,5817,5817,5818,5818, & - 5819,5819,5820,5820,5821,5821,5822,5822,5823,5823,5824,5825, & - 5826,5826,5827,5828,5828,5829,5830,5830,5831,5832,5832,5833, & - 5833,5834,5834,5835,5835,5836,5837,5838,5838,5839,5840,5840, & - 5841,5842,5843,5844,5844,5845,5846,5846,5847,5848,5848,5849 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_26 = (/ & - 5850,5851,5852,5852,5853,5854,5854,5855,5856,5856,5857,5857, & - 5858,5858,5859,5860,5861,5862,5862,5863,5864,5865,5866,5866, & - 5867,5868,5868,5869,5869,5870,5870,5871,5871,5872,5872,5873, & - 5874,5874,5875,5876,5877,5878,5878,5879,5879,5880,5880,5881, & - 5882,5882,5883,5883,5884,5885,5885,5886,5886,5887,5887,5888, & - 5888,5889,5889,5890,5891,5892,5892,5893,5893,5894,5894,5895, & - 5895,5896,5896,5897,5897,5898,5898,5899,5899,5900,5900,5901, & - 5902,5903,5903,5904,5905,5905,5906,5907,5907,5908,5909,5909, & - 5910,5910,5911,5911,5912,5912,5913,5914,5915,5915,5916,5917, & - 5917,5918,5919,5920,5921,5921,5922,5923,5923,5924,5925,5925, & - 5926,5927,5928,5929,5929,5930,5931,5931,5932,5933,5933,5934, & - 5935,5935,5936,5936,5937,5937,5938,5938,5939,5939,5940,5941, & - 5941,5942,5943,5944,5945,5945,5946,5946,5947,5948,5949,5950, & - 5950,5951,5952,5952,5953,5953,5954,5955,5955,5956,5956,5957, & - 5957,5958,5958,5959,5959,5960,5961,5962,5963,5963,5964,5964, & - 5965,5965,5966,5966,5967,5967,5968,5968,5969,5969,5970,5970, & - 5971,5971,5972,5973,5974,5974,5975,5976,5976,5977,5978,5978, & - 5979,5980,5980,5981,5981,5982,5982,5983,5983,5984,5985,5986, & - 5986,5987,5988,5988,5989,5990,5991,5992,5992,5993,5994,5994, & - 5995,5996,5996,5997,5998,5999,6000,6000,6001,6002,6002,6003, & - 6004,6004,6005,6005,6006,6006,6007,6007,6008,6008,6009,6009, & - 6010,6011,6012,6012,6013,6014,6015,6016,6016,6017,6018,6018, & - 6019,6019,6020,6020,6021,6021,6022,6022,6023,6024,6024,6025, & - 6026,6027,6027,6028,6028,6029,6029,6030,6031,6031,6032,6032, & - 6033,6033,6034,6035,6036,6036,6037,6037,6038,6038,6039,6039, & - 6040,6040,6041,6041,6042,6042,6043,6043,6044,6044,6045,6045, & - 6046,6046,6047,6047,6048,6049,6050,6050,6051,6051,6052,6052, & - 6053,6054,6054,6055,6056,6057,6058,6058,6059,6060,6060,6061, & - 6062,6063,6063,6064,6065,6065,6066,6066,6067,6067,6068,6068, & - 6069,6069,6070,6070,6071,6072,6073,6073,6074,6074,6075,6075 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_27 = (/ & - 6076,6077,6077,6078,6078,6079,6079,6080,6081,6082,6082,6083, & - 6084,6085,6086,6086,6087,6088,6088,6089,6089,6090,6090,6091, & - 6091,6092,6092,6093,6094,6094,6095,6096,6097,6098,6098,6099, & - 6099,6100,6100,6101,6102,6102,6103,6104,6104,6105,6106,6107, & - 6107,6108,6109,6109,6110,6111,6112,6113,6113,6114,6115,6115, & - 6116,6117,6117,6118,6119,6119,6120,6121,6122,6123,6124,6124, & - 6125,6126,6127,6127,6128,6128,6129,6129,6130,6130,6131,6131, & - 6132,6132,6133,6134,6135,6135,6136,6136,6137,6137,6138,6139, & - 6139,6140,6140,6141,6141,6142,6142,6143,6143,6144,6145,6146, & - 6146,6147,6148,6149,6150,6150,6151,6152,6152,6153,6154,6155, & - 6155,6156,6156,6157,6158,6158,6159,6160,6160,6161,6162,6162, & - 6163,6163,6164,6164,6165,6165,6166,6166,6167,6167,6168,6169, & - 6170,6170,6171,6171,6172,6172,6173,6174,6174,6175,6176,6177, & - 6178,6178,6179,6180,6180,6181,6182,6182,6183,6184,6185,6186, & - 6187,6187,6188,6189,6189,6190,6191,6192,6192,6193,6193,6194, & - 6194,6195,6196,6197,6198,6198,6199,6200,6200,6201,6202,6202, & - 6203,6204,6204,6205,6205,6206,6206,6207,6207,6208,6208,6209, & - 6209,6210,6211,6212,6212,6213,6213,6214,6214,6215,6216,6216, & - 6217,6218,6218,6219,6220,6221,6222,6222,6223,6224,6224,6225, & - 6226,6226,6227,6228,6229,6230,6230,6231,6232,6233,6233,6234, & - 6235,6236,6237,6237,6238,6239,6239,6240,6240,6241,6241,6242, & - 6242,6243,6243,6244,6245,6245,6246,6247,6248,6249,6249,6250, & - 6250,6251,6251,6252,6253,6253,6254,6255,6255,6256,6257,6257, & - 6258,6259,6259,6260,6261,6261,6262,6263,6264,6265,6265,6266, & - 6267,6267,6268,6269,6269,6270,6271,6272,6273,6273,6274,6275, & - 6276,6276,6277,6278,6279,6279,6280,6280,6281,6281,6282,6282, & - 6283,6283,6284,6285,6285,6286,6287,6288,6289,6289,6290,6290, & - 6291,6292,6293,6294,6294,6295,6296,6296,6297,6297,6298,6299, & - 6299,6300,6300,6301,6301,6302,6303,6304,6304,6305,6306,6306, & - 6307,6308,6308,6309,6310,6310,6311,6312,6312,6313,6314,6315 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_28 = (/ & - 6316,6316,6317,6318,6318,6319,6320,6320,6321,6322,6323,6324, & - 6325,6325,6326,6327,6328,6328,6329,6330,6331,6332,6332,6333, & - 6334,6334,6335,6335,6336,6336,6337,6337,6338,6338,6339,6340, & - 6340,6341,6342,6343,6344,6344,6345,6345,6346,6346,6347,6348, & - 6348,6349,6349,6350,6350,6351,6352,6353,6354,6354,6355,6355, & - 6356,6356,6357,6357,6358,6358,6359,6360,6361,6361,6362,6362, & - 6363,6363,6364,6364,6365,6366,6366,6367,6368,6368,6369,6370, & - 6370,6371,6372,6373,6374,6374,6375,6376,6376,6377,6378,6378, & - 6379,6380,6381,6382,6383,6383,6384,6385,6385,6386,6387,6387, & - 6388,6389,6390,6391,6391,6392,6393,6393,6394,6395,6396,6396, & - 6397,6397,6398,6398,6399,6399,6400,6401,6402,6403,6403,6404, & - 6404,6405,6405,6406,6406,6407,6407,6408,6409,6409,6410,6411, & - 6412,6413,6413,6414,6415,6415,6416,6417,6418,6418,6419,6419, & - 6420,6420,6421,6421,6422,6422,6423,6423,6424,6425,6425,6426, & - 6427,6427,6428,6429,6429,6430,6431,6431,6432,6432,6433,6433, & - 6434,6434,6435,6435,6436,6436,6437,6438,6439,6439,6440,6440, & - 6441,6441,6442,6443,6444,6444,6445,6445,6446,6446,6447,6448, & - 6449,6450,6450,6451,6452,6453,6454,6454,6455,6456,6456,6457, & - 6458,6458,6459,6460,6461,6462,6462,6463,6464,6464,6465,6466, & - 6466,6467,6467,6468,6468,6469,6470,6471,6472,6472,6473,6473, & - 6474,6474,6475,6475,6476,6476,6477,6477,6478,6479,6480,6481, & - 6482,6483,6484,6484,6485,6485,6486,6486,6487,6488,6489,6490, & - 6490,6491,6491,6492,6492,6493,6493,6494,6494,6495,6495,6496, & - 6497,6498,6499,6500,6501,6502,6502,6503,6503,6504,6504,6505, & - 6505,6506,6507,6508,6509,6510,6511,6512,6513,6513,6514,6514, & - 6515,6515,6516,6516,6517,6518,6519,6520,6520,6521,6521,6522, & - 6522,6523,6524,6525,6526,6526,6527,6527,6528,6528,6529,6529, & - 6530,6530,6531,6532,6533,6534,6535,6536,6537,6537,6538,6538, & - 6539,6539,6540,6540,6541,6542,6543,6544,6544,6545,6545,6546, & - 6546,6547,6547,6548,6548,6549,6549,6550,6551,6552,6553,6554 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_29 = (/ & - 6555,6556,6556,6557,6557,6558,6558,6559,6560,6561,6562,6562, & - 6563,6564,6564,6565,6566,6567,6567,6568,6568,6569,6569,6570, & - 6571,6572,6572,6573,6574,6575,6575,6576,6577,6578,6578,6579, & - 6579,6580,6581,6581,6582,6582,6583,6584,6585,6585,6586,6586, & - 6587,6587,6588,6589,6590,6591,6592,6592,6593,6593,6594,6594, & - 6595,6595,6596,6596,6597,6597,6598,6599,6600,6600,6601,6601, & - 6602,6602,6603,6603,6604,6604,6605,6605,6606,6607,6608,6609, & - 6610,6610,6611,6611,6612,6612,6613,6613,6614,6614,6615,6615, & - 6616,6616,6617,6617,6618,6618,6619,6620,6620,6621,6621,6622, & - 6623,6623,6624,6624,6625,6625,6626,6626,6627,6628,6628,6629, & - 6630,6630,6631,6631,6632,6632,6633,6634,6635,6636,6636,6637, & - 6637,6638,6638,6639,6640,6641,6641,6642,6642,6643,6643,6644, & - 6644,6645,6645,6646,6646,6647,6648,6649,6650,6651,6651,6652, & - 6652,6653,6653,6654,6654,6655,6655,6656,6656,6657,6657,6658, & - 6659,6659,6660,6660,6661,6661,6662,6663,6663,6664,6664,6665, & - 6665,6666,6667,6668,6668,6669,6669,6670,6670,6671,6671,6672, & - 6672,6673,6674,6675,6676,6677,6677,6678,6678,6679,6679,6680, & - 6680,6681,6682,6683,6683,6684,6684,6685,6685,6686,6686,6687, & - 6687,6688,6689,6689,6690,6691,6692,6693,6693,6694,6694,6695, & - 6695,6696,6696,6697,6698,6699,6699,6700,6701,6701,6702,6703, & - 6704,6704,6705,6706,6706,6707,6708,6708,6709,6710,6710,6711, & - 6712,6713,6713,6714,6715,6716,6717,6717,6718,6719,6719,6720, & - 6721,6721,6722,6723,6723,6724,6724,6725,6726,6726,6727,6728, & - 6729,6730,6730,6731,6731,6732,6732,6733,6733,6734,6735,6736, & - 6737,6737,6738,6738,6739,6739,6740,6740,6741,6742,6743,6744, & - 6744,6745,6745,6746,6746,6747,6748,6749,6750,6750,6751,6751, & - 6752,6752,6753,6753,6754,6754,6755,6756,6757,6758,6758,6759, & - 6759,6760,6760,6761,6761,6762,6762,6763,6763,6764,6764,6765, & - 6766,6767,6768,6768,6769,6769,6770,6770,6771,6771,6772,6772, & - 6773,6774,6775,6776,6776,6777,6777,6778,6778,6779,6779,6780 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_30 = (/ & - 6780,6781,6782,6783,6784,6784,6785,6785,6786,6786,6787,6787, & - 6788,6788,6789,6789,6790,6791,6792,6792,6793,6793,6794,6794, & - 6795,6796,6797,6798,6798,6799,6799,6800,6800,6801,6802,6803, & - 6804,6804,6805,6805,6806,6806,6807,6808,6809,6810,6810,6811, & - 6811,6812,6812,6813,6814,6814,6815,6815,6816,6816,6817,6818, & - 6819,6820,6820,6821,6821,6822,6822,6823,6824,6825,6826,6826, & - 6827,6827,6828,6828,6829,6829,6830,6830,6831,6831,6832,6833, & - 6834,6834,6835,6835,6836,6836,6837,6838,6838,6839,6839,6840, & - 6840,6841,6842,6842,6843,6843,6844,6844,6845,6846,6847,6848, & - 6848,6849,6849,6850,6850,6851,6851,6852,6853,6854,6855,6855, & - 6856,6856,6857,6857,6858,6858,6859,6860,6861,6862,6862,6863, & - 6863,6864,6864,6865,6866,6866,6867,6867,6868,6868,6869,6870, & - 6871,6872,6872,6873,6873,6874,6874,6875,6876,6876,6877,6877, & - 6878,6878,6879,6880,6881,6882,6882,6883,6883,6884,6884,6885, & - 6885,6886,6886,6887,6888,6888,6889,6889,6890,6890,6891,6892, & - 6892,6893,6893,6894,6894,6895,6896,6896,6897,6897,6898,6898, & - 6899,6900,6901,6902,6902,6903,6903,6904,6904,6905,6905,6906, & - 6906,6907,6907,6908,6909,6910,6910,6911,6911,6912,6912,6913, & - 6914,6915,6916,6916,6917,6917,6918,6918,6919,6920,6921,6922, & - 6922,6923,6923,6924,6924,6925,6925,6926,6927,6927,6928,6928, & - 6929,6929,6930,6931,6931,6932,6932,6933,6933,6934,6934,6935, & - 6935,6936,6936,6937,6938,6939,6939,6940,6941,6942,6942,6943, & - 6944,6944,6945,6946,6947,6948,6949,6949,6950,6951,6951,6952, & - 6953,6954,6954,6955,6956,6956,6957,6957,6958,6959,6959,6960, & - 6961,6962,6962,6963,6964,6964,6965,6965,6966,6967,6967,6968, & - 6968,6969,6969,6970,6970,6971,6971,6972,6973,6974,6975,6975, & - 6976,6976,6977,6977,6978,6978,6979,6979,6980,6981,6981,6982, & - 6983,6983,6984,6985,6986,6987,6987,6988,6988,6989,6989,6990, & - 6991,6991,6992,6993,6994,6994,6995,6995,6996,6996,6997,6998, & - 6998,6999,7000,7001,7001,7002,7002,7003,7004,7005,7005,7006 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_31 = (/ & - 7006,7007,7007,7008,7008,7009,7009,7010,7010,7011,7012,7013, & - 7014,7014,7015,7015,7016,7016,7017,7017,7018,7018,7019,7020, & - 7020,7021,7021,7022,7022,7023,7023,7024,7024,7025,7025,7026, & - 7027,7027,7028,7029,7030,7031,7031,7032,7033,7033,7034,7035, & - 7035,7036,7037,7038,7039,7039,7040,7041,7041,7042,7043,7043, & - 7044,7045,7045,7046,7047,7048,7048,7049,7049,7050,7050,7051, & - 7052,7052,7053,7053,7054,7054,7055,7055,7056,7056,7057,7057, & - 7058,7058,7059,7060,7061,7061,7062,7062,7063,7063,7064,7064, & - 7065,7065,7066,7066,7067,7067,7068,7068,7069,7069,7070,7070, & - 7071,7071,7072,7073,7074,7074,7075,7075,7076,7076,7077,7078, & - 7079,7080,7081,7081,7082,7082,7083,7083,7084,7084,7085,7085, & - 7086,7086,7087,7088,7088,7089,7089,7090,7090,7091,7091,7092, & - 7093,7094,7094,7095,7095,7096,7096,7097,7097,7098,7098,7099, & - 7100,7100,7101,7101,7102,7102,7103,7103,7104,7105,7106,7106, & - 7107,7108,7109,7109,7110,7110,7111,7111,7112,7112,7113,7114, & - 7115,7115,7116,7117,7118,7119,7119,7120,7121,7121,7122,7123, & - 7123,7124,7125,7126,7127,7127,7128,7129,7129,7130,7131,7132, & - 7133,7133,7134,7134,7135,7135,7136,7136,7137,7137,7138,7139, & - 7140,7140,7141,7142,7142,7143,7144,7145,7145,7146,7146,7147, & - 7147,7148,7148,7149,7149,7150,7150,7151,7152,7152,7153,7153, & - 7154,7155,7156,7157,7157,7158,7159,7159,7160,7161,7161,7162, & - 7163,7163,7164,7165,7166,7166,7167,7168,7168,7169,7169,7170, & - 7170,7171,7171,7172,7172,7173,7173,7174,7174,7175,7175,7176, & - 7176,7177,7178,7178,7179,7180,7180,7181,7181,7182,7183,7183, & - 7184,7185,7185,7186,7187,7187,7188,7189,7189,7190,7191,7191, & - 7192,7193,7193,7194,7195,7195,7196,7197,7197,7198,7199,7199, & - 7200,7200,7201,7201,7202,7203,7203,7204,7205,7205,7206,7206, & - 7207,7208,7208,7209,7210,7210,7211,7211,7212,7213,7213,7214, & - 7215,7216,7216,7217,7217,7218,7218,7219,7220,7221,7221,7222, & - 7222,7223,7223,7224,7224,7225,7226,7226,7227,7228,7228,7229 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_32 = (/ & - 7229,7230,7230,7231,7231,7232,7232,7233,7233,7234,7235,7235, & - 7236,7236,7237,7237,7238,7239,7240,7241,7241,7242,7242,7243, & - 7243,7244,7245,7245,7246,7246,7247,7247,7248,7249,7249,7250, & - 7251,7252,7252,7253,7254,7254,7255,7256,7256,7257,7258,7258, & - 7259,7260,7260,7261,7262,7262,7263,7264,7264,7265,7266,7266, & - 7267,7268,7268,7269,7269,7270,7271,7271,7272,7273,7273,7274, & - 7275,7275,7276,7277,7278,7279,7279,7280,7281,7281,7282,7283, & - 7283,7284,7285,7285,7286,7286,7287,7288,7288,7289,7290,7291, & - 7291,7292,7292,7293,7293,7294,7295,7295,7296,7296,7297,7298, & - 7298,7299,7300,7300,7301,7302,7302,7303,7304,7305,7305,7306, & - 7306,7307,7307,7308,7308,7309,7309,7310,7310,7311,7311,7312, & - 7313,7314,7314,7315,7315,7316,7316,7317,7317,7318,7319,7319, & - 7320,7321,7321,7322,7322,7323,7323,7324,7324,7325,7326,7326, & - 7327,7328,7328,7329,7330,7330,7331,7332,7333,7334,7334,7335, & - 7336,7336,7337,7338,7338,7339,7340,7340,7341,7342,7343,7343, & - 7344,7344,7345,7345,7346,7347,7347,7348,7348,7349,7350,7350, & - 7351,7352,7353,7353,7354,7354,7355,7356,7356,7357,7357,7358, & - 7359,7359,7360,7361,7361,7362,7362,7363,7364,7364,7365,7365, & - 7366,7366,7367,7368,7369,7369,7370,7371,7371,7372,7373,7373, & - 7374,7375,7375,7376,7377,7378,7378,7379,7379,7380,7381,7381, & - 7382,7382,7383,7384,7385,7385,7386,7387,7387,7388,7389,7389, & - 7390,7391,7391,7392,7392,7393,7394,7394,7395,7396,7397,7397, & - 7398,7398,7399,7399,7400,7401,7401,7402,7403,7403,7404,7405, & - 7406,7406,7407,7407,7408,7408,7409,7410,7410,7411,7412,7412, & - 7413,7414,7414,7415,7415,7416,7417,7417,7418,7419,7420,7420, & - 7421,7421,7422,7422,7423,7424,7425,7425,7426,7427,7428,7428, & - 7429,7430,7430,7431,7432,7432,7433,7434,7435,7435,7436,7436, & - 7437,7438,7438,7439,7440,7440,7441,7441,7442,7443,7443,7444, & - 7445,7446,7446,7447,7447,7448,7448,7449,7449,7450,7451,7451, & - 7452,7453,7453,7454,7455,7456,7456,7457,7457,7458,7458,7459 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_33 = (/ & - 7460,7460,7461,7462,7462,7463,7464,7464,7465,7465,7466,7467, & - 7467,7468,7469,7470,7470,7471,7471,7472,7472,7473,7474,7474, & - 7475,7476,7476,7477,7478,7479,7480,7480,7481,7481,7482,7483, & - 7483,7484,7485,7486,7486,7487,7488,7488,7489,7489,7490,7491, & - 7491,7492,7493,7494,7494,7495,7495,7496,7496,7497,7497,7498, & - 7499,7499,7500,7501,7501,7502,7503,7503,7504,7504,7505,7506, & - 7506,7507,7508,7509,7509,7510,7510,7511,7511,7512,7513,7513, & - 7514,7515,7515,7516,7517,7517,7518,7518,7519,7520,7520,7521, & - 7522,7522,7523,7524,7524,7525,7525,7526,7526,7527,7528,7528, & - 7529,7530,7530,7531,7532,7532,7533,7534,7534,7535,7536,7536, & - 7537,7538,7538,7539,7540,7540,7541,7542,7543,7543,7544,7545, & - 7545,7546,7547,7547,7548,7549,7549,7550,7551,7552,7552,7553, & - 7554,7554,7555,7556,7557,7558,7558,7559,7559,7560,7561,7561, & - 7562,7563,7563,7564,7565,7565,7566,7566,7567,7567,7568,7569, & - 7570,7570,7571,7572,7572,7573,7573,7574,7575,7575,7576,7577, & - 7577,7578,7579,7579,7580,7580,7581,7582,7582,7583,7584,7584, & - 7585,7586,7586,7587,7588,7588,7589,7589,7590,7591,7591,7592, & - 7593,7594,7594,7595,7596,7596,7597,7598,7598,7599,7600,7600, & - 7601,7601,7602,7603,7603,7604,7605,7606,7606,7607,7608,7608, & - 7609,7610,7610,7611,7612,7612,7613,7613,7614,7615,7615,7616, & - 7617,7618,7618,7619,7620,7620,7621,7622,7622,7623,7624,7624, & - 7625,7625,7626,7627,7627,7628,7629,7630,7630,7631,7632,7632, & - 7633,7634,7634,7635,7636,7636,7637,7637,7638,7639,7639,7640, & - 7641,7641,7642,7643,7643,7644,7645,7646,7646,7647,7647,7648, & - 7648,7649,7650,7650,7651,7652,7652,7653,7653,7654,7655,7655, & - 7656,7657,7657,7658,7659,7660,7660,7661,7662,7662,7663,7664, & - 7664,7665,7666,7666,7667,7668,7668,7669,7669,7670,7671,7671, & - 7672,7673,7673,7674,7675,7676,7676,7677,7678,7679,7679,7680, & - 7681,7681,7682,7682,7683,7684,7684,7685,7686,7686,7687,7688, & - 7689,7690,7690,7691,7692,7692,7693,7694,7694,7695,7696,7697 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_34 = (/ & - 7697,7698,7699,7700,7701,7701,7702,7702,7703,7704,7704,7705, & - 7706,7706,7707,7708,7708,7709,7709,7710,7711,7711,7712,7713, & - 7713,7714,7715,7715,7716,7717,7717,7718,7718,7719,7720,7721, & - 7722,7722,7723,7723,7724,7725,7725,7726,7727,7727,7728,7729, & - 7730,7730,7731,7732,7733,7733,7734,7735,7735,7736,7737,7738, & - 7738,7739,7740,7741,7741,7742,7743,7743,7744,7745,7745,7746, & - 7746,7747,7748,7749,7749,7750,7751,7751,7752,7753,7753,7754, & - 7754,7755,7756,7757,7758,7758,7759,7760,7760,7761,7762,7762, & - 7763,7763,7764,7764,7765,7766,7767,7768,7768,7769,7769,7770, & - 7770,7771,7772,7773,7774,7774,7775,7776,7776,7777,7778,7779, & - 7780,7781,7781,7782,7783,7783,7784,7785,7785,7786,7787,7787, & - 7788,7789,7789,7790,7791,7792,7793,7793,7794,7795,7795,7796, & - 7796,7797,7798,7799,7800,7800,7801,7802,7802,7803,7804,7804, & - 7805,7805,7806,7806,7807,7807,7808,7808,7809,7809,7810,7810, & - 7811,7812,7812,7813,7813,7814,7814,7815,7816,7816,7817,7817, & - 7818,7818,7819,7819,7820,7820,7821,7822,7822,7823,7823,7824, & - 7824,7825,7825,7826,7826,7827,7828,7828,7829,7830,7830,7831, & - 7831,7832,7832,7833,7833,7834,7834,7835,7835,7836,7837,7838, & - 7839,7840,7840,7841,7841,7842,7842,7843,7844,7845,7845,7846, & - 7846,7847,7847,7848,7849,7850,7851,7851,7852,7852,7853,7853, & - 7854,7855,7856,7857,7857,7858,7858,7859,7859,7860,7861,7862, & - 7863,7864,7864,7865,7866,7866,7867,7868,7869,7869,7870,7870, & - 7871,7871,7872,7873,7873,7874,7875,7875,7876,7876,7877,7877, & - 7878,7878,7879,7879,7880,7880,7881,7882,7883,7884,7885,7886, & - 7887,7887,7888,7888,7889,7889,7890,7891,7892,7892,7893,7893, & - 7894,7894,7895,7896,7896,7897,7897,7898,7898,7899,7900,7901, & - 7902,7902,7903,7903,7904,7904,7905,7906,7907,7907,7908,7909, & - 7909,7910,7911,7911,7912,7913,7913,7914,7915,7916,7917,7918, & - 7919,7919,7920,7921,7922,7922,7923,7924,7924,7925,7925,7926, & - 7926,7927,7928,7928,7929,7929,7930,7930,7931,7931,7932,7932 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_35 = (/ & - 7933,7933,7934,7934,7935,7936,7936,7937,7937,7938,7939,7939, & - 7940,7941,7941,7942,7943,7943,7944,7944,7945,7945,7946,7946, & - 7947,7948,7949,7949,7950,7950,7951,7951,7952,7953,7953,7954, & - 7954,7955,7955,7956,7957,7958,7959,7959,7960,7960,7961,7961, & - 7962,7963,7964,7964,7965,7965,7966,7966,7967,7968,7968,7969, & - 7969,7970,7970,7971,7972,7972,7973,7973,7974,7974,7975,7976, & - 7977,7978,7979,7979,7980,7981,7982,7982,7983,7984,7984,7985, & - 7986,7986,7987,7988,7988,7989,7990,7990,7991,7992,7993,7994, & - 7994,7995,7995,7996,7996,7997,7998,7998,7999,7999,8000,8000, & - 8001,8001,8002,8002,8003,8003,8004,8004,8005,8006,8006,8007, & - 8008,8008,8009,8009,8010,8011,8011,8012,8013,8013,8014,8015, & - 8015,8016,8016,8017,8017,8018,8018,8019,8020,8021,8022,8022, & - 8023,8023,8024,8024,8025,8026,8026,8027,8027,8028,8028,8029, & - 8029,8030,8030,8031,8031,8032,8032,8033,8034,8034,8035,8035, & - 8036,8037,8037,8038,8039,8039,8040,8040,8041,8041,8042,8043, & - 8043,8044,8045,8045,8046,8046,8047,8047,8048,8048,8049,8049, & - 8050,8050,8051,8051,8052,8053,8053,8054,8055,8055,8056,8056, & - 8057,8057,8058,8059,8060,8061,8061,8062,8062,8063,8063,8064, & - 8065,8065,8066,8066,8067,8067,8068,8069,8070,8071,8071,8072, & - 8072,8073,8073,8074,8075,8076,8077,8078,8079,8079,8080,8081, & - 8082,8082,8083,8084,8084,8085,8086,8086,8087,8088,8089,8089, & - 8090,8090,8091,8091,8092,8093,8093,8094,8095,8096,8096,8097, & - 8098,8098,8099,8099,8100,8101,8101,8102,8102,8103,8103,8104, & - 8105,8105,8106,8106,8107,8107,8108,8108,8109,8109,8110,8110, & - 8111,8111,8112,8113,8113,8114,8115,8116,8117,8118,8119,8119, & - 8120,8120,8121,8121,8122,8123,8124,8125,8125,8126,8126,8127, & - 8127,8128,8129,8129,8130,8130,8131,8131,8132,8133,8134,8135, & - 8135,8136,8136,8137,8137,8138,8139,8140,8141,8142,8143,8143, & - 8144,8145,8146,8146,8147,8148,8148,8149,8150,8150,8151,8152, & - 8153,8153,8154,8154,8155,8155,8156,8157,8157,8158,8158,8159 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_36 = (/ & - 8159,8160,8161,8162,8163,8163,8164,8164,8165,8165,8166,8167, & - 8167,8168,8169,8169,8170,8170,8171,8171,8172,8172,8173,8173, & - 8174,8174,8175,8175,8176,8177,8177,8178,8179,8179,8180,8180, & - 8181,8181,8182,8183,8184,8185,8185,8186,8186,8187,8187,8188, & - 8189,8189,8190,8190,8191,8191,8192,8193,8194,8195,8195,8196, & - 8196,8197,8197,8198,8199,8200,8201,8202,8203,8203,8204,8205, & - 8206,8206,8207,8208,8208,8209,8210,8210,8211,8212,8213,8213, & - 8214,8214,8215,8215,8216,8217,8217,8218,8218,8219,8220,8220, & - 8221,8222,8222,8223,8224,8224,8225,8225,8226,8226,8227,8228, & - 8228,8229,8229,8230,8230,8231,8231,8232,8232,8233,8234,8234, & - 8235,8235,8236,8236,8237,8237,8238,8238,8239,8239,8240,8241, & - 8242,8242,8243,8243,8244,8244,8245,8246,8247,8247,8248,8248, & - 8249,8249,8250,8251,8251,8252,8253,8253,8254,8254,8255,8255, & - 8256,8257,8258,8258,8259,8259,8260,8260,8261,8262,8262,8263, & - 8263,8264,8264,8265,8266,8267,8267,8268,8268,8269,8269,8270, & - 8271,8272,8272,8273,8274,8274,8275,8276,8276,8277,8278,8278, & - 8279,8280,8281,8282,8282,8283,8283,8284,8285,8285,8286,8287, & - 8287,8288,8289,8289,8290,8291,8292,8292,8293,8293,8294,8294, & - 8295,8296,8297,8297,8298,8299,8299,8300,8300,8301,8301,8302, & - 8303,8303,8304,8304,8305,8305,8306,8306,8307,8307,8308,8308, & - 8309,8309,8310,8311,8311,8312,8313,8313,8314,8314,8315,8316, & - 8316,8317,8318,8318,8319,8320,8320,8321,8322,8323,8323,8324, & - 8325,8326,8326,8327,8328,8328,8329,8330,8330,8331,8332,8332, & - 8333,8334,8334,8335,8336,8337,8338,8338,8339,8340,8340,8341, & - 8342,8342,8343,8344,8345,8346,8346,8347,8348,8348,8349,8350, & - 8350,8351,8352,8352,8353,8354,8354,8355,8356,8356,8357,8358, & - 8359,8360,8361,8362,8362,8363,8364,8364,8365,8365,8366,8366, & - 8367,8368,8368,8369,8369,8370,8370,8371,8371,8372,8372,8373, & - 8373,8374,8374,8375,8376,8377,8378,8378,8379,8379,8380,8380, & - 8381,8381,8382,8382,8383,8384,8384,8385,8385,8386,8386,8387 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_37 = (/ & - 8387,8388,8388,8389,8389,8390,8390,8391,8392,8392,8393,8393, & - 8394,8394,8395,8396,8397,8398,8398,8399,8399,8400,8400,8401, & - 8402,8402,8403,8403,8404,8404,8405,8405,8406,8406,8407,8407, & - 8408,8408,8409,8410,8410,8411,8412,8413,8414,8414,8415,8416, & - 8416,8417,8418,8418,8419,8419,8420,8420,8421,8421,8422,8422, & - 8423,8423,8424,8425,8426,8426,8427,8427,8428,8428,8429,8430, & - 8431,8431,8432,8432,8433,8433,8434,8435,8435,8436,8436,8437, & - 8437,8438,8439,8440,8441,8441,8442,8442,8443,8443,8444,8445, & - 8446,8446,8447,8448,8449,8449,8450,8451,8452,8453,8453,8454, & - 8455,8455,8456,8457,8457,8458,8459,8459,8460,8460,8461,8461, & - 8462,8463,8463,8464,8465,8465,8466,8466,8467,8468,8469,8469, & - 8470,8471,8471,8472,8473,8473,8474,8475,8475,8476,8477,8477, & - 8478,8479,8479,8480,8481,8482,8483,8483,8484,8485,8485,8486, & - 8487,8488,8489,8489,8490,8491,8492,8493,8493,8494,8495,8496, & - 8496,8497,8498,8498,8499,8499,8500,8501,8501,8502,8503,8503, & - 8504,8504,8505,8505,8506,8506,8507,8507,8508,8509,8510,8511, & - 8512,8512,8513,8514,8515,8515,8516,8517,8517,8518,8518,8519, & - 8519,8520,8521,8521,8522,8523,8523,8524,8524,8525,8525,8526, & - 8526,8527,8527,8528,8529,8530,8531,8531,8532,8532,8533,8534, & - 8535,8535,8536,8537,8537,8538,8538,8539,8539,8540,8540,8541, & - 8541,8542,8542,8543,8544,8545,8545,8546,8547,8547,8548,8549, & - 8549,8550,8551,8551,8552,8553,8554,8555,8555,8556,8557,8558, & - 8558,8559,8560,8560,8561,8561,8562,8562,8563,8563,8564,8564, & - 8565,8566,8567,8567,8568,8568,8569,8569,8570,8570,8571,8571, & - 8572,8573,8574,8574,8575,8575,8576,8576,8577,8578,8578,8579, & - 8580,8580,8581,8581,8582,8582,8583,8583,8584,8584,8585,8586, & - 8587,8587,8588,8589,8589,8590,8590,8591,8592,8592,8593,8593, & - 8594,8594,8595,8595,8596,8596,8597,8598,8599,8599,8600,8600, & - 8601,8601,8602,8603,8604,8605,8606,8606,8607,8608,8609,8610, & - 8611,8611,8612,8612,8613,8614,8615,8615,8616,8616,8617,8617 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_38 = (/ & - 8618,8619,8620,8620,8621,8622,8623,8623,8624,8625,8625,8626, & - 8626,8627,8627,8628,8628,8629,8629,8630,8630,8631,8632,8633, & - 8634,8634,8635,8635,8636,8636,8637,8637,8638,8639,8640,8640, & - 8641,8641,8642,8642,8643,8643,8644,8644,8645,8646,8647,8648, & - 8649,8649,8650,8650,8651,8651,8652,8652,8653,8654,8655,8656, & - 8656,8657,8657,8658,8658,8659,8660,8661,8662,8662,8663,8663, & - 8664,8664,8665,8665,8666,8666,8667,8667,8668,8669,8670,8670, & - 8671,8672,8673,8674,8675,8675,8676,8676,8677,8678,8679,8680, & - 8680,8681,8681,8682,8682,8683,8684,8685,8685,8686,8686,8687, & - 8687,8688,8689,8689,8690,8691,8691,8692,8692,8693,8693,8694, & - 8694,8695,8695,8696,8696,8697,8698,8699,8700,8700,8701,8701, & - 8702,8702,8703,8703,8704,8705,8705,8706,8706,8707,8707,8708, & - 8708,8709,8710,8711,8712,8713,8714,8714,8715,8715,8716,8716, & - 8717,8717,8718,8719,8720,8720,8721,8721,8722,8722,8723,8724, & - 8725,8725,8726,8726,8727,8727,8728,8728,8729,8729,8730,8730, & - 8731,8731,8732,8733,8733,8734,8734,8735,8735,8736,8736,8737, & - 8737,8738,8739,8740,8740,8741,8742,8742,8743,8744,8744,8745, & - 8745,8746,8747,8747,8748,8749,8749,8750,8751,8751,8752,8752, & - 8753,8753,8754,8754,8755,8755,8756,8756,8757,8758,8759,8760, & - 8761,8761,8762,8762,8763,8764,8764,8765,8766,8767,8768,8768, & - 8769,8769,8770,8770,8771,8771,8772,8773,8773,8774,8775,8776, & - 8776,8777,8777,8778,8779,8779,8780,8780,8781,8781,8782,8783, & - 8784,8784,8785,8785,8786,8787,8787,8788,8788,8789,8789,8790, & - 8791,8791,8792,8792,8793,8794,8795,8795,8796,8796,8797,8797, & - 8798,8798,8799,8799,8800,8800,8801,8802,8803,8804,8804,8805, & - 8806,8806,8807,8808,8809,8809,8810,8810,8811,8812,8813,8813, & - 8814,8815,8815,8816,8816,8817,8818,8819,8819,8820,8821,8821, & - 8822,8822,8823,8823,8824,8825,8825,8826,8827,8827,8828,8828, & - 8829,8830,8831,8831,8832,8833,8833,8834,8834,8835,8836,8837, & - 8837,8838,8838,8839,8840,8840,8841,8841,8842,8843,8844,8844 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_39 = (/ & - 8845,8846,8846,8847,8848,8848,8849,8850,8851,8851,8852,8853, & - 8854,8855,8855,8856,8857,8858,8858,8859,8860,8861,8861,8862, & - 8862,8863,8864,8865,8865,8866,8867,8867,8868,8869,8869,8870, & - 8871,8872,8872,8873,8874,8874,8875,8875,8876,8877,8878,8878, & - 8879,8879,8880,8881,8882,8883,8884,8885,8885,8886,8887,8888, & - 8889,8889,8890,8891,8891,8892,8893,8893,8894,8894,8895,8896, & - 8896,8897,8898,8899,8900,8900,8901,8902,8902,8903,8904,8905, & - 8905,8906,8907,8907,8908,8908,8909,8910,8911,8912,8912,8913, & - 8913,8914,8915,8916,8916,8917,8918,8918,8919,8920,8920,8921, & - 8922,8923,8923,8924,8924,8925,8926,8927,8928,8928,8929,8930, & - 8930,8931,8932,8932,8933,8934,8934,8935,8936,8936,8937,8938, & - 8938,8939,8940,8941,8942,8942,8943,8943,8944,8945,8946,8946, & - 8947,8948,8948,8949,8949,8950,8951,8951,8952,8953,8953,8954, & - 8954,8955,8956,8957,8957,8958,8958,8959,8960,8961,8961,8962, & - 8963,8963,8964,8964,8965,8966,8967,8968,8968,8969,8970,8970, & - 8971,8972,8972,8973,8973,8974,8974,8975,8975,8976,8977,8978, & - 8978,8979,8980,8981,8981,8982,8983,8983,8984,8985,8985,8986, & - 8986,8987,8987,8988,8988,8989,8990,8991,8991,8992,8992,8993, & - 8993,8994,8994,8995,8995,8996,8996,8997,8998,8999,8999,9000, & - 9000,9001,9001,9002,9002,9003,9003,9004,9004,9005,9006,9007, & - 9007,9008,9008,9009,9009,9010,9011,9011,9012,9012,9013,9013, & - 9014,9015,9016,9016,9017,9017,9018,9018,9019,9019,9020,9020, & - 9021,9022,9022,9023,9023,9024,9024,9025,9026,9026,9027,9027, & - 9028,9028,9029,9029,9030,9031,9032,9032,9033,9034,9034,9035, & - 9036,9037,9037,9038,9038,9039,9040,9040,9041,9042,9042,9043, & - 9043,9044,9044,9045,9045,9046,9047,9048,9048,9049,9049,9050, & - 9050,9051,9051,9052,9053,9054,9055,9055,9056,9056,9057,9057, & - 9058,9058,9059,9060,9061,9062,9062,9063,9063,9064,9064,9065, & - 9065,9066,9066,9067,9068,9069,9069,9070,9071,9071,9072,9073, & - 9074,9074,9075,9075,9076,9076,9077,9078,9078,9079,9080,9080 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_40 = (/ & - 9081,9081,9082,9082,9083,9084,9085,9086,9086,9087,9087,9088, & - 9088,9089,9090,9090,9091,9091,9092,9092,9093,9093,9094,9095, & - 9096,9096,9097,9097,9098,9098,9099,9099,9100,9100,9101,9101, & - 9102,9103,9103,9104,9104,9105,9105,9106,9106,9107,9107,9108, & - 9108,9109,9110,9111,9111,9112,9112,9113,9113,9114,9114,9115, & - 9115,9116,9116,9117,9118,9119,9119,9120,9120,9121,9121,9122, & - 9123,9124,9125,9125,9126,9126,9127,9127,9128,9128,9129,9129, & - 9130,9131,9131,9132,9132,9133,9133,9134,9135,9135,9136,9136, & - 9137,9137,9138,9139,9139,9140,9141,9141,9142,9143,9143,9144, & - 9144,9145,9145,9146,9147,9148,9149,9150,9151,9152,9152,9153, & - 9153,9154,9154,9155,9155,9156,9157,9158,9158,9159,9159,9160, & - 9160,9161,9161,9162,9163,9164,9165,9165,9166,9167,9167,9168, & - 9169,9169,9170,9171,9172,9172,9173,9173,9174,9174,9175,9175, & - 9176,9176,9177,9178,9178,9179,9179,9180,9180,9181,9182,9183, & - 9184,9184,9185,9185,9186,9186,9187,9187,9188,9188,9189,9189, & - 9190,9191,9192,9192,9193,9193,9194,9194,9195,9196,9197,9198, & - 9198,9199,9199,9200,9200,9201,9202,9203,9204,9204,9205,9205, & - 9206,9206,9207,9208,9209,9210,9210,9211,9211,9212,9212,9213, & - 9213,9214,9215,9216,9217,9217,9218,9219,9219,9220,9221,9221, & - 9222,9222,9223,9224,9224,9225,9226,9226,9227,9227,9228,9228, & - 9229,9229,9230,9231,9232,9233,9233,9234,9234,9235,9235,9236, & - 9236,9237,9238,9238,9239,9240,9240,9241,9242,9242,9243,9243, & - 9244,9244,9245,9245,9246,9246,9247,9247,9248,9248,9249,9250, & - 9251,9251,9252,9252,9253,9253,9254,9254,9255,9255,9256,9256, & - 9257,9258,9259,9259,9260,9260,9261,9261,9262,9262,9263,9264, & - 9264,9265,9265,9266,9266,9267,9268,9269,9270,9270,9271,9272, & - 9272,9273,9274,9274,9275,9275,9276,9276,9277,9277,9278,9278, & - 9279,9280,9281,9281,9282,9282,9283,9283,9284,9285,9286,9286, & - 9287,9287,9288,9289,9290,9291,9291,9292,9292,9293,9293,9294, & - 9294,9295,9296,9297,9297,9298,9298,9299,9299,9300,9300,9301 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_41 = (/ & - 9302,9303,9304,9304,9305,9305,9306,9306,9307,9308,9308,9309, & - 9309,9310,9310,9311,9311,9312,9313,9314,9315,9315,9316,9316, & - 9317,9317,9318,9319,9320,9320,9321,9321,9322,9322,9323,9323, & - 9324,9325,9326,9326,9327,9327,9328,9328,9329,9329,9330,9331, & - 9332,9333,9334,9335,9336,9337,9338,9339,9339,9340,9340,9341, & - 9341,9342,9342,9343,9344,9345,9345,9346,9346,9347,9347,9348, & - 9348,9349,9350,9351,9352,9352,9353,9353,9354,9354,9355,9355, & - 9356,9356,9357,9358,9358,9359,9359,9360,9360,9361,9361,9362, & - 9362,9363,9364,9364,9365,9366,9366,9367,9368,9368,9369,9369, & - 9370,9371,9372,9373,9373,9374,9374,9375,9376,9376,9377,9378, & - 9379,9379,9380,9381,9382,9382,9383,9383,9384,9384,9385,9385, & - 9386,9386,9387,9387,9388,9389,9390,9390,9391,9391,9392,9392, & - 9393,9394,9394,9395,9396,9396,9397,9398,9398,9399,9400,9400, & - 9401,9402,9402,9403,9404,9405,9405,9406,9407,9408,9408,9409, & - 9409,9410,9410,9411,9411,9412,9412,9413,9413,9414,9414,9415, & - 9415,9416,9417,9418,9419,9419,9420,9420,9421,9421,9422,9422, & - 9423,9423,9424,9424,9425,9425,9426,9427,9427,9428,9428,9429, & - 9429,9430,9430,9431,9432,9433,9434,9435,9435,9436,9436,9437, & - 9437,9438,9438,9439,9439,9440,9440,9441,9441,9442,9442,9443, & - 9444,9445,9445,9446,9446,9447,9447,9448,9448,9449,9450,9451, & - 9452,9452,9453,9453,9454,9454,9455,9455,9456,9456,9457,9457, & - 9458,9458,9459,9460,9461,9462,9462,9463,9463,9464,9464,9465, & - 9465,9466,9466,9467,9467,9468,9469,9470,9470,9471,9471,9472, & - 9472,9473,9474,9475,9476,9476,9477,9477,9478,9478,9479,9479, & - 9480,9480,9481,9482,9482,9483,9483,9484,9484,9485,9485,9486, & - 9486,9487,9487,9488,9489,9490,9490,9491,9491,9492,9492,9493, & - 9493,9494,9495,9496,9497,9497,9498,9498,9499,9499,9500,9500, & - 9501,9502,9503,9504,9505,9505,9506,9506,9507,9507,9508,9508, & - 9509,9509,9510,9510,9511,9511,9512,9512,9513,9514,9515,9515, & - 9516,9516,9517,9517,9518,9518,9519,9520,9521,9521,9522,9522 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_42 = (/ & - 9523,9523,9524,9525,9526,9527,9527,9528,9528,9529,9529,9530, & - 9531,9532,9532,9533,9533,9534,9534,9535,9535,9536,9536,9537, & - 9537,9538,9539,9540,9540,9541,9541,9542,9542,9543,9543,9544, & - 9545,9546,9547,9547,9548,9548,9549,9549,9550,9550,9551,9551, & - 9552,9552,9553,9554,9555,9555,9556,9556,9557,9557,9558,9558, & - 9559,9559,9560,9560,9561,9562,9563,9564,9564,9565,9565,9566, & - 9567,9568,9568,9569,9569,9570,9570,9571,9571,9572,9572,9573, & - 9574,9574,9575,9575,9576,9576,9577,9578,9578,9579,9579,9580, & - 9580,9581,9581,9582,9583,9584,9585,9585,9586,9586,9587,9587, & - 9588,9589,9590,9591,9592,9592,9593,9593,9594,9595,9596,9596, & - 9597,9597,9598,9598,9599,9599,9600,9600,9601,9602,9602,9603, & - 9603,9604,9604,9605,9605,9606,9607,9608,9609,9609,9610,9610, & - 9611,9611,9612,9612,9613,9613,9614,9614,9615,9616,9617,9617, & - 9618,9618,9619,9619,9620,9620,9621,9622,9623,9624,9625,9625, & - 9626,9626,9627,9627,9628,9628,9629,9630,9630,9631,9631,9632, & - 9632,9633,9633,9634,9635,9636,9637,9638,9638,9639,9639,9640, & - 9640,9641,9641,9642,9643,9643,9644,9644,9645,9645,9646,9647, & - 9647,9648,9648,9649,9649,9650,9650,9651,9652,9653,9654,9655, & - 9655,9656,9656,9657,9657,9658,9658,9659,9660,9660,9661,9661, & - 9662,9662,9663,9664,9664,9665,9665,9666,9666,9667,9667,9668, & - 9669,9670,9671,9672,9672,9673,9673,9674,9674,9675,9675,9676, & - 9677,9677,9678,9678,9679,9679,9680,9681,9681,9682,9682,9683, & - 9683,9684,9684,9685,9686,9687,9688,9689,9689,9690,9690,9691, & - 9691,9692,9692,9693,9694,9694,9695,9695,9696,9696,9697,9697, & - 9698,9699,9700,9701,9702,9703,9703,9704,9704,9705,9705,9706, & - 9707,9707,9708,9709,9709,9710,9711,9711,9712,9713,9714,9715, & - 9715,9716,9716,9717,9718,9719,9720,9720,9721,9721,9722,9722, & - 9723,9723,9724,9725,9726,9726,9727,9728,9729,9729,9730,9730, & - 9731,9731,9732,9732,9733,9734,9734,9735,9735,9736,9736,9737, & - 9737,9738,9738,9739,9740,9740,9741,9741,9742,9742,9743,9744 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_43 = (/ & - 9744,9745,9745,9746,9746,9747,9748,9748,9749,9750,9750,9751, & - 9751,9752,9752,9753,9754,9754,9755,9755,9756,9756,9757,9758, & - 9759,9760,9760,9761,9761,9762,9762,9763,9764,9764,9765,9765, & - 9766,9766,9767,9768,9769,9770,9770,9771,9771,9772,9772,9773, & - 9773,9774,9774,9775,9776,9776,9777,9777,9778,9778,9779,9780, & - 9780,9781,9781,9782,9782,9783,9784,9784,9785,9786,9787,9788, & - 9788,9789,9790,9791,9791,9792,9793,9794,9794,9795,9796,9796, & - 9797,9797,9798,9799,9800,9800,9801,9802,9802,9803,9804,9804, & - 9805,9806,9807,9807,9808,9808,9809,9809,9810,9811,9811,9812, & - 9812,9813,9813,9814,9814,9815,9816,9817,9817,9818,9819,9820, & - 9820,9821,9821,9822,9823,9824,9825,9826,9826,9827,9828,9828, & - 9829,9829,9830,9830,9831,9831,9832,9833,9833,9834,9835,9836, & - 9837,9837,9838,9839,9839,9840,9841,9842,9842,9843,9843,9844, & - 9845,9846,9846,9847,9848,9848,9849,9849,9850,9851,9852,9852, & - 9853,9853,9854,9854,9855,9855,9856,9856,9857,9857,9858,9859, & - 9859,9860,9860,9861,9861,9862,9863,9863,9864,9864,9865,9865, & - 9866,9867,9868,9869,9869,9870,9870,9871,9871,9872,9873,9873, & - 9874,9874,9875,9875,9876,9877,9877,9878,9879,9879,9880,9881, & - 9882,9883,9883,9884,9885,9885,9886,9887,9888,9888,9889,9889, & - 9890,9891,9892,9892,9893,9894,9894,9895,9895,9896,9897,9898, & - 9898,9899,9899,9900,9901,9902,9902,9903,9904,9905,9906,9906, & - 9907,9908,9909,9909,9910,9910,9911,9911,9912,9912,9913,9913, & - 9914,9914,9915,9915,9916,9917,9917,9918,9918,9919,9919,9920, & - 9921,9921,9922,9922,9923,9923,9924,9925,9926,9926,9927,9927, & - 9928,9928,9929,9930,9930,9931,9931,9932,9932,9933,9934,9934, & - 9935,9936,9936,9937,9937,9938,9938,9939,9940,9941,9942,9943, & - 9943,9944,9945,9945,9946,9947,9948,9948,9949,9949,9950,9950, & - 9951,9951,9952,9952,9953,9954,9954,9955,9955,9956,9956,9957, & - 9958,9958,9959,9959,9960,9960,9961,9962,9963,9963,9964,9964, & - 9965,9965,9966,9967,9967,9968,9968,9969,9969,9970,9971,9971 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_44 = (/ & - 9972,9973,9973,9974,9974,9975,9975,9976,9976,9977,9977,9978, & - 9979,9979,9980,9980,9981,9981,9982,9983,9983,9984,9984,9985, & - 9985,9986,9987,9988,9989,9989,9990,9990,9991,9991,9992,9993, & - 9993,9994,9994,9995,9995,9996,9997,9997,9998,9999,9999,10000, & - 10001,10002,10003,10003,10004,10005,10005,10006,10007,10008,10008,10009, & - 10010,10011,10012,10012,10013,10013,10014,10015,10015,10016,10017,10018, & - 10018,10019,10019,10020,10020,10021,10021,10022,10022,10023,10023,10024, & - 10024,10025,10026,10026,10027,10028,10029,10029,10030,10030,10031,10031, & - 10032,10033,10033,10034,10034,10035,10035,10036,10036,10037,10037,10038, & - 10039,10039,10040,10040,10041,10041,10042,10043,10043,10044,10044,10045, & - 10045,10046,10047,10048,10049,10049,10050,10050,10051,10051,10052,10053, & - 10053,10054,10054,10055,10055,10056,10057,10057,10058,10059,10059,10060, & - 10061,10062,10062,10063,10063,10064,10065,10066,10067,10067,10068,10069, & - 10069,10070,10071,10072,10073,10073,10074,10074,10075,10076,10076,10077, & - 10078,10079,10079,10080,10080,10081,10081,10082,10082,10083,10083,10084, & - 10084,10085,10085,10086,10087,10087,10088,10089,10090,10090,10091,10092, & - 10093,10093,10094,10094,10095,10095,10096,10097,10097,10098,10098,10099, & - 10099,10100,10100,10101,10101,10102,10103,10103,10104,10104,10105,10105, & - 10106,10107,10107,10108,10108,10109,10109,10110,10111,10112,10113,10113, & - 10114,10114,10115,10115,10116,10117,10117,10118,10118,10119,10119,10120, & - 10121,10121,10122,10123,10123,10124,10125,10126,10126,10127,10127,10128, & - 10129,10130,10131,10131,10132,10133,10133,10134,10135,10136,10137,10137, & - 10138,10138,10139,10140,10140,10141,10142,10143,10143,10144,10144,10145, & - 10145,10146,10146,10147,10147,10148,10148,10149,10149,10150,10151,10151, & - 10152,10153,10154,10155,10156,10156,10157,10157,10158,10158,10159,10159, & - 10160,10160,10161,10162,10162,10163,10163,10164,10164,10165,10166,10166, & - 10167,10167,10168,10168,10169,10170,10170,10171,10172,10172,10173,10174, & - 10175,10175,10176,10177,10177,10178,10179,10180,10180,10181,10182,10182, & - 10183,10184,10185,10185,10186,10187,10188,10188,10189,10189,10190,10191, & - 10192,10192,10193,10194,10195,10195,10196,10196,10197,10198,10199,10199 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_45 = (/ & - 10200,10200,10201,10201,10202,10203,10204,10205,10206,10206,10207,10208, & - 10208,10209,10209,10210,10210,10211,10211,10212,10212,10213,10214,10214, & - 10215,10215,10216,10216,10217,10218,10218,10219,10219,10220,10220,10221, & - 10222,10223,10223,10224,10224,10225,10225,10226,10227,10227,10228,10228, & - 10229,10229,10230,10231,10231,10232,10233,10233,10234,10234,10235,10235, & - 10236,10236,10237,10238,10238,10239,10239,10240,10240,10241,10241,10242, & - 10242,10243,10244,10244,10245,10245,10246,10246,10247,10248,10248,10249, & - 10249,10250,10250,10251,10252,10253,10254,10254,10255,10255,10256,10256, & - 10257,10258,10258,10259,10259,10260,10260,10261,10262,10262,10263,10264, & - 10264,10265,10265,10266,10266,10267,10267,10268,10268,10269,10270,10270, & - 10271,10271,10272,10272,10273,10274,10274,10275,10275,10276,10276,10277, & - 10278,10279,10279,10280,10280,10281,10281,10282,10283,10283,10284,10284, & - 10285,10285,10286,10287,10287,10288,10289,10289,10290,10291,10292,10293, & - 10293,10294,10295,10296,10296,10297,10298,10298,10299,10299,10300,10300, & - 10301,10301,10302,10302,10303,10304,10304,10305,10305,10306,10306,10307, & - 10308,10308,10309,10309,10310,10310,10311,10312,10313,10313,10314,10314, & - 10315,10315,10316,10317,10317,10318,10318,10319,10319,10320,10321,10321, & - 10322,10323,10324,10325,10325,10326,10327,10328,10328,10329,10330,10330, & - 10331,10332,10333,10333,10334,10335,10335,10336,10337,10338,10338,10339, & - 10339,10340,10341,10342,10342,10343,10344,10344,10345,10345,10346,10347, & - 10348,10348,10349,10349,10350,10351,10351,10352,10352,10353,10353,10354, & - 10354,10355,10356,10357,10357,10358,10358,10359,10359,10360,10360,10361, & - 10361,10362,10362,10363,10363,10364,10365,10365,10366,10367,10367,10368, & - 10369,10369,10370,10370,10371,10372,10373,10374,10374,10375,10375,10376, & - 10376,10377,10377,10378,10378,10379,10379,10380,10381,10382,10382,10383, & - 10383,10384,10384,10385,10385,10386,10387,10388,10388,10389,10390,10391, & - 10392,10393,10393,10394,10394,10395,10395,10396,10396,10397,10398,10399, & - 10399,10400,10400,10401,10401,10402,10402,10403,10404,10404,10405,10406, & - 10407,10407,10408,10408,10409,10409,10410,10411,10411,10412,10413,10413, & - 10414,10415,10415,10416,10416,10417,10418,10418,10419,10420,10421,10421 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_46 = (/ & - 10422,10422,10423,10423,10424,10424,10425,10425,10426,10426,10427,10428, & - 10429,10429,10430,10430,10431,10431,10432,10433,10433,10434,10434,10435, & - 10436,10436,10437,10438,10438,10439,10439,10440,10440,10441,10441,10442, & - 10443,10444,10445,10445,10446,10446,10447,10447,10448,10449,10450,10450, & - 10451,10452,10453,10454,10454,10455,10455,10456,10456,10457,10458,10458, & - 10459,10460,10461,10462,10462,10463,10464,10464,10465,10466,10466,10467, & - 10467,10468,10469,10470,10470,10471,10472,10473,10473,10474,10474,10475, & - 10475,10476,10477,10478,10478,10479,10479,10480,10480,10481,10481,10482, & - 10482,10483,10484,10484,10485,10485,10486,10487,10488,10489,10489,10490, & - 10491,10492,10492,10493,10493,10494,10495,10495,10496,10497,10497,10498, & - 10499,10499,10500,10500,10501,10502,10502,10503,10503,10504,10504,10505, & - 10505,10506,10506,10507,10507,10508,10509,10510,10510,10511,10511,10512, & - 10512,10513,10514,10514,10515,10516,10517,10517,10518,10519,10519,10520, & - 10520,10521,10521,10522,10522,10523,10523,10524,10524,10525,10525,10526, & - 10526,10527,10527,10528,10528,10529,10529,10530,10531,10531,10532,10532, & - 10533,10533,10534,10534,10535,10535,10536,10537,10538,10539,10539,10540, & - 10540,10541,10541,10542,10543,10543,10544,10544,10545,10546,10546,10547, & - 10547,10548,10549,10550,10550,10551,10551,10552,10553,10554,10554,10555, & - 10555,10556,10556,10557,10557,10558,10558,10559,10560,10560,10561,10561, & - 10562,10562,10563,10563,10564,10565,10566,10567,10567,10568,10568,10569, & - 10569,10570,10570,10571,10571,10572,10572,10573,10573,10574,10575,10576, & - 10576,10577,10577,10578,10578,10579,10579,10580,10580,10581,10581,10582, & - 10583,10584,10584,10585,10585,10586,10586,10587,10588,10588,10589,10589, & - 10590,10590,10591,10592,10592,10593,10593,10594,10594,10595,10595,10596, & - 10596,10597,10597,10598,10599,10600,10600,10601,10601,10602,10602,10603, & - 10604,10604,10605,10605,10606,10606,10607,10608,10608,10609,10610,10610, & - 10611,10612,10613,10613,10614,10615,10615,10616,10616,10617,10617,10618, & - 10619,10619,10620,10621,10621,10622,10623,10624,10624,10625,10626,10627, & - 10628,10628,10629,10630,10630,10631,10632,10632,10633,10634,10634,10635, & - 10636,10636,10637,10638,10638,10639,10640,10640,10641,10642,10643,10643 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_47 = (/ & - 10644,10645,10646,10646,10647,10648,10648,10649,10650,10650,10651,10652, & - 10652,10653,10654,10655,10655,10656,10657,10657,10658,10659,10659,10660, & - 10660,10661,10662,10662,10663,10664,10665,10665,10666,10667,10667,10668, & - 10669,10669,10670,10671,10672,10672,10673,10673,10674,10674,10675,10676, & - 10676,10677,10678,10679,10680,10680,10681,10681,10682,10683,10683,10684, & - 10684,10685,10685,10686,10686,10687,10687,10688,10688,10689,10689,10690, & - 10691,10692,10692,10693,10694,10694,10695,10696,10697,10697,10698,10698, & - 10699,10699,10700,10700,10701,10701,10702,10703,10704,10704,10705,10706, & - 10707,10707,10708,10708,10709,10709,10710,10710,10711,10712,10713,10713, & - 10714,10714,10715,10715,10716,10716,10717,10717,10718,10718,10719,10720, & - 10721,10721,10722,10722,10723,10723,10724,10724,10725,10726,10727,10728, & - 10728,10729,10730,10730,10731,10732,10732,10733,10733,10734,10734,10735, & - 10735,10736,10737,10738,10738,10739,10739,10740,10741,10742,10742,10743, & - 10743,10744,10744,10745,10745,10746,10747,10748,10748,10749,10749,10750, & - 10750,10751,10751,10752,10753,10754,10754,10755,10756,10756,10757,10758, & - 10758,10759,10760,10761,10762,10762,10763,10763,10764,10765,10765,10766, & - 10767,10767,10768,10769,10770,10770,10771,10772,10772,10773,10773,10774, & - 10775,10775,10776,10777,10777,10778,10779,10780,10780,10781,10782,10783, & - 10784,10784,10785,10786,10787,10787,10788,10788,10789,10789,10790,10790, & - 10791,10792,10793,10794,10794,10795,10795,10796,10796,10797,10798,10799, & - 10800,10800,10801,10801,10802,10802,10803,10803,10804,10805,10806,10806, & - 10807,10808,10808,10809,10810,10810,10811,10811,10812,10813,10814,10814, & - 10815,10815,10816,10817,10818,10818,10819,10820,10820,10821,10821,10822, & - 10823,10823,10824,10825,10825,10826,10827,10828,10829,10829,10830,10831, & - 10831,10832,10833,10833,10834,10835,10836,10837,10837,10838,10839,10839, & - 10840,10841,10841,10842,10843,10844,10845,10845,10846,10847,10847,10848, & - 10849,10849,10850,10851,10851,10852,10853,10854,10854,10855,10855,10856, & - 10856,10857,10858,10859,10859,10860,10860,10861,10861,10862,10862,10863, & - 10864,10864,10865,10866,10867,10868,10868,10869,10869,10870,10871,10871, & - 10872,10873,10873,10874,10875,10876,10876,10877,10878,10878,10879,10879 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_48 = (/ & - 10880,10881,10881,10882,10883,10884,10884,10885,10885,10886,10887,10888, & - 10888,10889,10889,10890,10890,10891,10891,10892,10892,10893,10893,10894, & - 10894,10895,10896,10897,10897,10898,10898,10899,10899,10900,10900,10901, & - 10902,10903,10904,10904,10905,10905,10906,10906,10907,10907,10908,10909, & - 10909,10910,10910,10911,10911,10912,10913,10914,10915,10915,10916,10917, & - 10917,10918,10919,10919,10920,10920,10921,10922,10922,10923,10924,10925, & - 10925,10926,10926,10927,10927,10928,10929,10929,10930,10931,10931,10932, & - 10933,10934,10934,10935,10935,10936,10937,10938,10938,10939,10939,10940, & - 10940,10941,10941,10942,10942,10943,10944,10945,10946,10946,10947,10948, & - 10948,10949,10950,10950,10951,10951,10952,10953,10954,10954,10955,10956, & - 10956,10957,10958,10958,10959,10960,10960,10961,10962,10962,10963,10964, & - 10964,10965,10965,10966,10966,10967,10967,10968,10968,10969,10969,10970, & - 10970,10971,10971,10972,10973,10974,10974,10975,10975,10976,10976,10977, & - 10978,10978,10979,10979,10980,10980,10981,10982,10982,10983,10983,10984, & - 10984,10985,10986,10986,10987,10988,10988,10989,10990,10990,10991,10991, & - 10992,10993,10994,10994,10995,10996,10996,10997,10997,10998,10998,10999, & - 10999,11000,11000,11001,11001,11002,11003,11004,11004,11005,11005,11006, & - 11006,11007,11007,11008,11008,11009,11009,11010,11011,11012,11012,11013, & - 11014,11014,11015,11016,11016,11017,11017,11018,11018,11019,11019,11020, & - 11020,11021,11021,11022,11022,11023,11024,11025,11026,11026,11027,11028, & - 11028,11029,11030,11030,11031,11032,11032,11033,11034,11035,11035,11036, & - 11036,11037,11037,11038,11038,11039,11039,11040,11040,11041,11041,11042, & - 11043,11044,11044,11045,11046,11046,11047,11048,11048,11049,11050,11050, & - 11051,11051,11052,11053,11053,11054,11054,11055,11055,11056,11056,11057, & - 11057,11058,11058,11059,11059,11060,11061,11062,11062,11063,11063,11064, & - 11064,11065,11066,11067,11068,11068,11069,11070,11070,11071,11072,11073, & - 11073,11074,11074,11075,11076,11076,11077,11078,11078,11079,11080,11081, & - 11081,11082,11082,11083,11084,11085,11085,11086,11087,11087,11088,11089, & - 11089,11090,11091,11091,11092,11092,11093,11094,11094,11095,11096,11096, & - 11097,11098,11098,11099,11100,11100,11101,11102,11103,11103,11104,11104 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_49 = (/ & - 11105,11106,11106,11107,11108,11108,11109,11110,11110,11111,11112,11113, & - 11113,11114,11115,11115,11116,11116,11117,11117,11118,11118,11119,11119, & - 11120,11120,11121,11121,11122,11123,11124,11124,11125,11126,11126,11127, & - 11128,11128,11129,11130,11130,11131,11132,11132,11133,11134,11135,11135, & - 11136,11137,11137,11138,11139,11140,11140,11141,11142,11142,11143,11144, & - 11145,11145,11146,11147,11148,11148,11149,11149,11150,11151,11151,11152, & - 11153,11153,11154,11155,11155,11156,11156,11157,11158,11158,11159,11160, & - 11160,11161,11162,11162,11163,11163,11164,11164,11165,11166,11166,11167, & - 11168,11168,11169,11169,11170,11171,11171,11172,11173,11173,11174,11174, & - 11175,11175,11176,11176,11177,11177,11178,11179,11180,11181,11181,11182, & - 11182,11183,11183,11184,11185,11186,11187,11187,11188,11188,11189,11189, & - 11190,11191,11192,11193,11194,11195,11195,11196,11197,11198,11198,11199, & - 11200,11201,11201,11202,11203,11203,11204,11205,11206,11206,11207,11208, & - 11208,11209,11210,11211,11211,11212,11212,11213,11214,11215,11215,11216, & - 11217,11217,11218,11218,11219,11219,11220,11220,11221,11221,11222,11223, & - 11224,11224,11225,11225,11226,11226,11227,11228,11229,11229,11230,11230, & - 11231,11231,11232,11233,11234,11235,11236,11236,11237,11238,11239,11239, & - 11240,11240,11241,11242,11242,11243,11244,11244,11245,11246,11246,11247, & - 11247,11248,11248,11249,11250,11250,11251,11252,11252,11253,11254,11254, & - 11255,11256,11256,11257,11258,11259,11259,11260,11261,11261,11262,11262, & - 11263,11263,11264,11264,11265,11266,11267,11268,11269,11269,11270,11271, & - 11272,11272,11273,11274,11274,11275,11276,11277,11277,11278,11279,11279, & - 11280,11280,11281,11281,11282,11282,11283,11284,11285,11286,11287,11287, & - 11288,11289,11290,11290,11291,11292,11293,11293,11294,11295,11295,11296, & - 11297,11298,11298,11299,11300,11300,11301,11301,11302,11302,11303,11303, & - 11304,11305,11306,11307,11308,11308,11309,11310,11311,11311,11312,11313, & - 11314,11314,11315,11316,11316,11317,11318,11319,11319,11320,11321,11321, & - 11322,11322,11323,11323,11324,11324,11325,11326,11327,11328,11329,11329, & - 11330,11331,11332,11332,11333,11334,11335,11335,11336,11337,11337,11338, & - 11339,11340,11340,11341,11342,11342,11343,11343,11344,11344,11345,11345 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_50 = (/ & - 11346,11346,11347,11347,11348,11348,11349,11350,11351,11351,11352,11352, & - 11353,11353,11354,11355,11356,11357,11358,11358,11359,11360,11360,11361, & - 11362,11362,11363,11364,11365,11365,11366,11366,11367,11368,11369,11369, & - 11370,11370,11371,11372,11372,11373,11373,11374,11374,11375,11375,11376, & - 11376,11377,11378,11379,11380,11380,11381,11381,11382,11382,11383,11384, & - 11384,11385,11385,11386,11386,11387,11388,11388,11389,11390,11390,11391, & - 11392,11393,11393,11394,11395,11396,11396,11397,11398,11399,11399,11400, & - 11401,11402,11402,11403,11403,11404,11404,11405,11406,11407,11407,11408, & - 11409,11410,11410,11411,11411,11412,11412,11413,11413,11414,11414,11415, & - 11416,11416,11417,11417,11418,11418,11419,11420,11420,11421,11422,11422, & - 11423,11424,11425,11425,11426,11427,11428,11428,11429,11429,11430,11431, & - 11431,11432,11432,11433,11434,11434,11435,11436,11437,11437,11438,11438, & - 11439,11440,11440,11441,11441,11442,11442,11443,11444,11444,11445,11445, & - 11446,11446,11447,11448,11448,11449,11449,11450,11450,11451,11452,11452, & - 11453,11454,11454,11455,11456,11457,11457,11458,11459,11460,11460,11461, & - 11461,11462,11462,11463,11464,11465,11465,11466,11467,11468,11468,11469, & - 11470,11470,11471,11471,11472,11473,11473,11474,11474,11475,11475,11476, & - 11477,11477,11478,11478,11479,11480,11480,11481,11481,11482,11482,11483, & - 11484,11485,11485,11486,11486,11487,11487,11488,11489,11489,11490,11490, & - 11491,11491,11492,11493,11493,11494,11495,11495,11496,11497,11498,11498, & - 11499,11500,11501,11501,11502,11502,11503,11504,11505,11505,11506,11507, & - 11508,11508,11509,11509,11510,11510,11511,11512,11513,11513,11514,11514, & - 11515,11515,11516,11517,11517,11518,11518,11519,11519,11520,11521,11521, & - 11522,11523,11523,11524,11525,11526,11526,11527,11528,11529,11529,11530, & - 11530,11531,11532,11533,11533,11534,11535,11536,11536,11537,11537,11538, & - 11538,11539,11540,11540,11541,11541,11542,11542,11543,11544,11544,11545, & - 11546,11546,11547,11548,11549,11549,11550,11551,11552,11552,11553,11553, & - 11554,11554,11555,11556,11557,11557,11558,11559,11560,11560,11561,11562, & - 11563,11563,11564,11564,11565,11566,11566,11567,11567,11568,11569,11570, & - 11570,11571,11572,11572,11573,11574,11575,11575,11576,11576,11577,11577 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_51 = (/ & - 11578,11579,11579,11580,11580,11581,11581,11582,11583,11583,11584,11585, & - 11585,11586,11587,11588,11588,11589,11590,11591,11591,11592,11592,11593, & - 11593,11594,11595,11596,11596,11597,11598,11599,11599,11600,11600,11601, & - 11601,11602,11602,11603,11603,11604,11605,11605,11606,11606,11607,11608, & - 11608,11609,11609,11610,11611,11611,11612,11612,11613,11614,11615,11615, & - 11616,11617,11617,11618,11618,11619,11619,11620,11621,11621,11622,11622, & - 11623,11623,11624,11625,11625,11626,11627,11627,11628,11629,11630,11630, & - 11631,11632,11633,11633,11634,11634,11635,11635,11636,11637,11638,11638, & - 11639,11640,11641,11641,11642,11642,11643,11643,11644,11644,11645,11645, & - 11646,11647,11647,11648,11648,11649,11650,11650,11651,11651,11652,11653, & - 11653,11654,11654,11655,11656,11657,11657,11658,11659,11659,11660,11660, & - 11661,11661,11662,11662,11663,11663,11664,11665,11665,11666,11666,11667, & - 11667,11668,11669,11669,11670,11671,11671,11672,11673,11674,11674,11675, & - 11676,11677,11677,11678,11679,11679,11680,11680,11681,11681,11682,11683, & - 11683,11684,11684,11685,11685,11686,11687,11687,11688,11688,11689,11689, & - 11690,11691,11691,11692,11693,11693,11694,11695,11696,11696,11697,11698, & - 11699,11699,11700,11700,11701,11702,11703,11703,11704,11705,11706,11706, & - 11707,11707,11708,11708,11709,11710,11710,11711,11712,11713,11713,11714, & - 11714,11715,11715,11716,11717,11717,11718,11718,11719,11719,11720,11721, & - 11721,11722,11723,11723,11724,11725,11726,11726,11727,11728,11729,11729, & - 11730,11730,11731,11731,11732,11733,11734,11734,11735,11736,11737,11737, & - 11738,11738,11739,11739,11740,11741,11741,11742,11742,11743,11743,11744, & - 11745,11745,11746,11747,11747,11748,11749,11750,11750,11751,11752,11753, & - 11753,11754,11754,11755,11756,11757,11757,11758,11759,11760,11760,11761, & - 11761,11762,11762,11763,11764,11764,11765,11765,11766,11766,11767,11768, & - 11768,11769,11770,11770,11771,11772,11773,11773,11774,11775,11776,11776, & - 11777,11777,11778,11779,11780,11780,11781,11782,11783,11783,11784,11784, & - 11785,11786,11786,11787,11787,11788,11788,11789,11790,11790,11791,11791, & - 11792,11793,11794,11795,11795,11796,11797,11797,11798,11798,11799,11799, & - 11800,11800,11801,11801,11802,11802,11803,11803,11804,11805,11806,11806 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_52 = (/ & - 11807,11808,11808,11809,11810,11810,11811,11811,11812,11812,11813,11813, & - 11814,11814,11815,11816,11817,11818,11818,11819,11819,11820,11820,11821, & - 11821,11822,11823,11823,11824,11824,11825,11825,11826,11826,11827,11828, & - 11828,11829,11829,11830,11830,11831,11831,11832,11832,11833,11834,11834, & - 11835,11836,11837,11838,11838,11839,11840,11841,11841,11842,11843,11843, & - 11844,11845,11845,11846,11846,11847,11848,11848,11849,11849,11850,11850, & - 11851,11851,11852,11852,11853,11854,11854,11855,11856,11857,11858,11859, & - 11859,11860,11860,11861,11861,11862,11862,11863,11863,11864,11865,11865, & - 11866,11866,11867,11867,11868,11868,11869,11869,11870,11871,11871,11872, & - 11872,11873,11874,11874,11875,11875,11876,11876,11877,11877,11878,11878, & - 11879,11879,11880,11880,11881,11882,11883,11883,11884,11885,11885,11886, & - 11886,11887,11887,11888,11888,11889,11889,11890,11890,11891,11892,11893, & - 11893,11894,11894,11895,11895,11896,11896,11897,11897,11898,11898,11899, & - 11900,11901,11901,11902,11902,11903,11903,11904,11904,11905,11905,11906, & - 11906,11907,11907,11908,11909,11910,11910,11911,11912,11912,11913,11913, & - 11914,11915,11915,11916,11916,11917,11917,11918,11918,11919,11919,11920, & - 11920,11921,11921,11922,11923,11924,11924,11925,11925,11926,11926,11927, & - 11928,11928,11929,11929,11930,11930,11931,11931,11932,11932,11933,11933, & - 11934,11935,11936,11937,11938,11938,11939,11939,11940,11940,11941,11942, & - 11943,11944,11944,11945,11946,11946,11947,11948,11948,11949,11949,11950, & - 11951,11951,11952,11953,11954,11954,11955,11955,11956,11957,11958,11958, & - 11959,11959,11960,11961,11961,11962,11962,11963,11963,11964,11964,11965, & - 11965,11966,11967,11968,11969,11969,11970,11971,11971,11972,11972,11973, & - 11973,11974,11975,11976,11976,11977,11977,11978,11978,11979,11979,11980, & - 11980,11981,11981,11982,11982,11983,11983,11984,11985,11985,11986,11987, & - 11987,11988,11989,11989,11990,11990,11991,11992,11992,11993,11994,11994, & - 11995,11996,11996,11997,11998,11999,11999,12000,12001,12002,12003,12003, & - 12004,12005,12005,12006,12007,12007,12008,12008,12009,12010,12011,12011, & - 12012,12013,12014,12014,12015,12015,12016,12017,12017,12018,12018,12019, & - 12019,12020,12020,12021,12022,12023,12023,12024,12025,12026,12026,12027 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_53 = (/ & - 12027,12028,12028,12029,12029,12030,12031,12032,12033,12033,12034,12034, & - 12035,12035,12036,12036,12037,12037,12038,12038,12039,12040,12041,12041, & - 12042,12042,12043,12044,12044,12045,12045,12046,12046,12047,12048,12048, & - 12049,12049,12050,12050,12051,12051,12052,12053,12054,12054,12055,12055, & - 12056,12056,12057,12058,12058,12059,12059,12060,12060,12061,12062,12062, & - 12063,12063,12064,12064,12065,12065,12066,12067,12068,12068,12069,12069, & - 12070,12070,12071,12072,12073,12074,12074,12075,12075,12076,12076,12077, & - 12077,12078,12079,12080,12080,12081,12081,12082,12082,12083,12083,12084, & - 12084,12085,12085,12086,12087,12088,12088,12089,12089,12090,12090,12091, & - 12092,12093,12094,12094,12095,12096,12096,12097,12098,12098,12099,12099, & - 12100,12100,12101,12101,12102,12103,12104,12105,12105,12106,12107,12107, & - 12108,12108,12109,12109,12110,12111,12112,12113,12113,12114,12115,12115, & - 12116,12117,12118,12118,12119,12120,12120,12121,12122,12123,12123,12124, & - 12125,12125,12126,12127,12127,12128,12129,12129,12130,12131,12131,12132, & - 12133,12133,12134,12135,12136,12136,12137,12137,12138,12139,12139,12140, & - 12141,12142,12142,12143,12144,12144,12145,12145,12146,12146,12147,12147, & - 12148,12148,12149,12149,12150,12151,12152,12152,12153,12153,12154,12154, & - 12155,12155,12156,12157,12158,12159,12159,12160,12160,12161,12161,12162, & - 12163,12164,12164,12165,12166,12166,12167,12168,12168,12169,12170,12170, & - 12171,12172,12172,12173,12174,12175,12175,12176,12176,12177,12177,12178, & - 12178,12179,12179,12180,12180,12181,12182,12182,12183,12183,12184,12184, & - 12185,12185,12186,12187,12188,12189,12189,12190,12190,12191,12191,12192, & - 12192,12193,12193,12194,12194,12195,12196,12197,12197,12198,12198,12199, & - 12199,12200,12201,12201,12202,12202,12203,12203,12204,12204,12205,12205, & - 12206,12206,12207,12208,12209,12209,12210,12211,12211,12212,12213,12214, & - 12215,12215,12216,12217,12217,12218,12219,12219,12220,12221,12222,12223, & - 12223,12224,12225,12225,12226,12227,12227,12228,12228,12229,12229,12230, & - 12230,12231,12231,12232,12232,12233,12234,12235,12235,12236,12236,12237, & - 12237,12238,12238,12239,12239,12240,12240,12241,12242,12243,12243,12244, & - 12244,12245,12245,12246,12247,12248,12248,12249,12249,12250,12250,12251 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_54 = (/ & - 12251,12252,12252,12253,12253,12254,12255,12256,12256,12257,12257,12258, & - 12258,12259,12259,12260,12260,12261,12261,12262,12263,12264,12264,12265, & - 12265,12266,12266,12267,12267,12268,12268,12269,12270,12271,12272,12272, & - 12273,12273,12274,12275,12275,12276,12277,12277,12278,12279,12279,12280, & - 12281,12282,12282,12283,12283,12284,12284,12285,12286,12287,12287,12288, & - 12289,12289,12290,12290,12291,12291,12292,12292,12293,12293,12294,12295, & - 12296,12296,12297,12298,12298,12299,12299,12300,12300,12301,12301,12302, & - 12303,12304,12305,12305,12306,12307,12307,12308,12309,12310,12310,12311, & - 12311,12312,12312,12313,12314,12314,12315,12316,12316,12317,12318,12319, & - 12319,12320,12321,12322,12323,12323,12324,12325,12326,12326,12327,12328, & - 12328,12329,12330,12330,12331,12331,12332,12333,12333,12334,12335,12335, & - 12336,12337,12337,12338,12339,12339,12340,12341,12341,12342,12343,12344, & - 12344,12345,12345,12346,12347,12347,12348,12349,12349,12350,12350,12351, & - 12351,12352,12352,12353,12353,12354,12355,12356,12357,12358,12358,12359, & - 12359,12360,12360,12361,12361,12362,12362,12363,12364,12364,12365,12365, & - 12366,12366,12367,12367,12368,12368,12369,12370,12371,12371,12372,12372, & - 12373,12374,12374,12375,12376,12376,12377,12378,12378,12379,12380,12380, & - 12381,12382,12383,12383,12384,12385,12385,12386,12387,12388,12388,12389, & - 12390,12391,12391,12392,12393,12393,12394,12395,12396,12396,12397,12398, & - 12399,12399,12400,12401,12401,12402,12402,12403,12403,12404,12404,12405, & - 12405,12406,12406,12407,12408,12408,12409,12409,12410,12410,12411,12412, & - 12413,12414,12414,12415,12416,12416,12417,12418,12419,12419,12420,12421, & - 12422,12422,12423,12424,12425,12425,12426,12427,12428,12428,12429,12429, & - 12430,12431,12432,12432,12433,12434,12435,12435,12436,12436,12437,12437, & - 12438,12438,12439,12439,12440,12440,12441,12442,12442,12443,12443,12444, & - 12444,12445,12445,12446,12447,12448,12449,12450,12450,12451,12452,12453, & - 12453,12454,12455,12456,12456,12457,12457,12458,12458,12459,12459,12460, & - 12460,12461,12461,12462,12463,12464,12464,12465,12466,12467,12467,12468, & - 12469,12470,12470,12471,12471,12472,12472,12473,12473,12474,12474,12475, & - 12475,12476,12477,12478,12478,12479,12480,12481,12481,12482,12483,12484 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_55 = (/ & - 12484,12485,12485,12486,12486,12487,12487,12488,12488,12489,12489,12490, & - 12491,12492,12492,12493,12493,12494,12495,12495,12496,12497,12498,12498, & - 12499,12500,12501,12501,12502,12502,12503,12503,12504,12504,12505,12505, & - 12506,12506,12507,12508,12509,12509,12510,12510,12511,12512,12512,12513, & - 12513,12514,12515,12516,12517,12517,12518,12519,12520,12520,12521,12521, & - 12522,12522,12523,12523,12524,12524,12525,12525,12526,12527,12527,12528, & - 12529,12530,12530,12531,12531,12532,12532,12533,12534,12535,12535,12536, & - 12537,12538,12538,12539,12539,12540,12541,12541,12542,12542,12543,12543, & - 12544,12544,12545,12545,12546,12547,12547,12548,12549,12549,12550,12550, & - 12551,12551,12552,12552,12553,12553,12554,12555,12555,12556,12557,12558, & - 12558,12559,12560,12561,12561,12562,12562,12563,12563,12564,12564,12565, & - 12565,12566,12566,12567,12568,12568,12569,12570,12571,12571,12572,12573, & - 12574,12574,12575,12576,12577,12577,12578,12579,12579,12580,12580,12581, & - 12581,12582,12582,12583,12583,12584,12585,12585,12586,12586,12587,12587, & - 12588,12588,12589,12589,12590,12591,12591,12592,12592,12593,12593,12594, & - 12594,12595,12595,12596,12596,12597,12598,12599,12599,12600,12601,12602, & - 12603,12603,12604,12604,12605,12605,12606,12606,12607,12607,12608,12608, & - 12609,12610,12611,12611,12612,12613,12614,12614,12615,12615,12616,12617, & - 12618,12618,12619,12620,12621,12621,12622,12623,12623,12624,12624,12625, & - 12625,12626,12626,12627,12627,12628,12629,12629,12630,12631,12632,12632, & - 12633,12634,12635,12635,12636,12637,12638,12638,12639,12640,12640,12641, & - 12641,12642,12642,12643,12643,12644,12644,12645,12646,12646,12647,12648, & - 12649,12649,12650,12651,12652,12652,12653,12654,12654,12655,12655,12656, & - 12656,12657,12657,12658,12658,12659,12660,12660,12661,12661,12662,12662, & - 12663,12663,12664,12664,12665,12665,12666,12667,12667,12668,12669,12670, & - 12670,12671,12672,12673,12673,12674,12675,12675,12676,12676,12677,12677, & - 12678,12678,12679,12679,12680,12681,12681,12682,12682,12683,12684,12684, & - 12685,12686,12686,12687,12688,12689,12689,12690,12691,12692,12692,12693, & - 12694,12694,12695,12695,12696,12696,12697,12697,12698,12698,12699,12700, & - 12700,12701,12701,12702,12703,12703,12704,12705,12705,12706,12706,12707 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_56 = (/ & - 12707,12708,12709,12709,12710,12710,12711,12711,12712,12713,12714,12714, & - 12715,12716,12717,12717,12718,12719,12720,12720,12721,12721,12722,12723, & - 12724,12724,12725,12726,12727,12727,12728,12729,12730,12730,12731,12732, & - 12732,12733,12733,12734,12734,12735,12735,12736,12736,12737,12738,12738, & - 12739,12740,12741,12741,12742,12743,12744,12744,12745,12746,12747,12747, & - 12748,12749,12749,12750,12750,12751,12751,12752,12752,12753,12753,12754, & - 12755,12755,12756,12757,12758,12758,12759,12760,12761,12761,12762,12763, & - 12763,12764,12764,12765,12765,12766,12766,12767,12767,12768,12769,12769, & - 12770,12771,12772,12772,12773,12774,12775,12775,12776,12777,12777,12778, & - 12778,12779,12779,12780,12780,12781,12781,12782,12783,12783,12784,12784, & - 12785,12785,12786,12786,12787,12787,12788,12788,12789,12790,12791,12791, & - 12792,12793,12794,12794,12795,12795,12796,12796,12797,12798,12798,12799, & - 12800,12800,12801,12802,12802,12803,12804,12804,12805,12806,12806,12807, & - 12807,12808,12809,12810,12810,12811,12812,12812,12813,12813,12814,12814, & - 12815,12815,12816,12816,12817,12818,12818,12819,12819,12820,12820,12821, & - 12821,12822,12822,12823,12823,12824,12825,12826,12826,12827,12827,12828, & - 12828,12829,12829,12830,12830,12831,12831,12832,12833,12834,12834,12835, & - 12835,12836,12836,12837,12837,12838,12838,12839,12839,12840,12841,12842, & - 12843,12843,12844,12845,12845,12846,12846,12847,12848,12848,12849,12850, & - 12850,12851,12852,12852,12853,12854,12854,12855,12855,12856,12856,12857, & - 12857,12858,12858,12859,12859,12860,12861,12862,12862,12863,12863,12864, & - 12864,12865,12865,12866,12866,12867,12867,12868,12869,12870,12870,12871, & - 12871,12872,12872,12873,12874,12874,12875,12876,12876,12877,12877,12878, & - 12878,12879,12879,12880,12880,12881,12882,12883,12883,12884,12885,12885, & - 12886,12887,12887,12888,12888,12889,12890,12890,12891,12892,12892,12893, & - 12893,12894,12894,12895,12895,12896,12896,12897,12897,12898,12898,12899, & - 12900,12901,12901,12902,12903,12903,12904,12905,12905,12906,12906,12907, & - 12908,12908,12909,12910,12910,12911,12912,12912,12913,12913,12914,12914, & - 12915,12916,12916,12917,12917,12918,12918,12919,12920,12920,12921,12921, & - 12922,12923,12923,12924,12925,12926,12926,12927,12927,12928,12929,12930 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_57 = (/ & - 12930,12931,12931,12932,12932,12933,12934,12934,12935,12936,12936,12937, & - 12937,12938,12938,12939,12939,12940,12941,12941,12942,12943,12944,12945, & - 12945,12946,12947,12947,12948,12949,12949,12950,12950,12951,12951,12952, & - 12952,12953,12953,12954,12954,12955,12956,12957,12958,12958,12959,12960, & - 12960,12961,12961,12962,12962,12963,12963,12964,12964,12965,12965,12966, & - 12967,12967,12968,12968,12969,12969,12970,12971,12971,12972,12973,12973, & - 12974,12975,12975,12976,12976,12977,12977,12978,12978,12979,12979,12980, & - 12980,12981,12982,12983,12983,12984,12984,12985,12985,12986,12986,12987, & - 12987,12988,12989,12989,12990,12990,12991,12991,12992,12992,12993,12993, & - 12994,12995,12995,12996,12996,12997,12997,12998,12998,12999,12999,13000, & - 13001,13001,13002,13003,13003,13004,13005,13006,13006,13007,13008,13008, & - 13009,13009,13010,13010,13011,13012,13012,13013,13014,13014,13015,13016, & - 13017,13017,13018,13019,13019,13020,13021,13021,13022,13022,13023,13023, & - 13024,13024,13025,13026,13027,13028,13028,13029,13029,13030,13031,13031, & - 13032,13032,13033,13033,13034,13035,13035,13036,13037,13038,13038,13039, & - 13040,13040,13041,13042,13043,13043,13044,13045,13045,13046,13047,13048, & - 13048,13049,13049,13050,13050,13051,13051,13052,13052,13053,13053,13054, & - 13055,13056,13056,13057,13057,13058,13058,13059,13060,13061,13062,13062, & - 13063,13064,13064,13065,13066,13067,13067,13068,13069,13069,13070,13071, & - 13072,13072,13073,13074,13074,13075,13075,13076,13077,13077,13078,13079, & - 13080,13080,13081,13082,13082,13083,13083,13084,13085,13085,13086,13087, & - 13087,13088,13089,13090,13090,13091,13091,13092,13092,13093,13094,13094, & - 13095,13096,13097,13098,13098,13099,13100,13100,13101,13102,13103,13103, & - 13104,13104,13105,13105,13106,13106,13107,13107,13108,13109,13110,13110, & - 13111,13111,13112,13113,13113,13114,13114,13115,13115,13116,13117,13118, & - 13119,13119,13120,13120,13121,13121,13122,13122,13123,13123,13124,13125, & - 13125,13126,13127,13127,13128,13129,13129,13130,13131,13131,13132,13133, & - 13133,13134,13135,13136,13136,13137,13137,13138,13138,13139,13140,13140, & - 13141,13142,13143,13144,13144,13145,13146,13146,13147,13147,13148,13148, & - 13149,13150,13151,13152,13152,13153,13153,13154,13154,13155,13155,13156 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_58 = (/ & - 13157,13158,13158,13159,13159,13160,13160,13161,13161,13162,13163,13164, & - 13165,13165,13166,13167,13167,13168,13169,13170,13170,13171,13171,13172, & - 13173,13173,13174,13174,13175,13175,13176,13176,13177,13178,13179,13180, & - 13180,13181,13181,13182,13183,13183,13184,13185,13186,13186,13187,13187, & - 13188,13189,13189,13190,13191,13191,13192,13192,13193,13193,13194,13195, & - 13195,13196,13196,13197,13197,13198,13198,13199,13199,13200,13200,13201, & - 13202,13203,13203,13204,13204,13205,13206,13206,13207,13207,13208,13208, & - 13209,13209,13210,13211,13212,13213,13213,13214,13215,13216,13217,13217, & - 13218,13218,13219,13220,13220,13221,13222,13222,13223,13224,13225,13225, & - 13226,13226,13227,13227,13228,13229,13229,13230,13230,13231,13231,13232, & - 13232,13233,13234,13235,13236,13236,13237,13238,13238,13239,13239,13240, & - 13241,13241,13242,13242,13243,13243,13244,13244,13245,13246,13247,13248, & - 13248,13249,13250,13250,13251,13251,13252,13252,13253,13253,13254,13255, & - 13256,13256,13257,13258,13258,13259,13260,13261,13261,13262,13262,13263, & - 13263,13264,13264,13265,13265,13266,13267,13268,13268,13269,13269,13270, & - 13270,13271,13271,13272,13272,13273,13273,13274,13275,13276,13276,13277, & - 13278,13278,13279,13280,13281,13281,13282,13282,13283,13283,13284,13284, & - 13285,13286,13287,13287,13288,13288,13289,13289,13290,13290,13291,13292, & - 13293,13293,13294,13295,13295,13296,13297,13298,13299,13299,13300,13300, & - 13301,13301,13302,13302,13303,13304,13305,13305,13306,13306,13307,13307, & - 13308,13309,13309,13310,13310,13311,13311,13312,13313,13314,13314,13315, & - 13315,13316,13316,13317,13318,13318,13319,13320,13320,13321,13321,13322, & - 13322,13323,13323,13324,13324,13325,13325,13326,13326,13327,13328,13329, & - 13329,13330,13331,13332,13332,13333,13334,13334,13335,13335,13336,13336, & - 13337,13337,13338,13339,13339,13340,13340,13341,13341,13342,13343,13344, & - 13344,13345,13346,13346,13347,13348,13349,13349,13350,13351,13351,13352, & - 13352,13353,13353,13354,13355,13356,13356,13357,13358,13358,13359,13360, & - 13360,13361,13361,13362,13363,13363,13364,13365,13365,13366,13366,13367, & - 13367,13368,13368,13369,13370,13371,13371,13372,13373,13373,13374,13374, & - 13375,13375,13376,13376,13377,13378,13379,13379,13380,13381,13381,13382 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_59 = (/ & - 13382,13383,13383,13384,13384,13385,13386,13387,13387,13388,13389,13389, & - 13390,13390,13391,13391,13392,13392,13393,13394,13395,13395,13396,13397, & - 13397,13398,13398,13399,13399,13400,13400,13401,13402,13403,13403,13404, & - 13405,13405,13406,13407,13407,13408,13408,13409,13409,13410,13410,13411, & - 13411,13412,13413,13413,13414,13415,13415,13416,13417,13417,13418,13418, & - 13419,13419,13420,13420,13421,13421,13422,13423,13423,13424,13425,13425, & - 13426,13427,13428,13428,13429,13430,13430,13431,13432,13432,13433,13433, & - 13434,13434,13435,13435,13436,13436,13437,13438,13438,13439,13440,13440, & - 13441,13442,13442,13443,13444,13444,13445,13446,13446,13447,13447,13448, & - 13449,13449,13450,13451,13451,13452,13452,13453,13454,13454,13455,13456, & - 13456,13457,13458,13458,13459,13460,13460,13461,13462,13462,13463,13463, & - 13464,13464,13465,13465,13466,13466,13467,13468,13468,13469,13470,13470, & - 13471,13472,13472,13473,13473,13474,13474,13475,13475,13476,13476,13477, & - 13478,13478,13479,13480,13480,13481,13482,13483,13483,13484,13485,13485, & - 13486,13487,13487,13488,13488,13489,13489,13490,13490,13491,13491,13492, & - 13493,13493,13494,13495,13495,13496,13497,13498,13498,13499,13499,13500, & - 13500,13501,13501,13502,13502,13503,13504,13504,13505,13506,13506,13507, & - 13508,13509,13509,13510,13511,13512,13512,13513,13514,13515,13515,13516, & - 13516,13517,13518,13518,13519,13520,13520,13521,13522,13523,13523,13524, & - 13524,13525,13525,13526,13526,13527,13527,13528,13529,13529,13530,13531, & - 13531,13532,13533,13533,13534,13534,13535,13535,13536,13536,13537,13537, & - 13538,13539,13539,13540,13541,13541,13542,13543,13543,13544,13544,13545, & - 13545,13546,13546,13547,13547,13548,13549,13549,13550,13551,13551,13552, & - 13553,13553,13554,13554,13555,13556,13556,13557,13558,13558,13559,13560, & - 13561,13561,13562,13563,13563,13564,13564,13565,13565,13566,13566,13567, & - 13567,13568,13569,13569,13570,13570,13571,13571,13572,13573,13573,13574, & - 13575,13575,13576,13577,13577,13578,13578,13579,13580,13580,13581,13582, & - 13582,13583,13583,13584,13585,13585,13586,13587,13587,13588,13588,13589, & - 13590,13590,13591,13592,13592,13593,13594,13594,13595,13596,13596,13597, & - 13598,13598,13599,13600,13600,13601,13602,13603,13603,13604,13605,13605 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_60 = (/ & - 13606,13607,13607,13608,13608,13609,13610,13611,13612,13612,13613,13614, & - 13615,13616,13616,13617,13618,13618,13619,13620,13620,13621,13622,13622, & - 13623,13624,13624,13625,13625,13626,13627,13627,13628,13629,13630,13630, & - 13631,13632,13632,13633,13633,13634,13635,13636,13636,13637,13637,13638, & - 13639,13639,13640,13641,13641,13642,13643,13643,13644,13645,13645,13646, & - 13646,13647,13647,13648,13649,13649,13650,13651,13651,13652,13653,13653, & - 13654,13655,13655,13656,13656,13657,13657,13658,13659,13659,13660,13661, & - 13661,13662,13662,13663,13663,13664,13665,13666,13667,13667,13668,13669, & - 13670,13671,13671,13672,13673,13673,13674,13675,13676,13676,13677,13677, & - 13678,13679,13679,13680,13680,13681,13682,13683,13683,13684,13684,13685, & - 13685,13686,13687,13687,13688,13689,13689,13690,13690,13691,13691,13692, & - 13692,13693,13694,13695,13696,13696,13697,13697,13698,13698,13699,13700, & - 13700,13701,13702,13702,13703,13704,13704,13705,13706,13706,13707,13708, & - 13709,13709,13710,13711,13711,13712,13712,13713,13714,13714,13715,13715, & - 13716,13716,13717,13718,13719,13720,13720,13721,13721,13722,13722,13723, & - 13723,13724,13724,13725,13725,13726,13727,13728,13728,13729,13729,13730, & - 13731,13731,13732,13732,13733,13733,13734,13735,13736,13737,13737,13738, & - 13738,13739,13739,13740,13740,13741,13741,13742,13742,13743,13744,13745, & - 13745,13746,13746,13747,13747,13748,13749,13750,13751,13751,13752,13753, & - 13753,13754,13755,13755,13756,13757,13758,13758,13759,13760,13760,13761, & - 13761,13762,13762,13763,13763,13764,13764,13765,13765,13766,13767,13767, & - 13768,13768,13769,13769,13770,13771,13772,13773,13773,13774,13775,13776, & - 13777,13777,13778,13778,13779,13780,13780,13781,13782,13782,13783,13783, & - 13784,13784,13785,13786,13786,13787,13788,13788,13789,13789,13790,13790, & - 13791,13791,13792,13792,13793,13794,13794,13795,13795,13796,13796,13797, & - 13797,13798,13798,13799,13799,13800,13801,13802,13802,13803,13803,13804, & - 13804,13805,13805,13806,13807,13808,13809,13809,13810,13811,13812,13812, & - 13813,13813,13814,13814,13815,13815,13816,13817,13818,13818,13819,13820, & - 13820,13821,13822,13822,13823,13823,13824,13825,13825,13826,13827,13828, & - 13828,13829,13829,13830,13830,13831,13831,13832,13832,13833,13833,13834 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_61 = (/ & - 13835,13835,13836,13836,13837,13837,13838,13838,13839,13840,13841,13842, & - 13842,13843,13844,13844,13845,13846,13847,13847,13848,13849,13849,13850, & - 13850,13851,13852,13853,13854,13855,13855,13856,13856,13857,13858,13858, & - 13859,13860,13860,13861,13862,13862,13863,13864,13865,13865,13866,13866, & - 13867,13867,13868,13868,13869,13869,13870,13870,13871,13871,13872,13872, & - 13873,13874,13875,13875,13876,13876,13877,13877,13878,13878,13879,13880, & - 13881,13882,13882,13883,13884,13884,13885,13886,13887,13887,13888,13889, & - 13889,13890,13890,13891,13892,13892,13893,13894,13895,13895,13896,13896, & - 13897,13897,13898,13899,13899,13900,13901,13902,13902,13903,13903,13904, & - 13905,13905,13906,13907,13908,13908,13909,13909,13910,13910,13911,13912, & - 13912,13913,13913,13914,13914,13915,13915,13916,13917,13918,13919,13919, & - 13920,13921,13921,13922,13923,13923,13924,13924,13925,13925,13926,13926, & - 13927,13928,13929,13930,13930,13931,13932,13933,13933,13934,13934,13935, & - 13936,13936,13937,13938,13939,13939,13940,13940,13941,13942,13943,13943, & - 13944,13944,13945,13946,13947,13948,13948,13949,13950,13951,13951,13952, & - 13952,13953,13953,13954,13954,13955,13955,13956,13957,13958,13958,13959, & - 13960,13960,13961,13962,13963,13963,13964,13965,13966,13967,13967,13968, & - 13969,13970,13971,13971,13972,13973,13973,13974,13974,13975,13975,13976, & - 13977,13978,13978,13979,13980,13981,13981,13982,13983,13984,13984,13985, & - 13986,13987,13987,13988,13989,13990,13990,13991,13992,13992,13993,13994, & - 13994,13995,13996,13996,13997,13998,13998,13999,14000,14000,14001,14002, & - 14002,14003,14004,14004,14005,14005,14006,14007,14007,14008,14009,14009, & - 14010,14011,14011,14012,14013,14013,14014,14015,14015,14016,14016,14017, & - 14018,14018,14019,14020,14020,14021,14021,14022,14023,14023,14024,14025, & - 14025,14026,14026,14027,14027,14028,14028,14029,14029,14030,14030,14031, & - 14032,14032,14033,14034,14034,14035,14036,14036,14037,14038,14038,14039, & - 14040,14040,14041,14042,14042,14043,14044,14044,14045,14046,14046,14047, & - 14048,14048,14049,14050,14050,14051,14052,14053,14053,14054,14055,14055, & - 14056,14056,14057,14058,14059,14059,14060,14061,14062,14062,14063,14064, & - 14065,14065,14066,14066,14067,14068,14068,14069,14070,14071,14071,14072 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_62 = (/ & - 14073,14073,14074,14074,14075,14075,14076,14077,14078,14078,14079,14079, & - 14080,14080,14081,14081,14082,14082,14083,14083,14084,14085,14086,14086, & - 14087,14087,14088,14088,14089,14090,14090,14091,14092,14093,14093,14094, & - 14095,14095,14096,14097,14098,14098,14099,14100,14100,14101,14102,14103, & - 14103,14104,14104,14105,14105,14106,14106,14107,14107,14108,14108,14109, & - 14110,14111,14111,14112,14113,14114,14114,14115,14116,14117,14117,14118, & - 14119,14119,14120,14121,14121,14122,14123,14123,14124,14124,14125,14125, & - 14126,14127,14128,14129,14129,14130,14131,14131,14132,14133,14134,14135, & - 14135,14136,14137,14137,14138,14139,14139,14140,14141,14141,14142,14142, & - 14143,14143,14144,14144,14145,14146,14147,14148,14148,14149,14150,14150, & - 14151,14152,14153,14153,14154,14155,14155,14156,14157,14157,14158,14158, & - 14159,14159,14160,14160,14161,14162,14163,14164,14164,14165,14166,14166, & - 14167,14168,14168,14169,14170,14170,14171,14172,14173,14174,14174,14175, & - 14176,14176,14177,14178,14178,14179,14179,14180,14180,14181,14182,14182, & - 14183,14184,14185,14185,14186,14187,14187,14188,14189,14189,14190,14191, & - 14191,14192,14192,14193,14194,14194,14195,14196,14196,14197,14198,14198, & - 14199,14200,14201,14201,14202,14202,14203,14203,14204,14205,14205,14206, & - 14207,14208,14209,14209,14210,14211,14211,14212,14212,14213,14213,14214, & - 14214,14215,14215,14216,14216,14217,14218,14219,14219,14220,14220,14221, & - 14221,14222,14223,14224,14225,14225,14226,14226,14227,14227,14228,14228, & - 14229,14230,14231,14231,14232,14233,14234,14234,14235,14236,14236,14237, & - 14237,14238,14238,14239,14239,14240,14241,14242,14243,14243,14244,14244, & - 14245,14245,14246,14246,14247,14248,14249,14250,14250,14251,14251,14252, & - 14252,14253,14253,14254,14254,14255,14255,14256,14257,14258,14258,14259, & - 14259,14260,14260,14261,14261,14262,14263,14264,14265,14265,14266,14266, & - 14267,14268,14268,14269,14269,14270,14270,14271,14271,14272,14273,14274, & - 14275,14275,14276,14277,14277,14278,14279,14279,14280,14281,14282,14283, & - 14283,14284,14285,14285,14286,14287,14287,14288,14288,14289,14289,14290, & - 14290,14291,14292,14293,14293,14294,14294,14295,14295,14296,14296,14297, & - 14298,14299,14300,14300,14301,14302,14302,14303,14303,14304,14304,14305 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_63 = (/ & - 14306,14307,14308,14308,14309,14310,14310,14311,14311,14312,14312,14313, & - 14313,14314,14315,14316,14317,14317,14318,14319,14319,14320,14321,14322, & - 14322,14323,14323,14324,14324,14325,14326,14326,14327,14328,14329,14329, & - 14330,14330,14331,14331,14332,14332,14333,14333,14334,14334,14335,14335, & - 14336,14337,14338,14338,14339,14340,14340,14341,14341,14342,14342,14343, & - 14344,14345,14346,14346,14347,14347,14348,14348,14349,14349,14350,14350, & - 14351,14352,14353,14354,14354,14355,14356,14357,14357,14358,14359,14359, & - 14360,14361,14362,14362,14363,14364,14364,14365,14365,14366,14366,14367, & - 14368,14369,14369,14370,14370,14371,14371,14372,14373,14374,14374,14375, & - 14375,14376,14376,14377,14378,14379,14379,14380,14381,14381,14382,14383, & - 14383,14384,14384,14385,14385,14386,14386,14387,14387,14388,14389,14389, & - 14390,14390,14391,14391,14392,14393,14393,14394,14394,14395,14395,14396, & - 14397,14397,14398,14399,14400,14400,14401,14401,14402,14403,14403,14404, & - 14404,14405,14406,14406,14407,14408,14409,14409,14410,14410,14411,14411, & - 14412,14413,14413,14414,14415,14415,14416,14417,14417,14418,14419,14419, & - 14420,14420,14421,14421,14422,14422,14423,14423,14424,14425,14425,14426, & - 14426,14427,14427,14428,14429,14429,14430,14431,14432,14432,14433,14434, & - 14434,14435,14435,14436,14436,14437,14438,14438,14439,14440,14440,14441, & - 14442,14443,14443,14444,14444,14445,14445,14446,14446,14447,14448,14449, & - 14449,14450,14451,14451,14452,14453,14453,14454,14455,14456,14456,14457, & - 14458,14458,14459,14460,14461,14461,14462,14462,14463,14463,14464,14465, & - 14465,14466,14466,14467,14467,14468,14468,14469,14469,14470,14470,14471, & - 14472,14473,14473,14474,14475,14476,14476,14477,14477,14478,14479,14479, & - 14480,14481,14481,14482,14483,14484,14484,14485,14485,14486,14486,14487, & - 14487,14488,14489,14490,14490,14491,14492,14492,14493,14494,14494,14495, & - 14495,14496,14496,14497,14497,14498,14498,14499,14499,14500,14500,14501, & - 14501,14502,14502,14503,14503,14504,14504,14505,14505,14506,14506,14507, & - 14508,14509,14509,14510,14511,14512,14512,14513,14514,14514,14515,14515, & - 14516,14517,14517,14518,14519,14520,14520,14521,14521,14522,14523,14523, & - 14524,14524,14525,14525,14526,14526,14527,14528,14529,14530,14530,14531 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_64 = (/ & - 14531,14532,14533,14533,14534,14535,14535,14536,14537,14538,14539,14539, & - 14540,14540,14541,14541,14542,14543,14543,14544,14545,14546,14546,14547, & - 14548,14548,14549,14549,14550,14550,14551,14551,14552,14552,14553,14554, & - 14555,14555,14556,14556,14557,14557,14558,14559,14560,14561,14561,14562, & - 14562,14563,14563,14564,14564,14565,14565,14566,14566,14567,14568,14569, & - 14569,14570,14571,14571,14572,14573,14574,14574,14575,14575,14576,14577, & - 14577,14578,14579,14580,14581,14581,14582,14582,14583,14583,14584,14584, & - 14585,14585,14586,14586,14587,14587,14588,14588,14589,14590,14591,14591, & - 14592,14593,14594,14594,14595,14595,14596,14597,14597,14598,14599,14600, & - 14600,14601,14601,14602,14602,14603,14603,14604,14604,14605,14606,14607, & - 14608,14608,14609,14609,14610,14611,14611,14612,14612,14613,14613,14614, & - 14614,14615,14616,14617,14618,14618,14619,14620,14620,14621,14621,14622, & - 14622,14623,14623,14624,14624,14625,14625,14626,14627,14628,14628,14629, & - 14630,14631,14631,14632,14632,14633,14633,14634,14634,14635,14635,14636, & - 14637,14638,14638,14639,14640,14640,14641,14642,14643,14643,14644,14644, & - 14645,14646,14647,14647,14648,14648,14649,14650,14651,14651,14652,14652, & - 14653,14654,14655,14655,14656,14656,14657,14658,14658,14659,14660,14660, & - 14661,14662,14663,14663,14664,14665,14666,14666,14667,14667,14668,14668, & - 14669,14669,14670,14671,14672,14672,14673,14673,14674,14674,14675,14676, & - 14676,14677,14678,14679,14679,14680,14681,14681,14682,14683,14683,14684, & - 14685,14686,14686,14687,14687,14688,14688,14689,14689,14690,14690,14691, & - 14691,14692,14693,14694,14694,14695,14695,14696,14696,14697,14697,14698, & - 14698,14699,14699,14700,14701,14702,14702,14703,14703,14704,14704,14705, & - 14705,14706,14706,14707,14707,14708,14709,14710,14710,14711,14711,14712, & - 14712,14713,14714,14715,14716,14716,14717,14717,14718,14718,14719,14720, & - 14721,14721,14722,14723,14724,14724,14725,14725,14726,14727,14727,14728, & - 14729,14729,14730,14731,14732,14733,14734,14735,14735,14736,14737,14738, & - 14738,14739,14739,14740,14740,14741,14742,14743,14743,14744,14744,14745, & - 14746,14746,14747,14747,14748,14748,14749,14749,14750,14751,14752,14752, & - 14753,14753,14754,14755,14755,14756,14756,14757,14757,14758,14758,14759 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_65 = (/ & - 14760,14761,14762,14762,14763,14764,14764,14765,14765,14766,14766,14767, & - 14768,14769,14770,14770,14771,14772,14772,14773,14774,14775,14775,14776, & - 14777,14777,14778,14778,14779,14779,14780,14780,14781,14781,14782,14783, & - 14784,14784,14785,14786,14786,14787,14788,14789,14789,14790,14791,14791, & - 14792,14793,14794,14794,14795,14796,14796,14797,14798,14798,14799,14799, & - 14800,14801,14801,14802,14802,14803,14803,14804,14805,14806,14806,14807, & - 14808,14808,14809,14809,14810,14810,14811,14811,14812,14812,14813,14814, & - 14815,14816,14816,14817,14818,14818,14819,14819,14820,14821,14821,14822, & - 14823,14823,14824,14825,14825,14826,14827,14828,14829,14829,14830,14830, & - 14831,14831,14832,14833,14833,14834,14835,14836,14836,14837,14837,14838, & - 14839,14839,14840,14840,14841,14841,14842,14843,14843,14844,14845,14845, & - 14846,14847,14847,14848,14849,14850,14850,14851,14851,14852,14852,14853, & - 14853,14854,14854,14855,14855,14856,14857,14857,14858,14859,14859,14860, & - 14861,14862,14862,14863,14864,14864,14865,14866,14867,14867,14868,14868, & - 14869,14870,14871,14871,14872,14873,14873,14874,14875,14875,14876,14877, & - 14877,14878,14878,14879,14879,14880,14881,14882,14883,14883,14884,14885, & - 14885,14886,14887,14887,14888,14889,14889,14890,14891,14891,14892,14893, & - 14893,14894,14895,14895,14896,14897,14897,14898,14899,14900,14900,14901, & - 14902,14902,14903,14904,14904,14905,14906,14907,14907,14908,14909,14910, & - 14910,14911,14911,14912,14912,14913,14913,14914,14914,14915,14915,14916, & - 14916,14917,14918,14919,14919,14920,14920,14921,14921,14922,14923,14924, & - 14924,14925,14926,14926,14927,14928,14928,14929,14929,14930,14931,14931, & - 14932,14933,14934,14935,14935,14936,14937,14937,14938,14938,14939,14940, & - 14941,14941,14942,14943,14943,14944,14944,14945,14945,14946,14946,14947, & - 14948,14949,14950,14950,14951,14952,14952,14953,14954,14955,14955,14956, & - 14956,14957,14957,14958,14958,14959,14960,14961,14962,14962,14963,14963, & - 14964,14964,14965,14966,14966,14967,14968,14969,14969,14970,14970,14971, & - 14972,14972,14973,14974,14975,14975,14976,14976,14977,14977,14978,14978, & - 14979,14979,14980,14980,14981,14982,14982,14983,14983,14984,14984,14985, & - 14986,14986,14987,14987,14988,14988,14989,14990,14991,14992,14992,14993 /) - INTEGER, PARAMETER, DIMENSION(284) :: IROW_JVRP_66 = (/ & - 14994,14994,14995,14996,14996,14997,14997,14998,14998,14999,15000,15000, & - 15001,15001,15002,15002,15003,15004,15004,15005,15005,15006,15006,15007, & - 15007,15008,15008,15009,15010,15010,15011,15011,15012,15012,15013,15014, & - 15014,15015,15016,15017,15017,15018,15019,15019,15020,15020,15021,15021, & - 15022,15022,15023,15023,15024,15024,15025,15026,15027,15027,15028,15028, & - 15029,15030,15030,15031,15031,15032,15032,15033,15034,15035,15036,15036, & - 15037,15038,15038,15039,15040,15041,15042,15043,15044,15044,15045,15046, & - 15047,15047,15048,15048,15049,15049,15050,15051,15052,15052,15053,15054, & - 15055,15055,15056,15057,15057,15058,15058,15059,15059,15060,15060,15061, & - 15061,15062,15062,15063,15064,15065,15066,15066,15067,15068,15069,15069, & - 15070,15071,15071,15072,15073,15074,15074,15075,15076,15076,15077,15078, & - 15078,15079,15079,15080,15081,15082,15082,15083,15084,15085,15085,15086, & - 15087,15087,15088,15089,15089,15090,15091,15091,15092,15093,15094,15094, & - 15095,15096,15096,15097,15098,15098,15099,15100,15101,15101,15102,15102, & - 15103,15104,15104,15105,15106,15106,15107,15108,15108,15109,15110,15110, & - 15111,15112,15113,15114,15114,15115,15116,15117,15118,15118,15119,15120, & - 15120,15121,15122,15122,15123,15124,15125,15125,15126,15126,15127,15128, & - 15128,15129,15129,15130,15131,15131,15132,15132,15133,15133,15134,15134, & - 15135,15135,15136,15137,15137,15138,15138,15139,15139,15140,15141,15142, & - 15143,15143,15144,15144,15145,15145,15146,15146,15147,15147,15148,15149, & - 15149,15150,15150,15151,15151,15152,15153,15153,15154,15155,15155,15156, & - 15157,15157,15158,15158,15159,15160,15161,15161,15162,15162,15163,15164, & - 15164,15165,15166,15166,15167,15168,15168,15169,15170,15171,15171,15172, & - 15172,15173,15173,15174,15175,15175,15176,15177 /) - INTEGER, PARAMETER, DIMENSION(24044) :: IROW_JVRP = (/& - IROW_JVRP_0, IROW_JVRP_1, IROW_JVRP_2, IROW_JVRP_3, IROW_JVRP_4, & - IROW_JVRP_5, IROW_JVRP_6, IROW_JVRP_7, IROW_JVRP_8, IROW_JVRP_9, & - IROW_JVRP_10, IROW_JVRP_11, IROW_JVRP_12, IROW_JVRP_13, IROW_JVRP_14, & - IROW_JVRP_15, IROW_JVRP_16, IROW_JVRP_17, IROW_JVRP_18, IROW_JVRP_19, & - IROW_JVRP_20, IROW_JVRP_21, IROW_JVRP_22, IROW_JVRP_23, IROW_JVRP_24, & - IROW_JVRP_25, IROW_JVRP_26, IROW_JVRP_27, IROW_JVRP_28, IROW_JVRP_29, & - IROW_JVRP_30, IROW_JVRP_31, IROW_JVRP_32, IROW_JVRP_33, IROW_JVRP_34, & - IROW_JVRP_35, IROW_JVRP_36, IROW_JVRP_37, IROW_JVRP_38, IROW_JVRP_39, & - IROW_JVRP_40, IROW_JVRP_41, IROW_JVRP_42, IROW_JVRP_43, IROW_JVRP_44, & - IROW_JVRP_45, IROW_JVRP_46, IROW_JVRP_47, IROW_JVRP_48, IROW_JVRP_49, & - IROW_JVRP_50, IROW_JVRP_51, IROW_JVRP_52, IROW_JVRP_53, IROW_JVRP_54, & - IROW_JVRP_55, IROW_JVRP_56, IROW_JVRP_57, IROW_JVRP_58, IROW_JVRP_59, & - IROW_JVRP_60, IROW_JVRP_61, IROW_JVRP_62, IROW_JVRP_63, IROW_JVRP_64, & - IROW_JVRP_65, IROW_JVRP_66 /) - - - -! Stoichiometric Matrix in Compressed Column Sparse Format - - - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_0 = (/ & - 1, 1, 3, 5, 8, 11, 14, 16, 19, 22, 24, 27, & - 29, 32, 34, 37, 40, 43, 46, 49, 51, 53, 56, 59, & - 63, 67, 70, 73, 77, 80, 83, 86, 89, 92, 94, 96, & - 98,100,102,104,107,109,112,115,118,121,124,128, & - 131,135,138,142,145,148,152,155,159,162,165,168, & - 172,175,178,182,185,188,192,195,198,202,205,208, & - 212,215,218,221,224,227,230,233,237,240,244,247, & - 250,253,256,260,264,268,271,274,278,282,285,288, & - 291,294,299,303,307,311,314,317,321,324,328,332, & - 335,338,341,345,349,352,355,358,362,366,369,372, & - 376,380,383,386,389,391,394,398,402,406,410,413, & - 417,421,425,428,431,434,438,441,444,448,452,455, & - 458,461,465,468,471,474,477,480,483,486,489,492, & - 495,498,501,504,507,510,513,516,519,522,525,528, & - 531,534,537,540,543,546,549,552,555,558,561,564, & - 567,570,573,576,579,582,585,588,591,594,597,600, & - 603,606,609,612,615,618,621,624,627,630,633,636, & - 639,642,645,648,651,654,657,660,663,666,669,672, & - 675,678,681,684,687,690,693,696,699,702,705,708, & - 711,714,718,721,724,727,731,735,738,741,744,747, & - 751,755,758,761,764,768,771,774,778,781,784,787, & - 791,795,798,801,804,807,811,815,818,821,824,827, & - 831,835,838,841,844,847,851,855,858,861,864,867, & - 871,875,878,881,884,887,891,895,898,901,904,907, & - 911,915,918,921,924,927,931,935,938,941,944,947, & - 951,955,958,961,964,967,971,975,978,981,984,988, & - 991,993,998,1001,1005,1009,1012,1016,1019,1023,1027,1030, & - 1034,1037,1041,1045,1048,1052,1055,1059,1063,1066,1070,1073, & - 1077,1081,1084,1088,1091,1095,1099,1103,1106,1110,1113,1117, & - 1121,1124,1128,1131,1135,1138,1142,1145,1149,1153,1156,1159 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_1 = (/ & - 1163,1167,1171,1174,1178,1182,1185,1189,1192,1195,1199,1203, & - 1207,1210,1213,1217,1221,1225,1228,1231,1235,1239,1243,1246, & - 1249,1253,1257,1261,1264,1268,1271,1275,1278,1282,1286,1289, & - 1292,1296,1300,1303,1306,1309,1313,1317,1320,1323,1326,1329, & - 1333,1337,1341,1345,1348,1351,1354,1358,1362,1365,1368,1372, & - 1375,1379,1382,1385,1388,1391,1394,1397,1400,1403,1406,1409, & - 1412,1415,1418,1421,1424,1427,1430,1433,1436,1439,1442,1445, & - 1448,1451,1454,1457,1460,1463,1466,1469,1472,1475,1479,1482, & - 1485,1488,1491,1494,1497,1500,1503,1506,1509,1513,1517,1520, & - 1523,1526,1529,1532,1535,1538,1541,1544,1547,1550,1553,1556, & - 1559,1562,1565,1568,1571,1574,1577,1581,1585,1587,1589,1591, & - 1594,1597,1601,1605,1607,1609,1611,1614,1618,1620,1622,1624, & - 1628,1631,1634,1638,1641,1645,1647,1649,1651,1654,1657,1661, & - 1665,1667,1669,1671,1674,1677,1681,1685,1687,1689,1691,1694, & - 1698,1701,1705,1707,1709,1711,1714,1717,1721,1725,1727,1729, & - 1732,1735,1739,1743,1745,1747,1749,1752,1755,1759,1763,1765, & - 1767,1769,1772,1775,1778,1782,1786,1788,1790,1792,1795,1798, & - 1802,1806,1808,1810,1812,1815,1819,1823,1826,1829,1832,1836, & - 1840,1842,1844,1846,1849,1852,1856,1860,1862,1864,1868,1871, & - 1874,1877,1880,1884,1888,1890,1892,1895,1898,1902,1906,1908, & - 1910,1912,1915,1918,1922,1926,1928,1930,1932,1935,1938,1942, & - 1946,1948,1950,1952,1955,1958,1962,1966,1968,1970,1972,1975, & - 1978,1982,1986,1988,1990,1992,1995,1998,2002,2006,2008,2010, & - 2013,2017,2020,2024,2026,2028,2030,2033,2037,2041,2043,2045, & - 2047,2050,2054,2057,2061,2063,2065,2067,2070,2074,2078,2080, & - 2082,2084,2088,2091,2095,2099,2102,2106,2108,2110,2114,2118, & - 2121,2125,2129,2133,2137,2140,2144,2147,2151,2155,2157,2159, & - 2161,2164,2168,2172,2174,2176,2178,2183,2186,2188,2190,2193, & - 2197,2199,2201,2205,2208,2211,2215,2219,2221,2223,2225,2228, & - 2231,2235,2239,2241,2243,2245,2248,2251,2254,2258,2261,2265 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_2 = (/ & - 2267,2269,2271,2274,2278,2282,2284,2286,2288,2292,2295,2299, & - 2303,2306,2310,2312,2314,2317,2320,2324,2328,2330,2332,2334, & - 2338,2342,2345,2349,2352,2356,2358,2360,2363,2366,2370,2374, & - 2376,2378,2380,2383,2386,2390,2394,2396,2398,2400,2404,2408, & - 2411,2415,2418,2422,2424,2426,2429,2432,2436,2440,2442,2444, & - 2446,2449,2453,2457,2459,2461,2464,2467,2471,2475,2477,2479, & - 2481,2485,2489,2492,2496,2499,2503,2505,2507,2510,2513,2517, & - 2521,2523,2525,2527,2530,2533,2537,2541,2543,2545,2547,2551, & - 2554,2558,2564,2567,2573,2575,2579,2582,2586,2590,2592,2596, & - 2598,2600,2604,2607,2610,2614,2618,2620,2622,2624,2627,2630, & - 2633,2637,2640,2642,2644,2647,2651,2654,2658,2662,2666,2669, & - 2673,2676,2680,2682,2684,2686,2690,2694,2699,2703,2705,2707, & - 2711,2714,2717,2721,2725,2729,2731,2733,2736,2739,2743,2747, & - 2749,2751,2753,2756,2760,2764,2770,2773,2779,2781,2785,2788, & - 2792,2796,2798,2800,2802,2805,2809,2813,2815,2817,2819,2821, & - 2825,2828,2830,2833,2837,2840,2844,2846,2848,2850,2853,2857, & - 2861,2863,2865,2867,2870,2873,2877,2881,2883,2885,2887,2890, & - 2893,2897,2901,2903,2905,2907,2910,2913,2917,2921,2923,2925, & - 2928,2931,2935,2939,2941,2943,2945,2948,2951,2955,2959,2961, & - 2963,2965,2968,2971,2975,2979,2981,2983,2985,2988,2991,2995, & - 2999,3001,3003,3005,3008,3011,3015,3019,3021,3023,3025,3028, & - 3031,3035,3039,3041,3043,3046,3049,3053,3057,3059,3061,3063, & - 3066,3069,3073,3077,3079,3081,3083,3086,3089,3093,3097,3099, & - 3101,3103,3106,3109,3113,3117,3119,3121,3123,3126,3129,3133, & - 3137,3139,3141,3143,3146,3149,3153,3157,3159,3161,3163,3166, & - 3169,3173,3177,3179,3181,3183,3186,3189,3193,3197,3199,3201, & - 3204,3207,3211,3215,3217,3219,3221,3224,3227,3231,3235,3237, & - 3239,3241,3244,3247,3251,3255,3257,3259,3262,3265,3269,3273, & - 3275,3277,3279,3282,3285,3289,3293,3295,3297,3299,3302,3305, & - 3309,3313,3315,3317,3319,3322,3325,3329,3333,3335,3337,3340 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_3 = (/ & - 3343,3347,3351,3353,3355,3357,3360,3363,3367,3371,3373,3375, & - 3377,3380,3383,3387,3391,3393,3395,3397,3400,3403,3407,3411, & - 3413,3415,3418,3421,3425,3429,3431,3433,3435,3438,3441,3445, & - 3449,3451,3453,3456,3459,3463,3467,3469,3471,3473,3476,3479, & - 3483,3487,3489,3491,3493,3496,3499,3503,3507,3509,3511,3513, & - 3516,3519,3523,3527,3529,3531,3533,3536,3539,3543,3547,3549, & - 3551,3553,3556,3559,3563,3567,3569,3571,3573,3576,3580,3584, & - 3586,3588,3590,3592,3594,3598,3601,3605,3609,3611,3613,3615, & - 3618,3622,3626,3628,3630,3632,3634,3638,3641,3643,3646,3650, & - 3654,3656,3658,3660,3663,3667,3671,3673,3675,3677,3679,3683, & - 3686,3688,3691,3694,3698,3702,3704,3706,3708,3711,3715,3719, & - 3721,3723,3725,3728,3732,3736,3738,3740,3743,3747,3751,3753, & - 3755,3757,3759,3763,3765,3768,3771,3775,3779,3781,3783,3785, & - 3788,3792,3796,3798,3800,3802,3804,3806,3810,3813,3816,3819, & - 3823,3827,3829,3831,3833,3836,3839,3843,3847,3849,3851,3853, & - 3856,3860,3864,3866,3868,3870,3873,3877,3881,3883,3885,3887, & - 3889,3893,3896,3898,3901,3904,3908,3912,3914,3916,3918,3921, & - 3925,3929,3931,3933,3935,3938,3942,3946,3948,3950,3952,3955, & - 3958,3962,3966,3968,3970,3972,3975,3979,3983,3985,3987,3989, & - 3991,3995,3998,4000,4003,4006,4010,4014,4016,4018,4020,4023, & - 4027,4031,4033,4035,4037,4040,4044,4048,4050,4052,4054,4057, & - 4059,4063,4066,4070,4074,4076,4078,4080,4083,4087,4091,4093, & - 4095,4097,4099,4101,4105,4108,4111,4114,4118,4122,4124,4126, & - 4128,4131,4134,4138,4142,4144,4146,4148,4151,4155,4159,4161, & - 4163,4165,4168,4172,4176,4178,4180,4182,4184,4186,4190,4193, & - 4196,4199,4203,4207,4209,4211,4213,4216,4219,4223,4227,4229, & - 4231,4233,4236,4240,4244,4246,4248,4251,4254,4257,4261,4265, & - 4267,4269,4272,4275,4278,4282,4286,4288,4290,4292,4296,4300, & - 4303,4306,4310,4314,4318,4321,4324,4328,4331,4334,4337,4341, & - 4345,4347,4349,4351,4355,4358,4362,4365,4369,4372,4375,4379 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_4 = (/ & - 4382,4386,4388,4390,4392,4396,4400,4403,4406,4410,4415,4418, & - 4421,4425,4429,4431,4433,4435,4438,4441,4445,4449,4451,4453, & - 4457,4461,4464,4467,4471,4475,4478,4482,4486,4489,4493,4496, & - 4499,4502,4506,4510,4512,4514,4516,4519,4522,4526,4530,4532, & - 4534,4536,4540,4544,4547,4550,4554,4559,4563,4567,4570,4573, & - 4577,4580,4583,4586,4590,4594,4596,4598,4600,4603,4606,4610, & - 4614,4616,4618,4622,4626,4629,4632,4636,4641,4644,4648,4652, & - 4655,4659,4662,4665,4669,4672,4676,4678,4680,4682,4686,4690, & - 4693,4696,4699,4703,4706,4710,4713,4717,4719,4721,4723,4727, & - 4731,4734,4737,4741,4746,4749,4752,4756,4760,4762,4764,4766, & - 4769,4773,4777,4780,4783,4787,4790,4794,4797,4801,4803,4805, & - 4807,4811,4815,4818,4821,4825,4830,4833,4836,4840,4844,4846, & - 4848,4852,4856,4859,4862,4865,4869,4872,4876,4879,4883,4885, & - 4887,4889,4893,4897,4900,4903,4907,4912,4915,4918,4922,4926, & - 4928,4930,4932,4935,4939,4943,4947,4950,4953,4956,4959,4963, & - 4967,4969,4971,4973,4977,4980,4983,4988,4991,4994,4998,5002, & - 5004,5006,5008,5011,5014,5018,5022,5024,5026,5029,5033,5037, & - 5041,5044,5047,5051,5055,5058,5061,5065,5070,5073,5076,5080, & - 5084,5086,5088,5090,5093,5096,5100,5104,5106,5108,5110,5113, & - 5117,5120,5123,5127,5131,5134,5137,5141,5146,5149,5152,5156, & - 5160,5162,5164,5166,5169,5172,5176,5180,5182,5184,5188,5192, & - 5195,5198,5202,5206,5209,5213,5217,5220,5224,5227,5230,5233, & - 5237,5241,5243,5245,5247,5251,5255,5258,5261,5265,5270,5274, & - 5278,5281,5284,5288,5291,5294,5297,5301,5305,5307,5309,5313, & - 5317,5320,5323,5326,5331,5334,5338,5342,5345,5349,5352,5355, & - 5358,5362,5366,5368,5370,5372,5375,5378,5382,5386,5388,5390, & - 5392,5396,5400,5403,5406,5410,5415,5419,5422,5425,5428,5431, & - 5434,5438,5442,5444,5446,5448,5452,5455,5458,5461,5464,5467, & - 5471,5475,5477,5479,5481,5485,5489,5492,5495,5499,5504,5507, & - 5511,5515,5517,5519,5523,5526,5528,5531,5535,5539,5541,5544 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_5 = (/ & - 5548,5552,5556,5559,5563,5565,5567,5570,5574,5578,5580,5583, & - 5587,5591,5593,5595,5597,5600,5603,5607,5611,5613,5615,5617, & - 5619,5621,5625,5627,5629,5634,5638,5641,5644,5648,5652,5654, & - 5656,5658,5661,5664,5668,5672,5674,5676,5678,5681,5685,5688, & - 5692,5694,5696,5698,5701,5704,5708,5712,5714,5716,5718,5720, & - 5722,5726,5729,5734,5738,5742,5745,5748,5750,5754,5756,5761, & - 5763,5768,5770,5773,5775,5777,5779,5781,5784,5787,5791,5795, & - 5797,5799,5801,5804,5808,5812,5815,5818,5822,5825,5829,5833, & - 5836,5839,5841,5843,5845,5847,5850,5853,5856,5860,5864,5866, & - 5868,5870,5873,5876,5879,5883,5887,5889,5891,5893,5896,5899, & - 5903,5907,5909,5911,5913,5917,5920,5924,5928,5930,5932,5934, & - 5937,5940,5944,5948,5950,5952,5954,5957,5961,5965,5967,5969, & - 5971,5974,5978,5982,5984,5986,5988,5991,5995,5998,6002,6004, & - 6006,6008,6011,6015,6019,6021,6023,6025,6028,6032,6036,6038, & - 6040,6042,6045,6048,6052,6056,6058,6060,6062,6065,6069,6073, & - 6075,6077,6080,6083,6087,6091,6093,6095,6097,6100,6103,6107, & - 6111,6113,6115,6117,6120,6123,6127,6131,6133,6135,6137,6140, & - 6144,6148,6150,6152,6154,6157,6160,6164,6168,6170,6172,6174, & - 6177,6181,6185,6187,6189,6191,6194,6198,6202,6204,6206,6208, & - 6211,6214,6218,6222,6224,6226,6228,6231,6234,6238,6242,6244, & - 6246,6249,6253,6257,6259,6261,6263,6266,6269,6273,6277,6279, & - 6281,6283,6286,6289,6293,6297,6299,6301,6303,6306,6310,6314, & - 6316,6318,6321,6325,6329,6331,6333,6335,6338,6341,6343,6347, & - 6350,6353,6357,6361,6363,6365,6368,6371,6375,6379,6381,6383, & - 6385,6388,6391,6395,6399,6401,6403,6406,6410,6414,6416,6418, & - 6421,6425,6429,6431,6433,6435,6438,6441,6444,6447,6449,6451, & - 6455,6457,6460,6462,6465,6468,6472,6476,6478,6480,6483,6486, & - 6490,6494,6496,6498,6500,6503,6506,6510,6514,6516,6518,6521, & - 6525,6529,6531,6533,6536,6539,6543,6545,6548,6551,6555,6559, & - 6561,6563,6566,6569,6573,6577,6579,6581,6583,6586,6589,6593 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_6 = (/ & - 6597,6599,6601,6604,6608,6612,6614,6616,6619,6623,6627,6631, & - 6634,6636,6639,6643,6647,6651,6653,6655,6658,6661,6663,6666, & - 6669,6671,6674,6677,6680,6684,6688,6690,6692,6695,6698,6702, & - 6706,6708,6710,6712,6715,6718,6722,6726,6728,6730,6733,6735, & - 6738,6742,6745,6748,6751,6754,6756,6759,6763,6766,6770,6774, & - 6777,6781,6783,6786,6789,6793,6797,6799,6802,6805,6809,6813, & - 6815,6818,6821,6825,6829,6833,6837,6841,6843,6846,6849,6853, & - 6856,6859,6862,6866,6870,6873,6875,6878,6881,6884,6888,6892, & - 6896,6900,6903,6906,6911,6915,6919,6921,6924,6927,6931,6934, & - 6937,6941,6945,6948,6951,6953,6956,6959,6963,6967,6970,6972, & - 6975,6978,6982,6984,6988,6992,6996,7000,7003,7005,7008,7011, & - 7015,7019,7023,7027,7031,7035,7038,7042,7046,7049,7053,7055, & - 7057,7060,7062,7065,7069,7072,7076,7079,7083,7086,7089,7094, & - 7098,7102,7106,7109,7113,7117,7120,7124,7126,7128,7131,7134, & - 7138,7142,7144,7146,7149,7152,7155,7160,7163,7167,7170,7172, & - 7175,7179,7183,7187,7191,7194,7197,7199,7202,7205,7209,7211, & - 7214,7218,7222,7225,7228,7230,7233,7237,7241,7244,7248,7251, & - 7254,7256,7259,7263,7267,7271,7274,7278,7281,7284,7286,7289, & - 7293,7295,7298,7302,7306,7310,7313,7316,7320,7323,7328,7332, & - 7335,7337,7340,7343,7347,7351,7355,7359,7361,7364,7368,7371, & - 7375,7378,7381,7385,7389,7391,7394,7397,7401,7405,7408,7412, & - 7416,7419,7422,7425,7430,7433,7437,7440,7445,7449,7453,7456, & - 7459,7462,7467,7470,7473,7477,7480,7485,7488,7493,7496,7498, & - 7501,7504,7509,7512,7517,7520,7522,7525,7528,7532,7535,7539, & - 7541,7544,7547,7551,7555,7558,7561,7565,7569,7573,7576,7578, & - 7581,7585,7588,7593,7596,7601,7604,7606,7609,7613,7617,7621, & - 7624,7626,7628,7631,7634,7638,7642,7646,7650,7652,7655,7658, & - 7662,7665,7669,7672,7675,7677,7680,7684,7687,7690,7692,7695, & - 7698,7703,7707,7710,7713,7716,7721,7724,7727,7730,7732,7735, & - 7739,7742,7745,7748,7753,7756,7759,7761,7764,7768,7772,7775 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_7 = (/ & - 7778,7781,7785,7788,7791,7795,7799,7803,7806,7809,7811,7814, & - 7817,7821,7824,7827,7830,7833,7838,7841,7844,7846,7849,7853, & - 7856,7859,7863,7866,7870,7873,7878,7881,7885,7888,7890,7893, & - 7896,7900,7903,7906,7909,7912,7917,7920,7923,7925,7928,7932, & - 7935,7938,7942,7946,7949,7952,7954,7957,7960,7964,7967,7969, & - 7974,7979,7982,7985,7988,7993,7995,7998,8002,8006,8011,8015, & - 8018,8021,8025,8028,8031,8035,8039,8043,8046,8049,8051,8054, & - 8058,8062,8066,8069,8071,8074,8077,8080,8082,8085,8088,8093, & - 8098,8102,8106,8109,8113,8117,8121,8124,8129,8132,8135,8139, & - 8142,8147,8151,8155,8159,8161,8166,8169,8173,8176,8180,8183, & - 8187,8190,8195,8200,8205,8208,8212,8215,8218,8222,8226,8229, & - 8233,8236,8240,8245,8252,8255,8258,8262,8266,8270,8273,8277, & - 8281,8285,8288,8290,8292,8295,8299,8303,8307,8311,8315,8318, & - 8320,8325,8328,8332,8336,8340,8342,8345,8348,8352,8355,8358, & - 8361,8364,8367,8369,8372,8376,8379,8382,8385,8390,8393,8395, & - 8398,8401,8405,8408,8410,8414,8416,8419,8422,8426,8429,8431, & - 8434,8438,8440,8443,8447,8450,8453,8456,8459,8461,8464,8467, & - 8471,8474,8476,8479,8482,8484,8487,8491,8494,8497,8500,8503, & - 8506,8511,8514,8517,8520,8522,8525,8529,8532,8536,8540,8543, & - 8547,8550,8552,8555,8558,8562,8564,8567,8571,8575,8578,8582, & - 8585,8587,8590,8593,8597,8599,8603,8606,8608,8611,8615,8618, & - 8620,8624,8627,8629,8632,8635,8639,8641,8645,8649,8652,8656, & - 8659,8662,8664,8667,8671,8673,8676,8680,8683,8685,8688,8691, & - 8695,8698,8701,8704,8707,8710,8713,8716,8720,8723,8726,8729, & - 8734,8737,8739,8742,8745,8747,8750,8753,8757,8759,8763,8767, & - 8770,8774,8777,8779,8782,8785,8789,8791,8794,8797,8800,8803, & - 8807,8810,8813,8816,8821,8824,8827,8830,8833,8835,8838,8842, & - 8845,8848,8852,8855,8857,8860,8863,8867,8869,8873,8877,8880, & - 8884,8887,8889,8892,8895,8899,8901,8904,8908,8912,8915,8919, & - 8922,8925,8928,8932,8935,8938,8941,8944,8946,8949,8953,8955 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_8 = (/ & - 8958,8962,8966,8970,8973,8976,8978,8981,8985,8987,8990,8993, & - 8997,9000,9002,9005,9009,9011,9014,9017,9021,9024,9027,9030, & - 9035,9037,9040,9043,9045,9048,9052,9054,9057,9060,9064,9067, & - 9070,9073,9078,9080,9083,9086,9088,9091,9095,9097,9100,9103, & - 9107,9110,9112,9115,9119,9121,9124,9127,9131,9134,9136,9139, & - 9143,9145,9148,9151,9155,9157,9160,9164,9167,9169,9172,9175, & - 9179,9182,9184,9187,9191,9193,9196,9199,9203,9206,9208,9211, & - 9215,9217,9220,9223,9225,9228,9231,9234,9238,9241,9244,9246, & - 9249,9252,9255,9259,9263,9266,9269,9271,9274,9277,9281,9284, & - 9288,9291,9294,9297,9301,9304,9307,9310,9314,9317,9320,9323, & - 9327,9331,9334,9339,9342,9346,9350,9354,9357,9359,9361,9364, & - 9367,9371,9375,9378,9382,9384,9387,9390,9393,9397,9400,9403, & - 9406,9410,9413,9416,9420,9423,9427,9430,9435,9438,9441,9445, & - 9449,9453,9456,9458,9461,9464,9468,9471,9474,9477,9481,9483, & - 9486,9489,9493,9496,9500,9503,9506,9510,9513,9517,9521,9525, & - 9527,9530,9532,9535,9538,9542,9545,9548,9552,9554,9557,9560, & - 9564,9568,9571,9575,9577,9580,9583,9587,9590,9593,9596,9598, & - 9601,9604,9607,9611,9614,9617,9621,9623,9626,9629,9633,9636, & - 9639,9642,9644,9647,9650,9654,9658,9661,9664,9669,9672,9675, & - 9679,9682,9686,9690,9694,9697,9700,9702,9705,9708,9712,9715, & - 9718,9722,9725,9727,9730,9733,9736,9740,9744,9747,9750,9753, & - 9757,9761,9765,9767,9770,9772,9775,9778,9782,9786,9789,9793, & - 9796,9798,9801,9804,9808,9811,9814,9817,9820,9824,9826,9829, & - 9833,9836,9840,9843,9848,9852,9854,9857,9860,9864,9867,9870, & - 9874,9878,9881,9885,9889,9893,9896,9898,9900,9903,9906,9910, & - 9913,9916,9920,9923,9925,9928,9932,9936,9940,9943,9945,9948, & - 9951,9955,9958,9961,9964,9968,9970,9973,9976,9980,9983,9986, & - 9989,9993,9996,9998,10001,10005,10009,10012,10015,10018,10020,10023, & - 10027,10031,10035,10038,10041,10044,10048,10051,10054,10057,10060,10062, & - 10065,10069,10072,10076,10080,10084,10088,10092,10096,10099,10103,10107 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_9 = (/ & - 10110,10114,10116,10118,10122,10125,10129,10131,10133,10136,10140,10143, & - 10146,10150,10154,10156,10158,10160,10163,10167,10171,10173,10175,10177, & - 10181,10185,10188,10191,10193,10196,10199,10202,10205,10209,10213,10215, & - 10217,10221,10224,10227,10230,10234,10238,10240,10242,10244,10247,10251, & - 10254,10257,10261,10264,10268,10272,10274,10276,10279,10283,10287,10289, & - 10291,10294,10297,10301,10304,10307,10309,10312,10316,10320,10324,10328, & - 10332,10336,10339,10343,10347,10351,10355,10359,10362,10366,10369,10373, & - 10375,10377,10379,10383,10386,10388,10391,10394,10398,10402,10404,10406, & - 10408,10411,10415,10419,10421,10423,10425,10427,10430,10434,10437,10440, & - 10444,10447,10451,10454,10458,10461,10464,10469,10472,10476,10480,10484, & - 10488,10492,10496,10499,10503,10507,10510,10514,10517,10521,10523,10525, & - 10529,10532,10536,10539,10542,10546,10550,10552,10554,10556,10559,10563, & - 10567,10569,10571,10574,10578,10582,10584,10586,10589,10592,10595,10599, & - 10603,10605,10607,10611,10614,10617,10619,10622,10626,10629,10632,10636, & - 10639,10643,10646,10650,10652,10655,10659,10662,10666,10670,10674,10678, & - 10682,10686,10690,10694,10698,10702,10706,10710,10713,10717,10720,10724, & - 10726,10728,10732,10735,10739,10742,10745,10749,10753,10755,10757,10759, & - 10762,10766,10770,10772,10774,10776,10779,10782,10785,10789,10793,10795, & - 10797,10800,10804,10808,10810,10812,10816,10819,10822,10824,10827,10831, & - 10834,10837,10841,10844,10848,10851,10855,10858,10861,10866,10869,10873, & - 10877,10881,10884,10888,10892,10895,10899,10902,10906,10908,10910,10913, & - 10916,10920,10924,10926,10928,10930,10933,10937,10941,10943,10945,10948, & - 10952,10956,10958,10960,10963,10966,10969,10973,10977,10979,10981,10985, & - 10988,10991,10993,10996,10999,11003,11006,11010,11014,11017,11021,11024, & - 11027,11030,11034,11038,11040,11042,11045,11049,11053,11055,11057,11061, & - 11064,11067,11069,11072,11076,11080,11084,11088,11092,11095,11099,11103, & - 11107,11111,11115,11118,11122,11125,11129,11131,11133,11135,11139,11142, & - 11144,11147,11150,11154,11158,11160,11162,11164,11167,11171,11175,11177, & - 11179,11181,11183,11186,11190,11193,11196,11200,11203,11206,11209,11213, & - 11217,11219,11221,11224,11227,11230,11234,11238,11240,11242,11246,11249 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_10 = (/ & - 11252,11254,11257,11261,11265,11269,11273,11277,11280,11284,11288,11292, & - 11296,11300,11303,11307,11310,11314,11316,11318,11320,11324,11327,11329, & - 11332,11335,11339,11343,11345,11347,11349,11352,11356,11360,11362,11364, & - 11366,11369,11372,11377,11380,11383,11386,11389,11392,11395,11399,11403, & - 11405,11407,11410,11414,11418,11420,11422,11426,11429,11432,11434,11437, & - 11441,11445,11449,11453,11457,11460,11464,11468,11472,11476,11480,11483, & - 11487,11490,11494,11496,11498,11500,11502,11506,11509,11512,11515,11519, & - 11523,11525,11527,11529,11532,11536,11540,11542,11544,11546,11548,11551, & - 11555,11558,11561,11565,11568,11572,11575,11579,11582,11586,11590,11592, & - 11594,11597,11600,11603,11607,11611,11613,11615,11619,11622,11625,11627, & - 11630,11634,11637,11641,11645,11649,11653,11657,11661,11665,11669,11673, & - 11677,11680,11683,11687,11690,11694,11697,11701,11703,11705,11707,11709, & - 11712,11716,11719,11722,11726,11729,11733,11736,11740,11743,11746,11751, & - 11754,11758,11762,11766,11770,11774,11778,11781,11784,11788,11792,11794, & - 11796,11799,11802,11805,11809,11813,11815,11817,11821,11824,11827,11831, & - 11835,11838,11842,11845,11849,11851,11853,11856,11860,11863,11867,11869, & - 11871,11873,11876,11880,11884,11886,11888,11890,11893,11897,11900,11903, & - 11907,11910,11914,11917,11921,11923,11926,11930,11933,11937,11941,11945, & - 11949,11953,11956,11960,11964,11966,11968,11971,11974,11978,11982,11984, & - 11986,11990,11994,11997,12001,12004,12008,12010,12012,12016,12019,12022, & - 12026,12030,12032,12035,12039,12042,12046,12048,12050,12053,12057,12061, & - 12063,12065,12067,12069,12072,12076,12079,12082,12086,12089,12092,12095, & - 12098,12103,12106,12110,12114,12118,12122,12126,12130,12133,12137,12141, & - 12144,12148,12151,12155,12157,12159,12163,12166,12170,12173,12176,12180, & - 12184,12186,12188,12190,12193,12197,12201,12203,12205,12208,12212,12216, & - 12218,12220,12223,12226,12229,12233,12237,12239,12241,12245,12248,12251, & - 12254,12257,12261,12264,12268,12272,12276,12280,12284,12287,12291,12295, & - 12299,12303,12306,12308,12311,12315,12317,12319,12322,12325,12329,12333, & - 12335,12337,12339,12342,12346,12350,12352,12354,12356,12359,12362,12365, & - 12369,12373,12375,12377,12380,12384,12388,12390,12392,12396,12399,12402 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_11 = (/ & - 12405,12408,12412,12415,12419,12423,12427,12431,12434,12438,12442,12445, & - 12449,12452,12456,12458,12460,12463,12466,12470,12474,12476,12478,12480, & - 12483,12487,12491,12493,12495,12498,12502,12506,12508,12510,12513,12516, & - 12519,12523,12527,12529,12531,12535,12538,12541,12543,12546,12550,12553, & - 12556,12560,12563,12566,12569,12572,12576,12579,12583,12587,12591,12595, & - 12598,12602,12606,12610,12614,12617,12621,12624,12628,12630,12632,12636, & - 12638,12641,12645,12648,12652,12654,12656,12659,12663,12667,12669,12671, & - 12673,12676,12679,12683,12687,12689,12691,12694,12698,12702,12704,12706, & - 12708,12711,12715,12718,12721,12725,12728,12731,12734,12737,12741,12745, & - 12747,12749,12752,12756,12760,12762,12764,12767,12770,12774,12777,12781, & - 12785,12788,12792,12796,12800,12804,12807,12811,12814,12818,12820,12822, & - 12826,12829,12832,12836,12839,12843,12846,12850,12852,12854,12857,12861, & - 12865,12867,12869,12871,12874,12878,12881,12885,12889,12893,12896,12898, & - 12901,12904,12908,12911,12914,12917,12922,12925,12928,12931,12934,12936, & - 12939,12943,12948,12951,12954,12956,12959,12963,12966,12969,12973,12977, & - 12981,12985,12989,12992,12995,12998,13002,13006,13010,13012,13015,13018, & - 13020,13023,13027,13030,13034,13038,13042,13046,13049,13052,13055,13057, & - 13061,13065,13069,13073,13077,13080,13083,13086,13091,13094,13096,13100, & - 13104,13108,13111,13114,13116,13119,13123,13126,13129,13133,13137,13140, & - 13144,13148,13152,13156,13159,13162,13164,13168,13170,13174,13177,13180, & - 13184,13188,13190,13192,13194,13197,13200,13204,13208,13210,13212,13214, & - 13217,13221,13225,13229,13231,13234,13237,13241,13245,13249,13252,13255, & - 13259,13263,13265,13267,13269,13272,13276,13279,13283,13285,13288,13290, & - 13292,13294,13296,13299,13302,13306,13310,13312,13314,13316,13320,13322, & - 13325,13329,13332,13336,13338,13341,13343,13345,13347,13349,13352,13355, & - 13359,13363,13365,13367,13369,13371,13375,13377,13379,13382,13385,13389, & - 13393,13397,13400,13403,13407,13411,13414,13418,13422,13424,13427,13429, & - 13432,13435,13439,13443,13445,13450,13453,13457,13460,13464,13466,13469, & - 13472,13476,13480,13482,13485,13489,13493,13495,13498,13501,13503,13505, & - 13508,13511,13515,13519,13521,13523,13525,13528,13531,13535,13539,13541 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_12 = (/ & - 13543,13545,13548,13551,13555,13559,13561,13563,13565,13567,13570,13573, & - 13577,13581,13583,13585,13587,13589,13591,13594,13597,13600,13604,13607, & - 13610,13614,13616,13619,13622,13625,13628,13632,13635,13638,13642,13644, & - 13647,13651,13654,13657,13661,13665,13668,13671,13675,13679,13682,13686, & - 13689,13692,13694,13698,13701,13703,13706,13709,13713,13716,13719,13721, & - 13723,13726,13730,13733,13736,13738,13741,13743,13746,13750,13753,13756, & - 13760,13765,13769,13771,13774,13777,13780,13782,13786,13789,13792,13795, & - 13799,13802,13804,13807,13811,13814,13817,13820,13823,13825,13828,13832, & - 13835,13838,13840,13843,13846,13850,13853,13855,13859,13862,13865,13868, & - 13871,13874,13876,13879,13883,13885,13888,13892,13896,13899,13901,13904, & - 13907,13911,13914,13916,13919,13922,13925,13929,13932,13934,13937,13940, & - 13944,13947,13950,13953,13956,13959,13962,13965,13969,13971,13974,13978, & - 13981,13984,13987,13990,13992,13995,13998,14001,14005,14008,14010,14014, & - 14017,14019,14022,14026,14029,14032,14035,14037,14041,14045,14047,14050, & - 14054,14057,14060,14062,14065,14068,14072,14075,14077,14081,14084,14087, & - 14091,14095,14098,14101,14104,14109,14112,14115,14117,14119,14122,14126, & - 14129,14132,14135,14138,14142,14146,14149,14151,14154,14158,14160,14163, & - 14167,14171,14174,14177,14181,14183,14186,14190,14193,14195,14198,14201, & - 14205,14209,14213,14216,14219,14222,14226,14229,14231,14234,14237,14240, & - 14244,14247,14250,14253,14257,14261,14263,14265,14268,14272,14276,14278, & - 14280,14282,14285,14289,14293,14297,14300,14302,14305,14308,14312,14316, & - 14318,14320,14322,14325,14328,14331,14335,14337,14340,14343,14346,14349, & - 14352,14357,14360,14363,14366,14369,14372,14376,14380,14382,14385,14389, & - 14394,14398,14401,14406,14409,14412,14416,14420,14422,14424,14426,14429, & - 14432,14436,14440,14442,14444,14446,14449,14452,14456,14460,14462,14464, & - 14467,14471,14475,14477,14479,14481,14484,14487,14491,14495,14499,14502, & - 14505,14508,14512,14516,14518,14521,14525,14529,14532,14536,14539,14542, & - 14547,14550,14553,14556,14559,14562,14565,14569,14572,14576,14580,14582, & - 14584,14586,14589,14593,14597,14599,14601,14603,14606,14609,14613,14617, & - 14619,14621,14623,14626,14630,14634,14638,14641,14643,14646,14649,14653 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_13 = (/ & - 14656,14660,14662,14665,14668,14671,14674,14677,14682,14686,14691,14694, & - 14697,14700,14704,14708,14711,14715,14719,14722,14725,14728,14731,14734, & - 14738,14742,14746,14749,14753,14757,14760,14763,14767,14771,14773,14775, & - 14777,14780,14784,14788,14790,14792,14794,14798,14802,14805,14808,14811, & - 14815,14819,14821,14823,14825,14828,14832,14836,14838,14840,14842,14845, & - 14848,14852,14856,14858,14860,14862,14865,14868,14872,14875,14879,14881, & - 14884,14887,14890,14893,14896,14901,14905,14910,14914,14917,14921,14925, & - 14928,14932,14934,14936,14940,14943,14947,14951,14954,14958,14960,14962, & - 14965,14968,14972,14976,14978,14980,14982,14985,14989,14993,14996,15000, & - 15002,15005,15008,15011,15014,15019,15022,15025,15028,15033,15036,15039, & - 15042,15047,15050,15054,15057,15062,15066,15070,15073,15076,15080,15084, & - 15086,15088,15090,15093,15097,15101,15104,15108,15110,15113,15116,15121, & - 15124,15129,15132,15135,15138,15142,15146,15148,15150,15152,15156,15160, & - 15163,15167,15170,15174,15176,15178,15182,15185,15188,15192,15195,15198, & - 15202,15205,15209,15213,15215,15219,15223,15227,15230,15234,15239,15242, & - 15245,15249,15254,15257,15260,15265,15268,15272,15275,15279,15282,15286, & - 15290,15293,15296,15301,15305,15309,15312,15315,15320,15323,15328,15331, & - 15335,15338,15342,15345,15349,15351,15355,15358,15362,15366,15369,15373, & - 15375,15377,15381,15385,15388,15392,15395,15399,15401,15403,15406,15410, & - 15414,15416,15418,15420,15424,15427,15431,15435,15438,15442,15444,15446, & - 15449,15452,15456,15460,15462,15464,15466,15470,15474,15477,15481,15484, & - 15488,15490,15492,15495,15498,15503,15506,15511,15514,15519,15523,15528, & - 15532,15536,15539,15542,15547,15552,15557,15560,15562,15565,15569,15573, & - 15576,15579,15584,15589,15593,15596,15600,15603,15607,15610,15612,15616, & - 15619,15622,15627,15630,15635,15637,15640,15643,15646,15651,15654,15659, & - 15662,15665,15669,15672,15675,15680,15683,15688,15691,15694,15697,15701, & - 15705,15707,15709,15711,15714,15717,15721,15725,15727,15729,15731,15734, & - 15737,15741,15745,15747,15749,15751,15754,15758,15762,15765,15769,15771, & - 15774,15777,15781,15785,15787,15789,15791,15794,15798,15802,15805,15809, & - 15811,15814,15817,15821,15825,15827,15829,15831,15834,15837,15841,15845 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_14 = (/ & - 15847,15849,15851,15854,15857,15861,15865,15867,15869,15871,15874,15878, & - 15882,15885,15889,15891,15894,15897,15901,15905,15907,15909,15911,15914, & - 15918,15922,15924,15926,15929,15932,15936,15940,15942,15944,15946,15949, & - 15952,15956,15960,15962,15964,15966,15969,15972,15976,15980,15982,15984, & - 15986,15990,15993,15997,16000,16004,16006,16009,16012,16016,16020,16022, & - 16024,16026,16029,16032,16036,16040,16042,16044,16046,16049,16053,16057, & - 16059,16061,16064,16067,16071,16075,16077,16079,16081,16084,16088,16092, & - 16095,16099,16101,16104,16107,16111,16115,16117,16119,16121,16125,16129, & - 16132,16136,16139,16143,16145,16147,16150,16153,16157,16161,16163,16165, & - 16167,16171,16175,16178,16182,16185,16189,16191,16193,16196,16199,16203, & - 16207,16209,16211,16213,16216,16220,16224,16226,16229,16232,16236,16240, & - 16242,16244,16247,16251,16255,16257,16260,16263,16267,16271,16273,16275, & - 16277,16280,16283,16287,16291,16293,16295,16297,16300,16304,16308,16310, & - 16313,16316,16320,16324,16326,16328,16330,16333,16336,16340,16344,16346, & - 16348,16350,16353,16357,16361,16363,16366,16369,16373,16377,16379,16381, & - 16383,16386,16390,16394,16396,16399,16402,16406,16410,16412,16414,16416, & - 16419,16423,16427,16429,16432,16435,16439,16443,16445,16447,16449,16452, & - 16456,16460,16462,16465,16468,16472,16476,16478,16480,16482,16485,16489, & - 16493,16495,16498,16501,16505,16509,16511,16513,16515,16520,16524,16527, & - 16531,16534,16538,16541,16543,16548,16552,16555,16559,16562,16566,16569, & - 16571,16575,16578,16582,16586,16588,16590,16592,16596,16599,16602,16607, & - 16610,16615,16618,16623,16627,16630,16634,16637,16641,16644,16646,16649, & - 16653,16657,16659,16661,16663,16666,16671,16675,16678,16682,16685,16689, & - 16692,16694,16698,16701,16705,16709,16711,16714,16717,16722,16725,16730, & - 16733,16736,16740,16744,16746,16749,16753,16757,16759,16763,16766,16771, & - 16775,16778,16782,16784,16787,16791,16794,16798,16802,16804,16806,16809, & - 16813,16816,16821,16825,16828,16832,16834,16837,16841,16844,16847,16852, & - 16855,16860,16863,16866,16870,16874,16876,16881,16885,16888,16892,16895, & - 16899,16902,16904,16907,16911,16915,16917,16919,16921,16924,16928,16932, & - 16934,16936,16938,16941,16944,16949,16952,16957,16960,16963,16967,16971 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_15 = (/ & - 16973,16975,16977,16980,16984,16988,16990,16992,16994,16997,17000,17003, & - 17007,17010,17014,17018,17021,17025,17027,17029,17032,17035,17038,17041, & - 17046,17049,17053,17057,17060,17064,17067,17071,17073,17075,17078,17082, & - 17086,17088,17090,17092,17094,17097,17101,17106,17109,17113,17117,17120, & - 17124,17127,17129,17132,17137,17141,17145,17149,17153,17157,17160,17164, & - 17168,17170,17172,17174,17178,17181,17184,17189,17192,17196,17199,17204, & - 17207,17210,17215,17218,17221,17225,17228,17231,17234,17237,17241,17244, & - 17247,17250,17254,17257,17261,17264,17268,17272,17275,17278,17282,17286, & - 17288,17291,17294,17299,17303,17307,17311,17315,17318,17321,17324,17328, & - 17332,17334,17338,17342,17346,17349,17352,17355,17357,17360,17363,17366, & - 17370,17374,17377,17381,17384,17388,17390,17392,17395,17398,17401,17404, & - 17409,17412,17415,17419,17423,17427,17429,17432,17434,17437,17441,17447, & - 17450,17454,17459,17464,17468,17471,17473,17478,17481,17485,17489,17493, & - 17497,17501,17505,17509,17512,17516,17519,17523,17525,17527,17531,17535, & - 17539,17543,17547,17550,17553,17556,17558,17561,17565,17568,17571,17574, & - 17577,17580,17586,17589,17593,17597,17600,17604,17607,17611,17613,17615, & - 17618,17622,17626,17628,17630,17633,17637,17642,17645,17649,17654,17658, & - 17662,17665,17668,17672,17676,17679,17682,17686,17690,17694,17697,17700, & - 17704,17708,17711,17715,17719,17722,17725,17729,17733,17735,17738,17741, & - 17745,17748,17751,17754,17757,17762,17766,17770,17773,17777,17780,17784, & - 17786,17788,17791,17795,17799,17801,17805,17809,17813,17816,17819,17822, & - 17824,17827,17832,17835,17838,17843,17846,17850,17853,17857,17860,17864, & - 17866,17869,17872,17875,17878,17884,17887,17891,17895,17898,17902,17905, & - 17909,17911,17913,17916,17920,17924,17926,17928,17930,17933,17937,17943, & - 17946,17950,17955,17960,17964,17967,17969,17972,17975,17979,17982,17986, & - 17990,17994,17997,18000,18004,18008,18010,18013,18016,18020,18023,18026, & - 18029,18033,18036,18040,18043,18047,18050,18053,18058,18062,18066,18069, & - 18073,18076,18080,18082,18084,18087,18091,18095,18097,18101,18104,18109, & - 18112,18115,18118,18121,18126,18129,18131,18134,18138,18144,18147,18151, & - 18156,18161,18165,18168,18171,18176,18179,18184,18188,18191,18196,18200 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_16 = (/ & - 18203,18206,18210,18214,18217,18221,18225,18228,18231,18235,18239,18241, & - 18244,18247,18251,18254,18257,18260,18263,18268,18272,18275,18279,18283, & - 18286,18290,18292,18294,18298,18301,18304,18308,18312,18314,18317,18320, & - 18324,18327,18330,18333,18337,18340,18344,18347,18351,18354,18357,18362, & - 18366,18370,18374,18377,18380,18384,18386,18389,18394,18397,18401,18405, & - 18408,18412,18415,18419,18421,18423,18426,18429,18432,18435,18440,18443, & - 18446,18450,18454,18458,18460,18463,18465,18468,18472,18478,18481,18485, & - 18490,18495,18499,18502,18504,18509,18512,18516,18520,18524,18527,18531, & - 18534,18538,18542,18544,18546,18548,18551,18554,18558,18562,18565,18569, & - 18573,18576,18579,18583,18587,18589,18592,18595,18599,18602,18605,18608, & - 18611,18616,18621,18625,18629,18633,18637,18641,18644,18647,18650,18652, & - 18655,18660,18663,18667,18671,18674,18678,18681,18685,18687,18689,18692, & - 18695,18698,18701,18706,18709,18712,18716,18720,18724,18727,18729,18731, & - 18734,18738,18744,18747,18751,18756,18761,18765,18768,18770,18775,18778, & - 18782,18786,18790,18793,18797,18800,18803,18807,18810,18813,18817,18821, & - 18823,18826,18829,18833,18836,18839,18842,18846,18849,18853,18856,18860, & - 18863,18866,18871,18875,18879,18883,18886,18889,18892,18894,18899,18902, & - 18907,18910,18914,18918,18921,18925,18928,18932,18934,18936,18939,18942, & - 18945,18948,18953,18956,18959,18963,18967,18971,18973,18976,18978,18981, & - 18985,18991,18994,18998,19003,19008,19012,19015,19017,19020,19025,19029, & - 19033,19037,19040,19044,19048,19052,19055,19059,19062,19066,19068,19070, & - 19073,19076,19080,19084,19087,19091,19095,19098,19101,19105,19109,19111, & - 19114,19117,19121,19124,19127,19130,19135,19139,19142,19145,19148,19150, & - 19153,19156,19159,19162,19166,19169,19173,19177,19180,19184,19187,19191, & - 19193,19195,19198,19202,19206,19208,19210,19213,19216,19220,19224,19229, & - 19233,19236,19240,19244,19247,19251,19255,19258,19262,19265,19269,19271, & - 19273,19276,19280,19282,19284,19288,19292,19295,19300,19303,19306,19309, & - 19313,19317,19320,19324,19328,19331,19334,19338,19342,19344,19347,19350, & - 19354,19357,19360,19363,19366,19371,19374,19379,19382,19385,19390,19396, & - 19399,19401,19404,19407,19411,19415,19420,19424,19427,19431,19434,19437 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_17 = (/ & - 19442,19445,19449,19452,19455,19460,19464,19468,19472,19475,19479,19482, & - 19486,19488,19490,19493,19497,19501,19503,19507,19510,19514,19517,19521, & - 19523,19525,19528,19531,19535,19539,19542,19546,19549,19552,19556,19559, & - 19562,19565,19568,19571,19577,19580,19584,19588,19591,19595,19598,19602, & - 19604,19606,19609,19613,19617,19619,19622,19625,19628,19632,19637,19642, & - 19645,19648,19650,19654,19657,19662,19665,19669,19673,19677,19682,19685, & - 19688,19692,19696,19698,19700,19702,19705,19708,19711,19714,19719,19722, & - 19726,19730,19733,19737,19740,19744,19746,19748,19751,19755,19759,19761, & - 19763,19766,19770,19775,19778,19782,19787,19791,19795,19798,19801,19805, & - 19808,19811,19815,19819,19822,19825,19828,19832,19836,19839,19843,19847, & - 19850,19853,19857,19861,19863,19866,19869,19873,19876,19879,19882,19885, & - 19890,19893,19896,19899,19902,19907,19910,19912,19915,19919,19924,19927, & - 19931,19936,19941,19945,19948,19951,19955,19958,19961,19965,19968,19973, & - 19977,19981,19984,19988,19991,19994,19998,20002,20004,20007,20010,20014, & - 20017,20020,20023,20027,20030,20034,20037,20041,20044,20047,20052,20056, & - 20060,20063,20068,20073,20076,20079,20082,20085,20090,20093,20095,20098, & - 20102,20107,20110,20114,20119,20124,20128,20131,20134,20139,20144,20147, & - 20151,20156,20161,20165,20168,20171,20175,20179,20182,20186,20190,20193, & - 20196,20200,20204,20206,20209,20212,20216,20219,20222,20225,20228,20233, & - 20236,20240,20244,20246,20248,20250,20254,20258,20262,20265,20268,20271, & - 20273,20276,20281,20284,20287,20290,20293,20296,20301,20304,20307,20310, & - 20313,20317,20322,20327,20330,20333,20335,20339,20342,20347,20350,20354, & - 20358,20363,20368,20371,20375,20378,20382,20385,20389,20392,20395,20399, & - 20402,20405,20409,20413,20415,20417,20419,20422,20426,20430,20433,20437, & - 20439,20442,20446,20449,20453,20456,20460,20463,20466,20470,20473,20476, & - 20481,20486,20489,20494,20497,20500,20503,20506,20509,20514,20517,20521, & - 20525,20528,20532,20535,20539,20541,20543,20546,20550,20554,20556,20558, & - 20561,20565,20569,20571,20573,20575,20578,20581,20584,20588,20593,20598, & - 20601,20604,20606,20610,20613,20616,20620,20624,20629,20634,20637,20641, & - 20645,20647,20649,20651,20655,20658,20662,20668,20671,20677,20679,20683 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_18 = (/ & - 20685,20689,20691,20696,20699,20703,20707,20709,20711,20713,20717,20720, & - 20724,20730,20733,20739,20741,20745,20747,20749,20752,20757,20760,20763, & - 20767,20771,20773,20775,20777,20779,20781,20784,20788,20791,20794,20798, & - 20802,20804,20806,20808,20811,20815,20819,20821,20823,20825,20828,20831, & - 20836,20839,20844,20847,20850,20852,20856,20858,20862,20865,20868,20872, & - 20876,20878,20880,20882,20886,20889,20893,20899,20902,20908,20910,20914, & - 20916,20920,20922,20926,20929,20933,20937,20939,20941,20944,20946,20949, & - 20953,20957,20961,20965,20969,20973,20977,20980,20982,20985,20988,20992, & - 20996,20999,21002,21004,21007,21012,21016,21020,21023,21025,21027,21030, & - 21032,21035,21038,21041,21045,21049,21052,21055,21059,21063,21065,21069, & - 21074,21078,21082,21084,21086,21088,21093,21097,21101,21104,21108,21112, & - 21116,21120,21123,21126,21129,21133,21137,21140,21142,21145,21148,21152, & - 21156,21159,21162,21166,21169,21172,21174,21176,21179,21181,21184,21187, & - 21190,21194,21198,21200,21204,21209,21213,21217,21219,21221,21224,21229, & - 21233,21238,21241,21245,21249,21253,21257,21260,21263,21266,21269,21271, & - 21273,21276,21279,21283,21287,21290,21294,21298,21301,21304,21307,21311, & - 21315,21317,21319,21323,21325,21328,21331,21335,21339,21341,21343,21346, & - 21349,21354,21357,21362,21365,21368,21371,21375,21378,21381,21385,21389, & - 21393,21396,21398,21401,21404,21409,21412,21416,21419,21422,21427,21430, & - 21432,21435,21439,21442,21445,21448,21451,21455,21458,21460,21463,21467, & - 21471,21473,21476,21480,21482,21485,21489,21492,21495,21497,21500,21503, & - 21507,21511,21513,21515,21517,21520,21523,21527,21531,21533,21535,21537, & - 21540,21544,21548,21550,21552,21554,21557,21560,21563,21567,21571,21573, & - 21575,21577,21580,21583,21586,21589,21592,21596,21600,21602,21604,21606, & - 21609,21612,21616,21619,21623,21625,21627,21629,21632,21635,21639,21642, & - 21646,21648,21650,21652,21656,21659,21663,21667,21670,21674,21676,21678, & - 21681,21685,21689,21691,21693,21695,21698,21702,21706,21708,21710,21712, & - 21715,21719,21723,21725,21727,21729,21732,21736,21740,21742,21745,21749, & - 21753,21755,21757,21759,21762,21766,21770,21772,21774,21776,21780,21783, & - 21787,21791,21794,21798,21800,21802,21805,21809,21813,21815,21818,21822 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_19 = (/ & - 21826,21828,21831,21835,21839,21841,21843,21845,21848,21851,21855,21859, & - 21861,21863,21865,21868,21871,21875,21879,21881,21883,21885,21888,21892, & - 21896,21898,21901,21905,21909,21911,21913,21915,21918,21922,21926,21928, & - 21931,21935,21939,21941,21943,21945,21948,21952,21956,21959,21963,21965, & - 21968,21972,21976,21978,21981,21985,21989,21991,21994,21998,22002,22004, & - 22006,22008,22012,22015,22019,22023,22026,22030,22032,22034,22037,22041, & - 22045,22047,22049,22051,22054,22058,22062,22064,22066,22068,22072,22076, & - 22079,22082,22086,22089,22093,22097,22099,22103,22106,22110,22114,22117, & - 22121,22123,22125,22128,22131,22133,22136,22139,22141,22144,22148,22151, & - 22153,22157,22161,22165,22169,22173,22176,22179,22182,22184,22187,22191, & - 22194,22196,22200,22203,22207,22210,22214,22217,22220,22223,22227,22231, & - 22233,22235,22237,22240,22245,22249,22252,22256,22259,22261,22264,22268, & - 22271,22273,22276,22279,22283,22285,22288,22292,22295,22297,22300,22304, & - 22307,22310,22315,22318,22320,22323,22325,22328,22330,22333,22337,22340, & - 22343,22347,22351,22353,22355,22357,22360,22363,22368,22371,22376,22379, & - 22383,22386,22390,22394,22397,22400,22404,22406,22410,22413,22416,22420, & - 22423,22427,22431,22433,22437,22440,22443,22447,22451,22455,22459,22461, & - 22464,22468,22471,22473,22477,22480,22483,22487,22490,22493,22497,22501, & - 22505,22508,22512,22514,22516,22519,22522,22525,22528,22531,22535,22538, & - 22542,22546,22549,22553,22555,22557,22560,22564,22568,22570,22572,22574, & - 22577,22581,22584,22587,22590,22593,22596,22600,22603,22606,22610,22614, & - 22616,22618,22621,22624,22628,22632,22636,22639,22642,22645,22648,22651, & - 22653,22655,22658,22660,22663,22666,22669,22673,22677,22679,22681,22683, & - 22686,22690,22693,22697,22700,22704,22708,22710,22713,22717,22720,22724, & - 22728,22732,22736,22738,22741,22744,22747,22750,22754,22758,22760,22762, & - 22764,22767,22771,22774,22776,22780,22783,22787,22791,22794,22797,22801, & - 22805,22807,22810,22815,22819,22823,22827,22831,22835,22837,22840,22844, & - 22847,22849,22852,22855,22859,22862,22865,22868,22871,22874,22877,22880, & - 22883,22886,22889,22892,22897,22900,22903,22906,22909,22914,22917,22919, & - 22922,22926,22930,22934,22938,22942,22945,22948,22951,22956,22959,22962 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_20 = (/ & - 22964,22968,22971,22975,22979,22983,22986,22989,22992,22995,23000,23003, & - 23007,23012,23015,23018,23020,23023,23027,23031,23035,23039,23042,23046, & - 23049,23052,23055,23058,23063,23066,23070,23074,23077,23081,23083,23086, & - 23090,23094,23096,23098,23100,23103,23107,23111,23113,23116,23120,23124, & - 23126,23129,23132,23136,23139,23143,23148,23151,23154,23158,23163,23166, & - 23169,23172,23177,23180,23183,23186,23189,23192,23197,23200,23203,23206, & - 23209,23214,23217,23219,23224,23227,23230,23233,23236,23239,23242,23247, & - 23250,23253,23255,23258,23262,23265,23269,23273,23276,23280,23283,23286, & - 23289,23291,23296,23299,23302,23306,23311,23314,23318,23321,23325,23328, & - 23333,23337,23340,23344,23346,23349,23353,23357,23361,23364,23368,23372, & - 23375,23379,23383,23387,23390,23394,23398,23401,23404,23408,23413,23416, & - 23420,23424,23427,23430,23435,23438,23440,23443,23447,23450,23453,23456, & - 23460,23464,23467,23469,23472,23475,23479,23482,23486,23490,23493,23496, & - 23499,23501,23504,23508,23511,23515,23519,23523,23527,23530,23533,23536, & - 23539,23545,23548,23550,23553,23557,23560,23564,23567,23570,23573,23577, & - 23580,23583,23588,23591,23594,23596,23599,23603,23606,23610,23613,23615, & - 23618,23621,23625,23628,23632,23636,23640,23643,23646,23648,23651,23655, & - 23658,23661,23664,23668,23671,23674,23677,23680,23685,23688,23690,23693, & - 23696,23700,23703,23707,23711,23715,23718,23722,23725,23728,23731,23735, & - 23738,23741,23743,23746,23750,23752,23756,23760,23763,23766,23770,23773, & - 23775,23778,23781,23785,23788,23792,23796,23799,23802,23806,23809,23811, & - 23814,23818,23821,23824,23827,23831,23834,23837,23840,23843,23848,23851, & - 23853,23856,23859,23863,23866,23870,23874,23877,23880,23883,23885,23888, & - 23892,23894,23897,23900,23903,23907,23910,23913,23916,23920,23923,23926, & - 23928,23931,23934,23938,23941,23945,23949,23952,23956,23960,23963,23966, & - 23969,23974,23977,23979,23982,23985,23989,23992,23996,24000,24003,24006, & - 24009,24012,24015,24021,24024,24027,24029,24032,24036,24039,24043,24047, & - 24051,24054,24057,24060,24063,24066,24071,24074,24076,24079,24083,24086, & - 24090,24093,24097,24100,24103,24105,24108,24111,24114,24119,24122,24126, & - 24129,24132,24134,24137,24139,24142,24146,24149,24152,24155,24158,24161 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_21 = (/ & - 24164,24166,24169,24173,24176,24180,24184,24188,24191,24194,24197,24199, & - 24201,24204,24207,24211,24214,24218,24222,24226,24229,24232,24234,24237, & - 24241,24244,24248,24251,24254,24258,24261,24264,24266,24269,24271,24274, & - 24278,24281,24285,24288,24291,24295,24298,24301,24303,24306,24308,24311, & - 24315,24318,24322,24325,24328,24332,24335,24338,24340,24343,24345,24348, & - 24352,24355,24359,24362,24365,24369,24372,24375,24377,24380,24382,24385, & - 24389,24392,24396,24399,24402,24406,24409,24412,24414,24416,24419,24423, & - 24426,24428,24432,24436,24439,24443,24448,24451,24455,24458,24462,24467, & - 24470,24473,24476,24479,24483,24486,24490,24493,24496,24500,24505,24508, & - 24512,24515,24519,24524,24527,24530,24533,24536,24540,24543,24546,24550, & - 24553,24557,24560,24564,24569,24572,24575,24578,24581,24584,24587,24591, & - 24596,24599,24602,24605,24609,24612,24615,24618,24622,24626,24629,24633, & - 24638,24641,24644,24647,24651,24654,24658,24663,24666,24669,24673,24678, & - 24681,24683,24686,24689,24693,24696,24700,24703,24707,24712,24715,24718, & - 24721,24724,24729,24732,24736,24740,24743,24745,24748,24751,24755,24758, & - 24761,24765,24769,24772,24775,24780,24782,24785,24788,24792,24796,24800, & - 24803,24805,24808,24811,24815,24818,24822,24826,24830,24834,24837,24841, & - 24845,24847,24849,24853,24856,24860,24864,24866,24868,24870,24873,24877, & - 24880,24884,24887,24891,24894,24899,24902,24905,24908,24911,24914,24919, & - 24922,24924,24927,24932,24936,24940,24943,24945,24948,24953,24956,24959, & - 24963,24967,24971,24975,24978,24981,24984,24987,24990,24994,24998,25000, & - 25003,25006,25009,25014,25017,25020,25023,25026,25029,25032,25035,25038, & - 25041,25045,25049,25051,25054,25058,25062,25066,25069,25073,25076,25080, & - 25082,25084,25086,25090,25093,25097,25101,25103,25105,25108,25112,25116, & - 25118,25120,25122,25125,25129,25133,25135,25139,25141,25144,25148,25152, & - 25154,25156,25159,25163,25166,25169,25174,25177,25180,25183,25186,25189, & - 25192,25197,25200,25204,25207,25211,25215,25218,25222,25224,25226,25229, & - 25232,25234,25236,25239,25243,25247,25249,25251,25254,25258,25262,25264, & - 25267,25271,25275,25277,25279,25281,25284,25288,25292,25294,25296,25299, & - 25302,25305,25308,25312,25315,25318,25323,25326,25330,25334,25337,25340 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_22 = (/ & - 25344,25348,25351,25354,25357,25360,25363,25366,25369,25372,25375,25378, & - 25381,25385,25389,25391,25394,25397,25400,25405,25408,25411,25414,25417, & - 25420,25424,25428,25430,25432,25435,25439,25443,25445,25448,25452,25456, & - 25458,25460,25462,25465,25469,25473,25475,25477,25480,25484,25488,25490, & - 25493,25497,25501,25503,25506,25510,25514,25516,25518,25522,25525,25528, & - 25531,25536,25541,25544,25547,25550,25553,25556,25561,25564,25567,25570, & - 25575,25579,25582,25585,25588,25591,25594,25597,25600,25603,25606,25610, & - 25614,25616,25621,25626,25629,25632,25635,25640,25643,25646,25649,25652, & - 25655,25659,25663,25665,25667,25669,25672,25675,25678,25681,25684,25687, & - 25690,25693,25696,25700,25704,25706,25709,25712,25715,25720,25723,25726, & - 25729,25732,25735,25738,25743,25746,25749,25752,25755,25758,25762,25766, & - 25768,25772,25776,25779,25783,25787,25789,25791,25793,25796,25800,25804, & - 25806,25809,25813,25817,25819,25821,25823,25826,25830,25834,25836,25838, & - 25840,25844,25847,25850,25853,25858,25863,25866,25869,25872,25875,25879, & - 25883,25886,25890,25894,25896,25898,25901,25904,25907,25910,25914,25917, & - 25921,25924,25927,25930,25933,25936,25939,25942,25945,25948,25952,25956, & - 25958,25962,25966,25968,25972,25975,25977,25980,25984,25988,25990,25992, & - 25994,25997,26001,26005,26007,26010,26014,26018,26020,26022,26024,26027, & - 26031,26035,26037,26039,26041,26044,26048,26051,26054,26059,26064,26067, & - 26070,26073,26076,26080,26084,26087,26091,26095,26097,26100,26104,26108, & - 26110,26112,26114,26117,26120,26123,26126,26129,26133,26136,26139,26142, & - 26145,26148,26152,26156,26158,26162,26166,26169,26173,26177,26179,26181, & - 26183,26186,26190,26194,26196,26199,26203,26207,26209,26211,26213,26216, & - 26220,26224,26226,26228,26230,26234,26237,26240,26243,26248,26253,26256, & - 26259,26262,26265,26269,26273,26276,26280,26284,26286,26289,26292,26295, & - 26300,26303,26306,26310,26313,26316,26319,26322,26325,26328,26331,26335, & - 26339,26341,26345,26349,26352,26356,26359,26363,26365,26367,26370,26374, & - 26378,26380,26382,26385,26389,26393,26395,26399,26403,26406,26410,26414, & - 26416,26418,26421,26425,26429,26431,26434,26438,26442,26444,26446,26449, & - 26453,26457,26459,26461,26464,26467,26470,26473,26478,26481,26483,26486 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_23 = (/ & - 26490,26495,26498,26501,26504,26509,26512,26515,26518,26521,26524,26526, & - 26529,26533,26537,26539,26541,26545,26550,26553,26556,26559,26562,26565, & - 26568,26571,26574,26577,26581,26585,26587,26590,26595,26598,26601,26604, & - 26609,26612,26615,26618,26621,26624,26627,26630,26633,26637,26643,26646, & - 26649,26652,26655,26658,26663,26666,26669,26672,26676,26679,26683,26687, & - 26690,26693,26695,26698,26702,26705,26709,26713,26717,26721,26724,26727, & - 26730,26733,26737,26740,26743,26746,26750,26755,26759,26762,26767,26771, & - 26774,26777,26780,26783,26786,26789,26792,26795,26798,26802,26806,26808, & - 26812,26815,26820,26824,26827,26830,26833,26836,26839,26842,26845,26848, & - 26851,26855,26859,26861,26864,26868,26872,26874,26876,26878,26881,26884, & - 26887,26890,26893,26896,26899,26902,26905,26909,26913,26915,26917,26920, & - 26924,26927,26931,26935,26939,26943,26947,26951,26954,26958,26961,26965, & - 26967,26969,26972,26976,26980,26982,26984,26987,26991,26995,26997,27000, & - 27004,27008,27010,27012,27014,27017,27021,27025,27027,27029,27033,27037, & - 27041,27043,27047,27050,27053,27057,27061,27065,27069,27072,27075,27078, & - 27082,27086,27088,27093,27096,27099,27103,27108,27112,27115,27119,27124, & - 27127,27130,27133,27136,27139,27144,27147,27150,27153,27158,27162,27167, & - 27171,27173,27176,27180,27183,27186,27190,27193,27197,27199,27202,27205, & - 27209,27213,27217,27222,27227,27230,27233,27238,27241,27245,27249,27253, & - 27256,27258,27261,27265,27267,27271,27275,27279,27283,27289,27294,27299, & - 27304,27307,27310,27315,27318,27322,27326,27330,27333,27335,27338,27340, & - 27344,27348,27352,27356,27360,27364,27367,27370,27374,27378,27382,27385, & - 27387,27389,27392,27396,27400,27404,27408,27410,27414,27417,27420,27424, & - 27426,27430,27433,27436,27441,27444,27448,27452,27456,27459,27462,27464, & - 27467,27471,27475,27480,27484,27487,27491,27495,27500,27505,27508,27511, & - 27516,27519,27523,27527,27531,27534,27537,27540,27544,27547,27550,27554, & - 27558,27561,27564,27568,27572,27574,27578,27582,27585,27589,27591,27595, & - 27597,27601,27604,27608,27613,27617,27621,27623,27625,27629,27633,27637, & - 27641,27644,27648,27651,27654,27657,27662,27666,27670,27674,27678,27681, & - 27687,27690,27696,27700,27703,27705,27708,27711,27715,27719,27721,27725 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_24 = (/ & - 27728,27731,27734,27737,27740,27745,27749,27751,27753,27756,27759,27763, & - 27767,27769,27771,27773,27776,27779,27783,27785,27787,27789,27792,27796, & - 27799,27802,27806,27810,27812,27816,27819,27823,27828,27832,27836,27838, & - 27841,27844,27849,27853,27857,27861,27864,27869,27872,27875,27879,27883, & - 27885,27889,27894,27899,27903,27906,27911,27914,27919,27922,27925,27927, & - 27930,27934,27937,27941,27943,27946,27949,27953,27957,27959,27961,27965, & - 27967,27971,27974,27977,27981,27985,27987,27989,27992,27996,28000,28002, & - 28005,28009,28012,28017,28021,28026,28030,28034,28038,28042,28045,28049, & - 28053,28057,28060,28063,28067,28072,28075,28079,28082,28085,28089,28094, & - 28097,28100,28104,28109,28113,28116,28119,28123,28127,28129,28131,28133, & - 28137,28140,28142,28145,28149,28152,28155,28159,28163,28167,28170,28172, & - 28175,28179,28182,28185,28189,28192,28196,28200,28203,28205,28208,28210, & - 28215,28219,28223,28226,28229,28231,28234,28237,28241,28244,28247,28251, & - 28254,28257,28260,28264,28268,28270,28272,28274,28276,28279,28283,28286, & - 28289,28293,28297,28300,28304,28308,28311,28315,28317,28320,28323,28327, & - 28330,28334,28337,28340,28343,28348,28351,28354,28356,28359,28362,28366, & - 28369,28374,28378,28382,28385,28388,28390,28394,28397,28399,28402,28405, & - 28409,28412,28416,28420,28423,28426,28430,28433,28437,28440,28443,28447, & - 28450,28453,28457,28460,28464,28467,28469,28472,28476,28480,28484,28488, & - 28491,28494,28497,28500,28503,28506,28511,28514,28517,28520,28522,28525, & - 28528,28531,28534,28538,28541,28543,28546,28550,28553,28556,28560,28564, & - 28567,28569,28572,28575,28579,28581,28584,28587,28589,28592,28596,28600, & - 28604,28608,28611,28615,28618,28621,28624,28627,28629,28632,28635,28638, & - 28642,28645,28649,28652,28655,28658,28662,28664,28667,28671,28674,28677, & - 28681,28684,28688,28692,28695,28698,28703,28706,28709,28712,28715,28718, & - 28722,28725,28728,28730,28733,28736,28740,28744,28748,28751,28754,28757, & - 28760,28766,28769,28772,28775,28779,28782,28786,28789,28793,28796,28799, & - 28801,28804,28807,28809,28813,28817,28820,28823,28826,28829,28833,28837, & - 28839,28841,28844,28847,28849,28852,28855,28860,28863,28866,28869,28873, & - 28877,28879,28881,28885,28889,28892,28896,28899,28903,28905,28907,28910 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_25 = (/ & - 28914,28918,28922,28925,28929,28931,28933,28936,28940,28944,28946,28949, & - 28953,28957,28959,28961,28964,28968,28972,28975,28979,28981,28984,28988, & - 28992,28994,28997,29000,29004,29008,29010,29012,29014,29017,29021,29024, & - 29027,29031,29034,29038,29043,29046,29049,29052,29056,29060,29062,29064, & - 29067,29070,29074,29078,29080,29082,29084,29087,29090,29094,29098,29100, & - 29102,29104,29107,29110,29113,29117,29121,29123,29125,29127,29130,29134, & - 29137,29139,29142,29146,29149,29153,29158,29161,29164,29168,29172,29174, & - 29176,29179,29183,29186,29189,29193,29196,29199,29203,29207,29209,29211, & - 29215,29218,29222,29226,29229,29232,29236,29240,29243,29247,29251,29254, & - 29258,29260,29262,29266,29270,29273,29277,29280,29284,29286,29288,29291, & - 29295,29299,29301,29303,29305,29308,29312,29316,29319,29323,29325,29328, & - 29332,29336,29338,29341,29345,29349,29351,29354,29357,29362,29365,29368, & - 29372,29376,29378,29380,29383,29386,29390,29392,29395,29398,29402,29406, & - 29408,29410,29413,29416,29420,29424,29426,29428,29430,29433,29436,29441, & - 29444,29447,29450,29454,29459,29462,29466,29470,29474,29477,29480,29484, & - 29488,29490,29492,29494,29498,29501,29505,29509,29512,29516,29518,29520, & - 29523,29527,29531,29533,29535,29537,29540,29544,29548,29550,29552,29554, & - 29557,29561,29565,29567,29569,29571,29574,29577,29581,29585,29587,29589, & - 29591,29594,29597,29602,29606,29611,29614,29617,29622,29626,29631,29634, & - 29638,29642,29644,29646,29648,29651,29655,29659,29663,29666,29669,29672, & - 29677,29681,29686,29690,29693,29697,29701,29704,29708,29710,29712,29716, & - 29720,29723,29727,29730,29734,29736,29738,29741,29745,29749,29753,29756, & - 29759,29763,29767,29769,29771,29773,29776,29779,29784,29788,29793,29796, & - 29799,29803,29807,29809,29811,29814,29818,29822,29824,29826,29830,29833, & - 29837,29839,29842,29845,29848,29852,29856,29858,29860,29863,29866,29870, & - 29874,29876,29878,29880,29883,29887,29891,29893,29896,29899,29903,29907, & - 29909,29911,29915,29918,29922,29926,29928,29930,29933,29937,29941,29945, & - 29947,29950,29953,29957,29961,29965,29967,29969,29972,29975,29977,29980, & - 29983,29985,29988,29991,29994,29998,30002,30004,30006,30009,30012,30016, & - 30020,30022,30024,30026,30029,30032,30037,30040,30045,30048,30051,30054 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_26 = (/ & - 30059,30062,30067,30070,30073,30076,30081,30084,30086,30089,30092,30095, & - 30098,30101,30105,30109,30112,30115,30117,30120,30123,30125,30129,30133, & - 30136,30140,30143,30147,30149,30151,30154,30158,30162,30164,30168,30173, & - 30176,30181,30186,30189,30193,30197,30200,30204,30208,30212,30215,30219, & - 30223,30226,30230,30233,30237,30241,30244,30248,30250,30252,30256,30260, & - 30263,30266,30270,30274,30277,30281,30283,30286,30289,30293,30297,30299, & - 30301,30303,30307,30311,30314,30318,30321,30325,30329,30332,30336,30338, & - 30340,30343,30346,30350,30354,30356,30358,30362,30366,30369,30372,30375, & - 30378,30382,30386,30388,30390,30392,30396,30399,30403,30407,30410,30414, & - 30416,30418,30421,30425,30429,30431,30433,30435,30438,30442,30446,30449, & - 30453,30455,30459,30462,30466,30470,30473,30477,30479,30481,30484,30487, & - 30491,30495,30497,30499,30501,30504,30507,30511,30515,30517,30519,30521, & - 30525,30529,30532,30536,30539,30543,30547,30550,30554,30556,30558,30561, & - 30564,30568,30572,30574,30576,30579,30583,30587,30589,30591,30593,30596, & - 30600,30604,30606,30608,30612,30615,30619,30623,30626,30630,30632,30634, & - 30637,30640,30644,30648,30650,30652,30654,30658,30661,30665,30669,30672, & - 30676,30678,30680,30684,30687,30691,30695,30698,30702,30704,30706,30709, & - 30712,30716,30719,30722,30725,30728,30731,30735,30739,30741,30744,30748, & - 30752,30754,30757,30760,30764,30768,30770,30772,30774,30777,30781,30785, & - 30787,30789,30791,30794,30797,30801,30804,30807,30810,30813,30816,30820, & - 30824,30826,30829,30832,30836,30840,30842,30844,30846,30850,30853,30857, & - 30861,30864,30868,30870,30872,30875,30878,30882,30886,30888,30890,30892, & - 30895,30898,30901,30905,30909,30911,30914,30917,30921,30925,30927,30929, & - 30931,30934,30937,30940,30944,30948,30950,30953,30957,30961,30963,30966, & - 30969,30973,30977,30979,30981,30983,30986,30989,30992,30996,31000,31002, & - 31005,31009,31013,31015,31018,31021,31025,31029,31031,31033,31035,31038, & - 31041,31044,31048,31052,31054,31057,31061,31065,31067,31070,31073,31077, & - 31081,31083,31085,31087,31090,31093,31096,31100,31104,31106,31109,31112, & - 31116,31120,31122,31124,31126,31129,31132,31135,31139,31143,31145,31149, & - 31152,31157,31161,31165,31169,31173,31177,31181,31184,31187,31190,31193 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_27 = (/ & - 31196,31200,31204,31208,31211,31213,31216,31219,31222,31226,31230,31233, & - 31237,31240,31243,31246,31249,31253,31257,31259,31262,31266,31270,31272, & - 31275,31279,31283,31285,31288,31291,31294,31298,31302,31304,31307,31311, & - 31315,31317,31319,31321,31324,31328,31332,31334,31337,31341,31345,31347, & - 31349,31351,31354,31357,31360,31364,31368,31370,31373,31377,31381,31383, & - 31386,31390,31394,31396,31399,31402,31406,31409,31412,31416,31419,31425, & - 31428,31432,31435,31439,31441,31444,31447,31451,31455,31459,31463,31467, & - 31470,31473,31476,31479,31483,31487,31489,31492,31496,31500,31504,31507, & - 31509,31512,31515,31518,31521,31524,31527,31530,31534,31537,31542,31545, & - 31548,31552,31556,31560,31563,31566,31570,31573,31577,31580,31584,31587, & - 31590,31593,31595,31598,31601,31604,31607,31610,31614,31617,31620,31623, & - 31626,31629,31632,31635,31639,31643,31645,31648,31652,31656,31658,31661, & - 31665,31669,31671,31673,31675,31678,31682,31686,31688,31691,31695,31699, & - 31701,31704,31707,31710,31715,31718,31721,31725,31729,31732,31735,31738, & - 31740,31743,31746,31749,31752,31754,31758,31761,31764,31767,31770,31773, & - 31776,31779,31782,31786,31789,31792,31795,31798,31801,31804,31807,31810, & - 31813,31816,31820,31824,31826,31829,31833,31837,31839,31842,31846,31850, & - 31852,31854,31857,31861,31865,31867,31870,31874,31878,31880,31883,31886, & - 31889,31891,31894,31898,31901,31904,31907,31911,31915,31918,31922,31925, & - 31928,31931,31934,31938,31942,31944,31947,31951,31955,31957,31960,31964, & - 31968,31970,31972,31975,31979,31983,31985,31988,31992,31996,31998,32001, & - 32004,32007,32010,32013,32017,32021,32023,32026,32030,32034,32036,32039, & - 32043,32047,32049,32051,32053,32056,32060,32064,32066,32069,32073,32077, & - 32079,32082,32085,32088,32092,32095,32099,32103,32106,32110,32114,32118, & - 32121,32124,32127,32130,32133,32135,32138,32141,32144,32147,32151,32155, & - 32158,32162,32168,32171,32177,32181,32184,32187,32191,32194,32198,32202, & - 32204,32207,32210,32213,32217,32221,32223,32226,32230,32234,32236,32239, & - 32243,32247,32249,32251,32253,32256,32260,32264,32266,32269,32273,32277, & - 32279,32282,32285,32287,32290,32294,32298,32301,32306,32309,32313,32317, & - 32320,32323,32326,32329,32332,32335,32337,32340,32343,32346,32349,32353 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_28 = (/ & - 32357,32360,32364,32370,32373,32379,32383,32386,32389,32393,32395,32398, & - 32401,32405,32410,32414,32418,32421,32424,32427,32431,32435,32437,32440, & - 32444,32448,32450,32453,32457,32461,32463,32465,32467,32470,32474,32478, & - 32480,32483,32487,32491,32493,32496,32499,32501,32504,32508,32512,32515, & - 32519,32524,32527,32531,32534,32537,32540,32543,32546,32549,32551,32554, & - 32557,32560,32563,32567,32571,32574,32578,32584,32587,32593,32597,32600, & - 32603,32607,32610,32613,32616,32619,32622,32626,32630,32632,32635,32639, & - 32643,32645,32648,32652,32656,32658,32661,32664,32667,32671,32673,32679, & - 32682,32685,32688,32692,32695,32698,32701,32704,32707,32710,32713,32716, & - 32719,32722,32725,32728,32731,32734,32737,32740,32743,32746,32749,32752, & - 32755,32758,32762,32765,32768,32772,32775,32779,32782,32785,32788,32792, & - 32796,32798,32801,32805,32809,32811,32814,32818,32822,32824,32826,32829, & - 32833,32837,32839,32842,32846,32850,32852,32855,32858,32861,32864,32868, & - 32872,32874,32877,32880,32883,32887,32891,32893,32896,32900,32904,32906, & - 32909,32913,32917,32919,32921,32923,32926,32930,32934,32936,32939,32943, & - 32947,32949,32952,32955,32958,32961,32964,32968,32972,32974,32977,32981, & - 32985,32987,32990,32994,32998,33000,33002,33005,33009,33013,33015,33018, & - 33022,33026,33028,33031,33034,33036,33039,33042,33046,33051,33056,33061, & - 33065,33068,33071,33074,33077,33081,33085,33087,33090,33094,33098,33100, & - 33103,33107,33111,33113,33115,33118,33122,33126,33128,33131,33135,33139, & - 33141,33144,33147,33150,33153,33156,33159,33163,33169,33172,33175,33178, & - 33182,33185,33188,33191,33194,33197,33199,33202,33205,33208,33211,33214, & - 33218,33221,33224,33227,33230,33233,33236,33239,33242,33246,33250,33252, & - 33256,33261,33265,33268,33271,33276,33279,33284,33287,33290,33293,33297, & - 33301,33305,33308,33313,33316,33320,33324,33327,33332,33336,33339,33343, & - 33346,33350,33354,33357,33360,33362,33367,33371,33376,33379,33383,33386, & - 33388,33391,33395,33399,33403,33406,33408,33411,33415,33419,33423,33426, & - 33429,33432,33435,33438,33442,33446,33448,33453,33458,33461,33464,33469, & - 33472,33475,33479,33484,33488,33491,33494,33497,33501,33505,33509,33511, & - 33514,33516,33520,33523,33526,33530,33534,33538,33542,33546,33550,33554 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_29 = (/ & - 33556,33559,33562,33565,33569,33573,33576,33579,33583,33588,33593,33596, & - 33600,33603,33606,33610,33614,33616,33619,33623,33626,33630,33634,33638, & - 33641,33644,33649,33654,33657,33661,33664,33669,33672,33675,33679,33682, & - 33687,33691,33694,33697,33701,33705,33709,33712,33716,33719,33722,33726, & - 33730,33734,33737,33741,33744,33748,33753,33756,33761,33764,33768,33772, & - 33776,33780,33783,33787,33790,33793,33798,33801,33803,33806,33808,33811, & - 33813,33816,33819,33822,33826,33829,33832,33836,33840,33844,33848,33851, & - 33854,33857,33861,33865,33868,33872,33874,33877,33880,33883,33887,33891, & - 33893,33895,33897,33900,33904,33908,33910,33913,33915,33918,33921,33925, & - 33928,33931,33935,33939,33943,33946,33950,33953,33956,33960,33964,33966, & - 33969,33972,33976,33980,33982,33984,33986,33989,33993,33996,34000,34004, & - 34007,34011,34013,34015,34019,34023,34026,34030,34033,34037,34039,34041, & - 34044,34048,34052,34054,34057,34061,34065,34067,34071,34074,34078,34082, & - 34085,34089,34091,34093,34096,34100,34104,34106,34109,34113,34117,34119, & - 34122,34125,34130,34133,34135,34138,34141,34144,34148,34152,34154,34157, & - 34160,34165,34168,34171,34174,34177,34179,34181,34184,34187,34190,34193, & - 34199,34202,34205,34208,34211,34214,34219,34222,34225,34228,34230,34233, & - 34236,34238,34241,34244,34247,34250,34255,34258,34261,34264,34266,34269, & - 34272,34276,34279,34282,34285,34288,34293,34296,34298,34301,34304,34306, & - 34309,34313,34316,34318,34321,34325,34327,34330,34334,34337,34340,34342, & - 34346,34349,34353,34357,34361,34364,34368,34372,34375,34379,34381,34383, & - 34386,34389,34394,34397,34400,34403,34406,34409,34413,34417,34419,34421, & - 34424,34427,34431,34436,34439,34443,34447,34449,34451,34454,34458,34462, & - 34466,34469,34473,34475,34477,34480,34483,34487,34491,34493,34495,34497, & - 34500,34503,34508,34512,34517,34520,34524,34528,34530,34532,34536,34539, & - 34543,34546,34549,34552,34556,34560,34562,34564,34567,34570,34574,34578, & - 34580,34582,34585,34588,34591,34594,34599,34602,34604,34606,34609,34612, & - 34615,34620,34623,34625,34628,34631,34634,34637,34641,34644,34647,34652, & - 34655,34658,34661,34665,34667,34670,34673,34676,34679,34682,34685,34689, & - 34692,34696,34700,34702,34702,34704,34707,34711,34715,34717,34719,34721 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_30 = (/ & - 34724,34728,34732,34736,34738,34741,34744,34747,34751,34754,34758,34760, & - 34763,34766,34769,34771,34774,34777,34781,34784,34788,34791,34794,34799, & - 34802,34804,34807,34811,34814,34818,34821,34825,34829,34831,34834,34838, & - 34841,34845,34849,34853,34857,34859,34862,34867,34871,34875,34879,34883, & - 34887,34889,34892,34896,34899,34901,34904,34908,34910,34913,34916,34920, & - 34924,34927,34930,34933,34938,34941,34943,34945,34948,34951,34954,34959, & - 34962,34964,34967,34970,34974,34977,34981,34983,34986,34990,34993,34995, & - 34999,35002,35005,35009,35014,35018,35021,35025,35029,35032,35036,35038, & - 35040,35043,35046,35050,35054,35056,35058,35060,35063,35067,35071,35075, & - 35078,35081,35085,35089,35091,35093,35095,35098,35101,35106,35110,35113, & - 35115,35118,35122,35125,35127,35130,35134,35137,35140,35143,35146,35150, & - 35153,35155,35158,35161,35164,35167,35171,35174,35177,35181,35185,35187, & - 35189,35191,35194,35197,35201,35204,35208,35210,35213,35216,35219,35223, & - 35226,35229,35234,35238,35241,35244,35249,35253,35257,35260,35263,35266, & - 35270,35274,35277,35281,35283,35285,35288,35292,35296,35298,35301,35305, & - 35309,35311,35314,35318,35322,35324,35327,35330,35333,35336,35341,35344, & - 35347,35351,35356,35359,35363,35366,35369,35374,35377,35382,35384,35387, & - 35391,35394,35398,35402,35405,35409,35411,35413,35416,35419,35422,35425, & - 35430,35434,35437,35441,35445,35448,35452,35454,35456,35459,35462,35465, & - 35470,35473,35475,35478,35482,35486,35489,35493,35497,35500,35504,35508, & - 35511,35515,35517,35519,35522,35525,35528,35531,35536,35539,35542,35546, & - 35549,35554,35558,35561,35565,35569,35572,35576,35578,35580,35583,35587, & - 35591,35593,35595,35598,35600,35603,35607,35609,35612,35616,35619,35622, & - 35625,35628,35633,35636,35640,35642,35645,35648,35651,35655,35659,35663, & - 35666,35669,35672,35677,35680,35683,35686,35689,35694,35697,35699,35702, & - 35706,35710,35714,35718,35721,35724,35728,35731,35733,35736,35740,35744, & - 35747,35751,35754,35758,35762,35765,35769,35773,35776,35780,35782,35784, & - 35787,35790,35793,35796,35801,35804,35807,35810,35815,35819,35822,35825, & - 35828,35830,35833,35836,35840,35844,35847,35850,35854,35857,35860,35864, & - 35867,35870,35873,35876,35879,35885,35888,35891,35893,35896,35900,35903 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_31 = (/ & - 35907,35911,35915,35918,35921,35924,35927,35930,35935,35938,35941,35944, & - 35947,35952,35955,35958,35962,35966,35968,35970,35972,35975,35979,35983, & - 35985,35987,35989,35992,35996,36000,36002,36004,36006,36009,36013,36016, & - 36019,36022,36025,36028,36031,36033,36036,36040,36044,36047,36050,36053, & - 36057,36060,36064,36066,36069,36072,36075,36078,36082,36086,36089,36092, & - 36096,36100,36102,36104,36107,36111,36115,36117,36119,36122,36126,36130, & - 36132,36134,36136,36139,36142,36145,36148,36150,36153,36156,36160,36162, & - 36166,36170,36174,36177,36180,36183,36186,36189,36194,36197,36199,36202, & - 36206,36210,36213,36217,36221,36225,36228,36232,36236,36238,36240,36242, & - 36245,36248,36251,36254,36256,36259,36263,36267,36271,36275,36278,36282, & - 36285,36289,36293,36295,36297,36299,36302,36305,36308,36311,36314,36318, & - 36321,36323,36326,36330,36334,36338,36342,36345,36349,36352,36356,36360, & - 36362,36364,36366,36369,36372,36375,36378,36381,36385,36388,36390,36393, & - 36397,36401,36405,36409,36412,36416,36419,36423,36427,36429,36431,36433, & - 36436,36439,36442,36445,36448,36452,36455,36457,36460,36464,36468,36472, & - 36476,36479,36483,36487,36490,36494,36498,36501,36505,36507,36509,36512, & - 36516,36520,36522,36524,36526,36529,36532,36535,36537,36540,36544,36547, & - 36550,36554,36557,36560,36563,36568,36572,36576,36580,36583,36586,36590, & - 36594,36596,36598,36600,36603,36607,36611,36613,36616,36620,36624,36626, & - 36629,36632,36635,36638,36642,36645,36648,36652,36655,36658,36661,36663, & - 36666,36668,36671,36675,36678,36681,36684,36686,36689,36691,36694,36698, & - 36701,36705,36709,36711,36714,36718,36722,36724,36727,36730,36733,36736, & - 36740,36743,36746,36750,36755,36759,36763,36767,36770,36774,36777,36780, & - 36783,36786,36789,36792,36795,36799,36803,36805,36808,36812,36816,36818, & - 36821,36825,36829,36831,36834,36837,36840,36843,36846,36848,36851,36853, & - 36856,36860,36863,36866,36870,36873,36876,36880,36883,36886,36890,36893, & - 36897,36900,36904,36908,36910,36914,36917,36921,36924,36928,36932,36934, & - 36936,36939,36943,36947,36949,36952,36956,36960,36962,36965,36968,36971, & - 36974,36977,36980,36983,36985,36988,36991,36994,36998,37001,37004,37008, & - 37011,37015,37019,37021,37025,37028,37032,37036,37038,37041,37045,37049 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_32 = (/ & - 37051,37054,37057,37060,37063,37066,37069,37072,37074,37077,37080,37083, & - 37087,37090,37093,37097,37100,37104,37108,37110,37113,37117,37121,37123, & - 37126,37129,37132,37135,37138,37140,37143,37145,37148,37152,37155,37158, & - 37162,37165,37168,37172,37175,37179,37183,37188,37192,37196,37200,37203, & - 37207,37211,37216,37219,37222,37225,37229,37232,37236,37240,37242,37245, & - 37249,37253,37255,37258,37261,37264,37267,37270,37272,37275,37277,37280, & - 37284,37287,37290,37294,37297,37300,37304,37307,37310,37315,37318,37323, & - 37326,37331,37335,37339,37344,37348,37352,37356,37359,37363,37367,37372, & - 37375,37378,37382,37386,37388,37391,37395,37399,37401,37404,37407,37410, & - 37413,37416,37418,37421,37423,37426,37430,37433,37436,37440,37443,37446, & - 37450,37453,37456,37461,37464,37469,37472,37477,37481,37485,37490,37494, & - 37498,37502,37505,37509,37514,37519,37522,37525,37528,37531,37535,37539, & - 37541,37544,37548,37552,37554,37557,37560,37563,37566,37570,37573,37576, & - 37580,37583,37586,37589,37593,37597,37599,37602,37606,37610,37612,37615, & - 37619,37623,37625,37628,37631,37634,37637,37640,37643,37646,37648,37651, & - 37654,37657,37661,37664,37667,37671,37674,37678,37682,37684,37687,37690, & - 37694,37697,37701,37705,37707,37710,37714,37718,37720,37723,37726,37729, & - 37732,37735,37737,37740,37742,37745,37749,37752,37755,37759,37762,37765, & - 37769,37772,37776,37780,37782,37785,37789,37793,37795,37798,37801,37804, & - 37807,37810,37813,37816,37818,37821,37824,37827,37831,37834,37837,37841, & - 37844,37848,37852,37854,37857,37861,37865,37867,37870,37873,37876,37879, & - 37882,37885,37888,37890,37893,37896,37899,37903,37906,37909,37913,37917, & - 37920,37924,37927,37931,37935,37937,37940,37943,37946,37950,37954,37957, & - 37960,37965,37969,37972,37977,37981,37984,37988,37990,37993,37996,38000, & - 38003,38006,38010,38013,38017,38020,38024,38026,38031,38035,38038,38041, & - 38045,38049,38051,38054,38058,38062,38066,38069,38073,38076,38080,38083, & - 38087,38089,38092,38095,38098,38102,38105,38110,38115,38118,38122,38125, & - 38130,38133,38137,38141,38144,38148,38152,38155,38159,38161,38164,38168, & - 38171,38176,38180,38183,38186,38191,38194,38199,38202,38205,38208,38213, & - 38216,38221,38224,38227,38230,38235,38239,38242,38247,38251,38254,38258 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_33 = (/ & - 38263,38265,38268,38271,38276,38280,38284,38287,38292,38295,38300,38303, & - 38305,38310,38314,38317,38321,38324,38328,38331,38333,38336,38339,38343, & - 38346,38351,38354,38359,38362,38364,38368,38372,38375,38379,38382,38386, & - 38389,38392,38395,38398,38402,38406,38408,38410,38413,38417,38421,38423, & - 38427,38430,38435,38440,38443,38448,38450,38453,38455,38459,38462,38466, & - 38470,38474,38476,38478,38481,38484,38489,38492,38494,38497,38500,38504, & - 38507,38510,38514,38517,38520,38524,38528,38531,38535,38539,38542,38546, & - 38549,38553,38555,38558,38563,38566,38569,38571,38574,38578,38582,38586, & - 38590,38593,38597,38601,38604,38608,38611,38615,38617,38620,38623,38626, & - 38629,38635,38638,38641,38644,38647,38652,38655,38658,38661,38664,38667, & - 38670,38673,38676,38679,38682,38685,38688,38693,38696,38699,38702,38705, & - 38708,38710,38714,38717,38720,38723,38726,38730,38734,38736,38738,38741, & - 38744,38747,38750,38753,38757,38761,38763,38765,38767,38770,38774,38778, & - 38782,38785,38789,38791,38793,38797,38800,38804,38807,38811,38815,38817, & - 38820,38823,38827,38831,38833,38835,38838,38842,38846,38848,38852,38856, & - 38859,38863,38866,38869,38873,38877,38879,38881,38884,38888,38892,38894, & - 38896,38898,38901,38904,38908,38912,38914,38916,38920,38923,38927,38931, & - 38934,38938,38940,38942,38945,38949,38953,38955,38957,38959,38962,38965, & - 38968,38971,38974,38977,38981,38985,38987,38989,38991,38996,38999,39002, & - 39006,39010,39012,39014,39016,39019,39022,39027,39030,39032,39035,39038, & - 39041,39044,39047,39051,39054,39057,39060,39063,39066,39071,39074,39076, & - 39079,39083,39086,39088,39091,39095,39098,39101,39104,39108,39111,39114, & - 39118,39121,39125,39129,39132,39136,39138,39140,39143,39146,39150,39154, & - 39156,39158,39160,39163,39167,39171,39173,39175,39178,39181,39186,39190, & - 39193,39196,39198,39201,39205,39208,39210,39214,39217,39221,39225,39228, & - 39231,39235,39238,39241,39245,39249,39251,39253,39255,39258,39262,39266, & - 39270,39273,39277,39279,39281,39284,39288,39292,39294,39298,39301,39305, & - 39309,39312,39316,39318,39320,39323,39326,39328,39332,39335,39338,39342, & - 39345,39349,39353,39355,39359,39362,39365,39369,39373,39377,39381,39385, & - 39388,39392,39396,39399,39403,39405,39407,39411,39415,39418,39422,39425 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_34 = (/ & - 39429,39431,39433,39436,39440,39444,39446,39448,39452,39455,39459,39463, & - 39466,39470,39472,39474,39478,39481,39485,39489,39492,39496,39498,39500, & - 39504,39507,39510,39514,39518,39520,39522,39524,39527,39530,39533,39538, & - 39541,39543,39546,39550,39553,39555,39558,39562,39564,39567,39570,39574, & - 39577,39581,39584,39587,39591,39595,39597,39599,39602,39605,39608,39611, & - 39615,39619,39621,39623,39625,39627,39630,39634,39637,39639,39643,39647, & - 39651,39654,39658,39661,39664,39667,39669,39672,39677,39680,39684,39687, & - 39690,39692,39695,39698,39701,39704,39709,39712,39715,39718,39721,39726, & - 39729,39732,39735,39738,39741,39746,39749,39754,39757,39760,39763,39766, & - 39769,39774,39777,39780,39784,39788,39790,39792,39794,39797,39801,39804, & - 39807,39811,39815,39817,39821,39824,39828,39831,39835,39837,39841,39845, & - 39848,39851,39854,39857,39862,39865,39867,39870,39874,39878,39881,39885, & - 39889,39893,39897,39900,39902,39905,39908,39911,39915,39919,39923,39926, & - 39928,39931,39934,39937,39941,39945,39948,39952,39956,39959,39963,39965, & - 39968,39972,39976,39978,39981,39985,39988,39991,39996,40000,40004,40007, & - 40010,40014,40017,40020,40024,40027,40030,40034,40037,40039,40042,40046, & - 40050,40053,40056,40059,40062,40066,40070,40073,40077,40079,40082,40085, & - 40089,40093,40095,40097,40099,40102,40105,40109,40112,40114,40117,40121, & - 40125,40128,40132,40136,40139,40143,40145,40148,40151,40155,40158,40160, & - 40163,40167,40171,40174,40178,40182,40185,40189,40191,40194,40197,40200, & - 40204,40206,40209,40213,40217,40220,40224,40228,40231,40235,40237,40241, & - 40245,40248,40251,40254,40257,40261,40263,40266,40270,40274,40277,40281, & - 40285,40288,40292,40294,40297,40300,40303,40306,40309,40314,40317,40320, & - 40324,40326,40329,40333,40337,40340,40344,40348,40351,40355,40357,40359, & - 40362,40364,40368,40372,40375,40378,40383,40386,40389,40393,40396,40401, & - 40405,40408,40412,40418,40421,40427,40431,40436,40440,40444,40447,40453, & - 40456,40462,40466,40469,40472,40477,40480,40483,40487,40490,40493,40497, & - 40501,40504,40508,40510,40513,40516,40520,40523,40526,40531,40534,40537, & - 40541,40546,40550,40555,40558,40563,40566,40571,40574,40577,40580,40585, & - 40588,40593,40596,40600,40603,40607,40611,40614,40618,40620,40622,40625 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_35 = (/ & - 40628,40633,40637,40641,40644,40648,40652,40655,40659,40661,40663,40666, & - 40669,40671,40674,40677,40680,40685,40688,40691,40695,40700,40703,40708, & - 40711,40716,40719,40724,40727,40730,40733,40738,40741,40744,40749,40752, & - 40755,40759,40764,40767,40770,40774,40780,40783,40789,40793,40796,40799, & - 40804,40807,40810,40814,40819,40823,40827,40830,40836,40839,40845,40849, & - 40852,40857,40860,40865,40868,40873,40876,40879,40882,40887,40890,40893, & - 40897,40902,40906,40910,40913,40919,40922,40928,40932,40935,40938,40942, & - 40947,40950,40953,40956,40961,40964,40967,40971,40976,40980,40984,40987, & - 40993,40996,41002,41006,41009,41012,41016,41021,41024,41027,41031,41035, & - 41037,41040,41044,41048,41050,41052,41055,41058,41063,41066,41069,41073, & - 41078,41081,41084,41089,41092,41095,41100,41103,41106,41110,41115,41118, & - 41121,41126,41131,41134,41139,41142,41145,41148,41152,41155,41158,41163, & - 41166,41169,41173,41178,41182,41185,41190,41195,41198,41203,41206,41209, & - 41212,41217,41220,41223,41227,41233,41237,41242,41245,41250,41253,41258, & - 41261,41264,41267,41272,41275,41278,41282,41288,41292,41296,41299,41305, & - 41308,41314,41318,41322,41325,41329,41333,41336,41340,41342,41344,41347, & - 41350,41354,41357,41361,41365,41367,41371,41375,41378,41381,41386,41389, & - 41392,41395,41400,41402,41405,41408,41411,41414,41417,41420,41425,41428, & - 41433,41436,41440,41443,41447,41452,41455,41460,41462,41465,41469,41472, & - 41477,41481,41484,41488,41490,41493,41497,41500,41505,41509,41512,41516, & - 41518,41521,41524,41527,41530,41535,41538,41542,41547,41550,41553,41557, & - 41561,41564,41567,41571,41574,41579,41582,41587,41590,41592,41597,41601, & - 41604,41608,41611,41615,41618,41620,41624,41627,41631,41635,41639,41642, & - 41645,41649,41654,41657,41662,41665,41669,41671,41674,41677,41680,41684, & - 41688,41692,41695,41698,41703,41707,41710,41715,41719,41722,41726,41728, & - 41731,41735,41739,41742,41745,41751,41755,41760,41763,41768,41773,41776, & - 41779,41783,41787,41789,41792,41796,41800,41802,41806,41809,41812,41816, & - 41820,41824,41828,41831,41834,41837,41841,41844,41847,41851,41856,41859, & - 41862,41866,41870,41874,41877,41880,41885,41888,41892,41896,41900,41903, & - 41907,41911,41915,41918,41922,41925,41929,41931,41933,41936,41939,41942 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_36 = (/ & - 41947,41950,41953,41958,41961,41966,41969,41972,41976,41980,41982,41985, & - 41988,41993,41996,42000,42003,42007,42011,42014,42018,42020,42022,42026, & - 42029,42033,42036,42040,42042,42046,42049,42053,42056,42060,42062,42065, & - 42069,42073,42076,42080,42082,42085,42088,42093,42096,42099,42102,42105, & - 42108,42112,42116,42118,42120,42123,42127,42130,42133,42137,42140,42143, & - 42146,42149,42152,42156,42160,42162,42164,42166,42169,42174,42177,42180, & - 42184,42188,42190,42193,42196,42198,42201,42204,42209,42212,42215,42218, & - 42221,42224,42227,42230,42234,42238,42241,42245,42248,42252,42254,42256, & - 42259,42263,42267,42269,42271,42273,42276,42279,42284,42287,42290,42293, & - 42296,42298,42301,42303,42306,42308,42312,42315,42318,42323,42326,42329, & - 42332,42335,42338,42341,42344,42349,42352,42354,42357,42359,42362,42366, & - 42368,42371,42375,42378,42380,42384,42388,42391,42393,42396,42398,42402, & - 42405,42408,42412,42416,42418,42420,42424,42427,42431,42434,42438,42442, & - 42444,42446,42448,42451,42455,42459,42462,42466,42468,42471,42474,42477, & - 42480,42485,42488,42490,42493,42497,42500,42502,42505,42509,42512,42516, & - 42519,42522,42526,42529,42532,42536,42539,42543,42547,42549,42551,42554, & - 42557,42560,42564,42568,42570,42572,42575,42578,42582,42586,42588,42590, & - 42592,42594,42597,42601,42604,42606,42610,42613,42616,42619,42622,42626, & - 42630,42632,42634,42636,42639,42644,42647,42650,42653,42657,42660,42663, & - 42666,42671,42674,42677,42681,42685,42687,42691,42695,42698,42702,42705, & - 42709,42711,42713,42716,42719,42722,42725,42728,42732,42736,42738,42740, & - 42742,42747,42750,42752,42754,42757,42760,42763,42768,42771,42774,42777, & - 42779,42782,42785,42788,42791,42794,42797,42801,42805,42807,42809,42811, & - 42816,42819,42822,42825,42828,42831,42834,42838,42842,42844,42846,42848, & - 42853,42856,42859,42862,42866,42870,42872,42874,42876,42879,42883,42886, & - 42889,42893,42896,42899,42903,42907,42909,42911,42915,42918,42922,42926, & - 42929,42933,42935,42937,42940,42943,42947,42950,42952,42955,42958,42962, & - 42966,42968,42970,42973,42976,42980,42984,42986,42988,42990,42993,42997, & - 43000,43003,43006,43010,43013,43017,43021,43023,43025,43028,43032,43036, & - 43038,43041,43045,43049,43051,43054,43056,43059,43063,43067,43071,43075 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_37 = (/ & - 43079,43082,43085,43089,43093,43096,43100,43102,43105,43108,43111,43114, & - 43117,43120,43125,43128,43132,43136,43138,43141,43145,43149,43151,43154, & - 43157,43160,43165,43168,43172,43175,43179,43182,43186,43190,43192,43195, & - 43198,43201,43206,43209,43211,43215,43219,43223,43227,43230,43233,43237, & - 43241,43243,43246,43249,43252,43257,43260,43264,43268,43270,43273,43276, & - 43279,43284,43287,43291,43295,43297,43300,43303,43306,43312,43315,43319, & - 43323,43325,43328,43331,43334,43340,43343,43347,43351,43353,43356,43359, & - 43362,43368,43371,43374,43378,43384,43387,43393,43397,43400,43405,43410, & - 43413,43416,43421,43426,43429,43434,43437,43440,43445,43450,43453,43456, & - 43459,43462,43467,43470,43473,43478,43483,43486,43491,43494,43497,43501, & - 43506,43509,43512,43516,43521,43524,43527,43530,43533,43538,43541,43544, & - 43547,43550,43555,43558,43562,43566,43569,43573,43578,43581,43584,43588, & - 43594,43597,43603,43607,43610,43615,43620,43623,43628,43631,43636,43639, & - 43644,43647,43650,43655,43660,43663,43666,43669,43673,43678,43681,43686, & - 43689,43694,43697,43702,43705,43708,43713,43718,43721,43724,43727,43732, & - 43737,43740,43745,43748,43751,43756,43761,43764,43767,43770,43773,43777, & - 43780,43783,43785,43788,43791,43795,43800,43803,43807,43811,43815,43818, & - 43823,43828,43831,43836,43839,43842,43846,43851,43854,43857,43861,43867, & - 43870,43876,43880,43883,43887,43892,43895,43898,43903,43908,43911,43916, & - 43919,43922,43927,43932,43935,43938,43941,43944,43949,43952,43955,43958, & - 43963,43967,43971,43974,43978,43984,43987,43993,43997,44000,44004,44008, & - 44010,44013,44018,44023,44026,44028,44031,44034,44038,44041,44045,44048, & - 44052,44057,44060,44064,44067,44071,44076,44079,44083,44088,44091,44096, & - 44101,44104,44107,44110,44114,44117,44121,44125,44129,44132,44135,44139, & - 44142,44145,44150,44154,44157,44160,44165,44169,44172,44177,44182,44187, & - 44191,44196,44201,44206,44209,44212,44215,44220,44223,44227,44230,44233, & - 44238,44241,44244,44248,44251,44254,44257,44262,44265,44268,44271,44276, & - 44279,44282,44286,44290,44292,44295,44298,44303,44306,44309,44312,44315, & - 44319,44323,44325,44330,44333,44336,44340,44344,44346,44348,44350,44353, & - 44356,44359,44362,44364,44367,44371,44374,44376,44380,44383,44387,44391 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_38 = (/ & - 44394,44397,44400,44403,44407,44411,44413,44417,44420,44423,44426,44430, & - 44434,44436,44438,44440,44443,44447,44451,44453,44456,44459,44462,44465, & - 44470,44473,44475,44478,44481,44485,44489,44493,44497,44500,44503,44507, & - 44511,44513,44515,44517,44521,44524,44528,44532,44535,44539,44541,44543, & - 44548,44552,44556,44559,44563,44567,44569,44571,44573,44577,44580,44584, & - 44588,44591,44595,44597,44599,44602,44606,44610,44612,44614,44616,44619, & - 44622,44625,44628,44633,44636,44639,44642,44645,44649,44653,44656,44660, & - 44663,44667,44669,44672,44676,44680,44682,44684,44686,44688,44692,44695, & - 44698,44701,44705,44709,44712,44715,44718,44722,44726,44728,44733,44736, & - 44739,44743,44747,44750,44754,44756,44760,44763,44767,44771,44774,44778, & - 44780,44782,44785,44788,44792,44796,44798,44800,44802,44805,44808,44812, & - 44817,44820,44824,44828,44830,44832,44835,44838,44843,44847,44852,44854, & - 44857,44861,44864,44867,44871,44874,44878,44882,44885,44888,44892,44896, & - 44899,44903,44907,44909,44911,44913,44915,44918,44922,44925,44927,44930, & - 44933,44937,44940,44943,44946,44948,44950,44953,44956,44959,44964,44967, & - 44969,44972,44976,44979,44981,44984,44988,44992,44995,44999,45003,45006, & - 45010,45012,45014,45017,45020,45024,45028,45030,45032,45034,45036,45039, & - 45043,45046,45048,45051,45054,45058,45060,45063,45067,45070,45072,45075, & - 45079,45082,45085,45090,45093,45096,45101,45104,45107,45111,45114,45116, & - 45119,45122,45125,45128,45131,45134,45138,45142,45144,45146,45148,45153, & - 45156,45160,45163,45166,45169,45173,45177,45179,45181,45183,45186,45189, & - 45192,45195,45198,45201,45206,45209,45212,45215,45217,45220,45222,45226, & - 45229,45234,45237,45241,45244,45247,45251,45254,45257,45262,45265,45270, & - 45273,45276,45279,45282,45287,45290,45294,45297,45300,45303,45308,45311, & - 45315,45318,45322,45325,45329,45332,45336,45340,45342,45345,45348,45352, & - 45355,45358,45362,45365,45368,45372,45375,45378,45382,45385,45388,45392, & - 45395,45400,45405,45408,45411,45415,45420,45423,45426,45430,45435,45438, & - 45443,45447,45451,45454,45459,45464,45467,45470,45474,45479,45482,45485, & - 45488,45492,45497,45500,45503,45506,45510,45515,45518,45521,45524,45527, & - 45532,45535,45540,45543,45546,45550,45555,45558,45561,45566,45571,45574 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_39 = (/ & - 45577,45581,45586,45589,45594,45599,45602,45607,45612,45615,45618,45621, & - 45625,45630,45635,45639,45642,45646,45650,45653,45656,45659,45662,45665, & - 45668,45673,45677,45681,45683,45686,45689,45692,45695,45698,45702,45706, & - 45708,45710,45713,45717,45721,45725,45728,45732,45734,45736,45739,45743, & - 45747,45749,45752,45755,45758,45760,45763,45767,45770,45774,45778,45781, & - 45784,45787,45790,45794,45797,45801,45805,45808,45812,45814,45816,45818, & - 45821,45824,45827,45831,45833,45837,45840,45843,45846,45849,45852,45855, & - 45859,45863,45865,45867,45869,45874,45877,45879,45882,45885,45889,45893, & - 45896,45899,45902,45905,45908,45911,45914,45918,45922,45924,45926,45928, & - 45933,45936,45938,45941,45944,45948,45952,45956,45959,45962,45965,45969, & - 45973,45975,45977,45979,45982,45985,45988,45991,45996,45999,46001,46004, & - 46008,46011,46015,46019,46023,46027,46030,46034,46038,46040,46042,46045, & - 46048,46051,46054,46057,46060,46065,46068,46071,46074,46077,46082,46085, & - 46087,46090,46094,46097,46100,46104,46108,46111,46115,46118,46121,46125, & - 46128,46131,46135,46139,46142,46146,46150,46153,46157,46159,46161,46164, & - 46168,46172,46174,46176,46179,46182,46185,46189,46193,46195,46197,46199, & - 46202,46206,46210,46214,46218,46221,46225,46229,46231,46233,46235,46238, & - 46241,46245,46249,46251,46253,46255,46258,46262,46266,46270,46273,46277, & - 46279,46281,46284,46287,46291,46295,46297,46299,46301,46304,46307,46310, & - 46313,46316,46320,46324,46326,46328,46330,46335,46338,46340,46343,46347, & - 46350,46353,46356,46359,46362,46366,46369,46372,46375,46379,46383,46385, & - 46387,46390,46393,46397,46401,46403,46405,46407,46411,46415,46418,46422, & - 46426,46428,46430,46432,46436,46439,46442,46445,46449,46453,46455,46457, & - 46459,46461,46464,46468,46471,46473,46476,46480,46482,46485,46489,46492, & - 46495,46499,46503,46506,46510,46514,46517,46521,46523,46525,46529,46533, & - 46536,46540,46544,46546,46548,46550,46554,46557,46560,46564,46568,46570, & - 46572,46574,46578,46582,46586,46589,46592,46597,46602,46605,46608,46612, & - 46615,46619,46623,46625,46627,46630,46634,46638,46640,46642,46645,46649, & - 46653,46655,46657,46660,46664,46669,46672,46675,46679,46683,46686,46690, & - 46692,46695,46699,46703,46705,46708,46712,46716,46718,46721,46724,46726 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_40 = (/ & - 46729,46732,46735,46738,46743,46746,46749,46752,46754,46757,46761,46765, & - 46767,46770,46773,46776,46779,46784,46787,46790,46794,46798,46801,46805, & - 46807,46810,46814,46818,46820,46822,46825,46828,46832,46836,46840,46845, & - 46849,46853,46855,46858,46862,46865,46868,46872,46876,46879,46882,46886, & - 46890,46894,46897,46899,46902,46906,46909,46912,46916,46919,46922,46925, & - 46928,46931,46935,46939,46941,46945,46948,46952,46956,46959,46963,46965, & - 46967,46971,46974,46978,46981,46984,46987,46992,46995,46998,47001,47005, & - 47010,47013,47017,47021,47023,47025,47028,47031,47036,47040,47045,47049, & - 47052,47056,47060,47063,47066,47070,47073,47077,47081,47084,47088,47090, & - 47092,47094,47097,47100,47103,47106,47110,47112,47115,47119,47122,47124, & - 47128,47131,47134,47137,47140,47144,47148,47150,47152,47154,47157,47162, & - 47165,47167,47170,47174,47177,47180,47183,47186,47190,47192,47195,47199, & - 47202,47204,47207,47210,47214,47217,47220,47224,47228,47230,47232,47235, & - 47239,47243,47245,47247,47249,47253,47256,47260,47264,47267,47271,47273, & - 47275,47278,47281,47285,47288,47290,47293,47295,47298,47302,47305,47308, & - 47311,47315,47319,47323,47326,47331,47336,47339,47344,47346,47349,47351, & - 47354,47357,47361,47363,47366,47370,47373,47376,47380,47383,47386,47390, & - 47394,47396,47398,47400,47403,47406,47409,47412,47415,47419,47423,47425, & - 47427,47429,47434,47437,47441,47444,47449,47454,47457,47462,47464,47467, & - 47469,47472,47475,47479,47482,47485,47489,47493,47495,47497,47499,47502, & - 47506,47509,47512,47516,47519,47522,47524,47527,47530,47533,47535,47538, & - 47541,47544,47546,47549,47552,47555,47560,47563,47566,47569,47572,47575, & - 47578,47580,47583,47586,47590,47594,47596,47598,47601,47605,47609,47611, & - 47614,47617,47621,47624,47627,47632,47635,47637,47640,47644,47648,47651, & - 47655,47659,47662,47666,47668,47670,47674,47677,47681,47685,47688,47692, & - 47694,47696,47700,47703,47707,47711,47714,47718,47720,47722,47725,47729, & - 47733,47735,47737,47739,47742,47746,47750,47752,47754,47757,47760,47764, & - 47767,47770,47773,47778,47781,47784,47789,47792,47796,47800,47803,47806, & - 47810,47814,47817,47821,47825,47827,47829,47833,47836,47839,47842,47845, & - 47849,47853,47855,47857,47860,47863,47866,47869,47872,47876,47880,47882 /) - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_41 = (/ & - 47884,47886,47891,47894,47897,47901,47905,47907,47909,47911,47913,47916, & - 47920,47923,47925,47928,47931,47935,47938,47941,47945,47949,47951,47953, & - 47956,47959,47964,47967,47970,47973,47976,47978,47981,47985,47988,47992, & - 47996,48001,48004,48007,48010,48013,48017,48021,48023,48025,48030,48033, & - 48037,48040,48043,48047,48051,48053,48055,48057,48060,48064,48068,48071, & - 48075,48080,48083,48085,48088,48092,48095,48098,48101,48105,48109,48111, & - 48114,48118,48121,48123,48127,48130,48134,48138,48142,48145,48149,48154, & - 48157,48160,48163,48168,48171,48174,48179,48184,48187,48191,48194,48198, & - 48201,48204,48207,48213,48216,48219,48222,48225,48228,48231,48234,48238, & - 48241,48245,48248,48252,48256,48259,48262,48265,48268,48271,48275,48279, & - 48281,48283,48285,48290,48293,48296,48299,48302,48305,48310,48313,48316, & - 48319,48322,48325,48331,48334,48336,48339,48342,48346,48350,48354,48357, & - 48360,48363,48366,48369,48372,48376,48381,48385,48388,48392,48396,48399, & - 48403,48405,48407,48410,48414,48418,48420,48422,48425,48428,48433,48437, & - 48442,48444,48447,48451,48454,48457,48460,48463,48466,48470,48472,48475, & - 48479,48483,48487,48491,48494,48498,48502,48504,48506,48508,48511,48514, & - 48518,48521,48523,48526,48529,48533,48537,48539,48541,48543,48546,48550, & - 48554,48556,48559,48562,48565,48568,48570,48573,48577,48580,48583,48587, & - 48590,48594,48598,48601,48605,48607,48610,48614,48618,48620,48623,48627, & - 48631,48633,48635,48637,48640,48644,48649,48652,48655,48659,48663,48665, & - 48668,48672,48676,48678,48682,48685,48689,48692,48696,48698,48701,48705, & - 48709,48711,48713,48716,48720,48724,48727,48731,48734,48738,48742,48745, & - 48749,48751,48753,48756,48759,48762,48765,48769,48773,48775,48777,48779, & - 48784,48787,48790,48793,48798,48802,48806,48809,48812,48816,48820,48823, & - 48827,48831,48833,48835,48837,48840,48843,48846,48849,48853,48857,48860, & - 48863,48867,48871,48873,48875,48877,48879,48882,48885,48889,48892,48895, & - 48898,48902,48905,48908,48913,48916,48918,48921,48924,48927,48929,48932, & - 48935,48939,48942,48946,48949,48951,48955,48958,48961,48964,48967,48970, & - 48975,48978,48981,48984,48988,48992,48995,48999,49002,49005,49008,49011, & - 49016,49019,49021,49024,49028,49031,49034,49037,49041,49044,49048,49052 /) - INTEGER, PARAMETER, DIMENSION(58) :: CCOL_STOICM_42 = (/ & - 49054,49057,49061,49064,49067,49071,49074,49078,49082,49085,49089,49092, & - 49096,49100,49103,49107,49109,49112,49116,49120,49122,49124,49126,49129, & - 49133,49137,49140,49144,49146,49149,49153,49157,49159,49162,49165,49170, & - 49173,49176,49178,49181,49183,49187,49190,49194,49197,49200,49205,49208, & - 49211,49214,49218,49221,49225,49229,49231,49234,49237,49241 /) - INTEGER, PARAMETER, DIMENSION(15178) :: CCOL_STOICM = (/& - CCOL_STOICM_0, CCOL_STOICM_1, CCOL_STOICM_2, CCOL_STOICM_3, CCOL_STOICM_4, & - CCOL_STOICM_5, CCOL_STOICM_6, CCOL_STOICM_7, CCOL_STOICM_8, CCOL_STOICM_9, & - CCOL_STOICM_10, CCOL_STOICM_11, CCOL_STOICM_12, CCOL_STOICM_13, CCOL_STOICM_14, & - CCOL_STOICM_15, CCOL_STOICM_16, CCOL_STOICM_17, CCOL_STOICM_18, CCOL_STOICM_19, & - CCOL_STOICM_20, CCOL_STOICM_21, CCOL_STOICM_22, CCOL_STOICM_23, CCOL_STOICM_24, & - CCOL_STOICM_25, CCOL_STOICM_26, CCOL_STOICM_27, CCOL_STOICM_28, CCOL_STOICM_29, & - CCOL_STOICM_30, CCOL_STOICM_31, CCOL_STOICM_32, CCOL_STOICM_33, CCOL_STOICM_34, & - CCOL_STOICM_35, CCOL_STOICM_36, CCOL_STOICM_37, CCOL_STOICM_38, CCOL_STOICM_39, & - CCOL_STOICM_40, CCOL_STOICM_41, CCOL_STOICM_42 /) - - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_0 = (/ & - 3568,5258,3568,5258,3568,5252,5253,3568,5252,5253,3568,5253, & - 5256, 4,3568,5252,5253,5258,5253,5256,5258,5252,5253,5252, & - 5253,5256,5252,5256,137,5253,5256, 4,5250,5250,5255,5258, & - 260,5250,5255,5250,5251,5255,5046,5250,5255,5250,5255,5258, & - 5250,5255,5046,5255,337,5250,5252,5201,5250,5253,5250,5253, & - 5255,5256,5250,5252,5253,5255,925,5253,5255,925,5250,5253, & - 5250,5253,5255,5256,337,5250,5253,5201,5250,5256, 3,3568, & - 5254, 5,5250,5254, 3, 5,5255, 1,5201, 1,137, 2, & - 3, 4,5258,3568,5258,5046,5250,3568,5252,5253,5252,5256, & - 3568,5253,5256,337,5250,5252,5201,5250,5253,137,5253,5256, & - 925,5253,5255,1068,5231,5250,5255,1733,1750,5250,1733,5193, & - 5250,5255,1733,5195,5250,1686,5191,5250,5255,1686,4995,5250, & - 1686,5121,5250,3083,5160,5250,5255,3083,5202,5250,1697,5230, & - 5250,5255,1697,4645,5250,1697,4870,5250,757,5007,5250,757, & - 5178,5250,5255,1701,5060,5250,1701,4411,5250,1701,5203,5250, & - 5255,298,5129,5250,298,2465,5250,1596,3609,5250,5255,1596, & - 5185,5250,1596,4767,5250,1730,5042,5250,5255,1730,4310,5250, & - 1730,4837,5250,181,1573,5250,5255,181,4844,5250,181,4562, & - 5250,806,5148,5250,806,4473,5250,806,4959,5250,1577,5116, & - 5250,1577,4647,5250,1577,3868,5250,5255,598,4814,5250,598, & - 3689,5250,5255,2118,4780,5250,2118,4161,5250,2118,4698,5250, & - 2118,5129,5244,249,5234,5250,5255,2421,5188,5250,5255,2421, & - 5087,5250,5255,4555,4585,5256,4364,4555,5256,1776,4555,5231, & - 5258,4528,4555,5000,5258,4555,4596,5250,4554,4555,5250,5231, & - 5251,5255,260,5231,5251,5201,5231,5251,5255,5256,5231,5250, & - 5251,5255,5193,5228,5251,5255,5193,5201,5244,5256,5193,5244, & - 5250,5193,5235,5250,5183,5191,5201,5256,5183,5191,5250,5142, & - 5191,5251,5255,5125,5201,5230,5256,4705,5230,5250,5125,5230, & - 5250,5124,5193,5230,5229,5230,5251,5255,5106,5201,5203,5256, & - 3847,5203,5250,4763,5203,5250,5106,5203,5250,5145,5203,5251 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_1 = (/ & - 5255,4944,5165,5201,5256,3884,5165,5250,4944,5165,5250,5165, & - 5208,5251,5255,4954,5194,5201,5256,4954,5194,5250,4382,5194, & - 5250,4932,5194,5250,4954,5194,5124,5194,5251,5194,5231,5251, & - 5255,4528,5194,5233,5258,2748,5194,5231,5258,3652,5226,5251, & - 5255,5128,5226,5255,5128,5201,5226,5256,763,5226,5231,5258, & - 684,5222,5226,5258,5128,5226,5250,4936,5226,5250,4783,5226, & - 5250,4428,4840,5201,5256,4840,4923,5256,4840,4922,5256,2748, & - 4840,5193,5258,4333,4840,5233,5258,4428,4840,5250,4695,4840, & - 5250,4353,4840,5250,4840,5193,5251,5255,2914,5228,5238,2914, & - 5228,5250,2973,5142,5238,2973,5142,5250,3651,5145,5238,3651, & - 5229,5238,3651,5145,5250,3651,5229,5250,1817,5208,5238,1817, & - 5062,5238,1817,5208,5250,1817,5062,5250,601,4755,5238,601, & - 4981,5238,601,4755,5250,601,4981,5250,1708,5163,5238,1708, & - 5192,5238,1708,4876,5238,1708,5163,5250,1708,5192,5250,1708, & - 4876,5250,1635,5147,5238,1635,4901,5238,1635,5078,5238,1635, & - 5147,5250,1635,4901,5250,1635,5078,5250,288,4980,5238,288, & - 4980,5250,1709,4942,5238,1709,5109,5238,1709,5186,5238,1709, & - 4942,5250,1709,5109,5250,1709,5186,5250,2385,4733,5238,2385, & - 4974,5238,2385,4571,5238,2385,5056,5238,2385,4733,5250,2385, & - 4974,5250,2385,4571,5250,2385,5056,5250,1641,4696,5238,1641, & - 5061,5238,1641,4121,5238,1641,4696,5250,1641,5061,5250,1641, & - 4121,5250,1688,5045,5238,1688,5082,5238,1688,5077,5238,1688, & - 5045,5250,1688,5082,5250,1688,5077,5250,566,3894,5238,566, & - 4886,5238,566,3894,5250,566,4886,5250,447,4766,5238,447, & - 4766,5250,588,5146,5238,588,4099,5238,588,5146,5250,588, & - 4099,5250,548,4586,5238,548,4878,5238,548,4586,5250,548, & - 4878,5250,221,5144,5238,221,5144,5250,270,5112,5238,270, & - 5112,5250,342,5107,5238,342,5107,5250,426,5138,5238,426, & - 5138,5250,253,5065,5238,253,5065,5250,235,5181,5238,235, & - 5181,5250,4171,5124,5256,2038,5124,5231,5258,5124,5195,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_2 = (/ & - 4351,5200,5256,4370,5200,5256,4528,5193,5200,5258,2286,5200, & - 5231,5258,5121,5200,5250,5200,5202,5250,4579,5051,5256,4574, & - 5051,5256,2013,5051,5231,5258,4528,5051,5191,5258,5051,5149, & - 5250,4645,5051,5250,3465,4387,5256,3465,4333,5193,5258,3465, & - 5007,5250,3466,4387,5256,3466,4333,5193,5258,3466,5007,5250, & - 4112,4512,5256,4512,4809,5256,3479,4512,5160,5258,327,4512, & - 5231,5258,4512,5060,5250,4512,5129,5250,4593,5190,5256,4972, & - 5190,5256,2042,5190,5231,5258,4528,5190,5230,5258,4598,5190, & - 5250,5096,5190,5250,4332,4714,5256,4332,4782,5256,3297,4332, & - 5193,5258,4332,4333,5191,5258,4332,4476,5250,4332,4767,5250, & - 4475,4714,5256,4475,4782,5256,3297,4475,5193,5258,4333,4475, & - 5191,5258,4475,4476,5250,4475,4767,5250,4601,4777,5256,4143, & - 4601,5256,477,4601,5231,5258,3479,4601,5178,5258,4601,4837, & - 5250,4601,4959,5250,4508,4700,5256,4508,4881,5256,4508,4528, & - 5203,5258,2212,4508,5231,5258,4508,5043,5250,4508,4562,5250, & - 4474,4723,5256,4140,4474,5256,239,4474,5193,5258,766,4474, & - 5160,5258,4473,4474,5250,4474,4647,5250,4527,4879,5256,4527, & - 4587,5256,4527,4528,5165,5258,2487,4527,5231,5258,4527,4582, & - 5250,4527,5135,5250,4604,4884,5256,4604,4702,5256,4333,4604, & - 5230,5258,3202,4604,5193,5258,4604,4607,5250,4604,4608,5250, & - 4606,4884,5256,4606,4702,5256,4333,4606,5230,5258,3202,4606, & - 5193,5258,4606,4607,5250,4606,4608,5250,3442,3671,5256, 37, & - 3442,5160,5258,3442,3721,5250,198,5233,198,680,5250,5251, & - 5255,1703,4399,5250,1703,4396,5250,5255,1703,4397,5250,5255, & - 250,3776,5250,250,3157,5250,5255,250,3823,5250,250,4010, & - 5250,5255,3145,3523,5201,5256,3145,4028,5250,3145,3834,5250, & - 5255,3145,3523,5250,3145,3158,5250,5255,3096,3509,5201,5256, & - 3096,4003,5250,3096,4056,5250,5255,3096,3509,5250,3096,3131, & - 5250,5255,3134,3507,5201,5256,3134,4529,5250,3134,4083,5250, & - 5255,3134,3507,5250,3134,3135,5250,5255,3105,3481,5201,5256 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_3 = (/ & - 3105,3481,5250,3105,3136,5250,5255,3105,3811,5250,3105,4032, & - 5250,5255,3144,3807,5201,5256,3144,3149,5250,5255,3144,3804, & - 5250,3144,4094,5250,5255,3144,3807,5250,3084,4068,5201,5256, & - 3084,3172,5250,5255,3084,3794,5250,3084,4093,5250,5255,3084, & - 4068,5250,3179,3521,5201,5256,3179,3521,5250,3179,3180,5250, & - 5255,3179,3803,5250,3179,3622,5250,5255,3138,3525,5201,5256, & - 3138,3525,5250,3138,4133,5250,3138,3139,5250,5255,3138,4027, & - 5250,5255,3097,3492,5201,5256,3097,4055,5250,3097,3263,5250, & - 5255,3097,3996,5250,5255,3097,3492,5250,3192,3797,5201,5256, & - 3192,3797,5250,3192,4074,5250,3192,3833,5250,5255,3192,3193, & - 5250,5255,3113,3797,5201,5256,3113,3797,5250,3113,3798,5250, & - 3113,4080,5250,5255,3113,3164,5250,5255,3129,3797,5201,5256, & - 3129,3797,5250,3129,3527,5250,3129,4272,5250,5255,3129,3130, & - 5250,5255,3182,3819,5201,5256,3182,3819,5250,3182,3817,5250, & - 3182,4018,5250,5255,3182,3244,5250,5255,3169,3790,5201,5256, & - 3169,3790,5250,3169,3219,5250,5255,3169,4167,5250,3169,4017, & - 5250,5255,3866,4395,5256,4395,4528,4964,5258,3147,4395,5231, & - 5258,3987,4395,5250,4622,4964,5255,4666,4964,5251,5255,4622, & - 4964,5201,5256,4622,4964,5250,3636,5153,5256,3658,5153,5256, & - 686,5153,5194,5258,1959,5153,5231,5258,3670,5153,5250,4111, & - 5153,5250,4372,5153,5250,3634,5166,5256,685,5166,5226,5258, & - 685,5166,5227,5258,2476,5166,5231,5258,3155,5166,5231,5258, & - 702,5166,5250,715,5166,5250,5132,5166,5250,4794,5166,5250, & - 5255,4907,5166,5250,5255,606,5166,5250,607,5166,5250,668, & - 3637,5201,5256,668,3637,5250,1580,4616,5201,5256,1580,4616, & - 5250,1580,4609,5250,5160,5241,5250,5160,5228,5244,5178,5246, & - 5250,5098,5178,5250,5053,5178,5250,5142,5178,5244,3978,5151, & - 5250,3978,4858,5250,3978,5229,5244,3609,4852,5250,3609,5161, & - 5250,3609,5142,5183,3868,5145,5244,3868,4841,5250,3868,5097, & - 5250,3505,4581,5250,3505,4784,5250,3505,4390,5250,3505,5208 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_4 = (/ & - 5244,3843,4583,5250,3843,4367,5250,3843,4336,5250,3843,4356, & - 5250,3843,5183,5229,3583,5032,5250,3583,4594,5250,3583,4755, & - 5244,3369,4981,5244,3369,3836,5250,3689,5081,5250,3689,5124, & - 5200,5251,3689,5190,5251,3943,4492,5256,4492,4925,5256,293, & - 4492,5258,604,4492,5258,3921,4492,5250,3936,4492,5250,4091, & - 4492,5250,4097,4600,5256,3806,4600,5256,4600,4747,5215,5258, & - 640,4600,5231,5258,4185,4600,5250,4146,4600,5250,4090,4600, & - 5250,3940,4605,5256,419,4605,5258,719,4605,5258,3863,4605, & - 5250,3867,4605,5250,3994,4605,5250,3891,4988,5256,4988,5048, & - 5258,4988,5092,5258,2470,4988,5258,1746,4988,5258,3971,4988, & - 5250,3963,4988,5250,3898,4988,5250,1750,5193,5255,1809,5195, & - 5255,2096,5195,5252,2707,5195,5252,5253,2707,5195,5253,5256, & - 249,5195,2707,5195,5195,5234,2456,4995,5255,2306,4995,5252, & - 1679,4995,5252,5253,1679,4995,5253,5256,1679,4995,4995,5184, & - 416,4995,1899,5121,5255,2639,5121,5253,5256,5121,5188,2639, & - 5121,2421,5121,2639,5121,5252,5253,3245,5121,5252,3277,5202, & - 5255,2229,5202,5252,5253,2433,5202,5252,2229,5202,5253,5256, & - 5087,5202,2229,5202,2421,5202,1886,4645,5255,2367,4645,5252, & - 2720,4645,5252,5253,2720,4645,5253,5256,3959,4645,2720,4645, & - 847,4645,1914,4870,5255,2128,4870,5252,3386,4870,5252,5253, & - 3386,4870,5253,5256,1140,4870,4870,4973,3386,4870,2503,5007, & - 5255,615,5007,5252,5253,1782,5007,5252,615,5007,5253,5256, & - 615,5007,4386,5007,335,5007,1138,5060,5255,3173,5060,5252, & - 2840,5060,5252,5253,2840,5060,5253,5256,2840,5060,1369,5060, & - 2235,4411,5255,2261,4411,5252,1568,4411,5252,5253,1568,4411, & - 5253,5256,4411,5071,1568,4411,126,4411,3299,5129,5255,2037, & - 5129,5252,1944,5129,5252,5253,1944,5129,5253,5256,5000,5129, & - 1369,5129,1944,5129,2465,5160,5228,2391,5185,5255,1800,5185, & - 5252,153,5185,5252,5253,153,5185,5253,5256,286,5185,4872, & - 5185,153,5185,3265,4767,5255,2297,4767,5252,2066,4767,5252 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_5 = (/ & - 5253,2066,4767,5253,5256,1035,4767,3735,4767,2066,4767,5042, & - 5193,5200,5042,5062,5251,5255,4634,5042,5201,5256,4634,5042, & - 5250,1108,4310,5255,2198,4310,5252,1906,4310,5252,5253,1906, & - 4310,5253,5256,1906,4310,1050,4310,4310,4524,1422,4837,5255, & - 3106,4837,5252,2983,4837,5252,5253,2983,4837,5253,5256,2983, & - 4837,874,4837,1573,4380,5201,5256,1573,5239,5250,1573,4380, & - 5250,1265,4844,5255,2542,4844,5252,2374,4844,5252,5253,2374, & - 4844,5253,5256,2374,4844,896,4844,2006,4562,5255,1977,4562, & - 5252,2747,4562,5252,5253,2747,4562,5253,5256,1194,4562,2747, & - 4562,3716,4562,1994,5148,5255,2459,5148,5252,2891,5148,5252, & - 5253,2891,5148,5253,5256,5057,5148,2891,5148,896,5148,1948, & - 4473,5255,1976,4473,5252,3422,4473,5252,5253,3422,4473,5253, & - 5256,1124,4473,3422,4473,3536,4473,3310,4959,5255,1957,4959, & - 5252,2090,4959,5252,5253,2090,4959,5253,5256,874,4959,2090, & - 4959,4959,5012,1842,5116,5255,2220,5116,5252,2647,5116,5252, & - 5253,2647,5116,5253,5256,2647,5116,1050,5116,4737,5116,3444, & - 4647,5255,3159,4647,5252,1924,4647,5252,5253,1924,4647,5253, & - 5256,1124,4647,1924,4647,3018,4814,5255,765,4814,5252,5253, & - 1400,4814,5252,765,4814,5253,5256,765,4814,278,4814,3653, & - 4814,3623,4780,5255,2029,4780,5252,5253,2029,4780,5253,5256, & - 2438,4780,2029,4780,1671,4780,1897,4161,5255,2550,4161,5252, & - 5253,1081,4161,5252,2550,4161,5253,5256,2001,4161,3547,4161, & - 2550,4161,3207,4698,5255,630,4698,5252,5253,630,4698,5253, & - 5256,1582,4698,3892,4698,630,4698,818,5244,5255,5258,1066, & - 5244,5255,5228,5244,5250,5255,5228,5244,5252,5253,2657,5244, & - 5253,5228,5244,5253,5256,818,5244,5228,5244,5201,5232,5234, & - 5256,5233,5234,5250,5255,5232,5234,5250,5231,5234,5251,5255, & - 5188,5222,5250,5255,5188,5231,5244,5255,4924,5087,5201,5256, & - 4924,5087,5250,5087,5193,5251,5255,3198,4585,5255,1808,4585, & - 5252,5253,1808,4585,5253,5256,578,4585,2276,4585,1808,4585 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_6 = (/ & - 2010,4364,5255,2869,4364,5252,5253,2869,4364,5253,5256,1894, & - 4364,232,4364,2869,4364,1776,5160,5250,5251,5255,1776,5160, & - 5255,1776,3083,1776,4908,5000,5243,5250,5000,5160,5251,5255, & - 4528,5223,4528,5251,4528,5250,5251,5255,3243,4596,5255,1894, & - 4596,5252,1815,4596,5252,5253,1815,4596,5253,5256,3755,4596, & - 1815,4596,1120,4596,3256,4554,5255,2276,4554,5252,1882,4554, & - 5252,5253,1882,4554,5253,5256,1120,4554,3603,4554,1882,4554, & - 2044,5228,5255,5228,5231,5255,3394,5228,5252,1634,5228,5252, & - 5253, 86,5228,5253,1634,5228,5253,5256,1634,5228,1068,5228, & - 5228,5231,4420,5235,5255,2861,5235,5252,5253,2861,5235,5253, & - 5256,5233,5235,2861,5235,5234,5235,5142,5183,5250,5255,987, & - 5183,5255,751,5183,5255,5258,5142,5183,5252,5253,3003,5183, & - 5253,5142,5183,5253,5256,5142,5183,751,5183,2188,5142,5255, & - 1749,5142,5252,1750,5142,5252,5253,1750,5142,5253,5256,1750, & - 5142,1733,5142,5142,5193,691,5125,5255,5258,5125,5229,5250, & - 5255,1500,5125,5255,5125,5229,5252,5253,2537,5125,5253,5125, & - 5229,5253,5256,691,5125,5125,5229,3540,4705,5255,2077,4705, & - 5252,3383,4705,5252,5253,3383,4705,5253,5256,3383,4705,4705, & - 5242,4705,5055,2292,5229,5255,1974,5229,5252,1695,5229,5252, & - 5253,1695,5229,5253,5256,5191,5229,1695,5229,1686,5229,631, & - 5106,5255,5258,5106,5145,5250,5255,1466,5106,5255,5106,5145, & - 5252,5253,2612,5106,5253,5106,5145,5253,5256,631,5106,5106, & - 5145,2463,3847,5255,2338,3847,5252,1702,3847,5252,5253,1702, & - 3847,5253,5256,3847,5071,1702,3847,3847,3995,2993,4763,5255, & - 2992,4763,5252,5253,2992,4763,5253,5256,4763,5000,2992,4763, & - 2126,5145,5255,2427,5145,5252,1662,5145,5252,5253,1662,5145, & - 5253,5256,5145,5160,1662,5145,3083,5145,4944,5208,5250,5255, & - 611,4944,5255,5258,1332,4944,5255,4944,5208,5252,5253,2611, & - 4944,5253,4944,5208,5253,5256,4944,5208,611,4944,1880,3884, & - 5255,2106,3884,5252,1725,3884,5252,5253,1725,3884,5253,5256 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_7 = (/ & - 1725,3884,3884,5143,3884,4872,2318,5208,5255,1921,5208,5252, & - 2926,5208,5252,5253,2926,5208,5253,5256,5208,5230,1697,5208, & - 2926,5208,3099,4954,5255,5258,3294,4954,5255,4954,5231,5250, & - 5251,4954,5231,5251,5252,5253,5255,3254,4954,5253,4954,5231, & - 5251,5253,5255,5256,3099,4954,4954,5231,5251,5255,875,4382, & - 5255,2526,4382,5252,5253,2526,4382,5253,5256,2526,4382,4382, & - 5234,5250,5251,4382,5023,484,4382,4708,4932,5255,5258,2627, & - 4932,5255,3587,4932,5252,1013,4932,5252,5253,3587,4932,5253, & - 5256,4708,4932,1013,4932,484,4932,260,5233,5251,5233,5251, & - 5255,5231,5233,5251,3809,5201,5233,5256,3809,5233,5250,2748, & - 5170,2748,5231,2748,5251,5255,2748,5250,5251,5255,3652,5231, & - 5244,3652,5228,5231,5251,3652,5128,5250,5255,642,5128,5255, & - 5258,3448,5128,5255,3652,5128,5252,5253,4330,5128,5253,3652, & - 5128,5253,5256,3652,5128,642,5128,763,5156,763,5244,5250, & - 5251,5222,5244,5251,5255,5201,5222,5244,5251,5256,5222,5244, & - 5250,5251,684,5223,684,5251,684,5250,5251,5255,3330,4936, & - 5255,4936,5221,5252,2004,4936,5252,5253,2004,4936,5253,5256, & - 4936,5188,5250,5251,2004,4936,3993,4936,3462,4783,5255,3929, & - 4783,5252,1866,4783,5252,5253,1866,4783,5253,5256,4783,5094, & - 3993,4783,1866,4783,2873,4428,5255,2346,4428,5255,5258,4428, & - 5193,5250,5251,4428,5193,5251,5252,5253,5255,2811,4428,5253, & - 4428,5193,5251,5253,5255,5256,2346,4428,4428,5193,5251,5255, & - 3660,4923,5255,2734,4923,5252,5253,2734,4923,5253,5256,4156, & - 4923,2734,4923,1853,4923,3654,4922,5255,1011,4922,5252,5253, & - 1011,4922,5253,5256,4156,4922,1011,4922,3520,4922,4333,4943, & - 4333,5228,5250,5251,4333,5228,5255,2914,4333,1185,4695,5255, & - 2795,4695,5252,5253,3520,4695,5252,2795,4695,5253,5256,2795, & - 4695,3044,4695,4695,5210,2805,4353,5255,1872,4353,5252,5253, & - 1872,4353,5253,5256,3044,4353,3171,4353,1872,4353,2435,5062, & - 5255,1946,5062,5252,3429,5062,5252,5253,3429,5062,5253,5256 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_8 = (/ & - 757,5062,5062,5178,3429,5062,2339,4755,5255,2237,4755,5252, & - 1715,4755,5252,5253,1715,4755,5253,5256,1701,4755,1715,4755, & - 4755,5203,855,4981,5255,2687,4981,5252,2465,4981,5252,5253, & - 2465,4981,5253,5256,298,4981,2465,4981,2227,5163,5255,2285, & - 5163,5252,160,5163,5252,5253,160,5163,5253,5256,5163,5165, & - 160,5163,345,5163,2057,5192,5255,1965,5192,5252,2699,5192, & - 5252,5253,2699,5192,5253,5256,3978,5192,2699,5192,495,5192, & - 999,4876,5255,2196,4876,5252,3377,4876,5252,5253,3377,4876, & - 5253,5256,3609,4876,3377,4876,1596,4876,1885,5147,5255,2337, & - 5147,5252,3032,5147,5252,5253,3032,5147,5253,5256,5042,5147, & - 3032,5147,1730,5147,2223,4901,5255,2193,4901,5252,3404,4901, & - 5252,5253,3404,4901,5253,5256,3404,4901,1577,4901,3868,4901, & - 1069,5078,5255,3076,5078,5252,2490,5078,5252,5253,2490,5078, & - 5253,5256,2490,5078,806,5078,2628,4980,5255,2913,4980,5252, & - 1741,4980,5252,5253,1741,4980,5253,5256,2490,4980,304,4980, & - 4559,4980,2416,4942,5255,1987,4942,5252,155,4942,5252,5253, & - 155,4942,5253,5256,4942,5162,155,4942,383,4942,2422,5109, & - 5255,2086,5109,5252,171,5109,5252,5253,171,5109,5253,5256, & - 3505,5109,171,5109,228,5109,1298,5186,5255,2149,5186,5252, & - 2710,5186,5252,5253,2710,5186,5253,5256,3843,5186,2710,5186, & - 380,5186,1966,4733,5255,2168,4733,5252,202,4733,5252,5253, & - 202,4733,5253,5256,3875,4733,202,4733,242,4733,1855,4974, & - 5255,2350,4974,5252,2974,4974,5252,5253,2974,4974,5253,5256, & - 2974,4974,424,4974,3583,4974,2355,4571,5255,2194,4571,5252, & - 3779,4571,5252,5253,3779,4571,5253,5256,4571,4736,3779,4571, & - 316,4571,1488,5056,5255,2610,5056,5252,2933,5056,5252,5253, & - 2933,5056,5253,5256,2933,5056,144,5056,1751,4696,5255,2277, & - 4696,5252,165,4696,5252,5253,165,4696,5253,5256,3851,4696, & - 165,4696,349,4696,1753,5061,5255,2246,5061,5252,2990,5061, & - 5252,5253,2990,5061,5253,5256,3594,5061,2990,5061,504,5061 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_9 = (/ & - 980,4121,5255,2839,4121,5252,1962,4121,5252,5253,1962,4121, & - 5253,5256,1962,4121,133,4121,2409,5045,5255,2199,5045,5252, & - 3333,5045,5252,5253,3333,5045,5253,5256,3333,5045,466,5045, & - 3369,5045,2264,5082,5255,2169,5082,5252,205,5082,5252,5253, & - 205,5082,5253,5256,3856,5082,205,5082,338,5082,2192,5077, & - 5255,2097,5077,5252,2906,5077,5252,5253,2906,5077,5253,5256, & - 3924,5077,2906,5077,308,5077,1469,3894,5255,1788,3894,5252, & - 1789,3894,5252,5253,1789,3894,5253,5256,1789,3894, 64,3894, & - 2019,4886,5255,2403,4886,5252,2767,4886,5252,5253,2767,4886, & - 5253,5256,2767,4886,339,4886,3877,4886,1267,4766,5255,1919, & - 4766,5252,161,4766,5252,5253,161,4766,5253,5256,3118,4766, & - 161,4766,353,4766,870,5146,5255,2094,5146,5252,184,5146, & - 5252,5253,184,5146,5253,5256,3168,5146,184,5146,412,5146, & - 1207,4099,5255,2534,4099,5252,445,4099,5252,5253,445,4099, & - 5253,5256,445,4099, 34,4099,1501,4586,5255,1831,4586,5252, & - 166,4586,5252,5253,166,4586,5253,5256,3109,4586,166,4586, & - 234,4586,1082,4878,5255,2964,4878,5252,421,4878,5252,5253, & - 421,4878,5253,5256,421,4878,139,4878,1491,5144,5255,2161, & - 5144,5252,177,5144,5252,5253,177,5144,5253,5256,3148,5144, & - 177,5144,269,5144,1259,5112,5255,2216,5112,5252,197,5112, & - 5252,5253,197,5112,5253,5256,3117,5112,197,5112,453,5112, & - 1079,5107,5255,1824,5107,5252,192,5107,5252,5253,192,5107, & - 5253,5256,3166,5107,192,5107,486,5107,1052,5138,5255,2432, & - 5138,5252,186,5138,5252,5253,186,5138,5253,5256,3091,5138, & - 186,5138,460,5138,848,5065,5255,2113,5065,5252,196,5065, & - 5252,5253,196,5065,5253,5256,3110,5065,196,5065,429,5065, & - 1235,5181,5255,2020,5181,5252,2922,5181,5252,5253,2922,5181, & - 5253,5256,2922,5181,598,5181,3689,5181,1849,4171,5255,3351, & - 4171,5252,5253,3351,4171,5253,5256,3351,4171,2096,4171,4171, & - 5180,2038,5223,2038,5251,2038,5250,5251,5255,1859,4351,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_10 = (/ & - 3585,4351,5252,5253,3585,4351,5253,5256,4351,4845,3585,4351, & - 3245,4351,2442,4370,5255,3577,4370,5252,5253,3577,4370,5253, & - 5256,4370,4909,2433,4370,3577,4370,2286,4943,2286,5228,5250, & - 5251,2286,5228,5255,2286,2914,1302,4579,5255,3942,4579,5252, & - 5253,3942,4579,5253,5256,3942,4579,3077,4579,1785,4579,1063, & - 4574,5255,3934,4574,5252,5253,3934,4574,5253,5256,3302,4574, & - 3934,4574,2367,4574,2013,4941,2013,5142,5250,5251,2013,5142, & - 5255,2013,2973,3208,5149,5255,1785,5149,5252,2012,5149,5252, & - 5253,2012,5149,5253,5256,5067,5149,2012,5149,847,5149,1141, & - 4387,5255,3767,4387,5252,5253,3767,4387,5253,5256,1782,4387, & - 3328,4387,3767,4387,1288,4112,5255,2502,4112,5252,5253,2502, & - 4112,5253,5256,2502,4112,2037,4112,1300,4809,5255,3598,4809, & - 5252,5253,3598,4809,5253,5256,3173,4809,4108,4809,3598,4809, & - 3479,5223,3479,5250,5251,5255,327,4544,327,5241,5250,2394, & - 4593,5255,3878,4593,5252,5253,3878,4593,5253,5256,3399,4593, & - 3878,4593,2278,4593,2179,4972,5255,3572,4972,5252,5253,3572, & - 4972,5253,5256,4174,4972,3572,4972,2441,4972,2042,4956,2042, & - 3651,2042,5229,5250,5251,2042,5229,5255,3289,4598,5255,2441, & - 4598,5252,1877,4598,5252,5253,1877,4598,5253,5256,3561,4598, & - 926,4598,1877,4598,1778,5096,5255,2278,5096,5252,2549,5096, & - 5252,5253,2549,5096,5253,5256,5009,5096,926,5096,2549,5096, & - 2413,4714,5255,3956,4714,5252,5253,3956,4714,5253,5256,3418, & - 4714,3956,4714,2297,4714,2449,4782,5255,3922,4782,5252,5253, & - 3922,4782,5253,5256,3409,4782,3922,4782,2447,4782,3297,4941, & - 3297,5142,5250,5251,3297,5142,5255,2973,3297,3266,4476,5255, & - 2447,4476,5252,2158,4476,5252,5253,2158,4476,5253,5256,1035, & - 4476,3656,4476,2158,4476,2369,4777,5255,3592,4777,5252,5253, & - 3592,4777,5253,5256,3592,4777,4114,4777,3106,4777,1391,4143, & - 5255,2851,4143,5252,5253,2851,4143,5253,5256,2851,4143,1957, & - 4143,477,4320,477,5098,5250,2069,4700,5255,3887,4700,5252 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_11 = (/ & - 5253,3887,4700,5253,5256,3887,4700,3432,4700,3175,4700,2363, & - 4881,5255,3575,4881,5252,5253,3575,4881,5253,5256,4160,4881, & - 3575,4881,1977,4881,2212,3651,2212,5145,5250,5251,2212,5145, & - 5255,2212,4868,2135,5043,5255,3175,5043,5252,3268,5043,5252, & - 5253,3268,5043,5253,5256,4961,5043,1194,5043,3268,5043,2366, & - 4723,5255,3970,4723,5252,5253,3970,4723,5253,5256,3970,4723, & - 3364,4723,3159,4723,1072,4140,5255,2831,4140,5252,5253,2831, & - 4140,5253,5256,2831,4140,1976,4140,239,4544,239,5241,5250, & - 766,4943,766,5228,5250,5251,976,4879,5255,3002,4879,5252, & - 5253,3002,4879,5253,5256,4155,4879,3002,4879,1827,4879,2125, & - 4587,5255,3925,4587,5252,5253,3925,4587,5253,5256,3349,4587, & - 3925,4587,2011,4587,1817,2487,2487,4838,2487,5208,5250,5251, & - 2487,5208,5255,3308,4582,5255,1827,4582,5252,1927,4582,5252, & - 5253,1927,4582,5253,5256,3542,4582,1386,4582,1927,4582,1774, & - 5135,5255,2011,5135,5252,2944,5135,5252,5253,2944,5135,5253, & - 5256,1386,5135,4873,5135,2944,5135,2455,4884,5255,3910,4884, & - 5252,5253,3910,4884,5253,5256,3341,4884,3910,4884,2370,4884, & - 1940,4702,5255,3842,4702,5252,5253,3842,4702,5253,5256,3376, & - 4702,3842,4702,2067,4702,3202,4956,3202,3651,3202,5229,5250, & - 5251,3202,5229,5255,1767,4607,5255,2370,4607,5252,2912,4607, & - 5252,5253,2912,4607,5253,5256,1121,4607,2912,4607,3757,4607, & - 2133,4608,5255,2067,4608,5252,2849,4608,5252,5253,2849,4608, & - 5253,5256,1121,4608,2849,4608,4223,4608,2068,3671,5255,573, & - 3671,5252,5253,573,3671,5253,5256,573,3671,3188,3671, 37, & - 5241,5250,1171,3721,5255,3188,3721,5252,1754,3721,5252,5253, & - 1754,3721,5253,5256, 32,3721,1754,3721,680,5250,5255,1434, & - 4399,5255,2341,4399,5252,3342,4399,5252,5253,3342,4399,5253, & - 5256,517,4399,3342,4399,3121,4399,4396,4649,5201,5256,4396, & - 4588,4721,5258,4396,4649,5250,4396,4720,5250,4396,4513,5251, & - 5255,4396,5058,5251,5255,4397,4965,5201,5256,3903,4397,5256 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_12 = (/ & - 4397,4965,5250,3830,4397,5250,5255,3786,4397,5250,1341,3776, & - 5255,1794,3776,5252,1792,3776,5252,5253,1792,3776,5253,5256, & - 3776,4964,1792,3776,444,3776,3157,3538,5201,5256,3157,3827, & - 5256,3157,3793,5201,5256,3157,3538,5250,3157,3545,5250,5255, & - 3157,3793,5250,1307,3823,5255,3823,3824,5252,5253,2383,3823, & - 5252,3823,3824,5253,5256,361,3823,3823,3824,3372,3823,4010, & - 4626,5201,5256,4010,4084,4721,5258,4010,4626,5250,4010,4821, & - 5250,4010,4432,5251,5255,4010,4721,5244,5251,5255,1287,3523, & - 5255,2014,3523,5252,2015,3523,5252,5253,2015,3523,5253,5256, & - 3523,3643,2015,3523,225,3523,1451,4028,5255,3435,4028,5252, & - 4028,4950,5252,5253,4028,4950,5253,5256,4028,4950,135,4028, & - 3834,4833,5201,5256,3834,4547,4588,5258,3834,4833,5250,3834, & - 4707,5250,3834,4547,5251,5255,3834,4887,5251,5255,3158,3820, & - 5256,3158,4478,5201,5256,3158,3491,5201,5256,3158,4478,5250, & - 3158,3508,5250,5255,3158,3491,5250,1484,3509,5255,1819,3509, & - 5252,1820,3509,5252,5253,1820,3509,5253,5256,3509,3640,1820, & - 3509,332,3509,1276,4003,5255,2317,4003,5252,4003,4004,5252, & - 5253,4003,4004,5253,5256,4003,4004,292,4003,3599,4003,4056, & - 4892,5201,5256,4056,4084,4729,5258,4056,4892,5250,4056,4718, & - 5250,4056,4483,5251,5255,4056,4729,5244,5251,5255,3131,4408, & - 5201,5256,3131,3531,5201,5256,3131,3796,5256,3131,4408,5250, & - 3131,3560,5250,5255,3131,3531,5250,922,3507,5255,2309,3507, & - 5252,1821,3507,5252,5253,1821,3507,5253,5256,3507,3657,1821, & - 3507,262,3507,1533,4529,5255,2782,4529,5252,3754,4529,5252, & - 5253,3754,4529,5253,5256,3754,4529,102,4529,4083,4692,5201, & - 5256,4083,4084,4729,5258,4083,4692,5250,4083,4699,5250,4083, & - 4893,5251,5255,4083,4729,5244,5251,5255,3135,3808,5256,3135, & - 4495,5201,5256,3135,3534,5201,5256,3135,4495,5250,3135,3512, & - 5250,5255,3135,3534,5250,966,3481,5255,1796,3481,5252,5253, & - 2302,3481,5252,1796,3481,5253,5256,1796,3481,277,3481,3481 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_13 = (/ & - 3649,3136,4453,5201,5256,3136,3562,5201,5256,3136,3813,5256, & - 3136,4453,5250,3136,3562,5250,3136,3831,5250,5255,1211,3811, & - 5255,3811,3812,5252,5253,1964,3811,5252,3811,3812,5253,5256, & - 3811,3812,428,3811,3089,3811,4032,4641,5201,5256,4032,4081, & - 4721,5258,4032,4641,5250,4032,4701,5250,4032,4667,5251,5255, & - 4032,4721,5183,5251,5255,1315,3807,5255,2321,3807,5252,2322, & - 3807,5252,5253,2322,3807,5253,5256,2322,3807,464,3807,3368, & - 3807,3149,3799,5256,3149,4479,5201,5256,3149,3554,5201,5256, & - 3149,4479,5250,3149,3554,5250,3149,3701,5250,5255,1027,3804, & - 5255,3804,3805,5252,5253,2406,3804,5252,3804,3805,5253,5256, & - 3804,3805,436,3804,3174,3804,4094,4829,5201,5256,2148,4094, & - 4721,5258,4094,4829,5250,4094,4377,5250,4094,4683,5251,5255, & - 4094,4721,5125,5251,5255,1431,4068,5255,3439,4068,5252,3440, & - 4068,5252,5253,3440,4068,5253,5256,3440,4068, 89,4068,3172, & - 4457,5201,5256,3172,3539,5201,5256,3172,3815,5256,3172,4457, & - 5250,3172,3539,5250,3172,3684,5250,5255,1039,3794,5255,3794, & - 3795,5252,5253,2418,3794,5252,3794,3795,5253,5256,3794,3795, & - 283,3794,3122,3794,4093,4635,5201,5256,3210,4093,4721,5258, & - 4093,4635,5250,4093,4928,5250,4093,4675,5251,5255,4093,4721, & - 5106,5251,5255,1542,3521,5255,1881,3521,5252,1860,3521,5252, & - 5253,1860,3521,5253,5256,3521,3661,1860,3521,396,3521,3180, & - 3663,5256,3180,4494,5201,5256,3180,3627,5201,5256,3180,3482, & - 5250,5255,3180,4494,5250,3180,3627,5250,956,3803,5255,2241, & - 3803,5252,3803,4937,5252,5253,3803,4937,5253,5256,274,3803, & - 3803,4937,3103,3803,3622,4084,4630,5258,3622,4971,5250,3622, & - 4483,5244,3622,4630,5244,5251,5255,1458,3525,5255,1772,3525, & - 5252,1773,3525,5252,5253,1773,3525,5253,5256,3525,3655,1773, & - 3525,480,3525,1486,4133,5255,2605,4133,5252,4133,5030,5252, & - 5253,4133,5030,5253,5256, 52,4133,4133,5030,3139,3828,5256, & - 3139,4407,5201,5256,3139,3518,5201,5256,3139,3494,5250,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_14 = (/ & - 3139,4407,5250,3139,3518,5250,4027,4948,5201,5256,4027,4084, & - 4547,5258,4027,4803,5250,4027,4948,5250,4027,4899,5251,5255, & - 4027,4547,5244,5251,5255,1385,3492,5255,2232,3492,5252,1903, & - 3492,5252,5253,1903,3492,5253,5256,3492,3645,1903,3492,431, & - 3492,1310,4055,5255,2372,4055,5252,3332,4055,5252,5253,3332, & - 4055,5253,5256,523,4055,3332,4055,3082,4055,3263,3641,5256, & - 707,3263,5201,5256,707,3263,5250,3263,3648,5250,3996,4807, & - 5201,5256,3133,3996,4569,5258,3996,4568,5250,3996,4807,5250, & - 3996,4935,5251,5255,3996,4569,5244,5251,5255,1150,3797,5255, & - 2087,3797,5252,2088,3797,5252,5253,2088,3797,5253,5256,2088, & - 3797,446,3797,3331,3797,1535,4074,5255,3445,4074,5252,4074, & - 4177,5252,5253,4074,4177,5253,5256,4074,4177, 54,4074,3833, & - 4654,5201,5256,3833,4576,4588,5258,3833,4654,5250,3833,4575, & - 5250,3833,4576,5251,5255,3833,4311,5251,5255,3193,3665,5256, & - 3193,4438,5201,5256,3193,3503,5201,5256,3193,4438,5250,3193, & - 3506,5250,5255,3193,3503,5250,861,3798,5255,1896,3798,5252, & - 3798,3826,5252,5253,3798,3826,5253,5256,3798,3826, 22,3798, & - 2021,3798,4080,4132,5201,5256,4080,4081,4729,5258,4080,4132, & - 5250,4080,4725,5250,4080,4897,5251,5255,4080,4729,5183,5251, & - 5255,3164,4437,5201,5256,3164,3511,5201,5256,3164,3791,5256, & - 3164,4437,5250,3164,3499,5250,5255,3164,3511,5250,1525,3527, & - 5255,1000,3527,5252,3527,3802,5252,5253,3527,3802,5253,5256, & - 3527,3802,129,3527,4272,4633,5201,5256,4081,4272,4729,5258, & - 4272,4633,5250,4272,4727,5250,4272,4905,5183,4272,4729,5244, & - 5251,5255,3130,3825,5256,3130,4504,5201,5256,3130,3489,5201, & - 5256,3130,4504,5250,3130,3551,5250,5255,3130,3489,5250,1270, & - 3819,5255,2333,3819,5252,2334,3819,5252,5253,2334,3819,5253, & - 5256,2334,3819,505,3819,3412,3819,1200,3817,5255,1216,3817, & - 5252,3817,3818,5252,5253,3817,3818,5253,5256,3817,3818, 81, & - 3817,634,3817,4018,4685,5201,5256,3186,4018,4569,5258,4018 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_15 = (/ & - 4400,5250,4018,4685,5250,4018,4992,5251,5255,4018,4569,5183, & - 5251,5255,677,3244,5201,5256,3244,3631,5256,677,3244,5250, & - 3244,3632,5250,1131,3790,5255,2078,3790,5252,1822,3790,5252, & - 5253,1822,3790,5253,5256,1822,3790,432,3790,3343,3790,627, & - 3219,5201,5256,3219,3659,5256,3219,3650,5250,627,3219,5250, & - 1159,4167,5255,1083,4167,5252,3403,4167,5252,5253,3403,4167, & - 5253,5256,3403,4167,128,4167,796,4167,4017,4656,5201,5256, & - 3186,4017,4933,5258,4017,4335,5250,4017,4656,5250,4017,4813, & - 5251,5255,4017,4933,5183,5251,5255,328,3866,5255,1240,3866, & - 5252,5253,1240,3866,5253,5256,1240,3866,1703,3147,3147,4666, & - 5250,5251,3147,4666,5255,3147,4919,1377,3987,5255,3072,3987, & - 5252,5253,3072,3987,5253,5256,3072,3987,1095,4622,5255,4622, & - 4666,5250,5255,613,4622,5255,5258,4622,4666,5252,5253,3317, & - 4622,5253,4622,4666,5253,5256,4622,4666,613,4622,1763,4666, & - 5255,4666,4965,5252,5253,4666,4965,5253,5256,4666,4965,969, & - 3636,5255,552,3636,5252,5253,552,3636,5253,5256,552,3636, & - 2222,3636,3636,3763,1365,3658,5255,2099,3658,5252,2100,3658, & - 5252,5253,2100,3658,5253,5256,3102,3658,2100,3658,3658,5050, & - 686,5223,686,5251,686,5250,5251,5255,1959,4819,1959,5124, & - 1959,5231,5250,5251,5255,1959,5231,5251,5255,1352,3670,5255, & - 3102,3670,5252,1971,3670,5252,5253,1971,3670,5253,5256,1971, & - 3670,238,3670,3670,5049,841,4111,5255,1172,4111,5252,2771, & - 4111,5252,5253,2771,4111,5253,5256,2771,4111,1054,4111,4111, & - 5093,1395,4372,5255,2706,4372,5252,5253,2222,4372,5252,2706, & - 4372,5253,5256,1054,4372,2706,4372,4372,4373,1258,3634,5255, & - 2040,3634,5252,2041,3634,5252,5253,2041,3634,5253,5256,3634, & - 5168,3634,5069,2041,3634,685,5223,685,5251,685,5250,5251, & - 5255,5200,5227,5251,5227,5231,5244,5251,5255,2479,5227,5231, & - 5258,4528,5222,5227,5258,5020,5227,5250,5016,5227,5250,2476, & - 5200,2476,5231,5244,5255,2476,4906,2476,5231,5244,5250,5251 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_16 = (/ & - 3155,5200,3155,5228,5231,5251,5255,3155,4286,3155,4774,5250, & - 702,5217,702,5219,715,5204,715,5224,968,5132,5255,4096, & - 5132,5252,2623,5132,5252,5253,2623,5132,5253,5256,3228,5132, & - 2623,5132,1280,5132,4337,4794,5256,3479,4794,5242,5258,514, & - 4794,5231,5258,3980,4794,5250,4255,4794,5250,4087,4794,5251, & - 5255,3865,4907,5256,4528,4907,5242,5258,2425,4907,5231,5258, & - 4907,5127,5250,3496,4907,5244,606,5218,606,5219,607,5118, & - 607,5224,1239,3637,5255,2574,3637,5255,1922,3637,5252,1923, & - 3637,5252,5253,1923,3637,5253,5256,1923,3637,307,3637,2574, & - 3637,1143,4616,5255,3156,4616,5255,2075,4616,5252,2076,4616, & - 5252,5253,2076,4616,5253,5256,2076,4616,417,4616,3156,4616, & - 1305,4609,5255,2817,4609,5252,1867,4609,5252,5253,1867,4609, & - 5253,5256,3472,4609,3900,4609,1867,4609,2326,5241,5250,5255, & - 4383,5241,5255,2326,5241,5252,5253,2326,5241,5253,5256,5188, & - 5241,2326,5241,5222,5241,2070,5246,5255,1895,5246,5252,2539, & - 5246,5252,5253,2539,5246,5253,5256,5242,5246,2539,5246,4973, & - 5246,2715,5098,5255,1592,5098,5252,5253,1592,5098,5253,5256, & - 4938,5098,4386,5098,1592,5098,2774,5053,5255,1574,5053,5252, & - 5253,1574,5053,5253,5256,5053,5139,1574,5053,3959,5053,3222, & - 5151,5255,179,5151,5252,5253,2365,5151,5252,179,5151,5253, & - 5256,4801,5151,179,5151,4391,5151,3035,4858,5255,1595,4858, & - 5252,5253,1595,4858,5253,5256,4618,4858,1595,4858,3735,4858, & - 2893,4852,5255,1638,4852,5252,5253,1638,4852,5253,5256,4618, & - 4852,1638,4852,3656,4852,2400,5161,5255,2083,5161,5252,175, & - 5161,5252,5253,175,5161,5253,5256,5143,5161,175,5161,2665, & - 5161,1983,4841,5255,3104,4841,5252,5253,3104,4841,5253,5256, & - 3104,4841,3536,4841,1132,5097,5255,2092,5097,5252,2614,5097, & - 5252,5253,2614,5097,5253,5256,5026,5097,2614,5097,4524,5097, & - 2269,4581,5255,1841,4581,5252,185,4581,5252,5253,185,4581, & - 5253,5256,4581,5157,1719,4581,185,4581,1876,4784,5255,1904 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_17 = (/ & - 4784,5252,3367,4784,5252,5253,3367,4784,5253,5256,3530,4784, & - 3367,4784,4300,4784,2878,4390,5255,1699,4390,5252,5253,1699, & - 4390,5253,5256,3498,4390,3757,4390,1699,4390,3288,4583,5255, & - 1954,4583,5252,150,4583,5252,5253,150,4583,5253,5256,4583, & - 5157,150,4583,1704,4583,2572,4367,5255,761,4367,5252,5253, & - 761,4367,5253,5256,1712,4367,1711,4367,761,4367,2558,4336, & - 5255,1737,4336,5252,5253,1737,4336,5253,5256,3498,4336,1737, & - 4336,4223,4336,2401,4356,5255,2213,4356,5252,167,4356,5252, & - 5253,167,4356,5253,5256,4356,4717,167,4356,1599,4356,1153, & - 5032,5255,3068,5032,5252,3069,5032,5252,5253,3069,5032,5253, & - 5256,3069,5032,2118,5032,3314,4594,5255,666,4594,5252,5253, & - 666,4594,5253,5256,1790,4594,666,4594,1587,4594,1177,3836, & - 5255,2453,3836,5252,2634,3836,5252,5253,2634,3836,5253,5256, & - 3836,3879,2634,3836,577,3836,1313,5081,5255,2215,5081,5252, & - 3066,5081,5252,5253,3066,5081,5253,5256,3607,5081,3066,5081, & - 1673,5081,1844,3943,5255,670,3943,5252,5253,670,3943,5253, & - 5256,2023,3943,670,3943,2174,4925,5255,3744,4925,5252,5253, & - 3744,4925,5253,5256,2181,4925,3744,4925,3090,4925,293,4201, & - 5250,293,4563,5250,604,4912,604,5198,5250,5251,2103,3921, & - 5255,2181,3921,5252,783,3921,5252,5253,783,3921,5253,5256, & - 783,3921,1036,3921,2058,3936,5255,2023,3936,5252,784,3936, & - 5252,5253,784,3936,5253,5256,1565,3936,784,3936,1036,3936, & - 1241,4091,5255,2626,4091,5252,2415,4091,5252,5253,2415,4091, & - 5253,5256,2415,4091, 95,4091,897,4097,5255,3030,4097,5252, & - 5253,3030,4097,5253,5256,2343,4097,3030,4097,1362,3806,5255, & - 2959,3806,5252,5253,2959,3806,5253,5256,3141,3806,2959,3806, & - 3806,4151,3852,5215,5250,3733,5215,5250,3982,5215,5250,4240, & - 5215,5250,4747,5223,4747,5251,4747,5250,5251,5255,147,640, & - 640,4240,5250,640,4302,1186,4185,5255,3141,4185,5252,2902, & - 4185,5252,5253,2902,4185,5253,5256,2902,4185,1297,4185,920 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_18 = (/ & - 4146,5255,2343,4146,5252,2516,4146,5252,5253,2516,4146,5253, & - 5256,1297,4146,2516,4146,4146,4186,912,4090,5255,2888,4090, & - 5252,1975,4090,5252,5253,1975,4090,5253,5256,1975,4090,104, & - 4090,2065,3940,5255,635,3940,5252,5253,635,3940,5253,5256, & - 1915,3940,635,3940,419,4148,5250,419,4144,5250,719,5236, & - 5250,5251,719,4843,2451,3863,5255,1058,3863,5252,748,3863, & - 5252,5253,748,3863,5253,5256,748,3863,1520,3863,1911,3867, & - 5255,1915,3867,5252,639,3867,5252,5253,639,3867,5253,5256, & - 1520,3867,1581,3867,639,3867,1468,3994,5255,1905,3994,5252, & - 2508,3994,5252,5253,2508,3994,5253,5256,2508,3994,540,3994, & - 2180,3891,5255,797,3891,5252,5253,797,3891,5253,5256,2184, & - 3891,797,3891,5048,5251,5257,5048,5252,5253,5257,5048,5253, & - 5256,5257, 3,5048,5254,5257,5046,5048,5257,3646,5048,5092, & - 5251,5257,5092,5252,5253,5257,5092,5253,5256,5257, 3,5092, & - 5254,5257,3646,5092,4970,5092,2470,4754,5250,2470,4756,5250, & - 2470,3517,2470,5041,5228,1746,4746,5250,1746,4970,1746,5206, & - 5255,2178,3971,5255,905,3971,5252,646,3971,5252,5253,646, & - 3971,5253,5256,646,3971,1001,3971,2160,3963,5255,2184,3963, & - 5252,624,3963,5252,5253,624,3963,5253,5256,1001,3963,1736, & - 3963,624,3963,881,3898,5255,2242,3898,5252,2961,3898,5252, & - 5253,2961,3898,5253,5256,2961,3898,661,3898,1809,5195,5250, & - 1809,5234,1809,2707,5250,2096,5234,5250,5253,2707,5231,5255, & - 2707,5234,5255,1679,2456,5250,2456,4995,5250,2456,5184,1679, & - 2306,5253,2306,5184,5250,5253,1679,5184,5255,5184,5195,5251, & - 5255,5184,5201,5237,5256,5184,5237,5250,416,5184,5250,5255, & - 1899,5188,1899,5121,5250,1899,2639,5250,2639,5193,5231,5255, & - 3245,5188,5250,5253,3277,5087,3277,5202,5250,2229,3277,5250, & - 2229,5193,5231,5255,2433,5087,5250,5253,1886,3959,1886,4645, & - 5250,1886,2720,5250,2367,3959,5250,5253,2720,5191,5231,5255, & - 3959,5139,5250,5255,3959,5183,5231,5255,847,3959,5250,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_19 = (/ & - 1914,4973,1914,4870,5250,1914,3386,5250,2128,4973,5250,5253, & - 2128,3386,5253,3386,5193,5195,3386,4973,5255,1140,4973,5250, & - 5255,4973,5242,5250,5255,4973,5195,5244,2503,4386,2503,5007, & - 5250,615,2503,5250,615,5193,5255,1782,4386,5250,5253,4386, & - 4938,5250,5255,4386,5193,5244,5255,335,4386,5250,5255,1138, & - 5060,5250,1138,2840,5250,3173,5160,5231,5250,5253,2840,5160, & - 5231,5255,1369,5000,5250,5255,2235,5071,2235,4411,5250,1568, & - 2235,5250,2261,5071,5250,5253,1568,2261,5253,1568,5071,5255, & - 5071,5121,5251,5255,4949,5071,5201,5256,4949,5071,5250,126, & - 5071,5250,3299,5000,3299,5129,5250,1944,3299,5250,2037,5000, & - 5250,5253,1944,5160,5231,5255,153,2391,5250,2391,4872,2391, & - 5185,5250,153,1800,5253,1800,4872,5250,5253,153,4374,286, & - 2665,5250,5255,4872,5149,5251,5255,4872,5136,5201,5256,4872, & - 5143,5250,5255,4872,5136,5250,3265,3735,3265,4767,5250,2066, & - 3265,5250,2297,3735,5250,5253,2066,5191,5193,5255,1035,3656, & - 5250,5255,3735,4618,5250,5255,3735,5191,5244,5255,438,4634, & - 5255,5258,1516,4634,5255,4634,5062,5250,5255,4634,5062,5252, & - 5253,2882,4634,5253,4634,5062,5253,5256,438,4634,4634,5062, & - 1108,1906,5250,1108,4524,1906,2198,5253,2198,4524,5250,5253, & - 1906,4524,5255,1050,4524,5250,5255,4524,5121,5244,4524,5026, & - 5250,5255,1422,4837,5250,1422,2983,5250,3106,5188,5193,5250, & - 5253,2983,5178,5231,5255,874,5012,5250,5255,384,4380,5255, & - 5258,1106,4380,5255,4380,4755,5250,5255,4380,4755,5252,5253, & - 2743,4380,5253,4380,4755,5253,5256,384,4380,4380,4755,918, & - 5239,5255,3533,5239,5252,2399,5239,5252,5253,2399,5239,5253, & - 5256,2399,5239,5057,5239,1265,2374,5250,1265,4844,5250,2374, & - 2542,5253,2542,5160,5234,5250,5253,2374,5160,5195,896,5057, & - 5250,5255,2006,4562,5250,2006,3716,2006,2747,5250,1977,3716, & - 5250,5253,2747,5203,5231,5255,1194,3716,5250,5255,3716,4931, & - 5250,5255,3716,5145,5232,1994,2891,5250,1994,5057,1994,5148 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_20 = (/ & - 5250,2459,2891,5253,2459,5057,5250,5253,2891,4785,2891,5057, & - 5255,5057,5129,5251,5255,5057,5101,5201,5256,5057,5101,5250, & - 1948,4473,5250,1948,3536,1948,3422,5250,1976,3536,5250,5253, & - 3422,5160,5193,5255,3422,3536,5255,1124,3536,5250,5255,3104, & - 3536,5250,3310,4959,5250,3310,5012,2090,3310,5250,1957,5012, & - 5250,5253,2090,5178,5231,5255,4206,5012,5201,5256,4206,5012, & - 5250,5012,5178,5251,5255,1842,2647,5250,1842,5116,5250,1842, & - 4737,2220,2647,5253,2220,4737,5250,5253,2647,4359,2647,4737, & - 5255,4737,5007,5251,5255,4737,5008,5201,5256,4737,5026,5250, & - 5255,4737,5008,5250,3444,4647,5250,1983,3444,5250,5255,1924, & - 3444,5250,3159,5160,5193,5250,5253,1924,5160,5193,5255,3018, & - 4814,5250,3018,3653,765,3018,5250,765,4882,5255,1400,3653, & - 5250,5253,278,3653,5250,5255,591,3653,5250,5255,2272,3653, & - 5124,5251,2438,3623,3623,4780,5250,3623,5000,5244,5250,2029, & - 3623,5250,2029,5160,5222,5255,2438,3979,5250,2438,5243,5244, & - 1671,2438,5250,5255,1671,5000,5244,5255,1897,3547,1897,4161, & - 5250,1897,2550,5250,2550,4801,5231,5255,1081,3547,5250,5253, & - 2001,3284,5255,2001,3547,5250,5255,3547,4801,5251,5255,3255, & - 3547,5250,3207,4698,5250,630,3207,5250,3207,5129,5231,5250, & - 5251,630,5101,5231,1582,3892,5250,5255,1582,5129,5232,3892, & - 5129,5201,5251,5256,3892,5129,5250,5251,3892,5101,5251,5255, & - 818,5228,5250,1066,5244,5250,1066,5228,5250,2657,5231,5250, & - 5251,5253,2657,5244,5253,5231,5232,5250,1764,5232,5255,5258, & - 2412,5232,5255,5231,5232,5252,5253,5255,3047,5232,5253,5231, & - 5232,5253,5255,5256,5231,5232,5255,1764,5232,4924,5193,5250, & - 2219,4924,5255,4924,5193,5252,5253,5255,2945,4924,5253,4924, & - 5193,5253,5255,5256,4924,5193,5255,578,3198,3198,4585,5250, & - 1808,3198,5250,1808,5160,5180,5255,578,2473,5250,2276,3603, & - 5250,5253,232,2010,2010,4364,5250,2010,2869,5250,2869,5000, & - 5231,5253,1894,3755,5250,5253,232,4316,5250,4908,5000,5251 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_21 = (/ & - 4908,5000,5252,5253,4908,5000,5253,5256, 3,4908,5000,5254, & - 4908,5000,5046,2364,4908,5160,5243,5250,2364,5243,5255,5258, & - 2211,5243,5255,5160,5243,5252,5253,5255,2792,5243,5253,5160, & - 5243,5253,5255,5256,5160,5243,5255,2364,5243,5223,5231,5251, & - 5223,5231,5252,5253,5223,5231,5253,5256, 3,5223,5231,5254, & - 5046,5223,5231,680,5223,3243,3755,3243,4596,5250,1815,3243, & - 5250,1815,5160,5234,5255,579,3755,5250,5255,3755,5231,5243, & - 5255,1120,3755,5250,5255,3256,3603,3256,4554,5250,1882,3256, & - 5250,1882,5000,5231,5255,3603,4553,5250,3603,5000,5251,5255, & - 1634,2044,5250,2044,5228,5250,2044,5231,1634,3394,5253,3394, & - 5231,5250,5253,1634,5231,5255, 86,5228,5253,4420,5233,4420, & - 5235,5250,2861,4420,5250,4420,5231,5250,5251,5255,2861,5231, & - 5251,5255,987,5183,5250,987,5142,5250,751,5142,5250,3003, & - 5193,5250,5251,5253,3003,5183,5253,1750,2188,5250,2188,5142, & - 5250,2188,5193,1749,1750,5253,1749,5193,5250,5253,691,5229, & - 5250,1500,5125,5250,1500,5229,5250,2537,5191,5250,5251,5253, & - 2537,5125,5253,3540,4705,5250,3540,5242,3383,3540,5250,3540, & - 5145,5251,5255,2077,5242,5250,5253,2077,3383,5253,3383,5193, & - 5235,3383,5242,5255,5158,5201,5242,5256,5158,5242,5250,5231, & - 5241,5242,5055,5202,5251,5255,5055,5164,5201,5256,5055,5242, & - 5250,5255,5055,5164,5250,1695,2292,5250,2292,5191,2292,5229, & - 5250,1695,1974,5253,1974,5191,5250,5253,1695,5191,5255,631, & - 5145,5250,1466,5106,5250,1466,5145,5250,2612,5160,5250,5251, & - 5253,2612,5106,5253,2463,3847,5250,2463,3995,1702,2463,5250, & - 2338,3995,5250,5253,1702,2338,5253,1702,3995,5255,3995,4915, & - 5201,5256,3995,4915,5250,3995,4640,5251,5255,2993,4763,5250, & - 2993,5160,5250,5251,5255,2992,2993,5250,2992,5160,5251,5255, & - 1662,2126,5250,2126,5160,2126,5145,5250,1662,2427,5253,2427, & - 5160,5250,5253,1662,5160,5255,611,5208,5250,1332,4944,5250, & - 1332,5208,5250,2611,5230,5250,5251,5253,2611,4944,5253,1880 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_22 = (/ & - 3884,5250,1880,5143,1725,1880,5250,2106,5143,5250,5253,1725, & - 2106,5253,1725,5143,5255,5053,5143,5251,5255,5137,5143,5201, & - 5256,5137,5143,5250,2318,2926,5250,2318,5230,2318,5208,5250, & - 1921,2926,5253,1921,5230,5250,5253,2926,5230,5255,2926,3758, & - 3099,5231,5250,5251,5255,3294,5231,5250,5251,5255,3294,4954, & - 5250,3294,5234,5251,3254,4954,5253,3254,5234,5250,5251,5256, & - 875,5023,875,2526,5250,2526,5234,5251,5255,5023,5232,5251, & - 5255,5023,5201,5232,5251,5256,5023,5232,5250,5251,484,4862, & - 5250,4708,5038,5250,4708,5233,5251,5255,2627,4932,5250,1013, & - 2627,5250,3587,5180,5251,5255,3587,4530,5250,5255,1013,5231, & - 5233,5255,3809,5251,5255,3809,5250,5251,3809,5216,5170,5233, & - 5251,5170,5233,5252,5253,5170,5233,5253,5256, 3,5170,5233, & - 5254,5046,5170,5233,4796,5170,642,3652,5250,3448,3652,5250, & - 3448,5188,5251,1269,3448,3448,5128,5250,4330,5128,5253,4330, & - 5231,5244,5256,5258,4330,5188,5250,5251,5256,1269,4330,5250, & - 5256, 12,4330,5250,5256,5156,5222,5251,5156,5222,5252,5253, & - 5156,5222,5253,5256, 3,5156,5222,5254,5046,5156,5222,3330, & - 5188,5250,5251,5255,2004,3330,5250,3330,5188,5251,4406,5221, & - 5250,5255,5155,5221,5250,5188,5221,5251,5253,5255,2004,5188, & - 5251,5255,3993,5188,5251,5255,3993,5094,5250,5255,3462,5094, & - 3462,5000,5250,5251,5255,1866,3462,5250,3929,5094,5253,5255, & - 3929,5036,5250,1866,5222,5231,5255,4557,5094,5250,5094,5222, & - 5251,5255,2873,4428,5250,2873,5193,5250,5251,5255,2346,5193, & - 5250,5251,5255,2811,5193,5250,5251,5253,2811,4428,5253,3660, & - 4923,5201,5256,3660,4923,5250,2734,3660,5250,2734,5193,5233, & - 5253,4156,4923,5201,5256,4156,4923,5250,4156,4923,5251,5255, & - 3566,4156,5253,1853,3171,5250,5253,1853,5087,5251,5253,5255, & - 3654,5193,5201,5233,5250,5253,5256,3654,4922,5250,2734,3654, & - 5250,1011,5193,5233,5253,3520,5210,5250,5253,3520,4845,5251, & - 5255,4943,5193,5251,4943,5193,5252,5253,4943,5193,5253,5256 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_23 = (/ & - 3,4943,5193,5254,4943,5046,5193,818,4943,1185,5210,1185, & - 2795,5250,2795,5193,5233,5255,3044,5210,5250,5255,3044,5087, & - 5251,5255,5210,5222,5251,5255,5100,5201,5210,5256,5100,5210, & - 5250,2805,3171,2805,5087,5250,5251,5255,1872,2805,5250,1872, & - 5087,5251,5255,3171,4924,5250,5251,3171,4924,5251,5255,2435, & - 5178,2435,5062,5250,2435,3429,5250,1946,5178,5250,5253,1946, & - 3429,5253,3429,5142,5193,3429,5178,5255,1715,2339,5250,2339, & - 4755,5250,2339,5203,1715,2237,5253,2237,5203,5250,5253,1715, & - 5203,5255,855,4981,5250,855,2465,5250,2687,5160,5231,5250, & - 5253,2465,2687,5253,2227,5165,2227,5163,5250,160,2227,5250, & - 2285,5165,5250,5253,160,2285,5253,160,3932,345,5165,5250, & - 5255,2057,3978,2057,5192,5250,2057,2699,5250,1965,3978,5250, & - 5253,1965,2699,5253,2699,3893,2699,3978,5255,495,3978,5250, & - 5255,999,3609,999,3377,5250,2196,3609,5250,5253,2196,3377, & - 5253,3377,5142,5191,3377,3609,5255,1885,3032,5250,1885,5042, & - 1885,5147,5250,2337,3032,5253,2337,5042,5250,5253,3032,5042, & - 5255,3032,3885,2223,3404,5250,2223,4901,5250,2223,3868,2193, & - 3404,5253,2193,3868,5250,5253,3404,5145,5193,3404,3868,5255, & - 1069,2490,5250,1069,5078,5250,2490,3076,5253,3076,5160,5193, & - 5250,5253,2490,5142,5160,1741,2628,5250,2628,4980,5250,2628, & - 4559,1741,2913,5253,2913,4559,5250,5253,1741,4981,5231,304, & - 4559,5250,5255,4559,4860,5201,5256,4559,4860,5250,4559,4981, & - 5251,5255,155,2416,5250,2416,5162,2416,4942,5250,155,1987, & - 5253,1987,5162,5250,5253,155,3870,5051,5162,5193,5162,5163, & - 5251,5255,4760,5162,5201,5256,4760,5162,5250,383,5162,5250, & - 5255,171,2422,5250,2422,3505,2422,5109,5250,171,2086,5253, & - 2086,3505,5250,5253,171,3718,228,3505,5250,5255,1298,2710, & - 5250,1298,3843,2149,2710,5253,2149,3843,5250,5253,2710,3843, & - 5255,2710,3961,380,3843,5250,5255,202,1966,5250,1966,3875, & - 1966,4733,5250,202,2168,5253,2168,3875,5250,5253,202,3967 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_24 = (/ & - 3875,5192,5251,5255,3875,4990,5201,5256,3875,4990,5250,242, & - 3875,5250,5255,1855,2974,5250,1855,4974,5250,1855,3583,2350, & - 2974,5253,2350,3583,5250,5253,2974,3869,2974,3583,5255,424, & - 3583,5250,5255,2355,3779,5250,2355,4736,2355,4571,5250,2194, & - 3779,5253,2194,4736,5250,5253,3779,5142,5203,3779,4736,5255, & - 3779,5145,5191,4736,5145,5183,4736,5106,5142,3944,4736,5250, & - 4736,4880,5250,316,4736,5250,5255,1488,2933,5250,1488,5056, & - 5250,2610,2933,5253,2610,5160,5191,5250,5253,2933,5160,5229, & - 2933,3778,144,2933,5250,165,1751,5250,1751,3851,1751,4696, & - 5250,165,2277,5253,2277,3851,5250,5253,165,3989,3851,5147, & - 5251,5255,3851,4515,5201,5256,3851,4515,5250,349,3851,5250, & - 5255,1753,2990,5250,1753,3594,1753,5061,5250,2246,2990,5253, & - 2246,3594,5250,5253,2990,3873,2990,3594,5255,3594,5062,5244, & - 3594,4334,5250,3594,3889,5250,504,3594,5250,5255,980,1962, & - 5250,980,4121,5250,1962,2839,5253,2839,5178,5193,5250,5253, & - 1962,5142,5178,133,1962,5250,2409,3333,5250,2409,5045,5250, & - 2409,3369,2199,3333,5253,2199,3369,5250,5253,3333,3369,5255, & - 3333,4981,5193,466,3369,5250,5255,205,2264,5250,2264,3856, & - 2264,5082,5250,205,2169,5253,2169,3856,5250,5253,205,3854, & - 3856,4980,5251,5255,3856,4469,5201,5256,3856,4469,5250,338, & - 3856,5250,5255,2192,2906,5250,2192,3924,2192,5077,5250,2097, & - 2906,5253,2097,3924,5250,5253,2906,3859,2906,3924,5255,3924, & - 5078,5251,5255,3924,4771,5201,5256,3924,4771,5250,308,3924, & - 5250,5255,1469,1789,5250,1469,3894,5250,1788,1789,5253,1788, & - 5160,5250,5253,1789,5145,5160, 64,1789,5250,2019,2767,5250, & - 2019,4886,5250,2019,3877,2403,2767,5253,2403,3877,5250,5253, & - 2767,3667,2767,3877,5255,339,3877,5250,5255,3877,4901,5251, & - 5255,3877,4994,5201,5256,3877,4994,5250,161,1267,5250,1267, & - 3118,161,1919,5253,1919,3118,5250,5253,161,5108,3118,5183, & - 5208,3118,3785,5250,353,3118,5250,5255,184,870,5250,870 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_25 = (/ & - 3168,184,2094,5253,2094,3168,5250,5253,184,4722,3168,5147, & - 5244,3168,3674,5250,412,3168,5250,5255,445,1207,5250,1207, & - 4099,5250,445,2534,5253,2534,5160,5230,5250,5253,445,4577, & - 34,445,5250,166,1501,5250,1501,3109,166,1831,5253,1831, & - 3109,5250,5253,166,5119,3109,5147,5244,3109,3730,5250,234, & - 3109,5250,5255,421,1082,5250,1082,4878,5250,421,2964,5253, & - 2964,5178,5191,5250,5253,421,3688,139,421,5250,177,1491, & - 5250,1491,3148,177,2161,5253,2161,3148,5250,5253,177,3749, & - 3148,5163,5183,3148,3781,5250,269,3148,5250,5255,197,1259, & - 5250,1259,3117,197,2216,5253,2216,3117,5250,5253,197,3751, & - 3117,4942,5183,3117,3768,5250,453,3117,5250,5255,192,1079, & - 5250,1079,3166,192,1824,5253,1824,3166,5250,5253,192,3731, & - 3166,4766,5183,3166,3766,5250,486,3166,5250,5255,1052,3091, & - 186,1052,5250,2432,3091,5250,5253,186,2432,5253,186,3690, & - 3091,3678,5250,3091,5144,5183,460,3091,5250,5255,196,848, & - 5250,848,3110,196,2113,5253,2113,3110,5250,5253,196,3691, & - 3110,5112,5183,3110,3704,5250,429,3110,5250,5255,1235,2922, & - 5250,1235,3689,2020,2922,5253,2020,3689,5250,5253,2922,3952, & - 2922,3689,5255,1849,4171,5250,1849,5180,1849,3351,5250,3351, & - 5231,5253,3351,5180,5255,5152,5180,5201,5256,5152,5180,5250, & - 2861,5180,5253,1859,4845,1859,4351,5250,1859,3585,5250,3585, & - 4845,5255,3585,5193,5231,5253,4405,4845,5201,5256,4405,4845, & - 5250,2807,4845,5253,2442,4909,2442,4370,5250,2442,3577,5250, & - 3577,5193,5231,5253,3577,4909,5255,4909,5222,5250,5253,2326, & - 4909,5253,1302,4579,5250,1302,3942,5250,3942,5191,5231,5253, & - 3077,3942,5255,3077,4724,5250,1574,3077,5253,1785,5067,5250, & - 5253,1063,4574,5250,1063,3934,5250,3302,3934,5255,3934,5191, & - 5231,5253,3302,5139,5250,5253,3301,3302,5253,3302,5191,5251, & - 5253,5255,4941,5191,5251,4941,5191,5252,5253,4941,5191,5253, & - 5256, 3,4941,5191,5254,4941,5046,5191,751,4941,3208,5067 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_26 = (/ & - 3208,5149,5250,2012,3208,5250,2012,5191,5231,5255,4275,5067, & - 5201,5256,4275,5067,5250,5067,5191,5231,5255,1141,3328,1141, & - 3767,5250,3328,3767,5255,3767,5193,5253,3328,4938,5250,5253, & - 1592,3328,5253,1288,4112,5250,1288,2502,5250,2502,5160,5231, & - 5253,1300,4809,5250,1300,3598,5250,3598,5160,5231,5253,3598, & - 4108,5255,4108,4452,5201,5256,4108,4452,5250,4108,5160,5251, & - 5253,5255,2992,4108,5253,4544,5160,5251,4544,5160,5252,5253, & - 4544,5160,5253,5256, 3,4544,5160,5254,4544,5046,5160,2394, & - 3399,2394,4593,5250,2394,3878,5250,3878,5230,5231,5253,3399, & - 3878,5255,3399,4817,5250,2163,3399,5253,2278,5009,5250,5253, & - 2179,4174,2179,4972,5250,2179,3572,5250,3572,5230,5231,5253, & - 3572,4174,5255,4174,4470,5201,5256,4174,4470,5250,3269,4174, & - 5253,2441,3561,5250,5253,4956,5230,5251,4956,5230,5252,5253, & - 4956,5230,5253,5256, 3,4956,5230,5254,691,4956,4956,5046, & - 5230,3289,3561,3289,4598,5250,1877,3289,5250,1877,5230,5231, & - 5255,3561,4856,5250,3561,5229,5232,926,3561,5250,5255,1778, & - 5009,1778,5096,5250,1778,2549,5250,2549,5230,5231,5255,4281, & - 5009,5201,5256,4281,5009,5250,5009,5230,5251,5255,2413,3418, & - 2413,4714,5250,2413,3956,5250,3956,5191,5193,5253,3418,3956, & - 5255,3418,3964,5250,1638,3418,5253,2449,3409,2449,4782,5250, & - 2449,3922,5250,3409,3922,5255,3922,5191,5193,5253,3409,4344, & - 5250,1595,3409,5253,2447,3656,5250,5253,3266,3656,3266,4476, & - 5250,2158,3266,5250,2158,5191,5193,5255,3656,4618,5250,3656, & - 5183,5193,2369,4777,5250,2369,4114,2369,3592,5250,3592,4114, & - 5255,3592,5178,5231,5253,4114,4522,5201,5256,4114,4522,5250, & - 11,4114,5253,4114,5178,5251,5253,5255,1391,4143,5250,1391, & - 2851,5250,2851,5178,5231,5253,4320,5178,5251,4320,5178,5252, & - 5253,4320,5178,5253,5256, 3,4320,5178,5254,4320,5046,5178, & - 2069,4700,5250,2069,3432,2069,3887,5250,3432,3887,5255,3887, & - 5203,5231,5253,3432,3888,5250, 7,3432,5253,3175,4961,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_27 = (/ & - 5253,3175,3268,5253,2363,4160,2363,4881,5250,2363,3575,5250, & - 3575,4160,5255,3575,5203,5231,5253,4160,4433,5201,5256,4160, & - 4433,5250,3252,4160,5253,4868,5203,5251,4868,5203,5252,5253, & - 4868,5203,5253,5256, 3,4868,5203,5254,631,4868,4868,5046, & - 5203,2135,4961,2135,5043,5250,2135,3268,5250,3268,5203,5231, & - 5255,4215,4961,5201,5256,4215,4961,5250,4961,5203,5251,5255, & - 2366,4723,5250,2366,3364,2366,3970,5250,3364,3970,5255,3970, & - 5160,5193,5253,3364,4345,5250,3104,3364,5253,1072,4140,5250, & - 1072,2831,5250,2831,5160,5193,5253,976,4155,976,4879,5250, & - 3002,5165,5231,5253,3002,4155,5255,4155,4427,5201,5256,4155, & - 4427,5250,4155,5165,5251,5253,5255,1827,3542,5250,5253,2125, & - 3349,2125,4587,5250,2125,3925,5250,3925,5165,5231,5253,3349, & - 3925,5255,3349,4804,5250,3349,4944,5231,5253,2011,4873,5250, & - 5253,4838,5165,5251,4838,5165,5252,5253,4838,5165,5253,5256, & - 3,4838,5165,5254,4838,5046,5165,611,4838,3308,3542,3308, & - 4582,5250,1927,3308,5250,1927,5165,5231,5255,3542,4889,5250, & - 3542,5208,5232,1386,3542,5250,5255,1774,2944,5250,1774,4873, & - 1774,5135,5250,2944,5165,5231,5255,4873,5165,5251,5255,4283, & - 4873,5201,5256,4283,4873,5250,2455,3341,2455,4884,5250,2455, & - 3910,5250,3910,5193,5230,5253,3341,3910,5255,3341,4590,5250, & - 1737,3341,5253,2370,3757,5250,5253,1940,3376,1940,4702,5250, & - 1940,3842,5250,3842,5193,5230,5253,3376,3842,5255,3376,4719, & - 5250,1699,3376,5253,2067,4223,5250,5253,1767,4607,5250,1767, & - 3757,1767,2912,5250,2912,5193,5230,5255,1121,4223,5250,5255, & - 3498,3757,5250,3757,5230,5244,2133,4608,5250,2133,4223,2133, & - 2849,5250,2849,5193,5230,5255,3498,4223,5250,5255,4223,5125, & - 5193,5255,2068,3671,5250,573,2068,5250,573,5160,5253,1754, & - 3188,5250,5253,1171,3721,5250,1171,1754,5250,1754,5160,5255, & - 32,1754,5250,1434,3121,1434,3342,5250,2341,3121,5250,5253, & - 2341,3342,5253,3342,4951,5233,5255,3342,5058,5233,5255,517 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_28 = (/ & - 3121,5250,5255,3121,4916,5233,5250,3121,4916,5233,5255,1210, & - 4649,5255,5258,1417,4649,5255,4513,4649,5250,5255,4513,4649, & - 5252,5253,2955,4649,5253,4513,4649,5253,5256,1210,4649,4513, & - 4649,4721,4822,5201,5256,4721,4822,5250,4721,4823,5251,5255, & - 4588,5170,4588,5231,4588,5251,5255,4588,5250,5251,5255,1016, & - 4720,5255,3285,4720,5252,3576,4720,5252,5253,3576,4720,5253, & - 5256,3416,4720,3576,4720,788,4720,3022,4513,5255,2200,4513, & - 5252,5253,2200,4513,5253,5256,2448,4513,2200,4513,1698,4513, & - 4916,5058,5201,5256,4588,5058,5233,5258,4916,5058,5250,4358, & - 5058,5250,4951,5058,4916,5058,5255,3161,4965,5253,4666,4965, & - 5258,2799,3903,5255,2798,3903,5252,5253,2798,3903,5253,5256, & - 2798,3903,2468,3903,3830,4531,5201,5256,614,3830,5258,3830, & - 4531,5250,1024,3786,5255,3786,4603,5252,5253,3786,4603,5253, & - 5256,3786,4603, 94,3786,1341,4964,1341,1792,5250,1794,4964, & - 5250,5253,1792,1794,5253,1792,4964,5255,444,4964,5250,5255, & - 939,3538,5255,3538,4488,5252,5253,3538,4488,5253,5256,3538, & - 4488,136,3538,3253,3827,5255,2506,3827,5252,5253,2506,3827, & - 5253,5256,2506,3827,1747,3827,3793,4048,5253,3793,4592,5258, & - 3545,4514,5201,5256,628,3545,5258,3545,4514,5250,1307,3372, & - 1307,3824,5250,3824,5209,5233,5255,3824,5123,5233,5255,3824, & - 4952,5233,5255,3824,4951,5222,5255,3824,5058,5222,5255,2383, & - 3372,5250,5253,2383,3824,5253,361,3372,5250,5255,3372,4986, & - 5233,5250,3372,4986,5233,5255,4432,4626,5250,5255,1316,4626, & - 5255,5258,837,4626,5255,4432,4626,5252,5253,3060,4626,5253, & - 4432,4626,5253,5256,4432,4626,1316,4626,4084,5193,4084,5244, & - 5250,5251,4084,5244,5255,4084,5102,846,4821,5255,3379,4821, & - 5252,3589,4821,5252,5253,3589,4821,5253,5256,3378,4821,3589, & - 4821,565,4821,2501,4432,5255,2234,4432,5252,5253,2234,4432, & - 5253,5256,1806,4432,2234,4432,1588,4432,1287,3643,1287,2015, & - 5250,2014,3643,5250,5253,2014,2015,5253,2015,3643,5255,3643 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_29 = (/ & - 4591,5201,5256,3643,4591,5250,3643,4592,5251,5255,3643,4591, & - 5255,225,3643,5250,5255,1451,4028,5250,1451,4950,5250,2175, & - 3435,5228,5250,5253,3435,4950,5253,4938,4950,4951,5255,4950, & - 5123,5222,5255,4938,4950,5058,5255,4950,5076,5233,5255,3519, & - 4950,5233,5255,4950,4952,5222,5255,135,4950,5250,4833,4887, & - 5250,5255,1343,4833,5255,5258,937,4833,5255,4833,4887,5252, & - 5253,3292,4833,5253,4833,4887,5253,5256,4833,4887,1343,4833, & - 4547,4740,5201,5256,4547,4740,5250,4547,4947,5251,5255,1049, & - 4707,5255,3177,4707,5252,3573,4707,5252,5253,3573,4707,5253, & - 5256,3176,4707,3573,4707,764,4707,3469,4887,5255,755,4887, & - 5252,5253,755,4887,5253,5256,755,4887,1988,4887,3321,3820, & - 5255,2806,3820,5252,5253,2806,3820,5253,5256,2806,3820,1549, & - 3820,3170,4478,5253,4376,4478,5258,1157,3491,5255,3491,4326, & - 5252,5253,3491,4326,5253,5256,3491,4326,109,3491,3508,4471, & - 5201,5256,723,3508,5258,3508,4471,5250,1484,3640,1484,1820, & - 5250,1819,3640,5250,5253,1819,1820,5253,1820,3640,5255,3640, & - 4338,5201,5256,3640,4338,5250,3640,4038,5251,5255,3640,4338, & - 5255,332,3640,5250,5255,1276,3599,1276,4004,5250,2317,3599, & - 5250,5253,2317,4004,5253,4004,5089,5233,5255,4004,4895,5233, & - 5255,4004,5209,5222,5255,4004,5123,5222,5255,4004,4927,5222, & - 5255,292,3599,5250,5255,3599,4773,5222,5250,3599,4986,5222, & - 5250,3599,4773,5222,5255,3599,4986,5222,5255,4483,4892,5250, & - 5255,1354,4892,5255,5258,1296,4892,5255,4483,4892,5252,5253, & - 3206,4892,5253,4483,4892,5253,5256,4483,4892,1354,4892,4684, & - 4729,5201,5256,4684,4729,5250,4729,5001,5251,5255,1415,4718, & - 5255,3360,4718,5252,3614,4718,5252,5253,3614,4718,5253,5256, & - 3359,4718,3614,4718,779,4718,1836,4483,5255,720,4483,5252, & - 5253,720,4483,5253,5256,1610,4483,1609,4483,720,4483,3125, & - 4408,5253,4075,4408,5258,1009,3531,5255,3531,4448,5252,5253, & - 3531,4448,5253,5256,3531,4448, 31,3531,3320,3796,5255,2762 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_30 = (/ & - 3796,5252,5253,2762,3796,5253,5256,2762,3796,1664,3796,3560, & - 4487,5201,5256,738,3560,5258,3560,4487,5250,922,3657,922, & - 1821,5250,2309,3657,5250,5253,1821,2309,5253,1821,3657,5255, & - 3657,4100,5201,5256,3657,4100,5250,3657,4005,5251,5255,3657, & - 4100,5255,262,3657,5250,5255,1533,4529,5250,1533,3754,5250, & - 2782,3372,5228,5250,5253,2782,3754,5253,3754,5037,5233,5255, & - 3754,5209,5222,5255,3754,4927,5222,5255,102,3754,5250,4692, & - 4893,5250,5255,1403,4692,5255,5258,941,4692,5255,4692,4893, & - 5252,5253,2569,4692,5253,4692,4893,5253,5256,4692,4893,1403, & - 4692,1167,4699,5255,3340,4699,5252,3605,4699,5252,5253,3605, & - 4699,5253,5256,3339,4699,3605,4699,681,4699,3468,4893,5255, & - 2837,4893,5252,5253,2837,4893,5253,5256,2837,4893,2477,4893, & - 2565,3808,5255,2595,3808,5252,5253,2595,3808,5253,5256,2595, & - 3808,1700,3808,3150,4495,5253,4001,4495,5258,996,3534,5255, & - 3534,4012,5252,5253,3534,4012,5253,5256,3534,4012, 84,3534, & - 3512,4509,5201,5256,569,3512,5258,3512,4509,5250,966,3649, & - 966,1796,5250,1796,3649,5255,2302,3649,5250,5253,1796,2302, & - 5253,277,3649,5250,5255,3649,4187,5201,5256,3649,4187,5250, & - 3649,3776,5251,5255,3093,4453,5253,4020,4453,5258,938,3562, & - 5255,3562,4045,5252,5253,3562,4045,5253,5256,3562,4045, 47, & - 3562,2520,3813,5255,3050,3813,5252,5253,3050,3813,5253,5256, & - 3050,3813,1613,3813,3831,4454,5201,5256,568,3831,5258,3831, & - 4454,5250,1211,3089,1211,3812,5250,3812,4951,5139,5255,3812, & - 5126,5233,5255,3812,4896,5233,5255,3812,5058,5139,5255,1964, & - 3089,5250,5253,1964,3812,5253,428,3089,5250,5255,3089,5034, & - 5233,5250,3089,5034,5233,5255,4641,4667,5250,5255,961,4641, & - 5255,5258,921,4641,5255,4641,4667,5252,5253,2640,4641,5253, & - 4641,4667,5253,5256,4641,4667,961,4641,4081,5191,4081,5183, & - 5250,5251,4081,5183,5255,4081,5070,1510,4701,5255,3357,4701, & - 5252,3588,4701,5252,5253,3588,4701,5253,5256,3356,4701,3588 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_31 = (/ & - 4701,683,4701,3238,4667,5255,1760,4667,5252,5253,1760,4667, & - 5253,5256,1760,4667,1598,4667,2714,4667,1315,3368,1315,2322, & - 5250,2321,3368,5250,5253,2321,2322,5253,2322,3368,5255,464, & - 3368,5250,5255,3368,4030,5250,3368,4622,5142,3319,3799,5255, & - 2493,3799,5252,5253,2493,3799,5253,5256,2493,3799,1672,3799, & - 3140,4479,5253,4016,4479,5258,1023,3554,5255,3554,4619,5252, & - 5253,3554,4619,5253,5256,3554,4619,143,3554,3701,4466,5201, & - 5256,538,3701,5258,3701,4466,5250,1027,3174,1027,3805,5250, & - 3805,4918,4951,5255,3805,5066,5233,5255,3805,4918,5058,5255, & - 3805,4637,5233,5255,2406,3174,5250,5253,2406,3805,5253,436, & - 3174,5250,5255,3174,4917,5233,5250,3174,4917,5233,5255,4683, & - 4829,5250,5255,1073,4829,5255,5258,1031,4829,5255,4683,4829, & - 5252,5253,2656,4829,5253,4683,4829,5253,5256,4683,4829,1073, & - 4829,2148,5230,2148,5125,5250,5251,2148,5125,5255,2148,4997, & - 851,4377,5255,3427,4377,5252,4377,4388,5252,5253,4377,4388, & - 5253,5256,3426,4377,4377,4388,732,4377,2559,4683,5255,2117, & - 4683,5252,5253,2117,4683,5253,5256,2117,4683,1623,4683,2645, & - 4683,1431,4068,5250,1431,3440,5250,1878,3439,5231,5250,5253, & - 3439,3440,5253,1878,3440,5228, 89,3440,5250,3165,4457,5253, & - 4063,4457,5258,1232,3539,5255,3539,4743,5252,5253,3539,4743, & - 5253,5256,3539,4743, 71,3539,2709,3815,5255,3027,3815,5252, & - 5253,3027,3815,5253,5256,3027,3815,1717,3815,3684,4444,5201, & - 5256,700,3684,5258,3684,4444,5250,1039,3122,1039,3795,5250, & - 3795,4931,4951,5255,3795,5068,5233,5255,3795,4650,5233,5255, & - 3795,4931,5058,5255,2418,3122,5250,5253,2418,3795,5253,283, & - 3122,5250,5255,3122,4930,5233,5250,3122,4930,5233,5255,4635, & - 4675,5250,5255,1174,4635,5255,5258,910,4635,5255,4635,4675, & - 5252,5253,2915,4635,5253,4635,4675,5253,5256,4635,4675,1174, & - 4635,3210,4998,3210,5203,3210,5106,5250,5251,3210,5106,5255, & - 1065,4928,5255,3353,4928,5252,4393,4928,5252,5253,4393,4928 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_32 = (/ & - 5253,5256,3352,4928,4393,4928,531,4928,2601,4675,5255,1951, & - 4675,5252,5253,1951,4675,5253,5256,1951,4675,1636,4675,2875, & - 4675,1542,3661,1542,1860,5250,1881,3661,5250,5253,1860,1881, & - 5253,1860,3661,5255,3661,4375,5253,5256,3661,4375,5250,3661, & - 4376,5251,5255,3661,4375,5255,396,3661,5250,5255,2740,3663, & - 5255,2994,3663,5252,5253,2994,3663,5253,5256,2994,3663,1647, & - 3663,3111,4494,5253,4037,4494,5258,884,3627,5255,3195,3627, & - 5252,5253,3195,3627,5253,5256,3195,3627, 68,3627,3482,4639, & - 5201,5256,752,3482,5258,3482,4639,5250,956,3103,956,4937, & - 5250,2241,3103,5250,5253,2241,4937,5253,4937,4938,5123,5255, & - 3437,4937,5233,5255,4937,5076,5222,5255,4937,4938,4952,5255, & - 4505,4937,5222,5255,3553,4937,5233,5255,274,3103,5250,5255, & - 3103,4938,4986,5250,3103,4938,4986,5255,4630,4846,5201,5256, & - 4630,4846,5250,4630,4913,5244,4630,4947,5251,5255,1112,4971, & - 5255,3567,4971,5252,5253,3304,4971,5252,3567,4971,5253,5256, & - 3486,4971,3567,4971,812,4971,1458,3655,1458,1773,5250,1772, & - 3655,5250,5253,1772,1773,5253,1773,3655,5255,3655,4139,5201, & - 5256,3655,4139,5250,3655,4000,5251,5255,3655,4139,5255,480, & - 3655,5250,5255,1486,4133,5250,1486,5030,5250,2605,3599,5228, & - 5250,5253,2605,5030,5253,5030,5037,5222,5255,4938,5030,5209, & - 5255,3832,5030,5233,5255,5030,5076,5222,5255,4927,4938,5030, & - 5255,4505,5030,5222,5255, 52,5030,5250,2649,3828,5255,2776, & - 3828,5252,5253,2776,3828,5253,5256,2776,3828,1669,3828,3085, & - 4407,5253,4009,4407,5258,959,3518,5255,3518,4322,5252,5253, & - 3518,4322,5253,5256,3518,4322, 17,3518,3494,4670,5201,5256, & - 705,3494,5258,3494,4670,5250,4899,4948,5250,5255,3227,4948, & - 5255,5258,3487,4948,5255,4899,4948,5252,5253,3316,4948,5253, & - 4899,4948,5253,5256,4899,4948,3227,4948,1014,4803,5255,3584, & - 4803,5252,5253,3264,4803,5252,3584,4803,5253,5256,3433,4803, & - 3584,4803,785,4803,3452,4899,5255,2356,4899,5252,5253,2356 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_33 = (/ & - 4899,5253,5256,2356,4899,2357,4899,1385,3645,1385,1903,5250, & - 2232,3645,5250,5253,1903,2232,5253,1903,3645,5255,3645,4181, & - 5201,5256,3645,4181,5250,3645,4041,5251,5255,3645,4181,5255, & - 431,3645,5250,5255,1310,3082,1310,3332,5250,2372,3082,5250, & - 5253,2372,3332,5253,3332,5089,5222,5255,3332,4895,5222,5255, & - 523,3082,5250,5255,3082,4985,5222,5250,3082,4985,5222,5255, & - 2585,3641,5255,2847,3641,5252,5253,2847,3641,5253,5256,2847, & - 3641,1589,3641,707,3263,5255,1218,3648,5255,3246,3648,5252, & - 5253,3246,3648,5253,5256,3246,3648, 13,3648,4807,4935,5250, & - 5255,1513,4807,5255,5258,1465,4807,5255,4807,4935,5252,5253, & - 3258,4807,5253,4807,4935,5253,5256,4807,4935,1513,4807,4569, & - 4680,5201,5256,4569,4680,5250,4569,5001,5244,4569,5011,5251, & - 5255,3133,5244,5250,5251,3133,5102,1034,4568,5255,3569,4568, & - 5252,5253,3438,4568,5252,3569,4568,5253,5256,3569,4568,487, & - 4568,3624,4935,5255,756,4935,5252,5253,756,4935,5253,5256, & - 756,4935,1600,4935,3251,4935,1150,3331,1150,2088,5250,2087, & - 3331,5250,5253,2087,2088,5253,2088,3331,5255,446,3331,5250, & - 5255,3331,3814,5250,3331,4591,5228,1535,4074,5250,1535,4177, & - 5250,2175,3445,5142,5250,5253,3445,4177,5253,4177,4618,4951, & - 5255,4177,5123,5139,5255,4177,5126,5222,5255,4177,4896,5222, & - 5255,4177,4618,5058,5255,4177,4952,5139,5255, 54,4177,5250, & - 4311,4654,5250,5255,1409,4654,5255,5258,1370,4654,5255,4311, & - 4654,5252,5253,2857,4654,5253,4311,4654,5253,5256,4311,4654, & - 1409,4654,4198,4576,5201,5256,4198,4576,5250,4576,4769,5251, & - 5255,1103,4575,5255,3108,4575,5252,3606,4575,5252,5253,3606, & - 4575,5253,5256,3107,4575,3606,4575,647,4575,1968,4311,5255, & - 1583,4311,5252,5253,1583,4311,5253,5256,1583,4311,1584,4311, & - 2624,3665,5255,3665,3666,5252,5253,3665,3666,5253,5256,3665, & - 3666,1567,3665,3153,4438,5253,4082,4438,5258,1033,3503,5255, & - 3503,4152,5252,5253,3503,4152,5253,5256,3503,4152,119,3503 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_34 = (/ & - 3506,4413,5201,5256,718,3506,5258,3506,4413,5250,861,3798, & - 5250,861,3826,5250,1896,2021,5250,5253,1896,3826,5253,3826, & - 5139,5209,5255,3826,5123,5139,5255,3826,5126,5222,5255,3826, & - 4896,5222,5255,3826,4952,5139,5255, 22,3826,5250,2021,4986, & - 5139,5250,2021,4986,5139,5255,4132,4897,5250,5255,1405,4132, & - 5255,5258,1473,4132,5255,4132,4897,2950,4132,5253,4132,4897, & - 5253,5256,4132,4897,1405,4132,1038,4725,5255,3322,4725,5252, & - 3610,4725,5252,5253,3610,4725,5253,5256,3411,4725,3610,4725, & - 742,4725,1873,4897,5255,1640,4897,5252,5253,1640,4897,5253, & - 5256,2484,4897,1640,4897,1560,4897,3101,4437,5253,4008,4437, & - 5258,1503,3511,5255,3511,4799,5252,5253,3511,4799,5253,5256, & - 3511,4799,124,3511,2499,3791,5255,2789,3791,5252,5253,2789, & - 3791,5253,5256,2789,3791,1555,3791,3499,4402,5201,5256,676, & - 3499,5258,3499,4402,5250,1525,3527,5250,1525,3802,5250,1000, & - 3802,5250,5253,1000,3802,5253,3802,5139,5209,5255,3802,5103, & - 5233,5255,3802,4896,5222,5255,3802,4952,5139,5255,129,3802, & - 5250,4633,4905,5250,5255,1481,4633,5255,5258,1254,4633,5255, & - 4633,4905,5252,5253,2632,4633,5253,4633,4905,5253,5256,4633, & - 4905,1481,4633,1161,4727,5255,3271,4727,5252,3570,4727,5252, & - 5253,3570,4727,5253,5256,3345,4727,3570,4727,811,4727,3451, & - 4905,5255,2287,4905,5252,5253,2287,4905,5253,5256,2287,4905, & - 1857,4905,3279,3825,5255,2563,3825,5252,5253,2563,3825,5253, & - 5256,2563,3825,1554,3825,3098,4504,5253,4085,4504,5258,932, & - 3489,5255,3489,4533,5252,5253,3489,4533,5253,5256,3489,4533, & - 111,3489,3551,4499,5201,5256,560,3551,5258,3551,4499,5250, & - 1270,3412,1270,2334,5250,2333,3412,5250,5253,2333,2334,5253, & - 2334,3412,5255,505,3412,5250,5255,3412,4070,5250,3412,4181, & - 5228,1200,3817,5250,1200,3818,5250,1216,3818,5250,5253,1216, & - 3818,5253,3818,5089,5139,5255,3818,5141,5222,5255,3818,4793, & - 5222,5255,3818,4895,5139,5255, 81,3818,5250,634,4985,5139 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_35 = (/ & - 5250,634,4985,5139,5255,4685,4992,5250,5255,1330,4685,5255, & - 5258,1299,4685,5255,4685,4992,5252,5253,2948,4685,5253,4685, & - 4992,5253,5256,4685,4992,1330,4685,3186,5183,5250,5251,3186, & - 5070,947,4400,5255,3581,4400,5252,5253,3457,4400,5252,3581, & - 4400,5253,5256,3581,4400,475,4400,3702,4992,5255,623,4992, & - 5252,5253,623,4992,5253,5256,623,4992,1665,4992,3262,4992, & - 677,3244,5255,3295,3631,5255,2728,3631,5252,5253,2728,3631, & - 5253,5256,2728,3631,1594,3631,982,3632,5255,3296,3632,5252, & - 5253,3296,3632,5253,5256,3296,3632, 18,3632,1131,3343,1131, & - 1822,5250,2078,3343,5250,5253,1822,2078,5253,1822,3343,5255, & - 432,3343,5250,5255,3343,3810,5250,3343,4051,5228,627,3219, & - 5255,3235,3659,5255,2732,3659,5252,5253,2732,3659,5253,5256, & - 2732,3659,1729,3659,1396,3650,5255,3283,3650,5252,5253,3283, & - 3650,5253,5256,3283,3650, 74,3650,1159,4167,5250,1159,3403, & - 5250,1083,3403,5250,5253,1083,3403,5253,3403,5139,5141,5255, & - 3403,4793,5139,5255,128,3403,5250,796,4168,5222,5250,796, & - 4168,5222,5255,4656,4813,5250,5255,898,4656,5255,5258,1274, & - 4656,5255,4656,4813,5252,5253,2650,4656,5253,4656,4813,5253, & - 5256,4656,4813,898,4656,4628,4933,5201,5256,4628,4933,5250, & - 4277,4933,5244,4787,4933,5251,5255,914,4335,5255,3600,4335, & - 5252,5253,3460,4335,5252,3600,4335,5253,5256,3600,4335,374, & - 4335,2137,4813,5255,589,4813,5252,5253,589,4813,5253,5256, & - 589,4813,1576,4813,3200,4813,328,3866,5250,1240,4964,5231, & - 5253,4919,4964,5251,4919,4964,5252,5253,4919,4964,5253,5256, & - 3,4919,4964,5254,4919,4964,5046,613,4919,1377,3987,5250, & - 1377,3072,5250,3072,4964,5231,5255,1095,4622,5250,1095,4666, & - 5250,613,4666,5250,1763,3317,5250,5251,5253,3317,4622,5253, & - 1763,4666,5250,1763,4965,5250,552,969,5250,969,3763,552, & - 3763,5255,2222,4373,5250,5253,3763,5152,5231,5251,5255,3763, & - 4589,5250,1365,2100,5250,1365,5050,2099,2100,5253,2099,5050 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_36 = (/ & - 5250,5253,2100,5050,5255,1971,3102,5253,3102,5049,5250,5253, & - 5050,5180,5251,5255,4516,5050,5201,5256,2481,5050,5233,5258, & - 4588,5050,5180,5258,4732,5050,5250,4516,5050,5250,4819,5194, & - 5251,4819,5194,5252,5253,4819,5194,5253,5256, 3,4819,5194, & - 5254,3099,4819,4819,5046,5194,1352,1971,5250,1352,5049,1971, & - 5049,5255,238,5049,5250,5255,4414,5049,5255,5049,5234,5251, & - 5255,4414,5049,5201,5256,1642,5049,5233,5258,4588,5049,5234, & - 5258,4159,5049,5250,4414,5049,5250,841,2771,5250,841,5093, & - 1172,5093,5250,5253,2771,5194,5231,5255,1054,5093,5250,5255, & - 2258,5093,5231,5258,4528,5023,5093,5258,4578,5093,5250,4341, & - 5093,5250,2272,5093,5251,5093,5231,5232,5251,5255,1395,2706, & - 5250,1395,4373,2706,5194,5231,5255,4373,5194,5251,5255,4259, & - 4373,5201,5256,4259,4373,5250,1258,2041,5250,1258,5069,2040, & - 2041,5253,2040,5069,5250,5253,2041,5069,5255,1661,5168,5253, & - 2081,4909,5168,5258,563,5168,5234,5258,5015,5168,5250,5069, & - 5209,5253,5255,4436,5069,5201,5256,3630,4909,5069,5258,529, & - 5069,5233,5258,3939,5069,5250,4436,5069,5250,2479,5193,2479, & - 5231,5244,5255,2479,5102,2479,5244,5250,5251,1289,5020,5255, & - 4958,5020,5252,3234,5020,5252,5253,3234,5020,5253,5256,5020, & - 5210,3234,5020,4564,5020,5016,5225,5252,3514,5016,5255,533, & - 5016,5252,5253,533,5016,5253,5256,5016,5080,533,5016,4564, & - 5016,4906,5226,5251,4906,5226,5252,5253,4906,5226,5253,5256, & - 3,4906,5226,5254,642,4906,4906,5046,5226,4286,5227,5251, & - 4286,5227,5252,5253,4286,5227,5253,5256, 3,4286,5227,5254, & - 4286,5046,5227,2497,4774,5255,654,4774,5252,5253,654,4774, & - 5253,5256,654,4774,4774,5093,3488,4774,4107,5217,5255,2308, & - 5217,5252,5253,5013,5217,5252,2308,5217,5253,5256,4758,5217, & - 4976,5217,5255,702,5217,2308,5217,5205,5217,3413,5217,2252, & - 5219,5255,4615,5219,5252,3241,5219,5252,5253,3241,5219,5253, & - 5256,702,5219,3241,5219,105,5219,5219,5227,5231,5250,606 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_37 = (/ & - 5219,4113,5204,5255,2130,5204,5252,5253,5168,5204,5252,2130, & - 5204,5253,5256,4617,5204,5002,5204,5255,715,5204,2130,5204, & - 5204,5220,3413,5204,2544,5224,5255,4786,5224,5252,3194,5224, & - 5252,5253,3194,5224,5253,5256,715,5224,3734,5224,3194,5224, & - 1280,5224,5224,5226,5231,5250,607,5224,968,3228,968,2623, & - 5250,4096,5173,5250,3479,4096,4958,5258,558,4096,5231,5258, & - 2623,5226,5231,5255,3228,4894,5250,3228,4269,5250,3228,5226, & - 5251,5255,1280,3734,5250,5255,1364,4337,5255,3586,4337,5252, & - 5253,3586,4337,5253,5256,3586,4337,514,4913,5250,514,4963, & - 873,3980,5255,2834,3980,5252,3048,3980,5252,5253,3048,3980, & - 5253,5256,3048,3980,4087,4255,5250,5253,5255,1285,4255,5255, & - 4087,4255,5252,5253,2791,4255,5253,4087,4255,5253,5256,4087, & - 4255,1445,4087,5255,1846,4087,5252,1847,4087,5252,5253,1847, & - 4087,5253,5256,1847,4087,1306,3865,5255,2821,3865,5252,5253, & - 2821,3865,5253,5256,2821,3865,2425,4913,5250,2425,5241,5255, & - 2425,5160,2425,4963,981,5127,5255,2436,5127,5252,2996,5127, & - 5252,5253,2996,5127,5253,5256,2996,5127, 9,5127,4109,5127, & - 1102,3496,5255,1909,3496,5252,1910,3496,5252,5253,1910,3496, & - 5253,5256,3496,5194,2272,3496,1910,3496,4107,5218,5255,5013, & - 5218,5252,194,5218,5252,5253,194,5218,5253,5256,5205,5218, & - 194,5218,3413,5218,606,5218,4113,5118,5255,5118,5168,5252, & - 1661,5118,5252,5253,1661,5118,5253,5256,5118,5220,3413,5118, & - 1661,5118,607,5118,1239,2574,1239,1923,5250,2574,5228,5250, & - 2574,4060,5250,1922,2574,5250,5253,1922,1923,5253,1923,2574, & - 5255,307,2574,5250,5255,1143,3156,1143,2076,5250,3156,3676, & - 5250,3156,4595,5250,3156,4127,5250,2075,3156,5250,5253,2075, & - 2076,5253,2076,3619,5228,417,3156,5250,5255,1305,3900,1305, & - 1867,5250,2817,3900,5250,5253,1867,2817,5253,1867,4219,5231, & - 3472,4368,5201,5256,3472,4610,5201,5256,3472,4368,5250,3472, & - 4610,5250,3472,3900,5250,5255,3900,4611,5201,5256,3900,4611 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_38 = (/ & - 5250,3900,4219,5251,5255,2326,5231,5244,4383,5241,5250,4383, & - 5222,4383,5231,5244,5250,2326,4383,5250,2070,5242,2070,5246, & - 5250,2070,2539,5250,1895,5242,5250,5253,1895,2539,5253,2539, & - 5242,5255,2539,4730,2715,4938,2715,5098,5250,2715,5193,5244, & - 5250,1592,2715,5250,1592,5193,5244,4938,5244,4938,5197,5250, & - 2774,5139,2774,5053,5250,2774,5183,5231,5250,1574,2774,5250, & - 1574,5183,5231,5139,5183,5251,5255,5139,5183,5201,5251,5256, & - 5139,5183,5250,5251,3222,4801,3222,5151,5250,179,3222,5250, & - 3222,5145,5244,179,4885,2365,4801,5250,5253,179,2365,5253, & - 4801,5011,5250,4801,5241,5244,4391,4801,5250,5255,4391,5202, & - 5244,3035,4618,3035,4858,5250,3035,5191,5244,5250,1595,3035, & - 5250,1595,5191,5244,4618,4991,5250,4618,5183,5244,2893,4618, & - 2893,4852,5250,2893,5183,5193,5250,1638,2893,5250,1638,5183, & - 5193,2400,5143,2400,5161,5250,175,2400,5250,2083,5143,5250, & - 5253,175,2083,5253,175,4169,2665,5143,5250,5255,2665,5183, & - 5195,1983,3104,5250,1983,4841,5250,3104,5160,5244,1132,2614, & - 5250,1132,5026,2092,2614,5253,2092,5026,5250,5253,2614,4126, & - 2614,5026,5255,5026,5098,5251,5255,5026,5117,5201,5256,5026, & - 5117,5250,2269,5157,2269,4581,5250,185,2269,5250,1841,5157, & - 5250,5253,185,1841,5253,185,3926,4095,5157,5250,5053,5157, & - 5244,5157,5183,5241,1719,5157,5250,5255,1719,5149,5244,1876, & - 3530,1876,4784,5250,1876,3367,5250,1904,3530,5250,5253,1904, & - 3367,5253,3367,5193,5246,3367,3530,5255,3530,5244,5246,3530, & - 4446,5250,4300,5150,5244,4300,4646,5250,3530,4300,5250,5255, & - 2878,3498,2878,4390,5250,2878,5230,5244,5250,1699,2878,5250, & - 1699,5230,5244,3498,4871,5250,3498,5125,5244,3288,5157,3288, & - 4583,5250,150,3288,5250,3288,5145,5183,1954,5157,5250,5253, & - 150,1954,5253,150,4827,1704,5157,5250,5255,1704,5183,5202, & - 1712,2572,2572,4367,5250,2572,5183,5191,5250,761,2572,5250, & - 761,5183,5191,1712,4118,5250,1712,5183,1711,1712,5250,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_39 = (/ & - 1711,5183,5191,5255,2558,3498,2558,4336,5250,2558,5125,5193, & - 5250,1737,2558,5250,1737,5125,5193,2401,4717,2401,4356,5250, & - 167,2401,5250,2213,4717,5250,5253,167,2213,5253,167,4365, & - 4627,4717,5201,5256,4627,4717,5250,4717,5125,5235,4318,4717, & - 5251,5255,1599,4717,5250,5255,1599,5229,5237,1153,5032,5250, & - 1153,3069,5250,3068,5160,5222,5250,5253,3068,3069,5253,3069, & - 5160,5241,3069,4698,1790,3314,3314,4594,5250,3314,5203,5244, & - 5250,666,3314,5250,666,5203,5244,1790,4170,5250,1790,5106, & - 5244,1587,1790,5250,5255,1587,5203,5244,5255,1177,2634,5250, & - 1177,3879,2453,2634,5253,2453,3879,5250,5253,2634,4105,2634, & - 3879,5255,3879,5097,5251,5255,3879,4836,5201,5256,3879,4836, & - 5250,577,2634,5255,577,3879,5250,5255,1313,3607,1313,3066, & - 5250,2215,3607,5250,5253,2215,3066,5253,3066,4158,3066,3607, & - 5255,3607,4765,5250,3607,5124,5194,5251,1673,3607,5250,5255, & - 1113,1673,5200,5250,1844,3943,5250,670,1844,5250,670,5213, & - 5253,1565,2023,5250,5253,2174,4925,5250,2174,3090,2174,3744, & - 5250,3090,3744,5255,3744,5213,5253,2181,5213,5250,5253,3090, & - 3745,5250,3090,5029,5253,1007,4201,5255,370,4201,5252,5253, & - 370,4201,5253,5256,370,4201,369,4201,2540,4563,5255,2323, & - 4563,5252,5253,2323,4563,5253,5256,3115,4563,2323,4563,3559, & - 4563,4912,5213,5251,4912,5213,5252,5253,4912,5213,5253,5256, & - 3,4912,5213,5254,4912,5046,5213,2140,4912,2002,5198,5255, & - 2313,5198,5252,271,5198,5252,5253,271,5198,5253,5256,271, & - 5198,599,5198,4914,5198,2103,3921,5250,783,2103,5250,783, & - 5213,5255,1036,1565,5250,5255,1565,2058,784,2058,5250,784, & - 5213,5255,1565,5029,5250,1241,4091,5250,1241,2415,5250,2480, & - 2626,5160,5250,5253,2415,2626,5253,2415,4089,5160, 95,2415, & - 5250,897,4097,5250,897,3030,5250,3030,5215,5231,5253,2343, & - 4186,5250,5253,1362,4151,1362,2959,5250,2959,5215,5231,5253, & - 3141,5215,5231,5250,5253,4151,4266,5201,5256,4151,4266,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_40 = (/ & - 4151,5215,5251,5253,5255,904,3852,5255,2296,3852,5252,3398, & - 3852,5252,5253,3398,3852,5253,5256,1604,3852,3398,3852,336, & - 3852,653,3733,5255,840,3733,5252,176,3733,5252,5253,176, & - 3733,5253,5256,652,3733,176,3733,395,3733,1470,3982,5255, & - 3034,3982,5252,254,3982,5252,5253,254,3982,5253,5256,254, & - 3982, 28,3982,405,4240,5255,145,4240,5252,5253,145,4240, & - 5253,5256,404,4240,145,4240,403,4240,147,4078,5250,4302, & - 5215,5251,4302,5215,5252,5253,4302,5215,5253,5256, 3,4302, & - 5215,5254,4302,5046,5215,1186,4185,5250,1186,2902,5250,2902, & - 5215,5231,5255,1297,4186,5250,5255,920,4186,920,2516,5250, & - 2516,5215,5231,5255,4186,4301,5201,5256,4186,4301,5250,4186, & - 5215,5251,5255,912,4090,5250,912,1975,5250,2480,2888,5160, & - 5250,5253,1975,2888,5253,1975,4089,5160,104,1975,5250,2065, & - 3940,5250,635,2065,5250,635,5169,5253,1581,1915,5250,5253, & - 2362,4148,5255,740,4148,5252,5253,740,4148,5253,5256,2231, & - 4148,740,4148,1585,4148,2727,4144,5255,708,4144,5252,5253, & - 708,4144,5253,5256,1858,4144,708,4144,1718,4144,1205,5236, & - 5255,2061,5236,5252,199,5236,5252,5253,199,5236,5253,5256, & - 199,5236,401,5236,5212,5236,4843,5169,5251,4843,5169,5252, & - 5253,4843,5169,5253,5256, 3,4843,5169,5254,4843,5046,5169, & - 709,4843,2451,3863,5250,748,2451,5250,1058,5169,5250,5253, & - 748,5169,5255,1520,1581,5250,5255,1581,1911,639,1911,5250, & - 639,5169,5255,1581,4847,5250,1468,3994,5250,1468,2508,5250, & - 1905,5175,5231,5250,5253,2508,5175,5231,5255,540,5175,5231, & - 5250,5255,2180,3891,5250,797,2180,5250,797,5253,5257,1736, & - 2184,5250,5253,5099,5201,5256,5257,3988,5256,5257,236,5231, & - 5257,5258,4747,5248,5257,5258,4754,5250,5257,4756,5250,5257, & - 4746,5250,5257,3883,5250,5257,5099,5250,5257,5206,5251,5255, & - 5257,3617,3646,4747,5258,3646,4869,5231,5258,3646,4541,5250, & - 3638,4747,4970,5258,362,4970,5231,5258,3990,4970,5250,2469 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_41 = (/ & - 4754,5255,770,4754,5252,5253,770,4754,5253,5256,1834,4754, & - 770,4754,1611,4754,2836,4756,5255,688,4756,5252,5253,688, & - 4756,5253,5256,1791,4756,688,4756,1742,4756,243,3517,5231, & - 5258,3516,3517,4747,5258,3517,4249,5250,1178,5041,5255,1771, & - 5041,5252,156,5041,5252,5253,156,5041,5253,5256,5041,5207, & - 156,5041,325,5041,3043,4746,5255,2170,4746,5252,5253,2170, & - 4746,5253,5256,2132,4746,2170,4746,1612,4746,1128,5206,5255, & - 2108,5206,5252,172,5206,5252,5253,172,5206,5253,5256,4183, & - 5206,172,5206,439,5206,2178,3971,5250,646,2178,5250,905, & - 5250,5253,5257,646,5255,5257,1001,1736,5250,5255,1736,2160, & - 624,2160,5250,624,5255,5257,1736,5099,5250,881,3898,5250, & - 881,2961,5250,2242,5231,5249,5250,5253,2961,5231,5249,5255, & - 661,5231,5249,5250,5255,237,5237,5255,5258,868,5237,5255, & - 5195,5237,5250,5255,5195,5237,5252,5253,2825,5237,5253,5195, & - 5237,5253,5256,237,5237,5195,5237,343,4949,5255,5258,1158, & - 4949,5255,4949,5121,5250,5255,4949,5121,5252,5253,2790,4949, & - 5253,4949,5121,5253,5256,343,4949,4949,5121,1142,4374,5255, & - 2074,4374,5252,2745,4374,5252,5253,2745,4374,5253,5256,498, & - 4374,2745,4374,3602,4374,1545,5136,5255,5136,5149,5250,5255, & - 5136,5149,5252,5253,2880,5136,5253,5136,5149,5253,5256,5136, & - 5149,438,5062,5250,1516,5062,5250,1516,4634,5250,2882,4634, & - 5253,2882,5178,5250,5251,5253,384,4755,5250,1106,4380,5250, & - 1106,4755,5250,2743,5203,5250,5251,5253,2743,4380,5253,918, & - 5239,5250,918,2399,5250,3533,5160,5233,5250,5253,2399,3533, & - 5253,3533,4809,5251,5255,2399,5160,5235,4931,5106,5201,5251, & - 5256,4931,5106,5250,5251,4931,5106,5251,5255,2693,4785,5255, & - 1531,4785,5252,532,4785,5252,5253,532,4785,5253,5256,532, & - 4785,497,4785,3935,4785,1380,5101,5255,5101,5129,5250,5255, & - 5101,5129,5252,5253,2675,5101,5253,5101,5129,5253,5256,5101, & - 5129,4206,5178,5250,2208,4206,5255,4206,5178,5252,5253,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_42 = (/ & - 2620,4206,5253,4206,5178,5253,5255,5256,4206,5178,5255,3205, & - 4359,5255,1005,4359,5252,2005,4359,5252,5253,2005,4359,5253, & - 5256,3991,4359,2005,4359,355,4359,5007,5008,5250,5255,393, & - 5008,5255,5258,1134,5008,5255,5007,5008,5252,5253,2684,5008, & - 5253,5007,5008,5253,5256,5007,5008,393,5008,4451,4882,5201, & - 5256,4354,4882,5250,4451,4882,5250,4244,4882,5251,5255,591, & - 3784,5250,591,5153,5251,2272,5194,5250,5255,1430,3979,5255, & - 3054,3979,5252,5253,3054,3979,5253,5256,3054,3979,3284,4801, & - 5231,5255,3255,4801,5251,5255,1764,5231,5250,5255,2412,5232, & - 5250,2412,5231,5250,5255,3047,5231,5250,5251,5253,3047,5232, & - 5253,2219,4924,5250,2219,5193,5250,5255,2945,5193,5250,5251, & - 5253,2945,4924,5253,2473,5152,5160,4316,5000,5250,5253,5255, & - 2434,4316,5255,4316,5000,5252,5253,2815,4316,5253,4316,5000, & - 5253,5256,4316,5000,5253,2364,5160,5250,5255,2211,5160,5250, & - 5255,2211,5243,5250,2792,5243,5253,2792,5160,5250,5251,5253, & - 579,5243,5250,5251,579,5243,5251,5255,2110,4553,5255,4553, & - 5000,5250,4553,5000,5252,5253,5255,3020,4553,5253,4553,5000, & - 5253,5255,5256,4553,5000,5255,5158,5241,5250,5255,833,5158, & - 5255,5158,5241,5252,5253,3021,5158,5253,5158,5241,5253,5256, & - 5158,5241,330,5164,5255,5258,1015,5164,5255,5164,5202,5250, & - 5255,5164,5202,5252,5253,2525,5164,5253,5164,5202,5253,5256, & - 1015,5164,5164,5202,4640,4915,5250,5255,1097,4915,5255,5258, & - 1048,4915,5255,4640,4915,5252,5253,3056,4915,5253,4640,4915, & - 5253,5256,4640,4915,1097,4915,2828,4640,5255,2807,4640,5252, & - 5253,2807,4640,5253,5256,4640,5087,4640,5222,2807,4640,1037, & - 5137,5255,5258,1100,5137,5255,5053,5137,5250,5255,5053,5137, & - 5252,5253,2691,5137,5253,5053,5137,5253,5256,1037,5137,5053, & - 5137,2127,3758,5255,1902,3758,5252,1720,3758,5252,5253,1720, & - 3758,5253,5256,1720,3758,3758,4540,231,3758,603,4862,5250, & - 5255,222,4862,5255,5258,1436,4862,5255,603,4862,5252,5253 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_43 = (/ & - 2921,4862,5253,603,4862,5253,5256,603,4862,222,4862,5038, & - 5233,5250,2410,5038,5255,5038,5233,5252,5253,5255,2511,5038, & - 5253,5038,5233,5253,5255,5256,5038,5233,5255,4530,5231,5251, & - 5253,5255,4530,5152,5251,5255,4530,5152,5201,5251,5256,4530, & - 5152,5250,5251,4796,5216,5255,5258,4983,5216,5255,5216,5250, & - 5251,5216,5251,5252,5253,5255,5216,5251,5253,5255,5256,5216, & - 5251,5253,5255,5256,5216,5251,5255,4796,5216,4796,5251,5255, & - 4796,5250,5251,5255,680,1269,5244,5250, 12,5241,5250,4406, & - 5133,5250,4406,5222,5251,5253,5255,5155,5188,5250,5253,5255, & - 3334,5155,5255,5258,3326,5155,5255,5155,5188,5252,5253,3059, & - 5155,5253,5155,5188,5253,5256,5155,5188,5253,3334,5155,2985, & - 5036,5255,5258,3203,5036,5255,4909,5036,5250,4909,5036,5252, & - 5253,5255,2240,5036,5253,4909,5036,5253,5255,5256,2985,5036, & - 4909,5036,5255,2131,4557,5255,4557,5222,5250,4557,5222,5252, & - 5253,5255,2887,4557,5253,4557,5222,5253,5255,5256,4557,5222, & - 5255,3566,5233,5244,3566,5222,5251,5255,3476,5100,5255,5100, & - 5222,5250,5100,5222,5252,5253,5255,2793,5100,5253,5100,5222, & - 5253,5255,5256,5100,5222,5255,831,3932,5255,2172,3932,5252, & - 2173,3932,5252,5253,2173,3932,5253,5256,3932,4248,2173,3932, & - 1179,3932,2785,3893,5255,2519,3893,5252,1667,3893,5252,5253, & - 1667,3893,5253,5256,3893,4261,1667,3893,1179,3893,2871,3885, & - 5255,2761,3885,5252,1616,3885,5252,5253,1616,3885,5253,5256, & - 1616,3885,546,3885,3885,3923,889,4860,5255,4860,4981,5250, & - 5255,4860,4981,5252,5253,3260,4860,5253,4860,4981,5253,5256, & - 4860,4981,1165,3870,5255,2509,3870,5252,1755,3870,5252,5253, & - 1755,3870,5253,5256,1521,3870,1755,3870,3870,5140,1290,4760, & - 5255,4760,5163,5250,5255,4760,5163,5252,5253,2841,4760,5253, & - 4760,5163,5253,5256,4760,5163,836,3718,5255,2189,3718,5252, & - 2030,3718,5252,5253,2030,3718,5253,5256,437,3718,2030,3718, & - 3718,4300,3046,3961,5255,2835,3961,5252,1563,3961,5252,5253 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_44 = (/ & - 1563,3961,5253,5256,1521,3961,3961,5115,1563,3961,1506,3967, & - 5255,1798,3967,5252,1799,3967,5252,5253,1799,3967,5253,5256, & - 3967,5010,435,3967,1799,3967,876,4990,5255,4990,5192,5250, & - 5255,4990,5192,5252,5253,2755,4990,5253,4990,5192,5253,5256, & - 4990,5192,2543,3869,5255,2653,3869,5252,1564,3869,5252,5253, & - 1564,3869,5253,5256,435,3869,3869,4975,1564,3869,2244,3944, & - 5255,1654,3944,5252,5253,1654,3944,5253,5256,1654,3944,1653, & - 3944,1262,4880,5255,1980,4880,5252,195,4880,5252,5253,195, & - 4880,5253,5256,3857,4880,195,4880,1693,4880,2233,3778,5255, & - 2182,3778,5252,1692,3778,5252,5253,1692,3778,5253,5256,3778, & - 4110,1692,3778,425,3778,1340,3989,5255,2555,3989,5252,1838, & - 3989,5252,5253,1838,3989,5253,5256,3989,5064,1838,3989,488, & - 3989,4515,5147,5250,5255,1180,4515,5255,4515,5147,5252,5253, & - 3024,4515,5253,4515,5147,5253,5256,4515,5147,2775,3873,5255, & - 2934,3873,5252,1721,3873,5252,5253,1721,3873,5253,5256,3873, & - 5063,1721,3873,488,3873,1281,4334,5255,2045,4334,5252,2889, & - 4334,5252,5253,2889,4334,5253,5256,3384,4334,2889,4334,220, & - 4334,1514,3889,5255,1714,3889,5252,5253,1714,3889,5253,5256, & - 1714,3889,1694,3889,3038,3854,5255,2513,3854,5252,1663,3854, & - 5252,5253,1663,3854,5253,5256,3854,4313,1663,3854,2259,3854, & - 853,4469,5255,4469,4980,5250,5255,4469,4980,5252,5253,3026, & - 4469,5253,4469,4980,5253,5256,4469,4980,2633,3859,5255,2713, & - 3859,5252,1627,3859,5252,5253,1627,3859,5253,5256,3859,4834, & - 1627,3859,2259,3859,4771,5078,5250,5255,291,4771,5255,5258, & - 828,4771,5255,4771,5078,5252,5253,3312,4771,5253,4771,5078, & - 5253,5256,4771,5078,291,4771,1992,3667,5255,2218,3667,5252, & - 1559,3667,5252,5253,1559,3667,5253,5256,1559,3667,333,3667, & - 3667,3986,4901,4994,5250,5255,379,4994,5255,5258,832,4994, & - 5255,4901,4994,5252,5253,3023,4994,5253,4901,4994,5253,5256, & - 4901,4994,379,4994,1375,5108,5255,2917,5108,5252,1945,5108 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_45 = (/ & - 5252,5253,1945,5108,5253,5256,314,5108,1945,5108,3382,5108, & - 1075,3785,5255,117,3785,5252,5253,117,3785,5253,5256,117, & - 3785,1326,4722,5255,3212,4722,5252,2361,4722,5252,5253,2361, & - 4722,5253,5256,895,4722,2361,4722,1282,3674,5255, 91,3674, & - 5252,5253, 91,3674,5253,5256, 91,3674,1010,4577,5255,2291, & - 4577,5252,3393,4577,5252,5253,3393,4577,5253,5256,895,4577, & - 3393,4577,3747,4577,964,5119,5255,2049,5119,5252,2050,5119, & - 5252,5253,2050,5119,5253,5256,675,5119,2050,5119,3822,5119, & - 1032,3730,5255,132,3730,5252,5253,132,3730,5253,5256,132, & - 3730,1382,3688,5255,2202,3688,5252,727,3688,5252,5253,727, & - 3688,5253,5256,223,3688,3688,3946,727,3688,1168,3749,5255, & - 2299,3749,5252,2284,3749,5252,5253,2284,3749,5253,5256,469, & - 3749,2284,3749,3749,3917,1416,3781,5255, 50,3781,5252,5253, & - 50,3781,5253,5256, 50,3781,1401,3751,5255,1780,3751,5252, & - 1781,3751,5252,5253,1781,3751,5253,5256,468,3751,1781,3751, & - 3751,4103,1374,3768,5255,140,3768,5252,5253,140,3768,5253, & - 5256,140,3768,1304,3731,5255,2268,3731,5252,2122,3731,5252, & - 5253,2122,3731,5253,5256,525,3731,2122,3731,3731,4122,1410, & - 3766,5255, 66,3766,5252,5253, 66,3766,5253,5256, 66,3766, & - 1349,3690,5255,2206,3690,5252,2060,3690,5252,5253,2060,3690, & - 5253,5256,295,3690,2060,3690,3690,4179,1028,3678,5255, 35, & - 3678,5252,5253, 35,3678,5253,5256, 35,3678,1387,3691,5255, & - 2387,3691,5252,2031,3691,5252,5253,2031,3691,5253,5256,524, & - 3691,2031,3691,3691,4164,1534,3704,5255, 43,3704,5252,5253, & - 43,3704,5253,5256, 43,3704,1536,3952,5255,1889,3952,5252, & - 188,3952,5252,5253,188,3952,5253,5256,3952,4882,188,3952, & - 501,3952,5152,5231,5250,5253,5255,2783,5152,5255,5258,2150, & - 5152,5255,5152,5231,5252,5253,2500,5152,5253,5152,5231,5253, & - 5256,5152,5231,5253,2783,5152,4405,5193,5250,5253,5255,1110, & - 4405,5255,5258,1997,4405,5255,4405,5193,5252,5253,2579,4405 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_46 = (/ & - 5253,4405,5193,5253,5256,4405,5193,5253,1110,4405,2807,5193, & - 5251,5255,2080,4724,5255,637,4724,5252,5253,637,4724,5253, & - 5256,4352,4724,637,4724,1916,4724,3301,5191,5251,5255,4275, & - 5191,5250,2384,4275,5255,4275,5191,5252,5253,5255,2698,4275, & - 5253,4275,5191,5253,5255,5256,4275,5191,5255,4452,5160,5250, & - 5253,5255,1078,4452,5255,5258,2460,4452,5255,4452,5160,5252, & - 5253,2522,4452,5253,4452,5160,5253,5256,4452,5160,5253,1078, & - 4452,1802,4817,5255,737,4817,5252,5253,737,4817,5253,5256, & - 2478,4817,1562,4817,737,4817,2163,5125,5231,4470,5230,5250, & - 5253,5255,1363,4470,5255,5258,2176,4470,5255,4470,5230,5252, & - 5253,2583,4470,5253,4470,5230,5253,5256,4470,5230,5253,1363, & - 4470,3269,5230,5251,5255,3231,4856,5255,706,4856,5252,5253, & - 706,4856,5253,5256,706,4856,4281,5230,5250,2396,4281,5255, & - 4281,5230,5252,5253,5255,2738,4281,5253,4281,5230,5253,5255, & - 5256,4281,5230,5255,1515,3964,5255,2858,3964,5252,5253,2858, & - 3964,5253,5256,2858,3964,829,4344,5255,3897,4344,5252,5253, & - 3897,4344,5253,5256,3897,4344,924,4522,5255,5258,2314,4522, & - 5255,4522,5178,5250,5253,5255,4522,5178,5252,5253,2702,4522, & - 5253,4522,5178,5253,5256,924,4522,4522,5178,5253, 11,5178, & - 5251,5255,1080,3888,5255,2473,3888,5252,5253,2473,3888,5253, & - 5256,2473,3888,578,3888, 7,5106,5231,1261,4433,5255,5258, & - 2036,4433,5255,4433,5203,5250,5253,5255,4433,5203,5252,5253, & - 2872,4433,5253,4433,5203,5253,5256,1261,4433,4433,5203,5253, & - 3252,5203,5251,5255,2301,4215,5255,4215,5203,5250,4215,5203, & - 5252,5253,5255,3051,4215,5253,4215,5203,5253,5255,5256,4215, & - 5203,5255,3278,4345,5255,3909,4345,5252,5253,3909,4345,5253, & - 5256,3909,4345,4427,5165,5250,5253,5255,834,4427,5255,5258, & - 2290,4427,5255,4427,5165,5252,5253,2988,4427,5253,4427,5165, & - 5253,5256,4427,5165,5253,834,4427,1999,4804,5255,669,4804, & - 5252,5253,669,4804,5253,5256,2028,4804,1621,4804,669,4804 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_47 = (/ & - 2466,4889,5255,551,4889,5252,5253,551,4889,5253,5256,551, & - 4889,1670,4889,3759,4889,4283,5165,5250,2371,4283,5255,4283, & - 5165,5252,5253,5255,2896,4283,5253,4283,5165,5253,5255,5256, & - 4283,5165,5255,2166,4590,5255,815,4590,5252,5253,815,4590, & - 5253,5256,2547,4590,815,4590,2129,4590,2114,4719,5255,3904, & - 4719,5252,5253,3904,4719,5253,5256,3354,4719,3904,4719,2344, & - 4719,3728,4951,5256,759,4951,5258,3669,4951,5250,4398,4916, & - 5255,5258,3325,4916,5255,3712,4916,5250,5255,3712,4916,5252, & - 5253,2924,4916,5253,3712,4916,5253,5256,4398,4916,3712,4916, & - 1210,4513,5250,1210,4513,5255,1417,4649,5250,1417,4513,5250, & - 2955,5058,5250,5251,5253,2955,4649,5253,4822,4823,5250,5255, & - 1356,4822,5255,5258,1067,4822,5255,4822,4823,5252,5253,2712, & - 4822,5253,4822,4823,5253,5256,4822,4823,1356,4822,2609,4823, & - 5255,2376,4823,5252,5253,2376,4823,5253,5256,4708,4823,4602, & - 4823,2376,4823,1016,3416,1016,3576,5250,3285,3416,5250,5253, & - 3285,4721,5233,5253,5255,3576,4708,4823,3576,4721,5233,5255, & - 3416,4822,5233,5250,3416,4823,5038,788,3416,5250,5255,788, & - 3576,5255,2448,3022,2200,3022,5250,3022,5058,5250,5251,5255, & - 2200,5058,5251,5255,2448,4916,5250,5251,2448,4916,5251,5255, & - 1698,2448,5250,5255,1698,5058,5251,5255,3446,4358,5255,808, & - 4358,5252,5253,808,4358,5253,5256,3644,4358,1570,4358,808, & - 4358,3161,4859,5201,5256,3161,4859,5250,2799,3903,5250,2799, & - 4398,5233,5250,5253,2798,2799,5250,2798,4398,5233,5253,2468, & - 2798,5250,2468,4398,5233,5253,5255,3092,4531,5253,4079,4531, & - 5258,614,4398,4796,5250,5255,1024,3786,5250,1024,4603,5250, & - 4398,4603,5233,5255,1775,4603,5255, 94,4603,5250,939,3538, & - 5250,939,4488,5250,4488,4491,5233,5255,2054,4488,5255,136, & - 4488,5250,3253,3827,5250,3253,4488,5250,5253,2506,3253,5250, & - 2506,4491,5233,5253,1747,2506,5250,1747,4488,5253,5255,4048, & - 4798,5201,5256,4048,4798,5250,2283,4592,5255,3793,4592,5252 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_48 = (/ & - 5253,3793,4592,5253,5256,3793,4592,3167,4514,5253,4049,4514, & - 5258,628,3590,4796,5250,5255,4773,5201,5209,5256,4993,5201, & - 5209,5256,3647,5209,5233,5258,3630,5209,5222,5258,4773,5209, & - 5250,4861,5209,5250,4993,5209,5250,4773,5209,5251,5255,4993, & - 5209,5251,5255,4927,5209,4986,5123,5201,5256,4084,5123,5233, & - 5258,4588,5123,5222,5258,4986,5123,5250,4835,5123,5250,4986, & - 5123,5255,4952,5123,3692,4952,5256,771,4952,5258,3752,4952, & - 5250,4071,4986,5250,5255,4491,4986,5255,5258,1109,4986,5255, & - 4071,4986,5252,5253,2876,4986,5253,4071,4986,5253,5256,4071, & - 4986,4491,4986,1316,4432,5250,1316,4432,5255,837,4626,5250, & - 837,4432,5250,3060,5123,5250,5251,5253,3060,4626,5253,5102, & - 5222,5251,5102,5222,5252,5253,5102,5222,5253,5256, 3,5102, & - 5222,5254,4693,5102,5046,5102,5222,846,3378,846,3589,5250, & - 3378,3379,5250,5253,3379,4721,5244,5251,5253,5255,3589,4823, & - 5210,3589,4721,5222,5255,3378,4721,5244,5250,5251,3378,4721, & - 5244,5251,5255,565,3378,5250,5255,565,3589,5255,1806,2501, & - 2501,5123,5250,5251,5255,2234,2501,5250,2234,5123,5251,5255, & - 1806,4986,5250,5251,1806,4986,5251,5255,1588,1806,5250,5255, & - 1588,5123,5251,5255,4591,4592,5250,5255,461,4591,5255,5258, & - 1456,4591,5255,4591,4592,5252,5253,3220,4591,5253,4591,4592, & - 5253,5256,4591,4592,461,4591,2175,4916,5222,5250,2175,4916, & - 5222,5255,4968,5076,5201,5256,3630,4938,5076,5258,2393,5076, & - 5233,5258,4968,5076,5250,4347,5076,5250,4968,5076,5255,4505, & - 5076,3519,4440,5256,3519,4669,5250,5258,3519,4422,5250,1343, & - 4887,5250,1343,4887,5255,937,4833,5250,937,4887,5250,3292, & - 5123,5228,5250,5251,5253,3292,4833,5253,4740,4947,5250,5255, & - 1765,4740,5255,5258,2051,4740,5255,4740,4947,5252,5253,1086, & - 4740,5253,4740,4947,5253,5256,4740,4947,1765,4740,3931,4947, & - 5255,3930,4947,5252,5253,3930,4947,5253,5256,3930,4947,1049, & - 3176,1049,3573,5250,3176,3177,5250,5253,3177,4547,5251,5253 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_49 = (/ & - 5255,3573,4708,4947,3573,4547,5233,5255,3176,4547,5250,5251, & - 5255,3176,4547,5251,5255,764,3176,5250,5255,764,3573,5255, & - 3469,4887,5250,3469,3931,5251,5255,3469,5123,5244,5250,755, & - 3469,5250,755,5123,5244,1988,5123,5244,5250,1988,3450,5251, & - 5255,1988,5123,5244,5255,3321,3820,5250,2806,3321,5250,3321, & - 4326,5250,5253,2806,3821,5233,5253,1549,2806,5250,1549,4326, & - 5253,5255,3170,4690,5201,5256,3170,4690,5250,2177,4376,5255, & - 4376,4478,5252,5253,4376,4478,5253,5256,4376,4478,1157,3491, & - 5250,1157,4326,5250,3821,4326,5233,5255,1936,4326,5255,109, & - 4326,5250,3095,4471,5253,4033,4471,5258,723,4491,4693,5250, & - 5255,4038,4338,5250,5255,389,4338,5255,5258,1283,4338,5255, & - 4038,4338,5252,5253,2956,4338,5253,4038,4338,5253,5256,4038, & - 4338,389,4338,3385,4038,5255,1645,4038,5252,5253,1645,4038, & - 5253,5256,1645,4038,4985,5089,5201,5256,3133,5089,5222,5258, & - 3647,5089,5222,5258,4985,5089,5250,4558,5089,5250,4985,5089, & - 5255,4895,5089,3739,4895,5256,4857,4895,5250,5251,5258,3705, & - 4895,5250,3677,4927,5256,4550,4927,5250,5251,5258,3695,4927, & - 5250,3582,4773,5250,5255,3475,4773,5255,3582,4773,5252,5253, & - 2830,4773,5253,3582,4773,5253,5256,3582,4773,1354,4483,5250, & - 1354,4483,5255,1296,4892,5250,1296,4483,5250,3206,5123,5228, & - 5250,5251,5253,3206,4892,5253,4684,5001,5250,5255,1084,4684, & - 5255,5258,915,4684,5255,4684,5001,5252,5253,2904,4684,5253, & - 4684,5001,5253,5256,4684,5001,1084,4684,4125,5001,5255,1810, & - 5001,5252,5253,1810,5001,5253,5256,1810,5001,5001,5094,1415, & - 3359,1415,3614,5250,3359,3360,5250,5253,3360,4729,5244,5251, & - 5253,5255,3614,5001,5210,3614,4729,5222,5255,3359,4729,5244, & - 5250,5251,3359,4729,5244,5251,5255,779,3359,5250,5255,779, & - 3614,5255,1610,1836,720,1836,5250,720,5123,5244,1610,4986, & - 5244,5250,1610,4986,5244,1609,1610,5250,5255,1609,5123,5244, & - 5255,3125,4671,5201,5256,3125,4671,5250,1419,4075,5255,4075 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_50 = (/ & - 4408,5252,5253,4075,4408,5253,5256,4075,4408,1009,3531,5250, & - 1009,4448,5250,4448,4491,5222,5255,2464,4448,5255, 31,4448, & - 5250,3320,3796,5250,3320,4448,5250,5253,2762,3320,5250,2762, & - 4491,5222,5253,1664,2762,5250,1664,4448,5253,5255,3119,4487, & - 5253,4073,4487,5258,738,4014,4693,5250,5255,4005,4100,5250, & - 5255,341,4100,5255,5258,1002,4100,5255,4005,4100,5252,5253, & - 3229,4100,5253,4005,4100,5253,5256,4005,4100,341,4100,2102, & - 4005,5255,3456,4005,5252,5253,3456,4005,5253,5256,3456,4005, & - 4084,5037,5222,5258,4706,5037,5250,5037,5222,5244,5251,5255, & - 1403,4893,5250,1403,4893,5255,941,4692,5250,941,4893,5250, & - 2569,5037,5250,5251,5253,2569,4692,5253,1167,3339,1167,3605, & - 5250,3339,3340,5250,5253,3340,4729,5244,5251,5253,5255,3605, & - 4913,5210,3605,4729,5222,5255,3339,4729,5244,5250,5251,3339, & - 4729,5244,5251,5255,681,3339,5250,5255,681,3605,5255,3468, & - 4893,5250,3468,4125,5244,5251,5255,2837,3468,5250,3468,5037, & - 5250,5251,5255,2837,5037,5251,5255,2477,2837,5250,2477,5094, & - 5244,5251,5255,2477,5037,5251,5255,2565,3808,5250,2565,2595, & - 5250,2565,4012,5250,5253,2595,4014,5222,5253,1700,2595,5250, & - 1700,4012,5253,5255,3150,4676,5201,5256,3150,4676,5250,854, & - 4001,5255,4001,4495,5252,5253,4001,4495,5253,5256,4001,4495, & - 996,3534,5250,996,4012,5250,4012,4014,5222,5255,2167,4012, & - 5255, 84,4012,5250,3112,4509,5253,4002,4509,5258,569,3590, & - 4693,5250,5255,276,4187,5255,5258,867,4187,5255,3776,4187, & - 5250,5255,3776,4187,5252,5253,2780,4187,5253,3776,4187,5253, & - 5256,276,4187,3776,4187,3093,4797,5201,5256,3093,4797,5250, & - 1476,4020,5255,4020,4453,5252,5253,4020,4453,5253,5256,4020, & - 4453,938,3562,5250,938,4045,5250,4045,4047,5233,5255,1805, & - 4045,5255, 47,4045,5250,2520,3813,5250,2520,4045,5250,5253, & - 2520,3050,5250,3050,4047,5233,5253,1613,3050,5250,1613,4045, & - 5253,5255,3162,4454,5253,4057,4454,5258,568,3230,4796,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_51 = (/ & - 5255,5034,5126,5201,5256,4588,5126,5139,5258,4081,5126,5233, & - 5258,5034,5126,5250,4877,5126,5250,5034,5126,5251,5255,4896, & - 5126,3713,4896,5256,4661,4896,5250,5251,5258,3727,4896,5250, & - 4062,5034,5250,5255,4047,5034,5255,5258,3458,5034,5255,4062, & - 5034,5252,5253,2582,5034,5253,4062,5034,5253,5256,4062,5034, & - 4047,5034,961,4667,5250,961,4667,5255,921,4641,5250,921, & - 4667,5250,2640,5126,5250,5251,5253,2640,4641,5253,5070,5139, & - 5251,5070,5139,5252,5253,5070,5139,5253,5256, 3,5070,5139, & - 5254,4403,5070,5046,5070,5139,1510,3356,1510,3588,5250,3356, & - 3357,5250,5253,3357,4721,5183,5251,5253,5255,3588,4728,4823, & - 3588,4721,5139,5255,3356,4721,5183,5250,5251,3356,4721,5183, & - 5251,5255,683,3356,5250,5255,683,3588,5255,2714,3238,3238, & - 5126,5250,5251,5255,1760,3238,5250,1760,5126,5251,5255,1598, & - 2714,5250,5255,1598,5126,5251,5255,2714,3860,5250,2714,5034, & - 5251,5255,2204,4030,5255,787,4030,5252,5253,787,4030,5253, & - 5256,2295,4030,787,4030,358,4030,3319,3799,5250,2493,3319, & - 5250,3319,4619,5250,5253,2493,3800,5233,5253,1672,2493,5250, & - 1672,4619,5253,5255,3140,4791,5201,5256,3140,4791,5250,1188, & - 4016,5255,4016,4479,5252,5253,4016,4479,5253,5256,4016,4479, & - 1023,3554,5250,1023,4619,5250,3800,4619,5233,5255,2274,4619, & - 5255,143,4619,5250,3123,4466,5253,4065,4466,5258,538,2936, & - 4796,5250,5255,4918,5125,5201,5251,5256,4918,5125,5250,5251, & - 4918,5125,5251,5255,4917,5066,5201,5256,2104,5066,5233,5258, & - 4588,4918,5066,5258,4917,5066,5250,4165,5066,5250,4917,5066, & - 5255,4637,5066,3772,4637,5256,4637,4689,5250,5251,5258,3696, & - 4637,5250,4029,4917,5250,5255,3800,4917,5255,5258,3225,4917, & - 5255,4029,4917,5252,5253,2689,4917,5253,4029,4917,5253,5256, & - 4029,4917,3800,4917,1073,4683,5250,1073,4683,5255,1031,4829, & - 5250,1031,4683,5250,2656,5066,5250,5251,5253,2656,4829,5253, & - 4918,4997,5251,4918,4997,5252,5253,4918,4997,5253,5256, 3 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_52 = (/ & - 4918,4997,5254,4918,4997,5046,862,4997,851,3426,851,4388, & - 5250,3426,3427,5250,5253,3427,4721,5125,5251,5253,5255,2474, & - 4388,4823,4388,4721,4918,5255,3426,4721,5125,5250,5251,3426, & - 4721,5125,5251,5255,732,3426,5250,5255,732,4388,5255,2559, & - 2645,2559,5066,5250,5251,5255,2117,2559,5250,2117,5066,5251, & - 5255,1623,2645,5250,5255,1623,5066,5251,5255,2645,3973,5250, & - 2645,4917,5251,5255,1878,4069,5250,1878,4622,5228,3165,4790, & - 5201,5256,3165,4790,5250,1303,4063,5255,4063,4457,5252,5253, & - 4063,4457,5253,5256,4063,4457,1232,3539,5250,1232,4743,5250, & - 3816,4743,5233,5255,2398,4743,5255, 71,4743,5250,2709,3815, & - 5250,2709,4743,5250,5253,2709,3027,5250,3027,3816,5233,5253, & - 1717,3027,5250,1717,4743,5253,5255,3100,4444,5253,3997,4444, & - 5258,700,2927,4796,5250,5255,4930,5068,5201,5256,3210,5068, & - 5233,5258,4588,4931,5068,5258,4930,5068,5250,4141,5068,5250, & - 4930,5068,5255,4650,5068,5068,5106,5233,5251,5255,3774,4650, & - 5256,4650,4688,5250,5251,5258,3762,4650,5250,4086,4930,5250, & - 5255,3816,4930,5255,5258,3226,4930,5255,4086,4930,5252,5253, & - 2808,4930,5253,4086,4930,5253,5256,4086,4930,3816,4930,1174, & - 4675,5250,1174,4675,5255,910,4635,5250,910,4675,5250,2915, & - 5068,5250,5251,5253,2915,4635,5253,4931,4998,5251,4931,4998, & - 5252,5253,4931,4998,5253,5256, 3,4931,4998,5254,1111,4998, & - 4931,4998,5046,1065,3352,1065,4393,5250,3352,3353,5250,5253, & - 3353,4721,5106,5251,5253,5255,2472,4393,4823,4393,4721,4931, & - 5255,3352,4721,5106,5250,5251,3352,4721,5106,5251,5255,531, & - 3352,5250,5255,531,4393,5255,2601,2875,1951,2601,5250,2601, & - 5068,5250,5251,5255,1951,5068,5251,5255,1636,2875,5250,5255, & - 1636,5068,5251,5255,2875,3953,5250,2875,4930,5251,5255,4375, & - 4376,5250,5255,227,4375,5255,5258,1355,4375,5255,4375,4376, & - 5252,5253,3199,4375,5253,4375,4376,5253,5256,4375,4376,227, & - 4375,2740,3663,5250,2740,2994,5250,2740,3195,5250,5253,2994 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_53 = (/ & - 3664,5233,5253,1647,2994,5250,1647,3195,5253,5255,3111,4810, & - 5201,5256,3111,4810,5250,1227,4037,5255,4037,4494,5252,5253, & - 4037,4494,5253,5256,4037,4494,884,3627,5250,884,3195,5250, & - 3195,3664,5233,5255, 68,3195,5250,3114,4639,5253,4023,4639, & - 5258,752,3821,4693,5250,5255,3437,4888,5201,5256,3437,4888, & - 5250,3437,3975,5250,3437,4888,5255,3437,3553,3945,4505,5256, & - 3726,4505,5258,3725,4505,5250,3553,4416,5256,3553,4481,5250, & - 5258,3553,4480,5250,4846,4947,5250,5255,1175,4846,5255,5258, & - 1404,4846,5255,4846,4947,5252,5253,2518,4846,5253,4846,4947, & - 5253,5256,4846,4947,1175,4846,3965,4913,5255,3566,4913,5252, & - 5253,3566,4913,5253,5256,3566,4913,1112,3486,1112,3567,5250, & - 3567,4947,5210,3567,4630,5222,5255,3304,3486,5250,5253,3304, & - 4630,5222,5253,5255,3486,4846,5222,5250,3486,4947,5100,3486, & - 4846,5222,5255,812,3486,5250,5255,812,3567,5255,4000,4139, & - 5250,5255,503,4139,5255,5258,1537,4139,5255,4000,4139,5252, & - 5253,3318,4139,5253,4000,4139,5253,5256,4000,4139,503,4139, & - 2225,4000,5255,3305,4000,5252,5253,5253,5256,3305,4000,3133, & - 3832,4938,5258,214,3832,5222,5258,3832,4674,5250,3832,4938, & - 5244,5251,5255,3832,5222,5244,2649,3828,5250,2649,2776,5250, & - 2649,4322,5250,5253,2776,3829,5222,5253,1669,2776,5250,1669, & - 4322,5253,5255,3085,4788,5201,5256,3085,4788,5250,943,4009, & - 5255,4009,4407,5252,5253,4009,4407,5253,5256,4009,4407,959, & - 3518,5250,959,4322,5250,3829,4322,5222,5255,2048,4322,5255, & - 17,4322,5250,3142,4670,5253,4007,4670,5258,705,4693,4694, & - 5250,5255,3227,4899,5250,1765,3227,5244,5251,5255,3487,4948, & - 5250,3487,4899,5250,2051,3487,5244,5251,5255,3316,5037,5228, & - 5250,5251,5253,3316,4948,5253,1014,3433,1014,3584,5250,3584, & - 4947,5210,3584,4547,5222,5255,3264,3433,5250,5253,3264,4547, & - 5222,5253,5255,3433,4740,5222,5250,3433,4947,5100,785,3433, & - 5250,5255,785,3584,5255,3452,4899,5250,3452,3931,5244,5251 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_54 = (/ & - 5255,2356,3452,5250,3452,5037,5244,5250,2356,5037,5244,2356, & - 2357,5250,2357,3450,5244,5251,5255,2357,5037,5244,5255,4041, & - 4181,5250,5255,423,4181,5255,5258,1228,4181,5255,4041,4181, & - 5252,5253,3232,4181,5253,4041,4181,5253,5256,4041,4181,423, & - 4181,2379,4041,5255,3474,4041,5252,5253,3474,4041,5253,5256, & - 3474,4041,3765,4985,5250,5255,2603,4985,5255,3765,4985,5252, & - 5253,3300,4985,5253,3765,4985,5253,5256,3765,4985,4694,4985, & - 2585,3641,5250,2585,2847,5250,2585,3246,5250,5253,2847,4694, & - 5222,5253,1589,2847,5250,1589,3246,5253,5255,1218,3648,5250, & - 1218,3246,5250,3246,4694,5222,5255, 13,3246,5250,1513,4935, & - 5250,1513,4935,5255,1465,4807,5250,1465,4935,5250,3258,5089, & - 5228,5250,5251,5253,3258,4807,5253,4680,5011,5250,5255,1432, & - 4680,5255,5258,1378,4680,5255,4680,5011,5252,5253,2671,4680, & - 5253,4680,5011,5253,5256,4680,5011,1432,4680,3366,5011,5255, & - 1833,5011,5252,5253,1833,5011,5253,5256,1833,5011,1034,4568, & - 5250,1034,3569,5250,3569,3918,5001,3569,4569,5222,5255,3438, & - 3918,5001,5250,5253,3438,4569,5222,5253,5255,487,3569,5250, & - 487,3569,5255,3251,3624,3624,5089,5244,5250,756,3624,5250, & - 3366,3624,5244,5251,5255,756,5089,5244,1600,3251,5250,5255, & - 1600,5089,5244,5255,3251,4985,5244,5250,3251,5031,5244,5251, & - 5255,3251,4985,5244,2047,3814,5255,782,3814,5252,5253,782, & - 3814,5253,5256,782,3814,1666,3814,3132,3814,1409,4311,5250, & - 1409,4311,5255,1370,4654,5250,1370,4311,5250,2857,5123,5191, & - 5250,5253,2857,4654,5253,4198,4769,5250,5255,1389,4198,5255, & - 5258,1206,4198,5255,4198,4769,5252,5253,1368,4198,5253,4198, & - 4769,5253,5256,4198,4769,1389,4198,3441,4769,5255,3419,4769, & - 5252,5253,3419,4769,5253,5256,3419,4769,1103,3107,1103,3606, & - 5250,3107,3108,5250,5253,3108,4576,5251,5253,5255,3606,4708, & - 4769,3606,4576,5233,5255,3107,4576,5250,5251,5255,3107,4576, & - 5251,5255,647,3107,5250,5255,647,3606,5255,1968,4311,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_55 = (/ & - 1968,5123,5183,5250,1583,1968,5250,1583,5123,5183,1584,5123, & - 5183,5250,1584,5123,5183,5255,1583,1584,5255,2624,3665,5250, & - 2624,3666,5250,2624,4152,5250,5253,2310,3666,5233,5253,1567, & - 3666,5250,1567,4152,5253,5255,3153,4682,5201,5256,3153,4682, & - 5250,1156,4082,5255,4082,4438,5252,5253,4082,4438,5253,5256, & - 4082,4438,1033,3503,5250,1033,4152,5250,2310,4152,5233,5255, & - 2420,4152,5255,119,4152,5250,3127,4413,5253,4054,4413,5258, & - 718,4403,4491,5250,5255,1405,4897,5250,1405,4897,5255,1473, & - 4132,5250,1473,4897,5250,2950,5126,5193,5250,5253,2950,4132, & - 5253,1038,3411,1038,3610,5250,3322,3411,5250,5253,3322,4729, & - 5183,5253,5255,3610,4728,5001,3610,4729,5139,5255,3411,4729, & - 5183,5250,5251,3411,4729,5183,5251,5255,742,3411,5250,5255, & - 742,3610,5255,1873,4897,5250,1873,5126,5244,5250,1640,1873, & - 5250,1640,5126,5244,2484,5034,5244,5250,2484,5034,5244,2484, & - 5183,5199,5251,5255,1560,5126,5244,5250,1560,5126,5244,5255, & - 1560,1640,5255,3101,4632,5201,5256,3101,4632,5250,843,4008, & - 5255,4008,4437,5252,5253,4008,4437,5253,5256,4008,4437,1503, & - 3511,5250,1503,4799,5250,4047,4799,5222,5255,2281,4799,5255, & - 124,4799,5250,2499,3791,5250,2499,4799,5250,5253,2499,2789, & - 5250,2789,4047,5222,5253,1555,2789,5250,1555,4799,5253,5255, & - 3116,4402,5253,4035,4402,5258,676,4014,4403,5250,5255,4081, & - 5103,5222,5258,4084,5103,5139,5258,4703,5103,5250,5103,5183, & - 5222,5251,5255,5103,5139,5244,5251,5255,1481,4905,5250,1481, & - 4905,5255,1254,4633,5250,1254,4905,5250,2632,5103,5250,5251, & - 5253,2632,4633,5253,1161,3345,1161,3570,5250,3271,3345,5250, & - 5253,3271,4729,5183,5253,5255,3570,4728,4913,3570,4729,5139, & - 5255,3345,4729,5183,5250,5251,3345,4729,5183,5251,5255,811, & - 3345,5250,5255,811,3570,5255,3451,4905,5250,3451,4125,5183, & - 5251,5255,3451,5103,5250,5251,5255,2287,3451,5250,2287,5103, & - 5251,5255,1857,5103,5250,5251,5255,1857,5094,5183,5251,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_56 = (/ & - 1857,5103,5251,5255,3279,3825,5250,2563,3279,5250,3279,4533, & - 5250,5253,2563,4014,5139,5253,1554,2563,5250,1554,4533,5253, & - 5255,3098,4663,5201,5256,3098,4663,5250,852,4085,5255,4085, & - 4504,5252,5253,4085,4504,5253,5256,4085,4504,932,3489,5250, & - 932,4533,5250,4014,4533,5139,5255,2390,4533,5255,111,4533, & - 5250,3087,4499,5253,4064,4499,5258,560,3590,4403,5250,5255, & - 2690,4070,5255,801,4070,5252,5253,801,4070,5253,5256,801, & - 4070,1735,4070,1797,4070,4946,5141,5201,5256,3186,5141,5222, & - 5258,3647,5139,5141,5258,4946,5141,5250,3853,5141,5250,4946, & - 5141,5255,4793,5141,3687,4793,5256,4793,4920,5250,5251,5258, & - 3788,4793,5250,1330,4992,5250,1330,4992,5255,1299,4685,5250, & - 1299,4992,5250,2948,5141,5193,5250,5253,2948,4685,5253,947, & - 4400,5250,947,3581,5250,3581,4401,5001,3581,4569,5139,5255, & - 3457,4401,5001,5250,5253,3457,4569,5139,5253,5255,475,3581, & - 5250,475,3581,5255,3262,3702,3702,5141,5244,5250,623,3702, & - 5250,3366,3702,5183,5251,5255,623,5141,5244,1665,3262,5250, & - 5255,1665,5141,5244,5255,3262,5031,5139,5250,5255,3262,5031, & - 5183,5251,5255,3295,3631,5250,3295,3296,5250,5253,2728,3295, & - 5250,2728,4694,5139,5253,1594,2728,5250,1594,3296,5253,5255, & - 982,3632,5250,982,3296,5250,3296,4694,5139,5255, 18,3296, & - 5250,2900,3810,5255,717,3810,5252,5253,717,3810,5253,5256, & - 717,3810,1716,3810,2134,3810,1076,4051,5255,4050,4051,5250, & - 5255,4050,4051,5252,5253,3303,4051,5253,4050,4051,5253,5256, & - 4050,4051,3235,3659,5250,3235,3283,5250,5253,2732,3235,5250, & - 2732,4178,5139,5253,1729,2732,5250,1729,3283,5253,5255,1396, & - 3650,5250,1396,3283,5250,3283,4178,5139,5255, 74,3283,5250, & - 2307,4168,5255,4168,5139,5183,5250,5255,4168,5139,5183,5252, & - 5253,2681,4168,5253,4168,5139,5183,5253,5256,4168,5139,5183, & - 898,4813,5250,898,4813,5255,1274,4656,5250,1274,4813,5250, & - 2650,5141,5191,5250,5253,2650,4656,5253,4628,4787,5250,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_57 = (/ & - 1256,4628,5255,5258,1176,4628,5255,4628,4787,5252,5253,2630, & - 4628,5253,4628,4787,5253,5256,4628,4787,1256,4628,2971,4277, & - 5255,2238,4277,5252,5253,2238,4277,5253,5256,2238,4277,572, & - 4277,2358,4787,5255,750,4787,5252,5253,750,4787,5253,5256, & - 4401,4787,4787,4865,750,4787,914,4335,5250,914,3600,5250, & - 3600,4277,4401,3600,4933,5139,5255,3460,4277,4401,5250,5253, & - 3460,4933,5139,5253,5255,374,3600,5250,374,3600,5255,2137, & - 3200,2137,5141,5183,5250,589,2137,5250,589,5141,5183,1576, & - 3200,5250,5255,1576,5141,5183,5255,3200,4865,5139,5250,5255, & - 3200,4865,5183,5251,5255,1917,4589,5255,595,4589,5252,5253, & - 595,4589,5253,5256,2711,4589,595,4589,1683,4589,1969,4516, & - 5255,5258,2824,4516,5255,4516,5180,5250,5251,4516,5180,5251, & - 5252,5253,5255,2531,4516,5253,4516,5180,5251,5253,5255,5256, & - 1969,4516,4516,5180,5251,5255,2481,3394,2481,5231,5253,5255, & - 2481,4668,2481,5231,5250,5251,5253,3459,4732,5255,2112,4732, & - 5252,5253,2112,4732,5253,5256,2112,4732,1644,4732,3483,4732, & - 1851,4414,5255,5258,2494,4414,5255,4414,5234,5250,5251,4414, & - 5234,5251,5252,5253,5255,2796,4414,5253,4414,5234,5251,5253, & - 5255,5256,1851,4414,4414,5234,5251,5255,1068,1642,1642,4999, & - 1642,5231,5255,1642,5231,5250,5251,5255,1098,4159,5255,991, & - 4159,5252,2816,4159,5252,5253,2816,4159,5253,5256,2816,4159, & - 1626,4159,4159,4851,2258,4776,2258,5234,2258,5232,5255,2258, & - 5232,5250,5251,1220,4578,5255,1529,4578,5252,2596,4578,5252, & - 5253,2596,4578,5253,5256,4578,4851,2596,4578,3608,4578,2695, & - 4341,5255,656,4341,5252,5253,656,4341,5253,5256,2043,4341, & - 3608,4341,656,4341,4259,5194,5250,2431,4259,5255,4259,5194, & - 5252,5253,5255,2801,4259,5253,4259,5194,5253,5255,5256,4259, & - 5194,5255,1661,5220,5255,2081,4999,2081,5233,5250,5255,563, & - 4282,563,5222,5250,5253,2147,5015,5255,3835,5015,5252,2717, & - 5015,5252,5253,2717,5015,5253,5256,3628,5015,2717,5015,463 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_58 = (/ & - 5015,2191,4436,5255,5258,3033,4436,5255,4436,4909,5250,5251, & - 4436,4909,5251,5252,5253,5255,2670,4436,5253,4436,4909,5251, & - 5253,5255,5256,2191,4436,4436,4909,5251,5255,3630,5170,3630, & - 5250,5251,5255,529,4213,529,5222,5250,5253,1438,3939,5255, & - 2545,3939,5252,5253,2545,3939,5253,5256,2545,3939, 55,3939, & - 1289,3234,5250,1289,5210,3234,4958,5253,4958,5210,5250,5253, & - 3234,5222,5231,5255,4564,5234,5244,5255,4564,5080,5250,5255, & - 5080,5225,5250,5253,3933,5225,5250,5255,5225,5234,5244,5253, & - 533,3514,5250,3514,5080,533,5234,5244,5080,5232,5244,5080, & - 5199,5250,5255,2497,4954,5231,5250,654,2497,5250,2497,4774, & - 5250,2497,3488,654,4954,5231,3488,4954,5201,5251,5256,3488, & - 4954,5250,5251,3488,4954,5251,5255,194,4107,5250,4107,5205, & - 391,4107,4107,5218,5250,2308,4321,2308,5220,5255,2308,4832, & - 5255,194,5013,5253,819,5013,5188,5258,1795,5013,5180,5258, & - 5013,5173,5250,3707,4758,5255,1346,4758,5252,5253,1346,4758, & - 5253,5256,1346,4758,3464,4758,5250,5251,4805,4976,5201,5250, & - 5256,3647,4420,4976,5258, 29,4976,5222,5258,3693,4976,4976, & - 5209,4805,4976,4976,5234,5244,5250,5251,1558,4976,5250,5251, & - 5188,5205,5251,5255,5025,5205,5255,5025,5201,5205,5256,3630, & - 5188,5205,5258,1795,5205,5233,5258,5205,5209,5250,5255,5035, & - 5205,5250,4894,5205,5250,5025,5205,5250,3413,5205,5250,5255, & - 3413,5220,5250,5255,2252,3241,5250,2252,3428,2252,5219,5250, & - 3241,4615,5253,2489,4615,5231,5258,4528,4615,5221,5258,4615, & - 5074,5250,4615,5154,5250,3241,5227,5231,5255,105,3241,5250, & - 1661,4113,5250,4113,5220,678,4113,4113,5118,5250,2130,3801, & - 2130,5205,5255,2130,4832,5255,3524,4617,5255,1246,4617,5252, & - 5253,1246,4617,5253,5256,1246,4617,4617,4749,5250,5251,4570, & - 5002,5201,5250,5256,3630,4383,5002,5258, 19,5002,5233,5258, & - 5002,5209,4570,5002,4339,5002,5250,5002,5188,5250,5251,5255, & - 1682,5002,5250,5251,5220,5234,5244,5251,5255,5033,5220,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_59 = (/ & - 5033,5201,5220,5256,3647,5220,5234,5258,2081,5220,5222,5258, & - 5209,5220,5250,5255,4711,5220,5250,5174,5220,5250,5033,5220, & - 5250,2544,3194,5250,2544,3734,2544,3428,2544,5224,5250,3194, & - 4786,5253,3479,4786,5225,5258,790,4786,5231,5258,4786,5022, & - 5250,3194,5226,5231,5255,3734,5231,5232,5244,3734,5134,5250, & - 3552,5173,5255,4945,5173,5252,2162,5173,5252,5253,2162,5173, & - 5253,5256,2162,5173,458,5173,558,4352,5250,5255,558,4556, & - 2236,4894,5255,4256,4894,5252,3080,4894,5252,5253,3080,4894, & - 5253,5256,3080,4894, 70,4894,2402,4269,5255,4269,5226,5250, & - 4269,5226,5252,5253,5255,2576,4269,5253,4269,5226,5253,5255, & - 5256,4269,5226,5255,1364,4337,5250,1364,3586,5250,3586,5231, & - 5242,5253,3586,4909,5235,4963,5242,5251,4963,5242,5252,5253, & - 4963,5242,5253,5256, 3,4963,5242,5254,4963,5046,5242,114, & - 4963,873,3980,5250,873,3048,5250,2834,5231,5242,5250,5253, & - 2834,3048,5253,3048,5231,5242,5255,1285,4255,5250,1285,4087, & - 5250,2791,5226,5250,5251,5253,2791,4255,5253,1445,5226,1445, & - 1847,5250,1846,5226,5250,5253,1846,1847,5253,1847,5226,5255, & - 1306,3865,5250,1306,2821,5250,2821,5231,5242,5253,981,2996, & - 5250,981,4109,2436,2996,5253,2436,4109,5250,5253,2996,5231, & - 5242,5255, 9,4109,4109,5232,5241,4109,4939,5250,5255,1102, & - 5194,1102,1910,5250,1909,5194,5250,5253,1909,1910,5253,1910, & - 5194,5255,194,5091,2156,4060,5255,2461,4060,5252,3344,4060, & - 5252,5253,3344,4060,5253,5256,3344,4060,319,4060,3626,4060, & - 2187,3676,5255,2375,3676,5252,1743,3676,5252,5253,1743,3676, & - 5253,5256,1743,3676,3676,4231,2716,3676,2260,4595,5255, 51, & - 4595,5252,5253, 51,4595,5253,5256, 51,4595,3510,4595,1870, & - 4595,2753,4127,5255,1728,4127,5255,2672,4127,5252,1553,4127, & - 5252,5253,1553,4127,5253,5256,1553,4127,208,4127,1728,4127, & - 3619,5142,5250,3619,4612,5250,3619,4219,5255,1449,4219,5255, & - 1864,4219,5252,1865,4219,5252,5253,1865,4219,5253,5256,3619 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_60 = (/ & - 4219,1865,4219,471,4219,1870,4368,5255,1869,4368,5255,2954, & - 4368,5252,5253,2405,4368,5252,2954,4368,5253,5256,1870,4368, & - 2954,4368,321,4368,1160,4610,5255,2716,4610,5255,3405,4610, & - 5252,5253,1952,4610,5252,3405,4610,5253,5256,3405,4610,381, & - 4610,2716,4610,309,4611,5255,5258,1064,4611,5255,4219,4611, & - 5250,5255,4219,4611,5252,5253,2757,4611,5253,4219,4611,5253, & - 5256,309,4611,4219,4611,3049,4730,5255,665,4730,5252,5253, & - 665,4730,5253,5256,3682,4730,665,4730,4239,4730,3708,5197, & - 5255,1825,5197,5252,5253,1825,5197,5253,5256,1825,5197,5080, & - 5197,5197,5199,1938,4885,5255,2000,4885,5252,5253,2000,4885, & - 5253,5256,1655,4885,2000,4885,3683,4885,1099,4991,5255,2679, & - 4991,5252,5253,2679,4991,5253,5256,2679,4991,2424,4169,5255, & - 600,4169,5252,5253,600,4169,5253,5256,1646,4169,4169,4392, & - 600,4169,3287,4126,5255,689,4126,5252,5253,689,4126,5253, & - 5256,689,4126,1658,4126,2395,4126,2397,5117,5255,5258,3031, & - 5117,5255,5098,5117,5250,5255,5098,5117,5252,5253,2883,5117, & - 5253,5098,5117,5253,5256,2397,5117,5098,5117,1212,3926,5255, & - 2190,3926,5252,5253,2190,3926,5253,5256,2190,3926,2618,4095, & - 5255,610,4095,5252,5253,610,4095,5253,5256,610,4095,2428, & - 4446,5255,682,4446,5252,5253,682,4446,5253,5256,4446,5110, & - 682,4446,1566,4446,2247,5150,5255,1856,5150,5252,2939,5150, & - 5252,5253,2939,5150,5253,5256,5055,5150,2939,5150,1140,5150, & - 1337,4646,5255,2123,4646,5252,2528,4646,5252,5253,2528,4646, & - 5253,5256,3616,4646,2528,4646,586,4646,1406,4871,5255,3346, & - 4871,5252,5253,3346,4871,5253,5256,3346,4871,2940,4827,5255, & - 1650,4827,5252,5253,1650,4827,5253,5256,3756,4827,1705,4827, & - 1650,4827,1495,4118,5255,2692,4118,5252,5253,2692,4118,5253, & - 5256,2692,4118,3473,4365,5255,749,4365,5252,5253,749,4365, & - 5253,5256,2932,4365,1601,4365,749,4365,1498,4627,5255,4318, & - 4627,5250,5255,4318,4627,5252,5253,2560,4627,5253,4318,4627 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_61 = (/ & - 5253,5256,4318,4627,1217,4318,5255,2163,4318,5252,5253,2163, & - 4318,5253,5256,2163,4318,1292,4170,5255,2881,4170,5252,5253, & - 2881,4170,5253,5256,2881,4170,3291,4105,5255,1556,4105,5252, & - 5253,1556,4105,5253,5256,1556,4105,608,4105,2255,4105,363, & - 4836,5255,5258,1193,4836,5255,4836,4841,5250,5255,4836,4841, & - 5252,5253,3239,4836,5253,4836,4841,5253,5256,363,4836,4836, & - 4841,1935,4158,5255,557,4158,5252,5253,557,4158,5253,5256, & - 557,4158,4158,4996,3580,4158,3055,4765,5255,2186,4765,5252, & - 5253,2186,4765,5253,5256,2186,4765,1777,4765,3389,4765,1113, & - 5234,5250,5255,5029,5201,5213,5256,5029,5213,5250,4124,5213, & - 5250,5198,5213,5251,5255,1043,3745,5255, 42,3745,5252,5253, & - 42,3745,5253,5256, 42,3745,5029,5198,5250,5255,1462,5029, & - 5255,2140,5029,5255,5258,5029,5198,5252,5253,2951,5029,5253, & - 5029,5198,5253,5256,5029,5198,2140,5029,1007,4201,5250,370, & - 1007,5250,370,3955,369,370,5250,369,370,5255,2540,3115, & - 2323,2540,5250,2540,4910,5231,5250,2323,4910,5231,2323,4830, & - 3115,4910,5250,5251,3115,4910,5251,5255,3115,3559,5250,5255, & - 3559,4910,5231,5255,3559,4898,5251,5255,2140,5198,5250,2140, & - 5198,5255,2002,5198,5250,2002,4914,271,2002,5250,2313,4914, & - 5250,5253,271,2313,5253,271,3741,599,4914,5250,5255,271, & - 599,5255,4288,4914,5201,5256,4288,4914,5250,4257,4914,5251, & - 5255,2480,4092,5250,1059,4089,5255,2462,4089,5252,2324,4089, & - 5252,5253,2324,4089,5253,5256,2324,4089,516,4089,2480,4089, & - 1770,4266,5255,4266,5215,5250,5253,5255,4266,5215,5252,5253, & - 2898,4266,5253,4266,5215,5253,5256,4266,5215,5253,904,1604, & - 904,3398,5250,1604,2296,5250,5253,2296,3398,5253,3398,4173, & - 1604,3398,5255,1604,3720,5250,336,1604,5250,5255,652,653, & - 176,653,5250,652,840,5250,5253,176,840,5253,176,4789, & - 652,4789,5250,395,652,5250,5255,1470,3982,5250,254,1470, & - 5250,1696,3034,5160,5250,5253,254,3034,5253,254,3981, 28 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_62 = (/ & - 254,5250,404,405,145,405,5250,145,4910,404,4910,5250, & - 403,404,5250,5255,736,4078,5255,1057,4078,5252,154,4078, & - 5252,5253,154,4078,5253,5256,735,4078,154,4078,344,4078, & - 2146,4301,5255,4301,5215,5250,4301,5215,5252,5253,5255,3017, & - 4301,5253,4301,5215,5253,5255,5256,4301,5215,5255,4847,5169, & - 5201,5256,3876,5169,5256,148,5169,5231,5258,4747,5169,5176, & - 5258,4847,5169,5250,3850,5169,5250,5169,5236,5251,5255,2231, & - 2362,2362,5083,5244,5250,740,2362,5250,740,5083,5244,2231, & - 5083,5244,5250,2231,4855,5244,1585,2231,5250,5255,1585,5083, & - 5244,5255,1858,2727,2727,4953,5231,5250,708,2727,5250,708, & - 4953,5231,1858,4953,5250,5251,1858,4953,5251,5255,1718,1858, & - 5250,5255,1718,4953,5231,5255,1205,5212,199,1205,5250,2061, & - 5212,5250,5253,199,2061,5253,199,4567,401,5212,5250,5255, & - 4891,5212,5250,3907,5212,5250,4781,5212,5251,5255,709,5236, & - 5250,985,4847,5255,4847,5236,5250,5255,709,4847,5255,5258, & - 4847,5236,5252,5253,2593,4847,5253,4847,5236,5253,5256,4847, & - 5236,709,4847,3969,5175,5256,224,5175,5258,612,5175,5258, & - 3872,5175,5250,3927,5175,5250,4970,5099,5255,5258,1251,5099, & - 5255,5099,5206,5250,5255,5099,5206,5252,5253,2587,5099,5253, & - 5099,5206,5253,5256,4970,5099,5099,5206,885,3988,5255,3074, & - 3988,5252,5253,3074,3988,5253,5256,3074,3988,621,3988,236, & - 4264,236,4762,5250,4921,5201,5248,5256,5028,5248,5250,4761, & - 5248,5250,4542,5248,5250,4921,5248,5250,4762,5248,5250,4940, & - 5248,5251,5255,1314,3883,5255,1918,3883,5252,3039,3883,5252, & - 5253,3039,3883,5253,5256,3039,3883,667,3883,3617,4940,5250, & - 3617,4869,5251,3617,4869,5252,5253,3617,4869,5253,5256, 3, & - 3617,4869,5254,3617,4869,5046,1993,4541,5255,2254,4541,5252, & - 3037,4541,5252,3037,4541,5256,3037,4541,580,4541,3638,5039, & - 5250,362,4526,362,5039,5250,1758,3990,5255,2347,3990,5252, & - 2744,3990,5252,5253,2744,3990,5253,5256,2744,3990,536,3990 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_63 = (/ & - 1834,2469,770,2469,5250,2469,5207,5244,5250,770,5207,5244, & - 1834,5207,5244,5250,1834,5014,5244,1611,1834,5250,5255,1611, & - 5207,5244,5255,1791,2836,688,2836,5250,2836,4989,5231,5250, & - 688,4989,5231,1791,4989,5250,5251,1791,4989,5251,5255,1742, & - 1791,5250,5255,1742,4989,5231,5255,243,4757,243,5122,5250, & - 3516,5122,5250,2373,4249,5255,2280,4249,5252,2008,4249,5252, & - 5253,2008,4249,5253,5256,2008,4249,694,4249,1178,5207,156, & - 1178,5250,1771,5207,5250,5253,156,1771,5253,156,3901,5014, & - 5201,5207,5256,3928,5207,5256,4747,5207,5240,5258,522,5207, & - 5231,5258,5014,5207,5250,3886,5207,5250,4088,5207,5251,5255, & - 325,5207,5250,5255,2132,3043,2170,3043,5250,3043,4183,5250, & - 5251,5255,2170,4183,5251,5255,2132,4745,5250,5251,2132,4745, & - 5251,5255,1612,2132,5250,5255,1612,4183,5251,5255,1128,4183, & - 172,1128,5250,2108,4183,5250,5253,172,2108,5253,172,4394, & - 4183,4745,5250,3564,4183,5255,439,4183,5250,5255,3844,5249, & - 5256,4691,5249,5258,4678,5249,5258,2359,5249,5258,1569,5249, & - 5258,3920,5249,5250,3966,5249,5250,237,5195,5250,868,5195, & - 5250,868,5237,5250,2825,5237,5253,2825,5234,5250,5251,5253, & - 343,5121,5250,1158,5121,5250,1158,4949,5250,2790,4949,5253, & - 2790,5188,5250,5251,5253,1142,2745,5250,1142,3602,2074,2745, & - 5253,2074,3602,5250,5253,2745,5184,5193,5255,498,3602,5250, & - 5255,3602,5184,5244,5255,3602,4392,5250,5255,1545,5149,5250, & - 1545,5136,5250,2880,5136,5253,2880,5067,5250,5251,5253,532, & - 2693,5250,2693,4785,5250,2693,3935,1531,3935,5250,5253,532, & - 4248,5255,497,3935,5250,5255,3935,4973,5251,5255,3935,4243, & - 5201,5256,3935,4243,5250,1380,5129,5250,1380,5101,5250,2675, & - 5101,5253,2675,5000,5250,5251,5253,2208,4206,5250,2208,5178, & - 5250,5255,2620,5178,5250,5251,5253,2620,4206,5253,2005,3205, & - 5250,3205,3991,3205,4359,5250,1005,3991,5250,5253,2005,5071, & - 5231,5255,3991,5071,5251,5255,3991,4260,5201,5256,3991,4260 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_64 = (/ & - 5250,355,3991,5250,5255,393,5007,5250,1134,5007,5250,1134, & - 5008,5250,2684,5008,5253,2684,4386,5250,5251,5253,929,4451, & - 5255,4244,4451,5250,5255,4244,4451,5252,5253,2674,4451,5253, & - 4244,4451,5253,5256,4244,4451,2009,4354,5255,3415,4354,5252, & - 5253,3415,4354,5253,5256,4354,4996,3415,4354,4354,4883,865, & - 4244,5255, 36,4244,5252,5253, 36,4244,5253,5256, 36,4244, & - 1202,3784,5255, 45,3784,5252,5253, 45,3784,5253,5256, 45, & - 3784,1430,3979,5250,1430,3054,5250,3054,5031,5231,5255,2434, & - 4316,5250,2434,5000,5250,5253,2815,5000,5250,5251,5253,2815, & - 4316,5253,2110,4553,5250,2110,5000,5250,5255,3020,5000,5250, & - 5251,5253,3020,4553,5253,833,5158,5250,833,5241,5250,3021, & - 5222,5250,5251,5253,3021,5158,5253,330,5202,5250,1015,5202, & - 5250,1015,5164,5250,2525,5164,5253,2525,5087,5250,5251,5253, & - 1097,4640,5250,1097,4640,5255,1048,4915,5250,1048,4640,5250, & - 3056,5222,5250,5251,5253,3056,4915,5253,2828,5222,2828,5193, & - 5250,5251,5255,2807,2828,5250,1037,5053,5255,1037,5053,5250, & - 1100,5053,5250,1100,5137,5250,2691,5137,5253,2691,5139,5250, & - 5251,5253,1720,2127,5250,2127,3758,5250,2127,4540,1720,1902, & - 5253,1902,4540,5250,5253,1720,4540,5255,4540,4995,5251,5255, & - 4540,4962,5201,5256,4540,4962,5250,231,4540,5250,5255,603, & - 5234,5255,222,4263,5250,1436,4862,5250,1436,4263,2921,5234, & - 5250,5251,5253,2921,4862,5253,2410,5038,5250,2410,5233,5250, & - 5255,2511,5233,5250,5251,5253,2511,5038,5253,4983,5250,5251, & - 5255,4983,5216,5250,3672,5133,5255,5258,3502,5133,5255,5133, & - 5222,5250,5253,5255,5133,5222,5252,5253,3529,5133,5253,5133, & - 5222,5253,5256,3672,5133,5133,5222,5253,3334,5188,5250,5253, & - 3334,3672,5250,5255,3326,3502,5250,5255,3326,5155,5250,3326, & - 5188,5250,5253,3059,3529,5250,5255,3059,5155,5253,2985,3387, & - 5250,5253,2985,4909,5250,5255,3203,3515,5250,5253,3203,5036, & - 5250,3203,4909,5250,5255,2240,3401,5250,5253,2240,5036,5253 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_65 = (/ & - 2131,4557,5250,2131,5222,5250,5255,2887,5222,5250,5251,5253, & - 2887,4557,5253,3476,4983,5244,5255,3476,5222,5250,5255,3476, & - 5100,5250,2793,5100,5253,2793,5222,5250,5251,5253,831,2173, & - 5250,831,4248,2172,2173,5253,2172,4248,5250,5253,2173,4261, & - 5255,4248,4995,5244,4248,5127,5250,4248,5211,5250,5255,1179, & - 4248,5250,5255,1667,2785,5250,2785,4261,2785,3893,5250,1667, & - 2519,5253,2519,4261,5250,5253,1667,4248,5255,4261,5150,5251, & - 5255,4261,4848,5201,5256,4261,4848,5250,1616,2871,5250,2871, & - 3885,5250,2871,3923,1616,2761,5253,2761,3923,5250,5253,1616, & - 3915,5255,546,3915,5250,5255,546,3923,5250,5255,3923,4411, & - 5251,5255,3923,4412,5201,5256,3923,4412,5250,889,4860,5250, & - 889,4981,5250,3260,4860,5253,3260,5160,5231,5250,5251,5253, & - 1165,1755,5250,1165,5140,1755,2509,5253,2509,5140,5250,5253, & - 1755,5115,5255,1521,5140,5250,5255,4995,5140,5183,4962,5140, & - 5142,4735,5140,5250,3662,5140,5250,5255,1290,5163,5250,1290, & - 4760,5250,2841,5165,5250,5251,5253,2841,4760,5253,836,2030, & - 5250,836,4300,2030,2189,5253,2189,4300,5250,5253,2030,4300, & - 5255,437,4300,5250,5255,1563,3046,5250,3046,5115,3046,3961, & - 5250,1563,2835,5253,2835,5115,5250,5253,1563,5140,5255,5115, & - 5185,5251,5255,4623,5115,5201,5256,3662,5115,5250,5255,4623, & - 5115,5250,1506,1799,5250,1506,5010,1798,1799,5253,1798,5010, & - 5250,5253,1799,4975,5255,4411,5010,5244,4561,5010,5250,3792, & - 5010,5250,5255,435,5010,5250,876,5192,5250,876,4990,5250, & - 2755,4990,5253,2755,3978,5250,5251,5253,1564,2543,5250,2543, & - 4975,2543,3869,5250,1564,2653,5253,2653,4975,5250,5253,1564, & - 5010,5255,4975,5120,5251,5255,4934,4975,5201,5256,3792,4975, & - 5250,5255,4934,4975,5250,2244,5160,5183,5250,1654,2244,5250, & - 2244,3944,5250,1654,5160,5183,1653,5160,5183,5255,1653,1654, & - 5250,195,1262,5250,1262,3857,195,1980,5253,1980,3857,5250, & - 5253,195,4911,3857,4852,5251,5255,3857,4517,5201,5256,3857 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_66 = (/ & - 4517,5250,1693,5121,5183,1693,3857,5250,5255,1692,2233,5250, & - 2233,4110,2233,3778,5250,1692,2182,5253,2182,4110,5250,5253, & - 1692,4110,5255,4110,5148,5251,5255,4110,4629,5201,5256,4110, & - 4128,5250,4110,4629,5250,425,4110,5250,5255,1340,1838,5250, & - 1340,5064,1838,2555,5253,2555,5064,5250,5253,1838,5063,5255, & - 4870,5064,5244,4704,5064,5250,3471,5064,5250,5255,488,5064, & - 5250,1180,5147,5250,1180,4515,5250,3024,4515,5253,3024,5042, & - 5250,5251,5253,1721,2775,5250,2775,5063,2775,3873,5250,1721, & - 2934,5253,2934,5063,5250,5253,1721,5064,5255,5063,5116,5251, & - 5255,4665,5063,5201,5256,4357,5063,5250,4665,5063,5250,1281, & - 2889,5250,1281,3384,2045,2889,5253,2045,3384,5250,5253,2889, & - 4697,2889,3384,5255,3384,5098,5244,3384,3948,5250,220,3384, & - 5250,5255,1514,1714,5250,1514,3889,5250,1714,5178,5244,1694, & - 5178,5244,5255,1694,1714,5250,1663,3038,5250,3038,4313,3038, & - 3854,5250,1663,2513,5253,2513,4313,5250,5253,1663,4834,5255, & - 4313,4844,5251,5255,4313,5090,5201,5256,4313,5090,5250,2259, & - 4834,5250,5255,2259,4313,5250,5255,853,4980,5250,853,4469, & - 5250,3026,4469,5253,3026,4559,5250,5251,5253,1627,2633,5250, & - 2633,4834,2633,3859,5250,1627,2713,5253,2713,4834,5250,5253, & - 1627,4313,5255,4058,4834,5251,5255,4500,4834,5201,5256,4500, & - 4834,5250,291,5078,5250,828,5078,5250,828,4771,5250,3312, & - 4771,5253,3312,5178,5231,5250,5251,5253,1559,1992,5250,1992, & - 3667,5250,1992,3986,1559,2218,5253,2218,3986,5250,5253,1559, & - 3986,5255,333,3986,5250,5255,3986,4310,5251,5255,3986,4523, & - 5201,5256,3986,4523,5250,379,4901,5250,832,4901,5250,832, & - 4994,5250,3023,4994,5253,3023,3868,5250,5251,5253,1375,1945, & - 5250,1375,3382,1945,2917,5253,2917,3382,5250,5253,1945,3777, & - 5255,314,3777,5250,5255,3382,5185,5244,3382,3906,5250,5255, & - 117,1075,5250,1075,3785,5250,117,3912,1326,2361,5250,1326, & - 4722,5250,2361,3212,5253,3212,5055,5160,5250,5253,2361,3747 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_67 = (/ & - 5255,895,3747,5250,5255, 91,1282,5250,1282,3674,5250, 91, & - 3941,1010,3393,5250,1010,3747,2291,3393,5253,2291,3747,5250, & - 5253,3393,3747,5255,3393,5148,5193,3747,5148,5244,3747,4903, & - 5250,3747,4967,5250,964,2050,5250,964,3822,2049,2050,5253, & - 2049,3822,5250,5253,2050,4800,5255,675,4800,5250,5255,675, & - 3822,5250,5255,3298,3822,5250,5255,3822,5120,5244,132,1032, & - 5250,1032,3730,5250,132,3871,1382,3946,1382,3688,5250,727, & - 2202,5253,2202,3946,5250,5253,727,3946,5255,223,3946,5250, & - 5255,3946,4251,5251,5255,3946,5088,5201,5256,3946,5088,5250, & - 1168,2284,5250,1168,3917,2284,2299,5253,2299,3917,5250,5253, & - 2284,3917,5255,469,3917,5250,5255,3917,5183,5185,3917,4716, & - 5250,602,3917,5250,5255, 50,1416,5250,1416,3781,5250, 50, & - 3977,1401,1781,5250,1401,4103,1780,1781,5253,1780,4103,5250, & - 5253,1781,4103,5255,468,4103,5250,5255,4103,5135,5183,4103, & - 4713,5250,803,4103,5250,5255,140,1374,5250,1374,3768,5250, & - 140,3881,1304,2122,5250,1304,4122,2122,2268,5253,2268,4122, & - 5250,5253,2122,4122,5255,525,4122,5250,5255,4122,4270,5183, & - 4122,4712,5250,769,4122,5250,5255, 66,1410,5250,1410,3766, & - 5250, 66,3919,1349,2060,5250,1349,4179,2060,2206,5253,2206, & - 4179,5250,5253,2060,4179,5255,295,4179,5250,5255,4179,4254, & - 5183,4179,4715,5250,794,4179,5250,5255, 35,1028,5250,1028, & - 3678,5250, 35,3916,1387,2031,5250,1387,4164,2031,2387,5253, & - 2387,4164,5250,5253,2031,4164,5255,524,4164,5250,5255,4164, & - 4238,5183,4164,4709,5250,609,4164,5250,5255, 43,1534,5250, & - 1534,3704,5250, 43,3880,1536,4882,188,1536,5250,1889,4882, & - 5250,5253,188,1889,5253,188,4360,501,4882,5250,5255,2783, & - 5231,5250,5253,2150,5152,5250,2150,5231,5250,5253,2500,5231, & - 5250,5251,5253,2500,5152,5253,1110,5193,5250,5253,1997,4405, & - 5250,1997,5193,5250,5253,2579,5193,5250,5251,5253,2579,4405, & - 5253,2080,4724,5250,637,2080,5250,637,5152,5193,4352,5199 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_68 = (/ & - 5250,5253,4352,5152,5244,1916,4352,5250,5255, 6,1916,5253, & - 2384,4275,5250,2384,5191,5250,5255,2698,5191,5250,5251,5253, & - 2698,4275,5253,1078,5160,5250,5253,2460,4452,5250,2460,5160, & - 5250,5253,2522,5160,5250,5251,5253,2522,4452,5253,1802,4817, & - 5250,737,1802,5250,737,3683,5253,2478,4939,5250,5253, 8, & - 2478,5253,2478,4284,5244,1562,2478,5250,5255,1562,2000,5253, & - 1363,5230,5250,5253,2176,4470,5250,2176,5230,5250,5253,2583, & - 5230,5250,5251,5253,2583,4470,5253,3231,4856,5250,706,3231, & - 5250,3231,5145,5232,706,4109,5255,2396,4281,5250,2396,5230, & - 5250,5255,2738,5230,5250,5251,5253,2738,4281,5253,1515,3964, & - 5250,1515,2858,5250,2858,5193,5251,5253,829,4344,5250,829, & - 3897,5250,713,3897,5255,3897,5193,5222,5253,924,5178,5250, & - 5253,2314,4522,5250,2314,5178,5250,5253,2702,5178,5250,5251, & - 5253,2702,4522,5253,1080,3888,5250,1080,2473,5250,1261,5203, & - 5250,5253,2036,4433,5250,2036,5203,5250,5253,2872,5203,5250, & - 5251,5253,2872,4433,5253,2301,4215,5250,2301,5203,5250,5255, & - 3051,5203,5250,5251,5253,3051,4215,5253,1807,3278,3278,4345, & - 5250,3278,3909,5250,3909,4938,5231,5253,1807,3909,5255,834, & - 5165,5250,5253,2290,4427,5250,2290,5165,5250,5253,2988,5165, & - 5250,5251,5253,2988,4427,5253,1999,4804,5250,669,1999,5250, & - 669,4053,5253,2028,5137,5231,5250,5253,2028,4284,5183,2028, & - 5137,5231,5253,1621,2028,5250,5255,1621,2190,5253,2466,3759, & - 551,2466,5250,551,4053,5255,1670,3759,5250,5255,1670,5149, & - 5232,3759,5053,5232,2803,3759,5250,5255,2371,5165,5250,5255, & - 2371,4283,5250,2896,4283,5253,2896,5165,5250,5251,5253,2166, & - 2547,815,2166,5250,815,3756,5253,2547,5110,5250,5253,2547, & - 5158,5193,5253,2129,2547,5250,5255,1650,2129,5253,2114,3354, & - 2114,4719,5250,2114,3904,5250,3904,5191,5222,5253,3354,3904, & - 5255,3354,4865,5250,5253,3354,5183,5222,5253,2344,3354,5250, & - 5255,2344,5067,5244,5253,1127,3728,5255,3407,3728,5252,5253 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_69 = (/ & - 3407,3728,5253,5256,3407,3728,759,4828,759,5235,5250,5251, & - 2089,3669,5255,768,3669,5252,5253,768,3669,5253,5256,1040, & - 3669,768,3669,233,3669,3712,4398,5250,4398,4796,5251,5255, & - 3325,4916,5250,3325,4983,5251,5255,3325,3712,5250,3712,5233, & - 5251,5255,2471,3712,5255,2924,5233,5250,5251,5253,2924,4916, & - 5253,1356,4823,5250,1356,4823,5255,1067,4822,5250,1067,4823, & - 5250,2712,4602,5250,5251,5253,2712,4822,5253,2609,4602,2376, & - 2609,5250,2609,5233,5250,5251,5255,2376,5233,5251,5255,4602, & - 5250,5251,5255,4602,5251,5255,3446,3644,3446,4358,5250,3446, & - 4708,5250,5251,5255,808,3446,5250,808,5233,5255,451,3644, & - 5250,5255,3644,5038,5251,5255,1570,3644,5250,5255,1570,4708, & - 5251,5255,3146,4859,5253,4067,4859,5258,3092,4195,5256,3092, & - 4273,5250,1125,4079,5255,4079,4531,5252,5253,4079,4531,5253, & - 5256,4079,4531,1775,4163,5256,1775,3740,5250,4071,4491,5250, & - 4491,4796,5244,5251,5255,2054,3685,5256,2054,3699,5250,3088, & - 4798,5253,4022,4798,5258,2283,4592,5250,2283,3793,5250,3167, & - 4265,5256,3167,4217,5250,1429,4049,5255,4049,4514,5252,5253, & - 4049,4514,5253,5256,4049,4514,3590,4024,5250,3590,4693,5251, & - 5255,4024,4993,5250,5255,3590,4993,5255,5258,3280,4993,5255, & - 4024,4993,5252,5253,3290,4993,5253,4024,4993,5253,5256,4024, & - 4993,3590,4993,3647,5156,3647,5244,5250,5251,3693,4861,5255, & - 2592,4861,5252,5253,2592,4861,5253,5256,1602,4861,2592,4861, & - 1837,4835,5255,2752,4835,5252,5253,2752,4835,5253,5256,4490, & - 4835,1734,4835,2752,4835,2454,3692,5255,712,3692,5252,5253, & - 712,3692,5253,5256,712,3692,771,4929,5250,5251,771,4621, & - 944,3752,5255,1675,3752,5252,5253,1675,3752,5253,5256,1675, & - 3752,100,3752,2471,4071,5228,4071,5222,5251,5255,1109,4986, & - 5250,1109,4071,5250,2876,5222,5250,5251,5253,2876,4986,5253, & - 4693,5244,5255,4693,5244,5250,461,4592,5250,1456,4591,5250, & - 1456,4592,5250,2283,3220,5250,5251,5253,3220,4591,5253,3821 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_70 = (/ & - 4968,5255,5258,3209,4968,5255,4328,4968,5250,5255,4328,4968, & - 5252,5253,2504,4968,5253,4328,4968,5253,5256,3821,4968,4328, & - 4968,2393,5197,5250,2393,5228,5244,2393,5160,2393,4741,2602, & - 4347,5255,2659,4347,5252,5253,2659,4347,5253,5256,1681,4347, & - 2659,4347,2152,4440,5255,800,4440,5252,5253,800,4440,5253, & - 5256,800,4440,3214,4669,5255,605,4669,5252,5253,605,4669, & - 5253,5256,2467,4669,605,4669,392,4669,838,4422,5255,1727, & - 4422,5252,5253,1727,4422,5253,5256,1727,4422, 73,4422,1765, & - 4947,5250,1765,4947,5255,2051,4740,5250,2051,4947,5250,1086, & - 4740,5250,5253,1086,4740,5253,3931,4947,5250,3931,4938,5250, & - 5251,5255,3930,3931,5250,3931,5222,5244,5250,3930,4938,5251, & - 5255,3930,5222,5244,3450,3930,5250,3450,4938,5251,5255,3450, & - 5222,5244,5255,3821,4328,5250,3821,4796,5244,3163,4690,5253, & - 4006,4690,5258,2177,4376,5250,2177,4478,5250,1936,4327,5256, & - 1936,3697,5250,3095,4293,5256,3095,4291,5250,1243,4033,5255, & - 4033,4471,5252,5253,4033,4471,5253,5256,4033,4471,389,4038, & - 5250,1283,4338,5250,1283,4038,5250,2956,3385,5250,5251,5253, & - 2956,4338,5253,3385,4038,5250,1645,3385,5250,1645,4048,5253, & - 3196,4558,5255,711,4558,5252,5253,711,4558,5253,5256,711, & - 4558,2482,4558,2053,3739,5255,660,3739,5252,5253,660,3739, & - 5253,5256,660,3739,2920,4857,5255,710,4857,5252,5253,710, & - 4857,5253,5256,1953,4857,710,4857,340,4857,1020,3705,5255, & - 1713,3705,5252,5253,1713,3705,5253,5256,1713,3705, 41,3705, & - 1850,3677,5255,747,3677,5252,5253,747,3677,5253,5256,747, & - 3677,1854,4550,5255,592,4550,5252,5253,592,4550,5253,5256, & - 592,4550,1443,3695,5255,1606,3695,5252,5253,1606,3695,5253, & - 5256,1606,3695, 58,3695,3582,5222,5251,5255,2488,3582,5255, & - 3475,4773,5250,3475,3582,5250,3475,4983,5244,5251,5255,2830, & - 5222,5250,5251,5253,2830,4773,5253,1084,5001,5250,1084,5001, & - 5255,915,4684,5250,915,5001,5250,2904,5222,5250,5251,5253 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_71 = (/ & - 2904,4684,5253,4125,5001,5250,1810,4125,5250,4125,5222,5250, & - 5251,5255,1810,5222,5251,5255,3120,4671,5253,4011,4671,5258, & - 1419,4075,5250,1419,4408,5250,2464,3679,5256,2464,3714,5250, & - 3119,4303,5256,3119,4200,5250,1152,4073,5255,4073,4487,5252, & - 5253,4073,4487,5253,5256,4073,4487,4014,5222,5250,5251,5255, & - 4014,4796,5228,5251,5255,341,4005,5250,1002,4100,5250,1002, & - 4005,5250,2102,3229,5250,5251,5253,3229,4100,5253,2102,4005, & - 5250,2102,3456,5250,216,3456,5253,3455,4706,5255,3094,4706, & - 5252,5253,3094,4706,5253,5256,1726,4706,4325,4706,3094,4706, & - 3189,4676,5253,4039,4676,5258,854,4001,5250,854,4495,5250, & - 2167,4025,5256,2167,3769,5250,3112,4292,5256,3112,4225,5250, & - 1421,4002,5255,4002,4509,5252,5253,4002,4509,5253,5256,4002, & - 4509,276,3776,5250,867,4187,5250,867,3776,5250,2780,4964, & - 5250,5251,5253,2780,4187,5253,3181,4797,5253,4036,4797,5258, & - 1476,4020,5250,1476,4453,5250,4047,4062,5250,4047,4796,5183, & - 5251,5255,1805,4076,5256,1805,3675,5250,3162,4246,5256,3162, & - 4304,5250,1294,4057,5255,4057,4454,5252,5253,4057,4454,5253, & - 5256,4057,4454,3230,5183,5233,5250,3230,4403,5251,5255,3453, & - 4877,5255,1960,4877,5252,5253,1960,4877,5253,5256,4199,4877, & - 2485,4877,1960,4877,1053,3713,5255,3396,3713,5252,5253,3396, & - 3713,5253,5256,3396,3713,1768,4661,5255,3301,4661,5252,5253, & - 3301,4661,5253,5256,3301,4661,4661,5139,4661,5067,1898,3727, & - 5255,792,3727,5252,5253,792,3727,5253,5256,1133,3727,792, & - 3727,312,3727,4062,5139,5251,5255,2471,4062,5142,3458,5034, & - 5250,3458,4062,5250,3458,4983,5183,5251,5255,2582,5139,5250, & - 5251,5253,2582,5034,5253,4403,5183,5250,4403,5183,5255,4728, & - 4966,5250,4728,5183,5233,5255,4728,5139,5251,5255,891,3860, & - 5255,2897,3860,5252,5253,2897,3860,5253,5256,2897,3860,2204, & - 2295,787,2204,5250,787,4622,5193,2295,4031,5250,2295,4622, & - 5244,358,2295,5250,5255,3800,4029,5250,3800,4918,5251,5255 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_72 = (/ & - 3187,4791,5253,3999,4791,5258,1188,4016,5250,1188,4479,5250, & - 2274,4381,5256,2274,3711,5250,3123,4237,5256,3123,4280,5250, & - 1539,4065,5255,4065,4466,5252,5253,4065,4466,5253,5256,4065, & - 4466,2936,5125,5233,5250,862,2936,5251,5255,2104,5230,2104, & - 5125,5250,5251,2104,5125,5255,2104,4997,1224,4165,5255,2492, & - 4165,5252,5253,2492,4165,5253,5256,4165,4775,2492,4165,622, & - 4165,1388,3772,5255,3423,3772,5252,5253,3423,3772,5253,5256, & - 3423,3772,2025,4689,5255,3269,4689,5252,5253,3269,4689,5253, & - 5256,3269,4689,4689,5009,4689,4918,1861,3696,5255,620,3696, & - 5252,5253,620,3696,5253,5256,911,3696,620,3696,485,3696, & - 2471,4029,5229,4029,4918,5251,5255,3225,4917,5250,3225,4029, & - 5250,3225,4918,5250,5251,5255,2689,4918,5250,5251,5253,2689, & - 4917,5253,862,5125,5250,862,5125,5255,2474,4792,5250,2474, & - 5125,5233,5255,2474,4918,5251,5255,1170,3973,5255,2581,3973, & - 5252,5253,2581,3973,5253,5256,2581,3973,1840,4069,5255,773, & - 4069,5252,5253,773,4069,5253,5256,773,4069,402,4069,3543, & - 4069,3178,4790,5253,4021,4790,5258,1303,4063,5250,1303,4457, & - 5250,3816,4086,5250,3816,4931,5251,5255,2398,3738,5256,2398, & - 3983,5250,3100,4307,5256,3100,4296,5250,822,3997,5255,3997, & - 4444,5252,5253,3997,4444,5253,5256,3997,4444,2927,5106,5233, & - 5250,1111,2927,5251,5255,1088,4141,5255,2949,4141,5252,5253, & - 2949,4141,5253,5256,4141,4815,2949,4141,659,4141,1123,3774, & - 5255,3380,3774,5252,5253,3380,3774,5253,5256,3380,3774,1949, & - 4688,5255,3252,4688,5252,5253,3252,4688,5253,5256,4688,4961, & - 4688,4931,3252,4688,2446,3762,5255,716,3762,5252,5253,716, & - 3762,5253,5256,1231,3762,716,3762,356,3762,4086,4931,5251, & - 5255,2471,4086,5145,3226,4930,5250,3226,4086,5250,3226,4931, & - 5250,5251,5255,2808,4931,5250,5251,5253,2808,4930,5253,1111, & - 5106,5250,1111,5106,5255,2472,4864,5250,2472,5106,5233,5255, & - 2472,4931,5251,5255,974,3953,5255,3028,3953,5252,5253,3028 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_73 = (/ & - 3953,5253,5256,3028,3953,227,4376,5250,1355,4375,5250,1355, & - 4376,5250,2177,3199,5250,5251,5253,3199,4375,5253,3664,4379, & - 5250,3664,4938,5244,5255,3191,4810,5253,4034,4810,5258,1227, & - 4037,5250,1227,4494,5250,3114,4212,5256,3114,4193,5250,1361, & - 4023,5255,4023,4639,5252,5253,4023,4639,5253,5256,4023,4639, & - 4379,4888,5250,5255,3664,4888,5255,5258,2766,4888,5255,4379, & - 4888,5252,5253,3221,4888,5253,4379,4888,5253,5256,4379,4888, & - 3664,4888,1345,3975,5255,2967,3975,5252,5253,2967,3975,5253, & - 5256,2967,3975,263,3975,2262,3945,5255,814,3945,5252,5253, & - 814,3945,5253,5256,814,3945,3726,5098,5250,5251,3726,5098, & - 5251,5255,1252,3725,5255,1680,3725,5252,5253,1680,3725,5253, & - 5256,1680,3725, 46,3725,2417,4416,5255,584,4416,5252,5253, & - 584,4416,5253,5256,584,4416,928,4481,5255,1710,4481,5252, & - 5253,1710,4481,5253,5256,1710,4481, 63,4481,1129,4480,5255, & - 1622,4480,5252,5253,1622,4480,5253,5256,1622,4480, 38,4480, & - 1175,4947,5250,1175,4947,5255,1404,4846,5250,1404,4947,5250, & - 2518,4938,5250,5251,5253,2518,4846,5253,3965,5199,3566,3965, & - 5250,3965,5233,5244,5250,3965,5222,5250,5251,5255,503,4000, & - 5250,1537,4139,5250,1537,4000,5250,2225,3318,5250,5251,5253, & - 3318,4139,5253,2225,4000,5250,2225,3305,5250,264,3305,5253, & - 214,5197,5250,214,4741,2686,4674,5255,3578,4674,5252,5253, & - 3578,4674,5253,5256,3578,4674,1578,4674,3829,5222,5244,5250, & - 3829,4693,5244,5251,5255,3137,4788,5253,4044,4788,5258,943, & - 4009,5250,943,4407,5250,2048,4323,5256,2048,3771,5250,3142, & - 4192,5256,3142,4317,5250,1003,4007,5255,4007,4670,5252,5253, & - 4007,4670,5253,5256,4007,4670,3765,4694,5250,4693,4694,5244, & - 5251,5255,423,4041,5250,1228,4181,5250,1228,4041,5250,2379, & - 3232,5250,5251,5253,3232,4181,5253,2379,4041,5250,2379,3474, & - 5250,483,3474,5253,3765,5222,5244,2488,3765,5228,2603,4985, & - 5250,2603,3765,5250,2603,5222,5244,5250,3300,5222,5231,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_74 = (/ & - 5251,5253,3300,4985,5253,1432,5011,5250,1432,5011,5255,1378, & - 4680,5250,1378,5011,5250,2671,5031,5250,5251,5253,2671,4680, & - 5253,3366,5011,5250,1833,3366,5250,3366,5222,5244,5250,1833, & - 5222,5244,3918,5031,5250,5255,3918,5222,5244,5255,4149,5031, & - 5250,5031,5244,5251,2047,3132,782,2047,5250,2047,4591,5231, & - 5250,782,4591,5231,1666,3132,5250,5255,1666,4591,5231,5255, & - 3132,4591,5250,5251,3132,4591,5251,5255,1389,4769,5250,1389, & - 4769,5255,1206,4198,5250,1206,4769,5250,1368,4198,5250,5253, & - 1368,4198,5253,3441,4769,5250,3419,3441,5250,3441,5139,5244, & - 5250,3441,4618,5250,5251,5255,3419,4618,5251,5255,3419,5139, & - 5244,2310,4618,5250,5251,5255,2310,4618,5251,5255,3143,4682, & - 5253,4040,4682,5258,1156,4082,5250,1156,4438,5250,2420,4153, & - 5256,2420,3770,5250,3127,4210,5256,3127,4314,5250,1017,4054, & - 5255,4054,4413,5252,5253,4054,4413,5253,5256,4054,4413,5199, & - 5244,5251,5255,3809,5199,5244,5199,5201,5244,5251,5256,5199, & - 5244,5250,5251,3190,4632,5253,4061,4632,5258,843,4008,5250, & - 843,4437,5250,2281,3680,5256,2281,3782,5250,3116,4312,5256, & - 3116,4252,5250,844,4035,5255,4035,4402,5252,5253,4035,4402, & - 5253,5256,4035,4402,1092,4703,5255,3565,4703,5252,5253,3565, & - 4703,5253,5256,4534,4703,3565,4703,576,4703,3152,4663,5253, & - 4072,4663,5258,852,4085,5250,852,4504,5250,2390,4535,5256, & - 2390,3753,5250,3087,4297,5256,3087,4287,5250,1450,4064,5255, & - 4064,4499,5252,5253,4064,4499,5253,5256,4064,4499,1797,2690, & - 801,2690,5250,2690,4181,5231,5250,801,4181,5231,1735,3132, & - 5250,5255,1735,4181,5231,5255,1797,4181,5250,5251,1797,4181, & - 5251,5255,3723,4946,5250,5255,4178,4946,5255,5258,3005,4946, & - 5255,3723,4946,5252,5253,3249,4946,5253,3723,4946,5253,5256, & - 3723,4946,4178,4946,1021,3853,5255,2521,3853,5252,5253,2521, & - 3853,5253,5256,2521,3853,350,3853,2267,3687,5255,550,3687, & - 5252,5253,550,3687,5253,5256,550,3687,2923,4920,5255,641 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_75 = (/ & - 4920,5252,5253,641,4920,5253,5256,3434,4920,641,4920,513, & - 4920,1530,3788,5255,1745,3788,5252,5253,1745,3788,5253,5256, & - 1745,3788, 39,3788,4401,4865,5250,5255,4401,5139,5244,5255, & - 4401,5183,5222,5255,2134,2900,2900,4051,5231,5250,717,2900, & - 5250,717,4051,5231,1716,2134,5250,5255,1716,4051,5231,5255, & - 2134,4051,5250,5251,2134,4051,5251,5255,1076,4051,5250,1076, & - 4050,5250,2353,4050,5255,3461,4050,5252,5253,3461,4050,5253, & - 5256,3461,4050,2353,3303,5250,5251,5253,3303,4051,5253,3723, & - 4178,5250,4178,5139,5244,5250,4178,4693,5244,5251,5255,4178, & - 5139,5244,5255,2307,4168,5250,2307,5139,5183,5250,2681,5139, & - 5191,5250,5253,2681,4168,5253,1256,4787,5250,1256,4787,5255, & - 1176,4628,5250,1176,4787,5250,2630,5157,5250,5251,5253,2630, & - 4628,5253,2971,4277,5250,2238,2971,5250,2971,5139,5250,5251, & - 5255,2238,5139,5251,5255,572,5139,5250,5251,5255,572,5139, & - 5251,5255,2358,4865,750,2358,5250,2358,5183,5222,5250,750, & - 5183,5222,4134,4865,5250,4865,5183,5244,5251,595,1917,5250, & - 1917,5152,5234,5250,1917,2711,595,5152,5234,2711,5152,5232, & - 2711,3526,5250,5255,1683,5152,5234,5255,1683,2711,5250,5255, & - 1969,5180,5250,5251,5255,2824,5180,5250,5251,5255,2824,4516, & - 5250,2531,4516,5253,2531,5180,5250,5251,5253,4668,5180,5251, & - 4668,5180,5252,5253,4668,5180,5253,5256, 3,4668,5180,5254, & - 4668,5046,5180,2783,4668,2112,3459,5250,3459,4530,5251,5255, & - 3459,3483,2112,5180,5233,5255,1644,3587,5251,5255,1644,3483, & - 5250,5255,3483,4530,5251,5255,3483,4530,5201,5251,5255,5256, & - 3483,4530,5250,5251,5255,1851,5234,5250,5251,5255,2494,5234, & - 5250,5251,5255,2494,4414,5250,2796,4414,5253,2796,5234,5250, & - 5251,5253,4999,5234,5251,4999,5234,5252,5253,4999,5234,5253, & - 5256, 3,4999,5234,5254,4999,5046,5234,1764,4999,1098,2816, & - 5250,1098,4851,991,4851,5250,5253,2816,5233,5234,5255,1626, & - 5233,5234,5255,1626,4851,5250,5255,4851,5234,5251,5255,4209 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_76 = (/ & - 4851,5201,5256,4209,4851,5250,4776,5023,5251,4776,5023,5252, & - 5253,4776,5023,5253,5256, 3,4776,5023,5254,4776,5023,5046, & - 494,4776,1220,4851,1220,2596,5250,1529,4851,5250,5253,2596, & - 5023,5231,5255,3608,4851,5250,5255,3608,5232,5234,5255,2043, & - 2695,2695,5232,5234,5250,656,2695,5250,656,5232,5234,2043, & - 3350,5250,5255,2043,5232,2431,5194,5250,5255,2431,4259,5250, & - 2801,4259,5253,2801,5194,5250,5251,5253,4282,4909,5251,4282, & - 4909,5252,5253,4282,4909,5253,5256, 3,4282,4909,5254,4282, & - 4909,5046,2147,2717,5250,2147,3628,2147,5015,5250,3628,3835, & - 5250,5253,3154,3835,5250,5255,3835,4909,5234,5250,5253,2717, & - 4909,5234,5255,1684,3628,5253,2335,3628,5250,5255,463,3628, & - 5250,5255,2191,4909,5250,5251,5255,3033,4909,5250,5251,5255, & - 3033,4436,5250,2670,4436,5253,2670,4909,5250,5251,5253,4213, & - 4909,5251,4213,4909,5252,5253,4213,4909,5253,5256, 3,4213, & - 4909,5254,4213,4909,5046,1438,2545,5250,1438,3939,5250,2545, & - 4909,5233,5255, 55,2545,5250,3933,4208,5250,3933,5233,5244, & - 5253,391,3470,5250,5255,3501,4321,5255,3240,4321,5252,2249, & - 4321,5252,5253,2249,4321,5253,5256,2249,4321,3514,4321,5250, & - 5251,4832,5209,5253,5256,386,4832,5258,4832,5209,5250,5255, & - 819,4677,819,5233,5250,5253,1795,4551,1795,5222,5250,5255, & - 3464,3707,5251,3707,4125,5231,5250,3464,3707,5250,5251,5255, & - 3707,4420,5222,5250,1346,4420,5222,5250,3464,3708,3464,3965, & - 3464,4420,5244,5250,3464,5222,5231,5250,3630,4294,4805,5258, & - 131,4805,5233,5258,4180,4805,5250,4805,5233,5244,5250, 29, & - 5233,5250,3693,5210,5251,2592,3693,5250,3693,5210,5250,5251, & - 5255,1558,5210,5250,5255,1558,5233,5244,5250,5025,5188,5250, & - 5251,2138,5025,5255,5258,2616,5025,5255,5025,5188,5251,5252, & - 5253,5255,3204,5025,5253,5025,5188,5251,5253,5255,5256,5025, & - 5188,5251,5255,4570,5025,5255,2138,5025,2392,5035,5255,3443, & - 5035,5252,3064,5035,5252,5253,3064,5035,5253,5256,3064,5035 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_77 = (/ & - 3993,5035,5250,5251,3428,5174,5250,3428,5035,5250,3428,5134, & - 5250, 48,3428,5250, 21,3428,5250,2489,5188,5250,5251,5253, & - 2489,5188,5253,5255,2489,5040,2489,3245,3625,5074,5255,4066, & - 5074,5252,1748,5074,5252,5253,1748,5074,5253,5256,3635,5074, & - 1748,5074,2101,5074,2590,5154,5255,4945,5154,5252,261,5154, & - 5252,5253,4256,5154,2101,5154,261,5154,678,5134,5250,678, & - 3454,5250,5255,3286,3801,5255,3273,3801,5252,1967,3801,5252, & - 5253,1967,3801,5253,5256,1967,3801,3330,3801,5250,5251,3524, & - 4749,5251,3524,3965,5231,5250,3524,4749,5250,5251,5255,3524, & - 4383,5233,5250,1246,4383,5233,5250,4125,4749,4383,4749,5251, & - 4125,4749,5250,4383,4749,5250,5251,5255,4749,5222,5231,5250, & - 3647,4570,4983,5258, 67,4570,5222,5258,4570,4982,5250,4570, & - 5222,5250,5251,5255, 19,5222,5250,3449,4339,5255,1848,4339, & - 5252,5253,1848,4339,5253,5256,1848,4339,1682,5094,5250,5255, & - 1682,5222,5250,5251,5255,5033,5234,5244,5250,5255,1242,5033, & - 5255,5258,2554,5033,5255,5033,5234,5244,5252,5253,3197,5033, & - 5253,5033,5234,5244,5253,5256,4805,5033,5255,5033,5234,5244, & - 1242,5033,3201,4711,5255,1955,4711,5252,5253,3549,4711,5252, & - 1955,4711,5253,5256,1955,4711,2109,5174,5255,4378,5174,5252, & - 2662,5174,5252,5253,2662,5174,5253,5256,2662,5174, 62,5174, & - 4564,5174,5250,5251,790,4247,790,5080,5250,5253,3485,5022, & - 5255,4066,5022,5252,3700,5022,5252,5253,3700,5022,5253,5256, & - 3700,5022,302,5022,3550,5134,5255,1684,5134,5252,5253,1684, & - 5134,5253,5256,1684,5134,2162,3552,5250,1575,3552,5250,5255, & - 3552,5173,5250,4945,5180,5188,5250,5253,4256,4945,5250,5253, & - 4945,4958,5231,5250,5253,1981,4945,5250,5255,3160,4945,5250, & - 5255,2162,5180,5188,5255,458,1685,5250,5255,4556,4958,5251, & - 4556,4958,5252,5253,4556,4958,5253,5256, 3,4556,4958,5254, & - 4556,4958,5046,2236,3080,5250,2236,3693,5250,5255,4256,5188, & - 5233,5253,5255,4256,5167,5250,3080,5188,5233,5255, 70,3080 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_78 = (/ & - 5250,2402,4269,5250,2402,5226,5250,5255,2576,5226,5250,5251, & - 5253,2576,4269,5253,114,5241,5250,4939,5158,5251,5255,4939, & - 5158,5201,5251,5256,4939,5158,5250,5251,3621,5091,5255,2354, & - 5091,5252,2770,5091,5252,5253,2770,5091,5253,5256,2230,5091, & - 2770,5091,226,5091,5024,5091,5231,5250,2156,4060,5250,2156, & - 3626,2156,3344,5250,2461,3626,5250,5253,2461,3344,5253,3344, & - 3626,5255,680,3344,5251,5255,319,3626,5250,5255,3626,5250, & - 5251,5255,2187,3676,5250,2187,4231,1743,2187,5250,2375,4231, & - 5250,5253,1743,2375,5253,1743,4231,5255,4231,4613,5201,5256, & - 4231,4613,5250,4231,4614,5251,5255,2716,4231,5250,5255,2260, & - 4595,5250,2260,3510, 51,2260,5250, 51,5142,3510,5142,5201, & - 5251,5256,3510,5142,5250,5251,3510,5142,5251,5255,1870,4211, & - 5250,2753,4127,5250,1728,2753,1553,2753,5250,1728,4929,5250, & - 1728,2672,5250,5253,1553,2672,5253,1553,5193,5228,208,1728, & - 5250,5255,2976,4612,5255,3128,4612,5255,2764,4612,5252,1597, & - 4612,5252,5253,1597,4612,5253,5256,1597,4612,512,4612,3128, & - 4612,1449,3619,1449,1865,5250,1864,3619,5250,5253,1864,1865, & - 5253,1865,3619,5255,471,3619,5250,5255,1869,1870,5250,5255, & - 1869,2954,5250,2954,3619,5231,5255,1870,2405,5250,5253,2405, & - 2954,5253,321,1870,5250,5255,1160,2716,1160,3405,5250,229, & - 3405,5228,1952,2716,5250,5253,1952,3405,5253,381,2716,5250, & - 5255,309,4219,5250,1064,4611,5250,1064,4219,5250,2757,3619, & - 5250,5251,5253,2757,4611,5253,3049,4730,5250,3049,4239,665, & - 3049,5250,665,5231,5237,3682,4239,5250,5255,3682,5195,5232, & - 4239,5201,5237,5251,5256,4239,5237,5250,5251,4239,5237,5251, & - 5255,1825,3708,5250,3708,5197,5250,3708,5199,1825,5231,5244, & - 5251,1938,4885,5250,1938,3683,1938,2000,5250,2000,5158,5231, & - 1655,4109,5250,5255,1655,5202,5232,3683,4939,5250,5255,3683, & - 5164,5251,5255,1099,4991,5250,1099,2679,5250,2679,5193,5244, & - 5251,2424,4169,5250,2424,5193,5237,5250,600,2424,5250,600 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_79 = (/ & - 5193,5237,1646,4392,5250,5255,1646,5193,5237,4392,5237,5244, & - 4392,5105,5250,5255,689,3287,5250,3287,4949,5231,5250,3287, & - 4126,5250,2395,3287,689,4949,5231,1658,4949,5231,5255,1658, & - 2395,5250,5255,2395,4949,5251,5255,2395,4949,5250,5251,2397, & - 5142,5244,2397,5098,5250,3031,5183,5244,3031,5098,5250,3031, & - 5117,5250,2883,5117,5253,2883,4938,5250,5251,5253,1212,3926, & - 5250,1212,2190,5250,2190,5136,5231,2618,5110,2618,4095,5250, & - 2618,5158,5193,610,2618,5250,610,5158,5193,2428,5242,5244, & - 5250,682,2428,5250,2428,5110,682,5242,5244,5110,5241,5244, & - 5251,5110,5158,5244,4106,5110,5250,1566,5242,5244,5255,1566, & - 5110,5250,5255,2247,2939,5250,2247,5055,2247,5150,5250,1856, & - 2939,5253,1856,5055,5250,5253,2939,4348,2939,5055,5255,1337, & - 2528,5250,1337,3616,2123,2528,5253,2123,3616,5250,5253,2528, & - 5193,5242,5255,3616,5158,5193,5255,3616,5110,5250,5255,586, & - 2528,5255,586,3616,5250,5255,1406,4871,5250,1406,3346,5250, & - 3346,5193,5197,3346,5110,5255,2940,3756,2940,4827,5250,1650, & - 2940,5250,1650,5164,5193,3756,5110,5250,5255,3756,5164,5244, & - 1705,3616,5250,5255,1705,4924,5202,1495,4118,5250,1495,2692, & - 5250,2692,5183,5193,5251,2932,3473,3473,4365,5250,3473,5191, & - 5237,5250,749,3473,5250,749,5191,5237, 77,2932,5250,5255, & - 2932,5183,5237,1601,2932,5250,5255,1601,5191,5237,5255,1498, & - 4627,5250,1498,4318,5250,2560,4918,5250,5251,5253,2560,4627, & - 5253,1217,4318,5250,1217,2163,5250,1292,4170,5250,1292,2881, & - 5250,2881,5160,5244,5251,1556,3291,5250,3291,4105,5250,2255, & - 3291,1556,5079,5231,608,1556,5255,608,2255,5250,5255,2255, & - 5079,5251,5255,2255,5079,5250,5251,363,4841,5250,1193,4841, & - 5250,1193,4836,5250,3239,4836,5253,3239,4938,5231,5250,5251, & - 5253,1935,4158,5250,557,1935,5250,557,4996,5255,4926,4996, & - 5201,5256,4926,4996,5250,4552,4996,5251,5255,4768,4996,5214, & - 3580,4996,5250,5255,3580,4995,5214,3055,4765,5250,3055,3389 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_80 = (/ & - 2186,3055,5250,2186,3389,5255,2186,3954,1777,3389,5250,5255, & - 1113,1777,5194,5251,3389,3717,5250,3389,5200,5251,931,4124, & - 5255,2892,4124,5252,450,4124,5252,5253,450,4124,5253,5256, & - 450,4124,366,4124,1043,3745,5250, 42,1043,5250, 42,3905, & - 1462,5029,5250,1462,5198,5250,2951,4914,5250,5251,5253,2951, & - 5029,5253,1353,3955,5255,2742,3955,5252,2452,3955,5252,5253, & - 2452,3955,5253,5256,2452,3955,354,3955,1608,4910,5250,5255, & - 1489,4910,5255,5258,864,4910,5255,1608,4910,5252,5253,3223, & - 4910,5253,1608,4910,5253,5256,1608,4910,1489,4910,1437,4830, & - 5255,4830,4898,5250,5255,990,4830,5255,5258,4830,4898,5252, & - 5253,2850,4830,5253,4830,4898,5253,5256,4830,4898,990,4830, & - 1383,4898,5255,146,4898,5252,5253,146,4898,5253,5256,146, & - 4898,1324,3741,5255,300,3741,5252,5253,300,3741,5253,5256, & - 300,3741,454,3741,919,4288,5255,4257,4288,5250,5255,4257, & - 4288,5252,5253,3307,4288,5253,4257,4288,5253,5256,4257,4288, & - 2143,4257,5255,138,4257,5252,5253,138,4257,5253,5256,138, & - 4257,1147,4092,5255,1311,4092,5252,1572,4092,5252,5253,1572, & - 4092,5253,5256,1572,4092, 24,4092,1059,2480,1059,2324,5250, & - 2462,2480,5250,5253,2324,2462,5253,2324,2480,5255,516,2480, & - 5250,5255,1770,4266,5250,1770,5215,5250,5253,2898,5215,5250, & - 5251,5253,2898,4266,5253,1197,4173,5255,3081,4173,5252,407, & - 4173,5252,5253,407,4173,5253,5256,407,4173,365,4173,562, & - 3720,5255,1284,3720,5252,201,3720,5252,5253,201,3720,5253, & - 5256,561,3720,201,3720,303,3720,1492,4789,5255,1933,4789, & - 5252,2722,4789,5252,5253,2722,4789,5253,5256,3947,4789,2722, & - 4789,427,4789,1696,4664,5250,1266,3981,5255,2943,3981,5252, & - 2207,3981,5252,5253,2207,3981,5253,5256,2207,3981, 79,3981, & - 735,736,154,736,5250,735,1057,5250,5253,154,1057,5253, & - 154,4545,735,4545,5250,344,735,5250,5255,2146,4301,5250, & - 2146,5215,5250,5255,3017,5215,5250,5251,5253,3017,4301,5253 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_81 = (/ & - 1517,3876,5255,2962,3876,5252,5253,2962,3876,5253,5256,2962, & - 3876,587,3876,148,4987,5250,4849,5176,5201,5256,4849,5176, & - 5250,4987,5176,5250,5176,5196,5251,5255,1371,3850,5255,1835, & - 3850,5252,2997,3850,5252,5253,2997,3850,5253,5256,2997,3850, & - 556,3850,4855,5083,5201,5256,3840,5083,5256,4747,4842,5083, & - 5258, 27,5083,5231,5258,4855,5083,5250,3985,5083,5250,4197, & - 5083,5251,5255,1087,4855,5255,5258,1047,4855,5255,4197,4855, & - 5250,5255,4197,4855,5252,5253,2879,4855,5253,4197,4855,5253, & - 5256,1087,4855,4197,4855,1605,4953,5250,5255,457,4953,5255, & - 5258,1325,4953,5255,1605,4953,5252,5253,2958,4953,5253,1605, & - 4953,5253,5256,1605,4953,457,4953,2071,4567,5255,728,4567, & - 5252,5253,728,4567,5253,5256,2273,4567,728,4567,219,4567, & - 1447,4891,5255,4781,4891,5250,5255,4781,4891,5252,5253,2947, & - 4891,5253,4781,4891,5253,5256,4781,4891,1487,3907,5255,3335, & - 3907,5252,5253,3335,3907,5253,5256,3335,3907,1318,4781,5255, & - 3390,4781,5252,5253,3390,4781,5253,5256,3390,4781,985,4847, & - 5250,985,5236,5250,2593,5212,5250,5251,5253,2593,4847,5253, & - 1990,3969,5255,649,3969,5252,5253,649,3969,5253,5256,1995, & - 3969,649,3969,224,4145,5250,224,4135,5250,612,5196,5250, & - 5251,612,4824,2407,3872,5255,1151,3872,5252,549,3872,5252, & - 5253,549,3872,5253,5256,549,3872,1384,3872,1973,3927,5255, & - 1995,3927,5252,721,3927,5252,5253,721,3927,5253,5256,1384, & - 3927,1706,3927,721,3927,1251,5099,5250,1251,5206,5250,2587, & - 4183,5250,5251,5253,2587,5099,5253,885,3988,5250,885,3074, & - 5250,3074,5231,5248,5253,621,5231,5248,5250,5253,4264,5248, & - 5251,4264,5248,5252,5253,4264,5248,5253,5256, 3,4264,5248, & - 5254,4264,5046,5248,2439,4762,5255,703,4762,5252,5253,703, & - 4762,5253,5256,1843,4762,703,4762,281,4762,3638,4921,5255, & - 5258,1182,4921,5255,4921,4940,5250,5255,4921,4940,5252,5253, & - 2860,4921,5253,4921,4940,5253,5256,3638,4921,4921,4940,1950 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_82 = (/ & - 5028,5255,658,5028,5252,5253,658,5028,5253,5256,2119,5028, & - 658,5028,1668,5028,1863,4761,5255,585,4761,5252,5253,585, & - 4761,5253,5256,2315,4761,585,4761,1687,4761,2737,4542,5255, & - 1769,4542,5252,5253,1769,4542,5253,5256,1828,4542,1769,4542, & - 1619,4542,1523,4940,5255,2165,4940,5252,189,4940,5252,5253, & - 189,4940,5253,5256,3242,4940,189,4940,413,4940,1314,3883, & - 5250,1314,3039,5250,1918,5231,5248,5250,5253,3039,5231,5248, & - 5255,667,5231,5248,5250,5255,1993,3617,5231,1993,3037,5250, & - 2254,3617,5231,5250,5253,3037,3617,5231,5255,580,3617,5231, & - 5250,5255,1373,5039,5255,726,5039,5252,5253,726,5039,5253, & - 5256,1372,5039,726,5039,440,5039,3638,4526,5251,3638,4526, & - 5252,5253,3638,4526,5253,5256, 3,3638,4526,5254,3638,4526, & - 5046,1758,3638,5231,1758,2744,5250,2347,3638,5231,5250,5253, & - 2744,3638,5231,5255,536,3638,5231,5250,5255,251,5014,5255, & - 5258,900,5014,5255,4088,5014,5250,5255,4088,5014,5252,5253, & - 2648,5014,5253,4088,5014,5253,5256,251,5014,4088,5014,1624, & - 4989,5250,5255,496,4989,5255,5258,1407,4989,5255,1624,4989, & - 5252,5253,2685,4989,5253,1624,4989,5253,5256,1624,4989,496, & - 4989,3516,4757,5251,3516,4757,5252,5253,3516,4757,5253,5256, & - 3,3516,4757,5254,3516,4757,5046,1900,5122,5255,724,5122, & - 5252,5253,724,5122,5253,5256,1913,5122,724,5122,371,5122, & - 2373,3516,5231,2008,2373,5250,2280,3516,5231,5250,5253,2008, & - 3516,5231,5255,694,3516,5231,5250,5255,949,3901,5255,2079, & - 3901,5252,159,3901,5252,5253,159,3901,5253,5256,159,3901, & - 462,3901,1502,3928,5255,2832,3928,5252,5253,2832,3928,5253, & - 5256,2832,3928,692,3928,4738,5201,5240,5256,4738,5240,5250, & - 4043,5240,5251,5255,522,4258,522,4176,5250,1183,3886,5255, & - 2325,3886,5252,2746,3886,5252,5253,2746,3886,5253,5256,2746, & - 3886,127,3886,1286,4088,5255,1629,4088,5252,187,4088,5252, & - 5253,187,4088,5253,5256,1628,4088,187,4088,248,4088,930 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_83 = (/ & - 4745,5255,3564,4745,5252,5253,3564,4745,5253,5256,3564,4745, & - 970,4394,5255,2239,4394,5252,326,4394,5252,5253,326,4394, & - 5253,5256,326,4394, 87,4394,3242,3564,5231,5255,1862,3844, & - 5255,673,3844,5252,5253,673,3844,5253,5256,2288,3844,673, & - 3844,4691,5248,5251,4691,5248,5252,5253,4691,5248,5253,5256, & - 3,4691,5248,5254,3617,4691,4691,5046,5248,4678,5249,5251, & - 4678,5249,5252,5253,4678,5249,5253,5256, 3,4678,5249,5254, & - 3617,4678,3638,4678,2359,5028,5250,2359,4761,5250,2359,3516, & - 2359,5114,5228,1569,4542,5250,1569,3638,1569,4940,5255,2098, & - 3920,5255,1334,3920,5252,730,3920,5252,5253,730,3920,5253, & - 5256,730,3920,1056,3920,2266,3966,5255,2288,3966,5252,663, & - 3966,5252,5253,663,3966,5253,5256,1056,3966,1738,3966,663, & - 3966,2319,4243,5255,4243,4973,5250,4243,4973,5252,5253,5255, & - 2678,4243,5253,4243,4973,5253,5255,5256,4243,4973,5255,2144, & - 4260,5255,4260,5071,5250,4260,5071,5252,5253,5255,2677,4260, & - 5253,4260,5071,5253,5255,5256,4260,5071,5255,929,4451,5250, & - 929,4244,5250,2674,5211,5250,5251,5253,2674,4451,5253,2009, & - 4996,2009,4354,5250,2009,3415,5250,3415,4996,5255,3415,4768, & - 5182,4883,4957,5250,4883,4996,5250,5255,4015,4883,5251,5255, & - 865,4244,5250, 36,865,5250, 36,3992,1202,3784,5250, 45, & - 1202,5250, 45,4042,4962,4995,5250,5255,258,4962,5255,5258, & - 1475,4962,5255,4962,4995,5252,5253,2786,4962,5253,4962,4995, & - 5253,5256,4962,4995,258,4962,909,4263,5255,2865,4263,5252, & - 5253,2865,4263,5253,5256,2865,4263,3672,5222,5250,5253,3672, & - 4693,5251,5253,5255,3502,5133,5250,3502,4294,5251,5253,5255, & - 3358,3529,5250,5251,5253,3529,5133,5253,3387,5233,5250,5255, & - 3387,4796,5251,5255,3515,4795,5250,3515,5233,5250,5255,3515, & - 4983,5251,5255,3401,5233,5250,5256,3401,4795,5253,5211,5246, & - 5251,5255,5179,5201,5211,5256,5179,5211,5250,207,4848,5255, & - 5258,1042,4848,5255,4848,5150,5250,5255,4848,5150,5252,5253 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_84 = (/ & - 2884,4848,5253,4848,5150,5253,5256,207,4848,4848,5150,3915, & - 4870,5251,5255,3915,4662,5201,5256,3915,4662,5250,1074,4412, & - 5255,4411,4412,5250,5255,4411,4412,5252,5253,2885,4412,5253, & - 4411,4412,5253,5256,4412,5062,1204,4735,5255,2270,4735,5252, & - 2589,4735,5252,5253,2589,4735,5253,5256,2589,4735,590,4735, & - 3759,4735,3662,5161,5251,5255,3662,4866,5201,5256,3662,4866, & - 5250,376,4623,5255,5258,1448,4623,5255,4623,5185,5250,5255, & - 4623,5185,5252,5253,2843,4623,5253,4623,5185,5253,5256,376, & - 4623,4623,5185,2553,4561,5255,2814,4561,5252,3284,4561,5252, & - 5253,3284,4561,5253,5256,3284,4561,2001,4561,3792,5151,5251, & - 5255,3792,4979,5201,5256,3792,4546,5250,3792,4979,5250,1490, & - 5120,5255,1978,5120,5252,2646,5120,5252,5253,2646,5120,5253, & - 5256,289,5120,2646,5120,4391,5120,479,4934,5255,5258,1090, & - 4934,5255,4934,5120,5250,5255,4934,5120,5252,5253,2846,4934, & - 5253,4934,5120,5253,5256,479,4934,4934,5120,2730,4911,5255, & - 674,4911,5252,5253,674,4911,5253,5256,3057,4911,674,4911, & - 1659,4911,1327,4517,5255,4517,4852,5250,5255,4517,4852,5252, & - 5253,2844,4517,5253,4517,4852,5253,5256,4517,4852,240,4629, & - 5255,5258,845,4629,5255,4629,5148,5250,5255,4629,5148,5252, & - 5253,2848,4629,5253,4629,5148,5253,5256,240,4629,4629,5148, & - 1213,4128,5255,2256,4128,5252,3013,4128,5252,5253,3013,4128, & - 5253,5256,4128,4279,3013,4128,554,4128,1323,4704,5255,2253, & - 4704,5252,2982,4704,5252,5253,2982,4704,5253,5256,2982,4704, & - 651,4704,3780,4704,3471,5097,5251,5255,3471,4642,5201,5256, & - 3471,4642,5250,449,4665,5255,5258,1291,4665,5255,4665,5116, & - 5250,5255,4665,5116,5252,5253,3025,4665,5253,4665,5116,5253, & - 5256,449,4665,4665,5116,1499,4357,5255,2514,4357,5252,2644, & - 4357,5252,5253,2644,4357,5253,5256,2644,4357,284,4357,1191, & - 4697,5255,1607,4697,5252,5253,1607,4697,5253,5256,1607,4697, & - 664,4697,2197,4697,2426,3948,5255,1677,3948,5252,5253,1677 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_85 = (/ & - 3948,5253,5256,1677,3948,1637,3948,456,5090,5255,5258,1547, & - 5090,5255,4844,5090,5250,5255,4844,5090,5252,5253,3311,5090, & - 5253,4844,5090,5253,5256,456,5090,4844,5090,1907,4058,5255, & - 2419,4058,5252,1552,4058,5252,5253,1552,4058,5253,5256,1552, & - 4058,346,4058,4058,4501,329,4500,5255,5258,975,4500,5255, & - 4058,4500,5250,5255,4058,4500,5252,5253,2669,4500,5253,4058, & - 4500,5253,5256,329,4500,4058,4500,519,4523,5255,5258,1477, & - 4523,5255,4310,4523,5250,5255,4310,4523,5252,5253,2778,4523, & - 5253,4310,4523,5253,5256,519,4523,4310,4523,3777,5150,5183, & - 3777,4573,5250,3777,3906,5250,5255,3906,5183,5246,3906,5161, & - 5244,3906,4566,5250,3906,4584,5250,1937,3912,5255,596,3912, & - 5252,5253,596,3912,5253,5256,596,3912,2016,3941,5255,534, & - 3941,5252,5253,534,3941,5253,5256,534,3941,1145,4903,5255, & - 2282,4903,5252,2697,4903,5252,5253,2697,4903,5253,5256,3126, & - 4903,2697,4903,758,4903,3528,4967,5255,734,4967,5252,5253, & - 734,4967,5253,5256,1826,4967,734,4967,1557,4967,4800,5116, & - 5244,4800,4802,5250,3298,4800,5250,5255,3298,5151,5244,3298, & - 5097,5244,3298,4309,5250,3298,4811,5250,2095,3871,5255,571, & - 3871,5252,5253,571,3871,5253,5256,571,3871,2331,4251,5255, & - 1829,4251,5252,200,4251,5252,5253,200,4251,5253,5256,306, & - 4251,4251,4537,200,4251,280,5088,5255,5258,1196,5088,5255, & - 4251,5088,5250,5255,4251,5088,5252,5253,2496,5088,5253,4251, & - 5088,5253,5256,280,5088,4251,5088,1136,4716,5255,2185,4716, & - 5252,3009,4716,5252,5253,3009,4716,5253,5256,3009,4716,807, & - 4716,3504,4716,602,5161,5183,602,4369,5250,2316,3977,5255, & - 539,3977,5252,5253,539,3977,5253,5256,539,3977,1446,4713, & - 5255,2124,4713,5252,2642,4713,5252,5253,2642,4713,5253,5256, & - 3522,4713,2642,4713,616,4713,803,5125,5161,803,4349,5250, & - 2027,3881,5255,791,3881,5252,5253,791,3881,5253,5256,791, & - 3881,1115,4270,5255,2760,4270,5252,5253,2760,4270,5253,5256 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_86 = (/ & - 2760,4270,967,4712,5255,2245,4712,5252,2594,4712,5252,5253, & - 2594,4712,5253,5256,3544,4712,2594,4712,671,4712,769,4944, & - 5161,769,4389,5250,2298,3919,5255,776,3919,5252,5253,776, & - 3919,5253,5256,776,3919,1122,4254,5255,2874,4254,5252,5253, & - 2874,4254,5253,5256,2874,4254,1526,4715,5255,2330,4715,5252, & - 2638,4715,5252,5253,2638,4715,5253,5256,3493,4715,2638,4715, & - 804,4715,794,4760,5161,794,4361,5250,2411,3916,5255,528, & - 3916,5252,5253,528,3916,5253,5256,528,3916,1398,4238,5255, & - 2676,4238,5252,5253,2676,4238,5253,5256,2676,4238,1543,4709, & - 5255,2271,4709,5252,2562,4709,5252,5253,2562,4709,5253,5256, & - 3548,4709,2562,4709,762,4709,609,4850,5161,609,4355,5250, & - 2205,3880,5255,574,3880,5252,5253,574,3880,5253,5256,574, & - 3880,1478,4360,5255,3015,4360,5252,1998,4360,5252,5253,1998, & - 4360,5253,5256,3580,4360,1998,4360,408,4360, 6,4924,5231, & - 8,5158,5231,1947,4284,5255,777,4284,5252,5253,777,4284, & - 5253,5256,777,4284,713,5031,5250,5253,713,1833,5253,1807, & - 5222,5244,5250,5253,1807,5222,5244,5253,2803,4053,5250,5255, & - 4053,5136,5251,5255,2803,5053,5251,5255,2803,5137,5251,5255, & - 2803,5137,5250,5251,1127,3728,5250,1127,3407,5250,3407,4651, & - 5253,331,3407,5255,4651,4828,5251,4651,4828,5252,5253,4651, & - 4828,5253,5256, 3,4651,4828,5254,4651,4828,5046,110,4828, & - 2089,3669,5250,768,2089,5250,768,4651,5255,1040,4651,5250, & - 5255,233,1040,5250,5255,2471,5059,5250,451,5250,5251,5255, & - 451,5251,5255,3146,4467,5256,3146,4271,5250,1427,4067,5255, & - 4067,4859,5252,5253,4067,4859,5253,5256,4067,4859,979,4195, & - 5255,2535,4195,5252,5253,2535,4195,5253,5256,2535,4195,1105, & - 4273,5255,2731,4273,5252,5253,2731,4273,5253,5256,2731,4273, & - 1125,4079,5250,1125,4531,5250,1943,4163,5255,535,4163,5252, & - 5253,535,4163,5253,5256,535,4163,491,3740,5255,130,3740, & - 5252,5253,130,3740,5253,5256,490,3740,130,3740,212,3740 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_87 = (/ & - 2046,3685,5255,816,3685,5252,5253,816,3685,5253,5256,816, & - 3685,518,3699,5255, 14,3699,5252,5253, 14,3699,5253,5256, & - 455,3699, 14,3699,372,3699,3088,4458,5256,3088,4306,5250, & - 1230,4022,5255,4022,4798,5252,5253,4022,4798,5253,5256,4022, & - 4798,1096,4265,5255,2536,4265,5252,5253,2536,4265,5253,5256, & - 2536,4265,1322,4217,5255,3001,4217,5252,5253,3001,4217,5253, & - 5256,3001,4217,1429,4049,5250,1429,4514,5250,4024,5228,5233, & - 5251,2488,4024,5255,3280,4993,5250,3280,4294,5251,5255,3280, & - 4024,5250,3290,5231,5233,5250,5251,5253,3290,4993,5253,2592, & - 5222,5233,5255,1602,2592,5250,1602,5210,5251,5255,1837,4490, & - 1837,4835,5250,1837,2752,5250,2752,5222,5233,5255,3484,4490, & - 5250,5255,4490,5199,5251,5255,1734,4490,5250,5255,1734,5210, & - 5251,5255,2454,3692,5250,712,2454,5250,712,5018,5253,2107, & - 4929,5255,693,4929,5252,5253,693,4929,5253,5256,693,4929, & - 4621,5018,5251,4621,5018,5252,5253,4621,5018,5253,5256, 3, & - 4621,5018,5254,4621,5018,5046, 56,4621,944,3752,5250,944, & - 1675,5250,1675,5018,5255,100,1675,5250,3209,4968,5250,3209, & - 4983,5244,3209,4328,5255,4328,4938,5251,5255,2488,4328,5228, & - 2504,4938,5250,5251,5253,2504,4968,5253,4741,4938,5251,4741, & - 4938,5252,5253,4741,4938,5253,5256, 3,4741,4938,5254,4741, & - 4938,5046,2602,4347,5250,2602,5210,5244,5250,2602,2659,5250, & - 2659,4938,5233,5255,1681,2659,5250,1681,5210,5244,5255,2152, & - 4440,5250,800,2152,5250,800,3535,5253,2467,3214,3214,4669, & - 5250,605,3214,5250,605,5222,5244,2467,4188,5250,2467,5244, & - 5251,392,2467,5250,5255,838,4422,5250,838,1727,5250,1727, & - 3535,5255, 73,1727,5250,3163,4415,5256,3163,4298,5250,978, & - 4006,5255,4006,4690,5252,5253,4006,4690,5253,5256,4006,4690, & - 2093,4327,5255,809,4327,5252,5253,809,4327,5253,5256,809, & - 4327,398,3697,5255,120,3697,5252,5253,120,3697,5253,5256, & - 397,3697,120,3697,299,3697,1104,4293,5255,2918,4293,5252 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_88 = (/ & - 5253,2918,4293,5253,5256,2918,4293,917,4291,5255,2641,4291, & - 5252,5253,2641,4291,5253,5256,2641,4291,1243,4033,5250,1243, & - 4471,5250,3196,4558,5250,3196,3918,5250,5251,5255,711,3196, & - 5250,711,5222,5255,542,2482,5250,5255,2482,3918,5251,5255, & - 2053,3739,5250,660,2053,5250,660,3914,5253,1953,2920,2920, & - 4857,5250,710,2920,5250,710,5193,5244,1953,4742,5250,1953, & - 5244,340,1953,5250,5255,1020,3705,5250,1020,1713,5250,1713, & - 3914,5255, 41,1713,5250,1850,3677,5250,747,1850,5250,747, & - 3911,5253,1854,4550,5250,1854,5231,5244,5250,592,1854,5250, & - 592,5231,5244,1443,3695,5250,1443,1606,5250,1606,3911,5255, & - 58,1606,5250,2488,4904,5250,3120,4498,5256,3120,4305,5250, & - 892,4011,5255,4011,4671,5252,5253,4011,4671,5253,5256,4011, & - 4671,1979,3679,5255,753,3679,5252,5253,753,3679,5253,5256, & - 753,3679,963,3714,5255, 82,3714,5252,5253, 82,3714,5253, & - 5256, 82,3714, 33,3714,1255,4303,5255,2668,4303,5252,5253, & - 2668,4303,5253,5256,2668,4303,1379,4200,5255,2963,4200,5252, & - 5253,2963,4200,5253,5256,2963,4200,1152,4073,5250,1152,4487, & - 5250,216,4101,5250,3455,4325,3455,4706,5250,3455,5210,5244, & - 5250,3094,3455,5250,3094,5210,5244,3094,5222,5255,1726,4325, & - 5250,5255,1726,5210,5244,5255,3281,4325,5250,4325,5199,5244, & - 5255,4325,5100,5244,3189,4506,5256,3189,4204,5250,1366,4039, & - 5255,4039,4676,5252,5253,4039,4676,5253,5256,4039,4676,2091, & - 4025,5255,555,4025,5252,5253,555,4025,5253,5256,555,4025, & - 1497,3769,5255, 65,3769,5252,5253, 65,3769,5253,5256, 65, & - 3769,103,3769,1144,4292,5255,2682,4292,5252,5253,2682,4292, & - 5253,5256,2682,4292,1190,4225,5255,2741,4225,5252,5253,2741, & - 4225,5253,5256,2741,4225,1421,4002,5250,1421,4509,5250,3181, & - 4464,5256,3181,4262,5250,1221,4036,5255,4036,4797,5252,5253, & - 4036,4797,5253,5256,4036,4797,2351,4076,5255,746,4076,5252, & - 5253,746,4076,5253,5256,746,4076,521,3675,5255,116,3675 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_89 = (/ & - 5252,5253,116,3675,5253,5256,318,3675,116,3675,273,3675, & - 1253,4246,5255,2588,4246,5252,5253,2588,4246,5253,5256,2588, & - 4246,1512,4304,5255,2604,4304,5252,5253,2604,4304,5253,5256, & - 2604,4304,1294,4057,5250,1294,4454,5250,3453,4877,5250,3453, & - 4708,5183,5250,1960,3453,5250,1960,5139,5233,5255,1928,4199, & - 5250,5255,4199,5038,5183,2485,4199,5250,5255,2485,4708,5183, & - 5255,2485,4728,5251,5255,1053,3713,5250,1053,3396,5250,3396, & - 3748,5253,259,3396,5255,1768,4661,5250,1768,5139,1768,3301, & - 5250,1898,3727,5250,792,1898,5250,792,3748,5255,1133,3748, & - 5250,5255,312,1133,5250,5255,3237,4966,5255,4966,5139,5250, & - 5251,4966,5139,5251,5252,5253,5255,2696,4966,5253,4966,5139, & - 5251,5253,5255,5256,4966,5139,5251,5255,891,3860,5250,891, & - 2897,5250,2897,4602,5139,5255,1293,4031,5255,2758,4031,5252, & - 5253,2758,4031,5253,5256,2758,4031,3187,4511,5256,3187,4205, & - 5250,1091,3999,5255,3999,4791,5252,5253,3999,4791,5253,5256, & - 3999,4791,1830,4381,5255,744,4381,5252,5253,744,4381,5253, & - 5256,744,4381,324,3711,5255, 97,3711,5252,5253, 97,3711, & - 5253,5256,323,3711, 97,3711,322,3711,1329,4237,5255,3421, & - 4237,5252,5253,3421,4237,5253,5256,3421,4237,860,4280,5255, & - 3579,4280,5252,5253,3579,4280,5253,5256,3579,4280,1539,4065, & - 5250,1539,4466,5250,1224,4775,1224,2492,5250,2492,4918,5233, & - 5255,4502,4775,5201,5256,4502,4775,5250,4775,5125,5233,5250, & - 5251,4775,5038,5125,4233,4775,5251,5255,622,4775,5250,5255, & - 622,2492,5255,1388,3772,5250,1388,3423,5250,3423,3773,5253, & - 448,3423,5255,2025,4689,5250,2025,4918,2025,3269,5250,1861, & - 3696,5250,620,1861,5250,620,3773,5255,911,3773,5250,5255, & - 485,911,5250,5255,3467,4792,5255,4792,4918,5250,5251,4792, & - 4918,5251,5252,5253,5255,3012,4792,5253,4792,4918,5251,5253, & - 5255,5256,4792,4918,5251,5255,1170,3973,5250,1170,2581,5250, & - 2581,4602,4918,5255,1840,3543,773,1840,5250,773,4622,5231 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_90 = (/ & - 402,3543,5250,5255,3543,4622,5201,5251,5256,3543,4622,5250, & - 5251,3543,4622,5251,5255,3178,4425,5256,3178,4194,5250,1308, & - 4021,5255,4021,4790,5252,5253,4021,4790,5253,5256,4021,4790, & - 2294,3738,5255,743,3738,5252,5253,743,3738,5253,5256,743, & - 3738,1359,3983,5255, 92,3983,5252,5253, 92,3983,5253,5256, & - 510,3983, 92,3983,509,3983,923,4307,5255,3395,4307,5252, & - 5253,3395,4307,5253,5256,3395,4307,878,4296,5255,3597,4296, & - 5252,5253,3597,4296,5253,5256,3597,4296,822,3997,5250,822, & - 4444,5250,1088,4815,1088,2949,5250,2949,4931,5233,5255,4424, & - 4815,5201,5256,4424,4815,5250,4227,4815,5251,5255,4815,5106, & - 5233,5250,5251,4815,5038,5106,659,4815,5250,5255,659,2949, & - 5255,1123,3774,5250,1123,3380,5250,3380,3775,5253,244,3380, & - 5255,1949,4688,5250,1949,4931,1949,3252,5250,2446,3762,5250, & - 716,2446,5250,716,3775,5255,1231,3775,5250,5255,356,1231, & - 5250,5255,3463,4864,5255,4864,4931,5250,5251,4864,4931,5251, & - 5252,5253,5255,2969,4864,5253,4864,4931,5251,5253,5255,5256, & - 4864,4931,5251,5255,974,3953,5250,974,3028,5250,3028,4602, & - 4931,5255,4379,4938,5244,1845,4379,5228,3191,4655,5256,3191, & - 4285,5250,1061,4034,5255,4034,4810,5252,5253,4034,4810,5253, & - 5256,4034,4810,1051,4212,5255,3016,4212,5252,5253,3016,4212, & - 5253,5256,3016,4212,1532,4193,5255,2586,4193,5252,5253,2586, & - 4193,5253,5256,2586,4193,1361,4023,5250,1361,4639,5250,2766, & - 4888,5250,2766,4938,5244,5250,2766,4379,3221,4938,5231,5250, & - 5251,5253,3221,4888,5253,1345,3975,5250,1345,2967,5250,2967, & - 4938,5222,5255,263,2967,5250,263,2967,5255,2262,3945,5250, & - 814,2262,5250,814,3726,5253,1252,3725,5250,1252,1680,5250, & - 1680,3726,5255, 46,1680,5250,2417,4416,5250,584,2417,5250, & - 584,3556,5253,928,4481,5250,928,1710,5250,1710,4938,5244, & - 63,1710,5250,1129,4480,5250,1129,1622,5250,1622,3556,5255, & - 38,1622,5250,264,4726,5250,2686,4674,5250,2686,3918,5244 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_91 = (/ & - 5250,2686,3578,5250,3578,3918,5244,3578,4938,5222,5255,1578, & - 3578,5250,1578,3918,5244,5255,3137,4643,5256,3137,4276,5250, & - 950,4044,5255,4044,4788,5252,5253,4044,4788,5253,5256,4044, & - 4788,2342,4323,5255,629,4323,5252,5253,629,4323,5253,5256, & - 629,4323,1062,3771,5255, 57,3771,5252,5253, 57,3771,5253, & - 5256, 57,3771, 90,3771,1459,4192,5255,2557,4192,5252,5253, & - 2557,4192,5253,5256,2557,4192,1187,4317,5255,2551,4317,5252, & - 5253,2551,4317,5253,5256,2551,4317,1003,4007,5250,1003,4670, & - 5250,483,4182,5250,877,4149,5255,2819,4149,5252,5253,2819, & - 4149,5253,5256,2819,4149,3143,4463,5256,3143,4289,5250,1452, & - 4040,5255,4040,4682,5252,5253,4040,4682,5253,5256,4040,4682, & - 2368,4153,5255,597,4153,5252,5253,597,4153,5253,5256,597, & - 4153,459,3770,5255,107,3770,5252,5253,107,3770,5253,5256, & - 373,3770,107,3770,267,3770,962,4210,5255,2566,4210,5252, & - 5253,2566,4210,5253,5256,2566,4210,1358,4314,5255,3004,4314, & - 5252,5253,3004,4314,5253,5256,3004,4314,1017,4054,5250,1017, & - 4413,5250,3190,4434,5256,3190,4245,5250,857,4061,5255,4061, & - 4632,5252,5253,4061,4632,5253,5256,4061,4632,2389,3680,5255, & - 798,3680,5252,5253,798,3680,5253,5256,798,3680,1435,3782, & - 5255, 78,3782,5252,5253, 78,3782,5253,5256, 78,3782, 93, & - 3782,1399,4312,5255,2818,4312,5252,5253,2818,4312,5253,5256, & - 2818,4312,1524,4252,5255,2599,4252,5252,5253,2599,4252,5253, & - 5256,2599,4252,844,4035,5250,844,4402,5250,1092,4534,1092, & - 3565,5250,3565,4728,5244,3565,5139,5222,5255,4534,5139,5222, & - 5250,5255,4534,5139,5244,5251,5255,4534,5183,5222,5251,5255, & - 576,4534,5250,5255,576,3565,5255,3152,4455,5256,3152,4232, & - 5250,1453,4072,5255,4072,4663,5252,5253,4072,4663,5253,5256, & - 4072,4663,1783,4535,5255,780,4535,5252,5253,780,4535,5253, & - 5256,780,4535,1412,3753,5255, 16,3753,5252,5253, 16,3753, & - 5253,5256, 16,3753,106,3753,1101,4297,5255,3065,4297,5252 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_92 = (/ & - 5253,3065,4297,5253,5256,3065,4297,1148,4287,5255,2575,4287, & - 5252,5253,2575,4287,5253,5256,2575,4287,1450,4064,5250,1450, & - 4499,5250,3723,5139,5244,2488,3723,5142,3005,4946,5250,3005, & - 3723,5250,3005,5139,5244,5250,3249,5139,5231,5250,5251,5253, & - 3249,4946,5253,1021,3853,5250,1021,2521,5250,2521,5139,5222, & - 5255,350,2521,5250,350,2521,5255,2267,3687,5250,550,2267, & - 5250,550,3896,5253,2923,3434,2923,4920,5250,641,2923,5250, & - 641,5191,5244,3434,4750,5250,3434,5183,5244,513,3434,5250, & - 5255,1530,3788,5250,1530,1745,5250,1745,3896,5255, 39,1745, & - 5250,2353,4050,5250,2353,3461,5250,387,3461,5253,997,4134, & - 5255,2905,4134,5252,5253,2905,4134,5253,5256,2905,4134,3526, & - 5152,5251,5255,3526,5152,5201,5251,5256,3526,5152,5250,5251, & - 2320,4209,5255,4209,5023,5250,4209,5023,5252,5253,5255,2498, & - 4209,5253,4209,5023,5253,5255,5256,4209,5023,5255,494,5232, & - 5250,494,5232,5255,3350,5232,5250,5251,3350,5232,5251,5255, & - 2335,3154,5250,5253,3154,4460,5250,3154,4909,5233,5253,5255, & - 1684,5188,5232,2335,5036,5251,5255,2335,5036,5250,5251,2105, & - 4208,5255,4208,5222,5250,5253,5255,4208,5222,5252,5253,1184, & - 4208,5253,4208,5222,5253,5256,4208,5222,5253,3470,5016,5251, & - 5255,3470,4548,5201,5256,3470,4548,5250,3501,3514,5251,3250, & - 3501,3501,3514,5250,5251,5255,3501,5222,5234,5250,3240,3514, & - 5250,5251,5253,2249,3240,5253,2249,5222,5234,5250,386,4129, & - 5250,386,5047,4677,5180,5251,4677,5180,5252,5253,4677,5180, & - 5253,5256, 3,4677,5180,5254,4677,5046,5180,2783,4677,4551, & - 5188,5251,4551,5188,5252,5253,4551,5188,5253,5256, 3,4551, & - 5188,5254,4551,5046,5188,4294,5172,5250,4294,5244,5250,131, & - 5172,5250,3261,4180,5255,2085,4180,5252,5253,2085,4180,5253, & - 5256,2085,4180,2138,5188,5250,5251,5255,2616,5188,5250,5251, & - 5255,2616,3993,5251,3204,5025,5253,3204,3993,5250,5251,5256, & - 2392,3993,5251,2392,3064,5250,2382,3443,5250,5255,3443,5188 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_93 = (/ & - 5233,5253,5255,3064,5188,5233,5255, 48,4861,5250, 21,4861, & - 5250,5040,5221,5251,5040,5221,5252,5253,5040,5221,5253,5256, & - 3,5040,5221,5254,3334,5040,5040,5046,5221,3625,3635,1625, & - 3625,5250,5255,3625,5074,5250,1748,3625,5250,1603,4066,5250, & - 5255,1991,4066,5250,5255,1748,5188,5234,5253,2243,3635,5250, & - 5255,3635,5188,5232,5253,2101,4256,5250,5255,2101,3635,5250, & - 5255,2590,4256,2590,5154,5250,261,2590,5250,261,4378,5255, & - 3454,4936,5251,5255,3454,4539,5201,5256,3454,4539,5250,3286, & - 3330,5251,3286,5188,5233,5250,3286,3330,5250,5251,5255,3273, & - 3330,5250,5251,5253,1967,3273,5253,1967,5188,5233,5250, 67, & - 5216,5250,3618,4982,5255,1891,4982,5252,5253,1891,4982,5253, & - 5256,1891,4982,3449,4229,5250,3449,4749,5251,5255,1848,3449, & - 5250,1848,4383,5233,5255,1242,5234,5244,5250,2554,5234,5244, & - 5250,2554,4564,5251,3197,5033,5253,3197,4564,5250,5251,5256, & - 3201,3514,5250,5251,5255,1955,3201,5250,1955,5222,5234,5255, & - 3549,4228,5250,3549,5222,5234,5253,5255,2109,2662,5250,2109, & - 4564,5251,2491,4378,5250,5255,4378,5075,5250,4378,5222,5234, & - 5253,5255,2662,5222,5234,5255, 62,2662,5250,4247,5225,5251, & - 4247,5225,5252,5253,4247,5225,5253,5256, 3,4247,5225,5254, & - 4247,5046,5225,1651,3485,5250,5255,3485,5022,5250,3485,3700, & - 5250,3700,5188,5234,5253,3700,5225,5231,5255,302,3549,5250, & - 5255,1684,3550,5250,3550,5188,5232,5250,3550,5134,5250,3250, & - 3550,5250,5255,1575,4958,5250,5251,5255,1575,4658,5250,1981, & - 4958,5251,5253,5255,1981,4518,5250,3160,5152,5188,5253,123, & - 3160,5250,5255,2243,3160,5250,5253,1685,4958,5251,5255,1685, & - 4657,5250,1425,5167,5255,5258,2570,5167,5255,5167,5221,5250, & - 5167,5221,5252,5253,5255,2606,5167,5253,1425,5167,5167,5221, & - 5255,2230,3621,3621,5091,5250,217,3621,2770,3621,5250,2354, & - 4599,5250,2354,2770,5253,2770,5024,5231,5255,2230,3864,5250, & - 2230,5231,5232,226,2230,5250,5255,4816,5024,5201,5256,2038 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_94 = (/ & - 5023,5024,5258,701,5024,5231,5258,4816,5024,5250,3837,5024, & - 5250,899,4613,5255,4613,4614,5250,5255,4613,4614,5252,5253, & - 2663,4613,5253,4613,4614,5253,5256,4613,4614,3128,4614,5255, & - 2810,4614,5255,2664,4614,5252,1593,4614,5252,5253,1593,4614, & - 5253,5256,3128,4614,473,4614,1593,4614,908,4211,5255,2827, & - 4211,5252,5253,2827,4211,5253,5256,2827,4211,2976,4612,5250, & - 2976,3128,1597,2976,5250,3128,5244,5250,2764,3128,5250,5253, & - 1597,2764,5253,1597,5193,5255,512,3128,5250,5255,229,3972, & - 5250,5255,5105,5197,5251,5255,5105,5214,5244,5105,5171,5201, & - 5256,5105,5171,5250,3259,4106,5255,3281,4106,5252,5253,3281, & - 4106,5253,5256,3281,4106,1884,4348,5255,1321,4348,5252,2972, & - 4348,5252,5253,2972,4348,5253,5256,3861,4348,2972,4348,348, & - 4348, 77,4631,5250,434,5079,5255,5258,1041,5079,5255,5060, & - 5079,5250,5255,5060,5079,5252,5253,3275,5079,5253,5060,5079, & - 5253,5256,434,5079,5060,5079,4552,4926,5250,5255,2381,4926, & - 5255,5258,1893,4926,5255,4552,4926,5252,5253,3408,4926,5253, & - 4552,4926,5253,5256,4552,4926,2381,4926,1762,4552,5255,729, & - 4552,5252,5253,729,4552,5253,5256,729,4552,1901,4768,5255, & - 786,4768,5252,5253,786,4768,5253,5256,786,4768,3247,5214, & - 5255,5258,1319,5214,5255,5214,5235,5250,5255,5214,5235,5252, & - 5253,2804,5214,5253,5214,5235,5253,5256,3247,5214,5214,5235, & - 2360,3954,5255,672,3954,5252,5253,672,3954,5253,5256,672, & - 3954,992,3717,5255, 80,3717,5252,5253, 80,3717,5253,5256, & - 80,3717,931,4124,5250,450,931,5250,2892,4493,5160,5250, & - 5253,450,2892,5253,450,4189,366,450,5250,366,450,5255, & - 2423,3905,5255,541,3905,5252,5253,541,3905,5253,5256,541, & - 3905,1353,3955,5250,1353,2452,5250,2742,4493,5160,5250,5253, & - 2452,2742,5253,2452,3668,5160,354,2452,5250,354,2452,5255, & - 1608,5021,1608,4545,1489,1608,5250,1489,1608,5255,864,4910, & - 5250,864,1608,5250,3223,5086,5160,5250,5251,5253,3223,4910 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_95 = (/ & - 5253,1437,4830,5250,1437,4898,5250,990,4898,5250,990,4898, & - 5255,2850,3559,5250,5251,5253,2850,4830,5253,1383,4898,5250, & - 146,1383,5250,146,3761,1324,3741,5250,300,1324,5250,300, & - 4580,300,454,5250,300,454,5255,919,4288,5250,919,4257, & - 5250,2143,3307,5250,5251,5253,3307,4288,5253,2143,4257,5250, & - 138,2143,5250,138,4290,1147,4092,5250,1147,1572,5250,1311, & - 5159,5250,5253,1572,5159,5255, 24,1572,5250,1197,4173,5250, & - 407,1197,5250,3081,5160,5182,5250,5253,407,3081,5253,407, & - 4119,365,407,5250,365,407,5255,561,562,201,562,5250, & - 561,1284,5250,5253,201,1284,5253,201,3710,561,3710,5250, & - 303,561,5250,5255,1492,3947,1492,2722,5250,1933,3947,5250, & - 5253,1933,2722,5253,2722,3947,5255,2722,4166,3947,4484,5201, & - 5256,3947,4484,5250,3947,4077,5251,5255,427,3947,5250,5255, & - 1442,4664,5255,5258,859,4664,5255,4664,4900,5250,5255,4664, & - 4900,5252,5253,2636,4664,5253,4664,4900,5253,5256,1442,4664, & - 4664,4900,1266,3981,5250,1266,2207,5250,1696,2943,5160,5250, & - 5253,2207,2943,5253,2207,3706,5160, 79,2207,5250,1093,4545, & - 5255,2661,4545,5252,443,4545,5252,5253,443,4545,5253,5256, & - 443,4545,442,4545,1517,3876,5250,1517,2962,5250,2962,5176, & - 5231,5253,587,5176,5231,5250,5253,1351,4987,5255,1689,4987, & - 5252,5253,1689,4987,5253,5256,1689,4987,1676,4987,1424,4849, & - 5255,4849,5196,5250,5255,2340,4849,5255,5258,4849,5196,5252, & - 5253,2533,4849,5253,4849,5196,5253,5256,4849,5196,2340,4849, & - 1260,5196,5255,2458,5196,5252,182,5196,5252,5253,182,5196, & - 5253,5256,2377,5196,182,5196,821,5196,1371,3850,5250,1371, & - 2997,5250,1835,5176,5231,5250,5253,2997,5176,5231,5255,556, & - 5176,5231,5250,5255,1071,3840,5255,2495,3840,5252,5253,2495, & - 3840,5253,5256,2495,3840,311,3840,4842,5017,5201,5256,4842, & - 5017,5250,4842,5084,5251,5255, 27,4236,5250,1012,3985,5255, & - 2378,3985,5252,2512,3985,5252,5253,2512,3985,5253,5256,2512 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_96 = (/ & - 3985,317,3985,1237,4197,5255,2155,4197,5252,180,4197,5252, & - 5253,180,4197,5253,5256,4197,5095,180,4197,1087,4197,5250, & - 1087,4197,5255,1047,4855,5250,1047,4197,5250,2879,5095,5250, & - 5251,5253,2879,4855,5253,1605,3962,1605,4638,457,1605,5250, & - 1325,4953,5250,1325,1605,5250,2958,5083,5250,5251,5253,2958, & - 4953,5253,2071,2273,728,2071,5250,728,5095,5244,2273,3839, & - 5250,2273,5006,5244,219,2273,5250,5255,1447,4891,5250,1447, & - 4781,5250,2947,3629,5250,5251,5253,2947,4891,5253,1487,3907, & - 5250,1487,3335,5250,2377,3335,5231,5255,1318,3629,1318,3390, & - 5250,3390,3629,5255,3390,5226,5246,1990,3969,5250,649,1990, & - 5250,649,5176,5253,1706,1995,5250,5253,2305,4145,5255,679, & - 4145,5252,5253,679,4145,5253,5256,2265,4145,1586,4145,2022, & - 4135,5255,619,4135,5252,5253,619,4135,5253,5256,2141,4135, & - 619,4135,1615,4135,4824,5176,5251,4824,5176,5252,5253,4824, & - 5176,5253,5256, 3,4824,5176,5254,2340,4824,4824,5046,5176, & - 2407,3872,5250,549,2407,5250,1151,5176,5250,5253,549,5176, & - 5255,1384,1706,5250,5255,1706,1973,721,1973,5250,721,5176, & - 5255,1706,4849,5250,1843,2439,703,2439,5250,703,5131,5182, & - 1843,5131,5182,5250,1843,5131,5214,281,1843,5250,5255,1182, & - 4921,5250,1182,4940,5250,2860,3242,5250,5251,5253,2860,4921, & - 5253,1950,2119,658,1950,5250,1950,5240,5244,5250,658,5240, & - 5244,2119,5240,5244,5250,2119,4738,5244,1668,2119,5250,5255, & - 1668,5240,5244,5255,1863,2315,585,1863,5250,1863,5052,5231, & - 5250,585,5052,5231,2315,5052,5250,5251,2315,5052,5251,5255, & - 1687,2315,5250,5255,1687,5052,5231,5255,1828,2737,1769,2737, & - 5250,2737,3242,5250,5251,5255,1769,3242,5251,5255,1828,5247, & - 5250,5251,1828,5247,5251,5255,1619,1828,5250,5255,1619,3242, & - 5251,5255,1523,3242,189,1523,5250,2165,3242,5250,5253,189, & - 2165,5253,189,5247,3242,5247,5250,413,3242,5250,5255,1372, & - 1373,726,1373,5250,726,3247,5131,1372,3247,5131,5250,440 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_97 = (/ & - 1372,5250,5255,251,4088,5250,900,5014,5250,900,4088,5250, & - 1628,2648,5250,5251,5253,2648,5014,5253,1624,5041,1624,4679, & - 496,1624,5250,1407,4989,5250,1407,1624,5250,2685,5207,5250, & - 5251,5253,2685,4989,5253,1900,1913,724,1900,5250,724,4431, & - 5182,1913,4431,5182,5250,1913,4431,5214,371,1913,5250,5255, & - 949,2909,159,949,5250,2079,2909,5250,5253,159,2079,5253, & - 159,3890,462,2909,5250,5255,1502,3928,5250,1502,2832,5250, & - 2832,5231,5240,5253,692,5231,5240,5250,5253,507,4738,5255, & - 5258,1454,4738,5255,4043,4738,5250,5255,4043,4738,5252,5253, & - 2781,4738,5253,4043,4738,5253,5256,507,4738,4043,4738,830, & - 4043,5255,1657,4043,5252,149,4043,5252,5253,149,4043,5253, & - 5256,1656,4043,149,4043,467,4043,4258,5240,5251,4258,5240, & - 5252,5253,4258,5240,5253,5256, 3,4258,5240,5254,4258,5046, & - 5240,1868,4176,5255,618,4176,5252,5253,618,4176,5253,5256, & - 2154,4176,618,4176,377,4176,1183,3886,5250,1183,2746,5250, & - 2325,5231,5240,5250,5253,2746,5231,5240,5255,127,2746,5250, & - 1286,1628,187,1286,5250,1628,1629,5250,5253,187,1629,5253, & - 187,4764,1628,4764,5250,248,1628,5250,5255,930,4745,5250, & - 930,3564,5250,970,4394,5250,326,970,5250,2239,3497,5250, & - 5253,326,2239,5253,326,4363, 87,326,5250,1862,3844,5250, & - 673,1862,5250,673,5248,5253,1738,2288,5250,5253,1195,5114, & - 5255,2250,5114,5252,183,5114,5252,5253,183,5114,5253,5256, & - 5114,5240,183,5114,452,5114,2098,3920,5250,730,2098,5250, & - 1334,5248,5250,5253,730,5248,5255,1056,1738,5250,5255,1738, & - 2266,663,2266,5250,663,5248,5255,1738,4921,5250,2319,4973, & - 5250,5255,2319,4243,5250,2678,4243,5253,2678,4973,5250,5251, & - 5253,2144,5071,5250,5255,2144,4260,5250,2677,4260,5253,2677, & - 5071,5250,5251,5253,5182,5235,5251,5255,5182,5201,5214,5256, & - 5182,5214,5250,958,4957,5255,2868,4957,5255,4015,4957,5250, & - 5255,4015,4957,5252,5253,2546,4957,5253,4015,4957,5253,5256 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_98 = (/ & - 958,4957,4015,4957,1279,4015,5255, 44,4015,5252,5253, 44, & - 4015,5253,5256, 44,4015,2797,3992,5255,2145,3992,5252,5253, & - 2145,3992,5253,5256,2145,3992,1397,4042,5255, 96,4042,5252, & - 5253, 96,4042,5253,5256, 96,4042,258,4995,5250,1475,4995, & - 5250,1475,4962,5250,2786,4962,5253,2786,5184,5250,5251,5253, & - 909,4263,5250,909,2865,5250,2865,5231,5234,5255,3358,5231, & - 5250,5251,5253,3358,5172,5253,3387,4795,5255,5258,3515,4795, & - 5255,4795,5233,5250,4795,5233,5252,5253,5255,3401,4795,5253, & - 4795,5233,5253,5255,5256,3387,4795,4795,5233,5255,301,5179, & - 5255,5258,1471,5179,5255,5179,5246,5250,5255,5179,5246,5252, & - 5253,2886,5179,5253,5179,5246,5253,5256,301,5179,5179,5246, & - 207,5150,5250,1042,5150,5250,1042,4848,5250,2884,4848,5253, & - 2884,5055,5250,5251,5253,420,4662,5255,5258,1055,4662,5255, & - 4662,4870,5250,5255,4662,4870,5252,5253,2978,4662,5253,4662, & - 4870,5253,5256,420,4662,4662,4870,1074,5062,5250,1074,4412, & - 5250,2885,4412,5253,2885,5071,5250,5251,5253,1204,2589,5250, & - 1204,3759,2270,2589,5253,2270,3759,5250,5253,2589,5143,5231, & - 5255,590,2589,5255,590,3759,5250,5255,1440,4866,5255,5258, & - 945,4866,5255,4866,5161,5250,5255,4866,5161,5252,5253,2842, & - 4866,5253,4866,5161,5253,5256,1440,4866,4866,5161,376,5185, & - 5250,1448,5185,5250,1448,4623,5250,2843,4623,5253,2843,4872, & - 5250,5251,5253,2553,3284,5250,2553,4561,5250,2553,3336,5250, & - 5255,2814,3284,5253,2814,5188,5222,5250,5253,282,4979,5255, & - 5258,983,4979,5255,4979,5151,5250,5255,4979,5151,5252,5253, & - 2822,4979,5253,4979,5151,5253,5256,282,4979,4979,5151,3336, & - 4546,5255,3255,4546,5252,5253,3255,4546,5253,5256,3255,4546, & - 3547,4546,1490,2646,5250,1490,4391,1978,2646,5253,1978,4391, & - 5250,5253,2646,4778,2646,4391,5255,289,4391,5250,5255,479, & - 5120,5250,1090,5120,5250,1090,4934,5250,2846,4934,5253,2846, & - 4391,5250,5251,5253,674,2730,5250,2730,4949,5193,5250,2730 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_99 = (/ & - 3057,2730,4911,5250,674,4949,5193,3057,5106,5244,3057,3513, & - 5250,5255,1659,4949,5193,5255,1659,3057,5250,5255,1327,4852, & - 5250,1327,4517,5250,2844,4517,5253,2844,4618,5250,5251,5253, & - 240,5148,5250,845,5148,5250,845,4629,5250,2848,4629,5253, & - 2848,5057,5250,5251,5253,1213,3013,5250,1213,4279,2256,3013, & - 5253,2256,4279,5250,5253,3013,5160,5182,5255,4279,4549,5251, & - 5255,4279,4984,5201,5256,4279,4984,5250,554,3013,5255,554, & - 4279,5250,5255,1323,2982,5250,1323,3780,2253,2982,5253,2253, & - 3780,5250,5253,2982,5026,5231,5255,651,2982,5255,651,3780, & - 5250,5255,3780,5098,5232,805,3780,5250,5255,230,4642,5255, & - 5258,988,4642,5255,4642,5097,5250,5255,4642,5097,5252,5253, & - 2787,4642,5253,4642,5097,5253,5256,230,4642,4642,5097,449, & - 5116,5250,1291,5116,5250,1291,4665,5250,3025,4665,5253,3025, & - 4737,5250,5251,5253,1499,2644,5250,1499,4357,5250,2514,2644, & - 5253,2514,4973,5233,5250,5253,2644,5193,5242,5255,284,2644, & - 5255,284,2644,5250,1191,1607,5250,1191,2197,1607,5008,5231, & - 664,1607,5255,664,3780,5250,5255,2197,5008,5251,5255,2197, & - 5008,5250,1677,2426,5250,2426,4938,5244,5250,2426,3948,5250, & - 1677,4938,5244,1637,4938,5244,5255,1637,1677,5250,456,4844, & - 5250,1547,4844,5250,1547,5090,5250,3311,5090,5253,3311,4973, & - 5231,5250,5251,5253,1552,1907,5250,1907,4058,5250,1907,4501, & - 1552,2419,5253,2419,4501,5250,5253,1552,4501,5255,346,4501, & - 5250,5255,4501,5060,5251,5255,4501,5079,5201,5256,4501,5079, & - 5250,329,4058,5250,975,4058,5250,975,4500,5250,2669,4500, & - 5253,2669,4501,5250,5251,5253,519,4310,5250,1477,4310,5250, & - 1477,4523,5250,2778,4523,5253,2778,4524,5250,5251,5253,1441, & - 4573,5255,1963,4573,5252,2826,4573,5252,5253,2826,4573,5253, & - 5256,2826,4573,636,4573,3537,4573,1908,4566,5255,778,4566, & - 5252,5253,778,4566,5253,5256,3124,4566,778,4566,1548,4566, & - 3078,4584,5255,564,4584,5252,5253,564,4584,5253,5256,1832 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_100 = (/ & - 4584,564,4584,1690,4584,596,1937,5250,1937,5136,5193,5250, & - 1937,3912,5250,596,5136,5193,534,2016,5250,2016,3941,5250, & - 534,4419,5231,1145,2697,5250,1145,3126,2282,2697,5253,2282, & - 3126,5250,5253,2697,5160,5242,5255,3126,5241,5243,3126,4235, & - 5250,758,2697,5255,758,3126,5250,5255,734,3528,5250,3528, & - 5057,5244,5250,1826,3528,3528,4967,5250,734,5129,5222,1826, & - 5101,5244,1826,4235,5250,1557,5057,5244,5255,1557,1826,5250, & - 5255,2981,4802,5255,2999,4802,5252,3000,4802,5252,5253,3000, & - 4802,5253,5256,3000,4802,1633,4802,2084,4309,5255,1723,4309, & - 5252,5253,1723,4309,5253,5256,1723,4309,1722,4309,2625,4811, & - 5255,638,4811,5252,5253,638,4811,5253,5256,638,4811,1632, & - 4811,2910,4811,571,2095,5250,2095,3871,5250,571,4874,5231, & - 200,2331,5250,2331,4537,2331,4251,5250,200,1829,5253,1829, & - 4537,5250,5253,200,4890,306,4537,5250,5255,4537,4959,5251, & - 5255,4537,4874,5201,5256,4537,4874,5250,280,4251,5250,1196, & - 4251,5250,1196,5088,5250,2496,5088,5253,2496,4537,5250,5251, & - 5253,1136,3009,5250,1136,3504,2185,3009,5253,2185,3504,5250, & - 5253,3009,5143,5191,5255,807,3009,5255,807,3504,5250,5255, & - 3504,5137,5191,5255,3086,3504,5250,5255,1839,4369,5255,745, & - 4369,5252,5253,745,4369,5253,5256,745,4369,1571,4369,3086, & - 4369,539,2316,5250,2316,3977,5250,539,4521,5193,1446,2642, & - 5250,1446,3522,2124,2642,5253,2124,3522,5250,5253,2642,5143, & - 5230,5255,3522,5137,5230,5255,3151,3522,5250,5255,616,2642, & - 5255,616,3522,5250,5255,2052,4349,5255,722,4349,5252,5253, & - 722,4349,5253,5256,722,4349,1707,4349,3151,4349,791,2027, & - 5250,2027,3881,5250,791,4430,5193,1115,2760,5250,1115,4270, & - 5250,2760,5162,5231,5255,967,2594,5250,967,3544,2245,2594, & - 5253,2245,3544,5250,5253,2594,5143,5165,5255,3544,5137,5165, & - 5255,3183,3544,5250,5255,671,2594,5255,671,3544,5250,5255, & - 2059,4389,5255,698,4389,5252,5253,698,4389,5253,5256,698 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_101 = (/ & - 4389,1744,4389,3183,4389,776,2298,5250,2298,3919,5250,776, & - 4443,5193,1122,2874,5250,1122,4254,5250,2874,4710,5231,5255, & - 1526,2638,5250,1526,3493,2330,2638,5253,2330,3493,5250,5253, & - 2638,5143,5162,5255,3493,5137,5162,5255,3184,3493,5250,5255, & - 804,2638,5255,804,3493,5250,5255,2121,4361,5255,570,4361, & - 5252,5253,570,4361,5253,5256,570,4361,1740,4361,3184,4361, & - 528,2411,5250,2411,3916,5250,528,4450,5193,1398,2676,5250, & - 1398,4238,5250,2676,4710,5193,5255,1543,2562,5250,1543,3548, & - 2271,2562,5253,2271,3548,5250,5253,2562,4710,5143,5255,3548, & - 4710,5137,5255,3185,3548,5250,5255,762,2562,5255,762,3548, & - 5250,5255,474,4850,5255,5258,1114,4850,5255,4850,4942,5250, & - 5255,4850,4942,5252,5253,2726,4850,5253,4850,4942,5253,5256, & - 474,4850,4850,4942,2221,4355,5255,575,4355,5252,5253,575, & - 4355,5253,5256,575,4355,1674,4355,3185,4355,574,2205,5250, & - 2205,3880,5250,574,4417,5193,1478,3580,1478,1998,5250,3015, & - 3580,5250,5253,1998,3015,5253,1998,4883,5255,408,3580,5250, & - 5255,1947,4284,5250,777,1947,5250,777,5152,5231,4651,5201, & - 5235,5251,5256,4651,5235,5250,5251,4651,5235,5251,5255,331, & - 1040,5250,5253,110,5235,5250,1192,5059,5255,141,5059,5252, & - 5253,141,5059,5253,5256,246,5059,141,5059,1483,5059,934, & - 4467,5255,3370,4467,5252,5253,3370,4467,5253,5256,3370,4467, & - 1508,4271,5255,2577,4271,5252,5253,2577,4271,5253,5256,2577, & - 4271,1427,4067,5250,1427,4859,5250,979,4195,5250,979,2535, & - 5250,2535,3478,4796,5253,1105,4273,5250,1105,2731,5250,2731, & - 3478,4796,5255,1943,4163,5250,535,1943,5250,535,3571,5253, & - 490,491,130,491,5250,130,4308,490,4308,5250,212,490, & - 5250,5255,2046,3685,5250,816,2046,5250,816,3783,5253,455, & - 518, 14,518,5250, 14,4221,455,4221,5250,372,455,5250, & - 5255,1376,4458,5255,3375,4458,5252,5253,3375,4458,5253,5256, & - 3375,4458,835,4306,5255,3036,4306,5252,5253,3036,4306,5253 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_102 = (/ & - 5256,3036,4306,1230,4022,5250,1230,4798,5250,1096,4265,5250, & - 1096,2536,5250,2536,4507,4796,5253,1322,4217,5250,1322,3001, & - 5250,3001,4507,4796,5255,3484,5201,5244,5251,5256,3484,5244, & - 5250,5251,3484,5244,5251,5255,4472,5018,5201,5256,4472,5018, & - 5250,4929,5018,5251,5255,2107,4929,5250,693,2107,5250,693, & - 5231,5244, 56,4929,5250,3535,4669,5250,3535,5241,5244,1117, & - 4188,5255,2739,4188,5252,5253,2739,4188,5253,5256,2739,4188, & - 977,4415,5255,3402,4415,5252,5253,3402,4415,5253,5256,3402, & - 4415,1420,4298,5255,2935,4298,5252,5253,2935,4298,5253,5256, & - 2935,4298,978,4006,5250,978,4690,5250,2093,4327,5250,809, & - 2093,5250,809,3729,5253,397,398,120,398,5250,120,4241, & - 397,4241,5250,299,397,5250,5255,1104,4293,5250,1104,2918, & - 5250,2918,4507,4693,5253,917,4291,5250,917,2641,5250,2641, & - 4507,4693,5255,542,4202,5250,542,4557,5244,3914,4770,5201, & - 5256,3914,4770,5250,3914,4857,5251,5255,2769,4742,5255,2430, & - 4742,5252,5253,2430,4742,5253,5256,2430,4742,3911,4808,5201, & - 5256,3911,4808,5250,3911,4550,5251,5255,994,4904,5255,170, & - 4904,5252,5253,170,4904,5253,5256,170,4904, 53,4904,1342, & - 4498,5255,3371,4498,5252,5253,3371,4498,5253,5256,3371,4498, & - 913,4305,5255,2986,4305,5252,5253,2986,4305,5253,5256,2986, & - 4305,892,4011,5250,892,4671,5250,1979,3679,5250,753,1979, & - 5250,753,3742,5253,963,3714,5250, 82,963,5250, 82,4253, & - 33,4253,5250,1255,4303,5250,1255,2668,5250,2668,4507,4693, & - 5253,1379,4200,5250,1379,2963,5250,2963,4507,4693,5255,1426, & - 4101,5255,3400,4101,5252,5253,3400,4101,5253,5256,3400,4101, & - 3281,5222,5244,5251,1472,4506,5255,3347,4506,5252,5253,3347, & - 4506,5253,5256,3347,4506,1278,4204,5255,2733,4204,5252,5253, & - 2733,4204,5253,5256,2733,4204,1366,4039,5250,1366,4676,5250, & - 2091,4025,5250,555,2091,5250,555,3595,5253,1497,3769,5250, & - 65,1497,5250, 65,4013,103,4013,5250,1144,4292,5250,1144 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_103 = (/ & - 2682,5250,2682,4507,4693,5253,1190,4225,5250,1190,2741,5250, & - 2741,4507,4693,5255,1169,4464,5255,3329,4464,5252,5253,3329, & - 4464,5253,5256,3329,4464,825,4262,5255,2903,4262,5252,5253, & - 2903,4262,5253,5256,2903,4262,1221,4036,5250,1221,4797,5250, & - 2351,4076,5250,746,2351,5250,746,3732,5253,318,521,116, & - 521,5250,116,4046,318,4046,5250,273,318,5250,5255,1253, & - 4246,5250,1253,2588,5250,2588,3541,4796,5253,1512,4304,5250, & - 1512,2604,5250,2604,3541,4796,5255,1928,4404,5250,1928,5183, & - 5251,5255,1928,3809,5183,5251,3748,4661,5201,5251,5256,3748, & - 4661,5250,5251,3748,4661,5251,5255,259,1133,5250,5253,3237, & - 4966,5250,3237,4983,5183,5255,3237,5139,5250,5255,2696,5139, & - 5250,5251,5253,2696,4966,5253,1293,4031,5250,1293,2758,5250, & - 2758,4622,5231,5251,1309,4511,5255,3574,4511,5252,5253,3574, & - 4511,5253,5256,3574,4511,1504,4205,5255,3361,4205,5252,5253, & - 3361,4205,5253,5256,3361,4205,1091,3999,5250,1091,4791,5250, & - 1830,4381,5250,744,1830,5250,744,3673,5253,323,324, 97, & - 324,5250, 97,4536,323,4536,5250,322,323,5250,5255,1329, & - 4237,5250,1329,3421,5250,2548,3421,4796,5253,860,4280,5250, & - 860,3579,5250,2548,3579,4796,5255,2228,4502,5255,4233,4502, & - 5250,4233,4502,5252,5253,5255,2538,4502,5253,4233,4502,5253, & - 5255,5256,4233,4502,5255,4233,5125,5201,5251,5256,4233,5125, & - 5250,5251,4233,5125,5251,5255,3773,4689,5201,5251,5256,3773, & - 4689,5250,5251,3773,4689,5251,5255,448,911,5250,5253,3467, & - 4792,5250,3467,4983,5125,5255,3467,4918,5251,5255,3012,4918, & - 5250,5251,5253,3012,4792,5253,1118,4425,5255,3596,4425,5252, & - 5253,3596,4425,5253,5256,3596,4425,1025,4194,5255,3414,4194, & - 5252,5253,3414,4194,5253,5256,3414,4194,1308,4021,5250,1308, & - 4790,5250,2294,3738,5250,743,2294,5250,743,3787,5253,510, & - 1359, 92,1359,5250, 92,4536,510,4218,5250,509,510,5250, & - 5255,923,4307,5250,923,3395,5250,2854,3395,4796,5253,878 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_104 = (/ & - 4296,5250,878,3597,5250,2854,3597,4796,5255,4227,4424,5250, & - 2120,4424,5255,4227,4424,5252,5253,5255,2929,4424,5253,4227, & - 4424,5253,5255,5256,4227,4424,5255,4227,5106,5201,5251,5256, & - 4227,5106,5250,5251,4227,5106,5251,5255,3775,4688,5201,5251, & - 5256,3775,4688,5250,5251,3775,4688,5251,5255,244,1231,5250, & - 5253,3463,4864,5250,3463,4983,5125,5255,3463,4931,5250,5251, & - 5255,2969,4931,5250,5251,5253,2969,4864,5253,1845,3937,5256, & - 1845,3746,5250,869,4655,5255,3363,4655,5252,5253,3363,4655, & - 5253,5256,3363,4655,1166,4285,5255,2736,4285,5252,5253,2736, & - 4285,5253,5256,2736,4285,1061,4034,5250,1061,4810,5250,1051, & - 4212,5250,1051,3016,5250,3016,4331,4693,5253,1532,4193,5250, & - 1532,2586,5250,2586,4331,4693,5255,3556,4481,5250,3556,5098, & - 5244,1455,4726,5255,3406,4726,5252,5253,3406,4726,5253,5256, & - 3406,4726,888,4643,5255,3381,4643,5252,5253,3381,4643,5253, & - 5256,3381,4643,1273,4276,5255,2952,4276,5252,5253,2952,4276, & - 5253,5256,2952,4276,950,4044,5250,950,4788,5250,2342,4323, & - 5250,629,2342,5250,629,3593,5253,1062,3771,5250, 57,1062, & - 5250, 57,4324, 90,4324,5250,1459,4192,5250,1459,2557,5250, & - 2557,4331,4693,5253,1187,4317,5250,1187,2551,5250,2551,4331, & - 4693,5255,1393,4182,5255,2768,4182,5252,5253,2768,4182,5253, & - 5256,2768,4182,877,4149,5250,877,2819,5250,2819,5231,5244, & - 5251,1045,4463,5255,3362,4463,5252,5253,3362,4463,5253,5256, & - 3362,4463,1029,4289,5255,2598,4289,5252,5253,2598,4289,5253, & - 5256,2598,4289,1452,4040,5250,1452,4682,5250,2368,4153,5250, & - 597,2368,5250,597,3709,5253,373,459,107,459,5250,107, & - 4154,373,4154,5250,267,373,5250,5255,962,4210,5250,962, & - 2566,5250,2566,4403,4507,5253,1358,4314,5250,1358,3004,5250, & - 3004,4403,4507,5255,1223,4434,5255,3417,4434,5252,5253,3417, & - 4434,5253,5256,3417,4434,972,4245,5255,2995,4245,5252,5253, & - 2995,4245,5253,5256,2995,4245,857,4061,5250,857,4632,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_105 = (/ & - 2389,3680,5250,798,2389,5250,798,3968,5253,1435,3782,5250, & - 78,1435,5250, 78,4441, 93,4441,5250,1399,4312,5250,1399, & - 2818,5250,2818,4403,4507,5253,1524,4252,5250,1524,2599,5250, & - 2599,4403,4507,5255,1030,4455,5255,3388,4455,5252,5253,3388, & - 4455,5253,5256,3388,4455,1423,4232,5255,2937,4232,5252,5253, & - 2937,4232,5253,5256,2937,4232,1453,4072,5250,1453,4663,5250, & - 1783,4535,5250,780,1783,5250,780,3681,5253,1412,3753,5250, & - 16,1412,5250, 16,4299,106,4299,5250,1101,4297,5250,1101, & - 3065,5250,3065,4403,4507,5253,1148,4287,5250,1148,2575,5250, & - 2575,4403,4507,5255,3896,4977,5201,5256,3896,4977,5250,3896, & - 4920,5251,5255,1215,4750,5255,2820,4750,5252,5253,2820,4750, & - 5253,5256,2820,4750,387,4052,5250,997,4134,5250,997,2905, & - 5250,2905,5193,5244,5251,2320,5023,5250,5255,2320,4209,5250, & - 2498,4209,5253,2498,5023,5250,5251,5253,1457,4460,5255,5258, & - 2429,4460,5255,3929,4460,5250,5253,5255,3929,4460,5252,5253, & - 2705,4460,5253,3929,4460,5253,5256,1457,4460,3929,4460,5253, & - 2105,4208,5250,2105,5222,5250,5253,1184,4208,5250,1184,4208, & - 5253,4548,5016,5250,5255,1249,4548,5255,4548,5016,5252,5253, & - 2655,4548,5253,4548,5016,5253,5256,4548,5016,3250,5080,5250, & - 5251,5255,3250,5222,5232,5250,3250,5080,5251,2617,4129,5255, & - 781,4129,5252,5253,781,4129,5253,5256,781,4129,3558,5047, & - 5251,3558,5047,5252,5253,3558,5047,5253,5256, 3,3558,5047, & - 5254,3558,5046,5047,5172,5244,5250,5255,4294,5172,5255,5172, & - 5244,5252,5253,3358,5172,5253,5172,5244,5253,5256,5172,5244, & - 3261,4180,5250,2085,3261,5250,3261,5210,5250,2085,4294,5233, & - 5255,2382,4826,5250,2382,5222,5233,5253,5255,1625,5188,5233, & - 5250,5253,1625,4519,5250,1603,5188,5233,5253,1603,4753,5250, & - 1991,5225,5251,5253,5255,1991,4739,5250,2243,5155,5250,5251, & - 2243,5155,5251,5255,1467,4539,5255,4539,4936,5250,5255,4539, & - 4936,5252,5253,2823,4539,5253,4539,4936,5253,5256,4539,4936 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_106 = (/ & - 3618,4982,5250,3618,4125,5250,5255,1891,3618,5250,3476,3618, & - 5250,5251,5255,1891,4983,5222,5255,4229,4749,5250,1816,4229, & - 5255,4229,4749,5252,5253,5255,3042,4229,5253,4229,4749,5253, & - 5255,5256,4229,4749,5255,2329,4228,5255,4228,5225,5250,4228, & - 5225,5252,5253,5255,3045,4228,5253,4228,5225,5253,5255,5256, & - 4228,5225,5255,2491,5005,5250,2491,5003,5250,2491,5222,5233, & - 5253,5255,1229,5075,5255,5258,3272,5075,5255,4564,5075,5250, & - 5253,5255,4564,5075,5252,5253,2735,5075,5253,4564,5075,5253, & - 5256,5075,5221,5253,5255,5256,1229,5075,4564,5075,5253,1651, & - 3998,5250,1651,5222,5234,5250,5253,4658,4958,5250,5255,839, & - 4658,5255,5258,1518,4658,5255,4658,4958,5250,5252,5253,1939, & - 4658,5253,4658,4958,5250,5253,5256,4658,4958,5250,839,4658, & - 4518,4958,5250,5253,5255,893,4518,5255,5258,1804,4518,5255, & - 4518,4958,5252,5253,2925,4518,5253,4518,4958,5253,5256,4518, & - 4958,5253,893,4518,123,4772,5250,4657,4958,5250,890,4657, & - 5255,5258,1874,4657,5255,4657,4958,5252,5253,5255,3236,4657, & - 5253,4657,4958,5253,5255,5256,4657,4958,5255,890,4657,1425, & - 3500,5250,5255,2570,5221,5250,5255,2570,5167,5250,2570,3555, & - 5250,5255,2606,5167,5253,2606,3532,5250,5255,217,4565,5250, & - 217,4123,5250,3620,4599,5255,957,4599,5252,3490,4599,5252, & - 5253,3490,4599,5253,5256,3490,4599,305,4599,2289,3864,5255, & - 645,3864,5252,5253,645,3864,5253,5256,645,3864,1433,4816, & - 5255,5258,3276,4816,5255,4816,5231,5232,5250,5255,4816,5231, & - 5232,5252,5253,3324,4816,5253,4816,5231,5232,5253,5256,1433, & - 4816,4816,5231,5232,701,4250,701,5232,5251,5255,3216,3837, & - 5255,3215,3837,5252,5253,3215,3837,5253,5256,3837,4366,5250, & - 5251,3215,3837,2568,3837,899,4613,5250,899,4614,5250,2663, & - 3128,5250,5251,5253,2663,4613,5253,2810,3128,2810,4614,5250, & - 1593,2810,5250,2664,3128,5250,5253,1593,2664,5253,1593,5228, & - 5231,473,3128,5250,5255,908,4211,5250,908,2827,5250,2827 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_107 = (/ & - 5193,5231,5255,3972,4222,5201,5256,3972,4222,5250,3972,4060, & - 5251,5255,5171,5197,5250,5255,1201,5171,5255,5171,5197,5252, & - 5253,2622,5171,5253,5171,5197,5253,5256,5171,5197,3259,3281, & - 5250,3259,5222,5244,5250,5251,3259,4106,5250,1884,2972,5250, & - 1884,3861,1884,4348,5250,1321,3861,5250,5253,2972,5184,5231, & - 5255,3861,5184,5251,5255,3861,4230,5201,5256,3861,4230,5250, & - 348,3861,5250,5255,4191,4631,5250,5255,954,4631,5255,4191, & - 4631,5252,5253,3053,4631,5253,4191,4631,5253,5256,4191,4631, & - 434,5060,5250,1041,5060,5250,1041,5079,5250,3275,5079,5253, & - 3275,5188,5231,5250,5251,5253,2381,4552,5250,2381,4552,5255, & - 1893,4926,5250,1893,4552,5250,3408,5086,5250,5251,5253,3408, & - 4926,5253,1762,4552,5250,729,1762,5250,729,5004,5231,1901, & - 4768,5250,786,1901,5250,786,5182,5255,3247,5235,5255,3247, & - 5235,5250,1319,5235,5250,1319,5214,5250,2804,5214,5253,2804, & - 5233,5250,5251,5253,2360,3954,5250,672,2360,5250,672,5111, & - 5231,992,3717,5250, 80,992,5250, 80,4806,4493,4969,5201, & - 5256,4493,4969,5250,4493,5111,5244,1496,4189,5255,2812,4189, & - 5252,1984,4189,5252,5253,1984,4189,5253,5256,1984,4189,526, & - 4189,2423,3905,5250,541,2423,5250,541,3760,5160,1225,3668, & - 5255,2034,3668,5252,2035,3668,5252,5253,2035,3668,5253,5256, & - 2035,3668,767,3668,3668,4493,1277,5021,5255,3858,5021,5250, & - 5255,265,5021,5255,5258,3858,5021,5252,5253,2658,5021,5253, & - 3858,5021,5253,5256,3858,5021,265,5021,5086,5111,5201,5256, & - 5086,5111,5250,4268,5086,5251,5255,1203,3761,5255, 49,3761, & - 5252,5253, 49,3761,5253,5256, 49,3761,1214,4580,5255,2701, & - 4580,5252,1852,4580,5252,5253,1852,4580,5253,5256,1852,4580, & - 209,4580,2151,4290,5255,632,4290,5252,5253,632,4290,5253, & - 5256,632,4290,4660,5159,5201,5256,4493,5159,5250,5255,4660, & - 5159,5250,5019,5159,5251,5255,1367,4119,5255,2629,4119,5252, & - 2457,4119,5252,5253,2457,4119,5253,5256,2457,4119,493,4119 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_108 = (/ & - 508,3710,5255, 69,3710,5252,5253, 69,3710,5253,5256,472, & - 3710, 69,3710,359,3710,1390,4166,5255,2759,4166,5252,1803, & - 4166,5252,5253,1803,4166,5253,5256,1803,4166,400,4166,210, & - 4484,5255,5258,1540,4484,5255,4077,4484,5250,5255,4077,4484, & - 5252,5253,2515,4484,5253,4077,4484,5253,5256,210,4484,4077, & - 4484,594,4077,5255, 88,4077,5252,5253, 88,4077,5253,5256, & - 593,4077, 88,4077,347,4077,1442,4900,5250,1442,4900,5255, & - 859,4664,5250,859,4900,5250,1428,4900,5255,1823,4900,5252, & - 3591,4900,5252,5253,3591,4900,5253,5256,3591,4900,799,4900, & - 4900,5086,2636,5086,5250,5251,5253,2636,4664,5253,1089,3706, & - 5255,125,3706,5252,5253,125,3706,5253,5256,1696,3706,125, & - 3706,502,3706,1093,4545,5250,443,1093,5250,2661,5086,5160, & - 5250,5253,443,2661,5253,443,3845,442,443,5250,442,443, & - 5255,1351,4987,5250,1351,1689,5250,1689,3862,5244,1676,3862, & - 5244,5250,1676,1689,5255,1424,4849,5250,1424,5196,5250,2340, & - 5196,5250,2340,5196,5255,2377,2533,5250,5251,5253,2533,4849, & - 5253,1260,2377,182,1260,5250,2377,2458,5250,5253,182,2458, & - 5253,182,4150,2377,5073,5250,821,2377,5250,5255,821,4150, & - 5255,1071,3840,5250,1071,2495,5250,2495,4842,5231,5253,311, & - 2495,5250,311,2495,5255,1394,5017,5255,5258,993,5017,5255, & - 5017,5084,5250,5255,5017,5084,5252,5253,2708,5017,5253,5017, & - 5084,5253,5256,1394,5017,5017,5084,880,5084,5255,1996,5084, & - 5252,158,5084,5252,5253,158,5084,5253,5256,121,5084,5084, & - 5085,158,5084,2386,4236,5255,1631,4236,5252,5253,1631,4236, & - 5253,5256,1631,4236,1630,4236,1012,3985,5250,1012,2512,5250, & - 2378,4842,5231,5250,5253,2512,4842,5231,5255,317,2512,5250, & - 317,2512,5255,1237,5095,180,1237,5250,2155,5095,5250,5253, & - 180,2155,5253,180,5006,5006,5095,5201,5256,3949,5095,5256, & - 4747,5085,5095,5258, 20,5095,5231,5258,5006,5095,5250,3950, & - 5095,5250,4059,5095,5251,5255,1135,3962,5255,2352,3962,5252 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_109 = (/ & - 162,3962,5252,5253,162,3962,5253,5256,3962,5083,162,3962, & - 310,3962,1247,4638,5255,3703,4638,5250,5255,241,4638,5255, & - 5258,3703,4638,5252,5253,2597,4638,5253,3703,4638,5253,5256, & - 3703,4638,241,4638,887,3839,5255,3338,3839,5252,5253,3338, & - 3839,5253,5256,3338,3839,492,5006,5255,5258,1317,5006,5255, & - 4059,5006,5250,5255,4059,5006,5252,5253,2651,5006,5253,4059, & - 5006,5253,5256,492,5006,4059,5006,3629,4538,5250,3629,5128, & - 5246,2265,2305,2305,4842,5244,5250,679,2305,5250,679,4842, & - 5244,2265,4842,5244,5250,2265,5017,5244,1586,2265,5250,5255, & - 1586,4842,5244,5255,2022,2141,2022,5044,5231,5250,619,2022, & - 5250,619,5044,5231,2141,5044,5250,5251,2141,5044,5251,5255, & - 1615,2141,5250,5255,1615,5044,5231,5255,364,5131,5255,5258, & - 1479,5131,5255,3686,5131,5250,5255,3686,5131,5252,5253,3011, & - 5131,5253,3686,5131,5253,5256,364,5131,3686,5131,1739,5052, & - 5250,5255,489,5052,5255,5258,1509,5052,5255,1739,5052,5252, & - 5253,2704,5052,5253,1739,5052,5253,5256,1739,5052,489,5052, & - 871,5247,5255,206,5247,5252,5253,206,5247,5253,5256,206, & - 5247, 30,5247,275,4679,5255,5258,951,4679,5255,3789,4679, & - 5250,5255,3789,4679,5252,5253,2666,4679,5253,3789,4679,5253, & - 5256,275,4679,3789,4679,215,4431,5255,5258,1233,4431,5255, & - 3764,4431,5250,5255,3764,4431,5252,5253,2613,4431,5253,3764, & - 4431,5253,5256,215,4431,3764,4431,2909,4385,5184,5250,927, & - 3890,5255,2908,3890,5252,1961,3890,5252,5253,1961,3890,5253, & - 5256,2909,3890,1961,3890,511,3890,507,4043,5250,1454,4738, & - 5250,1454,4043,5250,1656,2781,5250,5251,5253,2781,4738,5253, & - 830,1656,149,830,5250,1656,1657,5250,5253,149,1657,5253, & - 149,4748,1656,4748,5250,467,1656,5250,5255,1868,2154,618, & - 1868,5250,618,4863,5182,2154,4863,5182,5250,2154,4863,5214, & - 377,2154,5250,5255,1245,4764,5255,2408,4764,5252,315,4764, & - 5252,5253,315,4764,5253,5256,315,4764, 59,4764,3497,4734 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_110 = (/ & - 5250,3497,5104,5179,1444,4363,5255,1752,4363,5252,3425,4363, & - 5252,5253,3425,4363,5253,5256,3497,4363,3425,4363,256,4363, & - 1195,5240,183,1195,5250,2250,5240,5250,5253,183,2250,5253, & - 183,3951,452,5240,5250,5255,958,2381,5250,5255,1893,2868, & - 5250,5255,2868,4015,5250,2546,3408,5250,5255,2546,4957,5253, & - 1279,4015,5250, 44,1279,5250, 44,4648,2797,3992,5250,2797, & - 4540,5250,5251,5255,2145,2797,5250,2145,4540,5251,5255,1397, & - 4042,5250, 96,1397,5250, 96,4510,301,5246,5250,1471,5246, & - 5250,1471,5179,5250,2886,5179,5253,2886,5242,5250,5251,5253, & - 420,4870,5250,1055,4870,5250,1055,4662,5250,2978,4662,5253, & - 2978,4973,5250,5251,5253,1440,5161,5255,1440,5161,5250,945, & - 5161,5250,945,4866,5250,2842,4866,5253,2842,5143,5250,5251, & - 5253,3255,3336,5250,3336,4801,5250,5251,5255,3336,4546,5250, & - 282,5151,5250,983,5151,5250,983,4979,5250,2822,4979,5253, & - 2822,4801,5250,5251,5253,1779,4778,5255,1482,4778,5252,3079, & - 4778,5252,5253,3079,4778,5253,5256,285,4778,3938,4778,3079, & - 4778,3513,4915,5244,3513,4468,5201,5256,3513,4468,5250,2115, & - 4549,5255,820,4549,5252,5253,820,4549,5253,5256,820,4549, & - 4549,4984,5250,5255,1173,4984,5255,4549,4984,5252,5253,2987, & - 4984,5253,4549,4984,5253,5256,4549,4984,805,5117,5251,5255, & - 805,5117,5250,5251,230,5097,5250,988,5097,5250,988,4642, & - 5250,2787,4642,5253,2787,5026,5250,5251,5253,1441,2826,5250, & - 1441,3537,1963,2826,5253,1963,3537,5250,5253,2826,5143,5193, & - 5255,636,2826,5255,636,3537,5250,5255,3537,5137,5193,5255, & - 3124,3537,5250,5255,1908,5143,5244,5250,778,1908,5250,1908, & - 3124,778,5143,5244,3124,5137,5244,3124,4274,5250,1548,5143, & - 5244,5255,1548,3124,5250,5255,3078,5183,5242,5250,564,3078, & - 5250,1832,3078,564,5183,5242,1832,5158,5183,1832,4138,5250, & - 1690,5183,5242,5255,1690,1832,5250,5255,946,4419,5255,4419, & - 5043,5250,5255,4419,5043,5252,5253,2718,4419,5253,4419,5043 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_111 = (/ & - 5253,5256,4419,5043,2723,4235,5255,2203,4235,5252,5253,2203, & - 4235,5253,5256,2203,4235,2981,3000,5250,2981,4391,5241,5250, & - 2981,4802,5250,2999,3000,5253,2999,4386,5222,5250,5253,3000, & - 4801,5193,5255,1633,4391,5241,5255,1633,3000,5250,1723,2084, & - 5250,2084,4801,5244,5250,2084,4309,5250,1723,4801,5244,1722, & - 4801,5244,5255,1722,1723,5250,638,2625,5250,2625,5026,5244, & - 5250,2625,4811,5250,2625,2910,638,5026,5244,1632,5026,5244, & - 5255,1632,2910,5250,5255,2910,5117,5244,2910,4991,5244,2910, & - 4384,5250,1234,4874,5255,4874,4959,5250,5255,4874,4959,5252, & - 5253,2877,4874,5253,4874,4959,5253,5256,4874,4959,995,4890, & - 5255,1026,4890,5252,2946,4890,5252,5253,2946,4890,5253,5256, & - 385,4890,2946,4890,3391,4890,3086,5137,5183,3086,4435,5250, & - 1839,5143,5183,5250,745,1839,5250,1839,3086,745,5143,5183, & - 1571,5143,5183,5255,1571,3086,5250,5255,850,4521,5255,4521, & - 5096,5250,5255,4521,5096,5252,5253,3007,4521,5253,4521,5096, & - 5253,5256,4521,5096,3151,5125,5137,3151,4461,5250,2052,5125, & - 5143,5250,722,2052,5250,2052,3151,722,5125,5143,1707,5125, & - 5143,5255,1707,3151,5250,5255,1244,4430,5255,4430,5135,5250, & - 5255,4430,5135,5252,5253,3070,4430,5253,4430,5135,5253,5256, & - 4430,5135,3183,4944,5137,3183,4421,5250,698,2059,5250,2059, & - 4944,5143,5250,2059,3183,698,4944,5143,1744,4944,5143,5255, & - 1744,3183,5250,5255,1418,4443,5255,4270,4443,5250,5255,4270, & - 4443,5252,5253,3218,4443,5253,4270,4443,5253,5256,4270,4443, & - 4710,4942,5251,5255,4710,4850,5201,5256,4710,4850,5250,3184, & - 4760,5137,3184,4532,5250,570,2121,5250,2121,4760,5143,5250, & - 2121,3184,570,4760,5143,1740,4760,5143,5255,1740,3184,5250, & - 5255,1226,4450,5255,4254,4450,5250,5255,4254,4450,5252,5253, & - 3306,4450,5253,4254,4450,5253,5256,4254,4450,3185,4850,5137, & - 3185,4429,5250,474,4942,5250,1114,4942,5250,1114,4850,5250, & - 2726,5162,5250,5251,5253,2726,4850,5253,575,2221,5250,2221 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_112 = (/ & - 4850,5143,5250,2221,3185,575,4850,5143,1674,4850,5143,5255, & - 1674,3185,5250,5255,1198,4417,5255,4238,4417,5250,5255,4238, & - 4417,5252,5253,3282,4417,5253,4238,4417,5253,5256,4238,4417, & - 1192,1483,141,1192,5250,141,5038,246,1483,5250,5255,1483, & - 5250,5251,5255,934,4467,5250,934,3370,5250,3370,3478,5201, & - 5251,5253,1508,4271,5250,1508,2577,5250,2577,3478,4796,5253, & - 142,3478,5250,3571,4602,5250,5251,5255,3571,4267,5251,5255, & - 2911,4308,5255,3644,4308,5250,5251,3644,4308,5251,5252,5253, & - 5255,2725,4308,5253,3644,4308,5251,5253,5255,5256,3644,4308, & - 5251,5255,3783,4602,5244,5250,5251,3783,4489,5251,5255,4221, & - 4490,5250,5251,2991,4221,5255,4221,4490,5251,5252,5253,5255, & - 3040,4221,5253,4221,4490,5251,5253,5255,5256,4221,4490,5251, & - 5255,1376,4458,5250,1376,3375,5250,3375,4507,5201,5251,5253, & - 835,4306,5250,835,3036,5250,3036,4507,4796,5253, 85,4507, & - 5250,1248,4472,5255,4472,4929,5250,5255,4472,4929,5252,5253, & - 3075,4472,5253,4472,4929,5253,5256,4472,4929,1117,4188,5250, & - 1117,2739,5250,2739,5231,5244,5251,977,4415,5250,977,3402, & - 5250,3402,4507,4693,5201,5253,1420,4298,5250,1420,2935,5250, & - 2935,4507,4693,5253,3729,5199,5244,5250,5251,3729,4329,5251, & - 5255,4241,4490,5244,5250,5255,2055,4241,5255,4241,4490,5244, & - 5252,5253,2683,4241,5253,4241,4490,5244,5253,5256,4241,4490, & - 5244,4202,5031,5250,2248,4202,5255,4202,5031,5252,5253,5255, & - 2643,4202,5253,4202,5031,5253,5255,5256,4202,5031,5255,499, & - 4770,5255,5258,1460,4770,5255,4770,4857,5250,5255,4770,4857, & - 5252,5253,3315,4770,5253,4770,4857,5253,5256,499,4770,4770, & - 4857,2769,4742,5250,2430,2769,5250,2769,5231,5244,5250,5251, & - 2430,5231,5244,5251,287,4808,5255,5258,894,4808,5255,4550, & - 4808,5250,5255,4550,4808,5252,5253,2552,4808,5253,4550,4808, & - 5253,5256,287,4808,4550,4808,994,4904,5250,170,994,5250, & - 170,5100, 53,170,5250,1342,4498,5250,1342,3371,5250,3371 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_113 = (/ & - 4507,4693,5201,5253,913,4305,5250,913,2986,5250,2986,4507, & - 4693,5253,3742,5031,5250,5251,5255,3742,4489,5244,4253,4449, & - 5244,5250,5255,2443,4253,5255,4253,4449,5244,5252,5253,2863, & - 4253,5253,4253,4449,5244,5253,5256,4253,4449,5244,1426,4101, & - 5250,1426,3400,5250,3400,5210,5251,5253,5255,1472,4506,5250, & - 1472,3347,5250,3347,4507,4693,5201,5253,1278,4204,5250,1278, & - 2733,5250,2733,4507,4693,5253,3595,5199,5244,5250,5251,3595, & - 4026,5244,2838,4013,5255,4013,4325,5250,5251,4013,4325,5251, & - 5252,5253,5255,2631,4013,5253,4013,4325,5251,5253,5255,5256, & - 4013,4325,5251,5255,1169,4464,5250,1169,3329,5250,3329,3541, & - 5201,5251,5253,825,4262,5250,825,2903,5250,2903,3541,4796, & - 5253,3732,4602,5183,5250,5251,3732,4102,5251,5255,4046,4199, & - 5250,5251,2541,4046,5255,4046,4199,5251,5252,5253,5255,2765, & - 4046,5253,4046,4199,5251,5253,5255,5256,4046,4199,5251,5255, & - 422,3541,5250,4404,5183,5250,5251,5255,2171,4404,5255,4404, & - 5183,5251,5252,5253,3063,4404,5253,4404,5183,5251,5253,5256, & - 4404,5183,5251,1309,4511,5250,1309,3574,5250,2548,3574,5201, & - 5251,5253,1504,4205,5250,1504,3361,5250,2548,3361,4796,5253, & - 3673,4602,5125,5250,5251,3673,4620,5251,5255,4536,4775,5250, & - 5251,2654,4536,5255,4536,4775,5251,5252,5253,5255,2794,4536, & - 5253,4536,4775,5251,5253,5255,5256,4536,4775,5251,5255,245, & - 2548,5250,2228,4502,5250,2228,4233,5250,5255,2538,4233,5250, & - 5251,5253,2538,4502,5253,1118,4425,5250,1118,3596,5250,2854, & - 3596,5201,5251,5253,1025,4194,5250,1025,3414,5250,2854,3414, & - 4796,5253,3787,4602,5106,5250,5251,3787,4744,5251,5255,4218, & - 4815,5250,5251,2862,4218,5255,4218,4815,5251,5252,5253,5255, & - 2505,4218,5253,4218,4815,5251,5253,5255,5256,4218,4815,5251, & - 5255, 23,2854,5250,2120,4424,5250,2120,4227,5250,5255,2929, & - 4227,5250,5251,5253,2929,4424,5253,1301,3937,5255,2919,3937, & - 5252,5253,2919,3937,5253,5256,2919,3937,1335,3746,5255,204 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_114 = (/ & - 3746,5252,5253,204,3746,5253,5256,204,3746, 72,3746,869, & - 4655,5250,869,3363,5250,3363,4331,4693,5201,5253,1166,4285, & - 5250,1166,2736,5250,2736,4331,4693,5253,4331,4938,5250,5251, & - 5253,1455,4726,5250,1455,3406,5250,3406,3821,5251,5253,5255, & - 888,4643,5250,888,3381,5250,3381,4331,4693,5201,5253,1273, & - 4276,5250,1273,2952,5250,2952,4331,4693,5253,3593,5031,5244, & - 5250,5251,3593,4329,5244,2349,4324,5255,4324,4325,5244,5250, & - 5255,4324,4325,5244,5252,5253,2615,4324,5253,4324,4325,5244, & - 5253,5256,4324,4325,5244,1393,4182,5250,1393,2768,5250,2768, & - 4694,5251,5253,1045,4463,5250,1045,3362,5250,3362,4403,4507, & - 5201,5253,1029,4289,5250,1029,2598,5250,2598,4403,4507,5253, & - 3709,4175,5244,5250,5251,3709,4731,5251,5255,2064,4154,5255, & - 4154,4199,5244,5250,5255,4154,4199,5244,5252,5253,3019,4154, & - 5253,4154,4199,5244,5253,5256,4154,4199,5244,1223,4434,5250, & - 1223,3417,5250,3417,4403,4507,5201,5253,972,4245,5250,972, & - 2995,5250,2995,4403,4507,5253,3968,4602,5183,5244,5250,5251, & - 3968,4203,5251,5255,4441,4449,5183,5250,5255,2263,4441,5255, & - 4441,4449,5183,5252,5253,2866,4441,5253,4441,4449,5183,5253, & - 5256,4441,4449,5183,1030,4455,5250,1030,3388,5250,3388,4403, & - 4507,5201,5253,1423,4232,5250,1423,2937,5250,2937,4403,4507, & - 5253,3681,4175,5244,5250,5251,5255,3681,4445,5251,5255,4299, & - 4534,5250,5251,2754,4299,5255,4299,4534,5251,5252,5253,5255, & - 3052,4299,5253,4299,4534,5251,5253,5255,5256,4299,4534,5251, & - 5255,255,4977,5255,5258,901,4977,5255,4920,4977,5250,5255, & - 4920,4977,5252,5253,2852,4977,5253,4920,4977,5253,5256,255, & - 4977,4920,4977,1215,4750,5250,1215,2820,5250,2820,5193,5244, & - 5251,952,4052,5255,4052,4184,5252,5253,4052,4184,5253,5256, & - 4052,4184,1457,3929,5250,5253,2429,3929,5250,5253,2429,4460, & - 5250,2705,4460,5253,2705,3929,5250,5253,5256,1249,5016,5250, & - 1249,4548,5250,2655,4548,5253,2655,5016,5250,5251,5253,626 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_115 = (/ & - 2617,781,2617,5250,781,4831,5231,3558,4751,5250,3558,4831, & - 5228,3211,4826,5255,3933,4826,5250,3933,4826,5252,5253,5255, & - 3224,4826,5253,3933,4826,5253,5255,5256,3933,4826,5255, 10, & - 4519,5255,5258,1006,4519,5255,4519,5221,5250,5255,4519,5221, & - 5250,5252,5253,2003,4519,5253,4519,5221,5250,5253,5256, 10, & - 4519,4519,5221,5250,1222,4753,5255,5258,2183,4753,5255,4753, & - 5221,5250,5253,5255,4753,5221,5252,5253,2928,4753,5253,4753, & - 5221,5253,5256,1222,4753,4753,5221,5253,1494,4739,5255,5258, & - 1970,4739,5255,4739,5225,5250,5253,5255,4739,5225,5252,5253, & - 2907,4739,5253,4739,5225,5253,5256,1494,4739,4739,5225,5253, & - 1467,4936,5250,1467,4539,5250,2823,4539,5253,2823,4936,5250, & - 5251,5253,1816,4229,5250,1816,4749,5250,5255,3042,4749,5250, & - 5251,5253,3042,4229,5253,2329,4228,5250,2329,5225,5250,5255, & - 3045,5225,5250,5256,3045,4228,5253,4406,5005,5250,3500,5005, & - 5255,5258,3555,5005,5255,4406,5005,5252,5253,5255,3532,5005, & - 5253,4406,5005,5253,5255,5256,4406,5005,5255,3500,5005,5003, & - 5210,5250,5253,5255,3477,5003,5255,5258,3563,5003,5255,5003, & - 5210,5252,5253,3392,5003,5253,5003,5210,5253,5256,5003,5210, & - 5253,3477,5003,1229,3477,5250,5255,3272,5075,5250,3272,3563, & - 5250,5255,3272,4564,5250,5253,2735,3392,5250,5255,2735,5075, & - 5253,907,3998,5255,3998,5225,5250,5255,3998,5225,5250,5252, & - 5253,2957,3998,5253,3998,5225,5250,5253,5256,3998,5225,5250, & - 839,4958,5250,5255,839,4958,1518,4958,5250,1518,4658,5250, & - 1939,4658,5253,1939,4958,5251,5253,893,4958,5250,5253,1804, & - 4958,5250,5253,1804,4518,5250,2925,4518,5253,2925,4958,5250, & - 5251,5253,2580,4772,5255,5258,2870,4772,5255,4352,4772,5250, & - 5253,5255,4352,4772,5252,5253,2635,4772,5253,4352,4772,5253, & - 5256,2580,4772,4352,4772,5253,890,4958,5250,5255,1874,4958, & - 5250,5255,1874,4657,5250,3236,4658,5253,3236,4958,5250,5251, & - 5253,5255,3500,4406,5250,5255,3500,4796,5222,5253,5255,3555 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_116 = (/ & - 5005,5250,3555,4983,5222,5253,5255,3532,4406,5250,5255,5256, & - 3532,5005,5253,3267,4565,5255,1787,4565,5252,5253,1787,4565, & - 5253,5256,1787,4565,3217,4123,5255,1892,4123,5252,5253,1892, & - 4123,5253,5256,1892,4123,2345,3620,5250,5255,3620,4599,5250, & - 3490,3620,5250,957,2966,5250,5255,3490,3601,5231,5255,3490, & - 4366,5234,5253,305,2486,5250,5255,2289,3864,5250,645,2289, & - 5250,645,4366,5232,1433,5231,5232,5250,3276,4366,5251,3276, & - 4816,5250,3276,5231,5232,5250,3324,4366,5250,5251,5256,3324, & - 4816,5253,4250,5023,5251,4250,5023,5252,5253,4250,5023,5253, & - 5256, 3,4250,5023,5254,4250,5023,5046,3216,3837,5250,3216, & - 4366,5250,5251,5255,3215,3216,5250,3215,4366,5251,5255,4366, & - 5023,5250,5255,4366,5231,5232,5255,2568,3215,5250,2568,4366, & - 5251,5255,4060,4222,5250,5255,272,4222,5255,5258,1208,4222, & - 5255,4060,4222,5252,5253,2517,4222,5253,4060,4222,5253,5256, & - 4060,4222,272,4222,1201,5197,5250,1201,5171,5250,2622,5171, & - 5253,2622,5199,5250,5251,5253,2116,4230,5255,4230,5184,5250, & - 4230,5184,5252,5253,5255,2784,4230,5253,4230,5184,5253,5255, & - 5256,4230,5184,5255,1360,4191,5255,2989,4191,5252,5253,2989, & - 4191,5253,5256,2989,4191,954,4631,5250,954,4191,5250,3053, & - 4175,5250,5251,5253,3053,4631,5253,3233,5004,5255,5258,1320, & - 5004,5255,4768,5004,5250,5255,4768,5004,5252,5253,3008,5004, & - 5253,4768,5004,5253,5256,3233,5004,4768,5004,4268,5111,5250, & - 5255,886,5111,5255,4268,5111,5252,5253,2600,5111,5253,4268, & - 5111,5253,5256,4268,5111,3976,4806,5250,5255,1275,4806,5255, & - 3976,4806,5252,5253,2867,4806,5253,3976,4806,5253,5256,3976, & - 4806,986,4969,5255,3984,4969,5250,5255,3984,4969,5252,5253, & - 2977,4969,5253,3984,4969,5253,5256,3984,4969,1496,4189,5250, & - 1496,1984,5250,2812,4493,5160,5250,5253,1984,2812,5253,1984, & - 4340,5160,526,1984,5250,526,1984,5255,1164,3760,5255,3760, & - 4190,5252,5253,3760,4190,5253,5256,3760,4190,1225,4493,1225 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_117 = (/ & - 2035,5250,2034,4493,5250,5253,2034,2035,5253,2035,4493,5255, & - 767,4493,5250,5255,767,2035,5255,1277,5021,5250,1277,3858, & - 5250,879,3858,5255,2328,3858,5252,193,3858,5252,5253,193, & - 3858,5253,5256,3858,4224,193,3858,399,3858,265,3858,5250, & - 2658,4224,5250,5251,5253,2658,5021,5253,1888,4268,5255,582, & - 4268,5252,5253,582,4268,5253,5256,582,4268,1203,3761,5250, & - 49,1203,5250, 49,3838,1214,4580,5250,1214,1852,5250,2701, & - 4104,5160,5250,5253,1852,2701,5253,1852,4597,5160,209,1852, & - 5250,209,1852,5255,2151,4290,5250,632,2151,5250,632,4560, & - 5160,4660,5019,5250,5255,933,4660,5255,5258,1018,4660,5255, & - 4660,5019,5252,5253,2527,4660,5253,4660,5019,5253,5256,4660, & - 5019,933,4660,2380,5019,5255,697,5019,5252,5253,697,5019, & - 5253,5256,3348,5019,697,5019,1934,5019,1367,4119,5250,1367, & - 2457,5250,2629,5160,5182,5250,5253,2457,2629,5253,2457,4410, & - 5160,493,2457,5250,493,2457,5255,472,508, 69,508,5250, & - 69,4624,472,4624,5250,472,4624,359,472,5250,5255,1390, & - 4166,5250,1390,1803,5250,2759,4278,5160,5250,5253,1803,2759, & - 5253,1803,4350,5160,400,1803,5250,400,1803,5255,210,4077, & - 5250,1540,4484,5250,1540,4077,5250,593,2515,5250,5251,5253, & - 2515,4484,5253,593,594, 88,594,5250, 88,4485,593,4485, & - 5250,347,593,5250,5255,1428,5086,1428,3591,5250,1823,5086, & - 5250,5253,1823,3591,5253,3591,4142,1929,3591,5231,5255,799, & - 5086,5250,5255,799,3591,5255,1089,1696,125,1089,5250,125, & - 4664,502,1696,5250,5255,942,3845,5255,2532,3845,5252,2056, & - 3845,5252,5253,2056,3845,5253,5256,2056,3845,418,3845,3862, & - 4659,5201,5256,3862,4659,5250,3862,4418,5251,5255,2017,4150, & - 5255,553,4150,5252,5253,553,4150,5253,5256,1643,4150,553, & - 4150,1731,4150,1350,5073,5255,4371,5073,5250,5255,4371,5073, & - 5252,5253,3436,5073,5253,4371,5073,5253,5256,4371,5073,1394, & - 5084,5250,1394,5084,5255,993,5017,5250,993,5084,5250,2708 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_118 = (/ & - 5085,5250,5251,5253,2708,5017,5253,880,5085,158,880,5250, & - 1996,5085,5250,5253,158,1996,5253,158,5006,121,4439,5250, & - 4752,5085,5201,5256,4752,5085,5250,4019,5085,5251,5255,2386, & - 4236,5250,1631,2386,5250,2386,5086,5244,5250,1631,5086,5244, & - 1630,1631,5250,1630,5086,5244,5255,984,3949,5255,2750,3949, & - 5252,5253,2750,3949,5253,5256,2750,3949,662,3949, 20,4242, & - 5250,1272,3950,5255,2007,3950,5252,2561,3950,5252,5253,2561, & - 3950,5253,5256,2561,3950,793,3950,1126,4059,5255,2072,4059, & - 5252,2073,4059,5252,5253,2073,4059,5253,5256,4059,5189,2073, & - 4059,465,4059,1135,5083,162,1135,5250,2352,5083,5250,5253, & - 162,2352,5253,162,4098,310,5083,5250,5255,1247,4638,5250, & - 1247,3703,5250,1070,3703,5255,2063,3703,5252,168,3703,5252, & - 5253,168,3703,5253,5256,3270,3703,168,3703,478,3703,241, & - 3703,5250,2597,3270,5250,5251,5253,2597,4638,5253,887,3839, & - 5250,887,3338,5250,1643,3338,5231,5255,492,4059,5250,1317, & - 5006,5250,1317,4059,5250,2651,5189,5250,5251,5253,2651,5006, & - 5253,2062,4538,5255,704,4538,5252,5253,704,4538,5253,5256, & - 704,4538,1617,5044,5250,5255,515,5044,5255,5258,1511,5044, & - 5255,1617,5044,5252,5253,2688,5044,5253,1617,5044,5253,5256, & - 1617,5044,515,5044,364,3686,5250,1479,5131,5250,1479,3686, & - 5250,1119,3686,5255,1551,3686,5252,174,3686,5252,5253,174, & - 3686,5253,5256,1550,3686,174,3686,257,3686,1550,3011,5250, & - 5251,5253,3011,5131,5253,1739,5114,1739,4652,489,1739,5250, & - 1509,5052,5250,1509,1739,5250,2704,5240,5250,5251,5253,2704, & - 5052,5253,871,5247,5250,206,871,5250,206,4825, 30,206, & - 5250,275,3789,5250,951,4679,5250,951,3789,5250,1004,3789, & - 5255,2157,3789,5252,151,3789,5252,5253,151,3789,5253,5256, & - 3213,3789,151,3789,409,3789,2666,3213,5250,5251,5253,2666, & - 4679,5253,215,3764,5250,1233,4431,5250,1233,3764,5250,1149, & - 3764,5255,1591,3764,5252,190,3764,5252,5253,190,3764,5253 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_119 = (/ & - 5256,1590,3764,190,3764,266,3764,1590,2613,5250,5251,5253, & - 2613,4431,5253,1801,4385,5255,2524,4385,5252,1614,4385,5252, & - 5253,1614,4385,5253,5256,1614,4385,813,4385,927,2909,927, & - 1961,5250,2908,2909,5250,5253,1961,2908,5253,1961,4385,5184, & - 511,2909,5250,5255,1331,4748,5255,2195,4748,5252,211,4748, & - 5252,5253,211,4748,5253,5256,211,4748,108,4748,378,4863, & - 5255,5258,1480,4863,5255,3722,4863,5250,5255,3722,4863,5252, & - 5253,2829,4863,5253,3722,4863,5253,5256,378,4863,3722,4863, & - 1245,4764,5250,315,1245,5250,2408,3420,5250,5253,315,2408, & - 5253,315,4172, 59,315,5250,965,4734,5255,1620,4734,5252, & - 5253,1620,4734,5253,5256,1620,4734,118,4734,883,5104,5255, & - 2621,5104,5252,2293,5104,5252,5253,2293,5104,5253,5256,2293, & - 5104, 99,5104,1444,3497,1444,3425,5250,1752,3497,5250,5253, & - 1752,3425,5253,3425,3497,5255,3425,5104,5211,256,3497,5250, & - 5255,1333,3951,5255,113,3951,5252,5253,113,3951,5253,5256, & - 113,3951,213,3951,2975,4648,5255,2210,4648,5252,5253,2210, & - 4648,5253,5256,2210,4648,902,4510,5255,2724,4510,5252,5253, & - 2724,4510,5253,5256,2724,4510,1779,3079,5250,1779,3938,1779, & - 4778,5250,1482,3938,5250,5253,3079,5055,5231,5255, 9,285, & - 5250,5255,3938,5055,5251,5255,3938,4207,5201,5256,3938,4207, & - 5250,1236,4468,5255,4468,4991,5250,5255,4468,4991,5252,5253, & - 2845,4468,5253,4468,4991,5253,5256,4468,4991,820,2115,5250, & - 2115,4549,5250,820,5231,5243,1173,4549,5250,1173,4984,5250, & - 2987,4984,5253,2987,3892,5250,5251,5253,1759,4274,5255,545, & - 4274,5252,5253,545,4274,5253,5256,545,4274,2930,4138,5255, & - 2201,4138,5252,5253,2201,4138,5253,5256,2201,4138,946,5043, & - 5250,946,4419,5250,2718,4419,5253,2718,4961,5250,5251,5253, & - 2203,2723,5250,2723,5110,5231,5250,2723,4235,5250,2203,5110, & - 5231,5255,3274,4384,5255,2024,4384,5252,5253,2024,4384,5253, & - 5256,2024,4384,1234,4959,5250,1234,4874,5250,2877,4874,5253 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_120 = (/ & - 2877,5012,5250,5251,5253,995,2946,5250,995,3391,1026,3391, & - 5250,5253,2946,4973,5193,5255,385,3391,5250,5255,3391,5242, & - 5244,5255,3391,3899,5250,1268,4435,5255,2960,4435,5252,5253, & - 2960,4435,5253,5256,2960,4435,850,5096,5250,850,4521,5250, & - 3007,4521,5253,3007,5009,5250,5251,5253,1137,4461,5255,3073, & - 4461,5252,5253,3073,4461,5253,5256,3073,4461,1244,5135,5250, & - 1244,4430,5250,3070,4430,5253,3070,4873,5250,5251,5253,960, & - 4421,5255,2751,4421,5252,5253,2751,4421,5253,5256,2751,4421, & - 1418,4270,5250,1418,4443,5250,3218,4443,5253,3218,5162,5231, & - 5250,5251,5253,1271,4532,5255,2853,4532,5252,5253,2853,4532, & - 5253,5256,2853,4532,1226,4254,5250,1226,4450,5250,3306,4450, & - 5253,3306,4710,5231,5250,5251,5253,1338,4429,5255,3058,4429, & - 5252,5253,3058,4429,5253,5256,3058,4429,1198,4238,5250,1198, & - 4417,5250,3282,4417,5253,3282,4710,5193,5250,5251,5253,142, & - 2471,5253,2763,4267,5255,4267,4602,5250,5251,4267,4602,5251, & - 5252,5253,5255,2529,4267,5253,4267,4602,5251,5253,5255,5256, & - 4267,4602,5251,5255,2911,4308,5250,2911,3644,5250,5251,5255, & - 2725,3644,5250,5251,5253,2725,4308,5253,2414,4489,5255,4489, & - 4602,5244,5250,5255,4489,4602,5244,5252,5253,2859,4489,5253, & - 4489,4602,5244,5253,5256,4489,4602,5244,2991,4221,5250,2991, & - 4490,5250,5251,5255,3040,4490,5250,5251,5253,3040,4221,5253, & - 85,2488,5253,1248,4472,5250,1248,4929,5250,3075,3128,5250, & - 5251,5253,3075,4472,5253,2039,4329,5255,4329,5199,5244,5250, & - 5255,4329,5199,5244,5252,5253,2970,4329,5253,4329,5199,5244, & - 5253,5256,4329,5199,5244,2055,4241,5250,2055,4490,5244,5250, & - 2683,4490,5244,5250,5253,2683,4241,5253,2248,4202,5250,2248, & - 5031,5250,5255,2643,5031,5250,5251,5253,2643,4202,5253,499, & - 4857,5250,1460,4770,5250,1460,4857,5250,1953,3315,5250,5251, & - 5253,3315,4770,5253,287,4550,5250,894,4808,5250,894,4550, & - 5250,2552,3546,5250,5251,5253,2552,4808,5253,3484,4449,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_121 = (/ & - 5255,4449,4602,5244,5255,2443,4253,5250,2443,4449,5244,5250, & - 2863,4449,5244,5250,5253,2863,4253,5253,2652,4026,5255,4026, & - 5199,5250,5251,4026,5199,5251,5252,5253,5255,2998,4026,5253, & - 4026,5199,5251,5253,5255,5256,4026,5199,5251,5255,2838,4013, & - 5250,2838,4325,5250,5251,5255,2631,4325,5250,5251,5253,2631, & - 4013,5253,4102,4602,5183,5250,5255,1982,4102,5255,4102,4602, & - 5183,5252,5253,2901,4102,5253,4102,4602,5183,5253,5256,4102, & - 4602,5183,2541,4046,5250,2541,4199,5250,5251,5255,2765,4199, & - 5250,5251,5253,2765,4046,5253, 75,422,5253,2171,4404,5250, & - 2171,5183,5250,5251,3063,5193,5250,5251,5253,3063,4404,5253, & - 4602,4620,5125,5250,5255,1879,4620,5255,4602,4620,5125,5252, & - 5253,2721,4620,5253,4602,4620,5125,5253,5256,4602,4620,5125, & - 2654,4536,5250,2654,4775,5250,5251,5255,2794,4775,5250,5251, & - 5253,2794,4536,5253, 15,245,5253,2026,4744,5255,4602,4744, & - 5106,5250,5255,4602,4744,5106,5252,5253,3061,4744,5253,4602, & - 4744,5106,5253,5256,4602,4744,5106,2862,4218,5250,2862,4815, & - 5250,5251,5255,2505,4815,5250,5251,5253,2505,4218,5253, 23, & - 122,5253,1301,3937,5250,1301,2919,5250,2919,4938,5251,5253, & - 1335,3746,5250,204,1335,5250,204,4214, 72,204,5250,2349, & - 4324,5250,2349,4325,5244,5250,2615,4325,5250,5251,5253,2615, & - 4324,5253,4175,5183,5250,5251,4175,5183,5251,5255,4175,5142, & - 5251,5255,2082,4731,5255,4175,4731,5244,5250,5255,4175,4731, & - 5244,5252,5253,2700,4731,5253,4175,4731,5244,5253,5256,4175, & - 4731,5244,2064,4154,5250,2064,4199,5244,5250,3019,4199,5193, & - 5250,5253,3019,4154,5253,2899,4203,5255,4203,4865,5250,5251, & - 4203,4865,5251,5252,5253,5255,3014,4203,5253,4203,4865,5251, & - 5253,5255,5256,4203,4865,5251,5255,2263,4441,5250,2263,4449, & - 5183,5250,2866,4449,5191,5250,5253,2866,4441,5253,2388,4445, & - 5255,4445,5183,5199,5250,5255,4445,5183,5199,5252,5253,2833, & - 4445,5253,4445,5183,5199,5253,5256,4445,5183,5199,2754,4299 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_122 = (/ & - 5250,2754,4534,5250,5251,5255,3052,4534,5250,5251,5253,3052, & - 4299,5253,255,4920,5250,901,4977,5250,901,4920,5250,2852, & - 3434,5250,5251,5253,2852,4977,5253,952,4052,5250,952,4184, & - 5250,2336,4184,5228,5251,5253,626,4831,5250,5251,626,4831, & - 5251,5255,2507,4831,5255,3626,4831,5250,5251,3626,4831,5251, & - 5252,5253,5255,3257,4831,5253,3626,4831,5251,5253,5255,5256, & - 3626,4831,5251,5255,1392,4751,5255,3071,4751,5252,5253,3071, & - 4751,5253,5256,3071,4751,3211,4826,5250,3211,4294,5233,5253, & - 5255,3224,3933,5250,5251,5256,3224,4826,5253, 10,5221,1006, & - 4519,5250,1006,5221,5250,2003,5221,5251,5253,2003,4519,5253, & - 1222,5221,5250,5253,2183,4753,5250,2183,5221,5250,5253,2928, & - 5221,5250,5251,5253,2928,4753,5253,1494,5225,5250,5253,1970, & - 4739,5250,1970,5225,5250,5253,2907,5225,5250,5251,5253,2907, & - 4739,5253,3477,5210,5250,5253,3477,4693,5233,5253,5255,3563, & - 5003,5250,3563,4294,5233,5253,5255,3392,5210,5250,5253,5256, & - 3392,5003,5253,907,3998,5250,907,5225,5250,2957,5225,5250, & - 5256,2957,3998,5253,2580,4693,5152,5253,2580,4352,5250,5253, & - 2870,4294,5152,5253,2870,4772,5250,2635,4772,5253,2635,4352, & - 5250,5256,3267,3608,5251,1787,3267,5250,3267,3608,5250,5251, & - 5255,1787,5023,5234,5255,2568,3217,5251,1892,3217,5250,2568, & - 3217,5250,5251,5255,1892,4366,5233,5255,2345,3601,5251,2345, & - 5023,5234,5250,5253,2966,3601,5250,5251,5253,2966,3601,5251, & - 5253,5255,1639,3601,5250,5255,3601,5234,5251,5253,5255,2486, & - 3601,5250,5251,5255,2486,5023,5234,5253,5255,272,4060,5250, & - 1208,4222,5250,1208,4060,5250,2517,3626,5250,5251,5253,2517, & - 4222,5253,2116,5184,5250,5255,2116,4230,5250,2784,4230,5253, & - 2784,5184,5250,5251,5253,1360,4191,5250,1360,2989,5250,2989, & - 5183,5231,5251,3233,4768,5250,1320,5004,5250,1320,4768,5250, & - 3008,5182,5250,5251,5253,3008,5004,5253,886,5111,5250,886, & - 4268,5250,2600,4462,5250,5251,5253,2600,5111,5253,2348,3976 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_123 = (/ & - 5255,795,3976,5252,5253,795,3976,5253,5256,795,3976,1275, & - 4806,5250,1275,3976,5250,2867,4462,5250,5251,5253,2867,4806, & - 5253,986,4969,5250,986,3984,5250,2217,3984,5255,617,3984, & - 5252,5253,617,3984,5253,5256,617,3984,2977,4902,5250,5251, & - 5253,2977,4969,5253,1932,4340,5255,714,4340,5252,5253,714, & - 4340,5253,5256,714,4340,4340,5159,4340,4493,1164,3760,5250, & - 1164,4190,5250,4190,4493,5253,583,4190,5255,879,4224,193, & - 879,5250,2328,4224,5250,5253,193,2328,5253,193,3694,4224, & - 4496,5201,5256,4224,4496,5250,4224,4295,5251,5255,399,4224, & - 5250,5255,1888,4268,5250,582,1888,5250,582,5214,5231,1985, & - 3838,5255,775,3838,5252,5253,775,3838,5253,5256,775,3838, & - 4104,4902,5250,5255,4104,5197,5232,1414,4597,5255,2332,4597, & - 5252,2953,4597,5252,5253,2953,4597,5253,5256,4104,4597,2953, & - 4597,633,4597,2404,4560,5255,581,4560,5252,5253,581,4560, & - 5253,5256,581,4560,933,5019,5250,933,5019,5255,1018,4660, & - 5250,1018,5019,5250,2527,3348,5250,5251,5253,2527,4660,5253, & - 2380,3348,697,2380,5250,697,4867,5231,3348,4867,5250,5251, & - 3348,4867,5251,5255,1934,4104,5250,5255,1934,3348,5250,5255, & - 1934,5020,5232,1094,4410,5255,1732,4410,5252,5253,1732,4410, & - 5253,5256,3309,4410,1732,4410,789,4410,1189,4624,5255,5258, & - 849,4624,5255,4131,4624,5250,5255,4131,4624,5252,5253,2564, & - 4624,5253,4131,4624,5253,5256,1189,4624,4131,4624,4278,5004, & - 5201,5251,5256,4278,5004,5250,5251,4278,5004,5251,5255,1312, & - 4350,5255,3913,4350,5252,5253,3913,4350,5253,5256,3913,4350, & - 696,4350,4278,4350,1163,4485,5255,5258,1402,4485,5255,3715, & - 4485,5250,5255,3715,4485,5252,5253,2984,4485,5253,3715,4485, & - 5253,5256,1163,4485,3715,4485,1139,4142,5255,1579,4142,5252, & - 5253,1579,4142,5253,5256,3557,4142,1579,4142,657,4142,1929, & - 5214,5250,1929,5214,5255,942,3845,5250,942,2056,5250,2532, & - 5086,5160,5250,5253,2056,2532,5253,2056,3750,5160,418,2056 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_124 = (/ & - 5250,418,2056,5255,4418,4659,5250,5255,823,4659,5255,5258, & - 1348,4659,5255,4418,4659,5252,5253,2523,4659,5253,4418,4659, & - 5253,5256,4418,4659,2018,4418,5255,739,4418,5252,5253,739, & - 4418,5253,5256,739,4418,1618,4418,3337,4418,1643,2017,2017, & - 5085,5244,5250,553,2017,5250,553,5085,5244,1643,4644,5250, & - 1643,1731,5250,5255,1731,5085,5244,5255,1350,5073,5250,1350, & - 4371,5250,3006,4371,5255,687,4371,5252,5253,687,4371,5253, & - 5256,687,4371,1925,3436,5250,5251,5253,3436,5073,5253,842, & - 4439,5255,4439,4560,5250,5255,4439,4560,5252,5253,2584,4439, & - 5253,4439,4560,5253,5256,4439,4560,375,4752,5255,5258,1008, & - 4752,5255,4019,4752,5250,5255,4019,4752,5252,5253,2772,4752, & - 5253,4019,4752,5253,5256,375,4752,4019,4752,948,4019,5255, & - 1941,4019,5252,1942,4019,5252,5253,1942,4019,5253,5256,1942, & - 4019,268,4019,4019,5177,984,3949,5250,984,2750,5250,2750, & - 5085,5231,5253,662,5085,5231,5250,5253,1887,4242,5255,1691, & - 4242,5252,5253,1691,4242,5253,5256,1691,4242,1561,4242,1272, & - 3950,5250,1272,2561,5250,2007,5085,5231,5250,5253,2561,5085, & - 5231,5255,793,5085,5231,5250,5255,1126,5189,1126,2073,5250, & - 2072,5189,5250,5253,2072,2073,5253,2073,5189,5255,4955,5189, & - 5201,5256,3895,5189,5256,112,5189,5231,5258,4747,5177,5189, & - 5258,4955,5189,5250,3974,5189,5250,5189,5224,5251,5255,465, & - 5189,5250,5255,1181,4098,5255,2890,4098,5252,5253,2890,4098, & - 5253,5256,1756,4098,2890,4098,430,4098,1070,3270,168,1070, & - 5250,2063,3270,5250,5253,168,2063,5253,168,4315,3270,4315, & - 5250,3270,4315,5255,478,3270,5250,5255,2062,4538,5250,704, & - 2062,5250,704,5179,5188,1617,3908,1617,4681,515,1617,5250, & - 1511,5044,5250,1511,1617,5250,2688,4842,5250,5251,5253,2688, & - 5044,5253,1119,1550,174,1119,5250,1550,1551,5250,5253,174, & - 1551,5253,174,4442,1550,4442,5250,257,1550,5250,5255,388, & - 4652,5255,5258,1336,4652,5255,3698,4652,5250,5255,3698,4652 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_125 = (/ & - 5252,5253,3313,4652,5253,3698,4652,5253,5256,388,4652,3698, & - 4652,882,4825,5255,2311,4825,5252,3957,4825,5252,5253,3957, & - 4825,5253,5256,3374,4825,3957,4825,699,4825,1004,3213,151, & - 1004,5250,2157,3213,5250,5253,151,2157,5253,151,4319,3213, & - 4319,5250,3213,4319,5255,409,3213,5250,5255,1149,1590,190, & - 1149,5250,1590,1591,5250,5253,190,1591,5253,190,4672,1590, & - 4672,5250,266,1590,5250,5255,1801,3397,5160,1614,1801,5250, & - 2524,3397,5160,5250,5253,1614,2524,5253,1614,4130,5160,813, & - 3397,5160,5250,5255,1331,4748,5250,211,1331,5250,2195,3373, & - 5250,5253,211,2195,5253,211,4162,108,211,5250,378,3722, & - 5250,1480,4863,5250,1480,3722,5250,1413,3722,5255,1649,3722, & - 5252,191,3722,5252,5253,191,3722,5253,5256,1648,3722,191, & - 3722,410,3722,1648,2829,5250,5251,5253,2829,4863,5253,3420, & - 5104,5182,5250,3420,5104,5214,955,4172,5255,2673,4172,5252, & - 1986,4172,5252,5253,1986,4172,5253,5256,3420,4172,1986,4172, & - 441,4172,965,4734,5250,965,1620,5250,1620,3682,5245,118, & - 1620,5250,883,5104,5250,883,2293,5250,2621,3431,5160,5250, & - 5253,2293,2621,5253,2293,4147,5160, 99,2293,5250,1333,2965, & - 113,1333,5250,113,3902,213,2965,5250,5255,2975,4648,5250, & - 2975,3612,5250,5251,5255,2210,2975,5250,2210,3612,5251,5255, & - 902,4510,5250,902,2724,5250,2724,5182,5232,5251,2251,4207, & - 5255,4207,5055,5250,4207,5055,5252,5253,5255,2800,4207,5253, & - 4207,5055,5253,5255,5256,4207,5055,5255,1236,4991,5250,1236, & - 4468,5250,2845,4468,5253,2845,5031,5250,5251,5253,545,1759, & - 5250,1759,5171,5193,5250,1759,4274,5250,545,5171,5193,2201, & - 2930,5250,2930,5158,5193,5250,5251,2930,4138,5250,2201,5158, & - 5193,5251,2024,3274,5250,3274,5031,5244,5250,3274,4384,5250, & - 2024,4938,5244,5251,2556,3899,5255,2279,3899,5252,5253,2279, & - 3899,5253,5256,2279,3899,1268,2960,5250,1268,4435,5250,2960, & - 5139,5183,5251,1137,3073,5250,1137,4461,5250,3073,5125,5139 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_126 = (/ & - 5251,960,2751,5250,960,4421,5250,2751,4944,5139,5251,1271, & - 2853,5250,1271,4532,5250,2853,4760,5139,5251,1338,3058,5250, & - 1338,4429,5250,3058,4850,5139,5251,2763,4267,5250,2763,4602, & - 5250,5251,5255,2529,4602,5250,5251,5253,2529,4267,5253,2414, & - 4489,5250,2414,4602,5244,5250,2859,4602,5193,5250,5253,2859, & - 4489,5253,2039,4329,5250,2039,5199,5244,5250,2970,5199,5244, & - 5250,5253,2970,4329,5253,3546,5201,5244,5251,5256,3546,5244, & - 5250,5251,3546,5244,5251,5255,2652,4026,5250,2652,5199,5250, & - 5251,5255,2998,5199,5250,5251,5253,2998,4026,5253,1982,4102, & - 5250,1982,4602,5183,5250,2901,4602,5191,5250,5253,2901,4102, & - 5253, 75,4423,5250,1879,4620,5250,1879,4602,5125,5250,2721, & - 4602,5230,5250,5253,2721,4620,5253, 15,4482,5250,2026,4620, & - 5250,2026,4602,5106,5250,3061,4602,5203,5250,5253,3061,4744, & - 5253,122,4426,5250,4214,4938,5250,2159,4214,5255,4214,4938, & - 5252,5253,5255,2608,4214,5253,4214,4938,5253,5255,5256,4214, & - 4938,5255,2082,4329,5250,2082,4175,5244,5250,2700,4175,5193, & - 5250,5253,2700,4731,5253,2899,4203,5250,2899,4865,5250,5251, & - 5255,3014,4865,5250,5251,5253,3014,4203,5253,2388,4445,5250, & - 2388,5183,5199,5250,2833,5191,5199,5250,5253,2833,4445,5253, & - 2336,5139,5250,5251,5255,2336,4796,5183,5251,5255,2507,4831, & - 5250,2507,3626,5250,5251,5255,3257,3626,5250,5251,5256,3257, & - 4831,5253,1392,4751,5250,1392,3071,5250,3071,3626,5222,5255, & - 1639,5234,5250,5251,5253,1639,5234,5251,5253,5255,4462,4759, & - 5201,5256,4462,4759,5250,4462,4875,5251,5255,4462,5214,5251, & - 5255,2348,3976,5250,795,2348,5250,795,4759,5231,2217,3984, & - 5250,617,2217,5250,617,5171,5231,4902,5171,5201,5251,5256, & - 4902,5171,5250,5251,4902,5171,5251,5255,1932,4493,714,1932, & - 5250,714,5086,5244,583,3719,5250,583,4969,5253,935,3694, & - 5255,169,3694,5252,5253,169,3694,5253,5256,169,3694, 40, & - 3694,1209,4496,5255,4295,4496,5250,5255,351,4496,5255,5258 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_127 = (/ & - 4295,4496,5252,5253,3327,4496,5253,4295,4496,5253,5256,4295, & - 4496,351,4496,1761,4295,5255, 25,4295,5252,5253, 25,4295, & - 5253,5256, 25,4295,1985,3838,5250,775,1985,5250,775,3846, & - 5160,1414,4104,1414,2953,5250,2332,4104,5250,5253,2332,2953, & - 5253,2953,5105,5231,5255,633,4104,5250,5255,633,2953,5255, & - 2404,4560,5250,581,2404,5250,581,5182,5244,906,4867,5255, & - 5258,1541,4867,5255,4867,5020,5250,5255,4867,5020,5252,5253, & - 2660,4867,5253,4867,5020,5253,5256,906,4867,4867,5020,1094, & - 3309,1094,1732,5250,1732,5182,5214,3309,4409,5250,3309,4447, & - 5251,5255,3309,5214,789,3309,5250,5255,789,1732,5255,1189, & - 4131,5250,1189,4131,5255,849,4624,5250,849,4131,5250,1958, & - 4131,5255,774,4131,5252,5253,774,4131,5253,5256,3365,4131, & - 774,4131,279,4131,2564,3365,5250,5251,5253,2564,4624,5253, & - 1312,4278,1312,3913,5250,3913,5004,5233,3248,3913,5251,5255, & - 696,4278,5250,5255,696,3913,5255,1163,3715,5250,1163,3715, & - 5255,1402,4485,5250,1402,3715,5250,1264,3715,5255,2032,3715, & - 5252,2033,3715,5252,5253,2033,3715,5253,5256,3715,5072,2033, & - 3715,772,3715,2984,5072,5250,5251,5253,2984,4485,5253,1139, & - 3557,1139,1579,5250,1579,5233,5237,3557,5237,5250,5251,3557, & - 5237,5251,5255,657,3557,5250,5255,657,1579,5255,1528,3750, & - 5255,1811,3750,5252,1812,3750,5252,5253,1812,3750,5253,5256, & - 1812,3750,527,3750,3750,5086,823,4418,5250,823,4418,5255, & - 1348,4659,5250,1348,4418,5250,2523,3337,5250,5251,5253,2523, & - 4659,5253,2018,3337,739,2018,5250,2018,5179,5231,5250,739, & - 5179,5231,1618,3337,5250,5255,1618,5179,5231,5255,3337,5179, & - 5250,5251,3337,5179,5251,5255,2445,4644,5255,731,4644,5252, & - 5253,731,4644,5253,5256,731,4644,1925,3006,687,3006,5250, & - 687,5211,5244,1925,4486,5250,1925,5179,5244,842,4439,5250, & - 842,4560,5250,2584,5105,5250,5251,5253,2584,4439,5253,375, & - 4019,5250,1008,4752,5250,1008,4019,5250,2772,5177,5250,5251 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_128 = (/ & - 5253,2772,4752,5253,948,5177,948,1942,5250,1941,5177,5250, & - 5253,1941,1942,5253,1942,5177,5255,268,5177,5250,5255,4636, & - 5177,5201,5256,4636,5177,5250,5016,5177,5251,5255,1887,4242, & - 5250,1691,1887,5250,1887,5113,5244,5250,1691,5113,5244,1561, & - 1691,5250,1561,5113,5244,5255,294,4955,5255,5258,916,4955, & - 5255,4955,5224,5250,5255,4955,5224,5252,5253,3010,4955,5253, & - 4955,5224,5253,5256,294,4955,4955,5224,971,3895,5255,2916, & - 3895,5252,5253,2916,3895,5253,5256,2916,3895,543,3895,112, & - 4625,5250,1381,3974,5255,1766,3974,5252,2591,3974,5252,5253, & - 2591,3974,5253,5256,2591,3974,650,3974,1181,1756,1181,2890, & - 5250,2890,5187,5251,5255,1756,5027,5250,5251,1756,5027,5251, & - 5255,430,1756,5250,5255,2312,4315,5255,625,4315,5252,5253, & - 625,4315,5253,5256,1493,4315,625,4315,247,4315,1463,3908, & - 5255,2224,3908,5252,203,3908,5252,5253,203,3908,5253,5256, & - 3908,4842,203,3908,481,3908,1250,4681,5255,3743,4681,5250, & - 5255,360,4681,5255,5258,3743,4681,5252,5253,3323,4681,5253, & - 3743,4681,5253,5256,3743,4681,360,4681,1546,4442,5255,2136, & - 4442,5252,3613,4442,5252,5253,3613,4442,5253,5256,1660,4442, & - 3613,4442,382,4442,388,3698,5250,1336,4652,5250,1336,3698, & - 5250,872,3698,5255,1972,3698,5252,178,3698,5252,5253,178, & - 3698,5253,5256,2773,3698,178,3698,313,3698,2773,3313,5250, & - 5251,5253,3313,4652,5253,882,3374,882,3957,5250,2311,3374, & - 5250,5253,2311,3957,5253,3374,3957,5255,3957,5130,5211,3374, & - 4572,5250,3374,4839,5237,699,3374,5250,5255,699,3957,5255, & - 1155,4319,5255,2327,4319,5252,297,4319,5252,5253,297,4319, & - 5253,5256,297,4319,134,4319,1162,4672,5255,2164,4672,5252, & - 3737,4672,5252,5253,3737,4672,5253,5256,3736,4672,3737,4672, & - 415,4672,3397,4812,5250,5251,3397,4812,5251,5255,2440,4130, & - 5255,817,4130,5252,5253,817,4130,5253,5256,3397,4130,817, & - 4130,406,4130,3373,5130,5182,5250,3373,5130,5214,1060,4162 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_129 = (/ & - 5255,1813,4162,5252,1814,4162,5252,5253,1814,4162,5253,5256, & - 3373,4162,1814,4162,394,4162,1413,1648,191,1413,5250,1648, & - 1649,5250,5253,191,1649,5253,191,4196,1648,4196,5250,410, & - 1648,5250,5255,955,3420,955,1986,5250,2673,3420,5250,5253, & - 1986,2673,5253,1986,5104,5182,441,3420,5250,5255,367,5245, & - 5255,5258,1199,5245,5255,3841,5245,5250,5255,3841,5245,5252, & - 5253,2813,5245,5253,3841,5245,5253,5256,367,5245,3841,5245, & - 3431,4673,5250,5251,3431,4673,5251,5255,1871,4147,5255,810, & - 4147,5252,5253,810,4147,5253,5256,3431,4147,810,4147,411, & - 4147,2965,4137,5184,5250,1295,3902,5255,1930,3902,5252,1931, & - 3902,5252,5253,1931,3902,5253,5256,2965,3902,1931,3902,218, & - 3902,3612,5113,5250,5255,3612,4263,5251,5255,2251,5055,5250, & - 5255,2251,4207,5250,2800,4207,5253,2800,5055,5250,5251,5253, & - 2556,4938,5234,5250,5255,2279,2556,5250,2556,3899,5250,2279, & - 4938,5234,5255,973,4423,5255,163,4423,5252,5253,163,4423, & - 5253,5256,163,4423,101,4423,1357,4482,5255,164,4482,5252, & - 5253,164,4482,5253,5256,164,4482, 98,4482,1464,4426,5255, & - 152,4426,5252,5253,152,4426,5253,5256,152,4426, 26,4426, & - 2159,4214,5250,2159,4938,5250,5255,2608,4938,5250,5251,5253, & - 2608,4214,5253,1085,4759,5255,4759,4875,5250,5255,4759,4875, & - 5252,5253,2510,4759,5253,4759,4875,5253,5256,4759,4875,1784, & - 4875,5255,655,4875,5252,5253,655,4875,5253,5256,655,4875, & - 989,3719,5255, 76,3719,5252,5253, 76,3719,5253,5256, 76, & - 3719,935,3694,5250,169,935,5250,169,4157, 40,169,5250, & - 1209,4496,5250,1209,4295,5250,351,4295,5250,1761,3327,5250, & - 5251,5253,3327,4496,5253,1761,4295,5250, 25,1761,5250, 25, & - 4497,863,3846,5255,2694,3846,5252,5253,2694,3846,5253,5256, & - 2694,3846,906,5020,5250,906,5020,5255,1541,4867,5250,1541, & - 5020,5250,2660,5210,5250,5251,5253,2660,4867,5253,1146,4409, & - 5255,4409,4447,5250,5255,4409,4447,5252,5253,2573,4409,5253 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_130 = (/ & - 4409,4447,5253,5256,4409,4447,1522,4447,5255,2667,4447,5252, & - 5253,2667,4447,5253,5256,2667,4447,1958,3365,774,1958,5250, & - 774,4854,5231,3365,4854,5250,5251,3365,4854,5251,5255,279, & - 3365,5250,5255,3248,5004,5201,5251,5256,3248,5004,5250,5251, & - 3248,5004,5251,5255,1264,5072,1264,2033,5250,2032,5072,5250, & - 5253,2032,2033,5253,2033,5072,5255,4653,5072,5201,5256,4818, & - 5072,5201,5256,4653,5072,5250,4818,5072,5250,4459,5072,5251, & - 5255,4960,5072,5251,5255,772,5072,5250,5255,772,2033,5255, & - 1528,5086,1528,1812,5250,1811,5086,5250,5253,1811,1812,5253, & - 1812,5086,5255,527,5086,5250,5255,527,1812,5255,2445,4644, & - 5250,731,2445,5250,731,4104,5244,1044,4486,5255,3067,4486, & - 5252,5253,3067,4486,5253,5256,3067,4486,506,4636,5255,5258, & - 936,4636,5255,4636,5016,5250,5255,4636,5016,5252,5253,2777, & - 4636,5253,4636,5016,5253,5256,506,4636,4636,5016,4462,5113, & - 5250,5255,5113,5232,5235,5113,5222,5251,5255,294,5224,5250, & - 916,4955,5250,916,5224,5250,3010,3734,5250,5251,5253,3010, & - 4955,5253,971,3895,5250,971,2916,5250,2916,5177,5231,5253, & - 543,5177,5231,5250,5253,3495,4625,5255,3611,4625,5252,5253, & - 3611,4625,5253,5256,3611,4625,2475,4625,1381,3974,5250,1381, & - 2591,5250,1766,5177,5231,5250,5253,2591,5177,5231,5255,650, & - 5177,5231,5250,5255,5027,5187,5201,5256,4117,5187,5256,3849, & - 4747,5187,5258, 61,5187,5231,5258,5027,5187,5250,3848,5187, & - 5250,252,5027,5255,5258,1107,5027,5255,4342,5027,5250,5255, & - 4342,5027,5252,5253,2637,5027,5253,4342,5027,5253,5256,252, & - 5027,4342,5027,1493,2312,625,2312,5250,625,5095,5255,1493, & - 5006,5250,1493,5006,5255,247,1493,5250,5255,1463,4842,203, & - 1463,5250,2224,4842,5250,5253,203,2224,5253,203,4120,481, & - 4842,5250,5255,1250,4681,5250,1250,3743,5250,1339,3743,5255, & - 1883,3743,5252,157,3743,5252,5253,157,3743,5253,5256,2979, & - 3743,157,3743,476,3743,360,3743,5250,2979,3323,5250,5251 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_131 = (/ & - 5253,3323,4681,5253,1546,1660,1546,3613,5250,1660,2136,5250, & - 5253,2136,3613,5253,1660,3613,5255,3613,5211,5239,1660,5245, & - 5250,382,1660,5250,5255,872,2773,178,872,5250,1972,2773, & - 5250,5253,178,1972,5253,178,4216,2773,4216,5250,2773,4216, & - 5255,313,2773,5250,5255,1411,5130,5255,2802,5130,5252,1818, & - 5130,5252,5253,1818,5130,5253,5256,1818,5130,547,5130,1485, & - 4572,5255,2749,4572,5252,5253,2749,4572,5253,5256,2809,4572, & - 2749,4572,1875,4572,470,4839,5255,5258,1507,4839,5255,4234, & - 4839,5250,5255,4234,4839,5252,5253,3029,4839,5253,4234,4839, & - 5253,5256,470,4839,4234,4839,1155,4319,5250,297,1155,5250, & - 2327,2719,5250,5253,297,2327,5253,297,3855,134,297,5250, & - 1162,3736,1162,3737,5250,2164,3736,5250,5253,2164,3737,5253, & - 3736,3737,5255,2895,3737,5239,2895,3736,5239,5250,415,3736, & - 5250,5255,1238,4812,5255,5258,2139,4812,5255,4812,5004,5231, & - 5250,5255,4812,5004,5231,5252,5253,2941,4812,5253,4812,5004, & - 5231,5253,5256,1238,4812,4812,5004,5231,2440,3397,817,2440, & - 5250,817,4812,5231,406,3397,5250,5255,1060,3373,1060,1814, & - 5250,1813,3373,5250,5253,1813,1814,5253,1814,5130,5182,394, & - 3373,5250,5255,1519,4196,5255,2275,4196,5252,3424,4196,5252, & - 5253,3424,4196,5253,5256,2938,4196,3424,4196,320,4196,367, & - 3841,5250,1199,5245,5250,1199,3841,5250,1328,3841,5255,2444, & - 3841,5252,173,3841,5252,5253,173,3841,5253,5256,3841,4978, & - 173,3841,334,3841,2813,4978,5250,5251,5253,2813,5245,5253, & - 856,4673,5255,5258,1920,4673,5255,4673,5231,5237,5250,5255, & - 4673,5231,5237,5252,5253,2571,4673,5253,4673,5231,5237,5253, & - 5256,856,4673,4673,5231,5237,1871,3431,810,1871,5250,810, & - 4673,5231,411,3431,5250,5255,2214,4137,5255,2942,4137,5252, & - 1724,4137,5252,5253,1724,4137,5253,5256,1724,4137,754,4137, & - 1295,2965,1295,1931,5250,1930,2965,5250,5253,1930,1931,5253, & - 1931,4137,5184,218,2965,5250,5255,973,4423,5250,163,973 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_132 = (/ & - 5250,163,4966,101,163,5250,1357,4482,5250,164,1357,5250, & - 164,4792, 98,164,5250,1464,4426,5250,152,1464,5250,152, & - 4864, 26,152,5250,1085,4759,5250,1085,4875,5250,2510,4602, & - 5250,5251,5253,2510,4759,5253,1784,4875,5250,655,1784,5250, & - 655,3809,5231,989,3719,5250, 76,989,5250, 76,4220,1263, & - 4157,5255,3447,4157,5252,1989,4157,5252,5253,1989,4157,5253, & - 5256,1989,4157,520,4157,2111,4497,5255,644,4497,5252,5253, & - 644,4497,5253,5256,644,4497,863,3846,5250,863,2694,5250, & - 2694,4362,5231,5255,1146,4409,5250,1146,4447,5250,2573,3355, & - 5250,5251,5253,2573,4409,5253,1522,3355,1522,2667,5250,2667, & - 5214,5231,5251,1344,4854,5255,5258,998,4854,5255,4346,4854, & - 5250,5255,4346,4854,5252,5253,2756,4854,5253,4346,4854,5253, & - 5256,1344,4854,4346,4854,827,4653,5255,5258,1408,4653,5255, & - 4459,4653,5250,5255,4459,4653,5252,5253,2980,4653,5253,4459, & - 4653,5253,5256,827,4653,4459,4653,953,4818,5255,5258,1022, & - 4818,5255,4818,4960,5250,5255,4818,4960,5252,5253,3293,4818, & - 5253,4818,4960,5253,5256,953,4818,4818,4960,1130,4459,5255, & - 1652,4459,5252,5253,1652,4459,5253,5256,3639,4459,1652,4459, & - 725,4459,1757,4960,5255,741,4960,5252,5253,741,4960,5253, & - 5256,741,4960,4279,4960,1044,4486,5250,1044,3067,5250,3067, & - 5242,5244,5251,506,5016,5250,936,4636,5250,936,5016,5250, & - 2777,5080,5250,5251,5253,2777,4636,5253,3495,4625,5250,3495, & - 5080,5250,5251,5255,3495,3611,5250,3495,5023,5244,5250,3611, & - 5080,5251,5255,3611,5023,5244,2475,3611,5250,2475,5080,5251, & - 5255,2475,5023,5244,5255,1527,4117,5255,2578,4117,5252,5253, & - 2578,4117,5253,5256,2578,4117,530,4117,3849,5054,5201,5256, & - 3849,5054,5250, 61,4779,5250,1046,3848,5255,1912,3848,5252, & - 2931,3848,5252,5253,2931,3848,5253,5256,2931,3848,690,3848, & - 252,4342,5250,1107,5027,5250,1107,4342,5250,1439,4342,5255, & - 1786,4342,5252,3430,4342,5252,5253,3430,4342,5253,5256,3642 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_133 = (/ & - 4342,3430,4342,390,4342,2637,3642,5250,5251,5253,2637,5027, & - 5253,1019,4120,5255,2894,4120,5252,5253,2894,4120,5253,5256, & - 2209,4120,2894,4120,482,4120,1339,2979,157,1339,5250,1883, & - 2979,5250,5253,157,1883,5253,157,4226,2979,4226,5250,2979, & - 4226,5255,476,2979,5250,5255,826,4216,5255,2257,4216,5252, & - 290,4216,5252,5253,290,4216,5253,5256,290,4216, 83,4216, & - 1411,5130,5250,1411,1818,5250,2802,3557,5160,5250,5253,1818, & - 2802,5253,1818,4136,5160,547,1818,5250,547,5101,5237,1485, & - 2809,1485,2749,5250,2749,4978,5237,5251,2809,4115,5250,2809, & - 4839,5237,5251,1875,2809,5250,5255,1875,4978,5237,5251,5255, & - 470,4234,5250,1507,4839,5250,1507,4234,5250,414,4234,5255, & - 760,4234,5252,5253,760,4234,5253,5256,760,4234, 60,4234, & - 3029,5160,5211,5250,5253,3029,4839,5253,2719,3233,5104,5250, & - 1077,3855,5255,2303,3855,5252,2304,3855,5252,5253,2304,3855, & - 5253,5256,2719,3855,2304,3855,357,3855,2895,4525,5250,2895, & - 4477,5251,5255,1238,5004,5231,5250,2139,4812,5250,2139,5004, & - 5231,5250,2941,5182,5250,5251,5253,2941,4812,5253,1519,2938, & - 1519,3424,5250,2275,2938,5250,5253,2275,3424,5253,2938,3424, & - 5255,3424,5182,5239,2938,5182,5239,5250,320,2938,5250,5255, & - 1328,4978,173,1328,5250,2444,4978,5250,5253,173,2444,5253, & - 173,4820,4839,4978,5201,5256,4839,4978,5250,4234,4978,5251, & - 5255,334,4978,5250,5255,856,5231,5237,5250,1920,4673,5250, & - 1920,5231,5237,5250,2571,5184,5231,5250,5253,2571,4673,5253, & - 2214,4278,5160,1724,2214,5250,2942,4278,5160,5250,5253,1724, & - 2942,5253,1724,4042,5160,754,4278,5160,5250,5255,4220,4902, & - 5250,5253,5255,2142,4220,5255,4220,4902,5252,5253,2530,4220, & - 5253,4220,4902,5253,5256,4220,4902,5253,1263,4157,5250,1263, & - 1989,5250,1929,3447,5160,5231,5250,5253,1989,3447,5253,1989, & - 3874,5160,520,1989,5250,520,1989,5255,2111,4497,5250,644, & - 2111,5250,644,3724,5160,4362,4520,5201,5256,4362,4520,5250 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_134 = (/ & - 4362,4465,5251,5255,4362,5214,5232,3355,5214,5250,5251,3355, & - 5214,5251,5255,1344,4346,5250,1344,4346,5255,998,4854,5250, & - 998,4346,5250,1538,4346,5255,3041,4346,5252,5253,3041,4346, & - 5253,5256,3639,4346,3041,4346,559,4346,2756,3639,5250,5251, & - 5253,2756,4854,5253,827,4459,5250,827,4459,5255,1408,4653, & - 5250,1408,4459,5250,2980,3639,5250,5251,5253,2980,4653,5253, & - 953,4960,5250,953,4960,5255,1022,4818,5250,1022,4960,5250, & - 3293,5160,5182,5250,5251,5253,3293,4818,5253,1130,3639,1130, & - 1652,5250,1652,4853,5231,3639,4853,5250,5251,3639,4853,5251, & - 5255,725,3639,5250,5255,725,1652,5255,1757,4960,5250,741, & - 1757,5250,741,5160,5214,1527,4117,5250,1527,2578,5250,2578, & - 3849,5231,5253,530,3849,5231,5250,5253,433,5054,5255,5258, & - 1347,5054,5255,4116,5054,5250,5255,4116,5054,5252,5253,2703, & - 5054,5253,4116,5054,5253,5256,433,5054,4116,5054,3480,4779, & - 5255,3615,4779,5252,5253,3615,4779,5253,5256,3615,4779,2483, & - 4779,1046,3848,5250,1046,2931,5250,1912,3849,5231,5250,5253, & - 2931,3849,5231,5255,690,3849,5231,5250,5255,1439,3642,1439, & - 3430,5250,1786,3642,5250,5253,1786,3430,5253,3430,3642,5255, & - 3430,5195,5226,3642,4343,5250,3642,5128,5195,390,3642,5250, & - 5255,1019,2209,1019,2894,5250,2894,3849,5251,5255,2209,5054, & - 5250,5251,2209,5054,5251,5255,482,2209,5250,5255,1890,4226, & - 5255,537,4226,5252,5253,537,4226,5253,5256,1257,4226,537, & - 4226,368,4226,826,4216,5250,290,826,5250,2257,2856,5250, & - 5253,290,2257,5253,290,3882, 83,290,5250,1793,4136,5255, & - 802,4136,5252,5253,802,4136,5253,5256,3557,4136,802,4136, & - 1678,4136,858,4115,5255,3062,4115,5252,5253,3062,4115,5253, & - 5256,3062,4115,414,4234,5250,414,4234,5250,760,5160,5179, & - 60,760,5250,1077,2719,1077,2304,5250,2303,2719,5250,5253, & - 2303,2304,5253,2304,3233,5104,357,2719,5250,5255,1154,4525, & - 5255,4477,4525,5250,5255,4477,4525,5252,5253,2567,4525,5253 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_135 = (/ & - 4477,4525,5253,5256,4477,4525,2153,4477,5255,643,4477,5252, & - 5253,643,4477,5253,5256,643,4477,2300,4820,5255,695,4820, & - 5252,5253,695,4820,5253,5256,2680,4820,695,4820,500,4820, & - 2142,4220,5250,2142,4902,5250,5253,2530,4902,5250,5251,5253, & - 2530,4220,5253,1544,3874,5255,3410,3874,5252,5253,3410,3874, & - 5253,5256,3410,3874,2450,3724,5255,733,3724,5252,5253,733, & - 3724,5253,5256,733,3724,4465,4520,5250,5255,1219,4520,5255, & - 4465,4520,5252,5253,2729,4520,5253,4465,4520,5253,5256,4465, & - 4520,1116,4465,5255,2607,4465,5252,5253,2607,4465,5253,5256, & - 2607,4465,1538,3639,1538,3041,5250,3041,3960,5251,5255,559, & - 3639,5250,5255,559,3041,5255,903,4853,5255,5258,824,4853, & - 5255,4763,4853,5250,5255,4763,4853,5252,5253,2864,4853,5253, & - 4763,4853,5253,5256,903,4853,4763,4853,433,4116,5250,1347, & - 5054,5250,1347,4116,5250,2437,4116,5255,544,4116,5252,5253, & - 544,4116,5253,5256,544,4116,3602,4116,4116,4392,2703,4392, & - 5250,5251,5253,2703,5054,5253,3480,4779,5250,3480,3615,5250, & - 3480,4392,5250,5251,5255,3480,4239,5244,5250,3615,4392,5251, & - 5255,3615,4239,5244,2483,3615,5250,2483,4392,5251,5255,2483, & - 4239,5244,5255,1926,4343,5255,648,4343,5252,5253,648,4343, & - 5253,5256,648,4343,567,4343,1257,1890,537,1890,5250,537, & - 5085,5255,1257,4752,5250,1257,4752,5255,368,1257,5250,5255, & - 2856,3233,5130,5250,1505,3882,5255,2855,3882,5252,2226,3882, & - 5252,5253,2226,3882,5253,5256,2856,3882,2226,3882,296,3882, & - 1793,3557,802,1793,5250,802,5237,5251,1678,3557,5250,5255, & - 1678,5232,5237,858,4115,5250,858,3062,5250,3062,4839,5234, & - 5251,1154,4525,5250,1154,4477,5250,2567,3958,5250,5251,5253, & - 2567,4525,5253,2153,3958,2153,4477,5250,643,2153,5250,643, & - 3958,5255,2300,2680,695,2300,5250,695,5079,5242,2680,3633, & - 5250,5255,2680,5079,5158,500,2680,5250,5255,1544,3410,5250, & - 1544,3874,1929,3410,5231,5255,2450,3724,5250,733,2450,5250 /) - INTEGER, PARAMETER, DIMENSION(280) :: IROW_STOICM_136 = (/ & - 733,5182,5255,1219,4520,5250,1219,4465,5250,2729,3350,5250, & - 5251,5253,2729,4520,5253,1116,4465,5250,1116,2607,5250,2607, & - 5231,5232,5251,3960,4853,5201,5256,3960,4853,5250,3960,4763, & - 5251,5255,903,4763,5250,903,4763,5255,824,4853,5250,824, & - 4763,5250,2864,5160,5250,5251,5253,2864,4853,5253,2437,4392, & - 544,2437,5250,2437,5184,5244,5250,544,5184,5244,1926,4343, & - 5250,648,1926,5250,1926,5188,5237,5250,648,5188,5237,567, & - 5188,5237,5250,567,5188,5237,5255,1505,2856,1505,2226,5250, & - 2855,2856,5250,5253,2226,2855,5253,2226,3233,5130,296,2856, & - 5250,5255,3958,4686,5250,3958,4687,5251,5255,3633,4456,5201, & - 5256,3633,4456,5250,3633,4503,5251,5255,1474,4686,5255,4686, & - 4687,5250,5255,4686,4687,5252,5253,2779,4686,5253,4686,4687, & - 5253,5256,4686,4687,1956,4687,5255,115,4687,5252,5253,115, & - 4687,5253,5256,115,4687,352,4687,3604,4687,1461,4456,5255, & - 4456,4503,5250,5255,4456,4503,5252,5253,2619,4456,5253,4456, & - 4503,5253,5256,4456,4503,940,4503,5255,2968,4503,5252,5253, & - 2968,4503,5253,5256,2968,4503,1474,4686,5250,1474,4687,5250, & - 2779,3604,5250,5251,5253,2779,4686,5253,1956,4687,5250,1956, & - 3604,115,1956,5250,115,5228,352,3604,5250,5255,3604,4543, & - 5250,3604,5228,5251,5255,1461,4456,5250,1461,4503,5250,2619, & - 4939,5160,5250,5253,2619,4456,5253,940,4503,5250,940,2968, & - 5250,2968,5158,5160,5251,866,4543,5255,2788,4543,5252,5253, & - 2788,4543,5253,5256,2788,4543,866,4543,5250,866,2788,5250, & - 2788,5231,5251,5255 /) - INTEGER, PARAMETER, DIMENSION(49240) :: IROW_STOICM = (/& - IROW_STOICM_0, IROW_STOICM_1, IROW_STOICM_2, IROW_STOICM_3, IROW_STOICM_4, & - IROW_STOICM_5, IROW_STOICM_6, IROW_STOICM_7, IROW_STOICM_8, IROW_STOICM_9, & - IROW_STOICM_10, IROW_STOICM_11, IROW_STOICM_12, IROW_STOICM_13, IROW_STOICM_14, & - IROW_STOICM_15, IROW_STOICM_16, IROW_STOICM_17, IROW_STOICM_18, IROW_STOICM_19, & - IROW_STOICM_20, IROW_STOICM_21, IROW_STOICM_22, IROW_STOICM_23, IROW_STOICM_24, & - IROW_STOICM_25, IROW_STOICM_26, IROW_STOICM_27, IROW_STOICM_28, IROW_STOICM_29, & - IROW_STOICM_30, IROW_STOICM_31, IROW_STOICM_32, IROW_STOICM_33, IROW_STOICM_34, & - IROW_STOICM_35, IROW_STOICM_36, IROW_STOICM_37, IROW_STOICM_38, IROW_STOICM_39, & - IROW_STOICM_40, IROW_STOICM_41, IROW_STOICM_42, IROW_STOICM_43, IROW_STOICM_44, & - IROW_STOICM_45, IROW_STOICM_46, IROW_STOICM_47, IROW_STOICM_48, IROW_STOICM_49, & - IROW_STOICM_50, IROW_STOICM_51, IROW_STOICM_52, IROW_STOICM_53, IROW_STOICM_54, & - IROW_STOICM_55, IROW_STOICM_56, IROW_STOICM_57, IROW_STOICM_58, IROW_STOICM_59, & - IROW_STOICM_60, IROW_STOICM_61, IROW_STOICM_62, IROW_STOICM_63, IROW_STOICM_64, & - IROW_STOICM_65, IROW_STOICM_66, IROW_STOICM_67, IROW_STOICM_68, IROW_STOICM_69, & - IROW_STOICM_70, IROW_STOICM_71, IROW_STOICM_72, IROW_STOICM_73, IROW_STOICM_74, & - IROW_STOICM_75, IROW_STOICM_76, IROW_STOICM_77, IROW_STOICM_78, IROW_STOICM_79, & - IROW_STOICM_80, IROW_STOICM_81, IROW_STOICM_82, IROW_STOICM_83, IROW_STOICM_84, & - IROW_STOICM_85, IROW_STOICM_86, IROW_STOICM_87, IROW_STOICM_88, IROW_STOICM_89, & - IROW_STOICM_90, IROW_STOICM_91, IROW_STOICM_92, IROW_STOICM_93, IROW_STOICM_94, & - IROW_STOICM_95, IROW_STOICM_96, IROW_STOICM_97, IROW_STOICM_98, IROW_STOICM_99, & - IROW_STOICM_100, IROW_STOICM_101, IROW_STOICM_102, IROW_STOICM_103, IROW_STOICM_104, & - IROW_STOICM_105, IROW_STOICM_106, IROW_STOICM_107, IROW_STOICM_108, IROW_STOICM_109, & - IROW_STOICM_110, IROW_STOICM_111, IROW_STOICM_112, IROW_STOICM_113, IROW_STOICM_114, & - IROW_STOICM_115, IROW_STOICM_116, IROW_STOICM_117, IROW_STOICM_118, IROW_STOICM_119, & - IROW_STOICM_120, IROW_STOICM_121, IROW_STOICM_122, IROW_STOICM_123, IROW_STOICM_124, & - IROW_STOICM_125, IROW_STOICM_126, IROW_STOICM_127, IROW_STOICM_128, IROW_STOICM_129, & - IROW_STOICM_130, IROW_STOICM_131, IROW_STOICM_132, IROW_STOICM_133, IROW_STOICM_134, & - IROW_STOICM_135, IROW_STOICM_136 /) - - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_0 = (/ & - 2, 2, 3, 3, 4, 4, 4, 5, 5, 5, 6, 6, & - 6, 7, 7, 8, 8, 8, 9, 9, 9, 10, 10, 11, & - 11, 11, 12, 12, 13, 13, 13, 14, 14, 15, 15, 15, & - 16, 16, 16, 17, 17, 17, 18, 18, 18, 19, 19, 19, & - 20, 20, 21, 21, 22, 22, 22, 23, 23, 23, 24, 24, & - 24, 24, 25, 25, 25, 25, 26, 26, 26, 27, 27, 27, & - 28, 28, 28, 28, 29, 29, 29, 30, 30, 30, 31, 31, & - 31, 32, 32, 32, 33, 33, 33, 34, 34, 35, 35, 36, & - 36, 37, 37, 38, 38, 39, 39, 40, 40, 40, 41, 41, & - 42, 42, 42, 43, 43, 43, 44, 44, 44, 45, 45, 45, & - 46, 46, 46, 47, 47, 47, 47, 48, 48, 48, 49, 49, & - 49, 49, 50, 50, 50, 51, 51, 51, 51, 52, 52, 52, & - 53, 53, 53, 54, 54, 54, 54, 55, 55, 55, 56, 56, & - 56, 56, 57, 57, 57, 58, 58, 58, 59, 59, 59, 60, & - 60, 60, 60, 61, 61, 61, 62, 62, 62, 63, 63, 63, & - 63, 64, 64, 64, 65, 65, 65, 66, 66, 66, 66, 67, & - 67, 67, 68, 68, 68, 69, 69, 69, 69, 70, 70, 70, & - 71, 71, 71, 72, 72, 72, 72, 73, 73, 73, 74, 74, & - 74, 75, 75, 75, 76, 76, 76, 77, 77, 77, 78, 78, & - 78, 79, 79, 79, 80, 80, 80, 80, 81, 81, 81, 82, & - 82, 82, 82, 83, 83, 83, 84, 84, 84, 85, 85, 85, & - 86, 86, 86, 87, 87, 87, 87, 88, 88, 88, 88, 89, & - 89, 89, 89, 90, 90, 90, 91, 91, 91, 92, 92, 92, & - 92, 93, 93, 93, 93, 94, 94, 94, 95, 95, 95, 96, & - 96, 96, 97, 97, 97, 98, 98, 98, 98, 98, 99, 99, & - 99, 99,100,100,100,100,101,101,101,101,102,102, & - 102,103,103,103,104,104,104,104,105,105,105,106, & - 106,106,106,107,107,107,107,108,108,108,109,109, & - 109,110,110,110,111,111,111,111,112,112,112,112, & - 113,113,113,114,114,114,115,115,115,116,116,116 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_1 = (/ & - 116,117,117,117,117,118,118,118,119,119,119,120, & - 120,120,120,121,121,121,121,122,122,122,123,123, & - 123,124,124,124,125,125,126,126,126,127,127,127, & - 127,128,128,128,128,129,129,129,129,130,130,130, & - 130,131,131,131,132,132,132,132,133,133,133,133, & - 134,134,134,134,135,135,135,136,136,136,137,137, & - 137,138,138,138,138,139,139,139,140,140,140,141, & - 141,141,141,142,142,142,142,143,143,143,144,144, & - 144,145,145,145,146,146,146,146,147,147,147,148, & - 148,148,149,149,149,150,150,150,151,151,151,152, & - 152,152,153,153,153,154,154,154,155,155,155,156, & - 156,156,157,157,157,158,158,158,159,159,159,160, & - 160,160,161,161,161,162,162,162,163,163,163,164, & - 164,164,165,165,165,166,166,166,167,167,167,168, & - 168,168,169,169,169,170,170,170,171,171,171,172, & - 172,172,173,173,173,174,174,174,175,175,175,176, & - 176,176,177,177,177,178,178,178,179,179,179,180, & - 180,180,181,181,181,182,182,182,183,183,183,184, & - 184,184,185,185,185,186,186,186,187,187,187,188, & - 188,188,189,189,189,190,190,190,191,191,191,192, & - 192,192,193,193,193,194,194,194,195,195,195,196, & - 196,196,197,197,197,198,198,198,199,199,199,200, & - 200,200,201,201,201,202,202,202,203,203,203,204, & - 204,204,205,205,205,206,206,206,207,207,207,208, & - 208,208,209,209,209,210,210,210,211,211,211,212, & - 212,212,213,213,213,214,214,214,215,215,215,216, & - 216,216,217,217,217,218,218,218,219,219,219,220, & - 220,220,221,221,221,222,222,222,223,223,223,224, & - 224,224,225,225,225,226,226,226,227,227,227,228, & - 228,228,229,229,229,230,230,230,230,231,231,231 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_2 = (/ & - 232,232,232,233,233,233,234,234,234,234,235,235, & - 235,235,236,236,236,237,237,237,238,238,238,239, & - 239,239,240,240,240,240,241,241,241,241,242,242, & - 242,243,243,243,244,244,244,245,245,245,245,246, & - 246,246,247,247,247,248,248,248,248,249,249,249, & - 250,250,250,251,251,251,252,252,252,252,253,253, & - 253,253,254,254,254,255,255,255,256,256,256,257, & - 257,257,258,258,258,258,259,259,259,259,260,260, & - 260,261,261,261,262,262,262,263,263,263,264,264, & - 264,264,265,265,265,265,266,266,266,267,267,267, & - 268,268,268,269,269,269,270,270,270,270,271,271, & - 271,271,272,272,272,273,273,273,274,274,274,275, & - 275,275,276,276,276,276,277,277,277,277,278,278, & - 278,279,279,279,280,280,280,281,281,281,282,282, & - 282,282,283,283,283,283,284,284,284,285,285,285, & - 286,286,286,287,287,287,288,288,288,288,289,289, & - 289,289,290,290,290,291,291,291,292,292,292,293, & - 293,293,294,294,294,294,295,295,295,295,296,296, & - 296,297,297,297,298,298,298,299,299,299,300,300, & - 300,300,301,301,301,301,302,302,302,303,303,303, & - 304,304,304,305,305,305,306,306,306,306,307,307, & - 307,307,308,308,308,309,309,309,310,310,310,311, & - 311,311,311,312,312,312,313,313,314,314,314,314, & - 314,315,315,315,316,316,316,316,317,317,317,317, & - 318,318,318,319,319,319,319,320,320,320,321,321, & - 321,321,322,322,322,322,323,323,323,324,324,324, & - 324,325,325,325,326,326,326,326,327,327,327,327, & - 328,328,328,329,329,329,329,330,330,330,331,331, & - 331,331,332,332,332,332,333,333,333,334,334,334, & - 334,335,335,335,336,336,336,336,337,337,337,337 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_3 = (/ & - 338,338,338,339,339,339,339,340,340,340,341,341, & - 341,341,342,342,342,342,343,343,343,343,344,344, & - 344,345,345,345,345,346,346,346,347,347,347,347, & - 348,348,348,348,349,349,349,350,350,350,350,351, & - 351,351,352,352,352,352,353,353,353,354,354,354, & - 354,355,355,355,356,356,356,356,357,357,357,357, & - 358,358,358,359,359,359,360,360,360,360,361,361, & - 361,361,362,362,362,362,363,363,363,364,364,364, & - 364,365,365,365,365,366,366,366,367,367,367,367, & - 368,368,368,369,369,369,370,370,370,370,371,371, & - 371,371,372,372,372,372,373,373,373,374,374,374, & - 375,375,375,375,376,376,376,376,377,377,377,377, & - 378,378,378,379,379,379,380,380,380,380,381,381, & - 381,381,382,382,382,382,383,383,383,384,384,384, & - 385,385,385,385,386,386,386,386,387,387,387,387, & - 388,388,388,389,389,389,389,390,390,390,391,391, & - 391,391,392,392,392,393,393,393,393,394,394,394, & - 394,395,395,395,396,396,396,397,397,397,397,398, & - 398,398,398,399,399,399,400,400,400,401,401,401, & - 402,402,402,402,403,403,403,403,404,404,404,405, & - 405,405,406,406,406,407,407,407,408,408,408,408, & - 409,409,409,409,410,410,410,410,411,411,411,411, & - 412,412,412,413,413,413,414,414,414,415,415,415, & - 415,416,416,416,416,417,417,417,418,418,418,419, & - 419,419,419,420,420,420,421,421,421,421,422,422, & - 422,423,423,423,424,424,424,425,425,425,426,426, & - 426,427,427,427,428,428,428,429,429,429,430,430, & - 430,431,431,431,432,432,432,433,433,433,434,434, & - 434,435,435,435,436,436,436,437,437,437,438,438, & - 438,439,439,439,440,440,440,441,441,441,442,442 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_4 = (/ & - 442,443,443,443,444,444,444,445,445,445,446,446, & - 446,447,447,447,448,448,448,449,449,449,450,450, & - 450,451,451,451,452,452,452,453,453,453,454,454, & - 454,454,455,455,455,456,456,456,457,457,457,458, & - 458,458,459,459,459,460,460,460,461,461,461,462, & - 462,462,463,463,463,464,464,464,465,465,465,465, & - 466,466,466,466,467,467,467,468,468,468,469,469, & - 469,470,470,470,471,471,471,472,472,472,473,473, & - 473,474,474,474,475,475,475,476,476,476,477,477, & - 477,478,478,478,479,479,479,480,480,480,481,481, & - 481,482,482,482,483,483,483,484,484,484,485,485, & - 485,486,486,486,487,487,487,487,488,488,488,488, & - 489,489,490,490,491,491,492,492,492,493,493,493, & - 494,494,494,494,495,495,495,495,496,496,497,497, & - 498,498,499,499,499,500,500,500,500,501,501,502, & - 502,503,503,504,504,504,504,505,505,505,506,506, & - 506,507,507,507,507,508,508,508,509,509,509,509, & - 510,510,511,511,512,512,513,513,513,514,514,514, & - 515,515,515,515,516,516,516,516,517,517,518,518, & - 519,519,520,520,520,521,521,521,522,522,522,522, & - 523,523,523,523,524,524,525,525,526,526,527,527, & - 527,528,528,528,528,529,529,529,530,530,530,530, & - 531,531,532,532,533,533,534,534,534,535,535,535, & - 536,536,536,536,537,537,537,537,538,538,539,539, & - 540,540,540,541,541,541,542,542,542,542,543,543, & - 543,543,544,544,545,545,546,546,547,547,547,548, & - 548,548,549,549,549,549,550,550,550,550,551,551, & - 552,552,553,553,554,554,554,555,555,555,556,556, & - 556,557,557,557,557,558,558,558,558,559,559,560, & - 560,561,561,562,562,562,563,563,563,564,564,564 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_5 = (/ & - 564,565,565,565,565,566,566,567,567,568,568,569, & - 569,569,570,570,570,570,571,571,571,571,572,572, & - 572,573,573,573,574,574,574,575,575,575,575,576, & - 576,576,576,577,577,578,578,579,579,580,580,580, & - 581,581,581,582,582,582,582,583,583,583,583,584, & - 584,585,585,586,586,586,586,587,587,587,588,588, & - 588,589,589,589,590,590,590,591,591,591,591,592, & - 592,592,592,593,593,594,594,595,595,595,596,596, & - 596,597,597,597,597,598,598,598,598,599,599,600, & - 600,601,601,602,602,602,603,603,603,604,604,604, & - 604,605,605,605,605,606,606,607,607,608,608,609, & - 609,609,610,610,610,611,611,611,611,612,612,612, & - 612,613,613,614,614,615,615,616,616,616,617,617, & - 617,618,618,618,618,619,619,619,619,620,620,621, & - 621,622,622,623,623,623,624,624,624,625,625,625, & - 625,626,626,626,626,627,627,628,628,629,629,630, & - 630,630,631,631,631,632,632,632,632,633,633,633, & - 633,634,634,635,635,636,636,636,637,637,637,637, & - 638,638,638,639,639,639,639,640,640,641,641,642, & - 642,643,643,643,644,644,644,644,645,645,645,645, & - 646,646,647,647,648,648,649,649,649,650,650,650, & - 650,651,651,651,652,652,652,652,653,653,654,654, & - 655,655,656,656,656,657,657,657,657,658,658,658, & - 658,659,659,660,660,661,661,662,662,662,662,663, & - 663,663,664,664,664,664,665,665,665,665,666,666, & - 666,667,667,667,667,668,668,669,669,670,670,670, & - 670,671,671,671,671,672,672,672,673,673,673,673, & - 674,674,674,674,675,675,675,675,676,676,676,676, & - 677,677,677,678,678,678,678,679,679,679,680,680, & - 680,680,681,681,681,681,682,682,683,683,684,684 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_6 = (/ & - 685,685,685,686,686,686,686,687,687,687,687,688, & - 688,689,689,690,690,691,691,691,691,691,692,692, & - 692,693,693,694,694,695,695,695,696,696,696,696, & - 697,697,698,698,699,699,699,699,700,700,700,701, & - 701,701,702,702,702,702,703,703,703,703,704,704, & - 705,705,706,706,707,707,707,708,708,708,709,709, & - 709,709,710,710,710,710,711,711,712,712,713,713, & - 714,714,714,715,715,715,716,716,716,717,717,717, & - 717,718,718,718,719,719,719,719,720,720,721,721, & - 722,722,723,723,723,724,724,724,724,725,725,725, & - 725,726,726,727,727,728,728,729,729,729,729,730, & - 730,730,731,731,731,731,732,732,732,732,733,733, & - 733,734,734,734,734,735,735,736,736,737,737,737, & - 738,738,738,739,739,739,739,740,740,740,740,741, & - 741,742,742,743,743,744,744,744,744,745,745,745, & - 745,746,746,746,747,747,747,747,748,748,748,749, & - 749,749,749,750,750,751,751,752,752,752,753,753, & - 753,754,754,754,754,755,755,755,755,756,756,757, & - 757,758,758,759,759,759,760,760,760,761,761,761, & - 761,762,762,762,762,763,763,764,764,765,765,766, & - 766,766,766,767,767,767,767,768,768,768,769,769, & - 769,769,770,770,770,771,771,771,771,772,772,773, & - 773,774,774,774,775,775,775,776,776,776,776,777, & - 777,777,777,778,778,779,779,780,780,781,781,781, & - 782,782,782,782,783,783,783,783,784,784,785,785, & - 786,786,786,787,787,787,788,788,788,788,789,789, & - 789,789,790,790,791,791,792,792,793,793,793,793, & - 794,794,794,794,795,795,795,796,796,796,796,797, & - 797,797,798,798,798,798,799,799,800,800,801,801, & - 801,802,802,802,803,803,803,803,804,804,804,804 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_7 = (/ & - 805,805,806,806,807,807,808,808,808,809,809,809, & - 810,810,810,810,811,811,811,811,812,812,813,813, & - 814,814,815,815,815,815,816,816,816,817,817,817, & - 817,818,818,818,818,818,818,819,819,819,820,820, & - 820,820,820,820,821,821,822,822,822,822,823,823, & - 823,824,824,824,824,825,825,825,825,826,826,827, & - 827,827,827,828,828,829,829,830,830,830,830,831, & - 831,831,832,832,832,833,833,833,833,834,834,834, & - 834,835,835,836,836,837,837,838,838,838,839,839, & - 839,840,840,840,841,841,841,841,842,842,842,843, & - 843,844,844,845,845,845,846,846,846,846,847,847, & - 847,848,848,848,848,849,849,849,849,850,850,850, & - 850,851,851,851,852,852,852,852,853,853,853,854, & - 854,854,854,855,855,856,856,857,857,858,858,858, & - 858,859,859,859,859,860,860,860,860,860,861,861, & - 861,861,862,862,863,863,864,864,864,864,865,865, & - 865,866,866,866,867,867,867,867,868,868,868,868, & - 869,869,869,869,870,870,871,871,872,872,872,873, & - 873,873,874,874,874,874,875,875,875,875,876,876, & - 877,877,878,878,879,879,879,880,880,880,880,881, & - 881,881,881,882,882,882,882,882,882,883,883,883, & - 884,884,884,884,884,884,885,885,886,886,886,886, & - 887,887,887,888,888,888,888,889,889,889,889,890, & - 890,891,891,892,892,893,893,893,894,894,894,894, & - 895,895,895,895,896,896,897,897,898,898,899,899, & - 900,900,900,900,901,901,901,902,902,903,903,903, & - 904,904,904,904,905,905,905,906,906,906,906,907, & - 907,908,908,909,909,910,910,910,911,911,911,911, & - 912,912,912,912,913,913,914,914,915,915,916,916, & - 916,917,917,917,918,918,918,918,919,919,919,919 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_8 = (/ & - 920,920,921,921,922,922,923,923,923,924,924,924, & - 925,925,925,925,926,926,926,926,927,927,928,928, & - 929,929,930,930,930,931,931,931,932,932,932,932, & - 933,933,933,933,934,934,935,935,936,936,936,937, & - 937,937,938,938,938,938,939,939,939,939,940,940, & - 941,941,942,942,943,943,943,944,944,944,945,945, & - 945,945,946,946,946,946,947,947,948,948,949,949, & - 950,950,950,951,951,951,952,952,952,952,953,953, & - 953,953,954,954,955,955,956,956,957,957,957,958, & - 958,958,959,959,959,959,960,960,960,960,961,961, & - 962,962,963,963,964,964,964,965,965,965,966,966, & - 966,966,967,967,967,967,968,968,969,969,970,970, & - 971,971,971,972,972,972,973,973,973,973,974,974, & - 974,974,975,975,976,976,977,977,977,978,978,978, & - 979,979,979,979,980,980,980,980,981,981,982,982, & - 983,983,984,984,984,985,985,985,986,986,986,986, & - 987,987,987,987,988,988,989,989,990,990,991,991, & - 991,992,992,992,993,993,993,993,994,994,994,994, & - 995,995,996,996,997,997,998,998,998,999,999,999, & - 1000,1000,1000,1000,1001,1001,1001,1001,1002,1002,1003,1003, & - 1004,1004,1005,1005,1005,1006,1006,1006,1007,1007,1007,1007, & - 1008,1008,1008,1008,1009,1009,1010,1010,1011,1011,1012,1012, & - 1012,1013,1013,1013,1014,1014,1014,1014,1015,1015,1015,1015, & - 1016,1016,1017,1017,1018,1018,1019,1019,1019,1020,1020,1020, & - 1021,1021,1021,1021,1022,1022,1022,1022,1023,1023,1024,1024, & - 1025,1025,1026,1026,1026,1027,1027,1027,1028,1028,1028,1028, & - 1029,1029,1029,1029,1030,1030,1031,1031,1032,1032,1032,1033, & - 1033,1033,1034,1034,1034,1034,1035,1035,1035,1035,1036,1036, & - 1037,1037,1038,1038,1039,1039,1039,1040,1040,1040,1041,1041, & - 1041,1041,1042,1042,1042,1042,1043,1043,1044,1044,1045,1045 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_9 = (/ & - 1046,1046,1046,1047,1047,1047,1048,1048,1048,1048,1049,1049, & - 1049,1049,1050,1050,1051,1051,1052,1052,1052,1053,1053,1053, & - 1054,1054,1054,1054,1055,1055,1055,1055,1056,1056,1057,1057, & - 1058,1058,1059,1059,1059,1060,1060,1060,1061,1061,1061,1061, & - 1062,1062,1062,1062,1063,1063,1064,1064,1065,1065,1066,1066, & - 1066,1067,1067,1067,1068,1068,1068,1068,1069,1069,1069,1069, & - 1070,1070,1071,1071,1072,1072,1073,1073,1073,1074,1074,1074, & - 1075,1075,1075,1075,1076,1076,1076,1076,1077,1077,1078,1078, & - 1079,1079,1079,1080,1080,1080,1081,1081,1081,1081,1082,1082, & - 1082,1082,1083,1083,1084,1084,1085,1085,1086,1086,1086,1087, & - 1087,1087,1088,1088,1088,1088,1089,1089,1089,1089,1090,1090, & - 1091,1091,1092,1092,1093,1093,1093,1094,1094,1094,1095,1095, & - 1095,1095,1096,1096,1096,1096,1097,1097,1098,1098,1099,1099, & - 1100,1100,1100,1101,1101,1101,1102,1102,1102,1102,1103,1103, & - 1103,1103,1104,1104,1105,1105,1106,1106,1106,1107,1107,1107, & - 1108,1108,1108,1108,1109,1109,1109,1109,1110,1110,1111,1111, & - 1112,1112,1113,1113,1113,1114,1114,1114,1115,1115,1115,1115, & - 1116,1116,1116,1116,1117,1117,1118,1118,1119,1119,1119,1120, & - 1120,1120,1121,1121,1121,1121,1122,1122,1122,1122,1123,1123, & - 1124,1124,1125,1125,1126,1126,1126,1127,1127,1127,1128,1128, & - 1128,1128,1129,1129,1129,1129,1130,1130,1131,1131,1132,1132, & - 1133,1133,1133,1134,1134,1134,1135,1135,1135,1135,1136,1136, & - 1136,1136,1137,1137,1138,1138,1139,1139,1140,1140,1140,1141, & - 1141,1141,1142,1142,1142,1142,1143,1143,1143,1143,1144,1144, & - 1145,1145,1146,1146,1147,1147,1147,1148,1148,1148,1149,1149, & - 1149,1149,1150,1150,1150,1150,1151,1151,1152,1152,1153,1153, & - 1154,1154,1154,1155,1155,1155,1156,1156,1156,1156,1157,1157, & - 1157,1157,1158,1158,1159,1159,1160,1160,1161,1161,1161,1162, & - 1162,1162,1162,1163,1163,1163,1163,1164,1164,1165,1165,1166, & - 1166,1167,1167,1168,1168,1169,1169,1169,1169,1170,1170,1170 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_10 = (/ & - 1171,1171,1171,1171,1172,1172,1172,1172,1173,1173,1174,1174, & - 1175,1175,1176,1176,1176,1177,1177,1177,1177,1178,1178,1178, & - 1178,1179,1179,1180,1180,1181,1181,1182,1182,1183,1183,1183, & - 1183,1184,1184,1184,1185,1185,1186,1186,1186,1187,1187,1187, & - 1187,1188,1188,1188,1188,1189,1189,1190,1190,1191,1191,1192, & - 1192,1192,1193,1193,1193,1193,1194,1194,1194,1194,1195,1195, & - 1196,1196,1197,1197,1198,1198,1199,1199,1199,1199,1200,1200, & - 1200,1201,1201,1202,1202,1202,1203,1203,1203,1204,1204,1204, & - 1204,1205,1205,1205,1205,1206,1206,1207,1207,1208,1208,1209, & - 1209,1209,1210,1210,1210,1210,1211,1211,1211,1211,1212,1212, & - 1213,1213,1214,1214,1215,1215,1215,1216,1216,1216,1216,1217, & - 1217,1217,1217,1218,1218,1219,1219,1220,1220,1220,1221,1221, & - 1221,1221,1222,1222,1222,1222,1223,1223,1224,1224,1225,1225, & - 1226,1226,1227,1227,1227,1227,1228,1228,1229,1229,1229,1230, & - 1230,1230,1231,1231,1231,1231,1232,1232,1232,1232,1233,1233, & - 1234,1234,1235,1235,1236,1236,1236,1237,1237,1237,1237,1238, & - 1238,1238,1238,1239,1239,1240,1240,1241,1241,1242,1242,1243, & - 1243,1244,1244,1244,1244,1245,1245,1245,1246,1246,1246,1247, & - 1247,1247,1248,1248,1248,1248,1249,1249,1249,1249,1250,1250, & - 1251,1251,1252,1252,1253,1253,1253,1254,1254,1254,1255,1255, & - 1255,1255,1256,1256,1256,1256,1257,1257,1258,1258,1259,1259, & - 1260,1260,1260,1261,1261,1261,1261,1262,1262,1262,1262,1263, & - 1263,1264,1264,1265,1265,1266,1266,1266,1267,1267,1267,1267, & - 1268,1268,1268,1268,1269,1269,1270,1270,1271,1271,1272,1272, & - 1273,1273,1273,1273,1274,1274,1274,1275,1275,1276,1276,1276, & - 1277,1277,1277,1278,1278,1278,1278,1279,1279,1279,1279,1280, & - 1280,1281,1281,1282,1282,1283,1283,1283,1284,1284,1284,1284, & - 1285,1285,1285,1285,1286,1286,1287,1287,1288,1288,1289,1289, & - 1289,1290,1290,1290,1290,1291,1291,1291,1291,1292,1292,1293, & - 1293,1294,1294,1295,1295,1295,1296,1296,1296,1297,1297,1297 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_11 = (/ & - 1297,1298,1298,1298,1298,1299,1299,1300,1300,1301,1301,1302, & - 1302,1302,1303,1303,1303,1303,1304,1304,1304,1304,1305,1305, & - 1306,1306,1307,1307,1308,1308,1309,1309,1309,1309,1310,1310, & - 1310,1311,1311,1312,1312,1312,1313,1313,1313,1314,1314,1314, & - 1314,1315,1315,1315,1315,1316,1316,1317,1317,1318,1318,1319, & - 1319,1319,1320,1320,1320,1320,1321,1321,1321,1321,1322,1322, & - 1323,1323,1324,1324,1325,1325,1325,1326,1326,1326,1326,1327, & - 1327,1327,1327,1328,1328,1329,1329,1330,1330,1331,1331,1331, & - 1332,1332,1333,1333,1333,1333,1334,1334,1334,1335,1335,1335, & - 1335,1336,1336,1336,1336,1337,1337,1338,1338,1339,1339,1340, & - 1340,1340,1341,1341,1341,1341,1342,1342,1342,1342,1343,1343, & - 1344,1344,1345,1345,1346,1346,1347,1347,1348,1348,1348,1348, & - 1349,1349,1349,1350,1350,1350,1351,1351,1351,1352,1352,1352, & - 1352,1353,1353,1353,1353,1354,1354,1355,1355,1356,1356,1357, & - 1357,1357,1358,1358,1358,1359,1359,1359,1359,1360,1360,1360, & - 1360,1361,1361,1362,1362,1363,1363,1364,1364,1364,1365,1365, & - 1365,1365,1366,1366,1366,1366,1367,1367,1368,1368,1369,1369, & - 1370,1370,1370,1371,1371,1371,1371,1372,1372,1372,1372,1373, & - 1373,1374,1374,1375,1375,1376,1376,1377,1377,1378,1378,1378, & - 1378,1379,1379,1379,1380,1380,1380,1381,1381,1381,1382,1382, & - 1382,1382,1383,1383,1383,1383,1384,1384,1385,1385,1386,1386, & - 1387,1387,1387,1388,1388,1388,1389,1389,1389,1389,1390,1390, & - 1390,1390,1391,1391,1392,1392,1393,1393,1394,1394,1394,1395, & - 1395,1395,1395,1396,1396,1396,1396,1397,1397,1398,1398,1399, & - 1399,1399,1400,1400,1400,1401,1401,1401,1402,1402,1402,1402, & - 1403,1403,1403,1403,1404,1404,1405,1405,1406,1406,1406,1407, & - 1407,1407,1408,1408,1408,1409,1409,1409,1409,1410,1410,1410, & - 1410,1411,1411,1412,1412,1413,1413,1414,1414,1414,1414,1415, & - 1415,1415,1415,1416,1416,1416,1417,1417,1417,1418,1418,1418, & - 1418,1419,1419,1419,1419,1420,1420,1420,1420,1421,1421,1421 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_12 = (/ & - 1422,1422,1422,1423,1423,1423,1423,1424,1424,1424,1425,1425, & - 1425,1426,1426,1426,1427,1427,1427,1427,1428,1428,1428,1428, & - 1429,1429,1430,1430,1431,1431,1432,1432,1432,1432,1433,1433, & - 1433,1434,1434,1434,1434,1435,1435,1435,1436,1436,1436,1436, & - 1437,1437,1437,1438,1438,1438,1439,1439,1439,1439,1440,1440, & - 1440,1441,1441,1441,1441,1442,1442,1443,1443,1444,1444,1445, & - 1445,1445,1445,1446,1446,1446,1446,1447,1447,1447,1448,1448, & - 1448,1449,1449,1449,1449,1450,1450,1450,1450,1450,1451,1451, & - 1451,1452,1452,1452,1453,1453,1453,1453,1454,1454,1454,1454, & - 1455,1455,1456,1456,1457,1457,1458,1458,1458,1459,1459,1459, & - 1460,1460,1460,1460,1461,1461,1461,1461,1462,1462,1463,1463, & - 1464,1464,1464,1464,1465,1465,1465,1465,1466,1466,1466,1467, & - 1467,1467,1468,1468,1468,1468,1469,1469,1469,1469,1470,1470, & - 1470,1471,1471,1471,1471,1472,1472,1472,1472,1473,1473,1473, & - 1474,1474,1474,1474,1475,1475,1475,1476,1476,1476,1477,1477, & - 1477,1478,1478,1478,1478,1479,1479,1479,1479,1480,1480,1481, & - 1481,1482,1482,1483,1483,1483,1484,1484,1484,1485,1485,1485, & - 1485,1486,1486,1486,1486,1487,1487,1488,1488,1489,1489,1490, & - 1490,1490,1490,1491,1491,1491,1491,1492,1492,1492,1493,1493, & - 1493,1494,1494,1494,1494,1495,1495,1495,1495,1495,1496,1496, & - 1496,1496,1497,1497,1497,1497,1498,1498,1498,1499,1499,1499, & - 1500,1500,1500,1500,1501,1501,1501,1502,1502,1502,1503,1503, & - 1503,1504,1504,1504,1504,1505,1505,1505,1505,1506,1506,1507, & - 1507,1508,1508,1509,1509,1509,1510,1510,1510,1511,1511,1511, & - 1511,1512,1512,1512,1512,1513,1513,1514,1514,1515,1515,1515, & - 1515,1516,1516,1516,1516,1517,1517,1517,1518,1518,1518,1519, & - 1519,1519,1519,1520,1520,1520,1520,1520,1521,1521,1521,1522, & - 1522,1522,1522,1523,1523,1523,1523,1524,1524,1524,1525,1525, & - 1525,1525,1526,1526,1526,1527,1527,1527,1528,1528,1528,1528, & - 1529,1529,1529,1530,1530,1530,1530,1531,1531,1532,1532,1533 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_13 = (/ & - 1533,1534,1534,1534,1534,1535,1535,1535,1535,1536,1536,1536, & - 1537,1537,1537,1538,1538,1538,1539,1539,1539,1539,1540,1540, & - 1540,1541,1541,1541,1541,1542,1542,1542,1543,1543,1543,1543, & - 1544,1544,1545,1545,1546,1546,1547,1547,1547,1547,1548,1548, & - 1548,1548,1549,1549,1549,1550,1550,1550,1551,1551,1551,1551, & - 1552,1552,1552,1552,1552,1553,1553,1553,1554,1554,1554,1555, & - 1555,1555,1555,1556,1556,1556,1556,1557,1557,1558,1558,1559, & - 1559,1560,1560,1560,1561,1561,1561,1561,1562,1562,1562,1562, & - 1563,1563,1563,1564,1564,1564,1565,1565,1565,1565,1566,1566, & - 1566,1567,1567,1567,1567,1568,1568,1568,1569,1569,1569,1569, & - 1570,1570,1571,1571,1572,1572,1573,1573,1573,1573,1574,1574, & - 1574,1574,1575,1575,1575,1576,1576,1576,1577,1577,1577,1577, & - 1578,1578,1578,1578,1578,1579,1579,1579,1580,1580,1580,1581, & - 1581,1581,1581,1582,1582,1582,1582,1583,1583,1584,1584,1585, & - 1585,1585,1585,1586,1586,1586,1586,1587,1587,1587,1588,1588, & - 1588,1589,1589,1589,1590,1590,1590,1590,1591,1591,1591,1592, & - 1592,1592,1592,1593,1593,1593,1594,1594,1594,1594,1595,1595, & - 1596,1596,1597,1597,1598,1598,1598,1598,1599,1599,1599,1599, & - 1600,1600,1600,1601,1601,1601,1602,1602,1602,1602,1603,1603, & - 1603,1603,1603,1604,1604,1604,1605,1605,1605,1606,1606,1606, & - 1606,1607,1607,1607,1607,1608,1608,1609,1609,1610,1610,1611, & - 1611,1611,1612,1612,1612,1612,1613,1613,1613,1613,1614,1614, & - 1614,1614,1615,1615,1615,1616,1616,1616,1617,1617,1617,1618, & - 1618,1618,1619,1619,1619,1619,1620,1620,1620,1620,1621,1621, & - 1622,1622,1623,1623,1624,1624,1624,1624,1625,1625,1625,1626, & - 1626,1626,1627,1627,1627,1627,1627,1628,1628,1628,1629,1629, & - 1629,1630,1630,1630,1630,1631,1631,1631,1631,1632,1632,1633, & - 1633,1634,1634,1635,1635,1635,1636,1636,1636,1637,1637,1637, & - 1637,1638,1638,1638,1638,1639,1639,1640,1640,1641,1641,1641, & - 1642,1642,1642,1642,1643,1643,1643,1643,1644,1644,1644,1644 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_14 = (/ & - 1645,1645,1645,1646,1646,1646,1647,1647,1647,1647,1648,1648, & - 1648,1648,1649,1649,1649,1650,1650,1650,1651,1651,1651,1651, & - 1652,1652,1652,1652,1652,1653,1653,1653,1654,1654,1654,1655, & - 1655,1655,1655,1656,1656,1656,1656,1657,1657,1658,1658,1659, & - 1659,1660,1660,1660,1661,1661,1661,1662,1662,1662,1662,1663, & - 1663,1663,1663,1664,1664,1665,1665,1666,1666,1667,1667,1667, & - 1668,1668,1668,1668,1669,1669,1669,1670,1670,1670,1671,1671, & - 1671,1671,1672,1672,1672,1672,1673,1673,1673,1674,1674,1674, & - 1675,1675,1675,1675,1676,1676,1676,1676,1676,1677,1677,1677, & - 1678,1678,1678,1679,1679,1679,1679,1680,1680,1680,1680,1681, & - 1681,1682,1682,1683,1683,1684,1684,1684,1685,1685,1685,1686, & - 1686,1686,1686,1687,1687,1687,1687,1688,1688,1689,1689,1690, & - 1690,1690,1690,1691,1691,1691,1691,1692,1692,1692,1693,1693, & - 1693,1694,1694,1694,1694,1695,1695,1695,1695,1696,1696,1696, & - 1697,1697,1697,1697,1698,1698,1698,1698,1699,1699,1699,1700, & - 1700,1700,1700,1701,1701,1701,1702,1702,1702,1703,1703,1703, & - 1704,1704,1704,1704,1705,1705,1705,1705,1706,1706,1707,1707, & - 1708,1708,1709,1709,1709,1709,1710,1710,1710,1710,1711,1711, & - 1711,1712,1712,1712,1713,1713,1713,1713,1714,1714,1714,1714, & - 1714,1715,1715,1715,1715,1716,1716,1716,1716,1717,1717,1717, & - 1718,1718,1718,1719,1719,1719,1719,1720,1720,1720,1721,1721, & - 1721,1722,1722,1722,1723,1723,1723,1723,1724,1724,1724,1724, & - 1725,1725,1726,1726,1727,1727,1727,1727,1728,1728,1728,1728, & - 1729,1729,1729,1730,1730,1730,1731,1731,1731,1732,1732,1732, & - 1732,1732,1733,1733,1733,1734,1734,1734,1734,1735,1735,1735, & - 1735,1736,1736,1736,1737,1737,1737,1737,1738,1738,1738,1739, & - 1739,1739,1740,1740,1740,1741,1741,1741,1741,1742,1742,1742, & - 1742,1743,1743,1744,1744,1745,1745,1746,1746,1746,1747,1747, & - 1747,1748,1748,1748,1748,1749,1749,1749,1749,1750,1750,1751, & - 1751,1752,1752,1753,1753,1753,1753,1754,1754,1754,1754,1755 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_15 = (/ & - 1755,1755,1756,1756,1756,1757,1757,1757,1757,1758,1758,1758, & - 1758,1758,1759,1759,1759,1759,1760,1760,1760,1761,1761,1761, & - 1762,1762,1762,1763,1763,1763,1764,1764,1764,1765,1765,1765, & - 1765,1766,1766,1766,1766,1767,1767,1768,1768,1769,1769,1770, & - 1770,1770,1770,1771,1771,1771,1772,1772,1772,1773,1773,1773, & - 1774,1774,1774,1775,1775,1775,1776,1776,1776,1776,1777,1777, & - 1777,1777,1778,1778,1779,1779,1780,1780,1781,1781,1781,1781, & - 1782,1782,1782,1782,1783,1783,1783,1784,1784,1784,1785,1785, & - 1785,1785,1786,1786,1786,1786,1786,1787,1787,1787,1788,1788, & - 1788,1788,1789,1789,1789,1789,1790,1790,1791,1791,1792,1792, & - 1792,1792,1793,1793,1793,1794,1794,1795,1795,1795,1796,1796, & - 1796,1796,1797,1797,1797,1797,1798,1798,1799,1799,1799,1800, & - 1800,1800,1800,1801,1801,1801,1801,1802,1802,1802,1802,1803, & - 1803,1803,1804,1804,1804,1804,1805,1805,1806,1806,1807,1807, & - 1807,1808,1808,1808,1808,1809,1809,1809,1809,1810,1810,1811, & - 1811,1811,1812,1812,1812,1812,1813,1813,1813,1813,1814,1814, & - 1815,1815,1816,1816,1817,1817,1817,1818,1818,1818,1819,1819, & - 1819,1819,1820,1820,1820,1820,1821,1821,1822,1822,1823,1823, & - 1824,1824,1825,1825,1826,1826,1826,1826,1827,1827,1828,1828, & - 1829,1829,1829,1829,1829,1830,1830,1830,1830,1831,1831,1831, & - 1832,1832,1832,1833,1833,1833,1833,1834,1834,1834,1834,1835, & - 1835,1836,1836,1837,1837,1838,1838,1838,1839,1839,1839,1840, & - 1840,1840,1840,1841,1841,1841,1841,1842,1842,1843,1843,1844, & - 1844,1845,1845,1845,1846,1846,1846,1846,1847,1847,1847,1848, & - 1848,1848,1848,1849,1849,1850,1850,1851,1851,1852,1852,1852, & - 1853,1853,1853,1854,1854,1854,1854,1855,1855,1855,1855,1856, & - 1856,1857,1857,1858,1858,1859,1859,1860,1860,1861,1861,1861, & - 1861,1862,1862,1862,1863,1863,1863,1863,1863,1864,1864,1864, & - 1864,1865,1865,1865,1865,1866,1866,1866,1867,1867,1867,1868, & - 1868,1869,1869,1869,1869,1870,1870,1871,1871,1871,1871,1871 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_16 = (/ & - 1872,1872,1873,1873,1873,1873,1873,1874,1874,1875,1875,1875, & - 1876,1876,1877,1877,1878,1878,1879,1879,1880,1880,1880,1881, & - 1881,1881,1882,1882,1882,1882,1883,1883,1883,1883,1884,1884, & - 1885,1885,1886,1886,1887,1887,1887,1888,1888,1888,1888,1889, & - 1889,1889,1889,1890,1890,1890,1891,1891,1891,1892,1892,1892, & - 1892,1893,1893,1893,1894,1894,1894,1894,1895,1895,1895,1895, & - 1896,1896,1896,1897,1897,1897,1898,1898,1899,1899,1900,1900, & - 1901,1901,1902,1902,1902,1903,1903,1903,1904,1904,1904,1905, & - 1905,1905,1905,1906,1906,1906,1906,1907,1907,1908,1908,1909, & - 1909,1910,1910,1910,1911,1911,1911,1912,1912,1912,1913,1913, & - 1913,1913,1914,1914,1914,1914,1915,1915,1916,1916,1917,1917, & - 1918,1918,1918,1919,1919,1919,1920,1920,1920,1920,1921,1921, & - 1921,1921,1922,1922,1923,1923,1924,1924,1925,1925,1925,1925, & - 1926,1926,1926,1927,1927,1927,1927,1928,1928,1928,1928,1929, & - 1929,1930,1930,1931,1931,1932,1932,1932,1933,1933,1933,1934, & - 1934,1934,1934,1935,1935,1935,1935,1936,1936,1937,1937,1938, & - 1938,1939,1939,1939,1940,1940,1940,1940,1941,1941,1941,1941, & - 1942,1942,1943,1943,1944,1944,1945,1945,1945,1946,1946,1946, & - 1946,1947,1947,1947,1947,1948,1948,1949,1949,1950,1950,1951, & - 1951,1951,1952,1952,1952,1952,1953,1953,1953,1954,1954,1954, & - 1954,1955,1955,1956,1956,1957,1957,1958,1958,1958,1959,1959, & - 1959,1959,1960,1960,1960,1960,1961,1961,1962,1962,1963,1963, & - 1964,1964,1964,1965,1965,1965,1965,1966,1966,1966,1966,1967, & - 1967,1968,1968,1969,1969,1970,1970,1970,1971,1971,1971,1972, & - 1972,1972,1972,1973,1973,1973,1973,1974,1974,1975,1975,1976, & - 1976,1977,1977,1977,1978,1978,1978,1978,1979,1979,1979,1979, & - 1980,1980,1981,1981,1982,1982,1982,1983,1983,1983,1984,1984, & - 1984,1984,1985,1985,1985,1985,1986,1986,1987,1987,1988,1988, & - 1989,1989,1989,1990,1990,1990,1991,1991,1991,1991,1992,1992, & - 1992,1992,1993,1993,1994,1994,1995,1995,1996,1996,1996,1997 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_17 = (/ & - 1997,1997,1998,1998,1998,1998,1999,1999,1999,1999,2000,2000, & - 2001,2001,2002,2002,2003,2003,2003,2004,2004,2004,2004,2005, & - 2005,2005,2005,2006,2006,2007,2007,2008,2008,2009,2009,2009, & - 2010,2010,2010,2011,2011,2011,2011,2012,2012,2012,2012,2013, & - 2013,2014,2014,2015,2015,2016,2016,2016,2017,2017,2017,2017, & - 2018,2018,2018,2018,2019,2019,2020,2020,2021,2021,2022,2022, & - 2022,2023,2023,2023,2023,2024,2024,2024,2024,2025,2025,2026, & - 2026,2027,2027,2028,2028,2028,2029,2029,2029,2030,2030,2030, & - 2030,2031,2031,2031,2031,2032,2032,2033,2033,2034,2034,2035, & - 2035,2035,2036,2036,2036,2037,2037,2037,2037,2038,2038,2038, & - 2038,2039,2039,2040,2040,2041,2041,2041,2042,2042,2042,2042, & - 2043,2043,2043,2043,2044,2044,2045,2045,2046,2046,2047,2047, & - 2047,2048,2048,2048,2049,2049,2049,2049,2050,2050,2050,2050, & - 2051,2051,2052,2052,2053,2053,2054,2054,2054,2055,2055,2055, & - 2056,2056,2056,2056,2057,2057,2057,2057,2058,2058,2059,2059, & - 2060,2060,2061,2061,2061,2062,2062,2062,2062,2063,2063,2063, & - 2063,2064,2064,2065,2065,2066,2066,2066,2067,2067,2067,2067, & - 2068,2068,2068,2068,2069,2069,2070,2070,2071,2071,2072,2072, & - 2072,2073,2073,2073,2074,2074,2075,2075,2075,2075,2076,2076, & - 2076,2077,2077,2077,2078,2078,2078,2078,2079,2079,2079,2079, & - 2080,2080,2081,2081,2082,2082,2082,2083,2083,2083,2084,2084, & - 2084,2084,2085,2085,2085,2085,2086,2086,2087,2087,2088,2088, & - 2089,2089,2089,2090,2090,2090,2091,2091,2091,2091,2092,2092, & - 2092,2092,2093,2093,2094,2094,2095,2095,2095,2096,2096,2096, & - 2096,2097,2097,2097,2097,2098,2098,2099,2099,2100,2100,2100, & - 2101,2101,2101,2101,2102,2102,2102,2102,2103,2103,2104,2104, & - 2105,2105,2106,2106,2106,2107,2107,2107,2108,2108,2108,2109, & - 2109,2109,2110,2110,2111,2111,2112,2112,2112,2112,2113,2113, & - 2114,2114,2114,2115,2115,2116,2116,2116,2117,2117,2117,2118, & - 2118,2118,2118,2119,2119,2119,2119,2120,2120,2121,2121,2122 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_18 = (/ & - 2122,2122,2123,2123,2123,2124,2124,2124,2124,2125,2125,2125, & - 2125,2126,2126,2127,2127,2128,2128,2129,2129,2129,2130,2130, & - 2130,2131,2131,2131,2131,2132,2132,2132,2132,2133,2133,2134, & - 2134,2135,2135,2135,2136,2136,2136,2136,2137,2137,2137,2137, & - 2138,2138,2139,2139,2140,2140,2140,2141,2141,2141,2142,2142, & - 2142,2142,2143,2143,2144,2144,2144,2145,2145,2145,2146,2146, & - 2146,2146,2147,2147,2147,2147,2148,2148,2149,2149,2150,2150, & - 2150,2151,2151,2151,2152,2152,2152,2152,2153,2153,2153,2153, & - 2154,2154,2155,2155,2156,2156,2157,2157,2157,2158,2158,2158, & - 2159,2159,2159,2159,2160,2160,2160,2160,2161,2161,2162,2162, & - 2163,2163,2163,2164,2164,2164,2164,2165,2165,2165,2165,2166, & - 2166,2167,2167,2168,2168,2168,2169,2169,2169,2169,2170,2170, & - 2170,2170,2171,2171,2171,2171,2172,2172,2172,2173,2173,2174, & - 2174,2174,2175,2175,2175,2175,2176,2176,2176,2176,2177,2177, & - 2177,2177,2178,2178,2179,2179,2180,2180,2180,2181,2181,2181, & - 2182,2182,2183,2183,2183,2184,2184,2184,2185,2185,2186,2186, & - 2186,2187,2187,2187,2188,2188,2188,2189,2189,2189,2189,2190, & - 2190,2190,2190,2191,2191,2192,2192,2193,2193,2193,2194,2194, & - 2194,2195,2195,2195,2195,2196,2196,2196,2196,2197,2197,2198, & - 2198,2199,2199,2200,2200,2200,2201,2201,2201,2202,2202,2202, & - 2202,2203,2203,2203,2203,2204,2204,2205,2205,2206,2206,2206, & - 2207,2207,2208,2208,2208,2209,2209,2209,2209,2210,2210,2210, & - 2211,2211,2211,2212,2212,2212,2213,2213,2213,2214,2214,2215, & - 2215,2215,2216,2216,2216,2216,2217,2217,2217,2218,2218,2218, & - 2218,2219,2219,2219,2219,2220,2220,2220,2221,2221,2221,2221, & - 2222,2222,2223,2223,2223,2224,2224,2224,2225,2225,2225,2225, & - 2226,2226,2226,2226,2227,2227,2228,2228,2228,2229,2229,2229, & - 2230,2230,2230,2230,2231,2231,2231,2231,2232,2232,2233,2233, & - 2233,2234,2234,2234,2235,2235,2235,2235,2236,2236,2236,2236, & - 2237,2237,2237,2237,2238,2238,2238,2238,2239,2239,2239,2239 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_19 = (/ & - 2240,2240,2241,2241,2241,2242,2242,2242,2243,2243,2243,2243, & - 2244,2244,2244,2245,2245,2245,2246,2246,2246,2247,2247,2247, & - 2247,2248,2248,2248,2248,2249,2249,2249,2250,2250,2251,2251, & - 2251,2252,2252,2252,2253,2253,2253,2254,2254,2254,2254,2255, & - 2255,2255,2255,2256,2256,2256,2256,2257,2257,2257,2257,2258, & - 2258,2258,2259,2259,2259,2260,2260,2260,2260,2260,2261,2261, & - 2261,2261,2262,2262,2262,2262,2263,2263,2264,2264,2264,2265, & - 2265,2265,2266,2266,2266,2266,2267,2267,2267,2268,2268,2268, & - 2269,2269,2269,2269,2270,2270,2270,2270,2271,2271,2271,2272, & - 2272,2272,2273,2273,2274,2274,2274,2275,2275,2275,2276,2276, & - 2276,2276,2277,2277,2277,2277,2278,2278,2278,2279,2279,2280, & - 2280,2280,2281,2281,2281,2282,2282,2282,2282,2283,2283,2284, & - 2284,2284,2284,2285,2285,2285,2285,2286,2286,2286,2286,2287, & - 2287,2287,2287,2288,2288,2288,2289,2289,2290,2290,2290,2291, & - 2291,2291,2292,2292,2292,2292,2293,2293,2293,2293,2294,2294, & - 2294,2294,2295,2295,2295,2295,2296,2296,2296,2296,2297,2297, & - 2297,2297,2298,2298,2298,2299,2299,2299,2299,2300,2300,2300, & - 2300,2301,2301,2301,2302,2302,2302,2302,2303,2303,2304,2304, & - 2305,2305,2305,2306,2306,2307,2307,2307,2308,2308,2308,2308, & - 2309,2309,2309,2310,2310,2310,2310,2311,2311,2311,2312,2312, & - 2312,2312,2313,2313,2313,2314,2314,2314,2315,2315,2315,2315, & - 2315,2316,2316,2316,2316,2317,2317,2317,2317,2318,2318,2318, & - 2318,2319,2319,2319,2320,2320,2320,2320,2321,2321,2321,2321, & - 2322,2322,2322,2323,2323,2323,2323,2324,2324,2325,2325,2326, & - 2326,2326,2327,2327,2327,2328,2328,2328,2328,2329,2329,2329, & - 2329,2330,2330,2331,2331,2332,2332,2332,2333,2333,2333,2334, & - 2334,2334,2335,2335,2335,2335,2335,2336,2336,2336,2337,2337, & - 2337,2337,2338,2338,2338,2339,2339,2340,2340,2340,2341,2341, & - 2341,2341,2342,2342,2342,2342,2343,2343,2343,2343,2344,2344, & - 2344,2344,2345,2345,2345,2346,2346,2346,2347,2347,2348,2348 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_20 = (/ & - 2348,2349,2349,2349,2350,2350,2350,2350,2351,2351,2352,2352, & - 2352,2353,2353,2353,2353,2354,2354,2354,2354,2355,2355,2355, & - 2356,2356,2356,2357,2357,2358,2358,2358,2359,2359,2359,2359, & - 2360,2360,2360,2360,2361,2361,2361,2362,2362,2362,2362,2363, & - 2363,2363,2364,2364,2364,2365,2365,2366,2366,2366,2367,2367, & - 2367,2367,2368,2368,2368,2368,2369,2369,2369,2369,2370,2370, & - 2370,2371,2371,2371,2371,2372,2372,2372,2373,2373,2373,2374, & - 2374,2375,2375,2375,2376,2376,2376,2376,2377,2377,2378,2378, & - 2378,2379,2379,2379,2379,2380,2380,2380,2380,2381,2381,2381, & - 2381,2382,2382,2382,2383,2383,2383,2384,2384,2384,2384,2385, & - 2385,2385,2386,2386,2386,2386,2386,2387,2387,2387,2387,2388, & - 2388,2388,2389,2389,2390,2390,2390,2391,2391,2391,2392,2392, & - 2392,2392,2393,2393,2393,2393,2394,2394,2394,2394,2395,2395, & - 2395,2395,2396,2396,2397,2397,2397,2398,2398,2398,2398,2399, & - 2399,2399,2400,2400,2400,2400,2401,2401,2401,2402,2402,2402, & - 2403,2403,2403,2403,2404,2404,2404,2404,2405,2405,2406,2406, & - 2406,2407,2407,2407,2408,2408,2408,2408,2409,2409,2409,2409, & - 2410,2410,2410,2411,2411,2411,2411,2412,2412,2412,2412,2413, & - 2413,2413,2414,2414,2414,2415,2415,2415,2416,2416,2416,2416, & - 2416,2417,2417,2417,2418,2418,2418,2418,2419,2419,2419,2420, & - 2420,2420,2420,2420,2421,2421,2421,2421,2422,2422,2422,2422, & - 2423,2423,2423,2424,2424,2424,2425,2425,2425,2426,2426,2426, & - 2426,2426,2427,2427,2427,2428,2428,2428,2429,2429,2429,2429, & - 2430,2430,2430,2431,2431,2431,2431,2431,2432,2432,2432,2433, & - 2433,2433,2433,2433,2434,2434,2434,2435,2435,2436,2436,2436, & - 2437,2437,2437,2438,2438,2438,2438,2438,2439,2439,2439,2440, & - 2440,2440,2440,2440,2441,2441,2441,2442,2442,2443,2443,2443, & - 2444,2444,2444,2445,2445,2445,2445,2446,2446,2446,2447,2447, & - 2447,2447,2448,2448,2449,2449,2449,2450,2450,2450,2451,2451, & - 2451,2451,2452,2452,2452,2452,2453,2453,2453,2454,2454,2454 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_21 = (/ & - 2455,2455,2455,2455,2456,2456,2456,2456,2457,2457,2457,2457, & - 2458,2458,2458,2459,2459,2460,2460,2460,2461,2461,2461,2461, & - 2462,2462,2462,2463,2463,2463,2463,2463,2464,2464,2464,2465, & - 2465,2465,2465,2465,2466,2466,2466,2467,2467,2468,2468,2468, & - 2469,2469,2469,2469,2470,2470,2470,2470,2471,2471,2471,2471, & - 2472,2472,2472,2473,2473,2474,2474,2475,2475,2475,2476,2476, & - 2476,2477,2477,2477,2477,2478,2478,2478,2478,2479,2479,2479, & - 2479,2480,2480,2480,2480,2481,2481,2482,2482,2482,2483,2483, & - 2483,2484,2484,2484,2484,2485,2485,2485,2486,2486,2486,2486, & - 2487,2487,2487,2488,2488,2488,2489,2489,2490,2490,2490,2491, & - 2491,2491,2491,2492,2492,2492,2493,2493,2493,2494,2494,2495, & - 2495,2495,2496,2496,2496,2497,2497,2497,2497,2497,2498,2498, & - 2498,2498,2499,2499,2499,2500,2500,2500,2501,2501,2501,2502, & - 2502,2502,2502,2502,2503,2503,2503,2504,2504,2504,2505,2505, & - 2505,2506,2506,2507,2507,2507,2508,2508,2508,2508,2509,2509, & - 2509,2510,2510,2510,2511,2511,2511,2512,2512,2512,2512,2512, & - 2513,2513,2513,2514,2514,2514,2515,2515,2516,2516,2516,2517, & - 2517,2517,2517,2518,2518,2518,2518,2519,2519,2519,2520,2520, & - 2520,2521,2521,2521,2522,2522,2522,2522,2523,2523,2523,2524, & - 2524,2524,2525,2525,2525,2525,2526,2526,2526,2526,2527,2527, & - 2527,2527,2528,2528,2528,2529,2529,2529,2530,2530,2531,2531, & - 2531,2532,2532,2532,2533,2533,2533,2533,2534,2534,2534,2535, & - 2535,2535,2536,2536,2536,2537,2537,2537,2538,2538,2538,2538, & - 2538,2539,2539,2539,2540,2540,2540,2541,2541,2542,2542,2542, & - 2543,2543,2543,2543,2544,2544,2544,2545,2545,2545,2546,2546, & - 2546,2546,2547,2547,2547,2548,2548,2548,2548,2549,2549,2549, & - 2550,2550,2550,2550,2550,2551,2551,2551,2552,2552,2552,2552, & - 2553,2553,2553,2554,2554,2555,2555,2555,2556,2556,2556,2557, & - 2557,2557,2557,2558,2558,2558,2559,2559,2559,2560,2560,2560, & - 2561,2561,2561,2562,2562,2562,2562,2562,2563,2563,2563,2564 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_22 = (/ & - 2564,2564,2565,2565,2566,2566,2566,2567,2567,2567,2567,2568, & - 2568,2568,2569,2569,2569,2570,2570,2570,2570,2571,2571,2571, & - 2571,2572,2572,2572,2573,2573,2573,2574,2574,2575,2575,2575, & - 2576,2576,2576,2577,2577,2577,2577,2578,2578,2578,2579,2579, & - 2580,2580,2580,2580,2580,2581,2581,2581,2581,2581,2582,2582, & - 2582,2583,2583,2583,2584,2584,2584,2585,2585,2585,2585,2585, & - 2586,2586,2587,2587,2587,2588,2588,2588,2588,2589,2589,2589, & - 2589,2590,2590,2590,2590,2590,2591,2591,2591,2591,2592,2592, & - 2592,2593,2593,2593,2594,2594,2594,2594,2595,2595,2595,2596, & - 2596,2596,2597,2597,2597,2597,2598,2598,2598,2598,2599,2599, & - 2599,2599,2600,2600,2600,2601,2601,2601,2602,2602,2603,2603, & - 2603,2604,2604,2604,2604,2605,2605,2605,2605,2606,2606,2606, & - 2606,2607,2607,2607,2608,2608,2609,2609,2609,2610,2610,2610, & - 2611,2611,2611,2612,2612,2613,2613,2613,2614,2614,2614,2615, & - 2615,2615,2615,2615,2616,2616,2616,2616,2616,2617,2617,2617, & - 2617,2618,2618,2618,2618,2619,2619,2619,2620,2620,2620,2620, & - 2621,2621,2621,2621,2622,2622,2622,2622,2623,2623,2623,2624, & - 2624,2624,2624,2624,2625,2625,2625,2626,2626,2626,2627,2627, & - 2627,2627,2628,2628,2628,2629,2629,2629,2629,2629,2630,2630, & - 2630,2630,2631,2631,2631,2631,2632,2632,2632,2632,2633,2633, & - 2634,2634,2634,2634,2634,2635,2635,2635,2636,2636,2636,2636, & - 2637,2637,2637,2638,2638,2638,2638,2639,2639,2639,2640,2640, & - 2640,2640,2641,2641,2641,2642,2642,2642,2642,2642,2643,2643, & - 2643,2643,2643,2644,2644,2644,2644,2644,2645,2645,2645,2646, & - 2646,2646,2646,2647,2647,2647,2648,2648,2648,2649,2649,2649, & - 2649,2650,2650,2650,2650,2651,2651,2651,2652,2652,2652,2652, & - 2653,2653,2653,2654,2654,2654,2654,2655,2655,2655,2655,2655, & - 2656,2656,2656,2656,2656,2656,2656,2657,2657,2657,2658,2658, & - 2658,2659,2659,2659,2659,2660,2660,2660,2660,2661,2661,2661, & - 2661,2662,2662,2662,2663,2663,2663,2663,2664,2664,2664,2664 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_23 = (/ & - 2665,2665,2665,2665,2666,2666,2666,2667,2667,2668,2668,2669, & - 2669,2669,2670,2670,2670,2670,2671,2671,2671,2671,2672,2672, & - 2672,2672,2673,2673,2673,2673,2674,2674,2674,2674,2675,2675, & - 2675,2676,2676,2677,2677,2677,2677,2677,2678,2678,2678,2679, & - 2679,2679,2679,2680,2680,2680,2680,2681,2681,2681,2681,2682, & - 2682,2683,2683,2683,2684,2684,2684,2685,2685,2685,2685,2686, & - 2686,2686,2687,2687,2687,2688,2688,2688,2689,2689,2689,2690, & - 2690,2690,2691,2691,2692,2692,2692,2693,2693,2693,2693,2694, & - 2694,2694,2695,2695,2695,2696,2696,2696,2697,2697,2697,2697, & - 2697,2698,2698,2698,2699,2699,2700,2700,2700,2701,2701,2701, & - 2702,2702,2702,2702,2703,2703,2703,2704,2704,2705,2705,2705, & - 2705,2706,2706,2707,2707,2707,2708,2708,2708,2709,2709,2709, & - 2709,2710,2710,2710,2711,2711,2712,2712,2712,2713,2713,2713, & - 2713,2714,2714,2715,2715,2715,2716,2716,2716,2716,2717,2717, & - 2717,2718,2718,2718,2719,2719,2719,2720,2720,2720,2721,2721, & - 2722,2722,2722,2723,2723,2723,2724,2724,2724,2724,2725,2725, & - 2725,2726,2726,2727,2727,2727,2728,2728,2728,2729,2729,2730, & - 2730,2730,2731,2731,2731,2731,2732,2732,2732,2733,2733,2733, & - 2734,2734,2734,2735,2735,2735,2736,2736,2736,2737,2737,2737, & - 2737,2737,2738,2738,2738,2739,2739,2739,2740,2740,2740,2741, & - 2741,2742,2742,2742,2743,2743,2743,2743,2744,2744,2744,2745, & - 2745,2745,2745,2746,2746,2746,2746,2747,2747,2747,2748,2748, & - 2748,2748,2749,2749,2749,2750,2750,2751,2751,2751,2752,2752, & - 2752,2753,2753,2753,2753,2754,2754,2755,2755,2755,2756,2756, & - 2756,2756,2757,2757,2757,2757,2758,2758,2758,2759,2759,2759, & - 2759,2760,2760,2760,2761,2761,2762,2762,2762,2763,2763,2763, & - 2764,2764,2764,2764,2765,2765,2766,2766,2766,2766,2767,2767, & - 2767,2768,2768,2769,2769,2769,2770,2770,2770,2770,2771,2771, & - 2771,2772,2772,2773,2773,2773,2773,2774,2774,2774,2775,2775, & - 2776,2776,2776,2777,2777,2777,2778,2778,2778,2778,2779,2779 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_24 = (/ & - 2780,2780,2780,2780,2781,2781,2781,2781,2782,2782,2782,2783, & - 2783,2783,2783,2784,2784,2784,2785,2785,2785,2786,2786,2787, & - 2787,2787,2788,2788,2788,2788,2789,2789,2790,2790,2790,2791, & - 2791,2791,2791,2792,2792,2792,2793,2793,2794,2794,2794,2795, & - 2795,2795,2796,2796,2796,2796,2797,2797,2797,2798,2798,2798, & - 2799,2799,2799,2800,2800,2800,2801,2801,2801,2802,2802,2802, & - 2803,2803,2803,2804,2804,2804,2804,2805,2805,2805,2806,2806, & - 2806,2807,2807,2807,2808,2808,2808,2808,2808,2809,2809,2809, & - 2810,2810,2811,2811,2811,2812,2812,2812,2813,2813,2814,2814, & - 2814,2815,2815,2815,2816,2816,2816,2816,2817,2817,2818,2818, & - 2818,2818,2819,2819,2819,2819,2820,2820,2820,2821,2821,2821, & - 2821,2822,2822,2822,2823,2823,2824,2824,2824,2825,2825,2825, & - 2826,2826,2826,2826,2827,2827,2828,2828,2828,2829,2829,2829, & - 2830,2830,2830,2831,2831,2831,2832,2832,2832,2832,2833,2833, & - 2833,2834,2834,2834,2835,2835,2835,2836,2836,2836,2836,2836, & - 2837,2837,2837,2838,2838,2838,2839,2839,2839,2840,2840,2840, & - 2841,2841,2842,2842,2842,2843,2843,2843,2843,2844,2844,2844, & - 2845,2845,2845,2846,2846,2846,2846,2847,2847,2847,2848,2848, & - 2849,2849,2849,2850,2850,2850,2851,2851,2851,2851,2852,2852, & - 2853,2853,2853,2853,2854,2854,2854,2854,2855,2855,2855,2856, & - 2856,2856,2856,2857,2857,2857,2858,2858,2859,2859,2859,2860, & - 2860,2860,2861,2861,2861,2861,2862,2862,2863,2863,2863,2864, & - 2864,2864,2864,2865,2865,2865,2865,2866,2866,2866,2867,2867, & - 2867,2867,2868,2868,2868,2869,2869,2869,2870,2870,2870,2871, & - 2871,2871,2871,2872,2872,2872,2873,2873,2873,2874,2874,2874, & - 2875,2875,2875,2876,2876,2877,2877,2877,2878,2878,2878,2878, & - 2879,2879,2880,2880,2880,2881,2881,2881,2881,2882,2882,2882, & - 2882,2883,2883,2883,2883,2884,2884,2884,2885,2885,2885,2886, & - 2886,2887,2887,2887,2888,2888,2888,2888,2889,2889,2890,2890, & - 2890,2891,2891,2891,2892,2892,2892,2892,2893,2893,2893,2894 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_25 = (/ & - 2894,2895,2895,2895,2896,2896,2896,2896,2897,2897,2898,2898, & - 2898,2899,2899,2899,2900,2900,2900,2900,2901,2901,2901,2902, & - 2902,2902,2903,2903,2903,2904,2904,2904,2904,2904,2905,2905, & - 2906,2906,2906,2907,2907,2907,2908,2908,2909,2909,2909,2910, & - 2910,2910,2910,2911,2911,2912,2912,2912,2913,2913,2913,2914, & - 2914,2914,2914,2915,2915,2915,2916,2916,2916,2917,2917,2917, & - 2918,2918,2918,2918,2918,2919,2919,2920,2920,2920,2921,2921, & - 2921,2922,2922,2923,2923,2923,2924,2924,2924,2924,2925,2925, & - 2926,2926,2926,2927,2927,2927,2928,2928,2928,2928,2929,2929, & - 2929,2930,2930,2931,2931,2931,2932,2932,2932,2932,2933,2933, & - 2934,2934,2934,2935,2935,2935,2936,2936,2936,2936,2937,2937, & - 2937,2938,2938,2939,2939,2939,2940,2940,2940,2940,2941,2941, & - 2942,2942,2942,2943,2943,2943,2944,2944,2944,2944,2945,2945, & - 2946,2946,2946,2947,2947,2947,2947,2948,2948,2948,2949,2949, & - 2950,2950,2950,2951,2951,2951,2952,2952,2952,2952,2953,2953, & - 2953,2954,2954,2955,2955,2955,2956,2956,2956,2956,2957,2957, & - 2958,2958,2958,2959,2959,2959,2960,2960,2960,2960,2961,2961, & - 2961,2962,2962,2963,2963,2963,2964,2964,2964,2964,2965,2965, & - 2966,2966,2966,2967,2967,2967,2968,2968,2969,2969,2969,2970, & - 2970,2970,2971,2971,2971,2972,2972,2972,2972,2973,2973,2973, & - 2974,2974,2974,2975,2975,2976,2976,2976,2977,2977,2977,2978, & - 2978,2978,2979,2979,2979,2979,2980,2980,2980,2980,2981,2981, & - 2981,2982,2982,2982,2983,2983,2984,2984,2984,2985,2985,2985, & - 2986,2986,2986,2986,2987,2987,2987,2988,2988,2988,2988,2989, & - 2989,2989,2990,2990,2990,2991,2991,2991,2992,2992,2992,2992, & - 2993,2993,2993,2994,2994,2994,2995,2995,2995,2996,2996,2996, & - 2996,2997,2997,2997,2998,2998,2998,2999,2999,2999,3000,3000, & - 3000,3000,3001,3001,3001,3001,3002,3002,3002,3003,3003,3003, & - 3003,3003,3004,3004,3004,3005,3005,3005,3005,3006,3006,3006, & - 3006,3007,3007,3007,3007,3008,3008,3008,3009,3009,3010,3010 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_26 = (/ & - 3011,3011,3011,3012,3012,3012,3013,3013,3013,3013,3014,3014, & - 3014,3014,3015,3015,3015,3016,3016,3016,3016,3017,3017,3018, & - 3018,3018,3019,3019,3019,3020,3020,3020,3021,3021,3021,3021, & - 3022,3022,3022,3023,3023,3023,3024,3024,3024,3025,3025,3025, & - 3025,3026,3026,3026,3027,3027,3027,3028,3028,3028,3028,3029, & - 3029,3029,3030,3030,3030,3030,3031,3031,3031,3032,3032,3032, & - 3032,3032,3033,3033,3033,3034,3034,3034,3035,3035,3035,3035, & - 3036,3036,3036,3036,3037,3037,3037,3037,3038,3038,3038,3039, & - 3039,3040,3040,3040,3041,3041,3041,3042,3042,3042,3042,3043, & - 3043,3043,3044,3044,3044,3045,3045,3045,3046,3046,3046,3046, & - 3047,3047,3048,3048,3048,3049,3049,3049,3050,3050,3050,3050, & - 3051,3051,3051,3052,3052,3052,3052,3053,3053,3053,3054,3054, & - 3054,3055,3055,3055,3055,3056,3056,3056,3057,3057,3057,3057, & - 3058,3058,3058,3058,3059,3059,3059,3059,3060,3060,3061,3061, & - 3061,3062,3062,3063,3063,3063,3064,3064,3064,3065,3065,3065, & - 3065,3066,3066,3066,3067,3067,3067,3068,3068,3068,3068,3069, & - 3069,3070,3070,3070,3071,3071,3071,3072,3072,3072,3072,3073, & - 3073,3073,3073,3074,3074,3074,3075,3075,3075,3075,3076,3076, & - 3077,3077,3077,3078,3078,3078,3079,3079,3079,3079,3080,3080, & - 3080,3081,3081,3081,3082,3082,3082,3083,3083,3084,3084,3084, & - 3085,3085,3085,3086,3086,3086,3087,3087,3087,3087,3088,3088, & - 3088,3089,3089,3089,3090,3090,3090,3090,3091,3091,3092,3092, & - 3092,3093,3093,3093,3094,3094,3094,3094,3095,3095,3095,3096, & - 3096,3096,3097,3097,3097,3098,3098,3099,3099,3099,3100,3100, & - 3100,3101,3101,3101,3101,3102,3102,3102,3102,3103,3103,3103, & - 3104,3104,3104,3105,3105,3105,3105,3105,3106,3106,3106,3107, & - 3107,3107,3108,3108,3108,3108,3109,3109,3109,3110,3110,3110, & - 3110,3111,3111,3111,3111,3112,3112,3112,3112,3113,3113,3113, & - 3114,3114,3114,3115,3115,3116,3116,3116,3117,3117,3117,3118, & - 3118,3118,3118,3119,3119,3119,3120,3120,3120,3121,3121,3121 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_27 = (/ & - 3121,3122,3122,3122,3123,3123,3124,3124,3124,3125,3125,3125, & - 3126,3126,3126,3127,3127,3127,3127,3128,3128,3128,3128,3129, & - 3129,3129,3130,3130,3130,3131,3131,3131,3132,3132,3132,3132, & - 3133,3133,3133,3133,3134,3134,3134,3134,3135,3135,3136,3136, & - 3136,3137,3137,3138,3138,3138,3139,3139,3139,3140,3140,3140, & - 3140,3141,3141,3141,3141,3142,3142,3142,3143,3143,3143,3143, & - 3144,3144,3144,3145,3145,3146,3146,3146,3147,3147,3147,3148, & - 3148,3148,3148,3149,3149,3149,3150,3150,3150,3151,3151,3151, & - 3152,3152,3152,3153,3153,3153,3153,3154,3154,3155,3155,3155, & - 3156,3156,3156,3156,3157,3157,3157,3158,3158,3158,3158,3159, & - 3159,3159,3160,3160,3160,3160,3160,3161,3161,3161,3161,3162, & - 3162,3163,3163,3163,3164,3164,3164,3165,3165,3165,3165,3166, & - 3166,3166,3167,3167,3167,3168,3168,3168,3168,3169,3169,3169, & - 3169,3170,3170,3170,3171,3171,3171,3171,3172,3172,3172,3172, & - 3173,3173,3173,3173,3174,3174,3174,3175,3175,3176,3176,3177, & - 3177,3177,3178,3178,3178,3179,3179,3179,3179,3180,3180,3180, & - 3181,3181,3181,3182,3182,3182,3182,3183,3183,3183,3184,3184, & - 3185,3185,3185,3186,3186,3186,3186,3187,3187,3187,3187,3188, & - 3188,3188,3188,3189,3189,3189,3190,3190,3191,3191,3191,3192, & - 3192,3192,3193,3193,3193,3193,3194,3194,3194,3195,3195,3195, & - 3196,3196,3196,3197,3197,3197,3197,3198,3198,3199,3199,3199, & - 3200,3200,3200,3201,3201,3201,3201,3202,3202,3202,3203,3203, & - 3203,3204,3204,3204,3205,3205,3205,3205,3206,3206,3206,3207, & - 3207,3208,3208,3208,3209,3209,3209,3209,3210,3210,3210,3210, & - 3211,3211,3211,3212,3212,3212,3213,3213,3213,3214,3214,3215, & - 3215,3215,3216,3216,3216,3216,3217,3217,3217,3217,3218,3218, & - 3218,3218,3219,3219,3219,3220,3220,3220,3221,3221,3221,3222, & - 3222,3222,3222,3223,3223,3223,3224,3224,3224,3225,3225,3225, & - 3226,3226,3226,3227,3227,3228,3228,3228,3229,3229,3229,3229, & - 3230,3230,3230,3231,3231,3231,3231,3232,3232,3232,3232,3233 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_28 = (/ & - 3233,3233,3233,3234,3234,3234,3234,3235,3235,3235,3235,3236, & - 3236,3236,3236,3237,3237,3237,3238,3238,3238,3238,3239,3239, & - 3239,3239,3240,3240,3240,3241,3241,3241,3241,3242,3242,3243, & - 3243,3244,3244,3244,3244,3245,3245,3245,3246,3246,3246,3246, & - 3247,3247,3248,3248,3249,3249,3249,3250,3250,3250,3250,3251, & - 3251,3251,3252,3252,3252,3253,3253,3253,3253,3254,3254,3254, & - 3254,3255,3255,3256,3256,3257,3257,3258,3258,3258,3259,3259, & - 3259,3259,3260,3260,3260,3260,3261,3261,3262,3262,3263,3263, & - 3264,3264,3264,3264,3265,3265,3265,3265,3266,3266,3266,3267, & - 3267,3267,3268,3268,3269,3269,3269,3270,3270,3270,3271,3271, & - 3271,3272,3272,3272,3273,3273,3273,3273,3274,3274,3274,3274, & - 3275,3275,3276,3276,3277,3277,3277,3277,3278,3278,3278,3279, & - 3279,3279,3280,3280,3280,3281,3281,3281,3281,3282,3282,3282, & - 3282,3283,3283,3284,3284,3285,3285,3286,3286,3286,3287,3287, & - 3287,3287,3288,3288,3288,3289,3289,3289,3290,3290,3290,3290, & - 3291,3291,3291,3292,3292,3292,3292,3293,3293,3293,3293,3294, & - 3294,3295,3295,3296,3296,3296,3297,3297,3297,3297,3298,3298, & - 3298,3298,3299,3299,3300,3300,3301,3301,3301,3302,3302,3302, & - 3303,3303,3303,3303,3304,3304,3304,3305,3305,3305,3306,3306, & - 3307,3307,3307,3308,3308,3308,3308,3309,3309,3309,3309,3310, & - 3310,3310,3310,3311,3311,3311,3311,3312,3312,3312,3312,3313, & - 3313,3313,3313,3314,3314,3314,3315,3315,3315,3315,3316,3316, & - 3316,3316,3317,3317,3317,3317,3318,3318,3318,3318,3319,3319, & - 3319,3319,3320,3320,3320,3321,3321,3321,3321,3322,3322,3322, & - 3323,3323,3323,3323,3324,3324,3325,3325,3326,3326,3327,3327, & - 3327,3327,3328,3328,3328,3329,3329,3330,3330,3330,3331,3331, & - 3331,3332,3332,3332,3332,3333,3333,3333,3333,3334,3334,3335, & - 3335,3336,3336,3337,3337,3337,3338,3338,3338,3338,3339,3339, & - 3339,3339,3340,3340,3341,3341,3342,3342,3343,3343,3344,3344, & - 3344,3345,3345,3345,3345,3346,3346,3346,3347,3347,3347,3348 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_29 = (/ & - 3348,3348,3348,3349,3349,3349,3350,3350,3350,3350,3351,3351, & - 3351,3352,3352,3352,3352,3353,3353,3353,3354,3354,3354,3355, & - 3355,3355,3355,3355,3356,3356,3356,3357,3357,3357,3357,3358, & - 3358,3358,3358,3359,3359,3359,3359,3360,3360,3360,3360,3361, & - 3361,3361,3361,3362,3362,3362,3362,3363,3363,3363,3364,3364, & - 3364,3364,3365,3365,3365,3365,3366,3366,3366,3367,3367,3367, & - 3367,3368,3368,3368,3369,3369,3369,3369,3370,3370,3371,3371, & - 3372,3372,3372,3372,3373,3373,3373,3374,3374,3374,3374,3375, & - 3375,3375,3376,3376,3376,3377,3377,3377,3377,3378,3378,3378, & - 3378,3379,3379,3380,3380,3381,3381,3382,3382,3382,3383,3383, & - 3383,3383,3384,3384,3384,3384,3385,3385,3386,3386,3387,3387, & - 3387,3388,3388,3388,3388,3389,3389,3389,3389,3390,3390,3391, & - 3391,3392,3392,3392,3393,3393,3393,3394,3394,3394,3395,3395, & - 3395,3395,3396,3396,3396,3396,3397,3397,3398,3398,3399,3399, & - 3399,3399,3400,3400,3400,3401,3401,3401,3402,3402,3403,3403, & - 3403,3404,3404,3404,3404,3405,3405,3405,3406,3406,3406,3407, & - 3407,3407,3407,3408,3408,3408,3409,3409,3409,3409,3410,3410, & - 3410,3411,3411,3411,3411,3412,3412,3413,3413,3413,3414,3414, & - 3414,3414,3415,3415,3415,3416,3416,3416,3416,3417,3417,3417, & - 3417,3418,3418,3418,3418,3419,3419,3419,3419,3420,3420,3420, & - 3420,3421,3421,3421,3421,3422,3422,3422,3422,3423,3423,3423, & - 3423,3424,3424,3424,3424,3425,3425,3425,3425,3426,3426,3426, & - 3426,3427,3427,3427,3427,3428,3428,3428,3429,3429,3429,3429, & - 3430,3430,3430,3431,3431,3431,3431,3432,3432,3433,3433,3434, & - 3434,3434,3434,3435,3435,3435,3436,3436,3436,3436,3437,3437, & - 3437,3438,3438,3438,3439,3439,3439,3439,3440,3440,3440,3440, & - 3441,3441,3442,3442,3443,3443,3444,3444,3444,3445,3445,3445, & - 3445,3446,3446,3446,3446,3447,3447,3448,3448,3449,3449,3450, & - 3450,3450,3451,3451,3451,3452,3452,3452,3453,3453,3453,3453, & - 3454,3454,3454,3454,3455,3455,3456,3456,3457,3457,3457,3458 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_30 = (/ & - 3458,3458,3458,3459,3459,3459,3459,3460,3460,3461,3461,3462, & - 3462,3462,3462,3463,3463,3463,3464,3464,3464,3465,3465,3466, & - 3466,3466,3467,3467,3467,3467,3468,3468,3468,3469,3469,3469, & - 3470,3470,3470,3470,3471,3471,3471,3472,3472,3472,3472,3473, & - 3473,3473,3474,3474,3474,3474,3475,3475,3475,3476,3476,3476, & - 3477,3477,3477,3477,3477,3478,3478,3478,3479,3479,3479,3479, & - 3480,3480,3480,3480,3481,3481,3481,3481,3482,3482,3482,3483, & - 3483,3483,3483,3484,3484,3484,3484,3485,3485,3485,3486,3486, & - 3486,3486,3487,3487,3487,3488,3488,3488,3488,3489,3489,3490, & - 3490,3491,3491,3491,3492,3492,3492,3493,3493,3493,3493,3494, & - 3494,3494,3494,3495,3495,3496,3496,3497,3497,3498,3498,3498, & - 3499,3499,3499,3499,3500,3500,3500,3500,3501,3501,3502,3502, & - 3503,3503,3503,3504,3504,3504,3504,3505,3505,3505,3505,3506, & - 3506,3507,3507,3508,3508,3508,3509,3509,3509,3510,3510,3510, & - 3511,3511,3511,3511,3512,3512,3512,3512,3513,3513,3514,3514, & - 3515,3515,3515,3515,3516,3516,3516,3517,3517,3517,3518,3518, & - 3519,3519,3519,3520,3520,3520,3521,3521,3521,3521,3522,3522, & - 3522,3523,3523,3523,3523,3524,3524,3524,3524,3525,3525,3525, & - 3526,3526,3526,3526,3527,3527,3527,3528,3528,3528,3529,3529, & - 3529,3530,3530,3530,3530,3531,3531,3531,3531,3532,3532,3533, & - 3533,3534,3534,3534,3535,3535,3535,3535,3536,3536,3536,3536, & - 3537,3537,3538,3538,3539,3539,3539,3539,3540,3540,3540,3541, & - 3541,3541,3542,3542,3543,3543,3543,3544,3544,3544,3544,3545, & - 3545,3545,3545,3546,3546,3546,3546,3547,3547,3547,3547,3548, & - 3548,3548,3548,3549,3549,3549,3550,3550,3550,3550,3551,3551, & - 3551,3551,3552,3552,3552,3552,3553,3553,3553,3553,3554,3554, & - 3554,3554,3555,3555,3555,3556,3556,3556,3556,3557,3557,3557, & - 3558,3558,3558,3558,3559,3559,3560,3560,3561,3561,3562,3562, & - 3562,3562,3563,3563,3563,3564,3564,3565,3565,3565,3566,3566, & - 3566,3567,3567,3567,3567,3568,3568,3568,3568,3569,3569,3570 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_31 = (/ & - 3570,3571,3571,3572,3572,3572,3573,3573,3573,3573,3574,3574, & - 3574,3574,3575,3575,3576,3576,3577,3577,3578,3578,3579,3579, & - 3579,3580,3580,3580,3580,3581,3581,3581,3582,3582,3582,3583, & - 3583,3583,3583,3584,3584,3584,3585,3585,3585,3586,3586,3586, & - 3587,3587,3587,3587,3588,3588,3588,3588,3589,3589,3590,3590, & - 3591,3591,3591,3592,3592,3592,3593,3593,3593,3594,3594,3594, & - 3594,3595,3595,3595,3595,3596,3596,3597,3597,3598,3598,3598, & - 3598,3599,3599,3599,3600,3600,3600,3601,3601,3602,3602,3602, & - 3603,3603,3603,3603,3604,3604,3604,3604,3605,3605,3605,3605, & - 3606,3606,3606,3606,3607,3607,3607,3607,3608,3608,3608,3609, & - 3609,3609,3609,3610,3610,3610,3610,3611,3611,3611,3611,3612, & - 3612,3612,3612,3613,3613,3613,3613,3614,3614,3614,3615,3615, & - 3615,3615,3616,3616,3616,3617,3617,3617,3617,3618,3618,3619, & - 3619,3620,3620,3621,3621,3621,3621,3622,3622,3622,3623,3623, & - 3624,3624,3624,3625,3625,3625,3626,3626,3626,3626,3627,3627, & - 3627,3627,3628,3628,3629,3629,3630,3630,3631,3631,3631,3632, & - 3632,3632,3632,3633,3633,3633,3633,3634,3634,3635,3635,3636, & - 3636,3637,3637,3637,3638,3638,3638,3639,3639,3639,3639,3639, & - 3640,3640,3640,3641,3641,3641,3642,3642,3642,3643,3643,3643, & - 3644,3644,3644,3645,3645,3645,3646,3646,3646,3646,3647,3647, & - 3647,3647,3648,3648,3649,3649,3650,3650,3650,3651,3651,3651, & - 3651,3652,3652,3652,3652,3653,3653,3654,3654,3655,3655,3655, & - 3655,3656,3656,3656,3657,3657,3657,3658,3658,3659,3659,3659, & - 3660,3660,3660,3660,3661,3661,3661,3661,3662,3662,3662,3662, & - 3663,3663,3663,3663,3664,3664,3664,3664,3665,3665,3665,3666, & - 3666,3666,3666,3667,3667,3667,3667,3668,3668,3668,3668,3669, & - 3669,3669,3669,3670,3670,3670,3670,3671,3671,3671,3672,3672, & - 3672,3672,3673,3673,3673,3674,3674,3674,3674,3675,3675,3676, & - 3676,3677,3677,3678,3678,3679,3679,3679,3679,3680,3680,3680, & - 3681,3681,3681,3682,3682,3682,3683,3683,3683,3683,3684,3684 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_32 = (/ & - 3684,3684,3685,3685,3686,3686,3687,3687,3688,3688,3688,3689, & - 3689,3689,3689,3690,3690,3690,3690,3691,3691,3692,3692,3693, & - 3693,3694,3694,3695,3695,3695,3696,3696,3696,3696,3697,3697, & - 3697,3698,3698,3698,3699,3699,3699,3699,3700,3700,3700,3701, & - 3701,3701,3701,3702,3702,3702,3703,3703,3703,3703,3704,3704, & - 3704,3705,3705,3705,3705,3706,3706,3706,3706,3707,3707,3708, & - 3708,3709,3709,3709,3710,3710,3710,3711,3711,3711,3712,3712, & - 3712,3712,3713,3713,3713,3713,3714,3714,3715,3715,3716,3716, & - 3716,3716,3717,3717,3717,3718,3718,3718,3719,3719,3720,3720, & - 3720,3721,3721,3721,3721,3722,3722,3722,3723,3723,3723,3723, & - 3724,3724,3724,3724,3725,3725,3725,3725,3726,3726,3726,3726, & - 3727,3727,3727,3727,3728,3728,3728,3728,3729,3729,3729,3729, & - 3730,3730,3730,3730,3731,3731,3731,3731,3732,3732,3732,3732, & - 3733,3733,3733,3734,3734,3734,3735,3735,3735,3735,3736,3736, & - 3736,3737,3737,3737,3737,3738,3738,3738,3739,3739,3739,3739, & - 3740,3740,3741,3741,3742,3742,3743,3743,3744,3744,3744,3745, & - 3745,3745,3745,3746,3746,3746,3747,3747,3747,3748,3748,3748, & - 3748,3749,3749,3749,3750,3750,3750,3750,3751,3751,3751,3752, & - 3752,3752,3752,3753,3753,3753,3754,3754,3754,3755,3755,3755, & - 3755,3755,3756,3756,3756,3757,3757,3757,3757,3758,3758,3758, & - 3758,3759,3759,3759,3759,3760,3760,3760,3760,3761,3761,3761, & - 3761,3762,3762,3762,3762,3763,3763,3763,3764,3764,3764,3765, & - 3765,3765,3765,3766,3766,3766,3766,3767,3767,3768,3768,3769, & - 3769,3769,3770,3770,3770,3771,3771,3771,3772,3772,3772,3772, & - 3773,3773,3773,3773,3774,3774,3775,3775,3776,3776,3776,3776, & - 3777,3777,3777,3778,3778,3778,3779,3779,3779,3779,3780,3780, & - 3780,3780,3781,3781,3781,3782,3782,3782,3782,3783,3783,3783, & - 3784,3784,3784,3784,3785,3785,3786,3786,3787,3787,3787,3788, & - 3788,3788,3788,3789,3789,3789,3790,3790,3790,3790,3791,3791, & - 3792,3792,3793,3793,3794,3794,3794,3795,3795,3795,3795,3796 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_33 = (/ & - 3796,3796,3796,3797,3797,3798,3798,3799,3799,3800,3800,3800, & - 3801,3801,3801,3801,3802,3802,3802,3803,3803,3803,3804,3804, & - 3804,3804,3805,3805,3805,3806,3806,3806,3806,3807,3807,3807, & - 3808,3808,3808,3808,3809,3809,3810,3810,3810,3811,3811,3811, & - 3811,3812,3812,3812,3813,3813,3813,3813,3814,3814,3814,3814, & - 3815,3815,3815,3815,3816,3816,3816,3816,3817,3817,3817,3817, & - 3818,3818,3818,3819,3819,3819,3819,3820,3820,3820,3820,3821, & - 3821,3822,3822,3823,3823,3823,3824,3824,3824,3825,3825,3825, & - 3825,3826,3826,3826,3826,3827,3827,3828,3828,3829,3829,3829, & - 3829,3830,3830,3830,3830,3831,3831,3831,3832,3832,3832,3832, & - 3833,3833,3833,3834,3834,3834,3834,3835,3835,3836,3836,3837, & - 3837,3837,3837,3838,3838,3838,3839,3839,3839,3840,3840,3840, & - 3840,3841,3841,3841,3841,3842,3842,3843,3843,3843,3844,3844, & - 3844,3844,3845,3845,3845,3846,3846,3846,3846,3847,3847,3848, & - 3848,3849,3849,3849,3850,3850,3850,3850,3851,3851,3851,3851, & - 3852,3852,3853,3853,3854,3854,3855,3855,3856,3856,3856,3857, & - 3857,3857,3857,3858,3858,3858,3859,3859,3859,3860,3860,3860, & - 3860,3861,3861,3861,3862,3862,3862,3863,3863,3863,3864,3864, & - 3864,3865,3865,3865,3865,3865,3866,3866,3866,3867,3867,3867, & - 3867,3868,3868,3868,3868,3869,3869,3869,3869,3870,3870,3870, & - 3870,3871,3871,3871,3871,3872,3872,3872,3872,3873,3873,3873, & - 3874,3874,3874,3874,3875,3875,3875,3875,3876,3876,3876,3877, & - 3877,3877,3877,3878,3878,3878,3879,3879,3879,3879,3880,3880, & - 3881,3881,3882,3882,3882,3882,3883,3883,3883,3884,3884,3884, & - 3884,3885,3885,3885,3886,3886,3886,3887,3887,3887,3887,3888, & - 3888,3888,3888,3889,3889,3890,3890,3891,3891,3892,3892,3892, & - 3893,3893,3893,3893,3894,3894,3894,3894,3895,3895,3896,3896, & - 3897,3897,3897,3898,3898,3898,3898,3899,3899,3899,3899,3900, & - 3900,3901,3901,3902,3902,3902,3903,3903,3903,3904,3904,3904, & - 3905,3905,3905,3905,3906,3906,3906,3906,3907,3907,3908,3908 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_34 = (/ & - 3909,3909,3909,3909,3910,3910,3910,3911,3911,3911,3912,3912, & - 3912,3913,3913,3913,3914,3914,3914,3914,3915,3915,3915,3916, & - 3916,3916,3916,3917,3917,3917,3917,3918,3918,3918,3918,3919, & - 3919,3919,3919,3920,3920,3920,3920,3921,3921,3921,3922,3922, & - 3922,3922,3923,3923,3923,3923,3924,3924,3924,3924,3925,3925, & - 3925,3925,3926,3926,3926,3927,3927,3928,3928,3928,3929,3929, & - 3929,3929,3930,3930,3931,3931,3932,3932,3932,3933,3933,3933, & - 3934,3934,3934,3934,3935,3935,3935,3935,3936,3936,3937,3937, & - 3938,3938,3939,3939,3939,3940,3940,3940,3940,3941,3941,3941, & - 3941,3942,3942,3943,3943,3944,3944,3945,3945,3945,3946,3946, & - 3946,3947,3947,3947,3948,3948,3948,3948,3949,3949,3949,3949, & - 3950,3950,3951,3951,3952,3952,3952,3953,3953,3953,3953,3954, & - 3954,3954,3954,3955,3955,3956,3956,3957,3957,3957,3957,3958, & - 3958,3958,3959,3959,3959,3960,3960,3960,3961,3961,3961,3962, & - 3962,3962,3962,3963,3963,3963,3964,3964,3964,3964,3965,3965, & - 3965,3965,3966,3966,3966,3966,3967,3967,3967,3967,3968,3968, & - 3968,3969,3969,3969,3969,3970,3970,3970,3970,3971,3971,3971, & - 3972,3972,3972,3972,3973,3973,3973,3974,3974,3974,3974,3975, & - 3975,3976,3976,3977,3977,3977,3978,3978,3978,3979,3979,3979, & - 3979,3980,3980,3980,3980,3981,3981,3982,3982,3983,3983,3984, & - 3984,3984,3985,3985,3985,3985,3986,3986,3986,3986,3987,3987, & - 3988,3988,3989,3989,3989,3990,3990,3990,3990,3991,3991,3991, & - 3991,3992,3992,3993,3993,3994,3994,3994,3995,3995,3995,3996, & - 3996,3996,3997,3997,3997,3997,3998,3998,3998,3998,3999,3999, & - 4000,4000,4001,4001,4001,4001,4002,4002,4002,4003,4003,4003, & - 4004,4004,4005,4005,4005,4006,4006,4006,4006,4007,4007,4007, & - 4008,4008,4008,4009,4009,4009,4009,4010,4010,4010,4011,4011, & - 4011,4012,4012,4012,4013,4013,4013,4014,4014,4014,4014,4015, & - 4015,4015,4016,4016,4016,4016,4017,4017,4017,4017,4018,4018, & - 4018,4018,4019,4019,4019,4019,4020,4020,4020,4021,4021,4021 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_35 = (/ & - 4021,4022,4022,4022,4022,4023,4023,4023,4023,4024,4024,4024, & - 4024,4025,4025,4025,4026,4026,4026,4026,4027,4027,4027,4028, & - 4028,4028,4028,4029,4029,4030,4030,4031,4031,4031,4031,4032, & - 4032,4033,4033,4033,4034,4034,4034,4034,4035,4035,4035,4036, & - 4036,4036,4036,4037,4037,4038,4038,4039,4039,4039,4040,4040, & - 4040,4040,4041,4041,4041,4041,4042,4042,4043,4043,4044,4044, & - 4045,4045,4045,4046,4046,4046,4047,4047,4047,4047,4048,4048, & - 4048,4048,4049,4049,4050,4050,4051,4051,4051,4052,4052,4052, & - 4052,4053,4053,4053,4053,4054,4054,4055,4055,4056,4056,4057, & - 4057,4057,4058,4058,4058,4058,4059,4059,4059,4060,4060,4060, & - 4061,4061,4061,4061,4062,4062,4062,4063,4063,4063,4064,4064, & - 4064,4065,4065,4065,4066,4066,4066,4066,4067,4067,4067,4067, & - 4068,4068,4069,4069,4070,4070,4070,4071,4071,4071,4071,4072, & - 4072,4072,4072,4073,4073,4074,4074,4075,4075,4075,4076,4076, & - 4076,4077,4077,4077,4077,4078,4078,4078,4079,4079,4079,4079, & - 4080,4080,4080,4080,4081,4081,4081,4082,4082,4082,4082,4083, & - 4083,4083,4083,4084,4084,4084,4084,4085,4085,4085,4085,4086, & - 4086,4086,4087,4087,4087,4087,4088,4088,4088,4089,4089,4089, & - 4089,4090,4090,4091,4091,4092,4092,4092,4092,4093,4093,4093, & - 4094,4094,4094,4095,4095,4095,4095,4096,4096,4096,4097,4097, & - 4097,4097,4098,4098,4098,4099,4099,4099,4099,4100,4100,4101, & - 4101,4102,4102,4102,4103,4103,4103,4103,4104,4104,4104,4104, & - 4105,4105,4106,4106,4107,4107,4108,4108,4108,4109,4109,4109, & - 4109,4110,4110,4110,4111,4111,4111,4111,4112,4112,4112,4112, & - 4113,4113,4113,4113,4114,4114,4114,4115,4115,4116,4116,4116, & - 4117,4117,4117,4118,4118,4118,4118,4119,4119,4119,4120,4120, & - 4120,4121,4121,4121,4122,4122,4122,4122,4122,4123,4123,4123, & - 4124,4124,4124,4125,4125,4125,4126,4126,4126,4127,4127,4128, & - 4128,4128,4129,4129,4129,4129,4130,4130,4130,4130,4130,4131, & - 4131,4131,4132,4132,4132,4133,4133,4134,4134,4134,4135,4135 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_36 = (/ & - 4135,4135,4136,4136,4136,4137,4137,4137,4138,4138,4138,4138, & - 4139,4139,4139,4139,4140,4140,4140,4140,4141,4141,4141,4141, & - 4142,4142,4142,4142,4143,4143,4143,4144,4144,4144,4145,4145, & - 4145,4146,4146,4146,4146,4147,4147,4147,4147,4148,4148,4148, & - 4148,4149,4149,4150,4150,4150,4151,4151,4151,4152,4152,4153, & - 4153,4153,4154,4154,4154,4154,4155,4155,4155,4156,4156,4156, & - 4156,4157,4157,4157,4157,4158,4158,4158,4158,4159,4159,4159, & - 4159,4160,4160,4160,4161,4161,4161,4162,4162,4162,4163,4163, & - 4164,4164,4164,4164,4165,4165,4165,4165,4166,4166,4166,4166, & - 4167,4167,4167,4167,4168,4168,4168,4168,4169,4169,4169,4170, & - 4170,4170,4171,4171,4171,4172,4172,4172,4172,4172,4173,4173, & - 4173,4174,4174,4175,4175,4175,4175,4176,4176,4176,4176,4177, & - 4177,4177,4177,4178,4178,4178,4179,4179,4179,4180,4180,4181, & - 4181,4181,4182,4182,4182,4182,4183,4183,4183,4184,4184,4184, & - 4185,4185,4185,4185,4186,4186,4186,4186,4187,4187,4187,4188, & - 4188,4188,4188,4189,4189,4189,4189,4190,4190,4190,4190,4191, & - 4191,4191,4191,4192,4192,4192,4193,4193,4193,4194,4194,4195, & - 4195,4195,4195,4196,4196,4197,4197,4197,4197,4198,4198,4198, & - 4199,4199,4199,4200,4200,4200,4200,4201,4201,4201,4201,4202, & - 4202,4203,4203,4204,4204,4205,4205,4205,4206,4206,4206,4207, & - 4207,4207,4207,4208,4208,4208,4208,4209,4209,4210,4210,4211, & - 4211,4212,4212,4212,4213,4213,4213,4213,4214,4214,4214,4214, & - 4215,4215,4215,4215,4216,4216,4217,4217,4217,4218,4218,4218, & - 4219,4219,4219,4219,4220,4220,4220,4220,4221,4221,4221,4221, & - 4222,4222,4222,4223,4223,4223,4224,4224,4224,4224,4225,4225, & - 4225,4225,4226,4226,4227,4227,4228,4228,4229,4229,4229,4230, & - 4230,4230,4230,4231,4231,4231,4232,4232,4232,4232,4233,4233, & - 4234,4234,4234,4235,4235,4236,4236,4237,4237,4238,4238,4239, & - 4239,4239,4240,4240,4240,4241,4241,4241,4241,4242,4242,4242, & - 4242,4243,4243,4244,4244,4245,4245,4246,4246,4246,4246,4247 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_37 = (/ & - 4247,4248,4248,4248,4249,4249,4249,4249,4250,4250,4250,4251, & - 4251,4251,4251,4252,4252,4253,4253,4253,4254,4254,4255,4255, & - 4256,4256,4257,4257,4258,4258,4258,4259,4259,4259,4260,4260, & - 4260,4260,4261,4261,4261,4261,4262,4262,4263,4263,4264,4264, & - 4265,4265,4266,4266,4266,4266,4267,4267,4268,4268,4269,4269, & - 4269,4270,4270,4270,4271,4271,4271,4271,4272,4272,4272,4272, & - 4273,4273,4273,4273,4274,4274,4274,4275,4275,4275,4276,4276, & - 4276,4276,4277,4277,4277,4277,4278,4278,4278,4279,4279,4279, & - 4279,4280,4280,4280,4280,4281,4281,4282,4282,4282,4283,4283, & - 4284,4284,4284,4285,4285,4285,4286,4286,4286,4286,4287,4287, & - 4287,4287,4288,4288,4289,4289,4289,4289,4289,4290,4290,4290, & - 4291,4291,4291,4291,4292,4292,4292,4293,4293,4293,4293,4294, & - 4294,4295,4295,4295,4296,4296,4296,4297,4297,4297,4297,4298, & - 4298,4298,4298,4299,4299,4300,4300,4300,4301,4301,4301,4301, & - 4302,4302,4302,4302,4303,4303,4304,4304,4304,4305,4305,4305, & - 4306,4306,4307,4307,4308,4308,4308,4309,4309,4309,4310,4310, & - 4310,4310,4311,4311,4311,4311,4312,4312,4313,4313,4314,4314, & - 4315,4315,4315,4316,4316,4316,4317,4317,4317,4317,4318,4318, & - 4318,4318,4319,4319,4320,4320,4321,4321,4322,4322,4322,4323, & - 4323,4323,4324,4324,4324,4324,4325,4325,4325,4325,4326,4326, & - 4327,4327,4328,4328,4329,4329,4330,4330,4330,4331,4331,4331, & - 4332,4332,4332,4332,4333,4333,4333,4333,4334,4334,4335,4335, & - 4336,4336,4337,4337,4338,4338,4339,4339,4339,4340,4340,4340, & - 4341,4341,4341,4342,4342,4342,4342,4343,4343,4343,4344,4344, & - 4344,4345,4345,4345,4345,4346,4346,4347,4347,4347,4348,4348, & - 4348,4349,4349,4349,4350,4350,4350,4351,4351,4351,4351,4352, & - 4352,4352,4353,4353,4353,4354,4354,4354,4354,4355,4355,4356, & - 4356,4356,4357,4357,4357,4357,4358,4358,4358,4359,4359,4359, & - 4360,4360,4360,4360,4361,4361,4361,4361,4362,4362,4362,4363, & - 4363,4363,4364,4364,4364,4364,4365,4365,4365,4365,4366,4366 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_38 = (/ & - 4366,4367,4367,4367,4367,4368,4368,4368,4369,4369,4369,4370, & - 4370,4371,4371,4371,4371,4372,4372,4372,4373,4373,4374,4374, & - 4374,4375,4375,4375,4376,4376,4376,4376,4377,4377,4377,4378, & - 4378,4378,4379,4379,4380,4380,4381,4381,4381,4382,4382,4382, & - 4382,4383,4383,4383,4384,4384,4384,4385,4385,4386,4386,4386, & - 4387,4387,4388,4388,4388,4389,4389,4389,4389,4390,4390,4390, & - 4391,4391,4391,4392,4392,4392,4392,4393,4393,4393,4393,4393, & - 4394,4394,4394,4394,4395,4395,4396,4396,4396,4397,4397,4397, & - 4398,4398,4398,4399,4399,4400,4400,4400,4400,4401,4401,4401, & - 4402,4402,4402,4403,4403,4403,4404,4404,4404,4404,4405,4405, & - 4405,4406,4406,4407,4407,4407,4408,4408,4408,4408,4409,4409, & - 4409,4410,4410,4410,4411,4411,4411,4412,4412,4412,4413,4413, & - 4414,4414,4414,4415,4415,4415,4415,4416,4416,4416,4417,4417, & - 4417,4418,4418,4419,4419,4419,4420,4420,4420,4421,4421,4421, & - 4421,4422,4422,4422,4423,4423,4424,4424,4424,4424,4425,4425, & - 4425,4426,4426,4426,4427,4427,4427,4428,4428,4428,4429,4429, & - 4429,4430,4430,4431,4431,4431,4432,4432,4432,4432,4433,4433, & - 4434,4434,4434,4435,4435,4435,4435,4436,4436,4436,4436,4437, & - 4437,4437,4438,4438,4439,4439,4439,4440,4440,4440,4441,4441, & - 4441,4441,4442,4442,4442,4443,4443,4444,4444,4444,4445,4445, & - 4445,4446,4446,4446,4447,4447,4447,4447,4448,4448,4448,4449, & - 4449,4450,4450,4450,4451,4451,4451,4452,4452,4452,4452,4453, & - 4453,4453,4454,4454,4454,4455,4455,4455,4456,4456,4456,4457, & - 4457,4457,4458,4458,4458,4459,4459,4459,4460,4460,4460,4460, & - 4461,4461,4462,4462,4462,4463,4463,4463,4463,4464,4464,4464, & - 4465,4465,4465,4466,4466,4466,4467,4467,4467,4468,4468,4469, & - 4469,4469,4470,4470,4470,4471,4471,4471,4472,4472,4472,4472, & - 4473,4473,4473,4474,4474,4475,4475,4475,4475,4476,4476,4476, & - 4477,4477,4478,4478,4478,4479,4479,4479,4479,4480,4480,4480, & - 4481,4481,4481,4482,4482,4482,4483,4483,4484,4484,4484,4484 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_39 = (/ & - 4485,4485,4485,4485,4486,4486,4487,4487,4487,4488,4488,4488, & - 4488,4489,4489,4489,4490,4490,4490,4491,4491,4492,4492,4492, & - 4493,4493,4493,4494,4494,4494,4494,4495,4495,4495,4496,4496, & - 4497,4497,4497,4497,4498,4498,4498,4499,4499,4499,4500,4500, & - 4500,4500,4501,4501,4501,4501,4502,4502,4502,4503,4503,4503, & - 4504,4504,4504,4505,4505,4505,4505,4505,4506,4506,4506,4507, & - 4507,4507,4508,4508,4509,4509,4510,4510,4510,4511,4511,4511, & - 4511,4512,4512,4512,4513,4513,4513,4514,4514,4514,4515,4515, & - 4515,4516,4516,4516,4516,4517,4517,4517,4517,4518,4518,4518, & - 4519,4519,4520,4520,4520,4521,4521,4521,4521,4522,4522,4523, & - 4523,4523,4524,4524,4524,4524,4525,4525,4525,4525,4526,4526, & - 4526,4527,4527,4527,4528,4528,4528,4528,4529,4529,4530,4530, & - 4530,4531,4531,4531,4531,4532,4532,4532,4533,4533,4534,4534, & - 4534,4535,4535,4535,4536,4536,4536,4536,4537,4537,4537,4537, & - 4538,4538,4538,4538,4539,4539,4539,4540,4540,4540,4541,4541, & - 4541,4542,4542,4542,4542,4543,4543,4543,4544,4544,4545,4545, & - 4545,4546,4546,4546,4547,4547,4547,4548,4548,4548,4548,4549, & - 4549,4549,4550,4550,4550,4551,4551,4551,4552,4552,4552,4552, & - 4553,4553,4553,4553,4554,4554,4555,4555,4556,4556,4556,4557, & - 4557,4557,4557,4558,4558,4558,4558,4559,4559,4560,4560,4561, & - 4561,4562,4562,4562,4563,4563,4563,4563,4564,4564,4564,4564, & - 4565,4565,4565,4565,4566,4566,4566,4567,4567,4568,4568,4568, & - 4569,4569,4569,4570,4570,4570,4570,4571,4571,4571,4571,4572, & - 4572,4573,4573,4574,4574,4575,4575,4575,4576,4576,4576,4577, & - 4577,4577,4578,4578,4578,4578,4579,4579,4580,4580,4580,4581, & - 4581,4581,4582,4582,4582,4583,4583,4583,4584,4584,4584,4585, & - 4585,4585,4585,4585,4586,4586,4586,4587,4587,4587,4588,4588, & - 4588,4589,4589,4589,4590,4590,4590,4591,4591,4591,4591,4592, & - 4592,4592,4592,4593,4593,4594,4594,4594,4595,4595,4595,4595, & - 4596,4596,4596,4596,4596,4597,4597,4597,4597,4598,4598,4598 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_40 = (/ & - 4599,4599,4599,4599,4599,4600,4600,4600,4601,4601,4601,4602, & - 4602,4602,4602,4603,4603,4603,4603,4604,4604,4605,4605,4606, & - 4606,4607,4607,4607,4608,4608,4608,4609,4609,4609,4609,4610, & - 4610,4610,4610,4611,4611,4612,4612,4613,4613,4614,4614,4614, & - 4615,4615,4615,4616,4616,4616,4616,4617,4617,4617,4617,4618, & - 4618,4619,4619,4620,4620,4620,4621,4621,4621,4621,4622,4622, & - 4622,4622,4623,4623,4624,4624,4625,4625,4626,4626,4626,4627, & - 4627,4627,4628,4628,4628,4628,4629,4629,4629,4629,4630,4630, & - 4630,4630,4631,4631,4631,4632,4632,4632,4633,4633,4633,4634, & - 4634,4634,4634,4635,4635,4635,4635,4636,4636,4637,4637,4637, & - 4638,4638,4638,4638,4639,4639,4639,4639,4640,4640,4640,4641, & - 4641,4641,4641,4642,4642,4642,4643,4643,4643,4644,4644,4644, & - 4644,4644,4645,4645,4645,4646,4646,4646,4647,4647,4647,4648, & - 4648,4648,4649,4649,4649,4650,4650,4650,4651,4651,4651,4651, & - 4652,4652,4652,4653,4653,4653,4653,4654,4654,4654,4654,4655, & - 4655,4656,4656,4657,4657,4658,4658,4658,4659,4659,4659,4659, & - 4660,4660,4660,4660,4661,4661,4662,4662,4663,4663,4664,4664, & - 4664,4665,4665,4665,4666,4666,4666,4666,4667,4667,4667,4667, & - 4668,4668,4669,4669,4670,4670,4671,4671,4671,4672,4672,4672, & - 4672,4673,4673,4673,4673,4674,4674,4674,4674,4675,4675,4675, & - 4676,4676,4677,4677,4677,4678,4678,4678,4679,4679,4679,4679, & - 4680,4680,4680,4681,4681,4681,4681,4682,4682,4683,4683,4683, & - 4684,4684,4684,4685,4685,4685,4686,4686,4686,4687,4687,4687, & - 4688,4688,4688,4688,4688,4689,4689,4689,4689,4690,4690,4690, & - 4690,4690,4691,4691,4691,4692,4692,4692,4693,4693,4693,4694, & - 4694,4694,4694,4695,4695,4695,4695,4696,4696,4696,4697,4697, & - 4697,4697,4698,4698,4698,4698,4699,4699,4699,4700,4700,4700, & - 4701,4701,4701,4702,4702,4702,4703,4703,4703,4704,4704,4704, & - 4704,4705,4705,4705,4705,4706,4706,4706,4706,4707,4707,4707, & - 4708,4708,4708,4708,4709,4709,4709,4709,4710,4710,4710,4711 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_41 = (/ & - 4711,4711,4712,4712,4712,4712,4713,4713,4713,4713,4714,4714, & - 4715,4715,4716,4716,4717,4717,4717,4718,4718,4718,4718,4719, & - 4719,4719,4719,4720,4720,4721,4721,4722,4722,4723,4723,4723, & - 4723,4724,4724,4724,4724,4725,4725,4725,4726,4726,4726,4727, & - 4727,4727,4728,4728,4728,4728,4729,4729,4729,4729,4730,4730, & - 4731,4731,4732,4732,4733,4733,4733,4734,4734,4734,4734,4735, & - 4735,4735,4735,4736,4736,4737,4737,4738,4738,4739,4739,4739, & - 4740,4740,4740,4741,4741,4741,4741,4742,4742,4742,4742,4743, & - 4743,4744,4744,4745,4745,4746,4746,4746,4747,4747,4747,4748, & - 4748,4748,4748,4749,4749,4749,4750,4750,4750,4750,4751,4751, & - 4752,4752,4752,4753,4753,4753,4754,4754,4754,4755,4755,4755, & - 4756,4756,4756,4757,4757,4757,4757,4757,4758,4758,4758,4758, & - 4759,4759,4759,4759,4759,4760,4760,4760,4760,4761,4761,4761, & - 4762,4762,4762,4762,4763,4763,4763,4763,4764,4764,4764,4765, & - 4765,4765,4765,4766,4766,4767,4767,4768,4768,4768,4768,4769, & - 4769,4769,4770,4770,4770,4770,4771,4771,4771,4771,4772,4772, & - 4772,4773,4773,4773,4773,4774,4774,4775,4775,4776,4776,4776, & - 4777,4777,4777,4778,4778,4778,4778,4779,4779,4779,4779,4780, & - 4780,4781,4781,4782,4782,4783,4783,4783,4784,4784,4784,4784, & - 4785,4785,4785,4785,4786,4786,4786,4787,4787,4787,4787,4788, & - 4788,4789,4789,4789,4790,4790,4790,4791,4791,4791,4792,4792, & - 4792,4793,4793,4793,4793,4793,4794,4794,4794,4795,4795,4795, & - 4796,4796,4796,4797,4797,4797,4797,4797,4798,4798,4798,4799, & - 4799,4799,4800,4800,4800,4801,4801,4801,4801,4801,4802,4802, & - 4802,4803,4803,4803,4803,4804,4804,4804,4805,4805,4805,4805, & - 4805,4806,4806,4806,4806,4807,4807,4807,4807,4808,4808,4808, & - 4809,4809,4809,4810,4810,4810,4810,4811,4811,4811,4811,4812, & - 4812,4813,4813,4814,4814,4815,4815,4815,4816,4816,4816,4816, & - 4817,4817,4817,4817,4818,4818,4818,4819,4819,4819,4819,4820, & - 4820,4821,4821,4821,4822,4822,4822,4823,4823,4823,4823,4823 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_42 = (/ & - 4824,4824,4824,4825,4825,4825,4825,4825,4826,4826,4826,4827, & - 4827,4827,4828,4828,4828,4829,4829,4829,4829,4830,4830,4830, & - 4830,4831,4831,4832,4832,4833,4833,4834,4834,4834,4834,4835, & - 4835,4835,4835,4836,4836,4836,4837,4837,4837,4837,4838,4838, & - 4838,4839,4839,4839,4839,4840,4840,4841,4841,4842,4842,4842, & - 4842,4843,4843,4843,4844,4844,4844,4845,4845,4845,4845,4846, & - 4846,4846,4847,4847,4847,4848,4848,4848,4848,4849,4849,4849, & - 4850,4850,4850,4850,4851,4851,4851,4851,4852,4852,4853,4853, & - 4853,4853,4854,4854,4854,4854,4855,4855,4855,4855,4856,4856, & - 4856,4857,4857,4857,4857,4858,4858,4858,4858,4858,4859,4859, & - 4859,4860,4860,4860,4861,4861,4861,4861,4862,4862,4862,4862, & - 4862,4863,4863,4863,4864,4864,4864,4865,4865,4865,4865,4865, & - 4866,4866,4866,4867,4867,4867,4867,4868,4868,4868,4869,4869, & - 4869,4869,4870,4870,4870,4871,4871,4871,4871,4872,4872,4872, & - 4872,4873,4873,4873,4874,4874,4874,4875,4875,4875,4875,4875, & - 4876,4876,4876,4876,4877,4877,4877,4877,4878,4878,4878,4879, & - 4879,4879,4880,4880,4880,4880,4880,4881,4881,4881,4882,4882, & - 4882,4882,4882,4883,4883,4883,4884,4884,4884,4884,4885,4885, & - 4885,4886,4886,4886,4886,4887,4887,4887,4888,4888,4888,4888, & - 4889,4889,4890,4890,4890,4890,4891,4891,4891,4892,4892,4892, & - 4892,4893,4893,4893,4893,4894,4894,4894,4895,4895,4895,4895, & - 4896,4896,4897,4897,4898,4898,4898,4898,4899,4899,4899,4899, & - 4900,4900,4900,4901,4901,4901,4901,4902,4902,4902,4903,4903, & - 4903,4903,4904,4904,4905,4905,4906,4906,4906,4907,4907,4907, & - 4907,4908,4908,4908,4908,4909,4909,4910,4910,4911,4911,4912, & - 4912,4912,4912,4913,4913,4913,4914,4914,4914,4914,4915,4915, & - 4915,4915,4916,4916,4916,4917,4917,4917,4917,4918,4918,4919, & - 4919,4920,4920,4920,4921,4921,4921,4922,4922,4922,4922,4923, & - 4923,4923,4923,4924,4924,4925,4925,4926,4926,4927,4927,4927, & - 4927,4928,4928,4928,4928,4929,4929,4929,4930,4930,4930,4930 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_43 = (/ & - 4931,4931,4931,4932,4932,4932,4932,4933,4933,4934,4934,4935, & - 4935,4935,4936,4936,4936,4937,4937,4937,4937,4937,4938,4938, & - 4938,4939,4939,4939,4939,4939,4940,4940,4940,4941,4941,4941, & - 4941,4941,4942,4942,4942,4942,4943,4943,4943,4943,4943,4944, & - 4944,4944,4944,4945,4945,4945,4945,4946,4946,4946,4947,4947, & - 4947,4948,4948,4948,4948,4948,4949,4949,4949,4949,4949,4950, & - 4950,4950,4950,4950,4951,4951,4951,4952,4952,4953,4953,4953, & - 4954,4954,4954,4954,4955,4955,4955,4955,4956,4956,4956,4957, & - 4957,4957,4958,4958,4958,4958,4958,4959,4959,4959,4959,4959, & - 4960,4960,4960,4960,4961,4961,4961,4962,4962,4962,4962,4963, & - 4963,4963,4964,4964,4964,4964,4965,4965,4965,4966,4966,4967, & - 4967,4967,4967,4968,4968,4968,4969,4969,4969,4970,4970,4970, & - 4970,4970,4971,4971,4971,4972,4972,4972,4972,4972,4973,4973, & - 4974,4974,4974,4975,4975,4975,4976,4976,4976,4977,4977,4977, & - 4977,4977,4978,4978,4978,4979,4979,4979,4979,4979,4980,4980, & - 4980,4981,4981,4981,4982,4982,4982,4982,4983,4983,4983,4984, & - 4984,4984,4985,4985,4985,4985,4985,4986,4986,4986,4987,4987, & - 4987,4987,4987,4988,4988,4988,4989,4989,4989,4990,4990,4990, & - 4991,4991,4991,4991,4992,4992,4992,4992,4993,4993,4994,4994, & - 4995,4995,4996,4996,4996,4997,4997,4997,4998,4998,4998,4998, & - 4999,4999,4999,4999,5000,5000,5001,5001,5002,5002,5003,5003, & - 5003,5004,5004,5004,5005,5005,5005,5005,5006,5006,5006,5006, & - 5007,5007,5008,5008,5009,5009,5010,5010,5010,5011,5011,5011, & - 5011,5012,5012,5012,5012,5013,5013,5013,5014,5014,5014,5014, & - 5015,5015,5016,5016,5016,5017,5017,5017,5018,5018,5018,5018, & - 5019,5019,5019,5019,5020,5020,5021,5021,5022,5022,5023,5023, & - 5023,5024,5024,5024,5024,5025,5025,5025,5025,5026,5026,5026, & - 5027,5027,5027,5027,5028,5028,5029,5029,5029,5030,5030,5030, & - 5031,5031,5031,5031,5032,5032,5032,5032,5033,5033,5034,5034, & - 5035,5035,5036,5036,5036,5037,5037,5037,5038,5038,5038,5038 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_44 = (/ & - 5039,5039,5039,5039,5040,5040,5041,5041,5042,5042,5043,5043, & - 5043,5044,5044,5044,5045,5045,5045,5045,5046,5046,5046,5046, & - 5047,5047,5048,5048,5049,5049,5050,5050,5050,5051,5051,5051, & - 5051,5052,5052,5052,5052,5053,5053,5053,5054,5054,5054,5054, & - 5055,5055,5056,5056,5056,5057,5057,5057,5058,5058,5058,5058, & - 5059,5059,5059,5059,5060,5060,5061,5061,5062,5062,5063,5063, & - 5063,5064,5064,5064,5064,5065,5065,5065,5065,5066,5066,5067, & - 5067,5068,5068,5068,5069,5069,5069,5070,5070,5070,5070,5071, & - 5071,5071,5071,5072,5072,5073,5073,5074,5074,5075,5075,5075, & - 5076,5076,5076,5077,5077,5077,5077,5078,5078,5078,5078,5079, & - 5079,5080,5080,5081,5081,5082,5082,5082,5083,5083,5083,5084, & - 5084,5084,5084,5085,5085,5085,5085,5086,5086,5087,5087,5088, & - 5088,5089,5089,5089,5089,5090,5090,5090,5091,5091,5091,5091, & - 5092,5092,5092,5093,5093,5093,5093,5094,5094,5095,5095,5095, & - 5096,5096,5096,5097,5097,5097,5097,5098,5098,5098,5098,5099, & - 5099,5100,5100,5101,5101,5102,5102,5102,5103,5103,5103,5104, & - 5104,5104,5104,5105,5105,5105,5105,5106,5106,5107,5107,5108, & - 5108,5109,5109,5109,5110,5110,5110,5110,5111,5111,5111,5111, & - 5112,5112,5113,5113,5114,5114,5114,5115,5115,5115,5116,5116, & - 5116,5116,5117,5117,5117,5117,5118,5118,5119,5119,5120,5120, & - 5121,5121,5121,5122,5122,5122,5122,5123,5123,5123,5123,5124, & - 5124,5124,5125,5125,5125,5125,5126,5126,5127,5127,5127,5128, & - 5128,5128,5129,5129,5129,5129,5130,5130,5130,5130,5131,5131, & - 5132,5132,5133,5133,5134,5134,5134,5134,5135,5135,5135,5135, & - 5136,5136,5136,5137,5137,5137,5137,5138,5138,5138,5139,5139, & - 5139,5139,5140,5140,5141,5141,5142,5142,5142,5143,5143,5143, & - 5144,5144,5144,5144,5145,5145,5145,5145,5146,5146,5147,5147, & - 5148,5148,5149,5149,5149,5149,5150,5150,5150,5150,5151,5151, & - 5151,5152,5152,5152,5152,5153,5153,5153,5154,5154,5154,5154, & - 5155,5155,5156,5156,5157,5157,5157,5158,5158,5158,5159,5159 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_45 = (/ & - 5159,5159,5160,5160,5160,5160,5161,5161,5162,5162,5163,5163, & - 5164,5164,5164,5165,5165,5165,5165,5166,5166,5166,5166,5167, & - 5167,5168,5168,5168,5169,5169,5169,5170,5170,5170,5170,5171, & - 5171,5171,5171,5172,5172,5173,5173,5174,5174,5174,5175,5175, & - 5175,5175,5176,5176,5176,5176,5177,5177,5178,5178,5178,5179, & - 5179,5179,5180,5180,5180,5180,5181,5181,5181,5181,5182,5182, & - 5183,5183,5184,5184,5185,5185,5185,5186,5186,5186,5187,5187, & - 5187,5187,5188,5188,5188,5188,5189,5189,5190,5190,5191,5191, & - 5192,5192,5192,5193,5193,5193,5193,5194,5194,5194,5194,5195, & - 5195,5196,5196,5196,5197,5197,5197,5198,5198,5198,5198,5199, & - 5199,5199,5199,5200,5200,5201,5201,5202,5202,5203,5203,5203, & - 5204,5204,5204,5205,5205,5205,5205,5206,5206,5206,5206,5207, & - 5207,5208,5208,5209,5209,5210,5210,5210,5211,5211,5211,5211, & - 5212,5212,5212,5212,5213,5213,5214,5214,5214,5215,5215,5215, & - 5216,5216,5216,5216,5217,5217,5217,5217,5218,5218,5219,5219, & - 5220,5220,5221,5221,5221,5222,5222,5222,5222,5223,5223,5223, & - 5223,5224,5224,5225,5225,5225,5226,5226,5226,5227,5227,5227, & - 5227,5228,5228,5228,5228,5229,5229,5230,5230,5231,5231,5232, & - 5232,5232,5233,5233,5233,5233,5234,5234,5234,5234,5235,5235, & - 5236,5236,5236,5237,5237,5237,5238,5238,5238,5238,5239,5239, & - 5239,5239,5240,5240,5241,5241,5242,5242,5243,5243,5243,5244, & - 5244,5244,5244,5245,5245,5245,5245,5246,5246,5247,5247,5247, & - 5248,5248,5248,5249,5249,5249,5249,5250,5250,5250,5250,5251, & - 5251,5252,5252,5253,5253,5254,5254,5254,5255,5255,5255,5255, & - 5256,5256,5256,5256,5257,5257,5258,5258,5258,5259,5259,5259, & - 5260,5260,5260,5260,5261,5261,5261,5261,5262,5262,5263,5263, & - 5264,5264,5265,5265,5265,5265,5265,5266,5266,5266,5266,5267, & - 5267,5267,5268,5268,5268,5268,5269,5269,5269,5270,5270,5270, & - 5270,5271,5271,5271,5272,5272,5273,5273,5273,5273,5273,5274, & - 5274,5274,5274,5275,5275,5275,5276,5276,5276,5276,5277,5277 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_46 = (/ & - 5277,5278,5278,5278,5278,5279,5279,5279,5280,5280,5281,5281, & - 5281,5281,5282,5282,5282,5283,5283,5283,5283,5284,5284,5284, & - 5284,5285,5285,5286,5286,5287,5287,5288,5288,5288,5288,5289, & - 5289,5289,5290,5290,5290,5291,5291,5291,5291,5291,5292,5292, & - 5292,5293,5293,5293,5293,5293,5294,5294,5294,5295,5295,5295, & - 5295,5295,5296,5296,5296,5296,5297,5297,5297,5298,5298,5298, & - 5298,5299,5299,5299,5300,5300,5300,5300,5301,5301,5301,5302, & - 5302,5303,5303,5303,5304,5304,5304,5304,5305,5305,5305,5305, & - 5306,5306,5307,5307,5308,5308,5309,5309,5309,5310,5310,5310, & - 5310,5310,5311,5311,5311,5311,5312,5312,5312,5313,5313,5313, & - 5313,5314,5314,5314,5315,5315,5315,5315,5316,5316,5316,5317, & - 5317,5318,5318,5318,5318,5319,5319,5319,5320,5320,5320,5320, & - 5321,5321,5321,5321,5322,5322,5323,5323,5323,5324,5324,5324, & - 5325,5325,5325,5325,5325,5326,5326,5326,5327,5327,5327,5327, & - 5327,5328,5328,5328,5329,5329,5329,5330,5330,5330,5330,5331, & - 5331,5331,5331,5332,5332,5333,5333,5333,5334,5334,5334,5334, & - 5335,5335,5335,5335,5336,5336,5337,5337,5337,5337,5338,5338, & - 5338,5339,5339,5339,5339,5339,5340,5340,5340,5340,5341,5341, & - 5341,5342,5342,5342,5342,5343,5343,5344,5344,5344,5345,5345, & - 5345,5345,5346,5346,5346,5347,5347,5347,5347,5348,5348,5348, & - 5348,5349,5349,5350,5350,5351,5351,5351,5352,5352,5352,5352, & - 5353,5353,5353,5354,5354,5354,5354,5354,5355,5355,5355,5355, & - 5356,5356,5356,5357,5357,5357,5357,5358,5358,5359,5359,5359, & - 5360,5360,5360,5360,5361,5361,5361,5362,5362,5362,5363,5363, & - 5363,5363,5363,5364,5364,5364,5365,5365,5365,5365,5365,5366, & - 5366,5366,5367,5367,5367,5368,5368,5368,5368,5369,5369,5369, & - 5369,5370,5370,5371,5371,5371,5371,5371,5372,5372,5372,5372, & - 5373,5373,5373,5374,5374,5374,5374,5375,5375,5375,5376,5376, & - 5376,5376,5377,5377,5377,5378,5378,5379,5379,5379,5380,5380, & - 5380,5380,5381,5381,5381,5381,5382,5382,5383,5383,5384,5384 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_47 = (/ & - 5385,5385,5385,5386,5386,5386,5386,5387,5387,5387,5387,5388, & - 5388,5389,5389,5390,5390,5391,5391,5391,5392,5392,5392,5393, & - 5393,5393,5393,5393,5394,5394,5394,5395,5395,5395,5395,5395, & - 5396,5396,5396,5397,5397,5397,5398,5398,5398,5398,5399,5399, & - 5399,5399,5400,5400,5401,5401,5402,5402,5403,5403,5403,5404, & - 5404,5404,5404,5405,5405,5405,5405,5406,5406,5407,5407,5408, & - 5408,5409,5409,5409,5410,5410,5410,5411,5411,5411,5412,5412, & - 5412,5412,5413,5413,5413,5414,5414,5414,5414,5415,5415,5415, & - 5415,5416,5416,5416,5417,5417,5417,5417,5418,5418,5419,5419, & - 5420,5420,5420,5421,5421,5421,5422,5422,5422,5423,5423,5423, & - 5424,5424,5424,5424,5424,5425,5425,5425,5426,5426,5426,5426, & - 5427,5427,5427,5427,5428,5428,5428,5429,5429,5429,5429,5430, & - 5430,5430,5431,5431,5431,5431,5432,5432,5433,5433,5434,5434, & - 5434,5435,5435,5435,5435,5436,5436,5436,5436,5437,5437,5438, & - 5438,5439,5439,5440,5440,5441,5441,5441,5442,5442,5442,5442, & - 5443,5443,5443,5443,5443,5444,5444,5444,5445,5445,5445,5445, & - 5446,5446,5446,5446,5447,5447,5447,5448,5448,5448,5448,5449, & - 5449,5449,5450,5450,5451,5451,5451,5452,5452,5452,5452,5452, & - 5453,5453,5453,5453,5454,5454,5454,5454,5455,5455,5455,5455, & - 5456,5456,5456,5456,5457,5457,5457,5457,5458,5458,5458,5459, & - 5459,5459,5459,5460,5460,5460,5460,5461,5461,5462,5462,5463, & - 5463,5464,5464,5464,5464,5465,5465,5465,5466,5466,5466,5467, & - 5467,5467,5467,5467,5468,5468,5468,5469,5469,5469,5469,5470, & - 5470,5470,5471,5471,5471,5471,5471,5472,5472,5472,5473,5473, & - 5473,5474,5474,5474,5474,5474,5475,5475,5475,5476,5476,5476, & - 5477,5477,5477,5477,5478,5478,5478,5479,5479,5479,5480,5480, & - 5480,5481,5481,5481,5482,5482,5482,5482,5483,5483,5483,5484, & - 5484,5484,5485,5485,5485,5486,5486,5486,5486,5487,5487,5487, & - 5488,5488,5488,5488,5489,5489,5489,5490,5490,5490,5490,5491, & - 5491,5491,5491,5492,5492,5492,5493,5493,5493,5494,5494,5494 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_48 = (/ & - 5494,5495,5495,5495,5495,5496,5496,5497,5497,5497,5498,5498, & - 5498,5499,5499,5499,5499,5499,5500,5500,5500,5500,5501,5501, & - 5501,5501,5502,5502,5502,5502,5503,5503,5503,5503,5504,5504, & - 5504,5505,5505,5505,5506,5506,5506,5507,5507,5507,5507,5508, & - 5508,5508,5508,5509,5509,5510,5510,5510,5510,5511,5511,5511, & - 5511,5512,5512,5512,5512,5513,5513,5513,5514,5514,5514,5515, & - 5515,5515,5516,5516,5517,5517,5517,5518,5518,5518,5519,5519, & - 5519,5520,5520,5520,5520,5521,5521,5521,5521,5522,5522,5522, & - 5523,5523,5523,5523,5524,5524,5524,5525,5525,5525,5525,5526, & - 5526,5527,5527,5528,5528,5528,5529,5529,5529,5530,5530,5530, & - 5531,5531,5531,5532,5532,5532,5532,5532,5533,5533,5533,5534, & - 5534,5534,5535,5535,5535,5535,5536,5536,5536,5536,5537,5537, & - 5537,5537,5538,5538,5539,5539,5539,5540,5540,5541,5541,5541, & - 5542,5542,5542,5542,5543,5543,5543,5543,5543,5543,5544,5544, & - 5544,5545,5545,5545,5545,5546,5546,5546,5546,5546,5547,5547, & - 5547,5547,5547,5548,5548,5548,5548,5549,5549,5549,5550,5550, & - 5551,5551,5551,5551,5551,5552,5552,5552,5553,5553,5553,5553, & - 5554,5554,5554,5554,5555,5555,5555,5555,5556,5556,5556,5556, & - 5557,5557,5557,5557,5558,5558,5558,5558,5559,5559,5559,5559, & - 5560,5560,5560,5561,5561,5561,5561,5562,5562,5562,5563,5563, & - 5563,5563,5564,5564,5565,5565,5566,5566,5566,5566,5567,5567, & - 5567,5567,5568,5568,5568,5568,5569,5569,5569,5569,5570,5570, & - 5570,5570,5571,5571,5571,5572,5572,5572,5573,5573,5573,5574, & - 5574,5575,5575,5575,5576,5576,5576,5576,5577,5577,5577,5578, & - 5578,5578,5579,5579,5579,5580,5580,5580,5581,5581,5581,5582, & - 5582,5582,5582,5582,5582,5583,5583,5583,5584,5584,5584,5584, & - 5585,5585,5585,5585,5586,5586,5586,5587,5587,5587,5587,5588, & - 5588,5588,5589,5589,5589,5589,5590,5590,5591,5591,5592,5592, & - 5592,5593,5593,5593,5593,5594,5594,5594,5594,5595,5595,5596, & - 5596,5597,5597,5597,5598,5598,5598,5598,5599,5599,5599,5599 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_49 = (/ & - 5599,5600,5600,5600,5601,5601,5601,5601,5602,5602,5602,5602, & - 5602,5603,5603,5603,5603,5604,5604,5604,5604,5605,5605,5605, & - 5606,5606,5606,5607,5607,5607,5607,5608,5608,5608,5608,5609, & - 5609,5609,5610,5610,5610,5611,5611,5611,5611,5612,5612,5612, & - 5612,5613,5613,5613,5613,5614,5614,5614,5615,5615,5615,5616, & - 5616,5616,5616,5617,5617,5617,5617,5618,5618,5618,5619,5619, & - 5619,5619,5620,5620,5620,5620,5621,5621,5621,5622,5622,5622, & - 5623,5623,5623,5623,5624,5624,5624,5624,5625,5625,5626,5626, & - 5626,5627,5627,5627,5628,5628,5628,5628,5629,5629,5629,5630, & - 5630,5630,5631,5631,5631,5632,5632,5632,5633,5633,5633,5633, & - 5633,5634,5634,5634,5634,5635,5635,5635,5635,5636,5636,5636, & - 5637,5637,5637,5637,5638,5638,5638,5639,5639,5639,5639,5640, & - 5640,5641,5641,5642,5642,5642,5643,5643,5643,5643,5644,5644, & - 5644,5644,5645,5645,5646,5646,5646,5646,5647,5647,5647,5647, & - 5648,5648,5648,5648,5649,5649,5649,5650,5650,5650,5651,5651, & - 5651,5652,5652,5653,5653,5653,5654,5654,5654,5654,5654,5655, & - 5655,5655,5656,5656,5656,5657,5657,5657,5657,5657,5658,5658, & - 5658,5659,5659,5659,5659,5660,5660,5660,5661,5661,5661,5661, & - 5662,5662,5662,5663,5663,5663,5663,5664,5664,5665,5665,5665, & - 5666,5666,5666,5667,5667,5667,5668,5668,5668,5669,5669,5669, & - 5669,5669,5669,5670,5670,5670,5671,5671,5671,5671,5672,5672, & - 5672,5672,5673,5673,5673,5674,5674,5674,5674,5675,5675,5675, & - 5676,5676,5676,5676,5677,5677,5678,5678,5679,5679,5679,5680, & - 5680,5680,5680,5681,5681,5681,5681,5682,5682,5683,5683,5684, & - 5684,5685,5685,5685,5686,5686,5686,5686,5687,5687,5687,5687, & - 5687,5687,5688,5688,5688,5689,5689,5689,5689,5690,5690,5690, & - 5690,5690,5691,5691,5691,5691,5691,5692,5692,5692,5692,5693, & - 5693,5693,5694,5694,5695,5695,5695,5696,5696,5696,5697,5697, & - 5697,5697,5698,5698,5698,5699,5699,5699,5699,5700,5700,5700, & - 5700,5701,5701,5701,5701,5702,5702,5702,5703,5703,5703,5704 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_50 = (/ & - 5704,5704,5704,5705,5705,5705,5705,5706,5706,5707,5707,5707, & - 5708,5708,5708,5709,5709,5709,5709,5710,5710,5710,5711,5711, & - 5711,5712,5712,5712,5713,5713,5713,5713,5714,5714,5714,5715, & - 5715,5715,5715,5716,5716,5716,5717,5717,5717,5717,5718,5718, & - 5718,5719,5719,5719,5720,5720,5720,5720,5720,5721,5721,5721, & - 5721,5722,5722,5722,5722,5723,5723,5723,5724,5724,5724,5724, & - 5725,5725,5725,5726,5726,5726,5726,5727,5727,5728,5728,5729, & - 5729,5729,5730,5730,5730,5730,5731,5731,5731,5731,5732,5732, & - 5733,5733,5733,5733,5734,5734,5734,5735,5735,5735,5735,5735, & - 5736,5736,5736,5737,5737,5737,5738,5738,5738,5739,5739,5739, & - 5740,5740,5740,5740,5740,5741,5741,5741,5742,5742,5743,5743, & - 5743,5744,5744,5744,5744,5745,5745,5745,5745,5745,5745,5746, & - 5746,5746,5747,5747,5747,5747,5748,5748,5748,5748,5748,5749, & - 5749,5749,5749,5749,5750,5750,5750,5750,5751,5751,5751,5752, & - 5752,5752,5753,5753,5753,5753,5753,5754,5754,5754,5755,5755, & - 5755,5755,5755,5756,5756,5756,5756,5757,5757,5757,5758,5758, & - 5758,5758,5758,5759,5759,5759,5759,5760,5760,5760,5761,5761, & - 5761,5762,5762,5762,5762,5763,5763,5763,5763,5764,5764,5764, & - 5765,5765,5765,5765,5766,5766,5766,5766,5767,5767,5767,5768, & - 5768,5768,5769,5769,5769,5769,5770,5770,5770,5770,5771,5771, & - 5772,5772,5772,5773,5773,5773,5774,5774,5774,5774,5775,5775, & - 5775,5776,5776,5776,5777,5777,5777,5778,5778,5778,5779,5779, & - 5779,5779,5779,5780,5780,5780,5780,5781,5781,5781,5782,5782, & - 5782,5782,5783,5783,5783,5783,5784,5784,5784,5785,5785,5785, & - 5785,5786,5786,5787,5787,5788,5788,5788,5788,5789,5789,5789, & - 5790,5790,5790,5791,5791,5791,5791,5792,5792,5792,5792,5793, & - 5793,5794,5794,5794,5795,5795,5795,5796,5796,5796,5796,5797, & - 5797,5797,5798,5798,5798,5799,5799,5799,5800,5800,5800,5800, & - 5801,5801,5801,5802,5802,5802,5802,5803,5803,5803,5804,5804, & - 5804,5804,5805,5805,5805,5806,5806,5806,5807,5807,5807,5807 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_51 = (/ & - 5807,5808,5808,5808,5808,5809,5809,5809,5809,5810,5810,5810, & - 5810,5811,5811,5811,5812,5812,5812,5813,5813,5813,5813,5814, & - 5814,5815,5815,5815,5816,5816,5816,5816,5816,5817,5817,5817, & - 5818,5818,5818,5818,5819,5819,5819,5819,5820,5820,5820,5821, & - 5821,5821,5821,5822,5822,5822,5823,5823,5823,5823,5824,5824, & - 5825,5825,5826,5826,5826,5827,5827,5827,5828,5828,5828,5829, & - 5829,5829,5830,5830,5830,5830,5830,5831,5831,5831,5832,5832, & - 5832,5833,5833,5833,5833,5834,5834,5834,5834,5835,5835,5835, & - 5835,5836,5836,5837,5837,5837,5838,5838,5839,5839,5839,5840, & - 5840,5840,5840,5841,5841,5841,5841,5841,5841,5842,5842,5842, & - 5843,5843,5843,5843,5844,5844,5844,5844,5844,5845,5845,5845, & - 5845,5845,5846,5846,5846,5846,5847,5847,5847,5848,5848,5849, & - 5849,5849,5849,5849,5850,5850,5850,5851,5851,5851,5851,5852, & - 5852,5852,5852,5853,5853,5853,5853,5854,5854,5854,5855,5855, & - 5855,5855,5856,5856,5856,5857,5857,5857,5857,5858,5858,5858, & - 5858,5859,5859,5860,5860,5861,5861,5862,5862,5862,5863,5863, & - 5863,5864,5864,5864,5864,5865,5865,5865,5865,5866,5866,5866, & - 5867,5867,5867,5867,5868,5868,5868,5868,5869,5869,5869,5870, & - 5870,5870,5871,5871,5871,5871,5872,5872,5872,5872,5873,5873, & - 5874,5874,5874,5875,5875,5875,5876,5876,5876,5876,5877,5877, & - 5877,5878,5878,5878,5879,5879,5879,5880,5880,5880,5881,5881, & - 5881,5881,5881,5882,5882,5882,5882,5882,5883,5883,5883,5883, & - 5884,5884,5884,5884,5885,5885,5885,5885,5886,5886,5886,5886, & - 5887,5887,5887,5887,5888,5888,5888,5889,5889,5889,5890,5890, & - 5890,5891,5891,5892,5892,5892,5893,5893,5893,5893,5893,5894, & - 5894,5894,5895,5895,5895,5895,5896,5896,5896,5896,5897,5897, & - 5897,5898,5898,5898,5898,5899,5899,5899,5900,5900,5900,5900, & - 5901,5901,5902,5902,5903,5903,5903,5904,5904,5904,5905,5905, & - 5905,5906,5906,5906,5907,5907,5907,5907,5907,5908,5908,5908, & - 5909,5909,5909,5910,5910,5910,5910,5911,5911,5911,5911,5912 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_52 = (/ & - 5912,5912,5912,5913,5913,5913,5914,5914,5915,5915,5916,5916, & - 5916,5917,5917,5917,5917,5918,5918,5918,5918,5918,5918,5919, & - 5919,5919,5920,5920,5920,5920,5921,5921,5921,5921,5921,5922, & - 5922,5922,5922,5922,5923,5923,5923,5923,5924,5924,5924,5925, & - 5925,5926,5926,5926,5926,5926,5927,5927,5927,5928,5928,5928, & - 5928,5929,5929,5929,5929,5930,5930,5930,5930,5931,5931,5931, & - 5932,5932,5932,5932,5933,5933,5933,5934,5934,5934,5935,5935, & - 5935,5935,5936,5936,5936,5937,5937,5937,5938,5938,5938,5938, & - 5939,5939,5939,5939,5940,5940,5941,5941,5941,5942,5942,5942, & - 5943,5943,5943,5943,5944,5944,5944,5945,5945,5945,5946,5946, & - 5946,5947,5947,5947,5947,5948,5948,5948,5949,5949,5949,5949, & - 5950,5950,5950,5951,5951,5951,5951,5952,5952,5952,5953,5953, & - 5953,5954,5954,5954,5954,5954,5955,5955,5955,5955,5956,5956, & - 5956,5956,5957,5957,5957,5957,5958,5958,5958,5959,5959,5959, & - 5960,5960,5960,5961,5961,5962,5962,5962,5962,5962,5963,5963, & - 5963,5964,5964,5964,5964,5964,5965,5965,5965,5966,5966,5966, & - 5966,5967,5967,5967,5967,5968,5968,5968,5969,5969,5969,5969, & - 5970,5970,5970,5971,5971,5971,5971,5972,5972,5973,5973,5974, & - 5974,5974,5975,5975,5975,5976,5976,5976,5977,5977,5977,5978, & - 5978,5978,5978,5978,5979,5979,5979,5980,5980,5980,5981,5981, & - 5981,5981,5982,5982,5982,5982,5983,5983,5983,5983,5984,5984, & - 5985,5985,5985,5986,5986,5987,5987,5987,5988,5988,5988,5988, & - 5989,5989,5989,5989,5989,5989,5990,5990,5990,5991,5991,5991, & - 5991,5992,5992,5992,5992,5992,5993,5993,5993,5993,5993,5994, & - 5994,5994,5994,5995,5995,5995,5996,5996,5997,5997,5997,5998, & - 5998,5998,5998,5998,5999,5999,5999,5999,6000,6000,6000,6000, & - 6001,6001,6001,6001,6002,6002,6002,6003,6003,6003,6003,6004, & - 6004,6004,6004,6005,6005,6005,6005,6006,6006,6006,6007,6007, & - 6007,6007,6008,6008,6008,6009,6009,6009,6009,6010,6010,6011, & - 6011,6012,6012,6012,6013,6013,6013,6014,6014,6014,6014,6015 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_53 = (/ & - 6015,6015,6015,6016,6016,6016,6017,6017,6017,6017,6018,6018, & - 6018,6018,6019,6019,6019,6020,6020,6020,6021,6021,6021,6021, & - 6022,6022,6022,6022,6023,6023,6024,6024,6024,6025,6025,6025, & - 6026,6026,6026,6026,6027,6027,6027,6028,6028,6028,6029,6029, & - 6029,6030,6030,6030,6030,6030,6031,6031,6031,6031,6032,6032, & - 6032,6033,6033,6033,6034,6034,6034,6035,6035,6036,6036,6036, & - 6037,6037,6037,6038,6038,6038,6039,6039,6039,6040,6040,6040, & - 6040,6041,6041,6041,6042,6042,6042,6042,6043,6043,6043,6043, & - 6044,6044,6044,6045,6045,6045,6045,6046,6046,6046,6047,6047, & - 6047,6047,6048,6048,6049,6049,6050,6050,6050,6051,6051,6051, & - 6051,6052,6052,6052,6052,6053,6053,6054,6054,6055,6055,6055, & - 6056,6056,6056,6057,6057,6057,6057,6058,6058,6058,6058,6059, & - 6059,6059,6059,6059,6060,6060,6060,6060,6061,6061,6061,6062, & - 6062,6062,6062,6063,6063,6063,6063,6064,6064,6064,6065,6065, & - 6065,6065,6066,6066,6066,6066,6067,6067,6067,6068,6068,6068, & - 6068,6069,6069,6069,6070,6070,6070,6070,6071,6071,6072,6072, & - 6073,6073,6073,6074,6074,6074,6074,6075,6075,6076,6076,6077, & - 6077,6077,6077,6078,6078,6078,6078,6079,6079,6079,6080,6080, & - 6080,6080,6080,6081,6081,6081,6082,6082,6082,6083,6083,6083, & - 6084,6084,6084,6084,6085,6085,6085,6085,6086,6086,6086,6087, & - 6087,6087,6087,6088,6088,6088,6088,6089,6089,6089,6090,6090, & - 6090,6091,6091,6091,6091,6092,6092,6092,6092,6093,6093,6094, & - 6094,6094,6095,6095,6095,6096,6096,6096,6096,6097,6097,6097, & - 6098,6098,6098,6099,6099,6099,6100,6100,6100,6101,6101,6101, & - 6101,6101,6102,6102,6102,6103,6103,6103,6103,6103,6104,6104, & - 6104,6105,6105,6105,6106,6106,6106,6106,6106,6107,6107,6107, & - 6107,6107,6107,6108,6108,6108,6109,6109,6110,6110,6110,6111, & - 6111,6111,6112,6112,6112,6112,6113,6113,6113,6113,6114,6114, & - 6114,6114,6114,6115,6115,6115,6115,6116,6116,6116,6117,6117, & - 6117,6117,6118,6118,6118,6119,6119,6119,6120,6120,6120,6120 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_54 = (/ & - 6120,6121,6121,6121,6122,6122,6122,6122,6123,6123,6123,6124, & - 6124,6124,6125,6125,6125,6125,6125,6126,6126,6126,6126,6127, & - 6127,6127,6127,6128,6128,6128,6128,6129,6129,6129,6130,6130, & - 6130,6130,6131,6131,6131,6132,6132,6132,6132,6133,6133,6134, & - 6134,6135,6135,6135,6136,6136,6136,6136,6137,6137,6137,6137, & - 6138,6138,6139,6139,6139,6139,6140,6140,6140,6141,6141,6141, & - 6141,6142,6142,6142,6143,6143,6143,6143,6144,6144,6145,6145, & - 6146,6146,6146,6147,6147,6147,6148,6148,6148,6148,6149,6149, & - 6149,6149,6150,6150,6150,6151,6151,6151,6151,6152,6152,6152, & - 6153,6153,6153,6154,6154,6154,6154,6155,6155,6155,6156,6156, & - 6156,6157,6157,6157,6158,6158,6158,6159,6159,6159,6160,6160, & - 6160,6160,6160,6160,6161,6161,6161,6162,6162,6162,6162,6163, & - 6163,6163,6163,6164,6164,6164,6165,6165,6165,6165,6166,6166, & - 6166,6167,6167,6167,6167,6168,6168,6169,6169,6170,6170,6170, & - 6171,6171,6171,6171,6172,6172,6172,6172,6173,6173,6174,6174, & - 6174,6175,6175,6175,6176,6176,6176,6177,6177,6177,6177,6178, & - 6178,6178,6178,6178,6179,6179,6179,6179,6179,6180,6180,6180, & - 6181,6181,6181,6182,6182,6183,6183,6183,6183,6184,6184,6184, & - 6185,6185,6185,6185,6185,6186,6186,6186,6187,6187,6187,6187, & - 6188,6188,6188,6188,6189,6189,6189,6189,6190,6190,6190,6190, & - 6190,6191,6191,6191,6192,6192,6192,6193,6193,6193,6193,6194, & - 6194,6194,6194,6195,6195,6196,6196,6197,6197,6198,6198,6198, & - 6199,6199,6199,6200,6200,6200,6201,6201,6201,6202,6202,6202, & - 6202,6202,6203,6203,6203,6204,6204,6204,6204,6205,6205,6205, & - 6205,6206,6206,6206,6207,6207,6207,6207,6208,6208,6208,6209, & - 6209,6209,6209,6210,6210,6211,6211,6212,6212,6212,6213,6213, & - 6213,6213,6214,6214,6214,6214,6215,6215,6216,6216,6217,6217, & - 6217,6218,6218,6218,6218,6219,6219,6219,6219,6219,6220,6220, & - 6220,6221,6221,6221,6221,6222,6222,6222,6222,6222,6223,6223, & - 6223,6223,6224,6224,6224,6224,6225,6225,6225,6226,6226,6226 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_55 = (/ & - 6227,6227,6227,6227,6228,6228,6228,6229,6229,6229,6230,6230, & - 6230,6230,6231,6231,6231,6231,6232,6232,6232,6233,6233,6233, & - 6234,6234,6234,6235,6235,6235,6235,6236,6236,6236,6236,6237, & - 6237,6237,6238,6238,6238,6238,6239,6239,6239,6239,6240,6240, & - 6240,6241,6241,6241,6242,6242,6242,6242,6243,6243,6243,6243, & - 6244,6244,6245,6245,6245,6246,6246,6246,6247,6247,6247,6247, & - 6248,6248,6248,6249,6249,6249,6250,6250,6250,6251,6251,6251, & - 6252,6252,6252,6252,6252,6253,6253,6253,6254,6254,6254,6255, & - 6255,6255,6256,6256,6256,6257,6257,6257,6257,6257,6258,6258, & - 6258,6259,6259,6260,6260,6260,6261,6261,6261,6261,6262,6262, & - 6262,6262,6262,6263,6263,6263,6264,6264,6264,6264,6265,6265, & - 6265,6265,6265,6266,6266,6266,6266,6266,6267,6267,6267,6267, & - 6268,6268,6268,6269,6269,6269,6270,6270,6270,6270,6271,6271, & - 6271,6272,6272,6272,6273,6273,6273,6273,6274,6274,6274,6275, & - 6275,6275,6275,6275,6276,6276,6276,6276,6277,6277,6277,6277, & - 6278,6278,6278,6279,6279,6279,6279,6280,6280,6280,6281,6281, & - 6281,6282,6282,6282,6282,6283,6283,6283,6283,6284,6284,6285, & - 6285,6285,6286,6286,6286,6287,6287,6287,6287,6288,6288,6288, & - 6289,6289,6289,6290,6290,6290,6291,6291,6291,6291,6292,6292, & - 6292,6293,6293,6293,6293,6294,6294,6294,6295,6295,6295,6295, & - 6296,6296,6296,6297,6297,6297,6298,6298,6298,6298,6298,6299, & - 6299,6299,6299,6300,6300,6300,6300,6301,6301,6301,6302,6302, & - 6302,6302,6302,6303,6303,6303,6303,6303,6304,6304,6304,6305, & - 6305,6305,6306,6306,6306,6307,6307,6307,6308,6308,6308,6308, & - 6308,6309,6309,6309,6310,6310,6311,6311,6311,6312,6312,6312, & - 6312,6313,6313,6313,6313,6313,6314,6314,6314,6315,6315,6315, & - 6315,6316,6316,6316,6316,6316,6317,6317,6317,6317,6317,6318, & - 6318,6318,6318,6319,6319,6319,6320,6320,6320,6321,6321,6321, & - 6321,6321,6322,6322,6322,6322,6322,6323,6323,6323,6324,6324, & - 6324,6324,6325,6325,6325,6325,6325,6326,6326,6326,6326,6326 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_56 = (/ & - 6327,6327,6327,6327,6328,6328,6328,6329,6329,6329,6330,6330, & - 6330,6330,6331,6331,6331,6331,6332,6332,6332,6333,6333,6333, & - 6333,6334,6334,6334,6334,6335,6335,6335,6336,6336,6336,6337, & - 6337,6337,6337,6338,6338,6338,6338,6339,6339,6340,6340,6340, & - 6341,6341,6341,6342,6342,6342,6342,6343,6343,6343,6344,6344, & - 6344,6345,6345,6345,6346,6346,6346,6347,6347,6347,6347,6347, & - 6348,6348,6348,6349,6349,6349,6349,6350,6350,6350,6350,6351, & - 6351,6352,6352,6353,6353,6354,6354,6354,6354,6355,6355,6355, & - 6355,6356,6356,6356,6356,6357,6357,6357,6358,6358,6358,6359, & - 6359,6359,6360,6360,6361,6361,6361,6362,6362,6362,6362,6362, & - 6363,6363,6363,6364,6364,6364,6365,6365,6365,6366,6366,6366, & - 6367,6367,6367,6368,6368,6368,6368,6368,6369,6369,6369,6370, & - 6370,6370,6371,6371,6371,6372,6372,6372,6373,6373,6373,6373, & - 6374,6374,6374,6374,6374,6375,6375,6375,6375,6375,6376,6376, & - 6376,6377,6377,6377,6378,6378,6379,6379,6379,6379,6380,6380, & - 6380,6381,6381,6381,6381,6381,6382,6382,6382,6383,6383,6383, & - 6383,6384,6384,6384,6384,6385,6385,6385,6385,6385,6386,6386, & - 6386,6386,6386,6387,6387,6387,6388,6388,6388,6388,6389,6389, & - 6389,6390,6390,6390,6390,6391,6391,6391,6392,6392,6392,6392, & - 6393,6393,6393,6394,6394,6394,6395,6395,6395,6395,6396,6396, & - 6396,6397,6397,6397,6398,6398,6398,6398,6399,6399,6399,6399, & - 6400,6400,6401,6401,6402,6402,6403,6403,6403,6404,6404,6404, & - 6404,6405,6405,6405,6405,6406,6406,6406,6407,6407,6407,6407, & - 6408,6408,6409,6409,6409,6410,6410,6410,6410,6411,6411,6411, & - 6412,6412,6412,6412,6413,6413,6413,6414,6414,6414,6414,6415, & - 6415,6415,6416,6416,6416,6417,6417,6417,6417,6418,6418,6418, & - 6419,6419,6419,6420,6420,6420,6420,6420,6421,6421,6421,6421, & - 6421,6422,6422,6422,6423,6423,6423,6423,6423,6424,6424,6424, & - 6425,6425,6425,6426,6426,6426,6427,6427,6427,6428,6428,6428, & - 6429,6429,6429,6429,6429,6430,6430,6430,6431,6431,6431,6431 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_57 = (/ & - 6432,6432,6432,6432,6433,6433,6433,6434,6434,6434,6434,6435, & - 6435,6435,6436,6436,6436,6436,6437,6437,6438,6438,6439,6439, & - 6439,6440,6440,6440,6440,6441,6441,6441,6441,6442,6442,6443, & - 6443,6444,6444,6444,6445,6445,6445,6445,6446,6446,6446,6446, & - 6447,6447,6448,6448,6449,6449,6450,6450,6450,6451,6451,6451, & - 6452,6452,6452,6453,6453,6453,6453,6454,6454,6454,6454,6454, & - 6455,6455,6455,6455,6455,6456,6456,6456,6457,6457,6457,6458, & - 6458,6459,6459,6459,6459,6460,6460,6460,6461,6461,6461,6462, & - 6462,6462,6462,6463,6463,6463,6463,6464,6464,6464,6464,6464, & - 6465,6465,6465,6465,6465,6466,6466,6466,6467,6467,6467,6467, & - 6468,6468,6468,6468,6469,6469,6470,6470,6471,6471,6472,6472, & - 6472,6472,6473,6473,6473,6474,6474,6474,6474,6475,6475,6475, & - 6475,6475,6475,6476,6476,6476,6477,6477,6477,6477,6477,6477, & - 6478,6478,6479,6479,6479,6479,6480,6480,6481,6481,6481,6481, & - 6482,6482,6483,6483,6483,6483,6483,6484,6484,6484,6485,6485, & - 6485,6485,6486,6486,6486,6486,6487,6487,6488,6488,6489,6489, & - 6490,6490,6490,6490,6491,6491,6491,6492,6492,6492,6492,6493, & - 6493,6493,6493,6493,6493,6494,6494,6494,6495,6495,6495,6495, & - 6495,6495,6496,6496,6497,6497,6497,6497,6498,6498,6499,6499, & - 6500,6500,6500,6501,6501,6501,6501,6501,6502,6502,6502,6503, & - 6503,6503,6504,6504,6504,6504,6505,6505,6505,6505,6506,6506, & - 6507,6507,6508,6508,6509,6509,6510,6510,6511,6511,6511,6512, & - 6512,6512,6512,6513,6513,6513,6514,6514,6514,6515,6515,6515, & - 6515,6516,6516,6516,6516,6517,6517,6518,6518,6519,6519,6520, & - 6520,6520,6521,6521,6521,6521,6522,6522,6522,6522,6523,6523, & - 6524,6524,6525,6525,6526,6526,6526,6527,6527,6527,6528,6528, & - 6528,6528,6528,6529,6529,6529,6530,6530,6530,6530,6530,6531, & - 6531,6531,6532,6532,6532,6533,6533,6534,6534,6534,6534,6535, & - 6535,6536,6536,6536,6536,6537,6537,6537,6538,6538,6538,6539, & - 6539,6539,6539,6540,6540,6540,6540,6541,6541,6542,6542,6543 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_58 = (/ & - 6543,6544,6544,6544,6544,6545,6545,6545,6546,6546,6546,6546, & - 6547,6547,6547,6547,6547,6547,6548,6548,6548,6549,6549,6549, & - 6549,6549,6549,6550,6550,6551,6551,6551,6551,6552,6552,6553, & - 6553,6553,6553,6554,6554,6555,6555,6555,6555,6556,6556,6556, & - 6557,6557,6557,6557,6558,6558,6558,6558,6559,6559,6560,6560, & - 6561,6561,6561,6562,6562,6563,6563,6563,6564,6564,6564,6564, & - 6565,6565,6565,6565,6566,6566,6566,6566,6567,6567,6567,6567, & - 6568,6568,6568,6568,6569,6569,6569,6569,6570,6570,6570,6570, & - 6571,6571,6571,6572,6572,6573,6573,6573,6574,6574,6574,6575, & - 6575,6575,6575,6576,6576,6576,6576,6577,6577,6577,6578,6578, & - 6578,6579,6579,6580,6580,6580,6581,6581,6581,6581,6581,6582, & - 6582,6582,6582,6583,6583,6583,6583,6584,6584,6584,6585,6585, & - 6586,6586,6587,6587,6587,6588,6588,6589,6589,6589,6590,6590, & - 6590,6591,6591,6591,6592,6592,6592,6592,6593,6593,6593,6593, & - 6594,6594,6594,6595,6595,6595,6596,6596,6596,6596,6597,6597, & - 6597,6597,6598,6598,6599,6599,6599,6599,6600,6600,6600,6600, & - 6600,6601,6601,6601,6601,6602,6602,6602,6602,6603,6603,6604, & - 6604,6605,6605,6606,6606,6606,6606,6606,6607,6607,6607,6607, & - 6608,6608,6608,6608,6609,6609,6609,6610,6610,6610,6610,6611, & - 6611,6611,6611,6612,6612,6612,6612,6613,6613,6613,6613,6614, & - 6614,6614,6615,6615,6615,6616,6616,6616,6617,6617,6617,6617, & - 6618,6618,6618,6618,6619,6619,6619,6620,6620,6621,6621,6621, & - 6622,6622,6622,6623,6623,6623,6623,6624,6624,6624,6624,6625, & - 6625,6625,6626,6626,6626,6627,6627,6627,6627,6628,6628,6628, & - 6629,6629,6629,6630,6630,6631,6631,6632,6632,6632,6633,6633, & - 6634,6634,6634,6635,6635,6635,6636,6636,6636,6637,6637,6637, & - 6637,6638,6638,6638,6638,6639,6639,6640,6640,6640,6640,6641, & - 6641,6641,6641,6641,6642,6642,6642,6642,6643,6643,6643,6643, & - 6644,6644,6645,6645,6646,6646,6646,6647,6647,6647,6647,6647, & - 6648,6648,6648,6648,6649,6649,6649,6649,6649,6650,6650,6650 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_59 = (/ & - 6651,6651,6651,6651,6652,6652,6652,6652,6653,6653,6653,6653, & - 6654,6654,6654,6654,6655,6655,6655,6656,6656,6656,6657,6657, & - 6657,6658,6658,6658,6659,6659,6660,6660,6661,6661,6661,6662, & - 6662,6662,6663,6663,6663,6663,6664,6664,6664,6664,6665,6665, & - 6665,6666,6666,6666,6666,6667,6667,6667,6667,6668,6668,6668, & - 6669,6669,6669,6670,6670,6670,6671,6671,6671,6671,6672,6672, & - 6672,6672,6673,6673,6674,6674,6675,6675,6675,6675,6676,6676, & - 6677,6677,6677,6678,6678,6678,6679,6679,6679,6679,6680,6680, & - 6680,6680,6681,6681,6682,6682,6683,6683,6683,6684,6684,6684, & - 6685,6685,6685,6685,6685,6686,6686,6686,6687,6687,6687,6687, & - 6687,6688,6688,6688,6689,6689,6689,6690,6690,6690,6691,6691, & - 6691,6691,6692,6692,6692,6693,6693,6693,6694,6694,6694,6694, & - 6695,6695,6695,6695,6696,6696,6696,6696,6697,6697,6697,6698, & - 6698,6699,6699,6699,6700,6700,6700,6701,6701,6701,6701,6701, & - 6702,6702,6702,6703,6703,6703,6703,6704,6704,6704,6705,6705, & - 6705,6706,6706,6706,6706,6706,6707,6707,6707,6708,6708,6709, & - 6709,6709,6710,6710,6710,6710,6711,6711,6711,6712,6712,6712, & - 6713,6713,6713,6714,6714,6714,6715,6715,6715,6715,6716,6716, & - 6716,6717,6717,6718,6718,6718,6719,6719,6719,6719,6720,6720, & - 6720,6720,6721,6721,6722,6722,6722,6723,6723,6723,6723,6724, & - 6724,6725,6725,6725,6726,6726,6726,6726,6727,6727,6727,6728, & - 6728,6728,6729,6729,6730,6730,6730,6731,6731,6731,6732,6732, & - 6732,6732,6733,6733,6733,6733,6734,6734,6735,6735,6736,6736, & - 6737,6737,6737,6738,6738,6738,6739,6739,6739,6739,6740,6740, & - 6740,6740,6741,6741,6742,6742,6743,6743,6744,6744,6744,6745, & - 6745,6745,6745,6746,6746,6746,6746,6747,6747,6748,6748,6749, & - 6749,6750,6750,6750,6751,6751,6751,6752,6752,6752,6753,6753, & - 6753,6753,6754,6754,6754,6754,6755,6755,6756,6756,6757,6757, & - 6758,6758,6758,6759,6759,6759,6760,6760,6760,6761,6761,6761, & - 6762,6762,6762,6763,6763,6763,6763,6764,6764,6764,6764,6765 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_60 = (/ & - 6765,6766,6766,6767,6767,6768,6768,6768,6769,6769,6769,6770, & - 6770,6770,6770,6771,6771,6771,6772,6772,6772,6772,6773,6773, & - 6774,6774,6775,6775,6776,6776,6776,6777,6777,6777,6778,6778, & - 6778,6778,6779,6779,6779,6780,6780,6780,6780,6781,6781,6782, & - 6782,6783,6783,6784,6784,6784,6784,6785,6785,6785,6786,6786, & - 6786,6786,6787,6787,6787,6787,6788,6788,6788,6789,6789,6789, & - 6789,6790,6790,6791,6791,6792,6792,6792,6793,6793,6793,6793, & - 6794,6794,6794,6794,6795,6795,6796,6796,6797,6797,6798,6798, & - 6798,6799,6799,6799,6799,6800,6800,6800,6800,6801,6801,6802, & - 6802,6803,6803,6804,6804,6804,6805,6805,6805,6805,6806,6806, & - 6806,6806,6807,6807,6808,6808,6809,6809,6810,6810,6810,6811, & - 6811,6811,6811,6812,6812,6812,6812,6813,6813,6814,6814,6814, & - 6815,6815,6815,6815,6816,6816,6816,6816,6817,6817,6818,6818, & - 6819,6819,6820,6820,6820,6821,6821,6821,6821,6822,6822,6822, & - 6822,6823,6823,6824,6824,6825,6825,6826,6826,6826,6826,6827, & - 6827,6827,6828,6828,6828,6828,6829,6829,6829,6829,6830,6830, & - 6830,6831,6831,6831,6831,6832,6832,6833,6833,6834,6834,6834, & - 6835,6835,6835,6835,6836,6836,6836,6836,6837,6837,6838,6838, & - 6838,6839,6839,6839,6839,6840,6840,6840,6840,6841,6841,6842, & - 6842,6842,6843,6843,6843,6843,6844,6844,6844,6844,6845,6845, & - 6846,6846,6847,6847,6848,6848,6848,6849,6849,6849,6850,6850, & - 6850,6850,6851,6851,6851,6851,6852,6852,6853,6853,6854,6854, & - 6855,6855,6855,6856,6856,6856,6857,6857,6857,6857,6858,6858, & - 6858,6858,6859,6859,6860,6860,6861,6861,6862,6862,6862,6863, & - 6863,6863,6863,6864,6864,6864,6864,6865,6865,6866,6866,6866, & - 6867,6867,6867,6867,6868,6868,6868,6868,6869,6869,6870,6870, & - 6871,6871,6872,6872,6872,6873,6873,6873,6873,6874,6874,6874, & - 6874,6875,6875,6876,6876,6876,6877,6877,6877,6877,6878,6878, & - 6878,6878,6879,6879,6880,6880,6881,6881,6882,6882,6882,6883, & - 6883,6883,6883,6884,6884,6884,6884,6885,6885,6885,6886,6886 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_61 = (/ & - 6886,6886,6887,6887,6888,6888,6888,6889,6889,6889,6889,6890, & - 6890,6890,6890,6891,6891,6892,6892,6892,6893,6893,6893,6893, & - 6894,6894,6894,6894,6895,6895,6896,6896,6896,6897,6897,6897, & - 6897,6898,6898,6898,6898,6899,6899,6900,6900,6901,6901,6902, & - 6902,6902,6902,6903,6903,6903,6904,6904,6904,6904,6905,6905, & - 6905,6905,6906,6906,6906,6907,6907,6907,6907,6908,6908,6909, & - 6909,6910,6910,6910,6911,6911,6911,6911,6912,6912,6912,6912, & - 6913,6913,6914,6914,6915,6915,6916,6916,6916,6917,6917,6917, & - 6917,6918,6918,6918,6918,6919,6919,6920,6920,6921,6921,6922, & - 6922,6922,6922,6923,6923,6923,6923,6924,6924,6924,6925,6925, & - 6925,6926,6926,6926,6926,6927,6927,6927,6928,6928,6928,6928, & - 6929,6929,6929,6929,6930,6930,6931,6931,6931,6931,6932,6932, & - 6932,6933,6933,6933,6933,6934,6934,6934,6934,6935,6935,6935, & - 6936,6936,6936,6936,6937,6937,6938,6938,6939,6939,6939,6940, & - 6940,6940,6941,6941,6942,6942,6942,6943,6943,6943,6944,6944, & - 6945,6945,6945,6946,6946,6946,6946,6947,6947,6947,6948,6948, & - 6949,6949,6949,6949,6950,6950,6950,6950,6951,6951,6951,6951, & - 6952,6952,6952,6952,6953,6953,6953,6953,6954,6954,6954,6955, & - 6955,6955,6956,6956,6956,6957,6957,6958,6958,6958,6959,6959, & - 6959,6959,6960,6960,6960,6961,6961,6962,6962,6962,6962,6963, & - 6963,6963,6964,6964,6964,6964,6965,6965,6965,6966,6966,6966, & - 6966,6967,6967,6967,6968,6968,6968,6969,6969,6969,6970,6970, & - 6970,6970,6971,6971,6971,6971,6972,6972,6973,6973,6974,6974, & - 6975,6975,6975,6976,6976,6976,6976,6976,6977,6977,6977,6977, & - 6978,6978,6978,6979,6979,6979,6979,6980,6980,6980,6981,6981, & - 6982,6982,6982,6983,6983,6983,6983,6984,6984,6984,6985,6985, & - 6986,6986,6986,6987,6987,6987,6988,6988,6988,6988,6989,6989, & - 6990,6990,6990,6991,6991,6991,6991,6992,6992,6992,6993,6993, & - 6994,6994,6994,6995,6995,6995,6995,6996,6996,6996,6997,6997, & - 6997,6998,6998,6998,6998,6998,6999,6999,6999,7000,7000,7001 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_62 = (/ & - 7001,7001,7002,7002,7003,7003,7003,7004,7004,7005,7005,7005, & - 7006,7006,7006,7006,7007,7007,7007,7008,7008,7008,7009,7009, & - 7009,7009,7010,7010,7010,7010,7011,7011,7012,7012,7013,7013, & - 7014,7014,7014,7015,7015,7015,7016,7016,7016,7016,7016,7017, & - 7017,7017,7018,7018,7018,7018,7018,7019,7019,7019,7020,7020, & - 7020,7020,7021,7021,7021,7022,7022,7022,7022,7023,7023,7023, & - 7023,7024,7024,7024,7025,7025,7025,7026,7026,7026,7026,7027, & - 7027,7028,7028,7028,7028,7029,7029,7029,7030,7030,7030,7031, & - 7031,7031,7031,7032,7032,7032,7033,7033,7033,7033,7034,7034, & - 7034,7034,7035,7035,7036,7036,7036,7036,7037,7037,7037,7038, & - 7038,7038,7039,7039,7039,7039,7040,7040,7040,7040,7041,7041, & - 7041,7041,7042,7042,7042,7042,7043,7043,7044,7044,7044,7045, & - 7045,7045,7045,7046,7046,7046,7047,7047,7048,7048,7048,7048, & - 7049,7049,7049,7050,7050,7050,7051,7051,7051,7051,7052,7052, & - 7052,7053,7053,7053,7054,7054,7054,7054,7055,7055,7055,7055, & - 7056,7056,7056,7056,7057,7057,7057,7058,7058,7058,7058,7059, & - 7059,7060,7060,7061,7061,7061,7062,7062,7062,7063,7063,7063, & - 7064,7064,7064,7065,7065,7065,7066,7066,7066,7066,7067,7067, & - 7067,7068,7068,7068,7068,7069,7069,7069,7069,7070,7070,7070, & - 7071,7071,7071,7071,7072,7072,7073,7073,7074,7074,7074,7075, & - 7075,7075,7075,7076,7076,7076,7076,7077,7077,7078,7078,7079, & - 7079,7080,7080,7080,7081,7081,7081,7081,7082,7082,7082,7083, & - 7083,7083,7084,7084,7084,7085,7085,7085,7086,7086,7086,7087, & - 7087,7087,7087,7088,7088,7088,7089,7089,7089,7090,7090,7090, & - 7090,7091,7091,7091,7091,7092,7092,7093,7093,7094,7094,7094, & - 7095,7095,7095,7096,7096,7096,7096,7097,7097,7097,7097,7098, & - 7098,7098,7098,7099,7099,7099,7100,7100,7100,7101,7101,7101, & - 7102,7102,7102,7103,7103,7103,7104,7104,7105,7105,7106,7106, & - 7106,7107,7107,7108,7108,7108,7109,7109,7109,7110,7110,7110, & - 7111,7111,7111,7111,7112,7112,7112,7112,7113,7113,7114,7114 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_63 = (/ & - 7115,7115,7116,7116,7116,7117,7117,7117,7117,7118,7118,7118, & - 7119,7119,7119,7119,7120,7120,7120,7121,7121,7121,7121,7122, & - 7122,7122,7122,7123,7123,7124,7124,7124,7125,7125,7125,7125, & - 7126,7126,7126,7127,7127,7127,7127,7128,7128,7128,7128,7129, & - 7129,7129,7129,7130,7130,7130,7130,7131,7131,7132,7132,7132, & - 7133,7133,7133,7134,7134,7134,7135,7135,7135,7136,7136,7136, & - 7136,7137,7137,7137,7137,7138,7138,7139,7139,7140,7140,7141, & - 7141,7141,7142,7142,7142,7142,7143,7143,7143,7144,7144,7145, & - 7145,7145,7145,7146,7146,7146,7147,7147,7147,7147,7148,7148, & - 7148,7148,7149,7149,7149,7150,7150,7150,7151,7151,7151,7151, & - 7152,7152,7152,7152,7153,7153,7154,7154,7154,7155,7155,7155, & - 7155,7155,7156,7156,7156,7156,7157,7157,7157,7157,7158,7158, & - 7158,7158,7159,7159,7159,7159,7160,7160,7160,7160,7161,7161, & - 7162,7162,7162,7163,7163,7163,7163,7164,7164,7164,7165,7165, & - 7166,7166,7166,7167,7167,7167,7168,7168,7168,7168,7169,7169, & - 7169,7170,7170,7170,7171,7171,7171,7172,7172,7172,7173,7173, & - 7173,7174,7174,7174,7175,7175,7175,7176,7176,7176,7177,7177, & - 7177,7178,7178,7178,7179,7179,7179,7180,7180,7180,7180,7180, & - 7181,7181,7181,7182,7182,7182,7183,7183,7183,7184,7184,7184, & - 7185,7185,7185,7185,7185,7186,7186,7186,7187,7187,7188,7188, & - 7188,7189,7189,7189,7189,7190,7190,7190,7190,7191,7191,7191, & - 7191,7192,7192,7192,7192,7193,7193,7193,7193,7194,7194,7194, & - 7195,7195,7195,7196,7196,7196,7197,7197,7197,7197,7197,7198, & - 7198,7198,7199,7199,7199,7200,7200,7201,7201,7201,7201,7202, & - 7202,7202,7203,7203,7203,7203,7204,7204,7204,7204,7205,7205, & - 7205,7205,7206,7206,7206,7207,7207,7207,7208,7208,7208,7209, & - 7209,7209,7210,7210,7210,7210,7210,7211,7211,7211,7212,7212, & - 7212,7212,7213,7213,7213,7213,7213,7214,7214,7214,7215,7215, & - 7215,7216,7216,7217,7217,7217,7218,7218,7218,7218,7219,7219, & - 7219,7219,7220,7220,7220,7220,7221,7221,7221,7221,7222,7222 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_64 = (/ & - 7222,7223,7223,7223,7223,7224,7224,7224,7225,7225,7225,7226, & - 7226,7226,7227,7227,7227,7228,7228,7228,7228,7228,7229,7229, & - 7229,7230,7230,7230,7230,7231,7231,7231,7231,7232,7232,7232, & - 7233,7233,7233,7233,7234,7234,7235,7235,7235,7236,7236,7236, & - 7236,7237,7237,7237,7237,7238,7238,7239,7239,7240,7240,7241, & - 7241,7241,7242,7242,7242,7242,7243,7243,7243,7243,7244,7244, & - 7245,7245,7245,7246,7246,7246,7246,7247,7247,7247,7247,7248, & - 7248,7249,7249,7249,7250,7250,7250,7251,7251,7251,7251,7252, & - 7252,7252,7253,7253,7253,7253,7254,7254,7254,7254,7254,7255, & - 7255,7255,7256,7256,7256,7257,7257,7257,7257,7258,7258,7258, & - 7258,7258,7259,7259,7259,7260,7260,7260,7261,7261,7261,7262, & - 7262,7262,7262,7262,7263,7263,7263,7264,7264,7264,7265,7265, & - 7265,7266,7266,7266,7267,7267,7267,7268,7268,7268,7268,7268, & - 7269,7269,7269,7270,7270,7270,7271,7271,7271,7272,7272,7272, & - 7273,7273,7273,7273,7273,7274,7274,7274,7275,7275,7276,7276, & - 7276,7276,7276,7277,7277,7277,7278,7278,7278,7279,7279,7279, & - 7280,7280,7280,7281,7281,7281,7282,7282,7282,7283,7283,7283, & - 7283,7283,7284,7284,7284,7285,7285,7285,7286,7286,7287,7287, & - 7287,7288,7288,7288,7288,7289,7289,7289,7290,7290,7290,7290, & - 7291,7291,7291,7291,7292,7292,7292,7293,7293,7293,7293,7294, & - 7294,7294,7295,7295,7295,7296,7296,7296,7297,7297,7298,7298, & - 7298,7298,7298,7299,7299,7299,7300,7300,7300,7301,7301,7301, & - 7301,7302,7302,7302,7302,7302,7303,7303,7303,7304,7304,7304, & - 7304,7305,7305,7305,7306,7306,7306,7306,7307,7307,7307,7308, & - 7308,7308,7308,7308,7309,7309,7309,7309,7310,7310,7310,7311, & - 7311,7311,7311,7312,7312,7313,7313,7313,7314,7314,7314,7314, & - 7315,7315,7315,7315,7316,7316,7316,7316,7317,7317,7317,7318, & - 7318,7318,7318,7319,7319,7319,7319,7320,7320,7320,7321,7321, & - 7321,7321,7322,7322,7322,7322,7323,7323,7323,7323,7324,7324, & - 7324,7325,7325,7325,7325,7326,7326,7326,7326,7327,7327,7327 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_65 = (/ & - 7328,7328,7328,7329,7329,7329,7329,7330,7330,7330,7330,7330, & - 7331,7331,7331,7332,7332,7332,7332,7333,7333,7333,7333,7334, & - 7334,7334,7335,7335,7335,7336,7336,7336,7336,7336,7337,7337, & - 7337,7338,7338,7339,7339,7339,7340,7340,7340,7340,7341,7341, & - 7341,7342,7342,7342,7343,7343,7343,7344,7344,7344,7344,7345, & - 7345,7345,7345,7346,7346,7346,7347,7347,7348,7348,7348,7349, & - 7349,7349,7350,7350,7350,7350,7351,7351,7351,7352,7352,7352, & - 7352,7353,7353,7353,7353,7354,7354,7354,7355,7355,7355,7356, & - 7356,7356,7357,7357,7358,7358,7358,7359,7359,7359,7359,7360, & - 7360,7360,7361,7361,7361,7361,7362,7362,7362,7362,7363,7363, & - 7363,7363,7364,7364,7364,7364,7365,7365,7365,7366,7366,7366, & - 7367,7367,7367,7368,7368,7368,7369,7369,7369,7369,7369,7369, & - 7370,7370,7370,7371,7371,7372,7372,7372,7373,7373,7373,7373, & - 7374,7374,7374,7375,7375,7375,7375,7376,7376,7376,7377,7377, & - 7377,7378,7378,7378,7379,7379,7379,7379,7380,7380,7380,7381, & - 7381,7381,7382,7382,7382,7382,7382,7383,7383,7383,7384,7384, & - 7384,7385,7385,7386,7386,7386,7387,7387,7387,7387,7388,7388, & - 7388,7389,7389,7389,7389,7390,7390,7390,7391,7391,7392,7392, & - 7392,7393,7393,7393,7394,7394,7394,7394,7395,7395,7395,7396, & - 7396,7396,7396,7397,7397,7397,7397,7398,7398,7398,7398,7399, & - 7399,7399,7400,7400,7400,7401,7401,7402,7402,7402,7403,7403, & - 7403,7403,7404,7404,7404,7405,7405,7405,7406,7406,7406,7407, & - 7407,7407,7407,7408,7408,7408,7409,7409,7409,7410,7410,7410, & - 7411,7411,7411,7412,7412,7412,7412,7412,7413,7413,7413,7414, & - 7414,7415,7415,7415,7416,7416,7416,7417,7417,7417,7417,7418, & - 7418,7418,7419,7419,7419,7419,7420,7420,7420,7420,7421,7421, & - 7421,7421,7422,7422,7422,7423,7423,7423,7423,7424,7424,7424, & - 7425,7425,7425,7426,7426,7426,7427,7427,7427,7427,7428,7428, & - 7428,7429,7429,7429,7430,7430,7431,7431,7431,7432,7432,7432, & - 7432,7433,7433,7434,7434,7434,7434,7435,7435,7435,7435,7436 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_66 = (/ & - 7436,7436,7437,7437,7437,7438,7438,7438,7438,7439,7439,7439, & - 7440,7440,7441,7441,7441,7442,7442,7442,7443,7443,7443,7443, & - 7444,7444,7444,7445,7445,7445,7445,7446,7446,7446,7446,7447, & - 7447,7447,7448,7448,7448,7449,7449,7449,7449,7450,7450,7450, & - 7451,7451,7452,7452,7452,7453,7453,7453,7453,7454,7454,7454, & - 7455,7455,7455,7456,7456,7456,7457,7457,7457,7457,7458,7458, & - 7458,7459,7459,7459,7460,7460,7460,7461,7461,7461,7462,7462, & - 7462,7462,7462,7463,7463,7463,7464,7464,7465,7465,7465,7466, & - 7466,7466,7467,7467,7467,7467,7468,7468,7468,7469,7469,7469, & - 7469,7470,7470,7470,7470,7471,7471,7471,7472,7472,7472,7473, & - 7473,7473,7474,7474,7475,7475,7475,7476,7476,7476,7476,7477, & - 7477,7478,7478,7478,7479,7479,7479,7480,7480,7480,7481,7481, & - 7481,7481,7482,7482,7482,7483,7483,7483,7484,7484,7484,7485, & - 7485,7485,7485,7486,7486,7486,7487,7487,7487,7488,7488,7489, & - 7489,7489,7490,7490,7490,7491,7491,7491,7491,7492,7492,7492, & - 7493,7493,7493,7493,7494,7494,7494,7494,7495,7495,7495,7496, & - 7496,7496,7496,7497,7497,7497,7497,7498,7498,7498,7499,7499, & - 7499,7500,7500,7500,7501,7501,7501,7501,7501,7502,7502,7502, & - 7503,7503,7504,7504,7504,7505,7505,7505,7506,7506,7506,7506, & - 7507,7507,7507,7508,7508,7508,7508,7509,7509,7509,7509,7510, & - 7510,7510,7511,7511,7511,7512,7512,7512,7513,7513,7513,7514, & - 7514,7514,7515,7515,7515,7515,7515,7515,7516,7516,7516,7517, & - 7517,7517,7518,7518,7519,7519,7519,7520,7520,7520,7520,7521, & - 7521,7521,7522,7522,7522,7522,7523,7523,7523,7523,7524,7524, & - 7524,7524,7525,7525,7525,7526,7526,7526,7527,7527,7527,7528, & - 7528,7528,7529,7529,7529,7530,7530,7530,7530,7530,7531,7531, & - 7531,7532,7532,7533,7533,7533,7534,7534,7534,7534,7535,7535, & - 7535,7536,7536,7536,7536,7537,7537,7537,7538,7538,7538,7538, & - 7539,7539,7539,7540,7540,7540,7541,7541,7542,7542,7542,7543, & - 7543,7543,7544,7544,7544,7545,7545,7545,7545,7545,7546,7546 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_67 = (/ & - 7546,7547,7547,7547,7547,7548,7548,7548,7549,7549,7549,7550, & - 7550,7551,7551,7551,7552,7552,7553,7553,7553,7554,7554,7554, & - 7554,7555,7555,7555,7556,7556,7556,7557,7557,7557,7558,7558, & - 7558,7559,7559,7559,7560,7560,7560,7561,7561,7562,7562,7562, & - 7563,7563,7563,7563,7564,7564,7564,7565,7565,7565,7565,7566, & - 7566,7566,7566,7567,7567,7567,7567,7568,7568,7568,7569,7569, & - 7569,7570,7570,7570,7571,7571,7572,7572,7573,7573,7573,7574, & - 7574,7574,7575,7575,7575,7575,7576,7576,7576,7577,7577,7577, & - 7577,7578,7578,7578,7578,7579,7579,7579,7579,7580,7580,7580, & - 7581,7581,7581,7582,7582,7583,7583,7583,7584,7584,7584,7584, & - 7585,7585,7585,7586,7586,7586,7586,7587,7587,7587,7588,7588, & - 7588,7589,7589,7589,7589,7590,7590,7590,7591,7591,7591,7592, & - 7592,7593,7593,7593,7594,7594,7595,7595,7595,7596,7596,7596, & - 7596,7597,7597,7597,7598,7598,7598,7598,7599,7599,7599,7600, & - 7600,7600,7601,7601,7601,7601,7602,7602,7602,7603,7603,7603, & - 7604,7604,7605,7605,7605,7606,7606,7607,7607,7607,7608,7608, & - 7608,7608,7609,7609,7609,7610,7610,7610,7610,7611,7611,7611, & - 7612,7612,7612,7613,7613,7613,7613,7614,7614,7614,7615,7615, & - 7615,7616,7616,7617,7617,7617,7618,7618,7619,7619,7619,7620, & - 7620,7620,7620,7621,7621,7621,7622,7622,7622,7622,7623,7623, & - 7623,7624,7624,7624,7625,7625,7625,7625,7626,7626,7626,7627, & - 7627,7627,7628,7628,7629,7629,7629,7630,7630,7631,7631,7631, & - 7632,7632,7632,7632,7633,7633,7633,7634,7634,7634,7634,7635, & - 7635,7635,7636,7636,7636,7637,7637,7637,7637,7638,7638,7638, & - 7639,7639,7639,7640,7640,7641,7641,7642,7642,7642,7643,7643, & - 7643,7643,7644,7644,7644,7645,7645,7646,7646,7646,7646,7647, & - 7647,7647,7647,7648,7648,7648,7649,7649,7649,7649,7650,7650, & - 7650,7650,7650,7651,7651,7651,7652,7652,7652,7652,7653,7653, & - 7653,7654,7654,7654,7654,7655,7655,7655,7655,7655,7656,7656, & - 7656,7657,7657,7657,7658,7658,7658,7659,7659,7659,7660,7660 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_68 = (/ & - 7660,7660,7661,7661,7661,7662,7662,7662,7662,7663,7663,7663, & - 7664,7664,7664,7665,7665,7665,7665,7666,7666,7666,7666,7666, & - 7667,7667,7667,7668,7668,7668,7668,7669,7669,7669,7670,7670, & - 7670,7670,7671,7671,7671,7671,7671,7672,7672,7672,7673,7673, & - 7673,7674,7674,7674,7675,7675,7675,7676,7676,7676,7676,7677, & - 7677,7677,7678,7678,7678,7679,7679,7679,7679,7680,7680,7680, & - 7681,7681,7681,7681,7682,7682,7682,7683,7683,7683,7683,7684, & - 7684,7684,7684,7684,7685,7685,7685,7686,7686,7686,7687,7687, & - 7687,7688,7688,7688,7689,7689,7689,7690,7690,7690,7691,7691, & - 7691,7691,7692,7692,7692,7692,7692,7693,7693,7693,7694,7694, & - 7694,7695,7695,7695,7696,7696,7696,7696,7697,7697,7697,7698, & - 7698,7698,7699,7699,7699,7700,7700,7700,7700,7701,7701,7701, & - 7701,7702,7702,7702,7703,7703,7703,7703,7704,7704,7704,7704, & - 7704,7705,7705,7705,7706,7706,7706,7707,7707,7707,7708,7708, & - 7708,7708,7709,7709,7709,7710,7710,7710,7710,7711,7711,7711, & - 7711,7711,7712,7712,7712,7713,7713,7713,7714,7714,7714,7714, & - 7715,7715,7715,7715,7715,7716,7716,7716,7717,7717,7718,7718, & - 7718,7719,7719,7719,7720,7720,7720,7720,7721,7721,7721,7722, & - 7722,7722,7722,7723,7723,7723,7724,7724,7724,7724,7725,7725, & - 7725,7725,7725,7726,7726,7726,7727,7727,7727,7728,7728,7728, & - 7729,7729,7729,7730,7730,7730,7730,7730,7731,7731,7731,7732, & - 7732,7732,7732,7733,7733,7733,7733,7734,7734,7734,7735,7735, & - 7736,7736,7736,7737,7737,7737,7738,7738,7738,7738,7739,7739, & - 7739,7740,7740,7740,7741,7741,7741,7741,7742,7742,7742,7742, & - 7743,7743,7743,7744,7744,7744,7745,7745,7745,7745,7745,7746, & - 7746,7747,7747,7747,7748,7748,7748,7749,7749,7749,7749,7750, & - 7750,7750,7750,7751,7751,7751,7751,7752,7752,7752,7753,7753, & - 7754,7754,7754,7755,7755,7755,7756,7756,7756,7756,7757,7757, & - 7757,7758,7758,7758,7758,7759,7759,7759,7759,7760,7760,7760, & - 7760,7761,7761,7761,7761,7762,7762,7762,7763,7763,7763,7763 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_69 = (/ & - 7764,7764,7764,7764,7765,7765,7766,7766,7767,7767,7767,7767, & - 7768,7768,7768,7769,7769,7769,7769,7770,7770,7770,7770,7771, & - 7771,7772,7772,7773,7773,7774,7774,7774,7775,7775,7775,7775, & - 7776,7776,7776,7777,7777,7777,7777,7778,7778,7778,7779,7779, & - 7779,7779,7780,7780,7780,7781,7781,7781,7781,7781,7782,7782, & - 7782,7783,7783,7783,7784,7784,7784,7785,7785,7785,7786,7786, & - 7786,7787,7787,7787,7787,7787,7788,7788,7788,7789,7789,7790, & - 7790,7790,7791,7791,7791,7791,7791,7792,7792,7792,7792,7793, & - 7793,7793,7793,7794,7794,7794,7795,7795,7796,7796,7796,7797, & - 7797,7797,7797,7797,7798,7798,7798,7799,7799,7799,7800,7800, & - 7800,7800,7801,7801,7801,7801,7802,7802,7802,7802,7803,7803, & - 7803,7803,7804,7804,7804,7805,7805,7805,7806,7806,7806,7807, & - 7807,7807,7808,7808,7808,7809,7809,7809,7809,7810,7810,7810, & - 7810,7811,7811,7812,7812,7812,7813,7813,7813,7814,7814,7814, & - 7815,7815,7815,7815,7815,7816,7816,7816,7817,7817,7817,7818, & - 7818,7818,7819,7819,7819,7820,7820,7820,7821,7821,7821,7822, & - 7822,7822,7823,7823,7823,7824,7824,7824,7825,7825,7825,7825, & - 7826,7826,7826,7826,7827,7827,7828,7828,7828,7829,7829,7829, & - 7829,7830,7830,7830,7830,7831,7831,7831,7831,7832,7832,7832, & - 7833,7833,7833,7833,7834,7834,7834,7835,7835,7835,7835,7836, & - 7836,7837,7837,7838,7838,7839,7839,7839,7839,7840,7840,7840, & - 7841,7841,7841,7841,7842,7842,7842,7842,7843,7843,7844,7844, & - 7845,7845,7845,7846,7846,7846,7846,7847,7847,7847,7847,7848, & - 7848,7849,7849,7850,7850,7851,7851,7851,7852,7852,7852,7852, & - 7853,7853,7853,7853,7854,7854,7855,7855,7855,7855,7856,7856, & - 7857,7857,7857,7858,7858,7858,7858,7859,7859,7859,7859,7860, & - 7860,7861,7861,7862,7862,7862,7863,7863,7863,7863,7864,7864, & - 7864,7865,7865,7865,7866,7866,7866,7866,7866,7867,7867,7867, & - 7868,7868,7868,7869,7869,7869,7870,7870,7870,7871,7871,7871, & - 7872,7872,7872,7873,7873,7873,7873,7873,7874,7874,7874,7875 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_70 = (/ & - 7875,7875,7875,7876,7876,7876,7877,7877,7877,7877,7878,7878, & - 7878,7878,7879,7879,7879,7880,7880,7880,7880,7881,7881,7882, & - 7882,7883,7883,7883,7884,7884,7884,7885,7885,7886,7886,7887, & - 7887,7887,7888,7888,7888,7888,7889,7889,7889,7889,7890,7890, & - 7891,7891,7892,7892,7892,7893,7893,7893,7893,7894,7894,7894, & - 7894,7895,7895,7896,7896,7896,7897,7897,7897,7897,7898,7898, & - 7898,7898,7899,7899,7900,7900,7901,7901,7902,7902,7902,7903, & - 7903,7903,7903,7904,7904,7904,7904,7905,7905,7906,7906,7907, & - 7907,7907,7908,7908,7908,7909,7909,7909,7910,7910,7910,7911, & - 7911,7911,7911,7912,7912,7912,7913,7913,7913,7914,7914,7914, & - 7914,7914,7915,7915,7915,7916,7916,7916,7916,7917,7917,7917, & - 7917,7918,7918,7918,7919,7919,7919,7920,7920,7920,7920,7921, & - 7921,7921,7921,7922,7922,7922,7923,7923,7923,7924,7924,7924, & - 7925,7925,7925,7926,7926,7926,7927,7927,7927,7928,7928,7928, & - 7929,7929,7929,7930,7930,7930,7931,7931,7931,7932,7932,7932, & - 7933,7933,7933,7933,7934,7934,7934,7934,7935,7935,7936,7936, & - 7936,7937,7937,7937,7938,7938,7938,7939,7939,7939,7939,7939, & - 7940,7940,7940,7941,7941,7941,7942,7942,7942,7943,7943,7943, & - 7944,7944,7944,7945,7945,7945,7945,7946,7946,7946,7946,7947, & - 7947,7948,7948,7949,7949,7949,7950,7950,7950,7950,7951,7951, & - 7951,7951,7952,7952,7953,7953,7953,7954,7954,7954,7954,7955, & - 7955,7955,7955,7956,7956,7957,7957,7958,7958,7959,7959,7959, & - 7960,7960,7960,7960,7961,7961,7961,7961,7962,7962,7963,7963, & - 7964,7964,7964,7965,7965,7965,7965,7966,7966,7966,7966,7967, & - 7967,7968,7968,7968,7969,7969,7969,7969,7970,7970,7970,7970, & - 7971,7971,7972,7972,7972,7973,7973,7973,7973,7974,7974,7974, & - 7974,7975,7975,7976,7976,7977,7977,7977,7977,7978,7978,7978, & - 7979,7979,7979,7980,7980,7980,7981,7981,7981,7981,7981,7982, & - 7982,7982,7982,7982,7983,7983,7983,7984,7984,7984,7985,7985, & - 7985,7986,7986,7986,7987,7987,7987,7988,7988,7988,7988,7988 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_71 = (/ & - 7989,7989,7989,7990,7990,7990,7991,7991,7991,7992,7992,7992, & - 7992,7992,7993,7993,7993,7993,7994,7994,7994,7995,7995,7995, & - 7996,7996,7996,7997,7997,7997,7998,7998,7998,7999,7999,7999, & - 8000,8000,8000,8001,8001,8001,8002,8002,8002,8003,8003,8003, & - 8003,8004,8004,8004,8004,8005,8005,8006,8006,8006,8006,8006, & - 8007,8007,8007,8007,8007,8008,8008,8008,8009,8009,8009,8010, & - 8010,8010,8011,8011,8011,8011,8011,8012,8012,8012,8013,8013, & - 8013,8014,8014,8014,8015,8015,8015,8016,8016,8016,8017,8017, & - 8017,8017,8018,8018,8018,8018,8019,8019,8020,8020,8021,8021, & - 8022,8022,8022,8023,8023,8023,8024,8024,8024,8025,8025,8025, & - 8026,8026,8026,8027,8027,8027,8028,8028,8028,8029,8029,8029, & - 8030,8030,8030,8031,8031,8031,8031,8032,8032,8032,8032,8033, & - 8033,8034,8034,8034,8035,8035,8035,8036,8036,8036,8037,8037, & - 8037,8037,8037,8038,8038,8038,8039,8039,8039,8040,8040,8040, & - 8041,8041,8041,8042,8042,8042,8043,8043,8043,8044,8044,8044, & - 8044,8044,8045,8045,8045,8046,8046,8046,8047,8047,8047,8048, & - 8048,8048,8049,8049,8049,8050,8050,8050,8050,8051,8051,8051, & - 8051,8052,8052,8053,8053,8053,8053,8054,8054,8054,8054,8055, & - 8055,8055,8056,8056,8056,8056,8057,8057,8057,8057,8058,8058, & - 8059,8059,8060,8060,8061,8061,8061,8062,8062,8062,8062,8063, & - 8063,8063,8063,8064,8064,8065,8065,8065,8066,8066,8066,8066, & - 8067,8067,8067,8067,8068,8068,8069,8069,8070,8070,8071,8071, & - 8071,8072,8072,8072,8072,8073,8073,8073,8073,8074,8074,8075, & - 8075,8076,8076,8077,8077,8077,8077,8078,8078,8078,8079,8079, & - 8079,8080,8080,8080,8081,8081,8081,8081,8081,8082,8082,8082, & - 8082,8082,8083,8083,8083,8084,8084,8084,8085,8085,8085,8086, & - 8086,8086,8087,8087,8087,8087,8088,8088,8088,8088,8089,8089, & - 8089,8090,8090,8090,8090,8091,8091,8091,8091,8092,8092,8093, & - 8093,8094,8094,8094,8095,8095,8095,8096,8096,8096,8097,8097, & - 8097,8098,8098,8098,8098,8099,8099,8099,8100,8100,8100,8100 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_72 = (/ & - 8101,8101,8101,8102,8102,8102,8103,8103,8103,8104,8104,8104, & - 8105,8105,8105,8106,8106,8106,8107,8107,8107,8108,8108,8108, & - 8109,8109,8109,8110,8110,8110,8110,8111,8111,8111,8111,8112, & - 8112,8113,8113,8113,8113,8114,8114,8114,8114,8115,8115,8116, & - 8116,8116,8116,8117,8117,8117,8118,8118,8119,8119,8119,8120, & - 8120,8120,8120,8121,8121,8121,8121,8122,8122,8123,8123,8124, & - 8124,8125,8125,8125,8126,8126,8126,8126,8127,8127,8127,8127, & - 8128,8128,8129,8129,8129,8130,8130,8130,8130,8131,8131,8131, & - 8131,8132,8132,8133,8133,8134,8134,8135,8135,8135,8136,8136, & - 8136,8136,8137,8137,8137,8137,8138,8138,8139,8139,8140,8140, & - 8141,8141,8141,8142,8142,8142,8142,8143,8143,8143,8144,8144, & - 8144,8145,8145,8145,8145,8145,8146,8146,8146,8146,8146,8147, & - 8147,8147,8148,8148,8148,8149,8149,8149,8150,8150,8150,8151, & - 8151,8151,8151,8152,8152,8152,8152,8153,8153,8153,8154,8154, & - 8154,8154,8155,8155,8155,8155,8156,8156,8157,8157,8157,8158, & - 8158,8158,8158,8159,8159,8159,8159,8160,8160,8161,8161,8162, & - 8162,8163,8163,8163,8164,8164,8164,8165,8165,8165,8166,8166, & - 8166,8167,8167,8167,8168,8168,8168,8168,8169,8169,8169,8170, & - 8170,8170,8171,8171,8171,8172,8172,8172,8173,8173,8173,8174, & - 8174,8174,8174,8175,8175,8175,8175,8176,8176,8177,8177,8177, & - 8177,8178,8178,8178,8178,8179,8179,8179,8180,8180,8180,8180, & - 8181,8181,8181,8181,8182,8182,8183,8183,8184,8184,8185,8185, & - 8185,8186,8186,8186,8186,8187,8187,8187,8187,8188,8188,8189, & - 8189,8189,8190,8190,8190,8190,8191,8191,8191,8191,8192,8192, & - 8193,8193,8194,8194,8195,8195,8195,8196,8196,8196,8196,8197, & - 8197,8197,8197,8198,8198,8199,8199,8200,8200,8201,8201,8201, & - 8201,8202,8202,8202,8203,8203,8203,8204,8204,8204,8205,8205, & - 8205,8205,8205,8206,8206,8206,8206,8206,8207,8207,8207,8208, & - 8208,8208,8209,8209,8209,8210,8210,8210,8211,8211,8211,8211, & - 8212,8212,8212,8212,8213,8213,8213,8214,8214,8214,8214,8215 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_73 = (/ & - 8215,8215,8215,8216,8216,8217,8217,8217,8218,8218,8218,8219, & - 8219,8219,8220,8220,8220,8220,8220,8221,8221,8221,8222,8222, & - 8222,8223,8223,8223,8223,8224,8224,8224,8225,8225,8225,8226, & - 8226,8226,8227,8227,8227,8228,8228,8228,8229,8229,8229,8230, & - 8230,8230,8231,8231,8231,8231,8232,8232,8232,8232,8233,8233, & - 8234,8234,8234,8234,8235,8235,8235,8235,8236,8236,8236,8237, & - 8237,8237,8237,8238,8238,8238,8239,8239,8239,8239,8240,8240, & - 8241,8241,8242,8242,8242,8243,8243,8243,8243,8244,8244,8244, & - 8244,8245,8245,8246,8246,8247,8247,8247,8248,8248,8248,8248, & - 8249,8249,8249,8249,8250,8250,8251,8251,8251,8251,8252,8252, & - 8252,8252,8253,8253,8253,8254,8254,8254,8254,8255,8255,8255, & - 8255,8256,8256,8257,8257,8258,8258,8258,8259,8259,8259,8259, & - 8260,8260,8260,8260,8261,8261,8262,8262,8262,8263,8263,8263, & - 8263,8264,8264,8264,8264,8265,8265,8266,8266,8267,8267,8267, & - 8268,8268,8268,8268,8269,8269,8269,8269,8270,8270,8271,8271, & - 8272,8272,8272,8273,8273,8273,8274,8274,8274,8275,8275,8275, & - 8276,8276,8276,8276,8276,8277,8277,8277,8278,8278,8279,8279, & - 8279,8280,8280,8280,8280,8281,8281,8281,8281,8281,8282,8282, & - 8282,8283,8283,8283,8284,8284,8284,8285,8285,8285,8285,8285, & - 8286,8286,8286,8287,8287,8287,8288,8288,8288,8289,8289,8289, & - 8290,8290,8290,8291,8291,8292,8292,8292,8293,8293,8293,8293, & - 8294,8294,8294,8294,8295,8295,8296,8296,8297,8297,8297,8297, & - 8298,8298,8298,8298,8298,8299,8299,8299,8300,8300,8300,8301, & - 8301,8301,8302,8302,8302,8303,8303,8303,8304,8304,8304,8305, & - 8305,8305,8306,8306,8306,8307,8307,8307,8308,8308,8308,8308, & - 8309,8309,8309,8309,8310,8310,8311,8311,8311,8312,8312,8312, & - 8312,8312,8313,8313,8313,8314,8314,8314,8315,8315,8315,8316, & - 8316,8316,8316,8316,8317,8317,8317,8318,8318,8318,8319,8319, & - 8319,8320,8320,8320,8321,8321,8321,8322,8322,8322,8323,8323, & - 8323,8324,8324,8324,8325,8325,8325,8325,8326,8326,8326,8326 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_74 = (/ & - 8326,8326,8327,8327,8327,8328,8328,8328,8329,8329,8329,8330, & - 8330,8330,8331,8331,8331,8332,8332,8332,8332,8332,8333,8333, & - 8333,8334,8334,8334,8335,8335,8335,8336,8336,8336,8336,8337, & - 8337,8337,8338,8338,8338,8338,8339,8339,8339,8339,8340,8340, & - 8340,8341,8341,8341,8342,8342,8343,8343,8343,8344,8344,8344, & - 8344,8345,8345,8345,8346,8346,8346,8346,8347,8347,8347,8347, & - 8348,8348,8348,8348,8349,8349,8349,8349,8350,8350,8350,8351, & - 8351,8351,8352,8352,8352,8353,8353,8353,8354,8354,8354,8354, & - 8355,8355,8355,8356,8356,8356,8357,8357,8357,8358,8358,8358, & - 8358,8359,8359,8359,8359,8359,8360,8360,8360,8360,8361,8361, & - 8361,8362,8362,8362,8362,8362,8363,8363,8363,8363,8364,8364, & - 8364,8365,8365,8365,8366,8366,8366,8367,8367,8367,8368,8368, & - 8368,8369,8369,8369,8370,8370,8370,8371,8371,8371,8372,8372, & - 8372,8373,8373,8373,8373,8374,8374,8374,8374,8375,8375,8376, & - 8376,8376,8376,8377,8377,8377,8378,8378,8378,8378,8378,8379, & - 8379,8379,8379,8380,8380,8380,8381,8381,8381,8382,8382,8382, & - 8383,8383,8383,8384,8384,8384,8385,8385,8385,8386,8386,8386, & - 8387,8387,8387,8388,8388,8388,8389,8389,8389,8389,8390,8390, & - 8390,8390,8391,8391,8392,8392,8392,8393,8393,8393,8393,8394, & - 8394,8394,8394,8395,8395,8396,8396,8397,8397,8398,8398,8398, & - 8399,8399,8399,8400,8400,8400,8401,8401,8401,8402,8402,8402, & - 8403,8403,8403,8404,8404,8404,8405,8405,8405,8406,8406,8406, & - 8407,8407,8407,8407,8408,8408,8408,8408,8409,8409,8410,8410, & - 8411,8411,8411,8412,8412,8412,8412,8413,8413,8413,8414,8414, & - 8414,8414,8415,8415,8415,8415,8416,8416,8416,8416,8417,8417, & - 8417,8417,8418,8418,8418,8418,8419,8419,8419,8419,8420,8420, & - 8420,8421,8421,8421,8421,8422,8422,8422,8423,8423,8423,8423, & - 8424,8424,8425,8425,8426,8426,8426,8427,8427,8427,8427,8428, & - 8428,8428,8428,8429,8429,8430,8430,8431,8431,8431,8432,8432, & - 8432,8432,8433,8433,8433,8433,8434,8434,8435,8435,8435,8436 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_75 = (/ & - 8436,8436,8436,8437,8437,8437,8437,8438,8438,8439,8439,8440, & - 8440,8441,8441,8441,8442,8442,8442,8442,8443,8443,8443,8443, & - 8444,8444,8445,8445,8446,8446,8446,8446,8447,8447,8447,8447, & - 8448,8448,8448,8448,8449,8449,8450,8450,8450,8450,8451,8451, & - 8451,8452,8452,8452,8453,8453,8453,8453,8454,8454,8454,8454, & - 8455,8455,8455,8455,8456,8456,8456,8456,8457,8457,8457,8458, & - 8458,8458,8459,8459,8459,8460,8460,8460,8460,8461,8461,8461, & - 8461,8462,8462,8463,8463,8463,8463,8463,8464,8464,8464,8465, & - 8465,8465,8466,8466,8466,8466,8467,8467,8467,8467,8467,8468, & - 8468,8468,8468,8469,8469,8469,8470,8470,8470,8470,8471,8471, & - 8471,8471,8471,8472,8472,8472,8473,8473,8473,8474,8474,8474, & - 8475,8475,8475,8476,8476,8476,8477,8477,8477,8477,8477,8478, & - 8478,8478,8479,8479,8479,8480,8480,8480,8481,8481,8481,8481, & - 8481,8482,8482,8482,8482,8483,8483,8483,8483,8483,8484,8484, & - 8484,8484,8485,8485,8486,8486,8486,8487,8487,8487,8487,8488, & - 8488,8488,8489,8489,8489,8490,8490,8490,8490,8491,8491,8491, & - 8492,8492,8492,8492,8493,8493,8494,8494,8494,8495,8495,8495, & - 8496,8496,8496,8496,8497,8497,8497,8497,8498,8498,8498,8498, & - 8499,8499,8499,8499,8499,8500,8500,8500,8500,8500,8501,8501, & - 8501,8502,8502,8502,8503,8503,8503,8503,8503,8504,8504,8504, & - 8505,8505,8505,8505,8506,8506,8506,8506,8507,8507,8507,8507, & - 8508,8508,8508,8509,8509,8510,8510,8510,8511,8511,8511,8511, & - 8512,8512,8513,8513,8513,8513,8514,8514,8514,8514,8515,8515, & - 8515,8515,8516,8516,8516,8516,8517,8517,8517,8517,8517,8517, & - 8518,8518,8518,8518,8518,8519,8519,8519,8519,8519,8520,8520, & - 8520,8520,8520,8521,8521,8521,8522,8522,8522,8523,8523,8523, & - 8523,8523,8524,8524,8524,8525,8525,8525,8525,8526,8526,8526, & - 8526,8527,8527,8527,8527,8528,8528,8528,8529,8529,8530,8530, & - 8530,8531,8531,8532,8532,8532,8532,8533,8533,8533,8533,8534, & - 8534,8534,8534,8535,8535,8535,8535,8536,8536,8536,8536,8537 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_76 = (/ & - 8537,8537,8537,8538,8538,8538,8539,8539,8539,8540,8540,8540, & - 8540,8541,8541,8541,8541,8542,8542,8542,8542,8543,8543,8543, & - 8544,8544,8545,8545,8546,8546,8546,8547,8547,8547,8547,8548, & - 8548,8548,8548,8549,8549,8549,8549,8550,8550,8550,8550,8551, & - 8551,8552,8552,8552,8552,8553,8553,8553,8554,8554,8554,8555, & - 8555,8555,8555,8556,8556,8557,8557,8557,8557,8558,8558,8558, & - 8559,8559,8559,8560,8560,8560,8560,8560,8561,8561,8561,8562, & - 8562,8562,8562,8563,8563,8563,8563,8564,8564,8564,8564,8565, & - 8565,8565,8566,8566,8566,8567,8567,8568,8568,8568,8569,8569, & - 8569,8569,8570,8570,8570,8570,8571,8571,8571,8571,8571,8572, & - 8572,8572,8572,8573,8573,8573,8574,8574,8574,8574,8575,8575, & - 8575,8575,8576,8576,8576,8576,8576,8577,8577,8577,8577,8577, & - 8578,8578,8578,8579,8579,8579,8580,8580,8580,8580,8580,8581, & - 8581,8581,8582,8582,8582,8582,8583,8583,8583,8583,8584,8584, & - 8584,8584,8585,8585,8585,8586,8586,8586,8587,8587,8587,8588, & - 8588,8588,8588,8589,8589,8589,8590,8590,8590,8591,8591,8591, & - 8591,8592,8592,8592,8592,8593,8593,8593,8594,8594,8594,8595, & - 8595,8595,8595,8596,8596,8596,8596,8597,8597,8598,8598,8598, & - 8598,8599,8599,8599,8599,8600,8600,8600,8601,8601,8601,8601, & - 8602,8602,8603,8603,8603,8603,8604,8604,8605,8605,8605,8605, & - 8606,8606,8606,8607,8607,8607,8607,8608,8608,8608,8608,8608, & - 8609,8609,8609,8609,8610,8610,8610,8610,8611,8611,8612,8612, & - 8613,8613,8613,8613,8614,8614,8614,8614,8615,8615,8615,8615, & - 8616,8616,8616,8616,8617,8617,8617,8618,8618,8618,8618,8619, & - 8619,8619,8620,8620,8620,8621,8621,8621,8622,8622,8622,8622, & - 8622,8623,8623,8623,8623,8624,8624,8624,8624,8625,8625,8625, & - 8625,8626,8626,8626,8626,8627,8627,8627,8628,8628,8628,8628, & - 8628,8628,8629,8629,8629,8630,8630,8630,8630,8630,8630,8631, & - 8631,8631,8631,8632,8632,8632,8633,8633,8634,8634,8634,8635, & - 8635,8635,8636,8636,8636,8636,8637,8637,8637,8637,8638,8638 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_77 = (/ & - 8639,8639,8639,8639,8640,8640,8640,8641,8641,8641,8642,8642, & - 8642,8643,8643,8643,8644,8644,8644,8645,8645,8645,8645,8645, & - 8646,8646,8646,8646,8647,8647,8648,8648,8649,8649,8649,8650, & - 8650,8650,8651,8651,8651,8651,8652,8652,8652,8652,8653,8653, & - 8654,8654,8655,8655,8656,8656,8656,8657,8657,8657,8658,8658, & - 8658,8658,8659,8659,8660,8660,8661,8661,8662,8662,8662,8663, & - 8663,8663,8663,8664,8664,8664,8665,8665,8665,8666,8666,8666, & - 8666,8667,8667,8667,8667,8668,8668,8669,8669,8669,8669,8670, & - 8670,8670,8671,8671,8671,8671,8672,8672,8672,8672,8672,8673, & - 8673,8673,8673,8674,8674,8674,8674,8675,8675,8676,8676,8676, & - 8677,8677,8677,8678,8678,8678,8678,8678,8679,8679,8679,8679, & - 8680,8680,8680,8680,8681,8681,8681,8681,8682,8682,8682,8683, & - 8683,8683,8683,8683,8684,8684,8684,8685,8685,8685,8686,8686, & - 8686,8686,8687,8687,8687,8687,8688,8688,8689,8689,8689,8689, & - 8690,8690,8690,8690,8690,8691,8691,8691,8691,8691,8692,8692, & - 8692,8692,8693,8693,8693,8694,8694,8694,8694,8694,8695,8695, & - 8695,8696,8696,8696,8696,8696,8697,8697,8697,8698,8698,8698, & - 8699,8699,8700,8700,8700,8701,8701,8701,8701,8702,8702,8702, & - 8703,8703,8703,8703,8704,8704,8705,8705,8705,8706,8706,8706, & - 8707,8707,8707,8707,8708,8708,8708,8708,8709,8709,8710,8710, & - 8711,8711,8711,8711,8712,8712,8713,8713,8713,8713,8714,8714, & - 8714,8715,8715,8715,8716,8716,8716,8716,8717,8717,8717,8717, & - 8718,8718,8719,8719,8720,8720,8720,8721,8721,8721,8721,8722, & - 8722,8722,8722,8723,8723,8724,8724,8724,8725,8725,8725,8725, & - 8726,8726,8726,8727,8727,8727,8727,8727,8728,8728,8728,8728, & - 8729,8729,8729,8729,8729,8730,8730,8730,8730,8731,8731,8731, & - 8731,8732,8732,8732,8732,8733,8733,8733,8733,8734,8734,8734, & - 8735,8735,8735,8735,8736,8736,8736,8736,8737,8737,8737,8737, & - 8738,8738,8738,8739,8739,8739,8740,8740,8740,8740,8741,8741, & - 8741,8741,8741,8742,8742,8742,8743,8743,8743,8743,8744,8744 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_78 = (/ & - 8744,8745,8745,8745,8746,8746,8746,8746,8747,8747,8747,8747, & - 8747,8748,8748,8748,8749,8749,8749,8750,8750,8750,8750,8751, & - 8751,8751,8751,8751,8752,8752,8752,8752,8753,8753,8753,8754, & - 8754,8754,8755,8755,8755,8755,8756,8756,8756,8756,8757,8757, & - 8758,8758,8759,8759,8760,8760,8760,8760,8761,8761,8761,8762, & - 8762,8763,8763,8763,8764,8764,8764,8764,8765,8765,8765,8766, & - 8766,8766,8767,8767,8767,8767,8768,8768,8768,8768,8769,8769, & - 8769,8769,8770,8770,8770,8771,8771,8772,8772,8772,8773,8773, & - 8773,8773,8774,8774,8774,8775,8775,8775,8776,8776,8776,8776, & - 8777,8777,8777,8778,8778,8778,8778,8779,8779,8779,8779,8780, & - 8780,8780,8781,8781,8782,8782,8782,8783,8783,8784,8784,8784, & - 8784,8784,8785,8785,8785,8785,8786,8786,8786,8786,8787,8787, & - 8787,8788,8788,8788,8789,8789,8790,8790,8790,8791,8791,8791, & - 8792,8792,8792,8792,8793,8793,8793,8794,8794,8794,8795,8795, & - 8795,8795,8796,8796,8796,8797,8797,8797,8798,8798,8798,8799, & - 8799,8799,8799,8800,8800,8800,8800,8801,8801,8802,8802,8803, & - 8803,8804,8804,8805,8805,8805,8806,8806,8806,8806,8807,8807, & - 8807,8808,8808,8808,8809,8809,8809,8809,8810,8810,8810,8810, & - 8811,8811,8811,8812,8812,8812,8812,8813,8813,8813,8813,8814, & - 8814,8814,8815,8815,8815,8815,8816,8816,8817,8817,8817,8818, & - 8818,8818,8819,8819,8819,8819,8820,8820,8820,8821,8821,8821, & - 8821,8822,8822,8822,8823,8823,8823,8824,8824,8824,8825,8825, & - 8825,8825,8825,8826,8826,8826,8827,8827,8827,8828,8828,8829, & - 8829,8829,8830,8830,8830,8831,8831,8831,8831,8832,8832,8832, & - 8833,8833,8833,8833,8833,8834,8834,8834,8834,8835,8835,8835, & - 8835,8836,8836,8836,8837,8837,8837,8838,8838,8839,8839,8839, & - 8839,8840,8840,8840,8841,8841,8842,8842,8842,8843,8843,8843, & - 8844,8844,8844,8844,8845,8845,8845,8846,8846,8846,8846,8847, & - 8847,8847,8847,8848,8848,8848,8849,8849,8849,8850,8850,8850, & - 8850,8851,8851,8851,8852,8852,8852,8852,8853,8853,8853,8854 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_79 = (/ & - 8854,8854,8855,8855,8855,8855,8856,8856,8856,8857,8857,8857, & - 8858,8858,8858,8858,8859,8859,8859,8860,8860,8860,8860,8861, & - 8861,8861,8862,8862,8863,8863,8863,8864,8864,8864,8864,8865, & - 8865,8865,8865,8866,8866,8866,8866,8867,8867,8867,8867,8868, & - 8868,8868,8869,8869,8869,8870,8870,8870,8871,8871,8871,8872, & - 8872,8872,8873,8873,8873,8874,8874,8874,8874,8874,8875,8875, & - 8875,8876,8876,8876,8877,8877,8877,8878,8878,8879,8879,8879, & - 8880,8880,8880,8881,8881,8881,8882,8882,8882,8883,8883,8883, & - 8883,8884,8884,8884,8885,8885,8886,8886,8886,8887,8887,8887, & - 8887,8888,8888,8888,8889,8889,8889,8890,8890,8890,8890,8891, & - 8891,8891,8891,8892,8892,8892,8893,8893,8894,8894,8894,8895, & - 8895,8895,8896,8896,8896,8896,8897,8897,8898,8898,8898,8899, & - 8899,8899,8900,8900,8901,8901,8901,8902,8902,8902,8902,8903, & - 8903,8903,8903,8904,8904,8904,8904,8905,8905,8905,8905,8906, & - 8906,8906,8907,8907,8907,8907,8908,8908,8908,8909,8909,8909, & - 8910,8910,8910,8911,8911,8911,8912,8912,8913,8913,8913,8914, & - 8914,8914,8915,8915,8915,8916,8916,8916,8916,8917,8917,8917, & - 8918,8918,8918,8918,8919,8919,8919,8920,8920,8920,8921,8921, & - 8921,8922,8922,8922,8922,8923,8923,8924,8924,8924,8925,8925, & - 8925,8925,8926,8926,8926,8927,8927,8927,8928,8928,8928,8928, & - 8929,8929,8929,8930,8930,8930,8930,8931,8931,8931,8931,8932, & - 8932,8932,8933,8933,8933,8934,8934,8934,8934,8934,8935,8935, & - 8935,8936,8936,8936,8937,8937,8937,8938,8938,8938,8939,8939, & - 8939,8940,8940,8940,8940,8941,8941,8941,8942,8942,8942,8943, & - 8943,8944,8944,8944,8945,8945,8945,8946,8946,8946,8946,8947, & - 8947,8947,8947,8948,8948,8948,8948,8949,8949,8949,8950,8950, & - 8950,8951,8951,8951,8952,8952,8952,8953,8953,8953,8953,8953, & - 8953,8954,8954,8954,8955,8955,8955,8956,8956,8956,8957,8957, & - 8957,8957,8958,8958,8958,8959,8959,8959,8959,8960,8960,8960, & - 8961,8961,8961,8961,8962,8962,8962,8963,8963,8963,8964,8964 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_80 = (/ & - 8965,8965,8965,8966,8966,8966,8967,8967,8968,8968,8968,8968, & - 8969,8969,8969,8969,8970,8970,8970,8971,8971,8971,8972,8972, & - 8972,8973,8973,8973,8974,8974,8974,8974,8975,8975,8975,8975, & - 8976,8976,8977,8977,8978,8978,8978,8979,8979,8979,8980,8980, & - 8981,8981,8981,8982,8982,8982,8983,8983,8983,8983,8983,8984, & - 8984,8984,8985,8985,8985,8986,8986,8986,8987,8987,8987,8987, & - 8988,8988,8988,8988,8989,8989,8990,8990,8991,8991,8991,8991, & - 8992,8992,8992,8992,8993,8993,8993,8994,8994,8994,8994,8995, & - 8995,8995,8996,8996,8996,8996,8997,8997,8998,8998,8999,8999, & - 8999,9000,9000,9000,9000,9001,9001,9001,9001,9002,9002,9002, & - 9002,9003,9003,9003,9004,9004,9004,9004,9005,9005,9006,9006, & - 9007,9007,9007,9008,9008,9008,9008,9009,9009,9009,9009,9010, & - 9010,9011,9011,9011,9012,9012,9012,9012,9013,9013,9013,9013, & - 9014,9014,9015,9015,9016,9016,9016,9017,9017,9017,9017,9018, & - 9018,9018,9018,9019,9019,9019,9020,9020,9020,9020,9021,9021, & - 9022,9022,9022,9023,9023,9023,9023,9024,9024,9024,9024,9025, & - 9025,9026,9026,9026,9027,9027,9027,9028,9028,9028,9028,9029, & - 9029,9029,9029,9030,9030,9031,9031,9032,9032,9033,9033,9033, & - 9034,9034,9034,9034,9035,9035,9035,9036,9036,9036,9037,9037, & - 9037,9037,9038,9038,9038,9039,9039,9039,9039,9040,9040,9040, & - 9040,9040,9041,9041,9041,9042,9042,9042,9043,9043,9043,9044, & - 9044,9044,9044,9045,9045,9045,9045,9046,9046,9047,9047,9048, & - 9048,9048,9049,9049,9049,9050,9050,9050,9050,9051,9051,9051, & - 9051,9052,9052,9053,9053,9054,9054,9055,9055,9055,9056,9056, & - 9056,9057,9057,9057,9057,9058,9058,9058,9058,9059,9059,9060, & - 9060,9061,9061,9062,9062,9062,9063,9063,9063,9064,9064,9064, & - 9065,9065,9065,9065,9066,9066,9066,9066,9067,9067,9068,9068, & - 9069,9069,9070,9070,9070,9071,9071,9071,9071,9072,9072,9072, & - 9073,9073,9074,9074,9074,9075,9075,9075,9075,9076,9076,9076, & - 9077,9077,9077,9077,9078,9078,9078,9078,9078,9079,9079,9079 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_81 = (/ & - 9080,9080,9080,9081,9081,9081,9081,9082,9082,9082,9082,9083, & - 9083,9084,9084,9085,9085,9085,9086,9086,9086,9086,9087,9087, & - 9087,9088,9088,9088,9089,9089,9089,9089,9090,9090,9090,9091, & - 9091,9091,9092,9092,9092,9092,9093,9093,9093,9093,9094,9094, & - 9095,9095,9096,9096,9096,9096,9097,9097,9097,9098,9098,9098, & - 9098,9099,9099,9099,9099,9100,9100,9100,9101,9101,9101,9102, & - 9102,9102,9102,9103,9103,9103,9103,9104,9104,9104,9105,9105, & - 9105,9105,9106,9106,9106,9106,9107,9107,9107,9108,9108,9108, & - 9108,9109,9109,9110,9110,9111,9111,9111,9111,9112,9112,9112, & - 9112,9113,9113,9113,9114,9114,9114,9114,9115,9115,9115,9116, & - 9116,9116,9116,9117,9117,9118,9118,9119,9119,9119,9120,9120, & - 9120,9120,9121,9121,9121,9121,9122,9122,9123,9123,9124,9124, & - 9125,9125,9125,9126,9126,9126,9126,9127,9127,9127,9127,9128, & - 9128,9128,9129,9129,9129,9129,9130,9130,9131,9131,9131,9132, & - 9132,9132,9132,9133,9133,9133,9133,9134,9134,9135,9135,9135, & - 9136,9136,9136,9136,9137,9137,9137,9137,9138,9138,9139,9139, & - 9139,9140,9140,9140,9141,9141,9141,9141,9141,9142,9142,9142, & - 9143,9143,9143,9144,9144,9144,9144,9145,9145,9145,9145,9146, & - 9146,9147,9147,9148,9148,9148,9149,9149,9149,9150,9150,9150, & - 9150,9151,9151,9152,9152,9152,9153,9153,9153,9154,9154,9154, & - 9154,9155,9155,9155,9155,9156,9156,9157,9157,9158,9158,9158, & - 9159,9159,9159,9160,9160,9160,9160,9161,9161,9161,9161,9162, & - 9162,9163,9163,9164,9164,9165,9165,9165,9166,9166,9166,9167, & - 9167,9167,9167,9167,9168,9168,9168,9169,9169,9169,9170,9170, & - 9170,9171,9171,9171,9171,9172,9172,9172,9172,9172,9173,9173, & - 9173,9174,9174,9174,9174,9175,9175,9175,9175,9176,9176,9176, & - 9176,9177,9177,9177,9178,9178,9178,9179,9179,9179,9179,9180, & - 9180,9180,9180,9181,9181,9182,9182,9183,9183,9184,9184,9184, & - 9184,9185,9185,9185,9186,9186,9186,9186,9187,9187,9187,9187, & - 9188,9188,9188,9189,9189,9189,9189,9190,9190,9191,9191,9192 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_82 = (/ & - 9192,9192,9193,9193,9193,9193,9194,9194,9194,9194,9195,9195, & - 9196,9196,9197,9197,9198,9198,9198,9199,9199,9199,9199,9200, & - 9200,9200,9200,9201,9201,9202,9202,9203,9203,9204,9204,9204, & - 9205,9205,9205,9205,9206,9206,9206,9206,9207,9207,9208,9208, & - 9209,9209,9210,9210,9210,9211,9211,9211,9212,9212,9212,9212, & - 9213,9213,9213,9213,9214,9214,9215,9215,9216,9216,9217,9217, & - 9217,9218,9218,9218,9219,9219,9219,9219,9219,9220,9220,9220, & - 9220,9221,9221,9221,9221,9221,9222,9222,9222,9223,9223,9223, & - 9224,9224,9224,9224,9224,9225,9225,9225,9225,9226,9226,9226, & - 9226,9226,9227,9227,9227,9228,9228,9228,9228,9229,9229,9229, & - 9229,9230,9230,9231,9231,9232,9232,9233,9233,9233,9234,9234, & - 9234,9234,9235,9235,9235,9235,9236,9236,9236,9236,9237,9237, & - 9237,9238,9238,9238,9239,9239,9239,9240,9240,9240,9240,9240, & - 9241,9241,9241,9241,9242,9242,9242,9242,9242,9243,9243,9243, & - 9243,9244,9244,9244,9245,9245,9245,9245,9246,9246,9246,9246, & - 9247,9247,9247,9248,9248,9248,9248,9249,9249,9250,9250,9251, & - 9251,9251,9251,9252,9252,9252,9252,9253,9253,9253,9254,9254, & - 9254,9254,9255,9255,9255,9256,9256,9256,9256,9257,9257,9258, & - 9258,9259,9259,9259,9260,9260,9260,9260,9261,9261,9261,9261, & - 9262,9262,9262,9262,9263,9263,9263,9264,9264,9264,9265,9265, & - 9265,9265,9266,9266,9266,9266,9267,9267,9268,9268,9269,9269, & - 9270,9270,9270,9271,9271,9271,9272,9272,9272,9272,9272,9273, & - 9273,9273,9273,9274,9274,9274,9274,9274,9275,9275,9275,9276, & - 9276,9276,9277,9277,9277,9277,9278,9278,9278,9278,9279,9279, & - 9280,9280,9281,9281,9281,9282,9282,9282,9282,9283,9283,9283, & - 9283,9284,9284,9285,9285,9286,9286,9286,9286,9287,9287,9287, & - 9288,9288,9288,9288,9289,9289,9290,9290,9290,9291,9291,9291, & - 9292,9292,9292,9293,9293,9293,9293,9294,9294,9294,9294,9295, & - 9295,9296,9296,9297,9297,9297,9298,9298,9298,9299,9299,9299, & - 9299,9300,9300,9300,9300,9301,9301,9302,9302,9303,9303,9304 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_83 = (/ & - 9304,9304,9305,9305,9305,9305,9306,9306,9306,9306,9307,9307, & - 9308,9308,9308,9309,9309,9309,9310,9310,9310,9310,9311,9311, & - 9311,9311,9312,9312,9313,9313,9314,9314,9314,9314,9315,9315, & - 9315,9316,9316,9316,9316,9317,9317,9317,9317,9318,9318,9319, & - 9319,9320,9320,9320,9321,9321,9321,9321,9322,9322,9322,9322, & - 9323,9323,9323,9323,9324,9324,9325,9325,9325,9326,9326,9326, & - 9327,9327,9327,9327,9328,9328,9328,9328,9329,9329,9329,9329, & - 9330,9330,9331,9331,9332,9332,9332,9333,9333,9333,9334,9334, & - 9335,9335,9335,9336,9336,9336,9337,9337,9338,9338,9338,9339, & - 9339,9339,9340,9340,9340,9341,9341,9341,9341,9342,9342,9342, & - 9342,9343,9343,9344,9344,9345,9345,9345,9346,9346,9346,9347, & - 9347,9347,9347,9348,9348,9348,9348,9349,9349,9350,9350,9351, & - 9351,9352,9352,9352,9353,9353,9353,9354,9354,9354,9354,9354, & - 9355,9355,9355,9356,9356,9356,9356,9356,9357,9357,9357,9358, & - 9358,9358,9359,9359,9359,9360,9360,9360,9360,9360,9361,9361, & - 9361,9362,9362,9362,9362,9362,9363,9363,9363,9364,9364,9364, & - 9365,9365,9365,9366,9366,9366,9366,9366,9367,9367,9367,9368, & - 9368,9369,9369,9369,9370,9370,9370,9371,9371,9371,9372,9372, & - 9372,9373,9373,9373,9374,9374,9374,9374,9375,9375,9375,9375, & - 9376,9376,9376,9377,9377,9377,9378,9378,9379,9379,9379,9380, & - 9380,9380,9381,9381,9382,9382,9382,9382,9383,9383,9383,9383, & - 9384,9384,9384,9385,9385,9385,9385,9386,9386,9386,9387,9387, & - 9387,9387,9388,9388,9389,9389,9390,9390,9390,9391,9391,9391, & - 9391,9392,9392,9392,9392,9393,9393,9394,9394,9394,9394,9395, & - 9395,9395,9395,9395,9396,9396,9396,9397,9397,9397,9397,9397, & - 9398,9398,9398,9398,9398,9399,9399,9399,9400,9400,9400,9400, & - 9401,9401,9401,9401,9402,9402,9402,9403,9403,9403,9403,9404, & - 9404,9404,9404,9405,9405,9405,9405,9406,9406,9406,9407,9407, & - 9407,9407,9408,9408,9408,9408,9409,9409,9409,9410,9410,9410, & - 9410,9411,9411,9411,9412,9412,9412,9412,9413,9413,9413,9413 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_84 = (/ & - 9414,9414,9414,9415,9415,9415,9415,9416,9416,9417,9417,9418, & - 9418,9418,9418,9419,9419,9419,9419,9420,9420,9420,9421,9421, & - 9421,9422,9422,9422,9422,9423,9423,9423,9423,9424,9424,9424, & - 9425,9425,9425,9425,9426,9426,9427,9427,9427,9428,9428,9428, & - 9429,9429,9429,9429,9430,9430,9430,9430,9431,9431,9432,9432, & - 9433,9433,9434,9434,9434,9434,9435,9435,9435,9435,9436,9436, & - 9436,9437,9437,9437,9437,9438,9438,9438,9439,9439,9439,9439, & - 9440,9440,9440,9440,9441,9441,9441,9442,9442,9442,9442,9443, & - 9443,9444,9444,9445,9445,9445,9446,9446,9446,9447,9447,9447, & - 9447,9448,9448,9448,9448,9449,9449,9450,9450,9451,9451,9451, & - 9451,9452,9452,9452,9452,9453,9453,9453,9454,9454,9454,9455, & - 9455,9455,9456,9456,9456,9457,9457,9457,9457,9458,9458,9458, & - 9458,9459,9459,9460,9460,9461,9461,9462,9462,9462,9462,9463, & - 9463,9463,9464,9464,9464,9464,9465,9465,9465,9465,9466,9466, & - 9466,9467,9467,9467,9467,9468,9468,9469,9469,9470,9470,9470, & - 9471,9471,9471,9471,9472,9472,9472,9472,9473,9473,9474,9474, & - 9475,9475,9476,9476,9476,9477,9477,9477,9477,9478,9478,9478, & - 9478,9479,9479,9479,9480,9480,9480,9480,9481,9481,9482,9482, & - 9482,9482,9483,9483,9483,9484,9484,9484,9484,9485,9485,9485, & - 9485,9486,9486,9486,9487,9487,9487,9487,9488,9488,9489,9489, & - 9490,9490,9490,9491,9491,9491,9492,9492,9492,9492,9493,9493, & - 9493,9493,9494,9494,9495,9495,9496,9496,9497,9497,9497,9498, & - 9498,9498,9499,9499,9499,9499,9500,9500,9500,9500,9501,9501, & - 9502,9502,9503,9503,9504,9504,9504,9504,9505,9505,9505,9505, & - 9506,9506,9506,9507,9507,9507,9507,9508,9508,9508,9509,9509, & - 9509,9509,9510,9510,9510,9510,9511,9511,9511,9512,9512,9512, & - 9512,9513,9513,9514,9514,9515,9515,9515,9516,9516,9516,9517, & - 9517,9517,9517,9518,9518,9518,9518,9519,9519,9520,9520,9521, & - 9521,9521,9522,9522,9522,9522,9523,9523,9523,9523,9524,9524, & - 9525,9525,9526,9526,9527,9527,9527,9528,9528,9528,9528,9529 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_85 = (/ & - 9529,9529,9529,9530,9530,9531,9531,9532,9532,9532,9532,9533, & - 9533,9533,9534,9534,9534,9534,9535,9535,9535,9535,9536,9536, & - 9536,9537,9537,9537,9537,9538,9538,9539,9539,9540,9540,9540, & - 9541,9541,9541,9542,9542,9542,9542,9543,9543,9543,9543,9544, & - 9544,9545,9545,9546,9546,9547,9547,9547,9547,9548,9548,9548, & - 9549,9549,9549,9549,9550,9550,9550,9550,9551,9551,9551,9552, & - 9552,9552,9552,9553,9553,9554,9554,9555,9555,9555,9555,9556, & - 9556,9556,9557,9557,9557,9557,9558,9558,9558,9558,9559,9559, & - 9559,9560,9560,9560,9560,9561,9561,9562,9562,9563,9563,9563, & - 9564,9564,9564,9565,9565,9565,9565,9566,9566,9566,9567,9567, & - 9567,9568,9568,9568,9569,9569,9569,9570,9570,9570,9571,9571, & - 9571,9571,9572,9572,9572,9572,9573,9573,9574,9574,9574,9575, & - 9575,9575,9575,9576,9576,9576,9576,9577,9577,9578,9578,9578, & - 9579,9579,9579,9580,9580,9580,9580,9581,9581,9581,9581,9582, & - 9582,9583,9583,9584,9584,9585,9585,9585,9586,9586,9586,9586, & - 9587,9587,9587,9587,9588,9588,9589,9589,9590,9590,9591,9591, & - 9591,9592,9592,9592,9593,9593,9593,9593,9594,9594,9594,9595, & - 9595,9595,9596,9596,9596,9597,9597,9597,9598,9598,9598,9599, & - 9599,9599,9599,9600,9600,9600,9600,9601,9601,9602,9602,9602, & - 9603,9603,9603,9604,9604,9604,9604,9605,9605,9605,9605,9606, & - 9606,9607,9607,9608,9608,9609,9609,9609,9609,9610,9610,9610, & - 9611,9611,9611,9611,9612,9612,9612,9612,9613,9613,9613,9614, & - 9614,9614,9614,9615,9615,9616,9616,9617,9617,9617,9618,9618, & - 9618,9619,9619,9619,9619,9620,9620,9620,9620,9621,9621,9622, & - 9622,9623,9623,9624,9624,9624,9625,9625,9625,9626,9626,9626, & - 9627,9627,9627,9627,9628,9628,9628,9628,9629,9629,9630,9630, & - 9630,9631,9631,9631,9632,9632,9632,9632,9633,9633,9633,9633, & - 9634,9634,9635,9635,9636,9636,9637,9637,9637,9638,9638,9638, & - 9639,9639,9639,9640,9640,9640,9640,9641,9641,9641,9641,9642, & - 9642,9643,9643,9643,9644,9644,9644,9644,9645,9645,9645,9645 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_86 = (/ & - 9646,9646,9647,9647,9647,9648,9648,9648,9649,9649,9649,9649, & - 9650,9650,9650,9650,9651,9651,9652,9652,9653,9653,9654,9654, & - 9654,9655,9655,9655,9656,9656,9656,9657,9657,9657,9657,9658, & - 9658,9658,9658,9659,9659,9660,9660,9660,9661,9661,9661,9661, & - 9662,9662,9662,9662,9663,9663,9664,9664,9664,9665,9665,9665, & - 9666,9666,9666,9666,9667,9667,9667,9667,9668,9668,9669,9669, & - 9670,9670,9671,9671,9671,9672,9672,9672,9673,9673,9673,9674, & - 9674,9674,9674,9675,9675,9675,9675,9676,9676,9677,9677,9677, & - 9678,9678,9678,9678,9679,9679,9679,9679,9680,9680,9681,9681, & - 9681,9682,9682,9682,9683,9683,9683,9683,9684,9684,9684,9684, & - 9685,9685,9686,9686,9687,9687,9688,9688,9688,9689,9689,9689, & - 9690,9690,9690,9691,9691,9691,9691,9692,9692,9692,9692,9693, & - 9693,9694,9694,9694,9695,9695,9695,9696,9696,9696,9696,9697, & - 9697,9697,9697,9698,9698,9699,9699,9700,9700,9701,9701,9701, & - 9702,9702,9702,9703,9703,9703,9704,9704,9704,9704,9705,9705, & - 9705,9705,9706,9706,9707,9707,9707,9707,9708,9708,9708,9709, & - 9709,9709,9709,9709,9710,9710,9710,9710,9711,9711,9711,9711, & - 9712,9712,9712,9712,9713,9713,9713,9713,9714,9714,9714,9714, & - 9715,9715,9715,9715,9716,9716,9716,9717,9717,9717,9718,9718, & - 9718,9719,9719,9719,9720,9720,9720,9721,9721,9721,9721,9722, & - 9722,9722,9722,9723,9723,9723,9723,9724,9724,9724,9725,9725, & - 9726,9726,9726,9727,9727,9727,9728,9728,9728,9729,9729,9729, & - 9729,9730,9730,9730,9730,9731,9731,9731,9732,9732,9732,9732, & - 9733,9733,9733,9734,9734,9734,9735,9735,9735,9736,9736,9736, & - 9737,9737,9737,9737,9738,9738,9738,9738,9739,9739,9740,9740, & - 9740,9741,9741,9741,9741,9742,9742,9742,9742,9743,9743,9744, & - 9744,9744,9745,9745,9745,9745,9746,9746,9746,9746,9747,9747, & - 9748,9748,9748,9749,9749,9749,9750,9750,9750,9751,9751,9751, & - 9751,9752,9752,9752,9752,9753,9753,9754,9754,9754,9755,9755, & - 9755,9755,9756,9756,9756,9756,9757,9757,9758,9758,9759,9759 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_87 = (/ & - 9760,9760,9760,9761,9761,9761,9761,9762,9762,9762,9762,9763, & - 9763,9764,9764,9764,9765,9765,9765,9765,9766,9766,9766,9766, & - 9767,9767,9768,9768,9769,9769,9770,9770,9770,9771,9771,9771, & - 9772,9772,9772,9773,9773,9773,9773,9774,9774,9774,9774,9775, & - 9775,9776,9776,9776,9777,9777,9777,9777,9778,9778,9778,9778, & - 9779,9779,9780,9780,9780,9781,9781,9781,9781,9782,9782,9782, & - 9782,9783,9783,9784,9784,9784,9785,9785,9785,9786,9786,9786, & - 9786,9787,9787,9787,9788,9788,9788,9789,9789,9789,9789,9790, & - 9790,9790,9791,9791,9791,9791,9791,9791,9792,9792,9792,9793, & - 9793,9793,9793,9794,9794,9794,9795,9795,9795,9795,9796,9796, & - 9797,9797,9797,9798,9798,9798,9799,9799,9799,9799,9800,9800, & - 9800,9800,9801,9801,9801,9801,9802,9802,9802,9802,9803,9803, & - 9803,9803,9804,9804,9804,9805,9805,9805,9806,9806,9806,9807, & - 9807,9807,9808,9808,9808,9808,9809,9809,9809,9809,9810,9810, & - 9811,9811,9811,9812,9812,9812,9812,9813,9813,9813,9813,9814, & - 9814,9814,9814,9815,9815,9815,9816,9816,9817,9817,9817,9818, & - 9818,9818,9819,9819,9819,9820,9820,9820,9821,9821,9821,9822, & - 9822,9822,9823,9823,9823,9824,9824,9824,9824,9825,9825,9825, & - 9826,9826,9826,9826,9826,9827,9827,9827,9828,9828,9828,9829, & - 9829,9829,9829,9830,9830,9830,9830,9831,9831,9831,9831,9832, & - 9832,9832,9833,9833,9833,9834,9834,9834,9834,9835,9835,9835, & - 9836,9836,9836,9836,9837,9837,9837,9838,9838,9838,9838,9839, & - 9839,9839,9840,9840,9840,9841,9841,9841,9842,9842,9843,9843, & - 9843,9844,9844,9844,9845,9845,9845,9846,9846,9846,9847,9847, & - 9847,9848,9848,9848,9848,9849,9849,9849,9850,9850,9850,9851, & - 9851,9851,9852,9852,9852,9853,9853,9853,9854,9854,9854,9855, & - 9855,9855,9856,9856,9856,9856,9857,9857,9857,9857,9858,9858, & - 9859,9859,9859,9860,9860,9860,9860,9861,9861,9861,9861,9862, & - 9862,9863,9863,9863,9864,9864,9864,9864,9865,9865,9865,9865, & - 9866,9866,9867,9867,9868,9868,9869,9869,9869,9870,9870,9870 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_88 = (/ & - 9870,9871,9871,9871,9871,9872,9872,9873,9873,9873,9874,9874, & - 9874,9874,9875,9875,9875,9875,9876,9876,9877,9877,9877,9878, & - 9878,9878,9879,9879,9879,9880,9880,9880,9880,9880,9881,9881, & - 9881,9882,9882,9882,9883,9883,9883,9883,9884,9884,9884,9884, & - 9885,9885,9885,9886,9886,9886,9887,9887,9887,9888,9888,9889, & - 9889,9889,9890,9890,9890,9891,9891,9891,9892,9892,9892,9893, & - 9893,9894,9894,9894,9894,9895,9895,9895,9896,9896,9896,9897, & - 9897,9897,9898,9898,9898,9899,9899,9899,9900,9900,9900,9901, & - 9901,9901,9902,9902,9902,9903,9903,9903,9903,9904,9904,9904, & - 9905,9905,9905,9906,9906,9906,9907,9907,9907,9908,9908,9908, & - 9909,9909,9909,9910,9910,9910,9911,9911,9911,9912,9912,9912, & - 9913,9913,9913,9914,9914,9914,9914,9915,9915,9915,9915,9916, & - 9916,9917,9917,9917,9918,9918,9918,9918,9919,9919,9919,9919, & - 9920,9920,9921,9921,9921,9922,9922,9922,9922,9923,9923,9923, & - 9923,9924,9924,9925,9925,9926,9926,9926,9927,9927,9927,9927, & - 9928,9928,9928,9928,9929,9929,9930,9930,9930,9931,9931,9931, & - 9931,9932,9932,9932,9932,9933,9933,9934,9934,9934,9935,9935, & - 9935,9936,9936,9936,9937,9937,9938,9938,9938,9939,9939,9939, & - 9939,9940,9940,9940,9941,9941,9941,9942,9942,9942,9943,9943, & - 9943,9943,9944,9944,9944,9944,9945,9945,9945,9946,9946,9946, & - 9946,9947,9947,9947,9948,9948,9948,9949,9949,9949,9950,9950, & - 9950,9951,9951,9951,9951,9952,9952,9952,9952,9953,9953,9954, & - 9954,9954,9955,9955,9955,9955,9956,9956,9956,9956,9957,9957, & - 9958,9958,9958,9959,9959,9959,9959,9960,9960,9960,9960,9961, & - 9961,9962,9962,9963,9963,9963,9964,9964,9964,9964,9965,9965, & - 9965,9965,9966,9966,9967,9967,9967,9968,9968,9968,9968,9969, & - 9969,9969,9969,9970,9970,9971,9971,9971,9972,9972,9972,9973, & - 9973,9973,9974,9974,9974,9975,9975,9975,9976,9976,9976,9976, & - 9977,9977,9977,9977,9978,9978,9979,9979,9979,9980,9980,9980, & - 9980,9981,9981,9981,9981,9982,9982,9983,9983,9983,9984,9984 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_89 = (/ & - 9984,9984,9985,9985,9985,9985,9986,9986,9987,9987,9988,9988, & - 9989,9989,9989,9990,9990,9990,9990,9991,9991,9991,9991,9992, & - 9992,9993,9993,9993,9994,9994,9994,9994,9995,9995,9995,9995, & - 9996,9996,9997,9997,9997,9998,9998,9998,9999,9999,9999,10000, & - 10000,10000,10000,10001,10001,10001,10002,10002,10002,10002,10003,10003, & - 10003,10003,10004,10004,10004,10005,10005,10005,10005,10006,10006,10006, & - 10006,10007,10007,10007,10007,10008,10008,10008,10009,10009,10009,10010, & - 10010,10010,10011,10011,10011,10012,10012,10012,10013,10013,10014,10014, & - 10014,10015,10015,10015,10016,10016,10016,10017,10017,10017,10018,10018, & - 10018,10018,10019,10019,10019,10019,10020,10020,10020,10021,10021,10021, & - 10021,10022,10022,10022,10022,10022,10022,10023,10023,10023,10024,10024, & - 10024,10024,10024,10024,10025,10025,10025,10025,10026,10026,10026,10027, & - 10027,10027,10028,10028,10028,10028,10029,10029,10029,10030,10030,10030, & - 10030,10031,10031,10031,10031,10032,10032,10033,10033,10033,10034,10034, & - 10034,10035,10035,10035,10036,10036,10036,10036,10037,10037,10037,10037, & - 10038,10038,10039,10039,10039,10040,10040,10040,10040,10041,10041,10041, & - 10041,10042,10042,10043,10043,10043,10044,10044,10044,10044,10045,10045, & - 10045,10045,10046,10046,10047,10047,10048,10048,10049,10049,10049,10050, & - 10050,10050,10050,10051,10051,10051,10051,10052,10052,10053,10053,10053, & - 10054,10054,10054,10054,10055,10055,10055,10055,10056,10056,10057,10057, & - 10057,10058,10058,10058,10059,10059,10060,10060,10060,10061,10061,10061, & - 10061,10062,10062,10062,10062,10063,10063,10063,10064,10064,10064,10064, & - 10064,10065,10065,10065,10066,10066,10066,10066,10067,10067,10067,10067, & - 10068,10068,10068,10069,10069,10069,10070,10070,10070,10071,10071,10071, & - 10072,10072,10072,10073,10073,10073,10074,10074,10075,10075,10075,10076, & - 10076,10076,10077,10077,10077,10078,10078,10078,10079,10079,10079,10079, & - 10080,10080,10080,10080,10081,10081,10081,10082,10082,10082,10082,10083, & - 10083,10083,10083,10083,10083,10084,10084,10084,10085,10085,10085,10085, & - 10085,10085,10086,10086,10086,10086,10087,10087,10087,10088,10088,10088, & - 10089,10089,10089,10089,10090,10090,10091,10091,10091,10092,10092,10092 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_90 = (/ & - 10093,10093,10093,10093,10094,10094,10094,10094,10094,10095,10095,10095, & - 10095,10096,10096,10096,10096,10097,10097,10097,10098,10098,10098,10099, & - 10099,10099,10100,10100,10100,10100,10101,10101,10101,10101,10102,10102, & - 10103,10103,10103,10104,10104,10104,10104,10105,10105,10105,10105,10106, & - 10106,10107,10107,10107,10108,10108,10108,10108,10109,10109,10109,10109, & - 10110,10110,10111,10111,10112,10112,10113,10113,10113,10114,10114,10114, & - 10114,10115,10115,10115,10115,10116,10116,10117,10117,10117,10118,10118, & - 10118,10118,10119,10119,10119,10119,10120,10120,10121,10121,10121,10122, & - 10122,10122,10123,10123,10124,10124,10124,10125,10125,10125,10125,10126, & - 10126,10126,10126,10127,10127,10127,10128,10128,10128,10128,10129,10129, & - 10129,10129,10129,10130,10130,10130,10131,10131,10131,10131,10132,10132, & - 10132,10133,10133,10133,10134,10134,10134,10135,10135,10135,10136,10136, & - 10136,10137,10137,10137,10138,10138,10139,10139,10139,10140,10140,10140, & - 10141,10141,10141,10142,10142,10142,10143,10143,10143,10143,10144,10144, & - 10144,10144,10145,10145,10145,10146,10146,10146,10146,10147,10147,10147, & - 10147,10147,10147,10148,10148,10148,10149,10149,10149,10149,10149,10149, & - 10150,10150,10150,10150,10151,10151,10151,10152,10152,10152,10153,10153, & - 10153,10153,10154,10154,10154,10155,10155,10155,10156,10156,10156,10157, & - 10157,10157,10158,10158,10158,10159,10159,10159,10159,10160,10160,10160, & - 10160,10161,10161,10162,10162,10162,10163,10163,10163,10163,10164,10164, & - 10164,10164,10165,10165,10166,10166,10166,10167,10167,10167,10167,10168, & - 10168,10168,10168,10169,10169,10170,10170,10170,10171,10171,10171,10172, & - 10172,10172,10173,10173,10173,10173,10174,10174,10175,10175,10175,10175, & - 10175,10175,10176,10176,10176,10177,10177,10177,10178,10178,10178,10179, & - 10179,10179,10179,10180,10180,10180,10181,10181,10181,10182,10182,10182, & - 10183,10183,10183,10184,10184,10184,10185,10185,10185,10186,10186,10186, & - 10187,10187,10187,10188,10188,10188,10189,10189,10189,10190,10190,10190, & - 10191,10191,10191,10192,10192,10192,10193,10193,10193,10194,10194,10194, & - 10195,10195,10195,10196,10196,10196,10197,10197,10197,10198,10198,10198, & - 10199,10199,10199,10200,10200,10200,10201,10201,10201,10202,10202,10202 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_91 = (/ & - 10202,10203,10203,10203,10204,10204,10204,10205,10205,10205,10205,10206, & - 10206,10206,10207,10207,10207,10207,10208,10208,10208,10209,10209,10209, & - 10210,10210,10210,10211,10211,10211,10211,10212,10212,10212,10212,10213, & - 10213,10214,10214,10214,10215,10215,10215,10215,10216,10216,10216,10216, & - 10217,10217,10218,10218,10218,10219,10219,10219,10219,10220,10220,10220, & - 10220,10221,10221,10222,10222,10223,10223,10223,10224,10224,10224,10224, & - 10225,10225,10225,10225,10226,10226,10227,10227,10227,10228,10228,10228, & - 10228,10229,10229,10229,10229,10230,10230,10231,10231,10231,10232,10232, & - 10232,10233,10233,10233,10234,10234,10234,10235,10235,10235,10235,10236, & - 10236,10236,10236,10237,10237,10238,10238,10238,10239,10239,10239,10240, & - 10240,10240,10241,10241,10241,10241,10242,10242,10242,10242,10243,10243, & - 10244,10244,10244,10245,10245,10245,10245,10246,10246,10246,10246,10247, & - 10247,10248,10248,10248,10249,10249,10249,10249,10250,10250,10250,10250, & - 10251,10251,10252,10252,10253,10253,10254,10254,10254,10255,10255,10255, & - 10255,10256,10256,10256,10256,10257,10257,10258,10258,10258,10259,10259, & - 10259,10259,10260,10260,10260,10260,10261,10261,10262,10262,10262,10263, & - 10263,10263,10264,10264,10264,10265,10265,10265,10266,10266,10266,10267, & - 10267,10267,10267,10268,10268,10268,10268,10269,10269,10270,10270,10270, & - 10271,10271,10271,10271,10272,10272,10272,10272,10273,10273,10274,10274, & - 10274,10275,10275,10275,10275,10276,10276,10276,10276,10277,10277,10278, & - 10278,10279,10279,10279,10280,10280,10280,10280,10281,10281,10281,10281, & - 10282,10282,10283,10283,10283,10284,10284,10284,10284,10285,10285,10285, & - 10285,10286,10286,10287,10287,10287,10288,10288,10288,10289,10289,10290, & - 10290,10290,10291,10291,10291,10292,10292,10292,10292,10293,10293,10293, & - 10293,10293,10294,10294,10294,10294,10294,10295,10295,10295,10295,10295, & - 10296,10296,10296,10296,10297,10297,10297,10298,10298,10298,10299,10299, & - 10299,10300,10300,10300,10301,10301,10301,10301,10302,10302,10302,10302, & - 10303,10303,10304,10304,10304,10305,10305,10305,10305,10306,10306,10306, & - 10306,10307,10307,10308,10308,10308,10309,10309,10309,10309,10310,10310, & - 10310,10310,10311,10311,10312,10312,10313,10313,10313,10314,10314,10314 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_92 = (/ & - 10314,10315,10315,10315,10315,10316,10316,10317,10317,10317,10318,10318, & - 10318,10318,10319,10319,10319,10319,10320,10320,10321,10321,10321,10322, & - 10322,10322,10323,10323,10323,10324,10324,10324,10325,10325,10325,10326, & - 10326,10326,10327,10327,10327,10327,10328,10328,10328,10328,10328,10328, & - 10329,10329,10329,10330,10330,10330,10331,10331,10331,10332,10332,10332, & - 10332,10333,10333,10333,10334,10334,10334,10335,10335,10335,10336,10336, & - 10336,10337,10337,10337,10338,10338,10339,10339,10339,10340,10340,10340, & - 10341,10341,10341,10342,10342,10342,10343,10343,10343,10344,10344,10344, & - 10344,10345,10345,10345,10346,10346,10346,10347,10347,10347,10348,10348, & - 10348,10349,10349,10349,10350,10350,10350,10351,10351,10351,10352,10352, & - 10352,10353,10353,10353,10353,10354,10354,10354,10354,10355,10355,10356, & - 10356,10356,10356,10357,10357,10357,10357,10357,10358,10358,10358,10358, & - 10359,10359,10359,10360,10360,10360,10361,10361,10361,10361,10361,10362, & - 10362,10362,10363,10363,10363,10363,10363,10364,10364,10364,10365,10365, & - 10365,10366,10366,10366,10367,10367,10367,10367,10368,10368,10368,10368, & - 10369,10369,10369,10369,10370,10370,10370,10371,10371,10371,10371,10371, & - 10372,10372,10372,10373,10373,10373,10373,10374,10374,10374,10374,10375, & - 10375,10375,10376,10376,10376,10376,10376,10377,10377,10377,10377,10378, & - 10378,10378,10379,10379,10379,10379,10380,10380,10380,10381,10381,10381, & - 10381,10382,10382,10382,10382,10383,10383,10383,10384,10384,10384,10385, & - 10385,10386,10386,10386,10386,10386,10387,10387,10387,10387,10388,10388, & - 10388,10388,10388,10389,10389,10389,10390,10390,10390,10390,10391,10391, & - 10391,10392,10392,10393,10393,10393,10394,10394,10394,10394,10395,10395, & - 10395,10395,10396,10396,10396,10396,10397,10397,10397,10398,10398,10399, & - 10399,10399,10400,10400,10400,10400,10401,10401,10401,10401,10402,10402, & - 10402,10402,10403,10403,10403,10404,10404,10404,10405,10405,10405,10406, & - 10406,10406,10407,10407,10407,10408,10408,10408,10408,10409,10409,10409, & - 10409,10410,10410,10411,10411,10411,10411,10411,10412,10412,10412,10412, & - 10412,10413,10413,10413,10414,10414,10414,10415,10415,10415,10415,10415, & - 10416,10416,10416,10417,10417,10417,10418,10418,10418,10418,10419,10419 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_93 = (/ & - 10419,10419,10419,10420,10420,10420,10420,10421,10421,10421,10422,10422, & - 10422,10423,10423,10423,10424,10424,10424,10424,10425,10425,10425,10425, & - 10426,10426,10426,10426,10427,10427,10428,10428,10428,10429,10429,10430, & - 10430,10430,10430,10431,10431,10431,10432,10432,10432,10433,10433,10433, & - 10433,10434,10434,10434,10434,10435,10435,10435,10435,10436,10436,10436, & - 10436,10437,10437,10437,10437,10438,10438,10438,10438,10439,10439,10439, & - 10439,10440,10440,10441,10441,10441,10442,10442,10442,10443,10443,10443, & - 10444,10444,10444,10444,10445,10445,10445,10445,10446,10446,10446,10447, & - 10447,10447,10448,10448,10448,10448,10449,10449,10449,10449,10449,10450, & - 10450,10450,10450,10450,10451,10451,10451,10452,10452,10452,10452,10453, & - 10453,10453,10454,10454,10454,10455,10455,10455,10455,10456,10456,10456, & - 10456,10457,10457,10458,10458,10458,10459,10459,10459,10459,10460,10460, & - 10460,10461,10461,10461,10461,10462,10462,10462,10462,10463,10463,10463, & - 10463,10464,10464,10464,10465,10465,10465,10466,10466,10466,10466,10466, & - 10467,10467,10467,10467,10467,10468,10468,10468,10469,10469,10469,10469, & - 10470,10470,10470,10471,10471,10471,10471,10471,10472,10472,10472,10473, & - 10473,10473,10474,10474,10474,10474,10475,10475,10475,10476,10476,10476, & - 10476,10476,10477,10477,10477,10477,10478,10478,10478,10479,10479,10479, & - 10480,10480,10480,10480,10481,10481,10481,10481,10482,10482,10482,10482, & - 10483,10483,10483,10484,10484,10484,10484,10485,10485,10485,10486,10486, & - 10486,10487,10487,10487,10487,10488,10488,10488,10488,10489,10489,10489, & - 10489,10490,10490,10490,10491,10491,10491,10491,10492,10492,10492,10493, & - 10493,10493,10493,10494,10494,10494,10494,10494,10495,10495,10495,10496, & - 10496,10496,10496,10496,10497,10497,10497,10498,10498,10498,10498,10499, & - 10499,10499,10499,10500,10500,10500,10500,10501,10501,10501,10501,10502, & - 10502,10502,10503,10503,10503,10503,10504,10504,10504,10505,10505,10505, & - 10506,10506,10506,10506,10506,10507,10507,10507,10508,10508,10509,10509, & - 10509,10510,10510,10511,10511,10511,10512,10512,10513,10513,10513,10514, & - 10514,10514,10515,10515,10515,10516,10516,10516,10516,10517,10517,10517, & - 10518,10518,10518,10519,10519,10519,10519,10520,10520,10520,10520,10521 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_94 = (/ & - 10521,10521,10521,10522,10522,10522,10522,10523,10523,10523,10524,10524, & - 10524,10525,10525,10525,10526,10526,10526,10526,10527,10527,10527,10527, & - 10528,10528,10528,10529,10529,10529,10529,10530,10530,10531,10531,10531, & - 10532,10532,10532,10533,10533,10533,10534,10534,10534,10534,10535,10535, & - 10535,10535,10536,10536,10537,10537,10538,10538,10539,10539,10539,10540, & - 10540,10540,10540,10541,10541,10541,10541,10542,10542,10543,10543,10543, & - 10544,10544,10545,10545,10545,10546,10546,10546,10547,10547,10547,10547, & - 10548,10548,10548,10549,10549,10549,10550,10550,10550,10550,10551,10551, & - 10551,10551,10552,10552,10552,10552,10553,10553,10553,10554,10554,10554, & - 10554,10555,10555,10555,10556,10556,10556,10557,10557,10557,10557,10558, & - 10558,10558,10558,10559,10559,10560,10560,10560,10561,10561,10561,10562, & - 10562,10562,10562,10563,10563,10563,10563,10564,10564,10565,10565,10566, & - 10566,10567,10567,10567,10568,10568,10568,10568,10569,10569,10569,10570, & - 10570,10570,10570,10571,10571,10571,10571,10572,10572,10572,10573,10573, & - 10573,10573,10574,10574,10575,10575,10576,10576,10576,10576,10577,10577, & - 10577,10577,10578,10578,10578,10579,10579,10579,10579,10580,10580,10580, & - 10581,10581,10581,10581,10582,10582,10583,10583,10584,10584,10584,10585, & - 10585,10585,10585,10586,10586,10586,10586,10587,10587,10588,10588,10588, & - 10589,10589,10589,10589,10590,10590,10590,10590,10591,10591,10592,10592, & - 10592,10592,10593,10593,10593,10594,10594,10594,10594,10595,10595,10595, & - 10595,10596,10596,10596,10597,10597,10597,10597,10598,10598,10599,10599, & - 10600,10600,10600,10601,10601,10601,10601,10602,10602,10602,10602,10603, & - 10603,10604,10604,10604,10605,10605,10605,10605,10606,10606,10606,10606, & - 10607,10607,10608,10608,10608,10609,10609,10609,10610,10610,10610,10610, & - 10610,10611,10611,10611,10612,10612,10613,10613,10613,10614,10614,10614, & - 10615,10615,10615,10616,10616,10616,10616,10617,10617,10617,10617,10618, & - 10618,10619,10619,10619,10620,10620,10620,10621,10621,10621,10621,10621, & - 10622,10622,10622,10623,10623,10623,10624,10624,10624,10625,10625,10625, & - 10626,10626,10627,10627,10628,10628,10628,10629,10629,10629,10630,10630, & - 10630,10631,10631,10631,10632,10632,10632,10632,10632,10632,10633,10633 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_95 = (/ & - 10633,10634,10634,10634,10635,10635,10635,10636,10636,10636,10637,10637, & - 10637,10638,10638,10638,10638,10638,10639,10639,10639,10640,10640,10640, & - 10641,10641,10641,10642,10642,10643,10643,10643,10644,10644,10644,10645, & - 10645,10646,10646,10646,10647,10647,10647,10648,10648,10648,10649,10649, & - 10649,10650,10650,10650,10650,10650,10651,10651,10651,10652,10652,10652, & - 10653,10653,10653,10654,10654,10655,10655,10655,10656,10656,10656,10657, & - 10657,10657,10657,10658,10658,10658,10659,10659,10659,10660,10660,10660, & - 10661,10661,10661,10662,10662,10662,10662,10662,10663,10663,10663,10664, & - 10664,10665,10665,10665,10666,10666,10666,10667,10667,10668,10668,10668, & - 10669,10669,10669,10669,10670,10670,10670,10671,10671,10672,10672,10672, & - 10673,10673,10673,10673,10674,10674,10675,10675,10675,10676,10676,10676, & - 10676,10677,10677,10677,10678,10678,10678,10679,10679,10680,10680,10680, & - 10680,10681,10681,10681,10682,10682,10682,10682,10683,10683,10683,10683, & - 10684,10684,10684,10684,10685,10685,10685,10686,10686,10686,10686,10687, & - 10687,10687,10687,10688,10688,10688,10689,10689,10689,10689,10690,10690, & - 10691,10691,10692,10692,10692,10693,10693,10693,10694,10694,10694,10694, & - 10694,10695,10695,10695,10696,10696,10696,10697,10697,10697,10698,10698, & - 10698,10699,10699,10699,10700,10700,10700,10700,10701,10701,10701,10701, & - 10702,10702,10703,10703,10704,10704,10704,10705,10705,10705,10706,10706, & - 10706,10706,10707,10707,10707,10707,10707,10708,10708,10708,10709,10709, & - 10709,10709,10710,10710,10710,10710,10711,10711,10712,10712,10713,10713, & - 10713,10714,10714,10714,10714,10715,10715,10715,10715,10716,10716,10716, & - 10716,10717,10717,10717,10718,10718,10718,10718,10719,10719,10720,10720, & - 10721,10721,10721,10722,10722,10722,10723,10723,10723,10723,10724,10724, & - 10724,10724,10725,10725,10726,10726,10727,10727,10728,10728,10728,10729, & - 10729,10729,10730,10730,10730,10730,10730,10731,10731,10731,10731,10732, & - 10732,10732,10732,10732,10733,10733,10733,10734,10734,10734,10734,10735, & - 10735,10735,10735,10736,10736,10737,10737,10738,10738,10738,10738,10739, & - 10739,10739,10740,10740,10740,10740,10741,10741,10741,10742,10742,10742, & - 10743,10743,10743,10744,10744,10744,10744,10745,10745,10745,10745,10746 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_96 = (/ & - 10746,10747,10747,10748,10748,10748,10749,10749,10749,10750,10750,10750, & - 10750,10751,10751,10751,10751,10752,10752,10753,10753,10754,10754,10754, & - 10755,10755,10755,10756,10756,10756,10757,10757,10757,10758,10758,10758, & - 10758,10758,10759,10759,10759,10760,10760,10761,10761,10762,10762,10762, & - 10763,10763,10763,10764,10764,10764,10765,10765,10765,10765,10765,10766, & - 10766,10766,10767,10767,10768,10768,10768,10769,10769,10769,10770,10770, & - 10770,10771,10771,10771,10772,10772,10772,10772,10773,10773,10773,10774, & - 10774,10774,10775,10775,10775,10775,10775,10776,10776,10776,10777,10777, & - 10777,10778,10778,10778,10779,10779,10779,10779,10780,10780,10781,10781, & - 10781,10782,10782,10782,10783,10783,10783,10784,10784,10784,10785,10785, & - 10785,10786,10786,10786,10787,10787,10787,10787,10788,10788,10788,10789, & - 10789,10789,10789,10790,10790,10790,10790,10791,10791,10793,10793,10794, & - 10794,10794,10795,10795,10795,10795,10796,10796,10796,10796,10797,10797, & - 10798,10798,10799,10799,10800,10800,10800,10801,10801,10801,10801,10802, & - 10802,10802,10802,10803,10803,10803,10803,10804,10804,10805,10805,10805, & - 10806,10806,10806,10807,10807,10807,10808,10808,10808,10808,10809,10809, & - 10809,10810,10810,10810,10810,10811,10811,10812,10812,10812,10813,10813, & - 10813,10814,10814,10814,10815,10815,10816,10816,10816,10817,10817,10817, & - 10818,10818,10818,10818,10819,10819,10819,10820,10820,10820,10820,10821, & - 10821,10821,10822,10822,10822,10823,10823,10823,10823,10823,10824,10824, & - 10824,10825,10825,10826,10826,10826,10827,10827,10827,10827,10828,10828, & - 10828,10829,10829,10829,10829,10830,10830,10830,10831,10831,10831,10831, & - 10832,10832,10832,10832,10833,10833,10834,10834,10834,10835,10835,10835, & - 10835,10836,10836,10836,10837,10837,10837,10837,10838,10838,10838,10838, & - 10839,10839,10839,10839,10840,10840,10840,10840,10841,10841,10842,10842, & - 10842,10843,10843,10843,10843,10843,10844,10844,10844,10844,10845,10845, & - 10845,10845,10846,10846,10846,10846,10847,10847,10847,10847,10848,10848, & - 10848,10848,10849,10849,10850,10850,10850,10851,10851,10851,10851,10852, & - 10852,10852,10853,10853,10854,10854,10854,10855,10855,10855,10855,10856, & - 10856,10857,10857,10857,10858,10858,10858,10859,10859,10859,10859,10860 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_97 = (/ & - 10860,10860,10860,10861,10861,10861,10862,10862,10862,10863,10863,10863, & - 10864,10864,10864,10864,10864,10865,10865,10865,10866,10866,10867,10867, & - 10868,10868,10868,10869,10869,10869,10870,10870,10870,10871,10871,10871, & - 10871,10871,10872,10872,10872,10873,10873,10874,10874,10874,10875,10875, & - 10875,10876,10876,10876,10876,10877,10877,10877,10878,10878,10878,10878, & - 10879,10879,10880,10880,10880,10881,10881,10881,10881,10882,10882,10882, & - 10883,10883,10884,10884,10884,10884,10885,10885,10885,10886,10886,10886, & - 10887,10887,10887,10887,10888,10888,10888,10888,10888,10889,10889,10889, & - 10889,10890,10890,10890,10891,10891,10891,10891,10892,10892,10892,10892, & - 10893,10893,10893,10894,10894,10894,10894,10895,10895,10896,10896,10897, & - 10897,10897,10898,10898,10898,10899,10899,10899,10899,10900,10900,10900, & - 10900,10901,10901,10902,10902,10903,10903,10904,10904,10904,10905,10905, & - 10905,10905,10906,10906,10906,10906,10907,10907,10907,10907,10908,10908, & - 10908,10909,10909,10909,10910,10910,10910,10910,10911,10911,10911,10911, & - 10912,10912,10913,10913,10914,10914,10915,10915,10915,10916,10916,10916, & - 10917,10917,10917,10917,10917,10918,10918,10918,10918,10919,10919,10919, & - 10920,10920,10921,10921,10921,10922,10922,10922,10922,10923,10923,10923, & - 10924,10924,10925,10925,10925,10926,10926,10926,10926,10927,10927,10927, & - 10928,10928,10928,10929,10929,10929,10930,10930,10930,10931,10931,10931, & - 10931,10932,10932,10932,10933,10933,10934,10934,10934,10935,10935,10935, & - 10936,10936,10936,10937,10937,10937,10938,10938,10938,10938,10939,10939, & - 10939,10940,10940,10940,10941,10941,10941,10941,10942,10942,10942,10942, & - 10943,10943,10944,10944,10945,10945,10946,10946,10946,10947,10947,10947, & - 10948,10948,10948,10948,10949,10949,10949,10950,10950,10950,10950,10951, & - 10951,10952,10952,10952,10953,10953,10953,10954,10954,10954,10955,10955, & - 10955,10955,10956,10956,10956,10957,10957,10957,10958,10958,10958,10958, & - 10958,10959,10959,10959,10959,10960,10960,10960,10961,10961,10961,10962, & - 10962,10962,10962,10962,10963,10963,10963,10963,10964,10964,10964,10964, & - 10965,10965,10965,10966,10966,10966,10967,10967,10967,10968,10968,10968, & - 10968,10969,10969,10969,10969,10970,10970,10970,10971,10971,10971,10971 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_98 = (/ & - 10972,10972,10973,10973,10974,10974,10974,10975,10975,10975,10975,10976, & - 10976,10976,10976,10977,10977,10978,10978,10978,10979,10979,10979,10979, & - 10980,10980,10980,10980,10981,10981,10982,10982,10982,10983,10983,10983, & - 10983,10984,10984,10984,10984,10985,10985,10986,10986,10986,10987,10987, & - 10987,10988,10988,10988,10989,10989,10989,10990,10990,10990,10990,10990, & - 10991,10991,10991,10992,10992,10992,10993,10993,10993,10993,10994,10994, & - 10994,10994,10994,10995,10995,10995,10996,10996,10996,10996,10997,10997, & - 10997,10998,10998,10998,10999,10999,10999,10999,10999,11000,11000,11000, & - 11001,11001,11001,11001,11001,11002,11002,11003,11003,11003,11004,11004, & - 11004,11004,11005,11005,11005,11006,11006,11006,11006,11007,11007,11007, & - 11007,11008,11008,11008,11009,11009,11009,11009,11010,11010,11011,11011, & - 11012,11012,11012,11013,11013,11013,11014,11014,11014,11015,11015,11015, & - 11016,11016,11016,11016,11016,11017,11017,11017,11017,11018,11018,11018, & - 11019,11019,11019,11019,11020,11020,11020,11020,11021,11021,11021,11022, & - 11022,11022,11022,11023,11023,11024,11024,11025,11025,11025,11026,11026, & - 11026,11027,11027,11027,11028,11028,11028,11028,11028,11029,11029,11029, & - 11030,11030,11031,11031,11031,11032,11032,11032,11032,11033,11033,11033, & - 11033,11034,11034,11034,11035,11035,11035,11035,11036,11036,11036,11036, & - 11037,11037,11037,11038,11038,11038,11038,11039,11039,11039,11039,11040, & - 11040,11040,11041,11041,11041,11041,11042,11042,11043,11043,11044,11044, & - 11044,11045,11045,11045,11046,11046,11046,11047,11047,11047,11048,11048, & - 11048,11048,11048,11049,11049,11049,11050,11050,11050,11051,11051,11051, & - 11051,11052,11052,11052,11053,11053,11053,11053,11053,11054,11054,11054, & - 11054,11055,11055,11055,11056,11056,11056,11056,11057,11057,11057,11057, & - 11058,11058,11058,11059,11059,11059,11059,11060,11060,11061,11061,11062, & - 11062,11062,11063,11063,11063,11063,11064,11064,11064,11064,11065,11065, & - 11066,11066,11067,11067,11067,11068,11068,11069,11069,11069,11070,11070, & - 11070,11070,11071,11071,11072,11072,11072,11073,11073,11073,11073,11074, & - 11074,11074,11075,11075,11075,11076,11076,11076,11077,11077,11077,11078, & - 11078,11078,11078,11078,11079,11079,11079,11080,11080,11080,11080,11081 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_99 = (/ & - 11081,11082,11082,11082,11083,11083,11083,11084,11084,11084,11085,11085, & - 11085,11085,11086,11086,11086,11086,11087,11087,11087,11087,11088,11088, & - 11088,11089,11089,11089,11090,11090,11090,11091,11091,11091,11091,11091, & - 11092,11092,11092,11093,11093,11093,11094,11094,11094,11095,11095,11095, & - 11096,11096,11096,11096,11096,11097,11097,11097,11098,11098,11099,11099, & - 11099,11100,11100,11100,11100,11101,11101,11101,11101,11102,11102,11102, & - 11102,11103,11103,11103,11103,11104,11104,11104,11105,11105,11105,11106, & - 11106,11106,11106,11107,11107,11107,11108,11108,11109,11109,11109,11110, & - 11110,11110,11110,11111,11111,11111,11111,11112,11112,11112,11113,11113, & - 11113,11113,11114,11114,11114,11115,11115,11115,11115,11116,11116,11116, & - 11116,11117,11117,11117,11118,11118,11118,11118,11119,11119,11119,11119, & - 11120,11120,11120,11121,11121,11121,11121,11122,11122,11123,11123,11124, & - 11124,11124,11125,11125,11125,11126,11126,11126,11127,11127,11127,11128, & - 11128,11128,11128,11128,11129,11129,11129,11130,11130,11130,11131,11131, & - 11131,11132,11132,11132,11132,11132,11133,11133,11133,11133,11134,11134, & - 11134,11135,11135,11135,11136,11136,11136,11137,11137,11138,11138,11138, & - 11139,11139,11139,11140,11140,11140,11140,11141,11141,11141,11141,11142, & - 11142,11142,11143,11143,11143,11144,11144,11144,11144,11145,11145,11145, & - 11146,11146,11146,11147,11147,11147,11147,11148,11148,11148,11149,11149, & - 11149,11150,11150,11150,11151,11151,11151,11152,11152,11152,11153,11153, & - 11153,11153,11153,11153,11154,11154,11154,11155,11155,11155,11156,11156, & - 11157,11157,11157,11158,11158,11158,11158,11159,11159,11159,11160,11160, & - 11160,11160,11161,11161,11161,11161,11162,11162,11162,11162,11163,11163, & - 11163,11164,11164,11164,11165,11165,11165,11166,11166,11166,11167,11167, & - 11167,11168,11168,11168,11168,11168,11169,11169,11169,11170,11170,11170, & - 11171,11171,11171,11172,11172,11172,11173,11173,11173,11173,11173,11174, & - 11174,11174,11175,11175,11175,11176,11176,11176,11176,11177,11177,11177, & - 11177,11178,11178,11179,11179,11180,11180,11181,11181,11181,11182,11182, & - 11182,11182,11183,11183,11183,11183,11184,11184,11185,11185,11186,11186, & - 11187,11187,11187,11188,11188,11188,11188,11189,11189,11189,11189,11190 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_100 = (/ & - 11190,11191,11191,11192,11192,11193,11193,11193,11194,11194,11194,11194, & - 11195,11195,11195,11196,11196,11196,11197,11197,11197,11198,11198,11198, & - 11199,11199,11199,11200,11200,11200,11201,11201,11202,11202,11202,11203, & - 11203,11203,11203,11204,11204,11204,11204,11205,11205,11205,11206,11206, & - 11206,11207,11207,11207,11208,11208,11208,11208,11209,11209,11209,11210, & - 11210,11210,11210,11211,11211,11212,11212,11212,11213,11213,11213,11214, & - 11214,11214,11215,11215,11215,11216,11216,11216,11216,11217,11217,11217, & - 11217,11218,11218,11218,11219,11219,11219,11220,11220,11220,11220,11221, & - 11221,11221,11221,11222,11222,11223,11223,11224,11224,11224,11225,11225, & - 11225,11225,11226,11226,11226,11226,11227,11227,11228,11228,11229,11229, & - 11229,11230,11230,11230,11230,11231,11231,11231,11231,11232,11232,11233, & - 11233,11234,11234,11235,11235,11235,11236,11236,11236,11237,11237,11237, & - 11238,11238,11238,11239,11239,11240,11240,11240,11241,11241,11241,11242, & - 11242,11242,11242,11243,11243,11244,11244,11244,11244,11245,11245,11245, & - 11245,11246,11246,11246,11246,11247,11247,11247,11248,11248,11248,11249, & - 11249,11249,11250,11250,11250,11251,11251,11251,11252,11252,11252,11252, & - 11252,11253,11253,11253,11254,11254,11255,11255,11255,11256,11256,11256, & - 11256,11257,11257,11257,11257,11258,11258,11258,11259,11259,11259,11259, & - 11260,11260,11260,11260,11261,11261,11261,11261,11262,11262,11262,11263, & - 11263,11263,11263,11264,11264,11264,11264,11265,11265,11266,11266,11267, & - 11267,11268,11268,11268,11269,11269,11269,11270,11270,11270,11271,11271, & - 11271,11272,11272,11273,11273,11273,11274,11274,11274,11274,11275,11275, & - 11275,11275,11276,11276,11276,11276,11277,11277,11277,11277,11278,11278, & - 11278,11279,11279,11279,11279,11280,11280,11280,11281,11281,11281,11281, & - 11282,11282,11282,11282,11283,11283,11284,11284,11285,11285,11286,11286, & - 11286,11287,11287,11287,11288,11288,11288,11289,11289,11289,11290,11290, & - 11290,11291,11291,11291,11291,11292,11292,11292,11293,11293,11294,11294, & - 11294,11295,11295,11295,11295,11296,11296,11296,11296,11297,11297,11297, & - 11297,11298,11298,11298,11298,11299,11299,11299,11300,11300,11300,11300, & - 11301,11301,11301,11302,11302,11302,11302,11303,11303,11303,11303,11304 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_101 = (/ & - 11304,11305,11305,11306,11306,11307,11307,11307,11308,11308,11308,11309, & - 11309,11309,11310,11310,11310,11311,11311,11311,11312,11312,11312,11312, & - 11313,11313,11313,11314,11314,11315,11315,11315,11316,11316,11316,11316, & - 11317,11317,11317,11317,11318,11318,11318,11318,11319,11319,11319,11319, & - 11320,11320,11320,11321,11321,11321,11321,11322,11322,11322,11323,11323, & - 11323,11323,11324,11324,11324,11324,11325,11325,11326,11326,11327,11327, & - 11328,11328,11328,11329,11329,11329,11330,11330,11330,11331,11331,11331, & - 11332,11332,11332,11333,11333,11333,11333,11334,11334,11334,11335,11335, & - 11336,11336,11336,11337,11337,11337,11337,11338,11338,11338,11338,11339, & - 11339,11339,11339,11340,11340,11340,11340,11341,11341,11341,11342,11342, & - 11342,11342,11343,11343,11343,11343,11344,11344,11344,11345,11345,11345, & - 11345,11346,11346,11346,11346,11347,11347,11347,11348,11348,11348,11348, & - 11349,11349,11350,11350,11351,11351,11351,11352,11352,11352,11352,11353, & - 11353,11353,11353,11354,11354,11355,11355,11356,11356,11357,11357,11357, & - 11358,11358,11358,11359,11359,11359,11360,11360,11361,11361,11361,11362, & - 11362,11362,11362,11363,11363,11363,11364,11364,11364,11365,11365,11365, & - 11365,11366,11366,11366,11367,11367,11367,11368,11368,11368,11369,11369, & - 11369,11369,11369,11370,11370,11370,11370,11371,11371,11371,11371,11372, & - 11372,11372,11372,11373,11373,11373,11374,11374,11374,11375,11375,11375, & - 11375,11376,11376,11376,11376,11377,11377,11378,11378,11379,11379,11380, & - 11380,11380,11381,11381,11381,11381,11382,11382,11382,11382,11383,11383, & - 11384,11384,11384,11385,11385,11385,11385,11386,11386,11386,11386,11387, & - 11387,11388,11388,11388,11389,11389,11389,11390,11390,11390,11391,11391, & - 11391,11392,11392,11392,11392,11393,11393,11393,11394,11394,11394,11395, & - 11395,11395,11395,11396,11396,11396,11397,11397,11397,11398,11398,11398, & - 11399,11399,11400,11400,11400,11401,11401,11402,11402,11402,11403,11403, & - 11403,11403,11404,11404,11404,11405,11405,11405,11406,11406,11406,11407, & - 11407,11408,11408,11408,11409,11409,11410,11410,11410,11411,11411,11411, & - 11411,11412,11412,11412,11413,11413,11413,11413,11414,11414,11414,11414, & - 11415,11415,11416,11416,11416,11417,11417,11417,11417,11418,11418,11418 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_102 = (/ & - 11418,11419,11419,11420,11420,11420,11421,11421,11421,11422,11422,11422, & - 11423,11423,11423,11424,11424,11424,11424,11425,11425,11425,11426,11426, & - 11426,11427,11427,11427,11427,11428,11428,11428,11428,11428,11429,11429, & - 11429,11429,11430,11430,11430,11430,11431,11431,11431,11431,11432,11432, & - 11432,11433,11433,11433,11433,11434,11434,11434,11435,11435,11435,11436, & - 11436,11436,11437,11437,11437,11438,11438,11438,11439,11439,11439,11440, & - 11440,11440,11441,11441,11441,11441,11442,11442,11442,11442,11443,11443, & - 11444,11444,11444,11445,11445,11445,11445,11446,11446,11446,11446,11447, & - 11447,11448,11448,11448,11449,11449,11449,11449,11450,11450,11450,11450, & - 11451,11451,11452,11452,11452,11453,11453,11453,11454,11454,11454,11455, & - 11455,11455,11456,11456,11456,11457,11457,11458,11458,11458,11459,11459, & - 11460,11460,11460,11461,11461,11461,11461,11462,11462,11462,11463,11463, & - 11463,11464,11464,11464,11464,11465,11465,11465,11466,11466,11466,11467, & - 11467,11467,11467,11468,11468,11468,11469,11469,11469,11470,11470,11470, & - 11470,11471,11471,11471,11472,11472,11472,11472,11473,11473,11473,11474, & - 11474,11474,11474,11475,11475,11475,11475,11476,11476,11477,11477,11477, & - 11477,11478,11478,11478,11479,11479,11479,11479,11480,11480,11480,11481, & - 11481,11481,11481,11482,11482,11482,11482,11483,11483,11484,11484,11485, & - 11485,11485,11486,11486,11486,11486,11487,11487,11487,11487,11488,11488, & - 11489,11489,11489,11490,11490,11490,11490,11491,11491,11491,11491,11492, & - 11492,11493,11493,11493,11494,11494,11494,11495,11495,11495,11496,11496, & - 11496,11497,11497,11497,11498,11498,11498,11499,11499,11499,11500,11500, & - 11501,11501,11501,11502,11502,11502,11503,11503,11503,11504,11504,11504, & - 11504,11505,11505,11505,11506,11506,11506,11507,11507,11507,11507,11508, & - 11508,11508,11509,11509,11509,11509,11510,11510,11510,11510,11511,11511, & - 11512,11512,11512,11512,11513,11513,11513,11514,11514,11514,11514,11515, & - 11515,11515,11515,11516,11516,11517,11517,11517,11518,11518,11518,11518, & - 11519,11519,11519,11519,11520,11520,11521,11521,11521,11522,11522,11522, & - 11523,11523,11523,11524,11524,11524,11525,11525,11525,11526,11526,11526, & - 11527,11527,11527,11528,11528,11529,11529,11529,11530,11530,11530,11531 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_103 = (/ & - 11531,11531,11532,11532,11532,11532,11533,11533,11533,11534,11534,11534, & - 11535,11535,11535,11535,11536,11536,11536,11537,11537,11537,11537,11538, & - 11538,11538,11538,11539,11539,11540,11540,11540,11541,11541,11541,11541, & - 11542,11542,11542,11542,11543,11543,11544,11544,11544,11545,11545,11545, & - 11546,11546,11546,11547,11547,11547,11548,11548,11548,11549,11549,11550, & - 11550,11550,11551,11551,11552,11552,11552,11553,11553,11553,11553,11554, & - 11554,11554,11555,11555,11555,11556,11556,11556,11556,11557,11557,11557, & - 11558,11558,11558,11559,11559,11559,11559,11560,11560,11560,11561,11561, & - 11561,11561,11562,11562,11562,11562,11563,11563,11563,11563,11563,11564, & - 11564,11564,11564,11565,11565,11565,11565,11566,11566,11566,11566,11567, & - 11567,11567,11568,11568,11568,11568,11569,11569,11569,11569,11570,11570, & - 11570,11570,11570,11571,11571,11571,11572,11572,11572,11573,11573,11573, & - 11574,11574,11574,11574,11575,11575,11575,11576,11576,11576,11576,11577, & - 11577,11577,11577,11578,11578,11579,11579,11579,11580,11580,11580,11580, & - 11581,11581,11581,11581,11582,11582,11583,11583,11583,11584,11584,11584, & - 11585,11585,11585,11586,11586,11586,11587,11587,11587,11588,11588,11589, & - 11589,11589,11590,11590,11591,11591,11591,11592,11592,11592,11592,11593, & - 11593,11593,11594,11594,11594,11595,11595,11595,11595,11596,11596,11596, & - 11597,11597,11597,11598,11598,11598,11598,11599,11599,11599,11600,11600, & - 11600,11601,11601,11601,11601,11601,11602,11602,11602,11603,11603,11603, & - 11603,11603,11604,11604,11604,11605,11605,11605,11605,11605,11606,11606, & - 11606,11606,11607,11607,11607,11607,11608,11608,11608,11608,11608,11609, & - 11609,11609,11609,11610,11610,11610,11610,11611,11611,11611,11611,11612, & - 11612,11612,11613,11613,11613,11613,11614,11614,11614,11614,11615,11615, & - 11615,11615,11615,11616,11616,11616,11617,11617,11617,11618,11618,11618, & - 11618,11619,11619,11619,11619,11620,11620,11621,11621,11621,11622,11622, & - 11622,11622,11623,11623,11623,11623,11624,11624,11625,11625,11625,11626, & - 11626,11626,11627,11627,11627,11628,11628,11628,11629,11629,11629,11630, & - 11630,11631,11631,11631,11632,11632,11633,11633,11633,11634,11634,11634, & - 11634,11635,11635,11635,11636,11636,11636,11637,11637,11637,11637,11638 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_104 = (/ & - 11638,11638,11639,11639,11639,11640,11640,11640,11640,11641,11641,11641, & - 11642,11642,11642,11643,11643,11643,11643,11643,11644,11644,11644,11645, & - 11645,11645,11645,11645,11646,11646,11646,11647,11647,11647,11647,11647, & - 11648,11648,11648,11648,11649,11649,11649,11649,11650,11650,11650,11650, & - 11650,11651,11651,11651,11651,11652,11652,11652,11652,11653,11653,11653, & - 11653,11654,11654,11654,11655,11655,11655,11655,11656,11656,11656,11656, & - 11656,11657,11657,11657,11657,11657,11658,11658,11658,11659,11659,11659, & - 11660,11660,11660,11661,11661,11661,11662,11662,11662,11662,11663,11663, & - 11663,11663,11664,11664,11665,11665,11665,11666,11666,11666,11666,11667, & - 11667,11667,11667,11668,11668,11669,11669,11669,11670,11670,11670,11671, & - 11671,11671,11672,11672,11672,11673,11673,11673,11673,11674,11674,11674, & - 11675,11675,11675,11676,11676,11676,11676,11677,11677,11677,11678,11678, & - 11678,11679,11679,11679,11680,11680,11680,11680,11681,11681,11681,11681, & - 11682,11682,11683,11683,11683,11684,11684,11684,11684,11685,11685,11685, & - 11685,11686,11686,11687,11687,11687,11688,11688,11688,11688,11689,11689, & - 11689,11689,11690,11690,11691,11691,11691,11692,11692,11692,11693,11693, & - 11693,11694,11694,11694,11695,11695,11695,11696,11696,11696,11697,11697, & - 11697,11698,11698,11699,11699,11699,11700,11700,11700,11701,11701,11701, & - 11702,11702,11702,11702,11703,11703,11703,11704,11704,11704,11705,11705, & - 11705,11705,11706,11706,11706,11707,11707,11707,11707,11708,11708,11708, & - 11708,11709,11709,11710,11710,11710,11711,11711,11711,11712,11712,11712, & - 11712,11713,11713,11713,11714,11714,11714,11714,11715,11715,11715,11715, & - 11716,11716,11717,11717,11717,11718,11718,11718,11718,11719,11719,11719, & - 11719,11720,11720,11721,11721,11721,11722,11722,11722,11723,11723,11723, & - 11724,11724,11724,11725,11725,11725,11726,11726,11727,11727,11727,11728, & - 11728,11729,11729,11729,11730,11730,11730,11730,11731,11731,11731,11732, & - 11732,11732,11733,11733,11733,11733,11734,11734,11734,11735,11735,11735, & - 11736,11736,11736,11736,11737,11737,11737,11738,11738,11738,11738,11739, & - 11739,11739,11739,11740,11740,11741,11741,11741,11742,11742,11742,11742, & - 11743,11743,11743,11743,11744,11744,11745,11745,11745,11746,11746,11746 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_105 = (/ & - 11747,11747,11747,11748,11748,11748,11749,11749,11749,11750,11750,11750, & - 11751,11751,11751,11752,11752,11753,11753,11753,11754,11754,11754,11755, & - 11755,11755,11756,11756,11756,11756,11757,11757,11757,11758,11758,11758, & - 11759,11759,11759,11759,11760,11760,11760,11761,11761,11761,11761,11762, & - 11762,11762,11762,11763,11763,11764,11764,11764,11765,11765,11765,11765, & - 11766,11766,11766,11766,11767,11767,11768,11768,11768,11769,11769,11769, & - 11770,11770,11770,11771,11771,11771,11772,11772,11772,11773,11773,11773, & - 11774,11774,11774,11775,11775,11776,11776,11776,11777,11777,11777,11778, & - 11778,11778,11779,11779,11779,11779,11780,11780,11780,11781,11781,11781, & - 11782,11782,11782,11782,11783,11783,11783,11783,11784,11784,11784,11785, & - 11785,11785,11785,11786,11786,11786,11787,11787,11787,11787,11788,11788, & - 11788,11788,11789,11789,11790,11790,11790,11791,11791,11791,11792,11792, & - 11792,11793,11793,11793,11793,11794,11794,11794,11794,11795,11795,11795, & - 11796,11796,11796,11797,11797,11797,11797,11797,11798,11798,11798,11798, & - 11799,11799,11799,11800,11800,11800,11800,11800,11801,11801,11801,11801, & - 11802,11802,11802,11803,11803,11803,11803,11804,11804,11805,11805,11805, & - 11806,11806,11806,11807,11807,11807,11807,11808,11808,11808,11809,11809, & - 11809,11810,11810,11810,11810,11811,11811,11811,11812,11812,11812,11812, & - 11813,11813,11813,11814,11814,11814,11814,11815,11815,11816,11816,11816, & - 11816,11816,11817,11817,11817,11817,11818,11818,11818,11819,11819,11819, & - 11820,11820,11820,11820,11821,11821,11821,11821,11822,11822,11823,11823, & - 11823,11824,11824,11824,11824,11825,11825,11825,11825,11826,11826,11826, & - 11826,11827,11827,11827,11828,11828,11828,11828,11829,11829,11829,11830, & - 11830,11830,11830,11831,11831,11831,11832,11832,11832,11832,11833,11833, & - 11834,11834,11834,11835,11835,11835,11836,11836,11836,11837,11837,11837, & - 11837,11838,11838,11838,11839,11839,11839,11839,11839,11840,11840,11840, & - 11840,11840,11841,11841,11841,11842,11842,11842,11842,11843,11843,11843, & - 11844,11844,11844,11844,11844,11845,11845,11845,11846,11846,11846,11846, & - 11847,11847,11847,11847,11848,11848,11848,11849,11849,11849,11849,11850, & - 11850,11850,11850,11851,11851,11851,11852,11852,11852,11852,11853,11853 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_106 = (/ & - 11854,11854,11854,11855,11855,11855,11855,11856,11856,11856,11857,11857, & - 11857,11857,11857,11858,11858,11858,11858,11859,11859,11859,11860,11860, & - 11860,11861,11861,11861,11861,11861,11862,11862,11862,11863,11863,11863, & - 11863,11863,11864,11864,11864,11865,11865,11865,11866,11866,11866,11867, & - 11867,11867,11867,11867,11868,11868,11868,11869,11869,11869,11869,11869, & - 11870,11870,11870,11871,11871,11871,11872,11872,11872,11873,11873,11873, & - 11873,11873,11874,11874,11874,11874,11875,11875,11875,11876,11876,11876, & - 11876,11876,11877,11877,11877,11877,11878,11878,11878,11879,11879,11879, & - 11879,11880,11880,11880,11880,11880,11881,11881,11882,11882,11882,11883, & - 11883,11883,11884,11884,11884,11884,11884,11885,11885,11885,11885,11886, & - 11886,11886,11886,11887,11887,11887,11888,11888,11888,11888,11888,11889, & - 11889,11889,11890,11890,11890,11890,11890,11891,11891,11891,11892,11892, & - 11893,11893,11893,11893,11893,11894,11894,11894,11894,11895,11895,11895, & - 11896,11896,11896,11896,11897,11897,11897,11898,11898,11898,11898,11899, & - 11899,11899,11900,11900,11901,11901,11901,11902,11902,11902,11903,11903, & - 11903,11903,11904,11904,11904,11905,11905,11905,11905,11905,11906,11906, & - 11906,11907,11907,11907,11907,11907,11908,11908,11908,11909,11909,11910, & - 11910,11910,11910,11911,11911,11911,11911,11912,11912,11912,11913,11913, & - 11913,11913,11914,11914,11914,11915,11915,11915,11915,11916,11916,11916, & - 11917,11917,11917,11918,11918,11918,11919,11919,11919,11920,11920,11920, & - 11920,11921,11921,11921,11921,11922,11922,11923,11923,11924,11924,11924, & - 11925,11925,11925,11925,11926,11926,11926,11926,11927,11927,11928,11928, & - 11928,11928,11929,11929,11929,11930,11930,11930,11930,11930,11931,11931, & - 11931,11931,11931,11932,11932,11932,11933,11933,11933,11933,11933,11934, & - 11934,11935,11935,11935,11936,11936,11937,11937,11937,11937,11938,11938, & - 11938,11939,11939,11939,11939,11940,11940,11940,11940,11941,11941,11941, & - 11941,11942,11942,11943,11943,11944,11944,11944,11945,11945,11945,11946, & - 11946,11946,11946,11946,11947,11947,11947,11948,11948,11949,11949,11949, & - 11950,11950,11950,11951,11951,11951,11951,11952,11952,11952,11953,11953, & - 11953,11954,11954,11954,11954,11955,11955,11955,11956,11956,11956,11957 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_107 = (/ & - 11957,11957,11957,11958,11958,11958,11958,11959,11959,11959,11960,11960, & - 11960,11960,11961,11961,11961,11961,11962,11962,11962,11963,11963,11963, & - 11963,11964,11964,11964,11965,11965,11965,11965,11966,11966,11967,11967, & - 11967,11968,11968,11968,11968,11968,11969,11969,11969,11970,11970,11970, & - 11971,11971,11972,11972,11972,11973,11973,11973,11973,11974,11974,11974, & - 11974,11975,11975,11975,11975,11976,11976,11976,11976,11977,11977,11977, & - 11978,11978,11978,11978,11979,11979,11979,11979,11980,11980,11980,11981, & - 11981,11981,11981,11982,11982,11982,11983,11983,11983,11983,11984,11984, & - 11985,11985,11985,11986,11986,11986,11987,11987,11987,11988,11988,11988, & - 11989,11989,11989,11989,11989,11989,11990,11990,11990,11991,11991,11991, & - 11992,11992,11992,11993,11993,11993,11994,11994,11994,11994,11994,11995, & - 11995,11995,11996,11996,11996,11997,11997,11997,11998,11998,11998,11999, & - 11999,11999,12000,12000,12000,12001,12001,12001,12002,12002,12002,12003, & - 12003,12003,12004,12004,12004,12005,12005,12005,12006,12006,12006,12007, & - 12007,12007,12007,12007,12008,12008,12008,12009,12009,12009,12010,12010, & - 12010,12011,12011,12011,12012,12012,12012,12013,12013,12014,12014,12014, & - 12014,12015,12015,12015,12016,12016,12016,12017,12017,12017,12018,12018, & - 12018,12019,12019,12019,12019,12020,12020,12020,12020,12021,12021,12022, & - 12022,12023,12023,12023,12024,12024,12024,12025,12025,12025,12026,12026, & - 12026,12027,12027,12027,12028,12028,12028,12028,12029,12029,12029,12029, & - 12030,12030,12031,12031,12032,12032,12033,12033,12033,12034,12034,12034, & - 12034,12035,12035,12035,12035,12036,12036,12036,12036,12037,12037,12037, & - 12038,12038,12038,12038,12039,12039,12040,12040,12041,12041,12041,12041, & - 12042,12042,12042,12043,12043,12043,12043,12044,12044,12044,12045,12045, & - 12045,12045,12046,12046,12046,12046,12047,12047,12048,12048,12048,12049, & - 12049,12049,12050,12050,12050,12050,12051,12051,12051,12051,12052,12052, & - 12053,12053,12054,12054,12054,12055,12055,12055,12055,12056,12056,12056, & - 12056,12057,12057,12058,12058,12058,12058,12059,12059,12059,12059,12060, & - 12060,12060,12061,12061,12061,12061,12062,12062,12062,12063,12063,12063, & - 12064,12064,12064,12064,12065,12065,12065,12065,12066,12066,12067,12067 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_108 = (/ & - 12068,12068,12068,12069,12069,12069,12069,12070,12070,12070,12070,12071, & - 12071,12072,12072,12073,12073,12074,12074,12074,12075,12075,12075,12076, & - 12076,12076,12076,12077,12077,12077,12077,12078,12078,12079,12079,12080, & - 12080,12080,12080,12081,12081,12081,12082,12082,12082,12082,12083,12083, & - 12083,12083,12084,12084,12084,12085,12085,12085,12085,12086,12086,12087, & - 12087,12088,12088,12088,12089,12089,12089,12089,12090,12090,12090,12090, & - 12091,12091,12092,12092,12093,12093,12094,12094,12094,12095,12095,12095, & - 12096,12096,12096,12097,12097,12097,12098,12098,12098,12099,12099,12099, & - 12100,12100,12100,12100,12101,12101,12101,12101,12102,12102,12103,12103, & - 12104,12104,12105,12105,12105,12105,12105,12106,12106,12106,12107,12107, & - 12107,12108,12108,12108,12108,12109,12109,12109,12109,12110,12110,12111, & - 12111,12112,12112,12113,12113,12113,12114,12114,12114,12115,12115,12115, & - 12115,12115,12116,12116,12116,12117,12117,12118,12118,12118,12119,12119, & - 12119,12120,12120,12120,12121,12121,12121,12122,12122,12122,12123,12123, & - 12123,12123,12124,12124,12124,12125,12125,12125,12126,12126,12126,12127, & - 12127,12127,12128,12128,12128,12129,12129,12129,12129,12129,12130,12130, & - 12130,12131,12131,12132,12132,12132,12133,12133,12133,12133,12134,12134, & - 12134,12135,12135,12136,12136,12136,12137,12137,12137,12137,12138,12138, & - 12138,12139,12139,12139,12140,12140,12140,12141,12141,12141,12141,12142, & - 12142,12142,12143,12143,12143,12144,12144,12144,12144,12145,12145,12145, & - 12146,12146,12146,12146,12147,12147,12147,12147,12148,12148,12148,12149, & - 12149,12149,12149,12150,12150,12151,12151,12152,12152,12152,12153,12153, & - 12153,12154,12154,12154,12154,12155,12155,12155,12155,12156,12156,12157, & - 12157,12158,12158,12159,12159,12159,12160,12160,12160,12160,12161,12161, & - 12161,12161,12162,12162,12163,12163,12164,12164,12164,12165,12165,12165, & - 12166,12166,12166,12166,12166,12167,12167,12167,12167,12168,12168,12168, & - 12169,12169,12169,12170,12170,12171,12171,12171,12172,12172,12172,12172, & - 12173,12173,12173,12174,12174,12175,12175,12175,12175,12176,12176,12176, & - 12177,12177,12177,12177,12178,12178,12178,12178,12179,12179,12179,12180, & - 12180,12180,12181,12181,12181,12181,12182,12182,12182,12183,12183,12183 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_109 = (/ & - 12184,12184,12184,12184,12185,12185,12185,12185,12186,12186,12187,12187, & - 12188,12188,12189,12189,12189,12190,12190,12190,12190,12191,12191,12191, & - 12191,12192,12192,12192,12192,12193,12193,12193,12194,12194,12194,12194, & - 12195,12195,12196,12196,12197,12197,12197,12198,12198,12198,12198,12199, & - 12199,12199,12199,12200,12200,12201,12201,12201,12201,12202,12202,12202, & - 12203,12203,12203,12203,12204,12204,12204,12204,12205,12205,12205,12206, & - 12206,12206,12206,12207,12207,12208,12208,12209,12209,12209,12210,12210, & - 12210,12211,12211,12212,12212,12212,12212,12213,12213,12213,12214,12214, & - 12214,12215,12215,12215,12215,12216,12216,12216,12217,12217,12217,12217, & - 12218,12218,12218,12218,12219,12219,12220,12220,12220,12220,12221,12221, & - 12221,12222,12222,12222,12223,12223,12223,12223,12224,12224,12224,12224, & - 12225,12225,12225,12225,12226,12226,12226,12226,12227,12227,12227,12227, & - 12228,12228,12228,12229,12229,12229,12229,12230,12230,12230,12230,12231, & - 12231,12231,12232,12232,12232,12232,12233,12233,12234,12234,12235,12235, & - 12235,12235,12236,12236,12236,12236,12237,12237,12237,12238,12238,12238, & - 12238,12239,12239,12239,12240,12240,12240,12240,12241,12241,12242,12242, & - 12243,12243,12243,12244,12244,12244,12244,12245,12245,12245,12245,12246, & - 12246,12247,12247,12248,12248,12248,12248,12249,12249,12249,12250,12250, & - 12250,12250,12251,12251,12251,12251,12252,12252,12252,12253,12253,12253, & - 12253,12254,12254,12255,12255,12256,12256,12256,12256,12257,12257,12257, & - 12258,12258,12258,12258,12259,12259,12259,12259,12260,12260,12260,12261, & - 12261,12261,12261,12262,12262,12263,12263,12264,12264,12264,12264,12265, & - 12265,12265,12266,12266,12266,12267,12267,12267,12267,12268,12268,12268, & - 12268,12269,12269,12270,12270,12271,12271,12272,12272,12272,12273,12273, & - 12273,12274,12274,12274,12275,12275,12275,12275,12275,12276,12276,12276, & - 12277,12277,12278,12278,12278,12279,12279,12279,12279,12280,12280,12280, & - 12281,12281,12282,12282,12282,12283,12283,12283,12283,12284,12284,12285, & - 12285,12285,12286,12286,12286,12287,12287,12287,12287,12288,12288,12288, & - 12289,12289,12289,12289,12290,12290,12290,12291,12291,12291,12292,12292, & - 12292,12292,12293,12293,12293,12293,12294,12294,12295,12295,12296,12296 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_110 = (/ & - 12296,12297,12297,12297,12298,12298,12298,12299,12299,12299,12300,12300, & - 12300,12300,12301,12301,12301,12301,12302,12302,12303,12303,12304,12304, & - 12305,12305,12306,12306,12306,12307,12307,12307,12307,12308,12308,12308, & - 12309,12309,12310,12310,12310,12310,12311,12311,12311,12311,12312,12312, & - 12312,12312,12313,12313,12313,12314,12314,12314,12314,12315,12315,12315, & - 12316,12316,12316,12317,12317,12317,12318,12318,12319,12319,12319,12320, & - 12320,12320,12320,12320,12321,12321,12321,12322,12322,12322,12322,12323, & - 12323,12323,12324,12324,12324,12325,12325,12326,12326,12326,12327,12327, & - 12327,12328,12328,12328,12329,12329,12329,12330,12330,12330,12330,12330, & - 12331,12331,12331,12332,12332,12332,12333,12333,12333,12334,12334,12334, & - 12335,12335,12335,12335,12335,12336,12336,12336,12337,12337,12337,12338, & - 12338,12338,12339,12339,12339,12340,12340,12340,12341,12341,12341,12341, & - 12341,12342,12342,12342,12343,12343,12343,12343,12343,12344,12344,12344, & - 12345,12345,12345,12346,12346,12346,12347,12347,12347,12348,12348,12348, & - 12349,12349,12349,12349,12349,12350,12350,12350,12351,12351,12351,12352, & - 12352,12352,12352,12353,12353,12353,12353,12354,12354,12355,12355,12356, & - 12356,12357,12357,12357,12358,12358,12358,12358,12359,12359,12359,12360, & - 12360,12360,12361,12361,12361,12361,12362,12362,12362,12362,12363,12363, & - 12364,12364,12364,12364,12365,12365,12365,12366,12366,12366,12366,12367, & - 12367,12367,12368,12368,12368,12368,12369,12369,12370,12370,12370,12370, & - 12371,12371,12371,12371,12372,12372,12372,12373,12373,12373,12374,12374, & - 12374,12375,12375,12375,12376,12376,12376,12376,12376,12377,12377,12377, & - 12378,12378,12379,12379,12379,12380,12380,12380,12380,12381,12381,12381, & - 12381,12382,12382,12382,12383,12383,12383,12383,12384,12384,12384,12384, & - 12385,12385,12385,12385,12386,12386,12386,12386,12387,12387,12387,12388, & - 12388,12389,12389,12389,12390,12390,12390,12391,12391,12391,12392,12392, & - 12392,12392,12393,12393,12393,12393,12394,12394,12394,12394,12395,12395, & - 12395,12396,12396,12397,12397,12397,12398,12398,12398,12399,12399,12399, & - 12400,12400,12400,12400,12401,12401,12401,12401,12402,12402,12402,12403, & - 12403,12403,12403,12404,12404,12404,12404,12405,12405,12405,12406,12406 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_111 = (/ & - 12406,12406,12407,12407,12408,12408,12408,12409,12409,12409,12409,12410, & - 12410,12410,12410,12411,12411,12412,12412,12412,12413,12413,12413,12413, & - 12414,12414,12414,12415,12415,12415,12416,12416,12416,12416,12416,12417, & - 12417,12417,12417,12418,12418,12418,12418,12419,12419,12419,12420,12420, & - 12420,12421,12421,12421,12421,12422,12422,12422,12423,12423,12423,12424, & - 12424,12424,12424,12425,12425,12425,12426,12426,12426,12427,12427,12427, & - 12427,12428,12428,12428,12429,12429,12430,12430,12430,12431,12431,12431, & - 12431,12432,12432,12432,12432,12433,12433,12433,12434,12434,12434,12435, & - 12435,12435,12436,12436,12436,12437,12437,12437,12437,12438,12438,12438, & - 12438,12439,12439,12439,12440,12440,12440,12440,12441,12441,12442,12442, & - 12442,12443,12443,12443,12444,12444,12444,12444,12445,12445,12445,12445, & - 12446,12446,12447,12447,12448,12448,12449,12449,12449,12450,12450,12450, & - 12451,12451,12451,12451,12452,12452,12452,12453,12453,12454,12454,12454, & - 12455,12455,12455,12455,12456,12456,12456,12456,12457,12457,12457,12458, & - 12458,12458,12458,12459,12459,12459,12459,12460,12460,12460,12461,12461, & - 12461,12461,12462,12462,12463,12463,12463,12464,12464,12464,12465,12465, & - 12465,12465,12466,12466,12466,12467,12467,12468,12468,12468,12469,12469, & - 12469,12469,12470,12470,12470,12470,12471,12471,12471,12472,12472,12472, & - 12472,12473,12473,12473,12473,12474,12474,12474,12475,12475,12475,12475, & - 12476,12476,12477,12477,12477,12478,12478,12478,12479,12479,12479,12480, & - 12480,12480,12480,12481,12481,12482,12482,12482,12483,12483,12483,12483, & - 12484,12484,12484,12484,12485,12485,12485,12486,12486,12486,12486,12487, & - 12487,12487,12487,12488,12488,12488,12489,12489,12489,12489,12490,12490, & - 12491,12491,12491,12491,12492,12492,12492,12492,12493,12493,12493,12494, & - 12494,12494,12495,12495,12495,12496,12496,12496,12497,12497,12497,12497, & - 12498,12498,12499,12499,12499,12500,12500,12500,12500,12501,12501,12501, & - 12501,12502,12502,12502,12503,12503,12503,12503,12504,12504,12504,12504, & - 12505,12505,12505,12506,12506,12506,12506,12507,12507,12508,12508,12508, & - 12509,12509,12509,12510,12510,12510,12511,12511,12511,12512,12512,12512, & - 12513,12513,12513,12513,12513,12514,12514,12514,12515,12515,12515,12516 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_112 = (/ & - 12516,12516,12516,12517,12517,12518,12518,12518,12519,12519,12519,12519, & - 12520,12520,12520,12520,12521,12521,12521,12522,12522,12522,12522,12523, & - 12523,12523,12523,12524,12524,12524,12525,12525,12525,12525,12526,12526, & - 12527,12527,12528,12528,12528,12529,12529,12530,12530,12530,12530,12531, & - 12531,12531,12531,12532,12532,12532,12533,12533,12533,12534,12534,12534, & - 12534,12534,12535,12535,12535,12536,12536,12536,12537,12537,12537,12537, & - 12538,12538,12538,12539,12539,12539,12539,12539,12540,12540,12540,12540, & - 12541,12541,12541,12542,12542,12542,12542,12543,12543,12543,12543,12543, & - 12543,12544,12544,12544,12545,12545,12545,12545,12545,12545,12546,12546, & - 12546,12546,12547,12547,12547,12547,12547,12548,12548,12548,12548,12549, & - 12549,12549,12549,12550,12550,12550,12551,12551,12551,12551,12551,12551, & - 12552,12552,12552,12553,12553,12553,12553,12553,12553,12554,12554,12554, & - 12554,12555,12555,12555,12556,12556,12556,12557,12557,12557,12557,12557, & - 12558,12558,12558,12559,12559,12559,12560,12560,12560,12560,12561,12561, & - 12561,12562,12562,12562,12563,12563,12563,12563,12564,12564,12564,12564, & - 12565,12565,12565,12566,12566,12566,12566,12567,12567,12568,12568,12568, & - 12569,12569,12569,12570,12570,12570,12570,12571,12571,12571,12572,12572, & - 12572,12573,12573,12573,12573,12573,12574,12574,12574,12575,12575,12575, & - 12576,12576,12576,12576,12577,12577,12577,12577,12577,12578,12578,12578, & - 12578,12579,12579,12579,12579,12579,12580,12580,12580,12581,12581,12581, & - 12581,12581,12582,12582,12582,12583,12583,12583,12583,12583,12584,12584, & - 12584,12585,12585,12585,12586,12586,12586,12587,12587,12587,12587,12587, & - 12588,12588,12588,12589,12589,12589,12589,12589,12590,12590,12590,12591, & - 12591,12591,12591,12592,12592,12592,12593,12593,12593,12593,12594,12594, & - 12594,12594,12595,12595,12595,12596,12596,12596,12596,12597,12597,12598, & - 12598,12599,12599,12599,12600,12600,12600,12601,12601,12601,12601,12601, & - 12602,12602,12602,12602,12603,12603,12603,12603,12604,12604,12604,12605, & - 12605,12605,12605,12606,12606,12606,12606,12607,12607,12607,12608,12608, & - 12608,12608,12609,12609,12610,12610,12611,12611,12611,12612,12612,12612, & - 12613,12613,12614,12614,12614,12615,12615,12615,12616,12616,12616,12617 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_113 = (/ & - 12617,12617,12617,12617,12618,12618,12618,12619,12619,12619,12620,12620, & - 12620,12620,12621,12621,12621,12621,12621,12622,12622,12622,12623,12623, & - 12623,12623,12623,12624,12624,12624,12625,12625,12625,12625,12625,12626, & - 12626,12626,12627,12627,12627,12627,12627,12628,12628,12628,12629,12629, & - 12629,12630,12630,12630,12631,12631,12631,12631,12631,12632,12632,12632, & - 12633,12633,12633,12634,12634,12634,12634,12634,12635,12635,12635,12636, & - 12636,12636,12637,12637,12637,12637,12638,12638,12638,12638,12638,12639, & - 12639,12639,12640,12640,12640,12641,12641,12641,12641,12642,12642,12642, & - 12642,12642,12642,12643,12643,12643,12644,12644,12644,12644,12644,12644, & - 12645,12645,12645,12645,12646,12646,12646,12647,12647,12647,12648,12648, & - 12648,12648,12648,12649,12649,12649,12650,12650,12650,12651,12651,12651, & - 12651,12652,12652,12652,12652,12652,12653,12653,12653,12653,12654,12654, & - 12654,12654,12655,12655,12655,12656,12656,12656,12656,12656,12656,12657, & - 12657,12657,12658,12658,12658,12658,12658,12658,12659,12659,12659,12659, & - 12660,12660,12660,12661,12661,12661,12661,12661,12662,12662,12662,12663, & - 12663,12663,12663,12663,12664,12664,12664,12665,12665,12665,12665,12665, & - 12666,12666,12666,12667,12667,12667,12668,12668,12668,12669,12669,12669, & - 12669,12669,12670,12670,12670,12671,12671,12671,12672,12672,12672,12672, & - 12673,12673,12673,12673,12673,12674,12674,12674,12674,12675,12675,12675, & - 12675,12676,12676,12676,12677,12677,12677,12677,12677,12677,12678,12678, & - 12678,12679,12679,12679,12679,12679,12679,12680,12680,12680,12680,12681, & - 12681,12681,12682,12682,12682,12683,12683,12683,12683,12684,12684,12684, & - 12684,12684,12685,12685,12685,12686,12686,12686,12687,12687,12687,12688, & - 12688,12688,12688,12688,12689,12689,12689,12690,12690,12690,12691,12691, & - 12691,12691,12692,12692,12692,12692,12692,12693,12693,12693,12693,12694, & - 12694,12694,12694,12695,12695,12695,12696,12696,12696,12696,12696,12696, & - 12697,12697,12697,12698,12698,12698,12698,12698,12698,12699,12699,12699, & - 12699,12700,12700,12700,12701,12701,12701,12702,12702,12702,12702,12703, & - 12703,12703,12703,12703,12704,12704,12704,12705,12705,12705,12706,12706, & - 12706,12706,12707,12707,12707,12707,12708,12708,12709,12709,12709,12710 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_114 = (/ & - 12710,12710,12710,12711,12711,12711,12711,12712,12712,12713,12713,12714, & - 12714,12714,12715,12715,12715,12716,12716,12716,12716,12716,12717,12717, & - 12717,12718,12718,12718,12719,12719,12719,12719,12720,12720,12720,12720, & - 12720,12721,12721,12721,12722,12722,12722,12723,12723,12723,12723,12723, & - 12724,12724,12724,12725,12725,12725,12726,12726,12726,12726,12726,12727, & - 12727,12727,12728,12728,12728,12729,12729,12729,12729,12730,12730,12730, & - 12730,12730,12731,12731,12731,12732,12732,12732,12733,12733,12733,12733, & - 12733,12734,12734,12734,12734,12734,12735,12735,12735,12736,12736,12736, & - 12736,12736,12737,12737,12737,12738,12738,12738,12739,12739,12739,12740, & - 12740,12740,12740,12741,12741,12741,12742,12742,12742,12743,12743,12743, & - 12743,12743,12744,12744,12744,12745,12745,12745,12746,12746,12746,12746, & - 12747,12747,12747,12747,12747,12748,12748,12748,12748,12749,12749,12749, & - 12750,12750,12750,12750,12750,12751,12751,12751,12751,12751,12752,12752, & - 12752,12753,12753,12753,12753,12753,12754,12754,12754,12755,12755,12755, & - 12756,12756,12756,12757,12757,12757,12757,12757,12758,12758,12758,12759, & - 12759,12759,12760,12760,12760,12760,12761,12761,12761,12761,12761,12761, & - 12762,12762,12762,12762,12763,12763,12763,12763,12763,12764,12764,12764, & - 12765,12765,12765,12765,12765,12766,12766,12766,12767,12767,12767,12767, & - 12767,12768,12768,12768,12769,12769,12769,12770,12770,12770,12771,12771, & - 12771,12771,12771,12772,12772,12772,12773,12773,12773,12774,12774,12774, & - 12774,12775,12775,12775,12775,12775,12775,12776,12776,12776,12776,12777, & - 12777,12777,12777,12778,12778,12778,12779,12779,12779,12779,12779,12779, & - 12780,12780,12780,12781,12781,12781,12781,12781,12781,12782,12782,12782, & - 12782,12783,12783,12783,12783,12784,12784,12784,12785,12785,12785,12785, & - 12786,12786,12786,12786,12787,12787,12787,12788,12788,12788,12788,12789, & - 12789,12790,12790,12791,12791,12791,12792,12792,12792,12793,12793,12793, & - 12793,12794,12794,12794,12795,12795,12795,12795,12796,12796,12796,12796, & - 12797,12797,12798,12798,12798,12798,12799,12799,12799,12799,12800,12800, & - 12800,12801,12801,12801,12802,12802,12802,12802,12802,12803,12803,12803, & - 12804,12804,12804,12805,12805,12805,12806,12806,12806,12806,12806,12807 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_115 = (/ & - 12807,12808,12808,12808,12809,12809,12809,12810,12810,12810,12811,12811, & - 12811,12812,12812,12812,12813,12813,12813,12814,12814,12814,12814,12814, & - 12815,12815,12815,12816,12816,12816,12816,12816,12817,12817,12817,12818, & - 12818,12818,12818,12819,12819,12819,12820,12820,12820,12820,12821,12821, & - 12821,12821,12821,12822,12822,12822,12823,12823,12823,12823,12823,12824, & - 12824,12825,12825,12825,12826,12826,12826,12826,12827,12827,12827,12828, & - 12828,12828,12828,12828,12829,12829,12829,12829,12830,12830,12830,12831, & - 12831,12831,12831,12832,12832,12833,12833,12833,12834,12834,12834,12834, & - 12835,12835,12835,12836,12836,12836,12836,12836,12837,12837,12837,12837, & - 12838,12838,12838,12839,12839,12839,12839,12840,12840,12841,12841,12841, & - 12842,12842,12842,12843,12843,12843,12844,12844,12844,12845,12845,12845, & - 12845,12845,12846,12846,12846,12847,12847,12847,12847,12848,12848,12848, & - 12848,12848,12849,12849,12849,12850,12850,12850,12851,12851,12851,12851, & - 12852,12852,12852,12852,12853,12853,12853,12854,12854,12854,12855,12855, & - 12855,12855,12856,12856,12856,12857,12857,12857,12857,12857,12858,12858, & - 12858,12859,12859,12859,12859,12859,12860,12860,12860,12861,12861,12862, & - 12862,12862,12862,12862,12863,12863,12863,12863,12864,12864,12864,12865, & - 12865,12865,12865,12866,12866,12866,12867,12867,12867,12867,12868,12868, & - 12868,12869,12869,12870,12870,12870,12870,12871,12871,12871,12872,12872, & - 12872,12872,12873,12873,12873,12873,12874,12874,12874,12874,12875,12875, & - 12875,12876,12876,12876,12877,12877,12877,12877,12878,12878,12878,12878, & - 12878,12879,12879,12879,12880,12880,12880,12880,12880,12881,12881,12881, & - 12882,12882,12882,12882,12883,12883,12884,12884,12884,12885,12885,12885, & - 12886,12886,12886,12887,12887,12887,12887,12888,12888,12888,12888,12889, & - 12889,12889,12889,12890,12890,12890,12891,12891,12891,12892,12892,12892, & - 12892,12892,12893,12893,12893,12893,12894,12894,12894,12895,12895,12895, & - 12895,12895,12896,12896,12896,12896,12897,12897,12897,12898,12898,12898, & - 12898,12899,12899,12900,12900,12900,12901,12901,12901,12901,12902,12902, & - 12902,12902,12903,12903,12903,12904,12904,12904,12905,12905,12905,12905, & - 12905,12905,12906,12906,12906,12906,12907,12907,12907,12907,12907,12908 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_116 = (/ & - 12908,12908,12909,12909,12909,12909,12909,12910,12910,12910,12910,12910, & - 12911,12911,12911,12912,12912,12912,12913,12913,12913,12913,12914,12914, & - 12914,12914,12915,12915,12916,12916,12916,12917,12917,12917,12917,12918, & - 12918,12918,12918,12919,12919,12920,12920,12920,12920,12921,12921,12921, & - 12922,12922,12922,12923,12923,12923,12923,12924,12924,12924,12924,12925, & - 12925,12925,12925,12926,12926,12926,12926,12927,12927,12927,12928,12928, & - 12928,12929,12929,12929,12930,12930,12930,12930,12931,12931,12931,12932, & - 12932,12932,12933,12933,12933,12933,12934,12934,12934,12934,12934,12935, & - 12935,12935,12936,12936,12936,12937,12937,12937,12937,12938,12938,12938, & - 12938,12939,12939,12939,12939,12940,12940,12940,12941,12941,12941,12942, & - 12942,12942,12942,12942,12943,12943,12943,12944,12944,12944,12944,12945, & - 12945,12945,12945,12946,12946,12946,12946,12947,12947,12947,12948,12948, & - 12948,12948,12949,12949,12949,12949,12950,12950,12950,12950,12951,12951, & - 12951,12952,12952,12952,12952,12953,12953,12953,12954,12954,12954,12954, & - 12955,12955,12956,12956,12957,12957,12957,12958,12958,12958,12959,12959, & - 12959,12960,12960,12960,12960,12960,12961,12961,12961,12962,12962,12962, & - 12963,12963,12963,12963,12963,12964,12964,12964,12965,12965,12965,12965, & - 12965,12966,12966,12966,12967,12967,12967,12968,12968,12968,12968,12969, & - 12969,12969,12969,12970,12970,12971,12971,12971,12972,12972,12972,12973, & - 12973,12973,12973,12973,12974,12974,12974,12975,12975,12975,12975,12976, & - 12976,12976,12977,12977,12977,12977,12978,12978,12978,12978,12979,12979, & - 12979,12980,12980,12980,12980,12981,12981,12982,12982,12983,12983,12983, & - 12983,12984,12984,12984,12985,12985,12985,12985,12986,12986,12986,12987, & - 12987,12987,12987,12988,12988,12989,12989,12989,12989,12990,12990,12990, & - 12991,12991,12991,12991,12992,12992,12992,12993,12993,12993,12993,12994, & - 12994,12995,12995,12995,12996,12996,12996,12996,12997,12997,12997,12997, & - 12998,12998,12998,12999,12999,12999,12999,13000,13000,13001,13001,13001, & - 13002,13002,13002,13003,13003,13003,13003,13003,13004,13004,13004,13005, & - 13005,13005,13006,13006,13006,13007,13007,13007,13008,13008,13008,13009, & - 13009,13009,13009,13010,13010,13010,13010,13011,13011,13012,13012,13013 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_117 = (/ & - 13013,13013,13014,13014,13014,13014,13015,13015,13015,13016,13016,13016, & - 13017,13017,13017,13017,13018,13018,13018,13019,13019,13019,13020,13020, & - 13020,13021,13021,13021,13022,13022,13022,13023,13023,13023,13023,13024, & - 13024,13024,13024,13025,13025,13026,13026,13027,13027,13028,13028,13028, & - 13029,13029,13029,13029,13029,13030,13030,13030,13031,13031,13031,13032, & - 13032,13032,13032,13033,13033,13033,13033,13034,13034,13035,13035,13035, & - 13036,13036,13036,13037,13037,13038,13038,13038,13039,13039,13039,13040, & - 13040,13040,13040,13040,13041,13041,13041,13042,13042,13042,13043,13043, & - 13043,13044,13044,13044,13045,13045,13045,13046,13046,13046,13047,13047, & - 13047,13048,13048,13048,13048,13049,13049,13049,13049,13050,13050,13050, & - 13051,13051,13051,13051,13052,13052,13052,13053,13053,13053,13053,13054, & - 13054,13055,13055,13056,13056,13056,13057,13057,13057,13057,13058,13058, & - 13058,13058,13059,13059,13060,13060,13061,13061,13062,13062,13062,13063, & - 13063,13063,13064,13064,13064,13064,13064,13065,13065,13065,13066,13066, & - 13066,13067,13067,13067,13068,13068,13068,13069,13069,13070,13070,13070, & - 13071,13071,13072,13072,13072,13073,13073,13074,13074,13074,13074,13075, & - 13075,13075,13076,13076,13076,13077,13077,13077,13077,13077,13078,13078, & - 13078,13079,13079,13079,13080,13080,13080,13081,13081,13081,13082,13082, & - 13082,13083,13083,13083,13084,13084,13084,13085,13085,13085,13085,13085, & - 13086,13086,13086,13087,13087,13088,13088,13088,13089,13089,13090,13090, & - 13090,13091,13091,13091,13091,13092,13092,13093,13093,13093,13094,13094, & - 13094,13094,13095,13095,13095,13096,13096,13097,13097,13097,13097,13098, & - 13098,13098,13098,13099,13099,13099,13100,13100,13101,13101,13101,13102, & - 13102,13103,13103,13103,13103,13104,13104,13104,13105,13105,13105,13106, & - 13106,13106,13106,13107,13107,13107,13107,13108,13108,13109,13109,13110, & - 13110,13110,13110,13111,13111,13111,13112,13112,13112,13112,13113,13113, & - 13113,13114,13114,13114,13114,13115,13115,13115,13115,13116,13116,13117, & - 13117,13118,13118,13119,13119,13119,13120,13120,13120,13120,13121,13121, & - 13121,13121,13122,13122,13122,13123,13123,13123,13123,13124,13124,13125, & - 13125,13125,13126,13126,13126,13127,13127,13127,13128,13128,13128,13129 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_118 = (/ & - 13129,13129,13129,13129,13130,13130,13130,13131,13131,13132,13132,13132, & - 13133,13133,13133,13133,13134,13134,13134,13135,13135,13136,13136,13136, & - 13137,13137,13137,13137,13138,13138,13138,13139,13139,13139,13139,13140, & - 13140,13140,13141,13141,13141,13142,13142,13142,13142,13143,13143,13143, & - 13144,13144,13144,13145,13145,13145,13145,13146,13146,13146,13147,13147, & - 13147,13147,13148,13148,13148,13148,13149,13149,13150,13150,13151,13151, & - 13151,13152,13152,13152,13153,13153,13153,13154,13154,13154,13154,13155, & - 13155,13155,13155,13156,13156,13157,13157,13158,13158,13158,13159,13159, & - 13159,13160,13160,13160,13160,13161,13161,13161,13161,13162,13162,13163, & - 13163,13164,13164,13165,13165,13166,13166,13166,13167,13167,13167,13167, & - 13168,13168,13168,13169,13169,13170,13170,13170,13170,13171,13171,13171, & - 13172,13172,13172,13173,13173,13173,13174,13174,13174,13175,13175,13175, & - 13175,13176,13176,13176,13176,13177,13177,13178,13178,13179,13179,13180, & - 13180,13180,13181,13181,13181,13181,13181,13182,13182,13182,13183,13183, & - 13183,13184,13184,13184,13185,13185,13185,13185,13186,13186,13186,13187, & - 13187,13187,13188,13188,13188,13189,13189,13189,13189,13189,13190,13190, & - 13190,13191,13191,13191,13192,13192,13192,13192,13193,13193,13193,13193, & - 13194,13194,13195,13195,13195,13195,13196,13196,13196,13196,13197,13197, & - 13197,13198,13198,13198,13198,13199,13199,13199,13200,13200,13200,13200, & - 13201,13201,13202,13202,13203,13203,13203,13204,13204,13204,13205,13205, & - 13205,13206,13206,13206,13207,13207,13207,13208,13208,13208,13208,13209, & - 13209,13209,13209,13210,13210,13211,13211,13212,13212,13213,13213,13213, & - 13213,13213,13214,13214,13214,13215,13215,13216,13216,13217,13217,13217, & - 13218,13218,13218,13219,13219,13219,13220,13220,13220,13220,13220,13221, & - 13221,13221,13222,13222,13222,13223,13223,13223,13224,13224,13225,13225, & - 13225,13226,13226,13226,13227,13227,13227,13228,13228,13228,13229,13229, & - 13229,13230,13230,13230,13231,13231,13231,13231,13232,13232,13232,13232, & - 13233,13233,13234,13234,13235,13235,13236,13236,13236,13236,13236,13237, & - 13237,13237,13238,13238,13238,13239,13239,13239,13240,13240,13240,13241, & - 13241,13241,13242,13242,13242,13243,13243,13243,13243,13244,13244,13244 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_119 = (/ & - 13244,13245,13245,13246,13246,13247,13247,13248,13248,13248,13248,13248, & - 13249,13249,13249,13250,13250,13250,13251,13251,13251,13252,13252,13252, & - 13252,13253,13253,13253,13253,13254,13254,13255,13255,13256,13256,13257, & - 13257,13257,13258,13258,13258,13258,13259,13259,13259,13260,13260,13260, & - 13261,13261,13261,13261,13262,13262,13262,13263,13263,13263,13264,13264, & - 13264,13264,13265,13265,13265,13265,13266,13266,13267,13267,13268,13268, & - 13268,13268,13269,13269,13269,13270,13270,13270,13270,13271,13271,13271, & - 13271,13272,13272,13272,13273,13273,13273,13273,13274,13274,13275,13275, & - 13276,13276,13276,13277,13277,13277,13278,13278,13278,13278,13279,13279, & - 13279,13280,13280,13281,13281,13281,13282,13282,13282,13283,13283,13283, & - 13283,13284,13284,13284,13284,13285,13285,13286,13286,13287,13287,13287, & - 13288,13288,13288,13289,13289,13289,13289,13290,13290,13290,13290,13291, & - 13291,13292,13292,13293,13293,13294,13294,13294,13295,13295,13295,13295, & - 13296,13296,13296,13297,13297,13297,13298,13298,13298,13299,13299,13299, & - 13299,13300,13300,13300,13301,13301,13301,13301,13302,13302,13302,13302, & - 13303,13303,13304,13304,13305,13305,13305,13306,13306,13306,13306,13307, & - 13307,13307,13307,13308,13308,13309,13309,13309,13310,13310,13310,13310, & - 13311,13311,13311,13311,13312,13312,13313,13313,13313,13314,13314,13315, & - 13315,13315,13316,13316,13316,13316,13317,13317,13317,13317,13318,13318, & - 13318,13318,13319,13319,13319,13319,13320,13320,13320,13320,13321,13321, & - 13321,13322,13322,13322,13323,13323,13323,13323,13324,13324,13324,13324, & - 13325,13325,13325,13326,13326,13326,13326,13327,13327,13328,13328,13328, & - 13329,13329,13329,13330,13330,13330,13331,13331,13331,13332,13332,13332, & - 13333,13333,13333,13334,13334,13334,13334,13334,13335,13335,13335,13336, & - 13336,13336,13336,13337,13337,13337,13337,13338,13338,13339,13339,13339, & - 13340,13340,13340,13340,13341,13341,13341,13341,13342,13342,13343,13343, & - 13343,13344,13344,13344,13345,13345,13345,13346,13346,13346,13346,13346, & - 13347,13347,13347,13348,13348,13348,13348,13349,13349,13349,13350,13350, & - 13350,13350,13351,13351,13351,13352,13352,13352,13352,13353,13353,13353, & - 13353,13354,13354,13355,13355,13355,13356,13356,13356,13357,13357,13357 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_120 = (/ & - 13358,13358,13358,13358,13358,13359,13359,13359,13360,13360,13361,13361, & - 13361,13361,13362,13362,13362,13362,13363,13363,13363,13363,13364,13364, & - 13364,13364,13365,13365,13365,13366,13366,13366,13367,13367,13367,13367, & - 13368,13368,13368,13368,13369,13369,13370,13370,13370,13371,13371,13371, & - 13372,13372,13372,13373,13373,13373,13373,13373,13374,13374,13374,13375, & - 13375,13375,13375,13376,13376,13376,13376,13377,13377,13378,13378,13378, & - 13379,13379,13379,13380,13380,13380,13381,13381,13381,13381,13381,13382, & - 13382,13382,13383,13383,13383,13383,13384,13384,13384,13384,13385,13385, & - 13386,13386,13386,13387,13387,13387,13388,13388,13388,13389,13389,13389, & - 13389,13389,13389,13390,13390,13390,13391,13391,13391,13391,13392,13392, & - 13392,13392,13393,13393,13394,13394,13394,13395,13395,13395,13396,13396, & - 13396,13397,13397,13397,13397,13397,13397,13398,13398,13398,13399,13399, & - 13399,13399,13400,13400,13400,13400,13401,13401,13402,13402,13402,13403, & - 13403,13403,13404,13404,13404,13405,13405,13405,13405,13405,13405,13406, & - 13406,13406,13407,13407,13407,13408,13408,13408,13408,13409,13409,13409, & - 13409,13409,13409,13410,13410,13410,13411,13411,13411,13411,13411,13411, & - 13412,13412,13412,13412,13413,13413,13413,13414,13414,13414,13414,13414, & - 13415,13415,13415,13415,13415,13416,13416,13416,13417,13417,13417,13418, & - 13418,13418,13418,13418,13419,13419,13419,13419,13419,13420,13420,13420, & - 13421,13421,13421,13421,13421,13422,13422,13422,13423,13423,13423,13424, & - 13424,13424,13424,13424,13425,13425,13425,13425,13425,13426,13426,13426, & - 13427,13427,13427,13428,13428,13428,13429,13429,13429,13430,13430,13430, & - 13430,13430,13431,13431,13431,13432,13432,13432,13433,13433,13433,13433, & - 13433,13434,13434,13434,13434,13434,13435,13435,13435,13436,13436,13436, & - 13436,13436,13437,13437,13437,13438,13438,13438,13439,13439,13439,13439, & - 13440,13440,13440,13440,13440,13441,13441,13441,13442,13442,13442,13443, & - 13443,13443,13443,13444,13444,13444,13444,13444,13445,13445,13445,13446, & - 13446,13446,13447,13447,13447,13448,13448,13448,13449,13449,13449,13449, & - 13449,13450,13450,13450,13451,13451,13451,13452,13452,13452,13453,13453, & - 13453,13454,13454,13454,13454,13454,13455,13455,13455,13456,13456,13456 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_121 = (/ & - 13456,13457,13457,13457,13457,13458,13458,13458,13459,13459,13459,13459, & - 13460,13460,13460,13460,13460,13461,13461,13461,13462,13462,13462,13463, & - 13463,13463,13463,13464,13464,13464,13464,13464,13464,13465,13465,13465, & - 13466,13466,13466,13466,13466,13466,13467,13467,13467,13467,13468,13468, & - 13468,13469,13469,13469,13469,13469,13470,13470,13470,13470,13470,13471, & - 13471,13471,13472,13472,13472,13472,13472,13473,13473,13473,13474,13474, & - 13474,13474,13474,13475,13475,13475,13476,13476,13476,13476,13476,13477, & - 13477,13477,13478,13478,13478,13479,13479,13479,13479,13479,13480,13480, & - 13480,13480,13480,13481,13481,13481,13482,13482,13482,13483,13483,13483, & - 13484,13484,13484,13484,13485,13485,13485,13485,13485,13486,13486,13486, & - 13487,13487,13487,13487,13487,13488,13488,13488,13489,13489,13489,13489, & - 13489,13490,13490,13490,13491,13491,13491,13491,13491,13492,13492,13492, & - 13493,13493,13493,13494,13494,13494,13494,13494,13495,13495,13495,13495, & - 13495,13496,13496,13496,13497,13497,13497,13498,13498,13498,13499,13499, & - 13499,13499,13499,13500,13500,13500,13500,13500,13501,13501,13501,13502, & - 13502,13502,13502,13502,13503,13503,13503,13504,13504,13504,13505,13505, & - 13505,13505,13505,13506,13506,13506,13506,13506,13507,13507,13507,13508, & - 13508,13508,13509,13509,13509,13510,13510,13510,13511,13511,13511,13511, & - 13512,13512,13512,13513,13513,13513,13514,13514,13515,13515,13515,13516, & - 13516,13516,13517,13517,13517,13517,13518,13518,13518,13518,13518,13519, & - 13519,13519,13520,13520,13520,13520,13521,13521,13521,13521,13522,13522, & - 13522,13522,13523,13523,13523,13524,13524,13524,13524,13524,13525,13525, & - 13525,13525,13525,13526,13526,13526,13527,13527,13527,13527,13527,13528, & - 13528,13528,13529,13529,13529,13530,13530,13530,13530,13531,13531,13531, & - 13531,13531,13532,13532,13532,13533,13533,13533,13534,13534,13534,13534, & - 13535,13535,13535,13535,13535,13535,13536,13536,13536,13537,13537,13537, & - 13537,13537,13537,13538,13538,13538,13538,13539,13539,13539,13540,13540, & - 13540,13540,13541,13541,13541,13541,13541,13542,13542,13542,13543,13543, & - 13543,13544,13544,13544,13544,13544,13545,13545,13545,13545,13545,13546, & - 13546,13546,13547,13547,13547,13547,13547,13548,13548,13548,13549,13549 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_122 = (/ & - 13549,13550,13550,13550,13550,13550,13551,13551,13551,13551,13551,13552, & - 13552,13552,13553,13553,13553,13554,13554,13554,13555,13555,13555,13556, & - 13556,13556,13556,13556,13557,13557,13557,13558,13558,13558,13559,13559, & - 13559,13560,13560,13560,13560,13560,13561,13561,13561,13561,13562,13562, & - 13562,13562,13563,13563,13563,13564,13564,13564,13564,13565,13565,13565, & - 13565,13565,13565,13566,13566,13566,13567,13567,13567,13567,13567,13567, & - 13568,13568,13568,13568,13569,13569,13569,13570,13570,13570,13570,13571, & - 13571,13571,13571,13572,13572,13573,13573,13573,13574,13574,13574,13574, & - 13574,13575,13575,13575,13575,13575,13576,13576,13576,13577,13577,13578, & - 13578,13578,13579,13579,13579,13580,13580,13580,13580,13581,13581,13581, & - 13582,13582,13582,13582,13583,13583,13583,13584,13584,13584,13584,13585, & - 13585,13585,13585,13585,13586,13586,13586,13587,13587,13587,13587,13588, & - 13588,13588,13589,13589,13589,13589,13590,13590,13590,13590,13590,13591, & - 13591,13591,13592,13592,13592,13592,13593,13593,13593,13593,13593,13594, & - 13594,13594,13595,13595,13595,13595,13595,13596,13596,13596,13596,13596, & - 13597,13597,13597,13598,13598,13598,13599,13599,13599,13600,13600,13600, & - 13600,13601,13601,13601,13602,13602,13602,13602,13603,13603,13603,13603, & - 13604,13604,13604,13604,13605,13605,13605,13606,13606,13606,13607,13607, & - 13607,13607,13608,13608,13608,13609,13609,13609,13610,13610,13610,13610, & - 13610,13611,13611,13611,13611,13612,13612,13612,13613,13613,13613,13614, & - 13614,13614,13614,13614,13615,13615,13615,13615,13616,13616,13616,13617, & - 13617,13617,13617,13617,13618,13618,13618,13618,13618,13619,13619,13619, & - 13619,13619,13620,13620,13620,13620,13621,13621,13621,13621,13621,13622, & - 13622,13622,13622,13622,13623,13623,13623,13623,13623,13624,13624,13624, & - 13625,13625,13625,13626,13626,13626,13627,13627,13627,13627,13627,13628, & - 13628,13628,13629,13629,13629,13629,13630,13630,13630,13631,13631,13631, & - 13632,13632,13632,13632,13632,13633,13633,13633,13634,13634,13634,13635, & - 13635,13635,13635,13636,13636,13636,13637,13637,13637,13638,13638,13638, & - 13639,13639,13639,13639,13639,13640,13640,13640,13641,13641,13641,13642, & - 13642,13642,13643,13643,13643,13643,13643,13644,13644,13644,13645,13645 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_123 = (/ & - 13645,13646,13646,13646,13646,13647,13647,13647,13647,13648,13648,13649, & - 13649,13649,13650,13650,13650,13651,13651,13651,13651,13651,13652,13652, & - 13652,13653,13653,13653,13654,13654,13654,13655,13655,13655,13656,13656, & - 13656,13656,13657,13657,13657,13657,13658,13658,13659,13659,13659,13659, & - 13659,13660,13660,13660,13661,13661,13661,13662,13662,13662,13662,13663, & - 13663,13663,13663,13664,13664,13665,13665,13666,13666,13667,13667,13667, & - 13668,13668,13668,13669,13669,13669,13670,13670,13670,13671,13671,13672, & - 13672,13672,13673,13673,13673,13673,13674,13674,13674,13675,13675,13676, & - 13676,13676,13676,13677,13677,13677,13678,13678,13678,13678,13679,13679, & - 13679,13679,13680,13680,13680,13681,13681,13681,13682,13682,13682,13683, & - 13683,13683,13684,13684,13684,13684,13685,13685,13685,13685,13686,13686, & - 13687,13687,13687,13687,13688,13688,13688,13689,13689,13689,13690,13690, & - 13690,13691,13691,13691,13691,13692,13692,13692,13692,13693,13693,13694, & - 13694,13695,13695,13696,13696,13696,13697,13697,13697,13697,13698,13698, & - 13698,13698,13699,13699,13700,13700,13700,13701,13701,13701,13702,13702, & - 13702,13703,13703,13703,13704,13704,13704,13704,13704,13705,13705,13705, & - 13706,13706,13707,13707,13707,13708,13708,13708,13709,13709,13709,13709, & - 13710,13710,13710,13710,13711,13711,13711,13711,13712,13712,13712,13712, & - 13713,13713,13713,13714,13714,13714,13715,13715,13715,13715,13716,13716, & - 13716,13716,13717,13717,13718,13718,13719,13719,13720,13720,13720,13720, & - 13721,13721,13721,13722,13722,13722,13722,13723,13723,13723,13723,13724, & - 13724,13724,13725,13725,13725,13725,13726,13726,13727,13727,13728,13728, & - 13728,13728,13728,13729,13729,13729,13729,13730,13730,13730,13730,13731, & - 13731,13731,13732,13732,13732,13732,13733,13733,13733,13733,13734,13734, & - 13735,13735,13736,13736,13737,13737,13737,13737,13738,13738,13738,13739, & - 13739,13739,13739,13740,13740,13740,13740,13741,13741,13741,13742,13742, & - 13742,13742,13743,13743,13744,13744,13745,13745,13745,13746,13746,13746, & - 13746,13747,13747,13747,13747,13748,13748,13749,13749,13750,13750,13751, & - 13751,13751,13752,13752,13752,13753,13753,13753,13754,13754,13754,13755, & - 13755,13755,13755,13755,13756,13756,13756,13757,13757,13757,13758,13758 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_124 = (/ & - 13758,13759,13759,13759,13760,13760,13760,13760,13761,13761,13761,13761, & - 13762,13762,13762,13763,13763,13763,13763,13764,13764,13764,13765,13765, & - 13765,13765,13766,13766,13767,13767,13767,13768,13768,13768,13768,13769, & - 13769,13769,13769,13770,13770,13771,13771,13772,13772,13773,13773,13774, & - 13774,13774,13774,13775,13775,13775,13776,13776,13776,13777,13777,13777, & - 13778,13778,13778,13778,13779,13779,13779,13779,13780,13780,13780,13781, & - 13781,13781,13782,13782,13782,13783,13783,13783,13783,13784,13784,13784, & - 13784,13785,13785,13786,13786,13786,13786,13786,13787,13787,13787,13788, & - 13788,13788,13789,13789,13789,13789,13790,13790,13790,13790,13791,13791, & - 13791,13792,13792,13792,13792,13793,13793,13794,13794,13794,13794,13795, & - 13795,13795,13796,13796,13796,13796,13797,13797,13797,13797,13798,13798, & - 13798,13799,13799,13799,13799,13800,13800,13801,13801,13802,13802,13802, & - 13803,13803,13803,13804,13804,13804,13804,13805,13805,13805,13805,13806, & - 13806,13807,13807,13808,13808,13809,13809,13809,13810,13810,13810,13811, & - 13811,13811,13811,13812,13812,13812,13812,13812,13813,13813,13813,13814, & - 13814,13814,13814,13815,13815,13815,13815,13816,13816,13817,13817,13818, & - 13818,13818,13819,13819,13819,13820,13820,13820,13820,13820,13821,13821, & - 13821,13821,13822,13822,13822,13822,13822,13823,13823,13824,13824,13824, & - 13825,13825,13825,13825,13826,13826,13826,13827,13827,13827,13828,13828, & - 13828,13828,13829,13829,13829,13830,13830,13830,13830,13831,13831,13831, & - 13831,13832,13832,13832,13833,13833,13833,13834,13834,13834,13834,13835, & - 13835,13835,13835,13836,13836,13836,13837,13837,13837,13837,13838,13838, & - 13838,13838,13839,13839,13840,13840,13841,13841,13842,13842,13843,13843, & - 13843,13844,13844,13844,13844,13845,13845,13845,13846,13846,13847,13847, & - 13847,13848,13848,13848,13849,13849,13849,13849,13850,13850,13850,13851, & - 13851,13851,13852,13852,13852,13853,13853,13854,13854,13855,13855,13855, & - 13856,13856,13856,13857,13857,13857,13858,13858,13858,13858,13858,13859, & - 13859,13859,13860,13860,13861,13861,13861,13862,13862,13862,13862,13863, & - 13863,13863,13864,13864,13865,13865,13865,13866,13866,13866,13866,13867, & - 13867,13867,13867,13868,13868,13868,13869,13869,13869,13869,13870,13870 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_125 = (/ & - 13870,13870,13871,13871,13871,13872,13872,13872,13872,13873,13873,13874, & - 13874,13875,13875,13875,13876,13876,13876,13877,13877,13877,13877,13878, & - 13878,13878,13878,13879,13879,13880,13880,13881,13881,13882,13882,13883, & - 13883,13883,13884,13884,13884,13884,13885,13885,13885,13886,13886,13887, & - 13887,13887,13888,13888,13888,13889,13889,13889,13889,13890,13890,13891, & - 13891,13891,13892,13892,13892,13892,13893,13893,13893,13894,13894,13895, & - 13895,13895,13896,13896,13896,13896,13897,13897,13897,13898,13898,13898, & - 13899,13899,13899,13899,13899,13900,13900,13900,13901,13901,13901,13902, & - 13902,13902,13902,13902,13903,13903,13903,13904,13904,13904,13905,13905, & - 13905,13905,13906,13906,13906,13907,13907,13908,13908,13908,13909,13909, & - 13909,13910,13910,13910,13911,13911,13911,13912,13912,13912,13913,13913, & - 13913,13914,13914,13914,13914,13915,13915,13915,13915,13916,13916,13917, & - 13917,13918,13918,13919,13919,13919,13919,13919,13920,13920,13920,13921, & - 13921,13921,13921,13922,13922,13922,13923,13923,13923,13924,13924,13924, & - 13925,13925,13925,13925,13926,13926,13926,13926,13927,13927,13928,13928, & - 13929,13929,13930,13930,13930,13931,13931,13931,13932,13932,13932,13933, & - 13933,13933,13934,13934,13934,13935,13935,13935,13936,13936,13936,13936, & - 13936,13937,13937,13937,13938,13938,13938,13939,13939,13939,13940,13940, & - 13941,13941,13941,13942,13942,13943,13943,13943,13943,13944,13944,13944, & - 13945,13945,13945,13945,13945,13946,13946,13946,13947,13947,13947,13947, & - 13948,13948,13948,13949,13949,13949,13950,13950,13950,13950,13951,13951, & - 13951,13952,13952,13952,13953,13953,13953,13953,13953,13954,13954,13954, & - 13955,13955,13955,13955,13955,13956,13956,13956,13957,13957,13957,13958, & - 13958,13958,13959,13959,13959,13960,13960,13960,13960,13960,13961,13961, & - 13961,13962,13962,13962,13962,13963,13963,13963,13964,13964,13964,13965, & - 13965,13965,13966,13966,13966,13966,13966,13967,13967,13967,13968,13968, & - 13968,13968,13969,13969,13969,13970,13970,13970,13970,13971,13971,13971, & - 13972,13972,13972,13972,13973,13973,13973,13974,13974,13974,13974,13975, & - 13975,13975,13975,13976,13976,13977,13977,13977,13978,13978,13978,13979, & - 13979,13979,13979,13980,13980,13980,13981,13981,13981,13982,13982,13982 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_126 = (/ & - 13982,13983,13983,13983,13984,13984,13984,13985,13985,13985,13985,13986, & - 13986,13986,13987,13987,13987,13988,13988,13988,13988,13989,13989,13989, & - 13990,13990,13990,13991,13991,13991,13991,13992,13992,13992,13993,13993, & - 13993,13993,13993,13994,13994,13994,13994,13994,13995,13995,13995,13996, & - 13996,13996,13997,13997,13997,13997,13998,13998,13998,13998,13998,13999, & - 13999,13999,14000,14000,14000,14001,14001,14001,14001,14002,14002,14002, & - 14002,14002,14003,14003,14003,14004,14004,14004,14004,14004,14005,14005, & - 14005,14005,14006,14006,14006,14006,14007,14007,14007,14008,14008,14008, & - 14008,14008,14009,14009,14009,14009,14009,14010,14010,14010,14011,14011, & - 14011,14012,14012,14012,14012,14013,14013,14013,14013,14013,14014,14014, & - 14014,14015,14015,14015,14016,14016,14016,14017,14017,14017,14017,14018, & - 14018,14018,14018,14018,14019,14019,14019,14020,14020,14020,14021,14021, & - 14021,14022,14022,14022,14022,14023,14023,14023,14023,14023,14024,14024, & - 14024,14025,14025,14025,14026,14026,14026,14027,14027,14027,14028,14028, & - 14028,14028,14028,14029,14029,14029,14030,14030,14030,14030,14030,14031, & - 14031,14031,14032,14032,14032,14033,14033,14033,14033,14034,14034,14034, & - 14034,14034,14035,14035,14035,14036,14036,14036,14037,14037,14037,14037, & - 14037,14038,14038,14038,14038,14038,14039,14039,14039,14040,14040,14040, & - 14041,14041,14041,14041,14042,14042,14042,14042,14042,14043,14043,14043, & - 14044,14044,14044,14044,14044,14045,14045,14045,14045,14045,14046,14046, & - 14046,14047,14047,14047,14047,14047,14048,14048,14048,14048,14048,14049, & - 14049,14049,14050,14050,14050,14051,14051,14051,14052,14052,14052,14052, & - 14053,14053,14053,14053,14053,14054,14054,14054,14054,14054,14055,14055, & - 14055,14055,14056,14056,14056,14057,14057,14057,14057,14058,14058,14058, & - 14058,14059,14059,14059,14060,14060,14060,14061,14061,14061,14062,14062, & - 14062,14063,14063,14063,14064,14064,14064,14065,14065,14065,14065,14065, & - 14066,14066,14066,14066,14067,14067,14067,14067,14068,14068,14069,14069, & - 14069,14070,14070,14070,14071,14071,14071,14072,14072,14072,14073,14073, & - 14073,14074,14074,14074,14074,14075,14075,14075,14075,14076,14076,14077, & - 14077,14078,14078,14078,14079,14079,14079,14079,14080,14080,14080,14080 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_127 = (/ & - 14081,14081,14081,14081,14082,14082,14082,14083,14083,14083,14083,14084, & - 14084,14085,14085,14086,14086,14086,14087,14087,14087,14087,14088,14088, & - 14088,14088,14089,14089,14090,14090,14090,14091,14091,14091,14092,14092, & - 14092,14093,14093,14094,14094,14094,14095,14095,14095,14095,14096,14096, & - 14096,14097,14097,14097,14097,14098,14098,14098,14098,14099,14099,14099, & - 14100,14100,14100,14101,14101,14101,14102,14102,14102,14103,14103,14103, & - 14103,14104,14104,14104,14105,14105,14105,14105,14106,14106,14106,14106, & - 14107,14107,14107,14108,14108,14108,14108,14109,14109,14110,14110,14111, & - 14111,14112,14112,14112,14113,14113,14113,14114,14114,14114,14115,14115, & - 14115,14115,14116,14116,14117,14117,14117,14117,14118,14118,14118,14119, & - 14119,14119,14120,14120,14120,14121,14121,14121,14122,14122,14122,14123, & - 14123,14123,14124,14124,14124,14124,14125,14125,14125,14125,14126,14126, & - 14127,14127,14128,14128,14129,14129,14129,14129,14129,14130,14130,14130, & - 14131,14131,14132,14132,14132,14133,14133,14133,14134,14134,14134,14134, & - 14135,14135,14135,14135,14136,14136,14136,14137,14137,14137,14138,14138, & - 14138,14139,14139,14139,14140,14140,14140,14141,14141,14141,14142,14142, & - 14142,14143,14143,14143,14143,14144,14144,14144,14144,14145,14145,14146, & - 14146,14147,14147,14148,14148,14148,14148,14148,14149,14149,14149,14150, & - 14150,14151,14151,14151,14152,14152,14152,14153,14153,14153,14153,14154, & - 14154,14154,14154,14155,14155,14155,14155,14156,14156,14156,14157,14157, & - 14157,14158,14158,14158,14159,14159,14159,14159,14160,14160,14160,14160, & - 14161,14161,14162,14162,14163,14163,14164,14164,14164,14165,14165,14165, & - 14166,14166,14166,14167,14167,14167,14168,14168,14168,14168,14168,14169, & - 14169,14169,14170,14170,14171,14171,14171,14172,14172,14172,14172,14173, & - 14173,14173,14174,14174,14174,14174,14175,14175,14175,14175,14176,14176, & - 14176,14176,14177,14177,14177,14177,14178,14178,14178,14179,14179,14179, & - 14179,14180,14180,14180,14180,14181,14181,14182,14182,14183,14183,14183, & - 14184,14184,14184,14185,14185,14185,14186,14186,14186,14187,14187,14187, & - 14188,14188,14188,14189,14189,14189,14189,14189,14190,14190,14190,14191, & - 14191,14191,14192,14192,14192,14193,14193,14193,14194,14194,14194,14194 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_128 = (/ & - 14194,14195,14195,14195,14196,14196,14197,14197,14197,14198,14198,14198, & - 14198,14199,14199,14199,14200,14200,14200,14201,14201,14201,14201,14202, & - 14202,14202,14202,14203,14203,14203,14204,14204,14204,14204,14205,14205, & - 14205,14206,14206,14206,14207,14207,14207,14207,14208,14208,14208,14209, & - 14209,14209,14210,14210,14210,14210,14211,14211,14211,14211,14212,14212, & - 14212,14213,14213,14213,14213,14214,14214,14214,14214,14215,14215,14215, & - 14216,14216,14216,14216,14217,14217,14218,14218,14219,14219,14219,14220, & - 14220,14220,14220,14221,14221,14221,14221,14222,14222,14223,14223,14224, & - 14224,14224,14225,14225,14225,14226,14226,14226,14227,14227,14227,14227, & - 14228,14228,14228,14228,14229,14229,14230,14230,14231,14231,14232,14232, & - 14232,14233,14233,14233,14233,14234,14234,14234,14234,14235,14235,14235, & - 14235,14236,14236,14236,14236,14237,14237,14237,14238,14238,14238,14238, & - 14239,14239,14239,14239,14240,14240,14241,14241,14242,14242,14243,14243, & - 14243,14244,14244,14244,14245,14245,14245,14245,14246,14246,14246,14246, & - 14247,14247,14248,14248,14249,14249,14250,14250,14250,14251,14251,14251, & - 14251,14252,14252,14252,14252,14253,14253,14253,14253,14254,14254,14254, & - 14255,14255,14255,14255,14256,14256,14257,14257,14258,14258,14258,14259, & - 14259,14259,14260,14260,14260,14260,14261,14261,14261,14261,14262,14262, & - 14263,14263,14264,14264,14265,14265,14265,14266,14266,14266,14267,14267, & - 14267,14268,14268,14268,14269,14269,14269,14270,14270,14270,14270,14271, & - 14271,14271,14271,14272,14272,14273,14273,14274,14274,14275,14275,14275, & - 14275,14275,14276,14276,14276,14277,14277,14278,14278,14278,14279,14279, & - 14279,14279,14280,14280,14280,14281,14281,14281,14282,14282,14282,14283, & - 14283,14283,14284,14284,14284,14285,14285,14285,14285,14286,14286,14286, & - 14287,14287,14287,14288,14288,14288,14289,14289,14289,14289,14290,14290, & - 14290,14290,14291,14291,14292,14292,14293,14293,14293,14294,14294,14294, & - 14295,14295,14295,14295,14296,14296,14296,14296,14297,14297,14298,14298, & - 14299,14299,14300,14300,14300,14300,14301,14301,14301,14301,14302,14302, & - 14302,14303,14303,14303,14303,14304,14304,14304,14304,14305,14305,14306, & - 14306,14307,14307,14308,14308,14308,14308,14309,14309,14309,14310,14310 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_129 = (/ & - 14310,14311,14311,14311,14312,14312,14312,14312,14313,14313,14313,14313, & - 14314,14314,14315,14315,14316,14316,14317,14317,14318,14318,14318,14319, & - 14319,14319,14319,14320,14320,14320,14321,14321,14322,14322,14322,14323, & - 14323,14323,14323,14324,14324,14325,14325,14325,14326,14326,14326,14326, & - 14327,14327,14327,14328,14328,14328,14329,14329,14329,14329,14330,14330, & - 14330,14330,14331,14331,14331,14332,14332,14332,14332,14333,14333,14333, & - 14333,14334,14334,14334,14335,14335,14335,14335,14336,14336,14337,14337, & - 14338,14338,14338,14338,14339,14339,14339,14339,14340,14340,14340,14341, & - 14341,14341,14341,14342,14342,14342,14342,14343,14343,14344,14344,14345, & - 14345,14346,14346,14346,14346,14347,14347,14347,14348,14348,14348,14349, & - 14349,14349,14349,14350,14350,14350,14350,14351,14351,14352,14352,14353, & - 14353,14354,14354,14354,14354,14355,14355,14355,14355,14356,14356,14356, & - 14356,14357,14357,14357,14358,14358,14358,14359,14359,14359,14359,14359, & - 14360,14360,14360,14360,14360,14361,14361,14361,14362,14362,14362,14363, & - 14363,14363,14363,14364,14364,14364,14365,14365,14365,14365,14366,14366, & - 14366,14366,14367,14367,14368,14368,14369,14369,14369,14370,14370,14370, & - 14370,14371,14371,14371,14371,14372,14372,14373,14373,14374,14374,14374, & - 14375,14375,14375,14375,14376,14376,14376,14376,14377,14377,14378,14378, & - 14379,14379,14379,14380,14380,14380,14380,14381,14381,14381,14381,14381, & - 14382,14382,14382,14383,14383,14383,14384,14384,14384,14384,14385,14385, & - 14385,14385,14386,14386,14386,14387,14387,14387,14387,14388,14388,14389, & - 14389,14389,14390,14390,14390,14390,14391,14391,14391,14391,14392,14392, & - 14393,14393,14393,14394,14394,14394,14394,14395,14395,14395,14395,14396, & - 14396,14397,14397,14397,14398,14398,14398,14399,14399,14400,14400,14400, & - 14401,14401,14401,14402,14402,14402,14403,14403,14403,14404,14404,14404, & - 14404,14404,14405,14405,14405,14406,14406,14406,14407,14407,14407,14408, & - 14408,14409,14409,14409,14410,14410,14410,14410,14411,14411,14411,14411, & - 14412,14412,14413,14413,14413,14414,14414,14414,14415,14415,14415,14416, & - 14416,14416,14417,14417,14417,14417,14417,14418,14418,14418,14419,14419, & - 14419,14420,14420,14420,14420,14421,14421,14421,14421,14422,14422,14422 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_130 = (/ & - 14423,14423,14423,14423,14424,14424,14425,14425,14425,14426,14426,14426, & - 14426,14427,14427,14427,14427,14428,14428,14429,14429,14430,14430,14430, & - 14431,14431,14431,14432,14432,14432,14432,14433,14433,14433,14433,14434, & - 14434,14434,14434,14435,14435,14435,14435,14435,14436,14436,14436,14436, & - 14437,14437,14437,14437,14438,14438,14439,14439,14439,14440,14440,14440, & - 14440,14441,14441,14441,14442,14442,14442,14443,14443,14443,14443,14444, & - 14444,14444,14444,14445,14445,14445,14446,14446,14446,14447,14447,14447, & - 14447,14448,14448,14448,14448,14449,14449,14449,14449,14450,14450,14450, & - 14451,14451,14452,14452,14452,14453,14453,14453,14453,14454,14454,14454, & - 14455,14455,14455,14456,14456,14456,14456,14457,14457,14457,14458,14458, & - 14458,14459,14459,14459,14460,14460,14460,14461,14461,14461,14462,14462, & - 14462,14462,14463,14463,14463,14463,14464,14464,14465,14465,14465,14465, & - 14466,14466,14466,14467,14467,14467,14467,14468,14468,14468,14468,14469, & - 14469,14469,14470,14470,14470,14470,14471,14471,14472,14472,14473,14473, & - 14473,14473,14474,14474,14474,14475,14475,14475,14475,14476,14476,14476, & - 14477,14477,14477,14478,14478,14478,14479,14479,14479,14479,14479,14480, & - 14480,14480,14481,14481,14481,14482,14482,14482,14483,14483,14483,14483, & - 14484,14484,14484,14484,14484,14485,14485,14485,14486,14486,14486,14486, & - 14487,14487,14487,14487,14488,14488,14489,14489,14490,14490,14490,14491, & - 14491,14491,14492,14492,14492,14492,14492,14493,14493,14493,14493,14494, & - 14494,14494,14494,14494,14495,14495,14495,14495,14496,14496,14496,14497, & - 14497,14497,14497,14498,14498,14498,14498,14499,14499,14499,14500,14500, & - 14500,14501,14501,14501,14501,14502,14502,14502,14503,14503,14503,14503, & - 14504,14504,14504,14504,14505,14505,14505,14506,14506,14506,14506,14507, & - 14507,14508,14508,14509,14509,14510,14510,14510,14511,14511,14511,14512, & - 14512,14512,14513,14513,14513,14514,14514,14514,14514,14515,14515,14516, & - 14516,14516,14517,14517,14517,14517,14518,14518,14518,14519,14519,14520, & - 14520,14520,14520,14521,14521,14521,14522,14522,14522,14523,14523,14523, & - 14524,14524,14524,14525,14525,14525,14525,14526,14526,14526,14526,14527, & - 14527,14528,14528,14529,14529,14530,14530,14530,14531,14531,14531,14531 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_131 = (/ & - 14531,14532,14532,14532,14533,14533,14534,14534,14534,14535,14535,14535, & - 14535,14536,14536,14536,14537,14537,14537,14538,14538,14538,14539,14539, & - 14539,14540,14540,14540,14540,14541,14541,14542,14542,14542,14543,14543, & - 14543,14543,14544,14544,14544,14545,14545,14546,14546,14546,14547,14547, & - 14547,14548,14548,14548,14548,14549,14549,14549,14550,14550,14550,14551, & - 14551,14551,14551,14552,14552,14552,14552,14553,14553,14554,14554,14555, & - 14555,14555,14556,14556,14556,14556,14557,14557,14557,14557,14558,14558, & - 14559,14559,14560,14560,14561,14561,14561,14561,14562,14562,14562,14563, & - 14563,14563,14563,14564,14564,14564,14564,14565,14565,14565,14566,14566, & - 14566,14566,14567,14567,14568,14568,14569,14569,14569,14570,14570,14570, & - 14571,14571,14571,14571,14572,14572,14572,14573,14573,14574,14574,14574, & - 14575,14575,14576,14576,14576,14577,14577,14577,14577,14578,14578,14578, & - 14579,14579,14579,14580,14580,14580,14581,14581,14581,14581,14582,14582, & - 14582,14582,14583,14583,14583,14583,14584,14584,14584,14585,14585,14585, & - 14585,14585,14586,14586,14586,14586,14586,14587,14587,14587,14588,14588, & - 14588,14588,14588,14589,14589,14590,14590,14590,14591,14591,14592,14592, & - 14592,14593,14593,14593,14594,14594,14594,14594,14595,14595,14596,14596, & - 14596,14597,14597,14597,14597,14598,14598,14598,14599,14599,14599,14600, & - 14600,14600,14600,14601,14601,14601,14602,14602,14602,14603,14603,14603, & - 14603,14604,14604,14604,14604,14605,14605,14606,14606,14607,14607,14608, & - 14608,14608,14609,14609,14609,14610,14610,14610,14611,14611,14611,14612, & - 14612,14612,14613,14613,14613,14613,14614,14614,14614,14614,14615,14615, & - 14616,14616,14617,14617,14618,14618,14618,14618,14618,14619,14619,14619, & - 14620,14620,14620,14620,14621,14621,14621,14622,14622,14622,14622,14622, & - 14623,14623,14623,14623,14623,14624,14624,14624,14625,14625,14625,14625, & - 14625,14626,14626,14627,14627,14627,14628,14628,14629,14629,14629,14630, & - 14630,14630,14631,14631,14631,14631,14632,14632,14632,14633,14633,14633, & - 14634,14634,14634,14634,14635,14635,14635,14635,14636,14636,14637,14637, & - 14638,14638,14639,14639,14639,14640,14640,14640,14640,14641,14641,14641, & - 14642,14642,14642,14643,14643,14643,14643,14644,14644,14644,14645,14645 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_132 = (/ & - 14645,14646,14646,14647,14647,14647,14648,14648,14648,14649,14649,14649, & - 14650,14650,14651,14651,14651,14652,14652,14652,14653,14653,14653,14654, & - 14654,14655,14655,14655,14656,14656,14656,14657,14657,14657,14658,14658, & - 14658,14658,14658,14659,14659,14659,14660,14660,14660,14661,14661,14661, & - 14662,14662,14662,14663,14663,14663,14664,14664,14664,14665,14665,14666, & - 14666,14666,14667,14667,14667,14668,14668,14668,14668,14669,14669,14669, & - 14669,14670,14670,14671,14671,14672,14672,14672,14673,14673,14673,14673, & - 14674,14674,14674,14674,14675,14675,14676,14676,14676,14677,14677,14677, & - 14678,14678,14678,14678,14679,14679,14679,14680,14680,14680,14681,14681, & - 14681,14681,14681,14682,14682,14682,14683,14683,14684,14684,14684,14685, & - 14685,14685,14685,14686,14686,14686,14686,14687,14687,14687,14688,14688, & - 14688,14688,14689,14689,14689,14689,14690,14690,14690,14691,14691,14691, & - 14691,14692,14692,14693,14693,14694,14694,14694,14694,14695,14695,14695, & - 14696,14696,14696,14696,14697,14697,14697,14697,14698,14698,14698,14699, & - 14699,14699,14699,14700,14700,14701,14701,14702,14702,14702,14702,14703, & - 14703,14703,14704,14704,14704,14704,14705,14705,14705,14705,14706,14706, & - 14706,14707,14707,14707,14707,14708,14708,14709,14709,14710,14710,14710, & - 14711,14711,14711,14711,14712,14712,14712,14712,14713,14713,14714,14714, & - 14715,14715,14716,14716,14716,14717,14717,14717,14717,14718,14718,14718, & - 14718,14719,14719,14720,14720,14721,14721,14721,14722,14722,14722,14723, & - 14723,14723,14723,14724,14724,14724,14725,14725,14725,14726,14726,14726, & - 14727,14727,14727,14727,14727,14728,14728,14728,14729,14729,14729,14730, & - 14730,14730,14730,14730,14731,14731,14731,14732,14732,14732,14732,14733, & - 14733,14733,14733,14734,14734,14734,14735,14735,14735,14736,14736,14736, & - 14736,14737,14737,14737,14737,14738,14738,14738,14739,14739,14739,14739, & - 14740,14740,14740,14740,14741,14741,14742,14742,14743,14743,14743,14743, & - 14744,14744,14744,14745,14745,14745,14746,14746,14746,14747,14747,14747, & - 14748,14748,14748,14748,14749,14749,14749,14749,14750,14750,14751,14751, & - 14752,14752,14752,14753,14753,14753,14754,14754,14754,14755,14755,14755, & - 14756,14756,14756,14757,14757,14757,14757,14758,14758,14758,14758,14759 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_133 = (/ & - 14759,14760,14760,14761,14761,14762,14762,14762,14762,14762,14763,14763, & - 14763,14764,14764,14764,14765,14765,14765,14765,14766,14766,14766,14766, & - 14767,14767,14768,14768,14769,14769,14770,14770,14771,14771,14771,14772, & - 14772,14772,14772,14773,14773,14773,14774,14774,14775,14775,14775,14776, & - 14776,14776,14777,14777,14777,14777,14778,14778,14778,14779,14779,14779, & - 14780,14780,14780,14780,14781,14781,14781,14781,14782,14782,14783,14783, & - 14784,14784,14784,14785,14785,14785,14786,14786,14786,14786,14786,14787, & - 14787,14787,14788,14788,14788,14789,14789,14789,14790,14790,14790,14791, & - 14791,14792,14792,14792,14793,14793,14793,14793,14794,14794,14794,14795, & - 14795,14795,14795,14796,14796,14796,14796,14797,14797,14797,14797,14797, & - 14798,14798,14798,14799,14799,14799,14800,14800,14800,14801,14801,14801, & - 14802,14802,14802,14802,14803,14803,14803,14803,14804,14804,14805,14805, & - 14806,14806,14806,14806,14806,14807,14807,14807,14808,14808,14808,14808, & - 14809,14809,14809,14810,14810,14810,14811,14811,14811,14811,14812,14812, & - 14812,14812,14813,14813,14814,14814,14815,14815,14816,14816,14816,14817, & - 14817,14817,14817,14818,14818,14818,14818,14819,14819,14819,14820,14820, & - 14820,14820,14821,14821,14821,14821,14821,14822,14822,14822,14823,14823, & - 14824,14824,14824,14825,14825,14825,14825,14826,14826,14826,14827,14827, & - 14827,14828,14828,14828,14829,14829,14829,14829,14830,14830,14830,14830, & - 14831,14831,14832,14832,14832,14833,14833,14833,14833,14834,14834,14834, & - 14835,14835,14836,14836,14836,14836,14837,14837,14837,14838,14838,14838, & - 14838,14839,14839,14839,14839,14840,14840,14840,14840,14841,14841,14841, & - 14842,14842,14842,14842,14843,14843,14843,14843,14843,14844,14844,14844, & - 14845,14845,14845,14846,14846,14846,14847,14847,14847,14847,14847,14848, & - 14848,14848,14849,14849,14849,14850,14850,14850,14850,14850,14851,14851, & - 14851,14851,14851,14852,14852,14852,14853,14853,14853,14853,14854,14854, & - 14854,14855,14855,14855,14855,14856,14856,14856,14857,14857,14857,14858, & - 14858,14858,14859,14859,14859,14859,14859,14859,14860,14860,14860,14861, & - 14861,14861,14862,14862,14862,14863,14863,14863,14864,14864,14864,14865, & - 14865,14865,14866,14866,14866,14867,14867,14867,14867,14868,14868,14868 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_134 = (/ & - 14869,14869,14869,14869,14870,14870,14870,14871,14871,14871,14871,14872, & - 14872,14872,14872,14873,14873,14873,14874,14874,14874,14875,14875,14875, & - 14876,14876,14876,14877,14877,14877,14878,14878,14878,14878,14879,14879, & - 14879,14879,14880,14880,14881,14881,14882,14882,14883,14883,14883,14883, & - 14883,14884,14884,14884,14885,14885,14885,14886,14886,14886,14887,14887, & - 14887,14888,14888,14888,14889,14889,14889,14889,14889,14890,14890,14890, & - 14891,14891,14891,14892,14892,14892,14893,14893,14893,14894,14894,14894, & - 14895,14895,14895,14895,14895,14895,14896,14896,14896,14897,14897,14898, & - 14898,14898,14899,14899,14899,14900,14900,14900,14900,14901,14901,14901, & - 14901,14902,14902,14902,14902,14903,14903,14903,14904,14904,14904,14905, & - 14905,14905,14906,14906,14906,14907,14907,14907,14908,14908,14908,14909, & - 14909,14909,14909,14910,14910,14910,14910,14910,14911,14911,14911,14911, & - 14912,14912,14912,14913,14913,14913,14913,14914,14914,14914,14914,14915, & - 14915,14915,14916,14916,14916,14916,14917,14917,14918,14918,14919,14919, & - 14919,14920,14920,14920,14920,14921,14921,14921,14921,14922,14922,14923, & - 14923,14924,14924,14924,14925,14925,14925,14926,14926,14926,14926,14926, & - 14927,14927,14927,14927,14928,14928,14928,14928,14928,14929,14929,14930, & - 14930,14930,14931,14931,14931,14931,14932,14932,14932,14933,14933,14933, & - 14934,14934,14934,14935,14935,14935,14936,14936,14936,14937,14937,14937, & - 14937,14938,14938,14939,14939,14939,14940,14940,14940,14940,14941,14941, & - 14941,14941,14942,14942,14942,14942,14943,14943,14943,14943,14944,14944, & - 14944,14945,14945,14945,14945,14946,14946,14946,14946,14947,14947,14948, & - 14948,14949,14949,14950,14950,14950,14951,14951,14951,14952,14952,14952, & - 14952,14953,14953,14953,14954,14954,14955,14955,14955,14956,14956,14956, & - 14957,14957,14957,14957,14958,14958,14958,14958,14959,14959,14960,14960, & - 14961,14961,14962,14962,14962,14963,14963,14963,14963,14964,14964,14964, & - 14964,14965,14965,14966,14966,14966,14967,14967,14967,14968,14968,14968, & - 14969,14969,14969,14970,14970,14971,14971,14971,14972,14972,14972,14972, & - 14973,14973,14973,14974,14974,14974,14975,14975,14975,14975,14976,14976, & - 14976,14977,14977,14977,14977,14978,14978,14978,14978,14979,14979,14979 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_135 = (/ & - 14980,14980,14980,14980,14981,14981,14982,14982,14982,14983,14983,14983, & - 14983,14984,14984,14984,14984,14985,14985,14986,14986,14986,14987,14987, & - 14987,14987,14988,14988,14988,14988,14989,14989,14990,14990,14991,14991, & - 14992,14992,14992,14993,14993,14993,14993,14994,14994,14994,14994,14994, & - 14995,14995,14995,14996,14996,14996,14997,14997,14997,14997,14998,14998, & - 14998,14998,14999,14999,15000,15000,15000,15001,15001,15001,15001,15002, & - 15002,15002,15002,15003,15003,15004,15004,15004,15004,15005,15005,15005, & - 15006,15006,15006,15006,15007,15007,15007,15008,15008,15008,15008,15009, & - 15009,15010,15010,15010,15011,15011,15011,15011,15012,15012,15012,15012, & - 15013,15013,15014,15014,15015,15015,15015,15016,15016,15016,15016,15017, & - 15017,15017,15017,15018,15018,15018,15019,15019,15019,15019,15020,15020, & - 15020,15021,15021,15021,15021,15022,15022,15022,15022,15023,15023,15023, & - 15024,15024,15024,15024,15025,15025,15026,15026,15027,15027,15027,15028, & - 15028,15028,15029,15029,15029,15030,15030,15030,15031,15031,15031,15031, & - 15032,15032,15032,15032,15033,15033,15034,15034,15035,15035,15036,15036, & - 15036,15036,15036,15037,15037,15037,15038,15038,15038,15039,15039,15039, & - 15040,15040,15040,15040,15040,15041,15041,15041,15041,15042,15042,15042, & - 15042,15043,15043,15043,15044,15044,15044,15045,15045,15045,15045,15046, & - 15046,15046,15046,15047,15047,15047,15048,15048,15048,15048,15049,15049, & - 15049,15049,15050,15050,15051,15051,15052,15052,15053,15053,15053,15054, & - 15054,15054,15055,15055,15055,15056,15056,15056,15057,15057,15057,15057, & - 15058,15058,15058,15058,15059,15059,15059,15060,15060,15060,15061,15061, & - 15061,15061,15062,15062,15062,15062,15063,15063,15064,15064,15065,15065, & - 15066,15066,15067,15067,15067,15068,15068,15068,15069,15069,15069,15069, & - 15070,15070,15070,15071,15071,15071,15072,15072,15072,15073,15073,15073, & - 15073,15074,15074,15074,15075,15075,15075,15076,15076,15076,15076,15076, & - 15077,15077,15077,15078,15078,15079,15079,15079,15080,15080,15080,15081, & - 15081,15081,15082,15082,15083,15083,15083,15084,15084,15084,15085,15085, & - 15085,15085,15086,15086,15086,15087,15087,15087,15087,15088,15088,15088, & - 15089,15089,15090,15090,15090,15090,15091,15091,15091,15092,15092,15092 /) - INTEGER, PARAMETER, DIMENSION(280) :: ICOL_STOICM_136 = (/ & - 15093,15093,15093,15094,15094,15094,15095,15095,15095,15096,15096,15096, & - 15096,15096,15097,15097,15097,15098,15098,15098,15099,15099,15099,15100, & - 15100,15100,15100,15101,15101,15101,15101,15102,15102,15102,15103,15103, & - 15103,15103,15104,15104,15104,15105,15105,15105,15106,15106,15106,15107, & - 15107,15107,15108,15108,15108,15108,15108,15109,15109,15109,15110,15110, & - 15111,15111,15111,15112,15112,15112,15112,15113,15113,15113,15114,15114, & - 15114,15115,15115,15115,15116,15116,15116,15116,15117,15117,15117,15118, & - 15118,15118,15118,15119,15119,15119,15119,15120,15120,15121,15121,15121, & - 15122,15122,15122,15122,15123,15123,15123,15124,15124,15124,15125,15125, & - 15125,15125,15126,15126,15126,15127,15127,15127,15127,15128,15128,15128, & - 15128,15129,15129,15129,15130,15130,15130,15130,15131,15131,15131,15132, & - 15132,15132,15132,15133,15133,15133,15133,15134,15134,15134,15135,15135, & - 15135,15135,15136,15136,15137,15137,15137,15138,15138,15138,15138,15139, & - 15139,15139,15139,15140,15140,15141,15141,15142,15142,15143,15143,15143, & - 15144,15144,15144,15144,15145,15145,15145,15145,15146,15146,15146,15147, & - 15147,15147,15147,15148,15148,15149,15149,15149,15150,15150,15150,15150, & - 15151,15151,15151,15151,15152,15152,15153,15153,15153,15154,15154,15154, & - 15155,15155,15155,15155,15155,15156,15156,15156,15157,15157,15157,15158, & - 15158,15159,15159,15159,15160,15160,15161,15161,15161,15161,15162,15162, & - 15162,15163,15163,15163,15163,15164,15164,15164,15165,15165,15165,15166, & - 15166,15166,15166,15166,15167,15167,15167,15168,15168,15168,15169,15169, & - 15169,15170,15170,15170,15170,15171,15171,15171,15172,15172,15172,15172, & - 15173,15173,15173,15173,15174,15174,15175,15175,15175,15176,15176,15176, & - 15177,15177,15177,15177 /) - INTEGER, PARAMETER, DIMENSION(49240) :: ICOL_STOICM = (/& - ICOL_STOICM_0, ICOL_STOICM_1, ICOL_STOICM_2, ICOL_STOICM_3, ICOL_STOICM_4, & - ICOL_STOICM_5, ICOL_STOICM_6, ICOL_STOICM_7, ICOL_STOICM_8, ICOL_STOICM_9, & - ICOL_STOICM_10, ICOL_STOICM_11, ICOL_STOICM_12, ICOL_STOICM_13, ICOL_STOICM_14, & - ICOL_STOICM_15, ICOL_STOICM_16, ICOL_STOICM_17, ICOL_STOICM_18, ICOL_STOICM_19, & - ICOL_STOICM_20, ICOL_STOICM_21, ICOL_STOICM_22, ICOL_STOICM_23, ICOL_STOICM_24, & - ICOL_STOICM_25, ICOL_STOICM_26, ICOL_STOICM_27, ICOL_STOICM_28, ICOL_STOICM_29, & - ICOL_STOICM_30, ICOL_STOICM_31, ICOL_STOICM_32, ICOL_STOICM_33, ICOL_STOICM_34, & - ICOL_STOICM_35, ICOL_STOICM_36, ICOL_STOICM_37, ICOL_STOICM_38, ICOL_STOICM_39, & - ICOL_STOICM_40, ICOL_STOICM_41, ICOL_STOICM_42, ICOL_STOICM_43, ICOL_STOICM_44, & - ICOL_STOICM_45, ICOL_STOICM_46, ICOL_STOICM_47, ICOL_STOICM_48, ICOL_STOICM_49, & - ICOL_STOICM_50, ICOL_STOICM_51, ICOL_STOICM_52, ICOL_STOICM_53, ICOL_STOICM_54, & - ICOL_STOICM_55, ICOL_STOICM_56, ICOL_STOICM_57, ICOL_STOICM_58, ICOL_STOICM_59, & - ICOL_STOICM_60, ICOL_STOICM_61, ICOL_STOICM_62, ICOL_STOICM_63, ICOL_STOICM_64, & - ICOL_STOICM_65, ICOL_STOICM_66, ICOL_STOICM_67, ICOL_STOICM_68, ICOL_STOICM_69, & - ICOL_STOICM_70, ICOL_STOICM_71, ICOL_STOICM_72, ICOL_STOICM_73, ICOL_STOICM_74, & - ICOL_STOICM_75, ICOL_STOICM_76, ICOL_STOICM_77, ICOL_STOICM_78, ICOL_STOICM_79, & - ICOL_STOICM_80, ICOL_STOICM_81, ICOL_STOICM_82, ICOL_STOICM_83, ICOL_STOICM_84, & - ICOL_STOICM_85, ICOL_STOICM_86, ICOL_STOICM_87, ICOL_STOICM_88, ICOL_STOICM_89, & - ICOL_STOICM_90, ICOL_STOICM_91, ICOL_STOICM_92, ICOL_STOICM_93, ICOL_STOICM_94, & - ICOL_STOICM_95, ICOL_STOICM_96, ICOL_STOICM_97, ICOL_STOICM_98, ICOL_STOICM_99, & - ICOL_STOICM_100, ICOL_STOICM_101, ICOL_STOICM_102, ICOL_STOICM_103, ICOL_STOICM_104, & - ICOL_STOICM_105, ICOL_STOICM_106, ICOL_STOICM_107, ICOL_STOICM_108, ICOL_STOICM_109, & - ICOL_STOICM_110, ICOL_STOICM_111, ICOL_STOICM_112, ICOL_STOICM_113, ICOL_STOICM_114, & - ICOL_STOICM_115, ICOL_STOICM_116, ICOL_STOICM_117, ICOL_STOICM_118, ICOL_STOICM_119, & - ICOL_STOICM_120, ICOL_STOICM_121, ICOL_STOICM_122, ICOL_STOICM_123, ICOL_STOICM_124, & - ICOL_STOICM_125, ICOL_STOICM_126, ICOL_STOICM_127, ICOL_STOICM_128, ICOL_STOICM_129, & - ICOL_STOICM_130, ICOL_STOICM_131, ICOL_STOICM_132, ICOL_STOICM_133, ICOL_STOICM_134, & - ICOL_STOICM_135, ICOL_STOICM_136 /) - - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_0 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -2.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_1 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_2 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_3 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_4 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_5 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_6 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_7 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_8 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_9 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_10 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_11 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_12 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_13 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_14 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_15 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_16 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_17 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_18 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_19 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_20 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_21 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_22 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_23 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_24 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_25 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_26 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_27 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_28 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_29 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_30 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_31 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_32 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_33 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_34 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_35 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_36 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_37 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_38 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_39 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_40 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_41 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_42 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_43 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_44 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_45 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_46 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_47 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_48 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_49 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_50 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_51 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_52 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_53 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_54 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_55 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_56 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_57 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_58 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_59 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_60 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_61 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_62 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_63 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_64 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_65 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_66 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_67 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_68 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_69 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_70 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_71 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_72 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_73 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_74 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_75 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_76 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_77 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_78 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_79 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_80 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_81 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_82 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_83 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_84 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_85 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_86 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_87 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_88 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_89 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_90 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_91 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_92 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_93 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_94 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_95 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_96 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_97 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_98 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_99 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_100 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_101 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_102 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_103 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_104 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_105 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_106 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_107 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_108 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_109 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_110 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_111 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_112 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_113 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_114 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_115 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_116 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_117 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_118 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_119 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_120 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_121 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_122 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_123 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_124 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_125 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_126 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_127 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_128 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_129 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_130 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_131 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_132 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_133 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_134 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_135 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_136 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_137 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_138 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_139 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_140 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_141 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_142 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_143 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_144 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_145 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_146 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_147 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_148 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_149 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_150 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_151 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_152 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_153 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_154 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_155 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_156 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_157 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_158 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_159 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_160 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_161 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_162 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_163 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_164 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_165 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_166 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 3.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 3.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_167 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_168 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_169 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_170 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_171 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_172 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_173 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_174 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_175 = (/ & - 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_176 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_177 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_178 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_179 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_180 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_181 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_182 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_183 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_184 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_185 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_186 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_187 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_188 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_189 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_190 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_191 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_192 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 3.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_193 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_194 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_195 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_196 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_197 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_198 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_199 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_200 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_201 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_202 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_203 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_204 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_205 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_206 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_207 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_208 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 4.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 4.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_209 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_210 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_211 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_212 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_213 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_214 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_215 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_216 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_217 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_218 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_219 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_220 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_221 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_222 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_223 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_224 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_225 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_226 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_227 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_228 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_229 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_230 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_231 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_232 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_233 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_234 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_235 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_236 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_237 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_238 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_239 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_240 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_241 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_242 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_243 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_244 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_245 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, 3.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 3.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 3.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_246 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_247 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 3.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_248 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_249 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_250 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_251 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_252 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_253 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_254 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_255 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_256 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_257 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_258 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_259 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_260 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_261 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_262 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_263 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_264 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_265 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_266 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_267 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_268 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_269 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 3.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 3.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_270 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_271 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 3.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_272 = (/ & - 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_273 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_274 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_275 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_276 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_277 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_278 = (/ & - 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_279 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_280 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_281 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_282 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_283 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_284 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_285 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_286 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_287 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_288 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_289 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_290 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_291 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 3.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_292 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_293 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_294 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_295 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_296 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_297 = (/ & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_298 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_299 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_300 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_301 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_302 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_303 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_304 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_305 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_306 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_307 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_308 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_309 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_310 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_311 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_312 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_313 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_314 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_315 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_316 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_317 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_318 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_319 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_320 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_321 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_322 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_323 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_324 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_325 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_326 = (/ & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_327 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(40) :: STOICM_328 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(49240) :: STOICM = (/& - STOICM_0, STOICM_1, STOICM_2, STOICM_3, STOICM_4, & - STOICM_5, STOICM_6, STOICM_7, STOICM_8, STOICM_9, & - STOICM_10, STOICM_11, STOICM_12, STOICM_13, STOICM_14, & - STOICM_15, STOICM_16, STOICM_17, STOICM_18, STOICM_19, & - STOICM_20, STOICM_21, STOICM_22, STOICM_23, STOICM_24, & - STOICM_25, STOICM_26, STOICM_27, STOICM_28, STOICM_29, & - STOICM_30, STOICM_31, STOICM_32, STOICM_33, STOICM_34, & - STOICM_35, STOICM_36, STOICM_37, STOICM_38, STOICM_39, & - STOICM_40, STOICM_41, STOICM_42, STOICM_43, STOICM_44, & - STOICM_45, STOICM_46, STOICM_47, STOICM_48, STOICM_49, & - STOICM_50, STOICM_51, STOICM_52, STOICM_53, STOICM_54, & - STOICM_55, STOICM_56, STOICM_57, STOICM_58, STOICM_59, & - STOICM_60, STOICM_61, STOICM_62, STOICM_63, STOICM_64, & - STOICM_65, STOICM_66, STOICM_67, STOICM_68, STOICM_69, & - STOICM_70, STOICM_71, STOICM_72, STOICM_73, STOICM_74, & - STOICM_75, STOICM_76, STOICM_77, STOICM_78, STOICM_79, & - STOICM_80, STOICM_81, STOICM_82, STOICM_83, STOICM_84, & - STOICM_85, STOICM_86, STOICM_87, STOICM_88, STOICM_89, & - STOICM_90, STOICM_91, STOICM_92, STOICM_93, STOICM_94, & - STOICM_95, STOICM_96, STOICM_97, STOICM_98, STOICM_99, & - STOICM_100, STOICM_101, STOICM_102, STOICM_103, STOICM_104, & - STOICM_105, STOICM_106, STOICM_107, STOICM_108, STOICM_109, & - STOICM_110, STOICM_111, STOICM_112, STOICM_113, STOICM_114, & - STOICM_115, STOICM_116, STOICM_117, STOICM_118, STOICM_119, & - STOICM_120, STOICM_121, STOICM_122, STOICM_123, STOICM_124, & - STOICM_125, STOICM_126, STOICM_127, STOICM_128, STOICM_129, & - STOICM_130, STOICM_131, STOICM_132, STOICM_133, STOICM_134, & - STOICM_135, STOICM_136, STOICM_137, STOICM_138, STOICM_139, & - STOICM_140, STOICM_141, STOICM_142, STOICM_143, STOICM_144, & - STOICM_145, STOICM_146, STOICM_147, STOICM_148, STOICM_149, & - STOICM_150, STOICM_151, STOICM_152, STOICM_153, STOICM_154, & - STOICM_155, STOICM_156, STOICM_157, STOICM_158, STOICM_159, & - STOICM_160, STOICM_161, STOICM_162, STOICM_163, STOICM_164, & - STOICM_165, STOICM_166, STOICM_167, STOICM_168, STOICM_169, & - STOICM_170, STOICM_171, STOICM_172, STOICM_173, STOICM_174, & - STOICM_175, STOICM_176, STOICM_177, STOICM_178, STOICM_179, & - STOICM_180, STOICM_181, STOICM_182, STOICM_183, STOICM_184, & - STOICM_185, STOICM_186, STOICM_187, STOICM_188, STOICM_189, & - STOICM_190, STOICM_191, STOICM_192, STOICM_193, STOICM_194, & - STOICM_195, STOICM_196, STOICM_197, STOICM_198, STOICM_199, & - STOICM_200, STOICM_201, STOICM_202, STOICM_203, STOICM_204, & - STOICM_205, STOICM_206, STOICM_207, STOICM_208, STOICM_209, & - STOICM_210, STOICM_211, STOICM_212, STOICM_213, STOICM_214, & - STOICM_215, STOICM_216, STOICM_217, STOICM_218, STOICM_219, & - STOICM_220, STOICM_221, STOICM_222, STOICM_223, STOICM_224, & - STOICM_225, STOICM_226, STOICM_227, STOICM_228, STOICM_229, & - STOICM_230, STOICM_231, STOICM_232, STOICM_233, STOICM_234, & - STOICM_235, STOICM_236, STOICM_237, STOICM_238, STOICM_239, & - STOICM_240, STOICM_241, STOICM_242, STOICM_243, STOICM_244, & - STOICM_245, STOICM_246, STOICM_247, STOICM_248, STOICM_249, & - STOICM_250, STOICM_251, STOICM_252, STOICM_253, STOICM_254, & - STOICM_255, STOICM_256, STOICM_257, STOICM_258, STOICM_259, & - STOICM_260, STOICM_261, STOICM_262, STOICM_263, STOICM_264, & - STOICM_265, STOICM_266, STOICM_267, STOICM_268, STOICM_269, & - STOICM_270, STOICM_271, STOICM_272, STOICM_273, STOICM_274, & - STOICM_275, STOICM_276, STOICM_277, STOICM_278, STOICM_279, & - STOICM_280, STOICM_281, STOICM_282, STOICM_283, STOICM_284, & - STOICM_285, STOICM_286, STOICM_287, STOICM_288, STOICM_289, & - STOICM_290, STOICM_291, STOICM_292, STOICM_293, STOICM_294, & - STOICM_295, STOICM_296, STOICM_297, STOICM_298, STOICM_299, & - STOICM_300, STOICM_301, STOICM_302, STOICM_303, STOICM_304, & - STOICM_305, STOICM_306, STOICM_307, STOICM_308, STOICM_309, & - STOICM_310, STOICM_311, STOICM_312, STOICM_313, STOICM_314, & - STOICM_315, STOICM_316, STOICM_317, STOICM_318, STOICM_319, & - STOICM_320, STOICM_321, STOICM_322, STOICM_323, STOICM_324, & - STOICM_325, STOICM_326, STOICM_327, STOICM_328 /) - - -END MODULE MCMv3_3_StoichiomSP - diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_StoichiomSP.o b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_StoichiomSP.o deleted file mode 100644 index 98bbf66a798ad68785a7f308c00bbc7bff1147dd..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_StoichiomSP.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Util.f90 b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Util.f90 deleted file mode 100644 index b98cce3fb350b3bca8524ec7ef2002c757da6cc0..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Util.f90 +++ /dev/null @@ -1,11916 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Auxiliary Routines File -! -! Generated by KPP-2.2.3 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 : MCMv3_3_Util.f90 -! Time : Mon Jul 19 14:16:06 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MCMv3_3_3654_BOXMOX -! Equation file : MCMv3_3.kpp -! Output root filename : MCMv3_3 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MCMv3_3_Util - - USE MCMv3_3_Parameters - USE MCMv3_3_Global - USE MCMv3_3_Monitor - IMPLICIT NONE - -CONTAINS - - - -! User INLINED Utility Functions - - -! **************************************************************************** -! **************************************************************************** -! BOXMOX utilities -! **************************************************************************** -! **************************************************************************** - - -! **************************************************************************** -! toUPPER - convert ASCII characters to all upper case -! from http://stackoverflow.com/questions/10759375/ -! how-can-i-write-a-to-upper-or-to-lower-function-in-f90 -! **************************************************************************** - FUNCTION toUPPER (str) RESULT (string) - - CHARACTER(*), INTENT(In) :: str - CHARACTER(LEN(str)) :: string - - INTEGER :: ic, i - - CHARACTER(26), PARAMETER :: cap = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' - CHARACTER(26), PARAMETER :: low = 'abcdefghijklmnopqrstuvwxyz' - - string = str - DO i = 1, LEN_TRIM(str) - ic = INDEX(low, str(i:i)) - IF (ic > 0) string(i:i) = cap(ic:ic) - END DO - - END FUNCTION toUPPER -! **************************************************************************** - - -! **************************************************************************** -! hash - a string hashing function -! from flibs, http://flibs.sourceforge.net -! **************************************************************************** - INTEGER FUNCTION hash( key ) - - CHARACTER(len=*), INTENT(in) :: key - - INTEGER :: i - - INTEGER, PARAMETER :: hash_size = 49931 - INTEGER, PARAMETER :: multiplier = 312 - - hash = 0 - - DO i = 1,LEN(key) - hash = MODULO( multiplier * hash + ICHAR(key(i:i)), hash_size) - ENDDO - - hash = 1 + MODULO( hash-1, hash_size ) - END FUNCTION hash -! **************************************************************************** - - -! **************************************************************************** -! strEqual - comparison function matching two strings -! **************************************************************************** - LOGICAL FUNCTION strEqual(a, b) - - CHARACTER(LEN=*), INTENT(IN) :: a, b - - LOGICAL, PARAMETER :: ignoreCase = .TRUE. - - CHARACTER(LEN=100) :: nice_a, nice_b - INTEGER :: max_len - - nice_a = ADJUSTL(a) - nice_b = ADJUSTL(b) - - IF (ignoreCase) THEN - nice_a = toUPPER(nice_a) - nice_b = toUPPER(nice_b) - END IF - - max_len = MAX( LEN_TRIM(nice_a), LEN_TRIM(nice_b) ) - - strEqual = nice_a(1:max_len) .EQ. nice_b(1:max_len) - - END FUNCTION strEqual -! **************************************************************************** - - -! **************************************************************************** -! writespecstring - Utility function that plots a (potentially) -! large number of species -! **************************************************************************** - SUBROUTINE writespecstring(nspecies, txt, species, offset) - - INTEGER :: nspecies, offset - CHARACTER(LEN=*) :: txt - CHARACTER(LEN=15) :: species(nspecies), fmt - CHARACTER(LEN=2000) :: specstring - - INTEGER, PARAMETER :: cperline=60 - - INTEGER :: i, l - - fmt = "" - WRITE(fmt, "(A1,I3,A4)") "(", offset, "X,A)" - - i = 1; l = 1 - specstring = "" - - DO WHILE (i <= nspecies) - - specstring = TRIM(ADJUSTL(specstring))//TRIM(ADJUSTL(species(i))) - IF (i < nspecies) specstring = TRIM(ADJUSTL(specstring))//", " - - i = i + 1 - - IF (LEN_TRIM(specstring) > cperline) THEN - IF (l == 1) specstring = txt//specstring - l = l + 1 - WRITE(*,fmt) TRIM(specstring) - specstring = "" - ENDIF - ENDDO - - IF (LEN_TRIM(specstring) > 0) THEN - IF (l == 1) specstring = txt//specstring - WRITE(*,fmt) TRIM(specstring) - ENDIF - - END SUBROUTINE writespecstring -! **************************************************************************** - - -! **************************************************************************** -! calcCFACTOR - Calculates CFACTOR variable for unit conversion between -! input/output files and values used in calculations / rates -! **************************************************************************** - SUBROUTINE calcCFACTOR ( ) - - ! from ppmv to mlc/cm3: - ! 1e-6 ppmv -> vmr - ! 1e-3 kg/m3 -> g/cm3 - ! 1/28.9645 g/cm3 -> mole/cm3 - ! 6.022e23 -> molec/cm3 - ! then multiply with air density rho - ! 1.0E-6 * 1E-03 * (1.0/28.97) * 6.022e23 * rho - ! CFACTOR = 2.598378e+13; (with rho == 1.25) - - CFACTOR = 1.0E-6 * 1E-03 * (1.0/28.9645) * 6.022e23 * & - pres / (287.058 * temp) - - END SUBROUTINE calcCFACTOR -! **************************************************************************** - - -! **************************************************************************** -! readConfig - Sets variables using values read in from "BOXMOX.nml" -! **************************************************************************** - SUBROUTINE readConfig ( ) - - INTEGER, PARAMETER :: config_pid = 22 - CHARACTER(LEN=*), PARAMETER :: config_name = "BOXMOX.nml" - - NAMELIST /BOXMOX/ TSTART, TEND, DT, lverbose, iturb, lfix_nox - - LOGICAL :: lnml_exists - - ! *** default values section *** - - TSTART = 0.0D0 ! model start time, seconds since 0 LT - TEND = TSTART + 3600.0D0 ! model end time, seconds since 0 LT - DT = 10.D0 ! model time step, seconds - - lverbose = .FALSE. - iturb = TURB_OPT_NONE - - lfix_nox = .FALSE. - - ! *** namelist read-in section *** - - INQUIRE(FILE=config_name, EXIST=lnml_exists) - - IF (lnml_exists) THEN - - WRITE(*,*) "BOXMOX configuration file ", TRIM(config_name)," found." - - OPEN (config_pid, FILE=config_name) - READ (config_pid, nml=BOXMOX) - CLOSE(config_pid) - - ELSE - WRITE(*,*) "No BOXMOX configuration file (", & - TRIM(config_name),") exists." - ENDIF - - ! *** configuration printout *** - - WRITE(*,*) " " - WRITE(*,"(A20,2X,F12.3)") "TSTART", TSTART - WRITE(*,"(A20,2X,F12.3)") "TEND", TEND - WRITE(*,"(A20,2X,F12.3)") "DT", DT - WRITE(*,*) "" - WRITE(*,"(A20,2X,L10)") "lverbose", lverbose - WRITE(*,*) "" - WRITE(*,"(A20,11X,I1)") "iturb", iturb - WRITE(*,*) "" - WRITE(*,"(A20,2X,L10)") "lfix_nox", lfix_nox - - WRITE(*,*) " " - - END SUBROUTINE readConfig -! **************************************************************************** - - -! **************************************************************************** -! checkConfig - check configuration variables -! **************************************************************************** - SUBROUTINE checkConfig ( ) - - INTEGER :: status - - status = 0 - - IF (TSTART < 0.0) THEN - WRITE(*,*) "start time TSTART cannot be < 0.0" - status = 1 - ENDIF - IF (TEND < 0.0) THEN - WRITE(*,*) "end time TEND cannot be < 0.0" - status = 2 - ENDIF - IF (TSTART >= TEND) THEN - WRITE(*,*) "start time TSTART has to be < end time TEND" - status = 3 - ENDIF - IF (DT <= 0.0) THEN - WRITE(*,*) "time step DT has to be > 0.0" - status = 4 - ENDIF - - IF (status .NE. 0) THEN - IF (.NOT. llibrary) THEN - STOP - ENDIF - ENDIF - - END SUBROUTINE checkConfig -! **************************************************************************** - - -! **************************************************************************** -! writeVersion - Write "VERSION" file to run directory -! **************************************************************************** - SUBROUTINE writeVersion ( ) - - INTEGER, PARAMETER :: version_pid = 23 - CHARACTER(LEN=*), PARAMETER :: version_name = "VERSION" - - ! *** write BOXMOX version to output directory *** - - OPEN(version_pid, file=version_name) - WRITE(version_pid, "(A)") "__BOXMOX_VERSION__" - CLOSE(version_pid) - - END SUBROUTINE writeVersion -! **************************************************************************** - - -! **************************************************************************** -! readVals - main input routine for the BOXMOX extensions. -! reads values from input files with different time -! formats, and interpolates to get the values -! appropriate for the current time step. -! **************************************************************************** - SUBROUTINE readVals(fname, nvar, species, values, stat, & - nanc, ancspecies, ancvalues, lquiet) - - CHARACTER(LEN=*), INTENT(IN) :: fname - INTEGER, INTENT(OUT) :: nvar - CHARACTER(LEN=15), INTENT(OUT) :: species(max_species_boxmox) - REAL(KIND=dp), INTENT(OUT) :: values(max_species_boxmox) - INTEGER, INTENT(OUT) :: stat - INTEGER, INTENT(OUT), OPTIONAL :: nanc - CHARACTER(LEN=15), INTENT(OUT),OPTIONAL :: ancspecies(max_species_boxmox) - REAL(KIND=dp), INTENT(OUT), OPTIONAL :: ancvalues(max_species_boxmox) - LOGICAL, INTENT(IN), OPTIONAL :: lquiet - - INTEGER, PARAMETER :: input_pid = 21 - REAL(KIND=dp) :: time_cur, weight_t1, & - values_t0(max_species_boxmox), & - values_t1(max_species_boxmox), & - values_cur(max_species_boxmox) - CHARACTER(LEN=15) :: names(max_species_boxmox) - INTEGER :: iostat, time_format, ntoread, ntime, nanct, pid, i - LOGICAL :: lfile_exists, ltalkative - - names(:) = "" - values_t0(:) = 0.0 - values_t1(:) = 0.0 - - stat = 0 ! everything is allright - - ltalkative = ( TIME .EQ. TSTART ) .OR. lverbose - IF (PRESENT(lquiet)) THEN - IF (lquiet) THEN - ltalkative = .FALSE. - ENDIF - ENDIF - - ! check whether file exists - INQUIRE(FILE=fname, EXIST=lfile_exists) - IF (.NOT. lfile_exists) THEN - stat = 1 - RETURN - ELSE - IF (ltalkative) THEN - WRITE(*,*) "" - WRITE(*,*) " * ", fname - ENDIF - END IF - - OPEN(input_pid, file=fname) - - ! line 1: number of variables - READ(input_pid, *) nvar - - ! if no variable should be read - bail - IF (nvar == 0) THEN - IF (ltalkative) WRITE(*,*) fname, " declared 0 variables to be read" - stat = 2 - CLOSE(input_pid) - RETURN - END IF - - ! line 2: number of ancillary variables - READ(input_pid, *) nanct - - IF (nanct .LT. 0) THEN - WRITE(*,"(A)") "Number of ancillary variables must be >= 0" - CLOSE(input_pid) - STOP - ENDIF - - IF (nanct .GT. 1) THEN - WRITE(*,"(A)") "Number of ancillary variables must be < 2" - CLOSE(input_pid) - STOP - ENDIF - - ! line 3: time format - READ(input_pid, *) time_format - - IF (time_format .LT. 0 .OR. time_format .GT. 2) THEN - WRITE(*,"(3A)") "Time format has to be 0 (constant), ", & - "1 (s since TSTART) or ", & - "2 (hour of day)" - CLOSE(input_pid) - STOP - END IF - - ntime = 0 - IF (time_format .GT. 0) ntime = 1 - - ntoread = ntime + nanct + nvar - - ! if more variables than max_species_boxmox should be read - bail - IF (ntoread > max_species_boxmox) THEN - IF (ltalkative) THEN - WRITE(*,*) fname, " declared more variables to be read" - WRITE(*,*) "than allocated. Increase max_species_boxmox," - WRITE(*,*) "recompile, and run again." - ENDIF - stat = 3 - CLOSE(input_pid) - RETURN - END IF - - ! line 4: header line - READ(input_pid, *) names(1:ntoread) - - ! line 4ff: values - READ(input_pid, *) values_t0(1:ntoread) - - ! if its not constant in time values - weight_t1 = 0 - IF (.NOT. time_format .EQ. 0) THEN - READ(input_pid, *, IOSTAT=iostat) values_t1(1:ntoread) - - ! TIME is the KPP provided current model time - time_cur = TIME - IF (time_format .EQ. 2) THEN - time_cur = TIME/3600.0_dp - (INT(TIME/3600.0_dp)/24)*24 - END IF - - ! ASSUMPTION: time is the first value read - DO WHILE(values_t1(1) .LT. time_cur .AND. iostat .EQ. 0) - values_t0 = values_t1 - - READ(input_pid, *, IOSTAT=iostat) values_t1(1:ntoread) - END DO - - ! take the last value in the file in case its time values don't cover - ! the full simulation period - IF (iostat .NE. 0) THEN - weight_t1 = 1.0 - ELSE - weight_t1 = (time_cur - values_t0(1)) / (values_t1(1) - values_t0(1)) - ENDIF - - ENDIF - - CLOSE(input_pid) - - values_cur = weight_t1 * values_t1 + & - (1.0 - weight_t1) * values_t0 - - species(1:nvar) = names(ntime+nanct+1:ntime+nanct+nvar) - values(1:nvar) = values_cur(ntime+nanct+1:ntime+nanct+nvar) - - IF (PRESENT(nanc)) nanc = nanct - - IF (nanct .GT. 0) THEN - IF (PRESENT(ancvalues)) THEN - ancvalues(1:nanct) = values_cur(ntime+1:ntime+nanct) - ENDIF - IF (PRESENT(ancspecies)) THEN - ancspecies(1:nanct) = names(ntime+1:ntime+nanct) - ENDIF - ENDIF - - END SUBROUTINE readVals -! **************************************************************************** - - -! **************************************************************************** -! readInput - Reads values from .csv, applies function -! -! "t" is for "target" (i.e. the vector to apply "action" over) -! "r" is for "read" from file -! "u" is for "useable" (i.e., exists in the "target" vector) -! "m" is for "missing" (i.e., asked for, but not found in file) -! -! **************************************************************************** - SUBROUTINE readInput (filename, nt, tnames, tvalues, & - action, lzero, quiet) - - CHARACTER(LEN=*), INTENT(IN) :: filename - INTEGER, INTENT(IN) :: nt - REAL(KIND=dp) :: tvalues(nt) - CHARACTER(LEN=15), INTENT(IN) :: tnames(nt) - REAL(KIND=dp), OPTIONAL :: action ! function to be called - LOGICAL, INTENT(IN), OPTIONAL :: lzero ! call action with 0.0 - ! for 'missing' species - LOGICAL, INTENT(IN), OPTIONAL :: quiet - - INTEGER :: nr, nu, nm, i, k, m, & - iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - unames(max_species_boxmox), & - mnames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox) - LOGICAL :: is_used, first, & - talkative - - CALL readVals(filename, nr, rnames, rvalues, iostat) - - IF (iostat .NE. 0) RETURN - - talkative = .TRUE. - IF (PRESENT(quiet)) talkative = .NOT. quiet - - unames(:) = "none" - nu = 0 - - first = lverbose - - DO i = 1, nr - DO k = 1, nt - IF ( strEqual(rnames(i), tnames(k)) ) THEN - - IF (PRESENT(action)) THEN - tvalues(k) = action( tvalues(k), k, rvalues(i), first) - ELSE - tvalues(k) = rvalues(i) - IF ( (lverbose .OR. first) .AND. talkative ) THEN - WRITE(*,"(6X,A15,1X,E12.6)") tnames(k), tvalues(k)/CFACTOR - ENDIF - ENDIF - - first = .FALSE. - - nu = nu + 1 - unames(nu) = TRIM(ADJUSTL(rnames(i))) - ENDIF - ENDDO - ENDDO - - IF (PRESENT(lzero)) THEN - IF (lzero) THEN - DO k = 1, nt - is_used = .FALSE. - DO i = 1, nu - IF ( strEqual(unames(i), tnames(k)) ) is_used = .TRUE. - ENDDO - IF (.NOT. is_used) THEN - tvalues(k) = action( tvalues(k), k, 0.0, first) - first = .FALSE. - ENDIF - ENDDO - ENDIF - ENDIF - - nm = nr - nu - mnames(:) = "" - - IF (nm > 0) THEN - m = 1 - DO i = 1, nr - is_used = .FALSE. - DO k = 1, nu - IF ( strEqual(rnames(i), unames(k)) ) is_used = .TRUE. - ENDDO - - IF (.NOT. is_used) THEN - mnames(m) = TRIM(ADJUSTL(rnames(i))) - m = m + 1 - ENDIF - ENDDO - ENDIF - - IF ( ((TIME .EQ. TSTART) .OR. lverbose) .AND. talkative) THEN - IF (nu > 0) CALL writespecstring(nu, "useable:", unames, 6) - IF (nm > 0) CALL writespecstring(nm, "unknown: ", mnames, 6) - ENDIF - - END SUBROUTINE readInput -! **************************************************************************** - - -! **************************************************************************** -! InitialCondition - Sets initial values -! **************************************************************************** - REAL(KIND=dp) FUNCTION InitialCondition(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - InitialCondition = y * CFACTOR - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,A12,1X)") "species ", "IC" - WRITE(*,"(6X,A15,1X,E12.6,1X)") SPC_NAMES(k), InitialCondition/CFACTOR - ENDIF - - END FUNCTION InitialCondition -! **************************************************************************** - - -! **************************************************************************** -! Deposition - Applies deposition velocities -! **************************************************************************** - REAL(KIND=dp) FUNCTION Deposition(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - REAL(KIND=dp) :: dCdt - - Deposition = x - - ! we don't remove fixed variables - IF (k .LT. NFIXST) THEN - ! we assume deposition velocities in comparable units - ! (i.e. cm s-1) - ! dxdydz(3) == DZ - dCdt = - y * x / (dxdydz(3) * 100.0) - Deposition = MAX( 0.0, x + DT * dCdt ) - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "v_dep", "after" - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, y, & - Deposition/CFACTOR - ENDIF - - ENDIF - - END FUNCTION Deposition -! **************************************************************************** - - -! **************************************************************************** -! Emission - Adds emissions -! **************************************************************************** - REAL(KIND=dp) FUNCTION Emission(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - REAL(KIND=dp) :: cur - - ! we assume emissions to be a flux in units comparable to the - ! concentration values used in KPP - ! e.g. molecules / m2 / s vs molecules / m3, or - ! moles / cm2 / s vs moles / cm3, ... - ! the time dimensions unit has to be seconds! - - ! dxdydz(3) is PBL height in m - cur = y * DT / (dxdydz(3) * 100.0) - - Emission = x + cur - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "tendency", "after" - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, & - cur/DT/CFACTOR, Emission/CFACTOR - ENDIF - - END FUNCTION Emission -! **************************************************************************** - - -! **************************************************************************** -! Mix - calculate concentration after turbulent mixing -! **************************************************************************** - REAL(KIND=dp) FUNCTION Mix(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - REAL(KIND=dp) :: frac_bg - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - Mix = x - - frac_bg = Kturb * DT - - IF (lfirst .AND. lverbose) THEN - WRITE(*,"(6X,A,1X,F6.3)") "fractional amount of background air", & - frac_bg - WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "background", "after" - ENDIF - - ! we don't mix fixed variables - IF (k .LT. NFIXST) THEN - - ! seems like we found something - Mix = frac_bg * (y * CFACTOR) + & - (1.0 - frac_bg) * x - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, & - y, Mix/CFACTOR - ENDIF - - ENDIF - - END FUNCTION Mix -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturb - calculate Kturb for mixing -! **************************************************************************** - SUBROUTINE UpdateKturb() - - Kturb = 0.0 - SELECT CASE (iturb) - CASE (TURB_OPT_NONE) - Kturb = 0.0 - CASE (TURB_OPT_SPECIFIED) - CALL UpdateKturbSpecified() - CASE (TURB_OPT_VOLUME) - CALL UpdateKturbVolume() - CASE (TURB_OPT_TRACER) - CALL UpdateKturbTracer() - CASE DEFAULT - WRITE(*,"(A,1X,I1)") "Unknown mixing option", iturb - END SELECT - - END SUBROUTINE UpdateKturb -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbSpecified - calc. Kturb for mixing using specified Kturb -! **************************************************************************** - SUBROUTINE UpdateKturbSpecified() - - INTEGER :: nr, na, i, iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - anames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox), & - avalues(max_species_boxmox) - LOGICAL :: lfound - - Kturb = 0.0 - - CALL readVals('Background.csv', & - nr, rnames, rvalues, iostat, & - na, anames, avalues, lquiet=.TRUE.) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - lfound = .FALSE. - DO i = 1, na - IF ( strEqual(anames(i), 'Kturb') ) THEN - Kturb = avalues(i) - lfound = .TRUE. - ENDIF - ENDDO - - IF (.NOT. lfound) THEN - WRITE(*,*) "Kturb variable not found in Background.csv" - STOP - ENDIF - - END SUBROUTINE UpdateKturbSpecified -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbVolume - calc. Kturb for mixing using box volume changes -! **************************************************************************** - SUBROUTINE UpdateKturbVolume() - - REAL(KIND=dp) :: vol, vol_old - - vol = dxdydz(1) * dxdydz(2) * dxdydz(3) - vol_old = dxdydz_old(1) * dxdydz_old(2) * dxdydz_old(3) - - ! maybe we have a mixing case where the box volume changes? - ! increasing volume - dilute against background - ! decreasing volume - ignore (?) for now - - ! in the PBL case, analogue: - ! maybe we changed the PBLH? update concentration vector - ! rising BL - mixing against zero air or bg values - ! shrinking BL - creates residual layer, decouples - - IF (vol > vol_old) THEN - Kturb = ( (vol - vol_old) / vol_old ) / DT - ENDIF - - END SUBROUTINE UpdateKturbVolume -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbTracer - calc. Kturb for mixing using tracer (t, tname) conc. -! changes -! **************************************************************************** - SUBROUTINE UpdateKturbTracer() - - INTEGER :: nr, na, i, iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - anames(max_species_boxmox), & - tracer_name - REAL(KIND=dp) :: rvalues(max_species_boxmox), & - avalues(max_species_boxmox), & - prev, obs, bg, frac_bg - LOGICAL :: lfound_prev, lfound_bg - - Kturb = 0.0 - - CALL readVals('Background.csv', & - nr, rnames, rvalues, iostat, & - na, anames, avalues, lquiet=.TRUE.) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - ! ASSUMPTION: first ancillary species is mixing tracer - tracer_name = anames(1) - obs = avalues(1) * CFACTOR - - prev = 0.0 - lfound_prev = .FALSE. - DO i = 1, NSPEC - IF ( strEqual(SPC_NAMES(i), tracer_name) ) THEN - prev = C(i) - lfound_prev = .TRUE. - ENDIF - ENDDO - - bg = 0.0 - lfound_bg = .FALSE. - DO i = 1, nr - IF ( strEqual(rnames(i), tracer_name) ) THEN - bg = rvalues(i) * CFACTOR - lfound_bg = .TRUE. - ENDIF - ENDDO - - IF (.NOT. lfound_bg) THEN - WRITE(*,*) "Tracer ", TRIM(tracer_name), & - " not found in Background.csv" - STOP - ENDIF - IF (.NOT. lfound_prev) THEN - WRITE(*,*) "Tracer ", TRIM(tracer_name), & - " not found in mechanism" - STOP - ENDIF - - IF ( ABS( bg - prev ) < 1e-10 ) THEN - Kturb = 0.0 - ELSE - frac_bg = ( obs - prev ) / ( bg - prev ) - frac_bg = MIN( frac_bg, 1.0 ) - frac_bg = MAX( frac_bg, 0.0 ) - - Kturb = frac_bg / DT - ENDIF - - END SUBROUTINE UpdateKturbTracer -! **************************************************************************** - - -! **************************************************************************** -! UpdatePhotolysisRates - well, it does what it seems to do -! **************************************************************************** - SUBROUTINE UpdatePhotolysisRates() - - INTEGER :: i, iostat, nr, jidx - CHARACTER(LEN=15) :: rnames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox) - - INTEGER :: j, jidx2 - - rnames(:) = " " - rvalues(:) = 0.0 - - jvalues(:) = 0.0 - - CALL readVals('PhotolysisRates.csv', nr, rnames, rvalues, iostat) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - DO i = 1, nr - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,E12.6)") rnames(i), rvalues(i) - ENDIF - jidx = hash(rnames(i)) - jvalues(jidx) = rvalues(i) - ENDDO - - ! first time step only: make sure hashing actually made unique hashes - IF (TIME .EQ. TSTART) THEN - DO i = 1, nr - jidx = hash(rnames(i)) - DO j = 1, nr - jidx2 = hash(rnames(j)) - IF ((jidx .EQ. jidx2) .AND. .NOT. (i .EQ. j)) THEN - WRITE(*,*) "Photolysis rate label hash collision:" - WRITE(*,*) rnames(i), "(idx ",i,", hash ", jidx, ") == ", & - rnames(j), "(idx ",j,", hash ", jidx2,")" - IF ( strEqual( rnames(i), rnames(j) ) ) THEN - WRITE(*,*) "Remove duplicate label in PhotolysisRates.csv!" - ELSE - WRITE(*,*) "Please contact the BOXMOX developers!" - ENDIF - STOP - ENDIF - ENDDO - ENDDO - - CALL writespecstring(nr, "known:", rnames, 6) - - ENDIF - - END SUBROUTINE UpdatePhotolysisRates -! **************************************************************************** - - -! **************************************************************************** -! UpdateAerosol - update aerosol properties -! **************************************************************************** - SUBROUTINE UpdateAerosol() - - INTEGER, PARAMETER :: naer = 2, sad_idx = 1, r_idx = 2 - REAL(KIND=dp) :: aer(naer), errval = -987654321.0 - CHARACTER(LEN=15) :: aernames(naer) - INTEGER :: iostat, i - - aernames(sad_idx) = "sad"; aer(sad_idx) = errval - aernames(r_idx) = "r"; aer(r_idx) = errval - - CALL readInput('Aerosol.csv', naer, aernames, aer, quiet=lverbose) - - IF (aer(sad_idx) .NE. errval) AER_SAD = aer(sad_idx) - IF (aer(r_idx) .NE. errval) AER_R = aer(r_idx) - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,F8.2)") "SAD ", AER_SAD - WRITE(*,"(6X,A15,1X,F8.2)") "R ", AER_R - ENDIF - - END SUBROUTINE UpdateAerosol -! **************************************************************************** - - -! **************************************************************************** -! UpdateEnvironment - Read environmental values -! **************************************************************************** - SUBROUTINE UpdateEnvironment() - - INTEGER, PARAMETER :: nenv = 4, temp_idx = 1, pres_idx = 2, & - pblh_idx = 3, vol_idx = 4 - REAL(KIND=dp) :: env(nenv), errval = -987654321.0 - CHARACTER(LEN=15) :: envnames(nenv) - INTEGER :: iostat, i - - REAL(KIND=dp) :: temp_old, pres_old, pblh, vol - - envnames(temp_idx) = "TEMP"; env(temp_idx) = errval - envnames(pres_idx) = "PRES"; env(pres_idx) = errval - envnames(pblh_idx) = "PBLH"; env(pblh_idx) = errval - envnames(vol_idx) = "VOL"; env(vol_idx) = errval - - CALL readInput('Environment.csv', nenv, envnames, env, quiet=lverbose) - - temp_old = temp - pres_old = pres - - dxdydz_old(:) = dxdydz(:) - - ! those are just pseudo variables for dxdydz properties - pblh = dxdydz(3) - vol = dxdydz(1) * dxdydz(2) * dxdydz(3) - - IF (env(pblh_idx) .NE. errval .AND. env(vol_idx) .NE. errval) & - THEN - WRITE(*,*) "Cannot work with changing PBLH and VOL at the same time." - STOP - ENDIF - - IF (env(temp_idx) .NE. errval) temp = env(temp_idx) - IF (env(pres_idx) .NE. errval) pres = env(pres_idx) - IF (env(vol_idx) .NE. errval) vol = env(vol_idx) - - IF (env(pblh_idx) .NE. errval) THEN - pblh = env(pblh_idx) - dxdydz(3) = pblh - ENDIF - - ! Adjust species vector - DO i = 1, NSPEC - C(i) = C(i) * (temp_old * pres) / (temp * pres_old) - ENDDO - - ! recalculate unit conversion - CALL calcCFACTOR() - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,F8.2)") "TEMP ", temp - WRITE(*,"(6X,A13,1X,F10.2)") "PRES ", pres - WRITE(*,"(6X,A15,1X,F8.2)") "PBLH ", dxdydz(3) - WRITE(*,"(6X,A15,1X,F8.2)") "VOL ", & - dxdydz(1)*dxdydz(2)*dxdydz(3) - WRITE(*,*) "" - WRITE(*,"(6X,A7,1X,E16.8)") "CFACTOR", CFACTOR - ENDIF - - END SUBROUTINE UpdateEnvironment -! **************************************************************************** - - -! **************************************************************************** -! InitFixNOx - Initialize the NOx fixing data (for steady state calculations) -! **************************************************************************** - SUBROUTINE InitFixNOx(n, names, values) - - INTEGER, INTENT(IN) :: n - REAL(KIND=dp) :: values(n) - CHARACTER(LEN=15), INTENT(IN) :: names(n) - - INTEGER :: i, nfound_tracers - - initial_total_nox = 0.0 - nfound_tracers = 0 - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - initial_total_nox = initial_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - initial_total_nox = initial_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - ENDDO - - IF (.NOT. nfound_tracers == 2) THEN - WRITE(*,*) "NOx fixing failed, found (only) ", & - nfound_tracers, " species." - STOP - ENDIF - - END SUBROUTINE InitFixNOx -! **************************************************************************** - - -! **************************************************************************** -! FixNOx - keep total NOx at initial levels (for steady state calculations) -! **************************************************************************** - SUBROUTINE FixNOx(n, names, values) - - INTEGER, INTENT(IN) :: n - REAL(KIND=dp), INTENT(INOUT) :: values(n) - CHARACTER(LEN=15), INTENT(IN) :: names(n) - - INTEGER :: i, nfound_tracers - REAL(KIND=dp) :: current_total_nox, scaleFactor - - current_total_nox = 0.0 - nfound_tracers = 0 - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - current_total_nox = current_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - current_total_nox = current_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - ENDDO - - IF (.NOT. nfound_tracers == 2) THEN - WRITE(*,*) "NOx fixing failed, found (only) ", & - nfound_tracers, " species." - STOP - ENDIF - - scaleFactor = initial_total_nox - IF (current_total_nox > 0.0) THEN - scaleFactor = initial_total_nox / current_total_nox - ENDIF - - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - values(i) = values(i) * scaleFactor - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - values(i) = values(i) * scaleFactor - ENDIF - ENDDO - - END SUBROUTINE FixNOx -! **************************************************************************** - - -! End INLINED Utility Functions - -! Utility Functions from KPP_HOME/util/util -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! UTIL - Utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -! **************************************************************** -! -! InitSaveData - Opens the data file for writing -! Parameters : -! -! **************************************************************** - - SUBROUTINE InitSaveData () - - USE MCMv3_3_Parameters -!* ---------------------------------------------------- -!* BOXMOX extension - Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* add header to output species and sparse jacobian indices -!* and Hessian - USE MCMv3_3_JacobianSP -#if 0 > 0 - USE MCMv3_3_HessianSP -#endif -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* add header to output files and open rates file - INTEGER :: i -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20161129 -!* renamed concentration output -! open(10, file='MCMv3_3.dat') - open(10, file='MCMv3_3.conc') -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* add header to output files and open rates file - - ! add header to output file - WRITE(10, "(A24,10000(1X,A24))") "time", ADJUSTR(SPC_NAMES(LOOKAT)) - - open(11, file='MCMv3_3.rates') - - WRITE(11, "(I5)") NREACT - - DO i = 1, NREACT - WRITE(11, "(A)") EQN_NAMES(i) - ENDDO - - ! add header to output file - WRITE(11, "(A24,10000(1X,I24))") "time", (/(i, i=1,NREACT, 1)/) - -!* write header to Jacobian output - open(12, file='MCMv3_3.jacobian') - -!* species names - WRITE(12, "(10000(1X,A24))") ADJUSTR(SPC_NAMES(LOOKAT)) -!* species index - WRITE(12, "(10000(1X,I5))") LOOKAT -!* Jacobian non zero row index - WRITE(12, "(100000(1X,I5))") (LU_IROW(i), i=1,LU_NONZERO) -!* Jacobian non zero column index - WRITE(12, "(100000(1X,I5))") (LU_ICOL(i), i=1,LU_NONZERO) - -!* write header to Hessian output -#if 0 > 0 - open(13, file='MCMv3_3.hessian') - -!* species names - WRITE(13, "(10000(1X,A24))") ADJUSTR(SPC_NAMES(LOOKAT)) -!* species index - WRITE(13, "(10000(1X,I5))") LOOKAT -!* Hessian i, j, k species - WRITE(13, "(100000(1X,I5))") (IHESS_I(i), i=1,NHESS) - WRITE(13, "(100000(1X,I5))") (IHESS_J(i), i=1,NHESS) - WRITE(13, "(100000(1X,I5))") (IHESS_K(i), i=1,NHESS) -#endif -!* ---------------------------------------------------- - - END SUBROUTINE InitSaveData - -! End of InitSaveData function -! **************************************************************** - -! **************************************************************** -! -! SaveData - Write LOOKAT species in the data file -! Parameters : -! -! **************************************************************** - - SUBROUTINE SaveData () - - USE MCMv3_3_Global - USE MCMv3_3_Monitor -!* ---------------------------------------------------- -!* BOXMOX extension - Jerome Barre - 20150410 -!* Christoph Knote - 20151030 - USE MCMv3_3_Jacobian -#if 0 > 0 - USE MCMv3_3_Hessian -#endif -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20151030 - REAL(KIND=dp) :: JVS(LU_NONZERO) ! d(dc/dt)i/dcj -#if 0 > 0 - REAL(KIND=dp) :: HESS(NHESS) ! -#endif - INTEGER i - - WRITE(10,999) (TIME-TSTART)/3600.D0, & - (C(LOOKAT(i))/CFACTOR, i=1,NLOOKAT) - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* write out reaction rates - WRITE(11,999) (TIME-TSTART)/3600.D0, & - (RCONST(i), i=1,NREACT) -!* call Jacobian function to output Jacobian values - CALL Jac_SP( VAR, FIX, RCONST, JVS ) - WRITE(12,9999) (JVS(i), i=1,LU_NONZERO) -!* call Hessian function to output Hessian values -#if 0 > 0 - CALL Hessian( VAR, FIX, RCONST, HESS ) - WRITE(13,9999) (HESS(i), i=1,NHESS) -#endif -!* --------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* might have more than 100 output variables -! 999 FORMAT(E24.16,100(1X,E24.16)) -999 FORMAT(E24.16,10000(1X,E24.16E3)) -9999 FORMAT(E24.16,100000(1X,E24.16E3)) -!* ---------------------------------------------------- - - END SUBROUTINE SaveData - -! End of SaveData function -! **************************************************************** - -! **************************************************************** -! -! CloseSaveData - Close the data file -! Parameters : -! -! **************************************************************** - - SUBROUTINE CloseSaveData () - - USE MCMv3_3_Parameters - - CLOSE(10) - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -! Christoph Knote - 20153010 -!* close rates file - CLOSE(11) -!* close Jacobian file - CLOSE(12) -!* close Hessian file -#if 0 > 0 - CLOSE(13) -#endif -!* --------------------------------------------------- - - END SUBROUTINE CloseSaveData - -! End of CloseSaveData function -! **************************************************************** - -! **************************************************************** -! -! GenerateMatlab - Generates MATLAB file to load the data file -! Parameters : -! It will have a character string to prefix each -! species name with. -! -! **************************************************************** - - SUBROUTINE GenerateMatlab ( PREFIX ) - - USE MCMv3_3_Parameters - USE MCMv3_3_Global - USE MCMv3_3_Monitor - - - CHARACTER(LEN=8) PREFIX - INTEGER i - - open(20, file='MCMv3_3.m') - write(20,*) 'load MCMv3_3.dat;' - write(20,990) PREFIX -990 FORMAT(A1,'c = MCMv3_3;') - write(20,*) 'clear MCMv3_3;' - write(20,991) PREFIX, PREFIX -991 FORMAT(A1,'t=',A1,'c(:,1);') - write(20,992) PREFIX -992 FORMAT(A1,'c(:,1)=[];') - - do i=1,NLOOKAT - write(20,993) PREFIX, SPC_NAMES(LOOKAT(i)), PREFIX, i -993 FORMAT(A1,A6,' = ',A1,'c(:,',I2,');') - end do - - CLOSE(20) - - END SUBROUTINE GenerateMatlab - -! End of GenerateMatlab function -! **************************************************************** - - -! End Utility Functions from KPP_HOME/util/util -! End of UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Shuffle_user2kpp - function to copy concentrations from USER to KPP -! Arguments : -! V_USER - Concentration of variable species in USER's order -! V - Concentrations of variable species (local) -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Shuffle_user2kpp ( V_USER, V ) - -! V_USER - Concentration of variable species in USER's order - REAL(kind=dp) :: V_USER(NVAR) -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) - - V(4088) = V_USER(1) - V(3081) = V_USER(2) - V(3468) = V_USER(3) - V(1687) = V_USER(4) - V(311) = V_USER(5) - V(1130) = V_USER(6) - V(441) = V_USER(7) - V(3941) = V_USER(8) - V(1954) = V_USER(9) - V(3516) = V_USER(10) - V(3270) = V_USER(11) - V(4886) = V_USER(12) - V(4845) = V_USER(13) - V(4682) = V_USER(14) - V(1551) = V_USER(15) - V(4355) = V_USER(16) - V(4363) = V_USER(17) - V(760) = V_USER(18) - V(2255) = V_USER(19) - V(3506) = V_USER(20) - V(4265) = V_USER(21) - V(2620) = V_USER(22) - V(3083) = V_USER(23) - V(2631) = V_USER(24) - V(537) = V_USER(25) - V(2261) = V_USER(26) - V(2364) = V_USER(27) - V(1843) = V_USER(28) - V(249) = V_USER(29) - V(551) = V_USER(30) - V(3993) = V_USER(31) - V(1760) = V_USER(32) - V(843) = V_USER(33) - V(4906) = V_USER(34) - V(1849) = V_USER(35) - V(3632) = V_USER(36) - V(4988) = V_USER(37) - V(2722) = V_USER(38) - V(4147) = V_USER(39) - V(580) = V_USER(40) - V(2483) = V_USER(41) - V(270) = V_USER(42) - V(4018) = V_USER(43) - V(913) = V_USER(44) - V(2983) = V_USER(45) - V(2403) = V_USER(46) - V(3188) = V_USER(47) - V(2070) = V_USER(48) - V(936) = V_USER(49) - V(941) = V_USER(50) - V(4163) = V_USER(51) - V(4207) = V_USER(52) - V(3854) = V_USER(53) - V(2998) = V_USER(54) - V(4936) = V_USER(55) - V(981) = V_USER(56) - V(4941) = V_USER(57) - V(3454) = V_USER(58) - V(615) = V_USER(59) - V(4810) = V_USER(60) - V(617) = V_USER(61) - V(3599) = V_USER(62) - V(4296) = V_USER(63) - V(3425) = V_USER(64) - V(1824) = V_USER(65) - V(4021) = V_USER(66) - V(328) = V_USER(67) - V(3798) = V_USER(68) - V(2823) = V_USER(69) - V(3512) = V_USER(70) - V(337) = V_USER(71) - V(339) = V_USER(72) - V(2964) = V_USER(73) - V(2972) = V_USER(74) - V(3419) = V_USER(75) - V(1118) = V_USER(76) - V(2533) = V_USER(77) - V(4172) = V_USER(78) - V(12) = V_USER(79) - V(1135) = V_USER(80) - V(665) = V_USER(81) - V(1614) = V_USER(82) - V(3840) = V_USER(83) - V(4761) = V_USER(84) - V(2587) = V_USER(85) - V(3404) = V_USER(86) - V(4048) = V_USER(87) - V(381) = V_USER(88) - V(2600) = V_USER(89) - V(2018) = V_USER(90) - V(2030) = V_USER(91) - V(387) = V_USER(92) - V(1209) = V_USER(93) - V(3417) = V_USER(94) - V(2054) = V_USER(95) - V(4724) = V_USER(96) - V(2058) = V_USER(97) - V(1239) = V_USER(98) - V(702) = V_USER(99) - V(3567) = V_USER(100) - V(715) = V_USER(101) - V(3604) = V_USER(102) - V(3108) = V_USER(103) - V(2141) = V_USER(104) - V(2144) = V_USER(105) - V(3213) = V_USER(106) - V(1288) = V_USER(107) - V(5253) = V_USER(108) - V(5256) = V_USER(109) - V(2159) = V_USER(110) - V(2746) = V_USER(111) - V(1301) = V_USER(112) - V(1670) = V_USER(113) - V(1314) = V_USER(114) - V(4411) = V_USER(115) - V(438) = V_USER(116) - V(2481) = V_USER(117) - V(1684) = V_USER(118) - V(4779) = V_USER(119) - V(3243) = V_USER(120) - V(2831) = V_USER(121) - V(1356) = V_USER(122) - V(1358) = V_USER(123) - V(759) = V_USER(124) - V(761) = V_USER(125) - V(3804) = V_USER(126) - V(1372) = V_USER(127) - V(465) = V_USER(128) - V(3268) = V_USER(129) - V(3810) = V_USER(130) - V(3913) = V_USER(131) - V(1910) = V_USER(132) - V(3923) = V_USER(133) - V(5192) = V_USER(134) - V(1716) = V_USER(135) - V(3286) = V_USER(136) - V(5058) = V_USER(137) - V(2487) = V_USER(138) - V(495) = V_USER(139) - V(2994) = V_USER(140) - V(3007) = V_USER(141) - V(3547) = V_USER(142) - V(1498) = V_USER(143) - V(4374) = V_USER(144) - V(1510) = V_USER(145) - V(4381) = V_USER(146) - V(2426) = V_USER(147) - V(813) = V_USER(148) - V(214) = V_USER(149) - V(881) = V_USER(150) - V(4778) = V_USER(151) - V(2770) = V_USER(152) - V(1695) = V_USER(153) - V(3455) = V_USER(154) - V(1703) = V_USER(155) - V(2393) = V_USER(156) - V(4813) = V_USER(157) - V(283) = V_USER(158) - V(605) = V_USER(159) - V(4169) = V_USER(160) - V(3978) = V_USER(161) - V(4477) = V_USER(162) - V(4909) = V_USER(163) - V(3218) = V_USER(164) - V(1076) = V_USER(165) - V(3708) = V_USER(166) - V(4071) = V_USER(167) - V(1916) = V_USER(168) - V(1102) = V_USER(169) - V(353) = V_USER(170) - V(2512) = V_USER(171) - V(5088) = V_USER(172) - V(4127) = V_USER(173) - V(3532) = V_USER(174) - V(678) = V_USER(175) - V(3428) = V_USER(176) - V(391) = V_USER(177) - V(2476) = V_USER(178) - V(2646) = V_USER(179) - V(1241) = V_USER(180) - V(13) = V_USER(181) - V(1644) = V_USER(182) - V(1267) = V_USER(183) - V(714) = V_USER(184) - V(1660) = V_USER(185) - V(3742) = V_USER(186) - V(4926) = V_USER(187) - V(4) = V_USER(188) - V(2238) = V_USER(189) - V(14) = V_USER(190) - V(2835) = V_USER(191) - V(2270) = V_USER(192) - V(3882) = V_USER(193) - V(4208) = V_USER(194) - V(4748) = V_USER(195) - V(4563) = V_USER(196) - V(492) = V_USER(197) - V(1722) = V_USER(198) - V(799) = V_USER(199) - V(3299) = V_USER(200) - V(808) = V_USER(201) - V(4722) = V_USER(202) - V(3825) = V_USER(203) - V(816) = V_USER(204) - V(5084) = V_USER(205) - V(820) = V_USER(206) - V(527) = V_USER(207) - V(4597) = V_USER(208) - V(1775) = V_USER(209) - V(3234) = V_USER(210) - V(3794) = V_USER(211) - V(642) = V_USER(212) - V(1192) = V_USER(213) - V(2640) = V_USER(214) - V(2943) = V_USER(215) - V(4614) = V_USER(216) - V(3212) = V_USER(217) - V(733) = V_USER(218) - V(1332) = V_USER(219) - V(5188) = V_USER(220) - V(789) = V_USER(221) - V(2974) = V_USER(222) - V(3042) = V_USER(223) - V(3871) = V_USER(224) - V(2259) = V_USER(225) - V(4792) = V_USER(226) - V(4964) = V_USER(227) - V(405) = V_USER(228) - V(1554) = V_USER(229) - V(207) = V_USER(230) - V(3289) = V_USER(231) - V(2938) = V_USER(232) - V(3406) = V_USER(233) - V(5168) = V_USER(234) - V(2007) = V_USER(235) - V(3559) = V_USER(236) - V(3206) = V_USER(237) - V(1252) = V_USER(238) - V(1662) = V_USER(239) - V(3224) = V_USER(240) - V(4868) = V_USER(241) - V(1442) = V_USER(242) - V(3939) = V_USER(243) - V(4151) = V_USER(244) - V(3298) = V_USER(245) - V(2679) = V_USER(246) - V(3335) = V_USER(247) - V(2198) = V_USER(248) - V(4384) = V_USER(249) - V(1603) = V_USER(250) - V(2906) = V_USER(251) - V(554) = V_USER(252) - V(3709) = V_USER(253) - V(4732) = V_USER(254) - V(1757) = V_USER(255) - V(208) = V_USER(256) - V(858) = V_USER(257) - V(859) = V_USER(258) - V(1911) = V_USER(259) - V(2547) = V_USER(260) - V(5013) = V_USER(261) - V(4247) = V_USER(262) - V(3740) = V_USER(263) - V(569) = V_USER(264) - V(573) = V_USER(265) - V(887) = V_USER(266) - V(2712) = V_USER(267) - V(898) = V_USER(268) - V(3873) = V_USER(269) - V(3378) = V_USER(270) - V(3642) = V_USER(271) - V(4007) = V_USER(272) - V(3384) = V_USER(273) - V(3140) = V_USER(274) - V(906) = V_USER(275) - V(2920) = V_USER(276) - V(4128) = V_USER(277) - V(5211) = V_USER(278) - V(3314) = V_USER(279) - V(3044) = V_USER(280) - V(929) = V_USER(281) - V(3062) = V_USER(282) - V(209) = V_USER(283) - V(1802) = V_USER(284) - V(1550) = V_USER(285) - V(940) = V_USER(286) - V(5140) = V_USER(287) - V(210) = V_USER(288) - V(3535) = V_USER(289) - V(2110) = V_USER(290) - V(599) = V_USER(291) - V(4205) = V_USER(292) - V(2284) = V_USER(293) - V(3964) = V_USER(294) - V(5198) = V_USER(295) - V(3563) = V_USER(296) - V(1562) = V_USER(297) - V(1755) = V_USER(298) - V(978) = V_USER(299) - V(4805) = V_USER(300) - V(4838) = V_USER(301) - V(2732) = V_USER(302) - V(4204) = V_USER(303) - V(4580) = V_USER(304) - V(999) = V_USER(305) - V(3835) = V_USER(306) - V(4028) = V_USER(307) - V(1011) = V_USER(308) - V(2565) = V_USER(309) - V(1030) = V_USER(310) - V(4695) = V_USER(311) - V(3166) = V_USER(312) - V(1810) = V_USER(313) - V(4766) = V_USER(314) - V(2642) = V_USER(315) - V(3340) = V_USER(316) - V(4243) = V_USER(317) - V(629) = V_USER(318) - V(2685) = V_USER(319) - V(3677) = V_USER(320) - V(4817) = V_USER(321) - V(4606) = V_USER(322) - V(4062) = V_USER(323) - V(2674) = V_USER(324) - V(2729) = V_USER(325) - V(1814) = V_USER(326) - V(4220) = V_USER(327) - V(3363) = V_USER(328) - V(211) = V_USER(329) - V(3373) = V_USER(330) - V(1858) = V_USER(331) - V(5000) = V_USER(332) - V(1064) = V_USER(333) - V(4708) = V_USER(334) - V(641) = V_USER(335) - V(1066) = V_USER(336) - V(212) = V_USER(337) - V(3392) = V_USER(338) - V(1071) = V_USER(339) - V(4424) = V_USER(340) - V(3652) = V_USER(341) - V(2977) = V_USER(342) - V(4945) = V_USER(343) - V(4152) = V_USER(344) - V(3017) = V_USER(345) - V(1095) = V_USER(346) - V(1912) = V_USER(347) - V(2496) = V_USER(348) - V(651) = V_USER(349) - V(1789) = V_USER(350) - V(1924) = V_USER(351) - V(4685) = V_USER(352) - V(4400) = V_USER(353) - V(3765) = V_USER(354) - V(4912) = V_USER(355) - V(15) = V_USER(356) - V(1948) = V_USER(357) - V(3884) = V_USER(358) - V(1125) = V_USER(359) - V(4072) = V_USER(360) - V(1126) = V_USER(361) - V(1129) = V_USER(362) - V(1131) = V_USER(363) - V(3566) = V_USER(364) - V(3984) = V_USER(365) - V(1142) = V_USER(366) - V(1143) = V_USER(367) - V(3856) = V_USER(368) - V(2559) = V_USER(369) - V(2914) = V_USER(370) - V(1150) = V_USER(371) - V(4250) = V_USER(372) - V(2566) = V_USER(373) - V(4436) = V_USER(374) - V(3893) = V_USER(375) - V(2576) = V_USER(376) - V(1621) = V_USER(377) - V(1623) = V_USER(378) - V(1179) = V_USER(379) - V(4454) = V_USER(380) - V(4457) = V_USER(381) - V(1185) = V_USER(382) - V(1627) = V_USER(383) - V(2020) = V_USER(384) - V(682) = V_USER(385) - V(213) = V_USER(386) - V(3082) = V_USER(387) - V(1205) = V_USER(388) - V(1207) = V_USER(389) - V(1211) = V_USER(390) - V(4855) = V_USER(391) - V(4550) = V_USER(392) - V(149) = V_USER(393) - V(2057) = V_USER(394) - V(697) = V_USER(395) - V(4592) = V_USER(396) - V(3936) = V_USER(397) - V(594) = V_USER(398) - V(4750) = V_USER(399) - V(4391) = V_USER(400) - V(16) = V_USER(401) - V(2086) = V_USER(402) - V(2092) = V_USER(403) - V(973) = V_USER(404) - V(215) = V_USER(405) - V(5009) = V_USER(406) - V(4704) = V_USER(407) - V(2104) = V_USER(408) - V(2108) = V_USER(409) - V(4370) = V_USER(410) - V(3668) = V_USER(411) - V(4403) = V_USER(412) - V(216) = V_USER(413) - V(1266) = V_USER(414) - V(4741) = V_USER(415) - V(217) = V_USER(416) - V(17) = V_USER(417) - V(3482) = V_USER(418) - V(3679) = V_USER(419) - V(2151) = V_USER(420) - V(4005) = V_USER(421) - V(2157) = V_USER(422) - V(2163) = V_USER(423) - V(2166) = V_USER(424) - V(2909) = V_USER(425) - V(1302) = V_USER(426) - V(218) = V_USER(427) - V(4461) = V_USER(428) - V(2181) = V_USER(429) - V(3355) = V_USER(430) - V(1674) = V_USER(431) - V(1309) = V_USER(432) - V(3359) = V_USER(433) - V(4094) = V_USER(434) - V(1318) = V_USER(435) - V(3837) = V_USER(436) - V(3119) = V_USER(437) - V(3684) = V_USER(438) - V(4618) = V_USER(439) - V(3498) = V_USER(440) - V(3829) = V_USER(441) - V(3793) = V_USER(442) - V(4107) = V_USER(443) - V(746) = V_USER(444) - V(2800) = V_USER(445) - V(219) = V_USER(446) - V(2219) = V_USER(447) - V(1334) = V_USER(448) - V(1690) = V_USER(449) - V(2829) = V_USER(450) - V(4714) = V_USER(451) - V(2850) = V_USER(452) - V(2854) = V_USER(453) - V(2265) = V_USER(454) - V(4321) = V_USER(455) - V(3136) = V_USER(456) - V(18) = V_USER(457) - V(2272) = V_USER(458) - V(2863) = V_USER(459) - V(1376) = V_USER(460) - V(2868) = V_USER(461) - V(4419) = V_USER(462) - V(2869) = V_USER(463) - V(220) = V_USER(464) - V(2879) = V_USER(465) - V(4015) = V_USER(466) - V(4334) = V_USER(467) - V(3265) = V_USER(468) - V(4987) = V_USER(469) - V(1406) = V_USER(470) - V(1409) = V_USER(471) - V(3720) = V_USER(472) - V(4020) = V_USER(473) - V(2308) = V_USER(474) - V(3588) = V_USER(475) - V(778) = V_USER(476) - V(2316) = V_USER(477) - V(2921) = V_USER(478) - V(2922) = V_USER(479) - V(3592) = V_USER(480) - V(3277) = V_USER(481) - V(2073) = V_USER(482) - V(783) = V_USER(483) - V(4609) = V_USER(484) - V(4683) = V_USER(485) - V(4567) = V_USER(486) - V(4041) = V_USER(487) - V(4628) = V_USER(488) - V(3929) = V_USER(489) - V(4044) = V_USER(490) - V(2211) = V_USER(491) - V(221) = V_USER(492) - V(790) = V_USER(493) - V(222) = V_USER(494) - V(2381) = V_USER(495) - V(3753) = V_USER(496) - V(4362) = V_USER(497) - V(3440) = V_USER(498) - V(2400) = V_USER(499) - V(3544) = V_USER(500) - V(3758) = V_USER(501) - V(3004) = V_USER(502) - V(2334) = V_USER(503) - V(3761) = V_USER(504) - V(2407) = V_USER(505) - V(1496) = V_USER(506) - V(3014) = V_USER(507) - V(3305) = V_USER(508) - V(4486) = V_USER(509) - V(3649) = V_USER(510) - V(2421) = V_USER(511) - V(5132) = V_USER(512) - V(4979) = V_USER(513) - V(4499) = V_USER(514) - V(1734) = V_USER(515) - V(223) = V_USER(516) - V(1518) = V_USER(517) - V(1740) = V_USER(518) - V(4388) = V_USER(519) - V(4174) = V_USER(520) - V(3318) = V_USER(521) - V(3187) = V_USER(522) - V(3779) = V_USER(523) - V(2453) = V_USER(524) - V(1531) = V_USER(525) - V(2458) = V_USER(526) - V(2170) = V_USER(527) - V(3536) = V_USER(528) - V(4648) = V_USER(529) - V(1796) = V_USER(530) - V(1028) = V_USER(531) - V(224) = V_USER(532) - V(2564) = V_USER(533) - V(1191) = V_USER(534) - V(3263) = V_USER(535) - V(1249) = V_USER(536) - V(1316) = V_USER(537) - V(2216) = V_USER(538) - V(3998) = V_USER(539) - V(225) = V_USER(540) - V(2324) = V_USER(541) - V(2327) = V_USER(542) - V(3158) = V_USER(543) - V(2431) = V_USER(544) - V(3594) = V_USER(545) - V(226) = V_USER(546) - V(4621) = V_USER(547) - V(3519) = V_USER(548) - V(3724) = V_USER(549) - V(829) = V_USER(550) - V(3259) = V_USER(551) - V(5171) = V_USER(552) - V(5091) = V_USER(553) - V(2490) = V_USER(554) - V(3429) = V_USER(555) - V(835) = V_USER(556) - V(3523) = V_USER(557) - V(841) = V_USER(558) - V(2899) = V_USER(559) - V(3354) = V_USER(560) - V(863) = V_USER(561) - V(1657) = V_USER(562) - V(4841) = V_USER(563) - V(4011) = V_USER(564) - V(1973) = V_USER(565) - V(4607) = V_USER(566) - V(2002) = V_USER(567) - V(875) = V_USER(568) - V(2021) = V_USER(569) - V(4423) = V_USER(570) - V(2632) = V_USER(571) - V(2060) = V_USER(572) - V(2799) = V_USER(573) - V(880) = V_USER(574) - V(150) = V_USER(575) - V(882) = V_USER(576) - V(1646) = V_USER(577) - V(886) = V_USER(578) - V(4995) = V_USER(579) - V(4378) = V_USER(580) - V(19) = V_USER(581) - V(2837) = V_USER(582) - V(227) = V_USER(583) - V(3266) = V_USER(584) - V(908) = V_USER(585) - V(2307) = V_USER(586) - V(2325) = V_USER(587) - V(2344) = V_USER(588) - V(228) = V_USER(589) - V(2969) = V_USER(590) - V(2971) = V_USER(591) - V(2385) = V_USER(592) - V(1728) = V_USER(593) - V(4586) = V_USER(594) - V(2436) = V_USER(595) - V(1887) = V_USER(596) - V(2518) = V_USER(597) - V(229) = V_USER(598) - V(2673) = V_USER(599) - V(230) = V_USER(600) - V(2195) = V_USER(601) - V(954) = V_USER(602) - V(20) = V_USER(603) - V(4969) = V_USER(604) - V(2957) = V_USER(605) - V(528) = V_USER(606) - V(4045) = V_USER(607) - V(231) = V_USER(608) - V(4183) = V_USER(609) - V(970) = V_USER(610) - V(1561) = V_USER(611) - V(4304) = V_USER(612) - V(992) = V_USER(613) - V(529) = V_USER(614) - V(3713) = V_USER(615) - V(232) = V_USER(616) - V(3152) = V_USER(617) - V(1005) = V_USER(618) - V(1791) = V_USER(619) - V(530) = V_USER(620) - V(531) = V_USER(621) - V(1029) = V_USER(622) - V(3703) = V_USER(623) - V(1806) = V_USER(624) - V(1576) = V_USER(625) - V(233) = V_USER(626) - V(1813) = V_USER(627) - V(1579) = V_USER(628) - V(1829) = V_USER(629) - V(5050) = V_USER(630) - V(1838) = V_USER(631) - V(323) = V_USER(632) - V(3669) = V_USER(633) - V(4493) = V_USER(634) - V(2798) = V_USER(635) - V(2804) = V_USER(636) - V(2825) = V_USER(637) - V(532) = V_USER(638) - V(1866) = V_USER(639) - V(1867) = V_USER(640) - V(4928) = V_USER(641) - V(4815) = V_USER(642) - V(1879) = V_USER(643) - V(2941) = V_USER(644) - V(4253) = V_USER(645) - V(5244) = V_USER(646) - V(1904) = V_USER(647) - V(1094) = V_USER(648) - V(21) = V_USER(649) - V(1914) = V_USER(650) - V(5161) = V_USER(651) - V(3386) = V_USER(652) - V(2116) = V_USER(653) - V(1101) = V_USER(654) - V(1107) = V_USER(655) - V(3151) = V_USER(656) - V(4256) = V_USER(657) - V(2517) = V_USER(658) - V(1116) = V_USER(659) - V(2534) = V_USER(660) - V(5096) = V_USER(661) - V(3731) = V_USER(662) - V(1136) = V_USER(663) - V(5109) = V_USER(664) - V(234) = V_USER(665) - V(3365) = V_USER(666) - V(5241) = V_USER(667) - V(3448) = V_USER(668) - V(4719) = V_USER(669) - V(2562) = V_USER(670) - V(533) = V_USER(671) - V(3382) = V_USER(672) - V(1162) = V_USER(673) - V(1170) = V_USER(674) - V(3394) = V_USER(675) - V(1174) = V_USER(676) - V(235) = V_USER(677) - V(4729) = V_USER(678) - V(3413) = V_USER(679) - V(534) = V_USER(680) - V(4958) = V_USER(681) - V(2608) = V_USER(682) - V(236) = V_USER(683) - V(237) = V_USER(684) - V(22) = V_USER(685) - V(23) = V_USER(686) - V(535) = V_USER(687) - V(4043) = V_USER(688) - V(4881) = V_USER(689) - V(4361) = V_USER(690) - V(24) = V_USER(691) - V(4377) = V_USER(692) - V(2639) = V_USER(693) - V(3574) = V_USER(694) - V(2643) = V_USER(695) - V(1233) = V_USER(696) - V(2648) = V_USER(697) - V(1237) = V_USER(698) - V(1242) = V_USER(699) - V(4297) = V_USER(700) - V(4261) = V_USER(701) - V(3095) = V_USER(702) - V(536) = V_USER(703) - V(2102) = V_USER(704) - V(3329) = V_USER(705) - V(238) = V_USER(706) - V(1253) = V_USER(707) - V(4061) = V_USER(708) - V(3990) = V_USER(709) - V(5118) = V_USER(710) - V(1264) = V_USER(711) - V(4316) = V_USER(712) - V(2700) = V_USER(713) - V(2130) = V_USER(714) - V(3480) = V_USER(715) - V(1274) = V_USER(716) - V(3344) = V_USER(717) - V(239) = V_USER(718) - V(3674) = V_USER(719) - V(4146) = V_USER(720) - V(3979) = V_USER(721) - V(4079) = V_USER(722) - V(4867) = V_USER(723) - V(1290) = V_USER(724) - V(4408) = V_USER(725) - V(3222) = V_USER(726) - V(4916) = V_USER(727) - V(4019) = V_USER(728) - V(2165) = V_USER(729) - V(240) = V_USER(730) - V(2749) = V_USER(731) - V(4500) = V_USER(732) - V(4990) = V_USER(733) - V(4849) = V_USER(734) - V(5218) = V_USER(735) - V(3756) = V_USER(736) - V(3228) = V_USER(737) - V(2765) = V_USER(738) - V(1308) = V_USER(739) - V(25) = V_USER(740) - V(2205) = V_USER(741) - V(2207) = V_USER(742) - V(1680) = V_USER(743) - V(2209) = V_USER(744) - V(5033) = V_USER(745) - V(1328) = V_USER(746) - V(538) = V_USER(747) - V(539) = V_USER(748) - V(4439) = V_USER(749) - V(3863) = V_USER(750) - V(2827) = V_USER(751) - V(5027) = V_USER(752) - V(3249) = V_USER(753) - V(540) = V_USER(754) - V(26) = V_USER(755) - V(3251) = V_USER(756) - V(2262) = V_USER(757) - V(2264) = V_USER(758) - V(2851) = V_USER(759) - V(2271) = V_USER(760) - V(1368) = V_USER(761) - V(1370) = V_USER(762) - V(4352) = V_USER(763) - V(5089) = V_USER(764) - V(2877) = V_USER(765) - V(1390) = V_USER(766) - V(4331) = V_USER(767) - V(443) = V_USER(768) - V(1396) = V_USER(769) - V(3459) = V_USER(770) - V(2294) = V_USER(771) - V(2896) = V_USER(772) - V(4662) = V_USER(773) - V(4924) = V_USER(774) - V(3387) = V_USER(775) - V(1414) = V_USER(776) - V(1416) = V_USER(777) - V(4568) = V_USER(778) - V(4807) = V_USER(779) - V(541) = V_USER(780) - V(4733) = V_USER(781) - V(2326) = V_USER(782) - V(542) = V_USER(783) - V(3912) = V_USER(784) - V(241) = V_USER(785) - V(2937) = V_USER(786) - V(242) = V_USER(787) - V(1443) = V_USER(788) - V(1459) = V_USER(789) - V(27) = V_USER(790) - V(543) = V_USER(791) - V(3938) = V_USER(792) - V(243) = V_USER(793) - V(1475) = V_USER(794) - V(2386) = V_USER(795) - V(3165) = V_USER(796) - V(244) = V_USER(797) - V(245) = V_USER(798) - V(1725) = V_USER(799) - V(4799) = V_USER(800) - V(2397) = V_USER(801) - V(1491) = V_USER(802) - V(3415) = V_USER(803) - V(3005) = V_USER(804) - V(2404) = V_USER(805) - V(3011) = V_USER(806) - V(3015) = V_USER(807) - V(3553) = V_USER(808) - V(2489) = V_USER(809) - V(2420) = V_USER(810) - V(1512) = V_USER(811) - V(544) = V_USER(812) - V(1738) = V_USER(813) - V(2439) = V_USER(814) - V(1519) = V_USER(815) - V(5151) = V_USER(816) - V(1520) = V_USER(817) - V(4534) = V_USER(818) - V(1543) = V_USER(819) - V(4531) = V_USER(820) - V(3994) = V_USER(821) - V(1665) = V_USER(822) - V(2813) = V_USER(823) - V(4032) = V_USER(824) - V(4474) = V_USER(825) - V(1860) = V_USER(826) - V(2871) = V_USER(827) - V(5191) = V_USER(828) - V(822) = V_USER(829) - V(2811) = V_USER(830) - V(3264) = V_USER(831) - V(545) = V_USER(832) - V(3551) = V_USER(833) - V(4315) = V_USER(834) - V(823) = V_USER(835) - V(3381) = V_USER(836) - V(1754) = V_USER(837) - V(4608) = V_USER(838) - V(824) = V_USER(839) - V(546) = V_USER(840) - V(2939) = V_USER(841) - V(1784) = V_USER(842) - V(2515) = V_USER(843) - V(1790) = V_USER(844) - V(1793) = V_USER(845) - V(825) = V_USER(846) - V(1825) = V_USER(847) - V(3540) = V_USER(848) - V(2661) = V_USER(849) - V(4278) = V_USER(850) - V(1580) = V_USER(851) - V(2702) = V_USER(852) - V(2736) = V_USER(853) - V(28) = V_USER(854) - V(4263) = V_USER(855) - V(826) = V_USER(856) - V(827) = V_USER(857) - V(2975) = V_USER(858) - V(2982) = V_USER(859) - V(2991) = V_USER(860) - V(1903) = V_USER(861) - V(2503) = V_USER(862) - V(3571) = V_USER(863) - V(1928) = V_USER(864) - V(2527) = V_USER(865) - V(4679) = V_USER(866) - V(828) = V_USER(867) - V(5251) = V_USER(868) - V(3987) = V_USER(869) - V(5238) = V_USER(870) - V(1966) = V_USER(871) - V(3982) = V_USER(872) - V(1981) = V_USER(873) - V(547) = V_USER(874) - V(2474) = V_USER(875) - V(2599) = V_USER(876) - V(4089) = V_USER(877) - V(3719) = V_USER(878) - V(2636) = V_USER(879) - V(548) = V_USER(880) - V(549) = V_USER(881) - V(2068) = V_USER(882) - V(246) = V_USER(883) - V(3545) = V_USER(884) - V(3885) = V_USER(885) - V(3436) = V_USER(886) - V(2120) = V_USER(887) - V(2123) = V_USER(888) - V(4497) = V_USER(889) - V(247) = V_USER(890) - V(2138) = V_USER(891) - V(2718) = V_USER(892) - V(550) = V_USER(893) - V(2185) = V_USER(894) - V(3232) = V_USER(895) - V(5190) = V_USER(896) - V(248) = V_USER(897) - V(4759) = V_USER(898) - V(29) = V_USER(899) - V(830) = V_USER(900) - V(2231) = V_USER(901) - V(3696) = V_USER(902) - V(4992) = V_USER(903) - V(250) = V_USER(904) - V(30) = V_USER(905) - V(552) = V_USER(906) - V(831) = V_USER(907) - V(2033) = V_USER(908) - V(251) = V_USER(909) - V(2310) = V_USER(910) - V(2916) = V_USER(911) - V(553) = V_USER(912) - V(832) = V_USER(913) - V(5085) = V_USER(914) - V(2935) = V_USER(915) - V(3531) = V_USER(916) - V(2965) = V_USER(917) - V(4270) = V_USER(918) - V(4577) = V_USER(919) - V(3951) = V_USER(920) - V(1726) = V_USER(921) - V(2409) = V_USER(922) - V(833) = V_USER(923) - V(4288) = V_USER(924) - V(4664) = V_USER(925) - V(3966) = V_USER(926) - V(3036) = V_USER(927) - V(252) = V_USER(928) - V(4681) = V_USER(929) - V(4303) = V_USER(930) - V(555) = V_USER(931) - V(3067) = V_USER(932) - V(4967) = V_USER(933) - V(3070) = V_USER(934) - V(834) = V_USER(935) - V(4325) = V_USER(936) - V(253) = V_USER(937) - V(2630) = V_USER(938) - V(2694) = V_USER(939) - V(556) = V_USER(940) - V(3115) = V_USER(941) - V(4993) = V_USER(942) - V(4024) = V_USER(943) - V(2647) = V_USER(944) - V(2097) = V_USER(945) - V(2112) = V_USER(946) - V(2133) = V_USER(947) - V(2146) = V_USER(948) - V(3442) = V_USER(949) - V(4553) = V_USER(950) - V(3676) = V_USER(951) - V(2215) = V_USER(952) - V(2223) = V_USER(953) - V(4137) = V_USER(954) - V(836) = V_USER(955) - V(1557) = V_USER(956) - V(254) = V_USER(957) - V(2293) = V_USER(958) - V(3146) = V_USER(959) - V(2305) = V_USER(960) - V(2933) = V_USER(961) - V(5174) = V_USER(962) - V(2372) = V_USER(963) - V(2997) = V_USER(964) - V(3414) = V_USER(965) - V(2412) = V_USER(966) - V(3033) = V_USER(967) - V(2438) = V_USER(968) - V(2442) = V_USER(969) - V(2769) = V_USER(970) - V(1749) = V_USER(971) - V(4004) = V_USER(972) - V(31) = V_USER(973) - V(5083) = V_USER(974) - V(3111) = V_USER(975) - V(837) = V_USER(976) - V(4710) = V_USER(977) - V(3552) = V_USER(978) - V(1563) = V_USER(979) - V(255) = V_USER(980) - V(838) = V_USER(981) - V(839) = V_USER(982) - V(3716) = V_USER(983) - V(4848) = V_USER(984) - V(32) = V_USER(985) - V(3189) = V_USER(986) - V(1761) = V_USER(987) - V(1564) = V_USER(988) - V(4562) = V_USER(989) - V(4809) = V_USER(990) - V(4931) = V_USER(991) - V(5157) = V_USER(992) - V(4801) = V_USER(993) - V(3240) = V_USER(994) - V(840) = V_USER(995) - V(5185) = V_USER(996) - V(4455) = V_USER(997) - V(4690) = V_USER(998) - V(557) = V_USER(999) - V(4369) = V_USER(1000) - V(4291) = V_USER(1001) - V(3056) = V_USER(1002) - V(558) = V_USER(1003) - V(842) = V_USER(1004) - V(3369) = V_USER(1005) - V(3377) = V_USER(1006) - V(2507) = V_USER(1007) - V(3402) = V_USER(1008) - V(4255) = V_USER(1009) - V(33) = V_USER(1010) - V(844) = V_USER(1011) - V(4784) = V_USER(1012) - V(4099) = V_USER(1013) - V(1792) = V_USER(1014) - V(845) = V_USER(1015) - V(1795) = V_USER(1016) - V(3094) = V_USER(1017) - V(2535) = V_USER(1018) - V(4645) = V_USER(1019) - V(3900) = V_USER(1020) - V(4143) = V_USER(1021) - V(4908) = V_USER(1022) - V(1803) = V_USER(1023) - V(1575) = V_USER(1024) - V(1805) = V_USER(1025) - V(151) = V_USER(1026) - V(3866) = V_USER(1027) - V(4368) = V_USER(1028) - V(4507) = V_USER(1029) - V(846) = V_USER(1030) - V(4458) = V_USER(1031) - V(1818) = V_USER(1032) - V(1821) = V_USER(1033) - V(4161) = V_USER(1034) - V(256) = V_USER(1035) - V(847) = V_USER(1036) - V(848) = V_USER(1037) - V(3965) = V_USER(1038) - V(849) = V_USER(1039) - V(2664) = V_USER(1040) - V(3605) = V_USER(1041) - V(34) = V_USER(1042) - V(2683) = V_USER(1043) - V(3330) = V_USER(1044) - V(850) = V_USER(1045) - V(851) = V_USER(1046) - V(852) = V_USER(1047) - V(2703) = V_USER(1048) - V(3714) = V_USER(1049) - V(3954) = V_USER(1050) - V(1837) = V_USER(1051) - V(853) = V_USER(1052) - V(3227) = V_USER(1053) - V(3726) = V_USER(1054) - V(854) = V_USER(1055) - V(35) = V_USER(1056) - V(1852) = V_USER(1057) - V(855) = V_USER(1058) - V(5209) = V_USER(1059) - V(1859) = V_USER(1060) - V(856) = V_USER(1061) - V(857) = V_USER(1062) - V(1868) = V_USER(1063) - V(1869) = V_USER(1064) - V(4547) = V_USER(1065) - V(2898) = V_USER(1066) - V(559) = V_USER(1067) - V(1878) = V_USER(1068) - V(3390) = V_USER(1069) - V(3591) = V_USER(1070) - V(1880) = V_USER(1071) - V(1883) = V_USER(1072) - V(4812) = V_USER(1073) - V(3623) = V_USER(1074) - V(4927) = V_USER(1075) - V(3933) = V_USER(1076) - V(257) = V_USER(1077) - V(258) = V_USER(1078) - V(860) = V_USER(1079) - V(4554) = V_USER(1080) - V(5011) = V_USER(1081) - V(3820) = V_USER(1082) - V(3469) = V_USER(1083) - V(3175) = V_USER(1084) - V(3019) = V_USER(1085) - V(1898) = V_USER(1086) - V(4046) = V_USER(1087) - V(4498) = V_USER(1088) - V(3031) = V_USER(1089) - V(3319) = V_USER(1090) - V(1594) = V_USER(1091) - V(3561) = V_USER(1092) - V(861) = V_USER(1093) - V(259) = V_USER(1094) - V(2586) = V_USER(1095) - V(1595) = V_USER(1096) - V(5021) = V_USER(1097) - V(4543) = V_USER(1098) - V(2499) = V_USER(1099) - V(862) = V_USER(1100) - V(2504) = V_USER(1101) - V(2505) = V_USER(1102) - V(560) = V_USER(1103) - V(2506) = V_USER(1104) - V(561) = V_USER(1105) - V(864) = V_USER(1106) - V(5090) = V_USER(1107) - V(3707) = V_USER(1108) - V(2510) = V_USER(1109) - V(3302) = V_USER(1110) - V(3759) = V_USER(1111) - V(3086) = V_USER(1112) - V(4654) = V_USER(1113) - V(865) = V_USER(1114) - V(1949) = V_USER(1115) - V(866) = V_USER(1116) - V(3130) = V_USER(1117) - V(2530) = V_USER(1118) - V(1952) = V_USER(1119) - V(9) = V_USER(1120) - V(3862) = V_USER(1121) - V(867) = V_USER(1122) - V(868) = V_USER(1123) - V(1605) = V_USER(1124) - V(869) = V_USER(1125) - V(1960) = V_USER(1126) - V(563) = V_USER(1127) - V(4954) = V_USER(1128) - V(2537) = V_USER(1129) - V(1608) = V_USER(1130) - V(4910) = V_USER(1131) - V(3764) = V_USER(1132) - V(870) = V_USER(1133) - V(2542) = V_USER(1134) - V(871) = V_USER(1135) - V(3631) = V_USER(1136) - V(1967) = V_USER(1137) - V(1609) = V_USER(1138) - V(260) = V_USER(1139) - V(564) = V_USER(1140) - V(1972) = V_USER(1141) - V(565) = V_USER(1142) - V(2553) = V_USER(1143) - V(5141) = V_USER(1144) - V(2554) = V_USER(1145) - V(3122) = V_USER(1146) - V(2555) = V_USER(1147) - V(2556) = V_USER(1148) - V(872) = V_USER(1149) - V(1980) = V_USER(1150) - V(5123) = V_USER(1151) - V(873) = V_USER(1152) - V(3248) = V_USER(1153) - V(566) = V_USER(1154) - V(261) = V_USER(1155) - V(1987) = V_USER(1156) - V(262) = V_USER(1157) - V(1615) = V_USER(1158) - V(4277) = V_USER(1159) - V(3135) = V_USER(1160) - V(1618) = V_USER(1161) - V(2571) = V_USER(1162) - V(1993) = V_USER(1163) - V(4104) = V_USER(1164) - V(3706) = V_USER(1165) - V(5068) = V_USER(1166) - V(2577) = V_USER(1167) - V(2578) = V_USER(1168) - V(4788) = V_USER(1169) - V(2582) = V_USER(1170) - V(567) = V_USER(1171) - V(4322) = V_USER(1172) - V(2003) = V_USER(1173) - V(263) = V_USER(1174) - V(874) = V_USER(1175) - V(2589) = V_USER(1176) - V(568) = V_USER(1177) - V(3156) = V_USER(1178) - V(2593) = V_USER(1179) - V(2009) = V_USER(1180) - V(5070) = V_USER(1181) - V(2595) = V_USER(1182) - V(4767) = V_USER(1183) - V(876) = V_USER(1184) - V(2014) = V_USER(1185) - V(2017) = V_USER(1186) - V(4472) = V_USER(1187) - V(4952) = V_USER(1188) - V(264) = V_USER(1189) - V(2022) = V_USER(1190) - V(3182) = V_USER(1191) - V(4821) = V_USER(1192) - V(2610) = V_USER(1193) - V(2026) = V_USER(1194) - V(4521) = V_USER(1195) - V(2612) = V_USER(1196) - V(877) = V_USER(1197) - V(2617) = V_USER(1198) - V(5139) = V_USER(1199) - V(3202) = V_USER(1200) - V(2042) = V_USER(1201) - V(4599) = V_USER(1202) - V(4246) = V_USER(1203) - V(4085) = V_USER(1204) - V(4866) = V_USER(1205) - V(570) = V_USER(1206) - V(3646) = V_USER(1207) - V(2045) = V_USER(1208) - V(2041) = V_USER(1209) - V(878) = V_USER(1210) - V(3524) = V_USER(1211) - V(5044) = V_USER(1212) - V(3085) = V_USER(1213) - V(2048) = V_USER(1214) - V(3087) = V_USER(1215) - V(3953) = V_USER(1216) - V(571) = V_USER(1217) - V(3088) = V_USER(1218) - V(4343) = V_USER(1219) - V(3557) = V_USER(1220) - V(3975) = V_USER(1221) - V(4837) = V_USER(1222) - V(2633) = V_USER(1223) - V(879) = V_USER(1224) - V(4337) = V_USER(1225) - V(4067) = V_USER(1226) - V(36) = V_USER(1227) - V(2055) = V_USER(1228) - V(4135) = V_USER(1229) - V(572) = V_USER(1230) - V(3507) = V_USER(1231) - V(4467) = V_USER(1232) - V(265) = V_USER(1233) - V(574) = V_USER(1234) - V(575) = V_USER(1235) - V(4402) = V_USER(1236) - V(5034) = V_USER(1237) - V(2651) = V_USER(1238) - V(576) = V_USER(1239) - V(4935) = V_USER(1240) - V(1640) = V_USER(1241) - V(5172) = V_USER(1242) - V(1641) = V_USER(1243) - V(2660) = V_USER(1244) - V(37) = V_USER(1245) - V(5148) = V_USER(1246) - V(2094) = V_USER(1247) - V(577) = V_USER(1248) - V(2099) = V_USER(1249) - V(883) = V_USER(1250) - V(3579) = V_USER(1251) - V(4266) = V_USER(1252) - V(3749) = V_USER(1253) - V(4652) = V_USER(1254) - V(884) = V_USER(1255) - V(3474) = V_USER(1256) - V(4082) = V_USER(1257) - V(885) = V_USER(1258) - V(578) = V_USER(1259) - V(2695) = V_USER(1260) - V(266) = V_USER(1261) - V(888) = V_USER(1262) - V(1656) = V_USER(1263) - V(889) = V_USER(1264) - V(1659) = V_USER(1265) - V(890) = V_USER(1266) - V(2129) = V_USER(1267) - V(3337) = V_USER(1268) - V(2131) = V_USER(1269) - V(3865) = V_USER(1270) - V(4095) = V_USER(1271) - V(2137) = V_USER(1272) - V(891) = V_USER(1273) - V(267) = V_USER(1274) - V(5255) = V_USER(1275) - V(5125) = V_USER(1276) - V(5066) = V_USER(1277) - V(4203) = V_USER(1278) - V(4480) = V_USER(1279) - V(1663) = V_USER(1280) - V(892) = V_USER(1281) - V(2149) = V_USER(1282) - V(3214) = V_USER(1283) - V(4925) = V_USER(1284) - V(38) = V_USER(1285) - V(4694) = V_USER(1286) - V(2153) = V_USER(1287) - V(2156) = V_USER(1288) - V(893) = V_USER(1289) - V(39) = V_USER(1290) - V(3999) = V_USER(1291) - V(4037) = V_USER(1292) - V(3750) = V_USER(1293) - V(1931) = V_USER(1294) - V(4179) = V_USER(1295) - V(579) = V_USER(1296) - V(1667) = V_USER(1297) - V(2743) = V_USER(1298) - V(4558) = V_USER(1299) - V(3888) = V_USER(1300) - V(2747) = V_USER(1301) - V(4110) = V_USER(1302) - V(5217) = V_USER(1303) - V(4884) = V_USER(1304) - V(2762) = V_USER(1305) - V(2184) = V_USER(1306) - V(894) = V_USER(1307) - V(4731) = V_USER(1308) - V(895) = V_USER(1309) - V(5018) = V_USER(1310) - V(4224) = V_USER(1311) - V(152) = V_USER(1312) - V(896) = V_USER(1313) - V(4611) = V_USER(1314) - V(1677) = V_USER(1315) - V(2196) = V_USER(1316) - V(3836) = V_USER(1317) - V(897) = V_USER(1318) - V(1610) = V_USER(1319) - V(268) = V_USER(1320) - V(2200) = V_USER(1321) - V(2202) = V_USER(1322) - V(2784) = V_USER(1323) - V(1679) = V_USER(1324) - V(2790) = V_USER(1325) - V(2792) = V_USER(1326) - V(2793) = V_USER(1327) - V(2796) = V_USER(1328) - V(2801) = V_USER(1329) - V(2480) = V_USER(1330) - V(40) = V_USER(1331) - V(5212) = V_USER(1332) - V(899) = V_USER(1333) - V(4513) = V_USER(1334) - V(900) = V_USER(1335) - V(4320) = V_USER(1336) - V(2226) = V_USER(1337) - V(2228) = V_USER(1338) - V(2230) = V_USER(1339) - V(2817) = V_USER(1340) - V(901) = V_USER(1341) - V(2232) = V_USER(1342) - V(2233) = V_USER(1343) - V(4996) = V_USER(1344) - V(2821) = V_USER(1345) - V(2822) = V_USER(1346) - V(41) = V_USER(1347) - V(2242) = V_USER(1348) - V(2244) = V_USER(1349) - V(4900) = V_USER(1350) - V(2828) = V_USER(1351) - V(2830) = V_USER(1352) - V(2251) = V_USER(1353) - V(581) = V_USER(1354) - V(269) = V_USER(1355) - V(582) = V_USER(1356) - V(2258) = V_USER(1357) - V(902) = V_USER(1358) - V(42) = V_USER(1359) - V(271) = V_USER(1360) - V(4640) = V_USER(1361) - V(903) = V_USER(1362) - V(4310) = V_USER(1363) - V(2268) = V_USER(1364) - V(4192) = V_USER(1365) - V(3880) = V_USER(1366) - V(4194) = V_USER(1367) - V(5144) = V_USER(1368) - V(153) = V_USER(1369) - V(4198) = V_USER(1370) - V(2274) = V_USER(1371) - V(2276) = V_USER(1372) - V(904) = V_USER(1373) - V(3383) = V_USER(1374) - V(272) = V_USER(1375) - V(3217) = V_USER(1376) - V(3583) = V_USER(1377) - V(273) = V_USER(1378) - V(154) = V_USER(1379) - V(2279) = V_USER(1380) - V(905) = V_USER(1381) - V(3620) = V_USER(1382) - V(3890) = V_USER(1383) - V(3705) = V_USER(1384) - V(274) = V_USER(1385) - V(2876) = V_USER(1386) - V(4657) = V_USER(1387) - V(4371) = V_USER(1388) - V(1697) = V_USER(1389) - V(3710) = V_USER(1390) - V(1698) = V_USER(1391) - V(2289) = V_USER(1392) - V(2290) = V_USER(1393) - V(3261) = V_USER(1394) - V(4109) = V_USER(1395) - V(275) = V_USER(1396) - V(3262) = V_USER(1397) - V(10) = V_USER(1398) - V(2295) = V_USER(1399) - V(43) = V_USER(1400) - V(907) = V_USER(1401) - V(3718) = V_USER(1402) - V(583) = V_USER(1403) - V(2895) = V_USER(1404) - V(2299) = V_USER(1405) - V(584) = V_USER(1406) - V(4503) = V_USER(1407) - V(585) = V_USER(1408) - V(4047) = V_USER(1409) - V(3721) = V_USER(1410) - V(3722) = V_USER(1411) - V(586) = V_USER(1412) - V(909) = V_USER(1413) - V(155) = V_USER(1414) - V(4658) = V_USER(1415) - V(910) = V_USER(1416) - V(4904) = V_USER(1417) - V(911) = V_USER(1418) - V(4027) = V_USER(1419) - V(2314) = V_USER(1420) - V(3907) = V_USER(1421) - V(276) = V_USER(1422) - V(5182) = V_USER(1423) - V(3149) = V_USER(1424) - V(912) = V_USER(1425) - V(2321) = V_USER(1426) - V(587) = V_USER(1427) - V(2927) = V_USER(1428) - V(44) = V_USER(1429) - V(5046) = V_USER(1430) - V(914) = V_USER(1431) - V(2332) = V_USER(1432) - V(4579) = V_USER(1433) - V(2930) = V_USER(1434) - V(2485) = V_USER(1435) - V(1708) = V_USER(1436) - V(915) = V_USER(1437) - V(4242) = V_USER(1438) - V(3915) = V_USER(1439) - V(2342) = V_USER(1440) - V(3824) = V_USER(1441) - V(588) = V_USER(1442) - V(4351) = V_USER(1443) - V(2942) = V_USER(1444) - V(277) = V_USER(1445) - V(589) = V_USER(1446) - V(4723) = V_USER(1447) - V(2946) = V_USER(1448) - V(3282) = V_USER(1449) - V(2951) = V_USER(1450) - V(2952) = V_USER(1451) - V(916) = V_USER(1452) - V(2351) = V_USER(1453) - V(4627) = V_USER(1454) - V(2050) = V_USER(1455) - V(2356) = V_USER(1456) - V(4834) = V_USER(1457) - V(4633) = V_USER(1458) - V(917) = V_USER(1459) - V(2363) = V_USER(1460) - V(2967) = V_USER(1461) - V(3935) = V_USER(1462) - V(590) = V_USER(1463) - V(591) = V_USER(1464) - V(2375) = V_USER(1465) - V(2980) = V_USER(1466) - V(2376) = V_USER(1467) - V(45) = V_USER(1468) - V(2380) = V_USER(1469) - V(2986) = V_USER(1470) - V(4840) = V_USER(1471) - V(4149) = V_USER(1472) - V(3945) = V_USER(1473) - V(2383) = V_USER(1474) - V(592) = V_USER(1475) - V(2387) = V_USER(1476) - V(918) = V_USER(1477) - V(4646) = V_USER(1478) - V(4892) = V_USER(1479) - V(5187) = V_USER(1480) - V(5035) = V_USER(1481) - V(919) = V_USER(1482) - V(920) = V_USER(1483) - V(278) = V_USER(1484) - V(156) = V_USER(1485) - V(2395) = V_USER(1486) - V(4468) = V_USER(1487) - V(921) = V_USER(1488) - V(4469) = V_USER(1489) - V(4782) = V_USER(1490) - V(2088) = V_USER(1491) - V(4367) = V_USER(1492) - V(46) = V_USER(1493) - V(3467) = V_USER(1494) - V(593) = V_USER(1495) - V(922) = V_USER(1496) - V(4283) = V_USER(1497) - V(3957) = V_USER(1498) - V(3766) = V_USER(1499) - V(4285) = V_USER(1500) - V(923) = V_USER(1501) - V(924) = V_USER(1502) - V(925) = V_USER(1503) - V(2419) = V_USER(1504) - V(4895) = V_USER(1505) - V(3360) = V_USER(1506) - V(5248) = V_USER(1507) - V(4494) = V_USER(1508) - V(3309) = V_USER(1509) - V(4548) = V_USER(1510) - V(157) = V_USER(1511) - V(926) = V_USER(1512) - V(3179) = V_USER(1513) - V(279) = V_USER(1514) - V(3625) = V_USER(1515) - V(927) = V_USER(1516) - V(4957) = V_USER(1517) - V(280) = V_USER(1518) - V(3047) = V_USER(1519) - V(928) = V_USER(1520) - V(5067) = V_USER(1521) - V(281) = V_USER(1522) - V(3053) = V_USER(1523) - V(930) = V_USER(1524) - V(2447) = V_USER(1525) - V(3321) = V_USER(1526) - V(931) = V_USER(1527) - V(4514) = V_USER(1528) - V(4176) = V_USER(1529) - V(4080) = V_USER(1530) - V(47) = V_USER(1531) - V(2456) = V_USER(1532) - V(3061) = V_USER(1533) - V(282) = V_USER(1534) - V(3782) = V_USER(1535) - V(3562) = V_USER(1536) - V(3432) = V_USER(1537) - V(932) = V_USER(1538) - V(2465) = V_USER(1539) - V(933) = V_USER(1540) - V(934) = V_USER(1541) - V(4762) = V_USER(1542) - V(935) = V_USER(1543) - V(4763) = V_USER(1544) - V(1747) = V_USER(1545) - V(4318) = V_USER(1546) - V(3192) = V_USER(1547) - V(48) = V_USER(1548) - V(4896) = V_USER(1549) - V(49) = V_USER(1550) - V(3090) = V_USER(1551) - V(3661) = V_USER(1552) - V(3334) = V_USER(1553) - V(1548) = V_USER(1554) - V(2659) = V_USER(1555) - V(4244) = V_USER(1556) - V(937) = V_USER(1557) - V(3725) = V_USER(1558) - V(595) = V_USER(1559) - V(2444) = V_USER(1560) - V(4314) = V_USER(1561) - V(4393) = V_USER(1562) - V(1549) = V_USER(1563) - V(4684) = V_USER(1564) - V(1764) = V_USER(1565) - V(1774) = V_USER(1566) - V(158) = V_USER(1567) - V(4414) = V_USER(1568) - V(2963) = V_USER(1569) - V(4050) = V_USER(1570) - V(4914) = V_USER(1571) - V(1794) = V_USER(1572) - V(5230) = V_USER(1573) - V(284) = V_USER(1574) - V(1804) = V_USER(1575) - V(3926) = V_USER(1576) - V(938) = V_USER(1577) - V(2638) = V_USER(1578) - V(5075) = V_USER(1579) - V(939) = V_USER(1580) - V(285) = V_USER(1581) - V(286) = V_USER(1582) - V(2903) = V_USER(1583) - V(4097) = V_USER(1584) - V(3069) = V_USER(1585) - V(4225) = V_USER(1586) - V(1884) = V_USER(1587) - V(3743) = V_USER(1588) - V(287) = V_USER(1589) - V(596) = V_USER(1590) - V(3193) = V_USER(1591) - V(1552) = V_USER(1592) - V(1899) = V_USER(1593) - V(3322) = V_USER(1594) - V(50) = V_USER(1595) - V(4745) = V_USER(1596) - V(942) = V_USER(1597) - V(2502) = V_USER(1598) - V(1934) = V_USER(1599) - V(597) = V_USER(1600) - V(1937) = V_USER(1601) - V(1943) = V_USER(1602) - V(3200) = V_USER(1603) - V(3686) = V_USER(1604) - V(1553) = V_USER(1605) - V(3851) = V_USER(1606) - V(1962) = V_USER(1607) - V(2538) = V_USER(1608) - V(1969) = V_USER(1609) - V(2779) = V_USER(1610) - V(3494) = V_USER(1611) - V(288) = V_USER(1612) - V(1977) = V_USER(1613) - V(3120) = V_USER(1614) - V(3253) = V_USER(1615) - V(1992) = V_USER(1616) - V(3580) = V_USER(1617) - V(4445) = V_USER(1618) - V(4659) = V_USER(1619) - V(943) = V_USER(1620) - V(2585) = V_USER(1621) - V(3154) = V_USER(1622) - V(3281) = V_USER(1623) - V(289) = V_USER(1624) - V(2597) = V_USER(1625) - V(1649) = V_USER(1626) - V(2601) = V_USER(1627) - V(4786) = V_USER(1628) - V(2970) = V_USER(1629) - V(3662) = V_USER(1630) - V(1808) = V_USER(1631) - V(4313) = V_USER(1632) - V(3615) = V_USER(1633) - V(4357) = V_USER(1634) - V(3356) = V_USER(1635) - V(2637) = V_USER(1636) - V(2645) = V_USER(1637) - V(944) = V_USER(1638) - V(598) = V_USER(1639) - V(4844) = V_USER(1640) - V(1555) = V_USER(1641) - V(2662) = V_USER(1642) - V(2082) = V_USER(1643) - V(562) = V_USER(1644) - V(324) = V_USER(1645) - V(945) = V_USER(1646) - V(4744) = V_USER(1647) - V(290) = V_USER(1648) - V(2012) = V_USER(1649) - V(946) = V_USER(1650) - V(3098) = V_USER(1651) - V(3099) = V_USER(1652) - V(3435) = V_USER(1653) - V(2658) = V_USER(1654) - V(4760) = V_USER(1655) - V(3983) = V_USER(1656) - V(291) = V_USER(1657) - V(2124) = V_USER(1658) - V(3102) = V_USER(1659) - V(947) = V_USER(1660) - V(5005) = V_USER(1661) - V(2142) = V_USER(1662) - V(948) = V_USER(1663) - V(2720) = V_USER(1664) - V(949) = V_USER(1665) - V(292) = V_USER(1666) - V(3223) = V_USER(1667) - V(600) = V_USER(1668) - V(2172) = V_USER(1669) - V(2174) = V_USER(1670) - V(4274) = V_USER(1671) - V(2179) = V_USER(1672) - V(950) = V_USER(1673) - V(951) = V_USER(1674) - V(4187) = V_USER(1675) - V(2768) = V_USER(1676) - V(601) = V_USER(1677) - V(4598) = V_USER(1678) - V(4510) = V_USER(1679) - V(4636) = V_USER(1680) - V(2210) = V_USER(1681) - V(2212) = V_USER(1682) - V(952) = V_USER(1683) - V(953) = V_USER(1684) - V(3372) = V_USER(1685) - V(2235) = V_USER(1686) - V(1556) = V_USER(1687) - V(602) = V_USER(1688) - V(603) = V_USER(1689) - V(2245) = V_USER(1690) - V(2847) = V_USER(1691) - V(1750) = V_USER(1692) - V(5245) = V_USER(1693) - V(955) = V_USER(1694) - V(604) = V_USER(1695) - V(293) = V_USER(1696) - V(956) = V_USER(1697) - V(957) = V_USER(1698) - V(958) = V_USER(1699) - V(4215) = V_USER(1700) - V(959) = V_USER(1701) - V(960) = V_USER(1702) - V(1558) = V_USER(1703) - V(5133) = V_USER(1704) - V(4972) = V_USER(1705) - V(2317) = V_USER(1706) - V(2331) = V_USER(1707) - V(961) = V_USER(1708) - V(2339) = V_USER(1709) - V(2341) = V_USER(1710) - V(962) = V_USER(1711) - V(4604) = V_USER(1712) - V(4770) = V_USER(1713) - V(3398) = V_USER(1714) - V(159) = V_USER(1715) - V(2961) = V_USER(1716) - V(2962) = V_USER(1717) - V(2358) = V_USER(1718) - V(606) = V_USER(1719) - V(607) = V_USER(1720) - V(608) = V_USER(1721) - V(963) = V_USER(1722) - V(2717) = V_USER(1723) - V(2987) = V_USER(1724) - V(964) = V_USER(1725) - V(5020) = V_USER(1726) - V(965) = V_USER(1727) - V(4955) = V_USER(1728) - V(3959) = V_USER(1729) - V(966) = V_USER(1730) - V(4877) = V_USER(1731) - V(51) = V_USER(1732) - V(294) = V_USER(1733) - V(967) = V_USER(1734) - V(160) = V_USER(1735) - V(295) = V_USER(1736) - V(1559) = V_USER(1737) - V(4508) = V_USER(1738) - V(968) = V_USER(1739) - V(969) = V_USER(1740) - V(1560) = V_USER(1741) - V(5203) = V_USER(1742) - V(3986) = V_USER(1743) - V(4865) = V_USER(1744) - V(1870) = V_USER(1745) - V(3789) = V_USER(1746) - V(296) = V_USER(1747) - V(609) = V_USER(1748) - V(1748) = V_USER(1749) - V(3697) = V_USER(1750) - V(52) = V_USER(1751) - V(610) = V_USER(1752) - V(971) = V_USER(1753) - V(972) = V_USER(1754) - V(2808) = V_USER(1755) - V(53) = V_USER(1756) - V(611) = V_USER(1757) - V(2529) = V_USER(1758) - V(297) = V_USER(1759) - V(4919) = V_USER(1760) - V(161) = V_USER(1761) - V(404) = V_USER(1762) - V(974) = V_USER(1763) - V(2776) = V_USER(1764) - V(1751) = V_USER(1765) - V(4241) = V_USER(1766) - V(975) = V_USER(1767) - V(1752) = V_USER(1768) - V(1753) = V_USER(1769) - V(3556) = V_USER(1770) - V(3685) = V_USER(1771) - V(976) = V_USER(1772) - V(298) = V_USER(1773) - V(4154) = V_USER(1774) - V(4642) = V_USER(1775) - V(3290) = V_USER(1776) - V(5008) = V_USER(1777) - V(977) = V_USER(1778) - V(54) = V_USER(1779) - V(3010) = V_USER(1780) - V(4251) = V_USER(1781) - V(3992) = V_USER(1782) - V(3788) = V_USER(1783) - V(1756) = V_USER(1784) - V(299) = V_USER(1785) - V(3445) = V_USER(1786) - V(55) = V_USER(1787) - V(979) = V_USER(1788) - V(4897) = V_USER(1789) - V(2520) = V_USER(1790) - V(3754) = V_USER(1791) - V(980) = V_USER(1792) - V(1758) = V_USER(1793) - V(4959) = V_USER(1794) - V(56) = V_USER(1795) - V(5059) = V_USER(1796) - V(3484) = V_USER(1797) - V(57) = V_USER(1798) - V(982) = V_USER(1799) - V(2545) = V_USER(1800) - V(4269) = V_USER(1801) - V(1759) = V_USER(1802) - V(5053) = V_USER(1803) - V(300) = V_USER(1804) - V(2560) = V_USER(1805) - V(983) = V_USER(1806) - V(301) = V_USER(1807) - V(984) = V_USER(1808) - V(4713) = V_USER(1809) - V(985) = V_USER(1810) - V(4517) = V_USER(1811) - V(4637) = V_USER(1812) - V(986) = V_USER(1813) - V(987) = V_USER(1814) - V(3665) = V_USER(1815) - V(1762) = V_USER(1816) - V(2616) = V_USER(1817) - V(4980) = V_USER(1818) - V(988) = V_USER(1819) - V(989) = V_USER(1820) - V(3927) = V_USER(1821) - V(4446) = V_USER(1822) - V(5087) = V_USER(1823) - V(1763) = V_USER(1824) - V(2652) = V_USER(1825) - V(990) = V_USER(1826) - V(5037) = V_USER(1827) - V(1565) = V_USER(1828) - V(1765) = V_USER(1829) - V(991) = V_USER(1830) - V(58) = V_USER(1831) - V(1766) = V_USER(1832) - V(5025) = V_USER(1833) - V(612) = V_USER(1834) - V(3698) = V_USER(1835) - V(4527) = V_USER(1836) - V(4863) = V_USER(1837) - V(302) = V_USER(1838) - V(1767) = V_USER(1839) - V(2763) = V_USER(1840) - V(5072) = V_USER(1841) - V(1768) = V_USER(1842) - V(4977) = V_USER(1843) - V(1769) = V_USER(1844) - V(613) = V_USER(1845) - V(993) = V_USER(1846) - V(1770) = V_USER(1847) - V(2782) = V_USER(1848) - V(5022) = V_USER(1849) - V(1771) = V_USER(1850) - V(614) = V_USER(1851) - V(994) = V_USER(1852) - V(2482) = V_USER(1853) - V(5208) = V_USER(1854) - V(3126) = V_USER(1855) - V(5136) = V_USER(1856) - V(3695) = V_USER(1857) - V(1772) = V_USER(1858) - V(303) = V_USER(1859) - V(995) = V_USER(1860) - V(1566) = V_USER(1861) - V(3578) = V_USER(1862) - V(996) = V_USER(1863) - V(5220) = V_USER(1864) - V(4824) = V_USER(1865) - V(2484) = V_USER(1866) - V(4634) = V_USER(1867) - V(997) = V_USER(1868) - V(2873) = V_USER(1869) - V(998) = V_USER(1870) - V(304) = V_USER(1871) - V(59) = V_USER(1872) - V(2891) = V_USER(1873) - V(4186) = V_USER(1874) - V(3768) = V_USER(1875) - V(3832) = V_USER(1876) - V(305) = V_USER(1877) - V(1567) = V_USER(1878) - V(1568) = V_USER(1879) - V(3775) = V_USER(1880) - V(4122) = V_USER(1881) - V(1000) = V_USER(1882) - V(2936) = V_USER(1883) - V(616) = V_USER(1884) - V(4136) = V_USER(1885) - V(2960) = V_USER(1886) - V(1569) = V_USER(1887) - V(4572) = V_USER(1888) - V(1776) = V_USER(1889) - V(1777) = V_USER(1890) - V(3817) = V_USER(1891) - V(2990) = V_USER(1892) - V(1778) = V_USER(1893) - V(1779) = V_USER(1894) - V(1780) = V_USER(1895) - V(3018) = V_USER(1896) - V(1001) = V_USER(1897) - V(60) = V_USER(1898) - V(3423) = V_USER(1899) - V(4999) = V_USER(1900) - V(4549) = V_USER(1901) - V(1002) = V_USER(1902) - V(3666) = V_USER(1903) - V(4307) = V_USER(1904) - V(4308) = V_USER(1905) - V(4556) = V_USER(1906) - V(1782) = V_USER(1907) - V(3075) = V_USER(1908) - V(1783) = V_USER(1909) - V(1003) = V_USER(1910) - V(1004) = V_USER(1911) - V(3747) = V_USER(1912) - V(3689) = V_USER(1913) - V(3693) = V_USER(1914) - V(2495) = V_USER(1915) - V(5077) = V_USER(1916) - V(61) = V_USER(1917) - V(1570) = V_USER(1918) - V(1785) = V_USER(1919) - V(3637) = V_USER(1920) - V(4989) = V_USER(1921) - V(4889) = V_USER(1922) - V(5127) = V_USER(1923) - V(306) = V_USER(1924) - V(1786) = V_USER(1925) - V(1787) = V_USER(1926) - V(618) = V_USER(1927) - V(1006) = V_USER(1928) - V(4600) = V_USER(1929) - V(1007) = V_USER(1930) - V(1788) = V_USER(1931) - V(4338) = V_USER(1932) - V(307) = V_USER(1933) - V(1008) = V_USER(1934) - V(1009) = V_USER(1935) - V(1010) = V_USER(1936) - V(308) = V_USER(1937) - V(619) = V_USER(1938) - V(1012) = V_USER(1939) - V(1571) = V_USER(1940) - V(1013) = V_USER(1941) - V(1014) = V_USER(1942) - V(162) = V_USER(1943) - V(2522) = V_USER(1944) - V(3458) = V_USER(1945) - V(1015) = V_USER(1946) - V(4771) = V_USER(1947) - V(62) = V_USER(1948) - V(1572) = V_USER(1949) - V(1016) = V_USER(1950) - V(1017) = V_USER(1951) - V(4236) = V_USER(1952) - V(3096) = V_USER(1953) - V(620) = V_USER(1954) - V(1018) = V_USER(1955) - V(3209) = V_USER(1956) - V(1019) = V_USER(1957) - V(1573) = V_USER(1958) - V(2536) = V_USER(1959) - V(3211) = V_USER(1960) - V(1797) = V_USER(1961) - V(1020) = V_USER(1962) - V(4726) = V_USER(1963) - V(4765) = V_USER(1964) - V(2543) = V_USER(1965) - V(1798) = V_USER(1966) - V(3444) = V_USER(1967) - V(1021) = V_USER(1968) - V(1800) = V_USER(1969) - V(1801) = V_USER(1970) - V(3114) = V_USER(1971) - V(3233) = V_USER(1972) - V(4065) = V_USER(1973) - V(2552) = V_USER(1974) - V(1574) = V_USER(1975) - V(1022) = V_USER(1976) - V(63) = V_USER(1977) - V(1023) = V_USER(1978) - V(2557) = V_USER(1979) - V(4401) = V_USER(1980) - V(4105) = V_USER(1981) - V(163) = V_USER(1982) - V(1024) = V_USER(1983) - V(3816) = V_USER(1984) - V(1025) = V_USER(1985) - V(1026) = V_USER(1986) - V(2563) = V_USER(1987) - V(1027) = V_USER(1988) - V(621) = V_USER(1989) - V(4001) = V_USER(1990) - V(309) = V_USER(1991) - V(622) = V_USER(1992) - V(623) = V_USER(1993) - V(4806) = V_USER(1994) - V(3894) = V_USER(1995) - V(2575) = V_USER(1996) - V(3518) = V_USER(1997) - V(624) = V_USER(1998) - V(4795) = V_USER(1999) - V(3727) = V_USER(2000) - V(2583) = V_USER(2001) - V(310) = V_USER(2002) - V(4237) = V_USER(2003) - V(1807) = V_USER(2004) - V(5175) = V_USER(2005) - V(5) = V_USER(2006) - V(4737) = V_USER(2007) - V(625) = V_USER(2008) - V(1631) = V_USER(2009) - V(626) = V_USER(2010) - V(3164) = V_USER(2011) - V(4647) = V_USER(2012) - V(312) = V_USER(2013) - V(4706) = V_USER(2014) - V(2945) = V_USER(2015) - V(5201) = V_USER(2016) - V(4272) = V_USER(2017) - V(1809) = V_USER(2018) - V(2604) = V_USER(2019) - V(4165) = V_USER(2020) - V(3181) = V_USER(2021) - V(313) = V_USER(2022) - V(64) = V_USER(2023) - V(2605) = V_USER(2024) - V(3472) = V_USER(2025) - V(1811) = V_USER(2026) - V(627) = V_USER(2027) - V(3988) = V_USER(2028) - V(2611) = V_USER(2029) - V(1815) = V_USER(2030) - V(1816) = V_USER(2031) - V(1817) = V_USER(2032) - V(2902) = V_USER(2033) - V(3969) = V_USER(2034) - V(4862) = V_USER(2035) - V(1031) = V_USER(2036) - V(314) = V_USER(2037) - V(4481) = V_USER(2038) - V(1032) = V_USER(2039) - V(4828) = V_USER(2040) - V(2628) = V_USER(2041) - V(2623) = V_USER(2042) - V(3510) = V_USER(2043) - V(1819) = V_USER(2044) - V(5024) = V_USER(2045) - V(4966) = V_USER(2046) - V(3811) = V_USER(2047) - V(1577) = V_USER(2048) - V(2634) = V_USER(2049) - V(1033) = V_USER(2050) - V(3667) = V_USER(2051) - V(1578) = V_USER(2052) - V(1034) = V_USER(2053) - V(2641) = V_USER(2054) - V(1035) = V_USER(2055) - V(4738) = V_USER(2056) - V(315) = V_USER(2057) - V(3838) = V_USER(2058) - V(1822) = V_USER(2059) - V(3691) = V_USER(2060) - V(4898) = V_USER(2061) - V(3801) = V_USER(2062) - V(316) = V_USER(2063) - V(1823) = V_USER(2064) - V(628) = V_USER(2065) - V(65) = V_USER(2066) - V(1036) = V_USER(2067) - V(317) = V_USER(2068) - V(1826) = V_USER(2069) - V(3401) = V_USER(2070) - V(2654) = V_USER(2071) - V(2656) = V_USER(2072) - V(4233) = V_USER(2073) - V(1827) = V_USER(2074) - V(2657) = V_USER(2075) - V(1828) = V_USER(2076) - V(1037) = V_USER(2077) - V(4060) = V_USER(2078) - V(4985) = V_USER(2079) - V(1038) = V_USER(2080) - V(1039) = V_USER(2081) - V(4986) = V_USER(2082) - V(1040) = V_USER(2083) - V(3934) = V_USER(2084) - V(318) = V_USER(2085) - V(4674) = V_USER(2086) - V(3481) = V_USER(2087) - V(1830) = V_USER(2088) - V(4086) = V_USER(2089) - V(3197) = V_USER(2090) - V(2670) = V_USER(2091) - V(4379) = V_USER(2092) - V(4364) = V_USER(2093) - V(1041) = V_USER(2094) - V(1042) = V_USER(2095) - V(2675) = V_USER(2096) - V(4665) = V_USER(2097) - V(2677) = V_USER(2098) - V(2678) = V_USER(2099) - V(4491) = V_USER(2100) - V(1831) = V_USER(2101) - V(1043) = V_USER(2102) - V(2684) = V_USER(2103) - V(1832) = V_USER(2104) - V(3914) = V_USER(2105) - V(1044) = V_USER(2106) - V(319) = V_USER(2107) - V(3204) = V_USER(2108) - V(4644) = V_USER(2109) - V(736) = V_USER(2110) - V(1045) = V_USER(2111) - V(2689) = V_USER(2112) - V(2691) = V_USER(2113) - V(3995) = V_USER(2114) - V(320) = V_USER(2115) - V(4739) = V_USER(2116) - V(4623) = V_USER(2117) - V(1046) = V_USER(2118) - V(4888) = V_USER(2119) - V(3823) = V_USER(2120) - V(3968) = V_USER(2121) - V(3985) = V_USER(2122) - V(2698) = V_USER(2123) - V(3805) = V_USER(2124) - V(630) = V_USER(2125) - V(3962) = V_USER(2126) - V(4829) = V_USER(2127) - V(3210) = V_USER(2128) - V(4564) = V_USER(2129) - V(1047) = V_USER(2130) - V(4901) = V_USER(2131) - V(1048) = V_USER(2132) - V(2704) = V_USER(2133) - V(1049) = V_USER(2134) - V(3341) = V_USER(2135) - V(2710) = V_USER(2136) - V(5100) = V_USER(2137) - V(4139) = V_USER(2138) - V(1050) = V_USER(2139) - V(3439) = V_USER(2140) - V(1833) = V_USER(2141) - V(321) = V_USER(2142) - V(1834) = V_USER(2143) - V(322) = V_USER(2144) - V(1581) = V_USER(2145) - V(3680) = V_USER(2146) - V(2716) = V_USER(2147) - V(2719) = V_USER(2148) - V(1835) = V_USER(2149) - V(2721) = V_USER(2150) - V(5002) = V_USER(2151) - V(4976) = V_USER(2152) - V(4426) = V_USER(2153) - V(164) = V_USER(2154) - V(4735) = V_USER(2155) - V(1836) = V_USER(2156) - V(1051) = V_USER(2157) - V(325) = V_USER(2158) - V(631) = V_USER(2159) - V(632) = V_USER(2160) - V(1052) = V_USER(2161) - V(326) = V_USER(2162) - V(2741) = V_USER(2163) - V(4595) = V_USER(2164) - V(1839) = V_USER(2165) - V(4132) = V_USER(2166) - V(3112) = V_USER(2167) - V(3349) = V_USER(2168) - V(633) = V_USER(2169) - V(634) = V_USER(2170) - V(4010) = V_USER(2171) - V(5229) = V_USER(2172) - V(327) = V_USER(2173) - V(5095) = V_USER(2174) - V(4111) = V_USER(2175) - V(3905) = V_USER(2176) - V(4769) = V_USER(2177) - V(1053) = V_USER(2178) - V(4053) = V_USER(2179) - V(1054) = V_USER(2180) - V(4281) = V_USER(2181) - V(3352) = V_USER(2182) - V(5249) = V_USER(2183) - V(1840) = V_USER(2184) - V(1841) = V_USER(2185) - V(3737) = V_USER(2186) - V(3116) = V_USER(2187) - V(1842) = V_USER(2188) - V(3678) = V_USER(2189) - V(5041) = V_USER(2190) - V(1055) = V_USER(2191) - V(4650) = V_USER(2192) - V(2774) = V_USER(2193) - V(2775) = V_USER(2194) - V(1844) = V_USER(2195) - V(66) = V_USER(2196) - V(4398) = V_USER(2197) - V(1845) = V_USER(2198) - V(2780) = V_USER(2199) - V(67) = V_USER(2200) - V(4488) = V_USER(2201) - V(1846) = V_USER(2202) - V(4691) = V_USER(2203) - V(1848) = V_USER(2204) - V(4479) = V_USER(2205) - V(1056) = V_USER(2206) - V(1850) = V_USER(2207) - V(2788) = V_USER(2208) - V(1851) = V_USER(2209) - V(2794) = V_USER(2210) - V(1057) = V_USER(2211) - V(329) = V_USER(2212) - V(635) = V_USER(2213) - V(3850) = V_USER(2214) - V(4929) = V_USER(2215) - V(3852) = V_USER(2216) - V(3123) = V_USER(2217) - V(2803) = V_USER(2218) - V(636) = V_USER(2219) - V(4856) = V_USER(2220) - V(5007) = V_USER(2221) - V(2809) = V_USER(2222) - V(2810) = V_USER(2223) - V(4525) = V_USER(2224) - V(68) = V_USER(2225) - V(1582) = V_USER(2226) - V(4249) = V_USER(2227) - V(1853) = V_USER(2228) - V(1058) = V_USER(2229) - V(2816) = V_USER(2230) - V(4981) = V_USER(2231) - V(4571) = V_USER(2232) - V(330) = V_USER(2233) - V(4120) = V_USER(2234) - V(4420) = V_USER(2235) - V(1854) = V_USER(2236) - V(3375) = V_USER(2237) - V(69) = V_USER(2238) - V(3376) = V_USER(2239) - V(1855) = V_USER(2240) - V(3127) = V_USER(2241) - V(3640) = V_USER(2242) - V(3449) = V_USER(2243) - V(4842) = V_USER(2244) - V(637) = V_USER(2245) - V(1856) = V_USER(2246) - V(1059) = V_USER(2247) - V(3451) = V_USER(2248) - V(1857) = V_USER(2249) - V(4894) = V_USER(2250) - V(331) = V_USER(2251) - V(3509) = V_USER(2252) - V(1060) = V_USER(2253) - V(4790) = V_USER(2254) - V(638) = V_USER(2255) - V(1061) = V_USER(2256) - V(1861) = V_USER(2257) - V(332) = V_USER(2258) - V(2838) = V_USER(2259) - V(2840) = V_USER(2260) - V(3131) = V_USER(2261) - V(4937) = V_USER(2262) - V(1862) = V_USER(2263) - V(70) = V_USER(2264) - V(3878) = V_USER(2265) - V(4905) = V_USER(2266) - V(3701) = V_USER(2267) - V(1863) = V_USER(2268) - V(1864) = V_USER(2269) - V(2861) = V_USER(2270) - V(4816) = V_USER(2271) - V(5073) = V_USER(2272) - V(5042) = V_USER(2273) - V(3257) = V_USER(2274) - V(639) = V_USER(2275) - V(5055) = V_USER(2276) - V(3137) = V_USER(2277) - V(1062) = V_USER(2278) - V(2872) = V_USER(2279) - V(640) = V_USER(2280) - V(4103) = V_USER(2281) - V(1063) = V_USER(2282) - V(333) = V_USER(2283) - V(1871) = V_USER(2284) - V(334) = V_USER(2285) - V(1065) = V_USER(2286) - V(2878) = V_USER(2287) - V(3457) = V_USER(2288) - V(2881) = V_USER(2289) - V(335) = V_USER(2290) - V(4573) = V_USER(2291) - V(1872) = V_USER(2292) - V(4673) = V_USER(2293) - V(1873) = V_USER(2294) - V(1874) = V_USER(2295) - V(4994) = V_USER(2296) - V(3896) = V_USER(2297) - V(4915) = V_USER(2298) - V(2897) = V_USER(2299) - V(336) = V_USER(2300) - V(1067) = V_USER(2301) - V(71) = V_USER(2302) - V(1583) = V_USER(2303) - V(1875) = V_USER(2304) - V(1876) = V_USER(2305) - V(2904) = V_USER(2306) - V(5117) = V_USER(2307) - V(1877) = V_USER(2308) - V(2911) = V_USER(2309) - V(1585) = V_USER(2310) - V(1586) = V_USER(2311) - V(1068) = V_USER(2312) - V(4228) = V_USER(2313) - V(2919) = V_USER(2314) - V(1069) = V_USER(2315) - V(5162) = V_USER(2316) - V(4413) = V_USER(2317) - V(1070) = V_USER(2318) - V(643) = V_USER(2319) - V(3650) = V_USER(2320) - V(338) = V_USER(2321) - V(4345) = V_USER(2322) - V(3911) = V_USER(2323) - V(4416) = V_USER(2324) - V(72) = V_USER(2325) - V(2926) = V_USER(2326) - V(5119) = V_USER(2327) - V(2928) = V_USER(2328) - V(2929) = V_USER(2329) - V(1799) = V_USER(2330) - V(1881) = V_USER(2331) - V(4422) = V_USER(2332) - V(2931) = V_USER(2333) - V(1882) = V_USER(2334) - V(2932) = V_USER(2335) - V(4536) = V_USER(2336) - V(340) = V_USER(2337) - V(4427) = V_USER(2338) - V(3528) = V_USER(2339) - V(1072) = V_USER(2340) - V(1587) = V_USER(2341) - V(5031) = V_USER(2342) - V(1073) = V_USER(2343) - V(1074) = V_USER(2344) - V(644) = V_USER(2345) - V(4034) = V_USER(2346) - V(4432) = V_USER(2347) - V(2950) = V_USER(2348) - V(4913) = V_USER(2349) - V(3931) = V_USER(2350) - V(645) = V_USER(2351) - V(1588) = V_USER(2352) - V(4872) = V_USER(2353) - V(1885) = V_USER(2354) - V(1075) = V_USER(2355) - V(1886) = V_USER(2356) - V(1589) = V_USER(2357) - V(165) = V_USER(2358) - V(1590) = V_USER(2359) - V(4911) = V_USER(2360) - V(73) = V_USER(2361) - V(4259) = V_USER(2362) - V(2966) = V_USER(2363) - V(341) = V_USER(2364) - V(3833) = V_USER(2365) - V(1888) = V_USER(2366) - V(1889) = V_USER(2367) - V(4264) = V_USER(2368) - V(5082) = V_USER(2369) - V(4049) = V_USER(2370) - V(74) = V_USER(2371) - V(1077) = V_USER(2372) - V(3746) = V_USER(2373) - V(342) = V_USER(2374) - V(5228) = V_USER(2375) - V(1078) = V_USER(2376) - V(3161) = V_USER(2377) - V(3624) = V_USER(2378) - V(4267) = V_USER(2379) - V(4148) = V_USER(2380) - V(3539) = V_USER(2381) - V(1890) = V_USER(2382) - V(1891) = V_USER(2383) - V(2989) = V_USER(2384) - V(1892) = V_USER(2385) - V(1079) = V_USER(2386) - V(1080) = V_USER(2387) - V(2996) = V_USER(2388) - V(3949) = V_USER(2389) - V(1893) = V_USER(2390) - V(1894) = V_USER(2391) - V(2999) = V_USER(2392) - V(343) = V_USER(2393) - V(3542) = V_USER(2394) - V(3167) = V_USER(2395) - V(344) = V_USER(2396) - V(3411) = V_USER(2397) - V(1081) = V_USER(2398) - V(3001) = V_USER(2399) - V(3002) = V_USER(2400) - V(3168) = V_USER(2401) - V(4785) = V_USER(2402) - V(1082) = V_USER(2403) - V(3173) = V_USER(2404) - V(166) = V_USER(2405) - V(1083) = V_USER(2406) - V(5128) = V_USER(2407) - V(3548) = V_USER(2408) - V(1895) = V_USER(2409) - V(3763) = V_USER(2410) - V(2488) = V_USER(2411) - V(4794) = V_USER(2412) - V(3550) = V_USER(2413) - V(1084) = V_USER(2414) - V(75) = V_USER(2415) - V(345) = V_USER(2416) - V(1896) = V_USER(2417) - V(5240) = V_USER(2418) - V(3770) = V_USER(2419) - V(1897) = V_USER(2420) - V(1085) = V_USER(2421) - V(1086) = V_USER(2422) - V(1087) = V_USER(2423) - V(1088) = V_USER(2424) - V(167) = V_USER(2425) - V(1592) = V_USER(2426) - V(3772) = V_USER(2427) - V(1593) = V_USER(2428) - V(5163) = V_USER(2429) - V(1089) = V_USER(2430) - V(1900) = V_USER(2431) - V(3034) = V_USER(2432) - V(3035) = V_USER(2433) - V(3039) = V_USER(2434) - V(1901) = V_USER(2435) - V(3973) = V_USER(2436) - V(4589) = V_USER(2437) - V(4678) = V_USER(2438) - V(5153) = V_USER(2439) - V(5004) = V_USER(2440) - V(3046) = V_USER(2441) - V(3048) = V_USER(2442) - V(646) = V_USER(2443) - V(5257) = V_USER(2444) - V(4302) = V_USER(2445) - V(1090) = V_USER(2446) - V(3320) = V_USER(2447) - V(5116) = V_USER(2448) - V(4078) = V_USER(2449) - V(4392) = V_USER(2450) - V(1902) = V_USER(2451) - V(4516) = V_USER(2452) - V(3610) = V_USER(2453) - V(4826) = V_USER(2454) - V(3780) = V_USER(2455) - V(1091) = V_USER(2456) - V(1092) = V_USER(2457) - V(1093) = V_USER(2458) - V(647) = V_USER(2459) - V(1905) = V_USER(2460) - V(1906) = V_USER(2461) - V(3434) = V_USER(2462) - V(3190) = V_USER(2463) - V(4312) = V_USER(2464) - V(4530) = V_USER(2465) - V(1907) = V_USER(2466) - V(3072) = V_USER(2467) - V(1908) = V_USER(2468) - V(1909) = V_USER(2469) - V(4395) = V_USER(2470) - V(4576) = V_USER(2471) - V(648) = V_USER(2472) - V(346) = V_USER(2473) - V(2592) = V_USER(2474) - V(4667) = V_USER(2475) - V(5207) = V_USER(2476) - V(4002) = V_USER(2477) - V(347) = V_USER(2478) - V(4121) = V_USER(2479) - V(3853) = V_USER(2480) - V(1913) = V_USER(2481) - V(4306) = V_USER(2482) - V(649) = V_USER(2483) - V(4200) = V_USER(2484) - V(3279) = V_USER(2485) - V(2944) = V_USER(2486) - V(3537) = V_USER(2487) - V(4876) = V_USER(2488) - V(5252) = V_USER(2489) - V(1) = V_USER(2490) - V(3051) = V_USER(2491) - V(5101) = V_USER(2492) - V(2492) = V_USER(2493) - V(4696) = V_USER(2494) - V(4280) = V_USER(2495) - V(650) = V_USER(2496) - V(2493) = V_USER(2497) - V(4418) = V_USER(2498) - V(4512) = V_USER(2499) - V(4305) = V_USER(2500) - V(2494) = V_USER(2501) - V(1915) = V_USER(2502) - V(4559) = V_USER(2503) - V(4680) = V_USER(2504) - V(168) = V_USER(2505) - V(3229) = V_USER(2506) - V(1096) = V_USER(2507) - V(348) = V_USER(2508) - V(2497) = V_USER(2509) - V(510) = V_USER(2510) - V(1097) = V_USER(2511) - V(1917) = V_USER(2512) - V(1918) = V_USER(2513) - V(1098) = V_USER(2514) - V(3300) = V_USER(2515) - V(1919) = V_USER(2516) - V(3974) = V_USER(2517) - V(3977) = V_USER(2518) - V(2498) = V_USER(2519) - V(1099) = V_USER(2520) - V(3732) = V_USER(2521) - V(4012) = V_USER(2522) - V(4284) = V_USER(2523) - V(2500) = V_USER(2524) - V(349) = V_USER(2525) - V(1920) = V_USER(2526) - V(2501) = V_USER(2527) - V(652) = V_USER(2528) - V(1596) = V_USER(2529) - V(1921) = V_USER(2530) - V(1597) = V_USER(2531) - V(4405) = V_USER(2532) - V(3328) = V_USER(2533) - V(4217) = V_USER(2534) - V(1922) = V_USER(2535) - V(350) = V_USER(2536) - V(1598) = V_USER(2537) - V(351) = V_USER(2538) - V(3621) = V_USER(2539) - V(4686) = V_USER(2540) - V(4509) = V_USER(2541) - V(1100) = V_USER(2542) - V(3443) = V_USER(2543) - V(654) = V_USER(2544) - V(4540) = V_USER(2545) - V(4058) = V_USER(2546) - V(169) = V_USER(2547) - V(1103) = V_USER(2548) - V(1104) = V_USER(2549) - V(1925) = V_USER(2550) - V(4671) = V_USER(2551) - V(1105) = V_USER(2552) - V(4870) = V_USER(2553) - V(5099) = V_USER(2554) - V(3500) = V_USER(2555) - V(1926) = V_USER(2556) - V(3575) = V_USER(2557) - V(1927) = V_USER(2558) - V(352) = V_USER(2559) - V(5150) = V_USER(2560) - V(3690) = V_USER(2561) - V(3245) = V_USER(2562) - V(1106) = V_USER(2563) - V(4184) = V_USER(2564) - V(170) = V_USER(2565) - V(3250) = V_USER(2566) - V(1929) = V_USER(2567) - V(4354) = V_USER(2568) - V(4057) = V_USER(2569) - V(655) = V_USER(2570) - V(1930) = V_USER(2571) - V(2508) = V_USER(2572) - V(1108) = V_USER(2573) - V(4108) = V_USER(2574) - V(5215) = V_USER(2575) - V(3142) = V_USER(2576) - V(5048) = V_USER(2577) - V(4101) = V_USER(2578) - V(3271) = V_USER(2579) - V(1932) = V_USER(2580) - V(2509) = V_USER(2581) - V(4873) = V_USER(2582) - V(1109) = V_USER(2583) - V(4116) = V_USER(2584) - V(3148) = V_USER(2585) - V(1933) = V_USER(2586) - V(656) = V_USER(2587) - V(2511) = V_USER(2588) - V(4612) = V_USER(2589) - V(4435) = V_USER(2590) - V(1599) = V_USER(2591) - V(1935) = V_USER(2592) - V(657) = V_USER(2593) - V(1110) = V_USER(2594) - V(4142) = V_USER(2595) - V(171) = V_USER(2596) - V(3408) = V_USER(2597) - V(4150) = V_USER(2598) - V(3752) = V_USER(2599) - V(2513) = V_USER(2600) - V(2514) = V_USER(2601) - V(1111) = V_USER(2602) - V(354) = V_USER(2603) - V(4375) = V_USER(2604) - V(1936) = V_USER(2605) - V(3971) = V_USER(2606) - V(2516) = V_USER(2607) - V(3976) = V_USER(2608) - V(658) = V_USER(2609) - V(1600) = V_USER(2610) - V(2519) = V_USER(2611) - V(4083) = V_USER(2612) - V(3787) = V_USER(2613) - V(4190) = V_USER(2614) - V(3564) = V_USER(2615) - V(4560) = V_USER(2616) - V(4087) = V_USER(2617) - V(1601) = V_USER(2618) - V(1938) = V_USER(2619) - V(4298) = V_USER(2620) - V(3565) = V_USER(2621) - V(1939) = V_USER(2622) - V(3348) = V_USER(2623) - V(4324) = V_USER(2624) - V(1940) = V_USER(2625) - V(5094) = V_USER(2626) - V(3700) = V_USER(2627) - V(1941) = V_USER(2628) - V(2521) = V_USER(2629) - V(4831) = V_USER(2630) - V(1112) = V_USER(2631) - V(2471) = V_USER(2632) - V(5126) = V_USER(2633) - V(1602) = V_USER(2634) - V(355) = V_USER(2635) - V(4921) = V_USER(2636) - V(4055) = V_USER(2637) - V(1944) = V_USER(2638) - V(3351) = V_USER(2639) - V(1113) = V_USER(2640) - V(2523) = V_USER(2641) - V(2524) = V_USER(2642) - V(4715) = V_USER(2643) - V(4282) = V_USER(2644) - V(2525) = V_USER(2645) - V(2526) = V_USER(2646) - V(3380) = V_USER(2647) - V(1945) = V_USER(2648) - V(1114) = V_USER(2649) - V(4835) = V_USER(2650) - V(356) = V_USER(2651) - V(2528) = V_USER(2652) - V(2357) = V_USER(2653) - V(1946) = V_USER(2654) - V(5079) = V_USER(2655) - V(1947) = V_USER(2656) - V(357) = V_USER(2657) - V(4054) = V_USER(2658) - V(4811) = V_USER(2659) - V(3660) = V_USER(2660) - V(3093) = V_USER(2661) - V(1115) = V_USER(2662) - V(659) = V_USER(2663) - V(3981) = V_USER(2664) - V(1117) = V_USER(2665) - V(1950) = V_USER(2666) - V(76) = V_USER(2667) - V(1951) = V_USER(2668) - V(1119) = V_USER(2669) - V(3898) = V_USER(2670) - V(2531) = V_USER(2671) - V(1373) = V_USER(2672) - V(1953) = V_USER(2673) - V(1604) = V_USER(2674) - V(1120) = V_USER(2675) - V(2532) = V_USER(2676) - V(3638) = V_USER(2677) - V(1121) = V_USER(2678) - V(1122) = V_USER(2679) - V(1123) = V_USER(2680) - V(358) = V_USER(2681) - V(3520) = V_USER(2682) - V(77) = V_USER(2683) - V(660) = V_USER(2684) - V(661) = V_USER(2685) - V(3596) = V_USER(2686) - V(3331) = V_USER(2687) - V(4141) = V_USER(2688) - V(5115) = V_USER(2689) - V(1955) = V_USER(2690) - V(78) = V_USER(2691) - V(79) = V_USER(2692) - V(3692) = V_USER(2693) - V(3332) = V_USER(2694) - V(1124) = V_USER(2695) - V(5071) = V_USER(2696) - V(3762) = V_USER(2697) - V(359) = V_USER(2698) - V(1956) = V_USER(2699) - V(1957) = V_USER(2700) - V(4899) = V_USER(2701) - V(1606) = V_USER(2702) - V(360) = V_USER(2703) - V(1958) = V_USER(2704) - V(1959) = V_USER(2705) - V(3478) = V_USER(2706) - V(361) = V_USER(2707) - V(4670) = V_USER(2708) - V(3901) = V_USER(2709) - V(3103) = V_USER(2710) - V(3919) = V_USER(2711) - V(4698) = V_USER(2712) - V(3437) = V_USER(2713) - V(3483) = V_USER(2714) - V(1961) = V_USER(2715) - V(4383) = V_USER(2716) - V(1127) = V_USER(2717) - V(2472) = V_USER(2718) - V(3868) = V_USER(2719) - V(1128) = V_USER(2720) - V(3883) = V_USER(2721) - V(4202) = V_USER(2722) - V(1607) = V_USER(2723) - V(662) = V_USER(2724) - V(362) = V_USER(2725) - V(6) = V_USER(2726) - V(3219) = V_USER(2727) - V(1963) = V_USER(2728) - V(3813) = V_USER(2729) - V(363) = V_USER(2730) - V(2539) = V_USER(2731) - V(2540) = V_USER(2732) - V(4746) = V_USER(2733) - V(3887) = V_USER(2734) - V(3488) = V_USER(2735) - V(1964) = V_USER(2736) - V(1132) = V_USER(2737) - V(4666) = V_USER(2738) - V(1133) = V_USER(2739) - V(4206) = V_USER(2740) - V(4173) = V_USER(2741) - V(3628) = V_USER(2742) - V(4552) = V_USER(2743) - V(3842) = V_USER(2744) - V(2541) = V_USER(2745) - V(4754) = V_USER(2746) - V(1134) = V_USER(2747) - V(1965) = V_USER(2748) - V(2544) = V_USER(2749) - V(364) = V_USER(2750) - V(80) = V_USER(2751) - V(663) = V_USER(2752) - V(1137) = V_USER(2753) - V(664) = V_USER(2754) - V(1968) = V_USER(2755) - V(1138) = V_USER(2756) - V(1970) = V_USER(2757) - V(2546) = V_USER(2758) - V(1611) = V_USER(2759) - V(1139) = V_USER(2760) - V(4617) = V_USER(2761) - V(1971) = V_USER(2762) - V(2548) = V_USER(2763) - V(3675) = V_USER(2764) - V(365) = V_USER(2765) - V(2549) = V_USER(2766) - V(1140) = V_USER(2767) - V(2550) = V_USER(2768) - V(1141) = V_USER(2769) - V(1612) = V_USER(2770) - V(2551) = V_USER(2771) - V(4129) = V_USER(2772) - V(366) = V_USER(2773) - V(1974) = V_USER(2774) - V(1975) = V_USER(2775) - V(5145) = V_USER(2776) - V(81) = V_USER(2777) - V(3236) = V_USER(2778) - V(4373) = V_USER(2779) - V(1976) = V_USER(2780) - V(1613) = V_USER(2781) - V(82) = V_USER(2782) - V(83) = V_USER(2783) - V(4663) = V_USER(2784) - V(4584) = V_USER(2785) - V(3364) = V_USER(2786) - V(4412) = V_USER(2787) - V(666) = V_USER(2788) - V(667) = V_USER(2789) - V(367) = V_USER(2790) - V(1144) = V_USER(2791) - V(1978) = V_USER(2792) - V(4676) = V_USER(2793) - V(4528) = V_USER(2794) - V(4038) = V_USER(2795) - V(668) = V_USER(2796) - V(1145) = V_USER(2797) - V(669) = V_USER(2798) - V(1146) = V_USER(2799) - V(4781) = V_USER(2800) - V(1147) = V_USER(2801) - V(1148) = V_USER(2802) - V(3242) = V_USER(2803) - V(3139) = V_USER(2804) - V(1979) = V_USER(2805) - V(4506) = V_USER(2806) - V(5057) = V_USER(2807) - V(3688) = V_USER(2808) - V(2558) = V_USER(2809) - V(368) = V_USER(2810) - V(4827) = V_USER(2811) - V(369) = V_USER(2812) - V(1149) = V_USER(2813) - V(371) = V_USER(2814) - V(1151) = V_USER(2815) - V(1152) = V_USER(2816) - V(4752) = V_USER(2817) - V(1982) = V_USER(2818) - V(1983) = V_USER(2819) - V(1984) = V_USER(2820) - V(372) = V_USER(2821) - V(1985) = V_USER(2822) - V(3860) = V_USER(2823) - V(1986) = V_USER(2824) - V(2561) = V_USER(2825) - V(670) = V_USER(2826) - V(3694) = V_USER(2827) - V(1153) = V_USER(2828) - V(1154) = V_USER(2829) - V(1155) = V_USER(2830) - V(1156) = V_USER(2831) - V(1988) = V_USER(2832) - V(671) = V_USER(2833) - V(1989) = V_USER(2834) - V(1990) = V_USER(2835) - V(5023) = V_USER(2836) - V(4982) = V_USER(2837) - V(5160) = V_USER(2838) - V(5049) = V_USER(2839) - V(4590) = V_USER(2840) - V(1991) = V_USER(2841) - V(1157) = V_USER(2842) - V(373) = V_USER(2843) - V(4538) = V_USER(2844) - V(4861) = V_USER(2845) - V(2567) = V_USER(2846) - V(374) = V_USER(2847) - V(5029) = V_USER(2848) - V(4887) = V_USER(2849) - V(3252) = V_USER(2850) - V(4963) = V_USER(2851) - V(1158) = V_USER(2852) - V(1159) = V_USER(2853) - V(4712) = V_USER(2854) - V(3254) = V_USER(2855) - V(4944) = V_USER(2856) - V(2568) = V_USER(2857) - V(1160) = V_USER(2858) - V(1616) = V_USER(2859) - V(2569) = V_USER(2860) - V(3643) = V_USER(2861) - V(2570) = V_USER(2862) - V(1617) = V_USER(2863) - V(1161) = V_USER(2864) - V(672) = V_USER(2865) - V(3514) = V_USER(2866) - V(4201) = V_USER(2867) - V(673) = V_USER(2868) - V(1163) = V_USER(2869) - V(5061) = V_USER(2870) - V(4830) = V_USER(2871) - V(5076) = V_USER(2872) - V(3806) = V_USER(2873) - V(1164) = V_USER(2874) - V(1165) = V_USER(2875) - V(4009) = V_USER(2876) - V(4655) = V_USER(2877) - V(2572) = V_USER(2878) - V(1994) = V_USER(2879) - V(3515) = V_USER(2880) - V(2573) = V_USER(2881) - V(375) = V_USER(2882) - V(2) = V_USER(2883) - V(2574) = V_USER(2884) - V(4882) = V_USER(2885) - V(4522) = V_USER(2886) - V(1995) = V_USER(2887) - V(1996) = V_USER(2888) - V(4394) = V_USER(2889) - V(1997) = V_USER(2890) - V(4998) = V_USER(2891) - V(1998) = V_USER(2892) - V(1999) = V_USER(2893) - V(84) = V_USER(2894) - V(3717) = V_USER(2895) - V(4441) = V_USER(2896) - V(3647) = V_USER(2897) - V(1619) = V_USER(2898) - V(172) = V_USER(2899) - V(1166) = V_USER(2900) - V(376) = V_USER(2901) - V(398) = V_USER(2902) - V(4533) = V_USER(2903) - V(1167) = V_USER(2904) - V(3145) = V_USER(2905) - V(3585) = V_USER(2906) - V(3388) = V_USER(2907) - V(3902) = V_USER(2908) - V(1168) = V_USER(2909) - V(2579) = V_USER(2910) - V(3113) = V_USER(2911) - V(4939) = V_USER(2912) - V(1169) = V_USER(2913) - V(4114) = V_USER(2914) - V(4221) = V_USER(2915) - V(1620) = V_USER(2916) - V(2580) = V_USER(2917) - V(2000) = V_USER(2918) - V(2581) = V_USER(2919) - V(674) = V_USER(2920) - V(4229) = V_USER(2921) - V(2001) = V_USER(2922) - V(2584) = V_USER(2923) - V(377) = V_USER(2924) - V(1171) = V_USER(2925) - V(4524) = V_USER(2926) - V(3278) = V_USER(2927) - V(2473) = V_USER(2928) - V(85) = V_USER(2929) - V(1172) = V_USER(2930) - V(1173) = V_USER(2931) - V(4347) = V_USER(2932) - V(4239) = V_USER(2933) - V(675) = V_USER(2934) - V(5243) = V_USER(2935) - V(1622) = V_USER(2936) - V(4879) = V_USER(2937) - V(2004) = V_USER(2938) - V(4561) = V_USER(2939) - V(4940) = V_USER(2940) - V(5097) = V_USER(2941) - V(2005) = V_USER(2942) - V(173) = V_USER(2943) - V(2006) = V_USER(2944) - V(676) = V_USER(2945) - V(2588) = V_USER(2946) - V(378) = V_USER(2947) - V(3920) = V_USER(2948) - V(5129) = V_USER(2949) - V(677) = V_USER(2950) - V(1175) = V_USER(2951) - V(4622) = V_USER(2952) - V(1176) = V_USER(2953) - V(4036) = V_USER(2954) - V(1781) = V_USER(2955) - V(2590) = V_USER(2956) - V(174) = V_USER(2957) - V(2008) = V_USER(2958) - V(2591) = V_USER(2959) - V(86) = V_USER(2960) - V(3533) = V_USER(2961) - V(1177) = V_USER(2962) - V(1178) = V_USER(2963) - V(379) = V_USER(2964) - V(3288) = V_USER(2965) - V(4632) = V_USER(2966) - V(3534) = V_USER(2967) - V(1624) = V_USER(2968) - V(1180) = V_USER(2969) - V(4871) = V_USER(2970) - V(4542) = V_USER(2971) - V(4638) = V_USER(2972) - V(87) = V_USER(2973) - V(2010) = V_USER(2974) - V(2594) = V_USER(2975) - V(1181) = V_USER(2976) - V(4639) = V_USER(2977) - V(175) = V_USER(2978) - V(5122) = V_USER(2979) - V(380) = V_USER(2980) - V(1182) = V_USER(2981) - V(4699) = V_USER(2982) - V(1183) = V_USER(2983) - V(88) = V_USER(2984) - V(3162) = V_USER(2985) - V(2596) = V_USER(2986) - V(3294) = V_USER(2987) - V(3944) = V_USER(2988) - V(3409) = V_USER(2989) - V(1625) = V_USER(2990) - V(3656) = V_USER(2991) - V(2011) = V_USER(2992) - V(2598) = V_USER(2993) - V(1184) = V_USER(2994) - V(3593) = V_USER(2995) - V(3357) = V_USER(2996) - V(3297) = V_USER(2997) - V(1626) = V_USER(2998) - V(4465) = V_USER(2999) - V(2013) = V_USER(3000) - V(382) = V_USER(3001) - V(2016) = V_USER(3002) - V(5184) = V_USER(3003) - V(679) = V_USER(3004) - V(1186) = V_USER(3005) - V(89) = V_USER(3006) - V(383) = V_USER(3007) - V(3301) = V_USER(3008) - V(1628) = V_USER(3009) - V(1187) = V_USER(3010) - V(3174) = V_USER(3011) - V(3956) = V_USER(3012) - V(4970) = V_USER(3013) - V(2602) = V_USER(3014) - V(90) = V_USER(3015) - V(2603) = V_USER(3016) - V(5235) = V_USER(3017) - V(2019) = V_USER(3018) - V(4376) = V_USER(3019) - V(4847) = V_USER(3020) - V(3771) = V_USER(3021) - V(3555) = V_USER(3022) - V(1188) = V_USER(3023) - V(4380) = V_USER(3024) - V(384) = V_USER(3025) - V(5214) = V_USER(3026) - V(4942) = V_USER(3027) - V(4068) = V_USER(3028) - V(3178) = V_USER(3029) - V(3967) = V_USER(3030) - V(4502) = V_USER(3031) - V(1189) = V_USER(3032) - V(1190) = V_USER(3033) - V(3471) = V_USER(3034) - V(4949) = V_USER(3035) - V(4587) = V_USER(3036) - V(4852) = V_USER(3037) - V(2023) = V_USER(3038) - V(2024) = V_USER(3039) - V(4074) = V_USER(3040) - V(680) = V_USER(3041) - V(3972) = V_USER(3042) - V(2606) = V_USER(3043) - V(2607) = V_USER(3044) - V(4951) = V_USER(3045) - V(4171) = V_USER(3046) - V(176) = V_USER(3047) - V(5186) = V_USER(3048) - V(681) = V_USER(3049) - V(385) = V_USER(3050) - V(4389) = V_USER(3051) - V(386) = V_USER(3052) - V(1630) = V_USER(3053) - V(4605) = V_USER(3054) - V(2609) = V_USER(3055) - V(4175) = V_USER(3056) - V(683) = V_USER(3057) - V(5221) = V_USER(3058) - V(2025) = V_USER(3059) - V(1193) = V_USER(3060) - V(1194) = V_USER(3061) - V(2027) = V_USER(3062) - V(4520) = V_USER(3063) - V(2028) = V_USER(3064) - V(1195) = V_USER(3065) - V(3784) = V_USER(3066) - V(3433) = V_USER(3067) - V(3989) = V_USER(3068) - V(4689) = V_USER(3069) - V(1632) = V_USER(3070) - V(3147) = V_USER(3071) - V(3830) = V_USER(3072) - V(2029) = V_USER(3073) - V(91) = V_USER(3074) - V(2031) = V_USER(3075) - V(1196) = V_USER(3076) - V(3614) = V_USER(3077) - V(1633) = V_USER(3078) - V(2613) = V_USER(3079) - V(2614) = V_USER(3080) - V(2615) = V_USER(3081) - V(2032) = V_USER(3082) - V(1197) = V_USER(3083) - V(2034) = V_USER(3084) - V(1198) = V_USER(3085) - V(3855) = V_USER(3086) - V(3942) = V_USER(3087) - V(2036) = V_USER(3088) - V(1199) = V_USER(3089) - V(4814) = V_USER(3090) - V(3195) = V_USER(3091) - V(3730) = V_USER(3092) - V(4800) = V_USER(3093) - V(5232) = V_USER(3094) - V(92) = V_USER(3095) - V(3438) = V_USER(3096) - V(3198) = V_USER(3097) - V(1200) = V_USER(3098) - V(2618) = V_USER(3099) - V(2619) = V_USER(3100) - V(684) = V_USER(3101) - V(4747) = V_USER(3102) - V(685) = V_USER(3103) - V(686) = V_USER(3104) - V(3479) = V_USER(3105) - V(2037) = V_USER(3106) - V(2038) = V_USER(3107) - V(4442) = V_USER(3108) - V(2039) = V_USER(3109) - V(2475) = V_USER(3110) - V(1634) = V_USER(3111) - V(2621) = V_USER(3112) - V(2622) = V_USER(3113) - V(2040) = V_USER(3114) - V(3671) = V_USER(3115) - V(1635) = V_USER(3116) - V(4601) = V_USER(3117) - V(1201) = V_USER(3118) - V(4466) = V_USER(3119) - V(4356) = V_USER(3120) - V(3237) = V_USER(3121) - V(1202) = V_USER(3122) - V(1203) = V_USER(3123) - V(2624) = V_USER(3124) - V(4093) = V_USER(3125) - V(2625) = V_USER(3126) - V(1204) = V_USER(3127) - V(5040) = V_USER(3128) - V(4701) = V_USER(3129) - V(2043) = V_USER(3130) - V(4660) = V_USER(3131) - V(388) = V_USER(3132) - V(2044) = V_USER(3133) - V(4700) = V_USER(3134) - V(3802) = V_USER(3135) - V(2626) = V_USER(3136) - V(4386) = V_USER(3137) - V(2627) = V_USER(3138) - V(1206) = V_USER(3139) - V(389) = V_USER(3140) - V(3084) = V_USER(3141) - V(4968) = V_USER(3142) - V(1208) = V_USER(3143) - V(93) = V_USER(3144) - V(687) = V_USER(3145) - V(1210) = V_USER(3146) - V(1865) = V_USER(3147) - V(5105) = V_USER(3148) - V(390) = V_USER(3149) - V(4231) = V_USER(3150) - V(1212) = V_USER(3151) - V(177) = V_USER(3152) - V(2046) = V_USER(3153) - V(2629) = V_USER(3154) - V(4327) = V_USER(3155) - V(4675) = V_USER(3156) - V(2047) = V_USER(3157) - V(688) = V_USER(3158) - V(3598) = V_USER(3159) - V(689) = V_USER(3160) - V(4456) = V_USER(3161) - V(1213) = V_USER(3162) - V(1214) = V_USER(3163) - V(4839) = V_USER(3164) - V(5246) = V_USER(3165) - V(690) = V_USER(3166) - V(1215) = V_USER(3167) - V(3601) = V_USER(3168) - V(4069) = V_USER(3169) - V(3543) = V_USER(3170) - V(4156) = V_USER(3171) - V(1216) = V_USER(3172) - V(691) = V_USER(3173) - V(1217) = V_USER(3174) - V(3303) = V_USER(3175) - V(94) = V_USER(3176) - V(4582) = V_USER(3177) - V(692) = V_USER(3178) - V(4115) = V_USER(3179) - V(4397) = V_USER(3180) - V(1218) = V_USER(3181) - V(1219) = V_USER(3182) - V(1220) = V_USER(3183) - V(4504) = V_USER(3184) - V(4075) = V_USER(3185) - V(392) = V_USER(3186) - V(1221) = V_USER(3187) - V(4857) = V_USER(3188) - V(5156) = V_USER(3189) - V(3826) = V_USER(3190) - V(4178) = V_USER(3191) - V(4311) = V_USER(3192) - V(3786) = V_USER(3193) - V(4191) = V_USER(3194) - V(1222) = V_USER(3195) - V(1584) = V_USER(3196) - V(5210) = V_USER(3197) - V(3928) = V_USER(3198) - V(4214) = V_USER(3199) - V(3946) = V_USER(3200) - V(1223) = V_USER(3201) - V(3569) = V_USER(3202) - V(3618) = V_USER(3203) - V(3682) = V_USER(3204) - V(5222) = V_USER(3205) - V(4973) = V_USER(3206) - V(4820) = V_USER(3207) - V(2049) = V_USER(3208) - V(4578) = V_USER(3209) - V(2635) = V_USER(3210) - V(3961) = V_USER(3211) - V(4227) = V_USER(3212) - V(3339) = V_USER(3213) - V(1224) = V_USER(3214) - V(3485) = V_USER(3215) - V(1225) = V_USER(3216) - V(1636) = V_USER(3217) - V(178) = V_USER(3218) - V(5012) = V_USER(3219) - V(1226) = V_USER(3220) - V(3346) = V_USER(3221) - V(3627) = V_USER(3222) - V(4226) = V_USER(3223) - V(3930) = V_USER(3224) - V(2051) = V_USER(3225) - V(3194) = V_USER(3226) - V(3350) = V_USER(3227) - V(1227) = V_USER(3228) - V(2052) = V_USER(3229) - V(693) = V_USER(3230) - V(393) = V_USER(3231) - V(2053) = V_USER(3232) - V(95) = V_USER(3233) - V(1228) = V_USER(3234) - V(96) = V_USER(3235) - V(2056) = V_USER(3236) - V(4216) = V_USER(3237) - V(394) = V_USER(3238) - V(97) = V_USER(3239) - V(1229) = V_USER(3240) - V(3843) = V_USER(3241) - V(3089) = V_USER(3242) - V(694) = V_USER(3243) - V(695) = V_USER(3244) - V(2644) = V_USER(3245) - V(2059) = V_USER(3246) - V(1230) = V_USER(3247) - V(1231) = V_USER(3248) - V(1637) = V_USER(3249) - V(2061) = V_USER(3250) - V(1232) = V_USER(3251) - V(696) = V_USER(3252) - V(2477) = V_USER(3253) - V(2062) = V_USER(3254) - V(5178) = V_USER(3255) - V(179) = V_USER(3256) - V(4098) = V_USER(3257) - V(2063) = V_USER(3258) - V(4006) = V_USER(3259) - V(2064) = V_USER(3260) - V(4802) = V_USER(3261) - V(3711) = V_USER(3262) - V(1638) = V_USER(3263) - V(3895) = V_USER(3264) - V(2065) = V_USER(3265) - V(1234) = V_USER(3266) - V(2066) = V_USER(3267) - V(395) = V_USER(3268) - V(2649) = V_USER(3269) - V(1235) = V_USER(3270) - V(3521) = V_USER(3271) - V(1236) = V_USER(3272) - V(698) = V_USER(3273) - V(2650) = V_USER(3274) - V(1238) = V_USER(3275) - V(3180) = V_USER(3276) - V(3733) = V_USER(3277) - V(2067) = V_USER(3278) - V(396) = V_USER(3279) - V(2653) = V_USER(3280) - V(5195) = V_USER(3281) - V(98) = V_USER(3282) - V(3091) = V_USER(3283) - V(2069) = V_USER(3284) - V(1639) = V_USER(3285) - V(1240) = V_USER(3286) - V(2071) = V_USER(3287) - V(3196) = V_USER(3288) - V(2655) = V_USER(3289) - V(2072) = V_USER(3290) - V(397) = V_USER(3291) - V(2074) = V_USER(3292) - V(4893) = V_USER(3293) - V(3600) = V_USER(3294) - V(2075) = V_USER(3295) - V(4740) = V_USER(3296) - V(2077) = V_USER(3297) - V(1654) = V_USER(3298) - V(3948) = V_USER(3299) - V(2078) = V_USER(3300) - V(4649) = V_USER(3301) - V(180) = V_USER(3302) - V(3546) = V_USER(3303) - V(3744) = V_USER(3304) - V(181) = V_USER(3305) - V(399) = V_USER(3306) - V(2079) = V_USER(3307) - V(699) = V_USER(3308) - V(4162) = V_USER(3309) - V(4091) = V_USER(3310) - V(1243) = V_USER(3311) - V(2080) = V_USER(3312) - V(4495) = V_USER(3313) - V(3092) = V_USER(3314) - V(1244) = V_USER(3315) - V(3774) = V_USER(3316) - V(2081) = V_USER(3317) - V(1642) = V_USER(3318) - V(4619) = V_USER(3319) - V(5006) = V_USER(3320) - V(1643) = V_USER(3321) - V(2663) = V_USER(3322) - V(400) = V_USER(3323) - V(4177) = V_USER(3324) - V(3781) = V_USER(3325) - V(5169) = V_USER(3326) - V(3663) = V_USER(3327) - V(2083) = V_USER(3328) - V(2665) = V_USER(3329) - V(700) = V_USER(3330) - V(4783) = V_USER(3331) - V(3922) = V_USER(3332) - V(3464) = V_USER(3333) - V(401) = V_USER(3334) - V(4444) = V_USER(3335) - V(2084) = V_USER(3336) - V(4235) = V_USER(3337) - V(1245) = V_USER(3338) - V(4323) = V_USER(3339) - V(2085) = V_USER(3340) - V(2666) = V_USER(3341) - V(402) = V_USER(3342) - V(4240) = V_USER(3343) - V(701) = V_USER(3344) - V(2087) = V_USER(3345) - V(2667) = V_USER(3346) - V(2089) = V_USER(3347) - V(2090) = V_USER(3348) - V(99) = V_USER(3349) - V(2668) = V_USER(3350) - V(5104) = V_USER(3351) - V(2669) = V_USER(3352) - V(100) = V_USER(3353) - V(3199) = V_USER(3354) - V(2091) = V_USER(3355) - V(1246) = V_USER(3356) - V(2671) = V_USER(3357) - V(403) = V_USER(3358) - V(2093) = V_USER(3359) - V(3446) = V_USER(3360) - V(3201) = V_USER(3361) - V(1247) = V_USER(3362) - V(2672) = V_USER(3363) - V(3839) = V_USER(3364) - V(406) = V_USER(3365) - V(2095) = V_USER(3366) - V(407) = V_USER(3367) - V(182) = V_USER(3368) - V(1645) = V_USER(3369) - V(4066) = V_USER(3370) - V(2096) = V_USER(3371) - V(5236) = V_USER(3372) - V(4960) = V_USER(3373) - V(2676) = V_USER(3374) - V(4118) = V_USER(3375) - V(1248) = V_USER(3376) - V(3861) = V_USER(3377) - V(2098) = V_USER(3378) - V(4832) = V_USER(3379) - V(703) = V_USER(3380) - V(1250) = V_USER(3381) - V(1251) = V_USER(3382) - V(1647) = V_USER(3383) - V(3581) = V_USER(3384) - V(2680) = V_USER(3385) - V(2101) = V_USER(3386) - V(4112) = V_USER(3387) - V(2681) = V_USER(3388) - V(2682) = V_USER(3389) - V(704) = V_USER(3390) - V(3203) = V_USER(3391) - V(4230) = V_USER(3392) - V(4717) = V_USER(3393) - V(2103) = V_USER(3394) - V(5032) = V_USER(3395) - V(408) = V_USER(3396) - V(2105) = V_USER(3397) - V(3530) = V_USER(3398) - V(705) = V_USER(3399) - V(4130) = V_USER(3400) - V(3462) = V_USER(3401) - V(2106) = V_USER(3402) - V(4134) = V_USER(3403) - V(2107) = V_USER(3404) - V(409) = V_USER(3405) - V(3821) = V_USER(3406) - V(2686) = V_USER(3407) - V(2687) = V_USER(3408) - V(706) = V_USER(3409) - V(707) = V_USER(3410) - V(2109) = V_USER(3411) - V(3097) = V_USER(3412) - V(708) = V_USER(3413) - V(4709) = V_USER(3414) - V(1254) = V_USER(3415) - V(1648) = V_USER(3416) - V(1255) = V_USER(3417) - V(2111) = V_USER(3418) - V(5146) = V_USER(3419) - V(4581) = V_USER(3420) - V(2688) = V_USER(3421) - V(3427) = V_USER(3422) - V(5149) = V_USER(3423) - V(1650) = V_USER(3424) - V(4167) = V_USER(3425) - V(4396) = V_USER(3426) - V(1651) = V_USER(3427) - V(3205) = V_USER(3428) - V(1652) = V_USER(3429) - V(2690) = V_USER(3430) - V(3560) = V_USER(3431) - V(4519) = V_USER(3432) - V(4823) = V_USER(3433) - V(1256) = V_USER(3434) - V(4594) = V_USER(3435) - V(709) = V_USER(3436) - V(2113) = V_USER(3437) - V(4332) = V_USER(3438) - V(3207) = V_USER(3439) - V(3100) = V_USER(3440) - V(410) = V_USER(3441) - V(4743) = V_USER(3442) - V(3101) = V_USER(3443) - V(2114) = V_USER(3444) - V(411) = V_USER(3445) - V(4349) = V_USER(3446) - V(2115) = V_USER(3447) - V(1653) = V_USER(3448) - V(1257) = V_USER(3449) - V(4768) = V_USER(3450) - V(2692) = V_USER(3451) - V(3864) = V_USER(3452) - V(412) = V_USER(3453) - V(3870) = V_USER(3454) - V(653) = V_USER(3455) - V(1258) = V_USER(3456) - V(2693) = V_USER(3457) - V(413) = V_USER(3458) - V(4950) = V_USER(3459) - V(1655) = V_USER(3460) - V(1259) = V_USER(3461) - V(5043) = V_USER(3462) - V(3208) = V_USER(3463) - V(2117) = V_USER(3464) - V(3333) = V_USER(3465) - V(2118) = V_USER(3466) - V(4360) = V_USER(3467) - V(3757) = V_USER(3468) - V(1260) = V_USER(3469) - V(2119) = V_USER(3470) - V(2696) = V_USER(3471) - V(1261) = V_USER(3472) - V(2121) = V_USER(3473) - V(2122) = V_USER(3474) - V(2697) = V_USER(3475) - V(2035) = V_USER(3476) - V(710) = V_USER(3477) - V(1262) = V_USER(3478) - V(3876) = V_USER(3479) - V(1263) = V_USER(3480) - V(1658) = V_USER(3481) - V(4238) = V_USER(3482) - V(2125) = V_USER(3483) - V(3476) = V_USER(3484) - V(711) = V_USER(3485) - V(2126) = V_USER(3486) - V(2127) = V_USER(3487) - V(4417) = V_USER(3488) - V(2128) = V_USER(3489) - V(3723) = V_USER(3490) - V(1265) = V_USER(3491) - V(414) = V_USER(3492) - V(712) = V_USER(3493) - V(4404) = V_USER(3494) - V(4956) = V_USER(3495) - V(3958) = V_USER(3496) - V(2699) = V_USER(3497) - V(3336) = V_USER(3498) - V(3633) = V_USER(3499) - V(183) = V_USER(3500) - V(713) = V_USER(3501) - V(415) = V_USER(3502) - V(1268) = V_USER(3503) - V(2701) = V_USER(3504) - V(184) = V_USER(3505) - V(5154) = V_USER(3506) - V(1269) = V_USER(3507) - V(2132) = V_USER(3508) - V(3641) = V_USER(3509) - V(1270) = V_USER(3510) - V(185) = V_USER(3511) - V(1661) = V_USER(3512) - V(1271) = V_USER(3513) - V(4212) = V_USER(3514) - V(3477) = V_USER(3515) - V(3664) = V_USER(3516) - V(3338) = V_USER(3517) - V(2134) = V_USER(3518) - V(2705) = V_USER(3519) - V(4016) = V_USER(3520) - V(2706) = V_USER(3521) - V(2707) = V_USER(3522) - V(2708) = V_USER(3523) - V(2709) = V_USER(3524) - V(3587) = V_USER(3525) - V(3104) = V_USER(3526) - V(4117) = V_USER(3527) - V(101) = V_USER(3528) - V(2135) = V_USER(3529) - V(3105) = V_USER(3530) - V(3738) = V_USER(3531) - V(2136) = V_USER(3532) - V(4624) = V_USER(3533) - V(1272) = V_USER(3534) - V(3106) = V_USER(3535) - V(4260) = V_USER(3536) - V(3342) = V_USER(3537) - V(1273) = V_USER(3538) - V(2711) = V_USER(3539) - V(4145) = V_USER(3540) - V(416) = V_USER(3541) - V(4721) = V_USER(3542) - V(417) = V_USER(3543) - V(716) = V_USER(3544) - V(3343) = V_USER(3545) - V(2139) = V_USER(3546) - V(3800) = V_USER(3547) - V(717) = V_USER(3548) - V(3602) = V_USER(3549) - V(2140) = V_USER(3550) - V(102) = V_USER(3551) - V(418) = V_USER(3552) - V(1275) = V_USER(3553) - V(2713) = V_USER(3554) - V(2714) = V_USER(3555) - V(103) = V_USER(3556) - V(104) = V_USER(3557) - V(4669) = V_USER(3558) - V(2715) = V_USER(3559) - V(718) = V_USER(3560) - V(1276) = V_USER(3561) - V(2143) = V_USER(3562) - V(105) = V_USER(3563) - V(106) = V_USER(3564) - V(3345) = V_USER(3565) - V(4532) = V_USER(3566) - V(1277) = V_USER(3567) - V(1278) = V_USER(3568) - V(2145) = V_USER(3569) - V(719) = V_USER(3570) - V(1279) = V_USER(3571) - V(3107) = V_USER(3572) - V(419) = V_USER(3573) - V(1280) = V_USER(3574) - V(4196) = V_USER(3575) - V(3796) = V_USER(3576) - V(2147) = V_USER(3577) - V(1723) = V_USER(3578) - V(1281) = V_USER(3579) - V(2148) = V_USER(3580) - V(1282) = V_USER(3581) - V(3486) = V_USER(3582) - V(1664) = V_USER(3583) - V(1283) = V_USER(3584) - V(2150) = V_USER(3585) - V(1284) = V_USER(3586) - V(1285) = V_USER(3587) - V(1286) = V_USER(3588) - V(420) = V_USER(3589) - V(4022) = V_USER(3590) - V(4339) = V_USER(3591) - V(3487) = V_USER(3592) - V(5224) = V_USER(3593) - V(2723) = V_USER(3594) - V(3441) = V_USER(3595) - V(4693) = V_USER(3596) - V(2152) = V_USER(3597) - V(186) = V_USER(3598) - V(4138) = V_USER(3599) - V(4090) = V_USER(3600) - V(3109) = V_USER(3601) - V(720) = V_USER(3602) - V(5219) = V_USER(3603) - V(1287) = V_USER(3604) - V(4158) = V_USER(3605) - V(3215) = V_USER(3606) - V(2154) = V_USER(3607) - V(5189) = V_USER(3608) - V(4330) = V_USER(3609) - V(4390) = V_USER(3610) - V(721) = V_USER(3611) - V(722) = V_USER(3612) - V(2155) = V_USER(3613) - V(107) = V_USER(3614) - V(4529) = V_USER(3615) - V(2724) = V_USER(3616) - V(723) = V_USER(3617) - V(1289) = V_USER(3618) - V(2725) = V_USER(3619) - V(4961) = V_USER(3620) - V(421) = V_USER(3621) - V(4616) = V_USER(3622) - V(2726) = V_USER(3623) - V(2727) = V_USER(3624) - V(2728) = V_USER(3625) - V(724) = V_USER(3626) - V(108) = V_USER(3627) - V(3778) = V_USER(3628) - V(1291) = V_USER(3629) - V(422) = V_USER(3630) - V(2158) = V_USER(3631) - V(4372) = V_USER(3632) - V(2730) = V_USER(3633) - V(725) = V_USER(3634) - V(4475) = V_USER(3635) - V(3844) = V_USER(3636) - V(1292) = V_USER(3637) - V(2731) = V_USER(3638) - V(4490) = V_USER(3639) - V(1666) = V_USER(3640) - V(4751) = V_USER(3641) - V(3220) = V_USER(3642) - V(109) = V_USER(3643) - V(4451) = V_USER(3644) - V(4843) = V_USER(3645) - V(110) = V_USER(3646) - V(5258) = V_USER(3647) - V(2733) = V_USER(3648) - V(4213) = V_USER(3649) - V(2734) = V_USER(3650) - V(3221) = V_USER(3651) - V(3489) = V_USER(3652) - V(726) = V_USER(3653) - V(727) = V_USER(3654) - V(2735) = V_USER(3655) - V(2478) = V_USER(3656) - V(1293) = V_USER(3657) - V(3347) = V_USER(3658) - V(2160) = V_USER(3659) - V(2161) = V_USER(3660) - V(2737) = V_USER(3661) - V(1294) = V_USER(3662) - V(4294) = V_USER(3663) - V(2162) = V_USER(3664) - V(4309) = V_USER(3665) - V(4102) = V_USER(3666) - V(4185) = V_USER(3667) - V(1295) = V_USER(3668) - V(4974) = V_USER(3669) - V(1296) = V_USER(3670) - V(4026) = V_USER(3671) - V(2738) = V_USER(3672) - V(2739) = V_USER(3673) - V(728) = V_USER(3674) - V(3490) = V_USER(3675) - V(3110) = V_USER(3676) - V(2740) = V_USER(3677) - V(423) = V_USER(3678) - V(2164) = V_USER(3679) - V(729) = V_USER(3680) - V(5108) = V_USER(3681) - V(2742) = V_USER(3682) - V(424) = V_USER(3683) - V(2167) = V_USER(3684) - V(1297) = V_USER(3685) - V(1298) = V_USER(3686) - V(3629) = V_USER(3687) - V(2744) = V_USER(3688) - V(2745) = V_USER(3689) - V(111) = V_USER(3690) - V(1299) = V_USER(3691) - V(1300) = V_USER(3692) - V(4464) = V_USER(3693) - V(4273) = V_USER(3694) - V(2168) = V_USER(3695) - V(112) = V_USER(3696) - V(3867) = V_USER(3697) - V(5250) = V_USER(3698) - V(2748) = V_USER(3699) - V(3630) = V_USER(3700) - V(4588) = V_USER(3701) - V(2169) = V_USER(3702) - V(730) = V_USER(3703) - V(3491) = V_USER(3704) - V(3670) = V_USER(3705) - V(731) = V_USER(3706) - V(2750) = V_USER(3707) - V(1668) = V_USER(3708) - V(2171) = V_USER(3709) - V(4279) = V_USER(3710) - V(425) = V_USER(3711) - V(732) = V_USER(3712) - V(2751) = V_USER(3713) - V(1669) = V_USER(3714) - V(4496) = V_USER(3715) - V(113) = V_USER(3716) - V(3492) = V_USER(3717) - V(426) = V_USER(3718) - V(4997) = V_USER(3719) - V(4643) = V_USER(3720) - V(2175) = V_USER(3721) - V(3225) = V_USER(3722) - V(5081) = V_USER(3723) - V(4566) = V_USER(3724) - V(3672) = V_USER(3725) - V(1303) = V_USER(3726) - V(5121) = V_USER(3727) - V(1671) = V_USER(3728) - V(3226) = V_USER(3729) - V(5167) = V_USER(3730) - V(4774) = V_USER(3731) - V(2176) = V_USER(3732) - V(4344) = V_USER(3733) - V(3909) = V_USER(3734) - V(427) = V_USER(3735) - V(3673) = V_USER(3736) - V(2177) = V_USER(3737) - V(5065) = V_USER(3738) - V(2178) = V_USER(3739) - V(2752) = V_USER(3740) - V(1304) = V_USER(3741) - V(4431) = V_USER(3742) - V(2753) = V_USER(3743) - V(4252) = V_USER(3744) - V(3925) = V_USER(3745) - V(734) = V_USER(3746) - V(3799) = V_USER(3747) - V(2754) = V_USER(3748) - V(3943) = V_USER(3749) - V(1672) = V_USER(3750) - V(428) = V_USER(3751) - V(735) = V_USER(3752) - V(2856) = V_USER(3753) - V(2755) = V_USER(3754) - V(3493) = V_USER(3755) - V(4702) = V_USER(3756) - V(2756) = V_USER(3757) - V(3568) = V_USER(3758) - V(737) = V_USER(3759) - V(2180) = V_USER(3760) - V(4471) = V_USER(3761) - V(4789) = V_USER(3762) - V(2757) = V_USER(3763) - V(429) = V_USER(3764) - V(5093) = V_USER(3765) - V(2758) = V_USER(3766) - V(2182) = V_USER(3767) - V(2759) = V_USER(3768) - V(4286) = V_USER(3769) - V(3230) = V_USER(3770) - V(430) = V_USER(3771) - V(2760) = V_USER(3772) - V(2761) = V_USER(3773) - V(4295) = V_USER(3774) - V(1305) = V_USER(3775) - V(3570) = V_USER(3776) - V(4557) = V_USER(3777) - V(2183) = V_USER(3778) - V(4329) = V_USER(3779) - V(1306) = V_USER(3780) - V(2764) = V_USER(3781) - V(3231) = V_USER(3782) - V(1673) = V_USER(3783) - V(187) = V_USER(3784) - V(3827) = V_USER(3785) - V(431) = V_USER(3786) - V(3828) = V_USER(3787) - V(738) = V_USER(3788) - V(1307) = V_USER(3789) - V(4930) = V_USER(3790) - V(3358) = V_USER(3791) - V(739) = V_USER(3792) - V(4459) = V_USER(3793) - V(2766) = V_USER(3794) - V(4625) = V_USER(3795) - V(3848) = V_USER(3796) - V(2767) = V_USER(3797) - V(2186) = V_USER(3798) - V(432) = V_USER(3799) - V(4875) = V_USER(3800) - V(1675) = V_USER(3801) - V(1310) = V_USER(3802) - V(5194) = V_USER(3803) - V(1676) = V_USER(3804) - V(3495) = V_USER(3805) - V(5237) = V_USER(3806) - V(2187) = V_USER(3807) - V(4008) = V_USER(3808) - V(3117) = V_USER(3809) - V(1311) = V_USER(3810) - V(2188) = V_USER(3811) - V(2189) = V_USER(3812) - V(4687) = V_USER(3813) - V(433) = V_USER(3814) - V(1312) = V_USER(3815) - V(3496) = V_USER(3816) - V(2190) = V_USER(3817) - V(2771) = V_USER(3818) - V(2191) = V_USER(3819) - V(1313) = V_USER(3820) - V(2192) = V_USER(3821) - V(2772) = V_USER(3822) - V(3118) = V_USER(3823) - V(434) = V_USER(3824) - V(2773) = V_USER(3825) - V(4350) = V_USER(3826) - V(114) = V_USER(3827) - V(2193) = V_USER(3828) - V(2194) = V_USER(3829) - V(3447) = V_USER(3830) - V(3572) = V_USER(3831) - V(1315) = V_USER(3832) - V(3681) = V_USER(3833) - V(2076) = V_USER(3834) - V(4140) = V_USER(3835) - V(4293) = V_USER(3836) - V(1678) = V_USER(3837) - V(4434) = V_USER(3838) - V(4962) = V_USER(3839) - V(4064) = V_USER(3840) - V(4635) = V_USER(3841) - V(4537) = V_USER(3842) - V(4859) = V_USER(3843) - V(3573) = V_USER(3844) - V(3235) = V_USER(3845) - V(740) = V_USER(3846) - V(2777) = V_USER(3847) - V(2197) = V_USER(3848) - V(1317) = V_USER(3849) - V(435) = V_USER(3850) - V(115) = V_USER(3851) - V(2778) = V_USER(3852) - V(436) = V_USER(3853) - V(437) = V_USER(3854) - V(1319) = V_USER(3855) - V(3497) = V_USER(3856) - V(2199) = V_USER(3857) - V(3818) = V_USER(3858) - V(1320) = V_USER(3859) - V(3361) = V_USER(3860) - V(5086) = V_USER(3861) - V(3362) = V_USER(3862) - V(3790) = V_USER(3863) - V(1321) = V_USER(3864) - V(3791) = V_USER(3865) - V(4511) = V_USER(3866) - V(2201) = V_USER(3867) - V(5120) = V_USER(3868) - V(2781) = V_USER(3869) - V(4257) = V_USER(3870) - V(1322) = V_USER(3871) - V(2203) = V_USER(3872) - V(3683) = V_USER(3873) - V(4505) = V_USER(3874) - V(2204) = V_USER(3875) - V(3121) = V_USER(3876) - V(2783) = V_USER(3877) - V(1323) = V_USER(3878) - V(4258) = V_USER(3879) - V(1324) = V_USER(3880) - V(3841) = V_USER(3881) - V(2785) = V_USER(3882) - V(741) = V_USER(3883) - V(2206) = V_USER(3884) - V(116) = V_USER(3885) - V(2786) = V_USER(3886) - V(2787) = V_USER(3887) - V(4850) = V_USER(3888) - V(742) = V_USER(3889) - V(3238) = V_USER(3890) - V(4544) = V_USER(3891) - V(4545) = V_USER(3892) - V(3792) = V_USER(3893) - V(3812) = V_USER(3894) - V(2208) = V_USER(3895) - V(4526) = V_USER(3896) - V(4818) = V_USER(3897) - V(4922) = V_USER(3898) - V(4777) = V_USER(3899) - V(3366) = V_USER(3900) - V(439) = V_USER(3901) - V(3239) = V_USER(3902) - V(743) = V_USER(3903) - V(3634) = V_USER(3904) - V(3687) = V_USER(3905) - V(440) = V_USER(3906) - V(744) = V_USER(3907) - V(5039) = V_USER(3908) - V(2789) = V_USER(3909) - V(3849) = V_USER(3910) - V(1325) = V_USER(3911) - V(3499) = V_USER(3912) - V(7) = V_USER(3913) - V(2479) = V_USER(3914) - V(745) = V_USER(3915) - V(3845) = V_USER(3916) - V(5206) = V_USER(3917) - V(2791) = V_USER(3918) - V(4126) = V_USER(3919) - V(1326) = V_USER(3920) - V(3846) = V_USER(3921) - V(1327) = V_USER(3922) - V(3847) = V_USER(3923) - V(3635) = V_USER(3924) - V(442) = V_USER(3925) - V(1681) = V_USER(3926) - V(4254) = V_USER(3927) - V(4725) = V_USER(3928) - V(2795) = V_USER(3929) - V(4051) = V_USER(3930) - V(4629) = V_USER(3931) - V(444) = V_USER(3932) - V(2797) = V_USER(3933) - V(491) = V_USER(3934) - V(1682) = V_USER(3935) - V(4358) = V_USER(3936) - V(2213) = V_USER(3937) - V(4447) = V_USER(3938) - V(445) = V_USER(3939) - V(3367) = V_USER(3940) - V(4890) = V_USER(3941) - V(3501) = V_USER(3942) - V(3241) = V_USER(3943) - V(4880) = V_USER(3944) - V(1329) = V_USER(3945) - V(5063) = V_USER(3946) - V(4056) = V_USER(3947) - V(2214) = V_USER(3948) - V(3502) = V_USER(3949) - V(4059) = V_USER(3950) - V(1683) = V_USER(3951) - V(4705) = V_USER(3952) - V(3216) = V_USER(3953) - V(5137) = V_USER(3954) - V(747) = V_USER(3955) - V(2217) = V_USER(3956) - V(2802) = V_USER(3957) - V(1330) = V_USER(3958) - V(5030) = V_USER(3959) - V(3368) = V_USER(3960) - V(4159) = V_USER(3961) - V(3576) = V_USER(3962) - V(4478) = V_USER(3963) - V(1331) = V_USER(3964) - V(4290) = V_USER(3965) - V(3124) = V_USER(3966) - V(446) = V_USER(3967) - V(2218) = V_USER(3968) - V(3503) = V_USER(3969) - V(1333) = V_USER(3970) - V(447) = V_USER(3971) - V(3370) = V_USER(3972) - V(4073) = V_USER(3973) - V(1712) = V_USER(3974) - V(2805) = V_USER(3975) - V(2220) = V_USER(3976) - V(3504) = V_USER(3977) - V(3636) = V_USER(3978) - V(3371) = V_USER(3979) - V(2806) = V_USER(3980) - V(2807) = V_USER(3981) - V(2221) = V_USER(3982) - V(117) = V_USER(3983) - V(1773) = V_USER(3984) - V(2222) = V_USER(3985) - V(448) = V_USER(3986) - V(118) = V_USER(3987) - V(1335) = V_USER(3988) - V(3857) = V_USER(3989) - V(2812) = V_USER(3990) - V(4854) = V_USER(3991) - V(2224) = V_USER(3992) - V(4885) = V_USER(3993) - V(3797) = V_USER(3994) - V(3125) = V_USER(3995) - V(2225) = V_USER(3996) - V(1336) = V_USER(3997) - V(119) = V_USER(3998) - V(120) = V_USER(3999) - V(1337) = V_USER(4000) - V(3996) = V_USER(4001) - V(3745) = V_USER(4002) - V(4462) = V_USER(4003) - V(2227) = V_USER(4004) - V(2814) = V_USER(4005) - V(1338) = V_USER(4006) - V(4764) = V_USER(4007) - V(4199) = V_USER(4008) - V(5165) = V_USER(4009) - V(3505) = V_USER(4010) - V(2815) = V_USER(4011) - V(1685) = V_USER(4012) - V(4328) = V_USER(4013) - V(4596) = V_USER(4014) - V(4181) = V_USER(4015) - V(2229) = V_USER(4016) - V(3000) = V_USER(4017) - V(4535) = V_USER(4018) - V(1339) = V_USER(4019) - V(4688) = V_USER(4020) - V(1340) = V_USER(4021) - V(1341) = V_USER(4022) - V(4113) = V_USER(4023) - V(3858) = V_USER(4024) - V(4697) = V_USER(4025) - V(4222) = V_USER(4026) - V(1342) = V_USER(4027) - V(2818) = V_USER(4028) - V(3997) = V_USER(4029) - V(1343) = V_USER(4030) - V(2234) = V_USER(4031) - V(748) = V_USER(4032) - V(1344) = V_USER(4033) - V(1686) = V_USER(4034) - V(188) = V_USER(4035) - V(3374) = V_USER(4036) - V(2819) = V_USER(4037) - V(3831) = V_USER(4038) - V(2820) = V_USER(4039) - V(3859) = V_USER(4040) - V(3639) = V_USER(4041) - V(1345) = V_USER(4042) - V(749) = V_USER(4043) - V(1688) = V_USER(4044) - V(4443) = V_USER(4045) - V(3244) = V_USER(4046) - V(1346) = V_USER(4047) - V(2236) = V_USER(4048) - V(2237) = V_USER(4049) - V(4947) = V_USER(4050) - V(189) = V_USER(4051) - V(1347) = V_USER(4052) - V(4757) = V_USER(4053) - V(2239) = V_USER(4054) - V(1689) = V_USER(4055) - V(750) = V_USER(4056) - V(5017) = V_USER(4057) - V(2240) = V_USER(4058) - V(2824) = V_USER(4059) - V(2241) = V_USER(4060) - V(4742) = V_USER(4061) - V(1348) = V_USER(4062) - V(3246) = V_USER(4063) - V(2243) = V_USER(4064) - V(4366) = V_USER(4065) - V(1349) = V_USER(4066) - V(3247) = V_USER(4067) - V(449) = V_USER(4068) - V(4292) = V_USER(4069) - V(2246) = V_USER(4070) - V(4365) = V_USER(4071) - V(2247) = V_USER(4072) - V(2826) = V_USER(4073) - V(751) = V_USER(4074) - V(4299) = V_USER(4075) - V(752) = V_USER(4076) - V(5060) = V_USER(4077) - V(3450) = V_USER(4078) - V(1350) = V_USER(4079) - V(2248) = V_USER(4080) - V(190) = V_USER(4081) - V(1351) = V_USER(4082) - V(5193) = V_USER(4083) - V(450) = V_USER(4084) - V(1352) = V_USER(4085) - V(3508) = V_USER(4086) - V(4000) = V_USER(4087) - V(121) = V_USER(4088) - V(5247) = V_USER(4089) - V(2832) = V_USER(4090) - V(2249) = V_USER(4091) - V(3577) = V_USER(4092) - V(2250) = V_USER(4093) - V(753) = V_USER(4094) - V(2833) = V_USER(4095) - V(3296) = V_USER(4096) - V(2834) = V_USER(4097) - V(1353) = V_USER(4098) - V(3869) = V_USER(4099) - V(3452) = V_USER(4100) - V(2252) = V_USER(4101) - V(451) = V_USER(4102) - V(3128) = V_USER(4103) - V(4342) = V_USER(4104) - V(191) = V_USER(4105) - V(2253) = V_USER(4106) - V(2254) = V_USER(4107) - V(1354) = V_USER(4108) - V(3872) = V_USER(4109) - V(5213) = V_USER(4110) - V(5110) = V_USER(4111) - V(1355) = V_USER(4112) - V(3773) = V_USER(4113) - V(2256) = V_USER(4114) - V(2257) = V_USER(4115) - V(2836) = V_USER(4116) - V(3453) = V_USER(4117) - V(3129) = V_USER(4118) - V(122) = V_USER(4119) - V(1357) = V_USER(4120) - V(754) = V_USER(4121) - V(123) = V_USER(4122) - V(2839) = V_USER(4123) - V(2260) = V_USER(4124) - V(755) = V_USER(4125) - V(4245) = V_USER(4126) - V(3874) = V_USER(4127) - V(2841) = V_USER(4128) - V(1359) = V_USER(4129) - V(4248) = V_USER(4130) - V(2842) = V_USER(4131) - V(756) = V_USER(4132) - V(2843) = V_USER(4133) - V(2844) = V_USER(4134) - V(2845) = V_USER(4135) - V(2846) = V_USER(4136) - V(4613) = V_USER(4137) - V(1691) = V_USER(4138) - V(1692) = V_USER(4139) - V(2848) = V_USER(4140) - V(4262) = V_USER(4141) - V(4014) = V_USER(4142) - V(1693) = V_USER(4143) - V(2849) = V_USER(4144) - V(1360) = V_USER(4145) - V(5112) = V_USER(4146) - V(4485) = V_USER(4147) - V(1361) = V_USER(4148) - V(452) = V_USER(4149) - V(3132) = V_USER(4150) - V(757) = V_USER(4151) - V(3511) = V_USER(4152) - V(2263) = V_USER(4153) - V(4092) = V_USER(4154) - V(758) = V_USER(4155) - V(124) = V_USER(4156) - V(5103) = V_USER(4157) - V(4470) = V_USER(4158) - V(4602) = V_USER(4159) - V(2852) = V_USER(4160) - V(2853) = V_USER(4161) - V(453) = V_USER(4162) - V(3875) = V_USER(4163) - V(3513) = V_USER(4164) - V(4003) = V_USER(4165) - V(4084) = V_USER(4166) - V(3133) = V_USER(4167) - V(2855) = V_USER(4168) - V(5074) = V_USER(4169) - V(3877) = V_USER(4170) - V(2857) = V_USER(4171) - V(3699) = V_USER(4172) - V(454) = V_USER(4173) - V(5227) = V_USER(4174) - V(1362) = V_USER(4175) - V(5062) = V_USER(4176) - V(3879) = V_USER(4177) - V(4515) = V_USER(4178) - V(4551) = V_USER(4179) - V(2858) = V_USER(4180) - V(4096) = V_USER(4181) - V(1363) = V_USER(4182) - V(2266) = V_USER(4183) - V(3134) = V_USER(4184) - V(2267) = V_USER(4185) - V(2859) = V_USER(4186) - V(4874) = V_USER(4187) - V(455) = V_USER(4188) - V(1364) = V_USER(4189) - V(3702) = V_USER(4190) - V(3255) = V_USER(4191) - V(3619) = V_USER(4192) - V(456) = V_USER(4193) - V(3803) = V_USER(4194) - V(2860) = V_USER(4195) - V(2269) = V_USER(4196) - V(1365) = V_USER(4197) - V(4775) = V_USER(4198) - V(4193) = V_USER(4199) - V(5234) = V_USER(4200) - V(192) = V_USER(4201) - V(1366) = V_USER(4202) - V(2862) = V_USER(4203) - V(1367) = V_USER(4204) - V(1694) = V_USER(4205) - V(4195) = V_USER(4206) - V(4978) = V_USER(4207) - V(3881) = V_USER(4208) - V(457) = V_USER(4209) - V(458) = V_USER(4210) - V(3256) = V_USER(4211) - V(193) = V_USER(4212) - V(2273) = V_USER(4213) - V(459) = V_USER(4214) - V(2864) = V_USER(4215) - V(3644) = V_USER(4216) - V(4100) = V_USER(4217) - V(125) = V_USER(4218) - V(4773) = V_USER(4219) - V(3582) = V_USER(4220) - V(4707) = V_USER(4221) - V(4197) = V_USER(4222) - V(126) = V_USER(4223) - V(1369) = V_USER(4224) - V(762) = V_USER(4225) - V(1371) = V_USER(4226) - V(2275) = V_USER(4227) - V(4340) = V_USER(4228) - V(4409) = V_USER(4229) - V(127) = V_USER(4230) - V(1374) = V_USER(4231) - V(1375) = V_USER(4232) - V(3258) = V_USER(4233) - V(2865) = V_USER(4234) - V(2866) = V_USER(4235) - V(460) = V_USER(4236) - V(2867) = V_USER(4237) - V(461) = V_USER(4238) - V(462) = V_USER(4239) - V(463) = V_USER(4240) - V(4984) = V_USER(4241) - V(2277) = V_USER(4242) - V(3645) = V_USER(4243) - V(5138) = V_USER(4244) - V(2870) = V_USER(4245) - V(5015) = V_USER(4246) - V(1377) = V_USER(4247) - V(2278) = V_USER(4248) - V(4429) = V_USER(4249) - V(763) = V_USER(4250) - V(4353) = V_USER(4251) - V(1378) = V_USER(4252) - V(5135) = V_USER(4253) - V(1379) = V_USER(4254) - V(4438) = V_USER(4255) - V(3886) = V_USER(4256) - V(1380) = V_USER(4257) - V(764) = V_USER(4258) - V(4903) = V_USER(4259) - V(3138) = V_USER(4260) - V(1381) = V_USER(4261) - V(3704) = V_USER(4262) - V(2280) = V_USER(4263) - V(2281) = V_USER(4264) - V(4448) = V_USER(4265) - V(5173) = V_USER(4266) - V(2282) = V_USER(4267) - V(4641) = V_USER(4268) - V(4460) = V_USER(4269) - V(2283) = V_USER(4270) - V(5054) = V_USER(4271) - V(3584) = V_USER(4272) - V(3889) = V_USER(4273) - V(1382) = V_USER(4274) - V(1383) = V_USER(4275) - V(1696) = V_USER(4276) - V(1384) = V_USER(4277) - V(2874) = V_USER(4278) - V(3456) = V_USER(4279) - V(2875) = V_USER(4280) - V(1385) = V_USER(4281) - V(1386) = V_USER(4282) - V(4749) = V_USER(4283) - V(464) = V_USER(4284) - V(1387) = V_USER(4285) - V(1388) = V_USER(4286) - V(2285) = V_USER(4287) - V(765) = V_USER(4288) - V(3891) = V_USER(4289) - V(1389) = V_USER(4290) - V(4106) = V_USER(4291) - V(5158) = V_USER(4292) - V(4410) = V_USER(4293) - V(2286) = V_USER(4294) - V(2287) = V_USER(4295) - V(766) = V_USER(4296) - V(4333) = V_USER(4297) - V(4382) = V_USER(4298) - V(2288) = V_USER(4299) - V(767) = V_USER(4300) - V(128) = V_USER(4301) - V(768) = V_USER(4302) - V(1391) = V_USER(4303) - V(2880) = V_USER(4304) - V(3892) = V_USER(4305) - V(1392) = V_USER(4306) - V(3141) = V_USER(4307) - V(2882) = V_USER(4308) - V(2883) = V_USER(4309) - V(3260) = V_USER(4310) - V(2884) = V_USER(4311) - V(1393) = V_USER(4312) - V(2885) = V_USER(4313) - V(2886) = V_USER(4314) - V(1394) = V_USER(4315) - V(2887) = V_USER(4316) - V(194) = V_USER(4317) - V(1395) = V_USER(4318) - V(3712) = V_USER(4319) - V(4692) = V_USER(4320) - V(4449) = V_USER(4321) - V(769) = V_USER(4322) - V(5216) = V_USER(4323) - V(466) = V_USER(4324) - V(5028) = V_USER(4325) - V(4501) = V_USER(4326) - V(2291) = V_USER(4327) - V(1397) = V_USER(4328) - V(5045) = V_USER(4329) - V(4661) = V_USER(4330) - V(4209) = V_USER(4331) - V(2292) = V_USER(4332) - V(1699) = V_USER(4333) - V(3379) = V_USER(4334) - V(3795) = V_USER(4335) - V(1398) = V_USER(4336) - V(4210) = V_USER(4337) - V(770) = V_USER(4338) - V(3715) = V_USER(4339) - V(2888) = V_USER(4340) - V(3353) = V_USER(4341) - V(2889) = V_USER(4342) - V(3460) = V_USER(4343) - V(2890) = V_USER(4344) - V(4017) = V_USER(4345) - V(771) = V_USER(4346) - V(4819) = V_USER(4347) - V(1399) = V_USER(4348) - V(3143) = V_USER(4349) - V(467) = V_USER(4350) - V(2296) = V_USER(4351) - V(4211) = V_USER(4352) - V(2892) = V_USER(4353) - V(1400) = V_USER(4354) - V(2297) = V_USER(4355) - V(1401) = V_USER(4356) - V(2893) = V_USER(4357) - V(2894) = V_USER(4358) - V(4153) = V_USER(4359) - V(4630) = V_USER(4360) - V(1402) = V_USER(4361) - V(1403) = V_USER(4362) - V(1404) = V_USER(4363) - V(3144) = V_USER(4364) - V(3897) = V_USER(4365) - V(3617) = V_USER(4366) - V(3807) = V_USER(4367) - V(5231) = V_USER(4368) - V(468) = V_USER(4369) - V(469) = V_USER(4370) - V(4335) = V_USER(4371) - V(4656) = V_USER(4372) - V(4336) = V_USER(4373) - V(1700) = V_USER(4374) - V(2298) = V_USER(4375) - V(772) = V_USER(4376) - V(1405) = V_USER(4377) - V(3385) = V_USER(4378) - V(4583) = V_USER(4379) - V(773) = V_USER(4380) - V(2300) = V_USER(4381) - V(4798) = V_USER(4382) - V(470) = V_USER(4383) - V(3622) = V_USER(4384) - V(2301) = V_USER(4385) - V(2900) = V_USER(4386) - V(1407) = V_USER(4387) - V(2302) = V_USER(4388) - V(2901) = V_USER(4389) - V(1408) = V_USER(4390) - V(471) = V_USER(4391) - V(472) = V_USER(4392) - V(2303) = V_USER(4393) - V(1701) = V_USER(4394) - V(1410) = V_USER(4395) - V(3267) = V_USER(4396) - V(1702) = V_USER(4397) - V(4953) = V_USER(4398) - V(3899) = V_USER(4399) - V(1411) = V_USER(4400) - V(3648) = V_USER(4401) - V(774) = V_USER(4402) - V(2306) = V_USER(4403) - V(3586) = V_USER(4404) - V(129) = V_USER(4405) - V(473) = V_USER(4406) - V(775) = V_USER(4407) - V(3269) = V_USER(4408) - V(1412) = V_USER(4409) - V(3522) = V_USER(4410) - V(4772) = V_USER(4411) - V(11) = V_USER(4412) - V(474) = V_USER(4413) - V(5111) = V_USER(4414) - V(4218) = V_USER(4415) - V(2905) = V_USER(4416) - V(1413) = V_USER(4417) - V(2907) = V_USER(4418) - V(2908) = V_USER(4419) - V(4833) = V_USER(4420) - V(475) = V_USER(4421) - V(3589) = V_USER(4422) - V(4406) = V_USER(4423) - V(4219) = V_USER(4424) - V(776) = V_USER(4425) - V(4808) = V_USER(4426) - V(3903) = V_USER(4427) - V(1415) = V_USER(4428) - V(5159) = V_USER(4429) - V(2910) = V_USER(4430) - V(4023) = V_USER(4431) - V(3904) = V_USER(4432) - V(2309) = V_USER(4433) - V(4407) = V_USER(4434) - V(1704) = V_USER(4435) - V(777) = V_USER(4436) - V(476) = V_USER(4437) - V(4539) = V_USER(4438) - V(2173) = V_USER(4439) - V(4626) = V_USER(4440) - V(2912) = V_USER(4441) - V(4570) = V_USER(4442) - V(2913) = V_USER(4443) - V(1417) = V_USER(4444) - V(370) = V_USER(4445) - V(4025) = V_USER(4446) - V(3389) = V_USER(4447) - V(4541) = V_USER(4448) - V(4223) = V_USER(4449) - V(3808) = V_USER(4450) - V(2311) = V_USER(4451) - V(2915) = V_USER(4452) - V(4853) = V_USER(4453) - V(3809) = V_USER(4454) - V(1418) = V_USER(4455) - V(3728) = V_USER(4456) - V(2917) = V_USER(4457) - V(5152) = V_USER(4458) - V(3177) = V_USER(4459) - V(2312) = V_USER(4460) - V(5069) = V_USER(4461) - V(1705) = V_USER(4462) - V(3590) = V_USER(4463) - V(3729) = V_USER(4464) - V(2918) = V_USER(4465) - V(2313) = V_USER(4466) - V(3272) = V_USER(4467) - V(1419) = V_USER(4468) - V(1420) = V_USER(4469) - V(3906) = V_USER(4470) - V(3273) = V_USER(4471) - V(1421) = V_USER(4472) - V(2315) = V_USER(4473) - V(195) = V_USER(4474) - V(3908) = V_USER(4475) - V(477) = V_USER(4476) - V(4341) = V_USER(4477) - V(5102) = V_USER(4478) - V(1706) = V_USER(4479) - V(1422) = V_USER(4480) - V(478) = V_USER(4481) - V(4546) = V_USER(4482) - V(4232) = V_USER(4483) - V(2318) = V_USER(4484) - V(3525) = V_USER(4485) - V(3391) = V_USER(4486) - V(1423) = V_USER(4487) - V(1424) = V_USER(4488) - V(4718) = V_USER(4489) - V(5176) = V_USER(4490) - V(479) = V_USER(4491) - V(1425) = V_USER(4492) - V(480) = V_USER(4493) - V(779) = V_USER(4494) - V(2319) = V_USER(4495) - V(4668) = V_USER(4496) - V(2320) = V_USER(4497) - V(4119) = V_USER(4498) - V(4934) = V_USER(4499) - V(5019) = V_USER(4500) - V(4415) = V_USER(4501) - V(3274) = V_USER(4502) - V(4029) = V_USER(4503) - V(4917) = V_USER(4504) - V(3275) = V_USER(4505) - V(3150) = V_USER(4506) - V(3910) = V_USER(4507) - V(1426) = V_USER(4508) - V(2323) = V_USER(4509) - V(3276) = V_USER(4510) - V(2322) = V_USER(4511) - V(481) = V_USER(4512) - V(2993) = V_USER(4513) - V(2923) = V_USER(4514) - V(780) = V_USER(4515) - V(2924) = V_USER(4516) - V(4825) = V_USER(4517) - V(2925) = V_USER(4518) - V(781) = V_USER(4519) - V(4734) = V_USER(4520) - V(482) = V_USER(4521) - V(4234) = V_USER(4522) - V(3393) = V_USER(4523) - V(4346) = V_USER(4524) - V(4965) = V_USER(4525) - V(4052) = V_USER(4526) - V(4030) = V_USER(4527) - V(1427) = V_USER(4528) - V(782) = V_USER(4529) - V(483) = V_USER(4530) - V(1428) = V_USER(4531) - V(3734) = V_USER(4532) - V(2328) = V_USER(4533) - V(130) = V_USER(4534) - V(1429) = V_USER(4535) - V(784) = V_USER(4536) - V(2329) = V_USER(4537) - V(2330) = V_USER(4538) - V(1430) = V_USER(4539) - V(4869) = V_USER(4540) - V(1431) = V_USER(4541) - V(3153) = V_USER(4542) - V(1707) = V_USER(4543) - V(4421) = V_USER(4544) - V(4703) = V_USER(4545) - V(1432) = V_USER(4546) - V(1433) = V_USER(4547) - V(1434) = V_USER(4548) - V(4720) = V_USER(4549) - V(3526) = V_USER(4550) - V(4326) = V_USER(4551) - V(2333) = V_USER(4552) - V(5036) = V_USER(4553) - V(4123) = V_USER(4554) - V(4348) = V_USER(4555) - V(4776) = V_USER(4556) - V(3527) = V_USER(4557) - V(4610) = V_USER(4558) - V(4864) = V_USER(4559) - V(2335) = V_USER(4560) - V(785) = V_USER(4561) - V(1435) = V_USER(4562) - V(1436) = V_USER(4563) - V(2934) = V_USER(4564) - V(2336) = V_USER(4565) - V(2337) = V_USER(4566) - V(484) = V_USER(4567) - V(3155) = V_USER(4568) - V(4425) = V_USER(4569) - V(2338) = V_USER(4570) - V(4428) = V_USER(4571) - V(4858) = V_USER(4572) - V(1437) = V_USER(4573) - V(131) = V_USER(4574) - V(1438) = V_USER(4575) - V(3735) = V_USER(4576) - V(1709) = V_USER(4577) - V(5166) = V_USER(4578) - V(2340) = V_USER(4579) - V(786) = V_USER(4580) - V(3595) = V_USER(4581) - V(4932) = V_USER(4582) - V(1710) = V_USER(4583) - V(3395) = V_USER(4584) - V(5134) = V_USER(4585) - V(4803) = V_USER(4586) - V(4948) = V_USER(4587) - V(3736) = V_USER(4588) - V(132) = V_USER(4589) - V(3461) = V_USER(4590) - V(5202) = V_USER(4591) - V(3529) = V_USER(4592) - V(1439) = V_USER(4593) - V(3916) = V_USER(4594) - V(3280) = V_USER(4595) - V(1440) = V_USER(4596) - V(3739) = V_USER(4597) - V(4033) = V_USER(4598) - V(1441) = V_USER(4599) - V(4124) = V_USER(4600) - V(2940) = V_USER(4601) - V(2343) = V_USER(4602) - V(787) = V_USER(4603) - V(4125) = V_USER(4604) - V(3917) = V_USER(4605) - V(1820) = V_USER(4606) - V(2345) = V_USER(4607) - V(5010) = V_USER(4608) - V(485) = V_USER(4609) - V(788) = V_USER(4610) - V(1444) = V_USER(4611) - V(1445) = V_USER(4612) - V(3918) = V_USER(4613) - V(196) = V_USER(4614) - V(4430) = V_USER(4615) - V(1446) = V_USER(4616) - V(1711) = V_USER(4617) - V(5177) = V_USER(4618) - V(2346) = V_USER(4619) - V(4035) = V_USER(4620) - V(2347) = V_USER(4621) - V(4565) = V_USER(4622) - V(3396) = V_USER(4623) - V(1713) = V_USER(4624) - V(2486) = V_USER(4625) - V(3741) = V_USER(4626) - V(2015) = V_USER(4627) - V(1447) = V_USER(4628) - V(486) = V_USER(4629) - V(1448) = V_USER(4630) - V(4991) = V_USER(4631) - V(4620) = V_USER(4632) - V(5016) = V_USER(4633) - V(3397) = V_USER(4634) - V(4938) = V_USER(4635) - V(4433) = V_USER(4636) - V(1449) = V_USER(4637) - V(2947) = V_USER(4638) - V(1714) = V_USER(4639) - V(4851) = V_USER(4640) - V(2948) = V_USER(4641) - V(3921) = V_USER(4642) - V(2949) = V_USER(4643) - V(4983) = V_USER(4644) - V(2348) = V_USER(4645) - V(3399) = V_USER(4646) - V(4131) = V_USER(4647) - V(1450) = V_USER(4648) - V(1451) = V_USER(4649) - V(3400) = V_USER(4650) - V(2953) = V_USER(4651) - V(5239) = V_USER(4652) - V(4133) = V_USER(4653) - V(3283) = V_USER(4654) - V(4437) = V_USER(4655) - V(4923) = V_USER(4656) - V(4891) = V_USER(4657) - V(2954) = V_USER(4658) - V(1452) = V_USER(4659) - V(2349) = V_USER(4660) - V(2955) = V_USER(4661) - V(1923) = V_USER(4662) - V(133) = V_USER(4663) - V(3403) = V_USER(4664) - V(3284) = V_USER(4665) - V(5155) = V_USER(4666) - V(2350) = V_USER(4667) - V(3924) = V_USER(4668) - V(4039) = V_USER(4669) - V(4040) = V_USER(4670) - V(1453) = V_USER(4671) - V(2352) = V_USER(4672) - V(2956) = V_USER(4673) - V(1454) = V_USER(4674) - V(487) = V_USER(4675) - V(5170) = V_USER(4676) - V(5107) = V_USER(4677) - V(2353) = V_USER(4678) - V(2354) = V_USER(4679) - V(4042) = V_USER(4680) - V(4440) = V_USER(4681) - V(1715) = V_USER(4682) - V(134) = V_USER(4683) - V(3285) = V_USER(4684) - V(5098) = V_USER(4685) - V(2958) = V_USER(4686) - V(5233) = V_USER(4687) - V(2959) = V_USER(4688) - V(1455) = V_USER(4689) - V(2355) = V_USER(4690) - V(1456) = V_USER(4691) - V(1457) = V_USER(4692) - V(5200) = V_USER(4693) - V(488) = V_USER(4694) - V(135) = V_USER(4695) - V(1717) = V_USER(4696) - V(3597) = V_USER(4697) - V(136) = V_USER(4698) - V(489) = V_USER(4699) - V(4615) = V_USER(4700) - V(3157) = V_USER(4701) - V(3287) = V_USER(4702) - V(3651) = V_USER(4703) - V(3463) = V_USER(4704) - V(3932) = V_USER(4705) - V(1718) = V_USER(4706) - V(2359) = V_USER(4707) - V(3405) = V_USER(4708) - V(4631) = V_USER(4709) - V(2360) = V_USER(4710) - V(490) = V_USER(4711) - V(5223) = V_USER(4712) - V(2361) = V_USER(4713) - V(4793) = V_USER(4714) - V(4168) = V_USER(4715) - V(137) = V_USER(4716) - V(1458) = V_USER(4717) - V(2362) = V_USER(4718) - V(197) = V_USER(4719) - V(1460) = V_USER(4720) - V(1461) = V_USER(4721) - V(4182) = V_USER(4722) - V(1719) = V_USER(4723) - V(4797) = V_USER(4724) - V(1720) = V_USER(4725) - V(1462) = V_USER(4726) - V(493) = V_USER(4727) - V(2968) = V_USER(4728) - V(1721) = V_USER(4729) - V(3653) = V_USER(4730) - V(1463) = V_USER(4731) - V(1812) = V_USER(4732) - V(2365) = V_USER(4733) - V(2366) = V_USER(4734) - V(2367) = V_USER(4735) - V(791) = V_USER(4736) - V(2368) = V_USER(4737) - V(2369) = V_USER(4738) - V(1629) = V_USER(4739) - V(4902) = V_USER(4740) - V(3814) = V_USER(4741) - V(1464) = V_USER(4742) - V(5026) = V_USER(4743) - V(2370) = V_USER(4744) - V(3291) = V_USER(4745) - V(3937) = V_USER(4746) - V(4031) = V_USER(4747) - V(4603) = V_USER(4748) - V(2371) = V_USER(4749) - V(138) = V_USER(4750) - V(2973) = V_USER(4751) - V(494) = V_USER(4752) - V(5124) = V_USER(4753) - V(4450) = V_USER(4754) - V(198) = V_USER(4755) - V(2373) = V_USER(4756) - V(5113) = V_USER(4757) - V(2976) = V_USER(4758) - V(792) = V_USER(4759) - V(2374) = V_USER(4760) - V(4452) = V_USER(4761) - V(4144) = V_USER(4762) - V(4453) = V_USER(4763) - V(2978) = V_USER(4764) - V(3538) = V_USER(4765) - V(1465) = V_USER(4766) - V(4728) = V_USER(4767) - V(3815) = V_USER(4768) - V(2979) = V_USER(4769) - V(1466) = V_USER(4770) - V(3292) = V_USER(4771) - V(793) = V_USER(4772) - V(3159) = V_USER(4773) - V(3940) = V_USER(4774) - V(2981) = V_USER(4775) - V(8) = V_USER(4776) - V(1467) = V_USER(4777) - V(5001) = V_USER(4778) - V(3160) = V_USER(4779) - V(3407) = V_USER(4780) - V(2377) = V_USER(4781) - V(1468) = V_USER(4782) - V(3654) = V_USER(4783) - V(2378) = V_USER(4784) - V(3748) = V_USER(4785) - V(4574) = V_USER(4786) - V(5205) = V_USER(4787) - V(5038) = V_USER(4788) - V(4359) = V_USER(4789) - V(3293) = V_USER(4790) - V(3465) = V_USER(4791) - V(5180) = V_USER(4792) - V(2379) = V_USER(4793) - V(3163) = V_USER(4794) - V(1469) = V_USER(4795) - V(2984) = V_USER(4796) - V(139) = V_USER(4797) - V(2985) = V_USER(4798) - V(1470) = V_USER(4799) - V(2382) = V_USER(4800) - V(1471) = V_USER(4801) - V(4878) = V_USER(4802) - V(1724) = V_USER(4803) - V(3295) = V_USER(4804) - V(1472) = V_USER(4805) - V(1473) = V_USER(4806) - V(2988) = V_USER(4807) - V(4268) = V_USER(4808) - V(3655) = V_USER(4809) - V(4463) = V_USER(4810) - V(1474) = V_USER(4811) - V(3751) = V_USER(4812) - V(2384) = V_USER(4813) - V(4575) = V_USER(4814) - V(5164) = V_USER(4815) - V(794) = V_USER(4816) - V(795) = V_USER(4817) - V(796) = V_USER(4818) - V(1476) = V_USER(4819) - V(797) = V_USER(4820) - V(496) = V_USER(4821) - V(497) = V_USER(4822) - V(3410) = V_USER(4823) - V(2992) = V_USER(4824) - V(3947) = V_USER(4825) - V(3541) = V_USER(4826) - V(140) = V_USER(4827) - V(3755) = V_USER(4828) - V(1477) = V_USER(4829) - V(1478) = V_USER(4830) - V(2995) = V_USER(4831) - V(2388) = V_USER(4832) - V(2389) = V_USER(4833) - V(1479) = V_USER(4834) - V(1480) = V_USER(4835) - V(798) = V_USER(4836) - V(199) = V_USER(4837) - V(2390) = V_USER(4838) - V(2391) = V_USER(4839) - V(3950) = V_USER(4840) - V(1481) = V_USER(4841) - V(200) = V_USER(4842) - V(1482) = V_USER(4843) - V(4780) = V_USER(4844) - V(1483) = V_USER(4845) - V(2392) = V_USER(4846) - V(800) = V_USER(4847) - V(1484) = V_USER(4848) - V(498) = V_USER(4849) - V(3819) = V_USER(4850) - V(4271) = V_USER(4851) - V(1485) = V_USER(4852) - V(2394) = V_USER(4853) - V(1486) = V_USER(4854) - V(2396) = V_USER(4855) - V(1487) = V_USER(4856) - V(801) = V_USER(4857) - V(4155) = V_USER(4858) - V(1488) = V_USER(4859) - V(4651) = V_USER(4860) - V(3412) = V_USER(4861) - V(1489) = V_USER(4862) - V(1490) = V_USER(4863) - V(5225) = V_USER(4864) - V(4555) = V_USER(4865) - V(2398) = V_USER(4866) - V(2399) = V_USER(4867) - V(4711) = V_USER(4868) - V(499) = V_USER(4869) - V(802) = V_USER(4870) - V(3003) = V_USER(4871) - V(3657) = V_USER(4872) - V(3952) = V_USER(4873) - V(2401) = V_USER(4874) - V(1727) = V_USER(4875) - V(4063) = V_USER(4876) - V(3169) = V_USER(4877) - V(3170) = V_USER(4878) - V(1492) = V_USER(4879) - V(4653) = V_USER(4880) - V(2402) = V_USER(4881) - V(1493) = V_USER(4882) - V(500) = V_USER(4883) - V(3171) = V_USER(4884) - V(3466) = V_USER(4885) - V(803) = V_USER(4886) - V(1494) = V_USER(4887) - V(501) = V_USER(4888) - V(1495) = V_USER(4889) - V(3172) = V_USER(4890) - V(502) = V_USER(4891) - V(804) = V_USER(4892) - V(3) = V_USER(4893) - V(5254) = V_USER(4894) - V(3006) = V_USER(4895) - V(141) = V_USER(4896) - V(142) = V_USER(4897) - V(4275) = V_USER(4898) - V(4157) = V_USER(4899) - V(503) = V_USER(4900) - V(4276) = V_USER(4901) - V(805) = V_USER(4902) - V(4787) = V_USER(4903) - V(4846) = V_USER(4904) - V(3603) = V_USER(4905) - V(3760) = V_USER(4906) - V(3416) = V_USER(4907) - V(2405) = V_USER(4908) - V(504) = V_USER(4909) - V(3008) = V_USER(4910) - V(3009) = V_USER(4911) - V(2406) = V_USER(4912) - V(505) = V_USER(4913) - V(3418) = V_USER(4914) - V(5051) = V_USER(4915) - V(2408) = V_USER(4916) - V(3955) = V_USER(4917) - V(506) = V_USER(4918) - V(5064) = V_USER(4919) - V(4473) = V_USER(4920) - V(1497) = V_USER(4921) - V(2410) = V_USER(4922) - V(4791) = V_USER(4923) - V(143) = V_USER(4924) - V(4399) = V_USER(4925) - V(806) = V_USER(4926) - V(2411) = V_USER(4927) - V(3658) = V_USER(4928) - V(5142) = V_USER(4929) - V(3304) = V_USER(4930) - V(1729) = V_USER(4931) - V(3960) = V_USER(4932) - V(3012) = V_USER(4933) - V(5197) = V_USER(4934) - V(3013) = V_USER(4935) - V(1730) = V_USER(4936) - V(2100) = V_USER(4937) - V(3549) = V_USER(4938) - V(4160) = V_USER(4939) - V(144) = V_USER(4940) - V(2413) = V_USER(4941) - V(507) = V_USER(4942) - V(1499) = V_USER(4943) - V(1500) = V_USER(4944) - V(3767) = V_USER(4945) - V(2414) = V_USER(4946) - V(1731) = V_USER(4947) - V(5204) = V_USER(4948) - V(4287) = V_USER(4949) - V(807) = V_USER(4950) - V(1501) = V_USER(4951) - V(1502) = V_USER(4952) - V(3176) = V_USER(4953) - V(5092) = V_USER(4954) - V(4716) = V_USER(4955) - V(3016) = V_USER(4956) - V(201) = V_USER(4957) - V(5183) = V_USER(4958) - V(2304) = V_USER(4959) - V(508) = V_USER(4960) - V(3769) = V_USER(4961) - V(2415) = V_USER(4962) - V(1503) = V_USER(4963) - V(2416) = V_USER(4964) - V(4482) = V_USER(4965) - V(4483) = V_USER(4966) - V(2417) = V_USER(4967) - V(4289) = V_USER(4968) - V(4484) = V_USER(4969) - V(509) = V_USER(4970) - V(3963) = V_USER(4971) - V(3306) = V_USER(4972) - V(2418) = V_USER(4973) - V(3307) = V_USER(4974) - V(4487) = V_USER(4975) - V(1504) = V_USER(4976) - V(3308) = V_USER(4977) - V(4569) = V_USER(4978) - V(1732) = V_USER(4979) - V(3420) = V_USER(4980) - V(4164) = V_USER(4981) - V(3421) = V_USER(4982) - V(4585) = V_USER(4983) - V(5056) = V_USER(4984) - V(4804) = V_USER(4985) - V(809) = V_USER(4986) - V(1505) = V_USER(4987) - V(5080) = V_USER(4988) - V(5147) = V_USER(4989) - V(810) = V_USER(4990) - V(1506) = V_USER(4991) - V(1507) = V_USER(4992) - V(1733) = V_USER(4993) - V(5078) = V_USER(4994) - V(3659) = V_USER(4995) - V(3834) = V_USER(4996) - V(3554) = V_USER(4997) - V(511) = V_USER(4998) - V(4492) = V_USER(4999) - V(1508) = V_USER(5000) - V(202) = V_USER(5001) - V(3020) = V_USER(5002) - V(1509) = V_USER(5003) - V(5114) = V_USER(5004) - V(5181) = V_USER(5005) - V(3422) = V_USER(5006) - V(3021) = V_USER(5007) - V(1847) = V_USER(5008) - V(3022) = V_USER(5009) - V(3023) = V_USER(5010) - V(5143) = V_USER(5011) - V(512) = V_USER(5012) - V(2422) = V_USER(5013) - V(2423) = V_USER(5014) - V(3310) = V_USER(5015) - V(3024) = V_USER(5016) - V(3025) = V_USER(5017) - V(3822) = V_USER(5018) - V(3311) = V_USER(5019) - V(4943) = V_USER(5020) - V(3312) = V_USER(5021) - V(145) = V_USER(5022) - V(3026) = V_USER(5023) - V(3606) = V_USER(5024) - V(3027) = V_USER(5025) - V(4907) = V_USER(5026) - V(4166) = V_USER(5027) - V(4918) = V_USER(5028) - V(4070) = V_USER(5029) - V(3607) = V_USER(5030) - V(513) = V_USER(5031) - V(4971) = V_USER(5032) - V(1511) = V_USER(5033) - V(2424) = V_USER(5034) - V(2425) = V_USER(5035) - V(514) = V_USER(5036) - V(146) = V_USER(5037) - V(4822) = V_USER(5038) - V(3470) = V_USER(5039) - V(147) = V_USER(5040) - V(4946) = V_USER(5041) - V(2427) = V_USER(5042) - V(811) = V_USER(5043) - V(1513) = V_USER(5044) - V(2428) = V_USER(5045) - V(4796) = V_USER(5046) - V(4727) = V_USER(5047) - V(2429) = V_USER(5048) - V(5131) = V_USER(5049) - V(3028) = V_USER(5050) - V(3029) = V_USER(5051) - V(3030) = V_USER(5052) - V(4753) = V_USER(5053) - V(2430) = V_USER(5054) - V(3032) = V_USER(5055) - V(515) = V_USER(5056) - V(4385) = V_USER(5057) - V(3313) = V_USER(5058) - V(4920) = V_USER(5059) - V(812) = V_USER(5060) - V(3424) = V_USER(5061) - V(2432) = V_USER(5062) - V(1514) = V_USER(5063) - V(4489) = V_USER(5064) - V(1515) = V_USER(5065) - V(1735) = V_USER(5066) - V(3776) = V_USER(5067) - V(2433) = V_USER(5068) - V(3970) = V_USER(5069) - V(4672) = V_USER(5070) - V(1736) = V_USER(5071) - V(1516) = V_USER(5072) - V(3037) = V_USER(5073) - V(3038) = V_USER(5074) - V(3558) = V_USER(5075) - V(2434) = V_USER(5076) - V(4170) = V_USER(5077) - V(2435) = V_USER(5078) - V(3777) = V_USER(5079) - V(4300) = V_USER(5080) - V(3040) = V_USER(5081) - V(203) = V_USER(5082) - V(4677) = V_USER(5083) - V(1737) = V_USER(5084) - V(148) = V_USER(5085) - V(3041) = V_USER(5086) - V(3183) = V_USER(5087) - V(3184) = V_USER(5088) - V(3185) = V_USER(5089) - V(2437) = V_USER(5090) - V(516) = V_USER(5091) - V(4730) = V_USER(5092) - V(1517) = V_USER(5093) - V(4081) = V_USER(5094) - V(5003) = V_USER(5095) - V(4755) = V_USER(5096) - V(3186) = V_USER(5097) - V(3426) = V_USER(5098) - V(3043) = V_USER(5099) - V(5052) = V_USER(5100) - V(1739) = V_USER(5101) - V(517) = V_USER(5102) - V(3045) = V_USER(5103) - V(814) = V_USER(5104) - V(2440) = V_USER(5105) - V(2441) = V_USER(5106) - V(815) = V_USER(5107) - V(204) = V_USER(5108) - V(4076) = V_USER(5109) - V(3626) = V_USER(5110) - V(3315) = V_USER(5111) - V(518) = V_USER(5112) - V(3316) = V_USER(5113) - V(4756) = V_USER(5114) - V(519) = V_USER(5115) - V(3049) = V_USER(5116) - V(3050) = V_USER(5117) - V(3317) = V_USER(5118) - V(4077) = V_USER(5119) - V(3608) = V_USER(5120) - V(520) = V_USER(5121) - V(817) = V_USER(5122) - V(4301) = V_USER(5123) - V(3052) = V_USER(5124) - V(818) = V_USER(5125) - V(1521) = V_USER(5126) - V(1522) = V_USER(5127) - V(2443) = V_USER(5128) - V(2491) = V_USER(5129) - V(4758) = V_USER(5130) - V(521) = V_USER(5131) - V(1741) = V_USER(5132) - V(1523) = V_USER(5133) - V(5242) = V_USER(5134) - V(5130) = V_USER(5135) - V(3054) = V_USER(5136) - V(2445) = V_USER(5137) - V(1524) = V_USER(5138) - V(3609) = V_USER(5139) - V(1742) = V_USER(5140) - V(522) = V_USER(5141) - V(3980) = V_USER(5142) - V(2446) = V_USER(5143) - V(3055) = V_USER(5144) - V(1525) = V_USER(5145) - V(2448) = V_USER(5146) - V(3517) = V_USER(5147) - V(5199) = V_USER(5148) - V(2449) = V_USER(5149) - V(4476) = V_USER(5150) - V(523) = V_USER(5151) - V(1526) = V_USER(5152) - V(1527) = V_USER(5153) - V(1528) = V_USER(5154) - V(2450) = V_USER(5155) - V(1529) = V_USER(5156) - V(2451) = V_USER(5157) - V(2452) = V_USER(5158) - V(524) = V_USER(5159) - V(2454) = V_USER(5160) - V(3057) = V_USER(5161) - V(1743) = V_USER(5162) - V(1530) = V_USER(5163) - V(4860) = V_USER(5164) - V(525) = V_USER(5165) - V(2455) = V_USER(5166) - V(1532) = V_USER(5167) - V(5047) = V_USER(5168) - V(4591) = V_USER(5169) - V(3473) = V_USER(5170) - V(3058) = V_USER(5171) - V(3059) = V_USER(5172) - V(4975) = V_USER(5173) - V(2457) = V_USER(5174) - V(5196) = V_USER(5175) - V(205) = V_USER(5176) - V(4518) = V_USER(5177) - V(3060) = V_USER(5178) - V(3430) = V_USER(5179) - V(4883) = V_USER(5180) - V(1533) = V_USER(5181) - V(3323) = V_USER(5182) - V(526) = V_USER(5183) - V(3431) = V_USER(5184) - V(2459) = V_USER(5185) - V(1534) = V_USER(5186) - V(3324) = V_USER(5187) - V(1535) = V_USER(5188) - V(1536) = V_USER(5189) - V(4593) = V_USER(5190) - V(2460) = V_USER(5191) - V(3063) = V_USER(5192) - V(5179) = V_USER(5193) - V(1537) = V_USER(5194) - V(3783) = V_USER(5195) - V(3064) = V_USER(5196) - V(3785) = V_USER(5197) - V(3325) = V_USER(5198) - V(3065) = V_USER(5199) - V(3611) = V_USER(5200) - V(2461) = V_USER(5201) - V(3066) = V_USER(5202) - V(4180) = V_USER(5203) - V(4523) = V_USER(5204) - V(4013) = V_USER(5205) - V(2462) = V_USER(5206) - V(2463) = V_USER(5207) - V(5014) = V_USER(5208) - V(5106) = V_USER(5209) - V(4736) = V_USER(5210) - V(3191) = V_USER(5211) - V(3612) = V_USER(5212) - V(1538) = V_USER(5213) - V(1744) = V_USER(5214) - V(2464) = V_USER(5215) - V(3613) = V_USER(5216) - V(5226) = V_USER(5217) - V(1539) = V_USER(5218) - V(1745) = V_USER(5219) - V(3991) = V_USER(5220) - V(1540) = V_USER(5221) - V(3068) = V_USER(5222) - V(1942) = V_USER(5223) - V(3326) = V_USER(5224) - V(1541) = V_USER(5225) - V(3071) = V_USER(5226) - V(2466) = V_USER(5227) - V(3327) = V_USER(5228) - V(4836) = V_USER(5229) - V(2467) = V_USER(5230) - V(1542) = V_USER(5231) - V(3073) = V_USER(5232) - V(3074) = V_USER(5233) - V(819) = V_USER(5234) - V(2468) = V_USER(5235) - V(4188) = V_USER(5236) - V(206) = V_USER(5237) - V(3475) = V_USER(5238) - V(1544) = V_USER(5239) - V(3076) = V_USER(5240) - V(2469) = V_USER(5241) - V(2470) = V_USER(5242) - V(1746) = V_USER(5243) - V(4189) = V_USER(5244) - V(1591) = V_USER(5245) - V(1545) = V_USER(5246) - V(3077) = V_USER(5247) - V(4317) = V_USER(5248) - V(4933) = V_USER(5249) - V(1546) = V_USER(5250) - V(4319) = V_USER(5251) - V(3078) = V_USER(5252) - V(1547) = V_USER(5253) - V(3079) = V_USER(5254) - V(821) = V_USER(5255) - V(3616) = V_USER(5256) - V(4387) = V_USER(5257) - -END SUBROUTINE Shuffle_user2kpp - -! End of Shuffle_user2kpp function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Shuffle_kpp2user - function to restore concentrations from KPP to USER -! Arguments : -! V - Concentrations of variable species (local) -! V_USER - Concentration of variable species in USER's order -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Shuffle_kpp2user ( V, V_USER ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! V_USER - Concentration of variable species in USER's order - REAL(kind=dp) :: V_USER(NVAR) - - V_USER(1) = V(4088) - V_USER(2) = V(3081) - V_USER(3) = V(3468) - V_USER(4) = V(1687) - V_USER(5) = V(311) - V_USER(6) = V(1130) - V_USER(7) = V(441) - V_USER(8) = V(3941) - V_USER(9) = V(1954) - V_USER(10) = V(3516) - V_USER(11) = V(3270) - V_USER(12) = V(4886) - V_USER(13) = V(4845) - V_USER(14) = V(4682) - V_USER(15) = V(1551) - V_USER(16) = V(4355) - V_USER(17) = V(4363) - V_USER(18) = V(760) - V_USER(19) = V(2255) - V_USER(20) = V(3506) - V_USER(21) = V(4265) - V_USER(22) = V(2620) - V_USER(23) = V(3083) - V_USER(24) = V(2631) - V_USER(25) = V(537) - V_USER(26) = V(2261) - V_USER(27) = V(2364) - V_USER(28) = V(1843) - V_USER(29) = V(249) - V_USER(30) = V(551) - V_USER(31) = V(3993) - V_USER(32) = V(1760) - V_USER(33) = V(843) - V_USER(34) = V(4906) - V_USER(35) = V(1849) - V_USER(36) = V(3632) - V_USER(37) = V(4988) - V_USER(38) = V(2722) - V_USER(39) = V(4147) - V_USER(40) = V(580) - V_USER(41) = V(2483) - V_USER(42) = V(270) - V_USER(43) = V(4018) - V_USER(44) = V(913) - V_USER(45) = V(2983) - V_USER(46) = V(2403) - V_USER(47) = V(3188) - V_USER(48) = V(2070) - V_USER(49) = V(936) - V_USER(50) = V(941) - V_USER(51) = V(4163) - V_USER(52) = V(4207) - V_USER(53) = V(3854) - V_USER(54) = V(2998) - V_USER(55) = V(4936) - V_USER(56) = V(981) - V_USER(57) = V(4941) - V_USER(58) = V(3454) - V_USER(59) = V(615) - V_USER(60) = V(4810) - V_USER(61) = V(617) - V_USER(62) = V(3599) - V_USER(63) = V(4296) - V_USER(64) = V(3425) - V_USER(65) = V(1824) - V_USER(66) = V(4021) - V_USER(67) = V(328) - V_USER(68) = V(3798) - V_USER(69) = V(2823) - V_USER(70) = V(3512) - V_USER(71) = V(337) - V_USER(72) = V(339) - V_USER(73) = V(2964) - V_USER(74) = V(2972) - V_USER(75) = V(3419) - V_USER(76) = V(1118) - V_USER(77) = V(2533) - V_USER(78) = V(4172) - V_USER(79) = V(12) - V_USER(80) = V(1135) - V_USER(81) = V(665) - V_USER(82) = V(1614) - V_USER(83) = V(3840) - V_USER(84) = V(4761) - V_USER(85) = V(2587) - V_USER(86) = V(3404) - V_USER(87) = V(4048) - V_USER(88) = V(381) - V_USER(89) = V(2600) - V_USER(90) = V(2018) - V_USER(91) = V(2030) - V_USER(92) = V(387) - V_USER(93) = V(1209) - V_USER(94) = V(3417) - V_USER(95) = V(2054) - V_USER(96) = V(4724) - V_USER(97) = V(2058) - V_USER(98) = V(1239) - V_USER(99) = V(702) - V_USER(100) = V(3567) - V_USER(101) = V(715) - V_USER(102) = V(3604) - V_USER(103) = V(3108) - V_USER(104) = V(2141) - V_USER(105) = V(2144) - V_USER(106) = V(3213) - V_USER(107) = V(1288) - V_USER(108) = V(5253) - V_USER(109) = V(5256) - V_USER(110) = V(2159) - V_USER(111) = V(2746) - V_USER(112) = V(1301) - V_USER(113) = V(1670) - V_USER(114) = V(1314) - V_USER(115) = V(4411) - V_USER(116) = V(438) - V_USER(117) = V(2481) - V_USER(118) = V(1684) - V_USER(119) = V(4779) - V_USER(120) = V(3243) - V_USER(121) = V(2831) - V_USER(122) = V(1356) - V_USER(123) = V(1358) - V_USER(124) = V(759) - V_USER(125) = V(761) - V_USER(126) = V(3804) - V_USER(127) = V(1372) - V_USER(128) = V(465) - V_USER(129) = V(3268) - V_USER(130) = V(3810) - V_USER(131) = V(3913) - V_USER(132) = V(1910) - V_USER(133) = V(3923) - V_USER(134) = V(5192) - V_USER(135) = V(1716) - V_USER(136) = V(3286) - V_USER(137) = V(5058) - V_USER(138) = V(2487) - V_USER(139) = V(495) - V_USER(140) = V(2994) - V_USER(141) = V(3007) - V_USER(142) = V(3547) - V_USER(143) = V(1498) - V_USER(144) = V(4374) - V_USER(145) = V(1510) - V_USER(146) = V(4381) - V_USER(147) = V(2426) - V_USER(148) = V(813) - V_USER(149) = V(214) - V_USER(150) = V(881) - V_USER(151) = V(4778) - V_USER(152) = V(2770) - V_USER(153) = V(1695) - V_USER(154) = V(3455) - V_USER(155) = V(1703) - V_USER(156) = V(2393) - V_USER(157) = V(4813) - V_USER(158) = V(283) - V_USER(159) = V(605) - V_USER(160) = V(4169) - V_USER(161) = V(3978) - V_USER(162) = V(4477) - V_USER(163) = V(4909) - V_USER(164) = V(3218) - V_USER(165) = V(1076) - V_USER(166) = V(3708) - V_USER(167) = V(4071) - V_USER(168) = V(1916) - V_USER(169) = V(1102) - V_USER(170) = V(353) - V_USER(171) = V(2512) - V_USER(172) = V(5088) - V_USER(173) = V(4127) - V_USER(174) = V(3532) - V_USER(175) = V(678) - V_USER(176) = V(3428) - V_USER(177) = V(391) - V_USER(178) = V(2476) - V_USER(179) = V(2646) - V_USER(180) = V(1241) - V_USER(181) = V(13) - V_USER(182) = V(1644) - V_USER(183) = V(1267) - V_USER(184) = V(714) - V_USER(185) = V(1660) - V_USER(186) = V(3742) - V_USER(187) = V(4926) - V_USER(188) = V(4) - V_USER(189) = V(2238) - V_USER(190) = V(14) - V_USER(191) = V(2835) - V_USER(192) = V(2270) - V_USER(193) = V(3882) - V_USER(194) = V(4208) - V_USER(195) = V(4748) - V_USER(196) = V(4563) - V_USER(197) = V(492) - V_USER(198) = V(1722) - V_USER(199) = V(799) - V_USER(200) = V(3299) - V_USER(201) = V(808) - V_USER(202) = V(4722) - V_USER(203) = V(3825) - V_USER(204) = V(816) - V_USER(205) = V(5084) - V_USER(206) = V(820) - V_USER(207) = V(527) - V_USER(208) = V(4597) - V_USER(209) = V(1775) - V_USER(210) = V(3234) - V_USER(211) = V(3794) - V_USER(212) = V(642) - V_USER(213) = V(1192) - V_USER(214) = V(2640) - V_USER(215) = V(2943) - V_USER(216) = V(4614) - V_USER(217) = V(3212) - V_USER(218) = V(733) - V_USER(219) = V(1332) - V_USER(220) = V(5188) - V_USER(221) = V(789) - V_USER(222) = V(2974) - V_USER(223) = V(3042) - V_USER(224) = V(3871) - V_USER(225) = V(2259) - V_USER(226) = V(4792) - V_USER(227) = V(4964) - V_USER(228) = V(405) - V_USER(229) = V(1554) - V_USER(230) = V(207) - V_USER(231) = V(3289) - V_USER(232) = V(2938) - V_USER(233) = V(3406) - V_USER(234) = V(5168) - V_USER(235) = V(2007) - V_USER(236) = V(3559) - V_USER(237) = V(3206) - V_USER(238) = V(1252) - V_USER(239) = V(1662) - V_USER(240) = V(3224) - V_USER(241) = V(4868) - V_USER(242) = V(1442) - V_USER(243) = V(3939) - V_USER(244) = V(4151) - V_USER(245) = V(3298) - V_USER(246) = V(2679) - V_USER(247) = V(3335) - V_USER(248) = V(2198) - V_USER(249) = V(4384) - V_USER(250) = V(1603) - V_USER(251) = V(2906) - V_USER(252) = V(554) - V_USER(253) = V(3709) - V_USER(254) = V(4732) - V_USER(255) = V(1757) - V_USER(256) = V(208) - V_USER(257) = V(858) - V_USER(258) = V(859) - V_USER(259) = V(1911) - V_USER(260) = V(2547) - V_USER(261) = V(5013) - V_USER(262) = V(4247) - V_USER(263) = V(3740) - V_USER(264) = V(569) - V_USER(265) = V(573) - V_USER(266) = V(887) - V_USER(267) = V(2712) - V_USER(268) = V(898) - V_USER(269) = V(3873) - V_USER(270) = V(3378) - V_USER(271) = V(3642) - V_USER(272) = V(4007) - V_USER(273) = V(3384) - V_USER(274) = V(3140) - V_USER(275) = V(906) - V_USER(276) = V(2920) - V_USER(277) = V(4128) - V_USER(278) = V(5211) - V_USER(279) = V(3314) - V_USER(280) = V(3044) - V_USER(281) = V(929) - V_USER(282) = V(3062) - V_USER(283) = V(209) - V_USER(284) = V(1802) - V_USER(285) = V(1550) - V_USER(286) = V(940) - V_USER(287) = V(5140) - V_USER(288) = V(210) - V_USER(289) = V(3535) - V_USER(290) = V(2110) - V_USER(291) = V(599) - V_USER(292) = V(4205) - V_USER(293) = V(2284) - V_USER(294) = V(3964) - V_USER(295) = V(5198) - V_USER(296) = V(3563) - V_USER(297) = V(1562) - V_USER(298) = V(1755) - V_USER(299) = V(978) - V_USER(300) = V(4805) - V_USER(301) = V(4838) - V_USER(302) = V(2732) - V_USER(303) = V(4204) - V_USER(304) = V(4580) - V_USER(305) = V(999) - V_USER(306) = V(3835) - V_USER(307) = V(4028) - V_USER(308) = V(1011) - V_USER(309) = V(2565) - V_USER(310) = V(1030) - V_USER(311) = V(4695) - V_USER(312) = V(3166) - V_USER(313) = V(1810) - V_USER(314) = V(4766) - V_USER(315) = V(2642) - V_USER(316) = V(3340) - V_USER(317) = V(4243) - V_USER(318) = V(629) - V_USER(319) = V(2685) - V_USER(320) = V(3677) - V_USER(321) = V(4817) - V_USER(322) = V(4606) - V_USER(323) = V(4062) - V_USER(324) = V(2674) - V_USER(325) = V(2729) - V_USER(326) = V(1814) - V_USER(327) = V(4220) - V_USER(328) = V(3363) - V_USER(329) = V(211) - V_USER(330) = V(3373) - V_USER(331) = V(1858) - V_USER(332) = V(5000) - V_USER(333) = V(1064) - V_USER(334) = V(4708) - V_USER(335) = V(641) - V_USER(336) = V(1066) - V_USER(337) = V(212) - V_USER(338) = V(3392) - V_USER(339) = V(1071) - V_USER(340) = V(4424) - V_USER(341) = V(3652) - V_USER(342) = V(2977) - V_USER(343) = V(4945) - V_USER(344) = V(4152) - V_USER(345) = V(3017) - V_USER(346) = V(1095) - V_USER(347) = V(1912) - V_USER(348) = V(2496) - V_USER(349) = V(651) - V_USER(350) = V(1789) - V_USER(351) = V(1924) - V_USER(352) = V(4685) - V_USER(353) = V(4400) - V_USER(354) = V(3765) - V_USER(355) = V(4912) - V_USER(356) = V(15) - V_USER(357) = V(1948) - V_USER(358) = V(3884) - V_USER(359) = V(1125) - V_USER(360) = V(4072) - V_USER(361) = V(1126) - V_USER(362) = V(1129) - V_USER(363) = V(1131) - V_USER(364) = V(3566) - V_USER(365) = V(3984) - V_USER(366) = V(1142) - V_USER(367) = V(1143) - V_USER(368) = V(3856) - V_USER(369) = V(2559) - V_USER(370) = V(2914) - V_USER(371) = V(1150) - V_USER(372) = V(4250) - V_USER(373) = V(2566) - V_USER(374) = V(4436) - V_USER(375) = V(3893) - V_USER(376) = V(2576) - V_USER(377) = V(1621) - V_USER(378) = V(1623) - V_USER(379) = V(1179) - V_USER(380) = V(4454) - V_USER(381) = V(4457) - V_USER(382) = V(1185) - V_USER(383) = V(1627) - V_USER(384) = V(2020) - V_USER(385) = V(682) - V_USER(386) = V(213) - V_USER(387) = V(3082) - V_USER(388) = V(1205) - V_USER(389) = V(1207) - V_USER(390) = V(1211) - V_USER(391) = V(4855) - V_USER(392) = V(4550) - V_USER(393) = V(149) - V_USER(394) = V(2057) - V_USER(395) = V(697) - V_USER(396) = V(4592) - V_USER(397) = V(3936) - V_USER(398) = V(594) - V_USER(399) = V(4750) - V_USER(400) = V(4391) - V_USER(401) = V(16) - V_USER(402) = V(2086) - V_USER(403) = V(2092) - V_USER(404) = V(973) - V_USER(405) = V(215) - V_USER(406) = V(5009) - V_USER(407) = V(4704) - V_USER(408) = V(2104) - V_USER(409) = V(2108) - V_USER(410) = V(4370) - V_USER(411) = V(3668) - V_USER(412) = V(4403) - V_USER(413) = V(216) - V_USER(414) = V(1266) - V_USER(415) = V(4741) - V_USER(416) = V(217) - V_USER(417) = V(17) - V_USER(418) = V(3482) - V_USER(419) = V(3679) - V_USER(420) = V(2151) - V_USER(421) = V(4005) - V_USER(422) = V(2157) - V_USER(423) = V(2163) - V_USER(424) = V(2166) - V_USER(425) = V(2909) - V_USER(426) = V(1302) - V_USER(427) = V(218) - V_USER(428) = V(4461) - V_USER(429) = V(2181) - V_USER(430) = V(3355) - V_USER(431) = V(1674) - V_USER(432) = V(1309) - V_USER(433) = V(3359) - V_USER(434) = V(4094) - V_USER(435) = V(1318) - V_USER(436) = V(3837) - V_USER(437) = V(3119) - V_USER(438) = V(3684) - V_USER(439) = V(4618) - V_USER(440) = V(3498) - V_USER(441) = V(3829) - V_USER(442) = V(3793) - V_USER(443) = V(4107) - V_USER(444) = V(746) - V_USER(445) = V(2800) - V_USER(446) = V(219) - V_USER(447) = V(2219) - V_USER(448) = V(1334) - V_USER(449) = V(1690) - V_USER(450) = V(2829) - V_USER(451) = V(4714) - V_USER(452) = V(2850) - V_USER(453) = V(2854) - V_USER(454) = V(2265) - V_USER(455) = V(4321) - V_USER(456) = V(3136) - V_USER(457) = V(18) - V_USER(458) = V(2272) - V_USER(459) = V(2863) - V_USER(460) = V(1376) - V_USER(461) = V(2868) - V_USER(462) = V(4419) - V_USER(463) = V(2869) - V_USER(464) = V(220) - V_USER(465) = V(2879) - V_USER(466) = V(4015) - V_USER(467) = V(4334) - V_USER(468) = V(3265) - V_USER(469) = V(4987) - V_USER(470) = V(1406) - V_USER(471) = V(1409) - V_USER(472) = V(3720) - V_USER(473) = V(4020) - V_USER(474) = V(2308) - V_USER(475) = V(3588) - V_USER(476) = V(778) - V_USER(477) = V(2316) - V_USER(478) = V(2921) - V_USER(479) = V(2922) - V_USER(480) = V(3592) - V_USER(481) = V(3277) - V_USER(482) = V(2073) - V_USER(483) = V(783) - V_USER(484) = V(4609) - V_USER(485) = V(4683) - V_USER(486) = V(4567) - V_USER(487) = V(4041) - V_USER(488) = V(4628) - V_USER(489) = V(3929) - V_USER(490) = V(4044) - V_USER(491) = V(2211) - V_USER(492) = V(221) - V_USER(493) = V(790) - V_USER(494) = V(222) - V_USER(495) = V(2381) - V_USER(496) = V(3753) - V_USER(497) = V(4362) - V_USER(498) = V(3440) - V_USER(499) = V(2400) - V_USER(500) = V(3544) - V_USER(501) = V(3758) - V_USER(502) = V(3004) - V_USER(503) = V(2334) - V_USER(504) = V(3761) - V_USER(505) = V(2407) - V_USER(506) = V(1496) - V_USER(507) = V(3014) - V_USER(508) = V(3305) - V_USER(509) = V(4486) - V_USER(510) = V(3649) - V_USER(511) = V(2421) - V_USER(512) = V(5132) - V_USER(513) = V(4979) - V_USER(514) = V(4499) - V_USER(515) = V(1734) - V_USER(516) = V(223) - V_USER(517) = V(1518) - V_USER(518) = V(1740) - V_USER(519) = V(4388) - V_USER(520) = V(4174) - V_USER(521) = V(3318) - V_USER(522) = V(3187) - V_USER(523) = V(3779) - V_USER(524) = V(2453) - V_USER(525) = V(1531) - V_USER(526) = V(2458) - V_USER(527) = V(2170) - V_USER(528) = V(3536) - V_USER(529) = V(4648) - V_USER(530) = V(1796) - V_USER(531) = V(1028) - V_USER(532) = V(224) - V_USER(533) = V(2564) - V_USER(534) = V(1191) - V_USER(535) = V(3263) - V_USER(536) = V(1249) - V_USER(537) = V(1316) - V_USER(538) = V(2216) - V_USER(539) = V(3998) - V_USER(540) = V(225) - V_USER(541) = V(2324) - V_USER(542) = V(2327) - V_USER(543) = V(3158) - V_USER(544) = V(2431) - V_USER(545) = V(3594) - V_USER(546) = V(226) - V_USER(547) = V(4621) - V_USER(548) = V(3519) - V_USER(549) = V(3724) - V_USER(550) = V(829) - V_USER(551) = V(3259) - V_USER(552) = V(5171) - V_USER(553) = V(5091) - V_USER(554) = V(2490) - V_USER(555) = V(3429) - V_USER(556) = V(835) - V_USER(557) = V(3523) - V_USER(558) = V(841) - V_USER(559) = V(2899) - V_USER(560) = V(3354) - V_USER(561) = V(863) - V_USER(562) = V(1657) - V_USER(563) = V(4841) - V_USER(564) = V(4011) - V_USER(565) = V(1973) - V_USER(566) = V(4607) - V_USER(567) = V(2002) - V_USER(568) = V(875) - V_USER(569) = V(2021) - V_USER(570) = V(4423) - V_USER(571) = V(2632) - V_USER(572) = V(2060) - V_USER(573) = V(2799) - V_USER(574) = V(880) - V_USER(575) = V(150) - V_USER(576) = V(882) - V_USER(577) = V(1646) - V_USER(578) = V(886) - V_USER(579) = V(4995) - V_USER(580) = V(4378) - V_USER(581) = V(19) - V_USER(582) = V(2837) - V_USER(583) = V(227) - V_USER(584) = V(3266) - V_USER(585) = V(908) - V_USER(586) = V(2307) - V_USER(587) = V(2325) - V_USER(588) = V(2344) - V_USER(589) = V(228) - V_USER(590) = V(2969) - V_USER(591) = V(2971) - V_USER(592) = V(2385) - V_USER(593) = V(1728) - V_USER(594) = V(4586) - V_USER(595) = V(2436) - V_USER(596) = V(1887) - V_USER(597) = V(2518) - V_USER(598) = V(229) - V_USER(599) = V(2673) - V_USER(600) = V(230) - V_USER(601) = V(2195) - V_USER(602) = V(954) - V_USER(603) = V(20) - V_USER(604) = V(4969) - V_USER(605) = V(2957) - V_USER(606) = V(528) - V_USER(607) = V(4045) - V_USER(608) = V(231) - V_USER(609) = V(4183) - V_USER(610) = V(970) - V_USER(611) = V(1561) - V_USER(612) = V(4304) - V_USER(613) = V(992) - V_USER(614) = V(529) - V_USER(615) = V(3713) - V_USER(616) = V(232) - V_USER(617) = V(3152) - V_USER(618) = V(1005) - V_USER(619) = V(1791) - V_USER(620) = V(530) - V_USER(621) = V(531) - V_USER(622) = V(1029) - V_USER(623) = V(3703) - V_USER(624) = V(1806) - V_USER(625) = V(1576) - V_USER(626) = V(233) - V_USER(627) = V(1813) - V_USER(628) = V(1579) - V_USER(629) = V(1829) - V_USER(630) = V(5050) - V_USER(631) = V(1838) - V_USER(632) = V(323) - V_USER(633) = V(3669) - V_USER(634) = V(4493) - V_USER(635) = V(2798) - V_USER(636) = V(2804) - V_USER(637) = V(2825) - V_USER(638) = V(532) - V_USER(639) = V(1866) - V_USER(640) = V(1867) - V_USER(641) = V(4928) - V_USER(642) = V(4815) - V_USER(643) = V(1879) - V_USER(644) = V(2941) - V_USER(645) = V(4253) - V_USER(646) = V(5244) - V_USER(647) = V(1904) - V_USER(648) = V(1094) - V_USER(649) = V(21) - V_USER(650) = V(1914) - V_USER(651) = V(5161) - V_USER(652) = V(3386) - V_USER(653) = V(2116) - V_USER(654) = V(1101) - V_USER(655) = V(1107) - V_USER(656) = V(3151) - V_USER(657) = V(4256) - V_USER(658) = V(2517) - V_USER(659) = V(1116) - V_USER(660) = V(2534) - V_USER(661) = V(5096) - V_USER(662) = V(3731) - V_USER(663) = V(1136) - V_USER(664) = V(5109) - V_USER(665) = V(234) - V_USER(666) = V(3365) - V_USER(667) = V(5241) - V_USER(668) = V(3448) - V_USER(669) = V(4719) - V_USER(670) = V(2562) - V_USER(671) = V(533) - V_USER(672) = V(3382) - V_USER(673) = V(1162) - V_USER(674) = V(1170) - V_USER(675) = V(3394) - V_USER(676) = V(1174) - V_USER(677) = V(235) - V_USER(678) = V(4729) - V_USER(679) = V(3413) - V_USER(680) = V(534) - V_USER(681) = V(4958) - V_USER(682) = V(2608) - V_USER(683) = V(236) - V_USER(684) = V(237) - V_USER(685) = V(22) - V_USER(686) = V(23) - V_USER(687) = V(535) - V_USER(688) = V(4043) - V_USER(689) = V(4881) - V_USER(690) = V(4361) - V_USER(691) = V(24) - V_USER(692) = V(4377) - V_USER(693) = V(2639) - V_USER(694) = V(3574) - V_USER(695) = V(2643) - V_USER(696) = V(1233) - V_USER(697) = V(2648) - V_USER(698) = V(1237) - V_USER(699) = V(1242) - V_USER(700) = V(4297) - V_USER(701) = V(4261) - V_USER(702) = V(3095) - V_USER(703) = V(536) - V_USER(704) = V(2102) - V_USER(705) = V(3329) - V_USER(706) = V(238) - V_USER(707) = V(1253) - V_USER(708) = V(4061) - V_USER(709) = V(3990) - V_USER(710) = V(5118) - V_USER(711) = V(1264) - V_USER(712) = V(4316) - V_USER(713) = V(2700) - V_USER(714) = V(2130) - V_USER(715) = V(3480) - V_USER(716) = V(1274) - V_USER(717) = V(3344) - V_USER(718) = V(239) - V_USER(719) = V(3674) - V_USER(720) = V(4146) - V_USER(721) = V(3979) - V_USER(722) = V(4079) - V_USER(723) = V(4867) - V_USER(724) = V(1290) - V_USER(725) = V(4408) - V_USER(726) = V(3222) - V_USER(727) = V(4916) - V_USER(728) = V(4019) - V_USER(729) = V(2165) - V_USER(730) = V(240) - V_USER(731) = V(2749) - V_USER(732) = V(4500) - V_USER(733) = V(4990) - V_USER(734) = V(4849) - V_USER(735) = V(5218) - V_USER(736) = V(3756) - V_USER(737) = V(3228) - V_USER(738) = V(2765) - V_USER(739) = V(1308) - V_USER(740) = V(25) - V_USER(741) = V(2205) - V_USER(742) = V(2207) - V_USER(743) = V(1680) - V_USER(744) = V(2209) - V_USER(745) = V(5033) - V_USER(746) = V(1328) - V_USER(747) = V(538) - V_USER(748) = V(539) - V_USER(749) = V(4439) - V_USER(750) = V(3863) - V_USER(751) = V(2827) - V_USER(752) = V(5027) - V_USER(753) = V(3249) - V_USER(754) = V(540) - V_USER(755) = V(26) - V_USER(756) = V(3251) - V_USER(757) = V(2262) - V_USER(758) = V(2264) - V_USER(759) = V(2851) - V_USER(760) = V(2271) - V_USER(761) = V(1368) - V_USER(762) = V(1370) - V_USER(763) = V(4352) - V_USER(764) = V(5089) - V_USER(765) = V(2877) - V_USER(766) = V(1390) - V_USER(767) = V(4331) - V_USER(768) = V(443) - V_USER(769) = V(1396) - V_USER(770) = V(3459) - V_USER(771) = V(2294) - V_USER(772) = V(2896) - V_USER(773) = V(4662) - V_USER(774) = V(4924) - V_USER(775) = V(3387) - V_USER(776) = V(1414) - V_USER(777) = V(1416) - V_USER(778) = V(4568) - V_USER(779) = V(4807) - V_USER(780) = V(541) - V_USER(781) = V(4733) - V_USER(782) = V(2326) - V_USER(783) = V(542) - V_USER(784) = V(3912) - V_USER(785) = V(241) - V_USER(786) = V(2937) - V_USER(787) = V(242) - V_USER(788) = V(1443) - V_USER(789) = V(1459) - V_USER(790) = V(27) - V_USER(791) = V(543) - V_USER(792) = V(3938) - V_USER(793) = V(243) - V_USER(794) = V(1475) - V_USER(795) = V(2386) - V_USER(796) = V(3165) - V_USER(797) = V(244) - V_USER(798) = V(245) - V_USER(799) = V(1725) - V_USER(800) = V(4799) - V_USER(801) = V(2397) - V_USER(802) = V(1491) - V_USER(803) = V(3415) - V_USER(804) = V(3005) - V_USER(805) = V(2404) - V_USER(806) = V(3011) - V_USER(807) = V(3015) - V_USER(808) = V(3553) - V_USER(809) = V(2489) - V_USER(810) = V(2420) - V_USER(811) = V(1512) - V_USER(812) = V(544) - V_USER(813) = V(1738) - V_USER(814) = V(2439) - V_USER(815) = V(1519) - V_USER(816) = V(5151) - V_USER(817) = V(1520) - V_USER(818) = V(4534) - V_USER(819) = V(1543) - V_USER(820) = V(4531) - V_USER(821) = V(3994) - V_USER(822) = V(1665) - V_USER(823) = V(2813) - V_USER(824) = V(4032) - V_USER(825) = V(4474) - V_USER(826) = V(1860) - V_USER(827) = V(2871) - V_USER(828) = V(5191) - V_USER(829) = V(822) - V_USER(830) = V(2811) - V_USER(831) = V(3264) - V_USER(832) = V(545) - V_USER(833) = V(3551) - V_USER(834) = V(4315) - V_USER(835) = V(823) - V_USER(836) = V(3381) - V_USER(837) = V(1754) - V_USER(838) = V(4608) - V_USER(839) = V(824) - V_USER(840) = V(546) - V_USER(841) = V(2939) - V_USER(842) = V(1784) - V_USER(843) = V(2515) - V_USER(844) = V(1790) - V_USER(845) = V(1793) - V_USER(846) = V(825) - V_USER(847) = V(1825) - V_USER(848) = V(3540) - V_USER(849) = V(2661) - V_USER(850) = V(4278) - V_USER(851) = V(1580) - V_USER(852) = V(2702) - V_USER(853) = V(2736) - V_USER(854) = V(28) - V_USER(855) = V(4263) - V_USER(856) = V(826) - V_USER(857) = V(827) - V_USER(858) = V(2975) - V_USER(859) = V(2982) - V_USER(860) = V(2991) - V_USER(861) = V(1903) - V_USER(862) = V(2503) - V_USER(863) = V(3571) - V_USER(864) = V(1928) - V_USER(865) = V(2527) - V_USER(866) = V(4679) - V_USER(867) = V(828) - V_USER(868) = V(5251) - V_USER(869) = V(3987) - V_USER(870) = V(5238) - V_USER(871) = V(1966) - V_USER(872) = V(3982) - V_USER(873) = V(1981) - V_USER(874) = V(547) - V_USER(875) = V(2474) - V_USER(876) = V(2599) - V_USER(877) = V(4089) - V_USER(878) = V(3719) - V_USER(879) = V(2636) - V_USER(880) = V(548) - V_USER(881) = V(549) - V_USER(882) = V(2068) - V_USER(883) = V(246) - V_USER(884) = V(3545) - V_USER(885) = V(3885) - V_USER(886) = V(3436) - V_USER(887) = V(2120) - V_USER(888) = V(2123) - V_USER(889) = V(4497) - V_USER(890) = V(247) - V_USER(891) = V(2138) - V_USER(892) = V(2718) - V_USER(893) = V(550) - V_USER(894) = V(2185) - V_USER(895) = V(3232) - V_USER(896) = V(5190) - V_USER(897) = V(248) - V_USER(898) = V(4759) - V_USER(899) = V(29) - V_USER(900) = V(830) - V_USER(901) = V(2231) - V_USER(902) = V(3696) - V_USER(903) = V(4992) - V_USER(904) = V(250) - V_USER(905) = V(30) - V_USER(906) = V(552) - V_USER(907) = V(831) - V_USER(908) = V(2033) - V_USER(909) = V(251) - V_USER(910) = V(2310) - V_USER(911) = V(2916) - V_USER(912) = V(553) - V_USER(913) = V(832) - V_USER(914) = V(5085) - V_USER(915) = V(2935) - V_USER(916) = V(3531) - V_USER(917) = V(2965) - V_USER(918) = V(4270) - V_USER(919) = V(4577) - V_USER(920) = V(3951) - V_USER(921) = V(1726) - V_USER(922) = V(2409) - V_USER(923) = V(833) - V_USER(924) = V(4288) - V_USER(925) = V(4664) - V_USER(926) = V(3966) - V_USER(927) = V(3036) - V_USER(928) = V(252) - V_USER(929) = V(4681) - V_USER(930) = V(4303) - V_USER(931) = V(555) - V_USER(932) = V(3067) - V_USER(933) = V(4967) - V_USER(934) = V(3070) - V_USER(935) = V(834) - V_USER(936) = V(4325) - V_USER(937) = V(253) - V_USER(938) = V(2630) - V_USER(939) = V(2694) - V_USER(940) = V(556) - V_USER(941) = V(3115) - V_USER(942) = V(4993) - V_USER(943) = V(4024) - V_USER(944) = V(2647) - V_USER(945) = V(2097) - V_USER(946) = V(2112) - V_USER(947) = V(2133) - V_USER(948) = V(2146) - V_USER(949) = V(3442) - V_USER(950) = V(4553) - V_USER(951) = V(3676) - V_USER(952) = V(2215) - V_USER(953) = V(2223) - V_USER(954) = V(4137) - V_USER(955) = V(836) - V_USER(956) = V(1557) - V_USER(957) = V(254) - V_USER(958) = V(2293) - V_USER(959) = V(3146) - V_USER(960) = V(2305) - V_USER(961) = V(2933) - V_USER(962) = V(5174) - V_USER(963) = V(2372) - V_USER(964) = V(2997) - V_USER(965) = V(3414) - V_USER(966) = V(2412) - V_USER(967) = V(3033) - V_USER(968) = V(2438) - V_USER(969) = V(2442) - V_USER(970) = V(2769) - V_USER(971) = V(1749) - V_USER(972) = V(4004) - V_USER(973) = V(31) - V_USER(974) = V(5083) - V_USER(975) = V(3111) - V_USER(976) = V(837) - V_USER(977) = V(4710) - V_USER(978) = V(3552) - V_USER(979) = V(1563) - V_USER(980) = V(255) - V_USER(981) = V(838) - V_USER(982) = V(839) - V_USER(983) = V(3716) - V_USER(984) = V(4848) - V_USER(985) = V(32) - V_USER(986) = V(3189) - V_USER(987) = V(1761) - V_USER(988) = V(1564) - V_USER(989) = V(4562) - V_USER(990) = V(4809) - V_USER(991) = V(4931) - V_USER(992) = V(5157) - V_USER(993) = V(4801) - V_USER(994) = V(3240) - V_USER(995) = V(840) - V_USER(996) = V(5185) - V_USER(997) = V(4455) - V_USER(998) = V(4690) - V_USER(999) = V(557) - V_USER(1000) = V(4369) - V_USER(1001) = V(4291) - V_USER(1002) = V(3056) - V_USER(1003) = V(558) - V_USER(1004) = V(842) - V_USER(1005) = V(3369) - V_USER(1006) = V(3377) - V_USER(1007) = V(2507) - V_USER(1008) = V(3402) - V_USER(1009) = V(4255) - V_USER(1010) = V(33) - V_USER(1011) = V(844) - V_USER(1012) = V(4784) - V_USER(1013) = V(4099) - V_USER(1014) = V(1792) - V_USER(1015) = V(845) - V_USER(1016) = V(1795) - V_USER(1017) = V(3094) - V_USER(1018) = V(2535) - V_USER(1019) = V(4645) - V_USER(1020) = V(3900) - V_USER(1021) = V(4143) - V_USER(1022) = V(4908) - V_USER(1023) = V(1803) - V_USER(1024) = V(1575) - V_USER(1025) = V(1805) - V_USER(1026) = V(151) - V_USER(1027) = V(3866) - V_USER(1028) = V(4368) - V_USER(1029) = V(4507) - V_USER(1030) = V(846) - V_USER(1031) = V(4458) - V_USER(1032) = V(1818) - V_USER(1033) = V(1821) - V_USER(1034) = V(4161) - V_USER(1035) = V(256) - V_USER(1036) = V(847) - V_USER(1037) = V(848) - V_USER(1038) = V(3965) - V_USER(1039) = V(849) - V_USER(1040) = V(2664) - V_USER(1041) = V(3605) - V_USER(1042) = V(34) - V_USER(1043) = V(2683) - V_USER(1044) = V(3330) - V_USER(1045) = V(850) - V_USER(1046) = V(851) - V_USER(1047) = V(852) - V_USER(1048) = V(2703) - V_USER(1049) = V(3714) - V_USER(1050) = V(3954) - V_USER(1051) = V(1837) - V_USER(1052) = V(853) - V_USER(1053) = V(3227) - V_USER(1054) = V(3726) - V_USER(1055) = V(854) - V_USER(1056) = V(35) - V_USER(1057) = V(1852) - V_USER(1058) = V(855) - V_USER(1059) = V(5209) - V_USER(1060) = V(1859) - V_USER(1061) = V(856) - V_USER(1062) = V(857) - V_USER(1063) = V(1868) - V_USER(1064) = V(1869) - V_USER(1065) = V(4547) - V_USER(1066) = V(2898) - V_USER(1067) = V(559) - V_USER(1068) = V(1878) - V_USER(1069) = V(3390) - V_USER(1070) = V(3591) - V_USER(1071) = V(1880) - V_USER(1072) = V(1883) - V_USER(1073) = V(4812) - V_USER(1074) = V(3623) - V_USER(1075) = V(4927) - V_USER(1076) = V(3933) - V_USER(1077) = V(257) - V_USER(1078) = V(258) - V_USER(1079) = V(860) - V_USER(1080) = V(4554) - V_USER(1081) = V(5011) - V_USER(1082) = V(3820) - V_USER(1083) = V(3469) - V_USER(1084) = V(3175) - V_USER(1085) = V(3019) - V_USER(1086) = V(1898) - V_USER(1087) = V(4046) - V_USER(1088) = V(4498) - V_USER(1089) = V(3031) - V_USER(1090) = V(3319) - V_USER(1091) = V(1594) - V_USER(1092) = V(3561) - V_USER(1093) = V(861) - V_USER(1094) = V(259) - V_USER(1095) = V(2586) - V_USER(1096) = V(1595) - V_USER(1097) = V(5021) - V_USER(1098) = V(4543) - V_USER(1099) = V(2499) - V_USER(1100) = V(862) - V_USER(1101) = V(2504) - V_USER(1102) = V(2505) - V_USER(1103) = V(560) - V_USER(1104) = V(2506) - V_USER(1105) = V(561) - V_USER(1106) = V(864) - V_USER(1107) = V(5090) - V_USER(1108) = V(3707) - V_USER(1109) = V(2510) - V_USER(1110) = V(3302) - V_USER(1111) = V(3759) - V_USER(1112) = V(3086) - V_USER(1113) = V(4654) - V_USER(1114) = V(865) - V_USER(1115) = V(1949) - V_USER(1116) = V(866) - V_USER(1117) = V(3130) - V_USER(1118) = V(2530) - V_USER(1119) = V(1952) - V_USER(1120) = V(9) - V_USER(1121) = V(3862) - V_USER(1122) = V(867) - V_USER(1123) = V(868) - V_USER(1124) = V(1605) - V_USER(1125) = V(869) - V_USER(1126) = V(1960) - V_USER(1127) = V(563) - V_USER(1128) = V(4954) - V_USER(1129) = V(2537) - V_USER(1130) = V(1608) - V_USER(1131) = V(4910) - V_USER(1132) = V(3764) - V_USER(1133) = V(870) - V_USER(1134) = V(2542) - V_USER(1135) = V(871) - V_USER(1136) = V(3631) - V_USER(1137) = V(1967) - V_USER(1138) = V(1609) - V_USER(1139) = V(260) - V_USER(1140) = V(564) - V_USER(1141) = V(1972) - V_USER(1142) = V(565) - V_USER(1143) = V(2553) - V_USER(1144) = V(5141) - V_USER(1145) = V(2554) - V_USER(1146) = V(3122) - V_USER(1147) = V(2555) - V_USER(1148) = V(2556) - V_USER(1149) = V(872) - V_USER(1150) = V(1980) - V_USER(1151) = V(5123) - V_USER(1152) = V(873) - V_USER(1153) = V(3248) - V_USER(1154) = V(566) - V_USER(1155) = V(261) - V_USER(1156) = V(1987) - V_USER(1157) = V(262) - V_USER(1158) = V(1615) - V_USER(1159) = V(4277) - V_USER(1160) = V(3135) - V_USER(1161) = V(1618) - V_USER(1162) = V(2571) - V_USER(1163) = V(1993) - V_USER(1164) = V(4104) - V_USER(1165) = V(3706) - V_USER(1166) = V(5068) - V_USER(1167) = V(2577) - V_USER(1168) = V(2578) - V_USER(1169) = V(4788) - V_USER(1170) = V(2582) - V_USER(1171) = V(567) - V_USER(1172) = V(4322) - V_USER(1173) = V(2003) - V_USER(1174) = V(263) - V_USER(1175) = V(874) - V_USER(1176) = V(2589) - V_USER(1177) = V(568) - V_USER(1178) = V(3156) - V_USER(1179) = V(2593) - V_USER(1180) = V(2009) - V_USER(1181) = V(5070) - V_USER(1182) = V(2595) - V_USER(1183) = V(4767) - V_USER(1184) = V(876) - V_USER(1185) = V(2014) - V_USER(1186) = V(2017) - V_USER(1187) = V(4472) - V_USER(1188) = V(4952) - V_USER(1189) = V(264) - V_USER(1190) = V(2022) - V_USER(1191) = V(3182) - V_USER(1192) = V(4821) - V_USER(1193) = V(2610) - V_USER(1194) = V(2026) - V_USER(1195) = V(4521) - V_USER(1196) = V(2612) - V_USER(1197) = V(877) - V_USER(1198) = V(2617) - V_USER(1199) = V(5139) - V_USER(1200) = V(3202) - V_USER(1201) = V(2042) - V_USER(1202) = V(4599) - V_USER(1203) = V(4246) - V_USER(1204) = V(4085) - V_USER(1205) = V(4866) - V_USER(1206) = V(570) - V_USER(1207) = V(3646) - V_USER(1208) = V(2045) - V_USER(1209) = V(2041) - V_USER(1210) = V(878) - V_USER(1211) = V(3524) - V_USER(1212) = V(5044) - V_USER(1213) = V(3085) - V_USER(1214) = V(2048) - V_USER(1215) = V(3087) - V_USER(1216) = V(3953) - V_USER(1217) = V(571) - V_USER(1218) = V(3088) - V_USER(1219) = V(4343) - V_USER(1220) = V(3557) - V_USER(1221) = V(3975) - V_USER(1222) = V(4837) - V_USER(1223) = V(2633) - V_USER(1224) = V(879) - V_USER(1225) = V(4337) - V_USER(1226) = V(4067) - V_USER(1227) = V(36) - V_USER(1228) = V(2055) - V_USER(1229) = V(4135) - V_USER(1230) = V(572) - V_USER(1231) = V(3507) - V_USER(1232) = V(4467) - V_USER(1233) = V(265) - V_USER(1234) = V(574) - V_USER(1235) = V(575) - V_USER(1236) = V(4402) - V_USER(1237) = V(5034) - V_USER(1238) = V(2651) - V_USER(1239) = V(576) - V_USER(1240) = V(4935) - V_USER(1241) = V(1640) - V_USER(1242) = V(5172) - V_USER(1243) = V(1641) - V_USER(1244) = V(2660) - V_USER(1245) = V(37) - V_USER(1246) = V(5148) - V_USER(1247) = V(2094) - V_USER(1248) = V(577) - V_USER(1249) = V(2099) - V_USER(1250) = V(883) - V_USER(1251) = V(3579) - V_USER(1252) = V(4266) - V_USER(1253) = V(3749) - V_USER(1254) = V(4652) - V_USER(1255) = V(884) - V_USER(1256) = V(3474) - V_USER(1257) = V(4082) - V_USER(1258) = V(885) - V_USER(1259) = V(578) - V_USER(1260) = V(2695) - V_USER(1261) = V(266) - V_USER(1262) = V(888) - V_USER(1263) = V(1656) - V_USER(1264) = V(889) - V_USER(1265) = V(1659) - V_USER(1266) = V(890) - V_USER(1267) = V(2129) - V_USER(1268) = V(3337) - V_USER(1269) = V(2131) - V_USER(1270) = V(3865) - V_USER(1271) = V(4095) - V_USER(1272) = V(2137) - V_USER(1273) = V(891) - V_USER(1274) = V(267) - V_USER(1275) = V(5255) - V_USER(1276) = V(5125) - V_USER(1277) = V(5066) - V_USER(1278) = V(4203) - V_USER(1279) = V(4480) - V_USER(1280) = V(1663) - V_USER(1281) = V(892) - V_USER(1282) = V(2149) - V_USER(1283) = V(3214) - V_USER(1284) = V(4925) - V_USER(1285) = V(38) - V_USER(1286) = V(4694) - V_USER(1287) = V(2153) - V_USER(1288) = V(2156) - V_USER(1289) = V(893) - V_USER(1290) = V(39) - V_USER(1291) = V(3999) - V_USER(1292) = V(4037) - V_USER(1293) = V(3750) - V_USER(1294) = V(1931) - V_USER(1295) = V(4179) - V_USER(1296) = V(579) - V_USER(1297) = V(1667) - V_USER(1298) = V(2743) - V_USER(1299) = V(4558) - V_USER(1300) = V(3888) - V_USER(1301) = V(2747) - V_USER(1302) = V(4110) - V_USER(1303) = V(5217) - V_USER(1304) = V(4884) - V_USER(1305) = V(2762) - V_USER(1306) = V(2184) - V_USER(1307) = V(894) - V_USER(1308) = V(4731) - V_USER(1309) = V(895) - V_USER(1310) = V(5018) - V_USER(1311) = V(4224) - V_USER(1312) = V(152) - V_USER(1313) = V(896) - V_USER(1314) = V(4611) - V_USER(1315) = V(1677) - V_USER(1316) = V(2196) - V_USER(1317) = V(3836) - V_USER(1318) = V(897) - V_USER(1319) = V(1610) - V_USER(1320) = V(268) - V_USER(1321) = V(2200) - V_USER(1322) = V(2202) - V_USER(1323) = V(2784) - V_USER(1324) = V(1679) - V_USER(1325) = V(2790) - V_USER(1326) = V(2792) - V_USER(1327) = V(2793) - V_USER(1328) = V(2796) - V_USER(1329) = V(2801) - V_USER(1330) = V(2480) - V_USER(1331) = V(40) - V_USER(1332) = V(5212) - V_USER(1333) = V(899) - V_USER(1334) = V(4513) - V_USER(1335) = V(900) - V_USER(1336) = V(4320) - V_USER(1337) = V(2226) - V_USER(1338) = V(2228) - V_USER(1339) = V(2230) - V_USER(1340) = V(2817) - V_USER(1341) = V(901) - V_USER(1342) = V(2232) - V_USER(1343) = V(2233) - V_USER(1344) = V(4996) - V_USER(1345) = V(2821) - V_USER(1346) = V(2822) - V_USER(1347) = V(41) - V_USER(1348) = V(2242) - V_USER(1349) = V(2244) - V_USER(1350) = V(4900) - V_USER(1351) = V(2828) - V_USER(1352) = V(2830) - V_USER(1353) = V(2251) - V_USER(1354) = V(581) - V_USER(1355) = V(269) - V_USER(1356) = V(582) - V_USER(1357) = V(2258) - V_USER(1358) = V(902) - V_USER(1359) = V(42) - V_USER(1360) = V(271) - V_USER(1361) = V(4640) - V_USER(1362) = V(903) - V_USER(1363) = V(4310) - V_USER(1364) = V(2268) - V_USER(1365) = V(4192) - V_USER(1366) = V(3880) - V_USER(1367) = V(4194) - V_USER(1368) = V(5144) - V_USER(1369) = V(153) - V_USER(1370) = V(4198) - V_USER(1371) = V(2274) - V_USER(1372) = V(2276) - V_USER(1373) = V(904) - V_USER(1374) = V(3383) - V_USER(1375) = V(272) - V_USER(1376) = V(3217) - V_USER(1377) = V(3583) - V_USER(1378) = V(273) - V_USER(1379) = V(154) - V_USER(1380) = V(2279) - V_USER(1381) = V(905) - V_USER(1382) = V(3620) - V_USER(1383) = V(3890) - V_USER(1384) = V(3705) - V_USER(1385) = V(274) - V_USER(1386) = V(2876) - V_USER(1387) = V(4657) - V_USER(1388) = V(4371) - V_USER(1389) = V(1697) - V_USER(1390) = V(3710) - V_USER(1391) = V(1698) - V_USER(1392) = V(2289) - V_USER(1393) = V(2290) - V_USER(1394) = V(3261) - V_USER(1395) = V(4109) - V_USER(1396) = V(275) - V_USER(1397) = V(3262) - V_USER(1398) = V(10) - V_USER(1399) = V(2295) - V_USER(1400) = V(43) - V_USER(1401) = V(907) - V_USER(1402) = V(3718) - V_USER(1403) = V(583) - V_USER(1404) = V(2895) - V_USER(1405) = V(2299) - V_USER(1406) = V(584) - V_USER(1407) = V(4503) - V_USER(1408) = V(585) - V_USER(1409) = V(4047) - V_USER(1410) = V(3721) - V_USER(1411) = V(3722) - V_USER(1412) = V(586) - V_USER(1413) = V(909) - V_USER(1414) = V(155) - V_USER(1415) = V(4658) - V_USER(1416) = V(910) - V_USER(1417) = V(4904) - V_USER(1418) = V(911) - V_USER(1419) = V(4027) - V_USER(1420) = V(2314) - V_USER(1421) = V(3907) - V_USER(1422) = V(276) - V_USER(1423) = V(5182) - V_USER(1424) = V(3149) - V_USER(1425) = V(912) - V_USER(1426) = V(2321) - V_USER(1427) = V(587) - V_USER(1428) = V(2927) - V_USER(1429) = V(44) - V_USER(1430) = V(5046) - V_USER(1431) = V(914) - V_USER(1432) = V(2332) - V_USER(1433) = V(4579) - V_USER(1434) = V(2930) - V_USER(1435) = V(2485) - V_USER(1436) = V(1708) - V_USER(1437) = V(915) - V_USER(1438) = V(4242) - V_USER(1439) = V(3915) - V_USER(1440) = V(2342) - V_USER(1441) = V(3824) - V_USER(1442) = V(588) - V_USER(1443) = V(4351) - V_USER(1444) = V(2942) - V_USER(1445) = V(277) - V_USER(1446) = V(589) - V_USER(1447) = V(4723) - V_USER(1448) = V(2946) - V_USER(1449) = V(3282) - V_USER(1450) = V(2951) - V_USER(1451) = V(2952) - V_USER(1452) = V(916) - V_USER(1453) = V(2351) - V_USER(1454) = V(4627) - V_USER(1455) = V(2050) - V_USER(1456) = V(2356) - V_USER(1457) = V(4834) - V_USER(1458) = V(4633) - V_USER(1459) = V(917) - V_USER(1460) = V(2363) - V_USER(1461) = V(2967) - V_USER(1462) = V(3935) - V_USER(1463) = V(590) - V_USER(1464) = V(591) - V_USER(1465) = V(2375) - V_USER(1466) = V(2980) - V_USER(1467) = V(2376) - V_USER(1468) = V(45) - V_USER(1469) = V(2380) - V_USER(1470) = V(2986) - V_USER(1471) = V(4840) - V_USER(1472) = V(4149) - V_USER(1473) = V(3945) - V_USER(1474) = V(2383) - V_USER(1475) = V(592) - V_USER(1476) = V(2387) - V_USER(1477) = V(918) - V_USER(1478) = V(4646) - V_USER(1479) = V(4892) - V_USER(1480) = V(5187) - V_USER(1481) = V(5035) - V_USER(1482) = V(919) - V_USER(1483) = V(920) - V_USER(1484) = V(278) - V_USER(1485) = V(156) - V_USER(1486) = V(2395) - V_USER(1487) = V(4468) - V_USER(1488) = V(921) - V_USER(1489) = V(4469) - V_USER(1490) = V(4782) - V_USER(1491) = V(2088) - V_USER(1492) = V(4367) - V_USER(1493) = V(46) - V_USER(1494) = V(3467) - V_USER(1495) = V(593) - V_USER(1496) = V(922) - V_USER(1497) = V(4283) - V_USER(1498) = V(3957) - V_USER(1499) = V(3766) - V_USER(1500) = V(4285) - V_USER(1501) = V(923) - V_USER(1502) = V(924) - V_USER(1503) = V(925) - V_USER(1504) = V(2419) - V_USER(1505) = V(4895) - V_USER(1506) = V(3360) - V_USER(1507) = V(5248) - V_USER(1508) = V(4494) - V_USER(1509) = V(3309) - V_USER(1510) = V(4548) - V_USER(1511) = V(157) - V_USER(1512) = V(926) - V_USER(1513) = V(3179) - V_USER(1514) = V(279) - V_USER(1515) = V(3625) - V_USER(1516) = V(927) - V_USER(1517) = V(4957) - V_USER(1518) = V(280) - V_USER(1519) = V(3047) - V_USER(1520) = V(928) - V_USER(1521) = V(5067) - V_USER(1522) = V(281) - V_USER(1523) = V(3053) - V_USER(1524) = V(930) - V_USER(1525) = V(2447) - V_USER(1526) = V(3321) - V_USER(1527) = V(931) - V_USER(1528) = V(4514) - V_USER(1529) = V(4176) - V_USER(1530) = V(4080) - V_USER(1531) = V(47) - V_USER(1532) = V(2456) - V_USER(1533) = V(3061) - V_USER(1534) = V(282) - V_USER(1535) = V(3782) - V_USER(1536) = V(3562) - V_USER(1537) = V(3432) - V_USER(1538) = V(932) - V_USER(1539) = V(2465) - V_USER(1540) = V(933) - V_USER(1541) = V(934) - V_USER(1542) = V(4762) - V_USER(1543) = V(935) - V_USER(1544) = V(4763) - V_USER(1545) = V(1747) - V_USER(1546) = V(4318) - V_USER(1547) = V(3192) - V_USER(1548) = V(48) - V_USER(1549) = V(4896) - V_USER(1550) = V(49) - V_USER(1551) = V(3090) - V_USER(1552) = V(3661) - V_USER(1553) = V(3334) - V_USER(1554) = V(1548) - V_USER(1555) = V(2659) - V_USER(1556) = V(4244) - V_USER(1557) = V(937) - V_USER(1558) = V(3725) - V_USER(1559) = V(595) - V_USER(1560) = V(2444) - V_USER(1561) = V(4314) - V_USER(1562) = V(4393) - V_USER(1563) = V(1549) - V_USER(1564) = V(4684) - V_USER(1565) = V(1764) - V_USER(1566) = V(1774) - V_USER(1567) = V(158) - V_USER(1568) = V(4414) - V_USER(1569) = V(2963) - V_USER(1570) = V(4050) - V_USER(1571) = V(4914) - V_USER(1572) = V(1794) - V_USER(1573) = V(5230) - V_USER(1574) = V(284) - V_USER(1575) = V(1804) - V_USER(1576) = V(3926) - V_USER(1577) = V(938) - V_USER(1578) = V(2638) - V_USER(1579) = V(5075) - V_USER(1580) = V(939) - V_USER(1581) = V(285) - V_USER(1582) = V(286) - V_USER(1583) = V(2903) - V_USER(1584) = V(4097) - V_USER(1585) = V(3069) - V_USER(1586) = V(4225) - V_USER(1587) = V(1884) - V_USER(1588) = V(3743) - V_USER(1589) = V(287) - V_USER(1590) = V(596) - V_USER(1591) = V(3193) - V_USER(1592) = V(1552) - V_USER(1593) = V(1899) - V_USER(1594) = V(3322) - V_USER(1595) = V(50) - V_USER(1596) = V(4745) - V_USER(1597) = V(942) - V_USER(1598) = V(2502) - V_USER(1599) = V(1934) - V_USER(1600) = V(597) - V_USER(1601) = V(1937) - V_USER(1602) = V(1943) - V_USER(1603) = V(3200) - V_USER(1604) = V(3686) - V_USER(1605) = V(1553) - V_USER(1606) = V(3851) - V_USER(1607) = V(1962) - V_USER(1608) = V(2538) - V_USER(1609) = V(1969) - V_USER(1610) = V(2779) - V_USER(1611) = V(3494) - V_USER(1612) = V(288) - V_USER(1613) = V(1977) - V_USER(1614) = V(3120) - V_USER(1615) = V(3253) - V_USER(1616) = V(1992) - V_USER(1617) = V(3580) - V_USER(1618) = V(4445) - V_USER(1619) = V(4659) - V_USER(1620) = V(943) - V_USER(1621) = V(2585) - V_USER(1622) = V(3154) - V_USER(1623) = V(3281) - V_USER(1624) = V(289) - V_USER(1625) = V(2597) - V_USER(1626) = V(1649) - V_USER(1627) = V(2601) - V_USER(1628) = V(4786) - V_USER(1629) = V(2970) - V_USER(1630) = V(3662) - V_USER(1631) = V(1808) - V_USER(1632) = V(4313) - V_USER(1633) = V(3615) - V_USER(1634) = V(4357) - V_USER(1635) = V(3356) - V_USER(1636) = V(2637) - V_USER(1637) = V(2645) - V_USER(1638) = V(944) - V_USER(1639) = V(598) - V_USER(1640) = V(4844) - V_USER(1641) = V(1555) - V_USER(1642) = V(2662) - V_USER(1643) = V(2082) - V_USER(1644) = V(562) - V_USER(1645) = V(324) - V_USER(1646) = V(945) - V_USER(1647) = V(4744) - V_USER(1648) = V(290) - V_USER(1649) = V(2012) - V_USER(1650) = V(946) - V_USER(1651) = V(3098) - V_USER(1652) = V(3099) - V_USER(1653) = V(3435) - V_USER(1654) = V(2658) - V_USER(1655) = V(4760) - V_USER(1656) = V(3983) - V_USER(1657) = V(291) - V_USER(1658) = V(2124) - V_USER(1659) = V(3102) - V_USER(1660) = V(947) - V_USER(1661) = V(5005) - V_USER(1662) = V(2142) - V_USER(1663) = V(948) - V_USER(1664) = V(2720) - V_USER(1665) = V(949) - V_USER(1666) = V(292) - V_USER(1667) = V(3223) - V_USER(1668) = V(600) - V_USER(1669) = V(2172) - V_USER(1670) = V(2174) - V_USER(1671) = V(4274) - V_USER(1672) = V(2179) - V_USER(1673) = V(950) - V_USER(1674) = V(951) - V_USER(1675) = V(4187) - V_USER(1676) = V(2768) - V_USER(1677) = V(601) - V_USER(1678) = V(4598) - V_USER(1679) = V(4510) - V_USER(1680) = V(4636) - V_USER(1681) = V(2210) - V_USER(1682) = V(2212) - V_USER(1683) = V(952) - V_USER(1684) = V(953) - V_USER(1685) = V(3372) - V_USER(1686) = V(2235) - V_USER(1687) = V(1556) - V_USER(1688) = V(602) - V_USER(1689) = V(603) - V_USER(1690) = V(2245) - V_USER(1691) = V(2847) - V_USER(1692) = V(1750) - V_USER(1693) = V(5245) - V_USER(1694) = V(955) - V_USER(1695) = V(604) - V_USER(1696) = V(293) - V_USER(1697) = V(956) - V_USER(1698) = V(957) - V_USER(1699) = V(958) - V_USER(1700) = V(4215) - V_USER(1701) = V(959) - V_USER(1702) = V(960) - V_USER(1703) = V(1558) - V_USER(1704) = V(5133) - V_USER(1705) = V(4972) - V_USER(1706) = V(2317) - V_USER(1707) = V(2331) - V_USER(1708) = V(961) - V_USER(1709) = V(2339) - V_USER(1710) = V(2341) - V_USER(1711) = V(962) - V_USER(1712) = V(4604) - V_USER(1713) = V(4770) - V_USER(1714) = V(3398) - V_USER(1715) = V(159) - V_USER(1716) = V(2961) - V_USER(1717) = V(2962) - V_USER(1718) = V(2358) - V_USER(1719) = V(606) - V_USER(1720) = V(607) - V_USER(1721) = V(608) - V_USER(1722) = V(963) - V_USER(1723) = V(2717) - V_USER(1724) = V(2987) - V_USER(1725) = V(964) - V_USER(1726) = V(5020) - V_USER(1727) = V(965) - V_USER(1728) = V(4955) - V_USER(1729) = V(3959) - V_USER(1730) = V(966) - V_USER(1731) = V(4877) - V_USER(1732) = V(51) - V_USER(1733) = V(294) - V_USER(1734) = V(967) - V_USER(1735) = V(160) - V_USER(1736) = V(295) - V_USER(1737) = V(1559) - V_USER(1738) = V(4508) - V_USER(1739) = V(968) - V_USER(1740) = V(969) - V_USER(1741) = V(1560) - V_USER(1742) = V(5203) - V_USER(1743) = V(3986) - V_USER(1744) = V(4865) - V_USER(1745) = V(1870) - V_USER(1746) = V(3789) - V_USER(1747) = V(296) - V_USER(1748) = V(609) - V_USER(1749) = V(1748) - V_USER(1750) = V(3697) - V_USER(1751) = V(52) - V_USER(1752) = V(610) - V_USER(1753) = V(971) - V_USER(1754) = V(972) - V_USER(1755) = V(2808) - V_USER(1756) = V(53) - V_USER(1757) = V(611) - V_USER(1758) = V(2529) - V_USER(1759) = V(297) - V_USER(1760) = V(4919) - V_USER(1761) = V(161) - V_USER(1762) = V(404) - V_USER(1763) = V(974) - V_USER(1764) = V(2776) - V_USER(1765) = V(1751) - V_USER(1766) = V(4241) - V_USER(1767) = V(975) - V_USER(1768) = V(1752) - V_USER(1769) = V(1753) - V_USER(1770) = V(3556) - V_USER(1771) = V(3685) - V_USER(1772) = V(976) - V_USER(1773) = V(298) - V_USER(1774) = V(4154) - V_USER(1775) = V(4642) - V_USER(1776) = V(3290) - V_USER(1777) = V(5008) - V_USER(1778) = V(977) - V_USER(1779) = V(54) - V_USER(1780) = V(3010) - V_USER(1781) = V(4251) - V_USER(1782) = V(3992) - V_USER(1783) = V(3788) - V_USER(1784) = V(1756) - V_USER(1785) = V(299) - V_USER(1786) = V(3445) - V_USER(1787) = V(55) - V_USER(1788) = V(979) - V_USER(1789) = V(4897) - V_USER(1790) = V(2520) - V_USER(1791) = V(3754) - V_USER(1792) = V(980) - V_USER(1793) = V(1758) - V_USER(1794) = V(4959) - V_USER(1795) = V(56) - V_USER(1796) = V(5059) - V_USER(1797) = V(3484) - V_USER(1798) = V(57) - V_USER(1799) = V(982) - V_USER(1800) = V(2545) - V_USER(1801) = V(4269) - V_USER(1802) = V(1759) - V_USER(1803) = V(5053) - V_USER(1804) = V(300) - V_USER(1805) = V(2560) - V_USER(1806) = V(983) - V_USER(1807) = V(301) - V_USER(1808) = V(984) - V_USER(1809) = V(4713) - V_USER(1810) = V(985) - V_USER(1811) = V(4517) - V_USER(1812) = V(4637) - V_USER(1813) = V(986) - V_USER(1814) = V(987) - V_USER(1815) = V(3665) - V_USER(1816) = V(1762) - V_USER(1817) = V(2616) - V_USER(1818) = V(4980) - V_USER(1819) = V(988) - V_USER(1820) = V(989) - V_USER(1821) = V(3927) - V_USER(1822) = V(4446) - V_USER(1823) = V(5087) - V_USER(1824) = V(1763) - V_USER(1825) = V(2652) - V_USER(1826) = V(990) - V_USER(1827) = V(5037) - V_USER(1828) = V(1565) - V_USER(1829) = V(1765) - V_USER(1830) = V(991) - V_USER(1831) = V(58) - V_USER(1832) = V(1766) - V_USER(1833) = V(5025) - V_USER(1834) = V(612) - V_USER(1835) = V(3698) - V_USER(1836) = V(4527) - V_USER(1837) = V(4863) - V_USER(1838) = V(302) - V_USER(1839) = V(1767) - V_USER(1840) = V(2763) - V_USER(1841) = V(5072) - V_USER(1842) = V(1768) - V_USER(1843) = V(4977) - V_USER(1844) = V(1769) - V_USER(1845) = V(613) - V_USER(1846) = V(993) - V_USER(1847) = V(1770) - V_USER(1848) = V(2782) - V_USER(1849) = V(5022) - V_USER(1850) = V(1771) - V_USER(1851) = V(614) - V_USER(1852) = V(994) - V_USER(1853) = V(2482) - V_USER(1854) = V(5208) - V_USER(1855) = V(3126) - V_USER(1856) = V(5136) - V_USER(1857) = V(3695) - V_USER(1858) = V(1772) - V_USER(1859) = V(303) - V_USER(1860) = V(995) - V_USER(1861) = V(1566) - V_USER(1862) = V(3578) - V_USER(1863) = V(996) - V_USER(1864) = V(5220) - V_USER(1865) = V(4824) - V_USER(1866) = V(2484) - V_USER(1867) = V(4634) - V_USER(1868) = V(997) - V_USER(1869) = V(2873) - V_USER(1870) = V(998) - V_USER(1871) = V(304) - V_USER(1872) = V(59) - V_USER(1873) = V(2891) - V_USER(1874) = V(4186) - V_USER(1875) = V(3768) - V_USER(1876) = V(3832) - V_USER(1877) = V(305) - V_USER(1878) = V(1567) - V_USER(1879) = V(1568) - V_USER(1880) = V(3775) - V_USER(1881) = V(4122) - V_USER(1882) = V(1000) - V_USER(1883) = V(2936) - V_USER(1884) = V(616) - V_USER(1885) = V(4136) - V_USER(1886) = V(2960) - V_USER(1887) = V(1569) - V_USER(1888) = V(4572) - V_USER(1889) = V(1776) - V_USER(1890) = V(1777) - V_USER(1891) = V(3817) - V_USER(1892) = V(2990) - V_USER(1893) = V(1778) - V_USER(1894) = V(1779) - V_USER(1895) = V(1780) - V_USER(1896) = V(3018) - V_USER(1897) = V(1001) - V_USER(1898) = V(60) - V_USER(1899) = V(3423) - V_USER(1900) = V(4999) - V_USER(1901) = V(4549) - V_USER(1902) = V(1002) - V_USER(1903) = V(3666) - V_USER(1904) = V(4307) - V_USER(1905) = V(4308) - V_USER(1906) = V(4556) - V_USER(1907) = V(1782) - V_USER(1908) = V(3075) - V_USER(1909) = V(1783) - V_USER(1910) = V(1003) - V_USER(1911) = V(1004) - V_USER(1912) = V(3747) - V_USER(1913) = V(3689) - V_USER(1914) = V(3693) - V_USER(1915) = V(2495) - V_USER(1916) = V(5077) - V_USER(1917) = V(61) - V_USER(1918) = V(1570) - V_USER(1919) = V(1785) - V_USER(1920) = V(3637) - V_USER(1921) = V(4989) - V_USER(1922) = V(4889) - V_USER(1923) = V(5127) - V_USER(1924) = V(306) - V_USER(1925) = V(1786) - V_USER(1926) = V(1787) - V_USER(1927) = V(618) - V_USER(1928) = V(1006) - V_USER(1929) = V(4600) - V_USER(1930) = V(1007) - V_USER(1931) = V(1788) - V_USER(1932) = V(4338) - V_USER(1933) = V(307) - V_USER(1934) = V(1008) - V_USER(1935) = V(1009) - V_USER(1936) = V(1010) - V_USER(1937) = V(308) - V_USER(1938) = V(619) - V_USER(1939) = V(1012) - V_USER(1940) = V(1571) - V_USER(1941) = V(1013) - V_USER(1942) = V(1014) - V_USER(1943) = V(162) - V_USER(1944) = V(2522) - V_USER(1945) = V(3458) - V_USER(1946) = V(1015) - V_USER(1947) = V(4771) - V_USER(1948) = V(62) - V_USER(1949) = V(1572) - V_USER(1950) = V(1016) - V_USER(1951) = V(1017) - V_USER(1952) = V(4236) - V_USER(1953) = V(3096) - V_USER(1954) = V(620) - V_USER(1955) = V(1018) - V_USER(1956) = V(3209) - V_USER(1957) = V(1019) - V_USER(1958) = V(1573) - V_USER(1959) = V(2536) - V_USER(1960) = V(3211) - V_USER(1961) = V(1797) - V_USER(1962) = V(1020) - V_USER(1963) = V(4726) - V_USER(1964) = V(4765) - V_USER(1965) = V(2543) - V_USER(1966) = V(1798) - V_USER(1967) = V(3444) - V_USER(1968) = V(1021) - V_USER(1969) = V(1800) - V_USER(1970) = V(1801) - V_USER(1971) = V(3114) - V_USER(1972) = V(3233) - V_USER(1973) = V(4065) - V_USER(1974) = V(2552) - V_USER(1975) = V(1574) - V_USER(1976) = V(1022) - V_USER(1977) = V(63) - V_USER(1978) = V(1023) - V_USER(1979) = V(2557) - V_USER(1980) = V(4401) - V_USER(1981) = V(4105) - V_USER(1982) = V(163) - V_USER(1983) = V(1024) - V_USER(1984) = V(3816) - V_USER(1985) = V(1025) - V_USER(1986) = V(1026) - V_USER(1987) = V(2563) - V_USER(1988) = V(1027) - V_USER(1989) = V(621) - V_USER(1990) = V(4001) - V_USER(1991) = V(309) - V_USER(1992) = V(622) - V_USER(1993) = V(623) - V_USER(1994) = V(4806) - V_USER(1995) = V(3894) - V_USER(1996) = V(2575) - V_USER(1997) = V(3518) - V_USER(1998) = V(624) - V_USER(1999) = V(4795) - V_USER(2000) = V(3727) - V_USER(2001) = V(2583) - V_USER(2002) = V(310) - V_USER(2003) = V(4237) - V_USER(2004) = V(1807) - V_USER(2005) = V(5175) - V_USER(2006) = V(5) - V_USER(2007) = V(4737) - V_USER(2008) = V(625) - V_USER(2009) = V(1631) - V_USER(2010) = V(626) - V_USER(2011) = V(3164) - V_USER(2012) = V(4647) - V_USER(2013) = V(312) - V_USER(2014) = V(4706) - V_USER(2015) = V(2945) - V_USER(2016) = V(5201) - V_USER(2017) = V(4272) - V_USER(2018) = V(1809) - V_USER(2019) = V(2604) - V_USER(2020) = V(4165) - V_USER(2021) = V(3181) - V_USER(2022) = V(313) - V_USER(2023) = V(64) - V_USER(2024) = V(2605) - V_USER(2025) = V(3472) - V_USER(2026) = V(1811) - V_USER(2027) = V(627) - V_USER(2028) = V(3988) - V_USER(2029) = V(2611) - V_USER(2030) = V(1815) - V_USER(2031) = V(1816) - V_USER(2032) = V(1817) - V_USER(2033) = V(2902) - V_USER(2034) = V(3969) - V_USER(2035) = V(4862) - V_USER(2036) = V(1031) - V_USER(2037) = V(314) - V_USER(2038) = V(4481) - V_USER(2039) = V(1032) - V_USER(2040) = V(4828) - V_USER(2041) = V(2628) - V_USER(2042) = V(2623) - V_USER(2043) = V(3510) - V_USER(2044) = V(1819) - V_USER(2045) = V(5024) - V_USER(2046) = V(4966) - V_USER(2047) = V(3811) - V_USER(2048) = V(1577) - V_USER(2049) = V(2634) - V_USER(2050) = V(1033) - V_USER(2051) = V(3667) - V_USER(2052) = V(1578) - V_USER(2053) = V(1034) - V_USER(2054) = V(2641) - V_USER(2055) = V(1035) - V_USER(2056) = V(4738) - V_USER(2057) = V(315) - V_USER(2058) = V(3838) - V_USER(2059) = V(1822) - V_USER(2060) = V(3691) - V_USER(2061) = V(4898) - V_USER(2062) = V(3801) - V_USER(2063) = V(316) - V_USER(2064) = V(1823) - V_USER(2065) = V(628) - V_USER(2066) = V(65) - V_USER(2067) = V(1036) - V_USER(2068) = V(317) - V_USER(2069) = V(1826) - V_USER(2070) = V(3401) - V_USER(2071) = V(2654) - V_USER(2072) = V(2656) - V_USER(2073) = V(4233) - V_USER(2074) = V(1827) - V_USER(2075) = V(2657) - V_USER(2076) = V(1828) - V_USER(2077) = V(1037) - V_USER(2078) = V(4060) - V_USER(2079) = V(4985) - V_USER(2080) = V(1038) - V_USER(2081) = V(1039) - V_USER(2082) = V(4986) - V_USER(2083) = V(1040) - V_USER(2084) = V(3934) - V_USER(2085) = V(318) - V_USER(2086) = V(4674) - V_USER(2087) = V(3481) - V_USER(2088) = V(1830) - V_USER(2089) = V(4086) - V_USER(2090) = V(3197) - V_USER(2091) = V(2670) - V_USER(2092) = V(4379) - V_USER(2093) = V(4364) - V_USER(2094) = V(1041) - V_USER(2095) = V(1042) - V_USER(2096) = V(2675) - V_USER(2097) = V(4665) - V_USER(2098) = V(2677) - V_USER(2099) = V(2678) - V_USER(2100) = V(4491) - V_USER(2101) = V(1831) - V_USER(2102) = V(1043) - V_USER(2103) = V(2684) - V_USER(2104) = V(1832) - V_USER(2105) = V(3914) - V_USER(2106) = V(1044) - V_USER(2107) = V(319) - V_USER(2108) = V(3204) - V_USER(2109) = V(4644) - V_USER(2110) = V(736) - V_USER(2111) = V(1045) - V_USER(2112) = V(2689) - V_USER(2113) = V(2691) - V_USER(2114) = V(3995) - V_USER(2115) = V(320) - V_USER(2116) = V(4739) - V_USER(2117) = V(4623) - V_USER(2118) = V(1046) - V_USER(2119) = V(4888) - V_USER(2120) = V(3823) - V_USER(2121) = V(3968) - V_USER(2122) = V(3985) - V_USER(2123) = V(2698) - V_USER(2124) = V(3805) - V_USER(2125) = V(630) - V_USER(2126) = V(3962) - V_USER(2127) = V(4829) - V_USER(2128) = V(3210) - V_USER(2129) = V(4564) - V_USER(2130) = V(1047) - V_USER(2131) = V(4901) - V_USER(2132) = V(1048) - V_USER(2133) = V(2704) - V_USER(2134) = V(1049) - V_USER(2135) = V(3341) - V_USER(2136) = V(2710) - V_USER(2137) = V(5100) - V_USER(2138) = V(4139) - V_USER(2139) = V(1050) - V_USER(2140) = V(3439) - V_USER(2141) = V(1833) - V_USER(2142) = V(321) - V_USER(2143) = V(1834) - V_USER(2144) = V(322) - V_USER(2145) = V(1581) - V_USER(2146) = V(3680) - V_USER(2147) = V(2716) - V_USER(2148) = V(2719) - V_USER(2149) = V(1835) - V_USER(2150) = V(2721) - V_USER(2151) = V(5002) - V_USER(2152) = V(4976) - V_USER(2153) = V(4426) - V_USER(2154) = V(164) - V_USER(2155) = V(4735) - V_USER(2156) = V(1836) - V_USER(2157) = V(1051) - V_USER(2158) = V(325) - V_USER(2159) = V(631) - V_USER(2160) = V(632) - V_USER(2161) = V(1052) - V_USER(2162) = V(326) - V_USER(2163) = V(2741) - V_USER(2164) = V(4595) - V_USER(2165) = V(1839) - V_USER(2166) = V(4132) - V_USER(2167) = V(3112) - V_USER(2168) = V(3349) - V_USER(2169) = V(633) - V_USER(2170) = V(634) - V_USER(2171) = V(4010) - V_USER(2172) = V(5229) - V_USER(2173) = V(327) - V_USER(2174) = V(5095) - V_USER(2175) = V(4111) - V_USER(2176) = V(3905) - V_USER(2177) = V(4769) - V_USER(2178) = V(1053) - V_USER(2179) = V(4053) - V_USER(2180) = V(1054) - V_USER(2181) = V(4281) - V_USER(2182) = V(3352) - V_USER(2183) = V(5249) - V_USER(2184) = V(1840) - V_USER(2185) = V(1841) - V_USER(2186) = V(3737) - V_USER(2187) = V(3116) - V_USER(2188) = V(1842) - V_USER(2189) = V(3678) - V_USER(2190) = V(5041) - V_USER(2191) = V(1055) - V_USER(2192) = V(4650) - V_USER(2193) = V(2774) - V_USER(2194) = V(2775) - V_USER(2195) = V(1844) - V_USER(2196) = V(66) - V_USER(2197) = V(4398) - V_USER(2198) = V(1845) - V_USER(2199) = V(2780) - V_USER(2200) = V(67) - V_USER(2201) = V(4488) - V_USER(2202) = V(1846) - V_USER(2203) = V(4691) - V_USER(2204) = V(1848) - V_USER(2205) = V(4479) - V_USER(2206) = V(1056) - V_USER(2207) = V(1850) - V_USER(2208) = V(2788) - V_USER(2209) = V(1851) - V_USER(2210) = V(2794) - V_USER(2211) = V(1057) - V_USER(2212) = V(329) - V_USER(2213) = V(635) - V_USER(2214) = V(3850) - V_USER(2215) = V(4929) - V_USER(2216) = V(3852) - V_USER(2217) = V(3123) - V_USER(2218) = V(2803) - V_USER(2219) = V(636) - V_USER(2220) = V(4856) - V_USER(2221) = V(5007) - V_USER(2222) = V(2809) - V_USER(2223) = V(2810) - V_USER(2224) = V(4525) - V_USER(2225) = V(68) - V_USER(2226) = V(1582) - V_USER(2227) = V(4249) - V_USER(2228) = V(1853) - V_USER(2229) = V(1058) - V_USER(2230) = V(2816) - V_USER(2231) = V(4981) - V_USER(2232) = V(4571) - V_USER(2233) = V(330) - V_USER(2234) = V(4120) - V_USER(2235) = V(4420) - V_USER(2236) = V(1854) - V_USER(2237) = V(3375) - V_USER(2238) = V(69) - V_USER(2239) = V(3376) - V_USER(2240) = V(1855) - V_USER(2241) = V(3127) - V_USER(2242) = V(3640) - V_USER(2243) = V(3449) - V_USER(2244) = V(4842) - V_USER(2245) = V(637) - V_USER(2246) = V(1856) - V_USER(2247) = V(1059) - V_USER(2248) = V(3451) - V_USER(2249) = V(1857) - V_USER(2250) = V(4894) - V_USER(2251) = V(331) - V_USER(2252) = V(3509) - V_USER(2253) = V(1060) - V_USER(2254) = V(4790) - V_USER(2255) = V(638) - V_USER(2256) = V(1061) - V_USER(2257) = V(1861) - V_USER(2258) = V(332) - V_USER(2259) = V(2838) - V_USER(2260) = V(2840) - V_USER(2261) = V(3131) - V_USER(2262) = V(4937) - V_USER(2263) = V(1862) - V_USER(2264) = V(70) - V_USER(2265) = V(3878) - V_USER(2266) = V(4905) - V_USER(2267) = V(3701) - V_USER(2268) = V(1863) - V_USER(2269) = V(1864) - V_USER(2270) = V(2861) - V_USER(2271) = V(4816) - V_USER(2272) = V(5073) - V_USER(2273) = V(5042) - V_USER(2274) = V(3257) - V_USER(2275) = V(639) - V_USER(2276) = V(5055) - V_USER(2277) = V(3137) - V_USER(2278) = V(1062) - V_USER(2279) = V(2872) - V_USER(2280) = V(640) - V_USER(2281) = V(4103) - V_USER(2282) = V(1063) - V_USER(2283) = V(333) - V_USER(2284) = V(1871) - V_USER(2285) = V(334) - V_USER(2286) = V(1065) - V_USER(2287) = V(2878) - V_USER(2288) = V(3457) - V_USER(2289) = V(2881) - V_USER(2290) = V(335) - V_USER(2291) = V(4573) - V_USER(2292) = V(1872) - V_USER(2293) = V(4673) - V_USER(2294) = V(1873) - V_USER(2295) = V(1874) - V_USER(2296) = V(4994) - V_USER(2297) = V(3896) - V_USER(2298) = V(4915) - V_USER(2299) = V(2897) - V_USER(2300) = V(336) - V_USER(2301) = V(1067) - V_USER(2302) = V(71) - V_USER(2303) = V(1583) - V_USER(2304) = V(1875) - V_USER(2305) = V(1876) - V_USER(2306) = V(2904) - V_USER(2307) = V(5117) - V_USER(2308) = V(1877) - V_USER(2309) = V(2911) - V_USER(2310) = V(1585) - V_USER(2311) = V(1586) - V_USER(2312) = V(1068) - V_USER(2313) = V(4228) - V_USER(2314) = V(2919) - V_USER(2315) = V(1069) - V_USER(2316) = V(5162) - V_USER(2317) = V(4413) - V_USER(2318) = V(1070) - V_USER(2319) = V(643) - V_USER(2320) = V(3650) - V_USER(2321) = V(338) - V_USER(2322) = V(4345) - V_USER(2323) = V(3911) - V_USER(2324) = V(4416) - V_USER(2325) = V(72) - V_USER(2326) = V(2926) - V_USER(2327) = V(5119) - V_USER(2328) = V(2928) - V_USER(2329) = V(2929) - V_USER(2330) = V(1799) - V_USER(2331) = V(1881) - V_USER(2332) = V(4422) - V_USER(2333) = V(2931) - V_USER(2334) = V(1882) - V_USER(2335) = V(2932) - V_USER(2336) = V(4536) - V_USER(2337) = V(340) - V_USER(2338) = V(4427) - V_USER(2339) = V(3528) - V_USER(2340) = V(1072) - V_USER(2341) = V(1587) - V_USER(2342) = V(5031) - V_USER(2343) = V(1073) - V_USER(2344) = V(1074) - V_USER(2345) = V(644) - V_USER(2346) = V(4034) - V_USER(2347) = V(4432) - V_USER(2348) = V(2950) - V_USER(2349) = V(4913) - V_USER(2350) = V(3931) - V_USER(2351) = V(645) - V_USER(2352) = V(1588) - V_USER(2353) = V(4872) - V_USER(2354) = V(1885) - V_USER(2355) = V(1075) - V_USER(2356) = V(1886) - V_USER(2357) = V(1589) - V_USER(2358) = V(165) - V_USER(2359) = V(1590) - V_USER(2360) = V(4911) - V_USER(2361) = V(73) - V_USER(2362) = V(4259) - V_USER(2363) = V(2966) - V_USER(2364) = V(341) - V_USER(2365) = V(3833) - V_USER(2366) = V(1888) - V_USER(2367) = V(1889) - V_USER(2368) = V(4264) - V_USER(2369) = V(5082) - V_USER(2370) = V(4049) - V_USER(2371) = V(74) - V_USER(2372) = V(1077) - V_USER(2373) = V(3746) - V_USER(2374) = V(342) - V_USER(2375) = V(5228) - V_USER(2376) = V(1078) - V_USER(2377) = V(3161) - V_USER(2378) = V(3624) - V_USER(2379) = V(4267) - V_USER(2380) = V(4148) - V_USER(2381) = V(3539) - V_USER(2382) = V(1890) - V_USER(2383) = V(1891) - V_USER(2384) = V(2989) - V_USER(2385) = V(1892) - V_USER(2386) = V(1079) - V_USER(2387) = V(1080) - V_USER(2388) = V(2996) - V_USER(2389) = V(3949) - V_USER(2390) = V(1893) - V_USER(2391) = V(1894) - V_USER(2392) = V(2999) - V_USER(2393) = V(343) - V_USER(2394) = V(3542) - V_USER(2395) = V(3167) - V_USER(2396) = V(344) - V_USER(2397) = V(3411) - V_USER(2398) = V(1081) - V_USER(2399) = V(3001) - V_USER(2400) = V(3002) - V_USER(2401) = V(3168) - V_USER(2402) = V(4785) - V_USER(2403) = V(1082) - V_USER(2404) = V(3173) - V_USER(2405) = V(166) - V_USER(2406) = V(1083) - V_USER(2407) = V(5128) - V_USER(2408) = V(3548) - V_USER(2409) = V(1895) - V_USER(2410) = V(3763) - V_USER(2411) = V(2488) - V_USER(2412) = V(4794) - V_USER(2413) = V(3550) - V_USER(2414) = V(1084) - V_USER(2415) = V(75) - V_USER(2416) = V(345) - V_USER(2417) = V(1896) - V_USER(2418) = V(5240) - V_USER(2419) = V(3770) - V_USER(2420) = V(1897) - V_USER(2421) = V(1085) - V_USER(2422) = V(1086) - V_USER(2423) = V(1087) - V_USER(2424) = V(1088) - V_USER(2425) = V(167) - V_USER(2426) = V(1592) - V_USER(2427) = V(3772) - V_USER(2428) = V(1593) - V_USER(2429) = V(5163) - V_USER(2430) = V(1089) - V_USER(2431) = V(1900) - V_USER(2432) = V(3034) - V_USER(2433) = V(3035) - V_USER(2434) = V(3039) - V_USER(2435) = V(1901) - V_USER(2436) = V(3973) - V_USER(2437) = V(4589) - V_USER(2438) = V(4678) - V_USER(2439) = V(5153) - V_USER(2440) = V(5004) - V_USER(2441) = V(3046) - V_USER(2442) = V(3048) - V_USER(2443) = V(646) - V_USER(2444) = V(5257) - V_USER(2445) = V(4302) - V_USER(2446) = V(1090) - V_USER(2447) = V(3320) - V_USER(2448) = V(5116) - V_USER(2449) = V(4078) - V_USER(2450) = V(4392) - V_USER(2451) = V(1902) - V_USER(2452) = V(4516) - V_USER(2453) = V(3610) - V_USER(2454) = V(4826) - V_USER(2455) = V(3780) - V_USER(2456) = V(1091) - V_USER(2457) = V(1092) - V_USER(2458) = V(1093) - V_USER(2459) = V(647) - V_USER(2460) = V(1905) - V_USER(2461) = V(1906) - V_USER(2462) = V(3434) - V_USER(2463) = V(3190) - V_USER(2464) = V(4312) - V_USER(2465) = V(4530) - V_USER(2466) = V(1907) - V_USER(2467) = V(3072) - V_USER(2468) = V(1908) - V_USER(2469) = V(1909) - V_USER(2470) = V(4395) - V_USER(2471) = V(4576) - V_USER(2472) = V(648) - V_USER(2473) = V(346) - V_USER(2474) = V(2592) - V_USER(2475) = V(4667) - V_USER(2476) = V(5207) - V_USER(2477) = V(4002) - V_USER(2478) = V(347) - V_USER(2479) = V(4121) - V_USER(2480) = V(3853) - V_USER(2481) = V(1913) - V_USER(2482) = V(4306) - V_USER(2483) = V(649) - V_USER(2484) = V(4200) - V_USER(2485) = V(3279) - V_USER(2486) = V(2944) - V_USER(2487) = V(3537) - V_USER(2488) = V(4876) - V_USER(2489) = V(5252) - V_USER(2490) = V(1) - V_USER(2491) = V(3051) - V_USER(2492) = V(5101) - V_USER(2493) = V(2492) - V_USER(2494) = V(4696) - V_USER(2495) = V(4280) - V_USER(2496) = V(650) - V_USER(2497) = V(2493) - V_USER(2498) = V(4418) - V_USER(2499) = V(4512) - V_USER(2500) = V(4305) - V_USER(2501) = V(2494) - V_USER(2502) = V(1915) - V_USER(2503) = V(4559) - V_USER(2504) = V(4680) - V_USER(2505) = V(168) - V_USER(2506) = V(3229) - V_USER(2507) = V(1096) - V_USER(2508) = V(348) - V_USER(2509) = V(2497) - V_USER(2510) = V(510) - V_USER(2511) = V(1097) - V_USER(2512) = V(1917) - V_USER(2513) = V(1918) - V_USER(2514) = V(1098) - V_USER(2515) = V(3300) - V_USER(2516) = V(1919) - V_USER(2517) = V(3974) - V_USER(2518) = V(3977) - V_USER(2519) = V(2498) - V_USER(2520) = V(1099) - V_USER(2521) = V(3732) - V_USER(2522) = V(4012) - V_USER(2523) = V(4284) - V_USER(2524) = V(2500) - V_USER(2525) = V(349) - V_USER(2526) = V(1920) - V_USER(2527) = V(2501) - V_USER(2528) = V(652) - V_USER(2529) = V(1596) - V_USER(2530) = V(1921) - V_USER(2531) = V(1597) - V_USER(2532) = V(4405) - V_USER(2533) = V(3328) - V_USER(2534) = V(4217) - V_USER(2535) = V(1922) - V_USER(2536) = V(350) - V_USER(2537) = V(1598) - V_USER(2538) = V(351) - V_USER(2539) = V(3621) - V_USER(2540) = V(4686) - V_USER(2541) = V(4509) - V_USER(2542) = V(1100) - V_USER(2543) = V(3443) - V_USER(2544) = V(654) - V_USER(2545) = V(4540) - V_USER(2546) = V(4058) - V_USER(2547) = V(169) - V_USER(2548) = V(1103) - V_USER(2549) = V(1104) - V_USER(2550) = V(1925) - V_USER(2551) = V(4671) - V_USER(2552) = V(1105) - V_USER(2553) = V(4870) - V_USER(2554) = V(5099) - V_USER(2555) = V(3500) - V_USER(2556) = V(1926) - V_USER(2557) = V(3575) - V_USER(2558) = V(1927) - V_USER(2559) = V(352) - V_USER(2560) = V(5150) - V_USER(2561) = V(3690) - V_USER(2562) = V(3245) - V_USER(2563) = V(1106) - V_USER(2564) = V(4184) - V_USER(2565) = V(170) - V_USER(2566) = V(3250) - V_USER(2567) = V(1929) - V_USER(2568) = V(4354) - V_USER(2569) = V(4057) - V_USER(2570) = V(655) - V_USER(2571) = V(1930) - V_USER(2572) = V(2508) - V_USER(2573) = V(1108) - V_USER(2574) = V(4108) - V_USER(2575) = V(5215) - V_USER(2576) = V(3142) - V_USER(2577) = V(5048) - V_USER(2578) = V(4101) - V_USER(2579) = V(3271) - V_USER(2580) = V(1932) - V_USER(2581) = V(2509) - V_USER(2582) = V(4873) - V_USER(2583) = V(1109) - V_USER(2584) = V(4116) - V_USER(2585) = V(3148) - V_USER(2586) = V(1933) - V_USER(2587) = V(656) - V_USER(2588) = V(2511) - V_USER(2589) = V(4612) - V_USER(2590) = V(4435) - V_USER(2591) = V(1599) - V_USER(2592) = V(1935) - V_USER(2593) = V(657) - V_USER(2594) = V(1110) - V_USER(2595) = V(4142) - V_USER(2596) = V(171) - V_USER(2597) = V(3408) - V_USER(2598) = V(4150) - V_USER(2599) = V(3752) - V_USER(2600) = V(2513) - V_USER(2601) = V(2514) - V_USER(2602) = V(1111) - V_USER(2603) = V(354) - V_USER(2604) = V(4375) - V_USER(2605) = V(1936) - V_USER(2606) = V(3971) - V_USER(2607) = V(2516) - V_USER(2608) = V(3976) - V_USER(2609) = V(658) - V_USER(2610) = V(1600) - V_USER(2611) = V(2519) - V_USER(2612) = V(4083) - V_USER(2613) = V(3787) - V_USER(2614) = V(4190) - V_USER(2615) = V(3564) - V_USER(2616) = V(4560) - V_USER(2617) = V(4087) - V_USER(2618) = V(1601) - V_USER(2619) = V(1938) - V_USER(2620) = V(4298) - V_USER(2621) = V(3565) - V_USER(2622) = V(1939) - V_USER(2623) = V(3348) - V_USER(2624) = V(4324) - V_USER(2625) = V(1940) - V_USER(2626) = V(5094) - V_USER(2627) = V(3700) - V_USER(2628) = V(1941) - V_USER(2629) = V(2521) - V_USER(2630) = V(4831) - V_USER(2631) = V(1112) - V_USER(2632) = V(2471) - V_USER(2633) = V(5126) - V_USER(2634) = V(1602) - V_USER(2635) = V(355) - V_USER(2636) = V(4921) - V_USER(2637) = V(4055) - V_USER(2638) = V(1944) - V_USER(2639) = V(3351) - V_USER(2640) = V(1113) - V_USER(2641) = V(2523) - V_USER(2642) = V(2524) - V_USER(2643) = V(4715) - V_USER(2644) = V(4282) - V_USER(2645) = V(2525) - V_USER(2646) = V(2526) - V_USER(2647) = V(3380) - V_USER(2648) = V(1945) - V_USER(2649) = V(1114) - V_USER(2650) = V(4835) - V_USER(2651) = V(356) - V_USER(2652) = V(2528) - V_USER(2653) = V(2357) - V_USER(2654) = V(1946) - V_USER(2655) = V(5079) - V_USER(2656) = V(1947) - V_USER(2657) = V(357) - V_USER(2658) = V(4054) - V_USER(2659) = V(4811) - V_USER(2660) = V(3660) - V_USER(2661) = V(3093) - V_USER(2662) = V(1115) - V_USER(2663) = V(659) - V_USER(2664) = V(3981) - V_USER(2665) = V(1117) - V_USER(2666) = V(1950) - V_USER(2667) = V(76) - V_USER(2668) = V(1951) - V_USER(2669) = V(1119) - V_USER(2670) = V(3898) - V_USER(2671) = V(2531) - V_USER(2672) = V(1373) - V_USER(2673) = V(1953) - V_USER(2674) = V(1604) - V_USER(2675) = V(1120) - V_USER(2676) = V(2532) - V_USER(2677) = V(3638) - V_USER(2678) = V(1121) - V_USER(2679) = V(1122) - V_USER(2680) = V(1123) - V_USER(2681) = V(358) - V_USER(2682) = V(3520) - V_USER(2683) = V(77) - V_USER(2684) = V(660) - V_USER(2685) = V(661) - V_USER(2686) = V(3596) - V_USER(2687) = V(3331) - V_USER(2688) = V(4141) - V_USER(2689) = V(5115) - V_USER(2690) = V(1955) - V_USER(2691) = V(78) - V_USER(2692) = V(79) - V_USER(2693) = V(3692) - V_USER(2694) = V(3332) - V_USER(2695) = V(1124) - V_USER(2696) = V(5071) - V_USER(2697) = V(3762) - V_USER(2698) = V(359) - V_USER(2699) = V(1956) - V_USER(2700) = V(1957) - V_USER(2701) = V(4899) - V_USER(2702) = V(1606) - V_USER(2703) = V(360) - V_USER(2704) = V(1958) - V_USER(2705) = V(1959) - V_USER(2706) = V(3478) - V_USER(2707) = V(361) - V_USER(2708) = V(4670) - V_USER(2709) = V(3901) - V_USER(2710) = V(3103) - V_USER(2711) = V(3919) - V_USER(2712) = V(4698) - V_USER(2713) = V(3437) - V_USER(2714) = V(3483) - V_USER(2715) = V(1961) - V_USER(2716) = V(4383) - V_USER(2717) = V(1127) - V_USER(2718) = V(2472) - V_USER(2719) = V(3868) - V_USER(2720) = V(1128) - V_USER(2721) = V(3883) - V_USER(2722) = V(4202) - V_USER(2723) = V(1607) - V_USER(2724) = V(662) - V_USER(2725) = V(362) - V_USER(2726) = V(6) - V_USER(2727) = V(3219) - V_USER(2728) = V(1963) - V_USER(2729) = V(3813) - V_USER(2730) = V(363) - V_USER(2731) = V(2539) - V_USER(2732) = V(2540) - V_USER(2733) = V(4746) - V_USER(2734) = V(3887) - V_USER(2735) = V(3488) - V_USER(2736) = V(1964) - V_USER(2737) = V(1132) - V_USER(2738) = V(4666) - V_USER(2739) = V(1133) - V_USER(2740) = V(4206) - V_USER(2741) = V(4173) - V_USER(2742) = V(3628) - V_USER(2743) = V(4552) - V_USER(2744) = V(3842) - V_USER(2745) = V(2541) - V_USER(2746) = V(4754) - V_USER(2747) = V(1134) - V_USER(2748) = V(1965) - V_USER(2749) = V(2544) - V_USER(2750) = V(364) - V_USER(2751) = V(80) - V_USER(2752) = V(663) - V_USER(2753) = V(1137) - V_USER(2754) = V(664) - V_USER(2755) = V(1968) - V_USER(2756) = V(1138) - V_USER(2757) = V(1970) - V_USER(2758) = V(2546) - V_USER(2759) = V(1611) - V_USER(2760) = V(1139) - V_USER(2761) = V(4617) - V_USER(2762) = V(1971) - V_USER(2763) = V(2548) - V_USER(2764) = V(3675) - V_USER(2765) = V(365) - V_USER(2766) = V(2549) - V_USER(2767) = V(1140) - V_USER(2768) = V(2550) - V_USER(2769) = V(1141) - V_USER(2770) = V(1612) - V_USER(2771) = V(2551) - V_USER(2772) = V(4129) - V_USER(2773) = V(366) - V_USER(2774) = V(1974) - V_USER(2775) = V(1975) - V_USER(2776) = V(5145) - V_USER(2777) = V(81) - V_USER(2778) = V(3236) - V_USER(2779) = V(4373) - V_USER(2780) = V(1976) - V_USER(2781) = V(1613) - V_USER(2782) = V(82) - V_USER(2783) = V(83) - V_USER(2784) = V(4663) - V_USER(2785) = V(4584) - V_USER(2786) = V(3364) - V_USER(2787) = V(4412) - V_USER(2788) = V(666) - V_USER(2789) = V(667) - V_USER(2790) = V(367) - V_USER(2791) = V(1144) - V_USER(2792) = V(1978) - V_USER(2793) = V(4676) - V_USER(2794) = V(4528) - V_USER(2795) = V(4038) - V_USER(2796) = V(668) - V_USER(2797) = V(1145) - V_USER(2798) = V(669) - V_USER(2799) = V(1146) - V_USER(2800) = V(4781) - V_USER(2801) = V(1147) - V_USER(2802) = V(1148) - V_USER(2803) = V(3242) - V_USER(2804) = V(3139) - V_USER(2805) = V(1979) - V_USER(2806) = V(4506) - V_USER(2807) = V(5057) - V_USER(2808) = V(3688) - V_USER(2809) = V(2558) - V_USER(2810) = V(368) - V_USER(2811) = V(4827) - V_USER(2812) = V(369) - V_USER(2813) = V(1149) - V_USER(2814) = V(371) - V_USER(2815) = V(1151) - V_USER(2816) = V(1152) - V_USER(2817) = V(4752) - V_USER(2818) = V(1982) - V_USER(2819) = V(1983) - V_USER(2820) = V(1984) - V_USER(2821) = V(372) - V_USER(2822) = V(1985) - V_USER(2823) = V(3860) - V_USER(2824) = V(1986) - V_USER(2825) = V(2561) - V_USER(2826) = V(670) - V_USER(2827) = V(3694) - V_USER(2828) = V(1153) - V_USER(2829) = V(1154) - V_USER(2830) = V(1155) - V_USER(2831) = V(1156) - V_USER(2832) = V(1988) - V_USER(2833) = V(671) - V_USER(2834) = V(1989) - V_USER(2835) = V(1990) - V_USER(2836) = V(5023) - V_USER(2837) = V(4982) - V_USER(2838) = V(5160) - V_USER(2839) = V(5049) - V_USER(2840) = V(4590) - V_USER(2841) = V(1991) - V_USER(2842) = V(1157) - V_USER(2843) = V(373) - V_USER(2844) = V(4538) - V_USER(2845) = V(4861) - V_USER(2846) = V(2567) - V_USER(2847) = V(374) - V_USER(2848) = V(5029) - V_USER(2849) = V(4887) - V_USER(2850) = V(3252) - V_USER(2851) = V(4963) - V_USER(2852) = V(1158) - V_USER(2853) = V(1159) - V_USER(2854) = V(4712) - V_USER(2855) = V(3254) - V_USER(2856) = V(4944) - V_USER(2857) = V(2568) - V_USER(2858) = V(1160) - V_USER(2859) = V(1616) - V_USER(2860) = V(2569) - V_USER(2861) = V(3643) - V_USER(2862) = V(2570) - V_USER(2863) = V(1617) - V_USER(2864) = V(1161) - V_USER(2865) = V(672) - V_USER(2866) = V(3514) - V_USER(2867) = V(4201) - V_USER(2868) = V(673) - V_USER(2869) = V(1163) - V_USER(2870) = V(5061) - V_USER(2871) = V(4830) - V_USER(2872) = V(5076) - V_USER(2873) = V(3806) - V_USER(2874) = V(1164) - V_USER(2875) = V(1165) - V_USER(2876) = V(4009) - V_USER(2877) = V(4655) - V_USER(2878) = V(2572) - V_USER(2879) = V(1994) - V_USER(2880) = V(3515) - V_USER(2881) = V(2573) - V_USER(2882) = V(375) - V_USER(2883) = V(2) - V_USER(2884) = V(2574) - V_USER(2885) = V(4882) - V_USER(2886) = V(4522) - V_USER(2887) = V(1995) - V_USER(2888) = V(1996) - V_USER(2889) = V(4394) - V_USER(2890) = V(1997) - V_USER(2891) = V(4998) - V_USER(2892) = V(1998) - V_USER(2893) = V(1999) - V_USER(2894) = V(84) - V_USER(2895) = V(3717) - V_USER(2896) = V(4441) - V_USER(2897) = V(3647) - V_USER(2898) = V(1619) - V_USER(2899) = V(172) - V_USER(2900) = V(1166) - V_USER(2901) = V(376) - V_USER(2902) = V(398) - V_USER(2903) = V(4533) - V_USER(2904) = V(1167) - V_USER(2905) = V(3145) - V_USER(2906) = V(3585) - V_USER(2907) = V(3388) - V_USER(2908) = V(3902) - V_USER(2909) = V(1168) - V_USER(2910) = V(2579) - V_USER(2911) = V(3113) - V_USER(2912) = V(4939) - V_USER(2913) = V(1169) - V_USER(2914) = V(4114) - V_USER(2915) = V(4221) - V_USER(2916) = V(1620) - V_USER(2917) = V(2580) - V_USER(2918) = V(2000) - V_USER(2919) = V(2581) - V_USER(2920) = V(674) - V_USER(2921) = V(4229) - V_USER(2922) = V(2001) - V_USER(2923) = V(2584) - V_USER(2924) = V(377) - V_USER(2925) = V(1171) - V_USER(2926) = V(4524) - V_USER(2927) = V(3278) - V_USER(2928) = V(2473) - V_USER(2929) = V(85) - V_USER(2930) = V(1172) - V_USER(2931) = V(1173) - V_USER(2932) = V(4347) - V_USER(2933) = V(4239) - V_USER(2934) = V(675) - V_USER(2935) = V(5243) - V_USER(2936) = V(1622) - V_USER(2937) = V(4879) - V_USER(2938) = V(2004) - V_USER(2939) = V(4561) - V_USER(2940) = V(4940) - V_USER(2941) = V(5097) - V_USER(2942) = V(2005) - V_USER(2943) = V(173) - V_USER(2944) = V(2006) - V_USER(2945) = V(676) - V_USER(2946) = V(2588) - V_USER(2947) = V(378) - V_USER(2948) = V(3920) - V_USER(2949) = V(5129) - V_USER(2950) = V(677) - V_USER(2951) = V(1175) - V_USER(2952) = V(4622) - V_USER(2953) = V(1176) - V_USER(2954) = V(4036) - V_USER(2955) = V(1781) - V_USER(2956) = V(2590) - V_USER(2957) = V(174) - V_USER(2958) = V(2008) - V_USER(2959) = V(2591) - V_USER(2960) = V(86) - V_USER(2961) = V(3533) - V_USER(2962) = V(1177) - V_USER(2963) = V(1178) - V_USER(2964) = V(379) - V_USER(2965) = V(3288) - V_USER(2966) = V(4632) - V_USER(2967) = V(3534) - V_USER(2968) = V(1624) - V_USER(2969) = V(1180) - V_USER(2970) = V(4871) - V_USER(2971) = V(4542) - V_USER(2972) = V(4638) - V_USER(2973) = V(87) - V_USER(2974) = V(2010) - V_USER(2975) = V(2594) - V_USER(2976) = V(1181) - V_USER(2977) = V(4639) - V_USER(2978) = V(175) - V_USER(2979) = V(5122) - V_USER(2980) = V(380) - V_USER(2981) = V(1182) - V_USER(2982) = V(4699) - V_USER(2983) = V(1183) - V_USER(2984) = V(88) - V_USER(2985) = V(3162) - V_USER(2986) = V(2596) - V_USER(2987) = V(3294) - V_USER(2988) = V(3944) - V_USER(2989) = V(3409) - V_USER(2990) = V(1625) - V_USER(2991) = V(3656) - V_USER(2992) = V(2011) - V_USER(2993) = V(2598) - V_USER(2994) = V(1184) - V_USER(2995) = V(3593) - V_USER(2996) = V(3357) - V_USER(2997) = V(3297) - V_USER(2998) = V(1626) - V_USER(2999) = V(4465) - V_USER(3000) = V(2013) - V_USER(3001) = V(382) - V_USER(3002) = V(2016) - V_USER(3003) = V(5184) - V_USER(3004) = V(679) - V_USER(3005) = V(1186) - V_USER(3006) = V(89) - V_USER(3007) = V(383) - V_USER(3008) = V(3301) - V_USER(3009) = V(1628) - V_USER(3010) = V(1187) - V_USER(3011) = V(3174) - V_USER(3012) = V(3956) - V_USER(3013) = V(4970) - V_USER(3014) = V(2602) - V_USER(3015) = V(90) - V_USER(3016) = V(2603) - V_USER(3017) = V(5235) - V_USER(3018) = V(2019) - V_USER(3019) = V(4376) - V_USER(3020) = V(4847) - V_USER(3021) = V(3771) - V_USER(3022) = V(3555) - V_USER(3023) = V(1188) - V_USER(3024) = V(4380) - V_USER(3025) = V(384) - V_USER(3026) = V(5214) - V_USER(3027) = V(4942) - V_USER(3028) = V(4068) - V_USER(3029) = V(3178) - V_USER(3030) = V(3967) - V_USER(3031) = V(4502) - V_USER(3032) = V(1189) - V_USER(3033) = V(1190) - V_USER(3034) = V(3471) - V_USER(3035) = V(4949) - V_USER(3036) = V(4587) - V_USER(3037) = V(4852) - V_USER(3038) = V(2023) - V_USER(3039) = V(2024) - V_USER(3040) = V(4074) - V_USER(3041) = V(680) - V_USER(3042) = V(3972) - V_USER(3043) = V(2606) - V_USER(3044) = V(2607) - V_USER(3045) = V(4951) - V_USER(3046) = V(4171) - V_USER(3047) = V(176) - V_USER(3048) = V(5186) - V_USER(3049) = V(681) - V_USER(3050) = V(385) - V_USER(3051) = V(4389) - V_USER(3052) = V(386) - V_USER(3053) = V(1630) - V_USER(3054) = V(4605) - V_USER(3055) = V(2609) - V_USER(3056) = V(4175) - V_USER(3057) = V(683) - V_USER(3058) = V(5221) - V_USER(3059) = V(2025) - V_USER(3060) = V(1193) - V_USER(3061) = V(1194) - V_USER(3062) = V(2027) - V_USER(3063) = V(4520) - V_USER(3064) = V(2028) - V_USER(3065) = V(1195) - V_USER(3066) = V(3784) - V_USER(3067) = V(3433) - V_USER(3068) = V(3989) - V_USER(3069) = V(4689) - V_USER(3070) = V(1632) - V_USER(3071) = V(3147) - V_USER(3072) = V(3830) - V_USER(3073) = V(2029) - V_USER(3074) = V(91) - V_USER(3075) = V(2031) - V_USER(3076) = V(1196) - V_USER(3077) = V(3614) - V_USER(3078) = V(1633) - V_USER(3079) = V(2613) - V_USER(3080) = V(2614) - V_USER(3081) = V(2615) - V_USER(3082) = V(2032) - V_USER(3083) = V(1197) - V_USER(3084) = V(2034) - V_USER(3085) = V(1198) - V_USER(3086) = V(3855) - V_USER(3087) = V(3942) - V_USER(3088) = V(2036) - V_USER(3089) = V(1199) - V_USER(3090) = V(4814) - V_USER(3091) = V(3195) - V_USER(3092) = V(3730) - V_USER(3093) = V(4800) - V_USER(3094) = V(5232) - V_USER(3095) = V(92) - V_USER(3096) = V(3438) - V_USER(3097) = V(3198) - V_USER(3098) = V(1200) - V_USER(3099) = V(2618) - V_USER(3100) = V(2619) - V_USER(3101) = V(684) - V_USER(3102) = V(4747) - V_USER(3103) = V(685) - V_USER(3104) = V(686) - V_USER(3105) = V(3479) - V_USER(3106) = V(2037) - V_USER(3107) = V(2038) - V_USER(3108) = V(4442) - V_USER(3109) = V(2039) - V_USER(3110) = V(2475) - V_USER(3111) = V(1634) - V_USER(3112) = V(2621) - V_USER(3113) = V(2622) - V_USER(3114) = V(2040) - V_USER(3115) = V(3671) - V_USER(3116) = V(1635) - V_USER(3117) = V(4601) - V_USER(3118) = V(1201) - V_USER(3119) = V(4466) - V_USER(3120) = V(4356) - V_USER(3121) = V(3237) - V_USER(3122) = V(1202) - V_USER(3123) = V(1203) - V_USER(3124) = V(2624) - V_USER(3125) = V(4093) - V_USER(3126) = V(2625) - V_USER(3127) = V(1204) - V_USER(3128) = V(5040) - V_USER(3129) = V(4701) - V_USER(3130) = V(2043) - V_USER(3131) = V(4660) - V_USER(3132) = V(388) - V_USER(3133) = V(2044) - V_USER(3134) = V(4700) - V_USER(3135) = V(3802) - V_USER(3136) = V(2626) - V_USER(3137) = V(4386) - V_USER(3138) = V(2627) - V_USER(3139) = V(1206) - V_USER(3140) = V(389) - V_USER(3141) = V(3084) - V_USER(3142) = V(4968) - V_USER(3143) = V(1208) - V_USER(3144) = V(93) - V_USER(3145) = V(687) - V_USER(3146) = V(1210) - V_USER(3147) = V(1865) - V_USER(3148) = V(5105) - V_USER(3149) = V(390) - V_USER(3150) = V(4231) - V_USER(3151) = V(1212) - V_USER(3152) = V(177) - V_USER(3153) = V(2046) - V_USER(3154) = V(2629) - V_USER(3155) = V(4327) - V_USER(3156) = V(4675) - V_USER(3157) = V(2047) - V_USER(3158) = V(688) - V_USER(3159) = V(3598) - V_USER(3160) = V(689) - V_USER(3161) = V(4456) - V_USER(3162) = V(1213) - V_USER(3163) = V(1214) - V_USER(3164) = V(4839) - V_USER(3165) = V(5246) - V_USER(3166) = V(690) - V_USER(3167) = V(1215) - V_USER(3168) = V(3601) - V_USER(3169) = V(4069) - V_USER(3170) = V(3543) - V_USER(3171) = V(4156) - V_USER(3172) = V(1216) - V_USER(3173) = V(691) - V_USER(3174) = V(1217) - V_USER(3175) = V(3303) - V_USER(3176) = V(94) - V_USER(3177) = V(4582) - V_USER(3178) = V(692) - V_USER(3179) = V(4115) - V_USER(3180) = V(4397) - V_USER(3181) = V(1218) - V_USER(3182) = V(1219) - V_USER(3183) = V(1220) - V_USER(3184) = V(4504) - V_USER(3185) = V(4075) - V_USER(3186) = V(392) - V_USER(3187) = V(1221) - V_USER(3188) = V(4857) - V_USER(3189) = V(5156) - V_USER(3190) = V(3826) - V_USER(3191) = V(4178) - V_USER(3192) = V(4311) - V_USER(3193) = V(3786) - V_USER(3194) = V(4191) - V_USER(3195) = V(1222) - V_USER(3196) = V(1584) - V_USER(3197) = V(5210) - V_USER(3198) = V(3928) - V_USER(3199) = V(4214) - V_USER(3200) = V(3946) - V_USER(3201) = V(1223) - V_USER(3202) = V(3569) - V_USER(3203) = V(3618) - V_USER(3204) = V(3682) - V_USER(3205) = V(5222) - V_USER(3206) = V(4973) - V_USER(3207) = V(4820) - V_USER(3208) = V(2049) - V_USER(3209) = V(4578) - V_USER(3210) = V(2635) - V_USER(3211) = V(3961) - V_USER(3212) = V(4227) - V_USER(3213) = V(3339) - V_USER(3214) = V(1224) - V_USER(3215) = V(3485) - V_USER(3216) = V(1225) - V_USER(3217) = V(1636) - V_USER(3218) = V(178) - V_USER(3219) = V(5012) - V_USER(3220) = V(1226) - V_USER(3221) = V(3346) - V_USER(3222) = V(3627) - V_USER(3223) = V(4226) - V_USER(3224) = V(3930) - V_USER(3225) = V(2051) - V_USER(3226) = V(3194) - V_USER(3227) = V(3350) - V_USER(3228) = V(1227) - V_USER(3229) = V(2052) - V_USER(3230) = V(693) - V_USER(3231) = V(393) - V_USER(3232) = V(2053) - V_USER(3233) = V(95) - V_USER(3234) = V(1228) - V_USER(3235) = V(96) - V_USER(3236) = V(2056) - V_USER(3237) = V(4216) - V_USER(3238) = V(394) - V_USER(3239) = V(97) - V_USER(3240) = V(1229) - V_USER(3241) = V(3843) - V_USER(3242) = V(3089) - V_USER(3243) = V(694) - V_USER(3244) = V(695) - V_USER(3245) = V(2644) - V_USER(3246) = V(2059) - V_USER(3247) = V(1230) - V_USER(3248) = V(1231) - V_USER(3249) = V(1637) - V_USER(3250) = V(2061) - V_USER(3251) = V(1232) - V_USER(3252) = V(696) - V_USER(3253) = V(2477) - V_USER(3254) = V(2062) - V_USER(3255) = V(5178) - V_USER(3256) = V(179) - V_USER(3257) = V(4098) - V_USER(3258) = V(2063) - V_USER(3259) = V(4006) - V_USER(3260) = V(2064) - V_USER(3261) = V(4802) - V_USER(3262) = V(3711) - V_USER(3263) = V(1638) - V_USER(3264) = V(3895) - V_USER(3265) = V(2065) - V_USER(3266) = V(1234) - V_USER(3267) = V(2066) - V_USER(3268) = V(395) - V_USER(3269) = V(2649) - V_USER(3270) = V(1235) - V_USER(3271) = V(3521) - V_USER(3272) = V(1236) - V_USER(3273) = V(698) - V_USER(3274) = V(2650) - V_USER(3275) = V(1238) - V_USER(3276) = V(3180) - V_USER(3277) = V(3733) - V_USER(3278) = V(2067) - V_USER(3279) = V(396) - V_USER(3280) = V(2653) - V_USER(3281) = V(5195) - V_USER(3282) = V(98) - V_USER(3283) = V(3091) - V_USER(3284) = V(2069) - V_USER(3285) = V(1639) - V_USER(3286) = V(1240) - V_USER(3287) = V(2071) - V_USER(3288) = V(3196) - V_USER(3289) = V(2655) - V_USER(3290) = V(2072) - V_USER(3291) = V(397) - V_USER(3292) = V(2074) - V_USER(3293) = V(4893) - V_USER(3294) = V(3600) - V_USER(3295) = V(2075) - V_USER(3296) = V(4740) - V_USER(3297) = V(2077) - V_USER(3298) = V(1654) - V_USER(3299) = V(3948) - V_USER(3300) = V(2078) - V_USER(3301) = V(4649) - V_USER(3302) = V(180) - V_USER(3303) = V(3546) - V_USER(3304) = V(3744) - V_USER(3305) = V(181) - V_USER(3306) = V(399) - V_USER(3307) = V(2079) - V_USER(3308) = V(699) - V_USER(3309) = V(4162) - V_USER(3310) = V(4091) - V_USER(3311) = V(1243) - V_USER(3312) = V(2080) - V_USER(3313) = V(4495) - V_USER(3314) = V(3092) - V_USER(3315) = V(1244) - V_USER(3316) = V(3774) - V_USER(3317) = V(2081) - V_USER(3318) = V(1642) - V_USER(3319) = V(4619) - V_USER(3320) = V(5006) - V_USER(3321) = V(1643) - V_USER(3322) = V(2663) - V_USER(3323) = V(400) - V_USER(3324) = V(4177) - V_USER(3325) = V(3781) - V_USER(3326) = V(5169) - V_USER(3327) = V(3663) - V_USER(3328) = V(2083) - V_USER(3329) = V(2665) - V_USER(3330) = V(700) - V_USER(3331) = V(4783) - V_USER(3332) = V(3922) - V_USER(3333) = V(3464) - V_USER(3334) = V(401) - V_USER(3335) = V(4444) - V_USER(3336) = V(2084) - V_USER(3337) = V(4235) - V_USER(3338) = V(1245) - V_USER(3339) = V(4323) - V_USER(3340) = V(2085) - V_USER(3341) = V(2666) - V_USER(3342) = V(402) - V_USER(3343) = V(4240) - V_USER(3344) = V(701) - V_USER(3345) = V(2087) - V_USER(3346) = V(2667) - V_USER(3347) = V(2089) - V_USER(3348) = V(2090) - V_USER(3349) = V(99) - V_USER(3350) = V(2668) - V_USER(3351) = V(5104) - V_USER(3352) = V(2669) - V_USER(3353) = V(100) - V_USER(3354) = V(3199) - V_USER(3355) = V(2091) - V_USER(3356) = V(1246) - V_USER(3357) = V(2671) - V_USER(3358) = V(403) - V_USER(3359) = V(2093) - V_USER(3360) = V(3446) - V_USER(3361) = V(3201) - V_USER(3362) = V(1247) - V_USER(3363) = V(2672) - V_USER(3364) = V(3839) - V_USER(3365) = V(406) - V_USER(3366) = V(2095) - V_USER(3367) = V(407) - V_USER(3368) = V(182) - V_USER(3369) = V(1645) - V_USER(3370) = V(4066) - V_USER(3371) = V(2096) - V_USER(3372) = V(5236) - V_USER(3373) = V(4960) - V_USER(3374) = V(2676) - V_USER(3375) = V(4118) - V_USER(3376) = V(1248) - V_USER(3377) = V(3861) - V_USER(3378) = V(2098) - V_USER(3379) = V(4832) - V_USER(3380) = V(703) - V_USER(3381) = V(1250) - V_USER(3382) = V(1251) - V_USER(3383) = V(1647) - V_USER(3384) = V(3581) - V_USER(3385) = V(2680) - V_USER(3386) = V(2101) - V_USER(3387) = V(4112) - V_USER(3388) = V(2681) - V_USER(3389) = V(2682) - V_USER(3390) = V(704) - V_USER(3391) = V(3203) - V_USER(3392) = V(4230) - V_USER(3393) = V(4717) - V_USER(3394) = V(2103) - V_USER(3395) = V(5032) - V_USER(3396) = V(408) - V_USER(3397) = V(2105) - V_USER(3398) = V(3530) - V_USER(3399) = V(705) - V_USER(3400) = V(4130) - V_USER(3401) = V(3462) - V_USER(3402) = V(2106) - V_USER(3403) = V(4134) - V_USER(3404) = V(2107) - V_USER(3405) = V(409) - V_USER(3406) = V(3821) - V_USER(3407) = V(2686) - V_USER(3408) = V(2687) - V_USER(3409) = V(706) - V_USER(3410) = V(707) - V_USER(3411) = V(2109) - V_USER(3412) = V(3097) - V_USER(3413) = V(708) - V_USER(3414) = V(4709) - V_USER(3415) = V(1254) - V_USER(3416) = V(1648) - V_USER(3417) = V(1255) - V_USER(3418) = V(2111) - V_USER(3419) = V(5146) - V_USER(3420) = V(4581) - V_USER(3421) = V(2688) - V_USER(3422) = V(3427) - V_USER(3423) = V(5149) - V_USER(3424) = V(1650) - V_USER(3425) = V(4167) - V_USER(3426) = V(4396) - V_USER(3427) = V(1651) - V_USER(3428) = V(3205) - V_USER(3429) = V(1652) - V_USER(3430) = V(2690) - V_USER(3431) = V(3560) - V_USER(3432) = V(4519) - V_USER(3433) = V(4823) - V_USER(3434) = V(1256) - V_USER(3435) = V(4594) - V_USER(3436) = V(709) - V_USER(3437) = V(2113) - V_USER(3438) = V(4332) - V_USER(3439) = V(3207) - V_USER(3440) = V(3100) - V_USER(3441) = V(410) - V_USER(3442) = V(4743) - V_USER(3443) = V(3101) - V_USER(3444) = V(2114) - V_USER(3445) = V(411) - V_USER(3446) = V(4349) - V_USER(3447) = V(2115) - V_USER(3448) = V(1653) - V_USER(3449) = V(1257) - V_USER(3450) = V(4768) - V_USER(3451) = V(2692) - V_USER(3452) = V(3864) - V_USER(3453) = V(412) - V_USER(3454) = V(3870) - V_USER(3455) = V(653) - V_USER(3456) = V(1258) - V_USER(3457) = V(2693) - V_USER(3458) = V(413) - V_USER(3459) = V(4950) - V_USER(3460) = V(1655) - V_USER(3461) = V(1259) - V_USER(3462) = V(5043) - V_USER(3463) = V(3208) - V_USER(3464) = V(2117) - V_USER(3465) = V(3333) - V_USER(3466) = V(2118) - V_USER(3467) = V(4360) - V_USER(3468) = V(3757) - V_USER(3469) = V(1260) - V_USER(3470) = V(2119) - V_USER(3471) = V(2696) - V_USER(3472) = V(1261) - V_USER(3473) = V(2121) - V_USER(3474) = V(2122) - V_USER(3475) = V(2697) - V_USER(3476) = V(2035) - V_USER(3477) = V(710) - V_USER(3478) = V(1262) - V_USER(3479) = V(3876) - V_USER(3480) = V(1263) - V_USER(3481) = V(1658) - V_USER(3482) = V(4238) - V_USER(3483) = V(2125) - V_USER(3484) = V(3476) - V_USER(3485) = V(711) - V_USER(3486) = V(2126) - V_USER(3487) = V(2127) - V_USER(3488) = V(4417) - V_USER(3489) = V(2128) - V_USER(3490) = V(3723) - V_USER(3491) = V(1265) - V_USER(3492) = V(414) - V_USER(3493) = V(712) - V_USER(3494) = V(4404) - V_USER(3495) = V(4956) - V_USER(3496) = V(3958) - V_USER(3497) = V(2699) - V_USER(3498) = V(3336) - V_USER(3499) = V(3633) - V_USER(3500) = V(183) - V_USER(3501) = V(713) - V_USER(3502) = V(415) - V_USER(3503) = V(1268) - V_USER(3504) = V(2701) - V_USER(3505) = V(184) - V_USER(3506) = V(5154) - V_USER(3507) = V(1269) - V_USER(3508) = V(2132) - V_USER(3509) = V(3641) - V_USER(3510) = V(1270) - V_USER(3511) = V(185) - V_USER(3512) = V(1661) - V_USER(3513) = V(1271) - V_USER(3514) = V(4212) - V_USER(3515) = V(3477) - V_USER(3516) = V(3664) - V_USER(3517) = V(3338) - V_USER(3518) = V(2134) - V_USER(3519) = V(2705) - V_USER(3520) = V(4016) - V_USER(3521) = V(2706) - V_USER(3522) = V(2707) - V_USER(3523) = V(2708) - V_USER(3524) = V(2709) - V_USER(3525) = V(3587) - V_USER(3526) = V(3104) - V_USER(3527) = V(4117) - V_USER(3528) = V(101) - V_USER(3529) = V(2135) - V_USER(3530) = V(3105) - V_USER(3531) = V(3738) - V_USER(3532) = V(2136) - V_USER(3533) = V(4624) - V_USER(3534) = V(1272) - V_USER(3535) = V(3106) - V_USER(3536) = V(4260) - V_USER(3537) = V(3342) - V_USER(3538) = V(1273) - V_USER(3539) = V(2711) - V_USER(3540) = V(4145) - V_USER(3541) = V(416) - V_USER(3542) = V(4721) - V_USER(3543) = V(417) - V_USER(3544) = V(716) - V_USER(3545) = V(3343) - V_USER(3546) = V(2139) - V_USER(3547) = V(3800) - V_USER(3548) = V(717) - V_USER(3549) = V(3602) - V_USER(3550) = V(2140) - V_USER(3551) = V(102) - V_USER(3552) = V(418) - V_USER(3553) = V(1275) - V_USER(3554) = V(2713) - V_USER(3555) = V(2714) - V_USER(3556) = V(103) - V_USER(3557) = V(104) - V_USER(3558) = V(4669) - V_USER(3559) = V(2715) - V_USER(3560) = V(718) - V_USER(3561) = V(1276) - V_USER(3562) = V(2143) - V_USER(3563) = V(105) - V_USER(3564) = V(106) - V_USER(3565) = V(3345) - V_USER(3566) = V(4532) - V_USER(3567) = V(1277) - V_USER(3568) = V(1278) - V_USER(3569) = V(2145) - V_USER(3570) = V(719) - V_USER(3571) = V(1279) - V_USER(3572) = V(3107) - V_USER(3573) = V(419) - V_USER(3574) = V(1280) - V_USER(3575) = V(4196) - V_USER(3576) = V(3796) - V_USER(3577) = V(2147) - V_USER(3578) = V(1723) - V_USER(3579) = V(1281) - V_USER(3580) = V(2148) - V_USER(3581) = V(1282) - V_USER(3582) = V(3486) - V_USER(3583) = V(1664) - V_USER(3584) = V(1283) - V_USER(3585) = V(2150) - V_USER(3586) = V(1284) - V_USER(3587) = V(1285) - V_USER(3588) = V(1286) - V_USER(3589) = V(420) - V_USER(3590) = V(4022) - V_USER(3591) = V(4339) - V_USER(3592) = V(3487) - V_USER(3593) = V(5224) - V_USER(3594) = V(2723) - V_USER(3595) = V(3441) - V_USER(3596) = V(4693) - V_USER(3597) = V(2152) - V_USER(3598) = V(186) - V_USER(3599) = V(4138) - V_USER(3600) = V(4090) - V_USER(3601) = V(3109) - V_USER(3602) = V(720) - V_USER(3603) = V(5219) - V_USER(3604) = V(1287) - V_USER(3605) = V(4158) - V_USER(3606) = V(3215) - V_USER(3607) = V(2154) - V_USER(3608) = V(5189) - V_USER(3609) = V(4330) - V_USER(3610) = V(4390) - V_USER(3611) = V(721) - V_USER(3612) = V(722) - V_USER(3613) = V(2155) - V_USER(3614) = V(107) - V_USER(3615) = V(4529) - V_USER(3616) = V(2724) - V_USER(3617) = V(723) - V_USER(3618) = V(1289) - V_USER(3619) = V(2725) - V_USER(3620) = V(4961) - V_USER(3621) = V(421) - V_USER(3622) = V(4616) - V_USER(3623) = V(2726) - V_USER(3624) = V(2727) - V_USER(3625) = V(2728) - V_USER(3626) = V(724) - V_USER(3627) = V(108) - V_USER(3628) = V(3778) - V_USER(3629) = V(1291) - V_USER(3630) = V(422) - V_USER(3631) = V(2158) - V_USER(3632) = V(4372) - V_USER(3633) = V(2730) - V_USER(3634) = V(725) - V_USER(3635) = V(4475) - V_USER(3636) = V(3844) - V_USER(3637) = V(1292) - V_USER(3638) = V(2731) - V_USER(3639) = V(4490) - V_USER(3640) = V(1666) - V_USER(3641) = V(4751) - V_USER(3642) = V(3220) - V_USER(3643) = V(109) - V_USER(3644) = V(4451) - V_USER(3645) = V(4843) - V_USER(3646) = V(110) - V_USER(3647) = V(5258) - V_USER(3648) = V(2733) - V_USER(3649) = V(4213) - V_USER(3650) = V(2734) - V_USER(3651) = V(3221) - V_USER(3652) = V(3489) - V_USER(3653) = V(726) - V_USER(3654) = V(727) - V_USER(3655) = V(2735) - V_USER(3656) = V(2478) - V_USER(3657) = V(1293) - V_USER(3658) = V(3347) - V_USER(3659) = V(2160) - V_USER(3660) = V(2161) - V_USER(3661) = V(2737) - V_USER(3662) = V(1294) - V_USER(3663) = V(4294) - V_USER(3664) = V(2162) - V_USER(3665) = V(4309) - V_USER(3666) = V(4102) - V_USER(3667) = V(4185) - V_USER(3668) = V(1295) - V_USER(3669) = V(4974) - V_USER(3670) = V(1296) - V_USER(3671) = V(4026) - V_USER(3672) = V(2738) - V_USER(3673) = V(2739) - V_USER(3674) = V(728) - V_USER(3675) = V(3490) - V_USER(3676) = V(3110) - V_USER(3677) = V(2740) - V_USER(3678) = V(423) - V_USER(3679) = V(2164) - V_USER(3680) = V(729) - V_USER(3681) = V(5108) - V_USER(3682) = V(2742) - V_USER(3683) = V(424) - V_USER(3684) = V(2167) - V_USER(3685) = V(1297) - V_USER(3686) = V(1298) - V_USER(3687) = V(3629) - V_USER(3688) = V(2744) - V_USER(3689) = V(2745) - V_USER(3690) = V(111) - V_USER(3691) = V(1299) - V_USER(3692) = V(1300) - V_USER(3693) = V(4464) - V_USER(3694) = V(4273) - V_USER(3695) = V(2168) - V_USER(3696) = V(112) - V_USER(3697) = V(3867) - V_USER(3698) = V(5250) - V_USER(3699) = V(2748) - V_USER(3700) = V(3630) - V_USER(3701) = V(4588) - V_USER(3702) = V(2169) - V_USER(3703) = V(730) - V_USER(3704) = V(3491) - V_USER(3705) = V(3670) - V_USER(3706) = V(731) - V_USER(3707) = V(2750) - V_USER(3708) = V(1668) - V_USER(3709) = V(2171) - V_USER(3710) = V(4279) - V_USER(3711) = V(425) - V_USER(3712) = V(732) - V_USER(3713) = V(2751) - V_USER(3714) = V(1669) - V_USER(3715) = V(4496) - V_USER(3716) = V(113) - V_USER(3717) = V(3492) - V_USER(3718) = V(426) - V_USER(3719) = V(4997) - V_USER(3720) = V(4643) - V_USER(3721) = V(2175) - V_USER(3722) = V(3225) - V_USER(3723) = V(5081) - V_USER(3724) = V(4566) - V_USER(3725) = V(3672) - V_USER(3726) = V(1303) - V_USER(3727) = V(5121) - V_USER(3728) = V(1671) - V_USER(3729) = V(3226) - V_USER(3730) = V(5167) - V_USER(3731) = V(4774) - V_USER(3732) = V(2176) - V_USER(3733) = V(4344) - V_USER(3734) = V(3909) - V_USER(3735) = V(427) - V_USER(3736) = V(3673) - V_USER(3737) = V(2177) - V_USER(3738) = V(5065) - V_USER(3739) = V(2178) - V_USER(3740) = V(2752) - V_USER(3741) = V(1304) - V_USER(3742) = V(4431) - V_USER(3743) = V(2753) - V_USER(3744) = V(4252) - V_USER(3745) = V(3925) - V_USER(3746) = V(734) - V_USER(3747) = V(3799) - V_USER(3748) = V(2754) - V_USER(3749) = V(3943) - V_USER(3750) = V(1672) - V_USER(3751) = V(428) - V_USER(3752) = V(735) - V_USER(3753) = V(2856) - V_USER(3754) = V(2755) - V_USER(3755) = V(3493) - V_USER(3756) = V(4702) - V_USER(3757) = V(2756) - V_USER(3758) = V(3568) - V_USER(3759) = V(737) - V_USER(3760) = V(2180) - V_USER(3761) = V(4471) - V_USER(3762) = V(4789) - V_USER(3763) = V(2757) - V_USER(3764) = V(429) - V_USER(3765) = V(5093) - V_USER(3766) = V(2758) - V_USER(3767) = V(2182) - V_USER(3768) = V(2759) - V_USER(3769) = V(4286) - V_USER(3770) = V(3230) - V_USER(3771) = V(430) - V_USER(3772) = V(2760) - V_USER(3773) = V(2761) - V_USER(3774) = V(4295) - V_USER(3775) = V(1305) - V_USER(3776) = V(3570) - V_USER(3777) = V(4557) - V_USER(3778) = V(2183) - V_USER(3779) = V(4329) - V_USER(3780) = V(1306) - V_USER(3781) = V(2764) - V_USER(3782) = V(3231) - V_USER(3783) = V(1673) - V_USER(3784) = V(187) - V_USER(3785) = V(3827) - V_USER(3786) = V(431) - V_USER(3787) = V(3828) - V_USER(3788) = V(738) - V_USER(3789) = V(1307) - V_USER(3790) = V(4930) - V_USER(3791) = V(3358) - V_USER(3792) = V(739) - V_USER(3793) = V(4459) - V_USER(3794) = V(2766) - V_USER(3795) = V(4625) - V_USER(3796) = V(3848) - V_USER(3797) = V(2767) - V_USER(3798) = V(2186) - V_USER(3799) = V(432) - V_USER(3800) = V(4875) - V_USER(3801) = V(1675) - V_USER(3802) = V(1310) - V_USER(3803) = V(5194) - V_USER(3804) = V(1676) - V_USER(3805) = V(3495) - V_USER(3806) = V(5237) - V_USER(3807) = V(2187) - V_USER(3808) = V(4008) - V_USER(3809) = V(3117) - V_USER(3810) = V(1311) - V_USER(3811) = V(2188) - V_USER(3812) = V(2189) - V_USER(3813) = V(4687) - V_USER(3814) = V(433) - V_USER(3815) = V(1312) - V_USER(3816) = V(3496) - V_USER(3817) = V(2190) - V_USER(3818) = V(2771) - V_USER(3819) = V(2191) - V_USER(3820) = V(1313) - V_USER(3821) = V(2192) - V_USER(3822) = V(2772) - V_USER(3823) = V(3118) - V_USER(3824) = V(434) - V_USER(3825) = V(2773) - V_USER(3826) = V(4350) - V_USER(3827) = V(114) - V_USER(3828) = V(2193) - V_USER(3829) = V(2194) - V_USER(3830) = V(3447) - V_USER(3831) = V(3572) - V_USER(3832) = V(1315) - V_USER(3833) = V(3681) - V_USER(3834) = V(2076) - V_USER(3835) = V(4140) - V_USER(3836) = V(4293) - V_USER(3837) = V(1678) - V_USER(3838) = V(4434) - V_USER(3839) = V(4962) - V_USER(3840) = V(4064) - V_USER(3841) = V(4635) - V_USER(3842) = V(4537) - V_USER(3843) = V(4859) - V_USER(3844) = V(3573) - V_USER(3845) = V(3235) - V_USER(3846) = V(740) - V_USER(3847) = V(2777) - V_USER(3848) = V(2197) - V_USER(3849) = V(1317) - V_USER(3850) = V(435) - V_USER(3851) = V(115) - V_USER(3852) = V(2778) - V_USER(3853) = V(436) - V_USER(3854) = V(437) - V_USER(3855) = V(1319) - V_USER(3856) = V(3497) - V_USER(3857) = V(2199) - V_USER(3858) = V(3818) - V_USER(3859) = V(1320) - V_USER(3860) = V(3361) - V_USER(3861) = V(5086) - V_USER(3862) = V(3362) - V_USER(3863) = V(3790) - V_USER(3864) = V(1321) - V_USER(3865) = V(3791) - V_USER(3866) = V(4511) - V_USER(3867) = V(2201) - V_USER(3868) = V(5120) - V_USER(3869) = V(2781) - V_USER(3870) = V(4257) - V_USER(3871) = V(1322) - V_USER(3872) = V(2203) - V_USER(3873) = V(3683) - V_USER(3874) = V(4505) - V_USER(3875) = V(2204) - V_USER(3876) = V(3121) - V_USER(3877) = V(2783) - V_USER(3878) = V(1323) - V_USER(3879) = V(4258) - V_USER(3880) = V(1324) - V_USER(3881) = V(3841) - V_USER(3882) = V(2785) - V_USER(3883) = V(741) - V_USER(3884) = V(2206) - V_USER(3885) = V(116) - V_USER(3886) = V(2786) - V_USER(3887) = V(2787) - V_USER(3888) = V(4850) - V_USER(3889) = V(742) - V_USER(3890) = V(3238) - V_USER(3891) = V(4544) - V_USER(3892) = V(4545) - V_USER(3893) = V(3792) - V_USER(3894) = V(3812) - V_USER(3895) = V(2208) - V_USER(3896) = V(4526) - V_USER(3897) = V(4818) - V_USER(3898) = V(4922) - V_USER(3899) = V(4777) - V_USER(3900) = V(3366) - V_USER(3901) = V(439) - V_USER(3902) = V(3239) - V_USER(3903) = V(743) - V_USER(3904) = V(3634) - V_USER(3905) = V(3687) - V_USER(3906) = V(440) - V_USER(3907) = V(744) - V_USER(3908) = V(5039) - V_USER(3909) = V(2789) - V_USER(3910) = V(3849) - V_USER(3911) = V(1325) - V_USER(3912) = V(3499) - V_USER(3913) = V(7) - V_USER(3914) = V(2479) - V_USER(3915) = V(745) - V_USER(3916) = V(3845) - V_USER(3917) = V(5206) - V_USER(3918) = V(2791) - V_USER(3919) = V(4126) - V_USER(3920) = V(1326) - V_USER(3921) = V(3846) - V_USER(3922) = V(1327) - V_USER(3923) = V(3847) - V_USER(3924) = V(3635) - V_USER(3925) = V(442) - V_USER(3926) = V(1681) - V_USER(3927) = V(4254) - V_USER(3928) = V(4725) - V_USER(3929) = V(2795) - V_USER(3930) = V(4051) - V_USER(3931) = V(4629) - V_USER(3932) = V(444) - V_USER(3933) = V(2797) - V_USER(3934) = V(491) - V_USER(3935) = V(1682) - V_USER(3936) = V(4358) - V_USER(3937) = V(2213) - V_USER(3938) = V(4447) - V_USER(3939) = V(445) - V_USER(3940) = V(3367) - V_USER(3941) = V(4890) - V_USER(3942) = V(3501) - V_USER(3943) = V(3241) - V_USER(3944) = V(4880) - V_USER(3945) = V(1329) - V_USER(3946) = V(5063) - V_USER(3947) = V(4056) - V_USER(3948) = V(2214) - V_USER(3949) = V(3502) - V_USER(3950) = V(4059) - V_USER(3951) = V(1683) - V_USER(3952) = V(4705) - V_USER(3953) = V(3216) - V_USER(3954) = V(5137) - V_USER(3955) = V(747) - V_USER(3956) = V(2217) - V_USER(3957) = V(2802) - V_USER(3958) = V(1330) - V_USER(3959) = V(5030) - V_USER(3960) = V(3368) - V_USER(3961) = V(4159) - V_USER(3962) = V(3576) - V_USER(3963) = V(4478) - V_USER(3964) = V(1331) - V_USER(3965) = V(4290) - V_USER(3966) = V(3124) - V_USER(3967) = V(446) - V_USER(3968) = V(2218) - V_USER(3969) = V(3503) - V_USER(3970) = V(1333) - V_USER(3971) = V(447) - V_USER(3972) = V(3370) - V_USER(3973) = V(4073) - V_USER(3974) = V(1712) - V_USER(3975) = V(2805) - V_USER(3976) = V(2220) - V_USER(3977) = V(3504) - V_USER(3978) = V(3636) - V_USER(3979) = V(3371) - V_USER(3980) = V(2806) - V_USER(3981) = V(2807) - V_USER(3982) = V(2221) - V_USER(3983) = V(117) - V_USER(3984) = V(1773) - V_USER(3985) = V(2222) - V_USER(3986) = V(448) - V_USER(3987) = V(118) - V_USER(3988) = V(1335) - V_USER(3989) = V(3857) - V_USER(3990) = V(2812) - V_USER(3991) = V(4854) - V_USER(3992) = V(2224) - V_USER(3993) = V(4885) - V_USER(3994) = V(3797) - V_USER(3995) = V(3125) - V_USER(3996) = V(2225) - V_USER(3997) = V(1336) - V_USER(3998) = V(119) - V_USER(3999) = V(120) - V_USER(4000) = V(1337) - V_USER(4001) = V(3996) - V_USER(4002) = V(3745) - V_USER(4003) = V(4462) - V_USER(4004) = V(2227) - V_USER(4005) = V(2814) - V_USER(4006) = V(1338) - V_USER(4007) = V(4764) - V_USER(4008) = V(4199) - V_USER(4009) = V(5165) - V_USER(4010) = V(3505) - V_USER(4011) = V(2815) - V_USER(4012) = V(1685) - V_USER(4013) = V(4328) - V_USER(4014) = V(4596) - V_USER(4015) = V(4181) - V_USER(4016) = V(2229) - V_USER(4017) = V(3000) - V_USER(4018) = V(4535) - V_USER(4019) = V(1339) - V_USER(4020) = V(4688) - V_USER(4021) = V(1340) - V_USER(4022) = V(1341) - V_USER(4023) = V(4113) - V_USER(4024) = V(3858) - V_USER(4025) = V(4697) - V_USER(4026) = V(4222) - V_USER(4027) = V(1342) - V_USER(4028) = V(2818) - V_USER(4029) = V(3997) - V_USER(4030) = V(1343) - V_USER(4031) = V(2234) - V_USER(4032) = V(748) - V_USER(4033) = V(1344) - V_USER(4034) = V(1686) - V_USER(4035) = V(188) - V_USER(4036) = V(3374) - V_USER(4037) = V(2819) - V_USER(4038) = V(3831) - V_USER(4039) = V(2820) - V_USER(4040) = V(3859) - V_USER(4041) = V(3639) - V_USER(4042) = V(1345) - V_USER(4043) = V(749) - V_USER(4044) = V(1688) - V_USER(4045) = V(4443) - V_USER(4046) = V(3244) - V_USER(4047) = V(1346) - V_USER(4048) = V(2236) - V_USER(4049) = V(2237) - V_USER(4050) = V(4947) - V_USER(4051) = V(189) - V_USER(4052) = V(1347) - V_USER(4053) = V(4757) - V_USER(4054) = V(2239) - V_USER(4055) = V(1689) - V_USER(4056) = V(750) - V_USER(4057) = V(5017) - V_USER(4058) = V(2240) - V_USER(4059) = V(2824) - V_USER(4060) = V(2241) - V_USER(4061) = V(4742) - V_USER(4062) = V(1348) - V_USER(4063) = V(3246) - V_USER(4064) = V(2243) - V_USER(4065) = V(4366) - V_USER(4066) = V(1349) - V_USER(4067) = V(3247) - V_USER(4068) = V(449) - V_USER(4069) = V(4292) - V_USER(4070) = V(2246) - V_USER(4071) = V(4365) - V_USER(4072) = V(2247) - V_USER(4073) = V(2826) - V_USER(4074) = V(751) - V_USER(4075) = V(4299) - V_USER(4076) = V(752) - V_USER(4077) = V(5060) - V_USER(4078) = V(3450) - V_USER(4079) = V(1350) - V_USER(4080) = V(2248) - V_USER(4081) = V(190) - V_USER(4082) = V(1351) - V_USER(4083) = V(5193) - V_USER(4084) = V(450) - V_USER(4085) = V(1352) - V_USER(4086) = V(3508) - V_USER(4087) = V(4000) - V_USER(4088) = V(121) - V_USER(4089) = V(5247) - V_USER(4090) = V(2832) - V_USER(4091) = V(2249) - V_USER(4092) = V(3577) - V_USER(4093) = V(2250) - V_USER(4094) = V(753) - V_USER(4095) = V(2833) - V_USER(4096) = V(3296) - V_USER(4097) = V(2834) - V_USER(4098) = V(1353) - V_USER(4099) = V(3869) - V_USER(4100) = V(3452) - V_USER(4101) = V(2252) - V_USER(4102) = V(451) - V_USER(4103) = V(3128) - V_USER(4104) = V(4342) - V_USER(4105) = V(191) - V_USER(4106) = V(2253) - V_USER(4107) = V(2254) - V_USER(4108) = V(1354) - V_USER(4109) = V(3872) - V_USER(4110) = V(5213) - V_USER(4111) = V(5110) - V_USER(4112) = V(1355) - V_USER(4113) = V(3773) - V_USER(4114) = V(2256) - V_USER(4115) = V(2257) - V_USER(4116) = V(2836) - V_USER(4117) = V(3453) - V_USER(4118) = V(3129) - V_USER(4119) = V(122) - V_USER(4120) = V(1357) - V_USER(4121) = V(754) - V_USER(4122) = V(123) - V_USER(4123) = V(2839) - V_USER(4124) = V(2260) - V_USER(4125) = V(755) - V_USER(4126) = V(4245) - V_USER(4127) = V(3874) - V_USER(4128) = V(2841) - V_USER(4129) = V(1359) - V_USER(4130) = V(4248) - V_USER(4131) = V(2842) - V_USER(4132) = V(756) - V_USER(4133) = V(2843) - V_USER(4134) = V(2844) - V_USER(4135) = V(2845) - V_USER(4136) = V(2846) - V_USER(4137) = V(4613) - V_USER(4138) = V(1691) - V_USER(4139) = V(1692) - V_USER(4140) = V(2848) - V_USER(4141) = V(4262) - V_USER(4142) = V(4014) - V_USER(4143) = V(1693) - V_USER(4144) = V(2849) - V_USER(4145) = V(1360) - V_USER(4146) = V(5112) - V_USER(4147) = V(4485) - V_USER(4148) = V(1361) - V_USER(4149) = V(452) - V_USER(4150) = V(3132) - V_USER(4151) = V(757) - V_USER(4152) = V(3511) - V_USER(4153) = V(2263) - V_USER(4154) = V(4092) - V_USER(4155) = V(758) - V_USER(4156) = V(124) - V_USER(4157) = V(5103) - V_USER(4158) = V(4470) - V_USER(4159) = V(4602) - V_USER(4160) = V(2852) - V_USER(4161) = V(2853) - V_USER(4162) = V(453) - V_USER(4163) = V(3875) - V_USER(4164) = V(3513) - V_USER(4165) = V(4003) - V_USER(4166) = V(4084) - V_USER(4167) = V(3133) - V_USER(4168) = V(2855) - V_USER(4169) = V(5074) - V_USER(4170) = V(3877) - V_USER(4171) = V(2857) - V_USER(4172) = V(3699) - V_USER(4173) = V(454) - V_USER(4174) = V(5227) - V_USER(4175) = V(1362) - V_USER(4176) = V(5062) - V_USER(4177) = V(3879) - V_USER(4178) = V(4515) - V_USER(4179) = V(4551) - V_USER(4180) = V(2858) - V_USER(4181) = V(4096) - V_USER(4182) = V(1363) - V_USER(4183) = V(2266) - V_USER(4184) = V(3134) - V_USER(4185) = V(2267) - V_USER(4186) = V(2859) - V_USER(4187) = V(4874) - V_USER(4188) = V(455) - V_USER(4189) = V(1364) - V_USER(4190) = V(3702) - V_USER(4191) = V(3255) - V_USER(4192) = V(3619) - V_USER(4193) = V(456) - V_USER(4194) = V(3803) - V_USER(4195) = V(2860) - V_USER(4196) = V(2269) - V_USER(4197) = V(1365) - V_USER(4198) = V(4775) - V_USER(4199) = V(4193) - V_USER(4200) = V(5234) - V_USER(4201) = V(192) - V_USER(4202) = V(1366) - V_USER(4203) = V(2862) - V_USER(4204) = V(1367) - V_USER(4205) = V(1694) - V_USER(4206) = V(4195) - V_USER(4207) = V(4978) - V_USER(4208) = V(3881) - V_USER(4209) = V(457) - V_USER(4210) = V(458) - V_USER(4211) = V(3256) - V_USER(4212) = V(193) - V_USER(4213) = V(2273) - V_USER(4214) = V(459) - V_USER(4215) = V(2864) - V_USER(4216) = V(3644) - V_USER(4217) = V(4100) - V_USER(4218) = V(125) - V_USER(4219) = V(4773) - V_USER(4220) = V(3582) - V_USER(4221) = V(4707) - V_USER(4222) = V(4197) - V_USER(4223) = V(126) - V_USER(4224) = V(1369) - V_USER(4225) = V(762) - V_USER(4226) = V(1371) - V_USER(4227) = V(2275) - V_USER(4228) = V(4340) - V_USER(4229) = V(4409) - V_USER(4230) = V(127) - V_USER(4231) = V(1374) - V_USER(4232) = V(1375) - V_USER(4233) = V(3258) - V_USER(4234) = V(2865) - V_USER(4235) = V(2866) - V_USER(4236) = V(460) - V_USER(4237) = V(2867) - V_USER(4238) = V(461) - V_USER(4239) = V(462) - V_USER(4240) = V(463) - V_USER(4241) = V(4984) - V_USER(4242) = V(2277) - V_USER(4243) = V(3645) - V_USER(4244) = V(5138) - V_USER(4245) = V(2870) - V_USER(4246) = V(5015) - V_USER(4247) = V(1377) - V_USER(4248) = V(2278) - V_USER(4249) = V(4429) - V_USER(4250) = V(763) - V_USER(4251) = V(4353) - V_USER(4252) = V(1378) - V_USER(4253) = V(5135) - V_USER(4254) = V(1379) - V_USER(4255) = V(4438) - V_USER(4256) = V(3886) - V_USER(4257) = V(1380) - V_USER(4258) = V(764) - V_USER(4259) = V(4903) - V_USER(4260) = V(3138) - V_USER(4261) = V(1381) - V_USER(4262) = V(3704) - V_USER(4263) = V(2280) - V_USER(4264) = V(2281) - V_USER(4265) = V(4448) - V_USER(4266) = V(5173) - V_USER(4267) = V(2282) - V_USER(4268) = V(4641) - V_USER(4269) = V(4460) - V_USER(4270) = V(2283) - V_USER(4271) = V(5054) - V_USER(4272) = V(3584) - V_USER(4273) = V(3889) - V_USER(4274) = V(1382) - V_USER(4275) = V(1383) - V_USER(4276) = V(1696) - V_USER(4277) = V(1384) - V_USER(4278) = V(2874) - V_USER(4279) = V(3456) - V_USER(4280) = V(2875) - V_USER(4281) = V(1385) - V_USER(4282) = V(1386) - V_USER(4283) = V(4749) - V_USER(4284) = V(464) - V_USER(4285) = V(1387) - V_USER(4286) = V(1388) - V_USER(4287) = V(2285) - V_USER(4288) = V(765) - V_USER(4289) = V(3891) - V_USER(4290) = V(1389) - V_USER(4291) = V(4106) - V_USER(4292) = V(5158) - V_USER(4293) = V(4410) - V_USER(4294) = V(2286) - V_USER(4295) = V(2287) - V_USER(4296) = V(766) - V_USER(4297) = V(4333) - V_USER(4298) = V(4382) - V_USER(4299) = V(2288) - V_USER(4300) = V(767) - V_USER(4301) = V(128) - V_USER(4302) = V(768) - V_USER(4303) = V(1391) - V_USER(4304) = V(2880) - V_USER(4305) = V(3892) - V_USER(4306) = V(1392) - V_USER(4307) = V(3141) - V_USER(4308) = V(2882) - V_USER(4309) = V(2883) - V_USER(4310) = V(3260) - V_USER(4311) = V(2884) - V_USER(4312) = V(1393) - V_USER(4313) = V(2885) - V_USER(4314) = V(2886) - V_USER(4315) = V(1394) - V_USER(4316) = V(2887) - V_USER(4317) = V(194) - V_USER(4318) = V(1395) - V_USER(4319) = V(3712) - V_USER(4320) = V(4692) - V_USER(4321) = V(4449) - V_USER(4322) = V(769) - V_USER(4323) = V(5216) - V_USER(4324) = V(466) - V_USER(4325) = V(5028) - V_USER(4326) = V(4501) - V_USER(4327) = V(2291) - V_USER(4328) = V(1397) - V_USER(4329) = V(5045) - V_USER(4330) = V(4661) - V_USER(4331) = V(4209) - V_USER(4332) = V(2292) - V_USER(4333) = V(1699) - V_USER(4334) = V(3379) - V_USER(4335) = V(3795) - V_USER(4336) = V(1398) - V_USER(4337) = V(4210) - V_USER(4338) = V(770) - V_USER(4339) = V(3715) - V_USER(4340) = V(2888) - V_USER(4341) = V(3353) - V_USER(4342) = V(2889) - V_USER(4343) = V(3460) - V_USER(4344) = V(2890) - V_USER(4345) = V(4017) - V_USER(4346) = V(771) - V_USER(4347) = V(4819) - V_USER(4348) = V(1399) - V_USER(4349) = V(3143) - V_USER(4350) = V(467) - V_USER(4351) = V(2296) - V_USER(4352) = V(4211) - V_USER(4353) = V(2892) - V_USER(4354) = V(1400) - V_USER(4355) = V(2297) - V_USER(4356) = V(1401) - V_USER(4357) = V(2893) - V_USER(4358) = V(2894) - V_USER(4359) = V(4153) - V_USER(4360) = V(4630) - V_USER(4361) = V(1402) - V_USER(4362) = V(1403) - V_USER(4363) = V(1404) - V_USER(4364) = V(3144) - V_USER(4365) = V(3897) - V_USER(4366) = V(3617) - V_USER(4367) = V(3807) - V_USER(4368) = V(5231) - V_USER(4369) = V(468) - V_USER(4370) = V(469) - V_USER(4371) = V(4335) - V_USER(4372) = V(4656) - V_USER(4373) = V(4336) - V_USER(4374) = V(1700) - V_USER(4375) = V(2298) - V_USER(4376) = V(772) - V_USER(4377) = V(1405) - V_USER(4378) = V(3385) - V_USER(4379) = V(4583) - V_USER(4380) = V(773) - V_USER(4381) = V(2300) - V_USER(4382) = V(4798) - V_USER(4383) = V(470) - V_USER(4384) = V(3622) - V_USER(4385) = V(2301) - V_USER(4386) = V(2900) - V_USER(4387) = V(1407) - V_USER(4388) = V(2302) - V_USER(4389) = V(2901) - V_USER(4390) = V(1408) - V_USER(4391) = V(471) - V_USER(4392) = V(472) - V_USER(4393) = V(2303) - V_USER(4394) = V(1701) - V_USER(4395) = V(1410) - V_USER(4396) = V(3267) - V_USER(4397) = V(1702) - V_USER(4398) = V(4953) - V_USER(4399) = V(3899) - V_USER(4400) = V(1411) - V_USER(4401) = V(3648) - V_USER(4402) = V(774) - V_USER(4403) = V(2306) - V_USER(4404) = V(3586) - V_USER(4405) = V(129) - V_USER(4406) = V(473) - V_USER(4407) = V(775) - V_USER(4408) = V(3269) - V_USER(4409) = V(1412) - V_USER(4410) = V(3522) - V_USER(4411) = V(4772) - V_USER(4412) = V(11) - V_USER(4413) = V(474) - V_USER(4414) = V(5111) - V_USER(4415) = V(4218) - V_USER(4416) = V(2905) - V_USER(4417) = V(1413) - V_USER(4418) = V(2907) - V_USER(4419) = V(2908) - V_USER(4420) = V(4833) - V_USER(4421) = V(475) - V_USER(4422) = V(3589) - V_USER(4423) = V(4406) - V_USER(4424) = V(4219) - V_USER(4425) = V(776) - V_USER(4426) = V(4808) - V_USER(4427) = V(3903) - V_USER(4428) = V(1415) - V_USER(4429) = V(5159) - V_USER(4430) = V(2910) - V_USER(4431) = V(4023) - V_USER(4432) = V(3904) - V_USER(4433) = V(2309) - V_USER(4434) = V(4407) - V_USER(4435) = V(1704) - V_USER(4436) = V(777) - V_USER(4437) = V(476) - V_USER(4438) = V(4539) - V_USER(4439) = V(2173) - V_USER(4440) = V(4626) - V_USER(4441) = V(2912) - V_USER(4442) = V(4570) - V_USER(4443) = V(2913) - V_USER(4444) = V(1417) - V_USER(4445) = V(370) - V_USER(4446) = V(4025) - V_USER(4447) = V(3389) - V_USER(4448) = V(4541) - V_USER(4449) = V(4223) - V_USER(4450) = V(3808) - V_USER(4451) = V(2311) - V_USER(4452) = V(2915) - V_USER(4453) = V(4853) - V_USER(4454) = V(3809) - V_USER(4455) = V(1418) - V_USER(4456) = V(3728) - V_USER(4457) = V(2917) - V_USER(4458) = V(5152) - V_USER(4459) = V(3177) - V_USER(4460) = V(2312) - V_USER(4461) = V(5069) - V_USER(4462) = V(1705) - V_USER(4463) = V(3590) - V_USER(4464) = V(3729) - V_USER(4465) = V(2918) - V_USER(4466) = V(2313) - V_USER(4467) = V(3272) - V_USER(4468) = V(1419) - V_USER(4469) = V(1420) - V_USER(4470) = V(3906) - V_USER(4471) = V(3273) - V_USER(4472) = V(1421) - V_USER(4473) = V(2315) - V_USER(4474) = V(195) - V_USER(4475) = V(3908) - V_USER(4476) = V(477) - V_USER(4477) = V(4341) - V_USER(4478) = V(5102) - V_USER(4479) = V(1706) - V_USER(4480) = V(1422) - V_USER(4481) = V(478) - V_USER(4482) = V(4546) - V_USER(4483) = V(4232) - V_USER(4484) = V(2318) - V_USER(4485) = V(3525) - V_USER(4486) = V(3391) - V_USER(4487) = V(1423) - V_USER(4488) = V(1424) - V_USER(4489) = V(4718) - V_USER(4490) = V(5176) - V_USER(4491) = V(479) - V_USER(4492) = V(1425) - V_USER(4493) = V(480) - V_USER(4494) = V(779) - V_USER(4495) = V(2319) - V_USER(4496) = V(4668) - V_USER(4497) = V(2320) - V_USER(4498) = V(4119) - V_USER(4499) = V(4934) - V_USER(4500) = V(5019) - V_USER(4501) = V(4415) - V_USER(4502) = V(3274) - V_USER(4503) = V(4029) - V_USER(4504) = V(4917) - V_USER(4505) = V(3275) - V_USER(4506) = V(3150) - V_USER(4507) = V(3910) - V_USER(4508) = V(1426) - V_USER(4509) = V(2323) - V_USER(4510) = V(3276) - V_USER(4511) = V(2322) - V_USER(4512) = V(481) - V_USER(4513) = V(2993) - V_USER(4514) = V(2923) - V_USER(4515) = V(780) - V_USER(4516) = V(2924) - V_USER(4517) = V(4825) - V_USER(4518) = V(2925) - V_USER(4519) = V(781) - V_USER(4520) = V(4734) - V_USER(4521) = V(482) - V_USER(4522) = V(4234) - V_USER(4523) = V(3393) - V_USER(4524) = V(4346) - V_USER(4525) = V(4965) - V_USER(4526) = V(4052) - V_USER(4527) = V(4030) - V_USER(4528) = V(1427) - V_USER(4529) = V(782) - V_USER(4530) = V(483) - V_USER(4531) = V(1428) - V_USER(4532) = V(3734) - V_USER(4533) = V(2328) - V_USER(4534) = V(130) - V_USER(4535) = V(1429) - V_USER(4536) = V(784) - V_USER(4537) = V(2329) - V_USER(4538) = V(2330) - V_USER(4539) = V(1430) - V_USER(4540) = V(4869) - V_USER(4541) = V(1431) - V_USER(4542) = V(3153) - V_USER(4543) = V(1707) - V_USER(4544) = V(4421) - V_USER(4545) = V(4703) - V_USER(4546) = V(1432) - V_USER(4547) = V(1433) - V_USER(4548) = V(1434) - V_USER(4549) = V(4720) - V_USER(4550) = V(3526) - V_USER(4551) = V(4326) - V_USER(4552) = V(2333) - V_USER(4553) = V(5036) - V_USER(4554) = V(4123) - V_USER(4555) = V(4348) - V_USER(4556) = V(4776) - V_USER(4557) = V(3527) - V_USER(4558) = V(4610) - V_USER(4559) = V(4864) - V_USER(4560) = V(2335) - V_USER(4561) = V(785) - V_USER(4562) = V(1435) - V_USER(4563) = V(1436) - V_USER(4564) = V(2934) - V_USER(4565) = V(2336) - V_USER(4566) = V(2337) - V_USER(4567) = V(484) - V_USER(4568) = V(3155) - V_USER(4569) = V(4425) - V_USER(4570) = V(2338) - V_USER(4571) = V(4428) - V_USER(4572) = V(4858) - V_USER(4573) = V(1437) - V_USER(4574) = V(131) - V_USER(4575) = V(1438) - V_USER(4576) = V(3735) - V_USER(4577) = V(1709) - V_USER(4578) = V(5166) - V_USER(4579) = V(2340) - V_USER(4580) = V(786) - V_USER(4581) = V(3595) - V_USER(4582) = V(4932) - V_USER(4583) = V(1710) - V_USER(4584) = V(3395) - V_USER(4585) = V(5134) - V_USER(4586) = V(4803) - V_USER(4587) = V(4948) - V_USER(4588) = V(3736) - V_USER(4589) = V(132) - V_USER(4590) = V(3461) - V_USER(4591) = V(5202) - V_USER(4592) = V(3529) - V_USER(4593) = V(1439) - V_USER(4594) = V(3916) - V_USER(4595) = V(3280) - V_USER(4596) = V(1440) - V_USER(4597) = V(3739) - V_USER(4598) = V(4033) - V_USER(4599) = V(1441) - V_USER(4600) = V(4124) - V_USER(4601) = V(2940) - V_USER(4602) = V(2343) - V_USER(4603) = V(787) - V_USER(4604) = V(4125) - V_USER(4605) = V(3917) - V_USER(4606) = V(1820) - V_USER(4607) = V(2345) - V_USER(4608) = V(5010) - V_USER(4609) = V(485) - V_USER(4610) = V(788) - V_USER(4611) = V(1444) - V_USER(4612) = V(1445) - V_USER(4613) = V(3918) - V_USER(4614) = V(196) - V_USER(4615) = V(4430) - V_USER(4616) = V(1446) - V_USER(4617) = V(1711) - V_USER(4618) = V(5177) - V_USER(4619) = V(2346) - V_USER(4620) = V(4035) - V_USER(4621) = V(2347) - V_USER(4622) = V(4565) - V_USER(4623) = V(3396) - V_USER(4624) = V(1713) - V_USER(4625) = V(2486) - V_USER(4626) = V(3741) - V_USER(4627) = V(2015) - V_USER(4628) = V(1447) - V_USER(4629) = V(486) - V_USER(4630) = V(1448) - V_USER(4631) = V(4991) - V_USER(4632) = V(4620) - V_USER(4633) = V(5016) - V_USER(4634) = V(3397) - V_USER(4635) = V(4938) - V_USER(4636) = V(4433) - V_USER(4637) = V(1449) - V_USER(4638) = V(2947) - V_USER(4639) = V(1714) - V_USER(4640) = V(4851) - V_USER(4641) = V(2948) - V_USER(4642) = V(3921) - V_USER(4643) = V(2949) - V_USER(4644) = V(4983) - V_USER(4645) = V(2348) - V_USER(4646) = V(3399) - V_USER(4647) = V(4131) - V_USER(4648) = V(1450) - V_USER(4649) = V(1451) - V_USER(4650) = V(3400) - V_USER(4651) = V(2953) - V_USER(4652) = V(5239) - V_USER(4653) = V(4133) - V_USER(4654) = V(3283) - V_USER(4655) = V(4437) - V_USER(4656) = V(4923) - V_USER(4657) = V(4891) - V_USER(4658) = V(2954) - V_USER(4659) = V(1452) - V_USER(4660) = V(2349) - V_USER(4661) = V(2955) - V_USER(4662) = V(1923) - V_USER(4663) = V(133) - V_USER(4664) = V(3403) - V_USER(4665) = V(3284) - V_USER(4666) = V(5155) - V_USER(4667) = V(2350) - V_USER(4668) = V(3924) - V_USER(4669) = V(4039) - V_USER(4670) = V(4040) - V_USER(4671) = V(1453) - V_USER(4672) = V(2352) - V_USER(4673) = V(2956) - V_USER(4674) = V(1454) - V_USER(4675) = V(487) - V_USER(4676) = V(5170) - V_USER(4677) = V(5107) - V_USER(4678) = V(2353) - V_USER(4679) = V(2354) - V_USER(4680) = V(4042) - V_USER(4681) = V(4440) - V_USER(4682) = V(1715) - V_USER(4683) = V(134) - V_USER(4684) = V(3285) - V_USER(4685) = V(5098) - V_USER(4686) = V(2958) - V_USER(4687) = V(5233) - V_USER(4688) = V(2959) - V_USER(4689) = V(1455) - V_USER(4690) = V(2355) - V_USER(4691) = V(1456) - V_USER(4692) = V(1457) - V_USER(4693) = V(5200) - V_USER(4694) = V(488) - V_USER(4695) = V(135) - V_USER(4696) = V(1717) - V_USER(4697) = V(3597) - V_USER(4698) = V(136) - V_USER(4699) = V(489) - V_USER(4700) = V(4615) - V_USER(4701) = V(3157) - V_USER(4702) = V(3287) - V_USER(4703) = V(3651) - V_USER(4704) = V(3463) - V_USER(4705) = V(3932) - V_USER(4706) = V(1718) - V_USER(4707) = V(2359) - V_USER(4708) = V(3405) - V_USER(4709) = V(4631) - V_USER(4710) = V(2360) - V_USER(4711) = V(490) - V_USER(4712) = V(5223) - V_USER(4713) = V(2361) - V_USER(4714) = V(4793) - V_USER(4715) = V(4168) - V_USER(4716) = V(137) - V_USER(4717) = V(1458) - V_USER(4718) = V(2362) - V_USER(4719) = V(197) - V_USER(4720) = V(1460) - V_USER(4721) = V(1461) - V_USER(4722) = V(4182) - V_USER(4723) = V(1719) - V_USER(4724) = V(4797) - V_USER(4725) = V(1720) - V_USER(4726) = V(1462) - V_USER(4727) = V(493) - V_USER(4728) = V(2968) - V_USER(4729) = V(1721) - V_USER(4730) = V(3653) - V_USER(4731) = V(1463) - V_USER(4732) = V(1812) - V_USER(4733) = V(2365) - V_USER(4734) = V(2366) - V_USER(4735) = V(2367) - V_USER(4736) = V(791) - V_USER(4737) = V(2368) - V_USER(4738) = V(2369) - V_USER(4739) = V(1629) - V_USER(4740) = V(4902) - V_USER(4741) = V(3814) - V_USER(4742) = V(1464) - V_USER(4743) = V(5026) - V_USER(4744) = V(2370) - V_USER(4745) = V(3291) - V_USER(4746) = V(3937) - V_USER(4747) = V(4031) - V_USER(4748) = V(4603) - V_USER(4749) = V(2371) - V_USER(4750) = V(138) - V_USER(4751) = V(2973) - V_USER(4752) = V(494) - V_USER(4753) = V(5124) - V_USER(4754) = V(4450) - V_USER(4755) = V(198) - V_USER(4756) = V(2373) - V_USER(4757) = V(5113) - V_USER(4758) = V(2976) - V_USER(4759) = V(792) - V_USER(4760) = V(2374) - V_USER(4761) = V(4452) - V_USER(4762) = V(4144) - V_USER(4763) = V(4453) - V_USER(4764) = V(2978) - V_USER(4765) = V(3538) - V_USER(4766) = V(1465) - V_USER(4767) = V(4728) - V_USER(4768) = V(3815) - V_USER(4769) = V(2979) - V_USER(4770) = V(1466) - V_USER(4771) = V(3292) - V_USER(4772) = V(793) - V_USER(4773) = V(3159) - V_USER(4774) = V(3940) - V_USER(4775) = V(2981) - V_USER(4776) = V(8) - V_USER(4777) = V(1467) - V_USER(4778) = V(5001) - V_USER(4779) = V(3160) - V_USER(4780) = V(3407) - V_USER(4781) = V(2377) - V_USER(4782) = V(1468) - V_USER(4783) = V(3654) - V_USER(4784) = V(2378) - V_USER(4785) = V(3748) - V_USER(4786) = V(4574) - V_USER(4787) = V(5205) - V_USER(4788) = V(5038) - V_USER(4789) = V(4359) - V_USER(4790) = V(3293) - V_USER(4791) = V(3465) - V_USER(4792) = V(5180) - V_USER(4793) = V(2379) - V_USER(4794) = V(3163) - V_USER(4795) = V(1469) - V_USER(4796) = V(2984) - V_USER(4797) = V(139) - V_USER(4798) = V(2985) - V_USER(4799) = V(1470) - V_USER(4800) = V(2382) - V_USER(4801) = V(1471) - V_USER(4802) = V(4878) - V_USER(4803) = V(1724) - V_USER(4804) = V(3295) - V_USER(4805) = V(1472) - V_USER(4806) = V(1473) - V_USER(4807) = V(2988) - V_USER(4808) = V(4268) - V_USER(4809) = V(3655) - V_USER(4810) = V(4463) - V_USER(4811) = V(1474) - V_USER(4812) = V(3751) - V_USER(4813) = V(2384) - V_USER(4814) = V(4575) - V_USER(4815) = V(5164) - V_USER(4816) = V(794) - V_USER(4817) = V(795) - V_USER(4818) = V(796) - V_USER(4819) = V(1476) - V_USER(4820) = V(797) - V_USER(4821) = V(496) - V_USER(4822) = V(497) - V_USER(4823) = V(3410) - V_USER(4824) = V(2992) - V_USER(4825) = V(3947) - V_USER(4826) = V(3541) - V_USER(4827) = V(140) - V_USER(4828) = V(3755) - V_USER(4829) = V(1477) - V_USER(4830) = V(1478) - V_USER(4831) = V(2995) - V_USER(4832) = V(2388) - V_USER(4833) = V(2389) - V_USER(4834) = V(1479) - V_USER(4835) = V(1480) - V_USER(4836) = V(798) - V_USER(4837) = V(199) - V_USER(4838) = V(2390) - V_USER(4839) = V(2391) - V_USER(4840) = V(3950) - V_USER(4841) = V(1481) - V_USER(4842) = V(200) - V_USER(4843) = V(1482) - V_USER(4844) = V(4780) - V_USER(4845) = V(1483) - V_USER(4846) = V(2392) - V_USER(4847) = V(800) - V_USER(4848) = V(1484) - V_USER(4849) = V(498) - V_USER(4850) = V(3819) - V_USER(4851) = V(4271) - V_USER(4852) = V(1485) - V_USER(4853) = V(2394) - V_USER(4854) = V(1486) - V_USER(4855) = V(2396) - V_USER(4856) = V(1487) - V_USER(4857) = V(801) - V_USER(4858) = V(4155) - V_USER(4859) = V(1488) - V_USER(4860) = V(4651) - V_USER(4861) = V(3412) - V_USER(4862) = V(1489) - V_USER(4863) = V(1490) - V_USER(4864) = V(5225) - V_USER(4865) = V(4555) - V_USER(4866) = V(2398) - V_USER(4867) = V(2399) - V_USER(4868) = V(4711) - V_USER(4869) = V(499) - V_USER(4870) = V(802) - V_USER(4871) = V(3003) - V_USER(4872) = V(3657) - V_USER(4873) = V(3952) - V_USER(4874) = V(2401) - V_USER(4875) = V(1727) - V_USER(4876) = V(4063) - V_USER(4877) = V(3169) - V_USER(4878) = V(3170) - V_USER(4879) = V(1492) - V_USER(4880) = V(4653) - V_USER(4881) = V(2402) - V_USER(4882) = V(1493) - V_USER(4883) = V(500) - V_USER(4884) = V(3171) - V_USER(4885) = V(3466) - V_USER(4886) = V(803) - V_USER(4887) = V(1494) - V_USER(4888) = V(501) - V_USER(4889) = V(1495) - V_USER(4890) = V(3172) - V_USER(4891) = V(502) - V_USER(4892) = V(804) - V_USER(4893) = V(3) - V_USER(4894) = V(5254) - V_USER(4895) = V(3006) - V_USER(4896) = V(141) - V_USER(4897) = V(142) - V_USER(4898) = V(4275) - V_USER(4899) = V(4157) - V_USER(4900) = V(503) - V_USER(4901) = V(4276) - V_USER(4902) = V(805) - V_USER(4903) = V(4787) - V_USER(4904) = V(4846) - V_USER(4905) = V(3603) - V_USER(4906) = V(3760) - V_USER(4907) = V(3416) - V_USER(4908) = V(2405) - V_USER(4909) = V(504) - V_USER(4910) = V(3008) - V_USER(4911) = V(3009) - V_USER(4912) = V(2406) - V_USER(4913) = V(505) - V_USER(4914) = V(3418) - V_USER(4915) = V(5051) - V_USER(4916) = V(2408) - V_USER(4917) = V(3955) - V_USER(4918) = V(506) - V_USER(4919) = V(5064) - V_USER(4920) = V(4473) - V_USER(4921) = V(1497) - V_USER(4922) = V(2410) - V_USER(4923) = V(4791) - V_USER(4924) = V(143) - V_USER(4925) = V(4399) - V_USER(4926) = V(806) - V_USER(4927) = V(2411) - V_USER(4928) = V(3658) - V_USER(4929) = V(5142) - V_USER(4930) = V(3304) - V_USER(4931) = V(1729) - V_USER(4932) = V(3960) - V_USER(4933) = V(3012) - V_USER(4934) = V(5197) - V_USER(4935) = V(3013) - V_USER(4936) = V(1730) - V_USER(4937) = V(2100) - V_USER(4938) = V(3549) - V_USER(4939) = V(4160) - V_USER(4940) = V(144) - V_USER(4941) = V(2413) - V_USER(4942) = V(507) - V_USER(4943) = V(1499) - V_USER(4944) = V(1500) - V_USER(4945) = V(3767) - V_USER(4946) = V(2414) - V_USER(4947) = V(1731) - V_USER(4948) = V(5204) - V_USER(4949) = V(4287) - V_USER(4950) = V(807) - V_USER(4951) = V(1501) - V_USER(4952) = V(1502) - V_USER(4953) = V(3176) - V_USER(4954) = V(5092) - V_USER(4955) = V(4716) - V_USER(4956) = V(3016) - V_USER(4957) = V(201) - V_USER(4958) = V(5183) - V_USER(4959) = V(2304) - V_USER(4960) = V(508) - V_USER(4961) = V(3769) - V_USER(4962) = V(2415) - V_USER(4963) = V(1503) - V_USER(4964) = V(2416) - V_USER(4965) = V(4482) - V_USER(4966) = V(4483) - V_USER(4967) = V(2417) - V_USER(4968) = V(4289) - V_USER(4969) = V(4484) - V_USER(4970) = V(509) - V_USER(4971) = V(3963) - V_USER(4972) = V(3306) - V_USER(4973) = V(2418) - V_USER(4974) = V(3307) - V_USER(4975) = V(4487) - V_USER(4976) = V(1504) - V_USER(4977) = V(3308) - V_USER(4978) = V(4569) - V_USER(4979) = V(1732) - V_USER(4980) = V(3420) - V_USER(4981) = V(4164) - V_USER(4982) = V(3421) - V_USER(4983) = V(4585) - V_USER(4984) = V(5056) - V_USER(4985) = V(4804) - V_USER(4986) = V(809) - V_USER(4987) = V(1505) - V_USER(4988) = V(5080) - V_USER(4989) = V(5147) - V_USER(4990) = V(810) - V_USER(4991) = V(1506) - V_USER(4992) = V(1507) - V_USER(4993) = V(1733) - V_USER(4994) = V(5078) - V_USER(4995) = V(3659) - V_USER(4996) = V(3834) - V_USER(4997) = V(3554) - V_USER(4998) = V(511) - V_USER(4999) = V(4492) - V_USER(5000) = V(1508) - V_USER(5001) = V(202) - V_USER(5002) = V(3020) - V_USER(5003) = V(1509) - V_USER(5004) = V(5114) - V_USER(5005) = V(5181) - V_USER(5006) = V(3422) - V_USER(5007) = V(3021) - V_USER(5008) = V(1847) - V_USER(5009) = V(3022) - V_USER(5010) = V(3023) - V_USER(5011) = V(5143) - V_USER(5012) = V(512) - V_USER(5013) = V(2422) - V_USER(5014) = V(2423) - V_USER(5015) = V(3310) - V_USER(5016) = V(3024) - V_USER(5017) = V(3025) - V_USER(5018) = V(3822) - V_USER(5019) = V(3311) - V_USER(5020) = V(4943) - V_USER(5021) = V(3312) - V_USER(5022) = V(145) - V_USER(5023) = V(3026) - V_USER(5024) = V(3606) - V_USER(5025) = V(3027) - V_USER(5026) = V(4907) - V_USER(5027) = V(4166) - V_USER(5028) = V(4918) - V_USER(5029) = V(4070) - V_USER(5030) = V(3607) - V_USER(5031) = V(513) - V_USER(5032) = V(4971) - V_USER(5033) = V(1511) - V_USER(5034) = V(2424) - V_USER(5035) = V(2425) - V_USER(5036) = V(514) - V_USER(5037) = V(146) - V_USER(5038) = V(4822) - V_USER(5039) = V(3470) - V_USER(5040) = V(147) - V_USER(5041) = V(4946) - V_USER(5042) = V(2427) - V_USER(5043) = V(811) - V_USER(5044) = V(1513) - V_USER(5045) = V(2428) - V_USER(5046) = V(4796) - V_USER(5047) = V(4727) - V_USER(5048) = V(2429) - V_USER(5049) = V(5131) - V_USER(5050) = V(3028) - V_USER(5051) = V(3029) - V_USER(5052) = V(3030) - V_USER(5053) = V(4753) - V_USER(5054) = V(2430) - V_USER(5055) = V(3032) - V_USER(5056) = V(515) - V_USER(5057) = V(4385) - V_USER(5058) = V(3313) - V_USER(5059) = V(4920) - V_USER(5060) = V(812) - V_USER(5061) = V(3424) - V_USER(5062) = V(2432) - V_USER(5063) = V(1514) - V_USER(5064) = V(4489) - V_USER(5065) = V(1515) - V_USER(5066) = V(1735) - V_USER(5067) = V(3776) - V_USER(5068) = V(2433) - V_USER(5069) = V(3970) - V_USER(5070) = V(4672) - V_USER(5071) = V(1736) - V_USER(5072) = V(1516) - V_USER(5073) = V(3037) - V_USER(5074) = V(3038) - V_USER(5075) = V(3558) - V_USER(5076) = V(2434) - V_USER(5077) = V(4170) - V_USER(5078) = V(2435) - V_USER(5079) = V(3777) - V_USER(5080) = V(4300) - V_USER(5081) = V(3040) - V_USER(5082) = V(203) - V_USER(5083) = V(4677) - V_USER(5084) = V(1737) - V_USER(5085) = V(148) - V_USER(5086) = V(3041) - V_USER(5087) = V(3183) - V_USER(5088) = V(3184) - V_USER(5089) = V(3185) - V_USER(5090) = V(2437) - V_USER(5091) = V(516) - V_USER(5092) = V(4730) - V_USER(5093) = V(1517) - V_USER(5094) = V(4081) - V_USER(5095) = V(5003) - V_USER(5096) = V(4755) - V_USER(5097) = V(3186) - V_USER(5098) = V(3426) - V_USER(5099) = V(3043) - V_USER(5100) = V(5052) - V_USER(5101) = V(1739) - V_USER(5102) = V(517) - V_USER(5103) = V(3045) - V_USER(5104) = V(814) - V_USER(5105) = V(2440) - V_USER(5106) = V(2441) - V_USER(5107) = V(815) - V_USER(5108) = V(204) - V_USER(5109) = V(4076) - V_USER(5110) = V(3626) - V_USER(5111) = V(3315) - V_USER(5112) = V(518) - V_USER(5113) = V(3316) - V_USER(5114) = V(4756) - V_USER(5115) = V(519) - V_USER(5116) = V(3049) - V_USER(5117) = V(3050) - V_USER(5118) = V(3317) - V_USER(5119) = V(4077) - V_USER(5120) = V(3608) - V_USER(5121) = V(520) - V_USER(5122) = V(817) - V_USER(5123) = V(4301) - V_USER(5124) = V(3052) - V_USER(5125) = V(818) - V_USER(5126) = V(1521) - V_USER(5127) = V(1522) - V_USER(5128) = V(2443) - V_USER(5129) = V(2491) - V_USER(5130) = V(4758) - V_USER(5131) = V(521) - V_USER(5132) = V(1741) - V_USER(5133) = V(1523) - V_USER(5134) = V(5242) - V_USER(5135) = V(5130) - V_USER(5136) = V(3054) - V_USER(5137) = V(2445) - V_USER(5138) = V(1524) - V_USER(5139) = V(3609) - V_USER(5140) = V(1742) - V_USER(5141) = V(522) - V_USER(5142) = V(3980) - V_USER(5143) = V(2446) - V_USER(5144) = V(3055) - V_USER(5145) = V(1525) - V_USER(5146) = V(2448) - V_USER(5147) = V(3517) - V_USER(5148) = V(5199) - V_USER(5149) = V(2449) - V_USER(5150) = V(4476) - V_USER(5151) = V(523) - V_USER(5152) = V(1526) - V_USER(5153) = V(1527) - V_USER(5154) = V(1528) - V_USER(5155) = V(2450) - V_USER(5156) = V(1529) - V_USER(5157) = V(2451) - V_USER(5158) = V(2452) - V_USER(5159) = V(524) - V_USER(5160) = V(2454) - V_USER(5161) = V(3057) - V_USER(5162) = V(1743) - V_USER(5163) = V(1530) - V_USER(5164) = V(4860) - V_USER(5165) = V(525) - V_USER(5166) = V(2455) - V_USER(5167) = V(1532) - V_USER(5168) = V(5047) - V_USER(5169) = V(4591) - V_USER(5170) = V(3473) - V_USER(5171) = V(3058) - V_USER(5172) = V(3059) - V_USER(5173) = V(4975) - V_USER(5174) = V(2457) - V_USER(5175) = V(5196) - V_USER(5176) = V(205) - V_USER(5177) = V(4518) - V_USER(5178) = V(3060) - V_USER(5179) = V(3430) - V_USER(5180) = V(4883) - V_USER(5181) = V(1533) - V_USER(5182) = V(3323) - V_USER(5183) = V(526) - V_USER(5184) = V(3431) - V_USER(5185) = V(2459) - V_USER(5186) = V(1534) - V_USER(5187) = V(3324) - V_USER(5188) = V(1535) - V_USER(5189) = V(1536) - V_USER(5190) = V(4593) - V_USER(5191) = V(2460) - V_USER(5192) = V(3063) - V_USER(5193) = V(5179) - V_USER(5194) = V(1537) - V_USER(5195) = V(3783) - V_USER(5196) = V(3064) - V_USER(5197) = V(3785) - V_USER(5198) = V(3325) - V_USER(5199) = V(3065) - V_USER(5200) = V(3611) - V_USER(5201) = V(2461) - V_USER(5202) = V(3066) - V_USER(5203) = V(4180) - V_USER(5204) = V(4523) - V_USER(5205) = V(4013) - V_USER(5206) = V(2462) - V_USER(5207) = V(2463) - V_USER(5208) = V(5014) - V_USER(5209) = V(5106) - V_USER(5210) = V(4736) - V_USER(5211) = V(3191) - V_USER(5212) = V(3612) - V_USER(5213) = V(1538) - V_USER(5214) = V(1744) - V_USER(5215) = V(2464) - V_USER(5216) = V(3613) - V_USER(5217) = V(5226) - V_USER(5218) = V(1539) - V_USER(5219) = V(1745) - V_USER(5220) = V(3991) - V_USER(5221) = V(1540) - V_USER(5222) = V(3068) - V_USER(5223) = V(1942) - V_USER(5224) = V(3326) - V_USER(5225) = V(1541) - V_USER(5226) = V(3071) - V_USER(5227) = V(2466) - V_USER(5228) = V(3327) - V_USER(5229) = V(4836) - V_USER(5230) = V(2467) - V_USER(5231) = V(1542) - V_USER(5232) = V(3073) - V_USER(5233) = V(3074) - V_USER(5234) = V(819) - V_USER(5235) = V(2468) - V_USER(5236) = V(4188) - V_USER(5237) = V(206) - V_USER(5238) = V(3475) - V_USER(5239) = V(1544) - V_USER(5240) = V(3076) - V_USER(5241) = V(2469) - V_USER(5242) = V(2470) - V_USER(5243) = V(1746) - V_USER(5244) = V(4189) - V_USER(5245) = V(1591) - V_USER(5246) = V(1545) - V_USER(5247) = V(3077) - V_USER(5248) = V(4317) - V_USER(5249) = V(4933) - V_USER(5250) = V(1546) - V_USER(5251) = V(4319) - V_USER(5252) = V(3078) - V_USER(5253) = V(1547) - V_USER(5254) = V(3079) - V_USER(5255) = V(821) - V_USER(5256) = V(3616) - V_USER(5257) = V(4387) - -END SUBROUTINE Shuffle_kpp2user - -! End of Shuffle_kpp2user function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! GetMass - compute total mass of selected atoms -! Arguments : -! CL - Concentration of all species (local) -! Mass - value of mass balance -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE GetMass ( CL, Mass ) - -! CL - Concentration of all species (local) - REAL(kind=dp) :: CL(NSPEC) -! Mass - value of mass balance - REAL(kind=dp) :: Mass(1) - - -END SUBROUTINE GetMass - -! End of GetMass function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE MCMv3_3_Util - diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Util.o b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Util.o deleted file mode 100644 index 806e6db04f769806cdd7d1881ba8a898f146d581..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_Util.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_mex_Fun.f90 b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_mex_Fun.f90 deleted file mode 100644 index c226f0ecec59a4276b5ecfe900b8b50f97bd9eb6..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_mex_Fun.f90 +++ /dev/null @@ -1,45 +0,0 @@ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE mexFunction( nlhs, plhs, nrhs, prhs ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Matlab Gateway for the Derivative Function Fun -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MCMv3_3_Model - - INTEGER nlhs, nrhs - INTEGER plhs(*), prhs(*) - INTEGER mxGetPr, mxCreateFull, mxGetM, mxgetN - INTEGER VPtr, FPtr, RPtr, VdotPtr - REAL(kind=dp) V(5258), F(2), RCT(15177) - REAL(kind=dp) Vdot(5258) - -! Check for the right number of input arguments - IF ( nrhs .ne. 3 ) THEN - CALL mexErrMsgTxt('Fun requires 3 input vectors: & - &V(5258), F(2), RCT(15177)') - END IF -! Check for the right number of output arguments - IF ( nlhs .ne. 1 ) THEN - CALL mexErrMsgTxt('Fun requires 1 output vector: & - &Vdot(5258)') - END IF - - plhs(1) = mxCreateDoubleMatrix(5258,1,0) - - VPtr = mxGetPr(prhs(1)) - CALL mxCopyPtrToReal8(VPtr,V,5258) - - FPtr = mxGetPr(prhs(2)) - CALL mxCopyPtrToReal8(FPtr,F,2) - - RPtr = mxGetPr(prhs(3)) - CALL mxCopyPtrToReal8(RPtr,RCT,15177) - - VdotPtr = mxGetPr(plhs(1)) - - CALL Fun( V, F, RCT, Vdot ) - - CALL mxCopyReal8ToPtr(Vdot, VdotPtr, 5258) - - END SUBROUTINE mexFunction diff --git a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_mex_Jac_SP.f90 b/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_mex_Jac_SP.f90 deleted file mode 100644 index bfc73acfe7576c30416f18337c606a6423481709..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MCMv3_3/MCMv3_3_mex_Jac_SP.f90 +++ /dev/null @@ -1,44 +0,0 @@ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE mexFunction( nlhs, plhs, nrhs, prhs ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Matlab Gateway for the Sparse Jacobian Function Jac_SP -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MCMv3_3_Model - - INTEGER nlhs, nrhs - INTEGER plhs(*), prhs(*) - INTEGER mxGetPr, mxCreateFull, mxGetM, mxgetN - INTEGER VPtr, FPtr, RPtr, JVSPtr - REAL(kind=dp) V(5258), F(2), RCT(15177) - REAL(kind=dp) JVS(55272) - -! Check for the right number of input arguments - IF ( nrhs .ne. 3 ) THEN - CALL mexErrMsgTxt('Jac_SP requires 3 input vectors: & - &V(5258), F(2), RCT(15177)') - END IF -! Check for the right number of output arguments - IF ( nlhs .ne. 1 ) THEN - CALL mexErrMsgTxt('Jac_SP requires 1 output vector: & - &JVS(55272)') - END IF - - plhs(1) = mxCreateDoubleMatrix(55272,1,0) - - VPtr = mxGetPr(prhs(1)) - CALL mxCopyPtrToReal8(VPtr,V,5258) - - FPtr = mxGetPr(prhs(2)) - CALL mxCopyPtrToReal8(FPtr,F,2) - - RPtr = mxGetPr(prhs(3)) - CALL mxCopyPtrToReal8(RPtr,RCT,15177) - - JVSPtr = mxGetPr(plhs(1)) - - CALL Jac_SP( V, F, RCT, JVS ) - - CALL mxCopyReal8ToPtr(JVS, JVSPtr, 55272) - - END SUBROUTINE mexFunction diff --git a/boxmox/compiled_mechs/MCMv3_3/Makefile_MCMv3_3 b/boxmox/compiled_mechs/MCMv3_3/Makefile_MCMv3_3 deleted file mode 100644 index 75a2b0ef46eefd992460d535a49ea79d18e60dd1..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MCMv3_3/Makefile_MCMv3_3 +++ /dev/null @@ -1,215 +0,0 @@ -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: Set here the F90 compiler and options -# Pedefined compilers: INTEL, PGF, HPUX, LAHEY -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -#COMPILER = G95 -#COMPILER = LAHEY -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# gfortran is standard -#COMPILER = INTEL -# ---------------------------------------------------- -#COMPILER = PGF -#COMPILER = HPUX -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# gfortran is standard -COMPILER = GFORTRAN -# ---------------------------------------------------- - -FC_G95 = g95 -FOPT_G95 = -cpp -O -pg -fbounds-check -fimplicit-none -Wall -ftrace=full - -FC_LAHEY = lf95 -# More aggressive for production runs: -#FOPT_LAHEY = -Cpp --pca -O -# More checking for debugging: -FOPT_LAHEY = -Cpp --chk a,e,s,u --pca --ap -O0 -g --trap --trace --chkglobal - -FC_INTEL = ifort -# More aggressive for production runs: -#FOPT_INTEL = -cpp -O -fp-model precise -pc80 -prec_div -# More checking for debugging: -FOPT_INTEL = -cpp -O0 -fp-model strict -implicitnone -ftrapuv \ - -debug all -check all -warn all - -FC_PGF = pgf90 -# More aggressive for production runs: -FOPT_PGF = -Mpreprocess -O -fast -pc 80 -Kieee -# More checking for debugging: -#FOPT_PGF = -Mpreprocess -O0 -Mbounds -Mchkfpstk -Mchkptr -Mchkstk \ -# -Ktrap=fp -pc 80 -Kieee - -FC_HPUX = f90 -FOPT_HPUX = -O -u +Oall +check=on - -FC_GFORTRAN = gfortran -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# rate equation code creates pretty long lines -# optimization does not help much and breaks MCM -# FOPT_GFORTRAN = -cpp -O -# double precision: -#FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -freal-4-real-16 -freal-8-real-16 -# using GCC 4.7 and higher: -FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -freal-4-real-8 -# for older compilers -#FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -fdefault-real-8 -# ---------------------------------------------------- - -# define FULL_ALGEBRA for non-sparse integration -FC = $(FC_$(COMPILER)) -FOPT = $(FOPT_$(COMPILER)) # -DFULL_ALGEBRA - -LIBS = -#LIBS = -llapack -lblas - -# Command to create Matlab mex gateway routines -# Note: use $(FC) as the mex Fortran compiler -MEX = mex - -GENSRC = MCMv3_3_Precision.f90 \ - MCMv3_3_Parameters.f90 \ - MCMv3_3_Global.f90 - -GENOBJ = MCMv3_3_Precision.o \ - MCMv3_3_Parameters.o \ - MCMv3_3_Global.o - -FUNSRC = MCMv3_3_Function.f90 -FUNOBJ = MCMv3_3_Function.o - -JACSRC = MCMv3_3_JacobianSP.f90 MCMv3_3_Jacobian.f90 -JACOBJ = MCMv3_3_JacobianSP.o MCMv3_3_Jacobian.o - -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20160906 -# if HESSIAN is off, avoid compilation errors by not -# linking to the Hessian objects. -ifeq ($(wildcard MCMv3_3_HessianSP.f90),) - HESSRC = - HESOBJ = -else - HESSRC = MCMv3_3_HessianSP.f90 MCMv3_3_Hessian.f90 - HESOBJ = MCMv3_3_HessianSP.o MCMv3_3_Hessian.o -endif -# ---------------------------------------------------- - -STMSRC = MCMv3_3_StoichiomSP.f90 MCMv3_3_Stoichiom.f90 -STMOBJ = MCMv3_3_StoichiomSP.o MCMv3_3_Stoichiom.o - -UTLSRC = MCMv3_3_Rates.f90 MCMv3_3_Util.f90 MCMv3_3_Monitor.f90 -UTLOBJ = MCMv3_3_Rates.o MCMv3_3_Util.o MCMv3_3_Monitor.o - -LASRC = MCMv3_3_LinearAlgebra.f90 -LAOBJ = MCMv3_3_LinearAlgebra.o - -STOCHSRC = MCMv3_3_Stochastic.f90 -STOCHOBJ = MCMv3_3_Stochastic.o - -MAINSRC = MCMv3_3_Main.f90 MCMv3_3_Initialize.f90 MCMv3_3_Integrator.f90 MCMv3_3_Model.f90 -MAINOBJ = MCMv3_3_Main.o MCMv3_3_Initialize.o MCMv3_3_Integrator.o MCMv3_3_Model.o - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: modify the line below to include only the -# objects needed by your application -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -ALLOBJ = $(GENOBJ) $(FUNOBJ) $(JACOBJ) $(HESOBJ) $(STMOBJ) \ - $(UTLOBJ) $(LAOBJ) - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: modify the line below to include only the -# executables needed by your application -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -all: exe - -exe: $(ALLOBJ) $(MAINOBJ) - $(FC) $(FOPT) $(ALLOBJ) $(MAINOBJ) $(LIBS) -o MCMv3_3.exe - -pylib: $(ALLOBJ) lib_Initialize.o lib_Integrator.o lib_Model.o - f2py -c -m boxmox $(ALLOBJ) lib_Initialize.o lib_Integrator.o lib_Model.o lib_Main.f90 - -stochastic:$(ALLOBJ) $(STOCHOBJ) $(MAINOBJ) - $(FC) $(FOPT) $(ALLOBJ) $(STOCHOBJ) $(MAINOBJ) $(LIBS) \ - -o MCMv3_3_stochastic.exe - -mex: $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O MCMv3_3_mex_Fun.f90 $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O MCMv3_3_mex_Jac_SP.f90 $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O MCMv3_3_mex_Hessian.f90 $(ALLOBJ) - -clean: - rm -f MCMv3_3*.o MCMv3_3*.mod \ - MCMv3_3*.dat MCMv3_3.exe MCMv3_3*.mexglx \ - MCMv3_3.map - -distclean: - rm -f MCMv3_3*.o MCMv3_3*.mod \ - MCMv3_3*.dat MCMv3_3.exe MCMv3_3.map \ - MCMv3_3*.f90 MCMv3_3_*.mexglx - -MCMv3_3_Precision.o: MCMv3_3_Precision.f90 - $(FC) $(FOPT) -c $< - -MCMv3_3_Parameters.o: MCMv3_3_Parameters.f90 \ - MCMv3_3_Precision.o - $(FC) $(FOPT) -c $< - -MCMv3_3_Monitor.o: MCMv3_3_Monitor.f90 \ - MCMv3_3_Precision.o - $(FC) $(FOPT) -c $< - -MCMv3_3_Global.o: MCMv3_3_Global.f90 \ - MCMv3_3_Parameters.o MCMv3_3_Precision.o - $(FC) $(FOPT) -c $< - -MCMv3_3_Initialize.o: MCMv3_3_Initialize.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -MCMv3_3_Function.o: MCMv3_3_Function.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -MCMv3_3_Stochastic.o: MCMv3_3_Stochastic.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -MCMv3_3_JacobianSP.o: MCMv3_3_JacobianSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -MCMv3_3_Jacobian.o: MCMv3_3_Jacobian.f90 $(GENOBJ) MCMv3_3_JacobianSP.o - $(FC) $(FOPT) -c $< - -MCMv3_3_LinearAlgebra.o: MCMv3_3_LinearAlgebra.f90 $(GENOBJ) MCMv3_3_JacobianSP.o - $(FC) $(FOPT) -c $< - -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# need Util in Rates -#MCMv3_3_Rates.o: MCMv3_3_Rates.f90 $(GENOBJ) -MCMv3_3_Rates.o: MCMv3_3_Rates.f90 $(GENOBJ) MCMv3_3_Util.o -# ---------------------------------------------------- - $(FC) $(FOPT) -c $< - -MCMv3_3_HessianSP.o: MCMv3_3_HessianSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -MCMv3_3_Hessian.o: MCMv3_3_Hessian.f90 $(GENOBJ) MCMv3_3_HessianSP.o - $(FC) $(FOPT) -c $< - -MCMv3_3_StoichiomSP.o: MCMv3_3_StoichiomSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -MCMv3_3_Stoichiom.o: MCMv3_3_Stoichiom.f90 $(GENOBJ) MCMv3_3_StoichiomSP.o - $(FC) $(FOPT) -c $< - -MCMv3_3_Util.o: MCMv3_3_Util.f90 $(GENOBJ) MCMv3_3_Monitor.o - $(FC) $(FOPT) -c $< - -MCMv3_3_Main.o: MCMv3_3_Main.f90 $(ALLOBJ) MCMv3_3_Initialize.o MCMv3_3_Model.o MCMv3_3_Integrator.o - $(FC) $(FOPT) -c $< - -MCMv3_3_Model.o: MCMv3_3_Model.f90 $(ALLOBJ) MCMv3_3_Integrator.o - $(FC) $(FOPT) -c $< - -MCMv3_3_Integrator.o: MCMv3_3_Integrator.f90 $(ALLOBJ) - $(FC) $(FOPT) -c $< diff --git a/boxmox/compiled_mechs/MCMv3_3/compile.log b/boxmox/compiled_mechs/MCMv3_3/compile.log deleted file mode 100644 index a1fa75b201cb2bbe26fa14a7dd6757a8ff6a3bf6..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MCMv3_3/compile.log +++ /dev/null @@ -1,117 +0,0 @@ -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MCMv3_3_Precision.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MCMv3_3_Parameters.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MCMv3_3_Global.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MCMv3_3_Function.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MCMv3_3_JacobianSP.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MCMv3_3_Jacobian.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MCMv3_3_StoichiomSP.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MCMv3_3_Stoichiom.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MCMv3_3_Monitor.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MCMv3_3_Util.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MCMv3_3_Rates.f90 -MCMv3_3_Rates.f90:706:31: - - 706 | KC0 = 3.28D-28*M*(TEMP/300)**-6.87 - | 1 -Warning: Extension: Unary operator following arithmetic operator (use parentheses) at (1) -MCMv3_3_Rates.f90:707:30: - - 707 | KCI = 1.125D-11*(TEMP/300)**-1.105 - | 1 -Warning: Extension: Unary operator following arithmetic operator (use parentheses) at (1) -MCMv3_3_Rates.f90:713:30: - - 713 | K10 = 1.0D-31*M*(TEMP/300)**-1.6 - | 1 -Warning: Extension: Unary operator following arithmetic operator (use parentheses) at (1) -MCMv3_3_Rates.f90:720:30: - - 720 | K20 = 1.3D-31*M*(TEMP/300)**-1.5 - | 1 -Warning: Extension: Unary operator following arithmetic operator (use parentheses) at (1) -MCMv3_3_Rates.f90:727:30: - - 727 | K30 = 3.6D-30*M*(TEMP/300)**-4.1 - | 1 -Warning: Extension: Unary operator following arithmetic operator (use parentheses) at (1) -MCMv3_3_Rates.f90:734:29: - - 734 | K40 = 1.3D-3*M*(TEMP/300)**-3.5*EXP(-11000/TEMP) - | 1 -Warning: Extension: Unary operator following arithmetic operator (use parentheses) at (1) -MCMv3_3_Rates.f90:743:30: - - 743 | K70 = 7.4D-31*M*(TEMP/300)**-2.4 - | 1 -Warning: Extension: Unary operator following arithmetic operator (use parentheses) at (1) -MCMv3_3_Rates.f90:744:28: - - 744 | K7I = 3.3D-11*(TEMP/300)**-0.3 - | 1 -Warning: Extension: Unary operator following arithmetic operator (use parentheses) at (1) -MCMv3_3_Rates.f90:750:30: - - 750 | K80 = 3.3D-30*M*(TEMP/300)**-3.0 - | 1 -Warning: Extension: Unary operator following arithmetic operator (use parentheses) at (1) -MCMv3_3_Rates.f90:757:30: - - 757 | K90 = 1.8D-31*M*(TEMP/300)**-3.2 - | 1 -Warning: Extension: Unary operator following arithmetic operator (use parentheses) at (1) -MCMv3_3_Rates.f90:776:31: - - 776 | K120 = 4.5D-31*M*(TEMP/300)**-3.9 - | 1 -Warning: Extension: Unary operator following arithmetic operator (use parentheses) at (1) -MCMv3_3_Rates.f90:777:29: - - 777 | K12I = 1.3D-12*(TEMP/300)**-0.7 - | 1 -Warning: Extension: Unary operator following arithmetic operator (use parentheses) at (1) -MCMv3_3_Rates.f90:783:31: - - 783 | K130 = 2.5D-30*M*(TEMP/300)**-5.5 - | 1 -Warning: Extension: Unary operator following arithmetic operator (use parentheses) at (1) -MCMv3_3_Rates.f90:797:31: - - 797 | K150 = 8.6D-29*M*(TEMP/300)**-3.1 - | 1 -Warning: Extension: Unary operator following arithmetic operator (use parentheses) at (1) -MCMv3_3_Rates.f90:798:29: - - 798 | K15I = 9.0D-12*(TEMP/300)**-0.85 - | 1 -Warning: Extension: Unary operator following arithmetic operator (use parentheses) at (1) -MCMv3_3_Rates.f90:804:29: - - 804 | K160 = 8D-27*M*(TEMP/300)**-3.5 - | 1 -Warning: Extension: Unary operator following arithmetic operator (use parentheses) at (1) -MCMv3_3_Rates.f90:805:29: - - 805 | K16I = 3.0D-11*(TEMP/300)**-1 - | 1 -Warning: Extension: Unary operator following arithmetic operator (use parentheses) at (1) -MCMv3_3_Rates.f90:811:31: - - 811 | K170 = 5.0D-30*M*(TEMP/300)**-1.5 - | 1 -Warning: Extension: Unary operator following arithmetic operator (use parentheses) at (1) -MCMv3_3_Rates.f90:830:71: - - 830 | RCONST(2) = (5.6D-34*N2*(TEMP/300)**-2.6*O2+6.0D-34*O2*(TEMP/300)**-2.6*O2) - | 1 -Warning: Extension: Unary operator following arithmetic operator (use parentheses) at (1) -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MCMv3_3_LinearAlgebra.f90 -MCMv3_3_LinearAlgebra.f90:31931:46: - -31931 | IF (incX .EQ. incY) IF (incX-1) 5,20,60 - | 1 -Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MCMv3_3_Initialize.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MCMv3_3_Integrator.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MCMv3_3_Model.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MCMv3_3_Main.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 MCMv3_3_Precision.o MCMv3_3_Parameters.o MCMv3_3_Global.o MCMv3_3_Function.o MCMv3_3_JacobianSP.o MCMv3_3_Jacobian.o MCMv3_3_StoichiomSP.o MCMv3_3_Stoichiom.o MCMv3_3_Rates.o MCMv3_3_Util.o MCMv3_3_Monitor.o MCMv3_3_LinearAlgebra.o MCMv3_3_Main.o MCMv3_3_Initialize.o MCMv3_3_Integrator.o MCMv3_3_Model.o -o MCMv3_3.exe diff --git a/boxmox/compiled_mechs/MCMv3_3/kpp.log b/boxmox/compiled_mechs/MCMv3_3/kpp.log deleted file mode 100644 index 5857147775f49ab2ce4761957d62a45817fb073b..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MCMv3_3/kpp.log +++ /dev/null @@ -1,87 +0,0 @@ - -This is KPP-2.2.3. - -KPP is parsing the equation file. -KPP is computing Jacobian sparsity structure. -KPP is starting the code generation. -KPP is initializing the code generation. -KPP is generating the monitor data: - - MCMv3_3_Monitor -KPP is generating the global declarations: - - MCMv3_3_Main -KPP is generating the ODE function: - - MCMv3_3_Function - Warning: 396 continuation lines for Vdot(5250) = ... - Warning: 96 continuation lines for Vdot(5251) = ... - Warning: 120 continuation lines for Vdot(5252) = ... - Warning: 335 continuation lines for Vdot(5253) = ... - Warning: 286 continuation lines for Vdot(5255) = ... - Warning: 126 continuation lines for Vdot(5256) = ... -KPP is generating the ODE Jacobian: - - MCMv3_3_Jacobian - - MCMv3_3_JacobianSP - Warning: 269 continuation lines for JVS(45056) = ... - Warning: 126 continuation lines for JVS(47934) = ... - Warning: 53 continuation lines for JVS(50208) = ... - Warning: 99 continuation lines for JVS(50210) = ... - Warning: 95 continuation lines for JVS(50214) = ... - Warning: 47 continuation lines for JVS(53207) = ... - Warning: 128 continuation lines for JVS(53212) = ... - Warning: 126 continuation lines for JVS(54814) = ... - Warning: 55 continuation lines for JUV(5201) = ... - Warning: 65 continuation lines for JUV(5231) = ... - Warning: 62 continuation lines for JUV(5244) = ... - Warning: 687 continuation lines for JUV(5250) = ... - Warning: 181 continuation lines for JUV(5251) = ... - Warning: 233 continuation lines for JUV(5252) = ... - Warning: 417 continuation lines for JUV(5253) = ... - Warning: 519 continuation lines for JUV(5255) = ... - Warning: 302 continuation lines for JUV(5256) = ... - Warning: 64 continuation lines for JUV(5258) = ... - Warning: 833 continuation lines for JTUV(5250) = ... - Warning: 470 continuation lines for JTUV(5252) = ... - Warning: 145 continuation lines for JTUV(5253) = ... - Warning: 476 continuation lines for JTUV(5255) = ... - Warning: 458 continuation lines for JTUV(5256) = ... - Warning: 70 continuation lines for JTUV(5258) = ... -KPP is generating the linear algebra routines: - - MCMv3_3_LinearAlgebra - Warning: 41 continuation lines for X(5160) = ... - Warning: 51 continuation lines for X(5193) = ... - Warning: 77 continuation lines for X(5201) = ... - Warning: 52 continuation lines for X(5222) = ... - Warning: 122 continuation lines for X(5231) = ... - Warning: 43 continuation lines for X(5233) = ... - Warning: 112 continuation lines for X(5244) = ... - Warning: 802 continuation lines for X(5250) = ... - Warning: 276 continuation lines for X(5251) = ... - Warning: 245 continuation lines for X(5252) = ... - Warning: 412 continuation lines for X(5253) = ... - Warning: 520 continuation lines for X(5255) = ... - Warning: 291 continuation lines for X(5256) = ... - Warning: 79 continuation lines for X(5258) = ... - Warning: 907 continuation lines for XX(5250) = ... - Warning: 530 continuation lines for XX(5252) = ... - Warning: 204 continuation lines for XX(5253) = ... - Warning: 639 continuation lines for XX(5255) = ... - Warning: 484 continuation lines for XX(5256) = ... - Warning: 136 continuation lines for XX(5258) = ... -KPP is generating the utility data: - - MCMv3_3_Util -KPP is generating the utility functions: - - MCMv3_3_Util -KPP is generating the rate laws: - - MCMv3_3_Rates -KPP is generating the parameters: - - MCMv3_3_Parameters -KPP is generating the global data: - - MCMv3_3_Global -KPP is generating the stoichiometric description files: - - MCMv3_3_Stoichiom - - MCMv3_3_StoichiomSP -KPP is generating the driver from ../boxmox/boxmox.f90: - - MCMv3_3_Main -KPP is starting the code post-processing. - -KPP has succesfully created the model "MCMv3_3". - diff --git a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_function.mod b/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_function.mod deleted file mode 100644 index fa29092bb0e819c9d3cce76bbf8c59718103398d..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_function.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_global.mod b/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_global.mod deleted file mode 100644 index 3e0fe0d6b481bb5eb02eb9f7f0a1758dc1d9d6c6..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_global.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_initialize.mod b/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_initialize.mod deleted file mode 100644 index 77c123bfee62761aa3cbac34353ee2bede1a58b8..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_initialize.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_integrator.mod b/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_integrator.mod deleted file mode 100644 index bd4f054726609f23e638f9668f2a0bbb08257116..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_integrator.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_jacobian.mod b/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_jacobian.mod deleted file mode 100644 index f5f0e03ba6a74abced8e2f664b9b9d60a5783399..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_jacobian.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_jacobiansp.mod b/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_jacobiansp.mod deleted file mode 100644 index 6731bd7faf0afcd671bfe9830895a5406dd48c9f..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_jacobiansp.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_linearalgebra.mod b/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_linearalgebra.mod deleted file mode 100644 index 07cb9b86ceda73e5c5825fede8597403f29474ba..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_linearalgebra.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_model.mod b/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_model.mod deleted file mode 100644 index 18b3a8bbc19357130643d8b4a70a6b1a25e59980..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_model.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_monitor.mod b/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_monitor.mod deleted file mode 100644 index 596ea7cdbf2227674eb9c57a08ae0a0cab0a8dbd..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_monitor.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_parameters.mod b/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_parameters.mod deleted file mode 100644 index 35a94807c54a6199f237348e7c05311bbdb64d68..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_parameters.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_precision.mod b/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_precision.mod deleted file mode 100644 index 3ff8cee89e863e59b23efcfd82dc27271e13da92..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_precision.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_rates.mod b/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_rates.mod deleted file mode 100644 index 66b547aa51e48403ef2c56fcdadc93a81fd04fec..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_rates.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_stoichiom.mod b/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_stoichiom.mod deleted file mode 100644 index c2cd50847693f283437cf1f5dc8edf58d3c907f8..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_stoichiom.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_stoichiomsp.mod b/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_stoichiomsp.mod deleted file mode 100644 index c964bab6c2a698071f3a32363e7ced63cde02a52..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_stoichiomsp.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_util.mod b/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_util.mod deleted file mode 100644 index 5b38c111e529fdb1d5185f50573c6ac463c958a4..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MCMv3_3/mcmv3_3_util.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4.exe b/boxmox/compiled_mechs/MOZART_4/MOZART_4.exe deleted file mode 100755 index dc9b10433cbb5e1e3e528de78b13399612fe889d..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/MOZART_4.exe and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4.kpp b/boxmox/compiled_mechs/MOZART_4/MOZART_4.kpp deleted file mode 100644 index ea637760961ae4ba627c26552a31e662db8960bc..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_4/MOZART_4.kpp +++ /dev/null @@ -1,7 +0,0 @@ -#MODEL MOZART_4 -#LANGUAGE Fortran90 -#DOUBLE ON -#INTEGRATOR rosenbrock -#DRIVER ../boxmox/boxmox -#JACOBIAN SPARSE_LU_ROW -#HESSIAN OFF diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4.map b/boxmox/compiled_mechs/MOZART_4/MOZART_4.map deleted file mode 100644 index a5c705e215b7cd3d479c776497c60711c9b93940..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_4/MOZART_4.map +++ /dev/null @@ -1,99 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Map File with Human-Readable Information -! -! Generated by KPP-2.2.3 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 : MOZART_4.map -! Time : Mon Jul 19 09:14:05 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_4_11638_BOXMOX -! Equation file : MOZART_4.kpp -! Output root filename : MOZART_4 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -### Options ------------------------------------------- - -FUNCTION - AGGREGATE -JACOBIAN - SPARSE W/ ACCOUNT FOR LU DECOMPOSITION FILL-IN -DOUBLE - ON -REORDER - ON - -### Parameters ---------------------------------------- - -! NSPEC - Number of chemical species - INTEGER, PARAMETER :: NSPEC = 83 -! NVAR - Number of Variable species - INTEGER, PARAMETER :: NVAR = 81 -! NVARACT - Number of Active species - INTEGER, PARAMETER :: NVARACT = 80 -! NFIX - Number of Fixed species - INTEGER, PARAMETER :: NFIX = 2 -! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 196 -! NVARST - Starting of variables in conc. vect. - INTEGER, PARAMETER :: NVARST = 1 -! NFIXST - Starting of fixed in conc. vect. - INTEGER, PARAMETER :: NFIXST = 82 - -### Species ------------------------------------------- - -Variable species - 1 = SO4 (n) 29 = ONIT (r) 57 = C3H7O2 (r) - 2 = NH3 (r) 30 = EO2 (r) 58 = CO (r) - 3 = N2O (r) 31 = TOLOOH (r) 59 = ISOP (r) - 4 = C2H6 (r) 32 = CH3COOOH (r) 60 = ONITR (r) - 5 = C3H8 (r) 33 = MEK (r) 61 = C3H6 (r) - 6 = BIGENE (r) 34 = CH3COOH (r) 62 = CH3CHO (r) - 7 = BIGALK (r) 35 = POOH (r) 63 = RO2 (r) - 8 = SO2 (r) 36 = PAN (r) 64 = TERPO2 (r) - 9 = H2O2 (r) 37 = GLYOXAL (r) 65 = HYAC (r) - 10 = TOLUENE (r) 38 = TERPOOH (r) 66 = MACR (r) - 11 = CRESOL (r) 39 = HNO3 (r) 67 = CH3COCHO (r) - 12 = EO (r) 40 = CH4 (r) 68 = XO2 (r) - 13 = N2O5 (r) 41 = CH3OH (r) 69 = MVK (r) - 14 = XOH (r) 42 = ISOPOOH (r) 70 = MACRO2 (r) - 15 = XOOH (r) 43 = MPAN (r) 71 = ISOPO2 (r) - 16 = DMS (r) 44 = TOLO2 (r) 72 = CH2O (r) - 17 = C2H5OH (r) 45 = BIGALD (r) 73 = NO2 (r) - 18 = CH3OOH (r) 46 = C10H16 (r) 74 = MCO3 (r) - 19 = H2 (r) 47 = O1D_CB4 (r) 75 = OH (r) - 20 = MACROOH (r) 48 = ALKOOH (r) 76 = NO (r) - 21 = C2H5OOH (r) 49 = MEKO2 (r) 77 = CH3O2 (r) - 22 = C3H7OOH (r) 50 = PO2 (r) 78 = CH3CO3 (r) - 23 = ROOH (r) 51 = CH3COCH3 (r) 79 = HO2 (r) - 24 = ENEO2 (r) 52 = O (r) 80 = NO3 (r) - 25 = MEKOOH (r) 53 = ISOPNO3 (r) 81 = O3 (r) - 26 = HO2NO2 (r) 54 = GLYALD (r) - 27 = C2H4 (r) 55 = ALKO2 (r) - 28 = HYDRALD (r) 56 = C2H5O2 (r) - -Fixed species - 1 = H2O (r) 2 = M (r) - -### Subroutines --------------------------------------- - -SUBROUTINE Fun ( V, F, RCT, Vdot ) -SUBROUTINE Jac_SP ( V, F, RCT, JVS ) -SUBROUTINE Jac_SP_Vec ( JVS, UV, JUV ) -SUBROUTINE JacTR_SP_Vec ( JVS, UV, JTUV ) -SUBROUTINE KppSolve ( JVS, X ) -SUBROUTINE KppSolveTR ( JVS, X, XX ) -SUBROUTINE Initialize ( ) -SUBROUTINE Shuffle_user2kpp ( V_USER, V ) -SUBROUTINE Shuffle_kpp2user ( V, V_USER ) -SUBROUTINE Update_RCONST ( ) -SUBROUTINE Update_PHOTO ( ) -SUBROUTINE GetMass ( CL, Mass ) -SUBROUTINE ReactantProd ( V, F, ARP ) -SUBROUTINE JacReactantProd ( V, F, JVRP ) diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Function.f90 b/boxmox/compiled_mechs/MOZART_4/MOZART_4_Function.f90 deleted file mode 100644 index 2c58d2a90339a6391041b12ad18e0bde7a8cde5a..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Function.f90 +++ /dev/null @@ -1,382 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The ODE Function of Chemical Model File -! -! Generated by KPP-2.2.3 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 : MOZART_4_Function.f90 -! Time : Mon Jul 19 09:14:05 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_4_11638_BOXMOX -! Equation file : MOZART_4.kpp -! Output root filename : MOZART_4 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MOZART_4_Function - - USE MOZART_4_Parameters - IMPLICIT NONE - -! A - Rate for each equation - REAL(kind=dp) :: A(NREACT) - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Fun - time derivatives of variables - Agregate form -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! RCT - Rate constants (local) -! Vdot - Time derivative of variable species concentrations -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Fun ( V, F, RCT, Vdot ) - -! 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) -! Vdot - Time derivative of variable species concentrations - REAL(kind=dp) :: Vdot(NVAR) - - -! Computation of equation rates - A(1) = RCT(1)*F(2) - A(2) = RCT(2)*V(81) - A(3) = RCT(3)*V(81) - A(4) = RCT(4)*V(3) - A(5) = RCT(5)*V(73) - A(6) = RCT(6)*V(13) - A(7) = RCT(7)*V(39) - A(8) = RCT(8)*V(80) - A(9) = RCT(9)*V(26) - A(10) = RCT(10)*V(18) - A(11) = RCT(11)*V(72) - A(12) = RCT(12)*V(72) - A(13) = RCT(13)*V(9) - A(14) = RCT(14)*V(62) - A(15) = RCT(15)*V(35) - A(16) = RCT(16)*V(32) - A(17) = RCT(17)*V(36) - A(18) = RCT(18)*V(43) - A(19) = RCT(19)*V(66) - A(20) = RCT(20)*V(69) - A(21) = RCT(21)*V(21) - A(22) = RCT(22)*V(22) - A(23) = RCT(23)*V(23) - A(24) = RCT(24)*V(51) - A(25) = RCT(25)*V(67) - A(26) = RCT(26)*V(15) - A(27) = RCT(27)*V(60) - A(28) = RCT(28)*V(42) - A(29) = RCT(29)*V(65) - A(30) = RCT(30)*V(54) - A(31) = RCT(31)*V(33) - A(32) = RCT(32)*V(45) - A(33) = RCT(33)*V(37) - A(34) = RCT(34)*V(48) - A(35) = RCT(35)*V(25) - A(36) = RCT(36)*V(31) - A(37) = RCT(37)*V(38) - A(38) = RCT(38)*V(52)*F(2) - A(39) = RCT(39)*V(52)*V(81) - A(40) = RCT(40)*V(47)*F(2) - A(41) = RCT(41)*V(47)*F(1) - A(42) = RCT(42)*V(19)*V(47) - A(43) = RCT(43)*V(19)*V(75) - A(44) = RCT(44)*V(52)*V(75) - A(45) = RCT(45)*V(52)*V(79) - A(46) = RCT(46)*V(75)*V(81) - A(47) = RCT(47)*V(79)*V(81) - A(48) = RCT(48)*V(79)*V(79)*F(1) - A(49) = RCT(49)*V(9)*V(75) - A(50) = RCT(50)*V(75)*V(79) - A(51) = RCT(51)*V(75)*V(75) - A(52) = RCT(52)*V(75)*V(75) - A(53) = RCT(53)*V(3)*V(47) - A(54) = RCT(54)*V(3)*V(47) - A(55) = RCT(55)*V(76)*V(79) - A(56) = RCT(56)*V(76)*V(81) - A(57) = RCT(57)*V(52)*V(73) - A(58) = RCT(58)*V(73)*V(81) - A(59) = RCT(59)*V(79)*V(80) - A(60) = RCT(60)*V(73)*V(80) - A(61) = RCT(61)*V(13) - A(62) = RCT(62)*V(73)*V(75) - A(63) = RCT(63)*V(39)*V(75) - A(64) = RCT(64)*V(76)*V(80) - A(65) = RCT(65)*V(73)*V(79) - A(66) = RCT(66)*V(26)*V(75) - A(67) = RCT(67)*V(26) - A(68) = RCT(68)*V(13)*F(2) - A(69) = RCT(69)*V(80) - A(70) = RCT(70)*V(73) - A(71) = RCT(71)*V(40)*V(75) - A(72) = RCT(72)*V(40)*V(47) - A(73) = RCT(73)*V(76)*V(77) - A(74) = RCT(74)*V(77)*V(77) - A(75) = RCT(75)*V(77)*V(77) - A(76) = RCT(76)*V(77)*V(79) - A(77) = RCT(77)*V(18)*V(75) - A(78) = RCT(78)*V(72)*V(80) - A(79) = RCT(79)*V(72)*V(75) - A(80) = RCT(80)*V(58)*V(75) - A(81) = RCT(81)*V(27)*V(75) - A(82) = RCT(82)*V(27)*V(81) - A(83) = RCT(83)*V(8)*V(75) - A(84) = RCT(84)*V(37)*V(75) - A(85) = RCT(85)*V(30)*V(76) - A(86) = RCT(86)*V(12)*F(2) - A(87) = RCT(87)*V(12) - A(88) = RCT(88)*V(4)*V(75) - A(89) = RCT(89)*V(56)*V(76) - A(90) = RCT(90)*V(56)*V(79) - A(91) = RCT(91)*V(56)*V(77) - A(92) = RCT(92)*V(21)*V(75) - A(93) = RCT(93)*V(61)*V(75) - A(94) = RCT(94)*V(61)*V(81) - A(95) = RCT(95)*V(61)*V(80) - A(96) = RCT(96)*V(50)*V(76) - A(97) = RCT(97)*V(50)*V(79) - A(98) = RCT(98)*V(35)*V(75) - A(99) = RCT(99)*V(62)*V(75) - A(100) = RCT(100)*V(62)*V(80) - A(101) = RCT(101)*V(76)*V(78) - A(102) = RCT(102)*V(73)*V(78) - A(103) = RCT(103)*V(78)*V(79) - A(104) = RCT(104)*V(77)*V(78) - A(105) = RCT(105)*V(32)*V(75) - A(106) = RCT(106)*V(36) - A(107) = RCT(107)*V(78)*V(78) - A(108) = RCT(108)*V(5)*V(75) - A(109) = RCT(109)*V(57)*V(76) - A(110) = RCT(110)*V(57)*V(79) - A(111) = RCT(111)*V(57)*V(77) - A(112) = RCT(112)*V(22)*V(75) - A(113) = RCT(113)*V(51)*V(75) - A(114) = RCT(114)*V(63)*V(76) - A(115) = RCT(115)*V(63)*V(79) - A(116) = RCT(116)*V(63)*V(77) - A(117) = RCT(117)*V(23)*V(75) - A(118) = RCT(118)*V(6)*V(75) - A(119) = RCT(119)*V(24)*V(76) - A(120) = RCT(120)*V(7)*V(75) - A(121) = RCT(121)*V(55)*V(76) - A(122) = RCT(122)*V(55)*V(79) - A(123) = RCT(123)*V(48)*V(75) - A(124) = RCT(124)*V(29)*V(75) - A(125) = RCT(125)*V(33)*V(75) - A(126) = RCT(126)*V(49)*V(76) - A(127) = RCT(127)*V(49)*V(79) - A(128) = RCT(128)*V(25)*V(75) - A(129) = RCT(129)*V(10)*V(75) - A(130) = RCT(130)*V(11)*V(75) - A(131) = RCT(131)*V(14)*V(73) - A(132) = RCT(132)*V(44)*V(76) - A(133) = RCT(133)*V(44)*V(79) - A(134) = RCT(134)*V(31)*V(75) - A(135) = RCT(135)*V(59)*V(75) - A(136) = RCT(136)*V(59)*V(81) - A(137) = RCT(137)*V(71)*V(76) - A(138) = RCT(138)*V(71)*V(80) - A(139) = RCT(139)*V(71)*V(79) - A(140) = RCT(140)*V(42)*V(75) - A(141) = RCT(141)*V(71)*V(77) - A(142) = RCT(142)*V(71)*V(78) - A(143) = RCT(143)*V(69)*V(75) - A(144) = RCT(144)*V(69)*V(81) - A(145) = RCT(145)*V(66)*V(75) - A(146) = RCT(146)*V(66)*V(81) - A(147) = RCT(147)*V(70)*V(76) - A(148) = RCT(148)*V(70)*V(76) - A(149) = RCT(149)*V(70)*V(80) - A(150) = RCT(150)*V(70)*V(79) - A(151) = RCT(151)*V(70)*V(77) - A(152) = RCT(152)*V(70)*V(78) - A(153) = RCT(153)*V(20)*V(75) - A(154) = RCT(154)*V(74)*V(76) - A(155) = RCT(155)*V(74)*V(80) - A(156) = RCT(156)*V(74)*V(79) - A(157) = RCT(157)*V(74)*V(77) - A(158) = RCT(158)*V(74)*V(78) - A(159) = RCT(159)*V(74)*V(74) - A(160) = RCT(160)*V(73)*V(74)*F(2) - A(161) = RCT(161)*V(43)*F(2) - A(162) = RCT(162)*V(46)*V(75) - A(163) = RCT(163)*V(46)*V(81) - A(164) = RCT(164)*V(46)*V(80) - A(165) = RCT(165)*V(64)*V(76) - A(166) = RCT(166)*V(64)*V(79) - A(167) = RCT(167)*V(38)*V(75) - A(168) = RCT(168)*V(34)*V(75) - A(169) = RCT(169)*V(59)*V(80) - A(170) = RCT(170)*V(53)*V(76) - A(171) = RCT(171)*V(53)*V(80) - A(172) = RCT(172)*V(53)*V(79) - A(173) = RCT(173)*V(67)*V(75) - A(174) = RCT(174)*V(67)*V(80) - A(175) = RCT(175)*V(60)*V(75) - A(176) = RCT(176)*V(60)*V(80) - A(177) = RCT(177)*V(28)*V(75) - A(178) = RCT(178)*V(68)*V(76) - A(179) = RCT(179)*V(68)*V(80) - A(180) = RCT(180)*V(68)*V(79) - A(181) = RCT(181)*V(68)*V(77) - A(182) = RCT(182)*V(68)*V(78) - A(183) = RCT(183)*V(15)*V(75) - A(184) = RCT(184)*V(15)*V(75) - A(185) = RCT(185)*V(41)*V(75) - A(186) = RCT(186)*V(17)*V(75) - A(187) = RCT(187)*V(43)*V(75) - A(188) = RCT(188)*V(36)*V(75) - A(189) = RCT(189)*V(65)*V(75) - A(190) = RCT(190)*V(54)*V(75) - A(191) = RCT(191)*V(16)*V(75) - A(192) = RCT(192)*V(16)*V(75) - A(193) = RCT(193)*V(16)*V(80) - A(194) = RCT(194)*V(2)*V(75) - A(195) = RCT(195)*V(79) - A(196) = RCT(196)*V(56)*V(56) - -! Aggregate function - Vdot(1) = A(83) - Vdot(2) = -A(194) - Vdot(3) = -A(4)-A(53)-A(54) - Vdot(4) = -A(88) - Vdot(5) = -A(108) - Vdot(6) = -A(118) - Vdot(7) = -A(120) - Vdot(8) = -A(83)+A(191)+0.5*A(192)+A(193) - Vdot(9) = -A(13)+A(48)-A(49)+A(52)+0.5*A(195) - Vdot(10) = -A(129) - Vdot(11) = 0.25*A(129)-A(130) - Vdot(12) = A(85)-A(86)-A(87) - Vdot(13) = -A(6)+A(60)-A(61)-A(68) - Vdot(14) = A(130)-A(131) - Vdot(15) = -A(26)+A(180)-A(183)-A(184) - Vdot(16) = -A(191)-A(192)-A(193) - Vdot(17) = 0.2*A(91)-A(186)+0.4*A(196) - Vdot(18) = -A(10)+A(76)-A(77) - Vdot(19) = A(12)-A(42)-A(43)+0.05*A(72) - Vdot(20) = A(150)-A(153) - Vdot(21) = -A(21)+A(90)-A(92) - Vdot(22) = -A(22)+A(110)-A(112) - Vdot(23) = -A(23)+A(115)-A(117) - Vdot(24) = A(118)-A(119) - Vdot(25) = -A(35)+A(127)-A(128) - Vdot(26) = -A(9)+A(65)-A(66)-A(67) - Vdot(27) = -A(81)-A(82) - Vdot(28) = 0.37*A(137)+0.4*A(138)+0.3*A(141)+0.4*A(142)+A(175)+A(176)-A(177) - Vdot(29) = A(95)+0.1*A(121)-A(124) - Vdot(30) = 0.75*A(81)-A(85) - Vdot(31) = -A(36)+A(133)-A(134) - Vdot(32) = -A(16)+0.75*A(103)-A(105)+0.75*A(156) - Vdot(33) = -A(31)+0.8*A(34)+0.75*A(121)-A(125) - Vdot(34) = 0.25*A(82)+0.25*A(94)+0.25*A(103)+0.1*A(104)+0.2*A(136)+0.25*A(156)-A(168) - Vdot(35) = -A(15)+A(97)-A(98) - Vdot(36) = -A(17)+A(102)-A(106)-A(188) - Vdot(37) = 0.13*A(32)-A(33)+0.45*A(36)-A(84)+0.45*A(132)+0.2*A(190) - Vdot(38) = -A(37)+A(166)-A(167) - Vdot(39) = -A(7)+A(62)-A(63)+2*A(68)+A(69)+0.5*A(70)+A(78)+A(100)+A(174)+A(193) - Vdot(40) = -A(71)-A(72)+0.08*A(94) - Vdot(41) = A(75)+0.3*A(91)+0.5*A(116)+0.25*A(141)+0.25*A(151)+0.3*A(181)-A(185) - Vdot(42) = -A(28)+A(139)-A(140) - Vdot(43) = -A(18)+A(160)-A(161)-A(187) - Vdot(44) = 0.7*A(129)-A(132)-A(133)+A(134) - Vdot(45) = -A(32)+0.9*A(36)+0.7*A(131)+0.9*A(132) - Vdot(46) = -A(162)-A(163)-A(164) - Vdot(47) = A(2)+A(4)-A(40)-A(41)-A(42)-A(53)-A(54)-A(72) - Vdot(48) = -A(34)+A(122)-A(123) - Vdot(49) = A(125)-A(126)-A(127)+A(128) - Vdot(50) = A(93)-A(96)-A(97)+0.5*A(98) - Vdot(51) = 0.82*A(22)-A(24)+0.25*A(34)+0.1*A(37)+0.82*A(109)+0.82*A(111)-A(113)+0.5*A(119)+0.25*A(121)+0.1*A(165) - Vdot(52) = 2*A(1)+A(3)+A(5)-A(38)-A(39)+A(40)-A(44)-A(45)+A(51)-A(57) - Vdot(53) = A(169)-A(170)-A(171)-A(172) - Vdot(54) = -A(30)+A(86)+0.53*A(147)+0.53*A(149)+0.26*A(151)+0.53*A(152)+0.25*A(178)+0.25*A(179)+0.1*A(181)+0.25*A(182)& - &-A(190) - Vdot(55) = A(120)-A(121)-A(122)+A(123) - Vdot(56) = A(31)+A(88)-A(89)-A(90)-A(91)+0.5*A(92)-2*A(196) - Vdot(57) = A(108)-A(109)-A(110)-A(111)+A(112) - Vdot(58) = A(11)+A(12)+A(14)+0.67*A(19)+0.7*A(20)+A(25)+A(27)+A(30)+0.45*A(32)+2*A(33)+A(78)+A(79)-A(80)+0.5*A(82)& - &+A(84)+0.56*A(94)+0.3*A(136)+0.05*A(144)+0.2*A(146)+0.22*A(147)+0.22*A(149)+0.11*A(151)+0.22*A(152)+A(173)& - &+A(174)+A(178)+A(179)+0.4*A(181)+A(182) - Vdot(59) = -A(135)-A(136)-A(169) - Vdot(60) = -A(27)+0.08*A(137)+0.8*A(148)+0.794*A(170)+0.794*A(171)+0.794*A(172)-A(175)-A(176) - Vdot(61) = 0.7*A(20)-A(93)-A(94)-A(95)+0.07*A(136) - Vdot(62) = -A(14)+A(15)+A(21)+0.4*A(34)+A(35)+A(89)+0.8*A(91)+0.5*A(92)+0.5*A(94)+A(96)-A(99)-A(100)+0.27*A(109)& - &+A(119)+0.4*A(121)+A(126)+0.04*A(144)+A(186)+1.6*A(196) - Vdot(63) = A(113)-A(114)-A(115)-A(116)+A(117) - Vdot(64) = A(162)+A(164)-A(165)-A(166)+A(167) - Vdot(65) = -A(29)+0.5*A(98)+0.2*A(116)+0.22*A(147)+0.22*A(149)+0.23*A(151)+0.22*A(152)+0.25*A(178)+0.25*A(179)+0.1& - &*A(181)+0.25*A(182)+0.5*A(187)-A(189) - Vdot(66) = -A(19)+0.288*A(28)+A(37)+0.4*A(136)+0.23*A(137)+0.25*A(138)+0.19*A(141)+0.25*A(142)-A(145)-A(146)+A(163)& - &+A(165)+0.167*A(170)+0.167*A(171)+0.167*A(172) - Vdot(67) = -A(25)+0.18*A(32)+0.45*A(36)+0.5*A(116)+A(124)+0.45*A(132)+0.95*A(144)+0.8*A(146)+0.25*A(147)+0.25*A(149)& - &+0.24*A(151)+0.25*A(152)-A(173)-A(174)+0.25*A(178)+0.25*A(179)+0.1*A(181)+0.25*A(182)+A(189) - Vdot(68) = 0.5*A(140)+A(177)-A(178)-A(179)-A(180)-A(181)-A(182)+A(183) - Vdot(69) = -A(20)+0.402*A(28)+A(37)+0.2*A(136)+0.32*A(137)+0.35*A(138)+0.26*A(141)+0.35*A(142)-A(143)-A(144)+A(163)& - &+A(165)+0.039*A(170)+0.039*A(171)+0.039*A(172) - Vdot(70) = A(143)+0.5*A(145)-A(147)-A(148)-A(149)-A(150)-A(151)-A(152)+0.2*A(153) - Vdot(71) = A(135)-A(137)-A(138)-A(139)+0.5*A(140)-A(141)-A(142) - Vdot(72) = A(10)-A(11)-A(12)+A(15)+0.67*A(19)+A(23)+A(27)+0.69*A(28)+A(29)+A(30)+0.1*A(34)+0.25*A(72)+A(73)+2*A(74)& - &+A(75)+0.3*A(77)-A(78)-A(79)+0.5*A(81)+A(82)+2*A(87)+0.7*A(91)+0.54*A(94)+A(96)+A(104)+0.5*A(105)+A(111)& - &+A(114)+0.8*A(116)+0.5*A(119)+0.1*A(121)+0.6*A(136)+0.55*A(137)+0.6*A(138)+1.2*A(141)+0.6*A(142)+0.8*A(144)& - &+0.7*A(146)+0.25*A(147)+0.25*A(149)+0.88*A(151)+0.25*A(152)+A(154)+A(155)+2*A(157)+A(158)+2*A(159)+0.072& - &*A(170)+0.072*A(171)+0.008*A(172)+0.7*A(181)+A(185)+0.5*A(187)+A(188)+0.8*A(190) - Vdot(73) = -A(5)+A(6)+A(7)+0.89*A(8)+0.66*A(9)+0.6*A(17)+A(18)+A(27)+A(55)+A(56)-A(57)-A(58)+A(59)-A(60)+A(61)-A(62)+2& - &*A(64)-A(65)+A(66)+A(67)-A(70)+A(73)+A(85)+A(89)+A(96)+A(101)-A(102)+A(106)+A(109)+A(114)+A(119)+0.9*A(121)& - &+A(124)+A(126)-0.3*A(131)+0.9*A(132)+0.92*A(137)+A(138)+A(147)+A(149)+A(154)+A(155)-A(160)+A(161)+A(164)& - &+A(165)+1.206*A(170)+1.206*A(171)+0.206*A(172)+0.4*A(175)+A(176)+A(178)+A(179) - Vdot(74) = A(18)+0.33*A(19)+0.2*A(136)+0.5*A(145)+0.5*A(153)-A(154)-A(155)-A(156)-A(157)-A(158)-2*A(159)-A(160)+A(161) - Vdot(75) = A(7)+0.33*A(9)+A(10)+2*A(13)+A(15)+A(16)+0.33*A(19)+A(21)+A(22)+A(23)+A(26)+A(34)+A(35)+A(36)+A(37)+2*A(41)& - &+A(42)-A(43)-A(44)+A(45)-A(46)+A(47)-A(49)-A(50)-2*A(51)-2*A(52)+A(55)+A(59)-A(62)-A(63)-A(66)+0.5*A(70)& - &-A(71)+0.75*A(72)-0.7*A(77)-A(79)-A(80)-A(81)+0.12*A(82)-A(83)-A(84)-A(88)-0.5*A(92)-A(93)+0.33*A(94)-0.5& - &*A(98)-A(99)-A(105)-A(108)-A(112)-A(113)-A(117)-A(118)-A(120)-A(123)-A(124)-A(125)-A(128)-A(129)-A(130)& - &-A(134)-A(135)+0.27*A(136)-A(140)-A(143)+0.08*A(144)-A(145)+0.215*A(146)-0.9*A(153)-A(162)+0.7*A(163)-A(167)& - &-A(168)-A(173)-A(175)-A(177)-A(183)-A(185)-A(186)-A(187)-A(188)-A(189)-A(190)-A(191)-A(192)-A(194) - Vdot(76) = A(5)+0.11*A(8)+2*A(53)-A(55)-A(56)+A(57)-A(64)+0.5*A(70)-A(73)-A(85)-A(89)-A(96)-A(101)-A(109)-A(114)& - &-A(119)-A(121)-A(126)-A(132)-A(137)-A(147)-A(148)-A(154)-A(165)-A(170)-A(178) - Vdot(77) = A(14)+A(16)+0.4*A(17)+0.3*A(20)+A(24)+A(71)+0.75*A(72)-A(73)-2*A(74)-2*A(75)-A(76)+0.7*A(77)-A(91)+0.31& - &*A(94)+A(101)-0.1*A(104)+2*A(107)-A(111)-A(116)-A(141)+A(142)-A(151)+A(152)-A(157)+A(158)+A(168)-A(181)& - &+A(182) - Vdot(78) = 0.6*A(17)+0.67*A(19)+0.3*A(20)+A(23)+A(24)+A(25)+A(29)+A(31)+0.13*A(32)+A(35)+A(99)+A(100)-A(101)-A(102)& - &-A(103)-A(104)+0.5*A(105)+A(106)-2*A(107)+A(114)+0.3*A(116)+A(126)-A(142)+0.53*A(147)+0.53*A(149)+0.26& - &*A(151)-0.47*A(152)+A(154)+A(155)+A(157)+2*A(159)+A(173)+A(174)-A(182) - Vdot(79) = 0.66*A(9)+A(10)+2*A(11)+A(14)+A(15)+0.67*A(19)+A(21)+A(22)+A(25)+A(27)+A(28)+A(29)+2*A(30)+0.56*A(32)+2& - &*A(33)+0.9*A(34)+A(37)+A(42)+A(43)+A(44)-A(45)+A(46)-A(47)-2*A(48)+A(49)-A(50)-A(55)-A(59)-A(65)+A(67)+0.4& - &*A(72)+A(73)+2*A(74)-A(76)+A(78)+A(79)+A(80)+0.25*A(81)+0.12*A(82)+A(84)+A(86)+A(87)+A(89)-A(90)+A(91)+0.19& - &*A(94)+A(96)-A(97)-A(103)+0.9*A(104)+A(109)-A(110)+A(111)-A(115)+0.3*A(116)+A(119)+0.9*A(121)-A(122)-A(127)& - &+0.25*A(129)+0.7*A(131)+0.9*A(132)-A(133)+0.06*A(136)+A(137)+A(138)-A(139)+A(141)+A(142)+0.06*A(144)+0.275& - &*A(146)+0.47*A(147)+0.47*A(149)-A(150)+0.73*A(151)+0.47*A(152)+0.2*A(153)-A(156)+A(157)+A(163)+A(165)-A(166)& - &+0.794*A(170)+0.794*A(171)-0.206*A(172)+A(175)+A(176)+1.5*A(178)+1.5*A(179)-A(180)+A(181)+1.5*A(182)+A(185)& - &+A(186)+0.5*A(187)+A(189)+A(190)+0.5*A(192)-A(195)+1.2*A(196) - Vdot(80) = A(6)-A(8)+0.33*A(9)+0.4*A(17)+A(58)-A(59)-A(60)+A(61)+A(63)-A(64)-A(69)-A(78)-A(95)-A(100)-A(138)-A(149)& - &-A(155)-A(164)-A(169)-A(171)-A(174)-A(176)-A(179)+0.5*A(187)+A(188)-A(193) - Vdot(81) = -A(2)-A(3)+0.89*A(8)+A(38)-A(39)-A(46)-A(47)-A(56)-A(58)-A(82)-A(94)+0.25*A(103)-0.9*A(136)-0.8*A(144)-0.8& - &*A(146)+0.25*A(156)-A(163) - -END SUBROUTINE Fun - -! End of Fun function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE MOZART_4_Function - diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Function.o b/boxmox/compiled_mechs/MOZART_4/MOZART_4_Function.o deleted file mode 100644 index 45cfd3ad0fb3ecfe5a8f5901ad7e8f277a92f8b8..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Function.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Global.f90 b/boxmox/compiled_mechs/MOZART_4/MOZART_4_Global.f90 deleted file mode 100644 index 68c17449783facc971b93122a4a82f5edc735926..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Global.f90 +++ /dev/null @@ -1,135 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Global Data Module File -! -! Generated by KPP-2.2.3 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 : MOZART_4_Global.f90 -! Time : Mon Jul 19 09:14:05 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_4_11638_BOXMOX -! Equation file : MOZART_4.kpp -! Output root filename : MOZART_4 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MOZART_4_Global - - USE MOZART_4_Parameters, ONLY: dp, NSPEC, NVAR, NFIX, NREACT, LU_NONZERO - PUBLIC - SAVE - - -! Declaration of global variables - -! C - Concentration of all species - REAL(kind=dp) :: C(NSPEC) -! VAR - Concentrations of variable species (global) - REAL(kind=dp) :: VAR(NVAR) -! FIX - Concentrations of fixed species (global) - REAL(kind=dp) :: FIX(NFIX) -! VAR, FIX are chunks of array C - EQUIVALENCE( C(1),VAR(1) ) - EQUIVALENCE( C(82),FIX(1) ) -! RCONST - Rate constants (global) - REAL(kind=dp) :: RCONST(NREACT) -! TIME - Current integration time - REAL(kind=dp) :: TIME -! SUN - Sunlight intensity between [0,1] - REAL(kind=dp) :: SUN -! TEMP - Temperature - REAL(kind=dp) :: TEMP -! RTOLS - (scalar) Relative tolerance - REAL(kind=dp) :: RTOLS -! TSTART - Integration start time - REAL(kind=dp) :: TSTART -! TEND - Integration end time - REAL(kind=dp) :: TEND -! DT - Integration step - REAL(kind=dp) :: DT -! ATOL - Absolute tolerance - REAL(kind=dp) :: ATOL(NVAR) -! RTOL - Relative tolerance - REAL(kind=dp) :: RTOL(NVAR) -! STEPMIN - Lower bound for integration step - REAL(kind=dp) :: STEPMIN -! STEPMAX - Upper bound for integration step - REAL(kind=dp) :: STEPMAX -! CFACTOR - Conversion factor for concentration units - REAL(kind=dp) :: CFACTOR - -! INLINED global variable declarations - - - ! BOXMOX global variables - - ! Parameters - INTEGER, PARAMETER :: max_species_boxmox = 10000 ! maximum number of species - ! read in - INTEGER, PARAMETER :: max_jhash_boxmox = 10000 ! maximum hash value of - ! photolysis rate labels - - ! Configuration - LOGICAL :: lverbose ! verbose output? - LOGICAL :: llibrary ! library version? - - - ! State definition - REAL(KIND=dp) :: pres ! pressure [Pa] - ! temperature variable temp [K] defined in KPP already - REAL(KIND=dp) :: dxdydz(3), dxdydz_old(3) ! box dimensions (x,y,z) - ! [m] - - ! Turbulent mixing - INTEGER :: iturb ! type of mixing - INTEGER, PARAMETER :: TURB_OPT_NONE = 0, & ! no turbulent mixing - TURB_OPT_SPECIFIED = 1, & ! using specified Kturb - TURB_OPT_VOLUME = 2, & ! using volume changes - TURB_OPT_TRACER = 3 ! using tracer conc. - REAL(KIND=dp) :: Kturb ! eddy diffusivity [m2 s-1] - - ! Photolysis rates - REAL(KIND=dp) :: jvalues(max_jhash_boxmox) ! Photolysis rate [s-1] - - ! Aerosol - REAL(KIND=dp) :: AER_R, & ! particle radius [m] - AER_SAD ! surface area density - ! [m^2 m^-3] - - ! Steady-state modeling - LOGICAL :: lfix_nox ! fix total NOx? - REAL(kind=dp) :: initial_total_nox ! total NOx to fix - - - - ! global variables used by special rate constants of this mechanism - - ! air/water concentration (molecules/cm3) - REAL(KIND=dp) :: c_m, c_h2o - ! relative humidity - REAL(KIND=dp) :: rh - - ! SOA formation - REAL(KIND=dp) :: nume, den - INTEGER, PARAMETER :: vbs_nbin = 4, vbs_nspec = 9, & - vbs_alk4 = 1, vbs_alk5 = 2, vbs_ole1 = 3, & - vbs_ole2 = 4, vbs_aro1 = 5, vbs_aro2 = 6, & - vbs_isop = 7, vbs_sesq = 8, vbs_terp = 9, & - vbs_c1 = 1, vbs_c10 = 2, vbs_c100 = 3, & - vbs_c1000 = 4 - - -! INLINED global variable declarations - - -END MODULE MOZART_4_Global - diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Global.o b/boxmox/compiled_mechs/MOZART_4/MOZART_4_Global.o deleted file mode 100644 index 0e35e740e1507faf5c8fb205db03b56c756331eb..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Global.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Initialize.f90 b/boxmox/compiled_mechs/MOZART_4/MOZART_4_Initialize.f90 deleted file mode 100644 index fbb021b7422fa83e01338fa9507596e6e3b4e0f0..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Initialize.f90 +++ /dev/null @@ -1,115 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Initialization File -! -! Generated by KPP-2.2.3 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 : MOZART_4_Initialize.f90 -! Time : Mon Jul 19 09:14:05 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_4_11638_BOXMOX -! Equation file : MOZART_4.kpp -! Output root filename : MOZART_4 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MOZART_4_Initialize - - USE MOZART_4_Parameters, ONLY: dp, NVAR, NFIX - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Initialize - function to initialize concentrations -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Initialize ( ) - - - USE MOZART_4_Global - - USE MOZART_4_Util - - INTEGER :: i - REAL(kind=dp) :: x - - CFACTOR = 1.000000e+00_dp - - x = (1.0E-9)*CFACTOR - DO i = 1, NVAR - VAR(i) = x - END DO - - x = (1.0E-9)*CFACTOR - DO i = 1, NFIX - FIX(i) = x - END DO - -! constant rate coefficients -! END constant rate coefficients - -! INLINED initializations - - - IF (.NOT. llibrary) THEN - - ! Write version number to VERSION file - CALL writeVersion() - - ! Initialization (time step, run length, etc.) happening - ! in namelist BOXMOX.nml. Read it! - CALL readConfig() - - ENDIF - - ! Check configuration values - CALL checkConfig() - - - - ! BOXMOX defaults for global variables - - ! Environment.csv - temp = 293.15 ! K - pres = 101325.0 ! Pa - dxdydz(:) = 1.0 ! m - - ! Aerosol.csv - AER_SAD = 0.0 ! m^2 m^-3 - AER_R = 1.0e-6 ! m - - ! Turbulent mixing - Kturb = 0.0 ! m2 s-1 - - - - ! relative humidity (not really used...) - rh = 0.5 - - -! End INLINED initializations - - -END SUBROUTINE Initialize - -! End of Initialize function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE MOZART_4_Initialize - diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Initialize.o b/boxmox/compiled_mechs/MOZART_4/MOZART_4_Initialize.o deleted file mode 100644 index 7e2129810a0f8d185959c505935832e20a736114..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Initialize.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Integrator.f90 b/boxmox/compiled_mechs/MOZART_4/MOZART_4_Integrator.f90 deleted file mode 100644 index 3070a5ddd236aa145e83e2da54ef526bf96cbf10..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Integrator.f90 +++ /dev/null @@ -1,1365 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Numerical Integrator (Time-Stepping) File -! -! Generated by KPP-2.2.3 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 : MOZART_4_Integrator.f90 -! Time : Mon Jul 19 09:14:05 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_4_11638_BOXMOX -! Equation file : MOZART_4.kpp -! Output root filename : MOZART_4 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! INTEGRATE - Integrator routine -! Arguments : -! TIN - Start Time for Integration -! TOUT - End Time for Integration -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! -! Rosenbrock - Implementation of several Rosenbrock methods: ! -! * Ros2 ! -! * Ros3 ! -! * Ros4 ! -! * Rodas3 ! -! * Rodas4 ! -! By default the code employs the KPP sparse linear algebra routines ! -! Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK) ! -! ! -! (C) Adrian Sandu, August 2004 ! -! Virginia Polytechnic Institute and State University ! -! Contact: sandu@cs.vt.edu ! -! Revised by Philipp Miehe and Adrian Sandu, May 2006 ! ! -! This implementation is part of KPP - the Kinetic PreProcessor ! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! - -MODULE MOZART_4_Integrator - - USE MOZART_4_Parameters, ONLY: NVAR, NFIX, NSPEC, LU_NONZERO - USE MOZART_4_Global - IMPLICIT NONE - PUBLIC - SAVE - -!~~~> Statistics on the work performed by the Rosenbrock method - INTEGER, PARAMETER :: Nfun=1, Njac=2, Nstp=3, Nacc=4, & - Nrej=5, Ndec=6, Nsol=7, Nsng=8, & - Ntexit=1, Nhexit=2, Nhnew = 3 - -CONTAINS - -SUBROUTINE INTEGRATE( TIN, TOUT, & - ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U, IERR_U ) - - IMPLICIT NONE - - REAL(kind=dp), INTENT(IN) :: TIN ! Start Time - REAL(kind=dp), INTENT(IN) :: TOUT ! End Time - ! Optional input parameters and statistics - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - REAL(kind=dp), INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - REAL(kind=dp), INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: IERR_U - - REAL(kind=dp) :: RCNTRL(20), RSTATUS(20) - INTEGER :: ICNTRL(20), ISTATUS(20), IERR - - INTEGER, SAVE :: Ntotal = 0 - - ICNTRL(:) = 0 - RCNTRL(:) = 0.0_dp - ISTATUS(:) = 0 - RSTATUS(:) = 0.0_dp - - !~~~> fine-tune the integrator: - ICNTRL(1) = 0 ! 0 - non-autonomous, 1 - autonomous - ICNTRL(2) = 0 ! 0 - vector tolerances, 1 - scalars - - ! If optional parameters are given, and if they are >0, - ! then they overwrite default settings. - IF (PRESENT(ICNTRL_U)) THEN - WHERE(ICNTRL_U(:) > 0) ICNTRL(:) = ICNTRL_U(:) - END IF - IF (PRESENT(RCNTRL_U)) THEN - WHERE(RCNTRL_U(:) > 0) RCNTRL(:) = RCNTRL_U(:) - END IF - - - CALL Rosenbrock(NVAR,VAR,TIN,TOUT, & - ATOL,RTOL, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) - - !~~~> Debug option: show no of steps - ! Ntotal = Ntotal + ISTATUS(Nstp) - ! PRINT*,'NSTEPS=',ISTATUS(Nstp),' (',Ntotal,')',' O3=', VAR(ind_O3) - - STEPMIN = RSTATUS(Nhexit) - ! if optional parameters are given for output they - ! are updated with the return information - IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(:) - IF (PRESENT(RSTATUS_U)) RSTATUS_U(:) = RSTATUS(:) - IF (PRESENT(IERR_U)) IERR_U = IERR - -END SUBROUTINE INTEGRATE - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE Rosenbrock(N,Y,Tstart,Tend, & - AbsTol,RelTol, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Solves the system y'=F(t,y) using a Rosenbrock method defined by: -! -! G = 1/(H*gamma(1)) - Jac(t0,Y0) -! T_i = t0 + Alpha(i)*H -! Y_i = Y0 + \sum_{j=1}^{i-1} A(i,j)*K_j -! G * K_i = Fun( T_i, Y_i ) + \sum_{j=1}^S C(i,j)/H * K_j + -! gamma(i)*dF/dT(t0, Y0) -! Y1 = Y0 + \sum_{j=1}^S M(j)*K_j -! -! For details on Rosenbrock methods and their implementation consult: -! E. Hairer and G. Wanner -! "Solving ODEs II. Stiff and differential-algebraic problems". -! Springer series in computational mathematics, Springer-Verlag, 1996. -! The codes contained in the book inspired this implementation. -! -! (C) Adrian Sandu, August 2004 -! Virginia Polytechnic Institute and State University -! Contact: sandu@cs.vt.edu -! Revised by Philipp Miehe and Adrian Sandu, May 2006 -! This implementation is part of KPP - the Kinetic PreProcessor -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT ARGUMENTS: -! -!- Y(N) = vector of initial conditions (at T=Tstart) -!- [Tstart,Tend] = time range of integration -! (if Tstart>Tend the integration is performed backwards in time) -!- RelTol, AbsTol = user precribed accuracy -!- SUBROUTINE Fun( T, Y, Ydot ) = ODE function, -! returns Ydot = Y' = F(T,Y) -!- SUBROUTINE Jac( T, Y, Jcb ) = Jacobian of the ODE function, -! returns Jcb = dFun/dY -!- ICNTRL(1:20) = integer inputs parameters -!- RCNTRL(1:20) = real inputs parameters -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT ARGUMENTS: -! -!- Y(N) -> vector of final states (at T->Tend) -!- ISTATUS(1:20) -> integer output parameters -!- RSTATUS(1:20) -> real output parameters -!- IERR -> job status upon return -! success (positive value) or -! failure (negative value) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT PARAMETERS: -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -! ICNTRL(1) = 1: F = F(y) Independent of T (AUTONOMOUS) -! = 0: F = F(t,y) Depends on T (NON-AUTONOMOUS) -! -! ICNTRL(2) = 0: AbsTol, RelTol are N-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ICNTRL(3) -> selection of a particular Rosenbrock method -! = 0 : Rodas3 (default) -! = 1 : Ros2 -! = 2 : Ros3 -! = 3 : Ros4 -! = 4 : Rodas3 -! = 5 : Rodas4 -! -! ICNTRL(4) -> maximum number of integration steps -! For ICNTRL(4)=0) the default value of 100000 is used -! -! RCNTRL(1) -> Hmin, lower bound for the integration step size -! It is strongly recommended to keep Hmin = ZERO -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! RCNTRL(3) -> Hstart, starting value for the integration step size -! -! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! RCNTRL(5) -> FacMax, upper bound on step increase factor (default=6) -! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! -! OUTPUT ARGUMENTS: -! ----------------- -! -! T -> T value for which the solution has been computed -! (after successful return T=Tend). -! -! Y(N) -> Numerical solution at T -! -! IDID -> Reports on successfulness upon return: -! = 1 for success -! < 0 for error (value equals error code) -! -! ISTATUS(1) -> No. of function calls -! ISTATUS(2) -> No. of jacobian calls -! ISTATUS(3) -> No. of steps -! ISTATUS(4) -> No. of accepted steps -! ISTATUS(5) -> No. of rejected steps (except at very beginning) -! ISTATUS(6) -> No. of LU decompositions -! ISTATUS(7) -> No. of forward/backward substitutions -! ISTATUS(8) -> No. of singular matrix decompositions -! -! RSTATUS(1) -> Texit, the time corresponding to the -! computed Y upon return -! RSTATUS(2) -> Hexit, last accepted step before exit -! RSTATUS(3) -> Hnew, last predicted step (not yet taken) -! For multiple restarts, use Hnew as Hstart -! in the subsequent run -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MOZART_4_Parameters - USE MOZART_4_LinearAlgebra - IMPLICIT NONE - -!~~~> Arguments - INTEGER, INTENT(IN) :: N - REAL(kind=dp), INTENT(INOUT) :: Y(N) - REAL(kind=dp), INTENT(IN) :: Tstart,Tend - REAL(kind=dp), INTENT(IN) :: AbsTol(N),RelTol(N) - INTEGER, INTENT(IN) :: ICNTRL(20) - REAL(kind=dp), INTENT(IN) :: RCNTRL(20) - INTEGER, INTENT(INOUT) :: ISTATUS(20) - REAL(kind=dp), INTENT(INOUT) :: RSTATUS(20) - INTEGER, INTENT(OUT) :: IERR -!~~~> Parameters of the Rosenbrock method, up to 6 stages - INTEGER :: ros_S, rosMethod - INTEGER, PARAMETER :: RS2=1, RS3=2, RS4=3, RD3=4, RD4=5, RG3=6 - REAL(kind=dp) :: ros_A(15), ros_C(15), ros_M(6), ros_E(6), & - ros_Alpha(6), ros_Gamma(6), ros_ELO - LOGICAL :: ros_NewF(6) - CHARACTER(LEN=12) :: ros_Name -!~~~> Local variables - REAL(kind=dp) :: Roundoff, FacMin, FacMax, FacRej, FacSafe - REAL(kind=dp) :: Hmin, Hmax, Hstart - REAL(kind=dp) :: Texit - INTEGER :: i, UplimTol, Max_no_steps - LOGICAL :: Autonomous, VectorTol -!~~~> Parameters - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp - REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp - -!~~~> Initialize statistics - ISTATUS(1:8) = 0 - RSTATUS(1:3) = ZERO - -!~~~> Autonomous or time dependent ODE. Default is time dependent. - Autonomous = .NOT.(ICNTRL(1) == 0) - -!~~~> For Scalar tolerances (ICNTRL(2).NE.0) the code uses AbsTol(1) and RelTol(1) -! For Vector tolerances (ICNTRL(2) == 0) the code uses AbsTol(1:N) and RelTol(1:N) - IF (ICNTRL(2) == 0) THEN - VectorTol = .TRUE. - UplimTol = N - ELSE - VectorTol = .FALSE. - UplimTol = 1 - END IF - -!~~~> Initialize the particular Rosenbrock method selected - SELECT CASE (ICNTRL(3)) - CASE (1) - CALL Ros2 - CASE (2) - CALL Ros3 - CASE (3) - CALL Ros4 - CASE (0,4) - CALL Rodas3 - CASE (5) - CALL Rodas4 - CASE (6) - CALL Rang3 - CASE DEFAULT - PRINT * , 'Unknown Rosenbrock method: ICNTRL(3)=',ICNTRL(3) - CALL ros_ErrorMsg(-2,Tstart,ZERO,IERR) - RETURN - END SELECT - -!~~~> The maximum number of steps admitted - IF (ICNTRL(4) == 0) THEN - Max_no_steps = 200000 - ELSEIF (ICNTRL(4) > 0) THEN - Max_no_steps=ICNTRL(4) - ELSE - PRINT * ,'User-selected max no. of steps: ICNTRL(4)=',ICNTRL(4) - CALL ros_ErrorMsg(-1,Tstart,ZERO,IERR) - RETURN - END IF - -!~~~> Unit roundoff (1+Roundoff>1) - Roundoff = WLAMCH('E') - -!~~~> Lower bound on the step size: (positive value) - IF (RCNTRL(1) == ZERO) THEN - Hmin = ZERO - ELSEIF (RCNTRL(1) > ZERO) THEN - Hmin = RCNTRL(1) - ELSE - PRINT * , 'User-selected Hmin: RCNTRL(1)=', RCNTRL(1) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Upper bound on the step size: (positive value) - IF (RCNTRL(2) == ZERO) THEN - Hmax = ABS(Tend-Tstart) - ELSEIF (RCNTRL(2) > ZERO) THEN - Hmax = MIN(ABS(RCNTRL(2)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hmax: RCNTRL(2)=', RCNTRL(2) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Starting step size: (positive value) - IF (RCNTRL(3) == ZERO) THEN - Hstart = MAX(Hmin,DeltaMin) - ELSEIF (RCNTRL(3) > ZERO) THEN - Hstart = MIN(ABS(RCNTRL(3)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hstart: RCNTRL(3)=', RCNTRL(3) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Step size can be changed s.t. FacMin < Hnew/Hold < FacMax - IF (RCNTRL(4) == ZERO) THEN - FacMin = 0.2_dp - ELSEIF (RCNTRL(4) > ZERO) THEN - FacMin = RCNTRL(4) - ELSE - PRINT * , 'User-selected FacMin: RCNTRL(4)=', RCNTRL(4) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF - IF (RCNTRL(5) == ZERO) THEN - FacMax = 6.0_dp - ELSEIF (RCNTRL(5) > ZERO) THEN - FacMax = RCNTRL(5) - ELSE - PRINT * , 'User-selected FacMax: RCNTRL(5)=', RCNTRL(5) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacRej: Factor to decrease step after 2 succesive rejections - IF (RCNTRL(6) == ZERO) THEN - FacRej = 0.1_dp - ELSEIF (RCNTRL(6) > ZERO) THEN - FacRej = RCNTRL(6) - ELSE - PRINT * , 'User-selected FacRej: RCNTRL(6)=', RCNTRL(6) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacSafe: Safety Factor in the computation of new step size - IF (RCNTRL(7) == ZERO) THEN - FacSafe = 0.9_dp - ELSEIF (RCNTRL(7) > ZERO) THEN - FacSafe = RCNTRL(7) - ELSE - PRINT * , 'User-selected FacSafe: RCNTRL(7)=', RCNTRL(7) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Check if tolerances are reasonable - DO i=1,UplimTol - IF ( (AbsTol(i) <= ZERO) .OR. (RelTol(i) <= 10.0_dp*Roundoff) & - .OR. (RelTol(i) >= 1.0_dp) ) THEN - PRINT * , ' AbsTol(',i,') = ',AbsTol(i) - PRINT * , ' RelTol(',i,') = ',RelTol(i) - CALL ros_ErrorMsg(-5,Tstart,ZERO,IERR) - RETURN - END IF - END DO - - -!~~~> CALL Rosenbrock method - CALL ros_Integrator(Y, Tstart, Tend, Texit, & - AbsTol, RelTol, & -! Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -! Error indicator - IERR) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -CONTAINS ! SUBROUTINES internal to Rosenbrock -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_ErrorMsg(Code,T,H,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - REAL(kind=dp), INTENT(IN) :: T, H - INTEGER, INTENT(IN) :: Code - INTEGER, INTENT(OUT) :: IERR - - IERR = Code - PRINT * , & - 'Forced exit from Rosenbrock due to the following error:' - - SELECT CASE (Code) - CASE (-1) - PRINT * , '--> Improper value for maximal no of steps' - CASE (-2) - PRINT * , '--> Selected Rosenbrock method not implemented' - CASE (-3) - PRINT * , '--> Hmin/Hmax/Hstart must be positive' - CASE (-4) - PRINT * , '--> FacMin/FacMax/FacRej must be positive' - CASE (-5) - PRINT * , '--> Improper tolerance values' - CASE (-6) - PRINT * , '--> No of steps exceeds maximum bound' - CASE (-7) - PRINT * , '--> Step size too small: T + 10*H = T', & - ' or H < Roundoff' - CASE (-8) - PRINT * , '--> Matrix is repeatedly singular' - CASE DEFAULT - PRINT *, 'Unknown Error code: ', Code - END SELECT - - PRINT *, "T=", T, "and H=", H - - END SUBROUTINE ros_ErrorMsg - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Integrator (Y, Tstart, Tend, T, & - AbsTol, RelTol, & -!~~~> Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -!~~~> Error indicator - IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the implementation of a generic Rosenbrock method -! defined by ros_S (no of stages) -! and its coefficients ros_{A,C,M,E,Alpha,Gamma} -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - -!~~~> Input: the initial condition at Tstart; Output: the solution at T - REAL(kind=dp), INTENT(INOUT) :: Y(N) -!~~~> Input: integration interval - REAL(kind=dp), INTENT(IN) :: Tstart,Tend -!~~~> Output: time at which the solution is returned (T=Tend if success) - REAL(kind=dp), INTENT(OUT) :: T -!~~~> Input: tolerances - REAL(kind=dp), INTENT(IN) :: AbsTol(N), RelTol(N) -!~~~> Input: integration parameters - LOGICAL, INTENT(IN) :: Autonomous, VectorTol - REAL(kind=dp), INTENT(IN) :: Hstart, Hmin, Hmax - INTEGER, INTENT(IN) :: Max_no_steps - REAL(kind=dp), INTENT(IN) :: Roundoff, FacMin, FacMax, FacRej, FacSafe -!~~~> Output: Error indicator - INTEGER, INTENT(OUT) :: IERR -! ~~~~ Local variables - REAL(kind=dp) :: Ynew(N), Fcn0(N), Fcn(N) - REAL(kind=dp) :: K(N*ros_S), dFdT(N) -#ifdef FULL_ALGEBRA - REAL(kind=dp) :: Jac0(N,N), Ghimj(N,N) -#else - REAL(kind=dp) :: Jac0(LU_NONZERO), Ghimj(LU_NONZERO) -#endif - REAL(kind=dp) :: H, Hnew, HC, HG, Fac, Tau - REAL(kind=dp) :: Err, Yerr(N) - INTEGER :: Pivot(N), Direction, ioffset, j, istage - LOGICAL :: RejectLastH, RejectMoreH, Singular -!~~~> Local parameters - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp - REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp -!~~~> Locally called functions -! REAL(kind=dp) WLAMCH -! EXTERNAL WLAMCH -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~> Initial preparations - T = Tstart - RSTATUS(Nhexit) = ZERO - H = MIN( MAX(ABS(Hmin),ABS(Hstart)) , ABS(Hmax) ) - IF (ABS(H) <= 10.0_dp*Roundoff) H = DeltaMin - - IF (Tend >= Tstart) THEN - Direction = +1 - ELSE - Direction = -1 - END IF - H = Direction*H - - RejectLastH=.FALSE. - RejectMoreH=.FALSE. - -!~~~> Time loop begins below - -TimeLoop: DO WHILE ( (Direction > 0).AND.((T-Tend)+Roundoff <= ZERO) & - .OR. (Direction < 0).AND.((Tend-T)+Roundoff <= ZERO) ) - - IF ( ISTATUS(Nstp) > Max_no_steps ) THEN ! Too many steps - CALL ros_ErrorMsg(-6,T,H,IERR) - RETURN - END IF - IF ( ((T+0.1_dp*H) == T).OR.(H <= Roundoff) ) THEN ! Step size too small - CALL ros_ErrorMsg(-7,T,H,IERR) - RETURN - END IF - -!~~~> Limit H if necessary to avoid going beyond Tend - H = MIN(H,ABS(Tend-T)) - -!~~~> Compute the function at current time - CALL FunTemplate(T,Y,Fcn0) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - -!~~~> Compute the function derivative with respect to T - IF (.NOT.Autonomous) THEN - CALL ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) - END IF - -!~~~> Compute the Jacobian at current time - CALL JacTemplate(T,Y,Jac0) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - -!~~~> Repeat step calculation until current step accepted -UntilAccepted: DO - - CALL ros_PrepareMatrix(H,Direction,ros_Gamma(1), & - Jac0,Ghimj,Pivot,Singular) - IF (Singular) THEN ! More than 5 consecutive failed decompositions - CALL ros_ErrorMsg(-8,T,H,IERR) - RETURN - END IF - -!~~~> Compute the stages -Stage: DO istage = 1, ros_S - - ! Current istage offset. Current istage vector is K(ioffset+1:ioffset+N) - ioffset = N*(istage-1) - - ! For the 1st istage the function has been computed previously - IF ( istage == 1 ) THEN - !slim: CALL WCOPY(N,Fcn0,1,Fcn,1) - Fcn(1:N) = Fcn0(1:N) - ! istage>1 and a new function evaluation is needed at the current istage - ELSEIF ( ros_NewF(istage) ) THEN - !slim: CALL WCOPY(N,Y,1,Ynew,1) - Ynew(1:N) = Y(1:N) - DO j = 1, istage-1 - CALL WAXPY(N,ros_A((istage-1)*(istage-2)/2+j), & - K(N*(j-1)+1),1,Ynew,1) - END DO - Tau = T + ros_Alpha(istage)*Direction*H - CALL FunTemplate(Tau,Ynew,Fcn) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - END IF ! if istage == 1 elseif ros_NewF(istage) - !slim: CALL WCOPY(N,Fcn,1,K(ioffset+1),1) - K(ioffset+1:ioffset+N) = Fcn(1:N) - DO j = 1, istage-1 - HC = ros_C((istage-1)*(istage-2)/2+j)/(Direction*H) - CALL WAXPY(N,HC,K(N*(j-1)+1),1,K(ioffset+1),1) - END DO - IF ((.NOT. Autonomous).AND.(ros_Gamma(istage).NE.ZERO)) THEN - HG = Direction*H*ros_Gamma(istage) - CALL WAXPY(N,HG,dFdT,1,K(ioffset+1),1) - END IF - CALL ros_Solve(Ghimj, Pivot, K(ioffset+1)) - - END DO Stage - - -!~~~> Compute the new solution - !slim: CALL WCOPY(N,Y,1,Ynew,1) - Ynew(1:N) = Y(1:N) - DO j=1,ros_S - CALL WAXPY(N,ros_M(j),K(N*(j-1)+1),1,Ynew,1) - END DO - -!~~~> Compute the error estimation - !slim: CALL WSCAL(N,ZERO,Yerr,1) - Yerr(1:N) = ZERO - DO j=1,ros_S - CALL WAXPY(N,ros_E(j),K(N*(j-1)+1),1,Yerr,1) - END DO - Err = ros_ErrorNorm ( Y, Ynew, Yerr, AbsTol, RelTol, VectorTol ) - -!~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax - Fac = MIN(FacMax,MAX(FacMin,FacSafe/Err**(ONE/ros_ELO))) - Hnew = H*Fac - -!~~~> Check the error magnitude and adjust step size - ISTATUS(Nstp) = ISTATUS(Nstp) + 1 - IF ( (Err <= ONE).OR.(H <= Hmin) ) THEN !~~~> Accept step - ISTATUS(Nacc) = ISTATUS(Nacc) + 1 - !slim: CALL WCOPY(N,Ynew,1,Y,1) - Y(1:N) = Ynew(1:N) - T = T + Direction*H - Hnew = MAX(Hmin,MIN(Hnew,Hmax)) - IF (RejectLastH) THEN ! No step size increase after a rejected step - Hnew = MIN(Hnew,H) - END IF - RSTATUS(Nhexit) = H - RSTATUS(Nhnew) = Hnew - RSTATUS(Ntexit) = T - RejectLastH = .FALSE. - RejectMoreH = .FALSE. - H = Hnew - EXIT UntilAccepted ! EXIT THE LOOP: WHILE STEP NOT ACCEPTED - ELSE !~~~> Reject step - IF (RejectMoreH) THEN - Hnew = H*FacRej - END IF - RejectMoreH = RejectLastH - RejectLastH = .TRUE. - H = Hnew - IF (ISTATUS(Nacc) >= 1) ISTATUS(Nrej) = ISTATUS(Nrej) + 1 - END IF ! Err <= 1 - - END DO UntilAccepted - - END DO TimeLoop - -!~~~> Succesful exit - IERR = 1 !~~~> The integration was successful - - END SUBROUTINE ros_Integrator - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - REAL(kind=dp) FUNCTION ros_ErrorNorm ( Y, Ynew, Yerr, & - AbsTol, RelTol, VectorTol ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Computes the "scaled norm" of the error vector Yerr -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -! Input arguments - REAL(kind=dp), INTENT(IN) :: Y(N), Ynew(N), & - Yerr(N), AbsTol(N), RelTol(N) - LOGICAL, INTENT(IN) :: VectorTol -! Local variables - REAL(kind=dp) :: Err, Scale, Ymax - INTEGER :: i - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp - - Err = ZERO - DO i=1,N - Ymax = MAX(ABS(Y(i)),ABS(Ynew(i))) - IF (VectorTol) THEN - Scale = AbsTol(i)+RelTol(i)*Ymax - ELSE - Scale = AbsTol(1)+RelTol(1)*Ymax - END IF - Err = Err+(Yerr(i)/Scale)**2 - END DO - Err = SQRT(Err/N) - - ros_ErrorNorm = MAX(Err,1.0d-10) - - END FUNCTION ros_ErrorNorm - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> The time partial derivative of the function by finite differences -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -!~~~> Input arguments - REAL(kind=dp), INTENT(IN) :: T, Roundoff, Y(N), Fcn0(N) -!~~~> Output arguments - REAL(kind=dp), INTENT(OUT) :: dFdT(N) -!~~~> Local variables - REAL(kind=dp) :: Delta - REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, DeltaMin = 1.0E-6_dp - - Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T)) - CALL FunTemplate(T+Delta,Y,dFdT) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - CALL WAXPY(N,(-ONE),Fcn0,1,dFdT,1) - CALL WSCAL(N,(ONE/Delta),dFdT,1) - - END SUBROUTINE ros_FunTimeDerivative - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_PrepareMatrix ( H, Direction, gam, & - Jac0, Ghimj, Pivot, Singular ) -! --- --- --- --- --- --- --- --- --- --- --- --- --- -! Prepares the LHS matrix for stage calculations -! 1. Construct Ghimj = 1/(H*ham) - Jac0 -! "(Gamma H) Inverse Minus Jacobian" -! 2. Repeat LU decomposition of Ghimj until successful. -! -half the step size if LU decomposition fails and retry -! -exit after 5 consecutive fails -! --- --- --- --- --- --- --- --- --- --- --- --- --- - IMPLICIT NONE - -!~~~> Input arguments -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(IN) :: Jac0(N,N) -#else - REAL(kind=dp), INTENT(IN) :: Jac0(LU_NONZERO) -#endif - REAL(kind=dp), INTENT(IN) :: gam - INTEGER, INTENT(IN) :: Direction -!~~~> Output arguments -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(OUT) :: Ghimj(N,N) -#else - REAL(kind=dp), INTENT(OUT) :: Ghimj(LU_NONZERO) -#endif - LOGICAL, INTENT(OUT) :: Singular - INTEGER, INTENT(OUT) :: Pivot(N) -!~~~> Inout arguments - REAL(kind=dp), INTENT(INOUT) :: H ! step size is decreased when LU fails -!~~~> Local variables - INTEGER :: i, ISING, Nconsecutive - REAL(kind=dp) :: ghinv - REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, HALF = 0.5_dp - - Nconsecutive = 0 - Singular = .TRUE. - - DO WHILE (Singular) - -!~~~> Construct Ghimj = 1/(H*gam) - Jac0 -#ifdef FULL_ALGEBRA - !slim: CALL WCOPY(N*N,Jac0,1,Ghimj,1) - !slim: CALL WSCAL(N*N,(-ONE),Ghimj,1) - Ghimj = -Jac0 - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(i,i) = Ghimj(i,i)+ghinv - END DO -#else - !slim: CALL WCOPY(LU_NONZERO,Jac0,1,Ghimj,1) - !slim: CALL WSCAL(LU_NONZERO,(-ONE),Ghimj,1) - Ghimj(1:LU_NONZERO) = -Jac0(1:LU_NONZERO) - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(LU_DIAG(i)) = Ghimj(LU_DIAG(i))+ghinv - END DO -#endif -!~~~> Compute LU decomposition - CALL ros_Decomp( Ghimj, Pivot, ISING ) - IF (ISING == 0) THEN -!~~~> If successful done - Singular = .FALSE. - ELSE ! ISING .ne. 0 -!~~~> If unsuccessful half the step size; if 5 consecutive fails then return - ISTATUS(Nsng) = ISTATUS(Nsng) + 1 - Nconsecutive = Nconsecutive+1 - Singular = .TRUE. - PRINT*,'Warning: LU Decomposition returned ISING = ',ISING - IF (Nconsecutive <= 5) THEN ! Less than 5 consecutive failed decompositions - H = H*HALF - ELSE ! More than 5 consecutive failed decompositions - RETURN - END IF ! Nconsecutive - END IF ! ISING - - END DO ! WHILE Singular - - END SUBROUTINE ros_PrepareMatrix - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Decomp( A, Pivot, ISING ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the LU decomposition -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Inout variables -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(INOUT) :: A(N,N) -#else - REAL(kind=dp), INTENT(INOUT) :: A(LU_NONZERO) -#endif -!~~~> Output variables - INTEGER, INTENT(OUT) :: Pivot(N), ISING - -#ifdef FULL_ALGEBRA - CALL DGETRF( N, N, A, N, Pivot, ISING ) -#else - CALL KppDecomp ( A, ISING ) - Pivot(1) = 1 -#endif - ISTATUS(Ndec) = ISTATUS(Ndec) + 1 - - END SUBROUTINE ros_Decomp - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Solve( A, Pivot, b ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the forward/backward substitution (using pre-computed LU decomposition) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Input variables -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(IN) :: A(N,N) - INTEGER :: ISING -#else - REAL(kind=dp), INTENT(IN) :: A(LU_NONZERO) -#endif - INTEGER, INTENT(IN) :: Pivot(N) -!~~~> InOut variables - REAL(kind=dp), INTENT(INOUT) :: b(N) - -#ifdef FULL_ALGEBRA - CALL DGETRS( 'N', N , 1, A, N, Pivot, b, N, ISING ) - IF ( Info < 0 ) THEN - PRINT*,"Error in DGETRS. ISING=",ISING - END IF -#else - CALL KppSolve( A, b ) -#endif - - ISTATUS(Nsol) = ISTATUS(Nsol) + 1 - - END SUBROUTINE ros_Solve - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 2 stages, order 2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - DOUBLE PRECISION g - - g = 1.0_dp + 1.0_dp/SQRT(2.0_dp) - rosMethod = RS2 -!~~~> Name of the method - ros_Name = 'ROS-2' -!~~~> Number of stages - ros_S = 2 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = (1.0_dp)/g - ros_C(1) = (-2.0_dp)/g -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1)= (3.0_dp)/(2.0_dp*g) - ros_M(2)= (1.0_dp)/(2.0_dp*g) -! E_i = Coefficients for error estimator - ros_E(1) = 1.0_dp/(2.0_dp*g) - ros_E(2) = 1.0_dp/(2.0_dp*g) -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus one - ros_ELO = 2.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 1.0_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = g - ros_Gamma(2) =-g - - END SUBROUTINE Ros2 - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 3 stages, order 3, 2 function evaluations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - rosMethod = RS3 -!~~~> Name of the method - ros_Name = 'ROS-3' -!~~~> Number of stages - ros_S = 3 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1)= 1.0_dp - ros_A(2)= 1.0_dp - ros_A(3)= 0.0_dp - - ros_C(1) = -0.10156171083877702091975600115545E+01_dp - ros_C(2) = 0.40759956452537699824805835358067E+01_dp - ros_C(3) = 0.92076794298330791242156818474003E+01_dp -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.1E+01_dp - ros_M(2) = 0.61697947043828245592553615689730E+01_dp - ros_M(3) = -0.42772256543218573326238373806514_dp -! E_i = Coefficients for error estimator - ros_E(1) = 0.5_dp - ros_E(2) = -0.29079558716805469821718236208017E+01_dp - ros_E(3) = 0.22354069897811569627360909276199_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1)= 0.0_dp - ros_Alpha(2)= 0.43586652150845899941601945119356_dp - ros_Alpha(3)= 0.43586652150845899941601945119356_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1)= 0.43586652150845899941601945119356_dp - ros_Gamma(2)= 0.24291996454816804366592249683314_dp - ros_Gamma(3)= 0.21851380027664058511513169485832E+01_dp - - END SUBROUTINE Ros3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! L-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 4 STAGES -! L-STABLE EMBEDDED ROSENBROCK METHOD OF ORDER 3 -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1990) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RS4 -!~~~> Name of the method - ros_Name = 'ROS-4' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.2000000000000000E+01_dp - ros_A(2) = 0.1867943637803922E+01_dp - ros_A(3) = 0.2344449711399156_dp - ros_A(4) = ros_A(2) - ros_A(5) = ros_A(3) - ros_A(6) = 0.0_dp - - ros_C(1) =-0.7137615036412310E+01_dp - ros_C(2) = 0.2580708087951457E+01_dp - ros_C(3) = 0.6515950076447975_dp - ros_C(4) =-0.2137148994382534E+01_dp - ros_C(5) =-0.3214669691237626_dp - ros_C(6) =-0.6949742501781779_dp -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.2255570073418735E+01_dp - ros_M(2) = 0.2870493262186792_dp - ros_M(3) = 0.4353179431840180_dp - ros_M(4) = 0.1093502252409163E+01_dp -!~~~> E_i = Coefficients for error estimator - ros_E(1) =-0.2815431932141155_dp - ros_E(2) =-0.7276199124938920E-01_dp - ros_E(3) =-0.1082196201495311_dp - ros_E(4) =-0.1093502252409163E+01_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 0.1145640000000000E+01_dp - ros_Alpha(3) = 0.6552168638155900_dp - ros_Alpha(4) = ros_Alpha(3) -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5728200000000000_dp - ros_Gamma(2) =-0.1769193891319233E+01_dp - ros_Gamma(3) = 0.7592633437920482_dp - ros_Gamma(4) =-0.1049021087100450_dp - - END SUBROUTINE Ros4 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- A STIFFLY-STABLE METHOD, 4 stages, order 3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD3 -!~~~> Name of the method - ros_Name = 'RODAS-3' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.0_dp - ros_A(2) = 2.0_dp - ros_A(3) = 0.0_dp - ros_A(4) = 2.0_dp - ros_A(5) = 0.0_dp - ros_A(6) = 1.0_dp - - ros_C(1) = 4.0_dp - ros_C(2) = 1.0_dp - ros_C(3) =-1.0_dp - ros_C(4) = 1.0_dp - ros_C(5) =-1.0_dp - ros_C(6) =-(8.0_dp/3.0_dp) - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .FALSE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 2.0_dp - ros_M(2) = 0.0_dp - ros_M(3) = 1.0_dp - ros_M(4) = 1.0_dp -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0_dp - ros_E(2) = 0.0_dp - ros_E(3) = 0.0_dp - ros_E(4) = 1.0_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 0.0_dp - ros_Alpha(3) = 1.0_dp - ros_Alpha(4) = 1.0_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5_dp - ros_Gamma(2) = 1.5_dp - ros_Gamma(3) = 0.0_dp - ros_Gamma(4) = 0.0_dp - - END SUBROUTINE Rodas3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 6 STAGES -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1996) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD4 -!~~~> Name of the method - ros_Name = 'RODAS-4' -!~~~> Number of stages - ros_S = 6 - -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.000_dp - ros_Alpha(2) = 0.386_dp - ros_Alpha(3) = 0.210_dp - ros_Alpha(4) = 0.630_dp - ros_Alpha(5) = 1.000_dp - ros_Alpha(6) = 1.000_dp - -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.2500000000000000_dp - ros_Gamma(2) =-0.1043000000000000_dp - ros_Gamma(3) = 0.1035000000000000_dp - ros_Gamma(4) =-0.3620000000000023E-01_dp - ros_Gamma(5) = 0.0_dp - ros_Gamma(6) = 0.0_dp - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.1544000000000000E+01_dp - ros_A(2) = 0.9466785280815826_dp - ros_A(3) = 0.2557011698983284_dp - ros_A(4) = 0.3314825187068521E+01_dp - ros_A(5) = 0.2896124015972201E+01_dp - ros_A(6) = 0.9986419139977817_dp - ros_A(7) = 0.1221224509226641E+01_dp - ros_A(8) = 0.6019134481288629E+01_dp - ros_A(9) = 0.1253708332932087E+02_dp - ros_A(10) =-0.6878860361058950_dp - ros_A(11) = ros_A(7) - ros_A(12) = ros_A(8) - ros_A(13) = ros_A(9) - ros_A(14) = ros_A(10) - ros_A(15) = 1.0_dp - - ros_C(1) =-0.5668800000000000E+01_dp - ros_C(2) =-0.2430093356833875E+01_dp - ros_C(3) =-0.2063599157091915_dp - ros_C(4) =-0.1073529058151375_dp - ros_C(5) =-0.9594562251023355E+01_dp - ros_C(6) =-0.2047028614809616E+02_dp - ros_C(7) = 0.7496443313967647E+01_dp - ros_C(8) =-0.1024680431464352E+02_dp - ros_C(9) =-0.3399990352819905E+02_dp - ros_C(10) = 0.1170890893206160E+02_dp - ros_C(11) = 0.8083246795921522E+01_dp - ros_C(12) =-0.7981132988064893E+01_dp - ros_C(13) =-0.3152159432874371E+02_dp - ros_C(14) = 0.1631930543123136E+02_dp - ros_C(15) =-0.6058818238834054E+01_dp - -!~~~> M_i = Coefficients for new step solution - ros_M(1) = ros_A(7) - ros_M(2) = ros_A(8) - ros_M(3) = ros_A(9) - ros_M(4) = ros_A(10) - ros_M(5) = 1.0_dp - ros_M(6) = 1.0_dp - -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0_dp - ros_E(2) = 0.0_dp - ros_E(3) = 0.0_dp - ros_E(4) = 0.0_dp - ros_E(5) = 0.0_dp - ros_E(6) = 1.0_dp - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - ros_NewF(5) = .TRUE. - ros_NewF(6) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0_dp - - END SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rang3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE W METHOD OF ORDER 3, WITH 4 STAGES -! -! J. RANG and L. ANGERMANN -! NEW ROSENBROCK W-METHODS OF ORDER 3 -! FOR PARTIAL DIFFERENTIAL ALGEBRAIC -! EQUATIONS OF INDEX 1 -! BIT Numerical Mathematics (2005) 45: 761-787 -! DOI: 10.1007/s10543-005-0035-y -! Table 4.1-4.2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RG3 -!~~~> Name of the method - ros_Name = 'RANG-3' -!~~~> Number of stages - ros_S = 4 - - ros_A(1) = 5.09052051067020d+00; - ros_A(2) = 5.09052051067020d+00; - ros_A(3) = 0.0d0; - ros_A(4) = 4.97628111010787d+00; - ros_A(5) = 2.77268164715849d-02; - ros_A(6) = 2.29428036027904d-01; - - ros_C(1) = -1.16790812312283d+01; - ros_C(2) = -1.64057326467367d+01; - ros_C(3) = -2.77268164715850d-01; - ros_C(4) = -8.38103960500476d+00; - ros_C(5) = -8.48328409199343d-01; - ros_C(6) = 2.87009860433106d-01; - - ros_M(1) = 5.22582761233094d+00; - ros_M(2) = -5.56971148154165d-01; - ros_M(3) = 3.57979469353645d-01; - ros_M(4) = 1.72337398521064d+00; - - ros_E(1) = -5.16845212784040d+00; - ros_E(2) = -1.26351942603842d+00; - ros_E(3) = -1.11022302462516d-16; - ros_E(4) = 2.22044604925031d-16; - - ros_Alpha(1) = 0.0d00; - ros_Alpha(2) = 2.21878746765329d+00; - ros_Alpha(3) = 2.21878746765329d+00; - ros_Alpha(4) = 1.55392337535788d+00; - - ros_Gamma(1) = 4.35866521508459d-01; - ros_Gamma(2) = -1.78292094614483d+00; - ros_Gamma(3) = -2.46541900496934d+00; - ros_Gamma(4) = -8.05529997906370d-01; - - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp - - END SUBROUTINE Rang3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! End of the set of internal Rosenbrock subroutines -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -END SUBROUTINE Rosenbrock -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE FunTemplate( T, Y, Ydot ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE function call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE MOZART_4_Parameters, ONLY: NVAR, LU_NONZERO - USE MOZART_4_Global, ONLY: FIX, RCONST, TIME - USE MOZART_4_Function, ONLY: Fun - USE MOZART_4_Rates, ONLY: Update_SUN, Update_RCONST -!~~~> Input variables - REAL(kind=dp) :: T, Y(NVAR) -!~~~> Output variables - REAL(kind=dp) :: Ydot(NVAR) -!~~~> Local variables - REAL(kind=dp) :: Told - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, Ydot ) - TIME = Told - -END SUBROUTINE FunTemplate - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE JacTemplate( T, Y, Jcb ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE Jacobian call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE MOZART_4_Parameters, ONLY: NVAR, LU_NONZERO - USE MOZART_4_Global, ONLY: FIX, RCONST, TIME - USE MOZART_4_Jacobian, ONLY: Jac_SP, LU_IROW, LU_ICOL - USE MOZART_4_LinearAlgebra - USE MOZART_4_Rates, ONLY: Update_SUN, Update_RCONST -!~~~> Input variables - REAL(kind=dp) :: T, Y(NVAR) -!~~~> Output variables -#ifdef FULL_ALGEBRA - REAL(kind=dp) :: JV(LU_NONZERO), Jcb(NVAR,NVAR) -#else - REAL(kind=dp) :: Jcb(LU_NONZERO) -#endif -!~~~> Local variables - REAL(kind=dp) :: Told -#ifdef FULL_ALGEBRA - INTEGER :: i, j -#endif - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() -#ifdef FULL_ALGEBRA - CALL Jac_SP(Y, FIX, RCONST, JV) - DO j=1,NVAR - DO i=1,NVAR - Jcb(i,j) = 0.0_dp - END DO - END DO - DO i=1,LU_NONZERO - Jcb(LU_IROW(i),LU_ICOL(i)) = JV(i) - END DO -#else - CALL Jac_SP( Y, FIX, RCONST, Jcb ) -#endif - TIME = Told - -END SUBROUTINE JacTemplate - -END MODULE MOZART_4_Integrator - - - - -! End of INTEGRATE function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Integrator.o b/boxmox/compiled_mechs/MOZART_4/MOZART_4_Integrator.o deleted file mode 100644 index b0f20afe8fb3d26a013a4d0effbb60789c90ec88..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Integrator.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Jacobian.f90 b/boxmox/compiled_mechs/MOZART_4/MOZART_4_Jacobian.f90 deleted file mode 100644 index ff0a89618821c81ae500afc1f6dd094de7edcf0a..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Jacobian.f90 +++ /dev/null @@ -1,2779 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The ODE Jacobian of Chemical Model File -! -! Generated by KPP-2.2.3 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 : MOZART_4_Jacobian.f90 -! Time : Mon Jul 19 09:14:05 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_4_11638_BOXMOX -! Equation file : MOZART_4.kpp -! Output root filename : MOZART_4 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MOZART_4_Jacobian - - USE MOZART_4_Parameters - USE MOZART_4_JacobianSP - - USE MOZART_4_Global - - 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(342) - -! B(2) = dA(2)/dV(81) - B(2) = RCT(2) -! B(3) = dA(3)/dV(81) - B(3) = RCT(3) -! B(4) = dA(4)/dV(3) - B(4) = RCT(4) -! B(5) = dA(5)/dV(73) - B(5) = RCT(5) -! B(6) = dA(6)/dV(13) - B(6) = RCT(6) -! B(7) = dA(7)/dV(39) - B(7) = RCT(7) -! B(8) = dA(8)/dV(80) - B(8) = RCT(8) -! B(9) = dA(9)/dV(26) - B(9) = RCT(9) -! B(10) = dA(10)/dV(18) - B(10) = RCT(10) -! B(11) = dA(11)/dV(72) - B(11) = RCT(11) -! B(12) = dA(12)/dV(72) - B(12) = RCT(12) -! B(13) = dA(13)/dV(9) - B(13) = RCT(13) -! B(14) = dA(14)/dV(62) - B(14) = RCT(14) -! B(15) = dA(15)/dV(35) - B(15) = RCT(15) -! B(16) = dA(16)/dV(32) - B(16) = RCT(16) -! B(17) = dA(17)/dV(36) - B(17) = RCT(17) -! B(18) = dA(18)/dV(43) - B(18) = RCT(18) -! B(19) = dA(19)/dV(66) - B(19) = RCT(19) -! B(20) = dA(20)/dV(69) - B(20) = RCT(20) -! B(21) = dA(21)/dV(21) - B(21) = RCT(21) -! B(22) = dA(22)/dV(22) - B(22) = RCT(22) -! B(23) = dA(23)/dV(23) - B(23) = RCT(23) -! B(24) = dA(24)/dV(51) - B(24) = RCT(24) -! B(25) = dA(25)/dV(67) - B(25) = RCT(25) -! B(26) = dA(26)/dV(15) - B(26) = RCT(26) -! B(27) = dA(27)/dV(60) - B(27) = RCT(27) -! B(28) = dA(28)/dV(42) - B(28) = RCT(28) -! B(29) = dA(29)/dV(65) - B(29) = RCT(29) -! B(30) = dA(30)/dV(54) - B(30) = RCT(30) -! B(31) = dA(31)/dV(33) - B(31) = RCT(31) -! B(32) = dA(32)/dV(45) - B(32) = RCT(32) -! B(33) = dA(33)/dV(37) - B(33) = RCT(33) -! B(34) = dA(34)/dV(48) - B(34) = RCT(34) -! B(35) = dA(35)/dV(25) - B(35) = RCT(35) -! B(36) = dA(36)/dV(31) - B(36) = RCT(36) -! B(37) = dA(37)/dV(38) - B(37) = RCT(37) -! B(38) = dA(38)/dV(52) - B(38) = RCT(38)*F(2) -! B(40) = dA(39)/dV(52) - B(40) = RCT(39)*V(81) -! B(41) = dA(39)/dV(81) - B(41) = RCT(39)*V(52) -! B(42) = dA(40)/dV(47) - B(42) = RCT(40)*F(2) -! B(44) = dA(41)/dV(47) - B(44) = RCT(41)*F(1) -! B(46) = dA(42)/dV(19) - B(46) = RCT(42)*V(47) -! B(47) = dA(42)/dV(47) - B(47) = RCT(42)*V(19) -! B(48) = dA(43)/dV(19) - B(48) = RCT(43)*V(75) -! B(49) = dA(43)/dV(75) - B(49) = RCT(43)*V(19) -! B(50) = dA(44)/dV(52) - B(50) = RCT(44)*V(75) -! B(51) = dA(44)/dV(75) - B(51) = RCT(44)*V(52) -! B(52) = dA(45)/dV(52) - B(52) = RCT(45)*V(79) -! B(53) = dA(45)/dV(79) - B(53) = RCT(45)*V(52) -! B(54) = dA(46)/dV(75) - B(54) = RCT(46)*V(81) -! B(55) = dA(46)/dV(81) - B(55) = RCT(46)*V(75) -! B(56) = dA(47)/dV(79) - B(56) = RCT(47)*V(81) -! B(57) = dA(47)/dV(81) - B(57) = RCT(47)*V(79) -! B(58) = dA(48)/dV(79) - B(58) = RCT(48)*2*V(79)*F(1) -! B(60) = dA(49)/dV(9) - B(60) = RCT(49)*V(75) -! B(61) = dA(49)/dV(75) - B(61) = RCT(49)*V(9) -! B(62) = dA(50)/dV(75) - B(62) = RCT(50)*V(79) -! B(63) = dA(50)/dV(79) - B(63) = RCT(50)*V(75) -! B(64) = dA(51)/dV(75) - B(64) = RCT(51)*2*V(75) -! B(65) = dA(52)/dV(75) - B(65) = RCT(52)*2*V(75) -! B(66) = dA(53)/dV(3) - B(66) = RCT(53)*V(47) -! B(67) = dA(53)/dV(47) - B(67) = RCT(53)*V(3) -! B(68) = dA(54)/dV(3) - B(68) = RCT(54)*V(47) -! B(69) = dA(54)/dV(47) - B(69) = RCT(54)*V(3) -! B(70) = dA(55)/dV(76) - B(70) = RCT(55)*V(79) -! B(71) = dA(55)/dV(79) - B(71) = RCT(55)*V(76) -! B(72) = dA(56)/dV(76) - B(72) = RCT(56)*V(81) -! B(73) = dA(56)/dV(81) - B(73) = RCT(56)*V(76) -! B(74) = dA(57)/dV(52) - B(74) = RCT(57)*V(73) -! B(75) = dA(57)/dV(73) - B(75) = RCT(57)*V(52) -! B(76) = dA(58)/dV(73) - B(76) = RCT(58)*V(81) -! B(77) = dA(58)/dV(81) - B(77) = RCT(58)*V(73) -! B(78) = dA(59)/dV(79) - B(78) = RCT(59)*V(80) -! B(79) = dA(59)/dV(80) - B(79) = RCT(59)*V(79) -! B(80) = dA(60)/dV(73) - B(80) = RCT(60)*V(80) -! B(81) = dA(60)/dV(80) - B(81) = RCT(60)*V(73) -! B(82) = dA(61)/dV(13) - B(82) = RCT(61) -! B(83) = dA(62)/dV(73) - B(83) = RCT(62)*V(75) -! B(84) = dA(62)/dV(75) - B(84) = RCT(62)*V(73) -! B(85) = dA(63)/dV(39) - B(85) = RCT(63)*V(75) -! B(86) = dA(63)/dV(75) - B(86) = RCT(63)*V(39) -! B(87) = dA(64)/dV(76) - B(87) = RCT(64)*V(80) -! B(88) = dA(64)/dV(80) - B(88) = RCT(64)*V(76) -! B(89) = dA(65)/dV(73) - B(89) = RCT(65)*V(79) -! B(90) = dA(65)/dV(79) - B(90) = RCT(65)*V(73) -! B(91) = dA(66)/dV(26) - B(91) = RCT(66)*V(75) -! B(92) = dA(66)/dV(75) - B(92) = RCT(66)*V(26) -! B(93) = dA(67)/dV(26) - B(93) = RCT(67) -! B(94) = dA(68)/dV(13) - B(94) = RCT(68)*F(2) -! B(96) = dA(69)/dV(80) - B(96) = RCT(69) -! B(97) = dA(70)/dV(73) - B(97) = RCT(70) -! B(98) = dA(71)/dV(40) - B(98) = RCT(71)*V(75) -! B(99) = dA(71)/dV(75) - B(99) = RCT(71)*V(40) -! B(100) = dA(72)/dV(40) - B(100) = RCT(72)*V(47) -! B(101) = dA(72)/dV(47) - B(101) = RCT(72)*V(40) -! B(102) = dA(73)/dV(76) - B(102) = RCT(73)*V(77) -! B(103) = dA(73)/dV(77) - B(103) = RCT(73)*V(76) -! B(104) = dA(74)/dV(77) - B(104) = RCT(74)*2*V(77) -! B(105) = dA(75)/dV(77) - B(105) = RCT(75)*2*V(77) -! B(106) = dA(76)/dV(77) - B(106) = RCT(76)*V(79) -! B(107) = dA(76)/dV(79) - B(107) = RCT(76)*V(77) -! B(108) = dA(77)/dV(18) - B(108) = RCT(77)*V(75) -! B(109) = dA(77)/dV(75) - B(109) = RCT(77)*V(18) -! B(110) = dA(78)/dV(72) - B(110) = RCT(78)*V(80) -! B(111) = dA(78)/dV(80) - B(111) = RCT(78)*V(72) -! B(112) = dA(79)/dV(72) - B(112) = RCT(79)*V(75) -! B(113) = dA(79)/dV(75) - B(113) = RCT(79)*V(72) -! B(114) = dA(80)/dV(58) - B(114) = RCT(80)*V(75) -! B(115) = dA(80)/dV(75) - B(115) = RCT(80)*V(58) -! B(116) = dA(81)/dV(27) - B(116) = RCT(81)*V(75) -! B(117) = dA(81)/dV(75) - B(117) = RCT(81)*V(27) -! B(118) = dA(82)/dV(27) - B(118) = RCT(82)*V(81) -! B(119) = dA(82)/dV(81) - B(119) = RCT(82)*V(27) -! B(120) = dA(83)/dV(8) - B(120) = RCT(83)*V(75) -! B(121) = dA(83)/dV(75) - B(121) = RCT(83)*V(8) -! B(122) = dA(84)/dV(37) - B(122) = RCT(84)*V(75) -! B(123) = dA(84)/dV(75) - B(123) = RCT(84)*V(37) -! B(124) = dA(85)/dV(30) - B(124) = RCT(85)*V(76) -! B(125) = dA(85)/dV(76) - B(125) = RCT(85)*V(30) -! B(126) = dA(86)/dV(12) - B(126) = RCT(86)*F(2) -! B(128) = dA(87)/dV(12) - B(128) = RCT(87) -! B(129) = dA(88)/dV(4) - B(129) = RCT(88)*V(75) -! B(130) = dA(88)/dV(75) - B(130) = RCT(88)*V(4) -! B(131) = dA(89)/dV(56) - B(131) = RCT(89)*V(76) -! B(132) = dA(89)/dV(76) - B(132) = RCT(89)*V(56) -! B(133) = dA(90)/dV(56) - B(133) = RCT(90)*V(79) -! B(134) = dA(90)/dV(79) - B(134) = RCT(90)*V(56) -! B(135) = dA(91)/dV(56) - B(135) = RCT(91)*V(77) -! B(136) = dA(91)/dV(77) - B(136) = RCT(91)*V(56) -! B(137) = dA(92)/dV(21) - B(137) = RCT(92)*V(75) -! B(138) = dA(92)/dV(75) - B(138) = RCT(92)*V(21) -! B(139) = dA(93)/dV(61) - B(139) = RCT(93)*V(75) -! B(140) = dA(93)/dV(75) - B(140) = RCT(93)*V(61) -! B(141) = dA(94)/dV(61) - B(141) = RCT(94)*V(81) -! B(142) = dA(94)/dV(81) - B(142) = RCT(94)*V(61) -! B(143) = dA(95)/dV(61) - B(143) = RCT(95)*V(80) -! B(144) = dA(95)/dV(80) - B(144) = RCT(95)*V(61) -! B(145) = dA(96)/dV(50) - B(145) = RCT(96)*V(76) -! B(146) = dA(96)/dV(76) - B(146) = RCT(96)*V(50) -! B(147) = dA(97)/dV(50) - B(147) = RCT(97)*V(79) -! B(148) = dA(97)/dV(79) - B(148) = RCT(97)*V(50) -! B(149) = dA(98)/dV(35) - B(149) = RCT(98)*V(75) -! B(150) = dA(98)/dV(75) - B(150) = RCT(98)*V(35) -! B(151) = dA(99)/dV(62) - B(151) = RCT(99)*V(75) -! B(152) = dA(99)/dV(75) - B(152) = RCT(99)*V(62) -! B(153) = dA(100)/dV(62) - B(153) = RCT(100)*V(80) -! B(154) = dA(100)/dV(80) - B(154) = RCT(100)*V(62) -! B(155) = dA(101)/dV(76) - B(155) = RCT(101)*V(78) -! B(156) = dA(101)/dV(78) - B(156) = RCT(101)*V(76) -! B(157) = dA(102)/dV(73) - B(157) = RCT(102)*V(78) -! B(158) = dA(102)/dV(78) - B(158) = RCT(102)*V(73) -! B(159) = dA(103)/dV(78) - B(159) = RCT(103)*V(79) -! B(160) = dA(103)/dV(79) - B(160) = RCT(103)*V(78) -! B(161) = dA(104)/dV(77) - B(161) = RCT(104)*V(78) -! B(162) = dA(104)/dV(78) - B(162) = RCT(104)*V(77) -! B(163) = dA(105)/dV(32) - B(163) = RCT(105)*V(75) -! B(164) = dA(105)/dV(75) - B(164) = RCT(105)*V(32) -! B(165) = dA(106)/dV(36) - B(165) = RCT(106) -! B(166) = dA(107)/dV(78) - B(166) = RCT(107)*2*V(78) -! B(167) = dA(108)/dV(5) - B(167) = RCT(108)*V(75) -! B(168) = dA(108)/dV(75) - B(168) = RCT(108)*V(5) -! B(169) = dA(109)/dV(57) - B(169) = RCT(109)*V(76) -! B(170) = dA(109)/dV(76) - B(170) = RCT(109)*V(57) -! B(171) = dA(110)/dV(57) - B(171) = RCT(110)*V(79) -! B(172) = dA(110)/dV(79) - B(172) = RCT(110)*V(57) -! B(173) = dA(111)/dV(57) - B(173) = RCT(111)*V(77) -! B(174) = dA(111)/dV(77) - B(174) = RCT(111)*V(57) -! B(175) = dA(112)/dV(22) - B(175) = RCT(112)*V(75) -! B(176) = dA(112)/dV(75) - B(176) = RCT(112)*V(22) -! B(177) = dA(113)/dV(51) - B(177) = RCT(113)*V(75) -! B(178) = dA(113)/dV(75) - B(178) = RCT(113)*V(51) -! B(179) = dA(114)/dV(63) - B(179) = RCT(114)*V(76) -! B(180) = dA(114)/dV(76) - B(180) = RCT(114)*V(63) -! B(181) = dA(115)/dV(63) - B(181) = RCT(115)*V(79) -! B(182) = dA(115)/dV(79) - B(182) = RCT(115)*V(63) -! B(183) = dA(116)/dV(63) - B(183) = RCT(116)*V(77) -! B(184) = dA(116)/dV(77) - B(184) = RCT(116)*V(63) -! B(185) = dA(117)/dV(23) - B(185) = RCT(117)*V(75) -! B(186) = dA(117)/dV(75) - B(186) = RCT(117)*V(23) -! B(187) = dA(118)/dV(6) - B(187) = RCT(118)*V(75) -! B(188) = dA(118)/dV(75) - B(188) = RCT(118)*V(6) -! B(189) = dA(119)/dV(24) - B(189) = RCT(119)*V(76) -! B(190) = dA(119)/dV(76) - B(190) = RCT(119)*V(24) -! B(191) = dA(120)/dV(7) - B(191) = RCT(120)*V(75) -! B(192) = dA(120)/dV(75) - B(192) = RCT(120)*V(7) -! B(193) = dA(121)/dV(55) - B(193) = RCT(121)*V(76) -! B(194) = dA(121)/dV(76) - B(194) = RCT(121)*V(55) -! B(195) = dA(122)/dV(55) - B(195) = RCT(122)*V(79) -! B(196) = dA(122)/dV(79) - B(196) = RCT(122)*V(55) -! B(197) = dA(123)/dV(48) - B(197) = RCT(123)*V(75) -! B(198) = dA(123)/dV(75) - B(198) = RCT(123)*V(48) -! B(199) = dA(124)/dV(29) - B(199) = RCT(124)*V(75) -! B(200) = dA(124)/dV(75) - B(200) = RCT(124)*V(29) -! B(201) = dA(125)/dV(33) - B(201) = RCT(125)*V(75) -! B(202) = dA(125)/dV(75) - B(202) = RCT(125)*V(33) -! B(203) = dA(126)/dV(49) - B(203) = RCT(126)*V(76) -! B(204) = dA(126)/dV(76) - B(204) = RCT(126)*V(49) -! B(205) = dA(127)/dV(49) - B(205) = RCT(127)*V(79) -! B(206) = dA(127)/dV(79) - B(206) = RCT(127)*V(49) -! B(207) = dA(128)/dV(25) - B(207) = RCT(128)*V(75) -! B(208) = dA(128)/dV(75) - B(208) = RCT(128)*V(25) -! B(209) = dA(129)/dV(10) - B(209) = RCT(129)*V(75) -! B(210) = dA(129)/dV(75) - B(210) = RCT(129)*V(10) -! B(211) = dA(130)/dV(11) - B(211) = RCT(130)*V(75) -! B(212) = dA(130)/dV(75) - B(212) = RCT(130)*V(11) -! B(213) = dA(131)/dV(14) - B(213) = RCT(131)*V(73) -! B(214) = dA(131)/dV(73) - B(214) = RCT(131)*V(14) -! B(215) = dA(132)/dV(44) - B(215) = RCT(132)*V(76) -! B(216) = dA(132)/dV(76) - B(216) = RCT(132)*V(44) -! B(217) = dA(133)/dV(44) - B(217) = RCT(133)*V(79) -! B(218) = dA(133)/dV(79) - B(218) = RCT(133)*V(44) -! B(219) = dA(134)/dV(31) - B(219) = RCT(134)*V(75) -! B(220) = dA(134)/dV(75) - B(220) = RCT(134)*V(31) -! B(221) = dA(135)/dV(59) - B(221) = RCT(135)*V(75) -! B(222) = dA(135)/dV(75) - B(222) = RCT(135)*V(59) -! B(223) = dA(136)/dV(59) - B(223) = RCT(136)*V(81) -! B(224) = dA(136)/dV(81) - B(224) = RCT(136)*V(59) -! B(225) = dA(137)/dV(71) - B(225) = RCT(137)*V(76) -! B(226) = dA(137)/dV(76) - B(226) = RCT(137)*V(71) -! B(227) = dA(138)/dV(71) - B(227) = RCT(138)*V(80) -! B(228) = dA(138)/dV(80) - B(228) = RCT(138)*V(71) -! B(229) = dA(139)/dV(71) - B(229) = RCT(139)*V(79) -! B(230) = dA(139)/dV(79) - B(230) = RCT(139)*V(71) -! B(231) = dA(140)/dV(42) - B(231) = RCT(140)*V(75) -! B(232) = dA(140)/dV(75) - B(232) = RCT(140)*V(42) -! B(233) = dA(141)/dV(71) - B(233) = RCT(141)*V(77) -! B(234) = dA(141)/dV(77) - B(234) = RCT(141)*V(71) -! B(235) = dA(142)/dV(71) - B(235) = RCT(142)*V(78) -! B(236) = dA(142)/dV(78) - B(236) = RCT(142)*V(71) -! B(237) = dA(143)/dV(69) - B(237) = RCT(143)*V(75) -! B(238) = dA(143)/dV(75) - B(238) = RCT(143)*V(69) -! B(239) = dA(144)/dV(69) - B(239) = RCT(144)*V(81) -! B(240) = dA(144)/dV(81) - B(240) = RCT(144)*V(69) -! B(241) = dA(145)/dV(66) - B(241) = RCT(145)*V(75) -! B(242) = dA(145)/dV(75) - B(242) = RCT(145)*V(66) -! B(243) = dA(146)/dV(66) - B(243) = RCT(146)*V(81) -! B(244) = dA(146)/dV(81) - B(244) = RCT(146)*V(66) -! B(245) = dA(147)/dV(70) - B(245) = RCT(147)*V(76) -! B(246) = dA(147)/dV(76) - B(246) = RCT(147)*V(70) -! B(247) = dA(148)/dV(70) - B(247) = RCT(148)*V(76) -! B(248) = dA(148)/dV(76) - B(248) = RCT(148)*V(70) -! B(249) = dA(149)/dV(70) - B(249) = RCT(149)*V(80) -! B(250) = dA(149)/dV(80) - B(250) = RCT(149)*V(70) -! B(251) = dA(150)/dV(70) - B(251) = RCT(150)*V(79) -! B(252) = dA(150)/dV(79) - B(252) = RCT(150)*V(70) -! B(253) = dA(151)/dV(70) - B(253) = RCT(151)*V(77) -! B(254) = dA(151)/dV(77) - B(254) = RCT(151)*V(70) -! B(255) = dA(152)/dV(70) - B(255) = RCT(152)*V(78) -! B(256) = dA(152)/dV(78) - B(256) = RCT(152)*V(70) -! B(257) = dA(153)/dV(20) - B(257) = RCT(153)*V(75) -! B(258) = dA(153)/dV(75) - B(258) = RCT(153)*V(20) -! B(259) = dA(154)/dV(74) - B(259) = RCT(154)*V(76) -! B(260) = dA(154)/dV(76) - B(260) = RCT(154)*V(74) -! B(261) = dA(155)/dV(74) - B(261) = RCT(155)*V(80) -! B(262) = dA(155)/dV(80) - B(262) = RCT(155)*V(74) -! B(263) = dA(156)/dV(74) - B(263) = RCT(156)*V(79) -! B(264) = dA(156)/dV(79) - B(264) = RCT(156)*V(74) -! B(265) = dA(157)/dV(74) - B(265) = RCT(157)*V(77) -! B(266) = dA(157)/dV(77) - B(266) = RCT(157)*V(74) -! B(267) = dA(158)/dV(74) - B(267) = RCT(158)*V(78) -! B(268) = dA(158)/dV(78) - B(268) = RCT(158)*V(74) -! B(269) = dA(159)/dV(74) - B(269) = RCT(159)*2*V(74) -! B(270) = dA(160)/dV(73) - B(270) = RCT(160)*V(74)*F(2) -! B(271) = dA(160)/dV(74) - B(271) = RCT(160)*V(73)*F(2) -! B(273) = dA(161)/dV(43) - B(273) = RCT(161)*F(2) -! B(275) = dA(162)/dV(46) - B(275) = RCT(162)*V(75) -! B(276) = dA(162)/dV(75) - B(276) = RCT(162)*V(46) -! B(277) = dA(163)/dV(46) - B(277) = RCT(163)*V(81) -! B(278) = dA(163)/dV(81) - B(278) = RCT(163)*V(46) -! B(279) = dA(164)/dV(46) - B(279) = RCT(164)*V(80) -! B(280) = dA(164)/dV(80) - B(280) = RCT(164)*V(46) -! B(281) = dA(165)/dV(64) - B(281) = RCT(165)*V(76) -! B(282) = dA(165)/dV(76) - B(282) = RCT(165)*V(64) -! B(283) = dA(166)/dV(64) - B(283) = RCT(166)*V(79) -! B(284) = dA(166)/dV(79) - B(284) = RCT(166)*V(64) -! B(285) = dA(167)/dV(38) - B(285) = RCT(167)*V(75) -! B(286) = dA(167)/dV(75) - B(286) = RCT(167)*V(38) -! B(287) = dA(168)/dV(34) - B(287) = RCT(168)*V(75) -! B(288) = dA(168)/dV(75) - B(288) = RCT(168)*V(34) -! B(289) = dA(169)/dV(59) - B(289) = RCT(169)*V(80) -! B(290) = dA(169)/dV(80) - B(290) = RCT(169)*V(59) -! B(291) = dA(170)/dV(53) - B(291) = RCT(170)*V(76) -! B(292) = dA(170)/dV(76) - B(292) = RCT(170)*V(53) -! B(293) = dA(171)/dV(53) - B(293) = RCT(171)*V(80) -! B(294) = dA(171)/dV(80) - B(294) = RCT(171)*V(53) -! B(295) = dA(172)/dV(53) - B(295) = RCT(172)*V(79) -! B(296) = dA(172)/dV(79) - B(296) = RCT(172)*V(53) -! B(297) = dA(173)/dV(67) - B(297) = RCT(173)*V(75) -! B(298) = dA(173)/dV(75) - B(298) = RCT(173)*V(67) -! B(299) = dA(174)/dV(67) - B(299) = RCT(174)*V(80) -! B(300) = dA(174)/dV(80) - B(300) = RCT(174)*V(67) -! B(301) = dA(175)/dV(60) - B(301) = RCT(175)*V(75) -! B(302) = dA(175)/dV(75) - B(302) = RCT(175)*V(60) -! B(303) = dA(176)/dV(60) - B(303) = RCT(176)*V(80) -! B(304) = dA(176)/dV(80) - B(304) = RCT(176)*V(60) -! B(305) = dA(177)/dV(28) - B(305) = RCT(177)*V(75) -! B(306) = dA(177)/dV(75) - B(306) = RCT(177)*V(28) -! B(307) = dA(178)/dV(68) - B(307) = RCT(178)*V(76) -! B(308) = dA(178)/dV(76) - B(308) = RCT(178)*V(68) -! B(309) = dA(179)/dV(68) - B(309) = RCT(179)*V(80) -! B(310) = dA(179)/dV(80) - B(310) = RCT(179)*V(68) -! B(311) = dA(180)/dV(68) - B(311) = RCT(180)*V(79) -! B(312) = dA(180)/dV(79) - B(312) = RCT(180)*V(68) -! B(313) = dA(181)/dV(68) - B(313) = RCT(181)*V(77) -! B(314) = dA(181)/dV(77) - B(314) = RCT(181)*V(68) -! B(315) = dA(182)/dV(68) - B(315) = RCT(182)*V(78) -! B(316) = dA(182)/dV(78) - B(316) = RCT(182)*V(68) -! B(317) = dA(183)/dV(15) - B(317) = RCT(183)*V(75) -! B(318) = dA(183)/dV(75) - B(318) = RCT(183)*V(15) -! B(319) = dA(184)/dV(15) - B(319) = RCT(184)*V(75) -! B(320) = dA(184)/dV(75) - B(320) = RCT(184)*V(15) -! B(321) = dA(185)/dV(41) - B(321) = RCT(185)*V(75) -! B(322) = dA(185)/dV(75) - B(322) = RCT(185)*V(41) -! B(323) = dA(186)/dV(17) - B(323) = RCT(186)*V(75) -! B(324) = dA(186)/dV(75) - B(324) = RCT(186)*V(17) -! B(325) = dA(187)/dV(43) - B(325) = RCT(187)*V(75) -! B(326) = dA(187)/dV(75) - B(326) = RCT(187)*V(43) -! B(327) = dA(188)/dV(36) - B(327) = RCT(188)*V(75) -! B(328) = dA(188)/dV(75) - B(328) = RCT(188)*V(36) -! B(329) = dA(189)/dV(65) - B(329) = RCT(189)*V(75) -! B(330) = dA(189)/dV(75) - B(330) = RCT(189)*V(65) -! B(331) = dA(190)/dV(54) - B(331) = RCT(190)*V(75) -! B(332) = dA(190)/dV(75) - B(332) = RCT(190)*V(54) -! B(333) = dA(191)/dV(16) - B(333) = RCT(191)*V(75) -! B(334) = dA(191)/dV(75) - B(334) = RCT(191)*V(16) -! B(335) = dA(192)/dV(16) - B(335) = RCT(192)*V(75) -! B(336) = dA(192)/dV(75) - B(336) = RCT(192)*V(16) -! B(337) = dA(193)/dV(16) - B(337) = RCT(193)*V(80) -! B(338) = dA(193)/dV(80) - B(338) = RCT(193)*V(16) -! B(339) = dA(194)/dV(2) - B(339) = RCT(194)*V(75) -! B(340) = dA(194)/dV(75) - B(340) = RCT(194)*V(2) -! B(341) = dA(195)/dV(79) - B(341) = RCT(195) -! B(342) = dA(196)/dV(56) - B(342) = RCT(196)*2*V(56) - -! Construct the Jacobian terms from B's -! JVS(1) = Jac_FULL(1,1) - JVS(1) = 0 -! JVS(2) = Jac_FULL(1,8) - JVS(2) = B(120) -! JVS(3) = Jac_FULL(1,75) - JVS(3) = B(121) -! JVS(4) = Jac_FULL(2,2) - JVS(4) = -B(339) -! JVS(5) = Jac_FULL(2,75) - JVS(5) = -B(340) -! JVS(6) = Jac_FULL(3,3) - JVS(6) = -B(4)-B(66)-B(68) -! JVS(7) = Jac_FULL(3,47) - JVS(7) = -B(67)-B(69) -! JVS(8) = Jac_FULL(4,4) - JVS(8) = -B(129) -! JVS(9) = Jac_FULL(4,75) - JVS(9) = -B(130) -! JVS(10) = Jac_FULL(5,5) - JVS(10) = -B(167) -! JVS(11) = Jac_FULL(5,75) - JVS(11) = -B(168) -! JVS(12) = Jac_FULL(6,6) - JVS(12) = -B(187) -! JVS(13) = Jac_FULL(6,75) - JVS(13) = -B(188) -! JVS(14) = Jac_FULL(7,7) - JVS(14) = -B(191) -! JVS(15) = Jac_FULL(7,75) - JVS(15) = -B(192) -! JVS(16) = Jac_FULL(8,8) - JVS(16) = -B(120) -! JVS(17) = Jac_FULL(8,16) - JVS(17) = B(333)+0.5*B(335)+B(337) -! JVS(18) = Jac_FULL(8,75) - JVS(18) = -B(121)+B(334)+0.5*B(336) -! JVS(19) = Jac_FULL(8,80) - JVS(19) = B(338) -! JVS(20) = Jac_FULL(9,9) - JVS(20) = -B(13)-B(60) -! JVS(21) = Jac_FULL(9,75) - JVS(21) = -B(61)+B(65) -! JVS(22) = Jac_FULL(9,79) - JVS(22) = B(58)+0.5*B(341) -! JVS(23) = Jac_FULL(10,10) - JVS(23) = -B(209) -! JVS(24) = Jac_FULL(10,75) - JVS(24) = -B(210) -! JVS(25) = Jac_FULL(11,10) - JVS(25) = 0.25*B(209) -! JVS(26) = Jac_FULL(11,11) - JVS(26) = -B(211) -! JVS(27) = Jac_FULL(11,75) - JVS(27) = 0.25*B(210)-B(212) -! JVS(28) = Jac_FULL(12,12) - JVS(28) = -B(126)-B(128) -! JVS(29) = Jac_FULL(12,30) - JVS(29) = B(124) -! JVS(30) = Jac_FULL(12,76) - JVS(30) = B(125) -! JVS(31) = Jac_FULL(13,13) - JVS(31) = -B(6)-B(82)-B(94) -! JVS(32) = Jac_FULL(13,73) - JVS(32) = B(80) -! JVS(33) = Jac_FULL(13,80) - JVS(33) = B(81) -! JVS(34) = Jac_FULL(14,11) - JVS(34) = B(211) -! JVS(35) = Jac_FULL(14,14) - JVS(35) = -B(213) -! JVS(36) = Jac_FULL(14,73) - JVS(36) = -B(214) -! JVS(37) = Jac_FULL(14,75) - JVS(37) = B(212) -! JVS(38) = Jac_FULL(15,15) - JVS(38) = -B(26)-B(317)-B(319) -! JVS(39) = Jac_FULL(15,68) - JVS(39) = B(311) -! JVS(40) = Jac_FULL(15,75) - JVS(40) = -B(318)-B(320) -! JVS(41) = Jac_FULL(15,79) - JVS(41) = B(312) -! JVS(42) = Jac_FULL(16,16) - JVS(42) = -B(333)-B(335)-B(337) -! JVS(43) = Jac_FULL(16,75) - JVS(43) = -B(334)-B(336) -! JVS(44) = Jac_FULL(16,80) - JVS(44) = -B(338) -! JVS(45) = Jac_FULL(17,17) - JVS(45) = -B(323) -! JVS(46) = Jac_FULL(17,56) - JVS(46) = 0.2*B(135)+0.4*B(342) -! JVS(47) = Jac_FULL(17,75) - JVS(47) = -B(324) -! JVS(48) = Jac_FULL(17,77) - JVS(48) = 0.2*B(136) -! JVS(49) = Jac_FULL(18,18) - JVS(49) = -B(10)-B(108) -! JVS(50) = Jac_FULL(18,75) - JVS(50) = -B(109) -! JVS(51) = Jac_FULL(18,77) - JVS(51) = B(106) -! JVS(52) = Jac_FULL(18,79) - JVS(52) = B(107) -! JVS(53) = Jac_FULL(19,19) - JVS(53) = -B(46)-B(48) -! JVS(54) = Jac_FULL(19,40) - JVS(54) = 0.05*B(100) -! JVS(55) = Jac_FULL(19,47) - JVS(55) = -B(47)+0.05*B(101) -! JVS(56) = Jac_FULL(19,72) - JVS(56) = B(12) -! JVS(57) = Jac_FULL(19,75) - JVS(57) = -B(49) -! JVS(58) = Jac_FULL(20,20) - JVS(58) = -B(257) -! JVS(59) = Jac_FULL(20,70) - JVS(59) = B(251) -! JVS(60) = Jac_FULL(20,75) - JVS(60) = -B(258) -! JVS(61) = Jac_FULL(20,79) - JVS(61) = B(252) -! JVS(62) = Jac_FULL(21,21) - JVS(62) = -B(21)-B(137) -! JVS(63) = Jac_FULL(21,56) - JVS(63) = B(133) -! JVS(64) = Jac_FULL(21,75) - JVS(64) = -B(138) -! JVS(65) = Jac_FULL(21,79) - JVS(65) = B(134) -! JVS(66) = Jac_FULL(22,22) - JVS(66) = -B(22)-B(175) -! JVS(67) = Jac_FULL(22,57) - JVS(67) = B(171) -! JVS(68) = Jac_FULL(22,75) - JVS(68) = -B(176) -! JVS(69) = Jac_FULL(22,79) - JVS(69) = B(172) -! JVS(70) = Jac_FULL(23,23) - JVS(70) = -B(23)-B(185) -! JVS(71) = Jac_FULL(23,63) - JVS(71) = B(181) -! JVS(72) = Jac_FULL(23,75) - JVS(72) = -B(186) -! JVS(73) = Jac_FULL(23,79) - JVS(73) = B(182) -! JVS(74) = Jac_FULL(24,6) - JVS(74) = B(187) -! JVS(75) = Jac_FULL(24,24) - JVS(75) = -B(189) -! JVS(76) = Jac_FULL(24,75) - JVS(76) = B(188) -! JVS(77) = Jac_FULL(24,76) - JVS(77) = -B(190) -! JVS(78) = Jac_FULL(25,25) - JVS(78) = -B(35)-B(207) -! JVS(79) = Jac_FULL(25,49) - JVS(79) = B(205) -! JVS(80) = Jac_FULL(25,75) - JVS(80) = -B(208) -! JVS(81) = Jac_FULL(25,79) - JVS(81) = B(206) -! JVS(82) = Jac_FULL(26,26) - JVS(82) = -B(9)-B(91)-B(93) -! JVS(83) = Jac_FULL(26,73) - JVS(83) = B(89) -! JVS(84) = Jac_FULL(26,75) - JVS(84) = -B(92) -! JVS(85) = Jac_FULL(26,79) - JVS(85) = B(90) -! JVS(86) = Jac_FULL(27,27) - JVS(86) = -B(116)-B(118) -! JVS(87) = Jac_FULL(27,75) - JVS(87) = -B(117) -! JVS(88) = Jac_FULL(27,81) - JVS(88) = -B(119) -! JVS(89) = Jac_FULL(28,28) - JVS(89) = -B(305) -! JVS(90) = Jac_FULL(28,60) - JVS(90) = B(301)+B(303) -! JVS(91) = Jac_FULL(28,71) - JVS(91) = 0.37*B(225)+0.4*B(227)+0.3*B(233)+0.4*B(235) -! JVS(92) = Jac_FULL(28,75) - JVS(92) = B(302)-B(306) -! JVS(93) = Jac_FULL(28,76) - JVS(93) = 0.37*B(226) -! JVS(94) = Jac_FULL(28,77) - JVS(94) = 0.3*B(234) -! JVS(95) = Jac_FULL(28,78) - JVS(95) = 0.4*B(236) -! JVS(96) = Jac_FULL(28,80) - JVS(96) = 0.4*B(228)+B(304) -! JVS(97) = Jac_FULL(29,29) - JVS(97) = -B(199) -! JVS(98) = Jac_FULL(29,55) - JVS(98) = 0.1*B(193) -! JVS(99) = Jac_FULL(29,61) - JVS(99) = B(143) -! JVS(100) = Jac_FULL(29,75) - JVS(100) = -B(200) -! JVS(101) = Jac_FULL(29,76) - JVS(101) = 0.1*B(194) -! JVS(102) = Jac_FULL(29,80) - JVS(102) = B(144) -! JVS(103) = Jac_FULL(30,27) - JVS(103) = 0.75*B(116) -! JVS(104) = Jac_FULL(30,30) - JVS(104) = -B(124) -! JVS(105) = Jac_FULL(30,75) - JVS(105) = 0.75*B(117) -! JVS(106) = Jac_FULL(30,76) - JVS(106) = -B(125) -! JVS(107) = Jac_FULL(30,81) - JVS(107) = 0 -! JVS(108) = Jac_FULL(31,31) - JVS(108) = -B(36)-B(219) -! JVS(109) = Jac_FULL(31,44) - JVS(109) = B(217) -! JVS(110) = Jac_FULL(31,75) - JVS(110) = -B(220) -! JVS(111) = Jac_FULL(31,79) - JVS(111) = B(218) -! JVS(112) = Jac_FULL(32,32) - JVS(112) = -B(16)-B(163) -! JVS(113) = Jac_FULL(32,74) - JVS(113) = 0.75*B(263) -! JVS(114) = Jac_FULL(32,75) - JVS(114) = -B(164) -! JVS(115) = Jac_FULL(32,78) - JVS(115) = 0.75*B(159) -! JVS(116) = Jac_FULL(32,79) - JVS(116) = 0.75*B(160)+0.75*B(264) -! JVS(117) = Jac_FULL(33,33) - JVS(117) = -B(31)-B(201) -! JVS(118) = Jac_FULL(33,48) - JVS(118) = 0.8*B(34) -! JVS(119) = Jac_FULL(33,55) - JVS(119) = 0.75*B(193) -! JVS(120) = Jac_FULL(33,75) - JVS(120) = -B(202) -! JVS(121) = Jac_FULL(33,76) - JVS(121) = 0.75*B(194) -! JVS(122) = Jac_FULL(34,27) - JVS(122) = 0.25*B(118) -! JVS(123) = Jac_FULL(34,34) - JVS(123) = -B(287) -! JVS(124) = Jac_FULL(34,59) - JVS(124) = 0.2*B(223) -! JVS(125) = Jac_FULL(34,61) - JVS(125) = 0.25*B(141) -! JVS(126) = Jac_FULL(34,74) - JVS(126) = 0.25*B(263) -! JVS(127) = Jac_FULL(34,75) - JVS(127) = -B(288) -! JVS(128) = Jac_FULL(34,77) - JVS(128) = 0.1*B(161) -! JVS(129) = Jac_FULL(34,78) - JVS(129) = 0.25*B(159)+0.1*B(162) -! JVS(130) = Jac_FULL(34,79) - JVS(130) = 0.25*B(160)+0.25*B(264) -! JVS(131) = Jac_FULL(34,81) - JVS(131) = 0.25*B(119)+0.25*B(142)+0.2*B(224) -! JVS(132) = Jac_FULL(35,35) - JVS(132) = -B(15)-B(149) -! JVS(133) = Jac_FULL(35,50) - JVS(133) = B(147) -! JVS(134) = Jac_FULL(35,75) - JVS(134) = -B(150) -! JVS(135) = Jac_FULL(35,79) - JVS(135) = B(148) -! JVS(136) = Jac_FULL(36,36) - JVS(136) = -B(17)-B(165)-B(327) -! JVS(137) = Jac_FULL(36,73) - JVS(137) = B(157) -! JVS(138) = Jac_FULL(36,75) - JVS(138) = -B(328) -! JVS(139) = Jac_FULL(36,78) - JVS(139) = B(158) -! JVS(140) = Jac_FULL(37,31) - JVS(140) = 0.45*B(36) -! JVS(141) = Jac_FULL(37,37) - JVS(141) = -B(33)-B(122) -! JVS(142) = Jac_FULL(37,44) - JVS(142) = 0.45*B(215) -! JVS(143) = Jac_FULL(37,45) - JVS(143) = 0.13*B(32) -! JVS(144) = Jac_FULL(37,54) - JVS(144) = 0.2*B(331) -! JVS(145) = Jac_FULL(37,75) - JVS(145) = -B(123)+0.2*B(332) -! JVS(146) = Jac_FULL(37,76) - JVS(146) = 0.45*B(216) -! JVS(147) = Jac_FULL(37,79) - JVS(147) = 0 -! JVS(148) = Jac_FULL(38,38) - JVS(148) = -B(37)-B(285) -! JVS(149) = Jac_FULL(38,64) - JVS(149) = B(283) -! JVS(150) = Jac_FULL(38,75) - JVS(150) = -B(286) -! JVS(151) = Jac_FULL(38,79) - JVS(151) = B(284) -! JVS(152) = Jac_FULL(39,13) - JVS(152) = 2*B(94) -! JVS(153) = Jac_FULL(39,16) - JVS(153) = B(337) -! JVS(154) = Jac_FULL(39,39) - JVS(154) = -B(7)-B(85) -! JVS(155) = Jac_FULL(39,62) - JVS(155) = B(153) -! JVS(156) = Jac_FULL(39,67) - JVS(156) = B(299) -! JVS(157) = Jac_FULL(39,72) - JVS(157) = B(110) -! JVS(158) = Jac_FULL(39,73) - JVS(158) = B(83)+0.5*B(97) -! JVS(159) = Jac_FULL(39,75) - JVS(159) = B(84)-B(86) -! JVS(160) = Jac_FULL(39,80) - JVS(160) = B(96)+B(111)+B(154)+B(300)+B(338) -! JVS(161) = Jac_FULL(40,40) - JVS(161) = -B(98)-B(100) -! JVS(162) = Jac_FULL(40,47) - JVS(162) = -B(101) -! JVS(163) = Jac_FULL(40,61) - JVS(163) = 0.08*B(141) -! JVS(164) = Jac_FULL(40,75) - JVS(164) = -B(99) -! JVS(165) = Jac_FULL(40,81) - JVS(165) = 0.08*B(142) -! JVS(166) = Jac_FULL(41,41) - JVS(166) = -B(321) -! JVS(167) = Jac_FULL(41,56) - JVS(167) = 0.3*B(135) -! JVS(168) = Jac_FULL(41,63) - JVS(168) = 0.5*B(183) -! JVS(169) = Jac_FULL(41,68) - JVS(169) = 0.3*B(313) -! JVS(170) = Jac_FULL(41,70) - JVS(170) = 0.25*B(253) -! JVS(171) = Jac_FULL(41,71) - JVS(171) = 0.25*B(233) -! JVS(172) = Jac_FULL(41,75) - JVS(172) = -B(322) -! JVS(173) = Jac_FULL(41,77) - JVS(173) = B(105)+0.3*B(136)+0.5*B(184)+0.25*B(234)+0.25*B(254)+0.3*B(314) -! JVS(174) = Jac_FULL(42,42) - JVS(174) = -B(28)-B(231) -! JVS(175) = Jac_FULL(42,71) - JVS(175) = B(229) -! JVS(176) = Jac_FULL(42,75) - JVS(176) = -B(232) -! JVS(177) = Jac_FULL(42,79) - JVS(177) = B(230) -! JVS(178) = Jac_FULL(43,43) - JVS(178) = -B(18)-B(273)-B(325) -! JVS(179) = Jac_FULL(43,73) - JVS(179) = B(270) -! JVS(180) = Jac_FULL(43,74) - JVS(180) = B(271) -! JVS(181) = Jac_FULL(43,75) - JVS(181) = -B(326) -! JVS(182) = Jac_FULL(44,10) - JVS(182) = 0.7*B(209) -! JVS(183) = Jac_FULL(44,31) - JVS(183) = B(219) -! JVS(184) = Jac_FULL(44,44) - JVS(184) = -B(215)-B(217) -! JVS(185) = Jac_FULL(44,75) - JVS(185) = 0.7*B(210)+B(220) -! JVS(186) = Jac_FULL(44,76) - JVS(186) = -B(216) -! JVS(187) = Jac_FULL(44,79) - JVS(187) = -B(218) -! JVS(188) = Jac_FULL(45,14) - JVS(188) = 0.7*B(213) -! JVS(189) = Jac_FULL(45,31) - JVS(189) = 0.9*B(36) -! JVS(190) = Jac_FULL(45,44) - JVS(190) = 0.9*B(215) -! JVS(191) = Jac_FULL(45,45) - JVS(191) = -B(32) -! JVS(192) = Jac_FULL(45,73) - JVS(192) = 0.7*B(214) -! JVS(193) = Jac_FULL(45,75) - JVS(193) = 0 -! JVS(194) = Jac_FULL(45,76) - JVS(194) = 0.9*B(216) -! JVS(195) = Jac_FULL(45,79) - JVS(195) = 0 -! JVS(196) = Jac_FULL(46,46) - JVS(196) = -B(275)-B(277)-B(279) -! JVS(197) = Jac_FULL(46,75) - JVS(197) = -B(276) -! JVS(198) = Jac_FULL(46,80) - JVS(198) = -B(280) -! JVS(199) = Jac_FULL(46,81) - JVS(199) = -B(278) -! JVS(200) = Jac_FULL(47,3) - JVS(200) = B(4)-B(66)-B(68) -! JVS(201) = Jac_FULL(47,19) - JVS(201) = -B(46) -! JVS(202) = Jac_FULL(47,40) - JVS(202) = -B(100) -! JVS(203) = Jac_FULL(47,47) - JVS(203) = -B(42)-B(44)-B(47)-B(67)-B(69)-B(101) -! JVS(204) = Jac_FULL(47,61) - JVS(204) = 0 -! JVS(205) = Jac_FULL(47,72) - JVS(205) = 0 -! JVS(206) = Jac_FULL(47,75) - JVS(206) = 0 -! JVS(207) = Jac_FULL(47,81) - JVS(207) = B(2) -! JVS(208) = Jac_FULL(48,48) - JVS(208) = -B(34)-B(197) -! JVS(209) = Jac_FULL(48,55) - JVS(209) = B(195) -! JVS(210) = Jac_FULL(48,75) - JVS(210) = -B(198) -! JVS(211) = Jac_FULL(48,79) - JVS(211) = B(196) -! JVS(212) = Jac_FULL(49,25) - JVS(212) = B(207) -! JVS(213) = Jac_FULL(49,33) - JVS(213) = B(201) -! JVS(214) = Jac_FULL(49,48) - JVS(214) = 0 -! JVS(215) = Jac_FULL(49,49) - JVS(215) = -B(203)-B(205) -! JVS(216) = Jac_FULL(49,55) - JVS(216) = 0 -! JVS(217) = Jac_FULL(49,75) - JVS(217) = B(202)+B(208) -! JVS(218) = Jac_FULL(49,76) - JVS(218) = -B(204) -! JVS(219) = Jac_FULL(49,79) - JVS(219) = -B(206) -! JVS(220) = Jac_FULL(50,35) - JVS(220) = 0.5*B(149) -! JVS(221) = Jac_FULL(50,50) - JVS(221) = -B(145)-B(147) -! JVS(222) = Jac_FULL(50,61) - JVS(222) = B(139) -! JVS(223) = Jac_FULL(50,75) - JVS(223) = B(140)+0.5*B(150) -! JVS(224) = Jac_FULL(50,76) - JVS(224) = -B(146) -! JVS(225) = Jac_FULL(50,79) - JVS(225) = -B(148) -! JVS(226) = Jac_FULL(51,22) - JVS(226) = 0.82*B(22) -! JVS(227) = Jac_FULL(51,24) - JVS(227) = 0.5*B(189) -! JVS(228) = Jac_FULL(51,38) - JVS(228) = 0.1*B(37) -! JVS(229) = Jac_FULL(51,48) - JVS(229) = 0.25*B(34) -! JVS(230) = Jac_FULL(51,51) - JVS(230) = -B(24)-B(177) -! JVS(231) = Jac_FULL(51,55) - JVS(231) = 0.25*B(193) -! JVS(232) = Jac_FULL(51,57) - JVS(232) = 0.82*B(169)+0.82*B(173) -! JVS(233) = Jac_FULL(51,64) - JVS(233) = 0.1*B(281) -! JVS(234) = Jac_FULL(51,75) - JVS(234) = -B(178) -! JVS(235) = Jac_FULL(51,76) - JVS(235) = 0.82*B(170)+0.5*B(190)+0.25*B(194)+0.1*B(282) -! JVS(236) = Jac_FULL(51,77) - JVS(236) = 0.82*B(174) -! JVS(237) = Jac_FULL(51,79) - JVS(237) = 0 -! JVS(238) = Jac_FULL(52,47) - JVS(238) = B(42) -! JVS(239) = Jac_FULL(52,52) - JVS(239) = -B(38)-B(40)-B(50)-B(52)-B(74) -! JVS(240) = Jac_FULL(52,61) - JVS(240) = 0 -! JVS(241) = Jac_FULL(52,72) - JVS(241) = 0 -! JVS(242) = Jac_FULL(52,73) - JVS(242) = B(5)-B(75) -! JVS(243) = Jac_FULL(52,75) - JVS(243) = -B(51)+B(64) -! JVS(244) = Jac_FULL(52,79) - JVS(244) = -B(53) -! JVS(245) = Jac_FULL(52,81) - JVS(245) = B(3)-B(41) -! JVS(246) = Jac_FULL(53,53) - JVS(246) = -B(291)-B(293)-B(295) -! JVS(247) = Jac_FULL(53,59) - JVS(247) = B(289) -! JVS(248) = Jac_FULL(53,76) - JVS(248) = -B(292) -! JVS(249) = Jac_FULL(53,79) - JVS(249) = -B(296) -! JVS(250) = Jac_FULL(53,80) - JVS(250) = B(290)-B(294) -! JVS(251) = Jac_FULL(54,12) - JVS(251) = B(126) -! JVS(252) = Jac_FULL(54,30) - JVS(252) = 0 -! JVS(253) = Jac_FULL(54,54) - JVS(253) = -B(30)-B(331) -! JVS(254) = Jac_FULL(54,68) - JVS(254) = 0.25*B(307)+0.25*B(309)+0.1*B(313)+0.25*B(315) -! JVS(255) = Jac_FULL(54,70) - JVS(255) = 0.53*B(245)+0.53*B(249)+0.26*B(253)+0.53*B(255) -! JVS(256) = Jac_FULL(54,75) - JVS(256) = -B(332) -! JVS(257) = Jac_FULL(54,76) - JVS(257) = 0.53*B(246)+0.25*B(308) -! JVS(258) = Jac_FULL(54,77) - JVS(258) = 0.26*B(254)+0.1*B(314) -! JVS(259) = Jac_FULL(54,78) - JVS(259) = 0.53*B(256)+0.25*B(316) -! JVS(260) = Jac_FULL(54,80) - JVS(260) = 0.53*B(250)+0.25*B(310) -! JVS(261) = Jac_FULL(54,81) - JVS(261) = 0 -! JVS(262) = Jac_FULL(55,7) - JVS(262) = B(191) -! JVS(263) = Jac_FULL(55,48) - JVS(263) = B(197) -! JVS(264) = Jac_FULL(55,55) - JVS(264) = -B(193)-B(195) -! JVS(265) = Jac_FULL(55,75) - JVS(265) = B(192)+B(198) -! JVS(266) = Jac_FULL(55,76) - JVS(266) = -B(194) -! JVS(267) = Jac_FULL(55,79) - JVS(267) = -B(196) -! JVS(268) = Jac_FULL(56,4) - JVS(268) = B(129) -! JVS(269) = Jac_FULL(56,21) - JVS(269) = 0.5*B(137) -! JVS(270) = Jac_FULL(56,33) - JVS(270) = B(31) -! JVS(271) = Jac_FULL(56,48) - JVS(271) = 0 -! JVS(272) = Jac_FULL(56,55) - JVS(272) = 0 -! JVS(273) = Jac_FULL(56,56) - JVS(273) = -B(131)-B(133)-B(135)-2*B(342) -! JVS(274) = Jac_FULL(56,75) - JVS(274) = B(130)+0.5*B(138) -! JVS(275) = Jac_FULL(56,76) - JVS(275) = -B(132) -! JVS(276) = Jac_FULL(56,77) - JVS(276) = -B(136) -! JVS(277) = Jac_FULL(56,79) - JVS(277) = -B(134) -! JVS(278) = Jac_FULL(57,5) - JVS(278) = B(167) -! JVS(279) = Jac_FULL(57,22) - JVS(279) = B(175) -! JVS(280) = Jac_FULL(57,57) - JVS(280) = -B(169)-B(171)-B(173) -! JVS(281) = Jac_FULL(57,75) - JVS(281) = B(168)+B(176) -! JVS(282) = Jac_FULL(57,76) - JVS(282) = -B(170) -! JVS(283) = Jac_FULL(57,77) - JVS(283) = -B(174) -! JVS(284) = Jac_FULL(57,79) - JVS(284) = -B(172) -! JVS(285) = Jac_FULL(58,27) - JVS(285) = 0.5*B(118) -! JVS(286) = Jac_FULL(58,37) - JVS(286) = 2*B(33)+B(122) -! JVS(287) = Jac_FULL(58,44) - JVS(287) = 0 -! JVS(288) = Jac_FULL(58,45) - JVS(288) = 0.45*B(32) -! JVS(289) = Jac_FULL(58,54) - JVS(289) = B(30) -! JVS(290) = Jac_FULL(58,58) - JVS(290) = -B(114) -! JVS(291) = Jac_FULL(58,59) - JVS(291) = 0.3*B(223) -! JVS(292) = Jac_FULL(58,60) - JVS(292) = B(27) -! JVS(293) = Jac_FULL(58,61) - JVS(293) = 0.56*B(141) -! JVS(294) = Jac_FULL(58,62) - JVS(294) = B(14) -! JVS(295) = Jac_FULL(58,66) - JVS(295) = 0.67*B(19)+0.2*B(243) -! JVS(296) = Jac_FULL(58,67) - JVS(296) = B(25)+B(297)+B(299) -! JVS(297) = Jac_FULL(58,68) - JVS(297) = B(307)+B(309)+0.4*B(313)+B(315) -! JVS(298) = Jac_FULL(58,69) - JVS(298) = 0.7*B(20)+0.05*B(239) -! JVS(299) = Jac_FULL(58,70) - JVS(299) = 0.22*B(245)+0.22*B(249)+0.11*B(253)+0.22*B(255) -! JVS(300) = Jac_FULL(58,72) - JVS(300) = B(11)+B(12)+B(110)+B(112) -! JVS(301) = Jac_FULL(58,73) - JVS(301) = 0 -! JVS(302) = Jac_FULL(58,75) - JVS(302) = B(113)-B(115)+B(123)+B(298) -! JVS(303) = Jac_FULL(58,76) - JVS(303) = 0.22*B(246)+B(308) -! JVS(304) = Jac_FULL(58,77) - JVS(304) = 0.11*B(254)+0.4*B(314) -! JVS(305) = Jac_FULL(58,78) - JVS(305) = 0.22*B(256)+B(316) -! JVS(306) = Jac_FULL(58,79) - JVS(306) = 0 -! JVS(307) = Jac_FULL(58,80) - JVS(307) = B(111)+0.22*B(250)+B(300)+B(310) -! JVS(308) = Jac_FULL(58,81) - JVS(308) = 0.5*B(119)+0.56*B(142)+0.3*B(224)+0.05*B(240)+0.2*B(244) -! JVS(309) = Jac_FULL(59,59) - JVS(309) = -B(221)-B(223)-B(289) -! JVS(310) = Jac_FULL(59,75) - JVS(310) = -B(222) -! JVS(311) = Jac_FULL(59,80) - JVS(311) = -B(290) -! JVS(312) = Jac_FULL(59,81) - JVS(312) = -B(224) -! JVS(313) = Jac_FULL(60,53) - JVS(313) = 0.794*B(291)+0.794*B(293)+0.794*B(295) -! JVS(314) = Jac_FULL(60,59) - JVS(314) = 0 -! JVS(315) = Jac_FULL(60,60) - JVS(315) = -B(27)-B(301)-B(303) -! JVS(316) = Jac_FULL(60,70) - JVS(316) = 0.8*B(247) -! JVS(317) = Jac_FULL(60,71) - JVS(317) = 0.08*B(225) -! JVS(318) = Jac_FULL(60,75) - JVS(318) = -B(302) -! JVS(319) = Jac_FULL(60,76) - JVS(319) = 0.08*B(226)+0.8*B(248)+0.794*B(292) -! JVS(320) = Jac_FULL(60,79) - JVS(320) = 0.794*B(296) -! JVS(321) = Jac_FULL(60,80) - JVS(321) = 0.794*B(294)-B(304) -! JVS(322) = Jac_FULL(60,81) - JVS(322) = 0 -! JVS(323) = Jac_FULL(61,59) - JVS(323) = 0.07*B(223) -! JVS(324) = Jac_FULL(61,61) - JVS(324) = -B(139)-B(141)-B(143) -! JVS(325) = Jac_FULL(61,69) - JVS(325) = 0.7*B(20) -! JVS(326) = Jac_FULL(61,75) - JVS(326) = -B(140) -! JVS(327) = Jac_FULL(61,80) - JVS(327) = -B(144) -! JVS(328) = Jac_FULL(61,81) - JVS(328) = -B(142)+0.07*B(224) -! JVS(329) = Jac_FULL(62,17) - JVS(329) = B(323) -! JVS(330) = Jac_FULL(62,21) - JVS(330) = B(21)+0.5*B(137) -! JVS(331) = Jac_FULL(62,24) - JVS(331) = B(189) -! JVS(332) = Jac_FULL(62,25) - JVS(332) = B(35) -! JVS(333) = Jac_FULL(62,35) - JVS(333) = B(15) -! JVS(334) = Jac_FULL(62,48) - JVS(334) = 0.4*B(34) -! JVS(335) = Jac_FULL(62,49) - JVS(335) = B(203) -! JVS(336) = Jac_FULL(62,50) - JVS(336) = B(145) -! JVS(337) = Jac_FULL(62,55) - JVS(337) = 0.4*B(193) -! JVS(338) = Jac_FULL(62,56) - JVS(338) = B(131)+0.8*B(135)+1.6*B(342) -! JVS(339) = Jac_FULL(62,57) - JVS(339) = 0.27*B(169) -! JVS(340) = Jac_FULL(62,61) - JVS(340) = 0.5*B(141) -! JVS(341) = Jac_FULL(62,62) - JVS(341) = -B(14)-B(151)-B(153) -! JVS(342) = Jac_FULL(62,69) - JVS(342) = 0.04*B(239) -! JVS(343) = Jac_FULL(62,75) - JVS(343) = 0.5*B(138)-B(152)+B(324) -! JVS(344) = Jac_FULL(62,76) - JVS(344) = B(132)+B(146)+0.27*B(170)+B(190)+0.4*B(194)+B(204) -! JVS(345) = Jac_FULL(62,77) - JVS(345) = 0.8*B(136) -! JVS(346) = Jac_FULL(62,79) - JVS(346) = 0 -! JVS(347) = Jac_FULL(62,80) - JVS(347) = -B(154) -! JVS(348) = Jac_FULL(62,81) - JVS(348) = 0.5*B(142)+0.04*B(240) -! JVS(349) = Jac_FULL(63,23) - JVS(349) = B(185) -! JVS(350) = Jac_FULL(63,51) - JVS(350) = B(177) -! JVS(351) = Jac_FULL(63,55) - JVS(351) = 0 -! JVS(352) = Jac_FULL(63,57) - JVS(352) = 0 -! JVS(353) = Jac_FULL(63,63) - JVS(353) = -B(179)-B(181)-B(183) -! JVS(354) = Jac_FULL(63,64) - JVS(354) = 0 -! JVS(355) = Jac_FULL(63,75) - JVS(355) = B(178)+B(186) -! JVS(356) = Jac_FULL(63,76) - JVS(356) = -B(180) -! JVS(357) = Jac_FULL(63,77) - JVS(357) = -B(184) -! JVS(358) = Jac_FULL(63,79) - JVS(358) = -B(182) -! JVS(359) = Jac_FULL(64,38) - JVS(359) = B(285) -! JVS(360) = Jac_FULL(64,46) - JVS(360) = B(275)+B(279) -! JVS(361) = Jac_FULL(64,64) - JVS(361) = -B(281)-B(283) -! JVS(362) = Jac_FULL(64,75) - JVS(362) = B(276)+B(286) -! JVS(363) = Jac_FULL(64,76) - JVS(363) = -B(282) -! JVS(364) = Jac_FULL(64,79) - JVS(364) = -B(284) -! JVS(365) = Jac_FULL(64,80) - JVS(365) = B(280) -! JVS(366) = Jac_FULL(64,81) - JVS(366) = 0 -! JVS(367) = Jac_FULL(65,35) - JVS(367) = 0.5*B(149) -! JVS(368) = Jac_FULL(65,43) - JVS(368) = 0.5*B(325) -! JVS(369) = Jac_FULL(65,50) - JVS(369) = 0 -! JVS(370) = Jac_FULL(65,61) - JVS(370) = 0 -! JVS(371) = Jac_FULL(65,63) - JVS(371) = 0.2*B(183) -! JVS(372) = Jac_FULL(65,64) - JVS(372) = 0 -! JVS(373) = Jac_FULL(65,65) - JVS(373) = -B(29)-B(329) -! JVS(374) = Jac_FULL(65,68) - JVS(374) = 0.25*B(307)+0.25*B(309)+0.1*B(313)+0.25*B(315) -! JVS(375) = Jac_FULL(65,69) - JVS(375) = 0 -! JVS(376) = Jac_FULL(65,70) - JVS(376) = 0.22*B(245)+0.22*B(249)+0.23*B(253)+0.22*B(255) -! JVS(377) = Jac_FULL(65,73) - JVS(377) = 0 -! JVS(378) = Jac_FULL(65,74) - JVS(378) = 0 -! JVS(379) = Jac_FULL(65,75) - JVS(379) = 0.5*B(150)+0.5*B(326)-B(330) -! JVS(380) = Jac_FULL(65,76) - JVS(380) = 0.22*B(246)+0.25*B(308) -! JVS(381) = Jac_FULL(65,77) - JVS(381) = 0.2*B(184)+0.23*B(254)+0.1*B(314) -! JVS(382) = Jac_FULL(65,78) - JVS(382) = 0.22*B(256)+0.25*B(316) -! JVS(383) = Jac_FULL(65,79) - JVS(383) = 0 -! JVS(384) = Jac_FULL(65,80) - JVS(384) = 0.22*B(250)+0.25*B(310) -! JVS(385) = Jac_FULL(65,81) - JVS(385) = 0 -! JVS(386) = Jac_FULL(66,38) - JVS(386) = B(37) -! JVS(387) = Jac_FULL(66,42) - JVS(387) = 0.288*B(28) -! JVS(388) = Jac_FULL(66,46) - JVS(388) = B(277) -! JVS(389) = Jac_FULL(66,53) - JVS(389) = 0.167*B(291)+0.167*B(293)+0.167*B(295) -! JVS(390) = Jac_FULL(66,59) - JVS(390) = 0.4*B(223) -! JVS(391) = Jac_FULL(66,64) - JVS(391) = B(281) -! JVS(392) = Jac_FULL(66,66) - JVS(392) = -B(19)-B(241)-B(243) -! JVS(393) = Jac_FULL(66,71) - JVS(393) = 0.23*B(225)+0.25*B(227)+0.19*B(233)+0.25*B(235) -! JVS(394) = Jac_FULL(66,75) - JVS(394) = -B(242) -! JVS(395) = Jac_FULL(66,76) - JVS(395) = 0.23*B(226)+B(282)+0.167*B(292) -! JVS(396) = Jac_FULL(66,77) - JVS(396) = 0.19*B(234) -! JVS(397) = Jac_FULL(66,78) - JVS(397) = 0.25*B(236) -! JVS(398) = Jac_FULL(66,79) - JVS(398) = 0.167*B(296) -! JVS(399) = Jac_FULL(66,80) - JVS(399) = 0.25*B(228)+0.167*B(294) -! JVS(400) = Jac_FULL(66,81) - JVS(400) = 0.4*B(224)-B(244)+B(278) -! JVS(401) = Jac_FULL(67,29) - JVS(401) = B(199) -! JVS(402) = Jac_FULL(67,31) - JVS(402) = 0.45*B(36) -! JVS(403) = Jac_FULL(67,44) - JVS(403) = 0.45*B(215) -! JVS(404) = Jac_FULL(67,45) - JVS(404) = 0.18*B(32) -! JVS(405) = Jac_FULL(67,55) - JVS(405) = 0 -! JVS(406) = Jac_FULL(67,61) - JVS(406) = 0 -! JVS(407) = Jac_FULL(67,63) - JVS(407) = 0.5*B(183) -! JVS(408) = Jac_FULL(67,64) - JVS(408) = 0 -! JVS(409) = Jac_FULL(67,65) - JVS(409) = B(329) -! JVS(410) = Jac_FULL(67,66) - JVS(410) = 0.8*B(243) -! JVS(411) = Jac_FULL(67,67) - JVS(411) = -B(25)-B(297)-B(299) -! JVS(412) = Jac_FULL(67,68) - JVS(412) = 0.25*B(307)+0.25*B(309)+0.1*B(313)+0.25*B(315) -! JVS(413) = Jac_FULL(67,69) - JVS(413) = 0.95*B(239) -! JVS(414) = Jac_FULL(67,70) - JVS(414) = 0.25*B(245)+0.25*B(249)+0.24*B(253)+0.25*B(255) -! JVS(415) = Jac_FULL(67,71) - JVS(415) = 0 -! JVS(416) = Jac_FULL(67,73) - JVS(416) = 0 -! JVS(417) = Jac_FULL(67,74) - JVS(417) = 0 -! JVS(418) = Jac_FULL(67,75) - JVS(418) = B(200)-B(298)+B(330) -! JVS(419) = Jac_FULL(67,76) - JVS(419) = 0.45*B(216)+0.25*B(246)+0.25*B(308) -! JVS(420) = Jac_FULL(67,77) - JVS(420) = 0.5*B(184)+0.24*B(254)+0.1*B(314) -! JVS(421) = Jac_FULL(67,78) - JVS(421) = 0.25*B(256)+0.25*B(316) -! JVS(422) = Jac_FULL(67,79) - JVS(422) = 0 -! JVS(423) = Jac_FULL(67,80) - JVS(423) = 0.25*B(250)-B(300)+0.25*B(310) -! JVS(424) = Jac_FULL(67,81) - JVS(424) = 0.95*B(240)+0.8*B(244) -! JVS(425) = Jac_FULL(68,15) - JVS(425) = B(317) -! JVS(426) = Jac_FULL(68,28) - JVS(426) = B(305) -! JVS(427) = Jac_FULL(68,42) - JVS(427) = 0.5*B(231) -! JVS(428) = Jac_FULL(68,60) - JVS(428) = 0 -! JVS(429) = Jac_FULL(68,68) - JVS(429) = -B(307)-B(309)-B(311)-B(313)-B(315) -! JVS(430) = Jac_FULL(68,70) - JVS(430) = 0 -! JVS(431) = Jac_FULL(68,71) - JVS(431) = 0 -! JVS(432) = Jac_FULL(68,75) - JVS(432) = 0.5*B(232)+B(306)+B(318) -! JVS(433) = Jac_FULL(68,76) - JVS(433) = -B(308) -! JVS(434) = Jac_FULL(68,77) - JVS(434) = -B(314) -! JVS(435) = Jac_FULL(68,78) - JVS(435) = -B(316) -! JVS(436) = Jac_FULL(68,79) - JVS(436) = -B(312) -! JVS(437) = Jac_FULL(68,80) - JVS(437) = -B(310) -! JVS(438) = Jac_FULL(68,81) - JVS(438) = 0 -! JVS(439) = Jac_FULL(69,38) - JVS(439) = B(37) -! JVS(440) = Jac_FULL(69,42) - JVS(440) = 0.402*B(28) -! JVS(441) = Jac_FULL(69,46) - JVS(441) = B(277) -! JVS(442) = Jac_FULL(69,53) - JVS(442) = 0.039*B(291)+0.039*B(293)+0.039*B(295) -! JVS(443) = Jac_FULL(69,59) - JVS(443) = 0.2*B(223) -! JVS(444) = Jac_FULL(69,64) - JVS(444) = B(281) -! JVS(445) = Jac_FULL(69,69) - JVS(445) = -B(20)-B(237)-B(239) -! JVS(446) = Jac_FULL(69,71) - JVS(446) = 0.32*B(225)+0.35*B(227)+0.26*B(233)+0.35*B(235) -! JVS(447) = Jac_FULL(69,75) - JVS(447) = -B(238) -! JVS(448) = Jac_FULL(69,76) - JVS(448) = 0.32*B(226)+B(282)+0.039*B(292) -! JVS(449) = Jac_FULL(69,77) - JVS(449) = 0.26*B(234) -! JVS(450) = Jac_FULL(69,78) - JVS(450) = 0.35*B(236) -! JVS(451) = Jac_FULL(69,79) - JVS(451) = 0.039*B(296) -! JVS(452) = Jac_FULL(69,80) - JVS(452) = 0.35*B(228)+0.039*B(294) -! JVS(453) = Jac_FULL(69,81) - JVS(453) = 0.2*B(224)-B(240)+B(278) -! JVS(454) = Jac_FULL(70,20) - JVS(454) = 0.2*B(257) -! JVS(455) = Jac_FULL(70,66) - JVS(455) = 0.5*B(241) -! JVS(456) = Jac_FULL(70,69) - JVS(456) = B(237) -! JVS(457) = Jac_FULL(70,70) - JVS(457) = -B(245)-B(247)-B(249)-B(251)-B(253)-B(255) -! JVS(458) = Jac_FULL(70,71) - JVS(458) = 0 -! JVS(459) = Jac_FULL(70,75) - JVS(459) = B(238)+0.5*B(242)+0.2*B(258) -! JVS(460) = Jac_FULL(70,76) - JVS(460) = -B(246)-B(248) -! JVS(461) = Jac_FULL(70,77) - JVS(461) = -B(254) -! JVS(462) = Jac_FULL(70,78) - JVS(462) = -B(256) -! JVS(463) = Jac_FULL(70,79) - JVS(463) = -B(252) -! JVS(464) = Jac_FULL(70,80) - JVS(464) = -B(250) -! JVS(465) = Jac_FULL(70,81) - JVS(465) = 0 -! JVS(466) = Jac_FULL(71,42) - JVS(466) = 0.5*B(231) -! JVS(467) = Jac_FULL(71,59) - JVS(467) = B(221) -! JVS(468) = Jac_FULL(71,71) - JVS(468) = -B(225)-B(227)-B(229)-B(233)-B(235) -! JVS(469) = Jac_FULL(71,75) - JVS(469) = B(222)+0.5*B(232) -! JVS(470) = Jac_FULL(71,76) - JVS(470) = -B(226) -! JVS(471) = Jac_FULL(71,77) - JVS(471) = -B(234) -! JVS(472) = Jac_FULL(71,78) - JVS(472) = -B(236) -! JVS(473) = Jac_FULL(71,79) - JVS(473) = -B(230) -! JVS(474) = Jac_FULL(71,80) - JVS(474) = -B(228) -! JVS(475) = Jac_FULL(71,81) - JVS(475) = 0 -! JVS(476) = Jac_FULL(72,12) - JVS(476) = 2*B(128) -! JVS(477) = Jac_FULL(72,18) - JVS(477) = B(10)+0.3*B(108) -! JVS(478) = Jac_FULL(72,23) - JVS(478) = B(23) -! JVS(479) = Jac_FULL(72,24) - JVS(479) = 0.5*B(189) -! JVS(480) = Jac_FULL(72,27) - JVS(480) = 0.5*B(116)+B(118) -! JVS(481) = Jac_FULL(72,30) - JVS(481) = 0 -! JVS(482) = Jac_FULL(72,32) - JVS(482) = 0.5*B(163) -! JVS(483) = Jac_FULL(72,35) - JVS(483) = B(15) -! JVS(484) = Jac_FULL(72,36) - JVS(484) = B(327) -! JVS(485) = Jac_FULL(72,40) - JVS(485) = 0.25*B(100) -! JVS(486) = Jac_FULL(72,41) - JVS(486) = B(321) -! JVS(487) = Jac_FULL(72,42) - JVS(487) = 0.69*B(28) -! JVS(488) = Jac_FULL(72,43) - JVS(488) = 0.5*B(325) -! JVS(489) = Jac_FULL(72,47) - JVS(489) = 0.25*B(101) -! JVS(490) = Jac_FULL(72,48) - JVS(490) = 0.1*B(34) -! JVS(491) = Jac_FULL(72,50) - JVS(491) = B(145) -! JVS(492) = Jac_FULL(72,53) - JVS(492) = 0.072*B(291)+0.072*B(293)+0.008*B(295) -! JVS(493) = Jac_FULL(72,54) - JVS(493) = B(30)+0.8*B(331) -! JVS(494) = Jac_FULL(72,55) - JVS(494) = 0.1*B(193) -! JVS(495) = Jac_FULL(72,56) - JVS(495) = 0.7*B(135) -! JVS(496) = Jac_FULL(72,57) - JVS(496) = B(173) -! JVS(497) = Jac_FULL(72,59) - JVS(497) = 0.6*B(223) -! JVS(498) = Jac_FULL(72,60) - JVS(498) = B(27) -! JVS(499) = Jac_FULL(72,61) - JVS(499) = 0.54*B(141) -! JVS(500) = Jac_FULL(72,63) - JVS(500) = B(179)+0.8*B(183) -! JVS(501) = Jac_FULL(72,64) - JVS(501) = 0 -! JVS(502) = Jac_FULL(72,65) - JVS(502) = B(29) -! JVS(503) = Jac_FULL(72,66) - JVS(503) = 0.67*B(19)+0.7*B(243) -! JVS(504) = Jac_FULL(72,68) - JVS(504) = 0.7*B(313) -! JVS(505) = Jac_FULL(72,69) - JVS(505) = 0.8*B(239) -! JVS(506) = Jac_FULL(72,70) - JVS(506) = 0.25*B(245)+0.25*B(249)+0.88*B(253)+0.25*B(255) -! JVS(507) = Jac_FULL(72,71) - JVS(507) = 0.55*B(225)+0.6*B(227)+1.2*B(233)+0.6*B(235) -! JVS(508) = Jac_FULL(72,72) - JVS(508) = -B(11)-B(12)-B(110)-B(112) -! JVS(509) = Jac_FULL(72,73) - JVS(509) = 0 -! JVS(510) = Jac_FULL(72,74) - JVS(510) = B(259)+B(261)+2*B(265)+B(267)+2*B(269) -! JVS(511) = Jac_FULL(72,75) - JVS(511) = 0.3*B(109)-B(113)+0.5*B(117)+0.5*B(164)+B(322)+0.5*B(326)+B(328)+0.8*B(332) -! JVS(512) = Jac_FULL(72,76) - JVS(512) = B(102)+B(146)+B(180)+0.5*B(190)+0.1*B(194)+0.55*B(226)+0.25*B(246)+B(260)+0.072*B(292) -! JVS(513) = Jac_FULL(72,77) - JVS(513) = B(103)+2*B(104)+B(105)+0.7*B(136)+B(161)+B(174)+0.8*B(184)+1.2*B(234)+0.88*B(254)+2*B(266)+0.7*B(314) -! JVS(514) = Jac_FULL(72,78) - JVS(514) = B(162)+0.6*B(236)+0.25*B(256)+B(268) -! JVS(515) = Jac_FULL(72,79) - JVS(515) = 0.008*B(296) -! JVS(516) = Jac_FULL(72,80) - JVS(516) = -B(111)+0.6*B(228)+0.25*B(250)+B(262)+0.072*B(294) -! JVS(517) = Jac_FULL(72,81) - JVS(517) = B(119)+0.54*B(142)+0.6*B(224)+0.8*B(240)+0.7*B(244) -! JVS(518) = Jac_FULL(73,13) - JVS(518) = B(6)+B(82) -! JVS(519) = Jac_FULL(73,14) - JVS(519) = -0.3*B(213) -! JVS(520) = Jac_FULL(73,24) - JVS(520) = B(189) -! JVS(521) = Jac_FULL(73,26) - JVS(521) = 0.66*B(9)+B(91)+B(93) -! JVS(522) = Jac_FULL(73,29) - JVS(522) = B(199) -! JVS(523) = Jac_FULL(73,30) - JVS(523) = B(124) -! JVS(524) = Jac_FULL(73,36) - JVS(524) = 0.6*B(17)+B(165) -! JVS(525) = Jac_FULL(73,39) - JVS(525) = B(7) -! JVS(526) = Jac_FULL(73,43) - JVS(526) = B(18)+B(273) -! JVS(527) = Jac_FULL(73,44) - JVS(527) = 0.9*B(215) -! JVS(528) = Jac_FULL(73,46) - JVS(528) = B(279) -! JVS(529) = Jac_FULL(73,49) - JVS(529) = B(203) -! JVS(530) = Jac_FULL(73,50) - JVS(530) = B(145) -! JVS(531) = Jac_FULL(73,52) - JVS(531) = -B(74) -! JVS(532) = Jac_FULL(73,53) - JVS(532) = 1.206*B(291)+1.206*B(293)+0.206*B(295) -! JVS(533) = Jac_FULL(73,55) - JVS(533) = 0.9*B(193) -! JVS(534) = Jac_FULL(73,56) - JVS(534) = B(131) -! JVS(535) = Jac_FULL(73,57) - JVS(535) = B(169) -! JVS(536) = Jac_FULL(73,59) - JVS(536) = 0 -! JVS(537) = Jac_FULL(73,60) - JVS(537) = B(27)+0.4*B(301)+B(303) -! JVS(538) = Jac_FULL(73,61) - JVS(538) = 0 -! JVS(539) = Jac_FULL(73,62) - JVS(539) = 0 -! JVS(540) = Jac_FULL(73,63) - JVS(540) = B(179) -! JVS(541) = Jac_FULL(73,64) - JVS(541) = B(281) -! JVS(542) = Jac_FULL(73,67) - JVS(542) = 0 -! JVS(543) = Jac_FULL(73,68) - JVS(543) = B(307)+B(309) -! JVS(544) = Jac_FULL(73,69) - JVS(544) = 0 -! JVS(545) = Jac_FULL(73,70) - JVS(545) = B(245)+B(249) -! JVS(546) = Jac_FULL(73,71) - JVS(546) = 0.92*B(225)+B(227) -! JVS(547) = Jac_FULL(73,72) - JVS(547) = 0 -! JVS(548) = Jac_FULL(73,73) - JVS(548) = -B(5)-B(75)-B(76)-B(80)-B(83)-B(89)-B(97)-B(157)-0.3*B(214)-B(270) -! JVS(549) = Jac_FULL(73,74) - JVS(549) = B(259)+B(261)-B(271) -! JVS(550) = Jac_FULL(73,75) - JVS(550) = -B(84)+B(92)+B(200)+0.4*B(302) -! JVS(551) = Jac_FULL(73,76) - JVS(551) = B(70)+B(72)+2*B(87)+B(102)+B(125)+B(132)+B(146)+B(155)+B(170)+B(180)+B(190)+0.9*B(194)+B(204)+0.9*B(216)& - &+0.92*B(226)+B(246)+B(260)+B(282)+1.206*B(292)+B(308) -! JVS(552) = Jac_FULL(73,77) - JVS(552) = B(103) -! JVS(553) = Jac_FULL(73,78) - JVS(553) = B(156)-B(158) -! JVS(554) = Jac_FULL(73,79) - JVS(554) = B(71)+B(78)-B(90)+0.206*B(296) -! JVS(555) = Jac_FULL(73,80) - JVS(555) = 0.89*B(8)+B(79)-B(81)+2*B(88)+B(228)+B(250)+B(262)+B(280)+1.206*B(294)+B(304)+B(310) -! JVS(556) = Jac_FULL(73,81) - JVS(556) = B(73)-B(77) -! JVS(557) = Jac_FULL(74,20) - JVS(557) = 0.5*B(257) -! JVS(558) = Jac_FULL(74,43) - JVS(558) = B(18)+B(273) -! JVS(559) = Jac_FULL(74,59) - JVS(559) = 0.2*B(223) -! JVS(560) = Jac_FULL(74,66) - JVS(560) = 0.33*B(19)+0.5*B(241) -! JVS(561) = Jac_FULL(74,70) - JVS(561) = 0 -! JVS(562) = Jac_FULL(74,71) - JVS(562) = 0 -! JVS(563) = Jac_FULL(74,73) - JVS(563) = -B(270) -! JVS(564) = Jac_FULL(74,74) - JVS(564) = -B(259)-B(261)-B(263)-B(265)-B(267)-2*B(269)-B(271) -! JVS(565) = Jac_FULL(74,75) - JVS(565) = 0.5*B(242)+0.5*B(258) -! JVS(566) = Jac_FULL(74,76) - JVS(566) = -B(260) -! JVS(567) = Jac_FULL(74,77) - JVS(567) = -B(266) -! JVS(568) = Jac_FULL(74,78) - JVS(568) = -B(268) -! JVS(569) = Jac_FULL(74,79) - JVS(569) = -B(264) -! JVS(570) = Jac_FULL(74,80) - JVS(570) = -B(262) -! JVS(571) = Jac_FULL(74,81) - JVS(571) = 0.2*B(224) -! JVS(572) = Jac_FULL(75,2) - JVS(572) = -B(339) -! JVS(573) = Jac_FULL(75,4) - JVS(573) = -B(129) -! JVS(574) = Jac_FULL(75,5) - JVS(574) = -B(167) -! JVS(575) = Jac_FULL(75,6) - JVS(575) = -B(187) -! JVS(576) = Jac_FULL(75,7) - JVS(576) = -B(191) -! JVS(577) = Jac_FULL(75,8) - JVS(577) = -B(120) -! JVS(578) = Jac_FULL(75,9) - JVS(578) = 2*B(13)-B(60) -! JVS(579) = Jac_FULL(75,10) - JVS(579) = -B(209) -! JVS(580) = Jac_FULL(75,11) - JVS(580) = -B(211) -! JVS(581) = Jac_FULL(75,15) - JVS(581) = B(26)-B(317) -! JVS(582) = Jac_FULL(75,16) - JVS(582) = -B(333)-B(335) -! JVS(583) = Jac_FULL(75,17) - JVS(583) = -B(323) -! JVS(584) = Jac_FULL(75,18) - JVS(584) = B(10)-0.7*B(108) -! JVS(585) = Jac_FULL(75,19) - JVS(585) = B(46)-B(48) -! JVS(586) = Jac_FULL(75,20) - JVS(586) = -0.9*B(257) -! JVS(587) = Jac_FULL(75,21) - JVS(587) = B(21)-0.5*B(137) -! JVS(588) = Jac_FULL(75,22) - JVS(588) = B(22)-B(175) -! JVS(589) = Jac_FULL(75,23) - JVS(589) = B(23)-B(185) -! JVS(590) = Jac_FULL(75,25) - JVS(590) = B(35)-B(207) -! JVS(591) = Jac_FULL(75,26) - JVS(591) = 0.33*B(9)-B(91) -! JVS(592) = Jac_FULL(75,27) - JVS(592) = -B(116)+0.12*B(118) -! JVS(593) = Jac_FULL(75,28) - JVS(593) = -B(305) -! JVS(594) = Jac_FULL(75,29) - JVS(594) = -B(199) -! JVS(595) = Jac_FULL(75,31) - JVS(595) = B(36)-B(219) -! JVS(596) = Jac_FULL(75,32) - JVS(596) = B(16)-B(163) -! JVS(597) = Jac_FULL(75,33) - JVS(597) = -B(201) -! JVS(598) = Jac_FULL(75,34) - JVS(598) = -B(287) -! JVS(599) = Jac_FULL(75,35) - JVS(599) = B(15)-0.5*B(149) -! JVS(600) = Jac_FULL(75,36) - JVS(600) = -B(327) -! JVS(601) = Jac_FULL(75,37) - JVS(601) = -B(122) -! JVS(602) = Jac_FULL(75,38) - JVS(602) = B(37)-B(285) -! JVS(603) = Jac_FULL(75,39) - JVS(603) = B(7)-B(85) -! JVS(604) = Jac_FULL(75,40) - JVS(604) = -B(98)+0.75*B(100) -! JVS(605) = Jac_FULL(75,41) - JVS(605) = -B(321) -! JVS(606) = Jac_FULL(75,42) - JVS(606) = -B(231) -! JVS(607) = Jac_FULL(75,43) - JVS(607) = -B(325) -! JVS(608) = Jac_FULL(75,44) - JVS(608) = 0 -! JVS(609) = Jac_FULL(75,45) - JVS(609) = 0 -! JVS(610) = Jac_FULL(75,46) - JVS(610) = -B(275)+0.7*B(277) -! JVS(611) = Jac_FULL(75,47) - JVS(611) = 2*B(44)+B(47)+0.75*B(101) -! JVS(612) = Jac_FULL(75,48) - JVS(612) = B(34)-B(197) -! JVS(613) = Jac_FULL(75,49) - JVS(613) = 0 -! JVS(614) = Jac_FULL(75,50) - JVS(614) = 0 -! JVS(615) = Jac_FULL(75,51) - JVS(615) = -B(177) -! JVS(616) = Jac_FULL(75,52) - JVS(616) = -B(50)+B(52) -! JVS(617) = Jac_FULL(75,54) - JVS(617) = -B(331) -! JVS(618) = Jac_FULL(75,55) - JVS(618) = 0 -! JVS(619) = Jac_FULL(75,56) - JVS(619) = 0 -! JVS(620) = Jac_FULL(75,57) - JVS(620) = 0 -! JVS(621) = Jac_FULL(75,58) - JVS(621) = -B(114) -! JVS(622) = Jac_FULL(75,59) - JVS(622) = -B(221)+0.27*B(223) -! JVS(623) = Jac_FULL(75,60) - JVS(623) = -B(301) -! JVS(624) = Jac_FULL(75,61) - JVS(624) = -B(139)+0.33*B(141) -! JVS(625) = Jac_FULL(75,62) - JVS(625) = -B(151) -! JVS(626) = Jac_FULL(75,63) - JVS(626) = 0 -! JVS(627) = Jac_FULL(75,64) - JVS(627) = 0 -! JVS(628) = Jac_FULL(75,65) - JVS(628) = -B(329) -! JVS(629) = Jac_FULL(75,66) - JVS(629) = 0.33*B(19)-B(241)+0.215*B(243) -! JVS(630) = Jac_FULL(75,67) - JVS(630) = -B(297) -! JVS(631) = Jac_FULL(75,68) - JVS(631) = 0 -! JVS(632) = Jac_FULL(75,69) - JVS(632) = -B(237)+0.08*B(239) -! JVS(633) = Jac_FULL(75,70) - JVS(633) = 0 -! JVS(634) = Jac_FULL(75,71) - JVS(634) = 0 -! JVS(635) = Jac_FULL(75,72) - JVS(635) = -B(112) -! JVS(636) = Jac_FULL(75,73) - JVS(636) = -B(83)+0.5*B(97) -! JVS(637) = Jac_FULL(75,74) - JVS(637) = 0 -! JVS(638) = Jac_FULL(75,75) - JVS(638) = -B(49)-B(51)-B(54)-B(61)-B(62)-2*B(64)-2*B(65)-B(84)-B(86)-B(92)-B(99)-0.7*B(109)-B(113)-B(115)-B(117)& - &-B(121)-B(123)-B(130)-0.5*B(138)-B(140)-0.5*B(150)-B(152)-B(164)-B(168)-B(176)-B(178)-B(186)-B(188)-B(192)& - &-B(198)-B(200)-B(202)-B(208)-B(210)-B(212)-B(220)-B(222)-B(232)-B(238)-B(242)-0.9*B(258)-B(276)-B(286)& - &-B(288)-B(298)-B(302)-B(306)-B(318)-B(322)-B(324)-B(326)-B(328)-B(330)-B(332)-B(334)-B(336)-B(340) -! JVS(639) = Jac_FULL(75,76) - JVS(639) = B(70) -! JVS(640) = Jac_FULL(75,77) - JVS(640) = 0 -! JVS(641) = Jac_FULL(75,78) - JVS(641) = 0 -! JVS(642) = Jac_FULL(75,79) - JVS(642) = B(53)+B(56)-B(63)+B(71)+B(78) -! JVS(643) = Jac_FULL(75,80) - JVS(643) = B(79) -! JVS(644) = Jac_FULL(75,81) - JVS(644) = -B(55)+B(57)+0.12*B(119)+0.33*B(142)+0.27*B(224)+0.08*B(240)+0.215*B(244)+0.7*B(278) -! JVS(645) = Jac_FULL(76,3) - JVS(645) = 2*B(66) -! JVS(646) = Jac_FULL(76,24) - JVS(646) = -B(189) -! JVS(647) = Jac_FULL(76,30) - JVS(647) = -B(124) -! JVS(648) = Jac_FULL(76,44) - JVS(648) = -B(215) -! JVS(649) = Jac_FULL(76,47) - JVS(649) = 2*B(67) -! JVS(650) = Jac_FULL(76,49) - JVS(650) = -B(203) -! JVS(651) = Jac_FULL(76,50) - JVS(651) = -B(145) -! JVS(652) = Jac_FULL(76,52) - JVS(652) = B(74) -! JVS(653) = Jac_FULL(76,53) - JVS(653) = -B(291) -! JVS(654) = Jac_FULL(76,55) - JVS(654) = -B(193) -! JVS(655) = Jac_FULL(76,56) - JVS(655) = -B(131) -! JVS(656) = Jac_FULL(76,57) - JVS(656) = -B(169) -! JVS(657) = Jac_FULL(76,59) - JVS(657) = 0 -! JVS(658) = Jac_FULL(76,61) - JVS(658) = 0 -! JVS(659) = Jac_FULL(76,63) - JVS(659) = -B(179) -! JVS(660) = Jac_FULL(76,64) - JVS(660) = -B(281) -! JVS(661) = Jac_FULL(76,68) - JVS(661) = -B(307) -! JVS(662) = Jac_FULL(76,69) - JVS(662) = 0 -! JVS(663) = Jac_FULL(76,70) - JVS(663) = -B(245)-B(247) -! JVS(664) = Jac_FULL(76,71) - JVS(664) = -B(225) -! JVS(665) = Jac_FULL(76,72) - JVS(665) = 0 -! JVS(666) = Jac_FULL(76,73) - JVS(666) = B(5)+B(75)+0.5*B(97) -! JVS(667) = Jac_FULL(76,74) - JVS(667) = -B(259) -! JVS(668) = Jac_FULL(76,75) - JVS(668) = 0 -! JVS(669) = Jac_FULL(76,76) - JVS(669) = -B(70)-B(72)-B(87)-B(102)-B(125)-B(132)-B(146)-B(155)-B(170)-B(180)-B(190)-B(194)-B(204)-B(216)-B(226)& - &-B(246)-B(248)-B(260)-B(282)-B(292)-B(308) -! JVS(670) = Jac_FULL(76,77) - JVS(670) = -B(103) -! JVS(671) = Jac_FULL(76,78) - JVS(671) = -B(156) -! JVS(672) = Jac_FULL(76,79) - JVS(672) = -B(71) -! JVS(673) = Jac_FULL(76,80) - JVS(673) = 0.11*B(8)-B(88) -! JVS(674) = Jac_FULL(76,81) - JVS(674) = -B(73) -! JVS(675) = Jac_FULL(77,18) - JVS(675) = 0.7*B(108) -! JVS(676) = Jac_FULL(77,32) - JVS(676) = B(16) -! JVS(677) = Jac_FULL(77,34) - JVS(677) = B(287) -! JVS(678) = Jac_FULL(77,36) - JVS(678) = 0.4*B(17) -! JVS(679) = Jac_FULL(77,40) - JVS(679) = B(98)+0.75*B(100) -! JVS(680) = Jac_FULL(77,47) - JVS(680) = 0.75*B(101) -! JVS(681) = Jac_FULL(77,51) - JVS(681) = B(24) -! JVS(682) = Jac_FULL(77,55) - JVS(682) = 0 -! JVS(683) = Jac_FULL(77,56) - JVS(683) = -B(135) -! JVS(684) = Jac_FULL(77,57) - JVS(684) = -B(173) -! JVS(685) = Jac_FULL(77,59) - JVS(685) = 0 -! JVS(686) = Jac_FULL(77,61) - JVS(686) = 0.31*B(141) -! JVS(687) = Jac_FULL(77,62) - JVS(687) = B(14) -! JVS(688) = Jac_FULL(77,63) - JVS(688) = -B(183) -! JVS(689) = Jac_FULL(77,64) - JVS(689) = 0 -! JVS(690) = Jac_FULL(77,68) - JVS(690) = -B(313)+B(315) -! JVS(691) = Jac_FULL(77,69) - JVS(691) = 0.3*B(20) -! JVS(692) = Jac_FULL(77,70) - JVS(692) = -B(253)+B(255) -! JVS(693) = Jac_FULL(77,71) - JVS(693) = -B(233)+B(235) -! JVS(694) = Jac_FULL(77,72) - JVS(694) = 0 -! JVS(695) = Jac_FULL(77,73) - JVS(695) = 0 -! JVS(696) = Jac_FULL(77,74) - JVS(696) = -B(265)+B(267) -! JVS(697) = Jac_FULL(77,75) - JVS(697) = B(99)+0.7*B(109)+B(288) -! JVS(698) = Jac_FULL(77,76) - JVS(698) = -B(102)+B(155) -! JVS(699) = Jac_FULL(77,77) - JVS(699) = -B(103)-2*B(104)-2*B(105)-B(106)-B(136)-0.1*B(161)-B(174)-B(184)-B(234)-B(254)-B(266)-B(314) -! JVS(700) = Jac_FULL(77,78) - JVS(700) = B(156)-0.1*B(162)+2*B(166)+B(236)+B(256)+B(268)+B(316) -! JVS(701) = Jac_FULL(77,79) - JVS(701) = -B(107) -! JVS(702) = Jac_FULL(77,80) - JVS(702) = 0 -! JVS(703) = Jac_FULL(77,81) - JVS(703) = 0.31*B(142) -! JVS(704) = Jac_FULL(78,23) - JVS(704) = B(23) -! JVS(705) = Jac_FULL(78,25) - JVS(705) = B(35) -! JVS(706) = Jac_FULL(78,32) - JVS(706) = 0.5*B(163) -! JVS(707) = Jac_FULL(78,33) - JVS(707) = B(31) -! JVS(708) = Jac_FULL(78,36) - JVS(708) = 0.6*B(17)+B(165) -! JVS(709) = Jac_FULL(78,45) - JVS(709) = 0.13*B(32) -! JVS(710) = Jac_FULL(78,48) - JVS(710) = 0 -! JVS(711) = Jac_FULL(78,49) - JVS(711) = B(203) -! JVS(712) = Jac_FULL(78,51) - JVS(712) = B(24) -! JVS(713) = Jac_FULL(78,55) - JVS(713) = 0 -! JVS(714) = Jac_FULL(78,57) - JVS(714) = 0 -! JVS(715) = Jac_FULL(78,62) - JVS(715) = B(151)+B(153) -! JVS(716) = Jac_FULL(78,63) - JVS(716) = B(179)+0.3*B(183) -! JVS(717) = Jac_FULL(78,64) - JVS(717) = 0 -! JVS(718) = Jac_FULL(78,65) - JVS(718) = B(29) -! JVS(719) = Jac_FULL(78,66) - JVS(719) = 0.67*B(19) -! JVS(720) = Jac_FULL(78,67) - JVS(720) = B(25)+B(297)+B(299) -! JVS(721) = Jac_FULL(78,68) - JVS(721) = -B(315) -! JVS(722) = Jac_FULL(78,69) - JVS(722) = 0.3*B(20) -! JVS(723) = Jac_FULL(78,70) - JVS(723) = 0.53*B(245)+0.53*B(249)+0.26*B(253)-0.47*B(255) -! JVS(724) = Jac_FULL(78,71) - JVS(724) = -B(235) -! JVS(725) = Jac_FULL(78,73) - JVS(725) = -B(157) -! JVS(726) = Jac_FULL(78,74) - JVS(726) = B(259)+B(261)+B(265)+2*B(269) -! JVS(727) = Jac_FULL(78,75) - JVS(727) = B(152)+0.5*B(164)+B(298) -! JVS(728) = Jac_FULL(78,76) - JVS(728) = -B(155)+B(180)+B(204)+0.53*B(246)+B(260) -! JVS(729) = Jac_FULL(78,77) - JVS(729) = -B(161)+0.3*B(184)+0.26*B(254)+B(266) -! JVS(730) = Jac_FULL(78,78) - JVS(730) = -B(156)-B(158)-B(159)-B(162)-2*B(166)-B(236)-0.47*B(256)-B(316) -! JVS(731) = Jac_FULL(78,79) - JVS(731) = -B(160) -! JVS(732) = Jac_FULL(78,80) - JVS(732) = B(154)+0.53*B(250)+B(262)+B(300) -! JVS(733) = Jac_FULL(78,81) - JVS(733) = 0 -! JVS(734) = Jac_FULL(79,9) - JVS(734) = B(60) -! JVS(735) = Jac_FULL(79,10) - JVS(735) = 0.25*B(209) -! JVS(736) = Jac_FULL(79,12) - JVS(736) = B(126)+B(128) -! JVS(737) = Jac_FULL(79,14) - JVS(737) = 0.7*B(213) -! JVS(738) = Jac_FULL(79,16) - JVS(738) = 0.5*B(335) -! JVS(739) = Jac_FULL(79,17) - JVS(739) = B(323) -! JVS(740) = Jac_FULL(79,18) - JVS(740) = B(10) -! JVS(741) = Jac_FULL(79,19) - JVS(741) = B(46)+B(48) -! JVS(742) = Jac_FULL(79,20) - JVS(742) = 0.2*B(257) -! JVS(743) = Jac_FULL(79,21) - JVS(743) = B(21) -! JVS(744) = Jac_FULL(79,22) - JVS(744) = B(22) -! JVS(745) = Jac_FULL(79,24) - JVS(745) = B(189) -! JVS(746) = Jac_FULL(79,26) - JVS(746) = 0.66*B(9)+B(93) -! JVS(747) = Jac_FULL(79,27) - JVS(747) = 0.25*B(116)+0.12*B(118) -! JVS(748) = Jac_FULL(79,30) - JVS(748) = 0 -! JVS(749) = Jac_FULL(79,35) - JVS(749) = B(15) -! JVS(750) = Jac_FULL(79,37) - JVS(750) = 2*B(33)+B(122) -! JVS(751) = Jac_FULL(79,38) - JVS(751) = B(37) -! JVS(752) = Jac_FULL(79,40) - JVS(752) = 0.4*B(100) -! JVS(753) = Jac_FULL(79,41) - JVS(753) = B(321) -! JVS(754) = Jac_FULL(79,42) - JVS(754) = B(28) -! JVS(755) = Jac_FULL(79,43) - JVS(755) = 0.5*B(325) -! JVS(756) = Jac_FULL(79,44) - JVS(756) = 0.9*B(215)-B(217) -! JVS(757) = Jac_FULL(79,45) - JVS(757) = 0.56*B(32) -! JVS(758) = Jac_FULL(79,46) - JVS(758) = B(277) -! JVS(759) = Jac_FULL(79,47) - JVS(759) = B(47)+0.4*B(101) -! JVS(760) = Jac_FULL(79,48) - JVS(760) = 0.9*B(34) -! JVS(761) = Jac_FULL(79,49) - JVS(761) = -B(205) -! JVS(762) = Jac_FULL(79,50) - JVS(762) = B(145)-B(147) -! JVS(763) = Jac_FULL(79,52) - JVS(763) = B(50)-B(52) -! JVS(764) = Jac_FULL(79,53) - JVS(764) = 0.794*B(291)+0.794*B(293)-0.206*B(295) -! JVS(765) = Jac_FULL(79,54) - JVS(765) = 2*B(30)+B(331) -! JVS(766) = Jac_FULL(79,55) - JVS(766) = 0.9*B(193)-B(195) -! JVS(767) = Jac_FULL(79,56) - JVS(767) = B(131)-B(133)+B(135)+1.2*B(342) -! JVS(768) = Jac_FULL(79,57) - JVS(768) = B(169)-B(171)+B(173) -! JVS(769) = Jac_FULL(79,58) - JVS(769) = B(114) -! JVS(770) = Jac_FULL(79,59) - JVS(770) = 0.06*B(223) -! JVS(771) = Jac_FULL(79,60) - JVS(771) = B(27)+B(301)+B(303) -! JVS(772) = Jac_FULL(79,61) - JVS(772) = 0.19*B(141) -! JVS(773) = Jac_FULL(79,62) - JVS(773) = B(14) -! JVS(774) = Jac_FULL(79,63) - JVS(774) = -B(181)+0.3*B(183) -! JVS(775) = Jac_FULL(79,64) - JVS(775) = B(281)-B(283) -! JVS(776) = Jac_FULL(79,65) - JVS(776) = B(29)+B(329) -! JVS(777) = Jac_FULL(79,66) - JVS(777) = 0.67*B(19)+0.275*B(243) -! JVS(778) = Jac_FULL(79,67) - JVS(778) = B(25) -! JVS(779) = Jac_FULL(79,68) - JVS(779) = 1.5*B(307)+1.5*B(309)-B(311)+B(313)+1.5*B(315) -! JVS(780) = Jac_FULL(79,69) - JVS(780) = 0.06*B(239) -! JVS(781) = Jac_FULL(79,70) - JVS(781) = 0.47*B(245)+0.47*B(249)-B(251)+0.73*B(253)+0.47*B(255) -! JVS(782) = Jac_FULL(79,71) - JVS(782) = B(225)+B(227)-B(229)+B(233)+B(235) -! JVS(783) = Jac_FULL(79,72) - JVS(783) = 2*B(11)+B(110)+B(112) -! JVS(784) = Jac_FULL(79,73) - JVS(784) = -B(89)+0.7*B(214) -! JVS(785) = Jac_FULL(79,74) - JVS(785) = -B(263)+B(265) -! JVS(786) = Jac_FULL(79,75) - JVS(786) = B(49)+B(51)+B(54)+B(61)-B(62)+B(113)+B(115)+0.25*B(117)+B(123)+0.25*B(210)+0.2*B(258)+B(302)+B(322)+B(324)& - &+0.5*B(326)+B(330)+B(332)+0.5*B(336) -! JVS(787) = Jac_FULL(79,76) - JVS(787) = -B(70)+B(102)+B(132)+B(146)+B(170)+B(190)+0.9*B(194)+0.9*B(216)+B(226)+0.47*B(246)+B(282)+0.794*B(292)+1.5& - &*B(308) -! JVS(788) = Jac_FULL(79,77) - JVS(788) = B(103)+2*B(104)-B(106)+B(136)+0.9*B(161)+B(174)+0.3*B(184)+B(234)+0.73*B(254)+B(266)+B(314) -! JVS(789) = Jac_FULL(79,78) - JVS(789) = -B(159)+0.9*B(162)+B(236)+0.47*B(256)+1.5*B(316) -! JVS(790) = Jac_FULL(79,79) - JVS(790) = -B(53)-B(56)-2*B(58)-B(63)-B(71)-B(78)-B(90)-B(107)-B(134)-B(148)-B(160)-B(172)-B(182)-B(196)-B(206)-B(218)& - &-B(230)-B(252)-B(264)-B(284)-0.206*B(296)-B(312)-B(341) -! JVS(791) = Jac_FULL(79,80) - JVS(791) = -B(79)+B(111)+B(228)+0.47*B(250)+0.794*B(294)+B(304)+1.5*B(310) -! JVS(792) = Jac_FULL(79,81) - JVS(792) = B(55)-B(57)+0.12*B(119)+0.19*B(142)+0.06*B(224)+0.06*B(240)+0.275*B(244)+B(278) -! JVS(793) = Jac_FULL(80,13) - JVS(793) = B(6)+B(82) -! JVS(794) = Jac_FULL(80,16) - JVS(794) = -B(337) -! JVS(795) = Jac_FULL(80,26) - JVS(795) = 0.33*B(9) -! JVS(796) = Jac_FULL(80,36) - JVS(796) = 0.4*B(17)+B(327) -! JVS(797) = Jac_FULL(80,39) - JVS(797) = B(85) -! JVS(798) = Jac_FULL(80,43) - JVS(798) = 0.5*B(325) -! JVS(799) = Jac_FULL(80,46) - JVS(799) = -B(279) -! JVS(800) = Jac_FULL(80,53) - JVS(800) = -B(293) -! JVS(801) = Jac_FULL(80,59) - JVS(801) = -B(289) -! JVS(802) = Jac_FULL(80,60) - JVS(802) = -B(303) -! JVS(803) = Jac_FULL(80,61) - JVS(803) = -B(143) -! JVS(804) = Jac_FULL(80,62) - JVS(804) = -B(153) -! JVS(805) = Jac_FULL(80,67) - JVS(805) = -B(299) -! JVS(806) = Jac_FULL(80,68) - JVS(806) = -B(309) -! JVS(807) = Jac_FULL(80,69) - JVS(807) = 0 -! JVS(808) = Jac_FULL(80,70) - JVS(808) = -B(249) -! JVS(809) = Jac_FULL(80,71) - JVS(809) = -B(227) -! JVS(810) = Jac_FULL(80,72) - JVS(810) = -B(110) -! JVS(811) = Jac_FULL(80,73) - JVS(811) = B(76)-B(80) -! JVS(812) = Jac_FULL(80,74) - JVS(812) = -B(261) -! JVS(813) = Jac_FULL(80,75) - JVS(813) = B(86)+0.5*B(326)+B(328) -! JVS(814) = Jac_FULL(80,76) - JVS(814) = -B(87) -! JVS(815) = Jac_FULL(80,77) - JVS(815) = 0 -! JVS(816) = Jac_FULL(80,78) - JVS(816) = 0 -! JVS(817) = Jac_FULL(80,79) - JVS(817) = -B(78) -! JVS(818) = Jac_FULL(80,80) - JVS(818) = -B(8)-B(79)-B(81)-B(88)-B(96)-B(111)-B(144)-B(154)-B(228)-B(250)-B(262)-B(280)-B(290)-B(294)-B(300)-B(304)& - &-B(310)-B(338) -! JVS(819) = Jac_FULL(80,81) - JVS(819) = B(77) -! JVS(820) = Jac_FULL(81,27) - JVS(820) = -B(118) -! JVS(821) = Jac_FULL(81,46) - JVS(821) = -B(277) -! JVS(822) = Jac_FULL(81,52) - JVS(822) = B(38)-B(40) -! JVS(823) = Jac_FULL(81,59) - JVS(823) = -0.9*B(223) -! JVS(824) = Jac_FULL(81,61) - JVS(824) = -B(141) -! JVS(825) = Jac_FULL(81,66) - JVS(825) = -0.8*B(243) -! JVS(826) = Jac_FULL(81,69) - JVS(826) = -0.8*B(239) -! JVS(827) = Jac_FULL(81,71) - JVS(827) = 0 -! JVS(828) = Jac_FULL(81,72) - JVS(828) = 0 -! JVS(829) = Jac_FULL(81,73) - JVS(829) = -B(76) -! JVS(830) = Jac_FULL(81,74) - JVS(830) = 0.25*B(263) -! JVS(831) = Jac_FULL(81,75) - JVS(831) = -B(54) -! JVS(832) = Jac_FULL(81,76) - JVS(832) = -B(72) -! JVS(833) = Jac_FULL(81,77) - JVS(833) = 0 -! JVS(834) = Jac_FULL(81,78) - JVS(834) = 0.25*B(159) -! JVS(835) = Jac_FULL(81,79) - JVS(835) = -B(56)+0.25*B(160)+0.25*B(264) -! JVS(836) = Jac_FULL(81,80) - JVS(836) = 0.89*B(8) -! JVS(837) = Jac_FULL(81,81) - JVS(837) = -B(2)-B(3)-B(41)-B(55)-B(57)-B(73)-B(77)-B(119)-B(142)-0.9*B(224)-0.8*B(240)-0.8*B(244)-B(278) - -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(8)+JVS(3)*UV(75) - JUV(2) = JVS(4)*UV(2)+JVS(5)*UV(75) - JUV(3) = JVS(6)*UV(3)+JVS(7)*UV(47) - JUV(4) = JVS(8)*UV(4)+JVS(9)*UV(75) - JUV(5) = JVS(10)*UV(5)+JVS(11)*UV(75) - JUV(6) = JVS(12)*UV(6)+JVS(13)*UV(75) - JUV(7) = JVS(14)*UV(7)+JVS(15)*UV(75) - JUV(8) = JVS(16)*UV(8)+JVS(17)*UV(16)+JVS(18)*UV(75)+JVS(19)*UV(80) - JUV(9) = JVS(20)*UV(9)+JVS(21)*UV(75)+JVS(22)*UV(79) - JUV(10) = JVS(23)*UV(10)+JVS(24)*UV(75) - JUV(11) = JVS(25)*UV(10)+JVS(26)*UV(11)+JVS(27)*UV(75) - JUV(12) = JVS(28)*UV(12)+JVS(29)*UV(30)+JVS(30)*UV(76) - JUV(13) = JVS(31)*UV(13)+JVS(32)*UV(73)+JVS(33)*UV(80) - JUV(14) = JVS(34)*UV(11)+JVS(35)*UV(14)+JVS(36)*UV(73)+JVS(37)*UV(75) - JUV(15) = JVS(38)*UV(15)+JVS(39)*UV(68)+JVS(40)*UV(75)+JVS(41)*UV(79) - JUV(16) = JVS(42)*UV(16)+JVS(43)*UV(75)+JVS(44)*UV(80) - JUV(17) = JVS(45)*UV(17)+JVS(46)*UV(56)+JVS(47)*UV(75)+JVS(48)*UV(77) - JUV(18) = JVS(49)*UV(18)+JVS(50)*UV(75)+JVS(51)*UV(77)+JVS(52)*UV(79) - JUV(19) = JVS(53)*UV(19)+JVS(54)*UV(40)+JVS(55)*UV(47)+JVS(56)*UV(72)+JVS(57)*UV(75) - JUV(20) = JVS(58)*UV(20)+JVS(59)*UV(70)+JVS(60)*UV(75)+JVS(61)*UV(79) - JUV(21) = JVS(62)*UV(21)+JVS(63)*UV(56)+JVS(64)*UV(75)+JVS(65)*UV(79) - JUV(22) = JVS(66)*UV(22)+JVS(67)*UV(57)+JVS(68)*UV(75)+JVS(69)*UV(79) - JUV(23) = JVS(70)*UV(23)+JVS(71)*UV(63)+JVS(72)*UV(75)+JVS(73)*UV(79) - JUV(24) = JVS(74)*UV(6)+JVS(75)*UV(24)+JVS(76)*UV(75)+JVS(77)*UV(76) - JUV(25) = JVS(78)*UV(25)+JVS(79)*UV(49)+JVS(80)*UV(75)+JVS(81)*UV(79) - JUV(26) = JVS(82)*UV(26)+JVS(83)*UV(73)+JVS(84)*UV(75)+JVS(85)*UV(79) - JUV(27) = JVS(86)*UV(27)+JVS(87)*UV(75)+JVS(88)*UV(81) - JUV(28) = JVS(89)*UV(28)+JVS(90)*UV(60)+JVS(91)*UV(71)+JVS(92)*UV(75)+JVS(93)*UV(76)+JVS(94)*UV(77)+JVS(95)*UV(78)& - &+JVS(96)*UV(80) - JUV(29) = JVS(97)*UV(29)+JVS(98)*UV(55)+JVS(99)*UV(61)+JVS(100)*UV(75)+JVS(101)*UV(76)+JVS(102)*UV(80) - JUV(30) = JVS(103)*UV(27)+JVS(104)*UV(30)+JVS(105)*UV(75)+JVS(106)*UV(76) - JUV(31) = JVS(108)*UV(31)+JVS(109)*UV(44)+JVS(110)*UV(75)+JVS(111)*UV(79) - JUV(32) = JVS(112)*UV(32)+JVS(113)*UV(74)+JVS(114)*UV(75)+JVS(115)*UV(78)+JVS(116)*UV(79) - JUV(33) = JVS(117)*UV(33)+JVS(118)*UV(48)+JVS(119)*UV(55)+JVS(120)*UV(75)+JVS(121)*UV(76) - JUV(34) = JVS(122)*UV(27)+JVS(123)*UV(34)+JVS(124)*UV(59)+JVS(125)*UV(61)+JVS(126)*UV(74)+JVS(127)*UV(75)+JVS(128)& - &*UV(77)+JVS(129)*UV(78)+JVS(130)*UV(79)+JVS(131)*UV(81) - JUV(35) = JVS(132)*UV(35)+JVS(133)*UV(50)+JVS(134)*UV(75)+JVS(135)*UV(79) - JUV(36) = JVS(136)*UV(36)+JVS(137)*UV(73)+JVS(138)*UV(75)+JVS(139)*UV(78) - JUV(37) = JVS(140)*UV(31)+JVS(141)*UV(37)+JVS(142)*UV(44)+JVS(143)*UV(45)+JVS(144)*UV(54)+JVS(145)*UV(75)+JVS(146)& - &*UV(76) - JUV(38) = JVS(148)*UV(38)+JVS(149)*UV(64)+JVS(150)*UV(75)+JVS(151)*UV(79) - JUV(39) = JVS(152)*UV(13)+JVS(153)*UV(16)+JVS(154)*UV(39)+JVS(155)*UV(62)+JVS(156)*UV(67)+JVS(157)*UV(72)+JVS(158)& - &*UV(73)+JVS(159)*UV(75)+JVS(160)*UV(80) - JUV(40) = JVS(161)*UV(40)+JVS(162)*UV(47)+JVS(163)*UV(61)+JVS(164)*UV(75)+JVS(165)*UV(81) - JUV(41) = JVS(166)*UV(41)+JVS(167)*UV(56)+JVS(168)*UV(63)+JVS(169)*UV(68)+JVS(170)*UV(70)+JVS(171)*UV(71)+JVS(172)& - &*UV(75)+JVS(173)*UV(77) - JUV(42) = JVS(174)*UV(42)+JVS(175)*UV(71)+JVS(176)*UV(75)+JVS(177)*UV(79) - JUV(43) = JVS(178)*UV(43)+JVS(179)*UV(73)+JVS(180)*UV(74)+JVS(181)*UV(75) - JUV(44) = JVS(182)*UV(10)+JVS(183)*UV(31)+JVS(184)*UV(44)+JVS(185)*UV(75)+JVS(186)*UV(76)+JVS(187)*UV(79) - JUV(45) = JVS(188)*UV(14)+JVS(189)*UV(31)+JVS(190)*UV(44)+JVS(191)*UV(45)+JVS(192)*UV(73)+JVS(194)*UV(76) - JUV(46) = JVS(196)*UV(46)+JVS(197)*UV(75)+JVS(198)*UV(80)+JVS(199)*UV(81) - JUV(47) = JVS(200)*UV(3)+JVS(201)*UV(19)+JVS(202)*UV(40)+JVS(203)*UV(47)+JVS(207)*UV(81) - JUV(48) = JVS(208)*UV(48)+JVS(209)*UV(55)+JVS(210)*UV(75)+JVS(211)*UV(79) - JUV(49) = JVS(212)*UV(25)+JVS(213)*UV(33)+JVS(215)*UV(49)+JVS(217)*UV(75)+JVS(218)*UV(76)+JVS(219)*UV(79) - JUV(50) = JVS(220)*UV(35)+JVS(221)*UV(50)+JVS(222)*UV(61)+JVS(223)*UV(75)+JVS(224)*UV(76)+JVS(225)*UV(79) - JUV(51) = JVS(226)*UV(22)+JVS(227)*UV(24)+JVS(228)*UV(38)+JVS(229)*UV(48)+JVS(230)*UV(51)+JVS(231)*UV(55)+JVS(232)& - &*UV(57)+JVS(233)*UV(64)+JVS(234)*UV(75)+JVS(235)*UV(76)+JVS(236)*UV(77) - JUV(52) = JVS(238)*UV(47)+JVS(239)*UV(52)+JVS(242)*UV(73)+JVS(243)*UV(75)+JVS(244)*UV(79)+JVS(245)*UV(81) - JUV(53) = JVS(246)*UV(53)+JVS(247)*UV(59)+JVS(248)*UV(76)+JVS(249)*UV(79)+JVS(250)*UV(80) - JUV(54) = JVS(251)*UV(12)+JVS(253)*UV(54)+JVS(254)*UV(68)+JVS(255)*UV(70)+JVS(256)*UV(75)+JVS(257)*UV(76)+JVS(258)& - &*UV(77)+JVS(259)*UV(78)+JVS(260)*UV(80) - JUV(55) = JVS(262)*UV(7)+JVS(263)*UV(48)+JVS(264)*UV(55)+JVS(265)*UV(75)+JVS(266)*UV(76)+JVS(267)*UV(79) - JUV(56) = JVS(268)*UV(4)+JVS(269)*UV(21)+JVS(270)*UV(33)+JVS(273)*UV(56)+JVS(274)*UV(75)+JVS(275)*UV(76)+JVS(276)& - &*UV(77)+JVS(277)*UV(79) - JUV(57) = JVS(278)*UV(5)+JVS(279)*UV(22)+JVS(280)*UV(57)+JVS(281)*UV(75)+JVS(282)*UV(76)+JVS(283)*UV(77)+JVS(284)& - &*UV(79) - JUV(58) = JVS(285)*UV(27)+JVS(286)*UV(37)+JVS(288)*UV(45)+JVS(289)*UV(54)+JVS(290)*UV(58)+JVS(291)*UV(59)+JVS(292)& - &*UV(60)+JVS(293)*UV(61)+JVS(294)*UV(62)+JVS(295)*UV(66)+JVS(296)*UV(67)+JVS(297)*UV(68)+JVS(298)*UV(69)& - &+JVS(299)*UV(70)+JVS(300)*UV(72)+JVS(302)*UV(75)+JVS(303)*UV(76)+JVS(304)*UV(77)+JVS(305)*UV(78)+JVS(307)& - &*UV(80)+JVS(308)*UV(81) - JUV(59) = JVS(309)*UV(59)+JVS(310)*UV(75)+JVS(311)*UV(80)+JVS(312)*UV(81) - JUV(60) = JVS(313)*UV(53)+JVS(315)*UV(60)+JVS(316)*UV(70)+JVS(317)*UV(71)+JVS(318)*UV(75)+JVS(319)*UV(76)+JVS(320)& - &*UV(79)+JVS(321)*UV(80) - JUV(61) = JVS(323)*UV(59)+JVS(324)*UV(61)+JVS(325)*UV(69)+JVS(326)*UV(75)+JVS(327)*UV(80)+JVS(328)*UV(81) - JUV(62) = JVS(329)*UV(17)+JVS(330)*UV(21)+JVS(331)*UV(24)+JVS(332)*UV(25)+JVS(333)*UV(35)+JVS(334)*UV(48)+JVS(335)& - &*UV(49)+JVS(336)*UV(50)+JVS(337)*UV(55)+JVS(338)*UV(56)+JVS(339)*UV(57)+JVS(340)*UV(61)+JVS(341)*UV(62)& - &+JVS(342)*UV(69)+JVS(343)*UV(75)+JVS(344)*UV(76)+JVS(345)*UV(77)+JVS(347)*UV(80)+JVS(348)*UV(81) - JUV(63) = JVS(349)*UV(23)+JVS(350)*UV(51)+JVS(353)*UV(63)+JVS(355)*UV(75)+JVS(356)*UV(76)+JVS(357)*UV(77)+JVS(358)& - &*UV(79) - JUV(64) = JVS(359)*UV(38)+JVS(360)*UV(46)+JVS(361)*UV(64)+JVS(362)*UV(75)+JVS(363)*UV(76)+JVS(364)*UV(79)+JVS(365)& - &*UV(80) - JUV(65) = JVS(367)*UV(35)+JVS(368)*UV(43)+JVS(371)*UV(63)+JVS(373)*UV(65)+JVS(374)*UV(68)+JVS(376)*UV(70)+JVS(379)& - &*UV(75)+JVS(380)*UV(76)+JVS(381)*UV(77)+JVS(382)*UV(78)+JVS(384)*UV(80) - JUV(66) = JVS(386)*UV(38)+JVS(387)*UV(42)+JVS(388)*UV(46)+JVS(389)*UV(53)+JVS(390)*UV(59)+JVS(391)*UV(64)+JVS(392)& - &*UV(66)+JVS(393)*UV(71)+JVS(394)*UV(75)+JVS(395)*UV(76)+JVS(396)*UV(77)+JVS(397)*UV(78)+JVS(398)*UV(79)& - &+JVS(399)*UV(80)+JVS(400)*UV(81) - JUV(67) = JVS(401)*UV(29)+JVS(402)*UV(31)+JVS(403)*UV(44)+JVS(404)*UV(45)+JVS(407)*UV(63)+JVS(409)*UV(65)+JVS(410)& - &*UV(66)+JVS(411)*UV(67)+JVS(412)*UV(68)+JVS(413)*UV(69)+JVS(414)*UV(70)+JVS(418)*UV(75)+JVS(419)*UV(76)& - &+JVS(420)*UV(77)+JVS(421)*UV(78)+JVS(423)*UV(80)+JVS(424)*UV(81) - JUV(68) = JVS(425)*UV(15)+JVS(426)*UV(28)+JVS(427)*UV(42)+JVS(429)*UV(68)+JVS(432)*UV(75)+JVS(433)*UV(76)+JVS(434)& - &*UV(77)+JVS(435)*UV(78)+JVS(436)*UV(79)+JVS(437)*UV(80) - JUV(69) = JVS(439)*UV(38)+JVS(440)*UV(42)+JVS(441)*UV(46)+JVS(442)*UV(53)+JVS(443)*UV(59)+JVS(444)*UV(64)+JVS(445)& - &*UV(69)+JVS(446)*UV(71)+JVS(447)*UV(75)+JVS(448)*UV(76)+JVS(449)*UV(77)+JVS(450)*UV(78)+JVS(451)*UV(79)& - &+JVS(452)*UV(80)+JVS(453)*UV(81) - JUV(70) = JVS(454)*UV(20)+JVS(455)*UV(66)+JVS(456)*UV(69)+JVS(457)*UV(70)+JVS(459)*UV(75)+JVS(460)*UV(76)+JVS(461)& - &*UV(77)+JVS(462)*UV(78)+JVS(463)*UV(79)+JVS(464)*UV(80) - JUV(71) = JVS(466)*UV(42)+JVS(467)*UV(59)+JVS(468)*UV(71)+JVS(469)*UV(75)+JVS(470)*UV(76)+JVS(471)*UV(77)+JVS(472)& - &*UV(78)+JVS(473)*UV(79)+JVS(474)*UV(80) - JUV(72) = JVS(476)*UV(12)+JVS(477)*UV(18)+JVS(478)*UV(23)+JVS(479)*UV(24)+JVS(480)*UV(27)+JVS(482)*UV(32)+JVS(483)& - &*UV(35)+JVS(484)*UV(36)+JVS(485)*UV(40)+JVS(486)*UV(41)+JVS(487)*UV(42)+JVS(488)*UV(43)+JVS(489)*UV(47)& - &+JVS(490)*UV(48)+JVS(491)*UV(50)+JVS(492)*UV(53)+JVS(493)*UV(54)+JVS(494)*UV(55)+JVS(495)*UV(56)+JVS(496)& - &*UV(57)+JVS(497)*UV(59)+JVS(498)*UV(60)+JVS(499)*UV(61)+JVS(500)*UV(63)+JVS(502)*UV(65)+JVS(503)*UV(66)& - &+JVS(504)*UV(68)+JVS(505)*UV(69)+JVS(506)*UV(70)+JVS(507)*UV(71)+JVS(508)*UV(72)+JVS(510)*UV(74)+JVS(511)& - &*UV(75)+JVS(512)*UV(76)+JVS(513)*UV(77)+JVS(514)*UV(78)+JVS(515)*UV(79)+JVS(516)*UV(80)+JVS(517)*UV(81) - JUV(73) = JVS(518)*UV(13)+JVS(519)*UV(14)+JVS(520)*UV(24)+JVS(521)*UV(26)+JVS(522)*UV(29)+JVS(523)*UV(30)+JVS(524)& - &*UV(36)+JVS(525)*UV(39)+JVS(526)*UV(43)+JVS(527)*UV(44)+JVS(528)*UV(46)+JVS(529)*UV(49)+JVS(530)*UV(50)& - &+JVS(531)*UV(52)+JVS(532)*UV(53)+JVS(533)*UV(55)+JVS(534)*UV(56)+JVS(535)*UV(57)+JVS(537)*UV(60)+JVS(540)& - &*UV(63)+JVS(541)*UV(64)+JVS(543)*UV(68)+JVS(545)*UV(70)+JVS(546)*UV(71)+JVS(548)*UV(73)+JVS(549)*UV(74)& - &+JVS(550)*UV(75)+JVS(551)*UV(76)+JVS(552)*UV(77)+JVS(553)*UV(78)+JVS(554)*UV(79)+JVS(555)*UV(80)+JVS(556)& - &*UV(81) - JUV(74) = JVS(557)*UV(20)+JVS(558)*UV(43)+JVS(559)*UV(59)+JVS(560)*UV(66)+JVS(563)*UV(73)+JVS(564)*UV(74)+JVS(565)& - &*UV(75)+JVS(566)*UV(76)+JVS(567)*UV(77)+JVS(568)*UV(78)+JVS(569)*UV(79)+JVS(570)*UV(80)+JVS(571)*UV(81) - JUV(75) = JVS(572)*UV(2)+JVS(573)*UV(4)+JVS(574)*UV(5)+JVS(575)*UV(6)+JVS(576)*UV(7)+JVS(577)*UV(8)+JVS(578)*UV(9)& - &+JVS(579)*UV(10)+JVS(580)*UV(11)+JVS(581)*UV(15)+JVS(582)*UV(16)+JVS(583)*UV(17)+JVS(584)*UV(18)+JVS(585)& - &*UV(19)+JVS(586)*UV(20)+JVS(587)*UV(21)+JVS(588)*UV(22)+JVS(589)*UV(23)+JVS(590)*UV(25)+JVS(591)*UV(26)& - &+JVS(592)*UV(27)+JVS(593)*UV(28)+JVS(594)*UV(29)+JVS(595)*UV(31)+JVS(596)*UV(32)+JVS(597)*UV(33)+JVS(598)& - &*UV(34)+JVS(599)*UV(35)+JVS(600)*UV(36)+JVS(601)*UV(37)+JVS(602)*UV(38)+JVS(603)*UV(39)+JVS(604)*UV(40)& - &+JVS(605)*UV(41)+JVS(606)*UV(42)+JVS(607)*UV(43)+JVS(610)*UV(46)+JVS(611)*UV(47)+JVS(612)*UV(48)+JVS(615)& - &*UV(51)+JVS(616)*UV(52)+JVS(617)*UV(54)+JVS(621)*UV(58)+JVS(622)*UV(59)+JVS(623)*UV(60)+JVS(624)*UV(61)& - &+JVS(625)*UV(62)+JVS(628)*UV(65)+JVS(629)*UV(66)+JVS(630)*UV(67)+JVS(632)*UV(69)+JVS(635)*UV(72)+JVS(636)& - &*UV(73)+JVS(638)*UV(75)+JVS(639)*UV(76)+JVS(642)*UV(79)+JVS(643)*UV(80)+JVS(644)*UV(81) - JUV(76) = JVS(645)*UV(3)+JVS(646)*UV(24)+JVS(647)*UV(30)+JVS(648)*UV(44)+JVS(649)*UV(47)+JVS(650)*UV(49)+JVS(651)& - &*UV(50)+JVS(652)*UV(52)+JVS(653)*UV(53)+JVS(654)*UV(55)+JVS(655)*UV(56)+JVS(656)*UV(57)+JVS(659)*UV(63)& - &+JVS(660)*UV(64)+JVS(661)*UV(68)+JVS(663)*UV(70)+JVS(664)*UV(71)+JVS(666)*UV(73)+JVS(667)*UV(74)+JVS(669)& - &*UV(76)+JVS(670)*UV(77)+JVS(671)*UV(78)+JVS(672)*UV(79)+JVS(673)*UV(80)+JVS(674)*UV(81) - JUV(77) = JVS(675)*UV(18)+JVS(676)*UV(32)+JVS(677)*UV(34)+JVS(678)*UV(36)+JVS(679)*UV(40)+JVS(680)*UV(47)+JVS(681)& - &*UV(51)+JVS(683)*UV(56)+JVS(684)*UV(57)+JVS(686)*UV(61)+JVS(687)*UV(62)+JVS(688)*UV(63)+JVS(690)*UV(68)& - &+JVS(691)*UV(69)+JVS(692)*UV(70)+JVS(693)*UV(71)+JVS(696)*UV(74)+JVS(697)*UV(75)+JVS(698)*UV(76)+JVS(699)& - &*UV(77)+JVS(700)*UV(78)+JVS(701)*UV(79)+JVS(703)*UV(81) - JUV(78) = JVS(704)*UV(23)+JVS(705)*UV(25)+JVS(706)*UV(32)+JVS(707)*UV(33)+JVS(708)*UV(36)+JVS(709)*UV(45)+JVS(711)& - &*UV(49)+JVS(712)*UV(51)+JVS(715)*UV(62)+JVS(716)*UV(63)+JVS(718)*UV(65)+JVS(719)*UV(66)+JVS(720)*UV(67)& - &+JVS(721)*UV(68)+JVS(722)*UV(69)+JVS(723)*UV(70)+JVS(724)*UV(71)+JVS(725)*UV(73)+JVS(726)*UV(74)+JVS(727)& - &*UV(75)+JVS(728)*UV(76)+JVS(729)*UV(77)+JVS(730)*UV(78)+JVS(731)*UV(79)+JVS(732)*UV(80) - JUV(79) = JVS(734)*UV(9)+JVS(735)*UV(10)+JVS(736)*UV(12)+JVS(737)*UV(14)+JVS(738)*UV(16)+JVS(739)*UV(17)+JVS(740)& - &*UV(18)+JVS(741)*UV(19)+JVS(742)*UV(20)+JVS(743)*UV(21)+JVS(744)*UV(22)+JVS(745)*UV(24)+JVS(746)*UV(26)& - &+JVS(747)*UV(27)+JVS(749)*UV(35)+JVS(750)*UV(37)+JVS(751)*UV(38)+JVS(752)*UV(40)+JVS(753)*UV(41)+JVS(754)& - &*UV(42)+JVS(755)*UV(43)+JVS(756)*UV(44)+JVS(757)*UV(45)+JVS(758)*UV(46)+JVS(759)*UV(47)+JVS(760)*UV(48)& - &+JVS(761)*UV(49)+JVS(762)*UV(50)+JVS(763)*UV(52)+JVS(764)*UV(53)+JVS(765)*UV(54)+JVS(766)*UV(55)+JVS(767)& - &*UV(56)+JVS(768)*UV(57)+JVS(769)*UV(58)+JVS(770)*UV(59)+JVS(771)*UV(60)+JVS(772)*UV(61)+JVS(773)*UV(62)& - &+JVS(774)*UV(63)+JVS(775)*UV(64)+JVS(776)*UV(65)+JVS(777)*UV(66)+JVS(778)*UV(67)+JVS(779)*UV(68)+JVS(780)& - &*UV(69)+JVS(781)*UV(70)+JVS(782)*UV(71)+JVS(783)*UV(72)+JVS(784)*UV(73)+JVS(785)*UV(74)+JVS(786)*UV(75)& - &+JVS(787)*UV(76)+JVS(788)*UV(77)+JVS(789)*UV(78)+JVS(790)*UV(79)+JVS(791)*UV(80)+JVS(792)*UV(81) - JUV(80) = JVS(793)*UV(13)+JVS(794)*UV(16)+JVS(795)*UV(26)+JVS(796)*UV(36)+JVS(797)*UV(39)+JVS(798)*UV(43)+JVS(799)& - &*UV(46)+JVS(800)*UV(53)+JVS(801)*UV(59)+JVS(802)*UV(60)+JVS(803)*UV(61)+JVS(804)*UV(62)+JVS(805)*UV(67)& - &+JVS(806)*UV(68)+JVS(808)*UV(70)+JVS(809)*UV(71)+JVS(810)*UV(72)+JVS(811)*UV(73)+JVS(812)*UV(74)+JVS(813)& - &*UV(75)+JVS(814)*UV(76)+JVS(817)*UV(79)+JVS(818)*UV(80)+JVS(819)*UV(81) - JUV(81) = JVS(820)*UV(27)+JVS(821)*UV(46)+JVS(822)*UV(52)+JVS(823)*UV(59)+JVS(824)*UV(61)+JVS(825)*UV(66)+JVS(826)& - &*UV(69)+JVS(829)*UV(73)+JVS(830)*UV(74)+JVS(831)*UV(75)+JVS(832)*UV(76)+JVS(834)*UV(78)+JVS(835)*UV(79)& - &+JVS(836)*UV(80)+JVS(837)*UV(81) - -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(4)*UV(2)+JVS(572)*UV(75) - JTUV(3) = JVS(6)*UV(3)+JVS(200)*UV(47)+JVS(645)*UV(76) - JTUV(4) = JVS(8)*UV(4)+JVS(268)*UV(56)+JVS(573)*UV(75) - JTUV(5) = JVS(10)*UV(5)+JVS(278)*UV(57)+JVS(574)*UV(75) - JTUV(6) = JVS(12)*UV(6)+JVS(74)*UV(24)+JVS(575)*UV(75) - JTUV(7) = JVS(14)*UV(7)+JVS(262)*UV(55)+JVS(576)*UV(75) - JTUV(8) = JVS(2)*UV(1)+JVS(16)*UV(8)+JVS(577)*UV(75) - JTUV(9) = JVS(20)*UV(9)+JVS(578)*UV(75)+JVS(734)*UV(79) - JTUV(10) = JVS(23)*UV(10)+JVS(25)*UV(11)+JVS(182)*UV(44)+JVS(579)*UV(75)+JVS(735)*UV(79) - JTUV(11) = JVS(26)*UV(11)+JVS(34)*UV(14)+JVS(580)*UV(75) - JTUV(12) = JVS(28)*UV(12)+JVS(251)*UV(54)+JVS(476)*UV(72)+JVS(736)*UV(79) - JTUV(13) = JVS(31)*UV(13)+JVS(152)*UV(39)+JVS(518)*UV(73)+JVS(793)*UV(80) - JTUV(14) = JVS(35)*UV(14)+JVS(188)*UV(45)+JVS(519)*UV(73)+JVS(737)*UV(79) - JTUV(15) = JVS(38)*UV(15)+JVS(425)*UV(68)+JVS(581)*UV(75) - JTUV(16) = JVS(17)*UV(8)+JVS(42)*UV(16)+JVS(153)*UV(39)+JVS(582)*UV(75)+JVS(738)*UV(79)+JVS(794)*UV(80) - JTUV(17) = JVS(45)*UV(17)+JVS(329)*UV(62)+JVS(583)*UV(75)+JVS(739)*UV(79) - JTUV(18) = JVS(49)*UV(18)+JVS(477)*UV(72)+JVS(584)*UV(75)+JVS(675)*UV(77)+JVS(740)*UV(79) - JTUV(19) = JVS(53)*UV(19)+JVS(201)*UV(47)+JVS(585)*UV(75)+JVS(741)*UV(79) - JTUV(20) = JVS(58)*UV(20)+JVS(454)*UV(70)+JVS(557)*UV(74)+JVS(586)*UV(75)+JVS(742)*UV(79) - JTUV(21) = JVS(62)*UV(21)+JVS(269)*UV(56)+JVS(330)*UV(62)+JVS(587)*UV(75)+JVS(743)*UV(79) - JTUV(22) = JVS(66)*UV(22)+JVS(226)*UV(51)+JVS(279)*UV(57)+JVS(588)*UV(75)+JVS(744)*UV(79) - JTUV(23) = JVS(70)*UV(23)+JVS(349)*UV(63)+JVS(478)*UV(72)+JVS(589)*UV(75)+JVS(704)*UV(78) - JTUV(24) = JVS(75)*UV(24)+JVS(227)*UV(51)+JVS(331)*UV(62)+JVS(479)*UV(72)+JVS(520)*UV(73)+JVS(646)*UV(76)+JVS(745)& - &*UV(79) - JTUV(25) = JVS(78)*UV(25)+JVS(212)*UV(49)+JVS(332)*UV(62)+JVS(590)*UV(75)+JVS(705)*UV(78) - JTUV(26) = JVS(82)*UV(26)+JVS(521)*UV(73)+JVS(591)*UV(75)+JVS(746)*UV(79)+JVS(795)*UV(80) - JTUV(27) = JVS(86)*UV(27)+JVS(103)*UV(30)+JVS(122)*UV(34)+JVS(285)*UV(58)+JVS(480)*UV(72)+JVS(592)*UV(75)+JVS(747)& - &*UV(79)+JVS(820)*UV(81) - JTUV(28) = JVS(89)*UV(28)+JVS(426)*UV(68)+JVS(593)*UV(75) - JTUV(29) = JVS(97)*UV(29)+JVS(401)*UV(67)+JVS(522)*UV(73)+JVS(594)*UV(75) - JTUV(30) = JVS(29)*UV(12)+JVS(104)*UV(30)+JVS(523)*UV(73)+JVS(647)*UV(76) - JTUV(31) = JVS(108)*UV(31)+JVS(140)*UV(37)+JVS(183)*UV(44)+JVS(189)*UV(45)+JVS(402)*UV(67)+JVS(595)*UV(75) - JTUV(32) = JVS(112)*UV(32)+JVS(482)*UV(72)+JVS(596)*UV(75)+JVS(676)*UV(77)+JVS(706)*UV(78) - JTUV(33) = JVS(117)*UV(33)+JVS(213)*UV(49)+JVS(270)*UV(56)+JVS(597)*UV(75)+JVS(707)*UV(78) - JTUV(34) = JVS(123)*UV(34)+JVS(598)*UV(75)+JVS(677)*UV(77) - JTUV(35) = JVS(132)*UV(35)+JVS(220)*UV(50)+JVS(333)*UV(62)+JVS(367)*UV(65)+JVS(483)*UV(72)+JVS(599)*UV(75)+JVS(749)& - &*UV(79) - JTUV(36) = JVS(136)*UV(36)+JVS(484)*UV(72)+JVS(524)*UV(73)+JVS(600)*UV(75)+JVS(678)*UV(77)+JVS(708)*UV(78)+JVS(796)& - &*UV(80) - JTUV(37) = JVS(141)*UV(37)+JVS(286)*UV(58)+JVS(601)*UV(75)+JVS(750)*UV(79) - JTUV(38) = JVS(148)*UV(38)+JVS(228)*UV(51)+JVS(359)*UV(64)+JVS(386)*UV(66)+JVS(439)*UV(69)+JVS(602)*UV(75)+JVS(751)& - &*UV(79) - JTUV(39) = JVS(154)*UV(39)+JVS(525)*UV(73)+JVS(603)*UV(75)+JVS(797)*UV(80) - JTUV(40) = JVS(54)*UV(19)+JVS(161)*UV(40)+JVS(202)*UV(47)+JVS(485)*UV(72)+JVS(604)*UV(75)+JVS(679)*UV(77)+JVS(752)& - &*UV(79) - JTUV(41) = JVS(166)*UV(41)+JVS(486)*UV(72)+JVS(605)*UV(75)+JVS(753)*UV(79) - JTUV(42) = JVS(174)*UV(42)+JVS(387)*UV(66)+JVS(427)*UV(68)+JVS(440)*UV(69)+JVS(466)*UV(71)+JVS(487)*UV(72)+JVS(606)& - &*UV(75)+JVS(754)*UV(79) - JTUV(43) = JVS(178)*UV(43)+JVS(368)*UV(65)+JVS(488)*UV(72)+JVS(526)*UV(73)+JVS(558)*UV(74)+JVS(607)*UV(75)+JVS(755)& - &*UV(79)+JVS(798)*UV(80) - JTUV(44) = JVS(109)*UV(31)+JVS(142)*UV(37)+JVS(184)*UV(44)+JVS(190)*UV(45)+JVS(403)*UV(67)+JVS(527)*UV(73)+JVS(648)& - &*UV(76)+JVS(756)*UV(79) - JTUV(45) = JVS(143)*UV(37)+JVS(191)*UV(45)+JVS(288)*UV(58)+JVS(404)*UV(67)+JVS(709)*UV(78)+JVS(757)*UV(79) - JTUV(46) = JVS(196)*UV(46)+JVS(360)*UV(64)+JVS(388)*UV(66)+JVS(441)*UV(69)+JVS(528)*UV(73)+JVS(610)*UV(75)+JVS(758)& - &*UV(79)+JVS(799)*UV(80)+JVS(821)*UV(81) - JTUV(47) = JVS(7)*UV(3)+JVS(55)*UV(19)+JVS(162)*UV(40)+JVS(203)*UV(47)+JVS(238)*UV(52)+JVS(489)*UV(72)+JVS(611)*UV(75)& - &+JVS(649)*UV(76)+JVS(680)*UV(77)+JVS(759)*UV(79) - JTUV(48) = JVS(118)*UV(33)+JVS(208)*UV(48)+JVS(229)*UV(51)+JVS(263)*UV(55)+JVS(334)*UV(62)+JVS(490)*UV(72)+JVS(612)& - &*UV(75)+JVS(760)*UV(79) - JTUV(49) = JVS(79)*UV(25)+JVS(215)*UV(49)+JVS(335)*UV(62)+JVS(529)*UV(73)+JVS(650)*UV(76)+JVS(711)*UV(78)+JVS(761)& - &*UV(79) - JTUV(50) = JVS(133)*UV(35)+JVS(221)*UV(50)+JVS(336)*UV(62)+JVS(491)*UV(72)+JVS(530)*UV(73)+JVS(651)*UV(76)+JVS(762)& - &*UV(79) - JTUV(51) = JVS(230)*UV(51)+JVS(350)*UV(63)+JVS(615)*UV(75)+JVS(681)*UV(77)+JVS(712)*UV(78) - JTUV(52) = JVS(239)*UV(52)+JVS(531)*UV(73)+JVS(616)*UV(75)+JVS(652)*UV(76)+JVS(763)*UV(79)+JVS(822)*UV(81) - JTUV(53) = JVS(246)*UV(53)+JVS(313)*UV(60)+JVS(389)*UV(66)+JVS(442)*UV(69)+JVS(492)*UV(72)+JVS(532)*UV(73)+JVS(653)& - &*UV(76)+JVS(764)*UV(79)+JVS(800)*UV(80) - JTUV(54) = JVS(144)*UV(37)+JVS(253)*UV(54)+JVS(289)*UV(58)+JVS(493)*UV(72)+JVS(617)*UV(75)+JVS(765)*UV(79) - JTUV(55) = JVS(98)*UV(29)+JVS(119)*UV(33)+JVS(209)*UV(48)+JVS(231)*UV(51)+JVS(264)*UV(55)+JVS(337)*UV(62)+JVS(494)& - &*UV(72)+JVS(533)*UV(73)+JVS(654)*UV(76)+JVS(766)*UV(79) - JTUV(56) = JVS(46)*UV(17)+JVS(63)*UV(21)+JVS(167)*UV(41)+JVS(273)*UV(56)+JVS(338)*UV(62)+JVS(495)*UV(72)+JVS(534)& - &*UV(73)+JVS(655)*UV(76)+JVS(683)*UV(77)+JVS(767)*UV(79) - JTUV(57) = JVS(67)*UV(22)+JVS(232)*UV(51)+JVS(280)*UV(57)+JVS(339)*UV(62)+JVS(496)*UV(72)+JVS(535)*UV(73)+JVS(656)& - &*UV(76)+JVS(684)*UV(77)+JVS(768)*UV(79) - JTUV(58) = JVS(290)*UV(58)+JVS(621)*UV(75)+JVS(769)*UV(79) - JTUV(59) = JVS(124)*UV(34)+JVS(247)*UV(53)+JVS(291)*UV(58)+JVS(309)*UV(59)+JVS(323)*UV(61)+JVS(390)*UV(66)+JVS(443)& - &*UV(69)+JVS(467)*UV(71)+JVS(497)*UV(72)+JVS(559)*UV(74)+JVS(622)*UV(75)+JVS(770)*UV(79)+JVS(801)*UV(80)& - &+JVS(823)*UV(81) - JTUV(60) = JVS(90)*UV(28)+JVS(292)*UV(58)+JVS(315)*UV(60)+JVS(498)*UV(72)+JVS(537)*UV(73)+JVS(623)*UV(75)+JVS(771)& - &*UV(79)+JVS(802)*UV(80) - JTUV(61) = JVS(99)*UV(29)+JVS(125)*UV(34)+JVS(163)*UV(40)+JVS(222)*UV(50)+JVS(293)*UV(58)+JVS(324)*UV(61)+JVS(340)& - &*UV(62)+JVS(499)*UV(72)+JVS(624)*UV(75)+JVS(686)*UV(77)+JVS(772)*UV(79)+JVS(803)*UV(80)+JVS(824)*UV(81) - JTUV(62) = JVS(155)*UV(39)+JVS(294)*UV(58)+JVS(341)*UV(62)+JVS(625)*UV(75)+JVS(687)*UV(77)+JVS(715)*UV(78)+JVS(773)& - &*UV(79)+JVS(804)*UV(80) - JTUV(63) = JVS(71)*UV(23)+JVS(168)*UV(41)+JVS(353)*UV(63)+JVS(371)*UV(65)+JVS(407)*UV(67)+JVS(500)*UV(72)+JVS(540)& - &*UV(73)+JVS(659)*UV(76)+JVS(688)*UV(77)+JVS(716)*UV(78)+JVS(774)*UV(79) - JTUV(64) = JVS(149)*UV(38)+JVS(233)*UV(51)+JVS(361)*UV(64)+JVS(391)*UV(66)+JVS(444)*UV(69)+JVS(541)*UV(73)+JVS(660)& - &*UV(76)+JVS(775)*UV(79) - JTUV(65) = JVS(373)*UV(65)+JVS(409)*UV(67)+JVS(502)*UV(72)+JVS(628)*UV(75)+JVS(718)*UV(78)+JVS(776)*UV(79) - JTUV(66) = JVS(295)*UV(58)+JVS(392)*UV(66)+JVS(410)*UV(67)+JVS(455)*UV(70)+JVS(503)*UV(72)+JVS(560)*UV(74)+JVS(629)& - &*UV(75)+JVS(719)*UV(78)+JVS(777)*UV(79)+JVS(825)*UV(81) - JTUV(67) = JVS(156)*UV(39)+JVS(296)*UV(58)+JVS(411)*UV(67)+JVS(630)*UV(75)+JVS(720)*UV(78)+JVS(778)*UV(79)+JVS(805)& - &*UV(80) - JTUV(68) = JVS(39)*UV(15)+JVS(169)*UV(41)+JVS(254)*UV(54)+JVS(297)*UV(58)+JVS(374)*UV(65)+JVS(412)*UV(67)+JVS(429)& - &*UV(68)+JVS(504)*UV(72)+JVS(543)*UV(73)+JVS(661)*UV(76)+JVS(690)*UV(77)+JVS(721)*UV(78)+JVS(779)*UV(79)& - &+JVS(806)*UV(80) - JTUV(69) = JVS(298)*UV(58)+JVS(325)*UV(61)+JVS(342)*UV(62)+JVS(413)*UV(67)+JVS(445)*UV(69)+JVS(456)*UV(70)+JVS(505)& - &*UV(72)+JVS(632)*UV(75)+JVS(691)*UV(77)+JVS(722)*UV(78)+JVS(780)*UV(79)+JVS(826)*UV(81) - JTUV(70) = JVS(59)*UV(20)+JVS(170)*UV(41)+JVS(255)*UV(54)+JVS(299)*UV(58)+JVS(316)*UV(60)+JVS(376)*UV(65)+JVS(414)& - &*UV(67)+JVS(457)*UV(70)+JVS(506)*UV(72)+JVS(545)*UV(73)+JVS(663)*UV(76)+JVS(692)*UV(77)+JVS(723)*UV(78)& - &+JVS(781)*UV(79)+JVS(808)*UV(80) - JTUV(71) = JVS(91)*UV(28)+JVS(171)*UV(41)+JVS(175)*UV(42)+JVS(317)*UV(60)+JVS(393)*UV(66)+JVS(446)*UV(69)+JVS(468)& - &*UV(71)+JVS(507)*UV(72)+JVS(546)*UV(73)+JVS(664)*UV(76)+JVS(693)*UV(77)+JVS(724)*UV(78)+JVS(782)*UV(79)& - &+JVS(809)*UV(80) - JTUV(72) = JVS(56)*UV(19)+JVS(157)*UV(39)+JVS(300)*UV(58)+JVS(508)*UV(72)+JVS(635)*UV(75)+JVS(783)*UV(79)+JVS(810)& - &*UV(80) - JTUV(73) = JVS(32)*UV(13)+JVS(36)*UV(14)+JVS(83)*UV(26)+JVS(137)*UV(36)+JVS(158)*UV(39)+JVS(179)*UV(43)+JVS(192)& - &*UV(45)+JVS(242)*UV(52)+JVS(548)*UV(73)+JVS(563)*UV(74)+JVS(636)*UV(75)+JVS(666)*UV(76)+JVS(725)*UV(78)& - &+JVS(784)*UV(79)+JVS(811)*UV(80)+JVS(829)*UV(81) - JTUV(74) = JVS(113)*UV(32)+JVS(126)*UV(34)+JVS(180)*UV(43)+JVS(510)*UV(72)+JVS(549)*UV(73)+JVS(564)*UV(74)+JVS(667)& - &*UV(76)+JVS(696)*UV(77)+JVS(726)*UV(78)+JVS(785)*UV(79)+JVS(812)*UV(80)+JVS(830)*UV(81) - JTUV(75) = JVS(3)*UV(1)+JVS(5)*UV(2)+JVS(9)*UV(4)+JVS(11)*UV(5)+JVS(13)*UV(6)+JVS(15)*UV(7)+JVS(18)*UV(8)+JVS(21)& - &*UV(9)+JVS(24)*UV(10)+JVS(27)*UV(11)+JVS(37)*UV(14)+JVS(40)*UV(15)+JVS(43)*UV(16)+JVS(47)*UV(17)+JVS(50)& - &*UV(18)+JVS(57)*UV(19)+JVS(60)*UV(20)+JVS(64)*UV(21)+JVS(68)*UV(22)+JVS(72)*UV(23)+JVS(76)*UV(24)+JVS(80)& - &*UV(25)+JVS(84)*UV(26)+JVS(87)*UV(27)+JVS(92)*UV(28)+JVS(100)*UV(29)+JVS(105)*UV(30)+JVS(110)*UV(31)& - &+JVS(114)*UV(32)+JVS(120)*UV(33)+JVS(127)*UV(34)+JVS(134)*UV(35)+JVS(138)*UV(36)+JVS(145)*UV(37)+JVS(150)& - &*UV(38)+JVS(159)*UV(39)+JVS(164)*UV(40)+JVS(172)*UV(41)+JVS(176)*UV(42)+JVS(181)*UV(43)+JVS(185)*UV(44)& - &+JVS(197)*UV(46)+JVS(210)*UV(48)+JVS(217)*UV(49)+JVS(223)*UV(50)+JVS(234)*UV(51)+JVS(243)*UV(52)+JVS(256)& - &*UV(54)+JVS(265)*UV(55)+JVS(274)*UV(56)+JVS(281)*UV(57)+JVS(302)*UV(58)+JVS(310)*UV(59)+JVS(318)*UV(60)& - &+JVS(326)*UV(61)+JVS(343)*UV(62)+JVS(355)*UV(63)+JVS(362)*UV(64)+JVS(379)*UV(65)+JVS(394)*UV(66)+JVS(418)& - &*UV(67)+JVS(432)*UV(68)+JVS(447)*UV(69)+JVS(459)*UV(70)+JVS(469)*UV(71)+JVS(511)*UV(72)+JVS(550)*UV(73)& - &+JVS(565)*UV(74)+JVS(638)*UV(75)+JVS(697)*UV(77)+JVS(727)*UV(78)+JVS(786)*UV(79)+JVS(813)*UV(80)+JVS(831)& - &*UV(81) - JTUV(76) = JVS(30)*UV(12)+JVS(77)*UV(24)+JVS(93)*UV(28)+JVS(101)*UV(29)+JVS(106)*UV(30)+JVS(121)*UV(33)+JVS(146)& - &*UV(37)+JVS(186)*UV(44)+JVS(194)*UV(45)+JVS(218)*UV(49)+JVS(224)*UV(50)+JVS(235)*UV(51)+JVS(248)*UV(53)& - &+JVS(257)*UV(54)+JVS(266)*UV(55)+JVS(275)*UV(56)+JVS(282)*UV(57)+JVS(303)*UV(58)+JVS(319)*UV(60)+JVS(344)& - &*UV(62)+JVS(356)*UV(63)+JVS(363)*UV(64)+JVS(380)*UV(65)+JVS(395)*UV(66)+JVS(419)*UV(67)+JVS(433)*UV(68)& - &+JVS(448)*UV(69)+JVS(460)*UV(70)+JVS(470)*UV(71)+JVS(512)*UV(72)+JVS(551)*UV(73)+JVS(566)*UV(74)+JVS(639)& - &*UV(75)+JVS(669)*UV(76)+JVS(698)*UV(77)+JVS(728)*UV(78)+JVS(787)*UV(79)+JVS(814)*UV(80)+JVS(832)*UV(81) - JTUV(77) = JVS(48)*UV(17)+JVS(51)*UV(18)+JVS(94)*UV(28)+JVS(128)*UV(34)+JVS(173)*UV(41)+JVS(236)*UV(51)+JVS(258)& - &*UV(54)+JVS(276)*UV(56)+JVS(283)*UV(57)+JVS(304)*UV(58)+JVS(345)*UV(62)+JVS(357)*UV(63)+JVS(381)*UV(65)& - &+JVS(396)*UV(66)+JVS(420)*UV(67)+JVS(434)*UV(68)+JVS(449)*UV(69)+JVS(461)*UV(70)+JVS(471)*UV(71)+JVS(513)& - &*UV(72)+JVS(552)*UV(73)+JVS(567)*UV(74)+JVS(670)*UV(76)+JVS(699)*UV(77)+JVS(729)*UV(78)+JVS(788)*UV(79) - JTUV(78) = JVS(95)*UV(28)+JVS(115)*UV(32)+JVS(129)*UV(34)+JVS(139)*UV(36)+JVS(259)*UV(54)+JVS(305)*UV(58)+JVS(382)& - &*UV(65)+JVS(397)*UV(66)+JVS(421)*UV(67)+JVS(435)*UV(68)+JVS(450)*UV(69)+JVS(462)*UV(70)+JVS(472)*UV(71)& - &+JVS(514)*UV(72)+JVS(553)*UV(73)+JVS(568)*UV(74)+JVS(671)*UV(76)+JVS(700)*UV(77)+JVS(730)*UV(78)+JVS(789)& - &*UV(79)+JVS(834)*UV(81) - JTUV(79) = JVS(22)*UV(9)+JVS(41)*UV(15)+JVS(52)*UV(18)+JVS(61)*UV(20)+JVS(65)*UV(21)+JVS(69)*UV(22)+JVS(73)*UV(23)& - &+JVS(81)*UV(25)+JVS(85)*UV(26)+JVS(111)*UV(31)+JVS(116)*UV(32)+JVS(130)*UV(34)+JVS(135)*UV(35)+JVS(151)& - &*UV(38)+JVS(177)*UV(42)+JVS(187)*UV(44)+JVS(211)*UV(48)+JVS(219)*UV(49)+JVS(225)*UV(50)+JVS(244)*UV(52)& - &+JVS(249)*UV(53)+JVS(267)*UV(55)+JVS(277)*UV(56)+JVS(284)*UV(57)+JVS(320)*UV(60)+JVS(358)*UV(63)+JVS(364)& - &*UV(64)+JVS(398)*UV(66)+JVS(436)*UV(68)+JVS(451)*UV(69)+JVS(463)*UV(70)+JVS(473)*UV(71)+JVS(515)*UV(72)& - &+JVS(554)*UV(73)+JVS(569)*UV(74)+JVS(642)*UV(75)+JVS(672)*UV(76)+JVS(701)*UV(77)+JVS(731)*UV(78)+JVS(790)& - &*UV(79)+JVS(817)*UV(80)+JVS(835)*UV(81) - JTUV(80) = JVS(19)*UV(8)+JVS(33)*UV(13)+JVS(44)*UV(16)+JVS(96)*UV(28)+JVS(102)*UV(29)+JVS(160)*UV(39)+JVS(198)*UV(46)& - &+JVS(250)*UV(53)+JVS(260)*UV(54)+JVS(307)*UV(58)+JVS(311)*UV(59)+JVS(321)*UV(60)+JVS(327)*UV(61)+JVS(347)& - &*UV(62)+JVS(365)*UV(64)+JVS(384)*UV(65)+JVS(399)*UV(66)+JVS(423)*UV(67)+JVS(437)*UV(68)+JVS(452)*UV(69)& - &+JVS(464)*UV(70)+JVS(474)*UV(71)+JVS(516)*UV(72)+JVS(555)*UV(73)+JVS(570)*UV(74)+JVS(643)*UV(75)+JVS(673)& - &*UV(76)+JVS(732)*UV(78)+JVS(791)*UV(79)+JVS(818)*UV(80)+JVS(836)*UV(81) - JTUV(81) = JVS(88)*UV(27)+JVS(131)*UV(34)+JVS(165)*UV(40)+JVS(199)*UV(46)+JVS(207)*UV(47)+JVS(245)*UV(52)+JVS(308)& - &*UV(58)+JVS(312)*UV(59)+JVS(328)*UV(61)+JVS(348)*UV(62)+JVS(400)*UV(66)+JVS(424)*UV(67)+JVS(453)*UV(69)& - &+JVS(517)*UV(72)+JVS(556)*UV(73)+JVS(571)*UV(74)+JVS(644)*UV(75)+JVS(674)*UV(76)+JVS(703)*UV(77)+JVS(792)& - &*UV(79)+JVS(819)*UV(80)+JVS(837)*UV(81) - -END SUBROUTINE JacTR_SP_Vec - -! End of JacTR_SP_Vec function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE MOZART_4_Jacobian - diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Jacobian.o b/boxmox/compiled_mechs/MOZART_4/MOZART_4_Jacobian.o deleted file mode 100644 index a2c0ebab20271ba214d4640abecfa817d758b201..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Jacobian.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_JacobianSP.f90 b/boxmox/compiled_mechs/MOZART_4/MOZART_4_JacobianSP.f90 deleted file mode 100644 index b0ffaa0f29edfa706d1b4e5cf423f4739ee14b1b..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_4/MOZART_4_JacobianSP.f90 +++ /dev/null @@ -1,206 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Sparse Jacobian Data Structures File -! -! Generated by KPP-2.2.3 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 : MOZART_4_JacobianSP.f90 -! Time : Mon Jul 19 09:14:05 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_4_11638_BOXMOX -! Equation file : MOZART_4.kpp -! Output root filename : MOZART_4 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MOZART_4_JacobianSP - - PUBLIC - SAVE - - -! Sparse Jacobian Data - - - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_0 = (/ & - 1, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, & - 6, 7, 7, 8, 8, 8, 8, 9, 9, 9, 10, 10, & - 11, 11, 11, 12, 12, 12, 13, 13, 13, 14, 14, 14, & - 14, 15, 15, 15, 15, 16, 16, 16, 17, 17, 17, 17, & - 18, 18, 18, 18, 19, 19, 19, 19, 19, 20, 20, 20, & - 20, 21, 21, 21, 21, 22, 22, 22, 22, 23, 23, 23, & - 23, 24, 24, 24, 24, 25, 25, 25, 25, 26, 26, 26, & - 26, 27, 27, 27, 28, 28, 28, 28, 28, 28, 28, 28, & - 29, 29, 29, 29, 29, 29, 30, 30, 30, 30, 30, 31, & - 31, 31, 31, 32, 32, 32, 32, 32, 33, 33, 33, 33, & - 33, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 35, & - 35, 35, 35, 36, 36, 36, 36, 37, 37, 37, 37, 37, & - 37, 37, 37, 38, 38, 38, 38, 39, 39, 39, 39, 39, & - 39, 39, 39, 39, 40, 40, 40, 40, 40, 41, 41, 41, & - 41, 41, 41, 41, 41, 42, 42, 42, 42, 43, 43, 43, & - 43, 44, 44, 44, 44, 44, 44, 45, 45, 45, 45, 45, & - 45, 45, 45, 46, 46, 46, 46, 47, 47, 47, 47, 47, & - 47, 47, 47, 48, 48, 48, 48, 49, 49, 49, 49, 49, & - 49, 49, 49, 50, 50, 50, 50, 50, 50, 51, 51, 51, & - 51, 51, 51, 51, 51, 51, 51, 51, 51, 52, 52, 52, & - 52, 52, 52, 52, 52, 53, 53, 53, 53, 53, 54, 54, & - 54, 54, 54, 54, 54, 54, 54, 54, 54, 55, 55, 55, & - 55, 55, 55, 56, 56, 56, 56, 56, 56, 56, 56, 56, & - 56, 57, 57, 57, 57, 57, 57, 57, 58, 58, 58, 58, & - 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, & - 58, 58, 58, 58, 58, 58, 58, 58, 59, 59, 59, 59, & - 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, 61, 61, & - 61, 61, 61, 61, 62, 62, 62, 62, 62, 62, 62, 62, & - 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, & - 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, 64, 64 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_1 = (/ & - 64, 64, 64, 64, 64, 64, 65, 65, 65, 65, 65, 65, & - 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, & - 65, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, & - 66, 66, 66, 66, 67, 67, 67, 67, 67, 67, 67, 67, & - 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, & - 67, 67, 67, 67, 68, 68, 68, 68, 68, 68, 68, 68, & - 68, 68, 68, 68, 68, 68, 69, 69, 69, 69, 69, 69, & - 69, 69, 69, 69, 69, 69, 69, 69, 69, 70, 70, 70, & - 70, 70, 70, 70, 70, 70, 70, 70, 70, 71, 71, 71, & - 71, 71, 71, 71, 71, 71, 71, 72, 72, 72, 72, 72, & - 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, & - 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, & - 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, & - 72, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, & - 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, & - 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, & - 73, 73, 73, 73, 74, 74, 74, 74, 74, 74, 74, 74, & - 74, 74, 74, 74, 74, 74, 74, 75, 75, 75, 75, 75, & - 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, & - 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, & - 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, & - 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, & - 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, & - 75, 75, 75, 75, 75, 75, 75, 75, 76, 76, 76, 76, & - 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, & - 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, & - 76, 76, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, & - 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, & - 77, 77, 77, 77, 77, 77, 77, 78, 78, 78, 78, 78, & - 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78 /) - INTEGER, PARAMETER, DIMENSION(117) :: LU_IROW_2 = (/ & - 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, & - 78, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, & - 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, & - 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, & - 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, & - 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, & - 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, & - 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, & - 80, 80, 80, 81, 81, 81, 81, 81, 81, 81, 81, 81, & - 81, 81, 81, 81, 81, 81, 81, 81, 81 /) - INTEGER, PARAMETER, DIMENSION(837) :: LU_IROW = (/& - LU_IROW_0, LU_IROW_1, LU_IROW_2 /) - - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_0 = (/ & - 1, 8, 75, 2, 75, 3, 47, 4, 75, 5, 75, 6, & - 75, 7, 75, 8, 16, 75, 80, 9, 75, 79, 10, 75, & - 10, 11, 75, 12, 30, 76, 13, 73, 80, 11, 14, 73, & - 75, 15, 68, 75, 79, 16, 75, 80, 17, 56, 75, 77, & - 18, 75, 77, 79, 19, 40, 47, 72, 75, 20, 70, 75, & - 79, 21, 56, 75, 79, 22, 57, 75, 79, 23, 63, 75, & - 79, 6, 24, 75, 76, 25, 49, 75, 79, 26, 73, 75, & - 79, 27, 75, 81, 28, 60, 71, 75, 76, 77, 78, 80, & - 29, 55, 61, 75, 76, 80, 27, 30, 75, 76, 81, 31, & - 44, 75, 79, 32, 74, 75, 78, 79, 33, 48, 55, 75, & - 76, 27, 34, 59, 61, 74, 75, 77, 78, 79, 81, 35, & - 50, 75, 79, 36, 73, 75, 78, 31, 37, 44, 45, 54, & - 75, 76, 79, 38, 64, 75, 79, 13, 16, 39, 62, 67, & - 72, 73, 75, 80, 40, 47, 61, 75, 81, 41, 56, 63, & - 68, 70, 71, 75, 77, 42, 71, 75, 79, 43, 73, 74, & - 75, 10, 31, 44, 75, 76, 79, 14, 31, 44, 45, 73, & - 75, 76, 79, 46, 75, 80, 81, 3, 19, 40, 47, 61, & - 72, 75, 81, 48, 55, 75, 79, 25, 33, 48, 49, 55, & - 75, 76, 79, 35, 50, 61, 75, 76, 79, 22, 24, 38, & - 48, 51, 55, 57, 64, 75, 76, 77, 79, 47, 52, 61, & - 72, 73, 75, 79, 81, 53, 59, 76, 79, 80, 12, 30, & - 54, 68, 70, 75, 76, 77, 78, 80, 81, 7, 48, 55, & - 75, 76, 79, 4, 21, 33, 48, 55, 56, 75, 76, 77, & - 79, 5, 22, 57, 75, 76, 77, 79, 27, 37, 44, 45, & - 54, 58, 59, 60, 61, 62, 66, 67, 68, 69, 70, 72, & - 73, 75, 76, 77, 78, 79, 80, 81, 59, 75, 80, 81, & - 53, 59, 60, 70, 71, 75, 76, 79, 80, 81, 59, 61, & - 69, 75, 80, 81, 17, 21, 24, 25, 35, 48, 49, 50, & - 55, 56, 57, 61, 62, 69, 75, 76, 77, 79, 80, 81, & - 23, 51, 55, 57, 63, 64, 75, 76, 77, 79, 38, 46 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_1 = (/ & - 64, 75, 76, 79, 80, 81, 35, 43, 50, 61, 63, 64, & - 65, 68, 69, 70, 73, 74, 75, 76, 77, 78, 79, 80, & - 81, 38, 42, 46, 53, 59, 64, 66, 71, 75, 76, 77, & - 78, 79, 80, 81, 29, 31, 44, 45, 55, 61, 63, 64, & - 65, 66, 67, 68, 69, 70, 71, 73, 74, 75, 76, 77, & - 78, 79, 80, 81, 15, 28, 42, 60, 68, 70, 71, 75, & - 76, 77, 78, 79, 80, 81, 38, 42, 46, 53, 59, 64, & - 69, 71, 75, 76, 77, 78, 79, 80, 81, 20, 66, 69, & - 70, 71, 75, 76, 77, 78, 79, 80, 81, 42, 59, 71, & - 75, 76, 77, 78, 79, 80, 81, 12, 18, 23, 24, 27, & - 30, 32, 35, 36, 40, 41, 42, 43, 47, 48, 50, 53, & - 54, 55, 56, 57, 59, 60, 61, 63, 64, 65, 66, 68, & - 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, & - 81, 13, 14, 24, 26, 29, 30, 36, 39, 43, 44, 46, & - 49, 50, 52, 53, 55, 56, 57, 59, 60, 61, 62, 63, & - 64, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, & - 78, 79, 80, 81, 20, 43, 59, 66, 70, 71, 73, 74, & - 75, 76, 77, 78, 79, 80, 81, 2, 4, 5, 6, 7, & - 8, 9, 10, 11, 15, 16, 17, 18, 19, 20, 21, 22, & - 23, 25, 26, 27, 28, 29, 31, 32, 33, 34, 35, 36, & - 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, & - 49, 50, 51, 52, 54, 55, 56, 57, 58, 59, 60, 61, & - 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, & - 74, 75, 76, 77, 78, 79, 80, 81, 3, 24, 30, 44, & - 47, 49, 50, 52, 53, 55, 56, 57, 59, 61, 63, 64, & - 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, & - 80, 81, 18, 32, 34, 36, 40, 47, 51, 55, 56, 57, & - 59, 61, 62, 63, 64, 68, 69, 70, 71, 72, 73, 74, & - 75, 76, 77, 78, 79, 80, 81, 23, 25, 32, 33, 36, & - 45, 48, 49, 51, 55, 57, 62, 63, 64, 65, 66, 67 /) - INTEGER, PARAMETER, DIMENSION(117) :: LU_ICOL_2 = (/ & - 68, 69, 70, 71, 73, 74, 75, 76, 77, 78, 79, 80, & - 81, 9, 10, 12, 14, 16, 17, 18, 19, 20, 21, 22, & - 24, 26, 27, 30, 35, 37, 38, 40, 41, 42, 43, 44, & - 45, 46, 47, 48, 49, 50, 52, 53, 54, 55, 56, 57, & - 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, & - 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, & - 13, 16, 26, 36, 39, 43, 46, 53, 59, 60, 61, 62, & - 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, & - 79, 80, 81, 27, 46, 52, 59, 61, 66, 69, 71, 72, & - 73, 74, 75, 76, 77, 78, 79, 80, 81 /) - INTEGER, PARAMETER, DIMENSION(837) :: LU_ICOL = (/& - LU_ICOL_0, LU_ICOL_1, LU_ICOL_2 /) - - INTEGER, PARAMETER, DIMENSION(82) :: LU_CROW = (/ & - 1, 4, 6, 8, 10, 12, 14, 16, 20, 23, 25, 28, & - 31, 34, 38, 42, 45, 49, 53, 58, 62, 66, 70, 74, & - 78, 82, 86, 89, 97,103,108,112,117,122,132,136, & - 140,148,152,161,166,174,178,182,188,196,200,208, & - 212,220,226,238,246,251,262,268,278,285,309,313, & - 323,329,349,359,367,386,401,425,439,454,466,476, & - 518,557,572,645,675,704,734,793,820,838 /) - - INTEGER, PARAMETER, DIMENSION(82) :: LU_DIAG = (/ & - 1, 4, 6, 8, 10, 12, 14, 16, 20, 23, 26, 28, & - 31, 35, 38, 42, 45, 49, 53, 58, 62, 66, 70, 75, & - 78, 82, 86, 89, 97,104,108,112,117,123,132,136, & - 141,148,154,161,166,174,178,184,191,196,203,208, & - 215,221,230,239,246,253,264,273,280,290,309,315, & - 324,341,353,361,373,392,411,429,445,457,468,508, & - 548,564,638,669,699,730,790,818,837,838 /) - - -END MODULE MOZART_4_JacobianSP - diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_JacobianSP.o b/boxmox/compiled_mechs/MOZART_4/MOZART_4_JacobianSP.o deleted file mode 100644 index ba40eca220b738a900e0a3ad6f7b4ccbfa74bf0b..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/MOZART_4_JacobianSP.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_LinearAlgebra.f90 b/boxmox/compiled_mechs/MOZART_4/MOZART_4_LinearAlgebra.f90 deleted file mode 100644 index 2ca22493cf10c2e0f7092ab6c70dc9df13d463e7..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_4/MOZART_4_LinearAlgebra.f90 +++ /dev/null @@ -1,1551 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Linear Algebra Data and Routines File -! -! Generated by KPP-2.2.3 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 : MOZART_4_LinearAlgebra.f90 -! Time : Mon Jul 19 09:14:05 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_4_11638_BOXMOX -! Equation file : MOZART_4.kpp -! Output root filename : MOZART_4 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MOZART_4_LinearAlgebra - - USE MOZART_4_Parameters - USE MOZART_4_JacobianSP - - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! SPARSE_UTIL - SPARSE utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecomp( JVS, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MOZART_4_Parameters - USE MOZART_4_JacobianSP - - INTEGER :: IER - REAL(kind=dp) :: JVS(LU_NONZERO), W(NVAR), a - INTEGER :: k, kk, j, jj - - a = 0. ! mz_rs_20050606 - IER = 0 - DO k=1,NVAR - ! mz_rs_20050606: don't check if real value == 0 - ! IF ( JVS( LU_DIAG(k) ) .EQ. 0. ) THEN - IF ( ABS(JVS(LU_DIAG(k))) < TINY(a) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - W( LU_ICOL(kk) ) = JVS(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - a = -W(j) / JVS( LU_DIAG(j) ) - W(j) = -a - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVS(kk) = W( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecomp - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecompCmplx( JVS, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization, complex -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MOZART_4_Parameters - USE MOZART_4_JacobianSP - - INTEGER :: IER - DOUBLE COMPLEX :: JVS(LU_NONZERO), W(NVAR), a - REAL(kind=dp) :: b = 0.0 - INTEGER :: k, kk, j, jj - - IER = 0 - DO k=1,NVAR - IF ( ABS(JVS(LU_DIAG(k))) < TINY(b) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - W( LU_ICOL(kk) ) = JVS(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - a = -W(j) / JVS( LU_DIAG(j) ) - W(j) = -a - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVS(kk) = W( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecompCmplx - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecompCmplxR( JVSR, JVSI, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization, complex -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MOZART_4_Parameters - USE MOZART_4_JacobianSP - - INTEGER :: IER - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO) - REAL(kind=dp) :: WR(NVAR), WI(NVAR), ar, ai, den - INTEGER :: k, kk, j, jj - - IER = 0 - ar = 0.0 - DO k=1,NVAR - IF ( ( ABS(JVSR(LU_DIAG(k))) < TINY(ar) ) .AND. & - ( ABS(JVSI(LU_DIAG(k))) < TINY(ar) ) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - WR( LU_ICOL(kk) ) = JVSR(kk) - WI( LU_ICOL(kk) ) = JVSI(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - den = JVSR(LU_DIAG(j))**2 + JVSI(LU_DIAG(j))**2 - ar = -(WR(j)*JVSR(LU_DIAG(j)) + WI(j)*JVSI(LU_DIAG(j)))/den - ai = -(WI(j)*JVSR(LU_DIAG(j)) - WR(j)*JVSI(LU_DIAG(j)))/den - WR(j) = -ar - WI(j) = -ai - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - WR( LU_ICOL(jj) ) = WR( LU_ICOL(jj) ) + ar*JVSR(jj) - ai*JVSI(jj) - WI( LU_ICOL(jj) ) = WI( LU_ICOL(jj) ) + ar*JVSI(jj) + ai*JVSR(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVSR(kk) = WR( LU_ICOL(kk) ) - JVSI(kk) = WI( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecompCmplxR - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveIndirect( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse solve subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MOZART_4_Parameters - USE MOZART_4_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR), sum - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - X(i) = X(i) - JVS(j)*X(LU_ICOL(j)); - END DO - END DO - - DO i=NVAR,1,-1 - sum = X(i); - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sum = sum - JVS(j)*X(LU_ICOL(j)); - END DO - X(i) = sum/JVS(LU_DIAG(i)); - END DO - -END SUBROUTINE KppSolveIndirect - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRIndirect( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MOZART_4_Parameters - USE MOZART_4_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR) - - DO i=1,NVAR - X(i) = X(i)/JVS(LU_DIAG(i)) - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - -END SUBROUTINE KppSolveTRIndirect - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveCmplx( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MOZART_4_Parameters - USE MOZART_4_JacobianSP - - INTEGER :: i, j - DOUBLE COMPLEX :: JVS(LU_NONZERO), X(NVAR), sum - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - X(i) = X(i) - JVS(j)*X(LU_ICOL(j)); - END DO - END DO - - DO i=NVAR,1,-1 - sum = X(i); - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sum = sum - JVS(j)*X(LU_ICOL(j)); - END DO - X(i) = sum/JVS(LU_DIAG(i)); - END DO - -END SUBROUTINE KppSolveCmplx - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveCmplxR( JVSR, JVSI, XR, XI ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve subroutine using indirect addressing -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MOZART_4_Parameters - USE MOZART_4_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), sumr, sumi, den - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - XR(i) = XR(i) - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j))) - XI(i) = XI(i) - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j))) - END DO - END DO - - DO i=NVAR,1,-1 - sumr = XR(i); sumi = XI(i) - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sumr = sumr - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j))) - sumi = sumi - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j))) - END DO - den = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2 - XR(i) = (sumr*JVSR(LU_DIAG(i)) + sumi*JVSI(LU_DIAG(i)))/den - XI(i) = (sumi*JVSR(LU_DIAG(i)) - sumr*JVSI(LU_DIAG(i)))/den - END DO - -END SUBROUTINE KppSolveCmplxR - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRCmplx( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MOZART_4_Parameters - USE MOZART_4_JacobianSP - - INTEGER :: i, j - DOUBLE COMPLEX :: JVS(LU_NONZERO), X(NVAR) - - DO i=1,NVAR - X(i) = X(i)/JVS(LU_DIAG(i)) - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - -END SUBROUTINE KppSolveTRCmplx - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRCmplxR( JVSR, JVSI, XR, XI ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MOZART_4_Parameters - USE MOZART_4_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), den - - DO i=1,NVAR - den = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2 - XR(i) = (XR(i)*JVSR(LU_DIAG(i)) + XI(i)*JVSI(LU_DIAG(i)))/den - XI(i) = (XI(i)*JVSR(LU_DIAG(i)) - XR(i)*JVSI(LU_DIAG(i)))/den - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i)) - XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i)) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i)) - XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i)) - END DO - END DO - -END SUBROUTINE KppSolveTRCmplxR - - -! -! Next few commented subroutines perform sparse big linear algebra -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppDecompBig( JVS, IP, IER ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Sparse LU factorization -!! for the Runge Kutta (3n)x(3n) linear system -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE MOZART_4_Parameters -! USE MOZART_4_JacobianSP -! -! INTEGER :: IP3(3), IER, IP(3,NVAR) -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), W(3,3,NVAR), a(3,3), E(3,3) -! INTEGER :: k, kk, j, jj -! -! a = 0.0d0 -! IER = 0 -! DO k=1,NVAR -! DO kk = LU_CROW(k), LU_CROW(k+1)-1 -! W( 1:3,1:3,LU_ICOL(kk) ) = JVS(1:3,1:3,kk) -! END DO -! DO kk = LU_CROW(k), LU_DIAG(k)-1 -! j = LU_ICOL(kk) -! E(1:3,1:3) = JVS( 1:3,1:3,LU_DIAG(j) ) -! ! CALL DGETRF(3,3,E,3,IP3,IER) -! CALL FAC3(E,IP3,IER) -! IF ( IER /= 0 ) RETURN -! ! a = W(j) / JVS( LU_DIAG(j) ) -! a(1:3,1:3) = W( 1:3,1:3,j ) -! ! CALL DGETRS ('N',3,3,E,3,IP3,a,3,IER) -! CALL SOL3('N',E,IP3,a(1,1)) -! CALL SOL3('N',E,IP3,a(1,2)) -! CALL SOL3('N',E,IP3,a(1,3)) -! W(1:3,1:3,j) = a(1:3,1:3) -! DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 -! W( 1:3,1:3,LU_ICOL(jj) ) = W( 1:3,1:3,LU_ICOL(jj) ) & -! - MATMUL( a(1:3,1:3) , JVS(1:3,1:3,jj) ) -! END DO -! END DO -! DO kk = LU_CROW(k), LU_CROW(k+1)-1 -! JVS(1:3,1:3,kk) = W( 1:3,1:3,LU_ICOL(kk) ) -! END DO -! END DO -! -! DO k=1,NVAR -! ! CALL WGEFA(JVS(1,1,LU_DIAG(k)),3,3,IP(1,k),IER) -! ! CALL DGETRF(3,3,JVS(1,1,LU_DIAG(k)),3,IP(1,k),IER) -! CALL FAC3(JVS(1,1,LU_DIAG(k)),IP(1,k),IER) -! IF ( IER /= 0 ) RETURN -! END DO -! -!END SUBROUTINE KppDecompBig -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppSolveBig( JVS, IP, X ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Sparse solve subroutine using indirect addressing -!! for the Runge Kutta (3n)x(3n) linear system -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE MOZART_4_Parameters -! USE MOZART_4_JacobianSP -! -! INTEGER :: i, j, k, m, IP3(3), IP(3,NVAR), IER -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR), sum(3) -! -! DO i=1,NVAR -! DO j = LU_CROW(i), LU_DIAG(i)-1 -! !X(1:3,i) = X(1:3,i) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j))); -! DO k=1,3 -! DO m=1,3 -! X(k,i) = X(k,i) - JVS(k,m,j)*X(m,LU_ICOL(j)) -! END DO -! END DO -! END DO -! END DO -! -! DO i=NVAR,1,-1 -! sum(1:3) = X(1:3,i); -! DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 -! !sum(1:3) = sum(1:3) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j))); -! DO k=1,3 -! DO m=1,3 -! sum(k) = sum(k) - JVS(k,m,j)*X(m,LU_ICOL(j)) -! END DO -! END DO -! END DO -! ! X(i) = sum/JVS(LU_DIAG(i)); -! ! CALL DGETRS ('N',3,1,JVS(1:3,1:3,LU_DIAG(i)),3,IP(1,i),sum,3,0) -! ! CALL WGESL('N',JVS(1,1,LU_DIAG(i)),3,3,IP(1,i),sum) -! CALL SOL3('N',JVS(1,1,LU_DIAG(i)),IP(1,i),sum) -! X(1:3,i) = sum(1:3) -! END DO -! -!END SUBROUTINE KppSolveBig -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppSolveBigTR( JVS, IP, X ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Big sparse transpose solve using indirect addressing -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE MOZART_4_Parameters -! USE MOZART_4_JacobianSP -! -! INTEGER :: i, j, k, m, IP(3,NVAR) -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR) -! -! DO i=1,NVAR -! ! X(i) = X(i)/JVS(LU_DIAG(i)) -! CALL SOL3('T',JVS(1,1,LU_DIAG(i)),IP(1,i),X(1,i)) -! DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 -! !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) & -! ! - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) ) -! DO k=1,3 -! DO m=1,3 -! X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i) -! END DO -! END DO -! END DO -! END DO -! -! DO i=NVAR, 1, -1 -! DO j=LU_CROW(i),LU_DIAG(i)-1 -! !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) & -! ! - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) ) -! DO k=1,3 -! DO m=1,3 -! X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i) -! END DO -! END DO -! END DO -! END DO -! -!END SUBROUTINE KppSolveBigTR -! -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE FAC3(A,IPVT,INFO) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! FAC3 FACTORS THE MATRIX A (3,3) BY -!! GAUSS ELIMINATION WITH PARTIAL PIVOTING -!! LINPACK - LIKE -!! -!! Remove comments to perform pivoting -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! -! REAL(kind=dp) :: A(3,3) -! INTEGER :: IPVT(3),INFO -!! INTEGER :: L -!! REAL(kind=dp) :: t, dmax, da, TMP(3) -! REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0 -! -! info = 0 -!! t = TINY(da) -!! -!! da = ABS(A(1,1)); L = 1 -!! IF ( ABS(A(2,1))>da ) THEN -!! da = ABS(A(2,1)); L = 2 -!! IF ( ABS(A(3,1))>da ) THEN -!! L = 3 -!! END IF -!! END IF -!! IPVT(1) = L -!! IF (L /=1 ) THEN -!! TMP(1:3) = A(L,1:3) -!! A(L,1:3) = A(1,1:3) -!! A(1,1:3) = TMP(1:3) -!! END IF -!! IF (ABS(A(1,1)) < t) THEN -!! info = 1 -!! return -!! END IF -!! -! A(2,1) = A(2,1)/A(1,1) -! A(2,2) = A(2,2) - A(2,1)*A(1,2) -! A(2,3) = A(2,3) - A(2,1)*A(1,3) -! A(3,1) = A(3,1)/A(1,1) -! A(3,2) = A(3,2) - A(3,1)*A(1,2) -! A(3,3) = A(3,3) - A(3,1)*A(1,3) -! -!! IPVT(2) = 2 -!! IF (ABS(A(3,2))>ABS(A(2,2))) THEN -!! IPVT(2) = 3 -!! TMP(2:3) = A(3,2:3) -!! A(3,2:3) = A(2,2:3) -!! A(2,2:3) = TMP(2:3) -!! END IF -!! IF (ABS(A(2,2)) < t) THEN -!! info = 1 -!! return -!! END IF -!! -! A(3,2) = A(3,2)/A(2,2) -! A(3,3) = A(3,3) - A(3,2)*A(2,3) -! IPVT(3) = 3 -! -!END SUBROUTINE FAC3 -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE SOL3(Trans,A,IPVT,b) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! SOL3 solves the system 3x3 -!! A * x = b or trans(a) * x = b -!! using the factors computed by WGEFA. -!! -!! Trans = 'N' to solve A*x = b , -!! = 'T' to solve transpose(A)*x = b -!! LINPACK - LIKE -!! -!! Remove comments to use pivoting -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! CHARACTER :: Trans -! REAL(kind=dp) :: a(3,3),b(3) -! INTEGER :: IPVT(3) -!! INTEGER :: L -!! REAL(kind=dp) :: TMP -! -! SELECT CASE (Trans) -! -! CASE ('n','N') ! Solve A * x = b -! -!! Solve L*y = b -!! L = IPVT(1) -!! IF (L /= 1) THEN -!! TMP = B(1); B(1) = B(L); B(L) = TMP -!! END IF -! b(2) = b(2)-A(2,1)*b(1) -! b(3) = b(3)-A(3,1)*b(1) -! -!! L = IPVT(2) -!! IF (L /= 2) THEN -!! TMP = B(2); B(2) = B(L); B(L) = TMP -!! END IF -! b(3) = b(3)-A(3,2)*b(2) -! -!! Solve U*x = y -! b(3) = b(3)/A(3,3) -! b(2) = (b(2)-A(2,3)*b(3))/A(2,2) -! b(1) = (b(1)-A(1,3)*b(3)-A(1,2)*b(2))/A(1,1) -! -! -! CASE ('t','T') ! Solve transpose(A) * x = b -! -!! Solve transpose(U)*y = b -! b(1) = b(1)/A(1,1) -! b(2) = (b(2)-A(1,2)*b(1))/A(2,2) -! b(3) = (b(3)-A(1,3)*b(1)-A(2,3)*b(2))/A(3,3) -! -!! Solve transpose(L)*x = y -! b(2) = b(2)-A(3,2)*b(3) -!! L = ipvt(2) -!! IF (L /= 2) THEN -!! TMP = B(2); B(2) = B(L); B(L) = TMP -!! END IF -! b(1) = b(1)-A(3,1)*b(3)-A(2,1)*b(2) -!! L = ipvt(1) -!! IF (L /= 1) THEN -!! TMP = B(1); B(1) = B(L); B(L) = TMP -!! END IF -! -! END SELECT -! -!END SUBROUTINE SOL3 - -! End of SPARSE_UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! KppSolve - sparse back substitution -! Arguments : -! JVS - sparse Jacobian of variables -! X - Vector for variables -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE KppSolve ( JVS, X ) - -! JVS - sparse Jacobian of variables - REAL(kind=dp) :: JVS(LU_NONZERO) -! X - Vector for variables - REAL(kind=dp) :: X(NVAR) - - X(11) = X(11)-JVS(25)*X(10) - X(14) = X(14)-JVS(34)*X(11) - X(24) = X(24)-JVS(74)*X(6) - X(30) = X(30)-JVS(103)*X(27) - X(34) = X(34)-JVS(122)*X(27) - X(37) = X(37)-JVS(140)*X(31) - X(39) = X(39)-JVS(152)*X(13)-JVS(153)*X(16) - X(44) = X(44)-JVS(182)*X(10)-JVS(183)*X(31) - X(45) = X(45)-JVS(188)*X(14)-JVS(189)*X(31)-JVS(190)*X(44) - X(47) = X(47)-JVS(200)*X(3)-JVS(201)*X(19)-JVS(202)*X(40) - X(49) = X(49)-JVS(212)*X(25)-JVS(213)*X(33)-JVS(214)*X(48) - X(50) = X(50)-JVS(220)*X(35) - X(51) = X(51)-JVS(226)*X(22)-JVS(227)*X(24)-JVS(228)*X(38)-JVS(229)*X(48) - X(52) = X(52)-JVS(238)*X(47) - X(54) = X(54)-JVS(251)*X(12)-JVS(252)*X(30) - X(55) = X(55)-JVS(262)*X(7)-JVS(263)*X(48) - X(56) = X(56)-JVS(268)*X(4)-JVS(269)*X(21)-JVS(270)*X(33)-JVS(271)*X(48)-JVS(272)*X(55) - X(57) = X(57)-JVS(278)*X(5)-JVS(279)*X(22) - X(58) = X(58)-JVS(285)*X(27)-JVS(286)*X(37)-JVS(287)*X(44)-JVS(288)*X(45)-JVS(289)*X(54) - X(60) = X(60)-JVS(313)*X(53)-JVS(314)*X(59) - X(61) = X(61)-JVS(323)*X(59) - X(62) = X(62)-JVS(329)*X(17)-JVS(330)*X(21)-JVS(331)*X(24)-JVS(332)*X(25)-JVS(333)*X(35)-JVS(334)*X(48)-JVS(335)*X(49)& - &-JVS(336)*X(50)-JVS(337)*X(55)-JVS(338)*X(56)-JVS(339)*X(57)-JVS(340)*X(61) - X(63) = X(63)-JVS(349)*X(23)-JVS(350)*X(51)-JVS(351)*X(55)-JVS(352)*X(57) - X(64) = X(64)-JVS(359)*X(38)-JVS(360)*X(46) - X(65) = X(65)-JVS(367)*X(35)-JVS(368)*X(43)-JVS(369)*X(50)-JVS(370)*X(61)-JVS(371)*X(63)-JVS(372)*X(64) - X(66) = X(66)-JVS(386)*X(38)-JVS(387)*X(42)-JVS(388)*X(46)-JVS(389)*X(53)-JVS(390)*X(59)-JVS(391)*X(64) - X(67) = X(67)-JVS(401)*X(29)-JVS(402)*X(31)-JVS(403)*X(44)-JVS(404)*X(45)-JVS(405)*X(55)-JVS(406)*X(61)-JVS(407)*X(63)& - &-JVS(408)*X(64)-JVS(409)*X(65)-JVS(410)*X(66) - X(68) = X(68)-JVS(425)*X(15)-JVS(426)*X(28)-JVS(427)*X(42)-JVS(428)*X(60) - X(69) = X(69)-JVS(439)*X(38)-JVS(440)*X(42)-JVS(441)*X(46)-JVS(442)*X(53)-JVS(443)*X(59)-JVS(444)*X(64) - X(70) = X(70)-JVS(454)*X(20)-JVS(455)*X(66)-JVS(456)*X(69) - X(71) = X(71)-JVS(466)*X(42)-JVS(467)*X(59) - X(72) = X(72)-JVS(476)*X(12)-JVS(477)*X(18)-JVS(478)*X(23)-JVS(479)*X(24)-JVS(480)*X(27)-JVS(481)*X(30)-JVS(482)*X(32)& - &-JVS(483)*X(35)-JVS(484)*X(36)-JVS(485)*X(40)-JVS(486)*X(41)-JVS(487)*X(42)-JVS(488)*X(43)-JVS(489)*X(47)& - &-JVS(490)*X(48)-JVS(491)*X(50)-JVS(492)*X(53)-JVS(493)*X(54)-JVS(494)*X(55)-JVS(495)*X(56)-JVS(496)*X(57)& - &-JVS(497)*X(59)-JVS(498)*X(60)-JVS(499)*X(61)-JVS(500)*X(63)-JVS(501)*X(64)-JVS(502)*X(65)-JVS(503)*X(66)& - &-JVS(504)*X(68)-JVS(505)*X(69)-JVS(506)*X(70)-JVS(507)*X(71) - X(73) = X(73)-JVS(518)*X(13)-JVS(519)*X(14)-JVS(520)*X(24)-JVS(521)*X(26)-JVS(522)*X(29)-JVS(523)*X(30)-JVS(524)*X(36)& - &-JVS(525)*X(39)-JVS(526)*X(43)-JVS(527)*X(44)-JVS(528)*X(46)-JVS(529)*X(49)-JVS(530)*X(50)-JVS(531)*X(52)& - &-JVS(532)*X(53)-JVS(533)*X(55)-JVS(534)*X(56)-JVS(535)*X(57)-JVS(536)*X(59)-JVS(537)*X(60)-JVS(538)*X(61)& - &-JVS(539)*X(62)-JVS(540)*X(63)-JVS(541)*X(64)-JVS(542)*X(67)-JVS(543)*X(68)-JVS(544)*X(69)-JVS(545)*X(70)& - &-JVS(546)*X(71)-JVS(547)*X(72) - X(74) = X(74)-JVS(557)*X(20)-JVS(558)*X(43)-JVS(559)*X(59)-JVS(560)*X(66)-JVS(561)*X(70)-JVS(562)*X(71)-JVS(563)*X(73) - X(75) = X(75)-JVS(572)*X(2)-JVS(573)*X(4)-JVS(574)*X(5)-JVS(575)*X(6)-JVS(576)*X(7)-JVS(577)*X(8)-JVS(578)*X(9)& - &-JVS(579)*X(10)-JVS(580)*X(11)-JVS(581)*X(15)-JVS(582)*X(16)-JVS(583)*X(17)-JVS(584)*X(18)-JVS(585)*X(19)& - &-JVS(586)*X(20)-JVS(587)*X(21)-JVS(588)*X(22)-JVS(589)*X(23)-JVS(590)*X(25)-JVS(591)*X(26)-JVS(592)*X(27)& - &-JVS(593)*X(28)-JVS(594)*X(29)-JVS(595)*X(31)-JVS(596)*X(32)-JVS(597)*X(33)-JVS(598)*X(34)-JVS(599)*X(35)& - &-JVS(600)*X(36)-JVS(601)*X(37)-JVS(602)*X(38)-JVS(603)*X(39)-JVS(604)*X(40)-JVS(605)*X(41)-JVS(606)*X(42)& - &-JVS(607)*X(43)-JVS(608)*X(44)-JVS(609)*X(45)-JVS(610)*X(46)-JVS(611)*X(47)-JVS(612)*X(48)-JVS(613)*X(49)& - &-JVS(614)*X(50)-JVS(615)*X(51)-JVS(616)*X(52)-JVS(617)*X(54)-JVS(618)*X(55)-JVS(619)*X(56)-JVS(620)*X(57)& - &-JVS(621)*X(58)-JVS(622)*X(59)-JVS(623)*X(60)-JVS(624)*X(61)-JVS(625)*X(62)-JVS(626)*X(63)-JVS(627)*X(64)& - &-JVS(628)*X(65)-JVS(629)*X(66)-JVS(630)*X(67)-JVS(631)*X(68)-JVS(632)*X(69)-JVS(633)*X(70)-JVS(634)*X(71)& - &-JVS(635)*X(72)-JVS(636)*X(73)-JVS(637)*X(74) - X(76) = X(76)-JVS(645)*X(3)-JVS(646)*X(24)-JVS(647)*X(30)-JVS(648)*X(44)-JVS(649)*X(47)-JVS(650)*X(49)-JVS(651)*X(50)& - &-JVS(652)*X(52)-JVS(653)*X(53)-JVS(654)*X(55)-JVS(655)*X(56)-JVS(656)*X(57)-JVS(657)*X(59)-JVS(658)*X(61)& - &-JVS(659)*X(63)-JVS(660)*X(64)-JVS(661)*X(68)-JVS(662)*X(69)-JVS(663)*X(70)-JVS(664)*X(71)-JVS(665)*X(72)& - &-JVS(666)*X(73)-JVS(667)*X(74)-JVS(668)*X(75) - X(77) = X(77)-JVS(675)*X(18)-JVS(676)*X(32)-JVS(677)*X(34)-JVS(678)*X(36)-JVS(679)*X(40)-JVS(680)*X(47)-JVS(681)*X(51)& - &-JVS(682)*X(55)-JVS(683)*X(56)-JVS(684)*X(57)-JVS(685)*X(59)-JVS(686)*X(61)-JVS(687)*X(62)-JVS(688)*X(63)& - &-JVS(689)*X(64)-JVS(690)*X(68)-JVS(691)*X(69)-JVS(692)*X(70)-JVS(693)*X(71)-JVS(694)*X(72)-JVS(695)*X(73)& - &-JVS(696)*X(74)-JVS(697)*X(75)-JVS(698)*X(76) - X(78) = X(78)-JVS(704)*X(23)-JVS(705)*X(25)-JVS(706)*X(32)-JVS(707)*X(33)-JVS(708)*X(36)-JVS(709)*X(45)-JVS(710)*X(48)& - &-JVS(711)*X(49)-JVS(712)*X(51)-JVS(713)*X(55)-JVS(714)*X(57)-JVS(715)*X(62)-JVS(716)*X(63)-JVS(717)*X(64)& - &-JVS(718)*X(65)-JVS(719)*X(66)-JVS(720)*X(67)-JVS(721)*X(68)-JVS(722)*X(69)-JVS(723)*X(70)-JVS(724)*X(71)& - &-JVS(725)*X(73)-JVS(726)*X(74)-JVS(727)*X(75)-JVS(728)*X(76)-JVS(729)*X(77) - X(79) = X(79)-JVS(734)*X(9)-JVS(735)*X(10)-JVS(736)*X(12)-JVS(737)*X(14)-JVS(738)*X(16)-JVS(739)*X(17)-JVS(740)*X(18)& - &-JVS(741)*X(19)-JVS(742)*X(20)-JVS(743)*X(21)-JVS(744)*X(22)-JVS(745)*X(24)-JVS(746)*X(26)-JVS(747)*X(27)& - &-JVS(748)*X(30)-JVS(749)*X(35)-JVS(750)*X(37)-JVS(751)*X(38)-JVS(752)*X(40)-JVS(753)*X(41)-JVS(754)*X(42)& - &-JVS(755)*X(43)-JVS(756)*X(44)-JVS(757)*X(45)-JVS(758)*X(46)-JVS(759)*X(47)-JVS(760)*X(48)-JVS(761)*X(49)& - &-JVS(762)*X(50)-JVS(763)*X(52)-JVS(764)*X(53)-JVS(765)*X(54)-JVS(766)*X(55)-JVS(767)*X(56)-JVS(768)*X(57)& - &-JVS(769)*X(58)-JVS(770)*X(59)-JVS(771)*X(60)-JVS(772)*X(61)-JVS(773)*X(62)-JVS(774)*X(63)-JVS(775)*X(64)& - &-JVS(776)*X(65)-JVS(777)*X(66)-JVS(778)*X(67)-JVS(779)*X(68)-JVS(780)*X(69)-JVS(781)*X(70)-JVS(782)*X(71)& - &-JVS(783)*X(72)-JVS(784)*X(73)-JVS(785)*X(74)-JVS(786)*X(75)-JVS(787)*X(76)-JVS(788)*X(77)-JVS(789)*X(78) - X(80) = X(80)-JVS(793)*X(13)-JVS(794)*X(16)-JVS(795)*X(26)-JVS(796)*X(36)-JVS(797)*X(39)-JVS(798)*X(43)-JVS(799)*X(46)& - &-JVS(800)*X(53)-JVS(801)*X(59)-JVS(802)*X(60)-JVS(803)*X(61)-JVS(804)*X(62)-JVS(805)*X(67)-JVS(806)*X(68)& - &-JVS(807)*X(69)-JVS(808)*X(70)-JVS(809)*X(71)-JVS(810)*X(72)-JVS(811)*X(73)-JVS(812)*X(74)-JVS(813)*X(75)& - &-JVS(814)*X(76)-JVS(815)*X(77)-JVS(816)*X(78)-JVS(817)*X(79) - X(81) = X(81)-JVS(820)*X(27)-JVS(821)*X(46)-JVS(822)*X(52)-JVS(823)*X(59)-JVS(824)*X(61)-JVS(825)*X(66)-JVS(826)*X(69)& - &-JVS(827)*X(71)-JVS(828)*X(72)-JVS(829)*X(73)-JVS(830)*X(74)-JVS(831)*X(75)-JVS(832)*X(76)-JVS(833)*X(77)& - &-JVS(834)*X(78)-JVS(835)*X(79)-JVS(836)*X(80) - X(81) = X(81)/JVS(837) - X(80) = (X(80)-JVS(819)*X(81))/(JVS(818)) - X(79) = (X(79)-JVS(791)*X(80)-JVS(792)*X(81))/(JVS(790)) - X(78) = (X(78)-JVS(731)*X(79)-JVS(732)*X(80)-JVS(733)*X(81))/(JVS(730)) - X(77) = (X(77)-JVS(700)*X(78)-JVS(701)*X(79)-JVS(702)*X(80)-JVS(703)*X(81))/(JVS(699)) - X(76) = (X(76)-JVS(670)*X(77)-JVS(671)*X(78)-JVS(672)*X(79)-JVS(673)*X(80)-JVS(674)*X(81))/(JVS(669)) - X(75) = (X(75)-JVS(639)*X(76)-JVS(640)*X(77)-JVS(641)*X(78)-JVS(642)*X(79)-JVS(643)*X(80)-JVS(644)*X(81))/(JVS(638)) - X(74) = (X(74)-JVS(565)*X(75)-JVS(566)*X(76)-JVS(567)*X(77)-JVS(568)*X(78)-JVS(569)*X(79)-JVS(570)*X(80)-JVS(571)& - &*X(81))/(JVS(564)) - X(73) = (X(73)-JVS(549)*X(74)-JVS(550)*X(75)-JVS(551)*X(76)-JVS(552)*X(77)-JVS(553)*X(78)-JVS(554)*X(79)-JVS(555)& - &*X(80)-JVS(556)*X(81))/(JVS(548)) - X(72) = (X(72)-JVS(509)*X(73)-JVS(510)*X(74)-JVS(511)*X(75)-JVS(512)*X(76)-JVS(513)*X(77)-JVS(514)*X(78)-JVS(515)& - &*X(79)-JVS(516)*X(80)-JVS(517)*X(81))/(JVS(508)) - X(71) = (X(71)-JVS(469)*X(75)-JVS(470)*X(76)-JVS(471)*X(77)-JVS(472)*X(78)-JVS(473)*X(79)-JVS(474)*X(80)-JVS(475)& - &*X(81))/(JVS(468)) - X(70) = (X(70)-JVS(458)*X(71)-JVS(459)*X(75)-JVS(460)*X(76)-JVS(461)*X(77)-JVS(462)*X(78)-JVS(463)*X(79)-JVS(464)& - &*X(80)-JVS(465)*X(81))/(JVS(457)) - X(69) = (X(69)-JVS(446)*X(71)-JVS(447)*X(75)-JVS(448)*X(76)-JVS(449)*X(77)-JVS(450)*X(78)-JVS(451)*X(79)-JVS(452)& - &*X(80)-JVS(453)*X(81))/(JVS(445)) - X(68) = (X(68)-JVS(430)*X(70)-JVS(431)*X(71)-JVS(432)*X(75)-JVS(433)*X(76)-JVS(434)*X(77)-JVS(435)*X(78)-JVS(436)& - &*X(79)-JVS(437)*X(80)-JVS(438)*X(81))/(JVS(429)) - X(67) = (X(67)-JVS(412)*X(68)-JVS(413)*X(69)-JVS(414)*X(70)-JVS(415)*X(71)-JVS(416)*X(73)-JVS(417)*X(74)-JVS(418)& - &*X(75)-JVS(419)*X(76)-JVS(420)*X(77)-JVS(421)*X(78)-JVS(422)*X(79)-JVS(423)*X(80)-JVS(424)*X(81))/(JVS(411)) - X(66) = (X(66)-JVS(393)*X(71)-JVS(394)*X(75)-JVS(395)*X(76)-JVS(396)*X(77)-JVS(397)*X(78)-JVS(398)*X(79)-JVS(399)& - &*X(80)-JVS(400)*X(81))/(JVS(392)) - X(65) = (X(65)-JVS(374)*X(68)-JVS(375)*X(69)-JVS(376)*X(70)-JVS(377)*X(73)-JVS(378)*X(74)-JVS(379)*X(75)-JVS(380)& - &*X(76)-JVS(381)*X(77)-JVS(382)*X(78)-JVS(383)*X(79)-JVS(384)*X(80)-JVS(385)*X(81))/(JVS(373)) - X(64) = (X(64)-JVS(362)*X(75)-JVS(363)*X(76)-JVS(364)*X(79)-JVS(365)*X(80)-JVS(366)*X(81))/(JVS(361)) - X(63) = (X(63)-JVS(354)*X(64)-JVS(355)*X(75)-JVS(356)*X(76)-JVS(357)*X(77)-JVS(358)*X(79))/(JVS(353)) - X(62) = (X(62)-JVS(342)*X(69)-JVS(343)*X(75)-JVS(344)*X(76)-JVS(345)*X(77)-JVS(346)*X(79)-JVS(347)*X(80)-JVS(348)& - &*X(81))/(JVS(341)) - X(61) = (X(61)-JVS(325)*X(69)-JVS(326)*X(75)-JVS(327)*X(80)-JVS(328)*X(81))/(JVS(324)) - X(60) = (X(60)-JVS(316)*X(70)-JVS(317)*X(71)-JVS(318)*X(75)-JVS(319)*X(76)-JVS(320)*X(79)-JVS(321)*X(80)-JVS(322)& - &*X(81))/(JVS(315)) - X(59) = (X(59)-JVS(310)*X(75)-JVS(311)*X(80)-JVS(312)*X(81))/(JVS(309)) - X(58) = (X(58)-JVS(291)*X(59)-JVS(292)*X(60)-JVS(293)*X(61)-JVS(294)*X(62)-JVS(295)*X(66)-JVS(296)*X(67)-JVS(297)& - &*X(68)-JVS(298)*X(69)-JVS(299)*X(70)-JVS(300)*X(72)-JVS(301)*X(73)-JVS(302)*X(75)-JVS(303)*X(76)-JVS(304)*X(77)& - &-JVS(305)*X(78)-JVS(306)*X(79)-JVS(307)*X(80)-JVS(308)*X(81))/(JVS(290)) - X(57) = (X(57)-JVS(281)*X(75)-JVS(282)*X(76)-JVS(283)*X(77)-JVS(284)*X(79))/(JVS(280)) - X(56) = (X(56)-JVS(274)*X(75)-JVS(275)*X(76)-JVS(276)*X(77)-JVS(277)*X(79))/(JVS(273)) - X(55) = (X(55)-JVS(265)*X(75)-JVS(266)*X(76)-JVS(267)*X(79))/(JVS(264)) - X(54) = (X(54)-JVS(254)*X(68)-JVS(255)*X(70)-JVS(256)*X(75)-JVS(257)*X(76)-JVS(258)*X(77)-JVS(259)*X(78)-JVS(260)& - &*X(80)-JVS(261)*X(81))/(JVS(253)) - X(53) = (X(53)-JVS(247)*X(59)-JVS(248)*X(76)-JVS(249)*X(79)-JVS(250)*X(80))/(JVS(246)) - X(52) = (X(52)-JVS(240)*X(61)-JVS(241)*X(72)-JVS(242)*X(73)-JVS(243)*X(75)-JVS(244)*X(79)-JVS(245)*X(81))/(JVS(239)) - X(51) = (X(51)-JVS(231)*X(55)-JVS(232)*X(57)-JVS(233)*X(64)-JVS(234)*X(75)-JVS(235)*X(76)-JVS(236)*X(77)-JVS(237)& - &*X(79))/(JVS(230)) - X(50) = (X(50)-JVS(222)*X(61)-JVS(223)*X(75)-JVS(224)*X(76)-JVS(225)*X(79))/(JVS(221)) - X(49) = (X(49)-JVS(216)*X(55)-JVS(217)*X(75)-JVS(218)*X(76)-JVS(219)*X(79))/(JVS(215)) - X(48) = (X(48)-JVS(209)*X(55)-JVS(210)*X(75)-JVS(211)*X(79))/(JVS(208)) - X(47) = (X(47)-JVS(204)*X(61)-JVS(205)*X(72)-JVS(206)*X(75)-JVS(207)*X(81))/(JVS(203)) - X(46) = (X(46)-JVS(197)*X(75)-JVS(198)*X(80)-JVS(199)*X(81))/(JVS(196)) - X(45) = (X(45)-JVS(192)*X(73)-JVS(193)*X(75)-JVS(194)*X(76)-JVS(195)*X(79))/(JVS(191)) - X(44) = (X(44)-JVS(185)*X(75)-JVS(186)*X(76)-JVS(187)*X(79))/(JVS(184)) - X(43) = (X(43)-JVS(179)*X(73)-JVS(180)*X(74)-JVS(181)*X(75))/(JVS(178)) - X(42) = (X(42)-JVS(175)*X(71)-JVS(176)*X(75)-JVS(177)*X(79))/(JVS(174)) - X(41) = (X(41)-JVS(167)*X(56)-JVS(168)*X(63)-JVS(169)*X(68)-JVS(170)*X(70)-JVS(171)*X(71)-JVS(172)*X(75)-JVS(173)& - &*X(77))/(JVS(166)) - X(40) = (X(40)-JVS(162)*X(47)-JVS(163)*X(61)-JVS(164)*X(75)-JVS(165)*X(81))/(JVS(161)) - X(39) = (X(39)-JVS(155)*X(62)-JVS(156)*X(67)-JVS(157)*X(72)-JVS(158)*X(73)-JVS(159)*X(75)-JVS(160)*X(80))/(JVS(154)) - X(38) = (X(38)-JVS(149)*X(64)-JVS(150)*X(75)-JVS(151)*X(79))/(JVS(148)) - X(37) = (X(37)-JVS(142)*X(44)-JVS(143)*X(45)-JVS(144)*X(54)-JVS(145)*X(75)-JVS(146)*X(76)-JVS(147)*X(79))/(JVS(141)) - X(36) = (X(36)-JVS(137)*X(73)-JVS(138)*X(75)-JVS(139)*X(78))/(JVS(136)) - X(35) = (X(35)-JVS(133)*X(50)-JVS(134)*X(75)-JVS(135)*X(79))/(JVS(132)) - X(34) = (X(34)-JVS(124)*X(59)-JVS(125)*X(61)-JVS(126)*X(74)-JVS(127)*X(75)-JVS(128)*X(77)-JVS(129)*X(78)-JVS(130)& - &*X(79)-JVS(131)*X(81))/(JVS(123)) - X(33) = (X(33)-JVS(118)*X(48)-JVS(119)*X(55)-JVS(120)*X(75)-JVS(121)*X(76))/(JVS(117)) - X(32) = (X(32)-JVS(113)*X(74)-JVS(114)*X(75)-JVS(115)*X(78)-JVS(116)*X(79))/(JVS(112)) - X(31) = (X(31)-JVS(109)*X(44)-JVS(110)*X(75)-JVS(111)*X(79))/(JVS(108)) - X(30) = (X(30)-JVS(105)*X(75)-JVS(106)*X(76)-JVS(107)*X(81))/(JVS(104)) - X(29) = (X(29)-JVS(98)*X(55)-JVS(99)*X(61)-JVS(100)*X(75)-JVS(101)*X(76)-JVS(102)*X(80))/(JVS(97)) - X(28) = (X(28)-JVS(90)*X(60)-JVS(91)*X(71)-JVS(92)*X(75)-JVS(93)*X(76)-JVS(94)*X(77)-JVS(95)*X(78)-JVS(96)*X(80))& - &/(JVS(89)) - X(27) = (X(27)-JVS(87)*X(75)-JVS(88)*X(81))/(JVS(86)) - X(26) = (X(26)-JVS(83)*X(73)-JVS(84)*X(75)-JVS(85)*X(79))/(JVS(82)) - X(25) = (X(25)-JVS(79)*X(49)-JVS(80)*X(75)-JVS(81)*X(79))/(JVS(78)) - X(24) = (X(24)-JVS(76)*X(75)-JVS(77)*X(76))/(JVS(75)) - X(23) = (X(23)-JVS(71)*X(63)-JVS(72)*X(75)-JVS(73)*X(79))/(JVS(70)) - X(22) = (X(22)-JVS(67)*X(57)-JVS(68)*X(75)-JVS(69)*X(79))/(JVS(66)) - X(21) = (X(21)-JVS(63)*X(56)-JVS(64)*X(75)-JVS(65)*X(79))/(JVS(62)) - X(20) = (X(20)-JVS(59)*X(70)-JVS(60)*X(75)-JVS(61)*X(79))/(JVS(58)) - X(19) = (X(19)-JVS(54)*X(40)-JVS(55)*X(47)-JVS(56)*X(72)-JVS(57)*X(75))/(JVS(53)) - X(18) = (X(18)-JVS(50)*X(75)-JVS(51)*X(77)-JVS(52)*X(79))/(JVS(49)) - X(17) = (X(17)-JVS(46)*X(56)-JVS(47)*X(75)-JVS(48)*X(77))/(JVS(45)) - X(16) = (X(16)-JVS(43)*X(75)-JVS(44)*X(80))/(JVS(42)) - X(15) = (X(15)-JVS(39)*X(68)-JVS(40)*X(75)-JVS(41)*X(79))/(JVS(38)) - X(14) = (X(14)-JVS(36)*X(73)-JVS(37)*X(75))/(JVS(35)) - X(13) = (X(13)-JVS(32)*X(73)-JVS(33)*X(80))/(JVS(31)) - X(12) = (X(12)-JVS(29)*X(30)-JVS(30)*X(76))/(JVS(28)) - X(11) = (X(11)-JVS(27)*X(75))/(JVS(26)) - X(10) = (X(10)-JVS(24)*X(75))/(JVS(23)) - X(9) = (X(9)-JVS(21)*X(75)-JVS(22)*X(79))/(JVS(20)) - X(8) = (X(8)-JVS(17)*X(16)-JVS(18)*X(75)-JVS(19)*X(80))/(JVS(16)) - X(7) = (X(7)-JVS(15)*X(75))/(JVS(14)) - X(6) = (X(6)-JVS(13)*X(75))/(JVS(12)) - X(5) = (X(5)-JVS(11)*X(75))/(JVS(10)) - X(4) = (X(4)-JVS(9)*X(75))/(JVS(8)) - X(3) = (X(3)-JVS(7)*X(47))/(JVS(6)) - X(2) = (X(2)-JVS(5)*X(75))/(JVS(4)) - X(1) = (X(1)-JVS(2)*X(8)-JVS(3)*X(75))/(JVS(1)) - -END SUBROUTINE KppSolve - -! End of KppSolve function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! KppSolveTR - sparse, transposed back substitution -! Arguments : -! JVS - sparse Jacobian of variables -! X - Vector for variables -! XX - Vector for output variables -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE KppSolveTR ( JVS, X, XX ) - -! JVS - sparse Jacobian of variables - REAL(kind=dp) :: JVS(LU_NONZERO) -! X - Vector for variables - REAL(kind=dp) :: X(NVAR) -! XX - Vector for output variables - REAL(kind=dp) :: XX(NVAR) - - XX(1) = X(1)/JVS(1) - XX(2) = X(2)/JVS(4) - XX(3) = X(3)/JVS(6) - XX(4) = X(4)/JVS(8) - XX(5) = X(5)/JVS(10) - XX(6) = X(6)/JVS(12) - XX(7) = X(7)/JVS(14) - XX(8) = (X(8)-JVS(2)*XX(1))/(JVS(16)) - XX(9) = X(9)/JVS(20) - XX(10) = X(10)/JVS(23) - XX(11) = X(11)/JVS(26) - XX(12) = X(12)/JVS(28) - XX(13) = X(13)/JVS(31) - XX(14) = X(14)/JVS(35) - XX(15) = X(15)/JVS(38) - XX(16) = (X(16)-JVS(17)*XX(8))/(JVS(42)) - XX(17) = X(17)/JVS(45) - XX(18) = X(18)/JVS(49) - XX(19) = X(19)/JVS(53) - XX(20) = X(20)/JVS(58) - XX(21) = X(21)/JVS(62) - XX(22) = X(22)/JVS(66) - XX(23) = X(23)/JVS(70) - XX(24) = X(24)/JVS(75) - XX(25) = X(25)/JVS(78) - XX(26) = X(26)/JVS(82) - XX(27) = X(27)/JVS(86) - XX(28) = X(28)/JVS(89) - XX(29) = X(29)/JVS(97) - XX(30) = (X(30)-JVS(29)*XX(12))/(JVS(104)) - XX(31) = X(31)/JVS(108) - XX(32) = X(32)/JVS(112) - XX(33) = X(33)/JVS(117) - XX(34) = X(34)/JVS(123) - XX(35) = X(35)/JVS(132) - XX(36) = X(36)/JVS(136) - XX(37) = X(37)/JVS(141) - XX(38) = X(38)/JVS(148) - XX(39) = X(39)/JVS(154) - XX(40) = (X(40)-JVS(54)*XX(19))/(JVS(161)) - XX(41) = X(41)/JVS(166) - XX(42) = X(42)/JVS(174) - XX(43) = X(43)/JVS(178) - XX(44) = (X(44)-JVS(109)*XX(31)-JVS(142)*XX(37))/(JVS(184)) - XX(45) = (X(45)-JVS(143)*XX(37))/(JVS(191)) - XX(46) = X(46)/JVS(196) - XX(47) = (X(47)-JVS(7)*XX(3)-JVS(55)*XX(19)-JVS(162)*XX(40))/(JVS(203)) - XX(48) = (X(48)-JVS(118)*XX(33))/(JVS(208)) - XX(49) = (X(49)-JVS(79)*XX(25))/(JVS(215)) - XX(50) = (X(50)-JVS(133)*XX(35))/(JVS(221)) - XX(51) = X(51)/JVS(230) - XX(52) = X(52)/JVS(239) - XX(53) = X(53)/JVS(246) - XX(54) = (X(54)-JVS(144)*XX(37))/(JVS(253)) - XX(55) = (X(55)-JVS(98)*XX(29)-JVS(119)*XX(33)-JVS(209)*XX(48)-JVS(216)*XX(49)-JVS(231)*XX(51))/(JVS(264)) - XX(56) = (X(56)-JVS(46)*XX(17)-JVS(63)*XX(21)-JVS(167)*XX(41))/(JVS(273)) - XX(57) = (X(57)-JVS(67)*XX(22)-JVS(232)*XX(51))/(JVS(280)) - XX(58) = X(58)/JVS(290) - XX(59) = (X(59)-JVS(124)*XX(34)-JVS(247)*XX(53)-JVS(291)*XX(58))/(JVS(309)) - XX(60) = (X(60)-JVS(90)*XX(28)-JVS(292)*XX(58))/(JVS(315)) - XX(61) = (X(61)-JVS(99)*XX(29)-JVS(125)*XX(34)-JVS(163)*XX(40)-JVS(204)*XX(47)-JVS(222)*XX(50)-JVS(240)*XX(52)& - &-JVS(293)*XX(58))/(JVS(324)) - XX(62) = (X(62)-JVS(155)*XX(39)-JVS(294)*XX(58))/(JVS(341)) - XX(63) = (X(63)-JVS(71)*XX(23)-JVS(168)*XX(41))/(JVS(353)) - XX(64) = (X(64)-JVS(149)*XX(38)-JVS(233)*XX(51)-JVS(354)*XX(63))/(JVS(361)) - XX(65) = X(65)/JVS(373) - XX(66) = (X(66)-JVS(295)*XX(58))/(JVS(392)) - XX(67) = (X(67)-JVS(156)*XX(39)-JVS(296)*XX(58))/(JVS(411)) - XX(68) = (X(68)-JVS(39)*XX(15)-JVS(169)*XX(41)-JVS(254)*XX(54)-JVS(297)*XX(58)-JVS(374)*XX(65)-JVS(412)*XX(67))& - &/(JVS(429)) - XX(69) = (X(69)-JVS(298)*XX(58)-JVS(325)*XX(61)-JVS(342)*XX(62)-JVS(375)*XX(65)-JVS(413)*XX(67))/(JVS(445)) - XX(70) = (X(70)-JVS(59)*XX(20)-JVS(170)*XX(41)-JVS(255)*XX(54)-JVS(299)*XX(58)-JVS(316)*XX(60)-JVS(376)*XX(65)& - &-JVS(414)*XX(67)-JVS(430)*XX(68))/(JVS(457)) - XX(71) = (X(71)-JVS(91)*XX(28)-JVS(171)*XX(41)-JVS(175)*XX(42)-JVS(317)*XX(60)-JVS(393)*XX(66)-JVS(415)*XX(67)& - &-JVS(431)*XX(68)-JVS(446)*XX(69)-JVS(458)*XX(70))/(JVS(468)) - XX(72) = (X(72)-JVS(56)*XX(19)-JVS(157)*XX(39)-JVS(205)*XX(47)-JVS(241)*XX(52)-JVS(300)*XX(58))/(JVS(508)) - XX(73) = (X(73)-JVS(32)*XX(13)-JVS(36)*XX(14)-JVS(83)*XX(26)-JVS(137)*XX(36)-JVS(158)*XX(39)-JVS(179)*XX(43)-JVS(192)& - &*XX(45)-JVS(242)*XX(52)-JVS(301)*XX(58)-JVS(377)*XX(65)-JVS(416)*XX(67)-JVS(509)*XX(72))/(JVS(548)) - XX(74) = (X(74)-JVS(113)*XX(32)-JVS(126)*XX(34)-JVS(180)*XX(43)-JVS(378)*XX(65)-JVS(417)*XX(67)-JVS(510)*XX(72)& - &-JVS(549)*XX(73))/(JVS(564)) - XX(75) = (X(75)-JVS(3)*XX(1)-JVS(5)*XX(2)-JVS(9)*XX(4)-JVS(11)*XX(5)-JVS(13)*XX(6)-JVS(15)*XX(7)-JVS(18)*XX(8)-JVS(21)& - &*XX(9)-JVS(24)*XX(10)-JVS(27)*XX(11)-JVS(37)*XX(14)-JVS(40)*XX(15)-JVS(43)*XX(16)-JVS(47)*XX(17)-JVS(50)& - &*XX(18)-JVS(57)*XX(19)-JVS(60)*XX(20)-JVS(64)*XX(21)-JVS(68)*XX(22)-JVS(72)*XX(23)-JVS(76)*XX(24)-JVS(80)& - &*XX(25)-JVS(84)*XX(26)-JVS(87)*XX(27)-JVS(92)*XX(28)-JVS(100)*XX(29)-JVS(105)*XX(30)-JVS(110)*XX(31)-JVS(114)& - &*XX(32)-JVS(120)*XX(33)-JVS(127)*XX(34)-JVS(134)*XX(35)-JVS(138)*XX(36)-JVS(145)*XX(37)-JVS(150)*XX(38)& - &-JVS(159)*XX(39)-JVS(164)*XX(40)-JVS(172)*XX(41)-JVS(176)*XX(42)-JVS(181)*XX(43)-JVS(185)*XX(44)-JVS(193)& - &*XX(45)-JVS(197)*XX(46)-JVS(206)*XX(47)-JVS(210)*XX(48)-JVS(217)*XX(49)-JVS(223)*XX(50)-JVS(234)*XX(51)& - &-JVS(243)*XX(52)-JVS(256)*XX(54)-JVS(265)*XX(55)-JVS(274)*XX(56)-JVS(281)*XX(57)-JVS(302)*XX(58)-JVS(310)& - &*XX(59)-JVS(318)*XX(60)-JVS(326)*XX(61)-JVS(343)*XX(62)-JVS(355)*XX(63)-JVS(362)*XX(64)-JVS(379)*XX(65)& - &-JVS(394)*XX(66)-JVS(418)*XX(67)-JVS(432)*XX(68)-JVS(447)*XX(69)-JVS(459)*XX(70)-JVS(469)*XX(71)-JVS(511)& - &*XX(72)-JVS(550)*XX(73)-JVS(565)*XX(74))/(JVS(638)) - XX(76) = (X(76)-JVS(30)*XX(12)-JVS(77)*XX(24)-JVS(93)*XX(28)-JVS(101)*XX(29)-JVS(106)*XX(30)-JVS(121)*XX(33)-JVS(146)& - &*XX(37)-JVS(186)*XX(44)-JVS(194)*XX(45)-JVS(218)*XX(49)-JVS(224)*XX(50)-JVS(235)*XX(51)-JVS(248)*XX(53)& - &-JVS(257)*XX(54)-JVS(266)*XX(55)-JVS(275)*XX(56)-JVS(282)*XX(57)-JVS(303)*XX(58)-JVS(319)*XX(60)-JVS(344)& - &*XX(62)-JVS(356)*XX(63)-JVS(363)*XX(64)-JVS(380)*XX(65)-JVS(395)*XX(66)-JVS(419)*XX(67)-JVS(433)*XX(68)& - &-JVS(448)*XX(69)-JVS(460)*XX(70)-JVS(470)*XX(71)-JVS(512)*XX(72)-JVS(551)*XX(73)-JVS(566)*XX(74)-JVS(639)& - &*XX(75))/(JVS(669)) - XX(77) = (X(77)-JVS(48)*XX(17)-JVS(51)*XX(18)-JVS(94)*XX(28)-JVS(128)*XX(34)-JVS(173)*XX(41)-JVS(236)*XX(51)-JVS(258)& - &*XX(54)-JVS(276)*XX(56)-JVS(283)*XX(57)-JVS(304)*XX(58)-JVS(345)*XX(62)-JVS(357)*XX(63)-JVS(381)*XX(65)& - &-JVS(396)*XX(66)-JVS(420)*XX(67)-JVS(434)*XX(68)-JVS(449)*XX(69)-JVS(461)*XX(70)-JVS(471)*XX(71)-JVS(513)& - &*XX(72)-JVS(552)*XX(73)-JVS(567)*XX(74)-JVS(640)*XX(75)-JVS(670)*XX(76))/(JVS(699)) - XX(78) = (X(78)-JVS(95)*XX(28)-JVS(115)*XX(32)-JVS(129)*XX(34)-JVS(139)*XX(36)-JVS(259)*XX(54)-JVS(305)*XX(58)& - &-JVS(382)*XX(65)-JVS(397)*XX(66)-JVS(421)*XX(67)-JVS(435)*XX(68)-JVS(450)*XX(69)-JVS(462)*XX(70)-JVS(472)& - &*XX(71)-JVS(514)*XX(72)-JVS(553)*XX(73)-JVS(568)*XX(74)-JVS(641)*XX(75)-JVS(671)*XX(76)-JVS(700)*XX(77))& - &/(JVS(730)) - XX(79) = (X(79)-JVS(22)*XX(9)-JVS(41)*XX(15)-JVS(52)*XX(18)-JVS(61)*XX(20)-JVS(65)*XX(21)-JVS(69)*XX(22)-JVS(73)& - &*XX(23)-JVS(81)*XX(25)-JVS(85)*XX(26)-JVS(111)*XX(31)-JVS(116)*XX(32)-JVS(130)*XX(34)-JVS(135)*XX(35)-JVS(147)& - &*XX(37)-JVS(151)*XX(38)-JVS(177)*XX(42)-JVS(187)*XX(44)-JVS(195)*XX(45)-JVS(211)*XX(48)-JVS(219)*XX(49)& - &-JVS(225)*XX(50)-JVS(237)*XX(51)-JVS(244)*XX(52)-JVS(249)*XX(53)-JVS(267)*XX(55)-JVS(277)*XX(56)-JVS(284)& - &*XX(57)-JVS(306)*XX(58)-JVS(320)*XX(60)-JVS(346)*XX(62)-JVS(358)*XX(63)-JVS(364)*XX(64)-JVS(383)*XX(65)& - &-JVS(398)*XX(66)-JVS(422)*XX(67)-JVS(436)*XX(68)-JVS(451)*XX(69)-JVS(463)*XX(70)-JVS(473)*XX(71)-JVS(515)& - &*XX(72)-JVS(554)*XX(73)-JVS(569)*XX(74)-JVS(642)*XX(75)-JVS(672)*XX(76)-JVS(701)*XX(77)-JVS(731)*XX(78))& - &/(JVS(790)) - XX(80) = (X(80)-JVS(19)*XX(8)-JVS(33)*XX(13)-JVS(44)*XX(16)-JVS(96)*XX(28)-JVS(102)*XX(29)-JVS(160)*XX(39)-JVS(198)& - &*XX(46)-JVS(250)*XX(53)-JVS(260)*XX(54)-JVS(307)*XX(58)-JVS(311)*XX(59)-JVS(321)*XX(60)-JVS(327)*XX(61)& - &-JVS(347)*XX(62)-JVS(365)*XX(64)-JVS(384)*XX(65)-JVS(399)*XX(66)-JVS(423)*XX(67)-JVS(437)*XX(68)-JVS(452)& - &*XX(69)-JVS(464)*XX(70)-JVS(474)*XX(71)-JVS(516)*XX(72)-JVS(555)*XX(73)-JVS(570)*XX(74)-JVS(643)*XX(75)& - &-JVS(673)*XX(76)-JVS(702)*XX(77)-JVS(732)*XX(78)-JVS(791)*XX(79))/(JVS(818)) - XX(81) = (X(81)-JVS(88)*XX(27)-JVS(107)*XX(30)-JVS(131)*XX(34)-JVS(165)*XX(40)-JVS(199)*XX(46)-JVS(207)*XX(47)& - &-JVS(245)*XX(52)-JVS(261)*XX(54)-JVS(308)*XX(58)-JVS(312)*XX(59)-JVS(322)*XX(60)-JVS(328)*XX(61)-JVS(348)& - &*XX(62)-JVS(366)*XX(64)-JVS(385)*XX(65)-JVS(400)*XX(66)-JVS(424)*XX(67)-JVS(438)*XX(68)-JVS(453)*XX(69)& - &-JVS(465)*XX(70)-JVS(475)*XX(71)-JVS(517)*XX(72)-JVS(556)*XX(73)-JVS(571)*XX(74)-JVS(644)*XX(75)-JVS(674)& - &*XX(76)-JVS(703)*XX(77)-JVS(733)*XX(78)-JVS(792)*XX(79)-JVS(819)*XX(80))/(JVS(837)) - XX(81) = XX(81) - XX(80) = XX(80)-JVS(836)*XX(81) - XX(79) = XX(79)-JVS(817)*XX(80)-JVS(835)*XX(81) - XX(78) = XX(78)-JVS(789)*XX(79)-JVS(816)*XX(80)-JVS(834)*XX(81) - XX(77) = XX(77)-JVS(729)*XX(78)-JVS(788)*XX(79)-JVS(815)*XX(80)-JVS(833)*XX(81) - XX(76) = XX(76)-JVS(698)*XX(77)-JVS(728)*XX(78)-JVS(787)*XX(79)-JVS(814)*XX(80)-JVS(832)*XX(81) - XX(75) = XX(75)-JVS(668)*XX(76)-JVS(697)*XX(77)-JVS(727)*XX(78)-JVS(786)*XX(79)-JVS(813)*XX(80)-JVS(831)*XX(81) - XX(74) = XX(74)-JVS(637)*XX(75)-JVS(667)*XX(76)-JVS(696)*XX(77)-JVS(726)*XX(78)-JVS(785)*XX(79)-JVS(812)*XX(80)& - &-JVS(830)*XX(81) - XX(73) = XX(73)-JVS(563)*XX(74)-JVS(636)*XX(75)-JVS(666)*XX(76)-JVS(695)*XX(77)-JVS(725)*XX(78)-JVS(784)*XX(79)& - &-JVS(811)*XX(80)-JVS(829)*XX(81) - XX(72) = XX(72)-JVS(547)*XX(73)-JVS(635)*XX(75)-JVS(665)*XX(76)-JVS(694)*XX(77)-JVS(783)*XX(79)-JVS(810)*XX(80)& - &-JVS(828)*XX(81) - XX(71) = XX(71)-JVS(507)*XX(72)-JVS(546)*XX(73)-JVS(562)*XX(74)-JVS(634)*XX(75)-JVS(664)*XX(76)-JVS(693)*XX(77)& - &-JVS(724)*XX(78)-JVS(782)*XX(79)-JVS(809)*XX(80)-JVS(827)*XX(81) - XX(70) = XX(70)-JVS(506)*XX(72)-JVS(545)*XX(73)-JVS(561)*XX(74)-JVS(633)*XX(75)-JVS(663)*XX(76)-JVS(692)*XX(77)& - &-JVS(723)*XX(78)-JVS(781)*XX(79)-JVS(808)*XX(80) - XX(69) = XX(69)-JVS(456)*XX(70)-JVS(505)*XX(72)-JVS(544)*XX(73)-JVS(632)*XX(75)-JVS(662)*XX(76)-JVS(691)*XX(77)& - &-JVS(722)*XX(78)-JVS(780)*XX(79)-JVS(807)*XX(80)-JVS(826)*XX(81) - XX(68) = XX(68)-JVS(504)*XX(72)-JVS(543)*XX(73)-JVS(631)*XX(75)-JVS(661)*XX(76)-JVS(690)*XX(77)-JVS(721)*XX(78)& - &-JVS(779)*XX(79)-JVS(806)*XX(80) - XX(67) = XX(67)-JVS(542)*XX(73)-JVS(630)*XX(75)-JVS(720)*XX(78)-JVS(778)*XX(79)-JVS(805)*XX(80) - XX(66) = XX(66)-JVS(410)*XX(67)-JVS(455)*XX(70)-JVS(503)*XX(72)-JVS(560)*XX(74)-JVS(629)*XX(75)-JVS(719)*XX(78)& - &-JVS(777)*XX(79)-JVS(825)*XX(81) - XX(65) = XX(65)-JVS(409)*XX(67)-JVS(502)*XX(72)-JVS(628)*XX(75)-JVS(718)*XX(78)-JVS(776)*XX(79) - XX(64) = XX(64)-JVS(372)*XX(65)-JVS(391)*XX(66)-JVS(408)*XX(67)-JVS(444)*XX(69)-JVS(501)*XX(72)-JVS(541)*XX(73)& - &-JVS(627)*XX(75)-JVS(660)*XX(76)-JVS(689)*XX(77)-JVS(717)*XX(78)-JVS(775)*XX(79) - XX(63) = XX(63)-JVS(371)*XX(65)-JVS(407)*XX(67)-JVS(500)*XX(72)-JVS(540)*XX(73)-JVS(626)*XX(75)-JVS(659)*XX(76)& - &-JVS(688)*XX(77)-JVS(716)*XX(78)-JVS(774)*XX(79) - XX(62) = XX(62)-JVS(539)*XX(73)-JVS(625)*XX(75)-JVS(687)*XX(77)-JVS(715)*XX(78)-JVS(773)*XX(79)-JVS(804)*XX(80) - XX(61) = XX(61)-JVS(340)*XX(62)-JVS(370)*XX(65)-JVS(406)*XX(67)-JVS(499)*XX(72)-JVS(538)*XX(73)-JVS(624)*XX(75)& - &-JVS(658)*XX(76)-JVS(686)*XX(77)-JVS(772)*XX(79)-JVS(803)*XX(80)-JVS(824)*XX(81) - XX(60) = XX(60)-JVS(428)*XX(68)-JVS(498)*XX(72)-JVS(537)*XX(73)-JVS(623)*XX(75)-JVS(771)*XX(79)-JVS(802)*XX(80) - XX(59) = XX(59)-JVS(314)*XX(60)-JVS(323)*XX(61)-JVS(390)*XX(66)-JVS(443)*XX(69)-JVS(467)*XX(71)-JVS(497)*XX(72)& - &-JVS(536)*XX(73)-JVS(559)*XX(74)-JVS(622)*XX(75)-JVS(657)*XX(76)-JVS(685)*XX(77)-JVS(770)*XX(79)-JVS(801)& - &*XX(80)-JVS(823)*XX(81) - XX(58) = XX(58)-JVS(621)*XX(75)-JVS(769)*XX(79) - XX(57) = XX(57)-JVS(339)*XX(62)-JVS(352)*XX(63)-JVS(496)*XX(72)-JVS(535)*XX(73)-JVS(620)*XX(75)-JVS(656)*XX(76)& - &-JVS(684)*XX(77)-JVS(714)*XX(78)-JVS(768)*XX(79) - XX(56) = XX(56)-JVS(338)*XX(62)-JVS(495)*XX(72)-JVS(534)*XX(73)-JVS(619)*XX(75)-JVS(655)*XX(76)-JVS(683)*XX(77)& - &-JVS(767)*XX(79) - XX(55) = XX(55)-JVS(272)*XX(56)-JVS(337)*XX(62)-JVS(351)*XX(63)-JVS(405)*XX(67)-JVS(494)*XX(72)-JVS(533)*XX(73)& - &-JVS(618)*XX(75)-JVS(654)*XX(76)-JVS(682)*XX(77)-JVS(713)*XX(78)-JVS(766)*XX(79) - XX(54) = XX(54)-JVS(289)*XX(58)-JVS(493)*XX(72)-JVS(617)*XX(75)-JVS(765)*XX(79) - XX(53) = XX(53)-JVS(313)*XX(60)-JVS(389)*XX(66)-JVS(442)*XX(69)-JVS(492)*XX(72)-JVS(532)*XX(73)-JVS(653)*XX(76)& - &-JVS(764)*XX(79)-JVS(800)*XX(80) - XX(52) = XX(52)-JVS(531)*XX(73)-JVS(616)*XX(75)-JVS(652)*XX(76)-JVS(763)*XX(79)-JVS(822)*XX(81) - XX(51) = XX(51)-JVS(350)*XX(63)-JVS(615)*XX(75)-JVS(681)*XX(77)-JVS(712)*XX(78) - XX(50) = XX(50)-JVS(336)*XX(62)-JVS(369)*XX(65)-JVS(491)*XX(72)-JVS(530)*XX(73)-JVS(614)*XX(75)-JVS(651)*XX(76)& - &-JVS(762)*XX(79) - XX(49) = XX(49)-JVS(335)*XX(62)-JVS(529)*XX(73)-JVS(613)*XX(75)-JVS(650)*XX(76)-JVS(711)*XX(78)-JVS(761)*XX(79) - XX(48) = XX(48)-JVS(214)*XX(49)-JVS(229)*XX(51)-JVS(263)*XX(55)-JVS(271)*XX(56)-JVS(334)*XX(62)-JVS(490)*XX(72)& - &-JVS(612)*XX(75)-JVS(710)*XX(78)-JVS(760)*XX(79) - XX(47) = XX(47)-JVS(238)*XX(52)-JVS(489)*XX(72)-JVS(611)*XX(75)-JVS(649)*XX(76)-JVS(680)*XX(77)-JVS(759)*XX(79) - XX(46) = XX(46)-JVS(360)*XX(64)-JVS(388)*XX(66)-JVS(441)*XX(69)-JVS(528)*XX(73)-JVS(610)*XX(75)-JVS(758)*XX(79)& - &-JVS(799)*XX(80)-JVS(821)*XX(81) - XX(45) = XX(45)-JVS(288)*XX(58)-JVS(404)*XX(67)-JVS(609)*XX(75)-JVS(709)*XX(78)-JVS(757)*XX(79) - XX(44) = XX(44)-JVS(190)*XX(45)-JVS(287)*XX(58)-JVS(403)*XX(67)-JVS(527)*XX(73)-JVS(608)*XX(75)-JVS(648)*XX(76)& - &-JVS(756)*XX(79) - XX(43) = XX(43)-JVS(368)*XX(65)-JVS(488)*XX(72)-JVS(526)*XX(73)-JVS(558)*XX(74)-JVS(607)*XX(75)-JVS(755)*XX(79)& - &-JVS(798)*XX(80) - XX(42) = XX(42)-JVS(387)*XX(66)-JVS(427)*XX(68)-JVS(440)*XX(69)-JVS(466)*XX(71)-JVS(487)*XX(72)-JVS(606)*XX(75)& - &-JVS(754)*XX(79) - XX(41) = XX(41)-JVS(486)*XX(72)-JVS(605)*XX(75)-JVS(753)*XX(79) - XX(40) = XX(40)-JVS(202)*XX(47)-JVS(485)*XX(72)-JVS(604)*XX(75)-JVS(679)*XX(77)-JVS(752)*XX(79) - XX(39) = XX(39)-JVS(525)*XX(73)-JVS(603)*XX(75)-JVS(797)*XX(80) - XX(38) = XX(38)-JVS(228)*XX(51)-JVS(359)*XX(64)-JVS(386)*XX(66)-JVS(439)*XX(69)-JVS(602)*XX(75)-JVS(751)*XX(79) - XX(37) = XX(37)-JVS(286)*XX(58)-JVS(601)*XX(75)-JVS(750)*XX(79) - XX(36) = XX(36)-JVS(484)*XX(72)-JVS(524)*XX(73)-JVS(600)*XX(75)-JVS(678)*XX(77)-JVS(708)*XX(78)-JVS(796)*XX(80) - XX(35) = XX(35)-JVS(220)*XX(50)-JVS(333)*XX(62)-JVS(367)*XX(65)-JVS(483)*XX(72)-JVS(599)*XX(75)-JVS(749)*XX(79) - XX(34) = XX(34)-JVS(598)*XX(75)-JVS(677)*XX(77) - XX(33) = XX(33)-JVS(213)*XX(49)-JVS(270)*XX(56)-JVS(597)*XX(75)-JVS(707)*XX(78) - XX(32) = XX(32)-JVS(482)*XX(72)-JVS(596)*XX(75)-JVS(676)*XX(77)-JVS(706)*XX(78) - XX(31) = XX(31)-JVS(140)*XX(37)-JVS(183)*XX(44)-JVS(189)*XX(45)-JVS(402)*XX(67)-JVS(595)*XX(75) - XX(30) = XX(30)-JVS(252)*XX(54)-JVS(481)*XX(72)-JVS(523)*XX(73)-JVS(647)*XX(76)-JVS(748)*XX(79) - XX(29) = XX(29)-JVS(401)*XX(67)-JVS(522)*XX(73)-JVS(594)*XX(75) - XX(28) = XX(28)-JVS(426)*XX(68)-JVS(593)*XX(75) - XX(27) = XX(27)-JVS(103)*XX(30)-JVS(122)*XX(34)-JVS(285)*XX(58)-JVS(480)*XX(72)-JVS(592)*XX(75)-JVS(747)*XX(79)& - &-JVS(820)*XX(81) - XX(26) = XX(26)-JVS(521)*XX(73)-JVS(591)*XX(75)-JVS(746)*XX(79)-JVS(795)*XX(80) - XX(25) = XX(25)-JVS(212)*XX(49)-JVS(332)*XX(62)-JVS(590)*XX(75)-JVS(705)*XX(78) - XX(24) = XX(24)-JVS(227)*XX(51)-JVS(331)*XX(62)-JVS(479)*XX(72)-JVS(520)*XX(73)-JVS(646)*XX(76)-JVS(745)*XX(79) - XX(23) = XX(23)-JVS(349)*XX(63)-JVS(478)*XX(72)-JVS(589)*XX(75)-JVS(704)*XX(78) - XX(22) = XX(22)-JVS(226)*XX(51)-JVS(279)*XX(57)-JVS(588)*XX(75)-JVS(744)*XX(79) - XX(21) = XX(21)-JVS(269)*XX(56)-JVS(330)*XX(62)-JVS(587)*XX(75)-JVS(743)*XX(79) - XX(20) = XX(20)-JVS(454)*XX(70)-JVS(557)*XX(74)-JVS(586)*XX(75)-JVS(742)*XX(79) - XX(19) = XX(19)-JVS(201)*XX(47)-JVS(585)*XX(75)-JVS(741)*XX(79) - XX(18) = XX(18)-JVS(477)*XX(72)-JVS(584)*XX(75)-JVS(675)*XX(77)-JVS(740)*XX(79) - XX(17) = XX(17)-JVS(329)*XX(62)-JVS(583)*XX(75)-JVS(739)*XX(79) - XX(16) = XX(16)-JVS(153)*XX(39)-JVS(582)*XX(75)-JVS(738)*XX(79)-JVS(794)*XX(80) - XX(15) = XX(15)-JVS(425)*XX(68)-JVS(581)*XX(75) - XX(14) = XX(14)-JVS(188)*XX(45)-JVS(519)*XX(73)-JVS(737)*XX(79) - XX(13) = XX(13)-JVS(152)*XX(39)-JVS(518)*XX(73)-JVS(793)*XX(80) - XX(12) = XX(12)-JVS(251)*XX(54)-JVS(476)*XX(72)-JVS(736)*XX(79) - XX(11) = XX(11)-JVS(34)*XX(14)-JVS(580)*XX(75) - XX(10) = XX(10)-JVS(25)*XX(11)-JVS(182)*XX(44)-JVS(579)*XX(75)-JVS(735)*XX(79) - XX(9) = XX(9)-JVS(578)*XX(75)-JVS(734)*XX(79) - XX(8) = XX(8)-JVS(577)*XX(75) - XX(7) = XX(7)-JVS(262)*XX(55)-JVS(576)*XX(75) - XX(6) = XX(6)-JVS(74)*XX(24)-JVS(575)*XX(75) - XX(5) = XX(5)-JVS(278)*XX(57)-JVS(574)*XX(75) - XX(4) = XX(4)-JVS(268)*XX(56)-JVS(573)*XX(75) - XX(3) = XX(3)-JVS(200)*XX(47)-JVS(645)*XX(76) - XX(2) = XX(2)-JVS(572)*XX(75) - XX(1) = XX(1) - -END SUBROUTINE KppSolveTR - -! End of KppSolveTR function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! BLAS_UTIL - BLAS-LIKE utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!-------------------------------------------------------------- -! -! BLAS/LAPACK-like subroutines used by the integration algorithms -! It is recommended to replace them by calls to the optimized -! BLAS/LAPACK library for your machine -! -! (C) Adrian Sandu, Aug. 2004 -! Virginia Polytechnic Institute and State University -!-------------------------------------------------------------- - - -!-------------------------------------------------------------- - SUBROUTINE WCOPY(N,X,incX,Y,incY) -!-------------------------------------------------------------- -! copies a vector, x, to a vector, y: y <- x -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SCOPY(N,X,1,Y,1) or CALL DCOPY(N,X,1,Y,1) -!-------------------------------------------------------------- -! USE MOZART_4_Precision - - INTEGER :: i,incX,incY,M,MP1,N - REAL(kind=dp) :: X(N),Y(N) - - IF (N.LE.0) RETURN - - M = MOD(N,8) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = X(i) - END DO - IF( N .LT. 8 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,8 - Y(i) = X(i) - Y(i + 1) = X(i + 1) - Y(i + 2) = X(i + 2) - Y(i + 3) = X(i + 3) - Y(i + 4) = X(i + 4) - Y(i + 5) = X(i + 5) - Y(i + 6) = X(i + 6) - Y(i + 7) = X(i + 7) - END DO - - END SUBROUTINE WCOPY - - -!-------------------------------------------------------------- - SUBROUTINE WAXPY(N,Alpha,X,incX,Y,incY) -!-------------------------------------------------------------- -! constant times a vector plus a vector: y <- y + Alpha*x -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SAXPY(N,Alpha,X,1,Y,1) or CALL DAXPY(N,Alpha,X,1,Y,1) -!-------------------------------------------------------------- - - INTEGER :: i,incX,incY,M,MP1,N - REAL(kind=dp) :: X(N),Y(N),Alpha - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp - - IF (Alpha .EQ. ZERO) RETURN - IF (N .LE. 0) RETURN - - M = MOD(N,4) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = Y(i) + Alpha*X(i) - END DO - IF( N .LT. 4 ) RETURN - END IF - MP1 = M + 1 - DO i = MP1,N,4 - Y(i) = Y(i) + Alpha*X(i) - Y(i + 1) = Y(i + 1) + Alpha*X(i + 1) - Y(i + 2) = Y(i + 2) + Alpha*X(i + 2) - Y(i + 3) = Y(i + 3) + Alpha*X(i + 3) - END DO - - END SUBROUTINE WAXPY - - - -!-------------------------------------------------------------- - SUBROUTINE WSCAL(N,Alpha,X,incX) -!-------------------------------------------------------------- -! constant times a vector: x(1:N) <- Alpha*x(1:N) -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SSCAL(N,Alpha,X,1) or CALL DSCAL(N,Alpha,X,1) -!-------------------------------------------------------------- - - INTEGER :: i,incX,M,MP1,N - REAL(kind=dp) :: X(N),Alpha - REAL(kind=dp), PARAMETER :: ZERO=0.0_dp, ONE=1.0_dp - - IF (Alpha .EQ. ONE) RETURN - IF (N .LE. 0) RETURN - - M = MOD(N,5) - IF( M .NE. 0 ) THEN - IF (Alpha .EQ. (-ONE)) THEN - DO i = 1,M - X(i) = -X(i) - END DO - ELSEIF (Alpha .EQ. ZERO) THEN - DO i = 1,M - X(i) = ZERO - END DO - ELSE - DO i = 1,M - X(i) = Alpha*X(i) - END DO - END IF - IF( N .LT. 5 ) RETURN - END IF - MP1 = M + 1 - IF (Alpha .EQ. (-ONE)) THEN - DO i = MP1,N,5 - X(i) = -X(i) - X(i + 1) = -X(i + 1) - X(i + 2) = -X(i + 2) - X(i + 3) = -X(i + 3) - X(i + 4) = -X(i + 4) - END DO - ELSEIF (Alpha .EQ. ZERO) THEN - DO i = MP1,N,5 - X(i) = ZERO - X(i + 1) = ZERO - X(i + 2) = ZERO - X(i + 3) = ZERO - X(i + 4) = ZERO - END DO - ELSE - DO i = MP1,N,5 - X(i) = Alpha*X(i) - X(i + 1) = Alpha*X(i + 1) - X(i + 2) = Alpha*X(i + 2) - X(i + 3) = Alpha*X(i + 3) - X(i + 4) = Alpha*X(i + 4) - END DO - END IF - - END SUBROUTINE WSCAL - -!-------------------------------------------------------------- - REAL(kind=dp) FUNCTION WLAMCH( C ) -!-------------------------------------------------------------- -! returns epsilon machine -! after LAPACK -! replace this by the function from the optimized LAPACK implementation: -! CALL SLAMCH('E') or CALL DLAMCH('E') -!-------------------------------------------------------------- -! USE MOZART_4_Precision - - CHARACTER :: C - INTEGER :: i - REAL(kind=dp), SAVE :: Eps - REAL(kind=dp) :: Suma - REAL(kind=dp), PARAMETER :: ONE=1.0_dp, HALF=0.5_dp - LOGICAL, SAVE :: First=.TRUE. - - IF (First) THEN - First = .FALSE. - Eps = HALF**(16) - DO i = 17, 80 - Eps = Eps*HALF - CALL WLAMCH_ADD(ONE,Eps,Suma) - IF (Suma.LE.ONE) GOTO 10 - END DO - PRINT*,'ERROR IN WLAMCH. EPS < ',Eps - RETURN -10 Eps = Eps*2 - i = i-1 - END IF - - WLAMCH = Eps - - END FUNCTION WLAMCH - - SUBROUTINE WLAMCH_ADD( A, B, Suma ) -! USE MOZART_4_Precision - - REAL(kind=dp) A, B, Suma - Suma = A + B - - END SUBROUTINE WLAMCH_ADD -!-------------------------------------------------------------- - - -!-------------------------------------------------------------- - SUBROUTINE SET2ZERO(N,Y) -!-------------------------------------------------------------- -! copies zeros into the vector y: y <- 0 -! after BLAS -!-------------------------------------------------------------- - - INTEGER :: i,M,MP1,N - REAL(kind=dp) :: Y(N) - REAL(kind=dp), PARAMETER :: ZERO = 0.0d0 - - IF (N.LE.0) RETURN - - M = MOD(N,8) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = ZERO - END DO - IF( N .LT. 8 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,8 - Y(i) = ZERO - Y(i + 1) = ZERO - Y(i + 2) = ZERO - Y(i + 3) = ZERO - Y(i + 4) = ZERO - Y(i + 5) = ZERO - Y(i + 6) = ZERO - Y(i + 7) = ZERO - END DO - - END SUBROUTINE SET2ZERO - - -!-------------------------------------------------------------- - REAL(kind=dp) FUNCTION WDOT (N, DX, incX, DY, incY) -!-------------------------------------------------------------- -! dot produce: wdot = x(1:N)*y(1:N) -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SDOT(N,X,1,Y,1) or CALL DDOT(N,X,1,Y,1) -!-------------------------------------------------------------- -! USE messy_mecca_kpp_Precision -!-------------------------------------------------------------- - IMPLICIT NONE - INTEGER :: N, incX, incY - REAL(kind=dp) :: DX(N), DY(N) - - INTEGER :: i, IX, IY, M, MP1, NS - - WDOT = 0.0D0 - IF (N .LE. 0) RETURN - IF (incX .EQ. incY) IF (incX-1) 5,20,60 -! -! Code for unequal or nonpositive increments. -! - 5 IX = 1 - IY = 1 - IF (incX .LT. 0) IX = (-N+1)*incX + 1 - IF (incY .LT. 0) IY = (-N+1)*incY + 1 - DO i = 1,N - WDOT = WDOT + DX(IX)*DY(IY) - IX = IX + incX - IY = IY + incY - END DO - RETURN -! -! Code for both increments equal to 1. -! -! Clean-up loop so remaining vector length is a multiple of 5. -! - 20 M = MOD(N,5) - IF (M .EQ. 0) GO TO 40 - DO i = 1,M - WDOT = WDOT + DX(i)*DY(i) - END DO - IF (N .LT. 5) RETURN - 40 MP1 = M + 1 - DO i = MP1,N,5 - WDOT = WDOT + DX(i)*DY(i) + DX(i+1)*DY(i+1) + DX(i+2)*DY(i+2) + & - DX(i+3)*DY(i+3) + DX(i+4)*DY(i+4) - END DO - RETURN -! -! Code for equal, positive, non-unit increments. -! - 60 NS = N*incX - DO i = 1,NS,incX - WDOT = WDOT + DX(i)*DY(i) - END DO - - END FUNCTION WDOT - - -!-------------------------------------------------------------- - SUBROUTINE WADD(N,X,Y,Z) -!-------------------------------------------------------------- -! adds two vectors: z <- x + y -! BLAS - like -!-------------------------------------------------------------- -! USE MOZART_4_Precision - - INTEGER :: i, M, MP1, N - REAL(kind=dp) :: X(N),Y(N),Z(N) - - IF (N.LE.0) RETURN - - M = MOD(N,5) - IF( M /= 0 ) THEN - DO i = 1,M - Z(i) = X(i) + Y(i) - END DO - IF( N < 5 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,5 - Z(i) = X(i) + Y(i) - Z(i + 1) = X(i + 1) + Y(i + 1) - Z(i + 2) = X(i + 2) + Y(i + 2) - Z(i + 3) = X(i + 3) + Y(i + 3) - Z(i + 4) = X(i + 4) + Y(i + 4) - END DO - - END SUBROUTINE WADD - - - -!-------------------------------------------------------------- - SUBROUTINE WGEFA(N,A,Ipvt,info) -!-------------------------------------------------------------- -! WGEFA FACTORS THE MATRIX A (N,N) BY -! GAUSS ELIMINATION WITH PARTIAL PIVOTING -! LINPACK - LIKE -!-------------------------------------------------------------- -! - INTEGER :: N,Ipvt(N),info - REAL(kind=dp) :: A(N,N) - REAL(kind=dp) :: t, dmax, da - INTEGER :: j,k,l - REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0 - - info = 0 - -size: IF (n > 1) THEN - -col: DO k = 1, n-1 - -! find l = pivot index -! l = idamax(n-k+1,A(k,k),1) + k - 1 - l = k; dmax = abs(A(k,k)) - DO j = k+1,n - da = ABS(A(j,k)) - IF (da > dmax) THEN - l = j; dmax = da - END IF - END DO - Ipvt(k) = l - -! zero pivot implies this column already triangularized - IF (ABS(A(l,k)) < TINY(ZERO)) THEN - info = k - return - ELSE - IF (l /= k) THEN - t = A(l,k); A(l,k) = A(k,k); A(k,k) = t - END IF - t = -ONE/A(k,k) - CALL WSCAL(n-k,t,A(k+1,k),1) - DO j = k+1, n - t = A(l,j) - IF (l /= k) THEN - A(l,j) = A(k,j); A(k,j) = t - END IF - CALL WAXPY(n-k,t,A(k+1,k),1,A(k+1,j),1) - END DO - END IF - - END DO col - - END IF size - - Ipvt(N) = N - IF (ABS(A(N,N)) == ZERO) info = N - - END SUBROUTINE WGEFA - - -!-------------------------------------------------------------- - SUBROUTINE WGESL(Trans,N,A,Ipvt,b) -!-------------------------------------------------------------- -! WGESL solves the system -! a * x = b or trans(a) * x = b -! using the factors computed by WGEFA. -! -! Trans = 'N' to solve A*x = b , -! = 'T' to solve transpose(A)*x = b -! LINPACK - LIKE -!-------------------------------------------------------------- - - INTEGER :: N,Ipvt(N) - CHARACTER :: trans - REAL(kind=dp) :: A(N,N),b(N) - REAL(kind=dp) :: t - INTEGER :: k,kb,l - - - SELECT CASE (Trans) - - CASE ('n','N') ! Solve A * x = b - -! first solve L*y = b - IF (n >= 2) THEN - DO k = 1, n-1 - l = Ipvt(k) - t = b(l) - IF (l /= k) THEN - b(l) = b(k) - b(k) = t - END IF - CALL WAXPY(n-k,t,a(k+1,k),1,b(k+1),1) - END DO - END IF -! now solve U*x = y - DO kb = 1, n - k = n + 1 - kb - b(k) = b(k)/a(k,k) - t = -b(k) - CALL WAXPY(k-1,t,a(1,k),1,b(1),1) - END DO - - CASE ('t','T') ! Solve transpose(A) * x = b - -! first solve trans(U)*y = b - DO k = 1, n - t = WDOT(k-1,a(1,k),1,b(1),1) - b(k) = (b(k) - t)/a(k,k) - END DO -! now solve trans(L)*x = y - IF (n >= 2) THEN - DO kb = 1, n-1 - k = n - kb - b(k) = b(k) + WDOT(n-k,a(k+1,k),1,b(k+1),1) - l = Ipvt(k) - IF (l /= k) THEN - t = b(l); b(l) = b(k); b(k) = t - END IF - END DO - END IF - - END SELECT - - END SUBROUTINE WGESL -! End of BLAS_UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE MOZART_4_LinearAlgebra - diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_LinearAlgebra.o b/boxmox/compiled_mechs/MOZART_4/MOZART_4_LinearAlgebra.o deleted file mode 100644 index 82036e14dd13a2735fb3ec9c08f64bfeb599ea7d..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/MOZART_4_LinearAlgebra.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Main.f90 b/boxmox/compiled_mechs/MOZART_4/MOZART_4_Main.f90 deleted file mode 100644 index 3c4c48f439a7f5527fd2b23432da02725b3b5c2a..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Main.f90 +++ /dev/null @@ -1,161 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Main Program File -! -! Generated by KPP-2.2.3 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 : MOZART_4_Main.f90 -! Time : Mon Jul 19 09:14:05 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_4_11638_BOXMOX -! Equation file : MOZART_4.kpp -! Output root filename : MOZART_4 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! MAIN - Main program - driver routine -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -PROGRAM MOZART_4_Driver - - USE MOZART_4_Model - USE MOZART_4_Initialize, ONLY: Initialize - - REAL(kind=dp) :: T, DVAL(NSPEC) - REAL(kind=dp) :: RSTATE(20) - INTEGER :: IERR - INTEGER :: i, tcount, ttot - CHARACTER(LEN=60), PARAMETER :: & - brk = "------------------------------------------------------------" - - !~~~> Initialization - - STEPMIN = 0.0d0 - STEPMAX = 0.0d0 - - DO i=1,NVAR - RTOL(i) = 1.0d-4 - ATOL(i) = 1.0d-3 - END DO - - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX (__BOXMOX_VERSION__) driver" - WRITE(*,*) brk - WRITE(*,*) " " - - CALL Initialize() - - WRITE(*,*) brk - WRITE(*,*) " " - - CALL UpdateEnvironment() - - CALL readInput('InitialConditions.csv', NSPEC, SPC_NAMES, C, & - InitialCondition) - CALL InitSaveData() - - CALL InitFixNOx(NSPEC, SPC_NAMES, C) - - !~~~> Time loop - T = TSTART - tcount = 1 - ttot = NINT((TEND - TSTART) / DT) - kron: DO WHILE (T < TEND) - - IF (lverbose) THEN - WRITE(*,*) "" - WRITE(*,"(1X,A,F8.2,A)") "-------------------- time (s): ", T, & - " --------------------" - WRITE(*,*) "" - ENDIF - - TIME = T - CALL GetMass( C, DVAL ) - CALL SaveData() - - CALL UpdateEnvironment() - CALL UpdateAerosol() - CALL UpdatePhotolysisRates() - - CALL UpdateKturb() - - CALL readInput('Background.csv', NSPEC, SPC_NAMES, C, Mix, lzero=.TRUE.) - CALL readInput('Emissions.csv', NSPEC, SPC_NAMES, C, Emission) - CALL readInput('Deposition.csv', NSPEC, SPC_NAMES, C, Deposition) - - CALL Update_SUN() - CALL Update_RCONST() - - IF (T == TSTART) WRITE(*,*) " " - - IF ( MOD(tcount * 10, ttot) .EQ. 0 ) THEN - WRITE(6,991) (T-TSTART)/(TEND-TSTART)*100, T, & - ( TRIM(SPC_NAMES(MONITOR(i))), & - C(MONITOR(i))/CFACTOR, i=1,NMONITOR ) - ENDIF - - IF (lfix_NOx) THEN - CALL FixNOx(NSPEC, SPC_NAMES, C) - ENDIF - - CALL INTEGRATE( TIN = T, TOUT = T+DT, RSTATUS_U = RSTATE, & - ICNTRL_U = (/ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /), & - IERR_U = IERR ) - T = RSTATE(1) - - tcount = tcount + 1 - - IF (IERR < 0) THEN - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX integration failed, stopping." - WRITE(*,*) brk - WRITE(*,*) " " - STOP 1 - ENDIF - - IF (T == TSTART .OR. lverbose) THEN - WRITE(*,*) "" - WRITE(*,*) brk - WRITE(*,*) "" - ENDIF - - END DO kron - !~~~> End Time loop - - CALL GetMass( C, DVAL ) - WRITE(6,991) (T-TSTART)/(TEND-TSTART)*100, T, & - ( TRIM(SPC_NAMES(MONITOR(i))), & - C(MONITOR(i))/CFACTOR, i=1,NMONITOR ) - TIME = T - CALL SaveData() - CALL CloseSaveData() - - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX successfully completed." - WRITE(*,*) brk - WRITE(*,*) " " - -991 FORMAT(F6.1,'%. T=',E9.3,2X,200(A,'=',E11.4,'; ')) - -END PROGRAM MOZART_4_Driver - -! End of MAIN function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Main.o b/boxmox/compiled_mechs/MOZART_4/MOZART_4_Main.o deleted file mode 100644 index a5469fbc8ddacdf20388d3cc7539a28872bbdfe8..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Main.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Model.f90 b/boxmox/compiled_mechs/MOZART_4/MOZART_4_Model.f90 deleted file mode 100644 index 933f8b277b7a3bb3cbb6b2b0e703b59c5f6bebba..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Model.f90 +++ /dev/null @@ -1,21 +0,0 @@ -MODULE MOZART_4_Model - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Completely defines the model MOZART_4 -! by using all the associated modules -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MOZART_4_Precision - USE MOZART_4_Parameters - USE MOZART_4_Global - USE MOZART_4_Function - USE MOZART_4_Integrator - USE MOZART_4_Rates - USE MOZART_4_Jacobian - USE MOZART_4_Stoichiom - USE MOZART_4_LinearAlgebra - USE MOZART_4_Monitor - USE MOZART_4_Util - -END MODULE MOZART_4_Model - diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Model.o b/boxmox/compiled_mechs/MOZART_4/MOZART_4_Model.o deleted file mode 100644 index 4ef44d4be07b2be20a91351e685f09c7a0739781..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Model.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Monitor.f90 b/boxmox/compiled_mechs/MOZART_4/MOZART_4_Monitor.f90 deleted file mode 100644 index 2609e8cc0757a6a4061df1b777417d8b647b0ba1..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Monitor.f90 +++ /dev/null @@ -1,281 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Utility Data Module File -! -! Generated by KPP-2.2.3 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 : MOZART_4_Monitor.f90 -! Time : Mon Jul 19 09:14:05 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_4_11638_BOXMOX -! Equation file : MOZART_4.kpp -! Output root filename : MOZART_4 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MOZART_4_Monitor - - - CHARACTER(LEN=15), PARAMETER, DIMENSION(83) :: SPC_NAMES = (/ & - 'SO4 ','NH3 ','N2O ', & - 'C2H6 ','C3H8 ','BIGENE ', & - 'BIGALK ','SO2 ','H2O2 ', & - 'TOLUENE ','CRESOL ','EO ', & - 'N2O5 ','XOH ','XOOH ', & - 'DMS ','C2H5OH ','CH3OOH ', & - 'H2 ','MACROOH ','C2H5OOH ', & - 'C3H7OOH ','ROOH ','ENEO2 ', & - 'MEKOOH ','HO2NO2 ','C2H4 ', & - 'HYDRALD ','ONIT ','EO2 ', & - 'TOLOOH ','CH3COOOH ','MEK ', & - 'CH3COOH ','POOH ','PAN ', & - 'GLYOXAL ','TERPOOH ','HNO3 ', & - 'CH4 ','CH3OH ','ISOPOOH ', & - 'MPAN ','TOLO2 ','BIGALD ', & - 'C10H16 ','O1D_CB4 ','ALKOOH ', & - 'MEKO2 ','PO2 ','CH3COCH3 ', & - 'O ','ISOPNO3 ','GLYALD ', & - 'ALKO2 ','C2H5O2 ','C3H7O2 ', & - 'CO ','ISOP ','ONITR ', & - 'C3H6 ','CH3CHO ','RO2 ', & - 'TERPO2 ','HYAC ','MACR ', & - 'CH3COCHO ','XO2 ','MVK ', & - 'MACRO2 ','ISOPO2 ','CH2O ', & - 'NO2 ','MCO3 ','OH ', & - 'NO ','CH3O2 ','CH3CO3 ', & - 'HO2 ','NO3 ','O3 ', & - 'H2O ','M ' /) - - INTEGER, PARAMETER, DIMENSION(83) :: LOOKAT = (/ & - 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, & - 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, & - 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, & - 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, & - 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, & - 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, & - 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83 /) - - INTEGER, DIMENSION(1) :: MONITOR - CHARACTER(LEN=15), DIMENSION(1) :: SMASS - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_0 = (/ & - ' M --> 2 O ', & - ' O3 --> O1D_CB4 ', & - ' O3 --> O ', & - ' N2O --> O1D_CB4 ', & - ' NO2 --> O + NO ', & - ' N2O5 --> NO2 + NO3 ', & - ' HNO3 --> NO2 + OH ', & - ' NO3 --> 0.89 NO2 + 0.11 NO + 0.89 O3 ', & - ' HO2NO2 --> 0.66 NO2 + 0.33 OH + 0.66 HO2 + 0.33 NO3 ', & - ' CH3OOH --> CH2O + OH + HO2 ', & - ' CH2O --> CO + 2 HO2 ', & - ' CH2O --> H2 + CO ', & - ' H2O2 --> 2 OH ', & - ' CH3CHO --> CO + CH3O2 + HO2 ', & - ' POOH --> CH3CHO + CH2O + OH + HO2 ', & - ' CH3COOOH --> OH + CH3O2 ', & - ' PAN --> 0.6 NO2 + 0.4 CH3O2 + 0.6 CH3CO3 + 0.4 NO3 ', & - ' MPAN --> NO2 + MCO3 ', & - ' MACR --> 0.67 CO + 0.67 CH2O + 0.33 MCO3 + 0.33 OH + 0.67 CH3CO3 + 0.67 HO2 ', & - ' MVK --> 0.7 CO + 0.7 C3H6 + 0.3 CH3O2 + 0.3 CH3CO3 ', & - ' C2H5OOH --> CH3CHO + OH + HO2 ', & - ' C3H7OOH --> 0.82 CH3COCH3 + OH + HO2 ', & - ' ROOH --> CH2O + OH + CH3CO3 ', & - ' CH3COCH3 --> CH3O2 + CH3CO3 ', & - ' CH3COCHO --> CO + CH3CO3 + HO2 ', & - ' XOOH --> OH ', & - ' ONITR --> CO + CH2O + NO2 + HO2 ', & - ' ISOPOOH --> 0.288 MACR + 0.402 MVK + 0.69 CH2O + HO2 ', & - ' HYAC --> CH2O + CH3CO3 + HO2 ', & - ' GLYALD --> CO + CH2O + 2 HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_1 = (/ & - ' MEK --> C2H5O2 + CH3CO3 ', & - ' BIGALD --> 0.13 GLYOXAL + 0.45 CO + 0.18 CH3COCHO + 0.13 CH3CO3 + 0.56 HO2 ', & - ' GLYOXAL --> 2 CO + 2 HO2 ', & - ' ALKOOH --> 0.8 MEK + 0.25 CH3COCH3 + 0.4 CH3CHO + 0.1 CH2O + OH + 0.9 HO2 ', & - ' MEKOOH --> CH3CHO + OH + CH3CO3 ', & - ' TOLOOH --> 0.45 GLYOXAL + 0.9 BIGALD + 0.45 CH3COCHO + OH ', & - ' TERPOOH --> 0.1 CH3COCH3 + MACR + MVK + OH + HO2 ', & - ' O + M --> O3 ', & - ' O + O3 --> M ', & - ' O1D_CB4 + M --> O ', & - ' O1D_CB4 + H2O --> 2 OH ', & - ' H2 + O1D_CB4 --> OH + HO2 ', & - ' H2 + OH --> HO2 + H2O ', & - ' O + OH --> HO2 ', & - ' O + HO2 --> OH ', & - ' OH + O3 --> HO2 ', & - ' HO2 + O3 --> OH ', & - ' 2 HO2 + H2O --> H2O2 ', & - ' H2O2 + OH --> HO2 + H2O ', & - ' OH + HO2 --> H2O ', & - ' 2 OH --> O + H2O ', & - ' 2 OH --> H2O2 ', & - ' N2O + O1D_CB4 --> 2 NO ', & - ' N2O + O1D_CB4 --> M ', & - ' NO + HO2 --> NO2 + OH ', & - ' NO + O3 --> NO2 ', & - ' O + NO2 --> NO ', & - ' NO2 + O3 --> NO3 ', & - ' HO2 + NO3 --> NO2 + OH ', & - ' NO2 + NO3 --> N2O5 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_2 = (/ & - ' N2O5 --> NO2 + NO3 ', & - ' NO2 + OH --> HNO3 ', & - ' HNO3 + OH --> NO3 + H2O ', & - ' NO + NO3 --> 2 NO2 ', & - ' NO2 + HO2 --> HO2NO2 ', & - ' HO2NO2 + OH --> NO2 + H2O ', & - ' HO2NO2 --> NO2 + HO2 ', & - ' N2O5 + M --> 2 HNO3 ', & - ' NO3 --> HNO3 ', & - ' NO2 --> 0.5 HNO3 + 0.5 OH + 0.5 NO ', & - ' CH4 + OH --> CH3O2 + H2O ', & - ' CH4 + O1D_CB4 --> 0.05 H2 + 0.25 CH2O + 0.75 OH + 0.75 CH3O2 + 0.4 HO2 ', & - ' NO + CH3O2 --> CH2O + NO2 + HO2 ', & - ' 2 CH3O2 --> 2 CH2O + 2 HO2 ', & - ' 2 CH3O2 --> CH3OH + CH2O ', & - ' CH3O2 + HO2 --> CH3OOH ', & - ' CH3OOH + OH --> 0.3 CH2O + 0.3 OH + 0.7 CH3O2 + H2O ', & - ' CH2O + NO3 --> HNO3 + CO + HO2 ', & - ' CH2O + OH --> CO + HO2 + H2O ', & - ' CO + OH --> HO2 ', & - ' C2H4 + OH --> 0.75 EO2 + 0.5 CH2O + 0.25 HO2 ', & - ' C2H4 + O3 --> 0.25 CH3COOH + 0.5 CO + CH2O + 0.12 OH + 0.12 HO2 ', & - ' SO2 + OH --> SO4 ', & - ' GLYOXAL + OH --> CO + HO2 ', & - ' EO2 + NO --> EO + NO2 ', & - ' EO + M --> GLYALD + HO2 ', & - ' EO --> 2 CH2O + HO2 ', & - ' C2H6 + OH --> C2H5O2 ', & - ' C2H5O2 + NO --> CH3CHO + NO2 + HO2 ', & - ' C2H5O2 + HO2 --> C2H5OOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_3 = (/ & - ' C2H5O2 + CH3O2 --> 0.2 C2H5OH + 0.3 CH3OH + 0.8 CH3CHO + 0.7 CH2O + HO2 ', & - ' C2H5OOH + OH --> 0.5 C2H5O2 + 0.5 CH3CHO + 0.5 OH ', & - ' C3H6 + OH --> PO2 ', & - ' C3H6 + O3 --> 0.25 CH3COOH + 0.08 CH4 + 0.56 CO + 0.5 CH3CHO + 0.54 CH2O + 0.33 OH + 0.31 CH3O2 + 0.19 HO2 ', & - ' C3H6 + NO3 --> ONIT ', & - ' PO2 + NO --> CH3CHO + CH2O + NO2 + HO2 ', & - ' PO2 + HO2 --> POOH ', & - ' POOH + OH --> 0.5 PO2 + 0.5 HYAC + 0.5 OH ', & - ' CH3CHO + OH --> CH3CO3 ', & - ' CH3CHO + NO3 --> HNO3 + CH3CO3 ', & - ' NO + CH3CO3 --> NO2 + CH3O2 ', & - ' NO2 + CH3CO3 --> PAN ', & - ' CH3CO3 + HO2 --> 0.75 CH3COOOH + 0.25 CH3COOH + 0.25 O3 ', & - ' CH3O2 + CH3CO3 --> 0.1 CH3COOH + CH2O + 0.9 CH3O2 + 0.9 HO2 ', & - ' CH3COOOH + OH --> 0.5 CH2O + 0.5 CH3CO3 ', & - ' PAN --> NO2 + CH3CO3 ', & - ' 2 CH3CO3 --> 2 CH3O2 ', & - ' C3H8 + OH --> C3H7O2 ', & - ' C3H7O2 + NO --> 0.82 CH3COCH3 + 0.27 CH3CHO + NO2 + HO2 ', & - ' C3H7O2 + HO2 --> C3H7OOH ', & - ' C3H7O2 + CH3O2 --> 0.82 CH3COCH3 + CH2O + HO2 ', & - ' C3H7OOH + OH --> C3H7O2 ', & - ' CH3COCH3 + OH --> RO2 ', & - ' RO2 + NO --> CH2O + NO2 + CH3CO3 ', & - ' RO2 + HO2 --> ROOH ', & - ' RO2 + CH3O2 --> 0.5 CH3OH + 0.2 HYAC + 0.5 CH3COCHO + 0.8 CH2O + 0.3 CH3CO3 + 0.3 HO2 ', & - ' ROOH + OH --> RO2 ', & - ' BIGENE + OH --> ENEO2 ', & - ' ENEO2 + NO --> 0.5 CH3COCH3 + CH3CHO + 0.5 CH2O + NO2 + HO2 ', & - ' BIGALK + OH --> ALKO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_4 = (/ & - ' ALKO2 + NO --> 0.1 ONIT + 0.75 MEK + 0.25 CH3COCH3 + 0.4 CH3CHO + 0.1 CH2O + 0.9 NO2 + 0.9 HO2 ', & - ' ALKO2 + HO2 --> ALKOOH ', & - ' ALKOOH + OH --> ALKO2 ', & - ' ONIT + OH --> CH3COCHO + NO2 ', & - ' MEK + OH --> MEKO2 ', & - ' MEKO2 + NO --> CH3CHO + NO2 + CH3CO3 ', & - ' MEKO2 + HO2 --> MEKOOH ', & - ' MEKOOH + OH --> MEKO2 ', & - ' TOLUENE + OH --> 0.25 CRESOL + 0.7 TOLO2 + 0.25 HO2 ', & - ' CRESOL + OH --> XOH ', & - ' XOH + NO2 --> 0.7 BIGALD + 0.7 NO2 + 0.7 HO2 ', & - ' TOLO2 + NO --> 0.45 GLYOXAL + 0.9 BIGALD + 0.45 CH3COCHO + 0.9 NO2 + 0.9 HO2 ', & - ' TOLO2 + HO2 --> TOLOOH ', & - ' TOLOOH + OH --> TOLO2 ', & - ' ISOP + OH --> ISOPO2 ', & - ' ISOP + O3 --> 0.2 CH3COOH + 0.3 CO + 0.07 C3H6 + 0.4 MACR + 0.2 MVK + 0.6 CH2O + 0.2 MCO3 + 0.27 OH + 0.06 HO2 + 0.1 O3 ', & - ' ISOPO2 + NO --> 0.37 HYDRALD + 0.08 ONITR + 0.23 MACR + 0.32 MVK + 0.55 CH2O + 0.92 NO2 + HO2 ', & - ' ISOPO2 + NO3 --> 0.4 HYDRALD + 0.25 MACR + 0.35 MVK + 0.6 CH2O + NO2 + HO2 ', & - ' ISOPO2 + HO2 --> ISOPOOH ', & - ' ISOPOOH + OH --> 0.5 XO2 + 0.5 ISOPO2 ', & - ' ISOPO2 + CH3O2 --> 0.3 HYDRALD + 0.25 CH3OH + 0.19 MACR + 0.26 MVK + 1.2 CH2O + HO2 ', & - 'ISOPO2 + CH3CO3 --> 0.4 HYDRALD + 0.25 MACR + 0.35 MVK + 0.6 CH2O + CH3O2 + HO2 ', & - ' MVK + OH --> MACRO2 ', & - ' MVK + O3 --> 0.05 CO + 0.04 CH3CHO + 0.95 CH3COCHO + 0.8 CH2O + 0.08 OH + 0.06 HO2 + 0.2 O3 ', & - ' MACR + OH --> 0.5 MACRO2 + 0.5 MCO3 ', & - ' MACR + O3 --> 0.2 CO + 0.8 CH3COCHO + 0.7 CH2O + 0.215 OH + 0.275 HO2 + 0.2 O3 ', & - ' MACRO2 + NO --> 0.53 GLYALD + 0.22 CO + 0.22 HYAC + 0.25 CH3COCHO + 0.25 CH2O + NO2 + 0.53 CH3CO3 + 0.47 HO2 ', & - ' MACRO2 + NO --> 0.8 ONITR ', & - ' MACRO2 + NO3 --> 0.53 GLYALD + 0.22 CO + 0.22 HYAC + 0.25 CH3COCHO + 0.25 CH2O + NO2 + 0.53 CH3CO3 + 0.47 HO2 ', & - ' MACRO2 + HO2 --> MACROOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_5 = (/ & - ' MACRO2 + CH3O2 --> 0.25 CH3OH + 0.26 GLYALD + 0.11 CO + 0.23 HYAC + 0.24 CH3COCHO + 0.88 CH2O + 0.26 CH3CO3 + 0.73 HO2 ', & - 'MACRO2 + CH3CO3 --> 0.53 GLYALD + 0.22 CO + 0.22 HYAC + 0.25 CH3COCHO + 0.25 CH2O + CH3O2 + 0.53 CH3CO3 + 0.47 HO2 ', & - ' MACROOH + OH --> 0.2 MACRO2 + 0.5 MCO3 + 0.1 OH + 0.2 HO2 ', & - ' MCO3 + NO --> CH2O + NO2 + CH3CO3 ', & - ' MCO3 + NO3 --> CH2O + NO2 + CH3CO3 ', & - ' MCO3 + HO2 --> 0.75 CH3COOOH + 0.25 CH3COOH + 0.25 O3 ', & - ' MCO3 + CH3O2 --> 2 CH2O + CH3CO3 + HO2 ', & - ' MCO3 + CH3CO3 --> CH2O + CH3O2 + CH3CO3 ', & - ' 2 MCO3 --> 2 CH2O + 2 CH3CO3 ', & - ' NO2 + MCO3 + M --> MPAN ', & - ' MPAN + M --> NO2 + MCO3 ', & - ' C10H16 + OH --> TERPO2 ', & - ' C10H16 + O3 --> MACR + MVK + 0.7 OH + HO2 ', & - ' C10H16 + NO3 --> TERPO2 + NO2 ', & - ' TERPO2 + NO --> 0.1 CH3COCH3 + MACR + MVK + NO2 + HO2 ', & - ' TERPO2 + HO2 --> TERPOOH ', & - ' TERPOOH + OH --> TERPO2 ', & - ' CH3COOH + OH --> CH3O2 ', & - ' ISOP + NO3 --> ISOPNO3 ', & - ' ISOPNO3 + NO --> 0.794 ONITR + 0.167 MACR + 0.039 MVK + 0.072 CH2O + 1.206 NO2 + 0.794 HO2 ', & - ' ISOPNO3 + NO3 --> 0.794 ONITR + 0.167 MACR + 0.039 MVK + 0.072 CH2O + 1.206 NO2 + 0.794 HO2 ', & - ' ISOPNO3 + HO2 --> 0.794 ONITR + 0.167 MACR + 0.039 MVK + 0.008 CH2O + 0.206 NO2 + 0.794 HO2 ', & - ' CH3COCHO + OH --> CO + CH3CO3 ', & - ' CH3COCHO + NO3 --> HNO3 + CO + CH3CO3 ', & - ' ONITR + OH --> HYDRALD + 0.4 NO2 + HO2 ', & - ' ONITR + NO3 --> HYDRALD + NO2 + HO2 ', & - ' HYDRALD + OH --> XO2 ', & - ' XO2 + NO --> 0.25 GLYALD + CO + 0.25 HYAC + 0.25 CH3COCHO + NO2 + 1.5 HO2 ', & - ' XO2 + NO3 --> 0.25 GLYALD + CO + 0.25 HYAC + 0.25 CH3COCHO + NO2 + 1.5 HO2 ', & - ' XO2 + HO2 --> XOOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(16) :: EQN_NAMES_6 = (/ & - ' XO2 + CH3O2 --> 0.3 CH3OH + 0.1 GLYALD + 0.4 CO + 0.1 HYAC + 0.1 CH3COCHO + 0.7 CH2O + HO2 ', & - ' XO2 + CH3CO3 --> 0.25 GLYALD + CO + 0.25 HYAC + 0.25 CH3COCHO + CH3O2 + 1.5 HO2 ', & - ' XOOH + OH --> XO2 ', & - ' XOOH + OH --> OH ', & - ' CH3OH + OH --> CH2O + HO2 ', & - ' C2H5OH + OH --> CH3CHO + HO2 ', & - ' MPAN + OH --> 0.5 HYAC + 0.5 CH2O + 0.5 HO2 + 0.5 NO3 ', & - ' PAN + OH --> CH2O + NO3 ', & - ' HYAC + OH --> CH3COCHO + HO2 ', & - ' GLYALD + OH --> 0.2 GLYOXAL + 0.8 CH2O + HO2 ', & - ' DMS + OH --> SO2 ', & - ' DMS + OH --> 0.5 SO2 + 0.5 HO2 ', & - ' DMS + NO3 --> SO2 + HNO3 ', & - ' NH3 + OH --> M ', & - ' HO2 --> 0.5 H2O2 ', & - ' 2 C2H5O2 --> 0.4 C2H5OH + 1.6 CH3CHO + 1.2 HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(196) :: EQN_NAMES = (/& - EQN_NAMES_0, EQN_NAMES_1, EQN_NAMES_2, EQN_NAMES_3, EQN_NAMES_4, & - EQN_NAMES_5, EQN_NAMES_6 /) - -! INLINED global variables - -! End INLINED global variables - - -END MODULE MOZART_4_Monitor diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Monitor.o b/boxmox/compiled_mechs/MOZART_4/MOZART_4_Monitor.o deleted file mode 100644 index bb6f5a7a549f6740da916a525f05d9831b2ba3f6..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Monitor.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Parameters.f90 b/boxmox/compiled_mechs/MOZART_4/MOZART_4_Parameters.f90 deleted file mode 100644 index f087627e1f1e79a557981f4080dcbe5d82b56803..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Parameters.f90 +++ /dev/null @@ -1,165 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Parameter Module File -! -! Generated by KPP-2.2.3 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 : MOZART_4_Parameters.f90 -! Time : Mon Jul 19 09:14:05 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_4_11638_BOXMOX -! Equation file : MOZART_4.kpp -! Output root filename : MOZART_4 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MOZART_4_Parameters - - USE MOZART_4_Precision - PUBLIC - SAVE - - -! NSPEC - Number of chemical species - INTEGER, PARAMETER :: NSPEC = 83 -! NVAR - Number of Variable species - INTEGER, PARAMETER :: NVAR = 81 -! NVARACT - Number of Active species - INTEGER, PARAMETER :: NVARACT = 80 -! NFIX - Number of Fixed species - INTEGER, PARAMETER :: NFIX = 2 -! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 196 -! NVARST - Starting of variables in conc. vect. - INTEGER, PARAMETER :: NVARST = 1 -! NFIXST - Starting of fixed in conc. vect. - INTEGER, PARAMETER :: NFIXST = 82 -! NONZERO - Number of nonzero entries in Jacobian - INTEGER, PARAMETER :: NONZERO = 740 -! LU_NONZERO - Number of nonzero entries in LU factoriz. of Jacobian - INTEGER, PARAMETER :: LU_NONZERO = 837 -! CNVAR - (NVAR+1) Number of elements in compressed row format - INTEGER, PARAMETER :: CNVAR = 82 -! CNEQN - (NREACT+1) Number stoicm elements in compressed col format - INTEGER, PARAMETER :: CNEQN = 197 -! NLOOKAT - Number of species to look at - INTEGER, PARAMETER :: NLOOKAT = 83 -! NMONITOR - Number of species to monitor - INTEGER, PARAMETER :: NMONITOR = 0 -! NMASS - Number of atoms to check mass balance - INTEGER, PARAMETER :: NMASS = 1 - -! Index declaration for variable species in C and VAR -! VAR(ind_spc) = C(ind_spc) - - INTEGER, PARAMETER :: ind_SO4 = 1 - INTEGER, PARAMETER :: ind_NH3 = 2 - INTEGER, PARAMETER :: ind_N2O = 3 - INTEGER, PARAMETER :: ind_C2H6 = 4 - INTEGER, PARAMETER :: ind_C3H8 = 5 - INTEGER, PARAMETER :: ind_BIGENE = 6 - INTEGER, PARAMETER :: ind_BIGALK = 7 - INTEGER, PARAMETER :: ind_SO2 = 8 - INTEGER, PARAMETER :: ind_H2O2 = 9 - INTEGER, PARAMETER :: ind_TOLUENE = 10 - INTEGER, PARAMETER :: ind_CRESOL = 11 - INTEGER, PARAMETER :: ind_EO = 12 - INTEGER, PARAMETER :: ind_N2O5 = 13 - INTEGER, PARAMETER :: ind_XOH = 14 - INTEGER, PARAMETER :: ind_XOOH = 15 - INTEGER, PARAMETER :: ind_DMS = 16 - INTEGER, PARAMETER :: ind_C2H5OH = 17 - INTEGER, PARAMETER :: ind_CH3OOH = 18 - INTEGER, PARAMETER :: ind_H2 = 19 - INTEGER, PARAMETER :: ind_MACROOH = 20 - INTEGER, PARAMETER :: ind_C2H5OOH = 21 - INTEGER, PARAMETER :: ind_C3H7OOH = 22 - INTEGER, PARAMETER :: ind_ROOH = 23 - INTEGER, PARAMETER :: ind_ENEO2 = 24 - INTEGER, PARAMETER :: ind_MEKOOH = 25 - INTEGER, PARAMETER :: ind_HO2NO2 = 26 - INTEGER, PARAMETER :: ind_C2H4 = 27 - INTEGER, PARAMETER :: ind_HYDRALD = 28 - INTEGER, PARAMETER :: ind_ONIT = 29 - INTEGER, PARAMETER :: ind_EO2 = 30 - INTEGER, PARAMETER :: ind_TOLOOH = 31 - INTEGER, PARAMETER :: ind_CH3COOOH = 32 - INTEGER, PARAMETER :: ind_MEK = 33 - INTEGER, PARAMETER :: ind_CH3COOH = 34 - INTEGER, PARAMETER :: ind_POOH = 35 - INTEGER, PARAMETER :: ind_PAN = 36 - INTEGER, PARAMETER :: ind_GLYOXAL = 37 - INTEGER, PARAMETER :: ind_TERPOOH = 38 - INTEGER, PARAMETER :: ind_HNO3 = 39 - INTEGER, PARAMETER :: ind_CH4 = 40 - INTEGER, PARAMETER :: ind_CH3OH = 41 - INTEGER, PARAMETER :: ind_ISOPOOH = 42 - INTEGER, PARAMETER :: ind_MPAN = 43 - INTEGER, PARAMETER :: ind_TOLO2 = 44 - INTEGER, PARAMETER :: ind_BIGALD = 45 - INTEGER, PARAMETER :: ind_C10H16 = 46 - INTEGER, PARAMETER :: ind_O1D_CB4 = 47 - INTEGER, PARAMETER :: ind_ALKOOH = 48 - INTEGER, PARAMETER :: ind_MEKO2 = 49 - INTEGER, PARAMETER :: ind_PO2 = 50 - INTEGER, PARAMETER :: ind_CH3COCH3 = 51 - INTEGER, PARAMETER :: ind_O = 52 - INTEGER, PARAMETER :: ind_ISOPNO3 = 53 - INTEGER, PARAMETER :: ind_GLYALD = 54 - INTEGER, PARAMETER :: ind_ALKO2 = 55 - INTEGER, PARAMETER :: ind_C2H5O2 = 56 - INTEGER, PARAMETER :: ind_C3H7O2 = 57 - INTEGER, PARAMETER :: ind_CO = 58 - INTEGER, PARAMETER :: ind_ISOP = 59 - INTEGER, PARAMETER :: ind_ONITR = 60 - INTEGER, PARAMETER :: ind_C3H6 = 61 - INTEGER, PARAMETER :: ind_CH3CHO = 62 - INTEGER, PARAMETER :: ind_RO2 = 63 - INTEGER, PARAMETER :: ind_TERPO2 = 64 - INTEGER, PARAMETER :: ind_HYAC = 65 - INTEGER, PARAMETER :: ind_MACR = 66 - INTEGER, PARAMETER :: ind_CH3COCHO = 67 - INTEGER, PARAMETER :: ind_XO2 = 68 - INTEGER, PARAMETER :: ind_MVK = 69 - INTEGER, PARAMETER :: ind_MACRO2 = 70 - INTEGER, PARAMETER :: ind_ISOPO2 = 71 - INTEGER, PARAMETER :: ind_CH2O = 72 - INTEGER, PARAMETER :: ind_NO2 = 73 - INTEGER, PARAMETER :: ind_MCO3 = 74 - INTEGER, PARAMETER :: ind_OH = 75 - INTEGER, PARAMETER :: ind_NO = 76 - INTEGER, PARAMETER :: ind_CH3O2 = 77 - INTEGER, PARAMETER :: ind_CH3CO3 = 78 - INTEGER, PARAMETER :: ind_HO2 = 79 - INTEGER, PARAMETER :: ind_NO3 = 80 - INTEGER, PARAMETER :: ind_O3 = 81 - -! Index declaration for fixed species in C -! C(ind_spc) - - INTEGER, PARAMETER :: ind_H2O = 82 - INTEGER, PARAMETER :: ind_M = 83 - -! Index declaration for fixed species in FIX -! FIX(indf_spc) = C(ind_spc) = C(NVAR+indf_spc) - - INTEGER, PARAMETER :: indf_H2O = 1 - INTEGER, PARAMETER :: indf_M = 2 - -! NJVRP - Length of sparse Jacobian JVRP - INTEGER, PARAMETER :: NJVRP = 333 - -! NSTOICM - Length of Sparse Stoichiometric Matrix - INTEGER, PARAMETER :: NSTOICM = 821 - -END MODULE MOZART_4_Parameters - diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Parameters.o b/boxmox/compiled_mechs/MOZART_4/MOZART_4_Parameters.o deleted file mode 100644 index b47a91f17a3d1e0458276956cb791445e5f2bce1..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Parameters.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Precision.f90 b/boxmox/compiled_mechs/MOZART_4/MOZART_4_Precision.f90 deleted file mode 100644 index 28062535c04126d4f1c1f548a29bfe96f45cce53..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Precision.f90 +++ /dev/null @@ -1,17 +0,0 @@ - -MODULE MOZART_4_Precision - -! -! Definition of different levels of accuracy -! for REAL variables using KIND parameterization -! -! KPP SP - Single precision kind - INTEGER, PARAMETER :: sp = SELECTED_REAL_KIND(6,30) -! KPP DP - Double precision kind - INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(14,300) -! KPP QP - Quadruple precision kind - INTEGER, PARAMETER :: qp = SELECTED_REAL_KIND(18,400) - -END MODULE MOZART_4_Precision - - diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Precision.o b/boxmox/compiled_mechs/MOZART_4/MOZART_4_Precision.o deleted file mode 100644 index 3151c420cdbd29fa5910590050dcc925cf44f3b5..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Precision.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Rates.f90 b/boxmox/compiled_mechs/MOZART_4/MOZART_4_Rates.f90 deleted file mode 100644 index d6e47e3f6cd0c8fe1d88e39fc40de761db97deaa..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Rates.f90 +++ /dev/null @@ -1,777 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The Reaction Rates File -! -! Generated by KPP-2.2.3 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 : MOZART_4_Rates.f90 -! Time : Mon Jul 19 09:14:05 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_4_11638_BOXMOX -! Equation file : MOZART_4.kpp -! Output root filename : MOZART_4 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MOZART_4_Rates - - USE MOZART_4_Parameters - USE MOZART_4_Global - USE MOZART_4_Util - IMPLICIT NONE - -CONTAINS - - - -! Begin Rate Law Functions from KPP_HOME/util/UserRateLaws - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! User-defined Rate Law functions -! Note: the default argument type for rate laws, as read from the equations file, is single precision -! but all the internal calculations are performed in double precision -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~> Arrhenius -! REAL(kind=dp) FUNCTION ARR( A0,B0,C0 ) -! REAL A0,B0,C0 -! ARR = DBLE(A0) * EXP(-DBLE(B0)/TEMP) * (TEMP/300.0_dp)**DBLE(C0) -! END FUNCTION ARR - -! Arrhenius (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION ARR( A0,B0,C0, TEMP ) - REAL(kind=dp) :: TEMP - REAL(kind=dp) A0,B0,C0 - ARR = A0 * EXP( -B0 /TEMP ) * (TEMP/300._dp)**C0 - END FUNCTION ARR - -!~~~> Simplified Arrhenius, with two arguments -!~~~> Note: The argument B0 has a changed sign when compared to ARR -! REAL(kind=dp) FUNCTION ARR2( A0,B0 ) -! REAL A0,B0 -! ARR2 = DBLE(A0) * EXP( DBLE(B0)/TEMP ) -! END FUNCTION ARR2 -! CK 20140313 WRF-chem uses different kind of Arrhenius function -! with TEMP as argument... - REAL(kind=dp) FUNCTION ARR2( A0,B0, TEMP ) - REAL(kind=dp) :: TEMP - REAL(kind=dp) A0,B0 - ARR2 = A0 * EXP( -B0 /TEMP ) - END FUNCTION ARR2 -! CK 20140313 end - -! REAL(kind=dp) FUNCTION EP2(A0,C0,A2,C2,A3,C3) -! REAL A0,C0,A2,C2,A3,C3 -! REAL(kind=dp) K0,K2,K3 -! K0 = DBLE(A0) * EXP(-DBLE(C0)/TEMP) -! K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP) -! K3 = DBLE(A3) * EXP(-DBLE(C3)/TEMP) -! K3 = K3*CFACTOR*1.0E6_dp -! EP2 = K0 + K3/(1.0_dp+K3/K2 ) -! END FUNCTION EP2 - -! REAL(kind=dp) FUNCTION EP3(A1,C1,A2,C2) -! REAL A1, C1, A2, C2 -! REAL(kind=dp) K1, K2 -! K1 = DBLE(A1) * EXP(-DBLE(C1)/TEMP) -! K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP) -! EP3 = K1 + K2*(1.0E6_dp*CFACTOR) -! END FUNCTION EP3 - -! EP2 (added by psaide 22-07-2009) - REAL(kind=dp) FUNCTION EP2( A0,C0,A2,C2,A3,C3,TEMP,cair) - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A0,C0,A2,C2,A3,C3 - REAL(kind=dp) K0,K2,K3 - - K0 = A0 * EXP(-C0 /TEMP) - K2 = A2 * EXP(-C2 /TEMP) - K3 = A3 * EXP(-C3 /TEMP) -! K3 = K3 * 2.45E13_dp * 1.0E6_dp - K3 = K3 * cair - EP2 = K0 + K3/(1._dp+K3/K2 ) - END FUNCTION EP2 - -! EP3 (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION EP3(A1,C1,A2,C2,TEMP,cair) - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A1, C1, A2, C2 - REAL(kind=dp) K1, K2 - - K1 = A1 * EXP(-C1 /TEMP) - K2 = A2 * EXP(-C2 /TEMP) -! EP3 = K1 + K2*(1.0E6_dp * 2.45E13_dp) - EP3 = K1 + K2*cair - END FUNCTION EP3 - - -! REAL(kind=dp) FUNCTION FALL ( A0,B0,C0,A1,B1,C1,CF) -! REAL A0,B0,C0,A1,B1,C1,CF -! REAL(kind=dp) K0, K1 -! K0 = DBLE(A0) * EXP(-DBLE(B0)/TEMP)* (TEMP/300.0_dp)**DBLE(C0) -! K1 = DBLE(A1) * EXP(-DBLE(B1)/TEMP)* (TEMP/300.0_dp)**DBLE(C1) -! K0 = K0*CFACTOR*1.0E6_dp -! K1 = K0/K1 -! FALL = (K0/(1.0_dp+K1))* & -! DBLE(CF)**(1.0_dp/(1.0_dp+(LOG10(K1))**2)) -! END FUNCTION FALL - -! FALL (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION FALL( A0,B0,C0,A1,B1,C1,CF,TEMP,cair) - - INTRINSIC LOG10 - - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A0,B0,C0,A1,B1,C1,CF - REAL(kind=dp) K0, K1 - - K0 = A0 * EXP(-B0 /TEMP)* (TEMP/300._dp)**C0 - K1 = A1 * EXP(-B1 /TEMP)* (TEMP/300._dp)**C1 -! K0 = K0 * 2.45E13_dp * 1.0E6_dp - K0 = K0 * cair - K1 = K0/K1 - FALL = (K0/(1._dp+K1))*CF**(1._dp/(1._dp+(LOG10(K1))**2)) - - END FUNCTION FALL - -! FALL2 (added by psaide 28-10-2009) - REAL(KIND=dp) FUNCTION F2( A0,B0,C0,A1,B1,C1,CF,CN,TEMP,cair) - - INTRINSIC LOG10 - - REAL(KIND=dp) :: TEMP - REAL(KIND=dp) :: cair - REAL(KIND=dp) A0,B0,C0,A1,B1,C1,CF,CN - REAL(KIND=dp) K0, K1 - - K0 = A0 * EXP(-B0 /TEMP)* (TEMP/300._dp)**C0 - K1 = A1 * EXP(-B1 /TEMP)* (TEMP/300._dp)**C1 -! K0 = K0 * 2.45E13_dp * 1.0E6_dp - K0 = K0 * cair - K1 = K0/K1 - F2 = (K0/(1._dp+K1))*CF**(1._dp/(1._dp+(LOG10(K1)/CN)**2)) - - END FUNCTION F2 - - - !--------------------------------------------------------------------------- - - ELEMENTAL REAL(kind=dp) FUNCTION k_3rd(temp,cair,k0_300K,n,kinf_300K,m,fc) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL, INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL, INTENT(IN) :: n ! exponent for low pressure limit - REAL, INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL, INTENT(IN) :: m ! exponent for high pressure limit - REAL, INTENT(IN) :: fc ! broadening factor (usually fc=0.6) - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - k_3rd = k0_T/(1._dp+k_ratio)*fc**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - END FUNCTION k_3rd - - !--------------------------------------------------------------------------- - - ELEMENTAL REAL(kind=dp) FUNCTION k_arr (k_298,tdep,temp) - ! Arrhenius function - - REAL, INTENT(IN) :: k_298 ! k at T = 298.15K - REAL, INTENT(IN) :: tdep ! temperature dependence - REAL(kind=dp), INTENT(IN) :: temp ! temperature - - INTRINSIC EXP - - k_arr = k_298 * EXP(tdep*(1._dp/temp-3.3540E-3_dp)) ! 1/298.15=3.3540e-3 - - END FUNCTION k_arr - -! CK 20140313 in the following some more rate functions needed by -! WRF-chem packages - -!------------------------------------ -! Troe reactions (as in Stockwell et al, 1997) - - REAL(kind=dp) FUNCTION TROE(k0_300K,n,kinf_300K,m,temp,cair) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - TROE = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - END FUNCTION TROE - - - -!------------------------------------------- -! Troe equilibrium reactions (as in Stockwell et al, 1997) - - REAL(kind=dp) FUNCTION TROEE(A, B, k0_300K,n,kinf_300K,m,temp,cair) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - REAL(kind=dp), INTENT(IN) :: A, B - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio, troe - - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - troe = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - TROEE = A * EXP( - B / temp) * troe - - - - END FUNCTION TROEE - -!------------------------ -! k=T^2 C exp (-D/T) reactions - - REAL(kind=dp) FUNCTION THERMAL_T2(c, d ,temp) - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: c, d - - - THERMAL_T2= temp**2._dp * c * EXP(- d / temp) - - END FUNCTION THERMAL_T2 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! End of User-defined Rate Law functions -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -! End Rate Law Functions from KPP_HOME/util/UserRateLaws - - -! Begin INLINED Rate Law Functions - - - -! **************************************************************************** -! J - the photolysis rate retrieval function -! **************************************************************************** - REAL(kind=dp) FUNCTION J(name) - - CHARACTER(LEN=*), INTENT(IN) :: name - - CHARACTER(LEN=15) :: xname - - INTEGER :: i - - xname(:) = " " - xname(1:LEN(name)) = name - - J = jvalues(hash(xname)) - - RETURN - - END FUNCTION J -! **************************************************************************** - - - -REAL(kind=dp) FUNCTION JPL_TROE( k0_300K, n, kinf_300K, m, base, temp, cair ) - -!------------------------------------------------------------ -! ... dummy arguments -!------------------------------------------------------------ - REAL(kind=dp), INTENT(IN) :: base ! base expononent - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - -!------------------------------------------------------------ -! ... local variables -!------------------------------------------------------------ - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - - JPL_TROE = k0_T/(1._dp + k_ratio)*base**(1._dp/(1._dp + LOG10(k_ratio)**2)) - -END FUNCTION JPL_TROE - -REAL(KIND=dp) FUNCTION usr5( temp, c_m ) - - REAL(KIND=dp), INTENT(IN) :: temp - REAL(KIND=dp), INTENT(IN) :: c_m - - REAL(KIND=dp) :: k0, k2 - - k0 = c_m * 6.5e-34_dp * exp( 1335._dp/temp ) - k2 = exp( 2199._dp/temp ) - k0 = k0 /(1.0_dp + k0/(2.7e-17_dp*k2)) - k2 = exp( 460._dp/temp ) - - usr5 = k0 + 2.4e-14_dp * k2 - -END FUNCTION usr5 - -REAL(KIND=dp) FUNCTION usr8( temp, c_m ) - - REAL(KIND=dp), INTENT(IN) :: temp - REAL(KIND=dp), INTENT(IN) :: c_m - - REAL(KIND=dp), parameter :: boltz = 1.38044e-16_dp - - usr8 = 1.5e-13_dp * (1._dp + 6.e-7_dp*boltz*c_m*temp) - -END FUNCTION usr8 - -REAL(KIND=dp) FUNCTION usr9( temp, c_m, c_h2o ) - - REAL(KIND=dp), INTENT(IN) :: temp - REAL(KIND=dp), INTENT(IN) :: c_m - REAL(KIND=dp), INTENT(IN) :: c_h2o - - REAL(KIND=dp) :: ko, kinf, fc - - if( c_h2o > 0._dp ) then - ko = 2.3e-13_dp * exp( 600._dp/temp ) - kinf = 1.7e-33_dp * c_m * exp( 1000._dp/temp ) - fc = 1._dp/c_h2o + 1.4e-21_dp * exp( 2200._dp/temp ) - usr9 = (ko + kinf) * fc - else - usr9 = 0._dp - end if - -END FUNCTION usr9 - -REAL(KIND=dp) FUNCTION usr16( rh, temp ) - - REAL(KIND=dp), INTENT(IN) :: rh ! relative humidity - REAL(KIND=dp), INTENT(IN) :: temp ! temperature (K) - - - usr16 = 0._dp - -END FUNCTION usr16 - -REAL(KIND=dp) FUNCTION usr17( rh, temp ) - - REAL(KIND=dp), INTENT(IN) :: rh ! relative humidity - REAL(KIND=dp), INTENT(IN) :: temp ! temperature (K) - - usr17 = 0._dp - -END FUNCTION usr17 - -REAL(KIND=dp) FUNCTION usr17a( rh, temp ) - - REAL(KIND=dp), INTENT(IN) :: rh ! relative humidity - REAL(KIND=dp), INTENT(IN) :: temp ! temperature (K) - - usr17a = 0._dp - -END FUNCTION usr17a - -REAL(KIND=dp) FUNCTION usr23( temp, c_m ) - - REAL(KIND=dp), INTENT(IN) :: temp - REAL(KIND=dp), INTENT(IN) :: c_m - - REAL(KIND=dp) :: fc, k0 - REAL(KIND=dp) :: wrk - - fc = 3.e-11_dp * (300._dp/temp) ** 3.3_dp - wrk = fc * c_m - k0 = wrk / (1._dp + wrk/1.5e-12_dp) - usr23 = k0 * .6_dp ** (1._dp/(1._dp + (log10( wrk/1.5e-12_dp ))**2._dp)) - -END FUNCTION usr23 - -REAL(KIND=dp) FUNCTION usr24( temp, c_m ) - - REAL(KIND=dp), INTENT(IN) :: temp - REAL(KIND=dp), INTENT(IN) :: c_m - - REAL(KIND=dp) :: ko, wrk - - wrk = .21_dp*c_m - ko = 1._dp + 5.5e-31_dp*exp( 7460._dp/temp )*wrk - usr24 = 1.7e-42_dp*exp( 7810._dp/temp )*wrk/ko - -END FUNCTION usr24 - -REAL(KIND=dp) FUNCTION usr26( rh, temp ) - - REAL(KIND=dp), INTENT(IN) :: rh ! relative humidity - REAL(KIND=dp), INTENT(IN) :: temp ! temperature (K) - - usr26 = 0._dp - -END FUNCTION usr26 - - - - -! End INLINED Rate Law Functions - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_SUN - update SUN light using TIME -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - SUBROUTINE Update_SUN() - !USE MOZART_4_Parameters - !USE MOZART_4_Global - - IMPLICIT NONE - - REAL(kind=dp) :: SunRise, SunSet - REAL(kind=dp) :: Thour, Tlocal, Ttmp - ! PI - Value of pi - REAL(kind=dp), PARAMETER :: PI = 3.14159265358979d0 - - SunRise = 4.5_dp - SunSet = 19.5_dp - Thour = TIME/3600.0_dp - Tlocal = Thour - (INT(Thour)/24)*24 - - IF ((Tlocal>=SunRise).AND.(Tlocal<=SunSet)) THEN - Ttmp = (2.0*Tlocal-SunRise-SunSet)/(SunSet-SunRise) - IF (Ttmp.GT.0) THEN - Ttmp = Ttmp*Ttmp - ELSE - Ttmp = -Ttmp*Ttmp - END IF - SUN = ( 1.0_dp + COS(PI*Ttmp) )/2.0_dp - ELSE - SUN = 0.0_dp - END IF - - END SUBROUTINE Update_SUN - -! End of Update_SUN function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_RCONST - function to update rate constants -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Update_RCONST ( ) - - - - -! Begin INLINED RCONST - - - - c_m = C(ind_M) - c_h2o = C(ind_H2O) - - -! End INLINED RCONST - - RCONST(1) = (.20946_dp*j('o2')) - RCONST(2) = (j('o31d')) - RCONST(3) = (j('o33p')) - RCONST(4) = (j('n2o')) - RCONST(5) = (j('no2')) - RCONST(6) = (j('n2o5')) - RCONST(7) = (j('hno3')) - RCONST(8) = (j('no3o')) - RCONST(9) = (j('hno4')) - RCONST(10) = (j('ch3o2h')) - RCONST(11) = (j('ch2or')) - RCONST(12) = (j('ch2om')) - RCONST(13) = (j('h2o2')) - RCONST(14) = (j('ch3cho')) - RCONST(15) = (j('pooh')) - RCONST(16) = (.28_dp*j('h2o2')) - RCONST(17) = (j('pan')) - RCONST(18) = (j('pan')) - RCONST(19) = (j('macr')) - RCONST(20) = (j('mvk')) - RCONST(21) = (j('ch3o2h')) - RCONST(22) = (j('ch3o2h')) - RCONST(23) = (j('ch3o2h')) - RCONST(24) = (j('ch3coch3')) - RCONST(25) = (j('ch3cocho')) - RCONST(26) = (j('ch3o2h')) - RCONST(27) = (j('ch3cho')) - RCONST(28) = (j('ch3o2h')) - RCONST(29) = (j('hyac')) - RCONST(30) = (j('glyald')) - RCONST(31) = (j('mek')) - RCONST(32) = (.2_dp*j('no2')) - RCONST(33) = (j('gly')) - RCONST(34) = (j('ch3o2h')) - RCONST(35) = (j('ch3o2h')) - RCONST(36) = (j('ch3o2h')) - RCONST(37) = (j('ch3o2h')) - RCONST(38) = (0.20946*(C_M*6.00e-34_dp*(TEMP/300._dp)**(-2.3_dp))) - RCONST(39) = (ARR2(8.0e-12_dp,2060.0_dp,TEMP)) - RCONST(40) = (.79_dp*ARR2(2.1e-11_dp,-115.0_dp,TEMP)+.21_dp*ARR2(3.2e-11_dp,-70.0_dp,TEMP)) - RCONST(41) = (2.2e-10_dp) - RCONST(42) = (1.1e-10_dp) - RCONST(43) = (ARR2(5.5e-12_dp,2000.0_dp,TEMP)) - RCONST(44) = (ARR2(2.2e-11_dp,-120.0_dp,TEMP)) - RCONST(45) = (ARR2(3.0e-11_dp,-200.0_dp,TEMP)) - RCONST(46) = (ARR2(1.7e-12_dp,940.0_dp,TEMP)) - RCONST(47) = (ARR2(1.0e-14_dp,490.0_dp,TEMP)) - RCONST(48) = (usr9(temp,c_m,c_h2o)) - RCONST(49) = (ARR2(2.9e-12_dp,160.0_dp,TEMP)) - RCONST(50) = (ARR2(4.8e-11_dp,-250.0_dp,TEMP)) - RCONST(51) = (ARR2(4.2e-12_dp,240.0_dp,TEMP)) - RCONST(52) = (TROE(6.90e-31_dp,1.0_dp,2.60e-11_dp,0.0_dp,TEMP,C_M)) - RCONST(53) = (6.7e-11_dp) - RCONST(54) = (4.9e-11_dp) - RCONST(55) = (ARR2(3.5e-12_dp,-250.0_dp,TEMP)) - RCONST(56) = (ARR2(3.0e-12_dp,1500.0_dp,TEMP)) - RCONST(57) = (ARR2(5.6e-12_dp,-180.0_dp,TEMP)) - RCONST(58) = (ARR2(1.2e-13_dp,2450.0_dp,TEMP)) - RCONST(59) = (ARR2(2.3e-12_dp,-170.0_dp,TEMP)) - RCONST(60) = (TROE(2.e-30_dp,4.4_dp,1.4e-12_dp,.7_dp,TEMP,C_M)) - RCONST(61) = (TROEE(3.333e26_dp,10900._dp,2.2e-30_dp,4.4_dp,1.4e-12_dp,.7_dp,TEMP,C_M)) - RCONST(62) = (TROE(2.e-30_dp,3._dp,2.5e-11_dp,0._dp,TEMP,C_M)) - RCONST(63) = (usr5(TEMP,C_M)) - RCONST(64) = (ARR2(1.5e-11_dp,-170._dp,TEMP)) - RCONST(65) = (TROE(1.8e-31_dp,3.2_dp,4.7e-12_dp,1.4_dp,TEMP,C_M)) - RCONST(66) = (ARR2(1.3e-12_dp,-380._dp,TEMP)) - RCONST(67) = (TROEE(4.76e26_dp,10900._dp,1.8e-31_dp,3.2_dp,4.7e-12_dp,1.4_dp,TEMP,C_M)) - RCONST(68) = (usr16(rh,temp)) - RCONST(69) = (usr17(rh,temp)) - RCONST(70) = (usr17a(rh,temp)) - RCONST(71) = (ARR2(2.45e-12_dp,1775.0_dp,TEMP)) - RCONST(72) = (1.5e-10_dp) - RCONST(73) = (ARR2(2.8e-12_dp,-300._dp,TEMP)) - RCONST(74) = (ARR2(5.e-13_dp,424._dp,TEMP)) - RCONST(75) = (ARR2(1.9e-14_dp,-706._dp,TEMP)) - RCONST(76) = (ARR2(4.1e-13_dp,-750._dp,TEMP)) - RCONST(77) = (ARR2(3.8e-12_dp,-200._dp,TEMP)) - RCONST(78) = (ARR2(6.e-13_dp,2058._dp,TEMP)) - RCONST(79) = (9.e-12_dp) - RCONST(80) = (usr8(temp,c_m)) - RCONST(81) = (TROE(1.e-28_dp,.8_dp,8.8e-12_dp,0._dp,TEMP,C_M)) - RCONST(82) = (ARR2(1.2e-14_dp,2630._dp,TEMP)) - RCONST(83) = (usr23(TEMP,C_M)) - RCONST(84) = (1.1e-11_dp) - RCONST(85) = (ARR2(4.2e-12_dp,-180._dp,TEMP)) - RCONST(86) = (1e-14_dp) - RCONST(87) = (ARR2(1.6e11_dp,4150._dp,TEMP)) - RCONST(88) = (ARR2(8.7e-12_dp,1070._dp,TEMP)) - RCONST(89) = (ARR2(2.6e-12_dp,-365._dp,TEMP)) - RCONST(90) = (ARR2(7.5e-13_dp,-700._dp,TEMP)) - RCONST(91) = (2.e-13_dp) - RCONST(92) = (ARR2(3.8e-12_dp,-200._dp,TEMP)) - RCONST(93) = (JPL_TROE(8.0e-27_dp,3.5_dp,3.e-11_dp,0._dp,.5_dp,TEMP,C_M)) - RCONST(94) = (ARR2(6.5e-15_dp,1900._dp,TEMP)) - RCONST(95) = (ARR2(4.6e-13_dp,1156._dp,TEMP)) - RCONST(96) = (ARR2(4.2e-12_dp,-180._dp,TEMP)) - RCONST(97) = (ARR2(7.5e-13_dp,-700._dp,TEMP)) - RCONST(98) = (ARR2(3.8e-12_dp,-200._dp,TEMP)) - RCONST(99) = (ARR2(5.6e-12_dp,-270._dp,TEMP)) - RCONST(100) = (ARR2(1.4e-12_dp,1900._dp,TEMP)) - RCONST(101) = (ARR2(8.1e-12_dp,-270._dp,TEMP)) - RCONST(102) = (TROE(8.5e-29_dp,6.5_dp,1.1e-11_dp,1._dp,TEMP,C_M)) - RCONST(103) = (ARR2(4.3e-13_dp,-1040._dp,TEMP)) - RCONST(104) = (ARR2(2.e-12_dp,-500._dp,TEMP)) - RCONST(105) = (1.e-12_dp) - RCONST(106) = (TROEE(1.111e28_dp,14000._dp,8.5e-29_dp,6.5_dp,1.1e-11_dp,0._dp,TEMP,C_M)) - RCONST(107) = (ARR2(2.5e-12_dp,-500._dp,TEMP)) - RCONST(108) = (ARR2(1.e-11_dp,660._dp,TEMP)) - RCONST(109) = (ARR2(4.e-12_dp,-180._dp,TEMP)) - RCONST(110) = (ARR2(7.5e-13_dp,-700._dp,TEMP)) - RCONST(111) = (ARR2(3.75e-13_dp,40._dp,TEMP)) - RCONST(112) = (ARR2(3.8e-12_dp,-200._dp,TEMP)) - RCONST(113) = (3.82e-11_dp*exp(-2000._dp/temp)+1.33e-13_dp) - RCONST(114) = (ARR2(2.9e-12_dp,-300._dp,TEMP)) - RCONST(115) = (ARR2(8.6e-13_dp,-700._dp,TEMP)) - RCONST(116) = (ARR2(2.e-12_dp,-500._dp,TEMP)) - RCONST(117) = (ARR2(3.8e-12_dp,-200._dp,TEMP)) - RCONST(118) = (5.4e-11_dp) - RCONST(119) = (ARR2(4.2e-12_dp,-180._dp,TEMP)) - RCONST(120) = (3.5e-12_dp) - RCONST(121) = (ARR2(4.2e-12_dp,-180._dp,TEMP)) - RCONST(122) = (ARR2(7.5e-13_dp,-700._dp,TEMP)) - RCONST(123) = (ARR2(3.8e-12_dp,-200._dp,TEMP)) - RCONST(124) = (6.8e-13_dp) - RCONST(125) = (ARR2(2.3e-12_dp,170._dp,TEMP)) - RCONST(126) = (ARR2(4.2e-12_dp,-180._dp,TEMP)) - RCONST(127) = (ARR2(7.5e-13_dp,-700._dp,TEMP)) - RCONST(128) = (ARR2(3.8e-12_dp,-200._dp,TEMP)) - RCONST(129) = (ARR2(1.7e-12_dp,-352._dp,TEMP)) - RCONST(130) = (3.e-12_dp) - RCONST(131) = (1.e-11_dp) - RCONST(132) = (ARR2(4.2e-12_dp,-180._dp,TEMP)) - RCONST(133) = (ARR2(7.5e-13_dp,-700._dp,TEMP)) - RCONST(134) = (ARR2(3.8e-12_dp,-200._dp,TEMP)) - RCONST(135) = (ARR2(2.54e-11_dp,-410._dp,TEMP)) - RCONST(136) = (ARR2(1.05e-14_dp,2000._dp,TEMP)) - RCONST(137) = (ARR2(4.4e-12_dp,-180._dp,TEMP)) - RCONST(138) = (2.4e-12_dp) - RCONST(139) = (ARR2(8.e-13_dp,-700._dp,TEMP)) - RCONST(140) = (ARR2(1.52e-11_dp,-200._dp,TEMP)) - RCONST(141) = (ARR2(5.e-13_dp,-400._dp,TEMP)) - RCONST(142) = (1.4e-11_dp) - RCONST(143) = (ARR2(4.13e-12_dp,-452._dp,TEMP)) - RCONST(144) = (ARR2(7.52e-16_dp,1521._dp,TEMP)) - RCONST(145) = (ARR2(1.86e-11_dp,-175._dp,TEMP)) - RCONST(146) = (ARR2(4.4e-15_dp,2500._dp,TEMP)) - RCONST(147) = (ARR2(2.7e-12_dp,-360._dp,TEMP)) - RCONST(148) = (ARR2(1.3e-13_dp,-360._dp,TEMP)) - RCONST(149) = (2.4e-12_dp) - RCONST(150) = (ARR2(8.e-13_dp,-700._dp,TEMP)) - RCONST(151) = (ARR2(5.e-13_dp,-400._dp,TEMP)) - RCONST(152) = (1.4e-11_dp) - RCONST(153) = (ARR2(2.3e-11_dp,-200._dp,TEMP)) - RCONST(154) = (ARR2(5.3e-12_dp,-360._dp,TEMP)) - RCONST(155) = (5.e-12_dp) - RCONST(156) = (ARR2(4.3e-13_dp,-1040._dp,TEMP)) - RCONST(157) = (ARR2(2.e-12_dp,-500._dp,TEMP)) - RCONST(158) = (ARR2(4.6e-12_dp,-530._dp,TEMP)) - RCONST(159) = (ARR2(2.3e-12_dp,-530._dp,TEMP)) - RCONST(160) = (1.1e-11_dp*300._dp/(temp*c_m)) - RCONST(161) = (1.2221e17_dp*300._dp*exp(-14000._dp/temp)/(temp*c_m)) - RCONST(162) = (ARR2(1.2e-11_dp,-444._dp,TEMP)) - RCONST(163) = (ARR2(1.e-15_dp,732._dp,TEMP)) - RCONST(164) = (ARR2(1.2e-12_dp,-490._dp,TEMP)) - RCONST(165) = (ARR2(4.2e-12_dp,-180._dp,TEMP)) - RCONST(166) = (ARR2(7.5e-13_dp,-700._dp,TEMP)) - RCONST(167) = (ARR2(3.8e-12_dp,-200._dp,TEMP)) - RCONST(168) = (7.e-13_dp) - RCONST(169) = (ARR2(3.03e-12_dp,446._dp,TEMP)) - RCONST(170) = (ARR2(2.7e-12_dp,-360._dp,TEMP)) - RCONST(171) = (2.4e-12_dp) - RCONST(172) = (ARR2(8.e-13_dp,-700._dp,TEMP)) - RCONST(173) = (ARR2(8.4e-13_dp,-830._dp,TEMP)) - RCONST(174) = (ARR2(1.4e-12_dp,1860._dp,TEMP)) - RCONST(175) = (4.5e-11_dp) - RCONST(176) = (ARR2(1.4e-12_dp,1860._dp,TEMP)) - RCONST(177) = (ARR2(1.86e-11_dp,-175._dp,TEMP)) - RCONST(178) = (ARR2(2.7e-12_dp,-360._dp,TEMP)) - RCONST(179) = (2.4e-12_dp) - RCONST(180) = (ARR2(8.e-13_dp,-700._dp,TEMP)) - RCONST(181) = (ARR2(5.e-13_dp,-400._dp,TEMP)) - RCONST(182) = (ARR2(1.3e-12_dp,-640._dp,TEMP)) - RCONST(183) = (ARR2(1.9e-12_dp,-190._dp,TEMP)) - RCONST(184) = (THERMAL_T2(7.69e-17_dp,-253._dp,TEMP)) - RCONST(185) = (ARR2(7.3e-12_dp,620._dp,TEMP)) - RCONST(186) = (ARR2(6.9e-12_dp,230._dp,TEMP)) - RCONST(187) = (JPL_TROE(8.e-27_dp,3.5_dp,3.e-11_dp,0.0_dp,.5_dp,TEMP,C_M)) - RCONST(188) = (4.e-14_dp) - RCONST(189) = (3.e-12_dp) - RCONST(190) = (1.e-11_dp) - RCONST(191) = (ARR2(9.6e-12_dp,234._dp,TEMP)) - RCONST(192) = (usr24(temp,c_m)) - RCONST(193) = (ARR2(1.9e-13_dp,-520._dp,TEMP)) - RCONST(194) = (ARR2(1.7e-12_dp,710._dp,TEMP)) - RCONST(195) = (usr26(rh,temp)) - RCONST(196) = (6.8e-14_dp) - -END SUBROUTINE Update_RCONST - -! End of Update_RCONST function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_PHOTO - function to update photolytical rate constants -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Update_PHOTO ( ) - - - USE MOZART_4_Global - - RCONST(1) = (.20946_dp*j('o2')) - RCONST(2) = (j('o31d')) - RCONST(3) = (j('o33p')) - RCONST(4) = (j('n2o')) - RCONST(5) = (j('no2')) - RCONST(6) = (j('n2o5')) - RCONST(7) = (j('hno3')) - RCONST(8) = (j('no3o')) - RCONST(9) = (j('hno4')) - RCONST(10) = (j('ch3o2h')) - RCONST(11) = (j('ch2or')) - RCONST(12) = (j('ch2om')) - RCONST(13) = (j('h2o2')) - RCONST(14) = (j('ch3cho')) - RCONST(15) = (j('pooh')) - RCONST(16) = (.28_dp*j('h2o2')) - RCONST(17) = (j('pan')) - RCONST(18) = (j('pan')) - RCONST(19) = (j('macr')) - RCONST(20) = (j('mvk')) - RCONST(21) = (j('ch3o2h')) - RCONST(22) = (j('ch3o2h')) - RCONST(23) = (j('ch3o2h')) - RCONST(24) = (j('ch3coch3')) - RCONST(25) = (j('ch3cocho')) - RCONST(26) = (j('ch3o2h')) - RCONST(27) = (j('ch3cho')) - RCONST(28) = (j('ch3o2h')) - RCONST(29) = (j('hyac')) - RCONST(30) = (j('glyald')) - RCONST(31) = (j('mek')) - RCONST(32) = (.2_dp*j('no2')) - RCONST(33) = (j('gly')) - RCONST(34) = (j('ch3o2h')) - RCONST(35) = (j('ch3o2h')) - RCONST(36) = (j('ch3o2h')) - RCONST(37) = (j('ch3o2h')) - -END SUBROUTINE Update_PHOTO - -! End of Update_PHOTO function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE MOZART_4_Rates - diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Rates.o b/boxmox/compiled_mechs/MOZART_4/MOZART_4_Rates.o deleted file mode 100644 index 229aad8eef68da3850b2934b743e52cfe3532544..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Rates.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Stoichiom.f90 b/boxmox/compiled_mechs/MOZART_4/MOZART_4_Stoichiom.f90 deleted file mode 100644 index bf4f640a6826334702ea5da699ca0d56a63b0aa0..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Stoichiom.f90 +++ /dev/null @@ -1,1075 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The Stoichiometric Chemical Model File -! -! Generated by KPP-2.2.3 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 : MOZART_4_Stoichiom.f90 -! Time : Mon Jul 19 09:14:05 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_4_11638_BOXMOX -! Equation file : MOZART_4.kpp -! Output root filename : MOZART_4 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MOZART_4_Stoichiom - - USE MOZART_4_Parameters - USE MOZART_4_StoichiomSP - - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! ReactantProd - Reactant Products in each equation -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! ARP - Reactant product in each equation -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE ReactantProd ( V, F, ARP ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! F - Concentrations of fixed species (local) - REAL(kind=dp) :: F(NFIX) -! ARP - Reactant product in each equation - REAL(kind=dp) :: ARP(NREACT) - - -! Reactant Products in each equation are useful in the -! stoichiometric formulation of mass action law - ARP(1) = F(2) - ARP(2) = V(81) - ARP(3) = V(81) - ARP(4) = V(3) - ARP(5) = V(73) - ARP(6) = V(13) - ARP(7) = V(39) - ARP(8) = V(80) - ARP(9) = V(26) - ARP(10) = V(18) - ARP(11) = V(72) - ARP(12) = V(72) - ARP(13) = V(9) - ARP(14) = V(62) - ARP(15) = V(35) - ARP(16) = V(32) - ARP(17) = V(36) - ARP(18) = V(43) - ARP(19) = V(66) - ARP(20) = V(69) - ARP(21) = V(21) - ARP(22) = V(22) - ARP(23) = V(23) - ARP(24) = V(51) - ARP(25) = V(67) - ARP(26) = V(15) - ARP(27) = V(60) - ARP(28) = V(42) - ARP(29) = V(65) - ARP(30) = V(54) - ARP(31) = V(33) - ARP(32) = V(45) - ARP(33) = V(37) - ARP(34) = V(48) - ARP(35) = V(25) - ARP(36) = V(31) - ARP(37) = V(38) - ARP(38) = V(52)*F(2) - ARP(39) = V(52)*V(81) - ARP(40) = V(47)*F(2) - ARP(41) = V(47)*F(1) - ARP(42) = V(19)*V(47) - ARP(43) = V(19)*V(75) - ARP(44) = V(52)*V(75) - ARP(45) = V(52)*V(79) - ARP(46) = V(75)*V(81) - ARP(47) = V(79)*V(81) - ARP(48) = V(79)*V(79)*F(1) - ARP(49) = V(9)*V(75) - ARP(50) = V(75)*V(79) - ARP(51) = V(75)*V(75) - ARP(52) = V(75)*V(75) - ARP(53) = V(3)*V(47) - ARP(54) = V(3)*V(47) - ARP(55) = V(76)*V(79) - ARP(56) = V(76)*V(81) - ARP(57) = V(52)*V(73) - ARP(58) = V(73)*V(81) - ARP(59) = V(79)*V(80) - ARP(60) = V(73)*V(80) - ARP(61) = V(13) - ARP(62) = V(73)*V(75) - ARP(63) = V(39)*V(75) - ARP(64) = V(76)*V(80) - ARP(65) = V(73)*V(79) - ARP(66) = V(26)*V(75) - ARP(67) = V(26) - ARP(68) = V(13)*F(2) - ARP(69) = V(80) - ARP(70) = V(73) - ARP(71) = V(40)*V(75) - ARP(72) = V(40)*V(47) - ARP(73) = V(76)*V(77) - ARP(74) = V(77)*V(77) - ARP(75) = V(77)*V(77) - ARP(76) = V(77)*V(79) - ARP(77) = V(18)*V(75) - ARP(78) = V(72)*V(80) - ARP(79) = V(72)*V(75) - ARP(80) = V(58)*V(75) - ARP(81) = V(27)*V(75) - ARP(82) = V(27)*V(81) - ARP(83) = V(8)*V(75) - ARP(84) = V(37)*V(75) - ARP(85) = V(30)*V(76) - ARP(86) = V(12)*F(2) - ARP(87) = V(12) - ARP(88) = V(4)*V(75) - ARP(89) = V(56)*V(76) - ARP(90) = V(56)*V(79) - ARP(91) = V(56)*V(77) - ARP(92) = V(21)*V(75) - ARP(93) = V(61)*V(75) - ARP(94) = V(61)*V(81) - ARP(95) = V(61)*V(80) - ARP(96) = V(50)*V(76) - ARP(97) = V(50)*V(79) - ARP(98) = V(35)*V(75) - ARP(99) = V(62)*V(75) - ARP(100) = V(62)*V(80) - ARP(101) = V(76)*V(78) - ARP(102) = V(73)*V(78) - ARP(103) = V(78)*V(79) - ARP(104) = V(77)*V(78) - ARP(105) = V(32)*V(75) - ARP(106) = V(36) - ARP(107) = V(78)*V(78) - ARP(108) = V(5)*V(75) - ARP(109) = V(57)*V(76) - ARP(110) = V(57)*V(79) - ARP(111) = V(57)*V(77) - ARP(112) = V(22)*V(75) - ARP(113) = V(51)*V(75) - ARP(114) = V(63)*V(76) - ARP(115) = V(63)*V(79) - ARP(116) = V(63)*V(77) - ARP(117) = V(23)*V(75) - ARP(118) = V(6)*V(75) - ARP(119) = V(24)*V(76) - ARP(120) = V(7)*V(75) - ARP(121) = V(55)*V(76) - ARP(122) = V(55)*V(79) - ARP(123) = V(48)*V(75) - ARP(124) = V(29)*V(75) - ARP(125) = V(33)*V(75) - ARP(126) = V(49)*V(76) - ARP(127) = V(49)*V(79) - ARP(128) = V(25)*V(75) - ARP(129) = V(10)*V(75) - ARP(130) = V(11)*V(75) - ARP(131) = V(14)*V(73) - ARP(132) = V(44)*V(76) - ARP(133) = V(44)*V(79) - ARP(134) = V(31)*V(75) - ARP(135) = V(59)*V(75) - ARP(136) = V(59)*V(81) - ARP(137) = V(71)*V(76) - ARP(138) = V(71)*V(80) - ARP(139) = V(71)*V(79) - ARP(140) = V(42)*V(75) - ARP(141) = V(71)*V(77) - ARP(142) = V(71)*V(78) - ARP(143) = V(69)*V(75) - ARP(144) = V(69)*V(81) - ARP(145) = V(66)*V(75) - ARP(146) = V(66)*V(81) - ARP(147) = V(70)*V(76) - ARP(148) = V(70)*V(76) - ARP(149) = V(70)*V(80) - ARP(150) = V(70)*V(79) - ARP(151) = V(70)*V(77) - ARP(152) = V(70)*V(78) - ARP(153) = V(20)*V(75) - ARP(154) = V(74)*V(76) - ARP(155) = V(74)*V(80) - ARP(156) = V(74)*V(79) - ARP(157) = V(74)*V(77) - ARP(158) = V(74)*V(78) - ARP(159) = V(74)*V(74) - ARP(160) = V(73)*V(74)*F(2) - ARP(161) = V(43)*F(2) - ARP(162) = V(46)*V(75) - ARP(163) = V(46)*V(81) - ARP(164) = V(46)*V(80) - ARP(165) = V(64)*V(76) - ARP(166) = V(64)*V(79) - ARP(167) = V(38)*V(75) - ARP(168) = V(34)*V(75) - ARP(169) = V(59)*V(80) - ARP(170) = V(53)*V(76) - ARP(171) = V(53)*V(80) - ARP(172) = V(53)*V(79) - ARP(173) = V(67)*V(75) - ARP(174) = V(67)*V(80) - ARP(175) = V(60)*V(75) - ARP(176) = V(60)*V(80) - ARP(177) = V(28)*V(75) - ARP(178) = V(68)*V(76) - ARP(179) = V(68)*V(80) - ARP(180) = V(68)*V(79) - ARP(181) = V(68)*V(77) - ARP(182) = V(68)*V(78) - ARP(183) = V(15)*V(75) - ARP(184) = V(15)*V(75) - ARP(185) = V(41)*V(75) - ARP(186) = V(17)*V(75) - ARP(187) = V(43)*V(75) - ARP(188) = V(36)*V(75) - ARP(189) = V(65)*V(75) - ARP(190) = V(54)*V(75) - ARP(191) = V(16)*V(75) - ARP(192) = V(16)*V(75) - ARP(193) = V(16)*V(80) - ARP(194) = V(2)*V(75) - ARP(195) = V(79) - ARP(196) = V(56)*V(56) - -END SUBROUTINE ReactantProd - -! End of ReactantProd function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! JacReactantProd - Jacobian of Reactant Products vector -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! JVRP - d ARP(1:NREACT)/d VAR (1:NVAR) -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE JacReactantProd ( V, F, JVRP ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! F - Concentrations of fixed species (local) - REAL(kind=dp) :: F(NFIX) -! JVRP - d ARP(1:NREACT)/d VAR (1:NVAR) - REAL(kind=dp) :: JVRP(NJVRP) - - -! Reactant Products in each equation are useful in the -! stoichiometric formulation of mass action law -! Below we compute the Jacobian of the Reactant Products vector -! w.r.t. variable species: d ARP(1:NREACT) / d Var(1:NVAR) - -! JVRP(1) = dARP(2)/dV(81) - JVRP(1) = 1 -! JVRP(2) = dARP(3)/dV(81) - JVRP(2) = 1 -! JVRP(3) = dARP(4)/dV(3) - JVRP(3) = 1 -! JVRP(4) = dARP(5)/dV(73) - JVRP(4) = 1 -! JVRP(5) = dARP(6)/dV(13) - JVRP(5) = 1 -! JVRP(6) = dARP(7)/dV(39) - JVRP(6) = 1 -! JVRP(7) = dARP(8)/dV(80) - JVRP(7) = 1 -! JVRP(8) = dARP(9)/dV(26) - JVRP(8) = 1 -! JVRP(9) = dARP(10)/dV(18) - JVRP(9) = 1 -! JVRP(10) = dARP(11)/dV(72) - JVRP(10) = 1 -! JVRP(11) = dARP(12)/dV(72) - JVRP(11) = 1 -! JVRP(12) = dARP(13)/dV(9) - JVRP(12) = 1 -! JVRP(13) = dARP(14)/dV(62) - JVRP(13) = 1 -! JVRP(14) = dARP(15)/dV(35) - JVRP(14) = 1 -! JVRP(15) = dARP(16)/dV(32) - JVRP(15) = 1 -! JVRP(16) = dARP(17)/dV(36) - JVRP(16) = 1 -! JVRP(17) = dARP(18)/dV(43) - JVRP(17) = 1 -! JVRP(18) = dARP(19)/dV(66) - JVRP(18) = 1 -! JVRP(19) = dARP(20)/dV(69) - JVRP(19) = 1 -! JVRP(20) = dARP(21)/dV(21) - JVRP(20) = 1 -! JVRP(21) = dARP(22)/dV(22) - JVRP(21) = 1 -! JVRP(22) = dARP(23)/dV(23) - JVRP(22) = 1 -! JVRP(23) = dARP(24)/dV(51) - JVRP(23) = 1 -! JVRP(24) = dARP(25)/dV(67) - JVRP(24) = 1 -! JVRP(25) = dARP(26)/dV(15) - JVRP(25) = 1 -! JVRP(26) = dARP(27)/dV(60) - JVRP(26) = 1 -! JVRP(27) = dARP(28)/dV(42) - JVRP(27) = 1 -! JVRP(28) = dARP(29)/dV(65) - JVRP(28) = 1 -! JVRP(29) = dARP(30)/dV(54) - JVRP(29) = 1 -! JVRP(30) = dARP(31)/dV(33) - JVRP(30) = 1 -! JVRP(31) = dARP(32)/dV(45) - JVRP(31) = 1 -! JVRP(32) = dARP(33)/dV(37) - JVRP(32) = 1 -! JVRP(33) = dARP(34)/dV(48) - JVRP(33) = 1 -! JVRP(34) = dARP(35)/dV(25) - JVRP(34) = 1 -! JVRP(35) = dARP(36)/dV(31) - JVRP(35) = 1 -! JVRP(36) = dARP(37)/dV(38) - JVRP(36) = 1 -! JVRP(37) = dARP(38)/dV(52) - JVRP(37) = F(2) -! JVRP(38) = dARP(39)/dV(52) - JVRP(38) = V(81) -! JVRP(39) = dARP(39)/dV(81) - JVRP(39) = V(52) -! JVRP(40) = dARP(40)/dV(47) - JVRP(40) = F(2) -! JVRP(41) = dARP(41)/dV(47) - JVRP(41) = F(1) -! JVRP(42) = dARP(42)/dV(19) - JVRP(42) = V(47) -! JVRP(43) = dARP(42)/dV(47) - JVRP(43) = V(19) -! JVRP(44) = dARP(43)/dV(19) - JVRP(44) = V(75) -! JVRP(45) = dARP(43)/dV(75) - JVRP(45) = V(19) -! JVRP(46) = dARP(44)/dV(52) - JVRP(46) = V(75) -! JVRP(47) = dARP(44)/dV(75) - JVRP(47) = V(52) -! JVRP(48) = dARP(45)/dV(52) - JVRP(48) = V(79) -! JVRP(49) = dARP(45)/dV(79) - JVRP(49) = V(52) -! JVRP(50) = dARP(46)/dV(75) - JVRP(50) = V(81) -! JVRP(51) = dARP(46)/dV(81) - JVRP(51) = V(75) -! JVRP(52) = dARP(47)/dV(79) - JVRP(52) = V(81) -! JVRP(53) = dARP(47)/dV(81) - JVRP(53) = V(79) -! JVRP(54) = dARP(48)/dV(79) - JVRP(54) = 2*V(79)*F(1) -! JVRP(55) = dARP(49)/dV(9) - JVRP(55) = V(75) -! JVRP(56) = dARP(49)/dV(75) - JVRP(56) = V(9) -! JVRP(57) = dARP(50)/dV(75) - JVRP(57) = V(79) -! JVRP(58) = dARP(50)/dV(79) - JVRP(58) = V(75) -! JVRP(59) = dARP(51)/dV(75) - JVRP(59) = 2*V(75) -! JVRP(60) = dARP(52)/dV(75) - JVRP(60) = 2*V(75) -! JVRP(61) = dARP(53)/dV(3) - JVRP(61) = V(47) -! JVRP(62) = dARP(53)/dV(47) - JVRP(62) = V(3) -! JVRP(63) = dARP(54)/dV(3) - JVRP(63) = V(47) -! JVRP(64) = dARP(54)/dV(47) - JVRP(64) = V(3) -! JVRP(65) = dARP(55)/dV(76) - JVRP(65) = V(79) -! JVRP(66) = dARP(55)/dV(79) - JVRP(66) = V(76) -! JVRP(67) = dARP(56)/dV(76) - JVRP(67) = V(81) -! JVRP(68) = dARP(56)/dV(81) - JVRP(68) = V(76) -! JVRP(69) = dARP(57)/dV(52) - JVRP(69) = V(73) -! JVRP(70) = dARP(57)/dV(73) - JVRP(70) = V(52) -! JVRP(71) = dARP(58)/dV(73) - JVRP(71) = V(81) -! JVRP(72) = dARP(58)/dV(81) - JVRP(72) = V(73) -! JVRP(73) = dARP(59)/dV(79) - JVRP(73) = V(80) -! JVRP(74) = dARP(59)/dV(80) - JVRP(74) = V(79) -! JVRP(75) = dARP(60)/dV(73) - JVRP(75) = V(80) -! JVRP(76) = dARP(60)/dV(80) - JVRP(76) = V(73) -! JVRP(77) = dARP(61)/dV(13) - JVRP(77) = 1 -! JVRP(78) = dARP(62)/dV(73) - JVRP(78) = V(75) -! JVRP(79) = dARP(62)/dV(75) - JVRP(79) = V(73) -! JVRP(80) = dARP(63)/dV(39) - JVRP(80) = V(75) -! JVRP(81) = dARP(63)/dV(75) - JVRP(81) = V(39) -! JVRP(82) = dARP(64)/dV(76) - JVRP(82) = V(80) -! JVRP(83) = dARP(64)/dV(80) - JVRP(83) = V(76) -! JVRP(84) = dARP(65)/dV(73) - JVRP(84) = V(79) -! JVRP(85) = dARP(65)/dV(79) - JVRP(85) = V(73) -! JVRP(86) = dARP(66)/dV(26) - JVRP(86) = V(75) -! JVRP(87) = dARP(66)/dV(75) - JVRP(87) = V(26) -! JVRP(88) = dARP(67)/dV(26) - JVRP(88) = 1 -! JVRP(89) = dARP(68)/dV(13) - JVRP(89) = F(2) -! JVRP(90) = dARP(69)/dV(80) - JVRP(90) = 1 -! JVRP(91) = dARP(70)/dV(73) - JVRP(91) = 1 -! JVRP(92) = dARP(71)/dV(40) - JVRP(92) = V(75) -! JVRP(93) = dARP(71)/dV(75) - JVRP(93) = V(40) -! JVRP(94) = dARP(72)/dV(40) - JVRP(94) = V(47) -! JVRP(95) = dARP(72)/dV(47) - JVRP(95) = V(40) -! JVRP(96) = dARP(73)/dV(76) - JVRP(96) = V(77) -! JVRP(97) = dARP(73)/dV(77) - JVRP(97) = V(76) -! JVRP(98) = dARP(74)/dV(77) - JVRP(98) = 2*V(77) -! JVRP(99) = dARP(75)/dV(77) - JVRP(99) = 2*V(77) -! JVRP(100) = dARP(76)/dV(77) - JVRP(100) = V(79) -! JVRP(101) = dARP(76)/dV(79) - JVRP(101) = V(77) -! JVRP(102) = dARP(77)/dV(18) - JVRP(102) = V(75) -! JVRP(103) = dARP(77)/dV(75) - JVRP(103) = V(18) -! JVRP(104) = dARP(78)/dV(72) - JVRP(104) = V(80) -! JVRP(105) = dARP(78)/dV(80) - JVRP(105) = V(72) -! JVRP(106) = dARP(79)/dV(72) - JVRP(106) = V(75) -! JVRP(107) = dARP(79)/dV(75) - JVRP(107) = V(72) -! JVRP(108) = dARP(80)/dV(58) - JVRP(108) = V(75) -! JVRP(109) = dARP(80)/dV(75) - JVRP(109) = V(58) -! JVRP(110) = dARP(81)/dV(27) - JVRP(110) = V(75) -! JVRP(111) = dARP(81)/dV(75) - JVRP(111) = V(27) -! JVRP(112) = dARP(82)/dV(27) - JVRP(112) = V(81) -! JVRP(113) = dARP(82)/dV(81) - JVRP(113) = V(27) -! JVRP(114) = dARP(83)/dV(8) - JVRP(114) = V(75) -! JVRP(115) = dARP(83)/dV(75) - JVRP(115) = V(8) -! JVRP(116) = dARP(84)/dV(37) - JVRP(116) = V(75) -! JVRP(117) = dARP(84)/dV(75) - JVRP(117) = V(37) -! JVRP(118) = dARP(85)/dV(30) - JVRP(118) = V(76) -! JVRP(119) = dARP(85)/dV(76) - JVRP(119) = V(30) -! JVRP(120) = dARP(86)/dV(12) - JVRP(120) = F(2) -! JVRP(121) = dARP(87)/dV(12) - JVRP(121) = 1 -! JVRP(122) = dARP(88)/dV(4) - JVRP(122) = V(75) -! JVRP(123) = dARP(88)/dV(75) - JVRP(123) = V(4) -! JVRP(124) = dARP(89)/dV(56) - JVRP(124) = V(76) -! JVRP(125) = dARP(89)/dV(76) - JVRP(125) = V(56) -! JVRP(126) = dARP(90)/dV(56) - JVRP(126) = V(79) -! JVRP(127) = dARP(90)/dV(79) - JVRP(127) = V(56) -! JVRP(128) = dARP(91)/dV(56) - JVRP(128) = V(77) -! JVRP(129) = dARP(91)/dV(77) - JVRP(129) = V(56) -! JVRP(130) = dARP(92)/dV(21) - JVRP(130) = V(75) -! JVRP(131) = dARP(92)/dV(75) - JVRP(131) = V(21) -! JVRP(132) = dARP(93)/dV(61) - JVRP(132) = V(75) -! JVRP(133) = dARP(93)/dV(75) - JVRP(133) = V(61) -! JVRP(134) = dARP(94)/dV(61) - JVRP(134) = V(81) -! JVRP(135) = dARP(94)/dV(81) - JVRP(135) = V(61) -! JVRP(136) = dARP(95)/dV(61) - JVRP(136) = V(80) -! JVRP(137) = dARP(95)/dV(80) - JVRP(137) = V(61) -! JVRP(138) = dARP(96)/dV(50) - JVRP(138) = V(76) -! JVRP(139) = dARP(96)/dV(76) - JVRP(139) = V(50) -! JVRP(140) = dARP(97)/dV(50) - JVRP(140) = V(79) -! JVRP(141) = dARP(97)/dV(79) - JVRP(141) = V(50) -! JVRP(142) = dARP(98)/dV(35) - JVRP(142) = V(75) -! JVRP(143) = dARP(98)/dV(75) - JVRP(143) = V(35) -! JVRP(144) = dARP(99)/dV(62) - JVRP(144) = V(75) -! JVRP(145) = dARP(99)/dV(75) - JVRP(145) = V(62) -! JVRP(146) = dARP(100)/dV(62) - JVRP(146) = V(80) -! JVRP(147) = dARP(100)/dV(80) - JVRP(147) = V(62) -! JVRP(148) = dARP(101)/dV(76) - JVRP(148) = V(78) -! JVRP(149) = dARP(101)/dV(78) - JVRP(149) = V(76) -! JVRP(150) = dARP(102)/dV(73) - JVRP(150) = V(78) -! JVRP(151) = dARP(102)/dV(78) - JVRP(151) = V(73) -! JVRP(152) = dARP(103)/dV(78) - JVRP(152) = V(79) -! JVRP(153) = dARP(103)/dV(79) - JVRP(153) = V(78) -! JVRP(154) = dARP(104)/dV(77) - JVRP(154) = V(78) -! JVRP(155) = dARP(104)/dV(78) - JVRP(155) = V(77) -! JVRP(156) = dARP(105)/dV(32) - JVRP(156) = V(75) -! JVRP(157) = dARP(105)/dV(75) - JVRP(157) = V(32) -! JVRP(158) = dARP(106)/dV(36) - JVRP(158) = 1 -! JVRP(159) = dARP(107)/dV(78) - JVRP(159) = 2*V(78) -! JVRP(160) = dARP(108)/dV(5) - JVRP(160) = V(75) -! JVRP(161) = dARP(108)/dV(75) - JVRP(161) = V(5) -! JVRP(162) = dARP(109)/dV(57) - JVRP(162) = V(76) -! JVRP(163) = dARP(109)/dV(76) - JVRP(163) = V(57) -! JVRP(164) = dARP(110)/dV(57) - JVRP(164) = V(79) -! JVRP(165) = dARP(110)/dV(79) - JVRP(165) = V(57) -! JVRP(166) = dARP(111)/dV(57) - JVRP(166) = V(77) -! JVRP(167) = dARP(111)/dV(77) - JVRP(167) = V(57) -! JVRP(168) = dARP(112)/dV(22) - JVRP(168) = V(75) -! JVRP(169) = dARP(112)/dV(75) - JVRP(169) = V(22) -! JVRP(170) = dARP(113)/dV(51) - JVRP(170) = V(75) -! JVRP(171) = dARP(113)/dV(75) - JVRP(171) = V(51) -! JVRP(172) = dARP(114)/dV(63) - JVRP(172) = V(76) -! JVRP(173) = dARP(114)/dV(76) - JVRP(173) = V(63) -! JVRP(174) = dARP(115)/dV(63) - JVRP(174) = V(79) -! JVRP(175) = dARP(115)/dV(79) - JVRP(175) = V(63) -! JVRP(176) = dARP(116)/dV(63) - JVRP(176) = V(77) -! JVRP(177) = dARP(116)/dV(77) - JVRP(177) = V(63) -! JVRP(178) = dARP(117)/dV(23) - JVRP(178) = V(75) -! JVRP(179) = dARP(117)/dV(75) - JVRP(179) = V(23) -! JVRP(180) = dARP(118)/dV(6) - JVRP(180) = V(75) -! JVRP(181) = dARP(118)/dV(75) - JVRP(181) = V(6) -! JVRP(182) = dARP(119)/dV(24) - JVRP(182) = V(76) -! JVRP(183) = dARP(119)/dV(76) - JVRP(183) = V(24) -! JVRP(184) = dARP(120)/dV(7) - JVRP(184) = V(75) -! JVRP(185) = dARP(120)/dV(75) - JVRP(185) = V(7) -! JVRP(186) = dARP(121)/dV(55) - JVRP(186) = V(76) -! JVRP(187) = dARP(121)/dV(76) - JVRP(187) = V(55) -! JVRP(188) = dARP(122)/dV(55) - JVRP(188) = V(79) -! JVRP(189) = dARP(122)/dV(79) - JVRP(189) = V(55) -! JVRP(190) = dARP(123)/dV(48) - JVRP(190) = V(75) -! JVRP(191) = dARP(123)/dV(75) - JVRP(191) = V(48) -! JVRP(192) = dARP(124)/dV(29) - JVRP(192) = V(75) -! JVRP(193) = dARP(124)/dV(75) - JVRP(193) = V(29) -! JVRP(194) = dARP(125)/dV(33) - JVRP(194) = V(75) -! JVRP(195) = dARP(125)/dV(75) - JVRP(195) = V(33) -! JVRP(196) = dARP(126)/dV(49) - JVRP(196) = V(76) -! JVRP(197) = dARP(126)/dV(76) - JVRP(197) = V(49) -! JVRP(198) = dARP(127)/dV(49) - JVRP(198) = V(79) -! JVRP(199) = dARP(127)/dV(79) - JVRP(199) = V(49) -! JVRP(200) = dARP(128)/dV(25) - JVRP(200) = V(75) -! JVRP(201) = dARP(128)/dV(75) - JVRP(201) = V(25) -! JVRP(202) = dARP(129)/dV(10) - JVRP(202) = V(75) -! JVRP(203) = dARP(129)/dV(75) - JVRP(203) = V(10) -! JVRP(204) = dARP(130)/dV(11) - JVRP(204) = V(75) -! JVRP(205) = dARP(130)/dV(75) - JVRP(205) = V(11) -! JVRP(206) = dARP(131)/dV(14) - JVRP(206) = V(73) -! JVRP(207) = dARP(131)/dV(73) - JVRP(207) = V(14) -! JVRP(208) = dARP(132)/dV(44) - JVRP(208) = V(76) -! JVRP(209) = dARP(132)/dV(76) - JVRP(209) = V(44) -! JVRP(210) = dARP(133)/dV(44) - JVRP(210) = V(79) -! JVRP(211) = dARP(133)/dV(79) - JVRP(211) = V(44) -! JVRP(212) = dARP(134)/dV(31) - JVRP(212) = V(75) -! JVRP(213) = dARP(134)/dV(75) - JVRP(213) = V(31) -! JVRP(214) = dARP(135)/dV(59) - JVRP(214) = V(75) -! JVRP(215) = dARP(135)/dV(75) - JVRP(215) = V(59) -! JVRP(216) = dARP(136)/dV(59) - JVRP(216) = V(81) -! JVRP(217) = dARP(136)/dV(81) - JVRP(217) = V(59) -! JVRP(218) = dARP(137)/dV(71) - JVRP(218) = V(76) -! JVRP(219) = dARP(137)/dV(76) - JVRP(219) = V(71) -! JVRP(220) = dARP(138)/dV(71) - JVRP(220) = V(80) -! JVRP(221) = dARP(138)/dV(80) - JVRP(221) = V(71) -! JVRP(222) = dARP(139)/dV(71) - JVRP(222) = V(79) -! JVRP(223) = dARP(139)/dV(79) - JVRP(223) = V(71) -! JVRP(224) = dARP(140)/dV(42) - JVRP(224) = V(75) -! JVRP(225) = dARP(140)/dV(75) - JVRP(225) = V(42) -! JVRP(226) = dARP(141)/dV(71) - JVRP(226) = V(77) -! JVRP(227) = dARP(141)/dV(77) - JVRP(227) = V(71) -! JVRP(228) = dARP(142)/dV(71) - JVRP(228) = V(78) -! JVRP(229) = dARP(142)/dV(78) - JVRP(229) = V(71) -! JVRP(230) = dARP(143)/dV(69) - JVRP(230) = V(75) -! JVRP(231) = dARP(143)/dV(75) - JVRP(231) = V(69) -! JVRP(232) = dARP(144)/dV(69) - JVRP(232) = V(81) -! JVRP(233) = dARP(144)/dV(81) - JVRP(233) = V(69) -! JVRP(234) = dARP(145)/dV(66) - JVRP(234) = V(75) -! JVRP(235) = dARP(145)/dV(75) - JVRP(235) = V(66) -! JVRP(236) = dARP(146)/dV(66) - JVRP(236) = V(81) -! JVRP(237) = dARP(146)/dV(81) - JVRP(237) = V(66) -! JVRP(238) = dARP(147)/dV(70) - JVRP(238) = V(76) -! JVRP(239) = dARP(147)/dV(76) - JVRP(239) = V(70) -! JVRP(240) = dARP(148)/dV(70) - JVRP(240) = V(76) -! JVRP(241) = dARP(148)/dV(76) - JVRP(241) = V(70) -! JVRP(242) = dARP(149)/dV(70) - JVRP(242) = V(80) -! JVRP(243) = dARP(149)/dV(80) - JVRP(243) = V(70) -! JVRP(244) = dARP(150)/dV(70) - JVRP(244) = V(79) -! JVRP(245) = dARP(150)/dV(79) - JVRP(245) = V(70) -! JVRP(246) = dARP(151)/dV(70) - JVRP(246) = V(77) -! JVRP(247) = dARP(151)/dV(77) - JVRP(247) = V(70) -! JVRP(248) = dARP(152)/dV(70) - JVRP(248) = V(78) -! JVRP(249) = dARP(152)/dV(78) - JVRP(249) = V(70) -! JVRP(250) = dARP(153)/dV(20) - JVRP(250) = V(75) -! JVRP(251) = dARP(153)/dV(75) - JVRP(251) = V(20) -! JVRP(252) = dARP(154)/dV(74) - JVRP(252) = V(76) -! JVRP(253) = dARP(154)/dV(76) - JVRP(253) = V(74) -! JVRP(254) = dARP(155)/dV(74) - JVRP(254) = V(80) -! JVRP(255) = dARP(155)/dV(80) - JVRP(255) = V(74) -! JVRP(256) = dARP(156)/dV(74) - JVRP(256) = V(79) -! JVRP(257) = dARP(156)/dV(79) - JVRP(257) = V(74) -! JVRP(258) = dARP(157)/dV(74) - JVRP(258) = V(77) -! JVRP(259) = dARP(157)/dV(77) - JVRP(259) = V(74) -! JVRP(260) = dARP(158)/dV(74) - JVRP(260) = V(78) -! JVRP(261) = dARP(158)/dV(78) - JVRP(261) = V(74) -! JVRP(262) = dARP(159)/dV(74) - JVRP(262) = 2*V(74) -! JVRP(263) = dARP(160)/dV(73) - JVRP(263) = V(74)*F(2) -! JVRP(264) = dARP(160)/dV(74) - JVRP(264) = V(73)*F(2) -! JVRP(265) = dARP(161)/dV(43) - JVRP(265) = F(2) -! JVRP(266) = dARP(162)/dV(46) - JVRP(266) = V(75) -! JVRP(267) = dARP(162)/dV(75) - JVRP(267) = V(46) -! JVRP(268) = dARP(163)/dV(46) - JVRP(268) = V(81) -! JVRP(269) = dARP(163)/dV(81) - JVRP(269) = V(46) -! JVRP(270) = dARP(164)/dV(46) - JVRP(270) = V(80) -! JVRP(271) = dARP(164)/dV(80) - JVRP(271) = V(46) -! JVRP(272) = dARP(165)/dV(64) - JVRP(272) = V(76) -! JVRP(273) = dARP(165)/dV(76) - JVRP(273) = V(64) -! JVRP(274) = dARP(166)/dV(64) - JVRP(274) = V(79) -! JVRP(275) = dARP(166)/dV(79) - JVRP(275) = V(64) -! JVRP(276) = dARP(167)/dV(38) - JVRP(276) = V(75) -! JVRP(277) = dARP(167)/dV(75) - JVRP(277) = V(38) -! JVRP(278) = dARP(168)/dV(34) - JVRP(278) = V(75) -! JVRP(279) = dARP(168)/dV(75) - JVRP(279) = V(34) -! JVRP(280) = dARP(169)/dV(59) - JVRP(280) = V(80) -! JVRP(281) = dARP(169)/dV(80) - JVRP(281) = V(59) -! JVRP(282) = dARP(170)/dV(53) - JVRP(282) = V(76) -! JVRP(283) = dARP(170)/dV(76) - JVRP(283) = V(53) -! JVRP(284) = dARP(171)/dV(53) - JVRP(284) = V(80) -! JVRP(285) = dARP(171)/dV(80) - JVRP(285) = V(53) -! JVRP(286) = dARP(172)/dV(53) - JVRP(286) = V(79) -! JVRP(287) = dARP(172)/dV(79) - JVRP(287) = V(53) -! JVRP(288) = dARP(173)/dV(67) - JVRP(288) = V(75) -! JVRP(289) = dARP(173)/dV(75) - JVRP(289) = V(67) -! JVRP(290) = dARP(174)/dV(67) - JVRP(290) = V(80) -! JVRP(291) = dARP(174)/dV(80) - JVRP(291) = V(67) -! JVRP(292) = dARP(175)/dV(60) - JVRP(292) = V(75) -! JVRP(293) = dARP(175)/dV(75) - JVRP(293) = V(60) -! JVRP(294) = dARP(176)/dV(60) - JVRP(294) = V(80) -! JVRP(295) = dARP(176)/dV(80) - JVRP(295) = V(60) -! JVRP(296) = dARP(177)/dV(28) - JVRP(296) = V(75) -! JVRP(297) = dARP(177)/dV(75) - JVRP(297) = V(28) -! JVRP(298) = dARP(178)/dV(68) - JVRP(298) = V(76) -! JVRP(299) = dARP(178)/dV(76) - JVRP(299) = V(68) -! JVRP(300) = dARP(179)/dV(68) - JVRP(300) = V(80) -! JVRP(301) = dARP(179)/dV(80) - JVRP(301) = V(68) -! JVRP(302) = dARP(180)/dV(68) - JVRP(302) = V(79) -! JVRP(303) = dARP(180)/dV(79) - JVRP(303) = V(68) -! JVRP(304) = dARP(181)/dV(68) - JVRP(304) = V(77) -! JVRP(305) = dARP(181)/dV(77) - JVRP(305) = V(68) -! JVRP(306) = dARP(182)/dV(68) - JVRP(306) = V(78) -! JVRP(307) = dARP(182)/dV(78) - JVRP(307) = V(68) -! JVRP(308) = dARP(183)/dV(15) - JVRP(308) = V(75) -! JVRP(309) = dARP(183)/dV(75) - JVRP(309) = V(15) -! JVRP(310) = dARP(184)/dV(15) - JVRP(310) = V(75) -! JVRP(311) = dARP(184)/dV(75) - JVRP(311) = V(15) -! JVRP(312) = dARP(185)/dV(41) - JVRP(312) = V(75) -! JVRP(313) = dARP(185)/dV(75) - JVRP(313) = V(41) -! JVRP(314) = dARP(186)/dV(17) - JVRP(314) = V(75) -! JVRP(315) = dARP(186)/dV(75) - JVRP(315) = V(17) -! JVRP(316) = dARP(187)/dV(43) - JVRP(316) = V(75) -! JVRP(317) = dARP(187)/dV(75) - JVRP(317) = V(43) -! JVRP(318) = dARP(188)/dV(36) - JVRP(318) = V(75) -! JVRP(319) = dARP(188)/dV(75) - JVRP(319) = V(36) -! JVRP(320) = dARP(189)/dV(65) - JVRP(320) = V(75) -! JVRP(321) = dARP(189)/dV(75) - JVRP(321) = V(65) -! JVRP(322) = dARP(190)/dV(54) - JVRP(322) = V(75) -! JVRP(323) = dARP(190)/dV(75) - JVRP(323) = V(54) -! JVRP(324) = dARP(191)/dV(16) - JVRP(324) = V(75) -! JVRP(325) = dARP(191)/dV(75) - JVRP(325) = V(16) -! JVRP(326) = dARP(192)/dV(16) - JVRP(326) = V(75) -! JVRP(327) = dARP(192)/dV(75) - JVRP(327) = V(16) -! JVRP(328) = dARP(193)/dV(16) - JVRP(328) = V(80) -! JVRP(329) = dARP(193)/dV(80) - JVRP(329) = V(16) -! JVRP(330) = dARP(194)/dV(2) - JVRP(330) = V(75) -! JVRP(331) = dARP(194)/dV(75) - JVRP(331) = V(2) -! JVRP(332) = dARP(195)/dV(79) - JVRP(332) = 1 -! JVRP(333) = dARP(196)/dV(56) - JVRP(333) = 2*V(56) - -END SUBROUTINE JacReactantProd - -! End of JacReactantProd function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! Begin Derivative w.r.t. Rate Coefficients - -! ------------------------------------------------------------------------------ -! Subroutine for the derivative of Fun with respect to rate coefficients -! ----------------------------------------------------------------------------- - - SUBROUTINE dFun_dRcoeff( V, F, NCOEFF, JCOEFF, DFDR ) - - USE MOZART_4_Parameters - USE MOZART_4_StoichiomSP - IMPLICIT NONE - -! V - Concentrations of variable/radical/fixed species - REAL(kind=dp) V(NVAR), F(NFIX) -! NCOEFF - the number of rate coefficients with respect to which we differentiate - INTEGER NCOEFF -! JCOEFF - a vector of integers containing the indices of reactions (rate -! coefficients) with respect to which we differentiate - INTEGER JCOEFF(NCOEFF) -! DFDR - a matrix containg derivative values; specifically, -! column j contains d Fun(1:NVAR) / d RCT( JCOEFF(j) ) -! for each 1 <= j <= NCOEFF -! This matrix is stored in a column-wise linearized format - REAL(kind=dp) DFDR(NVAR*NCOEFF) - -! Local vector with reactant products - REAL(kind=dp) A_RPROD(NREACT) - REAL(kind=dp) aj - INTEGER i,j,k - -! Compute the reactant products of all reactions - CALL ReactantProd ( V, F, A_RPROD ) - -! Compute the derivatives by multiplying column JCOEFF(j) of the stoichiometric matrix with A_RPROD - DO j=1,NCOEFF -! Initialize the j-th column of derivative matrix to zero - DO i=1,NVAR - DFDR(i+NVAR*(j-1)) = 0.0_dp - END DO -! Column JCOEFF(j) in the stoichiometric matrix times the -! reactant product of the JCOEFF(j)-th reaction -! give the j-th column of the derivative matrix - aj = A_RPROD(JCOEFF(j)) - DO k=CCOL_STOICM(JCOEFF(j)),CCOL_STOICM(JCOEFF(j)+1)-1 - DFDR(IROW_STOICM(k)+NVAR*(j-1)) = STOICM(k)*aj - END DO - END DO - - END SUBROUTINE dFun_dRcoeff - -! End Derivative w.r.t. Rate Coefficients - - -! Begin Jacobian Derivative w.r.t. Rate Coefficients - -! ------------------------------------------------------------------------------ -! Subroutine for the derivative of Jac with respect to rate coefficients -! Times a user vector -! ----------------------------------------------------------------------------- - - SUBROUTINE dJac_dRcoeff( V, F, U, NCOEFF, JCOEFF, DJDR ) - - USE MOZART_4_Parameters - USE MOZART_4_StoichiomSP - IMPLICIT NONE - -! V - Concentrations of variable/fixed species - REAL(kind=dp) V(NVAR), F(NFIX) -! U - User-supplied Vector - REAL(kind=dp) U(NVAR) -! NCOEFF - the number of rate coefficients with respect to which we differentiate - INTEGER NCOEFF -! JCOEFF - a vector of integers containing the indices of reactions (rate -! coefficients) with respect to which we differentiate - INTEGER JCOEFF(NCOEFF) -! DFDR - a matrix containg derivative values; specifically, -! column j contains d Jac(1:NVAR) / d RCT( JCOEFF(j) ) * U -! for each 1 <= j <= NCOEFF -! This matrix is stored in a column-wise linearized format - REAL(kind=dp) DJDR(NVAR*NCOEFF) - -! Local vector for Jacobian of reactant products - REAL(kind=dp) JV_RPROD(NJVRP) - REAL(kind=dp) aj - INTEGER i,j,k - -! Compute the Jacobian of all reactant products - CALL JacReactantProd( V, F, JV_RPROD ) - -! Compute the derivatives by multiplying column JCOEFF(j) of the stoichiometric matrix with A_PROD - DO j=1,NCOEFF -! Initialize the j-th column of derivative matrix to zero - DO i=1,NVAR - DJDR(i+NVAR*(j-1)) = 0.0_dp - END DO -! Column JCOEFF(j) in the stoichiometric matrix times the -! ( Gradient of reactant product of the JCOEFF(j)-th reaction X user vector ) -! give the j-th column of the derivative matrix -! -! Row JCOEFF(j) of JV_RPROD times the user vector - aj = 0.0_dp - DO k=CROW_JVRP(JCOEFF(j)),CROW_JVRP(JCOEFF(j)+1)-1 - aj = aj + JV_RPROD(k)*U(ICOL_JVRP(k)) - END DO -! Column JCOEFF(j) of Stoichiom. matrix times aj - DO k=CCOL_STOICM(JCOEFF(j)),CCOL_STOICM(JCOEFF(j)+1)-1 - DJDR(IROW_STOICM(k)+NVAR*(j-1)) = STOICM(k)*aj - END DO - END DO - - END SUBROUTINE dJac_dRcoeff - -! End Jacobian Derivative w.r.t. Rate Coefficients - - -END MODULE MOZART_4_Stoichiom - diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Stoichiom.o b/boxmox/compiled_mechs/MOZART_4/MOZART_4_Stoichiom.o deleted file mode 100644 index 5b5300d9071e4a4642da33e8d7abaf884e778c5c..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Stoichiom.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_StoichiomSP.f90 b/boxmox/compiled_mechs/MOZART_4/MOZART_4_StoichiomSP.f90 deleted file mode 100644 index 111f733cbc73eaf4b3df24e537dc025399af3bbc..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_4/MOZART_4_StoichiomSP.f90 +++ /dev/null @@ -1,464 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Sparse Stoichiometric Data Structures File -! -! Generated by KPP-2.2.3 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 : MOZART_4_StoichiomSP.f90 -! Time : Mon Jul 19 09:14:05 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_4_11638_BOXMOX -! Equation file : MOZART_4.kpp -! Output root filename : MOZART_4 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MOZART_4_StoichiomSP - - USE MOZART_4_Precision - PUBLIC - SAVE - - -! Row-compressed sparse data for the Jacobian of reaction products JVRP - - INTEGER, PARAMETER, DIMENSION(197) :: CROW_JVRP = (/ & - 1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, & - 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, & - 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, & - 36, 37, 38, 40, 41, 42, 44, 46, 48, 50, 52, 54, & - 55, 57, 59, 60, 61, 63, 65, 67, 69, 71, 73, 75, & - 77, 78, 80, 82, 84, 86, 88, 89, 90, 91, 92, 94, & - 96, 98, 99,100,102,104,106,108,110,112,114,116, & - 118,120,121,122,124,126,128,130,132,134,136,138, & - 140,142,144,146,148,150,152,154,156,158,159,160, & - 162,164,166,168,170,172,174,176,178,180,182,184, & - 186,188,190,192,194,196,198,200,202,204,206,208, & - 210,212,214,216,218,220,222,224,226,228,230,232, & - 234,236,238,240,242,244,246,248,250,252,254,256, & - 258,260,262,263,265,266,268,270,272,274,276,278, & - 280,282,284,286,288,290,292,294,296,298,300,302, & - 304,306,308,310,312,314,316,318,320,322,324,326, & - 328,330,332,333,334 /) - - INTEGER, PARAMETER, DIMENSION(333) :: ICOL_JVRP = (/ & - 81, 81, 3, 73, 13, 39, 80, 26, 18, 72, 72, 9, & - 62, 35, 32, 36, 43, 66, 69, 21, 22, 23, 51, 67, & - 15, 60, 42, 65, 54, 33, 45, 37, 48, 25, 31, 38, & - 52, 52, 81, 47, 47, 19, 47, 19, 75, 52, 75, 52, & - 79, 75, 81, 79, 81, 79, 9, 75, 75, 79, 75, 75, & - 3, 47, 3, 47, 76, 79, 76, 81, 52, 73, 73, 81, & - 79, 80, 73, 80, 13, 73, 75, 39, 75, 76, 80, 73, & - 79, 26, 75, 26, 13, 80, 73, 40, 75, 40, 47, 76, & - 77, 77, 77, 77, 79, 18, 75, 72, 80, 72, 75, 58, & - 75, 27, 75, 27, 81, 8, 75, 37, 75, 30, 76, 12, & - 12, 4, 75, 56, 76, 56, 79, 56, 77, 21, 75, 61, & - 75, 61, 81, 61, 80, 50, 76, 50, 79, 35, 75, 62, & - 75, 62, 80, 76, 78, 73, 78, 78, 79, 77, 78, 32, & - 75, 36, 78, 5, 75, 57, 76, 57, 79, 57, 77, 22, & - 75, 51, 75, 63, 76, 63, 79, 63, 77, 23, 75, 6, & - 75, 24, 76, 7, 75, 55, 76, 55, 79, 48, 75, 29, & - 75, 33, 75, 49, 76, 49, 79, 25, 75, 10, 75, 11, & - 75, 14, 73, 44, 76, 44, 79, 31, 75, 59, 75, 59, & - 81, 71, 76, 71, 80, 71, 79, 42, 75, 71, 77, 71, & - 78, 69, 75, 69, 81, 66, 75, 66, 81, 70, 76, 70, & - 76, 70, 80, 70, 79, 70, 77, 70, 78, 20, 75, 74, & - 76, 74, 80, 74, 79, 74, 77, 74, 78, 74, 73, 74, & - 43, 46, 75, 46, 81, 46, 80, 64, 76, 64, 79, 38, & - 75, 34, 75, 59, 80, 53, 76, 53, 80, 53, 79, 67, & - 75, 67, 80, 60, 75, 60, 80, 28, 75, 68, 76, 68, & - 80, 68, 79, 68, 77, 68, 78, 15, 75, 15, 75, 41, & - 75, 17, 75, 43, 75, 36, 75, 65, 75, 54, 75, 16, & - 75, 16, 75, 16, 80, 2, 75, 79, 56 /) - - INTEGER, PARAMETER, DIMENSION(333) :: IROW_JVRP = (/ & - 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, & - 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, & - 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, & - 38, 39, 39, 40, 41, 42, 42, 43, 43, 44, 44, 45, & - 45, 46, 46, 47, 47, 48, 49, 49, 50, 50, 51, 52, & - 53, 53, 54, 54, 55, 55, 56, 56, 57, 57, 58, 58, & - 59, 59, 60, 60, 61, 62, 62, 63, 63, 64, 64, 65, & - 65, 66, 66, 67, 68, 69, 70, 71, 71, 72, 72, 73, & - 73, 74, 75, 76, 76, 77, 77, 78, 78, 79, 79, 80, & - 80, 81, 81, 82, 82, 83, 83, 84, 84, 85, 85, 86, & - 87, 88, 88, 89, 89, 90, 90, 91, 91, 92, 92, 93, & - 93, 94, 94, 95, 95, 96, 96, 97, 97, 98, 98, 99, & - 99,100,100,101,101,102,102,103,103,104,104,105, & - 105,106,107,108,108,109,109,110,110,111,111,112, & - 112,113,113,114,114,115,115,116,116,117,117,118, & - 118,119,119,120,120,121,121,122,122,123,123,124, & - 124,125,125,126,126,127,127,128,128,129,129,130, & - 130,131,131,132,132,133,133,134,134,135,135,136, & - 136,137,137,138,138,139,139,140,140,141,141,142, & - 142,143,143,144,144,145,145,146,146,147,147,148, & - 148,149,149,150,150,151,151,152,152,153,153,154, & - 154,155,155,156,156,157,157,158,158,159,160,160, & - 161,162,162,163,163,164,164,165,165,166,166,167, & - 167,168,168,169,169,170,170,171,171,172,172,173, & - 173,174,174,175,175,176,176,177,177,178,178,179, & - 179,180,180,181,181,182,182,183,183,184,184,185, & - 185,186,186,187,187,188,188,189,189,190,190,191, & - 191,192,192,193,193,194,194,195,196 /) - - - -! Stoichiometric Matrix in Compressed Column Sparse Format - - - INTEGER, PARAMETER, DIMENSION(197) :: CCOL_STOICM = (/ & - 1, 2, 4, 6, 8, 11, 14, 17, 21, 26, 30, 33, & - 36, 38, 42, 47, 50, 55, 58, 65, 70, 74, 78, 82, & - 85, 89, 91, 96,101,105,109,112,118,121,128,132, & - 137,143,145,147,149,151,155,158,161,164,167,170, & - 172,175,177,179,181,184,186,190,193,196,199,203, & - 206,209,212,215,218,221,224,227,229,231,235,238, & - 245,250,253,256,259,263,268,272,275,280,287,290, & - 294,298,301,304,307,312,315,322,326,329,339,342, & - 348,351,355,358,362,366,369,374,379,383,386,388, & - 391,397,400,405,408,411,416,419,427,430,433,440, & - 443,452,455,458,462,465,470,473,476,481,484,488, & - 495,498,501,504,515,524,532,535,539,547,555,558, & - 566,570,577,587,590,600,603,613,622,627,632,637, & - 642,647,650,653,656,659,662,668,672,679,682,685, & - 688,691,699,707,714,718,723,728,733,736,744,752, & - 755,764,772,775,776,780,784,790,794,798,803,806, & - 810,814,816,818,822 /) - - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_0 = (/ & - 52, 47, 81, 52, 81, 3, 47, 52, 73, 76, 13, 73, & - 80, 39, 73, 75, 73, 76, 80, 81, 26, 73, 75, 79, & - 80, 18, 72, 75, 79, 58, 72, 79, 19, 58, 72, 9, & - 75, 58, 62, 77, 79, 35, 62, 72, 75, 79, 32, 75, & - 77, 36, 73, 77, 78, 80, 43, 73, 74, 58, 66, 72, & - 74, 75, 78, 79, 58, 61, 69, 77, 78, 21, 62, 75, & - 79, 22, 51, 75, 79, 23, 72, 75, 78, 51, 77, 78, & - 58, 67, 78, 79, 15, 75, 58, 60, 72, 73, 79, 42, & - 66, 69, 72, 79, 65, 72, 78, 79, 54, 58, 72, 79, & - 33, 56, 78, 37, 45, 58, 67, 78, 79, 37, 58, 79, & - 33, 48, 51, 62, 72, 75, 79, 25, 62, 75, 78, 31, & - 37, 45, 67, 75, 38, 51, 66, 69, 75, 79, 52, 81, & - 52, 81, 47, 52, 47, 75, 19, 47, 75, 79, 19, 75, & - 79, 52, 75, 79, 52, 75, 79, 75, 79, 81, 75, 79, & - 81, 9, 79, 9, 75, 79, 75, 79, 52, 75, 9, 75, & - 3, 47, 76, 3, 47, 73, 75, 76, 79, 73, 76, 81, & - 52, 73, 76, 73, 80, 81, 73, 75, 79, 80, 13, 73, & - 80, 13, 73, 80, 39, 73, 75, 39, 75, 80, 73, 76, & - 80, 26, 73, 79, 26, 73, 75, 26, 73, 79, 13, 39, & - 39, 80, 39, 73, 75, 76, 40, 75, 77, 19, 40, 47, & - 72, 75, 77, 79, 72, 73, 76, 77, 79, 72, 77, 79, & - 41, 72, 77, 18, 77, 79, 18, 72, 75, 77, 39, 58, & - 72, 79, 80, 58, 72, 75, 79, 58, 75, 79, 27, 30, & - 72, 75, 79, 27, 34, 58, 72, 75, 79, 81, 1, 8, & - 75, 37, 58, 75, 79, 12, 30, 73, 76, 12, 54, 79, & - 12, 72, 79, 4, 56, 75, 56, 62, 73, 76, 79, 21, & - 56, 79, 17, 41, 56, 62, 72, 77, 79, 21, 56, 62, & - 75, 50, 61, 75, 34, 40, 58, 61, 62, 72, 75, 77, & - 79, 81, 29, 61, 80, 50, 62, 72, 73, 76, 79, 35, & - 50, 79, 35, 50, 65, 75, 62, 75, 78, 39, 62, 78 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_1 = (/ & - 80, 73, 76, 77, 78, 36, 73, 78, 32, 34, 78, 79, & - 81, 34, 72, 77, 78, 79, 32, 72, 75, 78, 36, 73, & - 78, 77, 78, 5, 57, 75, 51, 57, 62, 73, 76, 79, & - 22, 57, 79, 51, 57, 72, 77, 79, 22, 57, 75, 51, & - 63, 75, 63, 72, 73, 76, 78, 23, 63, 79, 41, 63, & - 65, 67, 72, 77, 78, 79, 23, 63, 75, 6, 24, 75, & - 24, 51, 62, 72, 73, 76, 79, 7, 55, 75, 29, 33, & - 51, 55, 62, 72, 73, 76, 79, 48, 55, 79, 48, 55, & - 75, 29, 67, 73, 75, 33, 49, 75, 49, 62, 73, 76, & - 78, 25, 49, 79, 25, 49, 75, 10, 11, 44, 75, 79, & - 11, 14, 75, 14, 45, 73, 79, 37, 44, 45, 67, 73, & - 76, 79, 31, 44, 79, 31, 44, 75, 59, 71, 75, 34, & - 58, 59, 61, 66, 69, 72, 74, 75, 79, 81, 28, 60, & - 66, 69, 71, 72, 73, 76, 79, 28, 66, 69, 71, 72, & - 73, 79, 80, 42, 71, 79, 42, 68, 71, 75, 28, 41, & - 66, 69, 71, 72, 77, 79, 28, 66, 69, 71, 72, 77, & - 78, 79, 69, 70, 75, 58, 62, 67, 69, 72, 75, 79, & - 81, 66, 70, 74, 75, 58, 66, 67, 72, 75, 79, 81, & - 54, 58, 65, 67, 70, 72, 73, 76, 78, 79, 60, 70, & - 76, 54, 58, 65, 67, 70, 72, 73, 78, 79, 80, 20, & - 70, 79, 41, 54, 58, 65, 67, 70, 72, 77, 78, 79, & - 54, 58, 65, 67, 70, 72, 77, 78, 79, 20, 70, 74, & - 75, 79, 72, 73, 74, 76, 78, 72, 73, 74, 78, 80, & - 32, 34, 74, 79, 81, 72, 74, 77, 78, 79, 72, 74, & - 77, 72, 74, 78, 43, 73, 74, 43, 73, 74, 46, 64, & - 75, 46, 66, 69, 75, 79, 81, 46, 64, 73, 80, 51, & - 64, 66, 69, 73, 76, 79, 38, 64, 79, 38, 64, 75, & - 34, 75, 77, 53, 59, 80, 53, 60, 66, 69, 72, 73, & - 76, 79, 53, 60, 66, 69, 72, 73, 79, 80, 53, 60, & - 66, 69, 72, 73, 79, 58, 67, 75, 78, 39, 58, 67 /) - INTEGER, PARAMETER, DIMENSION(101) :: IROW_STOICM_2 = (/ & - 78, 80, 28, 60, 73, 75, 79, 28, 60, 73, 79, 80, & - 28, 68, 75, 54, 58, 65, 67, 68, 73, 76, 79, 54, & - 58, 65, 67, 68, 73, 79, 80, 15, 68, 79, 41, 54, & - 58, 65, 67, 68, 72, 77, 79, 54, 58, 65, 67, 68, & - 77, 78, 79, 15, 68, 75, 15, 41, 72, 75, 79, 17, & - 62, 75, 79, 43, 65, 72, 75, 79, 80, 36, 72, 75, & - 80, 65, 67, 75, 79, 37, 54, 72, 75, 79, 8, 16, & - 75, 8, 16, 75, 79, 8, 16, 39, 80, 2, 75, 9, & - 79, 17, 56, 62, 79 /) - INTEGER, PARAMETER, DIMENSION(821) :: IROW_STOICM = (/& - IROW_STOICM_0, IROW_STOICM_1, IROW_STOICM_2 /) - - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_0 = (/ & - 1, 2, 2, 3, 3, 4, 4, 5, 5, 5, 6, 6, & - 6, 7, 7, 7, 8, 8, 8, 8, 9, 9, 9, 9, & - 9, 10, 10, 10, 10, 11, 11, 11, 12, 12, 12, 13, & - 13, 14, 14, 14, 14, 15, 15, 15, 15, 15, 16, 16, & - 16, 17, 17, 17, 17, 17, 18, 18, 18, 19, 19, 19, & - 19, 19, 19, 19, 20, 20, 20, 20, 20, 21, 21, 21, & - 21, 22, 22, 22, 22, 23, 23, 23, 23, 24, 24, 24, & - 25, 25, 25, 25, 26, 26, 27, 27, 27, 27, 27, 28, & - 28, 28, 28, 28, 29, 29, 29, 29, 30, 30, 30, 30, & - 31, 31, 31, 32, 32, 32, 32, 32, 32, 33, 33, 33, & - 34, 34, 34, 34, 34, 34, 34, 35, 35, 35, 35, 36, & - 36, 36, 36, 36, 37, 37, 37, 37, 37, 37, 38, 38, & - 39, 39, 40, 40, 41, 41, 42, 42, 42, 42, 43, 43, & - 43, 44, 44, 44, 45, 45, 45, 46, 46, 46, 47, 47, & - 47, 48, 48, 49, 49, 49, 50, 50, 51, 51, 52, 52, & - 53, 53, 53, 54, 54, 55, 55, 55, 55, 56, 56, 56, & - 57, 57, 57, 58, 58, 58, 59, 59, 59, 59, 60, 60, & - 60, 61, 61, 61, 62, 62, 62, 63, 63, 63, 64, 64, & - 64, 65, 65, 65, 66, 66, 66, 67, 67, 67, 68, 68, & - 69, 69, 70, 70, 70, 70, 71, 71, 71, 72, 72, 72, & - 72, 72, 72, 72, 73, 73, 73, 73, 73, 74, 74, 74, & - 75, 75, 75, 76, 76, 76, 77, 77, 77, 77, 78, 78, & - 78, 78, 78, 79, 79, 79, 79, 80, 80, 80, 81, 81, & - 81, 81, 81, 82, 82, 82, 82, 82, 82, 82, 83, 83, & - 83, 84, 84, 84, 84, 85, 85, 85, 85, 86, 86, 86, & - 87, 87, 87, 88, 88, 88, 89, 89, 89, 89, 89, 90, & - 90, 90, 91, 91, 91, 91, 91, 91, 91, 92, 92, 92, & - 92, 93, 93, 93, 94, 94, 94, 94, 94, 94, 94, 94, & - 94, 94, 95, 95, 95, 96, 96, 96, 96, 96, 96, 97, & - 97, 97, 98, 98, 98, 98, 99, 99, 99,100,100,100 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_1 = (/ & - 100,101,101,101,101,102,102,102,103,103,103,103, & - 103,104,104,104,104,104,105,105,105,105,106,106, & - 106,107,107,108,108,108,109,109,109,109,109,109, & - 110,110,110,111,111,111,111,111,112,112,112,113, & - 113,113,114,114,114,114,114,115,115,115,116,116, & - 116,116,116,116,116,116,117,117,117,118,118,118, & - 119,119,119,119,119,119,119,120,120,120,121,121, & - 121,121,121,121,121,121,121,122,122,122,123,123, & - 123,124,124,124,124,125,125,125,126,126,126,126, & - 126,127,127,127,128,128,128,129,129,129,129,129, & - 130,130,130,131,131,131,131,132,132,132,132,132, & - 132,132,133,133,133,134,134,134,135,135,135,136, & - 136,136,136,136,136,136,136,136,136,136,137,137, & - 137,137,137,137,137,137,137,138,138,138,138,138, & - 138,138,138,139,139,139,140,140,140,140,141,141, & - 141,141,141,141,141,141,142,142,142,142,142,142, & - 142,142,143,143,143,144,144,144,144,144,144,144, & - 144,145,145,145,145,146,146,146,146,146,146,146, & - 147,147,147,147,147,147,147,147,147,147,148,148, & - 148,149,149,149,149,149,149,149,149,149,149,150, & - 150,150,151,151,151,151,151,151,151,151,151,151, & - 152,152,152,152,152,152,152,152,152,153,153,153, & - 153,153,154,154,154,154,154,155,155,155,155,155, & - 156,156,156,156,156,157,157,157,157,157,158,158, & - 158,159,159,159,160,160,160,161,161,161,162,162, & - 162,163,163,163,163,163,163,164,164,164,164,165, & - 165,165,165,165,165,165,166,166,166,167,167,167, & - 168,168,168,169,169,169,170,170,170,170,170,170, & - 170,170,171,171,171,171,171,171,171,171,172,172, & - 172,172,172,172,172,173,173,173,173,174,174,174 /) - INTEGER, PARAMETER, DIMENSION(101) :: ICOL_STOICM_2 = (/ & - 174,174,175,175,175,175,175,176,176,176,176,176, & - 177,177,177,178,178,178,178,178,178,178,178,179, & - 179,179,179,179,179,179,179,180,180,180,181,181, & - 181,181,181,181,181,181,181,182,182,182,182,182, & - 182,182,182,183,183,183,184,185,185,185,185,186, & - 186,186,186,187,187,187,187,187,187,188,188,188, & - 188,189,189,189,189,190,190,190,190,190,191,191, & - 191,192,192,192,192,193,193,193,193,194,194,195, & - 195,196,196,196,196 /) - INTEGER, PARAMETER, DIMENSION(821) :: ICOL_STOICM = (/& - ICOL_STOICM_0, ICOL_STOICM_1, ICOL_STOICM_2 /) - - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_0 = (/ & - 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 8.900000e-01_dp, 1.100000e-01_dp, -1.000000e+00_dp, 8.900000e-01_dp, & - -1.000000e+00_dp, 6.600000e-01_dp, 3.300000e-01_dp, 6.600000e-01_dp, 3.300000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 6.000000e-01_dp, 4.000000e-01_dp, 6.000000e-01_dp, 4.000000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 6.700000e-01_dp, -1.000000e+00_dp, 6.700000e-01_dp, & - 3.300000e-01_dp, 3.300000e-01_dp, 6.700000e-01_dp, 6.700000e-01_dp, 7.000000e-01_dp, & - 7.000000e-01_dp, -1.000000e+00_dp, 3.000000e-01_dp, 3.000000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 8.200000e-01_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 2.880000e-01_dp, 4.020000e-01_dp, 6.900000e-01_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.300000e-01_dp, -1.000000e+00_dp, 4.500000e-01_dp, 1.800000e-01_dp, & - 1.300000e-01_dp, 5.600000e-01_dp, -1.000000e+00_dp, 2.000000e+00_dp, 2.000000e+00_dp, & - 8.000000e-01_dp, -1.000000e+00_dp, 2.500000e-01_dp, 4.000000e-01_dp, 1.000000e-01_dp, & - 1.000000e+00_dp, 9.000000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 4.500000e-01_dp, 9.000000e-01_dp, 4.500000e-01_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_1 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -2.000000e+00_dp, 1.000000e+00_dp, -2.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 5.000000e-02_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 2.500000e-01_dp, 7.500000e-01_dp, 7.500000e-01_dp, 4.000000e-01_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - -2.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 3.000000e-01_dp, & - -7.000000e-01_dp, 7.000000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 7.500000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, 2.500000e-01_dp, -1.000000e+00_dp, & - 2.500000e-01_dp, 5.000000e-01_dp, 1.000000e+00_dp, 1.200000e-01_dp, 1.200000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_2 = (/ & - -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e-01_dp, & - 3.000000e-01_dp, -1.000000e+00_dp, 8.000000e-01_dp, 7.000000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp, 5.000000e-01_dp, -5.000000e-01_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 2.500000e-01_dp, 8.000000e-02_dp, & - 5.600000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, 5.400000e-01_dp, 3.300000e-01_dp, & - 3.100000e-01_dp, 1.900000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 5.000000e-01_dp, 5.000000e-01_dp, -5.000000e-01_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 7.500000e-01_dp, 2.500000e-01_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 2.500000e-01_dp, 1.000000e-01_dp, 1.000000e+00_dp, & - -1.000000e-01_dp, -1.000000e+00_dp, 9.000000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, & - -1.000000e+00_dp, 5.000000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 8.200000e-01_dp, -1.000000e+00_dp, 2.700000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 8.200000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp, -1.000000e+00_dp, & - 2.000000e-01_dp, 5.000000e-01_dp, 8.000000e-01_dp, -1.000000e+00_dp, 3.000000e-01_dp, & - 3.000000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp, 1.000000e+00_dp, & - 5.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e-01_dp, 7.500000e-01_dp, 2.500000e-01_dp, & - -1.000000e+00_dp, 4.000000e-01_dp, 1.000000e-01_dp, 9.000000e-01_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_3 = (/ & - 9.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 2.500000e-01_dp, 7.000000e-01_dp, -1.000000e+00_dp, 2.500000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 7.000000e-01_dp, & - -3.000000e-01_dp, 7.000000e-01_dp, 4.500000e-01_dp, -1.000000e+00_dp, 9.000000e-01_dp, & - 4.500000e-01_dp, 9.000000e-01_dp, -1.000000e+00_dp, 9.000000e-01_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e-01_dp, 3.000000e-01_dp, & - -1.000000e+00_dp, 7.000000e-02_dp, 4.000000e-01_dp, 2.000000e-01_dp, 6.000000e-01_dp, & - 2.000000e-01_dp, 2.700000e-01_dp, 6.000000e-02_dp, -9.000000e-01_dp, 3.700000e-01_dp, & - 8.000000e-02_dp, 2.300000e-01_dp, 3.200000e-01_dp, -1.000000e+00_dp, 5.500000e-01_dp, & - 9.200000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 4.000000e-01_dp, 2.500000e-01_dp, & - 3.500000e-01_dp, -1.000000e+00_dp, 6.000000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, 3.000000e-01_dp, 2.500000e-01_dp, & - 1.900000e-01_dp, 2.600000e-01_dp, -1.000000e+00_dp, 1.200000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 4.000000e-01_dp, 2.500000e-01_dp, 3.500000e-01_dp, -1.000000e+00_dp, & - 6.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-02_dp, 4.000000e-02_dp, 9.500000e-01_dp, & - -1.000000e+00_dp, 8.000000e-01_dp, 8.000000e-02_dp, 6.000000e-02_dp, -8.000000e-01_dp, & - -1.000000e+00_dp, 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, 2.000000e-01_dp, & - -1.000000e+00_dp, 8.000000e-01_dp, 7.000000e-01_dp, 2.150000e-01_dp, 2.750000e-01_dp, & - -8.000000e-01_dp, 5.300000e-01_dp, 2.200000e-01_dp, 2.200000e-01_dp, 2.500000e-01_dp, & - -1.000000e+00_dp, 2.500000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 5.300000e-01_dp, & - 4.700000e-01_dp, 8.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 5.300000e-01_dp, & - 2.200000e-01_dp, 2.200000e-01_dp, 2.500000e-01_dp, -1.000000e+00_dp, 2.500000e-01_dp, & - 1.000000e+00_dp, 5.300000e-01_dp, 4.700000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_4 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 2.500000e-01_dp, 2.600000e-01_dp, 1.100000e-01_dp, & - 2.300000e-01_dp, 2.400000e-01_dp, -1.000000e+00_dp, 8.800000e-01_dp, -1.000000e+00_dp, & - 2.600000e-01_dp, 7.300000e-01_dp, 5.300000e-01_dp, 2.200000e-01_dp, 2.200000e-01_dp, & - 2.500000e-01_dp, -1.000000e+00_dp, 2.500000e-01_dp, 1.000000e+00_dp, -4.700000e-01_dp, & - 4.700000e-01_dp, -1.000000e+00_dp, 2.000000e-01_dp, 5.000000e-01_dp, -9.000000e-01_dp, & - 2.000000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 7.500000e-01_dp, 2.500000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 2.500000e-01_dp, 2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - -2.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 7.000000e-01_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 7.940000e-01_dp, 1.670000e-01_dp, 3.900000e-02_dp, 7.200000e-02_dp, & - 1.206000e+00_dp, -1.000000e+00_dp, 7.940000e-01_dp, -1.000000e+00_dp, 7.940000e-01_dp, & - 1.670000e-01_dp, 3.900000e-02_dp, 7.200000e-02_dp, 1.206000e+00_dp, 7.940000e-01_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 7.940000e-01_dp, 1.670000e-01_dp, 3.900000e-02_dp, & - 8.000000e-03_dp, 2.060000e-01_dp, -2.060000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 4.000000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.500000e-01_dp, 1.000000e+00_dp, 2.500000e-01_dp, 2.500000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.500000e+00_dp, 2.500000e-01_dp, 1.000000e+00_dp, & - 2.500000e-01_dp, 2.500000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.500000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(71) :: STOICM_5 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 3.000000e-01_dp, & - 1.000000e-01_dp, 4.000000e-01_dp, 1.000000e-01_dp, 1.000000e-01_dp, -1.000000e+00_dp, & - 7.000000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.500000e-01_dp, 1.000000e+00_dp, & - 2.500000e-01_dp, 2.500000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.500000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp, & - 5.000000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e-01_dp, -1.000000e+00_dp, 8.000000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, -1.000000e+00_dp, 4.000000e-01_dp, -2.000000e+00_dp, 1.600000e+00_dp, & - 1.200000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(821) :: STOICM = (/& - STOICM_0, STOICM_1, STOICM_2, STOICM_3, STOICM_4, & - STOICM_5 /) - - -END MODULE MOZART_4_StoichiomSP - diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_StoichiomSP.o b/boxmox/compiled_mechs/MOZART_4/MOZART_4_StoichiomSP.o deleted file mode 100644 index 3f7869eb9779a29f7e0f66107348e66c97c24045..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/MOZART_4_StoichiomSP.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Util.f90 b/boxmox/compiled_mechs/MOZART_4/MOZART_4_Util.f90 deleted file mode 100644 index e22b75f7305f7c2386bd4b915ac8256f6f727b01..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Util.f90 +++ /dev/null @@ -1,1564 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Auxiliary Routines File -! -! Generated by KPP-2.2.3 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 : MOZART_4_Util.f90 -! Time : Mon Jul 19 09:14:05 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_4_11638_BOXMOX -! Equation file : MOZART_4.kpp -! Output root filename : MOZART_4 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MOZART_4_Util - - USE MOZART_4_Parameters - USE MOZART_4_Global - USE MOZART_4_Monitor - IMPLICIT NONE - -CONTAINS - - - -! User INLINED Utility Functions - - -! **************************************************************************** -! **************************************************************************** -! BOXMOX utilities -! **************************************************************************** -! **************************************************************************** - - -! **************************************************************************** -! toUPPER - convert ASCII characters to all upper case -! from http://stackoverflow.com/questions/10759375/ -! how-can-i-write-a-to-upper-or-to-lower-function-in-f90 -! **************************************************************************** - FUNCTION toUPPER (str) RESULT (string) - - CHARACTER(*), INTENT(In) :: str - CHARACTER(LEN(str)) :: string - - INTEGER :: ic, i - - CHARACTER(26), PARAMETER :: cap = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' - CHARACTER(26), PARAMETER :: low = 'abcdefghijklmnopqrstuvwxyz' - - string = str - DO i = 1, LEN_TRIM(str) - ic = INDEX(low, str(i:i)) - IF (ic > 0) string(i:i) = cap(ic:ic) - END DO - - END FUNCTION toUPPER -! **************************************************************************** - - -! **************************************************************************** -! hash - a string hashing function -! from flibs, http://flibs.sourceforge.net -! **************************************************************************** - INTEGER FUNCTION hash( key ) - - CHARACTER(len=*), INTENT(in) :: key - - INTEGER :: i - - INTEGER, PARAMETER :: hash_size = 49931 - INTEGER, PARAMETER :: multiplier = 312 - - hash = 0 - - DO i = 1,LEN(key) - hash = MODULO( multiplier * hash + ICHAR(key(i:i)), hash_size) - ENDDO - - hash = 1 + MODULO( hash-1, hash_size ) - END FUNCTION hash -! **************************************************************************** - - -! **************************************************************************** -! strEqual - comparison function matching two strings -! **************************************************************************** - LOGICAL FUNCTION strEqual(a, b) - - CHARACTER(LEN=*), INTENT(IN) :: a, b - - LOGICAL, PARAMETER :: ignoreCase = .TRUE. - - CHARACTER(LEN=100) :: nice_a, nice_b - INTEGER :: max_len - - nice_a = ADJUSTL(a) - nice_b = ADJUSTL(b) - - IF (ignoreCase) THEN - nice_a = toUPPER(nice_a) - nice_b = toUPPER(nice_b) - END IF - - max_len = MAX( LEN_TRIM(nice_a), LEN_TRIM(nice_b) ) - - strEqual = nice_a(1:max_len) .EQ. nice_b(1:max_len) - - END FUNCTION strEqual -! **************************************************************************** - - -! **************************************************************************** -! writespecstring - Utility function that plots a (potentially) -! large number of species -! **************************************************************************** - SUBROUTINE writespecstring(nspecies, txt, species, offset) - - INTEGER :: nspecies, offset - CHARACTER(LEN=*) :: txt - CHARACTER(LEN=15) :: species(nspecies), fmt - CHARACTER(LEN=2000) :: specstring - - INTEGER, PARAMETER :: cperline=60 - - INTEGER :: i, l - - fmt = "" - WRITE(fmt, "(A1,I3,A4)") "(", offset, "X,A)" - - i = 1; l = 1 - specstring = "" - - DO WHILE (i <= nspecies) - - specstring = TRIM(ADJUSTL(specstring))//TRIM(ADJUSTL(species(i))) - IF (i < nspecies) specstring = TRIM(ADJUSTL(specstring))//", " - - i = i + 1 - - IF (LEN_TRIM(specstring) > cperline) THEN - IF (l == 1) specstring = txt//specstring - l = l + 1 - WRITE(*,fmt) TRIM(specstring) - specstring = "" - ENDIF - ENDDO - - IF (LEN_TRIM(specstring) > 0) THEN - IF (l == 1) specstring = txt//specstring - WRITE(*,fmt) TRIM(specstring) - ENDIF - - END SUBROUTINE writespecstring -! **************************************************************************** - - -! **************************************************************************** -! calcCFACTOR - Calculates CFACTOR variable for unit conversion between -! input/output files and values used in calculations / rates -! **************************************************************************** - SUBROUTINE calcCFACTOR ( ) - - ! from ppmv to mlc/cm3: - ! 1e-6 ppmv -> vmr - ! 1e-3 kg/m3 -> g/cm3 - ! 1/28.9645 g/cm3 -> mole/cm3 - ! 6.022e23 -> molec/cm3 - ! then multiply with air density rho - ! 1.0E-6 * 1E-03 * (1.0/28.97) * 6.022e23 * rho - ! CFACTOR = 2.598378e+13; (with rho == 1.25) - - CFACTOR = 1.0E-6 * 1E-03 * (1.0/28.9645) * 6.022e23 * & - pres / (287.058 * temp) - - END SUBROUTINE calcCFACTOR -! **************************************************************************** - - -! **************************************************************************** -! readConfig - Sets variables using values read in from "BOXMOX.nml" -! **************************************************************************** - SUBROUTINE readConfig ( ) - - INTEGER, PARAMETER :: config_pid = 22 - CHARACTER(LEN=*), PARAMETER :: config_name = "BOXMOX.nml" - - NAMELIST /BOXMOX/ TSTART, TEND, DT, lverbose, iturb, lfix_nox - - LOGICAL :: lnml_exists - - ! *** default values section *** - - TSTART = 0.0D0 ! model start time, seconds since 0 LT - TEND = TSTART + 3600.0D0 ! model end time, seconds since 0 LT - DT = 10.D0 ! model time step, seconds - - lverbose = .FALSE. - iturb = TURB_OPT_NONE - - lfix_nox = .FALSE. - - ! *** namelist read-in section *** - - INQUIRE(FILE=config_name, EXIST=lnml_exists) - - IF (lnml_exists) THEN - - WRITE(*,*) "BOXMOX configuration file ", TRIM(config_name)," found." - - OPEN (config_pid, FILE=config_name) - READ (config_pid, nml=BOXMOX) - CLOSE(config_pid) - - ELSE - WRITE(*,*) "No BOXMOX configuration file (", & - TRIM(config_name),") exists." - ENDIF - - ! *** configuration printout *** - - WRITE(*,*) " " - WRITE(*,"(A20,2X,F12.3)") "TSTART", TSTART - WRITE(*,"(A20,2X,F12.3)") "TEND", TEND - WRITE(*,"(A20,2X,F12.3)") "DT", DT - WRITE(*,*) "" - WRITE(*,"(A20,2X,L10)") "lverbose", lverbose - WRITE(*,*) "" - WRITE(*,"(A20,11X,I1)") "iturb", iturb - WRITE(*,*) "" - WRITE(*,"(A20,2X,L10)") "lfix_nox", lfix_nox - - WRITE(*,*) " " - - END SUBROUTINE readConfig -! **************************************************************************** - - -! **************************************************************************** -! checkConfig - check configuration variables -! **************************************************************************** - SUBROUTINE checkConfig ( ) - - INTEGER :: status - - status = 0 - - IF (TSTART < 0.0) THEN - WRITE(*,*) "start time TSTART cannot be < 0.0" - status = 1 - ENDIF - IF (TEND < 0.0) THEN - WRITE(*,*) "end time TEND cannot be < 0.0" - status = 2 - ENDIF - IF (TSTART >= TEND) THEN - WRITE(*,*) "start time TSTART has to be < end time TEND" - status = 3 - ENDIF - IF (DT <= 0.0) THEN - WRITE(*,*) "time step DT has to be > 0.0" - status = 4 - ENDIF - - IF (status .NE. 0) THEN - IF (.NOT. llibrary) THEN - STOP - ENDIF - ENDIF - - END SUBROUTINE checkConfig -! **************************************************************************** - - -! **************************************************************************** -! writeVersion - Write "VERSION" file to run directory -! **************************************************************************** - SUBROUTINE writeVersion ( ) - - INTEGER, PARAMETER :: version_pid = 23 - CHARACTER(LEN=*), PARAMETER :: version_name = "VERSION" - - ! *** write BOXMOX version to output directory *** - - OPEN(version_pid, file=version_name) - WRITE(version_pid, "(A)") "__BOXMOX_VERSION__" - CLOSE(version_pid) - - END SUBROUTINE writeVersion -! **************************************************************************** - - -! **************************************************************************** -! readVals - main input routine for the BOXMOX extensions. -! reads values from input files with different time -! formats, and interpolates to get the values -! appropriate for the current time step. -! **************************************************************************** - SUBROUTINE readVals(fname, nvar, species, values, stat, & - nanc, ancspecies, ancvalues, lquiet) - - CHARACTER(LEN=*), INTENT(IN) :: fname - INTEGER, INTENT(OUT) :: nvar - CHARACTER(LEN=15), INTENT(OUT) :: species(max_species_boxmox) - REAL(KIND=dp), INTENT(OUT) :: values(max_species_boxmox) - INTEGER, INTENT(OUT) :: stat - INTEGER, INTENT(OUT), OPTIONAL :: nanc - CHARACTER(LEN=15), INTENT(OUT),OPTIONAL :: ancspecies(max_species_boxmox) - REAL(KIND=dp), INTENT(OUT), OPTIONAL :: ancvalues(max_species_boxmox) - LOGICAL, INTENT(IN), OPTIONAL :: lquiet - - INTEGER, PARAMETER :: input_pid = 21 - REAL(KIND=dp) :: time_cur, weight_t1, & - values_t0(max_species_boxmox), & - values_t1(max_species_boxmox), & - values_cur(max_species_boxmox) - CHARACTER(LEN=15) :: names(max_species_boxmox) - INTEGER :: iostat, time_format, ntoread, ntime, nanct, pid, i - LOGICAL :: lfile_exists, ltalkative - - names(:) = "" - values_t0(:) = 0.0 - values_t1(:) = 0.0 - - stat = 0 ! everything is allright - - ltalkative = ( TIME .EQ. TSTART ) .OR. lverbose - IF (PRESENT(lquiet)) THEN - IF (lquiet) THEN - ltalkative = .FALSE. - ENDIF - ENDIF - - ! check whether file exists - INQUIRE(FILE=fname, EXIST=lfile_exists) - IF (.NOT. lfile_exists) THEN - stat = 1 - RETURN - ELSE - IF (ltalkative) THEN - WRITE(*,*) "" - WRITE(*,*) " * ", fname - ENDIF - END IF - - OPEN(input_pid, file=fname) - - ! line 1: number of variables - READ(input_pid, *) nvar - - ! if no variable should be read - bail - IF (nvar == 0) THEN - IF (ltalkative) WRITE(*,*) fname, " declared 0 variables to be read" - stat = 2 - CLOSE(input_pid) - RETURN - END IF - - ! line 2: number of ancillary variables - READ(input_pid, *) nanct - - IF (nanct .LT. 0) THEN - WRITE(*,"(A)") "Number of ancillary variables must be >= 0" - CLOSE(input_pid) - STOP - ENDIF - - IF (nanct .GT. 1) THEN - WRITE(*,"(A)") "Number of ancillary variables must be < 2" - CLOSE(input_pid) - STOP - ENDIF - - ! line 3: time format - READ(input_pid, *) time_format - - IF (time_format .LT. 0 .OR. time_format .GT. 2) THEN - WRITE(*,"(3A)") "Time format has to be 0 (constant), ", & - "1 (s since TSTART) or ", & - "2 (hour of day)" - CLOSE(input_pid) - STOP - END IF - - ntime = 0 - IF (time_format .GT. 0) ntime = 1 - - ntoread = ntime + nanct + nvar - - ! if more variables than max_species_boxmox should be read - bail - IF (ntoread > max_species_boxmox) THEN - IF (ltalkative) THEN - WRITE(*,*) fname, " declared more variables to be read" - WRITE(*,*) "than allocated. Increase max_species_boxmox," - WRITE(*,*) "recompile, and run again." - ENDIF - stat = 3 - CLOSE(input_pid) - RETURN - END IF - - ! line 4: header line - READ(input_pid, *) names(1:ntoread) - - ! line 4ff: values - READ(input_pid, *) values_t0(1:ntoread) - - ! if its not constant in time values - weight_t1 = 0 - IF (.NOT. time_format .EQ. 0) THEN - READ(input_pid, *, IOSTAT=iostat) values_t1(1:ntoread) - - ! TIME is the KPP provided current model time - time_cur = TIME - IF (time_format .EQ. 2) THEN - time_cur = TIME/3600.0_dp - (INT(TIME/3600.0_dp)/24)*24 - END IF - - ! ASSUMPTION: time is the first value read - DO WHILE(values_t1(1) .LT. time_cur .AND. iostat .EQ. 0) - values_t0 = values_t1 - - READ(input_pid, *, IOSTAT=iostat) values_t1(1:ntoread) - END DO - - ! take the last value in the file in case its time values don't cover - ! the full simulation period - IF (iostat .NE. 0) THEN - weight_t1 = 1.0 - ELSE - weight_t1 = (time_cur - values_t0(1)) / (values_t1(1) - values_t0(1)) - ENDIF - - ENDIF - - CLOSE(input_pid) - - values_cur = weight_t1 * values_t1 + & - (1.0 - weight_t1) * values_t0 - - species(1:nvar) = names(ntime+nanct+1:ntime+nanct+nvar) - values(1:nvar) = values_cur(ntime+nanct+1:ntime+nanct+nvar) - - IF (PRESENT(nanc)) nanc = nanct - - IF (nanct .GT. 0) THEN - IF (PRESENT(ancvalues)) THEN - ancvalues(1:nanct) = values_cur(ntime+1:ntime+nanct) - ENDIF - IF (PRESENT(ancspecies)) THEN - ancspecies(1:nanct) = names(ntime+1:ntime+nanct) - ENDIF - ENDIF - - END SUBROUTINE readVals -! **************************************************************************** - - -! **************************************************************************** -! readInput - Reads values from .csv, applies function -! -! "t" is for "target" (i.e. the vector to apply "action" over) -! "r" is for "read" from file -! "u" is for "useable" (i.e., exists in the "target" vector) -! "m" is for "missing" (i.e., asked for, but not found in file) -! -! **************************************************************************** - SUBROUTINE readInput (filename, nt, tnames, tvalues, & - action, lzero, quiet) - - CHARACTER(LEN=*), INTENT(IN) :: filename - INTEGER, INTENT(IN) :: nt - REAL(KIND=dp) :: tvalues(nt) - CHARACTER(LEN=15), INTENT(IN) :: tnames(nt) - REAL(KIND=dp), OPTIONAL :: action ! function to be called - LOGICAL, INTENT(IN), OPTIONAL :: lzero ! call action with 0.0 - ! for 'missing' species - LOGICAL, INTENT(IN), OPTIONAL :: quiet - - INTEGER :: nr, nu, nm, i, k, m, & - iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - unames(max_species_boxmox), & - mnames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox) - LOGICAL :: is_used, first, & - talkative - - CALL readVals(filename, nr, rnames, rvalues, iostat) - - IF (iostat .NE. 0) RETURN - - talkative = .TRUE. - IF (PRESENT(quiet)) talkative = .NOT. quiet - - unames(:) = "none" - nu = 0 - - first = lverbose - - DO i = 1, nr - DO k = 1, nt - IF ( strEqual(rnames(i), tnames(k)) ) THEN - - IF (PRESENT(action)) THEN - tvalues(k) = action( tvalues(k), k, rvalues(i), first) - ELSE - tvalues(k) = rvalues(i) - IF ( (lverbose .OR. first) .AND. talkative ) THEN - WRITE(*,"(6X,A15,1X,E12.6)") tnames(k), tvalues(k)/CFACTOR - ENDIF - ENDIF - - first = .FALSE. - - nu = nu + 1 - unames(nu) = TRIM(ADJUSTL(rnames(i))) - ENDIF - ENDDO - ENDDO - - IF (PRESENT(lzero)) THEN - IF (lzero) THEN - DO k = 1, nt - is_used = .FALSE. - DO i = 1, nu - IF ( strEqual(unames(i), tnames(k)) ) is_used = .TRUE. - ENDDO - IF (.NOT. is_used) THEN - tvalues(k) = action( tvalues(k), k, 0.0, first) - first = .FALSE. - ENDIF - ENDDO - ENDIF - ENDIF - - nm = nr - nu - mnames(:) = "" - - IF (nm > 0) THEN - m = 1 - DO i = 1, nr - is_used = .FALSE. - DO k = 1, nu - IF ( strEqual(rnames(i), unames(k)) ) is_used = .TRUE. - ENDDO - - IF (.NOT. is_used) THEN - mnames(m) = TRIM(ADJUSTL(rnames(i))) - m = m + 1 - ENDIF - ENDDO - ENDIF - - IF ( ((TIME .EQ. TSTART) .OR. lverbose) .AND. talkative) THEN - IF (nu > 0) CALL writespecstring(nu, "useable:", unames, 6) - IF (nm > 0) CALL writespecstring(nm, "unknown: ", mnames, 6) - ENDIF - - END SUBROUTINE readInput -! **************************************************************************** - - -! **************************************************************************** -! InitialCondition - Sets initial values -! **************************************************************************** - REAL(KIND=dp) FUNCTION InitialCondition(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - InitialCondition = y * CFACTOR - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,A12,1X)") "species ", "IC" - WRITE(*,"(6X,A15,1X,E12.6,1X)") SPC_NAMES(k), InitialCondition/CFACTOR - ENDIF - - END FUNCTION InitialCondition -! **************************************************************************** - - -! **************************************************************************** -! Deposition - Applies deposition velocities -! **************************************************************************** - REAL(KIND=dp) FUNCTION Deposition(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - REAL(KIND=dp) :: dCdt - - Deposition = x - - ! we don't remove fixed variables - IF (k .LT. NFIXST) THEN - ! we assume deposition velocities in comparable units - ! (i.e. cm s-1) - ! dxdydz(3) == DZ - dCdt = - y * x / (dxdydz(3) * 100.0) - Deposition = MAX( 0.0, x + DT * dCdt ) - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "v_dep", "after" - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, y, & - Deposition/CFACTOR - ENDIF - - ENDIF - - END FUNCTION Deposition -! **************************************************************************** - - -! **************************************************************************** -! Emission - Adds emissions -! **************************************************************************** - REAL(KIND=dp) FUNCTION Emission(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - REAL(KIND=dp) :: cur - - ! we assume emissions to be a flux in units comparable to the - ! concentration values used in KPP - ! e.g. molecules / m2 / s vs molecules / m3, or - ! moles / cm2 / s vs moles / cm3, ... - ! the time dimensions unit has to be seconds! - - ! dxdydz(3) is PBL height in m - cur = y * DT / (dxdydz(3) * 100.0) - - Emission = x + cur - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "tendency", "after" - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, & - cur/DT/CFACTOR, Emission/CFACTOR - ENDIF - - END FUNCTION Emission -! **************************************************************************** - - -! **************************************************************************** -! Mix - calculate concentration after turbulent mixing -! **************************************************************************** - REAL(KIND=dp) FUNCTION Mix(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - REAL(KIND=dp) :: frac_bg - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - Mix = x - - frac_bg = Kturb * DT - - IF (lfirst .AND. lverbose) THEN - WRITE(*,"(6X,A,1X,F6.3)") "fractional amount of background air", & - frac_bg - WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "background", "after" - ENDIF - - ! we don't mix fixed variables - IF (k .LT. NFIXST) THEN - - ! seems like we found something - Mix = frac_bg * (y * CFACTOR) + & - (1.0 - frac_bg) * x - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, & - y, Mix/CFACTOR - ENDIF - - ENDIF - - END FUNCTION Mix -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturb - calculate Kturb for mixing -! **************************************************************************** - SUBROUTINE UpdateKturb() - - Kturb = 0.0 - SELECT CASE (iturb) - CASE (TURB_OPT_NONE) - Kturb = 0.0 - CASE (TURB_OPT_SPECIFIED) - CALL UpdateKturbSpecified() - CASE (TURB_OPT_VOLUME) - CALL UpdateKturbVolume() - CASE (TURB_OPT_TRACER) - CALL UpdateKturbTracer() - CASE DEFAULT - WRITE(*,"(A,1X,I1)") "Unknown mixing option", iturb - END SELECT - - END SUBROUTINE UpdateKturb -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbSpecified - calc. Kturb for mixing using specified Kturb -! **************************************************************************** - SUBROUTINE UpdateKturbSpecified() - - INTEGER :: nr, na, i, iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - anames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox), & - avalues(max_species_boxmox) - LOGICAL :: lfound - - Kturb = 0.0 - - CALL readVals('Background.csv', & - nr, rnames, rvalues, iostat, & - na, anames, avalues, lquiet=.TRUE.) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - lfound = .FALSE. - DO i = 1, na - IF ( strEqual(anames(i), 'Kturb') ) THEN - Kturb = avalues(i) - lfound = .TRUE. - ENDIF - ENDDO - - IF (.NOT. lfound) THEN - WRITE(*,*) "Kturb variable not found in Background.csv" - STOP - ENDIF - - END SUBROUTINE UpdateKturbSpecified -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbVolume - calc. Kturb for mixing using box volume changes -! **************************************************************************** - SUBROUTINE UpdateKturbVolume() - - REAL(KIND=dp) :: vol, vol_old - - vol = dxdydz(1) * dxdydz(2) * dxdydz(3) - vol_old = dxdydz_old(1) * dxdydz_old(2) * dxdydz_old(3) - - ! maybe we have a mixing case where the box volume changes? - ! increasing volume - dilute against background - ! decreasing volume - ignore (?) for now - - ! in the PBL case, analogue: - ! maybe we changed the PBLH? update concentration vector - ! rising BL - mixing against zero air or bg values - ! shrinking BL - creates residual layer, decouples - - IF (vol > vol_old) THEN - Kturb = ( (vol - vol_old) / vol_old ) / DT - ENDIF - - END SUBROUTINE UpdateKturbVolume -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbTracer - calc. Kturb for mixing using tracer (t, tname) conc. -! changes -! **************************************************************************** - SUBROUTINE UpdateKturbTracer() - - INTEGER :: nr, na, i, iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - anames(max_species_boxmox), & - tracer_name - REAL(KIND=dp) :: rvalues(max_species_boxmox), & - avalues(max_species_boxmox), & - prev, obs, bg, frac_bg - LOGICAL :: lfound_prev, lfound_bg - - Kturb = 0.0 - - CALL readVals('Background.csv', & - nr, rnames, rvalues, iostat, & - na, anames, avalues, lquiet=.TRUE.) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - ! ASSUMPTION: first ancillary species is mixing tracer - tracer_name = anames(1) - obs = avalues(1) * CFACTOR - - prev = 0.0 - lfound_prev = .FALSE. - DO i = 1, NSPEC - IF ( strEqual(SPC_NAMES(i), tracer_name) ) THEN - prev = C(i) - lfound_prev = .TRUE. - ENDIF - ENDDO - - bg = 0.0 - lfound_bg = .FALSE. - DO i = 1, nr - IF ( strEqual(rnames(i), tracer_name) ) THEN - bg = rvalues(i) * CFACTOR - lfound_bg = .TRUE. - ENDIF - ENDDO - - IF (.NOT. lfound_bg) THEN - WRITE(*,*) "Tracer ", TRIM(tracer_name), & - " not found in Background.csv" - STOP - ENDIF - IF (.NOT. lfound_prev) THEN - WRITE(*,*) "Tracer ", TRIM(tracer_name), & - " not found in mechanism" - STOP - ENDIF - - IF ( ABS( bg - prev ) < 1e-10 ) THEN - Kturb = 0.0 - ELSE - frac_bg = ( obs - prev ) / ( bg - prev ) - frac_bg = MIN( frac_bg, 1.0 ) - frac_bg = MAX( frac_bg, 0.0 ) - - Kturb = frac_bg / DT - ENDIF - - END SUBROUTINE UpdateKturbTracer -! **************************************************************************** - - -! **************************************************************************** -! UpdatePhotolysisRates - well, it does what it seems to do -! **************************************************************************** - SUBROUTINE UpdatePhotolysisRates() - - INTEGER :: i, iostat, nr, jidx - CHARACTER(LEN=15) :: rnames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox) - - INTEGER :: j, jidx2 - - rnames(:) = " " - rvalues(:) = 0.0 - - jvalues(:) = 0.0 - - CALL readVals('PhotolysisRates.csv', nr, rnames, rvalues, iostat) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - DO i = 1, nr - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,E12.6)") rnames(i), rvalues(i) - ENDIF - jidx = hash(rnames(i)) - jvalues(jidx) = rvalues(i) - ENDDO - - ! first time step only: make sure hashing actually made unique hashes - IF (TIME .EQ. TSTART) THEN - DO i = 1, nr - jidx = hash(rnames(i)) - DO j = 1, nr - jidx2 = hash(rnames(j)) - IF ((jidx .EQ. jidx2) .AND. .NOT. (i .EQ. j)) THEN - WRITE(*,*) "Photolysis rate label hash collision:" - WRITE(*,*) rnames(i), "(idx ",i,", hash ", jidx, ") == ", & - rnames(j), "(idx ",j,", hash ", jidx2,")" - IF ( strEqual( rnames(i), rnames(j) ) ) THEN - WRITE(*,*) "Remove duplicate label in PhotolysisRates.csv!" - ELSE - WRITE(*,*) "Please contact the BOXMOX developers!" - ENDIF - STOP - ENDIF - ENDDO - ENDDO - - CALL writespecstring(nr, "known:", rnames, 6) - - ENDIF - - END SUBROUTINE UpdatePhotolysisRates -! **************************************************************************** - - -! **************************************************************************** -! UpdateAerosol - update aerosol properties -! **************************************************************************** - SUBROUTINE UpdateAerosol() - - INTEGER, PARAMETER :: naer = 2, sad_idx = 1, r_idx = 2 - REAL(KIND=dp) :: aer(naer), errval = -987654321.0 - CHARACTER(LEN=15) :: aernames(naer) - INTEGER :: iostat, i - - aernames(sad_idx) = "sad"; aer(sad_idx) = errval - aernames(r_idx) = "r"; aer(r_idx) = errval - - CALL readInput('Aerosol.csv', naer, aernames, aer, quiet=lverbose) - - IF (aer(sad_idx) .NE. errval) AER_SAD = aer(sad_idx) - IF (aer(r_idx) .NE. errval) AER_R = aer(r_idx) - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,F8.2)") "SAD ", AER_SAD - WRITE(*,"(6X,A15,1X,F8.2)") "R ", AER_R - ENDIF - - END SUBROUTINE UpdateAerosol -! **************************************************************************** - - -! **************************************************************************** -! UpdateEnvironment - Read environmental values -! **************************************************************************** - SUBROUTINE UpdateEnvironment() - - INTEGER, PARAMETER :: nenv = 4, temp_idx = 1, pres_idx = 2, & - pblh_idx = 3, vol_idx = 4 - REAL(KIND=dp) :: env(nenv), errval = -987654321.0 - CHARACTER(LEN=15) :: envnames(nenv) - INTEGER :: iostat, i - - REAL(KIND=dp) :: temp_old, pres_old, pblh, vol - - envnames(temp_idx) = "TEMP"; env(temp_idx) = errval - envnames(pres_idx) = "PRES"; env(pres_idx) = errval - envnames(pblh_idx) = "PBLH"; env(pblh_idx) = errval - envnames(vol_idx) = "VOL"; env(vol_idx) = errval - - CALL readInput('Environment.csv', nenv, envnames, env, quiet=lverbose) - - temp_old = temp - pres_old = pres - - dxdydz_old(:) = dxdydz(:) - - ! those are just pseudo variables for dxdydz properties - pblh = dxdydz(3) - vol = dxdydz(1) * dxdydz(2) * dxdydz(3) - - IF (env(pblh_idx) .NE. errval .AND. env(vol_idx) .NE. errval) & - THEN - WRITE(*,*) "Cannot work with changing PBLH and VOL at the same time." - STOP - ENDIF - - IF (env(temp_idx) .NE. errval) temp = env(temp_idx) - IF (env(pres_idx) .NE. errval) pres = env(pres_idx) - IF (env(vol_idx) .NE. errval) vol = env(vol_idx) - - IF (env(pblh_idx) .NE. errval) THEN - pblh = env(pblh_idx) - dxdydz(3) = pblh - ENDIF - - ! Adjust species vector - DO i = 1, NSPEC - C(i) = C(i) * (temp_old * pres) / (temp * pres_old) - ENDDO - - ! recalculate unit conversion - CALL calcCFACTOR() - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,F8.2)") "TEMP ", temp - WRITE(*,"(6X,A13,1X,F10.2)") "PRES ", pres - WRITE(*,"(6X,A15,1X,F8.2)") "PBLH ", dxdydz(3) - WRITE(*,"(6X,A15,1X,F8.2)") "VOL ", & - dxdydz(1)*dxdydz(2)*dxdydz(3) - WRITE(*,*) "" - WRITE(*,"(6X,A7,1X,E16.8)") "CFACTOR", CFACTOR - ENDIF - - END SUBROUTINE UpdateEnvironment -! **************************************************************************** - - -! **************************************************************************** -! InitFixNOx - Initialize the NOx fixing data (for steady state calculations) -! **************************************************************************** - SUBROUTINE InitFixNOx(n, names, values) - - INTEGER, INTENT(IN) :: n - REAL(KIND=dp) :: values(n) - CHARACTER(LEN=15), INTENT(IN) :: names(n) - - INTEGER :: i, nfound_tracers - - initial_total_nox = 0.0 - nfound_tracers = 0 - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - initial_total_nox = initial_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - initial_total_nox = initial_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - ENDDO - - IF (.NOT. nfound_tracers == 2) THEN - WRITE(*,*) "NOx fixing failed, found (only) ", & - nfound_tracers, " species." - STOP - ENDIF - - END SUBROUTINE InitFixNOx -! **************************************************************************** - - -! **************************************************************************** -! FixNOx - keep total NOx at initial levels (for steady state calculations) -! **************************************************************************** - SUBROUTINE FixNOx(n, names, values) - - INTEGER, INTENT(IN) :: n - REAL(KIND=dp), INTENT(INOUT) :: values(n) - CHARACTER(LEN=15), INTENT(IN) :: names(n) - - INTEGER :: i, nfound_tracers - REAL(KIND=dp) :: current_total_nox, scaleFactor - - current_total_nox = 0.0 - nfound_tracers = 0 - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - current_total_nox = current_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - current_total_nox = current_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - ENDDO - - IF (.NOT. nfound_tracers == 2) THEN - WRITE(*,*) "NOx fixing failed, found (only) ", & - nfound_tracers, " species." - STOP - ENDIF - - scaleFactor = initial_total_nox - IF (current_total_nox > 0.0) THEN - scaleFactor = initial_total_nox / current_total_nox - ENDIF - - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - values(i) = values(i) * scaleFactor - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - values(i) = values(i) * scaleFactor - ENDIF - ENDDO - - END SUBROUTINE FixNOx -! **************************************************************************** - - -! End INLINED Utility Functions - -! Utility Functions from KPP_HOME/util/util -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! UTIL - Utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -! **************************************************************** -! -! InitSaveData - Opens the data file for writing -! Parameters : -! -! **************************************************************** - - SUBROUTINE InitSaveData () - - USE MOZART_4_Parameters -!* ---------------------------------------------------- -!* BOXMOX extension - Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* add header to output species and sparse jacobian indices -!* and Hessian - USE MOZART_4_JacobianSP -#if 0 > 0 - USE MOZART_4_HessianSP -#endif -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* add header to output files and open rates file - INTEGER :: i -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20161129 -!* renamed concentration output -! open(10, file='MOZART_4.dat') - open(10, file='MOZART_4.conc') -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* add header to output files and open rates file - - ! add header to output file - WRITE(10, "(A24,10000(1X,A24))") "time", ADJUSTR(SPC_NAMES(LOOKAT)) - - open(11, file='MOZART_4.rates') - - WRITE(11, "(I5)") NREACT - - DO i = 1, NREACT - WRITE(11, "(A)") EQN_NAMES(i) - ENDDO - - ! add header to output file - WRITE(11, "(A24,10000(1X,I24))") "time", (/(i, i=1,NREACT, 1)/) - -!* write header to Jacobian output - open(12, file='MOZART_4.jacobian') - -!* species names - WRITE(12, "(10000(1X,A24))") ADJUSTR(SPC_NAMES(LOOKAT)) -!* species index - WRITE(12, "(10000(1X,I5))") LOOKAT -!* Jacobian non zero row index - WRITE(12, "(100000(1X,I5))") (LU_IROW(i), i=1,LU_NONZERO) -!* Jacobian non zero column index - WRITE(12, "(100000(1X,I5))") (LU_ICOL(i), i=1,LU_NONZERO) - -!* write header to Hessian output -#if 0 > 0 - open(13, file='MOZART_4.hessian') - -!* species names - WRITE(13, "(10000(1X,A24))") ADJUSTR(SPC_NAMES(LOOKAT)) -!* species index - WRITE(13, "(10000(1X,I5))") LOOKAT -!* Hessian i, j, k species - WRITE(13, "(100000(1X,I5))") (IHESS_I(i), i=1,NHESS) - WRITE(13, "(100000(1X,I5))") (IHESS_J(i), i=1,NHESS) - WRITE(13, "(100000(1X,I5))") (IHESS_K(i), i=1,NHESS) -#endif -!* ---------------------------------------------------- - - END SUBROUTINE InitSaveData - -! End of InitSaveData function -! **************************************************************** - -! **************************************************************** -! -! SaveData - Write LOOKAT species in the data file -! Parameters : -! -! **************************************************************** - - SUBROUTINE SaveData () - - USE MOZART_4_Global - USE MOZART_4_Monitor -!* ---------------------------------------------------- -!* BOXMOX extension - Jerome Barre - 20150410 -!* Christoph Knote - 20151030 - USE MOZART_4_Jacobian -#if 0 > 0 - USE MOZART_4_Hessian -#endif -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20151030 - REAL(KIND=dp) :: JVS(LU_NONZERO) ! d(dc/dt)i/dcj -#if 0 > 0 - REAL(KIND=dp) :: HESS(NHESS) ! -#endif - INTEGER i - - WRITE(10,999) (TIME-TSTART)/3600.D0, & - (C(LOOKAT(i))/CFACTOR, i=1,NLOOKAT) - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* write out reaction rates - WRITE(11,999) (TIME-TSTART)/3600.D0, & - (RCONST(i), i=1,NREACT) -!* call Jacobian function to output Jacobian values - CALL Jac_SP( VAR, FIX, RCONST, JVS ) - WRITE(12,9999) (JVS(i), i=1,LU_NONZERO) -!* call Hessian function to output Hessian values -#if 0 > 0 - CALL Hessian( VAR, FIX, RCONST, HESS ) - WRITE(13,9999) (HESS(i), i=1,NHESS) -#endif -!* --------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* might have more than 100 output variables -! 999 FORMAT(E24.16,100(1X,E24.16)) -999 FORMAT(E24.16,10000(1X,E24.16E3)) -9999 FORMAT(E24.16,100000(1X,E24.16E3)) -!* ---------------------------------------------------- - - END SUBROUTINE SaveData - -! End of SaveData function -! **************************************************************** - -! **************************************************************** -! -! CloseSaveData - Close the data file -! Parameters : -! -! **************************************************************** - - SUBROUTINE CloseSaveData () - - USE MOZART_4_Parameters - - CLOSE(10) - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -! Christoph Knote - 20153010 -!* close rates file - CLOSE(11) -!* close Jacobian file - CLOSE(12) -!* close Hessian file -#if 0 > 0 - CLOSE(13) -#endif -!* --------------------------------------------------- - - END SUBROUTINE CloseSaveData - -! End of CloseSaveData function -! **************************************************************** - -! **************************************************************** -! -! GenerateMatlab - Generates MATLAB file to load the data file -! Parameters : -! It will have a character string to prefix each -! species name with. -! -! **************************************************************** - - SUBROUTINE GenerateMatlab ( PREFIX ) - - USE MOZART_4_Parameters - USE MOZART_4_Global - USE MOZART_4_Monitor - - - CHARACTER(LEN=8) PREFIX - INTEGER i - - open(20, file='MOZART_4.m') - write(20,*) 'load MOZART_4.dat;' - write(20,990) PREFIX -990 FORMAT(A1,'c = MOZART_4;') - write(20,*) 'clear MOZART_4;' - write(20,991) PREFIX, PREFIX -991 FORMAT(A1,'t=',A1,'c(:,1);') - write(20,992) PREFIX -992 FORMAT(A1,'c(:,1)=[];') - - do i=1,NLOOKAT - write(20,993) PREFIX, SPC_NAMES(LOOKAT(i)), PREFIX, i -993 FORMAT(A1,A6,' = ',A1,'c(:,',I2,');') - end do - - CLOSE(20) - - END SUBROUTINE GenerateMatlab - -! End of GenerateMatlab function -! **************************************************************** - - -! End Utility Functions from KPP_HOME/util/util -! End of UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Shuffle_user2kpp - function to copy concentrations from USER to KPP -! Arguments : -! V_USER - Concentration of variable species in USER's order -! V - Concentrations of variable species (local) -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Shuffle_user2kpp ( V_USER, V ) - -! V_USER - Concentration of variable species in USER's order - REAL(kind=dp) :: V_USER(NVAR) -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) - - V(81) = V_USER(1) - V(52) = V_USER(2) - V(47) = V_USER(3) - V(3) = V_USER(4) - V(76) = V_USER(5) - V(73) = V_USER(6) - V(80) = V_USER(7) - V(2) = V_USER(8) - V(39) = V_USER(9) - V(26) = V_USER(10) - V(13) = V_USER(11) - V(19) = V_USER(12) - V(75) = V_USER(13) - V(79) = V_USER(14) - V(9) = V_USER(15) - V(40) = V_USER(16) - V(58) = V_USER(17) - V(77) = V_USER(18) - V(18) = V_USER(19) - V(72) = V_USER(20) - V(41) = V_USER(21) - V(27) = V_USER(22) - V(12) = V_USER(23) - V(30) = V_USER(24) - V(62) = V_USER(25) - V(34) = V_USER(26) - V(51) = V_USER(27) - V(67) = V_USER(28) - V(78) = V_USER(29) - V(32) = V_USER(30) - V(37) = V_USER(31) - V(50) = V_USER(32) - V(35) = V_USER(33) - V(36) = V_USER(34) - V(43) = V_USER(35) - V(74) = V_USER(36) - V(66) = V_USER(37) - V(70) = V_USER(38) - V(20) = V_USER(39) - V(69) = V_USER(40) - V(4) = V_USER(41) - V(61) = V_USER(42) - V(5) = V_USER(43) - V(17) = V_USER(44) - V(21) = V_USER(45) - V(57) = V_USER(46) - V(22) = V_USER(47) - V(46) = V_USER(48) - V(63) = V_USER(49) - V(23) = V_USER(50) - V(29) = V_USER(51) - V(60) = V_USER(52) - V(59) = V_USER(53) - V(71) = V_USER(54) - V(42) = V_USER(55) - V(53) = V_USER(56) - V(65) = V_USER(57) - V(54) = V_USER(58) - V(28) = V_USER(59) - V(24) = V_USER(60) - V(33) = V_USER(61) - V(49) = V_USER(62) - V(56) = V_USER(63) - V(6) = V_USER(64) - V(45) = V_USER(65) - V(7) = V_USER(66) - V(55) = V_USER(67) - V(48) = V_USER(68) - V(25) = V_USER(69) - V(10) = V_USER(70) - V(44) = V_USER(71) - V(31) = V_USER(72) - V(64) = V_USER(73) - V(38) = V_USER(74) - V(11) = V_USER(75) - V(16) = V_USER(76) - V(8) = V_USER(77) - V(1) = V_USER(78) - V(68) = V_USER(79) - V(14) = V_USER(80) - V(15) = V_USER(81) - -END SUBROUTINE Shuffle_user2kpp - -! End of Shuffle_user2kpp function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Shuffle_kpp2user - function to restore concentrations from KPP to USER -! Arguments : -! V - Concentrations of variable species (local) -! V_USER - Concentration of variable species in USER's order -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Shuffle_kpp2user ( V, V_USER ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! V_USER - Concentration of variable species in USER's order - REAL(kind=dp) :: V_USER(NVAR) - - V_USER(1) = V(81) - V_USER(2) = V(52) - V_USER(3) = V(47) - V_USER(4) = V(3) - V_USER(5) = V(76) - V_USER(6) = V(73) - V_USER(7) = V(80) - V_USER(8) = V(2) - V_USER(9) = V(39) - V_USER(10) = V(26) - V_USER(11) = V(13) - V_USER(12) = V(19) - V_USER(13) = V(75) - V_USER(14) = V(79) - V_USER(15) = V(9) - V_USER(16) = V(40) - V_USER(17) = V(58) - V_USER(18) = V(77) - V_USER(19) = V(18) - V_USER(20) = V(72) - V_USER(21) = V(41) - V_USER(22) = V(27) - V_USER(23) = V(12) - V_USER(24) = V(30) - V_USER(25) = V(62) - V_USER(26) = V(34) - V_USER(27) = V(51) - V_USER(28) = V(67) - V_USER(29) = V(78) - V_USER(30) = V(32) - V_USER(31) = V(37) - V_USER(32) = V(50) - V_USER(33) = V(35) - V_USER(34) = V(36) - V_USER(35) = V(43) - V_USER(36) = V(74) - V_USER(37) = V(66) - V_USER(38) = V(70) - V_USER(39) = V(20) - V_USER(40) = V(69) - V_USER(41) = V(4) - V_USER(42) = V(61) - V_USER(43) = V(5) - V_USER(44) = V(17) - V_USER(45) = V(21) - V_USER(46) = V(57) - V_USER(47) = V(22) - V_USER(48) = V(46) - V_USER(49) = V(63) - V_USER(50) = V(23) - V_USER(51) = V(29) - V_USER(52) = V(60) - V_USER(53) = V(59) - V_USER(54) = V(71) - V_USER(55) = V(42) - V_USER(56) = V(53) - V_USER(57) = V(65) - V_USER(58) = V(54) - V_USER(59) = V(28) - V_USER(60) = V(24) - V_USER(61) = V(33) - V_USER(62) = V(49) - V_USER(63) = V(56) - V_USER(64) = V(6) - V_USER(65) = V(45) - V_USER(66) = V(7) - V_USER(67) = V(55) - V_USER(68) = V(48) - V_USER(69) = V(25) - V_USER(70) = V(10) - V_USER(71) = V(44) - V_USER(72) = V(31) - V_USER(73) = V(64) - V_USER(74) = V(38) - V_USER(75) = V(11) - V_USER(76) = V(16) - V_USER(77) = V(8) - V_USER(78) = V(1) - V_USER(79) = V(68) - V_USER(80) = V(14) - V_USER(81) = V(15) - -END SUBROUTINE Shuffle_kpp2user - -! End of Shuffle_kpp2user function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! GetMass - compute total mass of selected atoms -! Arguments : -! CL - Concentration of all species (local) -! Mass - value of mass balance -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE GetMass ( CL, Mass ) - -! CL - Concentration of all species (local) - REAL(kind=dp) :: CL(NSPEC) -! Mass - value of mass balance - REAL(kind=dp) :: Mass(1) - - -END SUBROUTINE GetMass - -! End of GetMass function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE MOZART_4_Util - diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Util.o b/boxmox/compiled_mechs/MOZART_4/MOZART_4_Util.o deleted file mode 100644 index d4b0690375dd6db987faeb6f41c314785bb7c2a2..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/MOZART_4_Util.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_mex_Fun.f90 b/boxmox/compiled_mechs/MOZART_4/MOZART_4_mex_Fun.f90 deleted file mode 100644 index ded4bceb161bed3c63785bdbccebbee76518a184..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_4/MOZART_4_mex_Fun.f90 +++ /dev/null @@ -1,45 +0,0 @@ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE mexFunction( nlhs, plhs, nrhs, prhs ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Matlab Gateway for the Derivative Function Fun -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MOZART_4_Model - - INTEGER nlhs, nrhs - INTEGER plhs(*), prhs(*) - INTEGER mxGetPr, mxCreateFull, mxGetM, mxgetN - INTEGER VPtr, FPtr, RPtr, VdotPtr - REAL(kind=dp) V(81), F(2), RCT(196) - REAL(kind=dp) Vdot(81) - -! Check for the right number of input arguments - IF ( nrhs .ne. 3 ) THEN - CALL mexErrMsgTxt('Fun requires 3 input vectors: & - &V(81), F(2), RCT(196)') - END IF -! Check for the right number of output arguments - IF ( nlhs .ne. 1 ) THEN - CALL mexErrMsgTxt('Fun requires 1 output vector: & - &Vdot(81)') - END IF - - plhs(1) = mxCreateDoubleMatrix(81,1,0) - - VPtr = mxGetPr(prhs(1)) - CALL mxCopyPtrToReal8(VPtr,V,81) - - FPtr = mxGetPr(prhs(2)) - CALL mxCopyPtrToReal8(FPtr,F,2) - - RPtr = mxGetPr(prhs(3)) - CALL mxCopyPtrToReal8(RPtr,RCT,196) - - VdotPtr = mxGetPr(plhs(1)) - - CALL Fun( V, F, RCT, Vdot ) - - CALL mxCopyReal8ToPtr(Vdot, VdotPtr, 81) - - END SUBROUTINE mexFunction diff --git a/boxmox/compiled_mechs/MOZART_4/MOZART_4_mex_Jac_SP.f90 b/boxmox/compiled_mechs/MOZART_4/MOZART_4_mex_Jac_SP.f90 deleted file mode 100644 index 9c6c08a644a57eb4d8911ee1286d567e7f4d628f..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_4/MOZART_4_mex_Jac_SP.f90 +++ /dev/null @@ -1,44 +0,0 @@ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE mexFunction( nlhs, plhs, nrhs, prhs ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Matlab Gateway for the Sparse Jacobian Function Jac_SP -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MOZART_4_Model - - INTEGER nlhs, nrhs - INTEGER plhs(*), prhs(*) - INTEGER mxGetPr, mxCreateFull, mxGetM, mxgetN - INTEGER VPtr, FPtr, RPtr, JVSPtr - REAL(kind=dp) V(81), F(2), RCT(196) - REAL(kind=dp) JVS(837) - -! Check for the right number of input arguments - IF ( nrhs .ne. 3 ) THEN - CALL mexErrMsgTxt('Jac_SP requires 3 input vectors: & - &V(81), F(2), RCT(196)') - END IF -! Check for the right number of output arguments - IF ( nlhs .ne. 1 ) THEN - CALL mexErrMsgTxt('Jac_SP requires 1 output vector: & - &JVS(837)') - END IF - - plhs(1) = mxCreateDoubleMatrix(837,1,0) - - VPtr = mxGetPr(prhs(1)) - CALL mxCopyPtrToReal8(VPtr,V,81) - - FPtr = mxGetPr(prhs(2)) - CALL mxCopyPtrToReal8(FPtr,F,2) - - RPtr = mxGetPr(prhs(3)) - CALL mxCopyPtrToReal8(RPtr,RCT,196) - - JVSPtr = mxGetPr(plhs(1)) - - CALL Jac_SP( V, F, RCT, JVS ) - - CALL mxCopyReal8ToPtr(JVS, JVSPtr, 837) - - END SUBROUTINE mexFunction diff --git a/boxmox/compiled_mechs/MOZART_4/Makefile_MOZART_4 b/boxmox/compiled_mechs/MOZART_4/Makefile_MOZART_4 deleted file mode 100644 index a7b455956cc37257644210e70993588bb881b0e9..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_4/Makefile_MOZART_4 +++ /dev/null @@ -1,215 +0,0 @@ -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: Set here the F90 compiler and options -# Pedefined compilers: INTEL, PGF, HPUX, LAHEY -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -#COMPILER = G95 -#COMPILER = LAHEY -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# gfortran is standard -#COMPILER = INTEL -# ---------------------------------------------------- -#COMPILER = PGF -#COMPILER = HPUX -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# gfortran is standard -COMPILER = GFORTRAN -# ---------------------------------------------------- - -FC_G95 = g95 -FOPT_G95 = -cpp -O -pg -fbounds-check -fimplicit-none -Wall -ftrace=full - -FC_LAHEY = lf95 -# More aggressive for production runs: -#FOPT_LAHEY = -Cpp --pca -O -# More checking for debugging: -FOPT_LAHEY = -Cpp --chk a,e,s,u --pca --ap -O0 -g --trap --trace --chkglobal - -FC_INTEL = ifort -# More aggressive for production runs: -#FOPT_INTEL = -cpp -O -fp-model precise -pc80 -prec_div -# More checking for debugging: -FOPT_INTEL = -cpp -O0 -fp-model strict -implicitnone -ftrapuv \ - -debug all -check all -warn all - -FC_PGF = pgf90 -# More aggressive for production runs: -FOPT_PGF = -Mpreprocess -O -fast -pc 80 -Kieee -# More checking for debugging: -#FOPT_PGF = -Mpreprocess -O0 -Mbounds -Mchkfpstk -Mchkptr -Mchkstk \ -# -Ktrap=fp -pc 80 -Kieee - -FC_HPUX = f90 -FOPT_HPUX = -O -u +Oall +check=on - -FC_GFORTRAN = gfortran -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# rate equation code creates pretty long lines -# optimization does not help much and breaks MCM -# FOPT_GFORTRAN = -cpp -O -# double precision: -#FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -freal-4-real-16 -freal-8-real-16 -# using GCC 4.7 and higher: -FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -freal-4-real-8 -# for older compilers -#FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -fdefault-real-8 -# ---------------------------------------------------- - -# define FULL_ALGEBRA for non-sparse integration -FC = $(FC_$(COMPILER)) -FOPT = $(FOPT_$(COMPILER)) # -DFULL_ALGEBRA - -LIBS = -#LIBS = -llapack -lblas - -# Command to create Matlab mex gateway routines -# Note: use $(FC) as the mex Fortran compiler -MEX = mex - -GENSRC = MOZART_4_Precision.f90 \ - MOZART_4_Parameters.f90 \ - MOZART_4_Global.f90 - -GENOBJ = MOZART_4_Precision.o \ - MOZART_4_Parameters.o \ - MOZART_4_Global.o - -FUNSRC = MOZART_4_Function.f90 -FUNOBJ = MOZART_4_Function.o - -JACSRC = MOZART_4_JacobianSP.f90 MOZART_4_Jacobian.f90 -JACOBJ = MOZART_4_JacobianSP.o MOZART_4_Jacobian.o - -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20160906 -# if HESSIAN is off, avoid compilation errors by not -# linking to the Hessian objects. -ifeq ($(wildcard MOZART_4_HessianSP.f90),) - HESSRC = - HESOBJ = -else - HESSRC = MOZART_4_HessianSP.f90 MOZART_4_Hessian.f90 - HESOBJ = MOZART_4_HessianSP.o MOZART_4_Hessian.o -endif -# ---------------------------------------------------- - -STMSRC = MOZART_4_StoichiomSP.f90 MOZART_4_Stoichiom.f90 -STMOBJ = MOZART_4_StoichiomSP.o MOZART_4_Stoichiom.o - -UTLSRC = MOZART_4_Rates.f90 MOZART_4_Util.f90 MOZART_4_Monitor.f90 -UTLOBJ = MOZART_4_Rates.o MOZART_4_Util.o MOZART_4_Monitor.o - -LASRC = MOZART_4_LinearAlgebra.f90 -LAOBJ = MOZART_4_LinearAlgebra.o - -STOCHSRC = MOZART_4_Stochastic.f90 -STOCHOBJ = MOZART_4_Stochastic.o - -MAINSRC = MOZART_4_Main.f90 MOZART_4_Initialize.f90 MOZART_4_Integrator.f90 MOZART_4_Model.f90 -MAINOBJ = MOZART_4_Main.o MOZART_4_Initialize.o MOZART_4_Integrator.o MOZART_4_Model.o - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: modify the line below to include only the -# objects needed by your application -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -ALLOBJ = $(GENOBJ) $(FUNOBJ) $(JACOBJ) $(HESOBJ) $(STMOBJ) \ - $(UTLOBJ) $(LAOBJ) - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: modify the line below to include only the -# executables needed by your application -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -all: exe - -exe: $(ALLOBJ) $(MAINOBJ) - $(FC) $(FOPT) $(ALLOBJ) $(MAINOBJ) $(LIBS) -o MOZART_4.exe - -pylib: $(ALLOBJ) lib_Initialize.o lib_Integrator.o lib_Model.o - f2py -c -m boxmox $(ALLOBJ) lib_Initialize.o lib_Integrator.o lib_Model.o lib_Main.f90 - -stochastic:$(ALLOBJ) $(STOCHOBJ) $(MAINOBJ) - $(FC) $(FOPT) $(ALLOBJ) $(STOCHOBJ) $(MAINOBJ) $(LIBS) \ - -o MOZART_4_stochastic.exe - -mex: $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O MOZART_4_mex_Fun.f90 $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O MOZART_4_mex_Jac_SP.f90 $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O MOZART_4_mex_Hessian.f90 $(ALLOBJ) - -clean: - rm -f MOZART_4*.o MOZART_4*.mod \ - MOZART_4*.dat MOZART_4.exe MOZART_4*.mexglx \ - MOZART_4.map - -distclean: - rm -f MOZART_4*.o MOZART_4*.mod \ - MOZART_4*.dat MOZART_4.exe MOZART_4.map \ - MOZART_4*.f90 MOZART_4_*.mexglx - -MOZART_4_Precision.o: MOZART_4_Precision.f90 - $(FC) $(FOPT) -c $< - -MOZART_4_Parameters.o: MOZART_4_Parameters.f90 \ - MOZART_4_Precision.o - $(FC) $(FOPT) -c $< - -MOZART_4_Monitor.o: MOZART_4_Monitor.f90 \ - MOZART_4_Precision.o - $(FC) $(FOPT) -c $< - -MOZART_4_Global.o: MOZART_4_Global.f90 \ - MOZART_4_Parameters.o MOZART_4_Precision.o - $(FC) $(FOPT) -c $< - -MOZART_4_Initialize.o: MOZART_4_Initialize.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -MOZART_4_Function.o: MOZART_4_Function.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -MOZART_4_Stochastic.o: MOZART_4_Stochastic.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -MOZART_4_JacobianSP.o: MOZART_4_JacobianSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -MOZART_4_Jacobian.o: MOZART_4_Jacobian.f90 $(GENOBJ) MOZART_4_JacobianSP.o - $(FC) $(FOPT) -c $< - -MOZART_4_LinearAlgebra.o: MOZART_4_LinearAlgebra.f90 $(GENOBJ) MOZART_4_JacobianSP.o - $(FC) $(FOPT) -c $< - -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# need Util in Rates -#MOZART_4_Rates.o: MOZART_4_Rates.f90 $(GENOBJ) -MOZART_4_Rates.o: MOZART_4_Rates.f90 $(GENOBJ) MOZART_4_Util.o -# ---------------------------------------------------- - $(FC) $(FOPT) -c $< - -MOZART_4_HessianSP.o: MOZART_4_HessianSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -MOZART_4_Hessian.o: MOZART_4_Hessian.f90 $(GENOBJ) MOZART_4_HessianSP.o - $(FC) $(FOPT) -c $< - -MOZART_4_StoichiomSP.o: MOZART_4_StoichiomSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -MOZART_4_Stoichiom.o: MOZART_4_Stoichiom.f90 $(GENOBJ) MOZART_4_StoichiomSP.o - $(FC) $(FOPT) -c $< - -MOZART_4_Util.o: MOZART_4_Util.f90 $(GENOBJ) MOZART_4_Monitor.o - $(FC) $(FOPT) -c $< - -MOZART_4_Main.o: MOZART_4_Main.f90 $(ALLOBJ) MOZART_4_Initialize.o MOZART_4_Model.o MOZART_4_Integrator.o - $(FC) $(FOPT) -c $< - -MOZART_4_Model.o: MOZART_4_Model.f90 $(ALLOBJ) MOZART_4_Integrator.o - $(FC) $(FOPT) -c $< - -MOZART_4_Integrator.o: MOZART_4_Integrator.f90 $(ALLOBJ) - $(FC) $(FOPT) -c $< diff --git a/boxmox/compiled_mechs/MOZART_4/compile.log b/boxmox/compiled_mechs/MOZART_4/compile.log deleted file mode 100644 index 6c46a7611735a059568166511a9fc552bd6a39ae..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_4/compile.log +++ /dev/null @@ -1,22 +0,0 @@ -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_4_Precision.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_4_Parameters.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_4_Global.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_4_Function.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_4_JacobianSP.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_4_Jacobian.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_4_StoichiomSP.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_4_Stoichiom.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_4_Monitor.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_4_Util.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_4_Rates.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_4_LinearAlgebra.f90 -MOZART_4_LinearAlgebra.f90:1345:46: - - 1345 | IF (incX .EQ. incY) IF (incX-1) 5,20,60 - | 1 -Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_4_Initialize.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_4_Integrator.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_4_Model.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_4_Main.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 MOZART_4_Precision.o MOZART_4_Parameters.o MOZART_4_Global.o MOZART_4_Function.o MOZART_4_JacobianSP.o MOZART_4_Jacobian.o MOZART_4_StoichiomSP.o MOZART_4_Stoichiom.o MOZART_4_Rates.o MOZART_4_Util.o MOZART_4_Monitor.o MOZART_4_LinearAlgebra.o MOZART_4_Main.o MOZART_4_Initialize.o MOZART_4_Integrator.o MOZART_4_Model.o -o MOZART_4.exe diff --git a/boxmox/compiled_mechs/MOZART_4/kpp.log b/boxmox/compiled_mechs/MOZART_4/kpp.log deleted file mode 100644 index 3f834b873c8b226e46541235798999487974d29b..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_4/kpp.log +++ /dev/null @@ -1,37 +0,0 @@ - -This is KPP-2.2.3. - -KPP is parsing the equation file. -KPP is computing Jacobian sparsity structure. -KPP is starting the code generation. -KPP is initializing the code generation. -KPP is generating the monitor data: - - MOZART_4_Monitor -KPP is generating the global declarations: - - MOZART_4_Main -KPP is generating the ODE function: - - MOZART_4_Function -KPP is generating the ODE Jacobian: - - MOZART_4_Jacobian - - MOZART_4_JacobianSP -KPP is generating the linear algebra routines: - - MOZART_4_LinearAlgebra -KPP is generating the utility data: - - MOZART_4_Util -KPP is generating the utility functions: - - MOZART_4_Util -KPP is generating the rate laws: - - MOZART_4_Rates -KPP is generating the parameters: - - MOZART_4_Parameters -KPP is generating the global data: - - MOZART_4_Global -KPP is generating the stoichiometric description files: - - MOZART_4_Stoichiom - - MOZART_4_StoichiomSP -KPP is generating the driver from ../boxmox/boxmox.f90: - - MOZART_4_Main -KPP is starting the code post-processing. - -KPP has succesfully created the model "MOZART_4". - diff --git a/boxmox/compiled_mechs/MOZART_4/mozart_4_function.mod b/boxmox/compiled_mechs/MOZART_4/mozart_4_function.mod deleted file mode 100644 index 83660ab6e4b82f49c8f4791cb249c7f85a0b1388..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/mozart_4_function.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/mozart_4_global.mod b/boxmox/compiled_mechs/MOZART_4/mozart_4_global.mod deleted file mode 100644 index a101ffa3acde10f8ddfd87cc426cef77c75646c4..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/mozart_4_global.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/mozart_4_initialize.mod b/boxmox/compiled_mechs/MOZART_4/mozart_4_initialize.mod deleted file mode 100644 index 3a41faa42ac7e05de43efa6675586008b737fbc4..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/mozart_4_initialize.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/mozart_4_integrator.mod b/boxmox/compiled_mechs/MOZART_4/mozart_4_integrator.mod deleted file mode 100644 index dbd366a6c7ef41dd8c889faa6b4821b9ec540876..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/mozart_4_integrator.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/mozart_4_jacobian.mod b/boxmox/compiled_mechs/MOZART_4/mozart_4_jacobian.mod deleted file mode 100644 index 3da36fa853bd428ac605e4e119b0922772c674e4..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/mozart_4_jacobian.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/mozart_4_jacobiansp.mod b/boxmox/compiled_mechs/MOZART_4/mozart_4_jacobiansp.mod deleted file mode 100644 index a4f0343ab6ee132cf029434c528b53c4e081552e..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/mozart_4_jacobiansp.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/mozart_4_linearalgebra.mod b/boxmox/compiled_mechs/MOZART_4/mozart_4_linearalgebra.mod deleted file mode 100644 index d6c3997e4f84840303d9ba927ad747543614a2d2..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/mozart_4_linearalgebra.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/mozart_4_model.mod b/boxmox/compiled_mechs/MOZART_4/mozart_4_model.mod deleted file mode 100644 index 27b5c3e3eff18de0460774b80f42d0c46e462db2..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/mozart_4_model.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/mozart_4_monitor.mod b/boxmox/compiled_mechs/MOZART_4/mozart_4_monitor.mod deleted file mode 100644 index cd9be66959fff590423758871d63ffbce493af25..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/mozart_4_monitor.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/mozart_4_parameters.mod b/boxmox/compiled_mechs/MOZART_4/mozart_4_parameters.mod deleted file mode 100644 index b32ed8d533f46e38b3905f352c9af6dfd43847a0..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/mozart_4_parameters.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/mozart_4_precision.mod b/boxmox/compiled_mechs/MOZART_4/mozart_4_precision.mod deleted file mode 100644 index 1f288f7085a56914442cfc700cae26e7d45f0ede..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/mozart_4_precision.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/mozart_4_rates.mod b/boxmox/compiled_mechs/MOZART_4/mozart_4_rates.mod deleted file mode 100644 index 2a1a1b286dac356c9bacf6e4bb3ca08a079e6ebb..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/mozart_4_rates.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/mozart_4_stoichiom.mod b/boxmox/compiled_mechs/MOZART_4/mozart_4_stoichiom.mod deleted file mode 100644 index 6336b72d2190202d4d752f7651b96b938773b747..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/mozart_4_stoichiom.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/mozart_4_stoichiomsp.mod b/boxmox/compiled_mechs/MOZART_4/mozart_4_stoichiomsp.mod deleted file mode 100644 index abd76ffbfdcbfca26e40f59194617184e69af40c..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/mozart_4_stoichiomsp.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_4/mozart_4_util.mod b/boxmox/compiled_mechs/MOZART_4/mozart_4_util.mod deleted file mode 100644 index 49e20533c9c714446bdf521a9d8d7b0ca7b81bf5..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_4/mozart_4_util.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1.exe b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1.exe deleted file mode 100755 index df20d9a5d5c173ce43ee5bb3f069f19be2147d44..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1.exe and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1.kpp b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1.kpp deleted file mode 100644 index 985c57d3720bcc20d9849e4949635e79d1a6cb7d..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1.kpp +++ /dev/null @@ -1,7 +0,0 @@ -#MODEL MOZART_T1 -#LANGUAGE Fortran90 -#DOUBLE ON -#INTEGRATOR rosenbrock -#DRIVER ../boxmox/boxmox -#JACOBIAN SPARSE_LU_ROW -#HESSIAN OFF diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1.map b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1.map deleted file mode 100644 index 325eca2c50c7a9c1dcfb29ebaa4fcfa838dd7994..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1.map +++ /dev/null @@ -1,124 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Map File with Human-Readable Information -! -! Generated by KPP-2.2.3 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 : MOZART_T1.map -! Time : Wed Jan 27 13:13:50 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_T1_20754_BOXMOX -! Equation file : MOZART_T1.kpp -! Output root filename : MOZART_T1 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -### Options ------------------------------------------- - -FUNCTION - AGGREGATE -JACOBIAN - SPARSE W/ ACCOUNT FOR LU DECOMPOSITION FILL-IN -DOUBLE - ON -REORDER - ON - -### Parameters ---------------------------------------- - -! NSPEC - Number of chemical species - INTEGER, PARAMETER :: NSPEC = 160 -! NVAR - Number of Variable species - INTEGER, PARAMETER :: NVAR = 155 -! NVARACT - Number of Active species - INTEGER, PARAMETER :: NVARACT = 144 -! NFIX - Number of Fixed species - INTEGER, PARAMETER :: NFIX = 5 -! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 360 -! NVARST - Starting of variables in conc. vect. - INTEGER, PARAMETER :: NVARST = 1 -! NFIXST - Starting of fixed in conc. vect. - INTEGER, PARAMETER :: NFIXST = 156 - -### Species ------------------------------------------- - -Variable species - 1 = BENOOH (n) 53 = C2H5OOH (r)105 = C3H7O2 (r) - 2 = SO4 (n) 54 = PHENOOH (r)106 = O1D (r) - 3 = SOAG0 (n) 55 = ROOH (r) 107 = CH3OH (r) - 4 = SOAG1 (n) 56 = C3H7OOH (r)108 = C2H5O2 (r) - 5 = SOAG2 (n) 57 = BIGALD4 (r)109 = GLYOXAL (r) - 6 = SOAG3 (n) 58 = BIGALK (r)110 = NC4CHO (r) - 7 = SOAG4 (n) 59 = BIGENE (r)111 = BIGALD (r) - 8 = IVOC (r) 60 = C2H4 (r) 112 = MBONO3O2 (r) - 9 = SVOC (r) 61 = CH3COOH (r)113 = HMPROP (r) - 10 = RO2_RO2 (n) 62 = ISOPNOOH (r)114 = ISOP (r) - 11 = RO2_HO2 (n) 63 = XYLOLOOH (r)115 = LIMON (r) - 12 = RO2_NO (n) 64 = BZOO (r) 116 = APIN (r) - 13 = VOC_OH (n) 65 = HOCH2OO (r)117 = BCARY (r) - 14 = NH3 (r) 66 = PHENO2 (r)118 = BPIN (r) - 15 = C2H6 (r) 67 = BENZOOH (r)119 = NOA (r) - 16 = C3H8 (r) 68 = CH3COOOH (r)120 = MYRC (r) - 17 = CH3CN (r) 69 = BIGALD1 (r)121 = ALKO2 (r) - 18 = N2O (r) 70 = HNO3 (r) 122 = CH3COCH3 (r) - 19 = SO2 (r) 71 = PAN (r) 123 = CO (r) - 20 = EOOH (r) 72 = ISOPNITB (r)124 = GLYALD (r) - 21 = IEPOX (r) 73 = PHENO (r) 125 = MBOO2 (r) - 22 = ONITR (r) 74 = POOH (r) 126 = TERPROD2 (r) - 23 = PBZNIT (r) 75 = TERPOOH (r)127 = TERP2O2 (r) - 24 = C2H2 (r) 76 = BENZO2 (r)128 = C3H6 (r) - 25 = BENZENE (r) 77 = XYLOLO2 (r)129 = CH3CHO (r) - 26 = BEPOMUC (r) 78 = MEK (r) 130 = MDIALO2 (r) - 27 = PHENOL (r) 79 = HMPROPO2 (r)131 = TERPO2 (r) - 28 = HCN (r) 80 = TERPNIT (r)132 = NTERPO2 (r) - 29 = N2O5 (r) 81 = ACBZO2 (r)133 = TERPROD1 (r) - 30 = TOLUENE (r) 82 = H2 (r) 134 = RO2 (r) - 31 = CRESOL (r) 83 = MBOOOH (r)135 = O (r) - 32 = TEPOMUC (r) 84 = MPAN (r) 136 = HYAC (r) - 33 = XOOH (r) 85 = ISOPNITA (r)137 = HONITR (r) - 34 = XYLENES (r) 86 = ENEO2 (r) 138 = CH3COCHO (r) - 35 = XYLOL (r) 87 = CH4 (r) 139 = XO2 (r) - 36 = DMS (r) 88 = TERP2OOH (r)140 = ISOPAO2 (r) - 37 = HPALD (r) 89 = TOLOOH (r)141 = ISOPBO2 (r) - 38 = BZALD (r) 90 = EO2 (r) 142 = ISOPNO3 (r) - 39 = H2O2 (r) 91 = BIGALD3 (r)143 = MACR (r) - 40 = C2H5OH (r) 92 = C6H5O2 (r)144 = MVK (r) - 41 = C6H5OOH (r) 93 = ALKNIT (r)145 = MACRO2 (r) - 42 = EO (r) 94 = ALKOOH (r)146 = CH2O (r) - 43 = BENO2 (r) 95 = MEKO2 (r) 147 = NO2 (r) - 44 = BIGALD2 (r) 96 = PO2 (r) 148 = OH (r) - 45 = HO2NO2 (r) 97 = ISOPOOH (r)149 = HO2 (r) - 46 = HYDRALD (r) 98 = XYLENOOH (r)150 = NO3 (r) - 47 = CH3OOH (r) 99 = TOLO2 (r) 151 = O3 (r) - 48 = MACROOH (r)100 = MALO2 (r) 152 = CH3CO3 (r) - 49 = MEKOOH (r)101 = XYLENO2 (r)153 = NO (r) - 50 = BZOOH (r) 102 = DICARBO2 (r)154 = MCO3 (r) - 51 = NC4CH2OH (r)103 = HCOOH (r) 155 = CH3O2 (r) - 52 = NTERPOOH (r)104 = MBO (r) - -Fixed species - 1 = M (r) 3 = O2 (r) 5 = CO2 (n) - 2 = H2O (r) 4 = N2 (r) - -### Subroutines --------------------------------------- - -SUBROUTINE Fun ( V, F, RCT, Vdot ) -SUBROUTINE Jac_SP ( V, F, RCT, JVS ) -SUBROUTINE Jac_SP_Vec ( JVS, UV, JUV ) -SUBROUTINE JacTR_SP_Vec ( JVS, UV, JTUV ) -SUBROUTINE KppSolve ( JVS, X ) -SUBROUTINE KppSolveTR ( JVS, X, XX ) -SUBROUTINE Initialize ( ) -SUBROUTINE Shuffle_user2kpp ( V_USER, V ) -SUBROUTINE Shuffle_kpp2user ( V, V_USER ) -SUBROUTINE Update_RCONST ( ) -SUBROUTINE Update_PHOTO ( ) -SUBROUTINE GetMass ( CL, Mass ) -SUBROUTINE ReactantProd ( V, F, ARP ) -SUBROUTINE JacReactantProd ( V, F, JVRP ) diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Function.f90 b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Function.f90 deleted file mode 100644 index cf72315f1ca5bd928d808b2d3cfcdb7db13f465a..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Function.f90 +++ /dev/null @@ -1,678 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The ODE Function of Chemical Model File -! -! Generated by KPP-2.2.3 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 : MOZART_T1_Function.f90 -! Time : Wed Jan 27 13:13:50 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_T1_20754_BOXMOX -! Equation file : MOZART_T1.kpp -! Output root filename : MOZART_T1 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MOZART_T1_Function - - USE MOZART_T1_Parameters - IMPLICIT NONE - -! A - Rate for each equation - REAL(kind=dp) :: A(NREACT) - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Fun - time derivatives of variables - Agregate form -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! RCT - Rate constants (local) -! Vdot - Time derivative of variable species concentrations -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Fun ( V, F, RCT, Vdot ) - -! 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) -! Vdot - Time derivative of variable species concentrations - REAL(kind=dp) :: Vdot(NVAR) - - -! Computation of equation rates - A(1) = RCT(1)*V(39) - A(2) = RCT(2)*F(3) - A(3) = RCT(3)*V(151) - A(4) = RCT(4)*V(151) - A(5) = RCT(5)*V(70) - A(6) = RCT(6)*V(45) - A(7) = RCT(7)*V(18) - A(8) = RCT(8)*V(29) - A(9) = RCT(9)*V(147) - A(10) = RCT(10)*V(150) - A(11) = RCT(11)*V(93) - A(12) = RCT(12)*V(94) - A(13) = RCT(13)*V(67) - A(14) = RCT(14)*V(26) - A(15) = RCT(15)*V(111) - A(16) = RCT(16)*V(69) - A(17) = RCT(17)*V(44) - A(18) = RCT(18)*V(91) - A(19) = RCT(19)*V(57) - A(20) = RCT(20)*V(50) - A(21) = RCT(21)*V(53) - A(22) = RCT(22)*V(56) - A(23) = RCT(23)*V(41) - A(24) = RCT(24)*V(146) - A(25) = RCT(25)*V(146) - A(26) = RCT(26)*V(129) - A(27) = RCT(27)*V(122) - A(28) = RCT(28)*V(138) - A(29) = RCT(29)*V(68) - A(30) = RCT(30)*V(47) - A(31) = RCT(31)*V(20) - A(32) = RCT(32)*V(124) - A(33) = RCT(33)*V(109) - A(34) = RCT(34)*V(113) - A(35) = RCT(35)*V(137) - A(36) = RCT(36)*V(37) - A(37) = RCT(37)*V(136) - A(38) = RCT(38)*V(62) - A(39) = RCT(39)*V(97) - A(40) = RCT(40)*V(143) - A(41) = RCT(41)*V(83) - A(42) = RCT(42)*V(78) - A(43) = RCT(43)*V(49) - A(44) = RCT(44)*V(84) - A(45) = RCT(45)*V(144) - A(46) = RCT(46)*V(110) - A(47) = RCT(47)*V(119) - A(48) = RCT(48)*V(52) - A(49) = RCT(49)*V(22) - A(50) = RCT(50)*V(71) - A(51) = RCT(51)*V(54) - A(52) = RCT(52)*V(74) - A(53) = RCT(53)*V(55) - A(54) = RCT(54)*V(32) - A(55) = RCT(55)*V(88) - A(56) = RCT(56)*V(80) - A(57) = RCT(57)*V(75) - A(58) = RCT(58)*V(133) - A(59) = RCT(59)*V(126) - A(60) = RCT(60)*V(89) - A(61) = RCT(61)*V(33) - A(62) = RCT(62)*V(98) - A(63) = RCT(63)*V(63) - A(64) = RCT(64)*V(87)*V(106) - A(65) = RCT(65)*V(82)*V(106) - A(66) = RCT(66)*V(106)*F(2) - A(67) = RCT(67)*V(106)*F(4) - A(68) = RCT(68)*V(106)*F(3) - A(69) = RCT(69)*V(106)*V(151) - A(70) = RCT(70)*V(135)*V(151) - A(71) = RCT(71)*V(135)*V(135)*F(1) - A(72) = RCT(72)*V(135)*F(1)*F(3) - A(73) = RCT(73)*V(82)*V(135) - A(74) = RCT(74)*V(39)*V(135) - A(75) = RCT(75)*V(135)*V(149) - A(76) = RCT(76)*V(149)*V(151) - A(77) = RCT(77)*V(82)*V(148) - A(78) = RCT(78)*V(39)*V(148) - A(79) = RCT(79)*V(148)*V(149) - A(80) = RCT(80)*V(135)*V(148) - A(81) = RCT(81)*V(148)*V(151) - A(82) = RCT(82)*V(148)*V(148) - A(83) = RCT(83)*V(148)*V(148) - A(84) = RCT(84)*V(149)*V(149) - A(85) = RCT(85)*V(45)*V(148) - A(86) = RCT(86)*V(135)*V(147) - A(87) = RCT(87)*V(147)*V(151) - A(88) = RCT(88)*V(135)*V(147) - A(89) = RCT(89)*V(149)*V(150) - A(90) = RCT(90)*V(150)*V(153) - A(91) = RCT(91)*V(135)*V(150) - A(92) = RCT(92)*V(148)*V(150) - A(93) = RCT(93)*V(149)*V(153) - A(94) = RCT(94)*V(151)*V(153) - A(95) = RCT(95)*V(135)*V(153) - A(96) = RCT(96)*V(18)*V(106) - A(97) = RCT(97)*V(18)*V(106) - A(98) = RCT(98)*V(147)*V(149) - A(99) = RCT(99)*V(147)*V(150) - A(100) = RCT(100)*V(147)*V(148) - A(101) = RCT(101)*V(70)*V(148) - A(102) = RCT(102)*V(45)*F(1) - A(103) = RCT(103)*V(29)*F(1) - A(104) = RCT(104)*V(146)*V(149) - A(105) = RCT(105)*V(146)*V(150) - A(106) = RCT(106)*V(135)*V(146) - A(107) = RCT(107)*V(146)*V(148) - A(108) = RCT(108)*V(155)*V(155) - A(109) = RCT(109)*V(155)*V(155) - A(110) = RCT(110)*V(149)*V(155) - A(111) = RCT(111)*V(153)*V(155) - A(112) = RCT(112)*V(107)*V(148) - A(113) = RCT(113)*V(47)*V(148) - A(114) = RCT(114)*V(87)*V(148) - A(115) = RCT(115)*V(28)*V(148) - A(116) = RCT(116)*V(103)*V(148) - A(117) = RCT(117)*V(65)*V(149) - A(118) = RCT(118)*V(65) - A(119) = RCT(119)*V(65)*V(153) - A(120) = RCT(120)*V(28)*V(106) - A(121) = RCT(121)*V(123)*V(148) - A(122) = RCT(122)*V(24)*V(148) - A(123) = RCT(123)*V(60)*V(151) - A(124) = RCT(124)*V(108)*V(108) - A(125) = RCT(125)*V(108)*V(155) - A(126) = RCT(126)*V(108)*V(149) - A(127) = RCT(127)*V(108)*V(153) - A(128) = RCT(128)*V(40)*V(148) - A(129) = RCT(129)*V(53)*V(148) - A(130) = RCT(130)*V(15)*V(148) - A(131) = RCT(131)*V(129)*V(150) - A(132) = RCT(132)*V(129)*V(148) - A(133) = RCT(133)*V(17)*V(148) - A(134) = RCT(134)*V(152)*V(152) - A(135) = RCT(135)*V(152)*V(155) - A(136) = RCT(136)*V(149)*V(152) - A(137) = RCT(137)*V(152)*V(153) - A(138) = RCT(138)*V(61)*V(148) - A(139) = RCT(139)*V(68)*V(148) - A(140) = RCT(140)*V(90)*V(149) - A(141) = RCT(141)*V(90)*V(153) - A(142) = RCT(142)*V(42) - A(143) = RCT(143)*V(42)*F(3) - A(144) = RCT(144)*V(124)*V(148) - A(145) = RCT(145)*V(109)*V(148) - A(146) = RCT(146)*V(71)*V(148) - A(147) = RCT(147)*V(60)*V(148) - A(148) = RCT(148)*V(147)*V(152) - A(149) = RCT(149)*V(71)*F(1) - A(150) = RCT(150)*V(128)*V(150) - A(151) = RCT(151)*V(128)*V(151) - A(152) = RCT(152)*V(105)*V(155) - A(153) = RCT(153)*V(105)*V(149) - A(154) = RCT(154)*V(105)*V(153) - A(155) = RCT(155)*V(56)*V(148) - A(156) = RCT(156)*V(16)*V(148) - A(157) = RCT(157)*V(138)*V(150) - A(158) = RCT(158)*V(138)*V(148) - A(159) = RCT(159)*V(136)*V(148) - A(160) = RCT(160)*V(119)*V(148) - A(161) = RCT(161)*V(96)*V(149) - A(162) = RCT(162)*V(96)*V(153) - A(163) = RCT(163)*V(74)*V(148) - A(164) = RCT(164)*V(134)*V(155) - A(165) = RCT(165)*V(134)*V(149) - A(166) = RCT(166)*V(134)*V(153) - A(167) = RCT(167)*V(55)*V(148) - A(168) = RCT(168)*V(128)*V(148) - A(169) = RCT(169)*V(122)*V(148) - A(170) = RCT(170)*V(59)*V(150) - A(171) = RCT(171)*V(59)*V(148) - A(172) = RCT(172)*V(86)*V(153) - A(173) = RCT(173)*V(86)*V(153) - A(174) = RCT(174)*V(137)*V(148) - A(175) = RCT(175)*V(145)*V(152) - A(176) = RCT(176)*V(145)*V(155) - A(177) = RCT(177)*V(145)*V(149) - A(178) = RCT(178)*V(145)*V(150) - A(179) = RCT(179)*V(145)*V(153) - A(180) = RCT(180)*V(145)*V(153) - A(181) = RCT(181)*V(143)*V(151) - A(182) = RCT(182)*V(143)*V(148) - A(183) = RCT(183)*V(48)*V(148) - A(184) = RCT(184)*V(152)*V(154) - A(185) = RCT(185)*V(154)*V(155) - A(186) = RCT(186)*V(149)*V(154) - A(187) = RCT(187)*V(154)*V(154) - A(188) = RCT(188)*V(153)*V(154) - A(189) = RCT(189)*V(150)*V(154) - A(190) = RCT(190)*V(95)*V(149) - A(191) = RCT(191)*V(95)*V(153) - A(192) = RCT(192)*V(78)*V(148) - A(193) = RCT(193)*V(49)*V(148) - A(194) = RCT(194)*V(84)*V(148) - A(195) = RCT(195)*V(144)*V(151) - A(196) = RCT(196)*V(144)*V(148) - A(197) = RCT(197)*V(147)*V(154)*F(1) - A(198) = RCT(198)*V(84)*F(1) - A(199) = RCT(199)*V(93)*V(148) - A(200) = RCT(200)*V(121)*V(149) - A(201) = RCT(201)*V(121)*V(153) - A(202) = RCT(202)*V(121)*V(153) - A(203) = RCT(203)*V(94)*V(148) - A(204) = RCT(204)*V(58)*V(148) - A(205) = RCT(205)*V(37)*V(148) - A(206) = RCT(206)*V(46)*V(148) - A(207) = RCT(207)*V(21)*V(148) - A(208) = RCT(208)*V(140)*V(152) - A(209) = RCT(209)*V(140)*V(155) - A(210) = RCT(210)*V(140)*V(149) - A(211) = RCT(211)*V(140)*V(153) - A(212) = RCT(212)*V(140)*V(150) - A(213) = RCT(213)*V(141)*V(152) - A(214) = RCT(214)*V(141)*V(155) - A(215) = RCT(215)*V(141)*V(149) - A(216) = RCT(216)*V(141) - A(217) = RCT(217)*V(141)*V(153) - A(218) = RCT(218)*V(141)*V(150) - A(219) = RCT(219)*V(85)*V(148) - A(220) = RCT(220)*V(72)*V(148) - A(221) = RCT(221)*V(114)*V(150) - A(222) = RCT(222)*V(142)*V(152) - A(223) = RCT(223)*V(142)*V(155) - A(224) = RCT(224)*V(142)*V(149) - A(225) = RCT(225)*V(142)*V(153) - A(226) = RCT(226)*V(142)*V(150) - A(227) = RCT(227)*V(62)*V(148) - A(228) = RCT(228)*V(114)*V(151) - A(229) = RCT(229)*V(114)*V(148) - A(230) = RCT(230)*V(97)*V(148) - A(231) = RCT(231)*V(51)*V(148) - A(232) = RCT(232)*V(110)*V(148) - A(233) = RCT(233)*V(139)*V(152) - A(234) = RCT(234)*V(139)*V(155) - A(235) = RCT(235)*V(139)*V(149) - A(236) = RCT(236)*V(139)*V(153) - A(237) = RCT(237)*V(139)*V(150) - A(238) = RCT(238)*V(33)*V(148) - A(239) = RCT(239)*V(79)*V(149) - A(240) = RCT(240)*V(79)*V(153) - A(241) = RCT(241)*V(113)*V(148) - A(242) = RCT(242)*V(104)*V(150) - A(243) = RCT(243)*V(112)*V(149) - A(244) = RCT(244)*V(112)*V(153) - A(245) = RCT(245)*V(112)*V(150) - A(246) = RCT(246)*V(125)*V(155) - A(247) = RCT(247)*V(125)*V(149) - A(248) = RCT(248)*V(125)*V(153) - A(249) = RCT(249)*V(104)*V(151) - A(250) = RCT(250)*V(104)*V(148) - A(251) = RCT(251)*V(83)*V(148) - A(252) = RCT(252)*V(81)*V(149) - A(253) = RCT(253)*V(81)*V(153) - A(254) = RCT(254)*V(43)*V(149) - A(255) = RCT(255)*V(43)*V(153) - A(256) = RCT(256)*V(25)*V(148) - A(257) = RCT(257)*V(76)*V(149) - A(258) = RCT(258)*V(76)*V(153) - A(259) = RCT(259)*V(67)*V(148) - A(260) = RCT(260)*V(38)*V(148) - A(261) = RCT(261)*V(64)*V(149) - A(262) = RCT(262)*V(50)*V(148) - A(263) = RCT(263)*V(64)*V(153) - A(264) = RCT(264)*V(92)*V(149) - A(265) = RCT(265)*V(92)*V(153) - A(266) = RCT(266)*V(41)*V(148) - A(267) = RCT(267)*V(31)*V(148) - A(268) = RCT(268)*V(102)*V(149) - A(269) = RCT(269)*V(102)*V(153) - A(270) = RCT(270)*V(102)*V(147) - A(271) = RCT(271)*V(100)*V(149) - A(272) = RCT(272)*V(100)*V(153) - A(273) = RCT(273)*V(100)*V(147) - A(274) = RCT(274)*V(130)*V(149) - A(275) = RCT(275)*V(130)*V(153) - A(276) = RCT(276)*V(130)*V(147) - A(277) = RCT(277)*V(66)*V(149) - A(278) = RCT(278)*V(66)*V(153) - A(279) = RCT(279)*V(27)*V(148) - A(280) = RCT(280)*V(73)*V(147) - A(281) = RCT(281)*V(73)*V(151) - A(282) = RCT(282)*V(54)*V(148) - A(283) = RCT(283)*V(81)*V(147) - A(284) = RCT(284)*V(99)*V(149) - A(285) = RCT(285)*V(99)*V(153) - A(286) = RCT(286)*V(89)*V(148) - A(287) = RCT(287)*V(30)*V(148) - A(288) = RCT(288)*V(23)*F(1) - A(289) = RCT(289)*V(34)*V(148) - A(290) = RCT(290)*V(101)*V(149) - A(291) = RCT(291)*V(101)*V(153) - A(292) = RCT(292)*V(98)*V(148) - A(293) = RCT(293)*V(77)*V(149) - A(294) = RCT(294)*V(77)*V(153) - A(295) = RCT(295)*V(35)*V(148) - A(296) = RCT(296)*V(63)*V(148) - A(297) = RCT(297)*V(116)*V(150) - A(298) = RCT(298)*V(116)*V(151) - A(299) = RCT(299)*V(116)*V(148) - A(300) = RCT(300)*V(117)*V(150) - A(301) = RCT(301)*V(117)*V(151) - A(302) = RCT(302)*V(117)*V(148) - A(303) = RCT(303)*V(118)*V(150) - A(304) = RCT(304)*V(118)*V(151) - A(305) = RCT(305)*V(118)*V(148) - A(306) = RCT(306)*V(115)*V(150) - A(307) = RCT(307)*V(115)*V(151) - A(308) = RCT(308)*V(115)*V(148) - A(309) = RCT(309)*V(120)*V(150) - A(310) = RCT(310)*V(120)*V(151) - A(311) = RCT(311)*V(120)*V(148) - A(312) = RCT(312)*V(132)*V(155) - A(313) = RCT(313)*V(132)*V(149) - A(314) = RCT(314)*V(132)*V(153) - A(315) = RCT(315)*V(132)*V(150) - A(316) = RCT(316)*V(52)*V(148) - A(317) = RCT(317)*V(127)*V(155) - A(318) = RCT(318)*V(127)*V(149) - A(319) = RCT(319)*V(127)*V(153) - A(320) = RCT(320)*V(88)*V(148) - A(321) = RCT(321)*V(80)*V(148) - A(322) = RCT(322)*V(131)*V(155) - A(323) = RCT(323)*V(131)*V(149) - A(324) = RCT(324)*V(131)*V(153) - A(325) = RCT(325)*V(75)*V(148) - A(326) = RCT(326)*V(133)*V(150) - A(327) = RCT(327)*V(133)*V(148) - A(328) = RCT(328)*V(126)*V(148) - A(329) = RCT(329)*V(36)*V(150) - A(330) = RCT(330)*V(36)*V(148) - A(331) = RCT(331)*V(14)*V(148) - A(332) = RCT(332)*V(36)*V(148) - A(333) = RCT(333)*V(149) - A(334) = RCT(334)*V(29) - A(335) = RCT(335)*V(147) - A(336) = RCT(336)*V(150) - A(337) = RCT(337)*V(19)*V(148) - A(338) = RCT(338)*V(116)*V(150) - A(339) = RCT(339)*V(116)*V(151) - A(340) = RCT(340)*V(116)*V(148) - A(341) = RCT(341)*V(117)*V(150) - A(342) = RCT(342)*V(117)*V(151) - A(343) = RCT(343)*V(117)*V(148) - A(344) = RCT(344)*V(25)*V(148) - A(345) = RCT(345)*V(118)*V(150) - A(346) = RCT(346)*V(118)*V(151) - A(347) = RCT(347)*V(118)*V(148) - A(348) = RCT(348)*V(114)*V(150) - A(349) = RCT(349)*V(114)*V(151) - A(350) = RCT(350)*V(114)*V(148) - A(351) = RCT(351)*V(8)*V(148) - A(352) = RCT(352)*V(115)*V(150) - A(353) = RCT(353)*V(115)*V(151) - A(354) = RCT(354)*V(115)*V(148) - A(355) = RCT(355)*V(120)*V(150) - A(356) = RCT(356)*V(120)*V(151) - A(357) = RCT(357)*V(120)*V(148) - A(358) = RCT(358)*V(9)*V(148) - A(359) = RCT(359)*V(30)*V(148) - A(360) = RCT(360)*V(34)*V(148) - -! Aggregate function - Vdot(1) = A(254) - Vdot(2) = A(337) - Vdot(3) = 0.0508*A(339)+0.0508*A(340)+0.2202*A(342)+0.2202*A(343)+0.0023*A(344)+0.0508*A(346)+0.0508*A(347)+0.0031& - &*A(350)+0.2381*A(351)+0.0508*A(353)+0.0508*A(354)+0.0508*A(356)+0.0508*A(357)+0.5931*A(358)+0.1364*A(359)& - &+0.1677*A(360) - Vdot(4) = 0.1149*A(339)+0.1149*A(340)+0.2067*A(342)+0.2067*A(343)+0.0008*A(344)+0.1149*A(346)+0.1149*A(347)+0.0035& - &*A(350)+0.1308*A(351)+0.1149*A(353)+0.1149*A(354)+0.1149*A(356)+0.1149*A(357)+0.1534*A(358)+0.0101*A(359)& - &+0.0174*A(360) - Vdot(5) = 0.0348*A(339)+0.0348*A(340)+0.0653*A(342)+0.0653*A(343)+0.0843*A(344)+0.0348*A(346)+0.0348*A(347)+0.0003& - &*A(350)+0.0348*A(351)+0.0348*A(353)+0.0348*A(354)+0.0348*A(356)+0.0348*A(357)+0.0459*A(358)+0.0763*A(359)& - &+0.086*A(360) - Vdot(6) = 0.17493*A(338)+0.0554*A(339)+0.0554*A(340)+0.17493*A(341)+0.1284*A(342)+0.1284*A(343)+0.0443*A(344)+0.17493& - &*A(345)+0.0554*A(346)+0.0554*A(347)+0.059024*A(348)+0.0033*A(349)+0.0271*A(350)+0.0076*A(351)+0.17493*A(352)& - &+0.0554*A(353)+0.0554*A(354)+0.17493*A(355)+0.0554*A(356)+0.0554*A(357)+0.0085*A(358)+0.2157*A(359)+0.0512& - &*A(360) - Vdot(7) = 0.59019*A(338)+0.1278*A(339)+0.1278*A(340)+0.59019*A(341)+0.114*A(342)+0.114*A(343)+0.1621*A(344)+0.59019& - &*A(345)+0.1278*A(346)+0.1278*A(347)+0.025024*A(348)+0.0474*A(350)+0.0113*A(351)+0.59019*A(352)+0.1278*A(353)& - &+0.1278*A(354)+0.59019*A(355)+0.1278*A(356)+0.1278*A(357)+0.0128*A(358)+0.0232*A(359)+0.1598*A(360) - Vdot(8) = -A(351) - Vdot(9) = -A(358) - Vdot(10) = A(108)+A(109)+A(124)+A(125)+A(134)+A(135)+A(152)+A(164)+A(208)+A(209)+A(213)+A(214)+A(233)+A(234)+A(246)& - &+A(312)+A(317)+A(322) - Vdot(11) = A(110)+A(117)+A(126)+A(136)+A(140)+A(153)+A(161)+A(165)+A(190)+A(200)+A(210)+A(215)+A(235)+A(243)+A(247)& - &+A(252)+A(257)+A(261)+A(264)+A(271)+A(274)+A(277)+A(284)+A(290)+A(293)+A(313)+A(318)+A(323) - Vdot(12) = A(111)+A(119)+A(127)+A(137)+A(141)+A(154)+A(162)+A(166)+A(172)+A(173)+A(191)+A(201)+A(202)+A(211)+A(217)& - &+A(236)+A(244)+A(248)+A(253)+A(258)+A(263)+A(265)+A(272)+A(275)+A(278)+A(285)+A(291)+A(294)+A(314)+A(319)& - &+A(324) - Vdot(13) = A(107)+A(112)+A(113)+A(114)+A(115)+A(116)+A(121)+A(122)+A(128)+A(129)+A(130)+A(132)+A(133)+A(138)+A(139)& - &+A(144)+A(145)+A(146)+A(147)+A(155)+A(156)+A(158)+A(159)+A(168)+A(169)+A(171)+A(174)+A(182)+A(183)+A(192)& - &+A(194)+A(196)+A(203)+A(204)+A(205)+A(206)+A(207)+A(219)+A(220)+A(227)+A(229)+A(230)+A(231)+A(232)+A(238)& - &+A(250)+A(251)+A(256)+A(266)+A(267)+A(279)+A(282)+A(286)+A(287)+A(289)+A(292)+A(296)+A(299)+A(302)+A(305)& - &+A(308)+A(311)+A(316)+A(320)+A(321)+A(325)+A(340)+A(343)+A(344)+A(347)+A(350)+A(354)+A(357)+A(359)+A(360) - Vdot(14) = -A(331) - Vdot(15) = -A(130) - Vdot(16) = -A(156) - Vdot(17) = -A(133) - Vdot(18) = -A(7)-A(96)-A(97) - Vdot(19) = A(329)+A(330)+0.5*A(332)-A(337) - Vdot(20) = -A(31)+A(140) - Vdot(21) = -A(207)+0.6*A(230) - Vdot(22) = -A(49)+A(174)+0.1*A(319) - Vdot(23) = A(283)-A(288) - Vdot(24) = -A(122) - Vdot(25) = -A(256) - Vdot(26) = -A(14)+0.12*A(256) - Vdot(27) = 0.53*A(256)-A(279) - Vdot(28) = -A(115)-A(120) - Vdot(29) = -A(8)+A(99)-A(103)-A(334) - Vdot(30) = -A(287) - Vdot(31) = -A(267)+0.18*A(287) - Vdot(32) = -A(54)+0.1*A(287)+0.23*A(289) - Vdot(33) = -A(61)+A(235)-A(238) - Vdot(34) = -A(289) - Vdot(35) = 0.15*A(289)-A(295) - Vdot(36) = -A(329)-A(330)-A(332) - Vdot(37) = -A(36)-A(205)+A(216) - Vdot(38) = A(20)-A(260)+A(263) - Vdot(39) = -A(1)-A(74)-A(78)+A(83)+A(84)+0.5*A(333) - Vdot(40) = 0.4*A(124)+0.2*A(125)-A(128) - Vdot(41) = -A(23)+A(264)-A(266) - Vdot(42) = A(31)+0.75*A(141)-A(142)-A(143) - Vdot(43) = -A(254)-A(255) - Vdot(44) = -A(17)+0.2*A(60)+0.2*A(62)+0.2*A(285)+0.2*A(291) - Vdot(45) = -A(6)-A(85)+A(98)-A(102) - Vdot(46) = -A(206)+A(213)+0.75*A(214)+0.87*A(217)+0.95*A(218) - Vdot(47) = -A(30)+A(110)-A(113) - Vdot(48) = A(177)-A(183) - Vdot(49) = -A(43)+0.8*A(190)-A(193) - Vdot(50) = -A(20)+A(261)-A(262) - Vdot(51) = 0.2*A(223)-A(231) - Vdot(52) = -A(48)+A(313)-A(316) - Vdot(53) = -A(21)+A(126)-A(129) - Vdot(54) = -A(51)+A(277)-A(282) - Vdot(55) = -A(53)+0.85*A(165)-A(167) - Vdot(56) = -A(22)+A(153)-A(155) - Vdot(57) = -A(19)+0.21*A(62)+0.21*A(291) - Vdot(58) = -A(204)+0.05*A(298)+0.05*A(301)+0.05*A(304)+0.05*A(307)+0.05*A(310) - Vdot(59) = -A(170)-A(171) - Vdot(60) = -A(123)-A(147) - Vdot(61) = 0.1*A(135)+0.15*A(136)-A(138)+0.12*A(151)+0.15*A(186) - Vdot(62) = -A(38)+A(224)-A(227) - Vdot(63) = -A(63)+A(293)-A(296) - Vdot(64) = -A(261)+A(262)-A(263)+0.07*A(287)+0.06*A(289) - Vdot(65) = A(104)-A(117)-A(118)-A(119) - Vdot(66) = 0.2*A(267)-A(277)-A(278)+0.14*A(279)+A(282) - Vdot(67) = -A(13)+A(257)-A(259) - Vdot(68) = -A(29)+0.4*A(136)-A(139)+0.4*A(186) - Vdot(69) = 0.5*A(13)+A(14)-A(16)+0.2*A(60)+0.06*A(62)+0.5*A(258)+0.2*A(285)+0.06*A(291) - Vdot(70) = -A(5)+A(100)-A(101)+A(105)+A(131)+A(157)+A(329)+2*A(334)+0.5*A(335)+A(336) - Vdot(71) = -A(50)-A(146)+A(148)-A(149) - Vdot(72) = 0.08*A(217)-A(220) - Vdot(73) = A(23)+A(265)+0.07*A(267)+0.06*A(279)-A(280)-A(281)+0.07*A(295) - Vdot(74) = -A(52)+A(161)-A(163) - Vdot(75) = -A(57)+A(323)-A(325) - Vdot(76) = 0.35*A(256)-A(257)-A(258)+A(259) - Vdot(77) = -A(293)-A(294)+0.3*A(295)+A(296) - Vdot(78) = 0.8*A(11)+0.8*A(12)-A(42)-A(192)+0.8*A(201) - Vdot(79) = -A(239)-A(240)+A(241) - Vdot(80) = -A(56)+0.5*A(312)+0.2*A(314)-A(321)+0.2*A(324) - Vdot(81) = -A(252)-A(253)+A(260)-A(283)+A(288) - Vdot(82) = A(25)+0.05*A(64)-A(65)-A(73)-A(77) - Vdot(83) = -A(41)+A(247)-A(251) - Vdot(84) = -A(44)-A(194)+A(197)-A(198) - Vdot(85) = 0.08*A(211)-A(219) - Vdot(86) = A(171)-A(172)-A(173) - Vdot(87) = -A(64)-A(114)+0.1*A(151) - Vdot(88) = -A(55)+A(318)-A(320) - Vdot(89) = -A(60)+A(284)-A(286) - Vdot(90) = -A(140)-A(141)+A(147) - Vdot(91) = -A(18)+A(36)+A(46)+0.2*A(60)+0.15*A(62)+0.2*A(285)+0.15*A(291) - Vdot(92) = 0.4*A(252)+A(253)-A(264)-A(265)+A(266)+A(281) - Vdot(93) = -A(11)-A(199)+A(202) - Vdot(94) = -A(12)+A(200)-A(203) - Vdot(95) = -A(190)-A(191)+A(192)+A(193) - Vdot(96) = -A(161)-A(162)+0.5*A(163)+A(168) - Vdot(97) = A(38)-A(39)+A(210)+A(215)-A(230) - Vdot(98) = -A(62)+A(290)-A(292) - Vdot(99) = -A(284)-A(285)+A(286)+0.65*A(287) - Vdot(100) = 0.6*A(16)-A(271)-A(272)-A(273) - Vdot(101) = 0.56*A(289)-A(290)-A(291)+A(292) - Vdot(102) = 0.6*A(17)-A(268)-A(269)-A(270) - Vdot(103) = -A(116)+A(117)+A(119)+0.35*A(122)+0.37*A(123)+0.12*A(151)+0.33*A(181)+0.12*A(195)+0.11*A(228)+0.17*A(249)& - &+0.05*A(298)+0.05*A(301)+0.05*A(304)+0.05*A(307)+0.05*A(310) - Vdot(104) = -A(242)-A(249)-A(250) - Vdot(105) = -A(152)-A(153)-A(154)+A(155)+A(156) - Vdot(106) = A(4)+A(7)-A(64)-A(65)-A(66)-A(67)-A(68)-A(69)-A(96)-A(97)-A(120) - Vdot(107) = A(109)-A(112)+0.3*A(125)+0.5*A(164)+0.25*A(176)+0.25*A(209)+0.25*A(214)+0.2*A(223)+0.3*A(234)+0.25*A(246)& - &+0.25*A(312)+0.25*A(317)+0.25*A(322) - Vdot(108) = A(42)-2*A(124)-A(125)-A(126)-A(127)+0.5*A(129)+A(130) - Vdot(109) = A(13)+0.13*A(15)-A(33)+0.7*A(51)+0.6*A(60)+0.34*A(62)+0.17*A(63)+0.65*A(122)+0.2*A(144)-A(145)+0.05*A(217)& - &+0.05*A(218)+A(232)+0.25*A(233)+0.1*A(234)+0.25*A(236)+0.25*A(237)+0.9*A(255)+A(258)+0.16*A(271)+0.4*A(272)& - &+0.07*A(274)+0.17*A(275)+0.7*A(278)+0.6*A(285)+0.34*A(291)+0.17*A(294) - Vdot(110) = -A(46)+A(222)+0.8*A(223)+A(225)+A(226)-A(232) - Vdot(111) = -A(15)+0.9*A(255)+0.1*A(298)+0.1*A(301)+0.1*A(304)+0.1*A(307)+0.1*A(310) - Vdot(112) = A(242)-A(243)-A(244)-A(245) - Vdot(113) = -A(34)+0.33*A(41)-A(241)+0.25*A(244)+0.25*A(245)+0.167*A(246)+0.33*A(248)+0.7*A(249) - Vdot(114) = -A(221)-A(228)-A(229) - Vdot(115) = -A(306)-A(307)-A(308) - Vdot(116) = -A(297)-A(298)-A(299) - Vdot(117) = -A(300)-A(301)-A(302) - Vdot(118) = -A(303)-A(304)-A(305) - Vdot(119) = -A(47)+A(150)-A(160)+0.5*A(220)+A(227)+A(231)+A(232) - Vdot(120) = -A(309)-A(310)-A(311) - Vdot(121) = -A(200)-A(201)-A(202)+A(203)+A(204) - Vdot(122) = 0.25*A(11)+0.25*A(12)+0.82*A(22)-A(27)+A(34)+0.17*A(35)+0.67*A(41)+0.3*A(55)+0.05*A(57)+0.5*A(59)+0.82& - &*A(152)+0.82*A(154)-A(169)+0.5*A(170)+0.5*A(172)+0.8*A(199)+0.25*A(201)+0.4*A(239)+A(240)+0.75*A(244)+0.75& - &*A(245)+0.333*A(246)+0.67*A(248)+0.23*A(249)+0.52*A(298)+0.52*A(301)+0.52*A(304)+0.52*A(307)+0.52*A(310)& - &+0.15*A(317)+0.27*A(319)+0.025*A(322)+0.04*A(324)+0.5*A(328) - Vdot(123) = 1.5*A(14)+0.45*A(15)+0.6*A(18)+A(19)+A(24)+A(25)+A(26)+A(28)+A(32)+2*A(33)+A(34)+0.33*A(35)+0.67*A(40)+0.7& - &*A(45)+1.5*A(54)+0.25*A(55)+A(58)+1.7*A(59)+A(105)+A(106)+A(107)-A(121)+0.35*A(122)+0.63*A(123)+A(145)+0.56& - &*A(151)+A(157)+A(158)+0.22*A(175)+0.11*A(176)+0.22*A(178)+0.22*A(179)+0.65*A(181)+0.56*A(195)+0.62*A(228)& - &+0.25*A(233)+0.2*A(234)+0.25*A(236)+0.5*A(237)+0.64*A(249)+0.07*A(268)+0.17*A(269)+0.16*A(271)+0.4*A(272)& - &+0.14*A(274)+0.35*A(275)+0.23*A(298)+0.23*A(301)+0.23*A(304)+0.23*A(307)+0.23*A(310)+0.125*A(317)+0.225& - &*A(319)+0.7*A(328) - Vdot(124) = -A(32)+0.33*A(35)+0.67*A(41)+0.25*A(55)+A(143)-A(144)+0.53*A(175)+0.26*A(176)+0.53*A(178)+0.53*A(179)+0.05& - &*A(217)+0.05*A(218)+0.7*A(219)+0.5*A(220)+A(231)+0.25*A(233)+0.1*A(234)+0.25*A(236)+0.25*A(237)+0.333& - &*A(246)+0.67*A(248)+0.125*A(317)+0.225*A(319) - Vdot(125) = -A(246)-A(247)-A(248)+A(250)+0.5*A(251) - Vdot(126) = A(55)+A(58)-A(59)+0.3*A(298)+0.3*A(301)+0.3*A(304)+0.3*A(307)+0.3*A(310)+A(317)+0.9*A(319)-A(328) - Vdot(127) = -A(317)-A(318)-A(319)+A(320)+0.5*A(326)+A(327) - Vdot(128) = 0.7*A(45)-A(150)-A(151)-A(168)+0.13*A(228) - Vdot(129) = 0.4*A(11)+0.4*A(12)+A(21)-A(26)+0.33*A(35)+A(43)+A(52)+1.6*A(124)+0.8*A(125)+A(127)+A(128)+0.5*A(129)& - &-A(131)-A(132)+0.5*A(151)+0.27*A(154)+A(162)+A(170)+A(172)+0.2*A(190)+A(191)+0.1*A(195)+0.8*A(199)+0.4& - &*A(201) - Vdot(130) = 0.6*A(18)-A(274)-A(275)-A(276) - Vdot(131) = A(299)+A(302)+A(305)+A(308)+A(311)-A(322)-A(323)-A(324)+A(325) - Vdot(132) = A(297)+A(300)+A(303)+A(306)+A(309)-A(312)-A(313)-A(314)-A(315)+A(316)+0.5*A(326) - Vdot(133) = A(48)+A(56)+A(57)-A(58)+0.33*A(298)+0.33*A(301)+0.33*A(304)+0.33*A(307)+0.33*A(310)+0.5*A(312)+0.8*A(314)& - &+A(315)+A(321)+A(322)+0.8*A(324)-A(326)-A(327) - Vdot(134) = 0.15*A(59)-A(164)-A(165)-A(166)+A(167)+A(169)+0.06*A(298)+0.06*A(301)+0.06*A(304)+0.06*A(307)+0.06*A(310)& - &+0.15*A(328) - Vdot(135) = 2*A(2)+A(3)+A(9)+A(67)+A(68)-A(70)-2*A(71)-A(72)-A(73)-A(74)-A(75)-A(80)+A(82)-A(86)-A(88)-A(91)-A(95)& - &-A(106) - Vdot(136) = 0.17*A(35)-A(37)-A(159)+0.5*A(163)+0.2*A(164)+0.22*A(175)+0.23*A(176)+0.22*A(178)+0.22*A(179)+0.5*A(194)& - &+0.05*A(217)+0.05*A(218)+0.7*A(219)+0.5*A(220)+0.25*A(233)+0.1*A(234)+0.25*A(236)+0.25*A(237) - Vdot(137) = -A(35)+A(173)-A(174)+A(180)+0.3*A(219)+0.5*A(220)+0.75*A(244)+0.75*A(245) - Vdot(138) = 0.18*A(15)+A(19)-A(28)+0.4*A(60)+0.54*A(62)+0.51*A(63)-A(157)-A(158)+A(159)+A(160)+0.5*A(164)+0.25*A(175)& - &+0.24*A(176)+0.25*A(178)+0.25*A(179)+0.88*A(181)+0.5*A(195)+0.05*A(217)+0.05*A(218)+0.25*A(233)+0.1*A(234)& - &+0.25*A(236)+0.25*A(237)+0.07*A(268)+0.17*A(269)+0.07*A(274)+0.17*A(275)+0.4*A(285)+0.54*A(291)+0.51*A(294) - Vdot(139) = A(205)+A(206)+A(207)+0.4*A(230)-A(233)-A(234)-A(235)-A(236)-A(237)+0.5*A(238) - Vdot(140) = -A(208)-A(209)-A(210)-A(211)-A(212)+0.6*A(229) - Vdot(141) = -A(213)-A(214)-A(215)-A(216)-A(217)-A(218)+0.4*A(229) - Vdot(142) = A(221)-A(222)-A(223)-A(224)-A(225)-A(226) - Vdot(143) = 0.288*A(39)-A(40)-A(181)-A(182)+0.39*A(208)+0.31*A(209)+0.36*A(211)+0.4*A(212)+0.3*A(228) - Vdot(144) = 0.402*A(39)-A(45)-A(195)-A(196)+0.61*A(208)+0.44*A(209)+0.56*A(211)+0.6*A(212)+0.2*A(228) - Vdot(145) = -A(175)-A(176)-A(177)-A(178)-A(179)-A(180)+0.5*A(182)+0.2*A(183)+A(196) - Vdot(146) = 0.1*A(11)+0.1*A(12)-A(24)-A(25)+A(30)+A(32)+0.33*A(35)+A(37)+0.69*A(39)+0.67*A(40)+0.33*A(41)+A(47)+A(52)& - &+A(53)+0.375*A(55)+0.4*A(57)+0.68*A(59)+0.25*A(64)-A(104)-A(105)-A(106)-A(107)+2*A(108)+A(109)+A(111)& - &+A(112)+0.3*A(113)+A(118)+A(123)+0.7*A(125)+A(135)+0.5*A(139)+0.5*A(141)+2*A(142)+0.8*A(144)+A(146)+0.5& - &*A(151)+A(152)+A(162)+0.8*A(164)+0.15*A(165)+A(166)+0.5*A(170)+0.5*A(172)+0.25*A(175)+0.88*A(176)+0.25& - &*A(178)+0.25*A(179)+0.12*A(181)+A(184)+2*A(185)+0.45*A(186)+2*A(187)+A(188)+A(189)+0.5*A(194)+0.6*A(195)& - &+0.4*A(199)+0.1*A(201)+A(208)+1.5*A(209)+0.92*A(211)+A(212)+0.75*A(214)+0.3*A(219)+0.8*A(223)+0.91*A(228)& - &+0.25*A(233)+0.8*A(234)+0.25*A(236)+0.25*A(244)+0.25*A(245)+0.917*A(246)+0.33*A(248)+0.3*A(249)+0.34*A(298)& - &+0.34*A(301)+0.34*A(304)+0.34*A(307)+0.34*A(310)+0.75*A(312)+0.93*A(317)+0.34*A(319)+0.95*A(322)+0.32& - &*A(324)+0.68*A(328) - Vdot(147) = A(5)+0.66*A(6)+A(8)-A(9)+0.89*A(10)+A(11)+A(35)+A(38)+A(44)+A(46)+A(47)+A(48)+A(49)+0.6*A(50)+A(56)+A(85)& - &-A(86)-A(87)-A(88)+A(89)+2*A(90)+A(91)+A(92)+A(93)+A(94)+A(95)-A(98)-A(99)-A(100)+A(102)+A(103)+A(111)& - &+A(119)+A(127)+A(137)+A(141)-A(148)+A(149)+A(154)+A(160)+A(162)+A(166)+A(170)+A(172)+A(178)+A(179)+A(188)& - &+A(189)+A(191)-A(197)+A(198)+A(199)+A(201)+0.92*A(211)+A(212)+0.92*A(217)+A(218)+0.7*A(219)+A(225)+A(226)& - &+A(236)+A(237)+A(240)+1.25*A(244)+1.25*A(245)+A(248)+A(253)+0.9*A(255)+A(258)+A(263)+A(265)+A(269)-A(270)& - &+A(272)-A(273)+A(275)-A(276)+A(278)-A(280)-A(283)+A(285)+A(288)+A(291)+A(294)+0.5*A(312)+1.6*A(314)+2& - &*A(315)+0.9*A(319)+A(321)+0.8*A(324)-A(335) - Vdot(148) = 2*A(1)+A(5)+0.33*A(6)+A(12)+A(13)+A(20)+A(21)+A(22)+A(23)+A(29)+A(30)+A(31)+A(36)+0.33*A(40)+A(41)+A(43)& - &+A(48)+A(51)+A(52)+A(53)+A(55)+A(57)+A(60)+A(61)+A(62)+A(63)+0.75*A(64)+A(65)+2*A(66)+A(73)+A(74)+A(75)& - &+A(76)-A(77)-A(78)-A(79)-A(80)-A(81)-2*A(82)-2*A(83)-A(85)+A(89)-A(92)+A(93)-A(100)-A(101)+A(106)-A(107)& - &-A(112)-0.7*A(113)-A(114)-A(115)-A(116)+A(120)-A(121)-0.35*A(122)+0.13*A(123)-A(128)-0.5*A(129)-A(130)& - &-A(132)-A(133)+0.45*A(136)-A(138)-A(139)-A(144)-A(145)-A(146)-A(147)+0.36*A(151)-A(155)-A(156)-A(158)& - &-A(159)-A(160)-0.5*A(163)+0.15*A(165)-A(167)-A(168)-A(169)-A(171)-A(174)+0.24*A(181)-A(182)-0.9*A(183)+0.45& - &*A(186)+0.2*A(190)-A(192)-A(193)-A(194)+0.36*A(195)-A(196)-A(199)-A(203)-A(204)-A(205)-A(206)-A(207)-A(219)& - &-A(220)-A(227)+0.32*A(228)-A(229)-0.4*A(230)-A(231)-A(232)-0.5*A(238)+0.4*A(239)-A(241)+0.36*A(249)-A(250)& - &-0.5*A(251)+0.4*A(252)-A(256)-A(259)-A(260)-A(262)-A(266)-A(267)+0.4*A(268)+0.4*A(274)-A(279)-A(282)-A(286)& - &-A(287)-A(289)-A(292)-A(295)-A(296)+0.63*A(298)-A(299)+0.63*A(301)-A(302)+0.63*A(304)-A(305)+0.63*A(307)& - &-A(308)+0.63*A(310)-A(311)-A(316)-A(320)-A(321)-A(325)-A(327)-A(328)-A(330)-A(331)-A(332)+0.5*A(335)-A(337) - Vdot(149) = 0.66*A(6)+A(11)+0.9*A(12)+A(13)+1.5*A(14)+0.56*A(15)+A(16)+0.6*A(17)+0.6*A(18)+A(19)+A(20)+A(21)+A(22)+2& - &*A(24)+A(26)+A(28)+A(30)+2*A(32)+2*A(33)+2*A(34)+0.67*A(35)+A(36)+A(37)+A(38)+A(39)+0.67*A(40)+A(41)+A(46)& - &+A(51)+A(52)+A(54)+A(55)+A(56)+A(57)+A(58)+1.2*A(59)+A(60)+A(62)+A(63)+0.4*A(64)+A(65)+A(73)+A(74)-A(75)& - &-A(76)+A(77)+A(78)-A(79)+A(80)+A(81)-2*A(84)-A(89)+A(92)-A(93)-A(98)+A(102)-A(104)+A(105)+A(106)+A(107)+2& - &*A(108)-A(110)+A(111)+A(112)+A(115)+A(116)-A(117)+A(118)+A(119)+A(121)+0.35*A(122)+0.13*A(123)+1.2*A(124)& - &+A(125)-A(126)+A(127)+A(128)+A(133)+0.9*A(135)-A(136)-A(140)+0.25*A(141)+A(142)+A(143)+A(144)+A(145)+0.28& - &*A(151)+A(152)-A(153)+A(154)+A(159)-A(161)+A(162)+0.3*A(164)-A(165)+A(172)+A(174)+0.47*A(175)+0.73*A(176)& - &-A(177)+0.47*A(178)+0.47*A(179)+0.14*A(181)+0.2*A(183)+A(185)-A(186)-A(190)+0.5*A(194)+0.28*A(195)-A(200)& - &+A(201)+A(208)+A(209)-A(210)+0.92*A(211)+A(212)+A(213)+A(214)-A(215)+A(216)+0.92*A(217)+A(218)+0.3*A(219)& - &+A(220)+A(222)+1.2*A(223)-A(224)+A(225)+A(226)+A(227)+0.37*A(228)+A(231)+A(232)+A(233)+0.8*A(234)-A(235)& - &+A(236)+A(237)-0.6*A(239)+A(240)-A(243)+0.75*A(244)+0.75*A(245)+A(246)-A(247)+A(248)+0.48*A(249)-A(252)& - &-A(254)+0.9*A(255)+0.65*A(256)-A(257)+A(258)-A(261)+A(263)-A(264)+0.73*A(267)-0.93*A(268)+0.17*A(269)-0.84& - &*A(271)+0.4*A(272)-0.67*A(274)+0.83*A(275)-A(277)+A(278)+0.8*A(279)-A(284)+A(285)+0.28*A(287)+0.38*A(289)& - &-A(290)+A(291)-A(293)+A(294)+0.63*A(295)+0.57*A(298)+0.57*A(301)+0.57*A(304)+0.57*A(307)+0.57*A(310)+0.5& - &*A(312)-A(313)+A(317)-A(318)+0.9*A(319)+A(322)-A(323)+0.8*A(324)+0.2*A(328)+0.5*A(332)-A(333) - Vdot(150) = 0.33*A(6)+A(8)-A(10)+0.4*A(50)+A(87)+A(88)-A(89)-A(90)-A(91)-A(92)-A(99)+A(101)+A(103)-A(105)-A(131)& - &+A(146)-A(150)-A(157)-A(170)-A(178)-A(189)+0.5*A(194)-A(212)-A(218)-A(221)-A(226)-A(237)-A(242)-A(245)& - &-A(297)-A(300)-A(303)-A(306)-A(309)-A(315)-A(326)-A(329)-A(336) - Vdot(151) = -A(3)-A(4)+0.89*A(10)-A(69)-A(70)+A(72)-A(76)-A(81)-A(87)-A(94)-A(123)+0.15*A(136)-A(151)-A(181)+0.15& - &*A(186)-A(195)-A(228)-A(249)-A(281)-A(298)-A(301)-A(304)-A(307)-A(310) - Vdot(152) = 0.13*A(15)+A(19)+A(27)+A(28)+0.33*A(35)+A(37)+0.67*A(40)+A(42)+A(43)+0.3*A(45)+A(47)+0.6*A(50)+A(53)+0.5& - &*A(54)+0.65*A(59)+A(131)+A(132)-2*A(134)-A(135)-A(136)-A(137)+0.5*A(139)-A(148)+A(149)+A(157)+A(158)+0.3& - &*A(164)+0.15*A(165)+A(166)-0.47*A(175)+0.26*A(176)+0.53*A(178)+0.53*A(179)+0.1*A(181)+A(185)+0.45*A(186)+2& - &*A(187)+A(188)+A(189)+0.2*A(190)+A(191)+0.28*A(195)-A(208)-A(213)-A(222)+0.08*A(228)-A(233)+0.06*A(298)& - &+0.06*A(301)+0.06*A(304)+0.06*A(307)+0.06*A(310)+0.65*A(328) - Vdot(153) = A(9)+0.11*A(10)+A(86)-A(90)-A(93)-A(94)-A(95)+2*A(96)-A(111)-A(119)-A(127)-A(137)-A(141)-A(154)-A(162)& - &-A(166)-A(172)-A(173)-A(179)-A(180)-A(188)-A(191)-A(201)-A(202)-A(211)-A(217)-A(225)-A(236)-A(240)-A(244)& - &-A(248)-A(253)-A(255)-A(258)-A(263)-A(265)-A(269)-A(272)-A(275)-A(278)-A(285)-A(291)-A(294)-A(314)-A(319)& - &-A(324)+0.5*A(335) - Vdot(154) = 0.33*A(40)+A(44)+0.5*A(182)+0.5*A(183)-A(184)-A(185)-A(186)-2*A(187)-A(188)-A(189)-A(197)+A(198) - Vdot(155) = A(26)+A(27)+A(29)+0.3*A(45)+0.4*A(50)+0.75*A(64)-2*A(108)-2*A(109)-A(110)-A(111)+0.7*A(113)+A(114)-A(125)& - &+2*A(134)-0.1*A(135)+0.45*A(136)+A(137)+A(138)+0.28*A(151)-A(152)-A(164)+A(175)-A(176)+A(184)-A(185)+A(208)& - &-A(209)+A(213)-A(214)+A(222)-A(223)+0.05*A(228)+A(233)-A(234)-A(246)+0.33*A(268)+0.83*A(269)+0.07*A(274)& - &+0.17*A(275)-A(312)-A(317)-A(322) - -END SUBROUTINE Fun - -! End of Fun function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE MOZART_T1_Function - diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Function.o b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Function.o deleted file mode 100644 index a57f8c78caf4f2108e98295a4b8d6943483f6283..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Function.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Global.f90 b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Global.f90 deleted file mode 100644 index 3b9be827cfc1eca9f4eac9aa657839ddff0f8400..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Global.f90 +++ /dev/null @@ -1,135 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Global Data Module File -! -! Generated by KPP-2.2.3 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 : MOZART_T1_Global.f90 -! Time : Wed Jan 27 13:13:50 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_T1_20754_BOXMOX -! Equation file : MOZART_T1.kpp -! Output root filename : MOZART_T1 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MOZART_T1_Global - - USE MOZART_T1_Parameters, ONLY: dp, NSPEC, NVAR, NFIX, NREACT, LU_NONZERO - PUBLIC - SAVE - - -! Declaration of global variables - -! C - Concentration of all species - REAL(kind=dp) :: C(NSPEC) -! VAR - Concentrations of variable species (global) - REAL(kind=dp) :: VAR(NVAR) -! FIX - Concentrations of fixed species (global) - REAL(kind=dp) :: FIX(NFIX) -! VAR, FIX are chunks of array C - EQUIVALENCE( C(1),VAR(1) ) - EQUIVALENCE( C(156),FIX(1) ) -! RCONST - Rate constants (global) - REAL(kind=dp) :: RCONST(NREACT) -! TIME - Current integration time - REAL(kind=dp) :: TIME -! SUN - Sunlight intensity between [0,1] - REAL(kind=dp) :: SUN -! TEMP - Temperature - REAL(kind=dp) :: TEMP -! RTOLS - (scalar) Relative tolerance - REAL(kind=dp) :: RTOLS -! TSTART - Integration start time - REAL(kind=dp) :: TSTART -! TEND - Integration end time - REAL(kind=dp) :: TEND -! DT - Integration step - REAL(kind=dp) :: DT -! ATOL - Absolute tolerance - REAL(kind=dp) :: ATOL(NVAR) -! RTOL - Relative tolerance - REAL(kind=dp) :: RTOL(NVAR) -! STEPMIN - Lower bound for integration step - REAL(kind=dp) :: STEPMIN -! STEPMAX - Upper bound for integration step - REAL(kind=dp) :: STEPMAX -! CFACTOR - Conversion factor for concentration units - REAL(kind=dp) :: CFACTOR - -! INLINED global variable declarations - - - ! BOXMOX global variables - - ! Parameters - INTEGER, PARAMETER :: max_species_boxmox = 10000 ! maximum number of species - ! read in - INTEGER, PARAMETER :: max_jhash_boxmox = 10000 ! maximum hash value of - ! photolysis rate labels - - ! Configuration - LOGICAL :: lverbose ! verbose output? - LOGICAL :: llibrary ! library version? - - - ! State definition - REAL(KIND=dp) :: pres ! pressure [Pa] - ! temperature variable temp [K] defined in KPP already - REAL(KIND=dp) :: dxdydz(3), dxdydz_old(3) ! box dimensions (x,y,z) - ! [m] - - ! Turbulent mixing - INTEGER :: iturb ! type of mixing - INTEGER, PARAMETER :: TURB_OPT_NONE = 0, & ! no turbulent mixing - TURB_OPT_SPECIFIED = 1, & ! using specified Kturb - TURB_OPT_VOLUME = 2, & ! using volume changes - TURB_OPT_TRACER = 3 ! using tracer conc. - REAL(KIND=dp) :: Kturb ! eddy diffusivity [m2 s-1] - - ! Photolysis rates - REAL(KIND=dp) :: jvalues(max_jhash_boxmox) ! Photolysis rate [s-1] - - ! Aerosol - REAL(KIND=dp) :: AER_R, & ! particle radius [m] - AER_SAD ! surface area density - ! [m^2 m^-3] - - ! Steady-state modeling - LOGICAL :: lfix_nox ! fix total NOx? - REAL(kind=dp) :: initial_total_nox ! total NOx to fix - - - - ! global variables used by special rate constants of this mechanism - - ! air/water concentration (molecules/cm3) - REAL(KIND=dp) :: c_m, c_h2o - ! relative humidity - REAL(KIND=dp) :: rh - - ! SOA formation - REAL(KIND=dp) :: nume, den - INTEGER, PARAMETER :: vbs_nbin = 4, vbs_nspec = 9, & - vbs_alk4 = 1, vbs_alk5 = 2, vbs_ole1 = 3, & - vbs_ole2 = 4, vbs_aro1 = 5, vbs_aro2 = 6, & - vbs_isop = 7, vbs_sesq = 8, vbs_terp = 9, & - vbs_c1 = 1, vbs_c10 = 2, vbs_c100 = 3, & - vbs_c1000 = 4 - - -! INLINED global variable declarations - - -END MODULE MOZART_T1_Global - diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Global.o b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Global.o deleted file mode 100644 index b63a7e7c9bc11b45e9a68f68438a9a8073da796c..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Global.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Initialize.f90 b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Initialize.f90 deleted file mode 100644 index 9c646c4d00384dd54afd9d01e4fd73d385206da5..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Initialize.f90 +++ /dev/null @@ -1,115 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Initialization File -! -! Generated by KPP-2.2.3 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 : MOZART_T1_Initialize.f90 -! Time : Wed Jan 27 13:13:50 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_T1_20754_BOXMOX -! Equation file : MOZART_T1.kpp -! Output root filename : MOZART_T1 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MOZART_T1_Initialize - - USE MOZART_T1_Parameters, ONLY: dp, NVAR, NFIX - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Initialize - function to initialize concentrations -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Initialize ( ) - - - USE MOZART_T1_Global - - USE MOZART_T1_Util - - INTEGER :: i - REAL(kind=dp) :: x - - CFACTOR = 1.000000e+00_dp - - x = (1.0E-9)*CFACTOR - DO i = 1, NVAR - VAR(i) = x - END DO - - x = (1.0E-9)*CFACTOR - DO i = 1, NFIX - FIX(i) = x - END DO - -! constant rate coefficients -! END constant rate coefficients - -! INLINED initializations - - - IF (.NOT. llibrary) THEN - - ! Write version number to VERSION file - CALL writeVersion() - - ! Initialization (time step, run length, etc.) happening - ! in namelist BOXMOX.nml. Read it! - CALL readConfig() - - ENDIF - - ! Check configuration values - CALL checkConfig() - - - - ! BOXMOX defaults for global variables - - ! Environment.csv - temp = 293.15 ! K - pres = 101325.0 ! Pa - dxdydz(:) = 1.0 ! m - - ! Aerosol.csv - AER_SAD = 0.0 ! m^2 m^-3 - AER_R = 1.0e-6 ! m - - ! Turbulent mixing - Kturb = 0.0 ! m2 s-1 - - - - ! relative humidity (not really used...) - rh = 0.5 - - -! End INLINED initializations - - -END SUBROUTINE Initialize - -! End of Initialize function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE MOZART_T1_Initialize - diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Initialize.o b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Initialize.o deleted file mode 100644 index f822f47b7b4089160e649b93753e1f65624ece45..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Initialize.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Integrator.f90 b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Integrator.f90 deleted file mode 100644 index 6242ec9f182aa2d35e19f2513cb16764c2af11f3..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Integrator.f90 +++ /dev/null @@ -1,1365 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Numerical Integrator (Time-Stepping) File -! -! Generated by KPP-2.2.3 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 : MOZART_T1_Integrator.f90 -! Time : Wed Jan 27 13:13:50 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_T1_20754_BOXMOX -! Equation file : MOZART_T1.kpp -! Output root filename : MOZART_T1 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! INTEGRATE - Integrator routine -! Arguments : -! TIN - Start Time for Integration -! TOUT - End Time for Integration -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! -! Rosenbrock - Implementation of several Rosenbrock methods: ! -! * Ros2 ! -! * Ros3 ! -! * Ros4 ! -! * Rodas3 ! -! * Rodas4 ! -! By default the code employs the KPP sparse linear algebra routines ! -! Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK) ! -! ! -! (C) Adrian Sandu, August 2004 ! -! Virginia Polytechnic Institute and State University ! -! Contact: sandu@cs.vt.edu ! -! Revised by Philipp Miehe and Adrian Sandu, May 2006 ! ! -! This implementation is part of KPP - the Kinetic PreProcessor ! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! - -MODULE MOZART_T1_Integrator - - USE MOZART_T1_Parameters, ONLY: NVAR, NFIX, NSPEC, LU_NONZERO - USE MOZART_T1_Global - IMPLICIT NONE - PUBLIC - SAVE - -!~~~> Statistics on the work performed by the Rosenbrock method - INTEGER, PARAMETER :: Nfun=1, Njac=2, Nstp=3, Nacc=4, & - Nrej=5, Ndec=6, Nsol=7, Nsng=8, & - Ntexit=1, Nhexit=2, Nhnew = 3 - -CONTAINS - -SUBROUTINE INTEGRATE( TIN, TOUT, & - ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U, IERR_U ) - - IMPLICIT NONE - - REAL(kind=dp), INTENT(IN) :: TIN ! Start Time - REAL(kind=dp), INTENT(IN) :: TOUT ! End Time - ! Optional input parameters and statistics - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - REAL(kind=dp), INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - REAL(kind=dp), INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: IERR_U - - REAL(kind=dp) :: RCNTRL(20), RSTATUS(20) - INTEGER :: ICNTRL(20), ISTATUS(20), IERR - - INTEGER, SAVE :: Ntotal = 0 - - ICNTRL(:) = 0 - RCNTRL(:) = 0.0_dp - ISTATUS(:) = 0 - RSTATUS(:) = 0.0_dp - - !~~~> fine-tune the integrator: - ICNTRL(1) = 0 ! 0 - non-autonomous, 1 - autonomous - ICNTRL(2) = 0 ! 0 - vector tolerances, 1 - scalars - - ! If optional parameters are given, and if they are >0, - ! then they overwrite default settings. - IF (PRESENT(ICNTRL_U)) THEN - WHERE(ICNTRL_U(:) > 0) ICNTRL(:) = ICNTRL_U(:) - END IF - IF (PRESENT(RCNTRL_U)) THEN - WHERE(RCNTRL_U(:) > 0) RCNTRL(:) = RCNTRL_U(:) - END IF - - - CALL Rosenbrock(NVAR,VAR,TIN,TOUT, & - ATOL,RTOL, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) - - !~~~> Debug option: show no of steps - ! Ntotal = Ntotal + ISTATUS(Nstp) - ! PRINT*,'NSTEPS=',ISTATUS(Nstp),' (',Ntotal,')',' O3=', VAR(ind_O3) - - STEPMIN = RSTATUS(Nhexit) - ! if optional parameters are given for output they - ! are updated with the return information - IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(:) - IF (PRESENT(RSTATUS_U)) RSTATUS_U(:) = RSTATUS(:) - IF (PRESENT(IERR_U)) IERR_U = IERR - -END SUBROUTINE INTEGRATE - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE Rosenbrock(N,Y,Tstart,Tend, & - AbsTol,RelTol, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Solves the system y'=F(t,y) using a Rosenbrock method defined by: -! -! G = 1/(H*gamma(1)) - Jac(t0,Y0) -! T_i = t0 + Alpha(i)*H -! Y_i = Y0 + \sum_{j=1}^{i-1} A(i,j)*K_j -! G * K_i = Fun( T_i, Y_i ) + \sum_{j=1}^S C(i,j)/H * K_j + -! gamma(i)*dF/dT(t0, Y0) -! Y1 = Y0 + \sum_{j=1}^S M(j)*K_j -! -! For details on Rosenbrock methods and their implementation consult: -! E. Hairer and G. Wanner -! "Solving ODEs II. Stiff and differential-algebraic problems". -! Springer series in computational mathematics, Springer-Verlag, 1996. -! The codes contained in the book inspired this implementation. -! -! (C) Adrian Sandu, August 2004 -! Virginia Polytechnic Institute and State University -! Contact: sandu@cs.vt.edu -! Revised by Philipp Miehe and Adrian Sandu, May 2006 -! This implementation is part of KPP - the Kinetic PreProcessor -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT ARGUMENTS: -! -!- Y(N) = vector of initial conditions (at T=Tstart) -!- [Tstart,Tend] = time range of integration -! (if Tstart>Tend the integration is performed backwards in time) -!- RelTol, AbsTol = user precribed accuracy -!- SUBROUTINE Fun( T, Y, Ydot ) = ODE function, -! returns Ydot = Y' = F(T,Y) -!- SUBROUTINE Jac( T, Y, Jcb ) = Jacobian of the ODE function, -! returns Jcb = dFun/dY -!- ICNTRL(1:20) = integer inputs parameters -!- RCNTRL(1:20) = real inputs parameters -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT ARGUMENTS: -! -!- Y(N) -> vector of final states (at T->Tend) -!- ISTATUS(1:20) -> integer output parameters -!- RSTATUS(1:20) -> real output parameters -!- IERR -> job status upon return -! success (positive value) or -! failure (negative value) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT PARAMETERS: -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -! ICNTRL(1) = 1: F = F(y) Independent of T (AUTONOMOUS) -! = 0: F = F(t,y) Depends on T (NON-AUTONOMOUS) -! -! ICNTRL(2) = 0: AbsTol, RelTol are N-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ICNTRL(3) -> selection of a particular Rosenbrock method -! = 0 : Rodas3 (default) -! = 1 : Ros2 -! = 2 : Ros3 -! = 3 : Ros4 -! = 4 : Rodas3 -! = 5 : Rodas4 -! -! ICNTRL(4) -> maximum number of integration steps -! For ICNTRL(4)=0) the default value of 100000 is used -! -! RCNTRL(1) -> Hmin, lower bound for the integration step size -! It is strongly recommended to keep Hmin = ZERO -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! RCNTRL(3) -> Hstart, starting value for the integration step size -! -! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! RCNTRL(5) -> FacMax, upper bound on step increase factor (default=6) -! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! -! OUTPUT ARGUMENTS: -! ----------------- -! -! T -> T value for which the solution has been computed -! (after successful return T=Tend). -! -! Y(N) -> Numerical solution at T -! -! IDID -> Reports on successfulness upon return: -! = 1 for success -! < 0 for error (value equals error code) -! -! ISTATUS(1) -> No. of function calls -! ISTATUS(2) -> No. of jacobian calls -! ISTATUS(3) -> No. of steps -! ISTATUS(4) -> No. of accepted steps -! ISTATUS(5) -> No. of rejected steps (except at very beginning) -! ISTATUS(6) -> No. of LU decompositions -! ISTATUS(7) -> No. of forward/backward substitutions -! ISTATUS(8) -> No. of singular matrix decompositions -! -! RSTATUS(1) -> Texit, the time corresponding to the -! computed Y upon return -! RSTATUS(2) -> Hexit, last accepted step before exit -! RSTATUS(3) -> Hnew, last predicted step (not yet taken) -! For multiple restarts, use Hnew as Hstart -! in the subsequent run -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MOZART_T1_Parameters - USE MOZART_T1_LinearAlgebra - IMPLICIT NONE - -!~~~> Arguments - INTEGER, INTENT(IN) :: N - REAL(kind=dp), INTENT(INOUT) :: Y(N) - REAL(kind=dp), INTENT(IN) :: Tstart,Tend - REAL(kind=dp), INTENT(IN) :: AbsTol(N),RelTol(N) - INTEGER, INTENT(IN) :: ICNTRL(20) - REAL(kind=dp), INTENT(IN) :: RCNTRL(20) - INTEGER, INTENT(INOUT) :: ISTATUS(20) - REAL(kind=dp), INTENT(INOUT) :: RSTATUS(20) - INTEGER, INTENT(OUT) :: IERR -!~~~> Parameters of the Rosenbrock method, up to 6 stages - INTEGER :: ros_S, rosMethod - INTEGER, PARAMETER :: RS2=1, RS3=2, RS4=3, RD3=4, RD4=5, RG3=6 - REAL(kind=dp) :: ros_A(15), ros_C(15), ros_M(6), ros_E(6), & - ros_Alpha(6), ros_Gamma(6), ros_ELO - LOGICAL :: ros_NewF(6) - CHARACTER(LEN=12) :: ros_Name -!~~~> Local variables - REAL(kind=dp) :: Roundoff, FacMin, FacMax, FacRej, FacSafe - REAL(kind=dp) :: Hmin, Hmax, Hstart - REAL(kind=dp) :: Texit - INTEGER :: i, UplimTol, Max_no_steps - LOGICAL :: Autonomous, VectorTol -!~~~> Parameters - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp - REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp - -!~~~> Initialize statistics - ISTATUS(1:8) = 0 - RSTATUS(1:3) = ZERO - -!~~~> Autonomous or time dependent ODE. Default is time dependent. - Autonomous = .NOT.(ICNTRL(1) == 0) - -!~~~> For Scalar tolerances (ICNTRL(2).NE.0) the code uses AbsTol(1) and RelTol(1) -! For Vector tolerances (ICNTRL(2) == 0) the code uses AbsTol(1:N) and RelTol(1:N) - IF (ICNTRL(2) == 0) THEN - VectorTol = .TRUE. - UplimTol = N - ELSE - VectorTol = .FALSE. - UplimTol = 1 - END IF - -!~~~> Initialize the particular Rosenbrock method selected - SELECT CASE (ICNTRL(3)) - CASE (1) - CALL Ros2 - CASE (2) - CALL Ros3 - CASE (3) - CALL Ros4 - CASE (0,4) - CALL Rodas3 - CASE (5) - CALL Rodas4 - CASE (6) - CALL Rang3 - CASE DEFAULT - PRINT * , 'Unknown Rosenbrock method: ICNTRL(3)=',ICNTRL(3) - CALL ros_ErrorMsg(-2,Tstart,ZERO,IERR) - RETURN - END SELECT - -!~~~> The maximum number of steps admitted - IF (ICNTRL(4) == 0) THEN - Max_no_steps = 200000 - ELSEIF (ICNTRL(4) > 0) THEN - Max_no_steps=ICNTRL(4) - ELSE - PRINT * ,'User-selected max no. of steps: ICNTRL(4)=',ICNTRL(4) - CALL ros_ErrorMsg(-1,Tstart,ZERO,IERR) - RETURN - END IF - -!~~~> Unit roundoff (1+Roundoff>1) - Roundoff = WLAMCH('E') - -!~~~> Lower bound on the step size: (positive value) - IF (RCNTRL(1) == ZERO) THEN - Hmin = ZERO - ELSEIF (RCNTRL(1) > ZERO) THEN - Hmin = RCNTRL(1) - ELSE - PRINT * , 'User-selected Hmin: RCNTRL(1)=', RCNTRL(1) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Upper bound on the step size: (positive value) - IF (RCNTRL(2) == ZERO) THEN - Hmax = ABS(Tend-Tstart) - ELSEIF (RCNTRL(2) > ZERO) THEN - Hmax = MIN(ABS(RCNTRL(2)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hmax: RCNTRL(2)=', RCNTRL(2) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Starting step size: (positive value) - IF (RCNTRL(3) == ZERO) THEN - Hstart = MAX(Hmin,DeltaMin) - ELSEIF (RCNTRL(3) > ZERO) THEN - Hstart = MIN(ABS(RCNTRL(3)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hstart: RCNTRL(3)=', RCNTRL(3) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Step size can be changed s.t. FacMin < Hnew/Hold < FacMax - IF (RCNTRL(4) == ZERO) THEN - FacMin = 0.2_dp - ELSEIF (RCNTRL(4) > ZERO) THEN - FacMin = RCNTRL(4) - ELSE - PRINT * , 'User-selected FacMin: RCNTRL(4)=', RCNTRL(4) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF - IF (RCNTRL(5) == ZERO) THEN - FacMax = 6.0_dp - ELSEIF (RCNTRL(5) > ZERO) THEN - FacMax = RCNTRL(5) - ELSE - PRINT * , 'User-selected FacMax: RCNTRL(5)=', RCNTRL(5) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacRej: Factor to decrease step after 2 succesive rejections - IF (RCNTRL(6) == ZERO) THEN - FacRej = 0.1_dp - ELSEIF (RCNTRL(6) > ZERO) THEN - FacRej = RCNTRL(6) - ELSE - PRINT * , 'User-selected FacRej: RCNTRL(6)=', RCNTRL(6) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacSafe: Safety Factor in the computation of new step size - IF (RCNTRL(7) == ZERO) THEN - FacSafe = 0.9_dp - ELSEIF (RCNTRL(7) > ZERO) THEN - FacSafe = RCNTRL(7) - ELSE - PRINT * , 'User-selected FacSafe: RCNTRL(7)=', RCNTRL(7) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Check if tolerances are reasonable - DO i=1,UplimTol - IF ( (AbsTol(i) <= ZERO) .OR. (RelTol(i) <= 10.0_dp*Roundoff) & - .OR. (RelTol(i) >= 1.0_dp) ) THEN - PRINT * , ' AbsTol(',i,') = ',AbsTol(i) - PRINT * , ' RelTol(',i,') = ',RelTol(i) - CALL ros_ErrorMsg(-5,Tstart,ZERO,IERR) - RETURN - END IF - END DO - - -!~~~> CALL Rosenbrock method - CALL ros_Integrator(Y, Tstart, Tend, Texit, & - AbsTol, RelTol, & -! Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -! Error indicator - IERR) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -CONTAINS ! SUBROUTINES internal to Rosenbrock -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_ErrorMsg(Code,T,H,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - REAL(kind=dp), INTENT(IN) :: T, H - INTEGER, INTENT(IN) :: Code - INTEGER, INTENT(OUT) :: IERR - - IERR = Code - PRINT * , & - 'Forced exit from Rosenbrock due to the following error:' - - SELECT CASE (Code) - CASE (-1) - PRINT * , '--> Improper value for maximal no of steps' - CASE (-2) - PRINT * , '--> Selected Rosenbrock method not implemented' - CASE (-3) - PRINT * , '--> Hmin/Hmax/Hstart must be positive' - CASE (-4) - PRINT * , '--> FacMin/FacMax/FacRej must be positive' - CASE (-5) - PRINT * , '--> Improper tolerance values' - CASE (-6) - PRINT * , '--> No of steps exceeds maximum bound' - CASE (-7) - PRINT * , '--> Step size too small: T + 10*H = T', & - ' or H < Roundoff' - CASE (-8) - PRINT * , '--> Matrix is repeatedly singular' - CASE DEFAULT - PRINT *, 'Unknown Error code: ', Code - END SELECT - - PRINT *, "T=", T, "and H=", H - - END SUBROUTINE ros_ErrorMsg - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Integrator (Y, Tstart, Tend, T, & - AbsTol, RelTol, & -!~~~> Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -!~~~> Error indicator - IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the implementation of a generic Rosenbrock method -! defined by ros_S (no of stages) -! and its coefficients ros_{A,C,M,E,Alpha,Gamma} -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - -!~~~> Input: the initial condition at Tstart; Output: the solution at T - REAL(kind=dp), INTENT(INOUT) :: Y(N) -!~~~> Input: integration interval - REAL(kind=dp), INTENT(IN) :: Tstart,Tend -!~~~> Output: time at which the solution is returned (T=Tend if success) - REAL(kind=dp), INTENT(OUT) :: T -!~~~> Input: tolerances - REAL(kind=dp), INTENT(IN) :: AbsTol(N), RelTol(N) -!~~~> Input: integration parameters - LOGICAL, INTENT(IN) :: Autonomous, VectorTol - REAL(kind=dp), INTENT(IN) :: Hstart, Hmin, Hmax - INTEGER, INTENT(IN) :: Max_no_steps - REAL(kind=dp), INTENT(IN) :: Roundoff, FacMin, FacMax, FacRej, FacSafe -!~~~> Output: Error indicator - INTEGER, INTENT(OUT) :: IERR -! ~~~~ Local variables - REAL(kind=dp) :: Ynew(N), Fcn0(N), Fcn(N) - REAL(kind=dp) :: K(N*ros_S), dFdT(N) -#ifdef FULL_ALGEBRA - REAL(kind=dp) :: Jac0(N,N), Ghimj(N,N) -#else - REAL(kind=dp) :: Jac0(LU_NONZERO), Ghimj(LU_NONZERO) -#endif - REAL(kind=dp) :: H, Hnew, HC, HG, Fac, Tau - REAL(kind=dp) :: Err, Yerr(N) - INTEGER :: Pivot(N), Direction, ioffset, j, istage - LOGICAL :: RejectLastH, RejectMoreH, Singular -!~~~> Local parameters - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp - REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp -!~~~> Locally called functions -! REAL(kind=dp) WLAMCH -! EXTERNAL WLAMCH -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~> Initial preparations - T = Tstart - RSTATUS(Nhexit) = ZERO - H = MIN( MAX(ABS(Hmin),ABS(Hstart)) , ABS(Hmax) ) - IF (ABS(H) <= 10.0_dp*Roundoff) H = DeltaMin - - IF (Tend >= Tstart) THEN - Direction = +1 - ELSE - Direction = -1 - END IF - H = Direction*H - - RejectLastH=.FALSE. - RejectMoreH=.FALSE. - -!~~~> Time loop begins below - -TimeLoop: DO WHILE ( (Direction > 0).AND.((T-Tend)+Roundoff <= ZERO) & - .OR. (Direction < 0).AND.((Tend-T)+Roundoff <= ZERO) ) - - IF ( ISTATUS(Nstp) > Max_no_steps ) THEN ! Too many steps - CALL ros_ErrorMsg(-6,T,H,IERR) - RETURN - END IF - IF ( ((T+0.1_dp*H) == T).OR.(H <= Roundoff) ) THEN ! Step size too small - CALL ros_ErrorMsg(-7,T,H,IERR) - RETURN - END IF - -!~~~> Limit H if necessary to avoid going beyond Tend - H = MIN(H,ABS(Tend-T)) - -!~~~> Compute the function at current time - CALL FunTemplate(T,Y,Fcn0) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - -!~~~> Compute the function derivative with respect to T - IF (.NOT.Autonomous) THEN - CALL ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) - END IF - -!~~~> Compute the Jacobian at current time - CALL JacTemplate(T,Y,Jac0) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - -!~~~> Repeat step calculation until current step accepted -UntilAccepted: DO - - CALL ros_PrepareMatrix(H,Direction,ros_Gamma(1), & - Jac0,Ghimj,Pivot,Singular) - IF (Singular) THEN ! More than 5 consecutive failed decompositions - CALL ros_ErrorMsg(-8,T,H,IERR) - RETURN - END IF - -!~~~> Compute the stages -Stage: DO istage = 1, ros_S - - ! Current istage offset. Current istage vector is K(ioffset+1:ioffset+N) - ioffset = N*(istage-1) - - ! For the 1st istage the function has been computed previously - IF ( istage == 1 ) THEN - !slim: CALL WCOPY(N,Fcn0,1,Fcn,1) - Fcn(1:N) = Fcn0(1:N) - ! istage>1 and a new function evaluation is needed at the current istage - ELSEIF ( ros_NewF(istage) ) THEN - !slim: CALL WCOPY(N,Y,1,Ynew,1) - Ynew(1:N) = Y(1:N) - DO j = 1, istage-1 - CALL WAXPY(N,ros_A((istage-1)*(istage-2)/2+j), & - K(N*(j-1)+1),1,Ynew,1) - END DO - Tau = T + ros_Alpha(istage)*Direction*H - CALL FunTemplate(Tau,Ynew,Fcn) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - END IF ! if istage == 1 elseif ros_NewF(istage) - !slim: CALL WCOPY(N,Fcn,1,K(ioffset+1),1) - K(ioffset+1:ioffset+N) = Fcn(1:N) - DO j = 1, istage-1 - HC = ros_C((istage-1)*(istage-2)/2+j)/(Direction*H) - CALL WAXPY(N,HC,K(N*(j-1)+1),1,K(ioffset+1),1) - END DO - IF ((.NOT. Autonomous).AND.(ros_Gamma(istage).NE.ZERO)) THEN - HG = Direction*H*ros_Gamma(istage) - CALL WAXPY(N,HG,dFdT,1,K(ioffset+1),1) - END IF - CALL ros_Solve(Ghimj, Pivot, K(ioffset+1)) - - END DO Stage - - -!~~~> Compute the new solution - !slim: CALL WCOPY(N,Y,1,Ynew,1) - Ynew(1:N) = Y(1:N) - DO j=1,ros_S - CALL WAXPY(N,ros_M(j),K(N*(j-1)+1),1,Ynew,1) - END DO - -!~~~> Compute the error estimation - !slim: CALL WSCAL(N,ZERO,Yerr,1) - Yerr(1:N) = ZERO - DO j=1,ros_S - CALL WAXPY(N,ros_E(j),K(N*(j-1)+1),1,Yerr,1) - END DO - Err = ros_ErrorNorm ( Y, Ynew, Yerr, AbsTol, RelTol, VectorTol ) - -!~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax - Fac = MIN(FacMax,MAX(FacMin,FacSafe/Err**(ONE/ros_ELO))) - Hnew = H*Fac - -!~~~> Check the error magnitude and adjust step size - ISTATUS(Nstp) = ISTATUS(Nstp) + 1 - IF ( (Err <= ONE).OR.(H <= Hmin) ) THEN !~~~> Accept step - ISTATUS(Nacc) = ISTATUS(Nacc) + 1 - !slim: CALL WCOPY(N,Ynew,1,Y,1) - Y(1:N) = Ynew(1:N) - T = T + Direction*H - Hnew = MAX(Hmin,MIN(Hnew,Hmax)) - IF (RejectLastH) THEN ! No step size increase after a rejected step - Hnew = MIN(Hnew,H) - END IF - RSTATUS(Nhexit) = H - RSTATUS(Nhnew) = Hnew - RSTATUS(Ntexit) = T - RejectLastH = .FALSE. - RejectMoreH = .FALSE. - H = Hnew - EXIT UntilAccepted ! EXIT THE LOOP: WHILE STEP NOT ACCEPTED - ELSE !~~~> Reject step - IF (RejectMoreH) THEN - Hnew = H*FacRej - END IF - RejectMoreH = RejectLastH - RejectLastH = .TRUE. - H = Hnew - IF (ISTATUS(Nacc) >= 1) ISTATUS(Nrej) = ISTATUS(Nrej) + 1 - END IF ! Err <= 1 - - END DO UntilAccepted - - END DO TimeLoop - -!~~~> Succesful exit - IERR = 1 !~~~> The integration was successful - - END SUBROUTINE ros_Integrator - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - REAL(kind=dp) FUNCTION ros_ErrorNorm ( Y, Ynew, Yerr, & - AbsTol, RelTol, VectorTol ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Computes the "scaled norm" of the error vector Yerr -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -! Input arguments - REAL(kind=dp), INTENT(IN) :: Y(N), Ynew(N), & - Yerr(N), AbsTol(N), RelTol(N) - LOGICAL, INTENT(IN) :: VectorTol -! Local variables - REAL(kind=dp) :: Err, Scale, Ymax - INTEGER :: i - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp - - Err = ZERO - DO i=1,N - Ymax = MAX(ABS(Y(i)),ABS(Ynew(i))) - IF (VectorTol) THEN - Scale = AbsTol(i)+RelTol(i)*Ymax - ELSE - Scale = AbsTol(1)+RelTol(1)*Ymax - END IF - Err = Err+(Yerr(i)/Scale)**2 - END DO - Err = SQRT(Err/N) - - ros_ErrorNorm = MAX(Err,1.0d-10) - - END FUNCTION ros_ErrorNorm - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> The time partial derivative of the function by finite differences -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -!~~~> Input arguments - REAL(kind=dp), INTENT(IN) :: T, Roundoff, Y(N), Fcn0(N) -!~~~> Output arguments - REAL(kind=dp), INTENT(OUT) :: dFdT(N) -!~~~> Local variables - REAL(kind=dp) :: Delta - REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, DeltaMin = 1.0E-6_dp - - Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T)) - CALL FunTemplate(T+Delta,Y,dFdT) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - CALL WAXPY(N,(-ONE),Fcn0,1,dFdT,1) - CALL WSCAL(N,(ONE/Delta),dFdT,1) - - END SUBROUTINE ros_FunTimeDerivative - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_PrepareMatrix ( H, Direction, gam, & - Jac0, Ghimj, Pivot, Singular ) -! --- --- --- --- --- --- --- --- --- --- --- --- --- -! Prepares the LHS matrix for stage calculations -! 1. Construct Ghimj = 1/(H*ham) - Jac0 -! "(Gamma H) Inverse Minus Jacobian" -! 2. Repeat LU decomposition of Ghimj until successful. -! -half the step size if LU decomposition fails and retry -! -exit after 5 consecutive fails -! --- --- --- --- --- --- --- --- --- --- --- --- --- - IMPLICIT NONE - -!~~~> Input arguments -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(IN) :: Jac0(N,N) -#else - REAL(kind=dp), INTENT(IN) :: Jac0(LU_NONZERO) -#endif - REAL(kind=dp), INTENT(IN) :: gam - INTEGER, INTENT(IN) :: Direction -!~~~> Output arguments -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(OUT) :: Ghimj(N,N) -#else - REAL(kind=dp), INTENT(OUT) :: Ghimj(LU_NONZERO) -#endif - LOGICAL, INTENT(OUT) :: Singular - INTEGER, INTENT(OUT) :: Pivot(N) -!~~~> Inout arguments - REAL(kind=dp), INTENT(INOUT) :: H ! step size is decreased when LU fails -!~~~> Local variables - INTEGER :: i, ISING, Nconsecutive - REAL(kind=dp) :: ghinv - REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, HALF = 0.5_dp - - Nconsecutive = 0 - Singular = .TRUE. - - DO WHILE (Singular) - -!~~~> Construct Ghimj = 1/(H*gam) - Jac0 -#ifdef FULL_ALGEBRA - !slim: CALL WCOPY(N*N,Jac0,1,Ghimj,1) - !slim: CALL WSCAL(N*N,(-ONE),Ghimj,1) - Ghimj = -Jac0 - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(i,i) = Ghimj(i,i)+ghinv - END DO -#else - !slim: CALL WCOPY(LU_NONZERO,Jac0,1,Ghimj,1) - !slim: CALL WSCAL(LU_NONZERO,(-ONE),Ghimj,1) - Ghimj(1:LU_NONZERO) = -Jac0(1:LU_NONZERO) - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(LU_DIAG(i)) = Ghimj(LU_DIAG(i))+ghinv - END DO -#endif -!~~~> Compute LU decomposition - CALL ros_Decomp( Ghimj, Pivot, ISING ) - IF (ISING == 0) THEN -!~~~> If successful done - Singular = .FALSE. - ELSE ! ISING .ne. 0 -!~~~> If unsuccessful half the step size; if 5 consecutive fails then return - ISTATUS(Nsng) = ISTATUS(Nsng) + 1 - Nconsecutive = Nconsecutive+1 - Singular = .TRUE. - PRINT*,'Warning: LU Decomposition returned ISING = ',ISING - IF (Nconsecutive <= 5) THEN ! Less than 5 consecutive failed decompositions - H = H*HALF - ELSE ! More than 5 consecutive failed decompositions - RETURN - END IF ! Nconsecutive - END IF ! ISING - - END DO ! WHILE Singular - - END SUBROUTINE ros_PrepareMatrix - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Decomp( A, Pivot, ISING ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the LU decomposition -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Inout variables -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(INOUT) :: A(N,N) -#else - REAL(kind=dp), INTENT(INOUT) :: A(LU_NONZERO) -#endif -!~~~> Output variables - INTEGER, INTENT(OUT) :: Pivot(N), ISING - -#ifdef FULL_ALGEBRA - CALL DGETRF( N, N, A, N, Pivot, ISING ) -#else - CALL KppDecomp ( A, ISING ) - Pivot(1) = 1 -#endif - ISTATUS(Ndec) = ISTATUS(Ndec) + 1 - - END SUBROUTINE ros_Decomp - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Solve( A, Pivot, b ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the forward/backward substitution (using pre-computed LU decomposition) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Input variables -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(IN) :: A(N,N) - INTEGER :: ISING -#else - REAL(kind=dp), INTENT(IN) :: A(LU_NONZERO) -#endif - INTEGER, INTENT(IN) :: Pivot(N) -!~~~> InOut variables - REAL(kind=dp), INTENT(INOUT) :: b(N) - -#ifdef FULL_ALGEBRA - CALL DGETRS( 'N', N , 1, A, N, Pivot, b, N, ISING ) - IF ( Info < 0 ) THEN - PRINT*,"Error in DGETRS. ISING=",ISING - END IF -#else - CALL KppSolve( A, b ) -#endif - - ISTATUS(Nsol) = ISTATUS(Nsol) + 1 - - END SUBROUTINE ros_Solve - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 2 stages, order 2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - DOUBLE PRECISION g - - g = 1.0_dp + 1.0_dp/SQRT(2.0_dp) - rosMethod = RS2 -!~~~> Name of the method - ros_Name = 'ROS-2' -!~~~> Number of stages - ros_S = 2 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = (1.0_dp)/g - ros_C(1) = (-2.0_dp)/g -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1)= (3.0_dp)/(2.0_dp*g) - ros_M(2)= (1.0_dp)/(2.0_dp*g) -! E_i = Coefficients for error estimator - ros_E(1) = 1.0_dp/(2.0_dp*g) - ros_E(2) = 1.0_dp/(2.0_dp*g) -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus one - ros_ELO = 2.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 1.0_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = g - ros_Gamma(2) =-g - - END SUBROUTINE Ros2 - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 3 stages, order 3, 2 function evaluations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - rosMethod = RS3 -!~~~> Name of the method - ros_Name = 'ROS-3' -!~~~> Number of stages - ros_S = 3 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1)= 1.0_dp - ros_A(2)= 1.0_dp - ros_A(3)= 0.0_dp - - ros_C(1) = -0.10156171083877702091975600115545E+01_dp - ros_C(2) = 0.40759956452537699824805835358067E+01_dp - ros_C(3) = 0.92076794298330791242156818474003E+01_dp -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.1E+01_dp - ros_M(2) = 0.61697947043828245592553615689730E+01_dp - ros_M(3) = -0.42772256543218573326238373806514_dp -! E_i = Coefficients for error estimator - ros_E(1) = 0.5_dp - ros_E(2) = -0.29079558716805469821718236208017E+01_dp - ros_E(3) = 0.22354069897811569627360909276199_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1)= 0.0_dp - ros_Alpha(2)= 0.43586652150845899941601945119356_dp - ros_Alpha(3)= 0.43586652150845899941601945119356_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1)= 0.43586652150845899941601945119356_dp - ros_Gamma(2)= 0.24291996454816804366592249683314_dp - ros_Gamma(3)= 0.21851380027664058511513169485832E+01_dp - - END SUBROUTINE Ros3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! L-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 4 STAGES -! L-STABLE EMBEDDED ROSENBROCK METHOD OF ORDER 3 -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1990) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RS4 -!~~~> Name of the method - ros_Name = 'ROS-4' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.2000000000000000E+01_dp - ros_A(2) = 0.1867943637803922E+01_dp - ros_A(3) = 0.2344449711399156_dp - ros_A(4) = ros_A(2) - ros_A(5) = ros_A(3) - ros_A(6) = 0.0_dp - - ros_C(1) =-0.7137615036412310E+01_dp - ros_C(2) = 0.2580708087951457E+01_dp - ros_C(3) = 0.6515950076447975_dp - ros_C(4) =-0.2137148994382534E+01_dp - ros_C(5) =-0.3214669691237626_dp - ros_C(6) =-0.6949742501781779_dp -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.2255570073418735E+01_dp - ros_M(2) = 0.2870493262186792_dp - ros_M(3) = 0.4353179431840180_dp - ros_M(4) = 0.1093502252409163E+01_dp -!~~~> E_i = Coefficients for error estimator - ros_E(1) =-0.2815431932141155_dp - ros_E(2) =-0.7276199124938920E-01_dp - ros_E(3) =-0.1082196201495311_dp - ros_E(4) =-0.1093502252409163E+01_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 0.1145640000000000E+01_dp - ros_Alpha(3) = 0.6552168638155900_dp - ros_Alpha(4) = ros_Alpha(3) -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5728200000000000_dp - ros_Gamma(2) =-0.1769193891319233E+01_dp - ros_Gamma(3) = 0.7592633437920482_dp - ros_Gamma(4) =-0.1049021087100450_dp - - END SUBROUTINE Ros4 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- A STIFFLY-STABLE METHOD, 4 stages, order 3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD3 -!~~~> Name of the method - ros_Name = 'RODAS-3' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.0_dp - ros_A(2) = 2.0_dp - ros_A(3) = 0.0_dp - ros_A(4) = 2.0_dp - ros_A(5) = 0.0_dp - ros_A(6) = 1.0_dp - - ros_C(1) = 4.0_dp - ros_C(2) = 1.0_dp - ros_C(3) =-1.0_dp - ros_C(4) = 1.0_dp - ros_C(5) =-1.0_dp - ros_C(6) =-(8.0_dp/3.0_dp) - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .FALSE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 2.0_dp - ros_M(2) = 0.0_dp - ros_M(3) = 1.0_dp - ros_M(4) = 1.0_dp -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0_dp - ros_E(2) = 0.0_dp - ros_E(3) = 0.0_dp - ros_E(4) = 1.0_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 0.0_dp - ros_Alpha(3) = 1.0_dp - ros_Alpha(4) = 1.0_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5_dp - ros_Gamma(2) = 1.5_dp - ros_Gamma(3) = 0.0_dp - ros_Gamma(4) = 0.0_dp - - END SUBROUTINE Rodas3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 6 STAGES -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1996) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD4 -!~~~> Name of the method - ros_Name = 'RODAS-4' -!~~~> Number of stages - ros_S = 6 - -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.000_dp - ros_Alpha(2) = 0.386_dp - ros_Alpha(3) = 0.210_dp - ros_Alpha(4) = 0.630_dp - ros_Alpha(5) = 1.000_dp - ros_Alpha(6) = 1.000_dp - -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.2500000000000000_dp - ros_Gamma(2) =-0.1043000000000000_dp - ros_Gamma(3) = 0.1035000000000000_dp - ros_Gamma(4) =-0.3620000000000023E-01_dp - ros_Gamma(5) = 0.0_dp - ros_Gamma(6) = 0.0_dp - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.1544000000000000E+01_dp - ros_A(2) = 0.9466785280815826_dp - ros_A(3) = 0.2557011698983284_dp - ros_A(4) = 0.3314825187068521E+01_dp - ros_A(5) = 0.2896124015972201E+01_dp - ros_A(6) = 0.9986419139977817_dp - ros_A(7) = 0.1221224509226641E+01_dp - ros_A(8) = 0.6019134481288629E+01_dp - ros_A(9) = 0.1253708332932087E+02_dp - ros_A(10) =-0.6878860361058950_dp - ros_A(11) = ros_A(7) - ros_A(12) = ros_A(8) - ros_A(13) = ros_A(9) - ros_A(14) = ros_A(10) - ros_A(15) = 1.0_dp - - ros_C(1) =-0.5668800000000000E+01_dp - ros_C(2) =-0.2430093356833875E+01_dp - ros_C(3) =-0.2063599157091915_dp - ros_C(4) =-0.1073529058151375_dp - ros_C(5) =-0.9594562251023355E+01_dp - ros_C(6) =-0.2047028614809616E+02_dp - ros_C(7) = 0.7496443313967647E+01_dp - ros_C(8) =-0.1024680431464352E+02_dp - ros_C(9) =-0.3399990352819905E+02_dp - ros_C(10) = 0.1170890893206160E+02_dp - ros_C(11) = 0.8083246795921522E+01_dp - ros_C(12) =-0.7981132988064893E+01_dp - ros_C(13) =-0.3152159432874371E+02_dp - ros_C(14) = 0.1631930543123136E+02_dp - ros_C(15) =-0.6058818238834054E+01_dp - -!~~~> M_i = Coefficients for new step solution - ros_M(1) = ros_A(7) - ros_M(2) = ros_A(8) - ros_M(3) = ros_A(9) - ros_M(4) = ros_A(10) - ros_M(5) = 1.0_dp - ros_M(6) = 1.0_dp - -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0_dp - ros_E(2) = 0.0_dp - ros_E(3) = 0.0_dp - ros_E(4) = 0.0_dp - ros_E(5) = 0.0_dp - ros_E(6) = 1.0_dp - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - ros_NewF(5) = .TRUE. - ros_NewF(6) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0_dp - - END SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rang3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE W METHOD OF ORDER 3, WITH 4 STAGES -! -! J. RANG and L. ANGERMANN -! NEW ROSENBROCK W-METHODS OF ORDER 3 -! FOR PARTIAL DIFFERENTIAL ALGEBRAIC -! EQUATIONS OF INDEX 1 -! BIT Numerical Mathematics (2005) 45: 761-787 -! DOI: 10.1007/s10543-005-0035-y -! Table 4.1-4.2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RG3 -!~~~> Name of the method - ros_Name = 'RANG-3' -!~~~> Number of stages - ros_S = 4 - - ros_A(1) = 5.09052051067020d+00; - ros_A(2) = 5.09052051067020d+00; - ros_A(3) = 0.0d0; - ros_A(4) = 4.97628111010787d+00; - ros_A(5) = 2.77268164715849d-02; - ros_A(6) = 2.29428036027904d-01; - - ros_C(1) = -1.16790812312283d+01; - ros_C(2) = -1.64057326467367d+01; - ros_C(3) = -2.77268164715850d-01; - ros_C(4) = -8.38103960500476d+00; - ros_C(5) = -8.48328409199343d-01; - ros_C(6) = 2.87009860433106d-01; - - ros_M(1) = 5.22582761233094d+00; - ros_M(2) = -5.56971148154165d-01; - ros_M(3) = 3.57979469353645d-01; - ros_M(4) = 1.72337398521064d+00; - - ros_E(1) = -5.16845212784040d+00; - ros_E(2) = -1.26351942603842d+00; - ros_E(3) = -1.11022302462516d-16; - ros_E(4) = 2.22044604925031d-16; - - ros_Alpha(1) = 0.0d00; - ros_Alpha(2) = 2.21878746765329d+00; - ros_Alpha(3) = 2.21878746765329d+00; - ros_Alpha(4) = 1.55392337535788d+00; - - ros_Gamma(1) = 4.35866521508459d-01; - ros_Gamma(2) = -1.78292094614483d+00; - ros_Gamma(3) = -2.46541900496934d+00; - ros_Gamma(4) = -8.05529997906370d-01; - - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp - - END SUBROUTINE Rang3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! End of the set of internal Rosenbrock subroutines -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -END SUBROUTINE Rosenbrock -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE FunTemplate( T, Y, Ydot ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE function call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE MOZART_T1_Parameters, ONLY: NVAR, LU_NONZERO - USE MOZART_T1_Global, ONLY: FIX, RCONST, TIME - USE MOZART_T1_Function, ONLY: Fun - USE MOZART_T1_Rates, ONLY: Update_SUN, Update_RCONST -!~~~> Input variables - REAL(kind=dp) :: T, Y(NVAR) -!~~~> Output variables - REAL(kind=dp) :: Ydot(NVAR) -!~~~> Local variables - REAL(kind=dp) :: Told - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, Ydot ) - TIME = Told - -END SUBROUTINE FunTemplate - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE JacTemplate( T, Y, Jcb ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE Jacobian call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE MOZART_T1_Parameters, ONLY: NVAR, LU_NONZERO - USE MOZART_T1_Global, ONLY: FIX, RCONST, TIME - USE MOZART_T1_Jacobian, ONLY: Jac_SP, LU_IROW, LU_ICOL - USE MOZART_T1_LinearAlgebra - USE MOZART_T1_Rates, ONLY: Update_SUN, Update_RCONST -!~~~> Input variables - REAL(kind=dp) :: T, Y(NVAR) -!~~~> Output variables -#ifdef FULL_ALGEBRA - REAL(kind=dp) :: JV(LU_NONZERO), Jcb(NVAR,NVAR) -#else - REAL(kind=dp) :: Jcb(LU_NONZERO) -#endif -!~~~> Local variables - REAL(kind=dp) :: Told -#ifdef FULL_ALGEBRA - INTEGER :: i, j -#endif - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() -#ifdef FULL_ALGEBRA - CALL Jac_SP(Y, FIX, RCONST, JV) - DO j=1,NVAR - DO i=1,NVAR - Jcb(i,j) = 0.0_dp - END DO - END DO - DO i=1,LU_NONZERO - Jcb(LU_IROW(i),LU_ICOL(i)) = JV(i) - END DO -#else - CALL Jac_SP( Y, FIX, RCONST, Jcb ) -#endif - TIME = Told - -END SUBROUTINE JacTemplate - -END MODULE MOZART_T1_Integrator - - - - -! End of INTEGRATE function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Integrator.o b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Integrator.o deleted file mode 100644 index 737c8043e7374cd2530385bcf5944b7fc7c5c449..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Integrator.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Jacobian.f90 b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Jacobian.f90 deleted file mode 100644 index 0d7c56e06b636ec726053f3f6bdaa6cfa3d287e4..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Jacobian.f90 +++ /dev/null @@ -1,5748 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The ODE Jacobian of Chemical Model File -! -! Generated by KPP-2.2.3 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 : MOZART_T1_Jacobian.f90 -! Time : Wed Jan 27 13:13:50 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_T1_20754_BOXMOX -! Equation file : MOZART_T1.kpp -! Output root filename : MOZART_T1 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MOZART_T1_Jacobian - - USE MOZART_T1_Parameters - USE MOZART_T1_JacobianSP - - USE MOZART_T1_Global - - 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(644) - -! B(1) = dA(1)/dV(39) - B(1) = RCT(1) -! B(3) = dA(3)/dV(151) - B(3) = RCT(3) -! B(4) = dA(4)/dV(151) - B(4) = RCT(4) -! B(5) = dA(5)/dV(70) - B(5) = RCT(5) -! B(6) = dA(6)/dV(45) - B(6) = RCT(6) -! B(7) = dA(7)/dV(18) - B(7) = RCT(7) -! B(8) = dA(8)/dV(29) - B(8) = RCT(8) -! B(9) = dA(9)/dV(147) - B(9) = RCT(9) -! B(10) = dA(10)/dV(150) - B(10) = RCT(10) -! B(11) = dA(11)/dV(93) - B(11) = RCT(11) -! B(12) = dA(12)/dV(94) - B(12) = RCT(12) -! B(13) = dA(13)/dV(67) - B(13) = RCT(13) -! B(14) = dA(14)/dV(26) - B(14) = RCT(14) -! B(15) = dA(15)/dV(111) - B(15) = RCT(15) -! B(16) = dA(16)/dV(69) - B(16) = RCT(16) -! B(17) = dA(17)/dV(44) - B(17) = RCT(17) -! B(18) = dA(18)/dV(91) - B(18) = RCT(18) -! B(19) = dA(19)/dV(57) - B(19) = RCT(19) -! B(20) = dA(20)/dV(50) - B(20) = RCT(20) -! B(21) = dA(21)/dV(53) - B(21) = RCT(21) -! B(22) = dA(22)/dV(56) - B(22) = RCT(22) -! B(23) = dA(23)/dV(41) - B(23) = RCT(23) -! B(24) = dA(24)/dV(146) - B(24) = RCT(24) -! B(25) = dA(25)/dV(146) - B(25) = RCT(25) -! B(26) = dA(26)/dV(129) - B(26) = RCT(26) -! B(27) = dA(27)/dV(122) - B(27) = RCT(27) -! B(28) = dA(28)/dV(138) - B(28) = RCT(28) -! B(29) = dA(29)/dV(68) - B(29) = RCT(29) -! B(30) = dA(30)/dV(47) - B(30) = RCT(30) -! B(31) = dA(31)/dV(20) - B(31) = RCT(31) -! B(32) = dA(32)/dV(124) - B(32) = RCT(32) -! B(33) = dA(33)/dV(109) - B(33) = RCT(33) -! B(34) = dA(34)/dV(113) - B(34) = RCT(34) -! B(35) = dA(35)/dV(137) - B(35) = RCT(35) -! B(36) = dA(36)/dV(37) - B(36) = RCT(36) -! B(37) = dA(37)/dV(136) - B(37) = RCT(37) -! B(38) = dA(38)/dV(62) - B(38) = RCT(38) -! B(39) = dA(39)/dV(97) - B(39) = RCT(39) -! B(40) = dA(40)/dV(143) - B(40) = RCT(40) -! B(41) = dA(41)/dV(83) - B(41) = RCT(41) -! B(42) = dA(42)/dV(78) - B(42) = RCT(42) -! B(43) = dA(43)/dV(49) - B(43) = RCT(43) -! B(44) = dA(44)/dV(84) - B(44) = RCT(44) -! B(45) = dA(45)/dV(144) - B(45) = RCT(45) -! B(46) = dA(46)/dV(110) - B(46) = RCT(46) -! B(47) = dA(47)/dV(119) - B(47) = RCT(47) -! B(48) = dA(48)/dV(52) - B(48) = RCT(48) -! B(49) = dA(49)/dV(22) - B(49) = RCT(49) -! B(50) = dA(50)/dV(71) - B(50) = RCT(50) -! B(51) = dA(51)/dV(54) - B(51) = RCT(51) -! B(52) = dA(52)/dV(74) - B(52) = RCT(52) -! B(53) = dA(53)/dV(55) - B(53) = RCT(53) -! B(54) = dA(54)/dV(32) - B(54) = RCT(54) -! B(55) = dA(55)/dV(88) - B(55) = RCT(55) -! B(56) = dA(56)/dV(80) - B(56) = RCT(56) -! B(57) = dA(57)/dV(75) - B(57) = RCT(57) -! B(58) = dA(58)/dV(133) - B(58) = RCT(58) -! B(59) = dA(59)/dV(126) - B(59) = RCT(59) -! B(60) = dA(60)/dV(89) - B(60) = RCT(60) -! B(61) = dA(61)/dV(33) - B(61) = RCT(61) -! B(62) = dA(62)/dV(98) - B(62) = RCT(62) -! B(63) = dA(63)/dV(63) - B(63) = RCT(63) -! B(64) = dA(64)/dV(87) - B(64) = RCT(64)*V(106) -! B(65) = dA(64)/dV(106) - B(65) = RCT(64)*V(87) -! B(66) = dA(65)/dV(82) - B(66) = RCT(65)*V(106) -! B(67) = dA(65)/dV(106) - B(67) = RCT(65)*V(82) -! B(68) = dA(66)/dV(106) - B(68) = RCT(66)*F(2) -! B(70) = dA(67)/dV(106) - B(70) = RCT(67)*F(4) -! B(72) = dA(68)/dV(106) - B(72) = RCT(68)*F(3) -! B(74) = dA(69)/dV(106) - B(74) = RCT(69)*V(151) -! B(75) = dA(69)/dV(151) - B(75) = RCT(69)*V(106) -! B(76) = dA(70)/dV(135) - B(76) = RCT(70)*V(151) -! B(77) = dA(70)/dV(151) - B(77) = RCT(70)*V(135) -! B(78) = dA(71)/dV(135) - B(78) = RCT(71)*2*V(135)*F(1) -! B(80) = dA(72)/dV(135) - B(80) = RCT(72)*F(1)*F(3) -! B(83) = dA(73)/dV(82) - B(83) = RCT(73)*V(135) -! B(84) = dA(73)/dV(135) - B(84) = RCT(73)*V(82) -! B(85) = dA(74)/dV(39) - B(85) = RCT(74)*V(135) -! B(86) = dA(74)/dV(135) - B(86) = RCT(74)*V(39) -! B(87) = dA(75)/dV(135) - B(87) = RCT(75)*V(149) -! B(88) = dA(75)/dV(149) - B(88) = RCT(75)*V(135) -! B(89) = dA(76)/dV(149) - B(89) = RCT(76)*V(151) -! B(90) = dA(76)/dV(151) - B(90) = RCT(76)*V(149) -! B(91) = dA(77)/dV(82) - B(91) = RCT(77)*V(148) -! B(92) = dA(77)/dV(148) - B(92) = RCT(77)*V(82) -! B(93) = dA(78)/dV(39) - B(93) = RCT(78)*V(148) -! B(94) = dA(78)/dV(148) - B(94) = RCT(78)*V(39) -! B(95) = dA(79)/dV(148) - B(95) = RCT(79)*V(149) -! B(96) = dA(79)/dV(149) - B(96) = RCT(79)*V(148) -! B(97) = dA(80)/dV(135) - B(97) = RCT(80)*V(148) -! B(98) = dA(80)/dV(148) - B(98) = RCT(80)*V(135) -! B(99) = dA(81)/dV(148) - B(99) = RCT(81)*V(151) -! B(100) = dA(81)/dV(151) - B(100) = RCT(81)*V(148) -! B(101) = dA(82)/dV(148) - B(101) = RCT(82)*2*V(148) -! B(102) = dA(83)/dV(148) - B(102) = RCT(83)*2*V(148) -! B(103) = dA(84)/dV(149) - B(103) = RCT(84)*2*V(149) -! B(104) = dA(85)/dV(45) - B(104) = RCT(85)*V(148) -! B(105) = dA(85)/dV(148) - B(105) = RCT(85)*V(45) -! B(106) = dA(86)/dV(135) - B(106) = RCT(86)*V(147) -! B(107) = dA(86)/dV(147) - B(107) = RCT(86)*V(135) -! B(108) = dA(87)/dV(147) - B(108) = RCT(87)*V(151) -! B(109) = dA(87)/dV(151) - B(109) = RCT(87)*V(147) -! B(110) = dA(88)/dV(135) - B(110) = RCT(88)*V(147) -! B(111) = dA(88)/dV(147) - B(111) = RCT(88)*V(135) -! B(112) = dA(89)/dV(149) - B(112) = RCT(89)*V(150) -! B(113) = dA(89)/dV(150) - B(113) = RCT(89)*V(149) -! B(114) = dA(90)/dV(150) - B(114) = RCT(90)*V(153) -! B(115) = dA(90)/dV(153) - B(115) = RCT(90)*V(150) -! B(116) = dA(91)/dV(135) - B(116) = RCT(91)*V(150) -! B(117) = dA(91)/dV(150) - B(117) = RCT(91)*V(135) -! B(118) = dA(92)/dV(148) - B(118) = RCT(92)*V(150) -! B(119) = dA(92)/dV(150) - B(119) = RCT(92)*V(148) -! B(120) = dA(93)/dV(149) - B(120) = RCT(93)*V(153) -! B(121) = dA(93)/dV(153) - B(121) = RCT(93)*V(149) -! B(122) = dA(94)/dV(151) - B(122) = RCT(94)*V(153) -! B(123) = dA(94)/dV(153) - B(123) = RCT(94)*V(151) -! B(124) = dA(95)/dV(135) - B(124) = RCT(95)*V(153) -! B(125) = dA(95)/dV(153) - B(125) = RCT(95)*V(135) -! B(126) = dA(96)/dV(18) - B(126) = RCT(96)*V(106) -! B(127) = dA(96)/dV(106) - B(127) = RCT(96)*V(18) -! B(128) = dA(97)/dV(18) - B(128) = RCT(97)*V(106) -! B(129) = dA(97)/dV(106) - B(129) = RCT(97)*V(18) -! B(130) = dA(98)/dV(147) - B(130) = RCT(98)*V(149) -! B(131) = dA(98)/dV(149) - B(131) = RCT(98)*V(147) -! B(132) = dA(99)/dV(147) - B(132) = RCT(99)*V(150) -! B(133) = dA(99)/dV(150) - B(133) = RCT(99)*V(147) -! B(134) = dA(100)/dV(147) - B(134) = RCT(100)*V(148) -! B(135) = dA(100)/dV(148) - B(135) = RCT(100)*V(147) -! B(136) = dA(101)/dV(70) - B(136) = RCT(101)*V(148) -! B(137) = dA(101)/dV(148) - B(137) = RCT(101)*V(70) -! B(138) = dA(102)/dV(45) - B(138) = RCT(102)*F(1) -! B(140) = dA(103)/dV(29) - B(140) = RCT(103)*F(1) -! B(142) = dA(104)/dV(146) - B(142) = RCT(104)*V(149) -! B(143) = dA(104)/dV(149) - B(143) = RCT(104)*V(146) -! B(144) = dA(105)/dV(146) - B(144) = RCT(105)*V(150) -! B(145) = dA(105)/dV(150) - B(145) = RCT(105)*V(146) -! B(146) = dA(106)/dV(135) - B(146) = RCT(106)*V(146) -! B(147) = dA(106)/dV(146) - B(147) = RCT(106)*V(135) -! B(148) = dA(107)/dV(146) - B(148) = RCT(107)*V(148) -! B(149) = dA(107)/dV(148) - B(149) = RCT(107)*V(146) -! B(150) = dA(108)/dV(155) - B(150) = RCT(108)*2*V(155) -! B(151) = dA(109)/dV(155) - B(151) = RCT(109)*2*V(155) -! B(152) = dA(110)/dV(149) - B(152) = RCT(110)*V(155) -! B(153) = dA(110)/dV(155) - B(153) = RCT(110)*V(149) -! B(154) = dA(111)/dV(153) - B(154) = RCT(111)*V(155) -! B(155) = dA(111)/dV(155) - B(155) = RCT(111)*V(153) -! B(156) = dA(112)/dV(107) - B(156) = RCT(112)*V(148) -! B(157) = dA(112)/dV(148) - B(157) = RCT(112)*V(107) -! B(158) = dA(113)/dV(47) - B(158) = RCT(113)*V(148) -! B(159) = dA(113)/dV(148) - B(159) = RCT(113)*V(47) -! B(160) = dA(114)/dV(87) - B(160) = RCT(114)*V(148) -! B(161) = dA(114)/dV(148) - B(161) = RCT(114)*V(87) -! B(162) = dA(115)/dV(28) - B(162) = RCT(115)*V(148) -! B(163) = dA(115)/dV(148) - B(163) = RCT(115)*V(28) -! B(164) = dA(116)/dV(103) - B(164) = RCT(116)*V(148) -! B(165) = dA(116)/dV(148) - B(165) = RCT(116)*V(103) -! B(166) = dA(117)/dV(65) - B(166) = RCT(117)*V(149) -! B(167) = dA(117)/dV(149) - B(167) = RCT(117)*V(65) -! B(168) = dA(118)/dV(65) - B(168) = RCT(118) -! B(169) = dA(119)/dV(65) - B(169) = RCT(119)*V(153) -! B(170) = dA(119)/dV(153) - B(170) = RCT(119)*V(65) -! B(171) = dA(120)/dV(28) - B(171) = RCT(120)*V(106) -! B(172) = dA(120)/dV(106) - B(172) = RCT(120)*V(28) -! B(173) = dA(121)/dV(123) - B(173) = RCT(121)*V(148) -! B(174) = dA(121)/dV(148) - B(174) = RCT(121)*V(123) -! B(175) = dA(122)/dV(24) - B(175) = RCT(122)*V(148) -! B(176) = dA(122)/dV(148) - B(176) = RCT(122)*V(24) -! B(177) = dA(123)/dV(60) - B(177) = RCT(123)*V(151) -! B(178) = dA(123)/dV(151) - B(178) = RCT(123)*V(60) -! B(179) = dA(124)/dV(108) - B(179) = RCT(124)*2*V(108) -! B(180) = dA(125)/dV(108) - B(180) = RCT(125)*V(155) -! B(181) = dA(125)/dV(155) - B(181) = RCT(125)*V(108) -! B(182) = dA(126)/dV(108) - B(182) = RCT(126)*V(149) -! B(183) = dA(126)/dV(149) - B(183) = RCT(126)*V(108) -! B(184) = dA(127)/dV(108) - B(184) = RCT(127)*V(153) -! B(185) = dA(127)/dV(153) - B(185) = RCT(127)*V(108) -! B(186) = dA(128)/dV(40) - B(186) = RCT(128)*V(148) -! B(187) = dA(128)/dV(148) - B(187) = RCT(128)*V(40) -! B(188) = dA(129)/dV(53) - B(188) = RCT(129)*V(148) -! B(189) = dA(129)/dV(148) - B(189) = RCT(129)*V(53) -! B(190) = dA(130)/dV(15) - B(190) = RCT(130)*V(148) -! B(191) = dA(130)/dV(148) - B(191) = RCT(130)*V(15) -! B(192) = dA(131)/dV(129) - B(192) = RCT(131)*V(150) -! B(193) = dA(131)/dV(150) - B(193) = RCT(131)*V(129) -! B(194) = dA(132)/dV(129) - B(194) = RCT(132)*V(148) -! B(195) = dA(132)/dV(148) - B(195) = RCT(132)*V(129) -! B(196) = dA(133)/dV(17) - B(196) = RCT(133)*V(148) -! B(197) = dA(133)/dV(148) - B(197) = RCT(133)*V(17) -! B(198) = dA(134)/dV(152) - B(198) = RCT(134)*2*V(152) -! B(199) = dA(135)/dV(152) - B(199) = RCT(135)*V(155) -! B(200) = dA(135)/dV(155) - B(200) = RCT(135)*V(152) -! B(201) = dA(136)/dV(149) - B(201) = RCT(136)*V(152) -! B(202) = dA(136)/dV(152) - B(202) = RCT(136)*V(149) -! B(203) = dA(137)/dV(152) - B(203) = RCT(137)*V(153) -! B(204) = dA(137)/dV(153) - B(204) = RCT(137)*V(152) -! B(205) = dA(138)/dV(61) - B(205) = RCT(138)*V(148) -! B(206) = dA(138)/dV(148) - B(206) = RCT(138)*V(61) -! B(207) = dA(139)/dV(68) - B(207) = RCT(139)*V(148) -! B(208) = dA(139)/dV(148) - B(208) = RCT(139)*V(68) -! B(209) = dA(140)/dV(90) - B(209) = RCT(140)*V(149) -! B(210) = dA(140)/dV(149) - B(210) = RCT(140)*V(90) -! B(211) = dA(141)/dV(90) - B(211) = RCT(141)*V(153) -! B(212) = dA(141)/dV(153) - B(212) = RCT(141)*V(90) -! B(213) = dA(142)/dV(42) - B(213) = RCT(142) -! B(214) = dA(143)/dV(42) - B(214) = RCT(143)*F(3) -! B(216) = dA(144)/dV(124) - B(216) = RCT(144)*V(148) -! B(217) = dA(144)/dV(148) - B(217) = RCT(144)*V(124) -! B(218) = dA(145)/dV(109) - B(218) = RCT(145)*V(148) -! B(219) = dA(145)/dV(148) - B(219) = RCT(145)*V(109) -! B(220) = dA(146)/dV(71) - B(220) = RCT(146)*V(148) -! B(221) = dA(146)/dV(148) - B(221) = RCT(146)*V(71) -! B(222) = dA(147)/dV(60) - B(222) = RCT(147)*V(148) -! B(223) = dA(147)/dV(148) - B(223) = RCT(147)*V(60) -! B(224) = dA(148)/dV(147) - B(224) = RCT(148)*V(152) -! B(225) = dA(148)/dV(152) - B(225) = RCT(148)*V(147) -! B(226) = dA(149)/dV(71) - B(226) = RCT(149)*F(1) -! B(228) = dA(150)/dV(128) - B(228) = RCT(150)*V(150) -! B(229) = dA(150)/dV(150) - B(229) = RCT(150)*V(128) -! B(230) = dA(151)/dV(128) - B(230) = RCT(151)*V(151) -! B(231) = dA(151)/dV(151) - B(231) = RCT(151)*V(128) -! B(232) = dA(152)/dV(105) - B(232) = RCT(152)*V(155) -! B(233) = dA(152)/dV(155) - B(233) = RCT(152)*V(105) -! B(234) = dA(153)/dV(105) - B(234) = RCT(153)*V(149) -! B(235) = dA(153)/dV(149) - B(235) = RCT(153)*V(105) -! B(236) = dA(154)/dV(105) - B(236) = RCT(154)*V(153) -! B(237) = dA(154)/dV(153) - B(237) = RCT(154)*V(105) -! B(238) = dA(155)/dV(56) - B(238) = RCT(155)*V(148) -! B(239) = dA(155)/dV(148) - B(239) = RCT(155)*V(56) -! B(240) = dA(156)/dV(16) - B(240) = RCT(156)*V(148) -! B(241) = dA(156)/dV(148) - B(241) = RCT(156)*V(16) -! B(242) = dA(157)/dV(138) - B(242) = RCT(157)*V(150) -! B(243) = dA(157)/dV(150) - B(243) = RCT(157)*V(138) -! B(244) = dA(158)/dV(138) - B(244) = RCT(158)*V(148) -! B(245) = dA(158)/dV(148) - B(245) = RCT(158)*V(138) -! B(246) = dA(159)/dV(136) - B(246) = RCT(159)*V(148) -! B(247) = dA(159)/dV(148) - B(247) = RCT(159)*V(136) -! B(248) = dA(160)/dV(119) - B(248) = RCT(160)*V(148) -! B(249) = dA(160)/dV(148) - B(249) = RCT(160)*V(119) -! B(250) = dA(161)/dV(96) - B(250) = RCT(161)*V(149) -! B(251) = dA(161)/dV(149) - B(251) = RCT(161)*V(96) -! B(252) = dA(162)/dV(96) - B(252) = RCT(162)*V(153) -! B(253) = dA(162)/dV(153) - B(253) = RCT(162)*V(96) -! B(254) = dA(163)/dV(74) - B(254) = RCT(163)*V(148) -! B(255) = dA(163)/dV(148) - B(255) = RCT(163)*V(74) -! B(256) = dA(164)/dV(134) - B(256) = RCT(164)*V(155) -! B(257) = dA(164)/dV(155) - B(257) = RCT(164)*V(134) -! B(258) = dA(165)/dV(134) - B(258) = RCT(165)*V(149) -! B(259) = dA(165)/dV(149) - B(259) = RCT(165)*V(134) -! B(260) = dA(166)/dV(134) - B(260) = RCT(166)*V(153) -! B(261) = dA(166)/dV(153) - B(261) = RCT(166)*V(134) -! B(262) = dA(167)/dV(55) - B(262) = RCT(167)*V(148) -! B(263) = dA(167)/dV(148) - B(263) = RCT(167)*V(55) -! B(264) = dA(168)/dV(128) - B(264) = RCT(168)*V(148) -! B(265) = dA(168)/dV(148) - B(265) = RCT(168)*V(128) -! B(266) = dA(169)/dV(122) - B(266) = RCT(169)*V(148) -! B(267) = dA(169)/dV(148) - B(267) = RCT(169)*V(122) -! B(268) = dA(170)/dV(59) - B(268) = RCT(170)*V(150) -! B(269) = dA(170)/dV(150) - B(269) = RCT(170)*V(59) -! B(270) = dA(171)/dV(59) - B(270) = RCT(171)*V(148) -! B(271) = dA(171)/dV(148) - B(271) = RCT(171)*V(59) -! B(272) = dA(172)/dV(86) - B(272) = RCT(172)*V(153) -! B(273) = dA(172)/dV(153) - B(273) = RCT(172)*V(86) -! B(274) = dA(173)/dV(86) - B(274) = RCT(173)*V(153) -! B(275) = dA(173)/dV(153) - B(275) = RCT(173)*V(86) -! B(276) = dA(174)/dV(137) - B(276) = RCT(174)*V(148) -! B(277) = dA(174)/dV(148) - B(277) = RCT(174)*V(137) -! B(278) = dA(175)/dV(145) - B(278) = RCT(175)*V(152) -! B(279) = dA(175)/dV(152) - B(279) = RCT(175)*V(145) -! B(280) = dA(176)/dV(145) - B(280) = RCT(176)*V(155) -! B(281) = dA(176)/dV(155) - B(281) = RCT(176)*V(145) -! B(282) = dA(177)/dV(145) - B(282) = RCT(177)*V(149) -! B(283) = dA(177)/dV(149) - B(283) = RCT(177)*V(145) -! B(284) = dA(178)/dV(145) - B(284) = RCT(178)*V(150) -! B(285) = dA(178)/dV(150) - B(285) = RCT(178)*V(145) -! B(286) = dA(179)/dV(145) - B(286) = RCT(179)*V(153) -! B(287) = dA(179)/dV(153) - B(287) = RCT(179)*V(145) -! B(288) = dA(180)/dV(145) - B(288) = RCT(180)*V(153) -! B(289) = dA(180)/dV(153) - B(289) = RCT(180)*V(145) -! B(290) = dA(181)/dV(143) - B(290) = RCT(181)*V(151) -! B(291) = dA(181)/dV(151) - B(291) = RCT(181)*V(143) -! B(292) = dA(182)/dV(143) - B(292) = RCT(182)*V(148) -! B(293) = dA(182)/dV(148) - B(293) = RCT(182)*V(143) -! B(294) = dA(183)/dV(48) - B(294) = RCT(183)*V(148) -! B(295) = dA(183)/dV(148) - B(295) = RCT(183)*V(48) -! B(296) = dA(184)/dV(152) - B(296) = RCT(184)*V(154) -! B(297) = dA(184)/dV(154) - B(297) = RCT(184)*V(152) -! B(298) = dA(185)/dV(154) - B(298) = RCT(185)*V(155) -! B(299) = dA(185)/dV(155) - B(299) = RCT(185)*V(154) -! B(300) = dA(186)/dV(149) - B(300) = RCT(186)*V(154) -! B(301) = dA(186)/dV(154) - B(301) = RCT(186)*V(149) -! B(302) = dA(187)/dV(154) - B(302) = RCT(187)*2*V(154) -! B(303) = dA(188)/dV(153) - B(303) = RCT(188)*V(154) -! B(304) = dA(188)/dV(154) - B(304) = RCT(188)*V(153) -! B(305) = dA(189)/dV(150) - B(305) = RCT(189)*V(154) -! B(306) = dA(189)/dV(154) - B(306) = RCT(189)*V(150) -! B(307) = dA(190)/dV(95) - B(307) = RCT(190)*V(149) -! B(308) = dA(190)/dV(149) - B(308) = RCT(190)*V(95) -! B(309) = dA(191)/dV(95) - B(309) = RCT(191)*V(153) -! B(310) = dA(191)/dV(153) - B(310) = RCT(191)*V(95) -! B(311) = dA(192)/dV(78) - B(311) = RCT(192)*V(148) -! B(312) = dA(192)/dV(148) - B(312) = RCT(192)*V(78) -! B(313) = dA(193)/dV(49) - B(313) = RCT(193)*V(148) -! B(314) = dA(193)/dV(148) - B(314) = RCT(193)*V(49) -! B(315) = dA(194)/dV(84) - B(315) = RCT(194)*V(148) -! B(316) = dA(194)/dV(148) - B(316) = RCT(194)*V(84) -! B(317) = dA(195)/dV(144) - B(317) = RCT(195)*V(151) -! B(318) = dA(195)/dV(151) - B(318) = RCT(195)*V(144) -! B(319) = dA(196)/dV(144) - B(319) = RCT(196)*V(148) -! B(320) = dA(196)/dV(148) - B(320) = RCT(196)*V(144) -! B(321) = dA(197)/dV(147) - B(321) = RCT(197)*V(154)*F(1) -! B(322) = dA(197)/dV(154) - B(322) = RCT(197)*V(147)*F(1) -! B(324) = dA(198)/dV(84) - B(324) = RCT(198)*F(1) -! B(326) = dA(199)/dV(93) - B(326) = RCT(199)*V(148) -! B(327) = dA(199)/dV(148) - B(327) = RCT(199)*V(93) -! B(328) = dA(200)/dV(121) - B(328) = RCT(200)*V(149) -! B(329) = dA(200)/dV(149) - B(329) = RCT(200)*V(121) -! B(330) = dA(201)/dV(121) - B(330) = RCT(201)*V(153) -! B(331) = dA(201)/dV(153) - B(331) = RCT(201)*V(121) -! B(332) = dA(202)/dV(121) - B(332) = RCT(202)*V(153) -! B(333) = dA(202)/dV(153) - B(333) = RCT(202)*V(121) -! B(334) = dA(203)/dV(94) - B(334) = RCT(203)*V(148) -! B(335) = dA(203)/dV(148) - B(335) = RCT(203)*V(94) -! B(336) = dA(204)/dV(58) - B(336) = RCT(204)*V(148) -! B(337) = dA(204)/dV(148) - B(337) = RCT(204)*V(58) -! B(338) = dA(205)/dV(37) - B(338) = RCT(205)*V(148) -! B(339) = dA(205)/dV(148) - B(339) = RCT(205)*V(37) -! B(340) = dA(206)/dV(46) - B(340) = RCT(206)*V(148) -! B(341) = dA(206)/dV(148) - B(341) = RCT(206)*V(46) -! B(342) = dA(207)/dV(21) - B(342) = RCT(207)*V(148) -! B(343) = dA(207)/dV(148) - B(343) = RCT(207)*V(21) -! B(344) = dA(208)/dV(140) - B(344) = RCT(208)*V(152) -! B(345) = dA(208)/dV(152) - B(345) = RCT(208)*V(140) -! B(346) = dA(209)/dV(140) - B(346) = RCT(209)*V(155) -! B(347) = dA(209)/dV(155) - B(347) = RCT(209)*V(140) -! B(348) = dA(210)/dV(140) - B(348) = RCT(210)*V(149) -! B(349) = dA(210)/dV(149) - B(349) = RCT(210)*V(140) -! B(350) = dA(211)/dV(140) - B(350) = RCT(211)*V(153) -! B(351) = dA(211)/dV(153) - B(351) = RCT(211)*V(140) -! B(352) = dA(212)/dV(140) - B(352) = RCT(212)*V(150) -! B(353) = dA(212)/dV(150) - B(353) = RCT(212)*V(140) -! B(354) = dA(213)/dV(141) - B(354) = RCT(213)*V(152) -! B(355) = dA(213)/dV(152) - B(355) = RCT(213)*V(141) -! B(356) = dA(214)/dV(141) - B(356) = RCT(214)*V(155) -! B(357) = dA(214)/dV(155) - B(357) = RCT(214)*V(141) -! B(358) = dA(215)/dV(141) - B(358) = RCT(215)*V(149) -! B(359) = dA(215)/dV(149) - B(359) = RCT(215)*V(141) -! B(360) = dA(216)/dV(141) - B(360) = RCT(216) -! B(361) = dA(217)/dV(141) - B(361) = RCT(217)*V(153) -! B(362) = dA(217)/dV(153) - B(362) = RCT(217)*V(141) -! B(363) = dA(218)/dV(141) - B(363) = RCT(218)*V(150) -! B(364) = dA(218)/dV(150) - B(364) = RCT(218)*V(141) -! B(365) = dA(219)/dV(85) - B(365) = RCT(219)*V(148) -! B(366) = dA(219)/dV(148) - B(366) = RCT(219)*V(85) -! B(367) = dA(220)/dV(72) - B(367) = RCT(220)*V(148) -! B(368) = dA(220)/dV(148) - B(368) = RCT(220)*V(72) -! B(369) = dA(221)/dV(114) - B(369) = RCT(221)*V(150) -! B(370) = dA(221)/dV(150) - B(370) = RCT(221)*V(114) -! B(371) = dA(222)/dV(142) - B(371) = RCT(222)*V(152) -! B(372) = dA(222)/dV(152) - B(372) = RCT(222)*V(142) -! B(373) = dA(223)/dV(142) - B(373) = RCT(223)*V(155) -! B(374) = dA(223)/dV(155) - B(374) = RCT(223)*V(142) -! B(375) = dA(224)/dV(142) - B(375) = RCT(224)*V(149) -! B(376) = dA(224)/dV(149) - B(376) = RCT(224)*V(142) -! B(377) = dA(225)/dV(142) - B(377) = RCT(225)*V(153) -! B(378) = dA(225)/dV(153) - B(378) = RCT(225)*V(142) -! B(379) = dA(226)/dV(142) - B(379) = RCT(226)*V(150) -! B(380) = dA(226)/dV(150) - B(380) = RCT(226)*V(142) -! B(381) = dA(227)/dV(62) - B(381) = RCT(227)*V(148) -! B(382) = dA(227)/dV(148) - B(382) = RCT(227)*V(62) -! B(383) = dA(228)/dV(114) - B(383) = RCT(228)*V(151) -! B(384) = dA(228)/dV(151) - B(384) = RCT(228)*V(114) -! B(385) = dA(229)/dV(114) - B(385) = RCT(229)*V(148) -! B(386) = dA(229)/dV(148) - B(386) = RCT(229)*V(114) -! B(387) = dA(230)/dV(97) - B(387) = RCT(230)*V(148) -! B(388) = dA(230)/dV(148) - B(388) = RCT(230)*V(97) -! B(389) = dA(231)/dV(51) - B(389) = RCT(231)*V(148) -! B(390) = dA(231)/dV(148) - B(390) = RCT(231)*V(51) -! B(391) = dA(232)/dV(110) - B(391) = RCT(232)*V(148) -! B(392) = dA(232)/dV(148) - B(392) = RCT(232)*V(110) -! B(393) = dA(233)/dV(139) - B(393) = RCT(233)*V(152) -! B(394) = dA(233)/dV(152) - B(394) = RCT(233)*V(139) -! B(395) = dA(234)/dV(139) - B(395) = RCT(234)*V(155) -! B(396) = dA(234)/dV(155) - B(396) = RCT(234)*V(139) -! B(397) = dA(235)/dV(139) - B(397) = RCT(235)*V(149) -! B(398) = dA(235)/dV(149) - B(398) = RCT(235)*V(139) -! B(399) = dA(236)/dV(139) - B(399) = RCT(236)*V(153) -! B(400) = dA(236)/dV(153) - B(400) = RCT(236)*V(139) -! B(401) = dA(237)/dV(139) - B(401) = RCT(237)*V(150) -! B(402) = dA(237)/dV(150) - B(402) = RCT(237)*V(139) -! B(403) = dA(238)/dV(33) - B(403) = RCT(238)*V(148) -! B(404) = dA(238)/dV(148) - B(404) = RCT(238)*V(33) -! B(405) = dA(239)/dV(79) - B(405) = RCT(239)*V(149) -! B(406) = dA(239)/dV(149) - B(406) = RCT(239)*V(79) -! B(407) = dA(240)/dV(79) - B(407) = RCT(240)*V(153) -! B(408) = dA(240)/dV(153) - B(408) = RCT(240)*V(79) -! B(409) = dA(241)/dV(113) - B(409) = RCT(241)*V(148) -! B(410) = dA(241)/dV(148) - B(410) = RCT(241)*V(113) -! B(411) = dA(242)/dV(104) - B(411) = RCT(242)*V(150) -! B(412) = dA(242)/dV(150) - B(412) = RCT(242)*V(104) -! B(413) = dA(243)/dV(112) - B(413) = RCT(243)*V(149) -! B(414) = dA(243)/dV(149) - B(414) = RCT(243)*V(112) -! B(415) = dA(244)/dV(112) - B(415) = RCT(244)*V(153) -! B(416) = dA(244)/dV(153) - B(416) = RCT(244)*V(112) -! B(417) = dA(245)/dV(112) - B(417) = RCT(245)*V(150) -! B(418) = dA(245)/dV(150) - B(418) = RCT(245)*V(112) -! B(419) = dA(246)/dV(125) - B(419) = RCT(246)*V(155) -! B(420) = dA(246)/dV(155) - B(420) = RCT(246)*V(125) -! B(421) = dA(247)/dV(125) - B(421) = RCT(247)*V(149) -! B(422) = dA(247)/dV(149) - B(422) = RCT(247)*V(125) -! B(423) = dA(248)/dV(125) - B(423) = RCT(248)*V(153) -! B(424) = dA(248)/dV(153) - B(424) = RCT(248)*V(125) -! B(425) = dA(249)/dV(104) - B(425) = RCT(249)*V(151) -! B(426) = dA(249)/dV(151) - B(426) = RCT(249)*V(104) -! B(427) = dA(250)/dV(104) - B(427) = RCT(250)*V(148) -! B(428) = dA(250)/dV(148) - B(428) = RCT(250)*V(104) -! B(429) = dA(251)/dV(83) - B(429) = RCT(251)*V(148) -! B(430) = dA(251)/dV(148) - B(430) = RCT(251)*V(83) -! B(431) = dA(252)/dV(81) - B(431) = RCT(252)*V(149) -! B(432) = dA(252)/dV(149) - B(432) = RCT(252)*V(81) -! B(433) = dA(253)/dV(81) - B(433) = RCT(253)*V(153) -! B(434) = dA(253)/dV(153) - B(434) = RCT(253)*V(81) -! B(435) = dA(254)/dV(43) - B(435) = RCT(254)*V(149) -! B(436) = dA(254)/dV(149) - B(436) = RCT(254)*V(43) -! B(437) = dA(255)/dV(43) - B(437) = RCT(255)*V(153) -! B(438) = dA(255)/dV(153) - B(438) = RCT(255)*V(43) -! B(439) = dA(256)/dV(25) - B(439) = RCT(256)*V(148) -! B(440) = dA(256)/dV(148) - B(440) = RCT(256)*V(25) -! B(441) = dA(257)/dV(76) - B(441) = RCT(257)*V(149) -! B(442) = dA(257)/dV(149) - B(442) = RCT(257)*V(76) -! B(443) = dA(258)/dV(76) - B(443) = RCT(258)*V(153) -! B(444) = dA(258)/dV(153) - B(444) = RCT(258)*V(76) -! B(445) = dA(259)/dV(67) - B(445) = RCT(259)*V(148) -! B(446) = dA(259)/dV(148) - B(446) = RCT(259)*V(67) -! B(447) = dA(260)/dV(38) - B(447) = RCT(260)*V(148) -! B(448) = dA(260)/dV(148) - B(448) = RCT(260)*V(38) -! B(449) = dA(261)/dV(64) - B(449) = RCT(261)*V(149) -! B(450) = dA(261)/dV(149) - B(450) = RCT(261)*V(64) -! B(451) = dA(262)/dV(50) - B(451) = RCT(262)*V(148) -! B(452) = dA(262)/dV(148) - B(452) = RCT(262)*V(50) -! B(453) = dA(263)/dV(64) - B(453) = RCT(263)*V(153) -! B(454) = dA(263)/dV(153) - B(454) = RCT(263)*V(64) -! B(455) = dA(264)/dV(92) - B(455) = RCT(264)*V(149) -! B(456) = dA(264)/dV(149) - B(456) = RCT(264)*V(92) -! B(457) = dA(265)/dV(92) - B(457) = RCT(265)*V(153) -! B(458) = dA(265)/dV(153) - B(458) = RCT(265)*V(92) -! B(459) = dA(266)/dV(41) - B(459) = RCT(266)*V(148) -! B(460) = dA(266)/dV(148) - B(460) = RCT(266)*V(41) -! B(461) = dA(267)/dV(31) - B(461) = RCT(267)*V(148) -! B(462) = dA(267)/dV(148) - B(462) = RCT(267)*V(31) -! B(463) = dA(268)/dV(102) - B(463) = RCT(268)*V(149) -! B(464) = dA(268)/dV(149) - B(464) = RCT(268)*V(102) -! B(465) = dA(269)/dV(102) - B(465) = RCT(269)*V(153) -! B(466) = dA(269)/dV(153) - B(466) = RCT(269)*V(102) -! B(467) = dA(270)/dV(102) - B(467) = RCT(270)*V(147) -! B(468) = dA(270)/dV(147) - B(468) = RCT(270)*V(102) -! B(469) = dA(271)/dV(100) - B(469) = RCT(271)*V(149) -! B(470) = dA(271)/dV(149) - B(470) = RCT(271)*V(100) -! B(471) = dA(272)/dV(100) - B(471) = RCT(272)*V(153) -! B(472) = dA(272)/dV(153) - B(472) = RCT(272)*V(100) -! B(473) = dA(273)/dV(100) - B(473) = RCT(273)*V(147) -! B(474) = dA(273)/dV(147) - B(474) = RCT(273)*V(100) -! B(475) = dA(274)/dV(130) - B(475) = RCT(274)*V(149) -! B(476) = dA(274)/dV(149) - B(476) = RCT(274)*V(130) -! B(477) = dA(275)/dV(130) - B(477) = RCT(275)*V(153) -! B(478) = dA(275)/dV(153) - B(478) = RCT(275)*V(130) -! B(479) = dA(276)/dV(130) - B(479) = RCT(276)*V(147) -! B(480) = dA(276)/dV(147) - B(480) = RCT(276)*V(130) -! B(481) = dA(277)/dV(66) - B(481) = RCT(277)*V(149) -! B(482) = dA(277)/dV(149) - B(482) = RCT(277)*V(66) -! B(483) = dA(278)/dV(66) - B(483) = RCT(278)*V(153) -! B(484) = dA(278)/dV(153) - B(484) = RCT(278)*V(66) -! B(485) = dA(279)/dV(27) - B(485) = RCT(279)*V(148) -! B(486) = dA(279)/dV(148) - B(486) = RCT(279)*V(27) -! B(487) = dA(280)/dV(73) - B(487) = RCT(280)*V(147) -! B(488) = dA(280)/dV(147) - B(488) = RCT(280)*V(73) -! B(489) = dA(281)/dV(73) - B(489) = RCT(281)*V(151) -! B(490) = dA(281)/dV(151) - B(490) = RCT(281)*V(73) -! B(491) = dA(282)/dV(54) - B(491) = RCT(282)*V(148) -! B(492) = dA(282)/dV(148) - B(492) = RCT(282)*V(54) -! B(493) = dA(283)/dV(81) - B(493) = RCT(283)*V(147) -! B(494) = dA(283)/dV(147) - B(494) = RCT(283)*V(81) -! B(495) = dA(284)/dV(99) - B(495) = RCT(284)*V(149) -! B(496) = dA(284)/dV(149) - B(496) = RCT(284)*V(99) -! B(497) = dA(285)/dV(99) - B(497) = RCT(285)*V(153) -! B(498) = dA(285)/dV(153) - B(498) = RCT(285)*V(99) -! B(499) = dA(286)/dV(89) - B(499) = RCT(286)*V(148) -! B(500) = dA(286)/dV(148) - B(500) = RCT(286)*V(89) -! B(501) = dA(287)/dV(30) - B(501) = RCT(287)*V(148) -! B(502) = dA(287)/dV(148) - B(502) = RCT(287)*V(30) -! B(503) = dA(288)/dV(23) - B(503) = RCT(288)*F(1) -! B(505) = dA(289)/dV(34) - B(505) = RCT(289)*V(148) -! B(506) = dA(289)/dV(148) - B(506) = RCT(289)*V(34) -! B(507) = dA(290)/dV(101) - B(507) = RCT(290)*V(149) -! B(508) = dA(290)/dV(149) - B(508) = RCT(290)*V(101) -! B(509) = dA(291)/dV(101) - B(509) = RCT(291)*V(153) -! B(510) = dA(291)/dV(153) - B(510) = RCT(291)*V(101) -! B(511) = dA(292)/dV(98) - B(511) = RCT(292)*V(148) -! B(512) = dA(292)/dV(148) - B(512) = RCT(292)*V(98) -! B(513) = dA(293)/dV(77) - B(513) = RCT(293)*V(149) -! B(514) = dA(293)/dV(149) - B(514) = RCT(293)*V(77) -! B(515) = dA(294)/dV(77) - B(515) = RCT(294)*V(153) -! B(516) = dA(294)/dV(153) - B(516) = RCT(294)*V(77) -! B(517) = dA(295)/dV(35) - B(517) = RCT(295)*V(148) -! B(518) = dA(295)/dV(148) - B(518) = RCT(295)*V(35) -! B(519) = dA(296)/dV(63) - B(519) = RCT(296)*V(148) -! B(520) = dA(296)/dV(148) - B(520) = RCT(296)*V(63) -! B(521) = dA(297)/dV(116) - B(521) = RCT(297)*V(150) -! B(522) = dA(297)/dV(150) - B(522) = RCT(297)*V(116) -! B(523) = dA(298)/dV(116) - B(523) = RCT(298)*V(151) -! B(524) = dA(298)/dV(151) - B(524) = RCT(298)*V(116) -! B(525) = dA(299)/dV(116) - B(525) = RCT(299)*V(148) -! B(526) = dA(299)/dV(148) - B(526) = RCT(299)*V(116) -! B(527) = dA(300)/dV(117) - B(527) = RCT(300)*V(150) -! B(528) = dA(300)/dV(150) - B(528) = RCT(300)*V(117) -! B(529) = dA(301)/dV(117) - B(529) = RCT(301)*V(151) -! B(530) = dA(301)/dV(151) - B(530) = RCT(301)*V(117) -! B(531) = dA(302)/dV(117) - B(531) = RCT(302)*V(148) -! B(532) = dA(302)/dV(148) - B(532) = RCT(302)*V(117) -! B(533) = dA(303)/dV(118) - B(533) = RCT(303)*V(150) -! B(534) = dA(303)/dV(150) - B(534) = RCT(303)*V(118) -! B(535) = dA(304)/dV(118) - B(535) = RCT(304)*V(151) -! B(536) = dA(304)/dV(151) - B(536) = RCT(304)*V(118) -! B(537) = dA(305)/dV(118) - B(537) = RCT(305)*V(148) -! B(538) = dA(305)/dV(148) - B(538) = RCT(305)*V(118) -! B(539) = dA(306)/dV(115) - B(539) = RCT(306)*V(150) -! B(540) = dA(306)/dV(150) - B(540) = RCT(306)*V(115) -! B(541) = dA(307)/dV(115) - B(541) = RCT(307)*V(151) -! B(542) = dA(307)/dV(151) - B(542) = RCT(307)*V(115) -! B(543) = dA(308)/dV(115) - B(543) = RCT(308)*V(148) -! B(544) = dA(308)/dV(148) - B(544) = RCT(308)*V(115) -! B(545) = dA(309)/dV(120) - B(545) = RCT(309)*V(150) -! B(546) = dA(309)/dV(150) - B(546) = RCT(309)*V(120) -! B(547) = dA(310)/dV(120) - B(547) = RCT(310)*V(151) -! B(548) = dA(310)/dV(151) - B(548) = RCT(310)*V(120) -! B(549) = dA(311)/dV(120) - B(549) = RCT(311)*V(148) -! B(550) = dA(311)/dV(148) - B(550) = RCT(311)*V(120) -! B(551) = dA(312)/dV(132) - B(551) = RCT(312)*V(155) -! B(552) = dA(312)/dV(155) - B(552) = RCT(312)*V(132) -! B(553) = dA(313)/dV(132) - B(553) = RCT(313)*V(149) -! B(554) = dA(313)/dV(149) - B(554) = RCT(313)*V(132) -! B(555) = dA(314)/dV(132) - B(555) = RCT(314)*V(153) -! B(556) = dA(314)/dV(153) - B(556) = RCT(314)*V(132) -! B(557) = dA(315)/dV(132) - B(557) = RCT(315)*V(150) -! B(558) = dA(315)/dV(150) - B(558) = RCT(315)*V(132) -! B(559) = dA(316)/dV(52) - B(559) = RCT(316)*V(148) -! B(560) = dA(316)/dV(148) - B(560) = RCT(316)*V(52) -! B(561) = dA(317)/dV(127) - B(561) = RCT(317)*V(155) -! B(562) = dA(317)/dV(155) - B(562) = RCT(317)*V(127) -! B(563) = dA(318)/dV(127) - B(563) = RCT(318)*V(149) -! B(564) = dA(318)/dV(149) - B(564) = RCT(318)*V(127) -! B(565) = dA(319)/dV(127) - B(565) = RCT(319)*V(153) -! B(566) = dA(319)/dV(153) - B(566) = RCT(319)*V(127) -! B(567) = dA(320)/dV(88) - B(567) = RCT(320)*V(148) -! B(568) = dA(320)/dV(148) - B(568) = RCT(320)*V(88) -! B(569) = dA(321)/dV(80) - B(569) = RCT(321)*V(148) -! B(570) = dA(321)/dV(148) - B(570) = RCT(321)*V(80) -! B(571) = dA(322)/dV(131) - B(571) = RCT(322)*V(155) -! B(572) = dA(322)/dV(155) - B(572) = RCT(322)*V(131) -! B(573) = dA(323)/dV(131) - B(573) = RCT(323)*V(149) -! B(574) = dA(323)/dV(149) - B(574) = RCT(323)*V(131) -! B(575) = dA(324)/dV(131) - B(575) = RCT(324)*V(153) -! B(576) = dA(324)/dV(153) - B(576) = RCT(324)*V(131) -! B(577) = dA(325)/dV(75) - B(577) = RCT(325)*V(148) -! B(578) = dA(325)/dV(148) - B(578) = RCT(325)*V(75) -! B(579) = dA(326)/dV(133) - B(579) = RCT(326)*V(150) -! B(580) = dA(326)/dV(150) - B(580) = RCT(326)*V(133) -! B(581) = dA(327)/dV(133) - B(581) = RCT(327)*V(148) -! B(582) = dA(327)/dV(148) - B(582) = RCT(327)*V(133) -! B(583) = dA(328)/dV(126) - B(583) = RCT(328)*V(148) -! B(584) = dA(328)/dV(148) - B(584) = RCT(328)*V(126) -! B(585) = dA(329)/dV(36) - B(585) = RCT(329)*V(150) -! B(586) = dA(329)/dV(150) - B(586) = RCT(329)*V(36) -! B(587) = dA(330)/dV(36) - B(587) = RCT(330)*V(148) -! B(588) = dA(330)/dV(148) - B(588) = RCT(330)*V(36) -! B(589) = dA(331)/dV(14) - B(589) = RCT(331)*V(148) -! B(590) = dA(331)/dV(148) - B(590) = RCT(331)*V(14) -! B(591) = dA(332)/dV(36) - B(591) = RCT(332)*V(148) -! B(592) = dA(332)/dV(148) - B(592) = RCT(332)*V(36) -! B(593) = dA(333)/dV(149) - B(593) = RCT(333) -! B(594) = dA(334)/dV(29) - B(594) = RCT(334) -! B(595) = dA(335)/dV(147) - B(595) = RCT(335) -! B(596) = dA(336)/dV(150) - B(596) = RCT(336) -! B(597) = dA(337)/dV(19) - B(597) = RCT(337)*V(148) -! B(598) = dA(337)/dV(148) - B(598) = RCT(337)*V(19) -! B(599) = dA(338)/dV(116) - B(599) = RCT(338)*V(150) -! B(600) = dA(338)/dV(150) - B(600) = RCT(338)*V(116) -! B(601) = dA(339)/dV(116) - B(601) = RCT(339)*V(151) -! B(602) = dA(339)/dV(151) - B(602) = RCT(339)*V(116) -! B(603) = dA(340)/dV(116) - B(603) = RCT(340)*V(148) -! B(604) = dA(340)/dV(148) - B(604) = RCT(340)*V(116) -! B(605) = dA(341)/dV(117) - B(605) = RCT(341)*V(150) -! B(606) = dA(341)/dV(150) - B(606) = RCT(341)*V(117) -! B(607) = dA(342)/dV(117) - B(607) = RCT(342)*V(151) -! B(608) = dA(342)/dV(151) - B(608) = RCT(342)*V(117) -! B(609) = dA(343)/dV(117) - B(609) = RCT(343)*V(148) -! B(610) = dA(343)/dV(148) - B(610) = RCT(343)*V(117) -! B(611) = dA(344)/dV(25) - B(611) = RCT(344)*V(148) -! B(612) = dA(344)/dV(148) - B(612) = RCT(344)*V(25) -! B(613) = dA(345)/dV(118) - B(613) = RCT(345)*V(150) -! B(614) = dA(345)/dV(150) - B(614) = RCT(345)*V(118) -! B(615) = dA(346)/dV(118) - B(615) = RCT(346)*V(151) -! B(616) = dA(346)/dV(151) - B(616) = RCT(346)*V(118) -! B(617) = dA(347)/dV(118) - B(617) = RCT(347)*V(148) -! B(618) = dA(347)/dV(148) - B(618) = RCT(347)*V(118) -! B(619) = dA(348)/dV(114) - B(619) = RCT(348)*V(150) -! B(620) = dA(348)/dV(150) - B(620) = RCT(348)*V(114) -! B(621) = dA(349)/dV(114) - B(621) = RCT(349)*V(151) -! B(622) = dA(349)/dV(151) - B(622) = RCT(349)*V(114) -! B(623) = dA(350)/dV(114) - B(623) = RCT(350)*V(148) -! B(624) = dA(350)/dV(148) - B(624) = RCT(350)*V(114) -! B(625) = dA(351)/dV(8) - B(625) = RCT(351)*V(148) -! B(626) = dA(351)/dV(148) - B(626) = RCT(351)*V(8) -! B(627) = dA(352)/dV(115) - B(627) = RCT(352)*V(150) -! B(628) = dA(352)/dV(150) - B(628) = RCT(352)*V(115) -! B(629) = dA(353)/dV(115) - B(629) = RCT(353)*V(151) -! B(630) = dA(353)/dV(151) - B(630) = RCT(353)*V(115) -! B(631) = dA(354)/dV(115) - B(631) = RCT(354)*V(148) -! B(632) = dA(354)/dV(148) - B(632) = RCT(354)*V(115) -! B(633) = dA(355)/dV(120) - B(633) = RCT(355)*V(150) -! B(634) = dA(355)/dV(150) - B(634) = RCT(355)*V(120) -! B(635) = dA(356)/dV(120) - B(635) = RCT(356)*V(151) -! B(636) = dA(356)/dV(151) - B(636) = RCT(356)*V(120) -! B(637) = dA(357)/dV(120) - B(637) = RCT(357)*V(148) -! B(638) = dA(357)/dV(148) - B(638) = RCT(357)*V(120) -! B(639) = dA(358)/dV(9) - B(639) = RCT(358)*V(148) -! B(640) = dA(358)/dV(148) - B(640) = RCT(358)*V(9) -! B(641) = dA(359)/dV(30) - B(641) = RCT(359)*V(148) -! B(642) = dA(359)/dV(148) - B(642) = RCT(359)*V(30) -! B(643) = dA(360)/dV(34) - B(643) = RCT(360)*V(148) -! B(644) = dA(360)/dV(148) - B(644) = RCT(360)*V(34) - -! Construct the Jacobian terms from B's -! JVS(1) = Jac_FULL(1,1) - JVS(1) = 0 -! JVS(2) = Jac_FULL(1,43) - JVS(2) = B(435) -! JVS(3) = Jac_FULL(1,149) - JVS(3) = B(436) -! JVS(4) = Jac_FULL(2,2) - JVS(4) = 0 -! JVS(5) = Jac_FULL(2,19) - JVS(5) = B(597) -! JVS(6) = Jac_FULL(2,148) - JVS(6) = B(598) -! JVS(7) = Jac_FULL(3,3) - JVS(7) = 0 -! JVS(8) = Jac_FULL(3,8) - JVS(8) = 0.2381*B(625) -! JVS(9) = Jac_FULL(3,9) - JVS(9) = 0.5931*B(639) -! JVS(10) = Jac_FULL(3,25) - JVS(10) = 0.0023*B(611) -! JVS(11) = Jac_FULL(3,30) - JVS(11) = 0.1364*B(641) -! JVS(12) = Jac_FULL(3,34) - JVS(12) = 0.1677*B(643) -! JVS(13) = Jac_FULL(3,114) - JVS(13) = 0.0031*B(623) -! JVS(14) = Jac_FULL(3,115) - JVS(14) = 0.0508*B(629)+0.0508*B(631) -! JVS(15) = Jac_FULL(3,116) - JVS(15) = 0.0508*B(601)+0.0508*B(603) -! JVS(16) = Jac_FULL(3,117) - JVS(16) = 0.2202*B(607)+0.2202*B(609) -! JVS(17) = Jac_FULL(3,118) - JVS(17) = 0.0508*B(615)+0.0508*B(617) -! JVS(18) = Jac_FULL(3,120) - JVS(18) = 0.0508*B(635)+0.0508*B(637) -! JVS(19) = Jac_FULL(3,148) - JVS(19) = 0.0508*B(604)+0.2202*B(610)+0.0023*B(612)+0.0508*B(618)+0.0031*B(624)+0.2381*B(626)+0.0508*B(632)+0.0508& - &*B(638)+0.5931*B(640)+0.1364*B(642)+0.1677*B(644) -! JVS(20) = Jac_FULL(3,151) - JVS(20) = 0.0508*B(602)+0.2202*B(608)+0.0508*B(616)+0.0508*B(630)+0.0508*B(636) -! JVS(21) = Jac_FULL(4,4) - JVS(21) = 0 -! JVS(22) = Jac_FULL(4,8) - JVS(22) = 0.1308*B(625) -! JVS(23) = Jac_FULL(4,9) - JVS(23) = 0.1534*B(639) -! JVS(24) = Jac_FULL(4,25) - JVS(24) = 0.0008*B(611) -! JVS(25) = Jac_FULL(4,30) - JVS(25) = 0.0101*B(641) -! JVS(26) = Jac_FULL(4,34) - JVS(26) = 0.0174*B(643) -! JVS(27) = Jac_FULL(4,114) - JVS(27) = 0.0035*B(623) -! JVS(28) = Jac_FULL(4,115) - JVS(28) = 0.1149*B(629)+0.1149*B(631) -! JVS(29) = Jac_FULL(4,116) - JVS(29) = 0.1149*B(601)+0.1149*B(603) -! JVS(30) = Jac_FULL(4,117) - JVS(30) = 0.2067*B(607)+0.2067*B(609) -! JVS(31) = Jac_FULL(4,118) - JVS(31) = 0.1149*B(615)+0.1149*B(617) -! JVS(32) = Jac_FULL(4,120) - JVS(32) = 0.1149*B(635)+0.1149*B(637) -! JVS(33) = Jac_FULL(4,148) - JVS(33) = 0.1149*B(604)+0.2067*B(610)+0.0008*B(612)+0.1149*B(618)+0.0035*B(624)+0.1308*B(626)+0.1149*B(632)+0.1149& - &*B(638)+0.1534*B(640)+0.0101*B(642)+0.0174*B(644) -! JVS(34) = Jac_FULL(4,151) - JVS(34) = 0.1149*B(602)+0.2067*B(608)+0.1149*B(616)+0.1149*B(630)+0.1149*B(636) -! JVS(35) = Jac_FULL(5,5) - JVS(35) = 0 -! JVS(36) = Jac_FULL(5,8) - JVS(36) = 0.0348*B(625) -! JVS(37) = Jac_FULL(5,9) - JVS(37) = 0.0459*B(639) -! JVS(38) = Jac_FULL(5,25) - JVS(38) = 0.0843*B(611) -! JVS(39) = Jac_FULL(5,30) - JVS(39) = 0.0763*B(641) -! JVS(40) = Jac_FULL(5,34) - JVS(40) = 0.086*B(643) -! JVS(41) = Jac_FULL(5,114) - JVS(41) = 0.0003*B(623) -! JVS(42) = Jac_FULL(5,115) - JVS(42) = 0.0348*B(629)+0.0348*B(631) -! JVS(43) = Jac_FULL(5,116) - JVS(43) = 0.0348*B(601)+0.0348*B(603) -! JVS(44) = Jac_FULL(5,117) - JVS(44) = 0.0653*B(607)+0.0653*B(609) -! JVS(45) = Jac_FULL(5,118) - JVS(45) = 0.0348*B(615)+0.0348*B(617) -! JVS(46) = Jac_FULL(5,120) - JVS(46) = 0.0348*B(635)+0.0348*B(637) -! JVS(47) = Jac_FULL(5,148) - JVS(47) = 0.0348*B(604)+0.0653*B(610)+0.0843*B(612)+0.0348*B(618)+0.0003*B(624)+0.0348*B(626)+0.0348*B(632)+0.0348& - &*B(638)+0.0459*B(640)+0.0763*B(642)+0.086*B(644) -! JVS(48) = Jac_FULL(5,151) - JVS(48) = 0.0348*B(602)+0.0653*B(608)+0.0348*B(616)+0.0348*B(630)+0.0348*B(636) -! JVS(49) = Jac_FULL(6,6) - JVS(49) = 0 -! JVS(50) = Jac_FULL(6,8) - JVS(50) = 0.0076*B(625) -! JVS(51) = Jac_FULL(6,9) - JVS(51) = 0.0085*B(639) -! JVS(52) = Jac_FULL(6,25) - JVS(52) = 0.0443*B(611) -! JVS(53) = Jac_FULL(6,30) - JVS(53) = 0.2157*B(641) -! JVS(54) = Jac_FULL(6,34) - JVS(54) = 0.0512*B(643) -! JVS(55) = Jac_FULL(6,114) - JVS(55) = 0.059024*B(619)+0.0033*B(621)+0.0271*B(623) -! JVS(56) = Jac_FULL(6,115) - JVS(56) = 0.17493*B(627)+0.0554*B(629)+0.0554*B(631) -! JVS(57) = Jac_FULL(6,116) - JVS(57) = 0.17493*B(599)+0.0554*B(601)+0.0554*B(603) -! JVS(58) = Jac_FULL(6,117) - JVS(58) = 0.17493*B(605)+0.1284*B(607)+0.1284*B(609) -! JVS(59) = Jac_FULL(6,118) - JVS(59) = 0.17493*B(613)+0.0554*B(615)+0.0554*B(617) -! JVS(60) = Jac_FULL(6,120) - JVS(60) = 0.17493*B(633)+0.0554*B(635)+0.0554*B(637) -! JVS(61) = Jac_FULL(6,148) - JVS(61) = 0.0554*B(604)+0.1284*B(610)+0.0443*B(612)+0.0554*B(618)+0.0271*B(624)+0.0076*B(626)+0.0554*B(632)+0.0554& - &*B(638)+0.0085*B(640)+0.2157*B(642)+0.0512*B(644) -! JVS(62) = Jac_FULL(6,150) - JVS(62) = 0.17493*B(600)+0.17493*B(606)+0.17493*B(614)+0.059024*B(620)+0.17493*B(628)+0.17493*B(634) -! JVS(63) = Jac_FULL(6,151) - JVS(63) = 0.0554*B(602)+0.1284*B(608)+0.0554*B(616)+0.0033*B(622)+0.0554*B(630)+0.0554*B(636) -! JVS(64) = Jac_FULL(7,7) - JVS(64) = 0 -! JVS(65) = Jac_FULL(7,8) - JVS(65) = 0.0113*B(625) -! JVS(66) = Jac_FULL(7,9) - JVS(66) = 0.0128*B(639) -! JVS(67) = Jac_FULL(7,25) - JVS(67) = 0.1621*B(611) -! JVS(68) = Jac_FULL(7,30) - JVS(68) = 0.0232*B(641) -! JVS(69) = Jac_FULL(7,34) - JVS(69) = 0.1598*B(643) -! JVS(70) = Jac_FULL(7,114) - JVS(70) = 0.025024*B(619)+0.0474*B(623) -! JVS(71) = Jac_FULL(7,115) - JVS(71) = 0.59019*B(627)+0.1278*B(629)+0.1278*B(631) -! JVS(72) = Jac_FULL(7,116) - JVS(72) = 0.59019*B(599)+0.1278*B(601)+0.1278*B(603) -! JVS(73) = Jac_FULL(7,117) - JVS(73) = 0.59019*B(605)+0.114*B(607)+0.114*B(609) -! JVS(74) = Jac_FULL(7,118) - JVS(74) = 0.59019*B(613)+0.1278*B(615)+0.1278*B(617) -! JVS(75) = Jac_FULL(7,120) - JVS(75) = 0.59019*B(633)+0.1278*B(635)+0.1278*B(637) -! JVS(76) = Jac_FULL(7,148) - JVS(76) = 0.1278*B(604)+0.114*B(610)+0.1621*B(612)+0.1278*B(618)+0.0474*B(624)+0.0113*B(626)+0.1278*B(632)+0.1278& - &*B(638)+0.0128*B(640)+0.0232*B(642)+0.1598*B(644) -! JVS(77) = Jac_FULL(7,150) - JVS(77) = 0.59019*B(600)+0.59019*B(606)+0.59019*B(614)+0.025024*B(620)+0.59019*B(628)+0.59019*B(634) -! JVS(78) = Jac_FULL(7,151) - JVS(78) = 0.1278*B(602)+0.114*B(608)+0.1278*B(616)+0.1278*B(630)+0.1278*B(636) -! JVS(79) = Jac_FULL(8,8) - JVS(79) = -B(625) -! JVS(80) = Jac_FULL(8,148) - JVS(80) = -B(626) -! JVS(81) = Jac_FULL(9,9) - JVS(81) = -B(639) -! JVS(82) = Jac_FULL(9,148) - JVS(82) = -B(640) -! JVS(83) = Jac_FULL(10,10) - JVS(83) = 0 -! JVS(84) = Jac_FULL(10,105) - JVS(84) = B(232) -! JVS(85) = Jac_FULL(10,108) - JVS(85) = B(179)+B(180) -! JVS(86) = Jac_FULL(10,125) - JVS(86) = B(419) -! JVS(87) = Jac_FULL(10,127) - JVS(87) = B(561) -! JVS(88) = Jac_FULL(10,131) - JVS(88) = B(571) -! JVS(89) = Jac_FULL(10,132) - JVS(89) = B(551) -! JVS(90) = Jac_FULL(10,134) - JVS(90) = B(256) -! JVS(91) = Jac_FULL(10,139) - JVS(91) = B(393)+B(395) -! JVS(92) = Jac_FULL(10,140) - JVS(92) = B(344)+B(346) -! JVS(93) = Jac_FULL(10,141) - JVS(93) = B(354)+B(356) -! JVS(94) = Jac_FULL(10,152) - JVS(94) = B(198)+B(199)+B(345)+B(355)+B(394) -! JVS(95) = Jac_FULL(10,155) - JVS(95) = B(150)+B(151)+B(181)+B(200)+B(233)+B(257)+B(347)+B(357)+B(396)+B(420)+B(552)+B(562)+B(572) -! JVS(96) = Jac_FULL(11,11) - JVS(96) = 0 -! JVS(97) = Jac_FULL(11,64) - JVS(97) = B(449) -! JVS(98) = Jac_FULL(11,65) - JVS(98) = B(166) -! JVS(99) = Jac_FULL(11,66) - JVS(99) = B(481) -! JVS(100) = Jac_FULL(11,76) - JVS(100) = B(441) -! JVS(101) = Jac_FULL(11,77) - JVS(101) = B(513) -! JVS(102) = Jac_FULL(11,81) - JVS(102) = B(431) -! JVS(103) = Jac_FULL(11,90) - JVS(103) = B(209) -! JVS(104) = Jac_FULL(11,92) - JVS(104) = B(455) -! JVS(105) = Jac_FULL(11,95) - JVS(105) = B(307) -! JVS(106) = Jac_FULL(11,96) - JVS(106) = B(250) -! JVS(107) = Jac_FULL(11,99) - JVS(107) = B(495) -! JVS(108) = Jac_FULL(11,100) - JVS(108) = B(469) -! JVS(109) = Jac_FULL(11,101) - JVS(109) = B(507) -! JVS(110) = Jac_FULL(11,105) - JVS(110) = B(234) -! JVS(111) = Jac_FULL(11,108) - JVS(111) = B(182) -! JVS(112) = Jac_FULL(11,112) - JVS(112) = B(413) -! JVS(113) = Jac_FULL(11,121) - JVS(113) = B(328) -! JVS(114) = Jac_FULL(11,125) - JVS(114) = B(421) -! JVS(115) = Jac_FULL(11,127) - JVS(115) = B(563) -! JVS(116) = Jac_FULL(11,130) - JVS(116) = B(475) -! JVS(117) = Jac_FULL(11,131) - JVS(117) = B(573) -! JVS(118) = Jac_FULL(11,132) - JVS(118) = B(553) -! JVS(119) = Jac_FULL(11,134) - JVS(119) = B(258) -! JVS(120) = Jac_FULL(11,139) - JVS(120) = B(397) -! JVS(121) = Jac_FULL(11,140) - JVS(121) = B(348) -! JVS(122) = Jac_FULL(11,141) - JVS(122) = B(358) -! JVS(123) = Jac_FULL(11,149) - JVS(123) = B(152)+B(167)+B(183)+B(201)+B(210)+B(235)+B(251)+B(259)+B(308)+B(329)+B(349)+B(359)+B(398)+B(414)+B(422)& - &+B(432)+B(442)+B(450)+B(456)+B(470)+B(476)+B(482)+B(496)+B(508)+B(514)+B(554)+B(564)+B(574) -! JVS(124) = Jac_FULL(11,152) - JVS(124) = B(202) -! JVS(125) = Jac_FULL(11,155) - JVS(125) = B(153) -! JVS(126) = Jac_FULL(12,12) - JVS(126) = 0 -! JVS(127) = Jac_FULL(12,64) - JVS(127) = B(453) -! JVS(128) = Jac_FULL(12,65) - JVS(128) = B(169) -! JVS(129) = Jac_FULL(12,66) - JVS(129) = B(483) -! JVS(130) = Jac_FULL(12,76) - JVS(130) = B(443) -! JVS(131) = Jac_FULL(12,77) - JVS(131) = B(515) -! JVS(132) = Jac_FULL(12,81) - JVS(132) = B(433) -! JVS(133) = Jac_FULL(12,86) - JVS(133) = B(272)+B(274) -! JVS(134) = Jac_FULL(12,90) - JVS(134) = B(211) -! JVS(135) = Jac_FULL(12,92) - JVS(135) = B(457) -! JVS(136) = Jac_FULL(12,95) - JVS(136) = B(309) -! JVS(137) = Jac_FULL(12,96) - JVS(137) = B(252) -! JVS(138) = Jac_FULL(12,99) - JVS(138) = B(497) -! JVS(139) = Jac_FULL(12,100) - JVS(139) = B(471) -! JVS(140) = Jac_FULL(12,101) - JVS(140) = B(509) -! JVS(141) = Jac_FULL(12,105) - JVS(141) = B(236) -! JVS(142) = Jac_FULL(12,108) - JVS(142) = B(184) -! JVS(143) = Jac_FULL(12,112) - JVS(143) = B(415) -! JVS(144) = Jac_FULL(12,121) - JVS(144) = B(330)+B(332) -! JVS(145) = Jac_FULL(12,125) - JVS(145) = B(423) -! JVS(146) = Jac_FULL(12,127) - JVS(146) = B(565) -! JVS(147) = Jac_FULL(12,130) - JVS(147) = B(477) -! JVS(148) = Jac_FULL(12,131) - JVS(148) = B(575) -! JVS(149) = Jac_FULL(12,132) - JVS(149) = B(555) -! JVS(150) = Jac_FULL(12,134) - JVS(150) = B(260) -! JVS(151) = Jac_FULL(12,139) - JVS(151) = B(399) -! JVS(152) = Jac_FULL(12,140) - JVS(152) = B(350) -! JVS(153) = Jac_FULL(12,141) - JVS(153) = B(361) -! JVS(154) = Jac_FULL(12,152) - JVS(154) = B(203) -! JVS(155) = Jac_FULL(12,153) - JVS(155) = B(154)+B(170)+B(185)+B(204)+B(212)+B(237)+B(253)+B(261)+B(273)+B(275)+B(310)+B(331)+B(333)+B(351)+B(362)& - &+B(400)+B(416)+B(424)+B(434)+B(444)+B(454)+B(458)+B(472)+B(478)+B(484)+B(498)+B(510)+B(516)+B(556)+B(566)& - &+B(576) -! JVS(156) = Jac_FULL(12,155) - JVS(156) = B(155) -! JVS(157) = Jac_FULL(13,13) - JVS(157) = 0 -! JVS(158) = Jac_FULL(13,15) - JVS(158) = B(190) -! JVS(159) = Jac_FULL(13,16) - JVS(159) = B(240) -! JVS(160) = Jac_FULL(13,17) - JVS(160) = B(196) -! JVS(161) = Jac_FULL(13,21) - JVS(161) = B(342) -! JVS(162) = Jac_FULL(13,24) - JVS(162) = B(175) -! JVS(163) = Jac_FULL(13,25) - JVS(163) = B(439)+B(611) -! JVS(164) = Jac_FULL(13,27) - JVS(164) = B(485) -! JVS(165) = Jac_FULL(13,28) - JVS(165) = B(162) -! JVS(166) = Jac_FULL(13,30) - JVS(166) = B(501)+B(641) -! JVS(167) = Jac_FULL(13,31) - JVS(167) = B(461) -! JVS(168) = Jac_FULL(13,33) - JVS(168) = B(403) -! JVS(169) = Jac_FULL(13,34) - JVS(169) = B(505)+B(643) -! JVS(170) = Jac_FULL(13,37) - JVS(170) = B(338) -! JVS(171) = Jac_FULL(13,40) - JVS(171) = B(186) -! JVS(172) = Jac_FULL(13,41) - JVS(172) = B(459) -! JVS(173) = Jac_FULL(13,46) - JVS(173) = B(340) -! JVS(174) = Jac_FULL(13,47) - JVS(174) = B(158) -! JVS(175) = Jac_FULL(13,48) - JVS(175) = B(294) -! JVS(176) = Jac_FULL(13,51) - JVS(176) = B(389) -! JVS(177) = Jac_FULL(13,52) - JVS(177) = B(559) -! JVS(178) = Jac_FULL(13,53) - JVS(178) = B(188) -! JVS(179) = Jac_FULL(13,54) - JVS(179) = B(491) -! JVS(180) = Jac_FULL(13,56) - JVS(180) = B(238) -! JVS(181) = Jac_FULL(13,58) - JVS(181) = B(336) -! JVS(182) = Jac_FULL(13,59) - JVS(182) = B(270) -! JVS(183) = Jac_FULL(13,60) - JVS(183) = B(222) -! JVS(184) = Jac_FULL(13,61) - JVS(184) = B(205) -! JVS(185) = Jac_FULL(13,62) - JVS(185) = B(381) -! JVS(186) = Jac_FULL(13,63) - JVS(186) = B(519) -! JVS(187) = Jac_FULL(13,68) - JVS(187) = B(207) -! JVS(188) = Jac_FULL(13,71) - JVS(188) = B(220) -! JVS(189) = Jac_FULL(13,72) - JVS(189) = B(367) -! JVS(190) = Jac_FULL(13,75) - JVS(190) = B(577) -! JVS(191) = Jac_FULL(13,78) - JVS(191) = B(311) -! JVS(192) = Jac_FULL(13,80) - JVS(192) = B(569) -! JVS(193) = Jac_FULL(13,83) - JVS(193) = B(429) -! JVS(194) = Jac_FULL(13,84) - JVS(194) = B(315) -! JVS(195) = Jac_FULL(13,85) - JVS(195) = B(365) -! JVS(196) = Jac_FULL(13,87) - JVS(196) = B(160) -! JVS(197) = Jac_FULL(13,88) - JVS(197) = B(567) -! JVS(198) = Jac_FULL(13,89) - JVS(198) = B(499) -! JVS(199) = Jac_FULL(13,94) - JVS(199) = B(334) -! JVS(200) = Jac_FULL(13,97) - JVS(200) = B(387) -! JVS(201) = Jac_FULL(13,98) - JVS(201) = B(511) -! JVS(202) = Jac_FULL(13,103) - JVS(202) = B(164) -! JVS(203) = Jac_FULL(13,104) - JVS(203) = B(427) -! JVS(204) = Jac_FULL(13,107) - JVS(204) = B(156) -! JVS(205) = Jac_FULL(13,109) - JVS(205) = B(218) -! JVS(206) = Jac_FULL(13,110) - JVS(206) = B(391) -! JVS(207) = Jac_FULL(13,114) - JVS(207) = B(385)+B(623) -! JVS(208) = Jac_FULL(13,115) - JVS(208) = B(543)+B(631) -! JVS(209) = Jac_FULL(13,116) - JVS(209) = B(525)+B(603) -! JVS(210) = Jac_FULL(13,117) - JVS(210) = B(531)+B(609) -! JVS(211) = Jac_FULL(13,118) - JVS(211) = B(537)+B(617) -! JVS(212) = Jac_FULL(13,120) - JVS(212) = B(549)+B(637) -! JVS(213) = Jac_FULL(13,122) - JVS(213) = B(266) -! JVS(214) = Jac_FULL(13,123) - JVS(214) = B(173) -! JVS(215) = Jac_FULL(13,124) - JVS(215) = B(216) -! JVS(216) = Jac_FULL(13,128) - JVS(216) = B(264) -! JVS(217) = Jac_FULL(13,129) - JVS(217) = B(194) -! JVS(218) = Jac_FULL(13,136) - JVS(218) = B(246) -! JVS(219) = Jac_FULL(13,137) - JVS(219) = B(276) -! JVS(220) = Jac_FULL(13,138) - JVS(220) = B(244) -! JVS(221) = Jac_FULL(13,143) - JVS(221) = B(292) -! JVS(222) = Jac_FULL(13,144) - JVS(222) = B(319) -! JVS(223) = Jac_FULL(13,146) - JVS(223) = B(148) -! JVS(224) = Jac_FULL(13,148) - JVS(224) = B(149)+B(157)+B(159)+B(161)+B(163)+B(165)+B(174)+B(176)+B(187)+B(189)+B(191)+B(195)+B(197)+B(206)+B(208)& - &+B(217)+B(219)+B(221)+B(223)+B(239)+B(241)+B(245)+B(247)+B(265)+B(267)+B(271)+B(277)+B(293)+B(295)+B(312)& - &+B(316)+B(320)+B(335)+B(337)+B(339)+B(341)+B(343)+B(366)+B(368)+B(382)+B(386)+B(388)+B(390)+B(392)+B(404)& - &+B(428)+B(430)+B(440)+B(460)+B(462)+B(486)+B(492)+B(500)+B(502)+B(506)+B(512)+B(520)+B(526)+B(532)+B(538)& - &+B(544)+B(550)+B(560)+B(568)+B(570)+B(578)+B(604)+B(610)+B(612)+B(618)+B(624)+B(632)+B(638)+B(642)+B(644) -! JVS(225) = Jac_FULL(14,14) - JVS(225) = -B(589) -! JVS(226) = Jac_FULL(14,148) - JVS(226) = -B(590) -! JVS(227) = Jac_FULL(15,15) - JVS(227) = -B(190) -! JVS(228) = Jac_FULL(15,148) - JVS(228) = -B(191) -! JVS(229) = Jac_FULL(16,16) - JVS(229) = -B(240) -! JVS(230) = Jac_FULL(16,148) - JVS(230) = -B(241) -! JVS(231) = Jac_FULL(17,17) - JVS(231) = -B(196) -! JVS(232) = Jac_FULL(17,148) - JVS(232) = -B(197) -! JVS(233) = Jac_FULL(18,18) - JVS(233) = -B(7)-B(126)-B(128) -! JVS(234) = Jac_FULL(18,106) - JVS(234) = -B(127)-B(129) -! JVS(235) = Jac_FULL(19,19) - JVS(235) = -B(597) -! JVS(236) = Jac_FULL(19,36) - JVS(236) = B(585)+B(587)+0.5*B(591) -! JVS(237) = Jac_FULL(19,148) - JVS(237) = B(588)+0.5*B(592)-B(598) -! JVS(238) = Jac_FULL(19,150) - JVS(238) = B(586) -! JVS(239) = Jac_FULL(20,20) - JVS(239) = -B(31) -! JVS(240) = Jac_FULL(20,90) - JVS(240) = B(209) -! JVS(241) = Jac_FULL(20,149) - JVS(241) = B(210) -! JVS(242) = Jac_FULL(21,21) - JVS(242) = -B(342) -! JVS(243) = Jac_FULL(21,97) - JVS(243) = 0.6*B(387) -! JVS(244) = Jac_FULL(21,148) - JVS(244) = -B(343)+0.6*B(388) -! JVS(245) = Jac_FULL(22,22) - JVS(245) = -B(49) -! JVS(246) = Jac_FULL(22,127) - JVS(246) = 0.1*B(565) -! JVS(247) = Jac_FULL(22,137) - JVS(247) = B(276) -! JVS(248) = Jac_FULL(22,148) - JVS(248) = B(277) -! JVS(249) = Jac_FULL(22,153) - JVS(249) = 0.1*B(566) -! JVS(250) = Jac_FULL(23,23) - JVS(250) = -B(503) -! JVS(251) = Jac_FULL(23,81) - JVS(251) = B(493) -! JVS(252) = Jac_FULL(23,147) - JVS(252) = B(494) -! JVS(253) = Jac_FULL(24,24) - JVS(253) = -B(175) -! JVS(254) = Jac_FULL(24,148) - JVS(254) = -B(176) -! JVS(255) = Jac_FULL(25,25) - JVS(255) = -B(439) -! JVS(256) = Jac_FULL(25,148) - JVS(256) = -B(440) -! JVS(257) = Jac_FULL(26,25) - JVS(257) = 0.12*B(439) -! JVS(258) = Jac_FULL(26,26) - JVS(258) = -B(14) -! JVS(259) = Jac_FULL(26,148) - JVS(259) = 0.12*B(440) -! JVS(260) = Jac_FULL(27,25) - JVS(260) = 0.53*B(439) -! JVS(261) = Jac_FULL(27,27) - JVS(261) = -B(485) -! JVS(262) = Jac_FULL(27,148) - JVS(262) = 0.53*B(440)-B(486) -! JVS(263) = Jac_FULL(28,28) - JVS(263) = -B(162)-B(171) -! JVS(264) = Jac_FULL(28,106) - JVS(264) = -B(172) -! JVS(265) = Jac_FULL(28,148) - JVS(265) = -B(163) -! JVS(266) = Jac_FULL(29,29) - JVS(266) = -B(8)-B(140)-B(594) -! JVS(267) = Jac_FULL(29,147) - JVS(267) = B(132) -! JVS(268) = Jac_FULL(29,150) - JVS(268) = B(133) -! JVS(269) = Jac_FULL(30,30) - JVS(269) = -B(501) -! JVS(270) = Jac_FULL(30,148) - JVS(270) = -B(502) -! JVS(271) = Jac_FULL(31,30) - JVS(271) = 0.18*B(501) -! JVS(272) = Jac_FULL(31,31) - JVS(272) = -B(461) -! JVS(273) = Jac_FULL(31,148) - JVS(273) = -B(462)+0.18*B(502) -! JVS(274) = Jac_FULL(32,30) - JVS(274) = 0.1*B(501) -! JVS(275) = Jac_FULL(32,32) - JVS(275) = -B(54) -! JVS(276) = Jac_FULL(32,34) - JVS(276) = 0.23*B(505) -! JVS(277) = Jac_FULL(32,148) - JVS(277) = 0.1*B(502)+0.23*B(506) -! JVS(278) = Jac_FULL(33,33) - JVS(278) = -B(61)-B(403) -! JVS(279) = Jac_FULL(33,139) - JVS(279) = B(397) -! JVS(280) = Jac_FULL(33,148) - JVS(280) = -B(404) -! JVS(281) = Jac_FULL(33,149) - JVS(281) = B(398) -! JVS(282) = Jac_FULL(34,34) - JVS(282) = -B(505) -! JVS(283) = Jac_FULL(34,148) - JVS(283) = -B(506) -! JVS(284) = Jac_FULL(35,34) - JVS(284) = 0.15*B(505) -! JVS(285) = Jac_FULL(35,35) - JVS(285) = -B(517) -! JVS(286) = Jac_FULL(35,148) - JVS(286) = 0.15*B(506)-B(518) -! JVS(287) = Jac_FULL(36,36) - JVS(287) = -B(585)-B(587)-B(591) -! JVS(288) = Jac_FULL(36,148) - JVS(288) = -B(588)-B(592) -! JVS(289) = Jac_FULL(36,150) - JVS(289) = -B(586) -! JVS(290) = Jac_FULL(37,37) - JVS(290) = -B(36)-B(338) -! JVS(291) = Jac_FULL(37,141) - JVS(291) = B(360) -! JVS(292) = Jac_FULL(37,148) - JVS(292) = -B(339) -! JVS(293) = Jac_FULL(38,38) - JVS(293) = -B(447) -! JVS(294) = Jac_FULL(38,50) - JVS(294) = B(20) -! JVS(295) = Jac_FULL(38,64) - JVS(295) = B(453) -! JVS(296) = Jac_FULL(38,148) - JVS(296) = -B(448) -! JVS(297) = Jac_FULL(38,153) - JVS(297) = B(454) -! JVS(298) = Jac_FULL(39,39) - JVS(298) = -B(1)-B(85)-B(93) -! JVS(299) = Jac_FULL(39,135) - JVS(299) = -B(86) -! JVS(300) = Jac_FULL(39,148) - JVS(300) = -B(94)+B(102) -! JVS(301) = Jac_FULL(39,149) - JVS(301) = B(103)+0.5*B(593) -! JVS(302) = Jac_FULL(40,40) - JVS(302) = -B(186) -! JVS(303) = Jac_FULL(40,108) - JVS(303) = 0.4*B(179)+0.2*B(180) -! JVS(304) = Jac_FULL(40,148) - JVS(304) = -B(187) -! JVS(305) = Jac_FULL(40,155) - JVS(305) = 0.2*B(181) -! JVS(306) = Jac_FULL(41,41) - JVS(306) = -B(23)-B(459) -! JVS(307) = Jac_FULL(41,92) - JVS(307) = B(455) -! JVS(308) = Jac_FULL(41,148) - JVS(308) = -B(460) -! JVS(309) = Jac_FULL(41,149) - JVS(309) = B(456) -! JVS(310) = Jac_FULL(42,20) - JVS(310) = B(31) -! JVS(311) = Jac_FULL(42,42) - JVS(311) = -B(213)-B(214) -! JVS(312) = Jac_FULL(42,90) - JVS(312) = 0.75*B(211) -! JVS(313) = Jac_FULL(42,149) - JVS(313) = 0 -! JVS(314) = Jac_FULL(42,153) - JVS(314) = 0.75*B(212) -! JVS(315) = Jac_FULL(43,43) - JVS(315) = -B(435)-B(437) -! JVS(316) = Jac_FULL(43,149) - JVS(316) = -B(436) -! JVS(317) = Jac_FULL(43,153) - JVS(317) = -B(438) -! JVS(318) = Jac_FULL(44,44) - JVS(318) = -B(17) -! JVS(319) = Jac_FULL(44,89) - JVS(319) = 0.2*B(60) -! JVS(320) = Jac_FULL(44,98) - JVS(320) = 0.2*B(62) -! JVS(321) = Jac_FULL(44,99) - JVS(321) = 0.2*B(497) -! JVS(322) = Jac_FULL(44,101) - JVS(322) = 0.2*B(509) -! JVS(323) = Jac_FULL(44,153) - JVS(323) = 0.2*B(498)+0.2*B(510) -! JVS(324) = Jac_FULL(45,45) - JVS(324) = -B(6)-B(104)-B(138) -! JVS(325) = Jac_FULL(45,147) - JVS(325) = B(130) -! JVS(326) = Jac_FULL(45,148) - JVS(326) = -B(105) -! JVS(327) = Jac_FULL(45,149) - JVS(327) = B(131) -! JVS(328) = Jac_FULL(46,46) - JVS(328) = -B(340) -! JVS(329) = Jac_FULL(46,141) - JVS(329) = B(354)+0.75*B(356)+0.87*B(361)+0.95*B(363) -! JVS(330) = Jac_FULL(46,148) - JVS(330) = -B(341) -! JVS(331) = Jac_FULL(46,150) - JVS(331) = 0.95*B(364) -! JVS(332) = Jac_FULL(46,152) - JVS(332) = B(355) -! JVS(333) = Jac_FULL(46,153) - JVS(333) = 0.87*B(362) -! JVS(334) = Jac_FULL(46,155) - JVS(334) = 0.75*B(357) -! JVS(335) = Jac_FULL(47,47) - JVS(335) = -B(30)-B(158) -! JVS(336) = Jac_FULL(47,148) - JVS(336) = -B(159) -! JVS(337) = Jac_FULL(47,149) - JVS(337) = B(152) -! JVS(338) = Jac_FULL(47,155) - JVS(338) = B(153) -! JVS(339) = Jac_FULL(48,48) - JVS(339) = -B(294) -! JVS(340) = Jac_FULL(48,145) - JVS(340) = B(282) -! JVS(341) = Jac_FULL(48,148) - JVS(341) = -B(295) -! JVS(342) = Jac_FULL(48,149) - JVS(342) = B(283) -! JVS(343) = Jac_FULL(49,49) - JVS(343) = -B(43)-B(313) -! JVS(344) = Jac_FULL(49,95) - JVS(344) = 0.8*B(307) -! JVS(345) = Jac_FULL(49,148) - JVS(345) = -B(314) -! JVS(346) = Jac_FULL(49,149) - JVS(346) = 0.8*B(308) -! JVS(347) = Jac_FULL(50,50) - JVS(347) = -B(20)-B(451) -! JVS(348) = Jac_FULL(50,64) - JVS(348) = B(449) -! JVS(349) = Jac_FULL(50,148) - JVS(349) = -B(452) -! JVS(350) = Jac_FULL(50,149) - JVS(350) = B(450) -! JVS(351) = Jac_FULL(51,51) - JVS(351) = -B(389) -! JVS(352) = Jac_FULL(51,142) - JVS(352) = 0.2*B(373) -! JVS(353) = Jac_FULL(51,148) - JVS(353) = -B(390) -! JVS(354) = Jac_FULL(51,155) - JVS(354) = 0.2*B(374) -! JVS(355) = Jac_FULL(52,52) - JVS(355) = -B(48)-B(559) -! JVS(356) = Jac_FULL(52,132) - JVS(356) = B(553) -! JVS(357) = Jac_FULL(52,148) - JVS(357) = -B(560) -! JVS(358) = Jac_FULL(52,149) - JVS(358) = B(554) -! JVS(359) = Jac_FULL(53,53) - JVS(359) = -B(21)-B(188) -! JVS(360) = Jac_FULL(53,108) - JVS(360) = B(182) -! JVS(361) = Jac_FULL(53,148) - JVS(361) = -B(189) -! JVS(362) = Jac_FULL(53,149) - JVS(362) = B(183) -! JVS(363) = Jac_FULL(54,54) - JVS(363) = -B(51)-B(491) -! JVS(364) = Jac_FULL(54,66) - JVS(364) = B(481) -! JVS(365) = Jac_FULL(54,148) - JVS(365) = -B(492) -! JVS(366) = Jac_FULL(54,149) - JVS(366) = B(482) -! JVS(367) = Jac_FULL(55,55) - JVS(367) = -B(53)-B(262) -! JVS(368) = Jac_FULL(55,134) - JVS(368) = 0.85*B(258) -! JVS(369) = Jac_FULL(55,148) - JVS(369) = -B(263) -! JVS(370) = Jac_FULL(55,149) - JVS(370) = 0.85*B(259) -! JVS(371) = Jac_FULL(56,56) - JVS(371) = -B(22)-B(238) -! JVS(372) = Jac_FULL(56,105) - JVS(372) = B(234) -! JVS(373) = Jac_FULL(56,148) - JVS(373) = -B(239) -! JVS(374) = Jac_FULL(56,149) - JVS(374) = B(235) -! JVS(375) = Jac_FULL(57,57) - JVS(375) = -B(19) -! JVS(376) = Jac_FULL(57,98) - JVS(376) = 0.21*B(62) -! JVS(377) = Jac_FULL(57,101) - JVS(377) = 0.21*B(509) -! JVS(378) = Jac_FULL(57,153) - JVS(378) = 0.21*B(510) -! JVS(379) = Jac_FULL(58,58) - JVS(379) = -B(336) -! JVS(380) = Jac_FULL(58,115) - JVS(380) = 0.05*B(541) -! JVS(381) = Jac_FULL(58,116) - JVS(381) = 0.05*B(523) -! JVS(382) = Jac_FULL(58,117) - JVS(382) = 0.05*B(529) -! JVS(383) = Jac_FULL(58,118) - JVS(383) = 0.05*B(535) -! JVS(384) = Jac_FULL(58,120) - JVS(384) = 0.05*B(547) -! JVS(385) = Jac_FULL(58,148) - JVS(385) = -B(337) -! JVS(386) = Jac_FULL(58,151) - JVS(386) = 0.05*B(524)+0.05*B(530)+0.05*B(536)+0.05*B(542)+0.05*B(548) -! JVS(387) = Jac_FULL(59,59) - JVS(387) = -B(268)-B(270) -! JVS(388) = Jac_FULL(59,148) - JVS(388) = -B(271) -! JVS(389) = Jac_FULL(59,150) - JVS(389) = -B(269) -! JVS(390) = Jac_FULL(60,60) - JVS(390) = -B(177)-B(222) -! JVS(391) = Jac_FULL(60,148) - JVS(391) = -B(223) -! JVS(392) = Jac_FULL(60,151) - JVS(392) = -B(178) -! JVS(393) = Jac_FULL(61,61) - JVS(393) = -B(205) -! JVS(394) = Jac_FULL(61,128) - JVS(394) = 0.12*B(230) -! JVS(395) = Jac_FULL(61,148) - JVS(395) = -B(206) -! JVS(396) = Jac_FULL(61,149) - JVS(396) = 0.15*B(201)+0.15*B(300) -! JVS(397) = Jac_FULL(61,151) - JVS(397) = 0.12*B(231) -! JVS(398) = Jac_FULL(61,152) - JVS(398) = 0.1*B(199)+0.15*B(202) -! JVS(399) = Jac_FULL(61,154) - JVS(399) = 0.15*B(301) -! JVS(400) = Jac_FULL(61,155) - JVS(400) = 0.1*B(200) -! JVS(401) = Jac_FULL(62,62) - JVS(401) = -B(38)-B(381) -! JVS(402) = Jac_FULL(62,142) - JVS(402) = B(375) -! JVS(403) = Jac_FULL(62,148) - JVS(403) = -B(382) -! JVS(404) = Jac_FULL(62,149) - JVS(404) = B(376) -! JVS(405) = Jac_FULL(63,63) - JVS(405) = -B(63)-B(519) -! JVS(406) = Jac_FULL(63,77) - JVS(406) = B(513) -! JVS(407) = Jac_FULL(63,148) - JVS(407) = -B(520) -! JVS(408) = Jac_FULL(63,149) - JVS(408) = B(514) -! JVS(409) = Jac_FULL(64,30) - JVS(409) = 0.07*B(501) -! JVS(410) = Jac_FULL(64,34) - JVS(410) = 0.06*B(505) -! JVS(411) = Jac_FULL(64,50) - JVS(411) = B(451) -! JVS(412) = Jac_FULL(64,64) - JVS(412) = -B(449)-B(453) -! JVS(413) = Jac_FULL(64,148) - JVS(413) = B(452)+0.07*B(502)+0.06*B(506) -! JVS(414) = Jac_FULL(64,149) - JVS(414) = -B(450) -! JVS(415) = Jac_FULL(64,153) - JVS(415) = -B(454) -! JVS(416) = Jac_FULL(65,65) - JVS(416) = -B(166)-B(168)-B(169) -! JVS(417) = Jac_FULL(65,146) - JVS(417) = B(142) -! JVS(418) = Jac_FULL(65,149) - JVS(418) = B(143)-B(167) -! JVS(419) = Jac_FULL(65,153) - JVS(419) = -B(170) -! JVS(420) = Jac_FULL(66,27) - JVS(420) = 0.14*B(485) -! JVS(421) = Jac_FULL(66,31) - JVS(421) = 0.2*B(461) -! JVS(422) = Jac_FULL(66,54) - JVS(422) = B(491) -! JVS(423) = Jac_FULL(66,66) - JVS(423) = -B(481)-B(483) -! JVS(424) = Jac_FULL(66,148) - JVS(424) = 0.2*B(462)+0.14*B(486)+B(492) -! JVS(425) = Jac_FULL(66,149) - JVS(425) = -B(482) -! JVS(426) = Jac_FULL(66,153) - JVS(426) = -B(484) -! JVS(427) = Jac_FULL(67,67) - JVS(427) = -B(13)-B(445) -! JVS(428) = Jac_FULL(67,76) - JVS(428) = B(441) -! JVS(429) = Jac_FULL(67,148) - JVS(429) = -B(446) -! JVS(430) = Jac_FULL(67,149) - JVS(430) = B(442) -! JVS(431) = Jac_FULL(68,68) - JVS(431) = -B(29)-B(207) -! JVS(432) = Jac_FULL(68,148) - JVS(432) = -B(208) -! JVS(433) = Jac_FULL(68,149) - JVS(433) = 0.4*B(201)+0.4*B(300) -! JVS(434) = Jac_FULL(68,152) - JVS(434) = 0.4*B(202) -! JVS(435) = Jac_FULL(68,154) - JVS(435) = 0.4*B(301) -! JVS(436) = Jac_FULL(69,26) - JVS(436) = B(14) -! JVS(437) = Jac_FULL(69,67) - JVS(437) = 0.5*B(13) -! JVS(438) = Jac_FULL(69,69) - JVS(438) = -B(16) -! JVS(439) = Jac_FULL(69,76) - JVS(439) = 0.5*B(443) -! JVS(440) = Jac_FULL(69,89) - JVS(440) = 0.2*B(60) -! JVS(441) = Jac_FULL(69,98) - JVS(441) = 0.06*B(62) -! JVS(442) = Jac_FULL(69,99) - JVS(442) = 0.2*B(497) -! JVS(443) = Jac_FULL(69,101) - JVS(443) = 0.06*B(509) -! JVS(444) = Jac_FULL(69,148) - JVS(444) = 0 -! JVS(445) = Jac_FULL(69,149) - JVS(445) = 0 -! JVS(446) = Jac_FULL(69,153) - JVS(446) = 0.5*B(444)+0.2*B(498)+0.06*B(510) -! JVS(447) = Jac_FULL(70,29) - JVS(447) = 2*B(594) -! JVS(448) = Jac_FULL(70,36) - JVS(448) = B(585) -! JVS(449) = Jac_FULL(70,70) - JVS(449) = -B(5)-B(136) -! JVS(450) = Jac_FULL(70,129) - JVS(450) = B(192) -! JVS(451) = Jac_FULL(70,138) - JVS(451) = B(242) -! JVS(452) = Jac_FULL(70,146) - JVS(452) = B(144) -! JVS(453) = Jac_FULL(70,147) - JVS(453) = B(134)+0.5*B(595) -! JVS(454) = Jac_FULL(70,148) - JVS(454) = B(135)-B(137) -! JVS(455) = Jac_FULL(70,150) - JVS(455) = B(145)+B(193)+B(243)+B(586)+B(596) -! JVS(456) = Jac_FULL(71,71) - JVS(456) = -B(50)-B(220)-B(226) -! JVS(457) = Jac_FULL(71,147) - JVS(457) = B(224) -! JVS(458) = Jac_FULL(71,148) - JVS(458) = -B(221) -! JVS(459) = Jac_FULL(71,152) - JVS(459) = B(225) -! JVS(460) = Jac_FULL(72,72) - JVS(460) = -B(367) -! JVS(461) = Jac_FULL(72,141) - JVS(461) = 0.08*B(361) -! JVS(462) = Jac_FULL(72,148) - JVS(462) = -B(368) -! JVS(463) = Jac_FULL(72,153) - JVS(463) = 0.08*B(362) -! JVS(464) = Jac_FULL(73,27) - JVS(464) = 0.06*B(485) -! JVS(465) = Jac_FULL(73,31) - JVS(465) = 0.07*B(461) -! JVS(466) = Jac_FULL(73,35) - JVS(466) = 0.07*B(517) -! JVS(467) = Jac_FULL(73,41) - JVS(467) = B(23) -! JVS(468) = Jac_FULL(73,73) - JVS(468) = -B(487)-B(489) -! JVS(469) = Jac_FULL(73,92) - JVS(469) = B(457) -! JVS(470) = Jac_FULL(73,147) - JVS(470) = -B(488) -! JVS(471) = Jac_FULL(73,148) - JVS(471) = 0.07*B(462)+0.06*B(486)+0.07*B(518) -! JVS(472) = Jac_FULL(73,149) - JVS(472) = 0 -! JVS(473) = Jac_FULL(73,151) - JVS(473) = -B(490) -! JVS(474) = Jac_FULL(73,153) - JVS(474) = B(458) -! JVS(475) = Jac_FULL(74,74) - JVS(475) = -B(52)-B(254) -! JVS(476) = Jac_FULL(74,96) - JVS(476) = B(250) -! JVS(477) = Jac_FULL(74,148) - JVS(477) = -B(255) -! JVS(478) = Jac_FULL(74,149) - JVS(478) = B(251) -! JVS(479) = Jac_FULL(75,75) - JVS(479) = -B(57)-B(577) -! JVS(480) = Jac_FULL(75,131) - JVS(480) = B(573) -! JVS(481) = Jac_FULL(75,148) - JVS(481) = -B(578) -! JVS(482) = Jac_FULL(75,149) - JVS(482) = B(574) -! JVS(483) = Jac_FULL(76,25) - JVS(483) = 0.35*B(439) -! JVS(484) = Jac_FULL(76,67) - JVS(484) = B(445) -! JVS(485) = Jac_FULL(76,76) - JVS(485) = -B(441)-B(443) -! JVS(486) = Jac_FULL(76,148) - JVS(486) = 0.35*B(440)+B(446) -! JVS(487) = Jac_FULL(76,149) - JVS(487) = -B(442) -! JVS(488) = Jac_FULL(76,153) - JVS(488) = -B(444) -! JVS(489) = Jac_FULL(77,35) - JVS(489) = 0.3*B(517) -! JVS(490) = Jac_FULL(77,63) - JVS(490) = B(519) -! JVS(491) = Jac_FULL(77,77) - JVS(491) = -B(513)-B(515) -! JVS(492) = Jac_FULL(77,148) - JVS(492) = 0.3*B(518)+B(520) -! JVS(493) = Jac_FULL(77,149) - JVS(493) = -B(514) -! JVS(494) = Jac_FULL(77,153) - JVS(494) = -B(516) -! JVS(495) = Jac_FULL(78,78) - JVS(495) = -B(42)-B(311) -! JVS(496) = Jac_FULL(78,93) - JVS(496) = 0.8*B(11) -! JVS(497) = Jac_FULL(78,94) - JVS(497) = 0.8*B(12) -! JVS(498) = Jac_FULL(78,121) - JVS(498) = 0.8*B(330) -! JVS(499) = Jac_FULL(78,148) - JVS(499) = -B(312) -! JVS(500) = Jac_FULL(78,153) - JVS(500) = 0.8*B(331) -! JVS(501) = Jac_FULL(79,79) - JVS(501) = -B(405)-B(407) -! JVS(502) = Jac_FULL(79,113) - JVS(502) = B(409) -! JVS(503) = Jac_FULL(79,148) - JVS(503) = B(410) -! JVS(504) = Jac_FULL(79,149) - JVS(504) = -B(406) -! JVS(505) = Jac_FULL(79,153) - JVS(505) = -B(408) -! JVS(506) = Jac_FULL(80,80) - JVS(506) = -B(56)-B(569) -! JVS(507) = Jac_FULL(80,131) - JVS(507) = 0.2*B(575) -! JVS(508) = Jac_FULL(80,132) - JVS(508) = 0.5*B(551)+0.2*B(555) -! JVS(509) = Jac_FULL(80,148) - JVS(509) = -B(570) -! JVS(510) = Jac_FULL(80,153) - JVS(510) = 0.2*B(556)+0.2*B(576) -! JVS(511) = Jac_FULL(80,155) - JVS(511) = 0.5*B(552) -! JVS(512) = Jac_FULL(81,23) - JVS(512) = B(503) -! JVS(513) = Jac_FULL(81,38) - JVS(513) = B(447) -! JVS(514) = Jac_FULL(81,50) - JVS(514) = 0 -! JVS(515) = Jac_FULL(81,64) - JVS(515) = 0 -! JVS(516) = Jac_FULL(81,81) - JVS(516) = -B(431)-B(433)-B(493) -! JVS(517) = Jac_FULL(81,147) - JVS(517) = -B(494) -! JVS(518) = Jac_FULL(81,148) - JVS(518) = B(448) -! JVS(519) = Jac_FULL(81,149) - JVS(519) = -B(432) -! JVS(520) = Jac_FULL(81,153) - JVS(520) = -B(434) -! JVS(521) = Jac_FULL(82,82) - JVS(521) = -B(66)-B(83)-B(91) -! JVS(522) = Jac_FULL(82,87) - JVS(522) = 0.05*B(64) -! JVS(523) = Jac_FULL(82,106) - JVS(523) = 0.05*B(65)-B(67) -! JVS(524) = Jac_FULL(82,135) - JVS(524) = -B(84) -! JVS(525) = Jac_FULL(82,146) - JVS(525) = B(25) -! JVS(526) = Jac_FULL(82,148) - JVS(526) = -B(92) -! JVS(527) = Jac_FULL(83,83) - JVS(527) = -B(41)-B(429) -! JVS(528) = Jac_FULL(83,125) - JVS(528) = B(421) -! JVS(529) = Jac_FULL(83,148) - JVS(529) = -B(430) -! JVS(530) = Jac_FULL(83,149) - JVS(530) = B(422) -! JVS(531) = Jac_FULL(84,84) - JVS(531) = -B(44)-B(315)-B(324) -! JVS(532) = Jac_FULL(84,147) - JVS(532) = B(321) -! JVS(533) = Jac_FULL(84,148) - JVS(533) = -B(316) -! JVS(534) = Jac_FULL(84,154) - JVS(534) = B(322) -! JVS(535) = Jac_FULL(85,85) - JVS(535) = -B(365) -! JVS(536) = Jac_FULL(85,140) - JVS(536) = 0.08*B(350) -! JVS(537) = Jac_FULL(85,148) - JVS(537) = -B(366) -! JVS(538) = Jac_FULL(85,153) - JVS(538) = 0.08*B(351) -! JVS(539) = Jac_FULL(86,59) - JVS(539) = B(270) -! JVS(540) = Jac_FULL(86,86) - JVS(540) = -B(272)-B(274) -! JVS(541) = Jac_FULL(86,148) - JVS(541) = B(271) -! JVS(542) = Jac_FULL(86,150) - JVS(542) = 0 -! JVS(543) = Jac_FULL(86,153) - JVS(543) = -B(273)-B(275) -! JVS(544) = Jac_FULL(87,87) - JVS(544) = -B(64)-B(160) -! JVS(545) = Jac_FULL(87,106) - JVS(545) = -B(65) -! JVS(546) = Jac_FULL(87,128) - JVS(546) = 0.1*B(230) -! JVS(547) = Jac_FULL(87,148) - JVS(547) = -B(161) -! JVS(548) = Jac_FULL(87,151) - JVS(548) = 0.1*B(231) -! JVS(549) = Jac_FULL(88,88) - JVS(549) = -B(55)-B(567) -! JVS(550) = Jac_FULL(88,127) - JVS(550) = B(563) -! JVS(551) = Jac_FULL(88,148) - JVS(551) = -B(568) -! JVS(552) = Jac_FULL(88,149) - JVS(552) = B(564) -! JVS(553) = Jac_FULL(89,89) - JVS(553) = -B(60)-B(499) -! JVS(554) = Jac_FULL(89,99) - JVS(554) = B(495) -! JVS(555) = Jac_FULL(89,148) - JVS(555) = -B(500) -! JVS(556) = Jac_FULL(89,149) - JVS(556) = B(496) -! JVS(557) = Jac_FULL(90,60) - JVS(557) = B(222) -! JVS(558) = Jac_FULL(90,90) - JVS(558) = -B(209)-B(211) -! JVS(559) = Jac_FULL(90,148) - JVS(559) = B(223) -! JVS(560) = Jac_FULL(90,149) - JVS(560) = -B(210) -! JVS(561) = Jac_FULL(90,151) - JVS(561) = 0 -! JVS(562) = Jac_FULL(90,153) - JVS(562) = -B(212) -! JVS(563) = Jac_FULL(91,37) - JVS(563) = B(36) -! JVS(564) = Jac_FULL(91,89) - JVS(564) = 0.2*B(60) -! JVS(565) = Jac_FULL(91,91) - JVS(565) = -B(18) -! JVS(566) = Jac_FULL(91,98) - JVS(566) = 0.15*B(62) -! JVS(567) = Jac_FULL(91,99) - JVS(567) = 0.2*B(497) -! JVS(568) = Jac_FULL(91,101) - JVS(568) = 0.15*B(509) -! JVS(569) = Jac_FULL(91,110) - JVS(569) = B(46) -! JVS(570) = Jac_FULL(91,141) - JVS(570) = 0 -! JVS(571) = Jac_FULL(91,148) - JVS(571) = 0 -! JVS(572) = Jac_FULL(91,149) - JVS(572) = 0 -! JVS(573) = Jac_FULL(91,153) - JVS(573) = 0.2*B(498)+0.15*B(510) -! JVS(574) = Jac_FULL(92,41) - JVS(574) = B(459) -! JVS(575) = Jac_FULL(92,73) - JVS(575) = B(489) -! JVS(576) = Jac_FULL(92,81) - JVS(576) = 0.4*B(431)+B(433) -! JVS(577) = Jac_FULL(92,92) - JVS(577) = -B(455)-B(457) -! JVS(578) = Jac_FULL(92,147) - JVS(578) = 0 -! JVS(579) = Jac_FULL(92,148) - JVS(579) = B(460) -! JVS(580) = Jac_FULL(92,149) - JVS(580) = 0.4*B(432)-B(456) -! JVS(581) = Jac_FULL(92,151) - JVS(581) = B(490) -! JVS(582) = Jac_FULL(92,153) - JVS(582) = B(434)-B(458) -! JVS(583) = Jac_FULL(93,93) - JVS(583) = -B(11)-B(326) -! JVS(584) = Jac_FULL(93,121) - JVS(584) = B(332) -! JVS(585) = Jac_FULL(93,148) - JVS(585) = -B(327) -! JVS(586) = Jac_FULL(93,153) - JVS(586) = B(333) -! JVS(587) = Jac_FULL(94,94) - JVS(587) = -B(12)-B(334) -! JVS(588) = Jac_FULL(94,121) - JVS(588) = B(328) -! JVS(589) = Jac_FULL(94,148) - JVS(589) = -B(335) -! JVS(590) = Jac_FULL(94,149) - JVS(590) = B(329) -! JVS(591) = Jac_FULL(95,49) - JVS(591) = B(313) -! JVS(592) = Jac_FULL(95,78) - JVS(592) = B(311) -! JVS(593) = Jac_FULL(95,93) - JVS(593) = 0 -! JVS(594) = Jac_FULL(95,94) - JVS(594) = 0 -! JVS(595) = Jac_FULL(95,95) - JVS(595) = -B(307)-B(309) -! JVS(596) = Jac_FULL(95,121) - JVS(596) = 0 -! JVS(597) = Jac_FULL(95,148) - JVS(597) = B(312)+B(314) -! JVS(598) = Jac_FULL(95,149) - JVS(598) = -B(308) -! JVS(599) = Jac_FULL(95,153) - JVS(599) = -B(310) -! JVS(600) = Jac_FULL(96,74) - JVS(600) = 0.5*B(254) -! JVS(601) = Jac_FULL(96,96) - JVS(601) = -B(250)-B(252) -! JVS(602) = Jac_FULL(96,128) - JVS(602) = B(264) -! JVS(603) = Jac_FULL(96,148) - JVS(603) = 0.5*B(255)+B(265) -! JVS(604) = Jac_FULL(96,149) - JVS(604) = -B(251) -! JVS(605) = Jac_FULL(96,153) - JVS(605) = -B(253) -! JVS(606) = Jac_FULL(97,62) - JVS(606) = B(38) -! JVS(607) = Jac_FULL(97,97) - JVS(607) = -B(39)-B(387) -! JVS(608) = Jac_FULL(97,140) - JVS(608) = B(348) -! JVS(609) = Jac_FULL(97,141) - JVS(609) = B(358) -! JVS(610) = Jac_FULL(97,142) - JVS(610) = 0 -! JVS(611) = Jac_FULL(97,148) - JVS(611) = -B(388) -! JVS(612) = Jac_FULL(97,149) - JVS(612) = B(349)+B(359) -! JVS(613) = Jac_FULL(98,98) - JVS(613) = -B(62)-B(511) -! JVS(614) = Jac_FULL(98,101) - JVS(614) = B(507) -! JVS(615) = Jac_FULL(98,148) - JVS(615) = -B(512) -! JVS(616) = Jac_FULL(98,149) - JVS(616) = B(508) -! JVS(617) = Jac_FULL(99,30) - JVS(617) = 0.65*B(501) -! JVS(618) = Jac_FULL(99,89) - JVS(618) = B(499) -! JVS(619) = Jac_FULL(99,99) - JVS(619) = -B(495)-B(497) -! JVS(620) = Jac_FULL(99,148) - JVS(620) = B(500)+0.65*B(502) -! JVS(621) = Jac_FULL(99,149) - JVS(621) = -B(496) -! JVS(622) = Jac_FULL(99,153) - JVS(622) = -B(498) -! JVS(623) = Jac_FULL(100,69) - JVS(623) = 0.6*B(16) -! JVS(624) = Jac_FULL(100,76) - JVS(624) = 0 -! JVS(625) = Jac_FULL(100,89) - JVS(625) = 0 -! JVS(626) = Jac_FULL(100,98) - JVS(626) = 0 -! JVS(627) = Jac_FULL(100,99) - JVS(627) = 0 -! JVS(628) = Jac_FULL(100,100) - JVS(628) = -B(469)-B(471)-B(473) -! JVS(629) = Jac_FULL(100,101) - JVS(629) = 0 -! JVS(630) = Jac_FULL(100,147) - JVS(630) = -B(474) -! JVS(631) = Jac_FULL(100,148) - JVS(631) = 0 -! JVS(632) = Jac_FULL(100,149) - JVS(632) = -B(470) -! JVS(633) = Jac_FULL(100,153) - JVS(633) = -B(472) -! JVS(634) = Jac_FULL(101,34) - JVS(634) = 0.56*B(505) -! JVS(635) = Jac_FULL(101,98) - JVS(635) = B(511) -! JVS(636) = Jac_FULL(101,101) - JVS(636) = -B(507)-B(509) -! JVS(637) = Jac_FULL(101,148) - JVS(637) = 0.56*B(506)+B(512) -! JVS(638) = Jac_FULL(101,149) - JVS(638) = -B(508) -! JVS(639) = Jac_FULL(101,153) - JVS(639) = -B(510) -! JVS(640) = Jac_FULL(102,44) - JVS(640) = 0.6*B(17) -! JVS(641) = Jac_FULL(102,89) - JVS(641) = 0 -! JVS(642) = Jac_FULL(102,98) - JVS(642) = 0 -! JVS(643) = Jac_FULL(102,99) - JVS(643) = 0 -! JVS(644) = Jac_FULL(102,101) - JVS(644) = 0 -! JVS(645) = Jac_FULL(102,102) - JVS(645) = -B(463)-B(465)-B(467) -! JVS(646) = Jac_FULL(102,147) - JVS(646) = -B(468) -! JVS(647) = Jac_FULL(102,148) - JVS(647) = 0 -! JVS(648) = Jac_FULL(102,149) - JVS(648) = -B(464) -! JVS(649) = Jac_FULL(102,153) - JVS(649) = -B(466) -! JVS(650) = Jac_FULL(103,24) - JVS(650) = 0.35*B(175) -! JVS(651) = Jac_FULL(103,60) - JVS(651) = 0.37*B(177) -! JVS(652) = Jac_FULL(103,65) - JVS(652) = B(166)+B(169) -! JVS(653) = Jac_FULL(103,103) - JVS(653) = -B(164) -! JVS(654) = Jac_FULL(103,104) - JVS(654) = 0.17*B(425) -! JVS(655) = Jac_FULL(103,114) - JVS(655) = 0.11*B(383) -! JVS(656) = Jac_FULL(103,115) - JVS(656) = 0.05*B(541) -! JVS(657) = Jac_FULL(103,116) - JVS(657) = 0.05*B(523) -! JVS(658) = Jac_FULL(103,117) - JVS(658) = 0.05*B(529) -! JVS(659) = Jac_FULL(103,118) - JVS(659) = 0.05*B(535) -! JVS(660) = Jac_FULL(103,120) - JVS(660) = 0.05*B(547) -! JVS(661) = Jac_FULL(103,128) - JVS(661) = 0.12*B(230) -! JVS(662) = Jac_FULL(103,143) - JVS(662) = 0.33*B(290) -! JVS(663) = Jac_FULL(103,144) - JVS(663) = 0.12*B(317) -! JVS(664) = Jac_FULL(103,146) - JVS(664) = 0 -! JVS(665) = Jac_FULL(103,148) - JVS(665) = -B(165)+0.35*B(176) -! JVS(666) = Jac_FULL(103,149) - JVS(666) = B(167) -! JVS(667) = Jac_FULL(103,151) - JVS(667) = 0.37*B(178)+0.12*B(231)+0.33*B(291)+0.12*B(318)+0.11*B(384)+0.17*B(426)+0.05*B(524)+0.05*B(530)+0.05*B(536)& - &+0.05*B(542)+0.05*B(548) -! JVS(668) = Jac_FULL(103,153) - JVS(668) = B(170) -! JVS(669) = Jac_FULL(104,104) - JVS(669) = -B(411)-B(425)-B(427) -! JVS(670) = Jac_FULL(104,148) - JVS(670) = -B(428) -! JVS(671) = Jac_FULL(104,150) - JVS(671) = -B(412) -! JVS(672) = Jac_FULL(104,151) - JVS(672) = -B(426) -! JVS(673) = Jac_FULL(105,16) - JVS(673) = B(240) -! JVS(674) = Jac_FULL(105,56) - JVS(674) = B(238) -! JVS(675) = Jac_FULL(105,105) - JVS(675) = -B(232)-B(234)-B(236) -! JVS(676) = Jac_FULL(105,148) - JVS(676) = B(239)+B(241) -! JVS(677) = Jac_FULL(105,149) - JVS(677) = -B(235) -! JVS(678) = Jac_FULL(105,153) - JVS(678) = -B(237) -! JVS(679) = Jac_FULL(105,155) - JVS(679) = -B(233) -! JVS(680) = Jac_FULL(106,18) - JVS(680) = B(7)-B(126)-B(128) -! JVS(681) = Jac_FULL(106,28) - JVS(681) = -B(171) -! JVS(682) = Jac_FULL(106,82) - JVS(682) = -B(66) -! JVS(683) = Jac_FULL(106,87) - JVS(683) = -B(64) -! JVS(684) = Jac_FULL(106,106) - JVS(684) = -B(65)-B(67)-B(68)-B(70)-B(72)-B(74)-B(127)-B(129)-B(172) -! JVS(685) = Jac_FULL(106,128) - JVS(685) = 0 -! JVS(686) = Jac_FULL(106,135) - JVS(686) = 0 -! JVS(687) = Jac_FULL(106,146) - JVS(687) = 0 -! JVS(688) = Jac_FULL(106,148) - JVS(688) = 0 -! JVS(689) = Jac_FULL(106,151) - JVS(689) = B(4)-B(75) -! JVS(690) = Jac_FULL(107,107) - JVS(690) = -B(156) -! JVS(691) = Jac_FULL(107,108) - JVS(691) = 0.3*B(180) -! JVS(692) = Jac_FULL(107,125) - JVS(692) = 0.25*B(419) -! JVS(693) = Jac_FULL(107,127) - JVS(693) = 0.25*B(561) -! JVS(694) = Jac_FULL(107,131) - JVS(694) = 0.25*B(571) -! JVS(695) = Jac_FULL(107,132) - JVS(695) = 0.25*B(551) -! JVS(696) = Jac_FULL(107,134) - JVS(696) = 0.5*B(256) -! JVS(697) = Jac_FULL(107,139) - JVS(697) = 0.3*B(395) -! JVS(698) = Jac_FULL(107,140) - JVS(698) = 0.25*B(346) -! JVS(699) = Jac_FULL(107,141) - JVS(699) = 0.25*B(356) -! JVS(700) = Jac_FULL(107,142) - JVS(700) = 0.2*B(373) -! JVS(701) = Jac_FULL(107,145) - JVS(701) = 0.25*B(280) -! JVS(702) = Jac_FULL(107,148) - JVS(702) = -B(157) -! JVS(703) = Jac_FULL(107,155) - JVS(703) = B(151)+0.3*B(181)+0.5*B(257)+0.25*B(281)+0.25*B(347)+0.25*B(357)+0.2*B(374)+0.3*B(396)+0.25*B(420)+0.25& - &*B(552)+0.25*B(562)+0.25*B(572) -! JVS(704) = Jac_FULL(108,15) - JVS(704) = B(190) -! JVS(705) = Jac_FULL(108,53) - JVS(705) = 0.5*B(188) -! JVS(706) = Jac_FULL(108,78) - JVS(706) = B(42) -! JVS(707) = Jac_FULL(108,93) - JVS(707) = 0 -! JVS(708) = Jac_FULL(108,94) - JVS(708) = 0 -! JVS(709) = Jac_FULL(108,108) - JVS(709) = -2*B(179)-B(180)-B(182)-B(184) -! JVS(710) = Jac_FULL(108,121) - JVS(710) = 0 -! JVS(711) = Jac_FULL(108,148) - JVS(711) = 0.5*B(189)+B(191) -! JVS(712) = Jac_FULL(108,149) - JVS(712) = -B(183) -! JVS(713) = Jac_FULL(108,153) - JVS(713) = -B(185) -! JVS(714) = Jac_FULL(108,155) - JVS(714) = -B(181) -! JVS(715) = Jac_FULL(109,24) - JVS(715) = 0.65*B(175) -! JVS(716) = Jac_FULL(109,43) - JVS(716) = 0.9*B(437) -! JVS(717) = Jac_FULL(109,54) - JVS(717) = 0.7*B(51) -! JVS(718) = Jac_FULL(109,63) - JVS(718) = 0.17*B(63) -! JVS(719) = Jac_FULL(109,66) - JVS(719) = 0.7*B(483) -! JVS(720) = Jac_FULL(109,67) - JVS(720) = B(13) -! JVS(721) = Jac_FULL(109,76) - JVS(721) = B(443) -! JVS(722) = Jac_FULL(109,77) - JVS(722) = 0.17*B(515) -! JVS(723) = Jac_FULL(109,89) - JVS(723) = 0.6*B(60) -! JVS(724) = Jac_FULL(109,98) - JVS(724) = 0.34*B(62) -! JVS(725) = Jac_FULL(109,99) - JVS(725) = 0.6*B(497) -! JVS(726) = Jac_FULL(109,100) - JVS(726) = 0.16*B(469)+0.4*B(471) -! JVS(727) = Jac_FULL(109,101) - JVS(727) = 0.34*B(509) -! JVS(728) = Jac_FULL(109,109) - JVS(728) = -B(33)-B(218) -! JVS(729) = Jac_FULL(109,110) - JVS(729) = B(391) -! JVS(730) = Jac_FULL(109,111) - JVS(730) = 0.13*B(15) -! JVS(731) = Jac_FULL(109,124) - JVS(731) = 0.2*B(216) -! JVS(732) = Jac_FULL(109,130) - JVS(732) = 0.07*B(475)+0.17*B(477) -! JVS(733) = Jac_FULL(109,139) - JVS(733) = 0.25*B(393)+0.1*B(395)+0.25*B(399)+0.25*B(401) -! JVS(734) = Jac_FULL(109,141) - JVS(734) = 0.05*B(361)+0.05*B(363) -! JVS(735) = Jac_FULL(109,147) - JVS(735) = 0 -! JVS(736) = Jac_FULL(109,148) - JVS(736) = 0.65*B(176)+0.2*B(217)-B(219)+B(392) -! JVS(737) = Jac_FULL(109,149) - JVS(737) = 0.16*B(470)+0.07*B(476) -! JVS(738) = Jac_FULL(109,150) - JVS(738) = 0.05*B(364)+0.25*B(402) -! JVS(739) = Jac_FULL(109,152) - JVS(739) = 0.25*B(394) -! JVS(740) = Jac_FULL(109,153) - JVS(740) = 0.05*B(362)+0.25*B(400)+0.9*B(438)+B(444)+0.4*B(472)+0.17*B(478)+0.7*B(484)+0.6*B(498)+0.34*B(510)+0.17& - &*B(516) -! JVS(741) = Jac_FULL(109,155) - JVS(741) = 0.1*B(396) -! JVS(742) = Jac_FULL(110,110) - JVS(742) = -B(46)-B(391) -! JVS(743) = Jac_FULL(110,142) - JVS(743) = B(371)+0.8*B(373)+B(377)+B(379) -! JVS(744) = Jac_FULL(110,148) - JVS(744) = -B(392) -! JVS(745) = Jac_FULL(110,150) - JVS(745) = B(380) -! JVS(746) = Jac_FULL(110,152) - JVS(746) = B(372) -! JVS(747) = Jac_FULL(110,153) - JVS(747) = B(378) -! JVS(748) = Jac_FULL(110,155) - JVS(748) = 0.8*B(374) -! JVS(749) = Jac_FULL(111,43) - JVS(749) = 0.9*B(437) -! JVS(750) = Jac_FULL(111,111) - JVS(750) = -B(15) -! JVS(751) = Jac_FULL(111,115) - JVS(751) = 0.1*B(541) -! JVS(752) = Jac_FULL(111,116) - JVS(752) = 0.1*B(523) -! JVS(753) = Jac_FULL(111,117) - JVS(753) = 0.1*B(529) -! JVS(754) = Jac_FULL(111,118) - JVS(754) = 0.1*B(535) -! JVS(755) = Jac_FULL(111,120) - JVS(755) = 0.1*B(547) -! JVS(756) = Jac_FULL(111,149) - JVS(756) = 0 -! JVS(757) = Jac_FULL(111,151) - JVS(757) = 0.1*B(524)+0.1*B(530)+0.1*B(536)+0.1*B(542)+0.1*B(548) -! JVS(758) = Jac_FULL(111,153) - JVS(758) = 0.9*B(438) -! JVS(759) = Jac_FULL(112,104) - JVS(759) = B(411) -! JVS(760) = Jac_FULL(112,112) - JVS(760) = -B(413)-B(415)-B(417) -! JVS(761) = Jac_FULL(112,148) - JVS(761) = 0 -! JVS(762) = Jac_FULL(112,149) - JVS(762) = -B(414) -! JVS(763) = Jac_FULL(112,150) - JVS(763) = B(412)-B(418) -! JVS(764) = Jac_FULL(112,151) - JVS(764) = 0 -! JVS(765) = Jac_FULL(112,153) - JVS(765) = -B(416) -! JVS(766) = Jac_FULL(113,83) - JVS(766) = 0.33*B(41) -! JVS(767) = Jac_FULL(113,104) - JVS(767) = 0.7*B(425) -! JVS(768) = Jac_FULL(113,112) - JVS(768) = 0.25*B(415)+0.25*B(417) -! JVS(769) = Jac_FULL(113,113) - JVS(769) = -B(34)-B(409) -! JVS(770) = Jac_FULL(113,125) - JVS(770) = 0.167*B(419)+0.33*B(423) -! JVS(771) = Jac_FULL(113,148) - JVS(771) = -B(410) -! JVS(772) = Jac_FULL(113,149) - JVS(772) = 0 -! JVS(773) = Jac_FULL(113,150) - JVS(773) = 0.25*B(418) -! JVS(774) = Jac_FULL(113,151) - JVS(774) = 0.7*B(426) -! JVS(775) = Jac_FULL(113,153) - JVS(775) = 0.25*B(416)+0.33*B(424) -! JVS(776) = Jac_FULL(113,155) - JVS(776) = 0.167*B(420) -! JVS(777) = Jac_FULL(114,114) - JVS(777) = -B(369)-B(383)-B(385) -! JVS(778) = Jac_FULL(114,148) - JVS(778) = -B(386) -! JVS(779) = Jac_FULL(114,150) - JVS(779) = -B(370) -! JVS(780) = Jac_FULL(114,151) - JVS(780) = -B(384) -! JVS(781) = Jac_FULL(115,115) - JVS(781) = -B(539)-B(541)-B(543) -! JVS(782) = Jac_FULL(115,148) - JVS(782) = -B(544) -! JVS(783) = Jac_FULL(115,150) - JVS(783) = -B(540) -! JVS(784) = Jac_FULL(115,151) - JVS(784) = -B(542) -! JVS(785) = Jac_FULL(116,116) - JVS(785) = -B(521)-B(523)-B(525) -! JVS(786) = Jac_FULL(116,148) - JVS(786) = -B(526) -! JVS(787) = Jac_FULL(116,150) - JVS(787) = -B(522) -! JVS(788) = Jac_FULL(116,151) - JVS(788) = -B(524) -! JVS(789) = Jac_FULL(117,117) - JVS(789) = -B(527)-B(529)-B(531) -! JVS(790) = Jac_FULL(117,148) - JVS(790) = -B(532) -! JVS(791) = Jac_FULL(117,150) - JVS(791) = -B(528) -! JVS(792) = Jac_FULL(117,151) - JVS(792) = -B(530) -! JVS(793) = Jac_FULL(118,118) - JVS(793) = -B(533)-B(535)-B(537) -! JVS(794) = Jac_FULL(118,148) - JVS(794) = -B(538) -! JVS(795) = Jac_FULL(118,150) - JVS(795) = -B(534) -! JVS(796) = Jac_FULL(118,151) - JVS(796) = -B(536) -! JVS(797) = Jac_FULL(119,51) - JVS(797) = B(389) -! JVS(798) = Jac_FULL(119,62) - JVS(798) = B(381) -! JVS(799) = Jac_FULL(119,72) - JVS(799) = 0.5*B(367) -! JVS(800) = Jac_FULL(119,110) - JVS(800) = B(391) -! JVS(801) = Jac_FULL(119,119) - JVS(801) = -B(47)-B(248) -! JVS(802) = Jac_FULL(119,128) - JVS(802) = B(228) -! JVS(803) = Jac_FULL(119,141) - JVS(803) = 0 -! JVS(804) = Jac_FULL(119,142) - JVS(804) = 0 -! JVS(805) = Jac_FULL(119,148) - JVS(805) = -B(249)+0.5*B(368)+B(382)+B(390)+B(392) -! JVS(806) = Jac_FULL(119,149) - JVS(806) = 0 -! JVS(807) = Jac_FULL(119,150) - JVS(807) = B(229) -! JVS(808) = Jac_FULL(119,152) - JVS(808) = 0 -! JVS(809) = Jac_FULL(119,153) - JVS(809) = 0 -! JVS(810) = Jac_FULL(119,155) - JVS(810) = 0 -! JVS(811) = Jac_FULL(120,120) - JVS(811) = -B(545)-B(547)-B(549) -! JVS(812) = Jac_FULL(120,148) - JVS(812) = -B(550) -! JVS(813) = Jac_FULL(120,150) - JVS(813) = -B(546) -! JVS(814) = Jac_FULL(120,151) - JVS(814) = -B(548) -! JVS(815) = Jac_FULL(121,58) - JVS(815) = B(336) -! JVS(816) = Jac_FULL(121,94) - JVS(816) = B(334) -! JVS(817) = Jac_FULL(121,115) - JVS(817) = 0 -! JVS(818) = Jac_FULL(121,116) - JVS(818) = 0 -! JVS(819) = Jac_FULL(121,117) - JVS(819) = 0 -! JVS(820) = Jac_FULL(121,118) - JVS(820) = 0 -! JVS(821) = Jac_FULL(121,120) - JVS(821) = 0 -! JVS(822) = Jac_FULL(121,121) - JVS(822) = -B(328)-B(330)-B(332) -! JVS(823) = Jac_FULL(121,148) - JVS(823) = B(335)+B(337) -! JVS(824) = Jac_FULL(121,149) - JVS(824) = -B(329) -! JVS(825) = Jac_FULL(121,150) - JVS(825) = 0 -! JVS(826) = Jac_FULL(121,151) - JVS(826) = 0 -! JVS(827) = Jac_FULL(121,153) - JVS(827) = -B(331)-B(333) -! JVS(828) = Jac_FULL(122,56) - JVS(828) = 0.82*B(22) -! JVS(829) = Jac_FULL(122,59) - JVS(829) = 0.5*B(268) -! JVS(830) = Jac_FULL(122,75) - JVS(830) = 0.05*B(57) -! JVS(831) = Jac_FULL(122,79) - JVS(831) = 0.4*B(405)+B(407) -! JVS(832) = Jac_FULL(122,83) - JVS(832) = 0.67*B(41) -! JVS(833) = Jac_FULL(122,86) - JVS(833) = 0.5*B(272) -! JVS(834) = Jac_FULL(122,88) - JVS(834) = 0.3*B(55) -! JVS(835) = Jac_FULL(122,93) - JVS(835) = 0.25*B(11)+0.8*B(326) -! JVS(836) = Jac_FULL(122,94) - JVS(836) = 0.25*B(12) -! JVS(837) = Jac_FULL(122,104) - JVS(837) = 0.23*B(425) -! JVS(838) = Jac_FULL(122,105) - JVS(838) = 0.82*B(232)+0.82*B(236) -! JVS(839) = Jac_FULL(122,112) - JVS(839) = 0.75*B(415)+0.75*B(417) -! JVS(840) = Jac_FULL(122,113) - JVS(840) = B(34) -! JVS(841) = Jac_FULL(122,115) - JVS(841) = 0.52*B(541) -! JVS(842) = Jac_FULL(122,116) - JVS(842) = 0.52*B(523) -! JVS(843) = Jac_FULL(122,117) - JVS(843) = 0.52*B(529) -! JVS(844) = Jac_FULL(122,118) - JVS(844) = 0.52*B(535) -! JVS(845) = Jac_FULL(122,120) - JVS(845) = 0.52*B(547) -! JVS(846) = Jac_FULL(122,121) - JVS(846) = 0.25*B(330) -! JVS(847) = Jac_FULL(122,122) - JVS(847) = -B(27)-B(266) -! JVS(848) = Jac_FULL(122,125) - JVS(848) = 0.333*B(419)+0.67*B(423) -! JVS(849) = Jac_FULL(122,126) - JVS(849) = 0.5*B(59)+0.5*B(583) -! JVS(850) = Jac_FULL(122,127) - JVS(850) = 0.15*B(561)+0.27*B(565) -! JVS(851) = Jac_FULL(122,131) - JVS(851) = 0.025*B(571)+0.04*B(575) -! JVS(852) = Jac_FULL(122,137) - JVS(852) = 0.17*B(35) -! JVS(853) = Jac_FULL(122,148) - JVS(853) = -B(267)+0.8*B(327)+0.5*B(584) -! JVS(854) = Jac_FULL(122,149) - JVS(854) = 0.4*B(406) -! JVS(855) = Jac_FULL(122,150) - JVS(855) = 0.5*B(269)+0.75*B(418) -! JVS(856) = Jac_FULL(122,151) - JVS(856) = 0.23*B(426)+0.52*B(524)+0.52*B(530)+0.52*B(536)+0.52*B(542)+0.52*B(548) -! JVS(857) = Jac_FULL(122,153) - JVS(857) = 0.82*B(237)+0.5*B(273)+0.25*B(331)+B(408)+0.75*B(416)+0.67*B(424)+0.27*B(566)+0.04*B(576) -! JVS(858) = Jac_FULL(122,155) - JVS(858) = 0.82*B(233)+0.333*B(420)+0.15*B(562)+0.025*B(572) -! JVS(859) = Jac_FULL(123,24) - JVS(859) = 0.35*B(175) -! JVS(860) = Jac_FULL(123,26) - JVS(860) = 1.5*B(14) -! JVS(861) = Jac_FULL(123,32) - JVS(861) = 1.5*B(54) -! JVS(862) = Jac_FULL(123,34) - JVS(862) = 0 -! JVS(863) = Jac_FULL(123,57) - JVS(863) = B(19) -! JVS(864) = Jac_FULL(123,60) - JVS(864) = 0.63*B(177) -! JVS(865) = Jac_FULL(123,88) - JVS(865) = 0.25*B(55) -! JVS(866) = Jac_FULL(123,91) - JVS(866) = 0.6*B(18) -! JVS(867) = Jac_FULL(123,98) - JVS(867) = 0 -! JVS(868) = Jac_FULL(123,99) - JVS(868) = 0 -! JVS(869) = Jac_FULL(123,100) - JVS(869) = 0.16*B(469)+0.4*B(471) -! JVS(870) = Jac_FULL(123,101) - JVS(870) = 0 -! JVS(871) = Jac_FULL(123,102) - JVS(871) = 0.07*B(463)+0.17*B(465) -! JVS(872) = Jac_FULL(123,104) - JVS(872) = 0.64*B(425) -! JVS(873) = Jac_FULL(123,109) - JVS(873) = 2*B(33)+B(218) -! JVS(874) = Jac_FULL(123,110) - JVS(874) = 0 -! JVS(875) = Jac_FULL(123,111) - JVS(875) = 0.45*B(15) -! JVS(876) = Jac_FULL(123,113) - JVS(876) = B(34) -! JVS(877) = Jac_FULL(123,114) - JVS(877) = 0.62*B(383) -! JVS(878) = Jac_FULL(123,115) - JVS(878) = 0.23*B(541) -! JVS(879) = Jac_FULL(123,116) - JVS(879) = 0.23*B(523) -! JVS(880) = Jac_FULL(123,117) - JVS(880) = 0.23*B(529) -! JVS(881) = Jac_FULL(123,118) - JVS(881) = 0.23*B(535) -! JVS(882) = Jac_FULL(123,120) - JVS(882) = 0.23*B(547) -! JVS(883) = Jac_FULL(123,123) - JVS(883) = -B(173) -! JVS(884) = Jac_FULL(123,124) - JVS(884) = B(32) -! JVS(885) = Jac_FULL(123,125) - JVS(885) = 0 -! JVS(886) = Jac_FULL(123,126) - JVS(886) = 1.7*B(59)+0.7*B(583) -! JVS(887) = Jac_FULL(123,127) - JVS(887) = 0.125*B(561)+0.225*B(565) -! JVS(888) = Jac_FULL(123,128) - JVS(888) = 0.56*B(230) -! JVS(889) = Jac_FULL(123,129) - JVS(889) = B(26) -! JVS(890) = Jac_FULL(123,130) - JVS(890) = 0.14*B(475)+0.35*B(477) -! JVS(891) = Jac_FULL(123,133) - JVS(891) = B(58) -! JVS(892) = Jac_FULL(123,135) - JVS(892) = B(146) -! JVS(893) = Jac_FULL(123,137) - JVS(893) = 0.33*B(35) -! JVS(894) = Jac_FULL(123,138) - JVS(894) = B(28)+B(242)+B(244) -! JVS(895) = Jac_FULL(123,139) - JVS(895) = 0.25*B(393)+0.2*B(395)+0.25*B(399)+0.5*B(401) -! JVS(896) = Jac_FULL(123,141) - JVS(896) = 0 -! JVS(897) = Jac_FULL(123,142) - JVS(897) = 0 -! JVS(898) = Jac_FULL(123,143) - JVS(898) = 0.67*B(40)+0.65*B(290) -! JVS(899) = Jac_FULL(123,144) - JVS(899) = 0.7*B(45)+0.56*B(317) -! JVS(900) = Jac_FULL(123,145) - JVS(900) = 0.22*B(278)+0.11*B(280)+0.22*B(284)+0.22*B(286) -! JVS(901) = Jac_FULL(123,146) - JVS(901) = B(24)+B(25)+B(144)+B(147)+B(148) -! JVS(902) = Jac_FULL(123,147) - JVS(902) = 0 -! JVS(903) = Jac_FULL(123,148) - JVS(903) = B(149)-B(174)+0.35*B(176)+B(219)+B(245)+0.7*B(584) -! JVS(904) = Jac_FULL(123,149) - JVS(904) = 0.07*B(464)+0.16*B(470)+0.14*B(476) -! JVS(905) = Jac_FULL(123,150) - JVS(905) = B(145)+B(243)+0.22*B(285)+0.5*B(402) -! JVS(906) = Jac_FULL(123,151) - JVS(906) = 0.63*B(178)+0.56*B(231)+0.65*B(291)+0.56*B(318)+0.62*B(384)+0.64*B(426)+0.23*B(524)+0.23*B(530)+0.23*B(536)& - &+0.23*B(542)+0.23*B(548) -! JVS(907) = Jac_FULL(123,152) - JVS(907) = 0.22*B(279)+0.25*B(394) -! JVS(908) = Jac_FULL(123,153) - JVS(908) = 0.22*B(287)+0.25*B(400)+0.17*B(466)+0.4*B(472)+0.35*B(478)+0.225*B(566) -! JVS(909) = Jac_FULL(123,155) - JVS(909) = 0.11*B(281)+0.2*B(396)+0.125*B(562) -! JVS(910) = Jac_FULL(124,42) - JVS(910) = B(214) -! JVS(911) = Jac_FULL(124,51) - JVS(911) = B(389) -! JVS(912) = Jac_FULL(124,72) - JVS(912) = 0.5*B(367) -! JVS(913) = Jac_FULL(124,83) - JVS(913) = 0.67*B(41) -! JVS(914) = Jac_FULL(124,85) - JVS(914) = 0.7*B(365) -! JVS(915) = Jac_FULL(124,88) - JVS(915) = 0.25*B(55) -! JVS(916) = Jac_FULL(124,90) - JVS(916) = 0 -! JVS(917) = Jac_FULL(124,124) - JVS(917) = -B(32)-B(216) -! JVS(918) = Jac_FULL(124,125) - JVS(918) = 0.333*B(419)+0.67*B(423) -! JVS(919) = Jac_FULL(124,127) - JVS(919) = 0.125*B(561)+0.225*B(565) -! JVS(920) = Jac_FULL(124,137) - JVS(920) = 0.33*B(35) -! JVS(921) = Jac_FULL(124,139) - JVS(921) = 0.25*B(393)+0.1*B(395)+0.25*B(399)+0.25*B(401) -! JVS(922) = Jac_FULL(124,140) - JVS(922) = 0 -! JVS(923) = Jac_FULL(124,141) - JVS(923) = 0.05*B(361)+0.05*B(363) -! JVS(924) = Jac_FULL(124,142) - JVS(924) = 0 -! JVS(925) = Jac_FULL(124,145) - JVS(925) = 0.53*B(278)+0.26*B(280)+0.53*B(284)+0.53*B(286) -! JVS(926) = Jac_FULL(124,148) - JVS(926) = -B(217)+0.7*B(366)+0.5*B(368)+B(390) -! JVS(927) = Jac_FULL(124,149) - JVS(927) = 0 -! JVS(928) = Jac_FULL(124,150) - JVS(928) = 0.53*B(285)+0.05*B(364)+0.25*B(402) -! JVS(929) = Jac_FULL(124,151) - JVS(929) = 0 -! JVS(930) = Jac_FULL(124,152) - JVS(930) = 0.53*B(279)+0.25*B(394) -! JVS(931) = Jac_FULL(124,153) - JVS(931) = 0.53*B(287)+0.05*B(362)+0.25*B(400)+0.67*B(424)+0.225*B(566) -! JVS(932) = Jac_FULL(124,155) - JVS(932) = 0.26*B(281)+0.1*B(396)+0.333*B(420)+0.125*B(562) -! JVS(933) = Jac_FULL(125,83) - JVS(933) = 0.5*B(429) -! JVS(934) = Jac_FULL(125,104) - JVS(934) = B(427) -! JVS(935) = Jac_FULL(125,125) - JVS(935) = -B(419)-B(421)-B(423) -! JVS(936) = Jac_FULL(125,148) - JVS(936) = B(428)+0.5*B(430) -! JVS(937) = Jac_FULL(125,149) - JVS(937) = -B(422) -! JVS(938) = Jac_FULL(125,150) - JVS(938) = 0 -! JVS(939) = Jac_FULL(125,151) - JVS(939) = 0 -! JVS(940) = Jac_FULL(125,153) - JVS(940) = -B(424) -! JVS(941) = Jac_FULL(125,155) - JVS(941) = -B(420) -! JVS(942) = Jac_FULL(126,88) - JVS(942) = B(55) -! JVS(943) = Jac_FULL(126,115) - JVS(943) = 0.3*B(541) -! JVS(944) = Jac_FULL(126,116) - JVS(944) = 0.3*B(523) -! JVS(945) = Jac_FULL(126,117) - JVS(945) = 0.3*B(529) -! JVS(946) = Jac_FULL(126,118) - JVS(946) = 0.3*B(535) -! JVS(947) = Jac_FULL(126,120) - JVS(947) = 0.3*B(547) -! JVS(948) = Jac_FULL(126,126) - JVS(948) = -B(59)-B(583) -! JVS(949) = Jac_FULL(126,127) - JVS(949) = B(561)+0.9*B(565) -! JVS(950) = Jac_FULL(126,133) - JVS(950) = B(58) -! JVS(951) = Jac_FULL(126,148) - JVS(951) = -B(584) -! JVS(952) = Jac_FULL(126,149) - JVS(952) = 0 -! JVS(953) = Jac_FULL(126,150) - JVS(953) = 0 -! JVS(954) = Jac_FULL(126,151) - JVS(954) = 0.3*B(524)+0.3*B(530)+0.3*B(536)+0.3*B(542)+0.3*B(548) -! JVS(955) = Jac_FULL(126,153) - JVS(955) = 0.9*B(566) -! JVS(956) = Jac_FULL(126,155) - JVS(956) = B(562) -! JVS(957) = Jac_FULL(127,88) - JVS(957) = B(567) -! JVS(958) = Jac_FULL(127,127) - JVS(958) = -B(561)-B(563)-B(565) -! JVS(959) = Jac_FULL(127,133) - JVS(959) = 0.5*B(579)+B(581) -! JVS(960) = Jac_FULL(127,148) - JVS(960) = B(568)+B(582) -! JVS(961) = Jac_FULL(127,149) - JVS(961) = -B(564) -! JVS(962) = Jac_FULL(127,150) - JVS(962) = 0.5*B(580) -! JVS(963) = Jac_FULL(127,153) - JVS(963) = -B(566) -! JVS(964) = Jac_FULL(127,155) - JVS(964) = -B(562) -! JVS(965) = Jac_FULL(128,114) - JVS(965) = 0.13*B(383) -! JVS(966) = Jac_FULL(128,128) - JVS(966) = -B(228)-B(230)-B(264) -! JVS(967) = Jac_FULL(128,144) - JVS(967) = 0.7*B(45) -! JVS(968) = Jac_FULL(128,148) - JVS(968) = -B(265) -! JVS(969) = Jac_FULL(128,150) - JVS(969) = -B(229) -! JVS(970) = Jac_FULL(128,151) - JVS(970) = -B(231)+0.13*B(384) -! JVS(971) = Jac_FULL(129,40) - JVS(971) = B(186) -! JVS(972) = Jac_FULL(129,49) - JVS(972) = B(43) -! JVS(973) = Jac_FULL(129,53) - JVS(973) = B(21)+0.5*B(188) -! JVS(974) = Jac_FULL(129,59) - JVS(974) = B(268) -! JVS(975) = Jac_FULL(129,74) - JVS(975) = B(52) -! JVS(976) = Jac_FULL(129,86) - JVS(976) = B(272) -! JVS(977) = Jac_FULL(129,93) - JVS(977) = 0.4*B(11)+0.8*B(326) -! JVS(978) = Jac_FULL(129,94) - JVS(978) = 0.4*B(12) -! JVS(979) = Jac_FULL(129,95) - JVS(979) = 0.2*B(307)+B(309) -! JVS(980) = Jac_FULL(129,96) - JVS(980) = B(252) -! JVS(981) = Jac_FULL(129,105) - JVS(981) = 0.27*B(236) -! JVS(982) = Jac_FULL(129,108) - JVS(982) = 1.6*B(179)+0.8*B(180)+B(184) -! JVS(983) = Jac_FULL(129,121) - JVS(983) = 0.4*B(330) -! JVS(984) = Jac_FULL(129,128) - JVS(984) = 0.5*B(230) -! JVS(985) = Jac_FULL(129,129) - JVS(985) = -B(26)-B(192)-B(194) -! JVS(986) = Jac_FULL(129,137) - JVS(986) = 0.33*B(35) -! JVS(987) = Jac_FULL(129,144) - JVS(987) = 0.1*B(317) -! JVS(988) = Jac_FULL(129,148) - JVS(988) = B(187)+0.5*B(189)-B(195)+0.8*B(327) -! JVS(989) = Jac_FULL(129,149) - JVS(989) = 0.2*B(308) -! JVS(990) = Jac_FULL(129,150) - JVS(990) = -B(193)+B(269) -! JVS(991) = Jac_FULL(129,151) - JVS(991) = 0.5*B(231)+0.1*B(318) -! JVS(992) = Jac_FULL(129,153) - JVS(992) = B(185)+0.27*B(237)+B(253)+B(273)+B(310)+0.4*B(331) -! JVS(993) = Jac_FULL(129,155) - JVS(993) = 0.8*B(181) -! JVS(994) = Jac_FULL(130,91) - JVS(994) = 0.6*B(18) -! JVS(995) = Jac_FULL(130,98) - JVS(995) = 0 -! JVS(996) = Jac_FULL(130,99) - JVS(996) = 0 -! JVS(997) = Jac_FULL(130,101) - JVS(997) = 0 -! JVS(998) = Jac_FULL(130,110) - JVS(998) = 0 -! JVS(999) = Jac_FULL(130,130) - JVS(999) = -B(475)-B(477)-B(479) -! JVS(1000) = Jac_FULL(130,141) - JVS(1000) = 0 -! JVS(1001) = Jac_FULL(130,142) - JVS(1001) = 0 -! JVS(1002) = Jac_FULL(130,147) - JVS(1002) = -B(480) -! JVS(1003) = Jac_FULL(130,148) - JVS(1003) = 0 -! JVS(1004) = Jac_FULL(130,149) - JVS(1004) = -B(476) -! JVS(1005) = Jac_FULL(130,150) - JVS(1005) = 0 -! JVS(1006) = Jac_FULL(130,152) - JVS(1006) = 0 -! JVS(1007) = Jac_FULL(130,153) - JVS(1007) = -B(478) -! JVS(1008) = Jac_FULL(130,155) - JVS(1008) = 0 -! JVS(1009) = Jac_FULL(131,75) - JVS(1009) = B(577) -! JVS(1010) = Jac_FULL(131,115) - JVS(1010) = B(543) -! JVS(1011) = Jac_FULL(131,116) - JVS(1011) = B(525) -! JVS(1012) = Jac_FULL(131,117) - JVS(1012) = B(531) -! JVS(1013) = Jac_FULL(131,118) - JVS(1013) = B(537) -! JVS(1014) = Jac_FULL(131,120) - JVS(1014) = B(549) -! JVS(1015) = Jac_FULL(131,131) - JVS(1015) = -B(571)-B(573)-B(575) -! JVS(1016) = Jac_FULL(131,148) - JVS(1016) = B(526)+B(532)+B(538)+B(544)+B(550)+B(578) -! JVS(1017) = Jac_FULL(131,149) - JVS(1017) = -B(574) -! JVS(1018) = Jac_FULL(131,150) - JVS(1018) = 0 -! JVS(1019) = Jac_FULL(131,151) - JVS(1019) = 0 -! JVS(1020) = Jac_FULL(131,153) - JVS(1020) = -B(576) -! JVS(1021) = Jac_FULL(131,155) - JVS(1021) = -B(572) -! JVS(1022) = Jac_FULL(132,52) - JVS(1022) = B(559) -! JVS(1023) = Jac_FULL(132,115) - JVS(1023) = B(539) -! JVS(1024) = Jac_FULL(132,116) - JVS(1024) = B(521) -! JVS(1025) = Jac_FULL(132,117) - JVS(1025) = B(527) -! JVS(1026) = Jac_FULL(132,118) - JVS(1026) = B(533) -! JVS(1027) = Jac_FULL(132,120) - JVS(1027) = B(545) -! JVS(1028) = Jac_FULL(132,132) - JVS(1028) = -B(551)-B(553)-B(555)-B(557) -! JVS(1029) = Jac_FULL(132,133) - JVS(1029) = 0.5*B(579) -! JVS(1030) = Jac_FULL(132,148) - JVS(1030) = B(560) -! JVS(1031) = Jac_FULL(132,149) - JVS(1031) = -B(554) -! JVS(1032) = Jac_FULL(132,150) - JVS(1032) = B(522)+B(528)+B(534)+B(540)+B(546)-B(558)+0.5*B(580) -! JVS(1033) = Jac_FULL(132,151) - JVS(1033) = 0 -! JVS(1034) = Jac_FULL(132,153) - JVS(1034) = -B(556) -! JVS(1035) = Jac_FULL(132,155) - JVS(1035) = -B(552) -! JVS(1036) = Jac_FULL(133,52) - JVS(1036) = B(48) -! JVS(1037) = Jac_FULL(133,75) - JVS(1037) = B(57) -! JVS(1038) = Jac_FULL(133,80) - JVS(1038) = B(56)+B(569) -! JVS(1039) = Jac_FULL(133,115) - JVS(1039) = 0.33*B(541) -! JVS(1040) = Jac_FULL(133,116) - JVS(1040) = 0.33*B(523) -! JVS(1041) = Jac_FULL(133,117) - JVS(1041) = 0.33*B(529) -! JVS(1042) = Jac_FULL(133,118) - JVS(1042) = 0.33*B(535) -! JVS(1043) = Jac_FULL(133,120) - JVS(1043) = 0.33*B(547) -! JVS(1044) = Jac_FULL(133,131) - JVS(1044) = B(571)+0.8*B(575) -! JVS(1045) = Jac_FULL(133,132) - JVS(1045) = 0.5*B(551)+0.8*B(555)+B(557) -! JVS(1046) = Jac_FULL(133,133) - JVS(1046) = -B(58)-B(579)-B(581) -! JVS(1047) = Jac_FULL(133,148) - JVS(1047) = B(570)-B(582) -! JVS(1048) = Jac_FULL(133,149) - JVS(1048) = 0 -! JVS(1049) = Jac_FULL(133,150) - JVS(1049) = B(558)-B(580) -! JVS(1050) = Jac_FULL(133,151) - JVS(1050) = 0.33*B(524)+0.33*B(530)+0.33*B(536)+0.33*B(542)+0.33*B(548) -! JVS(1051) = Jac_FULL(133,153) - JVS(1051) = 0.8*B(556)+0.8*B(576) -! JVS(1052) = Jac_FULL(133,155) - JVS(1052) = 0.5*B(552)+B(572) -! JVS(1053) = Jac_FULL(134,55) - JVS(1053) = B(262) -! JVS(1054) = Jac_FULL(134,115) - JVS(1054) = 0.06*B(541) -! JVS(1055) = Jac_FULL(134,116) - JVS(1055) = 0.06*B(523) -! JVS(1056) = Jac_FULL(134,117) - JVS(1056) = 0.06*B(529) -! JVS(1057) = Jac_FULL(134,118) - JVS(1057) = 0.06*B(535) -! JVS(1058) = Jac_FULL(134,120) - JVS(1058) = 0.06*B(547) -! JVS(1059) = Jac_FULL(134,122) - JVS(1059) = B(266) -! JVS(1060) = Jac_FULL(134,125) - JVS(1060) = 0 -! JVS(1061) = Jac_FULL(134,126) - JVS(1061) = 0.15*B(59)+0.15*B(583) -! JVS(1062) = Jac_FULL(134,127) - JVS(1062) = 0 -! JVS(1063) = Jac_FULL(134,131) - JVS(1063) = 0 -! JVS(1064) = Jac_FULL(134,133) - JVS(1064) = 0 -! JVS(1065) = Jac_FULL(134,134) - JVS(1065) = -B(256)-B(258)-B(260) -! JVS(1066) = Jac_FULL(134,137) - JVS(1066) = 0 -! JVS(1067) = Jac_FULL(134,148) - JVS(1067) = B(263)+B(267)+0.15*B(584) -! JVS(1068) = Jac_FULL(134,149) - JVS(1068) = -B(259) -! JVS(1069) = Jac_FULL(134,150) - JVS(1069) = 0 -! JVS(1070) = Jac_FULL(134,151) - JVS(1070) = 0.06*B(524)+0.06*B(530)+0.06*B(536)+0.06*B(542)+0.06*B(548) -! JVS(1071) = Jac_FULL(134,153) - JVS(1071) = -B(261) -! JVS(1072) = Jac_FULL(134,155) - JVS(1072) = -B(257) -! JVS(1073) = Jac_FULL(135,39) - JVS(1073) = -B(85) -! JVS(1074) = Jac_FULL(135,82) - JVS(1074) = -B(83) -! JVS(1075) = Jac_FULL(135,87) - JVS(1075) = 0 -! JVS(1076) = Jac_FULL(135,106) - JVS(1076) = B(70)+B(72) -! JVS(1077) = Jac_FULL(135,128) - JVS(1077) = 0 -! JVS(1078) = Jac_FULL(135,135) - JVS(1078) = -B(76)-2*B(78)-B(80)-B(84)-B(86)-B(87)-B(97)-B(106)-B(110)-B(116)-B(124)-B(146) -! JVS(1079) = Jac_FULL(135,144) - JVS(1079) = 0 -! JVS(1080) = Jac_FULL(135,146) - JVS(1080) = -B(147) -! JVS(1081) = Jac_FULL(135,147) - JVS(1081) = B(9)-B(107)-B(111) -! JVS(1082) = Jac_FULL(135,148) - JVS(1082) = -B(98)+B(101) -! JVS(1083) = Jac_FULL(135,149) - JVS(1083) = -B(88) -! JVS(1084) = Jac_FULL(135,150) - JVS(1084) = -B(117) -! JVS(1085) = Jac_FULL(135,151) - JVS(1085) = B(3)-B(77) -! JVS(1086) = Jac_FULL(135,153) - JVS(1086) = -B(125) -! JVS(1087) = Jac_FULL(136,72) - JVS(1087) = 0.5*B(367) -! JVS(1088) = Jac_FULL(136,74) - JVS(1088) = 0.5*B(254) -! JVS(1089) = Jac_FULL(136,84) - JVS(1089) = 0.5*B(315) -! JVS(1090) = Jac_FULL(136,85) - JVS(1090) = 0.7*B(365) -! JVS(1091) = Jac_FULL(136,96) - JVS(1091) = 0 -! JVS(1092) = Jac_FULL(136,128) - JVS(1092) = 0 -! JVS(1093) = Jac_FULL(136,134) - JVS(1093) = 0.2*B(256) -! JVS(1094) = Jac_FULL(136,136) - JVS(1094) = -B(37)-B(246) -! JVS(1095) = Jac_FULL(136,137) - JVS(1095) = 0.17*B(35) -! JVS(1096) = Jac_FULL(136,139) - JVS(1096) = 0.25*B(393)+0.1*B(395)+0.25*B(399)+0.25*B(401) -! JVS(1097) = Jac_FULL(136,140) - JVS(1097) = 0 -! JVS(1098) = Jac_FULL(136,141) - JVS(1098) = 0.05*B(361)+0.05*B(363) -! JVS(1099) = Jac_FULL(136,144) - JVS(1099) = 0 -! JVS(1100) = Jac_FULL(136,145) - JVS(1100) = 0.22*B(278)+0.23*B(280)+0.22*B(284)+0.22*B(286) -! JVS(1101) = Jac_FULL(136,147) - JVS(1101) = 0 -! JVS(1102) = Jac_FULL(136,148) - JVS(1102) = -B(247)+0.5*B(255)+0.5*B(316)+0.7*B(366)+0.5*B(368) -! JVS(1103) = Jac_FULL(136,149) - JVS(1103) = 0 -! JVS(1104) = Jac_FULL(136,150) - JVS(1104) = 0.22*B(285)+0.05*B(364)+0.25*B(402) -! JVS(1105) = Jac_FULL(136,151) - JVS(1105) = 0 -! JVS(1106) = Jac_FULL(136,152) - JVS(1106) = 0.22*B(279)+0.25*B(394) -! JVS(1107) = Jac_FULL(136,153) - JVS(1107) = 0.22*B(287)+0.05*B(362)+0.25*B(400) -! JVS(1108) = Jac_FULL(136,154) - JVS(1108) = 0 -! JVS(1109) = Jac_FULL(136,155) - JVS(1109) = 0.2*B(257)+0.23*B(281)+0.1*B(396) -! JVS(1110) = Jac_FULL(137,72) - JVS(1110) = 0.5*B(367) -! JVS(1111) = Jac_FULL(137,85) - JVS(1111) = 0.3*B(365) -! JVS(1112) = Jac_FULL(137,86) - JVS(1112) = B(274) -! JVS(1113) = Jac_FULL(137,112) - JVS(1113) = 0.75*B(415)+0.75*B(417) -! JVS(1114) = Jac_FULL(137,137) - JVS(1114) = -B(35)-B(276) -! JVS(1115) = Jac_FULL(137,140) - JVS(1115) = 0 -! JVS(1116) = Jac_FULL(137,141) - JVS(1116) = 0 -! JVS(1117) = Jac_FULL(137,145) - JVS(1117) = B(288) -! JVS(1118) = Jac_FULL(137,148) - JVS(1118) = -B(277)+0.3*B(366)+0.5*B(368) -! JVS(1119) = Jac_FULL(137,149) - JVS(1119) = 0 -! JVS(1120) = Jac_FULL(137,150) - JVS(1120) = 0.75*B(418) -! JVS(1121) = Jac_FULL(137,151) - JVS(1121) = 0 -! JVS(1122) = Jac_FULL(137,153) - JVS(1122) = B(275)+B(289)+0.75*B(416) -! JVS(1123) = Jac_FULL(138,57) - JVS(1123) = B(19) -! JVS(1124) = Jac_FULL(138,63) - JVS(1124) = 0.51*B(63) -! JVS(1125) = Jac_FULL(138,77) - JVS(1125) = 0.51*B(515) -! JVS(1126) = Jac_FULL(138,89) - JVS(1126) = 0.4*B(60) -! JVS(1127) = Jac_FULL(138,98) - JVS(1127) = 0.54*B(62) -! JVS(1128) = Jac_FULL(138,99) - JVS(1128) = 0.4*B(497) -! JVS(1129) = Jac_FULL(138,101) - JVS(1129) = 0.54*B(509) -! JVS(1130) = Jac_FULL(138,102) - JVS(1130) = 0.07*B(463)+0.17*B(465) -! JVS(1131) = Jac_FULL(138,111) - JVS(1131) = 0.18*B(15) -! JVS(1132) = Jac_FULL(138,115) - JVS(1132) = 0 -! JVS(1133) = Jac_FULL(138,116) - JVS(1133) = 0 -! JVS(1134) = Jac_FULL(138,117) - JVS(1134) = 0 -! JVS(1135) = Jac_FULL(138,118) - JVS(1135) = 0 -! JVS(1136) = Jac_FULL(138,119) - JVS(1136) = B(248) -! JVS(1137) = Jac_FULL(138,120) - JVS(1137) = 0 -! JVS(1138) = Jac_FULL(138,128) - JVS(1138) = 0 -! JVS(1139) = Jac_FULL(138,130) - JVS(1139) = 0.07*B(475)+0.17*B(477) -! JVS(1140) = Jac_FULL(138,134) - JVS(1140) = 0.5*B(256) -! JVS(1141) = Jac_FULL(138,136) - JVS(1141) = B(246) -! JVS(1142) = Jac_FULL(138,137) - JVS(1142) = 0 -! JVS(1143) = Jac_FULL(138,138) - JVS(1143) = -B(28)-B(242)-B(244) -! JVS(1144) = Jac_FULL(138,139) - JVS(1144) = 0.25*B(393)+0.1*B(395)+0.25*B(399)+0.25*B(401) -! JVS(1145) = Jac_FULL(138,140) - JVS(1145) = 0 -! JVS(1146) = Jac_FULL(138,141) - JVS(1146) = 0.05*B(361)+0.05*B(363) -! JVS(1147) = Jac_FULL(138,142) - JVS(1147) = 0 -! JVS(1148) = Jac_FULL(138,143) - JVS(1148) = 0.88*B(290) -! JVS(1149) = Jac_FULL(138,144) - JVS(1149) = 0.5*B(317) -! JVS(1150) = Jac_FULL(138,145) - JVS(1150) = 0.25*B(278)+0.24*B(280)+0.25*B(284)+0.25*B(286) -! JVS(1151) = Jac_FULL(138,147) - JVS(1151) = 0 -! JVS(1152) = Jac_FULL(138,148) - JVS(1152) = -B(245)+B(247)+B(249) -! JVS(1153) = Jac_FULL(138,149) - JVS(1153) = 0.07*B(464)+0.07*B(476) -! JVS(1154) = Jac_FULL(138,150) - JVS(1154) = -B(243)+0.25*B(285)+0.05*B(364)+0.25*B(402) -! JVS(1155) = Jac_FULL(138,151) - JVS(1155) = 0.88*B(291)+0.5*B(318) -! JVS(1156) = Jac_FULL(138,152) - JVS(1156) = 0.25*B(279)+0.25*B(394) -! JVS(1157) = Jac_FULL(138,153) - JVS(1157) = 0.25*B(287)+0.05*B(362)+0.25*B(400)+0.17*B(466)+0.17*B(478)+0.4*B(498)+0.54*B(510)+0.51*B(516) -! JVS(1158) = Jac_FULL(138,154) - JVS(1158) = 0 -! JVS(1159) = Jac_FULL(138,155) - JVS(1159) = 0.5*B(257)+0.24*B(281)+0.1*B(396) -! JVS(1160) = Jac_FULL(139,21) - JVS(1160) = B(342) -! JVS(1161) = Jac_FULL(139,33) - JVS(1161) = 0.5*B(403) -! JVS(1162) = Jac_FULL(139,37) - JVS(1162) = B(338) -! JVS(1163) = Jac_FULL(139,46) - JVS(1163) = B(340) -! JVS(1164) = Jac_FULL(139,97) - JVS(1164) = 0.4*B(387) -! JVS(1165) = Jac_FULL(139,139) - JVS(1165) = -B(393)-B(395)-B(397)-B(399)-B(401) -! JVS(1166) = Jac_FULL(139,140) - JVS(1166) = 0 -! JVS(1167) = Jac_FULL(139,141) - JVS(1167) = 0 -! JVS(1168) = Jac_FULL(139,142) - JVS(1168) = 0 -! JVS(1169) = Jac_FULL(139,148) - JVS(1169) = B(339)+B(341)+B(343)+0.4*B(388)+0.5*B(404) -! JVS(1170) = Jac_FULL(139,149) - JVS(1170) = -B(398) -! JVS(1171) = Jac_FULL(139,150) - JVS(1171) = -B(402) -! JVS(1172) = Jac_FULL(139,152) - JVS(1172) = -B(394) -! JVS(1173) = Jac_FULL(139,153) - JVS(1173) = -B(400) -! JVS(1174) = Jac_FULL(139,155) - JVS(1174) = -B(396) -! JVS(1175) = Jac_FULL(140,114) - JVS(1175) = 0.6*B(385) -! JVS(1176) = Jac_FULL(140,140) - JVS(1176) = -B(344)-B(346)-B(348)-B(350)-B(352) -! JVS(1177) = Jac_FULL(140,148) - JVS(1177) = 0.6*B(386) -! JVS(1178) = Jac_FULL(140,149) - JVS(1178) = -B(349) -! JVS(1179) = Jac_FULL(140,150) - JVS(1179) = -B(353) -! JVS(1180) = Jac_FULL(140,151) - JVS(1180) = 0 -! JVS(1181) = Jac_FULL(140,152) - JVS(1181) = -B(345) -! JVS(1182) = Jac_FULL(140,153) - JVS(1182) = -B(351) -! JVS(1183) = Jac_FULL(140,155) - JVS(1183) = -B(347) -! JVS(1184) = Jac_FULL(141,114) - JVS(1184) = 0.4*B(385) -! JVS(1185) = Jac_FULL(141,141) - JVS(1185) = -B(354)-B(356)-B(358)-B(360)-B(361)-B(363) -! JVS(1186) = Jac_FULL(141,148) - JVS(1186) = 0.4*B(386) -! JVS(1187) = Jac_FULL(141,149) - JVS(1187) = -B(359) -! JVS(1188) = Jac_FULL(141,150) - JVS(1188) = -B(364) -! JVS(1189) = Jac_FULL(141,151) - JVS(1189) = 0 -! JVS(1190) = Jac_FULL(141,152) - JVS(1190) = -B(355) -! JVS(1191) = Jac_FULL(141,153) - JVS(1191) = -B(362) -! JVS(1192) = Jac_FULL(141,155) - JVS(1192) = -B(357) -! JVS(1193) = Jac_FULL(142,114) - JVS(1193) = B(369) -! JVS(1194) = Jac_FULL(142,142) - JVS(1194) = -B(371)-B(373)-B(375)-B(377)-B(379) -! JVS(1195) = Jac_FULL(142,148) - JVS(1195) = 0 -! JVS(1196) = Jac_FULL(142,149) - JVS(1196) = -B(376) -! JVS(1197) = Jac_FULL(142,150) - JVS(1197) = B(370)-B(380) -! JVS(1198) = Jac_FULL(142,151) - JVS(1198) = 0 -! JVS(1199) = Jac_FULL(142,152) - JVS(1199) = -B(372) -! JVS(1200) = Jac_FULL(142,153) - JVS(1200) = -B(378) -! JVS(1201) = Jac_FULL(142,155) - JVS(1201) = -B(374) -! JVS(1202) = Jac_FULL(143,97) - JVS(1202) = 0.288*B(39) -! JVS(1203) = Jac_FULL(143,114) - JVS(1203) = 0.3*B(383) -! JVS(1204) = Jac_FULL(143,140) - JVS(1204) = 0.39*B(344)+0.31*B(346)+0.36*B(350)+0.4*B(352) -! JVS(1205) = Jac_FULL(143,141) - JVS(1205) = 0 -! JVS(1206) = Jac_FULL(143,142) - JVS(1206) = 0 -! JVS(1207) = Jac_FULL(143,143) - JVS(1207) = -B(40)-B(290)-B(292) -! JVS(1208) = Jac_FULL(143,148) - JVS(1208) = -B(293) -! JVS(1209) = Jac_FULL(143,149) - JVS(1209) = 0 -! JVS(1210) = Jac_FULL(143,150) - JVS(1210) = 0.4*B(353) -! JVS(1211) = Jac_FULL(143,151) - JVS(1211) = -B(291)+0.3*B(384) -! JVS(1212) = Jac_FULL(143,152) - JVS(1212) = 0.39*B(345) -! JVS(1213) = Jac_FULL(143,153) - JVS(1213) = 0.36*B(351) -! JVS(1214) = Jac_FULL(143,155) - JVS(1214) = 0.31*B(347) -! JVS(1215) = Jac_FULL(144,97) - JVS(1215) = 0.402*B(39) -! JVS(1216) = Jac_FULL(144,114) - JVS(1216) = 0.2*B(383) -! JVS(1217) = Jac_FULL(144,140) - JVS(1217) = 0.61*B(344)+0.44*B(346)+0.56*B(350)+0.6*B(352) -! JVS(1218) = Jac_FULL(144,141) - JVS(1218) = 0 -! JVS(1219) = Jac_FULL(144,142) - JVS(1219) = 0 -! JVS(1220) = Jac_FULL(144,144) - JVS(1220) = -B(45)-B(317)-B(319) -! JVS(1221) = Jac_FULL(144,148) - JVS(1221) = -B(320) -! JVS(1222) = Jac_FULL(144,149) - JVS(1222) = 0 -! JVS(1223) = Jac_FULL(144,150) - JVS(1223) = 0.6*B(353) -! JVS(1224) = Jac_FULL(144,151) - JVS(1224) = -B(318)+0.2*B(384) -! JVS(1225) = Jac_FULL(144,152) - JVS(1225) = 0.61*B(345) -! JVS(1226) = Jac_FULL(144,153) - JVS(1226) = 0.56*B(351) -! JVS(1227) = Jac_FULL(144,155) - JVS(1227) = 0.44*B(347) -! JVS(1228) = Jac_FULL(145,48) - JVS(1228) = 0.2*B(294) -! JVS(1229) = Jac_FULL(145,143) - JVS(1229) = 0.5*B(292) -! JVS(1230) = Jac_FULL(145,144) - JVS(1230) = B(319) -! JVS(1231) = Jac_FULL(145,145) - JVS(1231) = -B(278)-B(280)-B(282)-B(284)-B(286)-B(288) -! JVS(1232) = Jac_FULL(145,148) - JVS(1232) = 0.5*B(293)+0.2*B(295)+B(320) -! JVS(1233) = Jac_FULL(145,149) - JVS(1233) = -B(283) -! JVS(1234) = Jac_FULL(145,150) - JVS(1234) = -B(285) -! JVS(1235) = Jac_FULL(145,151) - JVS(1235) = 0 -! JVS(1236) = Jac_FULL(145,152) - JVS(1236) = -B(279) -! JVS(1237) = Jac_FULL(145,153) - JVS(1237) = -B(287)-B(289) -! JVS(1238) = Jac_FULL(145,155) - JVS(1238) = -B(281) -! JVS(1239) = Jac_FULL(146,42) - JVS(1239) = 2*B(213) -! JVS(1240) = Jac_FULL(146,47) - JVS(1240) = B(30)+0.3*B(158) -! JVS(1241) = Jac_FULL(146,55) - JVS(1241) = B(53) -! JVS(1242) = Jac_FULL(146,59) - JVS(1242) = 0.5*B(268) -! JVS(1243) = Jac_FULL(146,60) - JVS(1243) = B(177) -! JVS(1244) = Jac_FULL(146,65) - JVS(1244) = B(168) -! JVS(1245) = Jac_FULL(146,68) - JVS(1245) = 0.5*B(207) -! JVS(1246) = Jac_FULL(146,71) - JVS(1246) = B(220) -! JVS(1247) = Jac_FULL(146,74) - JVS(1247) = B(52) -! JVS(1248) = Jac_FULL(146,75) - JVS(1248) = 0.4*B(57) -! JVS(1249) = Jac_FULL(146,83) - JVS(1249) = 0.33*B(41) -! JVS(1250) = Jac_FULL(146,84) - JVS(1250) = 0.5*B(315) -! JVS(1251) = Jac_FULL(146,85) - JVS(1251) = 0.3*B(365) -! JVS(1252) = Jac_FULL(146,86) - JVS(1252) = 0.5*B(272) -! JVS(1253) = Jac_FULL(146,87) - JVS(1253) = 0.25*B(64) -! JVS(1254) = Jac_FULL(146,88) - JVS(1254) = 0.375*B(55) -! JVS(1255) = Jac_FULL(146,90) - JVS(1255) = 0.5*B(211) -! JVS(1256) = Jac_FULL(146,93) - JVS(1256) = 0.1*B(11)+0.4*B(326) -! JVS(1257) = Jac_FULL(146,94) - JVS(1257) = 0.1*B(12) -! JVS(1258) = Jac_FULL(146,96) - JVS(1258) = B(252) -! JVS(1259) = Jac_FULL(146,97) - JVS(1259) = 0.69*B(39) -! JVS(1260) = Jac_FULL(146,104) - JVS(1260) = 0.3*B(425) -! JVS(1261) = Jac_FULL(146,105) - JVS(1261) = B(232) -! JVS(1262) = Jac_FULL(146,106) - JVS(1262) = 0.25*B(65) -! JVS(1263) = Jac_FULL(146,107) - JVS(1263) = B(156) -! JVS(1264) = Jac_FULL(146,108) - JVS(1264) = 0.7*B(180) -! JVS(1265) = Jac_FULL(146,112) - JVS(1265) = 0.25*B(415)+0.25*B(417) -! JVS(1266) = Jac_FULL(146,114) - JVS(1266) = 0.91*B(383) -! JVS(1267) = Jac_FULL(146,115) - JVS(1267) = 0.34*B(541) -! JVS(1268) = Jac_FULL(146,116) - JVS(1268) = 0.34*B(523) -! JVS(1269) = Jac_FULL(146,117) - JVS(1269) = 0.34*B(529) -! JVS(1270) = Jac_FULL(146,118) - JVS(1270) = 0.34*B(535) -! JVS(1271) = Jac_FULL(146,119) - JVS(1271) = B(47) -! JVS(1272) = Jac_FULL(146,120) - JVS(1272) = 0.34*B(547) -! JVS(1273) = Jac_FULL(146,121) - JVS(1273) = 0.1*B(330) -! JVS(1274) = Jac_FULL(146,124) - JVS(1274) = B(32)+0.8*B(216) -! JVS(1275) = Jac_FULL(146,125) - JVS(1275) = 0.917*B(419)+0.33*B(423) -! JVS(1276) = Jac_FULL(146,126) - JVS(1276) = 0.68*B(59)+0.68*B(583) -! JVS(1277) = Jac_FULL(146,127) - JVS(1277) = 0.93*B(561)+0.34*B(565) -! JVS(1278) = Jac_FULL(146,128) - JVS(1278) = 0.5*B(230) -! JVS(1279) = Jac_FULL(146,131) - JVS(1279) = 0.95*B(571)+0.32*B(575) -! JVS(1280) = Jac_FULL(146,132) - JVS(1280) = 0.75*B(551) -! JVS(1281) = Jac_FULL(146,133) - JVS(1281) = 0 -! JVS(1282) = Jac_FULL(146,134) - JVS(1282) = 0.8*B(256)+0.15*B(258)+B(260) -! JVS(1283) = Jac_FULL(146,135) - JVS(1283) = -B(146) -! JVS(1284) = Jac_FULL(146,136) - JVS(1284) = B(37) -! JVS(1285) = Jac_FULL(146,137) - JVS(1285) = 0.33*B(35) -! JVS(1286) = Jac_FULL(146,139) - JVS(1286) = 0.25*B(393)+0.8*B(395)+0.25*B(399) -! JVS(1287) = Jac_FULL(146,140) - JVS(1287) = B(344)+1.5*B(346)+0.92*B(350)+B(352) -! JVS(1288) = Jac_FULL(146,141) - JVS(1288) = 0.75*B(356) -! JVS(1289) = Jac_FULL(146,142) - JVS(1289) = 0.8*B(373) -! JVS(1290) = Jac_FULL(146,143) - JVS(1290) = 0.67*B(40)+0.12*B(290) -! JVS(1291) = Jac_FULL(146,144) - JVS(1291) = 0.6*B(317) -! JVS(1292) = Jac_FULL(146,145) - JVS(1292) = 0.25*B(278)+0.88*B(280)+0.25*B(284)+0.25*B(286) -! JVS(1293) = Jac_FULL(146,146) - JVS(1293) = -B(24)-B(25)-B(142)-B(144)-B(147)-B(148) -! JVS(1294) = Jac_FULL(146,147) - JVS(1294) = 0 -! JVS(1295) = Jac_FULL(146,148) - JVS(1295) = -B(149)+B(157)+0.3*B(159)+0.5*B(208)+0.8*B(217)+B(221)+0.5*B(316)+0.4*B(327)+0.3*B(366)+0.68*B(584) -! JVS(1296) = Jac_FULL(146,149) - JVS(1296) = -B(143)+0.15*B(259)+0.45*B(300) -! JVS(1297) = Jac_FULL(146,150) - JVS(1297) = -B(145)+0.5*B(269)+0.25*B(285)+B(305)+B(353)+0.25*B(418) -! JVS(1298) = Jac_FULL(146,151) - JVS(1298) = B(178)+0.5*B(231)+0.12*B(291)+0.6*B(318)+0.91*B(384)+0.3*B(426)+0.34*B(524)+0.34*B(530)+0.34*B(536)+0.34& - &*B(542)+0.34*B(548) -! JVS(1299) = Jac_FULL(146,152) - JVS(1299) = B(199)+0.25*B(279)+B(296)+B(345)+0.25*B(394) -! JVS(1300) = Jac_FULL(146,153) - JVS(1300) = B(154)+0.5*B(212)+B(253)+B(261)+0.5*B(273)+0.25*B(287)+B(303)+0.1*B(331)+0.92*B(351)+0.25*B(400)+0.25& - &*B(416)+0.33*B(424)+0.34*B(566)+0.32*B(576) -! JVS(1301) = Jac_FULL(146,154) - JVS(1301) = B(297)+2*B(298)+0.45*B(301)+2*B(302)+B(304)+B(306) -! JVS(1302) = Jac_FULL(146,155) - JVS(1302) = 2*B(150)+B(151)+B(155)+0.7*B(181)+B(200)+B(233)+0.8*B(257)+0.88*B(281)+2*B(299)+1.5*B(347)+0.75*B(357)+0.8& - &*B(374)+0.8*B(396)+0.917*B(420)+0.75*B(552)+0.93*B(562)+0.95*B(572) -! JVS(1303) = Jac_FULL(147,22) - JVS(1303) = B(49) -! JVS(1304) = Jac_FULL(147,23) - JVS(1304) = B(503) -! JVS(1305) = Jac_FULL(147,29) - JVS(1305) = B(8)+B(140) -! JVS(1306) = Jac_FULL(147,43) - JVS(1306) = 0.9*B(437) -! JVS(1307) = Jac_FULL(147,45) - JVS(1307) = 0.66*B(6)+B(104)+B(138) -! JVS(1308) = Jac_FULL(147,52) - JVS(1308) = B(48) -! JVS(1309) = Jac_FULL(147,59) - JVS(1309) = B(268) -! JVS(1310) = Jac_FULL(147,62) - JVS(1310) = B(38) -! JVS(1311) = Jac_FULL(147,64) - JVS(1311) = B(453) -! JVS(1312) = Jac_FULL(147,65) - JVS(1312) = B(169) -! JVS(1313) = Jac_FULL(147,66) - JVS(1313) = B(483) -! JVS(1314) = Jac_FULL(147,70) - JVS(1314) = B(5) -! JVS(1315) = Jac_FULL(147,71) - JVS(1315) = 0.6*B(50)+B(226) -! JVS(1316) = Jac_FULL(147,73) - JVS(1316) = -B(487) -! JVS(1317) = Jac_FULL(147,76) - JVS(1317) = B(443) -! JVS(1318) = Jac_FULL(147,77) - JVS(1318) = B(515) -! JVS(1319) = Jac_FULL(147,79) - JVS(1319) = B(407) -! JVS(1320) = Jac_FULL(147,80) - JVS(1320) = B(56)+B(569) -! JVS(1321) = Jac_FULL(147,81) - JVS(1321) = B(433)-B(493) -! JVS(1322) = Jac_FULL(147,84) - JVS(1322) = B(44)+B(324) -! JVS(1323) = Jac_FULL(147,85) - JVS(1323) = 0.7*B(365) -! JVS(1324) = Jac_FULL(147,86) - JVS(1324) = B(272) -! JVS(1325) = Jac_FULL(147,90) - JVS(1325) = B(211) -! JVS(1326) = Jac_FULL(147,92) - JVS(1326) = B(457) -! JVS(1327) = Jac_FULL(147,93) - JVS(1327) = B(11)+B(326) -! JVS(1328) = Jac_FULL(147,95) - JVS(1328) = B(309) -! JVS(1329) = Jac_FULL(147,96) - JVS(1329) = B(252) -! JVS(1330) = Jac_FULL(147,99) - JVS(1330) = B(497) -! JVS(1331) = Jac_FULL(147,100) - JVS(1331) = B(471)-B(473) -! JVS(1332) = Jac_FULL(147,101) - JVS(1332) = B(509) -! JVS(1333) = Jac_FULL(147,102) - JVS(1333) = B(465)-B(467) -! JVS(1334) = Jac_FULL(147,105) - JVS(1334) = B(236) -! JVS(1335) = Jac_FULL(147,108) - JVS(1335) = B(184) -! JVS(1336) = Jac_FULL(147,110) - JVS(1336) = B(46) -! JVS(1337) = Jac_FULL(147,112) - JVS(1337) = 1.25*B(415)+1.25*B(417) -! JVS(1338) = Jac_FULL(147,113) - JVS(1338) = 0 -! JVS(1339) = Jac_FULL(147,119) - JVS(1339) = B(47)+B(248) -! JVS(1340) = Jac_FULL(147,121) - JVS(1340) = B(330) -! JVS(1341) = Jac_FULL(147,125) - JVS(1341) = B(423) -! JVS(1342) = Jac_FULL(147,127) - JVS(1342) = 0.9*B(565) -! JVS(1343) = Jac_FULL(147,128) - JVS(1343) = 0 -! JVS(1344) = Jac_FULL(147,129) - JVS(1344) = 0 -! JVS(1345) = Jac_FULL(147,130) - JVS(1345) = B(477)-B(479) -! JVS(1346) = Jac_FULL(147,131) - JVS(1346) = 0.8*B(575) -! JVS(1347) = Jac_FULL(147,132) - JVS(1347) = 0.5*B(551)+1.6*B(555)+2*B(557) -! JVS(1348) = Jac_FULL(147,133) - JVS(1348) = 0 -! JVS(1349) = Jac_FULL(147,134) - JVS(1349) = B(260) -! JVS(1350) = Jac_FULL(147,135) - JVS(1350) = -B(106)-B(110)+B(116)+B(124) -! JVS(1351) = Jac_FULL(147,137) - JVS(1351) = B(35) -! JVS(1352) = Jac_FULL(147,138) - JVS(1352) = 0 -! JVS(1353) = Jac_FULL(147,139) - JVS(1353) = B(399)+B(401) -! JVS(1354) = Jac_FULL(147,140) - JVS(1354) = 0.92*B(350)+B(352) -! JVS(1355) = Jac_FULL(147,141) - JVS(1355) = 0.92*B(361)+B(363) -! JVS(1356) = Jac_FULL(147,142) - JVS(1356) = B(377)+B(379) -! JVS(1357) = Jac_FULL(147,143) - JVS(1357) = 0 -! JVS(1358) = Jac_FULL(147,144) - JVS(1358) = 0 -! JVS(1359) = Jac_FULL(147,145) - JVS(1359) = B(284)+B(286) -! JVS(1360) = Jac_FULL(147,146) - JVS(1360) = 0 -! JVS(1361) = Jac_FULL(147,147) - JVS(1361) = -B(9)-B(107)-B(108)-B(111)-B(130)-B(132)-B(134)-B(224)-B(321)-B(468)-B(474)-B(480)-B(488)-B(494)-B(595) -! JVS(1362) = Jac_FULL(147,148) - JVS(1362) = B(105)+B(118)-B(135)+B(249)+B(327)+0.7*B(366)+B(570) -! JVS(1363) = Jac_FULL(147,149) - JVS(1363) = B(112)+B(120)-B(131) -! JVS(1364) = Jac_FULL(147,150) - JVS(1364) = 0.89*B(10)+B(113)+2*B(114)+B(117)+B(119)-B(133)+B(269)+B(285)+B(305)+B(353)+B(364)+B(380)+B(402)+1.25& - &*B(418)+2*B(558) -! JVS(1365) = Jac_FULL(147,151) - JVS(1365) = -B(109)+B(122) -! JVS(1366) = Jac_FULL(147,152) - JVS(1366) = B(203)-B(225) -! JVS(1367) = Jac_FULL(147,153) - JVS(1367) = 2*B(115)+B(121)+B(123)+B(125)+B(154)+B(170)+B(185)+B(204)+B(212)+B(237)+B(253)+B(261)+B(273)+B(287)+B(303)& - &+B(310)+B(331)+0.92*B(351)+0.92*B(362)+B(378)+B(400)+B(408)+1.25*B(416)+B(424)+B(434)+0.9*B(438)+B(444)& - &+B(454)+B(458)+B(466)+B(472)+B(478)+B(484)+B(498)+B(510)+B(516)+1.6*B(556)+0.9*B(566)+0.8*B(576) -! JVS(1368) = Jac_FULL(147,154) - JVS(1368) = B(304)+B(306)-B(322) -! JVS(1369) = Jac_FULL(147,155) - JVS(1369) = B(155)+0.5*B(552) -! JVS(1370) = Jac_FULL(148,14) - JVS(1370) = -B(589) -! JVS(1371) = Jac_FULL(148,15) - JVS(1371) = -B(190) -! JVS(1372) = Jac_FULL(148,16) - JVS(1372) = -B(240) -! JVS(1373) = Jac_FULL(148,17) - JVS(1373) = -B(196) -! JVS(1374) = Jac_FULL(148,19) - JVS(1374) = -B(597) -! JVS(1375) = Jac_FULL(148,20) - JVS(1375) = B(31) -! JVS(1376) = Jac_FULL(148,21) - JVS(1376) = -B(342) -! JVS(1377) = Jac_FULL(148,24) - JVS(1377) = -0.35*B(175) -! JVS(1378) = Jac_FULL(148,25) - JVS(1378) = -B(439) -! JVS(1379) = Jac_FULL(148,27) - JVS(1379) = -B(485) -! JVS(1380) = Jac_FULL(148,28) - JVS(1380) = -B(162)+B(171) -! JVS(1381) = Jac_FULL(148,30) - JVS(1381) = -B(501) -! JVS(1382) = Jac_FULL(148,31) - JVS(1382) = -B(461) -! JVS(1383) = Jac_FULL(148,33) - JVS(1383) = B(61)-0.5*B(403) -! JVS(1384) = Jac_FULL(148,34) - JVS(1384) = -B(505) -! JVS(1385) = Jac_FULL(148,35) - JVS(1385) = -B(517) -! JVS(1386) = Jac_FULL(148,36) - JVS(1386) = -B(587)-B(591) -! JVS(1387) = Jac_FULL(148,37) - JVS(1387) = B(36)-B(338) -! JVS(1388) = Jac_FULL(148,38) - JVS(1388) = -B(447) -! JVS(1389) = Jac_FULL(148,39) - JVS(1389) = 2*B(1)+B(85)-B(93) -! JVS(1390) = Jac_FULL(148,40) - JVS(1390) = -B(186) -! JVS(1391) = Jac_FULL(148,41) - JVS(1391) = B(23)-B(459) -! JVS(1392) = Jac_FULL(148,45) - JVS(1392) = 0.33*B(6)-B(104) -! JVS(1393) = Jac_FULL(148,46) - JVS(1393) = -B(340) -! JVS(1394) = Jac_FULL(148,47) - JVS(1394) = B(30)-0.7*B(158) -! JVS(1395) = Jac_FULL(148,48) - JVS(1395) = -0.9*B(294) -! JVS(1396) = Jac_FULL(148,49) - JVS(1396) = B(43)-B(313) -! JVS(1397) = Jac_FULL(148,50) - JVS(1397) = B(20)-B(451) -! JVS(1398) = Jac_FULL(148,51) - JVS(1398) = -B(389) -! JVS(1399) = Jac_FULL(148,52) - JVS(1399) = B(48)-B(559) -! JVS(1400) = Jac_FULL(148,53) - JVS(1400) = B(21)-0.5*B(188) -! JVS(1401) = Jac_FULL(148,54) - JVS(1401) = B(51)-B(491) -! JVS(1402) = Jac_FULL(148,55) - JVS(1402) = B(53)-B(262) -! JVS(1403) = Jac_FULL(148,56) - JVS(1403) = B(22)-B(238) -! JVS(1404) = Jac_FULL(148,58) - JVS(1404) = -B(336) -! JVS(1405) = Jac_FULL(148,59) - JVS(1405) = -B(270) -! JVS(1406) = Jac_FULL(148,60) - JVS(1406) = 0.13*B(177)-B(222) -! JVS(1407) = Jac_FULL(148,61) - JVS(1407) = -B(205) -! JVS(1408) = Jac_FULL(148,62) - JVS(1408) = -B(381) -! JVS(1409) = Jac_FULL(148,63) - JVS(1409) = B(63)-B(519) -! JVS(1410) = Jac_FULL(148,64) - JVS(1410) = 0 -! JVS(1411) = Jac_FULL(148,66) - JVS(1411) = 0 -! JVS(1412) = Jac_FULL(148,67) - JVS(1412) = B(13)-B(445) -! JVS(1413) = Jac_FULL(148,68) - JVS(1413) = B(29)-B(207) -! JVS(1414) = Jac_FULL(148,70) - JVS(1414) = B(5)-B(136) -! JVS(1415) = Jac_FULL(148,71) - JVS(1415) = -B(220) -! JVS(1416) = Jac_FULL(148,72) - JVS(1416) = -B(367) -! JVS(1417) = Jac_FULL(148,74) - JVS(1417) = B(52)-0.5*B(254) -! JVS(1418) = Jac_FULL(148,75) - JVS(1418) = B(57)-B(577) -! JVS(1419) = Jac_FULL(148,76) - JVS(1419) = 0 -! JVS(1420) = Jac_FULL(148,77) - JVS(1420) = 0 -! JVS(1421) = Jac_FULL(148,78) - JVS(1421) = -B(311) -! JVS(1422) = Jac_FULL(148,79) - JVS(1422) = 0.4*B(405) -! JVS(1423) = Jac_FULL(148,80) - JVS(1423) = -B(569) -! JVS(1424) = Jac_FULL(148,81) - JVS(1424) = 0.4*B(431) -! JVS(1425) = Jac_FULL(148,82) - JVS(1425) = B(66)+B(83)-B(91) -! JVS(1426) = Jac_FULL(148,83) - JVS(1426) = B(41)-0.5*B(429) -! JVS(1427) = Jac_FULL(148,84) - JVS(1427) = -B(315) -! JVS(1428) = Jac_FULL(148,85) - JVS(1428) = -B(365) -! JVS(1429) = Jac_FULL(148,87) - JVS(1429) = 0.75*B(64)-B(160) -! JVS(1430) = Jac_FULL(148,88) - JVS(1430) = B(55)-B(567) -! JVS(1431) = Jac_FULL(148,89) - JVS(1431) = B(60)-B(499) -! JVS(1432) = Jac_FULL(148,90) - JVS(1432) = 0 -! JVS(1433) = Jac_FULL(148,92) - JVS(1433) = 0 -! JVS(1434) = Jac_FULL(148,93) - JVS(1434) = -B(326) -! JVS(1435) = Jac_FULL(148,94) - JVS(1435) = B(12)-B(334) -! JVS(1436) = Jac_FULL(148,95) - JVS(1436) = 0.2*B(307) -! JVS(1437) = Jac_FULL(148,96) - JVS(1437) = 0 -! JVS(1438) = Jac_FULL(148,97) - JVS(1438) = -0.4*B(387) -! JVS(1439) = Jac_FULL(148,98) - JVS(1439) = B(62)-B(511) -! JVS(1440) = Jac_FULL(148,99) - JVS(1440) = 0 -! JVS(1441) = Jac_FULL(148,101) - JVS(1441) = 0 -! JVS(1442) = Jac_FULL(148,102) - JVS(1442) = 0.4*B(463) -! JVS(1443) = Jac_FULL(148,103) - JVS(1443) = -B(164) -! JVS(1444) = Jac_FULL(148,104) - JVS(1444) = 0.36*B(425)-B(427) -! JVS(1445) = Jac_FULL(148,105) - JVS(1445) = 0 -! JVS(1446) = Jac_FULL(148,106) - JVS(1446) = 0.75*B(65)+B(67)+2*B(68)+B(172) -! JVS(1447) = Jac_FULL(148,107) - JVS(1447) = -B(156) -! JVS(1448) = Jac_FULL(148,108) - JVS(1448) = 0 -! JVS(1449) = Jac_FULL(148,109) - JVS(1449) = -B(218) -! JVS(1450) = Jac_FULL(148,110) - JVS(1450) = -B(391) -! JVS(1451) = Jac_FULL(148,111) - JVS(1451) = 0 -! JVS(1452) = Jac_FULL(148,113) - JVS(1452) = -B(409) -! JVS(1453) = Jac_FULL(148,114) - JVS(1453) = 0.32*B(383)-B(385) -! JVS(1454) = Jac_FULL(148,115) - JVS(1454) = 0.63*B(541)-B(543) -! JVS(1455) = Jac_FULL(148,116) - JVS(1455) = 0.63*B(523)-B(525) -! JVS(1456) = Jac_FULL(148,117) - JVS(1456) = 0.63*B(529)-B(531) -! JVS(1457) = Jac_FULL(148,118) - JVS(1457) = 0.63*B(535)-B(537) -! JVS(1458) = Jac_FULL(148,119) - JVS(1458) = -B(248) -! JVS(1459) = Jac_FULL(148,120) - JVS(1459) = 0.63*B(547)-B(549) -! JVS(1460) = Jac_FULL(148,121) - JVS(1460) = 0 -! JVS(1461) = Jac_FULL(148,122) - JVS(1461) = -B(266) -! JVS(1462) = Jac_FULL(148,123) - JVS(1462) = -B(173) -! JVS(1463) = Jac_FULL(148,124) - JVS(1463) = -B(216) -! JVS(1464) = Jac_FULL(148,125) - JVS(1464) = 0 -! JVS(1465) = Jac_FULL(148,126) - JVS(1465) = -B(583) -! JVS(1466) = Jac_FULL(148,127) - JVS(1466) = 0 -! JVS(1467) = Jac_FULL(148,128) - JVS(1467) = 0.36*B(230)-B(264) -! JVS(1468) = Jac_FULL(148,129) - JVS(1468) = -B(194) -! JVS(1469) = Jac_FULL(148,130) - JVS(1469) = 0.4*B(475) -! JVS(1470) = Jac_FULL(148,131) - JVS(1470) = 0 -! JVS(1471) = Jac_FULL(148,132) - JVS(1471) = 0 -! JVS(1472) = Jac_FULL(148,133) - JVS(1472) = -B(581) -! JVS(1473) = Jac_FULL(148,134) - JVS(1473) = 0.15*B(258) -! JVS(1474) = Jac_FULL(148,135) - JVS(1474) = B(84)+B(86)+B(87)-B(97)+B(146) -! JVS(1475) = Jac_FULL(148,136) - JVS(1475) = -B(246) -! JVS(1476) = Jac_FULL(148,137) - JVS(1476) = -B(276) -! JVS(1477) = Jac_FULL(148,138) - JVS(1477) = -B(244) -! JVS(1478) = Jac_FULL(148,139) - JVS(1478) = 0 -! JVS(1479) = Jac_FULL(148,140) - JVS(1479) = 0 -! JVS(1480) = Jac_FULL(148,141) - JVS(1480) = 0 -! JVS(1481) = Jac_FULL(148,142) - JVS(1481) = 0 -! JVS(1482) = Jac_FULL(148,143) - JVS(1482) = 0.33*B(40)+0.24*B(290)-B(292) -! JVS(1483) = Jac_FULL(148,144) - JVS(1483) = 0.36*B(317)-B(319) -! JVS(1484) = Jac_FULL(148,145) - JVS(1484) = 0 -! JVS(1485) = Jac_FULL(148,146) - JVS(1485) = B(147)-B(148) -! JVS(1486) = Jac_FULL(148,147) - JVS(1486) = -B(134)+0.5*B(595) -! JVS(1487) = Jac_FULL(148,148) - JVS(1487) = -B(92)-B(94)-B(95)-B(98)-B(99)-2*B(101)-2*B(102)-B(105)-B(118)-B(135)-B(137)-B(149)-B(157)-0.7*B(159)& - &-B(161)-B(163)-B(165)-B(174)-0.35*B(176)-B(187)-0.5*B(189)-B(191)-B(195)-B(197)-B(206)-B(208)-B(217)-B(219)& - &-B(221)-B(223)-B(239)-B(241)-B(245)-B(247)-B(249)-0.5*B(255)-B(263)-B(265)-B(267)-B(271)-B(277)-B(293)-0.9& - &*B(295)-B(312)-B(314)-B(316)-B(320)-B(327)-B(335)-B(337)-B(339)-B(341)-B(343)-B(366)-B(368)-B(382)-B(386)& - &-0.4*B(388)-B(390)-B(392)-0.5*B(404)-B(410)-B(428)-0.5*B(430)-B(440)-B(446)-B(448)-B(452)-B(460)-B(462)& - &-B(486)-B(492)-B(500)-B(502)-B(506)-B(512)-B(518)-B(520)-B(526)-B(532)-B(538)-B(544)-B(550)-B(560)-B(568)& - &-B(570)-B(578)-B(582)-B(584)-B(588)-B(590)-B(592)-B(598) -! JVS(1488) = Jac_FULL(148,149) - JVS(1488) = B(88)+B(89)-B(96)+B(112)+B(120)+0.45*B(201)+0.15*B(259)+0.45*B(300)+0.2*B(308)+0.4*B(406)+0.4*B(432)+0.4& - &*B(464)+0.4*B(476) -! JVS(1489) = Jac_FULL(148,150) - JVS(1489) = B(113)-B(119) -! JVS(1490) = Jac_FULL(148,151) - JVS(1490) = B(90)-B(100)+0.13*B(178)+0.36*B(231)+0.24*B(291)+0.36*B(318)+0.32*B(384)+0.36*B(426)+0.63*B(524)+0.63& - &*B(530)+0.63*B(536)+0.63*B(542)+0.63*B(548) -! JVS(1491) = Jac_FULL(148,152) - JVS(1491) = 0.45*B(202) -! JVS(1492) = Jac_FULL(148,153) - JVS(1492) = B(121) -! JVS(1493) = Jac_FULL(148,154) - JVS(1493) = 0.45*B(301) -! JVS(1494) = Jac_FULL(148,155) - JVS(1494) = 0 -! JVS(1495) = Jac_FULL(149,17) - JVS(1495) = B(196) -! JVS(1496) = Jac_FULL(149,24) - JVS(1496) = 0.35*B(175) -! JVS(1497) = Jac_FULL(149,25) - JVS(1497) = 0.65*B(439) -! JVS(1498) = Jac_FULL(149,26) - JVS(1498) = 1.5*B(14) -! JVS(1499) = Jac_FULL(149,27) - JVS(1499) = 0.8*B(485) -! JVS(1500) = Jac_FULL(149,28) - JVS(1500) = B(162) -! JVS(1501) = Jac_FULL(149,30) - JVS(1501) = 0.28*B(501) -! JVS(1502) = Jac_FULL(149,31) - JVS(1502) = 0.73*B(461) -! JVS(1503) = Jac_FULL(149,32) - JVS(1503) = B(54) -! JVS(1504) = Jac_FULL(149,34) - JVS(1504) = 0.38*B(505) -! JVS(1505) = Jac_FULL(149,35) - JVS(1505) = 0.63*B(517) -! JVS(1506) = Jac_FULL(149,36) - JVS(1506) = 0.5*B(591) -! JVS(1507) = Jac_FULL(149,37) - JVS(1507) = B(36) -! JVS(1508) = Jac_FULL(149,39) - JVS(1508) = B(85)+B(93) -! JVS(1509) = Jac_FULL(149,40) - JVS(1509) = B(186) -! JVS(1510) = Jac_FULL(149,42) - JVS(1510) = B(213)+B(214) -! JVS(1511) = Jac_FULL(149,43) - JVS(1511) = -B(435)+0.9*B(437) -! JVS(1512) = Jac_FULL(149,44) - JVS(1512) = 0.6*B(17) -! JVS(1513) = Jac_FULL(149,45) - JVS(1513) = 0.66*B(6)+B(138) -! JVS(1514) = Jac_FULL(149,47) - JVS(1514) = B(30) -! JVS(1515) = Jac_FULL(149,48) - JVS(1515) = 0.2*B(294) -! JVS(1516) = Jac_FULL(149,50) - JVS(1516) = B(20) -! JVS(1517) = Jac_FULL(149,51) - JVS(1517) = B(389) -! JVS(1518) = Jac_FULL(149,53) - JVS(1518) = B(21) -! JVS(1519) = Jac_FULL(149,54) - JVS(1519) = B(51) -! JVS(1520) = Jac_FULL(149,56) - JVS(1520) = B(22) -! JVS(1521) = Jac_FULL(149,57) - JVS(1521) = B(19) -! JVS(1522) = Jac_FULL(149,60) - JVS(1522) = 0.13*B(177) -! JVS(1523) = Jac_FULL(149,62) - JVS(1523) = B(38)+B(381) -! JVS(1524) = Jac_FULL(149,63) - JVS(1524) = B(63) -! JVS(1525) = Jac_FULL(149,64) - JVS(1525) = -B(449)+B(453) -! JVS(1526) = Jac_FULL(149,65) - JVS(1526) = -B(166)+B(168)+B(169) -! JVS(1527) = Jac_FULL(149,66) - JVS(1527) = -B(481)+B(483) -! JVS(1528) = Jac_FULL(149,67) - JVS(1528) = B(13) -! JVS(1529) = Jac_FULL(149,69) - JVS(1529) = B(16) -! JVS(1530) = Jac_FULL(149,72) - JVS(1530) = B(367) -! JVS(1531) = Jac_FULL(149,74) - JVS(1531) = B(52) -! JVS(1532) = Jac_FULL(149,75) - JVS(1532) = B(57) -! JVS(1533) = Jac_FULL(149,76) - JVS(1533) = -B(441)+B(443) -! JVS(1534) = Jac_FULL(149,77) - JVS(1534) = -B(513)+B(515) -! JVS(1535) = Jac_FULL(149,79) - JVS(1535) = -0.6*B(405)+B(407) -! JVS(1536) = Jac_FULL(149,80) - JVS(1536) = B(56) -! JVS(1537) = Jac_FULL(149,81) - JVS(1537) = -B(431) -! JVS(1538) = Jac_FULL(149,82) - JVS(1538) = B(66)+B(83)+B(91) -! JVS(1539) = Jac_FULL(149,83) - JVS(1539) = B(41) -! JVS(1540) = Jac_FULL(149,84) - JVS(1540) = 0.5*B(315) -! JVS(1541) = Jac_FULL(149,85) - JVS(1541) = 0.3*B(365) -! JVS(1542) = Jac_FULL(149,86) - JVS(1542) = B(272) -! JVS(1543) = Jac_FULL(149,87) - JVS(1543) = 0.4*B(64) -! JVS(1544) = Jac_FULL(149,88) - JVS(1544) = B(55) -! JVS(1545) = Jac_FULL(149,89) - JVS(1545) = B(60) -! JVS(1546) = Jac_FULL(149,90) - JVS(1546) = -B(209)+0.25*B(211) -! JVS(1547) = Jac_FULL(149,91) - JVS(1547) = 0.6*B(18) -! JVS(1548) = Jac_FULL(149,92) - JVS(1548) = -B(455) -! JVS(1549) = Jac_FULL(149,93) - JVS(1549) = B(11) -! JVS(1550) = Jac_FULL(149,94) - JVS(1550) = 0.9*B(12) -! JVS(1551) = Jac_FULL(149,95) - JVS(1551) = -B(307) -! JVS(1552) = Jac_FULL(149,96) - JVS(1552) = -B(250)+B(252) -! JVS(1553) = Jac_FULL(149,97) - JVS(1553) = B(39) -! JVS(1554) = Jac_FULL(149,98) - JVS(1554) = B(62) -! JVS(1555) = Jac_FULL(149,99) - JVS(1555) = -B(495)+B(497) -! JVS(1556) = Jac_FULL(149,100) - JVS(1556) = -0.84*B(469)+0.4*B(471) -! JVS(1557) = Jac_FULL(149,101) - JVS(1557) = -B(507)+B(509) -! JVS(1558) = Jac_FULL(149,102) - JVS(1558) = -0.93*B(463)+0.17*B(465) -! JVS(1559) = Jac_FULL(149,103) - JVS(1559) = B(164) -! JVS(1560) = Jac_FULL(149,104) - JVS(1560) = 0.48*B(425) -! JVS(1561) = Jac_FULL(149,105) - JVS(1561) = B(232)-B(234)+B(236) -! JVS(1562) = Jac_FULL(149,106) - JVS(1562) = 0.4*B(65)+B(67) -! JVS(1563) = Jac_FULL(149,107) - JVS(1563) = B(156) -! JVS(1564) = Jac_FULL(149,108) - JVS(1564) = 1.2*B(179)+B(180)-B(182)+B(184) -! JVS(1565) = Jac_FULL(149,109) - JVS(1565) = 2*B(33)+B(218) -! JVS(1566) = Jac_FULL(149,110) - JVS(1566) = B(46)+B(391) -! JVS(1567) = Jac_FULL(149,111) - JVS(1567) = 0.56*B(15) -! JVS(1568) = Jac_FULL(149,112) - JVS(1568) = -B(413)+0.75*B(415)+0.75*B(417) -! JVS(1569) = Jac_FULL(149,113) - JVS(1569) = 2*B(34) -! JVS(1570) = Jac_FULL(149,114) - JVS(1570) = 0.37*B(383) -! JVS(1571) = Jac_FULL(149,115) - JVS(1571) = 0.57*B(541) -! JVS(1572) = Jac_FULL(149,116) - JVS(1572) = 0.57*B(523) -! JVS(1573) = Jac_FULL(149,117) - JVS(1573) = 0.57*B(529) -! JVS(1574) = Jac_FULL(149,118) - JVS(1574) = 0.57*B(535) -! JVS(1575) = Jac_FULL(149,120) - JVS(1575) = 0.57*B(547) -! JVS(1576) = Jac_FULL(149,121) - JVS(1576) = -B(328)+B(330) -! JVS(1577) = Jac_FULL(149,123) - JVS(1577) = B(173) -! JVS(1578) = Jac_FULL(149,124) - JVS(1578) = 2*B(32)+B(216) -! JVS(1579) = Jac_FULL(149,125) - JVS(1579) = B(419)-B(421)+B(423) -! JVS(1580) = Jac_FULL(149,126) - JVS(1580) = 1.2*B(59)+0.2*B(583) -! JVS(1581) = Jac_FULL(149,127) - JVS(1581) = B(561)-B(563)+0.9*B(565) -! JVS(1582) = Jac_FULL(149,128) - JVS(1582) = 0.28*B(230) -! JVS(1583) = Jac_FULL(149,129) - JVS(1583) = B(26) -! JVS(1584) = Jac_FULL(149,130) - JVS(1584) = -0.67*B(475)+0.83*B(477) -! JVS(1585) = Jac_FULL(149,131) - JVS(1585) = B(571)-B(573)+0.8*B(575) -! JVS(1586) = Jac_FULL(149,132) - JVS(1586) = 0.5*B(551)-B(553) -! JVS(1587) = Jac_FULL(149,133) - JVS(1587) = B(58) -! JVS(1588) = Jac_FULL(149,134) - JVS(1588) = 0.3*B(256)-B(258) -! JVS(1589) = Jac_FULL(149,135) - JVS(1589) = B(84)+B(86)-B(87)+B(97)+B(146) -! JVS(1590) = Jac_FULL(149,136) - JVS(1590) = B(37)+B(246) -! JVS(1591) = Jac_FULL(149,137) - JVS(1591) = 0.67*B(35)+B(276) -! JVS(1592) = Jac_FULL(149,138) - JVS(1592) = B(28) -! JVS(1593) = Jac_FULL(149,139) - JVS(1593) = B(393)+0.8*B(395)-B(397)+B(399)+B(401) -! JVS(1594) = Jac_FULL(149,140) - JVS(1594) = B(344)+B(346)-B(348)+0.92*B(350)+B(352) -! JVS(1595) = Jac_FULL(149,141) - JVS(1595) = B(354)+B(356)-B(358)+B(360)+0.92*B(361)+B(363) -! JVS(1596) = Jac_FULL(149,142) - JVS(1596) = B(371)+1.2*B(373)-B(375)+B(377)+B(379) -! JVS(1597) = Jac_FULL(149,143) - JVS(1597) = 0.67*B(40)+0.14*B(290) -! JVS(1598) = Jac_FULL(149,144) - JVS(1598) = 0.28*B(317) -! JVS(1599) = Jac_FULL(149,145) - JVS(1599) = 0.47*B(278)+0.73*B(280)-B(282)+0.47*B(284)+0.47*B(286) -! JVS(1600) = Jac_FULL(149,146) - JVS(1600) = 2*B(24)-B(142)+B(144)+B(147)+B(148) -! JVS(1601) = Jac_FULL(149,147) - JVS(1601) = -B(130) -! JVS(1602) = Jac_FULL(149,148) - JVS(1602) = B(92)+B(94)-B(95)+B(98)+B(99)+B(118)+B(149)+B(157)+B(163)+B(165)+B(174)+0.35*B(176)+B(187)+B(197)+B(217)& - &+B(219)+B(247)+B(277)+0.2*B(295)+0.5*B(316)+0.3*B(366)+B(368)+B(382)+B(390)+B(392)+0.65*B(440)+0.73*B(462)& - &+0.8*B(486)+0.28*B(502)+0.38*B(506)+0.63*B(518)+0.2*B(584)+0.5*B(592) -! JVS(1603) = Jac_FULL(149,149) - JVS(1603) = -B(88)-B(89)-B(96)-2*B(103)-B(112)-B(120)-B(131)-B(143)-B(152)-B(167)-B(183)-B(201)-B(210)-B(235)-B(251)& - &-B(259)-B(283)-B(300)-B(308)-B(329)-B(349)-B(359)-B(376)-B(398)-0.6*B(406)-B(414)-B(422)-B(432)-B(436)& - &-B(442)-B(450)-B(456)-0.93*B(464)-0.84*B(470)-0.67*B(476)-B(482)-B(496)-B(508)-B(514)-B(554)-B(564)-B(574)& - &-B(593) -! JVS(1604) = Jac_FULL(149,150) - JVS(1604) = -B(113)+B(119)+B(145)+0.47*B(285)+B(353)+B(364)+B(380)+B(402)+0.75*B(418) -! JVS(1605) = Jac_FULL(149,151) - JVS(1605) = -B(90)+B(100)+0.13*B(178)+0.28*B(231)+0.14*B(291)+0.28*B(318)+0.37*B(384)+0.48*B(426)+0.57*B(524)+0.57& - &*B(530)+0.57*B(536)+0.57*B(542)+0.57*B(548) -! JVS(1606) = Jac_FULL(149,152) - JVS(1606) = 0.9*B(199)-B(202)+0.47*B(279)+B(345)+B(355)+B(372)+B(394) -! JVS(1607) = Jac_FULL(149,153) - JVS(1607) = -B(121)+B(154)+B(170)+B(185)+0.25*B(212)+B(237)+B(253)+B(273)+0.47*B(287)+B(331)+0.92*B(351)+0.92*B(362)& - &+B(378)+B(400)+B(408)+0.75*B(416)+B(424)+0.9*B(438)+B(444)+B(454)+0.17*B(466)+0.4*B(472)+0.83*B(478)+B(484)& - &+B(498)+B(510)+B(516)+0.9*B(566)+0.8*B(576) -! JVS(1608) = Jac_FULL(149,154) - JVS(1608) = B(298)-B(301) -! JVS(1609) = Jac_FULL(149,155) - JVS(1609) = 2*B(150)-B(153)+B(155)+B(181)+0.9*B(200)+B(233)+0.3*B(257)+0.73*B(281)+B(299)+B(347)+B(357)+1.2*B(374)+0.8& - &*B(396)+B(420)+0.5*B(552)+B(562)+B(572) -! JVS(1610) = Jac_FULL(150,29) - JVS(1610) = B(8)+B(140) -! JVS(1611) = Jac_FULL(150,36) - JVS(1611) = -B(585) -! JVS(1612) = Jac_FULL(150,45) - JVS(1612) = 0.33*B(6) -! JVS(1613) = Jac_FULL(150,59) - JVS(1613) = -B(268) -! JVS(1614) = Jac_FULL(150,70) - JVS(1614) = B(136) -! JVS(1615) = Jac_FULL(150,71) - JVS(1615) = 0.4*B(50)+B(220) -! JVS(1616) = Jac_FULL(150,84) - JVS(1616) = 0.5*B(315) -! JVS(1617) = Jac_FULL(150,104) - JVS(1617) = -B(411) -! JVS(1618) = Jac_FULL(150,112) - JVS(1618) = -B(417) -! JVS(1619) = Jac_FULL(150,114) - JVS(1619) = -B(369) -! JVS(1620) = Jac_FULL(150,115) - JVS(1620) = -B(539) -! JVS(1621) = Jac_FULL(150,116) - JVS(1621) = -B(521) -! JVS(1622) = Jac_FULL(150,117) - JVS(1622) = -B(527) -! JVS(1623) = Jac_FULL(150,118) - JVS(1623) = -B(533) -! JVS(1624) = Jac_FULL(150,120) - JVS(1624) = -B(545) -! JVS(1625) = Jac_FULL(150,128) - JVS(1625) = -B(228) -! JVS(1626) = Jac_FULL(150,129) - JVS(1626) = -B(192) -! JVS(1627) = Jac_FULL(150,132) - JVS(1627) = -B(557) -! JVS(1628) = Jac_FULL(150,133) - JVS(1628) = -B(579) -! JVS(1629) = Jac_FULL(150,135) - JVS(1629) = B(110)-B(116) -! JVS(1630) = Jac_FULL(150,137) - JVS(1630) = 0 -! JVS(1631) = Jac_FULL(150,138) - JVS(1631) = -B(242) -! JVS(1632) = Jac_FULL(150,139) - JVS(1632) = -B(401) -! JVS(1633) = Jac_FULL(150,140) - JVS(1633) = -B(352) -! JVS(1634) = Jac_FULL(150,141) - JVS(1634) = -B(363) -! JVS(1635) = Jac_FULL(150,142) - JVS(1635) = -B(379) -! JVS(1636) = Jac_FULL(150,143) - JVS(1636) = 0 -! JVS(1637) = Jac_FULL(150,144) - JVS(1637) = 0 -! JVS(1638) = Jac_FULL(150,145) - JVS(1638) = -B(284) -! JVS(1639) = Jac_FULL(150,146) - JVS(1639) = -B(144) -! JVS(1640) = Jac_FULL(150,147) - JVS(1640) = B(108)+B(111)-B(132) -! JVS(1641) = Jac_FULL(150,148) - JVS(1641) = -B(118)+B(137)+B(221)+0.5*B(316) -! JVS(1642) = Jac_FULL(150,149) - JVS(1642) = -B(112) -! JVS(1643) = Jac_FULL(150,150) - JVS(1643) = -B(10)-B(113)-B(114)-B(117)-B(119)-B(133)-B(145)-B(193)-B(229)-B(243)-B(269)-B(285)-B(305)-B(353)-B(364)& - &-B(370)-B(380)-B(402)-B(412)-B(418)-B(522)-B(528)-B(534)-B(540)-B(546)-B(558)-B(580)-B(586)-B(596) -! JVS(1644) = Jac_FULL(150,151) - JVS(1644) = B(109) -! JVS(1645) = Jac_FULL(150,152) - JVS(1645) = 0 -! JVS(1646) = Jac_FULL(150,153) - JVS(1646) = -B(115) -! JVS(1647) = Jac_FULL(150,154) - JVS(1647) = -B(306) -! JVS(1648) = Jac_FULL(150,155) - JVS(1648) = 0 -! JVS(1649) = Jac_FULL(151,60) - JVS(1649) = -B(177) -! JVS(1650) = Jac_FULL(151,73) - JVS(1650) = -B(489) -! JVS(1651) = Jac_FULL(151,92) - JVS(1651) = 0 -! JVS(1652) = Jac_FULL(151,104) - JVS(1652) = -B(425) -! JVS(1653) = Jac_FULL(151,106) - JVS(1653) = -B(74) -! JVS(1654) = Jac_FULL(151,114) - JVS(1654) = -B(383) -! JVS(1655) = Jac_FULL(151,115) - JVS(1655) = -B(541) -! JVS(1656) = Jac_FULL(151,116) - JVS(1656) = -B(523) -! JVS(1657) = Jac_FULL(151,117) - JVS(1657) = -B(529) -! JVS(1658) = Jac_FULL(151,118) - JVS(1658) = -B(535) -! JVS(1659) = Jac_FULL(151,120) - JVS(1659) = -B(547) -! JVS(1660) = Jac_FULL(151,128) - JVS(1660) = -B(230) -! JVS(1661) = Jac_FULL(151,135) - JVS(1661) = -B(76)+B(80) -! JVS(1662) = Jac_FULL(151,143) - JVS(1662) = -B(290) -! JVS(1663) = Jac_FULL(151,144) - JVS(1663) = -B(317) -! JVS(1664) = Jac_FULL(151,146) - JVS(1664) = 0 -! JVS(1665) = Jac_FULL(151,147) - JVS(1665) = -B(108) -! JVS(1666) = Jac_FULL(151,148) - JVS(1666) = -B(99) -! JVS(1667) = Jac_FULL(151,149) - JVS(1667) = -B(89)+0.15*B(201)+0.15*B(300) -! JVS(1668) = Jac_FULL(151,150) - JVS(1668) = 0.89*B(10) -! JVS(1669) = Jac_FULL(151,151) - JVS(1669) = -B(3)-B(4)-B(75)-B(77)-B(90)-B(100)-B(109)-B(122)-B(178)-B(231)-B(291)-B(318)-B(384)-B(426)-B(490)-B(524)& - &-B(530)-B(536)-B(542)-B(548) -! JVS(1670) = Jac_FULL(151,152) - JVS(1670) = 0.15*B(202) -! JVS(1671) = Jac_FULL(151,153) - JVS(1671) = -B(123) -! JVS(1672) = Jac_FULL(151,154) - JVS(1672) = 0.15*B(301) -! JVS(1673) = Jac_FULL(151,155) - JVS(1673) = 0 -! JVS(1674) = Jac_FULL(152,32) - JVS(1674) = 0.5*B(54) -! JVS(1675) = Jac_FULL(152,34) - JVS(1675) = 0 -! JVS(1676) = Jac_FULL(152,49) - JVS(1676) = B(43) -! JVS(1677) = Jac_FULL(152,55) - JVS(1677) = B(53) -! JVS(1678) = Jac_FULL(152,57) - JVS(1678) = B(19) -! JVS(1679) = Jac_FULL(152,68) - JVS(1679) = 0.5*B(207) -! JVS(1680) = Jac_FULL(152,71) - JVS(1680) = 0.6*B(50)+B(226) -! JVS(1681) = Jac_FULL(152,78) - JVS(1681) = B(42) -! JVS(1682) = Jac_FULL(152,93) - JVS(1682) = 0 -! JVS(1683) = Jac_FULL(152,94) - JVS(1683) = 0 -! JVS(1684) = Jac_FULL(152,95) - JVS(1684) = 0.2*B(307)+B(309) -! JVS(1685) = Jac_FULL(152,98) - JVS(1685) = 0 -! JVS(1686) = Jac_FULL(152,101) - JVS(1686) = 0 -! JVS(1687) = Jac_FULL(152,111) - JVS(1687) = 0.13*B(15) -! JVS(1688) = Jac_FULL(152,114) - JVS(1688) = 0.08*B(383) -! JVS(1689) = Jac_FULL(152,115) - JVS(1689) = 0.06*B(541) -! JVS(1690) = Jac_FULL(152,116) - JVS(1690) = 0.06*B(523) -! JVS(1691) = Jac_FULL(152,117) - JVS(1691) = 0.06*B(529) -! JVS(1692) = Jac_FULL(152,118) - JVS(1692) = 0.06*B(535) -! JVS(1693) = Jac_FULL(152,119) - JVS(1693) = B(47) -! JVS(1694) = Jac_FULL(152,120) - JVS(1694) = 0.06*B(547) -! JVS(1695) = Jac_FULL(152,121) - JVS(1695) = 0 -! JVS(1696) = Jac_FULL(152,122) - JVS(1696) = B(27) -! JVS(1697) = Jac_FULL(152,125) - JVS(1697) = 0 -! JVS(1698) = Jac_FULL(152,126) - JVS(1698) = 0.65*B(59)+0.65*B(583) -! JVS(1699) = Jac_FULL(152,127) - JVS(1699) = 0 -! JVS(1700) = Jac_FULL(152,128) - JVS(1700) = 0 -! JVS(1701) = Jac_FULL(152,129) - JVS(1701) = B(192)+B(194) -! JVS(1702) = Jac_FULL(152,131) - JVS(1702) = 0 -! JVS(1703) = Jac_FULL(152,133) - JVS(1703) = 0 -! JVS(1704) = Jac_FULL(152,134) - JVS(1704) = 0.3*B(256)+0.15*B(258)+B(260) -! JVS(1705) = Jac_FULL(152,136) - JVS(1705) = B(37) -! JVS(1706) = Jac_FULL(152,137) - JVS(1706) = 0.33*B(35) -! JVS(1707) = Jac_FULL(152,138) - JVS(1707) = B(28)+B(242)+B(244) -! JVS(1708) = Jac_FULL(152,139) - JVS(1708) = -B(393) -! JVS(1709) = Jac_FULL(152,140) - JVS(1709) = -B(344) -! JVS(1710) = Jac_FULL(152,141) - JVS(1710) = -B(354) -! JVS(1711) = Jac_FULL(152,142) - JVS(1711) = -B(371) -! JVS(1712) = Jac_FULL(152,143) - JVS(1712) = 0.67*B(40)+0.1*B(290) -! JVS(1713) = Jac_FULL(152,144) - JVS(1713) = 0.3*B(45)+0.28*B(317) -! JVS(1714) = Jac_FULL(152,145) - JVS(1714) = -0.47*B(278)+0.26*B(280)+0.53*B(284)+0.53*B(286) -! JVS(1715) = Jac_FULL(152,147) - JVS(1715) = -B(224) -! JVS(1716) = Jac_FULL(152,148) - JVS(1716) = B(195)+0.5*B(208)+B(245)+0.65*B(584) -! JVS(1717) = Jac_FULL(152,149) - JVS(1717) = -B(201)+0.15*B(259)+0.45*B(300)+0.2*B(308) -! JVS(1718) = Jac_FULL(152,150) - JVS(1718) = B(193)+B(243)+0.53*B(285)+B(305) -! JVS(1719) = Jac_FULL(152,151) - JVS(1719) = 0.1*B(291)+0.28*B(318)+0.08*B(384)+0.06*B(524)+0.06*B(530)+0.06*B(536)+0.06*B(542)+0.06*B(548) -! JVS(1720) = Jac_FULL(152,152) - JVS(1720) = -2*B(198)-B(199)-B(202)-B(203)-B(225)-0.47*B(279)-B(345)-B(355)-B(372)-B(394) -! JVS(1721) = Jac_FULL(152,153) - JVS(1721) = -B(204)+B(261)+0.53*B(287)+B(303)+B(310) -! JVS(1722) = Jac_FULL(152,154) - JVS(1722) = B(298)+0.45*B(301)+2*B(302)+B(304)+B(306) -! JVS(1723) = Jac_FULL(152,155) - JVS(1723) = -B(200)+0.3*B(257)+0.26*B(281)+B(299) -! JVS(1724) = Jac_FULL(153,18) - JVS(1724) = 2*B(126) -! JVS(1725) = Jac_FULL(153,43) - JVS(1725) = -B(437) -! JVS(1726) = Jac_FULL(153,64) - JVS(1726) = -B(453) -! JVS(1727) = Jac_FULL(153,65) - JVS(1727) = -B(169) -! JVS(1728) = Jac_FULL(153,66) - JVS(1728) = -B(483) -! JVS(1729) = Jac_FULL(153,76) - JVS(1729) = -B(443) -! JVS(1730) = Jac_FULL(153,77) - JVS(1730) = -B(515) -! JVS(1731) = Jac_FULL(153,79) - JVS(1731) = -B(407) -! JVS(1732) = Jac_FULL(153,81) - JVS(1732) = -B(433) -! JVS(1733) = Jac_FULL(153,86) - JVS(1733) = -B(272)-B(274) -! JVS(1734) = Jac_FULL(153,90) - JVS(1734) = -B(211) -! JVS(1735) = Jac_FULL(153,92) - JVS(1735) = -B(457) -! JVS(1736) = Jac_FULL(153,95) - JVS(1736) = -B(309) -! JVS(1737) = Jac_FULL(153,96) - JVS(1737) = -B(252) -! JVS(1738) = Jac_FULL(153,99) - JVS(1738) = -B(497) -! JVS(1739) = Jac_FULL(153,100) - JVS(1739) = -B(471) -! JVS(1740) = Jac_FULL(153,101) - JVS(1740) = -B(509) -! JVS(1741) = Jac_FULL(153,102) - JVS(1741) = -B(465) -! JVS(1742) = Jac_FULL(153,105) - JVS(1742) = -B(236) -! JVS(1743) = Jac_FULL(153,106) - JVS(1743) = 2*B(127) -! JVS(1744) = Jac_FULL(153,108) - JVS(1744) = -B(184) -! JVS(1745) = Jac_FULL(153,112) - JVS(1745) = -B(415) -! JVS(1746) = Jac_FULL(153,113) - JVS(1746) = 0 -! JVS(1747) = Jac_FULL(153,121) - JVS(1747) = -B(330)-B(332) -! JVS(1748) = Jac_FULL(153,125) - JVS(1748) = -B(423) -! JVS(1749) = Jac_FULL(153,127) - JVS(1749) = -B(565) -! JVS(1750) = Jac_FULL(153,128) - JVS(1750) = 0 -! JVS(1751) = Jac_FULL(153,130) - JVS(1751) = -B(477) -! JVS(1752) = Jac_FULL(153,131) - JVS(1752) = -B(575) -! JVS(1753) = Jac_FULL(153,132) - JVS(1753) = -B(555) -! JVS(1754) = Jac_FULL(153,133) - JVS(1754) = 0 -! JVS(1755) = Jac_FULL(153,134) - JVS(1755) = -B(260) -! JVS(1756) = Jac_FULL(153,135) - JVS(1756) = B(106)-B(124) -! JVS(1757) = Jac_FULL(153,137) - JVS(1757) = 0 -! JVS(1758) = Jac_FULL(153,139) - JVS(1758) = -B(399) -! JVS(1759) = Jac_FULL(153,140) - JVS(1759) = -B(350) -! JVS(1760) = Jac_FULL(153,141) - JVS(1760) = -B(361) -! JVS(1761) = Jac_FULL(153,142) - JVS(1761) = -B(377) -! JVS(1762) = Jac_FULL(153,144) - JVS(1762) = 0 -! JVS(1763) = Jac_FULL(153,145) - JVS(1763) = -B(286)-B(288) -! JVS(1764) = Jac_FULL(153,146) - JVS(1764) = 0 -! JVS(1765) = Jac_FULL(153,147) - JVS(1765) = B(9)+B(107)+0.5*B(595) -! JVS(1766) = Jac_FULL(153,148) - JVS(1766) = 0 -! JVS(1767) = Jac_FULL(153,149) - JVS(1767) = -B(120) -! JVS(1768) = Jac_FULL(153,150) - JVS(1768) = 0.11*B(10)-B(114) -! JVS(1769) = Jac_FULL(153,151) - JVS(1769) = -B(122) -! JVS(1770) = Jac_FULL(153,152) - JVS(1770) = -B(203) -! JVS(1771) = Jac_FULL(153,153) - JVS(1771) = -B(115)-B(121)-B(123)-B(125)-B(154)-B(170)-B(185)-B(204)-B(212)-B(237)-B(253)-B(261)-B(273)-B(275)-B(287)& - &-B(289)-B(303)-B(310)-B(331)-B(333)-B(351)-B(362)-B(378)-B(400)-B(408)-B(416)-B(424)-B(434)-B(438)-B(444)& - &-B(454)-B(458)-B(466)-B(472)-B(478)-B(484)-B(498)-B(510)-B(516)-B(556)-B(566)-B(576) -! JVS(1772) = Jac_FULL(153,154) - JVS(1772) = -B(304) -! JVS(1773) = Jac_FULL(153,155) - JVS(1773) = -B(155) -! JVS(1774) = Jac_FULL(154,48) - JVS(1774) = 0.5*B(294) -! JVS(1775) = Jac_FULL(154,84) - JVS(1775) = B(44)+B(324) -! JVS(1776) = Jac_FULL(154,143) - JVS(1776) = 0.33*B(40)+0.5*B(292) -! JVS(1777) = Jac_FULL(154,145) - JVS(1777) = 0 -! JVS(1778) = Jac_FULL(154,147) - JVS(1778) = -B(321) -! JVS(1779) = Jac_FULL(154,148) - JVS(1779) = 0.5*B(293)+0.5*B(295) -! JVS(1780) = Jac_FULL(154,149) - JVS(1780) = -B(300) -! JVS(1781) = Jac_FULL(154,150) - JVS(1781) = -B(305) -! JVS(1782) = Jac_FULL(154,151) - JVS(1782) = 0 -! JVS(1783) = Jac_FULL(154,152) - JVS(1783) = -B(296) -! JVS(1784) = Jac_FULL(154,153) - JVS(1784) = -B(303) -! JVS(1785) = Jac_FULL(154,154) - JVS(1785) = -B(297)-B(298)-B(301)-2*B(302)-B(304)-B(306)-B(322) -! JVS(1786) = Jac_FULL(154,155) - JVS(1786) = -B(299) -! JVS(1787) = Jac_FULL(155,47) - JVS(1787) = 0.7*B(158) -! JVS(1788) = Jac_FULL(155,61) - JVS(1788) = B(205) -! JVS(1789) = Jac_FULL(155,68) - JVS(1789) = B(29) -! JVS(1790) = Jac_FULL(155,71) - JVS(1790) = 0.4*B(50) -! JVS(1791) = Jac_FULL(155,87) - JVS(1791) = 0.75*B(64)+B(160) -! JVS(1792) = Jac_FULL(155,102) - JVS(1792) = 0.33*B(463)+0.83*B(465) -! JVS(1793) = Jac_FULL(155,105) - JVS(1793) = -B(232) -! JVS(1794) = Jac_FULL(155,106) - JVS(1794) = 0.75*B(65) -! JVS(1795) = Jac_FULL(155,108) - JVS(1795) = -B(180) -! JVS(1796) = Jac_FULL(155,114) - JVS(1796) = 0.05*B(383) -! JVS(1797) = Jac_FULL(155,121) - JVS(1797) = 0 -! JVS(1798) = Jac_FULL(155,122) - JVS(1798) = B(27) -! JVS(1799) = Jac_FULL(155,125) - JVS(1799) = -B(419) -! JVS(1800) = Jac_FULL(155,126) - JVS(1800) = 0 -! JVS(1801) = Jac_FULL(155,127) - JVS(1801) = -B(561) -! JVS(1802) = Jac_FULL(155,128) - JVS(1802) = 0.28*B(230) -! JVS(1803) = Jac_FULL(155,129) - JVS(1803) = B(26) -! JVS(1804) = Jac_FULL(155,130) - JVS(1804) = 0.07*B(475)+0.17*B(477) -! JVS(1805) = Jac_FULL(155,131) - JVS(1805) = -B(571) -! JVS(1806) = Jac_FULL(155,132) - JVS(1806) = -B(551) -! JVS(1807) = Jac_FULL(155,133) - JVS(1807) = 0 -! JVS(1808) = Jac_FULL(155,134) - JVS(1808) = -B(256) -! JVS(1809) = Jac_FULL(155,135) - JVS(1809) = 0 -! JVS(1810) = Jac_FULL(155,137) - JVS(1810) = 0 -! JVS(1811) = Jac_FULL(155,139) - JVS(1811) = B(393)-B(395) -! JVS(1812) = Jac_FULL(155,140) - JVS(1812) = B(344)-B(346) -! JVS(1813) = Jac_FULL(155,141) - JVS(1813) = B(354)-B(356) -! JVS(1814) = Jac_FULL(155,142) - JVS(1814) = B(371)-B(373) -! JVS(1815) = Jac_FULL(155,144) - JVS(1815) = 0.3*B(45) -! JVS(1816) = Jac_FULL(155,145) - JVS(1816) = B(278)-B(280) -! JVS(1817) = Jac_FULL(155,146) - JVS(1817) = 0 -! JVS(1818) = Jac_FULL(155,147) - JVS(1818) = 0 -! JVS(1819) = Jac_FULL(155,148) - JVS(1819) = 0.7*B(159)+B(161)+B(206) -! JVS(1820) = Jac_FULL(155,149) - JVS(1820) = -B(152)+0.45*B(201)+0.33*B(464)+0.07*B(476) -! JVS(1821) = Jac_FULL(155,150) - JVS(1821) = 0 -! JVS(1822) = Jac_FULL(155,151) - JVS(1822) = 0.28*B(231)+0.05*B(384) -! JVS(1823) = Jac_FULL(155,152) - JVS(1823) = 2*B(198)-0.1*B(199)+0.45*B(202)+B(203)+B(279)+B(296)+B(345)+B(355)+B(372)+B(394) -! JVS(1824) = Jac_FULL(155,153) - JVS(1824) = -B(154)+B(204)+0.83*B(466)+0.17*B(478) -! JVS(1825) = Jac_FULL(155,154) - JVS(1825) = B(297)-B(298) -! JVS(1826) = Jac_FULL(155,155) - JVS(1826) = -2*B(150)-2*B(151)-B(153)-B(155)-B(181)-0.1*B(200)-B(233)-B(257)-B(281)-B(299)-B(347)-B(357)-B(374)-B(396)& - &-B(420)-B(552)-B(562)-B(572) - -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(43)+JVS(3)*UV(149) - JUV(2) = JVS(4)*UV(2)+JVS(5)*UV(19)+JVS(6)*UV(148) - JUV(3) = JVS(7)*UV(3)+JVS(8)*UV(8)+JVS(9)*UV(9)+JVS(10)*UV(25)+JVS(11)*UV(30)+JVS(12)*UV(34)+JVS(13)*UV(114)+JVS(14)& - &*UV(115)+JVS(15)*UV(116)+JVS(16)*UV(117)+JVS(17)*UV(118)+JVS(18)*UV(120)+JVS(19)*UV(148)+JVS(20)*UV(151) - JUV(4) = JVS(21)*UV(4)+JVS(22)*UV(8)+JVS(23)*UV(9)+JVS(24)*UV(25)+JVS(25)*UV(30)+JVS(26)*UV(34)+JVS(27)*UV(114)& - &+JVS(28)*UV(115)+JVS(29)*UV(116)+JVS(30)*UV(117)+JVS(31)*UV(118)+JVS(32)*UV(120)+JVS(33)*UV(148)+JVS(34)& - &*UV(151) - JUV(5) = JVS(35)*UV(5)+JVS(36)*UV(8)+JVS(37)*UV(9)+JVS(38)*UV(25)+JVS(39)*UV(30)+JVS(40)*UV(34)+JVS(41)*UV(114)& - &+JVS(42)*UV(115)+JVS(43)*UV(116)+JVS(44)*UV(117)+JVS(45)*UV(118)+JVS(46)*UV(120)+JVS(47)*UV(148)+JVS(48)& - &*UV(151) - JUV(6) = JVS(49)*UV(6)+JVS(50)*UV(8)+JVS(51)*UV(9)+JVS(52)*UV(25)+JVS(53)*UV(30)+JVS(54)*UV(34)+JVS(55)*UV(114)& - &+JVS(56)*UV(115)+JVS(57)*UV(116)+JVS(58)*UV(117)+JVS(59)*UV(118)+JVS(60)*UV(120)+JVS(61)*UV(148)+JVS(62)& - &*UV(150)+JVS(63)*UV(151) - JUV(7) = JVS(64)*UV(7)+JVS(65)*UV(8)+JVS(66)*UV(9)+JVS(67)*UV(25)+JVS(68)*UV(30)+JVS(69)*UV(34)+JVS(70)*UV(114)& - &+JVS(71)*UV(115)+JVS(72)*UV(116)+JVS(73)*UV(117)+JVS(74)*UV(118)+JVS(75)*UV(120)+JVS(76)*UV(148)+JVS(77)& - &*UV(150)+JVS(78)*UV(151) - JUV(8) = JVS(79)*UV(8)+JVS(80)*UV(148) - JUV(9) = JVS(81)*UV(9)+JVS(82)*UV(148) - JUV(10) = JVS(83)*UV(10)+JVS(84)*UV(105)+JVS(85)*UV(108)+JVS(86)*UV(125)+JVS(87)*UV(127)+JVS(88)*UV(131)+JVS(89)& - &*UV(132)+JVS(90)*UV(134)+JVS(91)*UV(139)+JVS(92)*UV(140)+JVS(93)*UV(141)+JVS(94)*UV(152)+JVS(95)*UV(155) - JUV(11) = JVS(96)*UV(11)+JVS(97)*UV(64)+JVS(98)*UV(65)+JVS(99)*UV(66)+JVS(100)*UV(76)+JVS(101)*UV(77)+JVS(102)*UV(81)& - &+JVS(103)*UV(90)+JVS(104)*UV(92)+JVS(105)*UV(95)+JVS(106)*UV(96)+JVS(107)*UV(99)+JVS(108)*UV(100)+JVS(109)& - &*UV(101)+JVS(110)*UV(105)+JVS(111)*UV(108)+JVS(112)*UV(112)+JVS(113)*UV(121)+JVS(114)*UV(125)+JVS(115)& - &*UV(127)+JVS(116)*UV(130)+JVS(117)*UV(131)+JVS(118)*UV(132)+JVS(119)*UV(134)+JVS(120)*UV(139)+JVS(121)& - &*UV(140)+JVS(122)*UV(141)+JVS(123)*UV(149)+JVS(124)*UV(152)+JVS(125)*UV(155) - JUV(12) = JVS(126)*UV(12)+JVS(127)*UV(64)+JVS(128)*UV(65)+JVS(129)*UV(66)+JVS(130)*UV(76)+JVS(131)*UV(77)+JVS(132)& - &*UV(81)+JVS(133)*UV(86)+JVS(134)*UV(90)+JVS(135)*UV(92)+JVS(136)*UV(95)+JVS(137)*UV(96)+JVS(138)*UV(99)& - &+JVS(139)*UV(100)+JVS(140)*UV(101)+JVS(141)*UV(105)+JVS(142)*UV(108)+JVS(143)*UV(112)+JVS(144)*UV(121)& - &+JVS(145)*UV(125)+JVS(146)*UV(127)+JVS(147)*UV(130)+JVS(148)*UV(131)+JVS(149)*UV(132)+JVS(150)*UV(134)& - &+JVS(151)*UV(139)+JVS(152)*UV(140)+JVS(153)*UV(141)+JVS(154)*UV(152)+JVS(155)*UV(153)+JVS(156)*UV(155) - JUV(13) = JVS(157)*UV(13)+JVS(158)*UV(15)+JVS(159)*UV(16)+JVS(160)*UV(17)+JVS(161)*UV(21)+JVS(162)*UV(24)+JVS(163)& - &*UV(25)+JVS(164)*UV(27)+JVS(165)*UV(28)+JVS(166)*UV(30)+JVS(167)*UV(31)+JVS(168)*UV(33)+JVS(169)*UV(34)& - &+JVS(170)*UV(37)+JVS(171)*UV(40)+JVS(172)*UV(41)+JVS(173)*UV(46)+JVS(174)*UV(47)+JVS(175)*UV(48)+JVS(176)& - &*UV(51)+JVS(177)*UV(52)+JVS(178)*UV(53)+JVS(179)*UV(54)+JVS(180)*UV(56)+JVS(181)*UV(58)+JVS(182)*UV(59)& - &+JVS(183)*UV(60)+JVS(184)*UV(61)+JVS(185)*UV(62)+JVS(186)*UV(63)+JVS(187)*UV(68)+JVS(188)*UV(71)+JVS(189)& - &*UV(72)+JVS(190)*UV(75)+JVS(191)*UV(78)+JVS(192)*UV(80)+JVS(193)*UV(83)+JVS(194)*UV(84)+JVS(195)*UV(85)& - &+JVS(196)*UV(87)+JVS(197)*UV(88)+JVS(198)*UV(89)+JVS(199)*UV(94)+JVS(200)*UV(97)+JVS(201)*UV(98)+JVS(202)& - &*UV(103)+JVS(203)*UV(104)+JVS(204)*UV(107)+JVS(205)*UV(109)+JVS(206)*UV(110)+JVS(207)*UV(114)+JVS(208)& - &*UV(115)+JVS(209)*UV(116)+JVS(210)*UV(117)+JVS(211)*UV(118)+JVS(212)*UV(120)+JVS(213)*UV(122)+JVS(214)& - &*UV(123)+JVS(215)*UV(124)+JVS(216)*UV(128)+JVS(217)*UV(129)+JVS(218)*UV(136)+JVS(219)*UV(137)+JVS(220)& - &*UV(138)+JVS(221)*UV(143)+JVS(222)*UV(144)+JVS(223)*UV(146)+JVS(224)*UV(148) - JUV(14) = JVS(225)*UV(14)+JVS(226)*UV(148) - JUV(15) = JVS(227)*UV(15)+JVS(228)*UV(148) - JUV(16) = JVS(229)*UV(16)+JVS(230)*UV(148) - JUV(17) = JVS(231)*UV(17)+JVS(232)*UV(148) - JUV(18) = JVS(233)*UV(18)+JVS(234)*UV(106) - JUV(19) = JVS(235)*UV(19)+JVS(236)*UV(36)+JVS(237)*UV(148)+JVS(238)*UV(150) - JUV(20) = JVS(239)*UV(20)+JVS(240)*UV(90)+JVS(241)*UV(149) - JUV(21) = JVS(242)*UV(21)+JVS(243)*UV(97)+JVS(244)*UV(148) - JUV(22) = JVS(245)*UV(22)+JVS(246)*UV(127)+JVS(247)*UV(137)+JVS(248)*UV(148)+JVS(249)*UV(153) - JUV(23) = JVS(250)*UV(23)+JVS(251)*UV(81)+JVS(252)*UV(147) - JUV(24) = JVS(253)*UV(24)+JVS(254)*UV(148) - JUV(25) = JVS(255)*UV(25)+JVS(256)*UV(148) - JUV(26) = JVS(257)*UV(25)+JVS(258)*UV(26)+JVS(259)*UV(148) - JUV(27) = JVS(260)*UV(25)+JVS(261)*UV(27)+JVS(262)*UV(148) - JUV(28) = JVS(263)*UV(28)+JVS(264)*UV(106)+JVS(265)*UV(148) - JUV(29) = JVS(266)*UV(29)+JVS(267)*UV(147)+JVS(268)*UV(150) - JUV(30) = JVS(269)*UV(30)+JVS(270)*UV(148) - JUV(31) = JVS(271)*UV(30)+JVS(272)*UV(31)+JVS(273)*UV(148) - JUV(32) = JVS(274)*UV(30)+JVS(275)*UV(32)+JVS(276)*UV(34)+JVS(277)*UV(148) - JUV(33) = JVS(278)*UV(33)+JVS(279)*UV(139)+JVS(280)*UV(148)+JVS(281)*UV(149) - JUV(34) = JVS(282)*UV(34)+JVS(283)*UV(148) - JUV(35) = JVS(284)*UV(34)+JVS(285)*UV(35)+JVS(286)*UV(148) - JUV(36) = JVS(287)*UV(36)+JVS(288)*UV(148)+JVS(289)*UV(150) - JUV(37) = JVS(290)*UV(37)+JVS(291)*UV(141)+JVS(292)*UV(148) - JUV(38) = JVS(293)*UV(38)+JVS(294)*UV(50)+JVS(295)*UV(64)+JVS(296)*UV(148)+JVS(297)*UV(153) - JUV(39) = JVS(298)*UV(39)+JVS(299)*UV(135)+JVS(300)*UV(148)+JVS(301)*UV(149) - JUV(40) = JVS(302)*UV(40)+JVS(303)*UV(108)+JVS(304)*UV(148)+JVS(305)*UV(155) - JUV(41) = JVS(306)*UV(41)+JVS(307)*UV(92)+JVS(308)*UV(148)+JVS(309)*UV(149) - JUV(42) = JVS(310)*UV(20)+JVS(311)*UV(42)+JVS(312)*UV(90)+JVS(314)*UV(153) - JUV(43) = JVS(315)*UV(43)+JVS(316)*UV(149)+JVS(317)*UV(153) - JUV(44) = JVS(318)*UV(44)+JVS(319)*UV(89)+JVS(320)*UV(98)+JVS(321)*UV(99)+JVS(322)*UV(101)+JVS(323)*UV(153) - JUV(45) = JVS(324)*UV(45)+JVS(325)*UV(147)+JVS(326)*UV(148)+JVS(327)*UV(149) - JUV(46) = JVS(328)*UV(46)+JVS(329)*UV(141)+JVS(330)*UV(148)+JVS(331)*UV(150)+JVS(332)*UV(152)+JVS(333)*UV(153)& - &+JVS(334)*UV(155) - JUV(47) = JVS(335)*UV(47)+JVS(336)*UV(148)+JVS(337)*UV(149)+JVS(338)*UV(155) - JUV(48) = JVS(339)*UV(48)+JVS(340)*UV(145)+JVS(341)*UV(148)+JVS(342)*UV(149) - JUV(49) = JVS(343)*UV(49)+JVS(344)*UV(95)+JVS(345)*UV(148)+JVS(346)*UV(149) - JUV(50) = JVS(347)*UV(50)+JVS(348)*UV(64)+JVS(349)*UV(148)+JVS(350)*UV(149) - JUV(51) = JVS(351)*UV(51)+JVS(352)*UV(142)+JVS(353)*UV(148)+JVS(354)*UV(155) - JUV(52) = JVS(355)*UV(52)+JVS(356)*UV(132)+JVS(357)*UV(148)+JVS(358)*UV(149) - JUV(53) = JVS(359)*UV(53)+JVS(360)*UV(108)+JVS(361)*UV(148)+JVS(362)*UV(149) - JUV(54) = JVS(363)*UV(54)+JVS(364)*UV(66)+JVS(365)*UV(148)+JVS(366)*UV(149) - JUV(55) = JVS(367)*UV(55)+JVS(368)*UV(134)+JVS(369)*UV(148)+JVS(370)*UV(149) - JUV(56) = JVS(371)*UV(56)+JVS(372)*UV(105)+JVS(373)*UV(148)+JVS(374)*UV(149) - JUV(57) = JVS(375)*UV(57)+JVS(376)*UV(98)+JVS(377)*UV(101)+JVS(378)*UV(153) - JUV(58) = JVS(379)*UV(58)+JVS(380)*UV(115)+JVS(381)*UV(116)+JVS(382)*UV(117)+JVS(383)*UV(118)+JVS(384)*UV(120)& - &+JVS(385)*UV(148)+JVS(386)*UV(151) - JUV(59) = JVS(387)*UV(59)+JVS(388)*UV(148)+JVS(389)*UV(150) - JUV(60) = JVS(390)*UV(60)+JVS(391)*UV(148)+JVS(392)*UV(151) - JUV(61) = JVS(393)*UV(61)+JVS(394)*UV(128)+JVS(395)*UV(148)+JVS(396)*UV(149)+JVS(397)*UV(151)+JVS(398)*UV(152)& - &+JVS(399)*UV(154)+JVS(400)*UV(155) - JUV(62) = JVS(401)*UV(62)+JVS(402)*UV(142)+JVS(403)*UV(148)+JVS(404)*UV(149) - JUV(63) = JVS(405)*UV(63)+JVS(406)*UV(77)+JVS(407)*UV(148)+JVS(408)*UV(149) - JUV(64) = JVS(409)*UV(30)+JVS(410)*UV(34)+JVS(411)*UV(50)+JVS(412)*UV(64)+JVS(413)*UV(148)+JVS(414)*UV(149)+JVS(415)& - &*UV(153) - JUV(65) = JVS(416)*UV(65)+JVS(417)*UV(146)+JVS(418)*UV(149)+JVS(419)*UV(153) - JUV(66) = JVS(420)*UV(27)+JVS(421)*UV(31)+JVS(422)*UV(54)+JVS(423)*UV(66)+JVS(424)*UV(148)+JVS(425)*UV(149)+JVS(426)& - &*UV(153) - JUV(67) = JVS(427)*UV(67)+JVS(428)*UV(76)+JVS(429)*UV(148)+JVS(430)*UV(149) - JUV(68) = JVS(431)*UV(68)+JVS(432)*UV(148)+JVS(433)*UV(149)+JVS(434)*UV(152)+JVS(435)*UV(154) - JUV(69) = JVS(436)*UV(26)+JVS(437)*UV(67)+JVS(438)*UV(69)+JVS(439)*UV(76)+JVS(440)*UV(89)+JVS(441)*UV(98)+JVS(442)& - &*UV(99)+JVS(443)*UV(101)+JVS(446)*UV(153) - JUV(70) = JVS(447)*UV(29)+JVS(448)*UV(36)+JVS(449)*UV(70)+JVS(450)*UV(129)+JVS(451)*UV(138)+JVS(452)*UV(146)+JVS(453)& - &*UV(147)+JVS(454)*UV(148)+JVS(455)*UV(150) - JUV(71) = JVS(456)*UV(71)+JVS(457)*UV(147)+JVS(458)*UV(148)+JVS(459)*UV(152) - JUV(72) = JVS(460)*UV(72)+JVS(461)*UV(141)+JVS(462)*UV(148)+JVS(463)*UV(153) - JUV(73) = JVS(464)*UV(27)+JVS(465)*UV(31)+JVS(466)*UV(35)+JVS(467)*UV(41)+JVS(468)*UV(73)+JVS(469)*UV(92)+JVS(470)& - &*UV(147)+JVS(471)*UV(148)+JVS(473)*UV(151)+JVS(474)*UV(153) - JUV(74) = JVS(475)*UV(74)+JVS(476)*UV(96)+JVS(477)*UV(148)+JVS(478)*UV(149) - JUV(75) = JVS(479)*UV(75)+JVS(480)*UV(131)+JVS(481)*UV(148)+JVS(482)*UV(149) - JUV(76) = JVS(483)*UV(25)+JVS(484)*UV(67)+JVS(485)*UV(76)+JVS(486)*UV(148)+JVS(487)*UV(149)+JVS(488)*UV(153) - JUV(77) = JVS(489)*UV(35)+JVS(490)*UV(63)+JVS(491)*UV(77)+JVS(492)*UV(148)+JVS(493)*UV(149)+JVS(494)*UV(153) - JUV(78) = JVS(495)*UV(78)+JVS(496)*UV(93)+JVS(497)*UV(94)+JVS(498)*UV(121)+JVS(499)*UV(148)+JVS(500)*UV(153) - JUV(79) = JVS(501)*UV(79)+JVS(502)*UV(113)+JVS(503)*UV(148)+JVS(504)*UV(149)+JVS(505)*UV(153) - JUV(80) = JVS(506)*UV(80)+JVS(507)*UV(131)+JVS(508)*UV(132)+JVS(509)*UV(148)+JVS(510)*UV(153)+JVS(511)*UV(155) - JUV(81) = JVS(512)*UV(23)+JVS(513)*UV(38)+JVS(516)*UV(81)+JVS(517)*UV(147)+JVS(518)*UV(148)+JVS(519)*UV(149)+JVS(520)& - &*UV(153) - JUV(82) = JVS(521)*UV(82)+JVS(522)*UV(87)+JVS(523)*UV(106)+JVS(524)*UV(135)+JVS(525)*UV(146)+JVS(526)*UV(148) - JUV(83) = JVS(527)*UV(83)+JVS(528)*UV(125)+JVS(529)*UV(148)+JVS(530)*UV(149) - JUV(84) = JVS(531)*UV(84)+JVS(532)*UV(147)+JVS(533)*UV(148)+JVS(534)*UV(154) - JUV(85) = JVS(535)*UV(85)+JVS(536)*UV(140)+JVS(537)*UV(148)+JVS(538)*UV(153) - JUV(86) = JVS(539)*UV(59)+JVS(540)*UV(86)+JVS(541)*UV(148)+JVS(543)*UV(153) - JUV(87) = JVS(544)*UV(87)+JVS(545)*UV(106)+JVS(546)*UV(128)+JVS(547)*UV(148)+JVS(548)*UV(151) - JUV(88) = JVS(549)*UV(88)+JVS(550)*UV(127)+JVS(551)*UV(148)+JVS(552)*UV(149) - JUV(89) = JVS(553)*UV(89)+JVS(554)*UV(99)+JVS(555)*UV(148)+JVS(556)*UV(149) - JUV(90) = JVS(557)*UV(60)+JVS(558)*UV(90)+JVS(559)*UV(148)+JVS(560)*UV(149)+JVS(562)*UV(153) - JUV(91) = JVS(563)*UV(37)+JVS(564)*UV(89)+JVS(565)*UV(91)+JVS(566)*UV(98)+JVS(567)*UV(99)+JVS(568)*UV(101)+JVS(569)& - &*UV(110)+JVS(573)*UV(153) - JUV(92) = JVS(574)*UV(41)+JVS(575)*UV(73)+JVS(576)*UV(81)+JVS(577)*UV(92)+JVS(579)*UV(148)+JVS(580)*UV(149)+JVS(581)& - &*UV(151)+JVS(582)*UV(153) - JUV(93) = JVS(583)*UV(93)+JVS(584)*UV(121)+JVS(585)*UV(148)+JVS(586)*UV(153) - JUV(94) = JVS(587)*UV(94)+JVS(588)*UV(121)+JVS(589)*UV(148)+JVS(590)*UV(149) - JUV(95) = JVS(591)*UV(49)+JVS(592)*UV(78)+JVS(595)*UV(95)+JVS(597)*UV(148)+JVS(598)*UV(149)+JVS(599)*UV(153) - JUV(96) = JVS(600)*UV(74)+JVS(601)*UV(96)+JVS(602)*UV(128)+JVS(603)*UV(148)+JVS(604)*UV(149)+JVS(605)*UV(153) - JUV(97) = JVS(606)*UV(62)+JVS(607)*UV(97)+JVS(608)*UV(140)+JVS(609)*UV(141)+JVS(611)*UV(148)+JVS(612)*UV(149) - JUV(98) = JVS(613)*UV(98)+JVS(614)*UV(101)+JVS(615)*UV(148)+JVS(616)*UV(149) - JUV(99) = JVS(617)*UV(30)+JVS(618)*UV(89)+JVS(619)*UV(99)+JVS(620)*UV(148)+JVS(621)*UV(149)+JVS(622)*UV(153) - JUV(100) = JVS(623)*UV(69)+JVS(628)*UV(100)+JVS(630)*UV(147)+JVS(632)*UV(149)+JVS(633)*UV(153) - JUV(101) = JVS(634)*UV(34)+JVS(635)*UV(98)+JVS(636)*UV(101)+JVS(637)*UV(148)+JVS(638)*UV(149)+JVS(639)*UV(153) - JUV(102) = JVS(640)*UV(44)+JVS(645)*UV(102)+JVS(646)*UV(147)+JVS(648)*UV(149)+JVS(649)*UV(153) - JUV(103) = JVS(650)*UV(24)+JVS(651)*UV(60)+JVS(652)*UV(65)+JVS(653)*UV(103)+JVS(654)*UV(104)+JVS(655)*UV(114)+JVS(656)& - &*UV(115)+JVS(657)*UV(116)+JVS(658)*UV(117)+JVS(659)*UV(118)+JVS(660)*UV(120)+JVS(661)*UV(128)+JVS(662)& - &*UV(143)+JVS(663)*UV(144)+JVS(665)*UV(148)+JVS(666)*UV(149)+JVS(667)*UV(151)+JVS(668)*UV(153) - JUV(104) = JVS(669)*UV(104)+JVS(670)*UV(148)+JVS(671)*UV(150)+JVS(672)*UV(151) - JUV(105) = JVS(673)*UV(16)+JVS(674)*UV(56)+JVS(675)*UV(105)+JVS(676)*UV(148)+JVS(677)*UV(149)+JVS(678)*UV(153)& - &+JVS(679)*UV(155) - JUV(106) = JVS(680)*UV(18)+JVS(681)*UV(28)+JVS(682)*UV(82)+JVS(683)*UV(87)+JVS(684)*UV(106)+JVS(689)*UV(151) - JUV(107) = JVS(690)*UV(107)+JVS(691)*UV(108)+JVS(692)*UV(125)+JVS(693)*UV(127)+JVS(694)*UV(131)+JVS(695)*UV(132)& - &+JVS(696)*UV(134)+JVS(697)*UV(139)+JVS(698)*UV(140)+JVS(699)*UV(141)+JVS(700)*UV(142)+JVS(701)*UV(145)& - &+JVS(702)*UV(148)+JVS(703)*UV(155) - JUV(108) = JVS(704)*UV(15)+JVS(705)*UV(53)+JVS(706)*UV(78)+JVS(709)*UV(108)+JVS(711)*UV(148)+JVS(712)*UV(149)+JVS(713)& - &*UV(153)+JVS(714)*UV(155) - JUV(109) = JVS(715)*UV(24)+JVS(716)*UV(43)+JVS(717)*UV(54)+JVS(718)*UV(63)+JVS(719)*UV(66)+JVS(720)*UV(67)+JVS(721)& - &*UV(76)+JVS(722)*UV(77)+JVS(723)*UV(89)+JVS(724)*UV(98)+JVS(725)*UV(99)+JVS(726)*UV(100)+JVS(727)*UV(101)& - &+JVS(728)*UV(109)+JVS(729)*UV(110)+JVS(730)*UV(111)+JVS(731)*UV(124)+JVS(732)*UV(130)+JVS(733)*UV(139)& - &+JVS(734)*UV(141)+JVS(736)*UV(148)+JVS(737)*UV(149)+JVS(738)*UV(150)+JVS(739)*UV(152)+JVS(740)*UV(153)& - &+JVS(741)*UV(155) - JUV(110) = JVS(742)*UV(110)+JVS(743)*UV(142)+JVS(744)*UV(148)+JVS(745)*UV(150)+JVS(746)*UV(152)+JVS(747)*UV(153)& - &+JVS(748)*UV(155) - JUV(111) = JVS(749)*UV(43)+JVS(750)*UV(111)+JVS(751)*UV(115)+JVS(752)*UV(116)+JVS(753)*UV(117)+JVS(754)*UV(118)& - &+JVS(755)*UV(120)+JVS(757)*UV(151)+JVS(758)*UV(153) - JUV(112) = JVS(759)*UV(104)+JVS(760)*UV(112)+JVS(762)*UV(149)+JVS(763)*UV(150)+JVS(765)*UV(153) - JUV(113) = JVS(766)*UV(83)+JVS(767)*UV(104)+JVS(768)*UV(112)+JVS(769)*UV(113)+JVS(770)*UV(125)+JVS(771)*UV(148)& - &+JVS(773)*UV(150)+JVS(774)*UV(151)+JVS(775)*UV(153)+JVS(776)*UV(155) - JUV(114) = JVS(777)*UV(114)+JVS(778)*UV(148)+JVS(779)*UV(150)+JVS(780)*UV(151) - JUV(115) = JVS(781)*UV(115)+JVS(782)*UV(148)+JVS(783)*UV(150)+JVS(784)*UV(151) - JUV(116) = JVS(785)*UV(116)+JVS(786)*UV(148)+JVS(787)*UV(150)+JVS(788)*UV(151) - JUV(117) = JVS(789)*UV(117)+JVS(790)*UV(148)+JVS(791)*UV(150)+JVS(792)*UV(151) - JUV(118) = JVS(793)*UV(118)+JVS(794)*UV(148)+JVS(795)*UV(150)+JVS(796)*UV(151) - JUV(119) = JVS(797)*UV(51)+JVS(798)*UV(62)+JVS(799)*UV(72)+JVS(800)*UV(110)+JVS(801)*UV(119)+JVS(802)*UV(128)+JVS(805)& - &*UV(148)+JVS(807)*UV(150) - JUV(120) = JVS(811)*UV(120)+JVS(812)*UV(148)+JVS(813)*UV(150)+JVS(814)*UV(151) - JUV(121) = JVS(815)*UV(58)+JVS(816)*UV(94)+JVS(822)*UV(121)+JVS(823)*UV(148)+JVS(824)*UV(149)+JVS(827)*UV(153) - JUV(122) = JVS(828)*UV(56)+JVS(829)*UV(59)+JVS(830)*UV(75)+JVS(831)*UV(79)+JVS(832)*UV(83)+JVS(833)*UV(86)+JVS(834)& - &*UV(88)+JVS(835)*UV(93)+JVS(836)*UV(94)+JVS(837)*UV(104)+JVS(838)*UV(105)+JVS(839)*UV(112)+JVS(840)*UV(113)& - &+JVS(841)*UV(115)+JVS(842)*UV(116)+JVS(843)*UV(117)+JVS(844)*UV(118)+JVS(845)*UV(120)+JVS(846)*UV(121)& - &+JVS(847)*UV(122)+JVS(848)*UV(125)+JVS(849)*UV(126)+JVS(850)*UV(127)+JVS(851)*UV(131)+JVS(852)*UV(137)& - &+JVS(853)*UV(148)+JVS(854)*UV(149)+JVS(855)*UV(150)+JVS(856)*UV(151)+JVS(857)*UV(153)+JVS(858)*UV(155) - JUV(123) = JVS(859)*UV(24)+JVS(860)*UV(26)+JVS(861)*UV(32)+JVS(863)*UV(57)+JVS(864)*UV(60)+JVS(865)*UV(88)+JVS(866)& - &*UV(91)+JVS(869)*UV(100)+JVS(871)*UV(102)+JVS(872)*UV(104)+JVS(873)*UV(109)+JVS(875)*UV(111)+JVS(876)& - &*UV(113)+JVS(877)*UV(114)+JVS(878)*UV(115)+JVS(879)*UV(116)+JVS(880)*UV(117)+JVS(881)*UV(118)+JVS(882)& - &*UV(120)+JVS(883)*UV(123)+JVS(884)*UV(124)+JVS(886)*UV(126)+JVS(887)*UV(127)+JVS(888)*UV(128)+JVS(889)& - &*UV(129)+JVS(890)*UV(130)+JVS(891)*UV(133)+JVS(892)*UV(135)+JVS(893)*UV(137)+JVS(894)*UV(138)+JVS(895)& - &*UV(139)+JVS(898)*UV(143)+JVS(899)*UV(144)+JVS(900)*UV(145)+JVS(901)*UV(146)+JVS(903)*UV(148)+JVS(904)& - &*UV(149)+JVS(905)*UV(150)+JVS(906)*UV(151)+JVS(907)*UV(152)+JVS(908)*UV(153)+JVS(909)*UV(155) - JUV(124) = JVS(910)*UV(42)+JVS(911)*UV(51)+JVS(912)*UV(72)+JVS(913)*UV(83)+JVS(914)*UV(85)+JVS(915)*UV(88)+JVS(917)& - &*UV(124)+JVS(918)*UV(125)+JVS(919)*UV(127)+JVS(920)*UV(137)+JVS(921)*UV(139)+JVS(923)*UV(141)+JVS(925)& - &*UV(145)+JVS(926)*UV(148)+JVS(928)*UV(150)+JVS(930)*UV(152)+JVS(931)*UV(153)+JVS(932)*UV(155) - JUV(125) = JVS(933)*UV(83)+JVS(934)*UV(104)+JVS(935)*UV(125)+JVS(936)*UV(148)+JVS(937)*UV(149)+JVS(940)*UV(153)& - &+JVS(941)*UV(155) - JUV(126) = JVS(942)*UV(88)+JVS(943)*UV(115)+JVS(944)*UV(116)+JVS(945)*UV(117)+JVS(946)*UV(118)+JVS(947)*UV(120)& - &+JVS(948)*UV(126)+JVS(949)*UV(127)+JVS(950)*UV(133)+JVS(951)*UV(148)+JVS(954)*UV(151)+JVS(955)*UV(153)& - &+JVS(956)*UV(155) - JUV(127) = JVS(957)*UV(88)+JVS(958)*UV(127)+JVS(959)*UV(133)+JVS(960)*UV(148)+JVS(961)*UV(149)+JVS(962)*UV(150)& - &+JVS(963)*UV(153)+JVS(964)*UV(155) - JUV(128) = JVS(965)*UV(114)+JVS(966)*UV(128)+JVS(967)*UV(144)+JVS(968)*UV(148)+JVS(969)*UV(150)+JVS(970)*UV(151) - JUV(129) = JVS(971)*UV(40)+JVS(972)*UV(49)+JVS(973)*UV(53)+JVS(974)*UV(59)+JVS(975)*UV(74)+JVS(976)*UV(86)+JVS(977)& - &*UV(93)+JVS(978)*UV(94)+JVS(979)*UV(95)+JVS(980)*UV(96)+JVS(981)*UV(105)+JVS(982)*UV(108)+JVS(983)*UV(121)& - &+JVS(984)*UV(128)+JVS(985)*UV(129)+JVS(986)*UV(137)+JVS(987)*UV(144)+JVS(988)*UV(148)+JVS(989)*UV(149)& - &+JVS(990)*UV(150)+JVS(991)*UV(151)+JVS(992)*UV(153)+JVS(993)*UV(155) - JUV(130) = JVS(994)*UV(91)+JVS(999)*UV(130)+JVS(1002)*UV(147)+JVS(1004)*UV(149)+JVS(1007)*UV(153) - JUV(131) = JVS(1009)*UV(75)+JVS(1010)*UV(115)+JVS(1011)*UV(116)+JVS(1012)*UV(117)+JVS(1013)*UV(118)+JVS(1014)*UV(120)& - &+JVS(1015)*UV(131)+JVS(1016)*UV(148)+JVS(1017)*UV(149)+JVS(1020)*UV(153)+JVS(1021)*UV(155) - JUV(132) = JVS(1022)*UV(52)+JVS(1023)*UV(115)+JVS(1024)*UV(116)+JVS(1025)*UV(117)+JVS(1026)*UV(118)+JVS(1027)*UV(120)& - &+JVS(1028)*UV(132)+JVS(1029)*UV(133)+JVS(1030)*UV(148)+JVS(1031)*UV(149)+JVS(1032)*UV(150)+JVS(1034)*UV(153)& - &+JVS(1035)*UV(155) - JUV(133) = JVS(1036)*UV(52)+JVS(1037)*UV(75)+JVS(1038)*UV(80)+JVS(1039)*UV(115)+JVS(1040)*UV(116)+JVS(1041)*UV(117)& - &+JVS(1042)*UV(118)+JVS(1043)*UV(120)+JVS(1044)*UV(131)+JVS(1045)*UV(132)+JVS(1046)*UV(133)+JVS(1047)*UV(148)& - &+JVS(1049)*UV(150)+JVS(1050)*UV(151)+JVS(1051)*UV(153)+JVS(1052)*UV(155) - JUV(134) = JVS(1053)*UV(55)+JVS(1054)*UV(115)+JVS(1055)*UV(116)+JVS(1056)*UV(117)+JVS(1057)*UV(118)+JVS(1058)*UV(120)& - &+JVS(1059)*UV(122)+JVS(1061)*UV(126)+JVS(1065)*UV(134)+JVS(1067)*UV(148)+JVS(1068)*UV(149)+JVS(1070)*UV(151)& - &+JVS(1071)*UV(153)+JVS(1072)*UV(155) - JUV(135) = JVS(1073)*UV(39)+JVS(1074)*UV(82)+JVS(1076)*UV(106)+JVS(1078)*UV(135)+JVS(1080)*UV(146)+JVS(1081)*UV(147)& - &+JVS(1082)*UV(148)+JVS(1083)*UV(149)+JVS(1084)*UV(150)+JVS(1085)*UV(151)+JVS(1086)*UV(153) - JUV(136) = JVS(1087)*UV(72)+JVS(1088)*UV(74)+JVS(1089)*UV(84)+JVS(1090)*UV(85)+JVS(1093)*UV(134)+JVS(1094)*UV(136)& - &+JVS(1095)*UV(137)+JVS(1096)*UV(139)+JVS(1098)*UV(141)+JVS(1100)*UV(145)+JVS(1102)*UV(148)+JVS(1104)*UV(150)& - &+JVS(1106)*UV(152)+JVS(1107)*UV(153)+JVS(1109)*UV(155) - JUV(137) = JVS(1110)*UV(72)+JVS(1111)*UV(85)+JVS(1112)*UV(86)+JVS(1113)*UV(112)+JVS(1114)*UV(137)+JVS(1117)*UV(145)& - &+JVS(1118)*UV(148)+JVS(1120)*UV(150)+JVS(1122)*UV(153) - JUV(138) = JVS(1123)*UV(57)+JVS(1124)*UV(63)+JVS(1125)*UV(77)+JVS(1126)*UV(89)+JVS(1127)*UV(98)+JVS(1128)*UV(99)& - &+JVS(1129)*UV(101)+JVS(1130)*UV(102)+JVS(1131)*UV(111)+JVS(1136)*UV(119)+JVS(1139)*UV(130)+JVS(1140)*UV(134)& - &+JVS(1141)*UV(136)+JVS(1143)*UV(138)+JVS(1144)*UV(139)+JVS(1146)*UV(141)+JVS(1148)*UV(143)+JVS(1149)*UV(144)& - &+JVS(1150)*UV(145)+JVS(1152)*UV(148)+JVS(1153)*UV(149)+JVS(1154)*UV(150)+JVS(1155)*UV(151)+JVS(1156)*UV(152)& - &+JVS(1157)*UV(153)+JVS(1159)*UV(155) - JUV(139) = JVS(1160)*UV(21)+JVS(1161)*UV(33)+JVS(1162)*UV(37)+JVS(1163)*UV(46)+JVS(1164)*UV(97)+JVS(1165)*UV(139)& - &+JVS(1169)*UV(148)+JVS(1170)*UV(149)+JVS(1171)*UV(150)+JVS(1172)*UV(152)+JVS(1173)*UV(153)+JVS(1174)*UV(155) - JUV(140) = JVS(1175)*UV(114)+JVS(1176)*UV(140)+JVS(1177)*UV(148)+JVS(1178)*UV(149)+JVS(1179)*UV(150)+JVS(1181)*UV(152)& - &+JVS(1182)*UV(153)+JVS(1183)*UV(155) - JUV(141) = JVS(1184)*UV(114)+JVS(1185)*UV(141)+JVS(1186)*UV(148)+JVS(1187)*UV(149)+JVS(1188)*UV(150)+JVS(1190)*UV(152)& - &+JVS(1191)*UV(153)+JVS(1192)*UV(155) - JUV(142) = JVS(1193)*UV(114)+JVS(1194)*UV(142)+JVS(1196)*UV(149)+JVS(1197)*UV(150)+JVS(1199)*UV(152)+JVS(1200)*UV(153)& - &+JVS(1201)*UV(155) - JUV(143) = JVS(1202)*UV(97)+JVS(1203)*UV(114)+JVS(1204)*UV(140)+JVS(1207)*UV(143)+JVS(1208)*UV(148)+JVS(1210)*UV(150)& - &+JVS(1211)*UV(151)+JVS(1212)*UV(152)+JVS(1213)*UV(153)+JVS(1214)*UV(155) - JUV(144) = JVS(1215)*UV(97)+JVS(1216)*UV(114)+JVS(1217)*UV(140)+JVS(1220)*UV(144)+JVS(1221)*UV(148)+JVS(1223)*UV(150)& - &+JVS(1224)*UV(151)+JVS(1225)*UV(152)+JVS(1226)*UV(153)+JVS(1227)*UV(155) - JUV(145) = JVS(1228)*UV(48)+JVS(1229)*UV(143)+JVS(1230)*UV(144)+JVS(1231)*UV(145)+JVS(1232)*UV(148)+JVS(1233)*UV(149)& - &+JVS(1234)*UV(150)+JVS(1236)*UV(152)+JVS(1237)*UV(153)+JVS(1238)*UV(155) - JUV(146) = JVS(1239)*UV(42)+JVS(1240)*UV(47)+JVS(1241)*UV(55)+JVS(1242)*UV(59)+JVS(1243)*UV(60)+JVS(1244)*UV(65)& - &+JVS(1245)*UV(68)+JVS(1246)*UV(71)+JVS(1247)*UV(74)+JVS(1248)*UV(75)+JVS(1249)*UV(83)+JVS(1250)*UV(84)& - &+JVS(1251)*UV(85)+JVS(1252)*UV(86)+JVS(1253)*UV(87)+JVS(1254)*UV(88)+JVS(1255)*UV(90)+JVS(1256)*UV(93)& - &+JVS(1257)*UV(94)+JVS(1258)*UV(96)+JVS(1259)*UV(97)+JVS(1260)*UV(104)+JVS(1261)*UV(105)+JVS(1262)*UV(106)& - &+JVS(1263)*UV(107)+JVS(1264)*UV(108)+JVS(1265)*UV(112)+JVS(1266)*UV(114)+JVS(1267)*UV(115)+JVS(1268)*UV(116)& - &+JVS(1269)*UV(117)+JVS(1270)*UV(118)+JVS(1271)*UV(119)+JVS(1272)*UV(120)+JVS(1273)*UV(121)+JVS(1274)*UV(124)& - &+JVS(1275)*UV(125)+JVS(1276)*UV(126)+JVS(1277)*UV(127)+JVS(1278)*UV(128)+JVS(1279)*UV(131)+JVS(1280)*UV(132)& - &+JVS(1282)*UV(134)+JVS(1283)*UV(135)+JVS(1284)*UV(136)+JVS(1285)*UV(137)+JVS(1286)*UV(139)+JVS(1287)*UV(140)& - &+JVS(1288)*UV(141)+JVS(1289)*UV(142)+JVS(1290)*UV(143)+JVS(1291)*UV(144)+JVS(1292)*UV(145)+JVS(1293)*UV(146)& - &+JVS(1295)*UV(148)+JVS(1296)*UV(149)+JVS(1297)*UV(150)+JVS(1298)*UV(151)+JVS(1299)*UV(152)+JVS(1300)*UV(153)& - &+JVS(1301)*UV(154)+JVS(1302)*UV(155) - JUV(147) = JVS(1303)*UV(22)+JVS(1304)*UV(23)+JVS(1305)*UV(29)+JVS(1306)*UV(43)+JVS(1307)*UV(45)+JVS(1308)*UV(52)& - &+JVS(1309)*UV(59)+JVS(1310)*UV(62)+JVS(1311)*UV(64)+JVS(1312)*UV(65)+JVS(1313)*UV(66)+JVS(1314)*UV(70)& - &+JVS(1315)*UV(71)+JVS(1316)*UV(73)+JVS(1317)*UV(76)+JVS(1318)*UV(77)+JVS(1319)*UV(79)+JVS(1320)*UV(80)& - &+JVS(1321)*UV(81)+JVS(1322)*UV(84)+JVS(1323)*UV(85)+JVS(1324)*UV(86)+JVS(1325)*UV(90)+JVS(1326)*UV(92)& - &+JVS(1327)*UV(93)+JVS(1328)*UV(95)+JVS(1329)*UV(96)+JVS(1330)*UV(99)+JVS(1331)*UV(100)+JVS(1332)*UV(101)& - &+JVS(1333)*UV(102)+JVS(1334)*UV(105)+JVS(1335)*UV(108)+JVS(1336)*UV(110)+JVS(1337)*UV(112)+JVS(1339)*UV(119)& - &+JVS(1340)*UV(121)+JVS(1341)*UV(125)+JVS(1342)*UV(127)+JVS(1345)*UV(130)+JVS(1346)*UV(131)+JVS(1347)*UV(132)& - &+JVS(1349)*UV(134)+JVS(1350)*UV(135)+JVS(1351)*UV(137)+JVS(1353)*UV(139)+JVS(1354)*UV(140)+JVS(1355)*UV(141)& - &+JVS(1356)*UV(142)+JVS(1359)*UV(145)+JVS(1361)*UV(147)+JVS(1362)*UV(148)+JVS(1363)*UV(149)+JVS(1364)*UV(150)& - &+JVS(1365)*UV(151)+JVS(1366)*UV(152)+JVS(1367)*UV(153)+JVS(1368)*UV(154)+JVS(1369)*UV(155) - JUV(148) = JVS(1370)*UV(14)+JVS(1371)*UV(15)+JVS(1372)*UV(16)+JVS(1373)*UV(17)+JVS(1374)*UV(19)+JVS(1375)*UV(20)& - &+JVS(1376)*UV(21)+JVS(1377)*UV(24)+JVS(1378)*UV(25)+JVS(1379)*UV(27)+JVS(1380)*UV(28)+JVS(1381)*UV(30)& - &+JVS(1382)*UV(31)+JVS(1383)*UV(33)+JVS(1384)*UV(34)+JVS(1385)*UV(35)+JVS(1386)*UV(36)+JVS(1387)*UV(37)& - &+JVS(1388)*UV(38)+JVS(1389)*UV(39)+JVS(1390)*UV(40)+JVS(1391)*UV(41)+JVS(1392)*UV(45)+JVS(1393)*UV(46)& - &+JVS(1394)*UV(47)+JVS(1395)*UV(48)+JVS(1396)*UV(49)+JVS(1397)*UV(50)+JVS(1398)*UV(51)+JVS(1399)*UV(52)& - &+JVS(1400)*UV(53)+JVS(1401)*UV(54)+JVS(1402)*UV(55)+JVS(1403)*UV(56)+JVS(1404)*UV(58)+JVS(1405)*UV(59)& - &+JVS(1406)*UV(60)+JVS(1407)*UV(61)+JVS(1408)*UV(62)+JVS(1409)*UV(63)+JVS(1412)*UV(67)+JVS(1413)*UV(68)& - &+JVS(1414)*UV(70)+JVS(1415)*UV(71)+JVS(1416)*UV(72)+JVS(1417)*UV(74)+JVS(1418)*UV(75)+JVS(1421)*UV(78)& - &+JVS(1422)*UV(79)+JVS(1423)*UV(80)+JVS(1424)*UV(81)+JVS(1425)*UV(82)+JVS(1426)*UV(83)+JVS(1427)*UV(84)& - &+JVS(1428)*UV(85)+JVS(1429)*UV(87)+JVS(1430)*UV(88)+JVS(1431)*UV(89)+JVS(1434)*UV(93)+JVS(1435)*UV(94)& - &+JVS(1436)*UV(95)+JVS(1438)*UV(97)+JVS(1439)*UV(98)+JVS(1442)*UV(102)+JVS(1443)*UV(103)+JVS(1444)*UV(104)& - &+JVS(1446)*UV(106)+JVS(1447)*UV(107)+JVS(1449)*UV(109)+JVS(1450)*UV(110)+JVS(1452)*UV(113)+JVS(1453)*UV(114)& - &+JVS(1454)*UV(115)+JVS(1455)*UV(116)+JVS(1456)*UV(117)+JVS(1457)*UV(118)+JVS(1458)*UV(119)+JVS(1459)*UV(120)& - &+JVS(1461)*UV(122)+JVS(1462)*UV(123)+JVS(1463)*UV(124)+JVS(1465)*UV(126)+JVS(1467)*UV(128)+JVS(1468)*UV(129)& - &+JVS(1469)*UV(130)+JVS(1472)*UV(133)+JVS(1473)*UV(134)+JVS(1474)*UV(135)+JVS(1475)*UV(136)+JVS(1476)*UV(137)& - &+JVS(1477)*UV(138)+JVS(1482)*UV(143)+JVS(1483)*UV(144)+JVS(1485)*UV(146)+JVS(1486)*UV(147)+JVS(1487)*UV(148)& - &+JVS(1488)*UV(149)+JVS(1489)*UV(150)+JVS(1490)*UV(151)+JVS(1491)*UV(152)+JVS(1492)*UV(153)+JVS(1493)*UV(154) - JUV(149) = JVS(1495)*UV(17)+JVS(1496)*UV(24)+JVS(1497)*UV(25)+JVS(1498)*UV(26)+JVS(1499)*UV(27)+JVS(1500)*UV(28)& - &+JVS(1501)*UV(30)+JVS(1502)*UV(31)+JVS(1503)*UV(32)+JVS(1504)*UV(34)+JVS(1505)*UV(35)+JVS(1506)*UV(36)& - &+JVS(1507)*UV(37)+JVS(1508)*UV(39)+JVS(1509)*UV(40)+JVS(1510)*UV(42)+JVS(1511)*UV(43)+JVS(1512)*UV(44)& - &+JVS(1513)*UV(45)+JVS(1514)*UV(47)+JVS(1515)*UV(48)+JVS(1516)*UV(50)+JVS(1517)*UV(51)+JVS(1518)*UV(53)& - &+JVS(1519)*UV(54)+JVS(1520)*UV(56)+JVS(1521)*UV(57)+JVS(1522)*UV(60)+JVS(1523)*UV(62)+JVS(1524)*UV(63)& - &+JVS(1525)*UV(64)+JVS(1526)*UV(65)+JVS(1527)*UV(66)+JVS(1528)*UV(67)+JVS(1529)*UV(69)+JVS(1530)*UV(72)& - &+JVS(1531)*UV(74)+JVS(1532)*UV(75)+JVS(1533)*UV(76)+JVS(1534)*UV(77)+JVS(1535)*UV(79)+JVS(1536)*UV(80)& - &+JVS(1537)*UV(81)+JVS(1538)*UV(82)+JVS(1539)*UV(83)+JVS(1540)*UV(84)+JVS(1541)*UV(85)+JVS(1542)*UV(86)& - &+JVS(1543)*UV(87)+JVS(1544)*UV(88)+JVS(1545)*UV(89)+JVS(1546)*UV(90)+JVS(1547)*UV(91)+JVS(1548)*UV(92)& - &+JVS(1549)*UV(93)+JVS(1550)*UV(94)+JVS(1551)*UV(95)+JVS(1552)*UV(96)+JVS(1553)*UV(97)+JVS(1554)*UV(98)& - &+JVS(1555)*UV(99)+JVS(1556)*UV(100)+JVS(1557)*UV(101)+JVS(1558)*UV(102)+JVS(1559)*UV(103)+JVS(1560)*UV(104)& - &+JVS(1561)*UV(105)+JVS(1562)*UV(106)+JVS(1563)*UV(107)+JVS(1564)*UV(108)+JVS(1565)*UV(109)+JVS(1566)*UV(110)& - &+JVS(1567)*UV(111)+JVS(1568)*UV(112)+JVS(1569)*UV(113)+JVS(1570)*UV(114)+JVS(1571)*UV(115)+JVS(1572)*UV(116)& - &+JVS(1573)*UV(117)+JVS(1574)*UV(118)+JVS(1575)*UV(120)+JVS(1576)*UV(121)+JVS(1577)*UV(123)+JVS(1578)*UV(124)& - &+JVS(1579)*UV(125)+JVS(1580)*UV(126)+JVS(1581)*UV(127)+JVS(1582)*UV(128)+JVS(1583)*UV(129)+JVS(1584)*UV(130)& - &+JVS(1585)*UV(131)+JVS(1586)*UV(132)+JVS(1587)*UV(133)+JVS(1588)*UV(134)+JVS(1589)*UV(135)+JVS(1590)*UV(136)& - &+JVS(1591)*UV(137)+JVS(1592)*UV(138)+JVS(1593)*UV(139)+JVS(1594)*UV(140)+JVS(1595)*UV(141)+JVS(1596)*UV(142)& - &+JVS(1597)*UV(143)+JVS(1598)*UV(144)+JVS(1599)*UV(145)+JVS(1600)*UV(146)+JVS(1601)*UV(147)+JVS(1602)*UV(148)& - &+JVS(1603)*UV(149)+JVS(1604)*UV(150)+JVS(1605)*UV(151)+JVS(1606)*UV(152)+JVS(1607)*UV(153)+JVS(1608)*UV(154)& - &+JVS(1609)*UV(155) - JUV(150) = JVS(1610)*UV(29)+JVS(1611)*UV(36)+JVS(1612)*UV(45)+JVS(1613)*UV(59)+JVS(1614)*UV(70)+JVS(1615)*UV(71)& - &+JVS(1616)*UV(84)+JVS(1617)*UV(104)+JVS(1618)*UV(112)+JVS(1619)*UV(114)+JVS(1620)*UV(115)+JVS(1621)*UV(116)& - &+JVS(1622)*UV(117)+JVS(1623)*UV(118)+JVS(1624)*UV(120)+JVS(1625)*UV(128)+JVS(1626)*UV(129)+JVS(1627)*UV(132)& - &+JVS(1628)*UV(133)+JVS(1629)*UV(135)+JVS(1631)*UV(138)+JVS(1632)*UV(139)+JVS(1633)*UV(140)+JVS(1634)*UV(141)& - &+JVS(1635)*UV(142)+JVS(1638)*UV(145)+JVS(1639)*UV(146)+JVS(1640)*UV(147)+JVS(1641)*UV(148)+JVS(1642)*UV(149)& - &+JVS(1643)*UV(150)+JVS(1644)*UV(151)+JVS(1646)*UV(153)+JVS(1647)*UV(154) - JUV(151) = JVS(1649)*UV(60)+JVS(1650)*UV(73)+JVS(1652)*UV(104)+JVS(1653)*UV(106)+JVS(1654)*UV(114)+JVS(1655)*UV(115)& - &+JVS(1656)*UV(116)+JVS(1657)*UV(117)+JVS(1658)*UV(118)+JVS(1659)*UV(120)+JVS(1660)*UV(128)+JVS(1661)*UV(135)& - &+JVS(1662)*UV(143)+JVS(1663)*UV(144)+JVS(1665)*UV(147)+JVS(1666)*UV(148)+JVS(1667)*UV(149)+JVS(1668)*UV(150)& - &+JVS(1669)*UV(151)+JVS(1670)*UV(152)+JVS(1671)*UV(153)+JVS(1672)*UV(154) - JUV(152) = JVS(1674)*UV(32)+JVS(1676)*UV(49)+JVS(1677)*UV(55)+JVS(1678)*UV(57)+JVS(1679)*UV(68)+JVS(1680)*UV(71)& - &+JVS(1681)*UV(78)+JVS(1684)*UV(95)+JVS(1687)*UV(111)+JVS(1688)*UV(114)+JVS(1689)*UV(115)+JVS(1690)*UV(116)& - &+JVS(1691)*UV(117)+JVS(1692)*UV(118)+JVS(1693)*UV(119)+JVS(1694)*UV(120)+JVS(1696)*UV(122)+JVS(1698)*UV(126)& - &+JVS(1701)*UV(129)+JVS(1704)*UV(134)+JVS(1705)*UV(136)+JVS(1706)*UV(137)+JVS(1707)*UV(138)+JVS(1708)*UV(139)& - &+JVS(1709)*UV(140)+JVS(1710)*UV(141)+JVS(1711)*UV(142)+JVS(1712)*UV(143)+JVS(1713)*UV(144)+JVS(1714)*UV(145)& - &+JVS(1715)*UV(147)+JVS(1716)*UV(148)+JVS(1717)*UV(149)+JVS(1718)*UV(150)+JVS(1719)*UV(151)+JVS(1720)*UV(152)& - &+JVS(1721)*UV(153)+JVS(1722)*UV(154)+JVS(1723)*UV(155) - JUV(153) = JVS(1724)*UV(18)+JVS(1725)*UV(43)+JVS(1726)*UV(64)+JVS(1727)*UV(65)+JVS(1728)*UV(66)+JVS(1729)*UV(76)& - &+JVS(1730)*UV(77)+JVS(1731)*UV(79)+JVS(1732)*UV(81)+JVS(1733)*UV(86)+JVS(1734)*UV(90)+JVS(1735)*UV(92)& - &+JVS(1736)*UV(95)+JVS(1737)*UV(96)+JVS(1738)*UV(99)+JVS(1739)*UV(100)+JVS(1740)*UV(101)+JVS(1741)*UV(102)& - &+JVS(1742)*UV(105)+JVS(1743)*UV(106)+JVS(1744)*UV(108)+JVS(1745)*UV(112)+JVS(1747)*UV(121)+JVS(1748)*UV(125)& - &+JVS(1749)*UV(127)+JVS(1751)*UV(130)+JVS(1752)*UV(131)+JVS(1753)*UV(132)+JVS(1755)*UV(134)+JVS(1756)*UV(135)& - &+JVS(1758)*UV(139)+JVS(1759)*UV(140)+JVS(1760)*UV(141)+JVS(1761)*UV(142)+JVS(1763)*UV(145)+JVS(1765)*UV(147)& - &+JVS(1767)*UV(149)+JVS(1768)*UV(150)+JVS(1769)*UV(151)+JVS(1770)*UV(152)+JVS(1771)*UV(153)+JVS(1772)*UV(154)& - &+JVS(1773)*UV(155) - JUV(154) = JVS(1774)*UV(48)+JVS(1775)*UV(84)+JVS(1776)*UV(143)+JVS(1778)*UV(147)+JVS(1779)*UV(148)+JVS(1780)*UV(149)& - &+JVS(1781)*UV(150)+JVS(1783)*UV(152)+JVS(1784)*UV(153)+JVS(1785)*UV(154)+JVS(1786)*UV(155) - JUV(155) = JVS(1787)*UV(47)+JVS(1788)*UV(61)+JVS(1789)*UV(68)+JVS(1790)*UV(71)+JVS(1791)*UV(87)+JVS(1792)*UV(102)& - &+JVS(1793)*UV(105)+JVS(1794)*UV(106)+JVS(1795)*UV(108)+JVS(1796)*UV(114)+JVS(1798)*UV(122)+JVS(1799)*UV(125)& - &+JVS(1801)*UV(127)+JVS(1802)*UV(128)+JVS(1803)*UV(129)+JVS(1804)*UV(130)+JVS(1805)*UV(131)+JVS(1806)*UV(132)& - &+JVS(1808)*UV(134)+JVS(1811)*UV(139)+JVS(1812)*UV(140)+JVS(1813)*UV(141)+JVS(1814)*UV(142)+JVS(1815)*UV(144)& - &+JVS(1816)*UV(145)+JVS(1819)*UV(148)+JVS(1820)*UV(149)+JVS(1822)*UV(151)+JVS(1823)*UV(152)+JVS(1824)*UV(153)& - &+JVS(1825)*UV(154)+JVS(1826)*UV(155) - -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(4)*UV(2) - JTUV(3) = JVS(7)*UV(3) - JTUV(4) = JVS(21)*UV(4) - JTUV(5) = JVS(35)*UV(5) - JTUV(6) = JVS(49)*UV(6) - JTUV(7) = JVS(64)*UV(7) - JTUV(8) = JVS(8)*UV(3)+JVS(22)*UV(4)+JVS(36)*UV(5)+JVS(50)*UV(6)+JVS(65)*UV(7)+JVS(79)*UV(8) - JTUV(9) = JVS(9)*UV(3)+JVS(23)*UV(4)+JVS(37)*UV(5)+JVS(51)*UV(6)+JVS(66)*UV(7)+JVS(81)*UV(9) - JTUV(10) = JVS(83)*UV(10) - JTUV(11) = JVS(96)*UV(11) - JTUV(12) = JVS(126)*UV(12) - JTUV(13) = JVS(157)*UV(13) - JTUV(14) = JVS(225)*UV(14)+JVS(1370)*UV(148) - JTUV(15) = JVS(158)*UV(13)+JVS(227)*UV(15)+JVS(704)*UV(108)+JVS(1371)*UV(148) - JTUV(16) = JVS(159)*UV(13)+JVS(229)*UV(16)+JVS(673)*UV(105)+JVS(1372)*UV(148) - JTUV(17) = JVS(160)*UV(13)+JVS(231)*UV(17)+JVS(1373)*UV(148)+JVS(1495)*UV(149) - JTUV(18) = JVS(233)*UV(18)+JVS(680)*UV(106)+JVS(1724)*UV(153) - JTUV(19) = JVS(5)*UV(2)+JVS(235)*UV(19)+JVS(1374)*UV(148) - JTUV(20) = JVS(239)*UV(20)+JVS(310)*UV(42)+JVS(1375)*UV(148) - JTUV(21) = JVS(161)*UV(13)+JVS(242)*UV(21)+JVS(1160)*UV(139)+JVS(1376)*UV(148) - JTUV(22) = JVS(245)*UV(22)+JVS(1303)*UV(147) - JTUV(23) = JVS(250)*UV(23)+JVS(512)*UV(81)+JVS(1304)*UV(147) - JTUV(24) = JVS(162)*UV(13)+JVS(253)*UV(24)+JVS(650)*UV(103)+JVS(715)*UV(109)+JVS(859)*UV(123)+JVS(1377)*UV(148)& - &+JVS(1496)*UV(149) - JTUV(25) = JVS(10)*UV(3)+JVS(24)*UV(4)+JVS(38)*UV(5)+JVS(52)*UV(6)+JVS(67)*UV(7)+JVS(163)*UV(13)+JVS(255)*UV(25)& - &+JVS(257)*UV(26)+JVS(260)*UV(27)+JVS(483)*UV(76)+JVS(1378)*UV(148)+JVS(1497)*UV(149) - JTUV(26) = JVS(258)*UV(26)+JVS(436)*UV(69)+JVS(860)*UV(123)+JVS(1498)*UV(149) - JTUV(27) = JVS(164)*UV(13)+JVS(261)*UV(27)+JVS(420)*UV(66)+JVS(464)*UV(73)+JVS(1379)*UV(148)+JVS(1499)*UV(149) - JTUV(28) = JVS(165)*UV(13)+JVS(263)*UV(28)+JVS(681)*UV(106)+JVS(1380)*UV(148)+JVS(1500)*UV(149) - JTUV(29) = JVS(266)*UV(29)+JVS(447)*UV(70)+JVS(1305)*UV(147)+JVS(1610)*UV(150) - JTUV(30) = JVS(11)*UV(3)+JVS(25)*UV(4)+JVS(39)*UV(5)+JVS(53)*UV(6)+JVS(68)*UV(7)+JVS(166)*UV(13)+JVS(269)*UV(30)& - &+JVS(271)*UV(31)+JVS(274)*UV(32)+JVS(409)*UV(64)+JVS(617)*UV(99)+JVS(1381)*UV(148)+JVS(1501)*UV(149) - JTUV(31) = JVS(167)*UV(13)+JVS(272)*UV(31)+JVS(421)*UV(66)+JVS(465)*UV(73)+JVS(1382)*UV(148)+JVS(1502)*UV(149) - JTUV(32) = JVS(275)*UV(32)+JVS(861)*UV(123)+JVS(1503)*UV(149)+JVS(1674)*UV(152) - JTUV(33) = JVS(168)*UV(13)+JVS(278)*UV(33)+JVS(1161)*UV(139)+JVS(1383)*UV(148) - JTUV(34) = JVS(12)*UV(3)+JVS(26)*UV(4)+JVS(40)*UV(5)+JVS(54)*UV(6)+JVS(69)*UV(7)+JVS(169)*UV(13)+JVS(276)*UV(32)& - &+JVS(282)*UV(34)+JVS(284)*UV(35)+JVS(410)*UV(64)+JVS(634)*UV(101)+JVS(1384)*UV(148)+JVS(1504)*UV(149) - JTUV(35) = JVS(285)*UV(35)+JVS(466)*UV(73)+JVS(489)*UV(77)+JVS(1385)*UV(148)+JVS(1505)*UV(149) - JTUV(36) = JVS(236)*UV(19)+JVS(287)*UV(36)+JVS(448)*UV(70)+JVS(1386)*UV(148)+JVS(1506)*UV(149)+JVS(1611)*UV(150) - JTUV(37) = JVS(170)*UV(13)+JVS(290)*UV(37)+JVS(563)*UV(91)+JVS(1162)*UV(139)+JVS(1387)*UV(148)+JVS(1507)*UV(149) - JTUV(38) = JVS(293)*UV(38)+JVS(513)*UV(81)+JVS(1388)*UV(148) - JTUV(39) = JVS(298)*UV(39)+JVS(1073)*UV(135)+JVS(1389)*UV(148)+JVS(1508)*UV(149) - JTUV(40) = JVS(171)*UV(13)+JVS(302)*UV(40)+JVS(971)*UV(129)+JVS(1390)*UV(148)+JVS(1509)*UV(149) - JTUV(41) = JVS(172)*UV(13)+JVS(306)*UV(41)+JVS(467)*UV(73)+JVS(574)*UV(92)+JVS(1391)*UV(148) - JTUV(42) = JVS(311)*UV(42)+JVS(910)*UV(124)+JVS(1239)*UV(146)+JVS(1510)*UV(149) - JTUV(43) = JVS(2)*UV(1)+JVS(315)*UV(43)+JVS(716)*UV(109)+JVS(749)*UV(111)+JVS(1306)*UV(147)+JVS(1511)*UV(149)& - &+JVS(1725)*UV(153) - JTUV(44) = JVS(318)*UV(44)+JVS(640)*UV(102)+JVS(1512)*UV(149) - JTUV(45) = JVS(324)*UV(45)+JVS(1307)*UV(147)+JVS(1392)*UV(148)+JVS(1513)*UV(149)+JVS(1612)*UV(150) - JTUV(46) = JVS(173)*UV(13)+JVS(328)*UV(46)+JVS(1163)*UV(139)+JVS(1393)*UV(148) - JTUV(47) = JVS(174)*UV(13)+JVS(335)*UV(47)+JVS(1240)*UV(146)+JVS(1394)*UV(148)+JVS(1514)*UV(149)+JVS(1787)*UV(155) - JTUV(48) = JVS(175)*UV(13)+JVS(339)*UV(48)+JVS(1228)*UV(145)+JVS(1395)*UV(148)+JVS(1515)*UV(149)+JVS(1774)*UV(154) - JTUV(49) = JVS(343)*UV(49)+JVS(591)*UV(95)+JVS(972)*UV(129)+JVS(1396)*UV(148)+JVS(1676)*UV(152) - JTUV(50) = JVS(294)*UV(38)+JVS(347)*UV(50)+JVS(411)*UV(64)+JVS(1397)*UV(148)+JVS(1516)*UV(149) - JTUV(51) = JVS(176)*UV(13)+JVS(351)*UV(51)+JVS(797)*UV(119)+JVS(911)*UV(124)+JVS(1398)*UV(148)+JVS(1517)*UV(149) - JTUV(52) = JVS(177)*UV(13)+JVS(355)*UV(52)+JVS(1022)*UV(132)+JVS(1036)*UV(133)+JVS(1308)*UV(147)+JVS(1399)*UV(148) - JTUV(53) = JVS(178)*UV(13)+JVS(359)*UV(53)+JVS(705)*UV(108)+JVS(973)*UV(129)+JVS(1400)*UV(148)+JVS(1518)*UV(149) - JTUV(54) = JVS(179)*UV(13)+JVS(363)*UV(54)+JVS(422)*UV(66)+JVS(717)*UV(109)+JVS(1401)*UV(148)+JVS(1519)*UV(149) - JTUV(55) = JVS(367)*UV(55)+JVS(1053)*UV(134)+JVS(1241)*UV(146)+JVS(1402)*UV(148)+JVS(1677)*UV(152) - JTUV(56) = JVS(180)*UV(13)+JVS(371)*UV(56)+JVS(674)*UV(105)+JVS(828)*UV(122)+JVS(1403)*UV(148)+JVS(1520)*UV(149) - JTUV(57) = JVS(375)*UV(57)+JVS(863)*UV(123)+JVS(1123)*UV(138)+JVS(1521)*UV(149)+JVS(1678)*UV(152) - JTUV(58) = JVS(181)*UV(13)+JVS(379)*UV(58)+JVS(815)*UV(121)+JVS(1404)*UV(148) - JTUV(59) = JVS(182)*UV(13)+JVS(387)*UV(59)+JVS(539)*UV(86)+JVS(829)*UV(122)+JVS(974)*UV(129)+JVS(1242)*UV(146)& - &+JVS(1309)*UV(147)+JVS(1405)*UV(148)+JVS(1613)*UV(150) - JTUV(60) = JVS(183)*UV(13)+JVS(390)*UV(60)+JVS(557)*UV(90)+JVS(651)*UV(103)+JVS(864)*UV(123)+JVS(1243)*UV(146)& - &+JVS(1406)*UV(148)+JVS(1522)*UV(149)+JVS(1649)*UV(151) - JTUV(61) = JVS(184)*UV(13)+JVS(393)*UV(61)+JVS(1407)*UV(148)+JVS(1788)*UV(155) - JTUV(62) = JVS(185)*UV(13)+JVS(401)*UV(62)+JVS(606)*UV(97)+JVS(798)*UV(119)+JVS(1310)*UV(147)+JVS(1408)*UV(148)& - &+JVS(1523)*UV(149) - JTUV(63) = JVS(186)*UV(13)+JVS(405)*UV(63)+JVS(490)*UV(77)+JVS(718)*UV(109)+JVS(1124)*UV(138)+JVS(1409)*UV(148)& - &+JVS(1524)*UV(149) - JTUV(64) = JVS(97)*UV(11)+JVS(127)*UV(12)+JVS(295)*UV(38)+JVS(348)*UV(50)+JVS(412)*UV(64)+JVS(1311)*UV(147)+JVS(1525)& - &*UV(149)+JVS(1726)*UV(153) - JTUV(65) = JVS(98)*UV(11)+JVS(128)*UV(12)+JVS(416)*UV(65)+JVS(652)*UV(103)+JVS(1244)*UV(146)+JVS(1312)*UV(147)& - &+JVS(1526)*UV(149)+JVS(1727)*UV(153) - JTUV(66) = JVS(99)*UV(11)+JVS(129)*UV(12)+JVS(364)*UV(54)+JVS(423)*UV(66)+JVS(719)*UV(109)+JVS(1313)*UV(147)+JVS(1527)& - &*UV(149)+JVS(1728)*UV(153) - JTUV(67) = JVS(427)*UV(67)+JVS(437)*UV(69)+JVS(484)*UV(76)+JVS(720)*UV(109)+JVS(1412)*UV(148)+JVS(1528)*UV(149) - JTUV(68) = JVS(187)*UV(13)+JVS(431)*UV(68)+JVS(1245)*UV(146)+JVS(1413)*UV(148)+JVS(1679)*UV(152)+JVS(1789)*UV(155) - JTUV(69) = JVS(438)*UV(69)+JVS(623)*UV(100)+JVS(1529)*UV(149) - JTUV(70) = JVS(449)*UV(70)+JVS(1314)*UV(147)+JVS(1414)*UV(148)+JVS(1614)*UV(150) - JTUV(71) = JVS(188)*UV(13)+JVS(456)*UV(71)+JVS(1246)*UV(146)+JVS(1315)*UV(147)+JVS(1415)*UV(148)+JVS(1615)*UV(150)& - &+JVS(1680)*UV(152)+JVS(1790)*UV(155) - JTUV(72) = JVS(189)*UV(13)+JVS(460)*UV(72)+JVS(799)*UV(119)+JVS(912)*UV(124)+JVS(1087)*UV(136)+JVS(1110)*UV(137)& - &+JVS(1416)*UV(148)+JVS(1530)*UV(149) - JTUV(73) = JVS(468)*UV(73)+JVS(575)*UV(92)+JVS(1316)*UV(147)+JVS(1650)*UV(151) - JTUV(74) = JVS(475)*UV(74)+JVS(600)*UV(96)+JVS(975)*UV(129)+JVS(1088)*UV(136)+JVS(1247)*UV(146)+JVS(1417)*UV(148)& - &+JVS(1531)*UV(149) - JTUV(75) = JVS(190)*UV(13)+JVS(479)*UV(75)+JVS(830)*UV(122)+JVS(1009)*UV(131)+JVS(1037)*UV(133)+JVS(1248)*UV(146)& - &+JVS(1418)*UV(148)+JVS(1532)*UV(149) - JTUV(76) = JVS(100)*UV(11)+JVS(130)*UV(12)+JVS(428)*UV(67)+JVS(439)*UV(69)+JVS(485)*UV(76)+JVS(721)*UV(109)+JVS(1317)& - &*UV(147)+JVS(1533)*UV(149)+JVS(1729)*UV(153) - JTUV(77) = JVS(101)*UV(11)+JVS(131)*UV(12)+JVS(406)*UV(63)+JVS(491)*UV(77)+JVS(722)*UV(109)+JVS(1125)*UV(138)& - &+JVS(1318)*UV(147)+JVS(1534)*UV(149)+JVS(1730)*UV(153) - JTUV(78) = JVS(191)*UV(13)+JVS(495)*UV(78)+JVS(592)*UV(95)+JVS(706)*UV(108)+JVS(1421)*UV(148)+JVS(1681)*UV(152) - JTUV(79) = JVS(501)*UV(79)+JVS(831)*UV(122)+JVS(1319)*UV(147)+JVS(1422)*UV(148)+JVS(1535)*UV(149)+JVS(1731)*UV(153) - JTUV(80) = JVS(192)*UV(13)+JVS(506)*UV(80)+JVS(1038)*UV(133)+JVS(1320)*UV(147)+JVS(1423)*UV(148)+JVS(1536)*UV(149) - JTUV(81) = JVS(102)*UV(11)+JVS(132)*UV(12)+JVS(251)*UV(23)+JVS(516)*UV(81)+JVS(576)*UV(92)+JVS(1321)*UV(147)+JVS(1424)& - &*UV(148)+JVS(1537)*UV(149)+JVS(1732)*UV(153) - JTUV(82) = JVS(521)*UV(82)+JVS(682)*UV(106)+JVS(1074)*UV(135)+JVS(1425)*UV(148)+JVS(1538)*UV(149) - JTUV(83) = JVS(193)*UV(13)+JVS(527)*UV(83)+JVS(766)*UV(113)+JVS(832)*UV(122)+JVS(913)*UV(124)+JVS(933)*UV(125)& - &+JVS(1249)*UV(146)+JVS(1426)*UV(148)+JVS(1539)*UV(149) - JTUV(84) = JVS(194)*UV(13)+JVS(531)*UV(84)+JVS(1089)*UV(136)+JVS(1250)*UV(146)+JVS(1322)*UV(147)+JVS(1427)*UV(148)& - &+JVS(1540)*UV(149)+JVS(1616)*UV(150)+JVS(1775)*UV(154) - JTUV(85) = JVS(195)*UV(13)+JVS(535)*UV(85)+JVS(914)*UV(124)+JVS(1090)*UV(136)+JVS(1111)*UV(137)+JVS(1251)*UV(146)& - &+JVS(1323)*UV(147)+JVS(1428)*UV(148)+JVS(1541)*UV(149) - JTUV(86) = JVS(133)*UV(12)+JVS(540)*UV(86)+JVS(833)*UV(122)+JVS(976)*UV(129)+JVS(1112)*UV(137)+JVS(1252)*UV(146)& - &+JVS(1324)*UV(147)+JVS(1542)*UV(149)+JVS(1733)*UV(153) - JTUV(87) = JVS(196)*UV(13)+JVS(522)*UV(82)+JVS(544)*UV(87)+JVS(683)*UV(106)+JVS(1253)*UV(146)+JVS(1429)*UV(148)& - &+JVS(1543)*UV(149)+JVS(1791)*UV(155) - JTUV(88) = JVS(197)*UV(13)+JVS(549)*UV(88)+JVS(834)*UV(122)+JVS(865)*UV(123)+JVS(915)*UV(124)+JVS(942)*UV(126)& - &+JVS(957)*UV(127)+JVS(1254)*UV(146)+JVS(1430)*UV(148)+JVS(1544)*UV(149) - JTUV(89) = JVS(198)*UV(13)+JVS(319)*UV(44)+JVS(440)*UV(69)+JVS(553)*UV(89)+JVS(564)*UV(91)+JVS(618)*UV(99)+JVS(723)& - &*UV(109)+JVS(1126)*UV(138)+JVS(1431)*UV(148)+JVS(1545)*UV(149) - JTUV(90) = JVS(103)*UV(11)+JVS(134)*UV(12)+JVS(240)*UV(20)+JVS(312)*UV(42)+JVS(558)*UV(90)+JVS(1255)*UV(146)+JVS(1325)& - &*UV(147)+JVS(1546)*UV(149)+JVS(1734)*UV(153) - JTUV(91) = JVS(565)*UV(91)+JVS(866)*UV(123)+JVS(994)*UV(130)+JVS(1547)*UV(149) - JTUV(92) = JVS(104)*UV(11)+JVS(135)*UV(12)+JVS(307)*UV(41)+JVS(469)*UV(73)+JVS(577)*UV(92)+JVS(1326)*UV(147)+JVS(1548)& - &*UV(149)+JVS(1735)*UV(153) - JTUV(93) = JVS(496)*UV(78)+JVS(583)*UV(93)+JVS(835)*UV(122)+JVS(977)*UV(129)+JVS(1256)*UV(146)+JVS(1327)*UV(147)& - &+JVS(1434)*UV(148)+JVS(1549)*UV(149) - JTUV(94) = JVS(199)*UV(13)+JVS(497)*UV(78)+JVS(587)*UV(94)+JVS(816)*UV(121)+JVS(836)*UV(122)+JVS(978)*UV(129)& - &+JVS(1257)*UV(146)+JVS(1435)*UV(148)+JVS(1550)*UV(149) - JTUV(95) = JVS(105)*UV(11)+JVS(136)*UV(12)+JVS(344)*UV(49)+JVS(595)*UV(95)+JVS(979)*UV(129)+JVS(1328)*UV(147)& - &+JVS(1436)*UV(148)+JVS(1551)*UV(149)+JVS(1684)*UV(152)+JVS(1736)*UV(153) - JTUV(96) = JVS(106)*UV(11)+JVS(137)*UV(12)+JVS(476)*UV(74)+JVS(601)*UV(96)+JVS(980)*UV(129)+JVS(1258)*UV(146)& - &+JVS(1329)*UV(147)+JVS(1552)*UV(149)+JVS(1737)*UV(153) - JTUV(97) = JVS(200)*UV(13)+JVS(243)*UV(21)+JVS(607)*UV(97)+JVS(1164)*UV(139)+JVS(1202)*UV(143)+JVS(1215)*UV(144)& - &+JVS(1259)*UV(146)+JVS(1438)*UV(148)+JVS(1553)*UV(149) - JTUV(98) = JVS(201)*UV(13)+JVS(320)*UV(44)+JVS(376)*UV(57)+JVS(441)*UV(69)+JVS(566)*UV(91)+JVS(613)*UV(98)+JVS(635)& - &*UV(101)+JVS(724)*UV(109)+JVS(1127)*UV(138)+JVS(1439)*UV(148)+JVS(1554)*UV(149) - JTUV(99) = JVS(107)*UV(11)+JVS(138)*UV(12)+JVS(321)*UV(44)+JVS(442)*UV(69)+JVS(554)*UV(89)+JVS(567)*UV(91)+JVS(619)& - &*UV(99)+JVS(725)*UV(109)+JVS(1128)*UV(138)+JVS(1330)*UV(147)+JVS(1555)*UV(149)+JVS(1738)*UV(153) - JTUV(100) = JVS(108)*UV(11)+JVS(139)*UV(12)+JVS(628)*UV(100)+JVS(726)*UV(109)+JVS(869)*UV(123)+JVS(1331)*UV(147)& - &+JVS(1556)*UV(149)+JVS(1739)*UV(153) - JTUV(101) = JVS(109)*UV(11)+JVS(140)*UV(12)+JVS(322)*UV(44)+JVS(377)*UV(57)+JVS(443)*UV(69)+JVS(568)*UV(91)+JVS(614)& - &*UV(98)+JVS(636)*UV(101)+JVS(727)*UV(109)+JVS(1129)*UV(138)+JVS(1332)*UV(147)+JVS(1557)*UV(149)+JVS(1740)& - &*UV(153) - JTUV(102) = JVS(645)*UV(102)+JVS(871)*UV(123)+JVS(1130)*UV(138)+JVS(1333)*UV(147)+JVS(1442)*UV(148)+JVS(1558)*UV(149)& - &+JVS(1741)*UV(153)+JVS(1792)*UV(155) - JTUV(103) = JVS(202)*UV(13)+JVS(653)*UV(103)+JVS(1443)*UV(148)+JVS(1559)*UV(149) - JTUV(104) = JVS(203)*UV(13)+JVS(654)*UV(103)+JVS(669)*UV(104)+JVS(759)*UV(112)+JVS(767)*UV(113)+JVS(837)*UV(122)& - &+JVS(872)*UV(123)+JVS(934)*UV(125)+JVS(1260)*UV(146)+JVS(1444)*UV(148)+JVS(1560)*UV(149)+JVS(1617)*UV(150)& - &+JVS(1652)*UV(151) - JTUV(105) = JVS(84)*UV(10)+JVS(110)*UV(11)+JVS(141)*UV(12)+JVS(372)*UV(56)+JVS(675)*UV(105)+JVS(838)*UV(122)+JVS(981)& - &*UV(129)+JVS(1261)*UV(146)+JVS(1334)*UV(147)+JVS(1561)*UV(149)+JVS(1742)*UV(153)+JVS(1793)*UV(155) - JTUV(106) = JVS(234)*UV(18)+JVS(264)*UV(28)+JVS(523)*UV(82)+JVS(545)*UV(87)+JVS(684)*UV(106)+JVS(1076)*UV(135)& - &+JVS(1262)*UV(146)+JVS(1446)*UV(148)+JVS(1562)*UV(149)+JVS(1653)*UV(151)+JVS(1743)*UV(153)+JVS(1794)& - &*UV(155) - JTUV(107) = JVS(204)*UV(13)+JVS(690)*UV(107)+JVS(1263)*UV(146)+JVS(1447)*UV(148)+JVS(1563)*UV(149) - JTUV(108) = JVS(85)*UV(10)+JVS(111)*UV(11)+JVS(142)*UV(12)+JVS(303)*UV(40)+JVS(360)*UV(53)+JVS(691)*UV(107)+JVS(709)& - &*UV(108)+JVS(982)*UV(129)+JVS(1264)*UV(146)+JVS(1335)*UV(147)+JVS(1564)*UV(149)+JVS(1744)*UV(153)+JVS(1795)& - &*UV(155) - JTUV(109) = JVS(205)*UV(13)+JVS(728)*UV(109)+JVS(873)*UV(123)+JVS(1449)*UV(148)+JVS(1565)*UV(149) - JTUV(110) = JVS(206)*UV(13)+JVS(569)*UV(91)+JVS(729)*UV(109)+JVS(742)*UV(110)+JVS(800)*UV(119)+JVS(1336)*UV(147)& - &+JVS(1450)*UV(148)+JVS(1566)*UV(149) - JTUV(111) = JVS(730)*UV(109)+JVS(750)*UV(111)+JVS(875)*UV(123)+JVS(1131)*UV(138)+JVS(1567)*UV(149)+JVS(1687)*UV(152) - JTUV(112) = JVS(112)*UV(11)+JVS(143)*UV(12)+JVS(760)*UV(112)+JVS(768)*UV(113)+JVS(839)*UV(122)+JVS(1113)*UV(137)& - &+JVS(1265)*UV(146)+JVS(1337)*UV(147)+JVS(1568)*UV(149)+JVS(1618)*UV(150)+JVS(1745)*UV(153) - JTUV(113) = JVS(502)*UV(79)+JVS(769)*UV(113)+JVS(840)*UV(122)+JVS(876)*UV(123)+JVS(1452)*UV(148)+JVS(1569)*UV(149) - JTUV(114) = JVS(13)*UV(3)+JVS(27)*UV(4)+JVS(41)*UV(5)+JVS(55)*UV(6)+JVS(70)*UV(7)+JVS(207)*UV(13)+JVS(655)*UV(103)& - &+JVS(777)*UV(114)+JVS(877)*UV(123)+JVS(965)*UV(128)+JVS(1175)*UV(140)+JVS(1184)*UV(141)+JVS(1193)*UV(142)& - &+JVS(1203)*UV(143)+JVS(1216)*UV(144)+JVS(1266)*UV(146)+JVS(1453)*UV(148)+JVS(1570)*UV(149)+JVS(1619)& - &*UV(150)+JVS(1654)*UV(151)+JVS(1688)*UV(152)+JVS(1796)*UV(155) - JTUV(115) = JVS(14)*UV(3)+JVS(28)*UV(4)+JVS(42)*UV(5)+JVS(56)*UV(6)+JVS(71)*UV(7)+JVS(208)*UV(13)+JVS(380)*UV(58)& - &+JVS(656)*UV(103)+JVS(751)*UV(111)+JVS(781)*UV(115)+JVS(841)*UV(122)+JVS(878)*UV(123)+JVS(943)*UV(126)& - &+JVS(1010)*UV(131)+JVS(1023)*UV(132)+JVS(1039)*UV(133)+JVS(1054)*UV(134)+JVS(1267)*UV(146)+JVS(1454)& - &*UV(148)+JVS(1571)*UV(149)+JVS(1620)*UV(150)+JVS(1655)*UV(151)+JVS(1689)*UV(152) - JTUV(116) = JVS(15)*UV(3)+JVS(29)*UV(4)+JVS(43)*UV(5)+JVS(57)*UV(6)+JVS(72)*UV(7)+JVS(209)*UV(13)+JVS(381)*UV(58)& - &+JVS(657)*UV(103)+JVS(752)*UV(111)+JVS(785)*UV(116)+JVS(842)*UV(122)+JVS(879)*UV(123)+JVS(944)*UV(126)& - &+JVS(1011)*UV(131)+JVS(1024)*UV(132)+JVS(1040)*UV(133)+JVS(1055)*UV(134)+JVS(1268)*UV(146)+JVS(1455)& - &*UV(148)+JVS(1572)*UV(149)+JVS(1621)*UV(150)+JVS(1656)*UV(151)+JVS(1690)*UV(152) - JTUV(117) = JVS(16)*UV(3)+JVS(30)*UV(4)+JVS(44)*UV(5)+JVS(58)*UV(6)+JVS(73)*UV(7)+JVS(210)*UV(13)+JVS(382)*UV(58)& - &+JVS(658)*UV(103)+JVS(753)*UV(111)+JVS(789)*UV(117)+JVS(843)*UV(122)+JVS(880)*UV(123)+JVS(945)*UV(126)& - &+JVS(1012)*UV(131)+JVS(1025)*UV(132)+JVS(1041)*UV(133)+JVS(1056)*UV(134)+JVS(1269)*UV(146)+JVS(1456)& - &*UV(148)+JVS(1573)*UV(149)+JVS(1622)*UV(150)+JVS(1657)*UV(151)+JVS(1691)*UV(152) - JTUV(118) = JVS(17)*UV(3)+JVS(31)*UV(4)+JVS(45)*UV(5)+JVS(59)*UV(6)+JVS(74)*UV(7)+JVS(211)*UV(13)+JVS(383)*UV(58)& - &+JVS(659)*UV(103)+JVS(754)*UV(111)+JVS(793)*UV(118)+JVS(844)*UV(122)+JVS(881)*UV(123)+JVS(946)*UV(126)& - &+JVS(1013)*UV(131)+JVS(1026)*UV(132)+JVS(1042)*UV(133)+JVS(1057)*UV(134)+JVS(1270)*UV(146)+JVS(1457)& - &*UV(148)+JVS(1574)*UV(149)+JVS(1623)*UV(150)+JVS(1658)*UV(151)+JVS(1692)*UV(152) - JTUV(119) = JVS(801)*UV(119)+JVS(1136)*UV(138)+JVS(1271)*UV(146)+JVS(1339)*UV(147)+JVS(1458)*UV(148)+JVS(1693)*UV(152) - JTUV(120) = JVS(18)*UV(3)+JVS(32)*UV(4)+JVS(46)*UV(5)+JVS(60)*UV(6)+JVS(75)*UV(7)+JVS(212)*UV(13)+JVS(384)*UV(58)& - &+JVS(660)*UV(103)+JVS(755)*UV(111)+JVS(811)*UV(120)+JVS(845)*UV(122)+JVS(882)*UV(123)+JVS(947)*UV(126)& - &+JVS(1014)*UV(131)+JVS(1027)*UV(132)+JVS(1043)*UV(133)+JVS(1058)*UV(134)+JVS(1272)*UV(146)+JVS(1459)& - &*UV(148)+JVS(1575)*UV(149)+JVS(1624)*UV(150)+JVS(1659)*UV(151)+JVS(1694)*UV(152) - JTUV(121) = JVS(113)*UV(11)+JVS(144)*UV(12)+JVS(498)*UV(78)+JVS(584)*UV(93)+JVS(588)*UV(94)+JVS(822)*UV(121)+JVS(846)& - &*UV(122)+JVS(983)*UV(129)+JVS(1273)*UV(146)+JVS(1340)*UV(147)+JVS(1576)*UV(149)+JVS(1747)*UV(153) - JTUV(122) = JVS(213)*UV(13)+JVS(847)*UV(122)+JVS(1059)*UV(134)+JVS(1461)*UV(148)+JVS(1696)*UV(152)+JVS(1798)*UV(155) - JTUV(123) = JVS(214)*UV(13)+JVS(883)*UV(123)+JVS(1462)*UV(148)+JVS(1577)*UV(149) - JTUV(124) = JVS(215)*UV(13)+JVS(731)*UV(109)+JVS(884)*UV(123)+JVS(917)*UV(124)+JVS(1274)*UV(146)+JVS(1463)*UV(148)& - &+JVS(1578)*UV(149) - JTUV(125) = JVS(86)*UV(10)+JVS(114)*UV(11)+JVS(145)*UV(12)+JVS(528)*UV(83)+JVS(692)*UV(107)+JVS(770)*UV(113)+JVS(848)& - &*UV(122)+JVS(918)*UV(124)+JVS(935)*UV(125)+JVS(1275)*UV(146)+JVS(1341)*UV(147)+JVS(1579)*UV(149)+JVS(1748)& - &*UV(153)+JVS(1799)*UV(155) - JTUV(126) = JVS(849)*UV(122)+JVS(886)*UV(123)+JVS(948)*UV(126)+JVS(1061)*UV(134)+JVS(1276)*UV(146)+JVS(1465)*UV(148)& - &+JVS(1580)*UV(149)+JVS(1698)*UV(152) - JTUV(127) = JVS(87)*UV(10)+JVS(115)*UV(11)+JVS(146)*UV(12)+JVS(246)*UV(22)+JVS(550)*UV(88)+JVS(693)*UV(107)+JVS(850)& - &*UV(122)+JVS(887)*UV(123)+JVS(919)*UV(124)+JVS(949)*UV(126)+JVS(958)*UV(127)+JVS(1277)*UV(146)+JVS(1342)& - &*UV(147)+JVS(1581)*UV(149)+JVS(1749)*UV(153)+JVS(1801)*UV(155) - JTUV(128) = JVS(216)*UV(13)+JVS(394)*UV(61)+JVS(546)*UV(87)+JVS(602)*UV(96)+JVS(661)*UV(103)+JVS(802)*UV(119)+JVS(888)& - &*UV(123)+JVS(966)*UV(128)+JVS(984)*UV(129)+JVS(1278)*UV(146)+JVS(1467)*UV(148)+JVS(1582)*UV(149)+JVS(1625)& - &*UV(150)+JVS(1660)*UV(151)+JVS(1802)*UV(155) - JTUV(129) = JVS(217)*UV(13)+JVS(450)*UV(70)+JVS(889)*UV(123)+JVS(985)*UV(129)+JVS(1468)*UV(148)+JVS(1583)*UV(149)& - &+JVS(1626)*UV(150)+JVS(1701)*UV(152)+JVS(1803)*UV(155) - JTUV(130) = JVS(116)*UV(11)+JVS(147)*UV(12)+JVS(732)*UV(109)+JVS(890)*UV(123)+JVS(999)*UV(130)+JVS(1139)*UV(138)& - &+JVS(1345)*UV(147)+JVS(1469)*UV(148)+JVS(1584)*UV(149)+JVS(1751)*UV(153)+JVS(1804)*UV(155) - JTUV(131) = JVS(88)*UV(10)+JVS(117)*UV(11)+JVS(148)*UV(12)+JVS(480)*UV(75)+JVS(507)*UV(80)+JVS(694)*UV(107)+JVS(851)& - &*UV(122)+JVS(1015)*UV(131)+JVS(1044)*UV(133)+JVS(1279)*UV(146)+JVS(1346)*UV(147)+JVS(1585)*UV(149)& - &+JVS(1752)*UV(153)+JVS(1805)*UV(155) - JTUV(132) = JVS(89)*UV(10)+JVS(118)*UV(11)+JVS(149)*UV(12)+JVS(356)*UV(52)+JVS(508)*UV(80)+JVS(695)*UV(107)+JVS(1028)& - &*UV(132)+JVS(1045)*UV(133)+JVS(1280)*UV(146)+JVS(1347)*UV(147)+JVS(1586)*UV(149)+JVS(1627)*UV(150)& - &+JVS(1753)*UV(153)+JVS(1806)*UV(155) - JTUV(133) = JVS(891)*UV(123)+JVS(950)*UV(126)+JVS(959)*UV(127)+JVS(1029)*UV(132)+JVS(1046)*UV(133)+JVS(1472)*UV(148)& - &+JVS(1587)*UV(149)+JVS(1628)*UV(150) - JTUV(134) = JVS(90)*UV(10)+JVS(119)*UV(11)+JVS(150)*UV(12)+JVS(368)*UV(55)+JVS(696)*UV(107)+JVS(1065)*UV(134)& - &+JVS(1093)*UV(136)+JVS(1140)*UV(138)+JVS(1282)*UV(146)+JVS(1349)*UV(147)+JVS(1473)*UV(148)+JVS(1588)& - &*UV(149)+JVS(1704)*UV(152)+JVS(1755)*UV(153)+JVS(1808)*UV(155) - JTUV(135) = JVS(299)*UV(39)+JVS(524)*UV(82)+JVS(892)*UV(123)+JVS(1078)*UV(135)+JVS(1283)*UV(146)+JVS(1350)*UV(147)& - &+JVS(1474)*UV(148)+JVS(1589)*UV(149)+JVS(1629)*UV(150)+JVS(1661)*UV(151)+JVS(1756)*UV(153) - JTUV(136) = JVS(218)*UV(13)+JVS(1094)*UV(136)+JVS(1141)*UV(138)+JVS(1284)*UV(146)+JVS(1475)*UV(148)+JVS(1590)*UV(149)& - &+JVS(1705)*UV(152) - JTUV(137) = JVS(219)*UV(13)+JVS(247)*UV(22)+JVS(852)*UV(122)+JVS(893)*UV(123)+JVS(920)*UV(124)+JVS(986)*UV(129)& - &+JVS(1095)*UV(136)+JVS(1114)*UV(137)+JVS(1285)*UV(146)+JVS(1351)*UV(147)+JVS(1476)*UV(148)+JVS(1591)& - &*UV(149)+JVS(1706)*UV(152) - JTUV(138) = JVS(220)*UV(13)+JVS(451)*UV(70)+JVS(894)*UV(123)+JVS(1143)*UV(138)+JVS(1477)*UV(148)+JVS(1592)*UV(149)& - &+JVS(1631)*UV(150)+JVS(1707)*UV(152) - JTUV(139) = JVS(91)*UV(10)+JVS(120)*UV(11)+JVS(151)*UV(12)+JVS(279)*UV(33)+JVS(697)*UV(107)+JVS(733)*UV(109)+JVS(895)& - &*UV(123)+JVS(921)*UV(124)+JVS(1096)*UV(136)+JVS(1144)*UV(138)+JVS(1165)*UV(139)+JVS(1286)*UV(146)+JVS(1353)& - &*UV(147)+JVS(1593)*UV(149)+JVS(1632)*UV(150)+JVS(1708)*UV(152)+JVS(1758)*UV(153)+JVS(1811)*UV(155) - JTUV(140) = JVS(92)*UV(10)+JVS(121)*UV(11)+JVS(152)*UV(12)+JVS(536)*UV(85)+JVS(608)*UV(97)+JVS(698)*UV(107)+JVS(1176)& - &*UV(140)+JVS(1204)*UV(143)+JVS(1217)*UV(144)+JVS(1287)*UV(146)+JVS(1354)*UV(147)+JVS(1594)*UV(149)& - &+JVS(1633)*UV(150)+JVS(1709)*UV(152)+JVS(1759)*UV(153)+JVS(1812)*UV(155) - JTUV(141) = JVS(93)*UV(10)+JVS(122)*UV(11)+JVS(153)*UV(12)+JVS(291)*UV(37)+JVS(329)*UV(46)+JVS(461)*UV(72)+JVS(609)& - &*UV(97)+JVS(699)*UV(107)+JVS(734)*UV(109)+JVS(923)*UV(124)+JVS(1098)*UV(136)+JVS(1146)*UV(138)+JVS(1185)& - &*UV(141)+JVS(1288)*UV(146)+JVS(1355)*UV(147)+JVS(1595)*UV(149)+JVS(1634)*UV(150)+JVS(1710)*UV(152)& - &+JVS(1760)*UV(153)+JVS(1813)*UV(155) - JTUV(142) = JVS(352)*UV(51)+JVS(402)*UV(62)+JVS(700)*UV(107)+JVS(743)*UV(110)+JVS(1194)*UV(142)+JVS(1289)*UV(146)& - &+JVS(1356)*UV(147)+JVS(1596)*UV(149)+JVS(1635)*UV(150)+JVS(1711)*UV(152)+JVS(1761)*UV(153)+JVS(1814)& - &*UV(155) - JTUV(143) = JVS(221)*UV(13)+JVS(662)*UV(103)+JVS(898)*UV(123)+JVS(1148)*UV(138)+JVS(1207)*UV(143)+JVS(1229)*UV(145)& - &+JVS(1290)*UV(146)+JVS(1482)*UV(148)+JVS(1597)*UV(149)+JVS(1662)*UV(151)+JVS(1712)*UV(152)+JVS(1776)& - &*UV(154) - JTUV(144) = JVS(222)*UV(13)+JVS(663)*UV(103)+JVS(899)*UV(123)+JVS(967)*UV(128)+JVS(987)*UV(129)+JVS(1149)*UV(138)& - &+JVS(1220)*UV(144)+JVS(1230)*UV(145)+JVS(1291)*UV(146)+JVS(1483)*UV(148)+JVS(1598)*UV(149)+JVS(1663)& - &*UV(151)+JVS(1713)*UV(152)+JVS(1815)*UV(155) - JTUV(145) = JVS(340)*UV(48)+JVS(701)*UV(107)+JVS(900)*UV(123)+JVS(925)*UV(124)+JVS(1100)*UV(136)+JVS(1117)*UV(137)& - &+JVS(1150)*UV(138)+JVS(1231)*UV(145)+JVS(1292)*UV(146)+JVS(1359)*UV(147)+JVS(1599)*UV(149)+JVS(1638)& - &*UV(150)+JVS(1714)*UV(152)+JVS(1763)*UV(153)+JVS(1816)*UV(155) - JTUV(146) = JVS(223)*UV(13)+JVS(417)*UV(65)+JVS(452)*UV(70)+JVS(525)*UV(82)+JVS(901)*UV(123)+JVS(1080)*UV(135)& - &+JVS(1293)*UV(146)+JVS(1485)*UV(148)+JVS(1600)*UV(149)+JVS(1639)*UV(150) - JTUV(147) = JVS(252)*UV(23)+JVS(267)*UV(29)+JVS(325)*UV(45)+JVS(453)*UV(70)+JVS(457)*UV(71)+JVS(470)*UV(73)+JVS(517)& - &*UV(81)+JVS(532)*UV(84)+JVS(630)*UV(100)+JVS(646)*UV(102)+JVS(1002)*UV(130)+JVS(1081)*UV(135)+JVS(1361)& - &*UV(147)+JVS(1486)*UV(148)+JVS(1601)*UV(149)+JVS(1640)*UV(150)+JVS(1665)*UV(151)+JVS(1715)*UV(152)& - &+JVS(1765)*UV(153)+JVS(1778)*UV(154) - JTUV(148) = JVS(6)*UV(2)+JVS(19)*UV(3)+JVS(33)*UV(4)+JVS(47)*UV(5)+JVS(61)*UV(6)+JVS(76)*UV(7)+JVS(80)*UV(8)+JVS(82)& - &*UV(9)+JVS(224)*UV(13)+JVS(226)*UV(14)+JVS(228)*UV(15)+JVS(230)*UV(16)+JVS(232)*UV(17)+JVS(237)*UV(19)& - &+JVS(244)*UV(21)+JVS(248)*UV(22)+JVS(254)*UV(24)+JVS(256)*UV(25)+JVS(259)*UV(26)+JVS(262)*UV(27)+JVS(265)& - &*UV(28)+JVS(270)*UV(30)+JVS(273)*UV(31)+JVS(277)*UV(32)+JVS(280)*UV(33)+JVS(283)*UV(34)+JVS(286)*UV(35)& - &+JVS(288)*UV(36)+JVS(292)*UV(37)+JVS(296)*UV(38)+JVS(300)*UV(39)+JVS(304)*UV(40)+JVS(308)*UV(41)+JVS(326)& - &*UV(45)+JVS(330)*UV(46)+JVS(336)*UV(47)+JVS(341)*UV(48)+JVS(345)*UV(49)+JVS(349)*UV(50)+JVS(353)*UV(51)& - &+JVS(357)*UV(52)+JVS(361)*UV(53)+JVS(365)*UV(54)+JVS(369)*UV(55)+JVS(373)*UV(56)+JVS(385)*UV(58)+JVS(388)& - &*UV(59)+JVS(391)*UV(60)+JVS(395)*UV(61)+JVS(403)*UV(62)+JVS(407)*UV(63)+JVS(413)*UV(64)+JVS(424)*UV(66)& - &+JVS(429)*UV(67)+JVS(432)*UV(68)+JVS(454)*UV(70)+JVS(458)*UV(71)+JVS(462)*UV(72)+JVS(471)*UV(73)+JVS(477)& - &*UV(74)+JVS(481)*UV(75)+JVS(486)*UV(76)+JVS(492)*UV(77)+JVS(499)*UV(78)+JVS(503)*UV(79)+JVS(509)*UV(80)& - &+JVS(518)*UV(81)+JVS(526)*UV(82)+JVS(529)*UV(83)+JVS(533)*UV(84)+JVS(537)*UV(85)+JVS(541)*UV(86)+JVS(547)& - &*UV(87)+JVS(551)*UV(88)+JVS(555)*UV(89)+JVS(559)*UV(90)+JVS(579)*UV(92)+JVS(585)*UV(93)+JVS(589)*UV(94)& - &+JVS(597)*UV(95)+JVS(603)*UV(96)+JVS(611)*UV(97)+JVS(615)*UV(98)+JVS(620)*UV(99)+JVS(637)*UV(101)+JVS(665)& - &*UV(103)+JVS(670)*UV(104)+JVS(676)*UV(105)+JVS(702)*UV(107)+JVS(711)*UV(108)+JVS(736)*UV(109)+JVS(744)& - &*UV(110)+JVS(771)*UV(113)+JVS(778)*UV(114)+JVS(782)*UV(115)+JVS(786)*UV(116)+JVS(790)*UV(117)+JVS(794)& - &*UV(118)+JVS(805)*UV(119)+JVS(812)*UV(120)+JVS(823)*UV(121)+JVS(853)*UV(122)+JVS(903)*UV(123)+JVS(926)& - &*UV(124)+JVS(936)*UV(125)+JVS(951)*UV(126)+JVS(960)*UV(127)+JVS(968)*UV(128)+JVS(988)*UV(129)+JVS(1016)& - &*UV(131)+JVS(1030)*UV(132)+JVS(1047)*UV(133)+JVS(1067)*UV(134)+JVS(1082)*UV(135)+JVS(1102)*UV(136)& - &+JVS(1118)*UV(137)+JVS(1152)*UV(138)+JVS(1169)*UV(139)+JVS(1177)*UV(140)+JVS(1186)*UV(141)+JVS(1208)& - &*UV(143)+JVS(1221)*UV(144)+JVS(1232)*UV(145)+JVS(1295)*UV(146)+JVS(1362)*UV(147)+JVS(1487)*UV(148)& - &+JVS(1602)*UV(149)+JVS(1641)*UV(150)+JVS(1666)*UV(151)+JVS(1716)*UV(152)+JVS(1779)*UV(154)+JVS(1819)& - &*UV(155) - JTUV(149) = JVS(3)*UV(1)+JVS(123)*UV(11)+JVS(241)*UV(20)+JVS(281)*UV(33)+JVS(301)*UV(39)+JVS(309)*UV(41)+JVS(316)& - &*UV(43)+JVS(327)*UV(45)+JVS(337)*UV(47)+JVS(342)*UV(48)+JVS(346)*UV(49)+JVS(350)*UV(50)+JVS(358)*UV(52)& - &+JVS(362)*UV(53)+JVS(366)*UV(54)+JVS(370)*UV(55)+JVS(374)*UV(56)+JVS(396)*UV(61)+JVS(404)*UV(62)+JVS(408)& - &*UV(63)+JVS(414)*UV(64)+JVS(418)*UV(65)+JVS(425)*UV(66)+JVS(430)*UV(67)+JVS(433)*UV(68)+JVS(478)*UV(74)& - &+JVS(482)*UV(75)+JVS(487)*UV(76)+JVS(493)*UV(77)+JVS(504)*UV(79)+JVS(519)*UV(81)+JVS(530)*UV(83)+JVS(552)& - &*UV(88)+JVS(556)*UV(89)+JVS(560)*UV(90)+JVS(580)*UV(92)+JVS(590)*UV(94)+JVS(598)*UV(95)+JVS(604)*UV(96)& - &+JVS(612)*UV(97)+JVS(616)*UV(98)+JVS(621)*UV(99)+JVS(632)*UV(100)+JVS(638)*UV(101)+JVS(648)*UV(102)& - &+JVS(666)*UV(103)+JVS(677)*UV(105)+JVS(712)*UV(108)+JVS(737)*UV(109)+JVS(762)*UV(112)+JVS(824)*UV(121)& - &+JVS(854)*UV(122)+JVS(904)*UV(123)+JVS(937)*UV(125)+JVS(961)*UV(127)+JVS(989)*UV(129)+JVS(1004)*UV(130)& - &+JVS(1017)*UV(131)+JVS(1031)*UV(132)+JVS(1068)*UV(134)+JVS(1083)*UV(135)+JVS(1153)*UV(138)+JVS(1170)& - &*UV(139)+JVS(1178)*UV(140)+JVS(1187)*UV(141)+JVS(1196)*UV(142)+JVS(1233)*UV(145)+JVS(1296)*UV(146)& - &+JVS(1363)*UV(147)+JVS(1488)*UV(148)+JVS(1603)*UV(149)+JVS(1642)*UV(150)+JVS(1667)*UV(151)+JVS(1717)& - &*UV(152)+JVS(1767)*UV(153)+JVS(1780)*UV(154)+JVS(1820)*UV(155) - JTUV(150) = JVS(62)*UV(6)+JVS(77)*UV(7)+JVS(238)*UV(19)+JVS(268)*UV(29)+JVS(289)*UV(36)+JVS(331)*UV(46)+JVS(389)& - &*UV(59)+JVS(455)*UV(70)+JVS(671)*UV(104)+JVS(738)*UV(109)+JVS(745)*UV(110)+JVS(763)*UV(112)+JVS(773)& - &*UV(113)+JVS(779)*UV(114)+JVS(783)*UV(115)+JVS(787)*UV(116)+JVS(791)*UV(117)+JVS(795)*UV(118)+JVS(807)& - &*UV(119)+JVS(813)*UV(120)+JVS(855)*UV(122)+JVS(905)*UV(123)+JVS(928)*UV(124)+JVS(962)*UV(127)+JVS(969)& - &*UV(128)+JVS(990)*UV(129)+JVS(1032)*UV(132)+JVS(1049)*UV(133)+JVS(1084)*UV(135)+JVS(1104)*UV(136)+JVS(1120)& - &*UV(137)+JVS(1154)*UV(138)+JVS(1171)*UV(139)+JVS(1179)*UV(140)+JVS(1188)*UV(141)+JVS(1197)*UV(142)& - &+JVS(1210)*UV(143)+JVS(1223)*UV(144)+JVS(1234)*UV(145)+JVS(1297)*UV(146)+JVS(1364)*UV(147)+JVS(1489)& - &*UV(148)+JVS(1604)*UV(149)+JVS(1643)*UV(150)+JVS(1668)*UV(151)+JVS(1718)*UV(152)+JVS(1768)*UV(153)& - &+JVS(1781)*UV(154) - JTUV(151) = JVS(20)*UV(3)+JVS(34)*UV(4)+JVS(48)*UV(5)+JVS(63)*UV(6)+JVS(78)*UV(7)+JVS(386)*UV(58)+JVS(392)*UV(60)& - &+JVS(397)*UV(61)+JVS(473)*UV(73)+JVS(548)*UV(87)+JVS(581)*UV(92)+JVS(667)*UV(103)+JVS(672)*UV(104)+JVS(689)& - &*UV(106)+JVS(757)*UV(111)+JVS(774)*UV(113)+JVS(780)*UV(114)+JVS(784)*UV(115)+JVS(788)*UV(116)+JVS(792)& - &*UV(117)+JVS(796)*UV(118)+JVS(814)*UV(120)+JVS(856)*UV(122)+JVS(906)*UV(123)+JVS(954)*UV(126)+JVS(970)& - &*UV(128)+JVS(991)*UV(129)+JVS(1050)*UV(133)+JVS(1070)*UV(134)+JVS(1085)*UV(135)+JVS(1155)*UV(138)+JVS(1211)& - &*UV(143)+JVS(1224)*UV(144)+JVS(1298)*UV(146)+JVS(1365)*UV(147)+JVS(1490)*UV(148)+JVS(1605)*UV(149)& - &+JVS(1644)*UV(150)+JVS(1669)*UV(151)+JVS(1719)*UV(152)+JVS(1769)*UV(153)+JVS(1822)*UV(155) - JTUV(152) = JVS(94)*UV(10)+JVS(124)*UV(11)+JVS(154)*UV(12)+JVS(332)*UV(46)+JVS(398)*UV(61)+JVS(434)*UV(68)+JVS(459)& - &*UV(71)+JVS(739)*UV(109)+JVS(746)*UV(110)+JVS(907)*UV(123)+JVS(930)*UV(124)+JVS(1106)*UV(136)+JVS(1156)& - &*UV(138)+JVS(1172)*UV(139)+JVS(1181)*UV(140)+JVS(1190)*UV(141)+JVS(1199)*UV(142)+JVS(1212)*UV(143)& - &+JVS(1225)*UV(144)+JVS(1236)*UV(145)+JVS(1299)*UV(146)+JVS(1366)*UV(147)+JVS(1491)*UV(148)+JVS(1606)& - &*UV(149)+JVS(1670)*UV(151)+JVS(1720)*UV(152)+JVS(1770)*UV(153)+JVS(1783)*UV(154)+JVS(1823)*UV(155) - JTUV(153) = JVS(155)*UV(12)+JVS(249)*UV(22)+JVS(297)*UV(38)+JVS(314)*UV(42)+JVS(317)*UV(43)+JVS(323)*UV(44)+JVS(333)& - &*UV(46)+JVS(378)*UV(57)+JVS(415)*UV(64)+JVS(419)*UV(65)+JVS(426)*UV(66)+JVS(446)*UV(69)+JVS(463)*UV(72)& - &+JVS(474)*UV(73)+JVS(488)*UV(76)+JVS(494)*UV(77)+JVS(500)*UV(78)+JVS(505)*UV(79)+JVS(510)*UV(80)+JVS(520)& - &*UV(81)+JVS(538)*UV(85)+JVS(543)*UV(86)+JVS(562)*UV(90)+JVS(573)*UV(91)+JVS(582)*UV(92)+JVS(586)*UV(93)& - &+JVS(599)*UV(95)+JVS(605)*UV(96)+JVS(622)*UV(99)+JVS(633)*UV(100)+JVS(639)*UV(101)+JVS(649)*UV(102)& - &+JVS(668)*UV(103)+JVS(678)*UV(105)+JVS(713)*UV(108)+JVS(740)*UV(109)+JVS(747)*UV(110)+JVS(758)*UV(111)& - &+JVS(765)*UV(112)+JVS(775)*UV(113)+JVS(827)*UV(121)+JVS(857)*UV(122)+JVS(908)*UV(123)+JVS(931)*UV(124)& - &+JVS(940)*UV(125)+JVS(955)*UV(126)+JVS(963)*UV(127)+JVS(992)*UV(129)+JVS(1007)*UV(130)+JVS(1020)*UV(131)& - &+JVS(1034)*UV(132)+JVS(1051)*UV(133)+JVS(1071)*UV(134)+JVS(1086)*UV(135)+JVS(1107)*UV(136)+JVS(1122)& - &*UV(137)+JVS(1157)*UV(138)+JVS(1173)*UV(139)+JVS(1182)*UV(140)+JVS(1191)*UV(141)+JVS(1200)*UV(142)& - &+JVS(1213)*UV(143)+JVS(1226)*UV(144)+JVS(1237)*UV(145)+JVS(1300)*UV(146)+JVS(1367)*UV(147)+JVS(1492)& - &*UV(148)+JVS(1607)*UV(149)+JVS(1646)*UV(150)+JVS(1671)*UV(151)+JVS(1721)*UV(152)+JVS(1771)*UV(153)& - &+JVS(1784)*UV(154)+JVS(1824)*UV(155) - JTUV(154) = JVS(399)*UV(61)+JVS(435)*UV(68)+JVS(534)*UV(84)+JVS(1301)*UV(146)+JVS(1368)*UV(147)+JVS(1493)*UV(148)& - &+JVS(1608)*UV(149)+JVS(1647)*UV(150)+JVS(1672)*UV(151)+JVS(1722)*UV(152)+JVS(1772)*UV(153)+JVS(1785)& - &*UV(154)+JVS(1825)*UV(155) - JTUV(155) = JVS(95)*UV(10)+JVS(125)*UV(11)+JVS(156)*UV(12)+JVS(305)*UV(40)+JVS(334)*UV(46)+JVS(338)*UV(47)+JVS(354)& - &*UV(51)+JVS(400)*UV(61)+JVS(511)*UV(80)+JVS(679)*UV(105)+JVS(703)*UV(107)+JVS(714)*UV(108)+JVS(741)*UV(109)& - &+JVS(748)*UV(110)+JVS(776)*UV(113)+JVS(858)*UV(122)+JVS(909)*UV(123)+JVS(932)*UV(124)+JVS(941)*UV(125)& - &+JVS(956)*UV(126)+JVS(964)*UV(127)+JVS(993)*UV(129)+JVS(1021)*UV(131)+JVS(1035)*UV(132)+JVS(1052)*UV(133)& - &+JVS(1072)*UV(134)+JVS(1109)*UV(136)+JVS(1159)*UV(138)+JVS(1174)*UV(139)+JVS(1183)*UV(140)+JVS(1192)& - &*UV(141)+JVS(1201)*UV(142)+JVS(1214)*UV(143)+JVS(1227)*UV(144)+JVS(1238)*UV(145)+JVS(1302)*UV(146)& - &+JVS(1369)*UV(147)+JVS(1609)*UV(149)+JVS(1723)*UV(152)+JVS(1773)*UV(153)+JVS(1786)*UV(154)+JVS(1826)& - &*UV(155) - -END SUBROUTINE JacTR_SP_Vec - -! End of JacTR_SP_Vec function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE MOZART_T1_Jacobian - diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Jacobian.o b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Jacobian.o deleted file mode 100644 index ca437997af562993c07918d08ba92ed2f289d211..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Jacobian.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_JacobianSP.f90 b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_JacobianSP.f90 deleted file mode 100644 index 2841e79b4c87ca399e9b667948a1a44efa3a684f..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_JacobianSP.f90 +++ /dev/null @@ -1,392 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Sparse Jacobian Data Structures File -! -! Generated by KPP-2.2.3 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 : MOZART_T1_JacobianSP.f90 -! Time : Wed Jan 27 13:13:50 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_T1_20754_BOXMOX -! Equation file : MOZART_T1.kpp -! Output root filename : MOZART_T1 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MOZART_T1_JacobianSP - - PUBLIC - SAVE - - -! Sparse Jacobian Data - - - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_0 = (/ & - 1, 1, 1, 2, 2, 2, 3, 3, 3, 3, 3, 3, & - 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, & - 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, & - 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, & - 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & - 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, & - 7, 7, 7, 7, 7, 7, 8, 8, 9, 9, 10, 10, & - 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 11, & - 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, & - 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, & - 11, 11, 11, 11, 11, 12, 12, 12, 12, 12, 12, 12, & - 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, & - 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, & - 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, & - 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, & - 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, & - 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, & - 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, & - 13, 13, 13, 13, 13, 13, 13, 13, 14, 14, 15, 15, & - 16, 16, 17, 17, 18, 18, 19, 19, 19, 19, 20, 20, & - 20, 21, 21, 21, 22, 22, 22, 22, 22, 23, 23, 23, & - 24, 24, 25, 25, 26, 26, 26, 27, 27, 27, 28, 28, & - 28, 29, 29, 29, 30, 30, 31, 31, 31, 32, 32, 32, & - 32, 33, 33, 33, 33, 34, 34, 35, 35, 35, 36, 36, & - 36, 37, 37, 37, 38, 38, 38, 38, 38, 39, 39, 39, & - 39, 40, 40, 40, 40, 41, 41, 41, 41, 42, 42, 42, & - 42, 42, 43, 43, 43, 44, 44, 44, 44, 44, 44, 45, & - 45, 45, 45, 46, 46, 46, 46, 46, 46, 46, 47, 47, & - 47, 47, 48, 48, 48, 48, 49, 49, 49, 49, 50, 50, & - 50, 50, 51, 51, 51, 51, 52, 52, 52, 52, 53, 53 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_1 = (/ & - 53, 53, 54, 54, 54, 54, 55, 55, 55, 55, 56, 56, & - 56, 56, 57, 57, 57, 57, 58, 58, 58, 58, 58, 58, & - 58, 58, 59, 59, 59, 60, 60, 60, 61, 61, 61, 61, & - 61, 61, 61, 61, 62, 62, 62, 62, 63, 63, 63, 63, & - 64, 64, 64, 64, 64, 64, 64, 65, 65, 65, 65, 66, & - 66, 66, 66, 66, 66, 66, 67, 67, 67, 67, 68, 68, & - 68, 68, 68, 69, 69, 69, 69, 69, 69, 69, 69, 69, & - 69, 69, 70, 70, 70, 70, 70, 70, 70, 70, 70, 71, & - 71, 71, 71, 72, 72, 72, 72, 73, 73, 73, 73, 73, & - 73, 73, 73, 73, 73, 73, 74, 74, 74, 74, 75, 75, & - 75, 75, 76, 76, 76, 76, 76, 76, 77, 77, 77, 77, & - 77, 77, 78, 78, 78, 78, 78, 78, 79, 79, 79, 79, & - 79, 80, 80, 80, 80, 80, 80, 81, 81, 81, 81, 81, & - 81, 81, 81, 81, 82, 82, 82, 82, 82, 82, 83, 83, & - 83, 83, 84, 84, 84, 84, 85, 85, 85, 85, 86, 86, & - 86, 86, 86, 87, 87, 87, 87, 87, 88, 88, 88, 88, & - 89, 89, 89, 89, 90, 90, 90, 90, 90, 90, 91, 91, & - 91, 91, 91, 91, 91, 91, 91, 91, 91, 92, 92, 92, & - 92, 92, 92, 92, 92, 92, 93, 93, 93, 93, 94, 94, & - 94, 94, 95, 95, 95, 95, 95, 95, 95, 95, 95, 96, & - 96, 96, 96, 96, 96, 97, 97, 97, 97, 97, 97, 97, & - 98, 98, 98, 98, 99, 99, 99, 99, 99, 99,100,100, & - 100,100,100,100,100,100,100,100,100,101,101,101, & - 101,101,101,102,102,102,102,102,102,102,102,102, & - 102,103,103,103,103,103,103,103,103,103,103,103, & - 103,103,103,103,103,103,103,103,104,104,104,104, & - 105,105,105,105,105,105,105,106,106,106,106,106, & - 106,106,106,106,106,107,107,107,107,107,107,107, & - 107,107,107,107,107,107,107,108,108,108,108,108, & - 108,108,108,108,108,108,109,109,109,109,109,109 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_2 = (/ & - 109,109,109,109,109,109,109,109,109,109,109,109, & - 109,109,109,109,109,109,109,109,109,110,110,110, & - 110,110,110,110,111,111,111,111,111,111,111,111, & - 111,111,112,112,112,112,112,112,112,113,113,113, & - 113,113,113,113,113,113,113,113,114,114,114,114, & - 115,115,115,115,116,116,116,116,117,117,117,117, & - 118,118,118,118,119,119,119,119,119,119,119,119, & - 119,119,119,119,119,119,120,120,120,120,121,121, & - 121,121,121,121,121,121,121,121,121,121,121,122, & - 122,122,122,122,122,122,122,122,122,122,122,122, & - 122,122,122,122,122,122,122,122,122,122,122,122, & - 122,122,122,122,122,122,123,123,123,123,123,123, & - 123,123,123,123,123,123,123,123,123,123,123,123, & - 123,123,123,123,123,123,123,123,123,123,123,123, & - 123,123,123,123,123,123,123,123,123,123,123,123, & - 123,123,123,123,123,123,123,123,123,124,124,124, & - 124,124,124,124,124,124,124,124,124,124,124,124, & - 124,124,124,124,124,124,124,124,125,125,125,125, & - 125,125,125,125,125,126,126,126,126,126,126,126, & - 126,126,126,126,126,126,126,126,127,127,127,127, & - 127,127,127,127,128,128,128,128,128,128,129,129, & - 129,129,129,129,129,129,129,129,129,129,129,129, & - 129,129,129,129,129,129,129,129,129,130,130,130, & - 130,130,130,130,130,130,130,130,130,130,130,130, & - 131,131,131,131,131,131,131,131,131,131,131,131, & - 131,132,132,132,132,132,132,132,132,132,132,132, & - 132,132,132,133,133,133,133,133,133,133,133,133, & - 133,133,133,133,133,133,133,133,134,134,134,134, & - 134,134,134,134,134,134,134,134,134,134,134,134, & - 134,134,134,134,135,135,135,135,135,135,135,135 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_3 = (/ & - 135,135,135,135,135,135,136,136,136,136,136,136, & - 136,136,136,136,136,136,136,136,136,136,136,136, & - 136,136,136,136,136,137,137,137,137,137,137,137, & - 137,137,137,137,137,137,138,138,138,138,138,138, & - 138,138,138,138,138,138,138,138,138,138,138,138, & - 138,138,138,138,138,138,138,138,138,138,138,138, & - 138,138,138,138,138,138,138,139,139,139,139,139, & - 139,139,139,139,139,139,139,139,139,139,140,140, & - 140,140,140,140,140,140,140,141,141,141,141,141, & - 141,141,141,141,142,142,142,142,142,142,142,142, & - 142,143,143,143,143,143,143,143,143,143,143,143, & - 143,143,144,144,144,144,144,144,144,144,144,144, & - 144,144,144,145,145,145,145,145,145,145,145,145, & - 145,145,146,146,146,146,146,146,146,146,146,146, & - 146,146,146,146,146,146,146,146,146,146,146,146, & - 146,146,146,146,146,146,146,146,146,146,146,146, & - 146,146,146,146,146,146,146,146,146,146,146,146, & - 146,146,146,146,146,146,146,146,146,146,146,146, & - 146,146,146,146,146,146,147,147,147,147,147,147, & - 147,147,147,147,147,147,147,147,147,147,147,147, & - 147,147,147,147,147,147,147,147,147,147,147,147, & - 147,147,147,147,147,147,147,147,147,147,147,147, & - 147,147,147,147,147,147,147,147,147,147,147,147, & - 147,147,147,147,147,147,147,147,147,147,147,147, & - 147,148,148,148,148,148,148,148,148,148,148,148, & - 148,148,148,148,148,148,148,148,148,148,148,148, & - 148,148,148,148,148,148,148,148,148,148,148,148, & - 148,148,148,148,148,148,148,148,148,148,148,148, & - 148,148,148,148,148,148,148,148,148,148,148,148, & - 148,148,148,148,148,148,148,148,148,148,148,148 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_4 = (/ & - 148,148,148,148,148,148,148,148,148,148,148,148, & - 148,148,148,148,148,148,148,148,148,148,148,148, & - 148,148,148,148,148,148,148,148,148,148,148,148, & - 148,148,148,148,148,148,148,148,148,148,148,148, & - 148,148,148,148,148,148,149,149,149,149,149,149, & - 149,149,149,149,149,149,149,149,149,149,149,149, & - 149,149,149,149,149,149,149,149,149,149,149,149, & - 149,149,149,149,149,149,149,149,149,149,149,149, & - 149,149,149,149,149,149,149,149,149,149,149,149, & - 149,149,149,149,149,149,149,149,149,149,149,149, & - 149,149,149,149,149,149,149,149,149,149,149,149, & - 149,149,149,149,149,149,149,149,149,149,149,149, & - 149,149,149,149,149,149,149,149,149,149,149,149, & - 149,149,149,149,149,149,149,149,149,149,149,149, & - 149,150,150,150,150,150,150,150,150,150,150,150, & - 150,150,150,150,150,150,150,150,150,150,150,150, & - 150,150,150,150,150,150,150,150,150,150,150,150, & - 150,150,150,150,151,151,151,151,151,151,151,151, & - 151,151,151,151,151,151,151,151,151,151,151,151, & - 151,151,151,151,151,152,152,152,152,152,152,152, & - 152,152,152,152,152,152,152,152,152,152,152,152, & - 152,152,152,152,152,152,152,152,152,152,152,152, & - 152,152,152,152,152,152,152,152,152,152,152,152, & - 152,152,152,152,152,152,152,153,153,153,153,153, & - 153,153,153,153,153,153,153,153,153,153,153,153, & - 153,153,153,153,153,153,153,153,153,153,153,153, & - 153,153,153,153,153,153,153,153,153,153,153,153, & - 153,153,153,153,153,153,153,153,153,154,154,154, & - 154,154,154,154,154,154,154,154,154,154,155,155, & - 155,155,155,155,155,155,155,155,155,155,155,155 /) - INTEGER, PARAMETER, DIMENSION(26) :: LU_IROW_5 = (/ & - 155,155,155,155,155,155,155,155,155,155,155,155, & - 155,155,155,155,155,155,155,155,155,155,155,155, & - 155,155 /) - INTEGER, PARAMETER, DIMENSION(1826) :: LU_IROW = (/& - LU_IROW_0, LU_IROW_1, LU_IROW_2, LU_IROW_3, LU_IROW_4, & - LU_IROW_5 /) - - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_0 = (/ & - 1, 43,149, 2, 19,148, 3, 8, 9, 25, 30, 34, & - 114,115,116,117,118,120,148,151, 4, 8, 9, 25, & - 30, 34,114,115,116,117,118,120,148,151, 5, 8, & - 9, 25, 30, 34,114,115,116,117,118,120,148,151, & - 6, 8, 9, 25, 30, 34,114,115,116,117,118,120, & - 148,150,151, 7, 8, 9, 25, 30, 34,114,115,116, & - 117,118,120,148,150,151, 8,148, 9,148, 10,105, & - 108,125,127,131,132,134,139,140,141,152,155, 11, & - 64, 65, 66, 76, 77, 81, 90, 92, 95, 96, 99,100, & - 101,105,108,112,121,125,127,130,131,132,134,139, & - 140,141,149,152,155, 12, 64, 65, 66, 76, 77, 81, & - 86, 90, 92, 95, 96, 99,100,101,105,108,112,121, & - 125,127,130,131,132,134,139,140,141,152,153,155, & - 13, 15, 16, 17, 21, 24, 25, 27, 28, 30, 31, 33, & - 34, 37, 40, 41, 46, 47, 48, 51, 52, 53, 54, 56, & - 58, 59, 60, 61, 62, 63, 68, 71, 72, 75, 78, 80, & - 83, 84, 85, 87, 88, 89, 94, 97, 98,103,104,107, & - 109,110,114,115,116,117,118,120,122,123,124,128, & - 129,136,137,138,143,144,146,148, 14,148, 15,148, & - 16,148, 17,148, 18,106, 19, 36,148,150, 20, 90, & - 149, 21, 97,148, 22,127,137,148,153, 23, 81,147, & - 24,148, 25,148, 25, 26,148, 25, 27,148, 28,106, & - 148, 29,147,150, 30,148, 30, 31,148, 30, 32, 34, & - 148, 33,139,148,149, 34,148, 34, 35,148, 36,148, & - 150, 37,141,148, 38, 50, 64,148,153, 39,135,148, & - 149, 40,108,148,155, 41, 92,148,149, 20, 42, 90, & - 149,153, 43,149,153, 44, 89, 98, 99,101,153, 45, & - 147,148,149, 46,141,148,150,152,153,155, 47,148, & - 149,155, 48,145,148,149, 49, 95,148,149, 50, 64, & - 148,149, 51,142,148,155, 52,132,148,149, 53,108 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_1 = (/ & - 148,149, 54, 66,148,149, 55,134,148,149, 56,105, & - 148,149, 57, 98,101,153, 58,115,116,117,118,120, & - 148,151, 59,148,150, 60,148,151, 61,128,148,149, & - 151,152,154,155, 62,142,148,149, 63, 77,148,149, & - 30, 34, 50, 64,148,149,153, 65,146,149,153, 27, & - 31, 54, 66,148,149,153, 67, 76,148,149, 68,148, & - 149,152,154, 26, 67, 69, 76, 89, 98, 99,101,148, & - 149,153, 29, 36, 70,129,138,146,147,148,150, 71, & - 147,148,152, 72,141,148,153, 27, 31, 35, 41, 73, & - 92,147,148,149,151,153, 74, 96,148,149, 75,131, & - 148,149, 25, 67, 76,148,149,153, 35, 63, 77,148, & - 149,153, 78, 93, 94,121,148,153, 79,113,148,149, & - 153, 80,131,132,148,153,155, 23, 38, 50, 64, 81, & - 147,148,149,153, 82, 87,106,135,146,148, 83,125, & - 148,149, 84,147,148,154, 85,140,148,153, 59, 86, & - 148,150,153, 87,106,128,148,151, 88,127,148,149, & - 89, 99,148,149, 60, 90,148,149,151,153, 37, 89, & - 91, 98, 99,101,110,141,148,149,153, 41, 73, 81, & - 92,147,148,149,151,153, 93,121,148,153, 94,121, & - 148,149, 49, 78, 93, 94, 95,121,148,149,153, 74, & - 96,128,148,149,153, 62, 97,140,141,142,148,149, & - 98,101,148,149, 30, 89, 99,148,149,153, 69, 76, & - 89, 98, 99,100,101,147,148,149,153, 34, 98,101, & - 148,149,153, 44, 89, 98, 99,101,102,147,148,149, & - 153, 24, 60, 65,103,104,114,115,116,117,118,120, & - 128,143,144,146,148,149,151,153,104,148,150,151, & - 16, 56,105,148,149,153,155, 18, 28, 82, 87,106, & - 128,135,146,148,151,107,108,125,127,131,132,134, & - 139,140,141,142,145,148,155, 15, 53, 78, 93, 94, & - 108,121,148,149,153,155, 24, 43, 54, 63, 66, 67 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_2 = (/ & - 76, 77, 89, 98, 99,100,101,109,110,111,124,130, & - 139,141,147,148,149,150,152,153,155,110,142,148, & - 150,152,153,155, 43,111,115,116,117,118,120,149, & - 151,153,104,112,148,149,150,151,153, 83,104,112, & - 113,125,148,149,150,151,153,155,114,148,150,151, & - 115,148,150,151,116,148,150,151,117,148,150,151, & - 118,148,150,151, 51, 62, 72,110,119,128,141,142, & - 148,149,150,152,153,155,120,148,150,151, 58, 94, & - 115,116,117,118,120,121,148,149,150,151,153, 56, & - 59, 75, 79, 83, 86, 88, 93, 94,104,105,112,113, & - 115,116,117,118,120,121,122,125,126,127,131,137, & - 148,149,150,151,153,155, 24, 26, 32, 34, 57, 60, & - 88, 91, 98, 99,100,101,102,104,109,110,111,113, & - 114,115,116,117,118,120,123,124,125,126,127,128, & - 129,130,133,135,137,138,139,141,142,143,144,145, & - 146,147,148,149,150,151,152,153,155, 42, 51, 72, & - 83, 85, 88, 90,124,125,127,137,139,140,141,142, & - 145,148,149,150,151,152,153,155, 83,104,125,148, & - 149,150,151,153,155, 88,115,116,117,118,120,126, & - 127,133,148,149,150,151,153,155, 88,127,133,148, & - 149,150,153,155,114,128,144,148,150,151, 40, 49, & - 53, 59, 74, 86, 93, 94, 95, 96,105,108,121,128, & - 129,137,144,148,149,150,151,153,155, 91, 98, 99, & - 101,110,130,141,142,147,148,149,150,152,153,155, & - 75,115,116,117,118,120,131,148,149,150,151,153, & - 155, 52,115,116,117,118,120,132,133,148,149,150, & - 151,153,155, 52, 75, 80,115,116,117,118,120,131, & - 132,133,148,149,150,151,153,155, 55,115,116,117, & - 118,120,122,125,126,127,131,133,134,137,148,149, & - 150,151,153,155, 39, 82, 87,106,128,135,144,146 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_3 = (/ & - 147,148,149,150,151,153, 72, 74, 84, 85, 96,128, & - 134,136,137,139,140,141,144,145,147,148,149,150, & - 151,152,153,154,155, 72, 85, 86,112,137,140,141, & - 145,148,149,150,151,153, 57, 63, 77, 89, 98, 99, & - 101,102,111,115,116,117,118,119,120,128,130,134, & - 136,137,138,139,140,141,142,143,144,145,147,148, & - 149,150,151,152,153,154,155, 21, 33, 37, 46, 97, & - 139,140,141,142,148,149,150,152,153,155,114,140, & - 148,149,150,151,152,153,155,114,141,148,149,150, & - 151,152,153,155,114,142,148,149,150,151,152,153, & - 155, 97,114,140,141,142,143,148,149,150,151,152, & - 153,155, 97,114,140,141,142,144,148,149,150,151, & - 152,153,155, 48,143,144,145,148,149,150,151,152, & - 153,155, 42, 47, 55, 59, 60, 65, 68, 71, 74, 75, & - 83, 84, 85, 86, 87, 88, 90, 93, 94, 96, 97,104, & - 105,106,107,108,112,114,115,116,117,118,119,120, & - 121,124,125,126,127,128,131,132,133,134,135,136, & - 137,139,140,141,142,143,144,145,146,147,148,149, & - 150,151,152,153,154,155, 22, 23, 29, 43, 45, 52, & - 59, 62, 64, 65, 66, 70, 71, 73, 76, 77, 79, 80, & - 81, 84, 85, 86, 90, 92, 93, 95, 96, 99,100,101, & - 102,105,108,110,112,113,119,121,125,127,128,129, & - 130,131,132,133,134,135,137,138,139,140,141,142, & - 143,144,145,146,147,148,149,150,151,152,153,154, & - 155, 14, 15, 16, 17, 19, 20, 21, 24, 25, 27, 28, & - 30, 31, 33, 34, 35, 36, 37, 38, 39, 40, 41, 45, & - 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 58, & - 59, 60, 61, 62, 63, 64, 66, 67, 68, 70, 71, 72, & - 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, & - 87, 88, 89, 90, 92, 93, 94, 95, 96, 97, 98, 99 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_4 = (/ & - 101,102,103,104,105,106,107,108,109,110,111,113, & - 114,115,116,117,118,119,120,121,122,123,124,125, & - 126,127,128,129,130,131,132,133,134,135,136,137, & - 138,139,140,141,142,143,144,145,146,147,148,149, & - 150,151,152,153,154,155, 17, 24, 25, 26, 27, 28, & - 30, 31, 32, 34, 35, 36, 37, 39, 40, 42, 43, 44, & - 45, 47, 48, 50, 51, 53, 54, 56, 57, 60, 62, 63, & - 64, 65, 66, 67, 69, 72, 74, 75, 76, 77, 79, 80, & - 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, & - 93, 94, 95, 96, 97, 98, 99,100,101,102,103,104, & - 105,106,107,108,109,110,111,112,113,114,115,116, & - 117,118,120,121,123,124,125,126,127,128,129,130, & - 131,132,133,134,135,136,137,138,139,140,141,142, & - 143,144,145,146,147,148,149,150,151,152,153,154, & - 155, 29, 36, 45, 59, 70, 71, 84,104,112,114,115, & - 116,117,118,120,128,129,132,133,135,137,138,139, & - 140,141,142,143,144,145,146,147,148,149,150,151, & - 152,153,154,155, 60, 73, 92,104,106,114,115,116, & - 117,118,120,128,135,143,144,146,147,148,149,150, & - 151,152,153,154,155, 32, 34, 49, 55, 57, 68, 71, & - 78, 93, 94, 95, 98,101,111,114,115,116,117,118, & - 119,120,121,122,125,126,127,128,129,131,133,134, & - 136,137,138,139,140,141,142,143,144,145,147,148, & - 149,150,151,152,153,154,155, 18, 43, 64, 65, 66, & - 76, 77, 79, 81, 86, 90, 92, 95, 96, 99,100,101, & - 102,105,106,108,112,113,121,125,127,128,130,131, & - 132,133,134,135,137,139,140,141,142,144,145,146, & - 147,148,149,150,151,152,153,154,155, 48, 84,143, & - 145,147,148,149,150,151,152,153,154,155, 47, 61, & - 68, 71, 87,102,105,106,108,114,121,122,125,126 /) - INTEGER, PARAMETER, DIMENSION(26) :: LU_ICOL_5 = (/ & - 127,128,129,130,131,132,133,134,135,137,139,140, & - 141,142,144,145,146,147,148,149,150,151,152,153, & - 154,155 /) - INTEGER, PARAMETER, DIMENSION(1826) :: LU_ICOL = (/& - LU_ICOL_0, LU_ICOL_1, LU_ICOL_2, LU_ICOL_3, LU_ICOL_4, & - LU_ICOL_5 /) - - INTEGER, PARAMETER, DIMENSION(156) :: LU_CROW = (/ & - 1, 4, 7, 21, 35, 49, 64, 79, 81, 83, 96,126, & - 157,225,227,229,231,233,235,239,242,245,250,253, & - 255,257,260,263,266,269,271,274,278,282,284,287, & - 290,293,298,302,306,310,315,318,324,328,335,339, & - 343,347,351,355,359,363,367,371,375,379,387,390, & - 393,401,405,409,416,420,427,431,436,447,456,460, & - 464,475,479,483,489,495,501,506,512,521,527,531, & - 535,539,544,549,553,557,563,574,583,587,591,600, & - 606,613,617,623,634,640,650,669,673,680,690,704, & - 715,742,749,759,766,777,781,785,789,793,797,811, & - 815,828,859,910,933,942,957,965,971,994,1009,1022, & - 1036,1053,1073,1087,1110,1123,1160,1175,1184,1193,1202,1215, & - 1228,1239,1303,1370,1495,1610,1649,1674,1724,1774,1787,1827 /) - - INTEGER, PARAMETER, DIMENSION(156) :: LU_DIAG = (/ & - 1, 4, 7, 21, 35, 49, 64, 79, 81, 83, 96,126, & - 157,225,227,229,231,233,235,239,242,245,250,253, & - 255,258,261,263,266,269,272,275,278,282,285,287, & - 290,293,298,302,306,311,315,318,324,328,335,339, & - 343,347,351,355,359,363,367,371,375,379,387,390, & - 393,401,405,412,416,423,427,431,438,449,456,460, & - 468,475,479,485,491,495,501,506,516,521,527,531, & - 535,540,544,549,553,558,565,577,583,587,595,601, & - 607,613,619,628,636,645,653,669,675,684,690,709, & - 728,742,750,760,769,777,781,785,789,793,801,811, & - 822,847,883,917,935,948,958,966,985,999,1015,1028, & - 1046,1065,1078,1094,1114,1143,1165,1176,1185,1194,1207,1220, & - 1231,1293,1361,1487,1603,1643,1669,1720,1771,1785,1826,1827 /) - - -END MODULE MOZART_T1_JacobianSP - diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_JacobianSP.o b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_JacobianSP.o deleted file mode 100644 index 01b2ea70c2aa854f97c90c762cb4f525ea6afaf9..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_JacobianSP.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_LinearAlgebra.f90 b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_LinearAlgebra.f90 deleted file mode 100644 index 747d7de5a5d969a725439dd2251b2766cef45e4f..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_LinearAlgebra.f90 +++ /dev/null @@ -1,2019 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Linear Algebra Data and Routines File -! -! Generated by KPP-2.2.3 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 : MOZART_T1_LinearAlgebra.f90 -! Time : Wed Jan 27 13:13:50 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_T1_20754_BOXMOX -! Equation file : MOZART_T1.kpp -! Output root filename : MOZART_T1 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MOZART_T1_LinearAlgebra - - USE MOZART_T1_Parameters - USE MOZART_T1_JacobianSP - - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! SPARSE_UTIL - SPARSE utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecomp( JVS, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MOZART_T1_Parameters - USE MOZART_T1_JacobianSP - - INTEGER :: IER - REAL(kind=dp) :: JVS(LU_NONZERO), W(NVAR), a - INTEGER :: k, kk, j, jj - - a = 0. ! mz_rs_20050606 - IER = 0 - DO k=1,NVAR - ! mz_rs_20050606: don't check if real value == 0 - ! IF ( JVS( LU_DIAG(k) ) .EQ. 0. ) THEN - IF ( ABS(JVS(LU_DIAG(k))) < TINY(a) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - W( LU_ICOL(kk) ) = JVS(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - a = -W(j) / JVS( LU_DIAG(j) ) - W(j) = -a - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVS(kk) = W( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecomp - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecompCmplx( JVS, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization, complex -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MOZART_T1_Parameters - USE MOZART_T1_JacobianSP - - INTEGER :: IER - DOUBLE COMPLEX :: JVS(LU_NONZERO), W(NVAR), a - REAL(kind=dp) :: b = 0.0 - INTEGER :: k, kk, j, jj - - IER = 0 - DO k=1,NVAR - IF ( ABS(JVS(LU_DIAG(k))) < TINY(b) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - W( LU_ICOL(kk) ) = JVS(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - a = -W(j) / JVS( LU_DIAG(j) ) - W(j) = -a - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVS(kk) = W( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecompCmplx - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecompCmplxR( JVSR, JVSI, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization, complex -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MOZART_T1_Parameters - USE MOZART_T1_JacobianSP - - INTEGER :: IER - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO) - REAL(kind=dp) :: WR(NVAR), WI(NVAR), ar, ai, den - INTEGER :: k, kk, j, jj - - IER = 0 - ar = 0.0 - DO k=1,NVAR - IF ( ( ABS(JVSR(LU_DIAG(k))) < TINY(ar) ) .AND. & - ( ABS(JVSI(LU_DIAG(k))) < TINY(ar) ) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - WR( LU_ICOL(kk) ) = JVSR(kk) - WI( LU_ICOL(kk) ) = JVSI(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - den = JVSR(LU_DIAG(j))**2 + JVSI(LU_DIAG(j))**2 - ar = -(WR(j)*JVSR(LU_DIAG(j)) + WI(j)*JVSI(LU_DIAG(j)))/den - ai = -(WI(j)*JVSR(LU_DIAG(j)) - WR(j)*JVSI(LU_DIAG(j)))/den - WR(j) = -ar - WI(j) = -ai - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - WR( LU_ICOL(jj) ) = WR( LU_ICOL(jj) ) + ar*JVSR(jj) - ai*JVSI(jj) - WI( LU_ICOL(jj) ) = WI( LU_ICOL(jj) ) + ar*JVSI(jj) + ai*JVSR(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVSR(kk) = WR( LU_ICOL(kk) ) - JVSI(kk) = WI( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecompCmplxR - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveIndirect( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse solve subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MOZART_T1_Parameters - USE MOZART_T1_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR), sum - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - X(i) = X(i) - JVS(j)*X(LU_ICOL(j)); - END DO - END DO - - DO i=NVAR,1,-1 - sum = X(i); - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sum = sum - JVS(j)*X(LU_ICOL(j)); - END DO - X(i) = sum/JVS(LU_DIAG(i)); - END DO - -END SUBROUTINE KppSolveIndirect - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRIndirect( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MOZART_T1_Parameters - USE MOZART_T1_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR) - - DO i=1,NVAR - X(i) = X(i)/JVS(LU_DIAG(i)) - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - -END SUBROUTINE KppSolveTRIndirect - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveCmplx( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MOZART_T1_Parameters - USE MOZART_T1_JacobianSP - - INTEGER :: i, j - DOUBLE COMPLEX :: JVS(LU_NONZERO), X(NVAR), sum - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - X(i) = X(i) - JVS(j)*X(LU_ICOL(j)); - END DO - END DO - - DO i=NVAR,1,-1 - sum = X(i); - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sum = sum - JVS(j)*X(LU_ICOL(j)); - END DO - X(i) = sum/JVS(LU_DIAG(i)); - END DO - -END SUBROUTINE KppSolveCmplx - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveCmplxR( JVSR, JVSI, XR, XI ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve subroutine using indirect addressing -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MOZART_T1_Parameters - USE MOZART_T1_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), sumr, sumi, den - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - XR(i) = XR(i) - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j))) - XI(i) = XI(i) - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j))) - END DO - END DO - - DO i=NVAR,1,-1 - sumr = XR(i); sumi = XI(i) - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sumr = sumr - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j))) - sumi = sumi - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j))) - END DO - den = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2 - XR(i) = (sumr*JVSR(LU_DIAG(i)) + sumi*JVSI(LU_DIAG(i)))/den - XI(i) = (sumi*JVSR(LU_DIAG(i)) - sumr*JVSI(LU_DIAG(i)))/den - END DO - -END SUBROUTINE KppSolveCmplxR - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRCmplx( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MOZART_T1_Parameters - USE MOZART_T1_JacobianSP - - INTEGER :: i, j - DOUBLE COMPLEX :: JVS(LU_NONZERO), X(NVAR) - - DO i=1,NVAR - X(i) = X(i)/JVS(LU_DIAG(i)) - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - -END SUBROUTINE KppSolveTRCmplx - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRCmplxR( JVSR, JVSI, XR, XI ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MOZART_T1_Parameters - USE MOZART_T1_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), den - - DO i=1,NVAR - den = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2 - XR(i) = (XR(i)*JVSR(LU_DIAG(i)) + XI(i)*JVSI(LU_DIAG(i)))/den - XI(i) = (XI(i)*JVSR(LU_DIAG(i)) - XR(i)*JVSI(LU_DIAG(i)))/den - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i)) - XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i)) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i)) - XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i)) - END DO - END DO - -END SUBROUTINE KppSolveTRCmplxR - - -! -! Next few commented subroutines perform sparse big linear algebra -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppDecompBig( JVS, IP, IER ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Sparse LU factorization -!! for the Runge Kutta (3n)x(3n) linear system -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE MOZART_T1_Parameters -! USE MOZART_T1_JacobianSP -! -! INTEGER :: IP3(3), IER, IP(3,NVAR) -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), W(3,3,NVAR), a(3,3), E(3,3) -! INTEGER :: k, kk, j, jj -! -! a = 0.0d0 -! IER = 0 -! DO k=1,NVAR -! DO kk = LU_CROW(k), LU_CROW(k+1)-1 -! W( 1:3,1:3,LU_ICOL(kk) ) = JVS(1:3,1:3,kk) -! END DO -! DO kk = LU_CROW(k), LU_DIAG(k)-1 -! j = LU_ICOL(kk) -! E(1:3,1:3) = JVS( 1:3,1:3,LU_DIAG(j) ) -! ! CALL DGETRF(3,3,E,3,IP3,IER) -! CALL FAC3(E,IP3,IER) -! IF ( IER /= 0 ) RETURN -! ! a = W(j) / JVS( LU_DIAG(j) ) -! a(1:3,1:3) = W( 1:3,1:3,j ) -! ! CALL DGETRS ('N',3,3,E,3,IP3,a,3,IER) -! CALL SOL3('N',E,IP3,a(1,1)) -! CALL SOL3('N',E,IP3,a(1,2)) -! CALL SOL3('N',E,IP3,a(1,3)) -! W(1:3,1:3,j) = a(1:3,1:3) -! DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 -! W( 1:3,1:3,LU_ICOL(jj) ) = W( 1:3,1:3,LU_ICOL(jj) ) & -! - MATMUL( a(1:3,1:3) , JVS(1:3,1:3,jj) ) -! END DO -! END DO -! DO kk = LU_CROW(k), LU_CROW(k+1)-1 -! JVS(1:3,1:3,kk) = W( 1:3,1:3,LU_ICOL(kk) ) -! END DO -! END DO -! -! DO k=1,NVAR -! ! CALL WGEFA(JVS(1,1,LU_DIAG(k)),3,3,IP(1,k),IER) -! ! CALL DGETRF(3,3,JVS(1,1,LU_DIAG(k)),3,IP(1,k),IER) -! CALL FAC3(JVS(1,1,LU_DIAG(k)),IP(1,k),IER) -! IF ( IER /= 0 ) RETURN -! END DO -! -!END SUBROUTINE KppDecompBig -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppSolveBig( JVS, IP, X ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Sparse solve subroutine using indirect addressing -!! for the Runge Kutta (3n)x(3n) linear system -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE MOZART_T1_Parameters -! USE MOZART_T1_JacobianSP -! -! INTEGER :: i, j, k, m, IP3(3), IP(3,NVAR), IER -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR), sum(3) -! -! DO i=1,NVAR -! DO j = LU_CROW(i), LU_DIAG(i)-1 -! !X(1:3,i) = X(1:3,i) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j))); -! DO k=1,3 -! DO m=1,3 -! X(k,i) = X(k,i) - JVS(k,m,j)*X(m,LU_ICOL(j)) -! END DO -! END DO -! END DO -! END DO -! -! DO i=NVAR,1,-1 -! sum(1:3) = X(1:3,i); -! DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 -! !sum(1:3) = sum(1:3) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j))); -! DO k=1,3 -! DO m=1,3 -! sum(k) = sum(k) - JVS(k,m,j)*X(m,LU_ICOL(j)) -! END DO -! END DO -! END DO -! ! X(i) = sum/JVS(LU_DIAG(i)); -! ! CALL DGETRS ('N',3,1,JVS(1:3,1:3,LU_DIAG(i)),3,IP(1,i),sum,3,0) -! ! CALL WGESL('N',JVS(1,1,LU_DIAG(i)),3,3,IP(1,i),sum) -! CALL SOL3('N',JVS(1,1,LU_DIAG(i)),IP(1,i),sum) -! X(1:3,i) = sum(1:3) -! END DO -! -!END SUBROUTINE KppSolveBig -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppSolveBigTR( JVS, IP, X ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Big sparse transpose solve using indirect addressing -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE MOZART_T1_Parameters -! USE MOZART_T1_JacobianSP -! -! INTEGER :: i, j, k, m, IP(3,NVAR) -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR) -! -! DO i=1,NVAR -! ! X(i) = X(i)/JVS(LU_DIAG(i)) -! CALL SOL3('T',JVS(1,1,LU_DIAG(i)),IP(1,i),X(1,i)) -! DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 -! !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) & -! ! - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) ) -! DO k=1,3 -! DO m=1,3 -! X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i) -! END DO -! END DO -! END DO -! END DO -! -! DO i=NVAR, 1, -1 -! DO j=LU_CROW(i),LU_DIAG(i)-1 -! !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) & -! ! - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) ) -! DO k=1,3 -! DO m=1,3 -! X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i) -! END DO -! END DO -! END DO -! END DO -! -!END SUBROUTINE KppSolveBigTR -! -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE FAC3(A,IPVT,INFO) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! FAC3 FACTORS THE MATRIX A (3,3) BY -!! GAUSS ELIMINATION WITH PARTIAL PIVOTING -!! LINPACK - LIKE -!! -!! Remove comments to perform pivoting -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! -! REAL(kind=dp) :: A(3,3) -! INTEGER :: IPVT(3),INFO -!! INTEGER :: L -!! REAL(kind=dp) :: t, dmax, da, TMP(3) -! REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0 -! -! info = 0 -!! t = TINY(da) -!! -!! da = ABS(A(1,1)); L = 1 -!! IF ( ABS(A(2,1))>da ) THEN -!! da = ABS(A(2,1)); L = 2 -!! IF ( ABS(A(3,1))>da ) THEN -!! L = 3 -!! END IF -!! END IF -!! IPVT(1) = L -!! IF (L /=1 ) THEN -!! TMP(1:3) = A(L,1:3) -!! A(L,1:3) = A(1,1:3) -!! A(1,1:3) = TMP(1:3) -!! END IF -!! IF (ABS(A(1,1)) < t) THEN -!! info = 1 -!! return -!! END IF -!! -! A(2,1) = A(2,1)/A(1,1) -! A(2,2) = A(2,2) - A(2,1)*A(1,2) -! A(2,3) = A(2,3) - A(2,1)*A(1,3) -! A(3,1) = A(3,1)/A(1,1) -! A(3,2) = A(3,2) - A(3,1)*A(1,2) -! A(3,3) = A(3,3) - A(3,1)*A(1,3) -! -!! IPVT(2) = 2 -!! IF (ABS(A(3,2))>ABS(A(2,2))) THEN -!! IPVT(2) = 3 -!! TMP(2:3) = A(3,2:3) -!! A(3,2:3) = A(2,2:3) -!! A(2,2:3) = TMP(2:3) -!! END IF -!! IF (ABS(A(2,2)) < t) THEN -!! info = 1 -!! return -!! END IF -!! -! A(3,2) = A(3,2)/A(2,2) -! A(3,3) = A(3,3) - A(3,2)*A(2,3) -! IPVT(3) = 3 -! -!END SUBROUTINE FAC3 -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE SOL3(Trans,A,IPVT,b) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! SOL3 solves the system 3x3 -!! A * x = b or trans(a) * x = b -!! using the factors computed by WGEFA. -!! -!! Trans = 'N' to solve A*x = b , -!! = 'T' to solve transpose(A)*x = b -!! LINPACK - LIKE -!! -!! Remove comments to use pivoting -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! CHARACTER :: Trans -! REAL(kind=dp) :: a(3,3),b(3) -! INTEGER :: IPVT(3) -!! INTEGER :: L -!! REAL(kind=dp) :: TMP -! -! SELECT CASE (Trans) -! -! CASE ('n','N') ! Solve A * x = b -! -!! Solve L*y = b -!! L = IPVT(1) -!! IF (L /= 1) THEN -!! TMP = B(1); B(1) = B(L); B(L) = TMP -!! END IF -! b(2) = b(2)-A(2,1)*b(1) -! b(3) = b(3)-A(3,1)*b(1) -! -!! L = IPVT(2) -!! IF (L /= 2) THEN -!! TMP = B(2); B(2) = B(L); B(L) = TMP -!! END IF -! b(3) = b(3)-A(3,2)*b(2) -! -!! Solve U*x = y -! b(3) = b(3)/A(3,3) -! b(2) = (b(2)-A(2,3)*b(3))/A(2,2) -! b(1) = (b(1)-A(1,3)*b(3)-A(1,2)*b(2))/A(1,1) -! -! -! CASE ('t','T') ! Solve transpose(A) * x = b -! -!! Solve transpose(U)*y = b -! b(1) = b(1)/A(1,1) -! b(2) = (b(2)-A(1,2)*b(1))/A(2,2) -! b(3) = (b(3)-A(1,3)*b(1)-A(2,3)*b(2))/A(3,3) -! -!! Solve transpose(L)*x = y -! b(2) = b(2)-A(3,2)*b(3) -!! L = ipvt(2) -!! IF (L /= 2) THEN -!! TMP = B(2); B(2) = B(L); B(L) = TMP -!! END IF -! b(1) = b(1)-A(3,1)*b(3)-A(2,1)*b(2) -!! L = ipvt(1) -!! IF (L /= 1) THEN -!! TMP = B(1); B(1) = B(L); B(L) = TMP -!! END IF -! -! END SELECT -! -!END SUBROUTINE SOL3 - -! End of SPARSE_UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! KppSolve - sparse back substitution -! Arguments : -! JVS - sparse Jacobian of variables -! X - Vector for variables -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE KppSolve ( JVS, X ) - -! JVS - sparse Jacobian of variables - REAL(kind=dp) :: JVS(LU_NONZERO) -! X - Vector for variables - REAL(kind=dp) :: X(NVAR) - - X(26) = X(26)-JVS(257)*X(25) - X(27) = X(27)-JVS(260)*X(25) - X(31) = X(31)-JVS(271)*X(30) - X(32) = X(32)-JVS(274)*X(30) - X(35) = X(35)-JVS(284)*X(34) - X(42) = X(42)-JVS(310)*X(20) - X(64) = X(64)-JVS(409)*X(30)-JVS(410)*X(34)-JVS(411)*X(50) - X(66) = X(66)-JVS(420)*X(27)-JVS(421)*X(31)-JVS(422)*X(54) - X(69) = X(69)-JVS(436)*X(26)-JVS(437)*X(67) - X(70) = X(70)-JVS(447)*X(29)-JVS(448)*X(36) - X(73) = X(73)-JVS(464)*X(27)-JVS(465)*X(31)-JVS(466)*X(35)-JVS(467)*X(41) - X(76) = X(76)-JVS(483)*X(25)-JVS(484)*X(67) - X(77) = X(77)-JVS(489)*X(35)-JVS(490)*X(63) - X(81) = X(81)-JVS(512)*X(23)-JVS(513)*X(38)-JVS(514)*X(50)-JVS(515)*X(64) - X(86) = X(86)-JVS(539)*X(59) - X(90) = X(90)-JVS(557)*X(60) - X(91) = X(91)-JVS(563)*X(37)-JVS(564)*X(89) - X(92) = X(92)-JVS(574)*X(41)-JVS(575)*X(73)-JVS(576)*X(81) - X(95) = X(95)-JVS(591)*X(49)-JVS(592)*X(78)-JVS(593)*X(93)-JVS(594)*X(94) - X(96) = X(96)-JVS(600)*X(74) - X(97) = X(97)-JVS(606)*X(62) - X(99) = X(99)-JVS(617)*X(30)-JVS(618)*X(89) - X(100) = X(100)-JVS(623)*X(69)-JVS(624)*X(76)-JVS(625)*X(89)-JVS(626)*X(98)-JVS(627)*X(99) - X(101) = X(101)-JVS(634)*X(34)-JVS(635)*X(98) - X(102) = X(102)-JVS(640)*X(44)-JVS(641)*X(89)-JVS(642)*X(98)-JVS(643)*X(99)-JVS(644)*X(101) - X(103) = X(103)-JVS(650)*X(24)-JVS(651)*X(60)-JVS(652)*X(65) - X(105) = X(105)-JVS(673)*X(16)-JVS(674)*X(56) - X(106) = X(106)-JVS(680)*X(18)-JVS(681)*X(28)-JVS(682)*X(82)-JVS(683)*X(87) - X(108) = X(108)-JVS(704)*X(15)-JVS(705)*X(53)-JVS(706)*X(78)-JVS(707)*X(93)-JVS(708)*X(94) - X(109) = X(109)-JVS(715)*X(24)-JVS(716)*X(43)-JVS(717)*X(54)-JVS(718)*X(63)-JVS(719)*X(66)-JVS(720)*X(67)-JVS(721)& - &*X(76)-JVS(722)*X(77)-JVS(723)*X(89)-JVS(724)*X(98)-JVS(725)*X(99)-JVS(726)*X(100)-JVS(727)*X(101) - X(111) = X(111)-JVS(749)*X(43) - X(112) = X(112)-JVS(759)*X(104) - X(113) = X(113)-JVS(766)*X(83)-JVS(767)*X(104)-JVS(768)*X(112) - X(119) = X(119)-JVS(797)*X(51)-JVS(798)*X(62)-JVS(799)*X(72)-JVS(800)*X(110) - X(121) = X(121)-JVS(815)*X(58)-JVS(816)*X(94)-JVS(817)*X(115)-JVS(818)*X(116)-JVS(819)*X(117)-JVS(820)*X(118)-JVS(821)& - &*X(120) - X(122) = X(122)-JVS(828)*X(56)-JVS(829)*X(59)-JVS(830)*X(75)-JVS(831)*X(79)-JVS(832)*X(83)-JVS(833)*X(86)-JVS(834)& - &*X(88)-JVS(835)*X(93)-JVS(836)*X(94)-JVS(837)*X(104)-JVS(838)*X(105)-JVS(839)*X(112)-JVS(840)*X(113)-JVS(841)& - &*X(115)-JVS(842)*X(116)-JVS(843)*X(117)-JVS(844)*X(118)-JVS(845)*X(120)-JVS(846)*X(121) - X(123) = X(123)-JVS(859)*X(24)-JVS(860)*X(26)-JVS(861)*X(32)-JVS(862)*X(34)-JVS(863)*X(57)-JVS(864)*X(60)-JVS(865)& - &*X(88)-JVS(866)*X(91)-JVS(867)*X(98)-JVS(868)*X(99)-JVS(869)*X(100)-JVS(870)*X(101)-JVS(871)*X(102)-JVS(872)& - &*X(104)-JVS(873)*X(109)-JVS(874)*X(110)-JVS(875)*X(111)-JVS(876)*X(113)-JVS(877)*X(114)-JVS(878)*X(115)& - &-JVS(879)*X(116)-JVS(880)*X(117)-JVS(881)*X(118)-JVS(882)*X(120) - X(124) = X(124)-JVS(910)*X(42)-JVS(911)*X(51)-JVS(912)*X(72)-JVS(913)*X(83)-JVS(914)*X(85)-JVS(915)*X(88)-JVS(916)& - &*X(90) - X(125) = X(125)-JVS(933)*X(83)-JVS(934)*X(104) - X(126) = X(126)-JVS(942)*X(88)-JVS(943)*X(115)-JVS(944)*X(116)-JVS(945)*X(117)-JVS(946)*X(118)-JVS(947)*X(120) - X(127) = X(127)-JVS(957)*X(88) - X(128) = X(128)-JVS(965)*X(114) - X(129) = X(129)-JVS(971)*X(40)-JVS(972)*X(49)-JVS(973)*X(53)-JVS(974)*X(59)-JVS(975)*X(74)-JVS(976)*X(86)-JVS(977)& - &*X(93)-JVS(978)*X(94)-JVS(979)*X(95)-JVS(980)*X(96)-JVS(981)*X(105)-JVS(982)*X(108)-JVS(983)*X(121)-JVS(984)& - &*X(128) - X(130) = X(130)-JVS(994)*X(91)-JVS(995)*X(98)-JVS(996)*X(99)-JVS(997)*X(101)-JVS(998)*X(110) - X(131) = X(131)-JVS(1009)*X(75)-JVS(1010)*X(115)-JVS(1011)*X(116)-JVS(1012)*X(117)-JVS(1013)*X(118)-JVS(1014)*X(120) - X(132) = X(132)-JVS(1022)*X(52)-JVS(1023)*X(115)-JVS(1024)*X(116)-JVS(1025)*X(117)-JVS(1026)*X(118)-JVS(1027)*X(120) - X(133) = X(133)-JVS(1036)*X(52)-JVS(1037)*X(75)-JVS(1038)*X(80)-JVS(1039)*X(115)-JVS(1040)*X(116)-JVS(1041)*X(117)& - &-JVS(1042)*X(118)-JVS(1043)*X(120)-JVS(1044)*X(131)-JVS(1045)*X(132) - X(134) = X(134)-JVS(1053)*X(55)-JVS(1054)*X(115)-JVS(1055)*X(116)-JVS(1056)*X(117)-JVS(1057)*X(118)-JVS(1058)*X(120)& - &-JVS(1059)*X(122)-JVS(1060)*X(125)-JVS(1061)*X(126)-JVS(1062)*X(127)-JVS(1063)*X(131)-JVS(1064)*X(133) - X(135) = X(135)-JVS(1073)*X(39)-JVS(1074)*X(82)-JVS(1075)*X(87)-JVS(1076)*X(106)-JVS(1077)*X(128) - X(136) = X(136)-JVS(1087)*X(72)-JVS(1088)*X(74)-JVS(1089)*X(84)-JVS(1090)*X(85)-JVS(1091)*X(96)-JVS(1092)*X(128)& - &-JVS(1093)*X(134) - X(137) = X(137)-JVS(1110)*X(72)-JVS(1111)*X(85)-JVS(1112)*X(86)-JVS(1113)*X(112) - X(138) = X(138)-JVS(1123)*X(57)-JVS(1124)*X(63)-JVS(1125)*X(77)-JVS(1126)*X(89)-JVS(1127)*X(98)-JVS(1128)*X(99)& - &-JVS(1129)*X(101)-JVS(1130)*X(102)-JVS(1131)*X(111)-JVS(1132)*X(115)-JVS(1133)*X(116)-JVS(1134)*X(117)& - &-JVS(1135)*X(118)-JVS(1136)*X(119)-JVS(1137)*X(120)-JVS(1138)*X(128)-JVS(1139)*X(130)-JVS(1140)*X(134)& - &-JVS(1141)*X(136)-JVS(1142)*X(137) - X(139) = X(139)-JVS(1160)*X(21)-JVS(1161)*X(33)-JVS(1162)*X(37)-JVS(1163)*X(46)-JVS(1164)*X(97) - X(140) = X(140)-JVS(1175)*X(114) - X(141) = X(141)-JVS(1184)*X(114) - X(142) = X(142)-JVS(1193)*X(114) - X(143) = X(143)-JVS(1202)*X(97)-JVS(1203)*X(114)-JVS(1204)*X(140)-JVS(1205)*X(141)-JVS(1206)*X(142) - X(144) = X(144)-JVS(1215)*X(97)-JVS(1216)*X(114)-JVS(1217)*X(140)-JVS(1218)*X(141)-JVS(1219)*X(142) - X(145) = X(145)-JVS(1228)*X(48)-JVS(1229)*X(143)-JVS(1230)*X(144) - X(146) = X(146)-JVS(1239)*X(42)-JVS(1240)*X(47)-JVS(1241)*X(55)-JVS(1242)*X(59)-JVS(1243)*X(60)-JVS(1244)*X(65)& - &-JVS(1245)*X(68)-JVS(1246)*X(71)-JVS(1247)*X(74)-JVS(1248)*X(75)-JVS(1249)*X(83)-JVS(1250)*X(84)-JVS(1251)& - &*X(85)-JVS(1252)*X(86)-JVS(1253)*X(87)-JVS(1254)*X(88)-JVS(1255)*X(90)-JVS(1256)*X(93)-JVS(1257)*X(94)& - &-JVS(1258)*X(96)-JVS(1259)*X(97)-JVS(1260)*X(104)-JVS(1261)*X(105)-JVS(1262)*X(106)-JVS(1263)*X(107)-JVS(1264)& - &*X(108)-JVS(1265)*X(112)-JVS(1266)*X(114)-JVS(1267)*X(115)-JVS(1268)*X(116)-JVS(1269)*X(117)-JVS(1270)*X(118)& - &-JVS(1271)*X(119)-JVS(1272)*X(120)-JVS(1273)*X(121)-JVS(1274)*X(124)-JVS(1275)*X(125)-JVS(1276)*X(126)& - &-JVS(1277)*X(127)-JVS(1278)*X(128)-JVS(1279)*X(131)-JVS(1280)*X(132)-JVS(1281)*X(133)-JVS(1282)*X(134)& - &-JVS(1283)*X(135)-JVS(1284)*X(136)-JVS(1285)*X(137)-JVS(1286)*X(139)-JVS(1287)*X(140)-JVS(1288)*X(141)& - &-JVS(1289)*X(142)-JVS(1290)*X(143)-JVS(1291)*X(144)-JVS(1292)*X(145) - X(147) = X(147)-JVS(1303)*X(22)-JVS(1304)*X(23)-JVS(1305)*X(29)-JVS(1306)*X(43)-JVS(1307)*X(45)-JVS(1308)*X(52)& - &-JVS(1309)*X(59)-JVS(1310)*X(62)-JVS(1311)*X(64)-JVS(1312)*X(65)-JVS(1313)*X(66)-JVS(1314)*X(70)-JVS(1315)& - &*X(71)-JVS(1316)*X(73)-JVS(1317)*X(76)-JVS(1318)*X(77)-JVS(1319)*X(79)-JVS(1320)*X(80)-JVS(1321)*X(81)& - &-JVS(1322)*X(84)-JVS(1323)*X(85)-JVS(1324)*X(86)-JVS(1325)*X(90)-JVS(1326)*X(92)-JVS(1327)*X(93)-JVS(1328)& - &*X(95)-JVS(1329)*X(96)-JVS(1330)*X(99)-JVS(1331)*X(100)-JVS(1332)*X(101)-JVS(1333)*X(102)-JVS(1334)*X(105)& - &-JVS(1335)*X(108)-JVS(1336)*X(110)-JVS(1337)*X(112)-JVS(1338)*X(113)-JVS(1339)*X(119)-JVS(1340)*X(121)& - &-JVS(1341)*X(125)-JVS(1342)*X(127)-JVS(1343)*X(128)-JVS(1344)*X(129)-JVS(1345)*X(130)-JVS(1346)*X(131)& - &-JVS(1347)*X(132)-JVS(1348)*X(133)-JVS(1349)*X(134)-JVS(1350)*X(135)-JVS(1351)*X(137)-JVS(1352)*X(138)& - &-JVS(1353)*X(139)-JVS(1354)*X(140)-JVS(1355)*X(141)-JVS(1356)*X(142)-JVS(1357)*X(143)-JVS(1358)*X(144)& - &-JVS(1359)*X(145)-JVS(1360)*X(146) - X(148) = X(148)-JVS(1370)*X(14)-JVS(1371)*X(15)-JVS(1372)*X(16)-JVS(1373)*X(17)-JVS(1374)*X(19)-JVS(1375)*X(20)& - &-JVS(1376)*X(21)-JVS(1377)*X(24)-JVS(1378)*X(25)-JVS(1379)*X(27)-JVS(1380)*X(28)-JVS(1381)*X(30)-JVS(1382)& - &*X(31)-JVS(1383)*X(33)-JVS(1384)*X(34)-JVS(1385)*X(35)-JVS(1386)*X(36)-JVS(1387)*X(37)-JVS(1388)*X(38)& - &-JVS(1389)*X(39)-JVS(1390)*X(40)-JVS(1391)*X(41)-JVS(1392)*X(45)-JVS(1393)*X(46)-JVS(1394)*X(47)-JVS(1395)& - &*X(48)-JVS(1396)*X(49)-JVS(1397)*X(50)-JVS(1398)*X(51)-JVS(1399)*X(52)-JVS(1400)*X(53)-JVS(1401)*X(54)& - &-JVS(1402)*X(55)-JVS(1403)*X(56)-JVS(1404)*X(58)-JVS(1405)*X(59)-JVS(1406)*X(60)-JVS(1407)*X(61)-JVS(1408)& - &*X(62)-JVS(1409)*X(63)-JVS(1410)*X(64)-JVS(1411)*X(66)-JVS(1412)*X(67)-JVS(1413)*X(68)-JVS(1414)*X(70)& - &-JVS(1415)*X(71)-JVS(1416)*X(72)-JVS(1417)*X(74)-JVS(1418)*X(75)-JVS(1419)*X(76)-JVS(1420)*X(77)-JVS(1421)& - &*X(78)-JVS(1422)*X(79)-JVS(1423)*X(80)-JVS(1424)*X(81)-JVS(1425)*X(82)-JVS(1426)*X(83)-JVS(1427)*X(84)& - &-JVS(1428)*X(85)-JVS(1429)*X(87)-JVS(1430)*X(88)-JVS(1431)*X(89)-JVS(1432)*X(90)-JVS(1433)*X(92)-JVS(1434)& - &*X(93)-JVS(1435)*X(94)-JVS(1436)*X(95)-JVS(1437)*X(96)-JVS(1438)*X(97)-JVS(1439)*X(98)-JVS(1440)*X(99)& - &-JVS(1441)*X(101)-JVS(1442)*X(102)-JVS(1443)*X(103)-JVS(1444)*X(104)-JVS(1445)*X(105)-JVS(1446)*X(106)& - &-JVS(1447)*X(107)-JVS(1448)*X(108)-JVS(1449)*X(109)-JVS(1450)*X(110)-JVS(1451)*X(111)-JVS(1452)*X(113)& - &-JVS(1453)*X(114)-JVS(1454)*X(115)-JVS(1455)*X(116)-JVS(1456)*X(117)-JVS(1457)*X(118)-JVS(1458)*X(119)& - &-JVS(1459)*X(120)-JVS(1460)*X(121)-JVS(1461)*X(122)-JVS(1462)*X(123)-JVS(1463)*X(124)-JVS(1464)*X(125)& - &-JVS(1465)*X(126)-JVS(1466)*X(127)-JVS(1467)*X(128)-JVS(1468)*X(129)-JVS(1469)*X(130)-JVS(1470)*X(131)& - &-JVS(1471)*X(132)-JVS(1472)*X(133)-JVS(1473)*X(134)-JVS(1474)*X(135)-JVS(1475)*X(136)-JVS(1476)*X(137)& - &-JVS(1477)*X(138)-JVS(1478)*X(139)-JVS(1479)*X(140)-JVS(1480)*X(141)-JVS(1481)*X(142)-JVS(1482)*X(143)& - &-JVS(1483)*X(144)-JVS(1484)*X(145)-JVS(1485)*X(146)-JVS(1486)*X(147) - X(149) = X(149)-JVS(1495)*X(17)-JVS(1496)*X(24)-JVS(1497)*X(25)-JVS(1498)*X(26)-JVS(1499)*X(27)-JVS(1500)*X(28)& - &-JVS(1501)*X(30)-JVS(1502)*X(31)-JVS(1503)*X(32)-JVS(1504)*X(34)-JVS(1505)*X(35)-JVS(1506)*X(36)-JVS(1507)& - &*X(37)-JVS(1508)*X(39)-JVS(1509)*X(40)-JVS(1510)*X(42)-JVS(1511)*X(43)-JVS(1512)*X(44)-JVS(1513)*X(45)& - &-JVS(1514)*X(47)-JVS(1515)*X(48)-JVS(1516)*X(50)-JVS(1517)*X(51)-JVS(1518)*X(53)-JVS(1519)*X(54)-JVS(1520)& - &*X(56)-JVS(1521)*X(57)-JVS(1522)*X(60)-JVS(1523)*X(62)-JVS(1524)*X(63)-JVS(1525)*X(64)-JVS(1526)*X(65)& - &-JVS(1527)*X(66)-JVS(1528)*X(67)-JVS(1529)*X(69)-JVS(1530)*X(72)-JVS(1531)*X(74)-JVS(1532)*X(75)-JVS(1533)& - &*X(76)-JVS(1534)*X(77)-JVS(1535)*X(79)-JVS(1536)*X(80)-JVS(1537)*X(81)-JVS(1538)*X(82)-JVS(1539)*X(83)& - &-JVS(1540)*X(84)-JVS(1541)*X(85)-JVS(1542)*X(86)-JVS(1543)*X(87)-JVS(1544)*X(88)-JVS(1545)*X(89)-JVS(1546)& - &*X(90)-JVS(1547)*X(91)-JVS(1548)*X(92)-JVS(1549)*X(93)-JVS(1550)*X(94)-JVS(1551)*X(95)-JVS(1552)*X(96)& - &-JVS(1553)*X(97)-JVS(1554)*X(98)-JVS(1555)*X(99)-JVS(1556)*X(100)-JVS(1557)*X(101)-JVS(1558)*X(102)-JVS(1559)& - &*X(103)-JVS(1560)*X(104)-JVS(1561)*X(105)-JVS(1562)*X(106)-JVS(1563)*X(107)-JVS(1564)*X(108)-JVS(1565)*X(109)& - &-JVS(1566)*X(110)-JVS(1567)*X(111)-JVS(1568)*X(112)-JVS(1569)*X(113)-JVS(1570)*X(114)-JVS(1571)*X(115)& - &-JVS(1572)*X(116)-JVS(1573)*X(117)-JVS(1574)*X(118)-JVS(1575)*X(120)-JVS(1576)*X(121)-JVS(1577)*X(123)& - &-JVS(1578)*X(124)-JVS(1579)*X(125)-JVS(1580)*X(126)-JVS(1581)*X(127)-JVS(1582)*X(128)-JVS(1583)*X(129)& - &-JVS(1584)*X(130)-JVS(1585)*X(131)-JVS(1586)*X(132)-JVS(1587)*X(133)-JVS(1588)*X(134)-JVS(1589)*X(135)& - &-JVS(1590)*X(136)-JVS(1591)*X(137)-JVS(1592)*X(138)-JVS(1593)*X(139)-JVS(1594)*X(140)-JVS(1595)*X(141)& - &-JVS(1596)*X(142)-JVS(1597)*X(143)-JVS(1598)*X(144)-JVS(1599)*X(145)-JVS(1600)*X(146)-JVS(1601)*X(147)& - &-JVS(1602)*X(148) - X(150) = X(150)-JVS(1610)*X(29)-JVS(1611)*X(36)-JVS(1612)*X(45)-JVS(1613)*X(59)-JVS(1614)*X(70)-JVS(1615)*X(71)& - &-JVS(1616)*X(84)-JVS(1617)*X(104)-JVS(1618)*X(112)-JVS(1619)*X(114)-JVS(1620)*X(115)-JVS(1621)*X(116)& - &-JVS(1622)*X(117)-JVS(1623)*X(118)-JVS(1624)*X(120)-JVS(1625)*X(128)-JVS(1626)*X(129)-JVS(1627)*X(132)& - &-JVS(1628)*X(133)-JVS(1629)*X(135)-JVS(1630)*X(137)-JVS(1631)*X(138)-JVS(1632)*X(139)-JVS(1633)*X(140)& - &-JVS(1634)*X(141)-JVS(1635)*X(142)-JVS(1636)*X(143)-JVS(1637)*X(144)-JVS(1638)*X(145)-JVS(1639)*X(146)& - &-JVS(1640)*X(147)-JVS(1641)*X(148)-JVS(1642)*X(149) - X(151) = X(151)-JVS(1649)*X(60)-JVS(1650)*X(73)-JVS(1651)*X(92)-JVS(1652)*X(104)-JVS(1653)*X(106)-JVS(1654)*X(114)& - &-JVS(1655)*X(115)-JVS(1656)*X(116)-JVS(1657)*X(117)-JVS(1658)*X(118)-JVS(1659)*X(120)-JVS(1660)*X(128)& - &-JVS(1661)*X(135)-JVS(1662)*X(143)-JVS(1663)*X(144)-JVS(1664)*X(146)-JVS(1665)*X(147)-JVS(1666)*X(148)& - &-JVS(1667)*X(149)-JVS(1668)*X(150) - X(152) = X(152)-JVS(1674)*X(32)-JVS(1675)*X(34)-JVS(1676)*X(49)-JVS(1677)*X(55)-JVS(1678)*X(57)-JVS(1679)*X(68)& - &-JVS(1680)*X(71)-JVS(1681)*X(78)-JVS(1682)*X(93)-JVS(1683)*X(94)-JVS(1684)*X(95)-JVS(1685)*X(98)-JVS(1686)& - &*X(101)-JVS(1687)*X(111)-JVS(1688)*X(114)-JVS(1689)*X(115)-JVS(1690)*X(116)-JVS(1691)*X(117)-JVS(1692)*X(118)& - &-JVS(1693)*X(119)-JVS(1694)*X(120)-JVS(1695)*X(121)-JVS(1696)*X(122)-JVS(1697)*X(125)-JVS(1698)*X(126)& - &-JVS(1699)*X(127)-JVS(1700)*X(128)-JVS(1701)*X(129)-JVS(1702)*X(131)-JVS(1703)*X(133)-JVS(1704)*X(134)& - &-JVS(1705)*X(136)-JVS(1706)*X(137)-JVS(1707)*X(138)-JVS(1708)*X(139)-JVS(1709)*X(140)-JVS(1710)*X(141)& - &-JVS(1711)*X(142)-JVS(1712)*X(143)-JVS(1713)*X(144)-JVS(1714)*X(145)-JVS(1715)*X(147)-JVS(1716)*X(148)& - &-JVS(1717)*X(149)-JVS(1718)*X(150)-JVS(1719)*X(151) - X(153) = X(153)-JVS(1724)*X(18)-JVS(1725)*X(43)-JVS(1726)*X(64)-JVS(1727)*X(65)-JVS(1728)*X(66)-JVS(1729)*X(76)& - &-JVS(1730)*X(77)-JVS(1731)*X(79)-JVS(1732)*X(81)-JVS(1733)*X(86)-JVS(1734)*X(90)-JVS(1735)*X(92)-JVS(1736)& - &*X(95)-JVS(1737)*X(96)-JVS(1738)*X(99)-JVS(1739)*X(100)-JVS(1740)*X(101)-JVS(1741)*X(102)-JVS(1742)*X(105)& - &-JVS(1743)*X(106)-JVS(1744)*X(108)-JVS(1745)*X(112)-JVS(1746)*X(113)-JVS(1747)*X(121)-JVS(1748)*X(125)& - &-JVS(1749)*X(127)-JVS(1750)*X(128)-JVS(1751)*X(130)-JVS(1752)*X(131)-JVS(1753)*X(132)-JVS(1754)*X(133)& - &-JVS(1755)*X(134)-JVS(1756)*X(135)-JVS(1757)*X(137)-JVS(1758)*X(139)-JVS(1759)*X(140)-JVS(1760)*X(141)& - &-JVS(1761)*X(142)-JVS(1762)*X(144)-JVS(1763)*X(145)-JVS(1764)*X(146)-JVS(1765)*X(147)-JVS(1766)*X(148)& - &-JVS(1767)*X(149)-JVS(1768)*X(150)-JVS(1769)*X(151)-JVS(1770)*X(152) - X(154) = X(154)-JVS(1774)*X(48)-JVS(1775)*X(84)-JVS(1776)*X(143)-JVS(1777)*X(145)-JVS(1778)*X(147)-JVS(1779)*X(148)& - &-JVS(1780)*X(149)-JVS(1781)*X(150)-JVS(1782)*X(151)-JVS(1783)*X(152)-JVS(1784)*X(153) - X(155) = X(155)-JVS(1787)*X(47)-JVS(1788)*X(61)-JVS(1789)*X(68)-JVS(1790)*X(71)-JVS(1791)*X(87)-JVS(1792)*X(102)& - &-JVS(1793)*X(105)-JVS(1794)*X(106)-JVS(1795)*X(108)-JVS(1796)*X(114)-JVS(1797)*X(121)-JVS(1798)*X(122)& - &-JVS(1799)*X(125)-JVS(1800)*X(126)-JVS(1801)*X(127)-JVS(1802)*X(128)-JVS(1803)*X(129)-JVS(1804)*X(130)& - &-JVS(1805)*X(131)-JVS(1806)*X(132)-JVS(1807)*X(133)-JVS(1808)*X(134)-JVS(1809)*X(135)-JVS(1810)*X(137)& - &-JVS(1811)*X(139)-JVS(1812)*X(140)-JVS(1813)*X(141)-JVS(1814)*X(142)-JVS(1815)*X(144)-JVS(1816)*X(145)& - &-JVS(1817)*X(146)-JVS(1818)*X(147)-JVS(1819)*X(148)-JVS(1820)*X(149)-JVS(1821)*X(150)-JVS(1822)*X(151)& - &-JVS(1823)*X(152)-JVS(1824)*X(153)-JVS(1825)*X(154) - X(155) = X(155)/JVS(1826) - X(154) = (X(154)-JVS(1786)*X(155))/(JVS(1785)) - X(153) = (X(153)-JVS(1772)*X(154)-JVS(1773)*X(155))/(JVS(1771)) - X(152) = (X(152)-JVS(1721)*X(153)-JVS(1722)*X(154)-JVS(1723)*X(155))/(JVS(1720)) - X(151) = (X(151)-JVS(1670)*X(152)-JVS(1671)*X(153)-JVS(1672)*X(154)-JVS(1673)*X(155))/(JVS(1669)) - X(150) = (X(150)-JVS(1644)*X(151)-JVS(1645)*X(152)-JVS(1646)*X(153)-JVS(1647)*X(154)-JVS(1648)*X(155))/(JVS(1643)) - X(149) = (X(149)-JVS(1604)*X(150)-JVS(1605)*X(151)-JVS(1606)*X(152)-JVS(1607)*X(153)-JVS(1608)*X(154)-JVS(1609)& - &*X(155))/(JVS(1603)) - X(148) = (X(148)-JVS(1488)*X(149)-JVS(1489)*X(150)-JVS(1490)*X(151)-JVS(1491)*X(152)-JVS(1492)*X(153)-JVS(1493)*X(154)& - &-JVS(1494)*X(155))/(JVS(1487)) - X(147) = (X(147)-JVS(1362)*X(148)-JVS(1363)*X(149)-JVS(1364)*X(150)-JVS(1365)*X(151)-JVS(1366)*X(152)-JVS(1367)*X(153)& - &-JVS(1368)*X(154)-JVS(1369)*X(155))/(JVS(1361)) - X(146) = (X(146)-JVS(1294)*X(147)-JVS(1295)*X(148)-JVS(1296)*X(149)-JVS(1297)*X(150)-JVS(1298)*X(151)-JVS(1299)*X(152)& - &-JVS(1300)*X(153)-JVS(1301)*X(154)-JVS(1302)*X(155))/(JVS(1293)) - X(145) = (X(145)-JVS(1232)*X(148)-JVS(1233)*X(149)-JVS(1234)*X(150)-JVS(1235)*X(151)-JVS(1236)*X(152)-JVS(1237)*X(153)& - &-JVS(1238)*X(155))/(JVS(1231)) - X(144) = (X(144)-JVS(1221)*X(148)-JVS(1222)*X(149)-JVS(1223)*X(150)-JVS(1224)*X(151)-JVS(1225)*X(152)-JVS(1226)*X(153)& - &-JVS(1227)*X(155))/(JVS(1220)) - X(143) = (X(143)-JVS(1208)*X(148)-JVS(1209)*X(149)-JVS(1210)*X(150)-JVS(1211)*X(151)-JVS(1212)*X(152)-JVS(1213)*X(153)& - &-JVS(1214)*X(155))/(JVS(1207)) - X(142) = (X(142)-JVS(1195)*X(148)-JVS(1196)*X(149)-JVS(1197)*X(150)-JVS(1198)*X(151)-JVS(1199)*X(152)-JVS(1200)*X(153)& - &-JVS(1201)*X(155))/(JVS(1194)) - X(141) = (X(141)-JVS(1186)*X(148)-JVS(1187)*X(149)-JVS(1188)*X(150)-JVS(1189)*X(151)-JVS(1190)*X(152)-JVS(1191)*X(153)& - &-JVS(1192)*X(155))/(JVS(1185)) - X(140) = (X(140)-JVS(1177)*X(148)-JVS(1178)*X(149)-JVS(1179)*X(150)-JVS(1180)*X(151)-JVS(1181)*X(152)-JVS(1182)*X(153)& - &-JVS(1183)*X(155))/(JVS(1176)) - X(139) = (X(139)-JVS(1166)*X(140)-JVS(1167)*X(141)-JVS(1168)*X(142)-JVS(1169)*X(148)-JVS(1170)*X(149)-JVS(1171)*X(150)& - &-JVS(1172)*X(152)-JVS(1173)*X(153)-JVS(1174)*X(155))/(JVS(1165)) - X(138) = (X(138)-JVS(1144)*X(139)-JVS(1145)*X(140)-JVS(1146)*X(141)-JVS(1147)*X(142)-JVS(1148)*X(143)-JVS(1149)*X(144)& - &-JVS(1150)*X(145)-JVS(1151)*X(147)-JVS(1152)*X(148)-JVS(1153)*X(149)-JVS(1154)*X(150)-JVS(1155)*X(151)& - &-JVS(1156)*X(152)-JVS(1157)*X(153)-JVS(1158)*X(154)-JVS(1159)*X(155))/(JVS(1143)) - X(137) = (X(137)-JVS(1115)*X(140)-JVS(1116)*X(141)-JVS(1117)*X(145)-JVS(1118)*X(148)-JVS(1119)*X(149)-JVS(1120)*X(150)& - &-JVS(1121)*X(151)-JVS(1122)*X(153))/(JVS(1114)) - X(136) = (X(136)-JVS(1095)*X(137)-JVS(1096)*X(139)-JVS(1097)*X(140)-JVS(1098)*X(141)-JVS(1099)*X(144)-JVS(1100)*X(145)& - &-JVS(1101)*X(147)-JVS(1102)*X(148)-JVS(1103)*X(149)-JVS(1104)*X(150)-JVS(1105)*X(151)-JVS(1106)*X(152)& - &-JVS(1107)*X(153)-JVS(1108)*X(154)-JVS(1109)*X(155))/(JVS(1094)) - X(135) = (X(135)-JVS(1079)*X(144)-JVS(1080)*X(146)-JVS(1081)*X(147)-JVS(1082)*X(148)-JVS(1083)*X(149)-JVS(1084)*X(150)& - &-JVS(1085)*X(151)-JVS(1086)*X(153))/(JVS(1078)) - X(134) = (X(134)-JVS(1066)*X(137)-JVS(1067)*X(148)-JVS(1068)*X(149)-JVS(1069)*X(150)-JVS(1070)*X(151)-JVS(1071)*X(153)& - &-JVS(1072)*X(155))/(JVS(1065)) - X(133) = (X(133)-JVS(1047)*X(148)-JVS(1048)*X(149)-JVS(1049)*X(150)-JVS(1050)*X(151)-JVS(1051)*X(153)-JVS(1052)& - &*X(155))/(JVS(1046)) - X(132) = (X(132)-JVS(1029)*X(133)-JVS(1030)*X(148)-JVS(1031)*X(149)-JVS(1032)*X(150)-JVS(1033)*X(151)-JVS(1034)*X(153)& - &-JVS(1035)*X(155))/(JVS(1028)) - X(131) = (X(131)-JVS(1016)*X(148)-JVS(1017)*X(149)-JVS(1018)*X(150)-JVS(1019)*X(151)-JVS(1020)*X(153)-JVS(1021)& - &*X(155))/(JVS(1015)) - X(130) = (X(130)-JVS(1000)*X(141)-JVS(1001)*X(142)-JVS(1002)*X(147)-JVS(1003)*X(148)-JVS(1004)*X(149)-JVS(1005)*X(150)& - &-JVS(1006)*X(152)-JVS(1007)*X(153)-JVS(1008)*X(155))/(JVS(999)) - X(129) = (X(129)-JVS(986)*X(137)-JVS(987)*X(144)-JVS(988)*X(148)-JVS(989)*X(149)-JVS(990)*X(150)-JVS(991)*X(151)& - &-JVS(992)*X(153)-JVS(993)*X(155))/(JVS(985)) - X(128) = (X(128)-JVS(967)*X(144)-JVS(968)*X(148)-JVS(969)*X(150)-JVS(970)*X(151))/(JVS(966)) - X(127) = (X(127)-JVS(959)*X(133)-JVS(960)*X(148)-JVS(961)*X(149)-JVS(962)*X(150)-JVS(963)*X(153)-JVS(964)*X(155))& - &/(JVS(958)) - X(126) = (X(126)-JVS(949)*X(127)-JVS(950)*X(133)-JVS(951)*X(148)-JVS(952)*X(149)-JVS(953)*X(150)-JVS(954)*X(151)& - &-JVS(955)*X(153)-JVS(956)*X(155))/(JVS(948)) - X(125) = (X(125)-JVS(936)*X(148)-JVS(937)*X(149)-JVS(938)*X(150)-JVS(939)*X(151)-JVS(940)*X(153)-JVS(941)*X(155))& - &/(JVS(935)) - X(124) = (X(124)-JVS(918)*X(125)-JVS(919)*X(127)-JVS(920)*X(137)-JVS(921)*X(139)-JVS(922)*X(140)-JVS(923)*X(141)& - &-JVS(924)*X(142)-JVS(925)*X(145)-JVS(926)*X(148)-JVS(927)*X(149)-JVS(928)*X(150)-JVS(929)*X(151)-JVS(930)& - &*X(152)-JVS(931)*X(153)-JVS(932)*X(155))/(JVS(917)) - X(123) = (X(123)-JVS(884)*X(124)-JVS(885)*X(125)-JVS(886)*X(126)-JVS(887)*X(127)-JVS(888)*X(128)-JVS(889)*X(129)& - &-JVS(890)*X(130)-JVS(891)*X(133)-JVS(892)*X(135)-JVS(893)*X(137)-JVS(894)*X(138)-JVS(895)*X(139)-JVS(896)& - &*X(141)-JVS(897)*X(142)-JVS(898)*X(143)-JVS(899)*X(144)-JVS(900)*X(145)-JVS(901)*X(146)-JVS(902)*X(147)& - &-JVS(903)*X(148)-JVS(904)*X(149)-JVS(905)*X(150)-JVS(906)*X(151)-JVS(907)*X(152)-JVS(908)*X(153)-JVS(909)& - &*X(155))/(JVS(883)) - X(122) = (X(122)-JVS(848)*X(125)-JVS(849)*X(126)-JVS(850)*X(127)-JVS(851)*X(131)-JVS(852)*X(137)-JVS(853)*X(148)& - &-JVS(854)*X(149)-JVS(855)*X(150)-JVS(856)*X(151)-JVS(857)*X(153)-JVS(858)*X(155))/(JVS(847)) - X(121) = (X(121)-JVS(823)*X(148)-JVS(824)*X(149)-JVS(825)*X(150)-JVS(826)*X(151)-JVS(827)*X(153))/(JVS(822)) - X(120) = (X(120)-JVS(812)*X(148)-JVS(813)*X(150)-JVS(814)*X(151))/(JVS(811)) - X(119) = (X(119)-JVS(802)*X(128)-JVS(803)*X(141)-JVS(804)*X(142)-JVS(805)*X(148)-JVS(806)*X(149)-JVS(807)*X(150)& - &-JVS(808)*X(152)-JVS(809)*X(153)-JVS(810)*X(155))/(JVS(801)) - X(118) = (X(118)-JVS(794)*X(148)-JVS(795)*X(150)-JVS(796)*X(151))/(JVS(793)) - X(117) = (X(117)-JVS(790)*X(148)-JVS(791)*X(150)-JVS(792)*X(151))/(JVS(789)) - X(116) = (X(116)-JVS(786)*X(148)-JVS(787)*X(150)-JVS(788)*X(151))/(JVS(785)) - X(115) = (X(115)-JVS(782)*X(148)-JVS(783)*X(150)-JVS(784)*X(151))/(JVS(781)) - X(114) = (X(114)-JVS(778)*X(148)-JVS(779)*X(150)-JVS(780)*X(151))/(JVS(777)) - X(113) = (X(113)-JVS(770)*X(125)-JVS(771)*X(148)-JVS(772)*X(149)-JVS(773)*X(150)-JVS(774)*X(151)-JVS(775)*X(153)& - &-JVS(776)*X(155))/(JVS(769)) - X(112) = (X(112)-JVS(761)*X(148)-JVS(762)*X(149)-JVS(763)*X(150)-JVS(764)*X(151)-JVS(765)*X(153))/(JVS(760)) - X(111) = (X(111)-JVS(751)*X(115)-JVS(752)*X(116)-JVS(753)*X(117)-JVS(754)*X(118)-JVS(755)*X(120)-JVS(756)*X(149)& - &-JVS(757)*X(151)-JVS(758)*X(153))/(JVS(750)) - X(110) = (X(110)-JVS(743)*X(142)-JVS(744)*X(148)-JVS(745)*X(150)-JVS(746)*X(152)-JVS(747)*X(153)-JVS(748)*X(155))& - &/(JVS(742)) - X(109) = (X(109)-JVS(729)*X(110)-JVS(730)*X(111)-JVS(731)*X(124)-JVS(732)*X(130)-JVS(733)*X(139)-JVS(734)*X(141)& - &-JVS(735)*X(147)-JVS(736)*X(148)-JVS(737)*X(149)-JVS(738)*X(150)-JVS(739)*X(152)-JVS(740)*X(153)-JVS(741)& - &*X(155))/(JVS(728)) - X(108) = (X(108)-JVS(710)*X(121)-JVS(711)*X(148)-JVS(712)*X(149)-JVS(713)*X(153)-JVS(714)*X(155))/(JVS(709)) - X(107) = (X(107)-JVS(691)*X(108)-JVS(692)*X(125)-JVS(693)*X(127)-JVS(694)*X(131)-JVS(695)*X(132)-JVS(696)*X(134)& - &-JVS(697)*X(139)-JVS(698)*X(140)-JVS(699)*X(141)-JVS(700)*X(142)-JVS(701)*X(145)-JVS(702)*X(148)-JVS(703)& - &*X(155))/(JVS(690)) - X(106) = (X(106)-JVS(685)*X(128)-JVS(686)*X(135)-JVS(687)*X(146)-JVS(688)*X(148)-JVS(689)*X(151))/(JVS(684)) - X(105) = (X(105)-JVS(676)*X(148)-JVS(677)*X(149)-JVS(678)*X(153)-JVS(679)*X(155))/(JVS(675)) - X(104) = (X(104)-JVS(670)*X(148)-JVS(671)*X(150)-JVS(672)*X(151))/(JVS(669)) - X(103) = (X(103)-JVS(654)*X(104)-JVS(655)*X(114)-JVS(656)*X(115)-JVS(657)*X(116)-JVS(658)*X(117)-JVS(659)*X(118)& - &-JVS(660)*X(120)-JVS(661)*X(128)-JVS(662)*X(143)-JVS(663)*X(144)-JVS(664)*X(146)-JVS(665)*X(148)-JVS(666)& - &*X(149)-JVS(667)*X(151)-JVS(668)*X(153))/(JVS(653)) - X(102) = (X(102)-JVS(646)*X(147)-JVS(647)*X(148)-JVS(648)*X(149)-JVS(649)*X(153))/(JVS(645)) - X(101) = (X(101)-JVS(637)*X(148)-JVS(638)*X(149)-JVS(639)*X(153))/(JVS(636)) - X(100) = (X(100)-JVS(629)*X(101)-JVS(630)*X(147)-JVS(631)*X(148)-JVS(632)*X(149)-JVS(633)*X(153))/(JVS(628)) - X(99) = (X(99)-JVS(620)*X(148)-JVS(621)*X(149)-JVS(622)*X(153))/(JVS(619)) - X(98) = (X(98)-JVS(614)*X(101)-JVS(615)*X(148)-JVS(616)*X(149))/(JVS(613)) - X(97) = (X(97)-JVS(608)*X(140)-JVS(609)*X(141)-JVS(610)*X(142)-JVS(611)*X(148)-JVS(612)*X(149))/(JVS(607)) - X(96) = (X(96)-JVS(602)*X(128)-JVS(603)*X(148)-JVS(604)*X(149)-JVS(605)*X(153))/(JVS(601)) - X(95) = (X(95)-JVS(596)*X(121)-JVS(597)*X(148)-JVS(598)*X(149)-JVS(599)*X(153))/(JVS(595)) - X(94) = (X(94)-JVS(588)*X(121)-JVS(589)*X(148)-JVS(590)*X(149))/(JVS(587)) - X(93) = (X(93)-JVS(584)*X(121)-JVS(585)*X(148)-JVS(586)*X(153))/(JVS(583)) - X(92) = (X(92)-JVS(578)*X(147)-JVS(579)*X(148)-JVS(580)*X(149)-JVS(581)*X(151)-JVS(582)*X(153))/(JVS(577)) - X(91) = (X(91)-JVS(566)*X(98)-JVS(567)*X(99)-JVS(568)*X(101)-JVS(569)*X(110)-JVS(570)*X(141)-JVS(571)*X(148)-JVS(572)& - &*X(149)-JVS(573)*X(153))/(JVS(565)) - X(90) = (X(90)-JVS(559)*X(148)-JVS(560)*X(149)-JVS(561)*X(151)-JVS(562)*X(153))/(JVS(558)) - X(89) = (X(89)-JVS(554)*X(99)-JVS(555)*X(148)-JVS(556)*X(149))/(JVS(553)) - X(88) = (X(88)-JVS(550)*X(127)-JVS(551)*X(148)-JVS(552)*X(149))/(JVS(549)) - X(87) = (X(87)-JVS(545)*X(106)-JVS(546)*X(128)-JVS(547)*X(148)-JVS(548)*X(151))/(JVS(544)) - X(86) = (X(86)-JVS(541)*X(148)-JVS(542)*X(150)-JVS(543)*X(153))/(JVS(540)) - X(85) = (X(85)-JVS(536)*X(140)-JVS(537)*X(148)-JVS(538)*X(153))/(JVS(535)) - X(84) = (X(84)-JVS(532)*X(147)-JVS(533)*X(148)-JVS(534)*X(154))/(JVS(531)) - X(83) = (X(83)-JVS(528)*X(125)-JVS(529)*X(148)-JVS(530)*X(149))/(JVS(527)) - X(82) = (X(82)-JVS(522)*X(87)-JVS(523)*X(106)-JVS(524)*X(135)-JVS(525)*X(146)-JVS(526)*X(148))/(JVS(521)) - X(81) = (X(81)-JVS(517)*X(147)-JVS(518)*X(148)-JVS(519)*X(149)-JVS(520)*X(153))/(JVS(516)) - X(80) = (X(80)-JVS(507)*X(131)-JVS(508)*X(132)-JVS(509)*X(148)-JVS(510)*X(153)-JVS(511)*X(155))/(JVS(506)) - X(79) = (X(79)-JVS(502)*X(113)-JVS(503)*X(148)-JVS(504)*X(149)-JVS(505)*X(153))/(JVS(501)) - X(78) = (X(78)-JVS(496)*X(93)-JVS(497)*X(94)-JVS(498)*X(121)-JVS(499)*X(148)-JVS(500)*X(153))/(JVS(495)) - X(77) = (X(77)-JVS(492)*X(148)-JVS(493)*X(149)-JVS(494)*X(153))/(JVS(491)) - X(76) = (X(76)-JVS(486)*X(148)-JVS(487)*X(149)-JVS(488)*X(153))/(JVS(485)) - X(75) = (X(75)-JVS(480)*X(131)-JVS(481)*X(148)-JVS(482)*X(149))/(JVS(479)) - X(74) = (X(74)-JVS(476)*X(96)-JVS(477)*X(148)-JVS(478)*X(149))/(JVS(475)) - X(73) = (X(73)-JVS(469)*X(92)-JVS(470)*X(147)-JVS(471)*X(148)-JVS(472)*X(149)-JVS(473)*X(151)-JVS(474)*X(153))& - &/(JVS(468)) - X(72) = (X(72)-JVS(461)*X(141)-JVS(462)*X(148)-JVS(463)*X(153))/(JVS(460)) - X(71) = (X(71)-JVS(457)*X(147)-JVS(458)*X(148)-JVS(459)*X(152))/(JVS(456)) - X(70) = (X(70)-JVS(450)*X(129)-JVS(451)*X(138)-JVS(452)*X(146)-JVS(453)*X(147)-JVS(454)*X(148)-JVS(455)*X(150))& - &/(JVS(449)) - X(69) = (X(69)-JVS(439)*X(76)-JVS(440)*X(89)-JVS(441)*X(98)-JVS(442)*X(99)-JVS(443)*X(101)-JVS(444)*X(148)-JVS(445)& - &*X(149)-JVS(446)*X(153))/(JVS(438)) - X(68) = (X(68)-JVS(432)*X(148)-JVS(433)*X(149)-JVS(434)*X(152)-JVS(435)*X(154))/(JVS(431)) - X(67) = (X(67)-JVS(428)*X(76)-JVS(429)*X(148)-JVS(430)*X(149))/(JVS(427)) - X(66) = (X(66)-JVS(424)*X(148)-JVS(425)*X(149)-JVS(426)*X(153))/(JVS(423)) - X(65) = (X(65)-JVS(417)*X(146)-JVS(418)*X(149)-JVS(419)*X(153))/(JVS(416)) - X(64) = (X(64)-JVS(413)*X(148)-JVS(414)*X(149)-JVS(415)*X(153))/(JVS(412)) - X(63) = (X(63)-JVS(406)*X(77)-JVS(407)*X(148)-JVS(408)*X(149))/(JVS(405)) - X(62) = (X(62)-JVS(402)*X(142)-JVS(403)*X(148)-JVS(404)*X(149))/(JVS(401)) - X(61) = (X(61)-JVS(394)*X(128)-JVS(395)*X(148)-JVS(396)*X(149)-JVS(397)*X(151)-JVS(398)*X(152)-JVS(399)*X(154)& - &-JVS(400)*X(155))/(JVS(393)) - X(60) = (X(60)-JVS(391)*X(148)-JVS(392)*X(151))/(JVS(390)) - X(59) = (X(59)-JVS(388)*X(148)-JVS(389)*X(150))/(JVS(387)) - X(58) = (X(58)-JVS(380)*X(115)-JVS(381)*X(116)-JVS(382)*X(117)-JVS(383)*X(118)-JVS(384)*X(120)-JVS(385)*X(148)& - &-JVS(386)*X(151))/(JVS(379)) - X(57) = (X(57)-JVS(376)*X(98)-JVS(377)*X(101)-JVS(378)*X(153))/(JVS(375)) - X(56) = (X(56)-JVS(372)*X(105)-JVS(373)*X(148)-JVS(374)*X(149))/(JVS(371)) - X(55) = (X(55)-JVS(368)*X(134)-JVS(369)*X(148)-JVS(370)*X(149))/(JVS(367)) - X(54) = (X(54)-JVS(364)*X(66)-JVS(365)*X(148)-JVS(366)*X(149))/(JVS(363)) - X(53) = (X(53)-JVS(360)*X(108)-JVS(361)*X(148)-JVS(362)*X(149))/(JVS(359)) - X(52) = (X(52)-JVS(356)*X(132)-JVS(357)*X(148)-JVS(358)*X(149))/(JVS(355)) - X(51) = (X(51)-JVS(352)*X(142)-JVS(353)*X(148)-JVS(354)*X(155))/(JVS(351)) - X(50) = (X(50)-JVS(348)*X(64)-JVS(349)*X(148)-JVS(350)*X(149))/(JVS(347)) - X(49) = (X(49)-JVS(344)*X(95)-JVS(345)*X(148)-JVS(346)*X(149))/(JVS(343)) - X(48) = (X(48)-JVS(340)*X(145)-JVS(341)*X(148)-JVS(342)*X(149))/(JVS(339)) - X(47) = (X(47)-JVS(336)*X(148)-JVS(337)*X(149)-JVS(338)*X(155))/(JVS(335)) - X(46) = (X(46)-JVS(329)*X(141)-JVS(330)*X(148)-JVS(331)*X(150)-JVS(332)*X(152)-JVS(333)*X(153)-JVS(334)*X(155))& - &/(JVS(328)) - X(45) = (X(45)-JVS(325)*X(147)-JVS(326)*X(148)-JVS(327)*X(149))/(JVS(324)) - X(44) = (X(44)-JVS(319)*X(89)-JVS(320)*X(98)-JVS(321)*X(99)-JVS(322)*X(101)-JVS(323)*X(153))/(JVS(318)) - X(43) = (X(43)-JVS(316)*X(149)-JVS(317)*X(153))/(JVS(315)) - X(42) = (X(42)-JVS(312)*X(90)-JVS(313)*X(149)-JVS(314)*X(153))/(JVS(311)) - X(41) = (X(41)-JVS(307)*X(92)-JVS(308)*X(148)-JVS(309)*X(149))/(JVS(306)) - X(40) = (X(40)-JVS(303)*X(108)-JVS(304)*X(148)-JVS(305)*X(155))/(JVS(302)) - X(39) = (X(39)-JVS(299)*X(135)-JVS(300)*X(148)-JVS(301)*X(149))/(JVS(298)) - X(38) = (X(38)-JVS(294)*X(50)-JVS(295)*X(64)-JVS(296)*X(148)-JVS(297)*X(153))/(JVS(293)) - X(37) = (X(37)-JVS(291)*X(141)-JVS(292)*X(148))/(JVS(290)) - X(36) = (X(36)-JVS(288)*X(148)-JVS(289)*X(150))/(JVS(287)) - X(35) = (X(35)-JVS(286)*X(148))/(JVS(285)) - X(34) = (X(34)-JVS(283)*X(148))/(JVS(282)) - X(33) = (X(33)-JVS(279)*X(139)-JVS(280)*X(148)-JVS(281)*X(149))/(JVS(278)) - X(32) = (X(32)-JVS(276)*X(34)-JVS(277)*X(148))/(JVS(275)) - X(31) = (X(31)-JVS(273)*X(148))/(JVS(272)) - X(30) = (X(30)-JVS(270)*X(148))/(JVS(269)) - X(29) = (X(29)-JVS(267)*X(147)-JVS(268)*X(150))/(JVS(266)) - X(28) = (X(28)-JVS(264)*X(106)-JVS(265)*X(148))/(JVS(263)) - X(27) = (X(27)-JVS(262)*X(148))/(JVS(261)) - X(26) = (X(26)-JVS(259)*X(148))/(JVS(258)) - X(25) = (X(25)-JVS(256)*X(148))/(JVS(255)) - X(24) = (X(24)-JVS(254)*X(148))/(JVS(253)) - X(23) = (X(23)-JVS(251)*X(81)-JVS(252)*X(147))/(JVS(250)) - X(22) = (X(22)-JVS(246)*X(127)-JVS(247)*X(137)-JVS(248)*X(148)-JVS(249)*X(153))/(JVS(245)) - X(21) = (X(21)-JVS(243)*X(97)-JVS(244)*X(148))/(JVS(242)) - X(20) = (X(20)-JVS(240)*X(90)-JVS(241)*X(149))/(JVS(239)) - X(19) = (X(19)-JVS(236)*X(36)-JVS(237)*X(148)-JVS(238)*X(150))/(JVS(235)) - X(18) = (X(18)-JVS(234)*X(106))/(JVS(233)) - X(17) = (X(17)-JVS(232)*X(148))/(JVS(231)) - X(16) = (X(16)-JVS(230)*X(148))/(JVS(229)) - X(15) = (X(15)-JVS(228)*X(148))/(JVS(227)) - X(14) = (X(14)-JVS(226)*X(148))/(JVS(225)) - X(13) = (X(13)-JVS(158)*X(15)-JVS(159)*X(16)-JVS(160)*X(17)-JVS(161)*X(21)-JVS(162)*X(24)-JVS(163)*X(25)-JVS(164)& - &*X(27)-JVS(165)*X(28)-JVS(166)*X(30)-JVS(167)*X(31)-JVS(168)*X(33)-JVS(169)*X(34)-JVS(170)*X(37)-JVS(171)*X(40)& - &-JVS(172)*X(41)-JVS(173)*X(46)-JVS(174)*X(47)-JVS(175)*X(48)-JVS(176)*X(51)-JVS(177)*X(52)-JVS(178)*X(53)& - &-JVS(179)*X(54)-JVS(180)*X(56)-JVS(181)*X(58)-JVS(182)*X(59)-JVS(183)*X(60)-JVS(184)*X(61)-JVS(185)*X(62)& - &-JVS(186)*X(63)-JVS(187)*X(68)-JVS(188)*X(71)-JVS(189)*X(72)-JVS(190)*X(75)-JVS(191)*X(78)-JVS(192)*X(80)& - &-JVS(193)*X(83)-JVS(194)*X(84)-JVS(195)*X(85)-JVS(196)*X(87)-JVS(197)*X(88)-JVS(198)*X(89)-JVS(199)*X(94)& - &-JVS(200)*X(97)-JVS(201)*X(98)-JVS(202)*X(103)-JVS(203)*X(104)-JVS(204)*X(107)-JVS(205)*X(109)-JVS(206)*X(110)& - &-JVS(207)*X(114)-JVS(208)*X(115)-JVS(209)*X(116)-JVS(210)*X(117)-JVS(211)*X(118)-JVS(212)*X(120)-JVS(213)& - &*X(122)-JVS(214)*X(123)-JVS(215)*X(124)-JVS(216)*X(128)-JVS(217)*X(129)-JVS(218)*X(136)-JVS(219)*X(137)& - &-JVS(220)*X(138)-JVS(221)*X(143)-JVS(222)*X(144)-JVS(223)*X(146)-JVS(224)*X(148))/(JVS(157)) - X(12) = (X(12)-JVS(127)*X(64)-JVS(128)*X(65)-JVS(129)*X(66)-JVS(130)*X(76)-JVS(131)*X(77)-JVS(132)*X(81)-JVS(133)& - &*X(86)-JVS(134)*X(90)-JVS(135)*X(92)-JVS(136)*X(95)-JVS(137)*X(96)-JVS(138)*X(99)-JVS(139)*X(100)-JVS(140)& - &*X(101)-JVS(141)*X(105)-JVS(142)*X(108)-JVS(143)*X(112)-JVS(144)*X(121)-JVS(145)*X(125)-JVS(146)*X(127)& - &-JVS(147)*X(130)-JVS(148)*X(131)-JVS(149)*X(132)-JVS(150)*X(134)-JVS(151)*X(139)-JVS(152)*X(140)-JVS(153)& - &*X(141)-JVS(154)*X(152)-JVS(155)*X(153)-JVS(156)*X(155))/(JVS(126)) - X(11) = (X(11)-JVS(97)*X(64)-JVS(98)*X(65)-JVS(99)*X(66)-JVS(100)*X(76)-JVS(101)*X(77)-JVS(102)*X(81)-JVS(103)*X(90)& - &-JVS(104)*X(92)-JVS(105)*X(95)-JVS(106)*X(96)-JVS(107)*X(99)-JVS(108)*X(100)-JVS(109)*X(101)-JVS(110)*X(105)& - &-JVS(111)*X(108)-JVS(112)*X(112)-JVS(113)*X(121)-JVS(114)*X(125)-JVS(115)*X(127)-JVS(116)*X(130)-JVS(117)& - &*X(131)-JVS(118)*X(132)-JVS(119)*X(134)-JVS(120)*X(139)-JVS(121)*X(140)-JVS(122)*X(141)-JVS(123)*X(149)& - &-JVS(124)*X(152)-JVS(125)*X(155))/(JVS(96)) - X(10) = (X(10)-JVS(84)*X(105)-JVS(85)*X(108)-JVS(86)*X(125)-JVS(87)*X(127)-JVS(88)*X(131)-JVS(89)*X(132)-JVS(90)& - &*X(134)-JVS(91)*X(139)-JVS(92)*X(140)-JVS(93)*X(141)-JVS(94)*X(152)-JVS(95)*X(155))/(JVS(83)) - X(9) = (X(9)-JVS(82)*X(148))/(JVS(81)) - X(8) = (X(8)-JVS(80)*X(148))/(JVS(79)) - X(7) = (X(7)-JVS(65)*X(8)-JVS(66)*X(9)-JVS(67)*X(25)-JVS(68)*X(30)-JVS(69)*X(34)-JVS(70)*X(114)-JVS(71)*X(115)-JVS(72)& - &*X(116)-JVS(73)*X(117)-JVS(74)*X(118)-JVS(75)*X(120)-JVS(76)*X(148)-JVS(77)*X(150)-JVS(78)*X(151))/(JVS(64)) - X(6) = (X(6)-JVS(50)*X(8)-JVS(51)*X(9)-JVS(52)*X(25)-JVS(53)*X(30)-JVS(54)*X(34)-JVS(55)*X(114)-JVS(56)*X(115)-JVS(57)& - &*X(116)-JVS(58)*X(117)-JVS(59)*X(118)-JVS(60)*X(120)-JVS(61)*X(148)-JVS(62)*X(150)-JVS(63)*X(151))/(JVS(49)) - X(5) = (X(5)-JVS(36)*X(8)-JVS(37)*X(9)-JVS(38)*X(25)-JVS(39)*X(30)-JVS(40)*X(34)-JVS(41)*X(114)-JVS(42)*X(115)-JVS(43)& - &*X(116)-JVS(44)*X(117)-JVS(45)*X(118)-JVS(46)*X(120)-JVS(47)*X(148)-JVS(48)*X(151))/(JVS(35)) - X(4) = (X(4)-JVS(22)*X(8)-JVS(23)*X(9)-JVS(24)*X(25)-JVS(25)*X(30)-JVS(26)*X(34)-JVS(27)*X(114)-JVS(28)*X(115)-JVS(29)& - &*X(116)-JVS(30)*X(117)-JVS(31)*X(118)-JVS(32)*X(120)-JVS(33)*X(148)-JVS(34)*X(151))/(JVS(21)) - X(3) = (X(3)-JVS(8)*X(8)-JVS(9)*X(9)-JVS(10)*X(25)-JVS(11)*X(30)-JVS(12)*X(34)-JVS(13)*X(114)-JVS(14)*X(115)-JVS(15)& - &*X(116)-JVS(16)*X(117)-JVS(17)*X(118)-JVS(18)*X(120)-JVS(19)*X(148)-JVS(20)*X(151))/(JVS(7)) - X(2) = (X(2)-JVS(5)*X(19)-JVS(6)*X(148))/(JVS(4)) - X(1) = (X(1)-JVS(2)*X(43)-JVS(3)*X(149))/(JVS(1)) - -END SUBROUTINE KppSolve - -! End of KppSolve function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! KppSolveTR - sparse, transposed back substitution -! Arguments : -! JVS - sparse Jacobian of variables -! X - Vector for variables -! XX - Vector for output variables -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE KppSolveTR ( JVS, X, XX ) - -! JVS - sparse Jacobian of variables - REAL(kind=dp) :: JVS(LU_NONZERO) -! X - Vector for variables - REAL(kind=dp) :: X(NVAR) -! XX - Vector for output variables - REAL(kind=dp) :: XX(NVAR) - - XX(1) = X(1)/JVS(1) - XX(2) = X(2)/JVS(4) - XX(3) = X(3)/JVS(7) - XX(4) = X(4)/JVS(21) - XX(5) = X(5)/JVS(35) - XX(6) = X(6)/JVS(49) - XX(7) = X(7)/JVS(64) - XX(8) = (X(8)-JVS(8)*XX(3)-JVS(22)*XX(4)-JVS(36)*XX(5)-JVS(50)*XX(6)-JVS(65)*XX(7))/(JVS(79)) - XX(9) = (X(9)-JVS(9)*XX(3)-JVS(23)*XX(4)-JVS(37)*XX(5)-JVS(51)*XX(6)-JVS(66)*XX(7))/(JVS(81)) - XX(10) = X(10)/JVS(83) - XX(11) = X(11)/JVS(96) - XX(12) = X(12)/JVS(126) - XX(13) = X(13)/JVS(157) - XX(14) = X(14)/JVS(225) - XX(15) = (X(15)-JVS(158)*XX(13))/(JVS(227)) - XX(16) = (X(16)-JVS(159)*XX(13))/(JVS(229)) - XX(17) = (X(17)-JVS(160)*XX(13))/(JVS(231)) - XX(18) = X(18)/JVS(233) - XX(19) = (X(19)-JVS(5)*XX(2))/(JVS(235)) - XX(20) = X(20)/JVS(239) - XX(21) = (X(21)-JVS(161)*XX(13))/(JVS(242)) - XX(22) = X(22)/JVS(245) - XX(23) = X(23)/JVS(250) - XX(24) = (X(24)-JVS(162)*XX(13))/(JVS(253)) - XX(25) = (X(25)-JVS(10)*XX(3)-JVS(24)*XX(4)-JVS(38)*XX(5)-JVS(52)*XX(6)-JVS(67)*XX(7)-JVS(163)*XX(13))/(JVS(255)) - XX(26) = X(26)/JVS(258) - XX(27) = (X(27)-JVS(164)*XX(13))/(JVS(261)) - XX(28) = (X(28)-JVS(165)*XX(13))/(JVS(263)) - XX(29) = X(29)/JVS(266) - XX(30) = (X(30)-JVS(11)*XX(3)-JVS(25)*XX(4)-JVS(39)*XX(5)-JVS(53)*XX(6)-JVS(68)*XX(7)-JVS(166)*XX(13))/(JVS(269)) - XX(31) = (X(31)-JVS(167)*XX(13))/(JVS(272)) - XX(32) = X(32)/JVS(275) - XX(33) = (X(33)-JVS(168)*XX(13))/(JVS(278)) - XX(34) = (X(34)-JVS(12)*XX(3)-JVS(26)*XX(4)-JVS(40)*XX(5)-JVS(54)*XX(6)-JVS(69)*XX(7)-JVS(169)*XX(13)-JVS(276)*XX(32))& - &/(JVS(282)) - XX(35) = X(35)/JVS(285) - XX(36) = (X(36)-JVS(236)*XX(19))/(JVS(287)) - XX(37) = (X(37)-JVS(170)*XX(13))/(JVS(290)) - XX(38) = X(38)/JVS(293) - XX(39) = X(39)/JVS(298) - XX(40) = (X(40)-JVS(171)*XX(13))/(JVS(302)) - XX(41) = (X(41)-JVS(172)*XX(13))/(JVS(306)) - XX(42) = X(42)/JVS(311) - XX(43) = (X(43)-JVS(2)*XX(1))/(JVS(315)) - XX(44) = X(44)/JVS(318) - XX(45) = X(45)/JVS(324) - XX(46) = (X(46)-JVS(173)*XX(13))/(JVS(328)) - XX(47) = (X(47)-JVS(174)*XX(13))/(JVS(335)) - XX(48) = (X(48)-JVS(175)*XX(13))/(JVS(339)) - XX(49) = X(49)/JVS(343) - XX(50) = (X(50)-JVS(294)*XX(38))/(JVS(347)) - XX(51) = (X(51)-JVS(176)*XX(13))/(JVS(351)) - XX(52) = (X(52)-JVS(177)*XX(13))/(JVS(355)) - XX(53) = (X(53)-JVS(178)*XX(13))/(JVS(359)) - XX(54) = (X(54)-JVS(179)*XX(13))/(JVS(363)) - XX(55) = X(55)/JVS(367) - XX(56) = (X(56)-JVS(180)*XX(13))/(JVS(371)) - XX(57) = X(57)/JVS(375) - XX(58) = (X(58)-JVS(181)*XX(13))/(JVS(379)) - XX(59) = (X(59)-JVS(182)*XX(13))/(JVS(387)) - XX(60) = (X(60)-JVS(183)*XX(13))/(JVS(390)) - XX(61) = (X(61)-JVS(184)*XX(13))/(JVS(393)) - XX(62) = (X(62)-JVS(185)*XX(13))/(JVS(401)) - XX(63) = (X(63)-JVS(186)*XX(13))/(JVS(405)) - XX(64) = (X(64)-JVS(97)*XX(11)-JVS(127)*XX(12)-JVS(295)*XX(38)-JVS(348)*XX(50))/(JVS(412)) - XX(65) = (X(65)-JVS(98)*XX(11)-JVS(128)*XX(12))/(JVS(416)) - XX(66) = (X(66)-JVS(99)*XX(11)-JVS(129)*XX(12)-JVS(364)*XX(54))/(JVS(423)) - XX(67) = X(67)/JVS(427) - XX(68) = (X(68)-JVS(187)*XX(13))/(JVS(431)) - XX(69) = X(69)/JVS(438) - XX(70) = X(70)/JVS(449) - XX(71) = (X(71)-JVS(188)*XX(13))/(JVS(456)) - XX(72) = (X(72)-JVS(189)*XX(13))/(JVS(460)) - XX(73) = X(73)/JVS(468) - XX(74) = X(74)/JVS(475) - XX(75) = (X(75)-JVS(190)*XX(13))/(JVS(479)) - XX(76) = (X(76)-JVS(100)*XX(11)-JVS(130)*XX(12)-JVS(428)*XX(67)-JVS(439)*XX(69))/(JVS(485)) - XX(77) = (X(77)-JVS(101)*XX(11)-JVS(131)*XX(12)-JVS(406)*XX(63))/(JVS(491)) - XX(78) = (X(78)-JVS(191)*XX(13))/(JVS(495)) - XX(79) = X(79)/JVS(501) - XX(80) = (X(80)-JVS(192)*XX(13))/(JVS(506)) - XX(81) = (X(81)-JVS(102)*XX(11)-JVS(132)*XX(12)-JVS(251)*XX(23))/(JVS(516)) - XX(82) = X(82)/JVS(521) - XX(83) = (X(83)-JVS(193)*XX(13))/(JVS(527)) - XX(84) = (X(84)-JVS(194)*XX(13))/(JVS(531)) - XX(85) = (X(85)-JVS(195)*XX(13))/(JVS(535)) - XX(86) = (X(86)-JVS(133)*XX(12))/(JVS(540)) - XX(87) = (X(87)-JVS(196)*XX(13)-JVS(522)*XX(82))/(JVS(544)) - XX(88) = (X(88)-JVS(197)*XX(13))/(JVS(549)) - XX(89) = (X(89)-JVS(198)*XX(13)-JVS(319)*XX(44)-JVS(440)*XX(69))/(JVS(553)) - XX(90) = (X(90)-JVS(103)*XX(11)-JVS(134)*XX(12)-JVS(240)*XX(20)-JVS(312)*XX(42))/(JVS(558)) - XX(91) = X(91)/JVS(565) - XX(92) = (X(92)-JVS(104)*XX(11)-JVS(135)*XX(12)-JVS(307)*XX(41)-JVS(469)*XX(73))/(JVS(577)) - XX(93) = (X(93)-JVS(496)*XX(78))/(JVS(583)) - XX(94) = (X(94)-JVS(199)*XX(13)-JVS(497)*XX(78))/(JVS(587)) - XX(95) = (X(95)-JVS(105)*XX(11)-JVS(136)*XX(12)-JVS(344)*XX(49))/(JVS(595)) - XX(96) = (X(96)-JVS(106)*XX(11)-JVS(137)*XX(12)-JVS(476)*XX(74))/(JVS(601)) - XX(97) = (X(97)-JVS(200)*XX(13)-JVS(243)*XX(21))/(JVS(607)) - XX(98) = (X(98)-JVS(201)*XX(13)-JVS(320)*XX(44)-JVS(376)*XX(57)-JVS(441)*XX(69)-JVS(566)*XX(91))/(JVS(613)) - XX(99) = (X(99)-JVS(107)*XX(11)-JVS(138)*XX(12)-JVS(321)*XX(44)-JVS(442)*XX(69)-JVS(554)*XX(89)-JVS(567)*XX(91))& - &/(JVS(619)) - XX(100) = (X(100)-JVS(108)*XX(11)-JVS(139)*XX(12))/(JVS(628)) - XX(101) = (X(101)-JVS(109)*XX(11)-JVS(140)*XX(12)-JVS(322)*XX(44)-JVS(377)*XX(57)-JVS(443)*XX(69)-JVS(568)*XX(91)& - &-JVS(614)*XX(98)-JVS(629)*XX(100))/(JVS(636)) - XX(102) = X(102)/JVS(645) - XX(103) = (X(103)-JVS(202)*XX(13))/(JVS(653)) - XX(104) = (X(104)-JVS(203)*XX(13)-JVS(654)*XX(103))/(JVS(669)) - XX(105) = (X(105)-JVS(84)*XX(10)-JVS(110)*XX(11)-JVS(141)*XX(12)-JVS(372)*XX(56))/(JVS(675)) - XX(106) = (X(106)-JVS(234)*XX(18)-JVS(264)*XX(28)-JVS(523)*XX(82)-JVS(545)*XX(87))/(JVS(684)) - XX(107) = (X(107)-JVS(204)*XX(13))/(JVS(690)) - XX(108) = (X(108)-JVS(85)*XX(10)-JVS(111)*XX(11)-JVS(142)*XX(12)-JVS(303)*XX(40)-JVS(360)*XX(53)-JVS(691)*XX(107))& - &/(JVS(709)) - XX(109) = (X(109)-JVS(205)*XX(13))/(JVS(728)) - XX(110) = (X(110)-JVS(206)*XX(13)-JVS(569)*XX(91)-JVS(729)*XX(109))/(JVS(742)) - XX(111) = (X(111)-JVS(730)*XX(109))/(JVS(750)) - XX(112) = (X(112)-JVS(112)*XX(11)-JVS(143)*XX(12))/(JVS(760)) - XX(113) = (X(113)-JVS(502)*XX(79))/(JVS(769)) - XX(114) = (X(114)-JVS(13)*XX(3)-JVS(27)*XX(4)-JVS(41)*XX(5)-JVS(55)*XX(6)-JVS(70)*XX(7)-JVS(207)*XX(13)-JVS(655)& - &*XX(103))/(JVS(777)) - XX(115) = (X(115)-JVS(14)*XX(3)-JVS(28)*XX(4)-JVS(42)*XX(5)-JVS(56)*XX(6)-JVS(71)*XX(7)-JVS(208)*XX(13)-JVS(380)& - &*XX(58)-JVS(656)*XX(103)-JVS(751)*XX(111))/(JVS(781)) - XX(116) = (X(116)-JVS(15)*XX(3)-JVS(29)*XX(4)-JVS(43)*XX(5)-JVS(57)*XX(6)-JVS(72)*XX(7)-JVS(209)*XX(13)-JVS(381)& - &*XX(58)-JVS(657)*XX(103)-JVS(752)*XX(111))/(JVS(785)) - XX(117) = (X(117)-JVS(16)*XX(3)-JVS(30)*XX(4)-JVS(44)*XX(5)-JVS(58)*XX(6)-JVS(73)*XX(7)-JVS(210)*XX(13)-JVS(382)& - &*XX(58)-JVS(658)*XX(103)-JVS(753)*XX(111))/(JVS(789)) - XX(118) = (X(118)-JVS(17)*XX(3)-JVS(31)*XX(4)-JVS(45)*XX(5)-JVS(59)*XX(6)-JVS(74)*XX(7)-JVS(211)*XX(13)-JVS(383)& - &*XX(58)-JVS(659)*XX(103)-JVS(754)*XX(111))/(JVS(793)) - XX(119) = X(119)/JVS(801) - XX(120) = (X(120)-JVS(18)*XX(3)-JVS(32)*XX(4)-JVS(46)*XX(5)-JVS(60)*XX(6)-JVS(75)*XX(7)-JVS(212)*XX(13)-JVS(384)& - &*XX(58)-JVS(660)*XX(103)-JVS(755)*XX(111))/(JVS(811)) - XX(121) = (X(121)-JVS(113)*XX(11)-JVS(144)*XX(12)-JVS(498)*XX(78)-JVS(584)*XX(93)-JVS(588)*XX(94)-JVS(596)*XX(95)& - &-JVS(710)*XX(108))/(JVS(822)) - XX(122) = (X(122)-JVS(213)*XX(13))/(JVS(847)) - XX(123) = (X(123)-JVS(214)*XX(13))/(JVS(883)) - XX(124) = (X(124)-JVS(215)*XX(13)-JVS(731)*XX(109)-JVS(884)*XX(123))/(JVS(917)) - XX(125) = (X(125)-JVS(86)*XX(10)-JVS(114)*XX(11)-JVS(145)*XX(12)-JVS(528)*XX(83)-JVS(692)*XX(107)-JVS(770)*XX(113)& - &-JVS(848)*XX(122)-JVS(885)*XX(123)-JVS(918)*XX(124))/(JVS(935)) - XX(126) = (X(126)-JVS(849)*XX(122)-JVS(886)*XX(123))/(JVS(948)) - XX(127) = (X(127)-JVS(87)*XX(10)-JVS(115)*XX(11)-JVS(146)*XX(12)-JVS(246)*XX(22)-JVS(550)*XX(88)-JVS(693)*XX(107)& - &-JVS(850)*XX(122)-JVS(887)*XX(123)-JVS(919)*XX(124)-JVS(949)*XX(126))/(JVS(958)) - XX(128) = (X(128)-JVS(216)*XX(13)-JVS(394)*XX(61)-JVS(546)*XX(87)-JVS(602)*XX(96)-JVS(661)*XX(103)-JVS(685)*XX(106)& - &-JVS(802)*XX(119)-JVS(888)*XX(123))/(JVS(966)) - XX(129) = (X(129)-JVS(217)*XX(13)-JVS(450)*XX(70)-JVS(889)*XX(123))/(JVS(985)) - XX(130) = (X(130)-JVS(116)*XX(11)-JVS(147)*XX(12)-JVS(732)*XX(109)-JVS(890)*XX(123))/(JVS(999)) - XX(131) = (X(131)-JVS(88)*XX(10)-JVS(117)*XX(11)-JVS(148)*XX(12)-JVS(480)*XX(75)-JVS(507)*XX(80)-JVS(694)*XX(107)& - &-JVS(851)*XX(122))/(JVS(1015)) - XX(132) = (X(132)-JVS(89)*XX(10)-JVS(118)*XX(11)-JVS(149)*XX(12)-JVS(356)*XX(52)-JVS(508)*XX(80)-JVS(695)*XX(107))& - &/(JVS(1028)) - XX(133) = (X(133)-JVS(891)*XX(123)-JVS(950)*XX(126)-JVS(959)*XX(127)-JVS(1029)*XX(132))/(JVS(1046)) - XX(134) = (X(134)-JVS(90)*XX(10)-JVS(119)*XX(11)-JVS(150)*XX(12)-JVS(368)*XX(55)-JVS(696)*XX(107))/(JVS(1065)) - XX(135) = (X(135)-JVS(299)*XX(39)-JVS(524)*XX(82)-JVS(686)*XX(106)-JVS(892)*XX(123))/(JVS(1078)) - XX(136) = (X(136)-JVS(218)*XX(13))/(JVS(1094)) - XX(137) = (X(137)-JVS(219)*XX(13)-JVS(247)*XX(22)-JVS(852)*XX(122)-JVS(893)*XX(123)-JVS(920)*XX(124)-JVS(986)*XX(129)& - &-JVS(1066)*XX(134)-JVS(1095)*XX(136))/(JVS(1114)) - XX(138) = (X(138)-JVS(220)*XX(13)-JVS(451)*XX(70)-JVS(894)*XX(123))/(JVS(1143)) - XX(139) = (X(139)-JVS(91)*XX(10)-JVS(120)*XX(11)-JVS(151)*XX(12)-JVS(279)*XX(33)-JVS(697)*XX(107)-JVS(733)*XX(109)& - &-JVS(895)*XX(123)-JVS(921)*XX(124)-JVS(1096)*XX(136)-JVS(1144)*XX(138))/(JVS(1165)) - XX(140) = (X(140)-JVS(92)*XX(10)-JVS(121)*XX(11)-JVS(152)*XX(12)-JVS(536)*XX(85)-JVS(608)*XX(97)-JVS(698)*XX(107)& - &-JVS(922)*XX(124)-JVS(1097)*XX(136)-JVS(1115)*XX(137)-JVS(1145)*XX(138)-JVS(1166)*XX(139))/(JVS(1176)) - XX(141) = (X(141)-JVS(93)*XX(10)-JVS(122)*XX(11)-JVS(153)*XX(12)-JVS(291)*XX(37)-JVS(329)*XX(46)-JVS(461)*XX(72)& - &-JVS(570)*XX(91)-JVS(609)*XX(97)-JVS(699)*XX(107)-JVS(734)*XX(109)-JVS(803)*XX(119)-JVS(896)*XX(123)-JVS(923)& - &*XX(124)-JVS(1000)*XX(130)-JVS(1098)*XX(136)-JVS(1116)*XX(137)-JVS(1146)*XX(138)-JVS(1167)*XX(139))& - &/(JVS(1185)) - XX(142) = (X(142)-JVS(352)*XX(51)-JVS(402)*XX(62)-JVS(610)*XX(97)-JVS(700)*XX(107)-JVS(743)*XX(110)-JVS(804)*XX(119)& - &-JVS(897)*XX(123)-JVS(924)*XX(124)-JVS(1001)*XX(130)-JVS(1147)*XX(138)-JVS(1168)*XX(139))/(JVS(1194)) - XX(143) = (X(143)-JVS(221)*XX(13)-JVS(662)*XX(103)-JVS(898)*XX(123)-JVS(1148)*XX(138))/(JVS(1207)) - XX(144) = (X(144)-JVS(222)*XX(13)-JVS(663)*XX(103)-JVS(899)*XX(123)-JVS(967)*XX(128)-JVS(987)*XX(129)-JVS(1079)& - &*XX(135)-JVS(1099)*XX(136)-JVS(1149)*XX(138))/(JVS(1220)) - XX(145) = (X(145)-JVS(340)*XX(48)-JVS(701)*XX(107)-JVS(900)*XX(123)-JVS(925)*XX(124)-JVS(1100)*XX(136)-JVS(1117)& - &*XX(137)-JVS(1150)*XX(138))/(JVS(1231)) - XX(146) = (X(146)-JVS(223)*XX(13)-JVS(417)*XX(65)-JVS(452)*XX(70)-JVS(525)*XX(82)-JVS(664)*XX(103)-JVS(687)*XX(106)& - &-JVS(901)*XX(123)-JVS(1080)*XX(135))/(JVS(1293)) - XX(147) = (X(147)-JVS(252)*XX(23)-JVS(267)*XX(29)-JVS(325)*XX(45)-JVS(453)*XX(70)-JVS(457)*XX(71)-JVS(470)*XX(73)& - &-JVS(517)*XX(81)-JVS(532)*XX(84)-JVS(578)*XX(92)-JVS(630)*XX(100)-JVS(646)*XX(102)-JVS(735)*XX(109)-JVS(902)& - &*XX(123)-JVS(1002)*XX(130)-JVS(1081)*XX(135)-JVS(1101)*XX(136)-JVS(1151)*XX(138)-JVS(1294)*XX(146))& - &/(JVS(1361)) - XX(148) = (X(148)-JVS(6)*XX(2)-JVS(19)*XX(3)-JVS(33)*XX(4)-JVS(47)*XX(5)-JVS(61)*XX(6)-JVS(76)*XX(7)-JVS(80)*XX(8)& - &-JVS(82)*XX(9)-JVS(224)*XX(13)-JVS(226)*XX(14)-JVS(228)*XX(15)-JVS(230)*XX(16)-JVS(232)*XX(17)-JVS(237)& - &*XX(19)-JVS(244)*XX(21)-JVS(248)*XX(22)-JVS(254)*XX(24)-JVS(256)*XX(25)-JVS(259)*XX(26)-JVS(262)*XX(27)& - &-JVS(265)*XX(28)-JVS(270)*XX(30)-JVS(273)*XX(31)-JVS(277)*XX(32)-JVS(280)*XX(33)-JVS(283)*XX(34)-JVS(286)& - &*XX(35)-JVS(288)*XX(36)-JVS(292)*XX(37)-JVS(296)*XX(38)-JVS(300)*XX(39)-JVS(304)*XX(40)-JVS(308)*XX(41)& - &-JVS(326)*XX(45)-JVS(330)*XX(46)-JVS(336)*XX(47)-JVS(341)*XX(48)-JVS(345)*XX(49)-JVS(349)*XX(50)-JVS(353)& - &*XX(51)-JVS(357)*XX(52)-JVS(361)*XX(53)-JVS(365)*XX(54)-JVS(369)*XX(55)-JVS(373)*XX(56)-JVS(385)*XX(58)& - &-JVS(388)*XX(59)-JVS(391)*XX(60)-JVS(395)*XX(61)-JVS(403)*XX(62)-JVS(407)*XX(63)-JVS(413)*XX(64)-JVS(424)& - &*XX(66)-JVS(429)*XX(67)-JVS(432)*XX(68)-JVS(444)*XX(69)-JVS(454)*XX(70)-JVS(458)*XX(71)-JVS(462)*XX(72)& - &-JVS(471)*XX(73)-JVS(477)*XX(74)-JVS(481)*XX(75)-JVS(486)*XX(76)-JVS(492)*XX(77)-JVS(499)*XX(78)-JVS(503)& - &*XX(79)-JVS(509)*XX(80)-JVS(518)*XX(81)-JVS(526)*XX(82)-JVS(529)*XX(83)-JVS(533)*XX(84)-JVS(537)*XX(85)& - &-JVS(541)*XX(86)-JVS(547)*XX(87)-JVS(551)*XX(88)-JVS(555)*XX(89)-JVS(559)*XX(90)-JVS(571)*XX(91)-JVS(579)& - &*XX(92)-JVS(585)*XX(93)-JVS(589)*XX(94)-JVS(597)*XX(95)-JVS(603)*XX(96)-JVS(611)*XX(97)-JVS(615)*XX(98)& - &-JVS(620)*XX(99)-JVS(631)*XX(100)-JVS(637)*XX(101)-JVS(647)*XX(102)-JVS(665)*XX(103)-JVS(670)*XX(104)& - &-JVS(676)*XX(105)-JVS(688)*XX(106)-JVS(702)*XX(107)-JVS(711)*XX(108)-JVS(736)*XX(109)-JVS(744)*XX(110)& - &-JVS(761)*XX(112)-JVS(771)*XX(113)-JVS(778)*XX(114)-JVS(782)*XX(115)-JVS(786)*XX(116)-JVS(790)*XX(117)& - &-JVS(794)*XX(118)-JVS(805)*XX(119)-JVS(812)*XX(120)-JVS(823)*XX(121)-JVS(853)*XX(122)-JVS(903)*XX(123)& - &-JVS(926)*XX(124)-JVS(936)*XX(125)-JVS(951)*XX(126)-JVS(960)*XX(127)-JVS(968)*XX(128)-JVS(988)*XX(129)& - &-JVS(1003)*XX(130)-JVS(1016)*XX(131)-JVS(1030)*XX(132)-JVS(1047)*XX(133)-JVS(1067)*XX(134)-JVS(1082)*XX(135)& - &-JVS(1102)*XX(136)-JVS(1118)*XX(137)-JVS(1152)*XX(138)-JVS(1169)*XX(139)-JVS(1177)*XX(140)-JVS(1186)*XX(141)& - &-JVS(1195)*XX(142)-JVS(1208)*XX(143)-JVS(1221)*XX(144)-JVS(1232)*XX(145)-JVS(1295)*XX(146)-JVS(1362)*XX(147))& - &/(JVS(1487)) - XX(149) = (X(149)-JVS(3)*XX(1)-JVS(123)*XX(11)-JVS(241)*XX(20)-JVS(281)*XX(33)-JVS(301)*XX(39)-JVS(309)*XX(41)& - &-JVS(313)*XX(42)-JVS(316)*XX(43)-JVS(327)*XX(45)-JVS(337)*XX(47)-JVS(342)*XX(48)-JVS(346)*XX(49)-JVS(350)& - &*XX(50)-JVS(358)*XX(52)-JVS(362)*XX(53)-JVS(366)*XX(54)-JVS(370)*XX(55)-JVS(374)*XX(56)-JVS(396)*XX(61)& - &-JVS(404)*XX(62)-JVS(408)*XX(63)-JVS(414)*XX(64)-JVS(418)*XX(65)-JVS(425)*XX(66)-JVS(430)*XX(67)-JVS(433)& - &*XX(68)-JVS(445)*XX(69)-JVS(472)*XX(73)-JVS(478)*XX(74)-JVS(482)*XX(75)-JVS(487)*XX(76)-JVS(493)*XX(77)& - &-JVS(504)*XX(79)-JVS(519)*XX(81)-JVS(530)*XX(83)-JVS(552)*XX(88)-JVS(556)*XX(89)-JVS(560)*XX(90)-JVS(572)& - &*XX(91)-JVS(580)*XX(92)-JVS(590)*XX(94)-JVS(598)*XX(95)-JVS(604)*XX(96)-JVS(612)*XX(97)-JVS(616)*XX(98)& - &-JVS(621)*XX(99)-JVS(632)*XX(100)-JVS(638)*XX(101)-JVS(648)*XX(102)-JVS(666)*XX(103)-JVS(677)*XX(105)& - &-JVS(712)*XX(108)-JVS(737)*XX(109)-JVS(756)*XX(111)-JVS(762)*XX(112)-JVS(772)*XX(113)-JVS(806)*XX(119)& - &-JVS(824)*XX(121)-JVS(854)*XX(122)-JVS(904)*XX(123)-JVS(927)*XX(124)-JVS(937)*XX(125)-JVS(952)*XX(126)& - &-JVS(961)*XX(127)-JVS(989)*XX(129)-JVS(1004)*XX(130)-JVS(1017)*XX(131)-JVS(1031)*XX(132)-JVS(1048)*XX(133)& - &-JVS(1068)*XX(134)-JVS(1083)*XX(135)-JVS(1103)*XX(136)-JVS(1119)*XX(137)-JVS(1153)*XX(138)-JVS(1170)*XX(139)& - &-JVS(1178)*XX(140)-JVS(1187)*XX(141)-JVS(1196)*XX(142)-JVS(1209)*XX(143)-JVS(1222)*XX(144)-JVS(1233)*XX(145)& - &-JVS(1296)*XX(146)-JVS(1363)*XX(147)-JVS(1488)*XX(148))/(JVS(1603)) - XX(150) = (X(150)-JVS(62)*XX(6)-JVS(77)*XX(7)-JVS(238)*XX(19)-JVS(268)*XX(29)-JVS(289)*XX(36)-JVS(331)*XX(46)-JVS(389)& - &*XX(59)-JVS(455)*XX(70)-JVS(542)*XX(86)-JVS(671)*XX(104)-JVS(738)*XX(109)-JVS(745)*XX(110)-JVS(763)*XX(112)& - &-JVS(773)*XX(113)-JVS(779)*XX(114)-JVS(783)*XX(115)-JVS(787)*XX(116)-JVS(791)*XX(117)-JVS(795)*XX(118)& - &-JVS(807)*XX(119)-JVS(813)*XX(120)-JVS(825)*XX(121)-JVS(855)*XX(122)-JVS(905)*XX(123)-JVS(928)*XX(124)& - &-JVS(938)*XX(125)-JVS(953)*XX(126)-JVS(962)*XX(127)-JVS(969)*XX(128)-JVS(990)*XX(129)-JVS(1005)*XX(130)& - &-JVS(1018)*XX(131)-JVS(1032)*XX(132)-JVS(1049)*XX(133)-JVS(1069)*XX(134)-JVS(1084)*XX(135)-JVS(1104)*XX(136)& - &-JVS(1120)*XX(137)-JVS(1154)*XX(138)-JVS(1171)*XX(139)-JVS(1179)*XX(140)-JVS(1188)*XX(141)-JVS(1197)*XX(142)& - &-JVS(1210)*XX(143)-JVS(1223)*XX(144)-JVS(1234)*XX(145)-JVS(1297)*XX(146)-JVS(1364)*XX(147)-JVS(1489)*XX(148)& - &-JVS(1604)*XX(149))/(JVS(1643)) - XX(151) = (X(151)-JVS(20)*XX(3)-JVS(34)*XX(4)-JVS(48)*XX(5)-JVS(63)*XX(6)-JVS(78)*XX(7)-JVS(386)*XX(58)-JVS(392)& - &*XX(60)-JVS(397)*XX(61)-JVS(473)*XX(73)-JVS(548)*XX(87)-JVS(561)*XX(90)-JVS(581)*XX(92)-JVS(667)*XX(103)& - &-JVS(672)*XX(104)-JVS(689)*XX(106)-JVS(757)*XX(111)-JVS(764)*XX(112)-JVS(774)*XX(113)-JVS(780)*XX(114)& - &-JVS(784)*XX(115)-JVS(788)*XX(116)-JVS(792)*XX(117)-JVS(796)*XX(118)-JVS(814)*XX(120)-JVS(826)*XX(121)& - &-JVS(856)*XX(122)-JVS(906)*XX(123)-JVS(929)*XX(124)-JVS(939)*XX(125)-JVS(954)*XX(126)-JVS(970)*XX(128)& - &-JVS(991)*XX(129)-JVS(1019)*XX(131)-JVS(1033)*XX(132)-JVS(1050)*XX(133)-JVS(1070)*XX(134)-JVS(1085)*XX(135)& - &-JVS(1105)*XX(136)-JVS(1121)*XX(137)-JVS(1155)*XX(138)-JVS(1180)*XX(140)-JVS(1189)*XX(141)-JVS(1198)*XX(142)& - &-JVS(1211)*XX(143)-JVS(1224)*XX(144)-JVS(1235)*XX(145)-JVS(1298)*XX(146)-JVS(1365)*XX(147)-JVS(1490)*XX(148)& - &-JVS(1605)*XX(149)-JVS(1644)*XX(150))/(JVS(1669)) - XX(152) = (X(152)-JVS(94)*XX(10)-JVS(124)*XX(11)-JVS(154)*XX(12)-JVS(332)*XX(46)-JVS(398)*XX(61)-JVS(434)*XX(68)& - &-JVS(459)*XX(71)-JVS(739)*XX(109)-JVS(746)*XX(110)-JVS(808)*XX(119)-JVS(907)*XX(123)-JVS(930)*XX(124)& - &-JVS(1006)*XX(130)-JVS(1106)*XX(136)-JVS(1156)*XX(138)-JVS(1172)*XX(139)-JVS(1181)*XX(140)-JVS(1190)*XX(141)& - &-JVS(1199)*XX(142)-JVS(1212)*XX(143)-JVS(1225)*XX(144)-JVS(1236)*XX(145)-JVS(1299)*XX(146)-JVS(1366)*XX(147)& - &-JVS(1491)*XX(148)-JVS(1606)*XX(149)-JVS(1645)*XX(150)-JVS(1670)*XX(151))/(JVS(1720)) - XX(153) = (X(153)-JVS(155)*XX(12)-JVS(249)*XX(22)-JVS(297)*XX(38)-JVS(314)*XX(42)-JVS(317)*XX(43)-JVS(323)*XX(44)& - &-JVS(333)*XX(46)-JVS(378)*XX(57)-JVS(415)*XX(64)-JVS(419)*XX(65)-JVS(426)*XX(66)-JVS(446)*XX(69)-JVS(463)& - &*XX(72)-JVS(474)*XX(73)-JVS(488)*XX(76)-JVS(494)*XX(77)-JVS(500)*XX(78)-JVS(505)*XX(79)-JVS(510)*XX(80)& - &-JVS(520)*XX(81)-JVS(538)*XX(85)-JVS(543)*XX(86)-JVS(562)*XX(90)-JVS(573)*XX(91)-JVS(582)*XX(92)-JVS(586)& - &*XX(93)-JVS(599)*XX(95)-JVS(605)*XX(96)-JVS(622)*XX(99)-JVS(633)*XX(100)-JVS(639)*XX(101)-JVS(649)*XX(102)& - &-JVS(668)*XX(103)-JVS(678)*XX(105)-JVS(713)*XX(108)-JVS(740)*XX(109)-JVS(747)*XX(110)-JVS(758)*XX(111)& - &-JVS(765)*XX(112)-JVS(775)*XX(113)-JVS(809)*XX(119)-JVS(827)*XX(121)-JVS(857)*XX(122)-JVS(908)*XX(123)& - &-JVS(931)*XX(124)-JVS(940)*XX(125)-JVS(955)*XX(126)-JVS(963)*XX(127)-JVS(992)*XX(129)-JVS(1007)*XX(130)& - &-JVS(1020)*XX(131)-JVS(1034)*XX(132)-JVS(1051)*XX(133)-JVS(1071)*XX(134)-JVS(1086)*XX(135)-JVS(1107)*XX(136)& - &-JVS(1122)*XX(137)-JVS(1157)*XX(138)-JVS(1173)*XX(139)-JVS(1182)*XX(140)-JVS(1191)*XX(141)-JVS(1200)*XX(142)& - &-JVS(1213)*XX(143)-JVS(1226)*XX(144)-JVS(1237)*XX(145)-JVS(1300)*XX(146)-JVS(1367)*XX(147)-JVS(1492)*XX(148)& - &-JVS(1607)*XX(149)-JVS(1646)*XX(150)-JVS(1671)*XX(151)-JVS(1721)*XX(152))/(JVS(1771)) - XX(154) = (X(154)-JVS(399)*XX(61)-JVS(435)*XX(68)-JVS(534)*XX(84)-JVS(1108)*XX(136)-JVS(1158)*XX(138)-JVS(1301)& - &*XX(146)-JVS(1368)*XX(147)-JVS(1493)*XX(148)-JVS(1608)*XX(149)-JVS(1647)*XX(150)-JVS(1672)*XX(151)-JVS(1722)& - &*XX(152)-JVS(1772)*XX(153))/(JVS(1785)) - XX(155) = (X(155)-JVS(95)*XX(10)-JVS(125)*XX(11)-JVS(156)*XX(12)-JVS(305)*XX(40)-JVS(334)*XX(46)-JVS(338)*XX(47)& - &-JVS(354)*XX(51)-JVS(400)*XX(61)-JVS(511)*XX(80)-JVS(679)*XX(105)-JVS(703)*XX(107)-JVS(714)*XX(108)-JVS(741)& - &*XX(109)-JVS(748)*XX(110)-JVS(776)*XX(113)-JVS(810)*XX(119)-JVS(858)*XX(122)-JVS(909)*XX(123)-JVS(932)& - &*XX(124)-JVS(941)*XX(125)-JVS(956)*XX(126)-JVS(964)*XX(127)-JVS(993)*XX(129)-JVS(1008)*XX(130)-JVS(1021)& - &*XX(131)-JVS(1035)*XX(132)-JVS(1052)*XX(133)-JVS(1072)*XX(134)-JVS(1109)*XX(136)-JVS(1159)*XX(138)-JVS(1174)& - &*XX(139)-JVS(1183)*XX(140)-JVS(1192)*XX(141)-JVS(1201)*XX(142)-JVS(1214)*XX(143)-JVS(1227)*XX(144)-JVS(1238)& - &*XX(145)-JVS(1302)*XX(146)-JVS(1369)*XX(147)-JVS(1494)*XX(148)-JVS(1609)*XX(149)-JVS(1648)*XX(150)-JVS(1673)& - &*XX(151)-JVS(1723)*XX(152)-JVS(1773)*XX(153)-JVS(1786)*XX(154))/(JVS(1826)) - XX(155) = XX(155) - XX(154) = XX(154)-JVS(1825)*XX(155) - XX(153) = XX(153)-JVS(1784)*XX(154)-JVS(1824)*XX(155) - XX(152) = XX(152)-JVS(1770)*XX(153)-JVS(1783)*XX(154)-JVS(1823)*XX(155) - XX(151) = XX(151)-JVS(1719)*XX(152)-JVS(1769)*XX(153)-JVS(1782)*XX(154)-JVS(1822)*XX(155) - XX(150) = XX(150)-JVS(1668)*XX(151)-JVS(1718)*XX(152)-JVS(1768)*XX(153)-JVS(1781)*XX(154)-JVS(1821)*XX(155) - XX(149) = XX(149)-JVS(1642)*XX(150)-JVS(1667)*XX(151)-JVS(1717)*XX(152)-JVS(1767)*XX(153)-JVS(1780)*XX(154)-JVS(1820)& - &*XX(155) - XX(148) = XX(148)-JVS(1602)*XX(149)-JVS(1641)*XX(150)-JVS(1666)*XX(151)-JVS(1716)*XX(152)-JVS(1766)*XX(153)-JVS(1779)& - &*XX(154)-JVS(1819)*XX(155) - XX(147) = XX(147)-JVS(1486)*XX(148)-JVS(1601)*XX(149)-JVS(1640)*XX(150)-JVS(1665)*XX(151)-JVS(1715)*XX(152)-JVS(1765)& - &*XX(153)-JVS(1778)*XX(154)-JVS(1818)*XX(155) - XX(146) = XX(146)-JVS(1360)*XX(147)-JVS(1485)*XX(148)-JVS(1600)*XX(149)-JVS(1639)*XX(150)-JVS(1664)*XX(151)-JVS(1764)& - &*XX(153)-JVS(1817)*XX(155) - XX(145) = XX(145)-JVS(1292)*XX(146)-JVS(1359)*XX(147)-JVS(1484)*XX(148)-JVS(1599)*XX(149)-JVS(1638)*XX(150)-JVS(1714)& - &*XX(152)-JVS(1763)*XX(153)-JVS(1777)*XX(154)-JVS(1816)*XX(155) - XX(144) = XX(144)-JVS(1230)*XX(145)-JVS(1291)*XX(146)-JVS(1358)*XX(147)-JVS(1483)*XX(148)-JVS(1598)*XX(149)-JVS(1637)& - &*XX(150)-JVS(1663)*XX(151)-JVS(1713)*XX(152)-JVS(1762)*XX(153)-JVS(1815)*XX(155) - XX(143) = XX(143)-JVS(1229)*XX(145)-JVS(1290)*XX(146)-JVS(1357)*XX(147)-JVS(1482)*XX(148)-JVS(1597)*XX(149)-JVS(1636)& - &*XX(150)-JVS(1662)*XX(151)-JVS(1712)*XX(152)-JVS(1776)*XX(154) - XX(142) = XX(142)-JVS(1206)*XX(143)-JVS(1219)*XX(144)-JVS(1289)*XX(146)-JVS(1356)*XX(147)-JVS(1481)*XX(148)-JVS(1596)& - &*XX(149)-JVS(1635)*XX(150)-JVS(1711)*XX(152)-JVS(1761)*XX(153)-JVS(1814)*XX(155) - XX(141) = XX(141)-JVS(1205)*XX(143)-JVS(1218)*XX(144)-JVS(1288)*XX(146)-JVS(1355)*XX(147)-JVS(1480)*XX(148)-JVS(1595)& - &*XX(149)-JVS(1634)*XX(150)-JVS(1710)*XX(152)-JVS(1760)*XX(153)-JVS(1813)*XX(155) - XX(140) = XX(140)-JVS(1204)*XX(143)-JVS(1217)*XX(144)-JVS(1287)*XX(146)-JVS(1354)*XX(147)-JVS(1479)*XX(148)-JVS(1594)& - &*XX(149)-JVS(1633)*XX(150)-JVS(1709)*XX(152)-JVS(1759)*XX(153)-JVS(1812)*XX(155) - XX(139) = XX(139)-JVS(1286)*XX(146)-JVS(1353)*XX(147)-JVS(1478)*XX(148)-JVS(1593)*XX(149)-JVS(1632)*XX(150)-JVS(1708)& - &*XX(152)-JVS(1758)*XX(153)-JVS(1811)*XX(155) - XX(138) = XX(138)-JVS(1352)*XX(147)-JVS(1477)*XX(148)-JVS(1592)*XX(149)-JVS(1631)*XX(150)-JVS(1707)*XX(152) - XX(137) = XX(137)-JVS(1142)*XX(138)-JVS(1285)*XX(146)-JVS(1351)*XX(147)-JVS(1476)*XX(148)-JVS(1591)*XX(149)-JVS(1630)& - &*XX(150)-JVS(1706)*XX(152)-JVS(1757)*XX(153)-JVS(1810)*XX(155) - XX(136) = XX(136)-JVS(1141)*XX(138)-JVS(1284)*XX(146)-JVS(1475)*XX(148)-JVS(1590)*XX(149)-JVS(1705)*XX(152) - XX(135) = XX(135)-JVS(1283)*XX(146)-JVS(1350)*XX(147)-JVS(1474)*XX(148)-JVS(1589)*XX(149)-JVS(1629)*XX(150)-JVS(1661)& - &*XX(151)-JVS(1756)*XX(153)-JVS(1809)*XX(155) - XX(134) = XX(134)-JVS(1093)*XX(136)-JVS(1140)*XX(138)-JVS(1282)*XX(146)-JVS(1349)*XX(147)-JVS(1473)*XX(148)-JVS(1588)& - &*XX(149)-JVS(1704)*XX(152)-JVS(1755)*XX(153)-JVS(1808)*XX(155) - XX(133) = XX(133)-JVS(1064)*XX(134)-JVS(1281)*XX(146)-JVS(1348)*XX(147)-JVS(1472)*XX(148)-JVS(1587)*XX(149)-JVS(1628)& - &*XX(150)-JVS(1703)*XX(152)-JVS(1754)*XX(153)-JVS(1807)*XX(155) - XX(132) = XX(132)-JVS(1045)*XX(133)-JVS(1280)*XX(146)-JVS(1347)*XX(147)-JVS(1471)*XX(148)-JVS(1586)*XX(149)-JVS(1627)& - &*XX(150)-JVS(1753)*XX(153)-JVS(1806)*XX(155) - XX(131) = XX(131)-JVS(1044)*XX(133)-JVS(1063)*XX(134)-JVS(1279)*XX(146)-JVS(1346)*XX(147)-JVS(1470)*XX(148)-JVS(1585)& - &*XX(149)-JVS(1702)*XX(152)-JVS(1752)*XX(153)-JVS(1805)*XX(155) - XX(130) = XX(130)-JVS(1139)*XX(138)-JVS(1345)*XX(147)-JVS(1469)*XX(148)-JVS(1584)*XX(149)-JVS(1751)*XX(153)-JVS(1804)& - &*XX(155) - XX(129) = XX(129)-JVS(1344)*XX(147)-JVS(1468)*XX(148)-JVS(1583)*XX(149)-JVS(1626)*XX(150)-JVS(1701)*XX(152)-JVS(1803)& - &*XX(155) - XX(128) = XX(128)-JVS(984)*XX(129)-JVS(1077)*XX(135)-JVS(1092)*XX(136)-JVS(1138)*XX(138)-JVS(1278)*XX(146)-JVS(1343)& - &*XX(147)-JVS(1467)*XX(148)-JVS(1582)*XX(149)-JVS(1625)*XX(150)-JVS(1660)*XX(151)-JVS(1700)*XX(152)-JVS(1750)& - &*XX(153)-JVS(1802)*XX(155) - XX(127) = XX(127)-JVS(1062)*XX(134)-JVS(1277)*XX(146)-JVS(1342)*XX(147)-JVS(1466)*XX(148)-JVS(1581)*XX(149)-JVS(1699)& - &*XX(152)-JVS(1749)*XX(153)-JVS(1801)*XX(155) - XX(126) = XX(126)-JVS(1061)*XX(134)-JVS(1276)*XX(146)-JVS(1465)*XX(148)-JVS(1580)*XX(149)-JVS(1698)*XX(152)-JVS(1800)& - &*XX(155) - XX(125) = XX(125)-JVS(1060)*XX(134)-JVS(1275)*XX(146)-JVS(1341)*XX(147)-JVS(1464)*XX(148)-JVS(1579)*XX(149)-JVS(1697)& - &*XX(152)-JVS(1748)*XX(153)-JVS(1799)*XX(155) - XX(124) = XX(124)-JVS(1274)*XX(146)-JVS(1463)*XX(148)-JVS(1578)*XX(149) - XX(123) = XX(123)-JVS(1462)*XX(148)-JVS(1577)*XX(149) - XX(122) = XX(122)-JVS(1059)*XX(134)-JVS(1461)*XX(148)-JVS(1696)*XX(152)-JVS(1798)*XX(155) - XX(121) = XX(121)-JVS(846)*XX(122)-JVS(983)*XX(129)-JVS(1273)*XX(146)-JVS(1340)*XX(147)-JVS(1460)*XX(148)-JVS(1576)& - &*XX(149)-JVS(1695)*XX(152)-JVS(1747)*XX(153)-JVS(1797)*XX(155) - XX(120) = XX(120)-JVS(821)*XX(121)-JVS(845)*XX(122)-JVS(882)*XX(123)-JVS(947)*XX(126)-JVS(1014)*XX(131)-JVS(1027)& - &*XX(132)-JVS(1043)*XX(133)-JVS(1058)*XX(134)-JVS(1137)*XX(138)-JVS(1272)*XX(146)-JVS(1459)*XX(148)-JVS(1575)& - &*XX(149)-JVS(1624)*XX(150)-JVS(1659)*XX(151)-JVS(1694)*XX(152) - XX(119) = XX(119)-JVS(1136)*XX(138)-JVS(1271)*XX(146)-JVS(1339)*XX(147)-JVS(1458)*XX(148)-JVS(1693)*XX(152) - XX(118) = XX(118)-JVS(820)*XX(121)-JVS(844)*XX(122)-JVS(881)*XX(123)-JVS(946)*XX(126)-JVS(1013)*XX(131)-JVS(1026)& - &*XX(132)-JVS(1042)*XX(133)-JVS(1057)*XX(134)-JVS(1135)*XX(138)-JVS(1270)*XX(146)-JVS(1457)*XX(148)-JVS(1574)& - &*XX(149)-JVS(1623)*XX(150)-JVS(1658)*XX(151)-JVS(1692)*XX(152) - XX(117) = XX(117)-JVS(819)*XX(121)-JVS(843)*XX(122)-JVS(880)*XX(123)-JVS(945)*XX(126)-JVS(1012)*XX(131)-JVS(1025)& - &*XX(132)-JVS(1041)*XX(133)-JVS(1056)*XX(134)-JVS(1134)*XX(138)-JVS(1269)*XX(146)-JVS(1456)*XX(148)-JVS(1573)& - &*XX(149)-JVS(1622)*XX(150)-JVS(1657)*XX(151)-JVS(1691)*XX(152) - XX(116) = XX(116)-JVS(818)*XX(121)-JVS(842)*XX(122)-JVS(879)*XX(123)-JVS(944)*XX(126)-JVS(1011)*XX(131)-JVS(1024)& - &*XX(132)-JVS(1040)*XX(133)-JVS(1055)*XX(134)-JVS(1133)*XX(138)-JVS(1268)*XX(146)-JVS(1455)*XX(148)-JVS(1572)& - &*XX(149)-JVS(1621)*XX(150)-JVS(1656)*XX(151)-JVS(1690)*XX(152) - XX(115) = XX(115)-JVS(817)*XX(121)-JVS(841)*XX(122)-JVS(878)*XX(123)-JVS(943)*XX(126)-JVS(1010)*XX(131)-JVS(1023)& - &*XX(132)-JVS(1039)*XX(133)-JVS(1054)*XX(134)-JVS(1132)*XX(138)-JVS(1267)*XX(146)-JVS(1454)*XX(148)-JVS(1571)& - &*XX(149)-JVS(1620)*XX(150)-JVS(1655)*XX(151)-JVS(1689)*XX(152) - XX(114) = XX(114)-JVS(877)*XX(123)-JVS(965)*XX(128)-JVS(1175)*XX(140)-JVS(1184)*XX(141)-JVS(1193)*XX(142)-JVS(1203)& - &*XX(143)-JVS(1216)*XX(144)-JVS(1266)*XX(146)-JVS(1453)*XX(148)-JVS(1570)*XX(149)-JVS(1619)*XX(150)-JVS(1654)& - &*XX(151)-JVS(1688)*XX(152)-JVS(1796)*XX(155) - XX(113) = XX(113)-JVS(840)*XX(122)-JVS(876)*XX(123)-JVS(1338)*XX(147)-JVS(1452)*XX(148)-JVS(1569)*XX(149)-JVS(1746)& - &*XX(153) - XX(112) = XX(112)-JVS(768)*XX(113)-JVS(839)*XX(122)-JVS(1113)*XX(137)-JVS(1265)*XX(146)-JVS(1337)*XX(147)-JVS(1568)& - &*XX(149)-JVS(1618)*XX(150)-JVS(1745)*XX(153) - XX(111) = XX(111)-JVS(875)*XX(123)-JVS(1131)*XX(138)-JVS(1451)*XX(148)-JVS(1567)*XX(149)-JVS(1687)*XX(152) - XX(110) = XX(110)-JVS(800)*XX(119)-JVS(874)*XX(123)-JVS(998)*XX(130)-JVS(1336)*XX(147)-JVS(1450)*XX(148)-JVS(1566)& - &*XX(149) - XX(109) = XX(109)-JVS(873)*XX(123)-JVS(1449)*XX(148)-JVS(1565)*XX(149) - XX(108) = XX(108)-JVS(982)*XX(129)-JVS(1264)*XX(146)-JVS(1335)*XX(147)-JVS(1448)*XX(148)-JVS(1564)*XX(149)-JVS(1744)& - &*XX(153)-JVS(1795)*XX(155) - XX(107) = XX(107)-JVS(1263)*XX(146)-JVS(1447)*XX(148)-JVS(1563)*XX(149) - XX(106) = XX(106)-JVS(1076)*XX(135)-JVS(1262)*XX(146)-JVS(1446)*XX(148)-JVS(1562)*XX(149)-JVS(1653)*XX(151)-JVS(1743)& - &*XX(153)-JVS(1794)*XX(155) - XX(105) = XX(105)-JVS(838)*XX(122)-JVS(981)*XX(129)-JVS(1261)*XX(146)-JVS(1334)*XX(147)-JVS(1445)*XX(148)-JVS(1561)& - &*XX(149)-JVS(1742)*XX(153)-JVS(1793)*XX(155) - XX(104) = XX(104)-JVS(759)*XX(112)-JVS(767)*XX(113)-JVS(837)*XX(122)-JVS(872)*XX(123)-JVS(934)*XX(125)-JVS(1260)& - &*XX(146)-JVS(1444)*XX(148)-JVS(1560)*XX(149)-JVS(1617)*XX(150)-JVS(1652)*XX(151) - XX(103) = XX(103)-JVS(1443)*XX(148)-JVS(1559)*XX(149) - XX(102) = XX(102)-JVS(871)*XX(123)-JVS(1130)*XX(138)-JVS(1333)*XX(147)-JVS(1442)*XX(148)-JVS(1558)*XX(149)-JVS(1741)& - &*XX(153)-JVS(1792)*XX(155) - XX(101) = XX(101)-JVS(644)*XX(102)-JVS(727)*XX(109)-JVS(870)*XX(123)-JVS(997)*XX(130)-JVS(1129)*XX(138)-JVS(1332)& - &*XX(147)-JVS(1441)*XX(148)-JVS(1557)*XX(149)-JVS(1686)*XX(152)-JVS(1740)*XX(153) - XX(100) = XX(100)-JVS(726)*XX(109)-JVS(869)*XX(123)-JVS(1331)*XX(147)-JVS(1556)*XX(149)-JVS(1739)*XX(153) - XX(99) = XX(99)-JVS(627)*XX(100)-JVS(643)*XX(102)-JVS(725)*XX(109)-JVS(868)*XX(123)-JVS(996)*XX(130)-JVS(1128)*XX(138)& - &-JVS(1330)*XX(147)-JVS(1440)*XX(148)-JVS(1555)*XX(149)-JVS(1738)*XX(153) - XX(98) = XX(98)-JVS(626)*XX(100)-JVS(635)*XX(101)-JVS(642)*XX(102)-JVS(724)*XX(109)-JVS(867)*XX(123)-JVS(995)*XX(130)& - &-JVS(1127)*XX(138)-JVS(1439)*XX(148)-JVS(1554)*XX(149)-JVS(1685)*XX(152) - XX(97) = XX(97)-JVS(1164)*XX(139)-JVS(1202)*XX(143)-JVS(1215)*XX(144)-JVS(1259)*XX(146)-JVS(1438)*XX(148)-JVS(1553)& - &*XX(149) - XX(96) = XX(96)-JVS(980)*XX(129)-JVS(1091)*XX(136)-JVS(1258)*XX(146)-JVS(1329)*XX(147)-JVS(1437)*XX(148)-JVS(1552)& - &*XX(149)-JVS(1737)*XX(153) - XX(95) = XX(95)-JVS(979)*XX(129)-JVS(1328)*XX(147)-JVS(1436)*XX(148)-JVS(1551)*XX(149)-JVS(1684)*XX(152)-JVS(1736)& - &*XX(153) - XX(94) = XX(94)-JVS(594)*XX(95)-JVS(708)*XX(108)-JVS(816)*XX(121)-JVS(836)*XX(122)-JVS(978)*XX(129)-JVS(1257)*XX(146)& - &-JVS(1435)*XX(148)-JVS(1550)*XX(149)-JVS(1683)*XX(152) - XX(93) = XX(93)-JVS(593)*XX(95)-JVS(707)*XX(108)-JVS(835)*XX(122)-JVS(977)*XX(129)-JVS(1256)*XX(146)-JVS(1327)*XX(147)& - &-JVS(1434)*XX(148)-JVS(1549)*XX(149)-JVS(1682)*XX(152) - XX(92) = XX(92)-JVS(1326)*XX(147)-JVS(1433)*XX(148)-JVS(1548)*XX(149)-JVS(1651)*XX(151)-JVS(1735)*XX(153) - XX(91) = XX(91)-JVS(866)*XX(123)-JVS(994)*XX(130)-JVS(1547)*XX(149) - XX(90) = XX(90)-JVS(916)*XX(124)-JVS(1255)*XX(146)-JVS(1325)*XX(147)-JVS(1432)*XX(148)-JVS(1546)*XX(149)-JVS(1734)& - &*XX(153) - XX(89) = XX(89)-JVS(564)*XX(91)-JVS(618)*XX(99)-JVS(625)*XX(100)-JVS(641)*XX(102)-JVS(723)*XX(109)-JVS(1126)*XX(138)& - &-JVS(1431)*XX(148)-JVS(1545)*XX(149) - XX(88) = XX(88)-JVS(834)*XX(122)-JVS(865)*XX(123)-JVS(915)*XX(124)-JVS(942)*XX(126)-JVS(957)*XX(127)-JVS(1254)*XX(146)& - &-JVS(1430)*XX(148)-JVS(1544)*XX(149) - XX(87) = XX(87)-JVS(683)*XX(106)-JVS(1075)*XX(135)-JVS(1253)*XX(146)-JVS(1429)*XX(148)-JVS(1543)*XX(149)-JVS(1791)& - &*XX(155) - XX(86) = XX(86)-JVS(833)*XX(122)-JVS(976)*XX(129)-JVS(1112)*XX(137)-JVS(1252)*XX(146)-JVS(1324)*XX(147)-JVS(1542)& - &*XX(149)-JVS(1733)*XX(153) - XX(85) = XX(85)-JVS(914)*XX(124)-JVS(1090)*XX(136)-JVS(1111)*XX(137)-JVS(1251)*XX(146)-JVS(1323)*XX(147)-JVS(1428)& - &*XX(148)-JVS(1541)*XX(149) - XX(84) = XX(84)-JVS(1089)*XX(136)-JVS(1250)*XX(146)-JVS(1322)*XX(147)-JVS(1427)*XX(148)-JVS(1540)*XX(149)-JVS(1616)& - &*XX(150)-JVS(1775)*XX(154) - XX(83) = XX(83)-JVS(766)*XX(113)-JVS(832)*XX(122)-JVS(913)*XX(124)-JVS(933)*XX(125)-JVS(1249)*XX(146)-JVS(1426)& - &*XX(148)-JVS(1539)*XX(149) - XX(82) = XX(82)-JVS(682)*XX(106)-JVS(1074)*XX(135)-JVS(1425)*XX(148)-JVS(1538)*XX(149) - XX(81) = XX(81)-JVS(576)*XX(92)-JVS(1321)*XX(147)-JVS(1424)*XX(148)-JVS(1537)*XX(149)-JVS(1732)*XX(153) - XX(80) = XX(80)-JVS(1038)*XX(133)-JVS(1320)*XX(147)-JVS(1423)*XX(148)-JVS(1536)*XX(149) - XX(79) = XX(79)-JVS(831)*XX(122)-JVS(1319)*XX(147)-JVS(1422)*XX(148)-JVS(1535)*XX(149)-JVS(1731)*XX(153) - XX(78) = XX(78)-JVS(592)*XX(95)-JVS(706)*XX(108)-JVS(1421)*XX(148)-JVS(1681)*XX(152) - XX(77) = XX(77)-JVS(722)*XX(109)-JVS(1125)*XX(138)-JVS(1318)*XX(147)-JVS(1420)*XX(148)-JVS(1534)*XX(149)-JVS(1730)& - &*XX(153) - XX(76) = XX(76)-JVS(624)*XX(100)-JVS(721)*XX(109)-JVS(1317)*XX(147)-JVS(1419)*XX(148)-JVS(1533)*XX(149)-JVS(1729)& - &*XX(153) - XX(75) = XX(75)-JVS(830)*XX(122)-JVS(1009)*XX(131)-JVS(1037)*XX(133)-JVS(1248)*XX(146)-JVS(1418)*XX(148)-JVS(1532)& - &*XX(149) - XX(74) = XX(74)-JVS(600)*XX(96)-JVS(975)*XX(129)-JVS(1088)*XX(136)-JVS(1247)*XX(146)-JVS(1417)*XX(148)-JVS(1531)& - &*XX(149) - XX(73) = XX(73)-JVS(575)*XX(92)-JVS(1316)*XX(147)-JVS(1650)*XX(151) - XX(72) = XX(72)-JVS(799)*XX(119)-JVS(912)*XX(124)-JVS(1087)*XX(136)-JVS(1110)*XX(137)-JVS(1416)*XX(148)-JVS(1530)& - &*XX(149) - XX(71) = XX(71)-JVS(1246)*XX(146)-JVS(1315)*XX(147)-JVS(1415)*XX(148)-JVS(1615)*XX(150)-JVS(1680)*XX(152)-JVS(1790)& - &*XX(155) - XX(70) = XX(70)-JVS(1314)*XX(147)-JVS(1414)*XX(148)-JVS(1614)*XX(150) - XX(69) = XX(69)-JVS(623)*XX(100)-JVS(1529)*XX(149) - XX(68) = XX(68)-JVS(1245)*XX(146)-JVS(1413)*XX(148)-JVS(1679)*XX(152)-JVS(1789)*XX(155) - XX(67) = XX(67)-JVS(437)*XX(69)-JVS(484)*XX(76)-JVS(720)*XX(109)-JVS(1412)*XX(148)-JVS(1528)*XX(149) - XX(66) = XX(66)-JVS(719)*XX(109)-JVS(1313)*XX(147)-JVS(1411)*XX(148)-JVS(1527)*XX(149)-JVS(1728)*XX(153) - XX(65) = XX(65)-JVS(652)*XX(103)-JVS(1244)*XX(146)-JVS(1312)*XX(147)-JVS(1526)*XX(149)-JVS(1727)*XX(153) - XX(64) = XX(64)-JVS(515)*XX(81)-JVS(1311)*XX(147)-JVS(1410)*XX(148)-JVS(1525)*XX(149)-JVS(1726)*XX(153) - XX(63) = XX(63)-JVS(490)*XX(77)-JVS(718)*XX(109)-JVS(1124)*XX(138)-JVS(1409)*XX(148)-JVS(1524)*XX(149) - XX(62) = XX(62)-JVS(606)*XX(97)-JVS(798)*XX(119)-JVS(1310)*XX(147)-JVS(1408)*XX(148)-JVS(1523)*XX(149) - XX(61) = XX(61)-JVS(1407)*XX(148)-JVS(1788)*XX(155) - XX(60) = XX(60)-JVS(557)*XX(90)-JVS(651)*XX(103)-JVS(864)*XX(123)-JVS(1243)*XX(146)-JVS(1406)*XX(148)-JVS(1522)& - &*XX(149)-JVS(1649)*XX(151) - XX(59) = XX(59)-JVS(539)*XX(86)-JVS(829)*XX(122)-JVS(974)*XX(129)-JVS(1242)*XX(146)-JVS(1309)*XX(147)-JVS(1405)& - &*XX(148)-JVS(1613)*XX(150) - XX(58) = XX(58)-JVS(815)*XX(121)-JVS(1404)*XX(148) - XX(57) = XX(57)-JVS(863)*XX(123)-JVS(1123)*XX(138)-JVS(1521)*XX(149)-JVS(1678)*XX(152) - XX(56) = XX(56)-JVS(674)*XX(105)-JVS(828)*XX(122)-JVS(1403)*XX(148)-JVS(1520)*XX(149) - XX(55) = XX(55)-JVS(1053)*XX(134)-JVS(1241)*XX(146)-JVS(1402)*XX(148)-JVS(1677)*XX(152) - XX(54) = XX(54)-JVS(422)*XX(66)-JVS(717)*XX(109)-JVS(1401)*XX(148)-JVS(1519)*XX(149) - XX(53) = XX(53)-JVS(705)*XX(108)-JVS(973)*XX(129)-JVS(1400)*XX(148)-JVS(1518)*XX(149) - XX(52) = XX(52)-JVS(1022)*XX(132)-JVS(1036)*XX(133)-JVS(1308)*XX(147)-JVS(1399)*XX(148) - XX(51) = XX(51)-JVS(797)*XX(119)-JVS(911)*XX(124)-JVS(1398)*XX(148)-JVS(1517)*XX(149) - XX(50) = XX(50)-JVS(411)*XX(64)-JVS(514)*XX(81)-JVS(1397)*XX(148)-JVS(1516)*XX(149) - XX(49) = XX(49)-JVS(591)*XX(95)-JVS(972)*XX(129)-JVS(1396)*XX(148)-JVS(1676)*XX(152) - XX(48) = XX(48)-JVS(1228)*XX(145)-JVS(1395)*XX(148)-JVS(1515)*XX(149)-JVS(1774)*XX(154) - XX(47) = XX(47)-JVS(1240)*XX(146)-JVS(1394)*XX(148)-JVS(1514)*XX(149)-JVS(1787)*XX(155) - XX(46) = XX(46)-JVS(1163)*XX(139)-JVS(1393)*XX(148) - XX(45) = XX(45)-JVS(1307)*XX(147)-JVS(1392)*XX(148)-JVS(1513)*XX(149)-JVS(1612)*XX(150) - XX(44) = XX(44)-JVS(640)*XX(102)-JVS(1512)*XX(149) - XX(43) = XX(43)-JVS(716)*XX(109)-JVS(749)*XX(111)-JVS(1306)*XX(147)-JVS(1511)*XX(149)-JVS(1725)*XX(153) - XX(42) = XX(42)-JVS(910)*XX(124)-JVS(1239)*XX(146)-JVS(1510)*XX(149) - XX(41) = XX(41)-JVS(467)*XX(73)-JVS(574)*XX(92)-JVS(1391)*XX(148) - XX(40) = XX(40)-JVS(971)*XX(129)-JVS(1390)*XX(148)-JVS(1509)*XX(149) - XX(39) = XX(39)-JVS(1073)*XX(135)-JVS(1389)*XX(148)-JVS(1508)*XX(149) - XX(38) = XX(38)-JVS(513)*XX(81)-JVS(1388)*XX(148) - XX(37) = XX(37)-JVS(563)*XX(91)-JVS(1162)*XX(139)-JVS(1387)*XX(148)-JVS(1507)*XX(149) - XX(36) = XX(36)-JVS(448)*XX(70)-JVS(1386)*XX(148)-JVS(1506)*XX(149)-JVS(1611)*XX(150) - XX(35) = XX(35)-JVS(466)*XX(73)-JVS(489)*XX(77)-JVS(1385)*XX(148)-JVS(1505)*XX(149) - XX(34) = XX(34)-JVS(284)*XX(35)-JVS(410)*XX(64)-JVS(634)*XX(101)-JVS(862)*XX(123)-JVS(1384)*XX(148)-JVS(1504)*XX(149)& - &-JVS(1675)*XX(152) - XX(33) = XX(33)-JVS(1161)*XX(139)-JVS(1383)*XX(148) - XX(32) = XX(32)-JVS(861)*XX(123)-JVS(1503)*XX(149)-JVS(1674)*XX(152) - XX(31) = XX(31)-JVS(421)*XX(66)-JVS(465)*XX(73)-JVS(1382)*XX(148)-JVS(1502)*XX(149) - XX(30) = XX(30)-JVS(271)*XX(31)-JVS(274)*XX(32)-JVS(409)*XX(64)-JVS(617)*XX(99)-JVS(1381)*XX(148)-JVS(1501)*XX(149) - XX(29) = XX(29)-JVS(447)*XX(70)-JVS(1305)*XX(147)-JVS(1610)*XX(150) - XX(28) = XX(28)-JVS(681)*XX(106)-JVS(1380)*XX(148)-JVS(1500)*XX(149) - XX(27) = XX(27)-JVS(420)*XX(66)-JVS(464)*XX(73)-JVS(1379)*XX(148)-JVS(1499)*XX(149) - XX(26) = XX(26)-JVS(436)*XX(69)-JVS(860)*XX(123)-JVS(1498)*XX(149) - XX(25) = XX(25)-JVS(257)*XX(26)-JVS(260)*XX(27)-JVS(483)*XX(76)-JVS(1378)*XX(148)-JVS(1497)*XX(149) - XX(24) = XX(24)-JVS(650)*XX(103)-JVS(715)*XX(109)-JVS(859)*XX(123)-JVS(1377)*XX(148)-JVS(1496)*XX(149) - XX(23) = XX(23)-JVS(512)*XX(81)-JVS(1304)*XX(147) - XX(22) = XX(22)-JVS(1303)*XX(147) - XX(21) = XX(21)-JVS(1160)*XX(139)-JVS(1376)*XX(148) - XX(20) = XX(20)-JVS(310)*XX(42)-JVS(1375)*XX(148) - XX(19) = XX(19)-JVS(1374)*XX(148) - XX(18) = XX(18)-JVS(680)*XX(106)-JVS(1724)*XX(153) - XX(17) = XX(17)-JVS(1373)*XX(148)-JVS(1495)*XX(149) - XX(16) = XX(16)-JVS(673)*XX(105)-JVS(1372)*XX(148) - XX(15) = XX(15)-JVS(704)*XX(108)-JVS(1371)*XX(148) - XX(14) = XX(14)-JVS(1370)*XX(148) - XX(13) = XX(13) - XX(12) = XX(12) - XX(11) = XX(11) - XX(10) = XX(10) - XX(9) = XX(9) - XX(8) = XX(8) - XX(7) = XX(7) - XX(6) = XX(6) - XX(5) = XX(5) - XX(4) = XX(4) - XX(3) = XX(3) - XX(2) = XX(2) - XX(1) = XX(1) - -END SUBROUTINE KppSolveTR - -! End of KppSolveTR function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! BLAS_UTIL - BLAS-LIKE utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!-------------------------------------------------------------- -! -! BLAS/LAPACK-like subroutines used by the integration algorithms -! It is recommended to replace them by calls to the optimized -! BLAS/LAPACK library for your machine -! -! (C) Adrian Sandu, Aug. 2004 -! Virginia Polytechnic Institute and State University -!-------------------------------------------------------------- - - -!-------------------------------------------------------------- - SUBROUTINE WCOPY(N,X,incX,Y,incY) -!-------------------------------------------------------------- -! copies a vector, x, to a vector, y: y <- x -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SCOPY(N,X,1,Y,1) or CALL DCOPY(N,X,1,Y,1) -!-------------------------------------------------------------- -! USE MOZART_T1_Precision - - INTEGER :: i,incX,incY,M,MP1,N - REAL(kind=dp) :: X(N),Y(N) - - IF (N.LE.0) RETURN - - M = MOD(N,8) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = X(i) - END DO - IF( N .LT. 8 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,8 - Y(i) = X(i) - Y(i + 1) = X(i + 1) - Y(i + 2) = X(i + 2) - Y(i + 3) = X(i + 3) - Y(i + 4) = X(i + 4) - Y(i + 5) = X(i + 5) - Y(i + 6) = X(i + 6) - Y(i + 7) = X(i + 7) - END DO - - END SUBROUTINE WCOPY - - -!-------------------------------------------------------------- - SUBROUTINE WAXPY(N,Alpha,X,incX,Y,incY) -!-------------------------------------------------------------- -! constant times a vector plus a vector: y <- y + Alpha*x -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SAXPY(N,Alpha,X,1,Y,1) or CALL DAXPY(N,Alpha,X,1,Y,1) -!-------------------------------------------------------------- - - INTEGER :: i,incX,incY,M,MP1,N - REAL(kind=dp) :: X(N),Y(N),Alpha - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp - - IF (Alpha .EQ. ZERO) RETURN - IF (N .LE. 0) RETURN - - M = MOD(N,4) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = Y(i) + Alpha*X(i) - END DO - IF( N .LT. 4 ) RETURN - END IF - MP1 = M + 1 - DO i = MP1,N,4 - Y(i) = Y(i) + Alpha*X(i) - Y(i + 1) = Y(i + 1) + Alpha*X(i + 1) - Y(i + 2) = Y(i + 2) + Alpha*X(i + 2) - Y(i + 3) = Y(i + 3) + Alpha*X(i + 3) - END DO - - END SUBROUTINE WAXPY - - - -!-------------------------------------------------------------- - SUBROUTINE WSCAL(N,Alpha,X,incX) -!-------------------------------------------------------------- -! constant times a vector: x(1:N) <- Alpha*x(1:N) -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SSCAL(N,Alpha,X,1) or CALL DSCAL(N,Alpha,X,1) -!-------------------------------------------------------------- - - INTEGER :: i,incX,M,MP1,N - REAL(kind=dp) :: X(N),Alpha - REAL(kind=dp), PARAMETER :: ZERO=0.0_dp, ONE=1.0_dp - - IF (Alpha .EQ. ONE) RETURN - IF (N .LE. 0) RETURN - - M = MOD(N,5) - IF( M .NE. 0 ) THEN - IF (Alpha .EQ. (-ONE)) THEN - DO i = 1,M - X(i) = -X(i) - END DO - ELSEIF (Alpha .EQ. ZERO) THEN - DO i = 1,M - X(i) = ZERO - END DO - ELSE - DO i = 1,M - X(i) = Alpha*X(i) - END DO - END IF - IF( N .LT. 5 ) RETURN - END IF - MP1 = M + 1 - IF (Alpha .EQ. (-ONE)) THEN - DO i = MP1,N,5 - X(i) = -X(i) - X(i + 1) = -X(i + 1) - X(i + 2) = -X(i + 2) - X(i + 3) = -X(i + 3) - X(i + 4) = -X(i + 4) - END DO - ELSEIF (Alpha .EQ. ZERO) THEN - DO i = MP1,N,5 - X(i) = ZERO - X(i + 1) = ZERO - X(i + 2) = ZERO - X(i + 3) = ZERO - X(i + 4) = ZERO - END DO - ELSE - DO i = MP1,N,5 - X(i) = Alpha*X(i) - X(i + 1) = Alpha*X(i + 1) - X(i + 2) = Alpha*X(i + 2) - X(i + 3) = Alpha*X(i + 3) - X(i + 4) = Alpha*X(i + 4) - END DO - END IF - - END SUBROUTINE WSCAL - -!-------------------------------------------------------------- - REAL(kind=dp) FUNCTION WLAMCH( C ) -!-------------------------------------------------------------- -! returns epsilon machine -! after LAPACK -! replace this by the function from the optimized LAPACK implementation: -! CALL SLAMCH('E') or CALL DLAMCH('E') -!-------------------------------------------------------------- -! USE MOZART_T1_Precision - - CHARACTER :: C - INTEGER :: i - REAL(kind=dp), SAVE :: Eps - REAL(kind=dp) :: Suma - REAL(kind=dp), PARAMETER :: ONE=1.0_dp, HALF=0.5_dp - LOGICAL, SAVE :: First=.TRUE. - - IF (First) THEN - First = .FALSE. - Eps = HALF**(16) - DO i = 17, 80 - Eps = Eps*HALF - CALL WLAMCH_ADD(ONE,Eps,Suma) - IF (Suma.LE.ONE) GOTO 10 - END DO - PRINT*,'ERROR IN WLAMCH. EPS < ',Eps - RETURN -10 Eps = Eps*2 - i = i-1 - END IF - - WLAMCH = Eps - - END FUNCTION WLAMCH - - SUBROUTINE WLAMCH_ADD( A, B, Suma ) -! USE MOZART_T1_Precision - - REAL(kind=dp) A, B, Suma - Suma = A + B - - END SUBROUTINE WLAMCH_ADD -!-------------------------------------------------------------- - - -!-------------------------------------------------------------- - SUBROUTINE SET2ZERO(N,Y) -!-------------------------------------------------------------- -! copies zeros into the vector y: y <- 0 -! after BLAS -!-------------------------------------------------------------- - - INTEGER :: i,M,MP1,N - REAL(kind=dp) :: Y(N) - REAL(kind=dp), PARAMETER :: ZERO = 0.0d0 - - IF (N.LE.0) RETURN - - M = MOD(N,8) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = ZERO - END DO - IF( N .LT. 8 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,8 - Y(i) = ZERO - Y(i + 1) = ZERO - Y(i + 2) = ZERO - Y(i + 3) = ZERO - Y(i + 4) = ZERO - Y(i + 5) = ZERO - Y(i + 6) = ZERO - Y(i + 7) = ZERO - END DO - - END SUBROUTINE SET2ZERO - - -!-------------------------------------------------------------- - REAL(kind=dp) FUNCTION WDOT (N, DX, incX, DY, incY) -!-------------------------------------------------------------- -! dot produce: wdot = x(1:N)*y(1:N) -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SDOT(N,X,1,Y,1) or CALL DDOT(N,X,1,Y,1) -!-------------------------------------------------------------- -! USE messy_mecca_kpp_Precision -!-------------------------------------------------------------- - IMPLICIT NONE - INTEGER :: N, incX, incY - REAL(kind=dp) :: DX(N), DY(N) - - INTEGER :: i, IX, IY, M, MP1, NS - - WDOT = 0.0D0 - IF (N .LE. 0) RETURN - IF (incX .EQ. incY) IF (incX-1) 5,20,60 -! -! Code for unequal or nonpositive increments. -! - 5 IX = 1 - IY = 1 - IF (incX .LT. 0) IX = (-N+1)*incX + 1 - IF (incY .LT. 0) IY = (-N+1)*incY + 1 - DO i = 1,N - WDOT = WDOT + DX(IX)*DY(IY) - IX = IX + incX - IY = IY + incY - END DO - RETURN -! -! Code for both increments equal to 1. -! -! Clean-up loop so remaining vector length is a multiple of 5. -! - 20 M = MOD(N,5) - IF (M .EQ. 0) GO TO 40 - DO i = 1,M - WDOT = WDOT + DX(i)*DY(i) - END DO - IF (N .LT. 5) RETURN - 40 MP1 = M + 1 - DO i = MP1,N,5 - WDOT = WDOT + DX(i)*DY(i) + DX(i+1)*DY(i+1) + DX(i+2)*DY(i+2) + & - DX(i+3)*DY(i+3) + DX(i+4)*DY(i+4) - END DO - RETURN -! -! Code for equal, positive, non-unit increments. -! - 60 NS = N*incX - DO i = 1,NS,incX - WDOT = WDOT + DX(i)*DY(i) - END DO - - END FUNCTION WDOT - - -!-------------------------------------------------------------- - SUBROUTINE WADD(N,X,Y,Z) -!-------------------------------------------------------------- -! adds two vectors: z <- x + y -! BLAS - like -!-------------------------------------------------------------- -! USE MOZART_T1_Precision - - INTEGER :: i, M, MP1, N - REAL(kind=dp) :: X(N),Y(N),Z(N) - - IF (N.LE.0) RETURN - - M = MOD(N,5) - IF( M /= 0 ) THEN - DO i = 1,M - Z(i) = X(i) + Y(i) - END DO - IF( N < 5 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,5 - Z(i) = X(i) + Y(i) - Z(i + 1) = X(i + 1) + Y(i + 1) - Z(i + 2) = X(i + 2) + Y(i + 2) - Z(i + 3) = X(i + 3) + Y(i + 3) - Z(i + 4) = X(i + 4) + Y(i + 4) - END DO - - END SUBROUTINE WADD - - - -!-------------------------------------------------------------- - SUBROUTINE WGEFA(N,A,Ipvt,info) -!-------------------------------------------------------------- -! WGEFA FACTORS THE MATRIX A (N,N) BY -! GAUSS ELIMINATION WITH PARTIAL PIVOTING -! LINPACK - LIKE -!-------------------------------------------------------------- -! - INTEGER :: N,Ipvt(N),info - REAL(kind=dp) :: A(N,N) - REAL(kind=dp) :: t, dmax, da - INTEGER :: j,k,l - REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0 - - info = 0 - -size: IF (n > 1) THEN - -col: DO k = 1, n-1 - -! find l = pivot index -! l = idamax(n-k+1,A(k,k),1) + k - 1 - l = k; dmax = abs(A(k,k)) - DO j = k+1,n - da = ABS(A(j,k)) - IF (da > dmax) THEN - l = j; dmax = da - END IF - END DO - Ipvt(k) = l - -! zero pivot implies this column already triangularized - IF (ABS(A(l,k)) < TINY(ZERO)) THEN - info = k - return - ELSE - IF (l /= k) THEN - t = A(l,k); A(l,k) = A(k,k); A(k,k) = t - END IF - t = -ONE/A(k,k) - CALL WSCAL(n-k,t,A(k+1,k),1) - DO j = k+1, n - t = A(l,j) - IF (l /= k) THEN - A(l,j) = A(k,j); A(k,j) = t - END IF - CALL WAXPY(n-k,t,A(k+1,k),1,A(k+1,j),1) - END DO - END IF - - END DO col - - END IF size - - Ipvt(N) = N - IF (ABS(A(N,N)) == ZERO) info = N - - END SUBROUTINE WGEFA - - -!-------------------------------------------------------------- - SUBROUTINE WGESL(Trans,N,A,Ipvt,b) -!-------------------------------------------------------------- -! WGESL solves the system -! a * x = b or trans(a) * x = b -! using the factors computed by WGEFA. -! -! Trans = 'N' to solve A*x = b , -! = 'T' to solve transpose(A)*x = b -! LINPACK - LIKE -!-------------------------------------------------------------- - - INTEGER :: N,Ipvt(N) - CHARACTER :: trans - REAL(kind=dp) :: A(N,N),b(N) - REAL(kind=dp) :: t - INTEGER :: k,kb,l - - - SELECT CASE (Trans) - - CASE ('n','N') ! Solve A * x = b - -! first solve L*y = b - IF (n >= 2) THEN - DO k = 1, n-1 - l = Ipvt(k) - t = b(l) - IF (l /= k) THEN - b(l) = b(k) - b(k) = t - END IF - CALL WAXPY(n-k,t,a(k+1,k),1,b(k+1),1) - END DO - END IF -! now solve U*x = y - DO kb = 1, n - k = n + 1 - kb - b(k) = b(k)/a(k,k) - t = -b(k) - CALL WAXPY(k-1,t,a(1,k),1,b(1),1) - END DO - - CASE ('t','T') ! Solve transpose(A) * x = b - -! first solve trans(U)*y = b - DO k = 1, n - t = WDOT(k-1,a(1,k),1,b(1),1) - b(k) = (b(k) - t)/a(k,k) - END DO -! now solve trans(L)*x = y - IF (n >= 2) THEN - DO kb = 1, n-1 - k = n - kb - b(k) = b(k) + WDOT(n-k,a(k+1,k),1,b(k+1),1) - l = Ipvt(k) - IF (l /= k) THEN - t = b(l); b(l) = b(k); b(k) = t - END IF - END DO - END IF - - END SELECT - - END SUBROUTINE WGESL -! End of BLAS_UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE MOZART_T1_LinearAlgebra - diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_LinearAlgebra.o b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_LinearAlgebra.o deleted file mode 100644 index 56d2a23fc8d168ee405a19ee92b71bd73f7f684c..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_LinearAlgebra.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Main.f90 b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Main.f90 deleted file mode 100644 index a52610051aec33bf2dec5812f2031a21c56a8c5e..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Main.f90 +++ /dev/null @@ -1,161 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Main Program File -! -! Generated by KPP-2.2.3 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 : MOZART_T1_Main.f90 -! Time : Wed Jan 27 13:13:50 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_T1_20754_BOXMOX -! Equation file : MOZART_T1.kpp -! Output root filename : MOZART_T1 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! MAIN - Main program - driver routine -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -PROGRAM MOZART_T1_Driver - - USE MOZART_T1_Model - USE MOZART_T1_Initialize, ONLY: Initialize - - REAL(kind=dp) :: T, DVAL(NSPEC) - REAL(kind=dp) :: RSTATE(20) - INTEGER :: IERR - INTEGER :: i, tcount, ttot - CHARACTER(LEN=60), PARAMETER :: & - brk = "------------------------------------------------------------" - - !~~~> Initialization - - STEPMIN = 0.0d0 - STEPMAX = 0.0d0 - - DO i=1,NVAR - RTOL(i) = 1.0d-4 - ATOL(i) = 1.0d-3 - END DO - - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX (__BOXMOX_VERSION__) driver" - WRITE(*,*) brk - WRITE(*,*) " " - - CALL Initialize() - - WRITE(*,*) brk - WRITE(*,*) " " - - CALL UpdateEnvironment() - - CALL readInput('InitialConditions.csv', NSPEC, SPC_NAMES, C, & - InitialCondition) - CALL InitSaveData() - - CALL InitFixNOx(NSPEC, SPC_NAMES, C) - - !~~~> Time loop - T = TSTART - tcount = 1 - ttot = NINT((TEND - TSTART) / DT) - kron: DO WHILE (T < TEND) - - IF (lverbose) THEN - WRITE(*,*) "" - WRITE(*,"(1X,A,F8.2,A)") "-------------------- time (s): ", T, & - " --------------------" - WRITE(*,*) "" - ENDIF - - TIME = T - CALL GetMass( C, DVAL ) - CALL SaveData() - - CALL UpdateEnvironment() - CALL UpdateAerosol() - CALL UpdatePhotolysisRates() - - CALL UpdateKturb() - - CALL readInput('Background.csv', NSPEC, SPC_NAMES, C, Mix, lzero=.TRUE.) - CALL readInput('Emissions.csv', NSPEC, SPC_NAMES, C, Emission) - CALL readInput('Deposition.csv', NSPEC, SPC_NAMES, C, Deposition) - - CALL Update_SUN() - CALL Update_RCONST() - - IF (T == TSTART) WRITE(*,*) " " - - IF ( MOD(tcount * 10, ttot) .EQ. 0 ) THEN - WRITE(6,991) (T-TSTART)/(TEND-TSTART)*100, T, & - ( TRIM(SPC_NAMES(MONITOR(i))), & - C(MONITOR(i))/CFACTOR, i=1,NMONITOR ) - ENDIF - - IF (lfix_NOx) THEN - CALL FixNOx(NSPEC, SPC_NAMES, C) - ENDIF - - CALL INTEGRATE( TIN = T, TOUT = T+DT, RSTATUS_U = RSTATE, & - ICNTRL_U = (/ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /), & - IERR_U = IERR ) - T = RSTATE(1) - - tcount = tcount + 1 - - IF (IERR < 0) THEN - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX integration failed, stopping." - WRITE(*,*) brk - WRITE(*,*) " " - STOP 1 - ENDIF - - IF (T == TSTART .OR. lverbose) THEN - WRITE(*,*) "" - WRITE(*,*) brk - WRITE(*,*) "" - ENDIF - - END DO kron - !~~~> End Time loop - - CALL GetMass( C, DVAL ) - WRITE(6,991) (T-TSTART)/(TEND-TSTART)*100, T, & - ( TRIM(SPC_NAMES(MONITOR(i))), & - C(MONITOR(i))/CFACTOR, i=1,NMONITOR ) - TIME = T - CALL SaveData() - CALL CloseSaveData() - - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX successfully completed." - WRITE(*,*) brk - WRITE(*,*) " " - -991 FORMAT(F6.1,'%. T=',E9.3,2X,200(A,'=',E11.4,'; ')) - -END PROGRAM MOZART_T1_Driver - -! End of MAIN function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Main.o b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Main.o deleted file mode 100644 index 81064cac0b8b2ef4cce717678a6a59347e5aa168..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Main.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Model.f90 b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Model.f90 deleted file mode 100644 index 3073869819c0eef63885383c117781570ce05af0..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Model.f90 +++ /dev/null @@ -1,21 +0,0 @@ -MODULE MOZART_T1_Model - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Completely defines the model MOZART_T1 -! by using all the associated modules -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MOZART_T1_Precision - USE MOZART_T1_Parameters - USE MOZART_T1_Global - USE MOZART_T1_Function - USE MOZART_T1_Integrator - USE MOZART_T1_Rates - USE MOZART_T1_Jacobian - USE MOZART_T1_Stoichiom - USE MOZART_T1_LinearAlgebra - USE MOZART_T1_Monitor - USE MOZART_T1_Util - -END MODULE MOZART_T1_Model - diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Model.o b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Model.o deleted file mode 100644 index 876960f0c95d1ff3d916cd11be8d41aec132bd2f..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Model.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Monitor.f90 b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Monitor.f90 deleted file mode 100644 index 1b6ee545a4eda82f81e17e98109f0eefa6cb8365..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Monitor.f90 +++ /dev/null @@ -1,487 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Utility Data Module File -! -! Generated by KPP-2.2.3 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 : MOZART_T1_Monitor.f90 -! Time : Wed Jan 27 13:13:50 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_T1_20754_BOXMOX -! Equation file : MOZART_T1.kpp -! Output root filename : MOZART_T1 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MOZART_T1_Monitor - - - CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_0 = (/ & - 'BENOOH ','SO4 ','SOAG0 ', & - 'SOAG1 ','SOAG2 ','SOAG3 ', & - 'SOAG4 ','IVOC ','SVOC ', & - 'RO2_RO2 ','RO2_HO2 ','RO2_NO ', & - 'VOC_OH ','NH3 ','C2H6 ', & - 'C3H8 ','CH3CN ','N2O ', & - 'SO2 ','EOOH ','IEPOX ', & - 'ONITR ','PBZNIT ','C2H2 ', & - 'BENZENE ','BEPOMUC ','PHENOL ', & - 'HCN ','N2O5 ','TOLUENE ', & - 'CRESOL ','TEPOMUC ','XOOH ', & - 'XYLENES ','XYLOL ','DMS ', & - 'HPALD ','BZALD ','H2O2 ', & - 'C2H5OH ','C6H5OOH ','EO ', & - 'BENO2 ','BIGALD2 ','HO2NO2 ', & - 'HYDRALD ','CH3OOH ','MACROOH ', & - 'MEKOOH ','BZOOH ','NC4CH2OH ', & - 'NTERPOOH ','C2H5OOH ','PHENOOH ', & - 'ROOH ','C3H7OOH ','BIGALD4 ', & - 'BIGALK ','BIGENE ','C2H4 ', & - 'CH3COOH ','ISOPNOOH ','XYLOLOOH ', & - 'BZOO ','HOCH2OO ','PHENO2 ', & - 'BENZOOH ','CH3COOOH ','BIGALD1 ', & - 'HNO3 ','PAN ','ISOPNITB ', & - 'PHENO ','POOH ','TERPOOH ', & - 'BENZO2 ','XYLOLO2 ','MEK ', & - 'HMPROPO2 ','TERPNIT ','ACBZO2 ', & - 'H2 ','MBOOOH ','MPAN ', & - 'ISOPNITA ','ENEO2 ','CH4 ', & - 'TERP2OOH ','TOLOOH ','EO2 ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(70) :: SPC_NAMES_1 = (/ & - 'BIGALD3 ','C6H5O2 ','ALKNIT ', & - 'ALKOOH ','MEKO2 ','PO2 ', & - 'ISOPOOH ','XYLENOOH ','TOLO2 ', & - 'MALO2 ','XYLENO2 ','DICARBO2 ', & - 'HCOOH ','MBO ','C3H7O2 ', & - 'O1D ','CH3OH ','C2H5O2 ', & - 'GLYOXAL ','NC4CHO ','BIGALD ', & - 'MBONO3O2 ','HMPROP ','ISOP ', & - 'LIMON ','APIN ','BCARY ', & - 'BPIN ','NOA ','MYRC ', & - 'ALKO2 ','CH3COCH3 ','CO ', & - 'GLYALD ','MBOO2 ','TERPROD2 ', & - 'TERP2O2 ','C3H6 ','CH3CHO ', & - 'MDIALO2 ','TERPO2 ','NTERPO2 ', & - 'TERPROD1 ','RO2 ','O ', & - 'HYAC ','HONITR ','CH3COCHO ', & - 'XO2 ','ISOPAO2 ','ISOPBO2 ', & - 'ISOPNO3 ','MACR ','MVK ', & - 'MACRO2 ','CH2O ','NO2 ', & - 'OH ','HO2 ','NO3 ', & - 'O3 ','CH3CO3 ','NO ', & - 'MCO3 ','CH3O2 ','M ', & - 'H2O ','O2 ','N2 ', & - 'CO2 ' /) - CHARACTER(LEN=15), PARAMETER, DIMENSION(160) :: SPC_NAMES = (/& - SPC_NAMES_0, SPC_NAMES_1 /) - - INTEGER, PARAMETER, DIMENSION(160) :: LOOKAT = (/ & - 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, & - 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, & - 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, & - 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, & - 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, & - 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, & - 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, & - 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, & - 97, 98, 99,100,101,102,103,104,105,106,107,108, & - 109,110,111,112,113,114,115,116,117,118,119,120, & - 121,122,123,124,125,126,127,128,129,130,131,132, & - 133,134,135,136,137,138,139,140,141,142,143,144, & - 145,146,147,148,149,150,151,152,153,154,155,156, & - 157,158,159,160 /) - - INTEGER, DIMENSION(1) :: MONITOR - CHARACTER(LEN=15), DIMENSION(1) :: SMASS - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_0 = (/ & - ' H2O2 --> 2 OH ', & - ' O2 --> 2 O ', & - ' O3 --> O + O2 ', & - ' O3 --> O1D + O2 ', & - ' HNO3 --> NO2 + OH ', & - ' HO2NO2 --> 0.66 NO2 + 0.33 OH + 0.66 HO2 + 0.33 NO3 ', & - ' N2O --> O1D + N2 ', & - ' N2O5 --> NO2 + NO3 ', & - ' NO2 --> O + NO ', & - ' NO3 --> 0.89 NO2 + 0.89 O3 + 0.11 NO ', & - ' ALKNIT --> 0.8 MEK + 0.25 CH3COCH3 + 0.4 CH3CHO + 0.1 CH2O + NO2 + HO2 ', & - ' ALKOOH --> 0.8 MEK + 0.25 CH3COCH3 + 0.4 CH3CHO + 0.1 CH2O + OH + 0.9 HO2 ', & - ' BENZOOH --> 0.5 BIGALD1 + GLYOXAL + OH + HO2 ', & - ' BEPOMUC --> BIGALD1 + 1.5 CO + 1.5 HO2 ', & - ' BIGALD --> 0.13 GLYOXAL + 0.45 CO + 0.18 CH3COCHO + 0.56 HO2 + 0.13 CH3CO3 ', & - ' BIGALD1 --> 0.6 MALO2 + HO2 ', & - ' BIGALD2 --> 0.6 DICARBO2 + 0.6 HO2 ', & - ' BIGALD3 --> 0.6 CO + 0.6 MDIALO2 + 0.6 HO2 ', & - ' BIGALD4 --> CO + CH3COCHO + HO2 + CH3CO3 ', & - ' BZOOH --> BZALD + OH + HO2 ', & - ' C2H5OOH --> CH3CHO + OH + HO2 ', & - ' C3H7OOH --> 0.82 CH3COCH3 + OH + HO2 ', & - ' C6H5OOH --> PHENO + OH ', & - ' CH2O --> CO + 2 HO2 ', & - ' CH2O --> H2 + CO ', & - ' CH3CHO --> CO + HO2 + CH3O2 ', & - ' CH3COCH3 --> CH3CO3 + CH3O2 ', & - ' CH3COCHO --> CO + HO2 + CH3CO3 ', & - ' CH3COOOH --> OH + CH3O2 + CO2 ', & - ' CH3OOH --> CH2O + OH + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_1 = (/ & - ' EOOH --> EO + OH ', & - ' GLYALD --> CO + CH2O + 2 HO2 ', & - ' GLYOXAL --> 2 CO + 2 HO2 ', & - ' HMPROP --> CH3COCH3 + CO + 2 HO2 ', & - ' HONITR --> 0.17 CH3COCH3 + 0.33 CO + 0.33 GLYALD + 0.33 CH3CHO + 0.17 HYAC + 0.33 CH2O + NO2 + 0.67 HO2 + 0.33 CH3CO3 ', & - ' HPALD --> BIGALD3 + OH + HO2 ', & - ' HYAC --> CH2O + HO2 + CH3CO3 ', & - ' ISOPNOOH --> ISOPOOH + NO2 + HO2 ', & - ' ISOPOOH --> 0.288 MACR + 0.402 MVK + 0.69 CH2O + HO2 ', & - ' MACR --> 0.67 CO + 0.67 CH2O + 0.33 OH + 0.67 HO2 + 0.67 CH3CO3 + 0.33 MCO3 ', & - ' MBOOOH --> 0.33 HMPROP + 0.67 CH3COCH3 + 0.67 GLYALD + 0.33 CH2O + OH + HO2 ', & - ' MEK --> C2H5O2 + CH3CO3 ', & - ' MEKOOH --> CH3CHO + OH + CH3CO3 ', & - ' MPAN --> NO2 + MCO3 ', & - ' MVK --> 0.7 CO + 0.7 C3H6 + 0.3 CH3CO3 + 0.3 CH3O2 ', & - ' NC4CHO --> BIGALD3 + NO2 + HO2 ', & - ' NOA --> CH2O + NO2 + CH3CO3 ', & - ' NTERPOOH --> TERPROD1 + NO2 + OH ', & - ' ONITR --> NO2 ', & - ' PAN --> 0.6 NO2 + 0.4 NO3 + 0.6 CH3CO3 + 0.4 CH3O2 + 0.4 CO2 ', & - ' PHENOOH --> 0.7 GLYOXAL + OH + HO2 ', & - ' POOH --> CH3CHO + CH2O + OH + HO2 ', & - ' ROOH --> CH2O + OH + CH3CO3 ', & - ' TEPOMUC --> 1.5 CO + HO2 + 0.5 CH3CO3 ', & - ' TERP2OOH --> 0.3 CH3COCH3 + 0.25 CO + 0.25 GLYALD + TERPROD2 + 0.375 CH2O + OH + HO2 + CO2 ', & - ' TERPNIT --> TERPROD1 + NO2 + HO2 ', & - ' TERPOOH --> 0.05 CH3COCH3 + TERPROD1 + 0.4 CH2O + OH + HO2 ', & - ' TERPROD1 --> CO + TERPROD2 + HO2 ', & - ' TERPROD2 --> 0.5 CH3COCH3 + 1.7 CO + 0.15 RO2 + 0.68 CH2O + 1.2 HO2 + 0.65 CH3CO3 + 0.8 CO2 ', & - ' TOLOOH --> 0.2 BIGALD2 + 0.2 BIGALD1 + 0.2 BIGALD3 + 0.6 GLYOXAL + 0.4 CH3COCHO + OH + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_2 = (/ & - ' XOOH --> OH ', & - ' XYLENOOH --> 0.2 BIGALD2 + 0.21 BIGALD4 + 0.06 BIGALD1 + 0.15 BIGALD3 + 0.34 GLYOXAL + 0.54 CH3COCHO + OH + HO2 ', & - ' XYLOLOOH --> 0.17 GLYOXAL + 0.51 CH3COCHO + OH + HO2 ', & - ' CH4 + O1D --> 0.05 H2 + 0.25 CH2O + 0.75 OH + 0.4 HO2 + 0.75 CH3O2 ', & - ' H2 + O1D --> OH + HO2 ', & - ' O1D + H2O --> 2 OH ', & - ' O1D + N2 --> O + N2 ', & - ' O1D + O2 --> O + O2 ', & - ' O1D + O3 --> 2 O2 ', & - ' O + O3 --> 2 O2 ', & - ' 2 O + M --> M + O2 ', & - ' O + M + O2 --> O3 + M ', & - ' H2 + O --> OH + HO2 ', & - ' H2O2 + O --> OH + HO2 ', & - ' O + HO2 --> OH + O2 ', & - ' HO2 + O3 --> OH + 2 O2 ', & - ' H2 + OH --> HO2 + H2O ', & - ' H2O2 + OH --> HO2 + H2O ', & - ' OH + HO2 --> H2O + O2 ', & - ' O + OH --> HO2 + O2 ', & - ' OH + O3 --> HO2 + O2 ', & - ' 2 OH --> O + H2O ', & - ' 2 OH --> H2O2 ', & - ' 2 HO2 --> H2O2 + O2 ', & - ' HO2NO2 + OH --> NO2 + H2O + O2 ', & - ' O + NO2 --> NO + O2 ', & - ' NO2 + O3 --> NO3 + O2 ', & - ' O + NO2 --> NO3 ', & - ' HO2 + NO3 --> NO2 + OH + O2 ', & - ' NO3 + NO --> 2 NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_3 = (/ & - ' O + NO3 --> NO2 + O2 ', & - ' OH + NO3 --> NO2 + HO2 ', & - ' HO2 + NO --> NO2 + OH ', & - ' O3 + NO --> NO2 + O2 ', & - ' O + NO --> NO2 ', & - ' N2O + O1D --> 2 NO ', & - ' N2O + O1D --> O2 + N2 ', & - ' NO2 + HO2 --> HO2NO2 ', & - ' NO2 + NO3 --> N2O5 ', & - ' NO2 + OH --> HNO3 ', & - ' HNO3 + OH --> NO3 + H2O ', & - ' HO2NO2 + M --> NO2 + HO2 + M ', & - ' N2O5 + M --> NO2 + NO3 + M ', & - ' CH2O + HO2 --> HOCH2OO ', & - ' CH2O + NO3 --> HNO3 + CO + HO2 ', & - ' O + CH2O --> CO + OH + HO2 ', & - ' CH2O + OH --> VOC_OH + CO + HO2 + H2O ', & - ' 2 CH3O2 --> RO2_RO2 + 2 CH2O + 2 HO2 ', & - ' 2 CH3O2 --> RO2_RO2 + CH3OH + CH2O ', & - ' HO2 + CH3O2 --> RO2_HO2 + CH3OOH + O2 ', & - ' NO + CH3O2 --> RO2_NO + CH2O + NO2 + HO2 ', & - ' CH3OH + OH --> VOC_OH + CH2O + HO2 ', & - ' CH3OOH + OH --> VOC_OH + 0.3 CH2O + 0.3 OH + 0.7 CH3O2 + H2O ', & - ' CH4 + OH --> VOC_OH + CH3O2 + H2O ', & - ' HCN + OH --> VOC_OH + HO2 ', & - ' HCOOH + OH --> VOC_OH + HO2 + H2O + CO2 ', & - ' HOCH2OO + HO2 --> RO2_HO2 + HCOOH ', & - ' HOCH2OO --> CH2O + HO2 ', & - ' HOCH2OO + NO --> RO2_NO + HCOOH + NO2 + HO2 ', & - ' HCN + O1D --> OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_4 = (/ & - ' CO + OH --> VOC_OH + HO2 + CO2 ', & - ' C2H2 + OH --> VOC_OH + 0.35 HCOOH + 0.65 GLYOXAL + 0.35 CO + 0.65 OH + 0.35 HO2 ', & - ' C2H4 + O3 --> 0.37 HCOOH + 0.63 CO + CH2O + 0.13 OH + 0.13 HO2 ', & - ' 2 C2H5O2 --> RO2_RO2 + 0.4 C2H5OH + 1.6 CH3CHO + 1.2 HO2 ', & - ' C2H5O2 + CH3O2 --> RO2_RO2 + 0.2 C2H5OH + 0.3 CH3OH + 0.8 CH3CHO + 0.7 CH2O + HO2 ', & - ' C2H5O2 + HO2 --> RO2_HO2 + C2H5OOH + O2 ', & - ' C2H5O2 + NO --> RO2_NO + CH3CHO + NO2 + HO2 ', & - ' C2H5OH + OH --> VOC_OH + CH3CHO + HO2 ', & - ' C2H5OOH + OH --> VOC_OH + 0.5 C2H5O2 + 0.5 CH3CHO + 0.5 OH ', & - ' C2H6 + OH --> VOC_OH + C2H5O2 + H2O ', & - ' CH3CHO + NO3 --> HNO3 + CH3CO3 ', & - ' CH3CHO + OH --> VOC_OH + CH3CO3 + H2O ', & - ' CH3CN + OH --> VOC_OH + HO2 ', & - ' 2 CH3CO3 --> RO2_RO2 + 2 CH3O2 + 2 CO2 ', & - ' CH3CO3 + CH3O2 --> RO2_RO2 + 0.1 CH3COOH + CH2O + 0.9 HO2 + 0.9 CH3O2 + 0.9 CO2 ', & - ' HO2 + CH3CO3 --> RO2_HO2 + 0.15 CH3COOH + 0.4 CH3COOOH + 0.45 OH + 0.15 O3 + 0.45 CH3O2 ', & - ' CH3CO3 + NO --> RO2_NO + NO2 + CH3O2 + CO2 ', & - ' CH3COOH + OH --> VOC_OH + CH3O2 + H2O + CO2 ', & - ' CH3COOOH + OH --> VOC_OH + 0.5 CH2O + 0.5 CH3CO3 + H2O + 0.5 CO2 ', & - ' EO2 + HO2 --> RO2_HO2 + EOOH ', & - ' EO2 + NO --> RO2_NO + 0.75 EO + 0.5 CH2O + NO2 + 0.25 HO2 ', & - ' EO --> 2 CH2O + HO2 ', & - ' EO + O2 --> GLYALD + HO2 ', & - ' GLYALD + OH --> VOC_OH + 0.2 GLYOXAL + 0.8 CH2O + HO2 + 0.8 CO2 ', & - ' GLYOXAL + OH --> VOC_OH + CO + HO2 + CO2 ', & - ' PAN + OH --> VOC_OH + CH2O + NO3 ', & - ' C2H4 + OH --> VOC_OH + EO2 ', & - ' NO2 + CH3CO3 --> PAN ', & - ' PAN + M --> NO2 + CH3CO3 + M ', & - ' C3H6 + NO3 --> NOA ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_5 = (/ & - ' C3H6 + O3 --> 0.12 CH3COOH + 0.1 CH4 + 0.12 HCOOH + 0.56 CO + 0.5 CH3CHO + 0.5 CH2O + 0.36 OH + 0.28 HO2 + 0.28 CH3O2 + 0.2 CO2 ', & - ' C3H7O2 + CH3O2 --> RO2_RO2 + 0.82 CH3COCH3 + CH2O + HO2 ', & - ' C3H7O2 + HO2 --> RO2_HO2 + C3H7OOH + O2 ', & - ' C3H7O2 + NO --> RO2_NO + 0.82 CH3COCH3 + 0.27 CH3CHO + NO2 + HO2 ', & - ' C3H7OOH + OH --> VOC_OH + C3H7O2 + H2O ', & - ' C3H8 + OH --> VOC_OH + C3H7O2 + H2O ', & - ' CH3COCHO + NO3 --> HNO3 + CO + CH3CO3 ', & - ' CH3COCHO + OH --> VOC_OH + CO + CH3CO3 + H2O ', & - ' HYAC + OH --> VOC_OH + CH3COCHO + HO2 ', & - ' NOA + OH --> CH3COCHO + NO2 ', & - ' PO2 + HO2 --> RO2_HO2 + POOH + O2 ', & - ' PO2 + NO --> RO2_NO + CH3CHO + CH2O + NO2 + HO2 ', & - ' POOH + OH --> 0.5 PO2 + 0.5 HYAC + 0.5 OH + H2O ', & - ' RO2 + CH3O2 --> RO2_RO2 + 0.5 CH3OH + 0.2 HYAC + 0.5 CH3COCHO + 0.8 CH2O + 0.3 HO2 + 0.3 CH3CO3 ', & - ' RO2 + HO2 --> RO2_HO2 + 0.85 ROOH + 0.15 CH2O + 0.15 OH + 0.15 CH3CO3 ', & - ' RO2 + NO --> RO2_NO + CH2O + NO2 + CH3CO3 ', & - ' ROOH + OH --> RO2 + H2O ', & - ' C3H6 + OH --> VOC_OH + PO2 ', & - ' CH3COCH3 + OH --> VOC_OH + RO2 + H2O ', & - ' BIGENE + NO3 --> 0.5 CH3COCH3 + CH3CHO + 0.5 CH2O + NO2 ', & - ' BIGENE + OH --> VOC_OH + ENEO2 ', & - ' ENEO2 + NO --> RO2_NO + 0.5 CH3COCH3 + CH3CHO + 0.5 CH2O + NO2 + HO2 ', & - ' ENEO2 + NO --> RO2_NO + HONITR ', & - ' HONITR + OH --> VOC_OH + ONITR + HO2 ', & - ' MACRO2 + CH3CO3 --> 0.22 CO + 0.53 GLYALD + 0.22 HYAC + 0.25 CH3COCHO + 0.25 CH2O + 0.47 HO2 + 0.53 CH3CO3 + CH3O2 ', & - ' MACRO2 + CH3O2 --> 0.25 CH3OH + 0.11 CO + 0.26 GLYALD + 0.23 HYAC + 0.24 CH3COCHO + 0.88 CH2O + 0.73 HO2 + 0.26 CH3CO3 ', & - ' MACRO2 + HO2 --> MACROOH ', & - ' MACRO2 + NO3 --> 0.22 CO + 0.53 GLYALD + 0.22 HYAC + 0.25 CH3COCHO + 0.25 CH2O + NO2 + 0.47 HO2 + 0.53 CH3CO3 ', & - ' MACRO2 + NO --> 0.22 CO + 0.53 GLYALD + 0.22 HYAC + 0.25 CH3COCHO + 0.25 CH2O + NO2 + 0.47 HO2 + 0.53 CH3CO3 ', & - ' MACRO2 + NO --> HONITR ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_6 = (/ & - ' MACR + O3 --> 0.33 HCOOH + 0.65 CO + 0.88 CH3COCHO + 0.12 CH2O + 0.24 OH + 0.14 HO2 + 0.1 CH3CO3 ', & - ' MACR + OH --> VOC_OH + 0.5 MACRO2 + 0.5 MCO3 + 0.5 H2O ', & - ' MACROOH + OH --> VOC_OH + 0.2 MACRO2 + 0.1 OH + 0.2 HO2 + 0.5 MCO3 ', & - ' CH3CO3 + MCO3 --> CH2O + CH3CO3 + CH3O2 + 2 CO2 ', & - ' MCO3 + CH3O2 --> 2 CH2O + HO2 + CH3CO3 + CO2 ', & - ' HO2 + MCO3 --> 0.15 CH3COOH + 0.4 CH3COOOH + 0.45 CH2O + 0.45 OH + 0.15 O3 + 0.45 CH3CO3 + 0.45 CO2 ', & - ' 2 MCO3 --> 2 CH2O + 2 CH3CO3 + 2 CO2 ', & - ' NO + MCO3 --> CH2O + NO2 + CH3CO3 ', & - ' NO3 + MCO3 --> CH2O + NO2 + CH3CO3 ', & - ' MEKO2 + HO2 --> RO2_HO2 + 0.8 MEKOOH + 0.2 CH3CHO + 0.2 OH + 0.2 CH3CO3 ', & - ' MEKO2 + NO --> RO2_NO + CH3CHO + NO2 + CH3CO3 ', & - ' MEK + OH --> VOC_OH + MEKO2 ', & - ' MEKOOH + OH --> MEKO2 ', & - ' MPAN + OH --> VOC_OH + 0.5 HYAC + 0.5 CH2O + 0.5 HO2 + 0.5 NO3 + 0.5 CO2 ', & - ' MVK + O3 --> 0.12 HCOOH + 0.56 CO + 0.1 CH3CHO + 0.5 CH3COCHO + 0.6 CH2O + 0.36 OH + 0.28 HO2 + 0.28 CH3CO3 + 0.1 CO2 ', & - ' MVK + OH --> VOC_OH + MACRO2 ', & - ' NO2 + MCO3 + M --> MPAN + M ', & - ' MPAN + M --> NO2 + MCO3 + M ', & - ' ALKNIT + OH --> 0.8 CH3COCH3 + 0.8 CH3CHO + 0.4 CH2O + NO2 ', & - ' ALKO2 + HO2 --> RO2_HO2 + ALKOOH ', & - ' ALKO2 + NO --> RO2_NO + 0.8 MEK + 0.25 CH3COCH3 + 0.4 CH3CHO + 0.1 CH2O + NO2 + HO2 ', & - ' ALKO2 + NO --> RO2_NO + ALKNIT ', & - ' ALKOOH + OH --> VOC_OH + ALKO2 ', & - ' BIGALK + OH --> VOC_OH + ALKO2 ', & - ' HPALD + OH --> VOC_OH + XO2 ', & - ' HYDRALD + OH --> VOC_OH + XO2 ', & - ' IEPOX + OH --> VOC_OH + XO2 ', & - 'ISOPAO2 + CH3CO3 --> RO2_RO2 + 0.39 MACR + 0.61 MVK + CH2O + HO2 + CH3O2 + CO2 ', & - ' ISOPAO2 + CH3O2 --> RO2_RO2 + 0.25 CH3OH + 0.31 MACR + 0.44 MVK + 1.5 CH2O + HO2 ', & - ' ISOPAO2 + HO2 --> RO2_HO2 + ISOPOOH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_7 = (/ & - ' ISOPAO2 + NO --> RO2_NO + 0.08 ISOPNITA + 0.36 MACR + 0.56 MVK + 0.92 CH2O + 0.92 NO2 + 0.92 HO2 ', & - ' ISOPAO2 + NO3 --> 0.4 MACR + 0.6 MVK + CH2O + NO2 + HO2 ', & - 'ISOPBO2 + CH3CO3 --> RO2_RO2 + HYDRALD + HO2 + CH3O2 ', & - ' ISOPBO2 + CH3O2 --> RO2_RO2 + 0.75 HYDRALD + 0.25 CH3OH + 0.75 CH2O + HO2 ', & - ' ISOPBO2 + HO2 --> RO2_HO2 + ISOPOOH ', & - ' ISOPBO2 --> HPALD + HO2 ', & - ' ISOPBO2 + NO --> RO2_NO + 0.87 HYDRALD + 0.08 ISOPNITB + 0.05 GLYOXAL + 0.05 GLYALD + 0.05 HYAC + 0.05 CH3COCHO + 0.92 NO2 + 0.92 HO2 ', & - ' ISOPBO2 + NO3 --> 0.95 HYDRALD + 0.05 GLYOXAL + 0.05 GLYALD + 0.05 HYAC + 0.05 CH3COCHO + NO2 + HO2 ', & - ' ISOPNITA + OH --> VOC_OH + 0.7 GLYALD + 0.7 HYAC + 0.3 HONITR + 0.3 CH2O + 0.7 NO2 + 0.3 HO2 ', & - ' ISOPNITB + OH --> VOC_OH + 0.5 NOA + 0.5 GLYALD + 0.5 HYAC + 0.5 HONITR + HO2 ', & - ' ISOP + NO3 --> ISOPNO3 ', & - 'ISOPNO3 + CH3CO3 --> NC4CHO + HO2 + CH3O2 ', & - ' ISOPNO3 + CH3O2 --> 0.2 NC4CH2OH + 0.2 CH3OH + 0.8 NC4CHO + 0.8 CH2O + 1.2 HO2 ', & - ' ISOPNO3 + HO2 --> ISOPNOOH ', & - ' ISOPNO3 + NO --> NC4CHO + NO2 + HO2 ', & - ' ISOPNO3 + NO3 --> NC4CHO + NO2 + HO2 ', & - ' ISOPNOOH + OH --> VOC_OH + NOA + HO2 ', & - ' ISOP + O3 --> 0.11 HCOOH + 0.62 CO + 0.13 C3H6 + 0.3 MACR + 0.2 MVK + 0.91 CH2O + 0.32 OH + 0.37 HO2 + 0.08 CH3CO3 + 0.05 CH3O2 ', & - ' ISOP + OH --> VOC_OH + 0.6 ISOPAO2 + 0.4 ISOPBO2 ', & - ' ISOPOOH + OH --> VOC_OH + 0.6 IEPOX + 0.4 XO2 + 0.6 OH ', & - ' NC4CH2OH + OH --> VOC_OH + NOA + GLYALD + HO2 ', & - ' NC4CHO + OH --> VOC_OH + GLYOXAL + NOA + HO2 ', & - ' XO2 + CH3CO3 --> RO2_RO2 + 0.25 GLYOXAL + 0.25 CO + 0.25 GLYALD + 0.25 HYAC + 0.25 CH3COCHO + 0.25 CH2O + HO2 + CH3O2 + CO2 ', & - ' XO2 + CH3O2 --> RO2_RO2 + 0.3 CH3OH + 0.1 GLYOXAL + 0.2 CO + 0.1 GLYALD + 0.1 HYAC + 0.1 CH3COCHO + 0.8 CH2O + 0.8 HO2 ', & - ' XO2 + HO2 --> RO2_HO2 + XOOH ', & - ' XO2 + NO --> RO2_NO + 0.25 GLYOXAL + 0.25 CO + 0.25 GLYALD + 0.25 HYAC + 0.25 CH3COCHO + 0.25 CH2O + NO2 + HO2 ', & - ' XO2 + NO3 --> 0.25 GLYOXAL + 0.5 CO + 0.25 GLYALD + 0.25 HYAC + 0.25 CH3COCHO + NO2 + HO2 ', & - ' XOOH + OH --> VOC_OH + 0.5 XO2 + 0.5 OH ', & - ' HMPROPO2 + HO2 --> 0.4 CH3COCH3 + 0.4 OH + 0.4 HO2 + 0.4 CO2 ', & - ' HMPROPO2 + NO --> CH3COCH3 + NO2 + HO2 + CO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_8 = (/ & - ' HMPROP + OH --> HMPROPO2 ', & - ' MBO + NO3 --> MBONO3O2 ', & - ' MBONO3O2 + HO2 --> RO2_HO2 ', & - ' MBONO3O2 + NO --> RO2_NO + 0.25 HMPROP + 0.75 CH3COCH3 + 0.75 HONITR + 0.25 CH2O + 1.25 NO2 + 0.75 HO2 ', & - ' MBONO3O2 + NO3 --> 0.25 HMPROP + 0.75 CH3COCH3 + 0.75 HONITR + 0.25 CH2O + 1.25 NO2 + 0.75 HO2 ', & - ' MBOO2 + CH3O2 --> RO2_RO2 + 0.25 CH3OH + 0.167 HMPROP + 0.333 CH3COCH3 + 0.333 GLYALD + 0.917 CH2O + HO2 ', & - ' MBOO2 + HO2 --> RO2_HO2 + MBOOOH ', & - ' MBOO2 + NO --> RO2_NO + 0.33 HMPROP + 0.67 CH3COCH3 + 0.67 GLYALD + 0.33 CH2O + NO2 + HO2 ', & - ' MBO + O3 --> 0.17 HCOOH + 0.7 HMPROP + 0.23 CH3COCH3 + 0.64 CO + 0.3 CH2O + 0.36 OH + 0.48 HO2 ', & - ' MBO + OH --> VOC_OH + MBOO2 ', & - ' MBOOOH + OH --> VOC_OH + 0.5 MBOO2 + 0.5 OH ', & - ' ACBZO2 + HO2 --> RO2_HO2 + 0.4 C6H5O2 + 0.4 OH ', & - ' ACBZO2 + NO --> RO2_NO + C6H5O2 + NO2 ', & - ' BENO2 + HO2 --> BENOOH ', & - ' BENO2 + NO --> 0.9 GLYOXAL + 0.9 BIGALD + 0.9 NO2 + 0.9 HO2 ', & - ' BENZENE + OH --> VOC_OH + 0.12 BEPOMUC + 0.53 PHENOL + 0.35 BENZO2 + 0.65 HO2 ', & - ' BENZO2 + HO2 --> RO2_HO2 + BENZOOH ', & - ' BENZO2 + NO --> RO2_NO + 0.5 BIGALD1 + GLYOXAL + NO2 + HO2 ', & - ' BENZOOH + OH --> BENZO2 ', & - ' BZALD + OH --> ACBZO2 ', & - ' BZOO + HO2 --> RO2_HO2 + BZOOH ', & - ' BZOOH + OH --> BZOO ', & - ' BZOO + NO --> RO2_NO + BZALD + NO2 + HO2 ', & - ' C6H5O2 + HO2 --> RO2_HO2 + C6H5OOH ', & - ' C6H5O2 + NO --> RO2_NO + PHENO + NO2 ', & - ' C6H5OOH + OH --> VOC_OH + C6H5O2 ', & - ' CRESOL + OH --> VOC_OH + 0.2 PHENO2 + 0.07 PHENO + 0.73 HO2 ', & - ' DICARBO2 + HO2 --> 0.07 CO + 0.07 CH3COCHO + 0.4 OH + 0.07 HO2 + 0.33 CH3O2 ', & - ' DICARBO2 + NO --> 0.17 CO + 0.17 CH3COCHO + NO2 + 0.17 HO2 + 0.83 CH3O2 ', & - ' DICARBO2 + NO2 --> M ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_9 = (/ & - ' MALO2 + HO2 --> RO2_HO2 + 0.16 GLYOXAL + 0.16 CO + 0.16 HO2 ', & - ' MALO2 + NO --> RO2_NO + 0.4 GLYOXAL + 0.4 CO + NO2 + 0.4 HO2 ', & - ' MALO2 + NO2 --> M ', & - ' MDIALO2 + HO2 --> RO2_HO2 + 0.07 GLYOXAL + 0.14 CO + 0.07 CH3COCHO + 0.4 OH + 0.33 HO2 + 0.07 CH3O2 ', & - ' MDIALO2 + NO --> RO2_NO + 0.17 GLYOXAL + 0.35 CO + 0.17 CH3COCHO + NO2 + 0.83 HO2 + 0.17 CH3O2 ', & - ' MDIALO2 + NO2 --> M ', & - ' PHENO2 + HO2 --> RO2_HO2 + PHENOOH ', & - ' PHENO2 + NO --> RO2_NO + 0.7 GLYOXAL + NO2 + HO2 ', & - ' PHENOL + OH --> VOC_OH + 0.14 PHENO2 + 0.06 PHENO + 0.8 HO2 ', & - ' PHENO + NO2 --> M ', & - ' PHENO + O3 --> C6H5O2 ', & - ' PHENOOH + OH --> VOC_OH + PHENO2 ', & - ' ACBZO2 + NO2 --> PBZNIT ', & - ' TOLO2 + HO2 --> RO2_HO2 + TOLOOH ', & - ' TOLO2 + NO --> RO2_NO + 0.2 BIGALD2 + 0.2 BIGALD1 + 0.2 BIGALD3 + 0.6 GLYOXAL + 0.4 CH3COCHO + NO2 + HO2 ', & - ' TOLOOH + OH --> VOC_OH + TOLO2 ', & - ' TOLUENE + OH --> VOC_OH + 0.18 CRESOL + 0.1 TEPOMUC + 0.07 BZOO + 0.65 TOLO2 + 0.28 HO2 ', & - ' PBZNIT + M --> ACBZO2 + NO2 + M ', & - ' XYLENES + OH --> VOC_OH + 0.23 TEPOMUC + 0.15 XYLOL + 0.06 BZOO + 0.56 XYLENO2 + 0.38 HO2 ', & - ' XYLENO2 + HO2 --> RO2_HO2 + XYLENOOH ', & - ' XYLENO2 + NO --> RO2_NO + 0.2 BIGALD2 + 0.21 BIGALD4 + 0.06 BIGALD1 + 0.15 BIGALD3 + 0.34 GLYOXAL + 0.54 CH3COCHO + NO2 + HO2 ', & - ' XYLENOOH + OH --> VOC_OH + XYLENO2 ', & - ' XYLOLO2 + HO2 --> RO2_HO2 + XYLOLOOH ', & - ' XYLOLO2 + NO --> RO2_NO + 0.17 GLYOXAL + 0.51 CH3COCHO + NO2 + HO2 ', & - ' XYLOL + OH --> 0.07 PHENO + 0.3 XYLOLO2 + 0.63 HO2 ', & - ' XYLOLOOH + OH --> VOC_OH + XYLOLO2 ', & - ' APIN + NO3 --> NTERPO2 ', & - ' APIN + O3 --> 0.05 BIGALK + 0.05 HCOOH + 0.1 BIGALD + 0.52 CH3COCH3 + 0.23 CO + 0.3 TERPROD2 + 0.33 TERPROD1 + 0.06 RO2 + 0.34 CH2O + 0.63 OH + 0.57 HO2 + 0.06 CH3CO3 + 0.27 CO2 ', & - ' APIN + OH --> VOC_OH + TERPO2 ', & - ' BCARY + NO3 --> NTERPO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_10 = (/ & - ' BCARY + O3 --> 0.05 BIGALK + 0.05 HCOOH + 0.1 BIGALD + 0.52 CH3COCH3 + 0.23 CO + 0.3 TERPROD2 + 0.33 TERPROD1 + 0.06 RO2 + 0.34 CH2O + 0.63 OH + 0.57 HO2 + 0.06 CH3CO3 + 0.27 CO2 ', & - ' BCARY + OH --> VOC_OH + TERPO2 ', & - ' BPIN + NO3 --> NTERPO2 ', & - ' BPIN + O3 --> 0.05 BIGALK + 0.05 HCOOH + 0.1 BIGALD + 0.52 CH3COCH3 + 0.23 CO + 0.3 TERPROD2 + 0.33 TERPROD1 + 0.06 RO2 + 0.34 CH2O + 0.63 OH + 0.57 HO2 + 0.06 CH3CO3 + 0.27 CO2 ', & - ' BPIN + OH --> VOC_OH + TERPO2 ', & - ' LIMON + NO3 --> NTERPO2 ', & - ' LIMON + O3 --> 0.05 BIGALK + 0.05 HCOOH + 0.1 BIGALD + 0.52 CH3COCH3 + 0.23 CO + 0.3 TERPROD2 + 0.33 TERPROD1 + 0.06 RO2 + 0.34 CH2O + 0.63 OH + 0.57 HO2 + 0.06 CH3CO3 + 0.27 CO2 ', & - ' LIMON + OH --> VOC_OH + TERPO2 ', & - ' MYRC + NO3 --> NTERPO2 ', & - ' MYRC + O3 --> 0.05 BIGALK + 0.05 HCOOH + 0.1 BIGALD + 0.52 CH3COCH3 + 0.23 CO + 0.3 TERPROD2 + 0.33 TERPROD1 + 0.06 RO2 + 0.34 CH2O + 0.63 OH + 0.57 HO2 + 0.06 CH3CO3 + 0.27 CO2 ', & - ' MYRC + OH --> VOC_OH + TERPO2 ', & - ' NTERPO2 + CH3O2 --> RO2_RO2 + 0.5 TERPNIT + 0.25 CH3OH + 0.5 TERPROD1 + 0.75 CH2O + 0.5 NO2 + 0.5 HO2 ', & - ' NTERPO2 + HO2 --> RO2_HO2 + NTERPOOH ', & - ' NTERPO2 + NO --> RO2_NO + 0.2 TERPNIT + 0.8 TERPROD1 + 1.6 NO2 ', & - ' NTERPO2 + NO3 --> TERPROD1 + 2 NO2 ', & - ' NTERPOOH + OH --> VOC_OH + NTERPO2 ', & - ' TERP2O2 + CH3O2 --> RO2_RO2 + 0.25 CH3OH + 0.15 CH3COCH3 + 0.125 CO + 0.125 GLYALD + TERPROD2 + 0.93 CH2O + HO2 + 0.5 CO2 ', & - ' TERP2O2 + HO2 --> RO2_HO2 + TERP2OOH ', & - ' TERP2O2 + NO --> RO2_NO + 0.1 ONITR + 0.27 CH3COCH3 + 0.225 CO + 0.225 GLYALD + 0.9 TERPROD2 + 0.34 CH2O + 0.9 NO2 + 0.9 HO2 + 0.9 CO2 ', & - ' TERP2OOH + OH --> VOC_OH + TERP2O2 ', & - ' TERPNIT + OH --> VOC_OH + TERPROD1 + NO2 ', & - ' TERPO2 + CH3O2 --> RO2_RO2 + 0.25 CH3OH + 0.025 CH3COCH3 + TERPROD1 + 0.95 CH2O + HO2 ', & - ' TERPO2 + HO2 --> RO2_HO2 + TERPOOH ', & - ' TERPO2 + NO --> RO2_NO + 0.2 TERPNIT + 0.04 CH3COCH3 + 0.8 TERPROD1 + 0.32 CH2O + 0.8 NO2 + 0.8 HO2 ', & - ' TERPOOH + OH --> VOC_OH + TERPO2 ', & - ' TERPROD1 + NO3 --> 0.5 TERP2O2 + 0.5 NTERPO2 ', & - ' TERPROD1 + OH --> TERP2O2 ', & - ' TERPROD2 + OH --> 0.5 CH3COCH3 + 0.7 CO + 0.15 RO2 + 0.68 CH2O + 0.2 HO2 + 0.65 CH3CO3 + 1.8 CO2 ', & - ' DMS + NO3 --> SO2 + HNO3 ', & - ' DMS + OH --> SO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_11 = (/ & - ' NH3 + OH --> H2O ', & - ' DMS + OH --> 0.5 SO2 + 0.5 HO2 ', & - ' HO2 --> 0.5 H2O2 ', & - ' N2O5 --> 2 HNO3 ', & - ' NO2 --> 0.5 HNO3 + 0.5 OH + 0.5 NO ', & - ' NO3 --> HNO3 ', & - ' SO2 + OH --> SO4 ', & - ' APIN + NO3 --> 0.17493 SOAG3 + 0.59019 SOAG4 + APIN + NO3 ', & - ' APIN + O3 --> 0.0508 SOAG0 + 0.1149 SOAG1 + 0.0348 SOAG2 + 0.0554 SOAG3 + 0.1278 SOAG4 + APIN + O3 ', & - ' APIN + OH --> 0.0508 SOAG0 + 0.1149 SOAG1 + 0.0348 SOAG2 + 0.0554 SOAG3 + 0.1278 SOAG4 + VOC_OH + APIN + OH ', & - ' BCARY + NO3 --> 0.17493 SOAG3 + 0.59019 SOAG4 + BCARY + NO3 ', & - ' BCARY + O3 --> 0.2202 SOAG0 + 0.2067 SOAG1 + 0.0653 SOAG2 + 0.1284 SOAG3 + 0.114 SOAG4 + BCARY + O3 ', & - ' BCARY + OH --> 0.2202 SOAG0 + 0.2067 SOAG1 + 0.0653 SOAG2 + 0.1284 SOAG3 + 0.114 SOAG4 + VOC_OH + BCARY + OH ', & - ' BENZENE + OH --> 0.0023 SOAG0 + 0.0008 SOAG1 + 0.0843 SOAG2 + 0.0443 SOAG3 + 0.1621 SOAG4 + VOC_OH + BENZENE + OH ', & - ' BPIN + NO3 --> 0.17493 SOAG3 + 0.59019 SOAG4 + BPIN + NO3 ', & - ' BPIN + O3 --> 0.0508 SOAG0 + 0.1149 SOAG1 + 0.0348 SOAG2 + 0.0554 SOAG3 + 0.1278 SOAG4 + BPIN + O3 ', & - ' BPIN + OH --> 0.0508 SOAG0 + 0.1149 SOAG1 + 0.0348 SOAG2 + 0.0554 SOAG3 + 0.1278 SOAG4 + VOC_OH + BPIN + OH ', & - ' ISOP + NO3 --> 0.059024 SOAG3 + 0.025024 SOAG4 + ISOP + NO3 ', & - ' ISOP + O3 --> 0.0033 SOAG3 + ISOP + O3 ', & - ' ISOP + OH --> 0.0031 SOAG0 + 0.0035 SOAG1 + 0.0003 SOAG2 + 0.0271 SOAG3 + 0.0474 SOAG4 + VOC_OH + ISOP + OH ', & - ' IVOC + OH --> 0.2381 SOAG0 + 0.1308 SOAG1 + 0.0348 SOAG2 + 0.0076 SOAG3 + 0.0113 SOAG4 + OH ', & - ' LIMON + NO3 --> 0.17493 SOAG3 + 0.59019 SOAG4 + LIMON + NO3 ', & - ' LIMON + O3 --> 0.0508 SOAG0 + 0.1149 SOAG1 + 0.0348 SOAG2 + 0.0554 SOAG3 + 0.1278 SOAG4 + LIMON + O3 ', & - ' LIMON + OH --> 0.0508 SOAG0 + 0.1149 SOAG1 + 0.0348 SOAG2 + 0.0554 SOAG3 + 0.1278 SOAG4 + VOC_OH + LIMON + OH ', & - ' MYRC + NO3 --> 0.17493 SOAG3 + 0.59019 SOAG4 + MYRC + NO3 ', & - ' MYRC + O3 --> 0.0508 SOAG0 + 0.1149 SOAG1 + 0.0348 SOAG2 + 0.0554 SOAG3 + 0.1278 SOAG4 + MYRC + O3 ', & - ' MYRC + OH --> 0.0508 SOAG0 + 0.1149 SOAG1 + 0.0348 SOAG2 + 0.0554 SOAG3 + 0.1278 SOAG4 + VOC_OH + MYRC + OH ', & - ' SVOC + OH --> 0.5931 SOAG0 + 0.1534 SOAG1 + 0.0459 SOAG2 + 0.0085 SOAG3 + 0.0128 SOAG4 + OH ', & - ' TOLUENE + OH --> 0.1364 SOAG0 + 0.0101 SOAG1 + 0.0763 SOAG2 + 0.2157 SOAG3 + 0.0232 SOAG4 + VOC_OH + TOLUENE + OH ', & - ' XYLENES + OH --> 0.1677 SOAG0 + 0.0174 SOAG1 + 0.086 SOAG2 + 0.0512 SOAG3 + 0.1598 SOAG4 + VOC_OH + XYLENES + OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(360) :: EQN_NAMES = (/& - EQN_NAMES_0, EQN_NAMES_1, EQN_NAMES_2, EQN_NAMES_3, EQN_NAMES_4, & - EQN_NAMES_5, EQN_NAMES_6, EQN_NAMES_7, EQN_NAMES_8, EQN_NAMES_9, & - EQN_NAMES_10, EQN_NAMES_11 /) - -! INLINED global variables - -! End INLINED global variables - - -END MODULE MOZART_T1_Monitor diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Monitor.o b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Monitor.o deleted file mode 100644 index eac31571d8757f860dd823514c3c170383c764f6..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Monitor.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Parameters.f90 b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Parameters.f90 deleted file mode 100644 index 00000e34fe2dae44c7039825401b8a6ca46aab34..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Parameters.f90 +++ /dev/null @@ -1,245 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Parameter Module File -! -! Generated by KPP-2.2.3 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 : MOZART_T1_Parameters.f90 -! Time : Wed Jan 27 13:13:50 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_T1_20754_BOXMOX -! Equation file : MOZART_T1.kpp -! Output root filename : MOZART_T1 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MOZART_T1_Parameters - - USE MOZART_T1_Precision - PUBLIC - SAVE - - -! NSPEC - Number of chemical species - INTEGER, PARAMETER :: NSPEC = 160 -! NVAR - Number of Variable species - INTEGER, PARAMETER :: NVAR = 155 -! NVARACT - Number of Active species - INTEGER, PARAMETER :: NVARACT = 144 -! NFIX - Number of Fixed species - INTEGER, PARAMETER :: NFIX = 5 -! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 360 -! NVARST - Starting of variables in conc. vect. - INTEGER, PARAMETER :: NVARST = 1 -! NFIXST - Starting of fixed in conc. vect. - INTEGER, PARAMETER :: NFIXST = 156 -! NONZERO - Number of nonzero entries in Jacobian - INTEGER, PARAMETER :: NONZERO = 1626 -! LU_NONZERO - Number of nonzero entries in LU factoriz. of Jacobian - INTEGER, PARAMETER :: LU_NONZERO = 1826 -! CNVAR - (NVAR+1) Number of elements in compressed row format - INTEGER, PARAMETER :: CNVAR = 156 -! CNEQN - (NREACT+1) Number stoicm elements in compressed col format - INTEGER, PARAMETER :: CNEQN = 361 -! NLOOKAT - Number of species to look at - INTEGER, PARAMETER :: NLOOKAT = 160 -! NMONITOR - Number of species to monitor - INTEGER, PARAMETER :: NMONITOR = 0 -! NMASS - Number of atoms to check mass balance - INTEGER, PARAMETER :: NMASS = 1 - -! Index declaration for variable species in C and VAR -! VAR(ind_spc) = C(ind_spc) - - INTEGER, PARAMETER :: ind_BENOOH = 1 - INTEGER, PARAMETER :: ind_SO4 = 2 - INTEGER, PARAMETER :: ind_SOAG0 = 3 - INTEGER, PARAMETER :: ind_SOAG1 = 4 - INTEGER, PARAMETER :: ind_SOAG2 = 5 - INTEGER, PARAMETER :: ind_SOAG3 = 6 - INTEGER, PARAMETER :: ind_SOAG4 = 7 - INTEGER, PARAMETER :: ind_IVOC = 8 - INTEGER, PARAMETER :: ind_SVOC = 9 - INTEGER, PARAMETER :: ind_RO2_RO2 = 10 - INTEGER, PARAMETER :: ind_RO2_HO2 = 11 - INTEGER, PARAMETER :: ind_RO2_NO = 12 - INTEGER, PARAMETER :: ind_VOC_OH = 13 - INTEGER, PARAMETER :: ind_NH3 = 14 - INTEGER, PARAMETER :: ind_C2H6 = 15 - INTEGER, PARAMETER :: ind_C3H8 = 16 - INTEGER, PARAMETER :: ind_CH3CN = 17 - INTEGER, PARAMETER :: ind_N2O = 18 - INTEGER, PARAMETER :: ind_SO2 = 19 - INTEGER, PARAMETER :: ind_EOOH = 20 - INTEGER, PARAMETER :: ind_IEPOX = 21 - INTEGER, PARAMETER :: ind_ONITR = 22 - INTEGER, PARAMETER :: ind_PBZNIT = 23 - INTEGER, PARAMETER :: ind_C2H2 = 24 - INTEGER, PARAMETER :: ind_BENZENE = 25 - INTEGER, PARAMETER :: ind_BEPOMUC = 26 - INTEGER, PARAMETER :: ind_PHENOL = 27 - INTEGER, PARAMETER :: ind_HCN = 28 - INTEGER, PARAMETER :: ind_N2O5 = 29 - INTEGER, PARAMETER :: ind_TOLUENE = 30 - INTEGER, PARAMETER :: ind_CRESOL = 31 - INTEGER, PARAMETER :: ind_TEPOMUC = 32 - INTEGER, PARAMETER :: ind_XOOH = 33 - INTEGER, PARAMETER :: ind_XYLENES = 34 - INTEGER, PARAMETER :: ind_XYLOL = 35 - INTEGER, PARAMETER :: ind_DMS = 36 - INTEGER, PARAMETER :: ind_HPALD = 37 - INTEGER, PARAMETER :: ind_BZALD = 38 - INTEGER, PARAMETER :: ind_H2O2 = 39 - INTEGER, PARAMETER :: ind_C2H5OH = 40 - INTEGER, PARAMETER :: ind_C6H5OOH = 41 - INTEGER, PARAMETER :: ind_EO = 42 - INTEGER, PARAMETER :: ind_BENO2 = 43 - INTEGER, PARAMETER :: ind_BIGALD2 = 44 - INTEGER, PARAMETER :: ind_HO2NO2 = 45 - INTEGER, PARAMETER :: ind_HYDRALD = 46 - INTEGER, PARAMETER :: ind_CH3OOH = 47 - INTEGER, PARAMETER :: ind_MACROOH = 48 - INTEGER, PARAMETER :: ind_MEKOOH = 49 - INTEGER, PARAMETER :: ind_BZOOH = 50 - INTEGER, PARAMETER :: ind_NC4CH2OH = 51 - INTEGER, PARAMETER :: ind_NTERPOOH = 52 - INTEGER, PARAMETER :: ind_C2H5OOH = 53 - INTEGER, PARAMETER :: ind_PHENOOH = 54 - INTEGER, PARAMETER :: ind_ROOH = 55 - INTEGER, PARAMETER :: ind_C3H7OOH = 56 - INTEGER, PARAMETER :: ind_BIGALD4 = 57 - INTEGER, PARAMETER :: ind_BIGALK = 58 - INTEGER, PARAMETER :: ind_BIGENE = 59 - INTEGER, PARAMETER :: ind_C2H4 = 60 - INTEGER, PARAMETER :: ind_CH3COOH = 61 - INTEGER, PARAMETER :: ind_ISOPNOOH = 62 - INTEGER, PARAMETER :: ind_XYLOLOOH = 63 - INTEGER, PARAMETER :: ind_BZOO = 64 - INTEGER, PARAMETER :: ind_HOCH2OO = 65 - INTEGER, PARAMETER :: ind_PHENO2 = 66 - INTEGER, PARAMETER :: ind_BENZOOH = 67 - INTEGER, PARAMETER :: ind_CH3COOOH = 68 - INTEGER, PARAMETER :: ind_BIGALD1 = 69 - INTEGER, PARAMETER :: ind_HNO3 = 70 - INTEGER, PARAMETER :: ind_PAN = 71 - INTEGER, PARAMETER :: ind_ISOPNITB = 72 - INTEGER, PARAMETER :: ind_PHENO = 73 - INTEGER, PARAMETER :: ind_POOH = 74 - INTEGER, PARAMETER :: ind_TERPOOH = 75 - INTEGER, PARAMETER :: ind_BENZO2 = 76 - INTEGER, PARAMETER :: ind_XYLOLO2 = 77 - INTEGER, PARAMETER :: ind_MEK = 78 - INTEGER, PARAMETER :: ind_HMPROPO2 = 79 - INTEGER, PARAMETER :: ind_TERPNIT = 80 - INTEGER, PARAMETER :: ind_ACBZO2 = 81 - INTEGER, PARAMETER :: ind_H2 = 82 - INTEGER, PARAMETER :: ind_MBOOOH = 83 - INTEGER, PARAMETER :: ind_MPAN = 84 - INTEGER, PARAMETER :: ind_ISOPNITA = 85 - INTEGER, PARAMETER :: ind_ENEO2 = 86 - INTEGER, PARAMETER :: ind_CH4 = 87 - INTEGER, PARAMETER :: ind_TERP2OOH = 88 - INTEGER, PARAMETER :: ind_TOLOOH = 89 - INTEGER, PARAMETER :: ind_EO2 = 90 - INTEGER, PARAMETER :: ind_BIGALD3 = 91 - INTEGER, PARAMETER :: ind_C6H5O2 = 92 - INTEGER, PARAMETER :: ind_ALKNIT = 93 - INTEGER, PARAMETER :: ind_ALKOOH = 94 - INTEGER, PARAMETER :: ind_MEKO2 = 95 - INTEGER, PARAMETER :: ind_PO2 = 96 - INTEGER, PARAMETER :: ind_ISOPOOH = 97 - INTEGER, PARAMETER :: ind_XYLENOOH = 98 - INTEGER, PARAMETER :: ind_TOLO2 = 99 - INTEGER, PARAMETER :: ind_MALO2 = 100 - INTEGER, PARAMETER :: ind_XYLENO2 = 101 - INTEGER, PARAMETER :: ind_DICARBO2 = 102 - INTEGER, PARAMETER :: ind_HCOOH = 103 - INTEGER, PARAMETER :: ind_MBO = 104 - INTEGER, PARAMETER :: ind_C3H7O2 = 105 - INTEGER, PARAMETER :: ind_O1D = 106 - INTEGER, PARAMETER :: ind_CH3OH = 107 - INTEGER, PARAMETER :: ind_C2H5O2 = 108 - INTEGER, PARAMETER :: ind_GLYOXAL = 109 - INTEGER, PARAMETER :: ind_NC4CHO = 110 - INTEGER, PARAMETER :: ind_BIGALD = 111 - INTEGER, PARAMETER :: ind_MBONO3O2 = 112 - INTEGER, PARAMETER :: ind_HMPROP = 113 - INTEGER, PARAMETER :: ind_ISOP = 114 - INTEGER, PARAMETER :: ind_LIMON = 115 - INTEGER, PARAMETER :: ind_APIN = 116 - INTEGER, PARAMETER :: ind_BCARY = 117 - INTEGER, PARAMETER :: ind_BPIN = 118 - INTEGER, PARAMETER :: ind_NOA = 119 - INTEGER, PARAMETER :: ind_MYRC = 120 - INTEGER, PARAMETER :: ind_ALKO2 = 121 - INTEGER, PARAMETER :: ind_CH3COCH3 = 122 - INTEGER, PARAMETER :: ind_CO = 123 - INTEGER, PARAMETER :: ind_GLYALD = 124 - INTEGER, PARAMETER :: ind_MBOO2 = 125 - INTEGER, PARAMETER :: ind_TERPROD2 = 126 - INTEGER, PARAMETER :: ind_TERP2O2 = 127 - INTEGER, PARAMETER :: ind_C3H6 = 128 - INTEGER, PARAMETER :: ind_CH3CHO = 129 - INTEGER, PARAMETER :: ind_MDIALO2 = 130 - INTEGER, PARAMETER :: ind_TERPO2 = 131 - INTEGER, PARAMETER :: ind_NTERPO2 = 132 - INTEGER, PARAMETER :: ind_TERPROD1 = 133 - INTEGER, PARAMETER :: ind_RO2 = 134 - INTEGER, PARAMETER :: ind_O = 135 - INTEGER, PARAMETER :: ind_HYAC = 136 - INTEGER, PARAMETER :: ind_HONITR = 137 - INTEGER, PARAMETER :: ind_CH3COCHO = 138 - INTEGER, PARAMETER :: ind_XO2 = 139 - INTEGER, PARAMETER :: ind_ISOPAO2 = 140 - INTEGER, PARAMETER :: ind_ISOPBO2 = 141 - INTEGER, PARAMETER :: ind_ISOPNO3 = 142 - INTEGER, PARAMETER :: ind_MACR = 143 - INTEGER, PARAMETER :: ind_MVK = 144 - INTEGER, PARAMETER :: ind_MACRO2 = 145 - INTEGER, PARAMETER :: ind_CH2O = 146 - INTEGER, PARAMETER :: ind_NO2 = 147 - INTEGER, PARAMETER :: ind_OH = 148 - INTEGER, PARAMETER :: ind_HO2 = 149 - INTEGER, PARAMETER :: ind_NO3 = 150 - INTEGER, PARAMETER :: ind_O3 = 151 - INTEGER, PARAMETER :: ind_CH3CO3 = 152 - INTEGER, PARAMETER :: ind_NO = 153 - INTEGER, PARAMETER :: ind_MCO3 = 154 - INTEGER, PARAMETER :: ind_CH3O2 = 155 - -! Index declaration for fixed species in C -! C(ind_spc) - - INTEGER, PARAMETER :: ind_M = 156 - INTEGER, PARAMETER :: ind_H2O = 157 - INTEGER, PARAMETER :: ind_O2 = 158 - INTEGER, PARAMETER :: ind_N2 = 159 - INTEGER, PARAMETER :: ind_CO2 = 160 - -! Index declaration for fixed species in FIX -! FIX(indf_spc) = C(ind_spc) = C(NVAR+indf_spc) - - INTEGER, PARAMETER :: indf_M = 1 - INTEGER, PARAMETER :: indf_H2O = 2 - INTEGER, PARAMETER :: indf_O2 = 3 - INTEGER, PARAMETER :: indf_N2 = 4 - INTEGER, PARAMETER :: indf_CO2 = 5 - -! NJVRP - Length of sparse Jacobian JVRP - INTEGER, PARAMETER :: NJVRP = 630 - -! NSTOICM - Length of Sparse Stoichiometric Matrix - INTEGER, PARAMETER :: NSTOICM = 1765 - -END MODULE MOZART_T1_Parameters - diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Parameters.o b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Parameters.o deleted file mode 100644 index d1552aa0eac37fc19601ca2c5078c24e386f08f7..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Parameters.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Precision.f90 b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Precision.f90 deleted file mode 100644 index 4cb461b0be3121d2357922a78273d5707f53bace..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Precision.f90 +++ /dev/null @@ -1,17 +0,0 @@ - -MODULE MOZART_T1_Precision - -! -! Definition of different levels of accuracy -! for REAL variables using KIND parameterization -! -! KPP SP - Single precision kind - INTEGER, PARAMETER :: sp = SELECTED_REAL_KIND(6,30) -! KPP DP - Double precision kind - INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(14,300) -! KPP QP - Quadruple precision kind - INTEGER, PARAMETER :: qp = SELECTED_REAL_KIND(18,400) - -END MODULE MOZART_T1_Precision - - diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Precision.o b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Precision.o deleted file mode 100644 index 3704a842889e2ab1951cd1d3e41a0f50cce542c5..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Precision.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Rates.f90 b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Rates.f90 deleted file mode 100644 index 3db7521398c0a17a0ad10c2dd0b5dbd5fbd88b8f..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Rates.f90 +++ /dev/null @@ -1,1198 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The Reaction Rates File -! -! Generated by KPP-2.2.3 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 : MOZART_T1_Rates.f90 -! Time : Wed Jan 27 13:13:50 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_T1_20754_BOXMOX -! Equation file : MOZART_T1.kpp -! Output root filename : MOZART_T1 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MOZART_T1_Rates - - USE MOZART_T1_Parameters - USE MOZART_T1_Global - USE MOZART_T1_Util - IMPLICIT NONE - -CONTAINS - - - -! Begin Rate Law Functions from KPP_HOME/util/UserRateLaws - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! User-defined Rate Law functions -! Note: the default argument type for rate laws, as read from the equations file, is single precision -! but all the internal calculations are performed in double precision -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~> Arrhenius -! REAL(kind=dp) FUNCTION ARR( A0,B0,C0 ) -! REAL A0,B0,C0 -! ARR = DBLE(A0) * EXP(-DBLE(B0)/TEMP) * (TEMP/300.0_dp)**DBLE(C0) -! END FUNCTION ARR - -! Arrhenius (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION ARR( A0,B0,C0, TEMP ) - REAL(kind=dp) :: TEMP - REAL(kind=dp) A0,B0,C0 - ARR = A0 * EXP( -B0 /TEMP ) * (TEMP/300._dp)**C0 - END FUNCTION ARR - -!~~~> Simplified Arrhenius, with two arguments -!~~~> Note: The argument B0 has a changed sign when compared to ARR -! REAL(kind=dp) FUNCTION ARR2( A0,B0 ) -! REAL A0,B0 -! ARR2 = DBLE(A0) * EXP( DBLE(B0)/TEMP ) -! END FUNCTION ARR2 -! CK 20140313 WRF-chem uses different kind of Arrhenius function -! with TEMP as argument... - REAL(kind=dp) FUNCTION ARR2( A0,B0, TEMP ) - REAL(kind=dp) :: TEMP - REAL(kind=dp) A0,B0 - ARR2 = A0 * EXP( -B0 /TEMP ) - END FUNCTION ARR2 -! CK 20140313 end - -! REAL(kind=dp) FUNCTION EP2(A0,C0,A2,C2,A3,C3) -! REAL A0,C0,A2,C2,A3,C3 -! REAL(kind=dp) K0,K2,K3 -! K0 = DBLE(A0) * EXP(-DBLE(C0)/TEMP) -! K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP) -! K3 = DBLE(A3) * EXP(-DBLE(C3)/TEMP) -! K3 = K3*CFACTOR*1.0E6_dp -! EP2 = K0 + K3/(1.0_dp+K3/K2 ) -! END FUNCTION EP2 - -! REAL(kind=dp) FUNCTION EP3(A1,C1,A2,C2) -! REAL A1, C1, A2, C2 -! REAL(kind=dp) K1, K2 -! K1 = DBLE(A1) * EXP(-DBLE(C1)/TEMP) -! K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP) -! EP3 = K1 + K2*(1.0E6_dp*CFACTOR) -! END FUNCTION EP3 - -! EP2 (added by psaide 22-07-2009) - REAL(kind=dp) FUNCTION EP2( A0,C0,A2,C2,A3,C3,TEMP,cair) - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A0,C0,A2,C2,A3,C3 - REAL(kind=dp) K0,K2,K3 - - K0 = A0 * EXP(-C0 /TEMP) - K2 = A2 * EXP(-C2 /TEMP) - K3 = A3 * EXP(-C3 /TEMP) -! K3 = K3 * 2.45E13_dp * 1.0E6_dp - K3 = K3 * cair - EP2 = K0 + K3/(1._dp+K3/K2 ) - END FUNCTION EP2 - -! EP3 (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION EP3(A1,C1,A2,C2,TEMP,cair) - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A1, C1, A2, C2 - REAL(kind=dp) K1, K2 - - K1 = A1 * EXP(-C1 /TEMP) - K2 = A2 * EXP(-C2 /TEMP) -! EP3 = K1 + K2*(1.0E6_dp * 2.45E13_dp) - EP3 = K1 + K2*cair - END FUNCTION EP3 - - -! REAL(kind=dp) FUNCTION FALL ( A0,B0,C0,A1,B1,C1,CF) -! REAL A0,B0,C0,A1,B1,C1,CF -! REAL(kind=dp) K0, K1 -! K0 = DBLE(A0) * EXP(-DBLE(B0)/TEMP)* (TEMP/300.0_dp)**DBLE(C0) -! K1 = DBLE(A1) * EXP(-DBLE(B1)/TEMP)* (TEMP/300.0_dp)**DBLE(C1) -! K0 = K0*CFACTOR*1.0E6_dp -! K1 = K0/K1 -! FALL = (K0/(1.0_dp+K1))* & -! DBLE(CF)**(1.0_dp/(1.0_dp+(LOG10(K1))**2)) -! END FUNCTION FALL - -! FALL (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION FALL( A0,B0,C0,A1,B1,C1,CF,TEMP,cair) - - INTRINSIC LOG10 - - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A0,B0,C0,A1,B1,C1,CF - REAL(kind=dp) K0, K1 - - K0 = A0 * EXP(-B0 /TEMP)* (TEMP/300._dp)**C0 - K1 = A1 * EXP(-B1 /TEMP)* (TEMP/300._dp)**C1 -! K0 = K0 * 2.45E13_dp * 1.0E6_dp - K0 = K0 * cair - K1 = K0/K1 - FALL = (K0/(1._dp+K1))*CF**(1._dp/(1._dp+(LOG10(K1))**2)) - - END FUNCTION FALL - -! FALL2 (added by psaide 28-10-2009) - REAL(KIND=dp) FUNCTION F2( A0,B0,C0,A1,B1,C1,CF,CN,TEMP,cair) - - INTRINSIC LOG10 - - REAL(KIND=dp) :: TEMP - REAL(KIND=dp) :: cair - REAL(KIND=dp) A0,B0,C0,A1,B1,C1,CF,CN - REAL(KIND=dp) K0, K1 - - K0 = A0 * EXP(-B0 /TEMP)* (TEMP/300._dp)**C0 - K1 = A1 * EXP(-B1 /TEMP)* (TEMP/300._dp)**C1 -! K0 = K0 * 2.45E13_dp * 1.0E6_dp - K0 = K0 * cair - K1 = K0/K1 - F2 = (K0/(1._dp+K1))*CF**(1._dp/(1._dp+(LOG10(K1)/CN)**2)) - - END FUNCTION F2 - - - !--------------------------------------------------------------------------- - - ELEMENTAL REAL(kind=dp) FUNCTION k_3rd(temp,cair,k0_300K,n,kinf_300K,m,fc) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL, INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL, INTENT(IN) :: n ! exponent for low pressure limit - REAL, INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL, INTENT(IN) :: m ! exponent for high pressure limit - REAL, INTENT(IN) :: fc ! broadening factor (usually fc=0.6) - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - k_3rd = k0_T/(1._dp+k_ratio)*fc**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - END FUNCTION k_3rd - - !--------------------------------------------------------------------------- - - ELEMENTAL REAL(kind=dp) FUNCTION k_arr (k_298,tdep,temp) - ! Arrhenius function - - REAL, INTENT(IN) :: k_298 ! k at T = 298.15K - REAL, INTENT(IN) :: tdep ! temperature dependence - REAL(kind=dp), INTENT(IN) :: temp ! temperature - - INTRINSIC EXP - - k_arr = k_298 * EXP(tdep*(1._dp/temp-3.3540E-3_dp)) ! 1/298.15=3.3540e-3 - - END FUNCTION k_arr - -! CK 20140313 in the following some more rate functions needed by -! WRF-chem packages - -!------------------------------------ -! Troe reactions (as in Stockwell et al, 1997) - - REAL(kind=dp) FUNCTION TROE(k0_300K,n,kinf_300K,m,temp,cair) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - TROE = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - END FUNCTION TROE - - - -!------------------------------------------- -! Troe equilibrium reactions (as in Stockwell et al, 1997) - - REAL(kind=dp) FUNCTION TROEE(A, B, k0_300K,n,kinf_300K,m,temp,cair) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - REAL(kind=dp), INTENT(IN) :: A, B - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio, troe - - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - troe = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - TROEE = A * EXP( - B / temp) * troe - - - - END FUNCTION TROEE - -!------------------------ -! k=T^2 C exp (-D/T) reactions - - REAL(kind=dp) FUNCTION THERMAL_T2(c, d ,temp) - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: c, d - - - THERMAL_T2= temp**2._dp * c * EXP(- d / temp) - - END FUNCTION THERMAL_T2 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! End of User-defined Rate Law functions -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -! End Rate Law Functions from KPP_HOME/util/UserRateLaws - - -! Begin INLINED Rate Law Functions - - - -! **************************************************************************** -! J - the photolysis rate retrieval function -! **************************************************************************** - REAL(kind=dp) FUNCTION J(name) - - CHARACTER(LEN=*), INTENT(IN) :: name - - CHARACTER(LEN=15) :: xname - - INTEGER :: i - - xname(:) = " " - xname(1:LEN(name)) = name - - J = jvalues(hash(xname)) - - RETURN - - END FUNCTION J -! **************************************************************************** - - - -REAL(kind=dp) FUNCTION JPL_TROE( k0_300K, n, kinf_300K, m, base, temp, cair ) - -!------------------------------------------------------------ -! ... dummy arguments -!------------------------------------------------------------ - REAL(kind=dp), INTENT(IN) :: base ! base expononent - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - -!------------------------------------------------------------ -! ... local variables -!------------------------------------------------------------ - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - - JPL_TROE = k0_T/(1._dp + k_ratio)*base**(1._dp/(1._dp + LOG10(k_ratio)**2)) - -END FUNCTION JPL_TROE - -REAL(KIND=dp) FUNCTION usr_CO_OH_a( temp, c_m ) -! for cesm-consistent reaction labels, equivalent to usr8 -! CO+OH -> CO2+HO2 - - REAL(KIND=dp), INTENT(IN) :: temp - REAL(KIND=dp), INTENT(IN) :: c_m - - REAL(KIND=dp), parameter :: boltz = 1.38044e-16_dp - - usr_CO_OH_a = 1.5e-13_dp * (1._dp + 6.e-7_dp*boltz*c_m*temp) - -END FUNCTION usr_CO_OH_a - -REAL(KIND=dp) FUNCTION usr_O_O2( temp ) -! for cesm-consistent reaction labels -! O+O2+M -> O3+M - - REAL(KIND=dp), INTENT(IN) :: temp - - usr_O_O2 = 6.00e-34_dp*(temp/300._dp)**(-2.4_dp) - -END FUNCTION usr_O_O2 - -REAL(KIND=dp) FUNCTION usr_O_O_M( temp ) -! for cesm-consistent reaction labels -! O+O+M->O2+M - - REAL(KIND=dp), INTENT(IN) :: temp - - usr_O_O_M = 2.76e-34_dp * exp( 720.0_dp/temp) - -END FUNCTION usr_O_O_M - -REAL(KIND=dp) FUNCTION usr_HO2_HO2( temp, c_m, c_h2o ) -! for cesm-consistent reaction labels, equivalent to usr9 -! HO2+HO2 -> H2O2+O2 -! H2O included in fc calculation, not as reactant - - REAL(KIND=dp), INTENT(IN) :: temp - REAL(KIND=dp), INTENT(IN) :: c_m - REAL(KIND=dp), INTENT(IN) :: c_h2o - - REAL(KIND=dp) :: ko, kinf, fc - - if( c_h2o > 0._dp ) then - ko = 2.3e-13_dp * exp( 600._dp/temp ) - kinf = 1.7e-33_dp * c_m * exp( 1000._dp/temp ) - fc = 1._dp + 1.4e-21_dp *c_h2o* exp( 2200._dp/temp ) - usr_HO2_HO2 = (ko + kinf) * fc - else - usr_HO2_HO2 = 0._dp - end if -END FUNCTION usr_HO2_HO2 - -REAL(KIND=dp) FUNCTION usr_HNO3_OH( temp, c_m ) -! for cesm-consistent reaction labels, equivalent to usr5 -! HNO3 + OH -> NO3 + H2O - - REAL(KIND=dp), INTENT(IN) :: temp - REAL(KIND=dp), INTENT(IN) :: c_m - - REAL(KIND=dp) :: k0, k2 - - k0 = c_m * 6.5e-34_dp * exp( 1335._dp/temp ) - k2 = exp( 2199._dp/temp ) - k0 = k0 /(1.0_dp + k0/(2.7e-17_dp*k2)) - k2 = exp( 460._dp/temp ) - - usr_HNO3_OH = k0 + 2.4e-14_dp * k2 - -END FUNCTION usr_HNO3_OH - - -REAL(KIND=dp) FUNCTION usr_HO2NO2_M( temp, c_m ) -! for cesm-consistent reaction labels -! HO2NO2 + M -> HO2+NO2+M -! CESM writes this as dependent on the NO2+HO2 rate -! *** if M is included in reactants, must divide TROEE function by [M] - - REAL(KIND=dp), INTENT(IN) :: temp - REAL(KIND=dp), INTENT(IN) :: c_m - - usr_HO2NO2_M = TROEE( 4.76e26_dp,10900._dp, 1.8e-31_dp , 3.2_dp , & - 4.7e-12_dp , 1.4_dp , TEMP, C_M ) /c_m - -END FUNCTION usr_HO2NO2_M - -REAL(KIND=dp) FUNCTION usr_PAN_M( temp, c_m ) -! for cesm-consistent reaction labels -! PAN+M -> CH3CO3+NO2 -! *** if M is included in reactants, must divide TROEE function by [M] - - REAL(KIND=dp), INTENT(IN) :: temp - REAL(KIND=dp), INTENT(IN) :: c_m - - usr_PAN_M = TROEE(1.111e28_dp, 14000._dp, 8.5e-29_dp, 6.5_dp, & - 1.1e-11_dp, 0._dp, TEMP, C_M) /c_m - -END FUNCTION usr_PAN_M - -REAL(KIND=dp) FUNCTION usr_CH3COCH3_OH( temp ) -! for cesm-consistent reaction labels -! CH3COCH3 + OH -> RO2 + H2O - - REAL(KIND=dp), INTENT(IN) :: temp - - usr_CH3COCH3_OH = 3.82e-11_dp*exp( -2000._dp/temp ) + 1.33e-13_dp - -END FUNCTION usr_CH3COCH3_OH - -REAL(KIND=dp) FUNCTION usr_MCO3_NO2( temp, c_m ) -! for cesm-consistent reaction labels -! MCO3+NO2+M -> MPAN+M - - REAL(KIND=dp), INTENT(IN) :: temp - REAL(KIND=dp), INTENT(IN) :: c_m - - usr_MCO3_NO2 = 1.1e-11_dp*300._dp/(temp*c_m) - -END FUNCTION usr_MCO3_NO2 - - -REAL(KIND=dp) FUNCTION usr_MPAN_M( temp, c_m ) -! for cesm-consistent reaction labels -! MPAN+M -> MCO3+NO2+M - - REAL(KIND=dp), INTENT(IN) :: temp - REAL(KIND=dp), INTENT(IN) :: c_m - - usr_MPAN_M = 1.2221e17_dp*300._dp*exp( -14000._dp/temp )/(temp*c_m) - -END FUNCTION usr_MPAN_M - -REAL(KIND=dp) FUNCTION usr_N2O5_aer( rh, temp ) -! for cesm-consistent reaction labels, equivalent to usr16 -! heterogeneous uptake on aerosols: N2O5 -> 2 HNO3 -! **** needs code for running with WRF-Chem!!! **** - - REAL(KIND=dp), INTENT(IN) :: rh ! relative humidity - REAL(KIND=dp), INTENT(IN) :: temp ! temperature (K) - - usr_N2O5_aer = 0._dp - -END FUNCTION usr_N2O5_aer - -REAL(KIND=dp) FUNCTION usr_NO3_aer( rh, temp ) -! for cesm-consistent reaction labels, equivalent to usr17 -! heterogeneous uptake on aerosols: NO3 -> HNO3 -! **** needs code for running with WRF-Chem!!! **** - - REAL(KIND=dp), INTENT(IN) :: rh ! relative humidity - REAL(KIND=dp), INTENT(IN) :: temp ! temperature (K) - - usr_NO3_aer = 0._dp - -END FUNCTION usr_NO3_aer - - -REAL(KIND=dp) FUNCTION usr_NO2_aer( rh, temp ) -! for cesm-consistent reaction labels, equivalent to usr17a -! heterogeneous uptake on aerosols: NO2 -> 0.5 OH + 0.5 NO + 0.5 HNO3 -! **** needs code for running with WRF-Chem!!! **** - - REAL(KIND=dp), INTENT(IN) :: rh ! relative humidity - REAL(KIND=dp), INTENT(IN) :: temp ! temperature (K) - - usr_NO2_aer = 0._dp - -END FUNCTION usr_NO2_aer - -REAL(KIND=dp) FUNCTION usr_DMS_OH( temp, c_m ) -! for cesm-consistent reaction labels, equivalent to usr24 -! DMS + OH -> 0.5 SO2 + 0.5 HO2 - - REAL(KIND=dp), INTENT(IN) :: temp - REAL(KIND=dp), INTENT(IN) :: c_m - - REAL(KIND=dp) :: ko, wrk - - wrk = .21_dp*c_m - ko = 1._dp + 5.5e-31_dp*exp( 7460._dp/temp )*wrk - usr_DMS_OH = 1.7e-42_dp*exp( 7810._dp/temp )*wrk/ko - -END FUNCTION usr_DMS_OH - - -REAL(KIND=dp) FUNCTION usr_HO2_aer( rh, temp ) -! for cesm-consistent reaction labels, equivalent to usr26 -! heterogeneous uptake on aerosols: HO2 -> 0.5 H2O2 -! **** needs code for running with WRF-Chem!!! **** - - REAL(KIND=dp), INTENT(IN) :: rh ! relative humidity - REAL(KIND=dp), INTENT(IN) :: temp ! temperature (K) - - usr_HO2_aer = 0._dp - -END FUNCTION usr_HO2_aer - -REAL(KIND=dp) FUNCTION usr_SO2_OH( temp, c_m ) -! for cesm-consistent reaction labels, equivalent to usr23 -! SO2 + OH -> SO4 - - REAL(KIND=dp), INTENT(IN) :: temp - REAL(KIND=dp), INTENT(IN) :: c_m - - REAL(KIND=dp) :: fc, k0 - REAL(KIND=dp) :: wrk - - fc = 3.e-11_dp * (300._dp/temp) ** 3.3_dp - wrk = fc * c_m - k0 = wrk / (1._dp + wrk/1.5e-12_dp) - usr_SO2_OH = k0 * .6_dp ** (1._dp/(1._dp + & - (log10( wrk/1.5e-12_dp ))**2._dp)) - -END FUNCTION usr_SO2_OH - -REAL(KIND=dp) FUNCTION usr_PBZNIT_M( temp, c_m ) -! for cesm-consistent reaction labels -! PBZNIT+M=ACBZO2+NO2+M -! *** if M is included in reactants, must divide TROEE function by [M] - - REAL(KIND=dp), INTENT(IN) :: temp - REAL(KIND=dp), INTENT(IN) :: c_m - - usr_PBZNIT_M = TROEE( 1.111e28_dp,14000._dp, 9.7e-29_dp , 5.6_dp , & - 9.3e-12_dp , 0._dp , TEMP, C_M) /c_m - -END FUNCTION usr_PBZNIT_M - -REAL(KIND=dp) FUNCTION usr_N2O5_M( temp, c_m ) -! for cesm-consistent reaction labels -! N2O5 + M -> NO2 + NO3 + M -! CESM writes this as dependent on the NO2+NO3 rate -! *** if M is included in reactants, must divide TROEE function by [M] - - REAL(KIND=dp), INTENT(IN) :: temp - REAL(KIND=dp), INTENT(IN) :: c_m - - usr_N2O5_M = TROEE(3.333e26_dp, 10900._dp, 2.2e-30_dp, 4.4_dp, & - 1.4e-12_dp , .7_dp , TEMP, C_M ) /c_m - -END FUNCTION usr_N2O5_M - - -!__________________________________________________ - - REAL(KIND=dp) FUNCTION Keff ( A0,B0,C0, TEMP,X1,X2,y1,y2 ) - REAL(KIND=dp),INTENT(IN) :: X1,X2,y1,y2 - REAL(KIND=dp),INTENT(IN) :: TEMP - REAL(KIND=dp),INTENT(IN):: A0,B0,C0 - Keff = A0 * EXP(- B0 /TEMP ) & - *(TEMP/300._dp)**C0*(y1*X1/(X1 + X2 + 1.0e-35) & - +y2*(1-X1/(X1 + X2 + 1.0e-35))) - END FUNCTION Keff -!__________________________________________________ - - REAL(KIND=dp) FUNCTION Keff2 ( C0,X1,X2,y1,y2 ) - REAL(KIND=dp),INTENT(IN) :: X1,X2,y1,y2 - REAL(KIND=dp),INTENT(IN):: C0 - Keff2 = C0*(y1*X1/(X1 + X2 + 1.0e-35) & - +y2*(1-X1/(X1 + X2 + 1.0e-35 ))) - END FUNCTION Keff2 - -!__________________________________________________ - - - REAL(KIND=dp) FUNCTION vbs_yield ( nume, den, voc_idx, bin_idx ) - REAL(KIND=dp), INTENT(IN) :: nume, den - INTEGER, INTENT(IN) :: voc_idx, bin_idx - INTEGER, PARAMETER :: vbs_nbin = 4, vbs_nspec = 9 - - ! normalized (1 g/m3 density) yield for condensable vapors - REAL(KIND=dp) :: vbs_alphlowN(vbs_nbin,vbs_nspec) - REAL(KIND=dp) :: vbs_alphhiN(vbs_nbin,vbs_nspec) - REAL(KIND=dp) :: vbs_mw_prec(vbs_nspec) - ! SOA density (g/m3) - REAL(KIND=dp), PARAMETER :: dens_aer = 1.5 - ! SOA molecular weight (g/mol) - REAL(KIND=dp), PARAMETER :: mw_aer = 250.0 - - ! ------------------------------------------------------------------------ - ! Yields used in Murphy and Pandis, 2009; Tsimpidi et al., 2010; - ! Ahmadov et al., 2012 - - ! low NOx condition - DATA vbs_alphlowN / & - 0.0000, 0.0750, 0.0000, 0.0000, & ! ALK4 - 0.0000, 0.3000, 0.0000, 0.0000, & ! ALK5 - 0.0045, 0.0090, 0.0600, 0.2250, & ! OLE1 - 0.0225, 0.0435, 0.1290, 0.3750, & ! OLE2 - 0.0750, 0.2250, 0.3750, 0.5250, & ! ARO1 - 0.0750, 0.3000, 0.3750, 0.5250, & ! ARO2 - 0.0090, 0.0300, 0.0150, 0.0000, & ! ISOP - 0.0750, 0.1500, 0.7500, 0.9000, & ! SESQ - 0.1073, 0.0918, 0.3587, 0.6075/ ! TERP - - ! high NOx condition - DATA vbs_alphhiN / & - 0.0000, 0.0375, 0.0000, 0.0000, & ! ALK4 - 0.0000, 0.1500, 0.0000, 0.0000, & ! ALK5 - 0.0008, 0.0045, 0.0375, 0.1500, & ! OLE1 - 0.0030, 0.0255, 0.0825, 0.2700, & ! OLE2 - 0.0030, 0.1650, 0.3000, 0.4350, & ! ARO1 - 0.0015, 0.1950, 0.3000, 0.4350, & ! ARO2 - 0.0003, 0.0225, 0.0150, 0.0000, & ! ISOP - 0.0750, 0.1500, 0.7500, 0.9000, & ! SESQ - 0.0120, 0.1215, 0.2010, 0.5070/ ! TERP - - DATA vbs_mw_prec / & - 120.0, & ! ALK4 - 150.0, & ! ALK5 - 120.0, & ! OLE1 - 120.0, & ! OLE2 - 150.0, & ! ARO1 - 150.0, & ! ARO2 - 136.0, & ! ISOP - 250.0, & ! SESQ - 180.0/ ! TERP - - REAL(KIND=dp), PARAMETER :: yields_dens_aer = 1.5 ! g/m3 - - ! - ! ------------------------------------------------------------------------ - - REAL(KIND=dp) :: B, mw_ratio, dens_ratio - - ! Lane et al., ES&T, 2008 - ! B = (RO2 + NO) / ((RO2 + NO) + (RO2 + RO2) + (RO2 + HO2)) - ! with nume = (RO2 + NO) and den = (RO2 + RO2) + (RO2 + HO2) - B = nume / (nume + den + 1.0e-35_dp) - - ! we need molar yields, not mass yields - mw_ratio = vbs_mw_prec(voc_idx)/mw_aer - - ! density correction - dens_ratio = dens_aer / yields_dens_aer - - vbs_yield = (vbs_alphhiN(bin_idx,voc_idx) * B + & - vbs_alphlowN(bin_idx,voc_idx) * (1.0_dp - B)) * & - dens_ratio * mw_ratio - - END FUNCTION vbs_yield - - - -! End INLINED Rate Law Functions - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_SUN - update SUN light using TIME -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - SUBROUTINE Update_SUN() - !USE MOZART_T1_Parameters - !USE MOZART_T1_Global - - IMPLICIT NONE - - REAL(kind=dp) :: SunRise, SunSet - REAL(kind=dp) :: Thour, Tlocal, Ttmp - ! PI - Value of pi - REAL(kind=dp), PARAMETER :: PI = 3.14159265358979d0 - - SunRise = 4.5_dp - SunSet = 19.5_dp - Thour = TIME/3600.0_dp - Tlocal = Thour - (INT(Thour)/24)*24 - - IF ((Tlocal>=SunRise).AND.(Tlocal<=SunSet)) THEN - Ttmp = (2.0*Tlocal-SunRise-SunSet)/(SunSet-SunRise) - IF (Ttmp.GT.0) THEN - Ttmp = Ttmp*Ttmp - ELSE - Ttmp = -Ttmp*Ttmp - END IF - SUN = ( 1.0_dp + COS(PI*Ttmp) )/2.0_dp - ELSE - SUN = 0.0_dp - END IF - - END SUBROUTINE Update_SUN - -! End of Update_SUN function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_RCONST - function to update rate constants -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Update_RCONST ( ) - - - - -! Begin INLINED RCONST - - - - c_m = C(ind_M) - c_h2o = C(ind_H2O) - - -! End INLINED RCONST - - RCONST(1) = (j('h2o2')) - RCONST(2) = (j('o2')) - RCONST(3) = (j('o33p')) - RCONST(4) = (j('o31d')) - RCONST(5) = (j('hno3')) - RCONST(6) = (j('hno4')) - RCONST(7) = (j('n2o')) - RCONST(8) = (j('n2o5')) - RCONST(9) = (j('no2')) - RCONST(10) = (j('no3o')) - RCONST(11) = (j('ch3o2h')) - RCONST(12) = (j('ch3o2h')) - RCONST(13) = (j('ch3o2h')) - RCONST(14) = (0.1_dp*j('no2')) - RCONST(15) = (0.2_dp*j('no2')) - RCONST(16) = (0.14_dp*j('no2')) - RCONST(17) = (0.2_dp*j('no2')) - RCONST(18) = (0.2_dp*j('no2')) - RCONST(19) = (0.006_dp*j('no2')) - RCONST(20) = (j('ch3o2h')) - RCONST(21) = (j('ch3o2h')) - RCONST(22) = (j('ch3o2h')) - RCONST(23) = (j('ch3o2h')) - RCONST(24) = (j('ch2or')) - RCONST(25) = (j('ch2om')) - RCONST(26) = (j('ch3cho')) - RCONST(27) = (j('ch3coch3')) - RCONST(28) = (j('ch3cocho')) - RCONST(29) = (0.28_dp*j('h2o2')) - RCONST(30) = (j('ch3o2h')) - RCONST(31) = (j('ch3o2h')) - RCONST(32) = (j('glyald')) - RCONST(33) = (j('gly')) - RCONST(34) = (j('glyald')) - RCONST(35) = (j('ch2or')) - RCONST(36) = (0.006_dp*j('no2')) - RCONST(37) = (j('hyac')) - RCONST(38) = (j('ch3o2h')) - RCONST(39) = (j('ch3o2h')) - RCONST(40) = (j('macr')) - RCONST(41) = (j('ch3o2h')) - RCONST(42) = (j('ch3coch3')) - RCONST(43) = (j('ch3o2h')) - RCONST(44) = (j('pan')) - RCONST(45) = (j('mvk')) - RCONST(46) = (j('ch2or')) - RCONST(47) = (j('ch2or')) - RCONST(48) = (j('ch3o2h')) - RCONST(49) = (j('ch3cho')) - RCONST(50) = (j('pan')) - RCONST(51) = (j('ch3o2h')) - RCONST(52) = (j('ch3o2h')) - RCONST(53) = (j('ch3o2h')) - RCONST(54) = (0.1_dp*j('no2')) - RCONST(55) = (j('ch3o2h')) - RCONST(56) = (j('ch3o2h')) - RCONST(57) = (j('ch3o2h')) - RCONST(58) = (j('ch3cho')) - RCONST(59) = (j('ch3cho')) - RCONST(60) = (j('ch3o2h')) - RCONST(61) = (j('ch3o2h')) - RCONST(62) = (j('ch3o2h')) - RCONST(63) = (j('ch3o2h')) - RCONST(64) = (1.500000e-10_dp) - RCONST(65) = (1.200000e-10_dp) - RCONST(66) = (ARR2(1.630000e-10_dp,-60.00_dp,TEMP)) - RCONST(67) = (ARR2(2.150000e-11_dp,-110.00_dp,TEMP)) - RCONST(68) = (ARR2(3.300000e-11_dp,-55.00_dp,TEMP)) - RCONST(69) = (1.200000e-10_dp) - RCONST(70) = (ARR2(8.000000e-12_dp,2060.00_dp,TEMP)) - RCONST(71) = (usr_O_O_M(temp)) - RCONST(72) = (usr_O_O2(temp)) - RCONST(73) = (ARR2(1.600000e-11_dp,4570.00_dp,TEMP)) - RCONST(74) = (ARR2(1.400000e-12_dp,2000.00_dp,TEMP)) - RCONST(75) = (ARR2(3.000000e-11_dp,-200.00_dp,TEMP)) - RCONST(76) = (ARR2(1.000000e-14_dp,490.00_dp,TEMP)) - RCONST(77) = (ARR2(2.800000e-12_dp,1800.00_dp,TEMP)) - RCONST(78) = (1.800000e-12_dp) - RCONST(79) = (ARR2(4.800000e-11_dp,-250.00_dp,TEMP)) - RCONST(80) = (ARR2(1.800000e-11_dp,-180.00_dp,TEMP)) - RCONST(81) = (ARR2(1.700000e-12_dp,940.00_dp,TEMP)) - RCONST(82) = (1.800000e-12_dp) - RCONST(83) = (JPL_TROE(6.900000e-31_dp,1.00_dp,2.600000e-11_dp,0.00_dp,0.60_dp,TEMP,C_M)) - RCONST(84) = (usr_HO2_HO2(temp,c_m,c_h2o)) - RCONST(85) = (ARR2(1.300000e-12_dp,-380.00_dp,TEMP)) - RCONST(86) = (ARR2(5.100000e-12_dp,-210.00_dp,TEMP)) - RCONST(87) = (ARR2(1.200000e-13_dp,2450.00_dp,TEMP)) - RCONST(88) = (JPL_TROE(2.500000e-31_dp,1.80_dp,2.200000e-11_dp,0.70_dp,0.60_dp,TEMP,C_M)) - RCONST(89) = (3.500000e-12_dp) - RCONST(90) = (ARR2(1.500000e-11_dp,-170.00_dp,TEMP)) - RCONST(91) = (1.000000e-11_dp) - RCONST(92) = (2.200000e-11_dp) - RCONST(93) = (ARR2(3.300000e-12_dp,-270.00_dp,TEMP)) - RCONST(94) = (ARR2(3.000000e-12_dp,1500.00_dp,TEMP)) - RCONST(95) = (JPL_TROE(9.000000e-32_dp,1.50_dp,3.000000e-11_dp,0.00_dp,0.60_dp,TEMP,C_M)) - RCONST(96) = (ARR2(7.260000e-11_dp,-20.00_dp,TEMP)) - RCONST(97) = (ARR2(4.640000e-11_dp,-20.00_dp,TEMP)) - RCONST(98) = (JPL_TROE(1.900000e-31_dp,3.40_dp,4.000000e-12_dp,0.30_dp,0.60_dp,TEMP,C_M)) - RCONST(99) = (JPL_TROE(2.400000e-30_dp,3.00_dp,1.600000e-12_dp,-0.10_dp,0.60_dp,TEMP,C_M)) - RCONST(100) = (JPL_TROE(1.800000e-30_dp,3.00_dp,2.800000e-11_dp,0.00_dp,0.60_dp,TEMP,C_M)) - RCONST(101) = (usr_HNO3_OH(temp,c_m)) - RCONST(102) = (usr_HO2NO2_M(temp,c_m)) - RCONST(103) = (usr_N2O5_M(temp,c_m)) - RCONST(104) = (ARR2(9.700000e-15_dp,-625.00_dp,TEMP)) - RCONST(105) = (ARR2(6.000000e-13_dp,2058.00_dp,TEMP)) - RCONST(106) = (ARR2(3.400000e-11_dp,1600.00_dp,TEMP)) - RCONST(107) = (ARR2(5.500000e-12_dp,-125.00_dp,TEMP)) - RCONST(108) = (ARR2(5.000000e-13_dp,424.00_dp,TEMP)) - RCONST(109) = (ARR2(1.900000e-14_dp,-706.00_dp,TEMP)) - RCONST(110) = (ARR2(4.100000e-13_dp,-750.00_dp,TEMP)) - RCONST(111) = (ARR2(2.800000e-12_dp,-300.00_dp,TEMP)) - RCONST(112) = (ARR2(2.900000e-12_dp,345.00_dp,TEMP)) - RCONST(113) = (ARR2(3.800000e-12_dp,-200.00_dp,TEMP)) - RCONST(114) = (ARR2(2.450000e-12_dp,1775.00_dp,TEMP)) - RCONST(115) = (JPL_TROE(4.280000e-33_dp,0.00_dp,9.300000e-15_dp,-4.42_dp,0.80_dp,TEMP,C_M)) - RCONST(116) = (4.000000e-13_dp) - RCONST(117) = (ARR2(7.500000e-13_dp,-700.00_dp,TEMP)) - RCONST(118) = (ARR2(2.400000e+12_dp,7000.00_dp,TEMP)) - RCONST(119) = (ARR2(2.600000e-12_dp,-265.00_dp,TEMP)) - RCONST(120) = (ARR2(1.080000e-10_dp,-105.00_dp,TEMP)) - RCONST(121) = (usr_CO_OH_a(temp,c_m)) - RCONST(122) = (JPL_TROE(5.500000e-30_dp,0.00_dp,8.300000e-13_dp,-2.00_dp,0.60_dp,TEMP,C_M)) - RCONST(123) = (ARR2(1.200000e-14_dp,2630.00_dp,TEMP)) - RCONST(124) = (6.800000e-14_dp) - RCONST(125) = (2.000000e-13_dp) - RCONST(126) = (ARR2(7.500000e-13_dp,-700.00_dp,TEMP)) - RCONST(127) = (ARR2(2.600000e-12_dp,-365.00_dp,TEMP)) - RCONST(128) = (ARR2(6.900000e-12_dp,230.00_dp,TEMP)) - RCONST(129) = (ARR2(3.800000e-12_dp,-200.00_dp,TEMP)) - RCONST(130) = (ARR2(7.660000e-12_dp,1020.00_dp,TEMP)) - RCONST(131) = (ARR2(1.400000e-12_dp,1900.00_dp,TEMP)) - RCONST(132) = (ARR2(4.630000e-12_dp,-350.00_dp,TEMP)) - RCONST(133) = (ARR2(7.800000e-13_dp,1050.00_dp,TEMP)) - RCONST(134) = (ARR2(2.900000e-12_dp,-500.00_dp,TEMP)) - RCONST(135) = (ARR2(2.000000e-12_dp,-500.00_dp,TEMP)) - RCONST(136) = (ARR2(4.300000e-13_dp,-1040.00_dp,TEMP)) - RCONST(137) = (ARR2(8.100000e-12_dp,-270.00_dp,TEMP)) - RCONST(138) = (7.000000e-13_dp) - RCONST(139) = (1.000000e-12_dp) - RCONST(140) = (ARR2(7.500000e-13_dp,-700.00_dp,TEMP)) - RCONST(141) = (ARR2(4.200000e-12_dp,-180.00_dp,TEMP)) - RCONST(142) = (ARR2(1.600000e+11_dp,4150.00_dp,TEMP)) - RCONST(143) = (1.000000e-14_dp) - RCONST(144) = (1.000000e-11_dp) - RCONST(145) = (1.150000e-11_dp) - RCONST(146) = (4.000000e-14_dp) - RCONST(147) = (JPL_TROE(8.600000e-29_dp,3.10_dp,9.000000e-12_dp,0.85_dp,0.48_dp,TEMP,C_M)) - RCONST(148) = (JPL_TROE(9.700000e-29_dp,5.60_dp,9.300000e-12_dp,1.50_dp,0.60_dp,TEMP,C_M)) - RCONST(149) = (usr_PAN_M(temp,c_m)) - RCONST(150) = (ARR2(4.600000e-13_dp,1156.00_dp,TEMP)) - RCONST(151) = (ARR2(6.500000e-15_dp,1900.00_dp,TEMP)) - RCONST(152) = (ARR2(3.750000e-13_dp,40.00_dp,TEMP)) - RCONST(153) = (ARR2(7.500000e-13_dp,-700.00_dp,TEMP)) - RCONST(154) = (ARR2(4.200000e-12_dp,-180.00_dp,TEMP)) - RCONST(155) = (ARR2(3.800000e-12_dp,-200.00_dp,TEMP)) - RCONST(156) = (ARR2(8.700000e-12_dp,615.00_dp,TEMP)) - RCONST(157) = (ARR2(1.400000e-12_dp,1860.00_dp,TEMP)) - RCONST(158) = (ARR2(8.400000e-13_dp,-830.00_dp,TEMP)) - RCONST(159) = (3.000000e-12_dp) - RCONST(160) = (6.700000e-13_dp) - RCONST(161) = (ARR2(7.500000e-13_dp,-700.00_dp,TEMP)) - RCONST(162) = (ARR2(4.200000e-12_dp,-180.00_dp,TEMP)) - RCONST(163) = (ARR2(3.800000e-12_dp,-200.00_dp,TEMP)) - RCONST(164) = (ARR2(7.100000e-13_dp,-500.00_dp,TEMP)) - RCONST(165) = (ARR2(8.600000e-13_dp,-700.00_dp,TEMP)) - RCONST(166) = (ARR2(2.900000e-12_dp,-300.00_dp,TEMP)) - RCONST(167) = (ARR2(3.800000e-12_dp,-200.00_dp,TEMP)) - RCONST(168) = (JPL_TROE(8.000000e-27_dp,3.50_dp,3.000000e-11_dp,0.00_dp,0.50_dp,TEMP,C_M)) - RCONST(169) = (usr_CH3COCH3_OH(temp)) - RCONST(170) = (3.500000e-13_dp) - RCONST(171) = (5.400000e-11_dp) - RCONST(172) = (ARR2(4.800000e-12_dp,-120.00_dp,TEMP)) - RCONST(173) = (ARR2(5.100000e-14_dp,-693.00_dp,TEMP)) - RCONST(174) = (2.000000e-12_dp) - RCONST(175) = (1.400000e-11_dp) - RCONST(176) = (ARR2(5.000000e-13_dp,-400.00_dp,TEMP)) - RCONST(177) = (ARR2(8.000000e-13_dp,-700.00_dp,TEMP)) - RCONST(178) = (2.400000e-12_dp) - RCONST(179) = (ARR2(2.700000e-12_dp,-360.00_dp,TEMP)) - RCONST(180) = (ARR2(1.300000e-13_dp,-360.00_dp,TEMP)) - RCONST(181) = (ARR2(1.500000e-15_dp,2100.00_dp,TEMP)) - RCONST(182) = (ARR2(9.600000e-12_dp,-360.00_dp,TEMP)) - RCONST(183) = (ARR2(2.300000e-11_dp,-200.00_dp,TEMP)) - RCONST(184) = (ARR2(4.600000e-12_dp,-530.00_dp,TEMP)) - RCONST(185) = (ARR2(2.000000e-12_dp,-500.00_dp,TEMP)) - RCONST(186) = (ARR2(4.300000e-13_dp,-1040.00_dp,TEMP)) - RCONST(187) = (ARR2(2.300000e-12_dp,-530.00_dp,TEMP)) - RCONST(188) = (ARR2(5.300000e-12_dp,-360.00_dp,TEMP)) - RCONST(189) = (5.000000e-12_dp) - RCONST(190) = (ARR2(7.500000e-13_dp,-700.00_dp,TEMP)) - RCONST(191) = (ARR2(4.200000e-12_dp,-180.00_dp,TEMP)) - RCONST(192) = (ARR2(2.300000e-12_dp,170.00_dp,TEMP)) - RCONST(193) = (ARR2(3.800000e-12_dp,-200.00_dp,TEMP)) - RCONST(194) = (JPL_TROE(8.000000e-27_dp,3.50_dp,3.000000e-11_dp,0.00_dp,0.50_dp,TEMP,C_M)) - RCONST(195) = (ARR2(8.500000e-16_dp,1520.00_dp,TEMP)) - RCONST(196) = (ARR2(4.130000e-12_dp,-452.00_dp,TEMP)) - RCONST(197) = (usr_MCO3_NO2(temp,c_m)) - RCONST(198) = (usr_MPAN_M(temp,c_m)) - RCONST(199) = (1.600000e-12_dp) - RCONST(200) = (ARR2(7.500000e-13_dp,-700.00_dp,TEMP)) - RCONST(201) = (6.700000e-12_dp) - RCONST(202) = (ARR2(5.400000e-14_dp,-870.00_dp,TEMP)) - RCONST(203) = (ARR2(3.800000e-12_dp,-200.00_dp,TEMP)) - RCONST(204) = (3.500000e-12_dp) - RCONST(205) = (ARR2(1.860000e-11_dp,-175.00_dp,TEMP)) - RCONST(206) = (ARR2(1.860000e-11_dp,-175.00_dp,TEMP)) - RCONST(207) = (1.300000e-11_dp) - RCONST(208) = (1.400000e-11_dp) - RCONST(209) = (ARR2(5.000000e-13_dp,-400.00_dp,TEMP)) - RCONST(210) = (ARR2(8.000000e-13_dp,-700.00_dp,TEMP)) - RCONST(211) = (ARR2(4.400000e-12_dp,-180.00_dp,TEMP)) - RCONST(212) = (2.400000e-12_dp) - RCONST(213) = (1.400000e-11_dp) - RCONST(214) = (ARR2(5.000000e-13_dp,-400.00_dp,TEMP)) - RCONST(215) = (ARR2(8.000000e-13_dp,-700.00_dp,TEMP)) - RCONST(216) = (ARR2(1.600000e+9_dp,8300.00_dp,TEMP)) - RCONST(217) = (ARR2(4.400000e-12_dp,-180.00_dp,TEMP)) - RCONST(218) = (2.400000e-12_dp) - RCONST(219) = (4.000000e-11_dp) - RCONST(220) = (4.000000e-11_dp) - RCONST(221) = (ARR2(3.030000e-12_dp,446.00_dp,TEMP)) - RCONST(222) = (1.400000e-11_dp) - RCONST(223) = (ARR2(5.000000e-13_dp,-400.00_dp,TEMP)) - RCONST(224) = (ARR2(8.000000e-13_dp,-700.00_dp,TEMP)) - RCONST(225) = (ARR2(2.700000e-12_dp,-360.00_dp,TEMP)) - RCONST(226) = (2.400000e-12_dp) - RCONST(227) = (4.000000e-11_dp) - RCONST(228) = (ARR2(1.050000e-14_dp,2000.00_dp,TEMP)) - RCONST(229) = (ARR2(2.540000e-11_dp,-410.00_dp,TEMP)) - RCONST(230) = (ARR2(1.520000e-11_dp,-200.00_dp,TEMP)) - RCONST(231) = (7.000000e-11_dp) - RCONST(232) = (1.000000e-10_dp) - RCONST(233) = (ARR2(1.300000e-12_dp,-640.00_dp,TEMP)) - RCONST(234) = (ARR2(5.000000e-13_dp,-400.00_dp,TEMP)) - RCONST(235) = (ARR2(8.000000e-13_dp,-700.00_dp,TEMP)) - RCONST(236) = (ARR2(2.700000e-12_dp,-360.00_dp,TEMP)) - RCONST(237) = (2.400000e-12_dp) - RCONST(238) = (ARR2(1.520000e-12_dp,-200.00_dp,TEMP)) - RCONST(239) = (ARR2(4.300000e-13_dp,-1040.00_dp,TEMP)) - RCONST(240) = (ARR2(2.600000e-12_dp,-365.00_dp,TEMP)) - RCONST(241) = (1.400000e-11_dp) - RCONST(242) = (ARR2(4.600000e-14_dp,400.00_dp,TEMP)) - RCONST(243) = (ARR2(4.300000e-13_dp,-1040.00_dp,TEMP)) - RCONST(244) = (ARR2(2.600000e-12_dp,-365.00_dp,TEMP)) - RCONST(245) = (2.400000e-12_dp) - RCONST(246) = (ARR2(3.750000e-13_dp,40.00_dp,TEMP)) - RCONST(247) = (ARR2(7.500000e-13_dp,-700.00_dp,TEMP)) - RCONST(248) = (ARR2(2.600000e-12_dp,-365.00_dp,TEMP)) - RCONST(249) = (1.000000e-17_dp) - RCONST(250) = (ARR2(8.100000e-12_dp,-610.00_dp,TEMP)) - RCONST(251) = (ARR2(3.800000e-12_dp,-200.00_dp,TEMP)) - RCONST(252) = (ARR2(4.300000e-13_dp,-1040.00_dp,TEMP)) - RCONST(253) = (ARR2(7.500000e-12_dp,-290.00_dp,TEMP)) - RCONST(254) = (ARR2(1.400000e-12_dp,-700.00_dp,TEMP)) - RCONST(255) = (ARR2(2.600000e-12_dp,-350.00_dp,TEMP)) - RCONST(256) = (ARR2(2.300000e-12_dp,193.00_dp,TEMP)) - RCONST(257) = (ARR2(7.500000e-13_dp,-700.00_dp,TEMP)) - RCONST(258) = (ARR2(2.600000e-12_dp,-365.00_dp,TEMP)) - RCONST(259) = (ARR2(3.800000e-12_dp,-200.00_dp,TEMP)) - RCONST(260) = (ARR2(5.900000e-12_dp,-225.00_dp,TEMP)) - RCONST(261) = (ARR2(7.500000e-13_dp,-700.00_dp,TEMP)) - RCONST(262) = (ARR2(3.800000e-12_dp,-200.00_dp,TEMP)) - RCONST(263) = (ARR2(2.600000e-12_dp,-365.00_dp,TEMP)) - RCONST(264) = (ARR2(7.500000e-13_dp,-700.00_dp,TEMP)) - RCONST(265) = (ARR2(2.600000e-12_dp,-365.00_dp,TEMP)) - RCONST(266) = (ARR2(3.800000e-12_dp,-200.00_dp,TEMP)) - RCONST(267) = (4.700000e-11_dp) - RCONST(268) = (ARR2(4.300000e-13_dp,-1040.00_dp,TEMP)) - RCONST(269) = (ARR2(7.500000e-12_dp,-290.00_dp,TEMP)) - RCONST(270) = (JPL_TROE(9.700000e-29_dp,5.60_dp,9.300000e-12_dp,1.50_dp,0.60_dp,TEMP,C_M)) - RCONST(271) = (ARR2(4.300000e-13_dp,-1040.00_dp,TEMP)) - RCONST(272) = (ARR2(7.500000e-12_dp,-290.00_dp,TEMP)) - RCONST(273) = (JPL_TROE(9.700000e-29_dp,5.60_dp,9.300000e-12_dp,1.50_dp,0.60_dp,TEMP,C_M)) - RCONST(274) = (ARR2(4.300000e-13_dp,-1040.00_dp,TEMP)) - RCONST(275) = (ARR2(7.500000e-12_dp,-290.00_dp,TEMP)) - RCONST(276) = (JPL_TROE(9.700000e-29_dp,5.60_dp,9.300000e-12_dp,1.50_dp,0.60_dp,TEMP,C_M)) - RCONST(277) = (ARR2(7.500000e-13_dp,-700.00_dp,TEMP)) - RCONST(278) = (ARR2(2.600000e-12_dp,-365.00_dp,TEMP)) - RCONST(279) = (ARR2(4.700000e-13_dp,-1220.00_dp,TEMP)) - RCONST(280) = (2.100000e-12_dp) - RCONST(281) = (2.800000e-13_dp) - RCONST(282) = (ARR2(3.800000e-12_dp,-200.00_dp,TEMP)) - RCONST(283) = (JPL_TROE(9.700000e-29_dp,5.60_dp,9.300000e-12_dp,1.50_dp,0.60_dp,TEMP,C_M)) - RCONST(284) = (ARR2(7.500000e-13_dp,-700.00_dp,TEMP)) - RCONST(285) = (ARR2(2.600000e-12_dp,-365.00_dp,TEMP)) - RCONST(286) = (ARR2(3.800000e-12_dp,-200.00_dp,TEMP)) - RCONST(287) = (ARR2(1.700000e-12_dp,-352.00_dp,TEMP)) - RCONST(288) = (usr_PBZNIT_M(temp,c_m)) - RCONST(289) = (1.700000e-11_dp) - RCONST(290) = (ARR2(7.500000e-13_dp,-700.00_dp,TEMP)) - RCONST(291) = (ARR2(2.600000e-12_dp,-365.00_dp,TEMP)) - RCONST(292) = (ARR2(3.800000e-12_dp,-200.00_dp,TEMP)) - RCONST(293) = (ARR2(7.500000e-13_dp,-700.00_dp,TEMP)) - RCONST(294) = (ARR2(2.600000e-12_dp,-365.00_dp,TEMP)) - RCONST(295) = (8.400000e-11_dp) - RCONST(296) = (ARR2(3.800000e-12_dp,-200.00_dp,TEMP)) - RCONST(297) = (ARR2(1.200000e-12_dp,-490.00_dp,TEMP)) - RCONST(298) = (ARR2(6.300000e-16_dp,580.00_dp,TEMP)) - RCONST(299) = (ARR2(1.200000e-11_dp,-440.00_dp,TEMP)) - RCONST(300) = (1.900000e-11_dp) - RCONST(301) = (1.200000e-14_dp) - RCONST(302) = (2.000000e-10_dp) - RCONST(303) = (2.500000e-12_dp) - RCONST(304) = (ARR2(1.700000e-15_dp,1300.00_dp,TEMP)) - RCONST(305) = (ARR2(1.600000e-11_dp,-470.00_dp,TEMP)) - RCONST(306) = (1.100000e-11_dp) - RCONST(307) = (ARR2(3.000000e-15_dp,780.00_dp,TEMP)) - RCONST(308) = (ARR2(4.200000e-11_dp,-400.00_dp,TEMP)) - RCONST(309) = (1.200000e-11_dp) - RCONST(310) = (4.700000e-16_dp) - RCONST(311) = (2.100000e-10_dp) - RCONST(312) = (ARR2(2.000000e-12_dp,-500.00_dp,TEMP)) - RCONST(313) = (ARR2(7.500000e-13_dp,-700.00_dp,TEMP)) - RCONST(314) = (ARR2(4.200000e-12_dp,-180.00_dp,TEMP)) - RCONST(315) = (2.400000e-12_dp) - RCONST(316) = (2.000000e-11_dp) - RCONST(317) = (ARR2(2.000000e-12_dp,-500.00_dp,TEMP)) - RCONST(318) = (ARR2(7.500000e-13_dp,-700.00_dp,TEMP)) - RCONST(319) = (ARR2(4.200000e-12_dp,-180.00_dp,TEMP)) - RCONST(320) = (2.300000e-11_dp) - RCONST(321) = (2.000000e-11_dp) - RCONST(322) = (ARR2(2.000000e-12_dp,-500.00_dp,TEMP)) - RCONST(323) = (ARR2(7.500000e-13_dp,-700.00_dp,TEMP)) - RCONST(324) = (ARR2(4.200000e-12_dp,-180.00_dp,TEMP)) - RCONST(325) = (3.300000e-11_dp) - RCONST(326) = (1.000000e-12_dp) - RCONST(327) = (5.700000e-11_dp) - RCONST(328) = (3.400000e-11_dp) - RCONST(329) = (ARR2(1.900000e-13_dp,-520.00_dp,TEMP)) - RCONST(330) = (ARR2(9.600000e-12_dp,234.00_dp,TEMP)) - RCONST(331) = (ARR2(1.700000e-12_dp,710.00_dp,TEMP)) - RCONST(332) = (usr_DMS_OH(temp,c_m)) - RCONST(333) = (usr_HO2_aer(rh,temp)) - RCONST(334) = (usr_N2O5_aer(rh,temp)) - RCONST(335) = (usr_NO2_aer(rh,temp)) - RCONST(336) = (usr_NO3_aer(rh,temp)) - RCONST(337) = (usr_SO2_OH(temp,c_m)) - RCONST(338) = (ARR2(1.200000e-12_dp,-490.00_dp,TEMP)) - RCONST(339) = (ARR2(6.300000e-16_dp,580.00_dp,TEMP)) - RCONST(340) = (ARR2(1.200000e-11_dp,-440.00_dp,TEMP)) - RCONST(341) = (1.900000e-11_dp) - RCONST(342) = (1.200000e-14_dp) - RCONST(343) = (2.000000e-10_dp) - RCONST(344) = (ARR2(2.300000e-12_dp,193.00_dp,TEMP)) - RCONST(345) = (ARR2(1.200000e-12_dp,-490.00_dp,TEMP)) - RCONST(346) = (ARR2(6.300000e-16_dp,580.00_dp,TEMP)) - RCONST(347) = (ARR2(1.200000e-11_dp,-440.00_dp,TEMP)) - RCONST(348) = (ARR2(3.030000e-12_dp,446.00_dp,TEMP)) - RCONST(349) = (ARR2(1.050000e-14_dp,2000.00_dp,TEMP)) - RCONST(350) = (ARR2(2.540000e-11_dp,-410.00_dp,TEMP)) - RCONST(351) = (1.340000e-11_dp) - RCONST(352) = (ARR2(1.200000e-12_dp,-490.00_dp,TEMP)) - RCONST(353) = (ARR2(6.300000e-16_dp,580.00_dp,TEMP)) - RCONST(354) = (ARR2(1.200000e-11_dp,-440.00_dp,TEMP)) - RCONST(355) = (ARR2(1.200000e-12_dp,-490.00_dp,TEMP)) - RCONST(356) = (ARR2(6.300000e-16_dp,580.00_dp,TEMP)) - RCONST(357) = (ARR2(1.200000e-11_dp,-440.00_dp,TEMP)) - RCONST(358) = (1.340000e-11_dp) - RCONST(359) = (ARR2(1.700000e-12_dp,-352.00_dp,TEMP)) - RCONST(360) = (1.700000e-11_dp) - -END SUBROUTINE Update_RCONST - -! End of Update_RCONST function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_PHOTO - function to update photolytical rate constants -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Update_PHOTO ( ) - - - USE MOZART_T1_Global - - RCONST(1) = (j('h2o2')) - RCONST(2) = (j('o2')) - RCONST(3) = (j('o33p')) - RCONST(4) = (j('o31d')) - RCONST(5) = (j('hno3')) - RCONST(6) = (j('hno4')) - RCONST(7) = (j('n2o')) - RCONST(8) = (j('n2o5')) - RCONST(9) = (j('no2')) - RCONST(10) = (j('no3o')) - RCONST(11) = (j('ch3o2h')) - RCONST(12) = (j('ch3o2h')) - RCONST(13) = (j('ch3o2h')) - RCONST(14) = (0.1_dp*j('no2')) - RCONST(15) = (0.2_dp*j('no2')) - RCONST(16) = (0.14_dp*j('no2')) - RCONST(17) = (0.2_dp*j('no2')) - RCONST(18) = (0.2_dp*j('no2')) - RCONST(19) = (0.006_dp*j('no2')) - RCONST(20) = (j('ch3o2h')) - RCONST(21) = (j('ch3o2h')) - RCONST(22) = (j('ch3o2h')) - RCONST(23) = (j('ch3o2h')) - RCONST(24) = (j('ch2or')) - RCONST(25) = (j('ch2om')) - RCONST(26) = (j('ch3cho')) - RCONST(27) = (j('ch3coch3')) - RCONST(28) = (j('ch3cocho')) - RCONST(29) = (0.28_dp*j('h2o2')) - RCONST(30) = (j('ch3o2h')) - RCONST(31) = (j('ch3o2h')) - RCONST(32) = (j('glyald')) - RCONST(33) = (j('gly')) - RCONST(34) = (j('glyald')) - RCONST(35) = (j('ch2or')) - RCONST(36) = (0.006_dp*j('no2')) - RCONST(37) = (j('hyac')) - RCONST(38) = (j('ch3o2h')) - RCONST(39) = (j('ch3o2h')) - RCONST(40) = (j('macr')) - RCONST(41) = (j('ch3o2h')) - RCONST(42) = (j('ch3coch3')) - RCONST(43) = (j('ch3o2h')) - RCONST(44) = (j('pan')) - RCONST(45) = (j('mvk')) - RCONST(46) = (j('ch2or')) - RCONST(47) = (j('ch2or')) - RCONST(48) = (j('ch3o2h')) - RCONST(49) = (j('ch3cho')) - RCONST(50) = (j('pan')) - RCONST(51) = (j('ch3o2h')) - RCONST(52) = (j('ch3o2h')) - RCONST(53) = (j('ch3o2h')) - RCONST(54) = (0.1_dp*j('no2')) - RCONST(55) = (j('ch3o2h')) - RCONST(56) = (j('ch3o2h')) - RCONST(57) = (j('ch3o2h')) - RCONST(58) = (j('ch3cho')) - RCONST(59) = (j('ch3cho')) - RCONST(60) = (j('ch3o2h')) - RCONST(61) = (j('ch3o2h')) - RCONST(62) = (j('ch3o2h')) - RCONST(63) = (j('ch3o2h')) - -END SUBROUTINE Update_PHOTO - -! End of Update_PHOTO function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE MOZART_T1_Rates - diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Rates.o b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Rates.o deleted file mode 100644 index c4f89f983f316ad59453d781892d39ef2efd92d9..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Rates.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Stoichiom.f90 b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Stoichiom.f90 deleted file mode 100644 index 49162e956a947dc530fc4cb66b6ce30a107e9c48..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Stoichiom.f90 +++ /dev/null @@ -1,1833 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The Stoichiometric Chemical Model File -! -! Generated by KPP-2.2.3 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 : MOZART_T1_Stoichiom.f90 -! Time : Wed Jan 27 13:13:50 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_T1_20754_BOXMOX -! Equation file : MOZART_T1.kpp -! Output root filename : MOZART_T1 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MOZART_T1_Stoichiom - - USE MOZART_T1_Parameters - USE MOZART_T1_StoichiomSP - - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! ReactantProd - Reactant Products in each equation -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! ARP - Reactant product in each equation -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE ReactantProd ( V, F, ARP ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! F - Concentrations of fixed species (local) - REAL(kind=dp) :: F(NFIX) -! ARP - Reactant product in each equation - REAL(kind=dp) :: ARP(NREACT) - - -! Reactant Products in each equation are useful in the -! stoichiometric formulation of mass action law - ARP(1) = V(39) - ARP(2) = F(3) - ARP(3) = V(151) - ARP(4) = V(151) - ARP(5) = V(70) - ARP(6) = V(45) - ARP(7) = V(18) - ARP(8) = V(29) - ARP(9) = V(147) - ARP(10) = V(150) - ARP(11) = V(93) - ARP(12) = V(94) - ARP(13) = V(67) - ARP(14) = V(26) - ARP(15) = V(111) - ARP(16) = V(69) - ARP(17) = V(44) - ARP(18) = V(91) - ARP(19) = V(57) - ARP(20) = V(50) - ARP(21) = V(53) - ARP(22) = V(56) - ARP(23) = V(41) - ARP(24) = V(146) - ARP(25) = V(146) - ARP(26) = V(129) - ARP(27) = V(122) - ARP(28) = V(138) - ARP(29) = V(68) - ARP(30) = V(47) - ARP(31) = V(20) - ARP(32) = V(124) - ARP(33) = V(109) - ARP(34) = V(113) - ARP(35) = V(137) - ARP(36) = V(37) - ARP(37) = V(136) - ARP(38) = V(62) - ARP(39) = V(97) - ARP(40) = V(143) - ARP(41) = V(83) - ARP(42) = V(78) - ARP(43) = V(49) - ARP(44) = V(84) - ARP(45) = V(144) - ARP(46) = V(110) - ARP(47) = V(119) - ARP(48) = V(52) - ARP(49) = V(22) - ARP(50) = V(71) - ARP(51) = V(54) - ARP(52) = V(74) - ARP(53) = V(55) - ARP(54) = V(32) - ARP(55) = V(88) - ARP(56) = V(80) - ARP(57) = V(75) - ARP(58) = V(133) - ARP(59) = V(126) - ARP(60) = V(89) - ARP(61) = V(33) - ARP(62) = V(98) - ARP(63) = V(63) - ARP(64) = V(87)*V(106) - ARP(65) = V(82)*V(106) - ARP(66) = V(106)*F(2) - ARP(67) = V(106)*F(4) - ARP(68) = V(106)*F(3) - ARP(69) = V(106)*V(151) - ARP(70) = V(135)*V(151) - ARP(71) = V(135)*V(135)*F(1) - ARP(72) = V(135)*F(1)*F(3) - ARP(73) = V(82)*V(135) - ARP(74) = V(39)*V(135) - ARP(75) = V(135)*V(149) - ARP(76) = V(149)*V(151) - ARP(77) = V(82)*V(148) - ARP(78) = V(39)*V(148) - ARP(79) = V(148)*V(149) - ARP(80) = V(135)*V(148) - ARP(81) = V(148)*V(151) - ARP(82) = V(148)*V(148) - ARP(83) = V(148)*V(148) - ARP(84) = V(149)*V(149) - ARP(85) = V(45)*V(148) - ARP(86) = V(135)*V(147) - ARP(87) = V(147)*V(151) - ARP(88) = V(135)*V(147) - ARP(89) = V(149)*V(150) - ARP(90) = V(150)*V(153) - ARP(91) = V(135)*V(150) - ARP(92) = V(148)*V(150) - ARP(93) = V(149)*V(153) - ARP(94) = V(151)*V(153) - ARP(95) = V(135)*V(153) - ARP(96) = V(18)*V(106) - ARP(97) = V(18)*V(106) - ARP(98) = V(147)*V(149) - ARP(99) = V(147)*V(150) - ARP(100) = V(147)*V(148) - ARP(101) = V(70)*V(148) - ARP(102) = V(45)*F(1) - ARP(103) = V(29)*F(1) - ARP(104) = V(146)*V(149) - ARP(105) = V(146)*V(150) - ARP(106) = V(135)*V(146) - ARP(107) = V(146)*V(148) - ARP(108) = V(155)*V(155) - ARP(109) = V(155)*V(155) - ARP(110) = V(149)*V(155) - ARP(111) = V(153)*V(155) - ARP(112) = V(107)*V(148) - ARP(113) = V(47)*V(148) - ARP(114) = V(87)*V(148) - ARP(115) = V(28)*V(148) - ARP(116) = V(103)*V(148) - ARP(117) = V(65)*V(149) - ARP(118) = V(65) - ARP(119) = V(65)*V(153) - ARP(120) = V(28)*V(106) - ARP(121) = V(123)*V(148) - ARP(122) = V(24)*V(148) - ARP(123) = V(60)*V(151) - ARP(124) = V(108)*V(108) - ARP(125) = V(108)*V(155) - ARP(126) = V(108)*V(149) - ARP(127) = V(108)*V(153) - ARP(128) = V(40)*V(148) - ARP(129) = V(53)*V(148) - ARP(130) = V(15)*V(148) - ARP(131) = V(129)*V(150) - ARP(132) = V(129)*V(148) - ARP(133) = V(17)*V(148) - ARP(134) = V(152)*V(152) - ARP(135) = V(152)*V(155) - ARP(136) = V(149)*V(152) - ARP(137) = V(152)*V(153) - ARP(138) = V(61)*V(148) - ARP(139) = V(68)*V(148) - ARP(140) = V(90)*V(149) - ARP(141) = V(90)*V(153) - ARP(142) = V(42) - ARP(143) = V(42)*F(3) - ARP(144) = V(124)*V(148) - ARP(145) = V(109)*V(148) - ARP(146) = V(71)*V(148) - ARP(147) = V(60)*V(148) - ARP(148) = V(147)*V(152) - ARP(149) = V(71)*F(1) - ARP(150) = V(128)*V(150) - ARP(151) = V(128)*V(151) - ARP(152) = V(105)*V(155) - ARP(153) = V(105)*V(149) - ARP(154) = V(105)*V(153) - ARP(155) = V(56)*V(148) - ARP(156) = V(16)*V(148) - ARP(157) = V(138)*V(150) - ARP(158) = V(138)*V(148) - ARP(159) = V(136)*V(148) - ARP(160) = V(119)*V(148) - ARP(161) = V(96)*V(149) - ARP(162) = V(96)*V(153) - ARP(163) = V(74)*V(148) - ARP(164) = V(134)*V(155) - ARP(165) = V(134)*V(149) - ARP(166) = V(134)*V(153) - ARP(167) = V(55)*V(148) - ARP(168) = V(128)*V(148) - ARP(169) = V(122)*V(148) - ARP(170) = V(59)*V(150) - ARP(171) = V(59)*V(148) - ARP(172) = V(86)*V(153) - ARP(173) = V(86)*V(153) - ARP(174) = V(137)*V(148) - ARP(175) = V(145)*V(152) - ARP(176) = V(145)*V(155) - ARP(177) = V(145)*V(149) - ARP(178) = V(145)*V(150) - ARP(179) = V(145)*V(153) - ARP(180) = V(145)*V(153) - ARP(181) = V(143)*V(151) - ARP(182) = V(143)*V(148) - ARP(183) = V(48)*V(148) - ARP(184) = V(152)*V(154) - ARP(185) = V(154)*V(155) - ARP(186) = V(149)*V(154) - ARP(187) = V(154)*V(154) - ARP(188) = V(153)*V(154) - ARP(189) = V(150)*V(154) - ARP(190) = V(95)*V(149) - ARP(191) = V(95)*V(153) - ARP(192) = V(78)*V(148) - ARP(193) = V(49)*V(148) - ARP(194) = V(84)*V(148) - ARP(195) = V(144)*V(151) - ARP(196) = V(144)*V(148) - ARP(197) = V(147)*V(154)*F(1) - ARP(198) = V(84)*F(1) - ARP(199) = V(93)*V(148) - ARP(200) = V(121)*V(149) - ARP(201) = V(121)*V(153) - ARP(202) = V(121)*V(153) - ARP(203) = V(94)*V(148) - ARP(204) = V(58)*V(148) - ARP(205) = V(37)*V(148) - ARP(206) = V(46)*V(148) - ARP(207) = V(21)*V(148) - ARP(208) = V(140)*V(152) - ARP(209) = V(140)*V(155) - ARP(210) = V(140)*V(149) - ARP(211) = V(140)*V(153) - ARP(212) = V(140)*V(150) - ARP(213) = V(141)*V(152) - ARP(214) = V(141)*V(155) - ARP(215) = V(141)*V(149) - ARP(216) = V(141) - ARP(217) = V(141)*V(153) - ARP(218) = V(141)*V(150) - ARP(219) = V(85)*V(148) - ARP(220) = V(72)*V(148) - ARP(221) = V(114)*V(150) - ARP(222) = V(142)*V(152) - ARP(223) = V(142)*V(155) - ARP(224) = V(142)*V(149) - ARP(225) = V(142)*V(153) - ARP(226) = V(142)*V(150) - ARP(227) = V(62)*V(148) - ARP(228) = V(114)*V(151) - ARP(229) = V(114)*V(148) - ARP(230) = V(97)*V(148) - ARP(231) = V(51)*V(148) - ARP(232) = V(110)*V(148) - ARP(233) = V(139)*V(152) - ARP(234) = V(139)*V(155) - ARP(235) = V(139)*V(149) - ARP(236) = V(139)*V(153) - ARP(237) = V(139)*V(150) - ARP(238) = V(33)*V(148) - ARP(239) = V(79)*V(149) - ARP(240) = V(79)*V(153) - ARP(241) = V(113)*V(148) - ARP(242) = V(104)*V(150) - ARP(243) = V(112)*V(149) - ARP(244) = V(112)*V(153) - ARP(245) = V(112)*V(150) - ARP(246) = V(125)*V(155) - ARP(247) = V(125)*V(149) - ARP(248) = V(125)*V(153) - ARP(249) = V(104)*V(151) - ARP(250) = V(104)*V(148) - ARP(251) = V(83)*V(148) - ARP(252) = V(81)*V(149) - ARP(253) = V(81)*V(153) - ARP(254) = V(43)*V(149) - ARP(255) = V(43)*V(153) - ARP(256) = V(25)*V(148) - ARP(257) = V(76)*V(149) - ARP(258) = V(76)*V(153) - ARP(259) = V(67)*V(148) - ARP(260) = V(38)*V(148) - ARP(261) = V(64)*V(149) - ARP(262) = V(50)*V(148) - ARP(263) = V(64)*V(153) - ARP(264) = V(92)*V(149) - ARP(265) = V(92)*V(153) - ARP(266) = V(41)*V(148) - ARP(267) = V(31)*V(148) - ARP(268) = V(102)*V(149) - ARP(269) = V(102)*V(153) - ARP(270) = V(102)*V(147) - ARP(271) = V(100)*V(149) - ARP(272) = V(100)*V(153) - ARP(273) = V(100)*V(147) - ARP(274) = V(130)*V(149) - ARP(275) = V(130)*V(153) - ARP(276) = V(130)*V(147) - ARP(277) = V(66)*V(149) - ARP(278) = V(66)*V(153) - ARP(279) = V(27)*V(148) - ARP(280) = V(73)*V(147) - ARP(281) = V(73)*V(151) - ARP(282) = V(54)*V(148) - ARP(283) = V(81)*V(147) - ARP(284) = V(99)*V(149) - ARP(285) = V(99)*V(153) - ARP(286) = V(89)*V(148) - ARP(287) = V(30)*V(148) - ARP(288) = V(23)*F(1) - ARP(289) = V(34)*V(148) - ARP(290) = V(101)*V(149) - ARP(291) = V(101)*V(153) - ARP(292) = V(98)*V(148) - ARP(293) = V(77)*V(149) - ARP(294) = V(77)*V(153) - ARP(295) = V(35)*V(148) - ARP(296) = V(63)*V(148) - ARP(297) = V(116)*V(150) - ARP(298) = V(116)*V(151) - ARP(299) = V(116)*V(148) - ARP(300) = V(117)*V(150) - ARP(301) = V(117)*V(151) - ARP(302) = V(117)*V(148) - ARP(303) = V(118)*V(150) - ARP(304) = V(118)*V(151) - ARP(305) = V(118)*V(148) - ARP(306) = V(115)*V(150) - ARP(307) = V(115)*V(151) - ARP(308) = V(115)*V(148) - ARP(309) = V(120)*V(150) - ARP(310) = V(120)*V(151) - ARP(311) = V(120)*V(148) - ARP(312) = V(132)*V(155) - ARP(313) = V(132)*V(149) - ARP(314) = V(132)*V(153) - ARP(315) = V(132)*V(150) - ARP(316) = V(52)*V(148) - ARP(317) = V(127)*V(155) - ARP(318) = V(127)*V(149) - ARP(319) = V(127)*V(153) - ARP(320) = V(88)*V(148) - ARP(321) = V(80)*V(148) - ARP(322) = V(131)*V(155) - ARP(323) = V(131)*V(149) - ARP(324) = V(131)*V(153) - ARP(325) = V(75)*V(148) - ARP(326) = V(133)*V(150) - ARP(327) = V(133)*V(148) - ARP(328) = V(126)*V(148) - ARP(329) = V(36)*V(150) - ARP(330) = V(36)*V(148) - ARP(331) = V(14)*V(148) - ARP(332) = V(36)*V(148) - ARP(333) = V(149) - ARP(334) = V(29) - ARP(335) = V(147) - ARP(336) = V(150) - ARP(337) = V(19)*V(148) - ARP(338) = V(116)*V(150) - ARP(339) = V(116)*V(151) - ARP(340) = V(116)*V(148) - ARP(341) = V(117)*V(150) - ARP(342) = V(117)*V(151) - ARP(343) = V(117)*V(148) - ARP(344) = V(25)*V(148) - ARP(345) = V(118)*V(150) - ARP(346) = V(118)*V(151) - ARP(347) = V(118)*V(148) - ARP(348) = V(114)*V(150) - ARP(349) = V(114)*V(151) - ARP(350) = V(114)*V(148) - ARP(351) = V(8)*V(148) - ARP(352) = V(115)*V(150) - ARP(353) = V(115)*V(151) - ARP(354) = V(115)*V(148) - ARP(355) = V(120)*V(150) - ARP(356) = V(120)*V(151) - ARP(357) = V(120)*V(148) - ARP(358) = V(9)*V(148) - ARP(359) = V(30)*V(148) - ARP(360) = V(34)*V(148) - -END SUBROUTINE ReactantProd - -! End of ReactantProd function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! JacReactantProd - Jacobian of Reactant Products vector -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! JVRP - d ARP(1:NREACT)/d VAR (1:NVAR) -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE JacReactantProd ( V, F, JVRP ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! F - Concentrations of fixed species (local) - REAL(kind=dp) :: F(NFIX) -! JVRP - d ARP(1:NREACT)/d VAR (1:NVAR) - REAL(kind=dp) :: JVRP(NJVRP) - - -! Reactant Products in each equation are useful in the -! stoichiometric formulation of mass action law -! Below we compute the Jacobian of the Reactant Products vector -! w.r.t. variable species: d ARP(1:NREACT) / d Var(1:NVAR) - -! JVRP(1) = dARP(1)/dV(39) - JVRP(1) = 1 -! JVRP(2) = dARP(3)/dV(151) - JVRP(2) = 1 -! JVRP(3) = dARP(4)/dV(151) - JVRP(3) = 1 -! JVRP(4) = dARP(5)/dV(70) - JVRP(4) = 1 -! JVRP(5) = dARP(6)/dV(45) - JVRP(5) = 1 -! JVRP(6) = dARP(7)/dV(18) - JVRP(6) = 1 -! JVRP(7) = dARP(8)/dV(29) - JVRP(7) = 1 -! JVRP(8) = dARP(9)/dV(147) - JVRP(8) = 1 -! JVRP(9) = dARP(10)/dV(150) - JVRP(9) = 1 -! JVRP(10) = dARP(11)/dV(93) - JVRP(10) = 1 -! JVRP(11) = dARP(12)/dV(94) - JVRP(11) = 1 -! JVRP(12) = dARP(13)/dV(67) - JVRP(12) = 1 -! JVRP(13) = dARP(14)/dV(26) - JVRP(13) = 1 -! JVRP(14) = dARP(15)/dV(111) - JVRP(14) = 1 -! JVRP(15) = dARP(16)/dV(69) - JVRP(15) = 1 -! JVRP(16) = dARP(17)/dV(44) - JVRP(16) = 1 -! JVRP(17) = dARP(18)/dV(91) - JVRP(17) = 1 -! JVRP(18) = dARP(19)/dV(57) - JVRP(18) = 1 -! JVRP(19) = dARP(20)/dV(50) - JVRP(19) = 1 -! JVRP(20) = dARP(21)/dV(53) - JVRP(20) = 1 -! JVRP(21) = dARP(22)/dV(56) - JVRP(21) = 1 -! JVRP(22) = dARP(23)/dV(41) - JVRP(22) = 1 -! JVRP(23) = dARP(24)/dV(146) - JVRP(23) = 1 -! JVRP(24) = dARP(25)/dV(146) - JVRP(24) = 1 -! JVRP(25) = dARP(26)/dV(129) - JVRP(25) = 1 -! JVRP(26) = dARP(27)/dV(122) - JVRP(26) = 1 -! JVRP(27) = dARP(28)/dV(138) - JVRP(27) = 1 -! JVRP(28) = dARP(29)/dV(68) - JVRP(28) = 1 -! JVRP(29) = dARP(30)/dV(47) - JVRP(29) = 1 -! JVRP(30) = dARP(31)/dV(20) - JVRP(30) = 1 -! JVRP(31) = dARP(32)/dV(124) - JVRP(31) = 1 -! JVRP(32) = dARP(33)/dV(109) - JVRP(32) = 1 -! JVRP(33) = dARP(34)/dV(113) - JVRP(33) = 1 -! JVRP(34) = dARP(35)/dV(137) - JVRP(34) = 1 -! JVRP(35) = dARP(36)/dV(37) - JVRP(35) = 1 -! JVRP(36) = dARP(37)/dV(136) - JVRP(36) = 1 -! JVRP(37) = dARP(38)/dV(62) - JVRP(37) = 1 -! JVRP(38) = dARP(39)/dV(97) - JVRP(38) = 1 -! JVRP(39) = dARP(40)/dV(143) - JVRP(39) = 1 -! JVRP(40) = dARP(41)/dV(83) - JVRP(40) = 1 -! JVRP(41) = dARP(42)/dV(78) - JVRP(41) = 1 -! JVRP(42) = dARP(43)/dV(49) - JVRP(42) = 1 -! JVRP(43) = dARP(44)/dV(84) - JVRP(43) = 1 -! JVRP(44) = dARP(45)/dV(144) - JVRP(44) = 1 -! JVRP(45) = dARP(46)/dV(110) - JVRP(45) = 1 -! JVRP(46) = dARP(47)/dV(119) - JVRP(46) = 1 -! JVRP(47) = dARP(48)/dV(52) - JVRP(47) = 1 -! JVRP(48) = dARP(49)/dV(22) - JVRP(48) = 1 -! JVRP(49) = dARP(50)/dV(71) - JVRP(49) = 1 -! JVRP(50) = dARP(51)/dV(54) - JVRP(50) = 1 -! JVRP(51) = dARP(52)/dV(74) - JVRP(51) = 1 -! JVRP(52) = dARP(53)/dV(55) - JVRP(52) = 1 -! JVRP(53) = dARP(54)/dV(32) - JVRP(53) = 1 -! JVRP(54) = dARP(55)/dV(88) - JVRP(54) = 1 -! JVRP(55) = dARP(56)/dV(80) - JVRP(55) = 1 -! JVRP(56) = dARP(57)/dV(75) - JVRP(56) = 1 -! JVRP(57) = dARP(58)/dV(133) - JVRP(57) = 1 -! JVRP(58) = dARP(59)/dV(126) - JVRP(58) = 1 -! JVRP(59) = dARP(60)/dV(89) - JVRP(59) = 1 -! JVRP(60) = dARP(61)/dV(33) - JVRP(60) = 1 -! JVRP(61) = dARP(62)/dV(98) - JVRP(61) = 1 -! JVRP(62) = dARP(63)/dV(63) - JVRP(62) = 1 -! JVRP(63) = dARP(64)/dV(87) - JVRP(63) = V(106) -! JVRP(64) = dARP(64)/dV(106) - JVRP(64) = V(87) -! JVRP(65) = dARP(65)/dV(82) - JVRP(65) = V(106) -! JVRP(66) = dARP(65)/dV(106) - JVRP(66) = V(82) -! JVRP(67) = dARP(66)/dV(106) - JVRP(67) = F(2) -! JVRP(68) = dARP(67)/dV(106) - JVRP(68) = F(4) -! JVRP(69) = dARP(68)/dV(106) - JVRP(69) = F(3) -! JVRP(70) = dARP(69)/dV(106) - JVRP(70) = V(151) -! JVRP(71) = dARP(69)/dV(151) - JVRP(71) = V(106) -! JVRP(72) = dARP(70)/dV(135) - JVRP(72) = V(151) -! JVRP(73) = dARP(70)/dV(151) - JVRP(73) = V(135) -! JVRP(74) = dARP(71)/dV(135) - JVRP(74) = 2*V(135)*F(1) -! JVRP(75) = dARP(72)/dV(135) - JVRP(75) = F(1)*F(3) -! JVRP(76) = dARP(73)/dV(82) - JVRP(76) = V(135) -! JVRP(77) = dARP(73)/dV(135) - JVRP(77) = V(82) -! JVRP(78) = dARP(74)/dV(39) - JVRP(78) = V(135) -! JVRP(79) = dARP(74)/dV(135) - JVRP(79) = V(39) -! JVRP(80) = dARP(75)/dV(135) - JVRP(80) = V(149) -! JVRP(81) = dARP(75)/dV(149) - JVRP(81) = V(135) -! JVRP(82) = dARP(76)/dV(149) - JVRP(82) = V(151) -! JVRP(83) = dARP(76)/dV(151) - JVRP(83) = V(149) -! JVRP(84) = dARP(77)/dV(82) - JVRP(84) = V(148) -! JVRP(85) = dARP(77)/dV(148) - JVRP(85) = V(82) -! JVRP(86) = dARP(78)/dV(39) - JVRP(86) = V(148) -! JVRP(87) = dARP(78)/dV(148) - JVRP(87) = V(39) -! JVRP(88) = dARP(79)/dV(148) - JVRP(88) = V(149) -! JVRP(89) = dARP(79)/dV(149) - JVRP(89) = V(148) -! JVRP(90) = dARP(80)/dV(135) - JVRP(90) = V(148) -! JVRP(91) = dARP(80)/dV(148) - JVRP(91) = V(135) -! JVRP(92) = dARP(81)/dV(148) - JVRP(92) = V(151) -! JVRP(93) = dARP(81)/dV(151) - JVRP(93) = V(148) -! JVRP(94) = dARP(82)/dV(148) - JVRP(94) = 2*V(148) -! JVRP(95) = dARP(83)/dV(148) - JVRP(95) = 2*V(148) -! JVRP(96) = dARP(84)/dV(149) - JVRP(96) = 2*V(149) -! JVRP(97) = dARP(85)/dV(45) - JVRP(97) = V(148) -! JVRP(98) = dARP(85)/dV(148) - JVRP(98) = V(45) -! JVRP(99) = dARP(86)/dV(135) - JVRP(99) = V(147) -! JVRP(100) = dARP(86)/dV(147) - JVRP(100) = V(135) -! JVRP(101) = dARP(87)/dV(147) - JVRP(101) = V(151) -! JVRP(102) = dARP(87)/dV(151) - JVRP(102) = V(147) -! JVRP(103) = dARP(88)/dV(135) - JVRP(103) = V(147) -! JVRP(104) = dARP(88)/dV(147) - JVRP(104) = V(135) -! JVRP(105) = dARP(89)/dV(149) - JVRP(105) = V(150) -! JVRP(106) = dARP(89)/dV(150) - JVRP(106) = V(149) -! JVRP(107) = dARP(90)/dV(150) - JVRP(107) = V(153) -! JVRP(108) = dARP(90)/dV(153) - JVRP(108) = V(150) -! JVRP(109) = dARP(91)/dV(135) - JVRP(109) = V(150) -! JVRP(110) = dARP(91)/dV(150) - JVRP(110) = V(135) -! JVRP(111) = dARP(92)/dV(148) - JVRP(111) = V(150) -! JVRP(112) = dARP(92)/dV(150) - JVRP(112) = V(148) -! JVRP(113) = dARP(93)/dV(149) - JVRP(113) = V(153) -! JVRP(114) = dARP(93)/dV(153) - JVRP(114) = V(149) -! JVRP(115) = dARP(94)/dV(151) - JVRP(115) = V(153) -! JVRP(116) = dARP(94)/dV(153) - JVRP(116) = V(151) -! JVRP(117) = dARP(95)/dV(135) - JVRP(117) = V(153) -! JVRP(118) = dARP(95)/dV(153) - JVRP(118) = V(135) -! JVRP(119) = dARP(96)/dV(18) - JVRP(119) = V(106) -! JVRP(120) = dARP(96)/dV(106) - JVRP(120) = V(18) -! JVRP(121) = dARP(97)/dV(18) - JVRP(121) = V(106) -! JVRP(122) = dARP(97)/dV(106) - JVRP(122) = V(18) -! JVRP(123) = dARP(98)/dV(147) - JVRP(123) = V(149) -! JVRP(124) = dARP(98)/dV(149) - JVRP(124) = V(147) -! JVRP(125) = dARP(99)/dV(147) - JVRP(125) = V(150) -! JVRP(126) = dARP(99)/dV(150) - JVRP(126) = V(147) -! JVRP(127) = dARP(100)/dV(147) - JVRP(127) = V(148) -! JVRP(128) = dARP(100)/dV(148) - JVRP(128) = V(147) -! JVRP(129) = dARP(101)/dV(70) - JVRP(129) = V(148) -! JVRP(130) = dARP(101)/dV(148) - JVRP(130) = V(70) -! JVRP(131) = dARP(102)/dV(45) - JVRP(131) = F(1) -! JVRP(132) = dARP(103)/dV(29) - JVRP(132) = F(1) -! JVRP(133) = dARP(104)/dV(146) - JVRP(133) = V(149) -! JVRP(134) = dARP(104)/dV(149) - JVRP(134) = V(146) -! JVRP(135) = dARP(105)/dV(146) - JVRP(135) = V(150) -! JVRP(136) = dARP(105)/dV(150) - JVRP(136) = V(146) -! JVRP(137) = dARP(106)/dV(135) - JVRP(137) = V(146) -! JVRP(138) = dARP(106)/dV(146) - JVRP(138) = V(135) -! JVRP(139) = dARP(107)/dV(146) - JVRP(139) = V(148) -! JVRP(140) = dARP(107)/dV(148) - JVRP(140) = V(146) -! JVRP(141) = dARP(108)/dV(155) - JVRP(141) = 2*V(155) -! JVRP(142) = dARP(109)/dV(155) - JVRP(142) = 2*V(155) -! JVRP(143) = dARP(110)/dV(149) - JVRP(143) = V(155) -! JVRP(144) = dARP(110)/dV(155) - JVRP(144) = V(149) -! JVRP(145) = dARP(111)/dV(153) - JVRP(145) = V(155) -! JVRP(146) = dARP(111)/dV(155) - JVRP(146) = V(153) -! JVRP(147) = dARP(112)/dV(107) - JVRP(147) = V(148) -! JVRP(148) = dARP(112)/dV(148) - JVRP(148) = V(107) -! JVRP(149) = dARP(113)/dV(47) - JVRP(149) = V(148) -! JVRP(150) = dARP(113)/dV(148) - JVRP(150) = V(47) -! JVRP(151) = dARP(114)/dV(87) - JVRP(151) = V(148) -! JVRP(152) = dARP(114)/dV(148) - JVRP(152) = V(87) -! JVRP(153) = dARP(115)/dV(28) - JVRP(153) = V(148) -! JVRP(154) = dARP(115)/dV(148) - JVRP(154) = V(28) -! JVRP(155) = dARP(116)/dV(103) - JVRP(155) = V(148) -! JVRP(156) = dARP(116)/dV(148) - JVRP(156) = V(103) -! JVRP(157) = dARP(117)/dV(65) - JVRP(157) = V(149) -! JVRP(158) = dARP(117)/dV(149) - JVRP(158) = V(65) -! JVRP(159) = dARP(118)/dV(65) - JVRP(159) = 1 -! JVRP(160) = dARP(119)/dV(65) - JVRP(160) = V(153) -! JVRP(161) = dARP(119)/dV(153) - JVRP(161) = V(65) -! JVRP(162) = dARP(120)/dV(28) - JVRP(162) = V(106) -! JVRP(163) = dARP(120)/dV(106) - JVRP(163) = V(28) -! JVRP(164) = dARP(121)/dV(123) - JVRP(164) = V(148) -! JVRP(165) = dARP(121)/dV(148) - JVRP(165) = V(123) -! JVRP(166) = dARP(122)/dV(24) - JVRP(166) = V(148) -! JVRP(167) = dARP(122)/dV(148) - JVRP(167) = V(24) -! JVRP(168) = dARP(123)/dV(60) - JVRP(168) = V(151) -! JVRP(169) = dARP(123)/dV(151) - JVRP(169) = V(60) -! JVRP(170) = dARP(124)/dV(108) - JVRP(170) = 2*V(108) -! JVRP(171) = dARP(125)/dV(108) - JVRP(171) = V(155) -! JVRP(172) = dARP(125)/dV(155) - JVRP(172) = V(108) -! JVRP(173) = dARP(126)/dV(108) - JVRP(173) = V(149) -! JVRP(174) = dARP(126)/dV(149) - JVRP(174) = V(108) -! JVRP(175) = dARP(127)/dV(108) - JVRP(175) = V(153) -! JVRP(176) = dARP(127)/dV(153) - JVRP(176) = V(108) -! JVRP(177) = dARP(128)/dV(40) - JVRP(177) = V(148) -! JVRP(178) = dARP(128)/dV(148) - JVRP(178) = V(40) -! JVRP(179) = dARP(129)/dV(53) - JVRP(179) = V(148) -! JVRP(180) = dARP(129)/dV(148) - JVRP(180) = V(53) -! JVRP(181) = dARP(130)/dV(15) - JVRP(181) = V(148) -! JVRP(182) = dARP(130)/dV(148) - JVRP(182) = V(15) -! JVRP(183) = dARP(131)/dV(129) - JVRP(183) = V(150) -! JVRP(184) = dARP(131)/dV(150) - JVRP(184) = V(129) -! JVRP(185) = dARP(132)/dV(129) - JVRP(185) = V(148) -! JVRP(186) = dARP(132)/dV(148) - JVRP(186) = V(129) -! JVRP(187) = dARP(133)/dV(17) - JVRP(187) = V(148) -! JVRP(188) = dARP(133)/dV(148) - JVRP(188) = V(17) -! JVRP(189) = dARP(134)/dV(152) - JVRP(189) = 2*V(152) -! JVRP(190) = dARP(135)/dV(152) - JVRP(190) = V(155) -! JVRP(191) = dARP(135)/dV(155) - JVRP(191) = V(152) -! JVRP(192) = dARP(136)/dV(149) - JVRP(192) = V(152) -! JVRP(193) = dARP(136)/dV(152) - JVRP(193) = V(149) -! JVRP(194) = dARP(137)/dV(152) - JVRP(194) = V(153) -! JVRP(195) = dARP(137)/dV(153) - JVRP(195) = V(152) -! JVRP(196) = dARP(138)/dV(61) - JVRP(196) = V(148) -! JVRP(197) = dARP(138)/dV(148) - JVRP(197) = V(61) -! JVRP(198) = dARP(139)/dV(68) - JVRP(198) = V(148) -! JVRP(199) = dARP(139)/dV(148) - JVRP(199) = V(68) -! JVRP(200) = dARP(140)/dV(90) - JVRP(200) = V(149) -! JVRP(201) = dARP(140)/dV(149) - JVRP(201) = V(90) -! JVRP(202) = dARP(141)/dV(90) - JVRP(202) = V(153) -! JVRP(203) = dARP(141)/dV(153) - JVRP(203) = V(90) -! JVRP(204) = dARP(142)/dV(42) - JVRP(204) = 1 -! JVRP(205) = dARP(143)/dV(42) - JVRP(205) = F(3) -! JVRP(206) = dARP(144)/dV(124) - JVRP(206) = V(148) -! JVRP(207) = dARP(144)/dV(148) - JVRP(207) = V(124) -! JVRP(208) = dARP(145)/dV(109) - JVRP(208) = V(148) -! JVRP(209) = dARP(145)/dV(148) - JVRP(209) = V(109) -! JVRP(210) = dARP(146)/dV(71) - JVRP(210) = V(148) -! JVRP(211) = dARP(146)/dV(148) - JVRP(211) = V(71) -! JVRP(212) = dARP(147)/dV(60) - JVRP(212) = V(148) -! JVRP(213) = dARP(147)/dV(148) - JVRP(213) = V(60) -! JVRP(214) = dARP(148)/dV(147) - JVRP(214) = V(152) -! JVRP(215) = dARP(148)/dV(152) - JVRP(215) = V(147) -! JVRP(216) = dARP(149)/dV(71) - JVRP(216) = F(1) -! JVRP(217) = dARP(150)/dV(128) - JVRP(217) = V(150) -! JVRP(218) = dARP(150)/dV(150) - JVRP(218) = V(128) -! JVRP(219) = dARP(151)/dV(128) - JVRP(219) = V(151) -! JVRP(220) = dARP(151)/dV(151) - JVRP(220) = V(128) -! JVRP(221) = dARP(152)/dV(105) - JVRP(221) = V(155) -! JVRP(222) = dARP(152)/dV(155) - JVRP(222) = V(105) -! JVRP(223) = dARP(153)/dV(105) - JVRP(223) = V(149) -! JVRP(224) = dARP(153)/dV(149) - JVRP(224) = V(105) -! JVRP(225) = dARP(154)/dV(105) - JVRP(225) = V(153) -! JVRP(226) = dARP(154)/dV(153) - JVRP(226) = V(105) -! JVRP(227) = dARP(155)/dV(56) - JVRP(227) = V(148) -! JVRP(228) = dARP(155)/dV(148) - JVRP(228) = V(56) -! JVRP(229) = dARP(156)/dV(16) - JVRP(229) = V(148) -! JVRP(230) = dARP(156)/dV(148) - JVRP(230) = V(16) -! JVRP(231) = dARP(157)/dV(138) - JVRP(231) = V(150) -! JVRP(232) = dARP(157)/dV(150) - JVRP(232) = V(138) -! JVRP(233) = dARP(158)/dV(138) - JVRP(233) = V(148) -! JVRP(234) = dARP(158)/dV(148) - JVRP(234) = V(138) -! JVRP(235) = dARP(159)/dV(136) - JVRP(235) = V(148) -! JVRP(236) = dARP(159)/dV(148) - JVRP(236) = V(136) -! JVRP(237) = dARP(160)/dV(119) - JVRP(237) = V(148) -! JVRP(238) = dARP(160)/dV(148) - JVRP(238) = V(119) -! JVRP(239) = dARP(161)/dV(96) - JVRP(239) = V(149) -! JVRP(240) = dARP(161)/dV(149) - JVRP(240) = V(96) -! JVRP(241) = dARP(162)/dV(96) - JVRP(241) = V(153) -! JVRP(242) = dARP(162)/dV(153) - JVRP(242) = V(96) -! JVRP(243) = dARP(163)/dV(74) - JVRP(243) = V(148) -! JVRP(244) = dARP(163)/dV(148) - JVRP(244) = V(74) -! JVRP(245) = dARP(164)/dV(134) - JVRP(245) = V(155) -! JVRP(246) = dARP(164)/dV(155) - JVRP(246) = V(134) -! JVRP(247) = dARP(165)/dV(134) - JVRP(247) = V(149) -! JVRP(248) = dARP(165)/dV(149) - JVRP(248) = V(134) -! JVRP(249) = dARP(166)/dV(134) - JVRP(249) = V(153) -! JVRP(250) = dARP(166)/dV(153) - JVRP(250) = V(134) -! JVRP(251) = dARP(167)/dV(55) - JVRP(251) = V(148) -! JVRP(252) = dARP(167)/dV(148) - JVRP(252) = V(55) -! JVRP(253) = dARP(168)/dV(128) - JVRP(253) = V(148) -! JVRP(254) = dARP(168)/dV(148) - JVRP(254) = V(128) -! JVRP(255) = dARP(169)/dV(122) - JVRP(255) = V(148) -! JVRP(256) = dARP(169)/dV(148) - JVRP(256) = V(122) -! JVRP(257) = dARP(170)/dV(59) - JVRP(257) = V(150) -! JVRP(258) = dARP(170)/dV(150) - JVRP(258) = V(59) -! JVRP(259) = dARP(171)/dV(59) - JVRP(259) = V(148) -! JVRP(260) = dARP(171)/dV(148) - JVRP(260) = V(59) -! JVRP(261) = dARP(172)/dV(86) - JVRP(261) = V(153) -! JVRP(262) = dARP(172)/dV(153) - JVRP(262) = V(86) -! JVRP(263) = dARP(173)/dV(86) - JVRP(263) = V(153) -! JVRP(264) = dARP(173)/dV(153) - JVRP(264) = V(86) -! JVRP(265) = dARP(174)/dV(137) - JVRP(265) = V(148) -! JVRP(266) = dARP(174)/dV(148) - JVRP(266) = V(137) -! JVRP(267) = dARP(175)/dV(145) - JVRP(267) = V(152) -! JVRP(268) = dARP(175)/dV(152) - JVRP(268) = V(145) -! JVRP(269) = dARP(176)/dV(145) - JVRP(269) = V(155) -! JVRP(270) = dARP(176)/dV(155) - JVRP(270) = V(145) -! JVRP(271) = dARP(177)/dV(145) - JVRP(271) = V(149) -! JVRP(272) = dARP(177)/dV(149) - JVRP(272) = V(145) -! JVRP(273) = dARP(178)/dV(145) - JVRP(273) = V(150) -! JVRP(274) = dARP(178)/dV(150) - JVRP(274) = V(145) -! JVRP(275) = dARP(179)/dV(145) - JVRP(275) = V(153) -! JVRP(276) = dARP(179)/dV(153) - JVRP(276) = V(145) -! JVRP(277) = dARP(180)/dV(145) - JVRP(277) = V(153) -! JVRP(278) = dARP(180)/dV(153) - JVRP(278) = V(145) -! JVRP(279) = dARP(181)/dV(143) - JVRP(279) = V(151) -! JVRP(280) = dARP(181)/dV(151) - JVRP(280) = V(143) -! JVRP(281) = dARP(182)/dV(143) - JVRP(281) = V(148) -! JVRP(282) = dARP(182)/dV(148) - JVRP(282) = V(143) -! JVRP(283) = dARP(183)/dV(48) - JVRP(283) = V(148) -! JVRP(284) = dARP(183)/dV(148) - JVRP(284) = V(48) -! JVRP(285) = dARP(184)/dV(152) - JVRP(285) = V(154) -! JVRP(286) = dARP(184)/dV(154) - JVRP(286) = V(152) -! JVRP(287) = dARP(185)/dV(154) - JVRP(287) = V(155) -! JVRP(288) = dARP(185)/dV(155) - JVRP(288) = V(154) -! JVRP(289) = dARP(186)/dV(149) - JVRP(289) = V(154) -! JVRP(290) = dARP(186)/dV(154) - JVRP(290) = V(149) -! JVRP(291) = dARP(187)/dV(154) - JVRP(291) = 2*V(154) -! JVRP(292) = dARP(188)/dV(153) - JVRP(292) = V(154) -! JVRP(293) = dARP(188)/dV(154) - JVRP(293) = V(153) -! JVRP(294) = dARP(189)/dV(150) - JVRP(294) = V(154) -! JVRP(295) = dARP(189)/dV(154) - JVRP(295) = V(150) -! JVRP(296) = dARP(190)/dV(95) - JVRP(296) = V(149) -! JVRP(297) = dARP(190)/dV(149) - JVRP(297) = V(95) -! JVRP(298) = dARP(191)/dV(95) - JVRP(298) = V(153) -! JVRP(299) = dARP(191)/dV(153) - JVRP(299) = V(95) -! JVRP(300) = dARP(192)/dV(78) - JVRP(300) = V(148) -! JVRP(301) = dARP(192)/dV(148) - JVRP(301) = V(78) -! JVRP(302) = dARP(193)/dV(49) - JVRP(302) = V(148) -! JVRP(303) = dARP(193)/dV(148) - JVRP(303) = V(49) -! JVRP(304) = dARP(194)/dV(84) - JVRP(304) = V(148) -! JVRP(305) = dARP(194)/dV(148) - JVRP(305) = V(84) -! JVRP(306) = dARP(195)/dV(144) - JVRP(306) = V(151) -! JVRP(307) = dARP(195)/dV(151) - JVRP(307) = V(144) -! JVRP(308) = dARP(196)/dV(144) - JVRP(308) = V(148) -! JVRP(309) = dARP(196)/dV(148) - JVRP(309) = V(144) -! JVRP(310) = dARP(197)/dV(147) - JVRP(310) = V(154)*F(1) -! JVRP(311) = dARP(197)/dV(154) - JVRP(311) = V(147)*F(1) -! JVRP(312) = dARP(198)/dV(84) - JVRP(312) = F(1) -! JVRP(313) = dARP(199)/dV(93) - JVRP(313) = V(148) -! JVRP(314) = dARP(199)/dV(148) - JVRP(314) = V(93) -! JVRP(315) = dARP(200)/dV(121) - JVRP(315) = V(149) -! JVRP(316) = dARP(200)/dV(149) - JVRP(316) = V(121) -! JVRP(317) = dARP(201)/dV(121) - JVRP(317) = V(153) -! JVRP(318) = dARP(201)/dV(153) - JVRP(318) = V(121) -! JVRP(319) = dARP(202)/dV(121) - JVRP(319) = V(153) -! JVRP(320) = dARP(202)/dV(153) - JVRP(320) = V(121) -! JVRP(321) = dARP(203)/dV(94) - JVRP(321) = V(148) -! JVRP(322) = dARP(203)/dV(148) - JVRP(322) = V(94) -! JVRP(323) = dARP(204)/dV(58) - JVRP(323) = V(148) -! JVRP(324) = dARP(204)/dV(148) - JVRP(324) = V(58) -! JVRP(325) = dARP(205)/dV(37) - JVRP(325) = V(148) -! JVRP(326) = dARP(205)/dV(148) - JVRP(326) = V(37) -! JVRP(327) = dARP(206)/dV(46) - JVRP(327) = V(148) -! JVRP(328) = dARP(206)/dV(148) - JVRP(328) = V(46) -! JVRP(329) = dARP(207)/dV(21) - JVRP(329) = V(148) -! JVRP(330) = dARP(207)/dV(148) - JVRP(330) = V(21) -! JVRP(331) = dARP(208)/dV(140) - JVRP(331) = V(152) -! JVRP(332) = dARP(208)/dV(152) - JVRP(332) = V(140) -! JVRP(333) = dARP(209)/dV(140) - JVRP(333) = V(155) -! JVRP(334) = dARP(209)/dV(155) - JVRP(334) = V(140) -! JVRP(335) = dARP(210)/dV(140) - JVRP(335) = V(149) -! JVRP(336) = dARP(210)/dV(149) - JVRP(336) = V(140) -! JVRP(337) = dARP(211)/dV(140) - JVRP(337) = V(153) -! JVRP(338) = dARP(211)/dV(153) - JVRP(338) = V(140) -! JVRP(339) = dARP(212)/dV(140) - JVRP(339) = V(150) -! JVRP(340) = dARP(212)/dV(150) - JVRP(340) = V(140) -! JVRP(341) = dARP(213)/dV(141) - JVRP(341) = V(152) -! JVRP(342) = dARP(213)/dV(152) - JVRP(342) = V(141) -! JVRP(343) = dARP(214)/dV(141) - JVRP(343) = V(155) -! JVRP(344) = dARP(214)/dV(155) - JVRP(344) = V(141) -! JVRP(345) = dARP(215)/dV(141) - JVRP(345) = V(149) -! JVRP(346) = dARP(215)/dV(149) - JVRP(346) = V(141) -! JVRP(347) = dARP(216)/dV(141) - JVRP(347) = 1 -! JVRP(348) = dARP(217)/dV(141) - JVRP(348) = V(153) -! JVRP(349) = dARP(217)/dV(153) - JVRP(349) = V(141) -! JVRP(350) = dARP(218)/dV(141) - JVRP(350) = V(150) -! JVRP(351) = dARP(218)/dV(150) - JVRP(351) = V(141) -! JVRP(352) = dARP(219)/dV(85) - JVRP(352) = V(148) -! JVRP(353) = dARP(219)/dV(148) - JVRP(353) = V(85) -! JVRP(354) = dARP(220)/dV(72) - JVRP(354) = V(148) -! JVRP(355) = dARP(220)/dV(148) - JVRP(355) = V(72) -! JVRP(356) = dARP(221)/dV(114) - JVRP(356) = V(150) -! JVRP(357) = dARP(221)/dV(150) - JVRP(357) = V(114) -! JVRP(358) = dARP(222)/dV(142) - JVRP(358) = V(152) -! JVRP(359) = dARP(222)/dV(152) - JVRP(359) = V(142) -! JVRP(360) = dARP(223)/dV(142) - JVRP(360) = V(155) -! JVRP(361) = dARP(223)/dV(155) - JVRP(361) = V(142) -! JVRP(362) = dARP(224)/dV(142) - JVRP(362) = V(149) -! JVRP(363) = dARP(224)/dV(149) - JVRP(363) = V(142) -! JVRP(364) = dARP(225)/dV(142) - JVRP(364) = V(153) -! JVRP(365) = dARP(225)/dV(153) - JVRP(365) = V(142) -! JVRP(366) = dARP(226)/dV(142) - JVRP(366) = V(150) -! JVRP(367) = dARP(226)/dV(150) - JVRP(367) = V(142) -! JVRP(368) = dARP(227)/dV(62) - JVRP(368) = V(148) -! JVRP(369) = dARP(227)/dV(148) - JVRP(369) = V(62) -! JVRP(370) = dARP(228)/dV(114) - JVRP(370) = V(151) -! JVRP(371) = dARP(228)/dV(151) - JVRP(371) = V(114) -! JVRP(372) = dARP(229)/dV(114) - JVRP(372) = V(148) -! JVRP(373) = dARP(229)/dV(148) - JVRP(373) = V(114) -! JVRP(374) = dARP(230)/dV(97) - JVRP(374) = V(148) -! JVRP(375) = dARP(230)/dV(148) - JVRP(375) = V(97) -! JVRP(376) = dARP(231)/dV(51) - JVRP(376) = V(148) -! JVRP(377) = dARP(231)/dV(148) - JVRP(377) = V(51) -! JVRP(378) = dARP(232)/dV(110) - JVRP(378) = V(148) -! JVRP(379) = dARP(232)/dV(148) - JVRP(379) = V(110) -! JVRP(380) = dARP(233)/dV(139) - JVRP(380) = V(152) -! JVRP(381) = dARP(233)/dV(152) - JVRP(381) = V(139) -! JVRP(382) = dARP(234)/dV(139) - JVRP(382) = V(155) -! JVRP(383) = dARP(234)/dV(155) - JVRP(383) = V(139) -! JVRP(384) = dARP(235)/dV(139) - JVRP(384) = V(149) -! JVRP(385) = dARP(235)/dV(149) - JVRP(385) = V(139) -! JVRP(386) = dARP(236)/dV(139) - JVRP(386) = V(153) -! JVRP(387) = dARP(236)/dV(153) - JVRP(387) = V(139) -! JVRP(388) = dARP(237)/dV(139) - JVRP(388) = V(150) -! JVRP(389) = dARP(237)/dV(150) - JVRP(389) = V(139) -! JVRP(390) = dARP(238)/dV(33) - JVRP(390) = V(148) -! JVRP(391) = dARP(238)/dV(148) - JVRP(391) = V(33) -! JVRP(392) = dARP(239)/dV(79) - JVRP(392) = V(149) -! JVRP(393) = dARP(239)/dV(149) - JVRP(393) = V(79) -! JVRP(394) = dARP(240)/dV(79) - JVRP(394) = V(153) -! JVRP(395) = dARP(240)/dV(153) - JVRP(395) = V(79) -! JVRP(396) = dARP(241)/dV(113) - JVRP(396) = V(148) -! JVRP(397) = dARP(241)/dV(148) - JVRP(397) = V(113) -! JVRP(398) = dARP(242)/dV(104) - JVRP(398) = V(150) -! JVRP(399) = dARP(242)/dV(150) - JVRP(399) = V(104) -! JVRP(400) = dARP(243)/dV(112) - JVRP(400) = V(149) -! JVRP(401) = dARP(243)/dV(149) - JVRP(401) = V(112) -! JVRP(402) = dARP(244)/dV(112) - JVRP(402) = V(153) -! JVRP(403) = dARP(244)/dV(153) - JVRP(403) = V(112) -! JVRP(404) = dARP(245)/dV(112) - JVRP(404) = V(150) -! JVRP(405) = dARP(245)/dV(150) - JVRP(405) = V(112) -! JVRP(406) = dARP(246)/dV(125) - JVRP(406) = V(155) -! JVRP(407) = dARP(246)/dV(155) - JVRP(407) = V(125) -! JVRP(408) = dARP(247)/dV(125) - JVRP(408) = V(149) -! JVRP(409) = dARP(247)/dV(149) - JVRP(409) = V(125) -! JVRP(410) = dARP(248)/dV(125) - JVRP(410) = V(153) -! JVRP(411) = dARP(248)/dV(153) - JVRP(411) = V(125) -! JVRP(412) = dARP(249)/dV(104) - JVRP(412) = V(151) -! JVRP(413) = dARP(249)/dV(151) - JVRP(413) = V(104) -! JVRP(414) = dARP(250)/dV(104) - JVRP(414) = V(148) -! JVRP(415) = dARP(250)/dV(148) - JVRP(415) = V(104) -! JVRP(416) = dARP(251)/dV(83) - JVRP(416) = V(148) -! JVRP(417) = dARP(251)/dV(148) - JVRP(417) = V(83) -! JVRP(418) = dARP(252)/dV(81) - JVRP(418) = V(149) -! JVRP(419) = dARP(252)/dV(149) - JVRP(419) = V(81) -! JVRP(420) = dARP(253)/dV(81) - JVRP(420) = V(153) -! JVRP(421) = dARP(253)/dV(153) - JVRP(421) = V(81) -! JVRP(422) = dARP(254)/dV(43) - JVRP(422) = V(149) -! JVRP(423) = dARP(254)/dV(149) - JVRP(423) = V(43) -! JVRP(424) = dARP(255)/dV(43) - JVRP(424) = V(153) -! JVRP(425) = dARP(255)/dV(153) - JVRP(425) = V(43) -! JVRP(426) = dARP(256)/dV(25) - JVRP(426) = V(148) -! JVRP(427) = dARP(256)/dV(148) - JVRP(427) = V(25) -! JVRP(428) = dARP(257)/dV(76) - JVRP(428) = V(149) -! JVRP(429) = dARP(257)/dV(149) - JVRP(429) = V(76) -! JVRP(430) = dARP(258)/dV(76) - JVRP(430) = V(153) -! JVRP(431) = dARP(258)/dV(153) - JVRP(431) = V(76) -! JVRP(432) = dARP(259)/dV(67) - JVRP(432) = V(148) -! JVRP(433) = dARP(259)/dV(148) - JVRP(433) = V(67) -! JVRP(434) = dARP(260)/dV(38) - JVRP(434) = V(148) -! JVRP(435) = dARP(260)/dV(148) - JVRP(435) = V(38) -! JVRP(436) = dARP(261)/dV(64) - JVRP(436) = V(149) -! JVRP(437) = dARP(261)/dV(149) - JVRP(437) = V(64) -! JVRP(438) = dARP(262)/dV(50) - JVRP(438) = V(148) -! JVRP(439) = dARP(262)/dV(148) - JVRP(439) = V(50) -! JVRP(440) = dARP(263)/dV(64) - JVRP(440) = V(153) -! JVRP(441) = dARP(263)/dV(153) - JVRP(441) = V(64) -! JVRP(442) = dARP(264)/dV(92) - JVRP(442) = V(149) -! JVRP(443) = dARP(264)/dV(149) - JVRP(443) = V(92) -! JVRP(444) = dARP(265)/dV(92) - JVRP(444) = V(153) -! JVRP(445) = dARP(265)/dV(153) - JVRP(445) = V(92) -! JVRP(446) = dARP(266)/dV(41) - JVRP(446) = V(148) -! JVRP(447) = dARP(266)/dV(148) - JVRP(447) = V(41) -! JVRP(448) = dARP(267)/dV(31) - JVRP(448) = V(148) -! JVRP(449) = dARP(267)/dV(148) - JVRP(449) = V(31) -! JVRP(450) = dARP(268)/dV(102) - JVRP(450) = V(149) -! JVRP(451) = dARP(268)/dV(149) - JVRP(451) = V(102) -! JVRP(452) = dARP(269)/dV(102) - JVRP(452) = V(153) -! JVRP(453) = dARP(269)/dV(153) - JVRP(453) = V(102) -! JVRP(454) = dARP(270)/dV(102) - JVRP(454) = V(147) -! JVRP(455) = dARP(270)/dV(147) - JVRP(455) = V(102) -! JVRP(456) = dARP(271)/dV(100) - JVRP(456) = V(149) -! JVRP(457) = dARP(271)/dV(149) - JVRP(457) = V(100) -! JVRP(458) = dARP(272)/dV(100) - JVRP(458) = V(153) -! JVRP(459) = dARP(272)/dV(153) - JVRP(459) = V(100) -! JVRP(460) = dARP(273)/dV(100) - JVRP(460) = V(147) -! JVRP(461) = dARP(273)/dV(147) - JVRP(461) = V(100) -! JVRP(462) = dARP(274)/dV(130) - JVRP(462) = V(149) -! JVRP(463) = dARP(274)/dV(149) - JVRP(463) = V(130) -! JVRP(464) = dARP(275)/dV(130) - JVRP(464) = V(153) -! JVRP(465) = dARP(275)/dV(153) - JVRP(465) = V(130) -! JVRP(466) = dARP(276)/dV(130) - JVRP(466) = V(147) -! JVRP(467) = dARP(276)/dV(147) - JVRP(467) = V(130) -! JVRP(468) = dARP(277)/dV(66) - JVRP(468) = V(149) -! JVRP(469) = dARP(277)/dV(149) - JVRP(469) = V(66) -! JVRP(470) = dARP(278)/dV(66) - JVRP(470) = V(153) -! JVRP(471) = dARP(278)/dV(153) - JVRP(471) = V(66) -! JVRP(472) = dARP(279)/dV(27) - JVRP(472) = V(148) -! JVRP(473) = dARP(279)/dV(148) - JVRP(473) = V(27) -! JVRP(474) = dARP(280)/dV(73) - JVRP(474) = V(147) -! JVRP(475) = dARP(280)/dV(147) - JVRP(475) = V(73) -! JVRP(476) = dARP(281)/dV(73) - JVRP(476) = V(151) -! JVRP(477) = dARP(281)/dV(151) - JVRP(477) = V(73) -! JVRP(478) = dARP(282)/dV(54) - JVRP(478) = V(148) -! JVRP(479) = dARP(282)/dV(148) - JVRP(479) = V(54) -! JVRP(480) = dARP(283)/dV(81) - JVRP(480) = V(147) -! JVRP(481) = dARP(283)/dV(147) - JVRP(481) = V(81) -! JVRP(482) = dARP(284)/dV(99) - JVRP(482) = V(149) -! JVRP(483) = dARP(284)/dV(149) - JVRP(483) = V(99) -! JVRP(484) = dARP(285)/dV(99) - JVRP(484) = V(153) -! JVRP(485) = dARP(285)/dV(153) - JVRP(485) = V(99) -! JVRP(486) = dARP(286)/dV(89) - JVRP(486) = V(148) -! JVRP(487) = dARP(286)/dV(148) - JVRP(487) = V(89) -! JVRP(488) = dARP(287)/dV(30) - JVRP(488) = V(148) -! JVRP(489) = dARP(287)/dV(148) - JVRP(489) = V(30) -! JVRP(490) = dARP(288)/dV(23) - JVRP(490) = F(1) -! JVRP(491) = dARP(289)/dV(34) - JVRP(491) = V(148) -! JVRP(492) = dARP(289)/dV(148) - JVRP(492) = V(34) -! JVRP(493) = dARP(290)/dV(101) - JVRP(493) = V(149) -! JVRP(494) = dARP(290)/dV(149) - JVRP(494) = V(101) -! JVRP(495) = dARP(291)/dV(101) - JVRP(495) = V(153) -! JVRP(496) = dARP(291)/dV(153) - JVRP(496) = V(101) -! JVRP(497) = dARP(292)/dV(98) - JVRP(497) = V(148) -! JVRP(498) = dARP(292)/dV(148) - JVRP(498) = V(98) -! JVRP(499) = dARP(293)/dV(77) - JVRP(499) = V(149) -! JVRP(500) = dARP(293)/dV(149) - JVRP(500) = V(77) -! JVRP(501) = dARP(294)/dV(77) - JVRP(501) = V(153) -! JVRP(502) = dARP(294)/dV(153) - JVRP(502) = V(77) -! JVRP(503) = dARP(295)/dV(35) - JVRP(503) = V(148) -! JVRP(504) = dARP(295)/dV(148) - JVRP(504) = V(35) -! JVRP(505) = dARP(296)/dV(63) - JVRP(505) = V(148) -! JVRP(506) = dARP(296)/dV(148) - JVRP(506) = V(63) -! JVRP(507) = dARP(297)/dV(116) - JVRP(507) = V(150) -! JVRP(508) = dARP(297)/dV(150) - JVRP(508) = V(116) -! JVRP(509) = dARP(298)/dV(116) - JVRP(509) = V(151) -! JVRP(510) = dARP(298)/dV(151) - JVRP(510) = V(116) -! JVRP(511) = dARP(299)/dV(116) - JVRP(511) = V(148) -! JVRP(512) = dARP(299)/dV(148) - JVRP(512) = V(116) -! JVRP(513) = dARP(300)/dV(117) - JVRP(513) = V(150) -! JVRP(514) = dARP(300)/dV(150) - JVRP(514) = V(117) -! JVRP(515) = dARP(301)/dV(117) - JVRP(515) = V(151) -! JVRP(516) = dARP(301)/dV(151) - JVRP(516) = V(117) -! JVRP(517) = dARP(302)/dV(117) - JVRP(517) = V(148) -! JVRP(518) = dARP(302)/dV(148) - JVRP(518) = V(117) -! JVRP(519) = dARP(303)/dV(118) - JVRP(519) = V(150) -! JVRP(520) = dARP(303)/dV(150) - JVRP(520) = V(118) -! JVRP(521) = dARP(304)/dV(118) - JVRP(521) = V(151) -! JVRP(522) = dARP(304)/dV(151) - JVRP(522) = V(118) -! JVRP(523) = dARP(305)/dV(118) - JVRP(523) = V(148) -! JVRP(524) = dARP(305)/dV(148) - JVRP(524) = V(118) -! JVRP(525) = dARP(306)/dV(115) - JVRP(525) = V(150) -! JVRP(526) = dARP(306)/dV(150) - JVRP(526) = V(115) -! JVRP(527) = dARP(307)/dV(115) - JVRP(527) = V(151) -! JVRP(528) = dARP(307)/dV(151) - JVRP(528) = V(115) -! JVRP(529) = dARP(308)/dV(115) - JVRP(529) = V(148) -! JVRP(530) = dARP(308)/dV(148) - JVRP(530) = V(115) -! JVRP(531) = dARP(309)/dV(120) - JVRP(531) = V(150) -! JVRP(532) = dARP(309)/dV(150) - JVRP(532) = V(120) -! JVRP(533) = dARP(310)/dV(120) - JVRP(533) = V(151) -! JVRP(534) = dARP(310)/dV(151) - JVRP(534) = V(120) -! JVRP(535) = dARP(311)/dV(120) - JVRP(535) = V(148) -! JVRP(536) = dARP(311)/dV(148) - JVRP(536) = V(120) -! JVRP(537) = dARP(312)/dV(132) - JVRP(537) = V(155) -! JVRP(538) = dARP(312)/dV(155) - JVRP(538) = V(132) -! JVRP(539) = dARP(313)/dV(132) - JVRP(539) = V(149) -! JVRP(540) = dARP(313)/dV(149) - JVRP(540) = V(132) -! JVRP(541) = dARP(314)/dV(132) - JVRP(541) = V(153) -! JVRP(542) = dARP(314)/dV(153) - JVRP(542) = V(132) -! JVRP(543) = dARP(315)/dV(132) - JVRP(543) = V(150) -! JVRP(544) = dARP(315)/dV(150) - JVRP(544) = V(132) -! JVRP(545) = dARP(316)/dV(52) - JVRP(545) = V(148) -! JVRP(546) = dARP(316)/dV(148) - JVRP(546) = V(52) -! JVRP(547) = dARP(317)/dV(127) - JVRP(547) = V(155) -! JVRP(548) = dARP(317)/dV(155) - JVRP(548) = V(127) -! JVRP(549) = dARP(318)/dV(127) - JVRP(549) = V(149) -! JVRP(550) = dARP(318)/dV(149) - JVRP(550) = V(127) -! JVRP(551) = dARP(319)/dV(127) - JVRP(551) = V(153) -! JVRP(552) = dARP(319)/dV(153) - JVRP(552) = V(127) -! JVRP(553) = dARP(320)/dV(88) - JVRP(553) = V(148) -! JVRP(554) = dARP(320)/dV(148) - JVRP(554) = V(88) -! JVRP(555) = dARP(321)/dV(80) - JVRP(555) = V(148) -! JVRP(556) = dARP(321)/dV(148) - JVRP(556) = V(80) -! JVRP(557) = dARP(322)/dV(131) - JVRP(557) = V(155) -! JVRP(558) = dARP(322)/dV(155) - JVRP(558) = V(131) -! JVRP(559) = dARP(323)/dV(131) - JVRP(559) = V(149) -! JVRP(560) = dARP(323)/dV(149) - JVRP(560) = V(131) -! JVRP(561) = dARP(324)/dV(131) - JVRP(561) = V(153) -! JVRP(562) = dARP(324)/dV(153) - JVRP(562) = V(131) -! JVRP(563) = dARP(325)/dV(75) - JVRP(563) = V(148) -! JVRP(564) = dARP(325)/dV(148) - JVRP(564) = V(75) -! JVRP(565) = dARP(326)/dV(133) - JVRP(565) = V(150) -! JVRP(566) = dARP(326)/dV(150) - JVRP(566) = V(133) -! JVRP(567) = dARP(327)/dV(133) - JVRP(567) = V(148) -! JVRP(568) = dARP(327)/dV(148) - JVRP(568) = V(133) -! JVRP(569) = dARP(328)/dV(126) - JVRP(569) = V(148) -! JVRP(570) = dARP(328)/dV(148) - JVRP(570) = V(126) -! JVRP(571) = dARP(329)/dV(36) - JVRP(571) = V(150) -! JVRP(572) = dARP(329)/dV(150) - JVRP(572) = V(36) -! JVRP(573) = dARP(330)/dV(36) - JVRP(573) = V(148) -! JVRP(574) = dARP(330)/dV(148) - JVRP(574) = V(36) -! JVRP(575) = dARP(331)/dV(14) - JVRP(575) = V(148) -! JVRP(576) = dARP(331)/dV(148) - JVRP(576) = V(14) -! JVRP(577) = dARP(332)/dV(36) - JVRP(577) = V(148) -! JVRP(578) = dARP(332)/dV(148) - JVRP(578) = V(36) -! JVRP(579) = dARP(333)/dV(149) - JVRP(579) = 1 -! JVRP(580) = dARP(334)/dV(29) - JVRP(580) = 1 -! JVRP(581) = dARP(335)/dV(147) - JVRP(581) = 1 -! JVRP(582) = dARP(336)/dV(150) - JVRP(582) = 1 -! JVRP(583) = dARP(337)/dV(19) - JVRP(583) = V(148) -! JVRP(584) = dARP(337)/dV(148) - JVRP(584) = V(19) -! JVRP(585) = dARP(338)/dV(116) - JVRP(585) = V(150) -! JVRP(586) = dARP(338)/dV(150) - JVRP(586) = V(116) -! JVRP(587) = dARP(339)/dV(116) - JVRP(587) = V(151) -! JVRP(588) = dARP(339)/dV(151) - JVRP(588) = V(116) -! JVRP(589) = dARP(340)/dV(116) - JVRP(589) = V(148) -! JVRP(590) = dARP(340)/dV(148) - JVRP(590) = V(116) -! JVRP(591) = dARP(341)/dV(117) - JVRP(591) = V(150) -! JVRP(592) = dARP(341)/dV(150) - JVRP(592) = V(117) -! JVRP(593) = dARP(342)/dV(117) - JVRP(593) = V(151) -! JVRP(594) = dARP(342)/dV(151) - JVRP(594) = V(117) -! JVRP(595) = dARP(343)/dV(117) - JVRP(595) = V(148) -! JVRP(596) = dARP(343)/dV(148) - JVRP(596) = V(117) -! JVRP(597) = dARP(344)/dV(25) - JVRP(597) = V(148) -! JVRP(598) = dARP(344)/dV(148) - JVRP(598) = V(25) -! JVRP(599) = dARP(345)/dV(118) - JVRP(599) = V(150) -! JVRP(600) = dARP(345)/dV(150) - JVRP(600) = V(118) -! JVRP(601) = dARP(346)/dV(118) - JVRP(601) = V(151) -! JVRP(602) = dARP(346)/dV(151) - JVRP(602) = V(118) -! JVRP(603) = dARP(347)/dV(118) - JVRP(603) = V(148) -! JVRP(604) = dARP(347)/dV(148) - JVRP(604) = V(118) -! JVRP(605) = dARP(348)/dV(114) - JVRP(605) = V(150) -! JVRP(606) = dARP(348)/dV(150) - JVRP(606) = V(114) -! JVRP(607) = dARP(349)/dV(114) - JVRP(607) = V(151) -! JVRP(608) = dARP(349)/dV(151) - JVRP(608) = V(114) -! JVRP(609) = dARP(350)/dV(114) - JVRP(609) = V(148) -! JVRP(610) = dARP(350)/dV(148) - JVRP(610) = V(114) -! JVRP(611) = dARP(351)/dV(8) - JVRP(611) = V(148) -! JVRP(612) = dARP(351)/dV(148) - JVRP(612) = V(8) -! JVRP(613) = dARP(352)/dV(115) - JVRP(613) = V(150) -! JVRP(614) = dARP(352)/dV(150) - JVRP(614) = V(115) -! JVRP(615) = dARP(353)/dV(115) - JVRP(615) = V(151) -! JVRP(616) = dARP(353)/dV(151) - JVRP(616) = V(115) -! JVRP(617) = dARP(354)/dV(115) - JVRP(617) = V(148) -! JVRP(618) = dARP(354)/dV(148) - JVRP(618) = V(115) -! JVRP(619) = dARP(355)/dV(120) - JVRP(619) = V(150) -! JVRP(620) = dARP(355)/dV(150) - JVRP(620) = V(120) -! JVRP(621) = dARP(356)/dV(120) - JVRP(621) = V(151) -! JVRP(622) = dARP(356)/dV(151) - JVRP(622) = V(120) -! JVRP(623) = dARP(357)/dV(120) - JVRP(623) = V(148) -! JVRP(624) = dARP(357)/dV(148) - JVRP(624) = V(120) -! JVRP(625) = dARP(358)/dV(9) - JVRP(625) = V(148) -! JVRP(626) = dARP(358)/dV(148) - JVRP(626) = V(9) -! JVRP(627) = dARP(359)/dV(30) - JVRP(627) = V(148) -! JVRP(628) = dARP(359)/dV(148) - JVRP(628) = V(30) -! JVRP(629) = dARP(360)/dV(34) - JVRP(629) = V(148) -! JVRP(630) = dARP(360)/dV(148) - JVRP(630) = V(34) - -END SUBROUTINE JacReactantProd - -! End of JacReactantProd function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! Begin Derivative w.r.t. Rate Coefficients - -! ------------------------------------------------------------------------------ -! Subroutine for the derivative of Fun with respect to rate coefficients -! ----------------------------------------------------------------------------- - - SUBROUTINE dFun_dRcoeff( V, F, NCOEFF, JCOEFF, DFDR ) - - USE MOZART_T1_Parameters - USE MOZART_T1_StoichiomSP - IMPLICIT NONE - -! V - Concentrations of variable/radical/fixed species - REAL(kind=dp) V(NVAR), F(NFIX) -! NCOEFF - the number of rate coefficients with respect to which we differentiate - INTEGER NCOEFF -! JCOEFF - a vector of integers containing the indices of reactions (rate -! coefficients) with respect to which we differentiate - INTEGER JCOEFF(NCOEFF) -! DFDR - a matrix containg derivative values; specifically, -! column j contains d Fun(1:NVAR) / d RCT( JCOEFF(j) ) -! for each 1 <= j <= NCOEFF -! This matrix is stored in a column-wise linearized format - REAL(kind=dp) DFDR(NVAR*NCOEFF) - -! Local vector with reactant products - REAL(kind=dp) A_RPROD(NREACT) - REAL(kind=dp) aj - INTEGER i,j,k - -! Compute the reactant products of all reactions - CALL ReactantProd ( V, F, A_RPROD ) - -! Compute the derivatives by multiplying column JCOEFF(j) of the stoichiometric matrix with A_RPROD - DO j=1,NCOEFF -! Initialize the j-th column of derivative matrix to zero - DO i=1,NVAR - DFDR(i+NVAR*(j-1)) = 0.0_dp - END DO -! Column JCOEFF(j) in the stoichiometric matrix times the -! reactant product of the JCOEFF(j)-th reaction -! give the j-th column of the derivative matrix - aj = A_RPROD(JCOEFF(j)) - DO k=CCOL_STOICM(JCOEFF(j)),CCOL_STOICM(JCOEFF(j)+1)-1 - DFDR(IROW_STOICM(k)+NVAR*(j-1)) = STOICM(k)*aj - END DO - END DO - - END SUBROUTINE dFun_dRcoeff - -! End Derivative w.r.t. Rate Coefficients - - -! Begin Jacobian Derivative w.r.t. Rate Coefficients - -! ------------------------------------------------------------------------------ -! Subroutine for the derivative of Jac with respect to rate coefficients -! Times a user vector -! ----------------------------------------------------------------------------- - - SUBROUTINE dJac_dRcoeff( V, F, U, NCOEFF, JCOEFF, DJDR ) - - USE MOZART_T1_Parameters - USE MOZART_T1_StoichiomSP - IMPLICIT NONE - -! V - Concentrations of variable/fixed species - REAL(kind=dp) V(NVAR), F(NFIX) -! U - User-supplied Vector - REAL(kind=dp) U(NVAR) -! NCOEFF - the number of rate coefficients with respect to which we differentiate - INTEGER NCOEFF -! JCOEFF - a vector of integers containing the indices of reactions (rate -! coefficients) with respect to which we differentiate - INTEGER JCOEFF(NCOEFF) -! DFDR - a matrix containg derivative values; specifically, -! column j contains d Jac(1:NVAR) / d RCT( JCOEFF(j) ) * U -! for each 1 <= j <= NCOEFF -! This matrix is stored in a column-wise linearized format - REAL(kind=dp) DJDR(NVAR*NCOEFF) - -! Local vector for Jacobian of reactant products - REAL(kind=dp) JV_RPROD(NJVRP) - REAL(kind=dp) aj - INTEGER i,j,k - -! Compute the Jacobian of all reactant products - CALL JacReactantProd( V, F, JV_RPROD ) - -! Compute the derivatives by multiplying column JCOEFF(j) of the stoichiometric matrix with A_PROD - DO j=1,NCOEFF -! Initialize the j-th column of derivative matrix to zero - DO i=1,NVAR - DJDR(i+NVAR*(j-1)) = 0.0_dp - END DO -! Column JCOEFF(j) in the stoichiometric matrix times the -! ( Gradient of reactant product of the JCOEFF(j)-th reaction X user vector ) -! give the j-th column of the derivative matrix -! -! Row JCOEFF(j) of JV_RPROD times the user vector - aj = 0.0_dp - DO k=CROW_JVRP(JCOEFF(j)),CROW_JVRP(JCOEFF(j)+1)-1 - aj = aj + JV_RPROD(k)*U(ICOL_JVRP(k)) - END DO -! Column JCOEFF(j) of Stoichiom. matrix times aj - DO k=CCOL_STOICM(JCOEFF(j)),CCOL_STOICM(JCOEFF(j)+1)-1 - DJDR(IROW_STOICM(k)+NVAR*(j-1)) = STOICM(k)*aj - END DO - END DO - - END SUBROUTINE dJac_dRcoeff - -! End Jacobian Derivative w.r.t. Rate Coefficients - - -END MODULE MOZART_T1_Stoichiom - diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Stoichiom.o b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Stoichiom.o deleted file mode 100644 index 0a7cbc340bd5ce9515726feb60f7bd7279cfff53..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Stoichiom.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_StoichiomSP.f90 b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_StoichiomSP.f90 deleted file mode 100644 index aa917a3a4d0bd6c64cb59b335351ffbea33cf230..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_StoichiomSP.f90 +++ /dev/null @@ -1,911 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Sparse Stoichiometric Data Structures File -! -! Generated by KPP-2.2.3 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 : MOZART_T1_StoichiomSP.f90 -! Time : Wed Jan 27 13:13:50 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_T1_20754_BOXMOX -! Equation file : MOZART_T1.kpp -! Output root filename : MOZART_T1 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MOZART_T1_StoichiomSP - - USE MOZART_T1_Precision - PUBLIC - SAVE - - -! Row-compressed sparse data for the Jacobian of reaction products JVRP - - INTEGER, PARAMETER, DIMENSION(360) :: CROW_JVRP_0 = (/ & - 1, 2, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, & - 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, & - 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, & - 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, & - 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, & - 60, 61, 62, 63, 65, 67, 68, 69, 70, 72, 74, 75, & - 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 95, 96, & - 97, 99,101,103,105,107,109,111,113,115,117,119, & - 121,123,125,127,129,131,132,133,135,137,139,141, & - 142,143,145,147,149,151,153,155,157,159,160,162, & - 164,166,168,170,171,173,175,177,179,181,183,185, & - 187,189,190,192,194,196,198,200,202,204,205,206, & - 208,210,212,214,216,217,219,221,223,225,227,229, & - 231,233,235,237,239,241,243,245,247,249,251,253, & - 255,257,259,261,263,265,267,269,271,273,275,277, & - 279,281,283,285,287,289,291,292,294,296,298,300, & - 302,304,306,308,310,312,313,315,317,319,321,323, & - 325,327,329,331,333,335,337,339,341,343,345,347, & - 348,350,352,354,356,358,360,362,364,366,368,370, & - 372,374,376,378,380,382,384,386,388,390,392,394, & - 396,398,400,402,404,406,408,410,412,414,416,418, & - 420,422,424,426,428,430,432,434,436,438,440,442, & - 444,446,448,450,452,454,456,458,460,462,464,466, & - 468,470,472,474,476,478,480,482,484,486,488,490, & - 491,493,495,497,499,501,503,505,507,509,511,513, & - 515,517,519,521,523,525,527,529,531,533,535,537, & - 539,541,543,545,547,549,551,553,555,557,559,561, & - 563,565,567,569,571,573,575,577,579,580,581,582, & - 583,585,587,589,591,593,595,597,599,601,603,605, & - 607,609,611,613,615,617,619,621,623,625,627,629 /) - INTEGER, PARAMETER, DIMENSION(1) :: CROW_JVRP_1 = (/ & - 631 /) - INTEGER, PARAMETER, DIMENSION(361) :: CROW_JVRP = (/& - CROW_JVRP_0, CROW_JVRP_1 /) - - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_0 = (/ & - 39,151,151, 70, 45, 18, 29,147,150, 93, 94, 67, & - 26,111, 69, 44, 91, 57, 50, 53, 56, 41,146,146, & - 129,122,138, 68, 47, 20,124,109,113,137, 37,136, & - 62, 97,143, 83, 78, 49, 84,144,110,119, 52, 22, & - 71, 54, 74, 55, 32, 88, 80, 75,133,126, 89, 33, & - 98, 63, 87,106, 82,106,106,106,106,106,151,135, & - 151,135,135, 82,135, 39,135,135,149,149,151, 82, & - 148, 39,148,148,149,135,148,148,151,148,148,149, & - 45,148,135,147,147,151,135,147,149,150,150,153, & - 135,150,148,150,149,153,151,153,135,153, 18,106, & - 18,106,147,149,147,150,147,148, 70,148, 45, 29, & - 146,149,146,150,135,146,146,148,155,155,149,155, & - 153,155,107,148, 47,148, 87,148, 28,148,103,148, & - 65,149, 65, 65,153, 28,106,123,148, 24,148, 60, & - 151,108,108,155,108,149,108,153, 40,148, 53,148, & - 15,148,129,150,129,148, 17,148,152,152,155,149, & - 152,152,153, 61,148, 68,148, 90,149, 90,153, 42, & - 42,124,148,109,148, 71,148, 60,148,147,152, 71, & - 128,150,128,151,105,155,105,149,105,153, 56,148, & - 16,148,138,150,138,148,136,148,119,148, 96,149, & - 96,153, 74,148,134,155,134,149,134,153, 55,148, & - 128,148,122,148, 59,150, 59,148, 86,153, 86,153, & - 137,148,145,152,145,155,145,149,145,150,145,153, & - 145,153,143,151,143,148, 48,148,152,154,154,155, & - 149,154,154,153,154,150,154, 95,149, 95,153, 78, & - 148, 49,148, 84,148,144,151,144,148,147,154, 84, & - 93,148,121,149,121,153,121,153, 94,148, 58,148, & - 37,148, 46,148, 21,148,140,152,140,155,140,149, & - 140,153,140,150,141,152,141,155,141,149,141,141, & - 153,141,150, 85,148, 72,148,114,150,142,152,142 /) - INTEGER, PARAMETER, DIMENSION(270) :: ICOL_JVRP_1 = (/ & - 155,142,149,142,153,142,150, 62,148,114,151,114, & - 148, 97,148, 51,148,110,148,139,152,139,155,139, & - 149,139,153,139,150, 33,148, 79,149, 79,153,113, & - 148,104,150,112,149,112,153,112,150,125,155,125, & - 149,125,153,104,151,104,148, 83,148, 81,149, 81, & - 153, 43,149, 43,153, 25,148, 76,149, 76,153, 67, & - 148, 38,148, 64,149, 50,148, 64,153, 92,149, 92, & - 153, 41,148, 31,148,102,149,102,153,102,147,100, & - 149,100,153,100,147,130,149,130,153,130,147, 66, & - 149, 66,153, 27,148, 73,147, 73,151, 54,148, 81, & - 147, 99,149, 99,153, 89,148, 30,148, 23, 34,148, & - 101,149,101,153, 98,148, 77,149, 77,153, 35,148, & - 63,148,116,150,116,151,116,148,117,150,117,151, & - 117,148,118,150,118,151,118,148,115,150,115,151, & - 115,148,120,150,120,151,120,148,132,155,132,149, & - 132,153,132,150, 52,148,127,155,127,149,127,153, & - 88,148, 80,148,131,155,131,149,131,153, 75,148, & - 133,150,133,148,126,148, 36,150, 36,148, 14,148, & - 36,148,149, 29,147,150, 19,148,116,150,116,151, & - 116,148,117,150,117,151,117,148, 25,148,118,150, & - 118,151,118,148,114,150,114,151,114,148, 8,148, & - 115,150,115,151,115,148,120,150,120,151,120,148, & - 9,148, 30,148, 34,148 /) - INTEGER, PARAMETER, DIMENSION(630) :: ICOL_JVRP = (/& - ICOL_JVRP_0, ICOL_JVRP_1 /) - - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_0 = (/ & - 1, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, & - 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, & - 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, & - 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, & - 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, & - 62, 63, 64, 64, 65, 65, 66, 67, 68, 69, 69, 70, & - 70, 71, 72, 73, 73, 74, 74, 75, 75, 76, 76, 77, & - 77, 78, 78, 79, 79, 80, 80, 81, 81, 82, 83, 84, & - 85, 85, 86, 86, 87, 87, 88, 88, 89, 89, 90, 90, & - 91, 91, 92, 92, 93, 93, 94, 94, 95, 95, 96, 96, & - 97, 97, 98, 98, 99, 99,100,100,101,101,102,103, & - 104,104,105,105,106,106,107,107,108,109,110,110, & - 111,111,112,112,113,113,114,114,115,115,116,116, & - 117,117,118,119,119,120,120,121,121,122,122,123, & - 123,124,125,125,126,126,127,127,128,128,129,129, & - 130,130,131,131,132,132,133,133,134,135,135,136, & - 136,137,137,138,138,139,139,140,140,141,141,142, & - 143,144,144,145,145,146,146,147,147,148,148,149, & - 150,150,151,151,152,152,153,153,154,154,155,155, & - 156,156,157,157,158,158,159,159,160,160,161,161, & - 162,162,163,163,164,164,165,165,166,166,167,167, & - 168,168,169,169,170,170,171,171,172,172,173,173, & - 174,174,175,175,176,176,177,177,178,178,179,179, & - 180,180,181,181,182,182,183,183,184,184,185,185, & - 186,186,187,188,188,189,189,190,190,191,191,192, & - 192,193,193,194,194,195,195,196,196,197,197,198, & - 199,199,200,200,201,201,202,202,203,203,204,204, & - 205,205,206,206,207,207,208,208,209,209,210,210, & - 211,211,212,212,213,213,214,214,215,215,216,217, & - 217,218,218,219,219,220,220,221,221,222,222,223 /) - INTEGER, PARAMETER, DIMENSION(270) :: IROW_JVRP_1 = (/ & - 223,224,224,225,225,226,226,227,227,228,228,229, & - 229,230,230,231,231,232,232,233,233,234,234,235, & - 235,236,236,237,237,238,238,239,239,240,240,241, & - 241,242,242,243,243,244,244,245,245,246,246,247, & - 247,248,248,249,249,250,250,251,251,252,252,253, & - 253,254,254,255,255,256,256,257,257,258,258,259, & - 259,260,260,261,261,262,262,263,263,264,264,265, & - 265,266,266,267,267,268,268,269,269,270,270,271, & - 271,272,272,273,273,274,274,275,275,276,276,277, & - 277,278,278,279,279,280,280,281,281,282,282,283, & - 283,284,284,285,285,286,286,287,287,288,289,289, & - 290,290,291,291,292,292,293,293,294,294,295,295, & - 296,296,297,297,298,298,299,299,300,300,301,301, & - 302,302,303,303,304,304,305,305,306,306,307,307, & - 308,308,309,309,310,310,311,311,312,312,313,313, & - 314,314,315,315,316,316,317,317,318,318,319,319, & - 320,320,321,321,322,322,323,323,324,324,325,325, & - 326,326,327,327,328,328,329,329,330,330,331,331, & - 332,332,333,334,335,336,337,337,338,338,339,339, & - 340,340,341,341,342,342,343,343,344,344,345,345, & - 346,346,347,347,348,348,349,349,350,350,351,351, & - 352,352,353,353,354,354,355,355,356,356,357,357, & - 358,358,359,359,360,360 /) - INTEGER, PARAMETER, DIMENSION(630) :: IROW_JVRP = (/& - IROW_JVRP_0, IROW_JVRP_1 /) - - - -! Stoichiometric Matrix in Compressed Column Sparse Format - - - INTEGER, PARAMETER, DIMENSION(360) :: CCOL_STOICM_0 = (/ & - 1, 3, 4, 6, 8, 11, 16, 18, 21, 24, 28, 35, & - 42, 47, 51, 57, 60, 63, 67, 72, 76, 80, 84, 87, & - 90, 93, 97,100,104,107,111,114,118,121,125,135, & - 139,143,147,152,159,166,169,173,176,181,185,189, & - 193,195,200,204,209,213,217,225,229,235,239,246, & - 254,256,265,270,277,281,283,285,287,289,291,292, & - 294,298,302,305,308,311,314,316,319,322,324,326, & - 328,331,334,337,340,344,347,350,354,358,361,364, & - 367,369,372,375,378,381,384,387,390,395,400,405, & - 409,413,417,423,428,433,437,441,445,449,452,458, & - 461,465,472,479,484,492,496,502,507,512,516,520, & - 524,528,531,537,545,550,554,559,563,570,573,576, & - 582,587,592,596,599,602,605,616,622,626,633,637, & - 641,646,651,656,660,664,671,675,684,691,697,700, & - 704,708,714,718,726,730,735,744,754,757,767,777, & - 780,789,794,800,803,808,816,819,824,829,836,842, & - 846,849,856,866,870,873,876,882,886,895,899,903, & - 907,911,915,919,927,935,939,948,955,961,968,972, & - 975,986,995,1004,1012,1015,1020,1027,1030,1035,1040,1045, & - 1057,1062,1067,1073,1079,1090,1101,1105,1116,1125,1129,1133, & - 1138,1141,1144,1147,1156,1164,1173,1177,1186,1195,1199,1203, & - 1208,1213,1216,1222,1229,1233,1240,1243,1246,1250,1253,1259, & - 1263,1268,1272,1278,1284,1291,1293,1298,1305,1307,1315,1324, & - 1326,1330,1336,1342,1344,1347,1351,1354,1358,1368,1372,1380, & - 1383,1391,1395,1406,1410,1414,1421,1426,1430,1433,1447,1451, & - 1454,1468,1472,1475,1489,1493,1496,1510,1514,1517,1531,1535, & - 1544,1548,1554,1558,1562,1572,1576,1587,1591,1596,1604,1608, & - 1617,1621,1625,1628,1636,1640,1643,1645,1649,1651,1653,1657, & - 1659,1662,1664,1669,1675,1677,1682,1688,1694,1696,1701,1707, & - 1709,1710,1716,1722,1724,1729,1735,1737,1742,1748,1754,1760 /) - INTEGER, PARAMETER, DIMENSION(1) :: CCOL_STOICM_1 = (/ & - 1766 /) - INTEGER, PARAMETER, DIMENSION(361) :: CCOL_STOICM = (/& - CCOL_STOICM_0, CCOL_STOICM_1 /) - - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_0 = (/ & - 39,148,135,135,151,106,151, 70,147,148, 45,147, & - 148,149,150, 18,106, 29,147,150,135,147,153,147, & - 150,151,153, 78, 93,122,129,146,147,149, 78, 94, & - 122,129,146,148,149, 67, 69,109,148,149, 26, 69, & - 123,149,109,111,123,138,149,152, 69,100,149, 44, & - 102,149, 91,123,130,149, 57,123,138,149,152, 38, & - 50,148,149, 53,129,148,149, 56,122,148,149, 41, & - 73,148,123,146,149, 82,123,146,123,129,149,155, & - 122,152,155,123,138,149,152, 68,148,155, 47,146, & - 148,149, 20, 42,148,123,124,146,149,109,123,149, & - 113,122,123,149,122,123,124,129,136,137,146,147, & - 149,152, 37, 91,148,149,136,146,149,152, 62, 97, & - 147,149, 97,143,144,146,149,123,143,146,148,149, & - 152,154, 83,113,122,124,146,148,149, 78,108,152, & - 49,129,148,152, 84,147,154,123,128,144,152,155, & - 91,110,147,149,119,146,147,152, 52,133,147,148, & - 22,147, 71,147,150,152,155, 54,109,148,149, 74, & - 129,146,148,149, 55,146,148,152, 32,123,149,152, & - 88,122,123,124,126,146,148,149, 80,133,147,149, & - 75,122,133,146,148,149,123,126,133,149,122,123, & - 126,134,146,149,152, 44, 69, 89, 91,109,138,148, & - 149, 33,148, 44, 57, 69, 91, 98,109,138,148,149, & - 63,109,138,148,149, 82, 87,106,146,148,149,155, & - 82,106,148,149,106,148,106,135,106,135,106,151, & - 135,151,135,135,151, 82,135,148,149, 39,135,148, & - 149,135,148,149,148,149,151, 82,148,149, 39,148, & - 149,148,149,135,148,149,148,149,151,135,148, 39, & - 148, 39,149, 45,147,148,135,147,153,147,150,151, & - 135,147,150,147,148,149,150,147,150,153,135,147, & - 150,147,148,149,150,147,148,149,153,147,151,153 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_1 = (/ & - 135,147,153, 18,106,153, 18,106, 45,147,149, 29, & - 147,150, 70,147,148, 70,148,150, 45,147,149, 29, & - 147,150, 65,146,149, 70,123,146,149,150,123,135, & - 146,148,149, 13,123,146,148,149, 10,146,149,155, & - 10,107,146,155, 11, 47,149,155, 12,146,147,149, & - 153,155, 13,107,146,148,149, 13, 47,146,148,155, & - 13, 87,148,155, 13, 28,148,149, 13,103,148,149, & - 11, 65,103,149, 65,146,149, 12, 65,103,147,149, & - 153, 28,106,148, 13,123,148,149, 13, 24,103,109, & - 123,148,149, 60,103,123,146,148,149,151, 10, 40, & - 108,129,149, 10, 40,107,108,129,146,149,155, 11, & - 53,108,149, 12,108,129,147,149,153, 13, 40,129, & - 148,149, 13, 53,108,129,148, 13, 15,108,148, 70, & - 129,150,152, 13,129,148,152, 13, 17,148,149, 10, & - 152,155, 10, 61,146,149,152,155, 11, 61, 68,148, & - 149,151,152,155, 12,147,152,153,155, 13, 61,148, & - 155, 13, 68,146,148,152, 11, 20, 90,149, 12, 42, & - 90,146,147,149,153, 42,146,149, 42,124,149, 13, & - 109,124,146,148,149, 13,109,123,148,149, 13, 71, & - 146,148,150, 13, 60, 90,148, 71,147,152, 71,147, & - 152,119,128,150, 61, 87,103,123,128,129,146,148, & - 149,151,155, 10,105,122,146,149,155, 11, 56,105, & - 149, 12,105,122,129,147,149,153, 13, 56,105,148, & - 13, 16,105,148, 70,123,138,150,152, 13,123,138, & - 148,152, 13,136,138,148,149,119,138,147,148, 11, & - 74, 96,149, 12, 96,129,146,147,149,153, 74, 96, & - 136,148, 10,107,134,136,138,146,149,152,155, 11, & - 55,134,146,148,149,152, 12,134,146,147,152,153, & - 55,134,148, 13, 96,128,148, 13,122,134,148, 59, & - 122,129,146,147,150, 13, 59, 86,148, 12, 86,122 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_2 = (/ & - 129,146,147,149,153, 12, 86,137,153, 13, 22,137, & - 148,149,123,124,136,138,145,146,149,152,155,107, & - 123,124,136,138,145,146,149,152,155, 48,145,149, & - 123,124,136,138,145,146,147,149,150,152,123,124, & - 136,138,145,146,147,149,152,153,137,145,153,103, & - 123,138,143,146,148,149,151,152, 13,143,145,148, & - 154, 13, 48,145,148,149,154,146,154,155,146,149, & - 152,154,155, 61, 68,146,148,149,151,152,154,146, & - 152,154,146,147,152,153,154,146,147,150,152,154, & - 11, 49, 95,129,148,149,152, 12, 95,129,147,152, & - 153, 13, 78, 95,148, 49, 95,148, 13, 84,136,146, & - 148,149,150,103,123,129,138,144,146,148,149,151, & - 152, 13,144,145,148, 84,147,154, 84,147,154, 93, & - 122,129,146,147,148, 11, 94,121,149, 12, 78,121, & - 122,129,146,147,149,153, 12, 93,121,153, 13, 94, & - 121,148, 13, 58,121,148, 13, 37,139,148, 13, 46, & - 139,148, 13, 21,139,148, 10,140,143,144,146,149, & - 152,155, 10,107,140,143,144,146,149,155, 11, 97, & - 140,149, 12, 85,140,143,144,146,147,149,153,140, & - 143,144,146,147,149,150, 10, 46,141,149,152,155, & - 10, 46,107,141,146,149,155, 11, 97,141,149, 37, & - 141,149, 12, 46, 72,109,124,136,138,141,147,149, & - 153, 46,109,124,136,138,141,147,149,150, 13, 85, & - 124,136,137,146,147,148,149, 13, 72,119,124,136, & - 137,148,149,114,142,150,110,142,149,152,155, 51, & - 107,110,142,146,149,155, 62,142,149,110,142,147, & - 149,153,110,142,147,149,150, 13, 62,119,148,149, & - 103,114,123,128,143,144,146,148,149,151,152,155, & - 13,114,140,141,148, 13, 21, 97,139,148, 13, 51, & - 119,124,148,149, 13,109,110,119,148,149, 10,109 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_3 = (/ & - 123,124,136,138,139,146,149,152,155, 10,107,109, & - 123,124,136,138,139,146,149,155, 11, 33,139,149, & - 12,109,123,124,136,138,139,146,147,149,153,109, & - 123,124,136,138,139,147,149,150, 13, 33,139,148, & - 79,122,148,149, 79,122,147,149,153, 79,113,148, & - 104,112,150, 11,112,149, 12,112,113,122,137,146, & - 147,149,153,112,113,122,137,146,147,149,150, 10, & - 107,113,122,124,125,146,149,155, 11, 83,125,149, & - 12,113,122,124,125,146,147,149,153,103,104,113, & - 122,123,146,148,149,151, 13,104,125,148, 13, 83, & - 125,148, 11, 81, 92,148,149, 12, 81, 92,147,153, & - 1, 43,149, 43,109,111,147,149,153, 13, 25, 26, & - 27, 76,148,149, 11, 67, 76,149, 12, 69, 76,109, & - 147,149,153, 67, 76,148, 38, 81,148, 11, 50, 64, & - 149, 50, 64,148, 12, 38, 64,147,149,153, 11, 41, & - 92,149, 12, 73, 92,147,153, 13, 41, 92,148, 13, & - 31, 66, 73,148,149,102,123,138,148,149,155,102, & - 123,138,147,149,153,155,102,147, 11,100,109,123, & - 149, 12,100,109,123,147,149,153,100,147, 11,109, & - 123,130,138,148,149,155, 12,109,123,130,138,147, & - 149,153,155,130,147, 11, 54, 66,149, 12, 66,109, & - 147,149,153, 13, 27, 66, 73,148,149, 73,147, 73, & - 92,151, 13, 54, 66,148, 23, 81,147, 11, 89, 99, & - 149, 12, 44, 69, 91, 99,109,138,147,149,153, 13, & - 89, 99,148, 13, 30, 31, 32, 64, 99,148,149, 23, & - 81,147, 13, 32, 34, 35, 64,101,148,149, 11, 98, & - 101,149, 12, 44, 57, 69, 91,101,109,138,147,149, & - 153, 13, 98,101,148, 11, 63, 77,149, 12, 77,109, & - 138,147,149,153, 35, 73, 77,148,149, 13, 63, 77, & - 148,116,132,150, 58,103,111,116,122,123,126,133 /) - INTEGER, PARAMETER, DIMENSION(325) :: IROW_STOICM_4 = (/ & - 134,146,148,149,151,152, 13,116,131,148,117,132, & - 150, 58,103,111,117,122,123,126,133,134,146,148, & - 149,151,152, 13,117,131,148,118,132,150, 58,103, & - 111,118,122,123,126,133,134,146,148,149,151,152, & - 13,118,131,148,115,132,150, 58,103,111,115,122, & - 123,126,133,134,146,148,149,151,152, 13,115,131, & - 148,120,132,150, 58,103,111,120,122,123,126,133, & - 134,146,148,149,151,152, 13,120,131,148, 10, 80, & - 107,132,133,146,147,149,155, 11, 52,132,149, 12, & - 80,132,133,147,153,132,133,147,150, 13, 52,132, & - 148, 10,107,122,123,124,126,127,146,149,155, 11, & - 88,127,149, 12, 22,122,123,124,126,127,146,147, & - 149,153, 13, 88,127,148, 13, 80,133,147,148, 10, & - 107,122,131,133,146,149,155, 11, 75,131,149, 12, & - 80,122,131,133,146,147,149,153, 13, 75,131,148, & - 127,132,133,150,127,133,148,122,123,126,134,146, & - 148,149,152, 19, 36, 70,150, 19, 36,148, 14,148, & - 19, 36,148,149, 39,149, 29, 70, 70,147,148,153, & - 70,150, 2, 19,148, 6, 7, 3, 4, 5, 6, 7, & - 3, 4, 5, 6, 7, 13, 6, 7, 3, 4, 5, 6, & - 7, 3, 4, 5, 6, 7, 13, 3, 4, 5, 6, 7, & - 13, 6, 7, 3, 4, 5, 6, 7, 3, 4, 5, 6, & - 7, 13, 6, 7, 6, 3, 4, 5, 6, 7, 13, 3, & - 4, 5, 6, 7, 8, 6, 7, 3, 4, 5, 6, 7, & - 3, 4, 5, 6, 7, 13, 6, 7, 3, 4, 5, 6, & - 7, 3, 4, 5, 6, 7, 13, 3, 4, 5, 6, 7, & - 9, 3, 4, 5, 6, 7, 13, 3, 4, 5, 6, 7, & - 13 /) - INTEGER, PARAMETER, DIMENSION(1765) :: IROW_STOICM = (/& - IROW_STOICM_0, IROW_STOICM_1, IROW_STOICM_2, IROW_STOICM_3, IROW_STOICM_4 /) - - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_0 = (/ & - 1, 1, 2, 3, 3, 4, 4, 5, 5, 5, 6, 6, & - 6, 6, 6, 7, 7, 8, 8, 8, 9, 9, 9, 10, & - 10, 10, 10, 11, 11, 11, 11, 11, 11, 11, 12, 12, & - 12, 12, 12, 12, 12, 13, 13, 13, 13, 13, 14, 14, & - 14, 14, 15, 15, 15, 15, 15, 15, 16, 16, 16, 17, & - 17, 17, 18, 18, 18, 18, 19, 19, 19, 19, 19, 20, & - 20, 20, 20, 21, 21, 21, 21, 22, 22, 22, 22, 23, & - 23, 23, 24, 24, 24, 25, 25, 25, 26, 26, 26, 26, & - 27, 27, 27, 28, 28, 28, 28, 29, 29, 29, 30, 30, & - 30, 30, 31, 31, 31, 32, 32, 32, 32, 33, 33, 33, & - 34, 34, 34, 34, 35, 35, 35, 35, 35, 35, 35, 35, & - 35, 35, 36, 36, 36, 36, 37, 37, 37, 37, 38, 38, & - 38, 38, 39, 39, 39, 39, 39, 40, 40, 40, 40, 40, & - 40, 40, 41, 41, 41, 41, 41, 41, 41, 42, 42, 42, & - 43, 43, 43, 43, 44, 44, 44, 45, 45, 45, 45, 45, & - 46, 46, 46, 46, 47, 47, 47, 47, 48, 48, 48, 48, & - 49, 49, 50, 50, 50, 50, 50, 51, 51, 51, 51, 52, & - 52, 52, 52, 52, 53, 53, 53, 53, 54, 54, 54, 54, & - 55, 55, 55, 55, 55, 55, 55, 55, 56, 56, 56, 56, & - 57, 57, 57, 57, 57, 57, 58, 58, 58, 58, 59, 59, & - 59, 59, 59, 59, 59, 60, 60, 60, 60, 60, 60, 60, & - 60, 61, 61, 62, 62, 62, 62, 62, 62, 62, 62, 62, & - 63, 63, 63, 63, 63, 64, 64, 64, 64, 64, 64, 64, & - 65, 65, 65, 65, 66, 66, 67, 67, 68, 68, 69, 69, & - 70, 70, 71, 72, 72, 73, 73, 73, 73, 74, 74, 74, & - 74, 75, 75, 75, 76, 76, 76, 77, 77, 77, 78, 78, & - 78, 79, 79, 80, 80, 80, 81, 81, 81, 82, 82, 83, & - 83, 84, 84, 85, 85, 85, 86, 86, 86, 87, 87, 87, & - 88, 88, 88, 89, 89, 89, 89, 90, 90, 90, 91, 91, & - 91, 92, 92, 92, 92, 93, 93, 93, 93, 94, 94, 94 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_1 = (/ & - 95, 95, 95, 96, 96, 96, 97, 97, 98, 98, 98, 99, & - 99, 99,100,100,100,101,101,101,102,102,102,103, & - 103,103,104,104,104,105,105,105,105,105,106,106, & - 106,106,106,107,107,107,107,107,108,108,108,108, & - 109,109,109,109,110,110,110,110,111,111,111,111, & - 111,111,112,112,112,112,112,113,113,113,113,113, & - 114,114,114,114,115,115,115,115,116,116,116,116, & - 117,117,117,117,118,118,118,119,119,119,119,119, & - 119,120,120,120,121,121,121,121,122,122,122,122, & - 122,122,122,123,123,123,123,123,123,123,124,124, & - 124,124,124,125,125,125,125,125,125,125,125,126, & - 126,126,126,127,127,127,127,127,127,128,128,128, & - 128,128,129,129,129,129,129,130,130,130,130,131, & - 131,131,131,132,132,132,132,133,133,133,133,134, & - 134,134,135,135,135,135,135,135,136,136,136,136, & - 136,136,136,136,137,137,137,137,137,138,138,138, & - 138,139,139,139,139,139,140,140,140,140,141,141, & - 141,141,141,141,141,142,142,142,143,143,143,144, & - 144,144,144,144,144,145,145,145,145,145,146,146, & - 146,146,146,147,147,147,147,148,148,148,149,149, & - 149,150,150,150,151,151,151,151,151,151,151,151, & - 151,151,151,152,152,152,152,152,152,153,153,153, & - 153,154,154,154,154,154,154,154,155,155,155,155, & - 156,156,156,156,157,157,157,157,157,158,158,158, & - 158,158,159,159,159,159,159,160,160,160,160,161, & - 161,161,161,162,162,162,162,162,162,162,163,163, & - 163,163,164,164,164,164,164,164,164,164,164,165, & - 165,165,165,165,165,165,166,166,166,166,166,166, & - 167,167,167,168,168,168,168,169,169,169,169,170, & - 170,170,170,170,170,171,171,171,171,172,172,172 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_2 = (/ & - 172,172,172,172,172,173,173,173,173,174,174,174, & - 174,174,175,175,175,175,175,175,175,175,175,176, & - 176,176,176,176,176,176,176,176,176,177,177,177, & - 178,178,178,178,178,178,178,178,178,178,179,179, & - 179,179,179,179,179,179,179,179,180,180,180,181, & - 181,181,181,181,181,181,181,181,182,182,182,182, & - 182,183,183,183,183,183,183,184,184,184,185,185, & - 185,185,185,186,186,186,186,186,186,186,186,187, & - 187,187,188,188,188,188,188,189,189,189,189,189, & - 190,190,190,190,190,190,190,191,191,191,191,191, & - 191,192,192,192,192,193,193,193,194,194,194,194, & - 194,194,194,195,195,195,195,195,195,195,195,195, & - 195,196,196,196,196,197,197,197,198,198,198,199, & - 199,199,199,199,199,200,200,200,200,201,201,201, & - 201,201,201,201,201,201,202,202,202,202,203,203, & - 203,203,204,204,204,204,205,205,205,205,206,206, & - 206,206,207,207,207,207,208,208,208,208,208,208, & - 208,208,209,209,209,209,209,209,209,209,210,210, & - 210,210,211,211,211,211,211,211,211,211,211,212, & - 212,212,212,212,212,212,213,213,213,213,213,213, & - 214,214,214,214,214,214,214,215,215,215,215,216, & - 216,216,217,217,217,217,217,217,217,217,217,217, & - 217,218,218,218,218,218,218,218,218,218,219,219, & - 219,219,219,219,219,219,219,220,220,220,220,220, & - 220,220,220,221,221,221,222,222,222,222,222,223, & - 223,223,223,223,223,223,224,224,224,225,225,225, & - 225,225,226,226,226,226,226,227,227,227,227,227, & - 228,228,228,228,228,228,228,228,228,228,228,228, & - 229,229,229,229,229,230,230,230,230,230,231,231, & - 231,231,231,231,232,232,232,232,232,232,233,233 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_3 = (/ & - 233,233,233,233,233,233,233,233,233,234,234,234, & - 234,234,234,234,234,234,234,234,235,235,235,235, & - 236,236,236,236,236,236,236,236,236,236,236,237, & - 237,237,237,237,237,237,237,237,238,238,238,238, & - 239,239,239,239,240,240,240,240,240,241,241,241, & - 242,242,242,243,243,243,244,244,244,244,244,244, & - 244,244,244,245,245,245,245,245,245,245,245,246, & - 246,246,246,246,246,246,246,246,247,247,247,247, & - 248,248,248,248,248,248,248,248,248,249,249,249, & - 249,249,249,249,249,249,250,250,250,250,251,251, & - 251,251,252,252,252,252,252,253,253,253,253,253, & - 254,254,254,255,255,255,255,255,255,256,256,256, & - 256,256,256,256,257,257,257,257,258,258,258,258, & - 258,258,258,259,259,259,260,260,260,261,261,261, & - 261,262,262,262,263,263,263,263,263,263,264,264, & - 264,264,265,265,265,265,265,266,266,266,266,267, & - 267,267,267,267,267,268,268,268,268,268,268,269, & - 269,269,269,269,269,269,270,270,271,271,271,271, & - 271,272,272,272,272,272,272,272,273,273,274,274, & - 274,274,274,274,274,274,275,275,275,275,275,275, & - 275,275,275,276,276,277,277,277,277,278,278,278, & - 278,278,278,279,279,279,279,279,279,280,280,281, & - 281,281,282,282,282,282,283,283,283,284,284,284, & - 284,285,285,285,285,285,285,285,285,285,285,286, & - 286,286,286,287,287,287,287,287,287,287,287,288, & - 288,288,289,289,289,289,289,289,289,289,290,290, & - 290,290,291,291,291,291,291,291,291,291,291,291, & - 291,292,292,292,292,293,293,293,293,294,294,294, & - 294,294,294,294,295,295,295,295,295,296,296,296, & - 296,297,297,297,298,298,298,298,298,298,298,298 /) - INTEGER, PARAMETER, DIMENSION(325) :: ICOL_STOICM_4 = (/ & - 298,298,298,298,298,298,299,299,299,299,300,300, & - 300,301,301,301,301,301,301,301,301,301,301,301, & - 301,301,301,302,302,302,302,303,303,303,304,304, & - 304,304,304,304,304,304,304,304,304,304,304,304, & - 305,305,305,305,306,306,306,307,307,307,307,307, & - 307,307,307,307,307,307,307,307,307,308,308,308, & - 308,309,309,309,310,310,310,310,310,310,310,310, & - 310,310,310,310,310,310,311,311,311,311,312,312, & - 312,312,312,312,312,312,312,313,313,313,313,314, & - 314,314,314,314,314,315,315,315,315,316,316,316, & - 316,317,317,317,317,317,317,317,317,317,317,318, & - 318,318,318,319,319,319,319,319,319,319,319,319, & - 319,319,320,320,320,320,321,321,321,321,321,322, & - 322,322,322,322,322,322,322,323,323,323,323,324, & - 324,324,324,324,324,324,324,324,325,325,325,325, & - 326,326,326,326,327,327,327,328,328,328,328,328, & - 328,328,328,329,329,329,329,330,330,330,331,331, & - 332,332,332,332,333,333,334,334,335,335,335,335, & - 336,336,337,337,337,338,338,339,339,339,339,339, & - 340,340,340,340,340,340,341,341,342,342,342,342, & - 342,343,343,343,343,343,343,344,344,344,344,344, & - 344,345,345,346,346,346,346,346,347,347,347,347, & - 347,347,348,348,349,350,350,350,350,350,350,351, & - 351,351,351,351,351,352,352,353,353,353,353,353, & - 354,354,354,354,354,354,355,355,356,356,356,356, & - 356,357,357,357,357,357,357,358,358,358,358,358, & - 358,359,359,359,359,359,359,360,360,360,360,360, & - 360 /) - INTEGER, PARAMETER, DIMENSION(1765) :: ICOL_STOICM = (/& - ICOL_STOICM_0, ICOL_STOICM_1, ICOL_STOICM_2, ICOL_STOICM_3, ICOL_STOICM_4 /) - - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_0 = (/ & - -1.000000e+00_dp, 2.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 6.600000e-01_dp, 3.300000e-01_dp, 6.600000e-01_dp, 3.300000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 8.900000e-01_dp, -1.000000e+00_dp, & - 8.900000e-01_dp, 1.100000e-01_dp, 8.000000e-01_dp, -1.000000e+00_dp, 2.500000e-01_dp, & - 4.000000e-01_dp, 1.000000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, 8.000000e-01_dp, & - -1.000000e+00_dp, 2.500000e-01_dp, 4.000000e-01_dp, 1.000000e-01_dp, 1.000000e+00_dp, & - 9.000000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.500000e+00_dp, 1.500000e+00_dp, & - 1.300000e-01_dp, -1.000000e+00_dp, 4.500000e-01_dp, 1.800000e-01_dp, 5.600000e-01_dp, & - 1.300000e-01_dp, -1.000000e+00_dp, 6.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 6.000000e-01_dp, 6.000000e-01_dp, -1.000000e+00_dp, 6.000000e-01_dp, 6.000000e-01_dp, & - 6.000000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 8.200000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 1.700000e-01_dp, & - 3.300000e-01_dp, 3.300000e-01_dp, 3.300000e-01_dp, 1.700000e-01_dp, -1.000000e+00_dp, & - 3.300000e-01_dp, 1.000000e+00_dp, 6.700000e-01_dp, 3.300000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 2.880000e-01_dp, 4.020000e-01_dp, 6.900000e-01_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_1 = (/ & - 1.000000e+00_dp, 6.700000e-01_dp, -1.000000e+00_dp, 6.700000e-01_dp, 3.300000e-01_dp, & - 6.700000e-01_dp, 6.700000e-01_dp, 3.300000e-01_dp, -1.000000e+00_dp, 3.300000e-01_dp, & - 6.700000e-01_dp, 6.700000e-01_dp, 3.300000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 7.000000e-01_dp, 7.000000e-01_dp, -1.000000e+00_dp, 3.000000e-01_dp, 3.000000e-01_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 6.000000e-01_dp, 4.000000e-01_dp, 6.000000e-01_dp, 4.000000e-01_dp, -1.000000e+00_dp, & - 7.000000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.500000e+00_dp, 1.000000e+00_dp, & - 5.000000e-01_dp, -1.000000e+00_dp, 3.000000e-01_dp, 2.500000e-01_dp, 2.500000e-01_dp, & - 1.000000e+00_dp, 3.750000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-02_dp, & - 1.000000e+00_dp, 4.000000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 5.000000e-01_dp, 1.700000e+00_dp, & - -1.000000e+00_dp, 1.500000e-01_dp, 6.800000e-01_dp, 1.200000e+00_dp, 6.500000e-01_dp, & - 2.000000e-01_dp, 2.000000e-01_dp, -1.000000e+00_dp, 2.000000e-01_dp, 6.000000e-01_dp, & - 4.000000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e-01_dp, 2.100000e-01_dp, 6.000000e-02_dp, 1.500000e-01_dp, -1.000000e+00_dp, & - 3.400000e-01_dp, 5.400000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.700000e-01_dp, 5.100000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, 5.000000e-02_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 2.500000e-01_dp, 7.500000e-01_dp, 4.000000e-01_dp, & - 7.500000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_2 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -2.000000e+00_dp, 1.000000e+00_dp, -2.000000e+00_dp, & - 1.000000e+00_dp, -2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, 2.000000e+00_dp, -2.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -2.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 3.000000e-01_dp, & - -7.000000e-01_dp, 7.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_3 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 3.500000e-01_dp, 6.500000e-01_dp, 3.500000e-01_dp, -3.500000e-01_dp, & - 3.500000e-01_dp, -1.000000e+00_dp, 3.700000e-01_dp, 6.300000e-01_dp, 1.000000e+00_dp, & - 1.300000e-01_dp, 1.300000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 4.000000e-01_dp, & - -2.000000e+00_dp, 1.600000e+00_dp, 1.200000e+00_dp, 1.000000e+00_dp, 2.000000e-01_dp, & - 3.000000e-01_dp, -1.000000e+00_dp, 8.000000e-01_dp, 7.000000e-01_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp, 5.000000e-01_dp, & - -5.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -2.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e-01_dp, 1.000000e+00_dp, 9.000000e-01_dp, -1.000000e+00_dp, & - -1.000000e-01_dp, 1.000000e+00_dp, 1.500000e-01_dp, 4.000000e-01_dp, 4.500000e-01_dp, & - -1.000000e+00_dp, 1.500000e-01_dp, -1.000000e+00_dp, 4.500000e-01_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 7.500000e-01_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, 1.000000e+00_dp, 2.500000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e-01_dp, -1.000000e+00_dp, 8.000000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_4 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.200000e-01_dp, & - 1.000000e-01_dp, 1.200000e-01_dp, 5.600000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, & - 5.000000e-01_dp, 3.600000e-01_dp, 2.800000e-01_dp, -1.000000e+00_dp, 2.800000e-01_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 8.200000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 8.200000e-01_dp, 2.700000e-01_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 5.000000e-01_dp, 5.000000e-01_dp, -5.000000e-01_dp, 1.000000e+00_dp, & - 5.000000e-01_dp, -1.000000e+00_dp, 2.000000e-01_dp, 5.000000e-01_dp, 8.000000e-01_dp, & - 3.000000e-01_dp, 3.000000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 8.500000e-01_dp, & - -1.000000e+00_dp, 1.500000e-01_dp, 1.500000e-01_dp, -1.000000e+00_dp, 1.500000e-01_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp, 1.000000e+00_dp, & - 5.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp, & - 1.000000e+00_dp, 5.000000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.200000e-01_dp, & - 5.300000e-01_dp, 2.200000e-01_dp, 2.500000e-01_dp, -1.000000e+00_dp, 2.500000e-01_dp, & - 4.700000e-01_dp, -4.700000e-01_dp, 1.000000e+00_dp, 2.500000e-01_dp, 1.100000e-01_dp, & - 2.600000e-01_dp, 2.300000e-01_dp, 2.400000e-01_dp, -1.000000e+00_dp, 8.800000e-01_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_5 = (/ & - 7.300000e-01_dp, 2.600000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 2.200000e-01_dp, 5.300000e-01_dp, 2.200000e-01_dp, 2.500000e-01_dp, & - -1.000000e+00_dp, 2.500000e-01_dp, 1.000000e+00_dp, 4.700000e-01_dp, -1.000000e+00_dp, & - 5.300000e-01_dp, 2.200000e-01_dp, 5.300000e-01_dp, 2.200000e-01_dp, 2.500000e-01_dp, & - -1.000000e+00_dp, 2.500000e-01_dp, 1.000000e+00_dp, 4.700000e-01_dp, 5.300000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 3.300000e-01_dp, & - 6.500000e-01_dp, 8.800000e-01_dp, -1.000000e+00_dp, 1.200000e-01_dp, 2.400000e-01_dp, & - 1.400000e-01_dp, -1.000000e+00_dp, 1.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e-01_dp, -9.000000e-01_dp, 2.000000e-01_dp, 5.000000e-01_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.500000e-01_dp, 4.000000e-01_dp, 4.500000e-01_dp, & - 4.500000e-01_dp, -1.000000e+00_dp, 1.500000e-01_dp, 4.500000e-01_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, 2.000000e+00_dp, -2.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 8.000000e-01_dp, & - -1.000000e+00_dp, 2.000000e-01_dp, 2.000000e-01_dp, -1.000000e+00_dp, 2.000000e-01_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, 5.000000e-01_dp, & - 1.200000e-01_dp, 5.600000e-01_dp, 1.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, & - 6.000000e-01_dp, 3.600000e-01_dp, 2.800000e-01_dp, -1.000000e+00_dp, 2.800000e-01_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 8.000000e-01_dp, 8.000000e-01_dp, 4.000000e-01_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 8.000000e-01_dp, -1.000000e+00_dp, 2.500000e-01_dp, 4.000000e-01_dp, & - 1.000000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_6 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 3.900000e-01_dp, 6.100000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 2.500000e-01_dp, -1.000000e+00_dp, 3.100000e-01_dp, & - 4.400000e-01_dp, 1.500000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 8.000000e-02_dp, & - -1.000000e+00_dp, 3.600000e-01_dp, 5.600000e-01_dp, 9.200000e-01_dp, 9.200000e-01_dp, & - 9.200000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 4.000000e-01_dp, 6.000000e-01_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 7.500000e-01_dp, 2.500000e-01_dp, -1.000000e+00_dp, 7.500000e-01_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 8.700000e-01_dp, 8.000000e-02_dp, 5.000000e-02_dp, 5.000000e-02_dp, 5.000000e-02_dp, & - 5.000000e-02_dp, -1.000000e+00_dp, 9.200000e-01_dp, 9.200000e-01_dp, -1.000000e+00_dp, & - 9.500000e-01_dp, 5.000000e-02_dp, 5.000000e-02_dp, 5.000000e-02_dp, 5.000000e-02_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 7.000000e-01_dp, 7.000000e-01_dp, 3.000000e-01_dp, 3.000000e-01_dp, & - 7.000000e-01_dp, -1.000000e+00_dp, 3.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, 5.000000e-01_dp, 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e-01_dp, & - 2.000000e-01_dp, 8.000000e-01_dp, -1.000000e+00_dp, 8.000000e-01_dp, 1.200000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.100000e-01_dp, & - -1.000000e+00_dp, 6.200000e-01_dp, 1.300000e-01_dp, 3.000000e-01_dp, 2.000000e-01_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_7 = (/ & - 9.100000e-01_dp, 3.200000e-01_dp, 3.700000e-01_dp, -1.000000e+00_dp, 8.000000e-02_dp, & - 5.000000e-02_dp, 1.000000e+00_dp, -1.000000e+00_dp, 6.000000e-01_dp, 4.000000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 6.000000e-01_dp, -1.000000e+00_dp, 4.000000e-01_dp, & - -4.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.500000e-01_dp, & - 2.500000e-01_dp, 2.500000e-01_dp, 2.500000e-01_dp, 2.500000e-01_dp, -1.000000e+00_dp, & - 2.500000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 3.000000e-01_dp, 1.000000e-01_dp, 2.000000e-01_dp, 1.000000e-01_dp, 1.000000e-01_dp, & - 1.000000e-01_dp, -1.000000e+00_dp, 8.000000e-01_dp, 8.000000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 2.500000e-01_dp, 2.500000e-01_dp, 2.500000e-01_dp, 2.500000e-01_dp, 2.500000e-01_dp, & - -1.000000e+00_dp, 2.500000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.500000e-01_dp, 5.000000e-01_dp, 2.500000e-01_dp, 2.500000e-01_dp, 2.500000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 5.000000e-01_dp, -5.000000e-01_dp, -1.000000e+00_dp, 4.000000e-01_dp, & - 4.000000e-01_dp, -6.000000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.500000e-01_dp, 7.500000e-01_dp, & - 7.500000e-01_dp, 2.500000e-01_dp, 1.250000e+00_dp, 7.500000e-01_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 2.500000e-01_dp, 7.500000e-01_dp, 7.500000e-01_dp, 2.500000e-01_dp, & - 1.250000e+00_dp, 7.500000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.500000e-01_dp, & - 1.670000e-01_dp, 3.330000e-01_dp, 3.330000e-01_dp, -1.000000e+00_dp, 9.170000e-01_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 3.300000e-01_dp, 6.700000e-01_dp, 6.700000e-01_dp, & - -1.000000e+00_dp, 3.300000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.700000e-01_dp, -1.000000e+00_dp, 7.000000e-01_dp, 2.300000e-01_dp, 6.400000e-01_dp, & - 3.000000e-01_dp, 3.600000e-01_dp, 4.800000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_8 = (/ & - 5.000000e-01_dp, -5.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 4.000000e-01_dp, & - 4.000000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 9.000000e-01_dp, 9.000000e-01_dp, 9.000000e-01_dp, 9.000000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.200000e-01_dp, 5.300000e-01_dp, & - 3.500000e-01_dp, -1.000000e+00_dp, 6.500000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 5.000000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e-01_dp, 7.000000e-02_dp, & - -1.000000e+00_dp, 7.300000e-01_dp, -1.000000e+00_dp, 7.000000e-02_dp, 7.000000e-02_dp, & - 4.000000e-01_dp, -9.300000e-01_dp, 3.300000e-01_dp, -1.000000e+00_dp, 1.700000e-01_dp, & - 1.700000e-01_dp, 1.000000e+00_dp, 1.700000e-01_dp, -1.000000e+00_dp, 8.300000e-01_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.600000e-01_dp, & - 1.600000e-01_dp, -8.400000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 4.000000e-01_dp, & - 4.000000e-01_dp, 1.000000e+00_dp, 4.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 7.000000e-02_dp, 1.400000e-01_dp, -1.000000e+00_dp, & - 7.000000e-02_dp, 4.000000e-01_dp, -6.700000e-01_dp, 7.000000e-02_dp, 1.000000e+00_dp, & - 1.700000e-01_dp, 3.500000e-01_dp, -1.000000e+00_dp, 1.700000e-01_dp, 1.000000e+00_dp, & - 8.300000e-01_dp, -1.000000e+00_dp, 1.700000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 7.000000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.400000e-01_dp, 6.000000e-02_dp, -1.000000e+00_dp, & - 8.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_9 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e-01_dp, 2.000000e-01_dp, & - 2.000000e-01_dp, -1.000000e+00_dp, 6.000000e-01_dp, 4.000000e-01_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.800000e-01_dp, 1.000000e-01_dp, & - 7.000000e-02_dp, 6.500000e-01_dp, -1.000000e+00_dp, 2.800000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.300000e-01_dp, -1.000000e+00_dp, & - 1.500000e-01_dp, 6.000000e-02_dp, 5.600000e-01_dp, -1.000000e+00_dp, 3.800000e-01_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e-01_dp, 2.100000e-01_dp, 6.000000e-02_dp, 1.500000e-01_dp, -1.000000e+00_dp, & - 3.400000e-01_dp, 5.400000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.700000e-01_dp, 5.100000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 7.000000e-02_dp, 3.000000e-01_dp, -1.000000e+00_dp, 6.300000e-01_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-02_dp, 5.000000e-02_dp, 1.000000e-01_dp, & - -1.000000e+00_dp, 5.200000e-01_dp, 2.300000e-01_dp, 3.000000e-01_dp, 3.300000e-01_dp, & - 6.000000e-02_dp, 3.400000e-01_dp, 6.300000e-01_dp, 5.700000e-01_dp, -1.000000e+00_dp, & - 6.000000e-02_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-02_dp, 5.000000e-02_dp, & - 1.000000e-01_dp, -1.000000e+00_dp, 5.200000e-01_dp, 2.300000e-01_dp, 3.000000e-01_dp, & - 3.300000e-01_dp, 6.000000e-02_dp, 3.400000e-01_dp, 6.300000e-01_dp, 5.700000e-01_dp, & - -1.000000e+00_dp, 6.000000e-02_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-02_dp, & - 5.000000e-02_dp, 1.000000e-01_dp, -1.000000e+00_dp, 5.200000e-01_dp, 2.300000e-01_dp, & - 3.000000e-01_dp, 3.300000e-01_dp, 6.000000e-02_dp, 3.400000e-01_dp, 6.300000e-01_dp, & - 5.700000e-01_dp, -1.000000e+00_dp, 6.000000e-02_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 5.000000e-02_dp, 5.000000e-02_dp, 1.000000e-01_dp, -1.000000e+00_dp, 5.200000e-01_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_10 = (/ & - 2.300000e-01_dp, 3.000000e-01_dp, 3.300000e-01_dp, 6.000000e-02_dp, 3.400000e-01_dp, & - 6.300000e-01_dp, 5.700000e-01_dp, -1.000000e+00_dp, 6.000000e-02_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 5.000000e-02_dp, 5.000000e-02_dp, 1.000000e-01_dp, -1.000000e+00_dp, & - 5.200000e-01_dp, 2.300000e-01_dp, 3.000000e-01_dp, 3.300000e-01_dp, 6.000000e-02_dp, & - 3.400000e-01_dp, 6.300000e-01_dp, 5.700000e-01_dp, -1.000000e+00_dp, 6.000000e-02_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 5.000000e-01_dp, 2.500000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, 7.500000e-01_dp, & - 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e-01_dp, -1.000000e+00_dp, & - 8.000000e-01_dp, 1.600000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 2.500000e-01_dp, 1.500000e-01_dp, 1.250000e-01_dp, & - 1.250000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 9.300000e-01_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e-01_dp, 2.700000e-01_dp, 2.250000e-01_dp, 2.250000e-01_dp, & - 9.000000e-01_dp, -1.000000e+00_dp, 3.400000e-01_dp, 9.000000e-01_dp, 9.000000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.500000e-01_dp, 2.500000e-02_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 9.500000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e-01_dp, 4.000000e-02_dp, & - -1.000000e+00_dp, 8.000000e-01_dp, 3.200000e-01_dp, 8.000000e-01_dp, 8.000000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp, 7.000000e-01_dp, -1.000000e+00_dp, & - 1.500000e-01_dp, 6.800000e-01_dp, -1.000000e+00_dp, 2.000000e-01_dp, 6.500000e-01_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(115) :: STOICM_11 = (/ & - -1.000000e+00_dp, 2.000000e+00_dp, 5.000000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, & - 5.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.749300e-01_dp, 5.901900e-01_dp, 5.080000e-02_dp, 1.149000e-01_dp, & - 3.480000e-02_dp, 5.540000e-02_dp, 1.278000e-01_dp, 5.080000e-02_dp, 1.149000e-01_dp, & - 3.480000e-02_dp, 5.540000e-02_dp, 1.278000e-01_dp, 1.000000e+00_dp, 1.749300e-01_dp, & - 5.901900e-01_dp, 2.202000e-01_dp, 2.067000e-01_dp, 6.530000e-02_dp, 1.284000e-01_dp, & - 1.140000e-01_dp, 2.202000e-01_dp, 2.067000e-01_dp, 6.530000e-02_dp, 1.284000e-01_dp, & - 1.140000e-01_dp, 1.000000e+00_dp, 2.300000e-03_dp, 8.000000e-04_dp, 8.430000e-02_dp, & - 4.430000e-02_dp, 1.621000e-01_dp, 1.000000e+00_dp, 1.749300e-01_dp, 5.901900e-01_dp, & - 5.080000e-02_dp, 1.149000e-01_dp, 3.480000e-02_dp, 5.540000e-02_dp, 1.278000e-01_dp, & - 5.080000e-02_dp, 1.149000e-01_dp, 3.480000e-02_dp, 5.540000e-02_dp, 1.278000e-01_dp, & - 1.000000e+00_dp, 5.902400e-02_dp, 2.502400e-02_dp, 3.300000e-03_dp, 3.100000e-03_dp, & - 3.500000e-03_dp, 3.000000e-04_dp, 2.710000e-02_dp, 4.740000e-02_dp, 1.000000e+00_dp, & - 2.381000e-01_dp, 1.308000e-01_dp, 3.480000e-02_dp, 7.600000e-03_dp, 1.130000e-02_dp, & - -1.000000e+00_dp, 1.749300e-01_dp, 5.901900e-01_dp, 5.080000e-02_dp, 1.149000e-01_dp, & - 3.480000e-02_dp, 5.540000e-02_dp, 1.278000e-01_dp, 5.080000e-02_dp, 1.149000e-01_dp, & - 3.480000e-02_dp, 5.540000e-02_dp, 1.278000e-01_dp, 1.000000e+00_dp, 1.749300e-01_dp, & - 5.901900e-01_dp, 5.080000e-02_dp, 1.149000e-01_dp, 3.480000e-02_dp, 5.540000e-02_dp, & - 1.278000e-01_dp, 5.080000e-02_dp, 1.149000e-01_dp, 3.480000e-02_dp, 5.540000e-02_dp, & - 1.278000e-01_dp, 1.000000e+00_dp, 5.931000e-01_dp, 1.534000e-01_dp, 4.590000e-02_dp, & - 8.500000e-03_dp, 1.280000e-02_dp, -1.000000e+00_dp, 1.364000e-01_dp, 1.010000e-02_dp, & - 7.630000e-02_dp, 2.157000e-01_dp, 2.320000e-02_dp, 1.000000e+00_dp, 1.677000e-01_dp, & - 1.740000e-02_dp, 8.600000e-02_dp, 5.120000e-02_dp, 1.598000e-01_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(1765) :: STOICM = (/& - STOICM_0, STOICM_1, STOICM_2, STOICM_3, STOICM_4, & - STOICM_5, STOICM_6, STOICM_7, STOICM_8, STOICM_9, & - STOICM_10, STOICM_11 /) - - -END MODULE MOZART_T1_StoichiomSP - diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_StoichiomSP.o b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_StoichiomSP.o deleted file mode 100644 index c02c5f2d1508e162fb6d97a4f8af5d13352ba004..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_StoichiomSP.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Util.f90 b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Util.f90 deleted file mode 100644 index 81f0efd71f7cac571751fb8a4c522695082b72a3..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Util.f90 +++ /dev/null @@ -1,1712 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Auxiliary Routines File -! -! Generated by KPP-2.2.3 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 : MOZART_T1_Util.f90 -! Time : Wed Jan 27 13:13:50 2021 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_MOZART_T1_20754_BOXMOX -! Equation file : MOZART_T1.kpp -! Output root filename : MOZART_T1 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE MOZART_T1_Util - - USE MOZART_T1_Parameters - USE MOZART_T1_Global - USE MOZART_T1_Monitor - IMPLICIT NONE - -CONTAINS - - - -! User INLINED Utility Functions - - -! **************************************************************************** -! **************************************************************************** -! BOXMOX utilities -! **************************************************************************** -! **************************************************************************** - - -! **************************************************************************** -! toUPPER - convert ASCII characters to all upper case -! from http://stackoverflow.com/questions/10759375/ -! how-can-i-write-a-to-upper-or-to-lower-function-in-f90 -! **************************************************************************** - FUNCTION toUPPER (str) RESULT (string) - - CHARACTER(*), INTENT(In) :: str - CHARACTER(LEN(str)) :: string - - INTEGER :: ic, i - - CHARACTER(26), PARAMETER :: cap = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' - CHARACTER(26), PARAMETER :: low = 'abcdefghijklmnopqrstuvwxyz' - - string = str - DO i = 1, LEN_TRIM(str) - ic = INDEX(low, str(i:i)) - IF (ic > 0) string(i:i) = cap(ic:ic) - END DO - - END FUNCTION toUPPER -! **************************************************************************** - - -! **************************************************************************** -! hash - a string hashing function -! from flibs, http://flibs.sourceforge.net -! **************************************************************************** - INTEGER FUNCTION hash( key ) - - CHARACTER(len=*), INTENT(in) :: key - - INTEGER :: i - - INTEGER, PARAMETER :: hash_size = 49931 - INTEGER, PARAMETER :: multiplier = 312 - - hash = 0 - - DO i = 1,LEN(key) - hash = MODULO( multiplier * hash + ICHAR(key(i:i)), hash_size) - ENDDO - - hash = 1 + MODULO( hash-1, hash_size ) - END FUNCTION hash -! **************************************************************************** - - -! **************************************************************************** -! strEqual - comparison function matching two strings -! **************************************************************************** - LOGICAL FUNCTION strEqual(a, b) - - CHARACTER(LEN=*), INTENT(IN) :: a, b - - LOGICAL, PARAMETER :: ignoreCase = .TRUE. - - CHARACTER(LEN=100) :: nice_a, nice_b - INTEGER :: max_len - - nice_a = ADJUSTL(a) - nice_b = ADJUSTL(b) - - IF (ignoreCase) THEN - nice_a = toUPPER(nice_a) - nice_b = toUPPER(nice_b) - END IF - - max_len = MAX( LEN_TRIM(nice_a), LEN_TRIM(nice_b) ) - - strEqual = nice_a(1:max_len) .EQ. nice_b(1:max_len) - - END FUNCTION strEqual -! **************************************************************************** - - -! **************************************************************************** -! writespecstring - Utility function that plots a (potentially) -! large number of species -! **************************************************************************** - SUBROUTINE writespecstring(nspecies, txt, species, offset) - - INTEGER :: nspecies, offset - CHARACTER(LEN=*) :: txt - CHARACTER(LEN=15) :: species(nspecies), fmt - CHARACTER(LEN=2000) :: specstring - - INTEGER, PARAMETER :: cperline=60 - - INTEGER :: i, l - - fmt = "" - WRITE(fmt, "(A1,I3,A4)") "(", offset, "X,A)" - - i = 1; l = 1 - specstring = "" - - DO WHILE (i <= nspecies) - - specstring = TRIM(ADJUSTL(specstring))//TRIM(ADJUSTL(species(i))) - IF (i < nspecies) specstring = TRIM(ADJUSTL(specstring))//", " - - i = i + 1 - - IF (LEN_TRIM(specstring) > cperline) THEN - IF (l == 1) specstring = txt//specstring - l = l + 1 - WRITE(*,fmt) TRIM(specstring) - specstring = "" - ENDIF - ENDDO - - IF (LEN_TRIM(specstring) > 0) THEN - IF (l == 1) specstring = txt//specstring - WRITE(*,fmt) TRIM(specstring) - ENDIF - - END SUBROUTINE writespecstring -! **************************************************************************** - - -! **************************************************************************** -! calcCFACTOR - Calculates CFACTOR variable for unit conversion between -! input/output files and values used in calculations / rates -! **************************************************************************** - SUBROUTINE calcCFACTOR ( ) - - ! from ppmv to mlc/cm3: - ! 1e-6 ppmv -> vmr - ! 1e-3 kg/m3 -> g/cm3 - ! 1/28.9645 g/cm3 -> mole/cm3 - ! 6.022e23 -> molec/cm3 - ! then multiply with air density rho - ! 1.0E-6 * 1E-03 * (1.0/28.97) * 6.022e23 * rho - ! CFACTOR = 2.598378e+13; (with rho == 1.25) - - CFACTOR = 1.0E-6 * 1E-03 * (1.0/28.9645) * 6.022e23 * & - pres / (287.058 * temp) - - END SUBROUTINE calcCFACTOR -! **************************************************************************** - - -! **************************************************************************** -! readConfig - Sets variables using values read in from "BOXMOX.nml" -! **************************************************************************** - SUBROUTINE readConfig ( ) - - INTEGER, PARAMETER :: config_pid = 22 - CHARACTER(LEN=*), PARAMETER :: config_name = "BOXMOX.nml" - - NAMELIST /BOXMOX/ TSTART, TEND, DT, lverbose, iturb, lfix_nox - - LOGICAL :: lnml_exists - - ! *** default values section *** - - TSTART = 0.0D0 ! model start time, seconds since 0 LT - TEND = TSTART + 3600.0D0 ! model end time, seconds since 0 LT - DT = 10.D0 ! model time step, seconds - - lverbose = .FALSE. - iturb = TURB_OPT_NONE - - lfix_nox = .FALSE. - - ! *** namelist read-in section *** - - INQUIRE(FILE=config_name, EXIST=lnml_exists) - - IF (lnml_exists) THEN - - WRITE(*,*) "BOXMOX configuration file ", TRIM(config_name)," found." - - OPEN (config_pid, FILE=config_name) - READ (config_pid, nml=BOXMOX) - CLOSE(config_pid) - - ELSE - WRITE(*,*) "No BOXMOX configuration file (", & - TRIM(config_name),") exists." - ENDIF - - ! *** configuration printout *** - - WRITE(*,*) " " - WRITE(*,"(A20,2X,F12.3)") "TSTART", TSTART - WRITE(*,"(A20,2X,F12.3)") "TEND", TEND - WRITE(*,"(A20,2X,F12.3)") "DT", DT - WRITE(*,*) "" - WRITE(*,"(A20,2X,L10)") "lverbose", lverbose - WRITE(*,*) "" - WRITE(*,"(A20,11X,I1)") "iturb", iturb - WRITE(*,*) "" - WRITE(*,"(A20,2X,L10)") "lfix_nox", lfix_nox - - WRITE(*,*) " " - - END SUBROUTINE readConfig -! **************************************************************************** - - -! **************************************************************************** -! checkConfig - check configuration variables -! **************************************************************************** - SUBROUTINE checkConfig ( ) - - INTEGER :: status - - status = 0 - - IF (TSTART < 0.0) THEN - WRITE(*,*) "start time TSTART cannot be < 0.0" - status = 1 - ENDIF - IF (TEND < 0.0) THEN - WRITE(*,*) "end time TEND cannot be < 0.0" - status = 2 - ENDIF - IF (TSTART >= TEND) THEN - WRITE(*,*) "start time TSTART has to be < end time TEND" - status = 3 - ENDIF - IF (DT <= 0.0) THEN - WRITE(*,*) "time step DT has to be > 0.0" - status = 4 - ENDIF - - IF (status .NE. 0) THEN - IF (.NOT. llibrary) THEN - STOP - ENDIF - ENDIF - - END SUBROUTINE checkConfig -! **************************************************************************** - - -! **************************************************************************** -! writeVersion - Write "VERSION" file to run directory -! **************************************************************************** - SUBROUTINE writeVersion ( ) - - INTEGER, PARAMETER :: version_pid = 23 - CHARACTER(LEN=*), PARAMETER :: version_name = "VERSION" - - ! *** write BOXMOX version to output directory *** - - OPEN(version_pid, file=version_name) - WRITE(version_pid, "(A)") "__BOXMOX_VERSION__" - CLOSE(version_pid) - - END SUBROUTINE writeVersion -! **************************************************************************** - - -! **************************************************************************** -! readVals - main input routine for the BOXMOX extensions. -! reads values from input files with different time -! formats, and interpolates to get the values -! appropriate for the current time step. -! **************************************************************************** - SUBROUTINE readVals(fname, nvar, species, values, stat, & - nanc, ancspecies, ancvalues, lquiet) - - CHARACTER(LEN=*), INTENT(IN) :: fname - INTEGER, INTENT(OUT) :: nvar - CHARACTER(LEN=15), INTENT(OUT) :: species(max_species_boxmox) - REAL(KIND=dp), INTENT(OUT) :: values(max_species_boxmox) - INTEGER, INTENT(OUT) :: stat - INTEGER, INTENT(OUT), OPTIONAL :: nanc - CHARACTER(LEN=15), INTENT(OUT),OPTIONAL :: ancspecies(max_species_boxmox) - REAL(KIND=dp), INTENT(OUT), OPTIONAL :: ancvalues(max_species_boxmox) - LOGICAL, INTENT(IN), OPTIONAL :: lquiet - - INTEGER, PARAMETER :: input_pid = 21 - REAL(KIND=dp) :: time_cur, weight_t1, & - values_t0(max_species_boxmox), & - values_t1(max_species_boxmox), & - values_cur(max_species_boxmox) - CHARACTER(LEN=15) :: names(max_species_boxmox) - INTEGER :: iostat, time_format, ntoread, ntime, nanct, pid, i - LOGICAL :: lfile_exists, ltalkative - - names(:) = "" - values_t0(:) = 0.0 - values_t1(:) = 0.0 - - stat = 0 ! everything is allright - - ltalkative = ( TIME .EQ. TSTART ) .OR. lverbose - IF (PRESENT(lquiet)) THEN - IF (lquiet) THEN - ltalkative = .FALSE. - ENDIF - ENDIF - - ! check whether file exists - INQUIRE(FILE=fname, EXIST=lfile_exists) - IF (.NOT. lfile_exists) THEN - stat = 1 - RETURN - ELSE - IF (ltalkative) THEN - WRITE(*,*) "" - WRITE(*,*) " * ", fname - ENDIF - END IF - - OPEN(input_pid, file=fname) - - ! line 1: number of variables - READ(input_pid, *) nvar - - ! if no variable should be read - bail - IF (nvar == 0) THEN - IF (ltalkative) WRITE(*,*) fname, " declared 0 variables to be read" - stat = 2 - CLOSE(input_pid) - RETURN - END IF - - ! line 2: number of ancillary variables - READ(input_pid, *) nanct - - IF (nanct .LT. 0) THEN - WRITE(*,"(A)") "Number of ancillary variables must be >= 0" - CLOSE(input_pid) - STOP - ENDIF - - IF (nanct .GT. 1) THEN - WRITE(*,"(A)") "Number of ancillary variables must be < 2" - CLOSE(input_pid) - STOP - ENDIF - - ! line 3: time format - READ(input_pid, *) time_format - - IF (time_format .LT. 0 .OR. time_format .GT. 2) THEN - WRITE(*,"(3A)") "Time format has to be 0 (constant), ", & - "1 (s since TSTART) or ", & - "2 (hour of day)" - CLOSE(input_pid) - STOP - END IF - - ntime = 0 - IF (time_format .GT. 0) ntime = 1 - - ntoread = ntime + nanct + nvar - - ! if more variables than max_species_boxmox should be read - bail - IF (ntoread > max_species_boxmox) THEN - IF (ltalkative) THEN - WRITE(*,*) fname, " declared more variables to be read" - WRITE(*,*) "than allocated. Increase max_species_boxmox," - WRITE(*,*) "recompile, and run again." - ENDIF - stat = 3 - CLOSE(input_pid) - RETURN - END IF - - ! line 4: header line - READ(input_pid, *) names(1:ntoread) - - ! line 4ff: values - READ(input_pid, *) values_t0(1:ntoread) - - ! if its not constant in time values - weight_t1 = 0 - IF (.NOT. time_format .EQ. 0) THEN - READ(input_pid, *, IOSTAT=iostat) values_t1(1:ntoread) - - ! TIME is the KPP provided current model time - time_cur = TIME - IF (time_format .EQ. 2) THEN - time_cur = TIME/3600.0_dp - (INT(TIME/3600.0_dp)/24)*24 - END IF - - ! ASSUMPTION: time is the first value read - DO WHILE(values_t1(1) .LT. time_cur .AND. iostat .EQ. 0) - values_t0 = values_t1 - - READ(input_pid, *, IOSTAT=iostat) values_t1(1:ntoread) - END DO - - ! take the last value in the file in case its time values don't cover - ! the full simulation period - IF (iostat .NE. 0) THEN - weight_t1 = 1.0 - ELSE - weight_t1 = (time_cur - values_t0(1)) / (values_t1(1) - values_t0(1)) - ENDIF - - ENDIF - - CLOSE(input_pid) - - values_cur = weight_t1 * values_t1 + & - (1.0 - weight_t1) * values_t0 - - species(1:nvar) = names(ntime+nanct+1:ntime+nanct+nvar) - values(1:nvar) = values_cur(ntime+nanct+1:ntime+nanct+nvar) - - IF (PRESENT(nanc)) nanc = nanct - - IF (nanct .GT. 0) THEN - IF (PRESENT(ancvalues)) THEN - ancvalues(1:nanct) = values_cur(ntime+1:ntime+nanct) - ENDIF - IF (PRESENT(ancspecies)) THEN - ancspecies(1:nanct) = names(ntime+1:ntime+nanct) - ENDIF - ENDIF - - END SUBROUTINE readVals -! **************************************************************************** - - -! **************************************************************************** -! readInput - Reads values from .csv, applies function -! -! "t" is for "target" (i.e. the vector to apply "action" over) -! "r" is for "read" from file -! "u" is for "useable" (i.e., exists in the "target" vector) -! "m" is for "missing" (i.e., asked for, but not found in file) -! -! **************************************************************************** - SUBROUTINE readInput (filename, nt, tnames, tvalues, & - action, lzero, quiet) - - CHARACTER(LEN=*), INTENT(IN) :: filename - INTEGER, INTENT(IN) :: nt - REAL(KIND=dp) :: tvalues(nt) - CHARACTER(LEN=15), INTENT(IN) :: tnames(nt) - REAL(KIND=dp), OPTIONAL :: action ! function to be called - LOGICAL, INTENT(IN), OPTIONAL :: lzero ! call action with 0.0 - ! for 'missing' species - LOGICAL, INTENT(IN), OPTIONAL :: quiet - - INTEGER :: nr, nu, nm, i, k, m, & - iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - unames(max_species_boxmox), & - mnames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox) - LOGICAL :: is_used, first, & - talkative - - CALL readVals(filename, nr, rnames, rvalues, iostat) - - IF (iostat .NE. 0) RETURN - - talkative = .TRUE. - IF (PRESENT(quiet)) talkative = .NOT. quiet - - unames(:) = "none" - nu = 0 - - first = lverbose - - DO i = 1, nr - DO k = 1, nt - IF ( strEqual(rnames(i), tnames(k)) ) THEN - - IF (PRESENT(action)) THEN - tvalues(k) = action( tvalues(k), k, rvalues(i), first) - ELSE - tvalues(k) = rvalues(i) - IF ( (lverbose .OR. first) .AND. talkative ) THEN - WRITE(*,"(6X,A15,1X,E12.6)") tnames(k), tvalues(k)/CFACTOR - ENDIF - ENDIF - - first = .FALSE. - - nu = nu + 1 - unames(nu) = TRIM(ADJUSTL(rnames(i))) - ENDIF - ENDDO - ENDDO - - IF (PRESENT(lzero)) THEN - IF (lzero) THEN - DO k = 1, nt - is_used = .FALSE. - DO i = 1, nu - IF ( strEqual(unames(i), tnames(k)) ) is_used = .TRUE. - ENDDO - IF (.NOT. is_used) THEN - tvalues(k) = action( tvalues(k), k, 0.0, first) - first = .FALSE. - ENDIF - ENDDO - ENDIF - ENDIF - - nm = nr - nu - mnames(:) = "" - - IF (nm > 0) THEN - m = 1 - DO i = 1, nr - is_used = .FALSE. - DO k = 1, nu - IF ( strEqual(rnames(i), unames(k)) ) is_used = .TRUE. - ENDDO - - IF (.NOT. is_used) THEN - mnames(m) = TRIM(ADJUSTL(rnames(i))) - m = m + 1 - ENDIF - ENDDO - ENDIF - - IF ( ((TIME .EQ. TSTART) .OR. lverbose) .AND. talkative) THEN - IF (nu > 0) CALL writespecstring(nu, "useable:", unames, 6) - IF (nm > 0) CALL writespecstring(nm, "unknown: ", mnames, 6) - ENDIF - - END SUBROUTINE readInput -! **************************************************************************** - - -! **************************************************************************** -! InitialCondition - Sets initial values -! **************************************************************************** - REAL(KIND=dp) FUNCTION InitialCondition(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - InitialCondition = y * CFACTOR - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,A12,1X)") "species ", "IC" - WRITE(*,"(6X,A15,1X,E12.6,1X)") SPC_NAMES(k), InitialCondition/CFACTOR - ENDIF - - END FUNCTION InitialCondition -! **************************************************************************** - - -! **************************************************************************** -! Deposition - Applies deposition velocities -! **************************************************************************** - REAL(KIND=dp) FUNCTION Deposition(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - REAL(KIND=dp) :: dCdt - - Deposition = x - - ! we don't remove fixed variables - IF (k .LT. NFIXST) THEN - ! we assume deposition velocities in comparable units - ! (i.e. cm s-1) - ! dxdydz(3) == DZ - dCdt = - y * x / (dxdydz(3) * 100.0) - Deposition = MAX( 0.0, x + DT * dCdt ) - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "v_dep", "after" - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, y, & - Deposition/CFACTOR - ENDIF - - ENDIF - - END FUNCTION Deposition -! **************************************************************************** - - -! **************************************************************************** -! Emission - Adds emissions -! **************************************************************************** - REAL(KIND=dp) FUNCTION Emission(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - REAL(KIND=dp) :: cur - - ! we assume emissions to be a flux in units comparable to the - ! concentration values used in KPP - ! e.g. molecules / m2 / s vs molecules / m3, or - ! moles / cm2 / s vs moles / cm3, ... - ! the time dimensions unit has to be seconds! - - ! dxdydz(3) is PBL height in m - cur = y * DT / (dxdydz(3) * 100.0) - - Emission = x + cur - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "tendency", "after" - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, & - cur/DT/CFACTOR, Emission/CFACTOR - ENDIF - - END FUNCTION Emission -! **************************************************************************** - - -! **************************************************************************** -! Mix - calculate concentration after turbulent mixing -! **************************************************************************** - REAL(KIND=dp) FUNCTION Mix(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - REAL(KIND=dp) :: frac_bg - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - Mix = x - - frac_bg = Kturb * DT - - IF (lfirst .AND. lverbose) THEN - WRITE(*,"(6X,A,1X,F6.3)") "fractional amount of background air", & - frac_bg - WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "background", "after" - ENDIF - - ! we don't mix fixed variables - IF (k .LT. NFIXST) THEN - - ! seems like we found something - Mix = frac_bg * (y * CFACTOR) + & - (1.0 - frac_bg) * x - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, & - y, Mix/CFACTOR - ENDIF - - ENDIF - - END FUNCTION Mix -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturb - calculate Kturb for mixing -! **************************************************************************** - SUBROUTINE UpdateKturb() - - Kturb = 0.0 - SELECT CASE (iturb) - CASE (TURB_OPT_NONE) - Kturb = 0.0 - CASE (TURB_OPT_SPECIFIED) - CALL UpdateKturbSpecified() - CASE (TURB_OPT_VOLUME) - CALL UpdateKturbVolume() - CASE (TURB_OPT_TRACER) - CALL UpdateKturbTracer() - CASE DEFAULT - WRITE(*,"(A,1X,I1)") "Unknown mixing option", iturb - END SELECT - - END SUBROUTINE UpdateKturb -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbSpecified - calc. Kturb for mixing using specified Kturb -! **************************************************************************** - SUBROUTINE UpdateKturbSpecified() - - INTEGER :: nr, na, i, iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - anames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox), & - avalues(max_species_boxmox) - LOGICAL :: lfound - - Kturb = 0.0 - - CALL readVals('Background.csv', & - nr, rnames, rvalues, iostat, & - na, anames, avalues, lquiet=.TRUE.) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - lfound = .FALSE. - DO i = 1, na - IF ( strEqual(anames(i), 'Kturb') ) THEN - Kturb = avalues(i) - lfound = .TRUE. - ENDIF - ENDDO - - IF (.NOT. lfound) THEN - WRITE(*,*) "Kturb variable not found in Background.csv" - STOP - ENDIF - - END SUBROUTINE UpdateKturbSpecified -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbVolume - calc. Kturb for mixing using box volume changes -! **************************************************************************** - SUBROUTINE UpdateKturbVolume() - - REAL(KIND=dp) :: vol, vol_old - - vol = dxdydz(1) * dxdydz(2) * dxdydz(3) - vol_old = dxdydz_old(1) * dxdydz_old(2) * dxdydz_old(3) - - ! maybe we have a mixing case where the box volume changes? - ! increasing volume - dilute against background - ! decreasing volume - ignore (?) for now - - ! in the PBL case, analogue: - ! maybe we changed the PBLH? update concentration vector - ! rising BL - mixing against zero air or bg values - ! shrinking BL - creates residual layer, decouples - - IF (vol > vol_old) THEN - Kturb = ( (vol - vol_old) / vol_old ) / DT - ENDIF - - END SUBROUTINE UpdateKturbVolume -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbTracer - calc. Kturb for mixing using tracer (t, tname) conc. -! changes -! **************************************************************************** - SUBROUTINE UpdateKturbTracer() - - INTEGER :: nr, na, i, iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - anames(max_species_boxmox), & - tracer_name - REAL(KIND=dp) :: rvalues(max_species_boxmox), & - avalues(max_species_boxmox), & - prev, obs, bg, frac_bg - LOGICAL :: lfound_prev, lfound_bg - - Kturb = 0.0 - - CALL readVals('Background.csv', & - nr, rnames, rvalues, iostat, & - na, anames, avalues, lquiet=.TRUE.) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - ! ASSUMPTION: first ancillary species is mixing tracer - tracer_name = anames(1) - obs = avalues(1) * CFACTOR - - prev = 0.0 - lfound_prev = .FALSE. - DO i = 1, NSPEC - IF ( strEqual(SPC_NAMES(i), tracer_name) ) THEN - prev = C(i) - lfound_prev = .TRUE. - ENDIF - ENDDO - - bg = 0.0 - lfound_bg = .FALSE. - DO i = 1, nr - IF ( strEqual(rnames(i), tracer_name) ) THEN - bg = rvalues(i) * CFACTOR - lfound_bg = .TRUE. - ENDIF - ENDDO - - IF (.NOT. lfound_bg) THEN - WRITE(*,*) "Tracer ", TRIM(tracer_name), & - " not found in Background.csv" - STOP - ENDIF - IF (.NOT. lfound_prev) THEN - WRITE(*,*) "Tracer ", TRIM(tracer_name), & - " not found in mechanism" - STOP - ENDIF - - IF ( ABS( bg - prev ) < 1e-10 ) THEN - Kturb = 0.0 - ELSE - frac_bg = ( obs - prev ) / ( bg - prev ) - frac_bg = MIN( frac_bg, 1.0 ) - frac_bg = MAX( frac_bg, 0.0 ) - - Kturb = frac_bg / DT - ENDIF - - END SUBROUTINE UpdateKturbTracer -! **************************************************************************** - - -! **************************************************************************** -! UpdatePhotolysisRates - well, it does what it seems to do -! **************************************************************************** - SUBROUTINE UpdatePhotolysisRates() - - INTEGER :: i, iostat, nr, jidx - CHARACTER(LEN=15) :: rnames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox) - - INTEGER :: j, jidx2 - - rnames(:) = " " - rvalues(:) = 0.0 - - jvalues(:) = 0.0 - - CALL readVals('PhotolysisRates.csv', nr, rnames, rvalues, iostat) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - DO i = 1, nr - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,E12.6)") rnames(i), rvalues(i) - ENDIF - jidx = hash(rnames(i)) - jvalues(jidx) = rvalues(i) - ENDDO - - ! first time step only: make sure hashing actually made unique hashes - IF (TIME .EQ. TSTART) THEN - DO i = 1, nr - jidx = hash(rnames(i)) - DO j = 1, nr - jidx2 = hash(rnames(j)) - IF ((jidx .EQ. jidx2) .AND. .NOT. (i .EQ. j)) THEN - WRITE(*,*) "Photolysis rate label hash collision:" - WRITE(*,*) rnames(i), "(idx ",i,", hash ", jidx, ") == ", & - rnames(j), "(idx ",j,", hash ", jidx2,")" - IF ( strEqual( rnames(i), rnames(j) ) ) THEN - WRITE(*,*) "Remove duplicate label in PhotolysisRates.csv!" - ELSE - WRITE(*,*) "Please contact the BOXMOX developers!" - ENDIF - STOP - ENDIF - ENDDO - ENDDO - - CALL writespecstring(nr, "known:", rnames, 6) - - ENDIF - - END SUBROUTINE UpdatePhotolysisRates -! **************************************************************************** - - -! **************************************************************************** -! UpdateAerosol - update aerosol properties -! **************************************************************************** - SUBROUTINE UpdateAerosol() - - INTEGER, PARAMETER :: naer = 2, sad_idx = 1, r_idx = 2 - REAL(KIND=dp) :: aer(naer), errval = -987654321.0 - CHARACTER(LEN=15) :: aernames(naer) - INTEGER :: iostat, i - - aernames(sad_idx) = "sad"; aer(sad_idx) = errval - aernames(r_idx) = "r"; aer(r_idx) = errval - - CALL readInput('Aerosol.csv', naer, aernames, aer, quiet=lverbose) - - IF (aer(sad_idx) .NE. errval) AER_SAD = aer(sad_idx) - IF (aer(r_idx) .NE. errval) AER_R = aer(r_idx) - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,F8.2)") "SAD ", AER_SAD - WRITE(*,"(6X,A15,1X,F8.2)") "R ", AER_R - ENDIF - - END SUBROUTINE UpdateAerosol -! **************************************************************************** - - -! **************************************************************************** -! UpdateEnvironment - Read environmental values -! **************************************************************************** - SUBROUTINE UpdateEnvironment() - - INTEGER, PARAMETER :: nenv = 4, temp_idx = 1, pres_idx = 2, & - pblh_idx = 3, vol_idx = 4 - REAL(KIND=dp) :: env(nenv), errval = -987654321.0 - CHARACTER(LEN=15) :: envnames(nenv) - INTEGER :: iostat, i - - REAL(KIND=dp) :: temp_old, pres_old, pblh, vol - - envnames(temp_idx) = "TEMP"; env(temp_idx) = errval - envnames(pres_idx) = "PRES"; env(pres_idx) = errval - envnames(pblh_idx) = "PBLH"; env(pblh_idx) = errval - envnames(vol_idx) = "VOL"; env(vol_idx) = errval - - CALL readInput('Environment.csv', nenv, envnames, env, quiet=lverbose) - - temp_old = temp - pres_old = pres - - dxdydz_old(:) = dxdydz(:) - - ! those are just pseudo variables for dxdydz properties - pblh = dxdydz(3) - vol = dxdydz(1) * dxdydz(2) * dxdydz(3) - - IF (env(pblh_idx) .NE. errval .AND. env(vol_idx) .NE. errval) & - THEN - WRITE(*,*) "Cannot work with changing PBLH and VOL at the same time." - STOP - ENDIF - - IF (env(temp_idx) .NE. errval) temp = env(temp_idx) - IF (env(pres_idx) .NE. errval) pres = env(pres_idx) - IF (env(vol_idx) .NE. errval) vol = env(vol_idx) - - IF (env(pblh_idx) .NE. errval) THEN - pblh = env(pblh_idx) - dxdydz(3) = pblh - ENDIF - - ! Adjust species vector - DO i = 1, NSPEC - C(i) = C(i) * (temp_old * pres) / (temp * pres_old) - ENDDO - - ! recalculate unit conversion - CALL calcCFACTOR() - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,F8.2)") "TEMP ", temp - WRITE(*,"(6X,A13,1X,F10.2)") "PRES ", pres - WRITE(*,"(6X,A15,1X,F8.2)") "PBLH ", dxdydz(3) - WRITE(*,"(6X,A15,1X,F8.2)") "VOL ", & - dxdydz(1)*dxdydz(2)*dxdydz(3) - WRITE(*,*) "" - WRITE(*,"(6X,A7,1X,E16.8)") "CFACTOR", CFACTOR - ENDIF - - END SUBROUTINE UpdateEnvironment -! **************************************************************************** - - -! **************************************************************************** -! InitFixNOx - Initialize the NOx fixing data (for steady state calculations) -! **************************************************************************** - SUBROUTINE InitFixNOx(n, names, values) - - INTEGER, INTENT(IN) :: n - REAL(KIND=dp) :: values(n) - CHARACTER(LEN=15), INTENT(IN) :: names(n) - - INTEGER :: i, nfound_tracers - - initial_total_nox = 0.0 - nfound_tracers = 0 - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - initial_total_nox = initial_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - initial_total_nox = initial_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - ENDDO - - IF (.NOT. nfound_tracers == 2) THEN - WRITE(*,*) "NOx fixing failed, found (only) ", & - nfound_tracers, " species." - STOP - ENDIF - - END SUBROUTINE InitFixNOx -! **************************************************************************** - - -! **************************************************************************** -! FixNOx - keep total NOx at initial levels (for steady state calculations) -! **************************************************************************** - SUBROUTINE FixNOx(n, names, values) - - INTEGER, INTENT(IN) :: n - REAL(KIND=dp), INTENT(INOUT) :: values(n) - CHARACTER(LEN=15), INTENT(IN) :: names(n) - - INTEGER :: i, nfound_tracers - REAL(KIND=dp) :: current_total_nox, scaleFactor - - current_total_nox = 0.0 - nfound_tracers = 0 - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - current_total_nox = current_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - current_total_nox = current_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - ENDDO - - IF (.NOT. nfound_tracers == 2) THEN - WRITE(*,*) "NOx fixing failed, found (only) ", & - nfound_tracers, " species." - STOP - ENDIF - - scaleFactor = initial_total_nox - IF (current_total_nox > 0.0) THEN - scaleFactor = initial_total_nox / current_total_nox - ENDIF - - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - values(i) = values(i) * scaleFactor - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - values(i) = values(i) * scaleFactor - ENDIF - ENDDO - - END SUBROUTINE FixNOx -! **************************************************************************** - - -! End INLINED Utility Functions - -! Utility Functions from KPP_HOME/util/util -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! UTIL - Utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -! **************************************************************** -! -! InitSaveData - Opens the data file for writing -! Parameters : -! -! **************************************************************** - - SUBROUTINE InitSaveData () - - USE MOZART_T1_Parameters -!* ---------------------------------------------------- -!* BOXMOX extension - Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* add header to output species and sparse jacobian indices -!* and Hessian - USE MOZART_T1_JacobianSP -#if 0 > 0 - USE MOZART_T1_HessianSP -#endif -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* add header to output files and open rates file - INTEGER :: i -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20161129 -!* renamed concentration output -! open(10, file='MOZART_T1.dat') - open(10, file='MOZART_T1.conc') -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* add header to output files and open rates file - - ! add header to output file - WRITE(10, "(A24,10000(1X,A24))") "time", ADJUSTR(SPC_NAMES(LOOKAT)) - - open(11, file='MOZART_T1.rates') - - WRITE(11, "(I5)") NREACT - - DO i = 1, NREACT - WRITE(11, "(A)") EQN_NAMES(i) - ENDDO - - ! add header to output file - WRITE(11, "(A24,10000(1X,I24))") "time", (/(i, i=1,NREACT, 1)/) - -!* write header to Jacobian output - open(12, file='MOZART_T1.jacobian') - -!* species names - WRITE(12, "(10000(1X,A24))") ADJUSTR(SPC_NAMES(LOOKAT)) -!* species index - WRITE(12, "(10000(1X,I5))") LOOKAT -!* Jacobian non zero row index - WRITE(12, "(100000(1X,I5))") (LU_IROW(i), i=1,LU_NONZERO) -!* Jacobian non zero column index - WRITE(12, "(100000(1X,I5))") (LU_ICOL(i), i=1,LU_NONZERO) - -!* write header to Hessian output -#if 0 > 0 - open(13, file='MOZART_T1.hessian') - -!* species names - WRITE(13, "(10000(1X,A24))") ADJUSTR(SPC_NAMES(LOOKAT)) -!* species index - WRITE(13, "(10000(1X,I5))") LOOKAT -!* Hessian i, j, k species - WRITE(13, "(100000(1X,I5))") (IHESS_I(i), i=1,NHESS) - WRITE(13, "(100000(1X,I5))") (IHESS_J(i), i=1,NHESS) - WRITE(13, "(100000(1X,I5))") (IHESS_K(i), i=1,NHESS) -#endif -!* ---------------------------------------------------- - - END SUBROUTINE InitSaveData - -! End of InitSaveData function -! **************************************************************** - -! **************************************************************** -! -! SaveData - Write LOOKAT species in the data file -! Parameters : -! -! **************************************************************** - - SUBROUTINE SaveData () - - USE MOZART_T1_Global - USE MOZART_T1_Monitor -!* ---------------------------------------------------- -!* BOXMOX extension - Jerome Barre - 20150410 -!* Christoph Knote - 20151030 - USE MOZART_T1_Jacobian -#if 0 > 0 - USE MOZART_T1_Hessian -#endif -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20151030 - REAL(KIND=dp) :: JVS(LU_NONZERO) ! d(dc/dt)i/dcj -#if 0 > 0 - REAL(KIND=dp) :: HESS(NHESS) ! -#endif - INTEGER i - - WRITE(10,999) (TIME-TSTART)/3600.D0, & - (C(LOOKAT(i))/CFACTOR, i=1,NLOOKAT) - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* write out reaction rates - WRITE(11,999) (TIME-TSTART)/3600.D0, & - (RCONST(i), i=1,NREACT) -!* call Jacobian function to output Jacobian values - CALL Jac_SP( VAR, FIX, RCONST, JVS ) - WRITE(12,9999) (JVS(i), i=1,LU_NONZERO) -!* call Hessian function to output Hessian values -#if 0 > 0 - CALL Hessian( VAR, FIX, RCONST, HESS ) - WRITE(13,9999) (HESS(i), i=1,NHESS) -#endif -!* --------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* might have more than 100 output variables -! 999 FORMAT(E24.16,100(1X,E24.16)) -999 FORMAT(E24.16,10000(1X,E24.16E3)) -9999 FORMAT(E24.16,100000(1X,E24.16E3)) -!* ---------------------------------------------------- - - END SUBROUTINE SaveData - -! End of SaveData function -! **************************************************************** - -! **************************************************************** -! -! CloseSaveData - Close the data file -! Parameters : -! -! **************************************************************** - - SUBROUTINE CloseSaveData () - - USE MOZART_T1_Parameters - - CLOSE(10) - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -! Christoph Knote - 20153010 -!* close rates file - CLOSE(11) -!* close Jacobian file - CLOSE(12) -!* close Hessian file -#if 0 > 0 - CLOSE(13) -#endif -!* --------------------------------------------------- - - END SUBROUTINE CloseSaveData - -! End of CloseSaveData function -! **************************************************************** - -! **************************************************************** -! -! GenerateMatlab - Generates MATLAB file to load the data file -! Parameters : -! It will have a character string to prefix each -! species name with. -! -! **************************************************************** - - SUBROUTINE GenerateMatlab ( PREFIX ) - - USE MOZART_T1_Parameters - USE MOZART_T1_Global - USE MOZART_T1_Monitor - - - CHARACTER(LEN=8) PREFIX - INTEGER i - - open(20, file='MOZART_T1.m') - write(20,*) 'load MOZART_T1.dat;' - write(20,990) PREFIX -990 FORMAT(A1,'c = MOZART_T1;') - write(20,*) 'clear MOZART_T1;' - write(20,991) PREFIX, PREFIX -991 FORMAT(A1,'t=',A1,'c(:,1);') - write(20,992) PREFIX -992 FORMAT(A1,'c(:,1)=[];') - - do i=1,NLOOKAT - write(20,993) PREFIX, SPC_NAMES(LOOKAT(i)), PREFIX, i -993 FORMAT(A1,A6,' = ',A1,'c(:,',I2,');') - end do - - CLOSE(20) - - END SUBROUTINE GenerateMatlab - -! End of GenerateMatlab function -! **************************************************************** - - -! End Utility Functions from KPP_HOME/util/util -! End of UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Shuffle_user2kpp - function to copy concentrations from USER to KPP -! Arguments : -! V_USER - Concentration of variable species in USER's order -! V - Concentrations of variable species (local) -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Shuffle_user2kpp ( V_USER, V ) - -! V_USER - Concentration of variable species in USER's order - REAL(kind=dp) :: V_USER(NVAR) -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) - - V(93) = V_USER(1) - V(94) = V_USER(2) - V(116) = V_USER(3) - V(117) = V_USER(4) - V(43) = V_USER(5) - V(1) = V_USER(6) - V(25) = V_USER(7) - V(67) = V_USER(8) - V(26) = V_USER(9) - V(111) = V_USER(10) - V(69) = V_USER(11) - V(44) = V_USER(12) - V(91) = V_USER(13) - V(57) = V_USER(14) - V(58) = V_USER(15) - V(59) = V_USER(16) - V(118) = V_USER(17) - V(38) = V_USER(18) - V(50) = V_USER(19) - V(24) = V_USER(20) - V(60) = V_USER(21) - V(40) = V_USER(22) - V(53) = V_USER(23) - V(15) = V_USER(24) - V(128) = V_USER(25) - V(56) = V_USER(26) - V(16) = V_USER(27) - V(41) = V_USER(28) - V(146) = V_USER(29) - V(129) = V_USER(30) - V(17) = V_USER(31) - V(122) = V_USER(32) - V(138) = V_USER(33) - V(61) = V_USER(34) - V(68) = V_USER(35) - V(107) = V_USER(36) - V(47) = V_USER(37) - V(87) = V_USER(38) - V(123) = V_USER(39) - V(31) = V_USER(40) - V(36) = V_USER(41) - V(20) = V_USER(42) - V(124) = V_USER(43) - V(109) = V_USER(44) - V(82) = V_USER(45) - V(39) = V_USER(46) - V(28) = V_USER(47) - V(103) = V_USER(48) - V(113) = V_USER(49) - V(79) = V_USER(50) - V(70) = V_USER(51) - V(45) = V_USER(52) - V(137) = V_USER(53) - V(37) = V_USER(54) - V(136) = V_USER(55) - V(46) = V_USER(56) - V(21) = V_USER(57) - V(114) = V_USER(58) - V(85) = V_USER(59) - V(72) = V_USER(60) - V(142) = V_USER(61) - V(62) = V_USER(62) - V(97) = V_USER(63) - V(8) = V_USER(64) - V(115) = V_USER(65) - V(143) = V_USER(66) - V(48) = V_USER(67) - V(100) = V_USER(68) - V(104) = V_USER(69) - V(112) = V_USER(70) - V(125) = V_USER(71) - V(83) = V_USER(72) - V(78) = V_USER(73) - V(49) = V_USER(74) - V(84) = V_USER(75) - V(144) = V_USER(76) - V(120) = V_USER(77) - V(18) = V_USER(78) - V(29) = V_USER(79) - V(51) = V_USER(80) - V(110) = V_USER(81) - V(14) = V_USER(82) - V(153) = V_USER(83) - V(147) = V_USER(84) - V(150) = V_USER(85) - V(119) = V_USER(86) - V(52) = V_USER(87) - V(135) = V_USER(88) - V(151) = V_USER(89) - V(22) = V_USER(90) - V(71) = V_USER(91) - V(23) = V_USER(92) - V(73) = V_USER(93) - V(27) = V_USER(94) - V(54) = V_USER(95) - V(74) = V_USER(96) - V(55) = V_USER(97) - V(19) = V_USER(98) - V(2) = V_USER(99) - V(3) = V_USER(100) - V(4) = V_USER(101) - V(5) = V_USER(102) - V(6) = V_USER(103) - V(7) = V_USER(104) - V(9) = V_USER(105) - V(32) = V_USER(106) - V(88) = V_USER(107) - V(80) = V_USER(108) - V(75) = V_USER(109) - V(133) = V_USER(110) - V(126) = V_USER(111) - V(89) = V_USER(112) - V(30) = V_USER(113) - V(33) = V_USER(114) - V(34) = V_USER(115) - V(98) = V_USER(116) - V(35) = V_USER(117) - V(63) = V_USER(118) - V(81) = V_USER(119) - V(121) = V_USER(120) - V(76) = V_USER(121) - V(64) = V_USER(122) - V(108) = V_USER(123) - V(105) = V_USER(124) - V(92) = V_USER(125) - V(152) = V_USER(126) - V(155) = V_USER(127) - V(102) = V_USER(128) - V(86) = V_USER(129) - V(42) = V_USER(130) - V(90) = V_USER(131) - V(149) = V_USER(132) - V(65) = V_USER(133) - V(140) = V_USER(134) - V(141) = V_USER(135) - V(145) = V_USER(136) - V(154) = V_USER(137) - V(130) = V_USER(138) - V(95) = V_USER(139) - V(132) = V_USER(140) - V(106) = V_USER(141) - V(148) = V_USER(142) - V(66) = V_USER(143) - V(96) = V_USER(144) - V(134) = V_USER(145) - V(127) = V_USER(146) - V(131) = V_USER(147) - V(99) = V_USER(148) - V(139) = V_USER(149) - V(101) = V_USER(150) - V(77) = V_USER(151) - V(10) = V_USER(152) - V(11) = V_USER(153) - V(12) = V_USER(154) - V(13) = V_USER(155) - -END SUBROUTINE Shuffle_user2kpp - -! End of Shuffle_user2kpp function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Shuffle_kpp2user - function to restore concentrations from KPP to USER -! Arguments : -! V - Concentrations of variable species (local) -! V_USER - Concentration of variable species in USER's order -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Shuffle_kpp2user ( V, V_USER ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! V_USER - Concentration of variable species in USER's order - REAL(kind=dp) :: V_USER(NVAR) - - V_USER(1) = V(93) - V_USER(2) = V(94) - V_USER(3) = V(116) - V_USER(4) = V(117) - V_USER(5) = V(43) - V_USER(6) = V(1) - V_USER(7) = V(25) - V_USER(8) = V(67) - V_USER(9) = V(26) - V_USER(10) = V(111) - V_USER(11) = V(69) - V_USER(12) = V(44) - V_USER(13) = V(91) - V_USER(14) = V(57) - V_USER(15) = V(58) - V_USER(16) = V(59) - V_USER(17) = V(118) - V_USER(18) = V(38) - V_USER(19) = V(50) - V_USER(20) = V(24) - V_USER(21) = V(60) - V_USER(22) = V(40) - V_USER(23) = V(53) - V_USER(24) = V(15) - V_USER(25) = V(128) - V_USER(26) = V(56) - V_USER(27) = V(16) - V_USER(28) = V(41) - V_USER(29) = V(146) - V_USER(30) = V(129) - V_USER(31) = V(17) - V_USER(32) = V(122) - V_USER(33) = V(138) - V_USER(34) = V(61) - V_USER(35) = V(68) - V_USER(36) = V(107) - V_USER(37) = V(47) - V_USER(38) = V(87) - V_USER(39) = V(123) - V_USER(40) = V(31) - V_USER(41) = V(36) - V_USER(42) = V(20) - V_USER(43) = V(124) - V_USER(44) = V(109) - V_USER(45) = V(82) - V_USER(46) = V(39) - V_USER(47) = V(28) - V_USER(48) = V(103) - V_USER(49) = V(113) - V_USER(50) = V(79) - V_USER(51) = V(70) - V_USER(52) = V(45) - V_USER(53) = V(137) - V_USER(54) = V(37) - V_USER(55) = V(136) - V_USER(56) = V(46) - V_USER(57) = V(21) - V_USER(58) = V(114) - V_USER(59) = V(85) - V_USER(60) = V(72) - V_USER(61) = V(142) - V_USER(62) = V(62) - V_USER(63) = V(97) - V_USER(64) = V(8) - V_USER(65) = V(115) - V_USER(66) = V(143) - V_USER(67) = V(48) - V_USER(68) = V(100) - V_USER(69) = V(104) - V_USER(70) = V(112) - V_USER(71) = V(125) - V_USER(72) = V(83) - V_USER(73) = V(78) - V_USER(74) = V(49) - V_USER(75) = V(84) - V_USER(76) = V(144) - V_USER(77) = V(120) - V_USER(78) = V(18) - V_USER(79) = V(29) - V_USER(80) = V(51) - V_USER(81) = V(110) - V_USER(82) = V(14) - V_USER(83) = V(153) - V_USER(84) = V(147) - V_USER(85) = V(150) - V_USER(86) = V(119) - V_USER(87) = V(52) - V_USER(88) = V(135) - V_USER(89) = V(151) - V_USER(90) = V(22) - V_USER(91) = V(71) - V_USER(92) = V(23) - V_USER(93) = V(73) - V_USER(94) = V(27) - V_USER(95) = V(54) - V_USER(96) = V(74) - V_USER(97) = V(55) - V_USER(98) = V(19) - V_USER(99) = V(2) - V_USER(100) = V(3) - V_USER(101) = V(4) - V_USER(102) = V(5) - V_USER(103) = V(6) - V_USER(104) = V(7) - V_USER(105) = V(9) - V_USER(106) = V(32) - V_USER(107) = V(88) - V_USER(108) = V(80) - V_USER(109) = V(75) - V_USER(110) = V(133) - V_USER(111) = V(126) - V_USER(112) = V(89) - V_USER(113) = V(30) - V_USER(114) = V(33) - V_USER(115) = V(34) - V_USER(116) = V(98) - V_USER(117) = V(35) - V_USER(118) = V(63) - V_USER(119) = V(81) - V_USER(120) = V(121) - V_USER(121) = V(76) - V_USER(122) = V(64) - V_USER(123) = V(108) - V_USER(124) = V(105) - V_USER(125) = V(92) - V_USER(126) = V(152) - V_USER(127) = V(155) - V_USER(128) = V(102) - V_USER(129) = V(86) - V_USER(130) = V(42) - V_USER(131) = V(90) - V_USER(132) = V(149) - V_USER(133) = V(65) - V_USER(134) = V(140) - V_USER(135) = V(141) - V_USER(136) = V(145) - V_USER(137) = V(154) - V_USER(138) = V(130) - V_USER(139) = V(95) - V_USER(140) = V(132) - V_USER(141) = V(106) - V_USER(142) = V(148) - V_USER(143) = V(66) - V_USER(144) = V(96) - V_USER(145) = V(134) - V_USER(146) = V(127) - V_USER(147) = V(131) - V_USER(148) = V(99) - V_USER(149) = V(139) - V_USER(150) = V(101) - V_USER(151) = V(77) - V_USER(152) = V(10) - V_USER(153) = V(11) - V_USER(154) = V(12) - V_USER(155) = V(13) - -END SUBROUTINE Shuffle_kpp2user - -! End of Shuffle_kpp2user function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! GetMass - compute total mass of selected atoms -! Arguments : -! CL - Concentration of all species (local) -! Mass - value of mass balance -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE GetMass ( CL, Mass ) - -! CL - Concentration of all species (local) - REAL(kind=dp) :: CL(NSPEC) -! Mass - value of mass balance - REAL(kind=dp) :: Mass(1) - - -END SUBROUTINE GetMass - -! End of GetMass function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE MOZART_T1_Util - diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Util.o b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Util.o deleted file mode 100644 index 5760ca5bd9eafd191182d3afc894b8f5982a627e..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_Util.o and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_mex_Fun.f90 b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_mex_Fun.f90 deleted file mode 100644 index 0344c988b35645ffd4577f16b8672af3bce8d639..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_mex_Fun.f90 +++ /dev/null @@ -1,45 +0,0 @@ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE mexFunction( nlhs, plhs, nrhs, prhs ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Matlab Gateway for the Derivative Function Fun -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MOZART_T1_Model - - INTEGER nlhs, nrhs - INTEGER plhs(*), prhs(*) - INTEGER mxGetPr, mxCreateFull, mxGetM, mxgetN - INTEGER VPtr, FPtr, RPtr, VdotPtr - REAL(kind=dp) V(155), F(5), RCT(360) - REAL(kind=dp) Vdot(155) - -! Check for the right number of input arguments - IF ( nrhs .ne. 3 ) THEN - CALL mexErrMsgTxt('Fun requires 3 input vectors: & - &V(155), F(5), RCT(360)') - END IF -! Check for the right number of output arguments - IF ( nlhs .ne. 1 ) THEN - CALL mexErrMsgTxt('Fun requires 1 output vector: & - &Vdot(155)') - END IF - - plhs(1) = mxCreateDoubleMatrix(155,1,0) - - VPtr = mxGetPr(prhs(1)) - CALL mxCopyPtrToReal8(VPtr,V,155) - - FPtr = mxGetPr(prhs(2)) - CALL mxCopyPtrToReal8(FPtr,F,5) - - RPtr = mxGetPr(prhs(3)) - CALL mxCopyPtrToReal8(RPtr,RCT,360) - - VdotPtr = mxGetPr(plhs(1)) - - CALL Fun( V, F, RCT, Vdot ) - - CALL mxCopyReal8ToPtr(Vdot, VdotPtr, 155) - - END SUBROUTINE mexFunction diff --git a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_mex_Jac_SP.f90 b/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_mex_Jac_SP.f90 deleted file mode 100644 index a1d5857bac544a07d46c37ec8db247fea1fbf478..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_T1/MOZART_T1_mex_Jac_SP.f90 +++ /dev/null @@ -1,44 +0,0 @@ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE mexFunction( nlhs, plhs, nrhs, prhs ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Matlab Gateway for the Sparse Jacobian Function Jac_SP -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE MOZART_T1_Model - - INTEGER nlhs, nrhs - INTEGER plhs(*), prhs(*) - INTEGER mxGetPr, mxCreateFull, mxGetM, mxgetN - INTEGER VPtr, FPtr, RPtr, JVSPtr - REAL(kind=dp) V(155), F(5), RCT(360) - REAL(kind=dp) JVS(1826) - -! Check for the right number of input arguments - IF ( nrhs .ne. 3 ) THEN - CALL mexErrMsgTxt('Jac_SP requires 3 input vectors: & - &V(155), F(5), RCT(360)') - END IF -! Check for the right number of output arguments - IF ( nlhs .ne. 1 ) THEN - CALL mexErrMsgTxt('Jac_SP requires 1 output vector: & - &JVS(1826)') - END IF - - plhs(1) = mxCreateDoubleMatrix(1826,1,0) - - VPtr = mxGetPr(prhs(1)) - CALL mxCopyPtrToReal8(VPtr,V,155) - - FPtr = mxGetPr(prhs(2)) - CALL mxCopyPtrToReal8(FPtr,F,5) - - RPtr = mxGetPr(prhs(3)) - CALL mxCopyPtrToReal8(RPtr,RCT,360) - - JVSPtr = mxGetPr(plhs(1)) - - CALL Jac_SP( V, F, RCT, JVS ) - - CALL mxCopyReal8ToPtr(JVS, JVSPtr, 1826) - - END SUBROUTINE mexFunction diff --git a/boxmox/compiled_mechs/MOZART_T1/Makefile_MOZART_T1 b/boxmox/compiled_mechs/MOZART_T1/Makefile_MOZART_T1 deleted file mode 100644 index 4bbe1cc7f7ce12b112c20da6e0b228ddb8faa3f2..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_T1/Makefile_MOZART_T1 +++ /dev/null @@ -1,215 +0,0 @@ -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: Set here the F90 compiler and options -# Pedefined compilers: INTEL, PGF, HPUX, LAHEY -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -#COMPILER = G95 -#COMPILER = LAHEY -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# gfortran is standard -#COMPILER = INTEL -# ---------------------------------------------------- -#COMPILER = PGF -#COMPILER = HPUX -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# gfortran is standard -COMPILER = GFORTRAN -# ---------------------------------------------------- - -FC_G95 = g95 -FOPT_G95 = -cpp -O -pg -fbounds-check -fimplicit-none -Wall -ftrace=full - -FC_LAHEY = lf95 -# More aggressive for production runs: -#FOPT_LAHEY = -Cpp --pca -O -# More checking for debugging: -FOPT_LAHEY = -Cpp --chk a,e,s,u --pca --ap -O0 -g --trap --trace --chkglobal - -FC_INTEL = ifort -# More aggressive for production runs: -#FOPT_INTEL = -cpp -O -fp-model precise -pc80 -prec_div -# More checking for debugging: -FOPT_INTEL = -cpp -O0 -fp-model strict -implicitnone -ftrapuv \ - -debug all -check all -warn all - -FC_PGF = pgf90 -# More aggressive for production runs: -FOPT_PGF = -Mpreprocess -O -fast -pc 80 -Kieee -# More checking for debugging: -#FOPT_PGF = -Mpreprocess -O0 -Mbounds -Mchkfpstk -Mchkptr -Mchkstk \ -# -Ktrap=fp -pc 80 -Kieee - -FC_HPUX = f90 -FOPT_HPUX = -O -u +Oall +check=on - -FC_GFORTRAN = gfortran -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# rate equation code creates pretty long lines -# optimization does not help much and breaks MCM -# FOPT_GFORTRAN = -cpp -O -# double precision: -#FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -freal-4-real-16 -freal-8-real-16 -# using GCC 4.7 and higher: -FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -freal-4-real-8 -# for older compilers -#FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -fdefault-real-8 -# ---------------------------------------------------- - -# define FULL_ALGEBRA for non-sparse integration -FC = $(FC_$(COMPILER)) -FOPT = $(FOPT_$(COMPILER)) # -DFULL_ALGEBRA - -LIBS = -#LIBS = -llapack -lblas - -# Command to create Matlab mex gateway routines -# Note: use $(FC) as the mex Fortran compiler -MEX = mex - -GENSRC = MOZART_T1_Precision.f90 \ - MOZART_T1_Parameters.f90 \ - MOZART_T1_Global.f90 - -GENOBJ = MOZART_T1_Precision.o \ - MOZART_T1_Parameters.o \ - MOZART_T1_Global.o - -FUNSRC = MOZART_T1_Function.f90 -FUNOBJ = MOZART_T1_Function.o - -JACSRC = MOZART_T1_JacobianSP.f90 MOZART_T1_Jacobian.f90 -JACOBJ = MOZART_T1_JacobianSP.o MOZART_T1_Jacobian.o - -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20160906 -# if HESSIAN is off, avoid compilation errors by not -# linking to the Hessian objects. -ifeq ($(wildcard MOZART_T1_HessianSP.f90),) - HESSRC = - HESOBJ = -else - HESSRC = MOZART_T1_HessianSP.f90 MOZART_T1_Hessian.f90 - HESOBJ = MOZART_T1_HessianSP.o MOZART_T1_Hessian.o -endif -# ---------------------------------------------------- - -STMSRC = MOZART_T1_StoichiomSP.f90 MOZART_T1_Stoichiom.f90 -STMOBJ = MOZART_T1_StoichiomSP.o MOZART_T1_Stoichiom.o - -UTLSRC = MOZART_T1_Rates.f90 MOZART_T1_Util.f90 MOZART_T1_Monitor.f90 -UTLOBJ = MOZART_T1_Rates.o MOZART_T1_Util.o MOZART_T1_Monitor.o - -LASRC = MOZART_T1_LinearAlgebra.f90 -LAOBJ = MOZART_T1_LinearAlgebra.o - -STOCHSRC = MOZART_T1_Stochastic.f90 -STOCHOBJ = MOZART_T1_Stochastic.o - -MAINSRC = MOZART_T1_Main.f90 MOZART_T1_Initialize.f90 MOZART_T1_Integrator.f90 MOZART_T1_Model.f90 -MAINOBJ = MOZART_T1_Main.o MOZART_T1_Initialize.o MOZART_T1_Integrator.o MOZART_T1_Model.o - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: modify the line below to include only the -# objects needed by your application -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -ALLOBJ = $(GENOBJ) $(FUNOBJ) $(JACOBJ) $(HESOBJ) $(STMOBJ) \ - $(UTLOBJ) $(LAOBJ) - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: modify the line below to include only the -# executables needed by your application -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -all: exe - -exe: $(ALLOBJ) $(MAINOBJ) - $(FC) $(FOPT) $(ALLOBJ) $(MAINOBJ) $(LIBS) -o MOZART_T1.exe - -pylib: $(ALLOBJ) lib_Initialize.o lib_Integrator.o lib_Model.o - f2py -c -m boxmox $(ALLOBJ) lib_Initialize.o lib_Integrator.o lib_Model.o lib_Main.f90 - -stochastic:$(ALLOBJ) $(STOCHOBJ) $(MAINOBJ) - $(FC) $(FOPT) $(ALLOBJ) $(STOCHOBJ) $(MAINOBJ) $(LIBS) \ - -o MOZART_T1_stochastic.exe - -mex: $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O MOZART_T1_mex_Fun.f90 $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O MOZART_T1_mex_Jac_SP.f90 $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O MOZART_T1_mex_Hessian.f90 $(ALLOBJ) - -clean: - rm -f MOZART_T1*.o MOZART_T1*.mod \ - MOZART_T1*.dat MOZART_T1.exe MOZART_T1*.mexglx \ - MOZART_T1.map - -distclean: - rm -f MOZART_T1*.o MOZART_T1*.mod \ - MOZART_T1*.dat MOZART_T1.exe MOZART_T1.map \ - MOZART_T1*.f90 MOZART_T1_*.mexglx - -MOZART_T1_Precision.o: MOZART_T1_Precision.f90 - $(FC) $(FOPT) -c $< - -MOZART_T1_Parameters.o: MOZART_T1_Parameters.f90 \ - MOZART_T1_Precision.o - $(FC) $(FOPT) -c $< - -MOZART_T1_Monitor.o: MOZART_T1_Monitor.f90 \ - MOZART_T1_Precision.o - $(FC) $(FOPT) -c $< - -MOZART_T1_Global.o: MOZART_T1_Global.f90 \ - MOZART_T1_Parameters.o MOZART_T1_Precision.o - $(FC) $(FOPT) -c $< - -MOZART_T1_Initialize.o: MOZART_T1_Initialize.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -MOZART_T1_Function.o: MOZART_T1_Function.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -MOZART_T1_Stochastic.o: MOZART_T1_Stochastic.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -MOZART_T1_JacobianSP.o: MOZART_T1_JacobianSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -MOZART_T1_Jacobian.o: MOZART_T1_Jacobian.f90 $(GENOBJ) MOZART_T1_JacobianSP.o - $(FC) $(FOPT) -c $< - -MOZART_T1_LinearAlgebra.o: MOZART_T1_LinearAlgebra.f90 $(GENOBJ) MOZART_T1_JacobianSP.o - $(FC) $(FOPT) -c $< - -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# need Util in Rates -#MOZART_T1_Rates.o: MOZART_T1_Rates.f90 $(GENOBJ) -MOZART_T1_Rates.o: MOZART_T1_Rates.f90 $(GENOBJ) MOZART_T1_Util.o -# ---------------------------------------------------- - $(FC) $(FOPT) -c $< - -MOZART_T1_HessianSP.o: MOZART_T1_HessianSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -MOZART_T1_Hessian.o: MOZART_T1_Hessian.f90 $(GENOBJ) MOZART_T1_HessianSP.o - $(FC) $(FOPT) -c $< - -MOZART_T1_StoichiomSP.o: MOZART_T1_StoichiomSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -MOZART_T1_Stoichiom.o: MOZART_T1_Stoichiom.f90 $(GENOBJ) MOZART_T1_StoichiomSP.o - $(FC) $(FOPT) -c $< - -MOZART_T1_Util.o: MOZART_T1_Util.f90 $(GENOBJ) MOZART_T1_Monitor.o - $(FC) $(FOPT) -c $< - -MOZART_T1_Main.o: MOZART_T1_Main.f90 $(ALLOBJ) MOZART_T1_Initialize.o MOZART_T1_Model.o MOZART_T1_Integrator.o - $(FC) $(FOPT) -c $< - -MOZART_T1_Model.o: MOZART_T1_Model.f90 $(ALLOBJ) MOZART_T1_Integrator.o - $(FC) $(FOPT) -c $< - -MOZART_T1_Integrator.o: MOZART_T1_Integrator.f90 $(ALLOBJ) - $(FC) $(FOPT) -c $< diff --git a/boxmox/compiled_mechs/MOZART_T1/compile.log b/boxmox/compiled_mechs/MOZART_T1/compile.log deleted file mode 100644 index 796a8877473eac0204320ea175bd146eb6903796..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_T1/compile.log +++ /dev/null @@ -1,22 +0,0 @@ -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_T1_Precision.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_T1_Parameters.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_T1_Global.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_T1_Function.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_T1_JacobianSP.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_T1_Jacobian.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_T1_StoichiomSP.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_T1_Stoichiom.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_T1_Monitor.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_T1_Util.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_T1_Rates.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_T1_LinearAlgebra.f90 -MOZART_T1_LinearAlgebra.f90:1813:46: - - 1813 | IF (incX .EQ. incY) IF (incX-1) 5,20,60 - | 1 -Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_T1_Initialize.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_T1_Integrator.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_T1_Model.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c MOZART_T1_Main.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 MOZART_T1_Precision.o MOZART_T1_Parameters.o MOZART_T1_Global.o MOZART_T1_Function.o MOZART_T1_JacobianSP.o MOZART_T1_Jacobian.o MOZART_T1_StoichiomSP.o MOZART_T1_Stoichiom.o MOZART_T1_Rates.o MOZART_T1_Util.o MOZART_T1_Monitor.o MOZART_T1_LinearAlgebra.o MOZART_T1_Main.o MOZART_T1_Initialize.o MOZART_T1_Integrator.o MOZART_T1_Model.o -o MOZART_T1.exe diff --git a/boxmox/compiled_mechs/MOZART_T1/kpp.log b/boxmox/compiled_mechs/MOZART_T1/kpp.log deleted file mode 100644 index 7bd3860fe69006159b5f56d995bc3740e9b56c30..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/MOZART_T1/kpp.log +++ /dev/null @@ -1,37 +0,0 @@ - -This is KPP-2.2.3. - -KPP is parsing the equation file. -KPP is computing Jacobian sparsity structure. -KPP is starting the code generation. -KPP is initializing the code generation. -KPP is generating the monitor data: - - MOZART_T1_Monitor -KPP is generating the global declarations: - - MOZART_T1_Main -KPP is generating the ODE function: - - MOZART_T1_Function -KPP is generating the ODE Jacobian: - - MOZART_T1_Jacobian - - MOZART_T1_JacobianSP -KPP is generating the linear algebra routines: - - MOZART_T1_LinearAlgebra -KPP is generating the utility data: - - MOZART_T1_Util -KPP is generating the utility functions: - - MOZART_T1_Util -KPP is generating the rate laws: - - MOZART_T1_Rates -KPP is generating the parameters: - - MOZART_T1_Parameters -KPP is generating the global data: - - MOZART_T1_Global -KPP is generating the stoichiometric description files: - - MOZART_T1_Stoichiom - - MOZART_T1_StoichiomSP -KPP is generating the driver from ../boxmox/boxmox.f90: - - MOZART_T1_Main -KPP is starting the code post-processing. - -KPP has succesfully created the model "MOZART_T1". - diff --git a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_function.mod b/boxmox/compiled_mechs/MOZART_T1/mozart_t1_function.mod deleted file mode 100644 index 911dd38c9d80fecca7dec8181f991b026bb53114..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_function.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_global.mod b/boxmox/compiled_mechs/MOZART_T1/mozart_t1_global.mod deleted file mode 100644 index 00ac3b7265db91cbc25b52cb1daad83d6bb79265..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_global.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_initialize.mod b/boxmox/compiled_mechs/MOZART_T1/mozart_t1_initialize.mod deleted file mode 100644 index 4571c8a9e6b8c2c61a83342544d65b012ad2ea70..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_initialize.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_integrator.mod b/boxmox/compiled_mechs/MOZART_T1/mozart_t1_integrator.mod deleted file mode 100644 index 98056af97720f279ed10979f5143923eca74016f..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_integrator.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_jacobian.mod b/boxmox/compiled_mechs/MOZART_T1/mozart_t1_jacobian.mod deleted file mode 100644 index fa8f707008a30a9021fef9cbe01a95cb391f548b..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_jacobian.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_jacobiansp.mod b/boxmox/compiled_mechs/MOZART_T1/mozart_t1_jacobiansp.mod deleted file mode 100644 index dde9d7dfc94ed48c16f9f2aa9bda3d10e707e30b..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_jacobiansp.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_linearalgebra.mod b/boxmox/compiled_mechs/MOZART_T1/mozart_t1_linearalgebra.mod deleted file mode 100644 index 5324fb9f84a55cfc6a0412fc74a2a205e416e1f8..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_linearalgebra.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_model.mod b/boxmox/compiled_mechs/MOZART_T1/mozart_t1_model.mod deleted file mode 100644 index a88b9f8b0f1d5fe83879bd8b1a69ff61ccd728e0..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_model.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_monitor.mod b/boxmox/compiled_mechs/MOZART_T1/mozart_t1_monitor.mod deleted file mode 100644 index 427eb83ef0afc3b6076d54d77d1f711ba30d27c8..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_monitor.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_parameters.mod b/boxmox/compiled_mechs/MOZART_T1/mozart_t1_parameters.mod deleted file mode 100644 index a03b3696db9b21189d2415a6571175b1666ed13e..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_parameters.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_precision.mod b/boxmox/compiled_mechs/MOZART_T1/mozart_t1_precision.mod deleted file mode 100644 index 1b132f74b1a553d8440757ab803f368421d54efa..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_precision.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_rates.mod b/boxmox/compiled_mechs/MOZART_T1/mozart_t1_rates.mod deleted file mode 100644 index 94bb136eedb4c39314f3d5b18d0d746b57c35b56..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_rates.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_stoichiom.mod b/boxmox/compiled_mechs/MOZART_T1/mozart_t1_stoichiom.mod deleted file mode 100644 index d9ce4acbdd7c918731bc0c761d01c3fc35a44e9c..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_stoichiom.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_stoichiomsp.mod b/boxmox/compiled_mechs/MOZART_T1/mozart_t1_stoichiomsp.mod deleted file mode 100644 index 6e3a0d9c4a9fb01e969a6adff20d4184632a8bfd..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_stoichiomsp.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_util.mod b/boxmox/compiled_mechs/MOZART_T1/mozart_t1_util.mod deleted file mode 100644 index 20fe11f33b50faf151f5dad52bb060b0828ae264..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/MOZART_T1/mozart_t1_util.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/Makefile_NO_NO2 b/boxmox/compiled_mechs/NO_NO2/Makefile_NO_NO2 deleted file mode 100644 index a05da012b0c209f33112aa8ffd1acafaaf4c8791..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/NO_NO2/Makefile_NO_NO2 +++ /dev/null @@ -1,215 +0,0 @@ -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: Set here the F90 compiler and options -# Pedefined compilers: INTEL, PGF, HPUX, LAHEY -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -#COMPILER = G95 -#COMPILER = LAHEY -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# gfortran is standard -#COMPILER = INTEL -# ---------------------------------------------------- -#COMPILER = PGF -#COMPILER = HPUX -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# gfortran is standard -COMPILER = GFORTRAN -# ---------------------------------------------------- - -FC_G95 = g95 -FOPT_G95 = -cpp -O -pg -fbounds-check -fimplicit-none -Wall -ftrace=full - -FC_LAHEY = lf95 -# More aggressive for production runs: -#FOPT_LAHEY = -Cpp --pca -O -# More checking for debugging: -FOPT_LAHEY = -Cpp --chk a,e,s,u --pca --ap -O0 -g --trap --trace --chkglobal - -FC_INTEL = ifort -# More aggressive for production runs: -#FOPT_INTEL = -cpp -O -fp-model precise -pc80 -prec_div -# More checking for debugging: -FOPT_INTEL = -cpp -O0 -fp-model strict -implicitnone -ftrapuv \ - -debug all -check all -warn all - -FC_PGF = pgf90 -# More aggressive for production runs: -FOPT_PGF = -Mpreprocess -O -fast -pc 80 -Kieee -# More checking for debugging: -#FOPT_PGF = -Mpreprocess -O0 -Mbounds -Mchkfpstk -Mchkptr -Mchkstk \ -# -Ktrap=fp -pc 80 -Kieee - -FC_HPUX = f90 -FOPT_HPUX = -O -u +Oall +check=on - -FC_GFORTRAN = gfortran -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# rate equation code creates pretty long lines -# optimization does not help much and breaks MCM -# FOPT_GFORTRAN = -cpp -O -# double precision: -#FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -freal-4-real-16 -freal-8-real-16 -# using GCC 4.7 and higher: -FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -freal-4-real-8 -# for older compilers -#FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -fdefault-real-8 -# ---------------------------------------------------- - -# define FULL_ALGEBRA for non-sparse integration -FC = $(FC_$(COMPILER)) -FOPT = $(FOPT_$(COMPILER)) # -DFULL_ALGEBRA - -LIBS = -#LIBS = -llapack -lblas - -# Command to create Matlab mex gateway routines -# Note: use $(FC) as the mex Fortran compiler -MEX = mex - -GENSRC = NO_NO2_Precision.f90 \ - NO_NO2_Parameters.f90 \ - NO_NO2_Global.f90 - -GENOBJ = NO_NO2_Precision.o \ - NO_NO2_Parameters.o \ - NO_NO2_Global.o - -FUNSRC = NO_NO2_Function.f90 -FUNOBJ = NO_NO2_Function.o - -JACSRC = NO_NO2_JacobianSP.f90 NO_NO2_Jacobian.f90 -JACOBJ = NO_NO2_JacobianSP.o NO_NO2_Jacobian.o - -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20160906 -# if HESSIAN is off, avoid compilation errors by not -# linking to the Hessian objects. -ifeq ($(wildcard NO_NO2_HessianSP.f90),) - HESSRC = - HESOBJ = -else - HESSRC = NO_NO2_HessianSP.f90 NO_NO2_Hessian.f90 - HESOBJ = NO_NO2_HessianSP.o NO_NO2_Hessian.o -endif -# ---------------------------------------------------- - -STMSRC = NO_NO2_StoichiomSP.f90 NO_NO2_Stoichiom.f90 -STMOBJ = NO_NO2_StoichiomSP.o NO_NO2_Stoichiom.o - -UTLSRC = NO_NO2_Rates.f90 NO_NO2_Util.f90 NO_NO2_Monitor.f90 -UTLOBJ = NO_NO2_Rates.o NO_NO2_Util.o NO_NO2_Monitor.o - -LASRC = NO_NO2_LinearAlgebra.f90 -LAOBJ = NO_NO2_LinearAlgebra.o - -STOCHSRC = NO_NO2_Stochastic.f90 -STOCHOBJ = NO_NO2_Stochastic.o - -MAINSRC = NO_NO2_Main.f90 NO_NO2_Initialize.f90 NO_NO2_Integrator.f90 NO_NO2_Model.f90 -MAINOBJ = NO_NO2_Main.o NO_NO2_Initialize.o NO_NO2_Integrator.o NO_NO2_Model.o - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: modify the line below to include only the -# objects needed by your application -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -ALLOBJ = $(GENOBJ) $(FUNOBJ) $(JACOBJ) $(HESOBJ) $(STMOBJ) \ - $(UTLOBJ) $(LAOBJ) - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: modify the line below to include only the -# executables needed by your application -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -all: exe - -exe: $(ALLOBJ) $(MAINOBJ) - $(FC) $(FOPT) $(ALLOBJ) $(MAINOBJ) $(LIBS) -o NO_NO2.exe - -pylib: $(ALLOBJ) lib_Initialize.o lib_Integrator.o lib_Model.o - f2py -c -m boxmox $(ALLOBJ) lib_Initialize.o lib_Integrator.o lib_Model.o lib_Main.f90 - -stochastic:$(ALLOBJ) $(STOCHOBJ) $(MAINOBJ) - $(FC) $(FOPT) $(ALLOBJ) $(STOCHOBJ) $(MAINOBJ) $(LIBS) \ - -o NO_NO2_stochastic.exe - -mex: $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O NO_NO2_mex_Fun.f90 $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O NO_NO2_mex_Jac_SP.f90 $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O NO_NO2_mex_Hessian.f90 $(ALLOBJ) - -clean: - rm -f NO_NO2*.o NO_NO2*.mod \ - NO_NO2*.dat NO_NO2.exe NO_NO2*.mexglx \ - NO_NO2.map - -distclean: - rm -f NO_NO2*.o NO_NO2*.mod \ - NO_NO2*.dat NO_NO2.exe NO_NO2.map \ - NO_NO2*.f90 NO_NO2_*.mexglx - -NO_NO2_Precision.o: NO_NO2_Precision.f90 - $(FC) $(FOPT) -c $< - -NO_NO2_Parameters.o: NO_NO2_Parameters.f90 \ - NO_NO2_Precision.o - $(FC) $(FOPT) -c $< - -NO_NO2_Monitor.o: NO_NO2_Monitor.f90 \ - NO_NO2_Precision.o - $(FC) $(FOPT) -c $< - -NO_NO2_Global.o: NO_NO2_Global.f90 \ - NO_NO2_Parameters.o NO_NO2_Precision.o - $(FC) $(FOPT) -c $< - -NO_NO2_Initialize.o: NO_NO2_Initialize.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -NO_NO2_Function.o: NO_NO2_Function.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -NO_NO2_Stochastic.o: NO_NO2_Stochastic.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -NO_NO2_JacobianSP.o: NO_NO2_JacobianSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -NO_NO2_Jacobian.o: NO_NO2_Jacobian.f90 $(GENOBJ) NO_NO2_JacobianSP.o - $(FC) $(FOPT) -c $< - -NO_NO2_LinearAlgebra.o: NO_NO2_LinearAlgebra.f90 $(GENOBJ) NO_NO2_JacobianSP.o - $(FC) $(FOPT) -c $< - -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# need Util in Rates -#NO_NO2_Rates.o: NO_NO2_Rates.f90 $(GENOBJ) -NO_NO2_Rates.o: NO_NO2_Rates.f90 $(GENOBJ) NO_NO2_Util.o -# ---------------------------------------------------- - $(FC) $(FOPT) -c $< - -NO_NO2_HessianSP.o: NO_NO2_HessianSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -NO_NO2_Hessian.o: NO_NO2_Hessian.f90 $(GENOBJ) NO_NO2_HessianSP.o - $(FC) $(FOPT) -c $< - -NO_NO2_StoichiomSP.o: NO_NO2_StoichiomSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -NO_NO2_Stoichiom.o: NO_NO2_Stoichiom.f90 $(GENOBJ) NO_NO2_StoichiomSP.o - $(FC) $(FOPT) -c $< - -NO_NO2_Util.o: NO_NO2_Util.f90 $(GENOBJ) NO_NO2_Monitor.o - $(FC) $(FOPT) -c $< - -NO_NO2_Main.o: NO_NO2_Main.f90 $(ALLOBJ) NO_NO2_Initialize.o NO_NO2_Model.o NO_NO2_Integrator.o - $(FC) $(FOPT) -c $< - -NO_NO2_Model.o: NO_NO2_Model.f90 $(ALLOBJ) NO_NO2_Integrator.o - $(FC) $(FOPT) -c $< - -NO_NO2_Integrator.o: NO_NO2_Integrator.f90 $(ALLOBJ) - $(FC) $(FOPT) -c $< diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2.exe b/boxmox/compiled_mechs/NO_NO2/NO_NO2.exe deleted file mode 100755 index 4f2577a995d700f8a1b4830d9f59b17323d85794..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/NO_NO2.exe and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2.kpp b/boxmox/compiled_mechs/NO_NO2/NO_NO2.kpp deleted file mode 100644 index 28bf2605a392758f04e95e10058dc4d1ee882a83..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/NO_NO2/NO_NO2.kpp +++ /dev/null @@ -1,7 +0,0 @@ -#MODEL NO_NO2 -#LANGUAGE Fortran90 -#DOUBLE ON -#INTEGRATOR rosenbrock -#DRIVER ../boxmox/boxmox -#JACOBIAN SPARSE_LU_ROW -#HESSIAN OFF diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2.map b/boxmox/compiled_mechs/NO_NO2/NO_NO2.map deleted file mode 100644 index 4d2c72fd91d4b3996ca433a71b8c94d7f5d931f2..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/NO_NO2/NO_NO2.map +++ /dev/null @@ -1,72 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Map File with Human-Readable Information -! -! Generated by KPP-2.2.3 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 : NO_NO2.map -! Time : Thu Oct 8 08:22:19 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_NO_NO2_9716_BOXMOX -! Equation file : NO_NO2.kpp -! Output root filename : NO_NO2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -### Options ------------------------------------------- - -FUNCTION - AGGREGATE -JACOBIAN - SPARSE W/ ACCOUNT FOR LU DECOMPOSITION FILL-IN -DOUBLE - ON -REORDER - ON - -### Parameters ---------------------------------------- - -! NSPEC - Number of chemical species - INTEGER, PARAMETER :: NSPEC = 4 -! NVAR - Number of Variable species - INTEGER, PARAMETER :: NVAR = 2 -! NVARACT - Number of Active species - INTEGER, PARAMETER :: NVARACT = 2 -! NFIX - Number of Fixed species - INTEGER, PARAMETER :: NFIX = 2 -! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 2 -! NVARST - Starting of variables in conc. vect. - INTEGER, PARAMETER :: NVARST = 1 -! NFIXST - Starting of fixed in conc. vect. - INTEGER, PARAMETER :: NFIXST = 3 - -### Species ------------------------------------------- - -Variable species - 1 = NO (r) 2 = NO2 (r) - -Fixed species - 1 = O3 (r) 2 = O2 (n) - -### Subroutines --------------------------------------- - -SUBROUTINE Fun ( V, F, RCT, Vdot ) -SUBROUTINE Jac_SP ( V, F, RCT, JVS ) -SUBROUTINE Jac_SP_Vec ( JVS, UV, JUV ) -SUBROUTINE JacTR_SP_Vec ( JVS, UV, JTUV ) -SUBROUTINE KppSolve ( JVS, X ) -SUBROUTINE KppSolveTR ( JVS, X, XX ) -SUBROUTINE Initialize ( ) -SUBROUTINE Shuffle_user2kpp ( V_USER, V ) -SUBROUTINE Shuffle_kpp2user ( V, V_USER ) -SUBROUTINE Update_RCONST ( ) -SUBROUTINE Update_PHOTO ( ) -SUBROUTINE GetMass ( CL, Mass ) -SUBROUTINE ReactantProd ( V, F, ARP ) -SUBROUTINE JacReactantProd ( V, F, JVRP ) diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Function.f90 b/boxmox/compiled_mechs/NO_NO2/NO_NO2_Function.f90 deleted file mode 100644 index b2618df5a1ab1d8abb7e731cb2227629149c378a..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Function.f90 +++ /dev/null @@ -1,73 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The ODE Function of Chemical Model File -! -! Generated by KPP-2.2.3 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 : NO_NO2_Function.f90 -! Time : Thu Oct 8 08:22:19 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_NO_NO2_9716_BOXMOX -! Equation file : NO_NO2.kpp -! Output root filename : NO_NO2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE NO_NO2_Function - - USE NO_NO2_Parameters - IMPLICIT NONE - -! A - Rate for each equation - REAL(kind=dp) :: A(NREACT) - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Fun - time derivatives of variables - Agregate form -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! RCT - Rate constants (local) -! Vdot - Time derivative of variable species concentrations -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Fun ( V, F, RCT, Vdot ) - -! 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) -! Vdot - Time derivative of variable species concentrations - REAL(kind=dp) :: Vdot(NVAR) - - -! Computation of equation rates - -! Aggregate function - Vdot(1) = 0 - Vdot(2) = 0 - -END SUBROUTINE Fun - -! End of Fun function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE NO_NO2_Function - diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Function.o b/boxmox/compiled_mechs/NO_NO2/NO_NO2_Function.o deleted file mode 100644 index 6034af0fbd184bbd3c0c90190b59ab012a68345e..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Function.o and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Global.f90 b/boxmox/compiled_mechs/NO_NO2/NO_NO2_Global.f90 deleted file mode 100644 index c4aea26fa7f14e06171aecc01175286802542cf4..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Global.f90 +++ /dev/null @@ -1,117 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Global Data Module File -! -! Generated by KPP-2.2.3 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 : NO_NO2_Global.f90 -! Time : Thu Oct 8 08:22:19 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_NO_NO2_9716_BOXMOX -! Equation file : NO_NO2.kpp -! Output root filename : NO_NO2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE NO_NO2_Global - - USE NO_NO2_Parameters, ONLY: dp, NSPEC, NVAR, NFIX, NREACT, LU_NONZERO - PUBLIC - SAVE - - -! Declaration of global variables - -! C - Concentration of all species - REAL(kind=dp) :: C(NSPEC) -! VAR - Concentrations of variable species (global) - REAL(kind=dp) :: VAR(NVAR) -! FIX - Concentrations of fixed species (global) - REAL(kind=dp) :: FIX(NFIX) -! VAR, FIX are chunks of array C - EQUIVALENCE( C(1),VAR(1) ) - EQUIVALENCE( C(3),FIX(1) ) -! RCONST - Rate constants (global) - REAL(kind=dp) :: RCONST(NREACT) -! TIME - Current integration time - REAL(kind=dp) :: TIME -! SUN - Sunlight intensity between [0,1] - REAL(kind=dp) :: SUN -! TEMP - Temperature - REAL(kind=dp) :: TEMP -! RTOLS - (scalar) Relative tolerance - REAL(kind=dp) :: RTOLS -! TSTART - Integration start time - REAL(kind=dp) :: TSTART -! TEND - Integration end time - REAL(kind=dp) :: TEND -! DT - Integration step - REAL(kind=dp) :: DT -! ATOL - Absolute tolerance - REAL(kind=dp) :: ATOL(NVAR) -! RTOL - Relative tolerance - REAL(kind=dp) :: RTOL(NVAR) -! STEPMIN - Lower bound for integration step - REAL(kind=dp) :: STEPMIN -! STEPMAX - Upper bound for integration step - REAL(kind=dp) :: STEPMAX -! CFACTOR - Conversion factor for concentration units - REAL(kind=dp) :: CFACTOR - -! INLINED global variable declarations - - - ! BOXMOX global variables - - ! Parameters - INTEGER, PARAMETER :: max_species_boxmox = 10000 ! maximum number of species - ! read in - INTEGER, PARAMETER :: max_jhash_boxmox = 10000 ! maximum hash value of - ! photolysis rate labels - - ! Configuration - LOGICAL :: lverbose ! verbose output? - LOGICAL :: llibrary ! library version? - - - ! State definition - REAL(KIND=dp) :: pres ! pressure [Pa] - ! temperature variable temp [K] defined in KPP already - REAL(KIND=dp) :: dxdydz(3), dxdydz_old(3) ! box dimensions (x,y,z) - ! [m] - - ! Turbulent mixing - INTEGER :: iturb ! type of mixing - INTEGER, PARAMETER :: TURB_OPT_NONE = 0, & ! no turbulent mixing - TURB_OPT_SPECIFIED = 1, & ! using specified Kturb - TURB_OPT_VOLUME = 2, & ! using volume changes - TURB_OPT_TRACER = 3 ! using tracer conc. - REAL(KIND=dp) :: Kturb ! eddy diffusivity [m2 s-1] - - ! Photolysis rates - REAL(KIND=dp) :: jvalues(max_jhash_boxmox) ! Photolysis rate [s-1] - - ! Aerosol - REAL(KIND=dp) :: AER_R, & ! particle radius [m] - AER_SAD ! surface area density - ! [m^2 m^-3] - - ! Steady-state modeling - LOGICAL :: lfix_nox ! fix total NOx? - REAL(kind=dp) :: initial_total_nox ! total NOx to fix - - -! INLINED global variable declarations - - -END MODULE NO_NO2_Global - diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Global.o b/boxmox/compiled_mechs/NO_NO2/NO_NO2_Global.o deleted file mode 100644 index 7787bf4b23a7e785aad57324c31856f2ce7f1f59..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Global.o and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Initialize.f90 b/boxmox/compiled_mechs/NO_NO2/NO_NO2_Initialize.f90 deleted file mode 100644 index 26b6a8250a91ccca95f4210de9287e35f7130cba..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Initialize.f90 +++ /dev/null @@ -1,110 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Initialization File -! -! Generated by KPP-2.2.3 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 : NO_NO2_Initialize.f90 -! Time : Thu Oct 8 08:22:19 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_NO_NO2_9716_BOXMOX -! Equation file : NO_NO2.kpp -! Output root filename : NO_NO2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE NO_NO2_Initialize - - USE NO_NO2_Parameters, ONLY: dp, NVAR, NFIX - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Initialize - function to initialize concentrations -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Initialize ( ) - - - USE NO_NO2_Global - - USE NO_NO2_Util - - INTEGER :: i - REAL(kind=dp) :: x - - CFACTOR = 1.000000e+00_dp - - x = (1.0E-9)*CFACTOR - DO i = 1, NVAR - VAR(i) = x - END DO - - x = (1.0E-9)*CFACTOR - DO i = 1, NFIX - FIX(i) = x - END DO - -! constant rate coefficients -! END constant rate coefficients - -! INLINED initializations - - - IF (.NOT. llibrary) THEN - - ! Write version number to VERSION file - CALL writeVersion() - - ! Initialization (time step, run length, etc.) happening - ! in namelist BOXMOX.nml. Read it! - CALL readConfig() - - ENDIF - - ! Check configuration values - CALL checkConfig() - - - - ! BOXMOX defaults for global variables - - ! Environment.csv - temp = 293.15 ! K - pres = 101325.0 ! Pa - dxdydz(:) = 1.0 ! m - - ! Aerosol.csv - AER_SAD = 0.0 ! m^2 m^-3 - AER_R = 1.0e-6 ! m - - ! Turbulent mixing - Kturb = 0.0 ! m2 s-1 - - -! End INLINED initializations - - -END SUBROUTINE Initialize - -! End of Initialize function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE NO_NO2_Initialize - diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Initialize.o b/boxmox/compiled_mechs/NO_NO2/NO_NO2_Initialize.o deleted file mode 100644 index 9fa388573efff47c09428d3ef1e3f3d38fa31dc4..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Initialize.o and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Integrator.f90 b/boxmox/compiled_mechs/NO_NO2/NO_NO2_Integrator.f90 deleted file mode 100644 index 58a651ecd7d1b770ef41517f8de3377512278892..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Integrator.f90 +++ /dev/null @@ -1,1365 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Numerical Integrator (Time-Stepping) File -! -! Generated by KPP-2.2.3 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 : NO_NO2_Integrator.f90 -! Time : Thu Oct 8 08:22:19 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_NO_NO2_9716_BOXMOX -! Equation file : NO_NO2.kpp -! Output root filename : NO_NO2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! INTEGRATE - Integrator routine -! Arguments : -! TIN - Start Time for Integration -! TOUT - End Time for Integration -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! -! Rosenbrock - Implementation of several Rosenbrock methods: ! -! * Ros2 ! -! * Ros3 ! -! * Ros4 ! -! * Rodas3 ! -! * Rodas4 ! -! By default the code employs the KPP sparse linear algebra routines ! -! Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK) ! -! ! -! (C) Adrian Sandu, August 2004 ! -! Virginia Polytechnic Institute and State University ! -! Contact: sandu@cs.vt.edu ! -! Revised by Philipp Miehe and Adrian Sandu, May 2006 ! ! -! This implementation is part of KPP - the Kinetic PreProcessor ! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! - -MODULE NO_NO2_Integrator - - USE NO_NO2_Parameters, ONLY: NVAR, NFIX, NSPEC, LU_NONZERO - USE NO_NO2_Global - IMPLICIT NONE - PUBLIC - SAVE - -!~~~> Statistics on the work performed by the Rosenbrock method - INTEGER, PARAMETER :: Nfun=1, Njac=2, Nstp=3, Nacc=4, & - Nrej=5, Ndec=6, Nsol=7, Nsng=8, & - Ntexit=1, Nhexit=2, Nhnew = 3 - -CONTAINS - -SUBROUTINE INTEGRATE( TIN, TOUT, & - ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U, IERR_U ) - - IMPLICIT NONE - - REAL(kind=dp), INTENT(IN) :: TIN ! Start Time - REAL(kind=dp), INTENT(IN) :: TOUT ! End Time - ! Optional input parameters and statistics - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - REAL(kind=dp), INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - REAL(kind=dp), INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: IERR_U - - REAL(kind=dp) :: RCNTRL(20), RSTATUS(20) - INTEGER :: ICNTRL(20), ISTATUS(20), IERR - - INTEGER, SAVE :: Ntotal = 0 - - ICNTRL(:) = 0 - RCNTRL(:) = 0.0_dp - ISTATUS(:) = 0 - RSTATUS(:) = 0.0_dp - - !~~~> fine-tune the integrator: - ICNTRL(1) = 0 ! 0 - non-autonomous, 1 - autonomous - ICNTRL(2) = 0 ! 0 - vector tolerances, 1 - scalars - - ! If optional parameters are given, and if they are >0, - ! then they overwrite default settings. - IF (PRESENT(ICNTRL_U)) THEN - WHERE(ICNTRL_U(:) > 0) ICNTRL(:) = ICNTRL_U(:) - END IF - IF (PRESENT(RCNTRL_U)) THEN - WHERE(RCNTRL_U(:) > 0) RCNTRL(:) = RCNTRL_U(:) - END IF - - - CALL Rosenbrock(NVAR,VAR,TIN,TOUT, & - ATOL,RTOL, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) - - !~~~> Debug option: show no of steps - ! Ntotal = Ntotal + ISTATUS(Nstp) - ! PRINT*,'NSTEPS=',ISTATUS(Nstp),' (',Ntotal,')',' O3=', VAR(ind_O3) - - STEPMIN = RSTATUS(Nhexit) - ! if optional parameters are given for output they - ! are updated with the return information - IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(:) - IF (PRESENT(RSTATUS_U)) RSTATUS_U(:) = RSTATUS(:) - IF (PRESENT(IERR_U)) IERR_U = IERR - -END SUBROUTINE INTEGRATE - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE Rosenbrock(N,Y,Tstart,Tend, & - AbsTol,RelTol, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Solves the system y'=F(t,y) using a Rosenbrock method defined by: -! -! G = 1/(H*gamma(1)) - Jac(t0,Y0) -! T_i = t0 + Alpha(i)*H -! Y_i = Y0 + \sum_{j=1}^{i-1} A(i,j)*K_j -! G * K_i = Fun( T_i, Y_i ) + \sum_{j=1}^S C(i,j)/H * K_j + -! gamma(i)*dF/dT(t0, Y0) -! Y1 = Y0 + \sum_{j=1}^S M(j)*K_j -! -! For details on Rosenbrock methods and their implementation consult: -! E. Hairer and G. Wanner -! "Solving ODEs II. Stiff and differential-algebraic problems". -! Springer series in computational mathematics, Springer-Verlag, 1996. -! The codes contained in the book inspired this implementation. -! -! (C) Adrian Sandu, August 2004 -! Virginia Polytechnic Institute and State University -! Contact: sandu@cs.vt.edu -! Revised by Philipp Miehe and Adrian Sandu, May 2006 -! This implementation is part of KPP - the Kinetic PreProcessor -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT ARGUMENTS: -! -!- Y(N) = vector of initial conditions (at T=Tstart) -!- [Tstart,Tend] = time range of integration -! (if Tstart>Tend the integration is performed backwards in time) -!- RelTol, AbsTol = user precribed accuracy -!- SUBROUTINE Fun( T, Y, Ydot ) = ODE function, -! returns Ydot = Y' = F(T,Y) -!- SUBROUTINE Jac( T, Y, Jcb ) = Jacobian of the ODE function, -! returns Jcb = dFun/dY -!- ICNTRL(1:20) = integer inputs parameters -!- RCNTRL(1:20) = real inputs parameters -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT ARGUMENTS: -! -!- Y(N) -> vector of final states (at T->Tend) -!- ISTATUS(1:20) -> integer output parameters -!- RSTATUS(1:20) -> real output parameters -!- IERR -> job status upon return -! success (positive value) or -! failure (negative value) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT PARAMETERS: -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -! ICNTRL(1) = 1: F = F(y) Independent of T (AUTONOMOUS) -! = 0: F = F(t,y) Depends on T (NON-AUTONOMOUS) -! -! ICNTRL(2) = 0: AbsTol, RelTol are N-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ICNTRL(3) -> selection of a particular Rosenbrock method -! = 0 : Rodas3 (default) -! = 1 : Ros2 -! = 2 : Ros3 -! = 3 : Ros4 -! = 4 : Rodas3 -! = 5 : Rodas4 -! -! ICNTRL(4) -> maximum number of integration steps -! For ICNTRL(4)=0) the default value of 100000 is used -! -! RCNTRL(1) -> Hmin, lower bound for the integration step size -! It is strongly recommended to keep Hmin = ZERO -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! RCNTRL(3) -> Hstart, starting value for the integration step size -! -! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! RCNTRL(5) -> FacMax, upper bound on step increase factor (default=6) -! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! -! OUTPUT ARGUMENTS: -! ----------------- -! -! T -> T value for which the solution has been computed -! (after successful return T=Tend). -! -! Y(N) -> Numerical solution at T -! -! IDID -> Reports on successfulness upon return: -! = 1 for success -! < 0 for error (value equals error code) -! -! ISTATUS(1) -> No. of function calls -! ISTATUS(2) -> No. of jacobian calls -! ISTATUS(3) -> No. of steps -! ISTATUS(4) -> No. of accepted steps -! ISTATUS(5) -> No. of rejected steps (except at very beginning) -! ISTATUS(6) -> No. of LU decompositions -! ISTATUS(7) -> No. of forward/backward substitutions -! ISTATUS(8) -> No. of singular matrix decompositions -! -! RSTATUS(1) -> Texit, the time corresponding to the -! computed Y upon return -! RSTATUS(2) -> Hexit, last accepted step before exit -! RSTATUS(3) -> Hnew, last predicted step (not yet taken) -! For multiple restarts, use Hnew as Hstart -! in the subsequent run -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE NO_NO2_Parameters - USE NO_NO2_LinearAlgebra - IMPLICIT NONE - -!~~~> Arguments - INTEGER, INTENT(IN) :: N - REAL(kind=dp), INTENT(INOUT) :: Y(N) - REAL(kind=dp), INTENT(IN) :: Tstart,Tend - REAL(kind=dp), INTENT(IN) :: AbsTol(N),RelTol(N) - INTEGER, INTENT(IN) :: ICNTRL(20) - REAL(kind=dp), INTENT(IN) :: RCNTRL(20) - INTEGER, INTENT(INOUT) :: ISTATUS(20) - REAL(kind=dp), INTENT(INOUT) :: RSTATUS(20) - INTEGER, INTENT(OUT) :: IERR -!~~~> Parameters of the Rosenbrock method, up to 6 stages - INTEGER :: ros_S, rosMethod - INTEGER, PARAMETER :: RS2=1, RS3=2, RS4=3, RD3=4, RD4=5, RG3=6 - REAL(kind=dp) :: ros_A(15), ros_C(15), ros_M(6), ros_E(6), & - ros_Alpha(6), ros_Gamma(6), ros_ELO - LOGICAL :: ros_NewF(6) - CHARACTER(LEN=12) :: ros_Name -!~~~> Local variables - REAL(kind=dp) :: Roundoff, FacMin, FacMax, FacRej, FacSafe - REAL(kind=dp) :: Hmin, Hmax, Hstart - REAL(kind=dp) :: Texit - INTEGER :: i, UplimTol, Max_no_steps - LOGICAL :: Autonomous, VectorTol -!~~~> Parameters - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp - REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp - -!~~~> Initialize statistics - ISTATUS(1:8) = 0 - RSTATUS(1:3) = ZERO - -!~~~> Autonomous or time dependent ODE. Default is time dependent. - Autonomous = .NOT.(ICNTRL(1) == 0) - -!~~~> For Scalar tolerances (ICNTRL(2).NE.0) the code uses AbsTol(1) and RelTol(1) -! For Vector tolerances (ICNTRL(2) == 0) the code uses AbsTol(1:N) and RelTol(1:N) - IF (ICNTRL(2) == 0) THEN - VectorTol = .TRUE. - UplimTol = N - ELSE - VectorTol = .FALSE. - UplimTol = 1 - END IF - -!~~~> Initialize the particular Rosenbrock method selected - SELECT CASE (ICNTRL(3)) - CASE (1) - CALL Ros2 - CASE (2) - CALL Ros3 - CASE (3) - CALL Ros4 - CASE (0,4) - CALL Rodas3 - CASE (5) - CALL Rodas4 - CASE (6) - CALL Rang3 - CASE DEFAULT - PRINT * , 'Unknown Rosenbrock method: ICNTRL(3)=',ICNTRL(3) - CALL ros_ErrorMsg(-2,Tstart,ZERO,IERR) - RETURN - END SELECT - -!~~~> The maximum number of steps admitted - IF (ICNTRL(4) == 0) THEN - Max_no_steps = 200000 - ELSEIF (ICNTRL(4) > 0) THEN - Max_no_steps=ICNTRL(4) - ELSE - PRINT * ,'User-selected max no. of steps: ICNTRL(4)=',ICNTRL(4) - CALL ros_ErrorMsg(-1,Tstart,ZERO,IERR) - RETURN - END IF - -!~~~> Unit roundoff (1+Roundoff>1) - Roundoff = WLAMCH('E') - -!~~~> Lower bound on the step size: (positive value) - IF (RCNTRL(1) == ZERO) THEN - Hmin = ZERO - ELSEIF (RCNTRL(1) > ZERO) THEN - Hmin = RCNTRL(1) - ELSE - PRINT * , 'User-selected Hmin: RCNTRL(1)=', RCNTRL(1) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Upper bound on the step size: (positive value) - IF (RCNTRL(2) == ZERO) THEN - Hmax = ABS(Tend-Tstart) - ELSEIF (RCNTRL(2) > ZERO) THEN - Hmax = MIN(ABS(RCNTRL(2)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hmax: RCNTRL(2)=', RCNTRL(2) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Starting step size: (positive value) - IF (RCNTRL(3) == ZERO) THEN - Hstart = MAX(Hmin,DeltaMin) - ELSEIF (RCNTRL(3) > ZERO) THEN - Hstart = MIN(ABS(RCNTRL(3)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hstart: RCNTRL(3)=', RCNTRL(3) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Step size can be changed s.t. FacMin < Hnew/Hold < FacMax - IF (RCNTRL(4) == ZERO) THEN - FacMin = 0.2_dp - ELSEIF (RCNTRL(4) > ZERO) THEN - FacMin = RCNTRL(4) - ELSE - PRINT * , 'User-selected FacMin: RCNTRL(4)=', RCNTRL(4) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF - IF (RCNTRL(5) == ZERO) THEN - FacMax = 6.0_dp - ELSEIF (RCNTRL(5) > ZERO) THEN - FacMax = RCNTRL(5) - ELSE - PRINT * , 'User-selected FacMax: RCNTRL(5)=', RCNTRL(5) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacRej: Factor to decrease step after 2 succesive rejections - IF (RCNTRL(6) == ZERO) THEN - FacRej = 0.1_dp - ELSEIF (RCNTRL(6) > ZERO) THEN - FacRej = RCNTRL(6) - ELSE - PRINT * , 'User-selected FacRej: RCNTRL(6)=', RCNTRL(6) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacSafe: Safety Factor in the computation of new step size - IF (RCNTRL(7) == ZERO) THEN - FacSafe = 0.9_dp - ELSEIF (RCNTRL(7) > ZERO) THEN - FacSafe = RCNTRL(7) - ELSE - PRINT * , 'User-selected FacSafe: RCNTRL(7)=', RCNTRL(7) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Check if tolerances are reasonable - DO i=1,UplimTol - IF ( (AbsTol(i) <= ZERO) .OR. (RelTol(i) <= 10.0_dp*Roundoff) & - .OR. (RelTol(i) >= 1.0_dp) ) THEN - PRINT * , ' AbsTol(',i,') = ',AbsTol(i) - PRINT * , ' RelTol(',i,') = ',RelTol(i) - CALL ros_ErrorMsg(-5,Tstart,ZERO,IERR) - RETURN - END IF - END DO - - -!~~~> CALL Rosenbrock method - CALL ros_Integrator(Y, Tstart, Tend, Texit, & - AbsTol, RelTol, & -! Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -! Error indicator - IERR) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -CONTAINS ! SUBROUTINES internal to Rosenbrock -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_ErrorMsg(Code,T,H,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - REAL(kind=dp), INTENT(IN) :: T, H - INTEGER, INTENT(IN) :: Code - INTEGER, INTENT(OUT) :: IERR - - IERR = Code - PRINT * , & - 'Forced exit from Rosenbrock due to the following error:' - - SELECT CASE (Code) - CASE (-1) - PRINT * , '--> Improper value for maximal no of steps' - CASE (-2) - PRINT * , '--> Selected Rosenbrock method not implemented' - CASE (-3) - PRINT * , '--> Hmin/Hmax/Hstart must be positive' - CASE (-4) - PRINT * , '--> FacMin/FacMax/FacRej must be positive' - CASE (-5) - PRINT * , '--> Improper tolerance values' - CASE (-6) - PRINT * , '--> No of steps exceeds maximum bound' - CASE (-7) - PRINT * , '--> Step size too small: T + 10*H = T', & - ' or H < Roundoff' - CASE (-8) - PRINT * , '--> Matrix is repeatedly singular' - CASE DEFAULT - PRINT *, 'Unknown Error code: ', Code - END SELECT - - PRINT *, "T=", T, "and H=", H - - END SUBROUTINE ros_ErrorMsg - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Integrator (Y, Tstart, Tend, T, & - AbsTol, RelTol, & -!~~~> Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -!~~~> Error indicator - IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the implementation of a generic Rosenbrock method -! defined by ros_S (no of stages) -! and its coefficients ros_{A,C,M,E,Alpha,Gamma} -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - -!~~~> Input: the initial condition at Tstart; Output: the solution at T - REAL(kind=dp), INTENT(INOUT) :: Y(N) -!~~~> Input: integration interval - REAL(kind=dp), INTENT(IN) :: Tstart,Tend -!~~~> Output: time at which the solution is returned (T=Tend if success) - REAL(kind=dp), INTENT(OUT) :: T -!~~~> Input: tolerances - REAL(kind=dp), INTENT(IN) :: AbsTol(N), RelTol(N) -!~~~> Input: integration parameters - LOGICAL, INTENT(IN) :: Autonomous, VectorTol - REAL(kind=dp), INTENT(IN) :: Hstart, Hmin, Hmax - INTEGER, INTENT(IN) :: Max_no_steps - REAL(kind=dp), INTENT(IN) :: Roundoff, FacMin, FacMax, FacRej, FacSafe -!~~~> Output: Error indicator - INTEGER, INTENT(OUT) :: IERR -! ~~~~ Local variables - REAL(kind=dp) :: Ynew(N), Fcn0(N), Fcn(N) - REAL(kind=dp) :: K(N*ros_S), dFdT(N) -#ifdef FULL_ALGEBRA - REAL(kind=dp) :: Jac0(N,N), Ghimj(N,N) -#else - REAL(kind=dp) :: Jac0(LU_NONZERO), Ghimj(LU_NONZERO) -#endif - REAL(kind=dp) :: H, Hnew, HC, HG, Fac, Tau - REAL(kind=dp) :: Err, Yerr(N) - INTEGER :: Pivot(N), Direction, ioffset, j, istage - LOGICAL :: RejectLastH, RejectMoreH, Singular -!~~~> Local parameters - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp - REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp -!~~~> Locally called functions -! REAL(kind=dp) WLAMCH -! EXTERNAL WLAMCH -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~> Initial preparations - T = Tstart - RSTATUS(Nhexit) = ZERO - H = MIN( MAX(ABS(Hmin),ABS(Hstart)) , ABS(Hmax) ) - IF (ABS(H) <= 10.0_dp*Roundoff) H = DeltaMin - - IF (Tend >= Tstart) THEN - Direction = +1 - ELSE - Direction = -1 - END IF - H = Direction*H - - RejectLastH=.FALSE. - RejectMoreH=.FALSE. - -!~~~> Time loop begins below - -TimeLoop: DO WHILE ( (Direction > 0).AND.((T-Tend)+Roundoff <= ZERO) & - .OR. (Direction < 0).AND.((Tend-T)+Roundoff <= ZERO) ) - - IF ( ISTATUS(Nstp) > Max_no_steps ) THEN ! Too many steps - CALL ros_ErrorMsg(-6,T,H,IERR) - RETURN - END IF - IF ( ((T+0.1_dp*H) == T).OR.(H <= Roundoff) ) THEN ! Step size too small - CALL ros_ErrorMsg(-7,T,H,IERR) - RETURN - END IF - -!~~~> Limit H if necessary to avoid going beyond Tend - H = MIN(H,ABS(Tend-T)) - -!~~~> Compute the function at current time - CALL FunTemplate(T,Y,Fcn0) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - -!~~~> Compute the function derivative with respect to T - IF (.NOT.Autonomous) THEN - CALL ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) - END IF - -!~~~> Compute the Jacobian at current time - CALL JacTemplate(T,Y,Jac0) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - -!~~~> Repeat step calculation until current step accepted -UntilAccepted: DO - - CALL ros_PrepareMatrix(H,Direction,ros_Gamma(1), & - Jac0,Ghimj,Pivot,Singular) - IF (Singular) THEN ! More than 5 consecutive failed decompositions - CALL ros_ErrorMsg(-8,T,H,IERR) - RETURN - END IF - -!~~~> Compute the stages -Stage: DO istage = 1, ros_S - - ! Current istage offset. Current istage vector is K(ioffset+1:ioffset+N) - ioffset = N*(istage-1) - - ! For the 1st istage the function has been computed previously - IF ( istage == 1 ) THEN - !slim: CALL WCOPY(N,Fcn0,1,Fcn,1) - Fcn(1:N) = Fcn0(1:N) - ! istage>1 and a new function evaluation is needed at the current istage - ELSEIF ( ros_NewF(istage) ) THEN - !slim: CALL WCOPY(N,Y,1,Ynew,1) - Ynew(1:N) = Y(1:N) - DO j = 1, istage-1 - CALL WAXPY(N,ros_A((istage-1)*(istage-2)/2+j), & - K(N*(j-1)+1),1,Ynew,1) - END DO - Tau = T + ros_Alpha(istage)*Direction*H - CALL FunTemplate(Tau,Ynew,Fcn) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - END IF ! if istage == 1 elseif ros_NewF(istage) - !slim: CALL WCOPY(N,Fcn,1,K(ioffset+1),1) - K(ioffset+1:ioffset+N) = Fcn(1:N) - DO j = 1, istage-1 - HC = ros_C((istage-1)*(istage-2)/2+j)/(Direction*H) - CALL WAXPY(N,HC,K(N*(j-1)+1),1,K(ioffset+1),1) - END DO - IF ((.NOT. Autonomous).AND.(ros_Gamma(istage).NE.ZERO)) THEN - HG = Direction*H*ros_Gamma(istage) - CALL WAXPY(N,HG,dFdT,1,K(ioffset+1),1) - END IF - CALL ros_Solve(Ghimj, Pivot, K(ioffset+1)) - - END DO Stage - - -!~~~> Compute the new solution - !slim: CALL WCOPY(N,Y,1,Ynew,1) - Ynew(1:N) = Y(1:N) - DO j=1,ros_S - CALL WAXPY(N,ros_M(j),K(N*(j-1)+1),1,Ynew,1) - END DO - -!~~~> Compute the error estimation - !slim: CALL WSCAL(N,ZERO,Yerr,1) - Yerr(1:N) = ZERO - DO j=1,ros_S - CALL WAXPY(N,ros_E(j),K(N*(j-1)+1),1,Yerr,1) - END DO - Err = ros_ErrorNorm ( Y, Ynew, Yerr, AbsTol, RelTol, VectorTol ) - -!~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax - Fac = MIN(FacMax,MAX(FacMin,FacSafe/Err**(ONE/ros_ELO))) - Hnew = H*Fac - -!~~~> Check the error magnitude and adjust step size - ISTATUS(Nstp) = ISTATUS(Nstp) + 1 - IF ( (Err <= ONE).OR.(H <= Hmin) ) THEN !~~~> Accept step - ISTATUS(Nacc) = ISTATUS(Nacc) + 1 - !slim: CALL WCOPY(N,Ynew,1,Y,1) - Y(1:N) = Ynew(1:N) - T = T + Direction*H - Hnew = MAX(Hmin,MIN(Hnew,Hmax)) - IF (RejectLastH) THEN ! No step size increase after a rejected step - Hnew = MIN(Hnew,H) - END IF - RSTATUS(Nhexit) = H - RSTATUS(Nhnew) = Hnew - RSTATUS(Ntexit) = T - RejectLastH = .FALSE. - RejectMoreH = .FALSE. - H = Hnew - EXIT UntilAccepted ! EXIT THE LOOP: WHILE STEP NOT ACCEPTED - ELSE !~~~> Reject step - IF (RejectMoreH) THEN - Hnew = H*FacRej - END IF - RejectMoreH = RejectLastH - RejectLastH = .TRUE. - H = Hnew - IF (ISTATUS(Nacc) >= 1) ISTATUS(Nrej) = ISTATUS(Nrej) + 1 - END IF ! Err <= 1 - - END DO UntilAccepted - - END DO TimeLoop - -!~~~> Succesful exit - IERR = 1 !~~~> The integration was successful - - END SUBROUTINE ros_Integrator - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - REAL(kind=dp) FUNCTION ros_ErrorNorm ( Y, Ynew, Yerr, & - AbsTol, RelTol, VectorTol ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Computes the "scaled norm" of the error vector Yerr -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -! Input arguments - REAL(kind=dp), INTENT(IN) :: Y(N), Ynew(N), & - Yerr(N), AbsTol(N), RelTol(N) - LOGICAL, INTENT(IN) :: VectorTol -! Local variables - REAL(kind=dp) :: Err, Scale, Ymax - INTEGER :: i - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp - - Err = ZERO - DO i=1,N - Ymax = MAX(ABS(Y(i)),ABS(Ynew(i))) - IF (VectorTol) THEN - Scale = AbsTol(i)+RelTol(i)*Ymax - ELSE - Scale = AbsTol(1)+RelTol(1)*Ymax - END IF - Err = Err+(Yerr(i)/Scale)**2 - END DO - Err = SQRT(Err/N) - - ros_ErrorNorm = MAX(Err,1.0d-10) - - END FUNCTION ros_ErrorNorm - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> The time partial derivative of the function by finite differences -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -!~~~> Input arguments - REAL(kind=dp), INTENT(IN) :: T, Roundoff, Y(N), Fcn0(N) -!~~~> Output arguments - REAL(kind=dp), INTENT(OUT) :: dFdT(N) -!~~~> Local variables - REAL(kind=dp) :: Delta - REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, DeltaMin = 1.0E-6_dp - - Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T)) - CALL FunTemplate(T+Delta,Y,dFdT) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - CALL WAXPY(N,(-ONE),Fcn0,1,dFdT,1) - CALL WSCAL(N,(ONE/Delta),dFdT,1) - - END SUBROUTINE ros_FunTimeDerivative - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_PrepareMatrix ( H, Direction, gam, & - Jac0, Ghimj, Pivot, Singular ) -! --- --- --- --- --- --- --- --- --- --- --- --- --- -! Prepares the LHS matrix for stage calculations -! 1. Construct Ghimj = 1/(H*ham) - Jac0 -! "(Gamma H) Inverse Minus Jacobian" -! 2. Repeat LU decomposition of Ghimj until successful. -! -half the step size if LU decomposition fails and retry -! -exit after 5 consecutive fails -! --- --- --- --- --- --- --- --- --- --- --- --- --- - IMPLICIT NONE - -!~~~> Input arguments -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(IN) :: Jac0(N,N) -#else - REAL(kind=dp), INTENT(IN) :: Jac0(LU_NONZERO) -#endif - REAL(kind=dp), INTENT(IN) :: gam - INTEGER, INTENT(IN) :: Direction -!~~~> Output arguments -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(OUT) :: Ghimj(N,N) -#else - REAL(kind=dp), INTENT(OUT) :: Ghimj(LU_NONZERO) -#endif - LOGICAL, INTENT(OUT) :: Singular - INTEGER, INTENT(OUT) :: Pivot(N) -!~~~> Inout arguments - REAL(kind=dp), INTENT(INOUT) :: H ! step size is decreased when LU fails -!~~~> Local variables - INTEGER :: i, ISING, Nconsecutive - REAL(kind=dp) :: ghinv - REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, HALF = 0.5_dp - - Nconsecutive = 0 - Singular = .TRUE. - - DO WHILE (Singular) - -!~~~> Construct Ghimj = 1/(H*gam) - Jac0 -#ifdef FULL_ALGEBRA - !slim: CALL WCOPY(N*N,Jac0,1,Ghimj,1) - !slim: CALL WSCAL(N*N,(-ONE),Ghimj,1) - Ghimj = -Jac0 - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(i,i) = Ghimj(i,i)+ghinv - END DO -#else - !slim: CALL WCOPY(LU_NONZERO,Jac0,1,Ghimj,1) - !slim: CALL WSCAL(LU_NONZERO,(-ONE),Ghimj,1) - Ghimj(1:LU_NONZERO) = -Jac0(1:LU_NONZERO) - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(LU_DIAG(i)) = Ghimj(LU_DIAG(i))+ghinv - END DO -#endif -!~~~> Compute LU decomposition - CALL ros_Decomp( Ghimj, Pivot, ISING ) - IF (ISING == 0) THEN -!~~~> If successful done - Singular = .FALSE. - ELSE ! ISING .ne. 0 -!~~~> If unsuccessful half the step size; if 5 consecutive fails then return - ISTATUS(Nsng) = ISTATUS(Nsng) + 1 - Nconsecutive = Nconsecutive+1 - Singular = .TRUE. - PRINT*,'Warning: LU Decomposition returned ISING = ',ISING - IF (Nconsecutive <= 5) THEN ! Less than 5 consecutive failed decompositions - H = H*HALF - ELSE ! More than 5 consecutive failed decompositions - RETURN - END IF ! Nconsecutive - END IF ! ISING - - END DO ! WHILE Singular - - END SUBROUTINE ros_PrepareMatrix - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Decomp( A, Pivot, ISING ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the LU decomposition -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Inout variables -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(INOUT) :: A(N,N) -#else - REAL(kind=dp), INTENT(INOUT) :: A(LU_NONZERO) -#endif -!~~~> Output variables - INTEGER, INTENT(OUT) :: Pivot(N), ISING - -#ifdef FULL_ALGEBRA - CALL DGETRF( N, N, A, N, Pivot, ISING ) -#else - CALL KppDecomp ( A, ISING ) - Pivot(1) = 1 -#endif - ISTATUS(Ndec) = ISTATUS(Ndec) + 1 - - END SUBROUTINE ros_Decomp - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Solve( A, Pivot, b ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the forward/backward substitution (using pre-computed LU decomposition) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Input variables -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(IN) :: A(N,N) - INTEGER :: ISING -#else - REAL(kind=dp), INTENT(IN) :: A(LU_NONZERO) -#endif - INTEGER, INTENT(IN) :: Pivot(N) -!~~~> InOut variables - REAL(kind=dp), INTENT(INOUT) :: b(N) - -#ifdef FULL_ALGEBRA - CALL DGETRS( 'N', N , 1, A, N, Pivot, b, N, ISING ) - IF ( Info < 0 ) THEN - PRINT*,"Error in DGETRS. ISING=",ISING - END IF -#else - CALL KppSolve( A, b ) -#endif - - ISTATUS(Nsol) = ISTATUS(Nsol) + 1 - - END SUBROUTINE ros_Solve - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 2 stages, order 2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - DOUBLE PRECISION g - - g = 1.0_dp + 1.0_dp/SQRT(2.0_dp) - rosMethod = RS2 -!~~~> Name of the method - ros_Name = 'ROS-2' -!~~~> Number of stages - ros_S = 2 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = (1.0_dp)/g - ros_C(1) = (-2.0_dp)/g -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1)= (3.0_dp)/(2.0_dp*g) - ros_M(2)= (1.0_dp)/(2.0_dp*g) -! E_i = Coefficients for error estimator - ros_E(1) = 1.0_dp/(2.0_dp*g) - ros_E(2) = 1.0_dp/(2.0_dp*g) -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus one - ros_ELO = 2.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 1.0_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = g - ros_Gamma(2) =-g - - END SUBROUTINE Ros2 - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 3 stages, order 3, 2 function evaluations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - rosMethod = RS3 -!~~~> Name of the method - ros_Name = 'ROS-3' -!~~~> Number of stages - ros_S = 3 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1)= 1.0_dp - ros_A(2)= 1.0_dp - ros_A(3)= 0.0_dp - - ros_C(1) = -0.10156171083877702091975600115545E+01_dp - ros_C(2) = 0.40759956452537699824805835358067E+01_dp - ros_C(3) = 0.92076794298330791242156818474003E+01_dp -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.1E+01_dp - ros_M(2) = 0.61697947043828245592553615689730E+01_dp - ros_M(3) = -0.42772256543218573326238373806514_dp -! E_i = Coefficients for error estimator - ros_E(1) = 0.5_dp - ros_E(2) = -0.29079558716805469821718236208017E+01_dp - ros_E(3) = 0.22354069897811569627360909276199_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1)= 0.0_dp - ros_Alpha(2)= 0.43586652150845899941601945119356_dp - ros_Alpha(3)= 0.43586652150845899941601945119356_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1)= 0.43586652150845899941601945119356_dp - ros_Gamma(2)= 0.24291996454816804366592249683314_dp - ros_Gamma(3)= 0.21851380027664058511513169485832E+01_dp - - END SUBROUTINE Ros3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! L-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 4 STAGES -! L-STABLE EMBEDDED ROSENBROCK METHOD OF ORDER 3 -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1990) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RS4 -!~~~> Name of the method - ros_Name = 'ROS-4' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.2000000000000000E+01_dp - ros_A(2) = 0.1867943637803922E+01_dp - ros_A(3) = 0.2344449711399156_dp - ros_A(4) = ros_A(2) - ros_A(5) = ros_A(3) - ros_A(6) = 0.0_dp - - ros_C(1) =-0.7137615036412310E+01_dp - ros_C(2) = 0.2580708087951457E+01_dp - ros_C(3) = 0.6515950076447975_dp - ros_C(4) =-0.2137148994382534E+01_dp - ros_C(5) =-0.3214669691237626_dp - ros_C(6) =-0.6949742501781779_dp -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.2255570073418735E+01_dp - ros_M(2) = 0.2870493262186792_dp - ros_M(3) = 0.4353179431840180_dp - ros_M(4) = 0.1093502252409163E+01_dp -!~~~> E_i = Coefficients for error estimator - ros_E(1) =-0.2815431932141155_dp - ros_E(2) =-0.7276199124938920E-01_dp - ros_E(3) =-0.1082196201495311_dp - ros_E(4) =-0.1093502252409163E+01_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 0.1145640000000000E+01_dp - ros_Alpha(3) = 0.6552168638155900_dp - ros_Alpha(4) = ros_Alpha(3) -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5728200000000000_dp - ros_Gamma(2) =-0.1769193891319233E+01_dp - ros_Gamma(3) = 0.7592633437920482_dp - ros_Gamma(4) =-0.1049021087100450_dp - - END SUBROUTINE Ros4 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- A STIFFLY-STABLE METHOD, 4 stages, order 3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD3 -!~~~> Name of the method - ros_Name = 'RODAS-3' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.0_dp - ros_A(2) = 2.0_dp - ros_A(3) = 0.0_dp - ros_A(4) = 2.0_dp - ros_A(5) = 0.0_dp - ros_A(6) = 1.0_dp - - ros_C(1) = 4.0_dp - ros_C(2) = 1.0_dp - ros_C(3) =-1.0_dp - ros_C(4) = 1.0_dp - ros_C(5) =-1.0_dp - ros_C(6) =-(8.0_dp/3.0_dp) - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .FALSE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 2.0_dp - ros_M(2) = 0.0_dp - ros_M(3) = 1.0_dp - ros_M(4) = 1.0_dp -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0_dp - ros_E(2) = 0.0_dp - ros_E(3) = 0.0_dp - ros_E(4) = 1.0_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 0.0_dp - ros_Alpha(3) = 1.0_dp - ros_Alpha(4) = 1.0_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5_dp - ros_Gamma(2) = 1.5_dp - ros_Gamma(3) = 0.0_dp - ros_Gamma(4) = 0.0_dp - - END SUBROUTINE Rodas3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 6 STAGES -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1996) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD4 -!~~~> Name of the method - ros_Name = 'RODAS-4' -!~~~> Number of stages - ros_S = 6 - -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.000_dp - ros_Alpha(2) = 0.386_dp - ros_Alpha(3) = 0.210_dp - ros_Alpha(4) = 0.630_dp - ros_Alpha(5) = 1.000_dp - ros_Alpha(6) = 1.000_dp - -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.2500000000000000_dp - ros_Gamma(2) =-0.1043000000000000_dp - ros_Gamma(3) = 0.1035000000000000_dp - ros_Gamma(4) =-0.3620000000000023E-01_dp - ros_Gamma(5) = 0.0_dp - ros_Gamma(6) = 0.0_dp - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.1544000000000000E+01_dp - ros_A(2) = 0.9466785280815826_dp - ros_A(3) = 0.2557011698983284_dp - ros_A(4) = 0.3314825187068521E+01_dp - ros_A(5) = 0.2896124015972201E+01_dp - ros_A(6) = 0.9986419139977817_dp - ros_A(7) = 0.1221224509226641E+01_dp - ros_A(8) = 0.6019134481288629E+01_dp - ros_A(9) = 0.1253708332932087E+02_dp - ros_A(10) =-0.6878860361058950_dp - ros_A(11) = ros_A(7) - ros_A(12) = ros_A(8) - ros_A(13) = ros_A(9) - ros_A(14) = ros_A(10) - ros_A(15) = 1.0_dp - - ros_C(1) =-0.5668800000000000E+01_dp - ros_C(2) =-0.2430093356833875E+01_dp - ros_C(3) =-0.2063599157091915_dp - ros_C(4) =-0.1073529058151375_dp - ros_C(5) =-0.9594562251023355E+01_dp - ros_C(6) =-0.2047028614809616E+02_dp - ros_C(7) = 0.7496443313967647E+01_dp - ros_C(8) =-0.1024680431464352E+02_dp - ros_C(9) =-0.3399990352819905E+02_dp - ros_C(10) = 0.1170890893206160E+02_dp - ros_C(11) = 0.8083246795921522E+01_dp - ros_C(12) =-0.7981132988064893E+01_dp - ros_C(13) =-0.3152159432874371E+02_dp - ros_C(14) = 0.1631930543123136E+02_dp - ros_C(15) =-0.6058818238834054E+01_dp - -!~~~> M_i = Coefficients for new step solution - ros_M(1) = ros_A(7) - ros_M(2) = ros_A(8) - ros_M(3) = ros_A(9) - ros_M(4) = ros_A(10) - ros_M(5) = 1.0_dp - ros_M(6) = 1.0_dp - -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0_dp - ros_E(2) = 0.0_dp - ros_E(3) = 0.0_dp - ros_E(4) = 0.0_dp - ros_E(5) = 0.0_dp - ros_E(6) = 1.0_dp - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - ros_NewF(5) = .TRUE. - ros_NewF(6) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0_dp - - END SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rang3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE W METHOD OF ORDER 3, WITH 4 STAGES -! -! J. RANG and L. ANGERMANN -! NEW ROSENBROCK W-METHODS OF ORDER 3 -! FOR PARTIAL DIFFERENTIAL ALGEBRAIC -! EQUATIONS OF INDEX 1 -! BIT Numerical Mathematics (2005) 45: 761-787 -! DOI: 10.1007/s10543-005-0035-y -! Table 4.1-4.2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RG3 -!~~~> Name of the method - ros_Name = 'RANG-3' -!~~~> Number of stages - ros_S = 4 - - ros_A(1) = 5.09052051067020d+00; - ros_A(2) = 5.09052051067020d+00; - ros_A(3) = 0.0d0; - ros_A(4) = 4.97628111010787d+00; - ros_A(5) = 2.77268164715849d-02; - ros_A(6) = 2.29428036027904d-01; - - ros_C(1) = -1.16790812312283d+01; - ros_C(2) = -1.64057326467367d+01; - ros_C(3) = -2.77268164715850d-01; - ros_C(4) = -8.38103960500476d+00; - ros_C(5) = -8.48328409199343d-01; - ros_C(6) = 2.87009860433106d-01; - - ros_M(1) = 5.22582761233094d+00; - ros_M(2) = -5.56971148154165d-01; - ros_M(3) = 3.57979469353645d-01; - ros_M(4) = 1.72337398521064d+00; - - ros_E(1) = -5.16845212784040d+00; - ros_E(2) = -1.26351942603842d+00; - ros_E(3) = -1.11022302462516d-16; - ros_E(4) = 2.22044604925031d-16; - - ros_Alpha(1) = 0.0d00; - ros_Alpha(2) = 2.21878746765329d+00; - ros_Alpha(3) = 2.21878746765329d+00; - ros_Alpha(4) = 1.55392337535788d+00; - - ros_Gamma(1) = 4.35866521508459d-01; - ros_Gamma(2) = -1.78292094614483d+00; - ros_Gamma(3) = -2.46541900496934d+00; - ros_Gamma(4) = -8.05529997906370d-01; - - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp - - END SUBROUTINE Rang3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! End of the set of internal Rosenbrock subroutines -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -END SUBROUTINE Rosenbrock -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE FunTemplate( T, Y, Ydot ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE function call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE NO_NO2_Parameters, ONLY: NVAR, LU_NONZERO - USE NO_NO2_Global, ONLY: FIX, RCONST, TIME - USE NO_NO2_Function, ONLY: Fun - USE NO_NO2_Rates, ONLY: Update_SUN, Update_RCONST -!~~~> Input variables - REAL(kind=dp) :: T, Y(NVAR) -!~~~> Output variables - REAL(kind=dp) :: Ydot(NVAR) -!~~~> Local variables - REAL(kind=dp) :: Told - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, Ydot ) - TIME = Told - -END SUBROUTINE FunTemplate - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE JacTemplate( T, Y, Jcb ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE Jacobian call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE NO_NO2_Parameters, ONLY: NVAR, LU_NONZERO - USE NO_NO2_Global, ONLY: FIX, RCONST, TIME - USE NO_NO2_Jacobian, ONLY: Jac_SP, LU_IROW, LU_ICOL - USE NO_NO2_LinearAlgebra - USE NO_NO2_Rates, ONLY: Update_SUN, Update_RCONST -!~~~> Input variables - REAL(kind=dp) :: T, Y(NVAR) -!~~~> Output variables -#ifdef FULL_ALGEBRA - REAL(kind=dp) :: JV(LU_NONZERO), Jcb(NVAR,NVAR) -#else - REAL(kind=dp) :: Jcb(LU_NONZERO) -#endif -!~~~> Local variables - REAL(kind=dp) :: Told -#ifdef FULL_ALGEBRA - INTEGER :: i, j -#endif - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() -#ifdef FULL_ALGEBRA - CALL Jac_SP(Y, FIX, RCONST, JV) - DO j=1,NVAR - DO i=1,NVAR - Jcb(i,j) = 0.0_dp - END DO - END DO - DO i=1,LU_NONZERO - Jcb(LU_IROW(i),LU_ICOL(i)) = JV(i) - END DO -#else - CALL Jac_SP( Y, FIX, RCONST, Jcb ) -#endif - TIME = Told - -END SUBROUTINE JacTemplate - -END MODULE NO_NO2_Integrator - - - - -! End of INTEGRATE function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Integrator.o b/boxmox/compiled_mechs/NO_NO2/NO_NO2_Integrator.o deleted file mode 100644 index fa5812d9ea49eadd3226e2acdb86cec1b207a0bf..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Integrator.o and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Jacobian.f90 b/boxmox/compiled_mechs/NO_NO2/NO_NO2_Jacobian.f90 deleted file mode 100644 index f892064a2fef6b1eb443b1e36de0f9a7861d6419..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Jacobian.f90 +++ /dev/null @@ -1,139 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The ODE Jacobian of Chemical Model File -! -! Generated by KPP-2.2.3 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 : NO_NO2_Jacobian.f90 -! Time : Thu Oct 8 08:22:19 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_NO_NO2_9716_BOXMOX -! Equation file : NO_NO2.kpp -! Output root filename : NO_NO2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE NO_NO2_Jacobian - - USE NO_NO2_Parameters - USE NO_NO2_JacobianSP - - USE NO_NO2_Global - - 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(3) - -! B(1) = dA(1)/dV(1) - B(1) = RCT(1)*F(1) -! B(3) = dA(2)/dV(2) - B(3) = RCT(2) - -! Construct the Jacobian terms from B's -! JVS(1) = Jac_FULL(1,1) - JVS(1) = 0 -! JVS(2) = Jac_FULL(2,2) - JVS(2) = 0 - -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) - JUV(2) = JVS(2)*UV(2) - -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(2)*UV(2) - -END SUBROUTINE JacTR_SP_Vec - -! End of JacTR_SP_Vec function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE NO_NO2_Jacobian - diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Jacobian.o b/boxmox/compiled_mechs/NO_NO2/NO_NO2_Jacobian.o deleted file mode 100644 index 48c6af8d0ca623a2d40d46c08a72a2c7205eb662..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Jacobian.o and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_JacobianSP.f90 b/boxmox/compiled_mechs/NO_NO2/NO_NO2_JacobianSP.f90 deleted file mode 100644 index 3e5508b62907eaa72cfc125115851c907cac1f62..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/NO_NO2/NO_NO2_JacobianSP.f90 +++ /dev/null @@ -1,48 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Sparse Jacobian Data Structures File -! -! Generated by KPP-2.2.3 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 : NO_NO2_JacobianSP.f90 -! Time : Thu Oct 8 08:22:19 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_NO_NO2_9716_BOXMOX -! Equation file : NO_NO2.kpp -! Output root filename : NO_NO2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE NO_NO2_JacobianSP - - PUBLIC - SAVE - - -! Sparse Jacobian Data - - - INTEGER, PARAMETER, DIMENSION(2) :: LU_IROW = (/ & - 1, 2 /) - - INTEGER, PARAMETER, DIMENSION(2) :: LU_ICOL = (/ & - 1, 2 /) - - INTEGER, PARAMETER, DIMENSION(3) :: LU_CROW = (/ & - 1, 2, 3 /) - - INTEGER, PARAMETER, DIMENSION(3) :: LU_DIAG = (/ & - 1, 2, 3 /) - - -END MODULE NO_NO2_JacobianSP - diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_JacobianSP.o b/boxmox/compiled_mechs/NO_NO2/NO_NO2_JacobianSP.o deleted file mode 100644 index 20c89a27e3da32d02f5183bcfaccf7c32f081625..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/NO_NO2_JacobianSP.o and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_LinearAlgebra.f90 b/boxmox/compiled_mechs/NO_NO2/NO_NO2_LinearAlgebra.f90 deleted file mode 100644 index b6443daf2b294be1eb9b756b3465c85abd47252a..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/NO_NO2/NO_NO2_LinearAlgebra.f90 +++ /dev/null @@ -1,1148 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Linear Algebra Data and Routines File -! -! Generated by KPP-2.2.3 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 : NO_NO2_LinearAlgebra.f90 -! Time : Thu Oct 8 08:22:19 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_NO_NO2_9716_BOXMOX -! Equation file : NO_NO2.kpp -! Output root filename : NO_NO2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE NO_NO2_LinearAlgebra - - USE NO_NO2_Parameters - USE NO_NO2_JacobianSP - - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! SPARSE_UTIL - SPARSE utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecomp( JVS, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE NO_NO2_Parameters - USE NO_NO2_JacobianSP - - INTEGER :: IER - REAL(kind=dp) :: JVS(LU_NONZERO), W(NVAR), a - INTEGER :: k, kk, j, jj - - a = 0. ! mz_rs_20050606 - IER = 0 - DO k=1,NVAR - ! mz_rs_20050606: don't check if real value == 0 - ! IF ( JVS( LU_DIAG(k) ) .EQ. 0. ) THEN - IF ( ABS(JVS(LU_DIAG(k))) < TINY(a) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - W( LU_ICOL(kk) ) = JVS(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - a = -W(j) / JVS( LU_DIAG(j) ) - W(j) = -a - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVS(kk) = W( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecomp - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecompCmplx( JVS, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization, complex -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE NO_NO2_Parameters - USE NO_NO2_JacobianSP - - INTEGER :: IER - DOUBLE COMPLEX :: JVS(LU_NONZERO), W(NVAR), a - REAL(kind=dp) :: b = 0.0 - INTEGER :: k, kk, j, jj - - IER = 0 - DO k=1,NVAR - IF ( ABS(JVS(LU_DIAG(k))) < TINY(b) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - W( LU_ICOL(kk) ) = JVS(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - a = -W(j) / JVS( LU_DIAG(j) ) - W(j) = -a - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVS(kk) = W( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecompCmplx - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecompCmplxR( JVSR, JVSI, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization, complex -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE NO_NO2_Parameters - USE NO_NO2_JacobianSP - - INTEGER :: IER - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO) - REAL(kind=dp) :: WR(NVAR), WI(NVAR), ar, ai, den - INTEGER :: k, kk, j, jj - - IER = 0 - ar = 0.0 - DO k=1,NVAR - IF ( ( ABS(JVSR(LU_DIAG(k))) < TINY(ar) ) .AND. & - ( ABS(JVSI(LU_DIAG(k))) < TINY(ar) ) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - WR( LU_ICOL(kk) ) = JVSR(kk) - WI( LU_ICOL(kk) ) = JVSI(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - den = JVSR(LU_DIAG(j))**2 + JVSI(LU_DIAG(j))**2 - ar = -(WR(j)*JVSR(LU_DIAG(j)) + WI(j)*JVSI(LU_DIAG(j)))/den - ai = -(WI(j)*JVSR(LU_DIAG(j)) - WR(j)*JVSI(LU_DIAG(j)))/den - WR(j) = -ar - WI(j) = -ai - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - WR( LU_ICOL(jj) ) = WR( LU_ICOL(jj) ) + ar*JVSR(jj) - ai*JVSI(jj) - WI( LU_ICOL(jj) ) = WI( LU_ICOL(jj) ) + ar*JVSI(jj) + ai*JVSR(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVSR(kk) = WR( LU_ICOL(kk) ) - JVSI(kk) = WI( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecompCmplxR - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveIndirect( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse solve subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE NO_NO2_Parameters - USE NO_NO2_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR), sum - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - X(i) = X(i) - JVS(j)*X(LU_ICOL(j)); - END DO - END DO - - DO i=NVAR,1,-1 - sum = X(i); - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sum = sum - JVS(j)*X(LU_ICOL(j)); - END DO - X(i) = sum/JVS(LU_DIAG(i)); - END DO - -END SUBROUTINE KppSolveIndirect - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRIndirect( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE NO_NO2_Parameters - USE NO_NO2_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR) - - DO i=1,NVAR - X(i) = X(i)/JVS(LU_DIAG(i)) - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - -END SUBROUTINE KppSolveTRIndirect - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveCmplx( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE NO_NO2_Parameters - USE NO_NO2_JacobianSP - - INTEGER :: i, j - DOUBLE COMPLEX :: JVS(LU_NONZERO), X(NVAR), sum - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - X(i) = X(i) - JVS(j)*X(LU_ICOL(j)); - END DO - END DO - - DO i=NVAR,1,-1 - sum = X(i); - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sum = sum - JVS(j)*X(LU_ICOL(j)); - END DO - X(i) = sum/JVS(LU_DIAG(i)); - END DO - -END SUBROUTINE KppSolveCmplx - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveCmplxR( JVSR, JVSI, XR, XI ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve subroutine using indirect addressing -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE NO_NO2_Parameters - USE NO_NO2_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), sumr, sumi, den - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - XR(i) = XR(i) - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j))) - XI(i) = XI(i) - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j))) - END DO - END DO - - DO i=NVAR,1,-1 - sumr = XR(i); sumi = XI(i) - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sumr = sumr - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j))) - sumi = sumi - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j))) - END DO - den = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2 - XR(i) = (sumr*JVSR(LU_DIAG(i)) + sumi*JVSI(LU_DIAG(i)))/den - XI(i) = (sumi*JVSR(LU_DIAG(i)) - sumr*JVSI(LU_DIAG(i)))/den - END DO - -END SUBROUTINE KppSolveCmplxR - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRCmplx( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE NO_NO2_Parameters - USE NO_NO2_JacobianSP - - INTEGER :: i, j - DOUBLE COMPLEX :: JVS(LU_NONZERO), X(NVAR) - - DO i=1,NVAR - X(i) = X(i)/JVS(LU_DIAG(i)) - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - -END SUBROUTINE KppSolveTRCmplx - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRCmplxR( JVSR, JVSI, XR, XI ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE NO_NO2_Parameters - USE NO_NO2_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), den - - DO i=1,NVAR - den = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2 - XR(i) = (XR(i)*JVSR(LU_DIAG(i)) + XI(i)*JVSI(LU_DIAG(i)))/den - XI(i) = (XI(i)*JVSR(LU_DIAG(i)) - XR(i)*JVSI(LU_DIAG(i)))/den - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i)) - XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i)) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i)) - XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i)) - END DO - END DO - -END SUBROUTINE KppSolveTRCmplxR - - -! -! Next few commented subroutines perform sparse big linear algebra -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppDecompBig( JVS, IP, IER ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Sparse LU factorization -!! for the Runge Kutta (3n)x(3n) linear system -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE NO_NO2_Parameters -! USE NO_NO2_JacobianSP -! -! INTEGER :: IP3(3), IER, IP(3,NVAR) -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), W(3,3,NVAR), a(3,3), E(3,3) -! INTEGER :: k, kk, j, jj -! -! a = 0.0d0 -! IER = 0 -! DO k=1,NVAR -! DO kk = LU_CROW(k), LU_CROW(k+1)-1 -! W( 1:3,1:3,LU_ICOL(kk) ) = JVS(1:3,1:3,kk) -! END DO -! DO kk = LU_CROW(k), LU_DIAG(k)-1 -! j = LU_ICOL(kk) -! E(1:3,1:3) = JVS( 1:3,1:3,LU_DIAG(j) ) -! ! CALL DGETRF(3,3,E,3,IP3,IER) -! CALL FAC3(E,IP3,IER) -! IF ( IER /= 0 ) RETURN -! ! a = W(j) / JVS( LU_DIAG(j) ) -! a(1:3,1:3) = W( 1:3,1:3,j ) -! ! CALL DGETRS ('N',3,3,E,3,IP3,a,3,IER) -! CALL SOL3('N',E,IP3,a(1,1)) -! CALL SOL3('N',E,IP3,a(1,2)) -! CALL SOL3('N',E,IP3,a(1,3)) -! W(1:3,1:3,j) = a(1:3,1:3) -! DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 -! W( 1:3,1:3,LU_ICOL(jj) ) = W( 1:3,1:3,LU_ICOL(jj) ) & -! - MATMUL( a(1:3,1:3) , JVS(1:3,1:3,jj) ) -! END DO -! END DO -! DO kk = LU_CROW(k), LU_CROW(k+1)-1 -! JVS(1:3,1:3,kk) = W( 1:3,1:3,LU_ICOL(kk) ) -! END DO -! END DO -! -! DO k=1,NVAR -! ! CALL WGEFA(JVS(1,1,LU_DIAG(k)),3,3,IP(1,k),IER) -! ! CALL DGETRF(3,3,JVS(1,1,LU_DIAG(k)),3,IP(1,k),IER) -! CALL FAC3(JVS(1,1,LU_DIAG(k)),IP(1,k),IER) -! IF ( IER /= 0 ) RETURN -! END DO -! -!END SUBROUTINE KppDecompBig -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppSolveBig( JVS, IP, X ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Sparse solve subroutine using indirect addressing -!! for the Runge Kutta (3n)x(3n) linear system -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE NO_NO2_Parameters -! USE NO_NO2_JacobianSP -! -! INTEGER :: i, j, k, m, IP3(3), IP(3,NVAR), IER -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR), sum(3) -! -! DO i=1,NVAR -! DO j = LU_CROW(i), LU_DIAG(i)-1 -! !X(1:3,i) = X(1:3,i) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j))); -! DO k=1,3 -! DO m=1,3 -! X(k,i) = X(k,i) - JVS(k,m,j)*X(m,LU_ICOL(j)) -! END DO -! END DO -! END DO -! END DO -! -! DO i=NVAR,1,-1 -! sum(1:3) = X(1:3,i); -! DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 -! !sum(1:3) = sum(1:3) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j))); -! DO k=1,3 -! DO m=1,3 -! sum(k) = sum(k) - JVS(k,m,j)*X(m,LU_ICOL(j)) -! END DO -! END DO -! END DO -! ! X(i) = sum/JVS(LU_DIAG(i)); -! ! CALL DGETRS ('N',3,1,JVS(1:3,1:3,LU_DIAG(i)),3,IP(1,i),sum,3,0) -! ! CALL WGESL('N',JVS(1,1,LU_DIAG(i)),3,3,IP(1,i),sum) -! CALL SOL3('N',JVS(1,1,LU_DIAG(i)),IP(1,i),sum) -! X(1:3,i) = sum(1:3) -! END DO -! -!END SUBROUTINE KppSolveBig -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppSolveBigTR( JVS, IP, X ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Big sparse transpose solve using indirect addressing -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE NO_NO2_Parameters -! USE NO_NO2_JacobianSP -! -! INTEGER :: i, j, k, m, IP(3,NVAR) -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR) -! -! DO i=1,NVAR -! ! X(i) = X(i)/JVS(LU_DIAG(i)) -! CALL SOL3('T',JVS(1,1,LU_DIAG(i)),IP(1,i),X(1,i)) -! DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 -! !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) & -! ! - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) ) -! DO k=1,3 -! DO m=1,3 -! X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i) -! END DO -! END DO -! END DO -! END DO -! -! DO i=NVAR, 1, -1 -! DO j=LU_CROW(i),LU_DIAG(i)-1 -! !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) & -! ! - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) ) -! DO k=1,3 -! DO m=1,3 -! X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i) -! END DO -! END DO -! END DO -! END DO -! -!END SUBROUTINE KppSolveBigTR -! -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE FAC3(A,IPVT,INFO) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! FAC3 FACTORS THE MATRIX A (3,3) BY -!! GAUSS ELIMINATION WITH PARTIAL PIVOTING -!! LINPACK - LIKE -!! -!! Remove comments to perform pivoting -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! -! REAL(kind=dp) :: A(3,3) -! INTEGER :: IPVT(3),INFO -!! INTEGER :: L -!! REAL(kind=dp) :: t, dmax, da, TMP(3) -! REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0 -! -! info = 0 -!! t = TINY(da) -!! -!! da = ABS(A(1,1)); L = 1 -!! IF ( ABS(A(2,1))>da ) THEN -!! da = ABS(A(2,1)); L = 2 -!! IF ( ABS(A(3,1))>da ) THEN -!! L = 3 -!! END IF -!! END IF -!! IPVT(1) = L -!! IF (L /=1 ) THEN -!! TMP(1:3) = A(L,1:3) -!! A(L,1:3) = A(1,1:3) -!! A(1,1:3) = TMP(1:3) -!! END IF -!! IF (ABS(A(1,1)) < t) THEN -!! info = 1 -!! return -!! END IF -!! -! A(2,1) = A(2,1)/A(1,1) -! A(2,2) = A(2,2) - A(2,1)*A(1,2) -! A(2,3) = A(2,3) - A(2,1)*A(1,3) -! A(3,1) = A(3,1)/A(1,1) -! A(3,2) = A(3,2) - A(3,1)*A(1,2) -! A(3,3) = A(3,3) - A(3,1)*A(1,3) -! -!! IPVT(2) = 2 -!! IF (ABS(A(3,2))>ABS(A(2,2))) THEN -!! IPVT(2) = 3 -!! TMP(2:3) = A(3,2:3) -!! A(3,2:3) = A(2,2:3) -!! A(2,2:3) = TMP(2:3) -!! END IF -!! IF (ABS(A(2,2)) < t) THEN -!! info = 1 -!! return -!! END IF -!! -! A(3,2) = A(3,2)/A(2,2) -! A(3,3) = A(3,3) - A(3,2)*A(2,3) -! IPVT(3) = 3 -! -!END SUBROUTINE FAC3 -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE SOL3(Trans,A,IPVT,b) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! SOL3 solves the system 3x3 -!! A * x = b or trans(a) * x = b -!! using the factors computed by WGEFA. -!! -!! Trans = 'N' to solve A*x = b , -!! = 'T' to solve transpose(A)*x = b -!! LINPACK - LIKE -!! -!! Remove comments to use pivoting -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! CHARACTER :: Trans -! REAL(kind=dp) :: a(3,3),b(3) -! INTEGER :: IPVT(3) -!! INTEGER :: L -!! REAL(kind=dp) :: TMP -! -! SELECT CASE (Trans) -! -! CASE ('n','N') ! Solve A * x = b -! -!! Solve L*y = b -!! L = IPVT(1) -!! IF (L /= 1) THEN -!! TMP = B(1); B(1) = B(L); B(L) = TMP -!! END IF -! b(2) = b(2)-A(2,1)*b(1) -! b(3) = b(3)-A(3,1)*b(1) -! -!! L = IPVT(2) -!! IF (L /= 2) THEN -!! TMP = B(2); B(2) = B(L); B(L) = TMP -!! END IF -! b(3) = b(3)-A(3,2)*b(2) -! -!! Solve U*x = y -! b(3) = b(3)/A(3,3) -! b(2) = (b(2)-A(2,3)*b(3))/A(2,2) -! b(1) = (b(1)-A(1,3)*b(3)-A(1,2)*b(2))/A(1,1) -! -! -! CASE ('t','T') ! Solve transpose(A) * x = b -! -!! Solve transpose(U)*y = b -! b(1) = b(1)/A(1,1) -! b(2) = (b(2)-A(1,2)*b(1))/A(2,2) -! b(3) = (b(3)-A(1,3)*b(1)-A(2,3)*b(2))/A(3,3) -! -!! Solve transpose(L)*x = y -! b(2) = b(2)-A(3,2)*b(3) -!! L = ipvt(2) -!! IF (L /= 2) THEN -!! TMP = B(2); B(2) = B(L); B(L) = TMP -!! END IF -! b(1) = b(1)-A(3,1)*b(3)-A(2,1)*b(2) -!! L = ipvt(1) -!! IF (L /= 1) THEN -!! TMP = B(1); B(1) = B(L); B(L) = TMP -!! END IF -! -! END SELECT -! -!END SUBROUTINE SOL3 - -! End of SPARSE_UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! KppSolve - sparse back substitution -! Arguments : -! JVS - sparse Jacobian of variables -! X - Vector for variables -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE KppSolve ( JVS, X ) - -! JVS - sparse Jacobian of variables - REAL(kind=dp) :: JVS(LU_NONZERO) -! X - Vector for variables - REAL(kind=dp) :: X(NVAR) - - X(2) = X(2)/JVS(2) - X(1) = X(1)/JVS(1) - -END SUBROUTINE KppSolve - -! End of KppSolve function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! KppSolveTR - sparse, transposed back substitution -! Arguments : -! JVS - sparse Jacobian of variables -! X - Vector for variables -! XX - Vector for output variables -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE KppSolveTR ( JVS, X, XX ) - -! JVS - sparse Jacobian of variables - REAL(kind=dp) :: JVS(LU_NONZERO) -! X - Vector for variables - REAL(kind=dp) :: X(NVAR) -! XX - Vector for output variables - REAL(kind=dp) :: XX(NVAR) - - XX(1) = X(1)/JVS(1) - XX(2) = X(2)/JVS(2) - XX(2) = XX(2) - XX(1) = XX(1) - -END SUBROUTINE KppSolveTR - -! End of KppSolveTR function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! BLAS_UTIL - BLAS-LIKE utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!-------------------------------------------------------------- -! -! BLAS/LAPACK-like subroutines used by the integration algorithms -! It is recommended to replace them by calls to the optimized -! BLAS/LAPACK library for your machine -! -! (C) Adrian Sandu, Aug. 2004 -! Virginia Polytechnic Institute and State University -!-------------------------------------------------------------- - - -!-------------------------------------------------------------- - SUBROUTINE WCOPY(N,X,incX,Y,incY) -!-------------------------------------------------------------- -! copies a vector, x, to a vector, y: y <- x -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SCOPY(N,X,1,Y,1) or CALL DCOPY(N,X,1,Y,1) -!-------------------------------------------------------------- -! USE NO_NO2_Precision - - INTEGER :: i,incX,incY,M,MP1,N - REAL(kind=dp) :: X(N),Y(N) - - IF (N.LE.0) RETURN - - M = MOD(N,8) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = X(i) - END DO - IF( N .LT. 8 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,8 - Y(i) = X(i) - Y(i + 1) = X(i + 1) - Y(i + 2) = X(i + 2) - Y(i + 3) = X(i + 3) - Y(i + 4) = X(i + 4) - Y(i + 5) = X(i + 5) - Y(i + 6) = X(i + 6) - Y(i + 7) = X(i + 7) - END DO - - END SUBROUTINE WCOPY - - -!-------------------------------------------------------------- - SUBROUTINE WAXPY(N,Alpha,X,incX,Y,incY) -!-------------------------------------------------------------- -! constant times a vector plus a vector: y <- y + Alpha*x -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SAXPY(N,Alpha,X,1,Y,1) or CALL DAXPY(N,Alpha,X,1,Y,1) -!-------------------------------------------------------------- - - INTEGER :: i,incX,incY,M,MP1,N - REAL(kind=dp) :: X(N),Y(N),Alpha - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp - - IF (Alpha .EQ. ZERO) RETURN - IF (N .LE. 0) RETURN - - M = MOD(N,4) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = Y(i) + Alpha*X(i) - END DO - IF( N .LT. 4 ) RETURN - END IF - MP1 = M + 1 - DO i = MP1,N,4 - Y(i) = Y(i) + Alpha*X(i) - Y(i + 1) = Y(i + 1) + Alpha*X(i + 1) - Y(i + 2) = Y(i + 2) + Alpha*X(i + 2) - Y(i + 3) = Y(i + 3) + Alpha*X(i + 3) - END DO - - END SUBROUTINE WAXPY - - - -!-------------------------------------------------------------- - SUBROUTINE WSCAL(N,Alpha,X,incX) -!-------------------------------------------------------------- -! constant times a vector: x(1:N) <- Alpha*x(1:N) -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SSCAL(N,Alpha,X,1) or CALL DSCAL(N,Alpha,X,1) -!-------------------------------------------------------------- - - INTEGER :: i,incX,M,MP1,N - REAL(kind=dp) :: X(N),Alpha - REAL(kind=dp), PARAMETER :: ZERO=0.0_dp, ONE=1.0_dp - - IF (Alpha .EQ. ONE) RETURN - IF (N .LE. 0) RETURN - - M = MOD(N,5) - IF( M .NE. 0 ) THEN - IF (Alpha .EQ. (-ONE)) THEN - DO i = 1,M - X(i) = -X(i) - END DO - ELSEIF (Alpha .EQ. ZERO) THEN - DO i = 1,M - X(i) = ZERO - END DO - ELSE - DO i = 1,M - X(i) = Alpha*X(i) - END DO - END IF - IF( N .LT. 5 ) RETURN - END IF - MP1 = M + 1 - IF (Alpha .EQ. (-ONE)) THEN - DO i = MP1,N,5 - X(i) = -X(i) - X(i + 1) = -X(i + 1) - X(i + 2) = -X(i + 2) - X(i + 3) = -X(i + 3) - X(i + 4) = -X(i + 4) - END DO - ELSEIF (Alpha .EQ. ZERO) THEN - DO i = MP1,N,5 - X(i) = ZERO - X(i + 1) = ZERO - X(i + 2) = ZERO - X(i + 3) = ZERO - X(i + 4) = ZERO - END DO - ELSE - DO i = MP1,N,5 - X(i) = Alpha*X(i) - X(i + 1) = Alpha*X(i + 1) - X(i + 2) = Alpha*X(i + 2) - X(i + 3) = Alpha*X(i + 3) - X(i + 4) = Alpha*X(i + 4) - END DO - END IF - - END SUBROUTINE WSCAL - -!-------------------------------------------------------------- - REAL(kind=dp) FUNCTION WLAMCH( C ) -!-------------------------------------------------------------- -! returns epsilon machine -! after LAPACK -! replace this by the function from the optimized LAPACK implementation: -! CALL SLAMCH('E') or CALL DLAMCH('E') -!-------------------------------------------------------------- -! USE NO_NO2_Precision - - CHARACTER :: C - INTEGER :: i - REAL(kind=dp), SAVE :: Eps - REAL(kind=dp) :: Suma - REAL(kind=dp), PARAMETER :: ONE=1.0_dp, HALF=0.5_dp - LOGICAL, SAVE :: First=.TRUE. - - IF (First) THEN - First = .FALSE. - Eps = HALF**(16) - DO i = 17, 80 - Eps = Eps*HALF - CALL WLAMCH_ADD(ONE,Eps,Suma) - IF (Suma.LE.ONE) GOTO 10 - END DO - PRINT*,'ERROR IN WLAMCH. EPS < ',Eps - RETURN -10 Eps = Eps*2 - i = i-1 - END IF - - WLAMCH = Eps - - END FUNCTION WLAMCH - - SUBROUTINE WLAMCH_ADD( A, B, Suma ) -! USE NO_NO2_Precision - - REAL(kind=dp) A, B, Suma - Suma = A + B - - END SUBROUTINE WLAMCH_ADD -!-------------------------------------------------------------- - - -!-------------------------------------------------------------- - SUBROUTINE SET2ZERO(N,Y) -!-------------------------------------------------------------- -! copies zeros into the vector y: y <- 0 -! after BLAS -!-------------------------------------------------------------- - - INTEGER :: i,M,MP1,N - REAL(kind=dp) :: Y(N) - REAL(kind=dp), PARAMETER :: ZERO = 0.0d0 - - IF (N.LE.0) RETURN - - M = MOD(N,8) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = ZERO - END DO - IF( N .LT. 8 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,8 - Y(i) = ZERO - Y(i + 1) = ZERO - Y(i + 2) = ZERO - Y(i + 3) = ZERO - Y(i + 4) = ZERO - Y(i + 5) = ZERO - Y(i + 6) = ZERO - Y(i + 7) = ZERO - END DO - - END SUBROUTINE SET2ZERO - - -!-------------------------------------------------------------- - REAL(kind=dp) FUNCTION WDOT (N, DX, incX, DY, incY) -!-------------------------------------------------------------- -! dot produce: wdot = x(1:N)*y(1:N) -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SDOT(N,X,1,Y,1) or CALL DDOT(N,X,1,Y,1) -!-------------------------------------------------------------- -! USE messy_mecca_kpp_Precision -!-------------------------------------------------------------- - IMPLICIT NONE - INTEGER :: N, incX, incY - REAL(kind=dp) :: DX(N), DY(N) - - INTEGER :: i, IX, IY, M, MP1, NS - - WDOT = 0.0D0 - IF (N .LE. 0) RETURN - IF (incX .EQ. incY) IF (incX-1) 5,20,60 -! -! Code for unequal or nonpositive increments. -! - 5 IX = 1 - IY = 1 - IF (incX .LT. 0) IX = (-N+1)*incX + 1 - IF (incY .LT. 0) IY = (-N+1)*incY + 1 - DO i = 1,N - WDOT = WDOT + DX(IX)*DY(IY) - IX = IX + incX - IY = IY + incY - END DO - RETURN -! -! Code for both increments equal to 1. -! -! Clean-up loop so remaining vector length is a multiple of 5. -! - 20 M = MOD(N,5) - IF (M .EQ. 0) GO TO 40 - DO i = 1,M - WDOT = WDOT + DX(i)*DY(i) - END DO - IF (N .LT. 5) RETURN - 40 MP1 = M + 1 - DO i = MP1,N,5 - WDOT = WDOT + DX(i)*DY(i) + DX(i+1)*DY(i+1) + DX(i+2)*DY(i+2) + & - DX(i+3)*DY(i+3) + DX(i+4)*DY(i+4) - END DO - RETURN -! -! Code for equal, positive, non-unit increments. -! - 60 NS = N*incX - DO i = 1,NS,incX - WDOT = WDOT + DX(i)*DY(i) - END DO - - END FUNCTION WDOT - - -!-------------------------------------------------------------- - SUBROUTINE WADD(N,X,Y,Z) -!-------------------------------------------------------------- -! adds two vectors: z <- x + y -! BLAS - like -!-------------------------------------------------------------- -! USE NO_NO2_Precision - - INTEGER :: i, M, MP1, N - REAL(kind=dp) :: X(N),Y(N),Z(N) - - IF (N.LE.0) RETURN - - M = MOD(N,5) - IF( M /= 0 ) THEN - DO i = 1,M - Z(i) = X(i) + Y(i) - END DO - IF( N < 5 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,5 - Z(i) = X(i) + Y(i) - Z(i + 1) = X(i + 1) + Y(i + 1) - Z(i + 2) = X(i + 2) + Y(i + 2) - Z(i + 3) = X(i + 3) + Y(i + 3) - Z(i + 4) = X(i + 4) + Y(i + 4) - END DO - - END SUBROUTINE WADD - - - -!-------------------------------------------------------------- - SUBROUTINE WGEFA(N,A,Ipvt,info) -!-------------------------------------------------------------- -! WGEFA FACTORS THE MATRIX A (N,N) BY -! GAUSS ELIMINATION WITH PARTIAL PIVOTING -! LINPACK - LIKE -!-------------------------------------------------------------- -! - INTEGER :: N,Ipvt(N),info - REAL(kind=dp) :: A(N,N) - REAL(kind=dp) :: t, dmax, da - INTEGER :: j,k,l - REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0 - - info = 0 - -size: IF (n > 1) THEN - -col: DO k = 1, n-1 - -! find l = pivot index -! l = idamax(n-k+1,A(k,k),1) + k - 1 - l = k; dmax = abs(A(k,k)) - DO j = k+1,n - da = ABS(A(j,k)) - IF (da > dmax) THEN - l = j; dmax = da - END IF - END DO - Ipvt(k) = l - -! zero pivot implies this column already triangularized - IF (ABS(A(l,k)) < TINY(ZERO)) THEN - info = k - return - ELSE - IF (l /= k) THEN - t = A(l,k); A(l,k) = A(k,k); A(k,k) = t - END IF - t = -ONE/A(k,k) - CALL WSCAL(n-k,t,A(k+1,k),1) - DO j = k+1, n - t = A(l,j) - IF (l /= k) THEN - A(l,j) = A(k,j); A(k,j) = t - END IF - CALL WAXPY(n-k,t,A(k+1,k),1,A(k+1,j),1) - END DO - END IF - - END DO col - - END IF size - - Ipvt(N) = N - IF (ABS(A(N,N)) == ZERO) info = N - - END SUBROUTINE WGEFA - - -!-------------------------------------------------------------- - SUBROUTINE WGESL(Trans,N,A,Ipvt,b) -!-------------------------------------------------------------- -! WGESL solves the system -! a * x = b or trans(a) * x = b -! using the factors computed by WGEFA. -! -! Trans = 'N' to solve A*x = b , -! = 'T' to solve transpose(A)*x = b -! LINPACK - LIKE -!-------------------------------------------------------------- - - INTEGER :: N,Ipvt(N) - CHARACTER :: trans - REAL(kind=dp) :: A(N,N),b(N) - REAL(kind=dp) :: t - INTEGER :: k,kb,l - - - SELECT CASE (Trans) - - CASE ('n','N') ! Solve A * x = b - -! first solve L*y = b - IF (n >= 2) THEN - DO k = 1, n-1 - l = Ipvt(k) - t = b(l) - IF (l /= k) THEN - b(l) = b(k) - b(k) = t - END IF - CALL WAXPY(n-k,t,a(k+1,k),1,b(k+1),1) - END DO - END IF -! now solve U*x = y - DO kb = 1, n - k = n + 1 - kb - b(k) = b(k)/a(k,k) - t = -b(k) - CALL WAXPY(k-1,t,a(1,k),1,b(1),1) - END DO - - CASE ('t','T') ! Solve transpose(A) * x = b - -! first solve trans(U)*y = b - DO k = 1, n - t = WDOT(k-1,a(1,k),1,b(1),1) - b(k) = (b(k) - t)/a(k,k) - END DO -! now solve trans(L)*x = y - IF (n >= 2) THEN - DO kb = 1, n-1 - k = n - kb - b(k) = b(k) + WDOT(n-k,a(k+1,k),1,b(k+1),1) - l = Ipvt(k) - IF (l /= k) THEN - t = b(l); b(l) = b(k); b(k) = t - END IF - END DO - END IF - - END SELECT - - END SUBROUTINE WGESL -! End of BLAS_UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE NO_NO2_LinearAlgebra - diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_LinearAlgebra.o b/boxmox/compiled_mechs/NO_NO2/NO_NO2_LinearAlgebra.o deleted file mode 100644 index 78c705cf1b139387dc261a02742de619304d1aba..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/NO_NO2_LinearAlgebra.o and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Main.f90 b/boxmox/compiled_mechs/NO_NO2/NO_NO2_Main.f90 deleted file mode 100644 index 523c2c884b0b4876c9814de2f338a930ed21126c..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Main.f90 +++ /dev/null @@ -1,161 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Main Program File -! -! Generated by KPP-2.2.3 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 : NO_NO2_Main.f90 -! Time : Thu Oct 8 08:22:19 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_NO_NO2_9716_BOXMOX -! Equation file : NO_NO2.kpp -! Output root filename : NO_NO2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! MAIN - Main program - driver routine -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -PROGRAM NO_NO2_Driver - - USE NO_NO2_Model - USE NO_NO2_Initialize, ONLY: Initialize - - REAL(kind=dp) :: T, DVAL(NSPEC) - REAL(kind=dp) :: RSTATE(20) - INTEGER :: IERR - INTEGER :: i, tcount, ttot - CHARACTER(LEN=60), PARAMETER :: & - brk = "------------------------------------------------------------" - - !~~~> Initialization - - STEPMIN = 0.0d0 - STEPMAX = 0.0d0 - - DO i=1,NVAR - RTOL(i) = 1.0d-4 - ATOL(i) = 1.0d-3 - END DO - - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX (__BOXMOX_VERSION__) driver" - WRITE(*,*) brk - WRITE(*,*) " " - - CALL Initialize() - - WRITE(*,*) brk - WRITE(*,*) " " - - CALL UpdateEnvironment() - - CALL readInput('InitialConditions.csv', NSPEC, SPC_NAMES, C, & - InitialCondition) - CALL InitSaveData() - - CALL InitFixNOx(NSPEC, SPC_NAMES, C) - - !~~~> Time loop - T = TSTART - tcount = 1 - ttot = NINT((TEND - TSTART) / DT) - kron: DO WHILE (T < TEND) - - IF (lverbose) THEN - WRITE(*,*) "" - WRITE(*,"(1X,A,F8.2,A)") "-------------------- time (s): ", T, & - " --------------------" - WRITE(*,*) "" - ENDIF - - TIME = T - CALL GetMass( C, DVAL ) - CALL SaveData() - - CALL UpdateEnvironment() - CALL UpdateAerosol() - CALL UpdatePhotolysisRates() - - CALL UpdateKturb() - - CALL readInput('Background.csv', NSPEC, SPC_NAMES, C, Mix, lzero=.TRUE.) - CALL readInput('Emissions.csv', NSPEC, SPC_NAMES, C, Emission) - CALL readInput('Deposition.csv', NSPEC, SPC_NAMES, C, Deposition) - - CALL Update_SUN() - CALL Update_RCONST() - - IF (T == TSTART) WRITE(*,*) " " - - IF ( MOD(tcount * 10, ttot) .EQ. 0 ) THEN - WRITE(6,991) (T-TSTART)/(TEND-TSTART)*100, T, & - ( TRIM(SPC_NAMES(MONITOR(i))), & - C(MONITOR(i))/CFACTOR, i=1,NMONITOR ) - ENDIF - - IF (lfix_NOx) THEN - CALL FixNOx(NSPEC, SPC_NAMES, C) - ENDIF - - CALL INTEGRATE( TIN = T, TOUT = T+DT, RSTATUS_U = RSTATE, & - ICNTRL_U = (/ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /), & - IERR_U = IERR ) - T = RSTATE(1) - - tcount = tcount + 1 - - IF (IERR < 0) THEN - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX integration failed, stopping." - WRITE(*,*) brk - WRITE(*,*) " " - STOP 1 - ENDIF - - IF (T == TSTART .OR. lverbose) THEN - WRITE(*,*) "" - WRITE(*,*) brk - WRITE(*,*) "" - ENDIF - - END DO kron - !~~~> End Time loop - - CALL GetMass( C, DVAL ) - WRITE(6,991) (T-TSTART)/(TEND-TSTART)*100, T, & - ( TRIM(SPC_NAMES(MONITOR(i))), & - C(MONITOR(i))/CFACTOR, i=1,NMONITOR ) - TIME = T - CALL SaveData() - CALL CloseSaveData() - - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX successfully completed." - WRITE(*,*) brk - WRITE(*,*) " " - -991 FORMAT(F6.1,'%. T=',E9.3,2X,200(A,'=',E11.4,'; ')) - -END PROGRAM NO_NO2_Driver - -! End of MAIN function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Main.o b/boxmox/compiled_mechs/NO_NO2/NO_NO2_Main.o deleted file mode 100644 index 8f6b1e94a9d6923c51f7ca625531aee5e0fdf8ac..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Main.o and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Model.f90 b/boxmox/compiled_mechs/NO_NO2/NO_NO2_Model.f90 deleted file mode 100644 index c48c48b373c907aba430fed3c8b8cc8c0f997625..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Model.f90 +++ /dev/null @@ -1,21 +0,0 @@ -MODULE NO_NO2_Model - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Completely defines the model NO_NO2 -! by using all the associated modules -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE NO_NO2_Precision - USE NO_NO2_Parameters - USE NO_NO2_Global - USE NO_NO2_Function - USE NO_NO2_Integrator - USE NO_NO2_Rates - USE NO_NO2_Jacobian - USE NO_NO2_Stoichiom - USE NO_NO2_LinearAlgebra - USE NO_NO2_Monitor - USE NO_NO2_Util - -END MODULE NO_NO2_Model - diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Model.o b/boxmox/compiled_mechs/NO_NO2/NO_NO2_Model.o deleted file mode 100644 index dfed15a39add6155a7f70c8fcb499e94a194276a..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Model.o and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Monitor.f90 b/boxmox/compiled_mechs/NO_NO2/NO_NO2_Monitor.f90 deleted file mode 100644 index c5fe70519784252a39e70185a815d0bad722a372..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Monitor.f90 +++ /dev/null @@ -1,46 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Utility Data Module File -! -! Generated by KPP-2.2.3 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 : NO_NO2_Monitor.f90 -! Time : Thu Oct 8 08:22:19 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_NO_NO2_9716_BOXMOX -! Equation file : NO_NO2.kpp -! Output root filename : NO_NO2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE NO_NO2_Monitor - - - CHARACTER(LEN=15), PARAMETER, DIMENSION(4) :: SPC_NAMES = (/ & - 'NO ','NO2 ','O3 ', & - 'O2 ' /) - - INTEGER, PARAMETER, DIMENSION(4) :: LOOKAT = (/ & - 1, 2, 3, 4 /) - - INTEGER, DIMENSION(1) :: MONITOR - CHARACTER(LEN=15), DIMENSION(1) :: SMASS - CHARACTER(LEN=500), PARAMETER, DIMENSION(2) :: EQN_NAMES = (/ & - 'NO + O3 --> NO + O2 ', & - ' NO2 --> NO2 + O3 ' /) - -! INLINED global variables - -! End INLINED global variables - - -END MODULE NO_NO2_Monitor diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Monitor.o b/boxmox/compiled_mechs/NO_NO2/NO_NO2_Monitor.o deleted file mode 100644 index 65d4f49629d4e6691fc6e93fe3f4bdd86452273a..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Monitor.o and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Parameters.f90 b/boxmox/compiled_mechs/NO_NO2/NO_NO2_Parameters.f90 deleted file mode 100644 index 0ea6e6175c0f0eea515c6946ac3a36a86b449bc0..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Parameters.f90 +++ /dev/null @@ -1,86 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Parameter Module File -! -! Generated by KPP-2.2.3 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 : NO_NO2_Parameters.f90 -! Time : Thu Oct 8 08:22:19 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_NO_NO2_9716_BOXMOX -! Equation file : NO_NO2.kpp -! Output root filename : NO_NO2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE NO_NO2_Parameters - - USE NO_NO2_Precision - PUBLIC - SAVE - - -! NSPEC - Number of chemical species - INTEGER, PARAMETER :: NSPEC = 4 -! NVAR - Number of Variable species - INTEGER, PARAMETER :: NVAR = 2 -! NVARACT - Number of Active species - INTEGER, PARAMETER :: NVARACT = 2 -! NFIX - Number of Fixed species - INTEGER, PARAMETER :: NFIX = 2 -! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 2 -! NVARST - Starting of variables in conc. vect. - INTEGER, PARAMETER :: NVARST = 1 -! NFIXST - Starting of fixed in conc. vect. - INTEGER, PARAMETER :: NFIXST = 3 -! NONZERO - Number of nonzero entries in Jacobian - INTEGER, PARAMETER :: NONZERO = 2 -! LU_NONZERO - Number of nonzero entries in LU factoriz. of Jacobian - INTEGER, PARAMETER :: LU_NONZERO = 2 -! CNVAR - (NVAR+1) Number of elements in compressed row format - INTEGER, PARAMETER :: CNVAR = 3 -! CNEQN - (NREACT+1) Number stoicm elements in compressed col format - INTEGER, PARAMETER :: CNEQN = 3 -! NLOOKAT - Number of species to look at - INTEGER, PARAMETER :: NLOOKAT = 4 -! NMONITOR - Number of species to monitor - INTEGER, PARAMETER :: NMONITOR = 0 -! NMASS - Number of atoms to check mass balance - INTEGER, PARAMETER :: NMASS = 1 - -! Index declaration for variable species in C and VAR -! VAR(ind_spc) = C(ind_spc) - - INTEGER, PARAMETER :: ind_NO = 1 - INTEGER, PARAMETER :: ind_NO2 = 2 - -! Index declaration for fixed species in C -! C(ind_spc) - - INTEGER, PARAMETER :: ind_O3 = 3 - INTEGER, PARAMETER :: ind_O2 = 4 - -! Index declaration for fixed species in FIX -! FIX(indf_spc) = C(ind_spc) = C(NVAR+indf_spc) - - INTEGER, PARAMETER :: indf_O3 = 1 - INTEGER, PARAMETER :: indf_O2 = 2 - -! NJVRP - Length of sparse Jacobian JVRP - INTEGER, PARAMETER :: NJVRP = 2 - -! NSTOICM - Length of Sparse Stoichiometric Matrix - INTEGER, PARAMETER :: NSTOICM = 1 - -END MODULE NO_NO2_Parameters - diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Parameters.o b/boxmox/compiled_mechs/NO_NO2/NO_NO2_Parameters.o deleted file mode 100644 index b0484eb64b2de0007a19a7e0bc55ae0c5959a638..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Parameters.o and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Precision.f90 b/boxmox/compiled_mechs/NO_NO2/NO_NO2_Precision.f90 deleted file mode 100644 index 2c910e3f6f5e5193d677f1e7c590f461bd24598a..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Precision.f90 +++ /dev/null @@ -1,17 +0,0 @@ - -MODULE NO_NO2_Precision - -! -! Definition of different levels of accuracy -! for REAL variables using KIND parameterization -! -! KPP SP - Single precision kind - INTEGER, PARAMETER :: sp = SELECTED_REAL_KIND(6,30) -! KPP DP - Double precision kind - INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(14,300) -! KPP QP - Quadruple precision kind - INTEGER, PARAMETER :: qp = SELECTED_REAL_KIND(18,400) - -END MODULE NO_NO2_Precision - - diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Precision.o b/boxmox/compiled_mechs/NO_NO2/NO_NO2_Precision.o deleted file mode 100644 index 311c1af0012f601a358fbad672bea6019b0a52ef..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Precision.o and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Rates.f90 b/boxmox/compiled_mechs/NO_NO2/NO_NO2_Rates.f90 deleted file mode 100644 index 41546fb004ca021a15f357cbf79e8a614eaf57a6..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Rates.f90 +++ /dev/null @@ -1,412 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The Reaction Rates File -! -! Generated by KPP-2.2.3 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 : NO_NO2_Rates.f90 -! Time : Thu Oct 8 08:22:19 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_NO_NO2_9716_BOXMOX -! Equation file : NO_NO2.kpp -! Output root filename : NO_NO2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE NO_NO2_Rates - - USE NO_NO2_Parameters - USE NO_NO2_Global - USE NO_NO2_Util - IMPLICIT NONE - -CONTAINS - - - -! Begin Rate Law Functions from KPP_HOME/util/UserRateLaws - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! User-defined Rate Law functions -! Note: the default argument type for rate laws, as read from the equations file, is single precision -! but all the internal calculations are performed in double precision -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~> Arrhenius -! REAL(kind=dp) FUNCTION ARR( A0,B0,C0 ) -! REAL A0,B0,C0 -! ARR = DBLE(A0) * EXP(-DBLE(B0)/TEMP) * (TEMP/300.0_dp)**DBLE(C0) -! END FUNCTION ARR - -! Arrhenius (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION ARR( A0,B0,C0, TEMP ) - REAL(kind=dp) :: TEMP - REAL(kind=dp) A0,B0,C0 - ARR = A0 * EXP( -B0 /TEMP ) * (TEMP/300._dp)**C0 - END FUNCTION ARR - -!~~~> Simplified Arrhenius, with two arguments -!~~~> Note: The argument B0 has a changed sign when compared to ARR -! REAL(kind=dp) FUNCTION ARR2( A0,B0 ) -! REAL A0,B0 -! ARR2 = DBLE(A0) * EXP( DBLE(B0)/TEMP ) -! END FUNCTION ARR2 -! CK 20140313 WRF-chem uses different kind of Arrhenius function -! with TEMP as argument... - REAL(kind=dp) FUNCTION ARR2( A0,B0, TEMP ) - REAL(kind=dp) :: TEMP - REAL(kind=dp) A0,B0 - ARR2 = A0 * EXP( -B0 /TEMP ) - END FUNCTION ARR2 -! CK 20140313 end - -! REAL(kind=dp) FUNCTION EP2(A0,C0,A2,C2,A3,C3) -! REAL A0,C0,A2,C2,A3,C3 -! REAL(kind=dp) K0,K2,K3 -! K0 = DBLE(A0) * EXP(-DBLE(C0)/TEMP) -! K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP) -! K3 = DBLE(A3) * EXP(-DBLE(C3)/TEMP) -! K3 = K3*CFACTOR*1.0E6_dp -! EP2 = K0 + K3/(1.0_dp+K3/K2 ) -! END FUNCTION EP2 - -! REAL(kind=dp) FUNCTION EP3(A1,C1,A2,C2) -! REAL A1, C1, A2, C2 -! REAL(kind=dp) K1, K2 -! K1 = DBLE(A1) * EXP(-DBLE(C1)/TEMP) -! K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP) -! EP3 = K1 + K2*(1.0E6_dp*CFACTOR) -! END FUNCTION EP3 - -! EP2 (added by psaide 22-07-2009) - REAL(kind=dp) FUNCTION EP2( A0,C0,A2,C2,A3,C3,TEMP,cair) - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A0,C0,A2,C2,A3,C3 - REAL(kind=dp) K0,K2,K3 - - K0 = A0 * EXP(-C0 /TEMP) - K2 = A2 * EXP(-C2 /TEMP) - K3 = A3 * EXP(-C3 /TEMP) -! K3 = K3 * 2.45E13_dp * 1.0E6_dp - K3 = K3 * cair - EP2 = K0 + K3/(1._dp+K3/K2 ) - END FUNCTION EP2 - -! EP3 (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION EP3(A1,C1,A2,C2,TEMP,cair) - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A1, C1, A2, C2 - REAL(kind=dp) K1, K2 - - K1 = A1 * EXP(-C1 /TEMP) - K2 = A2 * EXP(-C2 /TEMP) -! EP3 = K1 + K2*(1.0E6_dp * 2.45E13_dp) - EP3 = K1 + K2*cair - END FUNCTION EP3 - - -! REAL(kind=dp) FUNCTION FALL ( A0,B0,C0,A1,B1,C1,CF) -! REAL A0,B0,C0,A1,B1,C1,CF -! REAL(kind=dp) K0, K1 -! K0 = DBLE(A0) * EXP(-DBLE(B0)/TEMP)* (TEMP/300.0_dp)**DBLE(C0) -! K1 = DBLE(A1) * EXP(-DBLE(B1)/TEMP)* (TEMP/300.0_dp)**DBLE(C1) -! K0 = K0*CFACTOR*1.0E6_dp -! K1 = K0/K1 -! FALL = (K0/(1.0_dp+K1))* & -! DBLE(CF)**(1.0_dp/(1.0_dp+(LOG10(K1))**2)) -! END FUNCTION FALL - -! FALL (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION FALL( A0,B0,C0,A1,B1,C1,CF,TEMP,cair) - - INTRINSIC LOG10 - - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A0,B0,C0,A1,B1,C1,CF - REAL(kind=dp) K0, K1 - - K0 = A0 * EXP(-B0 /TEMP)* (TEMP/300._dp)**C0 - K1 = A1 * EXP(-B1 /TEMP)* (TEMP/300._dp)**C1 -! K0 = K0 * 2.45E13_dp * 1.0E6_dp - K0 = K0 * cair - K1 = K0/K1 - FALL = (K0/(1._dp+K1))*CF**(1._dp/(1._dp+(LOG10(K1))**2)) - - END FUNCTION FALL - -! FALL2 (added by psaide 28-10-2009) - REAL(KIND=dp) FUNCTION F2( A0,B0,C0,A1,B1,C1,CF,CN,TEMP,cair) - - INTRINSIC LOG10 - - REAL(KIND=dp) :: TEMP - REAL(KIND=dp) :: cair - REAL(KIND=dp) A0,B0,C0,A1,B1,C1,CF,CN - REAL(KIND=dp) K0, K1 - - K0 = A0 * EXP(-B0 /TEMP)* (TEMP/300._dp)**C0 - K1 = A1 * EXP(-B1 /TEMP)* (TEMP/300._dp)**C1 -! K0 = K0 * 2.45E13_dp * 1.0E6_dp - K0 = K0 * cair - K1 = K0/K1 - F2 = (K0/(1._dp+K1))*CF**(1._dp/(1._dp+(LOG10(K1)/CN)**2)) - - END FUNCTION F2 - - - !--------------------------------------------------------------------------- - - ELEMENTAL REAL(kind=dp) FUNCTION k_3rd(temp,cair,k0_300K,n,kinf_300K,m,fc) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL, INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL, INTENT(IN) :: n ! exponent for low pressure limit - REAL, INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL, INTENT(IN) :: m ! exponent for high pressure limit - REAL, INTENT(IN) :: fc ! broadening factor (usually fc=0.6) - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - k_3rd = k0_T/(1._dp+k_ratio)*fc**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - END FUNCTION k_3rd - - !--------------------------------------------------------------------------- - - ELEMENTAL REAL(kind=dp) FUNCTION k_arr (k_298,tdep,temp) - ! Arrhenius function - - REAL, INTENT(IN) :: k_298 ! k at T = 298.15K - REAL, INTENT(IN) :: tdep ! temperature dependence - REAL(kind=dp), INTENT(IN) :: temp ! temperature - - INTRINSIC EXP - - k_arr = k_298 * EXP(tdep*(1._dp/temp-3.3540E-3_dp)) ! 1/298.15=3.3540e-3 - - END FUNCTION k_arr - -! CK 20140313 in the following some more rate functions needed by -! WRF-chem packages - -!------------------------------------ -! Troe reactions (as in Stockwell et al, 1997) - - REAL(kind=dp) FUNCTION TROE(k0_300K,n,kinf_300K,m,temp,cair) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - TROE = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - END FUNCTION TROE - - - -!------------------------------------------- -! Troe equilibrium reactions (as in Stockwell et al, 1997) - - REAL(kind=dp) FUNCTION TROEE(A, B, k0_300K,n,kinf_300K,m,temp,cair) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - REAL(kind=dp), INTENT(IN) :: A, B - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio, troe - - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - troe = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - TROEE = A * EXP( - B / temp) * troe - - - - END FUNCTION TROEE - -!------------------------ -! k=T^2 C exp (-D/T) reactions - - REAL(kind=dp) FUNCTION THERMAL_T2(c, d ,temp) - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: c, d - - - THERMAL_T2= temp**2._dp * c * EXP(- d / temp) - - END FUNCTION THERMAL_T2 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! End of User-defined Rate Law functions -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -! End Rate Law Functions from KPP_HOME/util/UserRateLaws - - -! Begin INLINED Rate Law Functions - - - -! **************************************************************************** -! J - the photolysis rate retrieval function -! **************************************************************************** - REAL(kind=dp) FUNCTION J(name) - - CHARACTER(LEN=*), INTENT(IN) :: name - - CHARACTER(LEN=15) :: xname - - INTEGER :: i - - xname(:) = " " - xname(1:LEN(name)) = name - - J = jvalues(hash(xname)) - - RETURN - - END FUNCTION J -! **************************************************************************** - - - -REAL(kind=dp) FUNCTION test( A ) - - REAL(KIND=dp), INTENT(IN) :: A - - test = A * 1e-6 - -END FUNCTION test - -!------------------------------------------------------------ - - -! End INLINED Rate Law Functions - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_SUN - update SUN light using TIME -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - SUBROUTINE Update_SUN() - !USE NO_NO2_Parameters - !USE NO_NO2_Global - - IMPLICIT NONE - - REAL(kind=dp) :: SunRise, SunSet - REAL(kind=dp) :: Thour, Tlocal, Ttmp - ! PI - Value of pi - REAL(kind=dp), PARAMETER :: PI = 3.14159265358979d0 - - SunRise = 4.5_dp - SunSet = 19.5_dp - Thour = TIME/3600.0_dp - Tlocal = Thour - (INT(Thour)/24)*24 - - IF ((Tlocal>=SunRise).AND.(Tlocal<=SunSet)) THEN - Ttmp = (2.0*Tlocal-SunRise-SunSet)/(SunSet-SunRise) - IF (Ttmp.GT.0) THEN - Ttmp = Ttmp*Ttmp - ELSE - Ttmp = -Ttmp*Ttmp - END IF - SUN = ( 1.0_dp + COS(PI*Ttmp) )/2.0_dp - ELSE - SUN = 0.0_dp - END IF - - END SUBROUTINE Update_SUN - -! End of Update_SUN function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_RCONST - function to update rate constants -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Update_RCONST ( ) - - - - -! Begin INLINED RCONST - - -! End INLINED RCONST - - RCONST(1) = (ARR2(3.0e-12_dp,1500.0_dp,TEMP)) - RCONST(2) = (j('no2')) - -END SUBROUTINE Update_RCONST - -! End of Update_RCONST function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_PHOTO - function to update photolytical rate constants -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Update_PHOTO ( ) - - - USE NO_NO2_Global - - RCONST(2) = (j('no2')) - -END SUBROUTINE Update_PHOTO - -! End of Update_PHOTO function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE NO_NO2_Rates - diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Rates.o b/boxmox/compiled_mechs/NO_NO2/NO_NO2_Rates.o deleted file mode 100644 index b58abd7c8be5cafb42cb4103de3d25948616d802..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Rates.o and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Stoichiom.f90 b/boxmox/compiled_mechs/NO_NO2/NO_NO2_Stoichiom.f90 deleted file mode 100644 index 8c30cb70c9ef5fb23aedc9744b4dc2a8b59a8cf4..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Stoichiom.f90 +++ /dev/null @@ -1,219 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The Stoichiometric Chemical Model File -! -! Generated by KPP-2.2.3 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 : NO_NO2_Stoichiom.f90 -! Time : Thu Oct 8 08:22:19 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_NO_NO2_9716_BOXMOX -! Equation file : NO_NO2.kpp -! Output root filename : NO_NO2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE NO_NO2_Stoichiom - - USE NO_NO2_Parameters - USE NO_NO2_StoichiomSP - - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! ReactantProd - Reactant Products in each equation -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! ARP - Reactant product in each equation -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE ReactantProd ( V, F, ARP ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! F - Concentrations of fixed species (local) - REAL(kind=dp) :: F(NFIX) -! ARP - Reactant product in each equation - REAL(kind=dp) :: ARP(NREACT) - - -! Reactant Products in each equation are useful in the -! stoichiometric formulation of mass action law - ARP(1) = V(1)*F(1) - ARP(2) = V(2) - -END SUBROUTINE ReactantProd - -! End of ReactantProd function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! JacReactantProd - Jacobian of Reactant Products vector -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! JVRP - d ARP(1:NREACT)/d VAR (1:NVAR) -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE JacReactantProd ( V, F, JVRP ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! F - Concentrations of fixed species (local) - REAL(kind=dp) :: F(NFIX) -! JVRP - d ARP(1:NREACT)/d VAR (1:NVAR) - REAL(kind=dp) :: JVRP(NJVRP) - - -! Reactant Products in each equation are useful in the -! stoichiometric formulation of mass action law -! Below we compute the Jacobian of the Reactant Products vector -! w.r.t. variable species: d ARP(1:NREACT) / d Var(1:NVAR) - -! JVRP(1) = dARP(1)/dV(1) - JVRP(1) = F(1) -! JVRP(2) = dARP(2)/dV(2) - JVRP(2) = 1 - -END SUBROUTINE JacReactantProd - -! End of JacReactantProd function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! Begin Derivative w.r.t. Rate Coefficients - -! ------------------------------------------------------------------------------ -! Subroutine for the derivative of Fun with respect to rate coefficients -! ----------------------------------------------------------------------------- - - SUBROUTINE dFun_dRcoeff( V, F, NCOEFF, JCOEFF, DFDR ) - - USE NO_NO2_Parameters - USE NO_NO2_StoichiomSP - IMPLICIT NONE - -! V - Concentrations of variable/radical/fixed species - REAL(kind=dp) V(NVAR), F(NFIX) -! NCOEFF - the number of rate coefficients with respect to which we differentiate - INTEGER NCOEFF -! JCOEFF - a vector of integers containing the indices of reactions (rate -! coefficients) with respect to which we differentiate - INTEGER JCOEFF(NCOEFF) -! DFDR - a matrix containg derivative values; specifically, -! column j contains d Fun(1:NVAR) / d RCT( JCOEFF(j) ) -! for each 1 <= j <= NCOEFF -! This matrix is stored in a column-wise linearized format - REAL(kind=dp) DFDR(NVAR*NCOEFF) - -! Local vector with reactant products - REAL(kind=dp) A_RPROD(NREACT) - REAL(kind=dp) aj - INTEGER i,j,k - -! Compute the reactant products of all reactions - CALL ReactantProd ( V, F, A_RPROD ) - -! Compute the derivatives by multiplying column JCOEFF(j) of the stoichiometric matrix with A_RPROD - DO j=1,NCOEFF -! Initialize the j-th column of derivative matrix to zero - DO i=1,NVAR - DFDR(i+NVAR*(j-1)) = 0.0_dp - END DO -! Column JCOEFF(j) in the stoichiometric matrix times the -! reactant product of the JCOEFF(j)-th reaction -! give the j-th column of the derivative matrix - aj = A_RPROD(JCOEFF(j)) - DO k=CCOL_STOICM(JCOEFF(j)),CCOL_STOICM(JCOEFF(j)+1)-1 - DFDR(IROW_STOICM(k)+NVAR*(j-1)) = STOICM(k)*aj - END DO - END DO - - END SUBROUTINE dFun_dRcoeff - -! End Derivative w.r.t. Rate Coefficients - - -! Begin Jacobian Derivative w.r.t. Rate Coefficients - -! ------------------------------------------------------------------------------ -! Subroutine for the derivative of Jac with respect to rate coefficients -! Times a user vector -! ----------------------------------------------------------------------------- - - SUBROUTINE dJac_dRcoeff( V, F, U, NCOEFF, JCOEFF, DJDR ) - - USE NO_NO2_Parameters - USE NO_NO2_StoichiomSP - IMPLICIT NONE - -! V - Concentrations of variable/fixed species - REAL(kind=dp) V(NVAR), F(NFIX) -! U - User-supplied Vector - REAL(kind=dp) U(NVAR) -! NCOEFF - the number of rate coefficients with respect to which we differentiate - INTEGER NCOEFF -! JCOEFF - a vector of integers containing the indices of reactions (rate -! coefficients) with respect to which we differentiate - INTEGER JCOEFF(NCOEFF) -! DFDR - a matrix containg derivative values; specifically, -! column j contains d Jac(1:NVAR) / d RCT( JCOEFF(j) ) * U -! for each 1 <= j <= NCOEFF -! This matrix is stored in a column-wise linearized format - REAL(kind=dp) DJDR(NVAR*NCOEFF) - -! Local vector for Jacobian of reactant products - REAL(kind=dp) JV_RPROD(NJVRP) - REAL(kind=dp) aj - INTEGER i,j,k - -! Compute the Jacobian of all reactant products - CALL JacReactantProd( V, F, JV_RPROD ) - -! Compute the derivatives by multiplying column JCOEFF(j) of the stoichiometric matrix with A_PROD - DO j=1,NCOEFF -! Initialize the j-th column of derivative matrix to zero - DO i=1,NVAR - DJDR(i+NVAR*(j-1)) = 0.0_dp - END DO -! Column JCOEFF(j) in the stoichiometric matrix times the -! ( Gradient of reactant product of the JCOEFF(j)-th reaction X user vector ) -! give the j-th column of the derivative matrix -! -! Row JCOEFF(j) of JV_RPROD times the user vector - aj = 0.0_dp - DO k=CROW_JVRP(JCOEFF(j)),CROW_JVRP(JCOEFF(j)+1)-1 - aj = aj + JV_RPROD(k)*U(ICOL_JVRP(k)) - END DO -! Column JCOEFF(j) of Stoichiom. matrix times aj - DO k=CCOL_STOICM(JCOEFF(j)),CCOL_STOICM(JCOEFF(j)+1)-1 - DJDR(IROW_STOICM(k)+NVAR*(j-1)) = STOICM(k)*aj - END DO - END DO - - END SUBROUTINE dJac_dRcoeff - -! End Jacobian Derivative w.r.t. Rate Coefficients - - -END MODULE NO_NO2_Stoichiom - diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Stoichiom.o b/boxmox/compiled_mechs/NO_NO2/NO_NO2_Stoichiom.o deleted file mode 100644 index dedb4d0b7e173277f3d8361c0ae425abf099ce40..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Stoichiom.o and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_StoichiomSP.f90 b/boxmox/compiled_mechs/NO_NO2/NO_NO2_StoichiomSP.f90 deleted file mode 100644 index 4f373527abdf5094065e862c615805c9a5d79c4f..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/NO_NO2/NO_NO2_StoichiomSP.f90 +++ /dev/null @@ -1,56 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Sparse Stoichiometric Data Structures File -! -! Generated by KPP-2.2.3 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 : NO_NO2_StoichiomSP.f90 -! Time : Thu Oct 8 08:22:19 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_NO_NO2_9716_BOXMOX -! Equation file : NO_NO2.kpp -! Output root filename : NO_NO2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE NO_NO2_StoichiomSP - - USE NO_NO2_Precision - PUBLIC - SAVE - - -! Row-compressed sparse data for the Jacobian of reaction products JVRP - - INTEGER, PARAMETER, DIMENSION(3) :: CROW_JVRP = (/ & - 1, 2, 3 /) - - INTEGER, PARAMETER, DIMENSION(2) :: ICOL_JVRP = (/ & - 1, 2 /) - - INTEGER, PARAMETER, DIMENSION(2) :: IROW_JVRP = (/ & - 1, 2 /) - - - -! Stoichiometric Matrix in Compressed Column Sparse Format - - - INTEGER, PARAMETER, DIMENSION(3) :: CCOL_STOICM = (/ & - 1, 1, 1 /) - - INTEGER, DIMENSION(1) :: IROW_STOICM - INTEGER, DIMENSION(1) :: ICOL_STOICM - REAL(kind=dp), DIMENSION(1) :: STOICM - -END MODULE NO_NO2_StoichiomSP - diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_StoichiomSP.o b/boxmox/compiled_mechs/NO_NO2/NO_NO2_StoichiomSP.o deleted file mode 100644 index c928291dea88b5e9630b435ce2084fe33dbd9861..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/NO_NO2_StoichiomSP.o and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Util.f90 b/boxmox/compiled_mechs/NO_NO2/NO_NO2_Util.f90 deleted file mode 100644 index 42a79a47e4dfb64e43a321bfb3dc4346ac1f793e..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Util.f90 +++ /dev/null @@ -1,1406 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Auxiliary Routines File -! -! Generated by KPP-2.2.3 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 : NO_NO2_Util.f90 -! Time : Thu Oct 8 08:22:19 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_NO_NO2_9716_BOXMOX -! Equation file : NO_NO2.kpp -! Output root filename : NO_NO2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE NO_NO2_Util - - USE NO_NO2_Parameters - USE NO_NO2_Global - USE NO_NO2_Monitor - IMPLICIT NONE - -CONTAINS - - - -! User INLINED Utility Functions - - -! **************************************************************************** -! **************************************************************************** -! BOXMOX utilities -! **************************************************************************** -! **************************************************************************** - - -! **************************************************************************** -! toUPPER - convert ASCII characters to all upper case -! from http://stackoverflow.com/questions/10759375/ -! how-can-i-write-a-to-upper-or-to-lower-function-in-f90 -! **************************************************************************** - FUNCTION toUPPER (str) RESULT (string) - - CHARACTER(*), INTENT(In) :: str - CHARACTER(LEN(str)) :: string - - INTEGER :: ic, i - - CHARACTER(26), PARAMETER :: cap = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' - CHARACTER(26), PARAMETER :: low = 'abcdefghijklmnopqrstuvwxyz' - - string = str - DO i = 1, LEN_TRIM(str) - ic = INDEX(low, str(i:i)) - IF (ic > 0) string(i:i) = cap(ic:ic) - END DO - - END FUNCTION toUPPER -! **************************************************************************** - - -! **************************************************************************** -! hash - a string hashing function -! from flibs, http://flibs.sourceforge.net -! **************************************************************************** - INTEGER FUNCTION hash( key ) - - CHARACTER(len=*), INTENT(in) :: key - - INTEGER :: i - - INTEGER, PARAMETER :: hash_size = 49931 - INTEGER, PARAMETER :: multiplier = 312 - - hash = 0 - - DO i = 1,LEN(key) - hash = MODULO( multiplier * hash + ICHAR(key(i:i)), hash_size) - ENDDO - - hash = 1 + MODULO( hash-1, hash_size ) - END FUNCTION hash -! **************************************************************************** - - -! **************************************************************************** -! strEqual - comparison function matching two strings -! **************************************************************************** - LOGICAL FUNCTION strEqual(a, b) - - CHARACTER(LEN=*), INTENT(IN) :: a, b - - LOGICAL, PARAMETER :: ignoreCase = .TRUE. - - CHARACTER(LEN=100) :: nice_a, nice_b - INTEGER :: max_len - - nice_a = ADJUSTL(a) - nice_b = ADJUSTL(b) - - IF (ignoreCase) THEN - nice_a = toUPPER(nice_a) - nice_b = toUPPER(nice_b) - END IF - - max_len = MAX( LEN_TRIM(nice_a), LEN_TRIM(nice_b) ) - - strEqual = nice_a(1:max_len) .EQ. nice_b(1:max_len) - - END FUNCTION strEqual -! **************************************************************************** - - -! **************************************************************************** -! writespecstring - Utility function that plots a (potentially) -! large number of species -! **************************************************************************** - SUBROUTINE writespecstring(nspecies, txt, species, offset) - - INTEGER :: nspecies, offset - CHARACTER(LEN=*) :: txt - CHARACTER(LEN=15) :: species(nspecies), fmt - CHARACTER(LEN=2000) :: specstring - - INTEGER, PARAMETER :: cperline=60 - - INTEGER :: i, l - - fmt = "" - WRITE(fmt, "(A1,I3,A4)") "(", offset, "X,A)" - - i = 1; l = 1 - specstring = "" - - DO WHILE (i <= nspecies) - - specstring = TRIM(ADJUSTL(specstring))//TRIM(ADJUSTL(species(i))) - IF (i < nspecies) specstring = TRIM(ADJUSTL(specstring))//", " - - i = i + 1 - - IF (LEN_TRIM(specstring) > cperline) THEN - IF (l == 1) specstring = txt//specstring - l = l + 1 - WRITE(*,fmt) TRIM(specstring) - specstring = "" - ENDIF - ENDDO - - IF (LEN_TRIM(specstring) > 0) THEN - IF (l == 1) specstring = txt//specstring - WRITE(*,fmt) TRIM(specstring) - ENDIF - - END SUBROUTINE writespecstring -! **************************************************************************** - - -! **************************************************************************** -! calcCFACTOR - Calculates CFACTOR variable for unit conversion between -! input/output files and values used in calculations / rates -! **************************************************************************** - SUBROUTINE calcCFACTOR ( ) - - ! from ppmv to mlc/cm3: - ! 1e-6 ppmv -> vmr - ! 1e-3 kg/m3 -> g/cm3 - ! 1/28.9645 g/cm3 -> mole/cm3 - ! 6.022e23 -> molec/cm3 - ! then multiply with air density rho - ! 1.0E-6 * 1E-03 * (1.0/28.97) * 6.022e23 * rho - ! CFACTOR = 2.598378e+13; (with rho == 1.25) - - CFACTOR = 1.0E-6 * 1E-03 * (1.0/28.9645) * 6.022e23 * & - pres / (287.058 * temp) - - END SUBROUTINE calcCFACTOR -! **************************************************************************** - - -! **************************************************************************** -! readConfig - Sets variables using values read in from "BOXMOX.nml" -! **************************************************************************** - SUBROUTINE readConfig ( ) - - INTEGER, PARAMETER :: config_pid = 22 - CHARACTER(LEN=*), PARAMETER :: config_name = "BOXMOX.nml" - - NAMELIST /BOXMOX/ TSTART, TEND, DT, lverbose, iturb, lfix_nox - - LOGICAL :: lnml_exists - - ! *** default values section *** - - TSTART = 0.0D0 ! model start time, seconds since 0 LT - TEND = TSTART + 3600.0D0 ! model end time, seconds since 0 LT - DT = 10.D0 ! model time step, seconds - - lverbose = .FALSE. - iturb = TURB_OPT_NONE - - lfix_nox = .FALSE. - - ! *** namelist read-in section *** - - INQUIRE(FILE=config_name, EXIST=lnml_exists) - - IF (lnml_exists) THEN - - WRITE(*,*) "BOXMOX configuration file ", TRIM(config_name)," found." - - OPEN (config_pid, FILE=config_name) - READ (config_pid, nml=BOXMOX) - CLOSE(config_pid) - - ELSE - WRITE(*,*) "No BOXMOX configuration file (", & - TRIM(config_name),") exists." - ENDIF - - ! *** configuration printout *** - - WRITE(*,*) " " - WRITE(*,"(A20,2X,F12.3)") "TSTART", TSTART - WRITE(*,"(A20,2X,F12.3)") "TEND", TEND - WRITE(*,"(A20,2X,F12.3)") "DT", DT - WRITE(*,*) "" - WRITE(*,"(A20,2X,L10)") "lverbose", lverbose - WRITE(*,*) "" - WRITE(*,"(A20,11X,I1)") "iturb", iturb - WRITE(*,*) "" - WRITE(*,"(A20,2X,L10)") "lfix_nox", lfix_nox - - WRITE(*,*) " " - - END SUBROUTINE readConfig -! **************************************************************************** - - -! **************************************************************************** -! checkConfig - check configuration variables -! **************************************************************************** - SUBROUTINE checkConfig ( ) - - INTEGER :: status - - status = 0 - - IF (TSTART < 0.0) THEN - WRITE(*,*) "start time TSTART cannot be < 0.0" - status = 1 - ENDIF - IF (TEND < 0.0) THEN - WRITE(*,*) "end time TEND cannot be < 0.0" - status = 2 - ENDIF - IF (TSTART >= TEND) THEN - WRITE(*,*) "start time TSTART has to be < end time TEND" - status = 3 - ENDIF - IF (DT <= 0.0) THEN - WRITE(*,*) "time step DT has to be > 0.0" - status = 4 - ENDIF - - IF (status .NE. 0) THEN - IF (.NOT. llibrary) THEN - STOP - ENDIF - ENDIF - - END SUBROUTINE checkConfig -! **************************************************************************** - - -! **************************************************************************** -! writeVersion - Write "VERSION" file to run directory -! **************************************************************************** - SUBROUTINE writeVersion ( ) - - INTEGER, PARAMETER :: version_pid = 23 - CHARACTER(LEN=*), PARAMETER :: version_name = "VERSION" - - ! *** write BOXMOX version to output directory *** - - OPEN(version_pid, file=version_name) - WRITE(version_pid, "(A)") "__BOXMOX_VERSION__" - CLOSE(version_pid) - - END SUBROUTINE writeVersion -! **************************************************************************** - - -! **************************************************************************** -! readVals - main input routine for the BOXMOX extensions. -! reads values from input files with different time -! formats, and interpolates to get the values -! appropriate for the current time step. -! **************************************************************************** - SUBROUTINE readVals(fname, nvar, species, values, stat, & - nanc, ancspecies, ancvalues, lquiet) - - CHARACTER(LEN=*), INTENT(IN) :: fname - INTEGER, INTENT(OUT) :: nvar - CHARACTER(LEN=15), INTENT(OUT) :: species(max_species_boxmox) - REAL(KIND=dp), INTENT(OUT) :: values(max_species_boxmox) - INTEGER, INTENT(OUT) :: stat - INTEGER, INTENT(OUT), OPTIONAL :: nanc - CHARACTER(LEN=15), INTENT(OUT),OPTIONAL :: ancspecies(max_species_boxmox) - REAL(KIND=dp), INTENT(OUT), OPTIONAL :: ancvalues(max_species_boxmox) - LOGICAL, INTENT(IN), OPTIONAL :: lquiet - - INTEGER, PARAMETER :: input_pid = 21 - REAL(KIND=dp) :: time_cur, weight_t1, & - values_t0(max_species_boxmox), & - values_t1(max_species_boxmox), & - values_cur(max_species_boxmox) - CHARACTER(LEN=15) :: names(max_species_boxmox) - INTEGER :: iostat, time_format, ntoread, ntime, nanct, pid, i - LOGICAL :: lfile_exists, ltalkative - - names(:) = "" - values_t0(:) = 0.0 - values_t1(:) = 0.0 - - stat = 0 ! everything is allright - - ltalkative = ( TIME .EQ. TSTART ) .OR. lverbose - IF (PRESENT(lquiet)) THEN - IF (lquiet) THEN - ltalkative = .FALSE. - ENDIF - ENDIF - - ! check whether file exists - INQUIRE(FILE=fname, EXIST=lfile_exists) - IF (.NOT. lfile_exists) THEN - stat = 1 - RETURN - ELSE - IF (ltalkative) THEN - WRITE(*,*) "" - WRITE(*,*) " * ", fname - ENDIF - END IF - - OPEN(input_pid, file=fname) - - ! line 1: number of variables - READ(input_pid, *) nvar - - ! if no variable should be read - bail - IF (nvar == 0) THEN - IF (ltalkative) WRITE(*,*) fname, " declared 0 variables to be read" - stat = 2 - CLOSE(input_pid) - RETURN - END IF - - ! line 2: number of ancillary variables - READ(input_pid, *) nanct - - IF (nanct .LT. 0) THEN - WRITE(*,"(A)") "Number of ancillary variables must be >= 0" - CLOSE(input_pid) - STOP - ENDIF - - IF (nanct .GT. 1) THEN - WRITE(*,"(A)") "Number of ancillary variables must be < 2" - CLOSE(input_pid) - STOP - ENDIF - - ! line 3: time format - READ(input_pid, *) time_format - - IF (time_format .LT. 0 .OR. time_format .GT. 2) THEN - WRITE(*,"(3A)") "Time format has to be 0 (constant), ", & - "1 (s since TSTART) or ", & - "2 (hour of day)" - CLOSE(input_pid) - STOP - END IF - - ntime = 0 - IF (time_format .GT. 0) ntime = 1 - - ntoread = ntime + nanct + nvar - - ! if more variables than max_species_boxmox should be read - bail - IF (ntoread > max_species_boxmox) THEN - IF (ltalkative) THEN - WRITE(*,*) fname, " declared more variables to be read" - WRITE(*,*) "than allocated. Increase max_species_boxmox," - WRITE(*,*) "recompile, and run again." - ENDIF - stat = 3 - CLOSE(input_pid) - RETURN - END IF - - ! line 4: header line - READ(input_pid, *) names(1:ntoread) - - ! line 4ff: values - READ(input_pid, *) values_t0(1:ntoread) - - ! if its not constant in time values - weight_t1 = 0 - IF (.NOT. time_format .EQ. 0) THEN - READ(input_pid, *, IOSTAT=iostat) values_t1(1:ntoread) - - ! TIME is the KPP provided current model time - time_cur = TIME - IF (time_format .EQ. 2) THEN - time_cur = TIME/3600.0_dp - (INT(TIME/3600.0_dp)/24)*24 - END IF - - ! ASSUMPTION: time is the first value read - DO WHILE(values_t1(1) .LT. time_cur .AND. iostat .EQ. 0) - values_t0 = values_t1 - - READ(input_pid, *, IOSTAT=iostat) values_t1(1:ntoread) - END DO - - ! take the last value in the file in case its time values don't cover - ! the full simulation period - IF (iostat .NE. 0) THEN - weight_t1 = 1.0 - ELSE - weight_t1 = (time_cur - values_t0(1)) / (values_t1(1) - values_t0(1)) - ENDIF - - ENDIF - - CLOSE(input_pid) - - values_cur = weight_t1 * values_t1 + & - (1.0 - weight_t1) * values_t0 - - species(1:nvar) = names(ntime+nanct+1:ntime+nanct+nvar) - values(1:nvar) = values_cur(ntime+nanct+1:ntime+nanct+nvar) - - IF (PRESENT(nanc)) nanc = nanct - - IF (nanct .GT. 0) THEN - IF (PRESENT(ancvalues)) THEN - ancvalues(1:nanct) = values_cur(ntime+1:ntime+nanct) - ENDIF - IF (PRESENT(ancspecies)) THEN - ancspecies(1:nanct) = names(ntime+1:ntime+nanct) - ENDIF - ENDIF - - END SUBROUTINE readVals -! **************************************************************************** - - -! **************************************************************************** -! readInput - Reads values from .csv, applies function -! -! "t" is for "target" (i.e. the vector to apply "action" over) -! "r" is for "read" from file -! "u" is for "useable" (i.e., exists in the "target" vector) -! "m" is for "missing" (i.e., asked for, but not found in file) -! -! **************************************************************************** - SUBROUTINE readInput (filename, nt, tnames, tvalues, & - action, lzero, quiet) - - CHARACTER(LEN=*), INTENT(IN) :: filename - INTEGER, INTENT(IN) :: nt - REAL(KIND=dp) :: tvalues(nt) - CHARACTER(LEN=15), INTENT(IN) :: tnames(nt) - REAL(KIND=dp), OPTIONAL :: action ! function to be called - LOGICAL, INTENT(IN), OPTIONAL :: lzero ! call action with 0.0 - ! for 'missing' species - LOGICAL, INTENT(IN), OPTIONAL :: quiet - - INTEGER :: nr, nu, nm, i, k, m, & - iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - unames(max_species_boxmox), & - mnames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox) - LOGICAL :: is_used, first, & - talkative - - CALL readVals(filename, nr, rnames, rvalues, iostat) - - IF (iostat .NE. 0) RETURN - - talkative = .TRUE. - IF (PRESENT(quiet)) talkative = .NOT. quiet - - unames(:) = "none" - nu = 0 - - first = lverbose - - DO i = 1, nr - DO k = 1, nt - IF ( strEqual(rnames(i), tnames(k)) ) THEN - - IF (PRESENT(action)) THEN - tvalues(k) = action( tvalues(k), k, rvalues(i), first) - ELSE - tvalues(k) = rvalues(i) - IF ( (lverbose .OR. first) .AND. talkative ) THEN - WRITE(*,"(6X,A15,1X,E12.6)") tnames(k), tvalues(k)/CFACTOR - ENDIF - ENDIF - - first = .FALSE. - - nu = nu + 1 - unames(nu) = TRIM(ADJUSTL(rnames(i))) - ENDIF - ENDDO - ENDDO - - IF (PRESENT(lzero)) THEN - IF (lzero) THEN - DO k = 1, nt - is_used = .FALSE. - DO i = 1, nu - IF ( strEqual(unames(i), tnames(k)) ) is_used = .TRUE. - ENDDO - IF (.NOT. is_used) THEN - tvalues(k) = action( tvalues(k), k, 0.0, first) - first = .FALSE. - ENDIF - ENDDO - ENDIF - ENDIF - - nm = nr - nu - mnames(:) = "" - - IF (nm > 0) THEN - m = 1 - DO i = 1, nr - is_used = .FALSE. - DO k = 1, nu - IF ( strEqual(rnames(i), unames(k)) ) is_used = .TRUE. - ENDDO - - IF (.NOT. is_used) THEN - mnames(m) = TRIM(ADJUSTL(rnames(i))) - m = m + 1 - ENDIF - ENDDO - ENDIF - - IF ( ((TIME .EQ. TSTART) .OR. lverbose) .AND. talkative) THEN - IF (nu > 0) CALL writespecstring(nu, "useable:", unames, 6) - IF (nm > 0) CALL writespecstring(nm, "unknown: ", mnames, 6) - ENDIF - - END SUBROUTINE readInput -! **************************************************************************** - - -! **************************************************************************** -! InitialCondition - Sets initial values -! **************************************************************************** - REAL(KIND=dp) FUNCTION InitialCondition(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - InitialCondition = y * CFACTOR - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,A12,1X)") "species ", "IC" - WRITE(*,"(6X,A15,1X,E12.6,1X)") SPC_NAMES(k), InitialCondition/CFACTOR - ENDIF - - END FUNCTION InitialCondition -! **************************************************************************** - - -! **************************************************************************** -! Deposition - Applies deposition velocities -! **************************************************************************** - REAL(KIND=dp) FUNCTION Deposition(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - REAL(KIND=dp) :: dCdt - - Deposition = x - - ! we don't remove fixed variables - IF (k .LT. NFIXST) THEN - ! we assume deposition velocities in comparable units - ! (i.e. cm s-1) - ! dxdydz(3) == DZ - dCdt = - y * x / (dxdydz(3) * 100.0) - Deposition = MAX( 0.0, x + DT * dCdt ) - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "v_dep", "after" - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, y, & - Deposition/CFACTOR - ENDIF - - ENDIF - - END FUNCTION Deposition -! **************************************************************************** - - -! **************************************************************************** -! Emission - Adds emissions -! **************************************************************************** - REAL(KIND=dp) FUNCTION Emission(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - REAL(KIND=dp) :: cur - - ! we assume emissions to be a flux in units comparable to the - ! concentration values used in KPP - ! e.g. molecules / m2 / s vs molecules / m3, or - ! moles / cm2 / s vs moles / cm3, ... - ! the time dimensions unit has to be seconds! - - ! dxdydz(3) is PBL height in m - cur = y * DT / (dxdydz(3) * 100.0) - - Emission = x + cur - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "tendency", "after" - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, & - cur/DT/CFACTOR, Emission/CFACTOR - ENDIF - - END FUNCTION Emission -! **************************************************************************** - - -! **************************************************************************** -! Mix - calculate concentration after turbulent mixing -! **************************************************************************** - REAL(KIND=dp) FUNCTION Mix(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - REAL(KIND=dp) :: frac_bg - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - Mix = x - - frac_bg = Kturb * DT - - IF (lfirst .AND. lverbose) THEN - WRITE(*,"(6X,A,1X,F6.3)") "fractional amount of background air", & - frac_bg - WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "background", "after" - ENDIF - - ! we don't mix fixed variables - IF (k .LT. NFIXST) THEN - - ! seems like we found something - Mix = frac_bg * (y * CFACTOR) + & - (1.0 - frac_bg) * x - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, & - y, Mix/CFACTOR - ENDIF - - ENDIF - - END FUNCTION Mix -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturb - calculate Kturb for mixing -! **************************************************************************** - SUBROUTINE UpdateKturb() - - Kturb = 0.0 - SELECT CASE (iturb) - CASE (TURB_OPT_NONE) - Kturb = 0.0 - CASE (TURB_OPT_SPECIFIED) - CALL UpdateKturbSpecified() - CASE (TURB_OPT_VOLUME) - CALL UpdateKturbVolume() - CASE (TURB_OPT_TRACER) - CALL UpdateKturbTracer() - CASE DEFAULT - WRITE(*,"(A,1X,I1)") "Unknown mixing option", iturb - END SELECT - - END SUBROUTINE UpdateKturb -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbSpecified - calc. Kturb for mixing using specified Kturb -! **************************************************************************** - SUBROUTINE UpdateKturbSpecified() - - INTEGER :: nr, na, i, iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - anames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox), & - avalues(max_species_boxmox) - LOGICAL :: lfound - - Kturb = 0.0 - - CALL readVals('Background.csv', & - nr, rnames, rvalues, iostat, & - na, anames, avalues, lquiet=.TRUE.) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - lfound = .FALSE. - DO i = 1, na - IF ( strEqual(anames(i), 'Kturb') ) THEN - Kturb = avalues(i) - lfound = .TRUE. - ENDIF - ENDDO - - IF (.NOT. lfound) THEN - WRITE(*,*) "Kturb variable not found in Background.csv" - STOP - ENDIF - - END SUBROUTINE UpdateKturbSpecified -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbVolume - calc. Kturb for mixing using box volume changes -! **************************************************************************** - SUBROUTINE UpdateKturbVolume() - - REAL(KIND=dp) :: vol, vol_old - - vol = dxdydz(1) * dxdydz(2) * dxdydz(3) - vol_old = dxdydz_old(1) * dxdydz_old(2) * dxdydz_old(3) - - ! maybe we have a mixing case where the box volume changes? - ! increasing volume - dilute against background - ! decreasing volume - ignore (?) for now - - ! in the PBL case, analogue: - ! maybe we changed the PBLH? update concentration vector - ! rising BL - mixing against zero air or bg values - ! shrinking BL - creates residual layer, decouples - - IF (vol > vol_old) THEN - Kturb = ( (vol - vol_old) / vol_old ) / DT - ENDIF - - END SUBROUTINE UpdateKturbVolume -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbTracer - calc. Kturb for mixing using tracer (t, tname) conc. -! changes -! **************************************************************************** - SUBROUTINE UpdateKturbTracer() - - INTEGER :: nr, na, i, iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - anames(max_species_boxmox), & - tracer_name - REAL(KIND=dp) :: rvalues(max_species_boxmox), & - avalues(max_species_boxmox), & - prev, obs, bg, frac_bg - LOGICAL :: lfound_prev, lfound_bg - - Kturb = 0.0 - - CALL readVals('Background.csv', & - nr, rnames, rvalues, iostat, & - na, anames, avalues, lquiet=.TRUE.) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - ! ASSUMPTION: first ancillary species is mixing tracer - tracer_name = anames(1) - obs = avalues(1) * CFACTOR - - prev = 0.0 - lfound_prev = .FALSE. - DO i = 1, NSPEC - IF ( strEqual(SPC_NAMES(i), tracer_name) ) THEN - prev = C(i) - lfound_prev = .TRUE. - ENDIF - ENDDO - - bg = 0.0 - lfound_bg = .FALSE. - DO i = 1, nr - IF ( strEqual(rnames(i), tracer_name) ) THEN - bg = rvalues(i) * CFACTOR - lfound_bg = .TRUE. - ENDIF - ENDDO - - IF (.NOT. lfound_bg) THEN - WRITE(*,*) "Tracer ", TRIM(tracer_name), & - " not found in Background.csv" - STOP - ENDIF - IF (.NOT. lfound_prev) THEN - WRITE(*,*) "Tracer ", TRIM(tracer_name), & - " not found in mechanism" - STOP - ENDIF - - IF ( ABS( bg - prev ) < 1e-10 ) THEN - Kturb = 0.0 - ELSE - frac_bg = ( obs - prev ) / ( bg - prev ) - frac_bg = MIN( frac_bg, 1.0 ) - frac_bg = MAX( frac_bg, 0.0 ) - - Kturb = frac_bg / DT - ENDIF - - END SUBROUTINE UpdateKturbTracer -! **************************************************************************** - - -! **************************************************************************** -! UpdatePhotolysisRates - well, it does what it seems to do -! **************************************************************************** - SUBROUTINE UpdatePhotolysisRates() - - INTEGER :: i, iostat, nr, jidx - CHARACTER(LEN=15) :: rnames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox) - - INTEGER :: j, jidx2 - - rnames(:) = " " - rvalues(:) = 0.0 - - jvalues(:) = 0.0 - - CALL readVals('PhotolysisRates.csv', nr, rnames, rvalues, iostat) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - DO i = 1, nr - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,E12.6)") rnames(i), rvalues(i) - ENDIF - jidx = hash(rnames(i)) - jvalues(jidx) = rvalues(i) - ENDDO - - ! first time step only: make sure hashing actually made unique hashes - IF (TIME .EQ. TSTART) THEN - DO i = 1, nr - jidx = hash(rnames(i)) - DO j = 1, nr - jidx2 = hash(rnames(j)) - IF ((jidx .EQ. jidx2) .AND. .NOT. (i .EQ. j)) THEN - WRITE(*,*) "Photolysis rate label hash collision:" - WRITE(*,*) rnames(i), "(idx ",i,", hash ", jidx, ") == ", & - rnames(j), "(idx ",j,", hash ", jidx2,")" - IF ( strEqual( rnames(i), rnames(j) ) ) THEN - WRITE(*,*) "Remove duplicate label in PhotolysisRates.csv!" - ELSE - WRITE(*,*) "Please contact the BOXMOX developers!" - ENDIF - STOP - ENDIF - ENDDO - ENDDO - - CALL writespecstring(nr, "known:", rnames, 6) - - ENDIF - - END SUBROUTINE UpdatePhotolysisRates -! **************************************************************************** - - -! **************************************************************************** -! UpdateAerosol - update aerosol properties -! **************************************************************************** - SUBROUTINE UpdateAerosol() - - INTEGER, PARAMETER :: naer = 2, sad_idx = 1, r_idx = 2 - REAL(KIND=dp) :: aer(naer), errval = -987654321.0 - CHARACTER(LEN=15) :: aernames(naer) - INTEGER :: iostat, i - - aernames(sad_idx) = "sad"; aer(sad_idx) = errval - aernames(r_idx) = "r"; aer(r_idx) = errval - - CALL readInput('Aerosol.csv', naer, aernames, aer, quiet=lverbose) - - IF (aer(sad_idx) .NE. errval) AER_SAD = aer(sad_idx) - IF (aer(r_idx) .NE. errval) AER_R = aer(r_idx) - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,F8.2)") "SAD ", AER_SAD - WRITE(*,"(6X,A15,1X,F8.2)") "R ", AER_R - ENDIF - - END SUBROUTINE UpdateAerosol -! **************************************************************************** - - -! **************************************************************************** -! UpdateEnvironment - Read environmental values -! **************************************************************************** - SUBROUTINE UpdateEnvironment() - - INTEGER, PARAMETER :: nenv = 4, temp_idx = 1, pres_idx = 2, & - pblh_idx = 3, vol_idx = 4 - REAL(KIND=dp) :: env(nenv), errval = -987654321.0 - CHARACTER(LEN=15) :: envnames(nenv) - INTEGER :: iostat, i - - REAL(KIND=dp) :: temp_old, pres_old, pblh, vol - - envnames(temp_idx) = "TEMP"; env(temp_idx) = errval - envnames(pres_idx) = "PRES"; env(pres_idx) = errval - envnames(pblh_idx) = "PBLH"; env(pblh_idx) = errval - envnames(vol_idx) = "VOL"; env(vol_idx) = errval - - CALL readInput('Environment.csv', nenv, envnames, env, quiet=lverbose) - - temp_old = temp - pres_old = pres - - dxdydz_old(:) = dxdydz(:) - - ! those are just pseudo variables for dxdydz properties - pblh = dxdydz(3) - vol = dxdydz(1) * dxdydz(2) * dxdydz(3) - - IF (env(pblh_idx) .NE. errval .AND. env(vol_idx) .NE. errval) & - THEN - WRITE(*,*) "Cannot work with changing PBLH and VOL at the same time." - STOP - ENDIF - - IF (env(temp_idx) .NE. errval) temp = env(temp_idx) - IF (env(pres_idx) .NE. errval) pres = env(pres_idx) - IF (env(vol_idx) .NE. errval) vol = env(vol_idx) - - IF (env(pblh_idx) .NE. errval) THEN - pblh = env(pblh_idx) - dxdydz(3) = pblh - ENDIF - - ! Adjust species vector - DO i = 1, NSPEC - C(i) = C(i) * (temp_old * pres) / (temp * pres_old) - ENDDO - - ! recalculate unit conversion - CALL calcCFACTOR() - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,F8.2)") "TEMP ", temp - WRITE(*,"(6X,A13,1X,F10.2)") "PRES ", pres - WRITE(*,"(6X,A15,1X,F8.2)") "PBLH ", dxdydz(3) - WRITE(*,"(6X,A15,1X,F8.2)") "VOL ", & - dxdydz(1)*dxdydz(2)*dxdydz(3) - WRITE(*,*) "" - WRITE(*,"(6X,A7,1X,E16.8)") "CFACTOR", CFACTOR - ENDIF - - END SUBROUTINE UpdateEnvironment -! **************************************************************************** - - -! **************************************************************************** -! InitFixNOx - Initialize the NOx fixing data (for steady state calculations) -! **************************************************************************** - SUBROUTINE InitFixNOx(n, names, values) - - INTEGER, INTENT(IN) :: n - REAL(KIND=dp) :: values(n) - CHARACTER(LEN=15), INTENT(IN) :: names(n) - - INTEGER :: i, nfound_tracers - - initial_total_nox = 0.0 - nfound_tracers = 0 - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - initial_total_nox = initial_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - initial_total_nox = initial_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - ENDDO - - IF (.NOT. nfound_tracers == 2) THEN - WRITE(*,*) "NOx fixing failed, found (only) ", & - nfound_tracers, " species." - STOP - ENDIF - - END SUBROUTINE InitFixNOx -! **************************************************************************** - - -! **************************************************************************** -! FixNOx - keep total NOx at initial levels (for steady state calculations) -! **************************************************************************** - SUBROUTINE FixNOx(n, names, values) - - INTEGER, INTENT(IN) :: n - REAL(KIND=dp), INTENT(INOUT) :: values(n) - CHARACTER(LEN=15), INTENT(IN) :: names(n) - - INTEGER :: i, nfound_tracers - REAL(KIND=dp) :: current_total_nox, scaleFactor - - current_total_nox = 0.0 - nfound_tracers = 0 - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - current_total_nox = current_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - current_total_nox = current_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - ENDDO - - IF (.NOT. nfound_tracers == 2) THEN - WRITE(*,*) "NOx fixing failed, found (only) ", & - nfound_tracers, " species." - STOP - ENDIF - - scaleFactor = initial_total_nox - IF (current_total_nox > 0.0) THEN - scaleFactor = initial_total_nox / current_total_nox - ENDIF - - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - values(i) = values(i) * scaleFactor - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - values(i) = values(i) * scaleFactor - ENDIF - ENDDO - - END SUBROUTINE FixNOx -! **************************************************************************** - - -! End INLINED Utility Functions - -! Utility Functions from KPP_HOME/util/util -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! UTIL - Utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -! **************************************************************** -! -! InitSaveData - Opens the data file for writing -! Parameters : -! -! **************************************************************** - - SUBROUTINE InitSaveData () - - USE NO_NO2_Parameters -!* ---------------------------------------------------- -!* BOXMOX extension - Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* add header to output species and sparse jacobian indices -!* and Hessian - USE NO_NO2_JacobianSP -#if 0 > 0 - USE NO_NO2_HessianSP -#endif -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* add header to output files and open rates file - INTEGER :: i -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20161129 -!* renamed concentration output -! open(10, file='NO_NO2.dat') - open(10, file='NO_NO2.conc') -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* add header to output files and open rates file - - ! add header to output file - WRITE(10, "(A24,10000(1X,A24))") "time", ADJUSTR(SPC_NAMES(LOOKAT)) - - open(11, file='NO_NO2.rates') - - WRITE(11, "(I5)") NREACT - - DO i = 1, NREACT - WRITE(11, "(A)") EQN_NAMES(i) - ENDDO - - ! add header to output file - WRITE(11, "(A24,10000(1X,I24))") "time", (/(i, i=1,NREACT, 1)/) - -!* write header to Jacobian output - open(12, file='NO_NO2.jacobian') - -!* species names - WRITE(12, "(10000(1X,A24))") ADJUSTR(SPC_NAMES(LOOKAT)) -!* species index - WRITE(12, "(10000(1X,I5))") LOOKAT -!* Jacobian non zero row index - WRITE(12, "(100000(1X,I5))") (LU_IROW(i), i=1,LU_NONZERO) -!* Jacobian non zero column index - WRITE(12, "(100000(1X,I5))") (LU_ICOL(i), i=1,LU_NONZERO) - -!* write header to Hessian output -#if 0 > 0 - open(13, file='NO_NO2.hessian') - -!* species names - WRITE(13, "(10000(1X,A24))") ADJUSTR(SPC_NAMES(LOOKAT)) -!* species index - WRITE(13, "(10000(1X,I5))") LOOKAT -!* Hessian i, j, k species - WRITE(13, "(100000(1X,I5))") (IHESS_I(i), i=1,NHESS) - WRITE(13, "(100000(1X,I5))") (IHESS_J(i), i=1,NHESS) - WRITE(13, "(100000(1X,I5))") (IHESS_K(i), i=1,NHESS) -#endif -!* ---------------------------------------------------- - - END SUBROUTINE InitSaveData - -! End of InitSaveData function -! **************************************************************** - -! **************************************************************** -! -! SaveData - Write LOOKAT species in the data file -! Parameters : -! -! **************************************************************** - - SUBROUTINE SaveData () - - USE NO_NO2_Global - USE NO_NO2_Monitor -!* ---------------------------------------------------- -!* BOXMOX extension - Jerome Barre - 20150410 -!* Christoph Knote - 20151030 - USE NO_NO2_Jacobian -#if 0 > 0 - USE NO_NO2_Hessian -#endif -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20151030 - REAL(KIND=dp) :: JVS(LU_NONZERO) ! d(dc/dt)i/dcj -#if 0 > 0 - REAL(KIND=dp) :: HESS(NHESS) ! -#endif - INTEGER i - - WRITE(10,999) (TIME-TSTART)/3600.D0, & - (C(LOOKAT(i))/CFACTOR, i=1,NLOOKAT) - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* write out reaction rates - WRITE(11,999) (TIME-TSTART)/3600.D0, & - (RCONST(i), i=1,NREACT) -!* call Jacobian function to output Jacobian values - CALL Jac_SP( VAR, FIX, RCONST, JVS ) - WRITE(12,9999) (JVS(i), i=1,LU_NONZERO) -!* call Hessian function to output Hessian values -#if 0 > 0 - CALL Hessian( VAR, FIX, RCONST, HESS ) - WRITE(13,9999) (HESS(i), i=1,NHESS) -#endif -!* --------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* might have more than 100 output variables -! 999 FORMAT(E24.16,100(1X,E24.16)) -999 FORMAT(E24.16,10000(1X,E24.16E3)) -9999 FORMAT(E24.16,100000(1X,E24.16E3)) -!* ---------------------------------------------------- - - END SUBROUTINE SaveData - -! End of SaveData function -! **************************************************************** - -! **************************************************************** -! -! CloseSaveData - Close the data file -! Parameters : -! -! **************************************************************** - - SUBROUTINE CloseSaveData () - - USE NO_NO2_Parameters - - CLOSE(10) - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -! Christoph Knote - 20153010 -!* close rates file - CLOSE(11) -!* close Jacobian file - CLOSE(12) -!* close Hessian file -#if 0 > 0 - CLOSE(13) -#endif -!* --------------------------------------------------- - - END SUBROUTINE CloseSaveData - -! End of CloseSaveData function -! **************************************************************** - -! **************************************************************** -! -! GenerateMatlab - Generates MATLAB file to load the data file -! Parameters : -! It will have a character string to prefix each -! species name with. -! -! **************************************************************** - - SUBROUTINE GenerateMatlab ( PREFIX ) - - USE NO_NO2_Parameters - USE NO_NO2_Global - USE NO_NO2_Monitor - - - CHARACTER(LEN=8) PREFIX - INTEGER i - - open(20, file='NO_NO2.m') - write(20,*) 'load NO_NO2.dat;' - write(20,990) PREFIX -990 FORMAT(A1,'c = NO_NO2;') - write(20,*) 'clear NO_NO2;' - write(20,991) PREFIX, PREFIX -991 FORMAT(A1,'t=',A1,'c(:,1);') - write(20,992) PREFIX -992 FORMAT(A1,'c(:,1)=[];') - - do i=1,NLOOKAT - write(20,993) PREFIX, SPC_NAMES(LOOKAT(i)), PREFIX, i -993 FORMAT(A1,A6,' = ',A1,'c(:,',I2,');') - end do - - CLOSE(20) - - END SUBROUTINE GenerateMatlab - -! End of GenerateMatlab function -! **************************************************************** - - -! End Utility Functions from KPP_HOME/util/util -! End of UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Shuffle_user2kpp - function to copy concentrations from USER to KPP -! Arguments : -! V_USER - Concentration of variable species in USER's order -! V - Concentrations of variable species (local) -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Shuffle_user2kpp ( V_USER, V ) - -! V_USER - Concentration of variable species in USER's order - REAL(kind=dp) :: V_USER(NVAR) -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) - - V(1) = V_USER(1) - V(2) = V_USER(2) - -END SUBROUTINE Shuffle_user2kpp - -! End of Shuffle_user2kpp function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Shuffle_kpp2user - function to restore concentrations from KPP to USER -! Arguments : -! V - Concentrations of variable species (local) -! V_USER - Concentration of variable species in USER's order -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Shuffle_kpp2user ( V, V_USER ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! V_USER - Concentration of variable species in USER's order - REAL(kind=dp) :: V_USER(NVAR) - - V_USER(1) = V(1) - V_USER(2) = V(2) - -END SUBROUTINE Shuffle_kpp2user - -! End of Shuffle_kpp2user function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! GetMass - compute total mass of selected atoms -! Arguments : -! CL - Concentration of all species (local) -! Mass - value of mass balance -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE GetMass ( CL, Mass ) - -! CL - Concentration of all species (local) - REAL(kind=dp) :: CL(NSPEC) -! Mass - value of mass balance - REAL(kind=dp) :: Mass(1) - - -END SUBROUTINE GetMass - -! End of GetMass function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE NO_NO2_Util - diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Util.o b/boxmox/compiled_mechs/NO_NO2/NO_NO2_Util.o deleted file mode 100644 index 642f1a58428cb1c25a3dc52fa5220c994a304102..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/NO_NO2_Util.o and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_mex_Fun.f90 b/boxmox/compiled_mechs/NO_NO2/NO_NO2_mex_Fun.f90 deleted file mode 100644 index 3b0ef17de27917c511ee57dc82e432891f892384..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/NO_NO2/NO_NO2_mex_Fun.f90 +++ /dev/null @@ -1,45 +0,0 @@ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE mexFunction( nlhs, plhs, nrhs, prhs ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Matlab Gateway for the Derivative Function Fun -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE NO_NO2_Model - - INTEGER nlhs, nrhs - INTEGER plhs(*), prhs(*) - INTEGER mxGetPr, mxCreateFull, mxGetM, mxgetN - INTEGER VPtr, FPtr, RPtr, VdotPtr - REAL(kind=dp) V(2), F(2), RCT(2) - REAL(kind=dp) Vdot(2) - -! Check for the right number of input arguments - IF ( nrhs .ne. 3 ) THEN - CALL mexErrMsgTxt('Fun requires 3 input vectors: & - &V(2), F(2), RCT(2)') - END IF -! Check for the right number of output arguments - IF ( nlhs .ne. 1 ) THEN - CALL mexErrMsgTxt('Fun requires 1 output vector: & - &Vdot(2)') - END IF - - plhs(1) = mxCreateDoubleMatrix(2,1,0) - - VPtr = mxGetPr(prhs(1)) - CALL mxCopyPtrToReal8(VPtr,V,2) - - FPtr = mxGetPr(prhs(2)) - CALL mxCopyPtrToReal8(FPtr,F,2) - - RPtr = mxGetPr(prhs(3)) - CALL mxCopyPtrToReal8(RPtr,RCT,2) - - VdotPtr = mxGetPr(plhs(1)) - - CALL Fun( V, F, RCT, Vdot ) - - CALL mxCopyReal8ToPtr(Vdot, VdotPtr, 2) - - END SUBROUTINE mexFunction diff --git a/boxmox/compiled_mechs/NO_NO2/NO_NO2_mex_Jac_SP.f90 b/boxmox/compiled_mechs/NO_NO2/NO_NO2_mex_Jac_SP.f90 deleted file mode 100644 index ecb6ccf18d47c51001d1e286c22fd8039e0bb60e..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/NO_NO2/NO_NO2_mex_Jac_SP.f90 +++ /dev/null @@ -1,44 +0,0 @@ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE mexFunction( nlhs, plhs, nrhs, prhs ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Matlab Gateway for the Sparse Jacobian Function Jac_SP -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE NO_NO2_Model - - INTEGER nlhs, nrhs - INTEGER plhs(*), prhs(*) - INTEGER mxGetPr, mxCreateFull, mxGetM, mxgetN - INTEGER VPtr, FPtr, RPtr, JVSPtr - REAL(kind=dp) V(2), F(2), RCT(2) - REAL(kind=dp) JVS(2) - -! Check for the right number of input arguments - IF ( nrhs .ne. 3 ) THEN - CALL mexErrMsgTxt('Jac_SP requires 3 input vectors: & - &V(2), F(2), RCT(2)') - END IF -! Check for the right number of output arguments - IF ( nlhs .ne. 1 ) THEN - CALL mexErrMsgTxt('Jac_SP requires 1 output vector: & - &JVS(2)') - END IF - - plhs(1) = mxCreateDoubleMatrix(2,1,0) - - VPtr = mxGetPr(prhs(1)) - CALL mxCopyPtrToReal8(VPtr,V,2) - - FPtr = mxGetPr(prhs(2)) - CALL mxCopyPtrToReal8(FPtr,F,2) - - RPtr = mxGetPr(prhs(3)) - CALL mxCopyPtrToReal8(RPtr,RCT,2) - - JVSPtr = mxGetPr(plhs(1)) - - CALL Jac_SP( V, F, RCT, JVS ) - - CALL mxCopyReal8ToPtr(JVS, JVSPtr, 2) - - END SUBROUTINE mexFunction diff --git a/boxmox/compiled_mechs/NO_NO2/compile.log b/boxmox/compiled_mechs/NO_NO2/compile.log deleted file mode 100644 index ee7dfa4476fa47ebc1577025e3bfbe3c96bb5211..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/NO_NO2/compile.log +++ /dev/null @@ -1,22 +0,0 @@ -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c NO_NO2_Precision.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c NO_NO2_Parameters.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c NO_NO2_Global.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c NO_NO2_Function.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c NO_NO2_JacobianSP.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c NO_NO2_Jacobian.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c NO_NO2_StoichiomSP.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c NO_NO2_Stoichiom.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c NO_NO2_Monitor.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c NO_NO2_Util.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c NO_NO2_Rates.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c NO_NO2_LinearAlgebra.f90 -NO_NO2_LinearAlgebra.f90:942:46: - - 942 | IF (incX .EQ. incY) IF (incX-1) 5,20,60 - | 1 -Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c NO_NO2_Initialize.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c NO_NO2_Integrator.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c NO_NO2_Model.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c NO_NO2_Main.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 NO_NO2_Precision.o NO_NO2_Parameters.o NO_NO2_Global.o NO_NO2_Function.o NO_NO2_JacobianSP.o NO_NO2_Jacobian.o NO_NO2_StoichiomSP.o NO_NO2_Stoichiom.o NO_NO2_Rates.o NO_NO2_Util.o NO_NO2_Monitor.o NO_NO2_LinearAlgebra.o NO_NO2_Main.o NO_NO2_Initialize.o NO_NO2_Integrator.o NO_NO2_Model.o -o NO_NO2.exe diff --git a/boxmox/compiled_mechs/NO_NO2/kpp.log b/boxmox/compiled_mechs/NO_NO2/kpp.log deleted file mode 100644 index 34994bbf2d2f70c9bdfeebde49edbcdc2a8810b2..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/NO_NO2/kpp.log +++ /dev/null @@ -1,37 +0,0 @@ - -This is KPP-2.2.3. - -KPP is parsing the equation file. -KPP is computing Jacobian sparsity structure. -KPP is starting the code generation. -KPP is initializing the code generation. -KPP is generating the monitor data: - - NO_NO2_Monitor -KPP is generating the global declarations: - - NO_NO2_Main -KPP is generating the ODE function: - - NO_NO2_Function -KPP is generating the ODE Jacobian: - - NO_NO2_Jacobian - - NO_NO2_JacobianSP -KPP is generating the linear algebra routines: - - NO_NO2_LinearAlgebra -KPP is generating the utility data: - - NO_NO2_Util -KPP is generating the utility functions: - - NO_NO2_Util -KPP is generating the rate laws: - - NO_NO2_Rates -KPP is generating the parameters: - - NO_NO2_Parameters -KPP is generating the global data: - - NO_NO2_Global -KPP is generating the stoichiometric description files: - - NO_NO2_Stoichiom - - NO_NO2_StoichiomSP -KPP is generating the driver from ../boxmox/boxmox.f90: - - NO_NO2_Main -KPP is starting the code post-processing. - -KPP has succesfully created the model "NO_NO2". - diff --git a/boxmox/compiled_mechs/NO_NO2/no_no2_function.mod b/boxmox/compiled_mechs/NO_NO2/no_no2_function.mod deleted file mode 100644 index 0eb28eeb768df8de37e735e06f3e3ba43bc2d51d..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/no_no2_function.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/no_no2_global.mod b/boxmox/compiled_mechs/NO_NO2/no_no2_global.mod deleted file mode 100644 index 48daab542b41bc8a2f5af88b94ab8f2e0239810c..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/no_no2_global.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/no_no2_initialize.mod b/boxmox/compiled_mechs/NO_NO2/no_no2_initialize.mod deleted file mode 100644 index 209a5878995f04d2ca2a83f4374995dd0bdf3560..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/no_no2_initialize.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/no_no2_integrator.mod b/boxmox/compiled_mechs/NO_NO2/no_no2_integrator.mod deleted file mode 100644 index 00c22b2ef9b4a632046bdfd4a4ddd1f7a3c64452..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/no_no2_integrator.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/no_no2_jacobian.mod b/boxmox/compiled_mechs/NO_NO2/no_no2_jacobian.mod deleted file mode 100644 index 86b29f330442074df215f2a14858d7a3f4c695d8..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/no_no2_jacobian.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/no_no2_jacobiansp.mod b/boxmox/compiled_mechs/NO_NO2/no_no2_jacobiansp.mod deleted file mode 100644 index 97365d2afb521f024ca06be431c100f2881b2e03..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/no_no2_jacobiansp.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/no_no2_linearalgebra.mod b/boxmox/compiled_mechs/NO_NO2/no_no2_linearalgebra.mod deleted file mode 100644 index 9352ed4b36835b4b0007aae30d8ffaaa9d584ecc..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/no_no2_linearalgebra.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/no_no2_model.mod b/boxmox/compiled_mechs/NO_NO2/no_no2_model.mod deleted file mode 100644 index 124ddadda4b33b61cf01e310006678684c4d6304..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/no_no2_model.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/no_no2_monitor.mod b/boxmox/compiled_mechs/NO_NO2/no_no2_monitor.mod deleted file mode 100644 index ffc0fbff7364e9f4b104ecbb6f8c036b32183f61..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/no_no2_monitor.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/no_no2_parameters.mod b/boxmox/compiled_mechs/NO_NO2/no_no2_parameters.mod deleted file mode 100644 index 7d2ac683c4f119aa5744983342935cfc9f288016..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/no_no2_parameters.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/no_no2_precision.mod b/boxmox/compiled_mechs/NO_NO2/no_no2_precision.mod deleted file mode 100644 index c0831b6929a822364ca266c16d455e9e8aa06d50..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/no_no2_precision.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/no_no2_rates.mod b/boxmox/compiled_mechs/NO_NO2/no_no2_rates.mod deleted file mode 100644 index bf01512cf6ec0e1251bb614d5a81bf36e76aa2c2..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/no_no2_rates.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/no_no2_stoichiom.mod b/boxmox/compiled_mechs/NO_NO2/no_no2_stoichiom.mod deleted file mode 100644 index a4b5d0ef138cb6cb552589810c413f72380bfae9..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/no_no2_stoichiom.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/no_no2_stoichiomsp.mod b/boxmox/compiled_mechs/NO_NO2/no_no2_stoichiomsp.mod deleted file mode 100644 index c8341225be25fb27446d4cf51c34e720c9c8705e..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/no_no2_stoichiomsp.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/NO_NO2/no_no2_util.mod b/boxmox/compiled_mechs/NO_NO2/no_no2_util.mod deleted file mode 100644 index d73ccd8feb0fc7a433c4ee51c7d17ec9f9a6dcd2..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/NO_NO2/no_no2_util.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/Makefile_RACM b/boxmox/compiled_mechs/RACM/Makefile_RACM deleted file mode 100644 index 52e45679dc7472777f8d1c811146e80199489bb9..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RACM/Makefile_RACM +++ /dev/null @@ -1,215 +0,0 @@ -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: Set here the F90 compiler and options -# Pedefined compilers: INTEL, PGF, HPUX, LAHEY -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -#COMPILER = G95 -#COMPILER = LAHEY -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# gfortran is standard -#COMPILER = INTEL -# ---------------------------------------------------- -#COMPILER = PGF -#COMPILER = HPUX -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# gfortran is standard -COMPILER = GFORTRAN -# ---------------------------------------------------- - -FC_G95 = g95 -FOPT_G95 = -cpp -O -pg -fbounds-check -fimplicit-none -Wall -ftrace=full - -FC_LAHEY = lf95 -# More aggressive for production runs: -#FOPT_LAHEY = -Cpp --pca -O -# More checking for debugging: -FOPT_LAHEY = -Cpp --chk a,e,s,u --pca --ap -O0 -g --trap --trace --chkglobal - -FC_INTEL = ifort -# More aggressive for production runs: -#FOPT_INTEL = -cpp -O -fp-model precise -pc80 -prec_div -# More checking for debugging: -FOPT_INTEL = -cpp -O0 -fp-model strict -implicitnone -ftrapuv \ - -debug all -check all -warn all - -FC_PGF = pgf90 -# More aggressive for production runs: -FOPT_PGF = -Mpreprocess -O -fast -pc 80 -Kieee -# More checking for debugging: -#FOPT_PGF = -Mpreprocess -O0 -Mbounds -Mchkfpstk -Mchkptr -Mchkstk \ -# -Ktrap=fp -pc 80 -Kieee - -FC_HPUX = f90 -FOPT_HPUX = -O -u +Oall +check=on - -FC_GFORTRAN = gfortran -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# rate equation code creates pretty long lines -# optimization does not help much and breaks MCM -# FOPT_GFORTRAN = -cpp -O -# double precision: -#FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -freal-4-real-16 -freal-8-real-16 -# using GCC 4.7 and higher: -FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -freal-4-real-8 -# for older compilers -#FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -fdefault-real-8 -# ---------------------------------------------------- - -# define FULL_ALGEBRA for non-sparse integration -FC = $(FC_$(COMPILER)) -FOPT = $(FOPT_$(COMPILER)) # -DFULL_ALGEBRA - -LIBS = -#LIBS = -llapack -lblas - -# Command to create Matlab mex gateway routines -# Note: use $(FC) as the mex Fortran compiler -MEX = mex - -GENSRC = RACM_Precision.f90 \ - RACM_Parameters.f90 \ - RACM_Global.f90 - -GENOBJ = RACM_Precision.o \ - RACM_Parameters.o \ - RACM_Global.o - -FUNSRC = RACM_Function.f90 -FUNOBJ = RACM_Function.o - -JACSRC = RACM_JacobianSP.f90 RACM_Jacobian.f90 -JACOBJ = RACM_JacobianSP.o RACM_Jacobian.o - -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20160906 -# if HESSIAN is off, avoid compilation errors by not -# linking to the Hessian objects. -ifeq ($(wildcard RACM_HessianSP.f90),) - HESSRC = - HESOBJ = -else - HESSRC = RACM_HessianSP.f90 RACM_Hessian.f90 - HESOBJ = RACM_HessianSP.o RACM_Hessian.o -endif -# ---------------------------------------------------- - -STMSRC = RACM_StoichiomSP.f90 RACM_Stoichiom.f90 -STMOBJ = RACM_StoichiomSP.o RACM_Stoichiom.o - -UTLSRC = RACM_Rates.f90 RACM_Util.f90 RACM_Monitor.f90 -UTLOBJ = RACM_Rates.o RACM_Util.o RACM_Monitor.o - -LASRC = RACM_LinearAlgebra.f90 -LAOBJ = RACM_LinearAlgebra.o - -STOCHSRC = RACM_Stochastic.f90 -STOCHOBJ = RACM_Stochastic.o - -MAINSRC = RACM_Main.f90 RACM_Initialize.f90 RACM_Integrator.f90 RACM_Model.f90 -MAINOBJ = RACM_Main.o RACM_Initialize.o RACM_Integrator.o RACM_Model.o - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: modify the line below to include only the -# objects needed by your application -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -ALLOBJ = $(GENOBJ) $(FUNOBJ) $(JACOBJ) $(HESOBJ) $(STMOBJ) \ - $(UTLOBJ) $(LAOBJ) - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: modify the line below to include only the -# executables needed by your application -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -all: exe - -exe: $(ALLOBJ) $(MAINOBJ) - $(FC) $(FOPT) $(ALLOBJ) $(MAINOBJ) $(LIBS) -o RACM.exe - -pylib: $(ALLOBJ) lib_Initialize.o lib_Integrator.o lib_Model.o - f2py -c -m boxmox $(ALLOBJ) lib_Initialize.o lib_Integrator.o lib_Model.o lib_Main.f90 - -stochastic:$(ALLOBJ) $(STOCHOBJ) $(MAINOBJ) - $(FC) $(FOPT) $(ALLOBJ) $(STOCHOBJ) $(MAINOBJ) $(LIBS) \ - -o RACM_stochastic.exe - -mex: $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O RACM_mex_Fun.f90 $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O RACM_mex_Jac_SP.f90 $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O RACM_mex_Hessian.f90 $(ALLOBJ) - -clean: - rm -f RACM*.o RACM*.mod \ - RACM*.dat RACM.exe RACM*.mexglx \ - RACM.map - -distclean: - rm -f RACM*.o RACM*.mod \ - RACM*.dat RACM.exe RACM.map \ - RACM*.f90 RACM_*.mexglx - -RACM_Precision.o: RACM_Precision.f90 - $(FC) $(FOPT) -c $< - -RACM_Parameters.o: RACM_Parameters.f90 \ - RACM_Precision.o - $(FC) $(FOPT) -c $< - -RACM_Monitor.o: RACM_Monitor.f90 \ - RACM_Precision.o - $(FC) $(FOPT) -c $< - -RACM_Global.o: RACM_Global.f90 \ - RACM_Parameters.o RACM_Precision.o - $(FC) $(FOPT) -c $< - -RACM_Initialize.o: RACM_Initialize.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -RACM_Function.o: RACM_Function.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -RACM_Stochastic.o: RACM_Stochastic.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -RACM_JacobianSP.o: RACM_JacobianSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -RACM_Jacobian.o: RACM_Jacobian.f90 $(GENOBJ) RACM_JacobianSP.o - $(FC) $(FOPT) -c $< - -RACM_LinearAlgebra.o: RACM_LinearAlgebra.f90 $(GENOBJ) RACM_JacobianSP.o - $(FC) $(FOPT) -c $< - -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# need Util in Rates -#RACM_Rates.o: RACM_Rates.f90 $(GENOBJ) -RACM_Rates.o: RACM_Rates.f90 $(GENOBJ) RACM_Util.o -# ---------------------------------------------------- - $(FC) $(FOPT) -c $< - -RACM_HessianSP.o: RACM_HessianSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -RACM_Hessian.o: RACM_Hessian.f90 $(GENOBJ) RACM_HessianSP.o - $(FC) $(FOPT) -c $< - -RACM_StoichiomSP.o: RACM_StoichiomSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -RACM_Stoichiom.o: RACM_Stoichiom.f90 $(GENOBJ) RACM_StoichiomSP.o - $(FC) $(FOPT) -c $< - -RACM_Util.o: RACM_Util.f90 $(GENOBJ) RACM_Monitor.o - $(FC) $(FOPT) -c $< - -RACM_Main.o: RACM_Main.f90 $(ALLOBJ) RACM_Initialize.o RACM_Model.o RACM_Integrator.o - $(FC) $(FOPT) -c $< - -RACM_Model.o: RACM_Model.f90 $(ALLOBJ) RACM_Integrator.o - $(FC) $(FOPT) -c $< - -RACM_Integrator.o: RACM_Integrator.f90 $(ALLOBJ) - $(FC) $(FOPT) -c $< diff --git a/boxmox/compiled_mechs/RACM/RACM.exe b/boxmox/compiled_mechs/RACM/RACM.exe deleted file mode 100755 index 0c9ac7df0fb98fd3031be408d3b1fd7a5e3ef372..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/RACM.exe and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/RACM.kpp b/boxmox/compiled_mechs/RACM/RACM.kpp deleted file mode 100644 index a8851e245229333ccbd94d35c77b237565bcb5ea..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RACM/RACM.kpp +++ /dev/null @@ -1,7 +0,0 @@ -#MODEL RACM -#LANGUAGE Fortran90 -#DOUBLE ON -#INTEGRATOR rosenbrock -#DRIVER ../boxmox/boxmox -#JACOBIAN SPARSE_LU_ROW -#HESSIAN OFF diff --git a/boxmox/compiled_mechs/RACM/RACM.map b/boxmox/compiled_mechs/RACM/RACM.map deleted file mode 100644 index 0d94949596c56cfb4aba85a6ae5d76b11c8e8e15..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RACM/RACM.map +++ /dev/null @@ -1,99 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Map File with Human-Readable Information -! -! Generated by KPP-2.2.3 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 : RACM.map -! Time : Thu Oct 8 08:22:22 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RACM_22746_BOXMOX -! Equation file : RACM.kpp -! Output root filename : RACM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -### Options ------------------------------------------- - -FUNCTION - AGGREGATE -JACOBIAN - SPARSE W/ ACCOUNT FOR LU DECOMPOSITION FILL-IN -DOUBLE - ON -REORDER - ON - -### Parameters ---------------------------------------- - -! NSPEC - Number of chemical species - INTEGER, PARAMETER :: NSPEC = 84 -! NVAR - Number of Variable species - INTEGER, PARAMETER :: NVAR = 82 -! NVARACT - Number of Active species - INTEGER, PARAMETER :: NVARACT = 78 -! NFIX - Number of Fixed species - INTEGER, PARAMETER :: NFIX = 2 -! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 250 -! NVARST - Starting of variables in conc. vect. - INTEGER, PARAMETER :: NVARST = 1 -! NFIXST - Starting of fixed in conc. vect. - INTEGER, PARAMETER :: NFIXST = 83 - -### Species ------------------------------------------- - -Variable species - 1 = SULF (n) 29 = ADDX (r) 57 = HC5P (r) - 2 = CO2 (n) 30 = ETE (r) 58 = HCHO (r) - 3 = ORA1 (n) 31 = ADDC (r) 59 = TOLP (r) - 4 = ORA2 (n) 32 = HNO3 (r) 60 = XYLP (r) - 5 = SO2 (r) 33 = PAA (r) 61 = OLIP (r) - 6 = O1D (r) 34 = ISON (r) 62 = ONIT (r) - 7 = ISHP (r) 35 = SESQ (r) 63 = DCB (r) - 8 = HC5 (r) 36 = PAN (r) 64 = XO2 (r) - 9 = TOL (r) 37 = API (r) 65 = OLT (r) - 10 = XYL (r) 38 = CO (r) 66 = ALD (r) - 11 = N2O5 (r) 39 = LIM (r) 67 = OLI (r) - 12 = HC8 (r) 40 = ISO (r) 68 = OLND (r) - 13 = MAHP (r) 41 = MBO (r) 69 = OLNN (r) - 14 = HC3 (r) 42 = CSL (r) 70 = ETHP (r) - 15 = UDD (r) 43 = DIEN (r) 71 = TCO3 (r) - 16 = NALD (r) 44 = MACP (r) 72 = O3 (r) - 17 = ETH (r) 45 = TPAN (r) 73 = HC3P (r) - 18 = CH4 (r) 46 = GLY (r) 74 = MO2 (r) - 19 = HNO4 (r) 47 = ETEP (r) 75 = OP2 (r) - 20 = OP1 (r) 48 = OLTP (r) 76 = HO2 (r) - 21 = MPAN (r) 49 = MACR (r) 77 = ACO3 (r) - 22 = HACE (r) 50 = ISOP (r) 78 = HO (r) - 23 = HONO (r) 51 = APIP (r) 79 = NO3 (r) - 24 = HKET (r) 52 = KET (r) 80 = KETP (r) - 25 = O3P (r) 53 = MGLY (r) 81 = NO (r) - 26 = PHO (r) 54 = CSLP (r) 82 = NO2 (r) - 27 = H2O2 (r) 55 = LIMP (r) - 28 = ADDT (r) 56 = HC8P (r) - -Fixed species - 1 = H2O (r) 2 = M (r) - -### Subroutines --------------------------------------- - -SUBROUTINE Fun ( V, F, RCT, Vdot ) -SUBROUTINE Jac_SP ( V, F, RCT, JVS ) -SUBROUTINE Jac_SP_Vec ( JVS, UV, JUV ) -SUBROUTINE JacTR_SP_Vec ( JVS, UV, JTUV ) -SUBROUTINE KppSolve ( JVS, X ) -SUBROUTINE KppSolveTR ( JVS, X, XX ) -SUBROUTINE Initialize ( ) -SUBROUTINE Shuffle_user2kpp ( V_USER, V ) -SUBROUTINE Shuffle_kpp2user ( V, V_USER ) -SUBROUTINE Update_RCONST ( ) -SUBROUTINE Update_PHOTO ( ) -SUBROUTINE GetMass ( CL, Mass ) -SUBROUTINE ReactantProd ( V, F, ARP ) -SUBROUTINE JacReactantProd ( V, F, JVRP ) diff --git a/boxmox/compiled_mechs/RACM/RACM_Function.f90 b/boxmox/compiled_mechs/RACM/RACM_Function.f90 deleted file mode 100644 index 25985a3e9d647bb3232704f40b81add7b7ff382e..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RACM/RACM_Function.f90 +++ /dev/null @@ -1,476 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The ODE Function of Chemical Model File -! -! Generated by KPP-2.2.3 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 : RACM_Function.f90 -! Time : Thu Oct 8 08:22:22 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RACM_22746_BOXMOX -! Equation file : RACM.kpp -! Output root filename : RACM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RACM_Function - - USE RACM_Parameters - IMPLICIT NONE - -! A - Rate for each equation - REAL(kind=dp) :: A(NREACT) - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Fun - time derivatives of variables - Agregate form -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! RCT - Rate constants (local) -! Vdot - Time derivative of variable species concentrations -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Fun ( V, F, RCT, Vdot ) - -! 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) -! Vdot - Time derivative of variable species concentrations - REAL(kind=dp) :: Vdot(NVAR) - - -! Computation of equation rates - A(1) = RCT(1)*V(82) - A(2) = RCT(2)*V(72) - A(3) = RCT(3)*V(72) - A(4) = RCT(4)*V(23) - A(5) = RCT(5)*V(32) - A(6) = RCT(6)*V(19) - A(7) = RCT(7)*V(79) - A(8) = RCT(8)*V(79) - A(9) = RCT(9)*V(27) - A(10) = RCT(10)*V(58) - A(11) = RCT(11)*V(58) - A(12) = RCT(12)*V(66) - A(13) = RCT(13)*V(20) - A(14) = RCT(14)*V(75) - A(15) = RCT(15)*V(33) - A(16) = RCT(16)*V(52) - A(17) = RCT(17)*V(46) - A(18) = RCT(18)*V(46) - A(19) = RCT(19)*V(53) - A(20) = RCT(20)*V(63) - A(21) = RCT(21)*V(62) - A(22) = RCT(22)*V(49) - A(23) = RCT(23)*V(24) - A(24) = RCT(24)*V(25)*F(2) - A(25) = RCT(25)*V(25)*V(72) - A(26) = RCT(26)*V(6)*F(2) - A(27) = RCT(27)*V(6)*F(1) - A(28) = RCT(28)*V(72)*V(78) - A(29) = RCT(29)*V(72)*V(76) - A(30) = RCT(30)*V(76)*V(78) - A(31) = RCT(31)*V(27)*V(78) - A(32) = RCT(32)*V(76)*V(76) - A(33) = RCT(33)*V(76)*V(76)*F(1) - A(34) = RCT(34)*V(25)*V(81) - A(35) = RCT(35)*V(25)*V(82) - A(36) = RCT(36)*V(25)*V(82) - A(37) = RCT(37)*V(78)*V(81) - A(38) = RCT(38)*V(78)*V(82) - A(39) = RCT(39)*V(78)*V(79) - A(40) = RCT(40)*V(76)*V(81) - A(41) = RCT(41)*V(76)*V(82) - A(42) = RCT(42)*V(19) - A(43) = RCT(43)*V(76)*V(79) - A(44) = RCT(44)*V(23)*V(78) - A(45) = RCT(45)*V(32)*V(78) - A(46) = RCT(46)*V(19)*V(78) - A(47) = RCT(47)*V(72)*V(81) - A(48) = RCT(48)*V(72)*V(82) - A(49) = RCT(49)*V(81)*V(81)*F(2) - A(50) = RCT(50)*V(79)*V(81) - A(51) = RCT(51)*V(79)*V(82) - A(52) = RCT(52)*V(79)*V(82) - A(53) = RCT(53)*V(11) - A(54) = RCT(54)*V(79)*V(79) - A(55) = RCT(55)*V(78)*F(2) - A(56) = RCT(56)*V(5)*V(78) - A(57) = RCT(57)*V(38)*V(78) - A(58) = RCT(58)*V(16)*V(78) - A(59) = RCT(59)*V(22)*V(78) - A(60) = RCT(60)*V(18)*V(78) - A(61) = RCT(61)*V(17)*V(78) - A(62) = RCT(62)*V(14)*V(78) - A(63) = RCT(63)*V(8)*V(78) - A(64) = RCT(64)*V(12)*V(78) - A(65) = RCT(65)*V(30)*V(78) - A(66) = RCT(66)*V(65)*V(78) - A(67) = RCT(67)*V(67)*V(78) - A(68) = RCT(68)*V(43)*V(78) - A(69) = RCT(69)*V(40)*V(78) - A(70) = RCT(70)*V(37)*V(78) - A(71) = RCT(71)*V(39)*V(78) - A(72) = RCT(72)*V(9)*V(78) - A(73) = RCT(73)*V(10)*V(78) - A(74) = RCT(74)*V(42)*V(78) - A(75) = RCT(75)*V(58)*V(78) - A(76) = RCT(76)*V(66)*V(78) - A(77) = RCT(77)*V(52)*V(78) - A(78) = RCT(78)*V(24)*V(78) - A(79) = RCT(79)*V(46)*V(78) - A(80) = RCT(80)*V(53)*V(78) - A(81) = RCT(81)*V(49)*V(78) - A(82) = RCT(82)*V(63)*V(78) - A(83) = RCT(83)*V(15)*V(78) - A(84) = RCT(84)*V(20)*V(78) - A(85) = RCT(85)*V(75)*V(78) - A(86) = RCT(86)*V(33)*V(78) - A(87) = RCT(87)*V(36)*V(78) - A(88) = RCT(88)*V(45)*V(78) - A(89) = RCT(89)*V(62)*V(78) - A(90) = RCT(90)*V(58)*V(79) - A(91) = RCT(91)*V(66)*V(79) - A(92) = RCT(92)*V(46)*V(79) - A(93) = RCT(93)*V(53)*V(79) - A(94) = RCT(94)*V(13)*V(78) - A(95) = RCT(95)*V(63)*V(79) - A(96) = RCT(96)*V(42)*V(79) - A(97) = RCT(97)*V(30)*V(79) - A(98) = RCT(98)*V(65)*V(79) - A(99) = RCT(99)*V(67)*V(79) - A(100) = RCT(100)*V(43)*V(79) - A(101) = RCT(101)*V(40)*V(79) - A(102) = RCT(102)*V(37)*V(79) - A(103) = RCT(103)*V(39)*V(79) - A(104) = RCT(104)*V(45)*V(79) - A(105) = RCT(105)*V(30)*V(72) - A(106) = RCT(106)*V(65)*V(72) - A(107) = RCT(107)*V(67)*V(72) - A(108) = RCT(108)*V(43)*V(72) - A(109) = RCT(109)*V(40)*V(72) - A(110) = RCT(110)*V(37)*V(72) - A(111) = RCT(111)*V(39)*V(72) - A(112) = RCT(112)*V(49)*V(72) - A(113) = RCT(113)*V(63)*V(72) - A(114) = RCT(114)*V(45)*V(72) - A(115) = RCT(115)*V(26)*V(82) - A(116) = RCT(116)*V(26)*V(76) - A(117) = RCT(117)*V(28)*V(82) - A(118) = RCT(118)*V(28)*F(2) - A(119) = RCT(119)*V(28)*V(72) - A(120) = RCT(120)*V(29)*V(82) - A(121) = RCT(121)*V(29)*F(2) - A(122) = RCT(122)*V(29)*V(72) - A(123) = RCT(123)*V(31)*V(82) - A(124) = RCT(124)*V(31)*F(2) - A(125) = RCT(125)*V(31)*V(72) - A(126) = RCT(126)*V(77)*V(82) - A(127) = RCT(127)*V(36) - A(128) = RCT(128)*V(71)*V(82) - A(129) = RCT(129)*V(45) - A(130) = RCT(130)*V(74)*V(81) - A(131) = RCT(131)*V(70)*V(81) - A(132) = RCT(132)*V(73)*V(81) - A(133) = RCT(133)*V(57)*V(81) - A(134) = RCT(134)*V(56)*V(81) - A(135) = RCT(135)*V(47)*V(81) - A(136) = RCT(136)*V(48)*V(81) - A(137) = RCT(137)*V(61)*V(81) - A(138) = RCT(138)*V(50)*V(81) - A(139) = RCT(139)*V(51)*V(81) - A(140) = RCT(140)*V(55)*V(81) - A(141) = RCT(141)*V(59)*V(81) - A(142) = RCT(142)*V(60)*V(81) - A(143) = RCT(143)*V(54)*V(81) - A(144) = RCT(144)*V(77)*V(81) - A(145) = RCT(145)*V(71)*V(81) - A(146) = RCT(146)*V(80)*V(81) - A(147) = RCT(147)*V(69)*V(81) - A(148) = RCT(148)*V(68)*V(81) - A(149) = RCT(149)*V(74)*V(76) - A(150) = RCT(150)*V(70)*V(76) - A(151) = RCT(151)*V(73)*V(76) - A(152) = RCT(152)*V(57)*V(76) - A(153) = RCT(153)*V(56)*V(76) - A(154) = RCT(154)*V(47)*V(76) - A(155) = RCT(155)*V(48)*V(76) - A(156) = RCT(156)*V(61)*V(76) - A(157) = RCT(157)*V(50)*V(76) - A(158) = RCT(158)*V(51)*V(76) - A(159) = RCT(159)*V(55)*V(76) - A(160) = RCT(160)*V(59)*V(76) - A(161) = RCT(161)*V(60)*V(76) - A(162) = RCT(162)*V(54)*V(76) - A(163) = RCT(163)*V(76)*V(77) - A(164) = RCT(164)*V(76)*V(77) - A(165) = RCT(165)*V(71)*V(76) - A(166) = RCT(166)*V(71)*V(76) - A(167) = RCT(167)*V(76)*V(80) - A(168) = RCT(168)*V(69)*V(76) - A(169) = RCT(169)*V(68)*V(76) - A(170) = RCT(170)*V(74)*V(74) - A(171) = RCT(171)*V(70)*V(74) - A(172) = RCT(172)*V(73)*V(74) - A(173) = RCT(173)*V(57)*V(74) - A(174) = RCT(174)*V(56)*V(74) - A(175) = RCT(175)*V(47)*V(74) - A(176) = RCT(176)*V(48)*V(74) - A(177) = RCT(177)*V(61)*V(74) - A(178) = RCT(178)*V(50)*V(74) - A(179) = RCT(179)*V(51)*V(74) - A(180) = RCT(180)*V(55)*V(74) - A(181) = RCT(181)*V(59)*V(74) - A(182) = RCT(182)*V(60)*V(74) - A(183) = RCT(183)*V(54)*V(74) - A(184) = RCT(184)*V(74)*V(77) - A(185) = RCT(185)*V(74)*V(77) - A(186) = RCT(186)*V(71)*V(74) - A(187) = RCT(187)*V(71)*V(74) - A(188) = RCT(188)*V(74)*V(80) - A(189) = RCT(189)*V(69)*V(74) - A(190) = RCT(190)*V(68)*V(74) - A(191) = RCT(191)*V(70)*V(77) - A(192) = RCT(192)*V(73)*V(77) - A(193) = RCT(193)*V(57)*V(77) - A(194) = RCT(194)*V(56)*V(77) - A(195) = RCT(195)*V(47)*V(77) - A(196) = RCT(196)*V(48)*V(77) - A(197) = RCT(197)*V(61)*V(77) - A(198) = RCT(198)*V(50)*V(77) - A(199) = RCT(199)*V(51)*V(77) - A(200) = RCT(200)*V(55)*V(77) - A(201) = RCT(201)*V(59)*V(77) - A(202) = RCT(202)*V(60)*V(77) - A(203) = RCT(203)*V(54)*V(77) - A(204) = RCT(204)*V(77)*V(77) - A(205) = RCT(205)*V(71)*V(77) - A(206) = RCT(206)*V(77)*V(80) - A(207) = RCT(207)*V(69)*V(77) - A(208) = RCT(208)*V(68)*V(77) - A(209) = RCT(209)*V(69)*V(69) - A(210) = RCT(210)*V(68)*V(69) - A(211) = RCT(211)*V(68)*V(68) - A(212) = RCT(212)*V(74)*V(79) - A(213) = RCT(213)*V(70)*V(79) - A(214) = RCT(214)*V(73)*V(79) - A(215) = RCT(215)*V(57)*V(79) - A(216) = RCT(216)*V(56)*V(79) - A(217) = RCT(217)*V(47)*V(79) - A(218) = RCT(218)*V(48)*V(79) - A(219) = RCT(219)*V(61)*V(79) - A(220) = RCT(220)*V(21)*V(78) - A(221) = RCT(221)*V(51)*V(79) - A(222) = RCT(222)*V(55)*V(79) - A(223) = RCT(223)*V(59)*V(79) - A(224) = RCT(224)*V(60)*V(79) - A(225) = RCT(225)*V(54)*V(79) - A(226) = RCT(226)*V(77)*V(79) - A(227) = RCT(227)*V(71)*V(79) - A(228) = RCT(228)*V(79)*V(80) - A(229) = RCT(229)*V(69)*V(79) - A(230) = RCT(230)*V(68)*V(79) - A(231) = RCT(231)*V(64)*V(76) - A(232) = RCT(232)*V(64)*V(74) - A(233) = RCT(233)*V(64)*V(77) - A(234) = RCT(234)*V(64)*V(64) - A(235) = RCT(235)*V(64)*V(81) - A(236) = RCT(236)*V(64)*V(79) - A(237) = RCT(237)*V(50)*V(50) - A(238) = RCT(238)*V(7)*V(78) - A(239) = RCT(239)*V(34)*V(78) - A(240) = RCT(240)*V(44)*V(81) - A(241) = RCT(241)*V(44)*V(76) - A(242) = RCT(242)*V(44)*V(44) - A(243) = RCT(243)*V(44)*V(82) - A(244) = RCT(244)*V(21) - A(245) = RCT(245)*V(35)*V(78) - A(246) = RCT(246)*V(35)*V(72) - A(247) = RCT(247)*V(35)*V(79) - A(248) = RCT(248)*V(41)*V(78) - A(249) = RCT(249)*V(41)*V(79) - A(250) = RCT(250)*V(41)*V(72) - -! Aggregate function - Vdot(1) = A(56) - Vdot(2) = A(57) - Vdot(3) = 0.036*A(62)+0.37*A(105)+0.14*A(106)+0.15*A(108)+0.28*A(109)+0.01*A(111)+0.45*A(112)+0.11*A(113)+0.11*A(114)& - &+0.05*A(245)+0.039*A(246) - Vdot(4) = 0.1*A(106)+0.14*A(107)+0.07*A(111)+0.21*A(113)+A(164)+A(166)+A(185)+A(187)+0.5*A(191)+0.499*A(192)+0.495& - &*A(193)+0.495*A(194)+0.5*A(195)+0.499*A(196)+0.49*A(197)+0.494*A(198)+0.5*A(206)+0.5*A(207)+0.484*A(208)& - &+0.053*A(246)+0.14*A(250) - Vdot(5) = -A(56) - Vdot(6) = A(2)-A(26)-A(27) - Vdot(7) = A(157)-A(238) - Vdot(8) = -A(63) - Vdot(9) = -A(72) - Vdot(10) = -A(73) - Vdot(11) = A(52)-A(53) - Vdot(12) = -A(64) - Vdot(13) = -A(94)+A(241) - Vdot(14) = -A(62) - Vdot(15) = 0.35*A(82)-A(83) - Vdot(16) = -A(58)+A(239) - Vdot(17) = -A(61)+0.03*A(106)+0.06*A(107)+0.06*A(250) - Vdot(18) = -A(60)+0.06*A(106)+0.07*A(107)+0.07*A(250) - Vdot(19) = -A(6)+A(41)-A(42)-A(46) - Vdot(20) = -A(13)-A(84)+A(149) - Vdot(21) = -A(220)+A(243)-A(244) - Vdot(22) = -A(59)+A(220)+A(239)+0.25*A(240)+A(242) - Vdot(23) = -A(4)+A(37)-A(44)+A(117)+A(120)+A(123) - Vdot(24) = -A(23)+0.024*A(64)-A(78)+0.6*A(88)+0.3*A(188) - Vdot(25) = A(1)+A(3)+A(8)-A(24)-A(25)+A(26)-A(34)-A(35)-A(36)+0.09*A(108) - Vdot(26) = 0.1*A(74)+A(96)-A(115)-A(116) - Vdot(27) = -A(9)-A(31)+A(32)+A(33)+0.006*A(106)+0.011*A(107)+0.001*A(108)+0.09*A(109)+0.02*A(110)+0.02*A(111)+0.011& - &*A(250) - Vdot(28) = 0.9*A(72)-A(117)-A(118)-A(119) - Vdot(29) = 0.9*A(73)-A(120)-A(121)-A(122) - Vdot(30) = -A(65)-A(97)-A(105) - Vdot(31) = 0.85*A(74)-A(123)-A(124)-A(125) - Vdot(32) = -A(5)+A(38)+0.3*A(43)-A(45)+A(90)+A(91)+A(92)+A(93)+0.5*A(95)+A(96) - Vdot(33) = -A(15)-A(86)+0.11*A(113)+A(163) - Vdot(34) = A(101)+0.046*A(138)-A(239) - Vdot(35) = -A(245)-A(246)-A(247) - Vdot(36) = -A(87)+0.4*A(88)+0.4*A(104)+0.3*A(114)+A(126)-A(127) - Vdot(37) = -A(70)-A(102)-A(110) - Vdot(38) = A(10)+A(11)+A(12)+1.87*A(17)+1.55*A(18)+A(19)+A(22)-A(57)+A(58)+0.036*A(62)+A(75)+2*A(79)+A(80)+A(90)+2& - &*A(92)+A(93)+0.43*A(105)+0.37*A(106)+0.3*A(107)+0.36*A(108)+0.14*A(109)+0.14*A(110)+0.14*A(111)+0.22*A(112)& - &+0.66*A(113)+0.13*A(114)+0.25*A(240)+0.5*A(242)+0.3*A(250) - Vdot(39) = -A(71)-A(103)-A(111) - Vdot(40) = -A(69)-A(101)-A(109) - Vdot(41) = -A(248)-A(249)-A(250) - Vdot(42) = -A(74)-A(96)+0.1*A(115)+A(116)+A(117)+0.02*A(118)+A(119)+A(120)+0.02*A(121)+A(122)+A(123)+0.02*A(124)& - &+A(125) - Vdot(43) = -A(68)-A(100)-A(108) - Vdot(44) = A(81)+A(94)+0.1*A(109)-A(240)-A(241)-2*A(242)-A(243)+A(244) - Vdot(45) = -A(88)-A(104)-A(114)+A(128)-A(129) - Vdot(46) = -A(17)-A(18)+0.036*A(62)-A(79)+0.15*A(82)-A(92)+0.25*A(95)+0.5*A(113)+0.063*A(132)+1.2*A(141)+0.35*A(142)& - &+A(143)+0.119*A(172)+0.65*A(181)+0.37*A(182)+A(183)+0.1*A(192)+0.65*A(201)+0.37*A(202)+A(203)+0.063*A(214)& - &+1.3*A(223)+0.74*A(224)+A(225) - Vdot(47) = A(65)-A(135)-A(154)-A(175)-A(195)-A(217) - Vdot(48) = A(66)-A(136)-A(155)-A(176)-A(196)-A(218) - Vdot(49) = -A(22)-A(81)+0.9*A(100)+0.39*A(108)+0.65*A(109)+0.79*A(111)-A(112)+A(138)+0.4*A(140)+0.55*A(178)+0.6*A(180)& - &+0.771*A(198)+0.6*A(200)+0.6*A(222)+2*A(237)+A(238)+0.9*A(247) - Vdot(50) = A(68)+A(69)-A(138)-A(157)-A(178)-A(198)-2*A(237) - Vdot(51) = A(70)-A(139)-A(158)-A(179)-A(199)-A(221) - Vdot(52) = -A(16)+0.8*A(21)+0.25*A(63)-A(77)+0.12*A(83)+0.41*A(85)+0.03*A(95)+0.03*A(106)+0.16*A(107)+0.53*A(110)& - &+0.623*A(132)+0.722*A(133)+0.642*A(134)+0.06*A(136)+0.29*A(137)+0.8*A(139)+0.464*A(148)+0.018*A(172)+0.24& - &*A(173)+0.419*A(174)+0.081*A(176)+0.313*A(177)+A(179)+0.149*A(190)+0.127*A(192)+0.33*A(193)+0.581*A(194)& - &+0.141*A(196)+0.569*A(197)+A(199)+0.11*A(206)+0.167*A(208)+0.149*A(210)+0.285*A(211)+0.67*A(214)+0.828& - &*A(215)+0.88*A(216)+0.06*A(218)+0.29*A(219)+A(221)+0.469*A(230)+0.36*A(245)+0.23*A(246)+0.16*A(250) - Vdot(53) = -A(19)+A(59)+A(78)-A(80)+0.15*A(82)-A(93)+0.25*A(95)+0.9*A(112)+0.62*A(113)+0.65*A(141)+0.6*A(142)+A(143)& - &+0.54*A(146)+0.005*A(172)+0.35*A(181)+0.63*A(182)+A(183)+0.4*A(188)+0.004*A(192)+0.35*A(201)+0.63*A(202)& - &+A(203)+0.54*A(206)+0.7*A(223)+1.26*A(224)+A(225)+0.54*A(228)+0.5*A(240)+A(242) - Vdot(54) = 0.98*A(124)-A(143)-A(162)-A(183)-A(203)-A(225) - Vdot(55) = A(71)-A(140)-A(159)-A(180)-A(200)-A(222) - Vdot(56) = 0.9511*A(64)-A(134)-A(153)-A(174)-A(194)-A(216) - Vdot(57) = 0.75*A(63)-A(133)-A(152)-A(173)-A(193)-A(215) - Vdot(58) = -A(10)-A(11)+A(13)+0.13*A(17)+0.45*A(18)+A(22)+A(23)+A(58)+0.01*A(62)-A(75)+0.35*A(84)+0.35*A(86)+A(87)+0.4& - &*A(88)-A(90)+0.4*A(104)+A(105)+0.64*A(106)+0.02*A(107)+0.9*A(108)+0.58*A(109)+0.04*A(111)+0.7*A(114)+A(130)& - &+0.047*A(132)+0.021*A(133)+1.6*A(135)+A(136)+A(138)+0.25*A(140)+A(145)+0.287*A(148)+1.33*A(170)+0.75*A(171)& - &+0.81*A(172)+0.829*A(173)+0.753*A(174)+1.55*A(175)+1.25*A(176)+0.755*A(177)+1.09*A(178)+A(179)+1.4*A(180)& - &+A(181)+A(182)+A(183)+A(184)+A(185)+2*A(186)+A(187)+0.75*A(188)+0.75*A(189)+0.96*A(190)+0.091*A(192)+0.076& - &*A(193)+0.8*A(195)+0.501*A(196)+0.34*A(198)+0.4*A(200)+A(205)+0.207*A(208)+0.202*A(210)+0.504*A(211)+A(212)& - &+0.048*A(214)+0.021*A(215)+1.6*A(217)+A(218)+0.4*A(222)+A(227)+0.28*A(230)+A(232)+A(237)+0.75*A(240)+0.5& - &*A(242)+0.3*A(245)+0.51*A(246)+0.02*A(250) - Vdot(59) = 0.98*A(118)-A(141)-A(160)-A(181)-A(201)-A(223) - Vdot(60) = 0.98*A(121)-A(142)-A(161)-A(182)-A(202)-A(224) - Vdot(61) = A(67)-A(137)-A(156)-A(177)-A(197)-A(219)+0.19*A(245)+A(248) - Vdot(62) = -A(21)-A(89)+0.6*A(104)+A(115)+0.059*A(132)+0.124*A(133)+0.261*A(134)+0.2*A(139)+0.35*A(140)+0.05*A(141)& - &+0.05*A(142)+A(147)+A(168)+A(169)+A(189)+0.5*A(190)+A(207)+0.484*A(208)+2*A(209)+1.5*A(210)+A(211)+A(229) - Vdot(63) = -A(20)-A(82)-A(95)-A(113)+0.5*A(141)+0.95*A(142)+A(181)+A(182)+A(201)+A(202)+0.5*A(223)+A(224) - Vdot(64) = 0.1*A(72)+0.1*A(73)+0.05*A(74)+0.5*A(82)+0.07*A(85)+0.35*A(86)+A(87)+A(88)+0.5*A(95)+A(104)+0.13*A(108)& - &+0.048*A(132)+0.334*A(133)+0.416*A(134)+0.16*A(146)+0.085*A(172)+0.245*A(173)+0.322*A(174)+0.08*A(188)+0.071& - &*A(192)+0.237*A(193)+0.318*A(194)+0.08*A(206)+0.051*A(214)+0.391*A(215)+0.587*A(216)+0.16*A(228)-A(231)& - &-A(232)-A(233)-2*A(234)-A(235)-A(236) - Vdot(65) = -A(66)-A(98)-A(106)+0.35*A(108)+0.46*A(111)+0.37*A(178)+0.229*A(198) - Vdot(66) = -A(12)+A(14)+0.2*A(21)+0.335*A(62)+0.025*A(64)-A(76)+0.88*A(83)+0.08*A(85)-A(91)+0.25*A(95)+0.44*A(106)& - &+0.99*A(107)+0.65*A(110)+0.16*A(113)+A(131)+0.233*A(132)+0.211*A(133)+0.15*A(134)+0.2*A(135)+0.94*A(136)& - &+1.71*A(137)+0.8*A(139)+0.46*A(146)+1.24*A(148)+0.75*A(171)+0.58*A(172)+0.523*A(173)+0.411*A(174)+0.35& - &*A(175)+0.669*A(176)+0.932*A(177)+A(179)+0.3*A(188)+0.64*A(190)+A(191)+0.724*A(192)+0.677*A(193)+0.497& - &*A(194)+0.6*A(195)+0.859*A(196)+0.941*A(197)+A(199)+0.35*A(206)+0.65*A(208)+0.64*A(210)+1.21*A(211)+A(213)& - &+0.243*A(214)+0.239*A(215)+0.187*A(216)+0.2*A(217)+0.94*A(218)+1.71*A(219)+A(221)+0.46*A(228)+1.24*A(230)& - &+0.85*A(246)+0.99*A(250) - Vdot(67) = -A(67)-A(99)-A(107)+0.25*A(140)+0.08*A(178)+0.4*A(180)+0.4*A(200)+0.4*A(222) - Vdot(68) = 0.2*A(97)+0.57*A(98)+0.89*A(99)+0.1*A(100)+0.9*A(102)+0.87*A(103)-A(148)-A(169)-A(190)-A(208)-A(210)-2& - &*A(211)-A(230)+0.1*A(247)+0.89*A(249) - Vdot(69) = 0.8*A(97)+0.43*A(98)+0.11*A(99)+0.9*A(100)+0.1*A(102)+0.13*A(103)-A(147)-A(168)-A(189)-A(207)-2*A(209)& - &-A(210)-A(229)+0.9*A(247)+0.11*A(249) - Vdot(70) = A(16)+A(61)+0.1*A(106)+0.18*A(107)+0.2*A(110)+0.16*A(111)-A(131)+0.048*A(132)+0.245*A(133)+0.133*A(134)& - &-A(150)-A(171)+0.014*A(173)+0.013*A(174)-A(191)+0.006*A(192)+0.018*A(193)+0.015*A(194)-A(213)+0.053*A(214)& - &+0.262*A(215)+0.155*A(216)+0.18*A(250) - Vdot(71) = A(20)+0.5*A(82)+0.5*A(95)-A(128)+A(129)-A(145)-A(165)-A(166)-A(186)-A(187)-A(205)-A(227) - Vdot(72) = -A(2)-A(3)+A(24)-A(25)-A(28)-A(29)-A(47)-A(48)-A(105)-A(106)-A(107)-A(108)-A(109)-A(110)-A(111)-A(112)& - &-A(113)-A(114)-A(119)-A(122)-A(125)+A(164)+A(166)-A(246)-A(250) - Vdot(73) = 0.583*A(62)+0.44*A(85)+A(89)-A(132)-A(151)-A(172)-A(192)-A(214) - Vdot(74) = A(12)+A(15)+A(60)+0.65*A(84)+0.19*A(106)+0.23*A(107)+0.03*A(108)+0.08*A(109)-A(130)+0.15*A(132)+0.031& - &*A(133)+A(144)-A(149)-2*A(170)-A(171)-0.993*A(172)-0.951*A(173)-A(174)-A(175)-A(176)-A(177)-A(178)-A(179)& - &-A(180)-A(181)-A(182)-A(183)-A(185)-A(186)-A(187)-A(188)-A(189)-A(190)+0.5*A(191)+0.508*A(192)+0.554*A(193)& - &+0.507*A(194)+0.5*A(195)+0.501*A(196)+0.51*A(197)+0.506*A(198)+A(199)+A(200)+A(201)+A(202)+A(203)+2*A(204)& - &+A(205)+0.5*A(206)+0.5*A(207)+0.516*A(208)-A(212)+0.155*A(214)+0.04*A(215)+A(226)-A(232)+A(233)+0.23*A(250) - Vdot(75) = -A(14)-A(85)+A(150)+A(151)+A(152)+A(153)+A(154)+A(155)+A(156)+A(158)+A(159)+A(160)+A(161)+A(162)+A(165)& - &+A(167)+A(231) - Vdot(76) = 0.65*A(6)+2*A(11)+A(12)+A(13)+A(14)+0.8*A(18)+A(19)+A(20)+A(21)+A(22)+A(23)+A(28)-A(29)-A(30)+A(31)-2*A(32)& - &-2*A(33)+A(39)-A(40)-A(41)+A(42)-A(43)+A(55)+A(56)+A(57)+A(59)+0.381*A(62)+0.25*A(63)+0.049*A(64)+0.1*A(72)& - &+0.1*A(73)+0.05*A(74)+A(75)+A(78)+A(79)+0.5*A(82)+A(83)+0.35*A(86)+0.4*A(88)+A(90)+A(92)+0.5*A(95)+0.26& - &*A(105)+0.25*A(106)+0.22*A(107)+0.3*A(108)+0.25*A(109)+0.1*A(110)+0.1*A(111)+0.32*A(112)+0.29*A(113)+0.08& - &*A(114)-A(116)+0.02*A(118)+0.02*A(121)+0.02*A(124)+A(130)+A(131)+0.742*A(132)+0.599*A(133)+0.606*A(134)& - &+A(135)+A(136)+A(137)+A(138)+0.8*A(139)+0.65*A(140)+0.95*A(141)+0.95*A(142)+A(143)+0.77*A(146)+A(147)-A(149)& - &-A(150)-A(151)-A(152)-A(153)-A(154)-A(155)-A(156)-A(157)-A(158)-A(159)-A(160)-A(161)-A(162)-A(163)-A(164)& - &-A(165)-A(166)-A(167)-A(168)-A(169)+0.66*A(170)+A(171)+0.992*A(172)+0.946*A(173)+0.993*A(174)+A(175)+A(176)& - &+A(177)+A(178)+2*A(179)+2*A(180)+A(181)+A(182)+2*A(183)+A(184)+A(186)+0.88*A(188)+A(189)+0.5*A(190)+0.5& - &*A(191)+0.488*A(192)+0.438*A(193)+0.489*A(194)+0.5*A(195)+0.501*A(196)+0.51*A(197)+0.506*A(198)+A(199)& - &+A(200)+A(201)+A(202)+A(203)+0.38*A(206)+0.5*A(207)+A(209)+0.5*A(210)+A(212)+A(213)+0.792*A(214)+0.699& - &*A(215)+0.845*A(216)+A(217)+A(218)+A(219)+A(221)+A(222)+A(223)+A(224)+A(225)+0.77*A(228)+A(229)-A(231)& - &+A(232)+A(237)+0.75*A(240)-A(241)+A(242)+0.22*A(250) - Vdot(77) = A(16)+A(19)+A(22)+A(23)+A(76)+A(80)+0.65*A(86)+A(91)+A(93)+0.15*A(108)+0.1*A(109)+0.1*A(112)+0.28*A(113)& - &+0.7*A(114)-A(126)+A(127)-A(144)+A(145)+0.23*A(146)-A(163)-A(164)-A(184)-A(185)+A(186)+0.12*A(188)-A(191)& - &-A(192)-A(193)-A(194)-A(195)-A(196)-A(197)-A(198)-A(199)-A(200)-A(201)-A(202)-A(203)-2*A(204)-0.88*A(206)& - &-A(207)-A(208)-A(226)+A(227)+0.23*A(228)-A(233)+0.25*A(240) - Vdot(78) = A(4)+A(5)+0.35*A(6)+2*A(9)+A(13)+A(14)+A(15)+2*A(27)-A(28)+A(29)-A(30)-A(31)-A(37)-A(38)-A(39)+A(40)+0.7& - &*A(43)-A(44)-A(45)-A(46)-A(55)-A(56)-A(57)-A(58)-A(59)-A(60)-A(61)-0.964*A(62)-A(63)-A(64)-A(65)-A(66)-A(67)& - &-A(68)-A(69)-A(70)-A(71)-A(72)-A(73)-A(74)-A(75)-A(76)-A(77)-A(78)-A(79)-A(80)-A(81)-A(82)-A(83)-0.65*A(84)& - &-0.51*A(85)-A(86)-A(87)-A(88)-A(89)-A(94)+0.12*A(105)+0.4*A(106)+0.63*A(107)+0.28*A(108)+0.25*A(109)+0.85& - &*A(110)+0.85*A(111)+0.19*A(112)+0.21*A(113)+0.036*A(114)+A(119)+A(122)+A(125)-A(220)-A(239)-A(245)+0.63& - &*A(246)-A(248)+0.63*A(250) - Vdot(79) = 0.35*A(6)-A(7)-A(8)+A(36)-A(39)-A(43)+A(45)+A(48)-A(50)-A(51)-A(52)+A(53)-2*A(54)+A(87)+0.6*A(88)-A(90)& - &-A(91)-A(92)-A(93)-A(95)-A(96)-A(97)-A(98)-A(99)-A(100)-A(101)-A(102)-A(103)-0.4*A(104)-A(212)-A(213)-A(214)& - &-A(215)-A(216)-A(217)-A(218)-A(219)-A(221)-A(222)-A(223)-A(224)-A(225)-A(226)-A(227)-A(228)-A(229)-A(230)& - &-A(236)-A(247)-A(249) - Vdot(80) = A(77)+0.03*A(106)+0.12*A(107)+0.02*A(108)+0.42*A(110)+0.42*A(111)-A(146)-A(167)-A(188)-A(206)-A(228)+0.12& - &*A(250) - Vdot(81) = A(1)+A(4)+A(7)-A(34)+A(35)-A(37)-A(40)-A(47)-2*A(49)-A(50)+A(51)-A(130)-A(131)-A(132)-A(133)-A(134)-A(135)& - &-A(136)-A(137)-A(138)-A(139)-A(140)-A(141)-A(142)-A(143)-A(144)-A(145)-A(146)-A(147)-A(148)-A(235)-A(240) - Vdot(82) = -A(1)+A(5)+0.65*A(6)+A(8)+A(21)+A(34)-A(35)-A(36)-A(38)+A(39)+A(40)-A(41)+A(42)+0.7*A(43)+A(44)+A(46)+A(47)& - &-A(48)+2*A(49)+2*A(50)-A(52)+A(53)+2*A(54)+A(58)+A(89)+0.5*A(95)+0.4*A(104)+0.7*A(114)-A(115)-A(117)-A(120)& - &-A(123)-A(126)+A(127)-A(128)+A(129)+A(130)+A(131)+0.941*A(132)+0.876*A(133)+0.739*A(134)+A(135)+A(136)& - &+A(137)+A(138)+0.8*A(139)+0.65*A(140)+0.95*A(141)+0.95*A(142)+A(143)+A(144)+A(145)+A(146)+A(147)+2*A(148)& - &+0.5*A(190)+0.516*A(208)+0.5*A(210)+A(211)+A(212)+A(213)+A(214)+A(215)+A(216)+A(217)+A(218)+A(219)+A(220)& - &+A(221)+A(222)+A(223)+A(224)+A(225)+A(226)+A(227)+A(228)+A(229)+2*A(230)+A(235)+A(236)+A(240)-A(243)+A(244) - -END SUBROUTINE Fun - -! End of Fun function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE RACM_Function - diff --git a/boxmox/compiled_mechs/RACM/RACM_Function.o b/boxmox/compiled_mechs/RACM/RACM_Function.o deleted file mode 100644 index bc9658917e09946bf348423a3bea69237d7db321..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/RACM_Function.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/RACM_Global.f90 b/boxmox/compiled_mechs/RACM/RACM_Global.f90 deleted file mode 100644 index 1db48e0e74aeb2149888fde8577f65be41b02223..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RACM/RACM_Global.f90 +++ /dev/null @@ -1,126 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Global Data Module File -! -! Generated by KPP-2.2.3 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 : RACM_Global.f90 -! Time : Thu Oct 8 08:22:22 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RACM_22746_BOXMOX -! Equation file : RACM.kpp -! Output root filename : RACM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RACM_Global - - USE RACM_Parameters, ONLY: dp, NSPEC, NVAR, NFIX, NREACT, LU_NONZERO - PUBLIC - SAVE - - -! Declaration of global variables - -! C - Concentration of all species - REAL(kind=dp) :: C(NSPEC) -! VAR - Concentrations of variable species (global) - REAL(kind=dp) :: VAR(NVAR) -! FIX - Concentrations of fixed species (global) - REAL(kind=dp) :: FIX(NFIX) -! VAR, FIX are chunks of array C - EQUIVALENCE( C(1),VAR(1) ) - EQUIVALENCE( C(83),FIX(1) ) -! RCONST - Rate constants (global) - REAL(kind=dp) :: RCONST(NREACT) -! TIME - Current integration time - REAL(kind=dp) :: TIME -! SUN - Sunlight intensity between [0,1] - REAL(kind=dp) :: SUN -! TEMP - Temperature - REAL(kind=dp) :: TEMP -! RTOLS - (scalar) Relative tolerance - REAL(kind=dp) :: RTOLS -! TSTART - Integration start time - REAL(kind=dp) :: TSTART -! TEND - Integration end time - REAL(kind=dp) :: TEND -! DT - Integration step - REAL(kind=dp) :: DT -! ATOL - Absolute tolerance - REAL(kind=dp) :: ATOL(NVAR) -! RTOL - Relative tolerance - REAL(kind=dp) :: RTOL(NVAR) -! STEPMIN - Lower bound for integration step - REAL(kind=dp) :: STEPMIN -! STEPMAX - Upper bound for integration step - REAL(kind=dp) :: STEPMAX -! CFACTOR - Conversion factor for concentration units - REAL(kind=dp) :: CFACTOR - -! INLINED global variable declarations - - - ! BOXMOX global variables - - ! Parameters - INTEGER, PARAMETER :: max_species_boxmox = 10000 ! maximum number of species - ! read in - INTEGER, PARAMETER :: max_jhash_boxmox = 10000 ! maximum hash value of - ! photolysis rate labels - - ! Configuration - LOGICAL :: lverbose ! verbose output? - LOGICAL :: llibrary ! library version? - - - ! State definition - REAL(KIND=dp) :: pres ! pressure [Pa] - ! temperature variable temp [K] defined in KPP already - REAL(KIND=dp) :: dxdydz(3), dxdydz_old(3) ! box dimensions (x,y,z) - ! [m] - - ! Turbulent mixing - INTEGER :: iturb ! type of mixing - INTEGER, PARAMETER :: TURB_OPT_NONE = 0, & ! no turbulent mixing - TURB_OPT_SPECIFIED = 1, & ! using specified Kturb - TURB_OPT_VOLUME = 2, & ! using volume changes - TURB_OPT_TRACER = 3 ! using tracer conc. - REAL(KIND=dp) :: Kturb ! eddy diffusivity [m2 s-1] - - ! Photolysis rates - REAL(KIND=dp) :: jvalues(max_jhash_boxmox) ! Photolysis rate [s-1] - - ! Aerosol - REAL(KIND=dp) :: AER_R, & ! particle radius [m] - AER_SAD ! surface area density - ! [m^2 m^-3] - - ! Steady-state modeling - LOGICAL :: lfix_nox ! fix total NOx? - REAL(kind=dp) :: initial_total_nox ! total NOx to fix - - - - ! global variables used by special rate constants of this mechanism - - ! air/water concentration (molecules/cm3) - REAL(KIND=dp) :: c_m, c_h2o - ! relative humidity (not used) - REAL(KIND=dp) :: rh - - -! INLINED global variable declarations - - -END MODULE RACM_Global - diff --git a/boxmox/compiled_mechs/RACM/RACM_Global.o b/boxmox/compiled_mechs/RACM/RACM_Global.o deleted file mode 100644 index c3e8883fa4b3d98a6e748aeae1ed838e5d507cd9..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/RACM_Global.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/RACM_Initialize.f90 b/boxmox/compiled_mechs/RACM/RACM_Initialize.f90 deleted file mode 100644 index e61b735eca61d8902ded1dd3cbc3fbb9bb6cc59e..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RACM/RACM_Initialize.f90 +++ /dev/null @@ -1,118 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Initialization File -! -! Generated by KPP-2.2.3 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 : RACM_Initialize.f90 -! Time : Thu Oct 8 08:22:22 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RACM_22746_BOXMOX -! Equation file : RACM.kpp -! Output root filename : RACM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RACM_Initialize - - USE RACM_Parameters, ONLY: dp, NVAR, NFIX - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Initialize - function to initialize concentrations -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Initialize ( ) - - - USE RACM_Global - - USE RACM_Util - - INTEGER :: i - REAL(kind=dp) :: x - - CFACTOR = 1.000000e+00_dp - - x = (1.0E-9)*CFACTOR - DO i = 1, NVAR - VAR(i) = x - END DO - - x = (1.0E-9)*CFACTOR - DO i = 1, NFIX - FIX(i) = x - END DO - -! constant rate coefficients -! END constant rate coefficients - -! INLINED initializations - - - IF (.NOT. llibrary) THEN - - ! Write version number to VERSION file - CALL writeVersion() - - ! Initialization (time step, run length, etc.) happening - ! in namelist BOXMOX.nml. Read it! - CALL readConfig() - - ENDIF - - ! Check configuration values - CALL checkConfig() - - - - ! BOXMOX defaults for global variables - - ! Environment.csv - temp = 293.15 ! K - pres = 101325.0 ! Pa - dxdydz(:) = 1.0 ! m - - ! Aerosol.csv - AER_SAD = 0.0 ! m^2 m^-3 - AER_R = 1.0e-6 ! m - - ! Turbulent mixing - Kturb = 0.0 ! m2 s-1 - - - - ! 1E-03 * (1.0/28.97) * 6.022e23 * air density - c_m = 2.078702e+19 * 1.25 - - ! 1E-03 * (1.0/18.02) * 6.022e23 * air density, then times kg(water)/kg(air) - c_h2o = 3.341842e+19 * 1.25 * 0.010 - - -! End INLINED initializations - - -END SUBROUTINE Initialize - -! End of Initialize function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE RACM_Initialize - diff --git a/boxmox/compiled_mechs/RACM/RACM_Initialize.o b/boxmox/compiled_mechs/RACM/RACM_Initialize.o deleted file mode 100644 index c9c4f3e071e7827202e163986488c58df8f290e3..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/RACM_Initialize.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/RACM_Integrator.f90 b/boxmox/compiled_mechs/RACM/RACM_Integrator.f90 deleted file mode 100644 index 09098a99fb4aba21fa58508311f5fd76eaaf03b5..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RACM/RACM_Integrator.f90 +++ /dev/null @@ -1,1365 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Numerical Integrator (Time-Stepping) File -! -! Generated by KPP-2.2.3 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 : RACM_Integrator.f90 -! Time : Thu Oct 8 08:22:22 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RACM_22746_BOXMOX -! Equation file : RACM.kpp -! Output root filename : RACM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! INTEGRATE - Integrator routine -! Arguments : -! TIN - Start Time for Integration -! TOUT - End Time for Integration -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! -! Rosenbrock - Implementation of several Rosenbrock methods: ! -! * Ros2 ! -! * Ros3 ! -! * Ros4 ! -! * Rodas3 ! -! * Rodas4 ! -! By default the code employs the KPP sparse linear algebra routines ! -! Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK) ! -! ! -! (C) Adrian Sandu, August 2004 ! -! Virginia Polytechnic Institute and State University ! -! Contact: sandu@cs.vt.edu ! -! Revised by Philipp Miehe and Adrian Sandu, May 2006 ! ! -! This implementation is part of KPP - the Kinetic PreProcessor ! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! - -MODULE RACM_Integrator - - USE RACM_Parameters, ONLY: NVAR, NFIX, NSPEC, LU_NONZERO - USE RACM_Global - IMPLICIT NONE - PUBLIC - SAVE - -!~~~> Statistics on the work performed by the Rosenbrock method - INTEGER, PARAMETER :: Nfun=1, Njac=2, Nstp=3, Nacc=4, & - Nrej=5, Ndec=6, Nsol=7, Nsng=8, & - Ntexit=1, Nhexit=2, Nhnew = 3 - -CONTAINS - -SUBROUTINE INTEGRATE( TIN, TOUT, & - ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U, IERR_U ) - - IMPLICIT NONE - - REAL(kind=dp), INTENT(IN) :: TIN ! Start Time - REAL(kind=dp), INTENT(IN) :: TOUT ! End Time - ! Optional input parameters and statistics - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - REAL(kind=dp), INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - REAL(kind=dp), INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: IERR_U - - REAL(kind=dp) :: RCNTRL(20), RSTATUS(20) - INTEGER :: ICNTRL(20), ISTATUS(20), IERR - - INTEGER, SAVE :: Ntotal = 0 - - ICNTRL(:) = 0 - RCNTRL(:) = 0.0_dp - ISTATUS(:) = 0 - RSTATUS(:) = 0.0_dp - - !~~~> fine-tune the integrator: - ICNTRL(1) = 0 ! 0 - non-autonomous, 1 - autonomous - ICNTRL(2) = 0 ! 0 - vector tolerances, 1 - scalars - - ! If optional parameters are given, and if they are >0, - ! then they overwrite default settings. - IF (PRESENT(ICNTRL_U)) THEN - WHERE(ICNTRL_U(:) > 0) ICNTRL(:) = ICNTRL_U(:) - END IF - IF (PRESENT(RCNTRL_U)) THEN - WHERE(RCNTRL_U(:) > 0) RCNTRL(:) = RCNTRL_U(:) - END IF - - - CALL Rosenbrock(NVAR,VAR,TIN,TOUT, & - ATOL,RTOL, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) - - !~~~> Debug option: show no of steps - ! Ntotal = Ntotal + ISTATUS(Nstp) - ! PRINT*,'NSTEPS=',ISTATUS(Nstp),' (',Ntotal,')',' O3=', VAR(ind_O3) - - STEPMIN = RSTATUS(Nhexit) - ! if optional parameters are given for output they - ! are updated with the return information - IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(:) - IF (PRESENT(RSTATUS_U)) RSTATUS_U(:) = RSTATUS(:) - IF (PRESENT(IERR_U)) IERR_U = IERR - -END SUBROUTINE INTEGRATE - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE Rosenbrock(N,Y,Tstart,Tend, & - AbsTol,RelTol, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Solves the system y'=F(t,y) using a Rosenbrock method defined by: -! -! G = 1/(H*gamma(1)) - Jac(t0,Y0) -! T_i = t0 + Alpha(i)*H -! Y_i = Y0 + \sum_{j=1}^{i-1} A(i,j)*K_j -! G * K_i = Fun( T_i, Y_i ) + \sum_{j=1}^S C(i,j)/H * K_j + -! gamma(i)*dF/dT(t0, Y0) -! Y1 = Y0 + \sum_{j=1}^S M(j)*K_j -! -! For details on Rosenbrock methods and their implementation consult: -! E. Hairer and G. Wanner -! "Solving ODEs II. Stiff and differential-algebraic problems". -! Springer series in computational mathematics, Springer-Verlag, 1996. -! The codes contained in the book inspired this implementation. -! -! (C) Adrian Sandu, August 2004 -! Virginia Polytechnic Institute and State University -! Contact: sandu@cs.vt.edu -! Revised by Philipp Miehe and Adrian Sandu, May 2006 -! This implementation is part of KPP - the Kinetic PreProcessor -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT ARGUMENTS: -! -!- Y(N) = vector of initial conditions (at T=Tstart) -!- [Tstart,Tend] = time range of integration -! (if Tstart>Tend the integration is performed backwards in time) -!- RelTol, AbsTol = user precribed accuracy -!- SUBROUTINE Fun( T, Y, Ydot ) = ODE function, -! returns Ydot = Y' = F(T,Y) -!- SUBROUTINE Jac( T, Y, Jcb ) = Jacobian of the ODE function, -! returns Jcb = dFun/dY -!- ICNTRL(1:20) = integer inputs parameters -!- RCNTRL(1:20) = real inputs parameters -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT ARGUMENTS: -! -!- Y(N) -> vector of final states (at T->Tend) -!- ISTATUS(1:20) -> integer output parameters -!- RSTATUS(1:20) -> real output parameters -!- IERR -> job status upon return -! success (positive value) or -! failure (negative value) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT PARAMETERS: -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -! ICNTRL(1) = 1: F = F(y) Independent of T (AUTONOMOUS) -! = 0: F = F(t,y) Depends on T (NON-AUTONOMOUS) -! -! ICNTRL(2) = 0: AbsTol, RelTol are N-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ICNTRL(3) -> selection of a particular Rosenbrock method -! = 0 : Rodas3 (default) -! = 1 : Ros2 -! = 2 : Ros3 -! = 3 : Ros4 -! = 4 : Rodas3 -! = 5 : Rodas4 -! -! ICNTRL(4) -> maximum number of integration steps -! For ICNTRL(4)=0) the default value of 100000 is used -! -! RCNTRL(1) -> Hmin, lower bound for the integration step size -! It is strongly recommended to keep Hmin = ZERO -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! RCNTRL(3) -> Hstart, starting value for the integration step size -! -! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! RCNTRL(5) -> FacMax, upper bound on step increase factor (default=6) -! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! -! OUTPUT ARGUMENTS: -! ----------------- -! -! T -> T value for which the solution has been computed -! (after successful return T=Tend). -! -! Y(N) -> Numerical solution at T -! -! IDID -> Reports on successfulness upon return: -! = 1 for success -! < 0 for error (value equals error code) -! -! ISTATUS(1) -> No. of function calls -! ISTATUS(2) -> No. of jacobian calls -! ISTATUS(3) -> No. of steps -! ISTATUS(4) -> No. of accepted steps -! ISTATUS(5) -> No. of rejected steps (except at very beginning) -! ISTATUS(6) -> No. of LU decompositions -! ISTATUS(7) -> No. of forward/backward substitutions -! ISTATUS(8) -> No. of singular matrix decompositions -! -! RSTATUS(1) -> Texit, the time corresponding to the -! computed Y upon return -! RSTATUS(2) -> Hexit, last accepted step before exit -! RSTATUS(3) -> Hnew, last predicted step (not yet taken) -! For multiple restarts, use Hnew as Hstart -! in the subsequent run -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RACM_Parameters - USE RACM_LinearAlgebra - IMPLICIT NONE - -!~~~> Arguments - INTEGER, INTENT(IN) :: N - REAL(kind=dp), INTENT(INOUT) :: Y(N) - REAL(kind=dp), INTENT(IN) :: Tstart,Tend - REAL(kind=dp), INTENT(IN) :: AbsTol(N),RelTol(N) - INTEGER, INTENT(IN) :: ICNTRL(20) - REAL(kind=dp), INTENT(IN) :: RCNTRL(20) - INTEGER, INTENT(INOUT) :: ISTATUS(20) - REAL(kind=dp), INTENT(INOUT) :: RSTATUS(20) - INTEGER, INTENT(OUT) :: IERR -!~~~> Parameters of the Rosenbrock method, up to 6 stages - INTEGER :: ros_S, rosMethod - INTEGER, PARAMETER :: RS2=1, RS3=2, RS4=3, RD3=4, RD4=5, RG3=6 - REAL(kind=dp) :: ros_A(15), ros_C(15), ros_M(6), ros_E(6), & - ros_Alpha(6), ros_Gamma(6), ros_ELO - LOGICAL :: ros_NewF(6) - CHARACTER(LEN=12) :: ros_Name -!~~~> Local variables - REAL(kind=dp) :: Roundoff, FacMin, FacMax, FacRej, FacSafe - REAL(kind=dp) :: Hmin, Hmax, Hstart - REAL(kind=dp) :: Texit - INTEGER :: i, UplimTol, Max_no_steps - LOGICAL :: Autonomous, VectorTol -!~~~> Parameters - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp - REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp - -!~~~> Initialize statistics - ISTATUS(1:8) = 0 - RSTATUS(1:3) = ZERO - -!~~~> Autonomous or time dependent ODE. Default is time dependent. - Autonomous = .NOT.(ICNTRL(1) == 0) - -!~~~> For Scalar tolerances (ICNTRL(2).NE.0) the code uses AbsTol(1) and RelTol(1) -! For Vector tolerances (ICNTRL(2) == 0) the code uses AbsTol(1:N) and RelTol(1:N) - IF (ICNTRL(2) == 0) THEN - VectorTol = .TRUE. - UplimTol = N - ELSE - VectorTol = .FALSE. - UplimTol = 1 - END IF - -!~~~> Initialize the particular Rosenbrock method selected - SELECT CASE (ICNTRL(3)) - CASE (1) - CALL Ros2 - CASE (2) - CALL Ros3 - CASE (3) - CALL Ros4 - CASE (0,4) - CALL Rodas3 - CASE (5) - CALL Rodas4 - CASE (6) - CALL Rang3 - CASE DEFAULT - PRINT * , 'Unknown Rosenbrock method: ICNTRL(3)=',ICNTRL(3) - CALL ros_ErrorMsg(-2,Tstart,ZERO,IERR) - RETURN - END SELECT - -!~~~> The maximum number of steps admitted - IF (ICNTRL(4) == 0) THEN - Max_no_steps = 200000 - ELSEIF (ICNTRL(4) > 0) THEN - Max_no_steps=ICNTRL(4) - ELSE - PRINT * ,'User-selected max no. of steps: ICNTRL(4)=',ICNTRL(4) - CALL ros_ErrorMsg(-1,Tstart,ZERO,IERR) - RETURN - END IF - -!~~~> Unit roundoff (1+Roundoff>1) - Roundoff = WLAMCH('E') - -!~~~> Lower bound on the step size: (positive value) - IF (RCNTRL(1) == ZERO) THEN - Hmin = ZERO - ELSEIF (RCNTRL(1) > ZERO) THEN - Hmin = RCNTRL(1) - ELSE - PRINT * , 'User-selected Hmin: RCNTRL(1)=', RCNTRL(1) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Upper bound on the step size: (positive value) - IF (RCNTRL(2) == ZERO) THEN - Hmax = ABS(Tend-Tstart) - ELSEIF (RCNTRL(2) > ZERO) THEN - Hmax = MIN(ABS(RCNTRL(2)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hmax: RCNTRL(2)=', RCNTRL(2) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Starting step size: (positive value) - IF (RCNTRL(3) == ZERO) THEN - Hstart = MAX(Hmin,DeltaMin) - ELSEIF (RCNTRL(3) > ZERO) THEN - Hstart = MIN(ABS(RCNTRL(3)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hstart: RCNTRL(3)=', RCNTRL(3) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Step size can be changed s.t. FacMin < Hnew/Hold < FacMax - IF (RCNTRL(4) == ZERO) THEN - FacMin = 0.2_dp - ELSEIF (RCNTRL(4) > ZERO) THEN - FacMin = RCNTRL(4) - ELSE - PRINT * , 'User-selected FacMin: RCNTRL(4)=', RCNTRL(4) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF - IF (RCNTRL(5) == ZERO) THEN - FacMax = 6.0_dp - ELSEIF (RCNTRL(5) > ZERO) THEN - FacMax = RCNTRL(5) - ELSE - PRINT * , 'User-selected FacMax: RCNTRL(5)=', RCNTRL(5) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacRej: Factor to decrease step after 2 succesive rejections - IF (RCNTRL(6) == ZERO) THEN - FacRej = 0.1_dp - ELSEIF (RCNTRL(6) > ZERO) THEN - FacRej = RCNTRL(6) - ELSE - PRINT * , 'User-selected FacRej: RCNTRL(6)=', RCNTRL(6) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacSafe: Safety Factor in the computation of new step size - IF (RCNTRL(7) == ZERO) THEN - FacSafe = 0.9_dp - ELSEIF (RCNTRL(7) > ZERO) THEN - FacSafe = RCNTRL(7) - ELSE - PRINT * , 'User-selected FacSafe: RCNTRL(7)=', RCNTRL(7) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Check if tolerances are reasonable - DO i=1,UplimTol - IF ( (AbsTol(i) <= ZERO) .OR. (RelTol(i) <= 10.0_dp*Roundoff) & - .OR. (RelTol(i) >= 1.0_dp) ) THEN - PRINT * , ' AbsTol(',i,') = ',AbsTol(i) - PRINT * , ' RelTol(',i,') = ',RelTol(i) - CALL ros_ErrorMsg(-5,Tstart,ZERO,IERR) - RETURN - END IF - END DO - - -!~~~> CALL Rosenbrock method - CALL ros_Integrator(Y, Tstart, Tend, Texit, & - AbsTol, RelTol, & -! Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -! Error indicator - IERR) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -CONTAINS ! SUBROUTINES internal to Rosenbrock -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_ErrorMsg(Code,T,H,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - REAL(kind=dp), INTENT(IN) :: T, H - INTEGER, INTENT(IN) :: Code - INTEGER, INTENT(OUT) :: IERR - - IERR = Code - PRINT * , & - 'Forced exit from Rosenbrock due to the following error:' - - SELECT CASE (Code) - CASE (-1) - PRINT * , '--> Improper value for maximal no of steps' - CASE (-2) - PRINT * , '--> Selected Rosenbrock method not implemented' - CASE (-3) - PRINT * , '--> Hmin/Hmax/Hstart must be positive' - CASE (-4) - PRINT * , '--> FacMin/FacMax/FacRej must be positive' - CASE (-5) - PRINT * , '--> Improper tolerance values' - CASE (-6) - PRINT * , '--> No of steps exceeds maximum bound' - CASE (-7) - PRINT * , '--> Step size too small: T + 10*H = T', & - ' or H < Roundoff' - CASE (-8) - PRINT * , '--> Matrix is repeatedly singular' - CASE DEFAULT - PRINT *, 'Unknown Error code: ', Code - END SELECT - - PRINT *, "T=", T, "and H=", H - - END SUBROUTINE ros_ErrorMsg - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Integrator (Y, Tstart, Tend, T, & - AbsTol, RelTol, & -!~~~> Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -!~~~> Error indicator - IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the implementation of a generic Rosenbrock method -! defined by ros_S (no of stages) -! and its coefficients ros_{A,C,M,E,Alpha,Gamma} -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - -!~~~> Input: the initial condition at Tstart; Output: the solution at T - REAL(kind=dp), INTENT(INOUT) :: Y(N) -!~~~> Input: integration interval - REAL(kind=dp), INTENT(IN) :: Tstart,Tend -!~~~> Output: time at which the solution is returned (T=Tend if success) - REAL(kind=dp), INTENT(OUT) :: T -!~~~> Input: tolerances - REAL(kind=dp), INTENT(IN) :: AbsTol(N), RelTol(N) -!~~~> Input: integration parameters - LOGICAL, INTENT(IN) :: Autonomous, VectorTol - REAL(kind=dp), INTENT(IN) :: Hstart, Hmin, Hmax - INTEGER, INTENT(IN) :: Max_no_steps - REAL(kind=dp), INTENT(IN) :: Roundoff, FacMin, FacMax, FacRej, FacSafe -!~~~> Output: Error indicator - INTEGER, INTENT(OUT) :: IERR -! ~~~~ Local variables - REAL(kind=dp) :: Ynew(N), Fcn0(N), Fcn(N) - REAL(kind=dp) :: K(N*ros_S), dFdT(N) -#ifdef FULL_ALGEBRA - REAL(kind=dp) :: Jac0(N,N), Ghimj(N,N) -#else - REAL(kind=dp) :: Jac0(LU_NONZERO), Ghimj(LU_NONZERO) -#endif - REAL(kind=dp) :: H, Hnew, HC, HG, Fac, Tau - REAL(kind=dp) :: Err, Yerr(N) - INTEGER :: Pivot(N), Direction, ioffset, j, istage - LOGICAL :: RejectLastH, RejectMoreH, Singular -!~~~> Local parameters - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp - REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp -!~~~> Locally called functions -! REAL(kind=dp) WLAMCH -! EXTERNAL WLAMCH -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~> Initial preparations - T = Tstart - RSTATUS(Nhexit) = ZERO - H = MIN( MAX(ABS(Hmin),ABS(Hstart)) , ABS(Hmax) ) - IF (ABS(H) <= 10.0_dp*Roundoff) H = DeltaMin - - IF (Tend >= Tstart) THEN - Direction = +1 - ELSE - Direction = -1 - END IF - H = Direction*H - - RejectLastH=.FALSE. - RejectMoreH=.FALSE. - -!~~~> Time loop begins below - -TimeLoop: DO WHILE ( (Direction > 0).AND.((T-Tend)+Roundoff <= ZERO) & - .OR. (Direction < 0).AND.((Tend-T)+Roundoff <= ZERO) ) - - IF ( ISTATUS(Nstp) > Max_no_steps ) THEN ! Too many steps - CALL ros_ErrorMsg(-6,T,H,IERR) - RETURN - END IF - IF ( ((T+0.1_dp*H) == T).OR.(H <= Roundoff) ) THEN ! Step size too small - CALL ros_ErrorMsg(-7,T,H,IERR) - RETURN - END IF - -!~~~> Limit H if necessary to avoid going beyond Tend - H = MIN(H,ABS(Tend-T)) - -!~~~> Compute the function at current time - CALL FunTemplate(T,Y,Fcn0) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - -!~~~> Compute the function derivative with respect to T - IF (.NOT.Autonomous) THEN - CALL ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) - END IF - -!~~~> Compute the Jacobian at current time - CALL JacTemplate(T,Y,Jac0) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - -!~~~> Repeat step calculation until current step accepted -UntilAccepted: DO - - CALL ros_PrepareMatrix(H,Direction,ros_Gamma(1), & - Jac0,Ghimj,Pivot,Singular) - IF (Singular) THEN ! More than 5 consecutive failed decompositions - CALL ros_ErrorMsg(-8,T,H,IERR) - RETURN - END IF - -!~~~> Compute the stages -Stage: DO istage = 1, ros_S - - ! Current istage offset. Current istage vector is K(ioffset+1:ioffset+N) - ioffset = N*(istage-1) - - ! For the 1st istage the function has been computed previously - IF ( istage == 1 ) THEN - !slim: CALL WCOPY(N,Fcn0,1,Fcn,1) - Fcn(1:N) = Fcn0(1:N) - ! istage>1 and a new function evaluation is needed at the current istage - ELSEIF ( ros_NewF(istage) ) THEN - !slim: CALL WCOPY(N,Y,1,Ynew,1) - Ynew(1:N) = Y(1:N) - DO j = 1, istage-1 - CALL WAXPY(N,ros_A((istage-1)*(istage-2)/2+j), & - K(N*(j-1)+1),1,Ynew,1) - END DO - Tau = T + ros_Alpha(istage)*Direction*H - CALL FunTemplate(Tau,Ynew,Fcn) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - END IF ! if istage == 1 elseif ros_NewF(istage) - !slim: CALL WCOPY(N,Fcn,1,K(ioffset+1),1) - K(ioffset+1:ioffset+N) = Fcn(1:N) - DO j = 1, istage-1 - HC = ros_C((istage-1)*(istage-2)/2+j)/(Direction*H) - CALL WAXPY(N,HC,K(N*(j-1)+1),1,K(ioffset+1),1) - END DO - IF ((.NOT. Autonomous).AND.(ros_Gamma(istage).NE.ZERO)) THEN - HG = Direction*H*ros_Gamma(istage) - CALL WAXPY(N,HG,dFdT,1,K(ioffset+1),1) - END IF - CALL ros_Solve(Ghimj, Pivot, K(ioffset+1)) - - END DO Stage - - -!~~~> Compute the new solution - !slim: CALL WCOPY(N,Y,1,Ynew,1) - Ynew(1:N) = Y(1:N) - DO j=1,ros_S - CALL WAXPY(N,ros_M(j),K(N*(j-1)+1),1,Ynew,1) - END DO - -!~~~> Compute the error estimation - !slim: CALL WSCAL(N,ZERO,Yerr,1) - Yerr(1:N) = ZERO - DO j=1,ros_S - CALL WAXPY(N,ros_E(j),K(N*(j-1)+1),1,Yerr,1) - END DO - Err = ros_ErrorNorm ( Y, Ynew, Yerr, AbsTol, RelTol, VectorTol ) - -!~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax - Fac = MIN(FacMax,MAX(FacMin,FacSafe/Err**(ONE/ros_ELO))) - Hnew = H*Fac - -!~~~> Check the error magnitude and adjust step size - ISTATUS(Nstp) = ISTATUS(Nstp) + 1 - IF ( (Err <= ONE).OR.(H <= Hmin) ) THEN !~~~> Accept step - ISTATUS(Nacc) = ISTATUS(Nacc) + 1 - !slim: CALL WCOPY(N,Ynew,1,Y,1) - Y(1:N) = Ynew(1:N) - T = T + Direction*H - Hnew = MAX(Hmin,MIN(Hnew,Hmax)) - IF (RejectLastH) THEN ! No step size increase after a rejected step - Hnew = MIN(Hnew,H) - END IF - RSTATUS(Nhexit) = H - RSTATUS(Nhnew) = Hnew - RSTATUS(Ntexit) = T - RejectLastH = .FALSE. - RejectMoreH = .FALSE. - H = Hnew - EXIT UntilAccepted ! EXIT THE LOOP: WHILE STEP NOT ACCEPTED - ELSE !~~~> Reject step - IF (RejectMoreH) THEN - Hnew = H*FacRej - END IF - RejectMoreH = RejectLastH - RejectLastH = .TRUE. - H = Hnew - IF (ISTATUS(Nacc) >= 1) ISTATUS(Nrej) = ISTATUS(Nrej) + 1 - END IF ! Err <= 1 - - END DO UntilAccepted - - END DO TimeLoop - -!~~~> Succesful exit - IERR = 1 !~~~> The integration was successful - - END SUBROUTINE ros_Integrator - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - REAL(kind=dp) FUNCTION ros_ErrorNorm ( Y, Ynew, Yerr, & - AbsTol, RelTol, VectorTol ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Computes the "scaled norm" of the error vector Yerr -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -! Input arguments - REAL(kind=dp), INTENT(IN) :: Y(N), Ynew(N), & - Yerr(N), AbsTol(N), RelTol(N) - LOGICAL, INTENT(IN) :: VectorTol -! Local variables - REAL(kind=dp) :: Err, Scale, Ymax - INTEGER :: i - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp - - Err = ZERO - DO i=1,N - Ymax = MAX(ABS(Y(i)),ABS(Ynew(i))) - IF (VectorTol) THEN - Scale = AbsTol(i)+RelTol(i)*Ymax - ELSE - Scale = AbsTol(1)+RelTol(1)*Ymax - END IF - Err = Err+(Yerr(i)/Scale)**2 - END DO - Err = SQRT(Err/N) - - ros_ErrorNorm = MAX(Err,1.0d-10) - - END FUNCTION ros_ErrorNorm - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> The time partial derivative of the function by finite differences -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -!~~~> Input arguments - REAL(kind=dp), INTENT(IN) :: T, Roundoff, Y(N), Fcn0(N) -!~~~> Output arguments - REAL(kind=dp), INTENT(OUT) :: dFdT(N) -!~~~> Local variables - REAL(kind=dp) :: Delta - REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, DeltaMin = 1.0E-6_dp - - Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T)) - CALL FunTemplate(T+Delta,Y,dFdT) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - CALL WAXPY(N,(-ONE),Fcn0,1,dFdT,1) - CALL WSCAL(N,(ONE/Delta),dFdT,1) - - END SUBROUTINE ros_FunTimeDerivative - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_PrepareMatrix ( H, Direction, gam, & - Jac0, Ghimj, Pivot, Singular ) -! --- --- --- --- --- --- --- --- --- --- --- --- --- -! Prepares the LHS matrix for stage calculations -! 1. Construct Ghimj = 1/(H*ham) - Jac0 -! "(Gamma H) Inverse Minus Jacobian" -! 2. Repeat LU decomposition of Ghimj until successful. -! -half the step size if LU decomposition fails and retry -! -exit after 5 consecutive fails -! --- --- --- --- --- --- --- --- --- --- --- --- --- - IMPLICIT NONE - -!~~~> Input arguments -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(IN) :: Jac0(N,N) -#else - REAL(kind=dp), INTENT(IN) :: Jac0(LU_NONZERO) -#endif - REAL(kind=dp), INTENT(IN) :: gam - INTEGER, INTENT(IN) :: Direction -!~~~> Output arguments -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(OUT) :: Ghimj(N,N) -#else - REAL(kind=dp), INTENT(OUT) :: Ghimj(LU_NONZERO) -#endif - LOGICAL, INTENT(OUT) :: Singular - INTEGER, INTENT(OUT) :: Pivot(N) -!~~~> Inout arguments - REAL(kind=dp), INTENT(INOUT) :: H ! step size is decreased when LU fails -!~~~> Local variables - INTEGER :: i, ISING, Nconsecutive - REAL(kind=dp) :: ghinv - REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, HALF = 0.5_dp - - Nconsecutive = 0 - Singular = .TRUE. - - DO WHILE (Singular) - -!~~~> Construct Ghimj = 1/(H*gam) - Jac0 -#ifdef FULL_ALGEBRA - !slim: CALL WCOPY(N*N,Jac0,1,Ghimj,1) - !slim: CALL WSCAL(N*N,(-ONE),Ghimj,1) - Ghimj = -Jac0 - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(i,i) = Ghimj(i,i)+ghinv - END DO -#else - !slim: CALL WCOPY(LU_NONZERO,Jac0,1,Ghimj,1) - !slim: CALL WSCAL(LU_NONZERO,(-ONE),Ghimj,1) - Ghimj(1:LU_NONZERO) = -Jac0(1:LU_NONZERO) - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(LU_DIAG(i)) = Ghimj(LU_DIAG(i))+ghinv - END DO -#endif -!~~~> Compute LU decomposition - CALL ros_Decomp( Ghimj, Pivot, ISING ) - IF (ISING == 0) THEN -!~~~> If successful done - Singular = .FALSE. - ELSE ! ISING .ne. 0 -!~~~> If unsuccessful half the step size; if 5 consecutive fails then return - ISTATUS(Nsng) = ISTATUS(Nsng) + 1 - Nconsecutive = Nconsecutive+1 - Singular = .TRUE. - PRINT*,'Warning: LU Decomposition returned ISING = ',ISING - IF (Nconsecutive <= 5) THEN ! Less than 5 consecutive failed decompositions - H = H*HALF - ELSE ! More than 5 consecutive failed decompositions - RETURN - END IF ! Nconsecutive - END IF ! ISING - - END DO ! WHILE Singular - - END SUBROUTINE ros_PrepareMatrix - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Decomp( A, Pivot, ISING ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the LU decomposition -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Inout variables -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(INOUT) :: A(N,N) -#else - REAL(kind=dp), INTENT(INOUT) :: A(LU_NONZERO) -#endif -!~~~> Output variables - INTEGER, INTENT(OUT) :: Pivot(N), ISING - -#ifdef FULL_ALGEBRA - CALL DGETRF( N, N, A, N, Pivot, ISING ) -#else - CALL KppDecomp ( A, ISING ) - Pivot(1) = 1 -#endif - ISTATUS(Ndec) = ISTATUS(Ndec) + 1 - - END SUBROUTINE ros_Decomp - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Solve( A, Pivot, b ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the forward/backward substitution (using pre-computed LU decomposition) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Input variables -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(IN) :: A(N,N) - INTEGER :: ISING -#else - REAL(kind=dp), INTENT(IN) :: A(LU_NONZERO) -#endif - INTEGER, INTENT(IN) :: Pivot(N) -!~~~> InOut variables - REAL(kind=dp), INTENT(INOUT) :: b(N) - -#ifdef FULL_ALGEBRA - CALL DGETRS( 'N', N , 1, A, N, Pivot, b, N, ISING ) - IF ( Info < 0 ) THEN - PRINT*,"Error in DGETRS. ISING=",ISING - END IF -#else - CALL KppSolve( A, b ) -#endif - - ISTATUS(Nsol) = ISTATUS(Nsol) + 1 - - END SUBROUTINE ros_Solve - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 2 stages, order 2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - DOUBLE PRECISION g - - g = 1.0_dp + 1.0_dp/SQRT(2.0_dp) - rosMethod = RS2 -!~~~> Name of the method - ros_Name = 'ROS-2' -!~~~> Number of stages - ros_S = 2 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = (1.0_dp)/g - ros_C(1) = (-2.0_dp)/g -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1)= (3.0_dp)/(2.0_dp*g) - ros_M(2)= (1.0_dp)/(2.0_dp*g) -! E_i = Coefficients for error estimator - ros_E(1) = 1.0_dp/(2.0_dp*g) - ros_E(2) = 1.0_dp/(2.0_dp*g) -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus one - ros_ELO = 2.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 1.0_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = g - ros_Gamma(2) =-g - - END SUBROUTINE Ros2 - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 3 stages, order 3, 2 function evaluations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - rosMethod = RS3 -!~~~> Name of the method - ros_Name = 'ROS-3' -!~~~> Number of stages - ros_S = 3 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1)= 1.0_dp - ros_A(2)= 1.0_dp - ros_A(3)= 0.0_dp - - ros_C(1) = -0.10156171083877702091975600115545E+01_dp - ros_C(2) = 0.40759956452537699824805835358067E+01_dp - ros_C(3) = 0.92076794298330791242156818474003E+01_dp -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.1E+01_dp - ros_M(2) = 0.61697947043828245592553615689730E+01_dp - ros_M(3) = -0.42772256543218573326238373806514_dp -! E_i = Coefficients for error estimator - ros_E(1) = 0.5_dp - ros_E(2) = -0.29079558716805469821718236208017E+01_dp - ros_E(3) = 0.22354069897811569627360909276199_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1)= 0.0_dp - ros_Alpha(2)= 0.43586652150845899941601945119356_dp - ros_Alpha(3)= 0.43586652150845899941601945119356_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1)= 0.43586652150845899941601945119356_dp - ros_Gamma(2)= 0.24291996454816804366592249683314_dp - ros_Gamma(3)= 0.21851380027664058511513169485832E+01_dp - - END SUBROUTINE Ros3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! L-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 4 STAGES -! L-STABLE EMBEDDED ROSENBROCK METHOD OF ORDER 3 -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1990) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RS4 -!~~~> Name of the method - ros_Name = 'ROS-4' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.2000000000000000E+01_dp - ros_A(2) = 0.1867943637803922E+01_dp - ros_A(3) = 0.2344449711399156_dp - ros_A(4) = ros_A(2) - ros_A(5) = ros_A(3) - ros_A(6) = 0.0_dp - - ros_C(1) =-0.7137615036412310E+01_dp - ros_C(2) = 0.2580708087951457E+01_dp - ros_C(3) = 0.6515950076447975_dp - ros_C(4) =-0.2137148994382534E+01_dp - ros_C(5) =-0.3214669691237626_dp - ros_C(6) =-0.6949742501781779_dp -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.2255570073418735E+01_dp - ros_M(2) = 0.2870493262186792_dp - ros_M(3) = 0.4353179431840180_dp - ros_M(4) = 0.1093502252409163E+01_dp -!~~~> E_i = Coefficients for error estimator - ros_E(1) =-0.2815431932141155_dp - ros_E(2) =-0.7276199124938920E-01_dp - ros_E(3) =-0.1082196201495311_dp - ros_E(4) =-0.1093502252409163E+01_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 0.1145640000000000E+01_dp - ros_Alpha(3) = 0.6552168638155900_dp - ros_Alpha(4) = ros_Alpha(3) -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5728200000000000_dp - ros_Gamma(2) =-0.1769193891319233E+01_dp - ros_Gamma(3) = 0.7592633437920482_dp - ros_Gamma(4) =-0.1049021087100450_dp - - END SUBROUTINE Ros4 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- A STIFFLY-STABLE METHOD, 4 stages, order 3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD3 -!~~~> Name of the method - ros_Name = 'RODAS-3' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.0_dp - ros_A(2) = 2.0_dp - ros_A(3) = 0.0_dp - ros_A(4) = 2.0_dp - ros_A(5) = 0.0_dp - ros_A(6) = 1.0_dp - - ros_C(1) = 4.0_dp - ros_C(2) = 1.0_dp - ros_C(3) =-1.0_dp - ros_C(4) = 1.0_dp - ros_C(5) =-1.0_dp - ros_C(6) =-(8.0_dp/3.0_dp) - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .FALSE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 2.0_dp - ros_M(2) = 0.0_dp - ros_M(3) = 1.0_dp - ros_M(4) = 1.0_dp -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0_dp - ros_E(2) = 0.0_dp - ros_E(3) = 0.0_dp - ros_E(4) = 1.0_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 0.0_dp - ros_Alpha(3) = 1.0_dp - ros_Alpha(4) = 1.0_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5_dp - ros_Gamma(2) = 1.5_dp - ros_Gamma(3) = 0.0_dp - ros_Gamma(4) = 0.0_dp - - END SUBROUTINE Rodas3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 6 STAGES -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1996) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD4 -!~~~> Name of the method - ros_Name = 'RODAS-4' -!~~~> Number of stages - ros_S = 6 - -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.000_dp - ros_Alpha(2) = 0.386_dp - ros_Alpha(3) = 0.210_dp - ros_Alpha(4) = 0.630_dp - ros_Alpha(5) = 1.000_dp - ros_Alpha(6) = 1.000_dp - -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.2500000000000000_dp - ros_Gamma(2) =-0.1043000000000000_dp - ros_Gamma(3) = 0.1035000000000000_dp - ros_Gamma(4) =-0.3620000000000023E-01_dp - ros_Gamma(5) = 0.0_dp - ros_Gamma(6) = 0.0_dp - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.1544000000000000E+01_dp - ros_A(2) = 0.9466785280815826_dp - ros_A(3) = 0.2557011698983284_dp - ros_A(4) = 0.3314825187068521E+01_dp - ros_A(5) = 0.2896124015972201E+01_dp - ros_A(6) = 0.9986419139977817_dp - ros_A(7) = 0.1221224509226641E+01_dp - ros_A(8) = 0.6019134481288629E+01_dp - ros_A(9) = 0.1253708332932087E+02_dp - ros_A(10) =-0.6878860361058950_dp - ros_A(11) = ros_A(7) - ros_A(12) = ros_A(8) - ros_A(13) = ros_A(9) - ros_A(14) = ros_A(10) - ros_A(15) = 1.0_dp - - ros_C(1) =-0.5668800000000000E+01_dp - ros_C(2) =-0.2430093356833875E+01_dp - ros_C(3) =-0.2063599157091915_dp - ros_C(4) =-0.1073529058151375_dp - ros_C(5) =-0.9594562251023355E+01_dp - ros_C(6) =-0.2047028614809616E+02_dp - ros_C(7) = 0.7496443313967647E+01_dp - ros_C(8) =-0.1024680431464352E+02_dp - ros_C(9) =-0.3399990352819905E+02_dp - ros_C(10) = 0.1170890893206160E+02_dp - ros_C(11) = 0.8083246795921522E+01_dp - ros_C(12) =-0.7981132988064893E+01_dp - ros_C(13) =-0.3152159432874371E+02_dp - ros_C(14) = 0.1631930543123136E+02_dp - ros_C(15) =-0.6058818238834054E+01_dp - -!~~~> M_i = Coefficients for new step solution - ros_M(1) = ros_A(7) - ros_M(2) = ros_A(8) - ros_M(3) = ros_A(9) - ros_M(4) = ros_A(10) - ros_M(5) = 1.0_dp - ros_M(6) = 1.0_dp - -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0_dp - ros_E(2) = 0.0_dp - ros_E(3) = 0.0_dp - ros_E(4) = 0.0_dp - ros_E(5) = 0.0_dp - ros_E(6) = 1.0_dp - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - ros_NewF(5) = .TRUE. - ros_NewF(6) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0_dp - - END SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rang3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE W METHOD OF ORDER 3, WITH 4 STAGES -! -! J. RANG and L. ANGERMANN -! NEW ROSENBROCK W-METHODS OF ORDER 3 -! FOR PARTIAL DIFFERENTIAL ALGEBRAIC -! EQUATIONS OF INDEX 1 -! BIT Numerical Mathematics (2005) 45: 761-787 -! DOI: 10.1007/s10543-005-0035-y -! Table 4.1-4.2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RG3 -!~~~> Name of the method - ros_Name = 'RANG-3' -!~~~> Number of stages - ros_S = 4 - - ros_A(1) = 5.09052051067020d+00; - ros_A(2) = 5.09052051067020d+00; - ros_A(3) = 0.0d0; - ros_A(4) = 4.97628111010787d+00; - ros_A(5) = 2.77268164715849d-02; - ros_A(6) = 2.29428036027904d-01; - - ros_C(1) = -1.16790812312283d+01; - ros_C(2) = -1.64057326467367d+01; - ros_C(3) = -2.77268164715850d-01; - ros_C(4) = -8.38103960500476d+00; - ros_C(5) = -8.48328409199343d-01; - ros_C(6) = 2.87009860433106d-01; - - ros_M(1) = 5.22582761233094d+00; - ros_M(2) = -5.56971148154165d-01; - ros_M(3) = 3.57979469353645d-01; - ros_M(4) = 1.72337398521064d+00; - - ros_E(1) = -5.16845212784040d+00; - ros_E(2) = -1.26351942603842d+00; - ros_E(3) = -1.11022302462516d-16; - ros_E(4) = 2.22044604925031d-16; - - ros_Alpha(1) = 0.0d00; - ros_Alpha(2) = 2.21878746765329d+00; - ros_Alpha(3) = 2.21878746765329d+00; - ros_Alpha(4) = 1.55392337535788d+00; - - ros_Gamma(1) = 4.35866521508459d-01; - ros_Gamma(2) = -1.78292094614483d+00; - ros_Gamma(3) = -2.46541900496934d+00; - ros_Gamma(4) = -8.05529997906370d-01; - - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp - - END SUBROUTINE Rang3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! End of the set of internal Rosenbrock subroutines -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -END SUBROUTINE Rosenbrock -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE FunTemplate( T, Y, Ydot ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE function call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE RACM_Parameters, ONLY: NVAR, LU_NONZERO - USE RACM_Global, ONLY: FIX, RCONST, TIME - USE RACM_Function, ONLY: Fun - USE RACM_Rates, ONLY: Update_SUN, Update_RCONST -!~~~> Input variables - REAL(kind=dp) :: T, Y(NVAR) -!~~~> Output variables - REAL(kind=dp) :: Ydot(NVAR) -!~~~> Local variables - REAL(kind=dp) :: Told - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, Ydot ) - TIME = Told - -END SUBROUTINE FunTemplate - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE JacTemplate( T, Y, Jcb ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE Jacobian call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE RACM_Parameters, ONLY: NVAR, LU_NONZERO - USE RACM_Global, ONLY: FIX, RCONST, TIME - USE RACM_Jacobian, ONLY: Jac_SP, LU_IROW, LU_ICOL - USE RACM_LinearAlgebra - USE RACM_Rates, ONLY: Update_SUN, Update_RCONST -!~~~> Input variables - REAL(kind=dp) :: T, Y(NVAR) -!~~~> Output variables -#ifdef FULL_ALGEBRA - REAL(kind=dp) :: JV(LU_NONZERO), Jcb(NVAR,NVAR) -#else - REAL(kind=dp) :: Jcb(LU_NONZERO) -#endif -!~~~> Local variables - REAL(kind=dp) :: Told -#ifdef FULL_ALGEBRA - INTEGER :: i, j -#endif - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() -#ifdef FULL_ALGEBRA - CALL Jac_SP(Y, FIX, RCONST, JV) - DO j=1,NVAR - DO i=1,NVAR - Jcb(i,j) = 0.0_dp - END DO - END DO - DO i=1,LU_NONZERO - Jcb(LU_IROW(i),LU_ICOL(i)) = JV(i) - END DO -#else - CALL Jac_SP( Y, FIX, RCONST, Jcb ) -#endif - TIME = Told - -END SUBROUTINE JacTemplate - -END MODULE RACM_Integrator - - - - -! End of INTEGRATE function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - diff --git a/boxmox/compiled_mechs/RACM/RACM_Integrator.o b/boxmox/compiled_mechs/RACM/RACM_Integrator.o deleted file mode 100644 index 64dde7b63ed911f0220fd33b3a3c11df30c0fc17..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/RACM_Integrator.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/RACM_Jacobian.f90 b/boxmox/compiled_mechs/RACM/RACM_Jacobian.f90 deleted file mode 100644 index bcf928903795a816091b7da095051b4854c5c001..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RACM/RACM_Jacobian.f90 +++ /dev/null @@ -1,3692 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The ODE Jacobian of Chemical Model File -! -! Generated by KPP-2.2.3 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 : RACM_Jacobian.f90 -! Time : Thu Oct 8 08:22:22 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RACM_22746_BOXMOX -! Equation file : RACM.kpp -! Output root filename : RACM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RACM_Jacobian - - USE RACM_Parameters - USE RACM_JacobianSP - - USE RACM_Global - - 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(463) - -! B(1) = dA(1)/dV(82) - B(1) = RCT(1) -! B(2) = dA(2)/dV(72) - B(2) = RCT(2) -! B(3) = dA(3)/dV(72) - B(3) = RCT(3) -! B(4) = dA(4)/dV(23) - B(4) = RCT(4) -! B(5) = dA(5)/dV(32) - B(5) = RCT(5) -! B(6) = dA(6)/dV(19) - B(6) = RCT(6) -! B(7) = dA(7)/dV(79) - B(7) = RCT(7) -! B(8) = dA(8)/dV(79) - B(8) = RCT(8) -! B(9) = dA(9)/dV(27) - B(9) = RCT(9) -! B(10) = dA(10)/dV(58) - B(10) = RCT(10) -! B(11) = dA(11)/dV(58) - B(11) = RCT(11) -! B(12) = dA(12)/dV(66) - B(12) = RCT(12) -! B(13) = dA(13)/dV(20) - B(13) = RCT(13) -! B(14) = dA(14)/dV(75) - B(14) = RCT(14) -! B(15) = dA(15)/dV(33) - B(15) = RCT(15) -! B(16) = dA(16)/dV(52) - B(16) = RCT(16) -! B(17) = dA(17)/dV(46) - B(17) = RCT(17) -! B(18) = dA(18)/dV(46) - B(18) = RCT(18) -! B(19) = dA(19)/dV(53) - B(19) = RCT(19) -! B(20) = dA(20)/dV(63) - B(20) = RCT(20) -! B(21) = dA(21)/dV(62) - B(21) = RCT(21) -! B(22) = dA(22)/dV(49) - B(22) = RCT(22) -! B(23) = dA(23)/dV(24) - B(23) = RCT(23) -! B(24) = dA(24)/dV(25) - B(24) = RCT(24)*F(2) -! B(26) = dA(25)/dV(25) - B(26) = RCT(25)*V(72) -! B(27) = dA(25)/dV(72) - B(27) = RCT(25)*V(25) -! B(28) = dA(26)/dV(6) - B(28) = RCT(26)*F(2) -! B(30) = dA(27)/dV(6) - B(30) = RCT(27)*F(1) -! B(32) = dA(28)/dV(72) - B(32) = RCT(28)*V(78) -! B(33) = dA(28)/dV(78) - B(33) = RCT(28)*V(72) -! B(34) = dA(29)/dV(72) - B(34) = RCT(29)*V(76) -! B(35) = dA(29)/dV(76) - B(35) = RCT(29)*V(72) -! B(36) = dA(30)/dV(76) - B(36) = RCT(30)*V(78) -! B(37) = dA(30)/dV(78) - B(37) = RCT(30)*V(76) -! B(38) = dA(31)/dV(27) - B(38) = RCT(31)*V(78) -! B(39) = dA(31)/dV(78) - B(39) = RCT(31)*V(27) -! B(40) = dA(32)/dV(76) - B(40) = RCT(32)*2*V(76) -! B(41) = dA(33)/dV(76) - B(41) = RCT(33)*2*V(76)*F(1) -! B(43) = dA(34)/dV(25) - B(43) = RCT(34)*V(81) -! B(44) = dA(34)/dV(81) - B(44) = RCT(34)*V(25) -! B(45) = dA(35)/dV(25) - B(45) = RCT(35)*V(82) -! B(46) = dA(35)/dV(82) - B(46) = RCT(35)*V(25) -! B(47) = dA(36)/dV(25) - B(47) = RCT(36)*V(82) -! B(48) = dA(36)/dV(82) - B(48) = RCT(36)*V(25) -! B(49) = dA(37)/dV(78) - B(49) = RCT(37)*V(81) -! B(50) = dA(37)/dV(81) - B(50) = RCT(37)*V(78) -! B(51) = dA(38)/dV(78) - B(51) = RCT(38)*V(82) -! B(52) = dA(38)/dV(82) - B(52) = RCT(38)*V(78) -! B(53) = dA(39)/dV(78) - B(53) = RCT(39)*V(79) -! B(54) = dA(39)/dV(79) - B(54) = RCT(39)*V(78) -! B(55) = dA(40)/dV(76) - B(55) = RCT(40)*V(81) -! B(56) = dA(40)/dV(81) - B(56) = RCT(40)*V(76) -! B(57) = dA(41)/dV(76) - B(57) = RCT(41)*V(82) -! B(58) = dA(41)/dV(82) - B(58) = RCT(41)*V(76) -! B(59) = dA(42)/dV(19) - B(59) = RCT(42) -! B(60) = dA(43)/dV(76) - B(60) = RCT(43)*V(79) -! B(61) = dA(43)/dV(79) - B(61) = RCT(43)*V(76) -! B(62) = dA(44)/dV(23) - B(62) = RCT(44)*V(78) -! B(63) = dA(44)/dV(78) - B(63) = RCT(44)*V(23) -! B(64) = dA(45)/dV(32) - B(64) = RCT(45)*V(78) -! B(65) = dA(45)/dV(78) - B(65) = RCT(45)*V(32) -! B(66) = dA(46)/dV(19) - B(66) = RCT(46)*V(78) -! B(67) = dA(46)/dV(78) - B(67) = RCT(46)*V(19) -! B(68) = dA(47)/dV(72) - B(68) = RCT(47)*V(81) -! B(69) = dA(47)/dV(81) - B(69) = RCT(47)*V(72) -! B(70) = dA(48)/dV(72) - B(70) = RCT(48)*V(82) -! B(71) = dA(48)/dV(82) - B(71) = RCT(48)*V(72) -! B(72) = dA(49)/dV(81) - B(72) = RCT(49)*2*V(81)*F(2) -! B(74) = dA(50)/dV(79) - B(74) = RCT(50)*V(81) -! B(75) = dA(50)/dV(81) - B(75) = RCT(50)*V(79) -! B(76) = dA(51)/dV(79) - B(76) = RCT(51)*V(82) -! B(77) = dA(51)/dV(82) - B(77) = RCT(51)*V(79) -! B(78) = dA(52)/dV(79) - B(78) = RCT(52)*V(82) -! B(79) = dA(52)/dV(82) - B(79) = RCT(52)*V(79) -! B(80) = dA(53)/dV(11) - B(80) = RCT(53) -! B(81) = dA(54)/dV(79) - B(81) = RCT(54)*2*V(79) -! B(82) = dA(55)/dV(78) - B(82) = RCT(55)*F(2) -! B(84) = dA(56)/dV(5) - B(84) = RCT(56)*V(78) -! B(85) = dA(56)/dV(78) - B(85) = RCT(56)*V(5) -! B(86) = dA(57)/dV(38) - B(86) = RCT(57)*V(78) -! B(87) = dA(57)/dV(78) - B(87) = RCT(57)*V(38) -! B(88) = dA(58)/dV(16) - B(88) = RCT(58)*V(78) -! B(89) = dA(58)/dV(78) - B(89) = RCT(58)*V(16) -! B(90) = dA(59)/dV(22) - B(90) = RCT(59)*V(78) -! B(91) = dA(59)/dV(78) - B(91) = RCT(59)*V(22) -! B(92) = dA(60)/dV(18) - B(92) = RCT(60)*V(78) -! B(93) = dA(60)/dV(78) - B(93) = RCT(60)*V(18) -! B(94) = dA(61)/dV(17) - B(94) = RCT(61)*V(78) -! B(95) = dA(61)/dV(78) - B(95) = RCT(61)*V(17) -! B(96) = dA(62)/dV(14) - B(96) = RCT(62)*V(78) -! B(97) = dA(62)/dV(78) - B(97) = RCT(62)*V(14) -! B(98) = dA(63)/dV(8) - B(98) = RCT(63)*V(78) -! B(99) = dA(63)/dV(78) - B(99) = RCT(63)*V(8) -! B(100) = dA(64)/dV(12) - B(100) = RCT(64)*V(78) -! B(101) = dA(64)/dV(78) - B(101) = RCT(64)*V(12) -! B(102) = dA(65)/dV(30) - B(102) = RCT(65)*V(78) -! B(103) = dA(65)/dV(78) - B(103) = RCT(65)*V(30) -! B(104) = dA(66)/dV(65) - B(104) = RCT(66)*V(78) -! B(105) = dA(66)/dV(78) - B(105) = RCT(66)*V(65) -! B(106) = dA(67)/dV(67) - B(106) = RCT(67)*V(78) -! B(107) = dA(67)/dV(78) - B(107) = RCT(67)*V(67) -! B(108) = dA(68)/dV(43) - B(108) = RCT(68)*V(78) -! B(109) = dA(68)/dV(78) - B(109) = RCT(68)*V(43) -! B(110) = dA(69)/dV(40) - B(110) = RCT(69)*V(78) -! B(111) = dA(69)/dV(78) - B(111) = RCT(69)*V(40) -! B(112) = dA(70)/dV(37) - B(112) = RCT(70)*V(78) -! B(113) = dA(70)/dV(78) - B(113) = RCT(70)*V(37) -! B(114) = dA(71)/dV(39) - B(114) = RCT(71)*V(78) -! B(115) = dA(71)/dV(78) - B(115) = RCT(71)*V(39) -! B(116) = dA(72)/dV(9) - B(116) = RCT(72)*V(78) -! B(117) = dA(72)/dV(78) - B(117) = RCT(72)*V(9) -! B(118) = dA(73)/dV(10) - B(118) = RCT(73)*V(78) -! B(119) = dA(73)/dV(78) - B(119) = RCT(73)*V(10) -! B(120) = dA(74)/dV(42) - B(120) = RCT(74)*V(78) -! B(121) = dA(74)/dV(78) - B(121) = RCT(74)*V(42) -! B(122) = dA(75)/dV(58) - B(122) = RCT(75)*V(78) -! B(123) = dA(75)/dV(78) - B(123) = RCT(75)*V(58) -! B(124) = dA(76)/dV(66) - B(124) = RCT(76)*V(78) -! B(125) = dA(76)/dV(78) - B(125) = RCT(76)*V(66) -! B(126) = dA(77)/dV(52) - B(126) = RCT(77)*V(78) -! B(127) = dA(77)/dV(78) - B(127) = RCT(77)*V(52) -! B(128) = dA(78)/dV(24) - B(128) = RCT(78)*V(78) -! B(129) = dA(78)/dV(78) - B(129) = RCT(78)*V(24) -! B(130) = dA(79)/dV(46) - B(130) = RCT(79)*V(78) -! B(131) = dA(79)/dV(78) - B(131) = RCT(79)*V(46) -! B(132) = dA(80)/dV(53) - B(132) = RCT(80)*V(78) -! B(133) = dA(80)/dV(78) - B(133) = RCT(80)*V(53) -! B(134) = dA(81)/dV(49) - B(134) = RCT(81)*V(78) -! B(135) = dA(81)/dV(78) - B(135) = RCT(81)*V(49) -! B(136) = dA(82)/dV(63) - B(136) = RCT(82)*V(78) -! B(137) = dA(82)/dV(78) - B(137) = RCT(82)*V(63) -! B(138) = dA(83)/dV(15) - B(138) = RCT(83)*V(78) -! B(139) = dA(83)/dV(78) - B(139) = RCT(83)*V(15) -! B(140) = dA(84)/dV(20) - B(140) = RCT(84)*V(78) -! B(141) = dA(84)/dV(78) - B(141) = RCT(84)*V(20) -! B(142) = dA(85)/dV(75) - B(142) = RCT(85)*V(78) -! B(143) = dA(85)/dV(78) - B(143) = RCT(85)*V(75) -! B(144) = dA(86)/dV(33) - B(144) = RCT(86)*V(78) -! B(145) = dA(86)/dV(78) - B(145) = RCT(86)*V(33) -! B(146) = dA(87)/dV(36) - B(146) = RCT(87)*V(78) -! B(147) = dA(87)/dV(78) - B(147) = RCT(87)*V(36) -! B(148) = dA(88)/dV(45) - B(148) = RCT(88)*V(78) -! B(149) = dA(88)/dV(78) - B(149) = RCT(88)*V(45) -! B(150) = dA(89)/dV(62) - B(150) = RCT(89)*V(78) -! B(151) = dA(89)/dV(78) - B(151) = RCT(89)*V(62) -! B(152) = dA(90)/dV(58) - B(152) = RCT(90)*V(79) -! B(153) = dA(90)/dV(79) - B(153) = RCT(90)*V(58) -! B(154) = dA(91)/dV(66) - B(154) = RCT(91)*V(79) -! B(155) = dA(91)/dV(79) - B(155) = RCT(91)*V(66) -! B(156) = dA(92)/dV(46) - B(156) = RCT(92)*V(79) -! B(157) = dA(92)/dV(79) - B(157) = RCT(92)*V(46) -! B(158) = dA(93)/dV(53) - B(158) = RCT(93)*V(79) -! B(159) = dA(93)/dV(79) - B(159) = RCT(93)*V(53) -! B(160) = dA(94)/dV(13) - B(160) = RCT(94)*V(78) -! B(161) = dA(94)/dV(78) - B(161) = RCT(94)*V(13) -! B(162) = dA(95)/dV(63) - B(162) = RCT(95)*V(79) -! B(163) = dA(95)/dV(79) - B(163) = RCT(95)*V(63) -! B(164) = dA(96)/dV(42) - B(164) = RCT(96)*V(79) -! B(165) = dA(96)/dV(79) - B(165) = RCT(96)*V(42) -! B(166) = dA(97)/dV(30) - B(166) = RCT(97)*V(79) -! B(167) = dA(97)/dV(79) - B(167) = RCT(97)*V(30) -! B(168) = dA(98)/dV(65) - B(168) = RCT(98)*V(79) -! B(169) = dA(98)/dV(79) - B(169) = RCT(98)*V(65) -! B(170) = dA(99)/dV(67) - B(170) = RCT(99)*V(79) -! B(171) = dA(99)/dV(79) - B(171) = RCT(99)*V(67) -! B(172) = dA(100)/dV(43) - B(172) = RCT(100)*V(79) -! B(173) = dA(100)/dV(79) - B(173) = RCT(100)*V(43) -! B(174) = dA(101)/dV(40) - B(174) = RCT(101)*V(79) -! B(175) = dA(101)/dV(79) - B(175) = RCT(101)*V(40) -! B(176) = dA(102)/dV(37) - B(176) = RCT(102)*V(79) -! B(177) = dA(102)/dV(79) - B(177) = RCT(102)*V(37) -! B(178) = dA(103)/dV(39) - B(178) = RCT(103)*V(79) -! B(179) = dA(103)/dV(79) - B(179) = RCT(103)*V(39) -! B(180) = dA(104)/dV(45) - B(180) = RCT(104)*V(79) -! B(181) = dA(104)/dV(79) - B(181) = RCT(104)*V(45) -! B(182) = dA(105)/dV(30) - B(182) = RCT(105)*V(72) -! B(183) = dA(105)/dV(72) - B(183) = RCT(105)*V(30) -! B(184) = dA(106)/dV(65) - B(184) = RCT(106)*V(72) -! B(185) = dA(106)/dV(72) - B(185) = RCT(106)*V(65) -! B(186) = dA(107)/dV(67) - B(186) = RCT(107)*V(72) -! B(187) = dA(107)/dV(72) - B(187) = RCT(107)*V(67) -! B(188) = dA(108)/dV(43) - B(188) = RCT(108)*V(72) -! B(189) = dA(108)/dV(72) - B(189) = RCT(108)*V(43) -! B(190) = dA(109)/dV(40) - B(190) = RCT(109)*V(72) -! B(191) = dA(109)/dV(72) - B(191) = RCT(109)*V(40) -! B(192) = dA(110)/dV(37) - B(192) = RCT(110)*V(72) -! B(193) = dA(110)/dV(72) - B(193) = RCT(110)*V(37) -! B(194) = dA(111)/dV(39) - B(194) = RCT(111)*V(72) -! B(195) = dA(111)/dV(72) - B(195) = RCT(111)*V(39) -! B(196) = dA(112)/dV(49) - B(196) = RCT(112)*V(72) -! B(197) = dA(112)/dV(72) - B(197) = RCT(112)*V(49) -! B(198) = dA(113)/dV(63) - B(198) = RCT(113)*V(72) -! B(199) = dA(113)/dV(72) - B(199) = RCT(113)*V(63) -! B(200) = dA(114)/dV(45) - B(200) = RCT(114)*V(72) -! B(201) = dA(114)/dV(72) - B(201) = RCT(114)*V(45) -! B(202) = dA(115)/dV(26) - B(202) = RCT(115)*V(82) -! B(203) = dA(115)/dV(82) - B(203) = RCT(115)*V(26) -! B(204) = dA(116)/dV(26) - B(204) = RCT(116)*V(76) -! B(205) = dA(116)/dV(76) - B(205) = RCT(116)*V(26) -! B(206) = dA(117)/dV(28) - B(206) = RCT(117)*V(82) -! B(207) = dA(117)/dV(82) - B(207) = RCT(117)*V(28) -! B(208) = dA(118)/dV(28) - B(208) = RCT(118)*F(2) -! B(210) = dA(119)/dV(28) - B(210) = RCT(119)*V(72) -! B(211) = dA(119)/dV(72) - B(211) = RCT(119)*V(28) -! B(212) = dA(120)/dV(29) - B(212) = RCT(120)*V(82) -! B(213) = dA(120)/dV(82) - B(213) = RCT(120)*V(29) -! B(214) = dA(121)/dV(29) - B(214) = RCT(121)*F(2) -! B(216) = dA(122)/dV(29) - B(216) = RCT(122)*V(72) -! B(217) = dA(122)/dV(72) - B(217) = RCT(122)*V(29) -! B(218) = dA(123)/dV(31) - B(218) = RCT(123)*V(82) -! B(219) = dA(123)/dV(82) - B(219) = RCT(123)*V(31) -! B(220) = dA(124)/dV(31) - B(220) = RCT(124)*F(2) -! B(222) = dA(125)/dV(31) - B(222) = RCT(125)*V(72) -! B(223) = dA(125)/dV(72) - B(223) = RCT(125)*V(31) -! B(224) = dA(126)/dV(77) - B(224) = RCT(126)*V(82) -! B(225) = dA(126)/dV(82) - B(225) = RCT(126)*V(77) -! B(226) = dA(127)/dV(36) - B(226) = RCT(127) -! B(227) = dA(128)/dV(71) - B(227) = RCT(128)*V(82) -! B(228) = dA(128)/dV(82) - B(228) = RCT(128)*V(71) -! B(229) = dA(129)/dV(45) - B(229) = RCT(129) -! B(230) = dA(130)/dV(74) - B(230) = RCT(130)*V(81) -! B(231) = dA(130)/dV(81) - B(231) = RCT(130)*V(74) -! B(232) = dA(131)/dV(70) - B(232) = RCT(131)*V(81) -! B(233) = dA(131)/dV(81) - B(233) = RCT(131)*V(70) -! B(234) = dA(132)/dV(73) - B(234) = RCT(132)*V(81) -! B(235) = dA(132)/dV(81) - B(235) = RCT(132)*V(73) -! B(236) = dA(133)/dV(57) - B(236) = RCT(133)*V(81) -! B(237) = dA(133)/dV(81) - B(237) = RCT(133)*V(57) -! B(238) = dA(134)/dV(56) - B(238) = RCT(134)*V(81) -! B(239) = dA(134)/dV(81) - B(239) = RCT(134)*V(56) -! B(240) = dA(135)/dV(47) - B(240) = RCT(135)*V(81) -! B(241) = dA(135)/dV(81) - B(241) = RCT(135)*V(47) -! B(242) = dA(136)/dV(48) - B(242) = RCT(136)*V(81) -! B(243) = dA(136)/dV(81) - B(243) = RCT(136)*V(48) -! B(244) = dA(137)/dV(61) - B(244) = RCT(137)*V(81) -! B(245) = dA(137)/dV(81) - B(245) = RCT(137)*V(61) -! B(246) = dA(138)/dV(50) - B(246) = RCT(138)*V(81) -! B(247) = dA(138)/dV(81) - B(247) = RCT(138)*V(50) -! B(248) = dA(139)/dV(51) - B(248) = RCT(139)*V(81) -! B(249) = dA(139)/dV(81) - B(249) = RCT(139)*V(51) -! B(250) = dA(140)/dV(55) - B(250) = RCT(140)*V(81) -! B(251) = dA(140)/dV(81) - B(251) = RCT(140)*V(55) -! B(252) = dA(141)/dV(59) - B(252) = RCT(141)*V(81) -! B(253) = dA(141)/dV(81) - B(253) = RCT(141)*V(59) -! B(254) = dA(142)/dV(60) - B(254) = RCT(142)*V(81) -! B(255) = dA(142)/dV(81) - B(255) = RCT(142)*V(60) -! B(256) = dA(143)/dV(54) - B(256) = RCT(143)*V(81) -! B(257) = dA(143)/dV(81) - B(257) = RCT(143)*V(54) -! B(258) = dA(144)/dV(77) - B(258) = RCT(144)*V(81) -! B(259) = dA(144)/dV(81) - B(259) = RCT(144)*V(77) -! B(260) = dA(145)/dV(71) - B(260) = RCT(145)*V(81) -! B(261) = dA(145)/dV(81) - B(261) = RCT(145)*V(71) -! B(262) = dA(146)/dV(80) - B(262) = RCT(146)*V(81) -! B(263) = dA(146)/dV(81) - B(263) = RCT(146)*V(80) -! B(264) = dA(147)/dV(69) - B(264) = RCT(147)*V(81) -! B(265) = dA(147)/dV(81) - B(265) = RCT(147)*V(69) -! B(266) = dA(148)/dV(68) - B(266) = RCT(148)*V(81) -! B(267) = dA(148)/dV(81) - B(267) = RCT(148)*V(68) -! B(268) = dA(149)/dV(74) - B(268) = RCT(149)*V(76) -! B(269) = dA(149)/dV(76) - B(269) = RCT(149)*V(74) -! B(270) = dA(150)/dV(70) - B(270) = RCT(150)*V(76) -! B(271) = dA(150)/dV(76) - B(271) = RCT(150)*V(70) -! B(272) = dA(151)/dV(73) - B(272) = RCT(151)*V(76) -! B(273) = dA(151)/dV(76) - B(273) = RCT(151)*V(73) -! B(274) = dA(152)/dV(57) - B(274) = RCT(152)*V(76) -! B(275) = dA(152)/dV(76) - B(275) = RCT(152)*V(57) -! B(276) = dA(153)/dV(56) - B(276) = RCT(153)*V(76) -! B(277) = dA(153)/dV(76) - B(277) = RCT(153)*V(56) -! B(278) = dA(154)/dV(47) - B(278) = RCT(154)*V(76) -! B(279) = dA(154)/dV(76) - B(279) = RCT(154)*V(47) -! B(280) = dA(155)/dV(48) - B(280) = RCT(155)*V(76) -! B(281) = dA(155)/dV(76) - B(281) = RCT(155)*V(48) -! B(282) = dA(156)/dV(61) - B(282) = RCT(156)*V(76) -! B(283) = dA(156)/dV(76) - B(283) = RCT(156)*V(61) -! B(284) = dA(157)/dV(50) - B(284) = RCT(157)*V(76) -! B(285) = dA(157)/dV(76) - B(285) = RCT(157)*V(50) -! B(286) = dA(158)/dV(51) - B(286) = RCT(158)*V(76) -! B(287) = dA(158)/dV(76) - B(287) = RCT(158)*V(51) -! B(288) = dA(159)/dV(55) - B(288) = RCT(159)*V(76) -! B(289) = dA(159)/dV(76) - B(289) = RCT(159)*V(55) -! B(290) = dA(160)/dV(59) - B(290) = RCT(160)*V(76) -! B(291) = dA(160)/dV(76) - B(291) = RCT(160)*V(59) -! B(292) = dA(161)/dV(60) - B(292) = RCT(161)*V(76) -! B(293) = dA(161)/dV(76) - B(293) = RCT(161)*V(60) -! B(294) = dA(162)/dV(54) - B(294) = RCT(162)*V(76) -! B(295) = dA(162)/dV(76) - B(295) = RCT(162)*V(54) -! B(296) = dA(163)/dV(76) - B(296) = RCT(163)*V(77) -! B(297) = dA(163)/dV(77) - B(297) = RCT(163)*V(76) -! B(298) = dA(164)/dV(76) - B(298) = RCT(164)*V(77) -! B(299) = dA(164)/dV(77) - B(299) = RCT(164)*V(76) -! B(300) = dA(165)/dV(71) - B(300) = RCT(165)*V(76) -! B(301) = dA(165)/dV(76) - B(301) = RCT(165)*V(71) -! B(302) = dA(166)/dV(71) - B(302) = RCT(166)*V(76) -! B(303) = dA(166)/dV(76) - B(303) = RCT(166)*V(71) -! B(304) = dA(167)/dV(76) - B(304) = RCT(167)*V(80) -! B(305) = dA(167)/dV(80) - B(305) = RCT(167)*V(76) -! B(306) = dA(168)/dV(69) - B(306) = RCT(168)*V(76) -! B(307) = dA(168)/dV(76) - B(307) = RCT(168)*V(69) -! B(308) = dA(169)/dV(68) - B(308) = RCT(169)*V(76) -! B(309) = dA(169)/dV(76) - B(309) = RCT(169)*V(68) -! B(310) = dA(170)/dV(74) - B(310) = RCT(170)*2*V(74) -! B(311) = dA(171)/dV(70) - B(311) = RCT(171)*V(74) -! B(312) = dA(171)/dV(74) - B(312) = RCT(171)*V(70) -! B(313) = dA(172)/dV(73) - B(313) = RCT(172)*V(74) -! B(314) = dA(172)/dV(74) - B(314) = RCT(172)*V(73) -! B(315) = dA(173)/dV(57) - B(315) = RCT(173)*V(74) -! B(316) = dA(173)/dV(74) - B(316) = RCT(173)*V(57) -! B(317) = dA(174)/dV(56) - B(317) = RCT(174)*V(74) -! B(318) = dA(174)/dV(74) - B(318) = RCT(174)*V(56) -! B(319) = dA(175)/dV(47) - B(319) = RCT(175)*V(74) -! B(320) = dA(175)/dV(74) - B(320) = RCT(175)*V(47) -! B(321) = dA(176)/dV(48) - B(321) = RCT(176)*V(74) -! B(322) = dA(176)/dV(74) - B(322) = RCT(176)*V(48) -! B(323) = dA(177)/dV(61) - B(323) = RCT(177)*V(74) -! B(324) = dA(177)/dV(74) - B(324) = RCT(177)*V(61) -! B(325) = dA(178)/dV(50) - B(325) = RCT(178)*V(74) -! B(326) = dA(178)/dV(74) - B(326) = RCT(178)*V(50) -! B(327) = dA(179)/dV(51) - B(327) = RCT(179)*V(74) -! B(328) = dA(179)/dV(74) - B(328) = RCT(179)*V(51) -! B(329) = dA(180)/dV(55) - B(329) = RCT(180)*V(74) -! B(330) = dA(180)/dV(74) - B(330) = RCT(180)*V(55) -! B(331) = dA(181)/dV(59) - B(331) = RCT(181)*V(74) -! B(332) = dA(181)/dV(74) - B(332) = RCT(181)*V(59) -! B(333) = dA(182)/dV(60) - B(333) = RCT(182)*V(74) -! B(334) = dA(182)/dV(74) - B(334) = RCT(182)*V(60) -! B(335) = dA(183)/dV(54) - B(335) = RCT(183)*V(74) -! B(336) = dA(183)/dV(74) - B(336) = RCT(183)*V(54) -! B(337) = dA(184)/dV(74) - B(337) = RCT(184)*V(77) -! B(338) = dA(184)/dV(77) - B(338) = RCT(184)*V(74) -! B(339) = dA(185)/dV(74) - B(339) = RCT(185)*V(77) -! B(340) = dA(185)/dV(77) - B(340) = RCT(185)*V(74) -! B(341) = dA(186)/dV(71) - B(341) = RCT(186)*V(74) -! B(342) = dA(186)/dV(74) - B(342) = RCT(186)*V(71) -! B(343) = dA(187)/dV(71) - B(343) = RCT(187)*V(74) -! B(344) = dA(187)/dV(74) - B(344) = RCT(187)*V(71) -! B(345) = dA(188)/dV(74) - B(345) = RCT(188)*V(80) -! B(346) = dA(188)/dV(80) - B(346) = RCT(188)*V(74) -! B(347) = dA(189)/dV(69) - B(347) = RCT(189)*V(74) -! B(348) = dA(189)/dV(74) - B(348) = RCT(189)*V(69) -! B(349) = dA(190)/dV(68) - B(349) = RCT(190)*V(74) -! B(350) = dA(190)/dV(74) - B(350) = RCT(190)*V(68) -! B(351) = dA(191)/dV(70) - B(351) = RCT(191)*V(77) -! B(352) = dA(191)/dV(77) - B(352) = RCT(191)*V(70) -! B(353) = dA(192)/dV(73) - B(353) = RCT(192)*V(77) -! B(354) = dA(192)/dV(77) - B(354) = RCT(192)*V(73) -! B(355) = dA(193)/dV(57) - B(355) = RCT(193)*V(77) -! B(356) = dA(193)/dV(77) - B(356) = RCT(193)*V(57) -! B(357) = dA(194)/dV(56) - B(357) = RCT(194)*V(77) -! B(358) = dA(194)/dV(77) - B(358) = RCT(194)*V(56) -! B(359) = dA(195)/dV(47) - B(359) = RCT(195)*V(77) -! B(360) = dA(195)/dV(77) - B(360) = RCT(195)*V(47) -! B(361) = dA(196)/dV(48) - B(361) = RCT(196)*V(77) -! B(362) = dA(196)/dV(77) - B(362) = RCT(196)*V(48) -! B(363) = dA(197)/dV(61) - B(363) = RCT(197)*V(77) -! B(364) = dA(197)/dV(77) - B(364) = RCT(197)*V(61) -! B(365) = dA(198)/dV(50) - B(365) = RCT(198)*V(77) -! B(366) = dA(198)/dV(77) - B(366) = RCT(198)*V(50) -! B(367) = dA(199)/dV(51) - B(367) = RCT(199)*V(77) -! B(368) = dA(199)/dV(77) - B(368) = RCT(199)*V(51) -! B(369) = dA(200)/dV(55) - B(369) = RCT(200)*V(77) -! B(370) = dA(200)/dV(77) - B(370) = RCT(200)*V(55) -! B(371) = dA(201)/dV(59) - B(371) = RCT(201)*V(77) -! B(372) = dA(201)/dV(77) - B(372) = RCT(201)*V(59) -! B(373) = dA(202)/dV(60) - B(373) = RCT(202)*V(77) -! B(374) = dA(202)/dV(77) - B(374) = RCT(202)*V(60) -! B(375) = dA(203)/dV(54) - B(375) = RCT(203)*V(77) -! B(376) = dA(203)/dV(77) - B(376) = RCT(203)*V(54) -! B(377) = dA(204)/dV(77) - B(377) = RCT(204)*2*V(77) -! B(378) = dA(205)/dV(71) - B(378) = RCT(205)*V(77) -! B(379) = dA(205)/dV(77) - B(379) = RCT(205)*V(71) -! B(380) = dA(206)/dV(77) - B(380) = RCT(206)*V(80) -! B(381) = dA(206)/dV(80) - B(381) = RCT(206)*V(77) -! B(382) = dA(207)/dV(69) - B(382) = RCT(207)*V(77) -! B(383) = dA(207)/dV(77) - B(383) = RCT(207)*V(69) -! B(384) = dA(208)/dV(68) - B(384) = RCT(208)*V(77) -! B(385) = dA(208)/dV(77) - B(385) = RCT(208)*V(68) -! B(386) = dA(209)/dV(69) - B(386) = RCT(209)*2*V(69) -! B(387) = dA(210)/dV(68) - B(387) = RCT(210)*V(69) -! B(388) = dA(210)/dV(69) - B(388) = RCT(210)*V(68) -! B(389) = dA(211)/dV(68) - B(389) = RCT(211)*2*V(68) -! B(390) = dA(212)/dV(74) - B(390) = RCT(212)*V(79) -! B(391) = dA(212)/dV(79) - B(391) = RCT(212)*V(74) -! B(392) = dA(213)/dV(70) - B(392) = RCT(213)*V(79) -! B(393) = dA(213)/dV(79) - B(393) = RCT(213)*V(70) -! B(394) = dA(214)/dV(73) - B(394) = RCT(214)*V(79) -! B(395) = dA(214)/dV(79) - B(395) = RCT(214)*V(73) -! B(396) = dA(215)/dV(57) - B(396) = RCT(215)*V(79) -! B(397) = dA(215)/dV(79) - B(397) = RCT(215)*V(57) -! B(398) = dA(216)/dV(56) - B(398) = RCT(216)*V(79) -! B(399) = dA(216)/dV(79) - B(399) = RCT(216)*V(56) -! B(400) = dA(217)/dV(47) - B(400) = RCT(217)*V(79) -! B(401) = dA(217)/dV(79) - B(401) = RCT(217)*V(47) -! B(402) = dA(218)/dV(48) - B(402) = RCT(218)*V(79) -! B(403) = dA(218)/dV(79) - B(403) = RCT(218)*V(48) -! B(404) = dA(219)/dV(61) - B(404) = RCT(219)*V(79) -! B(405) = dA(219)/dV(79) - B(405) = RCT(219)*V(61) -! B(406) = dA(220)/dV(21) - B(406) = RCT(220)*V(78) -! B(407) = dA(220)/dV(78) - B(407) = RCT(220)*V(21) -! B(408) = dA(221)/dV(51) - B(408) = RCT(221)*V(79) -! B(409) = dA(221)/dV(79) - B(409) = RCT(221)*V(51) -! B(410) = dA(222)/dV(55) - B(410) = RCT(222)*V(79) -! B(411) = dA(222)/dV(79) - B(411) = RCT(222)*V(55) -! B(412) = dA(223)/dV(59) - B(412) = RCT(223)*V(79) -! B(413) = dA(223)/dV(79) - B(413) = RCT(223)*V(59) -! B(414) = dA(224)/dV(60) - B(414) = RCT(224)*V(79) -! B(415) = dA(224)/dV(79) - B(415) = RCT(224)*V(60) -! B(416) = dA(225)/dV(54) - B(416) = RCT(225)*V(79) -! B(417) = dA(225)/dV(79) - B(417) = RCT(225)*V(54) -! B(418) = dA(226)/dV(77) - B(418) = RCT(226)*V(79) -! B(419) = dA(226)/dV(79) - B(419) = RCT(226)*V(77) -! B(420) = dA(227)/dV(71) - B(420) = RCT(227)*V(79) -! B(421) = dA(227)/dV(79) - B(421) = RCT(227)*V(71) -! B(422) = dA(228)/dV(79) - B(422) = RCT(228)*V(80) -! B(423) = dA(228)/dV(80) - B(423) = RCT(228)*V(79) -! B(424) = dA(229)/dV(69) - B(424) = RCT(229)*V(79) -! B(425) = dA(229)/dV(79) - B(425) = RCT(229)*V(69) -! B(426) = dA(230)/dV(68) - B(426) = RCT(230)*V(79) -! B(427) = dA(230)/dV(79) - B(427) = RCT(230)*V(68) -! B(428) = dA(231)/dV(64) - B(428) = RCT(231)*V(76) -! B(429) = dA(231)/dV(76) - B(429) = RCT(231)*V(64) -! B(430) = dA(232)/dV(64) - B(430) = RCT(232)*V(74) -! B(431) = dA(232)/dV(74) - B(431) = RCT(232)*V(64) -! B(432) = dA(233)/dV(64) - B(432) = RCT(233)*V(77) -! B(433) = dA(233)/dV(77) - B(433) = RCT(233)*V(64) -! B(434) = dA(234)/dV(64) - B(434) = RCT(234)*2*V(64) -! B(435) = dA(235)/dV(64) - B(435) = RCT(235)*V(81) -! B(436) = dA(235)/dV(81) - B(436) = RCT(235)*V(64) -! B(437) = dA(236)/dV(64) - B(437) = RCT(236)*V(79) -! B(438) = dA(236)/dV(79) - B(438) = RCT(236)*V(64) -! B(439) = dA(237)/dV(50) - B(439) = RCT(237)*2*V(50) -! B(440) = dA(238)/dV(7) - B(440) = RCT(238)*V(78) -! B(441) = dA(238)/dV(78) - B(441) = RCT(238)*V(7) -! B(442) = dA(239)/dV(34) - B(442) = RCT(239)*V(78) -! B(443) = dA(239)/dV(78) - B(443) = RCT(239)*V(34) -! B(444) = dA(240)/dV(44) - B(444) = RCT(240)*V(81) -! B(445) = dA(240)/dV(81) - B(445) = RCT(240)*V(44) -! B(446) = dA(241)/dV(44) - B(446) = RCT(241)*V(76) -! B(447) = dA(241)/dV(76) - B(447) = RCT(241)*V(44) -! B(448) = dA(242)/dV(44) - B(448) = RCT(242)*2*V(44) -! B(449) = dA(243)/dV(44) - B(449) = RCT(243)*V(82) -! B(450) = dA(243)/dV(82) - B(450) = RCT(243)*V(44) -! B(451) = dA(244)/dV(21) - B(451) = RCT(244) -! B(452) = dA(245)/dV(35) - B(452) = RCT(245)*V(78) -! B(453) = dA(245)/dV(78) - B(453) = RCT(245)*V(35) -! B(454) = dA(246)/dV(35) - B(454) = RCT(246)*V(72) -! B(455) = dA(246)/dV(72) - B(455) = RCT(246)*V(35) -! B(456) = dA(247)/dV(35) - B(456) = RCT(247)*V(79) -! B(457) = dA(247)/dV(79) - B(457) = RCT(247)*V(35) -! B(458) = dA(248)/dV(41) - B(458) = RCT(248)*V(78) -! B(459) = dA(248)/dV(78) - B(459) = RCT(248)*V(41) -! B(460) = dA(249)/dV(41) - B(460) = RCT(249)*V(79) -! B(461) = dA(249)/dV(79) - B(461) = RCT(249)*V(41) -! B(462) = dA(250)/dV(41) - B(462) = RCT(250)*V(72) -! B(463) = dA(250)/dV(72) - B(463) = RCT(250)*V(41) - -! Construct the Jacobian terms from B's -! JVS(1) = Jac_FULL(1,1) - JVS(1) = 0 -! JVS(2) = Jac_FULL(1,5) - JVS(2) = B(84) -! JVS(3) = Jac_FULL(1,78) - JVS(3) = B(85) -! JVS(4) = Jac_FULL(2,2) - JVS(4) = 0 -! JVS(5) = Jac_FULL(2,38) - JVS(5) = B(86) -! JVS(6) = Jac_FULL(2,78) - JVS(6) = B(87) -! JVS(7) = Jac_FULL(3,3) - JVS(7) = 0 -! JVS(8) = Jac_FULL(3,14) - JVS(8) = 0.036*B(96) -! JVS(9) = Jac_FULL(3,30) - JVS(9) = 0.37*B(182) -! JVS(10) = Jac_FULL(3,35) - JVS(10) = 0.05*B(452)+0.039*B(454) -! JVS(11) = Jac_FULL(3,39) - JVS(11) = 0.01*B(194) -! JVS(12) = Jac_FULL(3,40) - JVS(12) = 0.28*B(190) -! JVS(13) = Jac_FULL(3,43) - JVS(13) = 0.15*B(188) -! JVS(14) = Jac_FULL(3,45) - JVS(14) = 0.11*B(200) -! JVS(15) = Jac_FULL(3,49) - JVS(15) = 0.45*B(196) -! JVS(16) = Jac_FULL(3,63) - JVS(16) = 0.11*B(198) -! JVS(17) = Jac_FULL(3,65) - JVS(17) = 0.14*B(184) -! JVS(18) = Jac_FULL(3,72) - JVS(18) = 0.37*B(183)+0.14*B(185)+0.15*B(189)+0.28*B(191)+0.01*B(195)+0.45*B(197)+0.11*B(199)+0.11*B(201)+0.039*B(455) -! JVS(19) = Jac_FULL(3,78) - JVS(19) = 0.036*B(97)+0.05*B(453) -! JVS(20) = Jac_FULL(4,4) - JVS(20) = 0 -! JVS(21) = Jac_FULL(4,35) - JVS(21) = 0.053*B(454) -! JVS(22) = Jac_FULL(4,39) - JVS(22) = 0.07*B(194) -! JVS(23) = Jac_FULL(4,41) - JVS(23) = 0.14*B(462) -! JVS(24) = Jac_FULL(4,47) - JVS(24) = 0.5*B(359) -! JVS(25) = Jac_FULL(4,48) - JVS(25) = 0.499*B(361) -! JVS(26) = Jac_FULL(4,50) - JVS(26) = 0.494*B(365) -! JVS(27) = Jac_FULL(4,56) - JVS(27) = 0.495*B(357) -! JVS(28) = Jac_FULL(4,57) - JVS(28) = 0.495*B(355) -! JVS(29) = Jac_FULL(4,61) - JVS(29) = 0.49*B(363) -! JVS(30) = Jac_FULL(4,63) - JVS(30) = 0.21*B(198) -! JVS(31) = Jac_FULL(4,65) - JVS(31) = 0.1*B(184) -! JVS(32) = Jac_FULL(4,67) - JVS(32) = 0.14*B(186) -! JVS(33) = Jac_FULL(4,68) - JVS(33) = 0.484*B(384) -! JVS(34) = Jac_FULL(4,69) - JVS(34) = 0.5*B(382) -! JVS(35) = Jac_FULL(4,70) - JVS(35) = 0.5*B(351) -! JVS(36) = Jac_FULL(4,71) - JVS(36) = B(302)+B(343) -! JVS(37) = Jac_FULL(4,72) - JVS(37) = 0.1*B(185)+0.14*B(187)+0.07*B(195)+0.21*B(199)+0.053*B(455)+0.14*B(463) -! JVS(38) = Jac_FULL(4,73) - JVS(38) = 0.499*B(353) -! JVS(39) = Jac_FULL(4,74) - JVS(39) = B(339)+B(344) -! JVS(40) = Jac_FULL(4,76) - JVS(40) = B(298)+B(303) -! JVS(41) = Jac_FULL(4,77) - JVS(41) = B(299)+B(340)+0.5*B(352)+0.499*B(354)+0.495*B(356)+0.495*B(358)+0.5*B(360)+0.499*B(362)+0.49*B(364)+0.494& - &*B(366)+0.5*B(380)+0.5*B(383)+0.484*B(385) -! JVS(42) = Jac_FULL(4,80) - JVS(42) = 0.5*B(381) -! JVS(43) = Jac_FULL(5,5) - JVS(43) = -B(84) -! JVS(44) = Jac_FULL(5,78) - JVS(44) = -B(85) -! JVS(45) = Jac_FULL(6,6) - JVS(45) = -B(28)-B(30) -! JVS(46) = Jac_FULL(6,72) - JVS(46) = B(2) -! JVS(47) = Jac_FULL(7,7) - JVS(47) = -B(440) -! JVS(48) = Jac_FULL(7,50) - JVS(48) = B(284) -! JVS(49) = Jac_FULL(7,76) - JVS(49) = B(285) -! JVS(50) = Jac_FULL(7,78) - JVS(50) = -B(441) -! JVS(51) = Jac_FULL(8,8) - JVS(51) = -B(98) -! JVS(52) = Jac_FULL(8,78) - JVS(52) = -B(99) -! JVS(53) = Jac_FULL(9,9) - JVS(53) = -B(116) -! JVS(54) = Jac_FULL(9,78) - JVS(54) = -B(117) -! JVS(55) = Jac_FULL(10,10) - JVS(55) = -B(118) -! JVS(56) = Jac_FULL(10,78) - JVS(56) = -B(119) -! JVS(57) = Jac_FULL(11,11) - JVS(57) = -B(80) -! JVS(58) = Jac_FULL(11,79) - JVS(58) = B(78) -! JVS(59) = Jac_FULL(11,82) - JVS(59) = B(79) -! JVS(60) = Jac_FULL(12,12) - JVS(60) = -B(100) -! JVS(61) = Jac_FULL(12,78) - JVS(61) = -B(101) -! JVS(62) = Jac_FULL(13,13) - JVS(62) = -B(160) -! JVS(63) = Jac_FULL(13,44) - JVS(63) = B(446) -! JVS(64) = Jac_FULL(13,76) - JVS(64) = B(447) -! JVS(65) = Jac_FULL(13,78) - JVS(65) = -B(161) -! JVS(66) = Jac_FULL(14,14) - JVS(66) = -B(96) -! JVS(67) = Jac_FULL(14,78) - JVS(67) = -B(97) -! JVS(68) = Jac_FULL(15,15) - JVS(68) = -B(138) -! JVS(69) = Jac_FULL(15,63) - JVS(69) = 0.35*B(136) -! JVS(70) = Jac_FULL(15,78) - JVS(70) = 0.35*B(137)-B(139) -! JVS(71) = Jac_FULL(16,16) - JVS(71) = -B(88) -! JVS(72) = Jac_FULL(16,34) - JVS(72) = B(442) -! JVS(73) = Jac_FULL(16,78) - JVS(73) = -B(89)+B(443) -! JVS(74) = Jac_FULL(17,17) - JVS(74) = -B(94) -! JVS(75) = Jac_FULL(17,41) - JVS(75) = 0.06*B(462) -! JVS(76) = Jac_FULL(17,65) - JVS(76) = 0.03*B(184) -! JVS(77) = Jac_FULL(17,67) - JVS(77) = 0.06*B(186) -! JVS(78) = Jac_FULL(17,72) - JVS(78) = 0.03*B(185)+0.06*B(187)+0.06*B(463) -! JVS(79) = Jac_FULL(17,78) - JVS(79) = -B(95) -! JVS(80) = Jac_FULL(18,18) - JVS(80) = -B(92) -! JVS(81) = Jac_FULL(18,41) - JVS(81) = 0.07*B(462) -! JVS(82) = Jac_FULL(18,65) - JVS(82) = 0.06*B(184) -! JVS(83) = Jac_FULL(18,67) - JVS(83) = 0.07*B(186) -! JVS(84) = Jac_FULL(18,72) - JVS(84) = 0.06*B(185)+0.07*B(187)+0.07*B(463) -! JVS(85) = Jac_FULL(18,78) - JVS(85) = -B(93) -! JVS(86) = Jac_FULL(19,19) - JVS(86) = -B(6)-B(59)-B(66) -! JVS(87) = Jac_FULL(19,76) - JVS(87) = B(57) -! JVS(88) = Jac_FULL(19,78) - JVS(88) = -B(67) -! JVS(89) = Jac_FULL(19,82) - JVS(89) = B(58) -! JVS(90) = Jac_FULL(20,20) - JVS(90) = -B(13)-B(140) -! JVS(91) = Jac_FULL(20,74) - JVS(91) = B(268) -! JVS(92) = Jac_FULL(20,76) - JVS(92) = B(269) -! JVS(93) = Jac_FULL(20,78) - JVS(93) = -B(141) -! JVS(94) = Jac_FULL(21,21) - JVS(94) = -B(406)-B(451) -! JVS(95) = Jac_FULL(21,44) - JVS(95) = B(449) -! JVS(96) = Jac_FULL(21,78) - JVS(96) = -B(407) -! JVS(97) = Jac_FULL(21,82) - JVS(97) = B(450) -! JVS(98) = Jac_FULL(22,21) - JVS(98) = B(406) -! JVS(99) = Jac_FULL(22,22) - JVS(99) = -B(90) -! JVS(100) = Jac_FULL(22,34) - JVS(100) = B(442) -! JVS(101) = Jac_FULL(22,44) - JVS(101) = 0.25*B(444)+B(448) -! JVS(102) = Jac_FULL(22,78) - JVS(102) = -B(91)+B(407)+B(443) -! JVS(103) = Jac_FULL(22,81) - JVS(103) = 0.25*B(445) -! JVS(104) = Jac_FULL(22,82) - JVS(104) = 0 -! JVS(105) = Jac_FULL(23,23) - JVS(105) = -B(4)-B(62) -! JVS(106) = Jac_FULL(23,28) - JVS(106) = B(206) -! JVS(107) = Jac_FULL(23,29) - JVS(107) = B(212) -! JVS(108) = Jac_FULL(23,31) - JVS(108) = B(218) -! JVS(109) = Jac_FULL(23,78) - JVS(109) = B(49)-B(63) -! JVS(110) = Jac_FULL(23,81) - JVS(110) = B(50) -! JVS(111) = Jac_FULL(23,82) - JVS(111) = B(207)+B(213)+B(219) -! JVS(112) = Jac_FULL(24,12) - JVS(112) = 0.024*B(100) -! JVS(113) = Jac_FULL(24,24) - JVS(113) = -B(23)-B(128) -! JVS(114) = Jac_FULL(24,45) - JVS(114) = 0.6*B(148) -! JVS(115) = Jac_FULL(24,74) - JVS(115) = 0.3*B(345) -! JVS(116) = Jac_FULL(24,78) - JVS(116) = 0.024*B(101)-B(129)+0.6*B(149) -! JVS(117) = Jac_FULL(24,80) - JVS(117) = 0.3*B(346) -! JVS(118) = Jac_FULL(25,6) - JVS(118) = B(28) -! JVS(119) = Jac_FULL(25,25) - JVS(119) = -B(24)-B(26)-B(43)-B(45)-B(47) -! JVS(120) = Jac_FULL(25,43) - JVS(120) = 0.09*B(188) -! JVS(121) = Jac_FULL(25,72) - JVS(121) = B(3)-B(27)+0.09*B(189) -! JVS(122) = Jac_FULL(25,79) - JVS(122) = B(8) -! JVS(123) = Jac_FULL(25,81) - JVS(123) = -B(44) -! JVS(124) = Jac_FULL(25,82) - JVS(124) = B(1)-B(46)-B(48) -! JVS(125) = Jac_FULL(26,26) - JVS(125) = -B(202)-B(204) -! JVS(126) = Jac_FULL(26,42) - JVS(126) = 0.1*B(120)+B(164) -! JVS(127) = Jac_FULL(26,76) - JVS(127) = -B(205) -! JVS(128) = Jac_FULL(26,78) - JVS(128) = 0.1*B(121) -! JVS(129) = Jac_FULL(26,79) - JVS(129) = B(165) -! JVS(130) = Jac_FULL(26,82) - JVS(130) = -B(203) -! JVS(131) = Jac_FULL(27,27) - JVS(131) = -B(9)-B(38) -! JVS(132) = Jac_FULL(27,37) - JVS(132) = 0.02*B(192) -! JVS(133) = Jac_FULL(27,39) - JVS(133) = 0.02*B(194) -! JVS(134) = Jac_FULL(27,40) - JVS(134) = 0.09*B(190) -! JVS(135) = Jac_FULL(27,41) - JVS(135) = 0.011*B(462) -! JVS(136) = Jac_FULL(27,43) - JVS(136) = 0.001*B(188) -! JVS(137) = Jac_FULL(27,65) - JVS(137) = 0.006*B(184) -! JVS(138) = Jac_FULL(27,67) - JVS(138) = 0.011*B(186) -! JVS(139) = Jac_FULL(27,72) - JVS(139) = 0.006*B(185)+0.011*B(187)+0.001*B(189)+0.09*B(191)+0.02*B(193)+0.02*B(195)+0.011*B(463) -! JVS(140) = Jac_FULL(27,76) - JVS(140) = B(40)+B(41) -! JVS(141) = Jac_FULL(27,78) - JVS(141) = -B(39) -! JVS(142) = Jac_FULL(28,9) - JVS(142) = 0.9*B(116) -! JVS(143) = Jac_FULL(28,28) - JVS(143) = -B(206)-B(208)-B(210) -! JVS(144) = Jac_FULL(28,72) - JVS(144) = -B(211) -! JVS(145) = Jac_FULL(28,78) - JVS(145) = 0.9*B(117) -! JVS(146) = Jac_FULL(28,82) - JVS(146) = -B(207) -! JVS(147) = Jac_FULL(29,10) - JVS(147) = 0.9*B(118) -! JVS(148) = Jac_FULL(29,29) - JVS(148) = -B(212)-B(214)-B(216) -! JVS(149) = Jac_FULL(29,72) - JVS(149) = -B(217) -! JVS(150) = Jac_FULL(29,78) - JVS(150) = 0.9*B(119) -! JVS(151) = Jac_FULL(29,82) - JVS(151) = -B(213) -! JVS(152) = Jac_FULL(30,30) - JVS(152) = -B(102)-B(166)-B(182) -! JVS(153) = Jac_FULL(30,72) - JVS(153) = -B(183) -! JVS(154) = Jac_FULL(30,78) - JVS(154) = -B(103) -! JVS(155) = Jac_FULL(30,79) - JVS(155) = -B(167) -! JVS(156) = Jac_FULL(31,31) - JVS(156) = -B(218)-B(220)-B(222) -! JVS(157) = Jac_FULL(31,42) - JVS(157) = 0.85*B(120) -! JVS(158) = Jac_FULL(31,72) - JVS(158) = -B(223) -! JVS(159) = Jac_FULL(31,78) - JVS(159) = 0.85*B(121) -! JVS(160) = Jac_FULL(31,82) - JVS(160) = -B(219) -! JVS(161) = Jac_FULL(32,32) - JVS(161) = -B(5)-B(64) -! JVS(162) = Jac_FULL(32,42) - JVS(162) = B(164) -! JVS(163) = Jac_FULL(32,46) - JVS(163) = B(156) -! JVS(164) = Jac_FULL(32,53) - JVS(164) = B(158) -! JVS(165) = Jac_FULL(32,58) - JVS(165) = B(152) -! JVS(166) = Jac_FULL(32,63) - JVS(166) = 0.5*B(162) -! JVS(167) = Jac_FULL(32,66) - JVS(167) = B(154) -! JVS(168) = Jac_FULL(32,76) - JVS(168) = 0.3*B(60) -! JVS(169) = Jac_FULL(32,78) - JVS(169) = B(51)-B(65) -! JVS(170) = Jac_FULL(32,79) - JVS(170) = 0.3*B(61)+B(153)+B(155)+B(157)+B(159)+0.5*B(163)+B(165) -! JVS(171) = Jac_FULL(32,82) - JVS(171) = B(52) -! JVS(172) = Jac_FULL(33,33) - JVS(172) = -B(15)-B(144) -! JVS(173) = Jac_FULL(33,63) - JVS(173) = 0.11*B(198) -! JVS(174) = Jac_FULL(33,72) - JVS(174) = 0.11*B(199) -! JVS(175) = Jac_FULL(33,76) - JVS(175) = B(296) -! JVS(176) = Jac_FULL(33,77) - JVS(176) = B(297) -! JVS(177) = Jac_FULL(33,78) - JVS(177) = -B(145) -! JVS(178) = Jac_FULL(34,34) - JVS(178) = -B(442) -! JVS(179) = Jac_FULL(34,40) - JVS(179) = B(174) -! JVS(180) = Jac_FULL(34,50) - JVS(180) = 0.046*B(246) -! JVS(181) = Jac_FULL(34,78) - JVS(181) = -B(443) -! JVS(182) = Jac_FULL(34,79) - JVS(182) = B(175) -! JVS(183) = Jac_FULL(34,81) - JVS(183) = 0.046*B(247) -! JVS(184) = Jac_FULL(35,35) - JVS(184) = -B(452)-B(454)-B(456) -! JVS(185) = Jac_FULL(35,72) - JVS(185) = -B(455) -! JVS(186) = Jac_FULL(35,78) - JVS(186) = -B(453) -! JVS(187) = Jac_FULL(35,79) - JVS(187) = -B(457) -! JVS(188) = Jac_FULL(36,36) - JVS(188) = -B(146)-B(226) -! JVS(189) = Jac_FULL(36,45) - JVS(189) = 0.4*B(148)+0.4*B(180)+0.3*B(200) -! JVS(190) = Jac_FULL(36,72) - JVS(190) = 0.3*B(201) -! JVS(191) = Jac_FULL(36,77) - JVS(191) = B(224) -! JVS(192) = Jac_FULL(36,78) - JVS(192) = -B(147)+0.4*B(149) -! JVS(193) = Jac_FULL(36,79) - JVS(193) = 0.4*B(181) -! JVS(194) = Jac_FULL(36,82) - JVS(194) = B(225) -! JVS(195) = Jac_FULL(37,37) - JVS(195) = -B(112)-B(176)-B(192) -! JVS(196) = Jac_FULL(37,72) - JVS(196) = -B(193) -! JVS(197) = Jac_FULL(37,78) - JVS(197) = -B(113) -! JVS(198) = Jac_FULL(37,79) - JVS(198) = -B(177) -! JVS(199) = Jac_FULL(38,14) - JVS(199) = 0.036*B(96) -! JVS(200) = Jac_FULL(38,16) - JVS(200) = B(88) -! JVS(201) = Jac_FULL(38,30) - JVS(201) = 0.43*B(182) -! JVS(202) = Jac_FULL(38,34) - JVS(202) = 0 -! JVS(203) = Jac_FULL(38,37) - JVS(203) = 0.14*B(192) -! JVS(204) = Jac_FULL(38,38) - JVS(204) = -B(86) -! JVS(205) = Jac_FULL(38,39) - JVS(205) = 0.14*B(194) -! JVS(206) = Jac_FULL(38,40) - JVS(206) = 0.14*B(190) -! JVS(207) = Jac_FULL(38,41) - JVS(207) = 0.3*B(462) -! JVS(208) = Jac_FULL(38,43) - JVS(208) = 0.36*B(188) -! JVS(209) = Jac_FULL(38,44) - JVS(209) = 0.25*B(444)+0.5*B(448) -! JVS(210) = Jac_FULL(38,45) - JVS(210) = 0.13*B(200) -! JVS(211) = Jac_FULL(38,46) - JVS(211) = 1.87*B(17)+1.55*B(18)+2*B(130)+2*B(156) -! JVS(212) = Jac_FULL(38,49) - JVS(212) = B(22)+0.22*B(196) -! JVS(213) = Jac_FULL(38,50) - JVS(213) = 0 -! JVS(214) = Jac_FULL(38,53) - JVS(214) = B(19)+B(132)+B(158) -! JVS(215) = Jac_FULL(38,58) - JVS(215) = B(10)+B(11)+B(122)+B(152) -! JVS(216) = Jac_FULL(38,63) - JVS(216) = 0.66*B(198) -! JVS(217) = Jac_FULL(38,65) - JVS(217) = 0.37*B(184) -! JVS(218) = Jac_FULL(38,66) - JVS(218) = B(12) -! JVS(219) = Jac_FULL(38,67) - JVS(219) = 0.3*B(186) -! JVS(220) = Jac_FULL(38,72) - JVS(220) = 0.43*B(183)+0.37*B(185)+0.3*B(187)+0.36*B(189)+0.14*B(191)+0.14*B(193)+0.14*B(195)+0.22*B(197)+0.66*B(199)& - &+0.13*B(201)+0.3*B(463) -! JVS(221) = Jac_FULL(38,78) - JVS(221) = -B(87)+B(89)+0.036*B(97)+B(123)+2*B(131)+B(133) -! JVS(222) = Jac_FULL(38,79) - JVS(222) = B(153)+2*B(157)+B(159) -! JVS(223) = Jac_FULL(38,81) - JVS(223) = 0.25*B(445) -! JVS(224) = Jac_FULL(39,39) - JVS(224) = -B(114)-B(178)-B(194) -! JVS(225) = Jac_FULL(39,72) - JVS(225) = -B(195) -! JVS(226) = Jac_FULL(39,78) - JVS(226) = -B(115) -! JVS(227) = Jac_FULL(39,79) - JVS(227) = -B(179) -! JVS(228) = Jac_FULL(40,40) - JVS(228) = -B(110)-B(174)-B(190) -! JVS(229) = Jac_FULL(40,72) - JVS(229) = -B(191) -! JVS(230) = Jac_FULL(40,78) - JVS(230) = -B(111) -! JVS(231) = Jac_FULL(40,79) - JVS(231) = -B(175) -! JVS(232) = Jac_FULL(41,41) - JVS(232) = -B(458)-B(460)-B(462) -! JVS(233) = Jac_FULL(41,72) - JVS(233) = -B(463) -! JVS(234) = Jac_FULL(41,78) - JVS(234) = -B(459) -! JVS(235) = Jac_FULL(41,79) - JVS(235) = -B(461) -! JVS(236) = Jac_FULL(42,26) - JVS(236) = 0.1*B(202)+B(204) -! JVS(237) = Jac_FULL(42,28) - JVS(237) = B(206)+0.02*B(208)+B(210) -! JVS(238) = Jac_FULL(42,29) - JVS(238) = B(212)+0.02*B(214)+B(216) -! JVS(239) = Jac_FULL(42,31) - JVS(239) = B(218)+0.02*B(220)+B(222) -! JVS(240) = Jac_FULL(42,42) - JVS(240) = -B(120)-B(164) -! JVS(241) = Jac_FULL(42,72) - JVS(241) = B(211)+B(217)+B(223) -! JVS(242) = Jac_FULL(42,76) - JVS(242) = B(205) -! JVS(243) = Jac_FULL(42,78) - JVS(243) = -B(121) -! JVS(244) = Jac_FULL(42,79) - JVS(244) = -B(165) -! JVS(245) = Jac_FULL(42,82) - JVS(245) = 0.1*B(203)+B(207)+B(213)+B(219) -! JVS(246) = Jac_FULL(43,43) - JVS(246) = -B(108)-B(172)-B(188) -! JVS(247) = Jac_FULL(43,72) - JVS(247) = -B(189) -! JVS(248) = Jac_FULL(43,78) - JVS(248) = -B(109) -! JVS(249) = Jac_FULL(43,79) - JVS(249) = -B(173) -! JVS(250) = Jac_FULL(44,13) - JVS(250) = B(160) -! JVS(251) = Jac_FULL(44,21) - JVS(251) = B(451) -! JVS(252) = Jac_FULL(44,40) - JVS(252) = 0.1*B(190) -! JVS(253) = Jac_FULL(44,44) - JVS(253) = -B(444)-B(446)-2*B(448)-B(449) -! JVS(254) = Jac_FULL(44,49) - JVS(254) = B(134) -! JVS(255) = Jac_FULL(44,72) - JVS(255) = 0.1*B(191) -! JVS(256) = Jac_FULL(44,76) - JVS(256) = -B(447) -! JVS(257) = Jac_FULL(44,78) - JVS(257) = B(135)+B(161) -! JVS(258) = Jac_FULL(44,79) - JVS(258) = 0 -! JVS(259) = Jac_FULL(44,81) - JVS(259) = -B(445) -! JVS(260) = Jac_FULL(44,82) - JVS(260) = -B(450) -! JVS(261) = Jac_FULL(45,45) - JVS(261) = -B(148)-B(180)-B(200)-B(229) -! JVS(262) = Jac_FULL(45,71) - JVS(262) = B(227) -! JVS(263) = Jac_FULL(45,72) - JVS(263) = -B(201) -! JVS(264) = Jac_FULL(45,78) - JVS(264) = -B(149) -! JVS(265) = Jac_FULL(45,79) - JVS(265) = -B(181) -! JVS(266) = Jac_FULL(45,82) - JVS(266) = B(228) -! JVS(267) = Jac_FULL(46,14) - JVS(267) = 0.036*B(96) -! JVS(268) = Jac_FULL(46,46) - JVS(268) = -B(17)-B(18)-B(130)-B(156) -! JVS(269) = Jac_FULL(46,54) - JVS(269) = B(256)+B(335)+B(375)+B(416) -! JVS(270) = Jac_FULL(46,59) - JVS(270) = 1.2*B(252)+0.65*B(331)+0.65*B(371)+1.3*B(412) -! JVS(271) = Jac_FULL(46,60) - JVS(271) = 0.35*B(254)+0.37*B(333)+0.37*B(373)+0.74*B(414) -! JVS(272) = Jac_FULL(46,63) - JVS(272) = 0.15*B(136)+0.25*B(162)+0.5*B(198) -! JVS(273) = Jac_FULL(46,72) - JVS(273) = 0.5*B(199) -! JVS(274) = Jac_FULL(46,73) - JVS(274) = 0.063*B(234)+0.119*B(313)+0.1*B(353)+0.063*B(394) -! JVS(275) = Jac_FULL(46,74) - JVS(275) = 0.119*B(314)+0.65*B(332)+0.37*B(334)+B(336) -! JVS(276) = Jac_FULL(46,77) - JVS(276) = 0.1*B(354)+0.65*B(372)+0.37*B(374)+B(376) -! JVS(277) = Jac_FULL(46,78) - JVS(277) = 0.036*B(97)-B(131)+0.15*B(137) -! JVS(278) = Jac_FULL(46,79) - JVS(278) = -B(157)+0.25*B(163)+0.063*B(395)+1.3*B(413)+0.74*B(415)+B(417) -! JVS(279) = Jac_FULL(46,81) - JVS(279) = 0.063*B(235)+1.2*B(253)+0.35*B(255)+B(257) -! JVS(280) = Jac_FULL(47,30) - JVS(280) = B(102) -! JVS(281) = Jac_FULL(47,47) - JVS(281) = -B(240)-B(278)-B(319)-B(359)-B(400) -! JVS(282) = Jac_FULL(47,72) - JVS(282) = 0 -! JVS(283) = Jac_FULL(47,74) - JVS(283) = -B(320) -! JVS(284) = Jac_FULL(47,76) - JVS(284) = -B(279) -! JVS(285) = Jac_FULL(47,77) - JVS(285) = -B(360) -! JVS(286) = Jac_FULL(47,78) - JVS(286) = B(103) -! JVS(287) = Jac_FULL(47,79) - JVS(287) = -B(401) -! JVS(288) = Jac_FULL(47,81) - JVS(288) = -B(241) -! JVS(289) = Jac_FULL(48,48) - JVS(289) = -B(242)-B(280)-B(321)-B(361)-B(402) -! JVS(290) = Jac_FULL(48,65) - JVS(290) = B(104) -! JVS(291) = Jac_FULL(48,74) - JVS(291) = -B(322) -! JVS(292) = Jac_FULL(48,76) - JVS(292) = -B(281) -! JVS(293) = Jac_FULL(48,77) - JVS(293) = -B(362) -! JVS(294) = Jac_FULL(48,78) - JVS(294) = B(105) -! JVS(295) = Jac_FULL(48,79) - JVS(295) = -B(403) -! JVS(296) = Jac_FULL(48,81) - JVS(296) = -B(243) -! JVS(297) = Jac_FULL(49,7) - JVS(297) = B(440) -! JVS(298) = Jac_FULL(49,35) - JVS(298) = 0.9*B(456) -! JVS(299) = Jac_FULL(49,39) - JVS(299) = 0.79*B(194) -! JVS(300) = Jac_FULL(49,40) - JVS(300) = 0.65*B(190) -! JVS(301) = Jac_FULL(49,43) - JVS(301) = 0.9*B(172)+0.39*B(188) -! JVS(302) = Jac_FULL(49,49) - JVS(302) = -B(22)-B(134)-B(196) -! JVS(303) = Jac_FULL(49,50) - JVS(303) = B(246)+0.55*B(325)+0.771*B(365)+2*B(439) -! JVS(304) = Jac_FULL(49,55) - JVS(304) = 0.4*B(250)+0.6*B(329)+0.6*B(369)+0.6*B(410) -! JVS(305) = Jac_FULL(49,72) - JVS(305) = 0.39*B(189)+0.65*B(191)+0.79*B(195)-B(197) -! JVS(306) = Jac_FULL(49,74) - JVS(306) = 0.55*B(326)+0.6*B(330) -! JVS(307) = Jac_FULL(49,76) - JVS(307) = 0 -! JVS(308) = Jac_FULL(49,77) - JVS(308) = 0.771*B(366)+0.6*B(370) -! JVS(309) = Jac_FULL(49,78) - JVS(309) = -B(135)+B(441) -! JVS(310) = Jac_FULL(49,79) - JVS(310) = 0.9*B(173)+0.6*B(411)+0.9*B(457) -! JVS(311) = Jac_FULL(49,81) - JVS(311) = B(247)+0.4*B(251) -! JVS(312) = Jac_FULL(50,40) - JVS(312) = B(110) -! JVS(313) = Jac_FULL(50,43) - JVS(313) = B(108) -! JVS(314) = Jac_FULL(50,50) - JVS(314) = -B(246)-B(284)-B(325)-B(365)-2*B(439) -! JVS(315) = Jac_FULL(50,72) - JVS(315) = 0 -! JVS(316) = Jac_FULL(50,74) - JVS(316) = -B(326) -! JVS(317) = Jac_FULL(50,76) - JVS(317) = -B(285) -! JVS(318) = Jac_FULL(50,77) - JVS(318) = -B(366) -! JVS(319) = Jac_FULL(50,78) - JVS(319) = B(109)+B(111) -! JVS(320) = Jac_FULL(50,79) - JVS(320) = 0 -! JVS(321) = Jac_FULL(50,81) - JVS(321) = -B(247) -! JVS(322) = Jac_FULL(51,37) - JVS(322) = B(112) -! JVS(323) = Jac_FULL(51,51) - JVS(323) = -B(248)-B(286)-B(327)-B(367)-B(408) -! JVS(324) = Jac_FULL(51,72) - JVS(324) = 0 -! JVS(325) = Jac_FULL(51,74) - JVS(325) = -B(328) -! JVS(326) = Jac_FULL(51,76) - JVS(326) = -B(287) -! JVS(327) = Jac_FULL(51,77) - JVS(327) = -B(368) -! JVS(328) = Jac_FULL(51,78) - JVS(328) = B(113) -! JVS(329) = Jac_FULL(51,79) - JVS(329) = -B(409) -! JVS(330) = Jac_FULL(51,81) - JVS(330) = -B(249) -! JVS(331) = Jac_FULL(52,8) - JVS(331) = 0.25*B(98) -! JVS(332) = Jac_FULL(52,15) - JVS(332) = 0.12*B(138) -! JVS(333) = Jac_FULL(52,35) - JVS(333) = 0.36*B(452)+0.23*B(454) -! JVS(334) = Jac_FULL(52,37) - JVS(334) = 0.53*B(192) -! JVS(335) = Jac_FULL(52,41) - JVS(335) = 0.16*B(462) -! JVS(336) = Jac_FULL(52,48) - JVS(336) = 0.06*B(242)+0.081*B(321)+0.141*B(361)+0.06*B(402) -! JVS(337) = Jac_FULL(52,51) - JVS(337) = 0.8*B(248)+B(327)+B(367)+B(408) -! JVS(338) = Jac_FULL(52,52) - JVS(338) = -B(16)-B(126) -! JVS(339) = Jac_FULL(52,56) - JVS(339) = 0.642*B(238)+0.419*B(317)+0.581*B(357)+0.88*B(398) -! JVS(340) = Jac_FULL(52,57) - JVS(340) = 0.722*B(236)+0.24*B(315)+0.33*B(355)+0.828*B(396) -! JVS(341) = Jac_FULL(52,61) - JVS(341) = 0.29*B(244)+0.313*B(323)+0.569*B(363)+0.29*B(404) -! JVS(342) = Jac_FULL(52,62) - JVS(342) = 0.8*B(21) -! JVS(343) = Jac_FULL(52,63) - JVS(343) = 0.03*B(162) -! JVS(344) = Jac_FULL(52,65) - JVS(344) = 0.03*B(184) -! JVS(345) = Jac_FULL(52,67) - JVS(345) = 0.16*B(186) -! JVS(346) = Jac_FULL(52,68) - JVS(346) = 0.464*B(266)+0.149*B(349)+0.167*B(384)+0.149*B(387)+0.285*B(389)+0.469*B(426) -! JVS(347) = Jac_FULL(52,69) - JVS(347) = 0.149*B(388) -! JVS(348) = Jac_FULL(52,72) - JVS(348) = 0.03*B(185)+0.16*B(187)+0.53*B(193)+0.23*B(455)+0.16*B(463) -! JVS(349) = Jac_FULL(52,73) - JVS(349) = 0.623*B(234)+0.018*B(313)+0.127*B(353)+0.67*B(394) -! JVS(350) = Jac_FULL(52,74) - JVS(350) = 0.018*B(314)+0.24*B(316)+0.419*B(318)+0.081*B(322)+0.313*B(324)+B(328)+0.149*B(350) -! JVS(351) = Jac_FULL(52,75) - JVS(351) = 0.41*B(142) -! JVS(352) = Jac_FULL(52,76) - JVS(352) = 0 -! JVS(353) = Jac_FULL(52,77) - JVS(353) = 0.127*B(354)+0.33*B(356)+0.581*B(358)+0.141*B(362)+0.569*B(364)+B(368)+0.11*B(380)+0.167*B(385) -! JVS(354) = Jac_FULL(52,78) - JVS(354) = 0.25*B(99)-B(127)+0.12*B(139)+0.41*B(143)+0.36*B(453) -! JVS(355) = Jac_FULL(52,79) - JVS(355) = 0.03*B(163)+0.67*B(395)+0.828*B(397)+0.88*B(399)+0.06*B(403)+0.29*B(405)+B(409)+0.469*B(427) -! JVS(356) = Jac_FULL(52,80) - JVS(356) = 0.11*B(381) -! JVS(357) = Jac_FULL(52,81) - JVS(357) = 0.623*B(235)+0.722*B(237)+0.642*B(239)+0.06*B(243)+0.29*B(245)+0.8*B(249)+0.464*B(267) -! JVS(358) = Jac_FULL(53,22) - JVS(358) = B(90) -! JVS(359) = Jac_FULL(53,24) - JVS(359) = B(128) -! JVS(360) = Jac_FULL(53,34) - JVS(360) = 0 -! JVS(361) = Jac_FULL(53,40) - JVS(361) = 0 -! JVS(362) = Jac_FULL(53,44) - JVS(362) = 0.5*B(444)+B(448) -! JVS(363) = Jac_FULL(53,45) - JVS(363) = 0 -! JVS(364) = Jac_FULL(53,49) - JVS(364) = 0.9*B(196) -! JVS(365) = Jac_FULL(53,50) - JVS(365) = 0 -! JVS(366) = Jac_FULL(53,53) - JVS(366) = -B(19)-B(132)-B(158) -! JVS(367) = Jac_FULL(53,54) - JVS(367) = B(256)+B(335)+B(375)+B(416) -! JVS(368) = Jac_FULL(53,55) - JVS(368) = 0 -! JVS(369) = Jac_FULL(53,59) - JVS(369) = 0.65*B(252)+0.35*B(331)+0.35*B(371)+0.7*B(412) -! JVS(370) = Jac_FULL(53,60) - JVS(370) = 0.6*B(254)+0.63*B(333)+0.63*B(373)+1.26*B(414) -! JVS(371) = Jac_FULL(53,63) - JVS(371) = 0.15*B(136)+0.25*B(162)+0.62*B(198) -! JVS(372) = Jac_FULL(53,71) - JVS(372) = 0 -! JVS(373) = Jac_FULL(53,72) - JVS(373) = 0.9*B(197)+0.62*B(199) -! JVS(374) = Jac_FULL(53,73) - JVS(374) = 0.005*B(313)+0.004*B(353) -! JVS(375) = Jac_FULL(53,74) - JVS(375) = 0.005*B(314)+0.35*B(332)+0.63*B(334)+B(336)+0.4*B(345) -! JVS(376) = Jac_FULL(53,76) - JVS(376) = 0 -! JVS(377) = Jac_FULL(53,77) - JVS(377) = 0.004*B(354)+0.35*B(372)+0.63*B(374)+B(376)+0.54*B(380) -! JVS(378) = Jac_FULL(53,78) - JVS(378) = B(91)+B(129)-B(133)+0.15*B(137) -! JVS(379) = Jac_FULL(53,79) - JVS(379) = -B(159)+0.25*B(163)+0.7*B(413)+1.26*B(415)+B(417)+0.54*B(422) -! JVS(380) = Jac_FULL(53,80) - JVS(380) = 0.54*B(262)+0.4*B(346)+0.54*B(381)+0.54*B(423) -! JVS(381) = Jac_FULL(53,81) - JVS(381) = 0.65*B(253)+0.6*B(255)+B(257)+0.54*B(263)+0.5*B(445) -! JVS(382) = Jac_FULL(53,82) - JVS(382) = 0 -! JVS(383) = Jac_FULL(54,31) - JVS(383) = 0.98*B(220) -! JVS(384) = Jac_FULL(54,42) - JVS(384) = 0 -! JVS(385) = Jac_FULL(54,54) - JVS(385) = -B(256)-B(294)-B(335)-B(375)-B(416) -! JVS(386) = Jac_FULL(54,72) - JVS(386) = 0 -! JVS(387) = Jac_FULL(54,74) - JVS(387) = -B(336) -! JVS(388) = Jac_FULL(54,76) - JVS(388) = -B(295) -! JVS(389) = Jac_FULL(54,77) - JVS(389) = -B(376) -! JVS(390) = Jac_FULL(54,78) - JVS(390) = 0 -! JVS(391) = Jac_FULL(54,79) - JVS(391) = -B(417) -! JVS(392) = Jac_FULL(54,81) - JVS(392) = -B(257) -! JVS(393) = Jac_FULL(54,82) - JVS(393) = 0 -! JVS(394) = Jac_FULL(55,39) - JVS(394) = B(114) -! JVS(395) = Jac_FULL(55,55) - JVS(395) = -B(250)-B(288)-B(329)-B(369)-B(410) -! JVS(396) = Jac_FULL(55,72) - JVS(396) = 0 -! JVS(397) = Jac_FULL(55,74) - JVS(397) = -B(330) -! JVS(398) = Jac_FULL(55,76) - JVS(398) = -B(289) -! JVS(399) = Jac_FULL(55,77) - JVS(399) = -B(370) -! JVS(400) = Jac_FULL(55,78) - JVS(400) = B(115) -! JVS(401) = Jac_FULL(55,79) - JVS(401) = -B(411) -! JVS(402) = Jac_FULL(55,81) - JVS(402) = -B(251) -! JVS(403) = Jac_FULL(56,12) - JVS(403) = 0.9511*B(100) -! JVS(404) = Jac_FULL(56,56) - JVS(404) = -B(238)-B(276)-B(317)-B(357)-B(398) -! JVS(405) = Jac_FULL(56,74) - JVS(405) = -B(318) -! JVS(406) = Jac_FULL(56,76) - JVS(406) = -B(277) -! JVS(407) = Jac_FULL(56,77) - JVS(407) = -B(358) -! JVS(408) = Jac_FULL(56,78) - JVS(408) = 0.9511*B(101) -! JVS(409) = Jac_FULL(56,79) - JVS(409) = -B(399) -! JVS(410) = Jac_FULL(56,81) - JVS(410) = -B(239) -! JVS(411) = Jac_FULL(57,8) - JVS(411) = 0.75*B(98) -! JVS(412) = Jac_FULL(57,57) - JVS(412) = -B(236)-B(274)-B(315)-B(355)-B(396) -! JVS(413) = Jac_FULL(57,74) - JVS(413) = -B(316) -! JVS(414) = Jac_FULL(57,76) - JVS(414) = -B(275) -! JVS(415) = Jac_FULL(57,77) - JVS(415) = -B(356) -! JVS(416) = Jac_FULL(57,78) - JVS(416) = 0.75*B(99) -! JVS(417) = Jac_FULL(57,79) - JVS(417) = -B(397) -! JVS(418) = Jac_FULL(57,81) - JVS(418) = -B(237) -! JVS(419) = Jac_FULL(58,14) - JVS(419) = 0.01*B(96) -! JVS(420) = Jac_FULL(58,16) - JVS(420) = B(88) -! JVS(421) = Jac_FULL(58,20) - JVS(421) = B(13)+0.35*B(140) -! JVS(422) = Jac_FULL(58,24) - JVS(422) = B(23) -! JVS(423) = Jac_FULL(58,30) - JVS(423) = B(182) -! JVS(424) = Jac_FULL(58,33) - JVS(424) = 0.35*B(144) -! JVS(425) = Jac_FULL(58,34) - JVS(425) = 0 -! JVS(426) = Jac_FULL(58,35) - JVS(426) = 0.3*B(452)+0.51*B(454) -! JVS(427) = Jac_FULL(58,36) - JVS(427) = B(146) -! JVS(428) = Jac_FULL(58,39) - JVS(428) = 0.04*B(194) -! JVS(429) = Jac_FULL(58,40) - JVS(429) = 0.58*B(190) -! JVS(430) = Jac_FULL(58,41) - JVS(430) = 0.02*B(462) -! JVS(431) = Jac_FULL(58,43) - JVS(431) = 0.9*B(188) -! JVS(432) = Jac_FULL(58,44) - JVS(432) = 0.75*B(444)+0.5*B(448) -! JVS(433) = Jac_FULL(58,45) - JVS(433) = 0.4*B(148)+0.4*B(180)+0.7*B(200) -! JVS(434) = Jac_FULL(58,46) - JVS(434) = 0.13*B(17)+0.45*B(18) -! JVS(435) = Jac_FULL(58,47) - JVS(435) = 1.6*B(240)+1.55*B(319)+0.8*B(359)+1.6*B(400) -! JVS(436) = Jac_FULL(58,48) - JVS(436) = B(242)+1.25*B(321)+0.501*B(361)+B(402) -! JVS(437) = Jac_FULL(58,49) - JVS(437) = B(22) -! JVS(438) = Jac_FULL(58,50) - JVS(438) = B(246)+1.09*B(325)+0.34*B(365)+B(439) -! JVS(439) = Jac_FULL(58,51) - JVS(439) = B(327) -! JVS(440) = Jac_FULL(58,54) - JVS(440) = B(335) -! JVS(441) = Jac_FULL(58,55) - JVS(441) = 0.25*B(250)+1.4*B(329)+0.4*B(369)+0.4*B(410) -! JVS(442) = Jac_FULL(58,56) - JVS(442) = 0.753*B(317) -! JVS(443) = Jac_FULL(58,57) - JVS(443) = 0.021*B(236)+0.829*B(315)+0.076*B(355)+0.021*B(396) -! JVS(444) = Jac_FULL(58,58) - JVS(444) = -B(10)-B(11)-B(122)-B(152) -! JVS(445) = Jac_FULL(58,59) - JVS(445) = B(331) -! JVS(446) = Jac_FULL(58,60) - JVS(446) = B(333) -! JVS(447) = Jac_FULL(58,61) - JVS(447) = 0.755*B(323) -! JVS(448) = Jac_FULL(58,63) - JVS(448) = 0 -! JVS(449) = Jac_FULL(58,64) - JVS(449) = B(430) -! JVS(450) = Jac_FULL(58,65) - JVS(450) = 0.64*B(184) -! JVS(451) = Jac_FULL(58,67) - JVS(451) = 0.02*B(186) -! JVS(452) = Jac_FULL(58,68) - JVS(452) = 0.287*B(266)+0.96*B(349)+0.207*B(384)+0.202*B(387)+0.504*B(389)+0.28*B(426) -! JVS(453) = Jac_FULL(58,69) - JVS(453) = 0.75*B(347)+0.202*B(388) -! JVS(454) = Jac_FULL(58,70) - JVS(454) = 0.75*B(311) -! JVS(455) = Jac_FULL(58,71) - JVS(455) = B(260)+2*B(341)+B(343)+B(378)+B(420) -! JVS(456) = Jac_FULL(58,72) - JVS(456) = B(183)+0.64*B(185)+0.02*B(187)+0.9*B(189)+0.58*B(191)+0.04*B(195)+0.7*B(201)+0.51*B(455)+0.02*B(463) -! JVS(457) = Jac_FULL(58,73) - JVS(457) = 0.047*B(234)+0.81*B(313)+0.091*B(353)+0.048*B(394) -! JVS(458) = Jac_FULL(58,74) - JVS(458) = B(230)+1.33*B(310)+0.75*B(312)+0.81*B(314)+0.829*B(316)+0.753*B(318)+1.55*B(320)+1.25*B(322)+0.755*B(324)& - &+1.09*B(326)+B(328)+1.4*B(330)+B(332)+B(334)+B(336)+B(337)+B(339)+2*B(342)+B(344)+0.75*B(345)+0.75*B(348)& - &+0.96*B(350)+B(390)+B(431) -! JVS(459) = Jac_FULL(58,76) - JVS(459) = 0 -! JVS(460) = Jac_FULL(58,77) - JVS(460) = B(338)+B(340)+0.091*B(354)+0.076*B(356)+0.8*B(360)+0.501*B(362)+0.34*B(366)+0.4*B(370)+B(379)+0.207*B(385) -! JVS(461) = Jac_FULL(58,78) - JVS(461) = B(89)+0.01*B(97)-B(123)+0.35*B(141)+0.35*B(145)+B(147)+0.4*B(149)+0.3*B(453) -! JVS(462) = Jac_FULL(58,79) - JVS(462) = -B(153)+0.4*B(181)+B(391)+0.048*B(395)+0.021*B(397)+1.6*B(401)+B(403)+0.4*B(411)+B(421)+0.28*B(427) -! JVS(463) = Jac_FULL(58,80) - JVS(463) = 0.75*B(346) -! JVS(464) = Jac_FULL(58,81) - JVS(464) = B(231)+0.047*B(235)+0.021*B(237)+1.6*B(241)+B(243)+B(247)+0.25*B(251)+B(261)+0.287*B(267)+0.75*B(445) -! JVS(465) = Jac_FULL(58,82) - JVS(465) = 0 -! JVS(466) = Jac_FULL(59,28) - JVS(466) = 0.98*B(208) -! JVS(467) = Jac_FULL(59,59) - JVS(467) = -B(252)-B(290)-B(331)-B(371)-B(412) -! JVS(468) = Jac_FULL(59,72) - JVS(468) = 0 -! JVS(469) = Jac_FULL(59,74) - JVS(469) = -B(332) -! JVS(470) = Jac_FULL(59,76) - JVS(470) = -B(291) -! JVS(471) = Jac_FULL(59,77) - JVS(471) = -B(372) -! JVS(472) = Jac_FULL(59,78) - JVS(472) = 0 -! JVS(473) = Jac_FULL(59,79) - JVS(473) = -B(413) -! JVS(474) = Jac_FULL(59,81) - JVS(474) = -B(253) -! JVS(475) = Jac_FULL(59,82) - JVS(475) = 0 -! JVS(476) = Jac_FULL(60,29) - JVS(476) = 0.98*B(214) -! JVS(477) = Jac_FULL(60,60) - JVS(477) = -B(254)-B(292)-B(333)-B(373)-B(414) -! JVS(478) = Jac_FULL(60,72) - JVS(478) = 0 -! JVS(479) = Jac_FULL(60,74) - JVS(479) = -B(334) -! JVS(480) = Jac_FULL(60,76) - JVS(480) = -B(293) -! JVS(481) = Jac_FULL(60,77) - JVS(481) = -B(374) -! JVS(482) = Jac_FULL(60,78) - JVS(482) = 0 -! JVS(483) = Jac_FULL(60,79) - JVS(483) = -B(415) -! JVS(484) = Jac_FULL(60,81) - JVS(484) = -B(255) -! JVS(485) = Jac_FULL(60,82) - JVS(485) = 0 -! JVS(486) = Jac_FULL(61,35) - JVS(486) = 0.19*B(452) -! JVS(487) = Jac_FULL(61,41) - JVS(487) = B(458) -! JVS(488) = Jac_FULL(61,61) - JVS(488) = -B(244)-B(282)-B(323)-B(363)-B(404) -! JVS(489) = Jac_FULL(61,67) - JVS(489) = B(106) -! JVS(490) = Jac_FULL(61,72) - JVS(490) = 0 -! JVS(491) = Jac_FULL(61,74) - JVS(491) = -B(324) -! JVS(492) = Jac_FULL(61,76) - JVS(492) = -B(283) -! JVS(493) = Jac_FULL(61,77) - JVS(493) = -B(364) -! JVS(494) = Jac_FULL(61,78) - JVS(494) = B(107)+0.19*B(453)+B(459) -! JVS(495) = Jac_FULL(61,79) - JVS(495) = -B(405) -! JVS(496) = Jac_FULL(61,81) - JVS(496) = -B(245) -! JVS(497) = Jac_FULL(62,26) - JVS(497) = B(202) -! JVS(498) = Jac_FULL(62,42) - JVS(498) = 0 -! JVS(499) = Jac_FULL(62,45) - JVS(499) = 0.6*B(180) -! JVS(500) = Jac_FULL(62,51) - JVS(500) = 0.2*B(248) -! JVS(501) = Jac_FULL(62,55) - JVS(501) = 0.35*B(250) -! JVS(502) = Jac_FULL(62,56) - JVS(502) = 0.261*B(238) -! JVS(503) = Jac_FULL(62,57) - JVS(503) = 0.124*B(236) -! JVS(504) = Jac_FULL(62,59) - JVS(504) = 0.05*B(252) -! JVS(505) = Jac_FULL(62,60) - JVS(505) = 0.05*B(254) -! JVS(506) = Jac_FULL(62,62) - JVS(506) = -B(21)-B(150) -! JVS(507) = Jac_FULL(62,68) - JVS(507) = B(308)+0.5*B(349)+0.484*B(384)+1.5*B(387)+B(389) -! JVS(508) = Jac_FULL(62,69) - JVS(508) = B(264)+B(306)+B(347)+B(382)+2*B(386)+1.5*B(388)+B(424) -! JVS(509) = Jac_FULL(62,71) - JVS(509) = 0 -! JVS(510) = Jac_FULL(62,72) - JVS(510) = 0 -! JVS(511) = Jac_FULL(62,73) - JVS(511) = 0.059*B(234) -! JVS(512) = Jac_FULL(62,74) - JVS(512) = B(348)+0.5*B(350) -! JVS(513) = Jac_FULL(62,76) - JVS(513) = B(307)+B(309) -! JVS(514) = Jac_FULL(62,77) - JVS(514) = B(383)+0.484*B(385) -! JVS(515) = Jac_FULL(62,78) - JVS(515) = -B(151) -! JVS(516) = Jac_FULL(62,79) - JVS(516) = 0.6*B(181)+B(425) -! JVS(517) = Jac_FULL(62,81) - JVS(517) = 0.059*B(235)+0.124*B(237)+0.261*B(239)+0.2*B(249)+0.35*B(251)+0.05*B(253)+0.05*B(255)+B(265) -! JVS(518) = Jac_FULL(62,82) - JVS(518) = B(203) -! JVS(519) = Jac_FULL(63,59) - JVS(519) = 0.5*B(252)+B(331)+B(371)+0.5*B(412) -! JVS(520) = Jac_FULL(63,60) - JVS(520) = 0.95*B(254)+B(333)+B(373)+B(414) -! JVS(521) = Jac_FULL(63,63) - JVS(521) = -B(20)-B(136)-B(162)-B(198) -! JVS(522) = Jac_FULL(63,72) - JVS(522) = -B(199) -! JVS(523) = Jac_FULL(63,74) - JVS(523) = B(332)+B(334) -! JVS(524) = Jac_FULL(63,76) - JVS(524) = 0 -! JVS(525) = Jac_FULL(63,77) - JVS(525) = B(372)+B(374) -! JVS(526) = Jac_FULL(63,78) - JVS(526) = -B(137) -! JVS(527) = Jac_FULL(63,79) - JVS(527) = -B(163)+0.5*B(413)+B(415) -! JVS(528) = Jac_FULL(63,81) - JVS(528) = 0.5*B(253)+0.95*B(255) -! JVS(529) = Jac_FULL(63,82) - JVS(529) = 0 -! JVS(530) = Jac_FULL(64,9) - JVS(530) = 0.1*B(116) -! JVS(531) = Jac_FULL(64,10) - JVS(531) = 0.1*B(118) -! JVS(532) = Jac_FULL(64,33) - JVS(532) = 0.35*B(144) -! JVS(533) = Jac_FULL(64,36) - JVS(533) = B(146) -! JVS(534) = Jac_FULL(64,42) - JVS(534) = 0.05*B(120) -! JVS(535) = Jac_FULL(64,43) - JVS(535) = 0.13*B(188) -! JVS(536) = Jac_FULL(64,45) - JVS(536) = B(148)+B(180) -! JVS(537) = Jac_FULL(64,56) - JVS(537) = 0.416*B(238)+0.322*B(317)+0.318*B(357)+0.587*B(398) -! JVS(538) = Jac_FULL(64,57) - JVS(538) = 0.334*B(236)+0.245*B(315)+0.237*B(355)+0.391*B(396) -! JVS(539) = Jac_FULL(64,63) - JVS(539) = 0.5*B(136)+0.5*B(162) -! JVS(540) = Jac_FULL(64,64) - JVS(540) = -B(428)-B(430)-B(432)-2*B(434)-B(435)-B(437) -! JVS(541) = Jac_FULL(64,71) - JVS(541) = 0 -! JVS(542) = Jac_FULL(64,72) - JVS(542) = 0.13*B(189) -! JVS(543) = Jac_FULL(64,73) - JVS(543) = 0.048*B(234)+0.085*B(313)+0.071*B(353)+0.051*B(394) -! JVS(544) = Jac_FULL(64,74) - JVS(544) = 0.085*B(314)+0.245*B(316)+0.322*B(318)+0.08*B(345)-B(431) -! JVS(545) = Jac_FULL(64,75) - JVS(545) = 0.07*B(142) -! JVS(546) = Jac_FULL(64,76) - JVS(546) = -B(429) -! JVS(547) = Jac_FULL(64,77) - JVS(547) = 0.071*B(354)+0.237*B(356)+0.318*B(358)+0.08*B(380)-B(433) -! JVS(548) = Jac_FULL(64,78) - JVS(548) = 0.1*B(117)+0.1*B(119)+0.05*B(121)+0.5*B(137)+0.07*B(143)+0.35*B(145)+B(147)+B(149) -! JVS(549) = Jac_FULL(64,79) - JVS(549) = 0.5*B(163)+B(181)+0.051*B(395)+0.391*B(397)+0.587*B(399)+0.16*B(422)-B(438) -! JVS(550) = Jac_FULL(64,80) - JVS(550) = 0.16*B(262)+0.08*B(346)+0.08*B(381)+0.16*B(423) -! JVS(551) = Jac_FULL(64,81) - JVS(551) = 0.048*B(235)+0.334*B(237)+0.416*B(239)+0.16*B(263)-B(436) -! JVS(552) = Jac_FULL(64,82) - JVS(552) = 0 -! JVS(553) = Jac_FULL(65,39) - JVS(553) = 0.46*B(194) -! JVS(554) = Jac_FULL(65,43) - JVS(554) = 0.35*B(188) -! JVS(555) = Jac_FULL(65,50) - JVS(555) = 0.37*B(325)+0.229*B(365) -! JVS(556) = Jac_FULL(65,65) - JVS(556) = -B(104)-B(168)-B(184) -! JVS(557) = Jac_FULL(65,72) - JVS(557) = -B(185)+0.35*B(189)+0.46*B(195) -! JVS(558) = Jac_FULL(65,74) - JVS(558) = 0.37*B(326) -! JVS(559) = Jac_FULL(65,76) - JVS(559) = 0 -! JVS(560) = Jac_FULL(65,77) - JVS(560) = 0.229*B(366) -! JVS(561) = Jac_FULL(65,78) - JVS(561) = -B(105) -! JVS(562) = Jac_FULL(65,79) - JVS(562) = -B(169) -! JVS(563) = Jac_FULL(65,81) - JVS(563) = 0 -! JVS(564) = Jac_FULL(66,12) - JVS(564) = 0.025*B(100) -! JVS(565) = Jac_FULL(66,14) - JVS(565) = 0.335*B(96) -! JVS(566) = Jac_FULL(66,15) - JVS(566) = 0.88*B(138) -! JVS(567) = Jac_FULL(66,35) - JVS(567) = 0.85*B(454) -! JVS(568) = Jac_FULL(66,37) - JVS(568) = 0.65*B(192) -! JVS(569) = Jac_FULL(66,41) - JVS(569) = 0.99*B(462) -! JVS(570) = Jac_FULL(66,47) - JVS(570) = 0.2*B(240)+0.35*B(319)+0.6*B(359)+0.2*B(400) -! JVS(571) = Jac_FULL(66,48) - JVS(571) = 0.94*B(242)+0.669*B(321)+0.859*B(361)+0.94*B(402) -! JVS(572) = Jac_FULL(66,51) - JVS(572) = 0.8*B(248)+B(327)+B(367)+B(408) -! JVS(573) = Jac_FULL(66,56) - JVS(573) = 0.15*B(238)+0.411*B(317)+0.497*B(357)+0.187*B(398) -! JVS(574) = Jac_FULL(66,57) - JVS(574) = 0.211*B(236)+0.523*B(315)+0.677*B(355)+0.239*B(396) -! JVS(575) = Jac_FULL(66,61) - JVS(575) = 1.71*B(244)+0.932*B(323)+0.941*B(363)+1.71*B(404) -! JVS(576) = Jac_FULL(66,62) - JVS(576) = 0.2*B(21) -! JVS(577) = Jac_FULL(66,63) - JVS(577) = 0.25*B(162)+0.16*B(198) -! JVS(578) = Jac_FULL(66,65) - JVS(578) = 0.44*B(184) -! JVS(579) = Jac_FULL(66,66) - JVS(579) = -B(12)-B(124)-B(154) -! JVS(580) = Jac_FULL(66,67) - JVS(580) = 0.99*B(186) -! JVS(581) = Jac_FULL(66,68) - JVS(581) = 1.24*B(266)+0.64*B(349)+0.65*B(384)+0.64*B(387)+1.21*B(389)+1.24*B(426) -! JVS(582) = Jac_FULL(66,69) - JVS(582) = 0.64*B(388) -! JVS(583) = Jac_FULL(66,70) - JVS(583) = B(232)+0.75*B(311)+B(351)+B(392) -! JVS(584) = Jac_FULL(66,71) - JVS(584) = 0 -! JVS(585) = Jac_FULL(66,72) - JVS(585) = 0.44*B(185)+0.99*B(187)+0.65*B(193)+0.16*B(199)+0.85*B(455)+0.99*B(463) -! JVS(586) = Jac_FULL(66,73) - JVS(586) = 0.233*B(234)+0.58*B(313)+0.724*B(353)+0.243*B(394) -! JVS(587) = Jac_FULL(66,74) - JVS(587) = 0.75*B(312)+0.58*B(314)+0.523*B(316)+0.411*B(318)+0.35*B(320)+0.669*B(322)+0.932*B(324)+B(328)+0.3*B(345)& - &+0.64*B(350) -! JVS(588) = Jac_FULL(66,75) - JVS(588) = B(14)+0.08*B(142) -! JVS(589) = Jac_FULL(66,76) - JVS(589) = 0 -! JVS(590) = Jac_FULL(66,77) - JVS(590) = B(352)+0.724*B(354)+0.677*B(356)+0.497*B(358)+0.6*B(360)+0.859*B(362)+0.941*B(364)+B(368)+0.35*B(380)+0.65& - &*B(385) -! JVS(591) = Jac_FULL(66,78) - JVS(591) = 0.335*B(97)+0.025*B(101)-B(125)+0.88*B(139)+0.08*B(143) -! JVS(592) = Jac_FULL(66,79) - JVS(592) = -B(155)+0.25*B(163)+B(393)+0.243*B(395)+0.239*B(397)+0.187*B(399)+0.2*B(401)+0.94*B(403)+1.71*B(405)+B(409)& - &+0.46*B(422)+1.24*B(427) -! JVS(593) = Jac_FULL(66,80) - JVS(593) = 0.46*B(262)+0.3*B(346)+0.35*B(381)+0.46*B(423) -! JVS(594) = Jac_FULL(66,81) - JVS(594) = B(233)+0.233*B(235)+0.211*B(237)+0.15*B(239)+0.2*B(241)+0.94*B(243)+1.71*B(245)+0.8*B(249)+0.46*B(263)+1.24& - &*B(267) -! JVS(595) = Jac_FULL(66,82) - JVS(595) = 0 -! JVS(596) = Jac_FULL(67,50) - JVS(596) = 0.08*B(325) -! JVS(597) = Jac_FULL(67,55) - JVS(597) = 0.25*B(250)+0.4*B(329)+0.4*B(369)+0.4*B(410) -! JVS(598) = Jac_FULL(67,67) - JVS(598) = -B(106)-B(170)-B(186) -! JVS(599) = Jac_FULL(67,72) - JVS(599) = -B(187) -! JVS(600) = Jac_FULL(67,74) - JVS(600) = 0.08*B(326)+0.4*B(330) -! JVS(601) = Jac_FULL(67,76) - JVS(601) = 0 -! JVS(602) = Jac_FULL(67,77) - JVS(602) = 0.4*B(370) -! JVS(603) = Jac_FULL(67,78) - JVS(603) = -B(107) -! JVS(604) = Jac_FULL(67,79) - JVS(604) = -B(171)+0.4*B(411) -! JVS(605) = Jac_FULL(67,81) - JVS(605) = 0.25*B(251) -! JVS(606) = Jac_FULL(68,30) - JVS(606) = 0.2*B(166) -! JVS(607) = Jac_FULL(68,35) - JVS(607) = 0.1*B(456) -! JVS(608) = Jac_FULL(68,37) - JVS(608) = 0.9*B(176) -! JVS(609) = Jac_FULL(68,39) - JVS(609) = 0.87*B(178) -! JVS(610) = Jac_FULL(68,41) - JVS(610) = 0.89*B(460) -! JVS(611) = Jac_FULL(68,43) - JVS(611) = 0.1*B(172) -! JVS(612) = Jac_FULL(68,65) - JVS(612) = 0.57*B(168) -! JVS(613) = Jac_FULL(68,67) - JVS(613) = 0.89*B(170) -! JVS(614) = Jac_FULL(68,68) - JVS(614) = -B(266)-B(308)-B(349)-B(384)-B(387)-2*B(389)-B(426) -! JVS(615) = Jac_FULL(68,69) - JVS(615) = -B(388) -! JVS(616) = Jac_FULL(68,72) - JVS(616) = 0 -! JVS(617) = Jac_FULL(68,74) - JVS(617) = -B(350) -! JVS(618) = Jac_FULL(68,76) - JVS(618) = -B(309) -! JVS(619) = Jac_FULL(68,77) - JVS(619) = -B(385) -! JVS(620) = Jac_FULL(68,78) - JVS(620) = 0 -! JVS(621) = Jac_FULL(68,79) - JVS(621) = 0.2*B(167)+0.57*B(169)+0.89*B(171)+0.1*B(173)+0.9*B(177)+0.87*B(179)-B(427)+0.1*B(457)+0.89*B(461) -! JVS(622) = Jac_FULL(68,81) - JVS(622) = -B(267) -! JVS(623) = Jac_FULL(69,30) - JVS(623) = 0.8*B(166) -! JVS(624) = Jac_FULL(69,35) - JVS(624) = 0.9*B(456) -! JVS(625) = Jac_FULL(69,37) - JVS(625) = 0.1*B(176) -! JVS(626) = Jac_FULL(69,39) - JVS(626) = 0.13*B(178) -! JVS(627) = Jac_FULL(69,41) - JVS(627) = 0.11*B(460) -! JVS(628) = Jac_FULL(69,43) - JVS(628) = 0.9*B(172) -! JVS(629) = Jac_FULL(69,65) - JVS(629) = 0.43*B(168) -! JVS(630) = Jac_FULL(69,67) - JVS(630) = 0.11*B(170) -! JVS(631) = Jac_FULL(69,68) - JVS(631) = -B(387) -! JVS(632) = Jac_FULL(69,69) - JVS(632) = -B(264)-B(306)-B(347)-B(382)-2*B(386)-B(388)-B(424) -! JVS(633) = Jac_FULL(69,72) - JVS(633) = 0 -! JVS(634) = Jac_FULL(69,74) - JVS(634) = -B(348) -! JVS(635) = Jac_FULL(69,76) - JVS(635) = -B(307) -! JVS(636) = Jac_FULL(69,77) - JVS(636) = -B(383) -! JVS(637) = Jac_FULL(69,78) - JVS(637) = 0 -! JVS(638) = Jac_FULL(69,79) - JVS(638) = 0.8*B(167)+0.43*B(169)+0.11*B(171)+0.9*B(173)+0.1*B(177)+0.13*B(179)-B(425)+0.9*B(457)+0.11*B(461) -! JVS(639) = Jac_FULL(69,81) - JVS(639) = -B(265) -! JVS(640) = Jac_FULL(70,17) - JVS(640) = B(94) -! JVS(641) = Jac_FULL(70,37) - JVS(641) = 0.2*B(192) -! JVS(642) = Jac_FULL(70,39) - JVS(642) = 0.16*B(194) -! JVS(643) = Jac_FULL(70,41) - JVS(643) = 0.18*B(462) -! JVS(644) = Jac_FULL(70,52) - JVS(644) = B(16) -! JVS(645) = Jac_FULL(70,56) - JVS(645) = 0.133*B(238)+0.013*B(317)+0.015*B(357)+0.155*B(398) -! JVS(646) = Jac_FULL(70,57) - JVS(646) = 0.245*B(236)+0.014*B(315)+0.018*B(355)+0.262*B(396) -! JVS(647) = Jac_FULL(70,61) - JVS(647) = 0 -! JVS(648) = Jac_FULL(70,62) - JVS(648) = 0 -! JVS(649) = Jac_FULL(70,63) - JVS(649) = 0 -! JVS(650) = Jac_FULL(70,65) - JVS(650) = 0.1*B(184) -! JVS(651) = Jac_FULL(70,67) - JVS(651) = 0.18*B(186) -! JVS(652) = Jac_FULL(70,68) - JVS(652) = 0 -! JVS(653) = Jac_FULL(70,69) - JVS(653) = 0 -! JVS(654) = Jac_FULL(70,70) - JVS(654) = -B(232)-B(270)-B(311)-B(351)-B(392) -! JVS(655) = Jac_FULL(70,71) - JVS(655) = 0 -! JVS(656) = Jac_FULL(70,72) - JVS(656) = 0.1*B(185)+0.18*B(187)+0.2*B(193)+0.16*B(195)+0.18*B(463) -! JVS(657) = Jac_FULL(70,73) - JVS(657) = 0.048*B(234)+0.006*B(353)+0.053*B(394) -! JVS(658) = Jac_FULL(70,74) - JVS(658) = -B(312)+0.014*B(316)+0.013*B(318) -! JVS(659) = Jac_FULL(70,75) - JVS(659) = 0 -! JVS(660) = Jac_FULL(70,76) - JVS(660) = -B(271) -! JVS(661) = Jac_FULL(70,77) - JVS(661) = -B(352)+0.006*B(354)+0.018*B(356)+0.015*B(358) -! JVS(662) = Jac_FULL(70,78) - JVS(662) = B(95) -! JVS(663) = Jac_FULL(70,79) - JVS(663) = -B(393)+0.053*B(395)+0.262*B(397)+0.155*B(399) -! JVS(664) = Jac_FULL(70,80) - JVS(664) = 0 -! JVS(665) = Jac_FULL(70,81) - JVS(665) = -B(233)+0.048*B(235)+0.245*B(237)+0.133*B(239) -! JVS(666) = Jac_FULL(70,82) - JVS(666) = 0 -! JVS(667) = Jac_FULL(71,45) - JVS(667) = B(229) -! JVS(668) = Jac_FULL(71,63) - JVS(668) = B(20)+0.5*B(136)+0.5*B(162) -! JVS(669) = Jac_FULL(71,71) - JVS(669) = -B(227)-B(260)-B(300)-B(302)-B(341)-B(343)-B(378)-B(420) -! JVS(670) = Jac_FULL(71,72) - JVS(670) = 0 -! JVS(671) = Jac_FULL(71,74) - JVS(671) = -B(342)-B(344) -! JVS(672) = Jac_FULL(71,76) - JVS(672) = -B(301)-B(303) -! JVS(673) = Jac_FULL(71,77) - JVS(673) = -B(379) -! JVS(674) = Jac_FULL(71,78) - JVS(674) = 0.5*B(137) -! JVS(675) = Jac_FULL(71,79) - JVS(675) = 0.5*B(163)-B(421) -! JVS(676) = Jac_FULL(71,81) - JVS(676) = -B(261) -! JVS(677) = Jac_FULL(71,82) - JVS(677) = -B(228) -! JVS(678) = Jac_FULL(72,25) - JVS(678) = B(24)-B(26) -! JVS(679) = Jac_FULL(72,28) - JVS(679) = -B(210) -! JVS(680) = Jac_FULL(72,29) - JVS(680) = -B(216) -! JVS(681) = Jac_FULL(72,30) - JVS(681) = -B(182) -! JVS(682) = Jac_FULL(72,31) - JVS(682) = -B(222) -! JVS(683) = Jac_FULL(72,35) - JVS(683) = -B(454) -! JVS(684) = Jac_FULL(72,37) - JVS(684) = -B(192) -! JVS(685) = Jac_FULL(72,39) - JVS(685) = -B(194) -! JVS(686) = Jac_FULL(72,40) - JVS(686) = -B(190) -! JVS(687) = Jac_FULL(72,41) - JVS(687) = -B(462) -! JVS(688) = Jac_FULL(72,42) - JVS(688) = 0 -! JVS(689) = Jac_FULL(72,43) - JVS(689) = -B(188) -! JVS(690) = Jac_FULL(72,45) - JVS(690) = -B(200) -! JVS(691) = Jac_FULL(72,49) - JVS(691) = -B(196) -! JVS(692) = Jac_FULL(72,50) - JVS(692) = 0 -! JVS(693) = Jac_FULL(72,55) - JVS(693) = 0 -! JVS(694) = Jac_FULL(72,63) - JVS(694) = -B(198) -! JVS(695) = Jac_FULL(72,65) - JVS(695) = -B(184) -! JVS(696) = Jac_FULL(72,67) - JVS(696) = -B(186) -! JVS(697) = Jac_FULL(72,71) - JVS(697) = B(302) -! JVS(698) = Jac_FULL(72,72) - JVS(698) = -B(2)-B(3)-B(27)-B(32)-B(34)-B(68)-B(70)-B(183)-B(185)-B(187)-B(189)-B(191)-B(193)-B(195)-B(197)-B(199)& - &-B(201)-B(211)-B(217)-B(223)-B(455)-B(463) -! JVS(699) = Jac_FULL(72,74) - JVS(699) = 0 -! JVS(700) = Jac_FULL(72,76) - JVS(700) = -B(35)+B(298)+B(303) -! JVS(701) = Jac_FULL(72,77) - JVS(701) = B(299) -! JVS(702) = Jac_FULL(72,78) - JVS(702) = -B(33) -! JVS(703) = Jac_FULL(72,79) - JVS(703) = 0 -! JVS(704) = Jac_FULL(72,81) - JVS(704) = -B(69) -! JVS(705) = Jac_FULL(72,82) - JVS(705) = -B(71) -! JVS(706) = Jac_FULL(73,14) - JVS(706) = 0.583*B(96) -! JVS(707) = Jac_FULL(73,62) - JVS(707) = B(150) -! JVS(708) = Jac_FULL(73,68) - JVS(708) = 0 -! JVS(709) = Jac_FULL(73,69) - JVS(709) = 0 -! JVS(710) = Jac_FULL(73,71) - JVS(710) = 0 -! JVS(711) = Jac_FULL(73,72) - JVS(711) = 0 -! JVS(712) = Jac_FULL(73,73) - JVS(712) = -B(234)-B(272)-B(313)-B(353)-B(394) -! JVS(713) = Jac_FULL(73,74) - JVS(713) = -B(314) -! JVS(714) = Jac_FULL(73,75) - JVS(714) = 0.44*B(142) -! JVS(715) = Jac_FULL(73,76) - JVS(715) = -B(273) -! JVS(716) = Jac_FULL(73,77) - JVS(716) = -B(354) -! JVS(717) = Jac_FULL(73,78) - JVS(717) = 0.583*B(97)+0.44*B(143)+B(151) -! JVS(718) = Jac_FULL(73,79) - JVS(718) = -B(395) -! JVS(719) = Jac_FULL(73,81) - JVS(719) = -B(235) -! JVS(720) = Jac_FULL(73,82) - JVS(720) = 0 -! JVS(721) = Jac_FULL(74,18) - JVS(721) = B(92) -! JVS(722) = Jac_FULL(74,20) - JVS(722) = 0.65*B(140) -! JVS(723) = Jac_FULL(74,33) - JVS(723) = B(15) -! JVS(724) = Jac_FULL(74,40) - JVS(724) = 0.08*B(190) -! JVS(725) = Jac_FULL(74,41) - JVS(725) = 0.23*B(462) -! JVS(726) = Jac_FULL(74,43) - JVS(726) = 0.03*B(188) -! JVS(727) = Jac_FULL(74,47) - JVS(727) = -B(319)+0.5*B(359) -! JVS(728) = Jac_FULL(74,48) - JVS(728) = -B(321)+0.501*B(361) -! JVS(729) = Jac_FULL(74,50) - JVS(729) = -B(325)+0.506*B(365) -! JVS(730) = Jac_FULL(74,51) - JVS(730) = -B(327)+B(367) -! JVS(731) = Jac_FULL(74,54) - JVS(731) = -B(335)+B(375) -! JVS(732) = Jac_FULL(74,55) - JVS(732) = -B(329)+B(369) -! JVS(733) = Jac_FULL(74,56) - JVS(733) = -B(317)+0.507*B(357) -! JVS(734) = Jac_FULL(74,57) - JVS(734) = 0.031*B(236)-0.951*B(315)+0.554*B(355)+0.04*B(396) -! JVS(735) = Jac_FULL(74,59) - JVS(735) = -B(331)+B(371) -! JVS(736) = Jac_FULL(74,60) - JVS(736) = -B(333)+B(373) -! JVS(737) = Jac_FULL(74,61) - JVS(737) = -B(323)+0.51*B(363) -! JVS(738) = Jac_FULL(74,63) - JVS(738) = 0 -! JVS(739) = Jac_FULL(74,64) - JVS(739) = -B(430)+B(432) -! JVS(740) = Jac_FULL(74,65) - JVS(740) = 0.19*B(184) -! JVS(741) = Jac_FULL(74,66) - JVS(741) = B(12) -! JVS(742) = Jac_FULL(74,67) - JVS(742) = 0.23*B(186) -! JVS(743) = Jac_FULL(74,68) - JVS(743) = -B(349)+0.516*B(384) -! JVS(744) = Jac_FULL(74,69) - JVS(744) = -B(347)+0.5*B(382) -! JVS(745) = Jac_FULL(74,70) - JVS(745) = -B(311)+0.5*B(351) -! JVS(746) = Jac_FULL(74,71) - JVS(746) = -B(341)-B(343)+B(378) -! JVS(747) = Jac_FULL(74,72) - JVS(747) = 0.19*B(185)+0.23*B(187)+0.03*B(189)+0.08*B(191)+0.23*B(463) -! JVS(748) = Jac_FULL(74,73) - JVS(748) = 0.15*B(234)-0.993*B(313)+0.508*B(353)+0.155*B(394) -! JVS(749) = Jac_FULL(74,74) - JVS(749) = -B(230)-B(268)-2*B(310)-B(312)-0.993*B(314)-0.951*B(316)-B(318)-B(320)-B(322)-B(324)-B(326)-B(328)-B(330)& - &-B(332)-B(334)-B(336)-B(339)-B(342)-B(344)-B(345)-B(348)-B(350)-B(390)-B(431) -! JVS(750) = Jac_FULL(74,75) - JVS(750) = 0 -! JVS(751) = Jac_FULL(74,76) - JVS(751) = -B(269) -! JVS(752) = Jac_FULL(74,77) - JVS(752) = B(258)-B(340)+0.5*B(352)+0.508*B(354)+0.554*B(356)+0.507*B(358)+0.5*B(360)+0.501*B(362)+0.51*B(364)+0.506& - &*B(366)+B(368)+B(370)+B(372)+B(374)+B(376)+2*B(377)+B(379)+0.5*B(380)+0.5*B(383)+0.516*B(385)+B(418)+B(433) -! JVS(753) = Jac_FULL(74,78) - JVS(753) = B(93)+0.65*B(141) -! JVS(754) = Jac_FULL(74,79) - JVS(754) = -B(391)+0.155*B(395)+0.04*B(397)+B(419) -! JVS(755) = Jac_FULL(74,80) - JVS(755) = -B(346)+0.5*B(381) -! JVS(756) = Jac_FULL(74,81) - JVS(756) = -B(231)+0.15*B(235)+0.031*B(237)+B(259) -! JVS(757) = Jac_FULL(74,82) - JVS(757) = 0 -! JVS(758) = Jac_FULL(75,47) - JVS(758) = B(278) -! JVS(759) = Jac_FULL(75,48) - JVS(759) = B(280) -! JVS(760) = Jac_FULL(75,51) - JVS(760) = B(286) -! JVS(761) = Jac_FULL(75,54) - JVS(761) = B(294) -! JVS(762) = Jac_FULL(75,55) - JVS(762) = B(288) -! JVS(763) = Jac_FULL(75,56) - JVS(763) = B(276) -! JVS(764) = Jac_FULL(75,57) - JVS(764) = B(274) -! JVS(765) = Jac_FULL(75,59) - JVS(765) = B(290) -! JVS(766) = Jac_FULL(75,60) - JVS(766) = B(292) -! JVS(767) = Jac_FULL(75,61) - JVS(767) = B(282) -! JVS(768) = Jac_FULL(75,64) - JVS(768) = B(428) -! JVS(769) = Jac_FULL(75,65) - JVS(769) = 0 -! JVS(770) = Jac_FULL(75,67) - JVS(770) = 0 -! JVS(771) = Jac_FULL(75,70) - JVS(771) = B(270) -! JVS(772) = Jac_FULL(75,71) - JVS(772) = B(300) -! JVS(773) = Jac_FULL(75,72) - JVS(773) = 0 -! JVS(774) = Jac_FULL(75,73) - JVS(774) = B(272) -! JVS(775) = Jac_FULL(75,74) - JVS(775) = 0 -! JVS(776) = Jac_FULL(75,75) - JVS(776) = -B(14)-B(142) -! JVS(777) = Jac_FULL(75,76) - JVS(777) = B(271)+B(273)+B(275)+B(277)+B(279)+B(281)+B(283)+B(287)+B(289)+B(291)+B(293)+B(295)+B(301)+B(304)+B(429) -! JVS(778) = Jac_FULL(75,77) - JVS(778) = 0 -! JVS(779) = Jac_FULL(75,78) - JVS(779) = -B(143) -! JVS(780) = Jac_FULL(75,79) - JVS(780) = 0 -! JVS(781) = Jac_FULL(75,80) - JVS(781) = B(305) -! JVS(782) = Jac_FULL(75,81) - JVS(782) = 0 -! JVS(783) = Jac_FULL(75,82) - JVS(783) = 0 -! JVS(784) = Jac_FULL(76,5) - JVS(784) = B(84) -! JVS(785) = Jac_FULL(76,8) - JVS(785) = 0.25*B(98) -! JVS(786) = Jac_FULL(76,9) - JVS(786) = 0.1*B(116) -! JVS(787) = Jac_FULL(76,10) - JVS(787) = 0.1*B(118) -! JVS(788) = Jac_FULL(76,12) - JVS(788) = 0.049*B(100) -! JVS(789) = Jac_FULL(76,14) - JVS(789) = 0.381*B(96) -! JVS(790) = Jac_FULL(76,15) - JVS(790) = B(138) -! JVS(791) = Jac_FULL(76,19) - JVS(791) = 0.65*B(6)+B(59) -! JVS(792) = Jac_FULL(76,20) - JVS(792) = B(13) -! JVS(793) = Jac_FULL(76,22) - JVS(793) = B(90) -! JVS(794) = Jac_FULL(76,24) - JVS(794) = B(23)+B(128) -! JVS(795) = Jac_FULL(76,26) - JVS(795) = -B(204) -! JVS(796) = Jac_FULL(76,27) - JVS(796) = B(38) -! JVS(797) = Jac_FULL(76,28) - JVS(797) = 0.02*B(208) -! JVS(798) = Jac_FULL(76,29) - JVS(798) = 0.02*B(214) -! JVS(799) = Jac_FULL(76,30) - JVS(799) = 0.26*B(182) -! JVS(800) = Jac_FULL(76,31) - JVS(800) = 0.02*B(220) -! JVS(801) = Jac_FULL(76,33) - JVS(801) = 0.35*B(144) -! JVS(802) = Jac_FULL(76,34) - JVS(802) = 0 -! JVS(803) = Jac_FULL(76,37) - JVS(803) = 0.1*B(192) -! JVS(804) = Jac_FULL(76,38) - JVS(804) = B(86) -! JVS(805) = Jac_FULL(76,39) - JVS(805) = 0.1*B(194) -! JVS(806) = Jac_FULL(76,40) - JVS(806) = 0.25*B(190) -! JVS(807) = Jac_FULL(76,41) - JVS(807) = 0.22*B(462) -! JVS(808) = Jac_FULL(76,42) - JVS(808) = 0.05*B(120) -! JVS(809) = Jac_FULL(76,43) - JVS(809) = 0.3*B(188) -! JVS(810) = Jac_FULL(76,44) - JVS(810) = 0.75*B(444)-B(446)+B(448) -! JVS(811) = Jac_FULL(76,45) - JVS(811) = 0.4*B(148)+0.08*B(200) -! JVS(812) = Jac_FULL(76,46) - JVS(812) = 0.8*B(18)+B(130)+B(156) -! JVS(813) = Jac_FULL(76,47) - JVS(813) = B(240)-B(278)+B(319)+0.5*B(359)+B(400) -! JVS(814) = Jac_FULL(76,48) - JVS(814) = B(242)-B(280)+B(321)+0.501*B(361)+B(402) -! JVS(815) = Jac_FULL(76,49) - JVS(815) = B(22)+0.32*B(196) -! JVS(816) = Jac_FULL(76,50) - JVS(816) = B(246)-B(284)+B(325)+0.506*B(365)+B(439) -! JVS(817) = Jac_FULL(76,51) - JVS(817) = 0.8*B(248)-B(286)+2*B(327)+B(367)+B(408) -! JVS(818) = Jac_FULL(76,53) - JVS(818) = B(19) -! JVS(819) = Jac_FULL(76,54) - JVS(819) = B(256)-B(294)+2*B(335)+B(375)+B(416) -! JVS(820) = Jac_FULL(76,55) - JVS(820) = 0.65*B(250)-B(288)+2*B(329)+B(369)+B(410) -! JVS(821) = Jac_FULL(76,56) - JVS(821) = 0.606*B(238)-B(276)+0.993*B(317)+0.489*B(357)+0.845*B(398) -! JVS(822) = Jac_FULL(76,57) - JVS(822) = 0.599*B(236)-B(274)+0.946*B(315)+0.438*B(355)+0.699*B(396) -! JVS(823) = Jac_FULL(76,58) - JVS(823) = 2*B(11)+B(122)+B(152) -! JVS(824) = Jac_FULL(76,59) - JVS(824) = 0.95*B(252)-B(290)+B(331)+B(371)+B(412) -! JVS(825) = Jac_FULL(76,60) - JVS(825) = 0.95*B(254)-B(292)+B(333)+B(373)+B(414) -! JVS(826) = Jac_FULL(76,61) - JVS(826) = B(244)-B(282)+B(323)+0.51*B(363)+B(404) -! JVS(827) = Jac_FULL(76,62) - JVS(827) = B(21) -! JVS(828) = Jac_FULL(76,63) - JVS(828) = B(20)+0.5*B(136)+0.5*B(162)+0.29*B(198) -! JVS(829) = Jac_FULL(76,64) - JVS(829) = -B(428)+B(430) -! JVS(830) = Jac_FULL(76,65) - JVS(830) = 0.25*B(184) -! JVS(831) = Jac_FULL(76,66) - JVS(831) = B(12) -! JVS(832) = Jac_FULL(76,67) - JVS(832) = 0.22*B(186) -! JVS(833) = Jac_FULL(76,68) - JVS(833) = -B(308)+0.5*B(349)+0.5*B(387) -! JVS(834) = Jac_FULL(76,69) - JVS(834) = B(264)-B(306)+B(347)+0.5*B(382)+B(386)+0.5*B(388)+B(424) -! JVS(835) = Jac_FULL(76,70) - JVS(835) = B(232)-B(270)+B(311)+0.5*B(351)+B(392) -! JVS(836) = Jac_FULL(76,71) - JVS(836) = -B(300)-B(302)+B(341) -! JVS(837) = Jac_FULL(76,72) - JVS(837) = B(32)-B(34)+0.26*B(183)+0.25*B(185)+0.22*B(187)+0.3*B(189)+0.25*B(191)+0.1*B(193)+0.1*B(195)+0.32*B(197)& - &+0.29*B(199)+0.08*B(201)+0.22*B(463) -! JVS(838) = Jac_FULL(76,73) - JVS(838) = 0.742*B(234)-B(272)+0.992*B(313)+0.488*B(353)+0.792*B(394) -! JVS(839) = Jac_FULL(76,74) - JVS(839) = B(230)-B(268)+0.66*B(310)+B(312)+0.992*B(314)+0.946*B(316)+0.993*B(318)+B(320)+B(322)+B(324)+B(326)+2& - &*B(328)+2*B(330)+B(332)+B(334)+2*B(336)+B(337)+B(342)+0.88*B(345)+B(348)+0.5*B(350)+B(390)+B(431) -! JVS(840) = Jac_FULL(76,75) - JVS(840) = B(14) -! JVS(841) = Jac_FULL(76,76) - JVS(841) = -B(35)-B(36)-2*B(40)-2*B(41)-B(55)-B(57)-B(60)-B(205)-B(269)-B(271)-B(273)-B(275)-B(277)-B(279)-B(281)& - &-B(283)-B(285)-B(287)-B(289)-B(291)-B(293)-B(295)-B(296)-B(298)-B(301)-B(303)-B(304)-B(307)-B(309)-B(429)& - &-B(447) -! JVS(842) = Jac_FULL(76,77) - JVS(842) = -B(297)-B(299)+B(338)+0.5*B(352)+0.488*B(354)+0.438*B(356)+0.489*B(358)+0.5*B(360)+0.501*B(362)+0.51*B(364)& - &+0.506*B(366)+B(368)+B(370)+B(372)+B(374)+B(376)+0.38*B(380)+0.5*B(383) -! JVS(843) = Jac_FULL(76,78) - JVS(843) = B(33)-B(37)+B(39)+B(53)+B(82)+B(85)+B(87)+B(91)+0.381*B(97)+0.25*B(99)+0.049*B(101)+0.1*B(117)+0.1*B(119)& - &+0.05*B(121)+B(123)+B(129)+B(131)+0.5*B(137)+B(139)+0.35*B(145)+0.4*B(149) -! JVS(844) = Jac_FULL(76,79) - JVS(844) = B(54)-B(61)+B(153)+B(157)+0.5*B(163)+B(391)+B(393)+0.792*B(395)+0.699*B(397)+0.845*B(399)+B(401)+B(403)& - &+B(405)+B(409)+B(411)+B(413)+B(415)+B(417)+0.77*B(422)+B(425) -! JVS(845) = Jac_FULL(76,80) - JVS(845) = 0.77*B(262)-B(305)+0.88*B(346)+0.38*B(381)+0.77*B(423) -! JVS(846) = Jac_FULL(76,81) - JVS(846) = -B(56)+B(231)+B(233)+0.742*B(235)+0.599*B(237)+0.606*B(239)+B(241)+B(243)+B(245)+B(247)+0.8*B(249)+0.65& - &*B(251)+0.95*B(253)+0.95*B(255)+B(257)+0.77*B(263)+B(265)+0.75*B(445) -! JVS(847) = Jac_FULL(76,82) - JVS(847) = -B(58) -! JVS(848) = Jac_FULL(77,24) - JVS(848) = B(23) -! JVS(849) = Jac_FULL(77,33) - JVS(849) = 0.65*B(144) -! JVS(850) = Jac_FULL(77,36) - JVS(850) = B(226) -! JVS(851) = Jac_FULL(77,40) - JVS(851) = 0.1*B(190) -! JVS(852) = Jac_FULL(77,43) - JVS(852) = 0.15*B(188) -! JVS(853) = Jac_FULL(77,44) - JVS(853) = 0.25*B(444) -! JVS(854) = Jac_FULL(77,45) - JVS(854) = 0.7*B(200) -! JVS(855) = Jac_FULL(77,47) - JVS(855) = -B(359) -! JVS(856) = Jac_FULL(77,48) - JVS(856) = -B(361) -! JVS(857) = Jac_FULL(77,49) - JVS(857) = B(22)+0.1*B(196) -! JVS(858) = Jac_FULL(77,50) - JVS(858) = -B(365) -! JVS(859) = Jac_FULL(77,51) - JVS(859) = -B(367) -! JVS(860) = Jac_FULL(77,52) - JVS(860) = B(16) -! JVS(861) = Jac_FULL(77,53) - JVS(861) = B(19)+B(132)+B(158) -! JVS(862) = Jac_FULL(77,54) - JVS(862) = -B(375) -! JVS(863) = Jac_FULL(77,55) - JVS(863) = -B(369) -! JVS(864) = Jac_FULL(77,56) - JVS(864) = -B(357) -! JVS(865) = Jac_FULL(77,57) - JVS(865) = -B(355) -! JVS(866) = Jac_FULL(77,59) - JVS(866) = -B(371) -! JVS(867) = Jac_FULL(77,60) - JVS(867) = -B(373) -! JVS(868) = Jac_FULL(77,61) - JVS(868) = -B(363) -! JVS(869) = Jac_FULL(77,62) - JVS(869) = 0 -! JVS(870) = Jac_FULL(77,63) - JVS(870) = 0.28*B(198) -! JVS(871) = Jac_FULL(77,64) - JVS(871) = -B(432) -! JVS(872) = Jac_FULL(77,65) - JVS(872) = 0 -! JVS(873) = Jac_FULL(77,66) - JVS(873) = B(124)+B(154) -! JVS(874) = Jac_FULL(77,67) - JVS(874) = 0 -! JVS(875) = Jac_FULL(77,68) - JVS(875) = -B(384) -! JVS(876) = Jac_FULL(77,69) - JVS(876) = -B(382) -! JVS(877) = Jac_FULL(77,70) - JVS(877) = -B(351) -! JVS(878) = Jac_FULL(77,71) - JVS(878) = B(260)+B(341)+B(420) -! JVS(879) = Jac_FULL(77,72) - JVS(879) = 0.15*B(189)+0.1*B(191)+0.1*B(197)+0.28*B(199)+0.7*B(201) -! JVS(880) = Jac_FULL(77,73) - JVS(880) = -B(353) -! JVS(881) = Jac_FULL(77,74) - JVS(881) = -B(337)-B(339)+B(342)+0.12*B(345) -! JVS(882) = Jac_FULL(77,75) - JVS(882) = 0 -! JVS(883) = Jac_FULL(77,76) - JVS(883) = -B(296)-B(298) -! JVS(884) = Jac_FULL(77,77) - JVS(884) = -B(224)-B(258)-B(297)-B(299)-B(338)-B(340)-B(352)-B(354)-B(356)-B(358)-B(360)-B(362)-B(364)-B(366)-B(368)& - &-B(370)-B(372)-B(374)-B(376)-2*B(377)-0.88*B(380)-B(383)-B(385)-B(418)-B(433) -! JVS(885) = Jac_FULL(77,78) - JVS(885) = B(125)+B(133)+0.65*B(145) -! JVS(886) = Jac_FULL(77,79) - JVS(886) = B(155)+B(159)-B(419)+B(421)+0.23*B(422) -! JVS(887) = Jac_FULL(77,80) - JVS(887) = 0.23*B(262)+0.12*B(346)-0.88*B(381)+0.23*B(423) -! JVS(888) = Jac_FULL(77,81) - JVS(888) = -B(259)+B(261)+0.23*B(263)+0.25*B(445) -! JVS(889) = Jac_FULL(77,82) - JVS(889) = -B(225) -! JVS(890) = Jac_FULL(78,5) - JVS(890) = -B(84) -! JVS(891) = Jac_FULL(78,6) - JVS(891) = 2*B(30) -! JVS(892) = Jac_FULL(78,8) - JVS(892) = -B(98) -! JVS(893) = Jac_FULL(78,9) - JVS(893) = -B(116) -! JVS(894) = Jac_FULL(78,10) - JVS(894) = -B(118) -! JVS(895) = Jac_FULL(78,12) - JVS(895) = -B(100) -! JVS(896) = Jac_FULL(78,13) - JVS(896) = -B(160) -! JVS(897) = Jac_FULL(78,14) - JVS(897) = -0.964*B(96) -! JVS(898) = Jac_FULL(78,15) - JVS(898) = -B(138) -! JVS(899) = Jac_FULL(78,16) - JVS(899) = -B(88) -! JVS(900) = Jac_FULL(78,17) - JVS(900) = -B(94) -! JVS(901) = Jac_FULL(78,18) - JVS(901) = -B(92) -! JVS(902) = Jac_FULL(78,19) - JVS(902) = 0.35*B(6)-B(66) -! JVS(903) = Jac_FULL(78,20) - JVS(903) = B(13)-0.65*B(140) -! JVS(904) = Jac_FULL(78,21) - JVS(904) = -B(406) -! JVS(905) = Jac_FULL(78,22) - JVS(905) = -B(90) -! JVS(906) = Jac_FULL(78,23) - JVS(906) = B(4)-B(62) -! JVS(907) = Jac_FULL(78,24) - JVS(907) = -B(128) -! JVS(908) = Jac_FULL(78,27) - JVS(908) = 2*B(9)-B(38) -! JVS(909) = Jac_FULL(78,28) - JVS(909) = B(210) -! JVS(910) = Jac_FULL(78,29) - JVS(910) = B(216) -! JVS(911) = Jac_FULL(78,30) - JVS(911) = -B(102)+0.12*B(182) -! JVS(912) = Jac_FULL(78,31) - JVS(912) = B(222) -! JVS(913) = Jac_FULL(78,32) - JVS(913) = B(5)-B(64) -! JVS(914) = Jac_FULL(78,33) - JVS(914) = B(15)-B(144) -! JVS(915) = Jac_FULL(78,34) - JVS(915) = -B(442) -! JVS(916) = Jac_FULL(78,35) - JVS(916) = -B(452)+0.63*B(454) -! JVS(917) = Jac_FULL(78,36) - JVS(917) = -B(146) -! JVS(918) = Jac_FULL(78,37) - JVS(918) = -B(112)+0.85*B(192) -! JVS(919) = Jac_FULL(78,38) - JVS(919) = -B(86) -! JVS(920) = Jac_FULL(78,39) - JVS(920) = -B(114)+0.85*B(194) -! JVS(921) = Jac_FULL(78,40) - JVS(921) = -B(110)+0.25*B(190) -! JVS(922) = Jac_FULL(78,41) - JVS(922) = -B(458)+0.63*B(462) -! JVS(923) = Jac_FULL(78,42) - JVS(923) = -B(120) -! JVS(924) = Jac_FULL(78,43) - JVS(924) = -B(108)+0.28*B(188) -! JVS(925) = Jac_FULL(78,44) - JVS(925) = 0 -! JVS(926) = Jac_FULL(78,45) - JVS(926) = -B(148)+0.036*B(200) -! JVS(927) = Jac_FULL(78,46) - JVS(927) = -B(130) -! JVS(928) = Jac_FULL(78,49) - JVS(928) = -B(134)+0.19*B(196) -! JVS(929) = Jac_FULL(78,50) - JVS(929) = 0 -! JVS(930) = Jac_FULL(78,52) - JVS(930) = -B(126) -! JVS(931) = Jac_FULL(78,53) - JVS(931) = -B(132) -! JVS(932) = Jac_FULL(78,54) - JVS(932) = 0 -! JVS(933) = Jac_FULL(78,55) - JVS(933) = 0 -! JVS(934) = Jac_FULL(78,56) - JVS(934) = 0 -! JVS(935) = Jac_FULL(78,57) - JVS(935) = 0 -! JVS(936) = Jac_FULL(78,58) - JVS(936) = -B(122) -! JVS(937) = Jac_FULL(78,59) - JVS(937) = 0 -! JVS(938) = Jac_FULL(78,60) - JVS(938) = 0 -! JVS(939) = Jac_FULL(78,61) - JVS(939) = 0 -! JVS(940) = Jac_FULL(78,62) - JVS(940) = -B(150) -! JVS(941) = Jac_FULL(78,63) - JVS(941) = -B(136)+0.21*B(198) -! JVS(942) = Jac_FULL(78,64) - JVS(942) = 0 -! JVS(943) = Jac_FULL(78,65) - JVS(943) = -B(104)+0.4*B(184) -! JVS(944) = Jac_FULL(78,66) - JVS(944) = -B(124) -! JVS(945) = Jac_FULL(78,67) - JVS(945) = -B(106)+0.63*B(186) -! JVS(946) = Jac_FULL(78,68) - JVS(946) = 0 -! JVS(947) = Jac_FULL(78,69) - JVS(947) = 0 -! JVS(948) = Jac_FULL(78,70) - JVS(948) = 0 -! JVS(949) = Jac_FULL(78,71) - JVS(949) = 0 -! JVS(950) = Jac_FULL(78,72) - JVS(950) = -B(32)+B(34)+0.12*B(183)+0.4*B(185)+0.63*B(187)+0.28*B(189)+0.25*B(191)+0.85*B(193)+0.85*B(195)+0.19*B(197)& - &+0.21*B(199)+0.036*B(201)+B(211)+B(217)+B(223)+0.63*B(455)+0.63*B(463) -! JVS(951) = Jac_FULL(78,73) - JVS(951) = 0 -! JVS(952) = Jac_FULL(78,74) - JVS(952) = 0 -! JVS(953) = Jac_FULL(78,75) - JVS(953) = B(14)-0.51*B(142) -! JVS(954) = Jac_FULL(78,76) - JVS(954) = B(35)-B(36)+B(55)+0.7*B(60) -! JVS(955) = Jac_FULL(78,77) - JVS(955) = 0 -! JVS(956) = Jac_FULL(78,78) - JVS(956) = -B(33)-B(37)-B(39)-B(49)-B(51)-B(53)-B(63)-B(65)-B(67)-B(82)-B(85)-B(87)-B(89)-B(91)-B(93)-B(95)-0.964& - &*B(97)-B(99)-B(101)-B(103)-B(105)-B(107)-B(109)-B(111)-B(113)-B(115)-B(117)-B(119)-B(121)-B(123)-B(125)& - &-B(127)-B(129)-B(131)-B(133)-B(135)-B(137)-B(139)-0.65*B(141)-0.51*B(143)-B(145)-B(147)-B(149)-B(151)-B(161)& - &-B(407)-B(443)-B(453)-B(459) -! JVS(957) = Jac_FULL(78,79) - JVS(957) = -B(54)+0.7*B(61) -! JVS(958) = Jac_FULL(78,80) - JVS(958) = 0 -! JVS(959) = Jac_FULL(78,81) - JVS(959) = -B(50)+B(56) -! JVS(960) = Jac_FULL(78,82) - JVS(960) = -B(52) -! JVS(961) = Jac_FULL(79,11) - JVS(961) = B(80) -! JVS(962) = Jac_FULL(79,19) - JVS(962) = 0.35*B(6) -! JVS(963) = Jac_FULL(79,25) - JVS(963) = B(47) -! JVS(964) = Jac_FULL(79,30) - JVS(964) = -B(166) -! JVS(965) = Jac_FULL(79,32) - JVS(965) = B(64) -! JVS(966) = Jac_FULL(79,35) - JVS(966) = -B(456) -! JVS(967) = Jac_FULL(79,36) - JVS(967) = B(146) -! JVS(968) = Jac_FULL(79,37) - JVS(968) = -B(176) -! JVS(969) = Jac_FULL(79,39) - JVS(969) = -B(178) -! JVS(970) = Jac_FULL(79,40) - JVS(970) = -B(174) -! JVS(971) = Jac_FULL(79,41) - JVS(971) = -B(460) -! JVS(972) = Jac_FULL(79,42) - JVS(972) = -B(164) -! JVS(973) = Jac_FULL(79,43) - JVS(973) = -B(172) -! JVS(974) = Jac_FULL(79,45) - JVS(974) = 0.6*B(148)-0.4*B(180) -! JVS(975) = Jac_FULL(79,46) - JVS(975) = -B(156) -! JVS(976) = Jac_FULL(79,47) - JVS(976) = -B(400) -! JVS(977) = Jac_FULL(79,48) - JVS(977) = -B(402) -! JVS(978) = Jac_FULL(79,51) - JVS(978) = -B(408) -! JVS(979) = Jac_FULL(79,53) - JVS(979) = -B(158) -! JVS(980) = Jac_FULL(79,54) - JVS(980) = -B(416) -! JVS(981) = Jac_FULL(79,55) - JVS(981) = -B(410) -! JVS(982) = Jac_FULL(79,56) - JVS(982) = -B(398) -! JVS(983) = Jac_FULL(79,57) - JVS(983) = -B(396) -! JVS(984) = Jac_FULL(79,58) - JVS(984) = -B(152) -! JVS(985) = Jac_FULL(79,59) - JVS(985) = -B(412) -! JVS(986) = Jac_FULL(79,60) - JVS(986) = -B(414) -! JVS(987) = Jac_FULL(79,61) - JVS(987) = -B(404) -! JVS(988) = Jac_FULL(79,63) - JVS(988) = -B(162) -! JVS(989) = Jac_FULL(79,64) - JVS(989) = -B(437) -! JVS(990) = Jac_FULL(79,65) - JVS(990) = -B(168) -! JVS(991) = Jac_FULL(79,66) - JVS(991) = -B(154) -! JVS(992) = Jac_FULL(79,67) - JVS(992) = -B(170) -! JVS(993) = Jac_FULL(79,68) - JVS(993) = -B(426) -! JVS(994) = Jac_FULL(79,69) - JVS(994) = -B(424) -! JVS(995) = Jac_FULL(79,70) - JVS(995) = -B(392) -! JVS(996) = Jac_FULL(79,71) - JVS(996) = -B(420) -! JVS(997) = Jac_FULL(79,72) - JVS(997) = B(70) -! JVS(998) = Jac_FULL(79,73) - JVS(998) = -B(394) -! JVS(999) = Jac_FULL(79,74) - JVS(999) = -B(390) -! JVS(1000) = Jac_FULL(79,75) - JVS(1000) = 0 -! JVS(1001) = Jac_FULL(79,76) - JVS(1001) = -B(60) -! JVS(1002) = Jac_FULL(79,77) - JVS(1002) = -B(418) -! JVS(1003) = Jac_FULL(79,78) - JVS(1003) = -B(53)+B(65)+B(147)+0.6*B(149) -! JVS(1004) = Jac_FULL(79,79) - JVS(1004) = -B(7)-B(8)-B(54)-B(61)-B(74)-B(76)-B(78)-2*B(81)-B(153)-B(155)-B(157)-B(159)-B(163)-B(165)-B(167)-B(169)& - &-B(171)-B(173)-B(175)-B(177)-B(179)-0.4*B(181)-B(391)-B(393)-B(395)-B(397)-B(399)-B(401)-B(403)-B(405)& - &-B(409)-B(411)-B(413)-B(415)-B(417)-B(419)-B(421)-B(422)-B(425)-B(427)-B(438)-B(457)-B(461) -! JVS(1005) = Jac_FULL(79,80) - JVS(1005) = -B(423) -! JVS(1006) = Jac_FULL(79,81) - JVS(1006) = -B(75) -! JVS(1007) = Jac_FULL(79,82) - JVS(1007) = B(48)+B(71)-B(77)-B(79) -! JVS(1008) = Jac_FULL(80,37) - JVS(1008) = 0.42*B(192) -! JVS(1009) = Jac_FULL(80,39) - JVS(1009) = 0.42*B(194) -! JVS(1010) = Jac_FULL(80,41) - JVS(1010) = 0.12*B(462) -! JVS(1011) = Jac_FULL(80,43) - JVS(1011) = 0.02*B(188) -! JVS(1012) = Jac_FULL(80,52) - JVS(1012) = B(126) -! JVS(1013) = Jac_FULL(80,56) - JVS(1013) = 0 -! JVS(1014) = Jac_FULL(80,57) - JVS(1014) = 0 -! JVS(1015) = Jac_FULL(80,61) - JVS(1015) = 0 -! JVS(1016) = Jac_FULL(80,62) - JVS(1016) = 0 -! JVS(1017) = Jac_FULL(80,63) - JVS(1017) = 0 -! JVS(1018) = Jac_FULL(80,65) - JVS(1018) = 0.03*B(184) -! JVS(1019) = Jac_FULL(80,67) - JVS(1019) = 0.12*B(186) -! JVS(1020) = Jac_FULL(80,68) - JVS(1020) = 0 -! JVS(1021) = Jac_FULL(80,69) - JVS(1021) = 0 -! JVS(1022) = Jac_FULL(80,71) - JVS(1022) = 0 -! JVS(1023) = Jac_FULL(80,72) - JVS(1023) = 0.03*B(185)+0.12*B(187)+0.02*B(189)+0.42*B(193)+0.42*B(195)+0.12*B(463) -! JVS(1024) = Jac_FULL(80,73) - JVS(1024) = 0 -! JVS(1025) = Jac_FULL(80,74) - JVS(1025) = -B(345) -! JVS(1026) = Jac_FULL(80,75) - JVS(1026) = 0 -! JVS(1027) = Jac_FULL(80,76) - JVS(1027) = -B(304) -! JVS(1028) = Jac_FULL(80,77) - JVS(1028) = -B(380) -! JVS(1029) = Jac_FULL(80,78) - JVS(1029) = B(127) -! JVS(1030) = Jac_FULL(80,79) - JVS(1030) = -B(422) -! JVS(1031) = Jac_FULL(80,80) - JVS(1031) = -B(262)-B(305)-B(346)-B(381)-B(423) -! JVS(1032) = Jac_FULL(80,81) - JVS(1032) = -B(263) -! JVS(1033) = Jac_FULL(80,82) - JVS(1033) = 0 -! JVS(1034) = Jac_FULL(81,23) - JVS(1034) = B(4) -! JVS(1035) = Jac_FULL(81,25) - JVS(1035) = -B(43)+B(45) -! JVS(1036) = Jac_FULL(81,28) - JVS(1036) = 0 -! JVS(1037) = Jac_FULL(81,29) - JVS(1037) = 0 -! JVS(1038) = Jac_FULL(81,31) - JVS(1038) = 0 -! JVS(1039) = Jac_FULL(81,42) - JVS(1039) = 0 -! JVS(1040) = Jac_FULL(81,43) - JVS(1040) = 0 -! JVS(1041) = Jac_FULL(81,44) - JVS(1041) = -B(444) -! JVS(1042) = Jac_FULL(81,47) - JVS(1042) = -B(240) -! JVS(1043) = Jac_FULL(81,48) - JVS(1043) = -B(242) -! JVS(1044) = Jac_FULL(81,49) - JVS(1044) = 0 -! JVS(1045) = Jac_FULL(81,50) - JVS(1045) = -B(246) -! JVS(1046) = Jac_FULL(81,51) - JVS(1046) = -B(248) -! JVS(1047) = Jac_FULL(81,54) - JVS(1047) = -B(256) -! JVS(1048) = Jac_FULL(81,55) - JVS(1048) = -B(250) -! JVS(1049) = Jac_FULL(81,56) - JVS(1049) = -B(238) -! JVS(1050) = Jac_FULL(81,57) - JVS(1050) = -B(236) -! JVS(1051) = Jac_FULL(81,59) - JVS(1051) = -B(252) -! JVS(1052) = Jac_FULL(81,60) - JVS(1052) = -B(254) -! JVS(1053) = Jac_FULL(81,61) - JVS(1053) = -B(244) -! JVS(1054) = Jac_FULL(81,64) - JVS(1054) = -B(435) -! JVS(1055) = Jac_FULL(81,65) - JVS(1055) = 0 -! JVS(1056) = Jac_FULL(81,67) - JVS(1056) = 0 -! JVS(1057) = Jac_FULL(81,68) - JVS(1057) = -B(266) -! JVS(1058) = Jac_FULL(81,69) - JVS(1058) = -B(264) -! JVS(1059) = Jac_FULL(81,70) - JVS(1059) = -B(232) -! JVS(1060) = Jac_FULL(81,71) - JVS(1060) = -B(260) -! JVS(1061) = Jac_FULL(81,72) - JVS(1061) = -B(68) -! JVS(1062) = Jac_FULL(81,73) - JVS(1062) = -B(234) -! JVS(1063) = Jac_FULL(81,74) - JVS(1063) = -B(230) -! JVS(1064) = Jac_FULL(81,75) - JVS(1064) = 0 -! JVS(1065) = Jac_FULL(81,76) - JVS(1065) = -B(55) -! JVS(1066) = Jac_FULL(81,77) - JVS(1066) = -B(258) -! JVS(1067) = Jac_FULL(81,78) - JVS(1067) = -B(49) -! JVS(1068) = Jac_FULL(81,79) - JVS(1068) = B(7)-B(74)+B(76) -! JVS(1069) = Jac_FULL(81,80) - JVS(1069) = -B(262) -! JVS(1070) = Jac_FULL(81,81) - JVS(1070) = -B(44)-B(50)-B(56)-B(69)-2*B(72)-B(75)-B(231)-B(233)-B(235)-B(237)-B(239)-B(241)-B(243)-B(245)-B(247)& - &-B(249)-B(251)-B(253)-B(255)-B(257)-B(259)-B(261)-B(263)-B(265)-B(267)-B(436)-B(445) -! JVS(1071) = Jac_FULL(81,82) - JVS(1071) = B(1)+B(46)+B(77) -! JVS(1072) = Jac_FULL(82,11) - JVS(1072) = B(80) -! JVS(1073) = Jac_FULL(82,16) - JVS(1073) = B(88) -! JVS(1074) = Jac_FULL(82,19) - JVS(1074) = 0.65*B(6)+B(59)+B(66) -! JVS(1075) = Jac_FULL(82,21) - JVS(1075) = B(406)+B(451) -! JVS(1076) = Jac_FULL(82,23) - JVS(1076) = B(62) -! JVS(1077) = Jac_FULL(82,25) - JVS(1077) = B(43)-B(45)-B(47) -! JVS(1078) = Jac_FULL(82,26) - JVS(1078) = -B(202) -! JVS(1079) = Jac_FULL(82,28) - JVS(1079) = -B(206) -! JVS(1080) = Jac_FULL(82,29) - JVS(1080) = -B(212) -! JVS(1081) = Jac_FULL(82,31) - JVS(1081) = -B(218) -! JVS(1082) = Jac_FULL(82,32) - JVS(1082) = B(5) -! JVS(1083) = Jac_FULL(82,34) - JVS(1083) = 0 -! JVS(1084) = Jac_FULL(82,36) - JVS(1084) = B(226) -! JVS(1085) = Jac_FULL(82,40) - JVS(1085) = 0 -! JVS(1086) = Jac_FULL(82,42) - JVS(1086) = 0 -! JVS(1087) = Jac_FULL(82,43) - JVS(1087) = 0 -! JVS(1088) = Jac_FULL(82,44) - JVS(1088) = B(444)-B(449) -! JVS(1089) = Jac_FULL(82,45) - JVS(1089) = 0.4*B(180)+0.7*B(200)+B(229) -! JVS(1090) = Jac_FULL(82,46) - JVS(1090) = 0 -! JVS(1091) = Jac_FULL(82,47) - JVS(1091) = B(240)+B(400) -! JVS(1092) = Jac_FULL(82,48) - JVS(1092) = B(242)+B(402) -! JVS(1093) = Jac_FULL(82,49) - JVS(1093) = 0 -! JVS(1094) = Jac_FULL(82,50) - JVS(1094) = B(246) -! JVS(1095) = Jac_FULL(82,51) - JVS(1095) = 0.8*B(248)+B(408) -! JVS(1096) = Jac_FULL(82,53) - JVS(1096) = 0 -! JVS(1097) = Jac_FULL(82,54) - JVS(1097) = B(256)+B(416) -! JVS(1098) = Jac_FULL(82,55) - JVS(1098) = 0.65*B(250)+B(410) -! JVS(1099) = Jac_FULL(82,56) - JVS(1099) = 0.739*B(238)+B(398) -! JVS(1100) = Jac_FULL(82,57) - JVS(1100) = 0.876*B(236)+B(396) -! JVS(1101) = Jac_FULL(82,58) - JVS(1101) = 0 -! JVS(1102) = Jac_FULL(82,59) - JVS(1102) = 0.95*B(252)+B(412) -! JVS(1103) = Jac_FULL(82,60) - JVS(1103) = 0.95*B(254)+B(414) -! JVS(1104) = Jac_FULL(82,61) - JVS(1104) = B(244)+B(404) -! JVS(1105) = Jac_FULL(82,62) - JVS(1105) = B(21)+B(150) -! JVS(1106) = Jac_FULL(82,63) - JVS(1106) = 0.5*B(162) -! JVS(1107) = Jac_FULL(82,64) - JVS(1107) = B(435)+B(437) -! JVS(1108) = Jac_FULL(82,65) - JVS(1108) = 0 -! JVS(1109) = Jac_FULL(82,66) - JVS(1109) = 0 -! JVS(1110) = Jac_FULL(82,67) - JVS(1110) = 0 -! JVS(1111) = Jac_FULL(82,68) - JVS(1111) = 2*B(266)+0.5*B(349)+0.516*B(384)+0.5*B(387)+B(389)+2*B(426) -! JVS(1112) = Jac_FULL(82,69) - JVS(1112) = B(264)+0.5*B(388)+B(424) -! JVS(1113) = Jac_FULL(82,70) - JVS(1113) = B(232)+B(392) -! JVS(1114) = Jac_FULL(82,71) - JVS(1114) = -B(227)+B(260)+B(420) -! JVS(1115) = Jac_FULL(82,72) - JVS(1115) = B(68)-B(70)+0.7*B(201) -! JVS(1116) = Jac_FULL(82,73) - JVS(1116) = 0.941*B(234)+B(394) -! JVS(1117) = Jac_FULL(82,74) - JVS(1117) = B(230)+0.5*B(350)+B(390) -! JVS(1118) = Jac_FULL(82,75) - JVS(1118) = 0 -! JVS(1119) = Jac_FULL(82,76) - JVS(1119) = B(55)-B(57)+0.7*B(60) -! JVS(1120) = Jac_FULL(82,77) - JVS(1120) = -B(224)+B(258)+0.516*B(385)+B(418) -! JVS(1121) = Jac_FULL(82,78) - JVS(1121) = -B(51)+B(53)+B(63)+B(67)+B(89)+B(151)+B(407) -! JVS(1122) = Jac_FULL(82,79) - JVS(1122) = B(8)+B(54)+0.7*B(61)+2*B(74)-B(78)+2*B(81)+0.5*B(163)+0.4*B(181)+B(391)+B(393)+B(395)+B(397)+B(399)+B(401)& - &+B(403)+B(405)+B(409)+B(411)+B(413)+B(415)+B(417)+B(419)+B(421)+B(422)+B(425)+2*B(427)+B(438) -! JVS(1123) = Jac_FULL(82,80) - JVS(1123) = B(262)+B(423) -! JVS(1124) = Jac_FULL(82,81) - JVS(1124) = B(44)+B(56)+B(69)+2*B(72)+2*B(75)+B(231)+B(233)+0.941*B(235)+0.876*B(237)+0.739*B(239)+B(241)+B(243)& - &+B(245)+B(247)+0.8*B(249)+0.65*B(251)+0.95*B(253)+0.95*B(255)+B(257)+B(259)+B(261)+B(263)+B(265)+2*B(267)& - &+B(436)+B(445) -! JVS(1125) = Jac_FULL(82,82) - JVS(1125) = -B(1)-B(46)-B(48)-B(52)-B(58)-B(71)-B(79)-B(203)-B(207)-B(213)-B(219)-B(225)-B(228)-B(450) - -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(5)+JVS(3)*UV(78) - JUV(2) = JVS(4)*UV(2)+JVS(5)*UV(38)+JVS(6)*UV(78) - JUV(3) = JVS(7)*UV(3)+JVS(8)*UV(14)+JVS(9)*UV(30)+JVS(10)*UV(35)+JVS(11)*UV(39)+JVS(12)*UV(40)+JVS(13)*UV(43)+JVS(14)& - &*UV(45)+JVS(15)*UV(49)+JVS(16)*UV(63)+JVS(17)*UV(65)+JVS(18)*UV(72)+JVS(19)*UV(78) - JUV(4) = JVS(20)*UV(4)+JVS(21)*UV(35)+JVS(22)*UV(39)+JVS(23)*UV(41)+JVS(24)*UV(47)+JVS(25)*UV(48)+JVS(26)*UV(50)& - &+JVS(27)*UV(56)+JVS(28)*UV(57)+JVS(29)*UV(61)+JVS(30)*UV(63)+JVS(31)*UV(65)+JVS(32)*UV(67)+JVS(33)*UV(68)& - &+JVS(34)*UV(69)+JVS(35)*UV(70)+JVS(36)*UV(71)+JVS(37)*UV(72)+JVS(38)*UV(73)+JVS(39)*UV(74)+JVS(40)*UV(76)& - &+JVS(41)*UV(77)+JVS(42)*UV(80) - JUV(5) = JVS(43)*UV(5)+JVS(44)*UV(78) - JUV(6) = JVS(45)*UV(6)+JVS(46)*UV(72) - JUV(7) = JVS(47)*UV(7)+JVS(48)*UV(50)+JVS(49)*UV(76)+JVS(50)*UV(78) - JUV(8) = JVS(51)*UV(8)+JVS(52)*UV(78) - JUV(9) = JVS(53)*UV(9)+JVS(54)*UV(78) - JUV(10) = JVS(55)*UV(10)+JVS(56)*UV(78) - JUV(11) = JVS(57)*UV(11)+JVS(58)*UV(79)+JVS(59)*UV(82) - JUV(12) = JVS(60)*UV(12)+JVS(61)*UV(78) - JUV(13) = JVS(62)*UV(13)+JVS(63)*UV(44)+JVS(64)*UV(76)+JVS(65)*UV(78) - JUV(14) = JVS(66)*UV(14)+JVS(67)*UV(78) - JUV(15) = JVS(68)*UV(15)+JVS(69)*UV(63)+JVS(70)*UV(78) - JUV(16) = JVS(71)*UV(16)+JVS(72)*UV(34)+JVS(73)*UV(78) - JUV(17) = JVS(74)*UV(17)+JVS(75)*UV(41)+JVS(76)*UV(65)+JVS(77)*UV(67)+JVS(78)*UV(72)+JVS(79)*UV(78) - JUV(18) = JVS(80)*UV(18)+JVS(81)*UV(41)+JVS(82)*UV(65)+JVS(83)*UV(67)+JVS(84)*UV(72)+JVS(85)*UV(78) - JUV(19) = JVS(86)*UV(19)+JVS(87)*UV(76)+JVS(88)*UV(78)+JVS(89)*UV(82) - JUV(20) = JVS(90)*UV(20)+JVS(91)*UV(74)+JVS(92)*UV(76)+JVS(93)*UV(78) - JUV(21) = JVS(94)*UV(21)+JVS(95)*UV(44)+JVS(96)*UV(78)+JVS(97)*UV(82) - JUV(22) = JVS(98)*UV(21)+JVS(99)*UV(22)+JVS(100)*UV(34)+JVS(101)*UV(44)+JVS(102)*UV(78)+JVS(103)*UV(81) - JUV(23) = JVS(105)*UV(23)+JVS(106)*UV(28)+JVS(107)*UV(29)+JVS(108)*UV(31)+JVS(109)*UV(78)+JVS(110)*UV(81)+JVS(111)& - &*UV(82) - JUV(24) = JVS(112)*UV(12)+JVS(113)*UV(24)+JVS(114)*UV(45)+JVS(115)*UV(74)+JVS(116)*UV(78)+JVS(117)*UV(80) - JUV(25) = JVS(118)*UV(6)+JVS(119)*UV(25)+JVS(120)*UV(43)+JVS(121)*UV(72)+JVS(122)*UV(79)+JVS(123)*UV(81)+JVS(124)& - &*UV(82) - JUV(26) = JVS(125)*UV(26)+JVS(126)*UV(42)+JVS(127)*UV(76)+JVS(128)*UV(78)+JVS(129)*UV(79)+JVS(130)*UV(82) - JUV(27) = JVS(131)*UV(27)+JVS(132)*UV(37)+JVS(133)*UV(39)+JVS(134)*UV(40)+JVS(135)*UV(41)+JVS(136)*UV(43)+JVS(137)& - &*UV(65)+JVS(138)*UV(67)+JVS(139)*UV(72)+JVS(140)*UV(76)+JVS(141)*UV(78) - JUV(28) = JVS(142)*UV(9)+JVS(143)*UV(28)+JVS(144)*UV(72)+JVS(145)*UV(78)+JVS(146)*UV(82) - JUV(29) = JVS(147)*UV(10)+JVS(148)*UV(29)+JVS(149)*UV(72)+JVS(150)*UV(78)+JVS(151)*UV(82) - JUV(30) = JVS(152)*UV(30)+JVS(153)*UV(72)+JVS(154)*UV(78)+JVS(155)*UV(79) - JUV(31) = JVS(156)*UV(31)+JVS(157)*UV(42)+JVS(158)*UV(72)+JVS(159)*UV(78)+JVS(160)*UV(82) - JUV(32) = JVS(161)*UV(32)+JVS(162)*UV(42)+JVS(163)*UV(46)+JVS(164)*UV(53)+JVS(165)*UV(58)+JVS(166)*UV(63)+JVS(167)& - &*UV(66)+JVS(168)*UV(76)+JVS(169)*UV(78)+JVS(170)*UV(79)+JVS(171)*UV(82) - JUV(33) = JVS(172)*UV(33)+JVS(173)*UV(63)+JVS(174)*UV(72)+JVS(175)*UV(76)+JVS(176)*UV(77)+JVS(177)*UV(78) - JUV(34) = JVS(178)*UV(34)+JVS(179)*UV(40)+JVS(180)*UV(50)+JVS(181)*UV(78)+JVS(182)*UV(79)+JVS(183)*UV(81) - JUV(35) = JVS(184)*UV(35)+JVS(185)*UV(72)+JVS(186)*UV(78)+JVS(187)*UV(79) - JUV(36) = JVS(188)*UV(36)+JVS(189)*UV(45)+JVS(190)*UV(72)+JVS(191)*UV(77)+JVS(192)*UV(78)+JVS(193)*UV(79)+JVS(194)& - &*UV(82) - JUV(37) = JVS(195)*UV(37)+JVS(196)*UV(72)+JVS(197)*UV(78)+JVS(198)*UV(79) - JUV(38) = JVS(199)*UV(14)+JVS(200)*UV(16)+JVS(201)*UV(30)+JVS(203)*UV(37)+JVS(204)*UV(38)+JVS(205)*UV(39)+JVS(206)& - &*UV(40)+JVS(207)*UV(41)+JVS(208)*UV(43)+JVS(209)*UV(44)+JVS(210)*UV(45)+JVS(211)*UV(46)+JVS(212)*UV(49)& - &+JVS(214)*UV(53)+JVS(215)*UV(58)+JVS(216)*UV(63)+JVS(217)*UV(65)+JVS(218)*UV(66)+JVS(219)*UV(67)+JVS(220)& - &*UV(72)+JVS(221)*UV(78)+JVS(222)*UV(79)+JVS(223)*UV(81) - JUV(39) = JVS(224)*UV(39)+JVS(225)*UV(72)+JVS(226)*UV(78)+JVS(227)*UV(79) - JUV(40) = JVS(228)*UV(40)+JVS(229)*UV(72)+JVS(230)*UV(78)+JVS(231)*UV(79) - JUV(41) = JVS(232)*UV(41)+JVS(233)*UV(72)+JVS(234)*UV(78)+JVS(235)*UV(79) - JUV(42) = JVS(236)*UV(26)+JVS(237)*UV(28)+JVS(238)*UV(29)+JVS(239)*UV(31)+JVS(240)*UV(42)+JVS(241)*UV(72)+JVS(242)& - &*UV(76)+JVS(243)*UV(78)+JVS(244)*UV(79)+JVS(245)*UV(82) - JUV(43) = JVS(246)*UV(43)+JVS(247)*UV(72)+JVS(248)*UV(78)+JVS(249)*UV(79) - JUV(44) = JVS(250)*UV(13)+JVS(251)*UV(21)+JVS(252)*UV(40)+JVS(253)*UV(44)+JVS(254)*UV(49)+JVS(255)*UV(72)+JVS(256)& - &*UV(76)+JVS(257)*UV(78)+JVS(259)*UV(81)+JVS(260)*UV(82) - JUV(45) = JVS(261)*UV(45)+JVS(262)*UV(71)+JVS(263)*UV(72)+JVS(264)*UV(78)+JVS(265)*UV(79)+JVS(266)*UV(82) - JUV(46) = JVS(267)*UV(14)+JVS(268)*UV(46)+JVS(269)*UV(54)+JVS(270)*UV(59)+JVS(271)*UV(60)+JVS(272)*UV(63)+JVS(273)& - &*UV(72)+JVS(274)*UV(73)+JVS(275)*UV(74)+JVS(276)*UV(77)+JVS(277)*UV(78)+JVS(278)*UV(79)+JVS(279)*UV(81) - JUV(47) = JVS(280)*UV(30)+JVS(281)*UV(47)+JVS(283)*UV(74)+JVS(284)*UV(76)+JVS(285)*UV(77)+JVS(286)*UV(78)+JVS(287)& - &*UV(79)+JVS(288)*UV(81) - JUV(48) = JVS(289)*UV(48)+JVS(290)*UV(65)+JVS(291)*UV(74)+JVS(292)*UV(76)+JVS(293)*UV(77)+JVS(294)*UV(78)+JVS(295)& - &*UV(79)+JVS(296)*UV(81) - JUV(49) = JVS(297)*UV(7)+JVS(298)*UV(35)+JVS(299)*UV(39)+JVS(300)*UV(40)+JVS(301)*UV(43)+JVS(302)*UV(49)+JVS(303)& - &*UV(50)+JVS(304)*UV(55)+JVS(305)*UV(72)+JVS(306)*UV(74)+JVS(308)*UV(77)+JVS(309)*UV(78)+JVS(310)*UV(79)& - &+JVS(311)*UV(81) - JUV(50) = JVS(312)*UV(40)+JVS(313)*UV(43)+JVS(314)*UV(50)+JVS(316)*UV(74)+JVS(317)*UV(76)+JVS(318)*UV(77)+JVS(319)& - &*UV(78)+JVS(321)*UV(81) - JUV(51) = JVS(322)*UV(37)+JVS(323)*UV(51)+JVS(325)*UV(74)+JVS(326)*UV(76)+JVS(327)*UV(77)+JVS(328)*UV(78)+JVS(329)& - &*UV(79)+JVS(330)*UV(81) - JUV(52) = JVS(331)*UV(8)+JVS(332)*UV(15)+JVS(333)*UV(35)+JVS(334)*UV(37)+JVS(335)*UV(41)+JVS(336)*UV(48)+JVS(337)& - &*UV(51)+JVS(338)*UV(52)+JVS(339)*UV(56)+JVS(340)*UV(57)+JVS(341)*UV(61)+JVS(342)*UV(62)+JVS(343)*UV(63)& - &+JVS(344)*UV(65)+JVS(345)*UV(67)+JVS(346)*UV(68)+JVS(347)*UV(69)+JVS(348)*UV(72)+JVS(349)*UV(73)+JVS(350)& - &*UV(74)+JVS(351)*UV(75)+JVS(353)*UV(77)+JVS(354)*UV(78)+JVS(355)*UV(79)+JVS(356)*UV(80)+JVS(357)*UV(81) - JUV(53) = JVS(358)*UV(22)+JVS(359)*UV(24)+JVS(362)*UV(44)+JVS(364)*UV(49)+JVS(366)*UV(53)+JVS(367)*UV(54)+JVS(369)& - &*UV(59)+JVS(370)*UV(60)+JVS(371)*UV(63)+JVS(373)*UV(72)+JVS(374)*UV(73)+JVS(375)*UV(74)+JVS(377)*UV(77)& - &+JVS(378)*UV(78)+JVS(379)*UV(79)+JVS(380)*UV(80)+JVS(381)*UV(81) - JUV(54) = JVS(383)*UV(31)+JVS(385)*UV(54)+JVS(387)*UV(74)+JVS(388)*UV(76)+JVS(389)*UV(77)+JVS(391)*UV(79)+JVS(392)& - &*UV(81) - JUV(55) = JVS(394)*UV(39)+JVS(395)*UV(55)+JVS(397)*UV(74)+JVS(398)*UV(76)+JVS(399)*UV(77)+JVS(400)*UV(78)+JVS(401)& - &*UV(79)+JVS(402)*UV(81) - JUV(56) = JVS(403)*UV(12)+JVS(404)*UV(56)+JVS(405)*UV(74)+JVS(406)*UV(76)+JVS(407)*UV(77)+JVS(408)*UV(78)+JVS(409)& - &*UV(79)+JVS(410)*UV(81) - JUV(57) = JVS(411)*UV(8)+JVS(412)*UV(57)+JVS(413)*UV(74)+JVS(414)*UV(76)+JVS(415)*UV(77)+JVS(416)*UV(78)+JVS(417)& - &*UV(79)+JVS(418)*UV(81) - JUV(58) = JVS(419)*UV(14)+JVS(420)*UV(16)+JVS(421)*UV(20)+JVS(422)*UV(24)+JVS(423)*UV(30)+JVS(424)*UV(33)+JVS(426)& - &*UV(35)+JVS(427)*UV(36)+JVS(428)*UV(39)+JVS(429)*UV(40)+JVS(430)*UV(41)+JVS(431)*UV(43)+JVS(432)*UV(44)& - &+JVS(433)*UV(45)+JVS(434)*UV(46)+JVS(435)*UV(47)+JVS(436)*UV(48)+JVS(437)*UV(49)+JVS(438)*UV(50)+JVS(439)& - &*UV(51)+JVS(440)*UV(54)+JVS(441)*UV(55)+JVS(442)*UV(56)+JVS(443)*UV(57)+JVS(444)*UV(58)+JVS(445)*UV(59)& - &+JVS(446)*UV(60)+JVS(447)*UV(61)+JVS(449)*UV(64)+JVS(450)*UV(65)+JVS(451)*UV(67)+JVS(452)*UV(68)+JVS(453)& - &*UV(69)+JVS(454)*UV(70)+JVS(455)*UV(71)+JVS(456)*UV(72)+JVS(457)*UV(73)+JVS(458)*UV(74)+JVS(460)*UV(77)& - &+JVS(461)*UV(78)+JVS(462)*UV(79)+JVS(463)*UV(80)+JVS(464)*UV(81) - JUV(59) = JVS(466)*UV(28)+JVS(467)*UV(59)+JVS(469)*UV(74)+JVS(470)*UV(76)+JVS(471)*UV(77)+JVS(473)*UV(79)+JVS(474)& - &*UV(81) - JUV(60) = JVS(476)*UV(29)+JVS(477)*UV(60)+JVS(479)*UV(74)+JVS(480)*UV(76)+JVS(481)*UV(77)+JVS(483)*UV(79)+JVS(484)& - &*UV(81) - JUV(61) = JVS(486)*UV(35)+JVS(487)*UV(41)+JVS(488)*UV(61)+JVS(489)*UV(67)+JVS(491)*UV(74)+JVS(492)*UV(76)+JVS(493)& - &*UV(77)+JVS(494)*UV(78)+JVS(495)*UV(79)+JVS(496)*UV(81) - JUV(62) = JVS(497)*UV(26)+JVS(499)*UV(45)+JVS(500)*UV(51)+JVS(501)*UV(55)+JVS(502)*UV(56)+JVS(503)*UV(57)+JVS(504)& - &*UV(59)+JVS(505)*UV(60)+JVS(506)*UV(62)+JVS(507)*UV(68)+JVS(508)*UV(69)+JVS(511)*UV(73)+JVS(512)*UV(74)& - &+JVS(513)*UV(76)+JVS(514)*UV(77)+JVS(515)*UV(78)+JVS(516)*UV(79)+JVS(517)*UV(81)+JVS(518)*UV(82) - JUV(63) = JVS(519)*UV(59)+JVS(520)*UV(60)+JVS(521)*UV(63)+JVS(522)*UV(72)+JVS(523)*UV(74)+JVS(525)*UV(77)+JVS(526)& - &*UV(78)+JVS(527)*UV(79)+JVS(528)*UV(81) - JUV(64) = JVS(530)*UV(9)+JVS(531)*UV(10)+JVS(532)*UV(33)+JVS(533)*UV(36)+JVS(534)*UV(42)+JVS(535)*UV(43)+JVS(536)& - &*UV(45)+JVS(537)*UV(56)+JVS(538)*UV(57)+JVS(539)*UV(63)+JVS(540)*UV(64)+JVS(542)*UV(72)+JVS(543)*UV(73)& - &+JVS(544)*UV(74)+JVS(545)*UV(75)+JVS(546)*UV(76)+JVS(547)*UV(77)+JVS(548)*UV(78)+JVS(549)*UV(79)+JVS(550)& - &*UV(80)+JVS(551)*UV(81) - JUV(65) = JVS(553)*UV(39)+JVS(554)*UV(43)+JVS(555)*UV(50)+JVS(556)*UV(65)+JVS(557)*UV(72)+JVS(558)*UV(74)+JVS(560)& - &*UV(77)+JVS(561)*UV(78)+JVS(562)*UV(79) - JUV(66) = JVS(564)*UV(12)+JVS(565)*UV(14)+JVS(566)*UV(15)+JVS(567)*UV(35)+JVS(568)*UV(37)+JVS(569)*UV(41)+JVS(570)& - &*UV(47)+JVS(571)*UV(48)+JVS(572)*UV(51)+JVS(573)*UV(56)+JVS(574)*UV(57)+JVS(575)*UV(61)+JVS(576)*UV(62)& - &+JVS(577)*UV(63)+JVS(578)*UV(65)+JVS(579)*UV(66)+JVS(580)*UV(67)+JVS(581)*UV(68)+JVS(582)*UV(69)+JVS(583)& - &*UV(70)+JVS(585)*UV(72)+JVS(586)*UV(73)+JVS(587)*UV(74)+JVS(588)*UV(75)+JVS(590)*UV(77)+JVS(591)*UV(78)& - &+JVS(592)*UV(79)+JVS(593)*UV(80)+JVS(594)*UV(81) - JUV(67) = JVS(596)*UV(50)+JVS(597)*UV(55)+JVS(598)*UV(67)+JVS(599)*UV(72)+JVS(600)*UV(74)+JVS(602)*UV(77)+JVS(603)& - &*UV(78)+JVS(604)*UV(79)+JVS(605)*UV(81) - JUV(68) = JVS(606)*UV(30)+JVS(607)*UV(35)+JVS(608)*UV(37)+JVS(609)*UV(39)+JVS(610)*UV(41)+JVS(611)*UV(43)+JVS(612)& - &*UV(65)+JVS(613)*UV(67)+JVS(614)*UV(68)+JVS(615)*UV(69)+JVS(617)*UV(74)+JVS(618)*UV(76)+JVS(619)*UV(77)& - &+JVS(621)*UV(79)+JVS(622)*UV(81) - JUV(69) = JVS(623)*UV(30)+JVS(624)*UV(35)+JVS(625)*UV(37)+JVS(626)*UV(39)+JVS(627)*UV(41)+JVS(628)*UV(43)+JVS(629)& - &*UV(65)+JVS(630)*UV(67)+JVS(631)*UV(68)+JVS(632)*UV(69)+JVS(634)*UV(74)+JVS(635)*UV(76)+JVS(636)*UV(77)& - &+JVS(638)*UV(79)+JVS(639)*UV(81) - JUV(70) = JVS(640)*UV(17)+JVS(641)*UV(37)+JVS(642)*UV(39)+JVS(643)*UV(41)+JVS(644)*UV(52)+JVS(645)*UV(56)+JVS(646)& - &*UV(57)+JVS(650)*UV(65)+JVS(651)*UV(67)+JVS(654)*UV(70)+JVS(656)*UV(72)+JVS(657)*UV(73)+JVS(658)*UV(74)& - &+JVS(660)*UV(76)+JVS(661)*UV(77)+JVS(662)*UV(78)+JVS(663)*UV(79)+JVS(665)*UV(81) - JUV(71) = JVS(667)*UV(45)+JVS(668)*UV(63)+JVS(669)*UV(71)+JVS(671)*UV(74)+JVS(672)*UV(76)+JVS(673)*UV(77)+JVS(674)& - &*UV(78)+JVS(675)*UV(79)+JVS(676)*UV(81)+JVS(677)*UV(82) - JUV(72) = JVS(678)*UV(25)+JVS(679)*UV(28)+JVS(680)*UV(29)+JVS(681)*UV(30)+JVS(682)*UV(31)+JVS(683)*UV(35)+JVS(684)& - &*UV(37)+JVS(685)*UV(39)+JVS(686)*UV(40)+JVS(687)*UV(41)+JVS(689)*UV(43)+JVS(690)*UV(45)+JVS(691)*UV(49)& - &+JVS(694)*UV(63)+JVS(695)*UV(65)+JVS(696)*UV(67)+JVS(697)*UV(71)+JVS(698)*UV(72)+JVS(700)*UV(76)+JVS(701)& - &*UV(77)+JVS(702)*UV(78)+JVS(704)*UV(81)+JVS(705)*UV(82) - JUV(73) = JVS(706)*UV(14)+JVS(707)*UV(62)+JVS(712)*UV(73)+JVS(713)*UV(74)+JVS(714)*UV(75)+JVS(715)*UV(76)+JVS(716)& - &*UV(77)+JVS(717)*UV(78)+JVS(718)*UV(79)+JVS(719)*UV(81) - JUV(74) = JVS(721)*UV(18)+JVS(722)*UV(20)+JVS(723)*UV(33)+JVS(724)*UV(40)+JVS(725)*UV(41)+JVS(726)*UV(43)+JVS(727)& - &*UV(47)+JVS(728)*UV(48)+JVS(729)*UV(50)+JVS(730)*UV(51)+JVS(731)*UV(54)+JVS(732)*UV(55)+JVS(733)*UV(56)& - &+JVS(734)*UV(57)+JVS(735)*UV(59)+JVS(736)*UV(60)+JVS(737)*UV(61)+JVS(739)*UV(64)+JVS(740)*UV(65)+JVS(741)& - &*UV(66)+JVS(742)*UV(67)+JVS(743)*UV(68)+JVS(744)*UV(69)+JVS(745)*UV(70)+JVS(746)*UV(71)+JVS(747)*UV(72)& - &+JVS(748)*UV(73)+JVS(749)*UV(74)+JVS(751)*UV(76)+JVS(752)*UV(77)+JVS(753)*UV(78)+JVS(754)*UV(79)+JVS(755)& - &*UV(80)+JVS(756)*UV(81) - JUV(75) = JVS(758)*UV(47)+JVS(759)*UV(48)+JVS(760)*UV(51)+JVS(761)*UV(54)+JVS(762)*UV(55)+JVS(763)*UV(56)+JVS(764)& - &*UV(57)+JVS(765)*UV(59)+JVS(766)*UV(60)+JVS(767)*UV(61)+JVS(768)*UV(64)+JVS(771)*UV(70)+JVS(772)*UV(71)& - &+JVS(774)*UV(73)+JVS(776)*UV(75)+JVS(777)*UV(76)+JVS(779)*UV(78)+JVS(781)*UV(80) - JUV(76) = JVS(784)*UV(5)+JVS(785)*UV(8)+JVS(786)*UV(9)+JVS(787)*UV(10)+JVS(788)*UV(12)+JVS(789)*UV(14)+JVS(790)*UV(15)& - &+JVS(791)*UV(19)+JVS(792)*UV(20)+JVS(793)*UV(22)+JVS(794)*UV(24)+JVS(795)*UV(26)+JVS(796)*UV(27)+JVS(797)& - &*UV(28)+JVS(798)*UV(29)+JVS(799)*UV(30)+JVS(800)*UV(31)+JVS(801)*UV(33)+JVS(803)*UV(37)+JVS(804)*UV(38)& - &+JVS(805)*UV(39)+JVS(806)*UV(40)+JVS(807)*UV(41)+JVS(808)*UV(42)+JVS(809)*UV(43)+JVS(810)*UV(44)+JVS(811)& - &*UV(45)+JVS(812)*UV(46)+JVS(813)*UV(47)+JVS(814)*UV(48)+JVS(815)*UV(49)+JVS(816)*UV(50)+JVS(817)*UV(51)& - &+JVS(818)*UV(53)+JVS(819)*UV(54)+JVS(820)*UV(55)+JVS(821)*UV(56)+JVS(822)*UV(57)+JVS(823)*UV(58)+JVS(824)& - &*UV(59)+JVS(825)*UV(60)+JVS(826)*UV(61)+JVS(827)*UV(62)+JVS(828)*UV(63)+JVS(829)*UV(64)+JVS(830)*UV(65)& - &+JVS(831)*UV(66)+JVS(832)*UV(67)+JVS(833)*UV(68)+JVS(834)*UV(69)+JVS(835)*UV(70)+JVS(836)*UV(71)+JVS(837)& - &*UV(72)+JVS(838)*UV(73)+JVS(839)*UV(74)+JVS(840)*UV(75)+JVS(841)*UV(76)+JVS(842)*UV(77)+JVS(843)*UV(78)& - &+JVS(844)*UV(79)+JVS(845)*UV(80)+JVS(846)*UV(81)+JVS(847)*UV(82) - JUV(77) = JVS(848)*UV(24)+JVS(849)*UV(33)+JVS(850)*UV(36)+JVS(851)*UV(40)+JVS(852)*UV(43)+JVS(853)*UV(44)+JVS(854)& - &*UV(45)+JVS(855)*UV(47)+JVS(856)*UV(48)+JVS(857)*UV(49)+JVS(858)*UV(50)+JVS(859)*UV(51)+JVS(860)*UV(52)& - &+JVS(861)*UV(53)+JVS(862)*UV(54)+JVS(863)*UV(55)+JVS(864)*UV(56)+JVS(865)*UV(57)+JVS(866)*UV(59)+JVS(867)& - &*UV(60)+JVS(868)*UV(61)+JVS(870)*UV(63)+JVS(871)*UV(64)+JVS(873)*UV(66)+JVS(875)*UV(68)+JVS(876)*UV(69)& - &+JVS(877)*UV(70)+JVS(878)*UV(71)+JVS(879)*UV(72)+JVS(880)*UV(73)+JVS(881)*UV(74)+JVS(883)*UV(76)+JVS(884)& - &*UV(77)+JVS(885)*UV(78)+JVS(886)*UV(79)+JVS(887)*UV(80)+JVS(888)*UV(81)+JVS(889)*UV(82) - JUV(78) = JVS(890)*UV(5)+JVS(891)*UV(6)+JVS(892)*UV(8)+JVS(893)*UV(9)+JVS(894)*UV(10)+JVS(895)*UV(12)+JVS(896)*UV(13)& - &+JVS(897)*UV(14)+JVS(898)*UV(15)+JVS(899)*UV(16)+JVS(900)*UV(17)+JVS(901)*UV(18)+JVS(902)*UV(19)+JVS(903)& - &*UV(20)+JVS(904)*UV(21)+JVS(905)*UV(22)+JVS(906)*UV(23)+JVS(907)*UV(24)+JVS(908)*UV(27)+JVS(909)*UV(28)& - &+JVS(910)*UV(29)+JVS(911)*UV(30)+JVS(912)*UV(31)+JVS(913)*UV(32)+JVS(914)*UV(33)+JVS(915)*UV(34)+JVS(916)& - &*UV(35)+JVS(917)*UV(36)+JVS(918)*UV(37)+JVS(919)*UV(38)+JVS(920)*UV(39)+JVS(921)*UV(40)+JVS(922)*UV(41)& - &+JVS(923)*UV(42)+JVS(924)*UV(43)+JVS(926)*UV(45)+JVS(927)*UV(46)+JVS(928)*UV(49)+JVS(930)*UV(52)+JVS(931)& - &*UV(53)+JVS(936)*UV(58)+JVS(940)*UV(62)+JVS(941)*UV(63)+JVS(943)*UV(65)+JVS(944)*UV(66)+JVS(945)*UV(67)& - &+JVS(950)*UV(72)+JVS(953)*UV(75)+JVS(954)*UV(76)+JVS(956)*UV(78)+JVS(957)*UV(79)+JVS(959)*UV(81)+JVS(960)& - &*UV(82) - JUV(79) = JVS(961)*UV(11)+JVS(962)*UV(19)+JVS(963)*UV(25)+JVS(964)*UV(30)+JVS(965)*UV(32)+JVS(966)*UV(35)+JVS(967)& - &*UV(36)+JVS(968)*UV(37)+JVS(969)*UV(39)+JVS(970)*UV(40)+JVS(971)*UV(41)+JVS(972)*UV(42)+JVS(973)*UV(43)& - &+JVS(974)*UV(45)+JVS(975)*UV(46)+JVS(976)*UV(47)+JVS(977)*UV(48)+JVS(978)*UV(51)+JVS(979)*UV(53)+JVS(980)& - &*UV(54)+JVS(981)*UV(55)+JVS(982)*UV(56)+JVS(983)*UV(57)+JVS(984)*UV(58)+JVS(985)*UV(59)+JVS(986)*UV(60)& - &+JVS(987)*UV(61)+JVS(988)*UV(63)+JVS(989)*UV(64)+JVS(990)*UV(65)+JVS(991)*UV(66)+JVS(992)*UV(67)+JVS(993)& - &*UV(68)+JVS(994)*UV(69)+JVS(995)*UV(70)+JVS(996)*UV(71)+JVS(997)*UV(72)+JVS(998)*UV(73)+JVS(999)*UV(74)& - &+JVS(1001)*UV(76)+JVS(1002)*UV(77)+JVS(1003)*UV(78)+JVS(1004)*UV(79)+JVS(1005)*UV(80)+JVS(1006)*UV(81)& - &+JVS(1007)*UV(82) - JUV(80) = JVS(1008)*UV(37)+JVS(1009)*UV(39)+JVS(1010)*UV(41)+JVS(1011)*UV(43)+JVS(1012)*UV(52)+JVS(1018)*UV(65)& - &+JVS(1019)*UV(67)+JVS(1023)*UV(72)+JVS(1025)*UV(74)+JVS(1027)*UV(76)+JVS(1028)*UV(77)+JVS(1029)*UV(78)& - &+JVS(1030)*UV(79)+JVS(1031)*UV(80)+JVS(1032)*UV(81) - JUV(81) = JVS(1034)*UV(23)+JVS(1035)*UV(25)+JVS(1041)*UV(44)+JVS(1042)*UV(47)+JVS(1043)*UV(48)+JVS(1045)*UV(50)& - &+JVS(1046)*UV(51)+JVS(1047)*UV(54)+JVS(1048)*UV(55)+JVS(1049)*UV(56)+JVS(1050)*UV(57)+JVS(1051)*UV(59)& - &+JVS(1052)*UV(60)+JVS(1053)*UV(61)+JVS(1054)*UV(64)+JVS(1057)*UV(68)+JVS(1058)*UV(69)+JVS(1059)*UV(70)& - &+JVS(1060)*UV(71)+JVS(1061)*UV(72)+JVS(1062)*UV(73)+JVS(1063)*UV(74)+JVS(1065)*UV(76)+JVS(1066)*UV(77)& - &+JVS(1067)*UV(78)+JVS(1068)*UV(79)+JVS(1069)*UV(80)+JVS(1070)*UV(81)+JVS(1071)*UV(82) - JUV(82) = JVS(1072)*UV(11)+JVS(1073)*UV(16)+JVS(1074)*UV(19)+JVS(1075)*UV(21)+JVS(1076)*UV(23)+JVS(1077)*UV(25)& - &+JVS(1078)*UV(26)+JVS(1079)*UV(28)+JVS(1080)*UV(29)+JVS(1081)*UV(31)+JVS(1082)*UV(32)+JVS(1084)*UV(36)& - &+JVS(1088)*UV(44)+JVS(1089)*UV(45)+JVS(1091)*UV(47)+JVS(1092)*UV(48)+JVS(1094)*UV(50)+JVS(1095)*UV(51)& - &+JVS(1097)*UV(54)+JVS(1098)*UV(55)+JVS(1099)*UV(56)+JVS(1100)*UV(57)+JVS(1102)*UV(59)+JVS(1103)*UV(60)& - &+JVS(1104)*UV(61)+JVS(1105)*UV(62)+JVS(1106)*UV(63)+JVS(1107)*UV(64)+JVS(1111)*UV(68)+JVS(1112)*UV(69)& - &+JVS(1113)*UV(70)+JVS(1114)*UV(71)+JVS(1115)*UV(72)+JVS(1116)*UV(73)+JVS(1117)*UV(74)+JVS(1119)*UV(76)& - &+JVS(1120)*UV(77)+JVS(1121)*UV(78)+JVS(1122)*UV(79)+JVS(1123)*UV(80)+JVS(1124)*UV(81)+JVS(1125)*UV(82) - -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(4)*UV(2) - JTUV(3) = JVS(7)*UV(3) - JTUV(4) = JVS(20)*UV(4) - JTUV(5) = JVS(2)*UV(1)+JVS(43)*UV(5)+JVS(784)*UV(76)+JVS(890)*UV(78) - JTUV(6) = JVS(45)*UV(6)+JVS(118)*UV(25)+JVS(891)*UV(78) - JTUV(7) = JVS(47)*UV(7)+JVS(297)*UV(49) - JTUV(8) = JVS(51)*UV(8)+JVS(331)*UV(52)+JVS(411)*UV(57)+JVS(785)*UV(76)+JVS(892)*UV(78) - JTUV(9) = JVS(53)*UV(9)+JVS(142)*UV(28)+JVS(530)*UV(64)+JVS(786)*UV(76)+JVS(893)*UV(78) - JTUV(10) = JVS(55)*UV(10)+JVS(147)*UV(29)+JVS(531)*UV(64)+JVS(787)*UV(76)+JVS(894)*UV(78) - JTUV(11) = JVS(57)*UV(11)+JVS(961)*UV(79)+JVS(1072)*UV(82) - JTUV(12) = JVS(60)*UV(12)+JVS(112)*UV(24)+JVS(403)*UV(56)+JVS(564)*UV(66)+JVS(788)*UV(76)+JVS(895)*UV(78) - JTUV(13) = JVS(62)*UV(13)+JVS(250)*UV(44)+JVS(896)*UV(78) - JTUV(14) = JVS(8)*UV(3)+JVS(66)*UV(14)+JVS(199)*UV(38)+JVS(267)*UV(46)+JVS(419)*UV(58)+JVS(565)*UV(66)+JVS(706)*UV(73)& - &+JVS(789)*UV(76)+JVS(897)*UV(78) - JTUV(15) = JVS(68)*UV(15)+JVS(332)*UV(52)+JVS(566)*UV(66)+JVS(790)*UV(76)+JVS(898)*UV(78) - JTUV(16) = JVS(71)*UV(16)+JVS(200)*UV(38)+JVS(420)*UV(58)+JVS(899)*UV(78)+JVS(1073)*UV(82) - JTUV(17) = JVS(74)*UV(17)+JVS(640)*UV(70)+JVS(900)*UV(78) - JTUV(18) = JVS(80)*UV(18)+JVS(721)*UV(74)+JVS(901)*UV(78) - JTUV(19) = JVS(86)*UV(19)+JVS(791)*UV(76)+JVS(902)*UV(78)+JVS(962)*UV(79)+JVS(1074)*UV(82) - JTUV(20) = JVS(90)*UV(20)+JVS(421)*UV(58)+JVS(722)*UV(74)+JVS(792)*UV(76)+JVS(903)*UV(78) - JTUV(21) = JVS(94)*UV(21)+JVS(98)*UV(22)+JVS(251)*UV(44)+JVS(904)*UV(78)+JVS(1075)*UV(82) - JTUV(22) = JVS(99)*UV(22)+JVS(358)*UV(53)+JVS(793)*UV(76)+JVS(905)*UV(78) - JTUV(23) = JVS(105)*UV(23)+JVS(906)*UV(78)+JVS(1034)*UV(81)+JVS(1076)*UV(82) - JTUV(24) = JVS(113)*UV(24)+JVS(359)*UV(53)+JVS(422)*UV(58)+JVS(794)*UV(76)+JVS(848)*UV(77)+JVS(907)*UV(78) - JTUV(25) = JVS(119)*UV(25)+JVS(678)*UV(72)+JVS(963)*UV(79)+JVS(1035)*UV(81)+JVS(1077)*UV(82) - JTUV(26) = JVS(125)*UV(26)+JVS(236)*UV(42)+JVS(497)*UV(62)+JVS(795)*UV(76)+JVS(1078)*UV(82) - JTUV(27) = JVS(131)*UV(27)+JVS(796)*UV(76)+JVS(908)*UV(78) - JTUV(28) = JVS(106)*UV(23)+JVS(143)*UV(28)+JVS(237)*UV(42)+JVS(466)*UV(59)+JVS(679)*UV(72)+JVS(797)*UV(76)+JVS(909)& - &*UV(78)+JVS(1079)*UV(82) - JTUV(29) = JVS(107)*UV(23)+JVS(148)*UV(29)+JVS(238)*UV(42)+JVS(476)*UV(60)+JVS(680)*UV(72)+JVS(798)*UV(76)+JVS(910)& - &*UV(78)+JVS(1080)*UV(82) - JTUV(30) = JVS(9)*UV(3)+JVS(152)*UV(30)+JVS(201)*UV(38)+JVS(280)*UV(47)+JVS(423)*UV(58)+JVS(606)*UV(68)+JVS(623)& - &*UV(69)+JVS(681)*UV(72)+JVS(799)*UV(76)+JVS(911)*UV(78)+JVS(964)*UV(79) - JTUV(31) = JVS(108)*UV(23)+JVS(156)*UV(31)+JVS(239)*UV(42)+JVS(383)*UV(54)+JVS(682)*UV(72)+JVS(800)*UV(76)+JVS(912)& - &*UV(78)+JVS(1081)*UV(82) - JTUV(32) = JVS(161)*UV(32)+JVS(913)*UV(78)+JVS(965)*UV(79)+JVS(1082)*UV(82) - JTUV(33) = JVS(172)*UV(33)+JVS(424)*UV(58)+JVS(532)*UV(64)+JVS(723)*UV(74)+JVS(801)*UV(76)+JVS(849)*UV(77)+JVS(914)& - &*UV(78) - JTUV(34) = JVS(72)*UV(16)+JVS(100)*UV(22)+JVS(178)*UV(34)+JVS(915)*UV(78) - JTUV(35) = JVS(10)*UV(3)+JVS(21)*UV(4)+JVS(184)*UV(35)+JVS(298)*UV(49)+JVS(333)*UV(52)+JVS(426)*UV(58)+JVS(486)*UV(61)& - &+JVS(567)*UV(66)+JVS(607)*UV(68)+JVS(624)*UV(69)+JVS(683)*UV(72)+JVS(916)*UV(78)+JVS(966)*UV(79) - JTUV(36) = JVS(188)*UV(36)+JVS(427)*UV(58)+JVS(533)*UV(64)+JVS(850)*UV(77)+JVS(917)*UV(78)+JVS(967)*UV(79)+JVS(1084)& - &*UV(82) - JTUV(37) = JVS(132)*UV(27)+JVS(195)*UV(37)+JVS(203)*UV(38)+JVS(322)*UV(51)+JVS(334)*UV(52)+JVS(568)*UV(66)+JVS(608)& - &*UV(68)+JVS(625)*UV(69)+JVS(641)*UV(70)+JVS(684)*UV(72)+JVS(803)*UV(76)+JVS(918)*UV(78)+JVS(968)*UV(79)& - &+JVS(1008)*UV(80) - JTUV(38) = JVS(5)*UV(2)+JVS(204)*UV(38)+JVS(804)*UV(76)+JVS(919)*UV(78) - JTUV(39) = JVS(11)*UV(3)+JVS(22)*UV(4)+JVS(133)*UV(27)+JVS(205)*UV(38)+JVS(224)*UV(39)+JVS(299)*UV(49)+JVS(394)*UV(55)& - &+JVS(428)*UV(58)+JVS(553)*UV(65)+JVS(609)*UV(68)+JVS(626)*UV(69)+JVS(642)*UV(70)+JVS(685)*UV(72)+JVS(805)& - &*UV(76)+JVS(920)*UV(78)+JVS(969)*UV(79)+JVS(1009)*UV(80) - JTUV(40) = JVS(12)*UV(3)+JVS(134)*UV(27)+JVS(179)*UV(34)+JVS(206)*UV(38)+JVS(228)*UV(40)+JVS(252)*UV(44)+JVS(300)& - &*UV(49)+JVS(312)*UV(50)+JVS(429)*UV(58)+JVS(686)*UV(72)+JVS(724)*UV(74)+JVS(806)*UV(76)+JVS(851)*UV(77)& - &+JVS(921)*UV(78)+JVS(970)*UV(79) - JTUV(41) = JVS(23)*UV(4)+JVS(75)*UV(17)+JVS(81)*UV(18)+JVS(135)*UV(27)+JVS(207)*UV(38)+JVS(232)*UV(41)+JVS(335)*UV(52)& - &+JVS(430)*UV(58)+JVS(487)*UV(61)+JVS(569)*UV(66)+JVS(610)*UV(68)+JVS(627)*UV(69)+JVS(643)*UV(70)+JVS(687)& - &*UV(72)+JVS(725)*UV(74)+JVS(807)*UV(76)+JVS(922)*UV(78)+JVS(971)*UV(79)+JVS(1010)*UV(80) - JTUV(42) = JVS(126)*UV(26)+JVS(157)*UV(31)+JVS(162)*UV(32)+JVS(240)*UV(42)+JVS(534)*UV(64)+JVS(808)*UV(76)+JVS(923)& - &*UV(78)+JVS(972)*UV(79) - JTUV(43) = JVS(13)*UV(3)+JVS(120)*UV(25)+JVS(136)*UV(27)+JVS(208)*UV(38)+JVS(246)*UV(43)+JVS(301)*UV(49)+JVS(313)& - &*UV(50)+JVS(431)*UV(58)+JVS(535)*UV(64)+JVS(554)*UV(65)+JVS(611)*UV(68)+JVS(628)*UV(69)+JVS(689)*UV(72)& - &+JVS(726)*UV(74)+JVS(809)*UV(76)+JVS(852)*UV(77)+JVS(924)*UV(78)+JVS(973)*UV(79)+JVS(1011)*UV(80) - JTUV(44) = JVS(63)*UV(13)+JVS(95)*UV(21)+JVS(101)*UV(22)+JVS(209)*UV(38)+JVS(253)*UV(44)+JVS(362)*UV(53)+JVS(432)& - &*UV(58)+JVS(810)*UV(76)+JVS(853)*UV(77)+JVS(1041)*UV(81)+JVS(1088)*UV(82) - JTUV(45) = JVS(14)*UV(3)+JVS(114)*UV(24)+JVS(189)*UV(36)+JVS(210)*UV(38)+JVS(261)*UV(45)+JVS(433)*UV(58)+JVS(499)& - &*UV(62)+JVS(536)*UV(64)+JVS(667)*UV(71)+JVS(690)*UV(72)+JVS(811)*UV(76)+JVS(854)*UV(77)+JVS(926)*UV(78)& - &+JVS(974)*UV(79)+JVS(1089)*UV(82) - JTUV(46) = JVS(163)*UV(32)+JVS(211)*UV(38)+JVS(268)*UV(46)+JVS(434)*UV(58)+JVS(812)*UV(76)+JVS(927)*UV(78)+JVS(975)& - &*UV(79) - JTUV(47) = JVS(24)*UV(4)+JVS(281)*UV(47)+JVS(435)*UV(58)+JVS(570)*UV(66)+JVS(727)*UV(74)+JVS(758)*UV(75)+JVS(813)& - &*UV(76)+JVS(855)*UV(77)+JVS(976)*UV(79)+JVS(1042)*UV(81)+JVS(1091)*UV(82) - JTUV(48) = JVS(25)*UV(4)+JVS(289)*UV(48)+JVS(336)*UV(52)+JVS(436)*UV(58)+JVS(571)*UV(66)+JVS(728)*UV(74)+JVS(759)& - &*UV(75)+JVS(814)*UV(76)+JVS(856)*UV(77)+JVS(977)*UV(79)+JVS(1043)*UV(81)+JVS(1092)*UV(82) - JTUV(49) = JVS(15)*UV(3)+JVS(212)*UV(38)+JVS(254)*UV(44)+JVS(302)*UV(49)+JVS(364)*UV(53)+JVS(437)*UV(58)+JVS(691)& - &*UV(72)+JVS(815)*UV(76)+JVS(857)*UV(77)+JVS(928)*UV(78) - JTUV(50) = JVS(26)*UV(4)+JVS(48)*UV(7)+JVS(180)*UV(34)+JVS(303)*UV(49)+JVS(314)*UV(50)+JVS(438)*UV(58)+JVS(555)*UV(65)& - &+JVS(596)*UV(67)+JVS(729)*UV(74)+JVS(816)*UV(76)+JVS(858)*UV(77)+JVS(1045)*UV(81)+JVS(1094)*UV(82) - JTUV(51) = JVS(323)*UV(51)+JVS(337)*UV(52)+JVS(439)*UV(58)+JVS(500)*UV(62)+JVS(572)*UV(66)+JVS(730)*UV(74)+JVS(760)& - &*UV(75)+JVS(817)*UV(76)+JVS(859)*UV(77)+JVS(978)*UV(79)+JVS(1046)*UV(81)+JVS(1095)*UV(82) - JTUV(52) = JVS(338)*UV(52)+JVS(644)*UV(70)+JVS(860)*UV(77)+JVS(930)*UV(78)+JVS(1012)*UV(80) - JTUV(53) = JVS(164)*UV(32)+JVS(214)*UV(38)+JVS(366)*UV(53)+JVS(818)*UV(76)+JVS(861)*UV(77)+JVS(931)*UV(78)+JVS(979)& - &*UV(79) - JTUV(54) = JVS(269)*UV(46)+JVS(367)*UV(53)+JVS(385)*UV(54)+JVS(440)*UV(58)+JVS(731)*UV(74)+JVS(761)*UV(75)+JVS(819)& - &*UV(76)+JVS(862)*UV(77)+JVS(980)*UV(79)+JVS(1047)*UV(81)+JVS(1097)*UV(82) - JTUV(55) = JVS(304)*UV(49)+JVS(395)*UV(55)+JVS(441)*UV(58)+JVS(501)*UV(62)+JVS(597)*UV(67)+JVS(732)*UV(74)+JVS(762)& - &*UV(75)+JVS(820)*UV(76)+JVS(863)*UV(77)+JVS(981)*UV(79)+JVS(1048)*UV(81)+JVS(1098)*UV(82) - JTUV(56) = JVS(27)*UV(4)+JVS(339)*UV(52)+JVS(404)*UV(56)+JVS(442)*UV(58)+JVS(502)*UV(62)+JVS(537)*UV(64)+JVS(573)& - &*UV(66)+JVS(645)*UV(70)+JVS(733)*UV(74)+JVS(763)*UV(75)+JVS(821)*UV(76)+JVS(864)*UV(77)+JVS(982)*UV(79)& - &+JVS(1049)*UV(81)+JVS(1099)*UV(82) - JTUV(57) = JVS(28)*UV(4)+JVS(340)*UV(52)+JVS(412)*UV(57)+JVS(443)*UV(58)+JVS(503)*UV(62)+JVS(538)*UV(64)+JVS(574)& - &*UV(66)+JVS(646)*UV(70)+JVS(734)*UV(74)+JVS(764)*UV(75)+JVS(822)*UV(76)+JVS(865)*UV(77)+JVS(983)*UV(79)& - &+JVS(1050)*UV(81)+JVS(1100)*UV(82) - JTUV(58) = JVS(165)*UV(32)+JVS(215)*UV(38)+JVS(444)*UV(58)+JVS(823)*UV(76)+JVS(936)*UV(78)+JVS(984)*UV(79) - JTUV(59) = JVS(270)*UV(46)+JVS(369)*UV(53)+JVS(445)*UV(58)+JVS(467)*UV(59)+JVS(504)*UV(62)+JVS(519)*UV(63)+JVS(735)& - &*UV(74)+JVS(765)*UV(75)+JVS(824)*UV(76)+JVS(866)*UV(77)+JVS(985)*UV(79)+JVS(1051)*UV(81)+JVS(1102)*UV(82) - JTUV(60) = JVS(271)*UV(46)+JVS(370)*UV(53)+JVS(446)*UV(58)+JVS(477)*UV(60)+JVS(505)*UV(62)+JVS(520)*UV(63)+JVS(736)& - &*UV(74)+JVS(766)*UV(75)+JVS(825)*UV(76)+JVS(867)*UV(77)+JVS(986)*UV(79)+JVS(1052)*UV(81)+JVS(1103)*UV(82) - JTUV(61) = JVS(29)*UV(4)+JVS(341)*UV(52)+JVS(447)*UV(58)+JVS(488)*UV(61)+JVS(575)*UV(66)+JVS(737)*UV(74)+JVS(767)& - &*UV(75)+JVS(826)*UV(76)+JVS(868)*UV(77)+JVS(987)*UV(79)+JVS(1053)*UV(81)+JVS(1104)*UV(82) - JTUV(62) = JVS(342)*UV(52)+JVS(506)*UV(62)+JVS(576)*UV(66)+JVS(707)*UV(73)+JVS(827)*UV(76)+JVS(940)*UV(78)+JVS(1105)& - &*UV(82) - JTUV(63) = JVS(16)*UV(3)+JVS(30)*UV(4)+JVS(69)*UV(15)+JVS(166)*UV(32)+JVS(173)*UV(33)+JVS(216)*UV(38)+JVS(272)*UV(46)& - &+JVS(343)*UV(52)+JVS(371)*UV(53)+JVS(521)*UV(63)+JVS(539)*UV(64)+JVS(577)*UV(66)+JVS(668)*UV(71)+JVS(694)& - &*UV(72)+JVS(828)*UV(76)+JVS(870)*UV(77)+JVS(941)*UV(78)+JVS(988)*UV(79)+JVS(1106)*UV(82) - JTUV(64) = JVS(449)*UV(58)+JVS(540)*UV(64)+JVS(739)*UV(74)+JVS(768)*UV(75)+JVS(829)*UV(76)+JVS(871)*UV(77)+JVS(989)& - &*UV(79)+JVS(1054)*UV(81)+JVS(1107)*UV(82) - JTUV(65) = JVS(17)*UV(3)+JVS(31)*UV(4)+JVS(76)*UV(17)+JVS(82)*UV(18)+JVS(137)*UV(27)+JVS(217)*UV(38)+JVS(290)*UV(48)& - &+JVS(344)*UV(52)+JVS(450)*UV(58)+JVS(556)*UV(65)+JVS(578)*UV(66)+JVS(612)*UV(68)+JVS(629)*UV(69)+JVS(650)& - &*UV(70)+JVS(695)*UV(72)+JVS(740)*UV(74)+JVS(830)*UV(76)+JVS(943)*UV(78)+JVS(990)*UV(79)+JVS(1018)*UV(80) - JTUV(66) = JVS(167)*UV(32)+JVS(218)*UV(38)+JVS(579)*UV(66)+JVS(741)*UV(74)+JVS(831)*UV(76)+JVS(873)*UV(77)+JVS(944)& - &*UV(78)+JVS(991)*UV(79) - JTUV(67) = JVS(32)*UV(4)+JVS(77)*UV(17)+JVS(83)*UV(18)+JVS(138)*UV(27)+JVS(219)*UV(38)+JVS(345)*UV(52)+JVS(451)*UV(58)& - &+JVS(489)*UV(61)+JVS(580)*UV(66)+JVS(598)*UV(67)+JVS(613)*UV(68)+JVS(630)*UV(69)+JVS(651)*UV(70)+JVS(696)& - &*UV(72)+JVS(742)*UV(74)+JVS(832)*UV(76)+JVS(945)*UV(78)+JVS(992)*UV(79)+JVS(1019)*UV(80) - JTUV(68) = JVS(33)*UV(4)+JVS(346)*UV(52)+JVS(452)*UV(58)+JVS(507)*UV(62)+JVS(581)*UV(66)+JVS(614)*UV(68)+JVS(631)& - &*UV(69)+JVS(743)*UV(74)+JVS(833)*UV(76)+JVS(875)*UV(77)+JVS(993)*UV(79)+JVS(1057)*UV(81)+JVS(1111)*UV(82) - JTUV(69) = JVS(34)*UV(4)+JVS(347)*UV(52)+JVS(453)*UV(58)+JVS(508)*UV(62)+JVS(582)*UV(66)+JVS(615)*UV(68)+JVS(632)& - &*UV(69)+JVS(744)*UV(74)+JVS(834)*UV(76)+JVS(876)*UV(77)+JVS(994)*UV(79)+JVS(1058)*UV(81)+JVS(1112)*UV(82) - JTUV(70) = JVS(35)*UV(4)+JVS(454)*UV(58)+JVS(583)*UV(66)+JVS(654)*UV(70)+JVS(745)*UV(74)+JVS(771)*UV(75)+JVS(835)& - &*UV(76)+JVS(877)*UV(77)+JVS(995)*UV(79)+JVS(1059)*UV(81)+JVS(1113)*UV(82) - JTUV(71) = JVS(36)*UV(4)+JVS(262)*UV(45)+JVS(455)*UV(58)+JVS(669)*UV(71)+JVS(697)*UV(72)+JVS(746)*UV(74)+JVS(772)& - &*UV(75)+JVS(836)*UV(76)+JVS(878)*UV(77)+JVS(996)*UV(79)+JVS(1060)*UV(81)+JVS(1114)*UV(82) - JTUV(72) = JVS(18)*UV(3)+JVS(37)*UV(4)+JVS(46)*UV(6)+JVS(78)*UV(17)+JVS(84)*UV(18)+JVS(121)*UV(25)+JVS(139)*UV(27)& - &+JVS(144)*UV(28)+JVS(149)*UV(29)+JVS(153)*UV(30)+JVS(158)*UV(31)+JVS(174)*UV(33)+JVS(185)*UV(35)+JVS(190)& - &*UV(36)+JVS(196)*UV(37)+JVS(220)*UV(38)+JVS(225)*UV(39)+JVS(229)*UV(40)+JVS(233)*UV(41)+JVS(241)*UV(42)& - &+JVS(247)*UV(43)+JVS(255)*UV(44)+JVS(263)*UV(45)+JVS(273)*UV(46)+JVS(305)*UV(49)+JVS(348)*UV(52)+JVS(373)& - &*UV(53)+JVS(456)*UV(58)+JVS(522)*UV(63)+JVS(542)*UV(64)+JVS(557)*UV(65)+JVS(585)*UV(66)+JVS(599)*UV(67)& - &+JVS(656)*UV(70)+JVS(698)*UV(72)+JVS(747)*UV(74)+JVS(837)*UV(76)+JVS(879)*UV(77)+JVS(950)*UV(78)+JVS(997)& - &*UV(79)+JVS(1023)*UV(80)+JVS(1061)*UV(81)+JVS(1115)*UV(82) - JTUV(73) = JVS(38)*UV(4)+JVS(274)*UV(46)+JVS(349)*UV(52)+JVS(374)*UV(53)+JVS(457)*UV(58)+JVS(511)*UV(62)+JVS(543)& - &*UV(64)+JVS(586)*UV(66)+JVS(657)*UV(70)+JVS(712)*UV(73)+JVS(748)*UV(74)+JVS(774)*UV(75)+JVS(838)*UV(76)& - &+JVS(880)*UV(77)+JVS(998)*UV(79)+JVS(1062)*UV(81)+JVS(1116)*UV(82) - JTUV(74) = JVS(39)*UV(4)+JVS(91)*UV(20)+JVS(115)*UV(24)+JVS(275)*UV(46)+JVS(283)*UV(47)+JVS(291)*UV(48)+JVS(306)& - &*UV(49)+JVS(316)*UV(50)+JVS(325)*UV(51)+JVS(350)*UV(52)+JVS(375)*UV(53)+JVS(387)*UV(54)+JVS(397)*UV(55)& - &+JVS(405)*UV(56)+JVS(413)*UV(57)+JVS(458)*UV(58)+JVS(469)*UV(59)+JVS(479)*UV(60)+JVS(491)*UV(61)+JVS(512)& - &*UV(62)+JVS(523)*UV(63)+JVS(544)*UV(64)+JVS(558)*UV(65)+JVS(587)*UV(66)+JVS(600)*UV(67)+JVS(617)*UV(68)& - &+JVS(634)*UV(69)+JVS(658)*UV(70)+JVS(671)*UV(71)+JVS(713)*UV(73)+JVS(749)*UV(74)+JVS(839)*UV(76)+JVS(881)& - &*UV(77)+JVS(999)*UV(79)+JVS(1025)*UV(80)+JVS(1063)*UV(81)+JVS(1117)*UV(82) - JTUV(75) = JVS(351)*UV(52)+JVS(545)*UV(64)+JVS(588)*UV(66)+JVS(714)*UV(73)+JVS(776)*UV(75)+JVS(840)*UV(76)+JVS(953)& - &*UV(78) - JTUV(76) = JVS(40)*UV(4)+JVS(49)*UV(7)+JVS(64)*UV(13)+JVS(87)*UV(19)+JVS(92)*UV(20)+JVS(127)*UV(26)+JVS(140)*UV(27)& - &+JVS(168)*UV(32)+JVS(175)*UV(33)+JVS(242)*UV(42)+JVS(256)*UV(44)+JVS(284)*UV(47)+JVS(292)*UV(48)+JVS(317)& - &*UV(50)+JVS(326)*UV(51)+JVS(388)*UV(54)+JVS(398)*UV(55)+JVS(406)*UV(56)+JVS(414)*UV(57)+JVS(470)*UV(59)& - &+JVS(480)*UV(60)+JVS(492)*UV(61)+JVS(513)*UV(62)+JVS(546)*UV(64)+JVS(618)*UV(68)+JVS(635)*UV(69)+JVS(660)& - &*UV(70)+JVS(672)*UV(71)+JVS(700)*UV(72)+JVS(715)*UV(73)+JVS(751)*UV(74)+JVS(777)*UV(75)+JVS(841)*UV(76)& - &+JVS(883)*UV(77)+JVS(954)*UV(78)+JVS(1001)*UV(79)+JVS(1027)*UV(80)+JVS(1065)*UV(81)+JVS(1119)*UV(82) - JTUV(77) = JVS(41)*UV(4)+JVS(176)*UV(33)+JVS(191)*UV(36)+JVS(276)*UV(46)+JVS(285)*UV(47)+JVS(293)*UV(48)+JVS(308)& - &*UV(49)+JVS(318)*UV(50)+JVS(327)*UV(51)+JVS(353)*UV(52)+JVS(377)*UV(53)+JVS(389)*UV(54)+JVS(399)*UV(55)& - &+JVS(407)*UV(56)+JVS(415)*UV(57)+JVS(460)*UV(58)+JVS(471)*UV(59)+JVS(481)*UV(60)+JVS(493)*UV(61)+JVS(514)& - &*UV(62)+JVS(525)*UV(63)+JVS(547)*UV(64)+JVS(560)*UV(65)+JVS(590)*UV(66)+JVS(602)*UV(67)+JVS(619)*UV(68)& - &+JVS(636)*UV(69)+JVS(661)*UV(70)+JVS(673)*UV(71)+JVS(701)*UV(72)+JVS(716)*UV(73)+JVS(752)*UV(74)+JVS(842)& - &*UV(76)+JVS(884)*UV(77)+JVS(1002)*UV(79)+JVS(1028)*UV(80)+JVS(1066)*UV(81)+JVS(1120)*UV(82) - JTUV(78) = JVS(3)*UV(1)+JVS(6)*UV(2)+JVS(19)*UV(3)+JVS(44)*UV(5)+JVS(50)*UV(7)+JVS(52)*UV(8)+JVS(54)*UV(9)+JVS(56)& - &*UV(10)+JVS(61)*UV(12)+JVS(65)*UV(13)+JVS(67)*UV(14)+JVS(70)*UV(15)+JVS(73)*UV(16)+JVS(79)*UV(17)+JVS(85)& - &*UV(18)+JVS(88)*UV(19)+JVS(93)*UV(20)+JVS(96)*UV(21)+JVS(102)*UV(22)+JVS(109)*UV(23)+JVS(116)*UV(24)& - &+JVS(128)*UV(26)+JVS(141)*UV(27)+JVS(145)*UV(28)+JVS(150)*UV(29)+JVS(154)*UV(30)+JVS(159)*UV(31)+JVS(169)& - &*UV(32)+JVS(177)*UV(33)+JVS(181)*UV(34)+JVS(186)*UV(35)+JVS(192)*UV(36)+JVS(197)*UV(37)+JVS(221)*UV(38)& - &+JVS(226)*UV(39)+JVS(230)*UV(40)+JVS(234)*UV(41)+JVS(243)*UV(42)+JVS(248)*UV(43)+JVS(257)*UV(44)+JVS(264)& - &*UV(45)+JVS(277)*UV(46)+JVS(286)*UV(47)+JVS(294)*UV(48)+JVS(309)*UV(49)+JVS(319)*UV(50)+JVS(328)*UV(51)& - &+JVS(354)*UV(52)+JVS(378)*UV(53)+JVS(400)*UV(55)+JVS(408)*UV(56)+JVS(416)*UV(57)+JVS(461)*UV(58)+JVS(494)& - &*UV(61)+JVS(515)*UV(62)+JVS(526)*UV(63)+JVS(548)*UV(64)+JVS(561)*UV(65)+JVS(591)*UV(66)+JVS(603)*UV(67)& - &+JVS(662)*UV(70)+JVS(674)*UV(71)+JVS(702)*UV(72)+JVS(717)*UV(73)+JVS(753)*UV(74)+JVS(779)*UV(75)+JVS(843)& - &*UV(76)+JVS(885)*UV(77)+JVS(956)*UV(78)+JVS(1003)*UV(79)+JVS(1029)*UV(80)+JVS(1067)*UV(81)+JVS(1121)*UV(82) - JTUV(79) = JVS(58)*UV(11)+JVS(122)*UV(25)+JVS(129)*UV(26)+JVS(155)*UV(30)+JVS(170)*UV(32)+JVS(182)*UV(34)+JVS(187)& - &*UV(35)+JVS(193)*UV(36)+JVS(198)*UV(37)+JVS(222)*UV(38)+JVS(227)*UV(39)+JVS(231)*UV(40)+JVS(235)*UV(41)& - &+JVS(244)*UV(42)+JVS(249)*UV(43)+JVS(265)*UV(45)+JVS(278)*UV(46)+JVS(287)*UV(47)+JVS(295)*UV(48)+JVS(310)& - &*UV(49)+JVS(329)*UV(51)+JVS(355)*UV(52)+JVS(379)*UV(53)+JVS(391)*UV(54)+JVS(401)*UV(55)+JVS(409)*UV(56)& - &+JVS(417)*UV(57)+JVS(462)*UV(58)+JVS(473)*UV(59)+JVS(483)*UV(60)+JVS(495)*UV(61)+JVS(516)*UV(62)+JVS(527)& - &*UV(63)+JVS(549)*UV(64)+JVS(562)*UV(65)+JVS(592)*UV(66)+JVS(604)*UV(67)+JVS(621)*UV(68)+JVS(638)*UV(69)& - &+JVS(663)*UV(70)+JVS(675)*UV(71)+JVS(718)*UV(73)+JVS(754)*UV(74)+JVS(844)*UV(76)+JVS(886)*UV(77)+JVS(957)& - &*UV(78)+JVS(1004)*UV(79)+JVS(1030)*UV(80)+JVS(1068)*UV(81)+JVS(1122)*UV(82) - JTUV(80) = JVS(42)*UV(4)+JVS(117)*UV(24)+JVS(356)*UV(52)+JVS(380)*UV(53)+JVS(463)*UV(58)+JVS(550)*UV(64)+JVS(593)& - &*UV(66)+JVS(755)*UV(74)+JVS(781)*UV(75)+JVS(845)*UV(76)+JVS(887)*UV(77)+JVS(1005)*UV(79)+JVS(1031)*UV(80)& - &+JVS(1069)*UV(81)+JVS(1123)*UV(82) - JTUV(81) = JVS(103)*UV(22)+JVS(110)*UV(23)+JVS(123)*UV(25)+JVS(183)*UV(34)+JVS(223)*UV(38)+JVS(259)*UV(44)+JVS(279)& - &*UV(46)+JVS(288)*UV(47)+JVS(296)*UV(48)+JVS(311)*UV(49)+JVS(321)*UV(50)+JVS(330)*UV(51)+JVS(357)*UV(52)& - &+JVS(381)*UV(53)+JVS(392)*UV(54)+JVS(402)*UV(55)+JVS(410)*UV(56)+JVS(418)*UV(57)+JVS(464)*UV(58)+JVS(474)& - &*UV(59)+JVS(484)*UV(60)+JVS(496)*UV(61)+JVS(517)*UV(62)+JVS(528)*UV(63)+JVS(551)*UV(64)+JVS(594)*UV(66)& - &+JVS(605)*UV(67)+JVS(622)*UV(68)+JVS(639)*UV(69)+JVS(665)*UV(70)+JVS(676)*UV(71)+JVS(704)*UV(72)+JVS(719)& - &*UV(73)+JVS(756)*UV(74)+JVS(846)*UV(76)+JVS(888)*UV(77)+JVS(959)*UV(78)+JVS(1006)*UV(79)+JVS(1032)*UV(80)& - &+JVS(1070)*UV(81)+JVS(1124)*UV(82) - JTUV(82) = JVS(59)*UV(11)+JVS(89)*UV(19)+JVS(97)*UV(21)+JVS(111)*UV(23)+JVS(124)*UV(25)+JVS(130)*UV(26)+JVS(146)& - &*UV(28)+JVS(151)*UV(29)+JVS(160)*UV(31)+JVS(171)*UV(32)+JVS(194)*UV(36)+JVS(245)*UV(42)+JVS(260)*UV(44)& - &+JVS(266)*UV(45)+JVS(518)*UV(62)+JVS(677)*UV(71)+JVS(705)*UV(72)+JVS(847)*UV(76)+JVS(889)*UV(77)+JVS(960)& - &*UV(78)+JVS(1007)*UV(79)+JVS(1071)*UV(81)+JVS(1125)*UV(82) - -END SUBROUTINE JacTR_SP_Vec - -! End of JacTR_SP_Vec function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE RACM_Jacobian - diff --git a/boxmox/compiled_mechs/RACM/RACM_Jacobian.o b/boxmox/compiled_mechs/RACM/RACM_Jacobian.o deleted file mode 100644 index e3208e2aa39d9de7faad57de031047b3b2764865..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/RACM_Jacobian.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/RACM_JacobianSP.f90 b/boxmox/compiled_mechs/RACM/RACM_JacobianSP.f90 deleted file mode 100644 index 098f39a00a76a897d180e3418c2460aa8c14c34e..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RACM/RACM_JacobianSP.f90 +++ /dev/null @@ -1,256 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Sparse Jacobian Data Structures File -! -! Generated by KPP-2.2.3 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 : RACM_JacobianSP.f90 -! Time : Thu Oct 8 08:22:22 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RACM_22746_BOXMOX -! Equation file : RACM.kpp -! Output root filename : RACM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RACM_JacobianSP - - PUBLIC - SAVE - - -! Sparse Jacobian Data - - - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_0 = (/ & - 1, 1, 1, 2, 2, 2, 3, 3, 3, 3, 3, 3, & - 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, & - 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, & - 4, 4, 4, 4, 4, 4, 5, 5, 6, 6, 7, 7, & - 7, 7, 8, 8, 9, 9, 10, 10, 11, 11, 11, 12, & - 12, 13, 13, 13, 13, 14, 14, 15, 15, 15, 16, 16, & - 16, 17, 17, 17, 17, 17, 17, 18, 18, 18, 18, 18, & - 18, 19, 19, 19, 19, 20, 20, 20, 20, 21, 21, 21, & - 21, 22, 22, 22, 22, 22, 22, 22, 23, 23, 23, 23, & - 23, 23, 23, 24, 24, 24, 24, 24, 24, 25, 25, 25, & - 25, 25, 25, 25, 26, 26, 26, 26, 26, 26, 27, 27, & - 27, 27, 27, 27, 27, 27, 27, 27, 27, 28, 28, 28, & - 28, 28, 29, 29, 29, 29, 29, 30, 30, 30, 30, 31, & - 31, 31, 31, 31, 32, 32, 32, 32, 32, 32, 32, 32, & - 32, 32, 32, 33, 33, 33, 33, 33, 33, 34, 34, 34, & - 34, 34, 34, 35, 35, 35, 35, 36, 36, 36, 36, 36, & - 36, 36, 37, 37, 37, 37, 38, 38, 38, 38, 38, 38, & - 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, & - 38, 38, 38, 38, 38, 38, 38, 39, 39, 39, 39, 40, & - 40, 40, 40, 41, 41, 41, 41, 42, 42, 42, 42, 42, & - 42, 42, 42, 42, 42, 43, 43, 43, 43, 44, 44, 44, & - 44, 44, 44, 44, 44, 44, 44, 44, 45, 45, 45, 45, & - 45, 45, 46, 46, 46, 46, 46, 46, 46, 46, 46, 46, & - 46, 46, 46, 47, 47, 47, 47, 47, 47, 47, 47, 47, & - 48, 48, 48, 48, 48, 48, 48, 48, 49, 49, 49, 49, & - 49, 49, 49, 49, 49, 49, 49, 49, 49, 49, 49, 50, & - 50, 50, 50, 50, 50, 50, 50, 50, 50, 51, 51, 51, & - 51, 51, 51, 51, 51, 51, 52, 52, 52, 52, 52, 52, & - 52, 52, 52, 52, 52, 52, 52, 52, 52, 52, 52, 52, & - 52, 52, 52, 52, 52, 52, 52, 52, 52, 53, 53, 53 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_1 = (/ & - 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, & - 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 54, 54, & - 54, 54, 54, 54, 54, 54, 54, 54, 54, 55, 55, 55, & - 55, 55, 55, 55, 55, 55, 56, 56, 56, 56, 56, 56, & - 56, 56, 57, 57, 57, 57, 57, 57, 57, 57, 58, 58, & - 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, & - 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, & - 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, & - 58, 58, 58, 58, 58, 58, 58, 58, 58, 59, 59, 59, & - 59, 59, 59, 59, 59, 59, 59, 60, 60, 60, 60, 60, & - 60, 60, 60, 60, 60, 61, 61, 61, 61, 61, 61, 61, & - 61, 61, 61, 61, 62, 62, 62, 62, 62, 62, 62, 62, & - 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, & - 62, 62, 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, & - 63, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, & - 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, & - 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 66, & - 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, & - 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, & - 66, 66, 66, 66, 66, 66, 66, 67, 67, 67, 67, 67, & - 67, 67, 67, 67, 67, 68, 68, 68, 68, 68, 68, 68, & - 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 69, 69, & - 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, & - 69, 69, 69, 70, 70, 70, 70, 70, 70, 70, 70, 70, & - 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, & - 70, 70, 70, 70, 70, 70, 71, 71, 71, 71, 71, 71, & - 71, 71, 71, 71, 71, 72, 72, 72, 72, 72, 72, 72, & - 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, & - 72, 72, 72, 72, 72, 72, 72, 72, 72, 73, 73, 73, & - 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_2 = (/ & - 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, & - 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, & - 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, & - 74, 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, & - 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, & - 75, 75, 75, 76, 76, 76, 76, 76, 76, 76, 76, 76, & - 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, & - 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, & - 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, & - 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, & - 76, 76, 76, 76, 76, 76, 76, 77, 77, 77, 77, 77, & - 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, & - 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, & - 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, & - 77, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, & - 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, & - 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, & - 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, & - 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, & - 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, & - 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, & - 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, & - 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, & - 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 79, 80, & - 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, & - 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, & - 80, 81, 81, 81, 81, 81, 81, 81, 81, 81, 81, 81, & - 81, 81, 81, 81, 81, 81, 81, 81, 81, 81, 81, 81, & - 81, 81, 81, 81, 81, 81, 81, 81, 81, 81, 81, 81, & - 81, 81, 81, 82, 82, 82, 82, 82, 82, 82, 82, 82 /) - INTEGER, PARAMETER, DIMENSION(45) :: LU_IROW_3 = (/ & - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, & - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, & - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, & - 82, 82, 82, 82, 82, 82, 82, 82, 82 /) - INTEGER, PARAMETER, DIMENSION(1125) :: LU_IROW = (/& - LU_IROW_0, LU_IROW_1, LU_IROW_2, LU_IROW_3 /) - - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_0 = (/ & - 1, 5, 78, 2, 38, 78, 3, 14, 30, 35, 39, 40, & - 43, 45, 49, 63, 65, 72, 78, 4, 35, 39, 41, 47, & - 48, 50, 56, 57, 61, 63, 65, 67, 68, 69, 70, 71, & - 72, 73, 74, 76, 77, 80, 5, 78, 6, 72, 7, 50, & - 76, 78, 8, 78, 9, 78, 10, 78, 11, 79, 82, 12, & - 78, 13, 44, 76, 78, 14, 78, 15, 63, 78, 16, 34, & - 78, 17, 41, 65, 67, 72, 78, 18, 41, 65, 67, 72, & - 78, 19, 76, 78, 82, 20, 74, 76, 78, 21, 44, 78, & - 82, 21, 22, 34, 44, 78, 81, 82, 23, 28, 29, 31, & - 78, 81, 82, 12, 24, 45, 74, 78, 80, 6, 25, 43, & - 72, 79, 81, 82, 26, 42, 76, 78, 79, 82, 27, 37, & - 39, 40, 41, 43, 65, 67, 72, 76, 78, 9, 28, 72, & - 78, 82, 10, 29, 72, 78, 82, 30, 72, 78, 79, 31, & - 42, 72, 78, 82, 32, 42, 46, 53, 58, 63, 66, 76, & - 78, 79, 82, 33, 63, 72, 76, 77, 78, 34, 40, 50, & - 78, 79, 81, 35, 72, 78, 79, 36, 45, 72, 77, 78, & - 79, 82, 37, 72, 78, 79, 14, 16, 30, 34, 37, 38, & - 39, 40, 41, 43, 44, 45, 46, 49, 50, 53, 58, 63, & - 65, 66, 67, 72, 78, 79, 81, 39, 72, 78, 79, 40, & - 72, 78, 79, 41, 72, 78, 79, 26, 28, 29, 31, 42, & - 72, 76, 78, 79, 82, 43, 72, 78, 79, 13, 21, 40, & - 44, 49, 72, 76, 78, 79, 81, 82, 45, 71, 72, 78, & - 79, 82, 14, 46, 54, 59, 60, 63, 72, 73, 74, 77, & - 78, 79, 81, 30, 47, 72, 74, 76, 77, 78, 79, 81, & - 48, 65, 74, 76, 77, 78, 79, 81, 7, 35, 39, 40, & - 43, 49, 50, 55, 72, 74, 76, 77, 78, 79, 81, 40, & - 43, 50, 72, 74, 76, 77, 78, 79, 81, 37, 51, 72, & - 74, 76, 77, 78, 79, 81, 8, 15, 35, 37, 41, 48, & - 51, 52, 56, 57, 61, 62, 63, 65, 67, 68, 69, 72, & - 73, 74, 75, 76, 77, 78, 79, 80, 81, 22, 24, 34 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_1 = (/ & - 40, 44, 45, 49, 50, 53, 54, 55, 59, 60, 63, 71, & - 72, 73, 74, 76, 77, 78, 79, 80, 81, 82, 31, 42, & - 54, 72, 74, 76, 77, 78, 79, 81, 82, 39, 55, 72, & - 74, 76, 77, 78, 79, 81, 12, 56, 74, 76, 77, 78, & - 79, 81, 8, 57, 74, 76, 77, 78, 79, 81, 14, 16, & - 20, 24, 30, 33, 34, 35, 36, 39, 40, 41, 43, 44, & - 45, 46, 47, 48, 49, 50, 51, 54, 55, 56, 57, 58, & - 59, 60, 61, 63, 64, 65, 67, 68, 69, 70, 71, 72, & - 73, 74, 76, 77, 78, 79, 80, 81, 82, 28, 59, 72, & - 74, 76, 77, 78, 79, 81, 82, 29, 60, 72, 74, 76, & - 77, 78, 79, 81, 82, 35, 41, 61, 67, 72, 74, 76, & - 77, 78, 79, 81, 26, 42, 45, 51, 55, 56, 57, 59, & - 60, 62, 68, 69, 71, 72, 73, 74, 76, 77, 78, 79, & - 81, 82, 59, 60, 63, 72, 74, 76, 77, 78, 79, 81, & - 82, 9, 10, 33, 36, 42, 43, 45, 56, 57, 63, 64, & - 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, & - 39, 43, 50, 65, 72, 74, 76, 77, 78, 79, 81, 12, & - 14, 15, 35, 37, 41, 47, 48, 51, 56, 57, 61, 62, & - 63, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, & - 76, 77, 78, 79, 80, 81, 82, 50, 55, 67, 72, 74, & - 76, 77, 78, 79, 81, 30, 35, 37, 39, 41, 43, 65, & - 67, 68, 69, 72, 74, 76, 77, 78, 79, 81, 30, 35, & - 37, 39, 41, 43, 65, 67, 68, 69, 72, 74, 76, 77, & - 78, 79, 81, 17, 37, 39, 41, 52, 56, 57, 61, 62, & - 63, 65, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, & - 77, 78, 79, 80, 81, 82, 45, 63, 71, 72, 74, 76, & - 77, 78, 79, 81, 82, 25, 28, 29, 30, 31, 35, 37, & - 39, 40, 41, 42, 43, 45, 49, 50, 55, 63, 65, 67, & - 71, 72, 74, 76, 77, 78, 79, 81, 82, 14, 62, 68, & - 69, 71, 72, 73, 74, 75, 76, 77, 78, 79, 81, 82 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_2 = (/ & - 18, 20, 33, 40, 41, 43, 47, 48, 50, 51, 54, 55, & - 56, 57, 59, 60, 61, 63, 64, 65, 66, 67, 68, 69, & - 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, & - 82, 47, 48, 51, 54, 55, 56, 57, 59, 60, 61, 64, & - 65, 67, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, & - 80, 81, 82, 5, 8, 9, 10, 12, 14, 15, 19, 20, & - 22, 24, 26, 27, 28, 29, 30, 31, 33, 34, 37, 38, & - 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, & - 51, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, & - 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, & - 76, 77, 78, 79, 80, 81, 82, 24, 33, 36, 40, 43, & - 44, 45, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, & - 57, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, & - 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, & - 82, 5, 6, 8, 9, 10, 12, 13, 14, 15, 16, 17, & - 18, 19, 20, 21, 22, 23, 24, 27, 28, 29, 30, 31, & - 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, & - 44, 45, 46, 49, 50, 52, 53, 54, 55, 56, 57, 58, & - 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, & - 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, & - 11, 19, 25, 30, 32, 35, 36, 37, 39, 40, 41, 42, & - 43, 45, 46, 47, 48, 51, 53, 54, 55, 56, 57, 58, & - 59, 60, 61, 63, 64, 65, 66, 67, 68, 69, 70, 71, & - 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 37, & - 39, 41, 43, 52, 56, 57, 61, 62, 63, 65, 67, 68, & - 69, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, & - 82, 23, 25, 28, 29, 31, 42, 43, 44, 47, 48, 49, & - 50, 51, 54, 55, 56, 57, 59, 60, 61, 64, 65, 67, & - 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, & - 80, 81, 82, 11, 16, 19, 21, 23, 25, 26, 28, 29 /) - INTEGER, PARAMETER, DIMENSION(45) :: LU_ICOL_3 = (/ & - 31, 32, 34, 36, 40, 42, 43, 44, 45, 46, 47, 48, & - 49, 50, 51, 53, 54, 55, 56, 57, 58, 59, 60, 61, & - 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, & - 74, 75, 76, 77, 78, 79, 80, 81, 82 /) - INTEGER, PARAMETER, DIMENSION(1125) :: LU_ICOL = (/& - LU_ICOL_0, LU_ICOL_1, LU_ICOL_2, LU_ICOL_3 /) - - INTEGER, PARAMETER, DIMENSION(83) :: LU_CROW = (/ & - 1, 4, 7, 20, 43, 45, 47, 51, 53, 55, 57, 60, & - 62, 66, 68, 71, 74, 80, 86, 90, 94, 98,105,112, & - 118,125,131,142,147,152,156,161,172,178,184,188, & - 195,199,224,228,232,236,246,250,261,267,280,289, & - 297,312,322,331,358,383,394,403,411,419,466,476, & - 486,497,519,530,553,564,596,606,623,640,667,678, & - 706,721,758,784,848,890,961,1008,1034,1072,1126 /) - - INTEGER, PARAMETER, DIMENSION(83) :: LU_DIAG = (/ & - 1, 4, 7, 20, 43, 45, 47, 51, 53, 55, 57, 60, & - 62, 66, 68, 71, 74, 80, 86, 90, 94, 99,105,113, & - 119,125,131,143,148,152,156,161,172,178,184,188, & - 195,204,224,228,232,240,246,253,261,268,281,289, & - 302,314,323,338,366,385,395,404,412,444,467,477, & - 488,506,521,540,556,579,598,614,632,654,669,698, & - 712,749,776,841,884,956,1004,1031,1070,1125,1126 /) - - -END MODULE RACM_JacobianSP - diff --git a/boxmox/compiled_mechs/RACM/RACM_JacobianSP.o b/boxmox/compiled_mechs/RACM/RACM_JacobianSP.o deleted file mode 100644 index 2d10a03839807bd0d7da6dd5229b2ce117d54354..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/RACM_JacobianSP.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/RACM_LinearAlgebra.f90 b/boxmox/compiled_mechs/RACM/RACM_LinearAlgebra.f90 deleted file mode 100644 index d2bee0444ead43357552a5aba674c7389ba39b51..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RACM/RACM_LinearAlgebra.f90 +++ /dev/null @@ -1,1640 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Linear Algebra Data and Routines File -! -! Generated by KPP-2.2.3 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 : RACM_LinearAlgebra.f90 -! Time : Thu Oct 8 08:22:22 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RACM_22746_BOXMOX -! Equation file : RACM.kpp -! Output root filename : RACM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RACM_LinearAlgebra - - USE RACM_Parameters - USE RACM_JacobianSP - - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! SPARSE_UTIL - SPARSE utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecomp( JVS, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RACM_Parameters - USE RACM_JacobianSP - - INTEGER :: IER - REAL(kind=dp) :: JVS(LU_NONZERO), W(NVAR), a - INTEGER :: k, kk, j, jj - - a = 0. ! mz_rs_20050606 - IER = 0 - DO k=1,NVAR - ! mz_rs_20050606: don't check if real value == 0 - ! IF ( JVS( LU_DIAG(k) ) .EQ. 0. ) THEN - IF ( ABS(JVS(LU_DIAG(k))) < TINY(a) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - W( LU_ICOL(kk) ) = JVS(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - a = -W(j) / JVS( LU_DIAG(j) ) - W(j) = -a - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVS(kk) = W( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecomp - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecompCmplx( JVS, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization, complex -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RACM_Parameters - USE RACM_JacobianSP - - INTEGER :: IER - DOUBLE COMPLEX :: JVS(LU_NONZERO), W(NVAR), a - REAL(kind=dp) :: b = 0.0 - INTEGER :: k, kk, j, jj - - IER = 0 - DO k=1,NVAR - IF ( ABS(JVS(LU_DIAG(k))) < TINY(b) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - W( LU_ICOL(kk) ) = JVS(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - a = -W(j) / JVS( LU_DIAG(j) ) - W(j) = -a - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVS(kk) = W( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecompCmplx - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecompCmplxR( JVSR, JVSI, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization, complex -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RACM_Parameters - USE RACM_JacobianSP - - INTEGER :: IER - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO) - REAL(kind=dp) :: WR(NVAR), WI(NVAR), ar, ai, den - INTEGER :: k, kk, j, jj - - IER = 0 - ar = 0.0 - DO k=1,NVAR - IF ( ( ABS(JVSR(LU_DIAG(k))) < TINY(ar) ) .AND. & - ( ABS(JVSI(LU_DIAG(k))) < TINY(ar) ) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - WR( LU_ICOL(kk) ) = JVSR(kk) - WI( LU_ICOL(kk) ) = JVSI(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - den = JVSR(LU_DIAG(j))**2 + JVSI(LU_DIAG(j))**2 - ar = -(WR(j)*JVSR(LU_DIAG(j)) + WI(j)*JVSI(LU_DIAG(j)))/den - ai = -(WI(j)*JVSR(LU_DIAG(j)) - WR(j)*JVSI(LU_DIAG(j)))/den - WR(j) = -ar - WI(j) = -ai - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - WR( LU_ICOL(jj) ) = WR( LU_ICOL(jj) ) + ar*JVSR(jj) - ai*JVSI(jj) - WI( LU_ICOL(jj) ) = WI( LU_ICOL(jj) ) + ar*JVSI(jj) + ai*JVSR(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVSR(kk) = WR( LU_ICOL(kk) ) - JVSI(kk) = WI( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecompCmplxR - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveIndirect( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse solve subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RACM_Parameters - USE RACM_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR), sum - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - X(i) = X(i) - JVS(j)*X(LU_ICOL(j)); - END DO - END DO - - DO i=NVAR,1,-1 - sum = X(i); - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sum = sum - JVS(j)*X(LU_ICOL(j)); - END DO - X(i) = sum/JVS(LU_DIAG(i)); - END DO - -END SUBROUTINE KppSolveIndirect - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRIndirect( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RACM_Parameters - USE RACM_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR) - - DO i=1,NVAR - X(i) = X(i)/JVS(LU_DIAG(i)) - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - -END SUBROUTINE KppSolveTRIndirect - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveCmplx( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RACM_Parameters - USE RACM_JacobianSP - - INTEGER :: i, j - DOUBLE COMPLEX :: JVS(LU_NONZERO), X(NVAR), sum - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - X(i) = X(i) - JVS(j)*X(LU_ICOL(j)); - END DO - END DO - - DO i=NVAR,1,-1 - sum = X(i); - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sum = sum - JVS(j)*X(LU_ICOL(j)); - END DO - X(i) = sum/JVS(LU_DIAG(i)); - END DO - -END SUBROUTINE KppSolveCmplx - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveCmplxR( JVSR, JVSI, XR, XI ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve subroutine using indirect addressing -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RACM_Parameters - USE RACM_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), sumr, sumi, den - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - XR(i) = XR(i) - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j))) - XI(i) = XI(i) - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j))) - END DO - END DO - - DO i=NVAR,1,-1 - sumr = XR(i); sumi = XI(i) - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sumr = sumr - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j))) - sumi = sumi - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j))) - END DO - den = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2 - XR(i) = (sumr*JVSR(LU_DIAG(i)) + sumi*JVSI(LU_DIAG(i)))/den - XI(i) = (sumi*JVSR(LU_DIAG(i)) - sumr*JVSI(LU_DIAG(i)))/den - END DO - -END SUBROUTINE KppSolveCmplxR - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRCmplx( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RACM_Parameters - USE RACM_JacobianSP - - INTEGER :: i, j - DOUBLE COMPLEX :: JVS(LU_NONZERO), X(NVAR) - - DO i=1,NVAR - X(i) = X(i)/JVS(LU_DIAG(i)) - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - -END SUBROUTINE KppSolveTRCmplx - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRCmplxR( JVSR, JVSI, XR, XI ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RACM_Parameters - USE RACM_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), den - - DO i=1,NVAR - den = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2 - XR(i) = (XR(i)*JVSR(LU_DIAG(i)) + XI(i)*JVSI(LU_DIAG(i)))/den - XI(i) = (XI(i)*JVSR(LU_DIAG(i)) - XR(i)*JVSI(LU_DIAG(i)))/den - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i)) - XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i)) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i)) - XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i)) - END DO - END DO - -END SUBROUTINE KppSolveTRCmplxR - - -! -! Next few commented subroutines perform sparse big linear algebra -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppDecompBig( JVS, IP, IER ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Sparse LU factorization -!! for the Runge Kutta (3n)x(3n) linear system -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE RACM_Parameters -! USE RACM_JacobianSP -! -! INTEGER :: IP3(3), IER, IP(3,NVAR) -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), W(3,3,NVAR), a(3,3), E(3,3) -! INTEGER :: k, kk, j, jj -! -! a = 0.0d0 -! IER = 0 -! DO k=1,NVAR -! DO kk = LU_CROW(k), LU_CROW(k+1)-1 -! W( 1:3,1:3,LU_ICOL(kk) ) = JVS(1:3,1:3,kk) -! END DO -! DO kk = LU_CROW(k), LU_DIAG(k)-1 -! j = LU_ICOL(kk) -! E(1:3,1:3) = JVS( 1:3,1:3,LU_DIAG(j) ) -! ! CALL DGETRF(3,3,E,3,IP3,IER) -! CALL FAC3(E,IP3,IER) -! IF ( IER /= 0 ) RETURN -! ! a = W(j) / JVS( LU_DIAG(j) ) -! a(1:3,1:3) = W( 1:3,1:3,j ) -! ! CALL DGETRS ('N',3,3,E,3,IP3,a,3,IER) -! CALL SOL3('N',E,IP3,a(1,1)) -! CALL SOL3('N',E,IP3,a(1,2)) -! CALL SOL3('N',E,IP3,a(1,3)) -! W(1:3,1:3,j) = a(1:3,1:3) -! DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 -! W( 1:3,1:3,LU_ICOL(jj) ) = W( 1:3,1:3,LU_ICOL(jj) ) & -! - MATMUL( a(1:3,1:3) , JVS(1:3,1:3,jj) ) -! END DO -! END DO -! DO kk = LU_CROW(k), LU_CROW(k+1)-1 -! JVS(1:3,1:3,kk) = W( 1:3,1:3,LU_ICOL(kk) ) -! END DO -! END DO -! -! DO k=1,NVAR -! ! CALL WGEFA(JVS(1,1,LU_DIAG(k)),3,3,IP(1,k),IER) -! ! CALL DGETRF(3,3,JVS(1,1,LU_DIAG(k)),3,IP(1,k),IER) -! CALL FAC3(JVS(1,1,LU_DIAG(k)),IP(1,k),IER) -! IF ( IER /= 0 ) RETURN -! END DO -! -!END SUBROUTINE KppDecompBig -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppSolveBig( JVS, IP, X ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Sparse solve subroutine using indirect addressing -!! for the Runge Kutta (3n)x(3n) linear system -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE RACM_Parameters -! USE RACM_JacobianSP -! -! INTEGER :: i, j, k, m, IP3(3), IP(3,NVAR), IER -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR), sum(3) -! -! DO i=1,NVAR -! DO j = LU_CROW(i), LU_DIAG(i)-1 -! !X(1:3,i) = X(1:3,i) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j))); -! DO k=1,3 -! DO m=1,3 -! X(k,i) = X(k,i) - JVS(k,m,j)*X(m,LU_ICOL(j)) -! END DO -! END DO -! END DO -! END DO -! -! DO i=NVAR,1,-1 -! sum(1:3) = X(1:3,i); -! DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 -! !sum(1:3) = sum(1:3) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j))); -! DO k=1,3 -! DO m=1,3 -! sum(k) = sum(k) - JVS(k,m,j)*X(m,LU_ICOL(j)) -! END DO -! END DO -! END DO -! ! X(i) = sum/JVS(LU_DIAG(i)); -! ! CALL DGETRS ('N',3,1,JVS(1:3,1:3,LU_DIAG(i)),3,IP(1,i),sum,3,0) -! ! CALL WGESL('N',JVS(1,1,LU_DIAG(i)),3,3,IP(1,i),sum) -! CALL SOL3('N',JVS(1,1,LU_DIAG(i)),IP(1,i),sum) -! X(1:3,i) = sum(1:3) -! END DO -! -!END SUBROUTINE KppSolveBig -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppSolveBigTR( JVS, IP, X ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Big sparse transpose solve using indirect addressing -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE RACM_Parameters -! USE RACM_JacobianSP -! -! INTEGER :: i, j, k, m, IP(3,NVAR) -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR) -! -! DO i=1,NVAR -! ! X(i) = X(i)/JVS(LU_DIAG(i)) -! CALL SOL3('T',JVS(1,1,LU_DIAG(i)),IP(1,i),X(1,i)) -! DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 -! !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) & -! ! - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) ) -! DO k=1,3 -! DO m=1,3 -! X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i) -! END DO -! END DO -! END DO -! END DO -! -! DO i=NVAR, 1, -1 -! DO j=LU_CROW(i),LU_DIAG(i)-1 -! !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) & -! ! - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) ) -! DO k=1,3 -! DO m=1,3 -! X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i) -! END DO -! END DO -! END DO -! END DO -! -!END SUBROUTINE KppSolveBigTR -! -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE FAC3(A,IPVT,INFO) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! FAC3 FACTORS THE MATRIX A (3,3) BY -!! GAUSS ELIMINATION WITH PARTIAL PIVOTING -!! LINPACK - LIKE -!! -!! Remove comments to perform pivoting -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! -! REAL(kind=dp) :: A(3,3) -! INTEGER :: IPVT(3),INFO -!! INTEGER :: L -!! REAL(kind=dp) :: t, dmax, da, TMP(3) -! REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0 -! -! info = 0 -!! t = TINY(da) -!! -!! da = ABS(A(1,1)); L = 1 -!! IF ( ABS(A(2,1))>da ) THEN -!! da = ABS(A(2,1)); L = 2 -!! IF ( ABS(A(3,1))>da ) THEN -!! L = 3 -!! END IF -!! END IF -!! IPVT(1) = L -!! IF (L /=1 ) THEN -!! TMP(1:3) = A(L,1:3) -!! A(L,1:3) = A(1,1:3) -!! A(1,1:3) = TMP(1:3) -!! END IF -!! IF (ABS(A(1,1)) < t) THEN -!! info = 1 -!! return -!! END IF -!! -! A(2,1) = A(2,1)/A(1,1) -! A(2,2) = A(2,2) - A(2,1)*A(1,2) -! A(2,3) = A(2,3) - A(2,1)*A(1,3) -! A(3,1) = A(3,1)/A(1,1) -! A(3,2) = A(3,2) - A(3,1)*A(1,2) -! A(3,3) = A(3,3) - A(3,1)*A(1,3) -! -!! IPVT(2) = 2 -!! IF (ABS(A(3,2))>ABS(A(2,2))) THEN -!! IPVT(2) = 3 -!! TMP(2:3) = A(3,2:3) -!! A(3,2:3) = A(2,2:3) -!! A(2,2:3) = TMP(2:3) -!! END IF -!! IF (ABS(A(2,2)) < t) THEN -!! info = 1 -!! return -!! END IF -!! -! A(3,2) = A(3,2)/A(2,2) -! A(3,3) = A(3,3) - A(3,2)*A(2,3) -! IPVT(3) = 3 -! -!END SUBROUTINE FAC3 -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE SOL3(Trans,A,IPVT,b) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! SOL3 solves the system 3x3 -!! A * x = b or trans(a) * x = b -!! using the factors computed by WGEFA. -!! -!! Trans = 'N' to solve A*x = b , -!! = 'T' to solve transpose(A)*x = b -!! LINPACK - LIKE -!! -!! Remove comments to use pivoting -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! CHARACTER :: Trans -! REAL(kind=dp) :: a(3,3),b(3) -! INTEGER :: IPVT(3) -!! INTEGER :: L -!! REAL(kind=dp) :: TMP -! -! SELECT CASE (Trans) -! -! CASE ('n','N') ! Solve A * x = b -! -!! Solve L*y = b -!! L = IPVT(1) -!! IF (L /= 1) THEN -!! TMP = B(1); B(1) = B(L); B(L) = TMP -!! END IF -! b(2) = b(2)-A(2,1)*b(1) -! b(3) = b(3)-A(3,1)*b(1) -! -!! L = IPVT(2) -!! IF (L /= 2) THEN -!! TMP = B(2); B(2) = B(L); B(L) = TMP -!! END IF -! b(3) = b(3)-A(3,2)*b(2) -! -!! Solve U*x = y -! b(3) = b(3)/A(3,3) -! b(2) = (b(2)-A(2,3)*b(3))/A(2,2) -! b(1) = (b(1)-A(1,3)*b(3)-A(1,2)*b(2))/A(1,1) -! -! -! CASE ('t','T') ! Solve transpose(A) * x = b -! -!! Solve transpose(U)*y = b -! b(1) = b(1)/A(1,1) -! b(2) = (b(2)-A(1,2)*b(1))/A(2,2) -! b(3) = (b(3)-A(1,3)*b(1)-A(2,3)*b(2))/A(3,3) -! -!! Solve transpose(L)*x = y -! b(2) = b(2)-A(3,2)*b(3) -!! L = ipvt(2) -!! IF (L /= 2) THEN -!! TMP = B(2); B(2) = B(L); B(L) = TMP -!! END IF -! b(1) = b(1)-A(3,1)*b(3)-A(2,1)*b(2) -!! L = ipvt(1) -!! IF (L /= 1) THEN -!! TMP = B(1); B(1) = B(L); B(L) = TMP -!! END IF -! -! END SELECT -! -!END SUBROUTINE SOL3 - -! End of SPARSE_UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! KppSolve - sparse back substitution -! Arguments : -! JVS - sparse Jacobian of variables -! X - Vector for variables -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE KppSolve ( JVS, X ) - -! JVS - sparse Jacobian of variables - REAL(kind=dp) :: JVS(LU_NONZERO) -! X - Vector for variables - REAL(kind=dp) :: X(NVAR) - - X(22) = X(22)-JVS(98)*X(21) - X(24) = X(24)-JVS(112)*X(12) - X(25) = X(25)-JVS(118)*X(6) - X(28) = X(28)-JVS(142)*X(9) - X(29) = X(29)-JVS(147)*X(10) - X(38) = X(38)-JVS(199)*X(14)-JVS(200)*X(16)-JVS(201)*X(30)-JVS(202)*X(34)-JVS(203)*X(37) - X(42) = X(42)-JVS(236)*X(26)-JVS(237)*X(28)-JVS(238)*X(29)-JVS(239)*X(31) - X(44) = X(44)-JVS(250)*X(13)-JVS(251)*X(21)-JVS(252)*X(40) - X(46) = X(46)-JVS(267)*X(14) - X(47) = X(47)-JVS(280)*X(30) - X(49) = X(49)-JVS(297)*X(7)-JVS(298)*X(35)-JVS(299)*X(39)-JVS(300)*X(40)-JVS(301)*X(43) - X(50) = X(50)-JVS(312)*X(40)-JVS(313)*X(43) - X(51) = X(51)-JVS(322)*X(37) - X(52) = X(52)-JVS(331)*X(8)-JVS(332)*X(15)-JVS(333)*X(35)-JVS(334)*X(37)-JVS(335)*X(41)-JVS(336)*X(48)-JVS(337)*X(51) - X(53) = X(53)-JVS(358)*X(22)-JVS(359)*X(24)-JVS(360)*X(34)-JVS(361)*X(40)-JVS(362)*X(44)-JVS(363)*X(45)-JVS(364)*X(49)& - &-JVS(365)*X(50) - X(54) = X(54)-JVS(383)*X(31)-JVS(384)*X(42) - X(55) = X(55)-JVS(394)*X(39) - X(56) = X(56)-JVS(403)*X(12) - X(57) = X(57)-JVS(411)*X(8) - X(58) = X(58)-JVS(419)*X(14)-JVS(420)*X(16)-JVS(421)*X(20)-JVS(422)*X(24)-JVS(423)*X(30)-JVS(424)*X(33)-JVS(425)*X(34)& - &-JVS(426)*X(35)-JVS(427)*X(36)-JVS(428)*X(39)-JVS(429)*X(40)-JVS(430)*X(41)-JVS(431)*X(43)-JVS(432)*X(44)& - &-JVS(433)*X(45)-JVS(434)*X(46)-JVS(435)*X(47)-JVS(436)*X(48)-JVS(437)*X(49)-JVS(438)*X(50)-JVS(439)*X(51)& - &-JVS(440)*X(54)-JVS(441)*X(55)-JVS(442)*X(56)-JVS(443)*X(57) - X(59) = X(59)-JVS(466)*X(28) - X(60) = X(60)-JVS(476)*X(29) - X(61) = X(61)-JVS(486)*X(35)-JVS(487)*X(41) - X(62) = X(62)-JVS(497)*X(26)-JVS(498)*X(42)-JVS(499)*X(45)-JVS(500)*X(51)-JVS(501)*X(55)-JVS(502)*X(56)-JVS(503)*X(57)& - &-JVS(504)*X(59)-JVS(505)*X(60) - X(63) = X(63)-JVS(519)*X(59)-JVS(520)*X(60) - X(64) = X(64)-JVS(530)*X(9)-JVS(531)*X(10)-JVS(532)*X(33)-JVS(533)*X(36)-JVS(534)*X(42)-JVS(535)*X(43)-JVS(536)*X(45)& - &-JVS(537)*X(56)-JVS(538)*X(57)-JVS(539)*X(63) - X(65) = X(65)-JVS(553)*X(39)-JVS(554)*X(43)-JVS(555)*X(50) - X(66) = X(66)-JVS(564)*X(12)-JVS(565)*X(14)-JVS(566)*X(15)-JVS(567)*X(35)-JVS(568)*X(37)-JVS(569)*X(41)-JVS(570)*X(47)& - &-JVS(571)*X(48)-JVS(572)*X(51)-JVS(573)*X(56)-JVS(574)*X(57)-JVS(575)*X(61)-JVS(576)*X(62)-JVS(577)*X(63)& - &-JVS(578)*X(65) - X(67) = X(67)-JVS(596)*X(50)-JVS(597)*X(55) - X(68) = X(68)-JVS(606)*X(30)-JVS(607)*X(35)-JVS(608)*X(37)-JVS(609)*X(39)-JVS(610)*X(41)-JVS(611)*X(43)-JVS(612)*X(65)& - &-JVS(613)*X(67) - X(69) = X(69)-JVS(623)*X(30)-JVS(624)*X(35)-JVS(625)*X(37)-JVS(626)*X(39)-JVS(627)*X(41)-JVS(628)*X(43)-JVS(629)*X(65)& - &-JVS(630)*X(67)-JVS(631)*X(68) - X(70) = X(70)-JVS(640)*X(17)-JVS(641)*X(37)-JVS(642)*X(39)-JVS(643)*X(41)-JVS(644)*X(52)-JVS(645)*X(56)-JVS(646)*X(57)& - &-JVS(647)*X(61)-JVS(648)*X(62)-JVS(649)*X(63)-JVS(650)*X(65)-JVS(651)*X(67)-JVS(652)*X(68)-JVS(653)*X(69) - X(71) = X(71)-JVS(667)*X(45)-JVS(668)*X(63) - X(72) = X(72)-JVS(678)*X(25)-JVS(679)*X(28)-JVS(680)*X(29)-JVS(681)*X(30)-JVS(682)*X(31)-JVS(683)*X(35)-JVS(684)*X(37)& - &-JVS(685)*X(39)-JVS(686)*X(40)-JVS(687)*X(41)-JVS(688)*X(42)-JVS(689)*X(43)-JVS(690)*X(45)-JVS(691)*X(49)& - &-JVS(692)*X(50)-JVS(693)*X(55)-JVS(694)*X(63)-JVS(695)*X(65)-JVS(696)*X(67)-JVS(697)*X(71) - X(73) = X(73)-JVS(706)*X(14)-JVS(707)*X(62)-JVS(708)*X(68)-JVS(709)*X(69)-JVS(710)*X(71)-JVS(711)*X(72) - X(74) = X(74)-JVS(721)*X(18)-JVS(722)*X(20)-JVS(723)*X(33)-JVS(724)*X(40)-JVS(725)*X(41)-JVS(726)*X(43)-JVS(727)*X(47)& - &-JVS(728)*X(48)-JVS(729)*X(50)-JVS(730)*X(51)-JVS(731)*X(54)-JVS(732)*X(55)-JVS(733)*X(56)-JVS(734)*X(57)& - &-JVS(735)*X(59)-JVS(736)*X(60)-JVS(737)*X(61)-JVS(738)*X(63)-JVS(739)*X(64)-JVS(740)*X(65)-JVS(741)*X(66)& - &-JVS(742)*X(67)-JVS(743)*X(68)-JVS(744)*X(69)-JVS(745)*X(70)-JVS(746)*X(71)-JVS(747)*X(72)-JVS(748)*X(73) - X(75) = X(75)-JVS(758)*X(47)-JVS(759)*X(48)-JVS(760)*X(51)-JVS(761)*X(54)-JVS(762)*X(55)-JVS(763)*X(56)-JVS(764)*X(57)& - &-JVS(765)*X(59)-JVS(766)*X(60)-JVS(767)*X(61)-JVS(768)*X(64)-JVS(769)*X(65)-JVS(770)*X(67)-JVS(771)*X(70)& - &-JVS(772)*X(71)-JVS(773)*X(72)-JVS(774)*X(73)-JVS(775)*X(74) - X(76) = X(76)-JVS(784)*X(5)-JVS(785)*X(8)-JVS(786)*X(9)-JVS(787)*X(10)-JVS(788)*X(12)-JVS(789)*X(14)-JVS(790)*X(15)& - &-JVS(791)*X(19)-JVS(792)*X(20)-JVS(793)*X(22)-JVS(794)*X(24)-JVS(795)*X(26)-JVS(796)*X(27)-JVS(797)*X(28)& - &-JVS(798)*X(29)-JVS(799)*X(30)-JVS(800)*X(31)-JVS(801)*X(33)-JVS(802)*X(34)-JVS(803)*X(37)-JVS(804)*X(38)& - &-JVS(805)*X(39)-JVS(806)*X(40)-JVS(807)*X(41)-JVS(808)*X(42)-JVS(809)*X(43)-JVS(810)*X(44)-JVS(811)*X(45)& - &-JVS(812)*X(46)-JVS(813)*X(47)-JVS(814)*X(48)-JVS(815)*X(49)-JVS(816)*X(50)-JVS(817)*X(51)-JVS(818)*X(53)& - &-JVS(819)*X(54)-JVS(820)*X(55)-JVS(821)*X(56)-JVS(822)*X(57)-JVS(823)*X(58)-JVS(824)*X(59)-JVS(825)*X(60)& - &-JVS(826)*X(61)-JVS(827)*X(62)-JVS(828)*X(63)-JVS(829)*X(64)-JVS(830)*X(65)-JVS(831)*X(66)-JVS(832)*X(67)& - &-JVS(833)*X(68)-JVS(834)*X(69)-JVS(835)*X(70)-JVS(836)*X(71)-JVS(837)*X(72)-JVS(838)*X(73)-JVS(839)*X(74)& - &-JVS(840)*X(75) - X(77) = X(77)-JVS(848)*X(24)-JVS(849)*X(33)-JVS(850)*X(36)-JVS(851)*X(40)-JVS(852)*X(43)-JVS(853)*X(44)-JVS(854)*X(45)& - &-JVS(855)*X(47)-JVS(856)*X(48)-JVS(857)*X(49)-JVS(858)*X(50)-JVS(859)*X(51)-JVS(860)*X(52)-JVS(861)*X(53)& - &-JVS(862)*X(54)-JVS(863)*X(55)-JVS(864)*X(56)-JVS(865)*X(57)-JVS(866)*X(59)-JVS(867)*X(60)-JVS(868)*X(61)& - &-JVS(869)*X(62)-JVS(870)*X(63)-JVS(871)*X(64)-JVS(872)*X(65)-JVS(873)*X(66)-JVS(874)*X(67)-JVS(875)*X(68)& - &-JVS(876)*X(69)-JVS(877)*X(70)-JVS(878)*X(71)-JVS(879)*X(72)-JVS(880)*X(73)-JVS(881)*X(74)-JVS(882)*X(75)& - &-JVS(883)*X(76) - X(78) = X(78)-JVS(890)*X(5)-JVS(891)*X(6)-JVS(892)*X(8)-JVS(893)*X(9)-JVS(894)*X(10)-JVS(895)*X(12)-JVS(896)*X(13)& - &-JVS(897)*X(14)-JVS(898)*X(15)-JVS(899)*X(16)-JVS(900)*X(17)-JVS(901)*X(18)-JVS(902)*X(19)-JVS(903)*X(20)& - &-JVS(904)*X(21)-JVS(905)*X(22)-JVS(906)*X(23)-JVS(907)*X(24)-JVS(908)*X(27)-JVS(909)*X(28)-JVS(910)*X(29)& - &-JVS(911)*X(30)-JVS(912)*X(31)-JVS(913)*X(32)-JVS(914)*X(33)-JVS(915)*X(34)-JVS(916)*X(35)-JVS(917)*X(36)& - &-JVS(918)*X(37)-JVS(919)*X(38)-JVS(920)*X(39)-JVS(921)*X(40)-JVS(922)*X(41)-JVS(923)*X(42)-JVS(924)*X(43)& - &-JVS(925)*X(44)-JVS(926)*X(45)-JVS(927)*X(46)-JVS(928)*X(49)-JVS(929)*X(50)-JVS(930)*X(52)-JVS(931)*X(53)& - &-JVS(932)*X(54)-JVS(933)*X(55)-JVS(934)*X(56)-JVS(935)*X(57)-JVS(936)*X(58)-JVS(937)*X(59)-JVS(938)*X(60)& - &-JVS(939)*X(61)-JVS(940)*X(62)-JVS(941)*X(63)-JVS(942)*X(64)-JVS(943)*X(65)-JVS(944)*X(66)-JVS(945)*X(67)& - &-JVS(946)*X(68)-JVS(947)*X(69)-JVS(948)*X(70)-JVS(949)*X(71)-JVS(950)*X(72)-JVS(951)*X(73)-JVS(952)*X(74)& - &-JVS(953)*X(75)-JVS(954)*X(76)-JVS(955)*X(77) - X(79) = X(79)-JVS(961)*X(11)-JVS(962)*X(19)-JVS(963)*X(25)-JVS(964)*X(30)-JVS(965)*X(32)-JVS(966)*X(35)-JVS(967)*X(36)& - &-JVS(968)*X(37)-JVS(969)*X(39)-JVS(970)*X(40)-JVS(971)*X(41)-JVS(972)*X(42)-JVS(973)*X(43)-JVS(974)*X(45)& - &-JVS(975)*X(46)-JVS(976)*X(47)-JVS(977)*X(48)-JVS(978)*X(51)-JVS(979)*X(53)-JVS(980)*X(54)-JVS(981)*X(55)& - &-JVS(982)*X(56)-JVS(983)*X(57)-JVS(984)*X(58)-JVS(985)*X(59)-JVS(986)*X(60)-JVS(987)*X(61)-JVS(988)*X(63)& - &-JVS(989)*X(64)-JVS(990)*X(65)-JVS(991)*X(66)-JVS(992)*X(67)-JVS(993)*X(68)-JVS(994)*X(69)-JVS(995)*X(70)& - &-JVS(996)*X(71)-JVS(997)*X(72)-JVS(998)*X(73)-JVS(999)*X(74)-JVS(1000)*X(75)-JVS(1001)*X(76)-JVS(1002)*X(77)& - &-JVS(1003)*X(78) - X(80) = X(80)-JVS(1008)*X(37)-JVS(1009)*X(39)-JVS(1010)*X(41)-JVS(1011)*X(43)-JVS(1012)*X(52)-JVS(1013)*X(56)& - &-JVS(1014)*X(57)-JVS(1015)*X(61)-JVS(1016)*X(62)-JVS(1017)*X(63)-JVS(1018)*X(65)-JVS(1019)*X(67)-JVS(1020)& - &*X(68)-JVS(1021)*X(69)-JVS(1022)*X(71)-JVS(1023)*X(72)-JVS(1024)*X(73)-JVS(1025)*X(74)-JVS(1026)*X(75)& - &-JVS(1027)*X(76)-JVS(1028)*X(77)-JVS(1029)*X(78)-JVS(1030)*X(79) - X(81) = X(81)-JVS(1034)*X(23)-JVS(1035)*X(25)-JVS(1036)*X(28)-JVS(1037)*X(29)-JVS(1038)*X(31)-JVS(1039)*X(42)& - &-JVS(1040)*X(43)-JVS(1041)*X(44)-JVS(1042)*X(47)-JVS(1043)*X(48)-JVS(1044)*X(49)-JVS(1045)*X(50)-JVS(1046)& - &*X(51)-JVS(1047)*X(54)-JVS(1048)*X(55)-JVS(1049)*X(56)-JVS(1050)*X(57)-JVS(1051)*X(59)-JVS(1052)*X(60)& - &-JVS(1053)*X(61)-JVS(1054)*X(64)-JVS(1055)*X(65)-JVS(1056)*X(67)-JVS(1057)*X(68)-JVS(1058)*X(69)-JVS(1059)& - &*X(70)-JVS(1060)*X(71)-JVS(1061)*X(72)-JVS(1062)*X(73)-JVS(1063)*X(74)-JVS(1064)*X(75)-JVS(1065)*X(76)& - &-JVS(1066)*X(77)-JVS(1067)*X(78)-JVS(1068)*X(79)-JVS(1069)*X(80) - X(82) = X(82)-JVS(1072)*X(11)-JVS(1073)*X(16)-JVS(1074)*X(19)-JVS(1075)*X(21)-JVS(1076)*X(23)-JVS(1077)*X(25)& - &-JVS(1078)*X(26)-JVS(1079)*X(28)-JVS(1080)*X(29)-JVS(1081)*X(31)-JVS(1082)*X(32)-JVS(1083)*X(34)-JVS(1084)& - &*X(36)-JVS(1085)*X(40)-JVS(1086)*X(42)-JVS(1087)*X(43)-JVS(1088)*X(44)-JVS(1089)*X(45)-JVS(1090)*X(46)& - &-JVS(1091)*X(47)-JVS(1092)*X(48)-JVS(1093)*X(49)-JVS(1094)*X(50)-JVS(1095)*X(51)-JVS(1096)*X(53)-JVS(1097)& - &*X(54)-JVS(1098)*X(55)-JVS(1099)*X(56)-JVS(1100)*X(57)-JVS(1101)*X(58)-JVS(1102)*X(59)-JVS(1103)*X(60)& - &-JVS(1104)*X(61)-JVS(1105)*X(62)-JVS(1106)*X(63)-JVS(1107)*X(64)-JVS(1108)*X(65)-JVS(1109)*X(66)-JVS(1110)& - &*X(67)-JVS(1111)*X(68)-JVS(1112)*X(69)-JVS(1113)*X(70)-JVS(1114)*X(71)-JVS(1115)*X(72)-JVS(1116)*X(73)& - &-JVS(1117)*X(74)-JVS(1118)*X(75)-JVS(1119)*X(76)-JVS(1120)*X(77)-JVS(1121)*X(78)-JVS(1122)*X(79)-JVS(1123)& - &*X(80)-JVS(1124)*X(81) - X(82) = X(82)/JVS(1125) - X(81) = (X(81)-JVS(1071)*X(82))/(JVS(1070)) - X(80) = (X(80)-JVS(1032)*X(81)-JVS(1033)*X(82))/(JVS(1031)) - X(79) = (X(79)-JVS(1005)*X(80)-JVS(1006)*X(81)-JVS(1007)*X(82))/(JVS(1004)) - X(78) = (X(78)-JVS(957)*X(79)-JVS(958)*X(80)-JVS(959)*X(81)-JVS(960)*X(82))/(JVS(956)) - X(77) = (X(77)-JVS(885)*X(78)-JVS(886)*X(79)-JVS(887)*X(80)-JVS(888)*X(81)-JVS(889)*X(82))/(JVS(884)) - X(76) = (X(76)-JVS(842)*X(77)-JVS(843)*X(78)-JVS(844)*X(79)-JVS(845)*X(80)-JVS(846)*X(81)-JVS(847)*X(82))/(JVS(841)) - X(75) = (X(75)-JVS(777)*X(76)-JVS(778)*X(77)-JVS(779)*X(78)-JVS(780)*X(79)-JVS(781)*X(80)-JVS(782)*X(81)-JVS(783)& - &*X(82))/(JVS(776)) - X(74) = (X(74)-JVS(750)*X(75)-JVS(751)*X(76)-JVS(752)*X(77)-JVS(753)*X(78)-JVS(754)*X(79)-JVS(755)*X(80)-JVS(756)& - &*X(81)-JVS(757)*X(82))/(JVS(749)) - X(73) = (X(73)-JVS(713)*X(74)-JVS(714)*X(75)-JVS(715)*X(76)-JVS(716)*X(77)-JVS(717)*X(78)-JVS(718)*X(79)-JVS(719)& - &*X(81)-JVS(720)*X(82))/(JVS(712)) - X(72) = (X(72)-JVS(699)*X(74)-JVS(700)*X(76)-JVS(701)*X(77)-JVS(702)*X(78)-JVS(703)*X(79)-JVS(704)*X(81)-JVS(705)& - &*X(82))/(JVS(698)) - X(71) = (X(71)-JVS(670)*X(72)-JVS(671)*X(74)-JVS(672)*X(76)-JVS(673)*X(77)-JVS(674)*X(78)-JVS(675)*X(79)-JVS(676)& - &*X(81)-JVS(677)*X(82))/(JVS(669)) - X(70) = (X(70)-JVS(655)*X(71)-JVS(656)*X(72)-JVS(657)*X(73)-JVS(658)*X(74)-JVS(659)*X(75)-JVS(660)*X(76)-JVS(661)& - &*X(77)-JVS(662)*X(78)-JVS(663)*X(79)-JVS(664)*X(80)-JVS(665)*X(81)-JVS(666)*X(82))/(JVS(654)) - X(69) = (X(69)-JVS(633)*X(72)-JVS(634)*X(74)-JVS(635)*X(76)-JVS(636)*X(77)-JVS(637)*X(78)-JVS(638)*X(79)-JVS(639)& - &*X(81))/(JVS(632)) - X(68) = (X(68)-JVS(615)*X(69)-JVS(616)*X(72)-JVS(617)*X(74)-JVS(618)*X(76)-JVS(619)*X(77)-JVS(620)*X(78)-JVS(621)& - &*X(79)-JVS(622)*X(81))/(JVS(614)) - X(67) = (X(67)-JVS(599)*X(72)-JVS(600)*X(74)-JVS(601)*X(76)-JVS(602)*X(77)-JVS(603)*X(78)-JVS(604)*X(79)-JVS(605)& - &*X(81))/(JVS(598)) - X(66) = (X(66)-JVS(580)*X(67)-JVS(581)*X(68)-JVS(582)*X(69)-JVS(583)*X(70)-JVS(584)*X(71)-JVS(585)*X(72)-JVS(586)& - &*X(73)-JVS(587)*X(74)-JVS(588)*X(75)-JVS(589)*X(76)-JVS(590)*X(77)-JVS(591)*X(78)-JVS(592)*X(79)-JVS(593)*X(80)& - &-JVS(594)*X(81)-JVS(595)*X(82))/(JVS(579)) - X(65) = (X(65)-JVS(557)*X(72)-JVS(558)*X(74)-JVS(559)*X(76)-JVS(560)*X(77)-JVS(561)*X(78)-JVS(562)*X(79)-JVS(563)& - &*X(81))/(JVS(556)) - X(64) = (X(64)-JVS(541)*X(71)-JVS(542)*X(72)-JVS(543)*X(73)-JVS(544)*X(74)-JVS(545)*X(75)-JVS(546)*X(76)-JVS(547)& - &*X(77)-JVS(548)*X(78)-JVS(549)*X(79)-JVS(550)*X(80)-JVS(551)*X(81)-JVS(552)*X(82))/(JVS(540)) - X(63) = (X(63)-JVS(522)*X(72)-JVS(523)*X(74)-JVS(524)*X(76)-JVS(525)*X(77)-JVS(526)*X(78)-JVS(527)*X(79)-JVS(528)& - &*X(81)-JVS(529)*X(82))/(JVS(521)) - X(62) = (X(62)-JVS(507)*X(68)-JVS(508)*X(69)-JVS(509)*X(71)-JVS(510)*X(72)-JVS(511)*X(73)-JVS(512)*X(74)-JVS(513)& - &*X(76)-JVS(514)*X(77)-JVS(515)*X(78)-JVS(516)*X(79)-JVS(517)*X(81)-JVS(518)*X(82))/(JVS(506)) - X(61) = (X(61)-JVS(489)*X(67)-JVS(490)*X(72)-JVS(491)*X(74)-JVS(492)*X(76)-JVS(493)*X(77)-JVS(494)*X(78)-JVS(495)& - &*X(79)-JVS(496)*X(81))/(JVS(488)) - X(60) = (X(60)-JVS(478)*X(72)-JVS(479)*X(74)-JVS(480)*X(76)-JVS(481)*X(77)-JVS(482)*X(78)-JVS(483)*X(79)-JVS(484)& - &*X(81)-JVS(485)*X(82))/(JVS(477)) - X(59) = (X(59)-JVS(468)*X(72)-JVS(469)*X(74)-JVS(470)*X(76)-JVS(471)*X(77)-JVS(472)*X(78)-JVS(473)*X(79)-JVS(474)& - &*X(81)-JVS(475)*X(82))/(JVS(467)) - X(58) = (X(58)-JVS(445)*X(59)-JVS(446)*X(60)-JVS(447)*X(61)-JVS(448)*X(63)-JVS(449)*X(64)-JVS(450)*X(65)-JVS(451)& - &*X(67)-JVS(452)*X(68)-JVS(453)*X(69)-JVS(454)*X(70)-JVS(455)*X(71)-JVS(456)*X(72)-JVS(457)*X(73)-JVS(458)*X(74)& - &-JVS(459)*X(76)-JVS(460)*X(77)-JVS(461)*X(78)-JVS(462)*X(79)-JVS(463)*X(80)-JVS(464)*X(81)-JVS(465)*X(82))& - &/(JVS(444)) - X(57) = (X(57)-JVS(413)*X(74)-JVS(414)*X(76)-JVS(415)*X(77)-JVS(416)*X(78)-JVS(417)*X(79)-JVS(418)*X(81))/(JVS(412)) - X(56) = (X(56)-JVS(405)*X(74)-JVS(406)*X(76)-JVS(407)*X(77)-JVS(408)*X(78)-JVS(409)*X(79)-JVS(410)*X(81))/(JVS(404)) - X(55) = (X(55)-JVS(396)*X(72)-JVS(397)*X(74)-JVS(398)*X(76)-JVS(399)*X(77)-JVS(400)*X(78)-JVS(401)*X(79)-JVS(402)& - &*X(81))/(JVS(395)) - X(54) = (X(54)-JVS(386)*X(72)-JVS(387)*X(74)-JVS(388)*X(76)-JVS(389)*X(77)-JVS(390)*X(78)-JVS(391)*X(79)-JVS(392)& - &*X(81)-JVS(393)*X(82))/(JVS(385)) - X(53) = (X(53)-JVS(367)*X(54)-JVS(368)*X(55)-JVS(369)*X(59)-JVS(370)*X(60)-JVS(371)*X(63)-JVS(372)*X(71)-JVS(373)& - &*X(72)-JVS(374)*X(73)-JVS(375)*X(74)-JVS(376)*X(76)-JVS(377)*X(77)-JVS(378)*X(78)-JVS(379)*X(79)-JVS(380)*X(80)& - &-JVS(381)*X(81)-JVS(382)*X(82))/(JVS(366)) - X(52) = (X(52)-JVS(339)*X(56)-JVS(340)*X(57)-JVS(341)*X(61)-JVS(342)*X(62)-JVS(343)*X(63)-JVS(344)*X(65)-JVS(345)& - &*X(67)-JVS(346)*X(68)-JVS(347)*X(69)-JVS(348)*X(72)-JVS(349)*X(73)-JVS(350)*X(74)-JVS(351)*X(75)-JVS(352)*X(76)& - &-JVS(353)*X(77)-JVS(354)*X(78)-JVS(355)*X(79)-JVS(356)*X(80)-JVS(357)*X(81))/(JVS(338)) - X(51) = (X(51)-JVS(324)*X(72)-JVS(325)*X(74)-JVS(326)*X(76)-JVS(327)*X(77)-JVS(328)*X(78)-JVS(329)*X(79)-JVS(330)& - &*X(81))/(JVS(323)) - X(50) = (X(50)-JVS(315)*X(72)-JVS(316)*X(74)-JVS(317)*X(76)-JVS(318)*X(77)-JVS(319)*X(78)-JVS(320)*X(79)-JVS(321)& - &*X(81))/(JVS(314)) - X(49) = (X(49)-JVS(303)*X(50)-JVS(304)*X(55)-JVS(305)*X(72)-JVS(306)*X(74)-JVS(307)*X(76)-JVS(308)*X(77)-JVS(309)& - &*X(78)-JVS(310)*X(79)-JVS(311)*X(81))/(JVS(302)) - X(48) = (X(48)-JVS(290)*X(65)-JVS(291)*X(74)-JVS(292)*X(76)-JVS(293)*X(77)-JVS(294)*X(78)-JVS(295)*X(79)-JVS(296)& - &*X(81))/(JVS(289)) - X(47) = (X(47)-JVS(282)*X(72)-JVS(283)*X(74)-JVS(284)*X(76)-JVS(285)*X(77)-JVS(286)*X(78)-JVS(287)*X(79)-JVS(288)& - &*X(81))/(JVS(281)) - X(46) = (X(46)-JVS(269)*X(54)-JVS(270)*X(59)-JVS(271)*X(60)-JVS(272)*X(63)-JVS(273)*X(72)-JVS(274)*X(73)-JVS(275)& - &*X(74)-JVS(276)*X(77)-JVS(277)*X(78)-JVS(278)*X(79)-JVS(279)*X(81))/(JVS(268)) - X(45) = (X(45)-JVS(262)*X(71)-JVS(263)*X(72)-JVS(264)*X(78)-JVS(265)*X(79)-JVS(266)*X(82))/(JVS(261)) - X(44) = (X(44)-JVS(254)*X(49)-JVS(255)*X(72)-JVS(256)*X(76)-JVS(257)*X(78)-JVS(258)*X(79)-JVS(259)*X(81)-JVS(260)& - &*X(82))/(JVS(253)) - X(43) = (X(43)-JVS(247)*X(72)-JVS(248)*X(78)-JVS(249)*X(79))/(JVS(246)) - X(42) = (X(42)-JVS(241)*X(72)-JVS(242)*X(76)-JVS(243)*X(78)-JVS(244)*X(79)-JVS(245)*X(82))/(JVS(240)) - X(41) = (X(41)-JVS(233)*X(72)-JVS(234)*X(78)-JVS(235)*X(79))/(JVS(232)) - X(40) = (X(40)-JVS(229)*X(72)-JVS(230)*X(78)-JVS(231)*X(79))/(JVS(228)) - X(39) = (X(39)-JVS(225)*X(72)-JVS(226)*X(78)-JVS(227)*X(79))/(JVS(224)) - X(38) = (X(38)-JVS(205)*X(39)-JVS(206)*X(40)-JVS(207)*X(41)-JVS(208)*X(43)-JVS(209)*X(44)-JVS(210)*X(45)-JVS(211)& - &*X(46)-JVS(212)*X(49)-JVS(213)*X(50)-JVS(214)*X(53)-JVS(215)*X(58)-JVS(216)*X(63)-JVS(217)*X(65)-JVS(218)*X(66)& - &-JVS(219)*X(67)-JVS(220)*X(72)-JVS(221)*X(78)-JVS(222)*X(79)-JVS(223)*X(81))/(JVS(204)) - X(37) = (X(37)-JVS(196)*X(72)-JVS(197)*X(78)-JVS(198)*X(79))/(JVS(195)) - X(36) = (X(36)-JVS(189)*X(45)-JVS(190)*X(72)-JVS(191)*X(77)-JVS(192)*X(78)-JVS(193)*X(79)-JVS(194)*X(82))/(JVS(188)) - X(35) = (X(35)-JVS(185)*X(72)-JVS(186)*X(78)-JVS(187)*X(79))/(JVS(184)) - X(34) = (X(34)-JVS(179)*X(40)-JVS(180)*X(50)-JVS(181)*X(78)-JVS(182)*X(79)-JVS(183)*X(81))/(JVS(178)) - X(33) = (X(33)-JVS(173)*X(63)-JVS(174)*X(72)-JVS(175)*X(76)-JVS(176)*X(77)-JVS(177)*X(78))/(JVS(172)) - X(32) = (X(32)-JVS(162)*X(42)-JVS(163)*X(46)-JVS(164)*X(53)-JVS(165)*X(58)-JVS(166)*X(63)-JVS(167)*X(66)-JVS(168)& - &*X(76)-JVS(169)*X(78)-JVS(170)*X(79)-JVS(171)*X(82))/(JVS(161)) - X(31) = (X(31)-JVS(157)*X(42)-JVS(158)*X(72)-JVS(159)*X(78)-JVS(160)*X(82))/(JVS(156)) - X(30) = (X(30)-JVS(153)*X(72)-JVS(154)*X(78)-JVS(155)*X(79))/(JVS(152)) - X(29) = (X(29)-JVS(149)*X(72)-JVS(150)*X(78)-JVS(151)*X(82))/(JVS(148)) - X(28) = (X(28)-JVS(144)*X(72)-JVS(145)*X(78)-JVS(146)*X(82))/(JVS(143)) - X(27) = (X(27)-JVS(132)*X(37)-JVS(133)*X(39)-JVS(134)*X(40)-JVS(135)*X(41)-JVS(136)*X(43)-JVS(137)*X(65)-JVS(138)& - &*X(67)-JVS(139)*X(72)-JVS(140)*X(76)-JVS(141)*X(78))/(JVS(131)) - X(26) = (X(26)-JVS(126)*X(42)-JVS(127)*X(76)-JVS(128)*X(78)-JVS(129)*X(79)-JVS(130)*X(82))/(JVS(125)) - X(25) = (X(25)-JVS(120)*X(43)-JVS(121)*X(72)-JVS(122)*X(79)-JVS(123)*X(81)-JVS(124)*X(82))/(JVS(119)) - X(24) = (X(24)-JVS(114)*X(45)-JVS(115)*X(74)-JVS(116)*X(78)-JVS(117)*X(80))/(JVS(113)) - X(23) = (X(23)-JVS(106)*X(28)-JVS(107)*X(29)-JVS(108)*X(31)-JVS(109)*X(78)-JVS(110)*X(81)-JVS(111)*X(82))/(JVS(105)) - X(22) = (X(22)-JVS(100)*X(34)-JVS(101)*X(44)-JVS(102)*X(78)-JVS(103)*X(81)-JVS(104)*X(82))/(JVS(99)) - X(21) = (X(21)-JVS(95)*X(44)-JVS(96)*X(78)-JVS(97)*X(82))/(JVS(94)) - X(20) = (X(20)-JVS(91)*X(74)-JVS(92)*X(76)-JVS(93)*X(78))/(JVS(90)) - X(19) = (X(19)-JVS(87)*X(76)-JVS(88)*X(78)-JVS(89)*X(82))/(JVS(86)) - X(18) = (X(18)-JVS(81)*X(41)-JVS(82)*X(65)-JVS(83)*X(67)-JVS(84)*X(72)-JVS(85)*X(78))/(JVS(80)) - X(17) = (X(17)-JVS(75)*X(41)-JVS(76)*X(65)-JVS(77)*X(67)-JVS(78)*X(72)-JVS(79)*X(78))/(JVS(74)) - X(16) = (X(16)-JVS(72)*X(34)-JVS(73)*X(78))/(JVS(71)) - X(15) = (X(15)-JVS(69)*X(63)-JVS(70)*X(78))/(JVS(68)) - X(14) = (X(14)-JVS(67)*X(78))/(JVS(66)) - X(13) = (X(13)-JVS(63)*X(44)-JVS(64)*X(76)-JVS(65)*X(78))/(JVS(62)) - X(12) = (X(12)-JVS(61)*X(78))/(JVS(60)) - X(11) = (X(11)-JVS(58)*X(79)-JVS(59)*X(82))/(JVS(57)) - X(10) = (X(10)-JVS(56)*X(78))/(JVS(55)) - X(9) = (X(9)-JVS(54)*X(78))/(JVS(53)) - X(8) = (X(8)-JVS(52)*X(78))/(JVS(51)) - X(7) = (X(7)-JVS(48)*X(50)-JVS(49)*X(76)-JVS(50)*X(78))/(JVS(47)) - X(6) = (X(6)-JVS(46)*X(72))/(JVS(45)) - X(5) = (X(5)-JVS(44)*X(78))/(JVS(43)) - X(4) = (X(4)-JVS(21)*X(35)-JVS(22)*X(39)-JVS(23)*X(41)-JVS(24)*X(47)-JVS(25)*X(48)-JVS(26)*X(50)-JVS(27)*X(56)-JVS(28)& - &*X(57)-JVS(29)*X(61)-JVS(30)*X(63)-JVS(31)*X(65)-JVS(32)*X(67)-JVS(33)*X(68)-JVS(34)*X(69)-JVS(35)*X(70)-JVS(36)& - &*X(71)-JVS(37)*X(72)-JVS(38)*X(73)-JVS(39)*X(74)-JVS(40)*X(76)-JVS(41)*X(77)-JVS(42)*X(80))/(JVS(20)) - X(3) = (X(3)-JVS(8)*X(14)-JVS(9)*X(30)-JVS(10)*X(35)-JVS(11)*X(39)-JVS(12)*X(40)-JVS(13)*X(43)-JVS(14)*X(45)-JVS(15)& - &*X(49)-JVS(16)*X(63)-JVS(17)*X(65)-JVS(18)*X(72)-JVS(19)*X(78))/(JVS(7)) - X(2) = (X(2)-JVS(5)*X(38)-JVS(6)*X(78))/(JVS(4)) - X(1) = (X(1)-JVS(2)*X(5)-JVS(3)*X(78))/(JVS(1)) - -END SUBROUTINE KppSolve - -! End of KppSolve function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! KppSolveTR - sparse, transposed back substitution -! Arguments : -! JVS - sparse Jacobian of variables -! X - Vector for variables -! XX - Vector for output variables -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE KppSolveTR ( JVS, X, XX ) - -! JVS - sparse Jacobian of variables - REAL(kind=dp) :: JVS(LU_NONZERO) -! X - Vector for variables - REAL(kind=dp) :: X(NVAR) -! XX - Vector for output variables - REAL(kind=dp) :: XX(NVAR) - - XX(1) = X(1)/JVS(1) - XX(2) = X(2)/JVS(4) - XX(3) = X(3)/JVS(7) - XX(4) = X(4)/JVS(20) - XX(5) = (X(5)-JVS(2)*XX(1))/(JVS(43)) - XX(6) = X(6)/JVS(45) - XX(7) = X(7)/JVS(47) - XX(8) = X(8)/JVS(51) - XX(9) = X(9)/JVS(53) - XX(10) = X(10)/JVS(55) - XX(11) = X(11)/JVS(57) - XX(12) = X(12)/JVS(60) - XX(13) = X(13)/JVS(62) - XX(14) = (X(14)-JVS(8)*XX(3))/(JVS(66)) - XX(15) = X(15)/JVS(68) - XX(16) = X(16)/JVS(71) - XX(17) = X(17)/JVS(74) - XX(18) = X(18)/JVS(80) - XX(19) = X(19)/JVS(86) - XX(20) = X(20)/JVS(90) - XX(21) = X(21)/JVS(94) - XX(22) = X(22)/JVS(99) - XX(23) = X(23)/JVS(105) - XX(24) = X(24)/JVS(113) - XX(25) = X(25)/JVS(119) - XX(26) = X(26)/JVS(125) - XX(27) = X(27)/JVS(131) - XX(28) = (X(28)-JVS(106)*XX(23))/(JVS(143)) - XX(29) = (X(29)-JVS(107)*XX(23))/(JVS(148)) - XX(30) = (X(30)-JVS(9)*XX(3))/(JVS(152)) - XX(31) = (X(31)-JVS(108)*XX(23))/(JVS(156)) - XX(32) = X(32)/JVS(161) - XX(33) = X(33)/JVS(172) - XX(34) = (X(34)-JVS(72)*XX(16)-JVS(100)*XX(22))/(JVS(178)) - XX(35) = (X(35)-JVS(10)*XX(3)-JVS(21)*XX(4))/(JVS(184)) - XX(36) = X(36)/JVS(188) - XX(37) = (X(37)-JVS(132)*XX(27))/(JVS(195)) - XX(38) = (X(38)-JVS(5)*XX(2))/(JVS(204)) - XX(39) = (X(39)-JVS(11)*XX(3)-JVS(22)*XX(4)-JVS(133)*XX(27)-JVS(205)*XX(38))/(JVS(224)) - XX(40) = (X(40)-JVS(12)*XX(3)-JVS(134)*XX(27)-JVS(179)*XX(34)-JVS(206)*XX(38))/(JVS(228)) - XX(41) = (X(41)-JVS(23)*XX(4)-JVS(75)*XX(17)-JVS(81)*XX(18)-JVS(135)*XX(27)-JVS(207)*XX(38))/(JVS(232)) - XX(42) = (X(42)-JVS(126)*XX(26)-JVS(157)*XX(31)-JVS(162)*XX(32))/(JVS(240)) - XX(43) = (X(43)-JVS(13)*XX(3)-JVS(120)*XX(25)-JVS(136)*XX(27)-JVS(208)*XX(38))/(JVS(246)) - XX(44) = (X(44)-JVS(63)*XX(13)-JVS(95)*XX(21)-JVS(101)*XX(22)-JVS(209)*XX(38))/(JVS(253)) - XX(45) = (X(45)-JVS(14)*XX(3)-JVS(114)*XX(24)-JVS(189)*XX(36)-JVS(210)*XX(38))/(JVS(261)) - XX(46) = (X(46)-JVS(163)*XX(32)-JVS(211)*XX(38))/(JVS(268)) - XX(47) = (X(47)-JVS(24)*XX(4))/(JVS(281)) - XX(48) = (X(48)-JVS(25)*XX(4))/(JVS(289)) - XX(49) = (X(49)-JVS(15)*XX(3)-JVS(212)*XX(38)-JVS(254)*XX(44))/(JVS(302)) - XX(50) = (X(50)-JVS(26)*XX(4)-JVS(48)*XX(7)-JVS(180)*XX(34)-JVS(213)*XX(38)-JVS(303)*XX(49))/(JVS(314)) - XX(51) = X(51)/JVS(323) - XX(52) = X(52)/JVS(338) - XX(53) = (X(53)-JVS(164)*XX(32)-JVS(214)*XX(38))/(JVS(366)) - XX(54) = (X(54)-JVS(269)*XX(46)-JVS(367)*XX(53))/(JVS(385)) - XX(55) = (X(55)-JVS(304)*XX(49)-JVS(368)*XX(53))/(JVS(395)) - XX(56) = (X(56)-JVS(27)*XX(4)-JVS(339)*XX(52))/(JVS(404)) - XX(57) = (X(57)-JVS(28)*XX(4)-JVS(340)*XX(52))/(JVS(412)) - XX(58) = (X(58)-JVS(165)*XX(32)-JVS(215)*XX(38))/(JVS(444)) - XX(59) = (X(59)-JVS(270)*XX(46)-JVS(369)*XX(53)-JVS(445)*XX(58))/(JVS(467)) - XX(60) = (X(60)-JVS(271)*XX(46)-JVS(370)*XX(53)-JVS(446)*XX(58))/(JVS(477)) - XX(61) = (X(61)-JVS(29)*XX(4)-JVS(341)*XX(52)-JVS(447)*XX(58))/(JVS(488)) - XX(62) = (X(62)-JVS(342)*XX(52))/(JVS(506)) - XX(63) = (X(63)-JVS(16)*XX(3)-JVS(30)*XX(4)-JVS(69)*XX(15)-JVS(166)*XX(32)-JVS(173)*XX(33)-JVS(216)*XX(38)-JVS(272)& - &*XX(46)-JVS(343)*XX(52)-JVS(371)*XX(53)-JVS(448)*XX(58))/(JVS(521)) - XX(64) = (X(64)-JVS(449)*XX(58))/(JVS(540)) - XX(65) = (X(65)-JVS(17)*XX(3)-JVS(31)*XX(4)-JVS(76)*XX(17)-JVS(82)*XX(18)-JVS(137)*XX(27)-JVS(217)*XX(38)-JVS(290)& - &*XX(48)-JVS(344)*XX(52)-JVS(450)*XX(58))/(JVS(556)) - XX(66) = (X(66)-JVS(167)*XX(32)-JVS(218)*XX(38))/(JVS(579)) - XX(67) = (X(67)-JVS(32)*XX(4)-JVS(77)*XX(17)-JVS(83)*XX(18)-JVS(138)*XX(27)-JVS(219)*XX(38)-JVS(345)*XX(52)-JVS(451)& - &*XX(58)-JVS(489)*XX(61)-JVS(580)*XX(66))/(JVS(598)) - XX(68) = (X(68)-JVS(33)*XX(4)-JVS(346)*XX(52)-JVS(452)*XX(58)-JVS(507)*XX(62)-JVS(581)*XX(66))/(JVS(614)) - XX(69) = (X(69)-JVS(34)*XX(4)-JVS(347)*XX(52)-JVS(453)*XX(58)-JVS(508)*XX(62)-JVS(582)*XX(66)-JVS(615)*XX(68))& - &/(JVS(632)) - XX(70) = (X(70)-JVS(35)*XX(4)-JVS(454)*XX(58)-JVS(583)*XX(66))/(JVS(654)) - XX(71) = (X(71)-JVS(36)*XX(4)-JVS(262)*XX(45)-JVS(372)*XX(53)-JVS(455)*XX(58)-JVS(509)*XX(62)-JVS(541)*XX(64)-JVS(584)& - &*XX(66)-JVS(655)*XX(70))/(JVS(669)) - XX(72) = (X(72)-JVS(18)*XX(3)-JVS(37)*XX(4)-JVS(46)*XX(6)-JVS(78)*XX(17)-JVS(84)*XX(18)-JVS(121)*XX(25)-JVS(139)& - &*XX(27)-JVS(144)*XX(28)-JVS(149)*XX(29)-JVS(153)*XX(30)-JVS(158)*XX(31)-JVS(174)*XX(33)-JVS(185)*XX(35)& - &-JVS(190)*XX(36)-JVS(196)*XX(37)-JVS(220)*XX(38)-JVS(225)*XX(39)-JVS(229)*XX(40)-JVS(233)*XX(41)-JVS(241)& - &*XX(42)-JVS(247)*XX(43)-JVS(255)*XX(44)-JVS(263)*XX(45)-JVS(273)*XX(46)-JVS(282)*XX(47)-JVS(305)*XX(49)& - &-JVS(315)*XX(50)-JVS(324)*XX(51)-JVS(348)*XX(52)-JVS(373)*XX(53)-JVS(386)*XX(54)-JVS(396)*XX(55)-JVS(456)& - &*XX(58)-JVS(468)*XX(59)-JVS(478)*XX(60)-JVS(490)*XX(61)-JVS(510)*XX(62)-JVS(522)*XX(63)-JVS(542)*XX(64)& - &-JVS(557)*XX(65)-JVS(585)*XX(66)-JVS(599)*XX(67)-JVS(616)*XX(68)-JVS(633)*XX(69)-JVS(656)*XX(70)-JVS(670)& - &*XX(71))/(JVS(698)) - XX(73) = (X(73)-JVS(38)*XX(4)-JVS(274)*XX(46)-JVS(349)*XX(52)-JVS(374)*XX(53)-JVS(457)*XX(58)-JVS(511)*XX(62)-JVS(543)& - &*XX(64)-JVS(586)*XX(66)-JVS(657)*XX(70))/(JVS(712)) - XX(74) = (X(74)-JVS(39)*XX(4)-JVS(91)*XX(20)-JVS(115)*XX(24)-JVS(275)*XX(46)-JVS(283)*XX(47)-JVS(291)*XX(48)-JVS(306)& - &*XX(49)-JVS(316)*XX(50)-JVS(325)*XX(51)-JVS(350)*XX(52)-JVS(375)*XX(53)-JVS(387)*XX(54)-JVS(397)*XX(55)& - &-JVS(405)*XX(56)-JVS(413)*XX(57)-JVS(458)*XX(58)-JVS(469)*XX(59)-JVS(479)*XX(60)-JVS(491)*XX(61)-JVS(512)& - &*XX(62)-JVS(523)*XX(63)-JVS(544)*XX(64)-JVS(558)*XX(65)-JVS(587)*XX(66)-JVS(600)*XX(67)-JVS(617)*XX(68)& - &-JVS(634)*XX(69)-JVS(658)*XX(70)-JVS(671)*XX(71)-JVS(699)*XX(72)-JVS(713)*XX(73))/(JVS(749)) - XX(75) = (X(75)-JVS(351)*XX(52)-JVS(545)*XX(64)-JVS(588)*XX(66)-JVS(659)*XX(70)-JVS(714)*XX(73)-JVS(750)*XX(74))& - &/(JVS(776)) - XX(76) = (X(76)-JVS(40)*XX(4)-JVS(49)*XX(7)-JVS(64)*XX(13)-JVS(87)*XX(19)-JVS(92)*XX(20)-JVS(127)*XX(26)-JVS(140)& - &*XX(27)-JVS(168)*XX(32)-JVS(175)*XX(33)-JVS(242)*XX(42)-JVS(256)*XX(44)-JVS(284)*XX(47)-JVS(292)*XX(48)& - &-JVS(307)*XX(49)-JVS(317)*XX(50)-JVS(326)*XX(51)-JVS(352)*XX(52)-JVS(376)*XX(53)-JVS(388)*XX(54)-JVS(398)& - &*XX(55)-JVS(406)*XX(56)-JVS(414)*XX(57)-JVS(459)*XX(58)-JVS(470)*XX(59)-JVS(480)*XX(60)-JVS(492)*XX(61)& - &-JVS(513)*XX(62)-JVS(524)*XX(63)-JVS(546)*XX(64)-JVS(559)*XX(65)-JVS(589)*XX(66)-JVS(601)*XX(67)-JVS(618)& - &*XX(68)-JVS(635)*XX(69)-JVS(660)*XX(70)-JVS(672)*XX(71)-JVS(700)*XX(72)-JVS(715)*XX(73)-JVS(751)*XX(74)& - &-JVS(777)*XX(75))/(JVS(841)) - XX(77) = (X(77)-JVS(41)*XX(4)-JVS(176)*XX(33)-JVS(191)*XX(36)-JVS(276)*XX(46)-JVS(285)*XX(47)-JVS(293)*XX(48)-JVS(308)& - &*XX(49)-JVS(318)*XX(50)-JVS(327)*XX(51)-JVS(353)*XX(52)-JVS(377)*XX(53)-JVS(389)*XX(54)-JVS(399)*XX(55)& - &-JVS(407)*XX(56)-JVS(415)*XX(57)-JVS(460)*XX(58)-JVS(471)*XX(59)-JVS(481)*XX(60)-JVS(493)*XX(61)-JVS(514)& - &*XX(62)-JVS(525)*XX(63)-JVS(547)*XX(64)-JVS(560)*XX(65)-JVS(590)*XX(66)-JVS(602)*XX(67)-JVS(619)*XX(68)& - &-JVS(636)*XX(69)-JVS(661)*XX(70)-JVS(673)*XX(71)-JVS(701)*XX(72)-JVS(716)*XX(73)-JVS(752)*XX(74)-JVS(778)& - &*XX(75)-JVS(842)*XX(76))/(JVS(884)) - XX(78) = (X(78)-JVS(3)*XX(1)-JVS(6)*XX(2)-JVS(19)*XX(3)-JVS(44)*XX(5)-JVS(50)*XX(7)-JVS(52)*XX(8)-JVS(54)*XX(9)& - &-JVS(56)*XX(10)-JVS(61)*XX(12)-JVS(65)*XX(13)-JVS(67)*XX(14)-JVS(70)*XX(15)-JVS(73)*XX(16)-JVS(79)*XX(17)& - &-JVS(85)*XX(18)-JVS(88)*XX(19)-JVS(93)*XX(20)-JVS(96)*XX(21)-JVS(102)*XX(22)-JVS(109)*XX(23)-JVS(116)*XX(24)& - &-JVS(128)*XX(26)-JVS(141)*XX(27)-JVS(145)*XX(28)-JVS(150)*XX(29)-JVS(154)*XX(30)-JVS(159)*XX(31)-JVS(169)& - &*XX(32)-JVS(177)*XX(33)-JVS(181)*XX(34)-JVS(186)*XX(35)-JVS(192)*XX(36)-JVS(197)*XX(37)-JVS(221)*XX(38)& - &-JVS(226)*XX(39)-JVS(230)*XX(40)-JVS(234)*XX(41)-JVS(243)*XX(42)-JVS(248)*XX(43)-JVS(257)*XX(44)-JVS(264)& - &*XX(45)-JVS(277)*XX(46)-JVS(286)*XX(47)-JVS(294)*XX(48)-JVS(309)*XX(49)-JVS(319)*XX(50)-JVS(328)*XX(51)& - &-JVS(354)*XX(52)-JVS(378)*XX(53)-JVS(390)*XX(54)-JVS(400)*XX(55)-JVS(408)*XX(56)-JVS(416)*XX(57)-JVS(461)& - &*XX(58)-JVS(472)*XX(59)-JVS(482)*XX(60)-JVS(494)*XX(61)-JVS(515)*XX(62)-JVS(526)*XX(63)-JVS(548)*XX(64)& - &-JVS(561)*XX(65)-JVS(591)*XX(66)-JVS(603)*XX(67)-JVS(620)*XX(68)-JVS(637)*XX(69)-JVS(662)*XX(70)-JVS(674)& - &*XX(71)-JVS(702)*XX(72)-JVS(717)*XX(73)-JVS(753)*XX(74)-JVS(779)*XX(75)-JVS(843)*XX(76)-JVS(885)*XX(77))& - &/(JVS(956)) - XX(79) = (X(79)-JVS(58)*XX(11)-JVS(122)*XX(25)-JVS(129)*XX(26)-JVS(155)*XX(30)-JVS(170)*XX(32)-JVS(182)*XX(34)& - &-JVS(187)*XX(35)-JVS(193)*XX(36)-JVS(198)*XX(37)-JVS(222)*XX(38)-JVS(227)*XX(39)-JVS(231)*XX(40)-JVS(235)& - &*XX(41)-JVS(244)*XX(42)-JVS(249)*XX(43)-JVS(258)*XX(44)-JVS(265)*XX(45)-JVS(278)*XX(46)-JVS(287)*XX(47)& - &-JVS(295)*XX(48)-JVS(310)*XX(49)-JVS(320)*XX(50)-JVS(329)*XX(51)-JVS(355)*XX(52)-JVS(379)*XX(53)-JVS(391)& - &*XX(54)-JVS(401)*XX(55)-JVS(409)*XX(56)-JVS(417)*XX(57)-JVS(462)*XX(58)-JVS(473)*XX(59)-JVS(483)*XX(60)& - &-JVS(495)*XX(61)-JVS(516)*XX(62)-JVS(527)*XX(63)-JVS(549)*XX(64)-JVS(562)*XX(65)-JVS(592)*XX(66)-JVS(604)& - &*XX(67)-JVS(621)*XX(68)-JVS(638)*XX(69)-JVS(663)*XX(70)-JVS(675)*XX(71)-JVS(703)*XX(72)-JVS(718)*XX(73)& - &-JVS(754)*XX(74)-JVS(780)*XX(75)-JVS(844)*XX(76)-JVS(886)*XX(77)-JVS(957)*XX(78))/(JVS(1004)) - XX(80) = (X(80)-JVS(42)*XX(4)-JVS(117)*XX(24)-JVS(356)*XX(52)-JVS(380)*XX(53)-JVS(463)*XX(58)-JVS(550)*XX(64)-JVS(593)& - &*XX(66)-JVS(664)*XX(70)-JVS(755)*XX(74)-JVS(781)*XX(75)-JVS(845)*XX(76)-JVS(887)*XX(77)-JVS(958)*XX(78)& - &-JVS(1005)*XX(79))/(JVS(1031)) - XX(81) = (X(81)-JVS(103)*XX(22)-JVS(110)*XX(23)-JVS(123)*XX(25)-JVS(183)*XX(34)-JVS(223)*XX(38)-JVS(259)*XX(44)& - &-JVS(279)*XX(46)-JVS(288)*XX(47)-JVS(296)*XX(48)-JVS(311)*XX(49)-JVS(321)*XX(50)-JVS(330)*XX(51)-JVS(357)& - &*XX(52)-JVS(381)*XX(53)-JVS(392)*XX(54)-JVS(402)*XX(55)-JVS(410)*XX(56)-JVS(418)*XX(57)-JVS(464)*XX(58)& - &-JVS(474)*XX(59)-JVS(484)*XX(60)-JVS(496)*XX(61)-JVS(517)*XX(62)-JVS(528)*XX(63)-JVS(551)*XX(64)-JVS(563)& - &*XX(65)-JVS(594)*XX(66)-JVS(605)*XX(67)-JVS(622)*XX(68)-JVS(639)*XX(69)-JVS(665)*XX(70)-JVS(676)*XX(71)& - &-JVS(704)*XX(72)-JVS(719)*XX(73)-JVS(756)*XX(74)-JVS(782)*XX(75)-JVS(846)*XX(76)-JVS(888)*XX(77)-JVS(959)& - &*XX(78)-JVS(1006)*XX(79)-JVS(1032)*XX(80))/(JVS(1070)) - XX(82) = (X(82)-JVS(59)*XX(11)-JVS(89)*XX(19)-JVS(97)*XX(21)-JVS(104)*XX(22)-JVS(111)*XX(23)-JVS(124)*XX(25)-JVS(130)& - &*XX(26)-JVS(146)*XX(28)-JVS(151)*XX(29)-JVS(160)*XX(31)-JVS(171)*XX(32)-JVS(194)*XX(36)-JVS(245)*XX(42)& - &-JVS(260)*XX(44)-JVS(266)*XX(45)-JVS(382)*XX(53)-JVS(393)*XX(54)-JVS(465)*XX(58)-JVS(475)*XX(59)-JVS(485)& - &*XX(60)-JVS(518)*XX(62)-JVS(529)*XX(63)-JVS(552)*XX(64)-JVS(595)*XX(66)-JVS(666)*XX(70)-JVS(677)*XX(71)& - &-JVS(705)*XX(72)-JVS(720)*XX(73)-JVS(757)*XX(74)-JVS(783)*XX(75)-JVS(847)*XX(76)-JVS(889)*XX(77)-JVS(960)& - &*XX(78)-JVS(1007)*XX(79)-JVS(1033)*XX(80)-JVS(1071)*XX(81))/(JVS(1125)) - XX(82) = XX(82) - XX(81) = XX(81)-JVS(1124)*XX(82) - XX(80) = XX(80)-JVS(1069)*XX(81)-JVS(1123)*XX(82) - XX(79) = XX(79)-JVS(1030)*XX(80)-JVS(1068)*XX(81)-JVS(1122)*XX(82) - XX(78) = XX(78)-JVS(1003)*XX(79)-JVS(1029)*XX(80)-JVS(1067)*XX(81)-JVS(1121)*XX(82) - XX(77) = XX(77)-JVS(955)*XX(78)-JVS(1002)*XX(79)-JVS(1028)*XX(80)-JVS(1066)*XX(81)-JVS(1120)*XX(82) - XX(76) = XX(76)-JVS(883)*XX(77)-JVS(954)*XX(78)-JVS(1001)*XX(79)-JVS(1027)*XX(80)-JVS(1065)*XX(81)-JVS(1119)*XX(82) - XX(75) = XX(75)-JVS(840)*XX(76)-JVS(882)*XX(77)-JVS(953)*XX(78)-JVS(1000)*XX(79)-JVS(1026)*XX(80)-JVS(1064)*XX(81)& - &-JVS(1118)*XX(82) - XX(74) = XX(74)-JVS(775)*XX(75)-JVS(839)*XX(76)-JVS(881)*XX(77)-JVS(952)*XX(78)-JVS(999)*XX(79)-JVS(1025)*XX(80)& - &-JVS(1063)*XX(81)-JVS(1117)*XX(82) - XX(73) = XX(73)-JVS(748)*XX(74)-JVS(774)*XX(75)-JVS(838)*XX(76)-JVS(880)*XX(77)-JVS(951)*XX(78)-JVS(998)*XX(79)& - &-JVS(1024)*XX(80)-JVS(1062)*XX(81)-JVS(1116)*XX(82) - XX(72) = XX(72)-JVS(711)*XX(73)-JVS(747)*XX(74)-JVS(773)*XX(75)-JVS(837)*XX(76)-JVS(879)*XX(77)-JVS(950)*XX(78)& - &-JVS(997)*XX(79)-JVS(1023)*XX(80)-JVS(1061)*XX(81)-JVS(1115)*XX(82) - XX(71) = XX(71)-JVS(697)*XX(72)-JVS(710)*XX(73)-JVS(746)*XX(74)-JVS(772)*XX(75)-JVS(836)*XX(76)-JVS(878)*XX(77)& - &-JVS(949)*XX(78)-JVS(996)*XX(79)-JVS(1022)*XX(80)-JVS(1060)*XX(81)-JVS(1114)*XX(82) - XX(70) = XX(70)-JVS(745)*XX(74)-JVS(771)*XX(75)-JVS(835)*XX(76)-JVS(877)*XX(77)-JVS(948)*XX(78)-JVS(995)*XX(79)& - &-JVS(1059)*XX(81)-JVS(1113)*XX(82) - XX(69) = XX(69)-JVS(653)*XX(70)-JVS(709)*XX(73)-JVS(744)*XX(74)-JVS(834)*XX(76)-JVS(876)*XX(77)-JVS(947)*XX(78)& - &-JVS(994)*XX(79)-JVS(1021)*XX(80)-JVS(1058)*XX(81)-JVS(1112)*XX(82) - XX(68) = XX(68)-JVS(631)*XX(69)-JVS(652)*XX(70)-JVS(708)*XX(73)-JVS(743)*XX(74)-JVS(833)*XX(76)-JVS(875)*XX(77)& - &-JVS(946)*XX(78)-JVS(993)*XX(79)-JVS(1020)*XX(80)-JVS(1057)*XX(81)-JVS(1111)*XX(82) - XX(67) = XX(67)-JVS(613)*XX(68)-JVS(630)*XX(69)-JVS(651)*XX(70)-JVS(696)*XX(72)-JVS(742)*XX(74)-JVS(770)*XX(75)& - &-JVS(832)*XX(76)-JVS(874)*XX(77)-JVS(945)*XX(78)-JVS(992)*XX(79)-JVS(1019)*XX(80)-JVS(1056)*XX(81)-JVS(1110)& - &*XX(82) - XX(66) = XX(66)-JVS(741)*XX(74)-JVS(831)*XX(76)-JVS(873)*XX(77)-JVS(944)*XX(78)-JVS(991)*XX(79)-JVS(1109)*XX(82) - XX(65) = XX(65)-JVS(578)*XX(66)-JVS(612)*XX(68)-JVS(629)*XX(69)-JVS(650)*XX(70)-JVS(695)*XX(72)-JVS(740)*XX(74)& - &-JVS(769)*XX(75)-JVS(830)*XX(76)-JVS(872)*XX(77)-JVS(943)*XX(78)-JVS(990)*XX(79)-JVS(1018)*XX(80)-JVS(1055)& - &*XX(81)-JVS(1108)*XX(82) - XX(64) = XX(64)-JVS(739)*XX(74)-JVS(768)*XX(75)-JVS(829)*XX(76)-JVS(871)*XX(77)-JVS(942)*XX(78)-JVS(989)*XX(79)& - &-JVS(1054)*XX(81)-JVS(1107)*XX(82) - XX(63) = XX(63)-JVS(539)*XX(64)-JVS(577)*XX(66)-JVS(649)*XX(70)-JVS(668)*XX(71)-JVS(694)*XX(72)-JVS(738)*XX(74)& - &-JVS(828)*XX(76)-JVS(870)*XX(77)-JVS(941)*XX(78)-JVS(988)*XX(79)-JVS(1017)*XX(80)-JVS(1106)*XX(82) - XX(62) = XX(62)-JVS(576)*XX(66)-JVS(648)*XX(70)-JVS(707)*XX(73)-JVS(827)*XX(76)-JVS(869)*XX(77)-JVS(940)*XX(78)& - &-JVS(1016)*XX(80)-JVS(1105)*XX(82) - XX(61) = XX(61)-JVS(575)*XX(66)-JVS(647)*XX(70)-JVS(737)*XX(74)-JVS(767)*XX(75)-JVS(826)*XX(76)-JVS(868)*XX(77)& - &-JVS(939)*XX(78)-JVS(987)*XX(79)-JVS(1015)*XX(80)-JVS(1053)*XX(81)-JVS(1104)*XX(82) - XX(60) = XX(60)-JVS(505)*XX(62)-JVS(520)*XX(63)-JVS(736)*XX(74)-JVS(766)*XX(75)-JVS(825)*XX(76)-JVS(867)*XX(77)& - &-JVS(938)*XX(78)-JVS(986)*XX(79)-JVS(1052)*XX(81)-JVS(1103)*XX(82) - XX(59) = XX(59)-JVS(504)*XX(62)-JVS(519)*XX(63)-JVS(735)*XX(74)-JVS(765)*XX(75)-JVS(824)*XX(76)-JVS(866)*XX(77)& - &-JVS(937)*XX(78)-JVS(985)*XX(79)-JVS(1051)*XX(81)-JVS(1102)*XX(82) - XX(58) = XX(58)-JVS(823)*XX(76)-JVS(936)*XX(78)-JVS(984)*XX(79)-JVS(1101)*XX(82) - XX(57) = XX(57)-JVS(443)*XX(58)-JVS(503)*XX(62)-JVS(538)*XX(64)-JVS(574)*XX(66)-JVS(646)*XX(70)-JVS(734)*XX(74)& - &-JVS(764)*XX(75)-JVS(822)*XX(76)-JVS(865)*XX(77)-JVS(935)*XX(78)-JVS(983)*XX(79)-JVS(1014)*XX(80)-JVS(1050)& - &*XX(81)-JVS(1100)*XX(82) - XX(56) = XX(56)-JVS(442)*XX(58)-JVS(502)*XX(62)-JVS(537)*XX(64)-JVS(573)*XX(66)-JVS(645)*XX(70)-JVS(733)*XX(74)& - &-JVS(763)*XX(75)-JVS(821)*XX(76)-JVS(864)*XX(77)-JVS(934)*XX(78)-JVS(982)*XX(79)-JVS(1013)*XX(80)-JVS(1049)& - &*XX(81)-JVS(1099)*XX(82) - XX(55) = XX(55)-JVS(441)*XX(58)-JVS(501)*XX(62)-JVS(597)*XX(67)-JVS(693)*XX(72)-JVS(732)*XX(74)-JVS(762)*XX(75)& - &-JVS(820)*XX(76)-JVS(863)*XX(77)-JVS(933)*XX(78)-JVS(981)*XX(79)-JVS(1048)*XX(81)-JVS(1098)*XX(82) - XX(54) = XX(54)-JVS(440)*XX(58)-JVS(731)*XX(74)-JVS(761)*XX(75)-JVS(819)*XX(76)-JVS(862)*XX(77)-JVS(932)*XX(78)& - &-JVS(980)*XX(79)-JVS(1047)*XX(81)-JVS(1097)*XX(82) - XX(53) = XX(53)-JVS(818)*XX(76)-JVS(861)*XX(77)-JVS(931)*XX(78)-JVS(979)*XX(79)-JVS(1096)*XX(82) - XX(52) = XX(52)-JVS(644)*XX(70)-JVS(860)*XX(77)-JVS(930)*XX(78)-JVS(1012)*XX(80) - XX(51) = XX(51)-JVS(337)*XX(52)-JVS(439)*XX(58)-JVS(500)*XX(62)-JVS(572)*XX(66)-JVS(730)*XX(74)-JVS(760)*XX(75)& - &-JVS(817)*XX(76)-JVS(859)*XX(77)-JVS(978)*XX(79)-JVS(1046)*XX(81)-JVS(1095)*XX(82) - XX(50) = XX(50)-JVS(365)*XX(53)-JVS(438)*XX(58)-JVS(555)*XX(65)-JVS(596)*XX(67)-JVS(692)*XX(72)-JVS(729)*XX(74)& - &-JVS(816)*XX(76)-JVS(858)*XX(77)-JVS(929)*XX(78)-JVS(1045)*XX(81)-JVS(1094)*XX(82) - XX(49) = XX(49)-JVS(364)*XX(53)-JVS(437)*XX(58)-JVS(691)*XX(72)-JVS(815)*XX(76)-JVS(857)*XX(77)-JVS(928)*XX(78)& - &-JVS(1044)*XX(81)-JVS(1093)*XX(82) - XX(48) = XX(48)-JVS(336)*XX(52)-JVS(436)*XX(58)-JVS(571)*XX(66)-JVS(728)*XX(74)-JVS(759)*XX(75)-JVS(814)*XX(76)& - &-JVS(856)*XX(77)-JVS(977)*XX(79)-JVS(1043)*XX(81)-JVS(1092)*XX(82) - XX(47) = XX(47)-JVS(435)*XX(58)-JVS(570)*XX(66)-JVS(727)*XX(74)-JVS(758)*XX(75)-JVS(813)*XX(76)-JVS(855)*XX(77)& - &-JVS(976)*XX(79)-JVS(1042)*XX(81)-JVS(1091)*XX(82) - XX(46) = XX(46)-JVS(434)*XX(58)-JVS(812)*XX(76)-JVS(927)*XX(78)-JVS(975)*XX(79)-JVS(1090)*XX(82) - XX(45) = XX(45)-JVS(363)*XX(53)-JVS(433)*XX(58)-JVS(499)*XX(62)-JVS(536)*XX(64)-JVS(667)*XX(71)-JVS(690)*XX(72)& - &-JVS(811)*XX(76)-JVS(854)*XX(77)-JVS(926)*XX(78)-JVS(974)*XX(79)-JVS(1089)*XX(82) - XX(44) = XX(44)-JVS(362)*XX(53)-JVS(432)*XX(58)-JVS(810)*XX(76)-JVS(853)*XX(77)-JVS(925)*XX(78)-JVS(1041)*XX(81)& - &-JVS(1088)*XX(82) - XX(43) = XX(43)-JVS(301)*XX(49)-JVS(313)*XX(50)-JVS(431)*XX(58)-JVS(535)*XX(64)-JVS(554)*XX(65)-JVS(611)*XX(68)& - &-JVS(628)*XX(69)-JVS(689)*XX(72)-JVS(726)*XX(74)-JVS(809)*XX(76)-JVS(852)*XX(77)-JVS(924)*XX(78)-JVS(973)& - &*XX(79)-JVS(1011)*XX(80)-JVS(1040)*XX(81)-JVS(1087)*XX(82) - XX(42) = XX(42)-JVS(384)*XX(54)-JVS(498)*XX(62)-JVS(534)*XX(64)-JVS(688)*XX(72)-JVS(808)*XX(76)-JVS(923)*XX(78)& - &-JVS(972)*XX(79)-JVS(1039)*XX(81)-JVS(1086)*XX(82) - XX(41) = XX(41)-JVS(335)*XX(52)-JVS(430)*XX(58)-JVS(487)*XX(61)-JVS(569)*XX(66)-JVS(610)*XX(68)-JVS(627)*XX(69)& - &-JVS(643)*XX(70)-JVS(687)*XX(72)-JVS(725)*XX(74)-JVS(807)*XX(76)-JVS(922)*XX(78)-JVS(971)*XX(79)-JVS(1010)& - &*XX(80) - XX(40) = XX(40)-JVS(252)*XX(44)-JVS(300)*XX(49)-JVS(312)*XX(50)-JVS(361)*XX(53)-JVS(429)*XX(58)-JVS(686)*XX(72)& - &-JVS(724)*XX(74)-JVS(806)*XX(76)-JVS(851)*XX(77)-JVS(921)*XX(78)-JVS(970)*XX(79)-JVS(1085)*XX(82) - XX(39) = XX(39)-JVS(299)*XX(49)-JVS(394)*XX(55)-JVS(428)*XX(58)-JVS(553)*XX(65)-JVS(609)*XX(68)-JVS(626)*XX(69)& - &-JVS(642)*XX(70)-JVS(685)*XX(72)-JVS(805)*XX(76)-JVS(920)*XX(78)-JVS(969)*XX(79)-JVS(1009)*XX(80) - XX(38) = XX(38)-JVS(804)*XX(76)-JVS(919)*XX(78) - XX(37) = XX(37)-JVS(203)*XX(38)-JVS(322)*XX(51)-JVS(334)*XX(52)-JVS(568)*XX(66)-JVS(608)*XX(68)-JVS(625)*XX(69)& - &-JVS(641)*XX(70)-JVS(684)*XX(72)-JVS(803)*XX(76)-JVS(918)*XX(78)-JVS(968)*XX(79)-JVS(1008)*XX(80) - XX(36) = XX(36)-JVS(427)*XX(58)-JVS(533)*XX(64)-JVS(850)*XX(77)-JVS(917)*XX(78)-JVS(967)*XX(79)-JVS(1084)*XX(82) - XX(35) = XX(35)-JVS(298)*XX(49)-JVS(333)*XX(52)-JVS(426)*XX(58)-JVS(486)*XX(61)-JVS(567)*XX(66)-JVS(607)*XX(68)& - &-JVS(624)*XX(69)-JVS(683)*XX(72)-JVS(916)*XX(78)-JVS(966)*XX(79) - XX(34) = XX(34)-JVS(202)*XX(38)-JVS(360)*XX(53)-JVS(425)*XX(58)-JVS(802)*XX(76)-JVS(915)*XX(78)-JVS(1083)*XX(82) - XX(33) = XX(33)-JVS(424)*XX(58)-JVS(532)*XX(64)-JVS(723)*XX(74)-JVS(801)*XX(76)-JVS(849)*XX(77)-JVS(914)*XX(78) - XX(32) = XX(32)-JVS(913)*XX(78)-JVS(965)*XX(79)-JVS(1082)*XX(82) - XX(31) = XX(31)-JVS(239)*XX(42)-JVS(383)*XX(54)-JVS(682)*XX(72)-JVS(800)*XX(76)-JVS(912)*XX(78)-JVS(1038)*XX(81)& - &-JVS(1081)*XX(82) - XX(30) = XX(30)-JVS(201)*XX(38)-JVS(280)*XX(47)-JVS(423)*XX(58)-JVS(606)*XX(68)-JVS(623)*XX(69)-JVS(681)*XX(72)& - &-JVS(799)*XX(76)-JVS(911)*XX(78)-JVS(964)*XX(79) - XX(29) = XX(29)-JVS(238)*XX(42)-JVS(476)*XX(60)-JVS(680)*XX(72)-JVS(798)*XX(76)-JVS(910)*XX(78)-JVS(1037)*XX(81)& - &-JVS(1080)*XX(82) - XX(28) = XX(28)-JVS(237)*XX(42)-JVS(466)*XX(59)-JVS(679)*XX(72)-JVS(797)*XX(76)-JVS(909)*XX(78)-JVS(1036)*XX(81)& - &-JVS(1079)*XX(82) - XX(27) = XX(27)-JVS(796)*XX(76)-JVS(908)*XX(78) - XX(26) = XX(26)-JVS(236)*XX(42)-JVS(497)*XX(62)-JVS(795)*XX(76)-JVS(1078)*XX(82) - XX(25) = XX(25)-JVS(678)*XX(72)-JVS(963)*XX(79)-JVS(1035)*XX(81)-JVS(1077)*XX(82) - XX(24) = XX(24)-JVS(359)*XX(53)-JVS(422)*XX(58)-JVS(794)*XX(76)-JVS(848)*XX(77)-JVS(907)*XX(78) - XX(23) = XX(23)-JVS(906)*XX(78)-JVS(1034)*XX(81)-JVS(1076)*XX(82) - XX(22) = XX(22)-JVS(358)*XX(53)-JVS(793)*XX(76)-JVS(905)*XX(78) - XX(21) = XX(21)-JVS(98)*XX(22)-JVS(251)*XX(44)-JVS(904)*XX(78)-JVS(1075)*XX(82) - XX(20) = XX(20)-JVS(421)*XX(58)-JVS(722)*XX(74)-JVS(792)*XX(76)-JVS(903)*XX(78) - XX(19) = XX(19)-JVS(791)*XX(76)-JVS(902)*XX(78)-JVS(962)*XX(79)-JVS(1074)*XX(82) - XX(18) = XX(18)-JVS(721)*XX(74)-JVS(901)*XX(78) - XX(17) = XX(17)-JVS(640)*XX(70)-JVS(900)*XX(78) - XX(16) = XX(16)-JVS(200)*XX(38)-JVS(420)*XX(58)-JVS(899)*XX(78)-JVS(1073)*XX(82) - XX(15) = XX(15)-JVS(332)*XX(52)-JVS(566)*XX(66)-JVS(790)*XX(76)-JVS(898)*XX(78) - XX(14) = XX(14)-JVS(199)*XX(38)-JVS(267)*XX(46)-JVS(419)*XX(58)-JVS(565)*XX(66)-JVS(706)*XX(73)-JVS(789)*XX(76)& - &-JVS(897)*XX(78) - XX(13) = XX(13)-JVS(250)*XX(44)-JVS(896)*XX(78) - XX(12) = XX(12)-JVS(112)*XX(24)-JVS(403)*XX(56)-JVS(564)*XX(66)-JVS(788)*XX(76)-JVS(895)*XX(78) - XX(11) = XX(11)-JVS(961)*XX(79)-JVS(1072)*XX(82) - XX(10) = XX(10)-JVS(147)*XX(29)-JVS(531)*XX(64)-JVS(787)*XX(76)-JVS(894)*XX(78) - XX(9) = XX(9)-JVS(142)*XX(28)-JVS(530)*XX(64)-JVS(786)*XX(76)-JVS(893)*XX(78) - XX(8) = XX(8)-JVS(331)*XX(52)-JVS(411)*XX(57)-JVS(785)*XX(76)-JVS(892)*XX(78) - XX(7) = XX(7)-JVS(297)*XX(49) - XX(6) = XX(6)-JVS(118)*XX(25)-JVS(891)*XX(78) - XX(5) = XX(5)-JVS(784)*XX(76)-JVS(890)*XX(78) - XX(4) = XX(4) - XX(3) = XX(3) - XX(2) = XX(2) - XX(1) = XX(1) - -END SUBROUTINE KppSolveTR - -! End of KppSolveTR function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! BLAS_UTIL - BLAS-LIKE utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!-------------------------------------------------------------- -! -! BLAS/LAPACK-like subroutines used by the integration algorithms -! It is recommended to replace them by calls to the optimized -! BLAS/LAPACK library for your machine -! -! (C) Adrian Sandu, Aug. 2004 -! Virginia Polytechnic Institute and State University -!-------------------------------------------------------------- - - -!-------------------------------------------------------------- - SUBROUTINE WCOPY(N,X,incX,Y,incY) -!-------------------------------------------------------------- -! copies a vector, x, to a vector, y: y <- x -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SCOPY(N,X,1,Y,1) or CALL DCOPY(N,X,1,Y,1) -!-------------------------------------------------------------- -! USE RACM_Precision - - INTEGER :: i,incX,incY,M,MP1,N - REAL(kind=dp) :: X(N),Y(N) - - IF (N.LE.0) RETURN - - M = MOD(N,8) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = X(i) - END DO - IF( N .LT. 8 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,8 - Y(i) = X(i) - Y(i + 1) = X(i + 1) - Y(i + 2) = X(i + 2) - Y(i + 3) = X(i + 3) - Y(i + 4) = X(i + 4) - Y(i + 5) = X(i + 5) - Y(i + 6) = X(i + 6) - Y(i + 7) = X(i + 7) - END DO - - END SUBROUTINE WCOPY - - -!-------------------------------------------------------------- - SUBROUTINE WAXPY(N,Alpha,X,incX,Y,incY) -!-------------------------------------------------------------- -! constant times a vector plus a vector: y <- y + Alpha*x -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SAXPY(N,Alpha,X,1,Y,1) or CALL DAXPY(N,Alpha,X,1,Y,1) -!-------------------------------------------------------------- - - INTEGER :: i,incX,incY,M,MP1,N - REAL(kind=dp) :: X(N),Y(N),Alpha - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp - - IF (Alpha .EQ. ZERO) RETURN - IF (N .LE. 0) RETURN - - M = MOD(N,4) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = Y(i) + Alpha*X(i) - END DO - IF( N .LT. 4 ) RETURN - END IF - MP1 = M + 1 - DO i = MP1,N,4 - Y(i) = Y(i) + Alpha*X(i) - Y(i + 1) = Y(i + 1) + Alpha*X(i + 1) - Y(i + 2) = Y(i + 2) + Alpha*X(i + 2) - Y(i + 3) = Y(i + 3) + Alpha*X(i + 3) - END DO - - END SUBROUTINE WAXPY - - - -!-------------------------------------------------------------- - SUBROUTINE WSCAL(N,Alpha,X,incX) -!-------------------------------------------------------------- -! constant times a vector: x(1:N) <- Alpha*x(1:N) -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SSCAL(N,Alpha,X,1) or CALL DSCAL(N,Alpha,X,1) -!-------------------------------------------------------------- - - INTEGER :: i,incX,M,MP1,N - REAL(kind=dp) :: X(N),Alpha - REAL(kind=dp), PARAMETER :: ZERO=0.0_dp, ONE=1.0_dp - - IF (Alpha .EQ. ONE) RETURN - IF (N .LE. 0) RETURN - - M = MOD(N,5) - IF( M .NE. 0 ) THEN - IF (Alpha .EQ. (-ONE)) THEN - DO i = 1,M - X(i) = -X(i) - END DO - ELSEIF (Alpha .EQ. ZERO) THEN - DO i = 1,M - X(i) = ZERO - END DO - ELSE - DO i = 1,M - X(i) = Alpha*X(i) - END DO - END IF - IF( N .LT. 5 ) RETURN - END IF - MP1 = M + 1 - IF (Alpha .EQ. (-ONE)) THEN - DO i = MP1,N,5 - X(i) = -X(i) - X(i + 1) = -X(i + 1) - X(i + 2) = -X(i + 2) - X(i + 3) = -X(i + 3) - X(i + 4) = -X(i + 4) - END DO - ELSEIF (Alpha .EQ. ZERO) THEN - DO i = MP1,N,5 - X(i) = ZERO - X(i + 1) = ZERO - X(i + 2) = ZERO - X(i + 3) = ZERO - X(i + 4) = ZERO - END DO - ELSE - DO i = MP1,N,5 - X(i) = Alpha*X(i) - X(i + 1) = Alpha*X(i + 1) - X(i + 2) = Alpha*X(i + 2) - X(i + 3) = Alpha*X(i + 3) - X(i + 4) = Alpha*X(i + 4) - END DO - END IF - - END SUBROUTINE WSCAL - -!-------------------------------------------------------------- - REAL(kind=dp) FUNCTION WLAMCH( C ) -!-------------------------------------------------------------- -! returns epsilon machine -! after LAPACK -! replace this by the function from the optimized LAPACK implementation: -! CALL SLAMCH('E') or CALL DLAMCH('E') -!-------------------------------------------------------------- -! USE RACM_Precision - - CHARACTER :: C - INTEGER :: i - REAL(kind=dp), SAVE :: Eps - REAL(kind=dp) :: Suma - REAL(kind=dp), PARAMETER :: ONE=1.0_dp, HALF=0.5_dp - LOGICAL, SAVE :: First=.TRUE. - - IF (First) THEN - First = .FALSE. - Eps = HALF**(16) - DO i = 17, 80 - Eps = Eps*HALF - CALL WLAMCH_ADD(ONE,Eps,Suma) - IF (Suma.LE.ONE) GOTO 10 - END DO - PRINT*,'ERROR IN WLAMCH. EPS < ',Eps - RETURN -10 Eps = Eps*2 - i = i-1 - END IF - - WLAMCH = Eps - - END FUNCTION WLAMCH - - SUBROUTINE WLAMCH_ADD( A, B, Suma ) -! USE RACM_Precision - - REAL(kind=dp) A, B, Suma - Suma = A + B - - END SUBROUTINE WLAMCH_ADD -!-------------------------------------------------------------- - - -!-------------------------------------------------------------- - SUBROUTINE SET2ZERO(N,Y) -!-------------------------------------------------------------- -! copies zeros into the vector y: y <- 0 -! after BLAS -!-------------------------------------------------------------- - - INTEGER :: i,M,MP1,N - REAL(kind=dp) :: Y(N) - REAL(kind=dp), PARAMETER :: ZERO = 0.0d0 - - IF (N.LE.0) RETURN - - M = MOD(N,8) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = ZERO - END DO - IF( N .LT. 8 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,8 - Y(i) = ZERO - Y(i + 1) = ZERO - Y(i + 2) = ZERO - Y(i + 3) = ZERO - Y(i + 4) = ZERO - Y(i + 5) = ZERO - Y(i + 6) = ZERO - Y(i + 7) = ZERO - END DO - - END SUBROUTINE SET2ZERO - - -!-------------------------------------------------------------- - REAL(kind=dp) FUNCTION WDOT (N, DX, incX, DY, incY) -!-------------------------------------------------------------- -! dot produce: wdot = x(1:N)*y(1:N) -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SDOT(N,X,1,Y,1) or CALL DDOT(N,X,1,Y,1) -!-------------------------------------------------------------- -! USE messy_mecca_kpp_Precision -!-------------------------------------------------------------- - IMPLICIT NONE - INTEGER :: N, incX, incY - REAL(kind=dp) :: DX(N), DY(N) - - INTEGER :: i, IX, IY, M, MP1, NS - - WDOT = 0.0D0 - IF (N .LE. 0) RETURN - IF (incX .EQ. incY) IF (incX-1) 5,20,60 -! -! Code for unequal or nonpositive increments. -! - 5 IX = 1 - IY = 1 - IF (incX .LT. 0) IX = (-N+1)*incX + 1 - IF (incY .LT. 0) IY = (-N+1)*incY + 1 - DO i = 1,N - WDOT = WDOT + DX(IX)*DY(IY) - IX = IX + incX - IY = IY + incY - END DO - RETURN -! -! Code for both increments equal to 1. -! -! Clean-up loop so remaining vector length is a multiple of 5. -! - 20 M = MOD(N,5) - IF (M .EQ. 0) GO TO 40 - DO i = 1,M - WDOT = WDOT + DX(i)*DY(i) - END DO - IF (N .LT. 5) RETURN - 40 MP1 = M + 1 - DO i = MP1,N,5 - WDOT = WDOT + DX(i)*DY(i) + DX(i+1)*DY(i+1) + DX(i+2)*DY(i+2) + & - DX(i+3)*DY(i+3) + DX(i+4)*DY(i+4) - END DO - RETURN -! -! Code for equal, positive, non-unit increments. -! - 60 NS = N*incX - DO i = 1,NS,incX - WDOT = WDOT + DX(i)*DY(i) - END DO - - END FUNCTION WDOT - - -!-------------------------------------------------------------- - SUBROUTINE WADD(N,X,Y,Z) -!-------------------------------------------------------------- -! adds two vectors: z <- x + y -! BLAS - like -!-------------------------------------------------------------- -! USE RACM_Precision - - INTEGER :: i, M, MP1, N - REAL(kind=dp) :: X(N),Y(N),Z(N) - - IF (N.LE.0) RETURN - - M = MOD(N,5) - IF( M /= 0 ) THEN - DO i = 1,M - Z(i) = X(i) + Y(i) - END DO - IF( N < 5 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,5 - Z(i) = X(i) + Y(i) - Z(i + 1) = X(i + 1) + Y(i + 1) - Z(i + 2) = X(i + 2) + Y(i + 2) - Z(i + 3) = X(i + 3) + Y(i + 3) - Z(i + 4) = X(i + 4) + Y(i + 4) - END DO - - END SUBROUTINE WADD - - - -!-------------------------------------------------------------- - SUBROUTINE WGEFA(N,A,Ipvt,info) -!-------------------------------------------------------------- -! WGEFA FACTORS THE MATRIX A (N,N) BY -! GAUSS ELIMINATION WITH PARTIAL PIVOTING -! LINPACK - LIKE -!-------------------------------------------------------------- -! - INTEGER :: N,Ipvt(N),info - REAL(kind=dp) :: A(N,N) - REAL(kind=dp) :: t, dmax, da - INTEGER :: j,k,l - REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0 - - info = 0 - -size: IF (n > 1) THEN - -col: DO k = 1, n-1 - -! find l = pivot index -! l = idamax(n-k+1,A(k,k),1) + k - 1 - l = k; dmax = abs(A(k,k)) - DO j = k+1,n - da = ABS(A(j,k)) - IF (da > dmax) THEN - l = j; dmax = da - END IF - END DO - Ipvt(k) = l - -! zero pivot implies this column already triangularized - IF (ABS(A(l,k)) < TINY(ZERO)) THEN - info = k - return - ELSE - IF (l /= k) THEN - t = A(l,k); A(l,k) = A(k,k); A(k,k) = t - END IF - t = -ONE/A(k,k) - CALL WSCAL(n-k,t,A(k+1,k),1) - DO j = k+1, n - t = A(l,j) - IF (l /= k) THEN - A(l,j) = A(k,j); A(k,j) = t - END IF - CALL WAXPY(n-k,t,A(k+1,k),1,A(k+1,j),1) - END DO - END IF - - END DO col - - END IF size - - Ipvt(N) = N - IF (ABS(A(N,N)) == ZERO) info = N - - END SUBROUTINE WGEFA - - -!-------------------------------------------------------------- - SUBROUTINE WGESL(Trans,N,A,Ipvt,b) -!-------------------------------------------------------------- -! WGESL solves the system -! a * x = b or trans(a) * x = b -! using the factors computed by WGEFA. -! -! Trans = 'N' to solve A*x = b , -! = 'T' to solve transpose(A)*x = b -! LINPACK - LIKE -!-------------------------------------------------------------- - - INTEGER :: N,Ipvt(N) - CHARACTER :: trans - REAL(kind=dp) :: A(N,N),b(N) - REAL(kind=dp) :: t - INTEGER :: k,kb,l - - - SELECT CASE (Trans) - - CASE ('n','N') ! Solve A * x = b - -! first solve L*y = b - IF (n >= 2) THEN - DO k = 1, n-1 - l = Ipvt(k) - t = b(l) - IF (l /= k) THEN - b(l) = b(k) - b(k) = t - END IF - CALL WAXPY(n-k,t,a(k+1,k),1,b(k+1),1) - END DO - END IF -! now solve U*x = y - DO kb = 1, n - k = n + 1 - kb - b(k) = b(k)/a(k,k) - t = -b(k) - CALL WAXPY(k-1,t,a(1,k),1,b(1),1) - END DO - - CASE ('t','T') ! Solve transpose(A) * x = b - -! first solve trans(U)*y = b - DO k = 1, n - t = WDOT(k-1,a(1,k),1,b(1),1) - b(k) = (b(k) - t)/a(k,k) - END DO -! now solve trans(L)*x = y - IF (n >= 2) THEN - DO kb = 1, n-1 - k = n - kb - b(k) = b(k) + WDOT(n-k,a(k+1,k),1,b(k+1),1) - l = Ipvt(k) - IF (l /= k) THEN - t = b(l); b(l) = b(k); b(k) = t - END IF - END DO - END IF - - END SELECT - - END SUBROUTINE WGESL -! End of BLAS_UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE RACM_LinearAlgebra - diff --git a/boxmox/compiled_mechs/RACM/RACM_LinearAlgebra.o b/boxmox/compiled_mechs/RACM/RACM_LinearAlgebra.o deleted file mode 100644 index 7b977a7a222725dbb8f240da00af6bfa3d52ea49..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/RACM_LinearAlgebra.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/RACM_Main.f90 b/boxmox/compiled_mechs/RACM/RACM_Main.f90 deleted file mode 100644 index fc9be98315b702327a0a699343e69c6d12339eef..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RACM/RACM_Main.f90 +++ /dev/null @@ -1,161 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Main Program File -! -! Generated by KPP-2.2.3 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 : RACM_Main.f90 -! Time : Thu Oct 8 08:22:22 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RACM_22746_BOXMOX -! Equation file : RACM.kpp -! Output root filename : RACM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! MAIN - Main program - driver routine -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -PROGRAM RACM_Driver - - USE RACM_Model - USE RACM_Initialize, ONLY: Initialize - - REAL(kind=dp) :: T, DVAL(NSPEC) - REAL(kind=dp) :: RSTATE(20) - INTEGER :: IERR - INTEGER :: i, tcount, ttot - CHARACTER(LEN=60), PARAMETER :: & - brk = "------------------------------------------------------------" - - !~~~> Initialization - - STEPMIN = 0.0d0 - STEPMAX = 0.0d0 - - DO i=1,NVAR - RTOL(i) = 1.0d-4 - ATOL(i) = 1.0d-3 - END DO - - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX (__BOXMOX_VERSION__) driver" - WRITE(*,*) brk - WRITE(*,*) " " - - CALL Initialize() - - WRITE(*,*) brk - WRITE(*,*) " " - - CALL UpdateEnvironment() - - CALL readInput('InitialConditions.csv', NSPEC, SPC_NAMES, C, & - InitialCondition) - CALL InitSaveData() - - CALL InitFixNOx(NSPEC, SPC_NAMES, C) - - !~~~> Time loop - T = TSTART - tcount = 1 - ttot = NINT((TEND - TSTART) / DT) - kron: DO WHILE (T < TEND) - - IF (lverbose) THEN - WRITE(*,*) "" - WRITE(*,"(1X,A,F8.2,A)") "-------------------- time (s): ", T, & - " --------------------" - WRITE(*,*) "" - ENDIF - - TIME = T - CALL GetMass( C, DVAL ) - CALL SaveData() - - CALL UpdateEnvironment() - CALL UpdateAerosol() - CALL UpdatePhotolysisRates() - - CALL UpdateKturb() - - CALL readInput('Background.csv', NSPEC, SPC_NAMES, C, Mix, lzero=.TRUE.) - CALL readInput('Emissions.csv', NSPEC, SPC_NAMES, C, Emission) - CALL readInput('Deposition.csv', NSPEC, SPC_NAMES, C, Deposition) - - CALL Update_SUN() - CALL Update_RCONST() - - IF (T == TSTART) WRITE(*,*) " " - - IF ( MOD(tcount * 10, ttot) .EQ. 0 ) THEN - WRITE(6,991) (T-TSTART)/(TEND-TSTART)*100, T, & - ( TRIM(SPC_NAMES(MONITOR(i))), & - C(MONITOR(i))/CFACTOR, i=1,NMONITOR ) - ENDIF - - IF (lfix_NOx) THEN - CALL FixNOx(NSPEC, SPC_NAMES, C) - ENDIF - - CALL INTEGRATE( TIN = T, TOUT = T+DT, RSTATUS_U = RSTATE, & - ICNTRL_U = (/ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /), & - IERR_U = IERR ) - T = RSTATE(1) - - tcount = tcount + 1 - - IF (IERR < 0) THEN - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX integration failed, stopping." - WRITE(*,*) brk - WRITE(*,*) " " - STOP 1 - ENDIF - - IF (T == TSTART .OR. lverbose) THEN - WRITE(*,*) "" - WRITE(*,*) brk - WRITE(*,*) "" - ENDIF - - END DO kron - !~~~> End Time loop - - CALL GetMass( C, DVAL ) - WRITE(6,991) (T-TSTART)/(TEND-TSTART)*100, T, & - ( TRIM(SPC_NAMES(MONITOR(i))), & - C(MONITOR(i))/CFACTOR, i=1,NMONITOR ) - TIME = T - CALL SaveData() - CALL CloseSaveData() - - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX successfully completed." - WRITE(*,*) brk - WRITE(*,*) " " - -991 FORMAT(F6.1,'%. T=',E9.3,2X,200(A,'=',E11.4,'; ')) - -END PROGRAM RACM_Driver - -! End of MAIN function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - diff --git a/boxmox/compiled_mechs/RACM/RACM_Main.o b/boxmox/compiled_mechs/RACM/RACM_Main.o deleted file mode 100644 index c8bdd61893b6aef5923d2c3b7625c97761a75a4a..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/RACM_Main.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/RACM_Model.f90 b/boxmox/compiled_mechs/RACM/RACM_Model.f90 deleted file mode 100644 index 7b30efeee0327566b77eaf09a68551dd9efea21a..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RACM/RACM_Model.f90 +++ /dev/null @@ -1,21 +0,0 @@ -MODULE RACM_Model - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Completely defines the model RACM -! by using all the associated modules -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RACM_Precision - USE RACM_Parameters - USE RACM_Global - USE RACM_Function - USE RACM_Integrator - USE RACM_Rates - USE RACM_Jacobian - USE RACM_Stoichiom - USE RACM_LinearAlgebra - USE RACM_Monitor - USE RACM_Util - -END MODULE RACM_Model - diff --git a/boxmox/compiled_mechs/RACM/RACM_Model.o b/boxmox/compiled_mechs/RACM/RACM_Model.o deleted file mode 100644 index 83decf4921e30b45de8a96fca2db51bc2bf3deb6..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/RACM_Model.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/RACM_Monitor.f90 b/boxmox/compiled_mechs/RACM/RACM_Monitor.f90 deleted file mode 100644 index 0c2963f0508166ad1f999867c8f56c9b0553f5b2..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RACM/RACM_Monitor.f90 +++ /dev/null @@ -1,337 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Utility Data Module File -! -! Generated by KPP-2.2.3 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 : RACM_Monitor.f90 -! Time : Thu Oct 8 08:22:22 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RACM_22746_BOXMOX -! Equation file : RACM.kpp -! Output root filename : RACM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RACM_Monitor - - - CHARACTER(LEN=15), PARAMETER, DIMENSION(84) :: SPC_NAMES = (/ & - 'SULF ','CO2 ','ORA1 ', & - 'ORA2 ','SO2 ','O1D ', & - 'ISHP ','HC5 ','TOL ', & - 'XYL ','N2O5 ','HC8 ', & - 'MAHP ','HC3 ','UDD ', & - 'NALD ','ETH ','CH4 ', & - 'HNO4 ','OP1 ','MPAN ', & - 'HACE ','HONO ','HKET ', & - 'O3P ','PHO ','H2O2 ', & - 'ADDT ','ADDX ','ETE ', & - 'ADDC ','HNO3 ','PAA ', & - 'ISON ','SESQ ','PAN ', & - 'API ','CO ','LIM ', & - 'ISO ','MBO ','CSL ', & - 'DIEN ','MACP ','TPAN ', & - 'GLY ','ETEP ','OLTP ', & - 'MACR ','ISOP ','APIP ', & - 'KET ','MGLY ','CSLP ', & - 'LIMP ','HC8P ','HC5P ', & - 'HCHO ','TOLP ','XYLP ', & - 'OLIP ','ONIT ','DCB ', & - 'XO2 ','OLT ','ALD ', & - 'OLI ','OLND ','OLNN ', & - 'ETHP ','TCO3 ','O3 ', & - 'HC3P ','MO2 ','OP2 ', & - 'HO2 ','ACO3 ','HO ', & - 'NO3 ','KETP ','NO ', & - 'NO2 ','H2O ','M ' /) - - INTEGER, PARAMETER, DIMENSION(84) :: LOOKAT = (/ & - 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, & - 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, & - 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, & - 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, & - 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, & - 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, & - 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84 /) - - INTEGER, DIMENSION(1) :: MONITOR - CHARACTER(LEN=15), DIMENSION(1) :: SMASS - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_0 = (/ & - ' NO2 --> O3P + NO ', & - ' O3 --> O1D ', & - ' O3 --> O3P ', & - ' HONO --> HO + NO ', & - ' HNO3 --> HO + NO2 ', & - ' HNO4 --> 0.65 HO2 + 0.35 HO + 0.35 NO3 + 0.65 NO2 ', & - ' NO3 --> NO ', & - ' NO3 --> O3P + NO2 ', & - ' H2O2 --> 2 HO ', & - ' HCHO --> CO ', & - ' HCHO --> CO + 2 HO2 ', & - ' ALD --> CO + MO2 + HO2 ', & - ' OP1 --> HCHO + HO2 + HO ', & - ' OP2 --> ALD + HO2 + HO ', & - ' PAA --> MO2 + HO ', & - ' KET --> ETHP + ACO3 ', & - ' GLY --> 1.87 CO + 0.13 HCHO ', & - ' GLY --> 1.55 CO + 0.45 HCHO + 0.8 HO2 ', & - ' MGLY --> CO + HO2 + ACO3 ', & - ' DCB --> TCO3 + HO2 ', & - ' ONIT --> 0.8 KET + 0.2 ALD + HO2 + NO2 ', & - ' MACR --> CO + HCHO + HO2 + ACO3 ', & - ' HKET --> HCHO + HO2 + ACO3 ', & - ' O3P + M --> O3 ', & - ' O3P + O3 --> M ', & - ' O1D + M --> O3P ', & - ' O1D + H2O --> 2 HO ', & - ' O3 + HO --> HO2 ', & - ' O3 + HO2 --> HO ', & - ' HO2 + HO --> H2O ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_1 = (/ & - ' H2O2 + HO --> HO2 + H2O ', & - ' 2 HO2 --> H2O2 ', & - '2 HO2 + H2O --> H2O2 + H2O ', & - ' O3P + NO --> NO2 ', & - ' O3P + NO2 --> NO ', & - ' O3P + NO2 --> NO3 ', & - ' HO + NO --> HONO ', & - ' HO + NO2 --> HNO3 ', & - ' HO + NO3 --> HO2 + NO2 ', & - ' HO2 + NO --> HO + NO2 ', & - ' HO2 + NO2 --> HNO4 ', & - ' HNO4 --> HO2 + NO2 ', & - ' HO2 + NO3 --> 0.3 HNO3 + 0.7 HO + 0.7 NO2 ', & - ' HONO + HO --> NO2 + H2O ', & - ' HNO3 + HO --> NO3 + H2O ', & - ' HNO4 + HO --> NO2 + H2O ', & - ' O3 + NO --> NO2 ', & - ' O3 + NO2 --> NO3 ', & - ' 2 NO + M --> 2 NO2 ', & - ' NO3 + NO --> 2 NO2 ', & - ' NO3 + NO2 --> NO + NO2 ', & - ' NO3 + NO2 --> N2O5 ', & - ' N2O5 --> NO3 + NO2 ', & - ' 2 NO3 --> 2 NO2 ', & - ' HO + M --> HO2 + H2O ', & - ' SO2 + HO --> SULF + HO2 ', & - ' CO + HO --> CO2 + HO2 ', & - ' NALD + HO --> CO + HCHO + NO2 ', & - ' HACE + HO --> MGLY + HO2 ', & - ' CH4 + HO --> MO2 + H2O ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_2 = (/ & - ' ETH + HO --> ETHP + H2O ', & - ' HC3 + HO --> 0.036 ORA1 + 0.036 CO + 0.036 GLY + 0.01 HCHO + 0.335 ALD + 0.583 HC3P + 0.381 HO2 + 0.036 HO + H2O ', & - ' HC5 + HO --> 0.25 KET + 0.75 HC5P + 0.25 HO2 + H2O ', & - ' HC8 + HO --> 0.024 HKET + 0.9511 HC8P + 0.025 ALD + 0.049 HO2 + H2O ', & - ' ETE + HO --> ETEP ', & - ' OLT + HO --> OLTP ', & - ' OLI + HO --> OLIP ', & - ' DIEN + HO --> ISOP ', & - ' ISO + HO --> ISOP ', & - ' API + HO --> APIP ', & - ' LIM + HO --> LIMP ', & - ' TOL + HO --> 0.9 ADDT + 0.1 XO2 + 0.1 HO2 ', & - ' XYL + HO --> 0.9 ADDX + 0.1 XO2 + 0.1 HO2 ', & - ' CSL + HO --> 0.1 PHO + 0.85 ADDC + 0.05 XO2 + 0.05 HO2 ', & - ' HCHO + HO --> CO + HO2 + H2O ', & - ' ALD + HO --> ACO3 + H2O ', & - ' KET + HO --> KETP + H2O ', & - ' HKET + HO --> MGLY + HO2 + H2O ', & - ' GLY + HO --> 2 CO + HO2 + H2O ', & - ' MGLY + HO --> CO + ACO3 + H2O ', & - ' MACR + HO --> MACP ', & - ' DCB + HO --> 0.35 UDD + 0.15 GLY + 0.15 MGLY + 0.5 XO2 + 0.5 TCO3 + 0.5 HO2 ', & - ' UDD + HO --> 0.12 KET + 0.88 ALD + HO2 ', & - ' OP1 + HO --> 0.35 HCHO + 0.65 MO2 + 0.35 HO ', & - ' OP2 + HO --> 0.41 KET + 0.07 XO2 + 0.08 ALD + 0.44 HC3P + 0.49 HO ', & - ' PAA + HO --> 0.35 HCHO + 0.35 XO2 + 0.35 HO2 + 0.65 ACO3 ', & - ' PAN + HO --> HCHO + XO2 + NO3 + H2O ', & - ' TPAN + HO --> 0.6 HKET + 0.4 PAN + 0.4 HCHO + XO2 + 0.4 HO2 + 0.6 NO3 ', & - ' ONIT + HO --> HC3P + NO2 + H2O ', & - ' HCHO + NO3 --> HNO3 + CO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_3 = (/ & - ' ALD + NO3 --> HNO3 + ACO3 ', & - ' GLY + NO3 --> HNO3 + 2 CO + HO2 ', & - ' MGLY + NO3 --> HNO3 + CO + ACO3 ', & - ' MAHP + HO --> MACP ', & - ' DCB + NO3 --> 0.5 HNO3 + 0.25 GLY + 0.03 KET + 0.25 MGLY + 0.5 XO2 + 0.25 ALD + 0.5 TCO3 + 0.5 HO2 + 0.5 NO2 ', & - ' CSL + NO3 --> PHO + HNO3 ', & - ' ETE + NO3 --> 0.2 OLND + 0.8 OLNN ', & - ' OLT + NO3 --> 0.57 OLND + 0.43 OLNN ', & - ' OLI + NO3 --> 0.89 OLND + 0.11 OLNN ', & - ' DIEN + NO3 --> 0.9 MACR + 0.1 OLND + 0.9 OLNN ', & - ' ISO + NO3 --> ISON ', & - ' API + NO3 --> 0.9 OLND + 0.1 OLNN ', & - ' LIM + NO3 --> 0.87 OLND + 0.13 OLNN ', & - ' TPAN + NO3 --> 0.4 PAN + 0.4 HCHO + 0.6 ONIT + XO2 + 0.6 NO3 + 0.4 NO2 ', & - ' ETE + O3 --> 0.37 ORA1 + 0.43 CO + HCHO + 0.26 HO2 + 0.12 HO ', & - ' OLT + O3 --> 0.14 ORA1 + 0.1 ORA2 + 0.03 ETH + 0.06 CH4 + 0.006 H2O2 + 0.37 CO + 0.03 KET + 0.64 HCHO + 0.44 ALD + 0.1 ETHP + 0.19 MO2 + 0.25 HO2 + 0.4 HO + 0.03 KETP ', & - ' OLI + O3 --> 0.14 ORA2 + 0.06 ETH + 0.07 CH4 + 0.011 H2O2 + 0.3 CO + 0.16 KET + 0.02 HCHO + 0.99 ALD + 0.18 ETHP + 0.23 MO2 + 0.22 HO2 + 0.63 HO + 0.12 KETP ', & - ' DIEN + O3 --> 0.15 ORA1 + 0.09 O3P + 0.001 H2O2 + 0.36 CO + 0.39 MACR + 0.9 HCHO + 0.13 XO2 + 0.35 OLT + 0.03 MO2 + 0.3 HO2 + 0.15 ACO3 + 0.28 HO + 0.02 KETP ', & - ' ISO + O3 --> 0.28 ORA1 + 0.09 H2O2 + 0.14 CO + 0.1 MACP + 0.65 MACR + 0.58 HCHO + 0.08 MO2 + 0.25 HO2 + 0.1 ACO3 + 0.25 HO ', & - ' API + O3 --> 0.02 H2O2 + 0.14 CO + 0.53 KET + 0.65 ALD + 0.2 ETHP + 0.1 HO2 + 0.85 HO + 0.42 KETP ', & - ' LIM + O3 --> 0.01 ORA1 + 0.07 ORA2 + 0.02 H2O2 + 0.14 CO + 0.79 MACR + 0.04 HCHO + 0.46 OLT + 0.16 ETHP + 0.1 HO2 + 0.85 HO + 0.42 KETP ', & - ' MACR + O3 --> 0.45 ORA1 + 0.22 CO + 0.9 MGLY + 0.32 HO2 + 0.1 ACO3 + 0.19 HO ', & - ' DCB + O3 --> 0.11 ORA1 + 0.21 ORA2 + 0.11 PAA + 0.66 CO + 0.5 GLY + 0.62 MGLY + 0.16 ALD + 0.29 HO2 + 0.28 ACO3 + 0.21 HO ', & - ' TPAN + O3 --> 0.11 ORA1 + 0.3 PAN + 0.13 CO + 0.7 HCHO + 0.08 HO2 + 0.7 ACO3 + 0.036 HO + 0.7 NO2 ', & - ' PHO + NO2 --> 0.1 CSL + ONIT ', & - ' PHO + HO2 --> CSL ', & - ' ADDT + NO2 --> HONO + CSL ', & - ' ADDT + M --> 0.02 CSL + 0.98 TOLP + 0.02 HO2 ', & - ' ADDT + O3 --> CSL + HO ', & - ' ADDX + NO2 --> HONO + CSL ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_4 = (/ & - ' ADDX + M --> 0.02 CSL + 0.98 XYLP + 0.02 HO2 ', & - ' ADDX + O3 --> CSL + HO ', & - ' ADDC + NO2 --> HONO + CSL ', & - ' ADDC + M --> 0.02 CSL + 0.98 CSLP + 0.02 HO2 ', & - ' ADDC + O3 --> CSL + HO ', & - ' ACO3 + NO2 --> PAN ', & - ' PAN --> ACO3 + NO2 ', & - ' TCO3 + NO2 --> TPAN ', & - ' TPAN --> TCO3 + NO2 ', & - ' MO2 + NO --> HCHO + HO2 + NO2 ', & - ' ETHP + NO --> ALD + HO2 + NO2 ', & - ' HC3P + NO --> 0.063 GLY + 0.623 KET + 0.047 HCHO + 0.059 ONIT + 0.048 XO2 + 0.233 ALD + 0.048 ETHP + 0.15 MO2 + 0.742 HO2 + 0.941 NO2 ', & - ' HC5P + NO --> 0.722 KET + 0.021 HCHO + 0.124 ONIT + 0.334 XO2 + 0.211 ALD + 0.245 ETHP + 0.031 MO2 + 0.599 HO2 + 0.876 NO2 ', & - ' HC8P + NO --> 0.642 KET + 0.261 ONIT + 0.416 XO2 + 0.15 ALD + 0.133 ETHP + 0.606 HO2 + 0.739 NO2 ', & - ' ETEP + NO --> 1.6 HCHO + 0.2 ALD + HO2 + NO2 ', & - ' OLTP + NO --> 0.06 KET + HCHO + 0.94 ALD + HO2 + NO2 ', & - ' OLIP + NO --> 0.29 KET + 1.71 ALD + HO2 + NO2 ', & - ' ISOP + NO --> 0.046 ISON + MACR + HCHO + HO2 + NO2 ', & - ' APIP + NO --> 0.8 KET + 0.2 ONIT + 0.8 ALD + 0.8 HO2 + 0.8 NO2 ', & - ' LIMP + NO --> 0.4 MACR + 0.25 HCHO + 0.35 ONIT + 0.25 OLI + 0.65 HO2 + 0.65 NO2 ', & - ' TOLP + NO --> 1.2 GLY + 0.65 MGLY + 0.05 ONIT + 0.5 DCB + 0.95 HO2 + 0.95 NO2 ', & - ' XYLP + NO --> 0.35 GLY + 0.6 MGLY + 0.05 ONIT + 0.95 DCB + 0.95 HO2 + 0.95 NO2 ', & - ' CSLP + NO --> GLY + MGLY + HO2 + NO2 ', & - ' ACO3 + NO --> MO2 + NO2 ', & - ' TCO3 + NO --> HCHO + ACO3 + NO2 ', & - ' KETP + NO --> 0.54 MGLY + 0.16 XO2 + 0.46 ALD + 0.77 HO2 + 0.23 ACO3 + NO2 ', & - ' OLNN + NO --> ONIT + HO2 + NO2 ', & - ' OLND + NO --> 0.464 KET + 0.287 HCHO + 1.24 ALD + 2 NO2 ', & - ' MO2 + HO2 --> OP1 ', & - ' ETHP + HO2 --> OP2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_5 = (/ & - ' HC3P + HO2 --> OP2 ', & - ' HC5P + HO2 --> OP2 ', & - ' HC8P + HO2 --> OP2 ', & - ' ETEP + HO2 --> OP2 ', & - ' OLTP + HO2 --> OP2 ', & - ' OLIP + HO2 --> OP2 ', & - ' ISOP + HO2 --> ISHP ', & - ' APIP + HO2 --> OP2 ', & - ' LIMP + HO2 --> OP2 ', & - ' TOLP + HO2 --> OP2 ', & - ' XYLP + HO2 --> OP2 ', & - ' CSLP + HO2 --> OP2 ', & - ' HO2 + ACO3 --> PAA ', & - ' HO2 + ACO3 --> ORA2 + O3 ', & - ' TCO3 + HO2 --> OP2 ', & - ' TCO3 + HO2 --> ORA2 + O3 ', & - ' HO2 + KETP --> OP2 ', & - ' OLNN + HO2 --> ONIT ', & - ' OLND + HO2 --> ONIT ', & - ' 2 MO2 --> 1.33 HCHO + 0.66 HO2 ', & - ' ETHP + MO2 --> 0.75 HCHO + 0.75 ALD + HO2 ', & - ' HC3P + MO2 --> 0.119 GLY + 0.018 KET + 0.005 MGLY + 0.81 HCHO + 0.085 XO2 + 0.58 ALD + 0.007 MO2 + 0.992 HO2 ', & - ' HC5P + MO2 --> 0.24 KET + 0.829 HCHO + 0.245 XO2 + 0.523 ALD + 0.014 ETHP + 0.049 MO2 + 0.946 HO2 ', & - ' HC8P + MO2 --> 0.419 KET + 0.753 HCHO + 0.322 XO2 + 0.411 ALD + 0.013 ETHP + 0.993 HO2 ', & - ' ETEP + MO2 --> 1.55 HCHO + 0.35 ALD + HO2 ', & - ' OLTP + MO2 --> 0.081 KET + 1.25 HCHO + 0.669 ALD + HO2 ', & - ' OLIP + MO2 --> 0.313 KET + 0.755 HCHO + 0.932 ALD + HO2 ', & - ' ISOP + MO2 --> 0.55 MACR + 1.09 HCHO + 0.37 OLT + 0.08 OLI + HO2 ', & - ' APIP + MO2 --> KET + HCHO + ALD + 2 HO2 ', & - ' LIMP + MO2 --> 0.6 MACR + 1.4 HCHO + 0.4 OLI + 2 HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_6 = (/ & - ' TOLP + MO2 --> 0.65 GLY + 0.35 MGLY + HCHO + DCB + HO2 ', & - ' XYLP + MO2 --> 0.37 GLY + 0.63 MGLY + HCHO + DCB + HO2 ', & - ' CSLP + MO2 --> GLY + MGLY + HCHO + 2 HO2 ', & - ' MO2 + ACO3 --> HCHO + MO2 + HO2 ', & - ' MO2 + ACO3 --> ORA2 + HCHO ', & - ' TCO3 + MO2 --> 2 HCHO + HO2 + ACO3 ', & - ' TCO3 + MO2 --> ORA2 + HCHO ', & - ' MO2 + KETP --> 0.3 HKET + 0.4 MGLY + 0.75 HCHO + 0.08 XO2 + 0.3 ALD + 0.88 HO2 + 0.12 ACO3 ', & - ' OLNN + MO2 --> 0.75 HCHO + ONIT + HO2 ', & - ' OLND + MO2 --> 0.149 KET + 0.96 HCHO + 0.5 ONIT + 0.64 ALD + 0.5 HO2 + 0.5 NO2 ', & - 'ETHP + ACO3 --> 0.5 ORA2 + ALD + 0.5 MO2 + 0.5 HO2 ', & - 'HC3P + ACO3 --> 0.499 ORA2 + 0.1 GLY + 0.127 KET + 0.004 MGLY + 0.091 HCHO + 0.071 XO2 + 0.724 ALD + 0.006 ETHP + 0.508 MO2 + 0.488 HO2 ', & - 'HC5P + ACO3 --> 0.495 ORA2 + 0.33 KET + 0.076 HCHO + 0.237 XO2 + 0.677 ALD + 0.018 ETHP + 0.554 MO2 + 0.438 HO2 ', & - 'HC8P + ACO3 --> 0.495 ORA2 + 0.581 KET + 0.318 XO2 + 0.497 ALD + 0.015 ETHP + 0.507 MO2 + 0.489 HO2 ', & - 'ETEP + ACO3 --> 0.5 ORA2 + 0.8 HCHO + 0.6 ALD + 0.5 MO2 + 0.5 HO2 ', & - 'OLTP + ACO3 --> 0.499 ORA2 + 0.141 KET + 0.501 HCHO + 0.859 ALD + 0.501 MO2 + 0.501 HO2 ', & - 'OLIP + ACO3 --> 0.49 ORA2 + 0.569 KET + 0.941 ALD + 0.51 MO2 + 0.51 HO2 ', & - 'ISOP + ACO3 --> 0.494 ORA2 + 0.771 MACR + 0.34 HCHO + 0.229 OLT + 0.506 MO2 + 0.506 HO2 ', & - 'APIP + ACO3 --> KET + ALD + MO2 + HO2 ', & - 'LIMP + ACO3 --> 0.6 MACR + 0.4 HCHO + 0.4 OLI + MO2 + HO2 ', & - 'TOLP + ACO3 --> 0.65 GLY + 0.35 MGLY + DCB + MO2 + HO2 ', & - 'XYLP + ACO3 --> 0.37 GLY + 0.63 MGLY + DCB + MO2 + HO2 ', & - 'CSLP + ACO3 --> GLY + MGLY + MO2 + HO2 ', & - ' 2 ACO3 --> 2 MO2 ', & - 'TCO3 + ACO3 --> HCHO + MO2 + ACO3 ', & - 'ACO3 + KETP --> 0.5 ORA2 + 0.11 KET + 0.54 MGLY + 0.08 XO2 + 0.35 ALD + 0.5 MO2 + 0.38 HO2 + 0.12 ACO3 ', & - 'OLNN + ACO3 --> 0.5 ORA2 + ONIT + 0.5 MO2 + 0.5 HO2 ', & - 'OLND + ACO3 --> 0.484 ORA2 + 0.167 KET + 0.207 HCHO + 0.484 ONIT + 0.65 ALD + 0.516 MO2 + 0.516 NO2 ', & - ' 2 OLNN --> 2 ONIT + HO2 ', & - 'OLND + OLNN --> 0.149 KET + 0.202 HCHO + 1.5 ONIT + 0.64 ALD + 0.5 HO2 + 0.5 NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_7 = (/ & - ' 2 OLND --> 0.285 KET + 0.504 HCHO + ONIT + 1.21 ALD + NO2 ', & - ' MO2 + NO3 --> HCHO + HO2 + NO2 ', & - ' ETHP + NO3 --> ALD + HO2 + NO2 ', & - ' HC3P + NO3 --> 0.063 GLY + 0.67 KET + 0.048 HCHO + 0.051 XO2 + 0.243 ALD + 0.053 ETHP + 0.155 MO2 + 0.792 HO2 + NO2 ', & - ' HC5P + NO3 --> 0.828 KET + 0.021 HCHO + 0.391 XO2 + 0.239 ALD + 0.262 ETHP + 0.04 MO2 + 0.699 HO2 + NO2 ', & - ' HC8P + NO3 --> 0.88 KET + 0.587 XO2 + 0.187 ALD + 0.155 ETHP + 0.845 HO2 + NO2 ', & - ' ETEP + NO3 --> 1.6 HCHO + 0.2 ALD + HO2 + NO2 ', & - ' OLTP + NO3 --> 0.06 KET + HCHO + 0.94 ALD + HO2 + NO2 ', & - ' OLIP + NO3 --> 0.29 KET + 1.71 ALD + HO2 + NO2 ', & - ' MPAN + HO --> HACE + NO2 ', & - ' APIP + NO3 --> KET + ALD + HO2 + NO2 ', & - ' LIMP + NO3 --> 0.6 MACR + 0.4 HCHO + 0.4 OLI + HO2 + NO2 ', & - ' TOLP + NO3 --> 1.3 GLY + 0.7 MGLY + 0.5 DCB + HO2 + NO2 ', & - ' XYLP + NO3 --> 0.74 GLY + 1.26 MGLY + DCB + HO2 + NO2 ', & - ' CSLP + NO3 --> GLY + MGLY + HO2 + NO2 ', & - ' ACO3 + NO3 --> MO2 + NO2 ', & - ' TCO3 + NO3 --> HCHO + ACO3 + NO2 ', & - ' NO3 + KETP --> 0.54 MGLY + 0.16 XO2 + 0.46 ALD + 0.77 HO2 + 0.23 ACO3 + NO2 ', & - ' OLNN + NO3 --> ONIT + HO2 + NO2 ', & - ' OLND + NO3 --> 0.469 KET + 0.28 HCHO + 1.24 ALD + 2 NO2 ', & - ' XO2 + HO2 --> OP2 ', & - ' XO2 + MO2 --> HCHO + HO2 ', & - ' XO2 + ACO3 --> MO2 ', & - ' 2 XO2 --> M ', & - ' XO2 + NO --> NO2 ', & - ' XO2 + NO3 --> NO2 ', & - ' 2 ISOP --> 2 MACR + HCHO + HO2 ', & - ' ISHP + HO --> MACR + HO ', & - ' ISON + HO --> NALD + HACE ', & - ' MACP + NO --> 0.25 HACE + 0.25 CO + 0.5 MGLY + 0.75 HCHO + 0.75 HO2 + 0.25 ACO3 + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(10) :: EQN_NAMES_8 = (/ & - ' MACP + HO2 --> MAHP ', & - ' 2 MACP --> HACE + 0.5 CO + MGLY + 0.5 HCHO + HO2 ', & - ' MACP + NO2 --> MPAN ', & - ' MPAN --> MACP + NO2 ', & - ' SESQ + HO --> 0.05 ORA1 + 0.36 KET + 0.3 HCHO + 0.19 OLIP ', & - ' SESQ + O3 --> 0.039 ORA1 + 0.053 ORA2 + 0.23 KET + 0.51 HCHO + 0.85 ALD + 0.63 HO ', & - ' SESQ + NO3 --> 0.9 MACR + 0.1 OLND + 0.9 OLNN ', & - ' MBO + HO --> OLIP ', & - ' MBO + NO3 --> 0.89 OLND + 0.11 OLNN ', & - ' MBO + O3 --> 0.14 ORA2 + 0.06 ETH + 0.07 CH4 + 0.011 H2O2 + 0.3 CO + 0.16 KET + 0.02 HCHO + 0.99 ALD + 0.18 ETHP + 0.23 MO2 + 0.22 HO2 + 0.63 HO + 0.12 KETP ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(250) :: EQN_NAMES = (/& - EQN_NAMES_0, EQN_NAMES_1, EQN_NAMES_2, EQN_NAMES_3, EQN_NAMES_4, & - EQN_NAMES_5, EQN_NAMES_6, EQN_NAMES_7, EQN_NAMES_8 /) - -! INLINED global variables - -! End INLINED global variables - - -END MODULE RACM_Monitor diff --git a/boxmox/compiled_mechs/RACM/RACM_Monitor.o b/boxmox/compiled_mechs/RACM/RACM_Monitor.o deleted file mode 100644 index 5872ae349c70542defdbb61021f9ad0e45870704..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/RACM_Monitor.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/RACM_Parameters.f90 b/boxmox/compiled_mechs/RACM/RACM_Parameters.f90 deleted file mode 100644 index ac5b307201c0f90f0905c432503c079ab0aaec52..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RACM/RACM_Parameters.f90 +++ /dev/null @@ -1,166 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Parameter Module File -! -! Generated by KPP-2.2.3 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 : RACM_Parameters.f90 -! Time : Thu Oct 8 08:22:22 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RACM_22746_BOXMOX -! Equation file : RACM.kpp -! Output root filename : RACM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RACM_Parameters - - USE RACM_Precision - PUBLIC - SAVE - - -! NSPEC - Number of chemical species - INTEGER, PARAMETER :: NSPEC = 84 -! NVAR - Number of Variable species - INTEGER, PARAMETER :: NVAR = 82 -! NVARACT - Number of Active species - INTEGER, PARAMETER :: NVARACT = 78 -! NFIX - Number of Fixed species - INTEGER, PARAMETER :: NFIX = 2 -! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 250 -! NVARST - Starting of variables in conc. vect. - INTEGER, PARAMETER :: NVARST = 1 -! NFIXST - Starting of fixed in conc. vect. - INTEGER, PARAMETER :: NFIXST = 83 -! NONZERO - Number of nonzero entries in Jacobian - INTEGER, PARAMETER :: NONZERO = 987 -! LU_NONZERO - Number of nonzero entries in LU factoriz. of Jacobian - INTEGER, PARAMETER :: LU_NONZERO = 1125 -! CNVAR - (NVAR+1) Number of elements in compressed row format - INTEGER, PARAMETER :: CNVAR = 83 -! CNEQN - (NREACT+1) Number stoicm elements in compressed col format - INTEGER, PARAMETER :: CNEQN = 251 -! NLOOKAT - Number of species to look at - INTEGER, PARAMETER :: NLOOKAT = 84 -! NMONITOR - Number of species to monitor - INTEGER, PARAMETER :: NMONITOR = 0 -! NMASS - Number of atoms to check mass balance - INTEGER, PARAMETER :: NMASS = 1 - -! Index declaration for variable species in C and VAR -! VAR(ind_spc) = C(ind_spc) - - INTEGER, PARAMETER :: ind_SULF = 1 - INTEGER, PARAMETER :: ind_CO2 = 2 - INTEGER, PARAMETER :: ind_ORA1 = 3 - INTEGER, PARAMETER :: ind_ORA2 = 4 - INTEGER, PARAMETER :: ind_SO2 = 5 - INTEGER, PARAMETER :: ind_O1D = 6 - INTEGER, PARAMETER :: ind_ISHP = 7 - INTEGER, PARAMETER :: ind_HC5 = 8 - INTEGER, PARAMETER :: ind_TOL = 9 - INTEGER, PARAMETER :: ind_XYL = 10 - INTEGER, PARAMETER :: ind_N2O5 = 11 - INTEGER, PARAMETER :: ind_HC8 = 12 - INTEGER, PARAMETER :: ind_MAHP = 13 - INTEGER, PARAMETER :: ind_HC3 = 14 - INTEGER, PARAMETER :: ind_UDD = 15 - INTEGER, PARAMETER :: ind_NALD = 16 - INTEGER, PARAMETER :: ind_ETH = 17 - INTEGER, PARAMETER :: ind_CH4 = 18 - INTEGER, PARAMETER :: ind_HNO4 = 19 - INTEGER, PARAMETER :: ind_OP1 = 20 - INTEGER, PARAMETER :: ind_MPAN = 21 - INTEGER, PARAMETER :: ind_HACE = 22 - INTEGER, PARAMETER :: ind_HONO = 23 - INTEGER, PARAMETER :: ind_HKET = 24 - INTEGER, PARAMETER :: ind_O3P = 25 - INTEGER, PARAMETER :: ind_PHO = 26 - INTEGER, PARAMETER :: ind_H2O2 = 27 - INTEGER, PARAMETER :: ind_ADDT = 28 - INTEGER, PARAMETER :: ind_ADDX = 29 - INTEGER, PARAMETER :: ind_ETE = 30 - INTEGER, PARAMETER :: ind_ADDC = 31 - INTEGER, PARAMETER :: ind_HNO3 = 32 - INTEGER, PARAMETER :: ind_PAA = 33 - INTEGER, PARAMETER :: ind_ISON = 34 - INTEGER, PARAMETER :: ind_SESQ = 35 - INTEGER, PARAMETER :: ind_PAN = 36 - INTEGER, PARAMETER :: ind_API = 37 - INTEGER, PARAMETER :: ind_CO = 38 - INTEGER, PARAMETER :: ind_LIM = 39 - INTEGER, PARAMETER :: ind_ISO = 40 - INTEGER, PARAMETER :: ind_MBO = 41 - INTEGER, PARAMETER :: ind_CSL = 42 - INTEGER, PARAMETER :: ind_DIEN = 43 - INTEGER, PARAMETER :: ind_MACP = 44 - INTEGER, PARAMETER :: ind_TPAN = 45 - INTEGER, PARAMETER :: ind_GLY = 46 - INTEGER, PARAMETER :: ind_ETEP = 47 - INTEGER, PARAMETER :: ind_OLTP = 48 - INTEGER, PARAMETER :: ind_MACR = 49 - INTEGER, PARAMETER :: ind_ISOP = 50 - INTEGER, PARAMETER :: ind_APIP = 51 - INTEGER, PARAMETER :: ind_KET = 52 - INTEGER, PARAMETER :: ind_MGLY = 53 - INTEGER, PARAMETER :: ind_CSLP = 54 - INTEGER, PARAMETER :: ind_LIMP = 55 - INTEGER, PARAMETER :: ind_HC8P = 56 - INTEGER, PARAMETER :: ind_HC5P = 57 - INTEGER, PARAMETER :: ind_HCHO = 58 - INTEGER, PARAMETER :: ind_TOLP = 59 - INTEGER, PARAMETER :: ind_XYLP = 60 - INTEGER, PARAMETER :: ind_OLIP = 61 - INTEGER, PARAMETER :: ind_ONIT = 62 - INTEGER, PARAMETER :: ind_DCB = 63 - INTEGER, PARAMETER :: ind_XO2 = 64 - INTEGER, PARAMETER :: ind_OLT = 65 - INTEGER, PARAMETER :: ind_ALD = 66 - INTEGER, PARAMETER :: ind_OLI = 67 - INTEGER, PARAMETER :: ind_OLND = 68 - INTEGER, PARAMETER :: ind_OLNN = 69 - INTEGER, PARAMETER :: ind_ETHP = 70 - INTEGER, PARAMETER :: ind_TCO3 = 71 - INTEGER, PARAMETER :: ind_O3 = 72 - INTEGER, PARAMETER :: ind_HC3P = 73 - INTEGER, PARAMETER :: ind_MO2 = 74 - INTEGER, PARAMETER :: ind_OP2 = 75 - INTEGER, PARAMETER :: ind_HO2 = 76 - INTEGER, PARAMETER :: ind_ACO3 = 77 - INTEGER, PARAMETER :: ind_HO = 78 - INTEGER, PARAMETER :: ind_NO3 = 79 - INTEGER, PARAMETER :: ind_KETP = 80 - INTEGER, PARAMETER :: ind_NO = 81 - INTEGER, PARAMETER :: ind_NO2 = 82 - -! Index declaration for fixed species in C -! C(ind_spc) - - INTEGER, PARAMETER :: ind_H2O = 83 - INTEGER, PARAMETER :: ind_M = 84 - -! Index declaration for fixed species in FIX -! FIX(indf_spc) = C(ind_spc) = C(NVAR+indf_spc) - - INTEGER, PARAMETER :: indf_H2O = 1 - INTEGER, PARAMETER :: indf_M = 2 - -! NJVRP - Length of sparse Jacobian JVRP - INTEGER, PARAMETER :: NJVRP = 454 - -! NSTOICM - Length of Sparse Stoichiometric Matrix - INTEGER, PARAMETER :: NSTOICM = 1247 - -END MODULE RACM_Parameters - diff --git a/boxmox/compiled_mechs/RACM/RACM_Parameters.o b/boxmox/compiled_mechs/RACM/RACM_Parameters.o deleted file mode 100644 index 2b563415c4c8f3a5a7a5e2051e5d375aa65a8618..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/RACM_Parameters.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/RACM_Precision.f90 b/boxmox/compiled_mechs/RACM/RACM_Precision.f90 deleted file mode 100644 index 405f70d702e991fcbf7892701e3b7e2fef52cd0b..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RACM/RACM_Precision.f90 +++ /dev/null @@ -1,17 +0,0 @@ - -MODULE RACM_Precision - -! -! Definition of different levels of accuracy -! for REAL variables using KIND parameterization -! -! KPP SP - Single precision kind - INTEGER, PARAMETER :: sp = SELECTED_REAL_KIND(6,30) -! KPP DP - Double precision kind - INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(14,300) -! KPP QP - Quadruple precision kind - INTEGER, PARAMETER :: qp = SELECTED_REAL_KIND(18,400) - -END MODULE RACM_Precision - - diff --git a/boxmox/compiled_mechs/RACM/RACM_Precision.o b/boxmox/compiled_mechs/RACM/RACM_Precision.o deleted file mode 100644 index 28fd986bf5b056248691316082f925dd7ce757e5..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/RACM_Precision.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/RACM_Rates.f90 b/boxmox/compiled_mechs/RACM/RACM_Rates.f90 deleted file mode 100644 index 7560bc0c08a4de9d01f6f4ba37a4f1d7937fb810..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RACM/RACM_Rates.f90 +++ /dev/null @@ -1,721 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The Reaction Rates File -! -! Generated by KPP-2.2.3 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 : RACM_Rates.f90 -! Time : Thu Oct 8 08:22:22 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RACM_22746_BOXMOX -! Equation file : RACM.kpp -! Output root filename : RACM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RACM_Rates - - USE RACM_Parameters - USE RACM_Global - USE RACM_Util - IMPLICIT NONE - -CONTAINS - - - -! Begin Rate Law Functions from KPP_HOME/util/UserRateLaws - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! User-defined Rate Law functions -! Note: the default argument type for rate laws, as read from the equations file, is single precision -! but all the internal calculations are performed in double precision -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~> Arrhenius -! REAL(kind=dp) FUNCTION ARR( A0,B0,C0 ) -! REAL A0,B0,C0 -! ARR = DBLE(A0) * EXP(-DBLE(B0)/TEMP) * (TEMP/300.0_dp)**DBLE(C0) -! END FUNCTION ARR - -! Arrhenius (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION ARR( A0,B0,C0, TEMP ) - REAL(kind=dp) :: TEMP - REAL(kind=dp) A0,B0,C0 - ARR = A0 * EXP( -B0 /TEMP ) * (TEMP/300._dp)**C0 - END FUNCTION ARR - -!~~~> Simplified Arrhenius, with two arguments -!~~~> Note: The argument B0 has a changed sign when compared to ARR -! REAL(kind=dp) FUNCTION ARR2( A0,B0 ) -! REAL A0,B0 -! ARR2 = DBLE(A0) * EXP( DBLE(B0)/TEMP ) -! END FUNCTION ARR2 -! CK 20140313 WRF-chem uses different kind of Arrhenius function -! with TEMP as argument... - REAL(kind=dp) FUNCTION ARR2( A0,B0, TEMP ) - REAL(kind=dp) :: TEMP - REAL(kind=dp) A0,B0 - ARR2 = A0 * EXP( -B0 /TEMP ) - END FUNCTION ARR2 -! CK 20140313 end - -! REAL(kind=dp) FUNCTION EP2(A0,C0,A2,C2,A3,C3) -! REAL A0,C0,A2,C2,A3,C3 -! REAL(kind=dp) K0,K2,K3 -! K0 = DBLE(A0) * EXP(-DBLE(C0)/TEMP) -! K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP) -! K3 = DBLE(A3) * EXP(-DBLE(C3)/TEMP) -! K3 = K3*CFACTOR*1.0E6_dp -! EP2 = K0 + K3/(1.0_dp+K3/K2 ) -! END FUNCTION EP2 - -! REAL(kind=dp) FUNCTION EP3(A1,C1,A2,C2) -! REAL A1, C1, A2, C2 -! REAL(kind=dp) K1, K2 -! K1 = DBLE(A1) * EXP(-DBLE(C1)/TEMP) -! K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP) -! EP3 = K1 + K2*(1.0E6_dp*CFACTOR) -! END FUNCTION EP3 - -! EP2 (added by psaide 22-07-2009) - REAL(kind=dp) FUNCTION EP2( A0,C0,A2,C2,A3,C3,TEMP,cair) - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A0,C0,A2,C2,A3,C3 - REAL(kind=dp) K0,K2,K3 - - K0 = A0 * EXP(-C0 /TEMP) - K2 = A2 * EXP(-C2 /TEMP) - K3 = A3 * EXP(-C3 /TEMP) -! K3 = K3 * 2.45E13_dp * 1.0E6_dp - K3 = K3 * cair - EP2 = K0 + K3/(1._dp+K3/K2 ) - END FUNCTION EP2 - -! EP3 (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION EP3(A1,C1,A2,C2,TEMP,cair) - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A1, C1, A2, C2 - REAL(kind=dp) K1, K2 - - K1 = A1 * EXP(-C1 /TEMP) - K2 = A2 * EXP(-C2 /TEMP) -! EP3 = K1 + K2*(1.0E6_dp * 2.45E13_dp) - EP3 = K1 + K2*cair - END FUNCTION EP3 - - -! REAL(kind=dp) FUNCTION FALL ( A0,B0,C0,A1,B1,C1,CF) -! REAL A0,B0,C0,A1,B1,C1,CF -! REAL(kind=dp) K0, K1 -! K0 = DBLE(A0) * EXP(-DBLE(B0)/TEMP)* (TEMP/300.0_dp)**DBLE(C0) -! K1 = DBLE(A1) * EXP(-DBLE(B1)/TEMP)* (TEMP/300.0_dp)**DBLE(C1) -! K0 = K0*CFACTOR*1.0E6_dp -! K1 = K0/K1 -! FALL = (K0/(1.0_dp+K1))* & -! DBLE(CF)**(1.0_dp/(1.0_dp+(LOG10(K1))**2)) -! END FUNCTION FALL - -! FALL (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION FALL( A0,B0,C0,A1,B1,C1,CF,TEMP,cair) - - INTRINSIC LOG10 - - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A0,B0,C0,A1,B1,C1,CF - REAL(kind=dp) K0, K1 - - K0 = A0 * EXP(-B0 /TEMP)* (TEMP/300._dp)**C0 - K1 = A1 * EXP(-B1 /TEMP)* (TEMP/300._dp)**C1 -! K0 = K0 * 2.45E13_dp * 1.0E6_dp - K0 = K0 * cair - K1 = K0/K1 - FALL = (K0/(1._dp+K1))*CF**(1._dp/(1._dp+(LOG10(K1))**2)) - - END FUNCTION FALL - -! FALL2 (added by psaide 28-10-2009) - REAL(KIND=dp) FUNCTION F2( A0,B0,C0,A1,B1,C1,CF,CN,TEMP,cair) - - INTRINSIC LOG10 - - REAL(KIND=dp) :: TEMP - REAL(KIND=dp) :: cair - REAL(KIND=dp) A0,B0,C0,A1,B1,C1,CF,CN - REAL(KIND=dp) K0, K1 - - K0 = A0 * EXP(-B0 /TEMP)* (TEMP/300._dp)**C0 - K1 = A1 * EXP(-B1 /TEMP)* (TEMP/300._dp)**C1 -! K0 = K0 * 2.45E13_dp * 1.0E6_dp - K0 = K0 * cair - K1 = K0/K1 - F2 = (K0/(1._dp+K1))*CF**(1._dp/(1._dp+(LOG10(K1)/CN)**2)) - - END FUNCTION F2 - - - !--------------------------------------------------------------------------- - - ELEMENTAL REAL(kind=dp) FUNCTION k_3rd(temp,cair,k0_300K,n,kinf_300K,m,fc) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL, INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL, INTENT(IN) :: n ! exponent for low pressure limit - REAL, INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL, INTENT(IN) :: m ! exponent for high pressure limit - REAL, INTENT(IN) :: fc ! broadening factor (usually fc=0.6) - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - k_3rd = k0_T/(1._dp+k_ratio)*fc**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - END FUNCTION k_3rd - - !--------------------------------------------------------------------------- - - ELEMENTAL REAL(kind=dp) FUNCTION k_arr (k_298,tdep,temp) - ! Arrhenius function - - REAL, INTENT(IN) :: k_298 ! k at T = 298.15K - REAL, INTENT(IN) :: tdep ! temperature dependence - REAL(kind=dp), INTENT(IN) :: temp ! temperature - - INTRINSIC EXP - - k_arr = k_298 * EXP(tdep*(1._dp/temp-3.3540E-3_dp)) ! 1/298.15=3.3540e-3 - - END FUNCTION k_arr - -! CK 20140313 in the following some more rate functions needed by -! WRF-chem packages - -!------------------------------------ -! Troe reactions (as in Stockwell et al, 1997) - - REAL(kind=dp) FUNCTION TROE(k0_300K,n,kinf_300K,m,temp,cair) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - TROE = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - END FUNCTION TROE - - - -!------------------------------------------- -! Troe equilibrium reactions (as in Stockwell et al, 1997) - - REAL(kind=dp) FUNCTION TROEE(A, B, k0_300K,n,kinf_300K,m,temp,cair) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - REAL(kind=dp), INTENT(IN) :: A, B - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio, troe - - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - troe = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - TROEE = A * EXP( - B / temp) * troe - - - - END FUNCTION TROEE - -!------------------------ -! k=T^2 C exp (-D/T) reactions - - REAL(kind=dp) FUNCTION THERMAL_T2(c, d ,temp) - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: c, d - - - THERMAL_T2= temp**2._dp * c * EXP(- d / temp) - - END FUNCTION THERMAL_T2 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! End of User-defined Rate Law functions -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -! End Rate Law Functions from KPP_HOME/util/UserRateLaws - - -! Begin INLINED Rate Law Functions - - - -! **************************************************************************** -! J - the photolysis rate retrieval function -! **************************************************************************** - REAL(kind=dp) FUNCTION J(name) - - CHARACTER(LEN=*), INTENT(IN) :: name - - CHARACTER(LEN=15) :: xname - - INTEGER :: i - - xname(:) = " " - xname(1:LEN(name)) = name - - J = jvalues(hash(xname)) - - RETURN - - END FUNCTION J -! **************************************************************************** - - -REAL(KIND=dp) FUNCTION k45( TEMP, C_M ) - REAL(KIND=dp), INTENT(IN) :: temp, c_m - REAL(KIND=dp) :: k0, k2, k3 - - k0=2.4E-14_dp * EXP(460._dp/TEMP) - k2=2.7E-17_dp * EXP(2199._dp/TEMP) - k3=6.5E-34_dp * EXP(1335._dp/TEMP) * c_m - - k45=k0+k3/(1+k3/k2) - -END FUNCTION k45 - -REAL(kind=dp) FUNCTION k57( TEMP, C_M ) - - INTRINSIC LOG10 - - REAL(KIND=dp), INTENT(IN) :: temp ! temperature [K] - REAL(KIND=dp), INTENT(IN) :: c_m ! air concentration [molecules/cm3] - REAL(KIND=dp) :: k0_300Kn ! low pressure limit at 300 K - REAL(KIND=dp) :: nn ! exponent for low pressure limit - REAL(KIND=dp) :: kinf_300Kn ! high pressure limit at 300 K - REAL(KIND=dp) :: mn ! exponent for high pressure limit - REAL(KIND=dp) :: zt_help, k0_T, kinf_T, k_ratio - REAL(KIND=dp) :: k57troe, k57cact - - k0_300Kn = 5.9e-33_dp - nn = 1.4_dp - kinf_300Kn = 1.1e-12_dp - mn = -1.3_dp - - zt_help = 300._dp/temp - k0_T = k0_300Kn * zt_help**(nn) * c_m ! k_0 at current T - kinf_T = kinf_300Kn * zt_help**(mn) ! k_inf at current T - k_ratio = k0_T/kinf_T - k57troe = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - k0_300Kn = 1.5e-13_dp - nn = -0.6_dp - kinf_300Kn = 2.9e9_dp - mn = -6.1_dp - - k0_T = k0_300Kn * zt_help**(nn)! k_0 at current T - kinf_T = kinf_300Kn * zt_help**(mn) / c_m ! k_inf at current T - k_ratio = k0_T/kinf_T - k57cact = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - k57 = k57troe + k57cact - -END FUNCTION k57 - - -! End INLINED Rate Law Functions - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_SUN - update SUN light using TIME -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - SUBROUTINE Update_SUN() - !USE RACM_Parameters - !USE RACM_Global - - IMPLICIT NONE - - REAL(kind=dp) :: SunRise, SunSet - REAL(kind=dp) :: Thour, Tlocal, Ttmp - ! PI - Value of pi - REAL(kind=dp), PARAMETER :: PI = 3.14159265358979d0 - - SunRise = 4.5_dp - SunSet = 19.5_dp - Thour = TIME/3600.0_dp - Tlocal = Thour - (INT(Thour)/24)*24 - - IF ((Tlocal>=SunRise).AND.(Tlocal<=SunSet)) THEN - Ttmp = (2.0*Tlocal-SunRise-SunSet)/(SunSet-SunRise) - IF (Ttmp.GT.0) THEN - Ttmp = Ttmp*Ttmp - ELSE - Ttmp = -Ttmp*Ttmp - END IF - SUN = ( 1.0_dp + COS(PI*Ttmp) )/2.0_dp - ELSE - SUN = 0.0_dp - END IF - - END SUBROUTINE Update_SUN - -! End of Update_SUN function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_RCONST - function to update rate constants -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Update_RCONST ( ) - - - - -! Begin INLINED RCONST - - -! End INLINED RCONST - - RCONST(1) = (j('no2')) - RCONST(2) = (j('o31d')) - RCONST(3) = (j('o33p')) - RCONST(4) = (j('hno2')) - RCONST(5) = (j('hno3')) - RCONST(6) = (j('hno4')) - RCONST(7) = (j('no3o2')) - RCONST(8) = (j('no3o')) - RCONST(9) = (j('h2o2')) - RCONST(10) = (j('ch2om')) - RCONST(11) = (j('ch2or')) - RCONST(12) = (j('ch3cho')) - RCONST(13) = (j('ch3o2h')) - RCONST(14) = (j('ch3coch3')) - RCONST(15) = (j('ch3coo2h')) - RCONST(16) = (j('ch3coc2h5')) - RCONST(17) = (j('hcocho')) - RCONST(18) = (j('hcochob')) - RCONST(19) = (j('ch3cocho')) - RCONST(20) = (j('hcochest')) - RCONST(21) = (j('ch3ono2')) - RCONST(22) = (j('macr')) - RCONST(23) = (j('ch3coc2h5')) - RCONST(24) = (.20946*(C_M*6.00D-34*(TEMP/300.0)**(-2.4))) - RCONST(25) = (ARR2(8.00D-12,2060.0_dp,TEMP)) - RCONST(26) = (.78084*ARR2(2.15D-11,-110.0_dp,TEMP)+.20946*ARR2(3.30D-11,-55.0_dp,TEMP)) - RCONST(27) = (ARR2(1.63D-10,-60.0_dp,TEMP)) - RCONST(28) = (ARR2(1.70D-12,940.0_dp,TEMP)) - RCONST(29) = (ARR2(1.0D-14,490.0_dp,TEMP)) - RCONST(30) = (ARR2(4.80D-11,-250.0_dp,TEMP)) - RCONST(31) = (1.8D-12) - RCONST(32) = ((3.5D-13*EXP(430./TEMP)+1.7D-33*C_M*EXP(1000./TEMP))) - RCONST(33) = ((4.9D-34*EXP(2630./TEMP)+2.38D-54*C_M*EXP(3200./TEMP))) - RCONST(34) = (TROE(9.00D-32,1.5_dp,3.00D-11,0.0_dp,TEMP,C_M)) - RCONST(35) = (ARR2(5.1D-12,-210.0_dp,TEMP)) - RCONST(36) = (TROE(2.5D-31,1.8_dp,2.20D-11,0.7_dp,TEMP,C_M)) - RCONST(37) = (TROE(7.00D-31,2.6_dp,3.6D-11,0.1_dp,TEMP,C_M)) - RCONST(38) = (TROE(1.8D-30,3.0_dp,2.8D-11,0.0_dp,TEMP,C_M)) - RCONST(39) = (2.20D-11) - RCONST(40) = (ARR2(3.50D-12,-250.0_dp,TEMP)) - RCONST(41) = (TROE(2.0D-31,3.4_dp,2.9D-12,1.1_dp,TEMP,C_M)) - RCONST(42) = (TROEE(4.76D26,10900.0_dp,2.0D-31,3.4_dp,2.9D-12,1.1_dp,TEMP,C_M)) - RCONST(43) = (3.50D-12) - RCONST(44) = (ARR2(1.80D-11,390.0_dp,TEMP)) - RCONST(45) = (k45(TEMP,C_M)) - RCONST(46) = (ARR2(1.30D-12,-380.0_dp,TEMP)) - RCONST(47) = (ARR2(3.0D-12,1500.0_dp,TEMP)) - RCONST(48) = (ARR2(1.20D-13,2450.0_dp,TEMP)) - RCONST(49) = ((.20946D0*ARR2(3.30D-39,-530.0_dp,TEMP))) - RCONST(50) = (ARR2(1.50D-11,-170.0_dp,TEMP)) - RCONST(51) = (ARR2(4.50D-14,1260.0_dp,TEMP)) - RCONST(52) = (TROE(2.0D-30,4.4_dp,1.4D-12,0.7_dp,TEMP,C_M)) - RCONST(53) = (TROEE(3.70D26,11000.0_dp,2.0D-30,4.4_dp,1.4D-12,0.7_dp,TEMP,C_M)) - RCONST(54) = (ARR2(8.50D-13,2450.0_dp,TEMP)) - RCONST(55) = ((5.31D-7*ARR2(2.8D-12,1800.0_dp,TEMP))) - RCONST(56) = (TROE(3.3D-31,4.3_dp,1.6D-12,0.0_dp,TEMP,C_M)) - RCONST(57) = (k57(TEMP,C_M)) - RCONST(58) = (ARR2(5.60D-12,-270.0_dp,TEMP)) - RCONST(59) = (3.00D-12) - RCONST(60) = (ARR2(2.45D-12,1775.0_dp,TEMP)) - RCONST(61) = (ARR2(8.7D-12,1070.0_dp,TEMP)) - RCONST(62) = (ARR2(5.26D-12,260.0_dp,TEMP)) - RCONST(63) = (ARR2(8.02D-12,155.0_dp,TEMP)) - RCONST(64) = (ARR2(1.64D-11,125.0_dp,TEMP)) - RCONST(65) = (TROE(1.0D-28,4.5_dp,8.8D-12,0.85_dp,TEMP,C_M)) - RCONST(66) = (ARR2(5.72D-12,-500.0_dp,TEMP)) - RCONST(67) = (ARR2(1.33D-11,-500.0_dp,TEMP)) - RCONST(68) = (ARR2(1.48D-11,-448.0_dp,TEMP)) - RCONST(69) = (ARR2(2.54D-11,-410.0_dp,TEMP)) - RCONST(70) = (ARR2(1.21D-11,-444.0_dp,TEMP)) - RCONST(71) = (1.71D-10) - RCONST(72) = (ARR2(1.81D-12,-338.0_dp,TEMP)) - RCONST(73) = (ARR2(7.30D-12,-355.0_dp,TEMP)) - RCONST(74) = (6.8D-11) - RCONST(75) = (ARR2(5.5D-12,-125.0_dp,TEMP)) - RCONST(76) = (ARR2(5.6D-12,-270.0_dp,TEMP)) - RCONST(77) = ((THERMAL_T2(5.68D-18,-92.0_dp,TEMP))) - RCONST(78) = (3.00D-12) - RCONST(79) = (1.15D-11) - RCONST(80) = (1.72D-11) - RCONST(81) = (.5*(4.13D-12*EXP(425./TEMP)+1.86D-11*EXP(175./TEMP))) - RCONST(82) = (ARR2(2.80D-11,-175.0_dp,TEMP)) - RCONST(83) = (2.70D-10) - RCONST(84) = (ARR2(3.8D-12,-200.0_dp,TEMP)) - RCONST(85) = (ARR2(3.40D-12,-190.0_dp,TEMP)) - RCONST(86) = (ARR2(3.8D-12,-200.0_dp,TEMP)) - RCONST(87) = (4.00D-14) - RCONST(88) = (ARR2(3.25D-13,-500.0_dp,TEMP)) - RCONST(89) = (ARR2(5.31D-12,260.0_dp,TEMP)) - RCONST(90) = (ARR2(3.40D-13,1900.0_dp,TEMP)) - RCONST(91) = (ARR2(1.40D-12,1900.0_dp,TEMP)) - RCONST(92) = (ARR2(2.90D-12,1900.0_dp,TEMP)) - RCONST(93) = (ARR2(1.40D-12,1900.0_dp,TEMP)) - RCONST(94) = (3.00D-11) - RCONST(95) = (ARR2(2.87D-13,1000.0_dp,TEMP)) - RCONST(96) = (2.20D-11) - RCONST(97) = ((THERMAL_T2(4.88D-18,2282.0_dp,TEMP))) - RCONST(98) = (ARR2(1.79D-13,450.0_dp,TEMP)) - RCONST(99) = (ARR2(8.64D-13,-450.0_dp,TEMP)) - RCONST(100) = (1.00D-13) - RCONST(101) = (ARR2(3.03D-12,446.0_dp,TEMP)) - RCONST(102) = (ARR2(1.19D-12,-490.0_dp,TEMP)) - RCONST(103) = (1.22D-11) - RCONST(104) = (ARR2(2.20D-14,500.0_dp,TEMP)) - RCONST(105) = (ARR2(1.2D-14,2630.0_dp,TEMP)) - RCONST(106) = (ARR2(4.33D-15,1800.0_dp,TEMP)) - RCONST(107) = (ARR2(4.40D-15,845.0_dp,TEMP)) - RCONST(108) = (ARR2(1.34D-14,2283.0_dp,TEMP)) - RCONST(109) = (ARR2(7.86D-15,1913.0_dp,TEMP)) - RCONST(110) = (ARR2(1.01D-15,732.0_dp,TEMP)) - RCONST(111) = (2.00D-16) - RCONST(112) = (.5*(1.36D-15*EXP(-2112./TEMP)+7.51D-16*EXP(-1521./TEMP))) - RCONST(113) = (2.00D-18) - RCONST(114) = (ARR2(2.46D-15,1700.0_dp,TEMP)) - RCONST(115) = (2.00D-11) - RCONST(116) = (1.00D-11) - RCONST(117) = (3.60D-11) - RCONST(118) = ((.20946D0*ARR2(1.66D-17,-1044.0_dp,TEMP))) - RCONST(119) = (5.00D-11) - RCONST(120) = (3.60D-11) - RCONST(121) = ((.20946D0*ARR2(1.66D-17,-1044.0_dp,TEMP))) - RCONST(122) = (1.00D-11) - RCONST(123) = (3.60D-11) - RCONST(124) = ((.20946D0*ARR2(1.66D-17,-1044.0_dp,TEMP))) - RCONST(125) = (5.00D-11) - RCONST(126) = (TROE(9.70D-29,5.6_dp,9.30D-12,1.5_dp,TEMP,C_M)) - RCONST(127) = (TROEE(1.11D28,14000.0_dp,9.70D-29,5.6_dp,9.30D-12,1.5_dp,TEMP,C_M)) - RCONST(128) = (TROE(9.70D-29,5.6_dp,9.30D-12,1.5_dp,TEMP,C_M)) - RCONST(129) = (TROEE(1.11D28,14000.0_dp,9.70D-29,5.6_dp,9.30D-12,1.5_dp,TEMP,C_M)) - RCONST(130) = (ARR2(2.8D-12,-300.0_dp,TEMP)) - RCONST(131) = (ARR2(2.6D-12,-365.0_dp,TEMP)) - RCONST(132) = (4.00D-12) - RCONST(133) = (4.00D-12) - RCONST(134) = (4.00D-12) - RCONST(135) = (9.00D-12) - RCONST(136) = (4.00D-12) - RCONST(137) = (4.00D-12) - RCONST(138) = (ARR2(2.43D-12,-360.0_dp,TEMP)) - RCONST(139) = (4.00D-12) - RCONST(140) = (4.00D-12) - RCONST(141) = (4.00D-12) - RCONST(142) = (4.00D-12) - RCONST(143) = (4.00D-12) - RCONST(144) = (ARR2(8.1D-12,-270.0_dp,TEMP)) - RCONST(145) = (ARR2(8.1D-12,-270.0_dp,TEMP)) - RCONST(146) = (4.00D-12) - RCONST(147) = (4.00D-12) - RCONST(148) = (4.00D-12) - RCONST(149) = (ARR2(4.1D-13,-750.0_dp,TEMP)) - RCONST(150) = (ARR2(7.4D-13,-700.0_dp,TEMP)) - RCONST(151) = (ARR2(1.66D-13,-1300.0_dp,TEMP)) - RCONST(152) = (ARR2(1.66D-13,-1300.0_dp,TEMP)) - RCONST(153) = (ARR2(1.66D-13,-1300.0_dp,TEMP)) - RCONST(154) = (ARR2(1.90D-13,-1300.0_dp,TEMP)) - RCONST(155) = (ARR2(1.66D-13,-1300.0_dp,TEMP)) - RCONST(156) = (ARR2(1.66D-13,-1300.0_dp,TEMP)) - RCONST(157) = (ARR2(2.05D-13,-1300.0_dp,TEMP)) - RCONST(158) = (1.50D-11) - RCONST(159) = (1.50D-11) - RCONST(160) = (ARR2(3.75D-13,-980.0_dp,TEMP)) - RCONST(161) = (ARR2(3.75D-13,-980.0_dp,TEMP)) - RCONST(162) = (ARR2(3.75D-13,-980.0_dp,TEMP)) - RCONST(163) = (4.3D-13*EXP(1040./TEMP)/(1.+0.027*EXP(660./TEMP))) - RCONST(164) = (4.3D-13*EXP(1040./TEMP)/(1.+37.*EXP(-660./TEMP))) - RCONST(165) = (4.3D-13*EXP(1040./TEMP)/(1.+0.027*EXP(660./TEMP))) - RCONST(166) = (4.3D-13*EXP(1040./TEMP)/(1.+37.*EXP(-660./TEMP))) - RCONST(167) = (ARR2(1.15D-13,-1300.0_dp,TEMP)) - RCONST(168) = (ARR2(1.66D-13,-1300.0_dp,TEMP)) - RCONST(169) = (ARR2(1.66D-13,-1300.0_dp,TEMP)) - RCONST(170) = (ARR2(9.5D-14,-390.0_dp,TEMP)) - RCONST(171) = (ARR2(1.18D-13,-158.0_dp,TEMP)) - RCONST(172) = (ARR2(9.46D-14,-431.0_dp,TEMP)) - RCONST(173) = (ARR2(1.00D-13,-467.0_dp,TEMP)) - RCONST(174) = (ARR2(4.34D-14,-633.0_dp,TEMP)) - RCONST(175) = (ARR2(1.71D-13,-708.0_dp,TEMP)) - RCONST(176) = (ARR2(1.46D-13,-708.0_dp,TEMP)) - RCONST(177) = (ARR2(9.18D-14,-708.0_dp,TEMP)) - RCONST(178) = (ARR2(1.36D-13,-708.0_dp,TEMP)) - RCONST(179) = (ARR2(3.56D-14,-708.0_dp,TEMP)) - RCONST(180) = (ARR2(3.56D-14,-708.0_dp,TEMP)) - RCONST(181) = (ARR2(3.56D-14,-708.0_dp,TEMP)) - RCONST(182) = (ARR2(3.56D-14,-708.0_dp,TEMP)) - RCONST(183) = (ARR2(3.56D-14,-708.0_dp,TEMP)) - RCONST(184) = (ARR2(1.8D-12,-500.0_dp,TEMP)) - RCONST(185) = (ARR2(2.0D-13,-500.0_dp,TEMP)) - RCONST(186) = (ARR2(1.8D-12,-500.0_dp,TEMP)) - RCONST(187) = (ARR2(2.0D-13,-500.0_dp,TEMP)) - RCONST(188) = (ARR2(6.91D-13,-508.0_dp,TEMP)) - RCONST(189) = (ARR2(1.60D-13,-708.0_dp,TEMP)) - RCONST(190) = (ARR2(9.68D-14,-708.0_dp,TEMP)) - RCONST(191) = (ARR2(1.03D-12,-211.0_dp,TEMP)) - RCONST(192) = (ARR2(6.90D-13,-460.0_dp,TEMP)) - RCONST(193) = (ARR2(5.59D-13,-522.0_dp,TEMP)) - RCONST(194) = (ARR2(2.47D-13,-683.0_dp,TEMP)) - RCONST(195) = (ARR2(9.48D-13,-765.0_dp,TEMP)) - RCONST(196) = (ARR2(8.11D-13,-765.0_dp,TEMP)) - RCONST(197) = (ARR2(5.09D-13,-765.0_dp,TEMP)) - RCONST(198) = (ARR2(7.60D-13,-765.0_dp,TEMP)) - RCONST(199) = (ARR2(7.40D-13,-765.0_dp,TEMP)) - RCONST(200) = (ARR2(7.40D-13,-765.0_dp,TEMP)) - RCONST(201) = (ARR2(7.40D-13,-765.0_dp,TEMP)) - RCONST(202) = (ARR2(7.40D-13,-765.0_dp,TEMP)) - RCONST(203) = (ARR2(7.40D-13,-765.0_dp,TEMP)) - RCONST(204) = (ARR2(2.5D-12,-500.0_dp,TEMP)) - RCONST(205) = (ARR2(2.5D-12,-500.0_dp,TEMP)) - RCONST(206) = (ARR2(7.51D-13,-565.0_dp,TEMP)) - RCONST(207) = (ARR2(8.85D-13,-765.0_dp,TEMP)) - RCONST(208) = (ARR2(5.37D-13,-765.0_dp,TEMP)) - RCONST(209) = (ARR2(7.00D-14,-1000.0_dp,TEMP)) - RCONST(210) = (ARR2(4.25D-14,-1000.0_dp,TEMP)) - RCONST(211) = (ARR2(2.96D-14,-1000.0_dp,TEMP)) - RCONST(212) = (1.20D-12) - RCONST(213) = (1.20D-12) - RCONST(214) = (1.20D-12) - RCONST(215) = (1.20D-12) - RCONST(216) = (1.20D-12) - RCONST(217) = (1.20D-12) - RCONST(218) = (1.20D-12) - RCONST(219) = (1.20D-12) - RCONST(220) = (3.2D-11) - RCONST(221) = (1.20D-12) - RCONST(222) = (1.20D-12) - RCONST(223) = (1.20D-12) - RCONST(224) = (1.20D-12) - RCONST(225) = (1.20D-12) - RCONST(226) = (4.00D-12) - RCONST(227) = (4.00D-12) - RCONST(228) = (1.20D-12) - RCONST(229) = (1.20D-12) - RCONST(230) = (1.20D-12) - RCONST(231) = (ARR2(1.66D-13,-1300.0_dp,TEMP)) - RCONST(232) = (ARR2(5.99D-15,-1510.0_dp,TEMP)) - RCONST(233) = (ARR2(3.40D-14,-1560.0_dp,TEMP)) - RCONST(234) = (ARR2(7.13D-17,-2950.0_dp,TEMP)) - RCONST(235) = (4.00D-12) - RCONST(236) = (1.20D-12) - RCONST(237) = (2.00D-12) - RCONST(238) = (1.00D-10) - RCONST(239) = (1.30D-11) - RCONST(240) = (ARR2(2.54D-12,-360.0_dp,TEMP)) - RCONST(241) = (ARR2(1.82D-13,-1300.0_dp,TEMP)) - RCONST(242) = (2.00D-12) - RCONST(243) = (TROE(9.70D-29,5.6_dp,9.30D-12,1.5_dp,TEMP,C_M)) - RCONST(244) = (TROEE(1.11D28,14000.0_dp,9.70D-29,5.6_dp,9.30D-12,1.5_dp,TEMP,C_M)) - RCONST(245) = (2.52D-10) - RCONST(246) = (5.60D-16) - RCONST(247) = (2.20D-11) - RCONST(248) = (ARR2(1.33D-11,-500.0_dp,TEMP)) - RCONST(249) = (ARR2(8.64D-13,-450.0_dp,TEMP)) - RCONST(250) = (ARR2(4.40D-15,845.0_dp,TEMP)) - -END SUBROUTINE Update_RCONST - -! End of Update_RCONST function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_PHOTO - function to update photolytical rate constants -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Update_PHOTO ( ) - - - USE RACM_Global - - RCONST(1) = (j('no2')) - RCONST(2) = (j('o31d')) - RCONST(3) = (j('o33p')) - RCONST(4) = (j('hno2')) - RCONST(5) = (j('hno3')) - RCONST(6) = (j('hno4')) - RCONST(7) = (j('no3o2')) - RCONST(8) = (j('no3o')) - RCONST(9) = (j('h2o2')) - RCONST(10) = (j('ch2om')) - RCONST(11) = (j('ch2or')) - RCONST(12) = (j('ch3cho')) - RCONST(13) = (j('ch3o2h')) - RCONST(14) = (j('ch3coch3')) - RCONST(15) = (j('ch3coo2h')) - RCONST(16) = (j('ch3coc2h5')) - RCONST(17) = (j('hcocho')) - RCONST(18) = (j('hcochob')) - RCONST(19) = (j('ch3cocho')) - RCONST(20) = (j('hcochest')) - RCONST(21) = (j('ch3ono2')) - RCONST(22) = (j('macr')) - RCONST(23) = (j('ch3coc2h5')) - -END SUBROUTINE Update_PHOTO - -! End of Update_PHOTO function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE RACM_Rates - diff --git a/boxmox/compiled_mechs/RACM/RACM_Rates.o b/boxmox/compiled_mechs/RACM/RACM_Rates.o deleted file mode 100644 index 63e5dc338a46358ae87648a0d1b3e930fca080ec..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/RACM_Rates.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/RACM_Stoichiom.f90 b/boxmox/compiled_mechs/RACM/RACM_Stoichiom.f90 deleted file mode 100644 index 4694f321ce57cef0174e8af5280fa37faf3172c2..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RACM/RACM_Stoichiom.f90 +++ /dev/null @@ -1,1371 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The Stoichiometric Chemical Model File -! -! Generated by KPP-2.2.3 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 : RACM_Stoichiom.f90 -! Time : Thu Oct 8 08:22:22 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RACM_22746_BOXMOX -! Equation file : RACM.kpp -! Output root filename : RACM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RACM_Stoichiom - - USE RACM_Parameters - USE RACM_StoichiomSP - - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! ReactantProd - Reactant Products in each equation -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! ARP - Reactant product in each equation -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE ReactantProd ( V, F, ARP ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! F - Concentrations of fixed species (local) - REAL(kind=dp) :: F(NFIX) -! ARP - Reactant product in each equation - REAL(kind=dp) :: ARP(NREACT) - - -! Reactant Products in each equation are useful in the -! stoichiometric formulation of mass action law - ARP(1) = V(82) - ARP(2) = V(72) - ARP(3) = V(72) - ARP(4) = V(23) - ARP(5) = V(32) - ARP(6) = V(19) - ARP(7) = V(79) - ARP(8) = V(79) - ARP(9) = V(27) - ARP(10) = V(58) - ARP(11) = V(58) - ARP(12) = V(66) - ARP(13) = V(20) - ARP(14) = V(75) - ARP(15) = V(33) - ARP(16) = V(52) - ARP(17) = V(46) - ARP(18) = V(46) - ARP(19) = V(53) - ARP(20) = V(63) - ARP(21) = V(62) - ARP(22) = V(49) - ARP(23) = V(24) - ARP(24) = V(25)*F(2) - ARP(25) = V(25)*V(72) - ARP(26) = V(6)*F(2) - ARP(27) = V(6)*F(1) - ARP(28) = V(72)*V(78) - ARP(29) = V(72)*V(76) - ARP(30) = V(76)*V(78) - ARP(31) = V(27)*V(78) - ARP(32) = V(76)*V(76) - ARP(33) = V(76)*V(76)*F(1) - ARP(34) = V(25)*V(81) - ARP(35) = V(25)*V(82) - ARP(36) = V(25)*V(82) - ARP(37) = V(78)*V(81) - ARP(38) = V(78)*V(82) - ARP(39) = V(78)*V(79) - ARP(40) = V(76)*V(81) - ARP(41) = V(76)*V(82) - ARP(42) = V(19) - ARP(43) = V(76)*V(79) - ARP(44) = V(23)*V(78) - ARP(45) = V(32)*V(78) - ARP(46) = V(19)*V(78) - ARP(47) = V(72)*V(81) - ARP(48) = V(72)*V(82) - ARP(49) = V(81)*V(81)*F(2) - ARP(50) = V(79)*V(81) - ARP(51) = V(79)*V(82) - ARP(52) = V(79)*V(82) - ARP(53) = V(11) - ARP(54) = V(79)*V(79) - ARP(55) = V(78)*F(2) - ARP(56) = V(5)*V(78) - ARP(57) = V(38)*V(78) - ARP(58) = V(16)*V(78) - ARP(59) = V(22)*V(78) - ARP(60) = V(18)*V(78) - ARP(61) = V(17)*V(78) - ARP(62) = V(14)*V(78) - ARP(63) = V(8)*V(78) - ARP(64) = V(12)*V(78) - ARP(65) = V(30)*V(78) - ARP(66) = V(65)*V(78) - ARP(67) = V(67)*V(78) - ARP(68) = V(43)*V(78) - ARP(69) = V(40)*V(78) - ARP(70) = V(37)*V(78) - ARP(71) = V(39)*V(78) - ARP(72) = V(9)*V(78) - ARP(73) = V(10)*V(78) - ARP(74) = V(42)*V(78) - ARP(75) = V(58)*V(78) - ARP(76) = V(66)*V(78) - ARP(77) = V(52)*V(78) - ARP(78) = V(24)*V(78) - ARP(79) = V(46)*V(78) - ARP(80) = V(53)*V(78) - ARP(81) = V(49)*V(78) - ARP(82) = V(63)*V(78) - ARP(83) = V(15)*V(78) - ARP(84) = V(20)*V(78) - ARP(85) = V(75)*V(78) - ARP(86) = V(33)*V(78) - ARP(87) = V(36)*V(78) - ARP(88) = V(45)*V(78) - ARP(89) = V(62)*V(78) - ARP(90) = V(58)*V(79) - ARP(91) = V(66)*V(79) - ARP(92) = V(46)*V(79) - ARP(93) = V(53)*V(79) - ARP(94) = V(13)*V(78) - ARP(95) = V(63)*V(79) - ARP(96) = V(42)*V(79) - ARP(97) = V(30)*V(79) - ARP(98) = V(65)*V(79) - ARP(99) = V(67)*V(79) - ARP(100) = V(43)*V(79) - ARP(101) = V(40)*V(79) - ARP(102) = V(37)*V(79) - ARP(103) = V(39)*V(79) - ARP(104) = V(45)*V(79) - ARP(105) = V(30)*V(72) - ARP(106) = V(65)*V(72) - ARP(107) = V(67)*V(72) - ARP(108) = V(43)*V(72) - ARP(109) = V(40)*V(72) - ARP(110) = V(37)*V(72) - ARP(111) = V(39)*V(72) - ARP(112) = V(49)*V(72) - ARP(113) = V(63)*V(72) - ARP(114) = V(45)*V(72) - ARP(115) = V(26)*V(82) - ARP(116) = V(26)*V(76) - ARP(117) = V(28)*V(82) - ARP(118) = V(28)*F(2) - ARP(119) = V(28)*V(72) - ARP(120) = V(29)*V(82) - ARP(121) = V(29)*F(2) - ARP(122) = V(29)*V(72) - ARP(123) = V(31)*V(82) - ARP(124) = V(31)*F(2) - ARP(125) = V(31)*V(72) - ARP(126) = V(77)*V(82) - ARP(127) = V(36) - ARP(128) = V(71)*V(82) - ARP(129) = V(45) - ARP(130) = V(74)*V(81) - ARP(131) = V(70)*V(81) - ARP(132) = V(73)*V(81) - ARP(133) = V(57)*V(81) - ARP(134) = V(56)*V(81) - ARP(135) = V(47)*V(81) - ARP(136) = V(48)*V(81) - ARP(137) = V(61)*V(81) - ARP(138) = V(50)*V(81) - ARP(139) = V(51)*V(81) - ARP(140) = V(55)*V(81) - ARP(141) = V(59)*V(81) - ARP(142) = V(60)*V(81) - ARP(143) = V(54)*V(81) - ARP(144) = V(77)*V(81) - ARP(145) = V(71)*V(81) - ARP(146) = V(80)*V(81) - ARP(147) = V(69)*V(81) - ARP(148) = V(68)*V(81) - ARP(149) = V(74)*V(76) - ARP(150) = V(70)*V(76) - ARP(151) = V(73)*V(76) - ARP(152) = V(57)*V(76) - ARP(153) = V(56)*V(76) - ARP(154) = V(47)*V(76) - ARP(155) = V(48)*V(76) - ARP(156) = V(61)*V(76) - ARP(157) = V(50)*V(76) - ARP(158) = V(51)*V(76) - ARP(159) = V(55)*V(76) - ARP(160) = V(59)*V(76) - ARP(161) = V(60)*V(76) - ARP(162) = V(54)*V(76) - ARP(163) = V(76)*V(77) - ARP(164) = V(76)*V(77) - ARP(165) = V(71)*V(76) - ARP(166) = V(71)*V(76) - ARP(167) = V(76)*V(80) - ARP(168) = V(69)*V(76) - ARP(169) = V(68)*V(76) - ARP(170) = V(74)*V(74) - ARP(171) = V(70)*V(74) - ARP(172) = V(73)*V(74) - ARP(173) = V(57)*V(74) - ARP(174) = V(56)*V(74) - ARP(175) = V(47)*V(74) - ARP(176) = V(48)*V(74) - ARP(177) = V(61)*V(74) - ARP(178) = V(50)*V(74) - ARP(179) = V(51)*V(74) - ARP(180) = V(55)*V(74) - ARP(181) = V(59)*V(74) - ARP(182) = V(60)*V(74) - ARP(183) = V(54)*V(74) - ARP(184) = V(74)*V(77) - ARP(185) = V(74)*V(77) - ARP(186) = V(71)*V(74) - ARP(187) = V(71)*V(74) - ARP(188) = V(74)*V(80) - ARP(189) = V(69)*V(74) - ARP(190) = V(68)*V(74) - ARP(191) = V(70)*V(77) - ARP(192) = V(73)*V(77) - ARP(193) = V(57)*V(77) - ARP(194) = V(56)*V(77) - ARP(195) = V(47)*V(77) - ARP(196) = V(48)*V(77) - ARP(197) = V(61)*V(77) - ARP(198) = V(50)*V(77) - ARP(199) = V(51)*V(77) - ARP(200) = V(55)*V(77) - ARP(201) = V(59)*V(77) - ARP(202) = V(60)*V(77) - ARP(203) = V(54)*V(77) - ARP(204) = V(77)*V(77) - ARP(205) = V(71)*V(77) - ARP(206) = V(77)*V(80) - ARP(207) = V(69)*V(77) - ARP(208) = V(68)*V(77) - ARP(209) = V(69)*V(69) - ARP(210) = V(68)*V(69) - ARP(211) = V(68)*V(68) - ARP(212) = V(74)*V(79) - ARP(213) = V(70)*V(79) - ARP(214) = V(73)*V(79) - ARP(215) = V(57)*V(79) - ARP(216) = V(56)*V(79) - ARP(217) = V(47)*V(79) - ARP(218) = V(48)*V(79) - ARP(219) = V(61)*V(79) - ARP(220) = V(21)*V(78) - ARP(221) = V(51)*V(79) - ARP(222) = V(55)*V(79) - ARP(223) = V(59)*V(79) - ARP(224) = V(60)*V(79) - ARP(225) = V(54)*V(79) - ARP(226) = V(77)*V(79) - ARP(227) = V(71)*V(79) - ARP(228) = V(79)*V(80) - ARP(229) = V(69)*V(79) - ARP(230) = V(68)*V(79) - ARP(231) = V(64)*V(76) - ARP(232) = V(64)*V(74) - ARP(233) = V(64)*V(77) - ARP(234) = V(64)*V(64) - ARP(235) = V(64)*V(81) - ARP(236) = V(64)*V(79) - ARP(237) = V(50)*V(50) - ARP(238) = V(7)*V(78) - ARP(239) = V(34)*V(78) - ARP(240) = V(44)*V(81) - ARP(241) = V(44)*V(76) - ARP(242) = V(44)*V(44) - ARP(243) = V(44)*V(82) - ARP(244) = V(21) - ARP(245) = V(35)*V(78) - ARP(246) = V(35)*V(72) - ARP(247) = V(35)*V(79) - ARP(248) = V(41)*V(78) - ARP(249) = V(41)*V(79) - ARP(250) = V(41)*V(72) - -END SUBROUTINE ReactantProd - -! End of ReactantProd function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! JacReactantProd - Jacobian of Reactant Products vector -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! JVRP - d ARP(1:NREACT)/d VAR (1:NVAR) -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE JacReactantProd ( V, F, JVRP ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! F - Concentrations of fixed species (local) - REAL(kind=dp) :: F(NFIX) -! JVRP - d ARP(1:NREACT)/d VAR (1:NVAR) - REAL(kind=dp) :: JVRP(NJVRP) - - -! Reactant Products in each equation are useful in the -! stoichiometric formulation of mass action law -! Below we compute the Jacobian of the Reactant Products vector -! w.r.t. variable species: d ARP(1:NREACT) / d Var(1:NVAR) - -! JVRP(1) = dARP(1)/dV(82) - JVRP(1) = 1 -! JVRP(2) = dARP(2)/dV(72) - JVRP(2) = 1 -! JVRP(3) = dARP(3)/dV(72) - JVRP(3) = 1 -! JVRP(4) = dARP(4)/dV(23) - JVRP(4) = 1 -! JVRP(5) = dARP(5)/dV(32) - JVRP(5) = 1 -! JVRP(6) = dARP(6)/dV(19) - JVRP(6) = 1 -! JVRP(7) = dARP(7)/dV(79) - JVRP(7) = 1 -! JVRP(8) = dARP(8)/dV(79) - JVRP(8) = 1 -! JVRP(9) = dARP(9)/dV(27) - JVRP(9) = 1 -! JVRP(10) = dARP(10)/dV(58) - JVRP(10) = 1 -! JVRP(11) = dARP(11)/dV(58) - JVRP(11) = 1 -! JVRP(12) = dARP(12)/dV(66) - JVRP(12) = 1 -! JVRP(13) = dARP(13)/dV(20) - JVRP(13) = 1 -! JVRP(14) = dARP(14)/dV(75) - JVRP(14) = 1 -! JVRP(15) = dARP(15)/dV(33) - JVRP(15) = 1 -! JVRP(16) = dARP(16)/dV(52) - JVRP(16) = 1 -! JVRP(17) = dARP(17)/dV(46) - JVRP(17) = 1 -! JVRP(18) = dARP(18)/dV(46) - JVRP(18) = 1 -! JVRP(19) = dARP(19)/dV(53) - JVRP(19) = 1 -! JVRP(20) = dARP(20)/dV(63) - JVRP(20) = 1 -! JVRP(21) = dARP(21)/dV(62) - JVRP(21) = 1 -! JVRP(22) = dARP(22)/dV(49) - JVRP(22) = 1 -! JVRP(23) = dARP(23)/dV(24) - JVRP(23) = 1 -! JVRP(24) = dARP(24)/dV(25) - JVRP(24) = F(2) -! JVRP(25) = dARP(25)/dV(25) - JVRP(25) = V(72) -! JVRP(26) = dARP(25)/dV(72) - JVRP(26) = V(25) -! JVRP(27) = dARP(26)/dV(6) - JVRP(27) = F(2) -! JVRP(28) = dARP(27)/dV(6) - JVRP(28) = F(1) -! JVRP(29) = dARP(28)/dV(72) - JVRP(29) = V(78) -! JVRP(30) = dARP(28)/dV(78) - JVRP(30) = V(72) -! JVRP(31) = dARP(29)/dV(72) - JVRP(31) = V(76) -! JVRP(32) = dARP(29)/dV(76) - JVRP(32) = V(72) -! JVRP(33) = dARP(30)/dV(76) - JVRP(33) = V(78) -! JVRP(34) = dARP(30)/dV(78) - JVRP(34) = V(76) -! JVRP(35) = dARP(31)/dV(27) - JVRP(35) = V(78) -! JVRP(36) = dARP(31)/dV(78) - JVRP(36) = V(27) -! JVRP(37) = dARP(32)/dV(76) - JVRP(37) = 2*V(76) -! JVRP(38) = dARP(33)/dV(76) - JVRP(38) = 2*V(76)*F(1) -! JVRP(39) = dARP(34)/dV(25) - JVRP(39) = V(81) -! JVRP(40) = dARP(34)/dV(81) - JVRP(40) = V(25) -! JVRP(41) = dARP(35)/dV(25) - JVRP(41) = V(82) -! JVRP(42) = dARP(35)/dV(82) - JVRP(42) = V(25) -! JVRP(43) = dARP(36)/dV(25) - JVRP(43) = V(82) -! JVRP(44) = dARP(36)/dV(82) - JVRP(44) = V(25) -! JVRP(45) = dARP(37)/dV(78) - JVRP(45) = V(81) -! JVRP(46) = dARP(37)/dV(81) - JVRP(46) = V(78) -! JVRP(47) = dARP(38)/dV(78) - JVRP(47) = V(82) -! JVRP(48) = dARP(38)/dV(82) - JVRP(48) = V(78) -! JVRP(49) = dARP(39)/dV(78) - JVRP(49) = V(79) -! JVRP(50) = dARP(39)/dV(79) - JVRP(50) = V(78) -! JVRP(51) = dARP(40)/dV(76) - JVRP(51) = V(81) -! JVRP(52) = dARP(40)/dV(81) - JVRP(52) = V(76) -! JVRP(53) = dARP(41)/dV(76) - JVRP(53) = V(82) -! JVRP(54) = dARP(41)/dV(82) - JVRP(54) = V(76) -! JVRP(55) = dARP(42)/dV(19) - JVRP(55) = 1 -! JVRP(56) = dARP(43)/dV(76) - JVRP(56) = V(79) -! JVRP(57) = dARP(43)/dV(79) - JVRP(57) = V(76) -! JVRP(58) = dARP(44)/dV(23) - JVRP(58) = V(78) -! JVRP(59) = dARP(44)/dV(78) - JVRP(59) = V(23) -! JVRP(60) = dARP(45)/dV(32) - JVRP(60) = V(78) -! JVRP(61) = dARP(45)/dV(78) - JVRP(61) = V(32) -! JVRP(62) = dARP(46)/dV(19) - JVRP(62) = V(78) -! JVRP(63) = dARP(46)/dV(78) - JVRP(63) = V(19) -! JVRP(64) = dARP(47)/dV(72) - JVRP(64) = V(81) -! JVRP(65) = dARP(47)/dV(81) - JVRP(65) = V(72) -! JVRP(66) = dARP(48)/dV(72) - JVRP(66) = V(82) -! JVRP(67) = dARP(48)/dV(82) - JVRP(67) = V(72) -! JVRP(68) = dARP(49)/dV(81) - JVRP(68) = 2*V(81)*F(2) -! JVRP(69) = dARP(50)/dV(79) - JVRP(69) = V(81) -! JVRP(70) = dARP(50)/dV(81) - JVRP(70) = V(79) -! JVRP(71) = dARP(51)/dV(79) - JVRP(71) = V(82) -! JVRP(72) = dARP(51)/dV(82) - JVRP(72) = V(79) -! JVRP(73) = dARP(52)/dV(79) - JVRP(73) = V(82) -! JVRP(74) = dARP(52)/dV(82) - JVRP(74) = V(79) -! JVRP(75) = dARP(53)/dV(11) - JVRP(75) = 1 -! JVRP(76) = dARP(54)/dV(79) - JVRP(76) = 2*V(79) -! JVRP(77) = dARP(55)/dV(78) - JVRP(77) = F(2) -! JVRP(78) = dARP(56)/dV(5) - JVRP(78) = V(78) -! JVRP(79) = dARP(56)/dV(78) - JVRP(79) = V(5) -! JVRP(80) = dARP(57)/dV(38) - JVRP(80) = V(78) -! JVRP(81) = dARP(57)/dV(78) - JVRP(81) = V(38) -! JVRP(82) = dARP(58)/dV(16) - JVRP(82) = V(78) -! JVRP(83) = dARP(58)/dV(78) - JVRP(83) = V(16) -! JVRP(84) = dARP(59)/dV(22) - JVRP(84) = V(78) -! JVRP(85) = dARP(59)/dV(78) - JVRP(85) = V(22) -! JVRP(86) = dARP(60)/dV(18) - JVRP(86) = V(78) -! JVRP(87) = dARP(60)/dV(78) - JVRP(87) = V(18) -! JVRP(88) = dARP(61)/dV(17) - JVRP(88) = V(78) -! JVRP(89) = dARP(61)/dV(78) - JVRP(89) = V(17) -! JVRP(90) = dARP(62)/dV(14) - JVRP(90) = V(78) -! JVRP(91) = dARP(62)/dV(78) - JVRP(91) = V(14) -! JVRP(92) = dARP(63)/dV(8) - JVRP(92) = V(78) -! JVRP(93) = dARP(63)/dV(78) - JVRP(93) = V(8) -! JVRP(94) = dARP(64)/dV(12) - JVRP(94) = V(78) -! JVRP(95) = dARP(64)/dV(78) - JVRP(95) = V(12) -! JVRP(96) = dARP(65)/dV(30) - JVRP(96) = V(78) -! JVRP(97) = dARP(65)/dV(78) - JVRP(97) = V(30) -! JVRP(98) = dARP(66)/dV(65) - JVRP(98) = V(78) -! JVRP(99) = dARP(66)/dV(78) - JVRP(99) = V(65) -! JVRP(100) = dARP(67)/dV(67) - JVRP(100) = V(78) -! JVRP(101) = dARP(67)/dV(78) - JVRP(101) = V(67) -! JVRP(102) = dARP(68)/dV(43) - JVRP(102) = V(78) -! JVRP(103) = dARP(68)/dV(78) - JVRP(103) = V(43) -! JVRP(104) = dARP(69)/dV(40) - JVRP(104) = V(78) -! JVRP(105) = dARP(69)/dV(78) - JVRP(105) = V(40) -! JVRP(106) = dARP(70)/dV(37) - JVRP(106) = V(78) -! JVRP(107) = dARP(70)/dV(78) - JVRP(107) = V(37) -! JVRP(108) = dARP(71)/dV(39) - JVRP(108) = V(78) -! JVRP(109) = dARP(71)/dV(78) - JVRP(109) = V(39) -! JVRP(110) = dARP(72)/dV(9) - JVRP(110) = V(78) -! JVRP(111) = dARP(72)/dV(78) - JVRP(111) = V(9) -! JVRP(112) = dARP(73)/dV(10) - JVRP(112) = V(78) -! JVRP(113) = dARP(73)/dV(78) - JVRP(113) = V(10) -! JVRP(114) = dARP(74)/dV(42) - JVRP(114) = V(78) -! JVRP(115) = dARP(74)/dV(78) - JVRP(115) = V(42) -! JVRP(116) = dARP(75)/dV(58) - JVRP(116) = V(78) -! JVRP(117) = dARP(75)/dV(78) - JVRP(117) = V(58) -! JVRP(118) = dARP(76)/dV(66) - JVRP(118) = V(78) -! JVRP(119) = dARP(76)/dV(78) - JVRP(119) = V(66) -! JVRP(120) = dARP(77)/dV(52) - JVRP(120) = V(78) -! JVRP(121) = dARP(77)/dV(78) - JVRP(121) = V(52) -! JVRP(122) = dARP(78)/dV(24) - JVRP(122) = V(78) -! JVRP(123) = dARP(78)/dV(78) - JVRP(123) = V(24) -! JVRP(124) = dARP(79)/dV(46) - JVRP(124) = V(78) -! JVRP(125) = dARP(79)/dV(78) - JVRP(125) = V(46) -! JVRP(126) = dARP(80)/dV(53) - JVRP(126) = V(78) -! JVRP(127) = dARP(80)/dV(78) - JVRP(127) = V(53) -! JVRP(128) = dARP(81)/dV(49) - JVRP(128) = V(78) -! JVRP(129) = dARP(81)/dV(78) - JVRP(129) = V(49) -! JVRP(130) = dARP(82)/dV(63) - JVRP(130) = V(78) -! JVRP(131) = dARP(82)/dV(78) - JVRP(131) = V(63) -! JVRP(132) = dARP(83)/dV(15) - JVRP(132) = V(78) -! JVRP(133) = dARP(83)/dV(78) - JVRP(133) = V(15) -! JVRP(134) = dARP(84)/dV(20) - JVRP(134) = V(78) -! JVRP(135) = dARP(84)/dV(78) - JVRP(135) = V(20) -! JVRP(136) = dARP(85)/dV(75) - JVRP(136) = V(78) -! JVRP(137) = dARP(85)/dV(78) - JVRP(137) = V(75) -! JVRP(138) = dARP(86)/dV(33) - JVRP(138) = V(78) -! JVRP(139) = dARP(86)/dV(78) - JVRP(139) = V(33) -! JVRP(140) = dARP(87)/dV(36) - JVRP(140) = V(78) -! JVRP(141) = dARP(87)/dV(78) - JVRP(141) = V(36) -! JVRP(142) = dARP(88)/dV(45) - JVRP(142) = V(78) -! JVRP(143) = dARP(88)/dV(78) - JVRP(143) = V(45) -! JVRP(144) = dARP(89)/dV(62) - JVRP(144) = V(78) -! JVRP(145) = dARP(89)/dV(78) - JVRP(145) = V(62) -! JVRP(146) = dARP(90)/dV(58) - JVRP(146) = V(79) -! JVRP(147) = dARP(90)/dV(79) - JVRP(147) = V(58) -! JVRP(148) = dARP(91)/dV(66) - JVRP(148) = V(79) -! JVRP(149) = dARP(91)/dV(79) - JVRP(149) = V(66) -! JVRP(150) = dARP(92)/dV(46) - JVRP(150) = V(79) -! JVRP(151) = dARP(92)/dV(79) - JVRP(151) = V(46) -! JVRP(152) = dARP(93)/dV(53) - JVRP(152) = V(79) -! JVRP(153) = dARP(93)/dV(79) - JVRP(153) = V(53) -! JVRP(154) = dARP(94)/dV(13) - JVRP(154) = V(78) -! JVRP(155) = dARP(94)/dV(78) - JVRP(155) = V(13) -! JVRP(156) = dARP(95)/dV(63) - JVRP(156) = V(79) -! JVRP(157) = dARP(95)/dV(79) - JVRP(157) = V(63) -! JVRP(158) = dARP(96)/dV(42) - JVRP(158) = V(79) -! JVRP(159) = dARP(96)/dV(79) - JVRP(159) = V(42) -! JVRP(160) = dARP(97)/dV(30) - JVRP(160) = V(79) -! JVRP(161) = dARP(97)/dV(79) - JVRP(161) = V(30) -! JVRP(162) = dARP(98)/dV(65) - JVRP(162) = V(79) -! JVRP(163) = dARP(98)/dV(79) - JVRP(163) = V(65) -! JVRP(164) = dARP(99)/dV(67) - JVRP(164) = V(79) -! JVRP(165) = dARP(99)/dV(79) - JVRP(165) = V(67) -! JVRP(166) = dARP(100)/dV(43) - JVRP(166) = V(79) -! JVRP(167) = dARP(100)/dV(79) - JVRP(167) = V(43) -! JVRP(168) = dARP(101)/dV(40) - JVRP(168) = V(79) -! JVRP(169) = dARP(101)/dV(79) - JVRP(169) = V(40) -! JVRP(170) = dARP(102)/dV(37) - JVRP(170) = V(79) -! JVRP(171) = dARP(102)/dV(79) - JVRP(171) = V(37) -! JVRP(172) = dARP(103)/dV(39) - JVRP(172) = V(79) -! JVRP(173) = dARP(103)/dV(79) - JVRP(173) = V(39) -! JVRP(174) = dARP(104)/dV(45) - JVRP(174) = V(79) -! JVRP(175) = dARP(104)/dV(79) - JVRP(175) = V(45) -! JVRP(176) = dARP(105)/dV(30) - JVRP(176) = V(72) -! JVRP(177) = dARP(105)/dV(72) - JVRP(177) = V(30) -! JVRP(178) = dARP(106)/dV(65) - JVRP(178) = V(72) -! JVRP(179) = dARP(106)/dV(72) - JVRP(179) = V(65) -! JVRP(180) = dARP(107)/dV(67) - JVRP(180) = V(72) -! JVRP(181) = dARP(107)/dV(72) - JVRP(181) = V(67) -! JVRP(182) = dARP(108)/dV(43) - JVRP(182) = V(72) -! JVRP(183) = dARP(108)/dV(72) - JVRP(183) = V(43) -! JVRP(184) = dARP(109)/dV(40) - JVRP(184) = V(72) -! JVRP(185) = dARP(109)/dV(72) - JVRP(185) = V(40) -! JVRP(186) = dARP(110)/dV(37) - JVRP(186) = V(72) -! JVRP(187) = dARP(110)/dV(72) - JVRP(187) = V(37) -! JVRP(188) = dARP(111)/dV(39) - JVRP(188) = V(72) -! JVRP(189) = dARP(111)/dV(72) - JVRP(189) = V(39) -! JVRP(190) = dARP(112)/dV(49) - JVRP(190) = V(72) -! JVRP(191) = dARP(112)/dV(72) - JVRP(191) = V(49) -! JVRP(192) = dARP(113)/dV(63) - JVRP(192) = V(72) -! JVRP(193) = dARP(113)/dV(72) - JVRP(193) = V(63) -! JVRP(194) = dARP(114)/dV(45) - JVRP(194) = V(72) -! JVRP(195) = dARP(114)/dV(72) - JVRP(195) = V(45) -! JVRP(196) = dARP(115)/dV(26) - JVRP(196) = V(82) -! JVRP(197) = dARP(115)/dV(82) - JVRP(197) = V(26) -! JVRP(198) = dARP(116)/dV(26) - JVRP(198) = V(76) -! JVRP(199) = dARP(116)/dV(76) - JVRP(199) = V(26) -! JVRP(200) = dARP(117)/dV(28) - JVRP(200) = V(82) -! JVRP(201) = dARP(117)/dV(82) - JVRP(201) = V(28) -! JVRP(202) = dARP(118)/dV(28) - JVRP(202) = F(2) -! JVRP(203) = dARP(119)/dV(28) - JVRP(203) = V(72) -! JVRP(204) = dARP(119)/dV(72) - JVRP(204) = V(28) -! JVRP(205) = dARP(120)/dV(29) - JVRP(205) = V(82) -! JVRP(206) = dARP(120)/dV(82) - JVRP(206) = V(29) -! JVRP(207) = dARP(121)/dV(29) - JVRP(207) = F(2) -! JVRP(208) = dARP(122)/dV(29) - JVRP(208) = V(72) -! JVRP(209) = dARP(122)/dV(72) - JVRP(209) = V(29) -! JVRP(210) = dARP(123)/dV(31) - JVRP(210) = V(82) -! JVRP(211) = dARP(123)/dV(82) - JVRP(211) = V(31) -! JVRP(212) = dARP(124)/dV(31) - JVRP(212) = F(2) -! JVRP(213) = dARP(125)/dV(31) - JVRP(213) = V(72) -! JVRP(214) = dARP(125)/dV(72) - JVRP(214) = V(31) -! JVRP(215) = dARP(126)/dV(77) - JVRP(215) = V(82) -! JVRP(216) = dARP(126)/dV(82) - JVRP(216) = V(77) -! JVRP(217) = dARP(127)/dV(36) - JVRP(217) = 1 -! JVRP(218) = dARP(128)/dV(71) - JVRP(218) = V(82) -! JVRP(219) = dARP(128)/dV(82) - JVRP(219) = V(71) -! JVRP(220) = dARP(129)/dV(45) - JVRP(220) = 1 -! JVRP(221) = dARP(130)/dV(74) - JVRP(221) = V(81) -! JVRP(222) = dARP(130)/dV(81) - JVRP(222) = V(74) -! JVRP(223) = dARP(131)/dV(70) - JVRP(223) = V(81) -! JVRP(224) = dARP(131)/dV(81) - JVRP(224) = V(70) -! JVRP(225) = dARP(132)/dV(73) - JVRP(225) = V(81) -! JVRP(226) = dARP(132)/dV(81) - JVRP(226) = V(73) -! JVRP(227) = dARP(133)/dV(57) - JVRP(227) = V(81) -! JVRP(228) = dARP(133)/dV(81) - JVRP(228) = V(57) -! JVRP(229) = dARP(134)/dV(56) - JVRP(229) = V(81) -! JVRP(230) = dARP(134)/dV(81) - JVRP(230) = V(56) -! JVRP(231) = dARP(135)/dV(47) - JVRP(231) = V(81) -! JVRP(232) = dARP(135)/dV(81) - JVRP(232) = V(47) -! JVRP(233) = dARP(136)/dV(48) - JVRP(233) = V(81) -! JVRP(234) = dARP(136)/dV(81) - JVRP(234) = V(48) -! JVRP(235) = dARP(137)/dV(61) - JVRP(235) = V(81) -! JVRP(236) = dARP(137)/dV(81) - JVRP(236) = V(61) -! JVRP(237) = dARP(138)/dV(50) - JVRP(237) = V(81) -! JVRP(238) = dARP(138)/dV(81) - JVRP(238) = V(50) -! JVRP(239) = dARP(139)/dV(51) - JVRP(239) = V(81) -! JVRP(240) = dARP(139)/dV(81) - JVRP(240) = V(51) -! JVRP(241) = dARP(140)/dV(55) - JVRP(241) = V(81) -! JVRP(242) = dARP(140)/dV(81) - JVRP(242) = V(55) -! JVRP(243) = dARP(141)/dV(59) - JVRP(243) = V(81) -! JVRP(244) = dARP(141)/dV(81) - JVRP(244) = V(59) -! JVRP(245) = dARP(142)/dV(60) - JVRP(245) = V(81) -! JVRP(246) = dARP(142)/dV(81) - JVRP(246) = V(60) -! JVRP(247) = dARP(143)/dV(54) - JVRP(247) = V(81) -! JVRP(248) = dARP(143)/dV(81) - JVRP(248) = V(54) -! JVRP(249) = dARP(144)/dV(77) - JVRP(249) = V(81) -! JVRP(250) = dARP(144)/dV(81) - JVRP(250) = V(77) -! JVRP(251) = dARP(145)/dV(71) - JVRP(251) = V(81) -! JVRP(252) = dARP(145)/dV(81) - JVRP(252) = V(71) -! JVRP(253) = dARP(146)/dV(80) - JVRP(253) = V(81) -! JVRP(254) = dARP(146)/dV(81) - JVRP(254) = V(80) -! JVRP(255) = dARP(147)/dV(69) - JVRP(255) = V(81) -! JVRP(256) = dARP(147)/dV(81) - JVRP(256) = V(69) -! JVRP(257) = dARP(148)/dV(68) - JVRP(257) = V(81) -! JVRP(258) = dARP(148)/dV(81) - JVRP(258) = V(68) -! JVRP(259) = dARP(149)/dV(74) - JVRP(259) = V(76) -! JVRP(260) = dARP(149)/dV(76) - JVRP(260) = V(74) -! JVRP(261) = dARP(150)/dV(70) - JVRP(261) = V(76) -! JVRP(262) = dARP(150)/dV(76) - JVRP(262) = V(70) -! JVRP(263) = dARP(151)/dV(73) - JVRP(263) = V(76) -! JVRP(264) = dARP(151)/dV(76) - JVRP(264) = V(73) -! JVRP(265) = dARP(152)/dV(57) - JVRP(265) = V(76) -! JVRP(266) = dARP(152)/dV(76) - JVRP(266) = V(57) -! JVRP(267) = dARP(153)/dV(56) - JVRP(267) = V(76) -! JVRP(268) = dARP(153)/dV(76) - JVRP(268) = V(56) -! JVRP(269) = dARP(154)/dV(47) - JVRP(269) = V(76) -! JVRP(270) = dARP(154)/dV(76) - JVRP(270) = V(47) -! JVRP(271) = dARP(155)/dV(48) - JVRP(271) = V(76) -! JVRP(272) = dARP(155)/dV(76) - JVRP(272) = V(48) -! JVRP(273) = dARP(156)/dV(61) - JVRP(273) = V(76) -! JVRP(274) = dARP(156)/dV(76) - JVRP(274) = V(61) -! JVRP(275) = dARP(157)/dV(50) - JVRP(275) = V(76) -! JVRP(276) = dARP(157)/dV(76) - JVRP(276) = V(50) -! JVRP(277) = dARP(158)/dV(51) - JVRP(277) = V(76) -! JVRP(278) = dARP(158)/dV(76) - JVRP(278) = V(51) -! JVRP(279) = dARP(159)/dV(55) - JVRP(279) = V(76) -! JVRP(280) = dARP(159)/dV(76) - JVRP(280) = V(55) -! JVRP(281) = dARP(160)/dV(59) - JVRP(281) = V(76) -! JVRP(282) = dARP(160)/dV(76) - JVRP(282) = V(59) -! JVRP(283) = dARP(161)/dV(60) - JVRP(283) = V(76) -! JVRP(284) = dARP(161)/dV(76) - JVRP(284) = V(60) -! JVRP(285) = dARP(162)/dV(54) - JVRP(285) = V(76) -! JVRP(286) = dARP(162)/dV(76) - JVRP(286) = V(54) -! JVRP(287) = dARP(163)/dV(76) - JVRP(287) = V(77) -! JVRP(288) = dARP(163)/dV(77) - JVRP(288) = V(76) -! JVRP(289) = dARP(164)/dV(76) - JVRP(289) = V(77) -! JVRP(290) = dARP(164)/dV(77) - JVRP(290) = V(76) -! JVRP(291) = dARP(165)/dV(71) - JVRP(291) = V(76) -! JVRP(292) = dARP(165)/dV(76) - JVRP(292) = V(71) -! JVRP(293) = dARP(166)/dV(71) - JVRP(293) = V(76) -! JVRP(294) = dARP(166)/dV(76) - JVRP(294) = V(71) -! JVRP(295) = dARP(167)/dV(76) - JVRP(295) = V(80) -! JVRP(296) = dARP(167)/dV(80) - JVRP(296) = V(76) -! JVRP(297) = dARP(168)/dV(69) - JVRP(297) = V(76) -! JVRP(298) = dARP(168)/dV(76) - JVRP(298) = V(69) -! JVRP(299) = dARP(169)/dV(68) - JVRP(299) = V(76) -! JVRP(300) = dARP(169)/dV(76) - JVRP(300) = V(68) -! JVRP(301) = dARP(170)/dV(74) - JVRP(301) = 2*V(74) -! JVRP(302) = dARP(171)/dV(70) - JVRP(302) = V(74) -! JVRP(303) = dARP(171)/dV(74) - JVRP(303) = V(70) -! JVRP(304) = dARP(172)/dV(73) - JVRP(304) = V(74) -! JVRP(305) = dARP(172)/dV(74) - JVRP(305) = V(73) -! JVRP(306) = dARP(173)/dV(57) - JVRP(306) = V(74) -! JVRP(307) = dARP(173)/dV(74) - JVRP(307) = V(57) -! JVRP(308) = dARP(174)/dV(56) - JVRP(308) = V(74) -! JVRP(309) = dARP(174)/dV(74) - JVRP(309) = V(56) -! JVRP(310) = dARP(175)/dV(47) - JVRP(310) = V(74) -! JVRP(311) = dARP(175)/dV(74) - JVRP(311) = V(47) -! JVRP(312) = dARP(176)/dV(48) - JVRP(312) = V(74) -! JVRP(313) = dARP(176)/dV(74) - JVRP(313) = V(48) -! JVRP(314) = dARP(177)/dV(61) - JVRP(314) = V(74) -! JVRP(315) = dARP(177)/dV(74) - JVRP(315) = V(61) -! JVRP(316) = dARP(178)/dV(50) - JVRP(316) = V(74) -! JVRP(317) = dARP(178)/dV(74) - JVRP(317) = V(50) -! JVRP(318) = dARP(179)/dV(51) - JVRP(318) = V(74) -! JVRP(319) = dARP(179)/dV(74) - JVRP(319) = V(51) -! JVRP(320) = dARP(180)/dV(55) - JVRP(320) = V(74) -! JVRP(321) = dARP(180)/dV(74) - JVRP(321) = V(55) -! JVRP(322) = dARP(181)/dV(59) - JVRP(322) = V(74) -! JVRP(323) = dARP(181)/dV(74) - JVRP(323) = V(59) -! JVRP(324) = dARP(182)/dV(60) - JVRP(324) = V(74) -! JVRP(325) = dARP(182)/dV(74) - JVRP(325) = V(60) -! JVRP(326) = dARP(183)/dV(54) - JVRP(326) = V(74) -! JVRP(327) = dARP(183)/dV(74) - JVRP(327) = V(54) -! JVRP(328) = dARP(184)/dV(74) - JVRP(328) = V(77) -! JVRP(329) = dARP(184)/dV(77) - JVRP(329) = V(74) -! JVRP(330) = dARP(185)/dV(74) - JVRP(330) = V(77) -! JVRP(331) = dARP(185)/dV(77) - JVRP(331) = V(74) -! JVRP(332) = dARP(186)/dV(71) - JVRP(332) = V(74) -! JVRP(333) = dARP(186)/dV(74) - JVRP(333) = V(71) -! JVRP(334) = dARP(187)/dV(71) - JVRP(334) = V(74) -! JVRP(335) = dARP(187)/dV(74) - JVRP(335) = V(71) -! JVRP(336) = dARP(188)/dV(74) - JVRP(336) = V(80) -! JVRP(337) = dARP(188)/dV(80) - JVRP(337) = V(74) -! JVRP(338) = dARP(189)/dV(69) - JVRP(338) = V(74) -! JVRP(339) = dARP(189)/dV(74) - JVRP(339) = V(69) -! JVRP(340) = dARP(190)/dV(68) - JVRP(340) = V(74) -! JVRP(341) = dARP(190)/dV(74) - JVRP(341) = V(68) -! JVRP(342) = dARP(191)/dV(70) - JVRP(342) = V(77) -! JVRP(343) = dARP(191)/dV(77) - JVRP(343) = V(70) -! JVRP(344) = dARP(192)/dV(73) - JVRP(344) = V(77) -! JVRP(345) = dARP(192)/dV(77) - JVRP(345) = V(73) -! JVRP(346) = dARP(193)/dV(57) - JVRP(346) = V(77) -! JVRP(347) = dARP(193)/dV(77) - JVRP(347) = V(57) -! JVRP(348) = dARP(194)/dV(56) - JVRP(348) = V(77) -! JVRP(349) = dARP(194)/dV(77) - JVRP(349) = V(56) -! JVRP(350) = dARP(195)/dV(47) - JVRP(350) = V(77) -! JVRP(351) = dARP(195)/dV(77) - JVRP(351) = V(47) -! JVRP(352) = dARP(196)/dV(48) - JVRP(352) = V(77) -! JVRP(353) = dARP(196)/dV(77) - JVRP(353) = V(48) -! JVRP(354) = dARP(197)/dV(61) - JVRP(354) = V(77) -! JVRP(355) = dARP(197)/dV(77) - JVRP(355) = V(61) -! JVRP(356) = dARP(198)/dV(50) - JVRP(356) = V(77) -! JVRP(357) = dARP(198)/dV(77) - JVRP(357) = V(50) -! JVRP(358) = dARP(199)/dV(51) - JVRP(358) = V(77) -! JVRP(359) = dARP(199)/dV(77) - JVRP(359) = V(51) -! JVRP(360) = dARP(200)/dV(55) - JVRP(360) = V(77) -! JVRP(361) = dARP(200)/dV(77) - JVRP(361) = V(55) -! JVRP(362) = dARP(201)/dV(59) - JVRP(362) = V(77) -! JVRP(363) = dARP(201)/dV(77) - JVRP(363) = V(59) -! JVRP(364) = dARP(202)/dV(60) - JVRP(364) = V(77) -! JVRP(365) = dARP(202)/dV(77) - JVRP(365) = V(60) -! JVRP(366) = dARP(203)/dV(54) - JVRP(366) = V(77) -! JVRP(367) = dARP(203)/dV(77) - JVRP(367) = V(54) -! JVRP(368) = dARP(204)/dV(77) - JVRP(368) = 2*V(77) -! JVRP(369) = dARP(205)/dV(71) - JVRP(369) = V(77) -! JVRP(370) = dARP(205)/dV(77) - JVRP(370) = V(71) -! JVRP(371) = dARP(206)/dV(77) - JVRP(371) = V(80) -! JVRP(372) = dARP(206)/dV(80) - JVRP(372) = V(77) -! JVRP(373) = dARP(207)/dV(69) - JVRP(373) = V(77) -! JVRP(374) = dARP(207)/dV(77) - JVRP(374) = V(69) -! JVRP(375) = dARP(208)/dV(68) - JVRP(375) = V(77) -! JVRP(376) = dARP(208)/dV(77) - JVRP(376) = V(68) -! JVRP(377) = dARP(209)/dV(69) - JVRP(377) = 2*V(69) -! JVRP(378) = dARP(210)/dV(68) - JVRP(378) = V(69) -! JVRP(379) = dARP(210)/dV(69) - JVRP(379) = V(68) -! JVRP(380) = dARP(211)/dV(68) - JVRP(380) = 2*V(68) -! JVRP(381) = dARP(212)/dV(74) - JVRP(381) = V(79) -! JVRP(382) = dARP(212)/dV(79) - JVRP(382) = V(74) -! JVRP(383) = dARP(213)/dV(70) - JVRP(383) = V(79) -! JVRP(384) = dARP(213)/dV(79) - JVRP(384) = V(70) -! JVRP(385) = dARP(214)/dV(73) - JVRP(385) = V(79) -! JVRP(386) = dARP(214)/dV(79) - JVRP(386) = V(73) -! JVRP(387) = dARP(215)/dV(57) - JVRP(387) = V(79) -! JVRP(388) = dARP(215)/dV(79) - JVRP(388) = V(57) -! JVRP(389) = dARP(216)/dV(56) - JVRP(389) = V(79) -! JVRP(390) = dARP(216)/dV(79) - JVRP(390) = V(56) -! JVRP(391) = dARP(217)/dV(47) - JVRP(391) = V(79) -! JVRP(392) = dARP(217)/dV(79) - JVRP(392) = V(47) -! JVRP(393) = dARP(218)/dV(48) - JVRP(393) = V(79) -! JVRP(394) = dARP(218)/dV(79) - JVRP(394) = V(48) -! JVRP(395) = dARP(219)/dV(61) - JVRP(395) = V(79) -! JVRP(396) = dARP(219)/dV(79) - JVRP(396) = V(61) -! JVRP(397) = dARP(220)/dV(21) - JVRP(397) = V(78) -! JVRP(398) = dARP(220)/dV(78) - JVRP(398) = V(21) -! JVRP(399) = dARP(221)/dV(51) - JVRP(399) = V(79) -! JVRP(400) = dARP(221)/dV(79) - JVRP(400) = V(51) -! JVRP(401) = dARP(222)/dV(55) - JVRP(401) = V(79) -! JVRP(402) = dARP(222)/dV(79) - JVRP(402) = V(55) -! JVRP(403) = dARP(223)/dV(59) - JVRP(403) = V(79) -! JVRP(404) = dARP(223)/dV(79) - JVRP(404) = V(59) -! JVRP(405) = dARP(224)/dV(60) - JVRP(405) = V(79) -! JVRP(406) = dARP(224)/dV(79) - JVRP(406) = V(60) -! JVRP(407) = dARP(225)/dV(54) - JVRP(407) = V(79) -! JVRP(408) = dARP(225)/dV(79) - JVRP(408) = V(54) -! JVRP(409) = dARP(226)/dV(77) - JVRP(409) = V(79) -! JVRP(410) = dARP(226)/dV(79) - JVRP(410) = V(77) -! JVRP(411) = dARP(227)/dV(71) - JVRP(411) = V(79) -! JVRP(412) = dARP(227)/dV(79) - JVRP(412) = V(71) -! JVRP(413) = dARP(228)/dV(79) - JVRP(413) = V(80) -! JVRP(414) = dARP(228)/dV(80) - JVRP(414) = V(79) -! JVRP(415) = dARP(229)/dV(69) - JVRP(415) = V(79) -! JVRP(416) = dARP(229)/dV(79) - JVRP(416) = V(69) -! JVRP(417) = dARP(230)/dV(68) - JVRP(417) = V(79) -! JVRP(418) = dARP(230)/dV(79) - JVRP(418) = V(68) -! JVRP(419) = dARP(231)/dV(64) - JVRP(419) = V(76) -! JVRP(420) = dARP(231)/dV(76) - JVRP(420) = V(64) -! JVRP(421) = dARP(232)/dV(64) - JVRP(421) = V(74) -! JVRP(422) = dARP(232)/dV(74) - JVRP(422) = V(64) -! JVRP(423) = dARP(233)/dV(64) - JVRP(423) = V(77) -! JVRP(424) = dARP(233)/dV(77) - JVRP(424) = V(64) -! JVRP(425) = dARP(234)/dV(64) - JVRP(425) = 2*V(64) -! JVRP(426) = dARP(235)/dV(64) - JVRP(426) = V(81) -! JVRP(427) = dARP(235)/dV(81) - JVRP(427) = V(64) -! JVRP(428) = dARP(236)/dV(64) - JVRP(428) = V(79) -! JVRP(429) = dARP(236)/dV(79) - JVRP(429) = V(64) -! JVRP(430) = dARP(237)/dV(50) - JVRP(430) = 2*V(50) -! JVRP(431) = dARP(238)/dV(7) - JVRP(431) = V(78) -! JVRP(432) = dARP(238)/dV(78) - JVRP(432) = V(7) -! JVRP(433) = dARP(239)/dV(34) - JVRP(433) = V(78) -! JVRP(434) = dARP(239)/dV(78) - JVRP(434) = V(34) -! JVRP(435) = dARP(240)/dV(44) - JVRP(435) = V(81) -! JVRP(436) = dARP(240)/dV(81) - JVRP(436) = V(44) -! JVRP(437) = dARP(241)/dV(44) - JVRP(437) = V(76) -! JVRP(438) = dARP(241)/dV(76) - JVRP(438) = V(44) -! JVRP(439) = dARP(242)/dV(44) - JVRP(439) = 2*V(44) -! JVRP(440) = dARP(243)/dV(44) - JVRP(440) = V(82) -! JVRP(441) = dARP(243)/dV(82) - JVRP(441) = V(44) -! JVRP(442) = dARP(244)/dV(21) - JVRP(442) = 1 -! JVRP(443) = dARP(245)/dV(35) - JVRP(443) = V(78) -! JVRP(444) = dARP(245)/dV(78) - JVRP(444) = V(35) -! JVRP(445) = dARP(246)/dV(35) - JVRP(445) = V(72) -! JVRP(446) = dARP(246)/dV(72) - JVRP(446) = V(35) -! JVRP(447) = dARP(247)/dV(35) - JVRP(447) = V(79) -! JVRP(448) = dARP(247)/dV(79) - JVRP(448) = V(35) -! JVRP(449) = dARP(248)/dV(41) - JVRP(449) = V(78) -! JVRP(450) = dARP(248)/dV(78) - JVRP(450) = V(41) -! JVRP(451) = dARP(249)/dV(41) - JVRP(451) = V(79) -! JVRP(452) = dARP(249)/dV(79) - JVRP(452) = V(41) -! JVRP(453) = dARP(250)/dV(41) - JVRP(453) = V(72) -! JVRP(454) = dARP(250)/dV(72) - JVRP(454) = V(41) - -END SUBROUTINE JacReactantProd - -! End of JacReactantProd function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! Begin Derivative w.r.t. Rate Coefficients - -! ------------------------------------------------------------------------------ -! Subroutine for the derivative of Fun with respect to rate coefficients -! ----------------------------------------------------------------------------- - - SUBROUTINE dFun_dRcoeff( V, F, NCOEFF, JCOEFF, DFDR ) - - USE RACM_Parameters - USE RACM_StoichiomSP - IMPLICIT NONE - -! V - Concentrations of variable/radical/fixed species - REAL(kind=dp) V(NVAR), F(NFIX) -! NCOEFF - the number of rate coefficients with respect to which we differentiate - INTEGER NCOEFF -! JCOEFF - a vector of integers containing the indices of reactions (rate -! coefficients) with respect to which we differentiate - INTEGER JCOEFF(NCOEFF) -! DFDR - a matrix containg derivative values; specifically, -! column j contains d Fun(1:NVAR) / d RCT( JCOEFF(j) ) -! for each 1 <= j <= NCOEFF -! This matrix is stored in a column-wise linearized format - REAL(kind=dp) DFDR(NVAR*NCOEFF) - -! Local vector with reactant products - REAL(kind=dp) A_RPROD(NREACT) - REAL(kind=dp) aj - INTEGER i,j,k - -! Compute the reactant products of all reactions - CALL ReactantProd ( V, F, A_RPROD ) - -! Compute the derivatives by multiplying column JCOEFF(j) of the stoichiometric matrix with A_RPROD - DO j=1,NCOEFF -! Initialize the j-th column of derivative matrix to zero - DO i=1,NVAR - DFDR(i+NVAR*(j-1)) = 0.0_dp - END DO -! Column JCOEFF(j) in the stoichiometric matrix times the -! reactant product of the JCOEFF(j)-th reaction -! give the j-th column of the derivative matrix - aj = A_RPROD(JCOEFF(j)) - DO k=CCOL_STOICM(JCOEFF(j)),CCOL_STOICM(JCOEFF(j)+1)-1 - DFDR(IROW_STOICM(k)+NVAR*(j-1)) = STOICM(k)*aj - END DO - END DO - - END SUBROUTINE dFun_dRcoeff - -! End Derivative w.r.t. Rate Coefficients - - -! Begin Jacobian Derivative w.r.t. Rate Coefficients - -! ------------------------------------------------------------------------------ -! Subroutine for the derivative of Jac with respect to rate coefficients -! Times a user vector -! ----------------------------------------------------------------------------- - - SUBROUTINE dJac_dRcoeff( V, F, U, NCOEFF, JCOEFF, DJDR ) - - USE RACM_Parameters - USE RACM_StoichiomSP - IMPLICIT NONE - -! V - Concentrations of variable/fixed species - REAL(kind=dp) V(NVAR), F(NFIX) -! U - User-supplied Vector - REAL(kind=dp) U(NVAR) -! NCOEFF - the number of rate coefficients with respect to which we differentiate - INTEGER NCOEFF -! JCOEFF - a vector of integers containing the indices of reactions (rate -! coefficients) with respect to which we differentiate - INTEGER JCOEFF(NCOEFF) -! DFDR - a matrix containg derivative values; specifically, -! column j contains d Jac(1:NVAR) / d RCT( JCOEFF(j) ) * U -! for each 1 <= j <= NCOEFF -! This matrix is stored in a column-wise linearized format - REAL(kind=dp) DJDR(NVAR*NCOEFF) - -! Local vector for Jacobian of reactant products - REAL(kind=dp) JV_RPROD(NJVRP) - REAL(kind=dp) aj - INTEGER i,j,k - -! Compute the Jacobian of all reactant products - CALL JacReactantProd( V, F, JV_RPROD ) - -! Compute the derivatives by multiplying column JCOEFF(j) of the stoichiometric matrix with A_PROD - DO j=1,NCOEFF -! Initialize the j-th column of derivative matrix to zero - DO i=1,NVAR - DJDR(i+NVAR*(j-1)) = 0.0_dp - END DO -! Column JCOEFF(j) in the stoichiometric matrix times the -! ( Gradient of reactant product of the JCOEFF(j)-th reaction X user vector ) -! give the j-th column of the derivative matrix -! -! Row JCOEFF(j) of JV_RPROD times the user vector - aj = 0.0_dp - DO k=CROW_JVRP(JCOEFF(j)),CROW_JVRP(JCOEFF(j)+1)-1 - aj = aj + JV_RPROD(k)*U(ICOL_JVRP(k)) - END DO -! Column JCOEFF(j) of Stoichiom. matrix times aj - DO k=CCOL_STOICM(JCOEFF(j)),CCOL_STOICM(JCOEFF(j)+1)-1 - DJDR(IROW_STOICM(k)+NVAR*(j-1)) = STOICM(k)*aj - END DO - END DO - - END SUBROUTINE dJac_dRcoeff - -! End Jacobian Derivative w.r.t. Rate Coefficients - - -END MODULE RACM_Stoichiom - diff --git a/boxmox/compiled_mechs/RACM/RACM_Stoichiom.o b/boxmox/compiled_mechs/RACM/RACM_Stoichiom.o deleted file mode 100644 index e51eba36da02c0a80c452c2154a10c33e7595b18..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/RACM_Stoichiom.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/RACM_StoichiomSP.f90 b/boxmox/compiled_mechs/RACM/RACM_StoichiomSP.f90 deleted file mode 100644 index b8ec663450f31339d1565dd8b00c1ebc103f6fae..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RACM/RACM_StoichiomSP.f90 +++ /dev/null @@ -1,658 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Sparse Stoichiometric Data Structures File -! -! Generated by KPP-2.2.3 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 : RACM_StoichiomSP.f90 -! Time : Thu Oct 8 08:22:22 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RACM_22746_BOXMOX -! Equation file : RACM.kpp -! Output root filename : RACM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RACM_StoichiomSP - - USE RACM_Precision - PUBLIC - SAVE - - -! Row-compressed sparse data for the Jacobian of reaction products JVRP - - INTEGER, PARAMETER, DIMENSION(251) :: CROW_JVRP = (/ & - 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, & - 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, & - 25, 27, 28, 29, 31, 33, 35, 37, 38, 39, 41, 43, & - 45, 47, 49, 51, 53, 55, 56, 58, 60, 62, 64, 66, & - 68, 69, 71, 73, 75, 76, 77, 78, 80, 82, 84, 86, & - 88, 90, 92, 94, 96, 98,100,102,104,106,108,110, & - 112,114,116,118,120,122,124,126,128,130,132,134, & - 136,138,140,142,144,146,148,150,152,154,156,158, & - 160,162,164,166,168,170,172,174,176,178,180,182, & - 184,186,188,190,192,194,196,198,200,202,203,205, & - 207,208,210,212,213,215,217,218,220,221,223,225, & - 227,229,231,233,235,237,239,241,243,245,247,249, & - 251,253,255,257,259,261,263,265,267,269,271,273, & - 275,277,279,281,283,285,287,289,291,293,295,297, & - 299,301,302,304,306,308,310,312,314,316,318,320, & - 322,324,326,328,330,332,334,336,338,340,342,344, & - 346,348,350,352,354,356,358,360,362,364,366,368, & - 369,371,373,375,377,378,380,381,383,385,387,389, & - 391,393,395,397,399,401,403,405,407,409,411,413, & - 415,417,419,421,423,425,426,428,430,431,433,435, & - 437,439,440,442,443,445,447,449,451,453,455 /) - - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_0 = (/ & - 82, 72, 72, 23, 32, 19, 79, 79, 27, 58, 58, 66, & - 20, 75, 33, 52, 46, 46, 53, 63, 62, 49, 24, 25, & - 25, 72, 6, 6, 72, 78, 72, 76, 76, 78, 27, 78, & - 76, 76, 25, 81, 25, 82, 25, 82, 78, 81, 78, 82, & - 78, 79, 76, 81, 76, 82, 19, 76, 79, 23, 78, 32, & - 78, 19, 78, 72, 81, 72, 82, 81, 79, 81, 79, 82, & - 79, 82, 11, 79, 78, 5, 78, 38, 78, 16, 78, 22, & - 78, 18, 78, 17, 78, 14, 78, 8, 78, 12, 78, 30, & - 78, 65, 78, 67, 78, 43, 78, 40, 78, 37, 78, 39, & - 78, 9, 78, 10, 78, 42, 78, 58, 78, 66, 78, 52, & - 78, 24, 78, 46, 78, 53, 78, 49, 78, 63, 78, 15, & - 78, 20, 78, 75, 78, 33, 78, 36, 78, 45, 78, 62, & - 78, 58, 79, 66, 79, 46, 79, 53, 79, 13, 78, 63, & - 79, 42, 79, 30, 79, 65, 79, 67, 79, 43, 79, 40, & - 79, 37, 79, 39, 79, 45, 79, 30, 72, 65, 72, 67, & - 72, 43, 72, 40, 72, 37, 72, 39, 72, 49, 72, 63, & - 72, 45, 72, 26, 82, 26, 76, 28, 82, 28, 28, 72, & - 29, 82, 29, 29, 72, 31, 82, 31, 31, 72, 77, 82, & - 36, 71, 82, 45, 74, 81, 70, 81, 73, 81, 57, 81, & - 56, 81, 47, 81, 48, 81, 61, 81, 50, 81, 51, 81, & - 55, 81, 59, 81, 60, 81, 54, 81, 77, 81, 71, 81, & - 80, 81, 69, 81, 68, 81, 74, 76, 70, 76, 73, 76, & - 57, 76, 56, 76, 47, 76, 48, 76, 61, 76, 50, 76, & - 51, 76, 55, 76, 59, 76, 60, 76, 54, 76, 76, 77, & - 76, 77, 71, 76, 71, 76, 76, 80, 69, 76, 68, 76, & - 74, 70, 74, 73, 74, 57, 74, 56, 74, 47, 74, 48, & - 74, 61, 74, 50, 74, 51, 74, 55, 74, 59, 74, 60, & - 74, 54, 74, 74, 77, 74, 77, 71, 74, 71, 74, 74, & - 80, 69, 74, 68, 74, 70, 77, 73, 77, 57, 77, 56, & - 77, 47, 77, 48, 77, 61, 77, 50, 77, 51, 77, 55 /) - INTEGER, PARAMETER, DIMENSION(94) :: ICOL_JVRP_1 = (/ & - 77, 59, 77, 60, 77, 54, 77, 77, 71, 77, 77, 80, & - 69, 77, 68, 77, 69, 68, 69, 68, 74, 79, 70, 79, & - 73, 79, 57, 79, 56, 79, 47, 79, 48, 79, 61, 79, & - 21, 78, 51, 79, 55, 79, 59, 79, 60, 79, 54, 79, & - 77, 79, 71, 79, 79, 80, 69, 79, 68, 79, 64, 76, & - 64, 74, 64, 77, 64, 64, 81, 64, 79, 50, 7, 78, & - 34, 78, 44, 81, 44, 76, 44, 44, 82, 21, 35, 78, & - 35, 72, 35, 79, 41, 78, 41, 79, 41, 72 /) - INTEGER, PARAMETER, DIMENSION(454) :: ICOL_JVRP = (/& - ICOL_JVRP_0, ICOL_JVRP_1 /) - - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_0 = (/ & - 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, & - 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, & - 25, 25, 26, 27, 28, 28, 29, 29, 30, 30, 31, 31, & - 32, 33, 34, 34, 35, 35, 36, 36, 37, 37, 38, 38, & - 39, 39, 40, 40, 41, 41, 42, 43, 43, 44, 44, 45, & - 45, 46, 46, 47, 47, 48, 48, 49, 50, 50, 51, 51, & - 52, 52, 53, 54, 55, 56, 56, 57, 57, 58, 58, 59, & - 59, 60, 60, 61, 61, 62, 62, 63, 63, 64, 64, 65, & - 65, 66, 66, 67, 67, 68, 68, 69, 69, 70, 70, 71, & - 71, 72, 72, 73, 73, 74, 74, 75, 75, 76, 76, 77, & - 77, 78, 78, 79, 79, 80, 80, 81, 81, 82, 82, 83, & - 83, 84, 84, 85, 85, 86, 86, 87, 87, 88, 88, 89, & - 89, 90, 90, 91, 91, 92, 92, 93, 93, 94, 94, 95, & - 95, 96, 96, 97, 97, 98, 98, 99, 99,100,100,101, & - 101,102,102,103,103,104,104,105,105,106,106,107, & - 107,108,108,109,109,110,110,111,111,112,112,113, & - 113,114,114,115,115,116,116,117,117,118,119,119, & - 120,120,121,122,122,123,123,124,125,125,126,126, & - 127,128,128,129,130,130,131,131,132,132,133,133, & - 134,134,135,135,136,136,137,137,138,138,139,139, & - 140,140,141,141,142,142,143,143,144,144,145,145, & - 146,146,147,147,148,148,149,149,150,150,151,151, & - 152,152,153,153,154,154,155,155,156,156,157,157, & - 158,158,159,159,160,160,161,161,162,162,163,163, & - 164,164,165,165,166,166,167,167,168,168,169,169, & - 170,171,171,172,172,173,173,174,174,175,175,176, & - 176,177,177,178,178,179,179,180,180,181,181,182, & - 182,183,183,184,184,185,185,186,186,187,187,188, & - 188,189,189,190,190,191,191,192,192,193,193,194, & - 194,195,195,196,196,197,197,198,198,199,199,200 /) - INTEGER, PARAMETER, DIMENSION(94) :: IROW_JVRP_1 = (/ & - 200,201,201,202,202,203,203,204,205,205,206,206, & - 207,207,208,208,209,210,210,211,212,212,213,213, & - 214,214,215,215,216,216,217,217,218,218,219,219, & - 220,220,221,221,222,222,223,223,224,224,225,225, & - 226,226,227,227,228,228,229,229,230,230,231,231, & - 232,232,233,233,234,235,235,236,236,237,238,238, & - 239,239,240,240,241,241,242,243,243,244,245,245, & - 246,246,247,247,248,248,249,249,250,250 /) - INTEGER, PARAMETER, DIMENSION(454) :: IROW_JVRP = (/& - IROW_JVRP_0, IROW_JVRP_1 /) - - - -! Stoichiometric Matrix in Compressed Column Sparse Format - - - INTEGER, PARAMETER, DIMENSION(251) :: CCOL_STOICM = (/ & - 1, 4, 6, 8, 11, 14, 19, 21, 24, 26, 28, 31, & - 35, 39, 43, 46, 49, 52, 56, 60, 63, 68, 73, 77, & - 79, 81, 83, 85, 88, 91, 93, 96, 98,100,103,106, & - 109,112,115,119,123,126,129,134,137,140,143,146, & - 149,151,154,156,159,162,164,166,170,174,179,183, & - 186,189,198,203,209,212,215,218,221,224,227,230, & - 235,240,246,250,253,256,260,264,268,271,279,284, & - 288,294,300,305,313,317,322,326,331,336,339,350, & - 354,358,362,366,371,374,378,382,389,396,412,427, & - 442,454,464,477,485,497,507,511,514,518,522,526, & - 530,534,538,542,546,550,553,556,559,562,567,572, & - 584,595,604,610,617,623,630,637,645,653,661,667, & - 671,676,684,689,695,698,701,704,707,710,713,716, & - 719,722,725,728,731,734,737,740,744,747,751,754, & - 757,760,763,768,777,785,793,798,804,810,817,823, & - 829,836,843,849,852,856,861,865,874,879,887,893, & - 905,915,924,931,939,946,954,960,967,974,981,987, & - 989,992,1001,1007,1016,1019,1027,1033,1038,1043,1054,1064, & - 1072,1078,1085,1091,1095,1101,1108,1115,1122,1128,1132,1137, & - 1145,1150,1156,1159,1163,1166,1167,1170,1173,1177,1179,1183, & - 1192,1195,1201,1204,1207,1213,1221,1226,1229,1233,1248 /) - - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_0 = (/ & - 25, 81, 82, 6, 72, 25, 72, 23, 78, 81, 32, 78, & - 82, 19, 76, 78, 79, 82, 79, 81, 25, 79, 82, 27, & - 78, 38, 58, 38, 58, 76, 38, 66, 74, 76, 20, 58, & - 76, 78, 66, 75, 76, 78, 33, 74, 78, 52, 70, 77, & - 38, 46, 58, 38, 46, 58, 76, 38, 53, 76, 77, 63, & - 71, 76, 52, 62, 66, 76, 82, 38, 49, 58, 76, 77, & - 24, 58, 76, 77, 25, 72, 25, 72, 6, 25, 6, 78, & - 72, 76, 78, 72, 76, 78, 76, 78, 27, 76, 78, 27, & - 76, 27, 76, 25, 81, 82, 25, 81, 82, 25, 79, 82, & - 23, 78, 81, 32, 78, 82, 76, 78, 79, 82, 76, 78, & - 81, 82, 19, 76, 82, 19, 76, 82, 32, 76, 78, 79, & - 82, 23, 78, 82, 32, 78, 79, 19, 78, 82, 72, 81, & - 82, 72, 79, 82, 81, 82, 79, 81, 82, 79, 81, 11, & - 79, 82, 11, 79, 82, 79, 82, 76, 78, 1, 5, 76, & - 78, 2, 38, 76, 78, 16, 38, 58, 78, 82, 22, 53, & - 76, 78, 18, 74, 78, 17, 70, 78, 3, 14, 38, 46, & - 58, 66, 73, 76, 78, 8, 52, 57, 76, 78, 12, 24, & - 56, 66, 76, 78, 30, 47, 78, 48, 65, 78, 61, 67, & - 78, 43, 50, 78, 40, 50, 78, 37, 51, 78, 39, 55, & - 78, 9, 28, 64, 76, 78, 10, 29, 64, 76, 78, 26, & - 31, 42, 64, 76, 78, 38, 58, 76, 78, 66, 77, 78, & - 52, 78, 80, 24, 53, 76, 78, 38, 46, 76, 78, 38, & - 53, 77, 78, 44, 49, 78, 15, 46, 53, 63, 64, 71, & - 76, 78, 15, 52, 66, 76, 78, 20, 58, 74, 78, 52, & - 64, 66, 73, 75, 78, 33, 58, 64, 76, 77, 78, 36, & - 58, 64, 78, 79, 24, 36, 45, 58, 64, 76, 78, 79, & - 62, 73, 78, 82, 32, 38, 58, 76, 79, 32, 66, 77, & - 79, 32, 38, 46, 76, 79, 32, 38, 53, 77, 79, 13, & - 44, 78, 32, 46, 52, 53, 63, 64, 66, 71, 76, 79, & - 82, 26, 32, 42, 79, 30, 68, 69, 79, 65, 68, 69 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_1 = (/ & - 79, 67, 68, 69, 79, 43, 49, 68, 69, 79, 34, 40, & - 79, 37, 68, 69, 79, 39, 68, 69, 79, 36, 45, 58, & - 62, 64, 79, 82, 3, 30, 38, 58, 72, 76, 78, 3, & - 4, 17, 18, 27, 38, 52, 58, 65, 66, 70, 72, 74, & - 76, 78, 80, 4, 17, 18, 27, 38, 52, 58, 66, 67, & - 70, 72, 74, 76, 78, 80, 3, 25, 27, 38, 43, 49, & - 58, 64, 65, 72, 74, 76, 77, 78, 80, 3, 27, 38, & - 40, 44, 49, 58, 72, 74, 76, 77, 78, 27, 37, 38, & - 52, 66, 70, 72, 76, 78, 80, 3, 4, 27, 38, 39, & - 49, 58, 65, 70, 72, 76, 78, 80, 3, 38, 49, 53, & - 72, 76, 77, 78, 3, 4, 33, 38, 46, 53, 63, 66, & - 72, 76, 77, 78, 3, 36, 38, 45, 58, 72, 76, 77, & - 78, 82, 26, 42, 62, 82, 26, 42, 76, 23, 28, 42, & - 82, 28, 42, 59, 76, 28, 42, 72, 78, 23, 29, 42, & - 82, 29, 42, 60, 76, 29, 42, 72, 78, 23, 31, 42, & - 82, 31, 42, 54, 76, 31, 42, 72, 78, 36, 77, 82, & - 36, 77, 82, 45, 71, 82, 45, 71, 82, 58, 74, 76, & - 81, 82, 66, 70, 76, 81, 82, 46, 52, 58, 62, 64, & - 66, 70, 73, 74, 76, 81, 82, 52, 57, 58, 62, 64, & - 66, 70, 74, 76, 81, 82, 52, 56, 62, 64, 66, 70, & - 76, 81, 82, 47, 58, 66, 76, 81, 82, 48, 52, 58, & - 66, 76, 81, 82, 52, 61, 66, 76, 81, 82, 34, 49, & - 50, 58, 76, 81, 82, 51, 52, 62, 66, 76, 81, 82, & - 49, 55, 58, 62, 67, 76, 81, 82, 46, 53, 59, 62, & - 63, 76, 81, 82, 46, 53, 60, 62, 63, 76, 81, 82, & - 46, 53, 54, 76, 81, 82, 74, 77, 81, 82, 58, 71, & - 77, 81, 82, 53, 64, 66, 76, 77, 80, 81, 82, 62, & - 69, 76, 81, 82, 52, 58, 66, 68, 81, 82, 20, 74, & - 76, 70, 75, 76, 73, 75, 76, 57, 75, 76, 56, 75, & - 76, 47, 75, 76, 48, 75, 76, 61, 75, 76, 7, 50 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_2 = (/ & - 76, 51, 75, 76, 55, 75, 76, 59, 75, 76, 60, 75, & - 76, 54, 75, 76, 33, 76, 77, 4, 72, 76, 77, 71, & - 75, 76, 4, 71, 72, 76, 75, 76, 80, 62, 69, 76, & - 62, 68, 76, 58, 74, 76, 58, 66, 70, 74, 76, 46, & - 52, 53, 58, 64, 66, 73, 74, 76, 52, 57, 58, 64, & - 66, 70, 74, 76, 52, 56, 58, 64, 66, 70, 74, 76, & - 47, 58, 66, 74, 76, 48, 52, 58, 66, 74, 76, 52, & - 58, 61, 66, 74, 76, 49, 50, 58, 65, 67, 74, 76, & - 51, 52, 58, 66, 74, 76, 49, 55, 58, 67, 74, 76, & - 46, 53, 58, 59, 63, 74, 76, 46, 53, 58, 60, 63, & - 74, 76, 46, 53, 54, 58, 74, 76, 58, 76, 77, 4, & - 58, 74, 77, 58, 71, 74, 76, 77, 4, 58, 71, 74, & - 24, 53, 58, 64, 66, 74, 76, 77, 80, 58, 62, 69, & - 74, 76, 52, 58, 62, 66, 68, 74, 76, 82, 4, 66, & - 70, 74, 76, 77, 4, 46, 52, 53, 58, 64, 66, 70, & - 73, 74, 76, 77, 4, 52, 57, 58, 64, 66, 70, 74, & - 76, 77, 4, 52, 56, 64, 66, 70, 74, 76, 77, 4, & - 47, 58, 66, 74, 76, 77, 4, 48, 52, 58, 66, 74, & - 76, 77, 4, 52, 61, 66, 74, 76, 77, 4, 49, 50, & - 58, 65, 74, 76, 77, 51, 52, 66, 74, 76, 77, 49, & - 55, 58, 67, 74, 76, 77, 46, 53, 59, 63, 74, 76, & - 77, 46, 53, 60, 63, 74, 76, 77, 46, 53, 54, 74, & - 76, 77, 74, 77, 58, 71, 74, 4, 52, 53, 64, 66, & - 74, 76, 77, 80, 4, 62, 69, 74, 76, 77, 4, 52, & - 58, 62, 66, 68, 74, 77, 82, 62, 69, 76, 52, 58, & - 62, 66, 68, 69, 76, 82, 52, 58, 62, 66, 68, 82, & - 58, 74, 76, 79, 82, 66, 70, 76, 79, 82, 46, 52, & - 58, 64, 66, 70, 73, 74, 76, 79, 82, 52, 57, 58, & - 64, 66, 70, 74, 76, 79, 82, 52, 56, 64, 66, 70, & - 76, 79, 82, 47, 58, 66, 76, 79, 82, 48, 52, 58 /) - INTEGER, PARAMETER, DIMENSION(167) :: IROW_STOICM_3 = (/ & - 66, 76, 79, 82, 52, 61, 66, 76, 79, 82, 21, 22, & - 78, 82, 51, 52, 66, 76, 79, 82, 49, 55, 58, 67, & - 76, 79, 82, 46, 53, 59, 63, 76, 79, 82, 46, 53, & - 60, 63, 76, 79, 82, 46, 53, 54, 76, 79, 82, 74, & - 77, 79, 82, 58, 71, 77, 79, 82, 53, 64, 66, 76, & - 77, 79, 80, 82, 62, 69, 76, 79, 82, 52, 58, 66, & - 68, 79, 82, 64, 75, 76, 58, 64, 74, 76, 64, 74, & - 77, 64, 64, 81, 82, 64, 79, 82, 49, 50, 58, 76, & - 7, 49, 16, 22, 34, 78, 22, 38, 44, 53, 58, 76, & - 77, 81, 82, 13, 44, 76, 22, 38, 44, 53, 58, 76, & - 21, 44, 82, 21, 44, 82, 3, 35, 52, 58, 61, 78, & - 3, 4, 35, 52, 58, 66, 72, 78, 35, 49, 68, 69, & - 79, 41, 61, 78, 41, 68, 69, 79, 4, 17, 18, 27, & - 38, 41, 52, 58, 66, 70, 72, 74, 76, 78, 80 /) - INTEGER, PARAMETER, DIMENSION(1247) :: IROW_STOICM = (/& - IROW_STOICM_0, IROW_STOICM_1, IROW_STOICM_2, IROW_STOICM_3 /) - - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_0 = (/ & - 1, 1, 1, 2, 2, 3, 3, 4, 4, 4, 5, 5, & - 5, 6, 6, 6, 6, 6, 7, 7, 8, 8, 8, 9, & - 9, 10, 10, 11, 11, 11, 12, 12, 12, 12, 13, 13, & - 13, 13, 14, 14, 14, 14, 15, 15, 15, 16, 16, 16, & - 17, 17, 17, 18, 18, 18, 18, 19, 19, 19, 19, 20, & - 20, 20, 21, 21, 21, 21, 21, 22, 22, 22, 22, 22, & - 23, 23, 23, 23, 24, 24, 25, 25, 26, 26, 27, 27, & - 28, 28, 28, 29, 29, 29, 30, 30, 31, 31, 31, 32, & - 32, 33, 33, 34, 34, 34, 35, 35, 35, 36, 36, 36, & - 37, 37, 37, 38, 38, 38, 39, 39, 39, 39, 40, 40, & - 40, 40, 41, 41, 41, 42, 42, 42, 43, 43, 43, 43, & - 43, 44, 44, 44, 45, 45, 45, 46, 46, 46, 47, 47, & - 47, 48, 48, 48, 49, 49, 50, 50, 50, 51, 51, 52, & - 52, 52, 53, 53, 53, 54, 54, 55, 55, 56, 56, 56, & - 56, 57, 57, 57, 57, 58, 58, 58, 58, 58, 59, 59, & - 59, 59, 60, 60, 60, 61, 61, 61, 62, 62, 62, 62, & - 62, 62, 62, 62, 62, 63, 63, 63, 63, 63, 64, 64, & - 64, 64, 64, 64, 65, 65, 65, 66, 66, 66, 67, 67, & - 67, 68, 68, 68, 69, 69, 69, 70, 70, 70, 71, 71, & - 71, 72, 72, 72, 72, 72, 73, 73, 73, 73, 73, 74, & - 74, 74, 74, 74, 74, 75, 75, 75, 75, 76, 76, 76, & - 77, 77, 77, 78, 78, 78, 78, 79, 79, 79, 79, 80, & - 80, 80, 80, 81, 81, 81, 82, 82, 82, 82, 82, 82, & - 82, 82, 83, 83, 83, 83, 83, 84, 84, 84, 84, 85, & - 85, 85, 85, 85, 85, 86, 86, 86, 86, 86, 86, 87, & - 87, 87, 87, 87, 88, 88, 88, 88, 88, 88, 88, 88, & - 89, 89, 89, 89, 90, 90, 90, 90, 90, 91, 91, 91, & - 91, 92, 92, 92, 92, 92, 93, 93, 93, 93, 93, 94, & - 94, 94, 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, & - 95, 96, 96, 96, 96, 97, 97, 97, 97, 98, 98, 98 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_1 = (/ & - 98, 99, 99, 99, 99,100,100,100,100,100,101,101, & - 101,102,102,102,102,103,103,103,103,104,104,104, & - 104,104,104,104,105,105,105,105,105,105,105,106, & - 106,106,106,106,106,106,106,106,106,106,106,106, & - 106,106,106,107,107,107,107,107,107,107,107,107, & - 107,107,107,107,107,107,108,108,108,108,108,108, & - 108,108,108,108,108,108,108,108,108,109,109,109, & - 109,109,109,109,109,109,109,109,109,110,110,110, & - 110,110,110,110,110,110,110,111,111,111,111,111, & - 111,111,111,111,111,111,111,111,112,112,112,112, & - 112,112,112,112,113,113,113,113,113,113,113,113, & - 113,113,113,113,114,114,114,114,114,114,114,114, & - 114,114,115,115,115,115,116,116,116,117,117,117, & - 117,118,118,118,118,119,119,119,119,120,120,120, & - 120,121,121,121,121,122,122,122,122,123,123,123, & - 123,124,124,124,124,125,125,125,125,126,126,126, & - 127,127,127,128,128,128,129,129,129,130,130,130, & - 130,130,131,131,131,131,131,132,132,132,132,132, & - 132,132,132,132,132,132,132,133,133,133,133,133, & - 133,133,133,133,133,133,134,134,134,134,134,134, & - 134,134,134,135,135,135,135,135,135,136,136,136, & - 136,136,136,136,137,137,137,137,137,137,138,138, & - 138,138,138,138,138,139,139,139,139,139,139,139, & - 140,140,140,140,140,140,140,140,141,141,141,141, & - 141,141,141,141,142,142,142,142,142,142,142,142, & - 143,143,143,143,143,143,144,144,144,144,145,145, & - 145,145,145,146,146,146,146,146,146,146,146,147, & - 147,147,147,147,148,148,148,148,148,148,149,149, & - 149,150,150,150,151,151,151,152,152,152,153,153, & - 153,154,154,154,155,155,155,156,156,156,157,157 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_2 = (/ & - 157,158,158,158,159,159,159,160,160,160,161,161, & - 161,162,162,162,163,163,163,164,164,164,164,165, & - 165,165,166,166,166,166,167,167,167,168,168,168, & - 169,169,169,170,170,170,171,171,171,171,171,172, & - 172,172,172,172,172,172,172,172,173,173,173,173, & - 173,173,173,173,174,174,174,174,174,174,174,174, & - 175,175,175,175,175,176,176,176,176,176,176,177, & - 177,177,177,177,177,178,178,178,178,178,178,178, & - 179,179,179,179,179,179,180,180,180,180,180,180, & - 181,181,181,181,181,181,181,182,182,182,182,182, & - 182,182,183,183,183,183,183,183,184,184,184,185, & - 185,185,185,186,186,186,186,186,187,187,187,187, & - 188,188,188,188,188,188,188,188,188,189,189,189, & - 189,189,190,190,190,190,190,190,190,190,191,191, & - 191,191,191,191,192,192,192,192,192,192,192,192, & - 192,192,192,192,193,193,193,193,193,193,193,193, & - 193,193,194,194,194,194,194,194,194,194,194,195, & - 195,195,195,195,195,195,196,196,196,196,196,196, & - 196,196,197,197,197,197,197,197,197,198,198,198, & - 198,198,198,198,198,199,199,199,199,199,199,200, & - 200,200,200,200,200,200,201,201,201,201,201,201, & - 201,202,202,202,202,202,202,202,203,203,203,203, & - 203,203,204,204,205,205,205,206,206,206,206,206, & - 206,206,206,206,207,207,207,207,207,207,208,208, & - 208,208,208,208,208,208,208,209,209,209,210,210, & - 210,210,210,210,210,210,211,211,211,211,211,211, & - 212,212,212,212,212,213,213,213,213,213,214,214, & - 214,214,214,214,214,214,214,214,214,215,215,215, & - 215,215,215,215,215,215,215,216,216,216,216,216, & - 216,216,216,217,217,217,217,217,217,218,218,218 /) - INTEGER, PARAMETER, DIMENSION(167) :: ICOL_STOICM_3 = (/ & - 218,218,218,218,219,219,219,219,219,219,220,220, & - 220,220,221,221,221,221,221,221,222,222,222,222, & - 222,222,222,223,223,223,223,223,223,223,224,224, & - 224,224,224,224,224,225,225,225,225,225,225,226, & - 226,226,226,227,227,227,227,227,228,228,228,228, & - 228,228,228,228,229,229,229,229,229,230,230,230, & - 230,230,230,231,231,231,232,232,232,232,233,233, & - 233,234,235,235,235,236,236,236,237,237,237,237, & - 238,238,239,239,239,239,240,240,240,240,240,240, & - 240,240,240,241,241,241,242,242,242,242,242,242, & - 243,243,243,244,244,244,245,245,245,245,245,245, & - 246,246,246,246,246,246,246,246,247,247,247,247, & - 247,248,248,248,249,249,249,249,250,250,250,250, & - 250,250,250,250,250,250,250,250,250,250,250 /) - INTEGER, PARAMETER, DIMENSION(1247) :: ICOL_STOICM = (/& - ICOL_STOICM_0, ICOL_STOICM_1, ICOL_STOICM_2, ICOL_STOICM_3 /) - - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_0 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 6.500000e-01_dp, & - 3.500000e-01_dp, 3.500000e-01_dp, 6.500000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.870000e+00_dp, -1.000000e+00_dp, & - 1.300000e-01_dp, 1.550000e+00_dp, -1.000000e+00_dp, 4.500000e-01_dp, 8.000000e-01_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 8.000000e-01_dp, -1.000000e+00_dp, 2.000000e-01_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -2.000000e+00_dp, 1.000000e+00_dp, -2.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 3.000000e-01_dp, -1.000000e+00_dp, & - 7.000000e-01_dp, -1.000000e+00_dp, 7.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -2.000000e+00_dp, 2.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_1 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -2.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 3.600000e-02_dp, -1.000000e+00_dp, & - 3.600000e-02_dp, 3.600000e-02_dp, 1.000000e-02_dp, 3.350000e-01_dp, 5.830000e-01_dp, & - 3.810000e-01_dp, -9.640000e-01_dp, -1.000000e+00_dp, 2.500000e-01_dp, 7.500000e-01_dp, & - 2.500000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 2.400000e-02_dp, 9.511000e-01_dp, & - 2.500000e-02_dp, 4.900000e-02_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 9.000000e-01_dp, 1.000000e-01_dp, 1.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 9.000000e-01_dp, 1.000000e-01_dp, 1.000000e-01_dp, -1.000000e+00_dp, 1.000000e-01_dp, & - 8.500000e-01_dp, -1.000000e+00_dp, 5.000000e-02_dp, 5.000000e-02_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 3.500000e-01_dp, 1.500000e-01_dp, 1.500000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, & - 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.200000e-01_dp, & - 8.800000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 3.500000e-01_dp, & - 6.500000e-01_dp, -6.500000e-01_dp, 4.100000e-01_dp, 7.000000e-02_dp, 8.000000e-02_dp, & - 4.400000e-01_dp, -1.000000e+00_dp, -5.100000e-01_dp, -1.000000e+00_dp, 3.500000e-01_dp, & - 3.500000e-01_dp, 3.500000e-01_dp, 6.500000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_2 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 6.000000e-01_dp, & - 4.000000e-01_dp, -1.000000e+00_dp, 4.000000e-01_dp, 1.000000e+00_dp, 4.000000e-01_dp, & - -1.000000e+00_dp, 6.000000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp, 2.500000e-01_dp, & - 3.000000e-02_dp, 2.500000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, 2.500000e-01_dp, & - 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e-01_dp, & - 8.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 5.700000e-01_dp, 4.300000e-01_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 8.900000e-01_dp, 1.100000e-01_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 9.000000e-01_dp, 1.000000e-01_dp, 9.000000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 9.000000e-01_dp, & - 1.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 8.700000e-01_dp, 1.300000e-01_dp, & - -1.000000e+00_dp, 4.000000e-01_dp, -1.000000e+00_dp, 4.000000e-01_dp, 6.000000e-01_dp, & - 1.000000e+00_dp, -4.000000e-01_dp, 4.000000e-01_dp, 3.700000e-01_dp, -1.000000e+00_dp, & - 4.300000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.600000e-01_dp, 1.200000e-01_dp, & - 1.400000e-01_dp, 1.000000e-01_dp, 3.000000e-02_dp, 6.000000e-02_dp, 6.000000e-03_dp, & - 3.700000e-01_dp, 3.000000e-02_dp, 6.400000e-01_dp, -1.000000e+00_dp, 4.400000e-01_dp, & - 1.000000e-01_dp, -1.000000e+00_dp, 1.900000e-01_dp, 2.500000e-01_dp, 4.000000e-01_dp, & - 3.000000e-02_dp, 1.400000e-01_dp, 6.000000e-02_dp, 7.000000e-02_dp, 1.100000e-02_dp, & - 3.000000e-01_dp, 1.600000e-01_dp, 2.000000e-02_dp, 9.900000e-01_dp, -1.000000e+00_dp, & - 1.800000e-01_dp, -1.000000e+00_dp, 2.300000e-01_dp, 2.200000e-01_dp, 6.300000e-01_dp, & - 1.200000e-01_dp, 1.500000e-01_dp, 9.000000e-02_dp, 1.000000e-03_dp, 3.600000e-01_dp, & - -1.000000e+00_dp, 3.900000e-01_dp, 9.000000e-01_dp, 1.300000e-01_dp, 3.500000e-01_dp, & - -1.000000e+00_dp, 3.000000e-02_dp, 3.000000e-01_dp, 1.500000e-01_dp, 2.800000e-01_dp, & - 2.000000e-02_dp, 2.800000e-01_dp, 9.000000e-02_dp, 1.400000e-01_dp, -1.000000e+00_dp, & - 1.000000e-01_dp, 6.500000e-01_dp, 5.800000e-01_dp, -1.000000e+00_dp, 8.000000e-02_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_3 = (/ & - 2.500000e-01_dp, 1.000000e-01_dp, 2.500000e-01_dp, 2.000000e-02_dp, -1.000000e+00_dp, & - 1.400000e-01_dp, 5.300000e-01_dp, 6.500000e-01_dp, 2.000000e-01_dp, -1.000000e+00_dp, & - 1.000000e-01_dp, 8.500000e-01_dp, 4.200000e-01_dp, 1.000000e-02_dp, 7.000000e-02_dp, & - 2.000000e-02_dp, 1.400000e-01_dp, -1.000000e+00_dp, 7.900000e-01_dp, 4.000000e-02_dp, & - 4.600000e-01_dp, 1.600000e-01_dp, -1.000000e+00_dp, 1.000000e-01_dp, 8.500000e-01_dp, & - 4.200000e-01_dp, 4.500000e-01_dp, 2.200000e-01_dp, -1.000000e+00_dp, 9.000000e-01_dp, & - -1.000000e+00_dp, 3.200000e-01_dp, 1.000000e-01_dp, 1.900000e-01_dp, 1.100000e-01_dp, & - 2.100000e-01_dp, 1.100000e-01_dp, 6.600000e-01_dp, 5.000000e-01_dp, 6.200000e-01_dp, & - -1.000000e+00_dp, 1.600000e-01_dp, -1.000000e+00_dp, 2.900000e-01_dp, 2.800000e-01_dp, & - 2.100000e-01_dp, 1.100000e-01_dp, 3.000000e-01_dp, 1.300000e-01_dp, -1.000000e+00_dp, & - 7.000000e-01_dp, -1.000000e+00_dp, 8.000000e-02_dp, 7.000000e-01_dp, 3.600000e-02_dp, & - 7.000000e-01_dp, -1.000000e+00_dp, 1.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e-02_dp, 9.800000e-01_dp, & - 2.000000e-02_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e-02_dp, 9.800000e-01_dp, 2.000000e-02_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e-02_dp, 9.800000e-01_dp, 2.000000e-02_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 6.300000e-02_dp, 6.230000e-01_dp, 4.700000e-02_dp, 5.900000e-02_dp, & - 4.800000e-02_dp, 2.330000e-01_dp, 4.800000e-02_dp, -1.000000e+00_dp, 1.500000e-01_dp, & - 7.420000e-01_dp, -1.000000e+00_dp, 9.410000e-01_dp, 7.220000e-01_dp, -1.000000e+00_dp, & - 2.100000e-02_dp, 1.240000e-01_dp, 3.340000e-01_dp, 2.110000e-01_dp, 2.450000e-01_dp, & - 3.100000e-02_dp, 5.990000e-01_dp, -1.000000e+00_dp, 8.760000e-01_dp, 6.420000e-01_dp, & - -1.000000e+00_dp, 2.610000e-01_dp, 4.160000e-01_dp, 1.500000e-01_dp, 1.330000e-01_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_4 = (/ & - 6.060000e-01_dp, -1.000000e+00_dp, 7.390000e-01_dp, -1.000000e+00_dp, 1.600000e+00_dp, & - 2.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 6.000000e-02_dp, 1.000000e+00_dp, 9.400000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.900000e-01_dp, -1.000000e+00_dp, 1.710000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 4.600000e-02_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 8.000000e-01_dp, 2.000000e-01_dp, 8.000000e-01_dp, 8.000000e-01_dp, -1.000000e+00_dp, & - 8.000000e-01_dp, 4.000000e-01_dp, -1.000000e+00_dp, 2.500000e-01_dp, 3.500000e-01_dp, & - 2.500000e-01_dp, 6.500000e-01_dp, -1.000000e+00_dp, 6.500000e-01_dp, 1.200000e+00_dp, & - 6.500000e-01_dp, -1.000000e+00_dp, 5.000000e-02_dp, 5.000000e-01_dp, 9.500000e-01_dp, & - -1.000000e+00_dp, 9.500000e-01_dp, 3.500000e-01_dp, 6.000000e-01_dp, -1.000000e+00_dp, & - 5.000000e-02_dp, 9.500000e-01_dp, 9.500000e-01_dp, -1.000000e+00_dp, 9.500000e-01_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 5.400000e-01_dp, 1.600000e-01_dp, 4.600000e-01_dp, 7.700000e-01_dp, 2.300000e-01_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 4.640000e-01_dp, 2.870000e-01_dp, & - 1.240000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_5 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.330000e+00_dp, & - -2.000000e+00_dp, 6.600000e-01_dp, 7.500000e-01_dp, 7.500000e-01_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.190000e-01_dp, 1.800000e-02_dp, 5.000000e-03_dp, & - 8.100000e-01_dp, 8.500000e-02_dp, 5.800000e-01_dp, -1.000000e+00_dp, -9.930000e-01_dp, & - 9.920000e-01_dp, 2.400000e-01_dp, -1.000000e+00_dp, 8.290000e-01_dp, 2.450000e-01_dp, & - 5.230000e-01_dp, 1.400000e-02_dp, -9.510000e-01_dp, 9.460000e-01_dp, 4.190000e-01_dp, & - -1.000000e+00_dp, 7.530000e-01_dp, 3.220000e-01_dp, 4.110000e-01_dp, 1.300000e-02_dp, & - -1.000000e+00_dp, 9.930000e-01_dp, -1.000000e+00_dp, 1.550000e+00_dp, 3.500000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 8.100000e-02_dp, 1.250000e+00_dp, & - 6.690000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 3.130000e-01_dp, 7.550000e-01_dp, & - -1.000000e+00_dp, 9.320000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 5.500000e-01_dp, & - -1.000000e+00_dp, 1.090000e+00_dp, 3.700000e-01_dp, 8.000000e-02_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, 6.000000e-01_dp, -1.000000e+00_dp, 1.400000e+00_dp, & - 4.000000e-01_dp, -1.000000e+00_dp, 2.000000e+00_dp, 6.500000e-01_dp, 3.500000e-01_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 3.700000e-01_dp, 6.300000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 3.000000e-01_dp, & - 4.000000e-01_dp, 7.500000e-01_dp, 8.000000e-02_dp, 3.000000e-01_dp, -1.000000e+00_dp, & - 8.800000e-01_dp, 1.200000e-01_dp, -1.000000e+00_dp, 7.500000e-01_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.490000e-01_dp, 9.600000e-01_dp, & - 5.000000e-01_dp, 6.400000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp, & - 5.000000e-01_dp, 5.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp, & - 5.000000e-01_dp, -1.000000e+00_dp, 4.990000e-01_dp, 1.000000e-01_dp, 1.270000e-01_dp, & - 4.000000e-03_dp, 9.100000e-02_dp, 7.100000e-02_dp, 7.240000e-01_dp, 6.000000e-03_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_6 = (/ & - -1.000000e+00_dp, 5.080000e-01_dp, 4.880000e-01_dp, -1.000000e+00_dp, 4.950000e-01_dp, & - 3.300000e-01_dp, -1.000000e+00_dp, 7.600000e-02_dp, 2.370000e-01_dp, 6.770000e-01_dp, & - 1.800000e-02_dp, 5.540000e-01_dp, 4.380000e-01_dp, -1.000000e+00_dp, 4.950000e-01_dp, & - 5.810000e-01_dp, -1.000000e+00_dp, 3.180000e-01_dp, 4.970000e-01_dp, 1.500000e-02_dp, & - 5.070000e-01_dp, 4.890000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, -1.000000e+00_dp, & - 8.000000e-01_dp, 6.000000e-01_dp, 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, & - 4.990000e-01_dp, -1.000000e+00_dp, 1.410000e-01_dp, 5.010000e-01_dp, 8.590000e-01_dp, & - 5.010000e-01_dp, 5.010000e-01_dp, -1.000000e+00_dp, 4.900000e-01_dp, 5.690000e-01_dp, & - -1.000000e+00_dp, 9.410000e-01_dp, 5.100000e-01_dp, 5.100000e-01_dp, -1.000000e+00_dp, & - 4.940000e-01_dp, 7.710000e-01_dp, -1.000000e+00_dp, 3.400000e-01_dp, 2.290000e-01_dp, & - 5.060000e-01_dp, 5.060000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 6.000000e-01_dp, & - -1.000000e+00_dp, 4.000000e-01_dp, 4.000000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 6.500000e-01_dp, 3.500000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 3.700000e-01_dp, 6.300000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, -2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 5.000000e-01_dp, 1.100000e-01_dp, 5.400000e-01_dp, 8.000000e-02_dp, & - 3.500000e-01_dp, 5.000000e-01_dp, 3.800000e-01_dp, -8.800000e-01_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp, 5.000000e-01_dp, & - -1.000000e+00_dp, 4.840000e-01_dp, 1.670000e-01_dp, 2.070000e-01_dp, 4.840000e-01_dp, & - 6.500000e-01_dp, -1.000000e+00_dp, 5.160000e-01_dp, -1.000000e+00_dp, 5.160000e-01_dp, & - 2.000000e+00_dp, -2.000000e+00_dp, 1.000000e+00_dp, 1.490000e-01_dp, 2.020000e-01_dp, & - 1.500000e+00_dp, 6.400000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp, & - 5.000000e-01_dp, 2.850000e-01_dp, 5.040000e-01_dp, 1.000000e+00_dp, 1.210000e+00_dp, & - -2.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 6.300000e-02_dp, 6.700000e-01_dp, 4.800000e-02_dp, & - 5.100000e-02_dp, 2.430000e-01_dp, 5.300000e-02_dp, -1.000000e+00_dp, 1.550000e-01_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_7 = (/ & - 7.920000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 8.280000e-01_dp, -1.000000e+00_dp, & - 2.100000e-02_dp, 3.910000e-01_dp, 2.390000e-01_dp, 2.620000e-01_dp, 4.000000e-02_dp, & - 6.990000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 8.800000e-01_dp, -1.000000e+00_dp, & - 5.870000e-01_dp, 1.870000e-01_dp, 1.550000e-01_dp, 8.450000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.600000e+00_dp, 2.000000e-01_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 6.000000e-02_dp, 1.000000e+00_dp, & - 9.400000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.900000e-01_dp, & - -1.000000e+00_dp, 1.710000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 6.000000e-01_dp, -1.000000e+00_dp, 4.000000e-01_dp, 4.000000e-01_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.300000e+00_dp, 7.000000e-01_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 7.400000e-01_dp, & - 1.260000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 5.400000e-01_dp, 1.600000e-01_dp, 4.600000e-01_dp, 7.700000e-01_dp, & - 2.300000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 4.690000e-01_dp, & - 2.800000e-01_dp, 1.240000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -2.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 2.500000e-01_dp, 2.500000e-01_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, 7.500000e-01_dp, 7.500000e-01_dp, 2.500000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 5.000000e-01_dp, -2.000000e+00_dp, 1.000000e+00_dp, 5.000000e-01_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(47) :: STOICM_8 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 5.000000e-02_dp, -1.000000e+00_dp, 3.600000e-01_dp, 3.000000e-01_dp, & - 1.900000e-01_dp, -1.000000e+00_dp, 3.900000e-02_dp, 5.300000e-02_dp, -1.000000e+00_dp, & - 2.300000e-01_dp, 5.100000e-01_dp, 8.500000e-01_dp, -1.000000e+00_dp, 6.300000e-01_dp, & - -1.000000e+00_dp, 9.000000e-01_dp, 1.000000e-01_dp, 9.000000e-01_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 8.900000e-01_dp, & - 1.100000e-01_dp, -1.000000e+00_dp, 1.400000e-01_dp, 6.000000e-02_dp, 7.000000e-02_dp, & - 1.100000e-02_dp, 3.000000e-01_dp, -1.000000e+00_dp, 1.600000e-01_dp, 2.000000e-02_dp, & - 9.900000e-01_dp, 1.800000e-01_dp, -1.000000e+00_dp, 2.300000e-01_dp, 2.200000e-01_dp, & - 6.300000e-01_dp, 1.200000e-01_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(1247) :: STOICM = (/& - STOICM_0, STOICM_1, STOICM_2, STOICM_3, STOICM_4, & - STOICM_5, STOICM_6, STOICM_7, STOICM_8 /) - - -END MODULE RACM_StoichiomSP - diff --git a/boxmox/compiled_mechs/RACM/RACM_StoichiomSP.o b/boxmox/compiled_mechs/RACM/RACM_StoichiomSP.o deleted file mode 100644 index 83e8580fb0c5fa370a4770e947f2248e55aaa2f4..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/RACM_StoichiomSP.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/RACM_Util.f90 b/boxmox/compiled_mechs/RACM/RACM_Util.f90 deleted file mode 100644 index 09c142610c9f6171612412d916e3e1d34d529525..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RACM/RACM_Util.f90 +++ /dev/null @@ -1,1566 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Auxiliary Routines File -! -! Generated by KPP-2.2.3 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 : RACM_Util.f90 -! Time : Thu Oct 8 08:22:22 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RACM_22746_BOXMOX -! Equation file : RACM.kpp -! Output root filename : RACM -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RACM_Util - - USE RACM_Parameters - USE RACM_Global - USE RACM_Monitor - IMPLICIT NONE - -CONTAINS - - - -! User INLINED Utility Functions - - -! **************************************************************************** -! **************************************************************************** -! BOXMOX utilities -! **************************************************************************** -! **************************************************************************** - - -! **************************************************************************** -! toUPPER - convert ASCII characters to all upper case -! from http://stackoverflow.com/questions/10759375/ -! how-can-i-write-a-to-upper-or-to-lower-function-in-f90 -! **************************************************************************** - FUNCTION toUPPER (str) RESULT (string) - - CHARACTER(*), INTENT(In) :: str - CHARACTER(LEN(str)) :: string - - INTEGER :: ic, i - - CHARACTER(26), PARAMETER :: cap = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' - CHARACTER(26), PARAMETER :: low = 'abcdefghijklmnopqrstuvwxyz' - - string = str - DO i = 1, LEN_TRIM(str) - ic = INDEX(low, str(i:i)) - IF (ic > 0) string(i:i) = cap(ic:ic) - END DO - - END FUNCTION toUPPER -! **************************************************************************** - - -! **************************************************************************** -! hash - a string hashing function -! from flibs, http://flibs.sourceforge.net -! **************************************************************************** - INTEGER FUNCTION hash( key ) - - CHARACTER(len=*), INTENT(in) :: key - - INTEGER :: i - - INTEGER, PARAMETER :: hash_size = 49931 - INTEGER, PARAMETER :: multiplier = 312 - - hash = 0 - - DO i = 1,LEN(key) - hash = MODULO( multiplier * hash + ICHAR(key(i:i)), hash_size) - ENDDO - - hash = 1 + MODULO( hash-1, hash_size ) - END FUNCTION hash -! **************************************************************************** - - -! **************************************************************************** -! strEqual - comparison function matching two strings -! **************************************************************************** - LOGICAL FUNCTION strEqual(a, b) - - CHARACTER(LEN=*), INTENT(IN) :: a, b - - LOGICAL, PARAMETER :: ignoreCase = .TRUE. - - CHARACTER(LEN=100) :: nice_a, nice_b - INTEGER :: max_len - - nice_a = ADJUSTL(a) - nice_b = ADJUSTL(b) - - IF (ignoreCase) THEN - nice_a = toUPPER(nice_a) - nice_b = toUPPER(nice_b) - END IF - - max_len = MAX( LEN_TRIM(nice_a), LEN_TRIM(nice_b) ) - - strEqual = nice_a(1:max_len) .EQ. nice_b(1:max_len) - - END FUNCTION strEqual -! **************************************************************************** - - -! **************************************************************************** -! writespecstring - Utility function that plots a (potentially) -! large number of species -! **************************************************************************** - SUBROUTINE writespecstring(nspecies, txt, species, offset) - - INTEGER :: nspecies, offset - CHARACTER(LEN=*) :: txt - CHARACTER(LEN=15) :: species(nspecies), fmt - CHARACTER(LEN=2000) :: specstring - - INTEGER, PARAMETER :: cperline=60 - - INTEGER :: i, l - - fmt = "" - WRITE(fmt, "(A1,I3,A4)") "(", offset, "X,A)" - - i = 1; l = 1 - specstring = "" - - DO WHILE (i <= nspecies) - - specstring = TRIM(ADJUSTL(specstring))//TRIM(ADJUSTL(species(i))) - IF (i < nspecies) specstring = TRIM(ADJUSTL(specstring))//", " - - i = i + 1 - - IF (LEN_TRIM(specstring) > cperline) THEN - IF (l == 1) specstring = txt//specstring - l = l + 1 - WRITE(*,fmt) TRIM(specstring) - specstring = "" - ENDIF - ENDDO - - IF (LEN_TRIM(specstring) > 0) THEN - IF (l == 1) specstring = txt//specstring - WRITE(*,fmt) TRIM(specstring) - ENDIF - - END SUBROUTINE writespecstring -! **************************************************************************** - - -! **************************************************************************** -! calcCFACTOR - Calculates CFACTOR variable for unit conversion between -! input/output files and values used in calculations / rates -! **************************************************************************** - SUBROUTINE calcCFACTOR ( ) - - ! from ppmv to mlc/cm3: - ! 1e-6 ppmv -> vmr - ! 1e-3 kg/m3 -> g/cm3 - ! 1/28.9645 g/cm3 -> mole/cm3 - ! 6.022e23 -> molec/cm3 - ! then multiply with air density rho - ! 1.0E-6 * 1E-03 * (1.0/28.97) * 6.022e23 * rho - ! CFACTOR = 2.598378e+13; (with rho == 1.25) - - CFACTOR = 1.0E-6 * 1E-03 * (1.0/28.9645) * 6.022e23 * & - pres / (287.058 * temp) - - END SUBROUTINE calcCFACTOR -! **************************************************************************** - - -! **************************************************************************** -! readConfig - Sets variables using values read in from "BOXMOX.nml" -! **************************************************************************** - SUBROUTINE readConfig ( ) - - INTEGER, PARAMETER :: config_pid = 22 - CHARACTER(LEN=*), PARAMETER :: config_name = "BOXMOX.nml" - - NAMELIST /BOXMOX/ TSTART, TEND, DT, lverbose, iturb, lfix_nox - - LOGICAL :: lnml_exists - - ! *** default values section *** - - TSTART = 0.0D0 ! model start time, seconds since 0 LT - TEND = TSTART + 3600.0D0 ! model end time, seconds since 0 LT - DT = 10.D0 ! model time step, seconds - - lverbose = .FALSE. - iturb = TURB_OPT_NONE - - lfix_nox = .FALSE. - - ! *** namelist read-in section *** - - INQUIRE(FILE=config_name, EXIST=lnml_exists) - - IF (lnml_exists) THEN - - WRITE(*,*) "BOXMOX configuration file ", TRIM(config_name)," found." - - OPEN (config_pid, FILE=config_name) - READ (config_pid, nml=BOXMOX) - CLOSE(config_pid) - - ELSE - WRITE(*,*) "No BOXMOX configuration file (", & - TRIM(config_name),") exists." - ENDIF - - ! *** configuration printout *** - - WRITE(*,*) " " - WRITE(*,"(A20,2X,F12.3)") "TSTART", TSTART - WRITE(*,"(A20,2X,F12.3)") "TEND", TEND - WRITE(*,"(A20,2X,F12.3)") "DT", DT - WRITE(*,*) "" - WRITE(*,"(A20,2X,L10)") "lverbose", lverbose - WRITE(*,*) "" - WRITE(*,"(A20,11X,I1)") "iturb", iturb - WRITE(*,*) "" - WRITE(*,"(A20,2X,L10)") "lfix_nox", lfix_nox - - WRITE(*,*) " " - - END SUBROUTINE readConfig -! **************************************************************************** - - -! **************************************************************************** -! checkConfig - check configuration variables -! **************************************************************************** - SUBROUTINE checkConfig ( ) - - INTEGER :: status - - status = 0 - - IF (TSTART < 0.0) THEN - WRITE(*,*) "start time TSTART cannot be < 0.0" - status = 1 - ENDIF - IF (TEND < 0.0) THEN - WRITE(*,*) "end time TEND cannot be < 0.0" - status = 2 - ENDIF - IF (TSTART >= TEND) THEN - WRITE(*,*) "start time TSTART has to be < end time TEND" - status = 3 - ENDIF - IF (DT <= 0.0) THEN - WRITE(*,*) "time step DT has to be > 0.0" - status = 4 - ENDIF - - IF (status .NE. 0) THEN - IF (.NOT. llibrary) THEN - STOP - ENDIF - ENDIF - - END SUBROUTINE checkConfig -! **************************************************************************** - - -! **************************************************************************** -! writeVersion - Write "VERSION" file to run directory -! **************************************************************************** - SUBROUTINE writeVersion ( ) - - INTEGER, PARAMETER :: version_pid = 23 - CHARACTER(LEN=*), PARAMETER :: version_name = "VERSION" - - ! *** write BOXMOX version to output directory *** - - OPEN(version_pid, file=version_name) - WRITE(version_pid, "(A)") "__BOXMOX_VERSION__" - CLOSE(version_pid) - - END SUBROUTINE writeVersion -! **************************************************************************** - - -! **************************************************************************** -! readVals - main input routine for the BOXMOX extensions. -! reads values from input files with different time -! formats, and interpolates to get the values -! appropriate for the current time step. -! **************************************************************************** - SUBROUTINE readVals(fname, nvar, species, values, stat, & - nanc, ancspecies, ancvalues, lquiet) - - CHARACTER(LEN=*), INTENT(IN) :: fname - INTEGER, INTENT(OUT) :: nvar - CHARACTER(LEN=15), INTENT(OUT) :: species(max_species_boxmox) - REAL(KIND=dp), INTENT(OUT) :: values(max_species_boxmox) - INTEGER, INTENT(OUT) :: stat - INTEGER, INTENT(OUT), OPTIONAL :: nanc - CHARACTER(LEN=15), INTENT(OUT),OPTIONAL :: ancspecies(max_species_boxmox) - REAL(KIND=dp), INTENT(OUT), OPTIONAL :: ancvalues(max_species_boxmox) - LOGICAL, INTENT(IN), OPTIONAL :: lquiet - - INTEGER, PARAMETER :: input_pid = 21 - REAL(KIND=dp) :: time_cur, weight_t1, & - values_t0(max_species_boxmox), & - values_t1(max_species_boxmox), & - values_cur(max_species_boxmox) - CHARACTER(LEN=15) :: names(max_species_boxmox) - INTEGER :: iostat, time_format, ntoread, ntime, nanct, pid, i - LOGICAL :: lfile_exists, ltalkative - - names(:) = "" - values_t0(:) = 0.0 - values_t1(:) = 0.0 - - stat = 0 ! everything is allright - - ltalkative = ( TIME .EQ. TSTART ) .OR. lverbose - IF (PRESENT(lquiet)) THEN - IF (lquiet) THEN - ltalkative = .FALSE. - ENDIF - ENDIF - - ! check whether file exists - INQUIRE(FILE=fname, EXIST=lfile_exists) - IF (.NOT. lfile_exists) THEN - stat = 1 - RETURN - ELSE - IF (ltalkative) THEN - WRITE(*,*) "" - WRITE(*,*) " * ", fname - ENDIF - END IF - - OPEN(input_pid, file=fname) - - ! line 1: number of variables - READ(input_pid, *) nvar - - ! if no variable should be read - bail - IF (nvar == 0) THEN - IF (ltalkative) WRITE(*,*) fname, " declared 0 variables to be read" - stat = 2 - CLOSE(input_pid) - RETURN - END IF - - ! line 2: number of ancillary variables - READ(input_pid, *) nanct - - IF (nanct .LT. 0) THEN - WRITE(*,"(A)") "Number of ancillary variables must be >= 0" - CLOSE(input_pid) - STOP - ENDIF - - IF (nanct .GT. 1) THEN - WRITE(*,"(A)") "Number of ancillary variables must be < 2" - CLOSE(input_pid) - STOP - ENDIF - - ! line 3: time format - READ(input_pid, *) time_format - - IF (time_format .LT. 0 .OR. time_format .GT. 2) THEN - WRITE(*,"(3A)") "Time format has to be 0 (constant), ", & - "1 (s since TSTART) or ", & - "2 (hour of day)" - CLOSE(input_pid) - STOP - END IF - - ntime = 0 - IF (time_format .GT. 0) ntime = 1 - - ntoread = ntime + nanct + nvar - - ! if more variables than max_species_boxmox should be read - bail - IF (ntoread > max_species_boxmox) THEN - IF (ltalkative) THEN - WRITE(*,*) fname, " declared more variables to be read" - WRITE(*,*) "than allocated. Increase max_species_boxmox," - WRITE(*,*) "recompile, and run again." - ENDIF - stat = 3 - CLOSE(input_pid) - RETURN - END IF - - ! line 4: header line - READ(input_pid, *) names(1:ntoread) - - ! line 4ff: values - READ(input_pid, *) values_t0(1:ntoread) - - ! if its not constant in time values - weight_t1 = 0 - IF (.NOT. time_format .EQ. 0) THEN - READ(input_pid, *, IOSTAT=iostat) values_t1(1:ntoread) - - ! TIME is the KPP provided current model time - time_cur = TIME - IF (time_format .EQ. 2) THEN - time_cur = TIME/3600.0_dp - (INT(TIME/3600.0_dp)/24)*24 - END IF - - ! ASSUMPTION: time is the first value read - DO WHILE(values_t1(1) .LT. time_cur .AND. iostat .EQ. 0) - values_t0 = values_t1 - - READ(input_pid, *, IOSTAT=iostat) values_t1(1:ntoread) - END DO - - ! take the last value in the file in case its time values don't cover - ! the full simulation period - IF (iostat .NE. 0) THEN - weight_t1 = 1.0 - ELSE - weight_t1 = (time_cur - values_t0(1)) / (values_t1(1) - values_t0(1)) - ENDIF - - ENDIF - - CLOSE(input_pid) - - values_cur = weight_t1 * values_t1 + & - (1.0 - weight_t1) * values_t0 - - species(1:nvar) = names(ntime+nanct+1:ntime+nanct+nvar) - values(1:nvar) = values_cur(ntime+nanct+1:ntime+nanct+nvar) - - IF (PRESENT(nanc)) nanc = nanct - - IF (nanct .GT. 0) THEN - IF (PRESENT(ancvalues)) THEN - ancvalues(1:nanct) = values_cur(ntime+1:ntime+nanct) - ENDIF - IF (PRESENT(ancspecies)) THEN - ancspecies(1:nanct) = names(ntime+1:ntime+nanct) - ENDIF - ENDIF - - END SUBROUTINE readVals -! **************************************************************************** - - -! **************************************************************************** -! readInput - Reads values from .csv, applies function -! -! "t" is for "target" (i.e. the vector to apply "action" over) -! "r" is for "read" from file -! "u" is for "useable" (i.e., exists in the "target" vector) -! "m" is for "missing" (i.e., asked for, but not found in file) -! -! **************************************************************************** - SUBROUTINE readInput (filename, nt, tnames, tvalues, & - action, lzero, quiet) - - CHARACTER(LEN=*), INTENT(IN) :: filename - INTEGER, INTENT(IN) :: nt - REAL(KIND=dp) :: tvalues(nt) - CHARACTER(LEN=15), INTENT(IN) :: tnames(nt) - REAL(KIND=dp), OPTIONAL :: action ! function to be called - LOGICAL, INTENT(IN), OPTIONAL :: lzero ! call action with 0.0 - ! for 'missing' species - LOGICAL, INTENT(IN), OPTIONAL :: quiet - - INTEGER :: nr, nu, nm, i, k, m, & - iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - unames(max_species_boxmox), & - mnames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox) - LOGICAL :: is_used, first, & - talkative - - CALL readVals(filename, nr, rnames, rvalues, iostat) - - IF (iostat .NE. 0) RETURN - - talkative = .TRUE. - IF (PRESENT(quiet)) talkative = .NOT. quiet - - unames(:) = "none" - nu = 0 - - first = lverbose - - DO i = 1, nr - DO k = 1, nt - IF ( strEqual(rnames(i), tnames(k)) ) THEN - - IF (PRESENT(action)) THEN - tvalues(k) = action( tvalues(k), k, rvalues(i), first) - ELSE - tvalues(k) = rvalues(i) - IF ( (lverbose .OR. first) .AND. talkative ) THEN - WRITE(*,"(6X,A15,1X,E12.6)") tnames(k), tvalues(k)/CFACTOR - ENDIF - ENDIF - - first = .FALSE. - - nu = nu + 1 - unames(nu) = TRIM(ADJUSTL(rnames(i))) - ENDIF - ENDDO - ENDDO - - IF (PRESENT(lzero)) THEN - IF (lzero) THEN - DO k = 1, nt - is_used = .FALSE. - DO i = 1, nu - IF ( strEqual(unames(i), tnames(k)) ) is_used = .TRUE. - ENDDO - IF (.NOT. is_used) THEN - tvalues(k) = action( tvalues(k), k, 0.0, first) - first = .FALSE. - ENDIF - ENDDO - ENDIF - ENDIF - - nm = nr - nu - mnames(:) = "" - - IF (nm > 0) THEN - m = 1 - DO i = 1, nr - is_used = .FALSE. - DO k = 1, nu - IF ( strEqual(rnames(i), unames(k)) ) is_used = .TRUE. - ENDDO - - IF (.NOT. is_used) THEN - mnames(m) = TRIM(ADJUSTL(rnames(i))) - m = m + 1 - ENDIF - ENDDO - ENDIF - - IF ( ((TIME .EQ. TSTART) .OR. lverbose) .AND. talkative) THEN - IF (nu > 0) CALL writespecstring(nu, "useable:", unames, 6) - IF (nm > 0) CALL writespecstring(nm, "unknown: ", mnames, 6) - ENDIF - - END SUBROUTINE readInput -! **************************************************************************** - - -! **************************************************************************** -! InitialCondition - Sets initial values -! **************************************************************************** - REAL(KIND=dp) FUNCTION InitialCondition(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - InitialCondition = y * CFACTOR - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,A12,1X)") "species ", "IC" - WRITE(*,"(6X,A15,1X,E12.6,1X)") SPC_NAMES(k), InitialCondition/CFACTOR - ENDIF - - END FUNCTION InitialCondition -! **************************************************************************** - - -! **************************************************************************** -! Deposition - Applies deposition velocities -! **************************************************************************** - REAL(KIND=dp) FUNCTION Deposition(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - REAL(KIND=dp) :: dCdt - - Deposition = x - - ! we don't remove fixed variables - IF (k .LT. NFIXST) THEN - ! we assume deposition velocities in comparable units - ! (i.e. cm s-1) - ! dxdydz(3) == DZ - dCdt = - y * x / (dxdydz(3) * 100.0) - Deposition = MAX( 0.0, x + DT * dCdt ) - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "v_dep", "after" - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, y, & - Deposition/CFACTOR - ENDIF - - ENDIF - - END FUNCTION Deposition -! **************************************************************************** - - -! **************************************************************************** -! Emission - Adds emissions -! **************************************************************************** - REAL(KIND=dp) FUNCTION Emission(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - REAL(KIND=dp) :: cur - - ! we assume emissions to be a flux in units comparable to the - ! concentration values used in KPP - ! e.g. molecules / m2 / s vs molecules / m3, or - ! moles / cm2 / s vs moles / cm3, ... - ! the time dimensions unit has to be seconds! - - ! dxdydz(3) is PBL height in m - cur = y * DT / (dxdydz(3) * 100.0) - - Emission = x + cur - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "tendency", "after" - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, & - cur/DT/CFACTOR, Emission/CFACTOR - ENDIF - - END FUNCTION Emission -! **************************************************************************** - - -! **************************************************************************** -! Mix - calculate concentration after turbulent mixing -! **************************************************************************** - REAL(KIND=dp) FUNCTION Mix(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - REAL(KIND=dp) :: frac_bg - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - Mix = x - - frac_bg = Kturb * DT - - IF (lfirst .AND. lverbose) THEN - WRITE(*,"(6X,A,1X,F6.3)") "fractional amount of background air", & - frac_bg - WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "background", "after" - ENDIF - - ! we don't mix fixed variables - IF (k .LT. NFIXST) THEN - - ! seems like we found something - Mix = frac_bg * (y * CFACTOR) + & - (1.0 - frac_bg) * x - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, & - y, Mix/CFACTOR - ENDIF - - ENDIF - - END FUNCTION Mix -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturb - calculate Kturb for mixing -! **************************************************************************** - SUBROUTINE UpdateKturb() - - Kturb = 0.0 - SELECT CASE (iturb) - CASE (TURB_OPT_NONE) - Kturb = 0.0 - CASE (TURB_OPT_SPECIFIED) - CALL UpdateKturbSpecified() - CASE (TURB_OPT_VOLUME) - CALL UpdateKturbVolume() - CASE (TURB_OPT_TRACER) - CALL UpdateKturbTracer() - CASE DEFAULT - WRITE(*,"(A,1X,I1)") "Unknown mixing option", iturb - END SELECT - - END SUBROUTINE UpdateKturb -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbSpecified - calc. Kturb for mixing using specified Kturb -! **************************************************************************** - SUBROUTINE UpdateKturbSpecified() - - INTEGER :: nr, na, i, iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - anames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox), & - avalues(max_species_boxmox) - LOGICAL :: lfound - - Kturb = 0.0 - - CALL readVals('Background.csv', & - nr, rnames, rvalues, iostat, & - na, anames, avalues, lquiet=.TRUE.) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - lfound = .FALSE. - DO i = 1, na - IF ( strEqual(anames(i), 'Kturb') ) THEN - Kturb = avalues(i) - lfound = .TRUE. - ENDIF - ENDDO - - IF (.NOT. lfound) THEN - WRITE(*,*) "Kturb variable not found in Background.csv" - STOP - ENDIF - - END SUBROUTINE UpdateKturbSpecified -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbVolume - calc. Kturb for mixing using box volume changes -! **************************************************************************** - SUBROUTINE UpdateKturbVolume() - - REAL(KIND=dp) :: vol, vol_old - - vol = dxdydz(1) * dxdydz(2) * dxdydz(3) - vol_old = dxdydz_old(1) * dxdydz_old(2) * dxdydz_old(3) - - ! maybe we have a mixing case where the box volume changes? - ! increasing volume - dilute against background - ! decreasing volume - ignore (?) for now - - ! in the PBL case, analogue: - ! maybe we changed the PBLH? update concentration vector - ! rising BL - mixing against zero air or bg values - ! shrinking BL - creates residual layer, decouples - - IF (vol > vol_old) THEN - Kturb = ( (vol - vol_old) / vol_old ) / DT - ENDIF - - END SUBROUTINE UpdateKturbVolume -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbTracer - calc. Kturb for mixing using tracer (t, tname) conc. -! changes -! **************************************************************************** - SUBROUTINE UpdateKturbTracer() - - INTEGER :: nr, na, i, iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - anames(max_species_boxmox), & - tracer_name - REAL(KIND=dp) :: rvalues(max_species_boxmox), & - avalues(max_species_boxmox), & - prev, obs, bg, frac_bg - LOGICAL :: lfound_prev, lfound_bg - - Kturb = 0.0 - - CALL readVals('Background.csv', & - nr, rnames, rvalues, iostat, & - na, anames, avalues, lquiet=.TRUE.) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - ! ASSUMPTION: first ancillary species is mixing tracer - tracer_name = anames(1) - obs = avalues(1) * CFACTOR - - prev = 0.0 - lfound_prev = .FALSE. - DO i = 1, NSPEC - IF ( strEqual(SPC_NAMES(i), tracer_name) ) THEN - prev = C(i) - lfound_prev = .TRUE. - ENDIF - ENDDO - - bg = 0.0 - lfound_bg = .FALSE. - DO i = 1, nr - IF ( strEqual(rnames(i), tracer_name) ) THEN - bg = rvalues(i) * CFACTOR - lfound_bg = .TRUE. - ENDIF - ENDDO - - IF (.NOT. lfound_bg) THEN - WRITE(*,*) "Tracer ", TRIM(tracer_name), & - " not found in Background.csv" - STOP - ENDIF - IF (.NOT. lfound_prev) THEN - WRITE(*,*) "Tracer ", TRIM(tracer_name), & - " not found in mechanism" - STOP - ENDIF - - IF ( ABS( bg - prev ) < 1e-10 ) THEN - Kturb = 0.0 - ELSE - frac_bg = ( obs - prev ) / ( bg - prev ) - frac_bg = MIN( frac_bg, 1.0 ) - frac_bg = MAX( frac_bg, 0.0 ) - - Kturb = frac_bg / DT - ENDIF - - END SUBROUTINE UpdateKturbTracer -! **************************************************************************** - - -! **************************************************************************** -! UpdatePhotolysisRates - well, it does what it seems to do -! **************************************************************************** - SUBROUTINE UpdatePhotolysisRates() - - INTEGER :: i, iostat, nr, jidx - CHARACTER(LEN=15) :: rnames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox) - - INTEGER :: j, jidx2 - - rnames(:) = " " - rvalues(:) = 0.0 - - jvalues(:) = 0.0 - - CALL readVals('PhotolysisRates.csv', nr, rnames, rvalues, iostat) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - DO i = 1, nr - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,E12.6)") rnames(i), rvalues(i) - ENDIF - jidx = hash(rnames(i)) - jvalues(jidx) = rvalues(i) - ENDDO - - ! first time step only: make sure hashing actually made unique hashes - IF (TIME .EQ. TSTART) THEN - DO i = 1, nr - jidx = hash(rnames(i)) - DO j = 1, nr - jidx2 = hash(rnames(j)) - IF ((jidx .EQ. jidx2) .AND. .NOT. (i .EQ. j)) THEN - WRITE(*,*) "Photolysis rate label hash collision:" - WRITE(*,*) rnames(i), "(idx ",i,", hash ", jidx, ") == ", & - rnames(j), "(idx ",j,", hash ", jidx2,")" - IF ( strEqual( rnames(i), rnames(j) ) ) THEN - WRITE(*,*) "Remove duplicate label in PhotolysisRates.csv!" - ELSE - WRITE(*,*) "Please contact the BOXMOX developers!" - ENDIF - STOP - ENDIF - ENDDO - ENDDO - - CALL writespecstring(nr, "known:", rnames, 6) - - ENDIF - - END SUBROUTINE UpdatePhotolysisRates -! **************************************************************************** - - -! **************************************************************************** -! UpdateAerosol - update aerosol properties -! **************************************************************************** - SUBROUTINE UpdateAerosol() - - INTEGER, PARAMETER :: naer = 2, sad_idx = 1, r_idx = 2 - REAL(KIND=dp) :: aer(naer), errval = -987654321.0 - CHARACTER(LEN=15) :: aernames(naer) - INTEGER :: iostat, i - - aernames(sad_idx) = "sad"; aer(sad_idx) = errval - aernames(r_idx) = "r"; aer(r_idx) = errval - - CALL readInput('Aerosol.csv', naer, aernames, aer, quiet=lverbose) - - IF (aer(sad_idx) .NE. errval) AER_SAD = aer(sad_idx) - IF (aer(r_idx) .NE. errval) AER_R = aer(r_idx) - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,F8.2)") "SAD ", AER_SAD - WRITE(*,"(6X,A15,1X,F8.2)") "R ", AER_R - ENDIF - - END SUBROUTINE UpdateAerosol -! **************************************************************************** - - -! **************************************************************************** -! UpdateEnvironment - Read environmental values -! **************************************************************************** - SUBROUTINE UpdateEnvironment() - - INTEGER, PARAMETER :: nenv = 4, temp_idx = 1, pres_idx = 2, & - pblh_idx = 3, vol_idx = 4 - REAL(KIND=dp) :: env(nenv), errval = -987654321.0 - CHARACTER(LEN=15) :: envnames(nenv) - INTEGER :: iostat, i - - REAL(KIND=dp) :: temp_old, pres_old, pblh, vol - - envnames(temp_idx) = "TEMP"; env(temp_idx) = errval - envnames(pres_idx) = "PRES"; env(pres_idx) = errval - envnames(pblh_idx) = "PBLH"; env(pblh_idx) = errval - envnames(vol_idx) = "VOL"; env(vol_idx) = errval - - CALL readInput('Environment.csv', nenv, envnames, env, quiet=lverbose) - - temp_old = temp - pres_old = pres - - dxdydz_old(:) = dxdydz(:) - - ! those are just pseudo variables for dxdydz properties - pblh = dxdydz(3) - vol = dxdydz(1) * dxdydz(2) * dxdydz(3) - - IF (env(pblh_idx) .NE. errval .AND. env(vol_idx) .NE. errval) & - THEN - WRITE(*,*) "Cannot work with changing PBLH and VOL at the same time." - STOP - ENDIF - - IF (env(temp_idx) .NE. errval) temp = env(temp_idx) - IF (env(pres_idx) .NE. errval) pres = env(pres_idx) - IF (env(vol_idx) .NE. errval) vol = env(vol_idx) - - IF (env(pblh_idx) .NE. errval) THEN - pblh = env(pblh_idx) - dxdydz(3) = pblh - ENDIF - - ! Adjust species vector - DO i = 1, NSPEC - C(i) = C(i) * (temp_old * pres) / (temp * pres_old) - ENDDO - - ! recalculate unit conversion - CALL calcCFACTOR() - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,F8.2)") "TEMP ", temp - WRITE(*,"(6X,A13,1X,F10.2)") "PRES ", pres - WRITE(*,"(6X,A15,1X,F8.2)") "PBLH ", dxdydz(3) - WRITE(*,"(6X,A15,1X,F8.2)") "VOL ", & - dxdydz(1)*dxdydz(2)*dxdydz(3) - WRITE(*,*) "" - WRITE(*,"(6X,A7,1X,E16.8)") "CFACTOR", CFACTOR - ENDIF - - END SUBROUTINE UpdateEnvironment -! **************************************************************************** - - -! **************************************************************************** -! InitFixNOx - Initialize the NOx fixing data (for steady state calculations) -! **************************************************************************** - SUBROUTINE InitFixNOx(n, names, values) - - INTEGER, INTENT(IN) :: n - REAL(KIND=dp) :: values(n) - CHARACTER(LEN=15), INTENT(IN) :: names(n) - - INTEGER :: i, nfound_tracers - - initial_total_nox = 0.0 - nfound_tracers = 0 - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - initial_total_nox = initial_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - initial_total_nox = initial_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - ENDDO - - IF (.NOT. nfound_tracers == 2) THEN - WRITE(*,*) "NOx fixing failed, found (only) ", & - nfound_tracers, " species." - STOP - ENDIF - - END SUBROUTINE InitFixNOx -! **************************************************************************** - - -! **************************************************************************** -! FixNOx - keep total NOx at initial levels (for steady state calculations) -! **************************************************************************** - SUBROUTINE FixNOx(n, names, values) - - INTEGER, INTENT(IN) :: n - REAL(KIND=dp), INTENT(INOUT) :: values(n) - CHARACTER(LEN=15), INTENT(IN) :: names(n) - - INTEGER :: i, nfound_tracers - REAL(KIND=dp) :: current_total_nox, scaleFactor - - current_total_nox = 0.0 - nfound_tracers = 0 - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - current_total_nox = current_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - current_total_nox = current_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - ENDDO - - IF (.NOT. nfound_tracers == 2) THEN - WRITE(*,*) "NOx fixing failed, found (only) ", & - nfound_tracers, " species." - STOP - ENDIF - - scaleFactor = initial_total_nox - IF (current_total_nox > 0.0) THEN - scaleFactor = initial_total_nox / current_total_nox - ENDIF - - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - values(i) = values(i) * scaleFactor - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - values(i) = values(i) * scaleFactor - ENDIF - ENDDO - - END SUBROUTINE FixNOx -! **************************************************************************** - - -! End INLINED Utility Functions - -! Utility Functions from KPP_HOME/util/util -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! UTIL - Utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -! **************************************************************** -! -! InitSaveData - Opens the data file for writing -! Parameters : -! -! **************************************************************** - - SUBROUTINE InitSaveData () - - USE RACM_Parameters -!* ---------------------------------------------------- -!* BOXMOX extension - Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* add header to output species and sparse jacobian indices -!* and Hessian - USE RACM_JacobianSP -#if 0 > 0 - USE RACM_HessianSP -#endif -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* add header to output files and open rates file - INTEGER :: i -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20161129 -!* renamed concentration output -! open(10, file='RACM.dat') - open(10, file='RACM.conc') -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* add header to output files and open rates file - - ! add header to output file - WRITE(10, "(A24,10000(1X,A24))") "time", ADJUSTR(SPC_NAMES(LOOKAT)) - - open(11, file='RACM.rates') - - WRITE(11, "(I5)") NREACT - - DO i = 1, NREACT - WRITE(11, "(A)") EQN_NAMES(i) - ENDDO - - ! add header to output file - WRITE(11, "(A24,10000(1X,I24))") "time", (/(i, i=1,NREACT, 1)/) - -!* write header to Jacobian output - open(12, file='RACM.jacobian') - -!* species names - WRITE(12, "(10000(1X,A24))") ADJUSTR(SPC_NAMES(LOOKAT)) -!* species index - WRITE(12, "(10000(1X,I5))") LOOKAT -!* Jacobian non zero row index - WRITE(12, "(100000(1X,I5))") (LU_IROW(i), i=1,LU_NONZERO) -!* Jacobian non zero column index - WRITE(12, "(100000(1X,I5))") (LU_ICOL(i), i=1,LU_NONZERO) - -!* write header to Hessian output -#if 0 > 0 - open(13, file='RACM.hessian') - -!* species names - WRITE(13, "(10000(1X,A24))") ADJUSTR(SPC_NAMES(LOOKAT)) -!* species index - WRITE(13, "(10000(1X,I5))") LOOKAT -!* Hessian i, j, k species - WRITE(13, "(100000(1X,I5))") (IHESS_I(i), i=1,NHESS) - WRITE(13, "(100000(1X,I5))") (IHESS_J(i), i=1,NHESS) - WRITE(13, "(100000(1X,I5))") (IHESS_K(i), i=1,NHESS) -#endif -!* ---------------------------------------------------- - - END SUBROUTINE InitSaveData - -! End of InitSaveData function -! **************************************************************** - -! **************************************************************** -! -! SaveData - Write LOOKAT species in the data file -! Parameters : -! -! **************************************************************** - - SUBROUTINE SaveData () - - USE RACM_Global - USE RACM_Monitor -!* ---------------------------------------------------- -!* BOXMOX extension - Jerome Barre - 20150410 -!* Christoph Knote - 20151030 - USE RACM_Jacobian -#if 0 > 0 - USE RACM_Hessian -#endif -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20151030 - REAL(KIND=dp) :: JVS(LU_NONZERO) ! d(dc/dt)i/dcj -#if 0 > 0 - REAL(KIND=dp) :: HESS(NHESS) ! -#endif - INTEGER i - - WRITE(10,999) (TIME-TSTART)/3600.D0, & - (C(LOOKAT(i))/CFACTOR, i=1,NLOOKAT) - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* write out reaction rates - WRITE(11,999) (TIME-TSTART)/3600.D0, & - (RCONST(i), i=1,NREACT) -!* call Jacobian function to output Jacobian values - CALL Jac_SP( VAR, FIX, RCONST, JVS ) - WRITE(12,9999) (JVS(i), i=1,LU_NONZERO) -!* call Hessian function to output Hessian values -#if 0 > 0 - CALL Hessian( VAR, FIX, RCONST, HESS ) - WRITE(13,9999) (HESS(i), i=1,NHESS) -#endif -!* --------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* might have more than 100 output variables -! 999 FORMAT(E24.16,100(1X,E24.16)) -999 FORMAT(E24.16,10000(1X,E24.16E3)) -9999 FORMAT(E24.16,100000(1X,E24.16E3)) -!* ---------------------------------------------------- - - END SUBROUTINE SaveData - -! End of SaveData function -! **************************************************************** - -! **************************************************************** -! -! CloseSaveData - Close the data file -! Parameters : -! -! **************************************************************** - - SUBROUTINE CloseSaveData () - - USE RACM_Parameters - - CLOSE(10) - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -! Christoph Knote - 20153010 -!* close rates file - CLOSE(11) -!* close Jacobian file - CLOSE(12) -!* close Hessian file -#if 0 > 0 - CLOSE(13) -#endif -!* --------------------------------------------------- - - END SUBROUTINE CloseSaveData - -! End of CloseSaveData function -! **************************************************************** - -! **************************************************************** -! -! GenerateMatlab - Generates MATLAB file to load the data file -! Parameters : -! It will have a character string to prefix each -! species name with. -! -! **************************************************************** - - SUBROUTINE GenerateMatlab ( PREFIX ) - - USE RACM_Parameters - USE RACM_Global - USE RACM_Monitor - - - CHARACTER(LEN=8) PREFIX - INTEGER i - - open(20, file='RACM.m') - write(20,*) 'load RACM.dat;' - write(20,990) PREFIX -990 FORMAT(A1,'c = RACM;') - write(20,*) 'clear RACM;' - write(20,991) PREFIX, PREFIX -991 FORMAT(A1,'t=',A1,'c(:,1);') - write(20,992) PREFIX -992 FORMAT(A1,'c(:,1)=[];') - - do i=1,NLOOKAT - write(20,993) PREFIX, SPC_NAMES(LOOKAT(i)), PREFIX, i -993 FORMAT(A1,A6,' = ',A1,'c(:,',I2,');') - end do - - CLOSE(20) - - END SUBROUTINE GenerateMatlab - -! End of GenerateMatlab function -! **************************************************************** - - -! End Utility Functions from KPP_HOME/util/util -! End of UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Shuffle_user2kpp - function to copy concentrations from USER to KPP -! Arguments : -! V_USER - Concentration of variable species in USER's order -! V - Concentrations of variable species (local) -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Shuffle_user2kpp ( V_USER, V ) - -! V_USER - Concentration of variable species in USER's order - REAL(kind=dp) :: V_USER(NVAR) -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) - - V(72) = V_USER(1) - V(27) = V_USER(2) - V(81) = V_USER(3) - V(82) = V_USER(4) - V(79) = V_USER(5) - V(11) = V_USER(6) - V(23) = V_USER(7) - V(32) = V_USER(8) - V(19) = V_USER(9) - V(5) = V_USER(10) - V(1) = V_USER(11) - V(38) = V_USER(12) - V(2) = V_USER(13) - V(18) = V_USER(14) - V(17) = V_USER(15) - V(14) = V_USER(16) - V(8) = V_USER(17) - V(12) = V_USER(18) - V(30) = V_USER(19) - V(65) = V_USER(20) - V(67) = V_USER(21) - V(43) = V_USER(22) - V(40) = V_USER(23) - V(37) = V_USER(24) - V(39) = V_USER(25) - V(9) = V_USER(26) - V(10) = V_USER(27) - V(42) = V_USER(28) - V(58) = V_USER(29) - V(66) = V_USER(30) - V(52) = V_USER(31) - V(46) = V_USER(32) - V(53) = V_USER(33) - V(63) = V_USER(34) - V(49) = V_USER(35) - V(15) = V_USER(36) - V(24) = V_USER(37) - V(62) = V_USER(38) - V(36) = V_USER(39) - V(45) = V_USER(40) - V(20) = V_USER(41) - V(75) = V_USER(42) - V(33) = V_USER(43) - V(3) = V_USER(44) - V(4) = V_USER(45) - V(78) = V_USER(46) - V(76) = V_USER(47) - V(25) = V_USER(48) - V(6) = V_USER(49) - V(74) = V_USER(50) - V(70) = V_USER(51) - V(73) = V_USER(52) - V(57) = V_USER(53) - V(56) = V_USER(54) - V(47) = V_USER(55) - V(48) = V_USER(56) - V(61) = V_USER(57) - V(50) = V_USER(58) - V(51) = V_USER(59) - V(55) = V_USER(60) - V(26) = V_USER(61) - V(28) = V_USER(62) - V(29) = V_USER(63) - V(31) = V_USER(64) - V(59) = V_USER(65) - V(60) = V_USER(66) - V(54) = V_USER(67) - V(77) = V_USER(68) - V(71) = V_USER(69) - V(80) = V_USER(70) - V(69) = V_USER(71) - V(68) = V_USER(72) - V(64) = V_USER(73) - V(22) = V_USER(74) - V(7) = V_USER(75) - V(34) = V_USER(76) - V(44) = V_USER(77) - V(13) = V_USER(78) - V(21) = V_USER(79) - V(16) = V_USER(80) - V(35) = V_USER(81) - V(41) = V_USER(82) - -END SUBROUTINE Shuffle_user2kpp - -! End of Shuffle_user2kpp function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Shuffle_kpp2user - function to restore concentrations from KPP to USER -! Arguments : -! V - Concentrations of variable species (local) -! V_USER - Concentration of variable species in USER's order -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Shuffle_kpp2user ( V, V_USER ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! V_USER - Concentration of variable species in USER's order - REAL(kind=dp) :: V_USER(NVAR) - - V_USER(1) = V(72) - V_USER(2) = V(27) - V_USER(3) = V(81) - V_USER(4) = V(82) - V_USER(5) = V(79) - V_USER(6) = V(11) - V_USER(7) = V(23) - V_USER(8) = V(32) - V_USER(9) = V(19) - V_USER(10) = V(5) - V_USER(11) = V(1) - V_USER(12) = V(38) - V_USER(13) = V(2) - V_USER(14) = V(18) - V_USER(15) = V(17) - V_USER(16) = V(14) - V_USER(17) = V(8) - V_USER(18) = V(12) - V_USER(19) = V(30) - V_USER(20) = V(65) - V_USER(21) = V(67) - V_USER(22) = V(43) - V_USER(23) = V(40) - V_USER(24) = V(37) - V_USER(25) = V(39) - V_USER(26) = V(9) - V_USER(27) = V(10) - V_USER(28) = V(42) - V_USER(29) = V(58) - V_USER(30) = V(66) - V_USER(31) = V(52) - V_USER(32) = V(46) - V_USER(33) = V(53) - V_USER(34) = V(63) - V_USER(35) = V(49) - V_USER(36) = V(15) - V_USER(37) = V(24) - V_USER(38) = V(62) - V_USER(39) = V(36) - V_USER(40) = V(45) - V_USER(41) = V(20) - V_USER(42) = V(75) - V_USER(43) = V(33) - V_USER(44) = V(3) - V_USER(45) = V(4) - V_USER(46) = V(78) - V_USER(47) = V(76) - V_USER(48) = V(25) - V_USER(49) = V(6) - V_USER(50) = V(74) - V_USER(51) = V(70) - V_USER(52) = V(73) - V_USER(53) = V(57) - V_USER(54) = V(56) - V_USER(55) = V(47) - V_USER(56) = V(48) - V_USER(57) = V(61) - V_USER(58) = V(50) - V_USER(59) = V(51) - V_USER(60) = V(55) - V_USER(61) = V(26) - V_USER(62) = V(28) - V_USER(63) = V(29) - V_USER(64) = V(31) - V_USER(65) = V(59) - V_USER(66) = V(60) - V_USER(67) = V(54) - V_USER(68) = V(77) - V_USER(69) = V(71) - V_USER(70) = V(80) - V_USER(71) = V(69) - V_USER(72) = V(68) - V_USER(73) = V(64) - V_USER(74) = V(22) - V_USER(75) = V(7) - V_USER(76) = V(34) - V_USER(77) = V(44) - V_USER(78) = V(13) - V_USER(79) = V(21) - V_USER(80) = V(16) - V_USER(81) = V(35) - V_USER(82) = V(41) - -END SUBROUTINE Shuffle_kpp2user - -! End of Shuffle_kpp2user function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! GetMass - compute total mass of selected atoms -! Arguments : -! CL - Concentration of all species (local) -! Mass - value of mass balance -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE GetMass ( CL, Mass ) - -! CL - Concentration of all species (local) - REAL(kind=dp) :: CL(NSPEC) -! Mass - value of mass balance - REAL(kind=dp) :: Mass(1) - - -END SUBROUTINE GetMass - -! End of GetMass function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE RACM_Util - diff --git a/boxmox/compiled_mechs/RACM/RACM_Util.o b/boxmox/compiled_mechs/RACM/RACM_Util.o deleted file mode 100644 index 08e4ceaaaceb40c41cef57d1d7dd29f3dab6a399..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/RACM_Util.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/RACM_mex_Fun.f90 b/boxmox/compiled_mechs/RACM/RACM_mex_Fun.f90 deleted file mode 100644 index e96313ba7f6cd497430bc6694b0634e4a9ee7d46..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RACM/RACM_mex_Fun.f90 +++ /dev/null @@ -1,45 +0,0 @@ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE mexFunction( nlhs, plhs, nrhs, prhs ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Matlab Gateway for the Derivative Function Fun -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RACM_Model - - INTEGER nlhs, nrhs - INTEGER plhs(*), prhs(*) - INTEGER mxGetPr, mxCreateFull, mxGetM, mxgetN - INTEGER VPtr, FPtr, RPtr, VdotPtr - REAL(kind=dp) V(82), F(2), RCT(250) - REAL(kind=dp) Vdot(82) - -! Check for the right number of input arguments - IF ( nrhs .ne. 3 ) THEN - CALL mexErrMsgTxt('Fun requires 3 input vectors: & - &V(82), F(2), RCT(250)') - END IF -! Check for the right number of output arguments - IF ( nlhs .ne. 1 ) THEN - CALL mexErrMsgTxt('Fun requires 1 output vector: & - &Vdot(82)') - END IF - - plhs(1) = mxCreateDoubleMatrix(82,1,0) - - VPtr = mxGetPr(prhs(1)) - CALL mxCopyPtrToReal8(VPtr,V,82) - - FPtr = mxGetPr(prhs(2)) - CALL mxCopyPtrToReal8(FPtr,F,2) - - RPtr = mxGetPr(prhs(3)) - CALL mxCopyPtrToReal8(RPtr,RCT,250) - - VdotPtr = mxGetPr(plhs(1)) - - CALL Fun( V, F, RCT, Vdot ) - - CALL mxCopyReal8ToPtr(Vdot, VdotPtr, 82) - - END SUBROUTINE mexFunction diff --git a/boxmox/compiled_mechs/RACM/RACM_mex_Jac_SP.f90 b/boxmox/compiled_mechs/RACM/RACM_mex_Jac_SP.f90 deleted file mode 100644 index 78eb6237653872e4bb04447670ce4d0d89154a98..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RACM/RACM_mex_Jac_SP.f90 +++ /dev/null @@ -1,44 +0,0 @@ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE mexFunction( nlhs, plhs, nrhs, prhs ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Matlab Gateway for the Sparse Jacobian Function Jac_SP -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RACM_Model - - INTEGER nlhs, nrhs - INTEGER plhs(*), prhs(*) - INTEGER mxGetPr, mxCreateFull, mxGetM, mxgetN - INTEGER VPtr, FPtr, RPtr, JVSPtr - REAL(kind=dp) V(82), F(2), RCT(250) - REAL(kind=dp) JVS(1125) - -! Check for the right number of input arguments - IF ( nrhs .ne. 3 ) THEN - CALL mexErrMsgTxt('Jac_SP requires 3 input vectors: & - &V(82), F(2), RCT(250)') - END IF -! Check for the right number of output arguments - IF ( nlhs .ne. 1 ) THEN - CALL mexErrMsgTxt('Jac_SP requires 1 output vector: & - &JVS(1125)') - END IF - - plhs(1) = mxCreateDoubleMatrix(1125,1,0) - - VPtr = mxGetPr(prhs(1)) - CALL mxCopyPtrToReal8(VPtr,V,82) - - FPtr = mxGetPr(prhs(2)) - CALL mxCopyPtrToReal8(FPtr,F,2) - - RPtr = mxGetPr(prhs(3)) - CALL mxCopyPtrToReal8(RPtr,RCT,250) - - JVSPtr = mxGetPr(plhs(1)) - - CALL Jac_SP( V, F, RCT, JVS ) - - CALL mxCopyReal8ToPtr(JVS, JVSPtr, 1125) - - END SUBROUTINE mexFunction diff --git a/boxmox/compiled_mechs/RACM/compile.log b/boxmox/compiled_mechs/RACM/compile.log deleted file mode 100644 index 5b3534621773ccb5678454077e1b0b52fc6cecb8..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RACM/compile.log +++ /dev/null @@ -1,22 +0,0 @@ -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RACM_Precision.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RACM_Parameters.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RACM_Global.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RACM_Function.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RACM_JacobianSP.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RACM_Jacobian.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RACM_StoichiomSP.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RACM_Stoichiom.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RACM_Monitor.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RACM_Util.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RACM_Rates.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RACM_LinearAlgebra.f90 -RACM_LinearAlgebra.f90:1434:46: - - 1434 | IF (incX .EQ. incY) IF (incX-1) 5,20,60 - | 1 -Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RACM_Initialize.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RACM_Integrator.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RACM_Model.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RACM_Main.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 RACM_Precision.o RACM_Parameters.o RACM_Global.o RACM_Function.o RACM_JacobianSP.o RACM_Jacobian.o RACM_StoichiomSP.o RACM_Stoichiom.o RACM_Rates.o RACM_Util.o RACM_Monitor.o RACM_LinearAlgebra.o RACM_Main.o RACM_Initialize.o RACM_Integrator.o RACM_Model.o -o RACM.exe diff --git a/boxmox/compiled_mechs/RACM/kpp.log b/boxmox/compiled_mechs/RACM/kpp.log deleted file mode 100644 index 62a884b03a3086689d25c9e354ed7e1fa910f8c8..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RACM/kpp.log +++ /dev/null @@ -1,37 +0,0 @@ - -This is KPP-2.2.3. - -KPP is parsing the equation file. -KPP is computing Jacobian sparsity structure. -KPP is starting the code generation. -KPP is initializing the code generation. -KPP is generating the monitor data: - - RACM_Monitor -KPP is generating the global declarations: - - RACM_Main -KPP is generating the ODE function: - - RACM_Function -KPP is generating the ODE Jacobian: - - RACM_Jacobian - - RACM_JacobianSP -KPP is generating the linear algebra routines: - - RACM_LinearAlgebra -KPP is generating the utility data: - - RACM_Util -KPP is generating the utility functions: - - RACM_Util -KPP is generating the rate laws: - - RACM_Rates -KPP is generating the parameters: - - RACM_Parameters -KPP is generating the global data: - - RACM_Global -KPP is generating the stoichiometric description files: - - RACM_Stoichiom - - RACM_StoichiomSP -KPP is generating the driver from ../boxmox/boxmox.f90: - - RACM_Main -KPP is starting the code post-processing. - -KPP has succesfully created the model "RACM". - diff --git a/boxmox/compiled_mechs/RACM/racm_function.mod b/boxmox/compiled_mechs/RACM/racm_function.mod deleted file mode 100644 index 8f803fe0854fd840977861bd1d7316efbfa53896..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/racm_function.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/racm_global.mod b/boxmox/compiled_mechs/RACM/racm_global.mod deleted file mode 100644 index 694d61573e13fb1e897ef9a7cfe15045cb112746..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/racm_global.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/racm_initialize.mod b/boxmox/compiled_mechs/RACM/racm_initialize.mod deleted file mode 100644 index 24756abd77d666c6805630242d3bf98c34414df2..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/racm_initialize.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/racm_integrator.mod b/boxmox/compiled_mechs/RACM/racm_integrator.mod deleted file mode 100644 index 1200c0053a86428ac1bb7ce26f2076a006313572..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/racm_integrator.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/racm_jacobian.mod b/boxmox/compiled_mechs/RACM/racm_jacobian.mod deleted file mode 100644 index 53c0971e833b62a002ba051c65afd747b08cffe2..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/racm_jacobian.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/racm_jacobiansp.mod b/boxmox/compiled_mechs/RACM/racm_jacobiansp.mod deleted file mode 100644 index fc017c81a28ff68e68396e92a17b24be6a1e975e..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/racm_jacobiansp.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/racm_linearalgebra.mod b/boxmox/compiled_mechs/RACM/racm_linearalgebra.mod deleted file mode 100644 index 2ebae51183ac2a744dc33ba5802b0cbf8de723a9..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/racm_linearalgebra.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/racm_model.mod b/boxmox/compiled_mechs/RACM/racm_model.mod deleted file mode 100644 index 7147cef0e1329d45338c125b5811b1584790f776..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/racm_model.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/racm_monitor.mod b/boxmox/compiled_mechs/RACM/racm_monitor.mod deleted file mode 100644 index 55cf86043543c4070d3ada33abccf37b52fffcc5..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/racm_monitor.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/racm_parameters.mod b/boxmox/compiled_mechs/RACM/racm_parameters.mod deleted file mode 100644 index 380c056e65f3017afdf85824acba087a31b74fa4..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/racm_parameters.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/racm_precision.mod b/boxmox/compiled_mechs/RACM/racm_precision.mod deleted file mode 100644 index 540e59729ec9b677331eb7a3bf5b45adac28c29b..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/racm_precision.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/racm_rates.mod b/boxmox/compiled_mechs/RACM/racm_rates.mod deleted file mode 100644 index 18217d605155e9bacafb790b6ddee419583d3f4c..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/racm_rates.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/racm_stoichiom.mod b/boxmox/compiled_mechs/RACM/racm_stoichiom.mod deleted file mode 100644 index ad5e67b2b2299cd06b20b14d49f68e2da3dba917..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/racm_stoichiom.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/racm_stoichiomsp.mod b/boxmox/compiled_mechs/RACM/racm_stoichiomsp.mod deleted file mode 100644 index 6d591d4eaab7a34558b4ca6ef6c69498bcd9423a..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/racm_stoichiomsp.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RACM/racm_util.mod b/boxmox/compiled_mechs/RACM/racm_util.mod deleted file mode 100644 index 1e6603e56ea3d43bcb895f9d8f3210f4cd149f5d..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RACM/racm_util.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/Makefile_RADM2 b/boxmox/compiled_mechs/RADM2/Makefile_RADM2 deleted file mode 100644 index 586f147991fd041af26cf26071409caec059b376..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADM2/Makefile_RADM2 +++ /dev/null @@ -1,215 +0,0 @@ -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: Set here the F90 compiler and options -# Pedefined compilers: INTEL, PGF, HPUX, LAHEY -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -#COMPILER = G95 -#COMPILER = LAHEY -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# gfortran is standard -#COMPILER = INTEL -# ---------------------------------------------------- -#COMPILER = PGF -#COMPILER = HPUX -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# gfortran is standard -COMPILER = GFORTRAN -# ---------------------------------------------------- - -FC_G95 = g95 -FOPT_G95 = -cpp -O -pg -fbounds-check -fimplicit-none -Wall -ftrace=full - -FC_LAHEY = lf95 -# More aggressive for production runs: -#FOPT_LAHEY = -Cpp --pca -O -# More checking for debugging: -FOPT_LAHEY = -Cpp --chk a,e,s,u --pca --ap -O0 -g --trap --trace --chkglobal - -FC_INTEL = ifort -# More aggressive for production runs: -#FOPT_INTEL = -cpp -O -fp-model precise -pc80 -prec_div -# More checking for debugging: -FOPT_INTEL = -cpp -O0 -fp-model strict -implicitnone -ftrapuv \ - -debug all -check all -warn all - -FC_PGF = pgf90 -# More aggressive for production runs: -FOPT_PGF = -Mpreprocess -O -fast -pc 80 -Kieee -# More checking for debugging: -#FOPT_PGF = -Mpreprocess -O0 -Mbounds -Mchkfpstk -Mchkptr -Mchkstk \ -# -Ktrap=fp -pc 80 -Kieee - -FC_HPUX = f90 -FOPT_HPUX = -O -u +Oall +check=on - -FC_GFORTRAN = gfortran -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# rate equation code creates pretty long lines -# optimization does not help much and breaks MCM -# FOPT_GFORTRAN = -cpp -O -# double precision: -#FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -freal-4-real-16 -freal-8-real-16 -# using GCC 4.7 and higher: -FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -freal-4-real-8 -# for older compilers -#FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -fdefault-real-8 -# ---------------------------------------------------- - -# define FULL_ALGEBRA for non-sparse integration -FC = $(FC_$(COMPILER)) -FOPT = $(FOPT_$(COMPILER)) # -DFULL_ALGEBRA - -LIBS = -#LIBS = -llapack -lblas - -# Command to create Matlab mex gateway routines -# Note: use $(FC) as the mex Fortran compiler -MEX = mex - -GENSRC = RADM2_Precision.f90 \ - RADM2_Parameters.f90 \ - RADM2_Global.f90 - -GENOBJ = RADM2_Precision.o \ - RADM2_Parameters.o \ - RADM2_Global.o - -FUNSRC = RADM2_Function.f90 -FUNOBJ = RADM2_Function.o - -JACSRC = RADM2_JacobianSP.f90 RADM2_Jacobian.f90 -JACOBJ = RADM2_JacobianSP.o RADM2_Jacobian.o - -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20160906 -# if HESSIAN is off, avoid compilation errors by not -# linking to the Hessian objects. -ifeq ($(wildcard RADM2_HessianSP.f90),) - HESSRC = - HESOBJ = -else - HESSRC = RADM2_HessianSP.f90 RADM2_Hessian.f90 - HESOBJ = RADM2_HessianSP.o RADM2_Hessian.o -endif -# ---------------------------------------------------- - -STMSRC = RADM2_StoichiomSP.f90 RADM2_Stoichiom.f90 -STMOBJ = RADM2_StoichiomSP.o RADM2_Stoichiom.o - -UTLSRC = RADM2_Rates.f90 RADM2_Util.f90 RADM2_Monitor.f90 -UTLOBJ = RADM2_Rates.o RADM2_Util.o RADM2_Monitor.o - -LASRC = RADM2_LinearAlgebra.f90 -LAOBJ = RADM2_LinearAlgebra.o - -STOCHSRC = RADM2_Stochastic.f90 -STOCHOBJ = RADM2_Stochastic.o - -MAINSRC = RADM2_Main.f90 RADM2_Initialize.f90 RADM2_Integrator.f90 RADM2_Model.f90 -MAINOBJ = RADM2_Main.o RADM2_Initialize.o RADM2_Integrator.o RADM2_Model.o - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: modify the line below to include only the -# objects needed by your application -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -ALLOBJ = $(GENOBJ) $(FUNOBJ) $(JACOBJ) $(HESOBJ) $(STMOBJ) \ - $(UTLOBJ) $(LAOBJ) - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: modify the line below to include only the -# executables needed by your application -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -all: exe - -exe: $(ALLOBJ) $(MAINOBJ) - $(FC) $(FOPT) $(ALLOBJ) $(MAINOBJ) $(LIBS) -o RADM2.exe - -pylib: $(ALLOBJ) lib_Initialize.o lib_Integrator.o lib_Model.o - f2py -c -m boxmox $(ALLOBJ) lib_Initialize.o lib_Integrator.o lib_Model.o lib_Main.f90 - -stochastic:$(ALLOBJ) $(STOCHOBJ) $(MAINOBJ) - $(FC) $(FOPT) $(ALLOBJ) $(STOCHOBJ) $(MAINOBJ) $(LIBS) \ - -o RADM2_stochastic.exe - -mex: $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O RADM2_mex_Fun.f90 $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O RADM2_mex_Jac_SP.f90 $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O RADM2_mex_Hessian.f90 $(ALLOBJ) - -clean: - rm -f RADM2*.o RADM2*.mod \ - RADM2*.dat RADM2.exe RADM2*.mexglx \ - RADM2.map - -distclean: - rm -f RADM2*.o RADM2*.mod \ - RADM2*.dat RADM2.exe RADM2.map \ - RADM2*.f90 RADM2_*.mexglx - -RADM2_Precision.o: RADM2_Precision.f90 - $(FC) $(FOPT) -c $< - -RADM2_Parameters.o: RADM2_Parameters.f90 \ - RADM2_Precision.o - $(FC) $(FOPT) -c $< - -RADM2_Monitor.o: RADM2_Monitor.f90 \ - RADM2_Precision.o - $(FC) $(FOPT) -c $< - -RADM2_Global.o: RADM2_Global.f90 \ - RADM2_Parameters.o RADM2_Precision.o - $(FC) $(FOPT) -c $< - -RADM2_Initialize.o: RADM2_Initialize.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -RADM2_Function.o: RADM2_Function.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -RADM2_Stochastic.o: RADM2_Stochastic.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -RADM2_JacobianSP.o: RADM2_JacobianSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -RADM2_Jacobian.o: RADM2_Jacobian.f90 $(GENOBJ) RADM2_JacobianSP.o - $(FC) $(FOPT) -c $< - -RADM2_LinearAlgebra.o: RADM2_LinearAlgebra.f90 $(GENOBJ) RADM2_JacobianSP.o - $(FC) $(FOPT) -c $< - -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# need Util in Rates -#RADM2_Rates.o: RADM2_Rates.f90 $(GENOBJ) -RADM2_Rates.o: RADM2_Rates.f90 $(GENOBJ) RADM2_Util.o -# ---------------------------------------------------- - $(FC) $(FOPT) -c $< - -RADM2_HessianSP.o: RADM2_HessianSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -RADM2_Hessian.o: RADM2_Hessian.f90 $(GENOBJ) RADM2_HessianSP.o - $(FC) $(FOPT) -c $< - -RADM2_StoichiomSP.o: RADM2_StoichiomSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -RADM2_Stoichiom.o: RADM2_Stoichiom.f90 $(GENOBJ) RADM2_StoichiomSP.o - $(FC) $(FOPT) -c $< - -RADM2_Util.o: RADM2_Util.f90 $(GENOBJ) RADM2_Monitor.o - $(FC) $(FOPT) -c $< - -RADM2_Main.o: RADM2_Main.f90 $(ALLOBJ) RADM2_Initialize.o RADM2_Model.o RADM2_Integrator.o - $(FC) $(FOPT) -c $< - -RADM2_Model.o: RADM2_Model.f90 $(ALLOBJ) RADM2_Integrator.o - $(FC) $(FOPT) -c $< - -RADM2_Integrator.o: RADM2_Integrator.f90 $(ALLOBJ) - $(FC) $(FOPT) -c $< diff --git a/boxmox/compiled_mechs/RADM2/RADM2.exe b/boxmox/compiled_mechs/RADM2/RADM2.exe deleted file mode 100755 index 77849908bc8750927cea2e47dc45e9a611553a9c..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/RADM2.exe and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/RADM2.kpp b/boxmox/compiled_mechs/RADM2/RADM2.kpp deleted file mode 100644 index 785be2e7fa5203ac3f3ffb8cb6a46708e745f65c..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADM2/RADM2.kpp +++ /dev/null @@ -1,7 +0,0 @@ -#MODEL RADM2 -#LANGUAGE Fortran90 -#DOUBLE ON -#INTEGRATOR rosenbrock -#DRIVER ../boxmox/boxmox -#JACOBIAN SPARSE_LU_ROW -#HESSIAN OFF diff --git a/boxmox/compiled_mechs/RADM2/RADM2.map b/boxmox/compiled_mechs/RADM2/RADM2.map deleted file mode 100644 index cc00700ae28d93319d8ccd256954a0ec40e18229..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADM2/RADM2.map +++ /dev/null @@ -1,91 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Map File with Human-Readable Information -! -! Generated by KPP-2.2.3 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 : RADM2.map -! Time : Thu Oct 8 08:22:27 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADM2_18938_BOXMOX -! Equation file : RADM2.kpp -! Output root filename : RADM2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -### Options ------------------------------------------- - -FUNCTION - AGGREGATE -JACOBIAN - SPARSE W/ ACCOUNT FOR LU DECOMPOSITION FILL-IN -DOUBLE - ON -REORDER - ON - -### Parameters ---------------------------------------- - -! NSPEC - Number of chemical species - INTEGER, PARAMETER :: NSPEC = 61 -! NVAR - Number of Variable species - INTEGER, PARAMETER :: NVAR = 59 -! NVARACT - Number of Active species - INTEGER, PARAMETER :: NVARACT = 55 -! NFIX - Number of Fixed species - INTEGER, PARAMETER :: NFIX = 2 -! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 156 -! NVARST - Starting of variables in conc. vect. - INTEGER, PARAMETER :: NVARST = 1 -! NFIXST - Starting of fixed in conc. vect. - INTEGER, PARAMETER :: NFIXST = 60 - -### Species ------------------------------------------- - -Variable species - 1 = SULF (n) 21 = OP1 (r) 41 = HC5P (r) - 2 = ORA1 (n) 22 = CSL (r) 42 = OP2 (r) - 3 = ORA2 (n) 23 = PAN (r) 43 = HCHO (r) - 4 = CO2 (n) 24 = OL2 (r) 44 = HC8P (r) - 5 = SO2 (r) 25 = HNO3 (r) 45 = TCO3 (r) - 6 = ETH (r) 26 = CO (r) 46 = O3 (r) - 7 = O1D (r) 27 = ISO (r) 47 = ONIT (r) - 8 = HC5 (r) 28 = OLT (r) 48 = ALD (r) - 9 = HC8 (r) 29 = OLI (r) 49 = OLIP (r) - 10 = TOL (r) 30 = DCB (r) 50 = KETP (r) - 11 = XYL (r) 31 = GLY (r) 51 = HO2 (r) - 12 = TPAN (r) 32 = XNO2 (r) 52 = MO2 (r) - 13 = HONO (r) 33 = KET (r) 53 = OH (r) - 14 = H2O2 (r) 34 = MGLY (r) 54 = NO3 (r) - 15 = N2O5 (r) 35 = TOLP (r) 55 = ACO3 (r) - 16 = HC3 (r) 36 = XYLP (r) 56 = HC3P (r) - 17 = CH4 (r) 37 = OLTP (r) 57 = ETHP (r) - 18 = PAA (r) 38 = OLN (r) 58 = NO (r) - 19 = O3P (r) 39 = XO2 (r) 59 = NO2 (r) - 20 = HNO4 (r) 40 = OL2P (r) - -Fixed species - 1 = H2O (r) 2 = M (r) - -### Subroutines --------------------------------------- - -SUBROUTINE Fun ( V, F, RCT, Vdot ) -SUBROUTINE Jac_SP ( V, F, RCT, JVS ) -SUBROUTINE Jac_SP_Vec ( JVS, UV, JUV ) -SUBROUTINE JacTR_SP_Vec ( JVS, UV, JTUV ) -SUBROUTINE KppSolve ( JVS, X ) -SUBROUTINE KppSolveTR ( JVS, X, XX ) -SUBROUTINE Initialize ( ) -SUBROUTINE Shuffle_user2kpp ( V_USER, V ) -SUBROUTINE Shuffle_kpp2user ( V, V_USER ) -SUBROUTINE Update_RCONST ( ) -SUBROUTINE Update_PHOTO ( ) -SUBROUTINE GetMass ( CL, Mass ) -SUBROUTINE ReactantProd ( V, F, ARP ) -SUBROUTINE JacReactantProd ( V, F, JVRP ) diff --git a/boxmox/compiled_mechs/RADM2/RADM2_Function.f90 b/boxmox/compiled_mechs/RADM2/RADM2_Function.f90 deleted file mode 100644 index ffb1cbb81b21ee9333e6a40c2ba839a9409d5908..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADM2/RADM2_Function.f90 +++ /dev/null @@ -1,312 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The ODE Function of Chemical Model File -! -! Generated by KPP-2.2.3 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 : RADM2_Function.f90 -! Time : Thu Oct 8 08:22:27 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADM2_18938_BOXMOX -! Equation file : RADM2.kpp -! Output root filename : RADM2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RADM2_Function - - USE RADM2_Parameters - IMPLICIT NONE - -! A - Rate for each equation - REAL(kind=dp) :: A(NREACT) - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Fun - time derivatives of variables - Agregate form -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! RCT - Rate constants (local) -! Vdot - Time derivative of variable species concentrations -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Fun ( V, F, RCT, Vdot ) - -! 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) -! Vdot - Time derivative of variable species concentrations - REAL(kind=dp) :: Vdot(NVAR) - - -! Computation of equation rates - A(1) = RCT(1)*V(59) - A(2) = RCT(2)*V(46) - A(3) = RCT(3)*V(46) - A(4) = RCT(4)*V(13) - A(5) = RCT(5)*V(25) - A(6) = RCT(6)*V(20) - A(7) = RCT(7)*V(54) - A(8) = RCT(8)*V(54) - A(9) = RCT(9)*V(14) - A(10) = RCT(10)*V(43) - A(11) = RCT(11)*V(43) - A(12) = RCT(12)*V(48) - A(13) = RCT(13)*V(21) - A(14) = RCT(14)*V(42) - A(15) = RCT(15)*V(18) - A(16) = RCT(16)*V(33) - A(17) = RCT(17)*V(31) - A(18) = RCT(18)*V(31) - A(19) = RCT(19)*V(34) - A(20) = RCT(20)*V(30) - A(21) = RCT(21)*V(47) - A(22) = RCT(22)*V(19)*F(2) - A(23) = RCT(23)*V(19)*V(59) - A(24) = RCT(24)*V(7)*F(2) - A(25) = RCT(25)*V(7)*F(1) - A(26) = RCT(26)*V(46)*V(58) - A(27) = RCT(27)*V(46)*V(53) - A(28) = RCT(28)*V(46)*V(51) - A(29) = RCT(29)*V(51)*V(58) - A(30) = RCT(30)*V(51)*V(59) - A(31) = RCT(31)*V(20) - A(32) = RCT(32)*V(51)*V(51) - A(33) = RCT(33)*V(51)*V(51)*F(1) - A(34) = RCT(34)*V(14)*V(53) - A(35) = RCT(35)*V(53)*V(58) - A(36) = RCT(36)*V(58)*V(58)*F(2) - A(37) = RCT(37)*V(46)*V(59) - A(38) = RCT(38)*V(54)*V(58) - A(39) = RCT(39)*V(54)*V(59) - A(40) = RCT(40)*V(51)*V(54) - A(41) = RCT(41)*V(54)*V(59) - A(42) = RCT(42)*V(15) - A(43) = RCT(43)*V(15) - A(44) = RCT(44)*V(53)*V(59) - A(45) = RCT(45)*V(25)*V(53) - A(46) = RCT(46)*V(20)*V(53) - A(47) = RCT(47)*V(51)*V(53) - A(48) = RCT(48)*V(5)*V(53) - A(49) = RCT(49)*V(26)*V(53) - A(50) = RCT(50)*V(17)*V(53) - A(51) = RCT(51)*V(6)*V(53) - A(52) = RCT(52)*V(16)*V(53) - A(53) = RCT(53)*V(8)*V(53) - A(54) = RCT(54)*V(9)*V(53) - A(55) = RCT(55)*V(24)*V(53) - A(56) = RCT(56)*V(28)*V(53) - A(57) = RCT(57)*V(29)*V(53) - A(58) = RCT(58)*V(10)*V(53) - A(59) = RCT(59)*V(11)*V(53) - A(60) = RCT(60)*V(22)*V(53) - A(61) = RCT(61)*V(43)*V(53) - A(62) = RCT(62)*V(48)*V(53) - A(63) = RCT(63)*V(33)*V(53) - A(64) = RCT(64)*V(31)*V(53) - A(65) = RCT(65)*V(34)*V(53) - A(66) = RCT(66)*V(30)*V(53) - A(67) = RCT(67)*V(21)*V(53) - A(68) = RCT(68)*V(42)*V(53) - A(69) = RCT(69)*V(18)*V(53) - A(70) = RCT(70)*V(23)*V(53) - A(71) = RCT(71)*V(47)*V(53) - A(72) = RCT(72)*V(27)*V(53) - A(73) = RCT(73)*V(55)*V(59) - A(74) = RCT(74)*V(23) - A(75) = RCT(75)*V(45)*V(59) - A(76) = RCT(76)*V(12) - A(77) = RCT(77)*V(52)*V(58) - A(78) = RCT(78)*V(56)*V(58) - A(79) = RCT(79)*V(41)*V(58) - A(80) = RCT(80)*V(44)*V(58) - A(81) = RCT(81)*V(40)*V(58) - A(82) = RCT(82)*V(37)*V(58) - A(83) = RCT(83)*V(49)*V(58) - A(84) = RCT(84)*V(55)*V(58) - A(85) = RCT(85)*V(45)*V(58) - A(86) = RCT(86)*V(35)*V(58) - A(87) = RCT(87)*V(36)*V(58) - A(88) = RCT(88)*V(57)*V(58) - A(89) = RCT(89)*V(50)*V(58) - A(90) = RCT(90)*V(38)*V(58) - A(91) = RCT(91)*V(43)*V(54) - A(92) = RCT(92)*V(48)*V(54) - A(93) = RCT(93)*V(31)*V(54) - A(94) = RCT(94)*V(34)*V(54) - A(95) = RCT(95)*V(30)*V(54) - A(96) = RCT(96)*V(22)*V(54) - A(97) = RCT(97)*V(24)*V(54) - A(98) = RCT(98)*V(28)*V(54) - A(99) = RCT(99)*V(29)*V(54) - A(100) = RCT(100)*V(27)*V(54) - A(101) = RCT(101)*V(24)*V(46) - A(102) = RCT(102)*V(28)*V(46) - A(103) = RCT(103)*V(29)*V(46) - A(104) = RCT(104)*V(27)*V(46) - A(105) = RCT(105)*V(51)*V(52) - A(106) = RCT(106)*V(51)*V(57) - A(107) = RCT(107)*V(51)*V(56) - A(108) = RCT(108)*V(41)*V(51) - A(109) = RCT(109)*V(44)*V(51) - A(110) = RCT(110)*V(40)*V(51) - A(111) = RCT(111)*V(37)*V(51) - A(112) = RCT(112)*V(49)*V(51) - A(113) = RCT(113)*V(50)*V(51) - A(114) = RCT(114)*V(51)*V(55) - A(115) = RCT(115)*V(35)*V(51) - A(116) = RCT(116)*V(36)*V(51) - A(117) = RCT(117)*V(45)*V(51) - A(118) = RCT(118)*V(38)*V(51) - A(119) = RCT(119)*V(52)*V(52) - A(120) = RCT(120)*V(52)*V(57) - A(121) = RCT(121)*V(52)*V(56) - A(122) = RCT(122)*V(41)*V(52) - A(123) = RCT(123)*V(44)*V(52) - A(124) = RCT(124)*V(40)*V(52) - A(125) = RCT(125)*V(37)*V(52) - A(126) = RCT(126)*V(49)*V(52) - A(127) = RCT(127)*V(50)*V(52) - A(128) = RCT(128)*V(52)*V(55) - A(129) = RCT(129)*V(35)*V(52) - A(130) = RCT(130)*V(36)*V(52) - A(131) = RCT(131)*V(45)*V(52) - A(132) = RCT(132)*V(55)*V(57) - A(133) = RCT(133)*V(55)*V(56) - A(134) = RCT(134)*V(41)*V(55) - A(135) = RCT(135)*V(44)*V(55) - A(136) = RCT(136)*V(40)*V(55) - A(137) = RCT(137)*V(37)*V(55) - A(138) = RCT(138)*V(49)*V(55) - A(139) = RCT(139)*V(50)*V(55) - A(140) = RCT(140)*V(55)*V(55) - A(141) = RCT(141)*V(35)*V(55) - A(142) = RCT(142)*V(36)*V(55) - A(143) = RCT(143)*V(45)*V(55) - A(144) = RCT(144)*V(39)*V(51) - A(145) = RCT(145)*V(39)*V(52) - A(146) = RCT(146)*V(39)*V(55) - A(147) = RCT(147)*V(39)*V(39) - A(148) = RCT(148)*V(39)*V(58) - A(149) = RCT(149)*V(32)*V(59) - A(150) = RCT(150)*V(32)*V(51) - A(151) = RCT(151)*V(32)*V(52) - A(152) = RCT(152)*V(32)*V(55) - A(153) = RCT(153)*V(32)*V(32) - A(154) = RCT(154)*V(38)*V(52) - A(155) = RCT(155)*V(38)*V(55) - A(156) = RCT(156)*V(38)*V(38) - -! Aggregate function - Vdot(1) = A(48) - Vdot(2) = 0.4*A(101)+0.2*A(102)+0.06*A(103)+0.2*A(104) - Vdot(3) = 0.2*A(102)+0.29*A(103)+0.2*A(104)+0.5*A(128)+0.5*A(131)+0.5*A(132)+0.5*A(133)+0.5*A(134)+0.5*A(135)+0.5& - &*A(136)+0.5*A(137)+0.5*A(138)+0.5*A(139)+0.5*A(155) - Vdot(4) = A(49) - Vdot(5) = -A(48) - Vdot(6) = -A(51) - Vdot(7) = A(2)-A(24)-A(25) - Vdot(8) = -A(53) - Vdot(9) = -A(54) - Vdot(10) = -A(58) - Vdot(11) = -A(59) - Vdot(12) = A(75)-A(76) - Vdot(13) = -A(4)+A(35) - Vdot(14) = -A(9)+A(32)+A(33)-A(34) - Vdot(15) = A(41)-A(42)-A(43) - Vdot(16) = -A(52) - Vdot(17) = -A(50)+0.06*A(102)+0.09*A(103) - Vdot(18) = -A(15)-A(69)+A(114) - Vdot(19) = A(1)+A(3)+A(8)-A(22)-A(23)+A(24) - Vdot(20) = -A(6)+A(30)-A(31)-A(46) - Vdot(21) = -A(13)-A(67)+A(105) - Vdot(22) = 0.25*A(58)+0.17*A(59)-A(60)-0.5*A(96) - Vdot(23) = -A(70)+A(73)-A(74) - Vdot(24) = -A(55)-A(97)-A(101) - Vdot(25) = -A(5)+A(40)+2*A(43)+A(44)-A(45)+A(91)+A(92)+A(93)+A(94)+A(95)+A(96) - Vdot(26) = A(10)+A(11)+A(12)+1.87*A(17)+1.55*A(18)+A(19)-A(49)+A(61)+2*A(64)+A(65)+0.95*A(85)+A(91)+2*A(93)+A(94)+0.42& - &*A(101)+0.33*A(102)+0.23*A(103)+0.33*A(104)+0.475*A(131)+0.95*A(143) - Vdot(27) = -A(72)-A(100)-A(104) - Vdot(28) = -A(56)-A(98)-A(102) - Vdot(29) = -A(57)-A(99)-A(103) - Vdot(30) = -A(20)-A(66)+0.7*A(86)+0.806*A(87)-A(95)+0.7*A(129)+0.806*A(130)+A(141)+A(142) - Vdot(31) = -A(17)-A(18)-A(64)+0.89*A(85)+0.16*A(86)-A(93)+0.16*A(129)+0.445*A(131)+0.2*A(141)+0.89*A(143) - Vdot(32) = A(96)-A(149)-A(150)-A(151)-A(152)-2*A(153) - Vdot(33) = -A(16)+0.8*A(21)+0.025*A(52)-A(63)+0.25*A(78)+0.69*A(79)+1.06*A(80)+0.1*A(83)+0.1*A(103)+0.6*A(121)+0.75& - &*A(122)+1.39*A(123)+0.55*A(126)+0.8*A(133)+0.86*A(134)+0.9*A(135)+0.55*A(138) - Vdot(34) = -A(19)-A(65)+0.11*A(85)+0.17*A(86)+0.45*A(87)+A(89)-A(94)+0.75*A(127)+0.17*A(129)+0.45*A(130)+0.055*A(131)& - &+A(139)+0.8*A(141)+A(142)+0.11*A(143) - Vdot(35) = 0.75*A(58)-A(86)-A(115)-A(129)-A(141) - Vdot(36) = 0.83*A(59)-A(87)-A(116)-A(130)-A(142) - Vdot(37) = A(56)+A(72)-A(82)-A(111)-A(125)-A(137) - Vdot(38) = -A(90)+A(97)+A(98)+A(99)+A(100)-A(118)-A(154)-A(155)-2*A(156) - Vdot(39) = 0.25*A(53)+0.75*A(54)+0.9*A(60)+A(70)+2*A(85)+A(131)+2*A(143)-A(144)-A(145)-A(146)-2*A(147)-A(148) - Vdot(40) = A(55)-A(81)-A(110)-A(124)-A(136) - Vdot(41) = A(53)-A(79)-A(108)-A(122)-A(134) - Vdot(42) = -A(14)-A(68)+A(106)+A(107)+A(108)+A(109)+A(110)+A(111)+A(112)+A(113)+A(115)+A(116)+A(117)+A(144)+A(150) - Vdot(43) = -A(10)-A(11)+A(13)+0.13*A(17)+0.45*A(18)+0.009*A(52)-A(61)+0.5*A(67)+A(70)+A(77)+0.09*A(78)+0.04*A(80)+1.6& - &*A(81)+A(82)+0.28*A(83)+A(90)-A(91)+A(101)+0.53*A(102)+0.18*A(103)+0.53*A(104)+1.5*A(119)+0.75*A(120)+0.75& - &*A(121)+0.77*A(122)+0.8*A(123)+1.55*A(124)+1.25*A(125)+0.89*A(126)+0.75*A(127)+A(128)+A(129)+A(130)+0.5& - &*A(131)+0.8*A(136)+0.5*A(137)+0.14*A(138)+A(145)+A(151)+1.75*A(154)+A(155)+2*A(156) - Vdot(44) = A(54)-A(80)-A(109)-A(123)-A(135) - Vdot(45) = A(20)+0.9*A(60)+A(66)-A(75)+A(76)-A(85)+A(95)-A(117)-A(131)-A(143) - Vdot(46) = -A(2)-A(3)+A(22)-A(26)-A(27)-A(28)-A(37)-A(101)-A(102)-A(103)-A(104) - Vdot(47) = -A(21)-A(71)+0.036*A(78)+0.08*A(79)+0.24*A(80)+A(118)+A(149) - Vdot(48) = -A(12)+A(14)+0.2*A(21)+0.075*A(52)-A(62)+0.5*A(68)+0.75*A(78)+0.38*A(79)+0.35*A(80)+0.2*A(81)+A(82)+1.45& - &*A(83)+A(88)+A(90)-A(92)+0.5*A(102)+0.72*A(103)+0.5*A(104)+0.75*A(120)+0.15*A(121)+0.41*A(122)+0.46*A(123)& - &+0.35*A(124)+0.75*A(125)+0.725*A(126)+A(132)+0.2*A(133)+0.14*A(134)+0.1*A(135)+0.6*A(136)+A(137)+0.725& - &*A(138)+A(154)+A(155)+2*A(156) - Vdot(49) = A(57)-A(83)-A(112)-A(126)-A(138) - Vdot(50) = A(63)-A(89)-A(113)-A(127)-A(139) - Vdot(51) = 0.65*A(6)+2*A(11)+A(12)+A(13)+A(14)+0.8*A(18)+A(19)+A(20)+A(21)+A(27)-A(28)-A(29)-A(30)+A(31)-2*A(32)-2& - &*A(33)+A(34)-A(40)-A(47)+A(48)+A(49)+0.17*A(52)+0.25*A(58)+0.17*A(59)+0.1*A(60)+A(61)+A(64)+A(77)+0.964& - &*A(78)+0.92*A(79)+0.76*A(80)+A(81)+A(82)+A(83)+0.92*A(85)+A(86)+A(87)+A(88)+A(89)+A(91)+A(93)+0.12*A(101)& - &+0.23*A(102)+0.26*A(103)+0.23*A(104)-A(105)-A(106)-A(107)-A(108)-A(109)-A(110)-A(111)-A(112)-A(113)-A(114)& - &-A(115)-A(116)-A(117)-A(118)+A(119)+A(120)+A(121)+A(122)+A(123)+A(124)+A(125)+A(126)+A(127)+0.5*A(128)+2& - &*A(129)+2*A(130)+0.46*A(131)+0.5*A(132)+0.5*A(133)+0.5*A(134)+0.5*A(135)+0.5*A(136)+0.5*A(137)+0.5*A(138)& - &+0.5*A(139)+A(141)+A(142)+0.92*A(143)-A(144)+A(145)-A(150)+A(151)+0.5*A(154) - Vdot(52) = A(12)+A(15)+A(50)+0.5*A(67)-A(77)+A(84)+0.22*A(102)+0.31*A(103)+0.22*A(104)-A(105)-2*A(119)-A(120)-A(121)& - &-A(122)-A(123)-A(124)-A(125)-A(126)-A(127)-0.5*A(128)-A(129)-A(130)-A(131)+0.5*A(132)+0.5*A(133)+0.5*A(134)& - &+0.5*A(135)+0.5*A(136)+0.5*A(137)+0.5*A(138)+0.5*A(139)+2*A(140)+A(141)+A(142)+A(143)-A(145)+A(146)-A(151)& - &+A(152)-A(154)+0.5*A(155) - Vdot(53) = A(4)+A(5)+0.35*A(6)+2*A(9)+A(13)+A(14)+A(15)+2*A(25)-A(27)+A(28)+A(29)-A(34)-A(35)-A(44)-A(45)-A(46)-A(47)& - &-A(48)-A(49)-A(50)-A(51)-A(52)-A(53)-A(54)-A(55)-A(56)-A(57)-A(58)-A(59)-1.9*A(60)-A(61)-A(62)-A(63)-A(64)& - &-A(65)-A(66)-0.5*A(67)-0.5*A(68)-A(69)-A(70)-A(71)-A(72)+0.1*A(102)+0.14*A(103)+0.1*A(104) - Vdot(54) = 0.35*A(6)-A(7)-A(8)+A(37)-A(38)-A(39)-A(40)-A(41)+A(42)+A(45)+A(70)-A(91)-A(92)-A(93)-A(94)-A(95)-A(96)& - &-A(97)-A(98)-A(99)-A(100) - Vdot(55) = A(16)+A(19)+A(62)+A(65)+A(69)-A(73)+A(74)-A(84)+0.05*A(85)+A(92)+A(94)-A(114)-A(128)+0.025*A(131)-A(132)& - &-A(133)-A(134)-A(135)-A(136)-A(137)-A(138)-A(139)-2*A(140)-A(141)-A(142)-0.95*A(143)-A(146)-A(152)-A(155) - Vdot(56) = 0.83*A(52)+0.5*A(68)+A(71)-A(78)-A(107)-A(121)-A(133) - Vdot(57) = A(16)+A(51)-A(88)-A(106)-A(120)-A(132) - Vdot(58) = A(1)+A(4)+A(7)+A(23)-A(26)-A(29)-A(35)-2*A(36)-A(38)+A(39)-A(77)-A(78)-A(79)-A(80)-A(81)-A(82)-A(83)-A(84)& - &-A(85)-A(86)-A(87)-A(88)-A(89)-A(90)-A(148) - Vdot(59) = -A(1)+A(5)+0.65*A(6)+A(8)+A(21)-A(23)+A(26)+A(29)-A(30)+A(31)+2*A(36)-A(37)+2*A(38)-A(41)+A(42)-A(44)+A(46)& - &+A(71)-A(73)+A(74)-A(75)+A(76)+A(77)+0.964*A(78)+0.92*A(79)+0.76*A(80)+A(81)+A(82)+A(83)+A(84)+A(85)+A(86)& - &+A(87)+A(88)+A(89)+2*A(90)+A(148)-A(149)+A(154)+A(155)+2*A(156) - -END SUBROUTINE Fun - -! End of Fun function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE RADM2_Function - diff --git a/boxmox/compiled_mechs/RADM2/RADM2_Function.o b/boxmox/compiled_mechs/RADM2/RADM2_Function.o deleted file mode 100644 index ee4493002c0e5a2e5261e85516bf2ee5f86be972..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/RADM2_Function.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/RADM2_Global.f90 b/boxmox/compiled_mechs/RADM2/RADM2_Global.f90 deleted file mode 100644 index 41625cdfd1cba12d6747ceab28253693c290dbca..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADM2/RADM2_Global.f90 +++ /dev/null @@ -1,128 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Global Data Module File -! -! Generated by KPP-2.2.3 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 : RADM2_Global.f90 -! Time : Thu Oct 8 08:22:27 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADM2_18938_BOXMOX -! Equation file : RADM2.kpp -! Output root filename : RADM2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RADM2_Global - - USE RADM2_Parameters, ONLY: dp, NSPEC, NVAR, NFIX, NREACT, LU_NONZERO - PUBLIC - SAVE - - -! Declaration of global variables - -! C - Concentration of all species - REAL(kind=dp) :: C(NSPEC) -! VAR - Concentrations of variable species (global) - REAL(kind=dp) :: VAR(NVAR) -! FIX - Concentrations of fixed species (global) - REAL(kind=dp) :: FIX(NFIX) -! VAR, FIX are chunks of array C - EQUIVALENCE( C(1),VAR(1) ) - EQUIVALENCE( C(60),FIX(1) ) -! RCONST - Rate constants (global) - REAL(kind=dp) :: RCONST(NREACT) -! TIME - Current integration time - REAL(kind=dp) :: TIME -! SUN - Sunlight intensity between [0,1] - REAL(kind=dp) :: SUN -! TEMP - Temperature - REAL(kind=dp) :: TEMP -! RTOLS - (scalar) Relative tolerance - REAL(kind=dp) :: RTOLS -! TSTART - Integration start time - REAL(kind=dp) :: TSTART -! TEND - Integration end time - REAL(kind=dp) :: TEND -! DT - Integration step - REAL(kind=dp) :: DT -! ATOL - Absolute tolerance - REAL(kind=dp) :: ATOL(NVAR) -! RTOL - Relative tolerance - REAL(kind=dp) :: RTOL(NVAR) -! STEPMIN - Lower bound for integration step - REAL(kind=dp) :: STEPMIN -! STEPMAX - Upper bound for integration step - REAL(kind=dp) :: STEPMAX -! CFACTOR - Conversion factor for concentration units - REAL(kind=dp) :: CFACTOR - -! INLINED global variable declarations - - - ! BOXMOX global variables - - ! Parameters - INTEGER, PARAMETER :: max_species_boxmox = 10000 ! maximum number of species - ! read in - INTEGER, PARAMETER :: max_jhash_boxmox = 10000 ! maximum hash value of - ! photolysis rate labels - - ! Configuration - LOGICAL :: lverbose ! verbose output? - LOGICAL :: llibrary ! library version? - - - ! State definition - REAL(KIND=dp) :: pres ! pressure [Pa] - ! temperature variable temp [K] defined in KPP already - REAL(KIND=dp) :: dxdydz(3), dxdydz_old(3) ! box dimensions (x,y,z) - ! [m] - - ! Turbulent mixing - INTEGER :: iturb ! type of mixing - INTEGER, PARAMETER :: TURB_OPT_NONE = 0, & ! no turbulent mixing - TURB_OPT_SPECIFIED = 1, & ! using specified Kturb - TURB_OPT_VOLUME = 2, & ! using volume changes - TURB_OPT_TRACER = 3 ! using tracer conc. - REAL(KIND=dp) :: Kturb ! eddy diffusivity [m2 s-1] - - ! Photolysis rates - REAL(KIND=dp) :: jvalues(max_jhash_boxmox) ! Photolysis rate [s-1] - - ! Aerosol - REAL(KIND=dp) :: AER_R, & ! particle radius [m] - AER_SAD ! surface area density - ! [m^2 m^-3] - - ! Steady-state modeling - LOGICAL :: lfix_nox ! fix total NOx? - REAL(kind=dp) :: initial_total_nox ! total NOx to fix - - - - ! global variables used by special rate constants of this mechanism - - ! air/water concentration (molecules/cm3) - REAL(KIND=dp) :: c_m, c_h2o - ! relative humidity - REAL(KIND=dp) :: rh - - REAL(KIND=dp) :: rc_n2o5 - - -! INLINED global variable declarations - - -END MODULE RADM2_Global - diff --git a/boxmox/compiled_mechs/RADM2/RADM2_Global.o b/boxmox/compiled_mechs/RADM2/RADM2_Global.o deleted file mode 100644 index 60d7661e3ed0018e947a5208321e37aa142f1a8c..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/RADM2_Global.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/RADM2_Initialize.f90 b/boxmox/compiled_mechs/RADM2/RADM2_Initialize.f90 deleted file mode 100644 index 5962ef4471f2a2df631e04bba78e9683d340671e..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADM2/RADM2_Initialize.f90 +++ /dev/null @@ -1,124 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Initialization File -! -! Generated by KPP-2.2.3 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 : RADM2_Initialize.f90 -! Time : Thu Oct 8 08:22:27 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADM2_18938_BOXMOX -! Equation file : RADM2.kpp -! Output root filename : RADM2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RADM2_Initialize - - USE RADM2_Parameters, ONLY: dp, NVAR, NFIX - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Initialize - function to initialize concentrations -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Initialize ( ) - - - USE RADM2_Global - - USE RADM2_Util - - INTEGER :: i - REAL(kind=dp) :: x - - CFACTOR = 1.000000e+00_dp - - x = (1.0E-9)*CFACTOR - DO i = 1, NVAR - VAR(i) = x - END DO - - x = (1.0E-9)*CFACTOR - DO i = 1, NFIX - FIX(i) = x - END DO - -! constant rate coefficients -! END constant rate coefficients - -! INLINED initializations - - - IF (.NOT. llibrary) THEN - - ! Write version number to VERSION file - CALL writeVersion() - - ! Initialization (time step, run length, etc.) happening - ! in namelist BOXMOX.nml. Read it! - CALL readConfig() - - ENDIF - - ! Check configuration values - CALL checkConfig() - - - - ! BOXMOX defaults for global variables - - ! Environment.csv - temp = 293.15 ! K - pres = 101325.0 ! Pa - dxdydz(:) = 1.0 ! m - - ! Aerosol.csv - AER_SAD = 0.0 ! m^2 m^-3 - AER_R = 1.0e-6 ! m - - ! Turbulent mixing - Kturb = 0.0 ! m2 s-1 - - - - ! 1E-03 * (1.0/28.97) * 6.022e23 * air density - c_m = 2.078702e+19 * 1.25 - - ! 1E-03 * (1.0/18.02) * 6.022e23 * air density, then times kg(water)/kg(air) - c_h2o = 3.341842e+19 * 1.25 * 0.010 - - ! relative humidity (not really used...) - rh = 0.5 - - ! n2o5 rate const - rc_n2o5 = 1e-30 - - -! End INLINED initializations - - -END SUBROUTINE Initialize - -! End of Initialize function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE RADM2_Initialize - diff --git a/boxmox/compiled_mechs/RADM2/RADM2_Initialize.o b/boxmox/compiled_mechs/RADM2/RADM2_Initialize.o deleted file mode 100644 index 33e2dc95616fa5bbc372dbd84f6a716001406ca7..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/RADM2_Initialize.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/RADM2_Integrator.f90 b/boxmox/compiled_mechs/RADM2/RADM2_Integrator.f90 deleted file mode 100644 index 46312a05e2493bc017faedc25db404502eeb535b..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADM2/RADM2_Integrator.f90 +++ /dev/null @@ -1,1365 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Numerical Integrator (Time-Stepping) File -! -! Generated by KPP-2.2.3 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 : RADM2_Integrator.f90 -! Time : Thu Oct 8 08:22:27 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADM2_18938_BOXMOX -! Equation file : RADM2.kpp -! Output root filename : RADM2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! INTEGRATE - Integrator routine -! Arguments : -! TIN - Start Time for Integration -! TOUT - End Time for Integration -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! -! Rosenbrock - Implementation of several Rosenbrock methods: ! -! * Ros2 ! -! * Ros3 ! -! * Ros4 ! -! * Rodas3 ! -! * Rodas4 ! -! By default the code employs the KPP sparse linear algebra routines ! -! Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK) ! -! ! -! (C) Adrian Sandu, August 2004 ! -! Virginia Polytechnic Institute and State University ! -! Contact: sandu@cs.vt.edu ! -! Revised by Philipp Miehe and Adrian Sandu, May 2006 ! ! -! This implementation is part of KPP - the Kinetic PreProcessor ! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! - -MODULE RADM2_Integrator - - USE RADM2_Parameters, ONLY: NVAR, NFIX, NSPEC, LU_NONZERO - USE RADM2_Global - IMPLICIT NONE - PUBLIC - SAVE - -!~~~> Statistics on the work performed by the Rosenbrock method - INTEGER, PARAMETER :: Nfun=1, Njac=2, Nstp=3, Nacc=4, & - Nrej=5, Ndec=6, Nsol=7, Nsng=8, & - Ntexit=1, Nhexit=2, Nhnew = 3 - -CONTAINS - -SUBROUTINE INTEGRATE( TIN, TOUT, & - ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U, IERR_U ) - - IMPLICIT NONE - - REAL(kind=dp), INTENT(IN) :: TIN ! Start Time - REAL(kind=dp), INTENT(IN) :: TOUT ! End Time - ! Optional input parameters and statistics - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - REAL(kind=dp), INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - REAL(kind=dp), INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: IERR_U - - REAL(kind=dp) :: RCNTRL(20), RSTATUS(20) - INTEGER :: ICNTRL(20), ISTATUS(20), IERR - - INTEGER, SAVE :: Ntotal = 0 - - ICNTRL(:) = 0 - RCNTRL(:) = 0.0_dp - ISTATUS(:) = 0 - RSTATUS(:) = 0.0_dp - - !~~~> fine-tune the integrator: - ICNTRL(1) = 0 ! 0 - non-autonomous, 1 - autonomous - ICNTRL(2) = 0 ! 0 - vector tolerances, 1 - scalars - - ! If optional parameters are given, and if they are >0, - ! then they overwrite default settings. - IF (PRESENT(ICNTRL_U)) THEN - WHERE(ICNTRL_U(:) > 0) ICNTRL(:) = ICNTRL_U(:) - END IF - IF (PRESENT(RCNTRL_U)) THEN - WHERE(RCNTRL_U(:) > 0) RCNTRL(:) = RCNTRL_U(:) - END IF - - - CALL Rosenbrock(NVAR,VAR,TIN,TOUT, & - ATOL,RTOL, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) - - !~~~> Debug option: show no of steps - ! Ntotal = Ntotal + ISTATUS(Nstp) - ! PRINT*,'NSTEPS=',ISTATUS(Nstp),' (',Ntotal,')',' O3=', VAR(ind_O3) - - STEPMIN = RSTATUS(Nhexit) - ! if optional parameters are given for output they - ! are updated with the return information - IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(:) - IF (PRESENT(RSTATUS_U)) RSTATUS_U(:) = RSTATUS(:) - IF (PRESENT(IERR_U)) IERR_U = IERR - -END SUBROUTINE INTEGRATE - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE Rosenbrock(N,Y,Tstart,Tend, & - AbsTol,RelTol, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Solves the system y'=F(t,y) using a Rosenbrock method defined by: -! -! G = 1/(H*gamma(1)) - Jac(t0,Y0) -! T_i = t0 + Alpha(i)*H -! Y_i = Y0 + \sum_{j=1}^{i-1} A(i,j)*K_j -! G * K_i = Fun( T_i, Y_i ) + \sum_{j=1}^S C(i,j)/H * K_j + -! gamma(i)*dF/dT(t0, Y0) -! Y1 = Y0 + \sum_{j=1}^S M(j)*K_j -! -! For details on Rosenbrock methods and their implementation consult: -! E. Hairer and G. Wanner -! "Solving ODEs II. Stiff and differential-algebraic problems". -! Springer series in computational mathematics, Springer-Verlag, 1996. -! The codes contained in the book inspired this implementation. -! -! (C) Adrian Sandu, August 2004 -! Virginia Polytechnic Institute and State University -! Contact: sandu@cs.vt.edu -! Revised by Philipp Miehe and Adrian Sandu, May 2006 -! This implementation is part of KPP - the Kinetic PreProcessor -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT ARGUMENTS: -! -!- Y(N) = vector of initial conditions (at T=Tstart) -!- [Tstart,Tend] = time range of integration -! (if Tstart>Tend the integration is performed backwards in time) -!- RelTol, AbsTol = user precribed accuracy -!- SUBROUTINE Fun( T, Y, Ydot ) = ODE function, -! returns Ydot = Y' = F(T,Y) -!- SUBROUTINE Jac( T, Y, Jcb ) = Jacobian of the ODE function, -! returns Jcb = dFun/dY -!- ICNTRL(1:20) = integer inputs parameters -!- RCNTRL(1:20) = real inputs parameters -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT ARGUMENTS: -! -!- Y(N) -> vector of final states (at T->Tend) -!- ISTATUS(1:20) -> integer output parameters -!- RSTATUS(1:20) -> real output parameters -!- IERR -> job status upon return -! success (positive value) or -! failure (negative value) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT PARAMETERS: -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -! ICNTRL(1) = 1: F = F(y) Independent of T (AUTONOMOUS) -! = 0: F = F(t,y) Depends on T (NON-AUTONOMOUS) -! -! ICNTRL(2) = 0: AbsTol, RelTol are N-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ICNTRL(3) -> selection of a particular Rosenbrock method -! = 0 : Rodas3 (default) -! = 1 : Ros2 -! = 2 : Ros3 -! = 3 : Ros4 -! = 4 : Rodas3 -! = 5 : Rodas4 -! -! ICNTRL(4) -> maximum number of integration steps -! For ICNTRL(4)=0) the default value of 100000 is used -! -! RCNTRL(1) -> Hmin, lower bound for the integration step size -! It is strongly recommended to keep Hmin = ZERO -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! RCNTRL(3) -> Hstart, starting value for the integration step size -! -! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! RCNTRL(5) -> FacMax, upper bound on step increase factor (default=6) -! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! -! OUTPUT ARGUMENTS: -! ----------------- -! -! T -> T value for which the solution has been computed -! (after successful return T=Tend). -! -! Y(N) -> Numerical solution at T -! -! IDID -> Reports on successfulness upon return: -! = 1 for success -! < 0 for error (value equals error code) -! -! ISTATUS(1) -> No. of function calls -! ISTATUS(2) -> No. of jacobian calls -! ISTATUS(3) -> No. of steps -! ISTATUS(4) -> No. of accepted steps -! ISTATUS(5) -> No. of rejected steps (except at very beginning) -! ISTATUS(6) -> No. of LU decompositions -! ISTATUS(7) -> No. of forward/backward substitutions -! ISTATUS(8) -> No. of singular matrix decompositions -! -! RSTATUS(1) -> Texit, the time corresponding to the -! computed Y upon return -! RSTATUS(2) -> Hexit, last accepted step before exit -! RSTATUS(3) -> Hnew, last predicted step (not yet taken) -! For multiple restarts, use Hnew as Hstart -! in the subsequent run -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RADM2_Parameters - USE RADM2_LinearAlgebra - IMPLICIT NONE - -!~~~> Arguments - INTEGER, INTENT(IN) :: N - REAL(kind=dp), INTENT(INOUT) :: Y(N) - REAL(kind=dp), INTENT(IN) :: Tstart,Tend - REAL(kind=dp), INTENT(IN) :: AbsTol(N),RelTol(N) - INTEGER, INTENT(IN) :: ICNTRL(20) - REAL(kind=dp), INTENT(IN) :: RCNTRL(20) - INTEGER, INTENT(INOUT) :: ISTATUS(20) - REAL(kind=dp), INTENT(INOUT) :: RSTATUS(20) - INTEGER, INTENT(OUT) :: IERR -!~~~> Parameters of the Rosenbrock method, up to 6 stages - INTEGER :: ros_S, rosMethod - INTEGER, PARAMETER :: RS2=1, RS3=2, RS4=3, RD3=4, RD4=5, RG3=6 - REAL(kind=dp) :: ros_A(15), ros_C(15), ros_M(6), ros_E(6), & - ros_Alpha(6), ros_Gamma(6), ros_ELO - LOGICAL :: ros_NewF(6) - CHARACTER(LEN=12) :: ros_Name -!~~~> Local variables - REAL(kind=dp) :: Roundoff, FacMin, FacMax, FacRej, FacSafe - REAL(kind=dp) :: Hmin, Hmax, Hstart - REAL(kind=dp) :: Texit - INTEGER :: i, UplimTol, Max_no_steps - LOGICAL :: Autonomous, VectorTol -!~~~> Parameters - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp - REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp - -!~~~> Initialize statistics - ISTATUS(1:8) = 0 - RSTATUS(1:3) = ZERO - -!~~~> Autonomous or time dependent ODE. Default is time dependent. - Autonomous = .NOT.(ICNTRL(1) == 0) - -!~~~> For Scalar tolerances (ICNTRL(2).NE.0) the code uses AbsTol(1) and RelTol(1) -! For Vector tolerances (ICNTRL(2) == 0) the code uses AbsTol(1:N) and RelTol(1:N) - IF (ICNTRL(2) == 0) THEN - VectorTol = .TRUE. - UplimTol = N - ELSE - VectorTol = .FALSE. - UplimTol = 1 - END IF - -!~~~> Initialize the particular Rosenbrock method selected - SELECT CASE (ICNTRL(3)) - CASE (1) - CALL Ros2 - CASE (2) - CALL Ros3 - CASE (3) - CALL Ros4 - CASE (0,4) - CALL Rodas3 - CASE (5) - CALL Rodas4 - CASE (6) - CALL Rang3 - CASE DEFAULT - PRINT * , 'Unknown Rosenbrock method: ICNTRL(3)=',ICNTRL(3) - CALL ros_ErrorMsg(-2,Tstart,ZERO,IERR) - RETURN - END SELECT - -!~~~> The maximum number of steps admitted - IF (ICNTRL(4) == 0) THEN - Max_no_steps = 200000 - ELSEIF (ICNTRL(4) > 0) THEN - Max_no_steps=ICNTRL(4) - ELSE - PRINT * ,'User-selected max no. of steps: ICNTRL(4)=',ICNTRL(4) - CALL ros_ErrorMsg(-1,Tstart,ZERO,IERR) - RETURN - END IF - -!~~~> Unit roundoff (1+Roundoff>1) - Roundoff = WLAMCH('E') - -!~~~> Lower bound on the step size: (positive value) - IF (RCNTRL(1) == ZERO) THEN - Hmin = ZERO - ELSEIF (RCNTRL(1) > ZERO) THEN - Hmin = RCNTRL(1) - ELSE - PRINT * , 'User-selected Hmin: RCNTRL(1)=', RCNTRL(1) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Upper bound on the step size: (positive value) - IF (RCNTRL(2) == ZERO) THEN - Hmax = ABS(Tend-Tstart) - ELSEIF (RCNTRL(2) > ZERO) THEN - Hmax = MIN(ABS(RCNTRL(2)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hmax: RCNTRL(2)=', RCNTRL(2) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Starting step size: (positive value) - IF (RCNTRL(3) == ZERO) THEN - Hstart = MAX(Hmin,DeltaMin) - ELSEIF (RCNTRL(3) > ZERO) THEN - Hstart = MIN(ABS(RCNTRL(3)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hstart: RCNTRL(3)=', RCNTRL(3) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Step size can be changed s.t. FacMin < Hnew/Hold < FacMax - IF (RCNTRL(4) == ZERO) THEN - FacMin = 0.2_dp - ELSEIF (RCNTRL(4) > ZERO) THEN - FacMin = RCNTRL(4) - ELSE - PRINT * , 'User-selected FacMin: RCNTRL(4)=', RCNTRL(4) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF - IF (RCNTRL(5) == ZERO) THEN - FacMax = 6.0_dp - ELSEIF (RCNTRL(5) > ZERO) THEN - FacMax = RCNTRL(5) - ELSE - PRINT * , 'User-selected FacMax: RCNTRL(5)=', RCNTRL(5) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacRej: Factor to decrease step after 2 succesive rejections - IF (RCNTRL(6) == ZERO) THEN - FacRej = 0.1_dp - ELSEIF (RCNTRL(6) > ZERO) THEN - FacRej = RCNTRL(6) - ELSE - PRINT * , 'User-selected FacRej: RCNTRL(6)=', RCNTRL(6) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacSafe: Safety Factor in the computation of new step size - IF (RCNTRL(7) == ZERO) THEN - FacSafe = 0.9_dp - ELSEIF (RCNTRL(7) > ZERO) THEN - FacSafe = RCNTRL(7) - ELSE - PRINT * , 'User-selected FacSafe: RCNTRL(7)=', RCNTRL(7) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Check if tolerances are reasonable - DO i=1,UplimTol - IF ( (AbsTol(i) <= ZERO) .OR. (RelTol(i) <= 10.0_dp*Roundoff) & - .OR. (RelTol(i) >= 1.0_dp) ) THEN - PRINT * , ' AbsTol(',i,') = ',AbsTol(i) - PRINT * , ' RelTol(',i,') = ',RelTol(i) - CALL ros_ErrorMsg(-5,Tstart,ZERO,IERR) - RETURN - END IF - END DO - - -!~~~> CALL Rosenbrock method - CALL ros_Integrator(Y, Tstart, Tend, Texit, & - AbsTol, RelTol, & -! Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -! Error indicator - IERR) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -CONTAINS ! SUBROUTINES internal to Rosenbrock -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_ErrorMsg(Code,T,H,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - REAL(kind=dp), INTENT(IN) :: T, H - INTEGER, INTENT(IN) :: Code - INTEGER, INTENT(OUT) :: IERR - - IERR = Code - PRINT * , & - 'Forced exit from Rosenbrock due to the following error:' - - SELECT CASE (Code) - CASE (-1) - PRINT * , '--> Improper value for maximal no of steps' - CASE (-2) - PRINT * , '--> Selected Rosenbrock method not implemented' - CASE (-3) - PRINT * , '--> Hmin/Hmax/Hstart must be positive' - CASE (-4) - PRINT * , '--> FacMin/FacMax/FacRej must be positive' - CASE (-5) - PRINT * , '--> Improper tolerance values' - CASE (-6) - PRINT * , '--> No of steps exceeds maximum bound' - CASE (-7) - PRINT * , '--> Step size too small: T + 10*H = T', & - ' or H < Roundoff' - CASE (-8) - PRINT * , '--> Matrix is repeatedly singular' - CASE DEFAULT - PRINT *, 'Unknown Error code: ', Code - END SELECT - - PRINT *, "T=", T, "and H=", H - - END SUBROUTINE ros_ErrorMsg - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Integrator (Y, Tstart, Tend, T, & - AbsTol, RelTol, & -!~~~> Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -!~~~> Error indicator - IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the implementation of a generic Rosenbrock method -! defined by ros_S (no of stages) -! and its coefficients ros_{A,C,M,E,Alpha,Gamma} -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - -!~~~> Input: the initial condition at Tstart; Output: the solution at T - REAL(kind=dp), INTENT(INOUT) :: Y(N) -!~~~> Input: integration interval - REAL(kind=dp), INTENT(IN) :: Tstart,Tend -!~~~> Output: time at which the solution is returned (T=Tend if success) - REAL(kind=dp), INTENT(OUT) :: T -!~~~> Input: tolerances - REAL(kind=dp), INTENT(IN) :: AbsTol(N), RelTol(N) -!~~~> Input: integration parameters - LOGICAL, INTENT(IN) :: Autonomous, VectorTol - REAL(kind=dp), INTENT(IN) :: Hstart, Hmin, Hmax - INTEGER, INTENT(IN) :: Max_no_steps - REAL(kind=dp), INTENT(IN) :: Roundoff, FacMin, FacMax, FacRej, FacSafe -!~~~> Output: Error indicator - INTEGER, INTENT(OUT) :: IERR -! ~~~~ Local variables - REAL(kind=dp) :: Ynew(N), Fcn0(N), Fcn(N) - REAL(kind=dp) :: K(N*ros_S), dFdT(N) -#ifdef FULL_ALGEBRA - REAL(kind=dp) :: Jac0(N,N), Ghimj(N,N) -#else - REAL(kind=dp) :: Jac0(LU_NONZERO), Ghimj(LU_NONZERO) -#endif - REAL(kind=dp) :: H, Hnew, HC, HG, Fac, Tau - REAL(kind=dp) :: Err, Yerr(N) - INTEGER :: Pivot(N), Direction, ioffset, j, istage - LOGICAL :: RejectLastH, RejectMoreH, Singular -!~~~> Local parameters - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp - REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp -!~~~> Locally called functions -! REAL(kind=dp) WLAMCH -! EXTERNAL WLAMCH -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~> Initial preparations - T = Tstart - RSTATUS(Nhexit) = ZERO - H = MIN( MAX(ABS(Hmin),ABS(Hstart)) , ABS(Hmax) ) - IF (ABS(H) <= 10.0_dp*Roundoff) H = DeltaMin - - IF (Tend >= Tstart) THEN - Direction = +1 - ELSE - Direction = -1 - END IF - H = Direction*H - - RejectLastH=.FALSE. - RejectMoreH=.FALSE. - -!~~~> Time loop begins below - -TimeLoop: DO WHILE ( (Direction > 0).AND.((T-Tend)+Roundoff <= ZERO) & - .OR. (Direction < 0).AND.((Tend-T)+Roundoff <= ZERO) ) - - IF ( ISTATUS(Nstp) > Max_no_steps ) THEN ! Too many steps - CALL ros_ErrorMsg(-6,T,H,IERR) - RETURN - END IF - IF ( ((T+0.1_dp*H) == T).OR.(H <= Roundoff) ) THEN ! Step size too small - CALL ros_ErrorMsg(-7,T,H,IERR) - RETURN - END IF - -!~~~> Limit H if necessary to avoid going beyond Tend - H = MIN(H,ABS(Tend-T)) - -!~~~> Compute the function at current time - CALL FunTemplate(T,Y,Fcn0) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - -!~~~> Compute the function derivative with respect to T - IF (.NOT.Autonomous) THEN - CALL ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) - END IF - -!~~~> Compute the Jacobian at current time - CALL JacTemplate(T,Y,Jac0) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - -!~~~> Repeat step calculation until current step accepted -UntilAccepted: DO - - CALL ros_PrepareMatrix(H,Direction,ros_Gamma(1), & - Jac0,Ghimj,Pivot,Singular) - IF (Singular) THEN ! More than 5 consecutive failed decompositions - CALL ros_ErrorMsg(-8,T,H,IERR) - RETURN - END IF - -!~~~> Compute the stages -Stage: DO istage = 1, ros_S - - ! Current istage offset. Current istage vector is K(ioffset+1:ioffset+N) - ioffset = N*(istage-1) - - ! For the 1st istage the function has been computed previously - IF ( istage == 1 ) THEN - !slim: CALL WCOPY(N,Fcn0,1,Fcn,1) - Fcn(1:N) = Fcn0(1:N) - ! istage>1 and a new function evaluation is needed at the current istage - ELSEIF ( ros_NewF(istage) ) THEN - !slim: CALL WCOPY(N,Y,1,Ynew,1) - Ynew(1:N) = Y(1:N) - DO j = 1, istage-1 - CALL WAXPY(N,ros_A((istage-1)*(istage-2)/2+j), & - K(N*(j-1)+1),1,Ynew,1) - END DO - Tau = T + ros_Alpha(istage)*Direction*H - CALL FunTemplate(Tau,Ynew,Fcn) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - END IF ! if istage == 1 elseif ros_NewF(istage) - !slim: CALL WCOPY(N,Fcn,1,K(ioffset+1),1) - K(ioffset+1:ioffset+N) = Fcn(1:N) - DO j = 1, istage-1 - HC = ros_C((istage-1)*(istage-2)/2+j)/(Direction*H) - CALL WAXPY(N,HC,K(N*(j-1)+1),1,K(ioffset+1),1) - END DO - IF ((.NOT. Autonomous).AND.(ros_Gamma(istage).NE.ZERO)) THEN - HG = Direction*H*ros_Gamma(istage) - CALL WAXPY(N,HG,dFdT,1,K(ioffset+1),1) - END IF - CALL ros_Solve(Ghimj, Pivot, K(ioffset+1)) - - END DO Stage - - -!~~~> Compute the new solution - !slim: CALL WCOPY(N,Y,1,Ynew,1) - Ynew(1:N) = Y(1:N) - DO j=1,ros_S - CALL WAXPY(N,ros_M(j),K(N*(j-1)+1),1,Ynew,1) - END DO - -!~~~> Compute the error estimation - !slim: CALL WSCAL(N,ZERO,Yerr,1) - Yerr(1:N) = ZERO - DO j=1,ros_S - CALL WAXPY(N,ros_E(j),K(N*(j-1)+1),1,Yerr,1) - END DO - Err = ros_ErrorNorm ( Y, Ynew, Yerr, AbsTol, RelTol, VectorTol ) - -!~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax - Fac = MIN(FacMax,MAX(FacMin,FacSafe/Err**(ONE/ros_ELO))) - Hnew = H*Fac - -!~~~> Check the error magnitude and adjust step size - ISTATUS(Nstp) = ISTATUS(Nstp) + 1 - IF ( (Err <= ONE).OR.(H <= Hmin) ) THEN !~~~> Accept step - ISTATUS(Nacc) = ISTATUS(Nacc) + 1 - !slim: CALL WCOPY(N,Ynew,1,Y,1) - Y(1:N) = Ynew(1:N) - T = T + Direction*H - Hnew = MAX(Hmin,MIN(Hnew,Hmax)) - IF (RejectLastH) THEN ! No step size increase after a rejected step - Hnew = MIN(Hnew,H) - END IF - RSTATUS(Nhexit) = H - RSTATUS(Nhnew) = Hnew - RSTATUS(Ntexit) = T - RejectLastH = .FALSE. - RejectMoreH = .FALSE. - H = Hnew - EXIT UntilAccepted ! EXIT THE LOOP: WHILE STEP NOT ACCEPTED - ELSE !~~~> Reject step - IF (RejectMoreH) THEN - Hnew = H*FacRej - END IF - RejectMoreH = RejectLastH - RejectLastH = .TRUE. - H = Hnew - IF (ISTATUS(Nacc) >= 1) ISTATUS(Nrej) = ISTATUS(Nrej) + 1 - END IF ! Err <= 1 - - END DO UntilAccepted - - END DO TimeLoop - -!~~~> Succesful exit - IERR = 1 !~~~> The integration was successful - - END SUBROUTINE ros_Integrator - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - REAL(kind=dp) FUNCTION ros_ErrorNorm ( Y, Ynew, Yerr, & - AbsTol, RelTol, VectorTol ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Computes the "scaled norm" of the error vector Yerr -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -! Input arguments - REAL(kind=dp), INTENT(IN) :: Y(N), Ynew(N), & - Yerr(N), AbsTol(N), RelTol(N) - LOGICAL, INTENT(IN) :: VectorTol -! Local variables - REAL(kind=dp) :: Err, Scale, Ymax - INTEGER :: i - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp - - Err = ZERO - DO i=1,N - Ymax = MAX(ABS(Y(i)),ABS(Ynew(i))) - IF (VectorTol) THEN - Scale = AbsTol(i)+RelTol(i)*Ymax - ELSE - Scale = AbsTol(1)+RelTol(1)*Ymax - END IF - Err = Err+(Yerr(i)/Scale)**2 - END DO - Err = SQRT(Err/N) - - ros_ErrorNorm = MAX(Err,1.0d-10) - - END FUNCTION ros_ErrorNorm - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> The time partial derivative of the function by finite differences -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -!~~~> Input arguments - REAL(kind=dp), INTENT(IN) :: T, Roundoff, Y(N), Fcn0(N) -!~~~> Output arguments - REAL(kind=dp), INTENT(OUT) :: dFdT(N) -!~~~> Local variables - REAL(kind=dp) :: Delta - REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, DeltaMin = 1.0E-6_dp - - Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T)) - CALL FunTemplate(T+Delta,Y,dFdT) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - CALL WAXPY(N,(-ONE),Fcn0,1,dFdT,1) - CALL WSCAL(N,(ONE/Delta),dFdT,1) - - END SUBROUTINE ros_FunTimeDerivative - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_PrepareMatrix ( H, Direction, gam, & - Jac0, Ghimj, Pivot, Singular ) -! --- --- --- --- --- --- --- --- --- --- --- --- --- -! Prepares the LHS matrix for stage calculations -! 1. Construct Ghimj = 1/(H*ham) - Jac0 -! "(Gamma H) Inverse Minus Jacobian" -! 2. Repeat LU decomposition of Ghimj until successful. -! -half the step size if LU decomposition fails and retry -! -exit after 5 consecutive fails -! --- --- --- --- --- --- --- --- --- --- --- --- --- - IMPLICIT NONE - -!~~~> Input arguments -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(IN) :: Jac0(N,N) -#else - REAL(kind=dp), INTENT(IN) :: Jac0(LU_NONZERO) -#endif - REAL(kind=dp), INTENT(IN) :: gam - INTEGER, INTENT(IN) :: Direction -!~~~> Output arguments -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(OUT) :: Ghimj(N,N) -#else - REAL(kind=dp), INTENT(OUT) :: Ghimj(LU_NONZERO) -#endif - LOGICAL, INTENT(OUT) :: Singular - INTEGER, INTENT(OUT) :: Pivot(N) -!~~~> Inout arguments - REAL(kind=dp), INTENT(INOUT) :: H ! step size is decreased when LU fails -!~~~> Local variables - INTEGER :: i, ISING, Nconsecutive - REAL(kind=dp) :: ghinv - REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, HALF = 0.5_dp - - Nconsecutive = 0 - Singular = .TRUE. - - DO WHILE (Singular) - -!~~~> Construct Ghimj = 1/(H*gam) - Jac0 -#ifdef FULL_ALGEBRA - !slim: CALL WCOPY(N*N,Jac0,1,Ghimj,1) - !slim: CALL WSCAL(N*N,(-ONE),Ghimj,1) - Ghimj = -Jac0 - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(i,i) = Ghimj(i,i)+ghinv - END DO -#else - !slim: CALL WCOPY(LU_NONZERO,Jac0,1,Ghimj,1) - !slim: CALL WSCAL(LU_NONZERO,(-ONE),Ghimj,1) - Ghimj(1:LU_NONZERO) = -Jac0(1:LU_NONZERO) - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(LU_DIAG(i)) = Ghimj(LU_DIAG(i))+ghinv - END DO -#endif -!~~~> Compute LU decomposition - CALL ros_Decomp( Ghimj, Pivot, ISING ) - IF (ISING == 0) THEN -!~~~> If successful done - Singular = .FALSE. - ELSE ! ISING .ne. 0 -!~~~> If unsuccessful half the step size; if 5 consecutive fails then return - ISTATUS(Nsng) = ISTATUS(Nsng) + 1 - Nconsecutive = Nconsecutive+1 - Singular = .TRUE. - PRINT*,'Warning: LU Decomposition returned ISING = ',ISING - IF (Nconsecutive <= 5) THEN ! Less than 5 consecutive failed decompositions - H = H*HALF - ELSE ! More than 5 consecutive failed decompositions - RETURN - END IF ! Nconsecutive - END IF ! ISING - - END DO ! WHILE Singular - - END SUBROUTINE ros_PrepareMatrix - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Decomp( A, Pivot, ISING ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the LU decomposition -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Inout variables -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(INOUT) :: A(N,N) -#else - REAL(kind=dp), INTENT(INOUT) :: A(LU_NONZERO) -#endif -!~~~> Output variables - INTEGER, INTENT(OUT) :: Pivot(N), ISING - -#ifdef FULL_ALGEBRA - CALL DGETRF( N, N, A, N, Pivot, ISING ) -#else - CALL KppDecomp ( A, ISING ) - Pivot(1) = 1 -#endif - ISTATUS(Ndec) = ISTATUS(Ndec) + 1 - - END SUBROUTINE ros_Decomp - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Solve( A, Pivot, b ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the forward/backward substitution (using pre-computed LU decomposition) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Input variables -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(IN) :: A(N,N) - INTEGER :: ISING -#else - REAL(kind=dp), INTENT(IN) :: A(LU_NONZERO) -#endif - INTEGER, INTENT(IN) :: Pivot(N) -!~~~> InOut variables - REAL(kind=dp), INTENT(INOUT) :: b(N) - -#ifdef FULL_ALGEBRA - CALL DGETRS( 'N', N , 1, A, N, Pivot, b, N, ISING ) - IF ( Info < 0 ) THEN - PRINT*,"Error in DGETRS. ISING=",ISING - END IF -#else - CALL KppSolve( A, b ) -#endif - - ISTATUS(Nsol) = ISTATUS(Nsol) + 1 - - END SUBROUTINE ros_Solve - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 2 stages, order 2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - DOUBLE PRECISION g - - g = 1.0_dp + 1.0_dp/SQRT(2.0_dp) - rosMethod = RS2 -!~~~> Name of the method - ros_Name = 'ROS-2' -!~~~> Number of stages - ros_S = 2 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = (1.0_dp)/g - ros_C(1) = (-2.0_dp)/g -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1)= (3.0_dp)/(2.0_dp*g) - ros_M(2)= (1.0_dp)/(2.0_dp*g) -! E_i = Coefficients for error estimator - ros_E(1) = 1.0_dp/(2.0_dp*g) - ros_E(2) = 1.0_dp/(2.0_dp*g) -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus one - ros_ELO = 2.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 1.0_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = g - ros_Gamma(2) =-g - - END SUBROUTINE Ros2 - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 3 stages, order 3, 2 function evaluations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - rosMethod = RS3 -!~~~> Name of the method - ros_Name = 'ROS-3' -!~~~> Number of stages - ros_S = 3 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1)= 1.0_dp - ros_A(2)= 1.0_dp - ros_A(3)= 0.0_dp - - ros_C(1) = -0.10156171083877702091975600115545E+01_dp - ros_C(2) = 0.40759956452537699824805835358067E+01_dp - ros_C(3) = 0.92076794298330791242156818474003E+01_dp -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.1E+01_dp - ros_M(2) = 0.61697947043828245592553615689730E+01_dp - ros_M(3) = -0.42772256543218573326238373806514_dp -! E_i = Coefficients for error estimator - ros_E(1) = 0.5_dp - ros_E(2) = -0.29079558716805469821718236208017E+01_dp - ros_E(3) = 0.22354069897811569627360909276199_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1)= 0.0_dp - ros_Alpha(2)= 0.43586652150845899941601945119356_dp - ros_Alpha(3)= 0.43586652150845899941601945119356_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1)= 0.43586652150845899941601945119356_dp - ros_Gamma(2)= 0.24291996454816804366592249683314_dp - ros_Gamma(3)= 0.21851380027664058511513169485832E+01_dp - - END SUBROUTINE Ros3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! L-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 4 STAGES -! L-STABLE EMBEDDED ROSENBROCK METHOD OF ORDER 3 -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1990) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RS4 -!~~~> Name of the method - ros_Name = 'ROS-4' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.2000000000000000E+01_dp - ros_A(2) = 0.1867943637803922E+01_dp - ros_A(3) = 0.2344449711399156_dp - ros_A(4) = ros_A(2) - ros_A(5) = ros_A(3) - ros_A(6) = 0.0_dp - - ros_C(1) =-0.7137615036412310E+01_dp - ros_C(2) = 0.2580708087951457E+01_dp - ros_C(3) = 0.6515950076447975_dp - ros_C(4) =-0.2137148994382534E+01_dp - ros_C(5) =-0.3214669691237626_dp - ros_C(6) =-0.6949742501781779_dp -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.2255570073418735E+01_dp - ros_M(2) = 0.2870493262186792_dp - ros_M(3) = 0.4353179431840180_dp - ros_M(4) = 0.1093502252409163E+01_dp -!~~~> E_i = Coefficients for error estimator - ros_E(1) =-0.2815431932141155_dp - ros_E(2) =-0.7276199124938920E-01_dp - ros_E(3) =-0.1082196201495311_dp - ros_E(4) =-0.1093502252409163E+01_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 0.1145640000000000E+01_dp - ros_Alpha(3) = 0.6552168638155900_dp - ros_Alpha(4) = ros_Alpha(3) -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5728200000000000_dp - ros_Gamma(2) =-0.1769193891319233E+01_dp - ros_Gamma(3) = 0.7592633437920482_dp - ros_Gamma(4) =-0.1049021087100450_dp - - END SUBROUTINE Ros4 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- A STIFFLY-STABLE METHOD, 4 stages, order 3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD3 -!~~~> Name of the method - ros_Name = 'RODAS-3' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.0_dp - ros_A(2) = 2.0_dp - ros_A(3) = 0.0_dp - ros_A(4) = 2.0_dp - ros_A(5) = 0.0_dp - ros_A(6) = 1.0_dp - - ros_C(1) = 4.0_dp - ros_C(2) = 1.0_dp - ros_C(3) =-1.0_dp - ros_C(4) = 1.0_dp - ros_C(5) =-1.0_dp - ros_C(6) =-(8.0_dp/3.0_dp) - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .FALSE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 2.0_dp - ros_M(2) = 0.0_dp - ros_M(3) = 1.0_dp - ros_M(4) = 1.0_dp -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0_dp - ros_E(2) = 0.0_dp - ros_E(3) = 0.0_dp - ros_E(4) = 1.0_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 0.0_dp - ros_Alpha(3) = 1.0_dp - ros_Alpha(4) = 1.0_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5_dp - ros_Gamma(2) = 1.5_dp - ros_Gamma(3) = 0.0_dp - ros_Gamma(4) = 0.0_dp - - END SUBROUTINE Rodas3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 6 STAGES -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1996) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD4 -!~~~> Name of the method - ros_Name = 'RODAS-4' -!~~~> Number of stages - ros_S = 6 - -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.000_dp - ros_Alpha(2) = 0.386_dp - ros_Alpha(3) = 0.210_dp - ros_Alpha(4) = 0.630_dp - ros_Alpha(5) = 1.000_dp - ros_Alpha(6) = 1.000_dp - -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.2500000000000000_dp - ros_Gamma(2) =-0.1043000000000000_dp - ros_Gamma(3) = 0.1035000000000000_dp - ros_Gamma(4) =-0.3620000000000023E-01_dp - ros_Gamma(5) = 0.0_dp - ros_Gamma(6) = 0.0_dp - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.1544000000000000E+01_dp - ros_A(2) = 0.9466785280815826_dp - ros_A(3) = 0.2557011698983284_dp - ros_A(4) = 0.3314825187068521E+01_dp - ros_A(5) = 0.2896124015972201E+01_dp - ros_A(6) = 0.9986419139977817_dp - ros_A(7) = 0.1221224509226641E+01_dp - ros_A(8) = 0.6019134481288629E+01_dp - ros_A(9) = 0.1253708332932087E+02_dp - ros_A(10) =-0.6878860361058950_dp - ros_A(11) = ros_A(7) - ros_A(12) = ros_A(8) - ros_A(13) = ros_A(9) - ros_A(14) = ros_A(10) - ros_A(15) = 1.0_dp - - ros_C(1) =-0.5668800000000000E+01_dp - ros_C(2) =-0.2430093356833875E+01_dp - ros_C(3) =-0.2063599157091915_dp - ros_C(4) =-0.1073529058151375_dp - ros_C(5) =-0.9594562251023355E+01_dp - ros_C(6) =-0.2047028614809616E+02_dp - ros_C(7) = 0.7496443313967647E+01_dp - ros_C(8) =-0.1024680431464352E+02_dp - ros_C(9) =-0.3399990352819905E+02_dp - ros_C(10) = 0.1170890893206160E+02_dp - ros_C(11) = 0.8083246795921522E+01_dp - ros_C(12) =-0.7981132988064893E+01_dp - ros_C(13) =-0.3152159432874371E+02_dp - ros_C(14) = 0.1631930543123136E+02_dp - ros_C(15) =-0.6058818238834054E+01_dp - -!~~~> M_i = Coefficients for new step solution - ros_M(1) = ros_A(7) - ros_M(2) = ros_A(8) - ros_M(3) = ros_A(9) - ros_M(4) = ros_A(10) - ros_M(5) = 1.0_dp - ros_M(6) = 1.0_dp - -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0_dp - ros_E(2) = 0.0_dp - ros_E(3) = 0.0_dp - ros_E(4) = 0.0_dp - ros_E(5) = 0.0_dp - ros_E(6) = 1.0_dp - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - ros_NewF(5) = .TRUE. - ros_NewF(6) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0_dp - - END SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rang3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE W METHOD OF ORDER 3, WITH 4 STAGES -! -! J. RANG and L. ANGERMANN -! NEW ROSENBROCK W-METHODS OF ORDER 3 -! FOR PARTIAL DIFFERENTIAL ALGEBRAIC -! EQUATIONS OF INDEX 1 -! BIT Numerical Mathematics (2005) 45: 761-787 -! DOI: 10.1007/s10543-005-0035-y -! Table 4.1-4.2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RG3 -!~~~> Name of the method - ros_Name = 'RANG-3' -!~~~> Number of stages - ros_S = 4 - - ros_A(1) = 5.09052051067020d+00; - ros_A(2) = 5.09052051067020d+00; - ros_A(3) = 0.0d0; - ros_A(4) = 4.97628111010787d+00; - ros_A(5) = 2.77268164715849d-02; - ros_A(6) = 2.29428036027904d-01; - - ros_C(1) = -1.16790812312283d+01; - ros_C(2) = -1.64057326467367d+01; - ros_C(3) = -2.77268164715850d-01; - ros_C(4) = -8.38103960500476d+00; - ros_C(5) = -8.48328409199343d-01; - ros_C(6) = 2.87009860433106d-01; - - ros_M(1) = 5.22582761233094d+00; - ros_M(2) = -5.56971148154165d-01; - ros_M(3) = 3.57979469353645d-01; - ros_M(4) = 1.72337398521064d+00; - - ros_E(1) = -5.16845212784040d+00; - ros_E(2) = -1.26351942603842d+00; - ros_E(3) = -1.11022302462516d-16; - ros_E(4) = 2.22044604925031d-16; - - ros_Alpha(1) = 0.0d00; - ros_Alpha(2) = 2.21878746765329d+00; - ros_Alpha(3) = 2.21878746765329d+00; - ros_Alpha(4) = 1.55392337535788d+00; - - ros_Gamma(1) = 4.35866521508459d-01; - ros_Gamma(2) = -1.78292094614483d+00; - ros_Gamma(3) = -2.46541900496934d+00; - ros_Gamma(4) = -8.05529997906370d-01; - - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp - - END SUBROUTINE Rang3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! End of the set of internal Rosenbrock subroutines -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -END SUBROUTINE Rosenbrock -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE FunTemplate( T, Y, Ydot ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE function call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE RADM2_Parameters, ONLY: NVAR, LU_NONZERO - USE RADM2_Global, ONLY: FIX, RCONST, TIME - USE RADM2_Function, ONLY: Fun - USE RADM2_Rates, ONLY: Update_SUN, Update_RCONST -!~~~> Input variables - REAL(kind=dp) :: T, Y(NVAR) -!~~~> Output variables - REAL(kind=dp) :: Ydot(NVAR) -!~~~> Local variables - REAL(kind=dp) :: Told - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, Ydot ) - TIME = Told - -END SUBROUTINE FunTemplate - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE JacTemplate( T, Y, Jcb ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE Jacobian call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE RADM2_Parameters, ONLY: NVAR, LU_NONZERO - USE RADM2_Global, ONLY: FIX, RCONST, TIME - USE RADM2_Jacobian, ONLY: Jac_SP, LU_IROW, LU_ICOL - USE RADM2_LinearAlgebra - USE RADM2_Rates, ONLY: Update_SUN, Update_RCONST -!~~~> Input variables - REAL(kind=dp) :: T, Y(NVAR) -!~~~> Output variables -#ifdef FULL_ALGEBRA - REAL(kind=dp) :: JV(LU_NONZERO), Jcb(NVAR,NVAR) -#else - REAL(kind=dp) :: Jcb(LU_NONZERO) -#endif -!~~~> Local variables - REAL(kind=dp) :: Told -#ifdef FULL_ALGEBRA - INTEGER :: i, j -#endif - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() -#ifdef FULL_ALGEBRA - CALL Jac_SP(Y, FIX, RCONST, JV) - DO j=1,NVAR - DO i=1,NVAR - Jcb(i,j) = 0.0_dp - END DO - END DO - DO i=1,LU_NONZERO - Jcb(LU_IROW(i),LU_ICOL(i)) = JV(i) - END DO -#else - CALL Jac_SP( Y, FIX, RCONST, Jcb ) -#endif - TIME = Told - -END SUBROUTINE JacTemplate - -END MODULE RADM2_Integrator - - - - -! End of INTEGRATE function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - diff --git a/boxmox/compiled_mechs/RADM2/RADM2_Integrator.o b/boxmox/compiled_mechs/RADM2/RADM2_Integrator.o deleted file mode 100644 index 9dda70a1f192996515fa0ffab5e70ea01be1c6a0..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/RADM2_Integrator.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/RADM2_Jacobian.f90 b/boxmox/compiled_mechs/RADM2/RADM2_Jacobian.f90 deleted file mode 100644 index 525a37c5c870e2a62d0a5bcdc45d0b685bedd04c..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADM2/RADM2_Jacobian.f90 +++ /dev/null @@ -1,2246 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The ODE Jacobian of Chemical Model File -! -! Generated by KPP-2.2.3 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 : RADM2_Jacobian.f90 -! Time : Thu Oct 8 08:22:27 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADM2_18938_BOXMOX -! Equation file : RADM2.kpp -! Output root filename : RADM2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RADM2_Jacobian - - USE RADM2_Parameters - USE RADM2_JacobianSP - - USE RADM2_Global - - 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(280) - -! B(1) = dA(1)/dV(59) - B(1) = RCT(1) -! B(2) = dA(2)/dV(46) - B(2) = RCT(2) -! B(3) = dA(3)/dV(46) - B(3) = RCT(3) -! B(4) = dA(4)/dV(13) - B(4) = RCT(4) -! B(5) = dA(5)/dV(25) - B(5) = RCT(5) -! B(6) = dA(6)/dV(20) - B(6) = RCT(6) -! B(7) = dA(7)/dV(54) - B(7) = RCT(7) -! B(8) = dA(8)/dV(54) - B(8) = RCT(8) -! B(9) = dA(9)/dV(14) - B(9) = RCT(9) -! B(10) = dA(10)/dV(43) - B(10) = RCT(10) -! B(11) = dA(11)/dV(43) - B(11) = RCT(11) -! B(12) = dA(12)/dV(48) - B(12) = RCT(12) -! B(13) = dA(13)/dV(21) - B(13) = RCT(13) -! B(14) = dA(14)/dV(42) - B(14) = RCT(14) -! B(15) = dA(15)/dV(18) - B(15) = RCT(15) -! B(16) = dA(16)/dV(33) - B(16) = RCT(16) -! B(17) = dA(17)/dV(31) - B(17) = RCT(17) -! B(18) = dA(18)/dV(31) - B(18) = RCT(18) -! B(19) = dA(19)/dV(34) - B(19) = RCT(19) -! B(20) = dA(20)/dV(30) - B(20) = RCT(20) -! B(21) = dA(21)/dV(47) - B(21) = RCT(21) -! B(22) = dA(22)/dV(19) - B(22) = RCT(22)*F(2) -! B(24) = dA(23)/dV(19) - B(24) = RCT(23)*V(59) -! B(25) = dA(23)/dV(59) - B(25) = RCT(23)*V(19) -! B(26) = dA(24)/dV(7) - B(26) = RCT(24)*F(2) -! B(28) = dA(25)/dV(7) - B(28) = RCT(25)*F(1) -! B(30) = dA(26)/dV(46) - B(30) = RCT(26)*V(58) -! B(31) = dA(26)/dV(58) - B(31) = RCT(26)*V(46) -! B(32) = dA(27)/dV(46) - B(32) = RCT(27)*V(53) -! B(33) = dA(27)/dV(53) - B(33) = RCT(27)*V(46) -! B(34) = dA(28)/dV(46) - B(34) = RCT(28)*V(51) -! B(35) = dA(28)/dV(51) - B(35) = RCT(28)*V(46) -! B(36) = dA(29)/dV(51) - B(36) = RCT(29)*V(58) -! B(37) = dA(29)/dV(58) - B(37) = RCT(29)*V(51) -! B(38) = dA(30)/dV(51) - B(38) = RCT(30)*V(59) -! B(39) = dA(30)/dV(59) - B(39) = RCT(30)*V(51) -! B(40) = dA(31)/dV(20) - B(40) = RCT(31) -! B(41) = dA(32)/dV(51) - B(41) = RCT(32)*2*V(51) -! B(42) = dA(33)/dV(51) - B(42) = RCT(33)*2*V(51)*F(1) -! B(44) = dA(34)/dV(14) - B(44) = RCT(34)*V(53) -! B(45) = dA(34)/dV(53) - B(45) = RCT(34)*V(14) -! B(46) = dA(35)/dV(53) - B(46) = RCT(35)*V(58) -! B(47) = dA(35)/dV(58) - B(47) = RCT(35)*V(53) -! B(48) = dA(36)/dV(58) - B(48) = RCT(36)*2*V(58)*F(2) -! B(50) = dA(37)/dV(46) - B(50) = RCT(37)*V(59) -! B(51) = dA(37)/dV(59) - B(51) = RCT(37)*V(46) -! B(52) = dA(38)/dV(54) - B(52) = RCT(38)*V(58) -! B(53) = dA(38)/dV(58) - B(53) = RCT(38)*V(54) -! B(54) = dA(39)/dV(54) - B(54) = RCT(39)*V(59) -! B(55) = dA(39)/dV(59) - B(55) = RCT(39)*V(54) -! B(56) = dA(40)/dV(51) - B(56) = RCT(40)*V(54) -! B(57) = dA(40)/dV(54) - B(57) = RCT(40)*V(51) -! B(58) = dA(41)/dV(54) - B(58) = RCT(41)*V(59) -! B(59) = dA(41)/dV(59) - B(59) = RCT(41)*V(54) -! B(60) = dA(42)/dV(15) - B(60) = RCT(42) -! B(61) = dA(43)/dV(15) - B(61) = RCT(43) -! B(62) = dA(44)/dV(53) - B(62) = RCT(44)*V(59) -! B(63) = dA(44)/dV(59) - B(63) = RCT(44)*V(53) -! B(64) = dA(45)/dV(25) - B(64) = RCT(45)*V(53) -! B(65) = dA(45)/dV(53) - B(65) = RCT(45)*V(25) -! B(66) = dA(46)/dV(20) - B(66) = RCT(46)*V(53) -! B(67) = dA(46)/dV(53) - B(67) = RCT(46)*V(20) -! B(68) = dA(47)/dV(51) - B(68) = RCT(47)*V(53) -! B(69) = dA(47)/dV(53) - B(69) = RCT(47)*V(51) -! B(70) = dA(48)/dV(5) - B(70) = RCT(48)*V(53) -! B(71) = dA(48)/dV(53) - B(71) = RCT(48)*V(5) -! B(72) = dA(49)/dV(26) - B(72) = RCT(49)*V(53) -! B(73) = dA(49)/dV(53) - B(73) = RCT(49)*V(26) -! B(74) = dA(50)/dV(17) - B(74) = RCT(50)*V(53) -! B(75) = dA(50)/dV(53) - B(75) = RCT(50)*V(17) -! B(76) = dA(51)/dV(6) - B(76) = RCT(51)*V(53) -! B(77) = dA(51)/dV(53) - B(77) = RCT(51)*V(6) -! B(78) = dA(52)/dV(16) - B(78) = RCT(52)*V(53) -! B(79) = dA(52)/dV(53) - B(79) = RCT(52)*V(16) -! B(80) = dA(53)/dV(8) - B(80) = RCT(53)*V(53) -! B(81) = dA(53)/dV(53) - B(81) = RCT(53)*V(8) -! B(82) = dA(54)/dV(9) - B(82) = RCT(54)*V(53) -! B(83) = dA(54)/dV(53) - B(83) = RCT(54)*V(9) -! B(84) = dA(55)/dV(24) - B(84) = RCT(55)*V(53) -! B(85) = dA(55)/dV(53) - B(85) = RCT(55)*V(24) -! B(86) = dA(56)/dV(28) - B(86) = RCT(56)*V(53) -! B(87) = dA(56)/dV(53) - B(87) = RCT(56)*V(28) -! B(88) = dA(57)/dV(29) - B(88) = RCT(57)*V(53) -! B(89) = dA(57)/dV(53) - B(89) = RCT(57)*V(29) -! B(90) = dA(58)/dV(10) - B(90) = RCT(58)*V(53) -! B(91) = dA(58)/dV(53) - B(91) = RCT(58)*V(10) -! B(92) = dA(59)/dV(11) - B(92) = RCT(59)*V(53) -! B(93) = dA(59)/dV(53) - B(93) = RCT(59)*V(11) -! B(94) = dA(60)/dV(22) - B(94) = RCT(60)*V(53) -! B(95) = dA(60)/dV(53) - B(95) = RCT(60)*V(22) -! B(96) = dA(61)/dV(43) - B(96) = RCT(61)*V(53) -! B(97) = dA(61)/dV(53) - B(97) = RCT(61)*V(43) -! B(98) = dA(62)/dV(48) - B(98) = RCT(62)*V(53) -! B(99) = dA(62)/dV(53) - B(99) = RCT(62)*V(48) -! B(100) = dA(63)/dV(33) - B(100) = RCT(63)*V(53) -! B(101) = dA(63)/dV(53) - B(101) = RCT(63)*V(33) -! B(102) = dA(64)/dV(31) - B(102) = RCT(64)*V(53) -! B(103) = dA(64)/dV(53) - B(103) = RCT(64)*V(31) -! B(104) = dA(65)/dV(34) - B(104) = RCT(65)*V(53) -! B(105) = dA(65)/dV(53) - B(105) = RCT(65)*V(34) -! B(106) = dA(66)/dV(30) - B(106) = RCT(66)*V(53) -! B(107) = dA(66)/dV(53) - B(107) = RCT(66)*V(30) -! B(108) = dA(67)/dV(21) - B(108) = RCT(67)*V(53) -! B(109) = dA(67)/dV(53) - B(109) = RCT(67)*V(21) -! B(110) = dA(68)/dV(42) - B(110) = RCT(68)*V(53) -! B(111) = dA(68)/dV(53) - B(111) = RCT(68)*V(42) -! B(112) = dA(69)/dV(18) - B(112) = RCT(69)*V(53) -! B(113) = dA(69)/dV(53) - B(113) = RCT(69)*V(18) -! B(114) = dA(70)/dV(23) - B(114) = RCT(70)*V(53) -! B(115) = dA(70)/dV(53) - B(115) = RCT(70)*V(23) -! B(116) = dA(71)/dV(47) - B(116) = RCT(71)*V(53) -! B(117) = dA(71)/dV(53) - B(117) = RCT(71)*V(47) -! B(118) = dA(72)/dV(27) - B(118) = RCT(72)*V(53) -! B(119) = dA(72)/dV(53) - B(119) = RCT(72)*V(27) -! B(120) = dA(73)/dV(55) - B(120) = RCT(73)*V(59) -! B(121) = dA(73)/dV(59) - B(121) = RCT(73)*V(55) -! B(122) = dA(74)/dV(23) - B(122) = RCT(74) -! B(123) = dA(75)/dV(45) - B(123) = RCT(75)*V(59) -! B(124) = dA(75)/dV(59) - B(124) = RCT(75)*V(45) -! B(125) = dA(76)/dV(12) - B(125) = RCT(76) -! B(126) = dA(77)/dV(52) - B(126) = RCT(77)*V(58) -! B(127) = dA(77)/dV(58) - B(127) = RCT(77)*V(52) -! B(128) = dA(78)/dV(56) - B(128) = RCT(78)*V(58) -! B(129) = dA(78)/dV(58) - B(129) = RCT(78)*V(56) -! B(130) = dA(79)/dV(41) - B(130) = RCT(79)*V(58) -! B(131) = dA(79)/dV(58) - B(131) = RCT(79)*V(41) -! B(132) = dA(80)/dV(44) - B(132) = RCT(80)*V(58) -! B(133) = dA(80)/dV(58) - B(133) = RCT(80)*V(44) -! B(134) = dA(81)/dV(40) - B(134) = RCT(81)*V(58) -! B(135) = dA(81)/dV(58) - B(135) = RCT(81)*V(40) -! B(136) = dA(82)/dV(37) - B(136) = RCT(82)*V(58) -! B(137) = dA(82)/dV(58) - B(137) = RCT(82)*V(37) -! B(138) = dA(83)/dV(49) - B(138) = RCT(83)*V(58) -! B(139) = dA(83)/dV(58) - B(139) = RCT(83)*V(49) -! B(140) = dA(84)/dV(55) - B(140) = RCT(84)*V(58) -! B(141) = dA(84)/dV(58) - B(141) = RCT(84)*V(55) -! B(142) = dA(85)/dV(45) - B(142) = RCT(85)*V(58) -! B(143) = dA(85)/dV(58) - B(143) = RCT(85)*V(45) -! B(144) = dA(86)/dV(35) - B(144) = RCT(86)*V(58) -! B(145) = dA(86)/dV(58) - B(145) = RCT(86)*V(35) -! B(146) = dA(87)/dV(36) - B(146) = RCT(87)*V(58) -! B(147) = dA(87)/dV(58) - B(147) = RCT(87)*V(36) -! B(148) = dA(88)/dV(57) - B(148) = RCT(88)*V(58) -! B(149) = dA(88)/dV(58) - B(149) = RCT(88)*V(57) -! B(150) = dA(89)/dV(50) - B(150) = RCT(89)*V(58) -! B(151) = dA(89)/dV(58) - B(151) = RCT(89)*V(50) -! B(152) = dA(90)/dV(38) - B(152) = RCT(90)*V(58) -! B(153) = dA(90)/dV(58) - B(153) = RCT(90)*V(38) -! B(154) = dA(91)/dV(43) - B(154) = RCT(91)*V(54) -! B(155) = dA(91)/dV(54) - B(155) = RCT(91)*V(43) -! B(156) = dA(92)/dV(48) - B(156) = RCT(92)*V(54) -! B(157) = dA(92)/dV(54) - B(157) = RCT(92)*V(48) -! B(158) = dA(93)/dV(31) - B(158) = RCT(93)*V(54) -! B(159) = dA(93)/dV(54) - B(159) = RCT(93)*V(31) -! B(160) = dA(94)/dV(34) - B(160) = RCT(94)*V(54) -! B(161) = dA(94)/dV(54) - B(161) = RCT(94)*V(34) -! B(162) = dA(95)/dV(30) - B(162) = RCT(95)*V(54) -! B(163) = dA(95)/dV(54) - B(163) = RCT(95)*V(30) -! B(164) = dA(96)/dV(22) - B(164) = RCT(96)*V(54) -! B(165) = dA(96)/dV(54) - B(165) = RCT(96)*V(22) -! B(166) = dA(97)/dV(24) - B(166) = RCT(97)*V(54) -! B(167) = dA(97)/dV(54) - B(167) = RCT(97)*V(24) -! B(168) = dA(98)/dV(28) - B(168) = RCT(98)*V(54) -! B(169) = dA(98)/dV(54) - B(169) = RCT(98)*V(28) -! B(170) = dA(99)/dV(29) - B(170) = RCT(99)*V(54) -! B(171) = dA(99)/dV(54) - B(171) = RCT(99)*V(29) -! B(172) = dA(100)/dV(27) - B(172) = RCT(100)*V(54) -! B(173) = dA(100)/dV(54) - B(173) = RCT(100)*V(27) -! B(174) = dA(101)/dV(24) - B(174) = RCT(101)*V(46) -! B(175) = dA(101)/dV(46) - B(175) = RCT(101)*V(24) -! B(176) = dA(102)/dV(28) - B(176) = RCT(102)*V(46) -! B(177) = dA(102)/dV(46) - B(177) = RCT(102)*V(28) -! B(178) = dA(103)/dV(29) - B(178) = RCT(103)*V(46) -! B(179) = dA(103)/dV(46) - B(179) = RCT(103)*V(29) -! B(180) = dA(104)/dV(27) - B(180) = RCT(104)*V(46) -! B(181) = dA(104)/dV(46) - B(181) = RCT(104)*V(27) -! B(182) = dA(105)/dV(51) - B(182) = RCT(105)*V(52) -! B(183) = dA(105)/dV(52) - B(183) = RCT(105)*V(51) -! B(184) = dA(106)/dV(51) - B(184) = RCT(106)*V(57) -! B(185) = dA(106)/dV(57) - B(185) = RCT(106)*V(51) -! B(186) = dA(107)/dV(51) - B(186) = RCT(107)*V(56) -! B(187) = dA(107)/dV(56) - B(187) = RCT(107)*V(51) -! B(188) = dA(108)/dV(41) - B(188) = RCT(108)*V(51) -! B(189) = dA(108)/dV(51) - B(189) = RCT(108)*V(41) -! B(190) = dA(109)/dV(44) - B(190) = RCT(109)*V(51) -! B(191) = dA(109)/dV(51) - B(191) = RCT(109)*V(44) -! B(192) = dA(110)/dV(40) - B(192) = RCT(110)*V(51) -! B(193) = dA(110)/dV(51) - B(193) = RCT(110)*V(40) -! B(194) = dA(111)/dV(37) - B(194) = RCT(111)*V(51) -! B(195) = dA(111)/dV(51) - B(195) = RCT(111)*V(37) -! B(196) = dA(112)/dV(49) - B(196) = RCT(112)*V(51) -! B(197) = dA(112)/dV(51) - B(197) = RCT(112)*V(49) -! B(198) = dA(113)/dV(50) - B(198) = RCT(113)*V(51) -! B(199) = dA(113)/dV(51) - B(199) = RCT(113)*V(50) -! B(200) = dA(114)/dV(51) - B(200) = RCT(114)*V(55) -! B(201) = dA(114)/dV(55) - B(201) = RCT(114)*V(51) -! B(202) = dA(115)/dV(35) - B(202) = RCT(115)*V(51) -! B(203) = dA(115)/dV(51) - B(203) = RCT(115)*V(35) -! B(204) = dA(116)/dV(36) - B(204) = RCT(116)*V(51) -! B(205) = dA(116)/dV(51) - B(205) = RCT(116)*V(36) -! B(206) = dA(117)/dV(45) - B(206) = RCT(117)*V(51) -! B(207) = dA(117)/dV(51) - B(207) = RCT(117)*V(45) -! B(208) = dA(118)/dV(38) - B(208) = RCT(118)*V(51) -! B(209) = dA(118)/dV(51) - B(209) = RCT(118)*V(38) -! B(210) = dA(119)/dV(52) - B(210) = RCT(119)*2*V(52) -! B(211) = dA(120)/dV(52) - B(211) = RCT(120)*V(57) -! B(212) = dA(120)/dV(57) - B(212) = RCT(120)*V(52) -! B(213) = dA(121)/dV(52) - B(213) = RCT(121)*V(56) -! B(214) = dA(121)/dV(56) - B(214) = RCT(121)*V(52) -! B(215) = dA(122)/dV(41) - B(215) = RCT(122)*V(52) -! B(216) = dA(122)/dV(52) - B(216) = RCT(122)*V(41) -! B(217) = dA(123)/dV(44) - B(217) = RCT(123)*V(52) -! B(218) = dA(123)/dV(52) - B(218) = RCT(123)*V(44) -! B(219) = dA(124)/dV(40) - B(219) = RCT(124)*V(52) -! B(220) = dA(124)/dV(52) - B(220) = RCT(124)*V(40) -! B(221) = dA(125)/dV(37) - B(221) = RCT(125)*V(52) -! B(222) = dA(125)/dV(52) - B(222) = RCT(125)*V(37) -! B(223) = dA(126)/dV(49) - B(223) = RCT(126)*V(52) -! B(224) = dA(126)/dV(52) - B(224) = RCT(126)*V(49) -! B(225) = dA(127)/dV(50) - B(225) = RCT(127)*V(52) -! B(226) = dA(127)/dV(52) - B(226) = RCT(127)*V(50) -! B(227) = dA(128)/dV(52) - B(227) = RCT(128)*V(55) -! B(228) = dA(128)/dV(55) - B(228) = RCT(128)*V(52) -! B(229) = dA(129)/dV(35) - B(229) = RCT(129)*V(52) -! B(230) = dA(129)/dV(52) - B(230) = RCT(129)*V(35) -! B(231) = dA(130)/dV(36) - B(231) = RCT(130)*V(52) -! B(232) = dA(130)/dV(52) - B(232) = RCT(130)*V(36) -! B(233) = dA(131)/dV(45) - B(233) = RCT(131)*V(52) -! B(234) = dA(131)/dV(52) - B(234) = RCT(131)*V(45) -! B(235) = dA(132)/dV(55) - B(235) = RCT(132)*V(57) -! B(236) = dA(132)/dV(57) - B(236) = RCT(132)*V(55) -! B(237) = dA(133)/dV(55) - B(237) = RCT(133)*V(56) -! B(238) = dA(133)/dV(56) - B(238) = RCT(133)*V(55) -! B(239) = dA(134)/dV(41) - B(239) = RCT(134)*V(55) -! B(240) = dA(134)/dV(55) - B(240) = RCT(134)*V(41) -! B(241) = dA(135)/dV(44) - B(241) = RCT(135)*V(55) -! B(242) = dA(135)/dV(55) - B(242) = RCT(135)*V(44) -! B(243) = dA(136)/dV(40) - B(243) = RCT(136)*V(55) -! B(244) = dA(136)/dV(55) - B(244) = RCT(136)*V(40) -! B(245) = dA(137)/dV(37) - B(245) = RCT(137)*V(55) -! B(246) = dA(137)/dV(55) - B(246) = RCT(137)*V(37) -! B(247) = dA(138)/dV(49) - B(247) = RCT(138)*V(55) -! B(248) = dA(138)/dV(55) - B(248) = RCT(138)*V(49) -! B(249) = dA(139)/dV(50) - B(249) = RCT(139)*V(55) -! B(250) = dA(139)/dV(55) - B(250) = RCT(139)*V(50) -! B(251) = dA(140)/dV(55) - B(251) = RCT(140)*2*V(55) -! B(252) = dA(141)/dV(35) - B(252) = RCT(141)*V(55) -! B(253) = dA(141)/dV(55) - B(253) = RCT(141)*V(35) -! B(254) = dA(142)/dV(36) - B(254) = RCT(142)*V(55) -! B(255) = dA(142)/dV(55) - B(255) = RCT(142)*V(36) -! B(256) = dA(143)/dV(45) - B(256) = RCT(143)*V(55) -! B(257) = dA(143)/dV(55) - B(257) = RCT(143)*V(45) -! B(258) = dA(144)/dV(39) - B(258) = RCT(144)*V(51) -! B(259) = dA(144)/dV(51) - B(259) = RCT(144)*V(39) -! B(260) = dA(145)/dV(39) - B(260) = RCT(145)*V(52) -! B(261) = dA(145)/dV(52) - B(261) = RCT(145)*V(39) -! B(262) = dA(146)/dV(39) - B(262) = RCT(146)*V(55) -! B(263) = dA(146)/dV(55) - B(263) = RCT(146)*V(39) -! B(264) = dA(147)/dV(39) - B(264) = RCT(147)*2*V(39) -! B(265) = dA(148)/dV(39) - B(265) = RCT(148)*V(58) -! B(266) = dA(148)/dV(58) - B(266) = RCT(148)*V(39) -! B(267) = dA(149)/dV(32) - B(267) = RCT(149)*V(59) -! B(268) = dA(149)/dV(59) - B(268) = RCT(149)*V(32) -! B(269) = dA(150)/dV(32) - B(269) = RCT(150)*V(51) -! B(270) = dA(150)/dV(51) - B(270) = RCT(150)*V(32) -! B(271) = dA(151)/dV(32) - B(271) = RCT(151)*V(52) -! B(272) = dA(151)/dV(52) - B(272) = RCT(151)*V(32) -! B(273) = dA(152)/dV(32) - B(273) = RCT(152)*V(55) -! B(274) = dA(152)/dV(55) - B(274) = RCT(152)*V(32) -! B(275) = dA(153)/dV(32) - B(275) = RCT(153)*2*V(32) -! B(276) = dA(154)/dV(38) - B(276) = RCT(154)*V(52) -! B(277) = dA(154)/dV(52) - B(277) = RCT(154)*V(38) -! B(278) = dA(155)/dV(38) - B(278) = RCT(155)*V(55) -! B(279) = dA(155)/dV(55) - B(279) = RCT(155)*V(38) -! B(280) = dA(156)/dV(38) - B(280) = RCT(156)*2*V(38) - -! Construct the Jacobian terms from B's -! JVS(1) = Jac_FULL(1,1) - JVS(1) = 0 -! JVS(2) = Jac_FULL(1,5) - JVS(2) = B(70) -! JVS(3) = Jac_FULL(1,53) - JVS(3) = B(71) -! JVS(4) = Jac_FULL(2,2) - JVS(4) = 0 -! JVS(5) = Jac_FULL(2,24) - JVS(5) = 0.4*B(174) -! JVS(6) = Jac_FULL(2,27) - JVS(6) = 0.2*B(180) -! JVS(7) = Jac_FULL(2,28) - JVS(7) = 0.2*B(176) -! JVS(8) = Jac_FULL(2,29) - JVS(8) = 0.06*B(178) -! JVS(9) = Jac_FULL(2,46) - JVS(9) = 0.4*B(175)+0.2*B(177)+0.06*B(179)+0.2*B(181) -! JVS(10) = Jac_FULL(3,3) - JVS(10) = 0 -! JVS(11) = Jac_FULL(3,27) - JVS(11) = 0.2*B(180) -! JVS(12) = Jac_FULL(3,28) - JVS(12) = 0.2*B(176) -! JVS(13) = Jac_FULL(3,29) - JVS(13) = 0.29*B(178) -! JVS(14) = Jac_FULL(3,37) - JVS(14) = 0.5*B(245) -! JVS(15) = Jac_FULL(3,38) - JVS(15) = 0.5*B(278) -! JVS(16) = Jac_FULL(3,40) - JVS(16) = 0.5*B(243) -! JVS(17) = Jac_FULL(3,41) - JVS(17) = 0.5*B(239) -! JVS(18) = Jac_FULL(3,44) - JVS(18) = 0.5*B(241) -! JVS(19) = Jac_FULL(3,45) - JVS(19) = 0.5*B(233) -! JVS(20) = Jac_FULL(3,46) - JVS(20) = 0.2*B(177)+0.29*B(179)+0.2*B(181) -! JVS(21) = Jac_FULL(3,49) - JVS(21) = 0.5*B(247) -! JVS(22) = Jac_FULL(3,50) - JVS(22) = 0.5*B(249) -! JVS(23) = Jac_FULL(3,52) - JVS(23) = 0.5*B(227)+0.5*B(234) -! JVS(24) = Jac_FULL(3,55) - JVS(24) = 0.5*B(228)+0.5*B(235)+0.5*B(237)+0.5*B(240)+0.5*B(242)+0.5*B(244)+0.5*B(246)+0.5*B(248)+0.5*B(250)+0.5& - &*B(279) -! JVS(25) = Jac_FULL(3,56) - JVS(25) = 0.5*B(238) -! JVS(26) = Jac_FULL(3,57) - JVS(26) = 0.5*B(236) -! JVS(27) = Jac_FULL(4,4) - JVS(27) = 0 -! JVS(28) = Jac_FULL(4,26) - JVS(28) = B(72) -! JVS(29) = Jac_FULL(4,53) - JVS(29) = B(73) -! JVS(30) = Jac_FULL(5,5) - JVS(30) = -B(70) -! JVS(31) = Jac_FULL(5,53) - JVS(31) = -B(71) -! JVS(32) = Jac_FULL(6,6) - JVS(32) = -B(76) -! JVS(33) = Jac_FULL(6,53) - JVS(33) = -B(77) -! JVS(34) = Jac_FULL(7,7) - JVS(34) = -B(26)-B(28) -! JVS(35) = Jac_FULL(7,46) - JVS(35) = B(2) -! JVS(36) = Jac_FULL(8,8) - JVS(36) = -B(80) -! JVS(37) = Jac_FULL(8,53) - JVS(37) = -B(81) -! JVS(38) = Jac_FULL(9,9) - JVS(38) = -B(82) -! JVS(39) = Jac_FULL(9,53) - JVS(39) = -B(83) -! JVS(40) = Jac_FULL(10,10) - JVS(40) = -B(90) -! JVS(41) = Jac_FULL(10,53) - JVS(41) = -B(91) -! JVS(42) = Jac_FULL(11,11) - JVS(42) = -B(92) -! JVS(43) = Jac_FULL(11,53) - JVS(43) = -B(93) -! JVS(44) = Jac_FULL(12,12) - JVS(44) = -B(125) -! JVS(45) = Jac_FULL(12,45) - JVS(45) = B(123) -! JVS(46) = Jac_FULL(12,59) - JVS(46) = B(124) -! JVS(47) = Jac_FULL(13,13) - JVS(47) = -B(4) -! JVS(48) = Jac_FULL(13,53) - JVS(48) = B(46) -! JVS(49) = Jac_FULL(13,58) - JVS(49) = B(47) -! JVS(50) = Jac_FULL(14,14) - JVS(50) = -B(9)-B(44) -! JVS(51) = Jac_FULL(14,51) - JVS(51) = B(41)+B(42) -! JVS(52) = Jac_FULL(14,53) - JVS(52) = -B(45) -! JVS(53) = Jac_FULL(15,15) - JVS(53) = -B(60)-B(61) -! JVS(54) = Jac_FULL(15,54) - JVS(54) = B(58) -! JVS(55) = Jac_FULL(15,59) - JVS(55) = B(59) -! JVS(56) = Jac_FULL(16,16) - JVS(56) = -B(78) -! JVS(57) = Jac_FULL(16,53) - JVS(57) = -B(79) -! JVS(58) = Jac_FULL(17,17) - JVS(58) = -B(74) -! JVS(59) = Jac_FULL(17,28) - JVS(59) = 0.06*B(176) -! JVS(60) = Jac_FULL(17,29) - JVS(60) = 0.09*B(178) -! JVS(61) = Jac_FULL(17,46) - JVS(61) = 0.06*B(177)+0.09*B(179) -! JVS(62) = Jac_FULL(17,53) - JVS(62) = -B(75) -! JVS(63) = Jac_FULL(18,18) - JVS(63) = -B(15)-B(112) -! JVS(64) = Jac_FULL(18,51) - JVS(64) = B(200) -! JVS(65) = Jac_FULL(18,53) - JVS(65) = -B(113) -! JVS(66) = Jac_FULL(18,55) - JVS(66) = B(201) -! JVS(67) = Jac_FULL(19,7) - JVS(67) = B(26) -! JVS(68) = Jac_FULL(19,19) - JVS(68) = -B(22)-B(24) -! JVS(69) = Jac_FULL(19,46) - JVS(69) = B(3) -! JVS(70) = Jac_FULL(19,54) - JVS(70) = B(8) -! JVS(71) = Jac_FULL(19,59) - JVS(71) = B(1)-B(25) -! JVS(72) = Jac_FULL(20,20) - JVS(72) = -B(6)-B(40)-B(66) -! JVS(73) = Jac_FULL(20,51) - JVS(73) = B(38) -! JVS(74) = Jac_FULL(20,53) - JVS(74) = -B(67) -! JVS(75) = Jac_FULL(20,59) - JVS(75) = B(39) -! JVS(76) = Jac_FULL(21,21) - JVS(76) = -B(13)-B(108) -! JVS(77) = Jac_FULL(21,51) - JVS(77) = B(182) -! JVS(78) = Jac_FULL(21,52) - JVS(78) = B(183) -! JVS(79) = Jac_FULL(21,53) - JVS(79) = -B(109) -! JVS(80) = Jac_FULL(22,10) - JVS(80) = 0.25*B(90) -! JVS(81) = Jac_FULL(22,11) - JVS(81) = 0.17*B(92) -! JVS(82) = Jac_FULL(22,22) - JVS(82) = -B(94)-0.5*B(164) -! JVS(83) = Jac_FULL(22,53) - JVS(83) = 0.25*B(91)+0.17*B(93)-B(95) -! JVS(84) = Jac_FULL(22,54) - JVS(84) = -0.5*B(165) -! JVS(85) = Jac_FULL(23,23) - JVS(85) = -B(114)-B(122) -! JVS(86) = Jac_FULL(23,53) - JVS(86) = -B(115) -! JVS(87) = Jac_FULL(23,55) - JVS(87) = B(120) -! JVS(88) = Jac_FULL(23,59) - JVS(88) = B(121) -! JVS(89) = Jac_FULL(24,24) - JVS(89) = -B(84)-B(166)-B(174) -! JVS(90) = Jac_FULL(24,46) - JVS(90) = -B(175) -! JVS(91) = Jac_FULL(24,53) - JVS(91) = -B(85) -! JVS(92) = Jac_FULL(24,54) - JVS(92) = -B(167) -! JVS(93) = Jac_FULL(25,15) - JVS(93) = 2*B(61) -! JVS(94) = Jac_FULL(25,22) - JVS(94) = B(164) -! JVS(95) = Jac_FULL(25,25) - JVS(95) = -B(5)-B(64) -! JVS(96) = Jac_FULL(25,30) - JVS(96) = B(162) -! JVS(97) = Jac_FULL(25,31) - JVS(97) = B(158) -! JVS(98) = Jac_FULL(25,34) - JVS(98) = B(160) -! JVS(99) = Jac_FULL(25,43) - JVS(99) = B(154) -! JVS(100) = Jac_FULL(25,48) - JVS(100) = B(156) -! JVS(101) = Jac_FULL(25,51) - JVS(101) = B(56) -! JVS(102) = Jac_FULL(25,53) - JVS(102) = B(62)-B(65) -! JVS(103) = Jac_FULL(25,54) - JVS(103) = B(57)+B(155)+B(157)+B(159)+B(161)+B(163)+B(165) -! JVS(104) = Jac_FULL(25,59) - JVS(104) = B(63) -! JVS(105) = Jac_FULL(26,24) - JVS(105) = 0.42*B(174) -! JVS(106) = Jac_FULL(26,26) - JVS(106) = -B(72) -! JVS(107) = Jac_FULL(26,27) - JVS(107) = 0.33*B(180) -! JVS(108) = Jac_FULL(26,28) - JVS(108) = 0.33*B(176) -! JVS(109) = Jac_FULL(26,29) - JVS(109) = 0.23*B(178) -! JVS(110) = Jac_FULL(26,31) - JVS(110) = 1.87*B(17)+1.55*B(18)+2*B(102)+2*B(158) -! JVS(111) = Jac_FULL(26,34) - JVS(111) = B(19)+B(104)+B(160) -! JVS(112) = Jac_FULL(26,43) - JVS(112) = B(10)+B(11)+B(96)+B(154) -! JVS(113) = Jac_FULL(26,45) - JVS(113) = 0.95*B(142)+0.475*B(233)+0.95*B(256) -! JVS(114) = Jac_FULL(26,46) - JVS(114) = 0.42*B(175)+0.33*B(177)+0.23*B(179)+0.33*B(181) -! JVS(115) = Jac_FULL(26,48) - JVS(115) = B(12) -! JVS(116) = Jac_FULL(26,52) - JVS(116) = 0.475*B(234) -! JVS(117) = Jac_FULL(26,53) - JVS(117) = -B(73)+B(97)+2*B(103)+B(105) -! JVS(118) = Jac_FULL(26,54) - JVS(118) = B(155)+2*B(159)+B(161) -! JVS(119) = Jac_FULL(26,55) - JVS(119) = 0.95*B(257) -! JVS(120) = Jac_FULL(26,58) - JVS(120) = 0.95*B(143) -! JVS(121) = Jac_FULL(27,27) - JVS(121) = -B(118)-B(172)-B(180) -! JVS(122) = Jac_FULL(27,46) - JVS(122) = -B(181) -! JVS(123) = Jac_FULL(27,53) - JVS(123) = -B(119) -! JVS(124) = Jac_FULL(27,54) - JVS(124) = -B(173) -! JVS(125) = Jac_FULL(28,28) - JVS(125) = -B(86)-B(168)-B(176) -! JVS(126) = Jac_FULL(28,46) - JVS(126) = -B(177) -! JVS(127) = Jac_FULL(28,53) - JVS(127) = -B(87) -! JVS(128) = Jac_FULL(28,54) - JVS(128) = -B(169) -! JVS(129) = Jac_FULL(29,29) - JVS(129) = -B(88)-B(170)-B(178) -! JVS(130) = Jac_FULL(29,46) - JVS(130) = -B(179) -! JVS(131) = Jac_FULL(29,53) - JVS(131) = -B(89) -! JVS(132) = Jac_FULL(29,54) - JVS(132) = -B(171) -! JVS(133) = Jac_FULL(30,30) - JVS(133) = -B(20)-B(106)-B(162) -! JVS(134) = Jac_FULL(30,35) - JVS(134) = 0.7*B(144)+0.7*B(229)+B(252) -! JVS(135) = Jac_FULL(30,36) - JVS(135) = 0.806*B(146)+0.806*B(231)+B(254) -! JVS(136) = Jac_FULL(30,52) - JVS(136) = 0.7*B(230)+0.806*B(232) -! JVS(137) = Jac_FULL(30,53) - JVS(137) = -B(107) -! JVS(138) = Jac_FULL(30,54) - JVS(138) = -B(163) -! JVS(139) = Jac_FULL(30,55) - JVS(139) = B(253)+B(255) -! JVS(140) = Jac_FULL(30,58) - JVS(140) = 0.7*B(145)+0.806*B(147) -! JVS(141) = Jac_FULL(31,31) - JVS(141) = -B(17)-B(18)-B(102)-B(158) -! JVS(142) = Jac_FULL(31,35) - JVS(142) = 0.16*B(144)+0.16*B(229)+0.2*B(252) -! JVS(143) = Jac_FULL(31,45) - JVS(143) = 0.89*B(142)+0.445*B(233)+0.89*B(256) -! JVS(144) = Jac_FULL(31,52) - JVS(144) = 0.16*B(230)+0.445*B(234) -! JVS(145) = Jac_FULL(31,53) - JVS(145) = -B(103) -! JVS(146) = Jac_FULL(31,54) - JVS(146) = -B(159) -! JVS(147) = Jac_FULL(31,55) - JVS(147) = 0.2*B(253)+0.89*B(257) -! JVS(148) = Jac_FULL(31,58) - JVS(148) = 0.89*B(143)+0.16*B(145) -! JVS(149) = Jac_FULL(32,22) - JVS(149) = B(164) -! JVS(150) = Jac_FULL(32,32) - JVS(150) = -B(267)-B(269)-B(271)-B(273)-2*B(275) -! JVS(151) = Jac_FULL(32,51) - JVS(151) = -B(270) -! JVS(152) = Jac_FULL(32,52) - JVS(152) = -B(272) -! JVS(153) = Jac_FULL(32,53) - JVS(153) = 0 -! JVS(154) = Jac_FULL(32,54) - JVS(154) = B(165) -! JVS(155) = Jac_FULL(32,55) - JVS(155) = -B(274) -! JVS(156) = Jac_FULL(32,59) - JVS(156) = -B(268) -! JVS(157) = Jac_FULL(33,16) - JVS(157) = 0.025*B(78) -! JVS(158) = Jac_FULL(33,29) - JVS(158) = 0.1*B(178) -! JVS(159) = Jac_FULL(33,33) - JVS(159) = -B(16)-B(100) -! JVS(160) = Jac_FULL(33,41) - JVS(160) = 0.69*B(130)+0.75*B(215)+0.86*B(239) -! JVS(161) = Jac_FULL(33,44) - JVS(161) = 1.06*B(132)+1.39*B(217)+0.9*B(241) -! JVS(162) = Jac_FULL(33,46) - JVS(162) = 0.1*B(179) -! JVS(163) = Jac_FULL(33,47) - JVS(163) = 0.8*B(21) -! JVS(164) = Jac_FULL(33,49) - JVS(164) = 0.1*B(138)+0.55*B(223)+0.55*B(247) -! JVS(165) = Jac_FULL(33,52) - JVS(165) = 0.6*B(213)+0.75*B(216)+1.39*B(218)+0.55*B(224) -! JVS(166) = Jac_FULL(33,53) - JVS(166) = 0.025*B(79)-B(101) -! JVS(167) = Jac_FULL(33,54) - JVS(167) = 0 -! JVS(168) = Jac_FULL(33,55) - JVS(168) = 0.8*B(237)+0.86*B(240)+0.9*B(242)+0.55*B(248) -! JVS(169) = Jac_FULL(33,56) - JVS(169) = 0.25*B(128)+0.6*B(214)+0.8*B(238) -! JVS(170) = Jac_FULL(33,58) - JVS(170) = 0.25*B(129)+0.69*B(131)+1.06*B(133)+0.1*B(139) -! JVS(171) = Jac_FULL(34,34) - JVS(171) = -B(19)-B(104)-B(160) -! JVS(172) = Jac_FULL(34,35) - JVS(172) = 0.17*B(144)+0.17*B(229)+0.8*B(252) -! JVS(173) = Jac_FULL(34,36) - JVS(173) = 0.45*B(146)+0.45*B(231)+B(254) -! JVS(174) = Jac_FULL(34,45) - JVS(174) = 0.11*B(142)+0.055*B(233)+0.11*B(256) -! JVS(175) = Jac_FULL(34,50) - JVS(175) = B(150)+0.75*B(225)+B(249) -! JVS(176) = Jac_FULL(34,52) - JVS(176) = 0.75*B(226)+0.17*B(230)+0.45*B(232)+0.055*B(234) -! JVS(177) = Jac_FULL(34,53) - JVS(177) = -B(105) -! JVS(178) = Jac_FULL(34,54) - JVS(178) = -B(161) -! JVS(179) = Jac_FULL(34,55) - JVS(179) = B(250)+0.8*B(253)+B(255)+0.11*B(257) -! JVS(180) = Jac_FULL(34,58) - JVS(180) = 0.11*B(143)+0.17*B(145)+0.45*B(147)+B(151) -! JVS(181) = Jac_FULL(35,10) - JVS(181) = 0.75*B(90) -! JVS(182) = Jac_FULL(35,35) - JVS(182) = -B(144)-B(202)-B(229)-B(252) -! JVS(183) = Jac_FULL(35,51) - JVS(183) = -B(203) -! JVS(184) = Jac_FULL(35,52) - JVS(184) = -B(230) -! JVS(185) = Jac_FULL(35,53) - JVS(185) = 0.75*B(91) -! JVS(186) = Jac_FULL(35,55) - JVS(186) = -B(253) -! JVS(187) = Jac_FULL(35,58) - JVS(187) = -B(145) -! JVS(188) = Jac_FULL(36,11) - JVS(188) = 0.83*B(92) -! JVS(189) = Jac_FULL(36,36) - JVS(189) = -B(146)-B(204)-B(231)-B(254) -! JVS(190) = Jac_FULL(36,51) - JVS(190) = -B(205) -! JVS(191) = Jac_FULL(36,52) - JVS(191) = -B(232) -! JVS(192) = Jac_FULL(36,53) - JVS(192) = 0.83*B(93) -! JVS(193) = Jac_FULL(36,55) - JVS(193) = -B(255) -! JVS(194) = Jac_FULL(36,58) - JVS(194) = -B(147) -! JVS(195) = Jac_FULL(37,27) - JVS(195) = B(118) -! JVS(196) = Jac_FULL(37,28) - JVS(196) = B(86) -! JVS(197) = Jac_FULL(37,37) - JVS(197) = -B(136)-B(194)-B(221)-B(245) -! JVS(198) = Jac_FULL(37,46) - JVS(198) = 0 -! JVS(199) = Jac_FULL(37,51) - JVS(199) = -B(195) -! JVS(200) = Jac_FULL(37,52) - JVS(200) = -B(222) -! JVS(201) = Jac_FULL(37,53) - JVS(201) = B(87)+B(119) -! JVS(202) = Jac_FULL(37,54) - JVS(202) = 0 -! JVS(203) = Jac_FULL(37,55) - JVS(203) = -B(246) -! JVS(204) = Jac_FULL(37,58) - JVS(204) = -B(137) -! JVS(205) = Jac_FULL(38,24) - JVS(205) = B(166) -! JVS(206) = Jac_FULL(38,27) - JVS(206) = B(172) -! JVS(207) = Jac_FULL(38,28) - JVS(207) = B(168) -! JVS(208) = Jac_FULL(38,29) - JVS(208) = B(170) -! JVS(209) = Jac_FULL(38,38) - JVS(209) = -B(152)-B(208)-B(276)-B(278)-2*B(280) -! JVS(210) = Jac_FULL(38,46) - JVS(210) = 0 -! JVS(211) = Jac_FULL(38,51) - JVS(211) = -B(209) -! JVS(212) = Jac_FULL(38,52) - JVS(212) = -B(277) -! JVS(213) = Jac_FULL(38,53) - JVS(213) = 0 -! JVS(214) = Jac_FULL(38,54) - JVS(214) = B(167)+B(169)+B(171)+B(173) -! JVS(215) = Jac_FULL(38,55) - JVS(215) = -B(279) -! JVS(216) = Jac_FULL(38,58) - JVS(216) = -B(153) -! JVS(217) = Jac_FULL(39,8) - JVS(217) = 0.25*B(80) -! JVS(218) = Jac_FULL(39,9) - JVS(218) = 0.75*B(82) -! JVS(219) = Jac_FULL(39,22) - JVS(219) = 0.9*B(94) -! JVS(220) = Jac_FULL(39,23) - JVS(220) = B(114) -! JVS(221) = Jac_FULL(39,39) - JVS(221) = -B(258)-B(260)-B(262)-2*B(264)-B(265) -! JVS(222) = Jac_FULL(39,45) - JVS(222) = 2*B(142)+B(233)+2*B(256) -! JVS(223) = Jac_FULL(39,51) - JVS(223) = -B(259) -! JVS(224) = Jac_FULL(39,52) - JVS(224) = B(234)-B(261) -! JVS(225) = Jac_FULL(39,53) - JVS(225) = 0.25*B(81)+0.75*B(83)+0.9*B(95)+B(115) -! JVS(226) = Jac_FULL(39,54) - JVS(226) = 0 -! JVS(227) = Jac_FULL(39,55) - JVS(227) = 2*B(257)-B(263) -! JVS(228) = Jac_FULL(39,58) - JVS(228) = 2*B(143)-B(266) -! JVS(229) = Jac_FULL(39,59) - JVS(229) = 0 -! JVS(230) = Jac_FULL(40,24) - JVS(230) = B(84) -! JVS(231) = Jac_FULL(40,40) - JVS(231) = -B(134)-B(192)-B(219)-B(243) -! JVS(232) = Jac_FULL(40,46) - JVS(232) = 0 -! JVS(233) = Jac_FULL(40,51) - JVS(233) = -B(193) -! JVS(234) = Jac_FULL(40,52) - JVS(234) = -B(220) -! JVS(235) = Jac_FULL(40,53) - JVS(235) = B(85) -! JVS(236) = Jac_FULL(40,54) - JVS(236) = 0 -! JVS(237) = Jac_FULL(40,55) - JVS(237) = -B(244) -! JVS(238) = Jac_FULL(40,58) - JVS(238) = -B(135) -! JVS(239) = Jac_FULL(41,8) - JVS(239) = B(80) -! JVS(240) = Jac_FULL(41,41) - JVS(240) = -B(130)-B(188)-B(215)-B(239) -! JVS(241) = Jac_FULL(41,51) - JVS(241) = -B(189) -! JVS(242) = Jac_FULL(41,52) - JVS(242) = -B(216) -! JVS(243) = Jac_FULL(41,53) - JVS(243) = B(81) -! JVS(244) = Jac_FULL(41,55) - JVS(244) = -B(240) -! JVS(245) = Jac_FULL(41,58) - JVS(245) = -B(131) -! JVS(246) = Jac_FULL(42,32) - JVS(246) = B(269) -! JVS(247) = Jac_FULL(42,35) - JVS(247) = B(202) -! JVS(248) = Jac_FULL(42,36) - JVS(248) = B(204) -! JVS(249) = Jac_FULL(42,37) - JVS(249) = B(194) -! JVS(250) = Jac_FULL(42,39) - JVS(250) = B(258) -! JVS(251) = Jac_FULL(42,40) - JVS(251) = B(192) -! JVS(252) = Jac_FULL(42,41) - JVS(252) = B(188) -! JVS(253) = Jac_FULL(42,42) - JVS(253) = -B(14)-B(110) -! JVS(254) = Jac_FULL(42,44) - JVS(254) = B(190) -! JVS(255) = Jac_FULL(42,45) - JVS(255) = B(206) -! JVS(256) = Jac_FULL(42,46) - JVS(256) = 0 -! JVS(257) = Jac_FULL(42,49) - JVS(257) = B(196) -! JVS(258) = Jac_FULL(42,50) - JVS(258) = B(198) -! JVS(259) = Jac_FULL(42,51) - JVS(259) = B(184)+B(186)+B(189)+B(191)+B(193)+B(195)+B(197)+B(199)+B(203)+B(205)+B(207)+B(259)+B(270) -! JVS(260) = Jac_FULL(42,52) - JVS(260) = 0 -! JVS(261) = Jac_FULL(42,53) - JVS(261) = -B(111) -! JVS(262) = Jac_FULL(42,54) - JVS(262) = 0 -! JVS(263) = Jac_FULL(42,55) - JVS(263) = 0 -! JVS(264) = Jac_FULL(42,56) - JVS(264) = B(187) -! JVS(265) = Jac_FULL(42,57) - JVS(265) = B(185) -! JVS(266) = Jac_FULL(42,58) - JVS(266) = 0 -! JVS(267) = Jac_FULL(42,59) - JVS(267) = 0 -! JVS(268) = Jac_FULL(43,16) - JVS(268) = 0.009*B(78) -! JVS(269) = Jac_FULL(43,21) - JVS(269) = B(13)+0.5*B(108) -! JVS(270) = Jac_FULL(43,23) - JVS(270) = B(114) -! JVS(271) = Jac_FULL(43,24) - JVS(271) = B(174) -! JVS(272) = Jac_FULL(43,27) - JVS(272) = 0.53*B(180) -! JVS(273) = Jac_FULL(43,28) - JVS(273) = 0.53*B(176) -! JVS(274) = Jac_FULL(43,29) - JVS(274) = 0.18*B(178) -! JVS(275) = Jac_FULL(43,31) - JVS(275) = 0.13*B(17)+0.45*B(18) -! JVS(276) = Jac_FULL(43,32) - JVS(276) = B(271) -! JVS(277) = Jac_FULL(43,35) - JVS(277) = B(229) -! JVS(278) = Jac_FULL(43,36) - JVS(278) = B(231) -! JVS(279) = Jac_FULL(43,37) - JVS(279) = B(136)+1.25*B(221)+0.5*B(245) -! JVS(280) = Jac_FULL(43,38) - JVS(280) = B(152)+1.75*B(276)+B(278)+2*B(280) -! JVS(281) = Jac_FULL(43,39) - JVS(281) = B(260) -! JVS(282) = Jac_FULL(43,40) - JVS(282) = 1.6*B(134)+1.55*B(219)+0.8*B(243) -! JVS(283) = Jac_FULL(43,41) - JVS(283) = 0.77*B(215) -! JVS(284) = Jac_FULL(43,43) - JVS(284) = -B(10)-B(11)-B(96)-B(154) -! JVS(285) = Jac_FULL(43,44) - JVS(285) = 0.04*B(132)+0.8*B(217) -! JVS(286) = Jac_FULL(43,45) - JVS(286) = 0.5*B(233) -! JVS(287) = Jac_FULL(43,46) - JVS(287) = B(175)+0.53*B(177)+0.18*B(179)+0.53*B(181) -! JVS(288) = Jac_FULL(43,49) - JVS(288) = 0.28*B(138)+0.89*B(223)+0.14*B(247) -! JVS(289) = Jac_FULL(43,50) - JVS(289) = 0.75*B(225) -! JVS(290) = Jac_FULL(43,51) - JVS(290) = 0 -! JVS(291) = Jac_FULL(43,52) - JVS(291) = B(126)+1.5*B(210)+0.75*B(211)+0.75*B(213)+0.77*B(216)+0.8*B(218)+1.55*B(220)+1.25*B(222)+0.89*B(224)+0.75& - &*B(226)+B(227)+B(230)+B(232)+0.5*B(234)+B(261)+B(272)+1.75*B(277) -! JVS(292) = Jac_FULL(43,53) - JVS(292) = 0.009*B(79)-B(97)+0.5*B(109)+B(115) -! JVS(293) = Jac_FULL(43,54) - JVS(293) = -B(155) -! JVS(294) = Jac_FULL(43,55) - JVS(294) = B(228)+0.8*B(244)+0.5*B(246)+0.14*B(248)+B(279) -! JVS(295) = Jac_FULL(43,56) - JVS(295) = 0.09*B(128)+0.75*B(214) -! JVS(296) = Jac_FULL(43,57) - JVS(296) = 0.75*B(212) -! JVS(297) = Jac_FULL(43,58) - JVS(297) = B(127)+0.09*B(129)+0.04*B(133)+1.6*B(135)+B(137)+0.28*B(139)+B(153) -! JVS(298) = Jac_FULL(43,59) - JVS(298) = 0 -! JVS(299) = Jac_FULL(44,9) - JVS(299) = B(82) -! JVS(300) = Jac_FULL(44,44) - JVS(300) = -B(132)-B(190)-B(217)-B(241) -! JVS(301) = Jac_FULL(44,51) - JVS(301) = -B(191) -! JVS(302) = Jac_FULL(44,52) - JVS(302) = -B(218) -! JVS(303) = Jac_FULL(44,53) - JVS(303) = B(83) -! JVS(304) = Jac_FULL(44,55) - JVS(304) = -B(242) -! JVS(305) = Jac_FULL(44,58) - JVS(305) = -B(133) -! JVS(306) = Jac_FULL(45,12) - JVS(306) = B(125) -! JVS(307) = Jac_FULL(45,22) - JVS(307) = 0.9*B(94) -! JVS(308) = Jac_FULL(45,30) - JVS(308) = B(20)+B(106)+B(162) -! JVS(309) = Jac_FULL(45,35) - JVS(309) = 0 -! JVS(310) = Jac_FULL(45,36) - JVS(310) = 0 -! JVS(311) = Jac_FULL(45,45) - JVS(311) = -B(123)-B(142)-B(206)-B(233)-B(256) -! JVS(312) = Jac_FULL(45,51) - JVS(312) = -B(207) -! JVS(313) = Jac_FULL(45,52) - JVS(313) = -B(234) -! JVS(314) = Jac_FULL(45,53) - JVS(314) = 0.9*B(95)+B(107) -! JVS(315) = Jac_FULL(45,54) - JVS(315) = B(163) -! JVS(316) = Jac_FULL(45,55) - JVS(316) = -B(257) -! JVS(317) = Jac_FULL(45,58) - JVS(317) = -B(143) -! JVS(318) = Jac_FULL(45,59) - JVS(318) = -B(124) -! JVS(319) = Jac_FULL(46,19) - JVS(319) = B(22) -! JVS(320) = Jac_FULL(46,24) - JVS(320) = -B(174) -! JVS(321) = Jac_FULL(46,27) - JVS(321) = -B(180) -! JVS(322) = Jac_FULL(46,28) - JVS(322) = -B(176) -! JVS(323) = Jac_FULL(46,29) - JVS(323) = -B(178) -! JVS(324) = Jac_FULL(46,46) - JVS(324) = -B(2)-B(3)-B(30)-B(32)-B(34)-B(50)-B(175)-B(177)-B(179)-B(181) -! JVS(325) = Jac_FULL(46,51) - JVS(325) = -B(35) -! JVS(326) = Jac_FULL(46,53) - JVS(326) = -B(33) -! JVS(327) = Jac_FULL(46,54) - JVS(327) = 0 -! JVS(328) = Jac_FULL(46,58) - JVS(328) = -B(31) -! JVS(329) = Jac_FULL(46,59) - JVS(329) = -B(51) -! JVS(330) = Jac_FULL(47,32) - JVS(330) = B(267) -! JVS(331) = Jac_FULL(47,38) - JVS(331) = B(208) -! JVS(332) = Jac_FULL(47,41) - JVS(332) = 0.08*B(130) -! JVS(333) = Jac_FULL(47,44) - JVS(333) = 0.24*B(132) -! JVS(334) = Jac_FULL(47,46) - JVS(334) = 0 -! JVS(335) = Jac_FULL(47,47) - JVS(335) = -B(21)-B(116) -! JVS(336) = Jac_FULL(47,51) - JVS(336) = B(209) -! JVS(337) = Jac_FULL(47,52) - JVS(337) = 0 -! JVS(338) = Jac_FULL(47,53) - JVS(338) = -B(117) -! JVS(339) = Jac_FULL(47,54) - JVS(339) = 0 -! JVS(340) = Jac_FULL(47,55) - JVS(340) = 0 -! JVS(341) = Jac_FULL(47,56) - JVS(341) = 0.036*B(128) -! JVS(342) = Jac_FULL(47,58) - JVS(342) = 0.036*B(129)+0.08*B(131)+0.24*B(133) -! JVS(343) = Jac_FULL(47,59) - JVS(343) = B(268) -! JVS(344) = Jac_FULL(48,16) - JVS(344) = 0.075*B(78) -! JVS(345) = Jac_FULL(48,27) - JVS(345) = 0.5*B(180) -! JVS(346) = Jac_FULL(48,28) - JVS(346) = 0.5*B(176) -! JVS(347) = Jac_FULL(48,29) - JVS(347) = 0.72*B(178) -! JVS(348) = Jac_FULL(48,37) - JVS(348) = B(136)+0.75*B(221)+B(245) -! JVS(349) = Jac_FULL(48,38) - JVS(349) = B(152)+B(276)+B(278)+2*B(280) -! JVS(350) = Jac_FULL(48,40) - JVS(350) = 0.2*B(134)+0.35*B(219)+0.6*B(243) -! JVS(351) = Jac_FULL(48,41) - JVS(351) = 0.38*B(130)+0.41*B(215)+0.14*B(239) -! JVS(352) = Jac_FULL(48,42) - JVS(352) = B(14)+0.5*B(110) -! JVS(353) = Jac_FULL(48,44) - JVS(353) = 0.35*B(132)+0.46*B(217)+0.1*B(241) -! JVS(354) = Jac_FULL(48,45) - JVS(354) = 0 -! JVS(355) = Jac_FULL(48,46) - JVS(355) = 0.5*B(177)+0.72*B(179)+0.5*B(181) -! JVS(356) = Jac_FULL(48,47) - JVS(356) = 0.2*B(21) -! JVS(357) = Jac_FULL(48,48) - JVS(357) = -B(12)-B(98)-B(156) -! JVS(358) = Jac_FULL(48,49) - JVS(358) = 1.45*B(138)+0.725*B(223)+0.725*B(247) -! JVS(359) = Jac_FULL(48,50) - JVS(359) = 0 -! JVS(360) = Jac_FULL(48,51) - JVS(360) = 0 -! JVS(361) = Jac_FULL(48,52) - JVS(361) = 0.75*B(211)+0.15*B(213)+0.41*B(216)+0.46*B(218)+0.35*B(220)+0.75*B(222)+0.725*B(224)+B(277) -! JVS(362) = Jac_FULL(48,53) - JVS(362) = 0.075*B(79)-B(99)+0.5*B(111) -! JVS(363) = Jac_FULL(48,54) - JVS(363) = -B(157) -! JVS(364) = Jac_FULL(48,55) - JVS(364) = B(235)+0.2*B(237)+0.14*B(240)+0.1*B(242)+0.6*B(244)+B(246)+0.725*B(248)+B(279) -! JVS(365) = Jac_FULL(48,56) - JVS(365) = 0.75*B(128)+0.15*B(214)+0.2*B(238) -! JVS(366) = Jac_FULL(48,57) - JVS(366) = B(148)+0.75*B(212)+B(236) -! JVS(367) = Jac_FULL(48,58) - JVS(367) = 0.75*B(129)+0.38*B(131)+0.35*B(133)+0.2*B(135)+B(137)+1.45*B(139)+B(149)+B(153) -! JVS(368) = Jac_FULL(48,59) - JVS(368) = 0 -! JVS(369) = Jac_FULL(49,29) - JVS(369) = B(88) -! JVS(370) = Jac_FULL(49,46) - JVS(370) = 0 -! JVS(371) = Jac_FULL(49,49) - JVS(371) = -B(138)-B(196)-B(223)-B(247) -! JVS(372) = Jac_FULL(49,51) - JVS(372) = -B(197) -! JVS(373) = Jac_FULL(49,52) - JVS(373) = -B(224) -! JVS(374) = Jac_FULL(49,53) - JVS(374) = B(89) -! JVS(375) = Jac_FULL(49,54) - JVS(375) = 0 -! JVS(376) = Jac_FULL(49,55) - JVS(376) = -B(248) -! JVS(377) = Jac_FULL(49,58) - JVS(377) = -B(139) -! JVS(378) = Jac_FULL(49,59) - JVS(378) = 0 -! JVS(379) = Jac_FULL(50,33) - JVS(379) = B(100) -! JVS(380) = Jac_FULL(50,41) - JVS(380) = 0 -! JVS(381) = Jac_FULL(50,44) - JVS(381) = 0 -! JVS(382) = Jac_FULL(50,46) - JVS(382) = 0 -! JVS(383) = Jac_FULL(50,47) - JVS(383) = 0 -! JVS(384) = Jac_FULL(50,49) - JVS(384) = 0 -! JVS(385) = Jac_FULL(50,50) - JVS(385) = -B(150)-B(198)-B(225)-B(249) -! JVS(386) = Jac_FULL(50,51) - JVS(386) = -B(199) -! JVS(387) = Jac_FULL(50,52) - JVS(387) = -B(226) -! JVS(388) = Jac_FULL(50,53) - JVS(388) = B(101) -! JVS(389) = Jac_FULL(50,54) - JVS(389) = 0 -! JVS(390) = Jac_FULL(50,55) - JVS(390) = -B(250) -! JVS(391) = Jac_FULL(50,56) - JVS(391) = 0 -! JVS(392) = Jac_FULL(50,58) - JVS(392) = -B(151) -! JVS(393) = Jac_FULL(50,59) - JVS(393) = 0 -! JVS(394) = Jac_FULL(51,5) - JVS(394) = B(70) -! JVS(395) = Jac_FULL(51,10) - JVS(395) = 0.25*B(90) -! JVS(396) = Jac_FULL(51,11) - JVS(396) = 0.17*B(92) -! JVS(397) = Jac_FULL(51,14) - JVS(397) = B(44) -! JVS(398) = Jac_FULL(51,16) - JVS(398) = 0.17*B(78) -! JVS(399) = Jac_FULL(51,20) - JVS(399) = 0.65*B(6)+B(40) -! JVS(400) = Jac_FULL(51,21) - JVS(400) = B(13) -! JVS(401) = Jac_FULL(51,22) - JVS(401) = 0.1*B(94) -! JVS(402) = Jac_FULL(51,24) - JVS(402) = 0.12*B(174) -! JVS(403) = Jac_FULL(51,26) - JVS(403) = B(72) -! JVS(404) = Jac_FULL(51,27) - JVS(404) = 0.23*B(180) -! JVS(405) = Jac_FULL(51,28) - JVS(405) = 0.23*B(176) -! JVS(406) = Jac_FULL(51,29) - JVS(406) = 0.26*B(178) -! JVS(407) = Jac_FULL(51,30) - JVS(407) = B(20) -! JVS(408) = Jac_FULL(51,31) - JVS(408) = 0.8*B(18)+B(102)+B(158) -! JVS(409) = Jac_FULL(51,32) - JVS(409) = -B(269)+B(271) -! JVS(410) = Jac_FULL(51,34) - JVS(410) = B(19) -! JVS(411) = Jac_FULL(51,35) - JVS(411) = B(144)-B(202)+2*B(229)+B(252) -! JVS(412) = Jac_FULL(51,36) - JVS(412) = B(146)-B(204)+2*B(231)+B(254) -! JVS(413) = Jac_FULL(51,37) - JVS(413) = B(136)-B(194)+B(221)+0.5*B(245) -! JVS(414) = Jac_FULL(51,38) - JVS(414) = -B(208)+0.5*B(276) -! JVS(415) = Jac_FULL(51,39) - JVS(415) = -B(258)+B(260) -! JVS(416) = Jac_FULL(51,40) - JVS(416) = B(134)-B(192)+B(219)+0.5*B(243) -! JVS(417) = Jac_FULL(51,41) - JVS(417) = 0.92*B(130)-B(188)+B(215)+0.5*B(239) -! JVS(418) = Jac_FULL(51,42) - JVS(418) = B(14) -! JVS(419) = Jac_FULL(51,43) - JVS(419) = 2*B(11)+B(96)+B(154) -! JVS(420) = Jac_FULL(51,44) - JVS(420) = 0.76*B(132)-B(190)+B(217)+0.5*B(241) -! JVS(421) = Jac_FULL(51,45) - JVS(421) = 0.92*B(142)-B(206)+0.46*B(233)+0.92*B(256) -! JVS(422) = Jac_FULL(51,46) - JVS(422) = B(32)-B(34)+0.12*B(175)+0.23*B(177)+0.26*B(179)+0.23*B(181) -! JVS(423) = Jac_FULL(51,47) - JVS(423) = B(21) -! JVS(424) = Jac_FULL(51,48) - JVS(424) = B(12) -! JVS(425) = Jac_FULL(51,49) - JVS(425) = B(138)-B(196)+B(223)+0.5*B(247) -! JVS(426) = Jac_FULL(51,50) - JVS(426) = B(150)-B(198)+B(225)+0.5*B(249) -! JVS(427) = Jac_FULL(51,51) - JVS(427) = -B(35)-B(36)-B(38)-2*B(41)-2*B(42)-B(56)-B(68)-B(182)-B(184)-B(186)-B(189)-B(191)-B(193)-B(195)-B(197)& - &-B(199)-B(200)-B(203)-B(205)-B(207)-B(209)-B(259)-B(270) -! JVS(428) = Jac_FULL(51,52) - JVS(428) = B(126)-B(183)+B(210)+B(211)+B(213)+B(216)+B(218)+B(220)+B(222)+B(224)+B(226)+0.5*B(227)+2*B(230)+2*B(232)& - &+0.46*B(234)+B(261)+B(272)+0.5*B(277) -! JVS(429) = Jac_FULL(51,53) - JVS(429) = B(33)+B(45)-B(69)+B(71)+B(73)+0.17*B(79)+0.25*B(91)+0.17*B(93)+0.1*B(95)+B(97)+B(103) -! JVS(430) = Jac_FULL(51,54) - JVS(430) = -B(57)+B(155)+B(159) -! JVS(431) = Jac_FULL(51,55) - JVS(431) = -B(201)+0.5*B(228)+0.5*B(235)+0.5*B(237)+0.5*B(240)+0.5*B(242)+0.5*B(244)+0.5*B(246)+0.5*B(248)+0.5*B(250)& - &+B(253)+B(255)+0.92*B(257) -! JVS(432) = Jac_FULL(51,56) - JVS(432) = 0.964*B(128)-B(187)+B(214)+0.5*B(238) -! JVS(433) = Jac_FULL(51,57) - JVS(433) = B(148)-B(185)+B(212)+0.5*B(236) -! JVS(434) = Jac_FULL(51,58) - JVS(434) = -B(37)+B(127)+0.964*B(129)+0.92*B(131)+0.76*B(133)+B(135)+B(137)+B(139)+0.92*B(143)+B(145)+B(147)+B(149)& - &+B(151) -! JVS(435) = Jac_FULL(51,59) - JVS(435) = -B(39) -! JVS(436) = Jac_FULL(52,17) - JVS(436) = B(74) -! JVS(437) = Jac_FULL(52,18) - JVS(437) = B(15) -! JVS(438) = Jac_FULL(52,21) - JVS(438) = 0.5*B(108) -! JVS(439) = Jac_FULL(52,27) - JVS(439) = 0.22*B(180) -! JVS(440) = Jac_FULL(52,28) - JVS(440) = 0.22*B(176) -! JVS(441) = Jac_FULL(52,29) - JVS(441) = 0.31*B(178) -! JVS(442) = Jac_FULL(52,32) - JVS(442) = -B(271)+B(273) -! JVS(443) = Jac_FULL(52,35) - JVS(443) = -B(229)+B(252) -! JVS(444) = Jac_FULL(52,36) - JVS(444) = -B(231)+B(254) -! JVS(445) = Jac_FULL(52,37) - JVS(445) = -B(221)+0.5*B(245) -! JVS(446) = Jac_FULL(52,38) - JVS(446) = -B(276)+0.5*B(278) -! JVS(447) = Jac_FULL(52,39) - JVS(447) = -B(260)+B(262) -! JVS(448) = Jac_FULL(52,40) - JVS(448) = -B(219)+0.5*B(243) -! JVS(449) = Jac_FULL(52,41) - JVS(449) = -B(215)+0.5*B(239) -! JVS(450) = Jac_FULL(52,44) - JVS(450) = -B(217)+0.5*B(241) -! JVS(451) = Jac_FULL(52,45) - JVS(451) = -B(233)+B(256) -! JVS(452) = Jac_FULL(52,46) - JVS(452) = 0.22*B(177)+0.31*B(179)+0.22*B(181) -! JVS(453) = Jac_FULL(52,48) - JVS(453) = B(12) -! JVS(454) = Jac_FULL(52,49) - JVS(454) = -B(223)+0.5*B(247) -! JVS(455) = Jac_FULL(52,50) - JVS(455) = -B(225)+0.5*B(249) -! JVS(456) = Jac_FULL(52,51) - JVS(456) = -B(182) -! JVS(457) = Jac_FULL(52,52) - JVS(457) = -B(126)-B(183)-2*B(210)-B(211)-B(213)-B(216)-B(218)-B(220)-B(222)-B(224)-B(226)-0.5*B(227)-B(230)-B(232)& - &-B(234)-B(261)-B(272)-B(277) -! JVS(458) = Jac_FULL(52,53) - JVS(458) = B(75)+0.5*B(109) -! JVS(459) = Jac_FULL(52,54) - JVS(459) = 0 -! JVS(460) = Jac_FULL(52,55) - JVS(460) = B(140)-0.5*B(228)+0.5*B(235)+0.5*B(237)+0.5*B(240)+0.5*B(242)+0.5*B(244)+0.5*B(246)+0.5*B(248)+0.5*B(250)+2& - &*B(251)+B(253)+B(255)+B(257)+B(263)+B(274)+0.5*B(279) -! JVS(461) = Jac_FULL(52,56) - JVS(461) = -B(214)+0.5*B(238) -! JVS(462) = Jac_FULL(52,57) - JVS(462) = -B(212)+0.5*B(236) -! JVS(463) = Jac_FULL(52,58) - JVS(463) = -B(127)+B(141) -! JVS(464) = Jac_FULL(52,59) - JVS(464) = 0 -! JVS(465) = Jac_FULL(53,5) - JVS(465) = -B(70) -! JVS(466) = Jac_FULL(53,6) - JVS(466) = -B(76) -! JVS(467) = Jac_FULL(53,7) - JVS(467) = 2*B(28) -! JVS(468) = Jac_FULL(53,8) - JVS(468) = -B(80) -! JVS(469) = Jac_FULL(53,9) - JVS(469) = -B(82) -! JVS(470) = Jac_FULL(53,10) - JVS(470) = -B(90) -! JVS(471) = Jac_FULL(53,11) - JVS(471) = -B(92) -! JVS(472) = Jac_FULL(53,13) - JVS(472) = B(4) -! JVS(473) = Jac_FULL(53,14) - JVS(473) = 2*B(9)-B(44) -! JVS(474) = Jac_FULL(53,16) - JVS(474) = -B(78) -! JVS(475) = Jac_FULL(53,17) - JVS(475) = -B(74) -! JVS(476) = Jac_FULL(53,18) - JVS(476) = B(15)-B(112) -! JVS(477) = Jac_FULL(53,20) - JVS(477) = 0.35*B(6)-B(66) -! JVS(478) = Jac_FULL(53,21) - JVS(478) = B(13)-0.5*B(108) -! JVS(479) = Jac_FULL(53,22) - JVS(479) = -1.9*B(94) -! JVS(480) = Jac_FULL(53,23) - JVS(480) = -B(114) -! JVS(481) = Jac_FULL(53,24) - JVS(481) = -B(84) -! JVS(482) = Jac_FULL(53,25) - JVS(482) = B(5)-B(64) -! JVS(483) = Jac_FULL(53,26) - JVS(483) = -B(72) -! JVS(484) = Jac_FULL(53,27) - JVS(484) = -B(118)+0.1*B(180) -! JVS(485) = Jac_FULL(53,28) - JVS(485) = -B(86)+0.1*B(176) -! JVS(486) = Jac_FULL(53,29) - JVS(486) = -B(88)+0.14*B(178) -! JVS(487) = Jac_FULL(53,30) - JVS(487) = -B(106) -! JVS(488) = Jac_FULL(53,31) - JVS(488) = -B(102) -! JVS(489) = Jac_FULL(53,33) - JVS(489) = -B(100) -! JVS(490) = Jac_FULL(53,34) - JVS(490) = -B(104) -! JVS(491) = Jac_FULL(53,35) - JVS(491) = 0 -! JVS(492) = Jac_FULL(53,36) - JVS(492) = 0 -! JVS(493) = Jac_FULL(53,41) - JVS(493) = 0 -! JVS(494) = Jac_FULL(53,42) - JVS(494) = B(14)-0.5*B(110) -! JVS(495) = Jac_FULL(53,43) - JVS(495) = -B(96) -! JVS(496) = Jac_FULL(53,44) - JVS(496) = 0 -! JVS(497) = Jac_FULL(53,45) - JVS(497) = 0 -! JVS(498) = Jac_FULL(53,46) - JVS(498) = -B(32)+B(34)+0.1*B(177)+0.14*B(179)+0.1*B(181) -! JVS(499) = Jac_FULL(53,47) - JVS(499) = -B(116) -! JVS(500) = Jac_FULL(53,48) - JVS(500) = -B(98) -! JVS(501) = Jac_FULL(53,49) - JVS(501) = 0 -! JVS(502) = Jac_FULL(53,50) - JVS(502) = 0 -! JVS(503) = Jac_FULL(53,51) - JVS(503) = B(35)+B(36)-B(68) -! JVS(504) = Jac_FULL(53,52) - JVS(504) = 0 -! JVS(505) = Jac_FULL(53,53) - JVS(505) = -B(33)-B(45)-B(46)-B(62)-B(65)-B(67)-B(69)-B(71)-B(73)-B(75)-B(77)-B(79)-B(81)-B(83)-B(85)-B(87)-B(89)& - &-B(91)-B(93)-1.9*B(95)-B(97)-B(99)-B(101)-B(103)-B(105)-B(107)-0.5*B(109)-0.5*B(111)-B(113)-B(115)-B(117)& - &-B(119) -! JVS(506) = Jac_FULL(53,54) - JVS(506) = 0 -! JVS(507) = Jac_FULL(53,55) - JVS(507) = 0 -! JVS(508) = Jac_FULL(53,56) - JVS(508) = 0 -! JVS(509) = Jac_FULL(53,57) - JVS(509) = 0 -! JVS(510) = Jac_FULL(53,58) - JVS(510) = B(37)-B(47) -! JVS(511) = Jac_FULL(53,59) - JVS(511) = -B(63) -! JVS(512) = Jac_FULL(54,15) - JVS(512) = B(60) -! JVS(513) = Jac_FULL(54,20) - JVS(513) = 0.35*B(6) -! JVS(514) = Jac_FULL(54,22) - JVS(514) = -B(164) -! JVS(515) = Jac_FULL(54,23) - JVS(515) = B(114) -! JVS(516) = Jac_FULL(54,24) - JVS(516) = -B(166) -! JVS(517) = Jac_FULL(54,25) - JVS(517) = B(64) -! JVS(518) = Jac_FULL(54,27) - JVS(518) = -B(172) -! JVS(519) = Jac_FULL(54,28) - JVS(519) = -B(168) -! JVS(520) = Jac_FULL(54,29) - JVS(520) = -B(170) -! JVS(521) = Jac_FULL(54,30) - JVS(521) = -B(162) -! JVS(522) = Jac_FULL(54,31) - JVS(522) = -B(158) -! JVS(523) = Jac_FULL(54,34) - JVS(523) = -B(160) -! JVS(524) = Jac_FULL(54,35) - JVS(524) = 0 -! JVS(525) = Jac_FULL(54,36) - JVS(525) = 0 -! JVS(526) = Jac_FULL(54,43) - JVS(526) = -B(154) -! JVS(527) = Jac_FULL(54,44) - JVS(527) = 0 -! JVS(528) = Jac_FULL(54,45) - JVS(528) = 0 -! JVS(529) = Jac_FULL(54,46) - JVS(529) = B(50) -! JVS(530) = Jac_FULL(54,48) - JVS(530) = -B(156) -! JVS(531) = Jac_FULL(54,49) - JVS(531) = 0 -! JVS(532) = Jac_FULL(54,50) - JVS(532) = 0 -! JVS(533) = Jac_FULL(54,51) - JVS(533) = -B(56) -! JVS(534) = Jac_FULL(54,52) - JVS(534) = 0 -! JVS(535) = Jac_FULL(54,53) - JVS(535) = B(65)+B(115) -! JVS(536) = Jac_FULL(54,54) - JVS(536) = -B(7)-B(8)-B(52)-B(54)-B(57)-B(58)-B(155)-B(157)-B(159)-B(161)-B(163)-B(165)-B(167)-B(169)-B(171)-B(173) -! JVS(537) = Jac_FULL(54,55) - JVS(537) = 0 -! JVS(538) = Jac_FULL(54,56) - JVS(538) = 0 -! JVS(539) = Jac_FULL(54,57) - JVS(539) = 0 -! JVS(540) = Jac_FULL(54,58) - JVS(540) = -B(53) -! JVS(541) = Jac_FULL(54,59) - JVS(541) = B(51)-B(55)-B(59) -! JVS(542) = Jac_FULL(55,18) - JVS(542) = B(112) -! JVS(543) = Jac_FULL(55,23) - JVS(543) = B(122) -! JVS(544) = Jac_FULL(55,32) - JVS(544) = -B(273) -! JVS(545) = Jac_FULL(55,33) - JVS(545) = B(16) -! JVS(546) = Jac_FULL(55,34) - JVS(546) = B(19)+B(104)+B(160) -! JVS(547) = Jac_FULL(55,35) - JVS(547) = -B(252) -! JVS(548) = Jac_FULL(55,36) - JVS(548) = -B(254) -! JVS(549) = Jac_FULL(55,37) - JVS(549) = -B(245) -! JVS(550) = Jac_FULL(55,38) - JVS(550) = -B(278) -! JVS(551) = Jac_FULL(55,39) - JVS(551) = -B(262) -! JVS(552) = Jac_FULL(55,40) - JVS(552) = -B(243) -! JVS(553) = Jac_FULL(55,41) - JVS(553) = -B(239) -! JVS(554) = Jac_FULL(55,44) - JVS(554) = -B(241) -! JVS(555) = Jac_FULL(55,45) - JVS(555) = 0.05*B(142)+0.025*B(233)-0.95*B(256) -! JVS(556) = Jac_FULL(55,46) - JVS(556) = 0 -! JVS(557) = Jac_FULL(55,47) - JVS(557) = 0 -! JVS(558) = Jac_FULL(55,48) - JVS(558) = B(98)+B(156) -! JVS(559) = Jac_FULL(55,49) - JVS(559) = -B(247) -! JVS(560) = Jac_FULL(55,50) - JVS(560) = -B(249) -! JVS(561) = Jac_FULL(55,51) - JVS(561) = -B(200) -! JVS(562) = Jac_FULL(55,52) - JVS(562) = -B(227)+0.025*B(234) -! JVS(563) = Jac_FULL(55,53) - JVS(563) = B(99)+B(105)+B(113) -! JVS(564) = Jac_FULL(55,54) - JVS(564) = B(157)+B(161) -! JVS(565) = Jac_FULL(55,55) - JVS(565) = -B(120)-B(140)-B(201)-B(228)-B(235)-B(237)-B(240)-B(242)-B(244)-B(246)-B(248)-B(250)-2*B(251)-B(253)-B(255)& - &-0.95*B(257)-B(263)-B(274)-B(279) -! JVS(566) = Jac_FULL(55,56) - JVS(566) = -B(238) -! JVS(567) = Jac_FULL(55,57) - JVS(567) = -B(236) -! JVS(568) = Jac_FULL(55,58) - JVS(568) = -B(141)+0.05*B(143) -! JVS(569) = Jac_FULL(55,59) - JVS(569) = -B(121) -! JVS(570) = Jac_FULL(56,16) - JVS(570) = 0.83*B(78) -! JVS(571) = Jac_FULL(56,42) - JVS(571) = 0.5*B(110) -! JVS(572) = Jac_FULL(56,44) - JVS(572) = 0 -! JVS(573) = Jac_FULL(56,45) - JVS(573) = 0 -! JVS(574) = Jac_FULL(56,46) - JVS(574) = 0 -! JVS(575) = Jac_FULL(56,47) - JVS(575) = B(116) -! JVS(576) = Jac_FULL(56,49) - JVS(576) = 0 -! JVS(577) = Jac_FULL(56,50) - JVS(577) = 0 -! JVS(578) = Jac_FULL(56,51) - JVS(578) = -B(186) -! JVS(579) = Jac_FULL(56,52) - JVS(579) = -B(213) -! JVS(580) = Jac_FULL(56,53) - JVS(580) = 0.83*B(79)+0.5*B(111)+B(117) -! JVS(581) = Jac_FULL(56,54) - JVS(581) = 0 -! JVS(582) = Jac_FULL(56,55) - JVS(582) = -B(237) -! JVS(583) = Jac_FULL(56,56) - JVS(583) = -B(128)-B(187)-B(214)-B(238) -! JVS(584) = Jac_FULL(56,57) - JVS(584) = 0 -! JVS(585) = Jac_FULL(56,58) - JVS(585) = -B(129) -! JVS(586) = Jac_FULL(56,59) - JVS(586) = 0 -! JVS(587) = Jac_FULL(57,6) - JVS(587) = B(76) -! JVS(588) = Jac_FULL(57,33) - JVS(588) = B(16) -! JVS(589) = Jac_FULL(57,41) - JVS(589) = 0 -! JVS(590) = Jac_FULL(57,44) - JVS(590) = 0 -! JVS(591) = Jac_FULL(57,46) - JVS(591) = 0 -! JVS(592) = Jac_FULL(57,47) - JVS(592) = 0 -! JVS(593) = Jac_FULL(57,49) - JVS(593) = 0 -! JVS(594) = Jac_FULL(57,51) - JVS(594) = -B(184) -! JVS(595) = Jac_FULL(57,52) - JVS(595) = -B(211) -! JVS(596) = Jac_FULL(57,53) - JVS(596) = B(77) -! JVS(597) = Jac_FULL(57,54) - JVS(597) = 0 -! JVS(598) = Jac_FULL(57,55) - JVS(598) = -B(235) -! JVS(599) = Jac_FULL(57,56) - JVS(599) = 0 -! JVS(600) = Jac_FULL(57,57) - JVS(600) = -B(148)-B(185)-B(212)-B(236) -! JVS(601) = Jac_FULL(57,58) - JVS(601) = -B(149) -! JVS(602) = Jac_FULL(57,59) - JVS(602) = 0 -! JVS(603) = Jac_FULL(58,13) - JVS(603) = B(4) -! JVS(604) = Jac_FULL(58,19) - JVS(604) = B(24) -! JVS(605) = Jac_FULL(58,35) - JVS(605) = -B(144) -! JVS(606) = Jac_FULL(58,36) - JVS(606) = -B(146) -! JVS(607) = Jac_FULL(58,37) - JVS(607) = -B(136) -! JVS(608) = Jac_FULL(58,38) - JVS(608) = -B(152) -! JVS(609) = Jac_FULL(58,39) - JVS(609) = -B(265) -! JVS(610) = Jac_FULL(58,40) - JVS(610) = -B(134) -! JVS(611) = Jac_FULL(58,41) - JVS(611) = -B(130) -! JVS(612) = Jac_FULL(58,44) - JVS(612) = -B(132) -! JVS(613) = Jac_FULL(58,45) - JVS(613) = -B(142) -! JVS(614) = Jac_FULL(58,46) - JVS(614) = -B(30) -! JVS(615) = Jac_FULL(58,49) - JVS(615) = -B(138) -! JVS(616) = Jac_FULL(58,50) - JVS(616) = -B(150) -! JVS(617) = Jac_FULL(58,51) - JVS(617) = -B(36) -! JVS(618) = Jac_FULL(58,52) - JVS(618) = -B(126) -! JVS(619) = Jac_FULL(58,53) - JVS(619) = -B(46) -! JVS(620) = Jac_FULL(58,54) - JVS(620) = B(7)-B(52)+B(54) -! JVS(621) = Jac_FULL(58,55) - JVS(621) = -B(140) -! JVS(622) = Jac_FULL(58,56) - JVS(622) = -B(128) -! JVS(623) = Jac_FULL(58,57) - JVS(623) = -B(148) -! JVS(624) = Jac_FULL(58,58) - JVS(624) = -B(31)-B(37)-B(47)-2*B(48)-B(53)-B(127)-B(129)-B(131)-B(133)-B(135)-B(137)-B(139)-B(141)-B(143)-B(145)& - &-B(147)-B(149)-B(151)-B(153)-B(266) -! JVS(625) = Jac_FULL(58,59) - JVS(625) = B(1)+B(25)+B(55) -! JVS(626) = Jac_FULL(59,12) - JVS(626) = B(125) -! JVS(627) = Jac_FULL(59,15) - JVS(627) = B(60) -! JVS(628) = Jac_FULL(59,19) - JVS(628) = -B(24) -! JVS(629) = Jac_FULL(59,20) - JVS(629) = 0.65*B(6)+B(40)+B(66) -! JVS(630) = Jac_FULL(59,23) - JVS(630) = B(122) -! JVS(631) = Jac_FULL(59,25) - JVS(631) = B(5) -! JVS(632) = Jac_FULL(59,30) - JVS(632) = 0 -! JVS(633) = Jac_FULL(59,31) - JVS(633) = 0 -! JVS(634) = Jac_FULL(59,32) - JVS(634) = -B(267) -! JVS(635) = Jac_FULL(59,34) - JVS(635) = 0 -! JVS(636) = Jac_FULL(59,35) - JVS(636) = B(144) -! JVS(637) = Jac_FULL(59,36) - JVS(637) = B(146) -! JVS(638) = Jac_FULL(59,37) - JVS(638) = B(136) -! JVS(639) = Jac_FULL(59,38) - JVS(639) = 2*B(152)+B(276)+B(278)+2*B(280) -! JVS(640) = Jac_FULL(59,39) - JVS(640) = B(265) -! JVS(641) = Jac_FULL(59,40) - JVS(641) = B(134) -! JVS(642) = Jac_FULL(59,41) - JVS(642) = 0.92*B(130) -! JVS(643) = Jac_FULL(59,43) - JVS(643) = 0 -! JVS(644) = Jac_FULL(59,44) - JVS(644) = 0.76*B(132) -! JVS(645) = Jac_FULL(59,45) - JVS(645) = -B(123)+B(142) -! JVS(646) = Jac_FULL(59,46) - JVS(646) = B(30)-B(50) -! JVS(647) = Jac_FULL(59,47) - JVS(647) = B(21)+B(116) -! JVS(648) = Jac_FULL(59,48) - JVS(648) = 0 -! JVS(649) = Jac_FULL(59,49) - JVS(649) = B(138) -! JVS(650) = Jac_FULL(59,50) - JVS(650) = B(150) -! JVS(651) = Jac_FULL(59,51) - JVS(651) = B(36)-B(38) -! JVS(652) = Jac_FULL(59,52) - JVS(652) = B(126)+B(277) -! JVS(653) = Jac_FULL(59,53) - JVS(653) = -B(62)+B(67)+B(117) -! JVS(654) = Jac_FULL(59,54) - JVS(654) = B(8)+2*B(52)-B(58) -! JVS(655) = Jac_FULL(59,55) - JVS(655) = -B(120)+B(140)+B(279) -! JVS(656) = Jac_FULL(59,56) - JVS(656) = 0.964*B(128) -! JVS(657) = Jac_FULL(59,57) - JVS(657) = B(148) -! JVS(658) = Jac_FULL(59,58) - JVS(658) = B(31)+B(37)+2*B(48)+2*B(53)+B(127)+0.964*B(129)+0.92*B(131)+0.76*B(133)+B(135)+B(137)+B(139)+B(141)+B(143)& - &+B(145)+B(147)+B(149)+B(151)+2*B(153)+B(266) -! JVS(659) = Jac_FULL(59,59) - JVS(659) = -B(1)-B(25)-B(39)-B(51)-B(59)-B(63)-B(121)-B(124)-B(268) - -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(5)+JVS(3)*UV(53) - JUV(2) = JVS(4)*UV(2)+JVS(5)*UV(24)+JVS(6)*UV(27)+JVS(7)*UV(28)+JVS(8)*UV(29)+JVS(9)*UV(46) - JUV(3) = JVS(10)*UV(3)+JVS(11)*UV(27)+JVS(12)*UV(28)+JVS(13)*UV(29)+JVS(14)*UV(37)+JVS(15)*UV(38)+JVS(16)*UV(40)& - &+JVS(17)*UV(41)+JVS(18)*UV(44)+JVS(19)*UV(45)+JVS(20)*UV(46)+JVS(21)*UV(49)+JVS(22)*UV(50)+JVS(23)*UV(52)& - &+JVS(24)*UV(55)+JVS(25)*UV(56)+JVS(26)*UV(57) - JUV(4) = JVS(27)*UV(4)+JVS(28)*UV(26)+JVS(29)*UV(53) - JUV(5) = JVS(30)*UV(5)+JVS(31)*UV(53) - JUV(6) = JVS(32)*UV(6)+JVS(33)*UV(53) - JUV(7) = JVS(34)*UV(7)+JVS(35)*UV(46) - JUV(8) = JVS(36)*UV(8)+JVS(37)*UV(53) - JUV(9) = JVS(38)*UV(9)+JVS(39)*UV(53) - JUV(10) = JVS(40)*UV(10)+JVS(41)*UV(53) - JUV(11) = JVS(42)*UV(11)+JVS(43)*UV(53) - JUV(12) = JVS(44)*UV(12)+JVS(45)*UV(45)+JVS(46)*UV(59) - JUV(13) = JVS(47)*UV(13)+JVS(48)*UV(53)+JVS(49)*UV(58) - JUV(14) = JVS(50)*UV(14)+JVS(51)*UV(51)+JVS(52)*UV(53) - JUV(15) = JVS(53)*UV(15)+JVS(54)*UV(54)+JVS(55)*UV(59) - JUV(16) = JVS(56)*UV(16)+JVS(57)*UV(53) - JUV(17) = JVS(58)*UV(17)+JVS(59)*UV(28)+JVS(60)*UV(29)+JVS(61)*UV(46)+JVS(62)*UV(53) - JUV(18) = JVS(63)*UV(18)+JVS(64)*UV(51)+JVS(65)*UV(53)+JVS(66)*UV(55) - JUV(19) = JVS(67)*UV(7)+JVS(68)*UV(19)+JVS(69)*UV(46)+JVS(70)*UV(54)+JVS(71)*UV(59) - JUV(20) = JVS(72)*UV(20)+JVS(73)*UV(51)+JVS(74)*UV(53)+JVS(75)*UV(59) - JUV(21) = JVS(76)*UV(21)+JVS(77)*UV(51)+JVS(78)*UV(52)+JVS(79)*UV(53) - JUV(22) = JVS(80)*UV(10)+JVS(81)*UV(11)+JVS(82)*UV(22)+JVS(83)*UV(53)+JVS(84)*UV(54) - JUV(23) = JVS(85)*UV(23)+JVS(86)*UV(53)+JVS(87)*UV(55)+JVS(88)*UV(59) - JUV(24) = JVS(89)*UV(24)+JVS(90)*UV(46)+JVS(91)*UV(53)+JVS(92)*UV(54) - JUV(25) = JVS(93)*UV(15)+JVS(94)*UV(22)+JVS(95)*UV(25)+JVS(96)*UV(30)+JVS(97)*UV(31)+JVS(98)*UV(34)+JVS(99)*UV(43)& - &+JVS(100)*UV(48)+JVS(101)*UV(51)+JVS(102)*UV(53)+JVS(103)*UV(54)+JVS(104)*UV(59) - JUV(26) = JVS(105)*UV(24)+JVS(106)*UV(26)+JVS(107)*UV(27)+JVS(108)*UV(28)+JVS(109)*UV(29)+JVS(110)*UV(31)+JVS(111)& - &*UV(34)+JVS(112)*UV(43)+JVS(113)*UV(45)+JVS(114)*UV(46)+JVS(115)*UV(48)+JVS(116)*UV(52)+JVS(117)*UV(53)& - &+JVS(118)*UV(54)+JVS(119)*UV(55)+JVS(120)*UV(58) - JUV(27) = JVS(121)*UV(27)+JVS(122)*UV(46)+JVS(123)*UV(53)+JVS(124)*UV(54) - JUV(28) = JVS(125)*UV(28)+JVS(126)*UV(46)+JVS(127)*UV(53)+JVS(128)*UV(54) - JUV(29) = JVS(129)*UV(29)+JVS(130)*UV(46)+JVS(131)*UV(53)+JVS(132)*UV(54) - JUV(30) = JVS(133)*UV(30)+JVS(134)*UV(35)+JVS(135)*UV(36)+JVS(136)*UV(52)+JVS(137)*UV(53)+JVS(138)*UV(54)+JVS(139)& - &*UV(55)+JVS(140)*UV(58) - JUV(31) = JVS(141)*UV(31)+JVS(142)*UV(35)+JVS(143)*UV(45)+JVS(144)*UV(52)+JVS(145)*UV(53)+JVS(146)*UV(54)+JVS(147)& - &*UV(55)+JVS(148)*UV(58) - JUV(32) = JVS(149)*UV(22)+JVS(150)*UV(32)+JVS(151)*UV(51)+JVS(152)*UV(52)+JVS(154)*UV(54)+JVS(155)*UV(55)+JVS(156)& - &*UV(59) - JUV(33) = JVS(157)*UV(16)+JVS(158)*UV(29)+JVS(159)*UV(33)+JVS(160)*UV(41)+JVS(161)*UV(44)+JVS(162)*UV(46)+JVS(163)& - &*UV(47)+JVS(164)*UV(49)+JVS(165)*UV(52)+JVS(166)*UV(53)+JVS(168)*UV(55)+JVS(169)*UV(56)+JVS(170)*UV(58) - JUV(34) = JVS(171)*UV(34)+JVS(172)*UV(35)+JVS(173)*UV(36)+JVS(174)*UV(45)+JVS(175)*UV(50)+JVS(176)*UV(52)+JVS(177)& - &*UV(53)+JVS(178)*UV(54)+JVS(179)*UV(55)+JVS(180)*UV(58) - JUV(35) = JVS(181)*UV(10)+JVS(182)*UV(35)+JVS(183)*UV(51)+JVS(184)*UV(52)+JVS(185)*UV(53)+JVS(186)*UV(55)+JVS(187)& - &*UV(58) - JUV(36) = JVS(188)*UV(11)+JVS(189)*UV(36)+JVS(190)*UV(51)+JVS(191)*UV(52)+JVS(192)*UV(53)+JVS(193)*UV(55)+JVS(194)& - &*UV(58) - JUV(37) = JVS(195)*UV(27)+JVS(196)*UV(28)+JVS(197)*UV(37)+JVS(199)*UV(51)+JVS(200)*UV(52)+JVS(201)*UV(53)+JVS(203)& - &*UV(55)+JVS(204)*UV(58) - JUV(38) = JVS(205)*UV(24)+JVS(206)*UV(27)+JVS(207)*UV(28)+JVS(208)*UV(29)+JVS(209)*UV(38)+JVS(211)*UV(51)+JVS(212)& - &*UV(52)+JVS(214)*UV(54)+JVS(215)*UV(55)+JVS(216)*UV(58) - JUV(39) = JVS(217)*UV(8)+JVS(218)*UV(9)+JVS(219)*UV(22)+JVS(220)*UV(23)+JVS(221)*UV(39)+JVS(222)*UV(45)+JVS(223)& - &*UV(51)+JVS(224)*UV(52)+JVS(225)*UV(53)+JVS(227)*UV(55)+JVS(228)*UV(58) - JUV(40) = JVS(230)*UV(24)+JVS(231)*UV(40)+JVS(233)*UV(51)+JVS(234)*UV(52)+JVS(235)*UV(53)+JVS(237)*UV(55)+JVS(238)& - &*UV(58) - JUV(41) = JVS(239)*UV(8)+JVS(240)*UV(41)+JVS(241)*UV(51)+JVS(242)*UV(52)+JVS(243)*UV(53)+JVS(244)*UV(55)+JVS(245)& - &*UV(58) - JUV(42) = JVS(246)*UV(32)+JVS(247)*UV(35)+JVS(248)*UV(36)+JVS(249)*UV(37)+JVS(250)*UV(39)+JVS(251)*UV(40)+JVS(252)& - &*UV(41)+JVS(253)*UV(42)+JVS(254)*UV(44)+JVS(255)*UV(45)+JVS(257)*UV(49)+JVS(258)*UV(50)+JVS(259)*UV(51)& - &+JVS(261)*UV(53)+JVS(264)*UV(56)+JVS(265)*UV(57) - JUV(43) = JVS(268)*UV(16)+JVS(269)*UV(21)+JVS(270)*UV(23)+JVS(271)*UV(24)+JVS(272)*UV(27)+JVS(273)*UV(28)+JVS(274)& - &*UV(29)+JVS(275)*UV(31)+JVS(276)*UV(32)+JVS(277)*UV(35)+JVS(278)*UV(36)+JVS(279)*UV(37)+JVS(280)*UV(38)& - &+JVS(281)*UV(39)+JVS(282)*UV(40)+JVS(283)*UV(41)+JVS(284)*UV(43)+JVS(285)*UV(44)+JVS(286)*UV(45)+JVS(287)& - &*UV(46)+JVS(288)*UV(49)+JVS(289)*UV(50)+JVS(291)*UV(52)+JVS(292)*UV(53)+JVS(293)*UV(54)+JVS(294)*UV(55)& - &+JVS(295)*UV(56)+JVS(296)*UV(57)+JVS(297)*UV(58) - JUV(44) = JVS(299)*UV(9)+JVS(300)*UV(44)+JVS(301)*UV(51)+JVS(302)*UV(52)+JVS(303)*UV(53)+JVS(304)*UV(55)+JVS(305)& - &*UV(58) - JUV(45) = JVS(306)*UV(12)+JVS(307)*UV(22)+JVS(308)*UV(30)+JVS(311)*UV(45)+JVS(312)*UV(51)+JVS(313)*UV(52)+JVS(314)& - &*UV(53)+JVS(315)*UV(54)+JVS(316)*UV(55)+JVS(317)*UV(58)+JVS(318)*UV(59) - JUV(46) = JVS(319)*UV(19)+JVS(320)*UV(24)+JVS(321)*UV(27)+JVS(322)*UV(28)+JVS(323)*UV(29)+JVS(324)*UV(46)+JVS(325)& - &*UV(51)+JVS(326)*UV(53)+JVS(328)*UV(58)+JVS(329)*UV(59) - JUV(47) = JVS(330)*UV(32)+JVS(331)*UV(38)+JVS(332)*UV(41)+JVS(333)*UV(44)+JVS(335)*UV(47)+JVS(336)*UV(51)+JVS(338)& - &*UV(53)+JVS(341)*UV(56)+JVS(342)*UV(58)+JVS(343)*UV(59) - JUV(48) = JVS(344)*UV(16)+JVS(345)*UV(27)+JVS(346)*UV(28)+JVS(347)*UV(29)+JVS(348)*UV(37)+JVS(349)*UV(38)+JVS(350)& - &*UV(40)+JVS(351)*UV(41)+JVS(352)*UV(42)+JVS(353)*UV(44)+JVS(355)*UV(46)+JVS(356)*UV(47)+JVS(357)*UV(48)& - &+JVS(358)*UV(49)+JVS(361)*UV(52)+JVS(362)*UV(53)+JVS(363)*UV(54)+JVS(364)*UV(55)+JVS(365)*UV(56)+JVS(366)& - &*UV(57)+JVS(367)*UV(58) - JUV(49) = JVS(369)*UV(29)+JVS(371)*UV(49)+JVS(372)*UV(51)+JVS(373)*UV(52)+JVS(374)*UV(53)+JVS(376)*UV(55)+JVS(377)& - &*UV(58) - JUV(50) = JVS(379)*UV(33)+JVS(385)*UV(50)+JVS(386)*UV(51)+JVS(387)*UV(52)+JVS(388)*UV(53)+JVS(390)*UV(55)+JVS(392)& - &*UV(58) - JUV(51) = JVS(394)*UV(5)+JVS(395)*UV(10)+JVS(396)*UV(11)+JVS(397)*UV(14)+JVS(398)*UV(16)+JVS(399)*UV(20)+JVS(400)& - &*UV(21)+JVS(401)*UV(22)+JVS(402)*UV(24)+JVS(403)*UV(26)+JVS(404)*UV(27)+JVS(405)*UV(28)+JVS(406)*UV(29)& - &+JVS(407)*UV(30)+JVS(408)*UV(31)+JVS(409)*UV(32)+JVS(410)*UV(34)+JVS(411)*UV(35)+JVS(412)*UV(36)+JVS(413)& - &*UV(37)+JVS(414)*UV(38)+JVS(415)*UV(39)+JVS(416)*UV(40)+JVS(417)*UV(41)+JVS(418)*UV(42)+JVS(419)*UV(43)& - &+JVS(420)*UV(44)+JVS(421)*UV(45)+JVS(422)*UV(46)+JVS(423)*UV(47)+JVS(424)*UV(48)+JVS(425)*UV(49)+JVS(426)& - &*UV(50)+JVS(427)*UV(51)+JVS(428)*UV(52)+JVS(429)*UV(53)+JVS(430)*UV(54)+JVS(431)*UV(55)+JVS(432)*UV(56)& - &+JVS(433)*UV(57)+JVS(434)*UV(58)+JVS(435)*UV(59) - JUV(52) = JVS(436)*UV(17)+JVS(437)*UV(18)+JVS(438)*UV(21)+JVS(439)*UV(27)+JVS(440)*UV(28)+JVS(441)*UV(29)+JVS(442)& - &*UV(32)+JVS(443)*UV(35)+JVS(444)*UV(36)+JVS(445)*UV(37)+JVS(446)*UV(38)+JVS(447)*UV(39)+JVS(448)*UV(40)& - &+JVS(449)*UV(41)+JVS(450)*UV(44)+JVS(451)*UV(45)+JVS(452)*UV(46)+JVS(453)*UV(48)+JVS(454)*UV(49)+JVS(455)& - &*UV(50)+JVS(456)*UV(51)+JVS(457)*UV(52)+JVS(458)*UV(53)+JVS(460)*UV(55)+JVS(461)*UV(56)+JVS(462)*UV(57)& - &+JVS(463)*UV(58) - JUV(53) = JVS(465)*UV(5)+JVS(466)*UV(6)+JVS(467)*UV(7)+JVS(468)*UV(8)+JVS(469)*UV(9)+JVS(470)*UV(10)+JVS(471)*UV(11)& - &+JVS(472)*UV(13)+JVS(473)*UV(14)+JVS(474)*UV(16)+JVS(475)*UV(17)+JVS(476)*UV(18)+JVS(477)*UV(20)+JVS(478)& - &*UV(21)+JVS(479)*UV(22)+JVS(480)*UV(23)+JVS(481)*UV(24)+JVS(482)*UV(25)+JVS(483)*UV(26)+JVS(484)*UV(27)& - &+JVS(485)*UV(28)+JVS(486)*UV(29)+JVS(487)*UV(30)+JVS(488)*UV(31)+JVS(489)*UV(33)+JVS(490)*UV(34)+JVS(494)& - &*UV(42)+JVS(495)*UV(43)+JVS(498)*UV(46)+JVS(499)*UV(47)+JVS(500)*UV(48)+JVS(503)*UV(51)+JVS(505)*UV(53)& - &+JVS(510)*UV(58)+JVS(511)*UV(59) - JUV(54) = JVS(512)*UV(15)+JVS(513)*UV(20)+JVS(514)*UV(22)+JVS(515)*UV(23)+JVS(516)*UV(24)+JVS(517)*UV(25)+JVS(518)& - &*UV(27)+JVS(519)*UV(28)+JVS(520)*UV(29)+JVS(521)*UV(30)+JVS(522)*UV(31)+JVS(523)*UV(34)+JVS(526)*UV(43)& - &+JVS(529)*UV(46)+JVS(530)*UV(48)+JVS(533)*UV(51)+JVS(535)*UV(53)+JVS(536)*UV(54)+JVS(540)*UV(58)+JVS(541)& - &*UV(59) - JUV(55) = JVS(542)*UV(18)+JVS(543)*UV(23)+JVS(544)*UV(32)+JVS(545)*UV(33)+JVS(546)*UV(34)+JVS(547)*UV(35)+JVS(548)& - &*UV(36)+JVS(549)*UV(37)+JVS(550)*UV(38)+JVS(551)*UV(39)+JVS(552)*UV(40)+JVS(553)*UV(41)+JVS(554)*UV(44)& - &+JVS(555)*UV(45)+JVS(558)*UV(48)+JVS(559)*UV(49)+JVS(560)*UV(50)+JVS(561)*UV(51)+JVS(562)*UV(52)+JVS(563)& - &*UV(53)+JVS(564)*UV(54)+JVS(565)*UV(55)+JVS(566)*UV(56)+JVS(567)*UV(57)+JVS(568)*UV(58)+JVS(569)*UV(59) - JUV(56) = JVS(570)*UV(16)+JVS(571)*UV(42)+JVS(575)*UV(47)+JVS(578)*UV(51)+JVS(579)*UV(52)+JVS(580)*UV(53)+JVS(582)& - &*UV(55)+JVS(583)*UV(56)+JVS(585)*UV(58) - JUV(57) = JVS(587)*UV(6)+JVS(588)*UV(33)+JVS(594)*UV(51)+JVS(595)*UV(52)+JVS(596)*UV(53)+JVS(598)*UV(55)+JVS(600)& - &*UV(57)+JVS(601)*UV(58) - JUV(58) = JVS(603)*UV(13)+JVS(604)*UV(19)+JVS(605)*UV(35)+JVS(606)*UV(36)+JVS(607)*UV(37)+JVS(608)*UV(38)+JVS(609)& - &*UV(39)+JVS(610)*UV(40)+JVS(611)*UV(41)+JVS(612)*UV(44)+JVS(613)*UV(45)+JVS(614)*UV(46)+JVS(615)*UV(49)& - &+JVS(616)*UV(50)+JVS(617)*UV(51)+JVS(618)*UV(52)+JVS(619)*UV(53)+JVS(620)*UV(54)+JVS(621)*UV(55)+JVS(622)& - &*UV(56)+JVS(623)*UV(57)+JVS(624)*UV(58)+JVS(625)*UV(59) - JUV(59) = JVS(626)*UV(12)+JVS(627)*UV(15)+JVS(628)*UV(19)+JVS(629)*UV(20)+JVS(630)*UV(23)+JVS(631)*UV(25)+JVS(634)& - &*UV(32)+JVS(636)*UV(35)+JVS(637)*UV(36)+JVS(638)*UV(37)+JVS(639)*UV(38)+JVS(640)*UV(39)+JVS(641)*UV(40)& - &+JVS(642)*UV(41)+JVS(644)*UV(44)+JVS(645)*UV(45)+JVS(646)*UV(46)+JVS(647)*UV(47)+JVS(649)*UV(49)+JVS(650)& - &*UV(50)+JVS(651)*UV(51)+JVS(652)*UV(52)+JVS(653)*UV(53)+JVS(654)*UV(54)+JVS(655)*UV(55)+JVS(656)*UV(56)& - &+JVS(657)*UV(57)+JVS(658)*UV(58)+JVS(659)*UV(59) - -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(4)*UV(2) - JTUV(3) = JVS(10)*UV(3) - JTUV(4) = JVS(27)*UV(4) - JTUV(5) = JVS(2)*UV(1)+JVS(30)*UV(5)+JVS(394)*UV(51)+JVS(465)*UV(53) - JTUV(6) = JVS(32)*UV(6)+JVS(466)*UV(53)+JVS(587)*UV(57) - JTUV(7) = JVS(34)*UV(7)+JVS(67)*UV(19)+JVS(467)*UV(53) - JTUV(8) = JVS(36)*UV(8)+JVS(217)*UV(39)+JVS(239)*UV(41)+JVS(468)*UV(53) - JTUV(9) = JVS(38)*UV(9)+JVS(218)*UV(39)+JVS(299)*UV(44)+JVS(469)*UV(53) - JTUV(10) = JVS(40)*UV(10)+JVS(80)*UV(22)+JVS(181)*UV(35)+JVS(395)*UV(51)+JVS(470)*UV(53) - JTUV(11) = JVS(42)*UV(11)+JVS(81)*UV(22)+JVS(188)*UV(36)+JVS(396)*UV(51)+JVS(471)*UV(53) - JTUV(12) = JVS(44)*UV(12)+JVS(306)*UV(45)+JVS(626)*UV(59) - JTUV(13) = JVS(47)*UV(13)+JVS(472)*UV(53)+JVS(603)*UV(58) - JTUV(14) = JVS(50)*UV(14)+JVS(397)*UV(51)+JVS(473)*UV(53) - JTUV(15) = JVS(53)*UV(15)+JVS(93)*UV(25)+JVS(512)*UV(54)+JVS(627)*UV(59) - JTUV(16) = JVS(56)*UV(16)+JVS(157)*UV(33)+JVS(268)*UV(43)+JVS(344)*UV(48)+JVS(398)*UV(51)+JVS(474)*UV(53)+JVS(570)& - &*UV(56) - JTUV(17) = JVS(58)*UV(17)+JVS(436)*UV(52)+JVS(475)*UV(53) - JTUV(18) = JVS(63)*UV(18)+JVS(437)*UV(52)+JVS(476)*UV(53)+JVS(542)*UV(55) - JTUV(19) = JVS(68)*UV(19)+JVS(319)*UV(46)+JVS(604)*UV(58)+JVS(628)*UV(59) - JTUV(20) = JVS(72)*UV(20)+JVS(399)*UV(51)+JVS(477)*UV(53)+JVS(513)*UV(54)+JVS(629)*UV(59) - JTUV(21) = JVS(76)*UV(21)+JVS(269)*UV(43)+JVS(400)*UV(51)+JVS(438)*UV(52)+JVS(478)*UV(53) - JTUV(22) = JVS(82)*UV(22)+JVS(94)*UV(25)+JVS(149)*UV(32)+JVS(219)*UV(39)+JVS(307)*UV(45)+JVS(401)*UV(51)+JVS(479)& - &*UV(53)+JVS(514)*UV(54) - JTUV(23) = JVS(85)*UV(23)+JVS(220)*UV(39)+JVS(270)*UV(43)+JVS(480)*UV(53)+JVS(515)*UV(54)+JVS(543)*UV(55)+JVS(630)& - &*UV(59) - JTUV(24) = JVS(5)*UV(2)+JVS(89)*UV(24)+JVS(105)*UV(26)+JVS(205)*UV(38)+JVS(230)*UV(40)+JVS(271)*UV(43)+JVS(320)*UV(46)& - &+JVS(402)*UV(51)+JVS(481)*UV(53)+JVS(516)*UV(54) - JTUV(25) = JVS(95)*UV(25)+JVS(482)*UV(53)+JVS(517)*UV(54)+JVS(631)*UV(59) - JTUV(26) = JVS(28)*UV(4)+JVS(106)*UV(26)+JVS(403)*UV(51)+JVS(483)*UV(53) - JTUV(27) = JVS(6)*UV(2)+JVS(11)*UV(3)+JVS(107)*UV(26)+JVS(121)*UV(27)+JVS(195)*UV(37)+JVS(206)*UV(38)+JVS(272)*UV(43)& - &+JVS(321)*UV(46)+JVS(345)*UV(48)+JVS(404)*UV(51)+JVS(439)*UV(52)+JVS(484)*UV(53)+JVS(518)*UV(54) - JTUV(28) = JVS(7)*UV(2)+JVS(12)*UV(3)+JVS(59)*UV(17)+JVS(108)*UV(26)+JVS(125)*UV(28)+JVS(196)*UV(37)+JVS(207)*UV(38)& - &+JVS(273)*UV(43)+JVS(322)*UV(46)+JVS(346)*UV(48)+JVS(405)*UV(51)+JVS(440)*UV(52)+JVS(485)*UV(53)+JVS(519)& - &*UV(54) - JTUV(29) = JVS(8)*UV(2)+JVS(13)*UV(3)+JVS(60)*UV(17)+JVS(109)*UV(26)+JVS(129)*UV(29)+JVS(158)*UV(33)+JVS(208)*UV(38)& - &+JVS(274)*UV(43)+JVS(323)*UV(46)+JVS(347)*UV(48)+JVS(369)*UV(49)+JVS(406)*UV(51)+JVS(441)*UV(52)+JVS(486)& - &*UV(53)+JVS(520)*UV(54) - JTUV(30) = JVS(96)*UV(25)+JVS(133)*UV(30)+JVS(308)*UV(45)+JVS(407)*UV(51)+JVS(487)*UV(53)+JVS(521)*UV(54) - JTUV(31) = JVS(97)*UV(25)+JVS(110)*UV(26)+JVS(141)*UV(31)+JVS(275)*UV(43)+JVS(408)*UV(51)+JVS(488)*UV(53)+JVS(522)& - &*UV(54) - JTUV(32) = JVS(150)*UV(32)+JVS(246)*UV(42)+JVS(276)*UV(43)+JVS(330)*UV(47)+JVS(409)*UV(51)+JVS(442)*UV(52)+JVS(544)& - &*UV(55)+JVS(634)*UV(59) - JTUV(33) = JVS(159)*UV(33)+JVS(379)*UV(50)+JVS(489)*UV(53)+JVS(545)*UV(55)+JVS(588)*UV(57) - JTUV(34) = JVS(98)*UV(25)+JVS(111)*UV(26)+JVS(171)*UV(34)+JVS(410)*UV(51)+JVS(490)*UV(53)+JVS(523)*UV(54)+JVS(546)& - &*UV(55) - JTUV(35) = JVS(134)*UV(30)+JVS(142)*UV(31)+JVS(172)*UV(34)+JVS(182)*UV(35)+JVS(247)*UV(42)+JVS(277)*UV(43)+JVS(411)& - &*UV(51)+JVS(443)*UV(52)+JVS(547)*UV(55)+JVS(605)*UV(58)+JVS(636)*UV(59) - JTUV(36) = JVS(135)*UV(30)+JVS(173)*UV(34)+JVS(189)*UV(36)+JVS(248)*UV(42)+JVS(278)*UV(43)+JVS(412)*UV(51)+JVS(444)& - &*UV(52)+JVS(548)*UV(55)+JVS(606)*UV(58)+JVS(637)*UV(59) - JTUV(37) = JVS(14)*UV(3)+JVS(197)*UV(37)+JVS(249)*UV(42)+JVS(279)*UV(43)+JVS(348)*UV(48)+JVS(413)*UV(51)+JVS(445)& - &*UV(52)+JVS(549)*UV(55)+JVS(607)*UV(58)+JVS(638)*UV(59) - JTUV(38) = JVS(15)*UV(3)+JVS(209)*UV(38)+JVS(280)*UV(43)+JVS(331)*UV(47)+JVS(349)*UV(48)+JVS(414)*UV(51)+JVS(446)& - &*UV(52)+JVS(550)*UV(55)+JVS(608)*UV(58)+JVS(639)*UV(59) - JTUV(39) = JVS(221)*UV(39)+JVS(250)*UV(42)+JVS(281)*UV(43)+JVS(415)*UV(51)+JVS(447)*UV(52)+JVS(551)*UV(55)+JVS(609)& - &*UV(58)+JVS(640)*UV(59) - JTUV(40) = JVS(16)*UV(3)+JVS(231)*UV(40)+JVS(251)*UV(42)+JVS(282)*UV(43)+JVS(350)*UV(48)+JVS(416)*UV(51)+JVS(448)& - &*UV(52)+JVS(552)*UV(55)+JVS(610)*UV(58)+JVS(641)*UV(59) - JTUV(41) = JVS(17)*UV(3)+JVS(160)*UV(33)+JVS(240)*UV(41)+JVS(252)*UV(42)+JVS(283)*UV(43)+JVS(332)*UV(47)+JVS(351)& - &*UV(48)+JVS(417)*UV(51)+JVS(449)*UV(52)+JVS(553)*UV(55)+JVS(611)*UV(58)+JVS(642)*UV(59) - JTUV(42) = JVS(253)*UV(42)+JVS(352)*UV(48)+JVS(418)*UV(51)+JVS(494)*UV(53)+JVS(571)*UV(56) - JTUV(43) = JVS(99)*UV(25)+JVS(112)*UV(26)+JVS(284)*UV(43)+JVS(419)*UV(51)+JVS(495)*UV(53)+JVS(526)*UV(54) - JTUV(44) = JVS(18)*UV(3)+JVS(161)*UV(33)+JVS(254)*UV(42)+JVS(285)*UV(43)+JVS(300)*UV(44)+JVS(333)*UV(47)+JVS(353)& - &*UV(48)+JVS(420)*UV(51)+JVS(450)*UV(52)+JVS(554)*UV(55)+JVS(612)*UV(58)+JVS(644)*UV(59) - JTUV(45) = JVS(19)*UV(3)+JVS(45)*UV(12)+JVS(113)*UV(26)+JVS(143)*UV(31)+JVS(174)*UV(34)+JVS(222)*UV(39)+JVS(255)& - &*UV(42)+JVS(286)*UV(43)+JVS(311)*UV(45)+JVS(421)*UV(51)+JVS(451)*UV(52)+JVS(555)*UV(55)+JVS(613)*UV(58)& - &+JVS(645)*UV(59) - JTUV(46) = JVS(9)*UV(2)+JVS(20)*UV(3)+JVS(35)*UV(7)+JVS(61)*UV(17)+JVS(69)*UV(19)+JVS(90)*UV(24)+JVS(114)*UV(26)& - &+JVS(122)*UV(27)+JVS(126)*UV(28)+JVS(130)*UV(29)+JVS(162)*UV(33)+JVS(287)*UV(43)+JVS(324)*UV(46)+JVS(355)& - &*UV(48)+JVS(422)*UV(51)+JVS(452)*UV(52)+JVS(498)*UV(53)+JVS(529)*UV(54)+JVS(614)*UV(58)+JVS(646)*UV(59) - JTUV(47) = JVS(163)*UV(33)+JVS(335)*UV(47)+JVS(356)*UV(48)+JVS(423)*UV(51)+JVS(499)*UV(53)+JVS(575)*UV(56)+JVS(647)& - &*UV(59) - JTUV(48) = JVS(100)*UV(25)+JVS(115)*UV(26)+JVS(357)*UV(48)+JVS(424)*UV(51)+JVS(453)*UV(52)+JVS(500)*UV(53)+JVS(530)& - &*UV(54)+JVS(558)*UV(55) - JTUV(49) = JVS(21)*UV(3)+JVS(164)*UV(33)+JVS(257)*UV(42)+JVS(288)*UV(43)+JVS(358)*UV(48)+JVS(371)*UV(49)+JVS(425)& - &*UV(51)+JVS(454)*UV(52)+JVS(559)*UV(55)+JVS(615)*UV(58)+JVS(649)*UV(59) - JTUV(50) = JVS(22)*UV(3)+JVS(175)*UV(34)+JVS(258)*UV(42)+JVS(289)*UV(43)+JVS(385)*UV(50)+JVS(426)*UV(51)+JVS(455)& - &*UV(52)+JVS(560)*UV(55)+JVS(616)*UV(58)+JVS(650)*UV(59) - JTUV(51) = JVS(51)*UV(14)+JVS(64)*UV(18)+JVS(73)*UV(20)+JVS(77)*UV(21)+JVS(101)*UV(25)+JVS(151)*UV(32)+JVS(183)*UV(35)& - &+JVS(190)*UV(36)+JVS(199)*UV(37)+JVS(211)*UV(38)+JVS(223)*UV(39)+JVS(233)*UV(40)+JVS(241)*UV(41)+JVS(259)& - &*UV(42)+JVS(301)*UV(44)+JVS(312)*UV(45)+JVS(325)*UV(46)+JVS(336)*UV(47)+JVS(372)*UV(49)+JVS(386)*UV(50)& - &+JVS(427)*UV(51)+JVS(456)*UV(52)+JVS(503)*UV(53)+JVS(533)*UV(54)+JVS(561)*UV(55)+JVS(578)*UV(56)+JVS(594)& - &*UV(57)+JVS(617)*UV(58)+JVS(651)*UV(59) - JTUV(52) = JVS(23)*UV(3)+JVS(78)*UV(21)+JVS(116)*UV(26)+JVS(136)*UV(30)+JVS(144)*UV(31)+JVS(152)*UV(32)+JVS(165)& - &*UV(33)+JVS(176)*UV(34)+JVS(184)*UV(35)+JVS(191)*UV(36)+JVS(200)*UV(37)+JVS(212)*UV(38)+JVS(224)*UV(39)& - &+JVS(234)*UV(40)+JVS(242)*UV(41)+JVS(291)*UV(43)+JVS(302)*UV(44)+JVS(313)*UV(45)+JVS(361)*UV(48)+JVS(373)& - &*UV(49)+JVS(387)*UV(50)+JVS(428)*UV(51)+JVS(457)*UV(52)+JVS(562)*UV(55)+JVS(579)*UV(56)+JVS(595)*UV(57)& - &+JVS(618)*UV(58)+JVS(652)*UV(59) - JTUV(53) = JVS(3)*UV(1)+JVS(29)*UV(4)+JVS(31)*UV(5)+JVS(33)*UV(6)+JVS(37)*UV(8)+JVS(39)*UV(9)+JVS(41)*UV(10)+JVS(43)& - &*UV(11)+JVS(48)*UV(13)+JVS(52)*UV(14)+JVS(57)*UV(16)+JVS(62)*UV(17)+JVS(65)*UV(18)+JVS(74)*UV(20)+JVS(79)& - &*UV(21)+JVS(83)*UV(22)+JVS(86)*UV(23)+JVS(91)*UV(24)+JVS(102)*UV(25)+JVS(117)*UV(26)+JVS(123)*UV(27)& - &+JVS(127)*UV(28)+JVS(131)*UV(29)+JVS(137)*UV(30)+JVS(145)*UV(31)+JVS(166)*UV(33)+JVS(177)*UV(34)+JVS(185)& - &*UV(35)+JVS(192)*UV(36)+JVS(201)*UV(37)+JVS(225)*UV(39)+JVS(235)*UV(40)+JVS(243)*UV(41)+JVS(261)*UV(42)& - &+JVS(292)*UV(43)+JVS(303)*UV(44)+JVS(314)*UV(45)+JVS(326)*UV(46)+JVS(338)*UV(47)+JVS(362)*UV(48)+JVS(374)& - &*UV(49)+JVS(388)*UV(50)+JVS(429)*UV(51)+JVS(458)*UV(52)+JVS(505)*UV(53)+JVS(535)*UV(54)+JVS(563)*UV(55)& - &+JVS(580)*UV(56)+JVS(596)*UV(57)+JVS(619)*UV(58)+JVS(653)*UV(59) - JTUV(54) = JVS(54)*UV(15)+JVS(70)*UV(19)+JVS(84)*UV(22)+JVS(92)*UV(24)+JVS(103)*UV(25)+JVS(118)*UV(26)+JVS(124)*UV(27)& - &+JVS(128)*UV(28)+JVS(132)*UV(29)+JVS(138)*UV(30)+JVS(146)*UV(31)+JVS(154)*UV(32)+JVS(178)*UV(34)+JVS(214)& - &*UV(38)+JVS(293)*UV(43)+JVS(315)*UV(45)+JVS(363)*UV(48)+JVS(430)*UV(51)+JVS(536)*UV(54)+JVS(564)*UV(55)& - &+JVS(620)*UV(58)+JVS(654)*UV(59) - JTUV(55) = JVS(24)*UV(3)+JVS(66)*UV(18)+JVS(87)*UV(23)+JVS(119)*UV(26)+JVS(139)*UV(30)+JVS(147)*UV(31)+JVS(155)*UV(32)& - &+JVS(168)*UV(33)+JVS(179)*UV(34)+JVS(186)*UV(35)+JVS(193)*UV(36)+JVS(203)*UV(37)+JVS(215)*UV(38)+JVS(227)& - &*UV(39)+JVS(237)*UV(40)+JVS(244)*UV(41)+JVS(294)*UV(43)+JVS(304)*UV(44)+JVS(316)*UV(45)+JVS(364)*UV(48)& - &+JVS(376)*UV(49)+JVS(390)*UV(50)+JVS(431)*UV(51)+JVS(460)*UV(52)+JVS(565)*UV(55)+JVS(582)*UV(56)+JVS(598)& - &*UV(57)+JVS(621)*UV(58)+JVS(655)*UV(59) - JTUV(56) = JVS(25)*UV(3)+JVS(169)*UV(33)+JVS(264)*UV(42)+JVS(295)*UV(43)+JVS(341)*UV(47)+JVS(365)*UV(48)+JVS(432)& - &*UV(51)+JVS(461)*UV(52)+JVS(566)*UV(55)+JVS(583)*UV(56)+JVS(622)*UV(58)+JVS(656)*UV(59) - JTUV(57) = JVS(26)*UV(3)+JVS(265)*UV(42)+JVS(296)*UV(43)+JVS(366)*UV(48)+JVS(433)*UV(51)+JVS(462)*UV(52)+JVS(567)& - &*UV(55)+JVS(600)*UV(57)+JVS(623)*UV(58)+JVS(657)*UV(59) - JTUV(58) = JVS(49)*UV(13)+JVS(120)*UV(26)+JVS(140)*UV(30)+JVS(148)*UV(31)+JVS(170)*UV(33)+JVS(180)*UV(34)+JVS(187)& - &*UV(35)+JVS(194)*UV(36)+JVS(204)*UV(37)+JVS(216)*UV(38)+JVS(228)*UV(39)+JVS(238)*UV(40)+JVS(245)*UV(41)& - &+JVS(297)*UV(43)+JVS(305)*UV(44)+JVS(317)*UV(45)+JVS(328)*UV(46)+JVS(342)*UV(47)+JVS(367)*UV(48)+JVS(377)& - &*UV(49)+JVS(392)*UV(50)+JVS(434)*UV(51)+JVS(463)*UV(52)+JVS(510)*UV(53)+JVS(540)*UV(54)+JVS(568)*UV(55)& - &+JVS(585)*UV(56)+JVS(601)*UV(57)+JVS(624)*UV(58)+JVS(658)*UV(59) - JTUV(59) = JVS(46)*UV(12)+JVS(55)*UV(15)+JVS(71)*UV(19)+JVS(75)*UV(20)+JVS(88)*UV(23)+JVS(104)*UV(25)+JVS(156)*UV(32)& - &+JVS(318)*UV(45)+JVS(329)*UV(46)+JVS(343)*UV(47)+JVS(435)*UV(51)+JVS(511)*UV(53)+JVS(541)*UV(54)+JVS(569)& - &*UV(55)+JVS(625)*UV(58)+JVS(659)*UV(59) - -END SUBROUTINE JacTR_SP_Vec - -! End of JacTR_SP_Vec function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE RADM2_Jacobian - diff --git a/boxmox/compiled_mechs/RADM2/RADM2_Jacobian.o b/boxmox/compiled_mechs/RADM2/RADM2_Jacobian.o deleted file mode 100644 index 3919154b338812a55ff8a47971745deb45c6b5f3..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/RADM2_Jacobian.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/RADM2_JacobianSP.f90 b/boxmox/compiled_mechs/RADM2/RADM2_JacobianSP.f90 deleted file mode 100644 index c643de925ddc672ba56aab1c306a6349f3ba7ada..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADM2/RADM2_JacobianSP.f90 +++ /dev/null @@ -1,170 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Sparse Jacobian Data Structures File -! -! Generated by KPP-2.2.3 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 : RADM2_JacobianSP.f90 -! Time : Thu Oct 8 08:22:27 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADM2_18938_BOXMOX -! Equation file : RADM2.kpp -! Output root filename : RADM2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RADM2_JacobianSP - - PUBLIC - SAVE - - -! Sparse Jacobian Data - - - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_0 = (/ & - 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, & - 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, & - 3, 3, 4, 4, 4, 5, 5, 6, 6, 7, 7, 8, & - 8, 9, 9, 10, 10, 11, 11, 12, 12, 12, 13, 13, & - 13, 14, 14, 14, 15, 15, 15, 16, 16, 17, 17, 17, & - 17, 17, 18, 18, 18, 18, 19, 19, 19, 19, 19, 20, & - 20, 20, 20, 21, 21, 21, 21, 22, 22, 22, 22, 22, & - 23, 23, 23, 23, 24, 24, 24, 24, 25, 25, 25, 25, & - 25, 25, 25, 25, 25, 25, 25, 25, 26, 26, 26, 26, & - 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, 26, & - 27, 27, 27, 27, 28, 28, 28, 28, 29, 29, 29, 29, & - 30, 30, 30, 30, 30, 30, 30, 30, 31, 31, 31, 31, & - 31, 31, 31, 31, 32, 32, 32, 32, 32, 32, 32, 32, & - 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, & - 33, 33, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & - 35, 35, 35, 35, 35, 35, 35, 36, 36, 36, 36, 36, & - 36, 36, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, & - 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, & - 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, & - 39, 40, 40, 40, 40, 40, 40, 40, 40, 40, 41, 41, & - 41, 41, 41, 41, 41, 42, 42, 42, 42, 42, 42, 42, & - 42, 42, 42, 42, 42, 42, 42, 42, 42, 42, 42, 42, & - 42, 42, 42, 43, 43, 43, 43, 43, 43, 43, 43, 43, & - 43, 43, 43, 43, 43, 43, 43, 43, 43, 43, 43, 43, & - 43, 43, 43, 43, 43, 43, 43, 43, 43, 43, 44, 44, & - 44, 44, 44, 44, 44, 45, 45, 45, 45, 45, 45, 45, & - 45, 45, 45, 45, 45, 45, 46, 46, 46, 46, 46, 46, & - 46, 46, 46, 46, 46, 47, 47, 47, 47, 47, 47, 47, & - 47, 47, 47, 47, 47, 47, 47, 48, 48, 48, 48, 48, & - 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48 /) - INTEGER, PARAMETER, DIMENSION(299) :: LU_IROW_1 = (/ & - 48, 48, 48, 48, 48, 48, 48, 48, 49, 49, 49, 49, & - 49, 49, 49, 49, 49, 49, 50, 50, 50, 50, 50, 50, & - 50, 50, 50, 50, 50, 50, 50, 50, 50, 51, 51, 51, & - 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, & - 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, & - 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, 51, & - 51, 51, 51, 52, 52, 52, 52, 52, 52, 52, 52, 52, & - 52, 52, 52, 52, 52, 52, 52, 52, 52, 52, 52, 52, & - 52, 52, 52, 52, 52, 52, 52, 52, 53, 53, 53, 53, & - 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, & - 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, & - 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, & - 53, 53, 53, 53, 53, 53, 53, 54, 54, 54, 54, 54, & - 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, & - 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, & - 54, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, & - 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, & - 55, 55, 55, 55, 55, 56, 56, 56, 56, 56, 56, 56, & - 56, 56, 56, 56, 56, 56, 56, 56, 56, 56, 57, 57, & - 57, 57, 57, 57, 57, 57, 57, 57, 57, 57, 57, 57, & - 57, 57, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, & - 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, & - 58, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, & - 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, & - 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, 59 /) - INTEGER, PARAMETER, DIMENSION(659) :: LU_IROW = (/& - LU_IROW_0, LU_IROW_1 /) - - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_0 = (/ & - 1, 5, 53, 2, 24, 27, 28, 29, 46, 3, 27, 28, & - 29, 37, 38, 40, 41, 44, 45, 46, 49, 50, 52, 55, & - 56, 57, 4, 26, 53, 5, 53, 6, 53, 7, 46, 8, & - 53, 9, 53, 10, 53, 11, 53, 12, 45, 59, 13, 53, & - 58, 14, 51, 53, 15, 54, 59, 16, 53, 17, 28, 29, & - 46, 53, 18, 51, 53, 55, 7, 19, 46, 54, 59, 20, & - 51, 53, 59, 21, 51, 52, 53, 10, 11, 22, 53, 54, & - 23, 53, 55, 59, 24, 46, 53, 54, 15, 22, 25, 30, & - 31, 34, 43, 48, 51, 53, 54, 59, 24, 26, 27, 28, & - 29, 31, 34, 43, 45, 46, 48, 52, 53, 54, 55, 58, & - 27, 46, 53, 54, 28, 46, 53, 54, 29, 46, 53, 54, & - 30, 35, 36, 52, 53, 54, 55, 58, 31, 35, 45, 52, & - 53, 54, 55, 58, 22, 32, 51, 52, 53, 54, 55, 59, & - 16, 29, 33, 41, 44, 46, 47, 49, 52, 53, 54, 55, & - 56, 58, 34, 35, 36, 45, 50, 52, 53, 54, 55, 58, & - 10, 35, 51, 52, 53, 55, 58, 11, 36, 51, 52, 53, & - 55, 58, 27, 28, 37, 46, 51, 52, 53, 54, 55, 58, & - 24, 27, 28, 29, 38, 46, 51, 52, 53, 54, 55, 58, & - 8, 9, 22, 23, 39, 45, 51, 52, 53, 54, 55, 58, & - 59, 24, 40, 46, 51, 52, 53, 54, 55, 58, 8, 41, & - 51, 52, 53, 55, 58, 32, 35, 36, 37, 39, 40, 41, & - 42, 44, 45, 46, 49, 50, 51, 52, 53, 54, 55, 56, & - 57, 58, 59, 16, 21, 23, 24, 27, 28, 29, 31, 32, & - 35, 36, 37, 38, 39, 40, 41, 43, 44, 45, 46, 49, & - 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 9, 44, & - 51, 52, 53, 55, 58, 12, 22, 30, 35, 36, 45, 51, & - 52, 53, 54, 55, 58, 59, 19, 24, 27, 28, 29, 46, & - 51, 53, 54, 58, 59, 32, 38, 41, 44, 46, 47, 51, & - 52, 53, 54, 55, 56, 58, 59, 16, 27, 28, 29, 37, & - 38, 40, 41, 42, 44, 45, 46, 47, 48, 49, 50, 51 /) - INTEGER, PARAMETER, DIMENSION(299) :: LU_ICOL_1 = (/ & - 52, 53, 54, 55, 56, 57, 58, 59, 29, 46, 49, 51, & - 52, 53, 54, 55, 58, 59, 33, 41, 44, 46, 47, 49, & - 50, 51, 52, 53, 54, 55, 56, 58, 59, 5, 10, 11, & - 14, 16, 20, 21, 22, 24, 26, 27, 28, 29, 30, 31, & - 32, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, & - 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, & - 57, 58, 59, 17, 18, 21, 27, 28, 29, 32, 35, 36, & - 37, 38, 39, 40, 41, 44, 45, 46, 48, 49, 50, 51, & - 52, 53, 54, 55, 56, 57, 58, 59, 5, 6, 7, 8, & - 9, 10, 11, 13, 14, 16, 17, 18, 20, 21, 22, 23, & - 24, 25, 26, 27, 28, 29, 30, 31, 33, 34, 35, 36, & - 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, & - 53, 54, 55, 56, 57, 58, 59, 15, 20, 22, 23, 24, & - 25, 27, 28, 29, 30, 31, 34, 35, 36, 43, 44, 45, & - 46, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, & - 59, 18, 23, 32, 33, 34, 35, 36, 37, 38, 39, 40, & - 41, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, & - 55, 56, 57, 58, 59, 16, 42, 44, 45, 46, 47, 49, & - 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 6, 33, & - 41, 44, 46, 47, 49, 51, 52, 53, 54, 55, 56, 57, & - 58, 59, 13, 19, 35, 36, 37, 38, 39, 40, 41, 44, & - 45, 46, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, & - 59, 12, 15, 19, 20, 23, 25, 30, 31, 32, 34, 35, & - 36, 37, 38, 39, 40, 41, 43, 44, 45, 46, 47, 48, & - 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59 /) - INTEGER, PARAMETER, DIMENSION(659) :: LU_ICOL = (/& - LU_ICOL_0, LU_ICOL_1 /) - - INTEGER, PARAMETER, DIMENSION(60) :: LU_CROW = (/ & - 1, 4, 10, 27, 30, 32, 34, 36, 38, 40, 42, 44, & - 47, 50, 53, 56, 58, 63, 67, 72, 76, 80, 85, 89, & - 93,105,121,125,129,133,141,149,157,171,181,188, & - 195,205,217,230,239,246,268,299,306,319,330,344, & - 369,379,394,436,465,512,542,570,587,603,626,660 /) - - INTEGER, PARAMETER, DIMENSION(60) :: LU_DIAG = (/ & - 1, 4, 10, 27, 30, 32, 34, 36, 38, 40, 42, 44, & - 47, 50, 53, 56, 58, 63, 68, 72, 76, 82, 85, 89, & - 95,106,121,125,129,133,141,150,159,171,182,189, & - 197,209,221,231,240,253,284,300,311,324,335,357, & - 371,385,427,457,505,536,565,583,600,624,659,660 /) - - -END MODULE RADM2_JacobianSP - diff --git a/boxmox/compiled_mechs/RADM2/RADM2_JacobianSP.o b/boxmox/compiled_mechs/RADM2/RADM2_JacobianSP.o deleted file mode 100644 index 70a7bea24c2f707546b2d0c1abb77bd182f5ffc1..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/RADM2_JacobianSP.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/RADM2_LinearAlgebra.f90 b/boxmox/compiled_mechs/RADM2/RADM2_LinearAlgebra.f90 deleted file mode 100644 index 503168d119d4180f616a82665f7d92bc0ee98485..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADM2/RADM2_LinearAlgebra.f90 +++ /dev/null @@ -1,1456 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Linear Algebra Data and Routines File -! -! Generated by KPP-2.2.3 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 : RADM2_LinearAlgebra.f90 -! Time : Thu Oct 8 08:22:27 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADM2_18938_BOXMOX -! Equation file : RADM2.kpp -! Output root filename : RADM2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RADM2_LinearAlgebra - - USE RADM2_Parameters - USE RADM2_JacobianSP - - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! SPARSE_UTIL - SPARSE utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecomp( JVS, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RADM2_Parameters - USE RADM2_JacobianSP - - INTEGER :: IER - REAL(kind=dp) :: JVS(LU_NONZERO), W(NVAR), a - INTEGER :: k, kk, j, jj - - a = 0. ! mz_rs_20050606 - IER = 0 - DO k=1,NVAR - ! mz_rs_20050606: don't check if real value == 0 - ! IF ( JVS( LU_DIAG(k) ) .EQ. 0. ) THEN - IF ( ABS(JVS(LU_DIAG(k))) < TINY(a) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - W( LU_ICOL(kk) ) = JVS(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - a = -W(j) / JVS( LU_DIAG(j) ) - W(j) = -a - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVS(kk) = W( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecomp - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecompCmplx( JVS, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization, complex -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RADM2_Parameters - USE RADM2_JacobianSP - - INTEGER :: IER - DOUBLE COMPLEX :: JVS(LU_NONZERO), W(NVAR), a - REAL(kind=dp) :: b = 0.0 - INTEGER :: k, kk, j, jj - - IER = 0 - DO k=1,NVAR - IF ( ABS(JVS(LU_DIAG(k))) < TINY(b) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - W( LU_ICOL(kk) ) = JVS(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - a = -W(j) / JVS( LU_DIAG(j) ) - W(j) = -a - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVS(kk) = W( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecompCmplx - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecompCmplxR( JVSR, JVSI, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization, complex -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RADM2_Parameters - USE RADM2_JacobianSP - - INTEGER :: IER - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO) - REAL(kind=dp) :: WR(NVAR), WI(NVAR), ar, ai, den - INTEGER :: k, kk, j, jj - - IER = 0 - ar = 0.0 - DO k=1,NVAR - IF ( ( ABS(JVSR(LU_DIAG(k))) < TINY(ar) ) .AND. & - ( ABS(JVSI(LU_DIAG(k))) < TINY(ar) ) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - WR( LU_ICOL(kk) ) = JVSR(kk) - WI( LU_ICOL(kk) ) = JVSI(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - den = JVSR(LU_DIAG(j))**2 + JVSI(LU_DIAG(j))**2 - ar = -(WR(j)*JVSR(LU_DIAG(j)) + WI(j)*JVSI(LU_DIAG(j)))/den - ai = -(WI(j)*JVSR(LU_DIAG(j)) - WR(j)*JVSI(LU_DIAG(j)))/den - WR(j) = -ar - WI(j) = -ai - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - WR( LU_ICOL(jj) ) = WR( LU_ICOL(jj) ) + ar*JVSR(jj) - ai*JVSI(jj) - WI( LU_ICOL(jj) ) = WI( LU_ICOL(jj) ) + ar*JVSI(jj) + ai*JVSR(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVSR(kk) = WR( LU_ICOL(kk) ) - JVSI(kk) = WI( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecompCmplxR - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveIndirect( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse solve subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RADM2_Parameters - USE RADM2_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR), sum - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - X(i) = X(i) - JVS(j)*X(LU_ICOL(j)); - END DO - END DO - - DO i=NVAR,1,-1 - sum = X(i); - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sum = sum - JVS(j)*X(LU_ICOL(j)); - END DO - X(i) = sum/JVS(LU_DIAG(i)); - END DO - -END SUBROUTINE KppSolveIndirect - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRIndirect( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RADM2_Parameters - USE RADM2_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR) - - DO i=1,NVAR - X(i) = X(i)/JVS(LU_DIAG(i)) - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - -END SUBROUTINE KppSolveTRIndirect - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveCmplx( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RADM2_Parameters - USE RADM2_JacobianSP - - INTEGER :: i, j - DOUBLE COMPLEX :: JVS(LU_NONZERO), X(NVAR), sum - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - X(i) = X(i) - JVS(j)*X(LU_ICOL(j)); - END DO - END DO - - DO i=NVAR,1,-1 - sum = X(i); - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sum = sum - JVS(j)*X(LU_ICOL(j)); - END DO - X(i) = sum/JVS(LU_DIAG(i)); - END DO - -END SUBROUTINE KppSolveCmplx - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveCmplxR( JVSR, JVSI, XR, XI ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve subroutine using indirect addressing -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RADM2_Parameters - USE RADM2_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), sumr, sumi, den - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - XR(i) = XR(i) - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j))) - XI(i) = XI(i) - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j))) - END DO - END DO - - DO i=NVAR,1,-1 - sumr = XR(i); sumi = XI(i) - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sumr = sumr - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j))) - sumi = sumi - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j))) - END DO - den = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2 - XR(i) = (sumr*JVSR(LU_DIAG(i)) + sumi*JVSI(LU_DIAG(i)))/den - XI(i) = (sumi*JVSR(LU_DIAG(i)) - sumr*JVSI(LU_DIAG(i)))/den - END DO - -END SUBROUTINE KppSolveCmplxR - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRCmplx( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RADM2_Parameters - USE RADM2_JacobianSP - - INTEGER :: i, j - DOUBLE COMPLEX :: JVS(LU_NONZERO), X(NVAR) - - DO i=1,NVAR - X(i) = X(i)/JVS(LU_DIAG(i)) - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - -END SUBROUTINE KppSolveTRCmplx - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRCmplxR( JVSR, JVSI, XR, XI ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RADM2_Parameters - USE RADM2_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), den - - DO i=1,NVAR - den = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2 - XR(i) = (XR(i)*JVSR(LU_DIAG(i)) + XI(i)*JVSI(LU_DIAG(i)))/den - XI(i) = (XI(i)*JVSR(LU_DIAG(i)) - XR(i)*JVSI(LU_DIAG(i)))/den - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i)) - XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i)) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i)) - XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i)) - END DO - END DO - -END SUBROUTINE KppSolveTRCmplxR - - -! -! Next few commented subroutines perform sparse big linear algebra -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppDecompBig( JVS, IP, IER ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Sparse LU factorization -!! for the Runge Kutta (3n)x(3n) linear system -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE RADM2_Parameters -! USE RADM2_JacobianSP -! -! INTEGER :: IP3(3), IER, IP(3,NVAR) -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), W(3,3,NVAR), a(3,3), E(3,3) -! INTEGER :: k, kk, j, jj -! -! a = 0.0d0 -! IER = 0 -! DO k=1,NVAR -! DO kk = LU_CROW(k), LU_CROW(k+1)-1 -! W( 1:3,1:3,LU_ICOL(kk) ) = JVS(1:3,1:3,kk) -! END DO -! DO kk = LU_CROW(k), LU_DIAG(k)-1 -! j = LU_ICOL(kk) -! E(1:3,1:3) = JVS( 1:3,1:3,LU_DIAG(j) ) -! ! CALL DGETRF(3,3,E,3,IP3,IER) -! CALL FAC3(E,IP3,IER) -! IF ( IER /= 0 ) RETURN -! ! a = W(j) / JVS( LU_DIAG(j) ) -! a(1:3,1:3) = W( 1:3,1:3,j ) -! ! CALL DGETRS ('N',3,3,E,3,IP3,a,3,IER) -! CALL SOL3('N',E,IP3,a(1,1)) -! CALL SOL3('N',E,IP3,a(1,2)) -! CALL SOL3('N',E,IP3,a(1,3)) -! W(1:3,1:3,j) = a(1:3,1:3) -! DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 -! W( 1:3,1:3,LU_ICOL(jj) ) = W( 1:3,1:3,LU_ICOL(jj) ) & -! - MATMUL( a(1:3,1:3) , JVS(1:3,1:3,jj) ) -! END DO -! END DO -! DO kk = LU_CROW(k), LU_CROW(k+1)-1 -! JVS(1:3,1:3,kk) = W( 1:3,1:3,LU_ICOL(kk) ) -! END DO -! END DO -! -! DO k=1,NVAR -! ! CALL WGEFA(JVS(1,1,LU_DIAG(k)),3,3,IP(1,k),IER) -! ! CALL DGETRF(3,3,JVS(1,1,LU_DIAG(k)),3,IP(1,k),IER) -! CALL FAC3(JVS(1,1,LU_DIAG(k)),IP(1,k),IER) -! IF ( IER /= 0 ) RETURN -! END DO -! -!END SUBROUTINE KppDecompBig -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppSolveBig( JVS, IP, X ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Sparse solve subroutine using indirect addressing -!! for the Runge Kutta (3n)x(3n) linear system -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE RADM2_Parameters -! USE RADM2_JacobianSP -! -! INTEGER :: i, j, k, m, IP3(3), IP(3,NVAR), IER -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR), sum(3) -! -! DO i=1,NVAR -! DO j = LU_CROW(i), LU_DIAG(i)-1 -! !X(1:3,i) = X(1:3,i) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j))); -! DO k=1,3 -! DO m=1,3 -! X(k,i) = X(k,i) - JVS(k,m,j)*X(m,LU_ICOL(j)) -! END DO -! END DO -! END DO -! END DO -! -! DO i=NVAR,1,-1 -! sum(1:3) = X(1:3,i); -! DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 -! !sum(1:3) = sum(1:3) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j))); -! DO k=1,3 -! DO m=1,3 -! sum(k) = sum(k) - JVS(k,m,j)*X(m,LU_ICOL(j)) -! END DO -! END DO -! END DO -! ! X(i) = sum/JVS(LU_DIAG(i)); -! ! CALL DGETRS ('N',3,1,JVS(1:3,1:3,LU_DIAG(i)),3,IP(1,i),sum,3,0) -! ! CALL WGESL('N',JVS(1,1,LU_DIAG(i)),3,3,IP(1,i),sum) -! CALL SOL3('N',JVS(1,1,LU_DIAG(i)),IP(1,i),sum) -! X(1:3,i) = sum(1:3) -! END DO -! -!END SUBROUTINE KppSolveBig -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppSolveBigTR( JVS, IP, X ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Big sparse transpose solve using indirect addressing -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE RADM2_Parameters -! USE RADM2_JacobianSP -! -! INTEGER :: i, j, k, m, IP(3,NVAR) -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR) -! -! DO i=1,NVAR -! ! X(i) = X(i)/JVS(LU_DIAG(i)) -! CALL SOL3('T',JVS(1,1,LU_DIAG(i)),IP(1,i),X(1,i)) -! DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 -! !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) & -! ! - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) ) -! DO k=1,3 -! DO m=1,3 -! X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i) -! END DO -! END DO -! END DO -! END DO -! -! DO i=NVAR, 1, -1 -! DO j=LU_CROW(i),LU_DIAG(i)-1 -! !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) & -! ! - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) ) -! DO k=1,3 -! DO m=1,3 -! X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i) -! END DO -! END DO -! END DO -! END DO -! -!END SUBROUTINE KppSolveBigTR -! -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE FAC3(A,IPVT,INFO) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! FAC3 FACTORS THE MATRIX A (3,3) BY -!! GAUSS ELIMINATION WITH PARTIAL PIVOTING -!! LINPACK - LIKE -!! -!! Remove comments to perform pivoting -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! -! REAL(kind=dp) :: A(3,3) -! INTEGER :: IPVT(3),INFO -!! INTEGER :: L -!! REAL(kind=dp) :: t, dmax, da, TMP(3) -! REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0 -! -! info = 0 -!! t = TINY(da) -!! -!! da = ABS(A(1,1)); L = 1 -!! IF ( ABS(A(2,1))>da ) THEN -!! da = ABS(A(2,1)); L = 2 -!! IF ( ABS(A(3,1))>da ) THEN -!! L = 3 -!! END IF -!! END IF -!! IPVT(1) = L -!! IF (L /=1 ) THEN -!! TMP(1:3) = A(L,1:3) -!! A(L,1:3) = A(1,1:3) -!! A(1,1:3) = TMP(1:3) -!! END IF -!! IF (ABS(A(1,1)) < t) THEN -!! info = 1 -!! return -!! END IF -!! -! A(2,1) = A(2,1)/A(1,1) -! A(2,2) = A(2,2) - A(2,1)*A(1,2) -! A(2,3) = A(2,3) - A(2,1)*A(1,3) -! A(3,1) = A(3,1)/A(1,1) -! A(3,2) = A(3,2) - A(3,1)*A(1,2) -! A(3,3) = A(3,3) - A(3,1)*A(1,3) -! -!! IPVT(2) = 2 -!! IF (ABS(A(3,2))>ABS(A(2,2))) THEN -!! IPVT(2) = 3 -!! TMP(2:3) = A(3,2:3) -!! A(3,2:3) = A(2,2:3) -!! A(2,2:3) = TMP(2:3) -!! END IF -!! IF (ABS(A(2,2)) < t) THEN -!! info = 1 -!! return -!! END IF -!! -! A(3,2) = A(3,2)/A(2,2) -! A(3,3) = A(3,3) - A(3,2)*A(2,3) -! IPVT(3) = 3 -! -!END SUBROUTINE FAC3 -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE SOL3(Trans,A,IPVT,b) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! SOL3 solves the system 3x3 -!! A * x = b or trans(a) * x = b -!! using the factors computed by WGEFA. -!! -!! Trans = 'N' to solve A*x = b , -!! = 'T' to solve transpose(A)*x = b -!! LINPACK - LIKE -!! -!! Remove comments to use pivoting -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! CHARACTER :: Trans -! REAL(kind=dp) :: a(3,3),b(3) -! INTEGER :: IPVT(3) -!! INTEGER :: L -!! REAL(kind=dp) :: TMP -! -! SELECT CASE (Trans) -! -! CASE ('n','N') ! Solve A * x = b -! -!! Solve L*y = b -!! L = IPVT(1) -!! IF (L /= 1) THEN -!! TMP = B(1); B(1) = B(L); B(L) = TMP -!! END IF -! b(2) = b(2)-A(2,1)*b(1) -! b(3) = b(3)-A(3,1)*b(1) -! -!! L = IPVT(2) -!! IF (L /= 2) THEN -!! TMP = B(2); B(2) = B(L); B(L) = TMP -!! END IF -! b(3) = b(3)-A(3,2)*b(2) -! -!! Solve U*x = y -! b(3) = b(3)/A(3,3) -! b(2) = (b(2)-A(2,3)*b(3))/A(2,2) -! b(1) = (b(1)-A(1,3)*b(3)-A(1,2)*b(2))/A(1,1) -! -! -! CASE ('t','T') ! Solve transpose(A) * x = b -! -!! Solve transpose(U)*y = b -! b(1) = b(1)/A(1,1) -! b(2) = (b(2)-A(1,2)*b(1))/A(2,2) -! b(3) = (b(3)-A(1,3)*b(1)-A(2,3)*b(2))/A(3,3) -! -!! Solve transpose(L)*x = y -! b(2) = b(2)-A(3,2)*b(3) -!! L = ipvt(2) -!! IF (L /= 2) THEN -!! TMP = B(2); B(2) = B(L); B(L) = TMP -!! END IF -! b(1) = b(1)-A(3,1)*b(3)-A(2,1)*b(2) -!! L = ipvt(1) -!! IF (L /= 1) THEN -!! TMP = B(1); B(1) = B(L); B(L) = TMP -!! END IF -! -! END SELECT -! -!END SUBROUTINE SOL3 - -! End of SPARSE_UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! KppSolve - sparse back substitution -! Arguments : -! JVS - sparse Jacobian of variables -! X - Vector for variables -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE KppSolve ( JVS, X ) - -! JVS - sparse Jacobian of variables - REAL(kind=dp) :: JVS(LU_NONZERO) -! X - Vector for variables - REAL(kind=dp) :: X(NVAR) - - X(19) = X(19)-JVS(67)*X(7) - X(22) = X(22)-JVS(80)*X(10)-JVS(81)*X(11) - X(25) = X(25)-JVS(93)*X(15)-JVS(94)*X(22) - X(26) = X(26)-JVS(105)*X(24) - X(32) = X(32)-JVS(149)*X(22) - X(33) = X(33)-JVS(157)*X(16)-JVS(158)*X(29) - X(35) = X(35)-JVS(181)*X(10) - X(36) = X(36)-JVS(188)*X(11) - X(37) = X(37)-JVS(195)*X(27)-JVS(196)*X(28) - X(38) = X(38)-JVS(205)*X(24)-JVS(206)*X(27)-JVS(207)*X(28)-JVS(208)*X(29) - X(39) = X(39)-JVS(217)*X(8)-JVS(218)*X(9)-JVS(219)*X(22)-JVS(220)*X(23) - X(40) = X(40)-JVS(230)*X(24) - X(41) = X(41)-JVS(239)*X(8) - X(42) = X(42)-JVS(246)*X(32)-JVS(247)*X(35)-JVS(248)*X(36)-JVS(249)*X(37)-JVS(250)*X(39)-JVS(251)*X(40)-JVS(252)*X(41) - X(43) = X(43)-JVS(268)*X(16)-JVS(269)*X(21)-JVS(270)*X(23)-JVS(271)*X(24)-JVS(272)*X(27)-JVS(273)*X(28)-JVS(274)*X(29)& - &-JVS(275)*X(31)-JVS(276)*X(32)-JVS(277)*X(35)-JVS(278)*X(36)-JVS(279)*X(37)-JVS(280)*X(38)-JVS(281)*X(39)& - &-JVS(282)*X(40)-JVS(283)*X(41) - X(44) = X(44)-JVS(299)*X(9) - X(45) = X(45)-JVS(306)*X(12)-JVS(307)*X(22)-JVS(308)*X(30)-JVS(309)*X(35)-JVS(310)*X(36) - X(46) = X(46)-JVS(319)*X(19)-JVS(320)*X(24)-JVS(321)*X(27)-JVS(322)*X(28)-JVS(323)*X(29) - X(47) = X(47)-JVS(330)*X(32)-JVS(331)*X(38)-JVS(332)*X(41)-JVS(333)*X(44)-JVS(334)*X(46) - X(48) = X(48)-JVS(344)*X(16)-JVS(345)*X(27)-JVS(346)*X(28)-JVS(347)*X(29)-JVS(348)*X(37)-JVS(349)*X(38)-JVS(350)*X(40)& - &-JVS(351)*X(41)-JVS(352)*X(42)-JVS(353)*X(44)-JVS(354)*X(45)-JVS(355)*X(46)-JVS(356)*X(47) - X(49) = X(49)-JVS(369)*X(29)-JVS(370)*X(46) - X(50) = X(50)-JVS(379)*X(33)-JVS(380)*X(41)-JVS(381)*X(44)-JVS(382)*X(46)-JVS(383)*X(47)-JVS(384)*X(49) - X(51) = X(51)-JVS(394)*X(5)-JVS(395)*X(10)-JVS(396)*X(11)-JVS(397)*X(14)-JVS(398)*X(16)-JVS(399)*X(20)-JVS(400)*X(21)& - &-JVS(401)*X(22)-JVS(402)*X(24)-JVS(403)*X(26)-JVS(404)*X(27)-JVS(405)*X(28)-JVS(406)*X(29)-JVS(407)*X(30)& - &-JVS(408)*X(31)-JVS(409)*X(32)-JVS(410)*X(34)-JVS(411)*X(35)-JVS(412)*X(36)-JVS(413)*X(37)-JVS(414)*X(38)& - &-JVS(415)*X(39)-JVS(416)*X(40)-JVS(417)*X(41)-JVS(418)*X(42)-JVS(419)*X(43)-JVS(420)*X(44)-JVS(421)*X(45)& - &-JVS(422)*X(46)-JVS(423)*X(47)-JVS(424)*X(48)-JVS(425)*X(49)-JVS(426)*X(50) - X(52) = X(52)-JVS(436)*X(17)-JVS(437)*X(18)-JVS(438)*X(21)-JVS(439)*X(27)-JVS(440)*X(28)-JVS(441)*X(29)-JVS(442)*X(32)& - &-JVS(443)*X(35)-JVS(444)*X(36)-JVS(445)*X(37)-JVS(446)*X(38)-JVS(447)*X(39)-JVS(448)*X(40)-JVS(449)*X(41)& - &-JVS(450)*X(44)-JVS(451)*X(45)-JVS(452)*X(46)-JVS(453)*X(48)-JVS(454)*X(49)-JVS(455)*X(50)-JVS(456)*X(51) - X(53) = X(53)-JVS(465)*X(5)-JVS(466)*X(6)-JVS(467)*X(7)-JVS(468)*X(8)-JVS(469)*X(9)-JVS(470)*X(10)-JVS(471)*X(11)& - &-JVS(472)*X(13)-JVS(473)*X(14)-JVS(474)*X(16)-JVS(475)*X(17)-JVS(476)*X(18)-JVS(477)*X(20)-JVS(478)*X(21)& - &-JVS(479)*X(22)-JVS(480)*X(23)-JVS(481)*X(24)-JVS(482)*X(25)-JVS(483)*X(26)-JVS(484)*X(27)-JVS(485)*X(28)& - &-JVS(486)*X(29)-JVS(487)*X(30)-JVS(488)*X(31)-JVS(489)*X(33)-JVS(490)*X(34)-JVS(491)*X(35)-JVS(492)*X(36)& - &-JVS(493)*X(41)-JVS(494)*X(42)-JVS(495)*X(43)-JVS(496)*X(44)-JVS(497)*X(45)-JVS(498)*X(46)-JVS(499)*X(47)& - &-JVS(500)*X(48)-JVS(501)*X(49)-JVS(502)*X(50)-JVS(503)*X(51)-JVS(504)*X(52) - X(54) = X(54)-JVS(512)*X(15)-JVS(513)*X(20)-JVS(514)*X(22)-JVS(515)*X(23)-JVS(516)*X(24)-JVS(517)*X(25)-JVS(518)*X(27)& - &-JVS(519)*X(28)-JVS(520)*X(29)-JVS(521)*X(30)-JVS(522)*X(31)-JVS(523)*X(34)-JVS(524)*X(35)-JVS(525)*X(36)& - &-JVS(526)*X(43)-JVS(527)*X(44)-JVS(528)*X(45)-JVS(529)*X(46)-JVS(530)*X(48)-JVS(531)*X(49)-JVS(532)*X(50)& - &-JVS(533)*X(51)-JVS(534)*X(52)-JVS(535)*X(53) - X(55) = X(55)-JVS(542)*X(18)-JVS(543)*X(23)-JVS(544)*X(32)-JVS(545)*X(33)-JVS(546)*X(34)-JVS(547)*X(35)-JVS(548)*X(36)& - &-JVS(549)*X(37)-JVS(550)*X(38)-JVS(551)*X(39)-JVS(552)*X(40)-JVS(553)*X(41)-JVS(554)*X(44)-JVS(555)*X(45)& - &-JVS(556)*X(46)-JVS(557)*X(47)-JVS(558)*X(48)-JVS(559)*X(49)-JVS(560)*X(50)-JVS(561)*X(51)-JVS(562)*X(52)& - &-JVS(563)*X(53)-JVS(564)*X(54) - X(56) = X(56)-JVS(570)*X(16)-JVS(571)*X(42)-JVS(572)*X(44)-JVS(573)*X(45)-JVS(574)*X(46)-JVS(575)*X(47)-JVS(576)*X(49)& - &-JVS(577)*X(50)-JVS(578)*X(51)-JVS(579)*X(52)-JVS(580)*X(53)-JVS(581)*X(54)-JVS(582)*X(55) - X(57) = X(57)-JVS(587)*X(6)-JVS(588)*X(33)-JVS(589)*X(41)-JVS(590)*X(44)-JVS(591)*X(46)-JVS(592)*X(47)-JVS(593)*X(49)& - &-JVS(594)*X(51)-JVS(595)*X(52)-JVS(596)*X(53)-JVS(597)*X(54)-JVS(598)*X(55)-JVS(599)*X(56) - X(58) = X(58)-JVS(603)*X(13)-JVS(604)*X(19)-JVS(605)*X(35)-JVS(606)*X(36)-JVS(607)*X(37)-JVS(608)*X(38)-JVS(609)*X(39)& - &-JVS(610)*X(40)-JVS(611)*X(41)-JVS(612)*X(44)-JVS(613)*X(45)-JVS(614)*X(46)-JVS(615)*X(49)-JVS(616)*X(50)& - &-JVS(617)*X(51)-JVS(618)*X(52)-JVS(619)*X(53)-JVS(620)*X(54)-JVS(621)*X(55)-JVS(622)*X(56)-JVS(623)*X(57) - X(59) = X(59)-JVS(626)*X(12)-JVS(627)*X(15)-JVS(628)*X(19)-JVS(629)*X(20)-JVS(630)*X(23)-JVS(631)*X(25)-JVS(632)*X(30)& - &-JVS(633)*X(31)-JVS(634)*X(32)-JVS(635)*X(34)-JVS(636)*X(35)-JVS(637)*X(36)-JVS(638)*X(37)-JVS(639)*X(38)& - &-JVS(640)*X(39)-JVS(641)*X(40)-JVS(642)*X(41)-JVS(643)*X(43)-JVS(644)*X(44)-JVS(645)*X(45)-JVS(646)*X(46)& - &-JVS(647)*X(47)-JVS(648)*X(48)-JVS(649)*X(49)-JVS(650)*X(50)-JVS(651)*X(51)-JVS(652)*X(52)-JVS(653)*X(53)& - &-JVS(654)*X(54)-JVS(655)*X(55)-JVS(656)*X(56)-JVS(657)*X(57)-JVS(658)*X(58) - X(59) = X(59)/JVS(659) - X(58) = (X(58)-JVS(625)*X(59))/(JVS(624)) - X(57) = (X(57)-JVS(601)*X(58)-JVS(602)*X(59))/(JVS(600)) - X(56) = (X(56)-JVS(584)*X(57)-JVS(585)*X(58)-JVS(586)*X(59))/(JVS(583)) - X(55) = (X(55)-JVS(566)*X(56)-JVS(567)*X(57)-JVS(568)*X(58)-JVS(569)*X(59))/(JVS(565)) - X(54) = (X(54)-JVS(537)*X(55)-JVS(538)*X(56)-JVS(539)*X(57)-JVS(540)*X(58)-JVS(541)*X(59))/(JVS(536)) - X(53) = (X(53)-JVS(506)*X(54)-JVS(507)*X(55)-JVS(508)*X(56)-JVS(509)*X(57)-JVS(510)*X(58)-JVS(511)*X(59))/(JVS(505)) - X(52) = (X(52)-JVS(458)*X(53)-JVS(459)*X(54)-JVS(460)*X(55)-JVS(461)*X(56)-JVS(462)*X(57)-JVS(463)*X(58)-JVS(464)& - &*X(59))/(JVS(457)) - X(51) = (X(51)-JVS(428)*X(52)-JVS(429)*X(53)-JVS(430)*X(54)-JVS(431)*X(55)-JVS(432)*X(56)-JVS(433)*X(57)-JVS(434)& - &*X(58)-JVS(435)*X(59))/(JVS(427)) - X(50) = (X(50)-JVS(386)*X(51)-JVS(387)*X(52)-JVS(388)*X(53)-JVS(389)*X(54)-JVS(390)*X(55)-JVS(391)*X(56)-JVS(392)& - &*X(58)-JVS(393)*X(59))/(JVS(385)) - X(49) = (X(49)-JVS(372)*X(51)-JVS(373)*X(52)-JVS(374)*X(53)-JVS(375)*X(54)-JVS(376)*X(55)-JVS(377)*X(58)-JVS(378)& - &*X(59))/(JVS(371)) - X(48) = (X(48)-JVS(358)*X(49)-JVS(359)*X(50)-JVS(360)*X(51)-JVS(361)*X(52)-JVS(362)*X(53)-JVS(363)*X(54)-JVS(364)& - &*X(55)-JVS(365)*X(56)-JVS(366)*X(57)-JVS(367)*X(58)-JVS(368)*X(59))/(JVS(357)) - X(47) = (X(47)-JVS(336)*X(51)-JVS(337)*X(52)-JVS(338)*X(53)-JVS(339)*X(54)-JVS(340)*X(55)-JVS(341)*X(56)-JVS(342)& - &*X(58)-JVS(343)*X(59))/(JVS(335)) - X(46) = (X(46)-JVS(325)*X(51)-JVS(326)*X(53)-JVS(327)*X(54)-JVS(328)*X(58)-JVS(329)*X(59))/(JVS(324)) - X(45) = (X(45)-JVS(312)*X(51)-JVS(313)*X(52)-JVS(314)*X(53)-JVS(315)*X(54)-JVS(316)*X(55)-JVS(317)*X(58)-JVS(318)& - &*X(59))/(JVS(311)) - X(44) = (X(44)-JVS(301)*X(51)-JVS(302)*X(52)-JVS(303)*X(53)-JVS(304)*X(55)-JVS(305)*X(58))/(JVS(300)) - X(43) = (X(43)-JVS(285)*X(44)-JVS(286)*X(45)-JVS(287)*X(46)-JVS(288)*X(49)-JVS(289)*X(50)-JVS(290)*X(51)-JVS(291)& - &*X(52)-JVS(292)*X(53)-JVS(293)*X(54)-JVS(294)*X(55)-JVS(295)*X(56)-JVS(296)*X(57)-JVS(297)*X(58)-JVS(298)& - &*X(59))/(JVS(284)) - X(42) = (X(42)-JVS(254)*X(44)-JVS(255)*X(45)-JVS(256)*X(46)-JVS(257)*X(49)-JVS(258)*X(50)-JVS(259)*X(51)-JVS(260)& - &*X(52)-JVS(261)*X(53)-JVS(262)*X(54)-JVS(263)*X(55)-JVS(264)*X(56)-JVS(265)*X(57)-JVS(266)*X(58)-JVS(267)& - &*X(59))/(JVS(253)) - X(41) = (X(41)-JVS(241)*X(51)-JVS(242)*X(52)-JVS(243)*X(53)-JVS(244)*X(55)-JVS(245)*X(58))/(JVS(240)) - X(40) = (X(40)-JVS(232)*X(46)-JVS(233)*X(51)-JVS(234)*X(52)-JVS(235)*X(53)-JVS(236)*X(54)-JVS(237)*X(55)-JVS(238)& - &*X(58))/(JVS(231)) - X(39) = (X(39)-JVS(222)*X(45)-JVS(223)*X(51)-JVS(224)*X(52)-JVS(225)*X(53)-JVS(226)*X(54)-JVS(227)*X(55)-JVS(228)& - &*X(58)-JVS(229)*X(59))/(JVS(221)) - X(38) = (X(38)-JVS(210)*X(46)-JVS(211)*X(51)-JVS(212)*X(52)-JVS(213)*X(53)-JVS(214)*X(54)-JVS(215)*X(55)-JVS(216)& - &*X(58))/(JVS(209)) - X(37) = (X(37)-JVS(198)*X(46)-JVS(199)*X(51)-JVS(200)*X(52)-JVS(201)*X(53)-JVS(202)*X(54)-JVS(203)*X(55)-JVS(204)& - &*X(58))/(JVS(197)) - X(36) = (X(36)-JVS(190)*X(51)-JVS(191)*X(52)-JVS(192)*X(53)-JVS(193)*X(55)-JVS(194)*X(58))/(JVS(189)) - X(35) = (X(35)-JVS(183)*X(51)-JVS(184)*X(52)-JVS(185)*X(53)-JVS(186)*X(55)-JVS(187)*X(58))/(JVS(182)) - X(34) = (X(34)-JVS(172)*X(35)-JVS(173)*X(36)-JVS(174)*X(45)-JVS(175)*X(50)-JVS(176)*X(52)-JVS(177)*X(53)-JVS(178)& - &*X(54)-JVS(179)*X(55)-JVS(180)*X(58))/(JVS(171)) - X(33) = (X(33)-JVS(160)*X(41)-JVS(161)*X(44)-JVS(162)*X(46)-JVS(163)*X(47)-JVS(164)*X(49)-JVS(165)*X(52)-JVS(166)& - &*X(53)-JVS(167)*X(54)-JVS(168)*X(55)-JVS(169)*X(56)-JVS(170)*X(58))/(JVS(159)) - X(32) = (X(32)-JVS(151)*X(51)-JVS(152)*X(52)-JVS(153)*X(53)-JVS(154)*X(54)-JVS(155)*X(55)-JVS(156)*X(59))/(JVS(150)) - X(31) = (X(31)-JVS(142)*X(35)-JVS(143)*X(45)-JVS(144)*X(52)-JVS(145)*X(53)-JVS(146)*X(54)-JVS(147)*X(55)-JVS(148)& - &*X(58))/(JVS(141)) - X(30) = (X(30)-JVS(134)*X(35)-JVS(135)*X(36)-JVS(136)*X(52)-JVS(137)*X(53)-JVS(138)*X(54)-JVS(139)*X(55)-JVS(140)& - &*X(58))/(JVS(133)) - X(29) = (X(29)-JVS(130)*X(46)-JVS(131)*X(53)-JVS(132)*X(54))/(JVS(129)) - X(28) = (X(28)-JVS(126)*X(46)-JVS(127)*X(53)-JVS(128)*X(54))/(JVS(125)) - X(27) = (X(27)-JVS(122)*X(46)-JVS(123)*X(53)-JVS(124)*X(54))/(JVS(121)) - X(26) = (X(26)-JVS(107)*X(27)-JVS(108)*X(28)-JVS(109)*X(29)-JVS(110)*X(31)-JVS(111)*X(34)-JVS(112)*X(43)-JVS(113)& - &*X(45)-JVS(114)*X(46)-JVS(115)*X(48)-JVS(116)*X(52)-JVS(117)*X(53)-JVS(118)*X(54)-JVS(119)*X(55)-JVS(120)& - &*X(58))/(JVS(106)) - X(25) = (X(25)-JVS(96)*X(30)-JVS(97)*X(31)-JVS(98)*X(34)-JVS(99)*X(43)-JVS(100)*X(48)-JVS(101)*X(51)-JVS(102)*X(53)& - &-JVS(103)*X(54)-JVS(104)*X(59))/(JVS(95)) - X(24) = (X(24)-JVS(90)*X(46)-JVS(91)*X(53)-JVS(92)*X(54))/(JVS(89)) - X(23) = (X(23)-JVS(86)*X(53)-JVS(87)*X(55)-JVS(88)*X(59))/(JVS(85)) - X(22) = (X(22)-JVS(83)*X(53)-JVS(84)*X(54))/(JVS(82)) - X(21) = (X(21)-JVS(77)*X(51)-JVS(78)*X(52)-JVS(79)*X(53))/(JVS(76)) - X(20) = (X(20)-JVS(73)*X(51)-JVS(74)*X(53)-JVS(75)*X(59))/(JVS(72)) - X(19) = (X(19)-JVS(69)*X(46)-JVS(70)*X(54)-JVS(71)*X(59))/(JVS(68)) - X(18) = (X(18)-JVS(64)*X(51)-JVS(65)*X(53)-JVS(66)*X(55))/(JVS(63)) - X(17) = (X(17)-JVS(59)*X(28)-JVS(60)*X(29)-JVS(61)*X(46)-JVS(62)*X(53))/(JVS(58)) - X(16) = (X(16)-JVS(57)*X(53))/(JVS(56)) - X(15) = (X(15)-JVS(54)*X(54)-JVS(55)*X(59))/(JVS(53)) - X(14) = (X(14)-JVS(51)*X(51)-JVS(52)*X(53))/(JVS(50)) - X(13) = (X(13)-JVS(48)*X(53)-JVS(49)*X(58))/(JVS(47)) - X(12) = (X(12)-JVS(45)*X(45)-JVS(46)*X(59))/(JVS(44)) - X(11) = (X(11)-JVS(43)*X(53))/(JVS(42)) - X(10) = (X(10)-JVS(41)*X(53))/(JVS(40)) - X(9) = (X(9)-JVS(39)*X(53))/(JVS(38)) - X(8) = (X(8)-JVS(37)*X(53))/(JVS(36)) - X(7) = (X(7)-JVS(35)*X(46))/(JVS(34)) - X(6) = (X(6)-JVS(33)*X(53))/(JVS(32)) - X(5) = (X(5)-JVS(31)*X(53))/(JVS(30)) - X(4) = (X(4)-JVS(28)*X(26)-JVS(29)*X(53))/(JVS(27)) - X(3) = (X(3)-JVS(11)*X(27)-JVS(12)*X(28)-JVS(13)*X(29)-JVS(14)*X(37)-JVS(15)*X(38)-JVS(16)*X(40)-JVS(17)*X(41)-JVS(18)& - &*X(44)-JVS(19)*X(45)-JVS(20)*X(46)-JVS(21)*X(49)-JVS(22)*X(50)-JVS(23)*X(52)-JVS(24)*X(55)-JVS(25)*X(56)-JVS(26)& - &*X(57))/(JVS(10)) - X(2) = (X(2)-JVS(5)*X(24)-JVS(6)*X(27)-JVS(7)*X(28)-JVS(8)*X(29)-JVS(9)*X(46))/(JVS(4)) - X(1) = (X(1)-JVS(2)*X(5)-JVS(3)*X(53))/(JVS(1)) - -END SUBROUTINE KppSolve - -! End of KppSolve function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! KppSolveTR - sparse, transposed back substitution -! Arguments : -! JVS - sparse Jacobian of variables -! X - Vector for variables -! XX - Vector for output variables -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE KppSolveTR ( JVS, X, XX ) - -! JVS - sparse Jacobian of variables - REAL(kind=dp) :: JVS(LU_NONZERO) -! X - Vector for variables - REAL(kind=dp) :: X(NVAR) -! XX - Vector for output variables - REAL(kind=dp) :: XX(NVAR) - - XX(1) = X(1)/JVS(1) - XX(2) = X(2)/JVS(4) - XX(3) = X(3)/JVS(10) - XX(4) = X(4)/JVS(27) - XX(5) = (X(5)-JVS(2)*XX(1))/(JVS(30)) - XX(6) = X(6)/JVS(32) - XX(7) = X(7)/JVS(34) - XX(8) = X(8)/JVS(36) - XX(9) = X(9)/JVS(38) - XX(10) = X(10)/JVS(40) - XX(11) = X(11)/JVS(42) - XX(12) = X(12)/JVS(44) - XX(13) = X(13)/JVS(47) - XX(14) = X(14)/JVS(50) - XX(15) = X(15)/JVS(53) - XX(16) = X(16)/JVS(56) - XX(17) = X(17)/JVS(58) - XX(18) = X(18)/JVS(63) - XX(19) = X(19)/JVS(68) - XX(20) = X(20)/JVS(72) - XX(21) = X(21)/JVS(76) - XX(22) = X(22)/JVS(82) - XX(23) = X(23)/JVS(85) - XX(24) = (X(24)-JVS(5)*XX(2))/(JVS(89)) - XX(25) = X(25)/JVS(95) - XX(26) = (X(26)-JVS(28)*XX(4))/(JVS(106)) - XX(27) = (X(27)-JVS(6)*XX(2)-JVS(11)*XX(3)-JVS(107)*XX(26))/(JVS(121)) - XX(28) = (X(28)-JVS(7)*XX(2)-JVS(12)*XX(3)-JVS(59)*XX(17)-JVS(108)*XX(26))/(JVS(125)) - XX(29) = (X(29)-JVS(8)*XX(2)-JVS(13)*XX(3)-JVS(60)*XX(17)-JVS(109)*XX(26))/(JVS(129)) - XX(30) = (X(30)-JVS(96)*XX(25))/(JVS(133)) - XX(31) = (X(31)-JVS(97)*XX(25)-JVS(110)*XX(26))/(JVS(141)) - XX(32) = X(32)/JVS(150) - XX(33) = X(33)/JVS(159) - XX(34) = (X(34)-JVS(98)*XX(25)-JVS(111)*XX(26))/(JVS(171)) - XX(35) = (X(35)-JVS(134)*XX(30)-JVS(142)*XX(31)-JVS(172)*XX(34))/(JVS(182)) - XX(36) = (X(36)-JVS(135)*XX(30)-JVS(173)*XX(34))/(JVS(189)) - XX(37) = (X(37)-JVS(14)*XX(3))/(JVS(197)) - XX(38) = (X(38)-JVS(15)*XX(3))/(JVS(209)) - XX(39) = X(39)/JVS(221) - XX(40) = (X(40)-JVS(16)*XX(3))/(JVS(231)) - XX(41) = (X(41)-JVS(17)*XX(3)-JVS(160)*XX(33))/(JVS(240)) - XX(42) = X(42)/JVS(253) - XX(43) = (X(43)-JVS(99)*XX(25)-JVS(112)*XX(26))/(JVS(284)) - XX(44) = (X(44)-JVS(18)*XX(3)-JVS(161)*XX(33)-JVS(254)*XX(42)-JVS(285)*XX(43))/(JVS(300)) - XX(45) = (X(45)-JVS(19)*XX(3)-JVS(45)*XX(12)-JVS(113)*XX(26)-JVS(143)*XX(31)-JVS(174)*XX(34)-JVS(222)*XX(39)-JVS(255)& - &*XX(42)-JVS(286)*XX(43))/(JVS(311)) - XX(46) = (X(46)-JVS(9)*XX(2)-JVS(20)*XX(3)-JVS(35)*XX(7)-JVS(61)*XX(17)-JVS(69)*XX(19)-JVS(90)*XX(24)-JVS(114)*XX(26)& - &-JVS(122)*XX(27)-JVS(126)*XX(28)-JVS(130)*XX(29)-JVS(162)*XX(33)-JVS(198)*XX(37)-JVS(210)*XX(38)-JVS(232)& - &*XX(40)-JVS(256)*XX(42)-JVS(287)*XX(43))/(JVS(324)) - XX(47) = (X(47)-JVS(163)*XX(33))/(JVS(335)) - XX(48) = (X(48)-JVS(100)*XX(25)-JVS(115)*XX(26))/(JVS(357)) - XX(49) = (X(49)-JVS(21)*XX(3)-JVS(164)*XX(33)-JVS(257)*XX(42)-JVS(288)*XX(43)-JVS(358)*XX(48))/(JVS(371)) - XX(50) = (X(50)-JVS(22)*XX(3)-JVS(175)*XX(34)-JVS(258)*XX(42)-JVS(289)*XX(43)-JVS(359)*XX(48))/(JVS(385)) - XX(51) = (X(51)-JVS(51)*XX(14)-JVS(64)*XX(18)-JVS(73)*XX(20)-JVS(77)*XX(21)-JVS(101)*XX(25)-JVS(151)*XX(32)-JVS(183)& - &*XX(35)-JVS(190)*XX(36)-JVS(199)*XX(37)-JVS(211)*XX(38)-JVS(223)*XX(39)-JVS(233)*XX(40)-JVS(241)*XX(41)& - &-JVS(259)*XX(42)-JVS(290)*XX(43)-JVS(301)*XX(44)-JVS(312)*XX(45)-JVS(325)*XX(46)-JVS(336)*XX(47)-JVS(360)& - &*XX(48)-JVS(372)*XX(49)-JVS(386)*XX(50))/(JVS(427)) - XX(52) = (X(52)-JVS(23)*XX(3)-JVS(78)*XX(21)-JVS(116)*XX(26)-JVS(136)*XX(30)-JVS(144)*XX(31)-JVS(152)*XX(32)-JVS(165)& - &*XX(33)-JVS(176)*XX(34)-JVS(184)*XX(35)-JVS(191)*XX(36)-JVS(200)*XX(37)-JVS(212)*XX(38)-JVS(224)*XX(39)& - &-JVS(234)*XX(40)-JVS(242)*XX(41)-JVS(260)*XX(42)-JVS(291)*XX(43)-JVS(302)*XX(44)-JVS(313)*XX(45)-JVS(337)& - &*XX(47)-JVS(361)*XX(48)-JVS(373)*XX(49)-JVS(387)*XX(50)-JVS(428)*XX(51))/(JVS(457)) - XX(53) = (X(53)-JVS(3)*XX(1)-JVS(29)*XX(4)-JVS(31)*XX(5)-JVS(33)*XX(6)-JVS(37)*XX(8)-JVS(39)*XX(9)-JVS(41)*XX(10)& - &-JVS(43)*XX(11)-JVS(48)*XX(13)-JVS(52)*XX(14)-JVS(57)*XX(16)-JVS(62)*XX(17)-JVS(65)*XX(18)-JVS(74)*XX(20)& - &-JVS(79)*XX(21)-JVS(83)*XX(22)-JVS(86)*XX(23)-JVS(91)*XX(24)-JVS(102)*XX(25)-JVS(117)*XX(26)-JVS(123)*XX(27)& - &-JVS(127)*XX(28)-JVS(131)*XX(29)-JVS(137)*XX(30)-JVS(145)*XX(31)-JVS(153)*XX(32)-JVS(166)*XX(33)-JVS(177)& - &*XX(34)-JVS(185)*XX(35)-JVS(192)*XX(36)-JVS(201)*XX(37)-JVS(213)*XX(38)-JVS(225)*XX(39)-JVS(235)*XX(40)& - &-JVS(243)*XX(41)-JVS(261)*XX(42)-JVS(292)*XX(43)-JVS(303)*XX(44)-JVS(314)*XX(45)-JVS(326)*XX(46)-JVS(338)& - &*XX(47)-JVS(362)*XX(48)-JVS(374)*XX(49)-JVS(388)*XX(50)-JVS(429)*XX(51)-JVS(458)*XX(52))/(JVS(505)) - XX(54) = (X(54)-JVS(54)*XX(15)-JVS(70)*XX(19)-JVS(84)*XX(22)-JVS(92)*XX(24)-JVS(103)*XX(25)-JVS(118)*XX(26)-JVS(124)& - &*XX(27)-JVS(128)*XX(28)-JVS(132)*XX(29)-JVS(138)*XX(30)-JVS(146)*XX(31)-JVS(154)*XX(32)-JVS(167)*XX(33)& - &-JVS(178)*XX(34)-JVS(202)*XX(37)-JVS(214)*XX(38)-JVS(226)*XX(39)-JVS(236)*XX(40)-JVS(262)*XX(42)-JVS(293)& - &*XX(43)-JVS(315)*XX(45)-JVS(327)*XX(46)-JVS(339)*XX(47)-JVS(363)*XX(48)-JVS(375)*XX(49)-JVS(389)*XX(50)& - &-JVS(430)*XX(51)-JVS(459)*XX(52)-JVS(506)*XX(53))/(JVS(536)) - XX(55) = (X(55)-JVS(24)*XX(3)-JVS(66)*XX(18)-JVS(87)*XX(23)-JVS(119)*XX(26)-JVS(139)*XX(30)-JVS(147)*XX(31)-JVS(155)& - &*XX(32)-JVS(168)*XX(33)-JVS(179)*XX(34)-JVS(186)*XX(35)-JVS(193)*XX(36)-JVS(203)*XX(37)-JVS(215)*XX(38)& - &-JVS(227)*XX(39)-JVS(237)*XX(40)-JVS(244)*XX(41)-JVS(263)*XX(42)-JVS(294)*XX(43)-JVS(304)*XX(44)-JVS(316)& - &*XX(45)-JVS(340)*XX(47)-JVS(364)*XX(48)-JVS(376)*XX(49)-JVS(390)*XX(50)-JVS(431)*XX(51)-JVS(460)*XX(52)& - &-JVS(507)*XX(53)-JVS(537)*XX(54))/(JVS(565)) - XX(56) = (X(56)-JVS(25)*XX(3)-JVS(169)*XX(33)-JVS(264)*XX(42)-JVS(295)*XX(43)-JVS(341)*XX(47)-JVS(365)*XX(48)-JVS(391)& - &*XX(50)-JVS(432)*XX(51)-JVS(461)*XX(52)-JVS(508)*XX(53)-JVS(538)*XX(54)-JVS(566)*XX(55))/(JVS(583)) - XX(57) = (X(57)-JVS(26)*XX(3)-JVS(265)*XX(42)-JVS(296)*XX(43)-JVS(366)*XX(48)-JVS(433)*XX(51)-JVS(462)*XX(52)-JVS(509)& - &*XX(53)-JVS(539)*XX(54)-JVS(567)*XX(55)-JVS(584)*XX(56))/(JVS(600)) - XX(58) = (X(58)-JVS(49)*XX(13)-JVS(120)*XX(26)-JVS(140)*XX(30)-JVS(148)*XX(31)-JVS(170)*XX(33)-JVS(180)*XX(34)& - &-JVS(187)*XX(35)-JVS(194)*XX(36)-JVS(204)*XX(37)-JVS(216)*XX(38)-JVS(228)*XX(39)-JVS(238)*XX(40)-JVS(245)& - &*XX(41)-JVS(266)*XX(42)-JVS(297)*XX(43)-JVS(305)*XX(44)-JVS(317)*XX(45)-JVS(328)*XX(46)-JVS(342)*XX(47)& - &-JVS(367)*XX(48)-JVS(377)*XX(49)-JVS(392)*XX(50)-JVS(434)*XX(51)-JVS(463)*XX(52)-JVS(510)*XX(53)-JVS(540)& - &*XX(54)-JVS(568)*XX(55)-JVS(585)*XX(56)-JVS(601)*XX(57))/(JVS(624)) - XX(59) = (X(59)-JVS(46)*XX(12)-JVS(55)*XX(15)-JVS(71)*XX(19)-JVS(75)*XX(20)-JVS(88)*XX(23)-JVS(104)*XX(25)-JVS(156)& - &*XX(32)-JVS(229)*XX(39)-JVS(267)*XX(42)-JVS(298)*XX(43)-JVS(318)*XX(45)-JVS(329)*XX(46)-JVS(343)*XX(47)& - &-JVS(368)*XX(48)-JVS(378)*XX(49)-JVS(393)*XX(50)-JVS(435)*XX(51)-JVS(464)*XX(52)-JVS(511)*XX(53)-JVS(541)& - &*XX(54)-JVS(569)*XX(55)-JVS(586)*XX(56)-JVS(602)*XX(57)-JVS(625)*XX(58))/(JVS(659)) - XX(59) = XX(59) - XX(58) = XX(58)-JVS(658)*XX(59) - XX(57) = XX(57)-JVS(623)*XX(58)-JVS(657)*XX(59) - XX(56) = XX(56)-JVS(599)*XX(57)-JVS(622)*XX(58)-JVS(656)*XX(59) - XX(55) = XX(55)-JVS(582)*XX(56)-JVS(598)*XX(57)-JVS(621)*XX(58)-JVS(655)*XX(59) - XX(54) = XX(54)-JVS(564)*XX(55)-JVS(581)*XX(56)-JVS(597)*XX(57)-JVS(620)*XX(58)-JVS(654)*XX(59) - XX(53) = XX(53)-JVS(535)*XX(54)-JVS(563)*XX(55)-JVS(580)*XX(56)-JVS(596)*XX(57)-JVS(619)*XX(58)-JVS(653)*XX(59) - XX(52) = XX(52)-JVS(504)*XX(53)-JVS(534)*XX(54)-JVS(562)*XX(55)-JVS(579)*XX(56)-JVS(595)*XX(57)-JVS(618)*XX(58)& - &-JVS(652)*XX(59) - XX(51) = XX(51)-JVS(456)*XX(52)-JVS(503)*XX(53)-JVS(533)*XX(54)-JVS(561)*XX(55)-JVS(578)*XX(56)-JVS(594)*XX(57)& - &-JVS(617)*XX(58)-JVS(651)*XX(59) - XX(50) = XX(50)-JVS(426)*XX(51)-JVS(455)*XX(52)-JVS(502)*XX(53)-JVS(532)*XX(54)-JVS(560)*XX(55)-JVS(577)*XX(56)& - &-JVS(616)*XX(58)-JVS(650)*XX(59) - XX(49) = XX(49)-JVS(384)*XX(50)-JVS(425)*XX(51)-JVS(454)*XX(52)-JVS(501)*XX(53)-JVS(531)*XX(54)-JVS(559)*XX(55)& - &-JVS(576)*XX(56)-JVS(593)*XX(57)-JVS(615)*XX(58)-JVS(649)*XX(59) - XX(48) = XX(48)-JVS(424)*XX(51)-JVS(453)*XX(52)-JVS(500)*XX(53)-JVS(530)*XX(54)-JVS(558)*XX(55)-JVS(648)*XX(59) - XX(47) = XX(47)-JVS(356)*XX(48)-JVS(383)*XX(50)-JVS(423)*XX(51)-JVS(499)*XX(53)-JVS(557)*XX(55)-JVS(575)*XX(56)& - &-JVS(592)*XX(57)-JVS(647)*XX(59) - XX(46) = XX(46)-JVS(334)*XX(47)-JVS(355)*XX(48)-JVS(370)*XX(49)-JVS(382)*XX(50)-JVS(422)*XX(51)-JVS(452)*XX(52)& - &-JVS(498)*XX(53)-JVS(529)*XX(54)-JVS(556)*XX(55)-JVS(574)*XX(56)-JVS(591)*XX(57)-JVS(614)*XX(58)-JVS(646)& - &*XX(59) - XX(45) = XX(45)-JVS(354)*XX(48)-JVS(421)*XX(51)-JVS(451)*XX(52)-JVS(497)*XX(53)-JVS(528)*XX(54)-JVS(555)*XX(55)& - &-JVS(573)*XX(56)-JVS(613)*XX(58)-JVS(645)*XX(59) - XX(44) = XX(44)-JVS(333)*XX(47)-JVS(353)*XX(48)-JVS(381)*XX(50)-JVS(420)*XX(51)-JVS(450)*XX(52)-JVS(496)*XX(53)& - &-JVS(527)*XX(54)-JVS(554)*XX(55)-JVS(572)*XX(56)-JVS(590)*XX(57)-JVS(612)*XX(58)-JVS(644)*XX(59) - XX(43) = XX(43)-JVS(419)*XX(51)-JVS(495)*XX(53)-JVS(526)*XX(54)-JVS(643)*XX(59) - XX(42) = XX(42)-JVS(352)*XX(48)-JVS(418)*XX(51)-JVS(494)*XX(53)-JVS(571)*XX(56) - XX(41) = XX(41)-JVS(252)*XX(42)-JVS(283)*XX(43)-JVS(332)*XX(47)-JVS(351)*XX(48)-JVS(380)*XX(50)-JVS(417)*XX(51)& - &-JVS(449)*XX(52)-JVS(493)*XX(53)-JVS(553)*XX(55)-JVS(589)*XX(57)-JVS(611)*XX(58)-JVS(642)*XX(59) - XX(40) = XX(40)-JVS(251)*XX(42)-JVS(282)*XX(43)-JVS(350)*XX(48)-JVS(416)*XX(51)-JVS(448)*XX(52)-JVS(552)*XX(55)& - &-JVS(610)*XX(58)-JVS(641)*XX(59) - XX(39) = XX(39)-JVS(250)*XX(42)-JVS(281)*XX(43)-JVS(415)*XX(51)-JVS(447)*XX(52)-JVS(551)*XX(55)-JVS(609)*XX(58)& - &-JVS(640)*XX(59) - XX(38) = XX(38)-JVS(280)*XX(43)-JVS(331)*XX(47)-JVS(349)*XX(48)-JVS(414)*XX(51)-JVS(446)*XX(52)-JVS(550)*XX(55)& - &-JVS(608)*XX(58)-JVS(639)*XX(59) - XX(37) = XX(37)-JVS(249)*XX(42)-JVS(279)*XX(43)-JVS(348)*XX(48)-JVS(413)*XX(51)-JVS(445)*XX(52)-JVS(549)*XX(55)& - &-JVS(607)*XX(58)-JVS(638)*XX(59) - XX(36) = XX(36)-JVS(248)*XX(42)-JVS(278)*XX(43)-JVS(310)*XX(45)-JVS(412)*XX(51)-JVS(444)*XX(52)-JVS(492)*XX(53)& - &-JVS(525)*XX(54)-JVS(548)*XX(55)-JVS(606)*XX(58)-JVS(637)*XX(59) - XX(35) = XX(35)-JVS(247)*XX(42)-JVS(277)*XX(43)-JVS(309)*XX(45)-JVS(411)*XX(51)-JVS(443)*XX(52)-JVS(491)*XX(53)& - &-JVS(524)*XX(54)-JVS(547)*XX(55)-JVS(605)*XX(58)-JVS(636)*XX(59) - XX(34) = XX(34)-JVS(410)*XX(51)-JVS(490)*XX(53)-JVS(523)*XX(54)-JVS(546)*XX(55)-JVS(635)*XX(59) - XX(33) = XX(33)-JVS(379)*XX(50)-JVS(489)*XX(53)-JVS(545)*XX(55)-JVS(588)*XX(57) - XX(32) = XX(32)-JVS(246)*XX(42)-JVS(276)*XX(43)-JVS(330)*XX(47)-JVS(409)*XX(51)-JVS(442)*XX(52)-JVS(544)*XX(55)& - &-JVS(634)*XX(59) - XX(31) = XX(31)-JVS(275)*XX(43)-JVS(408)*XX(51)-JVS(488)*XX(53)-JVS(522)*XX(54)-JVS(633)*XX(59) - XX(30) = XX(30)-JVS(308)*XX(45)-JVS(407)*XX(51)-JVS(487)*XX(53)-JVS(521)*XX(54)-JVS(632)*XX(59) - XX(29) = XX(29)-JVS(158)*XX(33)-JVS(208)*XX(38)-JVS(274)*XX(43)-JVS(323)*XX(46)-JVS(347)*XX(48)-JVS(369)*XX(49)& - &-JVS(406)*XX(51)-JVS(441)*XX(52)-JVS(486)*XX(53)-JVS(520)*XX(54) - XX(28) = XX(28)-JVS(196)*XX(37)-JVS(207)*XX(38)-JVS(273)*XX(43)-JVS(322)*XX(46)-JVS(346)*XX(48)-JVS(405)*XX(51)& - &-JVS(440)*XX(52)-JVS(485)*XX(53)-JVS(519)*XX(54) - XX(27) = XX(27)-JVS(195)*XX(37)-JVS(206)*XX(38)-JVS(272)*XX(43)-JVS(321)*XX(46)-JVS(345)*XX(48)-JVS(404)*XX(51)& - &-JVS(439)*XX(52)-JVS(484)*XX(53)-JVS(518)*XX(54) - XX(26) = XX(26)-JVS(403)*XX(51)-JVS(483)*XX(53) - XX(25) = XX(25)-JVS(482)*XX(53)-JVS(517)*XX(54)-JVS(631)*XX(59) - XX(24) = XX(24)-JVS(105)*XX(26)-JVS(205)*XX(38)-JVS(230)*XX(40)-JVS(271)*XX(43)-JVS(320)*XX(46)-JVS(402)*XX(51)& - &-JVS(481)*XX(53)-JVS(516)*XX(54) - XX(23) = XX(23)-JVS(220)*XX(39)-JVS(270)*XX(43)-JVS(480)*XX(53)-JVS(515)*XX(54)-JVS(543)*XX(55)-JVS(630)*XX(59) - XX(22) = XX(22)-JVS(94)*XX(25)-JVS(149)*XX(32)-JVS(219)*XX(39)-JVS(307)*XX(45)-JVS(401)*XX(51)-JVS(479)*XX(53)& - &-JVS(514)*XX(54) - XX(21) = XX(21)-JVS(269)*XX(43)-JVS(400)*XX(51)-JVS(438)*XX(52)-JVS(478)*XX(53) - XX(20) = XX(20)-JVS(399)*XX(51)-JVS(477)*XX(53)-JVS(513)*XX(54)-JVS(629)*XX(59) - XX(19) = XX(19)-JVS(319)*XX(46)-JVS(604)*XX(58)-JVS(628)*XX(59) - XX(18) = XX(18)-JVS(437)*XX(52)-JVS(476)*XX(53)-JVS(542)*XX(55) - XX(17) = XX(17)-JVS(436)*XX(52)-JVS(475)*XX(53) - XX(16) = XX(16)-JVS(157)*XX(33)-JVS(268)*XX(43)-JVS(344)*XX(48)-JVS(398)*XX(51)-JVS(474)*XX(53)-JVS(570)*XX(56) - XX(15) = XX(15)-JVS(93)*XX(25)-JVS(512)*XX(54)-JVS(627)*XX(59) - XX(14) = XX(14)-JVS(397)*XX(51)-JVS(473)*XX(53) - XX(13) = XX(13)-JVS(472)*XX(53)-JVS(603)*XX(58) - XX(12) = XX(12)-JVS(306)*XX(45)-JVS(626)*XX(59) - XX(11) = XX(11)-JVS(81)*XX(22)-JVS(188)*XX(36)-JVS(396)*XX(51)-JVS(471)*XX(53) - XX(10) = XX(10)-JVS(80)*XX(22)-JVS(181)*XX(35)-JVS(395)*XX(51)-JVS(470)*XX(53) - XX(9) = XX(9)-JVS(218)*XX(39)-JVS(299)*XX(44)-JVS(469)*XX(53) - XX(8) = XX(8)-JVS(217)*XX(39)-JVS(239)*XX(41)-JVS(468)*XX(53) - XX(7) = XX(7)-JVS(67)*XX(19)-JVS(467)*XX(53) - XX(6) = XX(6)-JVS(466)*XX(53)-JVS(587)*XX(57) - XX(5) = XX(5)-JVS(394)*XX(51)-JVS(465)*XX(53) - XX(4) = XX(4) - XX(3) = XX(3) - XX(2) = XX(2) - XX(1) = XX(1) - -END SUBROUTINE KppSolveTR - -! End of KppSolveTR function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! BLAS_UTIL - BLAS-LIKE utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!-------------------------------------------------------------- -! -! BLAS/LAPACK-like subroutines used by the integration algorithms -! It is recommended to replace them by calls to the optimized -! BLAS/LAPACK library for your machine -! -! (C) Adrian Sandu, Aug. 2004 -! Virginia Polytechnic Institute and State University -!-------------------------------------------------------------- - - -!-------------------------------------------------------------- - SUBROUTINE WCOPY(N,X,incX,Y,incY) -!-------------------------------------------------------------- -! copies a vector, x, to a vector, y: y <- x -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SCOPY(N,X,1,Y,1) or CALL DCOPY(N,X,1,Y,1) -!-------------------------------------------------------------- -! USE RADM2_Precision - - INTEGER :: i,incX,incY,M,MP1,N - REAL(kind=dp) :: X(N),Y(N) - - IF (N.LE.0) RETURN - - M = MOD(N,8) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = X(i) - END DO - IF( N .LT. 8 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,8 - Y(i) = X(i) - Y(i + 1) = X(i + 1) - Y(i + 2) = X(i + 2) - Y(i + 3) = X(i + 3) - Y(i + 4) = X(i + 4) - Y(i + 5) = X(i + 5) - Y(i + 6) = X(i + 6) - Y(i + 7) = X(i + 7) - END DO - - END SUBROUTINE WCOPY - - -!-------------------------------------------------------------- - SUBROUTINE WAXPY(N,Alpha,X,incX,Y,incY) -!-------------------------------------------------------------- -! constant times a vector plus a vector: y <- y + Alpha*x -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SAXPY(N,Alpha,X,1,Y,1) or CALL DAXPY(N,Alpha,X,1,Y,1) -!-------------------------------------------------------------- - - INTEGER :: i,incX,incY,M,MP1,N - REAL(kind=dp) :: X(N),Y(N),Alpha - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp - - IF (Alpha .EQ. ZERO) RETURN - IF (N .LE. 0) RETURN - - M = MOD(N,4) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = Y(i) + Alpha*X(i) - END DO - IF( N .LT. 4 ) RETURN - END IF - MP1 = M + 1 - DO i = MP1,N,4 - Y(i) = Y(i) + Alpha*X(i) - Y(i + 1) = Y(i + 1) + Alpha*X(i + 1) - Y(i + 2) = Y(i + 2) + Alpha*X(i + 2) - Y(i + 3) = Y(i + 3) + Alpha*X(i + 3) - END DO - - END SUBROUTINE WAXPY - - - -!-------------------------------------------------------------- - SUBROUTINE WSCAL(N,Alpha,X,incX) -!-------------------------------------------------------------- -! constant times a vector: x(1:N) <- Alpha*x(1:N) -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SSCAL(N,Alpha,X,1) or CALL DSCAL(N,Alpha,X,1) -!-------------------------------------------------------------- - - INTEGER :: i,incX,M,MP1,N - REAL(kind=dp) :: X(N),Alpha - REAL(kind=dp), PARAMETER :: ZERO=0.0_dp, ONE=1.0_dp - - IF (Alpha .EQ. ONE) RETURN - IF (N .LE. 0) RETURN - - M = MOD(N,5) - IF( M .NE. 0 ) THEN - IF (Alpha .EQ. (-ONE)) THEN - DO i = 1,M - X(i) = -X(i) - END DO - ELSEIF (Alpha .EQ. ZERO) THEN - DO i = 1,M - X(i) = ZERO - END DO - ELSE - DO i = 1,M - X(i) = Alpha*X(i) - END DO - END IF - IF( N .LT. 5 ) RETURN - END IF - MP1 = M + 1 - IF (Alpha .EQ. (-ONE)) THEN - DO i = MP1,N,5 - X(i) = -X(i) - X(i + 1) = -X(i + 1) - X(i + 2) = -X(i + 2) - X(i + 3) = -X(i + 3) - X(i + 4) = -X(i + 4) - END DO - ELSEIF (Alpha .EQ. ZERO) THEN - DO i = MP1,N,5 - X(i) = ZERO - X(i + 1) = ZERO - X(i + 2) = ZERO - X(i + 3) = ZERO - X(i + 4) = ZERO - END DO - ELSE - DO i = MP1,N,5 - X(i) = Alpha*X(i) - X(i + 1) = Alpha*X(i + 1) - X(i + 2) = Alpha*X(i + 2) - X(i + 3) = Alpha*X(i + 3) - X(i + 4) = Alpha*X(i + 4) - END DO - END IF - - END SUBROUTINE WSCAL - -!-------------------------------------------------------------- - REAL(kind=dp) FUNCTION WLAMCH( C ) -!-------------------------------------------------------------- -! returns epsilon machine -! after LAPACK -! replace this by the function from the optimized LAPACK implementation: -! CALL SLAMCH('E') or CALL DLAMCH('E') -!-------------------------------------------------------------- -! USE RADM2_Precision - - CHARACTER :: C - INTEGER :: i - REAL(kind=dp), SAVE :: Eps - REAL(kind=dp) :: Suma - REAL(kind=dp), PARAMETER :: ONE=1.0_dp, HALF=0.5_dp - LOGICAL, SAVE :: First=.TRUE. - - IF (First) THEN - First = .FALSE. - Eps = HALF**(16) - DO i = 17, 80 - Eps = Eps*HALF - CALL WLAMCH_ADD(ONE,Eps,Suma) - IF (Suma.LE.ONE) GOTO 10 - END DO - PRINT*,'ERROR IN WLAMCH. EPS < ',Eps - RETURN -10 Eps = Eps*2 - i = i-1 - END IF - - WLAMCH = Eps - - END FUNCTION WLAMCH - - SUBROUTINE WLAMCH_ADD( A, B, Suma ) -! USE RADM2_Precision - - REAL(kind=dp) A, B, Suma - Suma = A + B - - END SUBROUTINE WLAMCH_ADD -!-------------------------------------------------------------- - - -!-------------------------------------------------------------- - SUBROUTINE SET2ZERO(N,Y) -!-------------------------------------------------------------- -! copies zeros into the vector y: y <- 0 -! after BLAS -!-------------------------------------------------------------- - - INTEGER :: i,M,MP1,N - REAL(kind=dp) :: Y(N) - REAL(kind=dp), PARAMETER :: ZERO = 0.0d0 - - IF (N.LE.0) RETURN - - M = MOD(N,8) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = ZERO - END DO - IF( N .LT. 8 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,8 - Y(i) = ZERO - Y(i + 1) = ZERO - Y(i + 2) = ZERO - Y(i + 3) = ZERO - Y(i + 4) = ZERO - Y(i + 5) = ZERO - Y(i + 6) = ZERO - Y(i + 7) = ZERO - END DO - - END SUBROUTINE SET2ZERO - - -!-------------------------------------------------------------- - REAL(kind=dp) FUNCTION WDOT (N, DX, incX, DY, incY) -!-------------------------------------------------------------- -! dot produce: wdot = x(1:N)*y(1:N) -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SDOT(N,X,1,Y,1) or CALL DDOT(N,X,1,Y,1) -!-------------------------------------------------------------- -! USE messy_mecca_kpp_Precision -!-------------------------------------------------------------- - IMPLICIT NONE - INTEGER :: N, incX, incY - REAL(kind=dp) :: DX(N), DY(N) - - INTEGER :: i, IX, IY, M, MP1, NS - - WDOT = 0.0D0 - IF (N .LE. 0) RETURN - IF (incX .EQ. incY) IF (incX-1) 5,20,60 -! -! Code for unequal or nonpositive increments. -! - 5 IX = 1 - IY = 1 - IF (incX .LT. 0) IX = (-N+1)*incX + 1 - IF (incY .LT. 0) IY = (-N+1)*incY + 1 - DO i = 1,N - WDOT = WDOT + DX(IX)*DY(IY) - IX = IX + incX - IY = IY + incY - END DO - RETURN -! -! Code for both increments equal to 1. -! -! Clean-up loop so remaining vector length is a multiple of 5. -! - 20 M = MOD(N,5) - IF (M .EQ. 0) GO TO 40 - DO i = 1,M - WDOT = WDOT + DX(i)*DY(i) - END DO - IF (N .LT. 5) RETURN - 40 MP1 = M + 1 - DO i = MP1,N,5 - WDOT = WDOT + DX(i)*DY(i) + DX(i+1)*DY(i+1) + DX(i+2)*DY(i+2) + & - DX(i+3)*DY(i+3) + DX(i+4)*DY(i+4) - END DO - RETURN -! -! Code for equal, positive, non-unit increments. -! - 60 NS = N*incX - DO i = 1,NS,incX - WDOT = WDOT + DX(i)*DY(i) - END DO - - END FUNCTION WDOT - - -!-------------------------------------------------------------- - SUBROUTINE WADD(N,X,Y,Z) -!-------------------------------------------------------------- -! adds two vectors: z <- x + y -! BLAS - like -!-------------------------------------------------------------- -! USE RADM2_Precision - - INTEGER :: i, M, MP1, N - REAL(kind=dp) :: X(N),Y(N),Z(N) - - IF (N.LE.0) RETURN - - M = MOD(N,5) - IF( M /= 0 ) THEN - DO i = 1,M - Z(i) = X(i) + Y(i) - END DO - IF( N < 5 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,5 - Z(i) = X(i) + Y(i) - Z(i + 1) = X(i + 1) + Y(i + 1) - Z(i + 2) = X(i + 2) + Y(i + 2) - Z(i + 3) = X(i + 3) + Y(i + 3) - Z(i + 4) = X(i + 4) + Y(i + 4) - END DO - - END SUBROUTINE WADD - - - -!-------------------------------------------------------------- - SUBROUTINE WGEFA(N,A,Ipvt,info) -!-------------------------------------------------------------- -! WGEFA FACTORS THE MATRIX A (N,N) BY -! GAUSS ELIMINATION WITH PARTIAL PIVOTING -! LINPACK - LIKE -!-------------------------------------------------------------- -! - INTEGER :: N,Ipvt(N),info - REAL(kind=dp) :: A(N,N) - REAL(kind=dp) :: t, dmax, da - INTEGER :: j,k,l - REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0 - - info = 0 - -size: IF (n > 1) THEN - -col: DO k = 1, n-1 - -! find l = pivot index -! l = idamax(n-k+1,A(k,k),1) + k - 1 - l = k; dmax = abs(A(k,k)) - DO j = k+1,n - da = ABS(A(j,k)) - IF (da > dmax) THEN - l = j; dmax = da - END IF - END DO - Ipvt(k) = l - -! zero pivot implies this column already triangularized - IF (ABS(A(l,k)) < TINY(ZERO)) THEN - info = k - return - ELSE - IF (l /= k) THEN - t = A(l,k); A(l,k) = A(k,k); A(k,k) = t - END IF - t = -ONE/A(k,k) - CALL WSCAL(n-k,t,A(k+1,k),1) - DO j = k+1, n - t = A(l,j) - IF (l /= k) THEN - A(l,j) = A(k,j); A(k,j) = t - END IF - CALL WAXPY(n-k,t,A(k+1,k),1,A(k+1,j),1) - END DO - END IF - - END DO col - - END IF size - - Ipvt(N) = N - IF (ABS(A(N,N)) == ZERO) info = N - - END SUBROUTINE WGEFA - - -!-------------------------------------------------------------- - SUBROUTINE WGESL(Trans,N,A,Ipvt,b) -!-------------------------------------------------------------- -! WGESL solves the system -! a * x = b or trans(a) * x = b -! using the factors computed by WGEFA. -! -! Trans = 'N' to solve A*x = b , -! = 'T' to solve transpose(A)*x = b -! LINPACK - LIKE -!-------------------------------------------------------------- - - INTEGER :: N,Ipvt(N) - CHARACTER :: trans - REAL(kind=dp) :: A(N,N),b(N) - REAL(kind=dp) :: t - INTEGER :: k,kb,l - - - SELECT CASE (Trans) - - CASE ('n','N') ! Solve A * x = b - -! first solve L*y = b - IF (n >= 2) THEN - DO k = 1, n-1 - l = Ipvt(k) - t = b(l) - IF (l /= k) THEN - b(l) = b(k) - b(k) = t - END IF - CALL WAXPY(n-k,t,a(k+1,k),1,b(k+1),1) - END DO - END IF -! now solve U*x = y - DO kb = 1, n - k = n + 1 - kb - b(k) = b(k)/a(k,k) - t = -b(k) - CALL WAXPY(k-1,t,a(1,k),1,b(1),1) - END DO - - CASE ('t','T') ! Solve transpose(A) * x = b - -! first solve trans(U)*y = b - DO k = 1, n - t = WDOT(k-1,a(1,k),1,b(1),1) - b(k) = (b(k) - t)/a(k,k) - END DO -! now solve trans(L)*x = y - IF (n >= 2) THEN - DO kb = 1, n-1 - k = n - kb - b(k) = b(k) + WDOT(n-k,a(k+1,k),1,b(k+1),1) - l = Ipvt(k) - IF (l /= k) THEN - t = b(l); b(l) = b(k); b(k) = t - END IF - END DO - END IF - - END SELECT - - END SUBROUTINE WGESL -! End of BLAS_UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE RADM2_LinearAlgebra - diff --git a/boxmox/compiled_mechs/RADM2/RADM2_LinearAlgebra.o b/boxmox/compiled_mechs/RADM2/RADM2_LinearAlgebra.o deleted file mode 100644 index b0e15ca575cdd70e41cdaf866ea29c089f7ffa0d..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/RADM2_LinearAlgebra.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/RADM2_Main.f90 b/boxmox/compiled_mechs/RADM2/RADM2_Main.f90 deleted file mode 100644 index 0de07d6652bb3442a11f6e8ada7d378c8349f8be..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADM2/RADM2_Main.f90 +++ /dev/null @@ -1,161 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Main Program File -! -! Generated by KPP-2.2.3 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 : RADM2_Main.f90 -! Time : Thu Oct 8 08:22:27 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADM2_18938_BOXMOX -! Equation file : RADM2.kpp -! Output root filename : RADM2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! MAIN - Main program - driver routine -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -PROGRAM RADM2_Driver - - USE RADM2_Model - USE RADM2_Initialize, ONLY: Initialize - - REAL(kind=dp) :: T, DVAL(NSPEC) - REAL(kind=dp) :: RSTATE(20) - INTEGER :: IERR - INTEGER :: i, tcount, ttot - CHARACTER(LEN=60), PARAMETER :: & - brk = "------------------------------------------------------------" - - !~~~> Initialization - - STEPMIN = 0.0d0 - STEPMAX = 0.0d0 - - DO i=1,NVAR - RTOL(i) = 1.0d-4 - ATOL(i) = 1.0d-3 - END DO - - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX (__BOXMOX_VERSION__) driver" - WRITE(*,*) brk - WRITE(*,*) " " - - CALL Initialize() - - WRITE(*,*) brk - WRITE(*,*) " " - - CALL UpdateEnvironment() - - CALL readInput('InitialConditions.csv', NSPEC, SPC_NAMES, C, & - InitialCondition) - CALL InitSaveData() - - CALL InitFixNOx(NSPEC, SPC_NAMES, C) - - !~~~> Time loop - T = TSTART - tcount = 1 - ttot = NINT((TEND - TSTART) / DT) - kron: DO WHILE (T < TEND) - - IF (lverbose) THEN - WRITE(*,*) "" - WRITE(*,"(1X,A,F8.2,A)") "-------------------- time (s): ", T, & - " --------------------" - WRITE(*,*) "" - ENDIF - - TIME = T - CALL GetMass( C, DVAL ) - CALL SaveData() - - CALL UpdateEnvironment() - CALL UpdateAerosol() - CALL UpdatePhotolysisRates() - - CALL UpdateKturb() - - CALL readInput('Background.csv', NSPEC, SPC_NAMES, C, Mix, lzero=.TRUE.) - CALL readInput('Emissions.csv', NSPEC, SPC_NAMES, C, Emission) - CALL readInput('Deposition.csv', NSPEC, SPC_NAMES, C, Deposition) - - CALL Update_SUN() - CALL Update_RCONST() - - IF (T == TSTART) WRITE(*,*) " " - - IF ( MOD(tcount * 10, ttot) .EQ. 0 ) THEN - WRITE(6,991) (T-TSTART)/(TEND-TSTART)*100, T, & - ( TRIM(SPC_NAMES(MONITOR(i))), & - C(MONITOR(i))/CFACTOR, i=1,NMONITOR ) - ENDIF - - IF (lfix_NOx) THEN - CALL FixNOx(NSPEC, SPC_NAMES, C) - ENDIF - - CALL INTEGRATE( TIN = T, TOUT = T+DT, RSTATUS_U = RSTATE, & - ICNTRL_U = (/ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /), & - IERR_U = IERR ) - T = RSTATE(1) - - tcount = tcount + 1 - - IF (IERR < 0) THEN - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX integration failed, stopping." - WRITE(*,*) brk - WRITE(*,*) " " - STOP 1 - ENDIF - - IF (T == TSTART .OR. lverbose) THEN - WRITE(*,*) "" - WRITE(*,*) brk - WRITE(*,*) "" - ENDIF - - END DO kron - !~~~> End Time loop - - CALL GetMass( C, DVAL ) - WRITE(6,991) (T-TSTART)/(TEND-TSTART)*100, T, & - ( TRIM(SPC_NAMES(MONITOR(i))), & - C(MONITOR(i))/CFACTOR, i=1,NMONITOR ) - TIME = T - CALL SaveData() - CALL CloseSaveData() - - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX successfully completed." - WRITE(*,*) brk - WRITE(*,*) " " - -991 FORMAT(F6.1,'%. T=',E9.3,2X,200(A,'=',E11.4,'; ')) - -END PROGRAM RADM2_Driver - -! End of MAIN function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - diff --git a/boxmox/compiled_mechs/RADM2/RADM2_Main.o b/boxmox/compiled_mechs/RADM2/RADM2_Main.o deleted file mode 100644 index 4231529a73cdad62061adb50cfcd3f8238b32a96..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/RADM2_Main.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/RADM2_Model.f90 b/boxmox/compiled_mechs/RADM2/RADM2_Model.f90 deleted file mode 100644 index d67f24375b4349c5927f1a4f998fc80b1958acd3..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADM2/RADM2_Model.f90 +++ /dev/null @@ -1,21 +0,0 @@ -MODULE RADM2_Model - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Completely defines the model RADM2 -! by using all the associated modules -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RADM2_Precision - USE RADM2_Parameters - USE RADM2_Global - USE RADM2_Function - USE RADM2_Integrator - USE RADM2_Rates - USE RADM2_Jacobian - USE RADM2_Stoichiom - USE RADM2_LinearAlgebra - USE RADM2_Monitor - USE RADM2_Util - -END MODULE RADM2_Model - diff --git a/boxmox/compiled_mechs/RADM2/RADM2_Model.o b/boxmox/compiled_mechs/RADM2/RADM2_Model.o deleted file mode 100644 index d2c27a1dfb34f0dde2e197515aa32b21c638afaf..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/RADM2_Model.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/RADM2_Monitor.f90 b/boxmox/compiled_mechs/RADM2/RADM2_Monitor.f90 deleted file mode 100644 index fc82ea5bcf48776018ea5bf4605102e2ef07bd79..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADM2/RADM2_Monitor.f90 +++ /dev/null @@ -1,232 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Utility Data Module File -! -! Generated by KPP-2.2.3 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 : RADM2_Monitor.f90 -! Time : Thu Oct 8 08:22:27 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADM2_18938_BOXMOX -! Equation file : RADM2.kpp -! Output root filename : RADM2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RADM2_Monitor - - - CHARACTER(LEN=15), PARAMETER, DIMENSION(61) :: SPC_NAMES = (/ & - 'SULF ','ORA1 ','ORA2 ', & - 'CO2 ','SO2 ','ETH ', & - 'O1D ','HC5 ','HC8 ', & - 'TOL ','XYL ','TPAN ', & - 'HONO ','H2O2 ','N2O5 ', & - 'HC3 ','CH4 ','PAA ', & - 'O3P ','HNO4 ','OP1 ', & - 'CSL ','PAN ','OL2 ', & - 'HNO3 ','CO ','ISO ', & - 'OLT ','OLI ','DCB ', & - 'GLY ','XNO2 ','KET ', & - 'MGLY ','TOLP ','XYLP ', & - 'OLTP ','OLN ','XO2 ', & - 'OL2P ','HC5P ','OP2 ', & - 'HCHO ','HC8P ','TCO3 ', & - 'O3 ','ONIT ','ALD ', & - 'OLIP ','KETP ','HO2 ', & - 'MO2 ','OH ','NO3 ', & - 'ACO3 ','HC3P ','ETHP ', & - 'NO ','NO2 ','H2O ', & - 'M ' /) - - INTEGER, PARAMETER, DIMENSION(61) :: LOOKAT = (/ & - 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, & - 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, & - 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, & - 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, & - 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, & - 61 /) - - INTEGER, DIMENSION(1) :: MONITOR - CHARACTER(LEN=15), DIMENSION(1) :: SMASS - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_0 = (/ & - ' NO2 --> O3P + NO ', & - ' O3 --> O1D ', & - ' O3 --> O3P ', & - ' HONO --> OH + NO ', & - ' HNO3 --> OH + NO2 ', & - ' HNO4 --> 0.65 HO2 + 0.35 OH + 0.35 NO3 + 0.65 NO2 ', & - ' NO3 --> NO ', & - ' NO3 --> O3P + NO2 ', & - ' H2O2 --> 2 OH ', & - ' HCHO --> CO ', & - ' HCHO --> CO + 2 HO2 ', & - ' ALD --> CO + HO2 + MO2 ', & - ' OP1 --> HCHO + HO2 + OH ', & - ' OP2 --> ALD + HO2 + OH ', & - ' PAA --> MO2 + OH ', & - ' KET --> ACO3 + ETHP ', & - ' GLY --> 1.87 CO + 0.13 HCHO ', & - ' GLY --> 1.55 CO + 0.45 HCHO + 0.8 HO2 ', & - ' MGLY --> CO + HO2 + ACO3 ', & - ' DCB --> TCO3 + HO2 ', & - ' ONIT --> 0.8 KET + 0.2 ALD + HO2 + NO2 ', & - ' O3P + M --> O3 ', & - ' O3P + NO2 --> NO ', & - ' O1D + M --> O3P ', & - ' O1D + H2O --> 2 OH ', & - ' O3 + NO --> NO2 ', & - ' O3 + OH --> HO2 ', & - ' O3 + HO2 --> OH ', & - ' HO2 + NO --> OH + NO2 ', & - ' HO2 + NO2 --> HNO4 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_1 = (/ & - ' HNO4 --> HO2 + NO2 ', & - ' 2 HO2 --> H2O2 ', & - '2 HO2 + H2O --> H2O2 ', & - ' H2O2 + OH --> HO2 + H2O ', & - ' OH + NO --> HONO ', & - ' 2 NO + M --> 2 NO2 ', & - ' O3 + NO2 --> NO3 ', & - ' NO3 + NO --> 2 NO2 ', & - ' NO3 + NO2 --> NO + NO2 ', & - ' HO2 + NO3 --> HNO3 ', & - ' NO3 + NO2 --> N2O5 ', & - ' N2O5 --> NO3 + NO2 ', & - ' N2O5 --> 2 HNO3 ', & - ' OH + NO2 --> HNO3 ', & - ' HNO3 + OH --> NO3 + H2O ', & - ' HNO4 + OH --> NO2 + H2O ', & - ' HO2 + OH --> H2O ', & - ' SO2 + OH --> SULF + HO2 ', & - ' CO + OH --> CO2 + HO2 ', & - ' CH4 + OH --> MO2 + H2O ', & - ' ETH + OH --> ETHP + H2O ', & - ' HC3 + OH --> 0.025 KET + 0.009 HCHO + 0.075 ALD + 0.17 HO2 + 0.83 HC3P + H2O ', & - ' HC5 + OH --> 0.25 XO2 + HC5P + H2O ', & - ' HC8 + OH --> 0.75 XO2 + HC8P + H2O ', & - ' OL2 + OH --> OL2P ', & - ' OLT + OH --> OLTP ', & - ' OLI + OH --> OLIP ', & - ' TOL + OH --> 0.25 CSL + 0.75 TOLP + 0.25 HO2 ', & - ' XYL + OH --> 0.17 CSL + 0.83 XYLP + 0.17 HO2 ', & - ' CSL + OH --> 0.9 XO2 + 0.9 TCO3 + 0.1 HO2 - -0.9 OH ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_2 = (/ & - ' HCHO + OH --> CO + HO2 + H2O ', & - ' ALD + OH --> ACO3 + H2O ', & - ' KET + OH --> KETP + H2O ', & - ' GLY + OH --> 2 CO + HO2 + H2O ', & - ' MGLY + OH --> CO + ACO3 + H2O ', & - ' DCB + OH --> TCO3 + H2O ', & - ' OP1 + OH --> 0.5 HCHO + 0.5 MO2 + 0.5 OH ', & - ' OP2 + OH --> 0.5 ALD + 0.5 OH + 0.5 HC3P ', & - ' PAA + OH --> ACO3 + H2O ', & - ' PAN + OH --> XO2 + HCHO + NO3 ', & - ' ONIT + OH --> HC3P + NO2 ', & - ' ISO + OH --> OLTP ', & - ' ACO3 + NO2 --> PAN ', & - ' PAN --> ACO3 + NO2 ', & - ' TCO3 + NO2 --> TPAN ', & - ' TPAN --> TCO3 + NO2 ', & - ' MO2 + NO --> HCHO + HO2 + NO2 ', & - ' HC3P + NO --> 0.25 KET + 0.09 HCHO + 0.036 ONIT + 0.75 ALD + 0.964 HO2 + 0.964 NO2 ', & - ' HC5P + NO --> 0.69 KET + 0.08 ONIT + 0.38 ALD + 0.92 HO2 + 0.92 NO2 ', & - ' HC8P + NO --> 1.06 KET + 0.04 HCHO + 0.24 ONIT + 0.35 ALD + 0.76 HO2 + 0.76 NO2 ', & - ' OL2P + NO --> 1.6 HCHO + 0.2 ALD + HO2 + NO2 ', & - ' OLTP + NO --> HCHO + ALD + HO2 + NO2 ', & - ' OLIP + NO --> 0.1 KET + 0.28 HCHO + 1.45 ALD + HO2 + NO2 ', & - ' ACO3 + NO --> MO2 + NO2 ', & - ' TCO3 + NO --> 0.95 CO + 0.89 GLY + 0.11 MGLY + 2 XO2 + 0.92 HO2 + 0.05 ACO3 + NO2 ', & - ' TOLP + NO --> 0.7 DCB + 0.16 GLY + 0.17 MGLY + HO2 + NO2 ', & - ' XYLP + NO --> 0.806 DCB + 0.45 MGLY + HO2 + NO2 ', & - ' ETHP + NO --> ALD + HO2 + NO2 ', & - ' KETP + NO --> MGLY + HO2 + NO2 ', & - ' OLN + NO --> HCHO + ALD + 2 NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_3 = (/ & - ' HCHO + NO3 --> HNO3 + CO + HO2 ', & - ' ALD + NO3 --> HNO3 + ACO3 ', & - ' GLY + NO3 --> HNO3 + 2 CO + HO2 ', & - ' MGLY + NO3 --> HNO3 + CO + ACO3 ', & - ' DCB + NO3 --> HNO3 + TCO3 ', & - ' CSL + NO3 --> 0.5 CSL + HNO3 + XNO2 ', & - ' OL2 + NO3 --> OLN ', & - ' OLT + NO3 --> OLN ', & - ' OLI + NO3 --> OLN ', & - ' ISO + NO3 --> OLN ', & - ' OL2 + O3 --> 0.4 ORA1 + 0.42 CO + HCHO + 0.12 HO2 ', & - ' OLT + O3 --> 0.2 ORA1 + 0.2 ORA2 + 0.06 CH4 + 0.33 CO + 0.53 HCHO + 0.5 ALD + 0.23 HO2 + 0.22 MO2 + 0.1 OH ', & - ' OLI + O3 --> 0.06 ORA1 + 0.29 ORA2 + 0.09 CH4 + 0.23 CO + 0.1 KET + 0.18 HCHO + 0.72 ALD + 0.26 HO2 + 0.31 MO2 + 0.14 OH ', & - ' ISO + O3 --> 0.2 ORA1 + 0.2 ORA2 + 0.33 CO + 0.53 HCHO + 0.5 ALD + 0.23 HO2 + 0.22 MO2 + 0.1 OH ', & - ' HO2 + MO2 --> OP1 ', & - ' HO2 + ETHP --> OP2 ', & - ' HO2 + HC3P --> OP2 ', & - ' HC5P + HO2 --> OP2 ', & - ' HC8P + HO2 --> OP2 ', & - ' OL2P + HO2 --> OP2 ', & - ' OLTP + HO2 --> OP2 ', & - ' OLIP + HO2 --> OP2 ', & - ' KETP + HO2 --> OP2 ', & - ' HO2 + ACO3 --> PAA ', & - ' TOLP + HO2 --> OP2 ', & - ' XYLP + HO2 --> OP2 ', & - ' TCO3 + HO2 --> OP2 ', & - ' OLN + HO2 --> ONIT ', & - ' 2 MO2 --> 1.5 HCHO + HO2 ', & - ' MO2 + ETHP --> 0.75 HCHO + 0.75 ALD + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_4 = (/ & - ' MO2 + HC3P --> 0.6 KET + 0.75 HCHO + 0.15 ALD + HO2 ', & - ' HC5P + MO2 --> 0.75 KET + 0.77 HCHO + 0.41 ALD + HO2 ', & - ' HC8P + MO2 --> 1.39 KET + 0.8 HCHO + 0.46 ALD + HO2 ', & - ' OL2P + MO2 --> 1.55 HCHO + 0.35 ALD + HO2 ', & - ' OLTP + MO2 --> 1.25 HCHO + 0.75 ALD + HO2 ', & - ' OLIP + MO2 --> 0.55 KET + 0.89 HCHO + 0.725 ALD + HO2 ', & - ' KETP + MO2 --> 0.75 MGLY + 0.75 HCHO + HO2 ', & - ' MO2 + ACO3 --> 0.5 ORA2 + HCHO + 0.5 HO2 + 0.5 MO2 ', & - ' TOLP + MO2 --> 0.7 DCB + 0.16 GLY + 0.17 MGLY + HCHO + 2 HO2 ', & - ' XYLP + MO2 --> 0.806 DCB + 0.45 MGLY + HCHO + 2 HO2 ', & - ' TCO3 + MO2 --> 0.5 ORA2 + 0.475 CO + 0.445 GLY + 0.055 MGLY + XO2 + 0.5 HCHO + 0.46 HO2 + 0.025 ACO3 ', & - 'ACO3 + ETHP --> 0.5 ORA2 + ALD + 0.5 HO2 + 0.5 MO2 ', & - 'ACO3 + HC3P --> 0.5 ORA2 + 0.8 KET + 0.2 ALD + 0.5 HO2 + 0.5 MO2 ', & - 'HC5P + ACO3 --> 0.5 ORA2 + 0.86 KET + 0.14 ALD + 0.5 HO2 + 0.5 MO2 ', & - 'HC8P + ACO3 --> 0.5 ORA2 + 0.9 KET + 0.1 ALD + 0.5 HO2 + 0.5 MO2 ', & - 'OL2P + ACO3 --> 0.5 ORA2 + 0.8 HCHO + 0.6 ALD + 0.5 HO2 + 0.5 MO2 ', & - 'OLTP + ACO3 --> 0.5 ORA2 + 0.5 HCHO + ALD + 0.5 HO2 + 0.5 MO2 ', & - 'OLIP + ACO3 --> 0.5 ORA2 + 0.55 KET + 0.14 HCHO + 0.725 ALD + 0.5 HO2 + 0.5 MO2 ', & - 'KETP + ACO3 --> 0.5 ORA2 + MGLY + 0.5 HO2 + 0.5 MO2 ', & - ' 2 ACO3 --> 2 MO2 ', & - 'TOLP + ACO3 --> DCB + 0.2 GLY + 0.8 MGLY + HO2 + MO2 ', & - 'XYLP + ACO3 --> DCB + MGLY + HO2 + MO2 ', & - 'TCO3 + ACO3 --> 0.95 CO + 0.89 GLY + 0.11 MGLY + 2 XO2 + 0.92 HO2 + MO2 + 0.05 ACO3 ', & - ' XO2 + HO2 --> OP2 ', & - ' XO2 + MO2 --> HCHO + HO2 ', & - ' XO2 + ACO3 --> MO2 ', & - ' 2 XO2 --> H2O ', & - ' XO2 + NO --> NO2 ', & - ' XNO2 + NO2 --> ONIT ', & - ' XNO2 + HO2 --> OP2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(6) :: EQN_NAMES_5 = (/ & - ' XNO2 + MO2 --> HCHO + HO2 ', & - 'XNO2 + ACO3 --> MO2 ', & - ' 2 XNO2 --> H2O ', & - ' OLN + MO2 --> 1.75 HCHO + ALD + 0.5 HO2 + NO2 ', & - ' OLN + ACO3 --> 0.5 ORA2 + HCHO + ALD + 0.5 MO2 + NO2 ', & - ' 2 OLN --> 2 HCHO + 2 ALD + 2 NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(156) :: EQN_NAMES = (/& - EQN_NAMES_0, EQN_NAMES_1, EQN_NAMES_2, EQN_NAMES_3, EQN_NAMES_4, & - EQN_NAMES_5 /) - -! INLINED global variables - -! End INLINED global variables - - -END MODULE RADM2_Monitor diff --git a/boxmox/compiled_mechs/RADM2/RADM2_Monitor.o b/boxmox/compiled_mechs/RADM2/RADM2_Monitor.o deleted file mode 100644 index 0fba242bb9106c5e373eb5aba5e06bd25c66193b..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/RADM2_Monitor.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/RADM2_Parameters.f90 b/boxmox/compiled_mechs/RADM2/RADM2_Parameters.f90 deleted file mode 100644 index 922b4f0ad8bee74e552f78e98325c9e650b460dd..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADM2/RADM2_Parameters.f90 +++ /dev/null @@ -1,143 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Parameter Module File -! -! Generated by KPP-2.2.3 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 : RADM2_Parameters.f90 -! Time : Thu Oct 8 08:22:27 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADM2_18938_BOXMOX -! Equation file : RADM2.kpp -! Output root filename : RADM2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RADM2_Parameters - - USE RADM2_Precision - PUBLIC - SAVE - - -! NSPEC - Number of chemical species - INTEGER, PARAMETER :: NSPEC = 61 -! NVAR - Number of Variable species - INTEGER, PARAMETER :: NVAR = 59 -! NVARACT - Number of Active species - INTEGER, PARAMETER :: NVARACT = 55 -! NFIX - Number of Fixed species - INTEGER, PARAMETER :: NFIX = 2 -! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 156 -! NVARST - Starting of variables in conc. vect. - INTEGER, PARAMETER :: NVARST = 1 -! NFIXST - Starting of fixed in conc. vect. - INTEGER, PARAMETER :: NFIXST = 60 -! NONZERO - Number of nonzero entries in Jacobian - INTEGER, PARAMETER :: NONZERO = 572 -! LU_NONZERO - Number of nonzero entries in LU factoriz. of Jacobian - INTEGER, PARAMETER :: LU_NONZERO = 659 -! CNVAR - (NVAR+1) Number of elements in compressed row format - INTEGER, PARAMETER :: CNVAR = 60 -! CNEQN - (NREACT+1) Number stoicm elements in compressed col format - INTEGER, PARAMETER :: CNEQN = 157 -! NLOOKAT - Number of species to look at - INTEGER, PARAMETER :: NLOOKAT = 61 -! NMONITOR - Number of species to monitor - INTEGER, PARAMETER :: NMONITOR = 0 -! NMASS - Number of atoms to check mass balance - INTEGER, PARAMETER :: NMASS = 1 - -! Index declaration for variable species in C and VAR -! VAR(ind_spc) = C(ind_spc) - - INTEGER, PARAMETER :: ind_SULF = 1 - INTEGER, PARAMETER :: ind_ORA1 = 2 - INTEGER, PARAMETER :: ind_ORA2 = 3 - INTEGER, PARAMETER :: ind_CO2 = 4 - INTEGER, PARAMETER :: ind_SO2 = 5 - INTEGER, PARAMETER :: ind_ETH = 6 - INTEGER, PARAMETER :: ind_O1D = 7 - INTEGER, PARAMETER :: ind_HC5 = 8 - INTEGER, PARAMETER :: ind_HC8 = 9 - INTEGER, PARAMETER :: ind_TOL = 10 - INTEGER, PARAMETER :: ind_XYL = 11 - INTEGER, PARAMETER :: ind_TPAN = 12 - INTEGER, PARAMETER :: ind_HONO = 13 - INTEGER, PARAMETER :: ind_H2O2 = 14 - INTEGER, PARAMETER :: ind_N2O5 = 15 - INTEGER, PARAMETER :: ind_HC3 = 16 - INTEGER, PARAMETER :: ind_CH4 = 17 - INTEGER, PARAMETER :: ind_PAA = 18 - INTEGER, PARAMETER :: ind_O3P = 19 - INTEGER, PARAMETER :: ind_HNO4 = 20 - INTEGER, PARAMETER :: ind_OP1 = 21 - INTEGER, PARAMETER :: ind_CSL = 22 - INTEGER, PARAMETER :: ind_PAN = 23 - INTEGER, PARAMETER :: ind_OL2 = 24 - INTEGER, PARAMETER :: ind_HNO3 = 25 - INTEGER, PARAMETER :: ind_CO = 26 - INTEGER, PARAMETER :: ind_ISO = 27 - INTEGER, PARAMETER :: ind_OLT = 28 - INTEGER, PARAMETER :: ind_OLI = 29 - INTEGER, PARAMETER :: ind_DCB = 30 - INTEGER, PARAMETER :: ind_GLY = 31 - INTEGER, PARAMETER :: ind_XNO2 = 32 - INTEGER, PARAMETER :: ind_KET = 33 - INTEGER, PARAMETER :: ind_MGLY = 34 - INTEGER, PARAMETER :: ind_TOLP = 35 - INTEGER, PARAMETER :: ind_XYLP = 36 - INTEGER, PARAMETER :: ind_OLTP = 37 - INTEGER, PARAMETER :: ind_OLN = 38 - INTEGER, PARAMETER :: ind_XO2 = 39 - INTEGER, PARAMETER :: ind_OL2P = 40 - INTEGER, PARAMETER :: ind_HC5P = 41 - INTEGER, PARAMETER :: ind_OP2 = 42 - INTEGER, PARAMETER :: ind_HCHO = 43 - INTEGER, PARAMETER :: ind_HC8P = 44 - INTEGER, PARAMETER :: ind_TCO3 = 45 - INTEGER, PARAMETER :: ind_O3 = 46 - INTEGER, PARAMETER :: ind_ONIT = 47 - INTEGER, PARAMETER :: ind_ALD = 48 - INTEGER, PARAMETER :: ind_OLIP = 49 - INTEGER, PARAMETER :: ind_KETP = 50 - INTEGER, PARAMETER :: ind_HO2 = 51 - INTEGER, PARAMETER :: ind_MO2 = 52 - INTEGER, PARAMETER :: ind_OH = 53 - INTEGER, PARAMETER :: ind_NO3 = 54 - INTEGER, PARAMETER :: ind_ACO3 = 55 - INTEGER, PARAMETER :: ind_HC3P = 56 - INTEGER, PARAMETER :: ind_ETHP = 57 - INTEGER, PARAMETER :: ind_NO = 58 - INTEGER, PARAMETER :: ind_NO2 = 59 - -! Index declaration for fixed species in C -! C(ind_spc) - - INTEGER, PARAMETER :: ind_H2O = 60 - INTEGER, PARAMETER :: ind_M = 61 - -! Index declaration for fixed species in FIX -! FIX(indf_spc) = C(ind_spc) = C(NVAR+indf_spc) - - INTEGER, PARAMETER :: indf_H2O = 1 - INTEGER, PARAMETER :: indf_M = 2 - -! NJVRP - Length of sparse Jacobian JVRP - INTEGER, PARAMETER :: NJVRP = 275 - -! NSTOICM - Length of Sparse Stoichiometric Matrix - INTEGER, PARAMETER :: NSTOICM = 652 - -END MODULE RADM2_Parameters - diff --git a/boxmox/compiled_mechs/RADM2/RADM2_Parameters.o b/boxmox/compiled_mechs/RADM2/RADM2_Parameters.o deleted file mode 100644 index f0d5f08aaedd8dae2566f355e92ed15954ae7f24..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/RADM2_Parameters.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/RADM2_Precision.f90 b/boxmox/compiled_mechs/RADM2/RADM2_Precision.f90 deleted file mode 100644 index d5cef508ff6df7658603a663baf1893e28ee4a22..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADM2/RADM2_Precision.f90 +++ /dev/null @@ -1,17 +0,0 @@ - -MODULE RADM2_Precision - -! -! Definition of different levels of accuracy -! for REAL variables using KIND parameterization -! -! KPP SP - Single precision kind - INTEGER, PARAMETER :: sp = SELECTED_REAL_KIND(6,30) -! KPP DP - Double precision kind - INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(14,300) -! KPP QP - Quadruple precision kind - INTEGER, PARAMETER :: qp = SELECTED_REAL_KIND(18,400) - -END MODULE RADM2_Precision - - diff --git a/boxmox/compiled_mechs/RADM2/RADM2_Precision.o b/boxmox/compiled_mechs/RADM2/RADM2_Precision.o deleted file mode 100644 index a946932d91de96f5fa4fbb008b8acee4a2adc0e4..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/RADM2_Precision.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/RADM2_Rates.f90 b/boxmox/compiled_mechs/RADM2/RADM2_Rates.f90 deleted file mode 100644 index 3e62224229fe9af3567167a845cae7d0cf5fcea8..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADM2/RADM2_Rates.f90 +++ /dev/null @@ -1,590 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The Reaction Rates File -! -! Generated by KPP-2.2.3 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 : RADM2_Rates.f90 -! Time : Thu Oct 8 08:22:27 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADM2_18938_BOXMOX -! Equation file : RADM2.kpp -! Output root filename : RADM2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RADM2_Rates - - USE RADM2_Parameters - USE RADM2_Global - USE RADM2_Util - IMPLICIT NONE - -CONTAINS - - - -! Begin Rate Law Functions from KPP_HOME/util/UserRateLaws - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! User-defined Rate Law functions -! Note: the default argument type for rate laws, as read from the equations file, is single precision -! but all the internal calculations are performed in double precision -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~> Arrhenius -! REAL(kind=dp) FUNCTION ARR( A0,B0,C0 ) -! REAL A0,B0,C0 -! ARR = DBLE(A0) * EXP(-DBLE(B0)/TEMP) * (TEMP/300.0_dp)**DBLE(C0) -! END FUNCTION ARR - -! Arrhenius (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION ARR( A0,B0,C0, TEMP ) - REAL(kind=dp) :: TEMP - REAL(kind=dp) A0,B0,C0 - ARR = A0 * EXP( -B0 /TEMP ) * (TEMP/300._dp)**C0 - END FUNCTION ARR - -!~~~> Simplified Arrhenius, with two arguments -!~~~> Note: The argument B0 has a changed sign when compared to ARR -! REAL(kind=dp) FUNCTION ARR2( A0,B0 ) -! REAL A0,B0 -! ARR2 = DBLE(A0) * EXP( DBLE(B0)/TEMP ) -! END FUNCTION ARR2 -! CK 20140313 WRF-chem uses different kind of Arrhenius function -! with TEMP as argument... - REAL(kind=dp) FUNCTION ARR2( A0,B0, TEMP ) - REAL(kind=dp) :: TEMP - REAL(kind=dp) A0,B0 - ARR2 = A0 * EXP( -B0 /TEMP ) - END FUNCTION ARR2 -! CK 20140313 end - -! REAL(kind=dp) FUNCTION EP2(A0,C0,A2,C2,A3,C3) -! REAL A0,C0,A2,C2,A3,C3 -! REAL(kind=dp) K0,K2,K3 -! K0 = DBLE(A0) * EXP(-DBLE(C0)/TEMP) -! K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP) -! K3 = DBLE(A3) * EXP(-DBLE(C3)/TEMP) -! K3 = K3*CFACTOR*1.0E6_dp -! EP2 = K0 + K3/(1.0_dp+K3/K2 ) -! END FUNCTION EP2 - -! REAL(kind=dp) FUNCTION EP3(A1,C1,A2,C2) -! REAL A1, C1, A2, C2 -! REAL(kind=dp) K1, K2 -! K1 = DBLE(A1) * EXP(-DBLE(C1)/TEMP) -! K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP) -! EP3 = K1 + K2*(1.0E6_dp*CFACTOR) -! END FUNCTION EP3 - -! EP2 (added by psaide 22-07-2009) - REAL(kind=dp) FUNCTION EP2( A0,C0,A2,C2,A3,C3,TEMP,cair) - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A0,C0,A2,C2,A3,C3 - REAL(kind=dp) K0,K2,K3 - - K0 = A0 * EXP(-C0 /TEMP) - K2 = A2 * EXP(-C2 /TEMP) - K3 = A3 * EXP(-C3 /TEMP) -! K3 = K3 * 2.45E13_dp * 1.0E6_dp - K3 = K3 * cair - EP2 = K0 + K3/(1._dp+K3/K2 ) - END FUNCTION EP2 - -! EP3 (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION EP3(A1,C1,A2,C2,TEMP,cair) - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A1, C1, A2, C2 - REAL(kind=dp) K1, K2 - - K1 = A1 * EXP(-C1 /TEMP) - K2 = A2 * EXP(-C2 /TEMP) -! EP3 = K1 + K2*(1.0E6_dp * 2.45E13_dp) - EP3 = K1 + K2*cair - END FUNCTION EP3 - - -! REAL(kind=dp) FUNCTION FALL ( A0,B0,C0,A1,B1,C1,CF) -! REAL A0,B0,C0,A1,B1,C1,CF -! REAL(kind=dp) K0, K1 -! K0 = DBLE(A0) * EXP(-DBLE(B0)/TEMP)* (TEMP/300.0_dp)**DBLE(C0) -! K1 = DBLE(A1) * EXP(-DBLE(B1)/TEMP)* (TEMP/300.0_dp)**DBLE(C1) -! K0 = K0*CFACTOR*1.0E6_dp -! K1 = K0/K1 -! FALL = (K0/(1.0_dp+K1))* & -! DBLE(CF)**(1.0_dp/(1.0_dp+(LOG10(K1))**2)) -! END FUNCTION FALL - -! FALL (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION FALL( A0,B0,C0,A1,B1,C1,CF,TEMP,cair) - - INTRINSIC LOG10 - - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A0,B0,C0,A1,B1,C1,CF - REAL(kind=dp) K0, K1 - - K0 = A0 * EXP(-B0 /TEMP)* (TEMP/300._dp)**C0 - K1 = A1 * EXP(-B1 /TEMP)* (TEMP/300._dp)**C1 -! K0 = K0 * 2.45E13_dp * 1.0E6_dp - K0 = K0 * cair - K1 = K0/K1 - FALL = (K0/(1._dp+K1))*CF**(1._dp/(1._dp+(LOG10(K1))**2)) - - END FUNCTION FALL - -! FALL2 (added by psaide 28-10-2009) - REAL(KIND=dp) FUNCTION F2( A0,B0,C0,A1,B1,C1,CF,CN,TEMP,cair) - - INTRINSIC LOG10 - - REAL(KIND=dp) :: TEMP - REAL(KIND=dp) :: cair - REAL(KIND=dp) A0,B0,C0,A1,B1,C1,CF,CN - REAL(KIND=dp) K0, K1 - - K0 = A0 * EXP(-B0 /TEMP)* (TEMP/300._dp)**C0 - K1 = A1 * EXP(-B1 /TEMP)* (TEMP/300._dp)**C1 -! K0 = K0 * 2.45E13_dp * 1.0E6_dp - K0 = K0 * cair - K1 = K0/K1 - F2 = (K0/(1._dp+K1))*CF**(1._dp/(1._dp+(LOG10(K1)/CN)**2)) - - END FUNCTION F2 - - - !--------------------------------------------------------------------------- - - ELEMENTAL REAL(kind=dp) FUNCTION k_3rd(temp,cair,k0_300K,n,kinf_300K,m,fc) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL, INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL, INTENT(IN) :: n ! exponent for low pressure limit - REAL, INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL, INTENT(IN) :: m ! exponent for high pressure limit - REAL, INTENT(IN) :: fc ! broadening factor (usually fc=0.6) - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - k_3rd = k0_T/(1._dp+k_ratio)*fc**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - END FUNCTION k_3rd - - !--------------------------------------------------------------------------- - - ELEMENTAL REAL(kind=dp) FUNCTION k_arr (k_298,tdep,temp) - ! Arrhenius function - - REAL, INTENT(IN) :: k_298 ! k at T = 298.15K - REAL, INTENT(IN) :: tdep ! temperature dependence - REAL(kind=dp), INTENT(IN) :: temp ! temperature - - INTRINSIC EXP - - k_arr = k_298 * EXP(tdep*(1._dp/temp-3.3540E-3_dp)) ! 1/298.15=3.3540e-3 - - END FUNCTION k_arr - -! CK 20140313 in the following some more rate functions needed by -! WRF-chem packages - -!------------------------------------ -! Troe reactions (as in Stockwell et al, 1997) - - REAL(kind=dp) FUNCTION TROE(k0_300K,n,kinf_300K,m,temp,cair) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - TROE = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - END FUNCTION TROE - - - -!------------------------------------------- -! Troe equilibrium reactions (as in Stockwell et al, 1997) - - REAL(kind=dp) FUNCTION TROEE(A, B, k0_300K,n,kinf_300K,m,temp,cair) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - REAL(kind=dp), INTENT(IN) :: A, B - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio, troe - - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - troe = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - TROEE = A * EXP( - B / temp) * troe - - - - END FUNCTION TROEE - -!------------------------ -! k=T^2 C exp (-D/T) reactions - - REAL(kind=dp) FUNCTION THERMAL_T2(c, d ,temp) - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: c, d - - - THERMAL_T2= temp**2._dp * c * EXP(- d / temp) - - END FUNCTION THERMAL_T2 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! End of User-defined Rate Law functions -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -! End Rate Law Functions from KPP_HOME/util/UserRateLaws - - -! Begin INLINED Rate Law Functions - - - -! **************************************************************************** -! J - the photolysis rate retrieval function -! **************************************************************************** - REAL(kind=dp) FUNCTION J(name) - - CHARACTER(LEN=*), INTENT(IN) :: name - - CHARACTER(LEN=15) :: xname - - INTEGER :: i - - xname(:) = " " - xname(1:LEN(name)) = name - - J = jvalues(hash(xname)) - - RETURN - - END FUNCTION J -! **************************************************************************** - - -REAL(KIND=dp) FUNCTION k46( TEMP, C_M ) - REAL(KIND=dp), INTENT(IN) :: temp, c_m - REAL(KIND=dp) :: k0, k2, k3 - - k0=7.2E-15_dp * EXP(785._dp/TEMP) - k2=4.1E-16_dp * EXP(1440._dp/TEMP) - k3=1.9E-33_dp * EXP(725._dp/TEMP) * C_M - - k46=k0+k3/(1+k3/k2) - - -END FUNCTION k46 - - - - -! End INLINED Rate Law Functions - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_SUN - update SUN light using TIME -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - SUBROUTINE Update_SUN() - !USE RADM2_Parameters - !USE RADM2_Global - - IMPLICIT NONE - - REAL(kind=dp) :: SunRise, SunSet - REAL(kind=dp) :: Thour, Tlocal, Ttmp - ! PI - Value of pi - REAL(kind=dp), PARAMETER :: PI = 3.14159265358979d0 - - SunRise = 4.5_dp - SunSet = 19.5_dp - Thour = TIME/3600.0_dp - Tlocal = Thour - (INT(Thour)/24)*24 - - IF ((Tlocal>=SunRise).AND.(Tlocal<=SunSet)) THEN - Ttmp = (2.0*Tlocal-SunRise-SunSet)/(SunSet-SunRise) - IF (Ttmp.GT.0) THEN - Ttmp = Ttmp*Ttmp - ELSE - Ttmp = -Ttmp*Ttmp - END IF - SUN = ( 1.0_dp + COS(PI*Ttmp) )/2.0_dp - ELSE - SUN = 0.0_dp - END IF - - END SUBROUTINE Update_SUN - -! End of Update_SUN function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_RCONST - function to update rate constants -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Update_RCONST ( ) - - - - -! Begin INLINED RCONST - - -! End INLINED RCONST - - RCONST(1) = (j('no2')) - RCONST(2) = (j('o31d')) - RCONST(3) = (j('o33p')) - RCONST(4) = (j('hno2')) - RCONST(5) = (j('hno3')) - RCONST(6) = (j('hno4')) - RCONST(7) = (j('no3o2')) - RCONST(8) = (j('no3o')) - RCONST(9) = (j('h2o2')) - RCONST(10) = (j('ch2om')) - RCONST(11) = (j('ch2or')) - RCONST(12) = (j('ch3cho')) - RCONST(13) = (j('ch3o2h')) - RCONST(14) = (j('ch3coch3')) - RCONST(15) = (j('ch3coo2h')) - RCONST(16) = (j('ch3coc2h5')) - RCONST(17) = (j('hcocho')) - RCONST(18) = (j('hcochob')) - RCONST(19) = (j('ch3cocho')) - RCONST(20) = (j('hcochest')) - RCONST(21) = (j('ch3ono2')) - RCONST(22) = (.20946e0*(C_M*6.00D-34*(TEMP/300.0)**(-2.3))) - RCONST(23) = (ARR2(6.5D-12,-120.0_dp,TEMP)) - RCONST(24) = (.78084*ARR2(1.8D-11,-110.0_dp,TEMP)+.20946e0*ARR2(3.2D-11,-70.0_dp,TEMP)) - RCONST(25) = (2.2D-10) - RCONST(26) = (ARR2(2.0D-12,1400.0_dp,TEMP)) - RCONST(27) = (ARR2(1.6D-12,940.0_dp,TEMP)) - RCONST(28) = (ARR2(1.1D-14,500.0_dp,TEMP)) - RCONST(29) = (ARR2(3.7D-12,-240.0_dp,TEMP)) - RCONST(30) = (TROE(1.80D-31,3.2_dp,4.70D-12,1.4_dp,TEMP,C_M)) - RCONST(31) = (TROEE(4.76D26,10900.0_dp,1.80D-31,3.2_dp,4.70D-12,1.4_dp,TEMP,C_M)) - RCONST(32) = ((2.2D-13*EXP(600./TEMP)+1.9D-33*C_M*EXP(980._dp/TEMP))) - RCONST(33) = ((3.08D-34*EXP(2800._dp/TEMP)+2.66D-54*C_M*EXP(3180._dp/TEMP))) - RCONST(34) = (ARR2(3.3D-12,200.0_dp,TEMP)) - RCONST(35) = (TROE(7.00D-31,2.6_dp,1.50D-11,0.5_dp,TEMP,C_M)) - RCONST(36) = (.20946e0*ARR2(3.3D-39,-530.0_dp,TEMP)) - RCONST(37) = (ARR2(1.4D-13,2500.0_dp,TEMP)) - RCONST(38) = (ARR2(1.7D-11,-150.0_dp,TEMP)) - RCONST(39) = (ARR2(2.5D-14,1230.0_dp,TEMP)) - RCONST(40) = (2.5D-12) - RCONST(41) = (TROE(2.20D-30,4.3_dp,1.50D-12,0.5_dp,TEMP,C_M)) - RCONST(42) = (TROEE(9.09D26,11200.0_dp,2.20D-30,4.3_dp,1.50D-12,0.5_dp,TEMP,C_M)) - RCONST(43) = (rc_n2o5) - RCONST(44) = (TROE(2.60D-30,3.2_dp,2.40D-11,1.3_dp,TEMP,C_M)) - RCONST(45) = (k46(TEMP,C_M)) - RCONST(46) = (ARR2(1.3D-12,-380.0_dp,TEMP)) - RCONST(47) = (ARR2(4.6D-11,-230.0_dp,TEMP)) - RCONST(48) = (TROE(3.00D-31,3.3_dp,1.50D-12,0.0_dp,TEMP,C_M)) - RCONST(49) = ((1.5D-13*(1._dp+2.439D-20*C_M))) - RCONST(50) = (THERMAL_T2(6.95D-18,1280.0_dp,TEMP)) - RCONST(51) = (THERMAL_T2(1.37D-17,444.0_dp,TEMP)) - RCONST(52) = (ARR2(1.59D-11,540.0_dp,TEMP)) - RCONST(53) = (ARR2(1.73D-11,380.0_dp,TEMP)) - RCONST(54) = (ARR2(3.64D-11,380.0_dp,TEMP)) - RCONST(55) = (ARR2(2.15D-12,-411.0_dp,TEMP)) - RCONST(56) = (ARR2(5.32D-12,-504.0_dp,TEMP)) - RCONST(57) = (ARR2(1.07D-11,-549.0_dp,TEMP)) - RCONST(58) = (ARR2(2.1D-12,-322.0_dp,TEMP)) - RCONST(59) = (ARR2(1.89D-11,-116.0_dp,TEMP)) - RCONST(60) = (4.0D-11) - RCONST(61) = (9.0D-12) - RCONST(62) = (ARR2(6.87D-12,-256.0_dp,TEMP)) - RCONST(63) = (ARR2(1.2D-11,745.0_dp,TEMP)) - RCONST(64) = (1.15D-11) - RCONST(65) = (1.7D-11) - RCONST(66) = (2.8D-11) - RCONST(67) = (1.0D-11) - RCONST(68) = (1.0D-11) - RCONST(69) = (1.0D-11) - RCONST(70) = (THERMAL_T2(6.85D-18,444.0_dp,TEMP)) - RCONST(71) = (ARR2(1.55D-11,540.0_dp,TEMP)) - RCONST(72) = (ARR2(2.55D-11,-409.0_dp,TEMP)) - RCONST(73) = (ARR2(2.8D-12,-181.0_dp,TEMP)) - RCONST(74) = (ARR2(1.95D+16,13543.0_dp,TEMP)) - RCONST(75) = (4.7D-12) - RCONST(76) = (ARR2(1.95D+16,13543.0_dp,TEMP)) - RCONST(77) = (ARR2(4.2D-12,-180.0_dp,TEMP)) - RCONST(78) = (ARR2(4.2D-12,-180.0_dp,TEMP)) - RCONST(79) = (ARR2(4.2D-12,-180.0_dp,TEMP)) - RCONST(80) = (ARR2(4.2D-12,-180.0_dp,TEMP)) - RCONST(81) = (ARR2(4.2D-12,-180.0_dp,TEMP)) - RCONST(82) = (ARR2(4.2D-12,-180.0_dp,TEMP)) - RCONST(83) = (ARR2(4.2D-12,-180.0_dp,TEMP)) - RCONST(84) = (ARR2(4.2D-12,-180.0_dp,TEMP)) - RCONST(85) = (ARR2(4.2D-12,-180.0_dp,TEMP)) - RCONST(86) = (ARR2(4.2D-12,-180.0_dp,TEMP)) - RCONST(87) = (ARR2(4.2D-12,-180.0_dp,TEMP)) - RCONST(88) = (ARR2(4.2D-12,-180.0_dp,TEMP)) - RCONST(89) = (ARR2(4.2D-12,-180.0_dp,TEMP)) - RCONST(90) = (ARR2(4.2D-12,-180.0_dp,TEMP)) - RCONST(91) = (ARR2(6.0D-13,2058.0_dp,TEMP)) - RCONST(92) = (ARR2(1.4D-12,1900.0_dp,TEMP)) - RCONST(93) = (ARR2(6.0D-13,2058.0_dp,TEMP)) - RCONST(94) = (ARR2(1.4D-12,1900.0_dp,TEMP)) - RCONST(95) = (ARR2(1.4D-12,1900.0_dp,TEMP)) - RCONST(96) = (2.2D-11) - RCONST(97) = (ARR2(2.0D-12,2923.0_dp,TEMP)) - RCONST(98) = (ARR2(1.0D-11,1895.0_dp,TEMP)) - RCONST(99) = (ARR2(3.23D-11,975.0_dp,TEMP)) - RCONST(100) = (5.81D-13) - RCONST(101) = (ARR2(1.2D-14,2633.0_dp,TEMP)) - RCONST(102) = (ARR2(1.32D-14,2105.0_dp,TEMP)) - RCONST(103) = (ARR2(7.29D-15,1136.0_dp,TEMP)) - RCONST(104) = (ARR2(1.23D-14,2013.0_dp,TEMP)) - RCONST(105) = (ARR2(7.7D-14,-1300.0_dp,TEMP)) - RCONST(106) = (ARR2(7.7D-14,-1300.0_dp,TEMP)) - RCONST(107) = (ARR2(7.7D-14,-1300.0_dp,TEMP)) - RCONST(108) = (ARR2(7.7D-14,-1300.0_dp,TEMP)) - RCONST(109) = (ARR2(7.7D-14,-1300.0_dp,TEMP)) - RCONST(110) = (ARR2(7.7D-14,-1300.0_dp,TEMP)) - RCONST(111) = (ARR2(7.7D-14,-1300.0_dp,TEMP)) - RCONST(112) = (ARR2(7.7D-14,-1300.0_dp,TEMP)) - RCONST(113) = (ARR2(7.7D-14,-1300.0_dp,TEMP)) - RCONST(114) = (ARR2(7.7D-14,-1300.0_dp,TEMP)) - RCONST(115) = (ARR2(7.7D-14,-1300.0_dp,TEMP)) - RCONST(116) = (ARR2(7.7D-14,-1300.0_dp,TEMP)) - RCONST(117) = (ARR2(7.7D-14,-1300.0_dp,TEMP)) - RCONST(118) = (ARR2(7.7D-14,-1300.0_dp,TEMP)) - RCONST(119) = (ARR2(1.9D-13,-220.0_dp,TEMP)) - RCONST(120) = (ARR2(1.4D-13,-220.0_dp,TEMP)) - RCONST(121) = (ARR2(4.2D-14,-220.0_dp,TEMP)) - RCONST(122) = (ARR2(3.4D-14,-220.0_dp,TEMP)) - RCONST(123) = (ARR2(2.9D-14,-220.0_dp,TEMP)) - RCONST(124) = (ARR2(1.4D-13,-220.0_dp,TEMP)) - RCONST(125) = (ARR2(1.4D-13,-220.0_dp,TEMP)) - RCONST(126) = (ARR2(1.7D-14,-220.0_dp,TEMP)) - RCONST(127) = (ARR2(1.7D-14,-220.0_dp,TEMP)) - RCONST(128) = (ARR2(9.6D-13,-220.0_dp,TEMP)) - RCONST(129) = (ARR2(1.7D-14,-220.0_dp,TEMP)) - RCONST(130) = (ARR2(1.7D-14,-220.0_dp,TEMP)) - RCONST(131) = (ARR2(9.6D-13,-220.0_dp,TEMP)) - RCONST(132) = (ARR2(3.4D-13,-220.0_dp,TEMP)) - RCONST(133) = (ARR2(1.0D-13,-220.0_dp,TEMP)) - RCONST(134) = (ARR2(8.4D-14,-220.0_dp,TEMP)) - RCONST(135) = (ARR2(7.2D-14,-220.0_dp,TEMP)) - RCONST(136) = (ARR2(3.4D-13,-220.0_dp,TEMP)) - RCONST(137) = (ARR2(3.4D-13,-220.0_dp,TEMP)) - RCONST(138) = (ARR2(4.2D-14,-220.0_dp,TEMP)) - RCONST(139) = (ARR2(4.2D-14,-220.0_dp,TEMP)) - RCONST(140) = (ARR2(1.19D-12,-220.0_dp,TEMP)) - RCONST(141) = (ARR2(4.2D-14,-220.0_dp,TEMP)) - RCONST(142) = (ARR2(4.2D-14,-220.0_dp,TEMP)) - RCONST(143) = (ARR2(1.19D-12,-220.0_dp,TEMP)) - RCONST(144) = (ARR2(7.7D-14,-1300.0_dp,TEMP)) - RCONST(145) = (ARR2(1.7D-14,-220.0_dp,TEMP)) - RCONST(146) = (ARR2(4.2D-14,-220.0_dp,TEMP)) - RCONST(147) = (ARR2(3.6D-16,-220.0_dp,TEMP)) - RCONST(148) = (ARR2(4.2D-12,-180.0_dp,TEMP)) - RCONST(149) = (ARR2(4.2D-12,-180.0_dp,TEMP)) - RCONST(150) = (ARR2(7.7D-14,-1300.0_dp,TEMP)) - RCONST(151) = (ARR2(1.7D-14,-220.0_dp,TEMP)) - RCONST(152) = (ARR2(4.2D-14,-220.0_dp,TEMP)) - RCONST(153) = (ARR2(3.6D-16,-220.0_dp,TEMP)) - RCONST(154) = (ARR2(1.7D-14,-220.0_dp,TEMP)) - RCONST(155) = (ARR2(4.2D-14,-220.0_dp,TEMP)) - RCONST(156) = (ARR2(3.6D-16,-220.0_dp,TEMP)) - -END SUBROUTINE Update_RCONST - -! End of Update_RCONST function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_PHOTO - function to update photolytical rate constants -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Update_PHOTO ( ) - - - USE RADM2_Global - - RCONST(1) = (j('no2')) - RCONST(2) = (j('o31d')) - RCONST(3) = (j('o33p')) - RCONST(4) = (j('hno2')) - RCONST(5) = (j('hno3')) - RCONST(6) = (j('hno4')) - RCONST(7) = (j('no3o2')) - RCONST(8) = (j('no3o')) - RCONST(9) = (j('h2o2')) - RCONST(10) = (j('ch2om')) - RCONST(11) = (j('ch2or')) - RCONST(12) = (j('ch3cho')) - RCONST(13) = (j('ch3o2h')) - RCONST(14) = (j('ch3coch3')) - RCONST(15) = (j('ch3coo2h')) - RCONST(16) = (j('ch3coc2h5')) - RCONST(17) = (j('hcocho')) - RCONST(18) = (j('hcochob')) - RCONST(19) = (j('ch3cocho')) - RCONST(20) = (j('hcochest')) - RCONST(21) = (j('ch3ono2')) - -END SUBROUTINE Update_PHOTO - -! End of Update_PHOTO function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE RADM2_Rates - diff --git a/boxmox/compiled_mechs/RADM2/RADM2_Rates.o b/boxmox/compiled_mechs/RADM2/RADM2_Rates.o deleted file mode 100644 index e253de28f51e9273eb929dc3b3effbaf0f727682..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/RADM2_Rates.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/RADM2_Stoichiom.f90 b/boxmox/compiled_mechs/RADM2/RADM2_Stoichiom.f90 deleted file mode 100644 index 041e24bca4e5a94a6d2db4d678fc96a65492c529..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADM2/RADM2_Stoichiom.f90 +++ /dev/null @@ -1,919 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The Stoichiometric Chemical Model File -! -! Generated by KPP-2.2.3 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 : RADM2_Stoichiom.f90 -! Time : Thu Oct 8 08:22:27 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADM2_18938_BOXMOX -! Equation file : RADM2.kpp -! Output root filename : RADM2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RADM2_Stoichiom - - USE RADM2_Parameters - USE RADM2_StoichiomSP - - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! ReactantProd - Reactant Products in each equation -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! ARP - Reactant product in each equation -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE ReactantProd ( V, F, ARP ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! F - Concentrations of fixed species (local) - REAL(kind=dp) :: F(NFIX) -! ARP - Reactant product in each equation - REAL(kind=dp) :: ARP(NREACT) - - -! Reactant Products in each equation are useful in the -! stoichiometric formulation of mass action law - ARP(1) = V(59) - ARP(2) = V(46) - ARP(3) = V(46) - ARP(4) = V(13) - ARP(5) = V(25) - ARP(6) = V(20) - ARP(7) = V(54) - ARP(8) = V(54) - ARP(9) = V(14) - ARP(10) = V(43) - ARP(11) = V(43) - ARP(12) = V(48) - ARP(13) = V(21) - ARP(14) = V(42) - ARP(15) = V(18) - ARP(16) = V(33) - ARP(17) = V(31) - ARP(18) = V(31) - ARP(19) = V(34) - ARP(20) = V(30) - ARP(21) = V(47) - ARP(22) = V(19)*F(2) - ARP(23) = V(19)*V(59) - ARP(24) = V(7)*F(2) - ARP(25) = V(7)*F(1) - ARP(26) = V(46)*V(58) - ARP(27) = V(46)*V(53) - ARP(28) = V(46)*V(51) - ARP(29) = V(51)*V(58) - ARP(30) = V(51)*V(59) - ARP(31) = V(20) - ARP(32) = V(51)*V(51) - ARP(33) = V(51)*V(51)*F(1) - ARP(34) = V(14)*V(53) - ARP(35) = V(53)*V(58) - ARP(36) = V(58)*V(58)*F(2) - ARP(37) = V(46)*V(59) - ARP(38) = V(54)*V(58) - ARP(39) = V(54)*V(59) - ARP(40) = V(51)*V(54) - ARP(41) = V(54)*V(59) - ARP(42) = V(15) - ARP(43) = V(15) - ARP(44) = V(53)*V(59) - ARP(45) = V(25)*V(53) - ARP(46) = V(20)*V(53) - ARP(47) = V(51)*V(53) - ARP(48) = V(5)*V(53) - ARP(49) = V(26)*V(53) - ARP(50) = V(17)*V(53) - ARP(51) = V(6)*V(53) - ARP(52) = V(16)*V(53) - ARP(53) = V(8)*V(53) - ARP(54) = V(9)*V(53) - ARP(55) = V(24)*V(53) - ARP(56) = V(28)*V(53) - ARP(57) = V(29)*V(53) - ARP(58) = V(10)*V(53) - ARP(59) = V(11)*V(53) - ARP(60) = V(22)*V(53) - ARP(61) = V(43)*V(53) - ARP(62) = V(48)*V(53) - ARP(63) = V(33)*V(53) - ARP(64) = V(31)*V(53) - ARP(65) = V(34)*V(53) - ARP(66) = V(30)*V(53) - ARP(67) = V(21)*V(53) - ARP(68) = V(42)*V(53) - ARP(69) = V(18)*V(53) - ARP(70) = V(23)*V(53) - ARP(71) = V(47)*V(53) - ARP(72) = V(27)*V(53) - ARP(73) = V(55)*V(59) - ARP(74) = V(23) - ARP(75) = V(45)*V(59) - ARP(76) = V(12) - ARP(77) = V(52)*V(58) - ARP(78) = V(56)*V(58) - ARP(79) = V(41)*V(58) - ARP(80) = V(44)*V(58) - ARP(81) = V(40)*V(58) - ARP(82) = V(37)*V(58) - ARP(83) = V(49)*V(58) - ARP(84) = V(55)*V(58) - ARP(85) = V(45)*V(58) - ARP(86) = V(35)*V(58) - ARP(87) = V(36)*V(58) - ARP(88) = V(57)*V(58) - ARP(89) = V(50)*V(58) - ARP(90) = V(38)*V(58) - ARP(91) = V(43)*V(54) - ARP(92) = V(48)*V(54) - ARP(93) = V(31)*V(54) - ARP(94) = V(34)*V(54) - ARP(95) = V(30)*V(54) - ARP(96) = V(22)*V(54) - ARP(97) = V(24)*V(54) - ARP(98) = V(28)*V(54) - ARP(99) = V(29)*V(54) - ARP(100) = V(27)*V(54) - ARP(101) = V(24)*V(46) - ARP(102) = V(28)*V(46) - ARP(103) = V(29)*V(46) - ARP(104) = V(27)*V(46) - ARP(105) = V(51)*V(52) - ARP(106) = V(51)*V(57) - ARP(107) = V(51)*V(56) - ARP(108) = V(41)*V(51) - ARP(109) = V(44)*V(51) - ARP(110) = V(40)*V(51) - ARP(111) = V(37)*V(51) - ARP(112) = V(49)*V(51) - ARP(113) = V(50)*V(51) - ARP(114) = V(51)*V(55) - ARP(115) = V(35)*V(51) - ARP(116) = V(36)*V(51) - ARP(117) = V(45)*V(51) - ARP(118) = V(38)*V(51) - ARP(119) = V(52)*V(52) - ARP(120) = V(52)*V(57) - ARP(121) = V(52)*V(56) - ARP(122) = V(41)*V(52) - ARP(123) = V(44)*V(52) - ARP(124) = V(40)*V(52) - ARP(125) = V(37)*V(52) - ARP(126) = V(49)*V(52) - ARP(127) = V(50)*V(52) - ARP(128) = V(52)*V(55) - ARP(129) = V(35)*V(52) - ARP(130) = V(36)*V(52) - ARP(131) = V(45)*V(52) - ARP(132) = V(55)*V(57) - ARP(133) = V(55)*V(56) - ARP(134) = V(41)*V(55) - ARP(135) = V(44)*V(55) - ARP(136) = V(40)*V(55) - ARP(137) = V(37)*V(55) - ARP(138) = V(49)*V(55) - ARP(139) = V(50)*V(55) - ARP(140) = V(55)*V(55) - ARP(141) = V(35)*V(55) - ARP(142) = V(36)*V(55) - ARP(143) = V(45)*V(55) - ARP(144) = V(39)*V(51) - ARP(145) = V(39)*V(52) - ARP(146) = V(39)*V(55) - ARP(147) = V(39)*V(39) - ARP(148) = V(39)*V(58) - ARP(149) = V(32)*V(59) - ARP(150) = V(32)*V(51) - ARP(151) = V(32)*V(52) - ARP(152) = V(32)*V(55) - ARP(153) = V(32)*V(32) - ARP(154) = V(38)*V(52) - ARP(155) = V(38)*V(55) - ARP(156) = V(38)*V(38) - -END SUBROUTINE ReactantProd - -! End of ReactantProd function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! JacReactantProd - Jacobian of Reactant Products vector -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! JVRP - d ARP(1:NREACT)/d VAR (1:NVAR) -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE JacReactantProd ( V, F, JVRP ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! F - Concentrations of fixed species (local) - REAL(kind=dp) :: F(NFIX) -! JVRP - d ARP(1:NREACT)/d VAR (1:NVAR) - REAL(kind=dp) :: JVRP(NJVRP) - - -! Reactant Products in each equation are useful in the -! stoichiometric formulation of mass action law -! Below we compute the Jacobian of the Reactant Products vector -! w.r.t. variable species: d ARP(1:NREACT) / d Var(1:NVAR) - -! JVRP(1) = dARP(1)/dV(59) - JVRP(1) = 1 -! JVRP(2) = dARP(2)/dV(46) - JVRP(2) = 1 -! JVRP(3) = dARP(3)/dV(46) - JVRP(3) = 1 -! JVRP(4) = dARP(4)/dV(13) - JVRP(4) = 1 -! JVRP(5) = dARP(5)/dV(25) - JVRP(5) = 1 -! JVRP(6) = dARP(6)/dV(20) - JVRP(6) = 1 -! JVRP(7) = dARP(7)/dV(54) - JVRP(7) = 1 -! JVRP(8) = dARP(8)/dV(54) - JVRP(8) = 1 -! JVRP(9) = dARP(9)/dV(14) - JVRP(9) = 1 -! JVRP(10) = dARP(10)/dV(43) - JVRP(10) = 1 -! JVRP(11) = dARP(11)/dV(43) - JVRP(11) = 1 -! JVRP(12) = dARP(12)/dV(48) - JVRP(12) = 1 -! JVRP(13) = dARP(13)/dV(21) - JVRP(13) = 1 -! JVRP(14) = dARP(14)/dV(42) - JVRP(14) = 1 -! JVRP(15) = dARP(15)/dV(18) - JVRP(15) = 1 -! JVRP(16) = dARP(16)/dV(33) - JVRP(16) = 1 -! JVRP(17) = dARP(17)/dV(31) - JVRP(17) = 1 -! JVRP(18) = dARP(18)/dV(31) - JVRP(18) = 1 -! JVRP(19) = dARP(19)/dV(34) - JVRP(19) = 1 -! JVRP(20) = dARP(20)/dV(30) - JVRP(20) = 1 -! JVRP(21) = dARP(21)/dV(47) - JVRP(21) = 1 -! JVRP(22) = dARP(22)/dV(19) - JVRP(22) = F(2) -! JVRP(23) = dARP(23)/dV(19) - JVRP(23) = V(59) -! JVRP(24) = dARP(23)/dV(59) - JVRP(24) = V(19) -! JVRP(25) = dARP(24)/dV(7) - JVRP(25) = F(2) -! JVRP(26) = dARP(25)/dV(7) - JVRP(26) = F(1) -! JVRP(27) = dARP(26)/dV(46) - JVRP(27) = V(58) -! JVRP(28) = dARP(26)/dV(58) - JVRP(28) = V(46) -! JVRP(29) = dARP(27)/dV(46) - JVRP(29) = V(53) -! JVRP(30) = dARP(27)/dV(53) - JVRP(30) = V(46) -! JVRP(31) = dARP(28)/dV(46) - JVRP(31) = V(51) -! JVRP(32) = dARP(28)/dV(51) - JVRP(32) = V(46) -! JVRP(33) = dARP(29)/dV(51) - JVRP(33) = V(58) -! JVRP(34) = dARP(29)/dV(58) - JVRP(34) = V(51) -! JVRP(35) = dARP(30)/dV(51) - JVRP(35) = V(59) -! JVRP(36) = dARP(30)/dV(59) - JVRP(36) = V(51) -! JVRP(37) = dARP(31)/dV(20) - JVRP(37) = 1 -! JVRP(38) = dARP(32)/dV(51) - JVRP(38) = 2*V(51) -! JVRP(39) = dARP(33)/dV(51) - JVRP(39) = 2*V(51)*F(1) -! JVRP(40) = dARP(34)/dV(14) - JVRP(40) = V(53) -! JVRP(41) = dARP(34)/dV(53) - JVRP(41) = V(14) -! JVRP(42) = dARP(35)/dV(53) - JVRP(42) = V(58) -! JVRP(43) = dARP(35)/dV(58) - JVRP(43) = V(53) -! JVRP(44) = dARP(36)/dV(58) - JVRP(44) = 2*V(58)*F(2) -! JVRP(45) = dARP(37)/dV(46) - JVRP(45) = V(59) -! JVRP(46) = dARP(37)/dV(59) - JVRP(46) = V(46) -! JVRP(47) = dARP(38)/dV(54) - JVRP(47) = V(58) -! JVRP(48) = dARP(38)/dV(58) - JVRP(48) = V(54) -! JVRP(49) = dARP(39)/dV(54) - JVRP(49) = V(59) -! JVRP(50) = dARP(39)/dV(59) - JVRP(50) = V(54) -! JVRP(51) = dARP(40)/dV(51) - JVRP(51) = V(54) -! JVRP(52) = dARP(40)/dV(54) - JVRP(52) = V(51) -! JVRP(53) = dARP(41)/dV(54) - JVRP(53) = V(59) -! JVRP(54) = dARP(41)/dV(59) - JVRP(54) = V(54) -! JVRP(55) = dARP(42)/dV(15) - JVRP(55) = 1 -! JVRP(56) = dARP(43)/dV(15) - JVRP(56) = 1 -! JVRP(57) = dARP(44)/dV(53) - JVRP(57) = V(59) -! JVRP(58) = dARP(44)/dV(59) - JVRP(58) = V(53) -! JVRP(59) = dARP(45)/dV(25) - JVRP(59) = V(53) -! JVRP(60) = dARP(45)/dV(53) - JVRP(60) = V(25) -! JVRP(61) = dARP(46)/dV(20) - JVRP(61) = V(53) -! JVRP(62) = dARP(46)/dV(53) - JVRP(62) = V(20) -! JVRP(63) = dARP(47)/dV(51) - JVRP(63) = V(53) -! JVRP(64) = dARP(47)/dV(53) - JVRP(64) = V(51) -! JVRP(65) = dARP(48)/dV(5) - JVRP(65) = V(53) -! JVRP(66) = dARP(48)/dV(53) - JVRP(66) = V(5) -! JVRP(67) = dARP(49)/dV(26) - JVRP(67) = V(53) -! JVRP(68) = dARP(49)/dV(53) - JVRP(68) = V(26) -! JVRP(69) = dARP(50)/dV(17) - JVRP(69) = V(53) -! JVRP(70) = dARP(50)/dV(53) - JVRP(70) = V(17) -! JVRP(71) = dARP(51)/dV(6) - JVRP(71) = V(53) -! JVRP(72) = dARP(51)/dV(53) - JVRP(72) = V(6) -! JVRP(73) = dARP(52)/dV(16) - JVRP(73) = V(53) -! JVRP(74) = dARP(52)/dV(53) - JVRP(74) = V(16) -! JVRP(75) = dARP(53)/dV(8) - JVRP(75) = V(53) -! JVRP(76) = dARP(53)/dV(53) - JVRP(76) = V(8) -! JVRP(77) = dARP(54)/dV(9) - JVRP(77) = V(53) -! JVRP(78) = dARP(54)/dV(53) - JVRP(78) = V(9) -! JVRP(79) = dARP(55)/dV(24) - JVRP(79) = V(53) -! JVRP(80) = dARP(55)/dV(53) - JVRP(80) = V(24) -! JVRP(81) = dARP(56)/dV(28) - JVRP(81) = V(53) -! JVRP(82) = dARP(56)/dV(53) - JVRP(82) = V(28) -! JVRP(83) = dARP(57)/dV(29) - JVRP(83) = V(53) -! JVRP(84) = dARP(57)/dV(53) - JVRP(84) = V(29) -! JVRP(85) = dARP(58)/dV(10) - JVRP(85) = V(53) -! JVRP(86) = dARP(58)/dV(53) - JVRP(86) = V(10) -! JVRP(87) = dARP(59)/dV(11) - JVRP(87) = V(53) -! JVRP(88) = dARP(59)/dV(53) - JVRP(88) = V(11) -! JVRP(89) = dARP(60)/dV(22) - JVRP(89) = V(53) -! JVRP(90) = dARP(60)/dV(53) - JVRP(90) = V(22) -! JVRP(91) = dARP(61)/dV(43) - JVRP(91) = V(53) -! JVRP(92) = dARP(61)/dV(53) - JVRP(92) = V(43) -! JVRP(93) = dARP(62)/dV(48) - JVRP(93) = V(53) -! JVRP(94) = dARP(62)/dV(53) - JVRP(94) = V(48) -! JVRP(95) = dARP(63)/dV(33) - JVRP(95) = V(53) -! JVRP(96) = dARP(63)/dV(53) - JVRP(96) = V(33) -! JVRP(97) = dARP(64)/dV(31) - JVRP(97) = V(53) -! JVRP(98) = dARP(64)/dV(53) - JVRP(98) = V(31) -! JVRP(99) = dARP(65)/dV(34) - JVRP(99) = V(53) -! JVRP(100) = dARP(65)/dV(53) - JVRP(100) = V(34) -! JVRP(101) = dARP(66)/dV(30) - JVRP(101) = V(53) -! JVRP(102) = dARP(66)/dV(53) - JVRP(102) = V(30) -! JVRP(103) = dARP(67)/dV(21) - JVRP(103) = V(53) -! JVRP(104) = dARP(67)/dV(53) - JVRP(104) = V(21) -! JVRP(105) = dARP(68)/dV(42) - JVRP(105) = V(53) -! JVRP(106) = dARP(68)/dV(53) - JVRP(106) = V(42) -! JVRP(107) = dARP(69)/dV(18) - JVRP(107) = V(53) -! JVRP(108) = dARP(69)/dV(53) - JVRP(108) = V(18) -! JVRP(109) = dARP(70)/dV(23) - JVRP(109) = V(53) -! JVRP(110) = dARP(70)/dV(53) - JVRP(110) = V(23) -! JVRP(111) = dARP(71)/dV(47) - JVRP(111) = V(53) -! JVRP(112) = dARP(71)/dV(53) - JVRP(112) = V(47) -! JVRP(113) = dARP(72)/dV(27) - JVRP(113) = V(53) -! JVRP(114) = dARP(72)/dV(53) - JVRP(114) = V(27) -! JVRP(115) = dARP(73)/dV(55) - JVRP(115) = V(59) -! JVRP(116) = dARP(73)/dV(59) - JVRP(116) = V(55) -! JVRP(117) = dARP(74)/dV(23) - JVRP(117) = 1 -! JVRP(118) = dARP(75)/dV(45) - JVRP(118) = V(59) -! JVRP(119) = dARP(75)/dV(59) - JVRP(119) = V(45) -! JVRP(120) = dARP(76)/dV(12) - JVRP(120) = 1 -! JVRP(121) = dARP(77)/dV(52) - JVRP(121) = V(58) -! JVRP(122) = dARP(77)/dV(58) - JVRP(122) = V(52) -! JVRP(123) = dARP(78)/dV(56) - JVRP(123) = V(58) -! JVRP(124) = dARP(78)/dV(58) - JVRP(124) = V(56) -! JVRP(125) = dARP(79)/dV(41) - JVRP(125) = V(58) -! JVRP(126) = dARP(79)/dV(58) - JVRP(126) = V(41) -! JVRP(127) = dARP(80)/dV(44) - JVRP(127) = V(58) -! JVRP(128) = dARP(80)/dV(58) - JVRP(128) = V(44) -! JVRP(129) = dARP(81)/dV(40) - JVRP(129) = V(58) -! JVRP(130) = dARP(81)/dV(58) - JVRP(130) = V(40) -! JVRP(131) = dARP(82)/dV(37) - JVRP(131) = V(58) -! JVRP(132) = dARP(82)/dV(58) - JVRP(132) = V(37) -! JVRP(133) = dARP(83)/dV(49) - JVRP(133) = V(58) -! JVRP(134) = dARP(83)/dV(58) - JVRP(134) = V(49) -! JVRP(135) = dARP(84)/dV(55) - JVRP(135) = V(58) -! JVRP(136) = dARP(84)/dV(58) - JVRP(136) = V(55) -! JVRP(137) = dARP(85)/dV(45) - JVRP(137) = V(58) -! JVRP(138) = dARP(85)/dV(58) - JVRP(138) = V(45) -! JVRP(139) = dARP(86)/dV(35) - JVRP(139) = V(58) -! JVRP(140) = dARP(86)/dV(58) - JVRP(140) = V(35) -! JVRP(141) = dARP(87)/dV(36) - JVRP(141) = V(58) -! JVRP(142) = dARP(87)/dV(58) - JVRP(142) = V(36) -! JVRP(143) = dARP(88)/dV(57) - JVRP(143) = V(58) -! JVRP(144) = dARP(88)/dV(58) - JVRP(144) = V(57) -! JVRP(145) = dARP(89)/dV(50) - JVRP(145) = V(58) -! JVRP(146) = dARP(89)/dV(58) - JVRP(146) = V(50) -! JVRP(147) = dARP(90)/dV(38) - JVRP(147) = V(58) -! JVRP(148) = dARP(90)/dV(58) - JVRP(148) = V(38) -! JVRP(149) = dARP(91)/dV(43) - JVRP(149) = V(54) -! JVRP(150) = dARP(91)/dV(54) - JVRP(150) = V(43) -! JVRP(151) = dARP(92)/dV(48) - JVRP(151) = V(54) -! JVRP(152) = dARP(92)/dV(54) - JVRP(152) = V(48) -! JVRP(153) = dARP(93)/dV(31) - JVRP(153) = V(54) -! JVRP(154) = dARP(93)/dV(54) - JVRP(154) = V(31) -! JVRP(155) = dARP(94)/dV(34) - JVRP(155) = V(54) -! JVRP(156) = dARP(94)/dV(54) - JVRP(156) = V(34) -! JVRP(157) = dARP(95)/dV(30) - JVRP(157) = V(54) -! JVRP(158) = dARP(95)/dV(54) - JVRP(158) = V(30) -! JVRP(159) = dARP(96)/dV(22) - JVRP(159) = V(54) -! JVRP(160) = dARP(96)/dV(54) - JVRP(160) = V(22) -! JVRP(161) = dARP(97)/dV(24) - JVRP(161) = V(54) -! JVRP(162) = dARP(97)/dV(54) - JVRP(162) = V(24) -! JVRP(163) = dARP(98)/dV(28) - JVRP(163) = V(54) -! JVRP(164) = dARP(98)/dV(54) - JVRP(164) = V(28) -! JVRP(165) = dARP(99)/dV(29) - JVRP(165) = V(54) -! JVRP(166) = dARP(99)/dV(54) - JVRP(166) = V(29) -! JVRP(167) = dARP(100)/dV(27) - JVRP(167) = V(54) -! JVRP(168) = dARP(100)/dV(54) - JVRP(168) = V(27) -! JVRP(169) = dARP(101)/dV(24) - JVRP(169) = V(46) -! JVRP(170) = dARP(101)/dV(46) - JVRP(170) = V(24) -! JVRP(171) = dARP(102)/dV(28) - JVRP(171) = V(46) -! JVRP(172) = dARP(102)/dV(46) - JVRP(172) = V(28) -! JVRP(173) = dARP(103)/dV(29) - JVRP(173) = V(46) -! JVRP(174) = dARP(103)/dV(46) - JVRP(174) = V(29) -! JVRP(175) = dARP(104)/dV(27) - JVRP(175) = V(46) -! JVRP(176) = dARP(104)/dV(46) - JVRP(176) = V(27) -! JVRP(177) = dARP(105)/dV(51) - JVRP(177) = V(52) -! JVRP(178) = dARP(105)/dV(52) - JVRP(178) = V(51) -! JVRP(179) = dARP(106)/dV(51) - JVRP(179) = V(57) -! JVRP(180) = dARP(106)/dV(57) - JVRP(180) = V(51) -! JVRP(181) = dARP(107)/dV(51) - JVRP(181) = V(56) -! JVRP(182) = dARP(107)/dV(56) - JVRP(182) = V(51) -! JVRP(183) = dARP(108)/dV(41) - JVRP(183) = V(51) -! JVRP(184) = dARP(108)/dV(51) - JVRP(184) = V(41) -! JVRP(185) = dARP(109)/dV(44) - JVRP(185) = V(51) -! JVRP(186) = dARP(109)/dV(51) - JVRP(186) = V(44) -! JVRP(187) = dARP(110)/dV(40) - JVRP(187) = V(51) -! JVRP(188) = dARP(110)/dV(51) - JVRP(188) = V(40) -! JVRP(189) = dARP(111)/dV(37) - JVRP(189) = V(51) -! JVRP(190) = dARP(111)/dV(51) - JVRP(190) = V(37) -! JVRP(191) = dARP(112)/dV(49) - JVRP(191) = V(51) -! JVRP(192) = dARP(112)/dV(51) - JVRP(192) = V(49) -! JVRP(193) = dARP(113)/dV(50) - JVRP(193) = V(51) -! JVRP(194) = dARP(113)/dV(51) - JVRP(194) = V(50) -! JVRP(195) = dARP(114)/dV(51) - JVRP(195) = V(55) -! JVRP(196) = dARP(114)/dV(55) - JVRP(196) = V(51) -! JVRP(197) = dARP(115)/dV(35) - JVRP(197) = V(51) -! JVRP(198) = dARP(115)/dV(51) - JVRP(198) = V(35) -! JVRP(199) = dARP(116)/dV(36) - JVRP(199) = V(51) -! JVRP(200) = dARP(116)/dV(51) - JVRP(200) = V(36) -! JVRP(201) = dARP(117)/dV(45) - JVRP(201) = V(51) -! JVRP(202) = dARP(117)/dV(51) - JVRP(202) = V(45) -! JVRP(203) = dARP(118)/dV(38) - JVRP(203) = V(51) -! JVRP(204) = dARP(118)/dV(51) - JVRP(204) = V(38) -! JVRP(205) = dARP(119)/dV(52) - JVRP(205) = 2*V(52) -! JVRP(206) = dARP(120)/dV(52) - JVRP(206) = V(57) -! JVRP(207) = dARP(120)/dV(57) - JVRP(207) = V(52) -! JVRP(208) = dARP(121)/dV(52) - JVRP(208) = V(56) -! JVRP(209) = dARP(121)/dV(56) - JVRP(209) = V(52) -! JVRP(210) = dARP(122)/dV(41) - JVRP(210) = V(52) -! JVRP(211) = dARP(122)/dV(52) - JVRP(211) = V(41) -! JVRP(212) = dARP(123)/dV(44) - JVRP(212) = V(52) -! JVRP(213) = dARP(123)/dV(52) - JVRP(213) = V(44) -! JVRP(214) = dARP(124)/dV(40) - JVRP(214) = V(52) -! JVRP(215) = dARP(124)/dV(52) - JVRP(215) = V(40) -! JVRP(216) = dARP(125)/dV(37) - JVRP(216) = V(52) -! JVRP(217) = dARP(125)/dV(52) - JVRP(217) = V(37) -! JVRP(218) = dARP(126)/dV(49) - JVRP(218) = V(52) -! JVRP(219) = dARP(126)/dV(52) - JVRP(219) = V(49) -! JVRP(220) = dARP(127)/dV(50) - JVRP(220) = V(52) -! JVRP(221) = dARP(127)/dV(52) - JVRP(221) = V(50) -! JVRP(222) = dARP(128)/dV(52) - JVRP(222) = V(55) -! JVRP(223) = dARP(128)/dV(55) - JVRP(223) = V(52) -! JVRP(224) = dARP(129)/dV(35) - JVRP(224) = V(52) -! JVRP(225) = dARP(129)/dV(52) - JVRP(225) = V(35) -! JVRP(226) = dARP(130)/dV(36) - JVRP(226) = V(52) -! JVRP(227) = dARP(130)/dV(52) - JVRP(227) = V(36) -! JVRP(228) = dARP(131)/dV(45) - JVRP(228) = V(52) -! JVRP(229) = dARP(131)/dV(52) - JVRP(229) = V(45) -! JVRP(230) = dARP(132)/dV(55) - JVRP(230) = V(57) -! JVRP(231) = dARP(132)/dV(57) - JVRP(231) = V(55) -! JVRP(232) = dARP(133)/dV(55) - JVRP(232) = V(56) -! JVRP(233) = dARP(133)/dV(56) - JVRP(233) = V(55) -! JVRP(234) = dARP(134)/dV(41) - JVRP(234) = V(55) -! JVRP(235) = dARP(134)/dV(55) - JVRP(235) = V(41) -! JVRP(236) = dARP(135)/dV(44) - JVRP(236) = V(55) -! JVRP(237) = dARP(135)/dV(55) - JVRP(237) = V(44) -! JVRP(238) = dARP(136)/dV(40) - JVRP(238) = V(55) -! JVRP(239) = dARP(136)/dV(55) - JVRP(239) = V(40) -! JVRP(240) = dARP(137)/dV(37) - JVRP(240) = V(55) -! JVRP(241) = dARP(137)/dV(55) - JVRP(241) = V(37) -! JVRP(242) = dARP(138)/dV(49) - JVRP(242) = V(55) -! JVRP(243) = dARP(138)/dV(55) - JVRP(243) = V(49) -! JVRP(244) = dARP(139)/dV(50) - JVRP(244) = V(55) -! JVRP(245) = dARP(139)/dV(55) - JVRP(245) = V(50) -! JVRP(246) = dARP(140)/dV(55) - JVRP(246) = 2*V(55) -! JVRP(247) = dARP(141)/dV(35) - JVRP(247) = V(55) -! JVRP(248) = dARP(141)/dV(55) - JVRP(248) = V(35) -! JVRP(249) = dARP(142)/dV(36) - JVRP(249) = V(55) -! JVRP(250) = dARP(142)/dV(55) - JVRP(250) = V(36) -! JVRP(251) = dARP(143)/dV(45) - JVRP(251) = V(55) -! JVRP(252) = dARP(143)/dV(55) - JVRP(252) = V(45) -! JVRP(253) = dARP(144)/dV(39) - JVRP(253) = V(51) -! JVRP(254) = dARP(144)/dV(51) - JVRP(254) = V(39) -! JVRP(255) = dARP(145)/dV(39) - JVRP(255) = V(52) -! JVRP(256) = dARP(145)/dV(52) - JVRP(256) = V(39) -! JVRP(257) = dARP(146)/dV(39) - JVRP(257) = V(55) -! JVRP(258) = dARP(146)/dV(55) - JVRP(258) = V(39) -! JVRP(259) = dARP(147)/dV(39) - JVRP(259) = 2*V(39) -! JVRP(260) = dARP(148)/dV(39) - JVRP(260) = V(58) -! JVRP(261) = dARP(148)/dV(58) - JVRP(261) = V(39) -! JVRP(262) = dARP(149)/dV(32) - JVRP(262) = V(59) -! JVRP(263) = dARP(149)/dV(59) - JVRP(263) = V(32) -! JVRP(264) = dARP(150)/dV(32) - JVRP(264) = V(51) -! JVRP(265) = dARP(150)/dV(51) - JVRP(265) = V(32) -! JVRP(266) = dARP(151)/dV(32) - JVRP(266) = V(52) -! JVRP(267) = dARP(151)/dV(52) - JVRP(267) = V(32) -! JVRP(268) = dARP(152)/dV(32) - JVRP(268) = V(55) -! JVRP(269) = dARP(152)/dV(55) - JVRP(269) = V(32) -! JVRP(270) = dARP(153)/dV(32) - JVRP(270) = 2*V(32) -! JVRP(271) = dARP(154)/dV(38) - JVRP(271) = V(52) -! JVRP(272) = dARP(154)/dV(52) - JVRP(272) = V(38) -! JVRP(273) = dARP(155)/dV(38) - JVRP(273) = V(55) -! JVRP(274) = dARP(155)/dV(55) - JVRP(274) = V(38) -! JVRP(275) = dARP(156)/dV(38) - JVRP(275) = 2*V(38) - -END SUBROUTINE JacReactantProd - -! End of JacReactantProd function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! Begin Derivative w.r.t. Rate Coefficients - -! ------------------------------------------------------------------------------ -! Subroutine for the derivative of Fun with respect to rate coefficients -! ----------------------------------------------------------------------------- - - SUBROUTINE dFun_dRcoeff( V, F, NCOEFF, JCOEFF, DFDR ) - - USE RADM2_Parameters - USE RADM2_StoichiomSP - IMPLICIT NONE - -! V - Concentrations of variable/radical/fixed species - REAL(kind=dp) V(NVAR), F(NFIX) -! NCOEFF - the number of rate coefficients with respect to which we differentiate - INTEGER NCOEFF -! JCOEFF - a vector of integers containing the indices of reactions (rate -! coefficients) with respect to which we differentiate - INTEGER JCOEFF(NCOEFF) -! DFDR - a matrix containg derivative values; specifically, -! column j contains d Fun(1:NVAR) / d RCT( JCOEFF(j) ) -! for each 1 <= j <= NCOEFF -! This matrix is stored in a column-wise linearized format - REAL(kind=dp) DFDR(NVAR*NCOEFF) - -! Local vector with reactant products - REAL(kind=dp) A_RPROD(NREACT) - REAL(kind=dp) aj - INTEGER i,j,k - -! Compute the reactant products of all reactions - CALL ReactantProd ( V, F, A_RPROD ) - -! Compute the derivatives by multiplying column JCOEFF(j) of the stoichiometric matrix with A_RPROD - DO j=1,NCOEFF -! Initialize the j-th column of derivative matrix to zero - DO i=1,NVAR - DFDR(i+NVAR*(j-1)) = 0.0_dp - END DO -! Column JCOEFF(j) in the stoichiometric matrix times the -! reactant product of the JCOEFF(j)-th reaction -! give the j-th column of the derivative matrix - aj = A_RPROD(JCOEFF(j)) - DO k=CCOL_STOICM(JCOEFF(j)),CCOL_STOICM(JCOEFF(j)+1)-1 - DFDR(IROW_STOICM(k)+NVAR*(j-1)) = STOICM(k)*aj - END DO - END DO - - END SUBROUTINE dFun_dRcoeff - -! End Derivative w.r.t. Rate Coefficients - - -! Begin Jacobian Derivative w.r.t. Rate Coefficients - -! ------------------------------------------------------------------------------ -! Subroutine for the derivative of Jac with respect to rate coefficients -! Times a user vector -! ----------------------------------------------------------------------------- - - SUBROUTINE dJac_dRcoeff( V, F, U, NCOEFF, JCOEFF, DJDR ) - - USE RADM2_Parameters - USE RADM2_StoichiomSP - IMPLICIT NONE - -! V - Concentrations of variable/fixed species - REAL(kind=dp) V(NVAR), F(NFIX) -! U - User-supplied Vector - REAL(kind=dp) U(NVAR) -! NCOEFF - the number of rate coefficients with respect to which we differentiate - INTEGER NCOEFF -! JCOEFF - a vector of integers containing the indices of reactions (rate -! coefficients) with respect to which we differentiate - INTEGER JCOEFF(NCOEFF) -! DFDR - a matrix containg derivative values; specifically, -! column j contains d Jac(1:NVAR) / d RCT( JCOEFF(j) ) * U -! for each 1 <= j <= NCOEFF -! This matrix is stored in a column-wise linearized format - REAL(kind=dp) DJDR(NVAR*NCOEFF) - -! Local vector for Jacobian of reactant products - REAL(kind=dp) JV_RPROD(NJVRP) - REAL(kind=dp) aj - INTEGER i,j,k - -! Compute the Jacobian of all reactant products - CALL JacReactantProd( V, F, JV_RPROD ) - -! Compute the derivatives by multiplying column JCOEFF(j) of the stoichiometric matrix with A_PROD - DO j=1,NCOEFF -! Initialize the j-th column of derivative matrix to zero - DO i=1,NVAR - DJDR(i+NVAR*(j-1)) = 0.0_dp - END DO -! Column JCOEFF(j) in the stoichiometric matrix times the -! ( Gradient of reactant product of the JCOEFF(j)-th reaction X user vector ) -! give the j-th column of the derivative matrix -! -! Row JCOEFF(j) of JV_RPROD times the user vector - aj = 0.0_dp - DO k=CROW_JVRP(JCOEFF(j)),CROW_JVRP(JCOEFF(j)+1)-1 - aj = aj + JV_RPROD(k)*U(ICOL_JVRP(k)) - END DO -! Column JCOEFF(j) of Stoichiom. matrix times aj - DO k=CCOL_STOICM(JCOEFF(j)),CCOL_STOICM(JCOEFF(j)+1)-1 - DJDR(IROW_STOICM(k)+NVAR*(j-1)) = STOICM(k)*aj - END DO - END DO - - END SUBROUTINE dJac_dRcoeff - -! End Jacobian Derivative w.r.t. Rate Coefficients - - -END MODULE RADM2_Stoichiom - diff --git a/boxmox/compiled_mechs/RADM2/RADM2_Stoichiom.o b/boxmox/compiled_mechs/RADM2/RADM2_Stoichiom.o deleted file mode 100644 index 64b9769428f3e0deaa0a74733522e09c25cb4add..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/RADM2_Stoichiom.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/RADM2_StoichiomSP.f90 b/boxmox/compiled_mechs/RADM2/RADM2_StoichiomSP.f90 deleted file mode 100644 index 2abc0d66fe7671f44d31550e409e6fa7afb25fc6..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADM2/RADM2_StoichiomSP.f90 +++ /dev/null @@ -1,382 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Sparse Stoichiometric Data Structures File -! -! Generated by KPP-2.2.3 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 : RADM2_StoichiomSP.f90 -! Time : Thu Oct 8 08:22:27 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADM2_18938_BOXMOX -! Equation file : RADM2.kpp -! Output root filename : RADM2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RADM2_StoichiomSP - - USE RADM2_Precision - PUBLIC - SAVE - - -! Row-compressed sparse data for the Jacobian of reaction products JVRP - - INTEGER, PARAMETER, DIMENSION(157) :: CROW_JVRP = (/ & - 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, & - 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 25, & - 26, 27, 29, 31, 33, 35, 37, 38, 39, 40, 42, 44, & - 45, 47, 49, 51, 53, 55, 56, 57, 59, 61, 63, 65, & - 67, 69, 71, 73, 75, 77, 79, 81, 83, 85, 87, 89, & - 91, 93, 95, 97, 99,101,103,105,107,109,111,113, & - 115,117,118,120,121,123,125,127,129,131,133,135, & - 137,139,141,143,145,147,149,151,153,155,157,159, & - 161,163,165,167,169,171,173,175,177,179,181,183, & - 185,187,189,191,193,195,197,199,201,203,205,206, & - 208,210,212,214,216,218,220,222,224,226,228,230, & - 232,234,236,238,240,242,244,246,247,249,251,253, & - 255,257,259,260,262,264,266,268,270,271,273,275, & - 276 /) - - INTEGER, PARAMETER, DIMENSION(275) :: ICOL_JVRP = (/ & - 59, 46, 46, 13, 25, 20, 54, 54, 14, 43, 43, 48, & - 21, 42, 18, 33, 31, 31, 34, 30, 47, 19, 19, 59, & - 7, 7, 46, 58, 46, 53, 46, 51, 51, 58, 51, 59, & - 20, 51, 51, 14, 53, 53, 58, 58, 46, 59, 54, 58, & - 54, 59, 51, 54, 54, 59, 15, 15, 53, 59, 25, 53, & - 20, 53, 51, 53, 5, 53, 26, 53, 17, 53, 6, 53, & - 16, 53, 8, 53, 9, 53, 24, 53, 28, 53, 29, 53, & - 10, 53, 11, 53, 22, 53, 43, 53, 48, 53, 33, 53, & - 31, 53, 34, 53, 30, 53, 21, 53, 42, 53, 18, 53, & - 23, 53, 47, 53, 27, 53, 55, 59, 23, 45, 59, 12, & - 52, 58, 56, 58, 41, 58, 44, 58, 40, 58, 37, 58, & - 49, 58, 55, 58, 45, 58, 35, 58, 36, 58, 57, 58, & - 50, 58, 38, 58, 43, 54, 48, 54, 31, 54, 34, 54, & - 30, 54, 22, 54, 24, 54, 28, 54, 29, 54, 27, 54, & - 24, 46, 28, 46, 29, 46, 27, 46, 51, 52, 51, 57, & - 51, 56, 41, 51, 44, 51, 40, 51, 37, 51, 49, 51, & - 50, 51, 51, 55, 35, 51, 36, 51, 45, 51, 38, 51, & - 52, 52, 57, 52, 56, 41, 52, 44, 52, 40, 52, 37, & - 52, 49, 52, 50, 52, 52, 55, 35, 52, 36, 52, 45, & - 52, 55, 57, 55, 56, 41, 55, 44, 55, 40, 55, 37, & - 55, 49, 55, 50, 55, 55, 35, 55, 36, 55, 45, 55, & - 39, 51, 39, 52, 39, 55, 39, 39, 58, 32, 59, 32, & - 51, 32, 52, 32, 55, 32, 38, 52, 38, 55, 38 /) - - INTEGER, PARAMETER, DIMENSION(275) :: IROW_JVRP = (/ & - 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, & - 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 23, & - 24, 25, 26, 26, 27, 27, 28, 28, 29, 29, 30, 30, & - 31, 32, 33, 34, 34, 35, 35, 36, 37, 37, 38, 38, & - 39, 39, 40, 40, 41, 41, 42, 43, 44, 44, 45, 45, & - 46, 46, 47, 47, 48, 48, 49, 49, 50, 50, 51, 51, & - 52, 52, 53, 53, 54, 54, 55, 55, 56, 56, 57, 57, & - 58, 58, 59, 59, 60, 60, 61, 61, 62, 62, 63, 63, & - 64, 64, 65, 65, 66, 66, 67, 67, 68, 68, 69, 69, & - 70, 70, 71, 71, 72, 72, 73, 73, 74, 75, 75, 76, & - 77, 77, 78, 78, 79, 79, 80, 80, 81, 81, 82, 82, & - 83, 83, 84, 84, 85, 85, 86, 86, 87, 87, 88, 88, & - 89, 89, 90, 90, 91, 91, 92, 92, 93, 93, 94, 94, & - 95, 95, 96, 96, 97, 97, 98, 98, 99, 99,100,100, & - 101,101,102,102,103,103,104,104,105,105,106,106, & - 107,107,108,108,109,109,110,110,111,111,112,112, & - 113,113,114,114,115,115,116,116,117,117,118,118, & - 119,120,120,121,121,122,122,123,123,124,124,125, & - 125,126,126,127,127,128,128,129,129,130,130,131, & - 131,132,132,133,133,134,134,135,135,136,136,137, & - 137,138,138,139,139,140,141,141,142,142,143,143, & - 144,144,145,145,146,146,147,148,148,149,149,150, & - 150,151,151,152,152,153,154,154,155,155,156 /) - - - -! Stoichiometric Matrix in Compressed Column Sparse Format - - - INTEGER, PARAMETER, DIMENSION(157) :: CCOL_STOICM = (/ & - 1, 4, 6, 8, 11, 14, 19, 21, 24, 26, 28, 31, & - 35, 39, 43, 46, 49, 52, 56, 60, 63, 68, 70, 73, & - 75, 77, 80, 83, 86, 90, 93, 96, 98,100,103,106, & - 108,111,114,116,119,122,125,127,130,133,136,138, & - 142,146,149,152,159,163,167,170,173,176,181,186, & - 191,195,198,201,205,209,212,216,220,223,228,232, & - 235,238,241,244,247,252,260,267,275,281,287,294, & - 298,307,314,320,325,330,335,340,344,349,354,358, & - 362,365,368,371,374,380,391,403,413,416,419,422, & - 425,428,431,434,437,440,443,446,449,452,455,458, & - 463,469,475,481,486,491,497,502,507,514,520,530, & - 536,543,550,557,564,571,579,585,587,594,600,608, & - 611,615,618,619,622,625,628,632,635,636,642,649, & - 653 /) - - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_0 = (/ & - 19, 58, 59, 7, 46, 19, 46, 13, 53, 58, 25, 53, & - 59, 20, 51, 53, 54, 59, 54, 58, 19, 54, 59, 14, & - 53, 26, 43, 26, 43, 51, 26, 48, 51, 52, 21, 43, & - 51, 53, 42, 48, 51, 53, 18, 52, 53, 33, 55, 57, & - 26, 31, 43, 26, 31, 43, 51, 26, 34, 51, 55, 30, & - 45, 51, 33, 47, 48, 51, 59, 19, 46, 19, 58, 59, & - 7, 19, 7, 53, 46, 58, 59, 46, 51, 53, 46, 51, & - 53, 51, 53, 58, 59, 20, 51, 59, 20, 51, 59, 14, & - 51, 14, 51, 14, 51, 53, 13, 53, 58, 58, 59, 46, & - 54, 59, 54, 58, 59, 54, 58, 25, 51, 54, 15, 54, & - 59, 15, 54, 59, 15, 25, 25, 53, 59, 25, 53, 54, & - 20, 53, 59, 51, 53, 1, 5, 51, 53, 4, 26, 51, & - 53, 17, 52, 53, 6, 53, 57, 16, 33, 43, 48, 51, & - 53, 56, 8, 39, 41, 53, 9, 39, 44, 53, 24, 40, & - 53, 28, 37, 53, 29, 49, 53, 10, 22, 35, 51, 53, & - 11, 22, 36, 51, 53, 22, 39, 45, 51, 53, 26, 43, & - 51, 53, 48, 53, 55, 33, 50, 53, 26, 31, 51, 53, & - 26, 34, 53, 55, 30, 45, 53, 21, 43, 52, 53, 42, & - 48, 53, 56, 18, 53, 55, 23, 39, 43, 53, 54, 47, & - 53, 56, 59, 27, 37, 53, 23, 55, 59, 23, 55, 59, & - 12, 45, 59, 12, 45, 59, 43, 51, 52, 58, 59, 33, & - 43, 47, 48, 51, 56, 58, 59, 33, 41, 47, 48, 51, & - 58, 59, 33, 43, 44, 47, 48, 51, 58, 59, 40, 43, & - 48, 51, 58, 59, 37, 43, 48, 51, 58, 59, 33, 43, & - 48, 49, 51, 58, 59, 52, 55, 58, 59, 26, 31, 34, & - 39, 45, 51, 55, 58, 59, 30, 31, 34, 35, 51, 58, & - 59, 30, 34, 36, 51, 58, 59, 48, 51, 57, 58, 59, & - 34, 50, 51, 58, 59, 38, 43, 48, 58, 59, 25, 26, & - 43, 51, 54, 25, 48, 54, 55, 25, 26, 31, 51, 54, & - 25, 26, 34, 54, 55, 25, 30, 45, 54, 22, 25, 32 /) - INTEGER, PARAMETER, DIMENSION(292) :: IROW_STOICM_1 = (/ & - 54, 24, 38, 54, 28, 38, 54, 29, 38, 54, 27, 38, & - 54, 2, 24, 26, 43, 46, 51, 2, 3, 17, 26, 28, & - 43, 46, 48, 51, 52, 53, 2, 3, 17, 26, 29, 33, & - 43, 46, 48, 51, 52, 53, 2, 3, 26, 27, 43, 46, & - 48, 51, 52, 53, 21, 51, 52, 42, 51, 57, 42, 51, & - 56, 41, 42, 51, 42, 44, 51, 40, 42, 51, 37, 42, & - 51, 42, 49, 51, 42, 50, 51, 18, 51, 55, 35, 42, & - 51, 36, 42, 51, 42, 45, 51, 38, 47, 51, 43, 51, & - 52, 43, 48, 51, 52, 57, 33, 43, 48, 51, 52, 56, & - 33, 41, 43, 48, 51, 52, 33, 43, 44, 48, 51, 52, & - 40, 43, 48, 51, 52, 37, 43, 48, 51, 52, 33, 43, & - 48, 49, 51, 52, 34, 43, 50, 51, 52, 3, 43, 51, & - 52, 55, 30, 31, 34, 35, 43, 51, 52, 30, 34, 36, & - 43, 51, 52, 3, 26, 31, 34, 39, 43, 45, 51, 52, & - 55, 3, 48, 51, 52, 55, 57, 3, 33, 48, 51, 52, & - 55, 56, 3, 33, 41, 48, 51, 52, 55, 3, 33, 44, & - 48, 51, 52, 55, 3, 40, 43, 48, 51, 52, 55, 3, & - 37, 43, 48, 51, 52, 55, 3, 33, 43, 48, 49, 51, & - 52, 55, 3, 34, 50, 51, 52, 55, 52, 55, 30, 31, & - 34, 35, 51, 52, 55, 30, 34, 36, 51, 52, 55, 26, & - 31, 34, 39, 45, 51, 52, 55, 39, 42, 51, 39, 43, & - 51, 52, 39, 52, 55, 39, 39, 58, 59, 32, 47, 59, & - 32, 42, 51, 32, 43, 51, 52, 32, 52, 55, 32, 38, & - 43, 48, 51, 52, 59, 3, 38, 43, 48, 52, 55, 59, & - 38, 43, 48, 59 /) - INTEGER, PARAMETER, DIMENSION(652) :: IROW_STOICM = (/& - IROW_STOICM_0, IROW_STOICM_1 /) - - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_0 = (/ & - 1, 1, 1, 2, 2, 3, 3, 4, 4, 4, 5, 5, & - 5, 6, 6, 6, 6, 6, 7, 7, 8, 8, 8, 9, & - 9, 10, 10, 11, 11, 11, 12, 12, 12, 12, 13, 13, & - 13, 13, 14, 14, 14, 14, 15, 15, 15, 16, 16, 16, & - 17, 17, 17, 18, 18, 18, 18, 19, 19, 19, 19, 20, & - 20, 20, 21, 21, 21, 21, 21, 22, 22, 23, 23, 23, & - 24, 24, 25, 25, 26, 26, 26, 27, 27, 27, 28, 28, & - 28, 29, 29, 29, 29, 30, 30, 30, 31, 31, 31, 32, & - 32, 33, 33, 34, 34, 34, 35, 35, 35, 36, 36, 37, & - 37, 37, 38, 38, 38, 39, 39, 40, 40, 40, 41, 41, & - 41, 42, 42, 42, 43, 43, 44, 44, 44, 45, 45, 45, & - 46, 46, 46, 47, 47, 48, 48, 48, 48, 49, 49, 49, & - 49, 50, 50, 50, 51, 51, 51, 52, 52, 52, 52, 52, & - 52, 52, 53, 53, 53, 53, 54, 54, 54, 54, 55, 55, & - 55, 56, 56, 56, 57, 57, 57, 58, 58, 58, 58, 58, & - 59, 59, 59, 59, 59, 60, 60, 60, 60, 60, 61, 61, & - 61, 61, 62, 62, 62, 63, 63, 63, 64, 64, 64, 64, & - 65, 65, 65, 65, 66, 66, 66, 67, 67, 67, 67, 68, & - 68, 68, 68, 69, 69, 69, 70, 70, 70, 70, 70, 71, & - 71, 71, 71, 72, 72, 72, 73, 73, 73, 74, 74, 74, & - 75, 75, 75, 76, 76, 76, 77, 77, 77, 77, 77, 78, & - 78, 78, 78, 78, 78, 78, 78, 79, 79, 79, 79, 79, & - 79, 79, 80, 80, 80, 80, 80, 80, 80, 80, 81, 81, & - 81, 81, 81, 81, 82, 82, 82, 82, 82, 82, 83, 83, & - 83, 83, 83, 83, 83, 84, 84, 84, 84, 85, 85, 85, & - 85, 85, 85, 85, 85, 85, 86, 86, 86, 86, 86, 86, & - 86, 87, 87, 87, 87, 87, 87, 88, 88, 88, 88, 88, & - 89, 89, 89, 89, 89, 90, 90, 90, 90, 90, 91, 91, & - 91, 91, 91, 92, 92, 92, 92, 93, 93, 93, 93, 93, & - 94, 94, 94, 94, 94, 95, 95, 95, 95, 96, 96, 96 /) - INTEGER, PARAMETER, DIMENSION(292) :: ICOL_STOICM_1 = (/ & - 96, 97, 97, 97, 98, 98, 98, 99, 99, 99,100,100, & - 100,101,101,101,101,101,101,102,102,102,102,102, & - 102,102,102,102,102,102,103,103,103,103,103,103, & - 103,103,103,103,103,103,104,104,104,104,104,104, & - 104,104,104,104,105,105,105,106,106,106,107,107, & - 107,108,108,108,109,109,109,110,110,110,111,111, & - 111,112,112,112,113,113,113,114,114,114,115,115, & - 115,116,116,116,117,117,117,118,118,118,119,119, & - 119,120,120,120,120,120,121,121,121,121,121,121, & - 122,122,122,122,122,122,123,123,123,123,123,123, & - 124,124,124,124,124,125,125,125,125,125,126,126, & - 126,126,126,126,127,127,127,127,127,128,128,128, & - 128,128,129,129,129,129,129,129,129,130,130,130, & - 130,130,130,131,131,131,131,131,131,131,131,131, & - 131,132,132,132,132,132,132,133,133,133,133,133, & - 133,133,134,134,134,134,134,134,134,135,135,135, & - 135,135,135,135,136,136,136,136,136,136,136,137, & - 137,137,137,137,137,137,138,138,138,138,138,138, & - 138,138,139,139,139,139,139,139,140,140,141,141, & - 141,141,141,141,141,142,142,142,142,142,142,143, & - 143,143,143,143,143,143,143,144,144,144,145,145, & - 145,145,146,146,146,147,148,148,148,149,149,149, & - 150,150,150,151,151,151,151,152,152,152,153,154, & - 154,154,154,154,154,155,155,155,155,155,155,155, & - 156,156,156,156 /) - INTEGER, PARAMETER, DIMENSION(652) :: ICOL_STOICM = (/& - ICOL_STOICM_0, ICOL_STOICM_1 /) - - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_0 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 6.500000e-01_dp, & - 3.500000e-01_dp, 3.500000e-01_dp, 6.500000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.870000e+00_dp, -1.000000e+00_dp, & - 1.300000e-01_dp, 1.550000e+00_dp, -1.000000e+00_dp, 4.500000e-01_dp, 8.000000e-01_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 8.000000e-01_dp, -1.000000e+00_dp, 2.000000e-01_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -2.000000e+00_dp, 1.000000e+00_dp, -2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -2.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_1 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 2.500000e-02_dp, 9.000000e-03_dp, 7.500000e-02_dp, & - 1.700000e-01_dp, -1.000000e+00_dp, 8.300000e-01_dp, -1.000000e+00_dp, 2.500000e-01_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 7.500000e-01_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 2.500000e-01_dp, 7.500000e-01_dp, 2.500000e-01_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.700000e-01_dp, 8.300000e-01_dp, 1.700000e-01_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 9.000000e-01_dp, 9.000000e-01_dp, 1.000000e-01_dp, -1.900000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp, 5.000000e-01_dp, -5.000000e-01_dp, & - -1.000000e+00_dp, 5.000000e-01_dp, -5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.500000e-01_dp, 9.000000e-02_dp, 3.600000e-02_dp, 7.500000e-01_dp, & - 9.640000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 9.640000e-01_dp, 6.900000e-01_dp, & - -1.000000e+00_dp, 8.000000e-02_dp, 3.800000e-01_dp, 9.200000e-01_dp, -1.000000e+00_dp, & - 9.200000e-01_dp, 1.060000e+00_dp, 4.000000e-02_dp, -1.000000e+00_dp, 2.400000e-01_dp, & - 3.500000e-01_dp, 7.600000e-01_dp, -1.000000e+00_dp, 7.600000e-01_dp, -1.000000e+00_dp, & - 1.600000e+00_dp, 2.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e-01_dp, 2.800000e-01_dp, 1.450000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 9.500000e-01_dp, 8.900000e-01_dp, 1.100000e-01_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_2 = (/ & - 2.000000e+00_dp, -1.000000e+00_dp, 9.200000e-01_dp, 5.000000e-02_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 7.000000e-01_dp, 1.600000e-01_dp, 1.700000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 8.060000e-01_dp, 4.500000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -5.000000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 4.000000e-01_dp, -1.000000e+00_dp, & - 4.200000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.200000e-01_dp, 2.000000e-01_dp, & - 2.000000e-01_dp, 6.000000e-02_dp, 3.300000e-01_dp, -1.000000e+00_dp, 5.300000e-01_dp, & - -1.000000e+00_dp, 5.000000e-01_dp, 2.300000e-01_dp, 2.200000e-01_dp, 1.000000e-01_dp, & - 6.000000e-02_dp, 2.900000e-01_dp, 9.000000e-02_dp, 2.300000e-01_dp, -1.000000e+00_dp, & - 1.000000e-01_dp, 1.800000e-01_dp, -1.000000e+00_dp, 7.200000e-01_dp, 2.600000e-01_dp, & - 3.100000e-01_dp, 1.400000e-01_dp, 2.000000e-01_dp, 2.000000e-01_dp, 3.300000e-01_dp, & - -1.000000e+00_dp, 5.300000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, 2.300000e-01_dp, & - 2.200000e-01_dp, 1.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_3 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.500000e+00_dp, & - 1.000000e+00_dp, -2.000000e+00_dp, 7.500000e-01_dp, 7.500000e-01_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 6.000000e-01_dp, 7.500000e-01_dp, 1.500000e-01_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 7.500000e-01_dp, -1.000000e+00_dp, & - 7.700000e-01_dp, 4.100000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.390000e+00_dp, & - 8.000000e-01_dp, -1.000000e+00_dp, 4.600000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.550000e+00_dp, 3.500000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.250000e+00_dp, 7.500000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 5.500000e-01_dp, 8.900000e-01_dp, 7.250000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 7.500000e-01_dp, 7.500000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 5.000000e-01_dp, 1.000000e+00_dp, 5.000000e-01_dp, -5.000000e-01_dp, & - -1.000000e+00_dp, 7.000000e-01_dp, 1.600000e-01_dp, 1.700000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 8.060000e-01_dp, 4.500000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp, & - 4.750000e-01_dp, 4.450000e-01_dp, 5.500000e-02_dp, 1.000000e+00_dp, 5.000000e-01_dp, & - -1.000000e+00_dp, 4.600000e-01_dp, -1.000000e+00_dp, 2.500000e-02_dp, 5.000000e-01_dp, & - 1.000000e+00_dp, 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, 8.000000e-01_dp, 2.000000e-01_dp, 5.000000e-01_dp, 5.000000e-01_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp, 8.600000e-01_dp, -1.000000e+00_dp, & - 1.400000e-01_dp, 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, & - 9.000000e-01_dp, -1.000000e+00_dp, 1.000000e-01_dp, 5.000000e-01_dp, 5.000000e-01_dp, & - -1.000000e+00_dp, 5.000000e-01_dp, -1.000000e+00_dp, 8.000000e-01_dp, 6.000000e-01_dp, & - 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, 1.000000e+00_dp, 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, 5.500000e-01_dp, 1.400000e-01_dp, 7.250000e-01_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - -2.000000e+00_dp, 1.000000e+00_dp, 2.000000e-01_dp, 8.000000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 9.500000e-01_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(52) :: STOICM_4 = (/ & - 8.900000e-01_dp, 1.100000e-01_dp, 2.000000e+00_dp, -1.000000e+00_dp, 9.200000e-01_dp, & - 1.000000e+00_dp, -9.500000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -2.000000e+00_dp, & - -1.000000e+00_dp, 1.750000e+00_dp, 1.000000e+00_dp, 5.000000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 5.000000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 5.000000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, -2.000000e+00_dp, 2.000000e+00_dp, & - 2.000000e+00_dp, 2.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(652) :: STOICM = (/& - STOICM_0, STOICM_1, STOICM_2, STOICM_3, STOICM_4 /) - - -END MODULE RADM2_StoichiomSP - diff --git a/boxmox/compiled_mechs/RADM2/RADM2_StoichiomSP.o b/boxmox/compiled_mechs/RADM2/RADM2_StoichiomSP.o deleted file mode 100644 index eacdef7f69ab23ec652e28ea08d40faa99c0ff09..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/RADM2_StoichiomSP.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/RADM2_Util.f90 b/boxmox/compiled_mechs/RADM2/RADM2_Util.f90 deleted file mode 100644 index 385cd2b4cca5d11bb36fd4d6c1d4e07a40d05372..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADM2/RADM2_Util.f90 +++ /dev/null @@ -1,1520 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Auxiliary Routines File -! -! Generated by KPP-2.2.3 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 : RADM2_Util.f90 -! Time : Thu Oct 8 08:22:27 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADM2_18938_BOXMOX -! Equation file : RADM2.kpp -! Output root filename : RADM2 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RADM2_Util - - USE RADM2_Parameters - USE RADM2_Global - USE RADM2_Monitor - IMPLICIT NONE - -CONTAINS - - - -! User INLINED Utility Functions - - -! **************************************************************************** -! **************************************************************************** -! BOXMOX utilities -! **************************************************************************** -! **************************************************************************** - - -! **************************************************************************** -! toUPPER - convert ASCII characters to all upper case -! from http://stackoverflow.com/questions/10759375/ -! how-can-i-write-a-to-upper-or-to-lower-function-in-f90 -! **************************************************************************** - FUNCTION toUPPER (str) RESULT (string) - - CHARACTER(*), INTENT(In) :: str - CHARACTER(LEN(str)) :: string - - INTEGER :: ic, i - - CHARACTER(26), PARAMETER :: cap = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' - CHARACTER(26), PARAMETER :: low = 'abcdefghijklmnopqrstuvwxyz' - - string = str - DO i = 1, LEN_TRIM(str) - ic = INDEX(low, str(i:i)) - IF (ic > 0) string(i:i) = cap(ic:ic) - END DO - - END FUNCTION toUPPER -! **************************************************************************** - - -! **************************************************************************** -! hash - a string hashing function -! from flibs, http://flibs.sourceforge.net -! **************************************************************************** - INTEGER FUNCTION hash( key ) - - CHARACTER(len=*), INTENT(in) :: key - - INTEGER :: i - - INTEGER, PARAMETER :: hash_size = 49931 - INTEGER, PARAMETER :: multiplier = 312 - - hash = 0 - - DO i = 1,LEN(key) - hash = MODULO( multiplier * hash + ICHAR(key(i:i)), hash_size) - ENDDO - - hash = 1 + MODULO( hash-1, hash_size ) - END FUNCTION hash -! **************************************************************************** - - -! **************************************************************************** -! strEqual - comparison function matching two strings -! **************************************************************************** - LOGICAL FUNCTION strEqual(a, b) - - CHARACTER(LEN=*), INTENT(IN) :: a, b - - LOGICAL, PARAMETER :: ignoreCase = .TRUE. - - CHARACTER(LEN=100) :: nice_a, nice_b - INTEGER :: max_len - - nice_a = ADJUSTL(a) - nice_b = ADJUSTL(b) - - IF (ignoreCase) THEN - nice_a = toUPPER(nice_a) - nice_b = toUPPER(nice_b) - END IF - - max_len = MAX( LEN_TRIM(nice_a), LEN_TRIM(nice_b) ) - - strEqual = nice_a(1:max_len) .EQ. nice_b(1:max_len) - - END FUNCTION strEqual -! **************************************************************************** - - -! **************************************************************************** -! writespecstring - Utility function that plots a (potentially) -! large number of species -! **************************************************************************** - SUBROUTINE writespecstring(nspecies, txt, species, offset) - - INTEGER :: nspecies, offset - CHARACTER(LEN=*) :: txt - CHARACTER(LEN=15) :: species(nspecies), fmt - CHARACTER(LEN=2000) :: specstring - - INTEGER, PARAMETER :: cperline=60 - - INTEGER :: i, l - - fmt = "" - WRITE(fmt, "(A1,I3,A4)") "(", offset, "X,A)" - - i = 1; l = 1 - specstring = "" - - DO WHILE (i <= nspecies) - - specstring = TRIM(ADJUSTL(specstring))//TRIM(ADJUSTL(species(i))) - IF (i < nspecies) specstring = TRIM(ADJUSTL(specstring))//", " - - i = i + 1 - - IF (LEN_TRIM(specstring) > cperline) THEN - IF (l == 1) specstring = txt//specstring - l = l + 1 - WRITE(*,fmt) TRIM(specstring) - specstring = "" - ENDIF - ENDDO - - IF (LEN_TRIM(specstring) > 0) THEN - IF (l == 1) specstring = txt//specstring - WRITE(*,fmt) TRIM(specstring) - ENDIF - - END SUBROUTINE writespecstring -! **************************************************************************** - - -! **************************************************************************** -! calcCFACTOR - Calculates CFACTOR variable for unit conversion between -! input/output files and values used in calculations / rates -! **************************************************************************** - SUBROUTINE calcCFACTOR ( ) - - ! from ppmv to mlc/cm3: - ! 1e-6 ppmv -> vmr - ! 1e-3 kg/m3 -> g/cm3 - ! 1/28.9645 g/cm3 -> mole/cm3 - ! 6.022e23 -> molec/cm3 - ! then multiply with air density rho - ! 1.0E-6 * 1E-03 * (1.0/28.97) * 6.022e23 * rho - ! CFACTOR = 2.598378e+13; (with rho == 1.25) - - CFACTOR = 1.0E-6 * 1E-03 * (1.0/28.9645) * 6.022e23 * & - pres / (287.058 * temp) - - END SUBROUTINE calcCFACTOR -! **************************************************************************** - - -! **************************************************************************** -! readConfig - Sets variables using values read in from "BOXMOX.nml" -! **************************************************************************** - SUBROUTINE readConfig ( ) - - INTEGER, PARAMETER :: config_pid = 22 - CHARACTER(LEN=*), PARAMETER :: config_name = "BOXMOX.nml" - - NAMELIST /BOXMOX/ TSTART, TEND, DT, lverbose, iturb, lfix_nox - - LOGICAL :: lnml_exists - - ! *** default values section *** - - TSTART = 0.0D0 ! model start time, seconds since 0 LT - TEND = TSTART + 3600.0D0 ! model end time, seconds since 0 LT - DT = 10.D0 ! model time step, seconds - - lverbose = .FALSE. - iturb = TURB_OPT_NONE - - lfix_nox = .FALSE. - - ! *** namelist read-in section *** - - INQUIRE(FILE=config_name, EXIST=lnml_exists) - - IF (lnml_exists) THEN - - WRITE(*,*) "BOXMOX configuration file ", TRIM(config_name)," found." - - OPEN (config_pid, FILE=config_name) - READ (config_pid, nml=BOXMOX) - CLOSE(config_pid) - - ELSE - WRITE(*,*) "No BOXMOX configuration file (", & - TRIM(config_name),") exists." - ENDIF - - ! *** configuration printout *** - - WRITE(*,*) " " - WRITE(*,"(A20,2X,F12.3)") "TSTART", TSTART - WRITE(*,"(A20,2X,F12.3)") "TEND", TEND - WRITE(*,"(A20,2X,F12.3)") "DT", DT - WRITE(*,*) "" - WRITE(*,"(A20,2X,L10)") "lverbose", lverbose - WRITE(*,*) "" - WRITE(*,"(A20,11X,I1)") "iturb", iturb - WRITE(*,*) "" - WRITE(*,"(A20,2X,L10)") "lfix_nox", lfix_nox - - WRITE(*,*) " " - - END SUBROUTINE readConfig -! **************************************************************************** - - -! **************************************************************************** -! checkConfig - check configuration variables -! **************************************************************************** - SUBROUTINE checkConfig ( ) - - INTEGER :: status - - status = 0 - - IF (TSTART < 0.0) THEN - WRITE(*,*) "start time TSTART cannot be < 0.0" - status = 1 - ENDIF - IF (TEND < 0.0) THEN - WRITE(*,*) "end time TEND cannot be < 0.0" - status = 2 - ENDIF - IF (TSTART >= TEND) THEN - WRITE(*,*) "start time TSTART has to be < end time TEND" - status = 3 - ENDIF - IF (DT <= 0.0) THEN - WRITE(*,*) "time step DT has to be > 0.0" - status = 4 - ENDIF - - IF (status .NE. 0) THEN - IF (.NOT. llibrary) THEN - STOP - ENDIF - ENDIF - - END SUBROUTINE checkConfig -! **************************************************************************** - - -! **************************************************************************** -! writeVersion - Write "VERSION" file to run directory -! **************************************************************************** - SUBROUTINE writeVersion ( ) - - INTEGER, PARAMETER :: version_pid = 23 - CHARACTER(LEN=*), PARAMETER :: version_name = "VERSION" - - ! *** write BOXMOX version to output directory *** - - OPEN(version_pid, file=version_name) - WRITE(version_pid, "(A)") "__BOXMOX_VERSION__" - CLOSE(version_pid) - - END SUBROUTINE writeVersion -! **************************************************************************** - - -! **************************************************************************** -! readVals - main input routine for the BOXMOX extensions. -! reads values from input files with different time -! formats, and interpolates to get the values -! appropriate for the current time step. -! **************************************************************************** - SUBROUTINE readVals(fname, nvar, species, values, stat, & - nanc, ancspecies, ancvalues, lquiet) - - CHARACTER(LEN=*), INTENT(IN) :: fname - INTEGER, INTENT(OUT) :: nvar - CHARACTER(LEN=15), INTENT(OUT) :: species(max_species_boxmox) - REAL(KIND=dp), INTENT(OUT) :: values(max_species_boxmox) - INTEGER, INTENT(OUT) :: stat - INTEGER, INTENT(OUT), OPTIONAL :: nanc - CHARACTER(LEN=15), INTENT(OUT),OPTIONAL :: ancspecies(max_species_boxmox) - REAL(KIND=dp), INTENT(OUT), OPTIONAL :: ancvalues(max_species_boxmox) - LOGICAL, INTENT(IN), OPTIONAL :: lquiet - - INTEGER, PARAMETER :: input_pid = 21 - REAL(KIND=dp) :: time_cur, weight_t1, & - values_t0(max_species_boxmox), & - values_t1(max_species_boxmox), & - values_cur(max_species_boxmox) - CHARACTER(LEN=15) :: names(max_species_boxmox) - INTEGER :: iostat, time_format, ntoread, ntime, nanct, pid, i - LOGICAL :: lfile_exists, ltalkative - - names(:) = "" - values_t0(:) = 0.0 - values_t1(:) = 0.0 - - stat = 0 ! everything is allright - - ltalkative = ( TIME .EQ. TSTART ) .OR. lverbose - IF (PRESENT(lquiet)) THEN - IF (lquiet) THEN - ltalkative = .FALSE. - ENDIF - ENDIF - - ! check whether file exists - INQUIRE(FILE=fname, EXIST=lfile_exists) - IF (.NOT. lfile_exists) THEN - stat = 1 - RETURN - ELSE - IF (ltalkative) THEN - WRITE(*,*) "" - WRITE(*,*) " * ", fname - ENDIF - END IF - - OPEN(input_pid, file=fname) - - ! line 1: number of variables - READ(input_pid, *) nvar - - ! if no variable should be read - bail - IF (nvar == 0) THEN - IF (ltalkative) WRITE(*,*) fname, " declared 0 variables to be read" - stat = 2 - CLOSE(input_pid) - RETURN - END IF - - ! line 2: number of ancillary variables - READ(input_pid, *) nanct - - IF (nanct .LT. 0) THEN - WRITE(*,"(A)") "Number of ancillary variables must be >= 0" - CLOSE(input_pid) - STOP - ENDIF - - IF (nanct .GT. 1) THEN - WRITE(*,"(A)") "Number of ancillary variables must be < 2" - CLOSE(input_pid) - STOP - ENDIF - - ! line 3: time format - READ(input_pid, *) time_format - - IF (time_format .LT. 0 .OR. time_format .GT. 2) THEN - WRITE(*,"(3A)") "Time format has to be 0 (constant), ", & - "1 (s since TSTART) or ", & - "2 (hour of day)" - CLOSE(input_pid) - STOP - END IF - - ntime = 0 - IF (time_format .GT. 0) ntime = 1 - - ntoread = ntime + nanct + nvar - - ! if more variables than max_species_boxmox should be read - bail - IF (ntoread > max_species_boxmox) THEN - IF (ltalkative) THEN - WRITE(*,*) fname, " declared more variables to be read" - WRITE(*,*) "than allocated. Increase max_species_boxmox," - WRITE(*,*) "recompile, and run again." - ENDIF - stat = 3 - CLOSE(input_pid) - RETURN - END IF - - ! line 4: header line - READ(input_pid, *) names(1:ntoread) - - ! line 4ff: values - READ(input_pid, *) values_t0(1:ntoread) - - ! if its not constant in time values - weight_t1 = 0 - IF (.NOT. time_format .EQ. 0) THEN - READ(input_pid, *, IOSTAT=iostat) values_t1(1:ntoread) - - ! TIME is the KPP provided current model time - time_cur = TIME - IF (time_format .EQ. 2) THEN - time_cur = TIME/3600.0_dp - (INT(TIME/3600.0_dp)/24)*24 - END IF - - ! ASSUMPTION: time is the first value read - DO WHILE(values_t1(1) .LT. time_cur .AND. iostat .EQ. 0) - values_t0 = values_t1 - - READ(input_pid, *, IOSTAT=iostat) values_t1(1:ntoread) - END DO - - ! take the last value in the file in case its time values don't cover - ! the full simulation period - IF (iostat .NE. 0) THEN - weight_t1 = 1.0 - ELSE - weight_t1 = (time_cur - values_t0(1)) / (values_t1(1) - values_t0(1)) - ENDIF - - ENDIF - - CLOSE(input_pid) - - values_cur = weight_t1 * values_t1 + & - (1.0 - weight_t1) * values_t0 - - species(1:nvar) = names(ntime+nanct+1:ntime+nanct+nvar) - values(1:nvar) = values_cur(ntime+nanct+1:ntime+nanct+nvar) - - IF (PRESENT(nanc)) nanc = nanct - - IF (nanct .GT. 0) THEN - IF (PRESENT(ancvalues)) THEN - ancvalues(1:nanct) = values_cur(ntime+1:ntime+nanct) - ENDIF - IF (PRESENT(ancspecies)) THEN - ancspecies(1:nanct) = names(ntime+1:ntime+nanct) - ENDIF - ENDIF - - END SUBROUTINE readVals -! **************************************************************************** - - -! **************************************************************************** -! readInput - Reads values from .csv, applies function -! -! "t" is for "target" (i.e. the vector to apply "action" over) -! "r" is for "read" from file -! "u" is for "useable" (i.e., exists in the "target" vector) -! "m" is for "missing" (i.e., asked for, but not found in file) -! -! **************************************************************************** - SUBROUTINE readInput (filename, nt, tnames, tvalues, & - action, lzero, quiet) - - CHARACTER(LEN=*), INTENT(IN) :: filename - INTEGER, INTENT(IN) :: nt - REAL(KIND=dp) :: tvalues(nt) - CHARACTER(LEN=15), INTENT(IN) :: tnames(nt) - REAL(KIND=dp), OPTIONAL :: action ! function to be called - LOGICAL, INTENT(IN), OPTIONAL :: lzero ! call action with 0.0 - ! for 'missing' species - LOGICAL, INTENT(IN), OPTIONAL :: quiet - - INTEGER :: nr, nu, nm, i, k, m, & - iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - unames(max_species_boxmox), & - mnames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox) - LOGICAL :: is_used, first, & - talkative - - CALL readVals(filename, nr, rnames, rvalues, iostat) - - IF (iostat .NE. 0) RETURN - - talkative = .TRUE. - IF (PRESENT(quiet)) talkative = .NOT. quiet - - unames(:) = "none" - nu = 0 - - first = lverbose - - DO i = 1, nr - DO k = 1, nt - IF ( strEqual(rnames(i), tnames(k)) ) THEN - - IF (PRESENT(action)) THEN - tvalues(k) = action( tvalues(k), k, rvalues(i), first) - ELSE - tvalues(k) = rvalues(i) - IF ( (lverbose .OR. first) .AND. talkative ) THEN - WRITE(*,"(6X,A15,1X,E12.6)") tnames(k), tvalues(k)/CFACTOR - ENDIF - ENDIF - - first = .FALSE. - - nu = nu + 1 - unames(nu) = TRIM(ADJUSTL(rnames(i))) - ENDIF - ENDDO - ENDDO - - IF (PRESENT(lzero)) THEN - IF (lzero) THEN - DO k = 1, nt - is_used = .FALSE. - DO i = 1, nu - IF ( strEqual(unames(i), tnames(k)) ) is_used = .TRUE. - ENDDO - IF (.NOT. is_used) THEN - tvalues(k) = action( tvalues(k), k, 0.0, first) - first = .FALSE. - ENDIF - ENDDO - ENDIF - ENDIF - - nm = nr - nu - mnames(:) = "" - - IF (nm > 0) THEN - m = 1 - DO i = 1, nr - is_used = .FALSE. - DO k = 1, nu - IF ( strEqual(rnames(i), unames(k)) ) is_used = .TRUE. - ENDDO - - IF (.NOT. is_used) THEN - mnames(m) = TRIM(ADJUSTL(rnames(i))) - m = m + 1 - ENDIF - ENDDO - ENDIF - - IF ( ((TIME .EQ. TSTART) .OR. lverbose) .AND. talkative) THEN - IF (nu > 0) CALL writespecstring(nu, "useable:", unames, 6) - IF (nm > 0) CALL writespecstring(nm, "unknown: ", mnames, 6) - ENDIF - - END SUBROUTINE readInput -! **************************************************************************** - - -! **************************************************************************** -! InitialCondition - Sets initial values -! **************************************************************************** - REAL(KIND=dp) FUNCTION InitialCondition(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - InitialCondition = y * CFACTOR - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,A12,1X)") "species ", "IC" - WRITE(*,"(6X,A15,1X,E12.6,1X)") SPC_NAMES(k), InitialCondition/CFACTOR - ENDIF - - END FUNCTION InitialCondition -! **************************************************************************** - - -! **************************************************************************** -! Deposition - Applies deposition velocities -! **************************************************************************** - REAL(KIND=dp) FUNCTION Deposition(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - REAL(KIND=dp) :: dCdt - - Deposition = x - - ! we don't remove fixed variables - IF (k .LT. NFIXST) THEN - ! we assume deposition velocities in comparable units - ! (i.e. cm s-1) - ! dxdydz(3) == DZ - dCdt = - y * x / (dxdydz(3) * 100.0) - Deposition = MAX( 0.0, x + DT * dCdt ) - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "v_dep", "after" - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, y, & - Deposition/CFACTOR - ENDIF - - ENDIF - - END FUNCTION Deposition -! **************************************************************************** - - -! **************************************************************************** -! Emission - Adds emissions -! **************************************************************************** - REAL(KIND=dp) FUNCTION Emission(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - REAL(KIND=dp) :: cur - - ! we assume emissions to be a flux in units comparable to the - ! concentration values used in KPP - ! e.g. molecules / m2 / s vs molecules / m3, or - ! moles / cm2 / s vs moles / cm3, ... - ! the time dimensions unit has to be seconds! - - ! dxdydz(3) is PBL height in m - cur = y * DT / (dxdydz(3) * 100.0) - - Emission = x + cur - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "tendency", "after" - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, & - cur/DT/CFACTOR, Emission/CFACTOR - ENDIF - - END FUNCTION Emission -! **************************************************************************** - - -! **************************************************************************** -! Mix - calculate concentration after turbulent mixing -! **************************************************************************** - REAL(KIND=dp) FUNCTION Mix(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - REAL(KIND=dp) :: frac_bg - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - Mix = x - - frac_bg = Kturb * DT - - IF (lfirst .AND. lverbose) THEN - WRITE(*,"(6X,A,1X,F6.3)") "fractional amount of background air", & - frac_bg - WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "background", "after" - ENDIF - - ! we don't mix fixed variables - IF (k .LT. NFIXST) THEN - - ! seems like we found something - Mix = frac_bg * (y * CFACTOR) + & - (1.0 - frac_bg) * x - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, & - y, Mix/CFACTOR - ENDIF - - ENDIF - - END FUNCTION Mix -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturb - calculate Kturb for mixing -! **************************************************************************** - SUBROUTINE UpdateKturb() - - Kturb = 0.0 - SELECT CASE (iturb) - CASE (TURB_OPT_NONE) - Kturb = 0.0 - CASE (TURB_OPT_SPECIFIED) - CALL UpdateKturbSpecified() - CASE (TURB_OPT_VOLUME) - CALL UpdateKturbVolume() - CASE (TURB_OPT_TRACER) - CALL UpdateKturbTracer() - CASE DEFAULT - WRITE(*,"(A,1X,I1)") "Unknown mixing option", iturb - END SELECT - - END SUBROUTINE UpdateKturb -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbSpecified - calc. Kturb for mixing using specified Kturb -! **************************************************************************** - SUBROUTINE UpdateKturbSpecified() - - INTEGER :: nr, na, i, iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - anames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox), & - avalues(max_species_boxmox) - LOGICAL :: lfound - - Kturb = 0.0 - - CALL readVals('Background.csv', & - nr, rnames, rvalues, iostat, & - na, anames, avalues, lquiet=.TRUE.) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - lfound = .FALSE. - DO i = 1, na - IF ( strEqual(anames(i), 'Kturb') ) THEN - Kturb = avalues(i) - lfound = .TRUE. - ENDIF - ENDDO - - IF (.NOT. lfound) THEN - WRITE(*,*) "Kturb variable not found in Background.csv" - STOP - ENDIF - - END SUBROUTINE UpdateKturbSpecified -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbVolume - calc. Kturb for mixing using box volume changes -! **************************************************************************** - SUBROUTINE UpdateKturbVolume() - - REAL(KIND=dp) :: vol, vol_old - - vol = dxdydz(1) * dxdydz(2) * dxdydz(3) - vol_old = dxdydz_old(1) * dxdydz_old(2) * dxdydz_old(3) - - ! maybe we have a mixing case where the box volume changes? - ! increasing volume - dilute against background - ! decreasing volume - ignore (?) for now - - ! in the PBL case, analogue: - ! maybe we changed the PBLH? update concentration vector - ! rising BL - mixing against zero air or bg values - ! shrinking BL - creates residual layer, decouples - - IF (vol > vol_old) THEN - Kturb = ( (vol - vol_old) / vol_old ) / DT - ENDIF - - END SUBROUTINE UpdateKturbVolume -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbTracer - calc. Kturb for mixing using tracer (t, tname) conc. -! changes -! **************************************************************************** - SUBROUTINE UpdateKturbTracer() - - INTEGER :: nr, na, i, iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - anames(max_species_boxmox), & - tracer_name - REAL(KIND=dp) :: rvalues(max_species_boxmox), & - avalues(max_species_boxmox), & - prev, obs, bg, frac_bg - LOGICAL :: lfound_prev, lfound_bg - - Kturb = 0.0 - - CALL readVals('Background.csv', & - nr, rnames, rvalues, iostat, & - na, anames, avalues, lquiet=.TRUE.) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - ! ASSUMPTION: first ancillary species is mixing tracer - tracer_name = anames(1) - obs = avalues(1) * CFACTOR - - prev = 0.0 - lfound_prev = .FALSE. - DO i = 1, NSPEC - IF ( strEqual(SPC_NAMES(i), tracer_name) ) THEN - prev = C(i) - lfound_prev = .TRUE. - ENDIF - ENDDO - - bg = 0.0 - lfound_bg = .FALSE. - DO i = 1, nr - IF ( strEqual(rnames(i), tracer_name) ) THEN - bg = rvalues(i) * CFACTOR - lfound_bg = .TRUE. - ENDIF - ENDDO - - IF (.NOT. lfound_bg) THEN - WRITE(*,*) "Tracer ", TRIM(tracer_name), & - " not found in Background.csv" - STOP - ENDIF - IF (.NOT. lfound_prev) THEN - WRITE(*,*) "Tracer ", TRIM(tracer_name), & - " not found in mechanism" - STOP - ENDIF - - IF ( ABS( bg - prev ) < 1e-10 ) THEN - Kturb = 0.0 - ELSE - frac_bg = ( obs - prev ) / ( bg - prev ) - frac_bg = MIN( frac_bg, 1.0 ) - frac_bg = MAX( frac_bg, 0.0 ) - - Kturb = frac_bg / DT - ENDIF - - END SUBROUTINE UpdateKturbTracer -! **************************************************************************** - - -! **************************************************************************** -! UpdatePhotolysisRates - well, it does what it seems to do -! **************************************************************************** - SUBROUTINE UpdatePhotolysisRates() - - INTEGER :: i, iostat, nr, jidx - CHARACTER(LEN=15) :: rnames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox) - - INTEGER :: j, jidx2 - - rnames(:) = " " - rvalues(:) = 0.0 - - jvalues(:) = 0.0 - - CALL readVals('PhotolysisRates.csv', nr, rnames, rvalues, iostat) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - DO i = 1, nr - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,E12.6)") rnames(i), rvalues(i) - ENDIF - jidx = hash(rnames(i)) - jvalues(jidx) = rvalues(i) - ENDDO - - ! first time step only: make sure hashing actually made unique hashes - IF (TIME .EQ. TSTART) THEN - DO i = 1, nr - jidx = hash(rnames(i)) - DO j = 1, nr - jidx2 = hash(rnames(j)) - IF ((jidx .EQ. jidx2) .AND. .NOT. (i .EQ. j)) THEN - WRITE(*,*) "Photolysis rate label hash collision:" - WRITE(*,*) rnames(i), "(idx ",i,", hash ", jidx, ") == ", & - rnames(j), "(idx ",j,", hash ", jidx2,")" - IF ( strEqual( rnames(i), rnames(j) ) ) THEN - WRITE(*,*) "Remove duplicate label in PhotolysisRates.csv!" - ELSE - WRITE(*,*) "Please contact the BOXMOX developers!" - ENDIF - STOP - ENDIF - ENDDO - ENDDO - - CALL writespecstring(nr, "known:", rnames, 6) - - ENDIF - - END SUBROUTINE UpdatePhotolysisRates -! **************************************************************************** - - -! **************************************************************************** -! UpdateAerosol - update aerosol properties -! **************************************************************************** - SUBROUTINE UpdateAerosol() - - INTEGER, PARAMETER :: naer = 2, sad_idx = 1, r_idx = 2 - REAL(KIND=dp) :: aer(naer), errval = -987654321.0 - CHARACTER(LEN=15) :: aernames(naer) - INTEGER :: iostat, i - - aernames(sad_idx) = "sad"; aer(sad_idx) = errval - aernames(r_idx) = "r"; aer(r_idx) = errval - - CALL readInput('Aerosol.csv', naer, aernames, aer, quiet=lverbose) - - IF (aer(sad_idx) .NE. errval) AER_SAD = aer(sad_idx) - IF (aer(r_idx) .NE. errval) AER_R = aer(r_idx) - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,F8.2)") "SAD ", AER_SAD - WRITE(*,"(6X,A15,1X,F8.2)") "R ", AER_R - ENDIF - - END SUBROUTINE UpdateAerosol -! **************************************************************************** - - -! **************************************************************************** -! UpdateEnvironment - Read environmental values -! **************************************************************************** - SUBROUTINE UpdateEnvironment() - - INTEGER, PARAMETER :: nenv = 4, temp_idx = 1, pres_idx = 2, & - pblh_idx = 3, vol_idx = 4 - REAL(KIND=dp) :: env(nenv), errval = -987654321.0 - CHARACTER(LEN=15) :: envnames(nenv) - INTEGER :: iostat, i - - REAL(KIND=dp) :: temp_old, pres_old, pblh, vol - - envnames(temp_idx) = "TEMP"; env(temp_idx) = errval - envnames(pres_idx) = "PRES"; env(pres_idx) = errval - envnames(pblh_idx) = "PBLH"; env(pblh_idx) = errval - envnames(vol_idx) = "VOL"; env(vol_idx) = errval - - CALL readInput('Environment.csv', nenv, envnames, env, quiet=lverbose) - - temp_old = temp - pres_old = pres - - dxdydz_old(:) = dxdydz(:) - - ! those are just pseudo variables for dxdydz properties - pblh = dxdydz(3) - vol = dxdydz(1) * dxdydz(2) * dxdydz(3) - - IF (env(pblh_idx) .NE. errval .AND. env(vol_idx) .NE. errval) & - THEN - WRITE(*,*) "Cannot work with changing PBLH and VOL at the same time." - STOP - ENDIF - - IF (env(temp_idx) .NE. errval) temp = env(temp_idx) - IF (env(pres_idx) .NE. errval) pres = env(pres_idx) - IF (env(vol_idx) .NE. errval) vol = env(vol_idx) - - IF (env(pblh_idx) .NE. errval) THEN - pblh = env(pblh_idx) - dxdydz(3) = pblh - ENDIF - - ! Adjust species vector - DO i = 1, NSPEC - C(i) = C(i) * (temp_old * pres) / (temp * pres_old) - ENDDO - - ! recalculate unit conversion - CALL calcCFACTOR() - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,F8.2)") "TEMP ", temp - WRITE(*,"(6X,A13,1X,F10.2)") "PRES ", pres - WRITE(*,"(6X,A15,1X,F8.2)") "PBLH ", dxdydz(3) - WRITE(*,"(6X,A15,1X,F8.2)") "VOL ", & - dxdydz(1)*dxdydz(2)*dxdydz(3) - WRITE(*,*) "" - WRITE(*,"(6X,A7,1X,E16.8)") "CFACTOR", CFACTOR - ENDIF - - END SUBROUTINE UpdateEnvironment -! **************************************************************************** - - -! **************************************************************************** -! InitFixNOx - Initialize the NOx fixing data (for steady state calculations) -! **************************************************************************** - SUBROUTINE InitFixNOx(n, names, values) - - INTEGER, INTENT(IN) :: n - REAL(KIND=dp) :: values(n) - CHARACTER(LEN=15), INTENT(IN) :: names(n) - - INTEGER :: i, nfound_tracers - - initial_total_nox = 0.0 - nfound_tracers = 0 - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - initial_total_nox = initial_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - initial_total_nox = initial_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - ENDDO - - IF (.NOT. nfound_tracers == 2) THEN - WRITE(*,*) "NOx fixing failed, found (only) ", & - nfound_tracers, " species." - STOP - ENDIF - - END SUBROUTINE InitFixNOx -! **************************************************************************** - - -! **************************************************************************** -! FixNOx - keep total NOx at initial levels (for steady state calculations) -! **************************************************************************** - SUBROUTINE FixNOx(n, names, values) - - INTEGER, INTENT(IN) :: n - REAL(KIND=dp), INTENT(INOUT) :: values(n) - CHARACTER(LEN=15), INTENT(IN) :: names(n) - - INTEGER :: i, nfound_tracers - REAL(KIND=dp) :: current_total_nox, scaleFactor - - current_total_nox = 0.0 - nfound_tracers = 0 - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - current_total_nox = current_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - current_total_nox = current_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - ENDDO - - IF (.NOT. nfound_tracers == 2) THEN - WRITE(*,*) "NOx fixing failed, found (only) ", & - nfound_tracers, " species." - STOP - ENDIF - - scaleFactor = initial_total_nox - IF (current_total_nox > 0.0) THEN - scaleFactor = initial_total_nox / current_total_nox - ENDIF - - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - values(i) = values(i) * scaleFactor - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - values(i) = values(i) * scaleFactor - ENDIF - ENDDO - - END SUBROUTINE FixNOx -! **************************************************************************** - - -! End INLINED Utility Functions - -! Utility Functions from KPP_HOME/util/util -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! UTIL - Utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -! **************************************************************** -! -! InitSaveData - Opens the data file for writing -! Parameters : -! -! **************************************************************** - - SUBROUTINE InitSaveData () - - USE RADM2_Parameters -!* ---------------------------------------------------- -!* BOXMOX extension - Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* add header to output species and sparse jacobian indices -!* and Hessian - USE RADM2_JacobianSP -#if 0 > 0 - USE RADM2_HessianSP -#endif -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* add header to output files and open rates file - INTEGER :: i -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20161129 -!* renamed concentration output -! open(10, file='RADM2.dat') - open(10, file='RADM2.conc') -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* add header to output files and open rates file - - ! add header to output file - WRITE(10, "(A24,10000(1X,A24))") "time", ADJUSTR(SPC_NAMES(LOOKAT)) - - open(11, file='RADM2.rates') - - WRITE(11, "(I5)") NREACT - - DO i = 1, NREACT - WRITE(11, "(A)") EQN_NAMES(i) - ENDDO - - ! add header to output file - WRITE(11, "(A24,10000(1X,I24))") "time", (/(i, i=1,NREACT, 1)/) - -!* write header to Jacobian output - open(12, file='RADM2.jacobian') - -!* species names - WRITE(12, "(10000(1X,A24))") ADJUSTR(SPC_NAMES(LOOKAT)) -!* species index - WRITE(12, "(10000(1X,I5))") LOOKAT -!* Jacobian non zero row index - WRITE(12, "(100000(1X,I5))") (LU_IROW(i), i=1,LU_NONZERO) -!* Jacobian non zero column index - WRITE(12, "(100000(1X,I5))") (LU_ICOL(i), i=1,LU_NONZERO) - -!* write header to Hessian output -#if 0 > 0 - open(13, file='RADM2.hessian') - -!* species names - WRITE(13, "(10000(1X,A24))") ADJUSTR(SPC_NAMES(LOOKAT)) -!* species index - WRITE(13, "(10000(1X,I5))") LOOKAT -!* Hessian i, j, k species - WRITE(13, "(100000(1X,I5))") (IHESS_I(i), i=1,NHESS) - WRITE(13, "(100000(1X,I5))") (IHESS_J(i), i=1,NHESS) - WRITE(13, "(100000(1X,I5))") (IHESS_K(i), i=1,NHESS) -#endif -!* ---------------------------------------------------- - - END SUBROUTINE InitSaveData - -! End of InitSaveData function -! **************************************************************** - -! **************************************************************** -! -! SaveData - Write LOOKAT species in the data file -! Parameters : -! -! **************************************************************** - - SUBROUTINE SaveData () - - USE RADM2_Global - USE RADM2_Monitor -!* ---------------------------------------------------- -!* BOXMOX extension - Jerome Barre - 20150410 -!* Christoph Knote - 20151030 - USE RADM2_Jacobian -#if 0 > 0 - USE RADM2_Hessian -#endif -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20151030 - REAL(KIND=dp) :: JVS(LU_NONZERO) ! d(dc/dt)i/dcj -#if 0 > 0 - REAL(KIND=dp) :: HESS(NHESS) ! -#endif - INTEGER i - - WRITE(10,999) (TIME-TSTART)/3600.D0, & - (C(LOOKAT(i))/CFACTOR, i=1,NLOOKAT) - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* write out reaction rates - WRITE(11,999) (TIME-TSTART)/3600.D0, & - (RCONST(i), i=1,NREACT) -!* call Jacobian function to output Jacobian values - CALL Jac_SP( VAR, FIX, RCONST, JVS ) - WRITE(12,9999) (JVS(i), i=1,LU_NONZERO) -!* call Hessian function to output Hessian values -#if 0 > 0 - CALL Hessian( VAR, FIX, RCONST, HESS ) - WRITE(13,9999) (HESS(i), i=1,NHESS) -#endif -!* --------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* might have more than 100 output variables -! 999 FORMAT(E24.16,100(1X,E24.16)) -999 FORMAT(E24.16,10000(1X,E24.16E3)) -9999 FORMAT(E24.16,100000(1X,E24.16E3)) -!* ---------------------------------------------------- - - END SUBROUTINE SaveData - -! End of SaveData function -! **************************************************************** - -! **************************************************************** -! -! CloseSaveData - Close the data file -! Parameters : -! -! **************************************************************** - - SUBROUTINE CloseSaveData () - - USE RADM2_Parameters - - CLOSE(10) - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -! Christoph Knote - 20153010 -!* close rates file - CLOSE(11) -!* close Jacobian file - CLOSE(12) -!* close Hessian file -#if 0 > 0 - CLOSE(13) -#endif -!* --------------------------------------------------- - - END SUBROUTINE CloseSaveData - -! End of CloseSaveData function -! **************************************************************** - -! **************************************************************** -! -! GenerateMatlab - Generates MATLAB file to load the data file -! Parameters : -! It will have a character string to prefix each -! species name with. -! -! **************************************************************** - - SUBROUTINE GenerateMatlab ( PREFIX ) - - USE RADM2_Parameters - USE RADM2_Global - USE RADM2_Monitor - - - CHARACTER(LEN=8) PREFIX - INTEGER i - - open(20, file='RADM2.m') - write(20,*) 'load RADM2.dat;' - write(20,990) PREFIX -990 FORMAT(A1,'c = RADM2;') - write(20,*) 'clear RADM2;' - write(20,991) PREFIX, PREFIX -991 FORMAT(A1,'t=',A1,'c(:,1);') - write(20,992) PREFIX -992 FORMAT(A1,'c(:,1)=[];') - - do i=1,NLOOKAT - write(20,993) PREFIX, SPC_NAMES(LOOKAT(i)), PREFIX, i -993 FORMAT(A1,A6,' = ',A1,'c(:,',I2,');') - end do - - CLOSE(20) - - END SUBROUTINE GenerateMatlab - -! End of GenerateMatlab function -! **************************************************************** - - -! End Utility Functions from KPP_HOME/util/util -! End of UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Shuffle_user2kpp - function to copy concentrations from USER to KPP -! Arguments : -! V_USER - Concentration of variable species in USER's order -! V - Concentrations of variable species (local) -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Shuffle_user2kpp ( V_USER, V ) - -! V_USER - Concentration of variable species in USER's order - REAL(kind=dp) :: V_USER(NVAR) -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) - - V(46) = V_USER(1) - V(14) = V_USER(2) - V(58) = V_USER(3) - V(59) = V_USER(4) - V(54) = V_USER(5) - V(15) = V_USER(6) - V(13) = V_USER(7) - V(25) = V_USER(8) - V(20) = V_USER(9) - V(5) = V_USER(10) - V(1) = V_USER(11) - V(26) = V_USER(12) - V(6) = V_USER(13) - V(16) = V_USER(14) - V(8) = V_USER(15) - V(9) = V_USER(16) - V(24) = V_USER(17) - V(28) = V_USER(18) - V(29) = V_USER(19) - V(27) = V_USER(20) - V(10) = V_USER(21) - V(11) = V_USER(22) - V(22) = V_USER(23) - V(43) = V_USER(24) - V(48) = V_USER(25) - V(57) = V_USER(26) - V(33) = V_USER(27) - V(31) = V_USER(28) - V(34) = V_USER(29) - V(52) = V_USER(30) - V(30) = V_USER(31) - V(47) = V_USER(32) - V(23) = V_USER(33) - V(12) = V_USER(34) - V(21) = V_USER(35) - V(42) = V_USER(36) - V(18) = V_USER(37) - V(2) = V_USER(38) - V(3) = V_USER(39) - V(53) = V_USER(40) - V(51) = V_USER(41) - V(19) = V_USER(42) - V(7) = V_USER(43) - V(56) = V_USER(44) - V(41) = V_USER(45) - V(44) = V_USER(46) - V(37) = V_USER(47) - V(49) = V_USER(48) - V(35) = V_USER(49) - V(36) = V_USER(50) - V(55) = V_USER(51) - V(45) = V_USER(52) - V(50) = V_USER(53) - V(38) = V_USER(54) - V(39) = V_USER(55) - V(32) = V_USER(56) - V(17) = V_USER(57) - V(4) = V_USER(58) - V(40) = V_USER(59) - -END SUBROUTINE Shuffle_user2kpp - -! End of Shuffle_user2kpp function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Shuffle_kpp2user - function to restore concentrations from KPP to USER -! Arguments : -! V - Concentrations of variable species (local) -! V_USER - Concentration of variable species in USER's order -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Shuffle_kpp2user ( V, V_USER ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! V_USER - Concentration of variable species in USER's order - REAL(kind=dp) :: V_USER(NVAR) - - V_USER(1) = V(46) - V_USER(2) = V(14) - V_USER(3) = V(58) - V_USER(4) = V(59) - V_USER(5) = V(54) - V_USER(6) = V(15) - V_USER(7) = V(13) - V_USER(8) = V(25) - V_USER(9) = V(20) - V_USER(10) = V(5) - V_USER(11) = V(1) - V_USER(12) = V(26) - V_USER(13) = V(6) - V_USER(14) = V(16) - V_USER(15) = V(8) - V_USER(16) = V(9) - V_USER(17) = V(24) - V_USER(18) = V(28) - V_USER(19) = V(29) - V_USER(20) = V(27) - V_USER(21) = V(10) - V_USER(22) = V(11) - V_USER(23) = V(22) - V_USER(24) = V(43) - V_USER(25) = V(48) - V_USER(26) = V(57) - V_USER(27) = V(33) - V_USER(28) = V(31) - V_USER(29) = V(34) - V_USER(30) = V(52) - V_USER(31) = V(30) - V_USER(32) = V(47) - V_USER(33) = V(23) - V_USER(34) = V(12) - V_USER(35) = V(21) - V_USER(36) = V(42) - V_USER(37) = V(18) - V_USER(38) = V(2) - V_USER(39) = V(3) - V_USER(40) = V(53) - V_USER(41) = V(51) - V_USER(42) = V(19) - V_USER(43) = V(7) - V_USER(44) = V(56) - V_USER(45) = V(41) - V_USER(46) = V(44) - V_USER(47) = V(37) - V_USER(48) = V(49) - V_USER(49) = V(35) - V_USER(50) = V(36) - V_USER(51) = V(55) - V_USER(52) = V(45) - V_USER(53) = V(50) - V_USER(54) = V(38) - V_USER(55) = V(39) - V_USER(56) = V(32) - V_USER(57) = V(17) - V_USER(58) = V(4) - V_USER(59) = V(40) - -END SUBROUTINE Shuffle_kpp2user - -! End of Shuffle_kpp2user function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! GetMass - compute total mass of selected atoms -! Arguments : -! CL - Concentration of all species (local) -! Mass - value of mass balance -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE GetMass ( CL, Mass ) - -! CL - Concentration of all species (local) - REAL(kind=dp) :: CL(NSPEC) -! Mass - value of mass balance - REAL(kind=dp) :: Mass(1) - - -END SUBROUTINE GetMass - -! End of GetMass function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE RADM2_Util - diff --git a/boxmox/compiled_mechs/RADM2/RADM2_Util.o b/boxmox/compiled_mechs/RADM2/RADM2_Util.o deleted file mode 100644 index b6a60391e90c0427853528196f36b0f165afe2c5..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/RADM2_Util.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/RADM2_mex_Fun.f90 b/boxmox/compiled_mechs/RADM2/RADM2_mex_Fun.f90 deleted file mode 100644 index f10f0759eac86d2f4875a136de25d28183b4cc30..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADM2/RADM2_mex_Fun.f90 +++ /dev/null @@ -1,45 +0,0 @@ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE mexFunction( nlhs, plhs, nrhs, prhs ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Matlab Gateway for the Derivative Function Fun -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RADM2_Model - - INTEGER nlhs, nrhs - INTEGER plhs(*), prhs(*) - INTEGER mxGetPr, mxCreateFull, mxGetM, mxgetN - INTEGER VPtr, FPtr, RPtr, VdotPtr - REAL(kind=dp) V(59), F(2), RCT(156) - REAL(kind=dp) Vdot(59) - -! Check for the right number of input arguments - IF ( nrhs .ne. 3 ) THEN - CALL mexErrMsgTxt('Fun requires 3 input vectors: & - &V(59), F(2), RCT(156)') - END IF -! Check for the right number of output arguments - IF ( nlhs .ne. 1 ) THEN - CALL mexErrMsgTxt('Fun requires 1 output vector: & - &Vdot(59)') - END IF - - plhs(1) = mxCreateDoubleMatrix(59,1,0) - - VPtr = mxGetPr(prhs(1)) - CALL mxCopyPtrToReal8(VPtr,V,59) - - FPtr = mxGetPr(prhs(2)) - CALL mxCopyPtrToReal8(FPtr,F,2) - - RPtr = mxGetPr(prhs(3)) - CALL mxCopyPtrToReal8(RPtr,RCT,156) - - VdotPtr = mxGetPr(plhs(1)) - - CALL Fun( V, F, RCT, Vdot ) - - CALL mxCopyReal8ToPtr(Vdot, VdotPtr, 59) - - END SUBROUTINE mexFunction diff --git a/boxmox/compiled_mechs/RADM2/RADM2_mex_Jac_SP.f90 b/boxmox/compiled_mechs/RADM2/RADM2_mex_Jac_SP.f90 deleted file mode 100644 index f51857c7bee8a46089a4c0b16e62b2dce10257b0..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADM2/RADM2_mex_Jac_SP.f90 +++ /dev/null @@ -1,44 +0,0 @@ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE mexFunction( nlhs, plhs, nrhs, prhs ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Matlab Gateway for the Sparse Jacobian Function Jac_SP -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RADM2_Model - - INTEGER nlhs, nrhs - INTEGER plhs(*), prhs(*) - INTEGER mxGetPr, mxCreateFull, mxGetM, mxgetN - INTEGER VPtr, FPtr, RPtr, JVSPtr - REAL(kind=dp) V(59), F(2), RCT(156) - REAL(kind=dp) JVS(659) - -! Check for the right number of input arguments - IF ( nrhs .ne. 3 ) THEN - CALL mexErrMsgTxt('Jac_SP requires 3 input vectors: & - &V(59), F(2), RCT(156)') - END IF -! Check for the right number of output arguments - IF ( nlhs .ne. 1 ) THEN - CALL mexErrMsgTxt('Jac_SP requires 1 output vector: & - &JVS(659)') - END IF - - plhs(1) = mxCreateDoubleMatrix(659,1,0) - - VPtr = mxGetPr(prhs(1)) - CALL mxCopyPtrToReal8(VPtr,V,59) - - FPtr = mxGetPr(prhs(2)) - CALL mxCopyPtrToReal8(FPtr,F,2) - - RPtr = mxGetPr(prhs(3)) - CALL mxCopyPtrToReal8(RPtr,RCT,156) - - JVSPtr = mxGetPr(plhs(1)) - - CALL Jac_SP( V, F, RCT, JVS ) - - CALL mxCopyReal8ToPtr(JVS, JVSPtr, 659) - - END SUBROUTINE mexFunction diff --git a/boxmox/compiled_mechs/RADM2/compile.log b/boxmox/compiled_mechs/RADM2/compile.log deleted file mode 100644 index 44545568e1b606b63edafd30609f7c1481708967..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADM2/compile.log +++ /dev/null @@ -1,22 +0,0 @@ -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADM2_Precision.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADM2_Parameters.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADM2_Global.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADM2_Function.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADM2_JacobianSP.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADM2_Jacobian.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADM2_StoichiomSP.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADM2_Stoichiom.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADM2_Monitor.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADM2_Util.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADM2_Rates.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADM2_LinearAlgebra.f90 -RADM2_LinearAlgebra.f90:1250:46: - - 1250 | IF (incX .EQ. incY) IF (incX-1) 5,20,60 - | 1 -Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADM2_Initialize.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADM2_Integrator.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADM2_Model.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADM2_Main.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 RADM2_Precision.o RADM2_Parameters.o RADM2_Global.o RADM2_Function.o RADM2_JacobianSP.o RADM2_Jacobian.o RADM2_StoichiomSP.o RADM2_Stoichiom.o RADM2_Rates.o RADM2_Util.o RADM2_Monitor.o RADM2_LinearAlgebra.o RADM2_Main.o RADM2_Initialize.o RADM2_Integrator.o RADM2_Model.o -o RADM2.exe diff --git a/boxmox/compiled_mechs/RADM2/kpp.log b/boxmox/compiled_mechs/RADM2/kpp.log deleted file mode 100644 index 304865a3a2de1ac4a2adfd0be06278c604a84de1..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADM2/kpp.log +++ /dev/null @@ -1,37 +0,0 @@ - -This is KPP-2.2.3. - -KPP is parsing the equation file. -KPP is computing Jacobian sparsity structure. -KPP is starting the code generation. -KPP is initializing the code generation. -KPP is generating the monitor data: - - RADM2_Monitor -KPP is generating the global declarations: - - RADM2_Main -KPP is generating the ODE function: - - RADM2_Function -KPP is generating the ODE Jacobian: - - RADM2_Jacobian - - RADM2_JacobianSP -KPP is generating the linear algebra routines: - - RADM2_LinearAlgebra -KPP is generating the utility data: - - RADM2_Util -KPP is generating the utility functions: - - RADM2_Util -KPP is generating the rate laws: - - RADM2_Rates -KPP is generating the parameters: - - RADM2_Parameters -KPP is generating the global data: - - RADM2_Global -KPP is generating the stoichiometric description files: - - RADM2_Stoichiom - - RADM2_StoichiomSP -KPP is generating the driver from ../boxmox/boxmox.f90: - - RADM2_Main -KPP is starting the code post-processing. - -KPP has succesfully created the model "RADM2". - diff --git a/boxmox/compiled_mechs/RADM2/radm2_function.mod b/boxmox/compiled_mechs/RADM2/radm2_function.mod deleted file mode 100644 index 850c9b3ce2470a1bcaa5374a2999096adcdb760e..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/radm2_function.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/radm2_global.mod b/boxmox/compiled_mechs/RADM2/radm2_global.mod deleted file mode 100644 index b65004be11772f53390cdd7c85eb321fdbe7922c..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/radm2_global.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/radm2_initialize.mod b/boxmox/compiled_mechs/RADM2/radm2_initialize.mod deleted file mode 100644 index 93dc8f7a01bd47b872eb2d2fa9a7723c509a4392..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/radm2_initialize.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/radm2_integrator.mod b/boxmox/compiled_mechs/RADM2/radm2_integrator.mod deleted file mode 100644 index 22ea852677cc31f4ab5edbfa92d19df1c257ad39..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/radm2_integrator.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/radm2_jacobian.mod b/boxmox/compiled_mechs/RADM2/radm2_jacobian.mod deleted file mode 100644 index 233c86eaaba7fc6eaec5406ebab9e3647bca7f7c..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/radm2_jacobian.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/radm2_jacobiansp.mod b/boxmox/compiled_mechs/RADM2/radm2_jacobiansp.mod deleted file mode 100644 index 6c5e8936ee17de65e4950143b6eebfe9ad53d3ba..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/radm2_jacobiansp.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/radm2_linearalgebra.mod b/boxmox/compiled_mechs/RADM2/radm2_linearalgebra.mod deleted file mode 100644 index 46634d6b30b5e6a6597002aa7ecb836468a24396..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/radm2_linearalgebra.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/radm2_model.mod b/boxmox/compiled_mechs/RADM2/radm2_model.mod deleted file mode 100644 index 50a5eaba0d59a468fc9949ecf3e58f7a7adbe822..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/radm2_model.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/radm2_monitor.mod b/boxmox/compiled_mechs/RADM2/radm2_monitor.mod deleted file mode 100644 index ec1e6a149f73f87c03d25ad14de87a57c10b7ae2..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/radm2_monitor.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/radm2_parameters.mod b/boxmox/compiled_mechs/RADM2/radm2_parameters.mod deleted file mode 100644 index 53bd9e5403bd54fffb3b88cfa879cea84d7d8b99..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/radm2_parameters.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/radm2_precision.mod b/boxmox/compiled_mechs/RADM2/radm2_precision.mod deleted file mode 100644 index 9522d0bb8d76a21d45505c795c5907290499b372..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/radm2_precision.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/radm2_rates.mod b/boxmox/compiled_mechs/RADM2/radm2_rates.mod deleted file mode 100644 index de5d7aa40b66dc2c9b0dc4728e54c75fe886f376..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/radm2_rates.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/radm2_stoichiom.mod b/boxmox/compiled_mechs/RADM2/radm2_stoichiom.mod deleted file mode 100644 index f590d959679e9d68f5c6dd5a1caee45a32d8a1b5..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/radm2_stoichiom.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/radm2_stoichiomsp.mod b/boxmox/compiled_mechs/RADM2/radm2_stoichiomsp.mod deleted file mode 100644 index 251442efa247af91913dda291a3cf7e8b1ab6074..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/radm2_stoichiomsp.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADM2/radm2_util.mod b/boxmox/compiled_mechs/RADM2/radm2_util.mod deleted file mode 100644 index d542047c021ce926d6fc98e01429a4444449ddc4..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADM2/radm2_util.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/Makefile_RADMKA b/boxmox/compiled_mechs/RADMKA/Makefile_RADMKA deleted file mode 100644 index 4681448601ffa1ed0bf623937e0d7e1559ce88a1..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADMKA/Makefile_RADMKA +++ /dev/null @@ -1,215 +0,0 @@ -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: Set here the F90 compiler and options -# Pedefined compilers: INTEL, PGF, HPUX, LAHEY -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -#COMPILER = G95 -#COMPILER = LAHEY -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# gfortran is standard -#COMPILER = INTEL -# ---------------------------------------------------- -#COMPILER = PGF -#COMPILER = HPUX -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# gfortran is standard -COMPILER = GFORTRAN -# ---------------------------------------------------- - -FC_G95 = g95 -FOPT_G95 = -cpp -O -pg -fbounds-check -fimplicit-none -Wall -ftrace=full - -FC_LAHEY = lf95 -# More aggressive for production runs: -#FOPT_LAHEY = -Cpp --pca -O -# More checking for debugging: -FOPT_LAHEY = -Cpp --chk a,e,s,u --pca --ap -O0 -g --trap --trace --chkglobal - -FC_INTEL = ifort -# More aggressive for production runs: -#FOPT_INTEL = -cpp -O -fp-model precise -pc80 -prec_div -# More checking for debugging: -FOPT_INTEL = -cpp -O0 -fp-model strict -implicitnone -ftrapuv \ - -debug all -check all -warn all - -FC_PGF = pgf90 -# More aggressive for production runs: -FOPT_PGF = -Mpreprocess -O -fast -pc 80 -Kieee -# More checking for debugging: -#FOPT_PGF = -Mpreprocess -O0 -Mbounds -Mchkfpstk -Mchkptr -Mchkstk \ -# -Ktrap=fp -pc 80 -Kieee - -FC_HPUX = f90 -FOPT_HPUX = -O -u +Oall +check=on - -FC_GFORTRAN = gfortran -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# rate equation code creates pretty long lines -# optimization does not help much and breaks MCM -# FOPT_GFORTRAN = -cpp -O -# double precision: -#FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -freal-4-real-16 -freal-8-real-16 -# using GCC 4.7 and higher: -FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -freal-4-real-8 -# for older compilers -#FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -fdefault-real-8 -# ---------------------------------------------------- - -# define FULL_ALGEBRA for non-sparse integration -FC = $(FC_$(COMPILER)) -FOPT = $(FOPT_$(COMPILER)) # -DFULL_ALGEBRA - -LIBS = -#LIBS = -llapack -lblas - -# Command to create Matlab mex gateway routines -# Note: use $(FC) as the mex Fortran compiler -MEX = mex - -GENSRC = RADMKA_Precision.f90 \ - RADMKA_Parameters.f90 \ - RADMKA_Global.f90 - -GENOBJ = RADMKA_Precision.o \ - RADMKA_Parameters.o \ - RADMKA_Global.o - -FUNSRC = RADMKA_Function.f90 -FUNOBJ = RADMKA_Function.o - -JACSRC = RADMKA_JacobianSP.f90 RADMKA_Jacobian.f90 -JACOBJ = RADMKA_JacobianSP.o RADMKA_Jacobian.o - -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20160906 -# if HESSIAN is off, avoid compilation errors by not -# linking to the Hessian objects. -ifeq ($(wildcard RADMKA_HessianSP.f90),) - HESSRC = - HESOBJ = -else - HESSRC = RADMKA_HessianSP.f90 RADMKA_Hessian.f90 - HESOBJ = RADMKA_HessianSP.o RADMKA_Hessian.o -endif -# ---------------------------------------------------- - -STMSRC = RADMKA_StoichiomSP.f90 RADMKA_Stoichiom.f90 -STMOBJ = RADMKA_StoichiomSP.o RADMKA_Stoichiom.o - -UTLSRC = RADMKA_Rates.f90 RADMKA_Util.f90 RADMKA_Monitor.f90 -UTLOBJ = RADMKA_Rates.o RADMKA_Util.o RADMKA_Monitor.o - -LASRC = RADMKA_LinearAlgebra.f90 -LAOBJ = RADMKA_LinearAlgebra.o - -STOCHSRC = RADMKA_Stochastic.f90 -STOCHOBJ = RADMKA_Stochastic.o - -MAINSRC = RADMKA_Main.f90 RADMKA_Initialize.f90 RADMKA_Integrator.f90 RADMKA_Model.f90 -MAINOBJ = RADMKA_Main.o RADMKA_Initialize.o RADMKA_Integrator.o RADMKA_Model.o - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: modify the line below to include only the -# objects needed by your application -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -ALLOBJ = $(GENOBJ) $(FUNOBJ) $(JACOBJ) $(HESOBJ) $(STMOBJ) \ - $(UTLOBJ) $(LAOBJ) - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: modify the line below to include only the -# executables needed by your application -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -all: exe - -exe: $(ALLOBJ) $(MAINOBJ) - $(FC) $(FOPT) $(ALLOBJ) $(MAINOBJ) $(LIBS) -o RADMKA.exe - -pylib: $(ALLOBJ) lib_Initialize.o lib_Integrator.o lib_Model.o - f2py -c -m boxmox $(ALLOBJ) lib_Initialize.o lib_Integrator.o lib_Model.o lib_Main.f90 - -stochastic:$(ALLOBJ) $(STOCHOBJ) $(MAINOBJ) - $(FC) $(FOPT) $(ALLOBJ) $(STOCHOBJ) $(MAINOBJ) $(LIBS) \ - -o RADMKA_stochastic.exe - -mex: $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O RADMKA_mex_Fun.f90 $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O RADMKA_mex_Jac_SP.f90 $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O RADMKA_mex_Hessian.f90 $(ALLOBJ) - -clean: - rm -f RADMKA*.o RADMKA*.mod \ - RADMKA*.dat RADMKA.exe RADMKA*.mexglx \ - RADMKA.map - -distclean: - rm -f RADMKA*.o RADMKA*.mod \ - RADMKA*.dat RADMKA.exe RADMKA.map \ - RADMKA*.f90 RADMKA_*.mexglx - -RADMKA_Precision.o: RADMKA_Precision.f90 - $(FC) $(FOPT) -c $< - -RADMKA_Parameters.o: RADMKA_Parameters.f90 \ - RADMKA_Precision.o - $(FC) $(FOPT) -c $< - -RADMKA_Monitor.o: RADMKA_Monitor.f90 \ - RADMKA_Precision.o - $(FC) $(FOPT) -c $< - -RADMKA_Global.o: RADMKA_Global.f90 \ - RADMKA_Parameters.o RADMKA_Precision.o - $(FC) $(FOPT) -c $< - -RADMKA_Initialize.o: RADMKA_Initialize.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -RADMKA_Function.o: RADMKA_Function.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -RADMKA_Stochastic.o: RADMKA_Stochastic.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -RADMKA_JacobianSP.o: RADMKA_JacobianSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -RADMKA_Jacobian.o: RADMKA_Jacobian.f90 $(GENOBJ) RADMKA_JacobianSP.o - $(FC) $(FOPT) -c $< - -RADMKA_LinearAlgebra.o: RADMKA_LinearAlgebra.f90 $(GENOBJ) RADMKA_JacobianSP.o - $(FC) $(FOPT) -c $< - -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# need Util in Rates -#RADMKA_Rates.o: RADMKA_Rates.f90 $(GENOBJ) -RADMKA_Rates.o: RADMKA_Rates.f90 $(GENOBJ) RADMKA_Util.o -# ---------------------------------------------------- - $(FC) $(FOPT) -c $< - -RADMKA_HessianSP.o: RADMKA_HessianSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -RADMKA_Hessian.o: RADMKA_Hessian.f90 $(GENOBJ) RADMKA_HessianSP.o - $(FC) $(FOPT) -c $< - -RADMKA_StoichiomSP.o: RADMKA_StoichiomSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -RADMKA_Stoichiom.o: RADMKA_Stoichiom.f90 $(GENOBJ) RADMKA_StoichiomSP.o - $(FC) $(FOPT) -c $< - -RADMKA_Util.o: RADMKA_Util.f90 $(GENOBJ) RADMKA_Monitor.o - $(FC) $(FOPT) -c $< - -RADMKA_Main.o: RADMKA_Main.f90 $(ALLOBJ) RADMKA_Initialize.o RADMKA_Model.o RADMKA_Integrator.o - $(FC) $(FOPT) -c $< - -RADMKA_Model.o: RADMKA_Model.f90 $(ALLOBJ) RADMKA_Integrator.o - $(FC) $(FOPT) -c $< - -RADMKA_Integrator.o: RADMKA_Integrator.f90 $(ALLOBJ) - $(FC) $(FOPT) -c $< diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA.exe b/boxmox/compiled_mechs/RADMKA/RADMKA.exe deleted file mode 100755 index f9275b5eb8e6a5ee6ce4ec618a1f4df01b21cb29..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/RADMKA.exe and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA.kpp b/boxmox/compiled_mechs/RADMKA/RADMKA.kpp deleted file mode 100644 index ca7a9b7859dd7ea4a2db63973fa3ec3641c204e4..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADMKA/RADMKA.kpp +++ /dev/null @@ -1,7 +0,0 @@ -#MODEL RADMKA -#LANGUAGE Fortran90 -#DOUBLE ON -#INTEGRATOR rosenbrock -#DRIVER ../boxmox/boxmox -#JACOBIAN SPARSE_LU_ROW -#HESSIAN OFF diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA.map b/boxmox/compiled_mechs/RADMKA/RADMKA.map deleted file mode 100644 index 45cd61412ea9167c79a15125e5484bb931a792c5..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADMKA/RADMKA.map +++ /dev/null @@ -1,97 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Map File with Human-Readable Information -! -! Generated by KPP-2.2.3 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 : RADMKA.map -! Time : Thu Oct 8 08:22:34 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADMKA_16038_BOXMOX -! Equation file : RADMKA.kpp -! Output root filename : RADMKA -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -### Options ------------------------------------------- - -FUNCTION - AGGREGATE -JACOBIAN - SPARSE W/ ACCOUNT FOR LU DECOMPOSITION FILL-IN -DOUBLE - ON -REORDER - ON - -### Parameters ---------------------------------------- - -! NSPEC - Number of chemical species - INTEGER, PARAMETER :: NSPEC = 76 -! NVAR - Number of Variable species - INTEGER, PARAMETER :: NVAR = 76 -! NVARACT - Number of Active species - INTEGER, PARAMETER :: NVARACT = 71 -! NFIX - Number of Fixed species - INTEGER, PARAMETER :: NFIX = 1 -! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 186 -! NVARST - Starting of variables in conc. vect. - INTEGER, PARAMETER :: NVARST = 1 -! NFIXST - Starting of fixed in conc. vect. - INTEGER, PARAMETER :: NFIXST = 77 - -### Species ------------------------------------------- - -Variable species - 1 = N2 (r) 27 = HACE (r) 53 = TOLP (r) - 2 = SULF (n) 28 = PAN (r) 54 = OP2 (r) - 3 = ORA1 (n) 29 = O3P (r) 55 = MACP (r) - 4 = ORA2 (n) 30 = H2O2 (r) 56 = OLN (r) - 5 = CO2 (n) 31 = OL2 (r) 57 = MGLY (r) - 6 = H2 (n) 32 = ISOP (r) 58 = HCHO (r) - 7 = SO2 (r) 33 = ISON (r) 59 = TCO3 (r) - 8 = ETH (r) 34 = O2 (r) 60 = APIP (r) - 9 = ISHP (r) 35 = API (r) 61 = H2O (r) - 10 = HC5 (r) 36 = CO (r) 62 = LIMP (r) - 11 = HC8 (r) 37 = LIM (r) 63 = OLI (r) - 12 = TOL (r) 38 = OLT (r) 64 = KETP (r) - 13 = XYL (r) 39 = ISO (r) 65 = ALD (r) - 14 = TPAN (r) 40 = HNO3 (r) 66 = ETHP (r) - 15 = HONO (r) 41 = XNO2 (r) 67 = MO2 (r) - 16 = MAHP (r) 42 = GLY (r) 68 = ACO3 (r) - 17 = HC3 (r) 43 = XYLP (r) 69 = HO2 (r) - 18 = NALD (r) 44 = MACR (r) 70 = HO (r) - 19 = O1D (r) 45 = DCB (r) 71 = NO3 (r) - 20 = N2O5 (r) 46 = HC5P (r) 72 = NO2 (r) - 21 = PAA (r) 47 = HC8P (r) 73 = NO (r) - 22 = OP1 (r) 48 = OLIP (r) 74 = O3 (r) - 23 = MPAN (r) 49 = KET (r) 75 = ONIT (r) - 24 = CH4 (r) 50 = OL2P (r) 76 = HC3P (r) - 25 = CSL (r) 51 = OLTP (r) - 26 = HNO4 (r) 52 = XO2 (r) - -Fixed species - - -### Subroutines --------------------------------------- - -SUBROUTINE Fun ( V, F, RCT, Vdot ) -SUBROUTINE Jac_SP ( V, F, RCT, JVS ) -SUBROUTINE Jac_SP_Vec ( JVS, UV, JUV ) -SUBROUTINE JacTR_SP_Vec ( JVS, UV, JTUV ) -SUBROUTINE KppSolve ( JVS, X ) -SUBROUTINE KppSolveTR ( JVS, X, XX ) -SUBROUTINE Initialize ( ) -SUBROUTINE Shuffle_user2kpp ( V_USER, V ) -SUBROUTINE Shuffle_kpp2user ( V, V_USER ) -SUBROUTINE Update_RCONST ( ) -SUBROUTINE Update_PHOTO ( ) -SUBROUTINE GetMass ( CL, Mass ) -SUBROUTINE ReactantProd ( V, F, ARP ) -SUBROUTINE JacReactantProd ( V, F, JVRP ) diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_Function.f90 b/boxmox/compiled_mechs/RADMKA/RADMKA_Function.f90 deleted file mode 100644 index 96fec6c0c3a533b15cebabf6ca2376606119f482..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADMKA/RADMKA_Function.f90 +++ /dev/null @@ -1,369 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The ODE Function of Chemical Model File -! -! Generated by KPP-2.2.3 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 : RADMKA_Function.f90 -! Time : Thu Oct 8 08:22:34 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADMKA_16038_BOXMOX -! Equation file : RADMKA.kpp -! Output root filename : RADMKA -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RADMKA_Function - - USE RADMKA_Parameters - IMPLICIT NONE - -! A - Rate for each equation - REAL(kind=dp) :: A(NREACT) - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Fun - time derivatives of variables - Agregate form -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! RCT - Rate constants (local) -! Vdot - Time derivative of variable species concentrations -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Fun ( V, F, RCT, Vdot ) - -! 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) -! Vdot - Time derivative of variable species concentrations - REAL(kind=dp) :: Vdot(NVAR) - - -! Computation of equation rates - A(1) = RCT(1)*V(72) - A(2) = RCT(2)*V(74) - A(3) = RCT(3)*V(74) - A(4) = RCT(4)*V(15) - A(5) = RCT(5)*V(40) - A(6) = RCT(6)*V(26) - A(7) = RCT(7)*V(71) - A(8) = RCT(8)*V(71) - A(9) = RCT(9)*V(30) - A(10) = RCT(10)*V(58) - A(11) = RCT(11)*V(58) - A(12) = RCT(12)*V(65) - A(13) = RCT(13)*V(22) - A(14) = RCT(14)*V(54) - A(15) = RCT(15)*V(21) - A(16) = RCT(16)*V(49) - A(17) = RCT(17)*V(42) - A(18) = RCT(18)*V(42) - A(19) = RCT(19)*V(57) - A(20) = RCT(20)*V(45) - A(21) = RCT(21)*V(75) - A(22) = RCT(22)*V(29)*V(34) - A(23) = RCT(23)*V(29)*V(72) - A(24) = RCT(24)*V(1)*V(19) - A(25) = RCT(25)*V(19)*V(34) - A(26) = RCT(26)*V(19)*V(61) - A(27) = RCT(27)*V(73)*V(74) - A(28) = RCT(28)*V(70)*V(74) - A(29) = RCT(29)*V(69)*V(74) - A(30) = RCT(30)*V(69)*V(73) - A(31) = RCT(31)*V(69)*V(72) - A(32) = RCT(32)*V(69)*V(69) - A(33) = RCT(33)*V(61)*V(69)*V(69) - A(34) = RCT(34)*V(30)*V(70) - A(35) = RCT(35)*V(70)*V(73) - A(36) = RCT(36)*V(34)*V(73)*V(73) - A(37) = RCT(37)*V(72)*V(74) - A(38) = RCT(38)*V(71)*V(73) - A(39) = RCT(39)*V(71)*V(72) - A(40) = RCT(40)*V(69)*V(71) - A(41) = RCT(41)*V(71)*V(72) - A(42) = RCT(42)*V(20) - A(43) = RCT(43)*V(20)*V(61) - A(44) = RCT(44)*V(70)*V(72) - A(45) = RCT(45)*V(40)*V(70) - A(46) = RCT(46)*V(26)*V(70) - A(47) = RCT(47)*V(69)*V(70) - A(48) = RCT(48)*V(7)*V(70) - A(49) = RCT(49)*V(36)*V(70) - A(50) = RCT(50)*V(24)*V(70) - A(51) = RCT(51)*V(8)*V(70) - A(52) = RCT(52)*V(17)*V(70) - A(53) = RCT(53)*V(10)*V(70) - A(54) = RCT(54)*V(11)*V(70) - A(55) = RCT(55)*V(31)*V(70) - A(56) = RCT(56)*V(38)*V(70) - A(57) = RCT(57)*V(63)*V(70) - A(58) = RCT(58)*V(12)*V(70) - A(59) = RCT(59)*V(13)*V(70) - A(60) = RCT(60)*V(25)*V(70) - A(61) = RCT(61)*V(58)*V(70) - A(62) = RCT(62)*V(65)*V(70) - A(63) = RCT(63)*V(49)*V(70) - A(64) = RCT(64)*V(42)*V(70) - A(65) = RCT(65)*V(57)*V(70) - A(66) = RCT(66)*V(45)*V(70) - A(67) = RCT(67)*V(22)*V(70) - A(68) = RCT(68)*V(54)*V(70) - A(69) = RCT(69)*V(21)*V(70) - A(70) = RCT(70)*V(28)*V(70) - A(71) = RCT(71)*V(70)*V(75) - A(72) = RCT(72)*V(39)*V(70) - A(73) = RCT(73)*V(68)*V(72) - A(74) = RCT(74)*V(28) - A(75) = RCT(75)*V(59)*V(72) - A(76) = RCT(76)*V(14) - A(77) = RCT(77)*V(67)*V(73) - A(78) = RCT(78)*V(73)*V(76) - A(79) = RCT(79)*V(46)*V(73) - A(80) = RCT(80)*V(47)*V(73) - A(81) = RCT(81)*V(50)*V(73) - A(82) = RCT(82)*V(51)*V(73) - A(83) = RCT(83)*V(48)*V(73) - A(84) = RCT(84)*V(68)*V(73) - A(85) = RCT(85)*V(59)*V(73) - A(86) = RCT(86)*V(53)*V(73) - A(87) = RCT(87)*V(43)*V(73) - A(88) = RCT(88)*V(66)*V(73) - A(89) = RCT(89)*V(64)*V(73) - A(90) = RCT(90)*V(56)*V(73) - A(91) = RCT(91)*V(58)*V(71) - A(92) = RCT(92)*V(65)*V(71) - A(93) = RCT(93)*V(42)*V(71) - A(94) = RCT(94)*V(57)*V(71) - A(95) = RCT(95)*V(45)*V(71) - A(96) = RCT(96)*V(25)*V(71) - A(97) = RCT(97)*V(31)*V(71) - A(98) = RCT(98)*V(38)*V(71) - A(99) = RCT(99)*V(63)*V(71) - A(100) = RCT(100)*V(39)*V(71) - A(101) = RCT(101)*V(31)*V(74) - A(102) = RCT(102)*V(38)*V(74) - A(103) = RCT(103)*V(63)*V(74) - A(104) = RCT(104)*V(39)*V(74) - A(105) = RCT(105)*V(67)*V(69) - A(106) = RCT(106)*V(66)*V(69) - A(107) = RCT(107)*V(69)*V(76) - A(108) = RCT(108)*V(46)*V(69) - A(109) = RCT(109)*V(47)*V(69) - A(110) = RCT(110)*V(50)*V(69) - A(111) = RCT(111)*V(51)*V(69) - A(112) = RCT(112)*V(48)*V(69) - A(113) = RCT(113)*V(64)*V(69) - A(114) = RCT(114)*V(68)*V(69) - A(115) = RCT(115)*V(53)*V(69) - A(116) = RCT(116)*V(43)*V(69) - A(117) = RCT(117)*V(59)*V(69) - A(118) = RCT(118)*V(56)*V(69) - A(119) = RCT(119)*V(67)*V(67) - A(120) = RCT(120)*V(66)*V(67) - A(121) = RCT(121)*V(67)*V(76) - A(122) = RCT(122)*V(46)*V(67) - A(123) = RCT(123)*V(47)*V(67) - A(124) = RCT(124)*V(50)*V(67) - A(125) = RCT(125)*V(51)*V(67) - A(126) = RCT(126)*V(48)*V(67) - A(127) = RCT(127)*V(64)*V(67) - A(128) = RCT(128)*V(67)*V(68) - A(129) = RCT(129)*V(53)*V(67) - A(130) = RCT(130)*V(43)*V(67) - A(131) = RCT(131)*V(59)*V(67) - A(132) = RCT(132)*V(66)*V(68) - A(133) = RCT(133)*V(68)*V(76) - A(134) = RCT(134)*V(46)*V(68) - A(135) = RCT(135)*V(47)*V(68) - A(136) = RCT(136)*V(50)*V(68) - A(137) = RCT(137)*V(51)*V(68) - A(138) = RCT(138)*V(48)*V(68) - A(139) = RCT(139)*V(64)*V(68) - A(140) = RCT(140)*V(68)*V(68) - A(141) = RCT(141)*V(53)*V(68) - A(142) = RCT(142)*V(43)*V(68) - A(143) = RCT(143)*V(59)*V(68) - A(144) = RCT(144)*V(52)*V(69) - A(145) = RCT(145)*V(52)*V(67) - A(146) = RCT(146)*V(52)*V(68) - A(147) = RCT(147)*V(52)*V(73) - A(148) = RCT(148)*V(41)*V(72) - A(149) = RCT(149)*V(41)*V(69) - A(150) = RCT(150)*V(41)*V(67) - A(151) = RCT(151)*V(41)*V(68) - A(152) = RCT(152)*V(56)*V(67) - A(153) = RCT(153)*V(56)*V(68) - A(154) = RCT(154)*V(56)*V(56) - A(155) = RCT(155)*V(35)*V(70) - A(156) = RCT(156)*V(35)*V(71) - A(157) = RCT(157)*V(35)*V(74) - A(158) = RCT(158)*V(60)*V(73) - A(159) = RCT(159)*V(60)*V(69) - A(160) = RCT(160)*V(60)*V(67) - A(161) = RCT(161)*V(60)*V(68) - A(162) = RCT(162)*V(60)*V(71) - A(163) = RCT(163)*V(37)*V(70) - A(164) = RCT(164)*V(37)*V(71) - A(165) = RCT(165)*V(37)*V(74) - A(166) = RCT(166)*V(62)*V(73) - A(167) = RCT(167)*V(62)*V(69) - A(168) = RCT(168)*V(62)*V(67) - A(169) = RCT(169)*V(62)*V(68) - A(170) = RCT(170)*V(62)*V(71) - A(171) = RCT(171)*V(32)*V(73) - A(172) = RCT(172)*V(32)*V(69) - A(173) = RCT(173)*V(32)*V(32) - A(174) = RCT(174)*V(9)*V(70) - A(175) = RCT(175)*V(33)*V(70) - A(176) = RCT(176)*V(44)*V(70) - A(177) = RCT(177)*V(44)*V(74) - A(178) = RCT(178)*V(55)*V(73) - A(179) = RCT(179)*V(55)*V(69) - A(180) = RCT(180)*V(55)*V(55) - A(181) = RCT(181)*V(55)*V(72) - A(182) = RCT(182)*V(23) - A(183) = RCT(183)*V(23)*V(70) - A(184) = RCT(184)*V(16)*V(70) - A(185) = RCT(185)*V(27)*V(70) - A(186) = RCT(186)*V(18)*V(70) - -! Aggregate function - Vdot(1) = 0 - Vdot(2) = A(48) - Vdot(3) = 0.4*A(101)+0.2*A(102)+0.06*A(103)+0.28*A(104)+0.01*A(165)+0.45*A(177) - Vdot(4) = 0.2*A(102)+0.29*A(103)+0.5*A(128)+0.5*A(131)+0.5*A(132)+0.5*A(133)+0.5*A(134)+0.5*A(135)+0.5*A(136)+0.5& - &*A(137)+0.5*A(138)+0.5*A(139)+0.5*A(153)+0.07*A(165) - Vdot(5) = A(15) - Vdot(6) = A(10) - Vdot(7) = -A(48) - Vdot(8) = -A(51) - Vdot(9) = A(172)-A(174) - Vdot(10) = -A(53) - Vdot(11) = -A(54) - Vdot(12) = -A(58) - Vdot(13) = -A(59) - Vdot(14) = A(75)-A(76) - Vdot(15) = -A(4)+A(35) - Vdot(16) = A(179)-A(184) - Vdot(17) = -A(52) - Vdot(18) = A(175)-A(186) - Vdot(19) = A(2)-A(24)-A(25)-A(26) - Vdot(20) = A(41)-A(42)-A(43) - Vdot(21) = -A(15)-A(69)+A(114) - Vdot(22) = -A(13)-A(67)+A(105) - Vdot(23) = A(181)-A(182)-A(183) - Vdot(24) = -A(50)+0.06*A(102)+0.09*A(103) - Vdot(25) = 0.25*A(58)+0.17*A(59)-A(60)-0.5*A(96) - Vdot(26) = -A(6)+A(31)-A(46) - Vdot(27) = A(175)+0.25*A(178)+A(180)+A(183)-A(185) - Vdot(28) = -A(70)+A(73)-A(74) - Vdot(29) = A(1)+A(3)+A(8)-A(22)-A(23)+A(24)+A(25) - Vdot(30) = -A(9)+A(32)+A(33)-A(34)+0.09*A(104)+0.02*A(157)+0.02*A(165) - Vdot(31) = -A(55)-A(97)-A(101) - Vdot(32) = A(72)-A(171)-A(172)-2*A(173) - Vdot(33) = A(100)+0.046*A(171)-A(175) - Vdot(34) = A(2)+A(3)+A(7)-A(22)+A(23)+A(27)+A(28)+2*A(29)-A(36)+A(39)+A(40)+A(46)+A(47) - Vdot(35) = -A(155)-A(156)-A(157) - Vdot(36) = A(10)+A(11)+A(12)+1.87*A(17)+1.55*A(18)+A(19)-A(49)+A(61)+2*A(64)+A(65)+0.95*A(85)+A(91)+2*A(93)+A(94)+0.42& - &*A(101)+0.33*A(102)+0.23*A(103)+0.14*A(104)+0.475*A(131)+0.95*A(143)+0.14*A(157)+0.14*A(165)+0.22*A(177)& - &+0.25*A(178)+0.5*A(180)+A(186) - Vdot(37) = -A(163)-A(164)-A(165) - Vdot(38) = -A(56)-A(98)-A(102)+0.46*A(165) - Vdot(39) = -A(72)-A(100)-A(104) - Vdot(40) = -A(5)+A(40)+2*A(43)+A(44)-A(45)+A(91)+A(92)+A(93)+A(94)+A(95)+A(96) - Vdot(41) = A(96)-A(148)-A(149)-A(150)-A(151) - Vdot(42) = -A(17)-A(18)-A(64)+0.89*A(85)+0.16*A(86)-A(93)+0.16*A(129)+0.445*A(131)+0.16*A(141)+0.89*A(143) - Vdot(43) = 0.83*A(59)-A(87)-A(116)-A(130)-A(142) - Vdot(44) = 0.65*A(104)+0.79*A(165)+0.4*A(166)+0.6*A(168)+0.6*A(169)+0.6*A(170)+A(171)+2*A(173)+A(174)-A(176)-A(177) - Vdot(45) = -A(20)-A(66)+0.7*A(86)+0.806*A(87)-A(95)+0.7*A(129)+0.806*A(130)+0.7*A(141)+0.806*A(142) - Vdot(46) = A(53)-A(79)-A(108)-A(122)-A(134) - Vdot(47) = A(54)-A(80)-A(109)-A(123)-A(135) - Vdot(48) = A(57)-A(83)-A(112)-A(126)-A(138) - Vdot(49) = -A(16)+0.8*A(21)+0.025*A(52)-A(63)+0.25*A(78)+0.69*A(79)+1.06*A(80)+0.1*A(83)+0.1*A(103)+0.26*A(121)+0.75& - &*A(122)+1.39*A(123)+0.55*A(126)+0.26*A(133)+0.75*A(134)+1.39*A(135)+0.55*A(138)+0.53*A(157)+0.8*A(158)& - &+A(160)+A(161)+A(162) - Vdot(50) = A(55)-A(81)-A(110)-A(124)-A(136) - Vdot(51) = A(56)-A(82)-A(111)-A(125)-A(137) - Vdot(52) = 0.25*A(53)+0.75*A(54)+0.9*A(60)+A(70)+2*A(85)+A(131)+2*A(143)-A(144)-A(145)-A(146)-A(147) - Vdot(53) = 0.75*A(58)-A(86)-A(115)-A(129)-A(141) - Vdot(54) = -A(14)-A(68)+A(106)+A(107)+A(108)+A(109)+A(110)+A(111)+A(112)+A(113)+A(115)+A(116)+A(117)+A(144)+A(149)& - &+A(159)+A(167) - Vdot(55) = 0.1*A(104)+A(176)-A(178)-A(179)-2*A(180)-A(181)+A(182)+A(184) - Vdot(56) = -A(90)+A(97)+A(98)+A(99)-A(118)-A(152)-A(153)-2*A(154)+A(156)+A(164) - Vdot(57) = -A(19)-A(65)+0.11*A(85)+0.17*A(86)+0.45*A(87)+A(89)-A(94)+0.75*A(127)+0.17*A(129)+0.45*A(130)+0.055*A(131)& - &+A(139)+0.17*A(141)+0.45*A(142)+0.11*A(143)+0.9*A(177)+0.5*A(178)+A(180)+A(185) - Vdot(58) = -A(10)-A(11)+A(13)+0.13*A(17)+0.45*A(18)+0.009*A(52)-A(61)+0.5*A(67)+A(70)+A(77)+0.09*A(78)+0.04*A(80)+1.6& - &*A(81)+A(82)+0.28*A(83)+A(90)-A(91)+A(101)+0.53*A(102)+0.18*A(103)+0.58*A(104)+1.5*A(119)+0.75*A(120)+0.84& - &*A(121)+0.77*A(122)+0.8*A(123)+1.55*A(124)+1.25*A(125)+0.89*A(126)+0.75*A(127)+A(128)+A(129)+A(130)+0.5& - &*A(131)+0.8*A(136)+0.5*A(137)+0.14*A(138)+A(145)+A(150)+1.75*A(152)+A(153)+2*A(154)+A(160)+0.04*A(165)+0.25& - &*A(166)+1.4*A(168)+0.4*A(169)+0.4*A(170)+A(171)+A(173)+0.75*A(178)+0.5*A(180)+A(186) - Vdot(59) = A(20)+0.9*A(60)+A(66)-A(75)+A(76)-A(85)+A(95)-A(117)-A(131)-A(143) - Vdot(60) = A(155)-A(158)-A(159)-A(160)-A(161)-A(162) - Vdot(61) = -A(26)+A(34)-A(43)+A(45)+A(46)+A(47)+A(50)+A(51)+A(52)+A(53)+A(54)+A(61)+A(62)+A(63)+A(64)+A(65)+A(66)& - &+A(69) - Vdot(62) = A(163)-A(166)-A(167)-A(168)-A(169)-A(170) - Vdot(63) = -A(57)-A(99)-A(103)+0.25*A(166)+0.4*A(168)+0.4*A(169)+0.4*A(170) - Vdot(64) = A(63)-A(89)-A(113)-A(127)-A(139)+0.42*A(157)+0.42*A(165) - Vdot(65) = -A(12)+A(14)+0.2*A(21)+0.075*A(52)-A(62)+0.5*A(68)+0.75*A(78)+0.38*A(79)+0.35*A(80)+0.2*A(81)+A(82)+1.45& - &*A(83)+A(88)+A(90)-A(92)+0.5*A(102)+0.72*A(103)+0.75*A(120)+0.77*A(121)+0.41*A(122)+0.46*A(123)+0.35*A(124)& - &+0.75*A(125)+0.725*A(126)+A(132)+0.77*A(133)+0.41*A(134)+0.46*A(135)+0.6*A(136)+A(137)+0.725*A(138)+A(152)& - &+A(153)+2*A(154)+0.65*A(157)+0.8*A(158)+A(160)+A(161)+A(162) - Vdot(66) = A(16)+A(51)-A(88)-A(106)-A(120)-A(132)+0.2*A(157)+0.16*A(165) - Vdot(67) = A(12)+A(15)+A(50)+0.5*A(67)-A(77)+A(84)+0.22*A(102)+0.31*A(103)+0.08*A(104)-A(105)-2*A(119)-A(120)-A(121)& - &-A(122)-A(123)-A(124)-A(125)-A(126)-A(127)-0.5*A(128)-A(129)-A(130)-A(131)+0.5*A(132)+0.5*A(133)+0.5*A(134)& - &+0.5*A(135)+0.5*A(136)+0.5*A(137)+0.5*A(138)+0.5*A(139)+2*A(140)+A(141)+A(142)+A(143)-A(145)+A(146)-A(150)& - &+A(151)-A(152)+0.5*A(153)-A(160)+A(161)-A(168)+A(169) - Vdot(68) = A(16)+A(19)+0.02*A(20)+A(62)+A(65)+A(69)-A(73)+A(74)-A(84)+0.05*A(85)+A(92)+A(94)+0.1*A(104)-A(114)-A(128)& - &+0.03*A(131)-A(132)-A(133)-A(134)-A(135)-A(136)-A(137)-A(138)-A(139)-2*A(140)-A(141)-A(142)-0.95*A(143)& - &-A(146)-A(151)-A(153)-A(161)-A(169)+0.1*A(177)+0.25*A(178) - Vdot(69) = A(6)+2*A(11)+A(12)+A(13)+A(14)+0.8*A(18)+A(19)+0.98*A(20)+A(21)+A(28)-A(29)-A(30)-A(31)-2*A(32)-2*A(33)& - &+A(34)-A(40)-A(47)+A(48)+A(49)+0.17*A(52)+0.25*A(58)+0.17*A(59)+0.1*A(60)+A(61)+A(64)+A(77)+0.964*A(78)+0.92& - &*A(79)+0.76*A(80)+A(81)+A(82)+A(83)+0.92*A(85)+A(86)+A(87)+A(88)+A(89)+A(91)+A(93)+0.12*A(101)+0.23*A(102)& - &+0.26*A(103)+0.25*A(104)-A(105)-A(106)-A(107)-A(108)-A(109)-A(110)-A(111)-A(112)-A(113)-A(114)-A(115)-A(116)& - &-A(117)-A(118)+A(119)+A(120)+A(121)+A(122)+A(123)+A(124)+A(125)+A(126)+A(127)+0.5*A(128)+2*A(129)+2*A(130)& - &+0.46*A(131)+0.5*A(132)+0.5*A(133)+0.5*A(134)+0.5*A(135)+0.5*A(136)+0.5*A(137)+0.5*A(138)+0.5*A(139)+A(141)& - &+A(142)+0.92*A(143)-A(144)+A(145)-A(149)+A(150)+0.5*A(152)+0.1*A(157)+0.8*A(158)-A(159)+2*A(160)+A(161)& - &+A(162)+0.1*A(165)+0.65*A(166)-A(167)+2*A(168)+A(169)+A(170)+A(171)-A(172)+A(173)+0.32*A(177)+0.75*A(178)& - &-A(179)+A(180)+A(185) - Vdot(70) = A(4)+A(5)+2*A(9)+A(13)+A(14)+A(15)+2*A(26)-A(28)+A(29)+A(30)-A(34)-A(35)-A(44)-A(45)-A(46)-A(47)-A(48)& - &-A(49)-A(50)-A(51)-A(52)-A(53)-A(54)-A(55)-A(56)-A(57)-A(58)-A(59)-1.9*A(60)-A(61)-A(62)-A(63)-A(64)-A(65)& - &-A(66)-0.5*A(67)-0.5*A(68)-A(69)-A(70)-A(71)-A(72)+0.1*A(102)+0.14*A(103)+0.25*A(104)-A(155)+0.85*A(157)& - &-A(163)+0.85*A(165)-A(175)-A(176)+0.19*A(177)-A(183)-A(184)-A(185)-A(186) - Vdot(71) = -A(7)-A(8)+A(37)-A(38)-A(39)-A(40)-A(41)+A(42)+A(45)+A(70)-A(91)-A(92)-A(93)-A(94)-A(95)-A(96)-A(97)-A(98)& - &-A(99)-A(100)-A(156)-A(162)-A(164)-A(170) - Vdot(72) = -A(1)+A(5)+A(6)+A(8)+A(21)-A(23)+A(27)+A(30)-A(31)+2*A(36)-A(37)+2*A(38)-A(41)+A(42)-A(44)+A(46)+A(71)& - &-A(73)+A(74)-A(75)+A(76)+A(77)+0.964*A(78)+0.92*A(79)+0.76*A(80)+A(81)+A(82)+A(83)+A(84)+A(85)+A(86)+A(87)& - &+A(88)+A(89)+2*A(90)+A(147)-A(148)+A(152)+A(153)+2*A(154)+0.8*A(158)+A(162)+0.65*A(166)+A(170)+A(171)+A(178)& - &-A(181)+A(182)+A(183)+A(186) - Vdot(73) = A(1)+A(4)+A(7)+A(23)-A(27)-A(30)-A(35)-2*A(36)-A(38)+A(39)-A(77)-A(78)-A(79)-A(80)-A(81)-A(82)-A(83)-A(84)& - &-A(85)-A(86)-A(87)-A(88)-A(89)-A(90)-A(147)-A(158)-A(166)-A(171)-A(178) - Vdot(74) = -A(2)-A(3)+A(22)-A(27)-A(28)-A(29)-A(37)-A(101)-A(102)-A(103)-A(104)-A(157)-A(165)-A(177) - Vdot(75) = -A(21)-A(71)+0.036*A(78)+0.08*A(79)+0.24*A(80)+A(118)+A(148)+0.2*A(158)+0.35*A(166) - Vdot(76) = 0.83*A(52)+0.5*A(68)+A(71)-A(78)-A(107)-A(121)-A(133) - -END SUBROUTINE Fun - -! End of Fun function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE RADMKA_Function - diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_Function.o b/boxmox/compiled_mechs/RADMKA/RADMKA_Function.o deleted file mode 100644 index 0c3d4c4e2a639cea983b268b3f0c6caba4363e75..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/RADMKA_Function.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_Global.f90 b/boxmox/compiled_mechs/RADMKA/RADMKA_Global.f90 deleted file mode 100644 index 304fcacdfce38d3add0cbf39ae5957da1fcd64e5..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADMKA/RADMKA_Global.f90 +++ /dev/null @@ -1,123 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Global Data Module File -! -! Generated by KPP-2.2.3 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 : RADMKA_Global.f90 -! Time : Thu Oct 8 08:22:34 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADMKA_16038_BOXMOX -! Equation file : RADMKA.kpp -! Output root filename : RADMKA -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RADMKA_Global - - USE RADMKA_Parameters, ONLY: dp, NSPEC, NVAR, NFIX, NREACT, LU_NONZERO - PUBLIC - SAVE - - -! Declaration of global variables - -! C - Concentration of all species - REAL(kind=dp) :: C(NSPEC) -! VAR - Concentrations of variable species (global) - REAL(kind=dp) :: VAR(NVAR) -! FIX - Concentrations of fixed species (global) - REAL(kind=dp) :: FIX(NFIX) -! VAR, FIX are chunks of array C - EQUIVALENCE( C(1),VAR(1) ) -! RCONST - Rate constants (global) - REAL(kind=dp) :: RCONST(NREACT) -! TIME - Current integration time - REAL(kind=dp) :: TIME -! SUN - Sunlight intensity between [0,1] - REAL(kind=dp) :: SUN -! TEMP - Temperature - REAL(kind=dp) :: TEMP -! RTOLS - (scalar) Relative tolerance - REAL(kind=dp) :: RTOLS -! TSTART - Integration start time - REAL(kind=dp) :: TSTART -! TEND - Integration end time - REAL(kind=dp) :: TEND -! DT - Integration step - REAL(kind=dp) :: DT -! ATOL - Absolute tolerance - REAL(kind=dp) :: ATOL(NVAR) -! RTOL - Relative tolerance - REAL(kind=dp) :: RTOL(NVAR) -! STEPMIN - Lower bound for integration step - REAL(kind=dp) :: STEPMIN -! STEPMAX - Upper bound for integration step - REAL(kind=dp) :: STEPMAX -! CFACTOR - Conversion factor for concentration units - REAL(kind=dp) :: CFACTOR - -! INLINED global variable declarations - - - ! BOXMOX global variables - - ! Parameters - INTEGER, PARAMETER :: max_species_boxmox = 10000 ! maximum number of species - ! read in - INTEGER, PARAMETER :: max_jhash_boxmox = 10000 ! maximum hash value of - ! photolysis rate labels - - ! Configuration - LOGICAL :: lverbose ! verbose output? - LOGICAL :: llibrary ! library version? - - - ! State definition - REAL(KIND=dp) :: pres ! pressure [Pa] - ! temperature variable temp [K] defined in KPP already - REAL(KIND=dp) :: dxdydz(3), dxdydz_old(3) ! box dimensions (x,y,z) - ! [m] - - ! Turbulent mixing - INTEGER :: iturb ! type of mixing - INTEGER, PARAMETER :: TURB_OPT_NONE = 0, & ! no turbulent mixing - TURB_OPT_SPECIFIED = 1, & ! using specified Kturb - TURB_OPT_VOLUME = 2, & ! using volume changes - TURB_OPT_TRACER = 3 ! using tracer conc. - REAL(KIND=dp) :: Kturb ! eddy diffusivity [m2 s-1] - - ! Photolysis rates - REAL(KIND=dp) :: jvalues(max_jhash_boxmox) ! Photolysis rate [s-1] - - ! Aerosol - REAL(KIND=dp) :: AER_R, & ! particle radius [m] - AER_SAD ! surface area density - ! [m^2 m^-3] - - ! Steady-state modeling - LOGICAL :: lfix_nox ! fix total NOx? - REAL(kind=dp) :: initial_total_nox ! total NOx to fix - - - ! global variables used by special rate constants of this mechanism - - ! air concentration (molecules/cm3) - REAL(KIND=dp) :: c_m - REAL(KIND=dp), ALLOCATABLE :: HET(:) - - -! INLINED global variable declarations - - -END MODULE RADMKA_Global - diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_Global.o b/boxmox/compiled_mechs/RADMKA/RADMKA_Global.o deleted file mode 100644 index bddb158bc43adc5b01b13916ff744a2baf8f03b8..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/RADMKA_Global.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_Initialize.f90 b/boxmox/compiled_mechs/RADMKA/RADMKA_Initialize.f90 deleted file mode 100644 index b76fca689177a091966637bdfe21b51ef0ca2c77..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADMKA/RADMKA_Initialize.f90 +++ /dev/null @@ -1,118 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Initialization File -! -! Generated by KPP-2.2.3 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 : RADMKA_Initialize.f90 -! Time : Thu Oct 8 08:22:34 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADMKA_16038_BOXMOX -! Equation file : RADMKA.kpp -! Output root filename : RADMKA -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RADMKA_Initialize - - USE RADMKA_Parameters, ONLY: dp, NVAR, NFIX - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Initialize - function to initialize concentrations -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Initialize ( ) - - - USE RADMKA_Global - - USE RADMKA_Util - - INTEGER :: i - REAL(kind=dp) :: x - - CFACTOR = 1.000000e+00_dp - - x = (1.0E-9)*CFACTOR - DO i = 1, NVAR - VAR(i) = x - END DO - - x = (1.0E-9)*CFACTOR - DO i = 1, NFIX - FIX(i) = x - END DO - -! constant rate coefficients -! END constant rate coefficients - -! INLINED initializations - - - IF (.NOT. llibrary) THEN - - ! Write version number to VERSION file - CALL writeVersion() - - ! Initialization (time step, run length, etc.) happening - ! in namelist BOXMOX.nml. Read it! - CALL readConfig() - - ENDIF - - ! Check configuration values - CALL checkConfig() - - - - ! BOXMOX defaults for global variables - - ! Environment.csv - temp = 293.15 ! K - pres = 101325.0 ! Pa - dxdydz(:) = 1.0 ! m - - ! Aerosol.csv - AER_SAD = 0.0 ! m^2 m^-3 - AER_R = 1.0e-6 ! m - - ! Turbulent mixing - Kturb = 0.0 ! m2 s-1 - - - - ! 1E-03 * (1.0/28.97) * 6.022e23 * air density - c_m = 2.078702e+19 * 1.25 - - ALLOCATE(HET(1)) - HET(:) = 0.0 - - -! End INLINED initializations - - -END SUBROUTINE Initialize - -! End of Initialize function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE RADMKA_Initialize - diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_Initialize.o b/boxmox/compiled_mechs/RADMKA/RADMKA_Initialize.o deleted file mode 100644 index 415b59a30d870ccab067c8fc6507dbcdf21a734a..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/RADMKA_Initialize.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_Integrator.f90 b/boxmox/compiled_mechs/RADMKA/RADMKA_Integrator.f90 deleted file mode 100644 index 2cd6782def3e2690f680913ea573be0d19009ea5..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADMKA/RADMKA_Integrator.f90 +++ /dev/null @@ -1,1365 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Numerical Integrator (Time-Stepping) File -! -! Generated by KPP-2.2.3 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 : RADMKA_Integrator.f90 -! Time : Thu Oct 8 08:22:34 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADMKA_16038_BOXMOX -! Equation file : RADMKA.kpp -! Output root filename : RADMKA -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! INTEGRATE - Integrator routine -! Arguments : -! TIN - Start Time for Integration -! TOUT - End Time for Integration -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! -! Rosenbrock - Implementation of several Rosenbrock methods: ! -! * Ros2 ! -! * Ros3 ! -! * Ros4 ! -! * Rodas3 ! -! * Rodas4 ! -! By default the code employs the KPP sparse linear algebra routines ! -! Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK) ! -! ! -! (C) Adrian Sandu, August 2004 ! -! Virginia Polytechnic Institute and State University ! -! Contact: sandu@cs.vt.edu ! -! Revised by Philipp Miehe and Adrian Sandu, May 2006 ! ! -! This implementation is part of KPP - the Kinetic PreProcessor ! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! - -MODULE RADMKA_Integrator - - USE RADMKA_Parameters, ONLY: NVAR, NFIX, NSPEC, LU_NONZERO - USE RADMKA_Global - IMPLICIT NONE - PUBLIC - SAVE - -!~~~> Statistics on the work performed by the Rosenbrock method - INTEGER, PARAMETER :: Nfun=1, Njac=2, Nstp=3, Nacc=4, & - Nrej=5, Ndec=6, Nsol=7, Nsng=8, & - Ntexit=1, Nhexit=2, Nhnew = 3 - -CONTAINS - -SUBROUTINE INTEGRATE( TIN, TOUT, & - ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U, IERR_U ) - - IMPLICIT NONE - - REAL(kind=dp), INTENT(IN) :: TIN ! Start Time - REAL(kind=dp), INTENT(IN) :: TOUT ! End Time - ! Optional input parameters and statistics - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - REAL(kind=dp), INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - REAL(kind=dp), INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: IERR_U - - REAL(kind=dp) :: RCNTRL(20), RSTATUS(20) - INTEGER :: ICNTRL(20), ISTATUS(20), IERR - - INTEGER, SAVE :: Ntotal = 0 - - ICNTRL(:) = 0 - RCNTRL(:) = 0.0_dp - ISTATUS(:) = 0 - RSTATUS(:) = 0.0_dp - - !~~~> fine-tune the integrator: - ICNTRL(1) = 0 ! 0 - non-autonomous, 1 - autonomous - ICNTRL(2) = 0 ! 0 - vector tolerances, 1 - scalars - - ! If optional parameters are given, and if they are >0, - ! then they overwrite default settings. - IF (PRESENT(ICNTRL_U)) THEN - WHERE(ICNTRL_U(:) > 0) ICNTRL(:) = ICNTRL_U(:) - END IF - IF (PRESENT(RCNTRL_U)) THEN - WHERE(RCNTRL_U(:) > 0) RCNTRL(:) = RCNTRL_U(:) - END IF - - - CALL Rosenbrock(NVAR,VAR,TIN,TOUT, & - ATOL,RTOL, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) - - !~~~> Debug option: show no of steps - ! Ntotal = Ntotal + ISTATUS(Nstp) - ! PRINT*,'NSTEPS=',ISTATUS(Nstp),' (',Ntotal,')',' O3=', VAR(ind_O3) - - STEPMIN = RSTATUS(Nhexit) - ! if optional parameters are given for output they - ! are updated with the return information - IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(:) - IF (PRESENT(RSTATUS_U)) RSTATUS_U(:) = RSTATUS(:) - IF (PRESENT(IERR_U)) IERR_U = IERR - -END SUBROUTINE INTEGRATE - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE Rosenbrock(N,Y,Tstart,Tend, & - AbsTol,RelTol, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Solves the system y'=F(t,y) using a Rosenbrock method defined by: -! -! G = 1/(H*gamma(1)) - Jac(t0,Y0) -! T_i = t0 + Alpha(i)*H -! Y_i = Y0 + \sum_{j=1}^{i-1} A(i,j)*K_j -! G * K_i = Fun( T_i, Y_i ) + \sum_{j=1}^S C(i,j)/H * K_j + -! gamma(i)*dF/dT(t0, Y0) -! Y1 = Y0 + \sum_{j=1}^S M(j)*K_j -! -! For details on Rosenbrock methods and their implementation consult: -! E. Hairer and G. Wanner -! "Solving ODEs II. Stiff and differential-algebraic problems". -! Springer series in computational mathematics, Springer-Verlag, 1996. -! The codes contained in the book inspired this implementation. -! -! (C) Adrian Sandu, August 2004 -! Virginia Polytechnic Institute and State University -! Contact: sandu@cs.vt.edu -! Revised by Philipp Miehe and Adrian Sandu, May 2006 -! This implementation is part of KPP - the Kinetic PreProcessor -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT ARGUMENTS: -! -!- Y(N) = vector of initial conditions (at T=Tstart) -!- [Tstart,Tend] = time range of integration -! (if Tstart>Tend the integration is performed backwards in time) -!- RelTol, AbsTol = user precribed accuracy -!- SUBROUTINE Fun( T, Y, Ydot ) = ODE function, -! returns Ydot = Y' = F(T,Y) -!- SUBROUTINE Jac( T, Y, Jcb ) = Jacobian of the ODE function, -! returns Jcb = dFun/dY -!- ICNTRL(1:20) = integer inputs parameters -!- RCNTRL(1:20) = real inputs parameters -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT ARGUMENTS: -! -!- Y(N) -> vector of final states (at T->Tend) -!- ISTATUS(1:20) -> integer output parameters -!- RSTATUS(1:20) -> real output parameters -!- IERR -> job status upon return -! success (positive value) or -! failure (negative value) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT PARAMETERS: -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -! ICNTRL(1) = 1: F = F(y) Independent of T (AUTONOMOUS) -! = 0: F = F(t,y) Depends on T (NON-AUTONOMOUS) -! -! ICNTRL(2) = 0: AbsTol, RelTol are N-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ICNTRL(3) -> selection of a particular Rosenbrock method -! = 0 : Rodas3 (default) -! = 1 : Ros2 -! = 2 : Ros3 -! = 3 : Ros4 -! = 4 : Rodas3 -! = 5 : Rodas4 -! -! ICNTRL(4) -> maximum number of integration steps -! For ICNTRL(4)=0) the default value of 100000 is used -! -! RCNTRL(1) -> Hmin, lower bound for the integration step size -! It is strongly recommended to keep Hmin = ZERO -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! RCNTRL(3) -> Hstart, starting value for the integration step size -! -! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! RCNTRL(5) -> FacMax, upper bound on step increase factor (default=6) -! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! -! OUTPUT ARGUMENTS: -! ----------------- -! -! T -> T value for which the solution has been computed -! (after successful return T=Tend). -! -! Y(N) -> Numerical solution at T -! -! IDID -> Reports on successfulness upon return: -! = 1 for success -! < 0 for error (value equals error code) -! -! ISTATUS(1) -> No. of function calls -! ISTATUS(2) -> No. of jacobian calls -! ISTATUS(3) -> No. of steps -! ISTATUS(4) -> No. of accepted steps -! ISTATUS(5) -> No. of rejected steps (except at very beginning) -! ISTATUS(6) -> No. of LU decompositions -! ISTATUS(7) -> No. of forward/backward substitutions -! ISTATUS(8) -> No. of singular matrix decompositions -! -! RSTATUS(1) -> Texit, the time corresponding to the -! computed Y upon return -! RSTATUS(2) -> Hexit, last accepted step before exit -! RSTATUS(3) -> Hnew, last predicted step (not yet taken) -! For multiple restarts, use Hnew as Hstart -! in the subsequent run -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RADMKA_Parameters - USE RADMKA_LinearAlgebra - IMPLICIT NONE - -!~~~> Arguments - INTEGER, INTENT(IN) :: N - REAL(kind=dp), INTENT(INOUT) :: Y(N) - REAL(kind=dp), INTENT(IN) :: Tstart,Tend - REAL(kind=dp), INTENT(IN) :: AbsTol(N),RelTol(N) - INTEGER, INTENT(IN) :: ICNTRL(20) - REAL(kind=dp), INTENT(IN) :: RCNTRL(20) - INTEGER, INTENT(INOUT) :: ISTATUS(20) - REAL(kind=dp), INTENT(INOUT) :: RSTATUS(20) - INTEGER, INTENT(OUT) :: IERR -!~~~> Parameters of the Rosenbrock method, up to 6 stages - INTEGER :: ros_S, rosMethod - INTEGER, PARAMETER :: RS2=1, RS3=2, RS4=3, RD3=4, RD4=5, RG3=6 - REAL(kind=dp) :: ros_A(15), ros_C(15), ros_M(6), ros_E(6), & - ros_Alpha(6), ros_Gamma(6), ros_ELO - LOGICAL :: ros_NewF(6) - CHARACTER(LEN=12) :: ros_Name -!~~~> Local variables - REAL(kind=dp) :: Roundoff, FacMin, FacMax, FacRej, FacSafe - REAL(kind=dp) :: Hmin, Hmax, Hstart - REAL(kind=dp) :: Texit - INTEGER :: i, UplimTol, Max_no_steps - LOGICAL :: Autonomous, VectorTol -!~~~> Parameters - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp - REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp - -!~~~> Initialize statistics - ISTATUS(1:8) = 0 - RSTATUS(1:3) = ZERO - -!~~~> Autonomous or time dependent ODE. Default is time dependent. - Autonomous = .NOT.(ICNTRL(1) == 0) - -!~~~> For Scalar tolerances (ICNTRL(2).NE.0) the code uses AbsTol(1) and RelTol(1) -! For Vector tolerances (ICNTRL(2) == 0) the code uses AbsTol(1:N) and RelTol(1:N) - IF (ICNTRL(2) == 0) THEN - VectorTol = .TRUE. - UplimTol = N - ELSE - VectorTol = .FALSE. - UplimTol = 1 - END IF - -!~~~> Initialize the particular Rosenbrock method selected - SELECT CASE (ICNTRL(3)) - CASE (1) - CALL Ros2 - CASE (2) - CALL Ros3 - CASE (3) - CALL Ros4 - CASE (0,4) - CALL Rodas3 - CASE (5) - CALL Rodas4 - CASE (6) - CALL Rang3 - CASE DEFAULT - PRINT * , 'Unknown Rosenbrock method: ICNTRL(3)=',ICNTRL(3) - CALL ros_ErrorMsg(-2,Tstart,ZERO,IERR) - RETURN - END SELECT - -!~~~> The maximum number of steps admitted - IF (ICNTRL(4) == 0) THEN - Max_no_steps = 200000 - ELSEIF (ICNTRL(4) > 0) THEN - Max_no_steps=ICNTRL(4) - ELSE - PRINT * ,'User-selected max no. of steps: ICNTRL(4)=',ICNTRL(4) - CALL ros_ErrorMsg(-1,Tstart,ZERO,IERR) - RETURN - END IF - -!~~~> Unit roundoff (1+Roundoff>1) - Roundoff = WLAMCH('E') - -!~~~> Lower bound on the step size: (positive value) - IF (RCNTRL(1) == ZERO) THEN - Hmin = ZERO - ELSEIF (RCNTRL(1) > ZERO) THEN - Hmin = RCNTRL(1) - ELSE - PRINT * , 'User-selected Hmin: RCNTRL(1)=', RCNTRL(1) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Upper bound on the step size: (positive value) - IF (RCNTRL(2) == ZERO) THEN - Hmax = ABS(Tend-Tstart) - ELSEIF (RCNTRL(2) > ZERO) THEN - Hmax = MIN(ABS(RCNTRL(2)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hmax: RCNTRL(2)=', RCNTRL(2) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Starting step size: (positive value) - IF (RCNTRL(3) == ZERO) THEN - Hstart = MAX(Hmin,DeltaMin) - ELSEIF (RCNTRL(3) > ZERO) THEN - Hstart = MIN(ABS(RCNTRL(3)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hstart: RCNTRL(3)=', RCNTRL(3) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Step size can be changed s.t. FacMin < Hnew/Hold < FacMax - IF (RCNTRL(4) == ZERO) THEN - FacMin = 0.2_dp - ELSEIF (RCNTRL(4) > ZERO) THEN - FacMin = RCNTRL(4) - ELSE - PRINT * , 'User-selected FacMin: RCNTRL(4)=', RCNTRL(4) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF - IF (RCNTRL(5) == ZERO) THEN - FacMax = 6.0_dp - ELSEIF (RCNTRL(5) > ZERO) THEN - FacMax = RCNTRL(5) - ELSE - PRINT * , 'User-selected FacMax: RCNTRL(5)=', RCNTRL(5) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacRej: Factor to decrease step after 2 succesive rejections - IF (RCNTRL(6) == ZERO) THEN - FacRej = 0.1_dp - ELSEIF (RCNTRL(6) > ZERO) THEN - FacRej = RCNTRL(6) - ELSE - PRINT * , 'User-selected FacRej: RCNTRL(6)=', RCNTRL(6) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacSafe: Safety Factor in the computation of new step size - IF (RCNTRL(7) == ZERO) THEN - FacSafe = 0.9_dp - ELSEIF (RCNTRL(7) > ZERO) THEN - FacSafe = RCNTRL(7) - ELSE - PRINT * , 'User-selected FacSafe: RCNTRL(7)=', RCNTRL(7) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Check if tolerances are reasonable - DO i=1,UplimTol - IF ( (AbsTol(i) <= ZERO) .OR. (RelTol(i) <= 10.0_dp*Roundoff) & - .OR. (RelTol(i) >= 1.0_dp) ) THEN - PRINT * , ' AbsTol(',i,') = ',AbsTol(i) - PRINT * , ' RelTol(',i,') = ',RelTol(i) - CALL ros_ErrorMsg(-5,Tstart,ZERO,IERR) - RETURN - END IF - END DO - - -!~~~> CALL Rosenbrock method - CALL ros_Integrator(Y, Tstart, Tend, Texit, & - AbsTol, RelTol, & -! Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -! Error indicator - IERR) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -CONTAINS ! SUBROUTINES internal to Rosenbrock -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_ErrorMsg(Code,T,H,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - REAL(kind=dp), INTENT(IN) :: T, H - INTEGER, INTENT(IN) :: Code - INTEGER, INTENT(OUT) :: IERR - - IERR = Code - PRINT * , & - 'Forced exit from Rosenbrock due to the following error:' - - SELECT CASE (Code) - CASE (-1) - PRINT * , '--> Improper value for maximal no of steps' - CASE (-2) - PRINT * , '--> Selected Rosenbrock method not implemented' - CASE (-3) - PRINT * , '--> Hmin/Hmax/Hstart must be positive' - CASE (-4) - PRINT * , '--> FacMin/FacMax/FacRej must be positive' - CASE (-5) - PRINT * , '--> Improper tolerance values' - CASE (-6) - PRINT * , '--> No of steps exceeds maximum bound' - CASE (-7) - PRINT * , '--> Step size too small: T + 10*H = T', & - ' or H < Roundoff' - CASE (-8) - PRINT * , '--> Matrix is repeatedly singular' - CASE DEFAULT - PRINT *, 'Unknown Error code: ', Code - END SELECT - - PRINT *, "T=", T, "and H=", H - - END SUBROUTINE ros_ErrorMsg - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Integrator (Y, Tstart, Tend, T, & - AbsTol, RelTol, & -!~~~> Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -!~~~> Error indicator - IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the implementation of a generic Rosenbrock method -! defined by ros_S (no of stages) -! and its coefficients ros_{A,C,M,E,Alpha,Gamma} -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - -!~~~> Input: the initial condition at Tstart; Output: the solution at T - REAL(kind=dp), INTENT(INOUT) :: Y(N) -!~~~> Input: integration interval - REAL(kind=dp), INTENT(IN) :: Tstart,Tend -!~~~> Output: time at which the solution is returned (T=Tend if success) - REAL(kind=dp), INTENT(OUT) :: T -!~~~> Input: tolerances - REAL(kind=dp), INTENT(IN) :: AbsTol(N), RelTol(N) -!~~~> Input: integration parameters - LOGICAL, INTENT(IN) :: Autonomous, VectorTol - REAL(kind=dp), INTENT(IN) :: Hstart, Hmin, Hmax - INTEGER, INTENT(IN) :: Max_no_steps - REAL(kind=dp), INTENT(IN) :: Roundoff, FacMin, FacMax, FacRej, FacSafe -!~~~> Output: Error indicator - INTEGER, INTENT(OUT) :: IERR -! ~~~~ Local variables - REAL(kind=dp) :: Ynew(N), Fcn0(N), Fcn(N) - REAL(kind=dp) :: K(N*ros_S), dFdT(N) -#ifdef FULL_ALGEBRA - REAL(kind=dp) :: Jac0(N,N), Ghimj(N,N) -#else - REAL(kind=dp) :: Jac0(LU_NONZERO), Ghimj(LU_NONZERO) -#endif - REAL(kind=dp) :: H, Hnew, HC, HG, Fac, Tau - REAL(kind=dp) :: Err, Yerr(N) - INTEGER :: Pivot(N), Direction, ioffset, j, istage - LOGICAL :: RejectLastH, RejectMoreH, Singular -!~~~> Local parameters - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp - REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp -!~~~> Locally called functions -! REAL(kind=dp) WLAMCH -! EXTERNAL WLAMCH -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~> Initial preparations - T = Tstart - RSTATUS(Nhexit) = ZERO - H = MIN( MAX(ABS(Hmin),ABS(Hstart)) , ABS(Hmax) ) - IF (ABS(H) <= 10.0_dp*Roundoff) H = DeltaMin - - IF (Tend >= Tstart) THEN - Direction = +1 - ELSE - Direction = -1 - END IF - H = Direction*H - - RejectLastH=.FALSE. - RejectMoreH=.FALSE. - -!~~~> Time loop begins below - -TimeLoop: DO WHILE ( (Direction > 0).AND.((T-Tend)+Roundoff <= ZERO) & - .OR. (Direction < 0).AND.((Tend-T)+Roundoff <= ZERO) ) - - IF ( ISTATUS(Nstp) > Max_no_steps ) THEN ! Too many steps - CALL ros_ErrorMsg(-6,T,H,IERR) - RETURN - END IF - IF ( ((T+0.1_dp*H) == T).OR.(H <= Roundoff) ) THEN ! Step size too small - CALL ros_ErrorMsg(-7,T,H,IERR) - RETURN - END IF - -!~~~> Limit H if necessary to avoid going beyond Tend - H = MIN(H,ABS(Tend-T)) - -!~~~> Compute the function at current time - CALL FunTemplate(T,Y,Fcn0) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - -!~~~> Compute the function derivative with respect to T - IF (.NOT.Autonomous) THEN - CALL ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) - END IF - -!~~~> Compute the Jacobian at current time - CALL JacTemplate(T,Y,Jac0) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - -!~~~> Repeat step calculation until current step accepted -UntilAccepted: DO - - CALL ros_PrepareMatrix(H,Direction,ros_Gamma(1), & - Jac0,Ghimj,Pivot,Singular) - IF (Singular) THEN ! More than 5 consecutive failed decompositions - CALL ros_ErrorMsg(-8,T,H,IERR) - RETURN - END IF - -!~~~> Compute the stages -Stage: DO istage = 1, ros_S - - ! Current istage offset. Current istage vector is K(ioffset+1:ioffset+N) - ioffset = N*(istage-1) - - ! For the 1st istage the function has been computed previously - IF ( istage == 1 ) THEN - !slim: CALL WCOPY(N,Fcn0,1,Fcn,1) - Fcn(1:N) = Fcn0(1:N) - ! istage>1 and a new function evaluation is needed at the current istage - ELSEIF ( ros_NewF(istage) ) THEN - !slim: CALL WCOPY(N,Y,1,Ynew,1) - Ynew(1:N) = Y(1:N) - DO j = 1, istage-1 - CALL WAXPY(N,ros_A((istage-1)*(istage-2)/2+j), & - K(N*(j-1)+1),1,Ynew,1) - END DO - Tau = T + ros_Alpha(istage)*Direction*H - CALL FunTemplate(Tau,Ynew,Fcn) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - END IF ! if istage == 1 elseif ros_NewF(istage) - !slim: CALL WCOPY(N,Fcn,1,K(ioffset+1),1) - K(ioffset+1:ioffset+N) = Fcn(1:N) - DO j = 1, istage-1 - HC = ros_C((istage-1)*(istage-2)/2+j)/(Direction*H) - CALL WAXPY(N,HC,K(N*(j-1)+1),1,K(ioffset+1),1) - END DO - IF ((.NOT. Autonomous).AND.(ros_Gamma(istage).NE.ZERO)) THEN - HG = Direction*H*ros_Gamma(istage) - CALL WAXPY(N,HG,dFdT,1,K(ioffset+1),1) - END IF - CALL ros_Solve(Ghimj, Pivot, K(ioffset+1)) - - END DO Stage - - -!~~~> Compute the new solution - !slim: CALL WCOPY(N,Y,1,Ynew,1) - Ynew(1:N) = Y(1:N) - DO j=1,ros_S - CALL WAXPY(N,ros_M(j),K(N*(j-1)+1),1,Ynew,1) - END DO - -!~~~> Compute the error estimation - !slim: CALL WSCAL(N,ZERO,Yerr,1) - Yerr(1:N) = ZERO - DO j=1,ros_S - CALL WAXPY(N,ros_E(j),K(N*(j-1)+1),1,Yerr,1) - END DO - Err = ros_ErrorNorm ( Y, Ynew, Yerr, AbsTol, RelTol, VectorTol ) - -!~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax - Fac = MIN(FacMax,MAX(FacMin,FacSafe/Err**(ONE/ros_ELO))) - Hnew = H*Fac - -!~~~> Check the error magnitude and adjust step size - ISTATUS(Nstp) = ISTATUS(Nstp) + 1 - IF ( (Err <= ONE).OR.(H <= Hmin) ) THEN !~~~> Accept step - ISTATUS(Nacc) = ISTATUS(Nacc) + 1 - !slim: CALL WCOPY(N,Ynew,1,Y,1) - Y(1:N) = Ynew(1:N) - T = T + Direction*H - Hnew = MAX(Hmin,MIN(Hnew,Hmax)) - IF (RejectLastH) THEN ! No step size increase after a rejected step - Hnew = MIN(Hnew,H) - END IF - RSTATUS(Nhexit) = H - RSTATUS(Nhnew) = Hnew - RSTATUS(Ntexit) = T - RejectLastH = .FALSE. - RejectMoreH = .FALSE. - H = Hnew - EXIT UntilAccepted ! EXIT THE LOOP: WHILE STEP NOT ACCEPTED - ELSE !~~~> Reject step - IF (RejectMoreH) THEN - Hnew = H*FacRej - END IF - RejectMoreH = RejectLastH - RejectLastH = .TRUE. - H = Hnew - IF (ISTATUS(Nacc) >= 1) ISTATUS(Nrej) = ISTATUS(Nrej) + 1 - END IF ! Err <= 1 - - END DO UntilAccepted - - END DO TimeLoop - -!~~~> Succesful exit - IERR = 1 !~~~> The integration was successful - - END SUBROUTINE ros_Integrator - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - REAL(kind=dp) FUNCTION ros_ErrorNorm ( Y, Ynew, Yerr, & - AbsTol, RelTol, VectorTol ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Computes the "scaled norm" of the error vector Yerr -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -! Input arguments - REAL(kind=dp), INTENT(IN) :: Y(N), Ynew(N), & - Yerr(N), AbsTol(N), RelTol(N) - LOGICAL, INTENT(IN) :: VectorTol -! Local variables - REAL(kind=dp) :: Err, Scale, Ymax - INTEGER :: i - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp - - Err = ZERO - DO i=1,N - Ymax = MAX(ABS(Y(i)),ABS(Ynew(i))) - IF (VectorTol) THEN - Scale = AbsTol(i)+RelTol(i)*Ymax - ELSE - Scale = AbsTol(1)+RelTol(1)*Ymax - END IF - Err = Err+(Yerr(i)/Scale)**2 - END DO - Err = SQRT(Err/N) - - ros_ErrorNorm = MAX(Err,1.0d-10) - - END FUNCTION ros_ErrorNorm - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> The time partial derivative of the function by finite differences -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -!~~~> Input arguments - REAL(kind=dp), INTENT(IN) :: T, Roundoff, Y(N), Fcn0(N) -!~~~> Output arguments - REAL(kind=dp), INTENT(OUT) :: dFdT(N) -!~~~> Local variables - REAL(kind=dp) :: Delta - REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, DeltaMin = 1.0E-6_dp - - Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T)) - CALL FunTemplate(T+Delta,Y,dFdT) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - CALL WAXPY(N,(-ONE),Fcn0,1,dFdT,1) - CALL WSCAL(N,(ONE/Delta),dFdT,1) - - END SUBROUTINE ros_FunTimeDerivative - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_PrepareMatrix ( H, Direction, gam, & - Jac0, Ghimj, Pivot, Singular ) -! --- --- --- --- --- --- --- --- --- --- --- --- --- -! Prepares the LHS matrix for stage calculations -! 1. Construct Ghimj = 1/(H*ham) - Jac0 -! "(Gamma H) Inverse Minus Jacobian" -! 2. Repeat LU decomposition of Ghimj until successful. -! -half the step size if LU decomposition fails and retry -! -exit after 5 consecutive fails -! --- --- --- --- --- --- --- --- --- --- --- --- --- - IMPLICIT NONE - -!~~~> Input arguments -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(IN) :: Jac0(N,N) -#else - REAL(kind=dp), INTENT(IN) :: Jac0(LU_NONZERO) -#endif - REAL(kind=dp), INTENT(IN) :: gam - INTEGER, INTENT(IN) :: Direction -!~~~> Output arguments -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(OUT) :: Ghimj(N,N) -#else - REAL(kind=dp), INTENT(OUT) :: Ghimj(LU_NONZERO) -#endif - LOGICAL, INTENT(OUT) :: Singular - INTEGER, INTENT(OUT) :: Pivot(N) -!~~~> Inout arguments - REAL(kind=dp), INTENT(INOUT) :: H ! step size is decreased when LU fails -!~~~> Local variables - INTEGER :: i, ISING, Nconsecutive - REAL(kind=dp) :: ghinv - REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, HALF = 0.5_dp - - Nconsecutive = 0 - Singular = .TRUE. - - DO WHILE (Singular) - -!~~~> Construct Ghimj = 1/(H*gam) - Jac0 -#ifdef FULL_ALGEBRA - !slim: CALL WCOPY(N*N,Jac0,1,Ghimj,1) - !slim: CALL WSCAL(N*N,(-ONE),Ghimj,1) - Ghimj = -Jac0 - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(i,i) = Ghimj(i,i)+ghinv - END DO -#else - !slim: CALL WCOPY(LU_NONZERO,Jac0,1,Ghimj,1) - !slim: CALL WSCAL(LU_NONZERO,(-ONE),Ghimj,1) - Ghimj(1:LU_NONZERO) = -Jac0(1:LU_NONZERO) - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(LU_DIAG(i)) = Ghimj(LU_DIAG(i))+ghinv - END DO -#endif -!~~~> Compute LU decomposition - CALL ros_Decomp( Ghimj, Pivot, ISING ) - IF (ISING == 0) THEN -!~~~> If successful done - Singular = .FALSE. - ELSE ! ISING .ne. 0 -!~~~> If unsuccessful half the step size; if 5 consecutive fails then return - ISTATUS(Nsng) = ISTATUS(Nsng) + 1 - Nconsecutive = Nconsecutive+1 - Singular = .TRUE. - PRINT*,'Warning: LU Decomposition returned ISING = ',ISING - IF (Nconsecutive <= 5) THEN ! Less than 5 consecutive failed decompositions - H = H*HALF - ELSE ! More than 5 consecutive failed decompositions - RETURN - END IF ! Nconsecutive - END IF ! ISING - - END DO ! WHILE Singular - - END SUBROUTINE ros_PrepareMatrix - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Decomp( A, Pivot, ISING ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the LU decomposition -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Inout variables -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(INOUT) :: A(N,N) -#else - REAL(kind=dp), INTENT(INOUT) :: A(LU_NONZERO) -#endif -!~~~> Output variables - INTEGER, INTENT(OUT) :: Pivot(N), ISING - -#ifdef FULL_ALGEBRA - CALL DGETRF( N, N, A, N, Pivot, ISING ) -#else - CALL KppDecomp ( A, ISING ) - Pivot(1) = 1 -#endif - ISTATUS(Ndec) = ISTATUS(Ndec) + 1 - - END SUBROUTINE ros_Decomp - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Solve( A, Pivot, b ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the forward/backward substitution (using pre-computed LU decomposition) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Input variables -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(IN) :: A(N,N) - INTEGER :: ISING -#else - REAL(kind=dp), INTENT(IN) :: A(LU_NONZERO) -#endif - INTEGER, INTENT(IN) :: Pivot(N) -!~~~> InOut variables - REAL(kind=dp), INTENT(INOUT) :: b(N) - -#ifdef FULL_ALGEBRA - CALL DGETRS( 'N', N , 1, A, N, Pivot, b, N, ISING ) - IF ( Info < 0 ) THEN - PRINT*,"Error in DGETRS. ISING=",ISING - END IF -#else - CALL KppSolve( A, b ) -#endif - - ISTATUS(Nsol) = ISTATUS(Nsol) + 1 - - END SUBROUTINE ros_Solve - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 2 stages, order 2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - DOUBLE PRECISION g - - g = 1.0_dp + 1.0_dp/SQRT(2.0_dp) - rosMethod = RS2 -!~~~> Name of the method - ros_Name = 'ROS-2' -!~~~> Number of stages - ros_S = 2 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = (1.0_dp)/g - ros_C(1) = (-2.0_dp)/g -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1)= (3.0_dp)/(2.0_dp*g) - ros_M(2)= (1.0_dp)/(2.0_dp*g) -! E_i = Coefficients for error estimator - ros_E(1) = 1.0_dp/(2.0_dp*g) - ros_E(2) = 1.0_dp/(2.0_dp*g) -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus one - ros_ELO = 2.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 1.0_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = g - ros_Gamma(2) =-g - - END SUBROUTINE Ros2 - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 3 stages, order 3, 2 function evaluations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - rosMethod = RS3 -!~~~> Name of the method - ros_Name = 'ROS-3' -!~~~> Number of stages - ros_S = 3 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1)= 1.0_dp - ros_A(2)= 1.0_dp - ros_A(3)= 0.0_dp - - ros_C(1) = -0.10156171083877702091975600115545E+01_dp - ros_C(2) = 0.40759956452537699824805835358067E+01_dp - ros_C(3) = 0.92076794298330791242156818474003E+01_dp -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.1E+01_dp - ros_M(2) = 0.61697947043828245592553615689730E+01_dp - ros_M(3) = -0.42772256543218573326238373806514_dp -! E_i = Coefficients for error estimator - ros_E(1) = 0.5_dp - ros_E(2) = -0.29079558716805469821718236208017E+01_dp - ros_E(3) = 0.22354069897811569627360909276199_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1)= 0.0_dp - ros_Alpha(2)= 0.43586652150845899941601945119356_dp - ros_Alpha(3)= 0.43586652150845899941601945119356_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1)= 0.43586652150845899941601945119356_dp - ros_Gamma(2)= 0.24291996454816804366592249683314_dp - ros_Gamma(3)= 0.21851380027664058511513169485832E+01_dp - - END SUBROUTINE Ros3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! L-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 4 STAGES -! L-STABLE EMBEDDED ROSENBROCK METHOD OF ORDER 3 -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1990) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RS4 -!~~~> Name of the method - ros_Name = 'ROS-4' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.2000000000000000E+01_dp - ros_A(2) = 0.1867943637803922E+01_dp - ros_A(3) = 0.2344449711399156_dp - ros_A(4) = ros_A(2) - ros_A(5) = ros_A(3) - ros_A(6) = 0.0_dp - - ros_C(1) =-0.7137615036412310E+01_dp - ros_C(2) = 0.2580708087951457E+01_dp - ros_C(3) = 0.6515950076447975_dp - ros_C(4) =-0.2137148994382534E+01_dp - ros_C(5) =-0.3214669691237626_dp - ros_C(6) =-0.6949742501781779_dp -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.2255570073418735E+01_dp - ros_M(2) = 0.2870493262186792_dp - ros_M(3) = 0.4353179431840180_dp - ros_M(4) = 0.1093502252409163E+01_dp -!~~~> E_i = Coefficients for error estimator - ros_E(1) =-0.2815431932141155_dp - ros_E(2) =-0.7276199124938920E-01_dp - ros_E(3) =-0.1082196201495311_dp - ros_E(4) =-0.1093502252409163E+01_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 0.1145640000000000E+01_dp - ros_Alpha(3) = 0.6552168638155900_dp - ros_Alpha(4) = ros_Alpha(3) -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5728200000000000_dp - ros_Gamma(2) =-0.1769193891319233E+01_dp - ros_Gamma(3) = 0.7592633437920482_dp - ros_Gamma(4) =-0.1049021087100450_dp - - END SUBROUTINE Ros4 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- A STIFFLY-STABLE METHOD, 4 stages, order 3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD3 -!~~~> Name of the method - ros_Name = 'RODAS-3' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.0_dp - ros_A(2) = 2.0_dp - ros_A(3) = 0.0_dp - ros_A(4) = 2.0_dp - ros_A(5) = 0.0_dp - ros_A(6) = 1.0_dp - - ros_C(1) = 4.0_dp - ros_C(2) = 1.0_dp - ros_C(3) =-1.0_dp - ros_C(4) = 1.0_dp - ros_C(5) =-1.0_dp - ros_C(6) =-(8.0_dp/3.0_dp) - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .FALSE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 2.0_dp - ros_M(2) = 0.0_dp - ros_M(3) = 1.0_dp - ros_M(4) = 1.0_dp -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0_dp - ros_E(2) = 0.0_dp - ros_E(3) = 0.0_dp - ros_E(4) = 1.0_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 0.0_dp - ros_Alpha(3) = 1.0_dp - ros_Alpha(4) = 1.0_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5_dp - ros_Gamma(2) = 1.5_dp - ros_Gamma(3) = 0.0_dp - ros_Gamma(4) = 0.0_dp - - END SUBROUTINE Rodas3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 6 STAGES -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1996) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD4 -!~~~> Name of the method - ros_Name = 'RODAS-4' -!~~~> Number of stages - ros_S = 6 - -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.000_dp - ros_Alpha(2) = 0.386_dp - ros_Alpha(3) = 0.210_dp - ros_Alpha(4) = 0.630_dp - ros_Alpha(5) = 1.000_dp - ros_Alpha(6) = 1.000_dp - -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.2500000000000000_dp - ros_Gamma(2) =-0.1043000000000000_dp - ros_Gamma(3) = 0.1035000000000000_dp - ros_Gamma(4) =-0.3620000000000023E-01_dp - ros_Gamma(5) = 0.0_dp - ros_Gamma(6) = 0.0_dp - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.1544000000000000E+01_dp - ros_A(2) = 0.9466785280815826_dp - ros_A(3) = 0.2557011698983284_dp - ros_A(4) = 0.3314825187068521E+01_dp - ros_A(5) = 0.2896124015972201E+01_dp - ros_A(6) = 0.9986419139977817_dp - ros_A(7) = 0.1221224509226641E+01_dp - ros_A(8) = 0.6019134481288629E+01_dp - ros_A(9) = 0.1253708332932087E+02_dp - ros_A(10) =-0.6878860361058950_dp - ros_A(11) = ros_A(7) - ros_A(12) = ros_A(8) - ros_A(13) = ros_A(9) - ros_A(14) = ros_A(10) - ros_A(15) = 1.0_dp - - ros_C(1) =-0.5668800000000000E+01_dp - ros_C(2) =-0.2430093356833875E+01_dp - ros_C(3) =-0.2063599157091915_dp - ros_C(4) =-0.1073529058151375_dp - ros_C(5) =-0.9594562251023355E+01_dp - ros_C(6) =-0.2047028614809616E+02_dp - ros_C(7) = 0.7496443313967647E+01_dp - ros_C(8) =-0.1024680431464352E+02_dp - ros_C(9) =-0.3399990352819905E+02_dp - ros_C(10) = 0.1170890893206160E+02_dp - ros_C(11) = 0.8083246795921522E+01_dp - ros_C(12) =-0.7981132988064893E+01_dp - ros_C(13) =-0.3152159432874371E+02_dp - ros_C(14) = 0.1631930543123136E+02_dp - ros_C(15) =-0.6058818238834054E+01_dp - -!~~~> M_i = Coefficients for new step solution - ros_M(1) = ros_A(7) - ros_M(2) = ros_A(8) - ros_M(3) = ros_A(9) - ros_M(4) = ros_A(10) - ros_M(5) = 1.0_dp - ros_M(6) = 1.0_dp - -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0_dp - ros_E(2) = 0.0_dp - ros_E(3) = 0.0_dp - ros_E(4) = 0.0_dp - ros_E(5) = 0.0_dp - ros_E(6) = 1.0_dp - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - ros_NewF(5) = .TRUE. - ros_NewF(6) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0_dp - - END SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rang3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE W METHOD OF ORDER 3, WITH 4 STAGES -! -! J. RANG and L. ANGERMANN -! NEW ROSENBROCK W-METHODS OF ORDER 3 -! FOR PARTIAL DIFFERENTIAL ALGEBRAIC -! EQUATIONS OF INDEX 1 -! BIT Numerical Mathematics (2005) 45: 761-787 -! DOI: 10.1007/s10543-005-0035-y -! Table 4.1-4.2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RG3 -!~~~> Name of the method - ros_Name = 'RANG-3' -!~~~> Number of stages - ros_S = 4 - - ros_A(1) = 5.09052051067020d+00; - ros_A(2) = 5.09052051067020d+00; - ros_A(3) = 0.0d0; - ros_A(4) = 4.97628111010787d+00; - ros_A(5) = 2.77268164715849d-02; - ros_A(6) = 2.29428036027904d-01; - - ros_C(1) = -1.16790812312283d+01; - ros_C(2) = -1.64057326467367d+01; - ros_C(3) = -2.77268164715850d-01; - ros_C(4) = -8.38103960500476d+00; - ros_C(5) = -8.48328409199343d-01; - ros_C(6) = 2.87009860433106d-01; - - ros_M(1) = 5.22582761233094d+00; - ros_M(2) = -5.56971148154165d-01; - ros_M(3) = 3.57979469353645d-01; - ros_M(4) = 1.72337398521064d+00; - - ros_E(1) = -5.16845212784040d+00; - ros_E(2) = -1.26351942603842d+00; - ros_E(3) = -1.11022302462516d-16; - ros_E(4) = 2.22044604925031d-16; - - ros_Alpha(1) = 0.0d00; - ros_Alpha(2) = 2.21878746765329d+00; - ros_Alpha(3) = 2.21878746765329d+00; - ros_Alpha(4) = 1.55392337535788d+00; - - ros_Gamma(1) = 4.35866521508459d-01; - ros_Gamma(2) = -1.78292094614483d+00; - ros_Gamma(3) = -2.46541900496934d+00; - ros_Gamma(4) = -8.05529997906370d-01; - - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp - - END SUBROUTINE Rang3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! End of the set of internal Rosenbrock subroutines -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -END SUBROUTINE Rosenbrock -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE FunTemplate( T, Y, Ydot ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE function call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE RADMKA_Parameters, ONLY: NVAR, LU_NONZERO - USE RADMKA_Global, ONLY: FIX, RCONST, TIME - USE RADMKA_Function, ONLY: Fun - USE RADMKA_Rates, ONLY: Update_SUN, Update_RCONST -!~~~> Input variables - REAL(kind=dp) :: T, Y(NVAR) -!~~~> Output variables - REAL(kind=dp) :: Ydot(NVAR) -!~~~> Local variables - REAL(kind=dp) :: Told - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, Ydot ) - TIME = Told - -END SUBROUTINE FunTemplate - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE JacTemplate( T, Y, Jcb ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE Jacobian call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE RADMKA_Parameters, ONLY: NVAR, LU_NONZERO - USE RADMKA_Global, ONLY: FIX, RCONST, TIME - USE RADMKA_Jacobian, ONLY: Jac_SP, LU_IROW, LU_ICOL - USE RADMKA_LinearAlgebra - USE RADMKA_Rates, ONLY: Update_SUN, Update_RCONST -!~~~> Input variables - REAL(kind=dp) :: T, Y(NVAR) -!~~~> Output variables -#ifdef FULL_ALGEBRA - REAL(kind=dp) :: JV(LU_NONZERO), Jcb(NVAR,NVAR) -#else - REAL(kind=dp) :: Jcb(LU_NONZERO) -#endif -!~~~> Local variables - REAL(kind=dp) :: Told -#ifdef FULL_ALGEBRA - INTEGER :: i, j -#endif - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() -#ifdef FULL_ALGEBRA - CALL Jac_SP(Y, FIX, RCONST, JV) - DO j=1,NVAR - DO i=1,NVAR - Jcb(i,j) = 0.0_dp - END DO - END DO - DO i=1,LU_NONZERO - Jcb(LU_IROW(i),LU_ICOL(i)) = JV(i) - END DO -#else - CALL Jac_SP( Y, FIX, RCONST, Jcb ) -#endif - TIME = Told - -END SUBROUTINE JacTemplate - -END MODULE RADMKA_Integrator - - - - -! End of INTEGRATE function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_Integrator.o b/boxmox/compiled_mechs/RADMKA/RADMKA_Integrator.o deleted file mode 100644 index c3c8a3bceefe74cace1533e91b94d9b8772ecb1e..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/RADMKA_Integrator.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_Jacobian.f90 b/boxmox/compiled_mechs/RADMKA/RADMKA_Jacobian.f90 deleted file mode 100644 index e250fce3d15fc29de20eab5a6736851278c725e1..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADMKA/RADMKA_Jacobian.f90 +++ /dev/null @@ -1,2970 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The ODE Jacobian of Chemical Model File -! -! Generated by KPP-2.2.3 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 : RADMKA_Jacobian.f90 -! Time : Thu Oct 8 08:22:34 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADMKA_16038_BOXMOX -! Equation file : RADMKA.kpp -! Output root filename : RADMKA -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RADMKA_Jacobian - - USE RADMKA_Parameters - USE RADMKA_JacobianSP - - USE RADMKA_Global - - 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(341) - -! B(1) = dA(1)/dV(72) - B(1) = RCT(1) -! B(2) = dA(2)/dV(74) - B(2) = RCT(2) -! B(3) = dA(3)/dV(74) - B(3) = RCT(3) -! B(4) = dA(4)/dV(15) - B(4) = RCT(4) -! B(5) = dA(5)/dV(40) - B(5) = RCT(5) -! B(6) = dA(6)/dV(26) - B(6) = RCT(6) -! B(7) = dA(7)/dV(71) - B(7) = RCT(7) -! B(8) = dA(8)/dV(71) - B(8) = RCT(8) -! B(9) = dA(9)/dV(30) - B(9) = RCT(9) -! B(10) = dA(10)/dV(58) - B(10) = RCT(10) -! B(11) = dA(11)/dV(58) - B(11) = RCT(11) -! B(12) = dA(12)/dV(65) - B(12) = RCT(12) -! B(13) = dA(13)/dV(22) - B(13) = RCT(13) -! B(14) = dA(14)/dV(54) - B(14) = RCT(14) -! B(15) = dA(15)/dV(21) - B(15) = RCT(15) -! B(16) = dA(16)/dV(49) - B(16) = RCT(16) -! B(17) = dA(17)/dV(42) - B(17) = RCT(17) -! B(18) = dA(18)/dV(42) - B(18) = RCT(18) -! B(19) = dA(19)/dV(57) - B(19) = RCT(19) -! B(20) = dA(20)/dV(45) - B(20) = RCT(20) -! B(21) = dA(21)/dV(75) - B(21) = RCT(21) -! B(22) = dA(22)/dV(29) - B(22) = RCT(22)*V(34) -! B(23) = dA(22)/dV(34) - B(23) = RCT(22)*V(29) -! B(24) = dA(23)/dV(29) - B(24) = RCT(23)*V(72) -! B(25) = dA(23)/dV(72) - B(25) = RCT(23)*V(29) -! B(26) = dA(24)/dV(1) - B(26) = RCT(24)*V(19) -! B(27) = dA(24)/dV(19) - B(27) = RCT(24)*V(1) -! B(28) = dA(25)/dV(19) - B(28) = RCT(25)*V(34) -! B(29) = dA(25)/dV(34) - B(29) = RCT(25)*V(19) -! B(30) = dA(26)/dV(19) - B(30) = RCT(26)*V(61) -! B(31) = dA(26)/dV(61) - B(31) = RCT(26)*V(19) -! B(32) = dA(27)/dV(73) - B(32) = RCT(27)*V(74) -! B(33) = dA(27)/dV(74) - B(33) = RCT(27)*V(73) -! B(34) = dA(28)/dV(70) - B(34) = RCT(28)*V(74) -! B(35) = dA(28)/dV(74) - B(35) = RCT(28)*V(70) -! B(36) = dA(29)/dV(69) - B(36) = RCT(29)*V(74) -! B(37) = dA(29)/dV(74) - B(37) = RCT(29)*V(69) -! B(38) = dA(30)/dV(69) - B(38) = RCT(30)*V(73) -! B(39) = dA(30)/dV(73) - B(39) = RCT(30)*V(69) -! B(40) = dA(31)/dV(69) - B(40) = RCT(31)*V(72) -! B(41) = dA(31)/dV(72) - B(41) = RCT(31)*V(69) -! B(42) = dA(32)/dV(69) - B(42) = RCT(32)*2*V(69) -! B(43) = dA(33)/dV(61) - B(43) = RCT(33)*V(69)*V(69) -! B(44) = dA(33)/dV(69) - B(44) = RCT(33)*2*V(61)*V(69) -! B(45) = dA(34)/dV(30) - B(45) = RCT(34)*V(70) -! B(46) = dA(34)/dV(70) - B(46) = RCT(34)*V(30) -! B(47) = dA(35)/dV(70) - B(47) = RCT(35)*V(73) -! B(48) = dA(35)/dV(73) - B(48) = RCT(35)*V(70) -! B(49) = dA(36)/dV(34) - B(49) = RCT(36)*V(73)*V(73) -! B(50) = dA(36)/dV(73) - B(50) = RCT(36)*2*V(34)*V(73) -! B(51) = dA(37)/dV(72) - B(51) = RCT(37)*V(74) -! B(52) = dA(37)/dV(74) - B(52) = RCT(37)*V(72) -! B(53) = dA(38)/dV(71) - B(53) = RCT(38)*V(73) -! B(54) = dA(38)/dV(73) - B(54) = RCT(38)*V(71) -! B(55) = dA(39)/dV(71) - B(55) = RCT(39)*V(72) -! B(56) = dA(39)/dV(72) - B(56) = RCT(39)*V(71) -! B(57) = dA(40)/dV(69) - B(57) = RCT(40)*V(71) -! B(58) = dA(40)/dV(71) - B(58) = RCT(40)*V(69) -! B(59) = dA(41)/dV(71) - B(59) = RCT(41)*V(72) -! B(60) = dA(41)/dV(72) - B(60) = RCT(41)*V(71) -! B(61) = dA(42)/dV(20) - B(61) = RCT(42) -! B(62) = dA(43)/dV(20) - B(62) = RCT(43)*V(61) -! B(63) = dA(43)/dV(61) - B(63) = RCT(43)*V(20) -! B(64) = dA(44)/dV(70) - B(64) = RCT(44)*V(72) -! B(65) = dA(44)/dV(72) - B(65) = RCT(44)*V(70) -! B(66) = dA(45)/dV(40) - B(66) = RCT(45)*V(70) -! B(67) = dA(45)/dV(70) - B(67) = RCT(45)*V(40) -! B(68) = dA(46)/dV(26) - B(68) = RCT(46)*V(70) -! B(69) = dA(46)/dV(70) - B(69) = RCT(46)*V(26) -! B(70) = dA(47)/dV(69) - B(70) = RCT(47)*V(70) -! B(71) = dA(47)/dV(70) - B(71) = RCT(47)*V(69) -! B(72) = dA(48)/dV(7) - B(72) = RCT(48)*V(70) -! B(73) = dA(48)/dV(70) - B(73) = RCT(48)*V(7) -! B(74) = dA(49)/dV(36) - B(74) = RCT(49)*V(70) -! B(75) = dA(49)/dV(70) - B(75) = RCT(49)*V(36) -! B(76) = dA(50)/dV(24) - B(76) = RCT(50)*V(70) -! B(77) = dA(50)/dV(70) - B(77) = RCT(50)*V(24) -! B(78) = dA(51)/dV(8) - B(78) = RCT(51)*V(70) -! B(79) = dA(51)/dV(70) - B(79) = RCT(51)*V(8) -! B(80) = dA(52)/dV(17) - B(80) = RCT(52)*V(70) -! B(81) = dA(52)/dV(70) - B(81) = RCT(52)*V(17) -! B(82) = dA(53)/dV(10) - B(82) = RCT(53)*V(70) -! B(83) = dA(53)/dV(70) - B(83) = RCT(53)*V(10) -! B(84) = dA(54)/dV(11) - B(84) = RCT(54)*V(70) -! B(85) = dA(54)/dV(70) - B(85) = RCT(54)*V(11) -! B(86) = dA(55)/dV(31) - B(86) = RCT(55)*V(70) -! B(87) = dA(55)/dV(70) - B(87) = RCT(55)*V(31) -! B(88) = dA(56)/dV(38) - B(88) = RCT(56)*V(70) -! B(89) = dA(56)/dV(70) - B(89) = RCT(56)*V(38) -! B(90) = dA(57)/dV(63) - B(90) = RCT(57)*V(70) -! B(91) = dA(57)/dV(70) - B(91) = RCT(57)*V(63) -! B(92) = dA(58)/dV(12) - B(92) = RCT(58)*V(70) -! B(93) = dA(58)/dV(70) - B(93) = RCT(58)*V(12) -! B(94) = dA(59)/dV(13) - B(94) = RCT(59)*V(70) -! B(95) = dA(59)/dV(70) - B(95) = RCT(59)*V(13) -! B(96) = dA(60)/dV(25) - B(96) = RCT(60)*V(70) -! B(97) = dA(60)/dV(70) - B(97) = RCT(60)*V(25) -! B(98) = dA(61)/dV(58) - B(98) = RCT(61)*V(70) -! B(99) = dA(61)/dV(70) - B(99) = RCT(61)*V(58) -! B(100) = dA(62)/dV(65) - B(100) = RCT(62)*V(70) -! B(101) = dA(62)/dV(70) - B(101) = RCT(62)*V(65) -! B(102) = dA(63)/dV(49) - B(102) = RCT(63)*V(70) -! B(103) = dA(63)/dV(70) - B(103) = RCT(63)*V(49) -! B(104) = dA(64)/dV(42) - B(104) = RCT(64)*V(70) -! B(105) = dA(64)/dV(70) - B(105) = RCT(64)*V(42) -! B(106) = dA(65)/dV(57) - B(106) = RCT(65)*V(70) -! B(107) = dA(65)/dV(70) - B(107) = RCT(65)*V(57) -! B(108) = dA(66)/dV(45) - B(108) = RCT(66)*V(70) -! B(109) = dA(66)/dV(70) - B(109) = RCT(66)*V(45) -! B(110) = dA(67)/dV(22) - B(110) = RCT(67)*V(70) -! B(111) = dA(67)/dV(70) - B(111) = RCT(67)*V(22) -! B(112) = dA(68)/dV(54) - B(112) = RCT(68)*V(70) -! B(113) = dA(68)/dV(70) - B(113) = RCT(68)*V(54) -! B(114) = dA(69)/dV(21) - B(114) = RCT(69)*V(70) -! B(115) = dA(69)/dV(70) - B(115) = RCT(69)*V(21) -! B(116) = dA(70)/dV(28) - B(116) = RCT(70)*V(70) -! B(117) = dA(70)/dV(70) - B(117) = RCT(70)*V(28) -! B(118) = dA(71)/dV(70) - B(118) = RCT(71)*V(75) -! B(119) = dA(71)/dV(75) - B(119) = RCT(71)*V(70) -! B(120) = dA(72)/dV(39) - B(120) = RCT(72)*V(70) -! B(121) = dA(72)/dV(70) - B(121) = RCT(72)*V(39) -! B(122) = dA(73)/dV(68) - B(122) = RCT(73)*V(72) -! B(123) = dA(73)/dV(72) - B(123) = RCT(73)*V(68) -! B(124) = dA(74)/dV(28) - B(124) = RCT(74) -! B(125) = dA(75)/dV(59) - B(125) = RCT(75)*V(72) -! B(126) = dA(75)/dV(72) - B(126) = RCT(75)*V(59) -! B(127) = dA(76)/dV(14) - B(127) = RCT(76) -! B(128) = dA(77)/dV(67) - B(128) = RCT(77)*V(73) -! B(129) = dA(77)/dV(73) - B(129) = RCT(77)*V(67) -! B(130) = dA(78)/dV(73) - B(130) = RCT(78)*V(76) -! B(131) = dA(78)/dV(76) - B(131) = RCT(78)*V(73) -! B(132) = dA(79)/dV(46) - B(132) = RCT(79)*V(73) -! B(133) = dA(79)/dV(73) - B(133) = RCT(79)*V(46) -! B(134) = dA(80)/dV(47) - B(134) = RCT(80)*V(73) -! B(135) = dA(80)/dV(73) - B(135) = RCT(80)*V(47) -! B(136) = dA(81)/dV(50) - B(136) = RCT(81)*V(73) -! B(137) = dA(81)/dV(73) - B(137) = RCT(81)*V(50) -! B(138) = dA(82)/dV(51) - B(138) = RCT(82)*V(73) -! B(139) = dA(82)/dV(73) - B(139) = RCT(82)*V(51) -! B(140) = dA(83)/dV(48) - B(140) = RCT(83)*V(73) -! B(141) = dA(83)/dV(73) - B(141) = RCT(83)*V(48) -! B(142) = dA(84)/dV(68) - B(142) = RCT(84)*V(73) -! B(143) = dA(84)/dV(73) - B(143) = RCT(84)*V(68) -! B(144) = dA(85)/dV(59) - B(144) = RCT(85)*V(73) -! B(145) = dA(85)/dV(73) - B(145) = RCT(85)*V(59) -! B(146) = dA(86)/dV(53) - B(146) = RCT(86)*V(73) -! B(147) = dA(86)/dV(73) - B(147) = RCT(86)*V(53) -! B(148) = dA(87)/dV(43) - B(148) = RCT(87)*V(73) -! B(149) = dA(87)/dV(73) - B(149) = RCT(87)*V(43) -! B(150) = dA(88)/dV(66) - B(150) = RCT(88)*V(73) -! B(151) = dA(88)/dV(73) - B(151) = RCT(88)*V(66) -! B(152) = dA(89)/dV(64) - B(152) = RCT(89)*V(73) -! B(153) = dA(89)/dV(73) - B(153) = RCT(89)*V(64) -! B(154) = dA(90)/dV(56) - B(154) = RCT(90)*V(73) -! B(155) = dA(90)/dV(73) - B(155) = RCT(90)*V(56) -! B(156) = dA(91)/dV(58) - B(156) = RCT(91)*V(71) -! B(157) = dA(91)/dV(71) - B(157) = RCT(91)*V(58) -! B(158) = dA(92)/dV(65) - B(158) = RCT(92)*V(71) -! B(159) = dA(92)/dV(71) - B(159) = RCT(92)*V(65) -! B(160) = dA(93)/dV(42) - B(160) = RCT(93)*V(71) -! B(161) = dA(93)/dV(71) - B(161) = RCT(93)*V(42) -! B(162) = dA(94)/dV(57) - B(162) = RCT(94)*V(71) -! B(163) = dA(94)/dV(71) - B(163) = RCT(94)*V(57) -! B(164) = dA(95)/dV(45) - B(164) = RCT(95)*V(71) -! B(165) = dA(95)/dV(71) - B(165) = RCT(95)*V(45) -! B(166) = dA(96)/dV(25) - B(166) = RCT(96)*V(71) -! B(167) = dA(96)/dV(71) - B(167) = RCT(96)*V(25) -! B(168) = dA(97)/dV(31) - B(168) = RCT(97)*V(71) -! B(169) = dA(97)/dV(71) - B(169) = RCT(97)*V(31) -! B(170) = dA(98)/dV(38) - B(170) = RCT(98)*V(71) -! B(171) = dA(98)/dV(71) - B(171) = RCT(98)*V(38) -! B(172) = dA(99)/dV(63) - B(172) = RCT(99)*V(71) -! B(173) = dA(99)/dV(71) - B(173) = RCT(99)*V(63) -! B(174) = dA(100)/dV(39) - B(174) = RCT(100)*V(71) -! B(175) = dA(100)/dV(71) - B(175) = RCT(100)*V(39) -! B(176) = dA(101)/dV(31) - B(176) = RCT(101)*V(74) -! B(177) = dA(101)/dV(74) - B(177) = RCT(101)*V(31) -! B(178) = dA(102)/dV(38) - B(178) = RCT(102)*V(74) -! B(179) = dA(102)/dV(74) - B(179) = RCT(102)*V(38) -! B(180) = dA(103)/dV(63) - B(180) = RCT(103)*V(74) -! B(181) = dA(103)/dV(74) - B(181) = RCT(103)*V(63) -! B(182) = dA(104)/dV(39) - B(182) = RCT(104)*V(74) -! B(183) = dA(104)/dV(74) - B(183) = RCT(104)*V(39) -! B(184) = dA(105)/dV(67) - B(184) = RCT(105)*V(69) -! B(185) = dA(105)/dV(69) - B(185) = RCT(105)*V(67) -! B(186) = dA(106)/dV(66) - B(186) = RCT(106)*V(69) -! B(187) = dA(106)/dV(69) - B(187) = RCT(106)*V(66) -! B(188) = dA(107)/dV(69) - B(188) = RCT(107)*V(76) -! B(189) = dA(107)/dV(76) - B(189) = RCT(107)*V(69) -! B(190) = dA(108)/dV(46) - B(190) = RCT(108)*V(69) -! B(191) = dA(108)/dV(69) - B(191) = RCT(108)*V(46) -! B(192) = dA(109)/dV(47) - B(192) = RCT(109)*V(69) -! B(193) = dA(109)/dV(69) - B(193) = RCT(109)*V(47) -! B(194) = dA(110)/dV(50) - B(194) = RCT(110)*V(69) -! B(195) = dA(110)/dV(69) - B(195) = RCT(110)*V(50) -! B(196) = dA(111)/dV(51) - B(196) = RCT(111)*V(69) -! B(197) = dA(111)/dV(69) - B(197) = RCT(111)*V(51) -! B(198) = dA(112)/dV(48) - B(198) = RCT(112)*V(69) -! B(199) = dA(112)/dV(69) - B(199) = RCT(112)*V(48) -! B(200) = dA(113)/dV(64) - B(200) = RCT(113)*V(69) -! B(201) = dA(113)/dV(69) - B(201) = RCT(113)*V(64) -! B(202) = dA(114)/dV(68) - B(202) = RCT(114)*V(69) -! B(203) = dA(114)/dV(69) - B(203) = RCT(114)*V(68) -! B(204) = dA(115)/dV(53) - B(204) = RCT(115)*V(69) -! B(205) = dA(115)/dV(69) - B(205) = RCT(115)*V(53) -! B(206) = dA(116)/dV(43) - B(206) = RCT(116)*V(69) -! B(207) = dA(116)/dV(69) - B(207) = RCT(116)*V(43) -! B(208) = dA(117)/dV(59) - B(208) = RCT(117)*V(69) -! B(209) = dA(117)/dV(69) - B(209) = RCT(117)*V(59) -! B(210) = dA(118)/dV(56) - B(210) = RCT(118)*V(69) -! B(211) = dA(118)/dV(69) - B(211) = RCT(118)*V(56) -! B(212) = dA(119)/dV(67) - B(212) = RCT(119)*2*V(67) -! B(213) = dA(120)/dV(66) - B(213) = RCT(120)*V(67) -! B(214) = dA(120)/dV(67) - B(214) = RCT(120)*V(66) -! B(215) = dA(121)/dV(67) - B(215) = RCT(121)*V(76) -! B(216) = dA(121)/dV(76) - B(216) = RCT(121)*V(67) -! B(217) = dA(122)/dV(46) - B(217) = RCT(122)*V(67) -! B(218) = dA(122)/dV(67) - B(218) = RCT(122)*V(46) -! B(219) = dA(123)/dV(47) - B(219) = RCT(123)*V(67) -! B(220) = dA(123)/dV(67) - B(220) = RCT(123)*V(47) -! B(221) = dA(124)/dV(50) - B(221) = RCT(124)*V(67) -! B(222) = dA(124)/dV(67) - B(222) = RCT(124)*V(50) -! B(223) = dA(125)/dV(51) - B(223) = RCT(125)*V(67) -! B(224) = dA(125)/dV(67) - B(224) = RCT(125)*V(51) -! B(225) = dA(126)/dV(48) - B(225) = RCT(126)*V(67) -! B(226) = dA(126)/dV(67) - B(226) = RCT(126)*V(48) -! B(227) = dA(127)/dV(64) - B(227) = RCT(127)*V(67) -! B(228) = dA(127)/dV(67) - B(228) = RCT(127)*V(64) -! B(229) = dA(128)/dV(67) - B(229) = RCT(128)*V(68) -! B(230) = dA(128)/dV(68) - B(230) = RCT(128)*V(67) -! B(231) = dA(129)/dV(53) - B(231) = RCT(129)*V(67) -! B(232) = dA(129)/dV(67) - B(232) = RCT(129)*V(53) -! B(233) = dA(130)/dV(43) - B(233) = RCT(130)*V(67) -! B(234) = dA(130)/dV(67) - B(234) = RCT(130)*V(43) -! B(235) = dA(131)/dV(59) - B(235) = RCT(131)*V(67) -! B(236) = dA(131)/dV(67) - B(236) = RCT(131)*V(59) -! B(237) = dA(132)/dV(66) - B(237) = RCT(132)*V(68) -! B(238) = dA(132)/dV(68) - B(238) = RCT(132)*V(66) -! B(239) = dA(133)/dV(68) - B(239) = RCT(133)*V(76) -! B(240) = dA(133)/dV(76) - B(240) = RCT(133)*V(68) -! B(241) = dA(134)/dV(46) - B(241) = RCT(134)*V(68) -! B(242) = dA(134)/dV(68) - B(242) = RCT(134)*V(46) -! B(243) = dA(135)/dV(47) - B(243) = RCT(135)*V(68) -! B(244) = dA(135)/dV(68) - B(244) = RCT(135)*V(47) -! B(245) = dA(136)/dV(50) - B(245) = RCT(136)*V(68) -! B(246) = dA(136)/dV(68) - B(246) = RCT(136)*V(50) -! B(247) = dA(137)/dV(51) - B(247) = RCT(137)*V(68) -! B(248) = dA(137)/dV(68) - B(248) = RCT(137)*V(51) -! B(249) = dA(138)/dV(48) - B(249) = RCT(138)*V(68) -! B(250) = dA(138)/dV(68) - B(250) = RCT(138)*V(48) -! B(251) = dA(139)/dV(64) - B(251) = RCT(139)*V(68) -! B(252) = dA(139)/dV(68) - B(252) = RCT(139)*V(64) -! B(253) = dA(140)/dV(68) - B(253) = RCT(140)*2*V(68) -! B(254) = dA(141)/dV(53) - B(254) = RCT(141)*V(68) -! B(255) = dA(141)/dV(68) - B(255) = RCT(141)*V(53) -! B(256) = dA(142)/dV(43) - B(256) = RCT(142)*V(68) -! B(257) = dA(142)/dV(68) - B(257) = RCT(142)*V(43) -! B(258) = dA(143)/dV(59) - B(258) = RCT(143)*V(68) -! B(259) = dA(143)/dV(68) - B(259) = RCT(143)*V(59) -! B(260) = dA(144)/dV(52) - B(260) = RCT(144)*V(69) -! B(261) = dA(144)/dV(69) - B(261) = RCT(144)*V(52) -! B(262) = dA(145)/dV(52) - B(262) = RCT(145)*V(67) -! B(263) = dA(145)/dV(67) - B(263) = RCT(145)*V(52) -! B(264) = dA(146)/dV(52) - B(264) = RCT(146)*V(68) -! B(265) = dA(146)/dV(68) - B(265) = RCT(146)*V(52) -! B(266) = dA(147)/dV(52) - B(266) = RCT(147)*V(73) -! B(267) = dA(147)/dV(73) - B(267) = RCT(147)*V(52) -! B(268) = dA(148)/dV(41) - B(268) = RCT(148)*V(72) -! B(269) = dA(148)/dV(72) - B(269) = RCT(148)*V(41) -! B(270) = dA(149)/dV(41) - B(270) = RCT(149)*V(69) -! B(271) = dA(149)/dV(69) - B(271) = RCT(149)*V(41) -! B(272) = dA(150)/dV(41) - B(272) = RCT(150)*V(67) -! B(273) = dA(150)/dV(67) - B(273) = RCT(150)*V(41) -! B(274) = dA(151)/dV(41) - B(274) = RCT(151)*V(68) -! B(275) = dA(151)/dV(68) - B(275) = RCT(151)*V(41) -! B(276) = dA(152)/dV(56) - B(276) = RCT(152)*V(67) -! B(277) = dA(152)/dV(67) - B(277) = RCT(152)*V(56) -! B(278) = dA(153)/dV(56) - B(278) = RCT(153)*V(68) -! B(279) = dA(153)/dV(68) - B(279) = RCT(153)*V(56) -! B(280) = dA(154)/dV(56) - B(280) = RCT(154)*2*V(56) -! B(281) = dA(155)/dV(35) - B(281) = RCT(155)*V(70) -! B(282) = dA(155)/dV(70) - B(282) = RCT(155)*V(35) -! B(283) = dA(156)/dV(35) - B(283) = RCT(156)*V(71) -! B(284) = dA(156)/dV(71) - B(284) = RCT(156)*V(35) -! B(285) = dA(157)/dV(35) - B(285) = RCT(157)*V(74) -! B(286) = dA(157)/dV(74) - B(286) = RCT(157)*V(35) -! B(287) = dA(158)/dV(60) - B(287) = RCT(158)*V(73) -! B(288) = dA(158)/dV(73) - B(288) = RCT(158)*V(60) -! B(289) = dA(159)/dV(60) - B(289) = RCT(159)*V(69) -! B(290) = dA(159)/dV(69) - B(290) = RCT(159)*V(60) -! B(291) = dA(160)/dV(60) - B(291) = RCT(160)*V(67) -! B(292) = dA(160)/dV(67) - B(292) = RCT(160)*V(60) -! B(293) = dA(161)/dV(60) - B(293) = RCT(161)*V(68) -! B(294) = dA(161)/dV(68) - B(294) = RCT(161)*V(60) -! B(295) = dA(162)/dV(60) - B(295) = RCT(162)*V(71) -! B(296) = dA(162)/dV(71) - B(296) = RCT(162)*V(60) -! B(297) = dA(163)/dV(37) - B(297) = RCT(163)*V(70) -! B(298) = dA(163)/dV(70) - B(298) = RCT(163)*V(37) -! B(299) = dA(164)/dV(37) - B(299) = RCT(164)*V(71) -! B(300) = dA(164)/dV(71) - B(300) = RCT(164)*V(37) -! B(301) = dA(165)/dV(37) - B(301) = RCT(165)*V(74) -! B(302) = dA(165)/dV(74) - B(302) = RCT(165)*V(37) -! B(303) = dA(166)/dV(62) - B(303) = RCT(166)*V(73) -! B(304) = dA(166)/dV(73) - B(304) = RCT(166)*V(62) -! B(305) = dA(167)/dV(62) - B(305) = RCT(167)*V(69) -! B(306) = dA(167)/dV(69) - B(306) = RCT(167)*V(62) -! B(307) = dA(168)/dV(62) - B(307) = RCT(168)*V(67) -! B(308) = dA(168)/dV(67) - B(308) = RCT(168)*V(62) -! B(309) = dA(169)/dV(62) - B(309) = RCT(169)*V(68) -! B(310) = dA(169)/dV(68) - B(310) = RCT(169)*V(62) -! B(311) = dA(170)/dV(62) - B(311) = RCT(170)*V(71) -! B(312) = dA(170)/dV(71) - B(312) = RCT(170)*V(62) -! B(313) = dA(171)/dV(32) - B(313) = RCT(171)*V(73) -! B(314) = dA(171)/dV(73) - B(314) = RCT(171)*V(32) -! B(315) = dA(172)/dV(32) - B(315) = RCT(172)*V(69) -! B(316) = dA(172)/dV(69) - B(316) = RCT(172)*V(32) -! B(317) = dA(173)/dV(32) - B(317) = RCT(173)*2*V(32) -! B(318) = dA(174)/dV(9) - B(318) = RCT(174)*V(70) -! B(319) = dA(174)/dV(70) - B(319) = RCT(174)*V(9) -! B(320) = dA(175)/dV(33) - B(320) = RCT(175)*V(70) -! B(321) = dA(175)/dV(70) - B(321) = RCT(175)*V(33) -! B(322) = dA(176)/dV(44) - B(322) = RCT(176)*V(70) -! B(323) = dA(176)/dV(70) - B(323) = RCT(176)*V(44) -! B(324) = dA(177)/dV(44) - B(324) = RCT(177)*V(74) -! B(325) = dA(177)/dV(74) - B(325) = RCT(177)*V(44) -! B(326) = dA(178)/dV(55) - B(326) = RCT(178)*V(73) -! B(327) = dA(178)/dV(73) - B(327) = RCT(178)*V(55) -! B(328) = dA(179)/dV(55) - B(328) = RCT(179)*V(69) -! B(329) = dA(179)/dV(69) - B(329) = RCT(179)*V(55) -! B(330) = dA(180)/dV(55) - B(330) = RCT(180)*2*V(55) -! B(331) = dA(181)/dV(55) - B(331) = RCT(181)*V(72) -! B(332) = dA(181)/dV(72) - B(332) = RCT(181)*V(55) -! B(333) = dA(182)/dV(23) - B(333) = RCT(182) -! B(334) = dA(183)/dV(23) - B(334) = RCT(183)*V(70) -! B(335) = dA(183)/dV(70) - B(335) = RCT(183)*V(23) -! B(336) = dA(184)/dV(16) - B(336) = RCT(184)*V(70) -! B(337) = dA(184)/dV(70) - B(337) = RCT(184)*V(16) -! B(338) = dA(185)/dV(27) - B(338) = RCT(185)*V(70) -! B(339) = dA(185)/dV(70) - B(339) = RCT(185)*V(27) -! B(340) = dA(186)/dV(18) - B(340) = RCT(186)*V(70) -! B(341) = dA(186)/dV(70) - B(341) = RCT(186)*V(18) - -! Construct the Jacobian terms from B's -! JVS(1) = Jac_FULL(1,1) - JVS(1) = 0 -! JVS(2) = Jac_FULL(2,2) - JVS(2) = 0 -! JVS(3) = Jac_FULL(2,7) - JVS(3) = B(72) -! JVS(4) = Jac_FULL(2,70) - JVS(4) = B(73) -! JVS(5) = Jac_FULL(3,3) - JVS(5) = 0 -! JVS(6) = Jac_FULL(3,31) - JVS(6) = 0.4*B(176) -! JVS(7) = Jac_FULL(3,37) - JVS(7) = 0.01*B(301) -! JVS(8) = Jac_FULL(3,38) - JVS(8) = 0.2*B(178) -! JVS(9) = Jac_FULL(3,39) - JVS(9) = 0.28*B(182) -! JVS(10) = Jac_FULL(3,44) - JVS(10) = 0.45*B(324) -! JVS(11) = Jac_FULL(3,63) - JVS(11) = 0.06*B(180) -! JVS(12) = Jac_FULL(3,74) - JVS(12) = 0.4*B(177)+0.2*B(179)+0.06*B(181)+0.28*B(183)+0.01*B(302)+0.45*B(325) -! JVS(13) = Jac_FULL(4,4) - JVS(13) = 0 -! JVS(14) = Jac_FULL(4,37) - JVS(14) = 0.07*B(301) -! JVS(15) = Jac_FULL(4,38) - JVS(15) = 0.2*B(178) -! JVS(16) = Jac_FULL(4,46) - JVS(16) = 0.5*B(241) -! JVS(17) = Jac_FULL(4,47) - JVS(17) = 0.5*B(243) -! JVS(18) = Jac_FULL(4,48) - JVS(18) = 0.5*B(249) -! JVS(19) = Jac_FULL(4,50) - JVS(19) = 0.5*B(245) -! JVS(20) = Jac_FULL(4,51) - JVS(20) = 0.5*B(247) -! JVS(21) = Jac_FULL(4,56) - JVS(21) = 0.5*B(278) -! JVS(22) = Jac_FULL(4,59) - JVS(22) = 0.5*B(235) -! JVS(23) = Jac_FULL(4,63) - JVS(23) = 0.29*B(180) -! JVS(24) = Jac_FULL(4,64) - JVS(24) = 0.5*B(251) -! JVS(25) = Jac_FULL(4,66) - JVS(25) = 0.5*B(237) -! JVS(26) = Jac_FULL(4,67) - JVS(26) = 0.5*B(229)+0.5*B(236) -! JVS(27) = Jac_FULL(4,68) - JVS(27) = 0.5*B(230)+0.5*B(238)+0.5*B(239)+0.5*B(242)+0.5*B(244)+0.5*B(246)+0.5*B(248)+0.5*B(250)+0.5*B(252)+0.5& - &*B(279) -! JVS(28) = Jac_FULL(4,74) - JVS(28) = 0.2*B(179)+0.29*B(181)+0.07*B(302) -! JVS(29) = Jac_FULL(4,76) - JVS(29) = 0.5*B(240) -! JVS(30) = Jac_FULL(5,5) - JVS(30) = 0 -! JVS(31) = Jac_FULL(5,21) - JVS(31) = B(15) -! JVS(32) = Jac_FULL(6,6) - JVS(32) = 0 -! JVS(33) = Jac_FULL(6,58) - JVS(33) = B(10) -! JVS(34) = Jac_FULL(7,7) - JVS(34) = -B(72) -! JVS(35) = Jac_FULL(7,70) - JVS(35) = -B(73) -! JVS(36) = Jac_FULL(8,8) - JVS(36) = -B(78) -! JVS(37) = Jac_FULL(8,70) - JVS(37) = -B(79) -! JVS(38) = Jac_FULL(9,9) - JVS(38) = -B(318) -! JVS(39) = Jac_FULL(9,32) - JVS(39) = B(315) -! JVS(40) = Jac_FULL(9,69) - JVS(40) = B(316) -! JVS(41) = Jac_FULL(9,70) - JVS(41) = -B(319) -! JVS(42) = Jac_FULL(10,10) - JVS(42) = -B(82) -! JVS(43) = Jac_FULL(10,70) - JVS(43) = -B(83) -! JVS(44) = Jac_FULL(11,11) - JVS(44) = -B(84) -! JVS(45) = Jac_FULL(11,70) - JVS(45) = -B(85) -! JVS(46) = Jac_FULL(12,12) - JVS(46) = -B(92) -! JVS(47) = Jac_FULL(12,70) - JVS(47) = -B(93) -! JVS(48) = Jac_FULL(13,13) - JVS(48) = -B(94) -! JVS(49) = Jac_FULL(13,70) - JVS(49) = -B(95) -! JVS(50) = Jac_FULL(14,14) - JVS(50) = -B(127) -! JVS(51) = Jac_FULL(14,59) - JVS(51) = B(125) -! JVS(52) = Jac_FULL(14,72) - JVS(52) = B(126) -! JVS(53) = Jac_FULL(15,15) - JVS(53) = -B(4) -! JVS(54) = Jac_FULL(15,70) - JVS(54) = B(47) -! JVS(55) = Jac_FULL(15,73) - JVS(55) = B(48) -! JVS(56) = Jac_FULL(16,16) - JVS(56) = -B(336) -! JVS(57) = Jac_FULL(16,55) - JVS(57) = B(328) -! JVS(58) = Jac_FULL(16,69) - JVS(58) = B(329) -! JVS(59) = Jac_FULL(16,70) - JVS(59) = -B(337) -! JVS(60) = Jac_FULL(17,17) - JVS(60) = -B(80) -! JVS(61) = Jac_FULL(17,70) - JVS(61) = -B(81) -! JVS(62) = Jac_FULL(18,18) - JVS(62) = -B(340) -! JVS(63) = Jac_FULL(18,33) - JVS(63) = B(320) -! JVS(64) = Jac_FULL(18,70) - JVS(64) = B(321)-B(341) -! JVS(65) = Jac_FULL(19,1) - JVS(65) = -B(26) -! JVS(66) = Jac_FULL(19,19) - JVS(66) = -B(27)-B(28)-B(30) -! JVS(67) = Jac_FULL(19,34) - JVS(67) = -B(29) -! JVS(68) = Jac_FULL(19,61) - JVS(68) = -B(31) -! JVS(69) = Jac_FULL(19,74) - JVS(69) = B(2) -! JVS(70) = Jac_FULL(20,20) - JVS(70) = -B(61)-B(62) -! JVS(71) = Jac_FULL(20,61) - JVS(71) = -B(63) -! JVS(72) = Jac_FULL(20,71) - JVS(72) = B(59) -! JVS(73) = Jac_FULL(20,72) - JVS(73) = B(60) -! JVS(74) = Jac_FULL(21,21) - JVS(74) = -B(15)-B(114) -! JVS(75) = Jac_FULL(21,68) - JVS(75) = B(202) -! JVS(76) = Jac_FULL(21,69) - JVS(76) = B(203) -! JVS(77) = Jac_FULL(21,70) - JVS(77) = -B(115) -! JVS(78) = Jac_FULL(22,22) - JVS(78) = -B(13)-B(110) -! JVS(79) = Jac_FULL(22,67) - JVS(79) = B(184) -! JVS(80) = Jac_FULL(22,69) - JVS(80) = B(185) -! JVS(81) = Jac_FULL(22,70) - JVS(81) = -B(111) -! JVS(82) = Jac_FULL(23,23) - JVS(82) = -B(333)-B(334) -! JVS(83) = Jac_FULL(23,55) - JVS(83) = B(331) -! JVS(84) = Jac_FULL(23,70) - JVS(84) = -B(335) -! JVS(85) = Jac_FULL(23,72) - JVS(85) = B(332) -! JVS(86) = Jac_FULL(24,24) - JVS(86) = -B(76) -! JVS(87) = Jac_FULL(24,38) - JVS(87) = 0.06*B(178) -! JVS(88) = Jac_FULL(24,63) - JVS(88) = 0.09*B(180) -! JVS(89) = Jac_FULL(24,70) - JVS(89) = -B(77) -! JVS(90) = Jac_FULL(24,74) - JVS(90) = 0.06*B(179)+0.09*B(181) -! JVS(91) = Jac_FULL(25,12) - JVS(91) = 0.25*B(92) -! JVS(92) = Jac_FULL(25,13) - JVS(92) = 0.17*B(94) -! JVS(93) = Jac_FULL(25,25) - JVS(93) = -B(96)-0.5*B(166) -! JVS(94) = Jac_FULL(25,70) - JVS(94) = 0.25*B(93)+0.17*B(95)-B(97) -! JVS(95) = Jac_FULL(25,71) - JVS(95) = -0.5*B(167) -! JVS(96) = Jac_FULL(26,26) - JVS(96) = -B(6)-B(68) -! JVS(97) = Jac_FULL(26,69) - JVS(97) = B(40) -! JVS(98) = Jac_FULL(26,70) - JVS(98) = -B(69) -! JVS(99) = Jac_FULL(26,72) - JVS(99) = B(41) -! JVS(100) = Jac_FULL(27,23) - JVS(100) = B(334) -! JVS(101) = Jac_FULL(27,27) - JVS(101) = -B(338) -! JVS(102) = Jac_FULL(27,33) - JVS(102) = B(320) -! JVS(103) = Jac_FULL(27,55) - JVS(103) = 0.25*B(326)+B(330) -! JVS(104) = Jac_FULL(27,70) - JVS(104) = B(321)+B(335)-B(339) -! JVS(105) = Jac_FULL(27,72) - JVS(105) = 0 -! JVS(106) = Jac_FULL(27,73) - JVS(106) = 0.25*B(327) -! JVS(107) = Jac_FULL(28,28) - JVS(107) = -B(116)-B(124) -! JVS(108) = Jac_FULL(28,68) - JVS(108) = B(122) -! JVS(109) = Jac_FULL(28,70) - JVS(109) = -B(117) -! JVS(110) = Jac_FULL(28,72) - JVS(110) = B(123) -! JVS(111) = Jac_FULL(29,1) - JVS(111) = B(26) -! JVS(112) = Jac_FULL(29,19) - JVS(112) = B(27)+B(28) -! JVS(113) = Jac_FULL(29,29) - JVS(113) = -B(22)-B(24) -! JVS(114) = Jac_FULL(29,34) - JVS(114) = -B(23)+B(29) -! JVS(115) = Jac_FULL(29,61) - JVS(115) = 0 -! JVS(116) = Jac_FULL(29,71) - JVS(116) = B(8) -! JVS(117) = Jac_FULL(29,72) - JVS(117) = B(1)-B(25) -! JVS(118) = Jac_FULL(29,74) - JVS(118) = B(3) -! JVS(119) = Jac_FULL(30,30) - JVS(119) = -B(9)-B(45) -! JVS(120) = Jac_FULL(30,35) - JVS(120) = 0.02*B(285) -! JVS(121) = Jac_FULL(30,37) - JVS(121) = 0.02*B(301) -! JVS(122) = Jac_FULL(30,39) - JVS(122) = 0.09*B(182) -! JVS(123) = Jac_FULL(30,61) - JVS(123) = B(43) -! JVS(124) = Jac_FULL(30,69) - JVS(124) = B(42)+B(44) -! JVS(125) = Jac_FULL(30,70) - JVS(125) = -B(46) -! JVS(126) = Jac_FULL(30,74) - JVS(126) = 0.09*B(183)+0.02*B(286)+0.02*B(302) -! JVS(127) = Jac_FULL(31,31) - JVS(127) = -B(86)-B(168)-B(176) -! JVS(128) = Jac_FULL(31,70) - JVS(128) = -B(87) -! JVS(129) = Jac_FULL(31,71) - JVS(129) = -B(169) -! JVS(130) = Jac_FULL(31,74) - JVS(130) = -B(177) -! JVS(131) = Jac_FULL(32,32) - JVS(131) = -B(313)-B(315)-2*B(317) -! JVS(132) = Jac_FULL(32,39) - JVS(132) = B(120) -! JVS(133) = Jac_FULL(32,69) - JVS(133) = -B(316) -! JVS(134) = Jac_FULL(32,70) - JVS(134) = B(121) -! JVS(135) = Jac_FULL(32,73) - JVS(135) = -B(314) -! JVS(136) = Jac_FULL(33,32) - JVS(136) = 0.046*B(313) -! JVS(137) = Jac_FULL(33,33) - JVS(137) = -B(320) -! JVS(138) = Jac_FULL(33,39) - JVS(138) = B(174) -! JVS(139) = Jac_FULL(33,69) - JVS(139) = 0 -! JVS(140) = Jac_FULL(33,70) - JVS(140) = -B(321) -! JVS(141) = Jac_FULL(33,71) - JVS(141) = B(175) -! JVS(142) = Jac_FULL(33,73) - JVS(142) = 0.046*B(314) -! JVS(143) = Jac_FULL(34,26) - JVS(143) = B(68) -! JVS(144) = Jac_FULL(34,29) - JVS(144) = -B(22)+B(24) -! JVS(145) = Jac_FULL(34,34) - JVS(145) = -B(23)-B(49) -! JVS(146) = Jac_FULL(34,61) - JVS(146) = 0 -! JVS(147) = Jac_FULL(34,69) - JVS(147) = 2*B(36)+B(57)+B(70) -! JVS(148) = Jac_FULL(34,70) - JVS(148) = B(34)+B(69)+B(71) -! JVS(149) = Jac_FULL(34,71) - JVS(149) = B(7)+B(55)+B(58) -! JVS(150) = Jac_FULL(34,72) - JVS(150) = B(25)+B(56) -! JVS(151) = Jac_FULL(34,73) - JVS(151) = B(32)-B(50) -! JVS(152) = Jac_FULL(34,74) - JVS(152) = B(2)+B(3)+B(33)+B(35)+2*B(37) -! JVS(153) = Jac_FULL(35,35) - JVS(153) = -B(281)-B(283)-B(285) -! JVS(154) = Jac_FULL(35,70) - JVS(154) = -B(282) -! JVS(155) = Jac_FULL(35,71) - JVS(155) = -B(284) -! JVS(156) = Jac_FULL(35,74) - JVS(156) = -B(286) -! JVS(157) = Jac_FULL(36,18) - JVS(157) = B(340) -! JVS(158) = Jac_FULL(36,31) - JVS(158) = 0.42*B(176) -! JVS(159) = Jac_FULL(36,33) - JVS(159) = 0 -! JVS(160) = Jac_FULL(36,35) - JVS(160) = 0.14*B(285) -! JVS(161) = Jac_FULL(36,36) - JVS(161) = -B(74) -! JVS(162) = Jac_FULL(36,37) - JVS(162) = 0.14*B(301) -! JVS(163) = Jac_FULL(36,38) - JVS(163) = 0.33*B(178) -! JVS(164) = Jac_FULL(36,39) - JVS(164) = 0.14*B(182) -! JVS(165) = Jac_FULL(36,42) - JVS(165) = 1.87*B(17)+1.55*B(18)+2*B(104)+2*B(160) -! JVS(166) = Jac_FULL(36,44) - JVS(166) = 0.22*B(324) -! JVS(167) = Jac_FULL(36,55) - JVS(167) = 0.25*B(326)+0.5*B(330) -! JVS(168) = Jac_FULL(36,57) - JVS(168) = B(19)+B(106)+B(162) -! JVS(169) = Jac_FULL(36,58) - JVS(169) = B(10)+B(11)+B(98)+B(156) -! JVS(170) = Jac_FULL(36,59) - JVS(170) = 0.95*B(144)+0.475*B(235)+0.95*B(258) -! JVS(171) = Jac_FULL(36,63) - JVS(171) = 0.23*B(180) -! JVS(172) = Jac_FULL(36,65) - JVS(172) = B(12) -! JVS(173) = Jac_FULL(36,67) - JVS(173) = 0.475*B(236) -! JVS(174) = Jac_FULL(36,68) - JVS(174) = 0.95*B(259) -! JVS(175) = Jac_FULL(36,69) - JVS(175) = 0 -! JVS(176) = Jac_FULL(36,70) - JVS(176) = -B(75)+B(99)+2*B(105)+B(107)+B(341) -! JVS(177) = Jac_FULL(36,71) - JVS(177) = B(157)+2*B(161)+B(163) -! JVS(178) = Jac_FULL(36,73) - JVS(178) = 0.95*B(145)+0.25*B(327) -! JVS(179) = Jac_FULL(36,74) - JVS(179) = 0.42*B(177)+0.33*B(179)+0.23*B(181)+0.14*B(183)+0.14*B(286)+0.14*B(302)+0.22*B(325) -! JVS(180) = Jac_FULL(37,37) - JVS(180) = -B(297)-B(299)-B(301) -! JVS(181) = Jac_FULL(37,70) - JVS(181) = -B(298) -! JVS(182) = Jac_FULL(37,71) - JVS(182) = -B(300) -! JVS(183) = Jac_FULL(37,74) - JVS(183) = -B(302) -! JVS(184) = Jac_FULL(38,37) - JVS(184) = 0.46*B(301) -! JVS(185) = Jac_FULL(38,38) - JVS(185) = -B(88)-B(170)-B(178) -! JVS(186) = Jac_FULL(38,70) - JVS(186) = -B(89) -! JVS(187) = Jac_FULL(38,71) - JVS(187) = -B(171) -! JVS(188) = Jac_FULL(38,74) - JVS(188) = -B(179)+0.46*B(302) -! JVS(189) = Jac_FULL(39,39) - JVS(189) = -B(120)-B(174)-B(182) -! JVS(190) = Jac_FULL(39,70) - JVS(190) = -B(121) -! JVS(191) = Jac_FULL(39,71) - JVS(191) = -B(175) -! JVS(192) = Jac_FULL(39,74) - JVS(192) = -B(183) -! JVS(193) = Jac_FULL(40,20) - JVS(193) = 2*B(62) -! JVS(194) = Jac_FULL(40,25) - JVS(194) = B(166) -! JVS(195) = Jac_FULL(40,40) - JVS(195) = -B(5)-B(66) -! JVS(196) = Jac_FULL(40,42) - JVS(196) = B(160) -! JVS(197) = Jac_FULL(40,45) - JVS(197) = B(164) -! JVS(198) = Jac_FULL(40,57) - JVS(198) = B(162) -! JVS(199) = Jac_FULL(40,58) - JVS(199) = B(156) -! JVS(200) = Jac_FULL(40,61) - JVS(200) = 2*B(63) -! JVS(201) = Jac_FULL(40,65) - JVS(201) = B(158) -! JVS(202) = Jac_FULL(40,69) - JVS(202) = B(57) -! JVS(203) = Jac_FULL(40,70) - JVS(203) = B(64)-B(67) -! JVS(204) = Jac_FULL(40,71) - JVS(204) = B(58)+B(157)+B(159)+B(161)+B(163)+B(165)+B(167) -! JVS(205) = Jac_FULL(40,72) - JVS(205) = B(65) -! JVS(206) = Jac_FULL(41,25) - JVS(206) = B(166) -! JVS(207) = Jac_FULL(41,41) - JVS(207) = -B(268)-B(270)-B(272)-B(274) -! JVS(208) = Jac_FULL(41,67) - JVS(208) = -B(273) -! JVS(209) = Jac_FULL(41,68) - JVS(209) = -B(275) -! JVS(210) = Jac_FULL(41,69) - JVS(210) = -B(271) -! JVS(211) = Jac_FULL(41,70) - JVS(211) = 0 -! JVS(212) = Jac_FULL(41,71) - JVS(212) = B(167) -! JVS(213) = Jac_FULL(41,72) - JVS(213) = -B(269) -! JVS(214) = Jac_FULL(42,42) - JVS(214) = -B(17)-B(18)-B(104)-B(160) -! JVS(215) = Jac_FULL(42,53) - JVS(215) = 0.16*B(146)+0.16*B(231)+0.16*B(254) -! JVS(216) = Jac_FULL(42,59) - JVS(216) = 0.89*B(144)+0.445*B(235)+0.89*B(258) -! JVS(217) = Jac_FULL(42,67) - JVS(217) = 0.16*B(232)+0.445*B(236) -! JVS(218) = Jac_FULL(42,68) - JVS(218) = 0.16*B(255)+0.89*B(259) -! JVS(219) = Jac_FULL(42,70) - JVS(219) = -B(105) -! JVS(220) = Jac_FULL(42,71) - JVS(220) = -B(161) -! JVS(221) = Jac_FULL(42,73) - JVS(221) = 0.89*B(145)+0.16*B(147) -! JVS(222) = Jac_FULL(43,13) - JVS(222) = 0.83*B(94) -! JVS(223) = Jac_FULL(43,43) - JVS(223) = -B(148)-B(206)-B(233)-B(256) -! JVS(224) = Jac_FULL(43,67) - JVS(224) = -B(234) -! JVS(225) = Jac_FULL(43,68) - JVS(225) = -B(257) -! JVS(226) = Jac_FULL(43,69) - JVS(226) = -B(207) -! JVS(227) = Jac_FULL(43,70) - JVS(227) = 0.83*B(95) -! JVS(228) = Jac_FULL(43,73) - JVS(228) = -B(149) -! JVS(229) = Jac_FULL(44,9) - JVS(229) = B(318) -! JVS(230) = Jac_FULL(44,32) - JVS(230) = B(313)+2*B(317) -! JVS(231) = Jac_FULL(44,37) - JVS(231) = 0.79*B(301) -! JVS(232) = Jac_FULL(44,39) - JVS(232) = 0.65*B(182) -! JVS(233) = Jac_FULL(44,44) - JVS(233) = -B(322)-B(324) -! JVS(234) = Jac_FULL(44,62) - JVS(234) = 0.4*B(303)+0.6*B(307)+0.6*B(309)+0.6*B(311) -! JVS(235) = Jac_FULL(44,67) - JVS(235) = 0.6*B(308) -! JVS(236) = Jac_FULL(44,68) - JVS(236) = 0.6*B(310) -! JVS(237) = Jac_FULL(44,69) - JVS(237) = 0 -! JVS(238) = Jac_FULL(44,70) - JVS(238) = B(319)-B(323) -! JVS(239) = Jac_FULL(44,71) - JVS(239) = 0.6*B(312) -! JVS(240) = Jac_FULL(44,73) - JVS(240) = 0.4*B(304)+B(314) -! JVS(241) = Jac_FULL(44,74) - JVS(241) = 0.65*B(183)+0.79*B(302)-B(325) -! JVS(242) = Jac_FULL(45,43) - JVS(242) = 0.806*B(148)+0.806*B(233)+0.806*B(256) -! JVS(243) = Jac_FULL(45,45) - JVS(243) = -B(20)-B(108)-B(164) -! JVS(244) = Jac_FULL(45,53) - JVS(244) = 0.7*B(146)+0.7*B(231)+0.7*B(254) -! JVS(245) = Jac_FULL(45,67) - JVS(245) = 0.7*B(232)+0.806*B(234) -! JVS(246) = Jac_FULL(45,68) - JVS(246) = 0.7*B(255)+0.806*B(257) -! JVS(247) = Jac_FULL(45,69) - JVS(247) = 0 -! JVS(248) = Jac_FULL(45,70) - JVS(248) = -B(109) -! JVS(249) = Jac_FULL(45,71) - JVS(249) = -B(165) -! JVS(250) = Jac_FULL(45,73) - JVS(250) = 0.7*B(147)+0.806*B(149) -! JVS(251) = Jac_FULL(46,10) - JVS(251) = B(82) -! JVS(252) = Jac_FULL(46,46) - JVS(252) = -B(132)-B(190)-B(217)-B(241) -! JVS(253) = Jac_FULL(46,67) - JVS(253) = -B(218) -! JVS(254) = Jac_FULL(46,68) - JVS(254) = -B(242) -! JVS(255) = Jac_FULL(46,69) - JVS(255) = -B(191) -! JVS(256) = Jac_FULL(46,70) - JVS(256) = B(83) -! JVS(257) = Jac_FULL(46,73) - JVS(257) = -B(133) -! JVS(258) = Jac_FULL(47,11) - JVS(258) = B(84) -! JVS(259) = Jac_FULL(47,47) - JVS(259) = -B(134)-B(192)-B(219)-B(243) -! JVS(260) = Jac_FULL(47,67) - JVS(260) = -B(220) -! JVS(261) = Jac_FULL(47,68) - JVS(261) = -B(244) -! JVS(262) = Jac_FULL(47,69) - JVS(262) = -B(193) -! JVS(263) = Jac_FULL(47,70) - JVS(263) = B(85) -! JVS(264) = Jac_FULL(47,73) - JVS(264) = -B(135) -! JVS(265) = Jac_FULL(48,48) - JVS(265) = -B(140)-B(198)-B(225)-B(249) -! JVS(266) = Jac_FULL(48,63) - JVS(266) = B(90) -! JVS(267) = Jac_FULL(48,67) - JVS(267) = -B(226) -! JVS(268) = Jac_FULL(48,68) - JVS(268) = -B(250) -! JVS(269) = Jac_FULL(48,69) - JVS(269) = -B(199) -! JVS(270) = Jac_FULL(48,70) - JVS(270) = B(91) -! JVS(271) = Jac_FULL(48,73) - JVS(271) = -B(141) -! JVS(272) = Jac_FULL(49,17) - JVS(272) = 0.025*B(80) -! JVS(273) = Jac_FULL(49,35) - JVS(273) = 0.53*B(285) -! JVS(274) = Jac_FULL(49,46) - JVS(274) = 0.69*B(132)+0.75*B(217)+0.75*B(241) -! JVS(275) = Jac_FULL(49,47) - JVS(275) = 1.06*B(134)+1.39*B(219)+1.39*B(243) -! JVS(276) = Jac_FULL(49,48) - JVS(276) = 0.1*B(140)+0.55*B(225)+0.55*B(249) -! JVS(277) = Jac_FULL(49,49) - JVS(277) = -B(16)-B(102) -! JVS(278) = Jac_FULL(49,60) - JVS(278) = 0.8*B(287)+B(291)+B(293)+B(295) -! JVS(279) = Jac_FULL(49,63) - JVS(279) = 0.1*B(180) -! JVS(280) = Jac_FULL(49,67) - JVS(280) = 0.26*B(215)+0.75*B(218)+1.39*B(220)+0.55*B(226)+B(292) -! JVS(281) = Jac_FULL(49,68) - JVS(281) = 0.26*B(239)+0.75*B(242)+1.39*B(244)+0.55*B(250)+B(294) -! JVS(282) = Jac_FULL(49,69) - JVS(282) = 0 -! JVS(283) = Jac_FULL(49,70) - JVS(283) = 0.025*B(81)-B(103) -! JVS(284) = Jac_FULL(49,71) - JVS(284) = B(296) -! JVS(285) = Jac_FULL(49,73) - JVS(285) = 0.25*B(130)+0.69*B(133)+1.06*B(135)+0.1*B(141)+0.8*B(288) -! JVS(286) = Jac_FULL(49,74) - JVS(286) = 0.1*B(181)+0.53*B(286) -! JVS(287) = Jac_FULL(49,75) - JVS(287) = 0.8*B(21) -! JVS(288) = Jac_FULL(49,76) - JVS(288) = 0.25*B(131)+0.26*B(216)+0.26*B(240) -! JVS(289) = Jac_FULL(50,31) - JVS(289) = B(86) -! JVS(290) = Jac_FULL(50,50) - JVS(290) = -B(136)-B(194)-B(221)-B(245) -! JVS(291) = Jac_FULL(50,67) - JVS(291) = -B(222) -! JVS(292) = Jac_FULL(50,68) - JVS(292) = -B(246) -! JVS(293) = Jac_FULL(50,69) - JVS(293) = -B(195) -! JVS(294) = Jac_FULL(50,70) - JVS(294) = B(87) -! JVS(295) = Jac_FULL(50,71) - JVS(295) = 0 -! JVS(296) = Jac_FULL(50,73) - JVS(296) = -B(137) -! JVS(297) = Jac_FULL(50,74) - JVS(297) = 0 -! JVS(298) = Jac_FULL(51,38) - JVS(298) = B(88) -! JVS(299) = Jac_FULL(51,51) - JVS(299) = -B(138)-B(196)-B(223)-B(247) -! JVS(300) = Jac_FULL(51,67) - JVS(300) = -B(224) -! JVS(301) = Jac_FULL(51,68) - JVS(301) = -B(248) -! JVS(302) = Jac_FULL(51,69) - JVS(302) = -B(197) -! JVS(303) = Jac_FULL(51,70) - JVS(303) = B(89) -! JVS(304) = Jac_FULL(51,71) - JVS(304) = 0 -! JVS(305) = Jac_FULL(51,73) - JVS(305) = -B(139) -! JVS(306) = Jac_FULL(51,74) - JVS(306) = 0 -! JVS(307) = Jac_FULL(52,10) - JVS(307) = 0.25*B(82) -! JVS(308) = Jac_FULL(52,11) - JVS(308) = 0.75*B(84) -! JVS(309) = Jac_FULL(52,25) - JVS(309) = 0.9*B(96) -! JVS(310) = Jac_FULL(52,28) - JVS(310) = B(116) -! JVS(311) = Jac_FULL(52,52) - JVS(311) = -B(260)-B(262)-B(264)-B(266) -! JVS(312) = Jac_FULL(52,59) - JVS(312) = 2*B(144)+B(235)+2*B(258) -! JVS(313) = Jac_FULL(52,67) - JVS(313) = B(236)-B(263) -! JVS(314) = Jac_FULL(52,68) - JVS(314) = 2*B(259)-B(265) -! JVS(315) = Jac_FULL(52,69) - JVS(315) = -B(261) -! JVS(316) = Jac_FULL(52,70) - JVS(316) = 0.25*B(83)+0.75*B(85)+0.9*B(97)+B(117) -! JVS(317) = Jac_FULL(52,71) - JVS(317) = 0 -! JVS(318) = Jac_FULL(52,72) - JVS(318) = 0 -! JVS(319) = Jac_FULL(52,73) - JVS(319) = 2*B(145)-B(267) -! JVS(320) = Jac_FULL(53,12) - JVS(320) = 0.75*B(92) -! JVS(321) = Jac_FULL(53,53) - JVS(321) = -B(146)-B(204)-B(231)-B(254) -! JVS(322) = Jac_FULL(53,67) - JVS(322) = -B(232) -! JVS(323) = Jac_FULL(53,68) - JVS(323) = -B(255) -! JVS(324) = Jac_FULL(53,69) - JVS(324) = -B(205) -! JVS(325) = Jac_FULL(53,70) - JVS(325) = 0.75*B(93) -! JVS(326) = Jac_FULL(53,73) - JVS(326) = -B(147) -! JVS(327) = Jac_FULL(54,41) - JVS(327) = B(270) -! JVS(328) = Jac_FULL(54,43) - JVS(328) = B(206) -! JVS(329) = Jac_FULL(54,46) - JVS(329) = B(190) -! JVS(330) = Jac_FULL(54,47) - JVS(330) = B(192) -! JVS(331) = Jac_FULL(54,48) - JVS(331) = B(198) -! JVS(332) = Jac_FULL(54,50) - JVS(332) = B(194) -! JVS(333) = Jac_FULL(54,51) - JVS(333) = B(196) -! JVS(334) = Jac_FULL(54,52) - JVS(334) = B(260) -! JVS(335) = Jac_FULL(54,53) - JVS(335) = B(204) -! JVS(336) = Jac_FULL(54,54) - JVS(336) = -B(14)-B(112) -! JVS(337) = Jac_FULL(54,59) - JVS(337) = B(208) -! JVS(338) = Jac_FULL(54,60) - JVS(338) = B(289) -! JVS(339) = Jac_FULL(54,62) - JVS(339) = B(305) -! JVS(340) = Jac_FULL(54,63) - JVS(340) = 0 -! JVS(341) = Jac_FULL(54,64) - JVS(341) = B(200) -! JVS(342) = Jac_FULL(54,66) - JVS(342) = B(186) -! JVS(343) = Jac_FULL(54,67) - JVS(343) = 0 -! JVS(344) = Jac_FULL(54,68) - JVS(344) = 0 -! JVS(345) = Jac_FULL(54,69) - JVS(345) = B(187)+B(188)+B(191)+B(193)+B(195)+B(197)+B(199)+B(201)+B(205)+B(207)+B(209)+B(261)+B(271)+B(290)+B(306) -! JVS(346) = Jac_FULL(54,70) - JVS(346) = -B(113) -! JVS(347) = Jac_FULL(54,71) - JVS(347) = 0 -! JVS(348) = Jac_FULL(54,72) - JVS(348) = 0 -! JVS(349) = Jac_FULL(54,73) - JVS(349) = 0 -! JVS(350) = Jac_FULL(54,74) - JVS(350) = 0 -! JVS(351) = Jac_FULL(54,76) - JVS(351) = B(189) -! JVS(352) = Jac_FULL(55,16) - JVS(352) = B(336) -! JVS(353) = Jac_FULL(55,23) - JVS(353) = B(333) -! JVS(354) = Jac_FULL(55,39) - JVS(354) = 0.1*B(182) -! JVS(355) = Jac_FULL(55,44) - JVS(355) = B(322) -! JVS(356) = Jac_FULL(55,55) - JVS(356) = -B(326)-B(328)-2*B(330)-B(331) -! JVS(357) = Jac_FULL(55,62) - JVS(357) = 0 -! JVS(358) = Jac_FULL(55,67) - JVS(358) = 0 -! JVS(359) = Jac_FULL(55,68) - JVS(359) = 0 -! JVS(360) = Jac_FULL(55,69) - JVS(360) = -B(329) -! JVS(361) = Jac_FULL(55,70) - JVS(361) = B(323)+B(337) -! JVS(362) = Jac_FULL(55,71) - JVS(362) = 0 -! JVS(363) = Jac_FULL(55,72) - JVS(363) = -B(332) -! JVS(364) = Jac_FULL(55,73) - JVS(364) = -B(327) -! JVS(365) = Jac_FULL(55,74) - JVS(365) = 0.1*B(183) -! JVS(366) = Jac_FULL(56,31) - JVS(366) = B(168) -! JVS(367) = Jac_FULL(56,35) - JVS(367) = B(283) -! JVS(368) = Jac_FULL(56,37) - JVS(368) = B(299) -! JVS(369) = Jac_FULL(56,38) - JVS(369) = B(170) -! JVS(370) = Jac_FULL(56,56) - JVS(370) = -B(154)-B(210)-B(276)-B(278)-2*B(280) -! JVS(371) = Jac_FULL(56,63) - JVS(371) = B(172) -! JVS(372) = Jac_FULL(56,67) - JVS(372) = -B(277) -! JVS(373) = Jac_FULL(56,68) - JVS(373) = -B(279) -! JVS(374) = Jac_FULL(56,69) - JVS(374) = -B(211) -! JVS(375) = Jac_FULL(56,70) - JVS(375) = 0 -! JVS(376) = Jac_FULL(56,71) - JVS(376) = B(169)+B(171)+B(173)+B(284)+B(300) -! JVS(377) = Jac_FULL(56,73) - JVS(377) = -B(155) -! JVS(378) = Jac_FULL(56,74) - JVS(378) = 0 -! JVS(379) = Jac_FULL(57,27) - JVS(379) = B(338) -! JVS(380) = Jac_FULL(57,33) - JVS(380) = 0 -! JVS(381) = Jac_FULL(57,39) - JVS(381) = 0 -! JVS(382) = Jac_FULL(57,43) - JVS(382) = 0.45*B(148)+0.45*B(233)+0.45*B(256) -! JVS(383) = Jac_FULL(57,44) - JVS(383) = 0.9*B(324) -! JVS(384) = Jac_FULL(57,53) - JVS(384) = 0.17*B(146)+0.17*B(231)+0.17*B(254) -! JVS(385) = Jac_FULL(57,55) - JVS(385) = 0.5*B(326)+B(330) -! JVS(386) = Jac_FULL(57,57) - JVS(386) = -B(19)-B(106)-B(162) -! JVS(387) = Jac_FULL(57,59) - JVS(387) = 0.11*B(144)+0.055*B(235)+0.11*B(258) -! JVS(388) = Jac_FULL(57,62) - JVS(388) = 0 -! JVS(389) = Jac_FULL(57,64) - JVS(389) = B(152)+0.75*B(227)+B(251) -! JVS(390) = Jac_FULL(57,67) - JVS(390) = 0.75*B(228)+0.17*B(232)+0.45*B(234)+0.055*B(236) -! JVS(391) = Jac_FULL(57,68) - JVS(391) = B(252)+0.17*B(255)+0.45*B(257)+0.11*B(259) -! JVS(392) = Jac_FULL(57,69) - JVS(392) = 0 -! JVS(393) = Jac_FULL(57,70) - JVS(393) = -B(107)+B(339) -! JVS(394) = Jac_FULL(57,71) - JVS(394) = -B(163) -! JVS(395) = Jac_FULL(57,72) - JVS(395) = 0 -! JVS(396) = Jac_FULL(57,73) - JVS(396) = 0.11*B(145)+0.17*B(147)+0.45*B(149)+B(153)+0.5*B(327) -! JVS(397) = Jac_FULL(57,74) - JVS(397) = 0.9*B(325) -! JVS(398) = Jac_FULL(58,17) - JVS(398) = 0.009*B(80) -! JVS(399) = Jac_FULL(58,18) - JVS(399) = B(340) -! JVS(400) = Jac_FULL(58,22) - JVS(400) = B(13)+0.5*B(110) -! JVS(401) = Jac_FULL(58,28) - JVS(401) = B(116) -! JVS(402) = Jac_FULL(58,31) - JVS(402) = B(176) -! JVS(403) = Jac_FULL(58,32) - JVS(403) = B(313)+B(317) -! JVS(404) = Jac_FULL(58,33) - JVS(404) = 0 -! JVS(405) = Jac_FULL(58,37) - JVS(405) = 0.04*B(301) -! JVS(406) = Jac_FULL(58,38) - JVS(406) = 0.53*B(178) -! JVS(407) = Jac_FULL(58,39) - JVS(407) = 0.58*B(182) -! JVS(408) = Jac_FULL(58,41) - JVS(408) = B(272) -! JVS(409) = Jac_FULL(58,42) - JVS(409) = 0.13*B(17)+0.45*B(18) -! JVS(410) = Jac_FULL(58,43) - JVS(410) = B(233) -! JVS(411) = Jac_FULL(58,46) - JVS(411) = 0.77*B(217) -! JVS(412) = Jac_FULL(58,47) - JVS(412) = 0.04*B(134)+0.8*B(219) -! JVS(413) = Jac_FULL(58,48) - JVS(413) = 0.28*B(140)+0.89*B(225)+0.14*B(249) -! JVS(414) = Jac_FULL(58,50) - JVS(414) = 1.6*B(136)+1.55*B(221)+0.8*B(245) -! JVS(415) = Jac_FULL(58,51) - JVS(415) = B(138)+1.25*B(223)+0.5*B(247) -! JVS(416) = Jac_FULL(58,52) - JVS(416) = B(262) -! JVS(417) = Jac_FULL(58,53) - JVS(417) = B(231) -! JVS(418) = Jac_FULL(58,55) - JVS(418) = 0.75*B(326)+0.5*B(330) -! JVS(419) = Jac_FULL(58,56) - JVS(419) = B(154)+1.75*B(276)+B(278)+2*B(280) -! JVS(420) = Jac_FULL(58,58) - JVS(420) = -B(10)-B(11)-B(98)-B(156) -! JVS(421) = Jac_FULL(58,59) - JVS(421) = 0.5*B(235) -! JVS(422) = Jac_FULL(58,60) - JVS(422) = B(291) -! JVS(423) = Jac_FULL(58,62) - JVS(423) = 0.25*B(303)+1.4*B(307)+0.4*B(309)+0.4*B(311) -! JVS(424) = Jac_FULL(58,63) - JVS(424) = 0.18*B(180) -! JVS(425) = Jac_FULL(58,64) - JVS(425) = 0.75*B(227) -! JVS(426) = Jac_FULL(58,66) - JVS(426) = 0.75*B(213) -! JVS(427) = Jac_FULL(58,67) - JVS(427) = B(128)+1.5*B(212)+0.75*B(214)+0.84*B(215)+0.77*B(218)+0.8*B(220)+1.55*B(222)+1.25*B(224)+0.89*B(226)+0.75& - &*B(228)+B(229)+B(232)+B(234)+0.5*B(236)+B(263)+B(273)+1.75*B(277)+B(292)+1.4*B(308) -! JVS(428) = Jac_FULL(58,68) - JVS(428) = B(230)+0.8*B(246)+0.5*B(248)+0.14*B(250)+B(279)+0.4*B(310) -! JVS(429) = Jac_FULL(58,69) - JVS(429) = 0 -! JVS(430) = Jac_FULL(58,70) - JVS(430) = 0.009*B(81)-B(99)+0.5*B(111)+B(117)+B(341) -! JVS(431) = Jac_FULL(58,71) - JVS(431) = -B(157)+0.4*B(312) -! JVS(432) = Jac_FULL(58,72) - JVS(432) = 0 -! JVS(433) = Jac_FULL(58,73) - JVS(433) = B(129)+0.09*B(130)+0.04*B(135)+1.6*B(137)+B(139)+0.28*B(141)+B(155)+0.25*B(304)+B(314)+0.75*B(327) -! JVS(434) = Jac_FULL(58,74) - JVS(434) = B(177)+0.53*B(179)+0.18*B(181)+0.58*B(183)+0.04*B(302) -! JVS(435) = Jac_FULL(58,76) - JVS(435) = 0.09*B(131)+0.84*B(216) -! JVS(436) = Jac_FULL(59,14) - JVS(436) = B(127) -! JVS(437) = Jac_FULL(59,25) - JVS(437) = 0.9*B(96) -! JVS(438) = Jac_FULL(59,45) - JVS(438) = B(20)+B(108)+B(164) -! JVS(439) = Jac_FULL(59,53) - JVS(439) = 0 -! JVS(440) = Jac_FULL(59,59) - JVS(440) = -B(125)-B(144)-B(208)-B(235)-B(258) -! JVS(441) = Jac_FULL(59,67) - JVS(441) = -B(236) -! JVS(442) = Jac_FULL(59,68) - JVS(442) = -B(259) -! JVS(443) = Jac_FULL(59,69) - JVS(443) = -B(209) -! JVS(444) = Jac_FULL(59,70) - JVS(444) = 0.9*B(97)+B(109) -! JVS(445) = Jac_FULL(59,71) - JVS(445) = B(165) -! JVS(446) = Jac_FULL(59,72) - JVS(446) = -B(126) -! JVS(447) = Jac_FULL(59,73) - JVS(447) = -B(145) -! JVS(448) = Jac_FULL(60,35) - JVS(448) = B(281) -! JVS(449) = Jac_FULL(60,60) - JVS(449) = -B(287)-B(289)-B(291)-B(293)-B(295) -! JVS(450) = Jac_FULL(60,67) - JVS(450) = -B(292) -! JVS(451) = Jac_FULL(60,68) - JVS(451) = -B(294) -! JVS(452) = Jac_FULL(60,69) - JVS(452) = -B(290) -! JVS(453) = Jac_FULL(60,70) - JVS(453) = B(282) -! JVS(454) = Jac_FULL(60,71) - JVS(454) = -B(296) -! JVS(455) = Jac_FULL(60,73) - JVS(455) = -B(288) -! JVS(456) = Jac_FULL(60,74) - JVS(456) = 0 -! JVS(457) = Jac_FULL(61,8) - JVS(457) = B(78) -! JVS(458) = Jac_FULL(61,10) - JVS(458) = B(82) -! JVS(459) = Jac_FULL(61,11) - JVS(459) = B(84) -! JVS(460) = Jac_FULL(61,17) - JVS(460) = B(80) -! JVS(461) = Jac_FULL(61,19) - JVS(461) = -B(30) -! JVS(462) = Jac_FULL(61,20) - JVS(462) = -B(62) -! JVS(463) = Jac_FULL(61,21) - JVS(463) = B(114) -! JVS(464) = Jac_FULL(61,24) - JVS(464) = B(76) -! JVS(465) = Jac_FULL(61,26) - JVS(465) = B(68) -! JVS(466) = Jac_FULL(61,30) - JVS(466) = B(45) -! JVS(467) = Jac_FULL(61,34) - JVS(467) = 0 -! JVS(468) = Jac_FULL(61,35) - JVS(468) = 0 -! JVS(469) = Jac_FULL(61,37) - JVS(469) = 0 -! JVS(470) = Jac_FULL(61,38) - JVS(470) = 0 -! JVS(471) = Jac_FULL(61,39) - JVS(471) = 0 -! JVS(472) = Jac_FULL(61,40) - JVS(472) = B(66) -! JVS(473) = Jac_FULL(61,42) - JVS(473) = B(104) -! JVS(474) = Jac_FULL(61,45) - JVS(474) = B(108) -! JVS(475) = Jac_FULL(61,49) - JVS(475) = B(102) -! JVS(476) = Jac_FULL(61,53) - JVS(476) = 0 -! JVS(477) = Jac_FULL(61,57) - JVS(477) = B(106) -! JVS(478) = Jac_FULL(61,58) - JVS(478) = B(98) -! JVS(479) = Jac_FULL(61,59) - JVS(479) = 0 -! JVS(480) = Jac_FULL(61,60) - JVS(480) = 0 -! JVS(481) = Jac_FULL(61,61) - JVS(481) = -B(31)-B(63) -! JVS(482) = Jac_FULL(61,62) - JVS(482) = 0 -! JVS(483) = Jac_FULL(61,63) - JVS(483) = 0 -! JVS(484) = Jac_FULL(61,64) - JVS(484) = 0 -! JVS(485) = Jac_FULL(61,65) - JVS(485) = B(100) -! JVS(486) = Jac_FULL(61,66) - JVS(486) = 0 -! JVS(487) = Jac_FULL(61,67) - JVS(487) = 0 -! JVS(488) = Jac_FULL(61,68) - JVS(488) = 0 -! JVS(489) = Jac_FULL(61,69) - JVS(489) = B(70) -! JVS(490) = Jac_FULL(61,70) - JVS(490) = B(46)+B(67)+B(69)+B(71)+B(77)+B(79)+B(81)+B(83)+B(85)+B(99)+B(101)+B(103)+B(105)+B(107)+B(109)+B(115) -! JVS(491) = Jac_FULL(61,71) - JVS(491) = 0 -! JVS(492) = Jac_FULL(61,72) - JVS(492) = 0 -! JVS(493) = Jac_FULL(61,73) - JVS(493) = 0 -! JVS(494) = Jac_FULL(61,74) - JVS(494) = 0 -! JVS(495) = Jac_FULL(61,75) - JVS(495) = 0 -! JVS(496) = Jac_FULL(61,76) - JVS(496) = 0 -! JVS(497) = Jac_FULL(62,37) - JVS(497) = B(297) -! JVS(498) = Jac_FULL(62,62) - JVS(498) = -B(303)-B(305)-B(307)-B(309)-B(311) -! JVS(499) = Jac_FULL(62,67) - JVS(499) = -B(308) -! JVS(500) = Jac_FULL(62,68) - JVS(500) = -B(310) -! JVS(501) = Jac_FULL(62,69) - JVS(501) = -B(306) -! JVS(502) = Jac_FULL(62,70) - JVS(502) = B(298) -! JVS(503) = Jac_FULL(62,71) - JVS(503) = -B(312) -! JVS(504) = Jac_FULL(62,73) - JVS(504) = -B(304) -! JVS(505) = Jac_FULL(62,74) - JVS(505) = 0 -! JVS(506) = Jac_FULL(63,62) - JVS(506) = 0.25*B(303)+0.4*B(307)+0.4*B(309)+0.4*B(311) -! JVS(507) = Jac_FULL(63,63) - JVS(507) = -B(90)-B(172)-B(180) -! JVS(508) = Jac_FULL(63,67) - JVS(508) = 0.4*B(308) -! JVS(509) = Jac_FULL(63,68) - JVS(509) = 0.4*B(310) -! JVS(510) = Jac_FULL(63,69) - JVS(510) = 0 -! JVS(511) = Jac_FULL(63,70) - JVS(511) = -B(91) -! JVS(512) = Jac_FULL(63,71) - JVS(512) = -B(173)+0.4*B(312) -! JVS(513) = Jac_FULL(63,73) - JVS(513) = 0.25*B(304) -! JVS(514) = Jac_FULL(63,74) - JVS(514) = -B(181) -! JVS(515) = Jac_FULL(64,35) - JVS(515) = 0.42*B(285) -! JVS(516) = Jac_FULL(64,37) - JVS(516) = 0.42*B(301) -! JVS(517) = Jac_FULL(64,49) - JVS(517) = B(102) -! JVS(518) = Jac_FULL(64,60) - JVS(518) = 0 -! JVS(519) = Jac_FULL(64,63) - JVS(519) = 0 -! JVS(520) = Jac_FULL(64,64) - JVS(520) = -B(152)-B(200)-B(227)-B(251) -! JVS(521) = Jac_FULL(64,67) - JVS(521) = -B(228) -! JVS(522) = Jac_FULL(64,68) - JVS(522) = -B(252) -! JVS(523) = Jac_FULL(64,69) - JVS(523) = -B(201) -! JVS(524) = Jac_FULL(64,70) - JVS(524) = B(103) -! JVS(525) = Jac_FULL(64,71) - JVS(525) = 0 -! JVS(526) = Jac_FULL(64,73) - JVS(526) = -B(153) -! JVS(527) = Jac_FULL(64,74) - JVS(527) = 0.42*B(286)+0.42*B(302) -! JVS(528) = Jac_FULL(64,75) - JVS(528) = 0 -! JVS(529) = Jac_FULL(64,76) - JVS(529) = 0 -! JVS(530) = Jac_FULL(65,17) - JVS(530) = 0.075*B(80) -! JVS(531) = Jac_FULL(65,35) - JVS(531) = 0.65*B(285) -! JVS(532) = Jac_FULL(65,38) - JVS(532) = 0.5*B(178) -! JVS(533) = Jac_FULL(65,46) - JVS(533) = 0.38*B(132)+0.41*B(217)+0.41*B(241) -! JVS(534) = Jac_FULL(65,47) - JVS(534) = 0.35*B(134)+0.46*B(219)+0.46*B(243) -! JVS(535) = Jac_FULL(65,48) - JVS(535) = 1.45*B(140)+0.725*B(225)+0.725*B(249) -! JVS(536) = Jac_FULL(65,50) - JVS(536) = 0.2*B(136)+0.35*B(221)+0.6*B(245) -! JVS(537) = Jac_FULL(65,51) - JVS(537) = B(138)+0.75*B(223)+B(247) -! JVS(538) = Jac_FULL(65,54) - JVS(538) = B(14)+0.5*B(112) -! JVS(539) = Jac_FULL(65,56) - JVS(539) = B(154)+B(276)+B(278)+2*B(280) -! JVS(540) = Jac_FULL(65,59) - JVS(540) = 0 -! JVS(541) = Jac_FULL(65,60) - JVS(541) = 0.8*B(287)+B(291)+B(293)+B(295) -! JVS(542) = Jac_FULL(65,62) - JVS(542) = 0 -! JVS(543) = Jac_FULL(65,63) - JVS(543) = 0.72*B(180) -! JVS(544) = Jac_FULL(65,64) - JVS(544) = 0 -! JVS(545) = Jac_FULL(65,65) - JVS(545) = -B(12)-B(100)-B(158) -! JVS(546) = Jac_FULL(65,66) - JVS(546) = B(150)+0.75*B(213)+B(237) -! JVS(547) = Jac_FULL(65,67) - JVS(547) = 0.75*B(214)+0.77*B(215)+0.41*B(218)+0.46*B(220)+0.35*B(222)+0.75*B(224)+0.725*B(226)+B(277)+B(292) -! JVS(548) = Jac_FULL(65,68) - JVS(548) = B(238)+0.77*B(239)+0.41*B(242)+0.46*B(244)+0.6*B(246)+B(248)+0.725*B(250)+B(279)+B(294) -! JVS(549) = Jac_FULL(65,69) - JVS(549) = 0 -! JVS(550) = Jac_FULL(65,70) - JVS(550) = 0.075*B(81)-B(101)+0.5*B(113) -! JVS(551) = Jac_FULL(65,71) - JVS(551) = -B(159)+B(296) -! JVS(552) = Jac_FULL(65,72) - JVS(552) = 0 -! JVS(553) = Jac_FULL(65,73) - JVS(553) = 0.75*B(130)+0.38*B(133)+0.35*B(135)+0.2*B(137)+B(139)+1.45*B(141)+B(151)+B(155)+0.8*B(288) -! JVS(554) = Jac_FULL(65,74) - JVS(554) = 0.5*B(179)+0.72*B(181)+0.65*B(286) -! JVS(555) = Jac_FULL(65,75) - JVS(555) = 0.2*B(21) -! JVS(556) = Jac_FULL(65,76) - JVS(556) = 0.75*B(131)+0.77*B(216)+0.77*B(240) -! JVS(557) = Jac_FULL(66,8) - JVS(557) = B(78) -! JVS(558) = Jac_FULL(66,35) - JVS(558) = 0.2*B(285) -! JVS(559) = Jac_FULL(66,37) - JVS(559) = 0.16*B(301) -! JVS(560) = Jac_FULL(66,49) - JVS(560) = B(16) -! JVS(561) = Jac_FULL(66,60) - JVS(561) = 0 -! JVS(562) = Jac_FULL(66,63) - JVS(562) = 0 -! JVS(563) = Jac_FULL(66,66) - JVS(563) = -B(150)-B(186)-B(213)-B(237) -! JVS(564) = Jac_FULL(66,67) - JVS(564) = -B(214) -! JVS(565) = Jac_FULL(66,68) - JVS(565) = -B(238) -! JVS(566) = Jac_FULL(66,69) - JVS(566) = -B(187) -! JVS(567) = Jac_FULL(66,70) - JVS(567) = B(79) -! JVS(568) = Jac_FULL(66,71) - JVS(568) = 0 -! JVS(569) = Jac_FULL(66,73) - JVS(569) = -B(151) -! JVS(570) = Jac_FULL(66,74) - JVS(570) = 0.2*B(286)+0.16*B(302) -! JVS(571) = Jac_FULL(66,75) - JVS(571) = 0 -! JVS(572) = Jac_FULL(66,76) - JVS(572) = 0 -! JVS(573) = Jac_FULL(67,21) - JVS(573) = B(15) -! JVS(574) = Jac_FULL(67,22) - JVS(574) = 0.5*B(110) -! JVS(575) = Jac_FULL(67,24) - JVS(575) = B(76) -! JVS(576) = Jac_FULL(67,38) - JVS(576) = 0.22*B(178) -! JVS(577) = Jac_FULL(67,39) - JVS(577) = 0.08*B(182) -! JVS(578) = Jac_FULL(67,41) - JVS(578) = -B(272)+B(274) -! JVS(579) = Jac_FULL(67,43) - JVS(579) = -B(233)+B(256) -! JVS(580) = Jac_FULL(67,46) - JVS(580) = -B(217)+0.5*B(241) -! JVS(581) = Jac_FULL(67,47) - JVS(581) = -B(219)+0.5*B(243) -! JVS(582) = Jac_FULL(67,48) - JVS(582) = -B(225)+0.5*B(249) -! JVS(583) = Jac_FULL(67,50) - JVS(583) = -B(221)+0.5*B(245) -! JVS(584) = Jac_FULL(67,51) - JVS(584) = -B(223)+0.5*B(247) -! JVS(585) = Jac_FULL(67,52) - JVS(585) = -B(262)+B(264) -! JVS(586) = Jac_FULL(67,53) - JVS(586) = -B(231)+B(254) -! JVS(587) = Jac_FULL(67,56) - JVS(587) = -B(276)+0.5*B(278) -! JVS(588) = Jac_FULL(67,59) - JVS(588) = -B(235)+B(258) -! JVS(589) = Jac_FULL(67,60) - JVS(589) = -B(291)+B(293) -! JVS(590) = Jac_FULL(67,62) - JVS(590) = -B(307)+B(309) -! JVS(591) = Jac_FULL(67,63) - JVS(591) = 0.31*B(180) -! JVS(592) = Jac_FULL(67,64) - JVS(592) = -B(227)+0.5*B(251) -! JVS(593) = Jac_FULL(67,65) - JVS(593) = B(12) -! JVS(594) = Jac_FULL(67,66) - JVS(594) = -B(213)+0.5*B(237) -! JVS(595) = Jac_FULL(67,67) - JVS(595) = -B(128)-B(184)-2*B(212)-B(214)-B(215)-B(218)-B(220)-B(222)-B(224)-B(226)-B(228)-0.5*B(229)-B(232)-B(234)& - &-B(236)-B(263)-B(273)-B(277)-B(292)-B(308) -! JVS(596) = Jac_FULL(67,68) - JVS(596) = B(142)-0.5*B(230)+0.5*B(238)+0.5*B(239)+0.5*B(242)+0.5*B(244)+0.5*B(246)+0.5*B(248)+0.5*B(250)+0.5*B(252)+2& - &*B(253)+B(255)+B(257)+B(259)+B(265)+B(275)+0.5*B(279)+B(294)+B(310) -! JVS(597) = Jac_FULL(67,69) - JVS(597) = -B(185) -! JVS(598) = Jac_FULL(67,70) - JVS(598) = B(77)+0.5*B(111) -! JVS(599) = Jac_FULL(67,71) - JVS(599) = 0 -! JVS(600) = Jac_FULL(67,72) - JVS(600) = 0 -! JVS(601) = Jac_FULL(67,73) - JVS(601) = -B(129)+B(143) -! JVS(602) = Jac_FULL(67,74) - JVS(602) = 0.22*B(179)+0.31*B(181)+0.08*B(183) -! JVS(603) = Jac_FULL(67,75) - JVS(603) = 0 -! JVS(604) = Jac_FULL(67,76) - JVS(604) = -B(216)+0.5*B(240) -! JVS(605) = Jac_FULL(68,21) - JVS(605) = B(114) -! JVS(606) = Jac_FULL(68,28) - JVS(606) = B(124) -! JVS(607) = Jac_FULL(68,39) - JVS(607) = 0.1*B(182) -! JVS(608) = Jac_FULL(68,41) - JVS(608) = -B(274) -! JVS(609) = Jac_FULL(68,43) - JVS(609) = -B(256) -! JVS(610) = Jac_FULL(68,44) - JVS(610) = 0.1*B(324) -! JVS(611) = Jac_FULL(68,45) - JVS(611) = 0.02*B(20) -! JVS(612) = Jac_FULL(68,46) - JVS(612) = -B(241) -! JVS(613) = Jac_FULL(68,47) - JVS(613) = -B(243) -! JVS(614) = Jac_FULL(68,48) - JVS(614) = -B(249) -! JVS(615) = Jac_FULL(68,49) - JVS(615) = B(16) -! JVS(616) = Jac_FULL(68,50) - JVS(616) = -B(245) -! JVS(617) = Jac_FULL(68,51) - JVS(617) = -B(247) -! JVS(618) = Jac_FULL(68,52) - JVS(618) = -B(264) -! JVS(619) = Jac_FULL(68,53) - JVS(619) = -B(254) -! JVS(620) = Jac_FULL(68,55) - JVS(620) = 0.25*B(326) -! JVS(621) = Jac_FULL(68,56) - JVS(621) = -B(278) -! JVS(622) = Jac_FULL(68,57) - JVS(622) = B(19)+B(106)+B(162) -! JVS(623) = Jac_FULL(68,59) - JVS(623) = 0.05*B(144)+0.03*B(235)-0.95*B(258) -! JVS(624) = Jac_FULL(68,60) - JVS(624) = -B(293) -! JVS(625) = Jac_FULL(68,62) - JVS(625) = -B(309) -! JVS(626) = Jac_FULL(68,63) - JVS(626) = 0 -! JVS(627) = Jac_FULL(68,64) - JVS(627) = -B(251) -! JVS(628) = Jac_FULL(68,65) - JVS(628) = B(100)+B(158) -! JVS(629) = Jac_FULL(68,66) - JVS(629) = -B(237) -! JVS(630) = Jac_FULL(68,67) - JVS(630) = -B(229)+0.03*B(236) -! JVS(631) = Jac_FULL(68,68) - JVS(631) = -B(122)-B(142)-B(202)-B(230)-B(238)-B(239)-B(242)-B(244)-B(246)-B(248)-B(250)-B(252)-2*B(253)-B(255)-B(257)& - &-0.95*B(259)-B(265)-B(275)-B(279)-B(294)-B(310) -! JVS(632) = Jac_FULL(68,69) - JVS(632) = -B(203) -! JVS(633) = Jac_FULL(68,70) - JVS(633) = B(101)+B(107)+B(115) -! JVS(634) = Jac_FULL(68,71) - JVS(634) = B(159)+B(163) -! JVS(635) = Jac_FULL(68,72) - JVS(635) = -B(123) -! JVS(636) = Jac_FULL(68,73) - JVS(636) = -B(143)+0.05*B(145)+0.25*B(327) -! JVS(637) = Jac_FULL(68,74) - JVS(637) = 0.1*B(183)+0.1*B(325) -! JVS(638) = Jac_FULL(68,75) - JVS(638) = 0 -! JVS(639) = Jac_FULL(68,76) - JVS(639) = -B(240) -! JVS(640) = Jac_FULL(69,7) - JVS(640) = B(72) -! JVS(641) = Jac_FULL(69,12) - JVS(641) = 0.25*B(92) -! JVS(642) = Jac_FULL(69,13) - JVS(642) = 0.17*B(94) -! JVS(643) = Jac_FULL(69,17) - JVS(643) = 0.17*B(80) -! JVS(644) = Jac_FULL(69,22) - JVS(644) = B(13) -! JVS(645) = Jac_FULL(69,25) - JVS(645) = 0.1*B(96) -! JVS(646) = Jac_FULL(69,26) - JVS(646) = B(6) -! JVS(647) = Jac_FULL(69,27) - JVS(647) = B(338) -! JVS(648) = Jac_FULL(69,30) - JVS(648) = B(45) -! JVS(649) = Jac_FULL(69,31) - JVS(649) = 0.12*B(176) -! JVS(650) = Jac_FULL(69,32) - JVS(650) = B(313)-B(315)+B(317) -! JVS(651) = Jac_FULL(69,33) - JVS(651) = 0 -! JVS(652) = Jac_FULL(69,35) - JVS(652) = 0.1*B(285) -! JVS(653) = Jac_FULL(69,36) - JVS(653) = B(74) -! JVS(654) = Jac_FULL(69,37) - JVS(654) = 0.1*B(301) -! JVS(655) = Jac_FULL(69,38) - JVS(655) = 0.23*B(178) -! JVS(656) = Jac_FULL(69,39) - JVS(656) = 0.25*B(182) -! JVS(657) = Jac_FULL(69,41) - JVS(657) = -B(270)+B(272) -! JVS(658) = Jac_FULL(69,42) - JVS(658) = 0.8*B(18)+B(104)+B(160) -! JVS(659) = Jac_FULL(69,43) - JVS(659) = B(148)-B(206)+2*B(233)+B(256) -! JVS(660) = Jac_FULL(69,44) - JVS(660) = 0.32*B(324) -! JVS(661) = Jac_FULL(69,45) - JVS(661) = 0.98*B(20) -! JVS(662) = Jac_FULL(69,46) - JVS(662) = 0.92*B(132)-B(190)+B(217)+0.5*B(241) -! JVS(663) = Jac_FULL(69,47) - JVS(663) = 0.76*B(134)-B(192)+B(219)+0.5*B(243) -! JVS(664) = Jac_FULL(69,48) - JVS(664) = B(140)-B(198)+B(225)+0.5*B(249) -! JVS(665) = Jac_FULL(69,50) - JVS(665) = B(136)-B(194)+B(221)+0.5*B(245) -! JVS(666) = Jac_FULL(69,51) - JVS(666) = B(138)-B(196)+B(223)+0.5*B(247) -! JVS(667) = Jac_FULL(69,52) - JVS(667) = -B(260)+B(262) -! JVS(668) = Jac_FULL(69,53) - JVS(668) = B(146)-B(204)+2*B(231)+B(254) -! JVS(669) = Jac_FULL(69,54) - JVS(669) = B(14) -! JVS(670) = Jac_FULL(69,55) - JVS(670) = 0.75*B(326)-B(328)+B(330) -! JVS(671) = Jac_FULL(69,56) - JVS(671) = -B(210)+0.5*B(276) -! JVS(672) = Jac_FULL(69,57) - JVS(672) = B(19) -! JVS(673) = Jac_FULL(69,58) - JVS(673) = 2*B(11)+B(98)+B(156) -! JVS(674) = Jac_FULL(69,59) - JVS(674) = 0.92*B(144)-B(208)+0.46*B(235)+0.92*B(258) -! JVS(675) = Jac_FULL(69,60) - JVS(675) = 0.8*B(287)-B(289)+2*B(291)+B(293)+B(295) -! JVS(676) = Jac_FULL(69,61) - JVS(676) = -2*B(43) -! JVS(677) = Jac_FULL(69,62) - JVS(677) = 0.65*B(303)-B(305)+2*B(307)+B(309)+B(311) -! JVS(678) = Jac_FULL(69,63) - JVS(678) = 0.26*B(180) -! JVS(679) = Jac_FULL(69,64) - JVS(679) = B(152)-B(200)+B(227)+0.5*B(251) -! JVS(680) = Jac_FULL(69,65) - JVS(680) = B(12) -! JVS(681) = Jac_FULL(69,66) - JVS(681) = B(150)-B(186)+B(213)+0.5*B(237) -! JVS(682) = Jac_FULL(69,67) - JVS(682) = B(128)-B(184)+B(212)+B(214)+B(215)+B(218)+B(220)+B(222)+B(224)+B(226)+B(228)+0.5*B(229)+2*B(232)+2*B(234)& - &+0.46*B(236)+B(263)+B(273)+0.5*B(277)+2*B(292)+2*B(308) -! JVS(683) = Jac_FULL(69,68) - JVS(683) = -B(202)+0.5*B(230)+0.5*B(238)+0.5*B(239)+0.5*B(242)+0.5*B(244)+0.5*B(246)+0.5*B(248)+0.5*B(250)+0.5*B(252)& - &+B(255)+B(257)+0.92*B(259)+B(294)+B(310) -! JVS(684) = Jac_FULL(69,69) - JVS(684) = -B(36)-B(38)-B(40)-2*B(42)-2*B(44)-B(57)-B(70)-B(185)-B(187)-B(188)-B(191)-B(193)-B(195)-B(197)-B(199)& - &-B(201)-B(203)-B(205)-B(207)-B(209)-B(211)-B(261)-B(271)-B(290)-B(306)-B(316)-B(329) -! JVS(685) = Jac_FULL(69,70) - JVS(685) = B(34)+B(46)-B(71)+B(73)+B(75)+0.17*B(81)+0.25*B(93)+0.17*B(95)+0.1*B(97)+B(99)+B(105)+B(339) -! JVS(686) = Jac_FULL(69,71) - JVS(686) = -B(58)+B(157)+B(161)+B(296)+B(312) -! JVS(687) = Jac_FULL(69,72) - JVS(687) = -B(41) -! JVS(688) = Jac_FULL(69,73) - JVS(688) = -B(39)+B(129)+0.964*B(130)+0.92*B(133)+0.76*B(135)+B(137)+B(139)+B(141)+0.92*B(145)+B(147)+B(149)+B(151)& - &+B(153)+0.8*B(288)+0.65*B(304)+B(314)+0.75*B(327) -! JVS(689) = Jac_FULL(69,74) - JVS(689) = B(35)-B(37)+0.12*B(177)+0.23*B(179)+0.26*B(181)+0.25*B(183)+0.1*B(286)+0.1*B(302)+0.32*B(325) -! JVS(690) = Jac_FULL(69,75) - JVS(690) = B(21) -! JVS(691) = Jac_FULL(69,76) - JVS(691) = 0.964*B(131)-B(189)+B(216)+0.5*B(240) -! JVS(692) = Jac_FULL(70,7) - JVS(692) = -B(72) -! JVS(693) = Jac_FULL(70,8) - JVS(693) = -B(78) -! JVS(694) = Jac_FULL(70,10) - JVS(694) = -B(82) -! JVS(695) = Jac_FULL(70,11) - JVS(695) = -B(84) -! JVS(696) = Jac_FULL(70,12) - JVS(696) = -B(92) -! JVS(697) = Jac_FULL(70,13) - JVS(697) = -B(94) -! JVS(698) = Jac_FULL(70,15) - JVS(698) = B(4) -! JVS(699) = Jac_FULL(70,16) - JVS(699) = -B(336) -! JVS(700) = Jac_FULL(70,17) - JVS(700) = -B(80) -! JVS(701) = Jac_FULL(70,18) - JVS(701) = -B(340) -! JVS(702) = Jac_FULL(70,19) - JVS(702) = 2*B(30) -! JVS(703) = Jac_FULL(70,21) - JVS(703) = B(15)-B(114) -! JVS(704) = Jac_FULL(70,22) - JVS(704) = B(13)-0.5*B(110) -! JVS(705) = Jac_FULL(70,23) - JVS(705) = -B(334) -! JVS(706) = Jac_FULL(70,24) - JVS(706) = -B(76) -! JVS(707) = Jac_FULL(70,25) - JVS(707) = -1.9*B(96) -! JVS(708) = Jac_FULL(70,26) - JVS(708) = -B(68) -! JVS(709) = Jac_FULL(70,27) - JVS(709) = -B(338) -! JVS(710) = Jac_FULL(70,28) - JVS(710) = -B(116) -! JVS(711) = Jac_FULL(70,30) - JVS(711) = 2*B(9)-B(45) -! JVS(712) = Jac_FULL(70,31) - JVS(712) = -B(86) -! JVS(713) = Jac_FULL(70,33) - JVS(713) = -B(320) -! JVS(714) = Jac_FULL(70,34) - JVS(714) = 0 -! JVS(715) = Jac_FULL(70,35) - JVS(715) = -B(281)+0.85*B(285) -! JVS(716) = Jac_FULL(70,36) - JVS(716) = -B(74) -! JVS(717) = Jac_FULL(70,37) - JVS(717) = -B(297)+0.85*B(301) -! JVS(718) = Jac_FULL(70,38) - JVS(718) = -B(88)+0.1*B(178) -! JVS(719) = Jac_FULL(70,39) - JVS(719) = -B(120)+0.25*B(182) -! JVS(720) = Jac_FULL(70,40) - JVS(720) = B(5)-B(66) -! JVS(721) = Jac_FULL(70,42) - JVS(721) = -B(104) -! JVS(722) = Jac_FULL(70,44) - JVS(722) = -B(322)+0.19*B(324) -! JVS(723) = Jac_FULL(70,45) - JVS(723) = -B(108) -! JVS(724) = Jac_FULL(70,49) - JVS(724) = -B(102) -! JVS(725) = Jac_FULL(70,53) - JVS(725) = 0 -! JVS(726) = Jac_FULL(70,54) - JVS(726) = B(14)-0.5*B(112) -! JVS(727) = Jac_FULL(70,55) - JVS(727) = 0 -! JVS(728) = Jac_FULL(70,57) - JVS(728) = -B(106) -! JVS(729) = Jac_FULL(70,58) - JVS(729) = -B(98) -! JVS(730) = Jac_FULL(70,59) - JVS(730) = 0 -! JVS(731) = Jac_FULL(70,60) - JVS(731) = 0 -! JVS(732) = Jac_FULL(70,61) - JVS(732) = 2*B(31) -! JVS(733) = Jac_FULL(70,62) - JVS(733) = 0 -! JVS(734) = Jac_FULL(70,63) - JVS(734) = -B(90)+0.14*B(180) -! JVS(735) = Jac_FULL(70,64) - JVS(735) = 0 -! JVS(736) = Jac_FULL(70,65) - JVS(736) = -B(100) -! JVS(737) = Jac_FULL(70,66) - JVS(737) = 0 -! JVS(738) = Jac_FULL(70,67) - JVS(738) = 0 -! JVS(739) = Jac_FULL(70,68) - JVS(739) = 0 -! JVS(740) = Jac_FULL(70,69) - JVS(740) = B(36)+B(38)-B(70) -! JVS(741) = Jac_FULL(70,70) - JVS(741) = -B(34)-B(46)-B(47)-B(64)-B(67)-B(69)-B(71)-B(73)-B(75)-B(77)-B(79)-B(81)-B(83)-B(85)-B(87)-B(89)-B(91)& - &-B(93)-B(95)-1.9*B(97)-B(99)-B(101)-B(103)-B(105)-B(107)-B(109)-0.5*B(111)-0.5*B(113)-B(115)-B(117)-B(118)& - &-B(121)-B(282)-B(298)-B(321)-B(323)-B(335)-B(337)-B(339)-B(341) -! JVS(742) = Jac_FULL(70,71) - JVS(742) = 0 -! JVS(743) = Jac_FULL(70,72) - JVS(743) = -B(65) -! JVS(744) = Jac_FULL(70,73) - JVS(744) = B(39)-B(48) -! JVS(745) = Jac_FULL(70,74) - JVS(745) = -B(35)+B(37)+0.1*B(179)+0.14*B(181)+0.25*B(183)+0.85*B(286)+0.85*B(302)+0.19*B(325) -! JVS(746) = Jac_FULL(70,75) - JVS(746) = -B(119) -! JVS(747) = Jac_FULL(70,76) - JVS(747) = 0 -! JVS(748) = Jac_FULL(71,20) - JVS(748) = B(61) -! JVS(749) = Jac_FULL(71,25) - JVS(749) = -B(166) -! JVS(750) = Jac_FULL(71,28) - JVS(750) = B(116) -! JVS(751) = Jac_FULL(71,31) - JVS(751) = -B(168) -! JVS(752) = Jac_FULL(71,35) - JVS(752) = -B(283) -! JVS(753) = Jac_FULL(71,37) - JVS(753) = -B(299) -! JVS(754) = Jac_FULL(71,38) - JVS(754) = -B(170) -! JVS(755) = Jac_FULL(71,39) - JVS(755) = -B(174) -! JVS(756) = Jac_FULL(71,40) - JVS(756) = B(66) -! JVS(757) = Jac_FULL(71,42) - JVS(757) = -B(160) -! JVS(758) = Jac_FULL(71,45) - JVS(758) = -B(164) -! JVS(759) = Jac_FULL(71,53) - JVS(759) = 0 -! JVS(760) = Jac_FULL(71,57) - JVS(760) = -B(162) -! JVS(761) = Jac_FULL(71,58) - JVS(761) = -B(156) -! JVS(762) = Jac_FULL(71,59) - JVS(762) = 0 -! JVS(763) = Jac_FULL(71,60) - JVS(763) = -B(295) -! JVS(764) = Jac_FULL(71,61) - JVS(764) = 0 -! JVS(765) = Jac_FULL(71,62) - JVS(765) = -B(311) -! JVS(766) = Jac_FULL(71,63) - JVS(766) = -B(172) -! JVS(767) = Jac_FULL(71,64) - JVS(767) = 0 -! JVS(768) = Jac_FULL(71,65) - JVS(768) = -B(158) -! JVS(769) = Jac_FULL(71,66) - JVS(769) = 0 -! JVS(770) = Jac_FULL(71,67) - JVS(770) = 0 -! JVS(771) = Jac_FULL(71,68) - JVS(771) = 0 -! JVS(772) = Jac_FULL(71,69) - JVS(772) = -B(57) -! JVS(773) = Jac_FULL(71,70) - JVS(773) = B(67)+B(117) -! JVS(774) = Jac_FULL(71,71) - JVS(774) = -B(7)-B(8)-B(53)-B(55)-B(58)-B(59)-B(157)-B(159)-B(161)-B(163)-B(165)-B(167)-B(169)-B(171)-B(173)-B(175)& - &-B(284)-B(296)-B(300)-B(312) -! JVS(775) = Jac_FULL(71,72) - JVS(775) = B(51)-B(56)-B(60) -! JVS(776) = Jac_FULL(71,73) - JVS(776) = -B(54) -! JVS(777) = Jac_FULL(71,74) - JVS(777) = B(52) -! JVS(778) = Jac_FULL(71,75) - JVS(778) = 0 -! JVS(779) = Jac_FULL(71,76) - JVS(779) = 0 -! JVS(780) = Jac_FULL(72,14) - JVS(780) = B(127) -! JVS(781) = Jac_FULL(72,18) - JVS(781) = B(340) -! JVS(782) = Jac_FULL(72,20) - JVS(782) = B(61) -! JVS(783) = Jac_FULL(72,23) - JVS(783) = B(333)+B(334) -! JVS(784) = Jac_FULL(72,26) - JVS(784) = B(6)+B(68) -! JVS(785) = Jac_FULL(72,28) - JVS(785) = B(124) -! JVS(786) = Jac_FULL(72,29) - JVS(786) = -B(24) -! JVS(787) = Jac_FULL(72,32) - JVS(787) = B(313) -! JVS(788) = Jac_FULL(72,33) - JVS(788) = 0 -! JVS(789) = Jac_FULL(72,34) - JVS(789) = 2*B(49) -! JVS(790) = Jac_FULL(72,39) - JVS(790) = 0 -! JVS(791) = Jac_FULL(72,40) - JVS(791) = B(5) -! JVS(792) = Jac_FULL(72,41) - JVS(792) = -B(268) -! JVS(793) = Jac_FULL(72,42) - JVS(793) = 0 -! JVS(794) = Jac_FULL(72,43) - JVS(794) = B(148) -! JVS(795) = Jac_FULL(72,45) - JVS(795) = 0 -! JVS(796) = Jac_FULL(72,46) - JVS(796) = 0.92*B(132) -! JVS(797) = Jac_FULL(72,47) - JVS(797) = 0.76*B(134) -! JVS(798) = Jac_FULL(72,48) - JVS(798) = B(140) -! JVS(799) = Jac_FULL(72,50) - JVS(799) = B(136) -! JVS(800) = Jac_FULL(72,51) - JVS(800) = B(138) -! JVS(801) = Jac_FULL(72,52) - JVS(801) = B(266) -! JVS(802) = Jac_FULL(72,53) - JVS(802) = B(146) -! JVS(803) = Jac_FULL(72,55) - JVS(803) = B(326)-B(331) -! JVS(804) = Jac_FULL(72,56) - JVS(804) = 2*B(154)+B(276)+B(278)+2*B(280) -! JVS(805) = Jac_FULL(72,57) - JVS(805) = 0 -! JVS(806) = Jac_FULL(72,58) - JVS(806) = 0 -! JVS(807) = Jac_FULL(72,59) - JVS(807) = -B(125)+B(144) -! JVS(808) = Jac_FULL(72,60) - JVS(808) = 0.8*B(287)+B(295) -! JVS(809) = Jac_FULL(72,61) - JVS(809) = 0 -! JVS(810) = Jac_FULL(72,62) - JVS(810) = 0.65*B(303)+B(311) -! JVS(811) = Jac_FULL(72,63) - JVS(811) = 0 -! JVS(812) = Jac_FULL(72,64) - JVS(812) = B(152) -! JVS(813) = Jac_FULL(72,65) - JVS(813) = 0 -! JVS(814) = Jac_FULL(72,66) - JVS(814) = B(150) -! JVS(815) = Jac_FULL(72,67) - JVS(815) = B(128)+B(277) -! JVS(816) = Jac_FULL(72,68) - JVS(816) = -B(122)+B(142)+B(279) -! JVS(817) = Jac_FULL(72,69) - JVS(817) = B(38)-B(40) -! JVS(818) = Jac_FULL(72,70) - JVS(818) = -B(64)+B(69)+B(118)+B(335)+B(341) -! JVS(819) = Jac_FULL(72,71) - JVS(819) = B(8)+2*B(53)-B(59)+B(296)+B(312) -! JVS(820) = Jac_FULL(72,72) - JVS(820) = -B(1)-B(25)-B(41)-B(51)-B(60)-B(65)-B(123)-B(126)-B(269)-B(332) -! JVS(821) = Jac_FULL(72,73) - JVS(821) = B(32)+B(39)+2*B(50)+2*B(54)+B(129)+0.964*B(130)+0.92*B(133)+0.76*B(135)+B(137)+B(139)+B(141)+B(143)+B(145)& - &+B(147)+B(149)+B(151)+B(153)+2*B(155)+B(267)+0.8*B(288)+0.65*B(304)+B(314)+B(327) -! JVS(822) = Jac_FULL(72,74) - JVS(822) = B(33)-B(52) -! JVS(823) = Jac_FULL(72,75) - JVS(823) = B(21)+B(119) -! JVS(824) = Jac_FULL(72,76) - JVS(824) = 0.964*B(131) -! JVS(825) = Jac_FULL(73,15) - JVS(825) = B(4) -! JVS(826) = Jac_FULL(73,29) - JVS(826) = B(24) -! JVS(827) = Jac_FULL(73,32) - JVS(827) = -B(313) -! JVS(828) = Jac_FULL(73,34) - JVS(828) = -2*B(49) -! JVS(829) = Jac_FULL(73,39) - JVS(829) = 0 -! JVS(830) = Jac_FULL(73,43) - JVS(830) = -B(148) -! JVS(831) = Jac_FULL(73,46) - JVS(831) = -B(132) -! JVS(832) = Jac_FULL(73,47) - JVS(832) = -B(134) -! JVS(833) = Jac_FULL(73,48) - JVS(833) = -B(140) -! JVS(834) = Jac_FULL(73,50) - JVS(834) = -B(136) -! JVS(835) = Jac_FULL(73,51) - JVS(835) = -B(138) -! JVS(836) = Jac_FULL(73,52) - JVS(836) = -B(266) -! JVS(837) = Jac_FULL(73,53) - JVS(837) = -B(146) -! JVS(838) = Jac_FULL(73,55) - JVS(838) = -B(326) -! JVS(839) = Jac_FULL(73,56) - JVS(839) = -B(154) -! JVS(840) = Jac_FULL(73,59) - JVS(840) = -B(144) -! JVS(841) = Jac_FULL(73,60) - JVS(841) = -B(287) -! JVS(842) = Jac_FULL(73,61) - JVS(842) = 0 -! JVS(843) = Jac_FULL(73,62) - JVS(843) = -B(303) -! JVS(844) = Jac_FULL(73,63) - JVS(844) = 0 -! JVS(845) = Jac_FULL(73,64) - JVS(845) = -B(152) -! JVS(846) = Jac_FULL(73,65) - JVS(846) = 0 -! JVS(847) = Jac_FULL(73,66) - JVS(847) = -B(150) -! JVS(848) = Jac_FULL(73,67) - JVS(848) = -B(128) -! JVS(849) = Jac_FULL(73,68) - JVS(849) = -B(142) -! JVS(850) = Jac_FULL(73,69) - JVS(850) = -B(38) -! JVS(851) = Jac_FULL(73,70) - JVS(851) = -B(47) -! JVS(852) = Jac_FULL(73,71) - JVS(852) = B(7)-B(53)+B(55) -! JVS(853) = Jac_FULL(73,72) - JVS(853) = B(1)+B(25)+B(56) -! JVS(854) = Jac_FULL(73,73) - JVS(854) = -B(32)-B(39)-B(48)-2*B(50)-B(54)-B(129)-B(130)-B(133)-B(135)-B(137)-B(139)-B(141)-B(143)-B(145)-B(147)& - &-B(149)-B(151)-B(153)-B(155)-B(267)-B(288)-B(304)-B(314)-B(327) -! JVS(855) = Jac_FULL(73,74) - JVS(855) = -B(33) -! JVS(856) = Jac_FULL(73,75) - JVS(856) = 0 -! JVS(857) = Jac_FULL(73,76) - JVS(857) = -B(131) -! JVS(858) = Jac_FULL(74,29) - JVS(858) = B(22) -! JVS(859) = Jac_FULL(74,31) - JVS(859) = -B(176) -! JVS(860) = Jac_FULL(74,34) - JVS(860) = B(23) -! JVS(861) = Jac_FULL(74,35) - JVS(861) = -B(285) -! JVS(862) = Jac_FULL(74,37) - JVS(862) = -B(301) -! JVS(863) = Jac_FULL(74,38) - JVS(863) = -B(178) -! JVS(864) = Jac_FULL(74,39) - JVS(864) = -B(182) -! JVS(865) = Jac_FULL(74,44) - JVS(865) = -B(324) -! JVS(866) = Jac_FULL(74,61) - JVS(866) = 0 -! JVS(867) = Jac_FULL(74,62) - JVS(867) = 0 -! JVS(868) = Jac_FULL(74,63) - JVS(868) = -B(180) -! JVS(869) = Jac_FULL(74,64) - JVS(869) = 0 -! JVS(870) = Jac_FULL(74,65) - JVS(870) = 0 -! JVS(871) = Jac_FULL(74,66) - JVS(871) = 0 -! JVS(872) = Jac_FULL(74,67) - JVS(872) = 0 -! JVS(873) = Jac_FULL(74,68) - JVS(873) = 0 -! JVS(874) = Jac_FULL(74,69) - JVS(874) = -B(36) -! JVS(875) = Jac_FULL(74,70) - JVS(875) = -B(34) -! JVS(876) = Jac_FULL(74,71) - JVS(876) = 0 -! JVS(877) = Jac_FULL(74,72) - JVS(877) = -B(51) -! JVS(878) = Jac_FULL(74,73) - JVS(878) = -B(32) -! JVS(879) = Jac_FULL(74,74) - JVS(879) = -B(2)-B(3)-B(33)-B(35)-B(37)-B(52)-B(177)-B(179)-B(181)-B(183)-B(286)-B(302)-B(325) -! JVS(880) = Jac_FULL(74,75) - JVS(880) = 0 -! JVS(881) = Jac_FULL(74,76) - JVS(881) = 0 -! JVS(882) = Jac_FULL(75,41) - JVS(882) = B(268) -! JVS(883) = Jac_FULL(75,46) - JVS(883) = 0.08*B(132) -! JVS(884) = Jac_FULL(75,47) - JVS(884) = 0.24*B(134) -! JVS(885) = Jac_FULL(75,56) - JVS(885) = B(210) -! JVS(886) = Jac_FULL(75,60) - JVS(886) = 0.2*B(287) -! JVS(887) = Jac_FULL(75,62) - JVS(887) = 0.35*B(303) -! JVS(888) = Jac_FULL(75,63) - JVS(888) = 0 -! JVS(889) = Jac_FULL(75,67) - JVS(889) = 0 -! JVS(890) = Jac_FULL(75,68) - JVS(890) = 0 -! JVS(891) = Jac_FULL(75,69) - JVS(891) = B(211) -! JVS(892) = Jac_FULL(75,70) - JVS(892) = -B(118) -! JVS(893) = Jac_FULL(75,71) - JVS(893) = 0 -! JVS(894) = Jac_FULL(75,72) - JVS(894) = B(269) -! JVS(895) = Jac_FULL(75,73) - JVS(895) = 0.036*B(130)+0.08*B(133)+0.24*B(135)+0.2*B(288)+0.35*B(304) -! JVS(896) = Jac_FULL(75,74) - JVS(896) = 0 -! JVS(897) = Jac_FULL(75,75) - JVS(897) = -B(21)-B(119) -! JVS(898) = Jac_FULL(75,76) - JVS(898) = 0.036*B(131) -! JVS(899) = Jac_FULL(76,17) - JVS(899) = 0.83*B(80) -! JVS(900) = Jac_FULL(76,54) - JVS(900) = 0.5*B(112) -! JVS(901) = Jac_FULL(76,59) - JVS(901) = 0 -! JVS(902) = Jac_FULL(76,60) - JVS(902) = 0 -! JVS(903) = Jac_FULL(76,62) - JVS(903) = 0 -! JVS(904) = Jac_FULL(76,63) - JVS(904) = 0 -! JVS(905) = Jac_FULL(76,64) - JVS(905) = 0 -! JVS(906) = Jac_FULL(76,66) - JVS(906) = 0 -! JVS(907) = Jac_FULL(76,67) - JVS(907) = -B(215) -! JVS(908) = Jac_FULL(76,68) - JVS(908) = -B(239) -! JVS(909) = Jac_FULL(76,69) - JVS(909) = -B(188) -! JVS(910) = Jac_FULL(76,70) - JVS(910) = 0.83*B(81)+0.5*B(113)+B(118) -! JVS(911) = Jac_FULL(76,71) - JVS(911) = 0 -! JVS(912) = Jac_FULL(76,72) - JVS(912) = 0 -! JVS(913) = Jac_FULL(76,73) - JVS(913) = -B(130) -! JVS(914) = Jac_FULL(76,74) - JVS(914) = 0 -! JVS(915) = Jac_FULL(76,75) - JVS(915) = B(119) -! JVS(916) = Jac_FULL(76,76) - JVS(916) = -B(131)-B(189)-B(216)-B(240) - -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) - JUV(2) = JVS(2)*UV(2)+JVS(3)*UV(7)+JVS(4)*UV(70) - JUV(3) = JVS(5)*UV(3)+JVS(6)*UV(31)+JVS(7)*UV(37)+JVS(8)*UV(38)+JVS(9)*UV(39)+JVS(10)*UV(44)+JVS(11)*UV(63)+JVS(12)& - &*UV(74) - JUV(4) = JVS(13)*UV(4)+JVS(14)*UV(37)+JVS(15)*UV(38)+JVS(16)*UV(46)+JVS(17)*UV(47)+JVS(18)*UV(48)+JVS(19)*UV(50)& - &+JVS(20)*UV(51)+JVS(21)*UV(56)+JVS(22)*UV(59)+JVS(23)*UV(63)+JVS(24)*UV(64)+JVS(25)*UV(66)+JVS(26)*UV(67)& - &+JVS(27)*UV(68)+JVS(28)*UV(74)+JVS(29)*UV(76) - JUV(5) = JVS(30)*UV(5)+JVS(31)*UV(21) - JUV(6) = JVS(32)*UV(6)+JVS(33)*UV(58) - JUV(7) = JVS(34)*UV(7)+JVS(35)*UV(70) - JUV(8) = JVS(36)*UV(8)+JVS(37)*UV(70) - JUV(9) = JVS(38)*UV(9)+JVS(39)*UV(32)+JVS(40)*UV(69)+JVS(41)*UV(70) - JUV(10) = JVS(42)*UV(10)+JVS(43)*UV(70) - JUV(11) = JVS(44)*UV(11)+JVS(45)*UV(70) - JUV(12) = JVS(46)*UV(12)+JVS(47)*UV(70) - JUV(13) = JVS(48)*UV(13)+JVS(49)*UV(70) - JUV(14) = JVS(50)*UV(14)+JVS(51)*UV(59)+JVS(52)*UV(72) - JUV(15) = JVS(53)*UV(15)+JVS(54)*UV(70)+JVS(55)*UV(73) - JUV(16) = JVS(56)*UV(16)+JVS(57)*UV(55)+JVS(58)*UV(69)+JVS(59)*UV(70) - JUV(17) = JVS(60)*UV(17)+JVS(61)*UV(70) - JUV(18) = JVS(62)*UV(18)+JVS(63)*UV(33)+JVS(64)*UV(70) - JUV(19) = JVS(65)*UV(1)+JVS(66)*UV(19)+JVS(67)*UV(34)+JVS(68)*UV(61)+JVS(69)*UV(74) - JUV(20) = JVS(70)*UV(20)+JVS(71)*UV(61)+JVS(72)*UV(71)+JVS(73)*UV(72) - JUV(21) = JVS(74)*UV(21)+JVS(75)*UV(68)+JVS(76)*UV(69)+JVS(77)*UV(70) - JUV(22) = JVS(78)*UV(22)+JVS(79)*UV(67)+JVS(80)*UV(69)+JVS(81)*UV(70) - JUV(23) = JVS(82)*UV(23)+JVS(83)*UV(55)+JVS(84)*UV(70)+JVS(85)*UV(72) - JUV(24) = JVS(86)*UV(24)+JVS(87)*UV(38)+JVS(88)*UV(63)+JVS(89)*UV(70)+JVS(90)*UV(74) - JUV(25) = JVS(91)*UV(12)+JVS(92)*UV(13)+JVS(93)*UV(25)+JVS(94)*UV(70)+JVS(95)*UV(71) - JUV(26) = JVS(96)*UV(26)+JVS(97)*UV(69)+JVS(98)*UV(70)+JVS(99)*UV(72) - JUV(27) = JVS(100)*UV(23)+JVS(101)*UV(27)+JVS(102)*UV(33)+JVS(103)*UV(55)+JVS(104)*UV(70)+JVS(106)*UV(73) - JUV(28) = JVS(107)*UV(28)+JVS(108)*UV(68)+JVS(109)*UV(70)+JVS(110)*UV(72) - JUV(29) = JVS(111)*UV(1)+JVS(112)*UV(19)+JVS(113)*UV(29)+JVS(114)*UV(34)+JVS(116)*UV(71)+JVS(117)*UV(72)+JVS(118)& - &*UV(74) - JUV(30) = JVS(119)*UV(30)+JVS(120)*UV(35)+JVS(121)*UV(37)+JVS(122)*UV(39)+JVS(123)*UV(61)+JVS(124)*UV(69)+JVS(125)& - &*UV(70)+JVS(126)*UV(74) - JUV(31) = JVS(127)*UV(31)+JVS(128)*UV(70)+JVS(129)*UV(71)+JVS(130)*UV(74) - JUV(32) = JVS(131)*UV(32)+JVS(132)*UV(39)+JVS(133)*UV(69)+JVS(134)*UV(70)+JVS(135)*UV(73) - JUV(33) = JVS(136)*UV(32)+JVS(137)*UV(33)+JVS(138)*UV(39)+JVS(140)*UV(70)+JVS(141)*UV(71)+JVS(142)*UV(73) - JUV(34) = JVS(143)*UV(26)+JVS(144)*UV(29)+JVS(145)*UV(34)+JVS(147)*UV(69)+JVS(148)*UV(70)+JVS(149)*UV(71)+JVS(150)& - &*UV(72)+JVS(151)*UV(73)+JVS(152)*UV(74) - JUV(35) = JVS(153)*UV(35)+JVS(154)*UV(70)+JVS(155)*UV(71)+JVS(156)*UV(74) - JUV(36) = JVS(157)*UV(18)+JVS(158)*UV(31)+JVS(160)*UV(35)+JVS(161)*UV(36)+JVS(162)*UV(37)+JVS(163)*UV(38)+JVS(164)& - &*UV(39)+JVS(165)*UV(42)+JVS(166)*UV(44)+JVS(167)*UV(55)+JVS(168)*UV(57)+JVS(169)*UV(58)+JVS(170)*UV(59)& - &+JVS(171)*UV(63)+JVS(172)*UV(65)+JVS(173)*UV(67)+JVS(174)*UV(68)+JVS(176)*UV(70)+JVS(177)*UV(71)+JVS(178)& - &*UV(73)+JVS(179)*UV(74) - JUV(37) = JVS(180)*UV(37)+JVS(181)*UV(70)+JVS(182)*UV(71)+JVS(183)*UV(74) - JUV(38) = JVS(184)*UV(37)+JVS(185)*UV(38)+JVS(186)*UV(70)+JVS(187)*UV(71)+JVS(188)*UV(74) - JUV(39) = JVS(189)*UV(39)+JVS(190)*UV(70)+JVS(191)*UV(71)+JVS(192)*UV(74) - JUV(40) = JVS(193)*UV(20)+JVS(194)*UV(25)+JVS(195)*UV(40)+JVS(196)*UV(42)+JVS(197)*UV(45)+JVS(198)*UV(57)+JVS(199)& - &*UV(58)+JVS(200)*UV(61)+JVS(201)*UV(65)+JVS(202)*UV(69)+JVS(203)*UV(70)+JVS(204)*UV(71)+JVS(205)*UV(72) - JUV(41) = JVS(206)*UV(25)+JVS(207)*UV(41)+JVS(208)*UV(67)+JVS(209)*UV(68)+JVS(210)*UV(69)+JVS(212)*UV(71)+JVS(213)& - &*UV(72) - JUV(42) = JVS(214)*UV(42)+JVS(215)*UV(53)+JVS(216)*UV(59)+JVS(217)*UV(67)+JVS(218)*UV(68)+JVS(219)*UV(70)+JVS(220)& - &*UV(71)+JVS(221)*UV(73) - JUV(43) = JVS(222)*UV(13)+JVS(223)*UV(43)+JVS(224)*UV(67)+JVS(225)*UV(68)+JVS(226)*UV(69)+JVS(227)*UV(70)+JVS(228)& - &*UV(73) - JUV(44) = JVS(229)*UV(9)+JVS(230)*UV(32)+JVS(231)*UV(37)+JVS(232)*UV(39)+JVS(233)*UV(44)+JVS(234)*UV(62)+JVS(235)& - &*UV(67)+JVS(236)*UV(68)+JVS(238)*UV(70)+JVS(239)*UV(71)+JVS(240)*UV(73)+JVS(241)*UV(74) - JUV(45) = JVS(242)*UV(43)+JVS(243)*UV(45)+JVS(244)*UV(53)+JVS(245)*UV(67)+JVS(246)*UV(68)+JVS(248)*UV(70)+JVS(249)& - &*UV(71)+JVS(250)*UV(73) - JUV(46) = JVS(251)*UV(10)+JVS(252)*UV(46)+JVS(253)*UV(67)+JVS(254)*UV(68)+JVS(255)*UV(69)+JVS(256)*UV(70)+JVS(257)& - &*UV(73) - JUV(47) = JVS(258)*UV(11)+JVS(259)*UV(47)+JVS(260)*UV(67)+JVS(261)*UV(68)+JVS(262)*UV(69)+JVS(263)*UV(70)+JVS(264)& - &*UV(73) - JUV(48) = JVS(265)*UV(48)+JVS(266)*UV(63)+JVS(267)*UV(67)+JVS(268)*UV(68)+JVS(269)*UV(69)+JVS(270)*UV(70)+JVS(271)& - &*UV(73) - JUV(49) = JVS(272)*UV(17)+JVS(273)*UV(35)+JVS(274)*UV(46)+JVS(275)*UV(47)+JVS(276)*UV(48)+JVS(277)*UV(49)+JVS(278)& - &*UV(60)+JVS(279)*UV(63)+JVS(280)*UV(67)+JVS(281)*UV(68)+JVS(283)*UV(70)+JVS(284)*UV(71)+JVS(285)*UV(73)& - &+JVS(286)*UV(74)+JVS(287)*UV(75)+JVS(288)*UV(76) - JUV(50) = JVS(289)*UV(31)+JVS(290)*UV(50)+JVS(291)*UV(67)+JVS(292)*UV(68)+JVS(293)*UV(69)+JVS(294)*UV(70)+JVS(296)& - &*UV(73) - JUV(51) = JVS(298)*UV(38)+JVS(299)*UV(51)+JVS(300)*UV(67)+JVS(301)*UV(68)+JVS(302)*UV(69)+JVS(303)*UV(70)+JVS(305)& - &*UV(73) - JUV(52) = JVS(307)*UV(10)+JVS(308)*UV(11)+JVS(309)*UV(25)+JVS(310)*UV(28)+JVS(311)*UV(52)+JVS(312)*UV(59)+JVS(313)& - &*UV(67)+JVS(314)*UV(68)+JVS(315)*UV(69)+JVS(316)*UV(70)+JVS(319)*UV(73) - JUV(53) = JVS(320)*UV(12)+JVS(321)*UV(53)+JVS(322)*UV(67)+JVS(323)*UV(68)+JVS(324)*UV(69)+JVS(325)*UV(70)+JVS(326)& - &*UV(73) - JUV(54) = JVS(327)*UV(41)+JVS(328)*UV(43)+JVS(329)*UV(46)+JVS(330)*UV(47)+JVS(331)*UV(48)+JVS(332)*UV(50)+JVS(333)& - &*UV(51)+JVS(334)*UV(52)+JVS(335)*UV(53)+JVS(336)*UV(54)+JVS(337)*UV(59)+JVS(338)*UV(60)+JVS(339)*UV(62)& - &+JVS(341)*UV(64)+JVS(342)*UV(66)+JVS(345)*UV(69)+JVS(346)*UV(70)+JVS(351)*UV(76) - JUV(55) = JVS(352)*UV(16)+JVS(353)*UV(23)+JVS(354)*UV(39)+JVS(355)*UV(44)+JVS(356)*UV(55)+JVS(360)*UV(69)+JVS(361)& - &*UV(70)+JVS(363)*UV(72)+JVS(364)*UV(73)+JVS(365)*UV(74) - JUV(56) = JVS(366)*UV(31)+JVS(367)*UV(35)+JVS(368)*UV(37)+JVS(369)*UV(38)+JVS(370)*UV(56)+JVS(371)*UV(63)+JVS(372)& - &*UV(67)+JVS(373)*UV(68)+JVS(374)*UV(69)+JVS(376)*UV(71)+JVS(377)*UV(73) - JUV(57) = JVS(379)*UV(27)+JVS(382)*UV(43)+JVS(383)*UV(44)+JVS(384)*UV(53)+JVS(385)*UV(55)+JVS(386)*UV(57)+JVS(387)& - &*UV(59)+JVS(389)*UV(64)+JVS(390)*UV(67)+JVS(391)*UV(68)+JVS(393)*UV(70)+JVS(394)*UV(71)+JVS(396)*UV(73)& - &+JVS(397)*UV(74) - JUV(58) = JVS(398)*UV(17)+JVS(399)*UV(18)+JVS(400)*UV(22)+JVS(401)*UV(28)+JVS(402)*UV(31)+JVS(403)*UV(32)+JVS(405)& - &*UV(37)+JVS(406)*UV(38)+JVS(407)*UV(39)+JVS(408)*UV(41)+JVS(409)*UV(42)+JVS(410)*UV(43)+JVS(411)*UV(46)& - &+JVS(412)*UV(47)+JVS(413)*UV(48)+JVS(414)*UV(50)+JVS(415)*UV(51)+JVS(416)*UV(52)+JVS(417)*UV(53)+JVS(418)& - &*UV(55)+JVS(419)*UV(56)+JVS(420)*UV(58)+JVS(421)*UV(59)+JVS(422)*UV(60)+JVS(423)*UV(62)+JVS(424)*UV(63)& - &+JVS(425)*UV(64)+JVS(426)*UV(66)+JVS(427)*UV(67)+JVS(428)*UV(68)+JVS(430)*UV(70)+JVS(431)*UV(71)+JVS(433)& - &*UV(73)+JVS(434)*UV(74)+JVS(435)*UV(76) - JUV(59) = JVS(436)*UV(14)+JVS(437)*UV(25)+JVS(438)*UV(45)+JVS(440)*UV(59)+JVS(441)*UV(67)+JVS(442)*UV(68)+JVS(443)& - &*UV(69)+JVS(444)*UV(70)+JVS(445)*UV(71)+JVS(446)*UV(72)+JVS(447)*UV(73) - JUV(60) = JVS(448)*UV(35)+JVS(449)*UV(60)+JVS(450)*UV(67)+JVS(451)*UV(68)+JVS(452)*UV(69)+JVS(453)*UV(70)+JVS(454)& - &*UV(71)+JVS(455)*UV(73) - JUV(61) = JVS(457)*UV(8)+JVS(458)*UV(10)+JVS(459)*UV(11)+JVS(460)*UV(17)+JVS(461)*UV(19)+JVS(462)*UV(20)+JVS(463)& - &*UV(21)+JVS(464)*UV(24)+JVS(465)*UV(26)+JVS(466)*UV(30)+JVS(472)*UV(40)+JVS(473)*UV(42)+JVS(474)*UV(45)& - &+JVS(475)*UV(49)+JVS(477)*UV(57)+JVS(478)*UV(58)+JVS(481)*UV(61)+JVS(485)*UV(65)+JVS(489)*UV(69)+JVS(490)& - &*UV(70) - JUV(62) = JVS(497)*UV(37)+JVS(498)*UV(62)+JVS(499)*UV(67)+JVS(500)*UV(68)+JVS(501)*UV(69)+JVS(502)*UV(70)+JVS(503)& - &*UV(71)+JVS(504)*UV(73) - JUV(63) = JVS(506)*UV(62)+JVS(507)*UV(63)+JVS(508)*UV(67)+JVS(509)*UV(68)+JVS(511)*UV(70)+JVS(512)*UV(71)+JVS(513)& - &*UV(73)+JVS(514)*UV(74) - JUV(64) = JVS(515)*UV(35)+JVS(516)*UV(37)+JVS(517)*UV(49)+JVS(520)*UV(64)+JVS(521)*UV(67)+JVS(522)*UV(68)+JVS(523)& - &*UV(69)+JVS(524)*UV(70)+JVS(526)*UV(73)+JVS(527)*UV(74) - JUV(65) = JVS(530)*UV(17)+JVS(531)*UV(35)+JVS(532)*UV(38)+JVS(533)*UV(46)+JVS(534)*UV(47)+JVS(535)*UV(48)+JVS(536)& - &*UV(50)+JVS(537)*UV(51)+JVS(538)*UV(54)+JVS(539)*UV(56)+JVS(541)*UV(60)+JVS(543)*UV(63)+JVS(545)*UV(65)& - &+JVS(546)*UV(66)+JVS(547)*UV(67)+JVS(548)*UV(68)+JVS(550)*UV(70)+JVS(551)*UV(71)+JVS(553)*UV(73)+JVS(554)& - &*UV(74)+JVS(555)*UV(75)+JVS(556)*UV(76) - JUV(66) = JVS(557)*UV(8)+JVS(558)*UV(35)+JVS(559)*UV(37)+JVS(560)*UV(49)+JVS(563)*UV(66)+JVS(564)*UV(67)+JVS(565)& - &*UV(68)+JVS(566)*UV(69)+JVS(567)*UV(70)+JVS(569)*UV(73)+JVS(570)*UV(74) - JUV(67) = JVS(573)*UV(21)+JVS(574)*UV(22)+JVS(575)*UV(24)+JVS(576)*UV(38)+JVS(577)*UV(39)+JVS(578)*UV(41)+JVS(579)& - &*UV(43)+JVS(580)*UV(46)+JVS(581)*UV(47)+JVS(582)*UV(48)+JVS(583)*UV(50)+JVS(584)*UV(51)+JVS(585)*UV(52)& - &+JVS(586)*UV(53)+JVS(587)*UV(56)+JVS(588)*UV(59)+JVS(589)*UV(60)+JVS(590)*UV(62)+JVS(591)*UV(63)+JVS(592)& - &*UV(64)+JVS(593)*UV(65)+JVS(594)*UV(66)+JVS(595)*UV(67)+JVS(596)*UV(68)+JVS(597)*UV(69)+JVS(598)*UV(70)& - &+JVS(601)*UV(73)+JVS(602)*UV(74)+JVS(604)*UV(76) - JUV(68) = JVS(605)*UV(21)+JVS(606)*UV(28)+JVS(607)*UV(39)+JVS(608)*UV(41)+JVS(609)*UV(43)+JVS(610)*UV(44)+JVS(611)& - &*UV(45)+JVS(612)*UV(46)+JVS(613)*UV(47)+JVS(614)*UV(48)+JVS(615)*UV(49)+JVS(616)*UV(50)+JVS(617)*UV(51)& - &+JVS(618)*UV(52)+JVS(619)*UV(53)+JVS(620)*UV(55)+JVS(621)*UV(56)+JVS(622)*UV(57)+JVS(623)*UV(59)+JVS(624)& - &*UV(60)+JVS(625)*UV(62)+JVS(627)*UV(64)+JVS(628)*UV(65)+JVS(629)*UV(66)+JVS(630)*UV(67)+JVS(631)*UV(68)& - &+JVS(632)*UV(69)+JVS(633)*UV(70)+JVS(634)*UV(71)+JVS(635)*UV(72)+JVS(636)*UV(73)+JVS(637)*UV(74)+JVS(639)& - &*UV(76) - JUV(69) = JVS(640)*UV(7)+JVS(641)*UV(12)+JVS(642)*UV(13)+JVS(643)*UV(17)+JVS(644)*UV(22)+JVS(645)*UV(25)+JVS(646)& - &*UV(26)+JVS(647)*UV(27)+JVS(648)*UV(30)+JVS(649)*UV(31)+JVS(650)*UV(32)+JVS(652)*UV(35)+JVS(653)*UV(36)& - &+JVS(654)*UV(37)+JVS(655)*UV(38)+JVS(656)*UV(39)+JVS(657)*UV(41)+JVS(658)*UV(42)+JVS(659)*UV(43)+JVS(660)& - &*UV(44)+JVS(661)*UV(45)+JVS(662)*UV(46)+JVS(663)*UV(47)+JVS(664)*UV(48)+JVS(665)*UV(50)+JVS(666)*UV(51)& - &+JVS(667)*UV(52)+JVS(668)*UV(53)+JVS(669)*UV(54)+JVS(670)*UV(55)+JVS(671)*UV(56)+JVS(672)*UV(57)+JVS(673)& - &*UV(58)+JVS(674)*UV(59)+JVS(675)*UV(60)+JVS(676)*UV(61)+JVS(677)*UV(62)+JVS(678)*UV(63)+JVS(679)*UV(64)& - &+JVS(680)*UV(65)+JVS(681)*UV(66)+JVS(682)*UV(67)+JVS(683)*UV(68)+JVS(684)*UV(69)+JVS(685)*UV(70)+JVS(686)& - &*UV(71)+JVS(687)*UV(72)+JVS(688)*UV(73)+JVS(689)*UV(74)+JVS(690)*UV(75)+JVS(691)*UV(76) - JUV(70) = JVS(692)*UV(7)+JVS(693)*UV(8)+JVS(694)*UV(10)+JVS(695)*UV(11)+JVS(696)*UV(12)+JVS(697)*UV(13)+JVS(698)& - &*UV(15)+JVS(699)*UV(16)+JVS(700)*UV(17)+JVS(701)*UV(18)+JVS(702)*UV(19)+JVS(703)*UV(21)+JVS(704)*UV(22)& - &+JVS(705)*UV(23)+JVS(706)*UV(24)+JVS(707)*UV(25)+JVS(708)*UV(26)+JVS(709)*UV(27)+JVS(710)*UV(28)+JVS(711)& - &*UV(30)+JVS(712)*UV(31)+JVS(713)*UV(33)+JVS(715)*UV(35)+JVS(716)*UV(36)+JVS(717)*UV(37)+JVS(718)*UV(38)& - &+JVS(719)*UV(39)+JVS(720)*UV(40)+JVS(721)*UV(42)+JVS(722)*UV(44)+JVS(723)*UV(45)+JVS(724)*UV(49)+JVS(726)& - &*UV(54)+JVS(728)*UV(57)+JVS(729)*UV(58)+JVS(732)*UV(61)+JVS(734)*UV(63)+JVS(736)*UV(65)+JVS(740)*UV(69)& - &+JVS(741)*UV(70)+JVS(743)*UV(72)+JVS(744)*UV(73)+JVS(745)*UV(74)+JVS(746)*UV(75) - JUV(71) = JVS(748)*UV(20)+JVS(749)*UV(25)+JVS(750)*UV(28)+JVS(751)*UV(31)+JVS(752)*UV(35)+JVS(753)*UV(37)+JVS(754)& - &*UV(38)+JVS(755)*UV(39)+JVS(756)*UV(40)+JVS(757)*UV(42)+JVS(758)*UV(45)+JVS(760)*UV(57)+JVS(761)*UV(58)& - &+JVS(763)*UV(60)+JVS(765)*UV(62)+JVS(766)*UV(63)+JVS(768)*UV(65)+JVS(772)*UV(69)+JVS(773)*UV(70)+JVS(774)& - &*UV(71)+JVS(775)*UV(72)+JVS(776)*UV(73)+JVS(777)*UV(74) - JUV(72) = JVS(780)*UV(14)+JVS(781)*UV(18)+JVS(782)*UV(20)+JVS(783)*UV(23)+JVS(784)*UV(26)+JVS(785)*UV(28)+JVS(786)& - &*UV(29)+JVS(787)*UV(32)+JVS(789)*UV(34)+JVS(791)*UV(40)+JVS(792)*UV(41)+JVS(794)*UV(43)+JVS(796)*UV(46)& - &+JVS(797)*UV(47)+JVS(798)*UV(48)+JVS(799)*UV(50)+JVS(800)*UV(51)+JVS(801)*UV(52)+JVS(802)*UV(53)+JVS(803)& - &*UV(55)+JVS(804)*UV(56)+JVS(807)*UV(59)+JVS(808)*UV(60)+JVS(810)*UV(62)+JVS(812)*UV(64)+JVS(814)*UV(66)& - &+JVS(815)*UV(67)+JVS(816)*UV(68)+JVS(817)*UV(69)+JVS(818)*UV(70)+JVS(819)*UV(71)+JVS(820)*UV(72)+JVS(821)& - &*UV(73)+JVS(822)*UV(74)+JVS(823)*UV(75)+JVS(824)*UV(76) - JUV(73) = JVS(825)*UV(15)+JVS(826)*UV(29)+JVS(827)*UV(32)+JVS(828)*UV(34)+JVS(830)*UV(43)+JVS(831)*UV(46)+JVS(832)& - &*UV(47)+JVS(833)*UV(48)+JVS(834)*UV(50)+JVS(835)*UV(51)+JVS(836)*UV(52)+JVS(837)*UV(53)+JVS(838)*UV(55)& - &+JVS(839)*UV(56)+JVS(840)*UV(59)+JVS(841)*UV(60)+JVS(843)*UV(62)+JVS(845)*UV(64)+JVS(847)*UV(66)+JVS(848)& - &*UV(67)+JVS(849)*UV(68)+JVS(850)*UV(69)+JVS(851)*UV(70)+JVS(852)*UV(71)+JVS(853)*UV(72)+JVS(854)*UV(73)& - &+JVS(855)*UV(74)+JVS(857)*UV(76) - JUV(74) = JVS(858)*UV(29)+JVS(859)*UV(31)+JVS(860)*UV(34)+JVS(861)*UV(35)+JVS(862)*UV(37)+JVS(863)*UV(38)+JVS(864)& - &*UV(39)+JVS(865)*UV(44)+JVS(868)*UV(63)+JVS(874)*UV(69)+JVS(875)*UV(70)+JVS(877)*UV(72)+JVS(878)*UV(73)& - &+JVS(879)*UV(74) - JUV(75) = JVS(882)*UV(41)+JVS(883)*UV(46)+JVS(884)*UV(47)+JVS(885)*UV(56)+JVS(886)*UV(60)+JVS(887)*UV(62)+JVS(891)& - &*UV(69)+JVS(892)*UV(70)+JVS(894)*UV(72)+JVS(895)*UV(73)+JVS(897)*UV(75)+JVS(898)*UV(76) - JUV(76) = JVS(899)*UV(17)+JVS(900)*UV(54)+JVS(907)*UV(67)+JVS(908)*UV(68)+JVS(909)*UV(69)+JVS(910)*UV(70)+JVS(913)& - &*UV(73)+JVS(915)*UV(75)+JVS(916)*UV(76) - -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)+JVS(65)*UV(19)+JVS(111)*UV(29) - JTUV(2) = JVS(2)*UV(2) - JTUV(3) = JVS(5)*UV(3) - JTUV(4) = JVS(13)*UV(4) - JTUV(5) = JVS(30)*UV(5) - JTUV(6) = JVS(32)*UV(6) - JTUV(7) = JVS(3)*UV(2)+JVS(34)*UV(7)+JVS(640)*UV(69)+JVS(692)*UV(70) - JTUV(8) = JVS(36)*UV(8)+JVS(457)*UV(61)+JVS(557)*UV(66)+JVS(693)*UV(70) - JTUV(9) = JVS(38)*UV(9)+JVS(229)*UV(44) - JTUV(10) = JVS(42)*UV(10)+JVS(251)*UV(46)+JVS(307)*UV(52)+JVS(458)*UV(61)+JVS(694)*UV(70) - JTUV(11) = JVS(44)*UV(11)+JVS(258)*UV(47)+JVS(308)*UV(52)+JVS(459)*UV(61)+JVS(695)*UV(70) - JTUV(12) = JVS(46)*UV(12)+JVS(91)*UV(25)+JVS(320)*UV(53)+JVS(641)*UV(69)+JVS(696)*UV(70) - JTUV(13) = JVS(48)*UV(13)+JVS(92)*UV(25)+JVS(222)*UV(43)+JVS(642)*UV(69)+JVS(697)*UV(70) - JTUV(14) = JVS(50)*UV(14)+JVS(436)*UV(59)+JVS(780)*UV(72) - JTUV(15) = JVS(53)*UV(15)+JVS(698)*UV(70)+JVS(825)*UV(73) - JTUV(16) = JVS(56)*UV(16)+JVS(352)*UV(55)+JVS(699)*UV(70) - JTUV(17) = JVS(60)*UV(17)+JVS(272)*UV(49)+JVS(398)*UV(58)+JVS(460)*UV(61)+JVS(530)*UV(65)+JVS(643)*UV(69)+JVS(700)& - &*UV(70)+JVS(899)*UV(76) - JTUV(18) = JVS(62)*UV(18)+JVS(157)*UV(36)+JVS(399)*UV(58)+JVS(701)*UV(70)+JVS(781)*UV(72) - JTUV(19) = JVS(66)*UV(19)+JVS(112)*UV(29)+JVS(461)*UV(61)+JVS(702)*UV(70) - JTUV(20) = JVS(70)*UV(20)+JVS(193)*UV(40)+JVS(462)*UV(61)+JVS(748)*UV(71)+JVS(782)*UV(72) - JTUV(21) = JVS(31)*UV(5)+JVS(74)*UV(21)+JVS(463)*UV(61)+JVS(573)*UV(67)+JVS(605)*UV(68)+JVS(703)*UV(70) - JTUV(22) = JVS(78)*UV(22)+JVS(400)*UV(58)+JVS(574)*UV(67)+JVS(644)*UV(69)+JVS(704)*UV(70) - JTUV(23) = JVS(82)*UV(23)+JVS(100)*UV(27)+JVS(353)*UV(55)+JVS(705)*UV(70)+JVS(783)*UV(72) - JTUV(24) = JVS(86)*UV(24)+JVS(464)*UV(61)+JVS(575)*UV(67)+JVS(706)*UV(70) - JTUV(25) = JVS(93)*UV(25)+JVS(194)*UV(40)+JVS(206)*UV(41)+JVS(309)*UV(52)+JVS(437)*UV(59)+JVS(645)*UV(69)+JVS(707)& - &*UV(70)+JVS(749)*UV(71) - JTUV(26) = JVS(96)*UV(26)+JVS(143)*UV(34)+JVS(465)*UV(61)+JVS(646)*UV(69)+JVS(708)*UV(70)+JVS(784)*UV(72) - JTUV(27) = JVS(101)*UV(27)+JVS(379)*UV(57)+JVS(647)*UV(69)+JVS(709)*UV(70) - JTUV(28) = JVS(107)*UV(28)+JVS(310)*UV(52)+JVS(401)*UV(58)+JVS(606)*UV(68)+JVS(710)*UV(70)+JVS(750)*UV(71)+JVS(785)& - &*UV(72) - JTUV(29) = JVS(113)*UV(29)+JVS(144)*UV(34)+JVS(786)*UV(72)+JVS(826)*UV(73)+JVS(858)*UV(74) - JTUV(30) = JVS(119)*UV(30)+JVS(466)*UV(61)+JVS(648)*UV(69)+JVS(711)*UV(70) - JTUV(31) = JVS(6)*UV(3)+JVS(127)*UV(31)+JVS(158)*UV(36)+JVS(289)*UV(50)+JVS(366)*UV(56)+JVS(402)*UV(58)+JVS(649)& - &*UV(69)+JVS(712)*UV(70)+JVS(751)*UV(71)+JVS(859)*UV(74) - JTUV(32) = JVS(39)*UV(9)+JVS(131)*UV(32)+JVS(136)*UV(33)+JVS(230)*UV(44)+JVS(403)*UV(58)+JVS(650)*UV(69)+JVS(787)& - &*UV(72)+JVS(827)*UV(73) - JTUV(33) = JVS(63)*UV(18)+JVS(102)*UV(27)+JVS(137)*UV(33)+JVS(713)*UV(70) - JTUV(34) = JVS(67)*UV(19)+JVS(114)*UV(29)+JVS(145)*UV(34)+JVS(789)*UV(72)+JVS(828)*UV(73)+JVS(860)*UV(74) - JTUV(35) = JVS(120)*UV(30)+JVS(153)*UV(35)+JVS(160)*UV(36)+JVS(273)*UV(49)+JVS(367)*UV(56)+JVS(448)*UV(60)+JVS(515)& - &*UV(64)+JVS(531)*UV(65)+JVS(558)*UV(66)+JVS(652)*UV(69)+JVS(715)*UV(70)+JVS(752)*UV(71)+JVS(861)*UV(74) - JTUV(36) = JVS(161)*UV(36)+JVS(653)*UV(69)+JVS(716)*UV(70) - JTUV(37) = JVS(7)*UV(3)+JVS(14)*UV(4)+JVS(121)*UV(30)+JVS(162)*UV(36)+JVS(180)*UV(37)+JVS(184)*UV(38)+JVS(231)*UV(44)& - &+JVS(368)*UV(56)+JVS(405)*UV(58)+JVS(497)*UV(62)+JVS(516)*UV(64)+JVS(559)*UV(66)+JVS(654)*UV(69)+JVS(717)& - &*UV(70)+JVS(753)*UV(71)+JVS(862)*UV(74) - JTUV(38) = JVS(8)*UV(3)+JVS(15)*UV(4)+JVS(87)*UV(24)+JVS(163)*UV(36)+JVS(185)*UV(38)+JVS(298)*UV(51)+JVS(369)*UV(56)& - &+JVS(406)*UV(58)+JVS(532)*UV(65)+JVS(576)*UV(67)+JVS(655)*UV(69)+JVS(718)*UV(70)+JVS(754)*UV(71)+JVS(863)& - &*UV(74) - JTUV(39) = JVS(9)*UV(3)+JVS(122)*UV(30)+JVS(132)*UV(32)+JVS(138)*UV(33)+JVS(164)*UV(36)+JVS(189)*UV(39)+JVS(232)& - &*UV(44)+JVS(354)*UV(55)+JVS(407)*UV(58)+JVS(577)*UV(67)+JVS(607)*UV(68)+JVS(656)*UV(69)+JVS(719)*UV(70)& - &+JVS(755)*UV(71)+JVS(864)*UV(74) - JTUV(40) = JVS(195)*UV(40)+JVS(472)*UV(61)+JVS(720)*UV(70)+JVS(756)*UV(71)+JVS(791)*UV(72) - JTUV(41) = JVS(207)*UV(41)+JVS(327)*UV(54)+JVS(408)*UV(58)+JVS(578)*UV(67)+JVS(608)*UV(68)+JVS(657)*UV(69)+JVS(792)& - &*UV(72)+JVS(882)*UV(75) - JTUV(42) = JVS(165)*UV(36)+JVS(196)*UV(40)+JVS(214)*UV(42)+JVS(409)*UV(58)+JVS(473)*UV(61)+JVS(658)*UV(69)+JVS(721)& - &*UV(70)+JVS(757)*UV(71) - JTUV(43) = JVS(223)*UV(43)+JVS(242)*UV(45)+JVS(328)*UV(54)+JVS(382)*UV(57)+JVS(410)*UV(58)+JVS(579)*UV(67)+JVS(609)& - &*UV(68)+JVS(659)*UV(69)+JVS(794)*UV(72)+JVS(830)*UV(73) - JTUV(44) = JVS(10)*UV(3)+JVS(166)*UV(36)+JVS(233)*UV(44)+JVS(355)*UV(55)+JVS(383)*UV(57)+JVS(610)*UV(68)+JVS(660)& - &*UV(69)+JVS(722)*UV(70)+JVS(865)*UV(74) - JTUV(45) = JVS(197)*UV(40)+JVS(243)*UV(45)+JVS(438)*UV(59)+JVS(474)*UV(61)+JVS(611)*UV(68)+JVS(661)*UV(69)+JVS(723)& - &*UV(70)+JVS(758)*UV(71) - JTUV(46) = JVS(16)*UV(4)+JVS(252)*UV(46)+JVS(274)*UV(49)+JVS(329)*UV(54)+JVS(411)*UV(58)+JVS(533)*UV(65)+JVS(580)& - &*UV(67)+JVS(612)*UV(68)+JVS(662)*UV(69)+JVS(796)*UV(72)+JVS(831)*UV(73)+JVS(883)*UV(75) - JTUV(47) = JVS(17)*UV(4)+JVS(259)*UV(47)+JVS(275)*UV(49)+JVS(330)*UV(54)+JVS(412)*UV(58)+JVS(534)*UV(65)+JVS(581)& - &*UV(67)+JVS(613)*UV(68)+JVS(663)*UV(69)+JVS(797)*UV(72)+JVS(832)*UV(73)+JVS(884)*UV(75) - JTUV(48) = JVS(18)*UV(4)+JVS(265)*UV(48)+JVS(276)*UV(49)+JVS(331)*UV(54)+JVS(413)*UV(58)+JVS(535)*UV(65)+JVS(582)& - &*UV(67)+JVS(614)*UV(68)+JVS(664)*UV(69)+JVS(798)*UV(72)+JVS(833)*UV(73) - JTUV(49) = JVS(277)*UV(49)+JVS(475)*UV(61)+JVS(517)*UV(64)+JVS(560)*UV(66)+JVS(615)*UV(68)+JVS(724)*UV(70) - JTUV(50) = JVS(19)*UV(4)+JVS(290)*UV(50)+JVS(332)*UV(54)+JVS(414)*UV(58)+JVS(536)*UV(65)+JVS(583)*UV(67)+JVS(616)& - &*UV(68)+JVS(665)*UV(69)+JVS(799)*UV(72)+JVS(834)*UV(73) - JTUV(51) = JVS(20)*UV(4)+JVS(299)*UV(51)+JVS(333)*UV(54)+JVS(415)*UV(58)+JVS(537)*UV(65)+JVS(584)*UV(67)+JVS(617)& - &*UV(68)+JVS(666)*UV(69)+JVS(800)*UV(72)+JVS(835)*UV(73) - JTUV(52) = JVS(311)*UV(52)+JVS(334)*UV(54)+JVS(416)*UV(58)+JVS(585)*UV(67)+JVS(618)*UV(68)+JVS(667)*UV(69)+JVS(801)& - &*UV(72)+JVS(836)*UV(73) - JTUV(53) = JVS(215)*UV(42)+JVS(244)*UV(45)+JVS(321)*UV(53)+JVS(335)*UV(54)+JVS(384)*UV(57)+JVS(417)*UV(58)+JVS(586)& - &*UV(67)+JVS(619)*UV(68)+JVS(668)*UV(69)+JVS(802)*UV(72)+JVS(837)*UV(73) - JTUV(54) = JVS(336)*UV(54)+JVS(538)*UV(65)+JVS(669)*UV(69)+JVS(726)*UV(70)+JVS(900)*UV(76) - JTUV(55) = JVS(57)*UV(16)+JVS(83)*UV(23)+JVS(103)*UV(27)+JVS(167)*UV(36)+JVS(356)*UV(55)+JVS(385)*UV(57)+JVS(418)& - &*UV(58)+JVS(620)*UV(68)+JVS(670)*UV(69)+JVS(803)*UV(72)+JVS(838)*UV(73) - JTUV(56) = JVS(21)*UV(4)+JVS(370)*UV(56)+JVS(419)*UV(58)+JVS(539)*UV(65)+JVS(587)*UV(67)+JVS(621)*UV(68)+JVS(671)& - &*UV(69)+JVS(804)*UV(72)+JVS(839)*UV(73)+JVS(885)*UV(75) - JTUV(57) = JVS(168)*UV(36)+JVS(198)*UV(40)+JVS(386)*UV(57)+JVS(477)*UV(61)+JVS(622)*UV(68)+JVS(672)*UV(69)+JVS(728)& - &*UV(70)+JVS(760)*UV(71) - JTUV(58) = JVS(33)*UV(6)+JVS(169)*UV(36)+JVS(199)*UV(40)+JVS(420)*UV(58)+JVS(478)*UV(61)+JVS(673)*UV(69)+JVS(729)& - &*UV(70)+JVS(761)*UV(71) - JTUV(59) = JVS(22)*UV(4)+JVS(51)*UV(14)+JVS(170)*UV(36)+JVS(216)*UV(42)+JVS(312)*UV(52)+JVS(337)*UV(54)+JVS(387)& - &*UV(57)+JVS(421)*UV(58)+JVS(440)*UV(59)+JVS(588)*UV(67)+JVS(623)*UV(68)+JVS(674)*UV(69)+JVS(807)*UV(72)& - &+JVS(840)*UV(73) - JTUV(60) = JVS(278)*UV(49)+JVS(338)*UV(54)+JVS(422)*UV(58)+JVS(449)*UV(60)+JVS(541)*UV(65)+JVS(589)*UV(67)+JVS(624)& - &*UV(68)+JVS(675)*UV(69)+JVS(763)*UV(71)+JVS(808)*UV(72)+JVS(841)*UV(73)+JVS(886)*UV(75) - JTUV(61) = JVS(68)*UV(19)+JVS(71)*UV(20)+JVS(123)*UV(30)+JVS(200)*UV(40)+JVS(481)*UV(61)+JVS(676)*UV(69)+JVS(732)& - &*UV(70) - JTUV(62) = JVS(234)*UV(44)+JVS(339)*UV(54)+JVS(423)*UV(58)+JVS(498)*UV(62)+JVS(506)*UV(63)+JVS(590)*UV(67)+JVS(625)& - &*UV(68)+JVS(677)*UV(69)+JVS(765)*UV(71)+JVS(810)*UV(72)+JVS(843)*UV(73)+JVS(887)*UV(75) - JTUV(63) = JVS(11)*UV(3)+JVS(23)*UV(4)+JVS(88)*UV(24)+JVS(171)*UV(36)+JVS(266)*UV(48)+JVS(279)*UV(49)+JVS(371)*UV(56)& - &+JVS(424)*UV(58)+JVS(507)*UV(63)+JVS(543)*UV(65)+JVS(591)*UV(67)+JVS(678)*UV(69)+JVS(734)*UV(70)+JVS(766)& - &*UV(71)+JVS(868)*UV(74) - JTUV(64) = JVS(24)*UV(4)+JVS(341)*UV(54)+JVS(389)*UV(57)+JVS(425)*UV(58)+JVS(520)*UV(64)+JVS(592)*UV(67)+JVS(627)& - &*UV(68)+JVS(679)*UV(69)+JVS(812)*UV(72)+JVS(845)*UV(73) - JTUV(65) = JVS(172)*UV(36)+JVS(201)*UV(40)+JVS(485)*UV(61)+JVS(545)*UV(65)+JVS(593)*UV(67)+JVS(628)*UV(68)+JVS(680)& - &*UV(69)+JVS(736)*UV(70)+JVS(768)*UV(71) - JTUV(66) = JVS(25)*UV(4)+JVS(342)*UV(54)+JVS(426)*UV(58)+JVS(546)*UV(65)+JVS(563)*UV(66)+JVS(594)*UV(67)+JVS(629)& - &*UV(68)+JVS(681)*UV(69)+JVS(814)*UV(72)+JVS(847)*UV(73) - JTUV(67) = JVS(26)*UV(4)+JVS(79)*UV(22)+JVS(173)*UV(36)+JVS(208)*UV(41)+JVS(217)*UV(42)+JVS(224)*UV(43)+JVS(235)& - &*UV(44)+JVS(245)*UV(45)+JVS(253)*UV(46)+JVS(260)*UV(47)+JVS(267)*UV(48)+JVS(280)*UV(49)+JVS(291)*UV(50)& - &+JVS(300)*UV(51)+JVS(313)*UV(52)+JVS(322)*UV(53)+JVS(372)*UV(56)+JVS(390)*UV(57)+JVS(427)*UV(58)+JVS(441)& - &*UV(59)+JVS(450)*UV(60)+JVS(499)*UV(62)+JVS(508)*UV(63)+JVS(521)*UV(64)+JVS(547)*UV(65)+JVS(564)*UV(66)& - &+JVS(595)*UV(67)+JVS(630)*UV(68)+JVS(682)*UV(69)+JVS(815)*UV(72)+JVS(848)*UV(73)+JVS(907)*UV(76) - JTUV(68) = JVS(27)*UV(4)+JVS(75)*UV(21)+JVS(108)*UV(28)+JVS(174)*UV(36)+JVS(209)*UV(41)+JVS(218)*UV(42)+JVS(225)& - &*UV(43)+JVS(236)*UV(44)+JVS(246)*UV(45)+JVS(254)*UV(46)+JVS(261)*UV(47)+JVS(268)*UV(48)+JVS(281)*UV(49)& - &+JVS(292)*UV(50)+JVS(301)*UV(51)+JVS(314)*UV(52)+JVS(323)*UV(53)+JVS(373)*UV(56)+JVS(391)*UV(57)+JVS(428)& - &*UV(58)+JVS(442)*UV(59)+JVS(451)*UV(60)+JVS(500)*UV(62)+JVS(509)*UV(63)+JVS(522)*UV(64)+JVS(548)*UV(65)& - &+JVS(565)*UV(66)+JVS(596)*UV(67)+JVS(631)*UV(68)+JVS(683)*UV(69)+JVS(816)*UV(72)+JVS(849)*UV(73)+JVS(908)& - &*UV(76) - JTUV(69) = JVS(40)*UV(9)+JVS(58)*UV(16)+JVS(76)*UV(21)+JVS(80)*UV(22)+JVS(97)*UV(26)+JVS(124)*UV(30)+JVS(133)*UV(32)& - &+JVS(147)*UV(34)+JVS(202)*UV(40)+JVS(210)*UV(41)+JVS(226)*UV(43)+JVS(255)*UV(46)+JVS(262)*UV(47)+JVS(269)& - &*UV(48)+JVS(293)*UV(50)+JVS(302)*UV(51)+JVS(315)*UV(52)+JVS(324)*UV(53)+JVS(345)*UV(54)+JVS(360)*UV(55)& - &+JVS(374)*UV(56)+JVS(443)*UV(59)+JVS(452)*UV(60)+JVS(489)*UV(61)+JVS(501)*UV(62)+JVS(523)*UV(64)+JVS(566)& - &*UV(66)+JVS(597)*UV(67)+JVS(632)*UV(68)+JVS(684)*UV(69)+JVS(740)*UV(70)+JVS(772)*UV(71)+JVS(817)*UV(72)& - &+JVS(850)*UV(73)+JVS(874)*UV(74)+JVS(891)*UV(75)+JVS(909)*UV(76) - JTUV(70) = JVS(4)*UV(2)+JVS(35)*UV(7)+JVS(37)*UV(8)+JVS(41)*UV(9)+JVS(43)*UV(10)+JVS(45)*UV(11)+JVS(47)*UV(12)+JVS(49)& - &*UV(13)+JVS(54)*UV(15)+JVS(59)*UV(16)+JVS(61)*UV(17)+JVS(64)*UV(18)+JVS(77)*UV(21)+JVS(81)*UV(22)+JVS(84)& - &*UV(23)+JVS(89)*UV(24)+JVS(94)*UV(25)+JVS(98)*UV(26)+JVS(104)*UV(27)+JVS(109)*UV(28)+JVS(125)*UV(30)& - &+JVS(128)*UV(31)+JVS(134)*UV(32)+JVS(140)*UV(33)+JVS(148)*UV(34)+JVS(154)*UV(35)+JVS(176)*UV(36)+JVS(181)& - &*UV(37)+JVS(186)*UV(38)+JVS(190)*UV(39)+JVS(203)*UV(40)+JVS(219)*UV(42)+JVS(227)*UV(43)+JVS(238)*UV(44)& - &+JVS(248)*UV(45)+JVS(256)*UV(46)+JVS(263)*UV(47)+JVS(270)*UV(48)+JVS(283)*UV(49)+JVS(294)*UV(50)+JVS(303)& - &*UV(51)+JVS(316)*UV(52)+JVS(325)*UV(53)+JVS(346)*UV(54)+JVS(361)*UV(55)+JVS(393)*UV(57)+JVS(430)*UV(58)& - &+JVS(444)*UV(59)+JVS(453)*UV(60)+JVS(490)*UV(61)+JVS(502)*UV(62)+JVS(511)*UV(63)+JVS(524)*UV(64)+JVS(550)& - &*UV(65)+JVS(567)*UV(66)+JVS(598)*UV(67)+JVS(633)*UV(68)+JVS(685)*UV(69)+JVS(741)*UV(70)+JVS(773)*UV(71)& - &+JVS(818)*UV(72)+JVS(851)*UV(73)+JVS(875)*UV(74)+JVS(892)*UV(75)+JVS(910)*UV(76) - JTUV(71) = JVS(72)*UV(20)+JVS(95)*UV(25)+JVS(116)*UV(29)+JVS(129)*UV(31)+JVS(141)*UV(33)+JVS(149)*UV(34)+JVS(155)& - &*UV(35)+JVS(177)*UV(36)+JVS(182)*UV(37)+JVS(187)*UV(38)+JVS(191)*UV(39)+JVS(204)*UV(40)+JVS(212)*UV(41)& - &+JVS(220)*UV(42)+JVS(239)*UV(44)+JVS(249)*UV(45)+JVS(284)*UV(49)+JVS(376)*UV(56)+JVS(394)*UV(57)+JVS(431)& - &*UV(58)+JVS(445)*UV(59)+JVS(454)*UV(60)+JVS(503)*UV(62)+JVS(512)*UV(63)+JVS(551)*UV(65)+JVS(634)*UV(68)& - &+JVS(686)*UV(69)+JVS(774)*UV(71)+JVS(819)*UV(72)+JVS(852)*UV(73) - JTUV(72) = JVS(52)*UV(14)+JVS(73)*UV(20)+JVS(85)*UV(23)+JVS(99)*UV(26)+JVS(110)*UV(28)+JVS(117)*UV(29)+JVS(150)*UV(34)& - &+JVS(205)*UV(40)+JVS(213)*UV(41)+JVS(363)*UV(55)+JVS(446)*UV(59)+JVS(635)*UV(68)+JVS(687)*UV(69)+JVS(743)& - &*UV(70)+JVS(775)*UV(71)+JVS(820)*UV(72)+JVS(853)*UV(73)+JVS(877)*UV(74)+JVS(894)*UV(75) - JTUV(73) = JVS(55)*UV(15)+JVS(106)*UV(27)+JVS(135)*UV(32)+JVS(142)*UV(33)+JVS(151)*UV(34)+JVS(178)*UV(36)+JVS(221)& - &*UV(42)+JVS(228)*UV(43)+JVS(240)*UV(44)+JVS(250)*UV(45)+JVS(257)*UV(46)+JVS(264)*UV(47)+JVS(271)*UV(48)& - &+JVS(285)*UV(49)+JVS(296)*UV(50)+JVS(305)*UV(51)+JVS(319)*UV(52)+JVS(326)*UV(53)+JVS(364)*UV(55)+JVS(377)& - &*UV(56)+JVS(396)*UV(57)+JVS(433)*UV(58)+JVS(447)*UV(59)+JVS(455)*UV(60)+JVS(504)*UV(62)+JVS(513)*UV(63)& - &+JVS(526)*UV(64)+JVS(553)*UV(65)+JVS(569)*UV(66)+JVS(601)*UV(67)+JVS(636)*UV(68)+JVS(688)*UV(69)+JVS(744)& - &*UV(70)+JVS(776)*UV(71)+JVS(821)*UV(72)+JVS(854)*UV(73)+JVS(878)*UV(74)+JVS(895)*UV(75)+JVS(913)*UV(76) - JTUV(74) = JVS(12)*UV(3)+JVS(28)*UV(4)+JVS(69)*UV(19)+JVS(90)*UV(24)+JVS(118)*UV(29)+JVS(126)*UV(30)+JVS(130)*UV(31)& - &+JVS(152)*UV(34)+JVS(156)*UV(35)+JVS(179)*UV(36)+JVS(183)*UV(37)+JVS(188)*UV(38)+JVS(192)*UV(39)+JVS(241)& - &*UV(44)+JVS(286)*UV(49)+JVS(365)*UV(55)+JVS(397)*UV(57)+JVS(434)*UV(58)+JVS(514)*UV(63)+JVS(527)*UV(64)& - &+JVS(554)*UV(65)+JVS(570)*UV(66)+JVS(602)*UV(67)+JVS(637)*UV(68)+JVS(689)*UV(69)+JVS(745)*UV(70)+JVS(777)& - &*UV(71)+JVS(822)*UV(72)+JVS(855)*UV(73)+JVS(879)*UV(74) - JTUV(75) = JVS(287)*UV(49)+JVS(555)*UV(65)+JVS(690)*UV(69)+JVS(746)*UV(70)+JVS(823)*UV(72)+JVS(897)*UV(75)+JVS(915)& - &*UV(76) - JTUV(76) = JVS(29)*UV(4)+JVS(288)*UV(49)+JVS(351)*UV(54)+JVS(435)*UV(58)+JVS(556)*UV(65)+JVS(604)*UV(67)+JVS(639)& - &*UV(68)+JVS(691)*UV(69)+JVS(824)*UV(72)+JVS(857)*UV(73)+JVS(898)*UV(75)+JVS(916)*UV(76) - -END SUBROUTINE JacTR_SP_Vec - -! End of JacTR_SP_Vec function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE RADMKA_Jacobian - diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_Jacobian.o b/boxmox/compiled_mechs/RADMKA/RADMKA_Jacobian.o deleted file mode 100644 index 8a1010da2d482be2f734cf9352463b587b942455..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/RADMKA_Jacobian.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_JacobianSP.f90 b/boxmox/compiled_mechs/RADMKA/RADMKA_JacobianSP.f90 deleted file mode 100644 index 6357d1148d5516a4e37ecc4e700237fc63ccb5ed..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADMKA/RADMKA_JacobianSP.f90 +++ /dev/null @@ -1,220 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Sparse Jacobian Data Structures File -! -! Generated by KPP-2.2.3 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 : RADMKA_JacobianSP.f90 -! Time : Thu Oct 8 08:22:34 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADMKA_16038_BOXMOX -! Equation file : RADMKA.kpp -! Output root filename : RADMKA -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RADMKA_JacobianSP - - PUBLIC - SAVE - - -! Sparse Jacobian Data - - - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_0 = (/ & - 1, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, & - 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, & - 4, 4, 4, 4, 4, 5, 5, 6, 6, 7, 7, 8, & - 8, 9, 9, 9, 9, 10, 10, 11, 11, 12, 12, 13, & - 13, 14, 14, 14, 15, 15, 15, 16, 16, 16, 16, 17, & - 17, 18, 18, 18, 19, 19, 19, 19, 19, 20, 20, 20, & - 20, 21, 21, 21, 21, 22, 22, 22, 22, 23, 23, 23, & - 23, 24, 24, 24, 24, 24, 25, 25, 25, 25, 25, 26, & - 26, 26, 26, 27, 27, 27, 27, 27, 27, 27, 28, 28, & - 28, 28, 29, 29, 29, 29, 29, 29, 29, 29, 30, 30, & - 30, 30, 30, 30, 30, 30, 31, 31, 31, 31, 32, 32, & - 32, 32, 32, 33, 33, 33, 33, 33, 33, 33, 34, 34, & - 34, 34, 34, 34, 34, 34, 34, 34, 35, 35, 35, 35, & - 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & - 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 37, & - 37, 37, 37, 38, 38, 38, 38, 38, 39, 39, 39, 39, & - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, & - 40, 41, 41, 41, 41, 41, 41, 41, 41, 42, 42, 42, & - 42, 42, 42, 42, 42, 43, 43, 43, 43, 43, 43, 43, & - 44, 44, 44, 44, 44, 44, 44, 44, 44, 44, 44, 44, & - 44, 45, 45, 45, 45, 45, 45, 45, 45, 45, 46, 46, & - 46, 46, 46, 46, 46, 47, 47, 47, 47, 47, 47, 47, & - 48, 48, 48, 48, 48, 48, 48, 49, 49, 49, 49, 49, & - 49, 49, 49, 49, 49, 49, 49, 49, 49, 49, 49, 49, & - 50, 50, 50, 50, 50, 50, 50, 50, 50, 51, 51, 51, & - 51, 51, 51, 51, 51, 51, 52, 52, 52, 52, 52, 52, & - 52, 52, 52, 52, 52, 52, 52, 53, 53, 53, 53, 53, & - 53, 53, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, & - 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, & - 54, 54, 54, 55, 55, 55, 55, 55, 55, 55, 55, 55 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_1 = (/ & - 55, 55, 55, 55, 55, 56, 56, 56, 56, 56, 56, 56, & - 56, 56, 56, 56, 56, 56, 57, 57, 57, 57, 57, 57, & - 57, 57, 57, 57, 57, 57, 57, 57, 57, 57, 57, 57, & - 57, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, & - 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, & - 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, & - 58, 58, 58, 59, 59, 59, 59, 59, 59, 59, 59, 59, & - 59, 59, 59, 60, 60, 60, 60, 60, 60, 60, 60, 60, & - 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, & - 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, & - 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, & - 61, 61, 61, 61, 62, 62, 62, 62, 62, 62, 62, 62, & - 62, 63, 63, 63, 63, 63, 63, 63, 63, 63, 64, 64, & - 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, & - 64, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, & - 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, & - 65, 65, 65, 65, 66, 66, 66, 66, 66, 66, 66, 66, & - 66, 66, 66, 66, 66, 66, 66, 66, 67, 67, 67, 67, & - 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, & - 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, & - 67, 67, 67, 67, 68, 68, 68, 68, 68, 68, 68, 68, & - 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, & - 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, & - 68, 68, 68, 69, 69, 69, 69, 69, 69, 69, 69, 69, & - 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, & - 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, & - 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, & - 69, 69, 69, 69, 69, 69, 69, 70, 70, 70, 70, 70, & - 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, & - 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70 /) - INTEGER, PARAMETER, DIMENSION(196) :: LU_IROW_2 = (/ & - 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, & - 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, & - 70, 70, 70, 71, 71, 71, 71, 71, 71, 71, 71, 71, & - 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, & - 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 72, & - 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, & - 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, & - 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, & - 72, 72, 72, 72, 72, 72, 72, 72, 73, 73, 73, 73, & - 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, & - 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, & - 73, 73, 73, 73, 73, 74, 74, 74, 74, 74, 74, 74, & - 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, & - 74, 74, 74, 74, 74, 75, 75, 75, 75, 75, 75, 75, & - 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, 76, 76, & - 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, & - 76, 76, 76, 76 /) - INTEGER, PARAMETER, DIMENSION(916) :: LU_IROW = (/& - LU_IROW_0, LU_IROW_1, LU_IROW_2 /) - - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_0 = (/ & - 1, 2, 7, 70, 3, 31, 37, 38, 39, 44, 63, 74, & - 4, 37, 38, 46, 47, 48, 50, 51, 56, 59, 63, 64, & - 66, 67, 68, 74, 76, 5, 21, 6, 58, 7, 70, 8, & - 70, 9, 32, 69, 70, 10, 70, 11, 70, 12, 70, 13, & - 70, 14, 59, 72, 15, 70, 73, 16, 55, 69, 70, 17, & - 70, 18, 33, 70, 1, 19, 34, 61, 74, 20, 61, 71, & - 72, 21, 68, 69, 70, 22, 67, 69, 70, 23, 55, 70, & - 72, 24, 38, 63, 70, 74, 12, 13, 25, 70, 71, 26, & - 69, 70, 72, 23, 27, 33, 55, 70, 72, 73, 28, 68, & - 70, 72, 1, 19, 29, 34, 61, 71, 72, 74, 30, 35, & - 37, 39, 61, 69, 70, 74, 31, 70, 71, 74, 32, 39, & - 69, 70, 73, 32, 33, 39, 69, 70, 71, 73, 26, 29, & - 34, 61, 69, 70, 71, 72, 73, 74, 35, 70, 71, 74, & - 18, 31, 33, 35, 36, 37, 38, 39, 42, 44, 55, 57, & - 58, 59, 63, 65, 67, 68, 69, 70, 71, 73, 74, 37, & - 70, 71, 74, 37, 38, 70, 71, 74, 39, 70, 71, 74, & - 20, 25, 40, 42, 45, 57, 58, 61, 65, 69, 70, 71, & - 72, 25, 41, 67, 68, 69, 70, 71, 72, 42, 53, 59, & - 67, 68, 70, 71, 73, 13, 43, 67, 68, 69, 70, 73, & - 9, 32, 37, 39, 44, 62, 67, 68, 69, 70, 71, 73, & - 74, 43, 45, 53, 67, 68, 69, 70, 71, 73, 10, 46, & - 67, 68, 69, 70, 73, 11, 47, 67, 68, 69, 70, 73, & - 48, 63, 67, 68, 69, 70, 73, 17, 35, 46, 47, 48, & - 49, 60, 63, 67, 68, 69, 70, 71, 73, 74, 75, 76, & - 31, 50, 67, 68, 69, 70, 71, 73, 74, 38, 51, 67, & - 68, 69, 70, 71, 73, 74, 10, 11, 25, 28, 52, 59, & - 67, 68, 69, 70, 71, 72, 73, 12, 53, 67, 68, 69, & - 70, 73, 41, 43, 46, 47, 48, 50, 51, 52, 53, 54, & - 59, 60, 62, 63, 64, 66, 67, 68, 69, 70, 71, 72, & - 73, 74, 76, 16, 23, 39, 44, 55, 62, 67, 68, 69 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_1 = (/ & - 70, 71, 72, 73, 74, 31, 35, 37, 38, 56, 63, 67, & - 68, 69, 70, 71, 73, 74, 27, 33, 39, 43, 44, 53, & - 55, 57, 59, 62, 64, 67, 68, 69, 70, 71, 72, 73, & - 74, 17, 18, 22, 28, 31, 32, 33, 37, 38, 39, 41, & - 42, 43, 46, 47, 48, 50, 51, 52, 53, 55, 56, 58, & - 59, 60, 62, 63, 64, 66, 67, 68, 69, 70, 71, 72, & - 73, 74, 76, 14, 25, 45, 53, 59, 67, 68, 69, 70, & - 71, 72, 73, 35, 60, 67, 68, 69, 70, 71, 73, 74, & - 8, 10, 11, 17, 19, 20, 21, 24, 26, 30, 34, 35, & - 37, 38, 39, 40, 42, 45, 49, 53, 57, 58, 59, 60, & - 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, & - 73, 74, 75, 76, 37, 62, 67, 68, 69, 70, 71, 73, & - 74, 62, 63, 67, 68, 69, 70, 71, 73, 74, 35, 37, & - 49, 60, 63, 64, 67, 68, 69, 70, 71, 73, 74, 75, & - 76, 17, 35, 38, 46, 47, 48, 50, 51, 54, 56, 59, & - 60, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, & - 73, 74, 75, 76, 8, 35, 37, 49, 60, 63, 66, 67, & - 68, 69, 70, 71, 73, 74, 75, 76, 21, 22, 24, 38, & - 39, 41, 43, 46, 47, 48, 50, 51, 52, 53, 56, 59, & - 60, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, & - 73, 74, 75, 76, 21, 28, 39, 41, 43, 44, 45, 46, & - 47, 48, 49, 50, 51, 52, 53, 55, 56, 57, 59, 60, & - 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, & - 74, 75, 76, 7, 12, 13, 17, 22, 25, 26, 27, 30, & - 31, 32, 33, 35, 36, 37, 38, 39, 41, 42, 43, 44, & - 45, 46, 47, 48, 50, 51, 52, 53, 54, 55, 56, 57, & - 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, & - 70, 71, 72, 73, 74, 75, 76, 7, 8, 10, 11, 12, & - 13, 15, 16, 17, 18, 19, 21, 22, 23, 24, 25, 26, & - 27, 28, 30, 31, 33, 34, 35, 36, 37, 38, 39, 40 /) - INTEGER, PARAMETER, DIMENSION(196) :: LU_ICOL_2 = (/ & - 42, 44, 45, 49, 53, 54, 55, 57, 58, 59, 60, 61, & - 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, & - 74, 75, 76, 20, 25, 28, 31, 35, 37, 38, 39, 40, & - 42, 45, 53, 57, 58, 59, 60, 61, 62, 63, 64, 65, & - 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 14, & - 18, 20, 23, 26, 28, 29, 32, 33, 34, 39, 40, 41, & - 42, 43, 45, 46, 47, 48, 50, 51, 52, 53, 55, 56, & - 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, & - 69, 70, 71, 72, 73, 74, 75, 76, 15, 29, 32, 34, & - 39, 43, 46, 47, 48, 50, 51, 52, 53, 55, 56, 59, & - 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, & - 72, 73, 74, 75, 76, 29, 31, 34, 35, 37, 38, 39, & - 44, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, & - 72, 73, 74, 75, 76, 41, 46, 47, 56, 60, 62, 63, & - 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 17, 54, & - 59, 60, 62, 63, 64, 66, 67, 68, 69, 70, 71, 72, & - 73, 74, 75, 76 /) - INTEGER, PARAMETER, DIMENSION(916) :: LU_ICOL = (/& - LU_ICOL_0, LU_ICOL_1, LU_ICOL_2 /) - - INTEGER, PARAMETER, DIMENSION(77) :: LU_CROW = (/ & - 1, 2, 5, 13, 30, 32, 34, 36, 38, 42, 44, 46, & - 48, 50, 53, 56, 60, 62, 65, 70, 74, 78, 82, 86, & - 91, 96,100,107,111,119,127,131,136,143,153,157, & - 180,184,189,193,206,214,222,229,242,251,258,265, & - 272,289,298,307,320,327,352,366,379,398,436,448, & - 457,497,506,515,530,557,573,605,640,692,748,780, & - 825,858,882,899,917 /) - - INTEGER, PARAMETER, DIMENSION(77) :: LU_DIAG = (/ & - 1, 2, 5, 13, 30, 32, 34, 36, 38, 42, 44, 46, & - 48, 50, 53, 56, 60, 62, 66, 70, 74, 78, 82, 86, & - 93, 96,101,107,113,119,127,131,137,145,153,161, & - 180,185,189,195,207,214,223,233,243,252,259,265, & - 277,290,299,311,321,336,356,370,386,420,440,449, & - 481,498,507,520,545,563,595,631,684,741,774,820, & - 854,879,897,916,917 /) - - -END MODULE RADMKA_JacobianSP - diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_JacobianSP.o b/boxmox/compiled_mechs/RADMKA/RADMKA_JacobianSP.o deleted file mode 100644 index 4e59ea6fa9409159f5197fc217245308c73aada5..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/RADMKA_JacobianSP.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_LinearAlgebra.f90 b/boxmox/compiled_mechs/RADMKA/RADMKA_LinearAlgebra.f90 deleted file mode 100644 index 088c6170a44dc8f374f645f4872545e93ba47d8e..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADMKA/RADMKA_LinearAlgebra.f90 +++ /dev/null @@ -1,1571 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Linear Algebra Data and Routines File -! -! Generated by KPP-2.2.3 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 : RADMKA_LinearAlgebra.f90 -! Time : Thu Oct 8 08:22:34 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADMKA_16038_BOXMOX -! Equation file : RADMKA.kpp -! Output root filename : RADMKA -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RADMKA_LinearAlgebra - - USE RADMKA_Parameters - USE RADMKA_JacobianSP - - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! SPARSE_UTIL - SPARSE utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecomp( JVS, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RADMKA_Parameters - USE RADMKA_JacobianSP - - INTEGER :: IER - REAL(kind=dp) :: JVS(LU_NONZERO), W(NVAR), a - INTEGER :: k, kk, j, jj - - a = 0. ! mz_rs_20050606 - IER = 0 - DO k=1,NVAR - ! mz_rs_20050606: don't check if real value == 0 - ! IF ( JVS( LU_DIAG(k) ) .EQ. 0. ) THEN - IF ( ABS(JVS(LU_DIAG(k))) < TINY(a) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - W( LU_ICOL(kk) ) = JVS(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - a = -W(j) / JVS( LU_DIAG(j) ) - W(j) = -a - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVS(kk) = W( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecomp - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecompCmplx( JVS, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization, complex -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RADMKA_Parameters - USE RADMKA_JacobianSP - - INTEGER :: IER - DOUBLE COMPLEX :: JVS(LU_NONZERO), W(NVAR), a - REAL(kind=dp) :: b = 0.0 - INTEGER :: k, kk, j, jj - - IER = 0 - DO k=1,NVAR - IF ( ABS(JVS(LU_DIAG(k))) < TINY(b) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - W( LU_ICOL(kk) ) = JVS(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - a = -W(j) / JVS( LU_DIAG(j) ) - W(j) = -a - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVS(kk) = W( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecompCmplx - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecompCmplxR( JVSR, JVSI, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization, complex -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RADMKA_Parameters - USE RADMKA_JacobianSP - - INTEGER :: IER - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO) - REAL(kind=dp) :: WR(NVAR), WI(NVAR), ar, ai, den - INTEGER :: k, kk, j, jj - - IER = 0 - ar = 0.0 - DO k=1,NVAR - IF ( ( ABS(JVSR(LU_DIAG(k))) < TINY(ar) ) .AND. & - ( ABS(JVSI(LU_DIAG(k))) < TINY(ar) ) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - WR( LU_ICOL(kk) ) = JVSR(kk) - WI( LU_ICOL(kk) ) = JVSI(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - den = JVSR(LU_DIAG(j))**2 + JVSI(LU_DIAG(j))**2 - ar = -(WR(j)*JVSR(LU_DIAG(j)) + WI(j)*JVSI(LU_DIAG(j)))/den - ai = -(WI(j)*JVSR(LU_DIAG(j)) - WR(j)*JVSI(LU_DIAG(j)))/den - WR(j) = -ar - WI(j) = -ai - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - WR( LU_ICOL(jj) ) = WR( LU_ICOL(jj) ) + ar*JVSR(jj) - ai*JVSI(jj) - WI( LU_ICOL(jj) ) = WI( LU_ICOL(jj) ) + ar*JVSI(jj) + ai*JVSR(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVSR(kk) = WR( LU_ICOL(kk) ) - JVSI(kk) = WI( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecompCmplxR - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveIndirect( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse solve subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RADMKA_Parameters - USE RADMKA_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR), sum - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - X(i) = X(i) - JVS(j)*X(LU_ICOL(j)); - END DO - END DO - - DO i=NVAR,1,-1 - sum = X(i); - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sum = sum - JVS(j)*X(LU_ICOL(j)); - END DO - X(i) = sum/JVS(LU_DIAG(i)); - END DO - -END SUBROUTINE KppSolveIndirect - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRIndirect( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RADMKA_Parameters - USE RADMKA_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR) - - DO i=1,NVAR - X(i) = X(i)/JVS(LU_DIAG(i)) - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - -END SUBROUTINE KppSolveTRIndirect - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveCmplx( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RADMKA_Parameters - USE RADMKA_JacobianSP - - INTEGER :: i, j - DOUBLE COMPLEX :: JVS(LU_NONZERO), X(NVAR), sum - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - X(i) = X(i) - JVS(j)*X(LU_ICOL(j)); - END DO - END DO - - DO i=NVAR,1,-1 - sum = X(i); - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sum = sum - JVS(j)*X(LU_ICOL(j)); - END DO - X(i) = sum/JVS(LU_DIAG(i)); - END DO - -END SUBROUTINE KppSolveCmplx - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveCmplxR( JVSR, JVSI, XR, XI ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve subroutine using indirect addressing -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RADMKA_Parameters - USE RADMKA_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), sumr, sumi, den - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - XR(i) = XR(i) - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j))) - XI(i) = XI(i) - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j))) - END DO - END DO - - DO i=NVAR,1,-1 - sumr = XR(i); sumi = XI(i) - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sumr = sumr - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j))) - sumi = sumi - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j))) - END DO - den = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2 - XR(i) = (sumr*JVSR(LU_DIAG(i)) + sumi*JVSI(LU_DIAG(i)))/den - XI(i) = (sumi*JVSR(LU_DIAG(i)) - sumr*JVSI(LU_DIAG(i)))/den - END DO - -END SUBROUTINE KppSolveCmplxR - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRCmplx( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RADMKA_Parameters - USE RADMKA_JacobianSP - - INTEGER :: i, j - DOUBLE COMPLEX :: JVS(LU_NONZERO), X(NVAR) - - DO i=1,NVAR - X(i) = X(i)/JVS(LU_DIAG(i)) - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - -END SUBROUTINE KppSolveTRCmplx - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRCmplxR( JVSR, JVSI, XR, XI ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RADMKA_Parameters - USE RADMKA_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), den - - DO i=1,NVAR - den = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2 - XR(i) = (XR(i)*JVSR(LU_DIAG(i)) + XI(i)*JVSI(LU_DIAG(i)))/den - XI(i) = (XI(i)*JVSR(LU_DIAG(i)) - XR(i)*JVSI(LU_DIAG(i)))/den - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i)) - XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i)) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i)) - XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i)) - END DO - END DO - -END SUBROUTINE KppSolveTRCmplxR - - -! -! Next few commented subroutines perform sparse big linear algebra -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppDecompBig( JVS, IP, IER ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Sparse LU factorization -!! for the Runge Kutta (3n)x(3n) linear system -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE RADMKA_Parameters -! USE RADMKA_JacobianSP -! -! INTEGER :: IP3(3), IER, IP(3,NVAR) -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), W(3,3,NVAR), a(3,3), E(3,3) -! INTEGER :: k, kk, j, jj -! -! a = 0.0d0 -! IER = 0 -! DO k=1,NVAR -! DO kk = LU_CROW(k), LU_CROW(k+1)-1 -! W( 1:3,1:3,LU_ICOL(kk) ) = JVS(1:3,1:3,kk) -! END DO -! DO kk = LU_CROW(k), LU_DIAG(k)-1 -! j = LU_ICOL(kk) -! E(1:3,1:3) = JVS( 1:3,1:3,LU_DIAG(j) ) -! ! CALL DGETRF(3,3,E,3,IP3,IER) -! CALL FAC3(E,IP3,IER) -! IF ( IER /= 0 ) RETURN -! ! a = W(j) / JVS( LU_DIAG(j) ) -! a(1:3,1:3) = W( 1:3,1:3,j ) -! ! CALL DGETRS ('N',3,3,E,3,IP3,a,3,IER) -! CALL SOL3('N',E,IP3,a(1,1)) -! CALL SOL3('N',E,IP3,a(1,2)) -! CALL SOL3('N',E,IP3,a(1,3)) -! W(1:3,1:3,j) = a(1:3,1:3) -! DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 -! W( 1:3,1:3,LU_ICOL(jj) ) = W( 1:3,1:3,LU_ICOL(jj) ) & -! - MATMUL( a(1:3,1:3) , JVS(1:3,1:3,jj) ) -! END DO -! END DO -! DO kk = LU_CROW(k), LU_CROW(k+1)-1 -! JVS(1:3,1:3,kk) = W( 1:3,1:3,LU_ICOL(kk) ) -! END DO -! END DO -! -! DO k=1,NVAR -! ! CALL WGEFA(JVS(1,1,LU_DIAG(k)),3,3,IP(1,k),IER) -! ! CALL DGETRF(3,3,JVS(1,1,LU_DIAG(k)),3,IP(1,k),IER) -! CALL FAC3(JVS(1,1,LU_DIAG(k)),IP(1,k),IER) -! IF ( IER /= 0 ) RETURN -! END DO -! -!END SUBROUTINE KppDecompBig -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppSolveBig( JVS, IP, X ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Sparse solve subroutine using indirect addressing -!! for the Runge Kutta (3n)x(3n) linear system -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE RADMKA_Parameters -! USE RADMKA_JacobianSP -! -! INTEGER :: i, j, k, m, IP3(3), IP(3,NVAR), IER -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR), sum(3) -! -! DO i=1,NVAR -! DO j = LU_CROW(i), LU_DIAG(i)-1 -! !X(1:3,i) = X(1:3,i) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j))); -! DO k=1,3 -! DO m=1,3 -! X(k,i) = X(k,i) - JVS(k,m,j)*X(m,LU_ICOL(j)) -! END DO -! END DO -! END DO -! END DO -! -! DO i=NVAR,1,-1 -! sum(1:3) = X(1:3,i); -! DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 -! !sum(1:3) = sum(1:3) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j))); -! DO k=1,3 -! DO m=1,3 -! sum(k) = sum(k) - JVS(k,m,j)*X(m,LU_ICOL(j)) -! END DO -! END DO -! END DO -! ! X(i) = sum/JVS(LU_DIAG(i)); -! ! CALL DGETRS ('N',3,1,JVS(1:3,1:3,LU_DIAG(i)),3,IP(1,i),sum,3,0) -! ! CALL WGESL('N',JVS(1,1,LU_DIAG(i)),3,3,IP(1,i),sum) -! CALL SOL3('N',JVS(1,1,LU_DIAG(i)),IP(1,i),sum) -! X(1:3,i) = sum(1:3) -! END DO -! -!END SUBROUTINE KppSolveBig -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppSolveBigTR( JVS, IP, X ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Big sparse transpose solve using indirect addressing -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE RADMKA_Parameters -! USE RADMKA_JacobianSP -! -! INTEGER :: i, j, k, m, IP(3,NVAR) -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR) -! -! DO i=1,NVAR -! ! X(i) = X(i)/JVS(LU_DIAG(i)) -! CALL SOL3('T',JVS(1,1,LU_DIAG(i)),IP(1,i),X(1,i)) -! DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 -! !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) & -! ! - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) ) -! DO k=1,3 -! DO m=1,3 -! X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i) -! END DO -! END DO -! END DO -! END DO -! -! DO i=NVAR, 1, -1 -! DO j=LU_CROW(i),LU_DIAG(i)-1 -! !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) & -! ! - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) ) -! DO k=1,3 -! DO m=1,3 -! X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i) -! END DO -! END DO -! END DO -! END DO -! -!END SUBROUTINE KppSolveBigTR -! -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE FAC3(A,IPVT,INFO) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! FAC3 FACTORS THE MATRIX A (3,3) BY -!! GAUSS ELIMINATION WITH PARTIAL PIVOTING -!! LINPACK - LIKE -!! -!! Remove comments to perform pivoting -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! -! REAL(kind=dp) :: A(3,3) -! INTEGER :: IPVT(3),INFO -!! INTEGER :: L -!! REAL(kind=dp) :: t, dmax, da, TMP(3) -! REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0 -! -! info = 0 -!! t = TINY(da) -!! -!! da = ABS(A(1,1)); L = 1 -!! IF ( ABS(A(2,1))>da ) THEN -!! da = ABS(A(2,1)); L = 2 -!! IF ( ABS(A(3,1))>da ) THEN -!! L = 3 -!! END IF -!! END IF -!! IPVT(1) = L -!! IF (L /=1 ) THEN -!! TMP(1:3) = A(L,1:3) -!! A(L,1:3) = A(1,1:3) -!! A(1,1:3) = TMP(1:3) -!! END IF -!! IF (ABS(A(1,1)) < t) THEN -!! info = 1 -!! return -!! END IF -!! -! A(2,1) = A(2,1)/A(1,1) -! A(2,2) = A(2,2) - A(2,1)*A(1,2) -! A(2,3) = A(2,3) - A(2,1)*A(1,3) -! A(3,1) = A(3,1)/A(1,1) -! A(3,2) = A(3,2) - A(3,1)*A(1,2) -! A(3,3) = A(3,3) - A(3,1)*A(1,3) -! -!! IPVT(2) = 2 -!! IF (ABS(A(3,2))>ABS(A(2,2))) THEN -!! IPVT(2) = 3 -!! TMP(2:3) = A(3,2:3) -!! A(3,2:3) = A(2,2:3) -!! A(2,2:3) = TMP(2:3) -!! END IF -!! IF (ABS(A(2,2)) < t) THEN -!! info = 1 -!! return -!! END IF -!! -! A(3,2) = A(3,2)/A(2,2) -! A(3,3) = A(3,3) - A(3,2)*A(2,3) -! IPVT(3) = 3 -! -!END SUBROUTINE FAC3 -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE SOL3(Trans,A,IPVT,b) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! SOL3 solves the system 3x3 -!! A * x = b or trans(a) * x = b -!! using the factors computed by WGEFA. -!! -!! Trans = 'N' to solve A*x = b , -!! = 'T' to solve transpose(A)*x = b -!! LINPACK - LIKE -!! -!! Remove comments to use pivoting -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! CHARACTER :: Trans -! REAL(kind=dp) :: a(3,3),b(3) -! INTEGER :: IPVT(3) -!! INTEGER :: L -!! REAL(kind=dp) :: TMP -! -! SELECT CASE (Trans) -! -! CASE ('n','N') ! Solve A * x = b -! -!! Solve L*y = b -!! L = IPVT(1) -!! IF (L /= 1) THEN -!! TMP = B(1); B(1) = B(L); B(L) = TMP -!! END IF -! b(2) = b(2)-A(2,1)*b(1) -! b(3) = b(3)-A(3,1)*b(1) -! -!! L = IPVT(2) -!! IF (L /= 2) THEN -!! TMP = B(2); B(2) = B(L); B(L) = TMP -!! END IF -! b(3) = b(3)-A(3,2)*b(2) -! -!! Solve U*x = y -! b(3) = b(3)/A(3,3) -! b(2) = (b(2)-A(2,3)*b(3))/A(2,2) -! b(1) = (b(1)-A(1,3)*b(3)-A(1,2)*b(2))/A(1,1) -! -! -! CASE ('t','T') ! Solve transpose(A) * x = b -! -!! Solve transpose(U)*y = b -! b(1) = b(1)/A(1,1) -! b(2) = (b(2)-A(1,2)*b(1))/A(2,2) -! b(3) = (b(3)-A(1,3)*b(1)-A(2,3)*b(2))/A(3,3) -! -!! Solve transpose(L)*x = y -! b(2) = b(2)-A(3,2)*b(3) -!! L = ipvt(2) -!! IF (L /= 2) THEN -!! TMP = B(2); B(2) = B(L); B(L) = TMP -!! END IF -! b(1) = b(1)-A(3,1)*b(3)-A(2,1)*b(2) -!! L = ipvt(1) -!! IF (L /= 1) THEN -!! TMP = B(1); B(1) = B(L); B(L) = TMP -!! END IF -! -! END SELECT -! -!END SUBROUTINE SOL3 - -! End of SPARSE_UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! KppSolve - sparse back substitution -! Arguments : -! JVS - sparse Jacobian of variables -! X - Vector for variables -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE KppSolve ( JVS, X ) - -! JVS - sparse Jacobian of variables - REAL(kind=dp) :: JVS(LU_NONZERO) -! X - Vector for variables - REAL(kind=dp) :: X(NVAR) - - X(19) = X(19)-JVS(65)*X(1) - X(25) = X(25)-JVS(91)*X(12)-JVS(92)*X(13) - X(27) = X(27)-JVS(100)*X(23) - X(29) = X(29)-JVS(111)*X(1)-JVS(112)*X(19) - X(33) = X(33)-JVS(136)*X(32) - X(34) = X(34)-JVS(143)*X(26)-JVS(144)*X(29) - X(36) = X(36)-JVS(157)*X(18)-JVS(158)*X(31)-JVS(159)*X(33)-JVS(160)*X(35) - X(38) = X(38)-JVS(184)*X(37) - X(40) = X(40)-JVS(193)*X(20)-JVS(194)*X(25) - X(41) = X(41)-JVS(206)*X(25) - X(43) = X(43)-JVS(222)*X(13) - X(44) = X(44)-JVS(229)*X(9)-JVS(230)*X(32)-JVS(231)*X(37)-JVS(232)*X(39) - X(45) = X(45)-JVS(242)*X(43) - X(46) = X(46)-JVS(251)*X(10) - X(47) = X(47)-JVS(258)*X(11) - X(49) = X(49)-JVS(272)*X(17)-JVS(273)*X(35)-JVS(274)*X(46)-JVS(275)*X(47)-JVS(276)*X(48) - X(50) = X(50)-JVS(289)*X(31) - X(51) = X(51)-JVS(298)*X(38) - X(52) = X(52)-JVS(307)*X(10)-JVS(308)*X(11)-JVS(309)*X(25)-JVS(310)*X(28) - X(53) = X(53)-JVS(320)*X(12) - X(54) = X(54)-JVS(327)*X(41)-JVS(328)*X(43)-JVS(329)*X(46)-JVS(330)*X(47)-JVS(331)*X(48)-JVS(332)*X(50)-JVS(333)*X(51)& - &-JVS(334)*X(52)-JVS(335)*X(53) - X(55) = X(55)-JVS(352)*X(16)-JVS(353)*X(23)-JVS(354)*X(39)-JVS(355)*X(44) - X(56) = X(56)-JVS(366)*X(31)-JVS(367)*X(35)-JVS(368)*X(37)-JVS(369)*X(38) - X(57) = X(57)-JVS(379)*X(27)-JVS(380)*X(33)-JVS(381)*X(39)-JVS(382)*X(43)-JVS(383)*X(44)-JVS(384)*X(53)-JVS(385)*X(55) - X(58) = X(58)-JVS(398)*X(17)-JVS(399)*X(18)-JVS(400)*X(22)-JVS(401)*X(28)-JVS(402)*X(31)-JVS(403)*X(32)-JVS(404)*X(33)& - &-JVS(405)*X(37)-JVS(406)*X(38)-JVS(407)*X(39)-JVS(408)*X(41)-JVS(409)*X(42)-JVS(410)*X(43)-JVS(411)*X(46)& - &-JVS(412)*X(47)-JVS(413)*X(48)-JVS(414)*X(50)-JVS(415)*X(51)-JVS(416)*X(52)-JVS(417)*X(53)-JVS(418)*X(55)& - &-JVS(419)*X(56) - X(59) = X(59)-JVS(436)*X(14)-JVS(437)*X(25)-JVS(438)*X(45)-JVS(439)*X(53) - X(60) = X(60)-JVS(448)*X(35) - X(61) = X(61)-JVS(457)*X(8)-JVS(458)*X(10)-JVS(459)*X(11)-JVS(460)*X(17)-JVS(461)*X(19)-JVS(462)*X(20)-JVS(463)*X(21)& - &-JVS(464)*X(24)-JVS(465)*X(26)-JVS(466)*X(30)-JVS(467)*X(34)-JVS(468)*X(35)-JVS(469)*X(37)-JVS(470)*X(38)& - &-JVS(471)*X(39)-JVS(472)*X(40)-JVS(473)*X(42)-JVS(474)*X(45)-JVS(475)*X(49)-JVS(476)*X(53)-JVS(477)*X(57)& - &-JVS(478)*X(58)-JVS(479)*X(59)-JVS(480)*X(60) - X(62) = X(62)-JVS(497)*X(37) - X(63) = X(63)-JVS(506)*X(62) - X(64) = X(64)-JVS(515)*X(35)-JVS(516)*X(37)-JVS(517)*X(49)-JVS(518)*X(60)-JVS(519)*X(63) - X(65) = X(65)-JVS(530)*X(17)-JVS(531)*X(35)-JVS(532)*X(38)-JVS(533)*X(46)-JVS(534)*X(47)-JVS(535)*X(48)-JVS(536)*X(50)& - &-JVS(537)*X(51)-JVS(538)*X(54)-JVS(539)*X(56)-JVS(540)*X(59)-JVS(541)*X(60)-JVS(542)*X(62)-JVS(543)*X(63)& - &-JVS(544)*X(64) - X(66) = X(66)-JVS(557)*X(8)-JVS(558)*X(35)-JVS(559)*X(37)-JVS(560)*X(49)-JVS(561)*X(60)-JVS(562)*X(63) - X(67) = X(67)-JVS(573)*X(21)-JVS(574)*X(22)-JVS(575)*X(24)-JVS(576)*X(38)-JVS(577)*X(39)-JVS(578)*X(41)-JVS(579)*X(43)& - &-JVS(580)*X(46)-JVS(581)*X(47)-JVS(582)*X(48)-JVS(583)*X(50)-JVS(584)*X(51)-JVS(585)*X(52)-JVS(586)*X(53)& - &-JVS(587)*X(56)-JVS(588)*X(59)-JVS(589)*X(60)-JVS(590)*X(62)-JVS(591)*X(63)-JVS(592)*X(64)-JVS(593)*X(65)& - &-JVS(594)*X(66) - X(68) = X(68)-JVS(605)*X(21)-JVS(606)*X(28)-JVS(607)*X(39)-JVS(608)*X(41)-JVS(609)*X(43)-JVS(610)*X(44)-JVS(611)*X(45)& - &-JVS(612)*X(46)-JVS(613)*X(47)-JVS(614)*X(48)-JVS(615)*X(49)-JVS(616)*X(50)-JVS(617)*X(51)-JVS(618)*X(52)& - &-JVS(619)*X(53)-JVS(620)*X(55)-JVS(621)*X(56)-JVS(622)*X(57)-JVS(623)*X(59)-JVS(624)*X(60)-JVS(625)*X(62)& - &-JVS(626)*X(63)-JVS(627)*X(64)-JVS(628)*X(65)-JVS(629)*X(66)-JVS(630)*X(67) - X(69) = X(69)-JVS(640)*X(7)-JVS(641)*X(12)-JVS(642)*X(13)-JVS(643)*X(17)-JVS(644)*X(22)-JVS(645)*X(25)-JVS(646)*X(26)& - &-JVS(647)*X(27)-JVS(648)*X(30)-JVS(649)*X(31)-JVS(650)*X(32)-JVS(651)*X(33)-JVS(652)*X(35)-JVS(653)*X(36)& - &-JVS(654)*X(37)-JVS(655)*X(38)-JVS(656)*X(39)-JVS(657)*X(41)-JVS(658)*X(42)-JVS(659)*X(43)-JVS(660)*X(44)& - &-JVS(661)*X(45)-JVS(662)*X(46)-JVS(663)*X(47)-JVS(664)*X(48)-JVS(665)*X(50)-JVS(666)*X(51)-JVS(667)*X(52)& - &-JVS(668)*X(53)-JVS(669)*X(54)-JVS(670)*X(55)-JVS(671)*X(56)-JVS(672)*X(57)-JVS(673)*X(58)-JVS(674)*X(59)& - &-JVS(675)*X(60)-JVS(676)*X(61)-JVS(677)*X(62)-JVS(678)*X(63)-JVS(679)*X(64)-JVS(680)*X(65)-JVS(681)*X(66)& - &-JVS(682)*X(67)-JVS(683)*X(68) - X(70) = X(70)-JVS(692)*X(7)-JVS(693)*X(8)-JVS(694)*X(10)-JVS(695)*X(11)-JVS(696)*X(12)-JVS(697)*X(13)-JVS(698)*X(15)& - &-JVS(699)*X(16)-JVS(700)*X(17)-JVS(701)*X(18)-JVS(702)*X(19)-JVS(703)*X(21)-JVS(704)*X(22)-JVS(705)*X(23)& - &-JVS(706)*X(24)-JVS(707)*X(25)-JVS(708)*X(26)-JVS(709)*X(27)-JVS(710)*X(28)-JVS(711)*X(30)-JVS(712)*X(31)& - &-JVS(713)*X(33)-JVS(714)*X(34)-JVS(715)*X(35)-JVS(716)*X(36)-JVS(717)*X(37)-JVS(718)*X(38)-JVS(719)*X(39)& - &-JVS(720)*X(40)-JVS(721)*X(42)-JVS(722)*X(44)-JVS(723)*X(45)-JVS(724)*X(49)-JVS(725)*X(53)-JVS(726)*X(54)& - &-JVS(727)*X(55)-JVS(728)*X(57)-JVS(729)*X(58)-JVS(730)*X(59)-JVS(731)*X(60)-JVS(732)*X(61)-JVS(733)*X(62)& - &-JVS(734)*X(63)-JVS(735)*X(64)-JVS(736)*X(65)-JVS(737)*X(66)-JVS(738)*X(67)-JVS(739)*X(68)-JVS(740)*X(69) - X(71) = X(71)-JVS(748)*X(20)-JVS(749)*X(25)-JVS(750)*X(28)-JVS(751)*X(31)-JVS(752)*X(35)-JVS(753)*X(37)-JVS(754)*X(38)& - &-JVS(755)*X(39)-JVS(756)*X(40)-JVS(757)*X(42)-JVS(758)*X(45)-JVS(759)*X(53)-JVS(760)*X(57)-JVS(761)*X(58)& - &-JVS(762)*X(59)-JVS(763)*X(60)-JVS(764)*X(61)-JVS(765)*X(62)-JVS(766)*X(63)-JVS(767)*X(64)-JVS(768)*X(65)& - &-JVS(769)*X(66)-JVS(770)*X(67)-JVS(771)*X(68)-JVS(772)*X(69)-JVS(773)*X(70) - X(72) = X(72)-JVS(780)*X(14)-JVS(781)*X(18)-JVS(782)*X(20)-JVS(783)*X(23)-JVS(784)*X(26)-JVS(785)*X(28)-JVS(786)*X(29)& - &-JVS(787)*X(32)-JVS(788)*X(33)-JVS(789)*X(34)-JVS(790)*X(39)-JVS(791)*X(40)-JVS(792)*X(41)-JVS(793)*X(42)& - &-JVS(794)*X(43)-JVS(795)*X(45)-JVS(796)*X(46)-JVS(797)*X(47)-JVS(798)*X(48)-JVS(799)*X(50)-JVS(800)*X(51)& - &-JVS(801)*X(52)-JVS(802)*X(53)-JVS(803)*X(55)-JVS(804)*X(56)-JVS(805)*X(57)-JVS(806)*X(58)-JVS(807)*X(59)& - &-JVS(808)*X(60)-JVS(809)*X(61)-JVS(810)*X(62)-JVS(811)*X(63)-JVS(812)*X(64)-JVS(813)*X(65)-JVS(814)*X(66)& - &-JVS(815)*X(67)-JVS(816)*X(68)-JVS(817)*X(69)-JVS(818)*X(70)-JVS(819)*X(71) - X(73) = X(73)-JVS(825)*X(15)-JVS(826)*X(29)-JVS(827)*X(32)-JVS(828)*X(34)-JVS(829)*X(39)-JVS(830)*X(43)-JVS(831)*X(46)& - &-JVS(832)*X(47)-JVS(833)*X(48)-JVS(834)*X(50)-JVS(835)*X(51)-JVS(836)*X(52)-JVS(837)*X(53)-JVS(838)*X(55)& - &-JVS(839)*X(56)-JVS(840)*X(59)-JVS(841)*X(60)-JVS(842)*X(61)-JVS(843)*X(62)-JVS(844)*X(63)-JVS(845)*X(64)& - &-JVS(846)*X(65)-JVS(847)*X(66)-JVS(848)*X(67)-JVS(849)*X(68)-JVS(850)*X(69)-JVS(851)*X(70)-JVS(852)*X(71)& - &-JVS(853)*X(72) - X(74) = X(74)-JVS(858)*X(29)-JVS(859)*X(31)-JVS(860)*X(34)-JVS(861)*X(35)-JVS(862)*X(37)-JVS(863)*X(38)-JVS(864)*X(39)& - &-JVS(865)*X(44)-JVS(866)*X(61)-JVS(867)*X(62)-JVS(868)*X(63)-JVS(869)*X(64)-JVS(870)*X(65)-JVS(871)*X(66)& - &-JVS(872)*X(67)-JVS(873)*X(68)-JVS(874)*X(69)-JVS(875)*X(70)-JVS(876)*X(71)-JVS(877)*X(72)-JVS(878)*X(73) - X(75) = X(75)-JVS(882)*X(41)-JVS(883)*X(46)-JVS(884)*X(47)-JVS(885)*X(56)-JVS(886)*X(60)-JVS(887)*X(62)-JVS(888)*X(63)& - &-JVS(889)*X(67)-JVS(890)*X(68)-JVS(891)*X(69)-JVS(892)*X(70)-JVS(893)*X(71)-JVS(894)*X(72)-JVS(895)*X(73)& - &-JVS(896)*X(74) - X(76) = X(76)-JVS(899)*X(17)-JVS(900)*X(54)-JVS(901)*X(59)-JVS(902)*X(60)-JVS(903)*X(62)-JVS(904)*X(63)-JVS(905)*X(64)& - &-JVS(906)*X(66)-JVS(907)*X(67)-JVS(908)*X(68)-JVS(909)*X(69)-JVS(910)*X(70)-JVS(911)*X(71)-JVS(912)*X(72)& - &-JVS(913)*X(73)-JVS(914)*X(74)-JVS(915)*X(75) - X(76) = X(76)/JVS(916) - X(75) = (X(75)-JVS(898)*X(76))/(JVS(897)) - X(74) = (X(74)-JVS(880)*X(75)-JVS(881)*X(76))/(JVS(879)) - X(73) = (X(73)-JVS(855)*X(74)-JVS(856)*X(75)-JVS(857)*X(76))/(JVS(854)) - X(72) = (X(72)-JVS(821)*X(73)-JVS(822)*X(74)-JVS(823)*X(75)-JVS(824)*X(76))/(JVS(820)) - X(71) = (X(71)-JVS(775)*X(72)-JVS(776)*X(73)-JVS(777)*X(74)-JVS(778)*X(75)-JVS(779)*X(76))/(JVS(774)) - X(70) = (X(70)-JVS(742)*X(71)-JVS(743)*X(72)-JVS(744)*X(73)-JVS(745)*X(74)-JVS(746)*X(75)-JVS(747)*X(76))/(JVS(741)) - X(69) = (X(69)-JVS(685)*X(70)-JVS(686)*X(71)-JVS(687)*X(72)-JVS(688)*X(73)-JVS(689)*X(74)-JVS(690)*X(75)-JVS(691)& - &*X(76))/(JVS(684)) - X(68) = (X(68)-JVS(632)*X(69)-JVS(633)*X(70)-JVS(634)*X(71)-JVS(635)*X(72)-JVS(636)*X(73)-JVS(637)*X(74)-JVS(638)& - &*X(75)-JVS(639)*X(76))/(JVS(631)) - X(67) = (X(67)-JVS(596)*X(68)-JVS(597)*X(69)-JVS(598)*X(70)-JVS(599)*X(71)-JVS(600)*X(72)-JVS(601)*X(73)-JVS(602)& - &*X(74)-JVS(603)*X(75)-JVS(604)*X(76))/(JVS(595)) - X(66) = (X(66)-JVS(564)*X(67)-JVS(565)*X(68)-JVS(566)*X(69)-JVS(567)*X(70)-JVS(568)*X(71)-JVS(569)*X(73)-JVS(570)& - &*X(74)-JVS(571)*X(75)-JVS(572)*X(76))/(JVS(563)) - X(65) = (X(65)-JVS(546)*X(66)-JVS(547)*X(67)-JVS(548)*X(68)-JVS(549)*X(69)-JVS(550)*X(70)-JVS(551)*X(71)-JVS(552)& - &*X(72)-JVS(553)*X(73)-JVS(554)*X(74)-JVS(555)*X(75)-JVS(556)*X(76))/(JVS(545)) - X(64) = (X(64)-JVS(521)*X(67)-JVS(522)*X(68)-JVS(523)*X(69)-JVS(524)*X(70)-JVS(525)*X(71)-JVS(526)*X(73)-JVS(527)& - &*X(74)-JVS(528)*X(75)-JVS(529)*X(76))/(JVS(520)) - X(63) = (X(63)-JVS(508)*X(67)-JVS(509)*X(68)-JVS(510)*X(69)-JVS(511)*X(70)-JVS(512)*X(71)-JVS(513)*X(73)-JVS(514)& - &*X(74))/(JVS(507)) - X(62) = (X(62)-JVS(499)*X(67)-JVS(500)*X(68)-JVS(501)*X(69)-JVS(502)*X(70)-JVS(503)*X(71)-JVS(504)*X(73)-JVS(505)& - &*X(74))/(JVS(498)) - X(61) = (X(61)-JVS(482)*X(62)-JVS(483)*X(63)-JVS(484)*X(64)-JVS(485)*X(65)-JVS(486)*X(66)-JVS(487)*X(67)-JVS(488)& - &*X(68)-JVS(489)*X(69)-JVS(490)*X(70)-JVS(491)*X(71)-JVS(492)*X(72)-JVS(493)*X(73)-JVS(494)*X(74)-JVS(495)*X(75)& - &-JVS(496)*X(76))/(JVS(481)) - X(60) = (X(60)-JVS(450)*X(67)-JVS(451)*X(68)-JVS(452)*X(69)-JVS(453)*X(70)-JVS(454)*X(71)-JVS(455)*X(73)-JVS(456)& - &*X(74))/(JVS(449)) - X(59) = (X(59)-JVS(441)*X(67)-JVS(442)*X(68)-JVS(443)*X(69)-JVS(444)*X(70)-JVS(445)*X(71)-JVS(446)*X(72)-JVS(447)& - &*X(73))/(JVS(440)) - X(58) = (X(58)-JVS(421)*X(59)-JVS(422)*X(60)-JVS(423)*X(62)-JVS(424)*X(63)-JVS(425)*X(64)-JVS(426)*X(66)-JVS(427)& - &*X(67)-JVS(428)*X(68)-JVS(429)*X(69)-JVS(430)*X(70)-JVS(431)*X(71)-JVS(432)*X(72)-JVS(433)*X(73)-JVS(434)*X(74)& - &-JVS(435)*X(76))/(JVS(420)) - X(57) = (X(57)-JVS(387)*X(59)-JVS(388)*X(62)-JVS(389)*X(64)-JVS(390)*X(67)-JVS(391)*X(68)-JVS(392)*X(69)-JVS(393)& - &*X(70)-JVS(394)*X(71)-JVS(395)*X(72)-JVS(396)*X(73)-JVS(397)*X(74))/(JVS(386)) - X(56) = (X(56)-JVS(371)*X(63)-JVS(372)*X(67)-JVS(373)*X(68)-JVS(374)*X(69)-JVS(375)*X(70)-JVS(376)*X(71)-JVS(377)& - &*X(73)-JVS(378)*X(74))/(JVS(370)) - X(55) = (X(55)-JVS(357)*X(62)-JVS(358)*X(67)-JVS(359)*X(68)-JVS(360)*X(69)-JVS(361)*X(70)-JVS(362)*X(71)-JVS(363)& - &*X(72)-JVS(364)*X(73)-JVS(365)*X(74))/(JVS(356)) - X(54) = (X(54)-JVS(337)*X(59)-JVS(338)*X(60)-JVS(339)*X(62)-JVS(340)*X(63)-JVS(341)*X(64)-JVS(342)*X(66)-JVS(343)& - &*X(67)-JVS(344)*X(68)-JVS(345)*X(69)-JVS(346)*X(70)-JVS(347)*X(71)-JVS(348)*X(72)-JVS(349)*X(73)-JVS(350)*X(74)& - &-JVS(351)*X(76))/(JVS(336)) - X(53) = (X(53)-JVS(322)*X(67)-JVS(323)*X(68)-JVS(324)*X(69)-JVS(325)*X(70)-JVS(326)*X(73))/(JVS(321)) - X(52) = (X(52)-JVS(312)*X(59)-JVS(313)*X(67)-JVS(314)*X(68)-JVS(315)*X(69)-JVS(316)*X(70)-JVS(317)*X(71)-JVS(318)& - &*X(72)-JVS(319)*X(73))/(JVS(311)) - X(51) = (X(51)-JVS(300)*X(67)-JVS(301)*X(68)-JVS(302)*X(69)-JVS(303)*X(70)-JVS(304)*X(71)-JVS(305)*X(73)-JVS(306)& - &*X(74))/(JVS(299)) - X(50) = (X(50)-JVS(291)*X(67)-JVS(292)*X(68)-JVS(293)*X(69)-JVS(294)*X(70)-JVS(295)*X(71)-JVS(296)*X(73)-JVS(297)& - &*X(74))/(JVS(290)) - X(49) = (X(49)-JVS(278)*X(60)-JVS(279)*X(63)-JVS(280)*X(67)-JVS(281)*X(68)-JVS(282)*X(69)-JVS(283)*X(70)-JVS(284)& - &*X(71)-JVS(285)*X(73)-JVS(286)*X(74)-JVS(287)*X(75)-JVS(288)*X(76))/(JVS(277)) - X(48) = (X(48)-JVS(266)*X(63)-JVS(267)*X(67)-JVS(268)*X(68)-JVS(269)*X(69)-JVS(270)*X(70)-JVS(271)*X(73))/(JVS(265)) - X(47) = (X(47)-JVS(260)*X(67)-JVS(261)*X(68)-JVS(262)*X(69)-JVS(263)*X(70)-JVS(264)*X(73))/(JVS(259)) - X(46) = (X(46)-JVS(253)*X(67)-JVS(254)*X(68)-JVS(255)*X(69)-JVS(256)*X(70)-JVS(257)*X(73))/(JVS(252)) - X(45) = (X(45)-JVS(244)*X(53)-JVS(245)*X(67)-JVS(246)*X(68)-JVS(247)*X(69)-JVS(248)*X(70)-JVS(249)*X(71)-JVS(250)& - &*X(73))/(JVS(243)) - X(44) = (X(44)-JVS(234)*X(62)-JVS(235)*X(67)-JVS(236)*X(68)-JVS(237)*X(69)-JVS(238)*X(70)-JVS(239)*X(71)-JVS(240)& - &*X(73)-JVS(241)*X(74))/(JVS(233)) - X(43) = (X(43)-JVS(224)*X(67)-JVS(225)*X(68)-JVS(226)*X(69)-JVS(227)*X(70)-JVS(228)*X(73))/(JVS(223)) - X(42) = (X(42)-JVS(215)*X(53)-JVS(216)*X(59)-JVS(217)*X(67)-JVS(218)*X(68)-JVS(219)*X(70)-JVS(220)*X(71)-JVS(221)& - &*X(73))/(JVS(214)) - X(41) = (X(41)-JVS(208)*X(67)-JVS(209)*X(68)-JVS(210)*X(69)-JVS(211)*X(70)-JVS(212)*X(71)-JVS(213)*X(72))/(JVS(207)) - X(40) = (X(40)-JVS(196)*X(42)-JVS(197)*X(45)-JVS(198)*X(57)-JVS(199)*X(58)-JVS(200)*X(61)-JVS(201)*X(65)-JVS(202)& - &*X(69)-JVS(203)*X(70)-JVS(204)*X(71)-JVS(205)*X(72))/(JVS(195)) - X(39) = (X(39)-JVS(190)*X(70)-JVS(191)*X(71)-JVS(192)*X(74))/(JVS(189)) - X(38) = (X(38)-JVS(186)*X(70)-JVS(187)*X(71)-JVS(188)*X(74))/(JVS(185)) - X(37) = (X(37)-JVS(181)*X(70)-JVS(182)*X(71)-JVS(183)*X(74))/(JVS(180)) - X(36) = (X(36)-JVS(162)*X(37)-JVS(163)*X(38)-JVS(164)*X(39)-JVS(165)*X(42)-JVS(166)*X(44)-JVS(167)*X(55)-JVS(168)& - &*X(57)-JVS(169)*X(58)-JVS(170)*X(59)-JVS(171)*X(63)-JVS(172)*X(65)-JVS(173)*X(67)-JVS(174)*X(68)-JVS(175)*X(69)& - &-JVS(176)*X(70)-JVS(177)*X(71)-JVS(178)*X(73)-JVS(179)*X(74))/(JVS(161)) - X(35) = (X(35)-JVS(154)*X(70)-JVS(155)*X(71)-JVS(156)*X(74))/(JVS(153)) - X(34) = (X(34)-JVS(146)*X(61)-JVS(147)*X(69)-JVS(148)*X(70)-JVS(149)*X(71)-JVS(150)*X(72)-JVS(151)*X(73)-JVS(152)& - &*X(74))/(JVS(145)) - X(33) = (X(33)-JVS(138)*X(39)-JVS(139)*X(69)-JVS(140)*X(70)-JVS(141)*X(71)-JVS(142)*X(73))/(JVS(137)) - X(32) = (X(32)-JVS(132)*X(39)-JVS(133)*X(69)-JVS(134)*X(70)-JVS(135)*X(73))/(JVS(131)) - X(31) = (X(31)-JVS(128)*X(70)-JVS(129)*X(71)-JVS(130)*X(74))/(JVS(127)) - X(30) = (X(30)-JVS(120)*X(35)-JVS(121)*X(37)-JVS(122)*X(39)-JVS(123)*X(61)-JVS(124)*X(69)-JVS(125)*X(70)-JVS(126)& - &*X(74))/(JVS(119)) - X(29) = (X(29)-JVS(114)*X(34)-JVS(115)*X(61)-JVS(116)*X(71)-JVS(117)*X(72)-JVS(118)*X(74))/(JVS(113)) - X(28) = (X(28)-JVS(108)*X(68)-JVS(109)*X(70)-JVS(110)*X(72))/(JVS(107)) - X(27) = (X(27)-JVS(102)*X(33)-JVS(103)*X(55)-JVS(104)*X(70)-JVS(105)*X(72)-JVS(106)*X(73))/(JVS(101)) - X(26) = (X(26)-JVS(97)*X(69)-JVS(98)*X(70)-JVS(99)*X(72))/(JVS(96)) - X(25) = (X(25)-JVS(94)*X(70)-JVS(95)*X(71))/(JVS(93)) - X(24) = (X(24)-JVS(87)*X(38)-JVS(88)*X(63)-JVS(89)*X(70)-JVS(90)*X(74))/(JVS(86)) - X(23) = (X(23)-JVS(83)*X(55)-JVS(84)*X(70)-JVS(85)*X(72))/(JVS(82)) - X(22) = (X(22)-JVS(79)*X(67)-JVS(80)*X(69)-JVS(81)*X(70))/(JVS(78)) - X(21) = (X(21)-JVS(75)*X(68)-JVS(76)*X(69)-JVS(77)*X(70))/(JVS(74)) - X(20) = (X(20)-JVS(71)*X(61)-JVS(72)*X(71)-JVS(73)*X(72))/(JVS(70)) - X(19) = (X(19)-JVS(67)*X(34)-JVS(68)*X(61)-JVS(69)*X(74))/(JVS(66)) - X(18) = (X(18)-JVS(63)*X(33)-JVS(64)*X(70))/(JVS(62)) - X(17) = (X(17)-JVS(61)*X(70))/(JVS(60)) - X(16) = (X(16)-JVS(57)*X(55)-JVS(58)*X(69)-JVS(59)*X(70))/(JVS(56)) - X(15) = (X(15)-JVS(54)*X(70)-JVS(55)*X(73))/(JVS(53)) - X(14) = (X(14)-JVS(51)*X(59)-JVS(52)*X(72))/(JVS(50)) - X(13) = (X(13)-JVS(49)*X(70))/(JVS(48)) - X(12) = (X(12)-JVS(47)*X(70))/(JVS(46)) - X(11) = (X(11)-JVS(45)*X(70))/(JVS(44)) - X(10) = (X(10)-JVS(43)*X(70))/(JVS(42)) - X(9) = (X(9)-JVS(39)*X(32)-JVS(40)*X(69)-JVS(41)*X(70))/(JVS(38)) - X(8) = (X(8)-JVS(37)*X(70))/(JVS(36)) - X(7) = (X(7)-JVS(35)*X(70))/(JVS(34)) - X(6) = (X(6)-JVS(33)*X(58))/(JVS(32)) - X(5) = (X(5)-JVS(31)*X(21))/(JVS(30)) - X(4) = (X(4)-JVS(14)*X(37)-JVS(15)*X(38)-JVS(16)*X(46)-JVS(17)*X(47)-JVS(18)*X(48)-JVS(19)*X(50)-JVS(20)*X(51)-JVS(21)& - &*X(56)-JVS(22)*X(59)-JVS(23)*X(63)-JVS(24)*X(64)-JVS(25)*X(66)-JVS(26)*X(67)-JVS(27)*X(68)-JVS(28)*X(74)-JVS(29)& - &*X(76))/(JVS(13)) - X(3) = (X(3)-JVS(6)*X(31)-JVS(7)*X(37)-JVS(8)*X(38)-JVS(9)*X(39)-JVS(10)*X(44)-JVS(11)*X(63)-JVS(12)*X(74))/(JVS(5)) - X(2) = (X(2)-JVS(3)*X(7)-JVS(4)*X(70))/(JVS(2)) - X(1) = X(1)/JVS(1) - -END SUBROUTINE KppSolve - -! End of KppSolve function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! KppSolveTR - sparse, transposed back substitution -! Arguments : -! JVS - sparse Jacobian of variables -! X - Vector for variables -! XX - Vector for output variables -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE KppSolveTR ( JVS, X, XX ) - -! JVS - sparse Jacobian of variables - REAL(kind=dp) :: JVS(LU_NONZERO) -! X - Vector for variables - REAL(kind=dp) :: X(NVAR) -! XX - Vector for output variables - REAL(kind=dp) :: XX(NVAR) - - XX(1) = X(1)/JVS(1) - XX(2) = X(2)/JVS(2) - XX(3) = X(3)/JVS(5) - XX(4) = X(4)/JVS(13) - XX(5) = X(5)/JVS(30) - XX(6) = X(6)/JVS(32) - XX(7) = (X(7)-JVS(3)*XX(2))/(JVS(34)) - XX(8) = X(8)/JVS(36) - XX(9) = X(9)/JVS(38) - XX(10) = X(10)/JVS(42) - XX(11) = X(11)/JVS(44) - XX(12) = X(12)/JVS(46) - XX(13) = X(13)/JVS(48) - XX(14) = X(14)/JVS(50) - XX(15) = X(15)/JVS(53) - XX(16) = X(16)/JVS(56) - XX(17) = X(17)/JVS(60) - XX(18) = X(18)/JVS(62) - XX(19) = X(19)/JVS(66) - XX(20) = X(20)/JVS(70) - XX(21) = (X(21)-JVS(31)*XX(5))/(JVS(74)) - XX(22) = X(22)/JVS(78) - XX(23) = X(23)/JVS(82) - XX(24) = X(24)/JVS(86) - XX(25) = X(25)/JVS(93) - XX(26) = X(26)/JVS(96) - XX(27) = X(27)/JVS(101) - XX(28) = X(28)/JVS(107) - XX(29) = X(29)/JVS(113) - XX(30) = X(30)/JVS(119) - XX(31) = (X(31)-JVS(6)*XX(3))/(JVS(127)) - XX(32) = (X(32)-JVS(39)*XX(9))/(JVS(131)) - XX(33) = (X(33)-JVS(63)*XX(18)-JVS(102)*XX(27))/(JVS(137)) - XX(34) = (X(34)-JVS(67)*XX(19)-JVS(114)*XX(29))/(JVS(145)) - XX(35) = (X(35)-JVS(120)*XX(30))/(JVS(153)) - XX(36) = X(36)/JVS(161) - XX(37) = (X(37)-JVS(7)*XX(3)-JVS(14)*XX(4)-JVS(121)*XX(30)-JVS(162)*XX(36))/(JVS(180)) - XX(38) = (X(38)-JVS(8)*XX(3)-JVS(15)*XX(4)-JVS(87)*XX(24)-JVS(163)*XX(36))/(JVS(185)) - XX(39) = (X(39)-JVS(9)*XX(3)-JVS(122)*XX(30)-JVS(132)*XX(32)-JVS(138)*XX(33)-JVS(164)*XX(36))/(JVS(189)) - XX(40) = X(40)/JVS(195) - XX(41) = X(41)/JVS(207) - XX(42) = (X(42)-JVS(165)*XX(36)-JVS(196)*XX(40))/(JVS(214)) - XX(43) = X(43)/JVS(223) - XX(44) = (X(44)-JVS(10)*XX(3)-JVS(166)*XX(36))/(JVS(233)) - XX(45) = (X(45)-JVS(197)*XX(40))/(JVS(243)) - XX(46) = (X(46)-JVS(16)*XX(4))/(JVS(252)) - XX(47) = (X(47)-JVS(17)*XX(4))/(JVS(259)) - XX(48) = (X(48)-JVS(18)*XX(4))/(JVS(265)) - XX(49) = X(49)/JVS(277) - XX(50) = (X(50)-JVS(19)*XX(4))/(JVS(290)) - XX(51) = (X(51)-JVS(20)*XX(4))/(JVS(299)) - XX(52) = X(52)/JVS(311) - XX(53) = (X(53)-JVS(215)*XX(42)-JVS(244)*XX(45))/(JVS(321)) - XX(54) = X(54)/JVS(336) - XX(55) = (X(55)-JVS(57)*XX(16)-JVS(83)*XX(23)-JVS(103)*XX(27)-JVS(167)*XX(36))/(JVS(356)) - XX(56) = (X(56)-JVS(21)*XX(4))/(JVS(370)) - XX(57) = (X(57)-JVS(168)*XX(36)-JVS(198)*XX(40))/(JVS(386)) - XX(58) = (X(58)-JVS(33)*XX(6)-JVS(169)*XX(36)-JVS(199)*XX(40))/(JVS(420)) - XX(59) = (X(59)-JVS(22)*XX(4)-JVS(51)*XX(14)-JVS(170)*XX(36)-JVS(216)*XX(42)-JVS(312)*XX(52)-JVS(337)*XX(54)-JVS(387)& - &*XX(57)-JVS(421)*XX(58))/(JVS(440)) - XX(60) = (X(60)-JVS(278)*XX(49)-JVS(338)*XX(54)-JVS(422)*XX(58))/(JVS(449)) - XX(61) = (X(61)-JVS(68)*XX(19)-JVS(71)*XX(20)-JVS(115)*XX(29)-JVS(123)*XX(30)-JVS(146)*XX(34)-JVS(200)*XX(40))& - &/(JVS(481)) - XX(62) = (X(62)-JVS(234)*XX(44)-JVS(339)*XX(54)-JVS(357)*XX(55)-JVS(388)*XX(57)-JVS(423)*XX(58)-JVS(482)*XX(61))& - &/(JVS(498)) - XX(63) = (X(63)-JVS(11)*XX(3)-JVS(23)*XX(4)-JVS(88)*XX(24)-JVS(171)*XX(36)-JVS(266)*XX(48)-JVS(279)*XX(49)-JVS(340)& - &*XX(54)-JVS(371)*XX(56)-JVS(424)*XX(58)-JVS(483)*XX(61))/(JVS(507)) - XX(64) = (X(64)-JVS(24)*XX(4)-JVS(341)*XX(54)-JVS(389)*XX(57)-JVS(425)*XX(58)-JVS(484)*XX(61))/(JVS(520)) - XX(65) = (X(65)-JVS(172)*XX(36)-JVS(201)*XX(40)-JVS(485)*XX(61))/(JVS(545)) - XX(66) = (X(66)-JVS(25)*XX(4)-JVS(342)*XX(54)-JVS(426)*XX(58)-JVS(486)*XX(61)-JVS(546)*XX(65))/(JVS(563)) - XX(67) = (X(67)-JVS(26)*XX(4)-JVS(79)*XX(22)-JVS(173)*XX(36)-JVS(208)*XX(41)-JVS(217)*XX(42)-JVS(224)*XX(43)-JVS(235)& - &*XX(44)-JVS(245)*XX(45)-JVS(253)*XX(46)-JVS(260)*XX(47)-JVS(267)*XX(48)-JVS(280)*XX(49)-JVS(291)*XX(50)& - &-JVS(300)*XX(51)-JVS(313)*XX(52)-JVS(322)*XX(53)-JVS(343)*XX(54)-JVS(358)*XX(55)-JVS(372)*XX(56)-JVS(390)& - &*XX(57)-JVS(427)*XX(58)-JVS(441)*XX(59)-JVS(450)*XX(60)-JVS(487)*XX(61)-JVS(499)*XX(62)-JVS(508)*XX(63)& - &-JVS(521)*XX(64)-JVS(547)*XX(65)-JVS(564)*XX(66))/(JVS(595)) - XX(68) = (X(68)-JVS(27)*XX(4)-JVS(75)*XX(21)-JVS(108)*XX(28)-JVS(174)*XX(36)-JVS(209)*XX(41)-JVS(218)*XX(42)-JVS(225)& - &*XX(43)-JVS(236)*XX(44)-JVS(246)*XX(45)-JVS(254)*XX(46)-JVS(261)*XX(47)-JVS(268)*XX(48)-JVS(281)*XX(49)& - &-JVS(292)*XX(50)-JVS(301)*XX(51)-JVS(314)*XX(52)-JVS(323)*XX(53)-JVS(344)*XX(54)-JVS(359)*XX(55)-JVS(373)& - &*XX(56)-JVS(391)*XX(57)-JVS(428)*XX(58)-JVS(442)*XX(59)-JVS(451)*XX(60)-JVS(488)*XX(61)-JVS(500)*XX(62)& - &-JVS(509)*XX(63)-JVS(522)*XX(64)-JVS(548)*XX(65)-JVS(565)*XX(66)-JVS(596)*XX(67))/(JVS(631)) - XX(69) = (X(69)-JVS(40)*XX(9)-JVS(58)*XX(16)-JVS(76)*XX(21)-JVS(80)*XX(22)-JVS(97)*XX(26)-JVS(124)*XX(30)-JVS(133)& - &*XX(32)-JVS(139)*XX(33)-JVS(147)*XX(34)-JVS(175)*XX(36)-JVS(202)*XX(40)-JVS(210)*XX(41)-JVS(226)*XX(43)& - &-JVS(237)*XX(44)-JVS(247)*XX(45)-JVS(255)*XX(46)-JVS(262)*XX(47)-JVS(269)*XX(48)-JVS(282)*XX(49)-JVS(293)& - &*XX(50)-JVS(302)*XX(51)-JVS(315)*XX(52)-JVS(324)*XX(53)-JVS(345)*XX(54)-JVS(360)*XX(55)-JVS(374)*XX(56)& - &-JVS(392)*XX(57)-JVS(429)*XX(58)-JVS(443)*XX(59)-JVS(452)*XX(60)-JVS(489)*XX(61)-JVS(501)*XX(62)-JVS(510)& - &*XX(63)-JVS(523)*XX(64)-JVS(549)*XX(65)-JVS(566)*XX(66)-JVS(597)*XX(67)-JVS(632)*XX(68))/(JVS(684)) - XX(70) = (X(70)-JVS(4)*XX(2)-JVS(35)*XX(7)-JVS(37)*XX(8)-JVS(41)*XX(9)-JVS(43)*XX(10)-JVS(45)*XX(11)-JVS(47)*XX(12)& - &-JVS(49)*XX(13)-JVS(54)*XX(15)-JVS(59)*XX(16)-JVS(61)*XX(17)-JVS(64)*XX(18)-JVS(77)*XX(21)-JVS(81)*XX(22)& - &-JVS(84)*XX(23)-JVS(89)*XX(24)-JVS(94)*XX(25)-JVS(98)*XX(26)-JVS(104)*XX(27)-JVS(109)*XX(28)-JVS(125)*XX(30)& - &-JVS(128)*XX(31)-JVS(134)*XX(32)-JVS(140)*XX(33)-JVS(148)*XX(34)-JVS(154)*XX(35)-JVS(176)*XX(36)-JVS(181)& - &*XX(37)-JVS(186)*XX(38)-JVS(190)*XX(39)-JVS(203)*XX(40)-JVS(211)*XX(41)-JVS(219)*XX(42)-JVS(227)*XX(43)& - &-JVS(238)*XX(44)-JVS(248)*XX(45)-JVS(256)*XX(46)-JVS(263)*XX(47)-JVS(270)*XX(48)-JVS(283)*XX(49)-JVS(294)& - &*XX(50)-JVS(303)*XX(51)-JVS(316)*XX(52)-JVS(325)*XX(53)-JVS(346)*XX(54)-JVS(361)*XX(55)-JVS(375)*XX(56)& - &-JVS(393)*XX(57)-JVS(430)*XX(58)-JVS(444)*XX(59)-JVS(453)*XX(60)-JVS(490)*XX(61)-JVS(502)*XX(62)-JVS(511)& - &*XX(63)-JVS(524)*XX(64)-JVS(550)*XX(65)-JVS(567)*XX(66)-JVS(598)*XX(67)-JVS(633)*XX(68)-JVS(685)*XX(69))& - &/(JVS(741)) - XX(71) = (X(71)-JVS(72)*XX(20)-JVS(95)*XX(25)-JVS(116)*XX(29)-JVS(129)*XX(31)-JVS(141)*XX(33)-JVS(149)*XX(34)-JVS(155)& - &*XX(35)-JVS(177)*XX(36)-JVS(182)*XX(37)-JVS(187)*XX(38)-JVS(191)*XX(39)-JVS(204)*XX(40)-JVS(212)*XX(41)& - &-JVS(220)*XX(42)-JVS(239)*XX(44)-JVS(249)*XX(45)-JVS(284)*XX(49)-JVS(295)*XX(50)-JVS(304)*XX(51)-JVS(317)& - &*XX(52)-JVS(347)*XX(54)-JVS(362)*XX(55)-JVS(376)*XX(56)-JVS(394)*XX(57)-JVS(431)*XX(58)-JVS(445)*XX(59)& - &-JVS(454)*XX(60)-JVS(491)*XX(61)-JVS(503)*XX(62)-JVS(512)*XX(63)-JVS(525)*XX(64)-JVS(551)*XX(65)-JVS(568)& - &*XX(66)-JVS(599)*XX(67)-JVS(634)*XX(68)-JVS(686)*XX(69)-JVS(742)*XX(70))/(JVS(774)) - XX(72) = (X(72)-JVS(52)*XX(14)-JVS(73)*XX(20)-JVS(85)*XX(23)-JVS(99)*XX(26)-JVS(105)*XX(27)-JVS(110)*XX(28)-JVS(117)& - &*XX(29)-JVS(150)*XX(34)-JVS(205)*XX(40)-JVS(213)*XX(41)-JVS(318)*XX(52)-JVS(348)*XX(54)-JVS(363)*XX(55)& - &-JVS(395)*XX(57)-JVS(432)*XX(58)-JVS(446)*XX(59)-JVS(492)*XX(61)-JVS(552)*XX(65)-JVS(600)*XX(67)-JVS(635)& - &*XX(68)-JVS(687)*XX(69)-JVS(743)*XX(70)-JVS(775)*XX(71))/(JVS(820)) - XX(73) = (X(73)-JVS(55)*XX(15)-JVS(106)*XX(27)-JVS(135)*XX(32)-JVS(142)*XX(33)-JVS(151)*XX(34)-JVS(178)*XX(36)& - &-JVS(221)*XX(42)-JVS(228)*XX(43)-JVS(240)*XX(44)-JVS(250)*XX(45)-JVS(257)*XX(46)-JVS(264)*XX(47)-JVS(271)& - &*XX(48)-JVS(285)*XX(49)-JVS(296)*XX(50)-JVS(305)*XX(51)-JVS(319)*XX(52)-JVS(326)*XX(53)-JVS(349)*XX(54)& - &-JVS(364)*XX(55)-JVS(377)*XX(56)-JVS(396)*XX(57)-JVS(433)*XX(58)-JVS(447)*XX(59)-JVS(455)*XX(60)-JVS(493)& - &*XX(61)-JVS(504)*XX(62)-JVS(513)*XX(63)-JVS(526)*XX(64)-JVS(553)*XX(65)-JVS(569)*XX(66)-JVS(601)*XX(67)& - &-JVS(636)*XX(68)-JVS(688)*XX(69)-JVS(744)*XX(70)-JVS(776)*XX(71)-JVS(821)*XX(72))/(JVS(854)) - XX(74) = (X(74)-JVS(12)*XX(3)-JVS(28)*XX(4)-JVS(69)*XX(19)-JVS(90)*XX(24)-JVS(118)*XX(29)-JVS(126)*XX(30)-JVS(130)& - &*XX(31)-JVS(152)*XX(34)-JVS(156)*XX(35)-JVS(179)*XX(36)-JVS(183)*XX(37)-JVS(188)*XX(38)-JVS(192)*XX(39)& - &-JVS(241)*XX(44)-JVS(286)*XX(49)-JVS(297)*XX(50)-JVS(306)*XX(51)-JVS(350)*XX(54)-JVS(365)*XX(55)-JVS(378)& - &*XX(56)-JVS(397)*XX(57)-JVS(434)*XX(58)-JVS(456)*XX(60)-JVS(494)*XX(61)-JVS(505)*XX(62)-JVS(514)*XX(63)& - &-JVS(527)*XX(64)-JVS(554)*XX(65)-JVS(570)*XX(66)-JVS(602)*XX(67)-JVS(637)*XX(68)-JVS(689)*XX(69)-JVS(745)& - &*XX(70)-JVS(777)*XX(71)-JVS(822)*XX(72)-JVS(855)*XX(73))/(JVS(879)) - XX(75) = (X(75)-JVS(287)*XX(49)-JVS(495)*XX(61)-JVS(528)*XX(64)-JVS(555)*XX(65)-JVS(571)*XX(66)-JVS(603)*XX(67)& - &-JVS(638)*XX(68)-JVS(690)*XX(69)-JVS(746)*XX(70)-JVS(778)*XX(71)-JVS(823)*XX(72)-JVS(856)*XX(73)-JVS(880)& - &*XX(74))/(JVS(897)) - XX(76) = (X(76)-JVS(29)*XX(4)-JVS(288)*XX(49)-JVS(351)*XX(54)-JVS(435)*XX(58)-JVS(496)*XX(61)-JVS(529)*XX(64)-JVS(556)& - &*XX(65)-JVS(572)*XX(66)-JVS(604)*XX(67)-JVS(639)*XX(68)-JVS(691)*XX(69)-JVS(747)*XX(70)-JVS(779)*XX(71)& - &-JVS(824)*XX(72)-JVS(857)*XX(73)-JVS(881)*XX(74)-JVS(898)*XX(75))/(JVS(916)) - XX(76) = XX(76) - XX(75) = XX(75)-JVS(915)*XX(76) - XX(74) = XX(74)-JVS(896)*XX(75)-JVS(914)*XX(76) - XX(73) = XX(73)-JVS(878)*XX(74)-JVS(895)*XX(75)-JVS(913)*XX(76) - XX(72) = XX(72)-JVS(853)*XX(73)-JVS(877)*XX(74)-JVS(894)*XX(75)-JVS(912)*XX(76) - XX(71) = XX(71)-JVS(819)*XX(72)-JVS(852)*XX(73)-JVS(876)*XX(74)-JVS(893)*XX(75)-JVS(911)*XX(76) - XX(70) = XX(70)-JVS(773)*XX(71)-JVS(818)*XX(72)-JVS(851)*XX(73)-JVS(875)*XX(74)-JVS(892)*XX(75)-JVS(910)*XX(76) - XX(69) = XX(69)-JVS(740)*XX(70)-JVS(772)*XX(71)-JVS(817)*XX(72)-JVS(850)*XX(73)-JVS(874)*XX(74)-JVS(891)*XX(75)& - &-JVS(909)*XX(76) - XX(68) = XX(68)-JVS(683)*XX(69)-JVS(739)*XX(70)-JVS(771)*XX(71)-JVS(816)*XX(72)-JVS(849)*XX(73)-JVS(873)*XX(74)& - &-JVS(890)*XX(75)-JVS(908)*XX(76) - XX(67) = XX(67)-JVS(630)*XX(68)-JVS(682)*XX(69)-JVS(738)*XX(70)-JVS(770)*XX(71)-JVS(815)*XX(72)-JVS(848)*XX(73)& - &-JVS(872)*XX(74)-JVS(889)*XX(75)-JVS(907)*XX(76) - XX(66) = XX(66)-JVS(594)*XX(67)-JVS(629)*XX(68)-JVS(681)*XX(69)-JVS(737)*XX(70)-JVS(769)*XX(71)-JVS(814)*XX(72)& - &-JVS(847)*XX(73)-JVS(871)*XX(74)-JVS(906)*XX(76) - XX(65) = XX(65)-JVS(593)*XX(67)-JVS(628)*XX(68)-JVS(680)*XX(69)-JVS(736)*XX(70)-JVS(768)*XX(71)-JVS(813)*XX(72)& - &-JVS(846)*XX(73)-JVS(870)*XX(74) - XX(64) = XX(64)-JVS(544)*XX(65)-JVS(592)*XX(67)-JVS(627)*XX(68)-JVS(679)*XX(69)-JVS(735)*XX(70)-JVS(767)*XX(71)& - &-JVS(812)*XX(72)-JVS(845)*XX(73)-JVS(869)*XX(74)-JVS(905)*XX(76) - XX(63) = XX(63)-JVS(519)*XX(64)-JVS(543)*XX(65)-JVS(562)*XX(66)-JVS(591)*XX(67)-JVS(626)*XX(68)-JVS(678)*XX(69)& - &-JVS(734)*XX(70)-JVS(766)*XX(71)-JVS(811)*XX(72)-JVS(844)*XX(73)-JVS(868)*XX(74)-JVS(888)*XX(75)-JVS(904)& - &*XX(76) - XX(62) = XX(62)-JVS(506)*XX(63)-JVS(542)*XX(65)-JVS(590)*XX(67)-JVS(625)*XX(68)-JVS(677)*XX(69)-JVS(733)*XX(70)& - &-JVS(765)*XX(71)-JVS(810)*XX(72)-JVS(843)*XX(73)-JVS(867)*XX(74)-JVS(887)*XX(75)-JVS(903)*XX(76) - XX(61) = XX(61)-JVS(676)*XX(69)-JVS(732)*XX(70)-JVS(764)*XX(71)-JVS(809)*XX(72)-JVS(842)*XX(73)-JVS(866)*XX(74) - XX(60) = XX(60)-JVS(480)*XX(61)-JVS(518)*XX(64)-JVS(541)*XX(65)-JVS(561)*XX(66)-JVS(589)*XX(67)-JVS(624)*XX(68)& - &-JVS(675)*XX(69)-JVS(731)*XX(70)-JVS(763)*XX(71)-JVS(808)*XX(72)-JVS(841)*XX(73)-JVS(886)*XX(75)-JVS(902)& - &*XX(76) - XX(59) = XX(59)-JVS(479)*XX(61)-JVS(540)*XX(65)-JVS(588)*XX(67)-JVS(623)*XX(68)-JVS(674)*XX(69)-JVS(730)*XX(70)& - &-JVS(762)*XX(71)-JVS(807)*XX(72)-JVS(840)*XX(73)-JVS(901)*XX(76) - XX(58) = XX(58)-JVS(478)*XX(61)-JVS(673)*XX(69)-JVS(729)*XX(70)-JVS(761)*XX(71)-JVS(806)*XX(72) - XX(57) = XX(57)-JVS(477)*XX(61)-JVS(622)*XX(68)-JVS(672)*XX(69)-JVS(728)*XX(70)-JVS(760)*XX(71)-JVS(805)*XX(72) - XX(56) = XX(56)-JVS(419)*XX(58)-JVS(539)*XX(65)-JVS(587)*XX(67)-JVS(621)*XX(68)-JVS(671)*XX(69)-JVS(804)*XX(72)& - &-JVS(839)*XX(73)-JVS(885)*XX(75) - XX(55) = XX(55)-JVS(385)*XX(57)-JVS(418)*XX(58)-JVS(620)*XX(68)-JVS(670)*XX(69)-JVS(727)*XX(70)-JVS(803)*XX(72)& - &-JVS(838)*XX(73) - XX(54) = XX(54)-JVS(538)*XX(65)-JVS(669)*XX(69)-JVS(726)*XX(70)-JVS(900)*XX(76) - XX(53) = XX(53)-JVS(335)*XX(54)-JVS(384)*XX(57)-JVS(417)*XX(58)-JVS(439)*XX(59)-JVS(476)*XX(61)-JVS(586)*XX(67)& - &-JVS(619)*XX(68)-JVS(668)*XX(69)-JVS(725)*XX(70)-JVS(759)*XX(71)-JVS(802)*XX(72)-JVS(837)*XX(73) - XX(52) = XX(52)-JVS(334)*XX(54)-JVS(416)*XX(58)-JVS(585)*XX(67)-JVS(618)*XX(68)-JVS(667)*XX(69)-JVS(801)*XX(72)& - &-JVS(836)*XX(73) - XX(51) = XX(51)-JVS(333)*XX(54)-JVS(415)*XX(58)-JVS(537)*XX(65)-JVS(584)*XX(67)-JVS(617)*XX(68)-JVS(666)*XX(69)& - &-JVS(800)*XX(72)-JVS(835)*XX(73) - XX(50) = XX(50)-JVS(332)*XX(54)-JVS(414)*XX(58)-JVS(536)*XX(65)-JVS(583)*XX(67)-JVS(616)*XX(68)-JVS(665)*XX(69)& - &-JVS(799)*XX(72)-JVS(834)*XX(73) - XX(49) = XX(49)-JVS(475)*XX(61)-JVS(517)*XX(64)-JVS(560)*XX(66)-JVS(615)*XX(68)-JVS(724)*XX(70) - XX(48) = XX(48)-JVS(276)*XX(49)-JVS(331)*XX(54)-JVS(413)*XX(58)-JVS(535)*XX(65)-JVS(582)*XX(67)-JVS(614)*XX(68)& - &-JVS(664)*XX(69)-JVS(798)*XX(72)-JVS(833)*XX(73) - XX(47) = XX(47)-JVS(275)*XX(49)-JVS(330)*XX(54)-JVS(412)*XX(58)-JVS(534)*XX(65)-JVS(581)*XX(67)-JVS(613)*XX(68)& - &-JVS(663)*XX(69)-JVS(797)*XX(72)-JVS(832)*XX(73)-JVS(884)*XX(75) - XX(46) = XX(46)-JVS(274)*XX(49)-JVS(329)*XX(54)-JVS(411)*XX(58)-JVS(533)*XX(65)-JVS(580)*XX(67)-JVS(612)*XX(68)& - &-JVS(662)*XX(69)-JVS(796)*XX(72)-JVS(831)*XX(73)-JVS(883)*XX(75) - XX(45) = XX(45)-JVS(438)*XX(59)-JVS(474)*XX(61)-JVS(611)*XX(68)-JVS(661)*XX(69)-JVS(723)*XX(70)-JVS(758)*XX(71)& - &-JVS(795)*XX(72) - XX(44) = XX(44)-JVS(355)*XX(55)-JVS(383)*XX(57)-JVS(610)*XX(68)-JVS(660)*XX(69)-JVS(722)*XX(70)-JVS(865)*XX(74) - XX(43) = XX(43)-JVS(242)*XX(45)-JVS(328)*XX(54)-JVS(382)*XX(57)-JVS(410)*XX(58)-JVS(579)*XX(67)-JVS(609)*XX(68)& - &-JVS(659)*XX(69)-JVS(794)*XX(72)-JVS(830)*XX(73) - XX(42) = XX(42)-JVS(409)*XX(58)-JVS(473)*XX(61)-JVS(658)*XX(69)-JVS(721)*XX(70)-JVS(757)*XX(71)-JVS(793)*XX(72) - XX(41) = XX(41)-JVS(327)*XX(54)-JVS(408)*XX(58)-JVS(578)*XX(67)-JVS(608)*XX(68)-JVS(657)*XX(69)-JVS(792)*XX(72)& - &-JVS(882)*XX(75) - XX(40) = XX(40)-JVS(472)*XX(61)-JVS(720)*XX(70)-JVS(756)*XX(71)-JVS(791)*XX(72) - XX(39) = XX(39)-JVS(232)*XX(44)-JVS(354)*XX(55)-JVS(381)*XX(57)-JVS(407)*XX(58)-JVS(471)*XX(61)-JVS(577)*XX(67)& - &-JVS(607)*XX(68)-JVS(656)*XX(69)-JVS(719)*XX(70)-JVS(755)*XX(71)-JVS(790)*XX(72)-JVS(829)*XX(73)-JVS(864)& - &*XX(74) - XX(38) = XX(38)-JVS(298)*XX(51)-JVS(369)*XX(56)-JVS(406)*XX(58)-JVS(470)*XX(61)-JVS(532)*XX(65)-JVS(576)*XX(67)& - &-JVS(655)*XX(69)-JVS(718)*XX(70)-JVS(754)*XX(71)-JVS(863)*XX(74) - XX(37) = XX(37)-JVS(184)*XX(38)-JVS(231)*XX(44)-JVS(368)*XX(56)-JVS(405)*XX(58)-JVS(469)*XX(61)-JVS(497)*XX(62)& - &-JVS(516)*XX(64)-JVS(559)*XX(66)-JVS(654)*XX(69)-JVS(717)*XX(70)-JVS(753)*XX(71)-JVS(862)*XX(74) - XX(36) = XX(36)-JVS(653)*XX(69)-JVS(716)*XX(70) - XX(35) = XX(35)-JVS(160)*XX(36)-JVS(273)*XX(49)-JVS(367)*XX(56)-JVS(448)*XX(60)-JVS(468)*XX(61)-JVS(515)*XX(64)& - &-JVS(531)*XX(65)-JVS(558)*XX(66)-JVS(652)*XX(69)-JVS(715)*XX(70)-JVS(752)*XX(71)-JVS(861)*XX(74) - XX(34) = XX(34)-JVS(467)*XX(61)-JVS(714)*XX(70)-JVS(789)*XX(72)-JVS(828)*XX(73)-JVS(860)*XX(74) - XX(33) = XX(33)-JVS(159)*XX(36)-JVS(380)*XX(57)-JVS(404)*XX(58)-JVS(651)*XX(69)-JVS(713)*XX(70)-JVS(788)*XX(72) - XX(32) = XX(32)-JVS(136)*XX(33)-JVS(230)*XX(44)-JVS(403)*XX(58)-JVS(650)*XX(69)-JVS(787)*XX(72)-JVS(827)*XX(73) - XX(31) = XX(31)-JVS(158)*XX(36)-JVS(289)*XX(50)-JVS(366)*XX(56)-JVS(402)*XX(58)-JVS(649)*XX(69)-JVS(712)*XX(70)& - &-JVS(751)*XX(71)-JVS(859)*XX(74) - XX(30) = XX(30)-JVS(466)*XX(61)-JVS(648)*XX(69)-JVS(711)*XX(70) - XX(29) = XX(29)-JVS(144)*XX(34)-JVS(786)*XX(72)-JVS(826)*XX(73)-JVS(858)*XX(74) - XX(28) = XX(28)-JVS(310)*XX(52)-JVS(401)*XX(58)-JVS(606)*XX(68)-JVS(710)*XX(70)-JVS(750)*XX(71)-JVS(785)*XX(72) - XX(27) = XX(27)-JVS(379)*XX(57)-JVS(647)*XX(69)-JVS(709)*XX(70) - XX(26) = XX(26)-JVS(143)*XX(34)-JVS(465)*XX(61)-JVS(646)*XX(69)-JVS(708)*XX(70)-JVS(784)*XX(72) - XX(25) = XX(25)-JVS(194)*XX(40)-JVS(206)*XX(41)-JVS(309)*XX(52)-JVS(437)*XX(59)-JVS(645)*XX(69)-JVS(707)*XX(70)& - &-JVS(749)*XX(71) - XX(24) = XX(24)-JVS(464)*XX(61)-JVS(575)*XX(67)-JVS(706)*XX(70) - XX(23) = XX(23)-JVS(100)*XX(27)-JVS(353)*XX(55)-JVS(705)*XX(70)-JVS(783)*XX(72) - XX(22) = XX(22)-JVS(400)*XX(58)-JVS(574)*XX(67)-JVS(644)*XX(69)-JVS(704)*XX(70) - XX(21) = XX(21)-JVS(463)*XX(61)-JVS(573)*XX(67)-JVS(605)*XX(68)-JVS(703)*XX(70) - XX(20) = XX(20)-JVS(193)*XX(40)-JVS(462)*XX(61)-JVS(748)*XX(71)-JVS(782)*XX(72) - XX(19) = XX(19)-JVS(112)*XX(29)-JVS(461)*XX(61)-JVS(702)*XX(70) - XX(18) = XX(18)-JVS(157)*XX(36)-JVS(399)*XX(58)-JVS(701)*XX(70)-JVS(781)*XX(72) - XX(17) = XX(17)-JVS(272)*XX(49)-JVS(398)*XX(58)-JVS(460)*XX(61)-JVS(530)*XX(65)-JVS(643)*XX(69)-JVS(700)*XX(70)& - &-JVS(899)*XX(76) - XX(16) = XX(16)-JVS(352)*XX(55)-JVS(699)*XX(70) - XX(15) = XX(15)-JVS(698)*XX(70)-JVS(825)*XX(73) - XX(14) = XX(14)-JVS(436)*XX(59)-JVS(780)*XX(72) - XX(13) = XX(13)-JVS(92)*XX(25)-JVS(222)*XX(43)-JVS(642)*XX(69)-JVS(697)*XX(70) - XX(12) = XX(12)-JVS(91)*XX(25)-JVS(320)*XX(53)-JVS(641)*XX(69)-JVS(696)*XX(70) - XX(11) = XX(11)-JVS(258)*XX(47)-JVS(308)*XX(52)-JVS(459)*XX(61)-JVS(695)*XX(70) - XX(10) = XX(10)-JVS(251)*XX(46)-JVS(307)*XX(52)-JVS(458)*XX(61)-JVS(694)*XX(70) - XX(9) = XX(9)-JVS(229)*XX(44) - XX(8) = XX(8)-JVS(457)*XX(61)-JVS(557)*XX(66)-JVS(693)*XX(70) - XX(7) = XX(7)-JVS(640)*XX(69)-JVS(692)*XX(70) - XX(6) = XX(6) - XX(5) = XX(5) - XX(4) = XX(4) - XX(3) = XX(3) - XX(2) = XX(2) - XX(1) = XX(1)-JVS(65)*XX(19)-JVS(111)*XX(29) - -END SUBROUTINE KppSolveTR - -! End of KppSolveTR function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! BLAS_UTIL - BLAS-LIKE utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!-------------------------------------------------------------- -! -! BLAS/LAPACK-like subroutines used by the integration algorithms -! It is recommended to replace them by calls to the optimized -! BLAS/LAPACK library for your machine -! -! (C) Adrian Sandu, Aug. 2004 -! Virginia Polytechnic Institute and State University -!-------------------------------------------------------------- - - -!-------------------------------------------------------------- - SUBROUTINE WCOPY(N,X,incX,Y,incY) -!-------------------------------------------------------------- -! copies a vector, x, to a vector, y: y <- x -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SCOPY(N,X,1,Y,1) or CALL DCOPY(N,X,1,Y,1) -!-------------------------------------------------------------- -! USE RADMKA_Precision - - INTEGER :: i,incX,incY,M,MP1,N - REAL(kind=dp) :: X(N),Y(N) - - IF (N.LE.0) RETURN - - M = MOD(N,8) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = X(i) - END DO - IF( N .LT. 8 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,8 - Y(i) = X(i) - Y(i + 1) = X(i + 1) - Y(i + 2) = X(i + 2) - Y(i + 3) = X(i + 3) - Y(i + 4) = X(i + 4) - Y(i + 5) = X(i + 5) - Y(i + 6) = X(i + 6) - Y(i + 7) = X(i + 7) - END DO - - END SUBROUTINE WCOPY - - -!-------------------------------------------------------------- - SUBROUTINE WAXPY(N,Alpha,X,incX,Y,incY) -!-------------------------------------------------------------- -! constant times a vector plus a vector: y <- y + Alpha*x -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SAXPY(N,Alpha,X,1,Y,1) or CALL DAXPY(N,Alpha,X,1,Y,1) -!-------------------------------------------------------------- - - INTEGER :: i,incX,incY,M,MP1,N - REAL(kind=dp) :: X(N),Y(N),Alpha - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp - - IF (Alpha .EQ. ZERO) RETURN - IF (N .LE. 0) RETURN - - M = MOD(N,4) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = Y(i) + Alpha*X(i) - END DO - IF( N .LT. 4 ) RETURN - END IF - MP1 = M + 1 - DO i = MP1,N,4 - Y(i) = Y(i) + Alpha*X(i) - Y(i + 1) = Y(i + 1) + Alpha*X(i + 1) - Y(i + 2) = Y(i + 2) + Alpha*X(i + 2) - Y(i + 3) = Y(i + 3) + Alpha*X(i + 3) - END DO - - END SUBROUTINE WAXPY - - - -!-------------------------------------------------------------- - SUBROUTINE WSCAL(N,Alpha,X,incX) -!-------------------------------------------------------------- -! constant times a vector: x(1:N) <- Alpha*x(1:N) -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SSCAL(N,Alpha,X,1) or CALL DSCAL(N,Alpha,X,1) -!-------------------------------------------------------------- - - INTEGER :: i,incX,M,MP1,N - REAL(kind=dp) :: X(N),Alpha - REAL(kind=dp), PARAMETER :: ZERO=0.0_dp, ONE=1.0_dp - - IF (Alpha .EQ. ONE) RETURN - IF (N .LE. 0) RETURN - - M = MOD(N,5) - IF( M .NE. 0 ) THEN - IF (Alpha .EQ. (-ONE)) THEN - DO i = 1,M - X(i) = -X(i) - END DO - ELSEIF (Alpha .EQ. ZERO) THEN - DO i = 1,M - X(i) = ZERO - END DO - ELSE - DO i = 1,M - X(i) = Alpha*X(i) - END DO - END IF - IF( N .LT. 5 ) RETURN - END IF - MP1 = M + 1 - IF (Alpha .EQ. (-ONE)) THEN - DO i = MP1,N,5 - X(i) = -X(i) - X(i + 1) = -X(i + 1) - X(i + 2) = -X(i + 2) - X(i + 3) = -X(i + 3) - X(i + 4) = -X(i + 4) - END DO - ELSEIF (Alpha .EQ. ZERO) THEN - DO i = MP1,N,5 - X(i) = ZERO - X(i + 1) = ZERO - X(i + 2) = ZERO - X(i + 3) = ZERO - X(i + 4) = ZERO - END DO - ELSE - DO i = MP1,N,5 - X(i) = Alpha*X(i) - X(i + 1) = Alpha*X(i + 1) - X(i + 2) = Alpha*X(i + 2) - X(i + 3) = Alpha*X(i + 3) - X(i + 4) = Alpha*X(i + 4) - END DO - END IF - - END SUBROUTINE WSCAL - -!-------------------------------------------------------------- - REAL(kind=dp) FUNCTION WLAMCH( C ) -!-------------------------------------------------------------- -! returns epsilon machine -! after LAPACK -! replace this by the function from the optimized LAPACK implementation: -! CALL SLAMCH('E') or CALL DLAMCH('E') -!-------------------------------------------------------------- -! USE RADMKA_Precision - - CHARACTER :: C - INTEGER :: i - REAL(kind=dp), SAVE :: Eps - REAL(kind=dp) :: Suma - REAL(kind=dp), PARAMETER :: ONE=1.0_dp, HALF=0.5_dp - LOGICAL, SAVE :: First=.TRUE. - - IF (First) THEN - First = .FALSE. - Eps = HALF**(16) - DO i = 17, 80 - Eps = Eps*HALF - CALL WLAMCH_ADD(ONE,Eps,Suma) - IF (Suma.LE.ONE) GOTO 10 - END DO - PRINT*,'ERROR IN WLAMCH. EPS < ',Eps - RETURN -10 Eps = Eps*2 - i = i-1 - END IF - - WLAMCH = Eps - - END FUNCTION WLAMCH - - SUBROUTINE WLAMCH_ADD( A, B, Suma ) -! USE RADMKA_Precision - - REAL(kind=dp) A, B, Suma - Suma = A + B - - END SUBROUTINE WLAMCH_ADD -!-------------------------------------------------------------- - - -!-------------------------------------------------------------- - SUBROUTINE SET2ZERO(N,Y) -!-------------------------------------------------------------- -! copies zeros into the vector y: y <- 0 -! after BLAS -!-------------------------------------------------------------- - - INTEGER :: i,M,MP1,N - REAL(kind=dp) :: Y(N) - REAL(kind=dp), PARAMETER :: ZERO = 0.0d0 - - IF (N.LE.0) RETURN - - M = MOD(N,8) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = ZERO - END DO - IF( N .LT. 8 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,8 - Y(i) = ZERO - Y(i + 1) = ZERO - Y(i + 2) = ZERO - Y(i + 3) = ZERO - Y(i + 4) = ZERO - Y(i + 5) = ZERO - Y(i + 6) = ZERO - Y(i + 7) = ZERO - END DO - - END SUBROUTINE SET2ZERO - - -!-------------------------------------------------------------- - REAL(kind=dp) FUNCTION WDOT (N, DX, incX, DY, incY) -!-------------------------------------------------------------- -! dot produce: wdot = x(1:N)*y(1:N) -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SDOT(N,X,1,Y,1) or CALL DDOT(N,X,1,Y,1) -!-------------------------------------------------------------- -! USE messy_mecca_kpp_Precision -!-------------------------------------------------------------- - IMPLICIT NONE - INTEGER :: N, incX, incY - REAL(kind=dp) :: DX(N), DY(N) - - INTEGER :: i, IX, IY, M, MP1, NS - - WDOT = 0.0D0 - IF (N .LE. 0) RETURN - IF (incX .EQ. incY) IF (incX-1) 5,20,60 -! -! Code for unequal or nonpositive increments. -! - 5 IX = 1 - IY = 1 - IF (incX .LT. 0) IX = (-N+1)*incX + 1 - IF (incY .LT. 0) IY = (-N+1)*incY + 1 - DO i = 1,N - WDOT = WDOT + DX(IX)*DY(IY) - IX = IX + incX - IY = IY + incY - END DO - RETURN -! -! Code for both increments equal to 1. -! -! Clean-up loop so remaining vector length is a multiple of 5. -! - 20 M = MOD(N,5) - IF (M .EQ. 0) GO TO 40 - DO i = 1,M - WDOT = WDOT + DX(i)*DY(i) - END DO - IF (N .LT. 5) RETURN - 40 MP1 = M + 1 - DO i = MP1,N,5 - WDOT = WDOT + DX(i)*DY(i) + DX(i+1)*DY(i+1) + DX(i+2)*DY(i+2) + & - DX(i+3)*DY(i+3) + DX(i+4)*DY(i+4) - END DO - RETURN -! -! Code for equal, positive, non-unit increments. -! - 60 NS = N*incX - DO i = 1,NS,incX - WDOT = WDOT + DX(i)*DY(i) - END DO - - END FUNCTION WDOT - - -!-------------------------------------------------------------- - SUBROUTINE WADD(N,X,Y,Z) -!-------------------------------------------------------------- -! adds two vectors: z <- x + y -! BLAS - like -!-------------------------------------------------------------- -! USE RADMKA_Precision - - INTEGER :: i, M, MP1, N - REAL(kind=dp) :: X(N),Y(N),Z(N) - - IF (N.LE.0) RETURN - - M = MOD(N,5) - IF( M /= 0 ) THEN - DO i = 1,M - Z(i) = X(i) + Y(i) - END DO - IF( N < 5 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,5 - Z(i) = X(i) + Y(i) - Z(i + 1) = X(i + 1) + Y(i + 1) - Z(i + 2) = X(i + 2) + Y(i + 2) - Z(i + 3) = X(i + 3) + Y(i + 3) - Z(i + 4) = X(i + 4) + Y(i + 4) - END DO - - END SUBROUTINE WADD - - - -!-------------------------------------------------------------- - SUBROUTINE WGEFA(N,A,Ipvt,info) -!-------------------------------------------------------------- -! WGEFA FACTORS THE MATRIX A (N,N) BY -! GAUSS ELIMINATION WITH PARTIAL PIVOTING -! LINPACK - LIKE -!-------------------------------------------------------------- -! - INTEGER :: N,Ipvt(N),info - REAL(kind=dp) :: A(N,N) - REAL(kind=dp) :: t, dmax, da - INTEGER :: j,k,l - REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0 - - info = 0 - -size: IF (n > 1) THEN - -col: DO k = 1, n-1 - -! find l = pivot index -! l = idamax(n-k+1,A(k,k),1) + k - 1 - l = k; dmax = abs(A(k,k)) - DO j = k+1,n - da = ABS(A(j,k)) - IF (da > dmax) THEN - l = j; dmax = da - END IF - END DO - Ipvt(k) = l - -! zero pivot implies this column already triangularized - IF (ABS(A(l,k)) < TINY(ZERO)) THEN - info = k - return - ELSE - IF (l /= k) THEN - t = A(l,k); A(l,k) = A(k,k); A(k,k) = t - END IF - t = -ONE/A(k,k) - CALL WSCAL(n-k,t,A(k+1,k),1) - DO j = k+1, n - t = A(l,j) - IF (l /= k) THEN - A(l,j) = A(k,j); A(k,j) = t - END IF - CALL WAXPY(n-k,t,A(k+1,k),1,A(k+1,j),1) - END DO - END IF - - END DO col - - END IF size - - Ipvt(N) = N - IF (ABS(A(N,N)) == ZERO) info = N - - END SUBROUTINE WGEFA - - -!-------------------------------------------------------------- - SUBROUTINE WGESL(Trans,N,A,Ipvt,b) -!-------------------------------------------------------------- -! WGESL solves the system -! a * x = b or trans(a) * x = b -! using the factors computed by WGEFA. -! -! Trans = 'N' to solve A*x = b , -! = 'T' to solve transpose(A)*x = b -! LINPACK - LIKE -!-------------------------------------------------------------- - - INTEGER :: N,Ipvt(N) - CHARACTER :: trans - REAL(kind=dp) :: A(N,N),b(N) - REAL(kind=dp) :: t - INTEGER :: k,kb,l - - - SELECT CASE (Trans) - - CASE ('n','N') ! Solve A * x = b - -! first solve L*y = b - IF (n >= 2) THEN - DO k = 1, n-1 - l = Ipvt(k) - t = b(l) - IF (l /= k) THEN - b(l) = b(k) - b(k) = t - END IF - CALL WAXPY(n-k,t,a(k+1,k),1,b(k+1),1) - END DO - END IF -! now solve U*x = y - DO kb = 1, n - k = n + 1 - kb - b(k) = b(k)/a(k,k) - t = -b(k) - CALL WAXPY(k-1,t,a(1,k),1,b(1),1) - END DO - - CASE ('t','T') ! Solve transpose(A) * x = b - -! first solve trans(U)*y = b - DO k = 1, n - t = WDOT(k-1,a(1,k),1,b(1),1) - b(k) = (b(k) - t)/a(k,k) - END DO -! now solve trans(L)*x = y - IF (n >= 2) THEN - DO kb = 1, n-1 - k = n - kb - b(k) = b(k) + WDOT(n-k,a(k+1,k),1,b(k+1),1) - l = Ipvt(k) - IF (l /= k) THEN - t = b(l); b(l) = b(k); b(k) = t - END IF - END DO - END IF - - END SELECT - - END SUBROUTINE WGESL -! End of BLAS_UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE RADMKA_LinearAlgebra - diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_LinearAlgebra.o b/boxmox/compiled_mechs/RADMKA/RADMKA_LinearAlgebra.o deleted file mode 100644 index 7bcf2a9d48e30abdbfc9533c56549d065c3af601..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/RADMKA_LinearAlgebra.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_Main.f90 b/boxmox/compiled_mechs/RADMKA/RADMKA_Main.f90 deleted file mode 100644 index 0109e0b9504a1f735103e9fa6a9e5d917b74237c..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADMKA/RADMKA_Main.f90 +++ /dev/null @@ -1,161 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Main Program File -! -! Generated by KPP-2.2.3 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 : RADMKA_Main.f90 -! Time : Thu Oct 8 08:22:34 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADMKA_16038_BOXMOX -! Equation file : RADMKA.kpp -! Output root filename : RADMKA -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! MAIN - Main program - driver routine -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -PROGRAM RADMKA_Driver - - USE RADMKA_Model - USE RADMKA_Initialize, ONLY: Initialize - - REAL(kind=dp) :: T, DVAL(NSPEC) - REAL(kind=dp) :: RSTATE(20) - INTEGER :: IERR - INTEGER :: i, tcount, ttot - CHARACTER(LEN=60), PARAMETER :: & - brk = "------------------------------------------------------------" - - !~~~> Initialization - - STEPMIN = 0.0d0 - STEPMAX = 0.0d0 - - DO i=1,NVAR - RTOL(i) = 1.0d-4 - ATOL(i) = 1.0d-3 - END DO - - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX (__BOXMOX_VERSION__) driver" - WRITE(*,*) brk - WRITE(*,*) " " - - CALL Initialize() - - WRITE(*,*) brk - WRITE(*,*) " " - - CALL UpdateEnvironment() - - CALL readInput('InitialConditions.csv', NSPEC, SPC_NAMES, C, & - InitialCondition) - CALL InitSaveData() - - CALL InitFixNOx(NSPEC, SPC_NAMES, C) - - !~~~> Time loop - T = TSTART - tcount = 1 - ttot = NINT((TEND - TSTART) / DT) - kron: DO WHILE (T < TEND) - - IF (lverbose) THEN - WRITE(*,*) "" - WRITE(*,"(1X,A,F8.2,A)") "-------------------- time (s): ", T, & - " --------------------" - WRITE(*,*) "" - ENDIF - - TIME = T - CALL GetMass( C, DVAL ) - CALL SaveData() - - CALL UpdateEnvironment() - CALL UpdateAerosol() - CALL UpdatePhotolysisRates() - - CALL UpdateKturb() - - CALL readInput('Background.csv', NSPEC, SPC_NAMES, C, Mix, lzero=.TRUE.) - CALL readInput('Emissions.csv', NSPEC, SPC_NAMES, C, Emission) - CALL readInput('Deposition.csv', NSPEC, SPC_NAMES, C, Deposition) - - CALL Update_SUN() - CALL Update_RCONST() - - IF (T == TSTART) WRITE(*,*) " " - - IF ( MOD(tcount * 10, ttot) .EQ. 0 ) THEN - WRITE(6,991) (T-TSTART)/(TEND-TSTART)*100, T, & - ( TRIM(SPC_NAMES(MONITOR(i))), & - C(MONITOR(i))/CFACTOR, i=1,NMONITOR ) - ENDIF - - IF (lfix_NOx) THEN - CALL FixNOx(NSPEC, SPC_NAMES, C) - ENDIF - - CALL INTEGRATE( TIN = T, TOUT = T+DT, RSTATUS_U = RSTATE, & - ICNTRL_U = (/ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /), & - IERR_U = IERR ) - T = RSTATE(1) - - tcount = tcount + 1 - - IF (IERR < 0) THEN - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX integration failed, stopping." - WRITE(*,*) brk - WRITE(*,*) " " - STOP 1 - ENDIF - - IF (T == TSTART .OR. lverbose) THEN - WRITE(*,*) "" - WRITE(*,*) brk - WRITE(*,*) "" - ENDIF - - END DO kron - !~~~> End Time loop - - CALL GetMass( C, DVAL ) - WRITE(6,991) (T-TSTART)/(TEND-TSTART)*100, T, & - ( TRIM(SPC_NAMES(MONITOR(i))), & - C(MONITOR(i))/CFACTOR, i=1,NMONITOR ) - TIME = T - CALL SaveData() - CALL CloseSaveData() - - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX successfully completed." - WRITE(*,*) brk - WRITE(*,*) " " - -991 FORMAT(F6.1,'%. T=',E9.3,2X,200(A,'=',E11.4,'; ')) - -END PROGRAM RADMKA_Driver - -! End of MAIN function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_Main.o b/boxmox/compiled_mechs/RADMKA/RADMKA_Main.o deleted file mode 100644 index 4bbc07487be177749c8f8b9a778d664c712f236d..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/RADMKA_Main.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_Model.f90 b/boxmox/compiled_mechs/RADMKA/RADMKA_Model.f90 deleted file mode 100644 index adba500011c0599cc3f76e2c64ee46bd8dfe674b..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADMKA/RADMKA_Model.f90 +++ /dev/null @@ -1,21 +0,0 @@ -MODULE RADMKA_Model - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Completely defines the model RADMKA -! by using all the associated modules -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RADMKA_Precision - USE RADMKA_Parameters - USE RADMKA_Global - USE RADMKA_Function - USE RADMKA_Integrator - USE RADMKA_Rates - USE RADMKA_Jacobian - USE RADMKA_Stoichiom - USE RADMKA_LinearAlgebra - USE RADMKA_Monitor - USE RADMKA_Util - -END MODULE RADMKA_Model - diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_Model.o b/boxmox/compiled_mechs/RADMKA/RADMKA_Model.o deleted file mode 100644 index a1ce8aa3ba7014da9e2ab8784e6eca55b89f7c6f..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/RADMKA_Model.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_Monitor.f90 b/boxmox/compiled_mechs/RADMKA/RADMKA_Monitor.f90 deleted file mode 100644 index 9cfa18ae6b140cf2fdb609300d3329cddb6f33dd..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADMKA/RADMKA_Monitor.f90 +++ /dev/null @@ -1,269 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Utility Data Module File -! -! Generated by KPP-2.2.3 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 : RADMKA_Monitor.f90 -! Time : Thu Oct 8 08:22:34 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADMKA_16038_BOXMOX -! Equation file : RADMKA.kpp -! Output root filename : RADMKA -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RADMKA_Monitor - - - CHARACTER(LEN=15), PARAMETER, DIMENSION(76) :: SPC_NAMES = (/ & - 'N2 ','SULF ','ORA1 ', & - 'ORA2 ','CO2 ','H2 ', & - 'SO2 ','ETH ','ISHP ', & - 'HC5 ','HC8 ','TOL ', & - 'XYL ','TPAN ','HONO ', & - 'MAHP ','HC3 ','NALD ', & - 'O1D ','N2O5 ','PAA ', & - 'OP1 ','MPAN ','CH4 ', & - 'CSL ','HNO4 ','HACE ', & - 'PAN ','O3P ','H2O2 ', & - 'OL2 ','ISOP ','ISON ', & - 'O2 ','API ','CO ', & - 'LIM ','OLT ','ISO ', & - 'HNO3 ','XNO2 ','GLY ', & - 'XYLP ','MACR ','DCB ', & - 'HC5P ','HC8P ','OLIP ', & - 'KET ','OL2P ','OLTP ', & - 'XO2 ','TOLP ','OP2 ', & - 'MACP ','OLN ','MGLY ', & - 'HCHO ','TCO3 ','APIP ', & - 'H2O ','LIMP ','OLI ', & - 'KETP ','ALD ','ETHP ', & - 'MO2 ','ACO3 ','HO2 ', & - 'HO ','NO3 ','NO2 ', & - 'NO ','O3 ','ONIT ', & - 'HC3P ' /) - - INTEGER, PARAMETER, DIMENSION(76) :: LOOKAT = (/ & - 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, & - 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, & - 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, & - 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, & - 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, & - 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, & - 73, 74, 75, 76 /) - - INTEGER, DIMENSION(1) :: MONITOR - CHARACTER(LEN=15), DIMENSION(1) :: SMASS - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_0 = (/ & - ' NO2 --> O3P + NO ', & - ' O3 --> O1D + O2 ', & - ' O3 --> O3P + O2 ', & - ' HONO --> HO + NO ', & - ' HNO3 --> HO + NO2 ', & - ' HNO4 --> HO2 + NO2 ', & - ' NO3 --> O2 + NO ', & - ' NO3 --> O3P + NO2 ', & - ' H2O2 --> 2 HO ', & - ' HCHO --> H2 + CO ', & - ' HCHO --> CO + 2 HO2 ', & - ' ALD --> CO + MO2 + HO2 ', & - ' OP1 --> HCHO + HO2 + HO ', & - ' OP2 --> ALD + HO2 + HO ', & - ' PAA --> CO2 + MO2 + HO ', & - ' KET --> ETHP + ACO3 ', & - ' GLY --> 1.87 CO + 0.13 HCHO ', & - ' GLY --> 1.55 CO + 0.45 HCHO + 0.8 HO2 ', & - ' MGLY --> CO + ACO3 + HO2 ', & - ' DCB --> TCO3 + 0.02 ACO3 + 0.98 HO2 ', & - ' ONIT --> 0.8 KET + 0.2 ALD + HO2 + NO2 ', & - ' O3P + O2 --> O3 ', & - ' O3P + NO2 --> O2 + NO ', & - ' N2 + O1D --> N2 + O3P ', & - ' O1D + O2 --> O3P + O2 ', & - ' O1D + H2O --> 2 HO ', & - ' NO + O3 --> O2 + NO2 ', & - ' HO + O3 --> O2 + HO2 ', & - ' HO2 + O3 --> 2 O2 + HO ', & - ' HO2 + NO --> HO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_1 = (/ & - ' HO2 + NO2 --> HNO4 ', & - ' 2 HO2 --> H2O2 ', & - 'H2O + 2 HO2 --> H2O2 + H2O ', & - ' H2O2 + HO --> H2O + HO2 ', & - ' HO + NO --> HONO ', & - ' O2 + 2 NO --> 2 NO2 ', & - ' NO2 + O3 --> NO3 ', & - ' NO3 + NO --> 2 NO2 ', & - ' NO3 + NO2 --> O2 + NO2 + NO ', & - ' HO2 + NO3 --> O2 + HNO3 ', & - ' NO3 + NO2 --> N2O5 ', & - ' N2O5 --> NO3 + NO2 ', & - ' N2O5 + H2O --> 2 HNO3 ', & - ' HO + NO2 --> HNO3 ', & - ' HNO3 + HO --> H2O + NO3 ', & - ' HNO4 + HO --> O2 + H2O + NO2 ', & - ' HO2 + HO --> O2 + H2O ', & - ' SO2 + HO --> SULF + HO2 ', & - ' CO + HO --> HO2 ', & - ' CH4 + HO --> H2O + MO2 ', & - ' ETH + HO --> H2O + ETHP ', & - ' HC3 + HO --> 0.025 KET + 0.009 HCHO + H2O + 0.075 ALD + 0.17 HO2 + 0.83 HC3P ', & - ' HC5 + HO --> HC5P + 0.25 XO2 + H2O ', & - ' HC8 + HO --> HC8P + 0.75 XO2 + H2O ', & - ' OL2 + HO --> OL2P ', & - ' OLT + HO --> OLTP ', & - ' OLI + HO --> OLIP ', & - ' TOL + HO --> 0.25 CSL + 0.75 TOLP + 0.25 HO2 ', & - ' XYL + HO --> 0.17 CSL + 0.83 XYLP + 0.17 HO2 ', & - ' CSL + HO --> 0.9 XO2 + 0.9 TCO3 + 0.1 HO2 - -0.9 HO ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_2 = (/ & - ' HCHO + HO --> CO + H2O + HO2 ', & - ' ALD + HO --> H2O + ACO3 ', & - ' KET + HO --> H2O + KETP ', & - ' GLY + HO --> 2 CO + H2O + HO2 ', & - ' MGLY + HO --> CO + H2O + ACO3 ', & - ' DCB + HO --> TCO3 + H2O ', & - ' OP1 + HO --> 0.5 HCHO + 0.5 MO2 + 0.5 HO ', & - ' OP2 + HO --> 0.5 ALD + 0.5 HO + 0.5 HC3P ', & - ' PAA + HO --> H2O + ACO3 ', & - ' PAN + HO --> XO2 + HCHO + NO3 ', & - ' HO + ONIT --> NO2 + HC3P ', & - ' ISO + HO --> ISOP ', & - ' ACO3 + NO2 --> PAN ', & - ' PAN --> ACO3 + NO2 ', & - ' TCO3 + NO2 --> TPAN ', & - ' TPAN --> TCO3 + NO2 ', & - ' MO2 + NO --> HCHO + HO2 + NO2 ', & - ' NO + HC3P --> 0.25 KET + 0.09 HCHO + 0.75 ALD + 0.964 HO2 + 0.964 NO2 + 0.036 ONIT ', & - ' HC5P + NO --> 0.69 KET + 0.38 ALD + 0.92 HO2 + 0.92 NO2 + 0.08 ONIT ', & - ' HC8P + NO --> 1.06 KET + 0.04 HCHO + 0.35 ALD + 0.76 HO2 + 0.76 NO2 + 0.24 ONIT ', & - ' OL2P + NO --> 1.6 HCHO + 0.2 ALD + HO2 + NO2 ', & - ' OLTP + NO --> HCHO + ALD + HO2 + NO2 ', & - ' OLIP + NO --> 0.1 KET + 0.28 HCHO + 1.45 ALD + HO2 + NO2 ', & - ' ACO3 + NO --> MO2 + NO2 ', & - ' TCO3 + NO --> 0.95 CO + 0.89 GLY + 2 XO2 + 0.11 MGLY + 0.05 ACO3 + 0.92 HO2 + NO2 ', & - ' TOLP + NO --> 0.16 GLY + 0.7 DCB + 0.17 MGLY + HO2 + NO2 ', & - ' XYLP + NO --> 0.806 DCB + 0.45 MGLY + HO2 + NO2 ', & - ' ETHP + NO --> ALD + HO2 + NO2 ', & - ' KETP + NO --> MGLY + HO2 + NO2 ', & - ' OLN + NO --> HCHO + ALD + 2 NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_3 = (/ & - ' HCHO + NO3 --> CO + HNO3 + HO2 ', & - ' ALD + NO3 --> HNO3 + ACO3 ', & - ' GLY + NO3 --> 2 CO + HNO3 + HO2 ', & - ' MGLY + NO3 --> CO + HNO3 + ACO3 ', & - ' DCB + NO3 --> HNO3 + TCO3 ', & - ' CSL + NO3 --> 0.5 CSL + HNO3 + XNO2 ', & - ' OL2 + NO3 --> OLN ', & - ' OLT + NO3 --> OLN ', & - ' OLI + NO3 --> OLN ', & - ' ISO + NO3 --> ISON ', & - ' OL2 + O3 --> 0.4 ORA1 + 0.42 CO + HCHO + 0.12 HO2 ', & - ' OLT + O3 --> 0.2 ORA1 + 0.2 ORA2 + 0.06 CH4 + 0.33 CO + 0.53 HCHO + 0.5 ALD + 0.22 MO2 + 0.23 HO2 + 0.1 HO ', & - ' OLI + O3 --> 0.06 ORA1 + 0.29 ORA2 + 0.09 CH4 + 0.23 CO + 0.1 KET + 0.18 HCHO + 0.72 ALD + 0.31 MO2 + 0.26 HO2 + 0.14 HO ', & - ' ISO + O3 --> 0.28 ORA1 + 0.09 H2O2 + 0.14 CO + 0.65 MACR + 0.1 MACP + 0.58 HCHO + 0.08 MO2 + 0.1 ACO3 + 0.25 HO2 + 0.25 HO ', & - ' MO2 + HO2 --> OP1 ', & - ' ETHP + HO2 --> OP2 ', & - ' HO2 + HC3P --> OP2 ', & - ' HC5P + HO2 --> OP2 ', & - ' HC8P + HO2 --> OP2 ', & - ' OL2P + HO2 --> OP2 ', & - ' OLTP + HO2 --> OP2 ', & - ' OLIP + HO2 --> OP2 ', & - ' KETP + HO2 --> OP2 ', & - ' ACO3 + HO2 --> PAA ', & - ' TOLP + HO2 --> OP2 ', & - ' XYLP + HO2 --> OP2 ', & - ' TCO3 + HO2 --> OP2 ', & - ' OLN + HO2 --> ONIT ', & - ' 2 MO2 --> 1.5 HCHO + HO2 ', & - ' ETHP + MO2 --> 0.75 HCHO + 0.75 ALD + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_4 = (/ & - ' MO2 + HC3P --> 0.26 KET + 0.84 HCHO + 0.77 ALD + HO2 ', & - ' HC5P + MO2 --> 0.75 KET + 0.77 HCHO + 0.41 ALD + HO2 ', & - ' HC8P + MO2 --> 1.39 KET + 0.8 HCHO + 0.46 ALD + HO2 ', & - ' OL2P + MO2 --> 1.55 HCHO + 0.35 ALD + HO2 ', & - ' OLTP + MO2 --> 1.25 HCHO + 0.75 ALD + HO2 ', & - ' OLIP + MO2 --> 0.55 KET + 0.89 HCHO + 0.725 ALD + HO2 ', & - ' KETP + MO2 --> 0.75 MGLY + 0.75 HCHO + HO2 ', & - ' MO2 + ACO3 --> 0.5 ORA2 + HCHO + 0.5 MO2 + 0.5 HO2 ', & - ' TOLP + MO2 --> 0.16 GLY + 0.7 DCB + 0.17 MGLY + HCHO + 2 HO2 ', & - ' XYLP + MO2 --> 0.806 DCB + 0.45 MGLY + HCHO + 2 HO2 ', & - ' TCO3 + MO2 --> 0.5 ORA2 + 0.475 CO + 0.445 GLY + XO2 + 0.055 MGLY + 0.5 HCHO + 0.03 ACO3 + 0.46 HO2 ', & - 'ETHP + ACO3 --> 0.5 ORA2 + ALD + 0.5 MO2 + 0.5 HO2 ', & - 'ACO3 + HC3P --> 0.5 ORA2 + 0.26 KET + 0.77 ALD + 0.5 MO2 + 0.5 HO2 ', & - 'HC5P + ACO3 --> 0.5 ORA2 + 0.75 KET + 0.41 ALD + 0.5 MO2 + 0.5 HO2 ', & - 'HC8P + ACO3 --> 0.5 ORA2 + 1.39 KET + 0.46 ALD + 0.5 MO2 + 0.5 HO2 ', & - 'OL2P + ACO3 --> 0.5 ORA2 + 0.8 HCHO + 0.6 ALD + 0.5 MO2 + 0.5 HO2 ', & - 'OLTP + ACO3 --> 0.5 ORA2 + 0.5 HCHO + ALD + 0.5 MO2 + 0.5 HO2 ', & - 'OLIP + ACO3 --> 0.5 ORA2 + 0.55 KET + 0.14 HCHO + 0.725 ALD + 0.5 MO2 + 0.5 HO2 ', & - 'KETP + ACO3 --> 0.5 ORA2 + MGLY + 0.5 MO2 + 0.5 HO2 ', & - ' 2 ACO3 --> 2 MO2 ', & - 'TOLP + ACO3 --> 0.16 GLY + 0.7 DCB + 0.17 MGLY + MO2 + HO2 ', & - 'XYLP + ACO3 --> 0.806 DCB + 0.45 MGLY + MO2 + HO2 ', & - 'TCO3 + ACO3 --> 0.95 CO + 0.89 GLY + 2 XO2 + 0.11 MGLY + MO2 + 0.05 ACO3 + 0.92 HO2 ', & - ' XO2 + HO2 --> OP2 ', & - ' XO2 + MO2 --> HCHO + HO2 ', & - ' XO2 + ACO3 --> MO2 ', & - ' XO2 + NO --> NO2 ', & - ' XNO2 + NO2 --> ONIT ', & - ' XNO2 + HO2 --> OP2 ', & - ' XNO2 + MO2 --> HCHO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_5 = (/ & - 'XNO2 + ACO3 --> MO2 ', & - ' OLN + MO2 --> 1.75 HCHO + ALD + 0.5 HO2 + NO2 ', & - ' OLN + ACO3 --> 0.5 ORA2 + HCHO + ALD + 0.5 MO2 + NO2 ', & - ' 2 OLN --> 2 HCHO + 2 ALD + 2 NO2 ', & - ' API + HO --> APIP ', & - ' API + NO3 --> OLN ', & - ' API + O3 --> 0.02 H2O2 + 0.14 CO + 0.53 KET + 0.42 KETP + 0.65 ALD + 0.2 ETHP + 0.1 HO2 + 0.85 HO ', & - ' APIP + NO --> 0.8 KET + 0.8 ALD + 0.8 HO2 + 0.8 NO2 + 0.2 ONIT ', & - ' APIP + HO2 --> OP2 ', & - ' APIP + MO2 --> KET + HCHO + ALD + 2 HO2 ', & - 'APIP + ACO3 --> KET + ALD + MO2 + HO2 ', & - ' APIP + NO3 --> KET + ALD + HO2 + NO2 ', & - ' LIM + HO --> LIMP ', & - ' LIM + NO3 --> OLN ', & - ' LIM + O3 --> 0.01 ORA1 + 0.07 ORA2 + 0.02 H2O2 + 0.14 CO + 0.46 OLT + 0.79 MACR + 0.04 HCHO + 0.42 KETP + 0.16 ETHP + 0.1 HO2 + 0.85 HO ', & - ' LIMP + NO --> 0.4 MACR + 0.25 HCHO + 0.25 OLI + 0.65 HO2 + 0.65 NO2 + 0.35 ONIT ', & - ' LIMP + HO2 --> OP2 ', & - ' LIMP + MO2 --> 0.6 MACR + 1.4 HCHO + 0.4 OLI + 2 HO2 ', & - 'LIMP + ACO3 --> 0.6 MACR + 0.4 HCHO + 0.4 OLI + MO2 + HO2 ', & - ' LIMP + NO3 --> 0.6 MACR + 0.4 HCHO + 0.4 OLI + HO2 + NO2 ', & - ' ISOP + NO --> 0.046 ISON + MACR + HCHO + HO2 + NO2 ', & - ' ISOP + HO2 --> ISHP ', & - ' 2 ISOP --> 2 MACR + HCHO + HO2 ', & - ' ISHP + HO --> MACR + HO ', & - ' ISON + HO --> NALD + HACE ', & - ' MACR + HO --> MACP ', & - ' MACR + O3 --> 0.45 ORA1 + 0.22 CO + 0.9 MGLY + 0.1 ACO3 + 0.32 HO2 + 0.19 HO ', & - ' MACP + NO --> 0.25 HACE + 0.25 CO + 0.5 MGLY + 0.75 HCHO + 0.25 ACO3 + 0.75 HO2 + NO2 ', & - ' MACP + HO2 --> MAHP ', & - ' 2 MACP --> HACE + 0.5 CO + MGLY + 0.5 HCHO + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(6) :: EQN_NAMES_6 = (/ & - ' MACP + NO2 --> MPAN ', & - ' MPAN --> MACP + NO2 ', & - ' MPAN + HO --> HACE + NO2 ', & - ' MAHP + HO --> MACP ', & - ' HACE + HO --> MGLY + HO2 ', & - ' NALD + HO --> CO + HCHO + NO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(186) :: EQN_NAMES = (/& - EQN_NAMES_0, EQN_NAMES_1, EQN_NAMES_2, EQN_NAMES_3, EQN_NAMES_4, & - EQN_NAMES_5, EQN_NAMES_6 /) - -! INLINED global variables - -! End INLINED global variables - - -END MODULE RADMKA_Monitor diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_Monitor.o b/boxmox/compiled_mechs/RADMKA/RADMKA_Monitor.o deleted file mode 100644 index 95387ed1b351bde91a8d56ad6136eb64fee254a2..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/RADMKA_Monitor.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_Parameters.f90 b/boxmox/compiled_mechs/RADMKA/RADMKA_Parameters.f90 deleted file mode 100644 index ed30111c42d4eefdbb3a44f1fbed078310aa7041..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADMKA/RADMKA_Parameters.f90 +++ /dev/null @@ -1,156 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Parameter Module File -! -! Generated by KPP-2.2.3 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 : RADMKA_Parameters.f90 -! Time : Thu Oct 8 08:22:34 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADMKA_16038_BOXMOX -! Equation file : RADMKA.kpp -! Output root filename : RADMKA -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RADMKA_Parameters - - USE RADMKA_Precision - PUBLIC - SAVE - - -! NSPEC - Number of chemical species - INTEGER, PARAMETER :: NSPEC = 76 -! NVAR - Number of Variable species - INTEGER, PARAMETER :: NVAR = 76 -! NVARACT - Number of Active species - INTEGER, PARAMETER :: NVARACT = 71 -! NFIX - Number of Fixed species - INTEGER, PARAMETER :: NFIX = 1 -! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 186 -! NVARST - Starting of variables in conc. vect. - INTEGER, PARAMETER :: NVARST = 1 -! NFIXST - Starting of fixed in conc. vect. - INTEGER, PARAMETER :: NFIXST = 77 -! NONZERO - Number of nonzero entries in Jacobian - INTEGER, PARAMETER :: NONZERO = 775 -! LU_NONZERO - Number of nonzero entries in LU factoriz. of Jacobian - INTEGER, PARAMETER :: LU_NONZERO = 916 -! CNVAR - (NVAR+1) Number of elements in compressed row format - INTEGER, PARAMETER :: CNVAR = 77 -! CNEQN - (NREACT+1) Number stoicm elements in compressed col format - INTEGER, PARAMETER :: CNEQN = 187 -! NLOOKAT - Number of species to look at - INTEGER, PARAMETER :: NLOOKAT = 76 -! NMONITOR - Number of species to monitor - INTEGER, PARAMETER :: NMONITOR = 0 -! NMASS - Number of atoms to check mass balance - INTEGER, PARAMETER :: NMASS = 1 - -! Index declaration for variable species in C and VAR -! VAR(ind_spc) = C(ind_spc) - - INTEGER, PARAMETER :: ind_N2 = 1 - INTEGER, PARAMETER :: ind_SULF = 2 - INTEGER, PARAMETER :: ind_ORA1 = 3 - INTEGER, PARAMETER :: ind_ORA2 = 4 - INTEGER, PARAMETER :: ind_CO2 = 5 - INTEGER, PARAMETER :: ind_H2 = 6 - INTEGER, PARAMETER :: ind_SO2 = 7 - INTEGER, PARAMETER :: ind_ETH = 8 - INTEGER, PARAMETER :: ind_ISHP = 9 - INTEGER, PARAMETER :: ind_HC5 = 10 - INTEGER, PARAMETER :: ind_HC8 = 11 - INTEGER, PARAMETER :: ind_TOL = 12 - INTEGER, PARAMETER :: ind_XYL = 13 - INTEGER, PARAMETER :: ind_TPAN = 14 - INTEGER, PARAMETER :: ind_HONO = 15 - INTEGER, PARAMETER :: ind_MAHP = 16 - INTEGER, PARAMETER :: ind_HC3 = 17 - INTEGER, PARAMETER :: ind_NALD = 18 - INTEGER, PARAMETER :: ind_O1D = 19 - INTEGER, PARAMETER :: ind_N2O5 = 20 - INTEGER, PARAMETER :: ind_PAA = 21 - INTEGER, PARAMETER :: ind_OP1 = 22 - INTEGER, PARAMETER :: ind_MPAN = 23 - INTEGER, PARAMETER :: ind_CH4 = 24 - INTEGER, PARAMETER :: ind_CSL = 25 - INTEGER, PARAMETER :: ind_HNO4 = 26 - INTEGER, PARAMETER :: ind_HACE = 27 - INTEGER, PARAMETER :: ind_PAN = 28 - INTEGER, PARAMETER :: ind_O3P = 29 - INTEGER, PARAMETER :: ind_H2O2 = 30 - INTEGER, PARAMETER :: ind_OL2 = 31 - INTEGER, PARAMETER :: ind_ISOP = 32 - INTEGER, PARAMETER :: ind_ISON = 33 - INTEGER, PARAMETER :: ind_O2 = 34 - INTEGER, PARAMETER :: ind_API = 35 - INTEGER, PARAMETER :: ind_CO = 36 - INTEGER, PARAMETER :: ind_LIM = 37 - INTEGER, PARAMETER :: ind_OLT = 38 - INTEGER, PARAMETER :: ind_ISO = 39 - INTEGER, PARAMETER :: ind_HNO3 = 40 - INTEGER, PARAMETER :: ind_XNO2 = 41 - INTEGER, PARAMETER :: ind_GLY = 42 - INTEGER, PARAMETER :: ind_XYLP = 43 - INTEGER, PARAMETER :: ind_MACR = 44 - INTEGER, PARAMETER :: ind_DCB = 45 - INTEGER, PARAMETER :: ind_HC5P = 46 - INTEGER, PARAMETER :: ind_HC8P = 47 - INTEGER, PARAMETER :: ind_OLIP = 48 - INTEGER, PARAMETER :: ind_KET = 49 - INTEGER, PARAMETER :: ind_OL2P = 50 - INTEGER, PARAMETER :: ind_OLTP = 51 - INTEGER, PARAMETER :: ind_XO2 = 52 - INTEGER, PARAMETER :: ind_TOLP = 53 - INTEGER, PARAMETER :: ind_OP2 = 54 - INTEGER, PARAMETER :: ind_MACP = 55 - INTEGER, PARAMETER :: ind_OLN = 56 - INTEGER, PARAMETER :: ind_MGLY = 57 - INTEGER, PARAMETER :: ind_HCHO = 58 - INTEGER, PARAMETER :: ind_TCO3 = 59 - INTEGER, PARAMETER :: ind_APIP = 60 - INTEGER, PARAMETER :: ind_H2O = 61 - INTEGER, PARAMETER :: ind_LIMP = 62 - INTEGER, PARAMETER :: ind_OLI = 63 - INTEGER, PARAMETER :: ind_KETP = 64 - INTEGER, PARAMETER :: ind_ALD = 65 - INTEGER, PARAMETER :: ind_ETHP = 66 - INTEGER, PARAMETER :: ind_MO2 = 67 - INTEGER, PARAMETER :: ind_ACO3 = 68 - INTEGER, PARAMETER :: ind_HO2 = 69 - INTEGER, PARAMETER :: ind_HO = 70 - INTEGER, PARAMETER :: ind_NO3 = 71 - INTEGER, PARAMETER :: ind_NO2 = 72 - INTEGER, PARAMETER :: ind_NO = 73 - INTEGER, PARAMETER :: ind_O3 = 74 - INTEGER, PARAMETER :: ind_ONIT = 75 - INTEGER, PARAMETER :: ind_HC3P = 76 - -! Index declaration for fixed species in C -! C(ind_spc) - - -! Index declaration for fixed species in FIX -! FIX(indf_spc) = C(ind_spc) = C(NVAR+indf_spc) - - -! NJVRP - Length of sparse Jacobian JVRP - INTEGER, PARAMETER :: NJVRP = 341 - -! NSTOICM - Length of Sparse Stoichiometric Matrix - INTEGER, PARAMETER :: NSTOICM = 847 - -END MODULE RADMKA_Parameters - diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_Parameters.o b/boxmox/compiled_mechs/RADMKA/RADMKA_Parameters.o deleted file mode 100644 index 569e12a3905a6a35ee185da2b382c9777cdd12ac..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/RADMKA_Parameters.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_Precision.f90 b/boxmox/compiled_mechs/RADMKA/RADMKA_Precision.f90 deleted file mode 100644 index 6d7147f7d656791dcb0eae3feb7d1e1a7a18e455..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADMKA/RADMKA_Precision.f90 +++ /dev/null @@ -1,17 +0,0 @@ - -MODULE RADMKA_Precision - -! -! Definition of different levels of accuracy -! for REAL variables using KIND parameterization -! -! KPP SP - Single precision kind - INTEGER, PARAMETER :: sp = SELECTED_REAL_KIND(6,30) -! KPP DP - Double precision kind - INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(14,300) -! KPP QP - Quadruple precision kind - INTEGER, PARAMETER :: qp = SELECTED_REAL_KIND(18,400) - -END MODULE RADMKA_Precision - - diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_Precision.o b/boxmox/compiled_mechs/RADMKA/RADMKA_Precision.o deleted file mode 100644 index c321a524851bd97481932007b2366569a35574c0..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/RADMKA_Precision.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_Rates.f90 b/boxmox/compiled_mechs/RADMKA/RADMKA_Rates.f90 deleted file mode 100644 index 9789282cf4931856b95bd995d029a83b3233b4ff..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADMKA/RADMKA_Rates.f90 +++ /dev/null @@ -1,668 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The Reaction Rates File -! -! Generated by KPP-2.2.3 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 : RADMKA_Rates.f90 -! Time : Thu Oct 8 08:22:34 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADMKA_16038_BOXMOX -! Equation file : RADMKA.kpp -! Output root filename : RADMKA -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RADMKA_Rates - - USE RADMKA_Parameters - USE RADMKA_Global - USE RADMKA_Util - IMPLICIT NONE - -CONTAINS - - - -! Begin Rate Law Functions from KPP_HOME/util/UserRateLaws - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! User-defined Rate Law functions -! Note: the default argument type for rate laws, as read from the equations file, is single precision -! but all the internal calculations are performed in double precision -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~> Arrhenius -! REAL(kind=dp) FUNCTION ARR( A0,B0,C0 ) -! REAL A0,B0,C0 -! ARR = DBLE(A0) * EXP(-DBLE(B0)/TEMP) * (TEMP/300.0_dp)**DBLE(C0) -! END FUNCTION ARR - -! Arrhenius (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION ARR( A0,B0,C0, TEMP ) - REAL(kind=dp) :: TEMP - REAL(kind=dp) A0,B0,C0 - ARR = A0 * EXP( -B0 /TEMP ) * (TEMP/300._dp)**C0 - END FUNCTION ARR - -!~~~> Simplified Arrhenius, with two arguments -!~~~> Note: The argument B0 has a changed sign when compared to ARR -! REAL(kind=dp) FUNCTION ARR2( A0,B0 ) -! REAL A0,B0 -! ARR2 = DBLE(A0) * EXP( DBLE(B0)/TEMP ) -! END FUNCTION ARR2 -! CK 20140313 WRF-chem uses different kind of Arrhenius function -! with TEMP as argument... - REAL(kind=dp) FUNCTION ARR2( A0,B0, TEMP ) - REAL(kind=dp) :: TEMP - REAL(kind=dp) A0,B0 - ARR2 = A0 * EXP( -B0 /TEMP ) - END FUNCTION ARR2 -! CK 20140313 end - -! REAL(kind=dp) FUNCTION EP2(A0,C0,A2,C2,A3,C3) -! REAL A0,C0,A2,C2,A3,C3 -! REAL(kind=dp) K0,K2,K3 -! K0 = DBLE(A0) * EXP(-DBLE(C0)/TEMP) -! K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP) -! K3 = DBLE(A3) * EXP(-DBLE(C3)/TEMP) -! K3 = K3*CFACTOR*1.0E6_dp -! EP2 = K0 + K3/(1.0_dp+K3/K2 ) -! END FUNCTION EP2 - -! REAL(kind=dp) FUNCTION EP3(A1,C1,A2,C2) -! REAL A1, C1, A2, C2 -! REAL(kind=dp) K1, K2 -! K1 = DBLE(A1) * EXP(-DBLE(C1)/TEMP) -! K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP) -! EP3 = K1 + K2*(1.0E6_dp*CFACTOR) -! END FUNCTION EP3 - -! EP2 (added by psaide 22-07-2009) - REAL(kind=dp) FUNCTION EP2( A0,C0,A2,C2,A3,C3,TEMP,cair) - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A0,C0,A2,C2,A3,C3 - REAL(kind=dp) K0,K2,K3 - - K0 = A0 * EXP(-C0 /TEMP) - K2 = A2 * EXP(-C2 /TEMP) - K3 = A3 * EXP(-C3 /TEMP) -! K3 = K3 * 2.45E13_dp * 1.0E6_dp - K3 = K3 * cair - EP2 = K0 + K3/(1._dp+K3/K2 ) - END FUNCTION EP2 - -! EP3 (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION EP3(A1,C1,A2,C2,TEMP,cair) - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A1, C1, A2, C2 - REAL(kind=dp) K1, K2 - - K1 = A1 * EXP(-C1 /TEMP) - K2 = A2 * EXP(-C2 /TEMP) -! EP3 = K1 + K2*(1.0E6_dp * 2.45E13_dp) - EP3 = K1 + K2*cair - END FUNCTION EP3 - - -! REAL(kind=dp) FUNCTION FALL ( A0,B0,C0,A1,B1,C1,CF) -! REAL A0,B0,C0,A1,B1,C1,CF -! REAL(kind=dp) K0, K1 -! K0 = DBLE(A0) * EXP(-DBLE(B0)/TEMP)* (TEMP/300.0_dp)**DBLE(C0) -! K1 = DBLE(A1) * EXP(-DBLE(B1)/TEMP)* (TEMP/300.0_dp)**DBLE(C1) -! K0 = K0*CFACTOR*1.0E6_dp -! K1 = K0/K1 -! FALL = (K0/(1.0_dp+K1))* & -! DBLE(CF)**(1.0_dp/(1.0_dp+(LOG10(K1))**2)) -! END FUNCTION FALL - -! FALL (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION FALL( A0,B0,C0,A1,B1,C1,CF,TEMP,cair) - - INTRINSIC LOG10 - - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A0,B0,C0,A1,B1,C1,CF - REAL(kind=dp) K0, K1 - - K0 = A0 * EXP(-B0 /TEMP)* (TEMP/300._dp)**C0 - K1 = A1 * EXP(-B1 /TEMP)* (TEMP/300._dp)**C1 -! K0 = K0 * 2.45E13_dp * 1.0E6_dp - K0 = K0 * cair - K1 = K0/K1 - FALL = (K0/(1._dp+K1))*CF**(1._dp/(1._dp+(LOG10(K1))**2)) - - END FUNCTION FALL - -! FALL2 (added by psaide 28-10-2009) - REAL(KIND=dp) FUNCTION F2( A0,B0,C0,A1,B1,C1,CF,CN,TEMP,cair) - - INTRINSIC LOG10 - - REAL(KIND=dp) :: TEMP - REAL(KIND=dp) :: cair - REAL(KIND=dp) A0,B0,C0,A1,B1,C1,CF,CN - REAL(KIND=dp) K0, K1 - - K0 = A0 * EXP(-B0 /TEMP)* (TEMP/300._dp)**C0 - K1 = A1 * EXP(-B1 /TEMP)* (TEMP/300._dp)**C1 -! K0 = K0 * 2.45E13_dp * 1.0E6_dp - K0 = K0 * cair - K1 = K0/K1 - F2 = (K0/(1._dp+K1))*CF**(1._dp/(1._dp+(LOG10(K1)/CN)**2)) - - END FUNCTION F2 - - - !--------------------------------------------------------------------------- - - ELEMENTAL REAL(kind=dp) FUNCTION k_3rd(temp,cair,k0_300K,n,kinf_300K,m,fc) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL, INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL, INTENT(IN) :: n ! exponent for low pressure limit - REAL, INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL, INTENT(IN) :: m ! exponent for high pressure limit - REAL, INTENT(IN) :: fc ! broadening factor (usually fc=0.6) - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - k_3rd = k0_T/(1._dp+k_ratio)*fc**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - END FUNCTION k_3rd - - !--------------------------------------------------------------------------- - - ELEMENTAL REAL(kind=dp) FUNCTION k_arr (k_298,tdep,temp) - ! Arrhenius function - - REAL, INTENT(IN) :: k_298 ! k at T = 298.15K - REAL, INTENT(IN) :: tdep ! temperature dependence - REAL(kind=dp), INTENT(IN) :: temp ! temperature - - INTRINSIC EXP - - k_arr = k_298 * EXP(tdep*(1._dp/temp-3.3540E-3_dp)) ! 1/298.15=3.3540e-3 - - END FUNCTION k_arr - -! CK 20140313 in the following some more rate functions needed by -! WRF-chem packages - -!------------------------------------ -! Troe reactions (as in Stockwell et al, 1997) - - REAL(kind=dp) FUNCTION TROE(k0_300K,n,kinf_300K,m,temp,cair) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - TROE = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - END FUNCTION TROE - - - -!------------------------------------------- -! Troe equilibrium reactions (as in Stockwell et al, 1997) - - REAL(kind=dp) FUNCTION TROEE(A, B, k0_300K,n,kinf_300K,m,temp,cair) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - REAL(kind=dp), INTENT(IN) :: A, B - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio, troe - - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - troe = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - TROEE = A * EXP( - B / temp) * troe - - - - END FUNCTION TROEE - -!------------------------ -! k=T^2 C exp (-D/T) reactions - - REAL(kind=dp) FUNCTION THERMAL_T2(c, d ,temp) - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: c, d - - - THERMAL_T2= temp**2._dp * c * EXP(- d / temp) - - END FUNCTION THERMAL_T2 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! End of User-defined Rate Law functions -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -! End Rate Law Functions from KPP_HOME/util/UserRateLaws - - -! Begin INLINED Rate Law Functions - - - -! **************************************************************************** -! J - the photolysis rate retrieval function -! **************************************************************************** - REAL(kind=dp) FUNCTION J(name) - - CHARACTER(LEN=*), INTENT(IN) :: name - - CHARACTER(LEN=15) :: xname - - INTEGER :: i - - xname(:) = " " - xname(1:LEN(name)) = name - - J = jvalues(hash(xname)) - - RETURN - - END FUNCTION J -! **************************************************************************** - - - -!C -!C********************************************************************* -!C Die Funktion TROE bestimmt die Werte der Troefunktion -!C nach Stockwell et al. [2], -!C die die Druckabhaengigkeit von Reaktionskonstanten durch eine -!C quasi-bimolekulare Reaktionskonstante beschreibt. -!C********************************************************************* -!C -! -!~~~> Simplified Arrhenius, with two arguments -!~~~> Note: The argument B0 has a changed sign when compared to ARR -! EMPA, original KPP style - REAL FUNCTION ARR2E( A0,B0 ) - REAL(dp) A0,B0 - ARR2E = DBLE(A0) * EXP( DBLE(B0)/TEMP ) - END FUNCTION ARR2E -! -REAL FUNCTION TROE_EMPA( K0300, Q, KU300, R, M, T ) -!C CALCULATION OF RATE CONSTANTS FOR TROE REACTIONS -! IMPLICIT REAL(dp) (A-Z) - REAL(dp) :: K0300, Q, KU300, R, M, T - REAL(dp) :: tt, k0, ku, k0m, kk, lgkk, e, f - TT= T / 3.D2 - K0= K0300 / TT**Q - KU= KU300 / TT**R - K0M= K0 * M - KK= K0M / KU - LGKK=0.434294481D0 * LOG(KK) - E=1.D0 / ( 1.D0 + LGKK*LGKK ) - F=0.6D0 ** E - TROE_EMPA= F * K0M / ( 1.D0 + KK ) -END FUNCTION TROE_EMPA -!C -!C********************************************************************** -!C Die Funktion EQT [2] bestimmt die Reaktionskonstanten fuer -!C HNO4 --> H2O + NO2 und N2O5 --> NO2 + NO3 -!C********************************************************************** -!C -FUNCTION EQT( K0300, Q, KU300, R, M, T, A, B ) - !IMPLICIT REAL(dp) (A-Z) - REAL(dp) :: K0300, Q, KU300, R, M, T, A, B, EQT - REAL(dp) :: kh - KH= TROE_EMPA( K0300, Q, KU300, R, M, T ) - EQT= KH * A *DEXP( -B / T ) -END FUNCTION EQT -!C -!C********************************************************************** -!C Die Funktion SPEZ bestimmt die Reaktionskonstante fuer -!C HNO3 + HO --> H2O + NO3 -!C********************************************************************** -!C -FUNCTION SPEZ(A0,B0,A2,B2,A3,B3,M,T) -!C SPECIAL RATE CONSTANTS - !IMPLICIT REAL(dp) (A-Z) - REAL(dp) :: A0,B0,A2,B2,A3,B3,M,T, SPEZ - REAL(dp) :: k0, k2, k3 - K0=A0*DEXP(B0/T) - K2=A2*DEXP(B2/T) - K3=A3*M*DEXP(B3/T) - SPEZ= K0 + K3 / ( 1D0 + K3/K2 ) -END FUNCTION SPEZ - - -! End INLINED Rate Law Functions - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_SUN - update SUN light using TIME -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - SUBROUTINE Update_SUN() - !USE RADMKA_Parameters - !USE RADMKA_Global - - IMPLICIT NONE - - REAL(kind=dp) :: SunRise, SunSet - REAL(kind=dp) :: Thour, Tlocal, Ttmp - ! PI - Value of pi - REAL(kind=dp), PARAMETER :: PI = 3.14159265358979d0 - - SunRise = 4.5_dp - SunSet = 19.5_dp - Thour = TIME/3600.0_dp - Tlocal = Thour - (INT(Thour)/24)*24 - - IF ((Tlocal>=SunRise).AND.(Tlocal<=SunSet)) THEN - Ttmp = (2.0*Tlocal-SunRise-SunSet)/(SunSet-SunRise) - IF (Ttmp.GT.0) THEN - Ttmp = Ttmp*Ttmp - ELSE - Ttmp = -Ttmp*Ttmp - END IF - SUN = ( 1.0_dp + COS(PI*Ttmp) )/2.0_dp - ELSE - SUN = 0.0_dp - END IF - - END SUBROUTINE Update_SUN - -! End of Update_SUN function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_RCONST - function to update rate constants -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Update_RCONST ( ) - - - - -! Begin INLINED RCONST - - -! End INLINED RCONST - - RCONST(1) = (j('no2')) - RCONST(2) = (j('o31d')) - RCONST(3) = (j('o33p')) - RCONST(4) = (j('hno2')) - RCONST(5) = (j('hno3')) - RCONST(6) = (j('hno4')+EQT(1.8D-31,3.2_dp,4.7D-12,1.4_dp,C_M,TEMP,4.76D+26,10900._dp)) - RCONST(7) = (j('no3o2')) - RCONST(8) = (j('no3o')) - RCONST(9) = (j('h2o2')) - RCONST(10) = (j('ch2om')) - RCONST(11) = (j('ch2or')) - RCONST(12) = (j('ch3cho')) - RCONST(13) = (j('ch3o2h')) - RCONST(14) = (j('ch3coch3')) - RCONST(15) = (j('ch3coo2h')) - RCONST(16) = (j('ch3coc2h5')) - RCONST(17) = (j('hcocho')) - RCONST(18) = (j('hcochob')) - RCONST(19) = (j('ch3cocho')) - RCONST(20) = (j('hcochest')) - RCONST(21) = (j('ch3ono2')) - RCONST(22) = (C_M*6.0D-34*(TEMP/300._dp)**(-2.3_dp)) - RCONST(23) = (6.50D-12*EXP(120._dp/TEMP)) - RCONST(24) = (2.00D-11*EXP(130._dp/TEMP)) - RCONST(25) = (3.20D-11*EXP(67._dp/TEMP)) - RCONST(26) = (2.14D-10) - RCONST(27) = (1.4D-12*EXP(-1310._dp/TEMP)) - RCONST(28) = (1.70D-12*EXP(-940._dp/TEMP)) - RCONST(29) = (1.10D-14*EXP(-500._dp/TEMP)) - RCONST(30) = (3.45D-12*EXP(270._dp/TEMP)) - RCONST(31) = (TROE_EMPA(1.8D-31,3.2_dp,4.7D-12,1.4_dp,C_M,TEMP)) - RCONST(32) = (2.2D-13*EXP(620._dp/TEMP)+1.9D-33*C_M*EXP(980._dp/TEMP)) - RCONST(33) = (3.08D-34*EXP(2820._dp/TEMP)+2.66D-54*C_M*EXP(3180._dp/TEMP)) - RCONST(34) = (3.30D-12*EXP(-200._dp/TEMP)) - RCONST(35) = (TROE_EMPA(7.0D-31,2.6_dp,1.5D-11,0.5_dp,C_M,TEMP)) - RCONST(36) = (3.30D-39*EXP(530._dp/TEMP)) - RCONST(37) = (1.40D-13*EXP(-2470._dp/TEMP)) - RCONST(38) = (1.80D-11*EXP(110._dp/TEMP)) - RCONST(39) = (2.50D-14*EXP(-1230._dp/TEMP)) - RCONST(40) = (2.50D-12) - RCONST(41) = (TROE_EMPA(2.2D-30,4.3_dp,1.5D-12,0.5_dp,C_M,TEMP)) - RCONST(42) = (EQT(2.2D-30,4.3_dp,1.5D-12,0.5_dp,C_M,TEMP,9.09D+26,11200._dp)) - RCONST(43) = (HET(1)) - RCONST(44) = (TROE_EMPA(2.6D-30,3.2_dp,2.4D-11,1.3_dp,C_M,TEMP)) - RCONST(45) = (SPEZ(7.2D-15,785._dp,4.1D-16,1440._dp,1.9D-33,725._dp,C_M,TEMP)) - RCONST(46) = (1.30D-12*EXP(380._dp/TEMP)) - RCONST(47) = (4.80D-11*EXP(250._dp/TEMP)) - RCONST(48) = (TROE_EMPA(3.0D-31,3.3_dp,1.5D-12,0.0_dp,C_M,TEMP)) - RCONST(49) = (1.5D-13*(1.0_dp+2.439D-20*C_M)) - RCONST(50) = (TEMP*TEMP*6.95D-18*EXP(-1280._dp/TEMP)) - RCONST(51) = (TEMP*TEMP*1.37D-17*EXP(-444._dp/TEMP)) - RCONST(52) = (1.59D-11*EXP(-540._dp/TEMP)) - RCONST(53) = (1.73D-11*EXP(-380._dp/TEMP)) - RCONST(54) = (3.64D-11*EXP(-380._dp/TEMP)) - RCONST(55) = (2.15D-12*EXP(411._dp/TEMP)) - RCONST(56) = (5.32D-12*EXP(504._dp/TEMP)) - RCONST(57) = (1.07D-11*EXP(549._dp/TEMP)) - RCONST(58) = (2.10D-12*EXP(322._dp/TEMP)) - RCONST(59) = (1.89D-11*EXP(116._dp/TEMP)) - RCONST(60) = (4.00D-11) - RCONST(61) = (9.00D-12) - RCONST(62) = (6.87D-12*EXP(256._dp/TEMP)) - RCONST(63) = (1.20D-11*EXP(-745._dp/TEMP)) - RCONST(64) = (1.15D-11) - RCONST(65) = (1.70D-11) - RCONST(66) = (2.8D-11) - RCONST(67) = (1.00D-11) - RCONST(68) = (1.00D-11) - RCONST(69) = (1.00D-11) - RCONST(70) = (TEMP*TEMP*6.85D-18*EXP(-444._dp/TEMP)) - RCONST(71) = (1.55D-11*EXP(-540._dp/TEMP)) - RCONST(72) = (2.55D-11*EXP(409._dp/TEMP)) - RCONST(73) = (2.6D-12*EXP(380._dp/TEMP)) - RCONST(74) = (2.D16*EXP(-13500._dp/TEMP)) - RCONST(75) = (4.7D-12) - RCONST(76) = (1.95D16*EXP(-13543._dp/TEMP)) - RCONST(77) = (4.20D-12*EXP(180._dp/TEMP)) - RCONST(78) = (4.20D-12*EXP(180._dp/TEMP)) - RCONST(79) = (4.20D-12*EXP(180._dp/TEMP)) - RCONST(80) = (4.20D-12*EXP(180._dp/TEMP)) - RCONST(81) = (4.20D-12*EXP(180._dp/TEMP)) - RCONST(82) = (4.20D-12*EXP(180._dp/TEMP)) - RCONST(83) = (4.20D-12*EXP(180._dp/TEMP)) - RCONST(84) = (3.50D-11*EXP(-180./TEMP)) - RCONST(85) = (4.20D-12*EXP(180._dp/TEMP)) - RCONST(86) = (4.20D-12*EXP(180._dp/TEMP)) - RCONST(87) = (4.20D-12*EXP(180._dp/TEMP)) - RCONST(88) = (4.20D-12*EXP(180._dp/TEMP)) - RCONST(89) = (4.20D-12*EXP(180._dp/TEMP)) - RCONST(90) = (4.20D-12*EXP(180._dp/TEMP)) - RCONST(91) = (6.00D-13*EXP(-2058._dp/TEMP)) - RCONST(92) = (1.40D-12*EXP(-1900._dp/TEMP)) - RCONST(93) = (6.00D-13*EXP(-2058._dp/TEMP)) - RCONST(94) = (1.40D-12*EXP(-1900._dp/TEMP)) - RCONST(95) = (1.40D-12*EXP(-1900._dp/TEMP)) - RCONST(96) = (2.20D-11) - RCONST(97) = (2.00D-12*EXP(-2923._dp/TEMP)) - RCONST(98) = (1.00D-11*EXP(-1895._dp/TEMP)) - RCONST(99) = (3.23D-11*EXP(-975._dp/TEMP)) - RCONST(100) = (5.81D-13) - RCONST(101) = (1.20D-14*EXP(-2633._dp/TEMP)) - RCONST(102) = (1.32D-14*EXP(-2105._dp/TEMP)) - RCONST(103) = (7.29D-15*EXP(-1136._dp/TEMP)) - RCONST(104) = (1.23D-14*EXP(-2013._dp/TEMP)) - RCONST(105) = (7.70D-14*EXP(1300._dp/TEMP)) - RCONST(106) = (7.70D-14*EXP(1300._dp/TEMP)) - RCONST(107) = (7.70D-14*EXP(1300._dp/TEMP)) - RCONST(108) = (7.70D-14*EXP(1300._dp/TEMP)) - RCONST(109) = (7.70D-14*EXP(1300._dp/TEMP)) - RCONST(110) = (7.70D-14*EXP(1300._dp/TEMP)) - RCONST(111) = (7.70D-14*EXP(1300._dp/TEMP)) - RCONST(112) = (7.70D-14*EXP(1300._dp/TEMP)) - RCONST(113) = (7.70D-14*EXP(1300._dp/TEMP)) - RCONST(114) = (7.70D-14*EXP(1300._dp/TEMP)) - RCONST(115) = (7.70D-14*EXP(1300._dp/TEMP)) - RCONST(116) = (7.70D-14*EXP(1300._dp/TEMP)) - RCONST(117) = (7.70D-14*EXP(1300._dp/TEMP)) - RCONST(118) = (7.70D-14*EXP(1300._dp/TEMP)) - RCONST(119) = (1.90D-13*EXP(220._dp/TEMP)) - RCONST(120) = (1.40D-13*EXP(220._dp/TEMP)) - RCONST(121) = (4.20D-14*EXP(220._dp/TEMP)) - RCONST(122) = (3.40D-14*EXP(220._dp/TEMP)) - RCONST(123) = (2.90D-14*EXP(220._dp/TEMP)) - RCONST(124) = (1.40D-13*EXP(220._dp/TEMP)) - RCONST(125) = (1.40D-13*EXP(220._dp/TEMP)) - RCONST(126) = (1.70D-14*EXP(220._dp/TEMP)) - RCONST(127) = (1.70D-14*EXP(220._dp/TEMP)) - RCONST(128) = (9.60D-13*EXP(220._dp/TEMP)) - RCONST(129) = (1.70D-14*EXP(220._dp/TEMP)) - RCONST(130) = (1.70D-14*EXP(220._dp/TEMP)) - RCONST(131) = (9.60D-13*EXP(220._dp/TEMP)) - RCONST(132) = (3.40D-13*EXP(220._dp/TEMP)) - RCONST(133) = (1.00D-13*EXP(220._dp/TEMP)) - RCONST(134) = (8.40D-14*EXP(220._dp/TEMP)) - RCONST(135) = (7.20D-14*EXP(220._dp/TEMP)) - RCONST(136) = (3.40D-13*EXP(220._dp/TEMP)) - RCONST(137) = (3.40D-13*EXP(220._dp/TEMP)) - RCONST(138) = (4.20D-14*EXP(220._dp/TEMP)) - RCONST(139) = (4.20D-14*EXP(220._dp/TEMP)) - RCONST(140) = (1.19D-12*EXP(220._dp/TEMP)) - RCONST(141) = (4.20D-14*EXP(220._dp/TEMP)) - RCONST(142) = (4.20D-14*EXP(220._dp/TEMP)) - RCONST(143) = (1.19D-12*EXP(220._dp/TEMP)) - RCONST(144) = (7.70D-14*EXP(1300._dp/TEMP)) - RCONST(145) = (1.70D-14*EXP(220._dp/TEMP)) - RCONST(146) = (4.20D-14*EXP(220._dp/TEMP)) - RCONST(147) = (4.20D-12*EXP(180._dp/TEMP)) - RCONST(148) = (4.20D-12*EXP(180._dp/TEMP)) - RCONST(149) = (7.70D-14*EXP(1300._dp/TEMP)) - RCONST(150) = (1.70D-14*EXP(220._dp/TEMP)) - RCONST(151) = (4.20D-14*EXP(220._dp/TEMP)) - RCONST(152) = (1.70D-14*EXP(220._dp/TEMP)) - RCONST(153) = (4.20D-14*EXP(220._dp/TEMP)) - RCONST(154) = (3.60D-16*EXP(220._dp/TEMP)) - RCONST(155) = (1.21D-11*EXP(444._dp/TEMP)) - RCONST(156) = (ARR2E(1.19D-12,490._dp)) - RCONST(157) = (ARR2E(1.01D-15,-736._dp)) - RCONST(158) = (4.00D-12) - RCONST(159) = (1.50D-11) - RCONST(160) = (ARR2E(3.56D-14,708._dp)) - RCONST(161) = (ARR2E(7.40D-13,765._dp)) - RCONST(162) = (1.20D-12) - RCONST(163) = (1.70D-10) - RCONST(164) = (1.22D-11) - RCONST(165) = (2.00D-16) - RCONST(166) = (4.00D-12) - RCONST(167) = (1.50D-11) - RCONST(168) = (ARR2E(3.56D-14,708._dp)) - RCONST(169) = (ARR2E(7.40D-13,765._dp)) - RCONST(170) = (1.20D-12) - RCONST(171) = (ARR2E(2.43D-12,360._dp)) - RCONST(172) = (ARR2E(2.05D-13,1300._dp)) - RCONST(173) = (2.00D-12) - RCONST(174) = (1.00D-10) - RCONST(175) = (1.30D-11) - RCONST(176) = (0.5_dp*(4.13D-12*EXP(452._dp/TEMP)+1.86D-11*EXP(175._dp/TEMP))) - RCONST(177) = (0.5_dp*(1.36D-15*EXP(-2112._dp/TEMP)+7.51D-16*EXP(-1521._dp/TEMP))) - RCONST(178) = (ARR2E(2.54D-12,360._dp)) - RCONST(179) = (ARR2E(1.82D-13,1300._dp)) - RCONST(180) = (2.00D-12) - RCONST(181) = (TROE_EMPA(9.7D-29,-5.6_dp,9.3D-12,-1.5_dp,C_M,TEMP)) - RCONST(182) = (TROE_EMPA(9.7D-29,-5.6_dp,9.3D-12,-1.5_dp,C_M,TEMP)/(ARR2E(9.0D-19,14000._dp))) - RCONST(183) = (3.60D-12) - RCONST(184) = (3.00D-11) - RCONST(185) = (3.00D-12) - RCONST(186) = (ARR2E(5.60D-12,270._dp)) - -END SUBROUTINE Update_RCONST - -! End of Update_RCONST function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_PHOTO - function to update photolytical rate constants -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Update_PHOTO ( ) - - - USE RADMKA_Global - - RCONST(1) = (j('no2')) - RCONST(2) = (j('o31d')) - RCONST(3) = (j('o33p')) - RCONST(4) = (j('hno2')) - RCONST(5) = (j('hno3')) - RCONST(6) = (j('hno4')+EQT(1.8D-31,3.2_dp,4.7D-12,1.4_dp,C_M,TEMP,4.76D+26,10900._dp)) - RCONST(7) = (j('no3o2')) - RCONST(8) = (j('no3o')) - RCONST(9) = (j('h2o2')) - RCONST(10) = (j('ch2om')) - RCONST(11) = (j('ch2or')) - RCONST(12) = (j('ch3cho')) - RCONST(13) = (j('ch3o2h')) - RCONST(14) = (j('ch3coch3')) - RCONST(15) = (j('ch3coo2h')) - RCONST(16) = (j('ch3coc2h5')) - RCONST(17) = (j('hcocho')) - RCONST(18) = (j('hcochob')) - RCONST(19) = (j('ch3cocho')) - RCONST(20) = (j('hcochest')) - RCONST(21) = (j('ch3ono2')) - -END SUBROUTINE Update_PHOTO - -! End of Update_PHOTO function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE RADMKA_Rates - diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_Rates.o b/boxmox/compiled_mechs/RADMKA/RADMKA_Rates.o deleted file mode 100644 index b512536bf7c05fec9406e9589e68668b30317deb..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/RADMKA_Rates.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_Stoichiom.f90 b/boxmox/compiled_mechs/RADMKA/RADMKA_Stoichiom.f90 deleted file mode 100644 index 022c65671002b99adf71bf60afec39e46d85ce04..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADMKA/RADMKA_Stoichiom.f90 +++ /dev/null @@ -1,1081 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The Stoichiometric Chemical Model File -! -! Generated by KPP-2.2.3 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 : RADMKA_Stoichiom.f90 -! Time : Thu Oct 8 08:22:34 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADMKA_16038_BOXMOX -! Equation file : RADMKA.kpp -! Output root filename : RADMKA -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RADMKA_Stoichiom - - USE RADMKA_Parameters - USE RADMKA_StoichiomSP - - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! ReactantProd - Reactant Products in each equation -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! ARP - Reactant product in each equation -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE ReactantProd ( V, F, ARP ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! F - Concentrations of fixed species (local) - REAL(kind=dp) :: F(NFIX) -! ARP - Reactant product in each equation - REAL(kind=dp) :: ARP(NREACT) - - -! Reactant Products in each equation are useful in the -! stoichiometric formulation of mass action law - ARP(1) = V(72) - ARP(2) = V(74) - ARP(3) = V(74) - ARP(4) = V(15) - ARP(5) = V(40) - ARP(6) = V(26) - ARP(7) = V(71) - ARP(8) = V(71) - ARP(9) = V(30) - ARP(10) = V(58) - ARP(11) = V(58) - ARP(12) = V(65) - ARP(13) = V(22) - ARP(14) = V(54) - ARP(15) = V(21) - ARP(16) = V(49) - ARP(17) = V(42) - ARP(18) = V(42) - ARP(19) = V(57) - ARP(20) = V(45) - ARP(21) = V(75) - ARP(22) = V(29)*V(34) - ARP(23) = V(29)*V(72) - ARP(24) = V(1)*V(19) - ARP(25) = V(19)*V(34) - ARP(26) = V(19)*V(61) - ARP(27) = V(73)*V(74) - ARP(28) = V(70)*V(74) - ARP(29) = V(69)*V(74) - ARP(30) = V(69)*V(73) - ARP(31) = V(69)*V(72) - ARP(32) = V(69)*V(69) - ARP(33) = V(61)*V(69)*V(69) - ARP(34) = V(30)*V(70) - ARP(35) = V(70)*V(73) - ARP(36) = V(34)*V(73)*V(73) - ARP(37) = V(72)*V(74) - ARP(38) = V(71)*V(73) - ARP(39) = V(71)*V(72) - ARP(40) = V(69)*V(71) - ARP(41) = V(71)*V(72) - ARP(42) = V(20) - ARP(43) = V(20)*V(61) - ARP(44) = V(70)*V(72) - ARP(45) = V(40)*V(70) - ARP(46) = V(26)*V(70) - ARP(47) = V(69)*V(70) - ARP(48) = V(7)*V(70) - ARP(49) = V(36)*V(70) - ARP(50) = V(24)*V(70) - ARP(51) = V(8)*V(70) - ARP(52) = V(17)*V(70) - ARP(53) = V(10)*V(70) - ARP(54) = V(11)*V(70) - ARP(55) = V(31)*V(70) - ARP(56) = V(38)*V(70) - ARP(57) = V(63)*V(70) - ARP(58) = V(12)*V(70) - ARP(59) = V(13)*V(70) - ARP(60) = V(25)*V(70) - ARP(61) = V(58)*V(70) - ARP(62) = V(65)*V(70) - ARP(63) = V(49)*V(70) - ARP(64) = V(42)*V(70) - ARP(65) = V(57)*V(70) - ARP(66) = V(45)*V(70) - ARP(67) = V(22)*V(70) - ARP(68) = V(54)*V(70) - ARP(69) = V(21)*V(70) - ARP(70) = V(28)*V(70) - ARP(71) = V(70)*V(75) - ARP(72) = V(39)*V(70) - ARP(73) = V(68)*V(72) - ARP(74) = V(28) - ARP(75) = V(59)*V(72) - ARP(76) = V(14) - ARP(77) = V(67)*V(73) - ARP(78) = V(73)*V(76) - ARP(79) = V(46)*V(73) - ARP(80) = V(47)*V(73) - ARP(81) = V(50)*V(73) - ARP(82) = V(51)*V(73) - ARP(83) = V(48)*V(73) - ARP(84) = V(68)*V(73) - ARP(85) = V(59)*V(73) - ARP(86) = V(53)*V(73) - ARP(87) = V(43)*V(73) - ARP(88) = V(66)*V(73) - ARP(89) = V(64)*V(73) - ARP(90) = V(56)*V(73) - ARP(91) = V(58)*V(71) - ARP(92) = V(65)*V(71) - ARP(93) = V(42)*V(71) - ARP(94) = V(57)*V(71) - ARP(95) = V(45)*V(71) - ARP(96) = V(25)*V(71) - ARP(97) = V(31)*V(71) - ARP(98) = V(38)*V(71) - ARP(99) = V(63)*V(71) - ARP(100) = V(39)*V(71) - ARP(101) = V(31)*V(74) - ARP(102) = V(38)*V(74) - ARP(103) = V(63)*V(74) - ARP(104) = V(39)*V(74) - ARP(105) = V(67)*V(69) - ARP(106) = V(66)*V(69) - ARP(107) = V(69)*V(76) - ARP(108) = V(46)*V(69) - ARP(109) = V(47)*V(69) - ARP(110) = V(50)*V(69) - ARP(111) = V(51)*V(69) - ARP(112) = V(48)*V(69) - ARP(113) = V(64)*V(69) - ARP(114) = V(68)*V(69) - ARP(115) = V(53)*V(69) - ARP(116) = V(43)*V(69) - ARP(117) = V(59)*V(69) - ARP(118) = V(56)*V(69) - ARP(119) = V(67)*V(67) - ARP(120) = V(66)*V(67) - ARP(121) = V(67)*V(76) - ARP(122) = V(46)*V(67) - ARP(123) = V(47)*V(67) - ARP(124) = V(50)*V(67) - ARP(125) = V(51)*V(67) - ARP(126) = V(48)*V(67) - ARP(127) = V(64)*V(67) - ARP(128) = V(67)*V(68) - ARP(129) = V(53)*V(67) - ARP(130) = V(43)*V(67) - ARP(131) = V(59)*V(67) - ARP(132) = V(66)*V(68) - ARP(133) = V(68)*V(76) - ARP(134) = V(46)*V(68) - ARP(135) = V(47)*V(68) - ARP(136) = V(50)*V(68) - ARP(137) = V(51)*V(68) - ARP(138) = V(48)*V(68) - ARP(139) = V(64)*V(68) - ARP(140) = V(68)*V(68) - ARP(141) = V(53)*V(68) - ARP(142) = V(43)*V(68) - ARP(143) = V(59)*V(68) - ARP(144) = V(52)*V(69) - ARP(145) = V(52)*V(67) - ARP(146) = V(52)*V(68) - ARP(147) = V(52)*V(73) - ARP(148) = V(41)*V(72) - ARP(149) = V(41)*V(69) - ARP(150) = V(41)*V(67) - ARP(151) = V(41)*V(68) - ARP(152) = V(56)*V(67) - ARP(153) = V(56)*V(68) - ARP(154) = V(56)*V(56) - ARP(155) = V(35)*V(70) - ARP(156) = V(35)*V(71) - ARP(157) = V(35)*V(74) - ARP(158) = V(60)*V(73) - ARP(159) = V(60)*V(69) - ARP(160) = V(60)*V(67) - ARP(161) = V(60)*V(68) - ARP(162) = V(60)*V(71) - ARP(163) = V(37)*V(70) - ARP(164) = V(37)*V(71) - ARP(165) = V(37)*V(74) - ARP(166) = V(62)*V(73) - ARP(167) = V(62)*V(69) - ARP(168) = V(62)*V(67) - ARP(169) = V(62)*V(68) - ARP(170) = V(62)*V(71) - ARP(171) = V(32)*V(73) - ARP(172) = V(32)*V(69) - ARP(173) = V(32)*V(32) - ARP(174) = V(9)*V(70) - ARP(175) = V(33)*V(70) - ARP(176) = V(44)*V(70) - ARP(177) = V(44)*V(74) - ARP(178) = V(55)*V(73) - ARP(179) = V(55)*V(69) - ARP(180) = V(55)*V(55) - ARP(181) = V(55)*V(72) - ARP(182) = V(23) - ARP(183) = V(23)*V(70) - ARP(184) = V(16)*V(70) - ARP(185) = V(27)*V(70) - ARP(186) = V(18)*V(70) - -END SUBROUTINE ReactantProd - -! End of ReactantProd function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! JacReactantProd - Jacobian of Reactant Products vector -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! JVRP - d ARP(1:NREACT)/d VAR (1:NVAR) -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE JacReactantProd ( V, F, JVRP ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! F - Concentrations of fixed species (local) - REAL(kind=dp) :: F(NFIX) -! JVRP - d ARP(1:NREACT)/d VAR (1:NVAR) - REAL(kind=dp) :: JVRP(NJVRP) - - -! Reactant Products in each equation are useful in the -! stoichiometric formulation of mass action law -! Below we compute the Jacobian of the Reactant Products vector -! w.r.t. variable species: d ARP(1:NREACT) / d Var(1:NVAR) - -! JVRP(1) = dARP(1)/dV(72) - JVRP(1) = 1 -! JVRP(2) = dARP(2)/dV(74) - JVRP(2) = 1 -! JVRP(3) = dARP(3)/dV(74) - JVRP(3) = 1 -! JVRP(4) = dARP(4)/dV(15) - JVRP(4) = 1 -! JVRP(5) = dARP(5)/dV(40) - JVRP(5) = 1 -! JVRP(6) = dARP(6)/dV(26) - JVRP(6) = 1 -! JVRP(7) = dARP(7)/dV(71) - JVRP(7) = 1 -! JVRP(8) = dARP(8)/dV(71) - JVRP(8) = 1 -! JVRP(9) = dARP(9)/dV(30) - JVRP(9) = 1 -! JVRP(10) = dARP(10)/dV(58) - JVRP(10) = 1 -! JVRP(11) = dARP(11)/dV(58) - JVRP(11) = 1 -! JVRP(12) = dARP(12)/dV(65) - JVRP(12) = 1 -! JVRP(13) = dARP(13)/dV(22) - JVRP(13) = 1 -! JVRP(14) = dARP(14)/dV(54) - JVRP(14) = 1 -! JVRP(15) = dARP(15)/dV(21) - JVRP(15) = 1 -! JVRP(16) = dARP(16)/dV(49) - JVRP(16) = 1 -! JVRP(17) = dARP(17)/dV(42) - JVRP(17) = 1 -! JVRP(18) = dARP(18)/dV(42) - JVRP(18) = 1 -! JVRP(19) = dARP(19)/dV(57) - JVRP(19) = 1 -! JVRP(20) = dARP(20)/dV(45) - JVRP(20) = 1 -! JVRP(21) = dARP(21)/dV(75) - JVRP(21) = 1 -! JVRP(22) = dARP(22)/dV(29) - JVRP(22) = V(34) -! JVRP(23) = dARP(22)/dV(34) - JVRP(23) = V(29) -! JVRP(24) = dARP(23)/dV(29) - JVRP(24) = V(72) -! JVRP(25) = dARP(23)/dV(72) - JVRP(25) = V(29) -! JVRP(26) = dARP(24)/dV(1) - JVRP(26) = V(19) -! JVRP(27) = dARP(24)/dV(19) - JVRP(27) = V(1) -! JVRP(28) = dARP(25)/dV(19) - JVRP(28) = V(34) -! JVRP(29) = dARP(25)/dV(34) - JVRP(29) = V(19) -! JVRP(30) = dARP(26)/dV(19) - JVRP(30) = V(61) -! JVRP(31) = dARP(26)/dV(61) - JVRP(31) = V(19) -! JVRP(32) = dARP(27)/dV(73) - JVRP(32) = V(74) -! JVRP(33) = dARP(27)/dV(74) - JVRP(33) = V(73) -! JVRP(34) = dARP(28)/dV(70) - JVRP(34) = V(74) -! JVRP(35) = dARP(28)/dV(74) - JVRP(35) = V(70) -! JVRP(36) = dARP(29)/dV(69) - JVRP(36) = V(74) -! JVRP(37) = dARP(29)/dV(74) - JVRP(37) = V(69) -! JVRP(38) = dARP(30)/dV(69) - JVRP(38) = V(73) -! JVRP(39) = dARP(30)/dV(73) - JVRP(39) = V(69) -! JVRP(40) = dARP(31)/dV(69) - JVRP(40) = V(72) -! JVRP(41) = dARP(31)/dV(72) - JVRP(41) = V(69) -! JVRP(42) = dARP(32)/dV(69) - JVRP(42) = 2*V(69) -! JVRP(43) = dARP(33)/dV(61) - JVRP(43) = V(69)*V(69) -! JVRP(44) = dARP(33)/dV(69) - JVRP(44) = 2*V(61)*V(69) -! JVRP(45) = dARP(34)/dV(30) - JVRP(45) = V(70) -! JVRP(46) = dARP(34)/dV(70) - JVRP(46) = V(30) -! JVRP(47) = dARP(35)/dV(70) - JVRP(47) = V(73) -! JVRP(48) = dARP(35)/dV(73) - JVRP(48) = V(70) -! JVRP(49) = dARP(36)/dV(34) - JVRP(49) = V(73)*V(73) -! JVRP(50) = dARP(36)/dV(73) - JVRP(50) = 2*V(34)*V(73) -! JVRP(51) = dARP(37)/dV(72) - JVRP(51) = V(74) -! JVRP(52) = dARP(37)/dV(74) - JVRP(52) = V(72) -! JVRP(53) = dARP(38)/dV(71) - JVRP(53) = V(73) -! JVRP(54) = dARP(38)/dV(73) - JVRP(54) = V(71) -! JVRP(55) = dARP(39)/dV(71) - JVRP(55) = V(72) -! JVRP(56) = dARP(39)/dV(72) - JVRP(56) = V(71) -! JVRP(57) = dARP(40)/dV(69) - JVRP(57) = V(71) -! JVRP(58) = dARP(40)/dV(71) - JVRP(58) = V(69) -! JVRP(59) = dARP(41)/dV(71) - JVRP(59) = V(72) -! JVRP(60) = dARP(41)/dV(72) - JVRP(60) = V(71) -! JVRP(61) = dARP(42)/dV(20) - JVRP(61) = 1 -! JVRP(62) = dARP(43)/dV(20) - JVRP(62) = V(61) -! JVRP(63) = dARP(43)/dV(61) - JVRP(63) = V(20) -! JVRP(64) = dARP(44)/dV(70) - JVRP(64) = V(72) -! JVRP(65) = dARP(44)/dV(72) - JVRP(65) = V(70) -! JVRP(66) = dARP(45)/dV(40) - JVRP(66) = V(70) -! JVRP(67) = dARP(45)/dV(70) - JVRP(67) = V(40) -! JVRP(68) = dARP(46)/dV(26) - JVRP(68) = V(70) -! JVRP(69) = dARP(46)/dV(70) - JVRP(69) = V(26) -! JVRP(70) = dARP(47)/dV(69) - JVRP(70) = V(70) -! JVRP(71) = dARP(47)/dV(70) - JVRP(71) = V(69) -! JVRP(72) = dARP(48)/dV(7) - JVRP(72) = V(70) -! JVRP(73) = dARP(48)/dV(70) - JVRP(73) = V(7) -! JVRP(74) = dARP(49)/dV(36) - JVRP(74) = V(70) -! JVRP(75) = dARP(49)/dV(70) - JVRP(75) = V(36) -! JVRP(76) = dARP(50)/dV(24) - JVRP(76) = V(70) -! JVRP(77) = dARP(50)/dV(70) - JVRP(77) = V(24) -! JVRP(78) = dARP(51)/dV(8) - JVRP(78) = V(70) -! JVRP(79) = dARP(51)/dV(70) - JVRP(79) = V(8) -! JVRP(80) = dARP(52)/dV(17) - JVRP(80) = V(70) -! JVRP(81) = dARP(52)/dV(70) - JVRP(81) = V(17) -! JVRP(82) = dARP(53)/dV(10) - JVRP(82) = V(70) -! JVRP(83) = dARP(53)/dV(70) - JVRP(83) = V(10) -! JVRP(84) = dARP(54)/dV(11) - JVRP(84) = V(70) -! JVRP(85) = dARP(54)/dV(70) - JVRP(85) = V(11) -! JVRP(86) = dARP(55)/dV(31) - JVRP(86) = V(70) -! JVRP(87) = dARP(55)/dV(70) - JVRP(87) = V(31) -! JVRP(88) = dARP(56)/dV(38) - JVRP(88) = V(70) -! JVRP(89) = dARP(56)/dV(70) - JVRP(89) = V(38) -! JVRP(90) = dARP(57)/dV(63) - JVRP(90) = V(70) -! JVRP(91) = dARP(57)/dV(70) - JVRP(91) = V(63) -! JVRP(92) = dARP(58)/dV(12) - JVRP(92) = V(70) -! JVRP(93) = dARP(58)/dV(70) - JVRP(93) = V(12) -! JVRP(94) = dARP(59)/dV(13) - JVRP(94) = V(70) -! JVRP(95) = dARP(59)/dV(70) - JVRP(95) = V(13) -! JVRP(96) = dARP(60)/dV(25) - JVRP(96) = V(70) -! JVRP(97) = dARP(60)/dV(70) - JVRP(97) = V(25) -! JVRP(98) = dARP(61)/dV(58) - JVRP(98) = V(70) -! JVRP(99) = dARP(61)/dV(70) - JVRP(99) = V(58) -! JVRP(100) = dARP(62)/dV(65) - JVRP(100) = V(70) -! JVRP(101) = dARP(62)/dV(70) - JVRP(101) = V(65) -! JVRP(102) = dARP(63)/dV(49) - JVRP(102) = V(70) -! JVRP(103) = dARP(63)/dV(70) - JVRP(103) = V(49) -! JVRP(104) = dARP(64)/dV(42) - JVRP(104) = V(70) -! JVRP(105) = dARP(64)/dV(70) - JVRP(105) = V(42) -! JVRP(106) = dARP(65)/dV(57) - JVRP(106) = V(70) -! JVRP(107) = dARP(65)/dV(70) - JVRP(107) = V(57) -! JVRP(108) = dARP(66)/dV(45) - JVRP(108) = V(70) -! JVRP(109) = dARP(66)/dV(70) - JVRP(109) = V(45) -! JVRP(110) = dARP(67)/dV(22) - JVRP(110) = V(70) -! JVRP(111) = dARP(67)/dV(70) - JVRP(111) = V(22) -! JVRP(112) = dARP(68)/dV(54) - JVRP(112) = V(70) -! JVRP(113) = dARP(68)/dV(70) - JVRP(113) = V(54) -! JVRP(114) = dARP(69)/dV(21) - JVRP(114) = V(70) -! JVRP(115) = dARP(69)/dV(70) - JVRP(115) = V(21) -! JVRP(116) = dARP(70)/dV(28) - JVRP(116) = V(70) -! JVRP(117) = dARP(70)/dV(70) - JVRP(117) = V(28) -! JVRP(118) = dARP(71)/dV(70) - JVRP(118) = V(75) -! JVRP(119) = dARP(71)/dV(75) - JVRP(119) = V(70) -! JVRP(120) = dARP(72)/dV(39) - JVRP(120) = V(70) -! JVRP(121) = dARP(72)/dV(70) - JVRP(121) = V(39) -! JVRP(122) = dARP(73)/dV(68) - JVRP(122) = V(72) -! JVRP(123) = dARP(73)/dV(72) - JVRP(123) = V(68) -! JVRP(124) = dARP(74)/dV(28) - JVRP(124) = 1 -! JVRP(125) = dARP(75)/dV(59) - JVRP(125) = V(72) -! JVRP(126) = dARP(75)/dV(72) - JVRP(126) = V(59) -! JVRP(127) = dARP(76)/dV(14) - JVRP(127) = 1 -! JVRP(128) = dARP(77)/dV(67) - JVRP(128) = V(73) -! JVRP(129) = dARP(77)/dV(73) - JVRP(129) = V(67) -! JVRP(130) = dARP(78)/dV(73) - JVRP(130) = V(76) -! JVRP(131) = dARP(78)/dV(76) - JVRP(131) = V(73) -! JVRP(132) = dARP(79)/dV(46) - JVRP(132) = V(73) -! JVRP(133) = dARP(79)/dV(73) - JVRP(133) = V(46) -! JVRP(134) = dARP(80)/dV(47) - JVRP(134) = V(73) -! JVRP(135) = dARP(80)/dV(73) - JVRP(135) = V(47) -! JVRP(136) = dARP(81)/dV(50) - JVRP(136) = V(73) -! JVRP(137) = dARP(81)/dV(73) - JVRP(137) = V(50) -! JVRP(138) = dARP(82)/dV(51) - JVRP(138) = V(73) -! JVRP(139) = dARP(82)/dV(73) - JVRP(139) = V(51) -! JVRP(140) = dARP(83)/dV(48) - JVRP(140) = V(73) -! JVRP(141) = dARP(83)/dV(73) - JVRP(141) = V(48) -! JVRP(142) = dARP(84)/dV(68) - JVRP(142) = V(73) -! JVRP(143) = dARP(84)/dV(73) - JVRP(143) = V(68) -! JVRP(144) = dARP(85)/dV(59) - JVRP(144) = V(73) -! JVRP(145) = dARP(85)/dV(73) - JVRP(145) = V(59) -! JVRP(146) = dARP(86)/dV(53) - JVRP(146) = V(73) -! JVRP(147) = dARP(86)/dV(73) - JVRP(147) = V(53) -! JVRP(148) = dARP(87)/dV(43) - JVRP(148) = V(73) -! JVRP(149) = dARP(87)/dV(73) - JVRP(149) = V(43) -! JVRP(150) = dARP(88)/dV(66) - JVRP(150) = V(73) -! JVRP(151) = dARP(88)/dV(73) - JVRP(151) = V(66) -! JVRP(152) = dARP(89)/dV(64) - JVRP(152) = V(73) -! JVRP(153) = dARP(89)/dV(73) - JVRP(153) = V(64) -! JVRP(154) = dARP(90)/dV(56) - JVRP(154) = V(73) -! JVRP(155) = dARP(90)/dV(73) - JVRP(155) = V(56) -! JVRP(156) = dARP(91)/dV(58) - JVRP(156) = V(71) -! JVRP(157) = dARP(91)/dV(71) - JVRP(157) = V(58) -! JVRP(158) = dARP(92)/dV(65) - JVRP(158) = V(71) -! JVRP(159) = dARP(92)/dV(71) - JVRP(159) = V(65) -! JVRP(160) = dARP(93)/dV(42) - JVRP(160) = V(71) -! JVRP(161) = dARP(93)/dV(71) - JVRP(161) = V(42) -! JVRP(162) = dARP(94)/dV(57) - JVRP(162) = V(71) -! JVRP(163) = dARP(94)/dV(71) - JVRP(163) = V(57) -! JVRP(164) = dARP(95)/dV(45) - JVRP(164) = V(71) -! JVRP(165) = dARP(95)/dV(71) - JVRP(165) = V(45) -! JVRP(166) = dARP(96)/dV(25) - JVRP(166) = V(71) -! JVRP(167) = dARP(96)/dV(71) - JVRP(167) = V(25) -! JVRP(168) = dARP(97)/dV(31) - JVRP(168) = V(71) -! JVRP(169) = dARP(97)/dV(71) - JVRP(169) = V(31) -! JVRP(170) = dARP(98)/dV(38) - JVRP(170) = V(71) -! JVRP(171) = dARP(98)/dV(71) - JVRP(171) = V(38) -! JVRP(172) = dARP(99)/dV(63) - JVRP(172) = V(71) -! JVRP(173) = dARP(99)/dV(71) - JVRP(173) = V(63) -! JVRP(174) = dARP(100)/dV(39) - JVRP(174) = V(71) -! JVRP(175) = dARP(100)/dV(71) - JVRP(175) = V(39) -! JVRP(176) = dARP(101)/dV(31) - JVRP(176) = V(74) -! JVRP(177) = dARP(101)/dV(74) - JVRP(177) = V(31) -! JVRP(178) = dARP(102)/dV(38) - JVRP(178) = V(74) -! JVRP(179) = dARP(102)/dV(74) - JVRP(179) = V(38) -! JVRP(180) = dARP(103)/dV(63) - JVRP(180) = V(74) -! JVRP(181) = dARP(103)/dV(74) - JVRP(181) = V(63) -! JVRP(182) = dARP(104)/dV(39) - JVRP(182) = V(74) -! JVRP(183) = dARP(104)/dV(74) - JVRP(183) = V(39) -! JVRP(184) = dARP(105)/dV(67) - JVRP(184) = V(69) -! JVRP(185) = dARP(105)/dV(69) - JVRP(185) = V(67) -! JVRP(186) = dARP(106)/dV(66) - JVRP(186) = V(69) -! JVRP(187) = dARP(106)/dV(69) - JVRP(187) = V(66) -! JVRP(188) = dARP(107)/dV(69) - JVRP(188) = V(76) -! JVRP(189) = dARP(107)/dV(76) - JVRP(189) = V(69) -! JVRP(190) = dARP(108)/dV(46) - JVRP(190) = V(69) -! JVRP(191) = dARP(108)/dV(69) - JVRP(191) = V(46) -! JVRP(192) = dARP(109)/dV(47) - JVRP(192) = V(69) -! JVRP(193) = dARP(109)/dV(69) - JVRP(193) = V(47) -! JVRP(194) = dARP(110)/dV(50) - JVRP(194) = V(69) -! JVRP(195) = dARP(110)/dV(69) - JVRP(195) = V(50) -! JVRP(196) = dARP(111)/dV(51) - JVRP(196) = V(69) -! JVRP(197) = dARP(111)/dV(69) - JVRP(197) = V(51) -! JVRP(198) = dARP(112)/dV(48) - JVRP(198) = V(69) -! JVRP(199) = dARP(112)/dV(69) - JVRP(199) = V(48) -! JVRP(200) = dARP(113)/dV(64) - JVRP(200) = V(69) -! JVRP(201) = dARP(113)/dV(69) - JVRP(201) = V(64) -! JVRP(202) = dARP(114)/dV(68) - JVRP(202) = V(69) -! JVRP(203) = dARP(114)/dV(69) - JVRP(203) = V(68) -! JVRP(204) = dARP(115)/dV(53) - JVRP(204) = V(69) -! JVRP(205) = dARP(115)/dV(69) - JVRP(205) = V(53) -! JVRP(206) = dARP(116)/dV(43) - JVRP(206) = V(69) -! JVRP(207) = dARP(116)/dV(69) - JVRP(207) = V(43) -! JVRP(208) = dARP(117)/dV(59) - JVRP(208) = V(69) -! JVRP(209) = dARP(117)/dV(69) - JVRP(209) = V(59) -! JVRP(210) = dARP(118)/dV(56) - JVRP(210) = V(69) -! JVRP(211) = dARP(118)/dV(69) - JVRP(211) = V(56) -! JVRP(212) = dARP(119)/dV(67) - JVRP(212) = 2*V(67) -! JVRP(213) = dARP(120)/dV(66) - JVRP(213) = V(67) -! JVRP(214) = dARP(120)/dV(67) - JVRP(214) = V(66) -! JVRP(215) = dARP(121)/dV(67) - JVRP(215) = V(76) -! JVRP(216) = dARP(121)/dV(76) - JVRP(216) = V(67) -! JVRP(217) = dARP(122)/dV(46) - JVRP(217) = V(67) -! JVRP(218) = dARP(122)/dV(67) - JVRP(218) = V(46) -! JVRP(219) = dARP(123)/dV(47) - JVRP(219) = V(67) -! JVRP(220) = dARP(123)/dV(67) - JVRP(220) = V(47) -! JVRP(221) = dARP(124)/dV(50) - JVRP(221) = V(67) -! JVRP(222) = dARP(124)/dV(67) - JVRP(222) = V(50) -! JVRP(223) = dARP(125)/dV(51) - JVRP(223) = V(67) -! JVRP(224) = dARP(125)/dV(67) - JVRP(224) = V(51) -! JVRP(225) = dARP(126)/dV(48) - JVRP(225) = V(67) -! JVRP(226) = dARP(126)/dV(67) - JVRP(226) = V(48) -! JVRP(227) = dARP(127)/dV(64) - JVRP(227) = V(67) -! JVRP(228) = dARP(127)/dV(67) - JVRP(228) = V(64) -! JVRP(229) = dARP(128)/dV(67) - JVRP(229) = V(68) -! JVRP(230) = dARP(128)/dV(68) - JVRP(230) = V(67) -! JVRP(231) = dARP(129)/dV(53) - JVRP(231) = V(67) -! JVRP(232) = dARP(129)/dV(67) - JVRP(232) = V(53) -! JVRP(233) = dARP(130)/dV(43) - JVRP(233) = V(67) -! JVRP(234) = dARP(130)/dV(67) - JVRP(234) = V(43) -! JVRP(235) = dARP(131)/dV(59) - JVRP(235) = V(67) -! JVRP(236) = dARP(131)/dV(67) - JVRP(236) = V(59) -! JVRP(237) = dARP(132)/dV(66) - JVRP(237) = V(68) -! JVRP(238) = dARP(132)/dV(68) - JVRP(238) = V(66) -! JVRP(239) = dARP(133)/dV(68) - JVRP(239) = V(76) -! JVRP(240) = dARP(133)/dV(76) - JVRP(240) = V(68) -! JVRP(241) = dARP(134)/dV(46) - JVRP(241) = V(68) -! JVRP(242) = dARP(134)/dV(68) - JVRP(242) = V(46) -! JVRP(243) = dARP(135)/dV(47) - JVRP(243) = V(68) -! JVRP(244) = dARP(135)/dV(68) - JVRP(244) = V(47) -! JVRP(245) = dARP(136)/dV(50) - JVRP(245) = V(68) -! JVRP(246) = dARP(136)/dV(68) - JVRP(246) = V(50) -! JVRP(247) = dARP(137)/dV(51) - JVRP(247) = V(68) -! JVRP(248) = dARP(137)/dV(68) - JVRP(248) = V(51) -! JVRP(249) = dARP(138)/dV(48) - JVRP(249) = V(68) -! JVRP(250) = dARP(138)/dV(68) - JVRP(250) = V(48) -! JVRP(251) = dARP(139)/dV(64) - JVRP(251) = V(68) -! JVRP(252) = dARP(139)/dV(68) - JVRP(252) = V(64) -! JVRP(253) = dARP(140)/dV(68) - JVRP(253) = 2*V(68) -! JVRP(254) = dARP(141)/dV(53) - JVRP(254) = V(68) -! JVRP(255) = dARP(141)/dV(68) - JVRP(255) = V(53) -! JVRP(256) = dARP(142)/dV(43) - JVRP(256) = V(68) -! JVRP(257) = dARP(142)/dV(68) - JVRP(257) = V(43) -! JVRP(258) = dARP(143)/dV(59) - JVRP(258) = V(68) -! JVRP(259) = dARP(143)/dV(68) - JVRP(259) = V(59) -! JVRP(260) = dARP(144)/dV(52) - JVRP(260) = V(69) -! JVRP(261) = dARP(144)/dV(69) - JVRP(261) = V(52) -! JVRP(262) = dARP(145)/dV(52) - JVRP(262) = V(67) -! JVRP(263) = dARP(145)/dV(67) - JVRP(263) = V(52) -! JVRP(264) = dARP(146)/dV(52) - JVRP(264) = V(68) -! JVRP(265) = dARP(146)/dV(68) - JVRP(265) = V(52) -! JVRP(266) = dARP(147)/dV(52) - JVRP(266) = V(73) -! JVRP(267) = dARP(147)/dV(73) - JVRP(267) = V(52) -! JVRP(268) = dARP(148)/dV(41) - JVRP(268) = V(72) -! JVRP(269) = dARP(148)/dV(72) - JVRP(269) = V(41) -! JVRP(270) = dARP(149)/dV(41) - JVRP(270) = V(69) -! JVRP(271) = dARP(149)/dV(69) - JVRP(271) = V(41) -! JVRP(272) = dARP(150)/dV(41) - JVRP(272) = V(67) -! JVRP(273) = dARP(150)/dV(67) - JVRP(273) = V(41) -! JVRP(274) = dARP(151)/dV(41) - JVRP(274) = V(68) -! JVRP(275) = dARP(151)/dV(68) - JVRP(275) = V(41) -! JVRP(276) = dARP(152)/dV(56) - JVRP(276) = V(67) -! JVRP(277) = dARP(152)/dV(67) - JVRP(277) = V(56) -! JVRP(278) = dARP(153)/dV(56) - JVRP(278) = V(68) -! JVRP(279) = dARP(153)/dV(68) - JVRP(279) = V(56) -! JVRP(280) = dARP(154)/dV(56) - JVRP(280) = 2*V(56) -! JVRP(281) = dARP(155)/dV(35) - JVRP(281) = V(70) -! JVRP(282) = dARP(155)/dV(70) - JVRP(282) = V(35) -! JVRP(283) = dARP(156)/dV(35) - JVRP(283) = V(71) -! JVRP(284) = dARP(156)/dV(71) - JVRP(284) = V(35) -! JVRP(285) = dARP(157)/dV(35) - JVRP(285) = V(74) -! JVRP(286) = dARP(157)/dV(74) - JVRP(286) = V(35) -! JVRP(287) = dARP(158)/dV(60) - JVRP(287) = V(73) -! JVRP(288) = dARP(158)/dV(73) - JVRP(288) = V(60) -! JVRP(289) = dARP(159)/dV(60) - JVRP(289) = V(69) -! JVRP(290) = dARP(159)/dV(69) - JVRP(290) = V(60) -! JVRP(291) = dARP(160)/dV(60) - JVRP(291) = V(67) -! JVRP(292) = dARP(160)/dV(67) - JVRP(292) = V(60) -! JVRP(293) = dARP(161)/dV(60) - JVRP(293) = V(68) -! JVRP(294) = dARP(161)/dV(68) - JVRP(294) = V(60) -! JVRP(295) = dARP(162)/dV(60) - JVRP(295) = V(71) -! JVRP(296) = dARP(162)/dV(71) - JVRP(296) = V(60) -! JVRP(297) = dARP(163)/dV(37) - JVRP(297) = V(70) -! JVRP(298) = dARP(163)/dV(70) - JVRP(298) = V(37) -! JVRP(299) = dARP(164)/dV(37) - JVRP(299) = V(71) -! JVRP(300) = dARP(164)/dV(71) - JVRP(300) = V(37) -! JVRP(301) = dARP(165)/dV(37) - JVRP(301) = V(74) -! JVRP(302) = dARP(165)/dV(74) - JVRP(302) = V(37) -! JVRP(303) = dARP(166)/dV(62) - JVRP(303) = V(73) -! JVRP(304) = dARP(166)/dV(73) - JVRP(304) = V(62) -! JVRP(305) = dARP(167)/dV(62) - JVRP(305) = V(69) -! JVRP(306) = dARP(167)/dV(69) - JVRP(306) = V(62) -! JVRP(307) = dARP(168)/dV(62) - JVRP(307) = V(67) -! JVRP(308) = dARP(168)/dV(67) - JVRP(308) = V(62) -! JVRP(309) = dARP(169)/dV(62) - JVRP(309) = V(68) -! JVRP(310) = dARP(169)/dV(68) - JVRP(310) = V(62) -! JVRP(311) = dARP(170)/dV(62) - JVRP(311) = V(71) -! JVRP(312) = dARP(170)/dV(71) - JVRP(312) = V(62) -! JVRP(313) = dARP(171)/dV(32) - JVRP(313) = V(73) -! JVRP(314) = dARP(171)/dV(73) - JVRP(314) = V(32) -! JVRP(315) = dARP(172)/dV(32) - JVRP(315) = V(69) -! JVRP(316) = dARP(172)/dV(69) - JVRP(316) = V(32) -! JVRP(317) = dARP(173)/dV(32) - JVRP(317) = 2*V(32) -! JVRP(318) = dARP(174)/dV(9) - JVRP(318) = V(70) -! JVRP(319) = dARP(174)/dV(70) - JVRP(319) = V(9) -! JVRP(320) = dARP(175)/dV(33) - JVRP(320) = V(70) -! JVRP(321) = dARP(175)/dV(70) - JVRP(321) = V(33) -! JVRP(322) = dARP(176)/dV(44) - JVRP(322) = V(70) -! JVRP(323) = dARP(176)/dV(70) - JVRP(323) = V(44) -! JVRP(324) = dARP(177)/dV(44) - JVRP(324) = V(74) -! JVRP(325) = dARP(177)/dV(74) - JVRP(325) = V(44) -! JVRP(326) = dARP(178)/dV(55) - JVRP(326) = V(73) -! JVRP(327) = dARP(178)/dV(73) - JVRP(327) = V(55) -! JVRP(328) = dARP(179)/dV(55) - JVRP(328) = V(69) -! JVRP(329) = dARP(179)/dV(69) - JVRP(329) = V(55) -! JVRP(330) = dARP(180)/dV(55) - JVRP(330) = 2*V(55) -! JVRP(331) = dARP(181)/dV(55) - JVRP(331) = V(72) -! JVRP(332) = dARP(181)/dV(72) - JVRP(332) = V(55) -! JVRP(333) = dARP(182)/dV(23) - JVRP(333) = 1 -! JVRP(334) = dARP(183)/dV(23) - JVRP(334) = V(70) -! JVRP(335) = dARP(183)/dV(70) - JVRP(335) = V(23) -! JVRP(336) = dARP(184)/dV(16) - JVRP(336) = V(70) -! JVRP(337) = dARP(184)/dV(70) - JVRP(337) = V(16) -! JVRP(338) = dARP(185)/dV(27) - JVRP(338) = V(70) -! JVRP(339) = dARP(185)/dV(70) - JVRP(339) = V(27) -! JVRP(340) = dARP(186)/dV(18) - JVRP(340) = V(70) -! JVRP(341) = dARP(186)/dV(70) - JVRP(341) = V(18) - -END SUBROUTINE JacReactantProd - -! End of JacReactantProd function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! Begin Derivative w.r.t. Rate Coefficients - -! ------------------------------------------------------------------------------ -! Subroutine for the derivative of Fun with respect to rate coefficients -! ----------------------------------------------------------------------------- - - SUBROUTINE dFun_dRcoeff( V, F, NCOEFF, JCOEFF, DFDR ) - - USE RADMKA_Parameters - USE RADMKA_StoichiomSP - IMPLICIT NONE - -! V - Concentrations of variable/radical/fixed species - REAL(kind=dp) V(NVAR), F(NFIX) -! NCOEFF - the number of rate coefficients with respect to which we differentiate - INTEGER NCOEFF -! JCOEFF - a vector of integers containing the indices of reactions (rate -! coefficients) with respect to which we differentiate - INTEGER JCOEFF(NCOEFF) -! DFDR - a matrix containg derivative values; specifically, -! column j contains d Fun(1:NVAR) / d RCT( JCOEFF(j) ) -! for each 1 <= j <= NCOEFF -! This matrix is stored in a column-wise linearized format - REAL(kind=dp) DFDR(NVAR*NCOEFF) - -! Local vector with reactant products - REAL(kind=dp) A_RPROD(NREACT) - REAL(kind=dp) aj - INTEGER i,j,k - -! Compute the reactant products of all reactions - CALL ReactantProd ( V, F, A_RPROD ) - -! Compute the derivatives by multiplying column JCOEFF(j) of the stoichiometric matrix with A_RPROD - DO j=1,NCOEFF -! Initialize the j-th column of derivative matrix to zero - DO i=1,NVAR - DFDR(i+NVAR*(j-1)) = 0.0_dp - END DO -! Column JCOEFF(j) in the stoichiometric matrix times the -! reactant product of the JCOEFF(j)-th reaction -! give the j-th column of the derivative matrix - aj = A_RPROD(JCOEFF(j)) - DO k=CCOL_STOICM(JCOEFF(j)),CCOL_STOICM(JCOEFF(j)+1)-1 - DFDR(IROW_STOICM(k)+NVAR*(j-1)) = STOICM(k)*aj - END DO - END DO - - END SUBROUTINE dFun_dRcoeff - -! End Derivative w.r.t. Rate Coefficients - - -! Begin Jacobian Derivative w.r.t. Rate Coefficients - -! ------------------------------------------------------------------------------ -! Subroutine for the derivative of Jac with respect to rate coefficients -! Times a user vector -! ----------------------------------------------------------------------------- - - SUBROUTINE dJac_dRcoeff( V, F, U, NCOEFF, JCOEFF, DJDR ) - - USE RADMKA_Parameters - USE RADMKA_StoichiomSP - IMPLICIT NONE - -! V - Concentrations of variable/fixed species - REAL(kind=dp) V(NVAR), F(NFIX) -! U - User-supplied Vector - REAL(kind=dp) U(NVAR) -! NCOEFF - the number of rate coefficients with respect to which we differentiate - INTEGER NCOEFF -! JCOEFF - a vector of integers containing the indices of reactions (rate -! coefficients) with respect to which we differentiate - INTEGER JCOEFF(NCOEFF) -! DFDR - a matrix containg derivative values; specifically, -! column j contains d Jac(1:NVAR) / d RCT( JCOEFF(j) ) * U -! for each 1 <= j <= NCOEFF -! This matrix is stored in a column-wise linearized format - REAL(kind=dp) DJDR(NVAR*NCOEFF) - -! Local vector for Jacobian of reactant products - REAL(kind=dp) JV_RPROD(NJVRP) - REAL(kind=dp) aj - INTEGER i,j,k - -! Compute the Jacobian of all reactant products - CALL JacReactantProd( V, F, JV_RPROD ) - -! Compute the derivatives by multiplying column JCOEFF(j) of the stoichiometric matrix with A_PROD - DO j=1,NCOEFF -! Initialize the j-th column of derivative matrix to zero - DO i=1,NVAR - DJDR(i+NVAR*(j-1)) = 0.0_dp - END DO -! Column JCOEFF(j) in the stoichiometric matrix times the -! ( Gradient of reactant product of the JCOEFF(j)-th reaction X user vector ) -! give the j-th column of the derivative matrix -! -! Row JCOEFF(j) of JV_RPROD times the user vector - aj = 0.0_dp - DO k=CROW_JVRP(JCOEFF(j)),CROW_JVRP(JCOEFF(j)+1)-1 - aj = aj + JV_RPROD(k)*U(ICOL_JVRP(k)) - END DO -! Column JCOEFF(j) of Stoichiom. matrix times aj - DO k=CCOL_STOICM(JCOEFF(j)),CCOL_STOICM(JCOEFF(j)+1)-1 - DJDR(IROW_STOICM(k)+NVAR*(j-1)) = STOICM(k)*aj - END DO - END DO - - END SUBROUTINE dJac_dRcoeff - -! End Jacobian Derivative w.r.t. Rate Coefficients - - -END MODULE RADMKA_Stoichiom - diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_Stoichiom.o b/boxmox/compiled_mechs/RADMKA/RADMKA_Stoichiom.o deleted file mode 100644 index 5983d5c6c40cf009838fa9182f20b70a0979917a..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/RADMKA_Stoichiom.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_StoichiomSP.f90 b/boxmox/compiled_mechs/RADMKA/RADMKA_StoichiomSP.f90 deleted file mode 100644 index 97949841fe2f7ce8a930ac755bce08b2ed6e6030..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADMKA/RADMKA_StoichiomSP.f90 +++ /dev/null @@ -1,473 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Sparse Stoichiometric Data Structures File -! -! Generated by KPP-2.2.3 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 : RADMKA_StoichiomSP.f90 -! Time : Thu Oct 8 08:22:34 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADMKA_16038_BOXMOX -! Equation file : RADMKA.kpp -! Output root filename : RADMKA -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RADMKA_StoichiomSP - - USE RADMKA_Precision - PUBLIC - SAVE - - -! Row-compressed sparse data for the Jacobian of reaction products JVRP - - INTEGER, PARAMETER, DIMENSION(187) :: CROW_JVRP = (/ & - 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, & - 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 24, 26, & - 28, 30, 32, 34, 36, 38, 40, 42, 43, 45, 47, 49, & - 51, 53, 55, 57, 59, 61, 62, 64, 66, 68, 70, 72, & - 74, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 96, & - 98,100,102,104,106,108,110,112,114,116,118,120, & - 122,124,125,127,128,130,132,134,136,138,140,142, & - 144,146,148,150,152,154,156,158,160,162,164,166, & - 168,170,172,174,176,178,180,182,184,186,188,190, & - 192,194,196,198,200,202,204,206,208,210,212,213, & - 215,217,219,221,223,225,227,229,231,233,235,237, & - 239,241,243,245,247,249,251,253,254,256,258,260, & - 262,264,266,268,270,272,274,276,278,280,281,283, & - 285,287,289,291,293,295,297,299,301,303,305,307, & - 309,311,313,315,317,318,320,322,324,326,328,330, & - 331,333,334,336,338,340,342 /) - - INTEGER, PARAMETER, DIMENSION(341) :: ICOL_JVRP = (/ & - 72, 74, 74, 15, 40, 26, 71, 71, 30, 58, 58, 65, & - 22, 54, 21, 49, 42, 42, 57, 45, 75, 29, 34, 29, & - 72, 1, 19, 19, 34, 19, 61, 73, 74, 70, 74, 69, & - 74, 69, 73, 69, 72, 69, 61, 69, 30, 70, 70, 73, & - 34, 73, 72, 74, 71, 73, 71, 72, 69, 71, 71, 72, & - 20, 20, 61, 70, 72, 40, 70, 26, 70, 69, 70, 7, & - 70, 36, 70, 24, 70, 8, 70, 17, 70, 10, 70, 11, & - 70, 31, 70, 38, 70, 63, 70, 12, 70, 13, 70, 25, & - 70, 58, 70, 65, 70, 49, 70, 42, 70, 57, 70, 45, & - 70, 22, 70, 54, 70, 21, 70, 28, 70, 70, 75, 39, & - 70, 68, 72, 28, 59, 72, 14, 67, 73, 73, 76, 46, & - 73, 47, 73, 50, 73, 51, 73, 48, 73, 68, 73, 59, & - 73, 53, 73, 43, 73, 66, 73, 64, 73, 56, 73, 58, & - 71, 65, 71, 42, 71, 57, 71, 45, 71, 25, 71, 31, & - 71, 38, 71, 63, 71, 39, 71, 31, 74, 38, 74, 63, & - 74, 39, 74, 67, 69, 66, 69, 69, 76, 46, 69, 47, & - 69, 50, 69, 51, 69, 48, 69, 64, 69, 68, 69, 53, & - 69, 43, 69, 59, 69, 56, 69, 67, 66, 67, 67, 76, & - 46, 67, 47, 67, 50, 67, 51, 67, 48, 67, 64, 67, & - 67, 68, 53, 67, 43, 67, 59, 67, 66, 68, 68, 76, & - 46, 68, 47, 68, 50, 68, 51, 68, 48, 68, 64, 68, & - 68, 53, 68, 43, 68, 59, 68, 52, 69, 52, 67, 52, & - 68, 52, 73, 41, 72, 41, 69, 41, 67, 41, 68, 56, & - 67, 56, 68, 56, 35, 70, 35, 71, 35, 74, 60, 73, & - 60, 69, 60, 67, 60, 68, 60, 71, 37, 70, 37, 71, & - 37, 74, 62, 73, 62, 69, 62, 67, 62, 68, 62, 71, & - 32, 73, 32, 69, 32, 9, 70, 33, 70, 44, 70, 44, & - 74, 55, 73, 55, 69, 55, 55, 72, 23, 23, 70, 16, & - 70, 27, 70, 18, 70 /) - - INTEGER, PARAMETER, DIMENSION(341) :: IROW_JVRP = (/ & - 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, & - 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 22, 23, & - 23, 24, 24, 25, 25, 26, 26, 27, 27, 28, 28, 29, & - 29, 30, 30, 31, 31, 32, 33, 33, 34, 34, 35, 35, & - 36, 36, 37, 37, 38, 38, 39, 39, 40, 40, 41, 41, & - 42, 43, 43, 44, 44, 45, 45, 46, 46, 47, 47, 48, & - 48, 49, 49, 50, 50, 51, 51, 52, 52, 53, 53, 54, & - 54, 55, 55, 56, 56, 57, 57, 58, 58, 59, 59, 60, & - 60, 61, 61, 62, 62, 63, 63, 64, 64, 65, 65, 66, & - 66, 67, 67, 68, 68, 69, 69, 70, 70, 71, 71, 72, & - 72, 73, 73, 74, 75, 75, 76, 77, 77, 78, 78, 79, & - 79, 80, 80, 81, 81, 82, 82, 83, 83, 84, 84, 85, & - 85, 86, 86, 87, 87, 88, 88, 89, 89, 90, 90, 91, & - 91, 92, 92, 93, 93, 94, 94, 95, 95, 96, 96, 97, & - 97, 98, 98, 99, 99,100,100,101,101,102,102,103, & - 103,104,104,105,105,106,106,107,107,108,108,109, & - 109,110,110,111,111,112,112,113,113,114,114,115, & - 115,116,116,117,117,118,118,119,120,120,121,121, & - 122,122,123,123,124,124,125,125,126,126,127,127, & - 128,128,129,129,130,130,131,131,132,132,133,133, & - 134,134,135,135,136,136,137,137,138,138,139,139, & - 140,141,141,142,142,143,143,144,144,145,145,146, & - 146,147,147,148,148,149,149,150,150,151,151,152, & - 152,153,153,154,155,155,156,156,157,157,158,158, & - 159,159,160,160,161,161,162,162,163,163,164,164, & - 165,165,166,166,167,167,168,168,169,169,170,170, & - 171,171,172,172,173,174,174,175,175,176,176,177, & - 177,178,178,179,179,180,181,181,182,183,183,184, & - 184,185,185,186,186 /) - - - -! Stoichiometric Matrix in Compressed Column Sparse Format - - - INTEGER, PARAMETER, DIMENSION(187) :: CCOL_STOICM = (/ & - 1, 4, 7, 10, 13, 16, 19, 22, 25, 27, 30, 33, & - 37, 41, 45, 49, 52, 55, 59, 63, 67, 72, 75, 79, & - 81, 83, 86, 90, 94, 98,102,105,107,109,113,116, & - 119,122,125,128,132,135,138,141,144,148,153,157, & - 161,164,168,172,180,185,190,193,196,199,204,209, & - 214,219,223,227,232,237,241,245,249,253,258,262, & - 265,268,271,274,277,282,290,297,305,311,317,324, & - 328,337,344,350,355,360,365,370,374,379,384,388, & - 392,395,398,401,404,410,421,433,445,448,451,454, & - 457,460,463,466,469,472,475,478,481,484,487,490, & - 495,501,507,513,518,523,529,534,539,546,552,562, & - 568,575,582,589,596,603,611,617,619,626,632,640, & - 643,647,650,653,656,659,663,666,672,679,683,686, & - 689,699,706,709,715,721,727,730,733,746,754,757, & - 763,770,777,784,787,791,793,797,800,808,817,820, & - 826,829,832,836,839,843,848 /) - - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_0 = (/ & - 29, 72, 73, 19, 34, 74, 29, 34, 74, 15, 70, 73, & - 40, 70, 72, 26, 69, 72, 34, 71, 73, 29, 71, 72, & - 30, 70, 6, 36, 58, 36, 58, 69, 36, 65, 67, 69, & - 22, 58, 69, 70, 54, 65, 69, 70, 5, 21, 67, 70, & - 49, 66, 68, 36, 42, 58, 36, 42, 58, 69, 36, 57, & - 68, 69, 45, 59, 68, 69, 49, 65, 69, 72, 75, 29, & - 34, 74, 29, 34, 72, 73, 19, 29, 19, 29, 19, 61, & - 70, 34, 72, 73, 74, 34, 69, 70, 74, 34, 69, 70, & - 74, 69, 70, 72, 73, 26, 69, 72, 30, 69, 30, 69, & - 30, 61, 69, 70, 15, 70, 73, 34, 72, 73, 71, 72, & - 74, 71, 72, 73, 34, 71, 73, 34, 40, 69, 71, 20, & - 71, 72, 20, 71, 72, 20, 40, 61, 40, 70, 72, 40, & - 61, 70, 71, 26, 34, 61, 70, 72, 34, 61, 69, 70, & - 2, 7, 69, 70, 36, 69, 70, 24, 61, 67, 70, 8, & - 61, 66, 70, 17, 49, 58, 61, 65, 69, 70, 76, 10, & - 46, 52, 61, 70, 11, 47, 52, 61, 70, 31, 50, 70, & - 38, 51, 70, 48, 63, 70, 12, 25, 53, 69, 70, 13, & - 25, 43, 69, 70, 25, 52, 59, 69, 70, 36, 58, 61, & - 69, 70, 61, 65, 68, 70, 49, 61, 64, 70, 36, 42, & - 61, 69, 70, 36, 57, 61, 68, 70, 45, 59, 61, 70, & - 22, 58, 67, 70, 54, 65, 70, 76, 21, 61, 68, 70, & - 28, 52, 58, 70, 71, 70, 72, 75, 76, 32, 39, 70, & - 28, 68, 72, 28, 68, 72, 14, 59, 72, 14, 59, 72, & - 58, 67, 69, 72, 73, 49, 58, 65, 69, 72, 73, 75, & - 76, 46, 49, 65, 69, 72, 73, 75, 47, 49, 58, 65, & - 69, 72, 73, 75, 50, 58, 65, 69, 72, 73, 51, 58, & - 65, 69, 72, 73, 48, 49, 58, 65, 69, 72, 73, 67, & - 68, 72, 73, 36, 42, 52, 57, 59, 68, 69, 72, 73, & - 42, 45, 53, 57, 69, 72, 73, 43, 45, 57, 69, 72, & - 73, 65, 66, 69, 72, 73, 57, 64, 69, 72, 73, 56 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_1 = (/ & - 58, 65, 72, 73, 36, 40, 58, 69, 71, 40, 65, 68, & - 71, 36, 40, 42, 69, 71, 36, 40, 57, 68, 71, 40, & - 45, 59, 71, 25, 40, 41, 71, 31, 56, 71, 38, 56, & - 71, 56, 63, 71, 33, 39, 71, 3, 31, 36, 58, 69, & - 74, 3, 4, 24, 36, 38, 58, 65, 67, 69, 70, 74, & - 3, 4, 24, 36, 49, 58, 63, 65, 67, 69, 70, 74, & - 3, 30, 36, 39, 44, 55, 58, 67, 68, 69, 70, 74, & - 22, 67, 69, 54, 66, 69, 54, 69, 76, 46, 54, 69, & - 47, 54, 69, 50, 54, 69, 51, 54, 69, 48, 54, 69, & - 54, 64, 69, 21, 68, 69, 53, 54, 69, 43, 54, 69, & - 54, 59, 69, 56, 69, 75, 58, 67, 69, 58, 65, 66, & - 67, 69, 49, 58, 65, 67, 69, 76, 46, 49, 58, 65, & - 67, 69, 47, 49, 58, 65, 67, 69, 50, 58, 65, 67, & - 69, 51, 58, 65, 67, 69, 48, 49, 58, 65, 67, 69, & - 57, 58, 64, 67, 69, 4, 58, 67, 68, 69, 42, 45, & - 53, 57, 58, 67, 69, 43, 45, 57, 58, 67, 69, 4, & - 36, 42, 52, 57, 58, 59, 67, 68, 69, 4, 65, 66, & - 67, 68, 69, 4, 49, 65, 67, 68, 69, 76, 4, 46, & - 49, 65, 67, 68, 69, 4, 47, 49, 65, 67, 68, 69, & - 4, 50, 58, 65, 67, 68, 69, 4, 51, 58, 65, 67, & - 68, 69, 4, 48, 49, 58, 65, 67, 68, 69, 4, 57, & - 64, 67, 68, 69, 67, 68, 42, 45, 53, 57, 67, 68, & - 69, 43, 45, 57, 67, 68, 69, 36, 42, 52, 57, 59, & - 67, 68, 69, 52, 54, 69, 52, 58, 67, 69, 52, 67, & - 68, 52, 72, 73, 41, 72, 75, 41, 54, 69, 41, 58, & - 67, 69, 41, 67, 68, 56, 58, 65, 67, 69, 72, 4, & - 56, 58, 65, 67, 68, 72, 56, 58, 65, 72, 35, 60, & - 70, 35, 56, 71, 30, 35, 36, 49, 64, 65, 66, 69, & - 70, 74, 49, 60, 65, 69, 72, 73, 75, 54, 60, 69, & - 49, 58, 60, 65, 67, 69, 49, 60, 65, 67, 68, 69 /) - INTEGER, PARAMETER, DIMENSION(127) :: IROW_STOICM_2 = (/ & - 49, 60, 65, 69, 71, 72, 37, 62, 70, 37, 56, 71, & - 3, 4, 30, 36, 37, 38, 44, 58, 64, 66, 69, 70, & - 74, 44, 58, 62, 63, 69, 72, 73, 75, 54, 62, 69, & - 44, 58, 62, 63, 67, 69, 44, 58, 62, 63, 67, 68, & - 69, 44, 58, 62, 63, 69, 71, 72, 32, 33, 44, 58, & - 69, 72, 73, 9, 32, 69, 32, 44, 58, 69, 9, 44, & - 18, 27, 33, 70, 44, 55, 70, 3, 36, 44, 57, 68, & - 69, 70, 74, 27, 36, 55, 57, 58, 68, 69, 72, 73, & - 16, 55, 69, 27, 36, 55, 57, 58, 69, 23, 55, 72, & - 23, 55, 72, 23, 27, 70, 72, 16, 55, 70, 27, 57, & - 69, 70, 18, 36, 58, 70, 72 /) - INTEGER, PARAMETER, DIMENSION(847) :: IROW_STOICM = (/& - IROW_STOICM_0, IROW_STOICM_1, IROW_STOICM_2 /) - - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_0 = (/ & - 1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 4, & - 5, 5, 5, 6, 6, 6, 7, 7, 7, 8, 8, 8, & - 9, 9, 10, 10, 10, 11, 11, 11, 12, 12, 12, 12, & - 13, 13, 13, 13, 14, 14, 14, 14, 15, 15, 15, 15, & - 16, 16, 16, 17, 17, 17, 18, 18, 18, 18, 19, 19, & - 19, 19, 20, 20, 20, 20, 21, 21, 21, 21, 21, 22, & - 22, 22, 23, 23, 23, 23, 24, 24, 25, 25, 26, 26, & - 26, 27, 27, 27, 27, 28, 28, 28, 28, 29, 29, 29, & - 29, 30, 30, 30, 30, 31, 31, 31, 32, 32, 33, 33, & - 34, 34, 34, 34, 35, 35, 35, 36, 36, 36, 37, 37, & - 37, 38, 38, 38, 39, 39, 39, 40, 40, 40, 40, 41, & - 41, 41, 42, 42, 42, 43, 43, 43, 44, 44, 44, 45, & - 45, 45, 45, 46, 46, 46, 46, 46, 47, 47, 47, 47, & - 48, 48, 48, 48, 49, 49, 49, 50, 50, 50, 50, 51, & - 51, 51, 51, 52, 52, 52, 52, 52, 52, 52, 52, 53, & - 53, 53, 53, 53, 54, 54, 54, 54, 54, 55, 55, 55, & - 56, 56, 56, 57, 57, 57, 58, 58, 58, 58, 58, 59, & - 59, 59, 59, 59, 60, 60, 60, 60, 60, 61, 61, 61, & - 61, 61, 62, 62, 62, 62, 63, 63, 63, 63, 64, 64, & - 64, 64, 64, 65, 65, 65, 65, 65, 66, 66, 66, 66, & - 67, 67, 67, 67, 68, 68, 68, 68, 69, 69, 69, 69, & - 70, 70, 70, 70, 70, 71, 71, 71, 71, 72, 72, 72, & - 73, 73, 73, 74, 74, 74, 75, 75, 75, 76, 76, 76, & - 77, 77, 77, 77, 77, 78, 78, 78, 78, 78, 78, 78, & - 78, 79, 79, 79, 79, 79, 79, 79, 80, 80, 80, 80, & - 80, 80, 80, 80, 81, 81, 81, 81, 81, 81, 82, 82, & - 82, 82, 82, 82, 83, 83, 83, 83, 83, 83, 83, 84, & - 84, 84, 84, 85, 85, 85, 85, 85, 85, 85, 85, 85, & - 86, 86, 86, 86, 86, 86, 86, 87, 87, 87, 87, 87, & - 87, 88, 88, 88, 88, 88, 89, 89, 89, 89, 89, 90 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_1 = (/ & - 90, 90, 90, 90, 91, 91, 91, 91, 91, 92, 92, 92, & - 92, 93, 93, 93, 93, 93, 94, 94, 94, 94, 94, 95, & - 95, 95, 95, 96, 96, 96, 96, 97, 97, 97, 98, 98, & - 98, 99, 99, 99,100,100,100,101,101,101,101,101, & - 101,102,102,102,102,102,102,102,102,102,102,102, & - 103,103,103,103,103,103,103,103,103,103,103,103, & - 104,104,104,104,104,104,104,104,104,104,104,104, & - 105,105,105,106,106,106,107,107,107,108,108,108, & - 109,109,109,110,110,110,111,111,111,112,112,112, & - 113,113,113,114,114,114,115,115,115,116,116,116, & - 117,117,117,118,118,118,119,119,119,120,120,120, & - 120,120,121,121,121,121,121,121,122,122,122,122, & - 122,122,123,123,123,123,123,123,124,124,124,124, & - 124,125,125,125,125,125,126,126,126,126,126,126, & - 127,127,127,127,127,128,128,128,128,128,129,129, & - 129,129,129,129,129,130,130,130,130,130,130,131, & - 131,131,131,131,131,131,131,131,131,132,132,132, & - 132,132,132,133,133,133,133,133,133,133,134,134, & - 134,134,134,134,134,135,135,135,135,135,135,135, & - 136,136,136,136,136,136,136,137,137,137,137,137, & - 137,137,138,138,138,138,138,138,138,138,139,139, & - 139,139,139,139,140,140,141,141,141,141,141,141, & - 141,142,142,142,142,142,142,143,143,143,143,143, & - 143,143,143,144,144,144,145,145,145,145,146,146, & - 146,147,147,147,148,148,148,149,149,149,150,150, & - 150,150,151,151,151,152,152,152,152,152,152,153, & - 153,153,153,153,153,153,154,154,154,154,155,155, & - 155,156,156,156,157,157,157,157,157,157,157,157, & - 157,157,158,158,158,158,158,158,158,159,159,159, & - 160,160,160,160,160,160,161,161,161,161,161,161 /) - INTEGER, PARAMETER, DIMENSION(127) :: ICOL_STOICM_2 = (/ & - 162,162,162,162,162,162,163,163,163,164,164,164, & - 165,165,165,165,165,165,165,165,165,165,165,165, & - 165,166,166,166,166,166,166,166,166,167,167,167, & - 168,168,168,168,168,168,169,169,169,169,169,169, & - 169,170,170,170,170,170,170,170,171,171,171,171, & - 171,171,171,172,172,172,173,173,173,173,174,174, & - 175,175,175,175,176,176,176,177,177,177,177,177, & - 177,177,177,178,178,178,178,178,178,178,178,178, & - 179,179,179,180,180,180,180,180,180,181,181,181, & - 182,182,182,183,183,183,183,184,184,184,185,185, & - 185,185,186,186,186,186,186 /) - INTEGER, PARAMETER, DIMENSION(847) :: ICOL_STOICM = (/& - ICOL_STOICM_0, ICOL_STOICM_1, ICOL_STOICM_2 /) - - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_0 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.870000e+00_dp, -1.000000e+00_dp, 1.300000e-01_dp, 1.550000e+00_dp, & - -1.000000e+00_dp, 4.500000e-01_dp, 8.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.000000e-02_dp, & - 9.800000e-01_dp, 8.000000e-01_dp, 2.000000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -2.000000e+00_dp, 1.000000e+00_dp, -2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, -2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_1 = (/ & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 2.500000e-02_dp, 9.000000e-03_dp, 1.000000e+00_dp, & - 7.500000e-02_dp, 1.700000e-01_dp, -1.000000e+00_dp, 8.300000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.500000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 7.500000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 2.500000e-01_dp, & - 7.500000e-01_dp, 2.500000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.700000e-01_dp, & - 8.300000e-01_dp, 1.700000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 9.000000e-01_dp, & - 9.000000e-01_dp, 1.000000e-01_dp, -1.900000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 5.000000e-01_dp, 5.000000e-01_dp, -5.000000e-01_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, -5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 2.500000e-01_dp, 9.000000e-02_dp, 7.500000e-01_dp, 9.640000e-01_dp, & - 9.640000e-01_dp, -1.000000e+00_dp, 3.600000e-02_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 6.900000e-01_dp, 3.800000e-01_dp, 9.200000e-01_dp, 9.200000e-01_dp, -1.000000e+00_dp, & - 8.000000e-02_dp, -1.000000e+00_dp, 1.060000e+00_dp, 4.000000e-02_dp, 3.500000e-01_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_2 = (/ & - 7.600000e-01_dp, 7.600000e-01_dp, -1.000000e+00_dp, 2.400000e-01_dp, -1.000000e+00_dp, & - 1.600000e+00_dp, 2.000000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e-01_dp, 2.800000e-01_dp, 1.450000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 9.500000e-01_dp, 8.900000e-01_dp, 2.000000e+00_dp, & - 1.100000e-01_dp, -1.000000e+00_dp, 5.000000e-02_dp, 9.200000e-01_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.600000e-01_dp, 7.000000e-01_dp, -1.000000e+00_dp, 1.700000e-01_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 8.060000e-01_dp, & - 4.500000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -5.000000e-01_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 4.000000e-01_dp, -1.000000e+00_dp, & - 4.200000e-01_dp, 1.000000e+00_dp, 1.200000e-01_dp, -1.000000e+00_dp, 2.000000e-01_dp, & - 2.000000e-01_dp, 6.000000e-02_dp, 3.300000e-01_dp, -1.000000e+00_dp, 5.300000e-01_dp, & - 5.000000e-01_dp, 2.200000e-01_dp, 2.300000e-01_dp, 1.000000e-01_dp, -1.000000e+00_dp, & - 6.000000e-02_dp, 2.900000e-01_dp, 9.000000e-02_dp, 2.300000e-01_dp, 1.000000e-01_dp, & - 1.800000e-01_dp, -1.000000e+00_dp, 7.200000e-01_dp, 3.100000e-01_dp, 2.600000e-01_dp, & - 1.400000e-01_dp, -1.000000e+00_dp, 2.800000e-01_dp, 9.000000e-02_dp, 1.400000e-01_dp, & - -1.000000e+00_dp, 6.500000e-01_dp, 1.000000e-01_dp, 5.800000e-01_dp, 8.000000e-02_dp, & - 1.000000e-01_dp, 2.500000e-01_dp, 2.500000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_3 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.500000e+00_dp, -2.000000e+00_dp, 1.000000e+00_dp, 7.500000e-01_dp, & - 7.500000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 2.600000e-01_dp, & - 8.400000e-01_dp, 7.700000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 7.500000e-01_dp, 7.700000e-01_dp, 4.100000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.390000e+00_dp, 8.000000e-01_dp, 4.600000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.550000e+00_dp, 3.500000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.250000e+00_dp, 7.500000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 5.500000e-01_dp, 8.900000e-01_dp, & - 7.250000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 7.500000e-01_dp, 7.500000e-01_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 5.000000e-01_dp, 1.000000e+00_dp, & - -5.000000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, 1.600000e-01_dp, 7.000000e-01_dp, & - -1.000000e+00_dp, 1.700000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 8.060000e-01_dp, 4.500000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, 5.000000e-01_dp, 4.750000e-01_dp, 4.450000e-01_dp, 1.000000e+00_dp, & - 5.500000e-02_dp, 5.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 3.000000e-02_dp, & - 4.600000e-01_dp, 5.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp, & - -1.000000e+00_dp, 5.000000e-01_dp, 5.000000e-01_dp, 2.600000e-01_dp, 7.700000e-01_dp, & - 5.000000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, & - -1.000000e+00_dp, 7.500000e-01_dp, 4.100000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, 1.390000e+00_dp, 4.600000e-01_dp, & - 5.000000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, & - 8.000000e-01_dp, 6.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, & - 5.000000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, 1.000000e+00_dp, 5.000000e-01_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_4 = (/ & - -1.000000e+00_dp, 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, 5.500000e-01_dp, & - 1.400000e-01_dp, 7.250000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, & - 5.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, 2.000000e+00_dp, -2.000000e+00_dp, 1.600000e-01_dp, 7.000000e-01_dp, & - -1.000000e+00_dp, 1.700000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 8.060000e-01_dp, 4.500000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 9.500000e-01_dp, 8.900000e-01_dp, 2.000000e+00_dp, 1.100000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -9.500000e-01_dp, 9.200000e-01_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.750000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp, & - 1.000000e+00_dp, 5.000000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 5.000000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, -2.000000e+00_dp, 2.000000e+00_dp, & - 2.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e-02_dp, -1.000000e+00_dp, & - 1.400000e-01_dp, 5.300000e-01_dp, 4.200000e-01_dp, 6.500000e-01_dp, 2.000000e-01_dp, & - 1.000000e-01_dp, 8.500000e-01_dp, -1.000000e+00_dp, 8.000000e-01_dp, -1.000000e+00_dp, & - 8.000000e-01_dp, 8.000000e-01_dp, 8.000000e-01_dp, -1.000000e+00_dp, 2.000000e-01_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e-02_dp, 7.000000e-02_dp, 2.000000e-02_dp, & - 1.400000e-01_dp, -1.000000e+00_dp, 4.600000e-01_dp, 7.900000e-01_dp, 4.000000e-02_dp, & - 4.200000e-01_dp, 1.600000e-01_dp, 1.000000e-01_dp, 8.500000e-01_dp, -1.000000e+00_dp, & - 4.000000e-01_dp, 2.500000e-01_dp, -1.000000e+00_dp, 2.500000e-01_dp, 6.500000e-01_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(97) :: STOICM_5 = (/ & - 6.500000e-01_dp, -1.000000e+00_dp, 3.500000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 6.000000e-01_dp, 1.400000e+00_dp, -1.000000e+00_dp, 4.000000e-01_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, 6.000000e-01_dp, 4.000000e-01_dp, -1.000000e+00_dp, & - 4.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 6.000000e-01_dp, & - 4.000000e-01_dp, -1.000000e+00_dp, 4.000000e-01_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 4.600000e-02_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -2.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 4.500000e-01_dp, & - 2.200000e-01_dp, -1.000000e+00_dp, 9.000000e-01_dp, 1.000000e-01_dp, 3.200000e-01_dp, & - 1.900000e-01_dp, -1.000000e+00_dp, 2.500000e-01_dp, 2.500000e-01_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, 7.500000e-01_dp, 2.500000e-01_dp, 7.500000e-01_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 5.000000e-01_dp, -2.000000e+00_dp, 1.000000e+00_dp, 5.000000e-01_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(847) :: STOICM = (/& - STOICM_0, STOICM_1, STOICM_2, STOICM_3, STOICM_4, & - STOICM_5 /) - - -END MODULE RADMKA_StoichiomSP - diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_StoichiomSP.o b/boxmox/compiled_mechs/RADMKA/RADMKA_StoichiomSP.o deleted file mode 100644 index 2b1b58507a5bcad6f508cd3456aef3cd89d0de5c..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/RADMKA_StoichiomSP.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_Util.f90 b/boxmox/compiled_mechs/RADMKA/RADMKA_Util.f90 deleted file mode 100644 index 0640e1321742998e3c667823c862fc755c8bc63b..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADMKA/RADMKA_Util.f90 +++ /dev/null @@ -1,1540 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Auxiliary Routines File -! -! Generated by KPP-2.2.3 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 : RADMKA_Util.f90 -! Time : Thu Oct 8 08:22:34 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_RADMKA_16038_BOXMOX -! Equation file : RADMKA.kpp -! Output root filename : RADMKA -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE RADMKA_Util - - USE RADMKA_Parameters - USE RADMKA_Global - USE RADMKA_Monitor - IMPLICIT NONE - -CONTAINS - - - -! User INLINED Utility Functions - - -! **************************************************************************** -! **************************************************************************** -! BOXMOX utilities -! **************************************************************************** -! **************************************************************************** - - -! **************************************************************************** -! toUPPER - convert ASCII characters to all upper case -! from http://stackoverflow.com/questions/10759375/ -! how-can-i-write-a-to-upper-or-to-lower-function-in-f90 -! **************************************************************************** - FUNCTION toUPPER (str) RESULT (string) - - CHARACTER(*), INTENT(In) :: str - CHARACTER(LEN(str)) :: string - - INTEGER :: ic, i - - CHARACTER(26), PARAMETER :: cap = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' - CHARACTER(26), PARAMETER :: low = 'abcdefghijklmnopqrstuvwxyz' - - string = str - DO i = 1, LEN_TRIM(str) - ic = INDEX(low, str(i:i)) - IF (ic > 0) string(i:i) = cap(ic:ic) - END DO - - END FUNCTION toUPPER -! **************************************************************************** - - -! **************************************************************************** -! hash - a string hashing function -! from flibs, http://flibs.sourceforge.net -! **************************************************************************** - INTEGER FUNCTION hash( key ) - - CHARACTER(len=*), INTENT(in) :: key - - INTEGER :: i - - INTEGER, PARAMETER :: hash_size = 49931 - INTEGER, PARAMETER :: multiplier = 312 - - hash = 0 - - DO i = 1,LEN(key) - hash = MODULO( multiplier * hash + ICHAR(key(i:i)), hash_size) - ENDDO - - hash = 1 + MODULO( hash-1, hash_size ) - END FUNCTION hash -! **************************************************************************** - - -! **************************************************************************** -! strEqual - comparison function matching two strings -! **************************************************************************** - LOGICAL FUNCTION strEqual(a, b) - - CHARACTER(LEN=*), INTENT(IN) :: a, b - - LOGICAL, PARAMETER :: ignoreCase = .TRUE. - - CHARACTER(LEN=100) :: nice_a, nice_b - INTEGER :: max_len - - nice_a = ADJUSTL(a) - nice_b = ADJUSTL(b) - - IF (ignoreCase) THEN - nice_a = toUPPER(nice_a) - nice_b = toUPPER(nice_b) - END IF - - max_len = MAX( LEN_TRIM(nice_a), LEN_TRIM(nice_b) ) - - strEqual = nice_a(1:max_len) .EQ. nice_b(1:max_len) - - END FUNCTION strEqual -! **************************************************************************** - - -! **************************************************************************** -! writespecstring - Utility function that plots a (potentially) -! large number of species -! **************************************************************************** - SUBROUTINE writespecstring(nspecies, txt, species, offset) - - INTEGER :: nspecies, offset - CHARACTER(LEN=*) :: txt - CHARACTER(LEN=15) :: species(nspecies), fmt - CHARACTER(LEN=2000) :: specstring - - INTEGER, PARAMETER :: cperline=60 - - INTEGER :: i, l - - fmt = "" - WRITE(fmt, "(A1,I3,A4)") "(", offset, "X,A)" - - i = 1; l = 1 - specstring = "" - - DO WHILE (i <= nspecies) - - specstring = TRIM(ADJUSTL(specstring))//TRIM(ADJUSTL(species(i))) - IF (i < nspecies) specstring = TRIM(ADJUSTL(specstring))//", " - - i = i + 1 - - IF (LEN_TRIM(specstring) > cperline) THEN - IF (l == 1) specstring = txt//specstring - l = l + 1 - WRITE(*,fmt) TRIM(specstring) - specstring = "" - ENDIF - ENDDO - - IF (LEN_TRIM(specstring) > 0) THEN - IF (l == 1) specstring = txt//specstring - WRITE(*,fmt) TRIM(specstring) - ENDIF - - END SUBROUTINE writespecstring -! **************************************************************************** - - -! **************************************************************************** -! calcCFACTOR - Calculates CFACTOR variable for unit conversion between -! input/output files and values used in calculations / rates -! **************************************************************************** - SUBROUTINE calcCFACTOR ( ) - - ! from ppmv to mlc/cm3: - ! 1e-6 ppmv -> vmr - ! 1e-3 kg/m3 -> g/cm3 - ! 1/28.9645 g/cm3 -> mole/cm3 - ! 6.022e23 -> molec/cm3 - ! then multiply with air density rho - ! 1.0E-6 * 1E-03 * (1.0/28.97) * 6.022e23 * rho - ! CFACTOR = 2.598378e+13; (with rho == 1.25) - - CFACTOR = 1.0E-6 * 1E-03 * (1.0/28.9645) * 6.022e23 * & - pres / (287.058 * temp) - - END SUBROUTINE calcCFACTOR -! **************************************************************************** - - -! **************************************************************************** -! readConfig - Sets variables using values read in from "BOXMOX.nml" -! **************************************************************************** - SUBROUTINE readConfig ( ) - - INTEGER, PARAMETER :: config_pid = 22 - CHARACTER(LEN=*), PARAMETER :: config_name = "BOXMOX.nml" - - NAMELIST /BOXMOX/ TSTART, TEND, DT, lverbose, iturb, lfix_nox - - LOGICAL :: lnml_exists - - ! *** default values section *** - - TSTART = 0.0D0 ! model start time, seconds since 0 LT - TEND = TSTART + 3600.0D0 ! model end time, seconds since 0 LT - DT = 10.D0 ! model time step, seconds - - lverbose = .FALSE. - iturb = TURB_OPT_NONE - - lfix_nox = .FALSE. - - ! *** namelist read-in section *** - - INQUIRE(FILE=config_name, EXIST=lnml_exists) - - IF (lnml_exists) THEN - - WRITE(*,*) "BOXMOX configuration file ", TRIM(config_name)," found." - - OPEN (config_pid, FILE=config_name) - READ (config_pid, nml=BOXMOX) - CLOSE(config_pid) - - ELSE - WRITE(*,*) "No BOXMOX configuration file (", & - TRIM(config_name),") exists." - ENDIF - - ! *** configuration printout *** - - WRITE(*,*) " " - WRITE(*,"(A20,2X,F12.3)") "TSTART", TSTART - WRITE(*,"(A20,2X,F12.3)") "TEND", TEND - WRITE(*,"(A20,2X,F12.3)") "DT", DT - WRITE(*,*) "" - WRITE(*,"(A20,2X,L10)") "lverbose", lverbose - WRITE(*,*) "" - WRITE(*,"(A20,11X,I1)") "iturb", iturb - WRITE(*,*) "" - WRITE(*,"(A20,2X,L10)") "lfix_nox", lfix_nox - - WRITE(*,*) " " - - END SUBROUTINE readConfig -! **************************************************************************** - - -! **************************************************************************** -! checkConfig - check configuration variables -! **************************************************************************** - SUBROUTINE checkConfig ( ) - - INTEGER :: status - - status = 0 - - IF (TSTART < 0.0) THEN - WRITE(*,*) "start time TSTART cannot be < 0.0" - status = 1 - ENDIF - IF (TEND < 0.0) THEN - WRITE(*,*) "end time TEND cannot be < 0.0" - status = 2 - ENDIF - IF (TSTART >= TEND) THEN - WRITE(*,*) "start time TSTART has to be < end time TEND" - status = 3 - ENDIF - IF (DT <= 0.0) THEN - WRITE(*,*) "time step DT has to be > 0.0" - status = 4 - ENDIF - - IF (status .NE. 0) THEN - IF (.NOT. llibrary) THEN - STOP - ENDIF - ENDIF - - END SUBROUTINE checkConfig -! **************************************************************************** - - -! **************************************************************************** -! writeVersion - Write "VERSION" file to run directory -! **************************************************************************** - SUBROUTINE writeVersion ( ) - - INTEGER, PARAMETER :: version_pid = 23 - CHARACTER(LEN=*), PARAMETER :: version_name = "VERSION" - - ! *** write BOXMOX version to output directory *** - - OPEN(version_pid, file=version_name) - WRITE(version_pid, "(A)") "__BOXMOX_VERSION__" - CLOSE(version_pid) - - END SUBROUTINE writeVersion -! **************************************************************************** - - -! **************************************************************************** -! readVals - main input routine for the BOXMOX extensions. -! reads values from input files with different time -! formats, and interpolates to get the values -! appropriate for the current time step. -! **************************************************************************** - SUBROUTINE readVals(fname, nvar, species, values, stat, & - nanc, ancspecies, ancvalues, lquiet) - - CHARACTER(LEN=*), INTENT(IN) :: fname - INTEGER, INTENT(OUT) :: nvar - CHARACTER(LEN=15), INTENT(OUT) :: species(max_species_boxmox) - REAL(KIND=dp), INTENT(OUT) :: values(max_species_boxmox) - INTEGER, INTENT(OUT) :: stat - INTEGER, INTENT(OUT), OPTIONAL :: nanc - CHARACTER(LEN=15), INTENT(OUT),OPTIONAL :: ancspecies(max_species_boxmox) - REAL(KIND=dp), INTENT(OUT), OPTIONAL :: ancvalues(max_species_boxmox) - LOGICAL, INTENT(IN), OPTIONAL :: lquiet - - INTEGER, PARAMETER :: input_pid = 21 - REAL(KIND=dp) :: time_cur, weight_t1, & - values_t0(max_species_boxmox), & - values_t1(max_species_boxmox), & - values_cur(max_species_boxmox) - CHARACTER(LEN=15) :: names(max_species_boxmox) - INTEGER :: iostat, time_format, ntoread, ntime, nanct, pid, i - LOGICAL :: lfile_exists, ltalkative - - names(:) = "" - values_t0(:) = 0.0 - values_t1(:) = 0.0 - - stat = 0 ! everything is allright - - ltalkative = ( TIME .EQ. TSTART ) .OR. lverbose - IF (PRESENT(lquiet)) THEN - IF (lquiet) THEN - ltalkative = .FALSE. - ENDIF - ENDIF - - ! check whether file exists - INQUIRE(FILE=fname, EXIST=lfile_exists) - IF (.NOT. lfile_exists) THEN - stat = 1 - RETURN - ELSE - IF (ltalkative) THEN - WRITE(*,*) "" - WRITE(*,*) " * ", fname - ENDIF - END IF - - OPEN(input_pid, file=fname) - - ! line 1: number of variables - READ(input_pid, *) nvar - - ! if no variable should be read - bail - IF (nvar == 0) THEN - IF (ltalkative) WRITE(*,*) fname, " declared 0 variables to be read" - stat = 2 - CLOSE(input_pid) - RETURN - END IF - - ! line 2: number of ancillary variables - READ(input_pid, *) nanct - - IF (nanct .LT. 0) THEN - WRITE(*,"(A)") "Number of ancillary variables must be >= 0" - CLOSE(input_pid) - STOP - ENDIF - - IF (nanct .GT. 1) THEN - WRITE(*,"(A)") "Number of ancillary variables must be < 2" - CLOSE(input_pid) - STOP - ENDIF - - ! line 3: time format - READ(input_pid, *) time_format - - IF (time_format .LT. 0 .OR. time_format .GT. 2) THEN - WRITE(*,"(3A)") "Time format has to be 0 (constant), ", & - "1 (s since TSTART) or ", & - "2 (hour of day)" - CLOSE(input_pid) - STOP - END IF - - ntime = 0 - IF (time_format .GT. 0) ntime = 1 - - ntoread = ntime + nanct + nvar - - ! if more variables than max_species_boxmox should be read - bail - IF (ntoread > max_species_boxmox) THEN - IF (ltalkative) THEN - WRITE(*,*) fname, " declared more variables to be read" - WRITE(*,*) "than allocated. Increase max_species_boxmox," - WRITE(*,*) "recompile, and run again." - ENDIF - stat = 3 - CLOSE(input_pid) - RETURN - END IF - - ! line 4: header line - READ(input_pid, *) names(1:ntoread) - - ! line 4ff: values - READ(input_pid, *) values_t0(1:ntoread) - - ! if its not constant in time values - weight_t1 = 0 - IF (.NOT. time_format .EQ. 0) THEN - READ(input_pid, *, IOSTAT=iostat) values_t1(1:ntoread) - - ! TIME is the KPP provided current model time - time_cur = TIME - IF (time_format .EQ. 2) THEN - time_cur = TIME/3600.0_dp - (INT(TIME/3600.0_dp)/24)*24 - END IF - - ! ASSUMPTION: time is the first value read - DO WHILE(values_t1(1) .LT. time_cur .AND. iostat .EQ. 0) - values_t0 = values_t1 - - READ(input_pid, *, IOSTAT=iostat) values_t1(1:ntoread) - END DO - - ! take the last value in the file in case its time values don't cover - ! the full simulation period - IF (iostat .NE. 0) THEN - weight_t1 = 1.0 - ELSE - weight_t1 = (time_cur - values_t0(1)) / (values_t1(1) - values_t0(1)) - ENDIF - - ENDIF - - CLOSE(input_pid) - - values_cur = weight_t1 * values_t1 + & - (1.0 - weight_t1) * values_t0 - - species(1:nvar) = names(ntime+nanct+1:ntime+nanct+nvar) - values(1:nvar) = values_cur(ntime+nanct+1:ntime+nanct+nvar) - - IF (PRESENT(nanc)) nanc = nanct - - IF (nanct .GT. 0) THEN - IF (PRESENT(ancvalues)) THEN - ancvalues(1:nanct) = values_cur(ntime+1:ntime+nanct) - ENDIF - IF (PRESENT(ancspecies)) THEN - ancspecies(1:nanct) = names(ntime+1:ntime+nanct) - ENDIF - ENDIF - - END SUBROUTINE readVals -! **************************************************************************** - - -! **************************************************************************** -! readInput - Reads values from .csv, applies function -! -! "t" is for "target" (i.e. the vector to apply "action" over) -! "r" is for "read" from file -! "u" is for "useable" (i.e., exists in the "target" vector) -! "m" is for "missing" (i.e., asked for, but not found in file) -! -! **************************************************************************** - SUBROUTINE readInput (filename, nt, tnames, tvalues, & - action, lzero, quiet) - - CHARACTER(LEN=*), INTENT(IN) :: filename - INTEGER, INTENT(IN) :: nt - REAL(KIND=dp) :: tvalues(nt) - CHARACTER(LEN=15), INTENT(IN) :: tnames(nt) - REAL(KIND=dp), OPTIONAL :: action ! function to be called - LOGICAL, INTENT(IN), OPTIONAL :: lzero ! call action with 0.0 - ! for 'missing' species - LOGICAL, INTENT(IN), OPTIONAL :: quiet - - INTEGER :: nr, nu, nm, i, k, m, & - iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - unames(max_species_boxmox), & - mnames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox) - LOGICAL :: is_used, first, & - talkative - - CALL readVals(filename, nr, rnames, rvalues, iostat) - - IF (iostat .NE. 0) RETURN - - talkative = .TRUE. - IF (PRESENT(quiet)) talkative = .NOT. quiet - - unames(:) = "none" - nu = 0 - - first = lverbose - - DO i = 1, nr - DO k = 1, nt - IF ( strEqual(rnames(i), tnames(k)) ) THEN - - IF (PRESENT(action)) THEN - tvalues(k) = action( tvalues(k), k, rvalues(i), first) - ELSE - tvalues(k) = rvalues(i) - IF ( (lverbose .OR. first) .AND. talkative ) THEN - WRITE(*,"(6X,A15,1X,E12.6)") tnames(k), tvalues(k)/CFACTOR - ENDIF - ENDIF - - first = .FALSE. - - nu = nu + 1 - unames(nu) = TRIM(ADJUSTL(rnames(i))) - ENDIF - ENDDO - ENDDO - - IF (PRESENT(lzero)) THEN - IF (lzero) THEN - DO k = 1, nt - is_used = .FALSE. - DO i = 1, nu - IF ( strEqual(unames(i), tnames(k)) ) is_used = .TRUE. - ENDDO - IF (.NOT. is_used) THEN - tvalues(k) = action( tvalues(k), k, 0.0, first) - first = .FALSE. - ENDIF - ENDDO - ENDIF - ENDIF - - nm = nr - nu - mnames(:) = "" - - IF (nm > 0) THEN - m = 1 - DO i = 1, nr - is_used = .FALSE. - DO k = 1, nu - IF ( strEqual(rnames(i), unames(k)) ) is_used = .TRUE. - ENDDO - - IF (.NOT. is_used) THEN - mnames(m) = TRIM(ADJUSTL(rnames(i))) - m = m + 1 - ENDIF - ENDDO - ENDIF - - IF ( ((TIME .EQ. TSTART) .OR. lverbose) .AND. talkative) THEN - IF (nu > 0) CALL writespecstring(nu, "useable:", unames, 6) - IF (nm > 0) CALL writespecstring(nm, "unknown: ", mnames, 6) - ENDIF - - END SUBROUTINE readInput -! **************************************************************************** - - -! **************************************************************************** -! InitialCondition - Sets initial values -! **************************************************************************** - REAL(KIND=dp) FUNCTION InitialCondition(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - InitialCondition = y * CFACTOR - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,A12,1X)") "species ", "IC" - WRITE(*,"(6X,A15,1X,E12.6,1X)") SPC_NAMES(k), InitialCondition/CFACTOR - ENDIF - - END FUNCTION InitialCondition -! **************************************************************************** - - -! **************************************************************************** -! Deposition - Applies deposition velocities -! **************************************************************************** - REAL(KIND=dp) FUNCTION Deposition(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - REAL(KIND=dp) :: dCdt - - Deposition = x - - ! we don't remove fixed variables - IF (k .LT. NFIXST) THEN - ! we assume deposition velocities in comparable units - ! (i.e. cm s-1) - ! dxdydz(3) == DZ - dCdt = - y * x / (dxdydz(3) * 100.0) - Deposition = MAX( 0.0, x + DT * dCdt ) - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "v_dep", "after" - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, y, & - Deposition/CFACTOR - ENDIF - - ENDIF - - END FUNCTION Deposition -! **************************************************************************** - - -! **************************************************************************** -! Emission - Adds emissions -! **************************************************************************** - REAL(KIND=dp) FUNCTION Emission(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - REAL(KIND=dp) :: cur - - ! we assume emissions to be a flux in units comparable to the - ! concentration values used in KPP - ! e.g. molecules / m2 / s vs molecules / m3, or - ! moles / cm2 / s vs moles / cm3, ... - ! the time dimensions unit has to be seconds! - - ! dxdydz(3) is PBL height in m - cur = y * DT / (dxdydz(3) * 100.0) - - Emission = x + cur - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "tendency", "after" - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, & - cur/DT/CFACTOR, Emission/CFACTOR - ENDIF - - END FUNCTION Emission -! **************************************************************************** - - -! **************************************************************************** -! Mix - calculate concentration after turbulent mixing -! **************************************************************************** - REAL(KIND=dp) FUNCTION Mix(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - REAL(KIND=dp) :: frac_bg - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - Mix = x - - frac_bg = Kturb * DT - - IF (lfirst .AND. lverbose) THEN - WRITE(*,"(6X,A,1X,F6.3)") "fractional amount of background air", & - frac_bg - WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "background", "after" - ENDIF - - ! we don't mix fixed variables - IF (k .LT. NFIXST) THEN - - ! seems like we found something - Mix = frac_bg * (y * CFACTOR) + & - (1.0 - frac_bg) * x - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, & - y, Mix/CFACTOR - ENDIF - - ENDIF - - END FUNCTION Mix -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturb - calculate Kturb for mixing -! **************************************************************************** - SUBROUTINE UpdateKturb() - - Kturb = 0.0 - SELECT CASE (iturb) - CASE (TURB_OPT_NONE) - Kturb = 0.0 - CASE (TURB_OPT_SPECIFIED) - CALL UpdateKturbSpecified() - CASE (TURB_OPT_VOLUME) - CALL UpdateKturbVolume() - CASE (TURB_OPT_TRACER) - CALL UpdateKturbTracer() - CASE DEFAULT - WRITE(*,"(A,1X,I1)") "Unknown mixing option", iturb - END SELECT - - END SUBROUTINE UpdateKturb -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbSpecified - calc. Kturb for mixing using specified Kturb -! **************************************************************************** - SUBROUTINE UpdateKturbSpecified() - - INTEGER :: nr, na, i, iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - anames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox), & - avalues(max_species_boxmox) - LOGICAL :: lfound - - Kturb = 0.0 - - CALL readVals('Background.csv', & - nr, rnames, rvalues, iostat, & - na, anames, avalues, lquiet=.TRUE.) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - lfound = .FALSE. - DO i = 1, na - IF ( strEqual(anames(i), 'Kturb') ) THEN - Kturb = avalues(i) - lfound = .TRUE. - ENDIF - ENDDO - - IF (.NOT. lfound) THEN - WRITE(*,*) "Kturb variable not found in Background.csv" - STOP - ENDIF - - END SUBROUTINE UpdateKturbSpecified -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbVolume - calc. Kturb for mixing using box volume changes -! **************************************************************************** - SUBROUTINE UpdateKturbVolume() - - REAL(KIND=dp) :: vol, vol_old - - vol = dxdydz(1) * dxdydz(2) * dxdydz(3) - vol_old = dxdydz_old(1) * dxdydz_old(2) * dxdydz_old(3) - - ! maybe we have a mixing case where the box volume changes? - ! increasing volume - dilute against background - ! decreasing volume - ignore (?) for now - - ! in the PBL case, analogue: - ! maybe we changed the PBLH? update concentration vector - ! rising BL - mixing against zero air or bg values - ! shrinking BL - creates residual layer, decouples - - IF (vol > vol_old) THEN - Kturb = ( (vol - vol_old) / vol_old ) / DT - ENDIF - - END SUBROUTINE UpdateKturbVolume -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbTracer - calc. Kturb for mixing using tracer (t, tname) conc. -! changes -! **************************************************************************** - SUBROUTINE UpdateKturbTracer() - - INTEGER :: nr, na, i, iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - anames(max_species_boxmox), & - tracer_name - REAL(KIND=dp) :: rvalues(max_species_boxmox), & - avalues(max_species_boxmox), & - prev, obs, bg, frac_bg - LOGICAL :: lfound_prev, lfound_bg - - Kturb = 0.0 - - CALL readVals('Background.csv', & - nr, rnames, rvalues, iostat, & - na, anames, avalues, lquiet=.TRUE.) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - ! ASSUMPTION: first ancillary species is mixing tracer - tracer_name = anames(1) - obs = avalues(1) * CFACTOR - - prev = 0.0 - lfound_prev = .FALSE. - DO i = 1, NSPEC - IF ( strEqual(SPC_NAMES(i), tracer_name) ) THEN - prev = C(i) - lfound_prev = .TRUE. - ENDIF - ENDDO - - bg = 0.0 - lfound_bg = .FALSE. - DO i = 1, nr - IF ( strEqual(rnames(i), tracer_name) ) THEN - bg = rvalues(i) * CFACTOR - lfound_bg = .TRUE. - ENDIF - ENDDO - - IF (.NOT. lfound_bg) THEN - WRITE(*,*) "Tracer ", TRIM(tracer_name), & - " not found in Background.csv" - STOP - ENDIF - IF (.NOT. lfound_prev) THEN - WRITE(*,*) "Tracer ", TRIM(tracer_name), & - " not found in mechanism" - STOP - ENDIF - - IF ( ABS( bg - prev ) < 1e-10 ) THEN - Kturb = 0.0 - ELSE - frac_bg = ( obs - prev ) / ( bg - prev ) - frac_bg = MIN( frac_bg, 1.0 ) - frac_bg = MAX( frac_bg, 0.0 ) - - Kturb = frac_bg / DT - ENDIF - - END SUBROUTINE UpdateKturbTracer -! **************************************************************************** - - -! **************************************************************************** -! UpdatePhotolysisRates - well, it does what it seems to do -! **************************************************************************** - SUBROUTINE UpdatePhotolysisRates() - - INTEGER :: i, iostat, nr, jidx - CHARACTER(LEN=15) :: rnames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox) - - INTEGER :: j, jidx2 - - rnames(:) = " " - rvalues(:) = 0.0 - - jvalues(:) = 0.0 - - CALL readVals('PhotolysisRates.csv', nr, rnames, rvalues, iostat) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - DO i = 1, nr - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,E12.6)") rnames(i), rvalues(i) - ENDIF - jidx = hash(rnames(i)) - jvalues(jidx) = rvalues(i) - ENDDO - - ! first time step only: make sure hashing actually made unique hashes - IF (TIME .EQ. TSTART) THEN - DO i = 1, nr - jidx = hash(rnames(i)) - DO j = 1, nr - jidx2 = hash(rnames(j)) - IF ((jidx .EQ. jidx2) .AND. .NOT. (i .EQ. j)) THEN - WRITE(*,*) "Photolysis rate label hash collision:" - WRITE(*,*) rnames(i), "(idx ",i,", hash ", jidx, ") == ", & - rnames(j), "(idx ",j,", hash ", jidx2,")" - IF ( strEqual( rnames(i), rnames(j) ) ) THEN - WRITE(*,*) "Remove duplicate label in PhotolysisRates.csv!" - ELSE - WRITE(*,*) "Please contact the BOXMOX developers!" - ENDIF - STOP - ENDIF - ENDDO - ENDDO - - CALL writespecstring(nr, "known:", rnames, 6) - - ENDIF - - END SUBROUTINE UpdatePhotolysisRates -! **************************************************************************** - - -! **************************************************************************** -! UpdateAerosol - update aerosol properties -! **************************************************************************** - SUBROUTINE UpdateAerosol() - - INTEGER, PARAMETER :: naer = 2, sad_idx = 1, r_idx = 2 - REAL(KIND=dp) :: aer(naer), errval = -987654321.0 - CHARACTER(LEN=15) :: aernames(naer) - INTEGER :: iostat, i - - aernames(sad_idx) = "sad"; aer(sad_idx) = errval - aernames(r_idx) = "r"; aer(r_idx) = errval - - CALL readInput('Aerosol.csv', naer, aernames, aer, quiet=lverbose) - - IF (aer(sad_idx) .NE. errval) AER_SAD = aer(sad_idx) - IF (aer(r_idx) .NE. errval) AER_R = aer(r_idx) - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,F8.2)") "SAD ", AER_SAD - WRITE(*,"(6X,A15,1X,F8.2)") "R ", AER_R - ENDIF - - END SUBROUTINE UpdateAerosol -! **************************************************************************** - - -! **************************************************************************** -! UpdateEnvironment - Read environmental values -! **************************************************************************** - SUBROUTINE UpdateEnvironment() - - INTEGER, PARAMETER :: nenv = 4, temp_idx = 1, pres_idx = 2, & - pblh_idx = 3, vol_idx = 4 - REAL(KIND=dp) :: env(nenv), errval = -987654321.0 - CHARACTER(LEN=15) :: envnames(nenv) - INTEGER :: iostat, i - - REAL(KIND=dp) :: temp_old, pres_old, pblh, vol - - envnames(temp_idx) = "TEMP"; env(temp_idx) = errval - envnames(pres_idx) = "PRES"; env(pres_idx) = errval - envnames(pblh_idx) = "PBLH"; env(pblh_idx) = errval - envnames(vol_idx) = "VOL"; env(vol_idx) = errval - - CALL readInput('Environment.csv', nenv, envnames, env, quiet=lverbose) - - temp_old = temp - pres_old = pres - - dxdydz_old(:) = dxdydz(:) - - ! those are just pseudo variables for dxdydz properties - pblh = dxdydz(3) - vol = dxdydz(1) * dxdydz(2) * dxdydz(3) - - IF (env(pblh_idx) .NE. errval .AND. env(vol_idx) .NE. errval) & - THEN - WRITE(*,*) "Cannot work with changing PBLH and VOL at the same time." - STOP - ENDIF - - IF (env(temp_idx) .NE. errval) temp = env(temp_idx) - IF (env(pres_idx) .NE. errval) pres = env(pres_idx) - IF (env(vol_idx) .NE. errval) vol = env(vol_idx) - - IF (env(pblh_idx) .NE. errval) THEN - pblh = env(pblh_idx) - dxdydz(3) = pblh - ENDIF - - ! Adjust species vector - DO i = 1, NSPEC - C(i) = C(i) * (temp_old * pres) / (temp * pres_old) - ENDDO - - ! recalculate unit conversion - CALL calcCFACTOR() - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,F8.2)") "TEMP ", temp - WRITE(*,"(6X,A13,1X,F10.2)") "PRES ", pres - WRITE(*,"(6X,A15,1X,F8.2)") "PBLH ", dxdydz(3) - WRITE(*,"(6X,A15,1X,F8.2)") "VOL ", & - dxdydz(1)*dxdydz(2)*dxdydz(3) - WRITE(*,*) "" - WRITE(*,"(6X,A7,1X,E16.8)") "CFACTOR", CFACTOR - ENDIF - - END SUBROUTINE UpdateEnvironment -! **************************************************************************** - - -! **************************************************************************** -! InitFixNOx - Initialize the NOx fixing data (for steady state calculations) -! **************************************************************************** - SUBROUTINE InitFixNOx(n, names, values) - - INTEGER, INTENT(IN) :: n - REAL(KIND=dp) :: values(n) - CHARACTER(LEN=15), INTENT(IN) :: names(n) - - INTEGER :: i, nfound_tracers - - initial_total_nox = 0.0 - nfound_tracers = 0 - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - initial_total_nox = initial_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - initial_total_nox = initial_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - ENDDO - - IF (.NOT. nfound_tracers == 2) THEN - WRITE(*,*) "NOx fixing failed, found (only) ", & - nfound_tracers, " species." - STOP - ENDIF - - END SUBROUTINE InitFixNOx -! **************************************************************************** - - -! **************************************************************************** -! FixNOx - keep total NOx at initial levels (for steady state calculations) -! **************************************************************************** - SUBROUTINE FixNOx(n, names, values) - - INTEGER, INTENT(IN) :: n - REAL(KIND=dp), INTENT(INOUT) :: values(n) - CHARACTER(LEN=15), INTENT(IN) :: names(n) - - INTEGER :: i, nfound_tracers - REAL(KIND=dp) :: current_total_nox, scaleFactor - - current_total_nox = 0.0 - nfound_tracers = 0 - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - current_total_nox = current_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - current_total_nox = current_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - ENDDO - - IF (.NOT. nfound_tracers == 2) THEN - WRITE(*,*) "NOx fixing failed, found (only) ", & - nfound_tracers, " species." - STOP - ENDIF - - scaleFactor = initial_total_nox - IF (current_total_nox > 0.0) THEN - scaleFactor = initial_total_nox / current_total_nox - ENDIF - - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - values(i) = values(i) * scaleFactor - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - values(i) = values(i) * scaleFactor - ENDIF - ENDDO - - END SUBROUTINE FixNOx -! **************************************************************************** - - -! End INLINED Utility Functions - -! Utility Functions from KPP_HOME/util/util -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! UTIL - Utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -! **************************************************************** -! -! InitSaveData - Opens the data file for writing -! Parameters : -! -! **************************************************************** - - SUBROUTINE InitSaveData () - - USE RADMKA_Parameters -!* ---------------------------------------------------- -!* BOXMOX extension - Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* add header to output species and sparse jacobian indices -!* and Hessian - USE RADMKA_JacobianSP -#if 0 > 0 - USE RADMKA_HessianSP -#endif -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* add header to output files and open rates file - INTEGER :: i -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20161129 -!* renamed concentration output -! open(10, file='RADMKA.dat') - open(10, file='RADMKA.conc') -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* add header to output files and open rates file - - ! add header to output file - WRITE(10, "(A24,10000(1X,A24))") "time", ADJUSTR(SPC_NAMES(LOOKAT)) - - open(11, file='RADMKA.rates') - - WRITE(11, "(I5)") NREACT - - DO i = 1, NREACT - WRITE(11, "(A)") EQN_NAMES(i) - ENDDO - - ! add header to output file - WRITE(11, "(A24,10000(1X,I24))") "time", (/(i, i=1,NREACT, 1)/) - -!* write header to Jacobian output - open(12, file='RADMKA.jacobian') - -!* species names - WRITE(12, "(10000(1X,A24))") ADJUSTR(SPC_NAMES(LOOKAT)) -!* species index - WRITE(12, "(10000(1X,I5))") LOOKAT -!* Jacobian non zero row index - WRITE(12, "(100000(1X,I5))") (LU_IROW(i), i=1,LU_NONZERO) -!* Jacobian non zero column index - WRITE(12, "(100000(1X,I5))") (LU_ICOL(i), i=1,LU_NONZERO) - -!* write header to Hessian output -#if 0 > 0 - open(13, file='RADMKA.hessian') - -!* species names - WRITE(13, "(10000(1X,A24))") ADJUSTR(SPC_NAMES(LOOKAT)) -!* species index - WRITE(13, "(10000(1X,I5))") LOOKAT -!* Hessian i, j, k species - WRITE(13, "(100000(1X,I5))") (IHESS_I(i), i=1,NHESS) - WRITE(13, "(100000(1X,I5))") (IHESS_J(i), i=1,NHESS) - WRITE(13, "(100000(1X,I5))") (IHESS_K(i), i=1,NHESS) -#endif -!* ---------------------------------------------------- - - END SUBROUTINE InitSaveData - -! End of InitSaveData function -! **************************************************************** - -! **************************************************************** -! -! SaveData - Write LOOKAT species in the data file -! Parameters : -! -! **************************************************************** - - SUBROUTINE SaveData () - - USE RADMKA_Global - USE RADMKA_Monitor -!* ---------------------------------------------------- -!* BOXMOX extension - Jerome Barre - 20150410 -!* Christoph Knote - 20151030 - USE RADMKA_Jacobian -#if 0 > 0 - USE RADMKA_Hessian -#endif -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20151030 - REAL(KIND=dp) :: JVS(LU_NONZERO) ! d(dc/dt)i/dcj -#if 0 > 0 - REAL(KIND=dp) :: HESS(NHESS) ! -#endif - INTEGER i - - WRITE(10,999) (TIME-TSTART)/3600.D0, & - (C(LOOKAT(i))/CFACTOR, i=1,NLOOKAT) - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* write out reaction rates - WRITE(11,999) (TIME-TSTART)/3600.D0, & - (RCONST(i), i=1,NREACT) -!* call Jacobian function to output Jacobian values - CALL Jac_SP( VAR, FIX, RCONST, JVS ) - WRITE(12,9999) (JVS(i), i=1,LU_NONZERO) -!* call Hessian function to output Hessian values -#if 0 > 0 - CALL Hessian( VAR, FIX, RCONST, HESS ) - WRITE(13,9999) (HESS(i), i=1,NHESS) -#endif -!* --------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* might have more than 100 output variables -! 999 FORMAT(E24.16,100(1X,E24.16)) -999 FORMAT(E24.16,10000(1X,E24.16E3)) -9999 FORMAT(E24.16,100000(1X,E24.16E3)) -!* ---------------------------------------------------- - - END SUBROUTINE SaveData - -! End of SaveData function -! **************************************************************** - -! **************************************************************** -! -! CloseSaveData - Close the data file -! Parameters : -! -! **************************************************************** - - SUBROUTINE CloseSaveData () - - USE RADMKA_Parameters - - CLOSE(10) - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -! Christoph Knote - 20153010 -!* close rates file - CLOSE(11) -!* close Jacobian file - CLOSE(12) -!* close Hessian file -#if 0 > 0 - CLOSE(13) -#endif -!* --------------------------------------------------- - - END SUBROUTINE CloseSaveData - -! End of CloseSaveData function -! **************************************************************** - -! **************************************************************** -! -! GenerateMatlab - Generates MATLAB file to load the data file -! Parameters : -! It will have a character string to prefix each -! species name with. -! -! **************************************************************** - - SUBROUTINE GenerateMatlab ( PREFIX ) - - USE RADMKA_Parameters - USE RADMKA_Global - USE RADMKA_Monitor - - - CHARACTER(LEN=8) PREFIX - INTEGER i - - open(20, file='RADMKA.m') - write(20,*) 'load RADMKA.dat;' - write(20,990) PREFIX -990 FORMAT(A1,'c = RADMKA;') - write(20,*) 'clear RADMKA;' - write(20,991) PREFIX, PREFIX -991 FORMAT(A1,'t=',A1,'c(:,1);') - write(20,992) PREFIX -992 FORMAT(A1,'c(:,1)=[];') - - do i=1,NLOOKAT - write(20,993) PREFIX, SPC_NAMES(LOOKAT(i)), PREFIX, i -993 FORMAT(A1,A6,' = ',A1,'c(:,',I2,');') - end do - - CLOSE(20) - - END SUBROUTINE GenerateMatlab - -! End of GenerateMatlab function -! **************************************************************** - - -! End Utility Functions from KPP_HOME/util/util -! End of UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Shuffle_user2kpp - function to copy concentrations from USER to KPP -! Arguments : -! V_USER - Concentration of variable species in USER's order -! V - Concentrations of variable species (local) -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Shuffle_user2kpp ( V_USER, V ) - -! V_USER - Concentration of variable species in USER's order - REAL(kind=dp) :: V_USER(NVAR) -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) - - V(7) = V_USER(1) - V(2) = V_USER(2) - V(72) = V_USER(3) - V(73) = V_USER(4) - V(74) = V_USER(5) - V(40) = V_USER(6) - V(30) = V_USER(7) - V(65) = V_USER(8) - V(58) = V_USER(9) - V(22) = V_USER(10) - V(54) = V_USER(11) - V(21) = V_USER(12) - V(3) = V_USER(13) - V(4) = V_USER(14) - V(20) = V_USER(15) - V(71) = V_USER(16) - V(28) = V_USER(17) - V(17) = V_USER(18) - V(10) = V_USER(19) - V(11) = V_USER(20) - V(8) = V_USER(21) - V(36) = V_USER(22) - V(31) = V_USER(23) - V(38) = V_USER(24) - V(63) = V_USER(25) - V(12) = V_USER(26) - V(13) = V_USER(27) - V(68) = V_USER(28) - V(14) = V_USER(29) - V(15) = V_USER(30) - V(26) = V_USER(31) - V(49) = V_USER(32) - V(42) = V_USER(33) - V(57) = V_USER(34) - V(45) = V_USER(35) - V(75) = V_USER(36) - V(25) = V_USER(37) - V(39) = V_USER(38) - V(35) = V_USER(39) - V(37) = V_USER(40) - V(27) = V_USER(41) - V(9) = V_USER(42) - V(33) = V_USER(43) - V(44) = V_USER(44) - V(16) = V_USER(45) - V(23) = V_USER(46) - V(18) = V_USER(47) - V(70) = V_USER(54) - V(69) = V_USER(55) - V(67) = V_USER(56) - V(56) = V_USER(57) - V(55) = V_USER(58) - V(32) = V_USER(59) - V(19) = V_USER(60) - V(29) = V_USER(61) - V(59) = V_USER(62) - V(76) = V_USER(63) - V(46) = V_USER(64) - V(47) = V_USER(65) - V(50) = V_USER(66) - V(51) = V_USER(67) - V(48) = V_USER(68) - V(53) = V_USER(69) - V(43) = V_USER(70) - V(66) = V_USER(71) - V(64) = V_USER(72) - V(52) = V_USER(73) - V(41) = V_USER(74) - V(60) = V_USER(75) - -END SUBROUTINE Shuffle_user2kpp - -! End of Shuffle_user2kpp function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Shuffle_kpp2user - function to restore concentrations from KPP to USER -! Arguments : -! V - Concentrations of variable species (local) -! V_USER - Concentration of variable species in USER's order -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Shuffle_kpp2user ( V, V_USER ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! V_USER - Concentration of variable species in USER's order - REAL(kind=dp) :: V_USER(NVAR) - - V_USER(1) = V(7) - V_USER(2) = V(2) - V_USER(3) = V(72) - V_USER(4) = V(73) - V_USER(5) = V(74) - V_USER(6) = V(40) - V_USER(7) = V(30) - V_USER(8) = V(65) - V_USER(9) = V(58) - V_USER(10) = V(22) - V_USER(11) = V(54) - V_USER(12) = V(21) - V_USER(13) = V(3) - V_USER(14) = V(4) - V_USER(15) = V(20) - V_USER(16) = V(71) - V_USER(17) = V(28) - V_USER(18) = V(17) - V_USER(19) = V(10) - V_USER(20) = V(11) - V_USER(21) = V(8) - V_USER(22) = V(36) - V_USER(23) = V(31) - V_USER(24) = V(38) - V_USER(25) = V(63) - V_USER(26) = V(12) - V_USER(27) = V(13) - V_USER(28) = V(68) - V_USER(29) = V(14) - V_USER(30) = V(15) - V_USER(31) = V(26) - V_USER(32) = V(49) - V_USER(33) = V(42) - V_USER(34) = V(57) - V_USER(35) = V(45) - V_USER(36) = V(75) - V_USER(37) = V(25) - V_USER(38) = V(39) - V_USER(39) = V(35) - V_USER(40) = V(37) - V_USER(41) = V(27) - V_USER(42) = V(9) - V_USER(43) = V(33) - V_USER(44) = V(44) - V_USER(45) = V(16) - V_USER(46) = V(23) - V_USER(47) = V(18) - V_USER(54) = V(70) - V_USER(55) = V(69) - V_USER(56) = V(67) - V_USER(57) = V(56) - V_USER(58) = V(55) - V_USER(59) = V(32) - V_USER(60) = V(19) - V_USER(61) = V(29) - V_USER(62) = V(59) - V_USER(63) = V(76) - V_USER(64) = V(46) - V_USER(65) = V(47) - V_USER(66) = V(50) - V_USER(67) = V(51) - V_USER(68) = V(48) - V_USER(69) = V(53) - V_USER(70) = V(43) - V_USER(71) = V(66) - V_USER(72) = V(64) - V_USER(73) = V(52) - V_USER(74) = V(41) - V_USER(75) = V(60) - -END SUBROUTINE Shuffle_kpp2user - -! End of Shuffle_kpp2user function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! GetMass - compute total mass of selected atoms -! Arguments : -! CL - Concentration of all species (local) -! Mass - value of mass balance -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE GetMass ( CL, Mass ) - -! CL - Concentration of all species (local) - REAL(kind=dp) :: CL(NSPEC) -! Mass - value of mass balance - REAL(kind=dp) :: Mass(1) - - -END SUBROUTINE GetMass - -! End of GetMass function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE RADMKA_Util - diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_Util.o b/boxmox/compiled_mechs/RADMKA/RADMKA_Util.o deleted file mode 100644 index 5c070d645c0ce7ebad99570ffe6a61edc4f0bccf..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/RADMKA_Util.o and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_mex_Fun.f90 b/boxmox/compiled_mechs/RADMKA/RADMKA_mex_Fun.f90 deleted file mode 100644 index 8ebf80f18e9c2cc644cb438a3df442b29474a2b2..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADMKA/RADMKA_mex_Fun.f90 +++ /dev/null @@ -1,45 +0,0 @@ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE mexFunction( nlhs, plhs, nrhs, prhs ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Matlab Gateway for the Derivative Function Fun -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RADMKA_Model - - INTEGER nlhs, nrhs - INTEGER plhs(*), prhs(*) - INTEGER mxGetPr, mxCreateFull, mxGetM, mxgetN - INTEGER VPtr, FPtr, RPtr, VdotPtr - REAL(kind=dp) V(76), F(0), RCT(186) - REAL(kind=dp) Vdot(76) - -! Check for the right number of input arguments - IF ( nrhs .ne. 3 ) THEN - CALL mexErrMsgTxt('Fun requires 3 input vectors: & - &V(76), F(0), RCT(186)') - END IF -! Check for the right number of output arguments - IF ( nlhs .ne. 1 ) THEN - CALL mexErrMsgTxt('Fun requires 1 output vector: & - &Vdot(76)') - END IF - - plhs(1) = mxCreateDoubleMatrix(76,1,0) - - VPtr = mxGetPr(prhs(1)) - CALL mxCopyPtrToReal8(VPtr,V,76) - - FPtr = mxGetPr(prhs(2)) - CALL mxCopyPtrToReal8(FPtr,F,0) - - RPtr = mxGetPr(prhs(3)) - CALL mxCopyPtrToReal8(RPtr,RCT,186) - - VdotPtr = mxGetPr(plhs(1)) - - CALL Fun( V, F, RCT, Vdot ) - - CALL mxCopyReal8ToPtr(Vdot, VdotPtr, 76) - - END SUBROUTINE mexFunction diff --git a/boxmox/compiled_mechs/RADMKA/RADMKA_mex_Jac_SP.f90 b/boxmox/compiled_mechs/RADMKA/RADMKA_mex_Jac_SP.f90 deleted file mode 100644 index bc15523a3f49f6ce896f39c03b222493895299ac..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADMKA/RADMKA_mex_Jac_SP.f90 +++ /dev/null @@ -1,44 +0,0 @@ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE mexFunction( nlhs, plhs, nrhs, prhs ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Matlab Gateway for the Sparse Jacobian Function Jac_SP -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE RADMKA_Model - - INTEGER nlhs, nrhs - INTEGER plhs(*), prhs(*) - INTEGER mxGetPr, mxCreateFull, mxGetM, mxgetN - INTEGER VPtr, FPtr, RPtr, JVSPtr - REAL(kind=dp) V(76), F(0), RCT(186) - REAL(kind=dp) JVS(916) - -! Check for the right number of input arguments - IF ( nrhs .ne. 3 ) THEN - CALL mexErrMsgTxt('Jac_SP requires 3 input vectors: & - &V(76), F(0), RCT(186)') - END IF -! Check for the right number of output arguments - IF ( nlhs .ne. 1 ) THEN - CALL mexErrMsgTxt('Jac_SP requires 1 output vector: & - &JVS(916)') - END IF - - plhs(1) = mxCreateDoubleMatrix(916,1,0) - - VPtr = mxGetPr(prhs(1)) - CALL mxCopyPtrToReal8(VPtr,V,76) - - FPtr = mxGetPr(prhs(2)) - CALL mxCopyPtrToReal8(FPtr,F,0) - - RPtr = mxGetPr(prhs(3)) - CALL mxCopyPtrToReal8(RPtr,RCT,186) - - JVSPtr = mxGetPr(plhs(1)) - - CALL Jac_SP( V, F, RCT, JVS ) - - CALL mxCopyReal8ToPtr(JVS, JVSPtr, 916) - - END SUBROUTINE mexFunction diff --git a/boxmox/compiled_mechs/RADMKA/compile.log b/boxmox/compiled_mechs/RADMKA/compile.log deleted file mode 100644 index 7ae23d555f13ffbf88e6e56b7f8cbefa7f8741c6..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADMKA/compile.log +++ /dev/null @@ -1,22 +0,0 @@ -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADMKA_Precision.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADMKA_Parameters.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADMKA_Global.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADMKA_Function.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADMKA_JacobianSP.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADMKA_Jacobian.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADMKA_StoichiomSP.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADMKA_Stoichiom.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADMKA_Monitor.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADMKA_Util.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADMKA_Rates.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADMKA_LinearAlgebra.f90 -RADMKA_LinearAlgebra.f90:1365:46: - - 1365 | IF (incX .EQ. incY) IF (incX-1) 5,20,60 - | 1 -Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADMKA_Initialize.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADMKA_Integrator.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADMKA_Model.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c RADMKA_Main.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 RADMKA_Precision.o RADMKA_Parameters.o RADMKA_Global.o RADMKA_Function.o RADMKA_JacobianSP.o RADMKA_Jacobian.o RADMKA_StoichiomSP.o RADMKA_Stoichiom.o RADMKA_Rates.o RADMKA_Util.o RADMKA_Monitor.o RADMKA_LinearAlgebra.o RADMKA_Main.o RADMKA_Initialize.o RADMKA_Integrator.o RADMKA_Model.o -o RADMKA.exe diff --git a/boxmox/compiled_mechs/RADMKA/kpp.log b/boxmox/compiled_mechs/RADMKA/kpp.log deleted file mode 100644 index e6b200796ead9e9029c37e0d85c74bef6801281b..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/RADMKA/kpp.log +++ /dev/null @@ -1,37 +0,0 @@ - -This is KPP-2.2.3. - -KPP is parsing the equation file. -KPP is computing Jacobian sparsity structure. -KPP is starting the code generation. -KPP is initializing the code generation. -KPP is generating the monitor data: - - RADMKA_Monitor -KPP is generating the global declarations: - - RADMKA_Main -KPP is generating the ODE function: - - RADMKA_Function -KPP is generating the ODE Jacobian: - - RADMKA_Jacobian - - RADMKA_JacobianSP -KPP is generating the linear algebra routines: - - RADMKA_LinearAlgebra -KPP is generating the utility data: - - RADMKA_Util -KPP is generating the utility functions: - - RADMKA_Util -KPP is generating the rate laws: - - RADMKA_Rates -KPP is generating the parameters: - - RADMKA_Parameters -KPP is generating the global data: - - RADMKA_Global -KPP is generating the stoichiometric description files: - - RADMKA_Stoichiom - - RADMKA_StoichiomSP -KPP is generating the driver from ../boxmox/boxmox.f90: - - RADMKA_Main -KPP is starting the code post-processing. - -KPP has succesfully created the model "RADMKA". - diff --git a/boxmox/compiled_mechs/RADMKA/radmka_function.mod b/boxmox/compiled_mechs/RADMKA/radmka_function.mod deleted file mode 100644 index 1ee34b9a114f8956445f8c98a5dfd3c81af6046b..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/radmka_function.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/radmka_global.mod b/boxmox/compiled_mechs/RADMKA/radmka_global.mod deleted file mode 100644 index da04eeae2dbbdcbada98c404949adfda2c8cd2b1..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/radmka_global.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/radmka_initialize.mod b/boxmox/compiled_mechs/RADMKA/radmka_initialize.mod deleted file mode 100644 index d724f99582805d464c8023ebc38c8040507a8b06..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/radmka_initialize.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/radmka_integrator.mod b/boxmox/compiled_mechs/RADMKA/radmka_integrator.mod deleted file mode 100644 index d66040d5fe81fd425f0f51829f04b5503a81b4f8..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/radmka_integrator.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/radmka_jacobian.mod b/boxmox/compiled_mechs/RADMKA/radmka_jacobian.mod deleted file mode 100644 index 849bd92b36bb61997c357cf2e186497df354dc9a..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/radmka_jacobian.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/radmka_jacobiansp.mod b/boxmox/compiled_mechs/RADMKA/radmka_jacobiansp.mod deleted file mode 100644 index 47f17ac317279edca7955ac5bc325bcd3eacd272..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/radmka_jacobiansp.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/radmka_linearalgebra.mod b/boxmox/compiled_mechs/RADMKA/radmka_linearalgebra.mod deleted file mode 100644 index 9c5d16399cae6e63b499bd7a8744e9c93978650f..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/radmka_linearalgebra.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/radmka_model.mod b/boxmox/compiled_mechs/RADMKA/radmka_model.mod deleted file mode 100644 index e7a7ae948f145bfee692a00d7709b6ce1fa0f794..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/radmka_model.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/radmka_monitor.mod b/boxmox/compiled_mechs/RADMKA/radmka_monitor.mod deleted file mode 100644 index 6589b23c6b5a2da1d1de36dae0bc44cece3f050b..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/radmka_monitor.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/radmka_parameters.mod b/boxmox/compiled_mechs/RADMKA/radmka_parameters.mod deleted file mode 100644 index c77694594a0c38156289c826b824825a46074f13..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/radmka_parameters.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/radmka_precision.mod b/boxmox/compiled_mechs/RADMKA/radmka_precision.mod deleted file mode 100644 index f4fb76b4abe55114a358f56bea0c70eb8088dbe5..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/radmka_precision.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/radmka_rates.mod b/boxmox/compiled_mechs/RADMKA/radmka_rates.mod deleted file mode 100644 index aa8a7934c36f0cdc1929c7f0afa0655e3cbf3bbf..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/radmka_rates.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/radmka_stoichiom.mod b/boxmox/compiled_mechs/RADMKA/radmka_stoichiom.mod deleted file mode 100644 index 7f3f0db56c1a01c8a5dd08b8c7c83853e432350f..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/radmka_stoichiom.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/radmka_stoichiomsp.mod b/boxmox/compiled_mechs/RADMKA/radmka_stoichiomsp.mod deleted file mode 100644 index 1f25642206f22979769f85687bfffdedb7c864f4..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/radmka_stoichiomsp.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/RADMKA/radmka_util.mod b/boxmox/compiled_mechs/RADMKA/radmka_util.mod deleted file mode 100644 index 796e943593ee16603e92fe0c09ac8b0eecc1e65f..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/RADMKA/radmka_util.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/Makefile_SAPRC99 b/boxmox/compiled_mechs/SAPRC99/Makefile_SAPRC99 deleted file mode 100644 index 428b165fcea282d472c2b38943e30fb7cb1889f1..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/SAPRC99/Makefile_SAPRC99 +++ /dev/null @@ -1,215 +0,0 @@ -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: Set here the F90 compiler and options -# Pedefined compilers: INTEL, PGF, HPUX, LAHEY -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -#COMPILER = G95 -#COMPILER = LAHEY -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# gfortran is standard -#COMPILER = INTEL -# ---------------------------------------------------- -#COMPILER = PGF -#COMPILER = HPUX -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# gfortran is standard -COMPILER = GFORTRAN -# ---------------------------------------------------- - -FC_G95 = g95 -FOPT_G95 = -cpp -O -pg -fbounds-check -fimplicit-none -Wall -ftrace=full - -FC_LAHEY = lf95 -# More aggressive for production runs: -#FOPT_LAHEY = -Cpp --pca -O -# More checking for debugging: -FOPT_LAHEY = -Cpp --chk a,e,s,u --pca --ap -O0 -g --trap --trace --chkglobal - -FC_INTEL = ifort -# More aggressive for production runs: -#FOPT_INTEL = -cpp -O -fp-model precise -pc80 -prec_div -# More checking for debugging: -FOPT_INTEL = -cpp -O0 -fp-model strict -implicitnone -ftrapuv \ - -debug all -check all -warn all - -FC_PGF = pgf90 -# More aggressive for production runs: -FOPT_PGF = -Mpreprocess -O -fast -pc 80 -Kieee -# More checking for debugging: -#FOPT_PGF = -Mpreprocess -O0 -Mbounds -Mchkfpstk -Mchkptr -Mchkstk \ -# -Ktrap=fp -pc 80 -Kieee - -FC_HPUX = f90 -FOPT_HPUX = -O -u +Oall +check=on - -FC_GFORTRAN = gfortran -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# rate equation code creates pretty long lines -# optimization does not help much and breaks MCM -# FOPT_GFORTRAN = -cpp -O -# double precision: -#FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -freal-4-real-16 -freal-8-real-16 -# using GCC 4.7 and higher: -FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -freal-4-real-8 -# for older compilers -#FOPT_GFORTRAN = -cpp -g -ffree-line-length-none -fdefault-real-8 -# ---------------------------------------------------- - -# define FULL_ALGEBRA for non-sparse integration -FC = $(FC_$(COMPILER)) -FOPT = $(FOPT_$(COMPILER)) # -DFULL_ALGEBRA - -LIBS = -#LIBS = -llapack -lblas - -# Command to create Matlab mex gateway routines -# Note: use $(FC) as the mex Fortran compiler -MEX = mex - -GENSRC = SAPRC99_Precision.f90 \ - SAPRC99_Parameters.f90 \ - SAPRC99_Global.f90 - -GENOBJ = SAPRC99_Precision.o \ - SAPRC99_Parameters.o \ - SAPRC99_Global.o - -FUNSRC = SAPRC99_Function.f90 -FUNOBJ = SAPRC99_Function.o - -JACSRC = SAPRC99_JacobianSP.f90 SAPRC99_Jacobian.f90 -JACOBJ = SAPRC99_JacobianSP.o SAPRC99_Jacobian.o - -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20160906 -# if HESSIAN is off, avoid compilation errors by not -# linking to the Hessian objects. -ifeq ($(wildcard SAPRC99_HessianSP.f90),) - HESSRC = - HESOBJ = -else - HESSRC = SAPRC99_HessianSP.f90 SAPRC99_Hessian.f90 - HESOBJ = SAPRC99_HessianSP.o SAPRC99_Hessian.o -endif -# ---------------------------------------------------- - -STMSRC = SAPRC99_StoichiomSP.f90 SAPRC99_Stoichiom.f90 -STMOBJ = SAPRC99_StoichiomSP.o SAPRC99_Stoichiom.o - -UTLSRC = SAPRC99_Rates.f90 SAPRC99_Util.f90 SAPRC99_Monitor.f90 -UTLOBJ = SAPRC99_Rates.o SAPRC99_Util.o SAPRC99_Monitor.o - -LASRC = SAPRC99_LinearAlgebra.f90 -LAOBJ = SAPRC99_LinearAlgebra.o - -STOCHSRC = SAPRC99_Stochastic.f90 -STOCHOBJ = SAPRC99_Stochastic.o - -MAINSRC = SAPRC99_Main.f90 SAPRC99_Initialize.f90 SAPRC99_Integrator.f90 SAPRC99_Model.f90 -MAINOBJ = SAPRC99_Main.o SAPRC99_Initialize.o SAPRC99_Integrator.o SAPRC99_Model.o - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: modify the line below to include only the -# objects needed by your application -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -ALLOBJ = $(GENOBJ) $(FUNOBJ) $(JACOBJ) $(HESOBJ) $(STMOBJ) \ - $(UTLOBJ) $(LAOBJ) - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# User: modify the line below to include only the -# executables needed by your application -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -all: exe - -exe: $(ALLOBJ) $(MAINOBJ) - $(FC) $(FOPT) $(ALLOBJ) $(MAINOBJ) $(LIBS) -o SAPRC99.exe - -pylib: $(ALLOBJ) lib_Initialize.o lib_Integrator.o lib_Model.o - f2py -c -m boxmox $(ALLOBJ) lib_Initialize.o lib_Integrator.o lib_Model.o lib_Main.f90 - -stochastic:$(ALLOBJ) $(STOCHOBJ) $(MAINOBJ) - $(FC) $(FOPT) $(ALLOBJ) $(STOCHOBJ) $(MAINOBJ) $(LIBS) \ - -o SAPRC99_stochastic.exe - -mex: $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O SAPRC99_mex_Fun.f90 $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O SAPRC99_mex_Jac_SP.f90 $(ALLOBJ) - $(MEX) FC#$(FC) -fortran -O SAPRC99_mex_Hessian.f90 $(ALLOBJ) - -clean: - rm -f SAPRC99*.o SAPRC99*.mod \ - SAPRC99*.dat SAPRC99.exe SAPRC99*.mexglx \ - SAPRC99.map - -distclean: - rm -f SAPRC99*.o SAPRC99*.mod \ - SAPRC99*.dat SAPRC99.exe SAPRC99.map \ - SAPRC99*.f90 SAPRC99_*.mexglx - -SAPRC99_Precision.o: SAPRC99_Precision.f90 - $(FC) $(FOPT) -c $< - -SAPRC99_Parameters.o: SAPRC99_Parameters.f90 \ - SAPRC99_Precision.o - $(FC) $(FOPT) -c $< - -SAPRC99_Monitor.o: SAPRC99_Monitor.f90 \ - SAPRC99_Precision.o - $(FC) $(FOPT) -c $< - -SAPRC99_Global.o: SAPRC99_Global.f90 \ - SAPRC99_Parameters.o SAPRC99_Precision.o - $(FC) $(FOPT) -c $< - -SAPRC99_Initialize.o: SAPRC99_Initialize.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -SAPRC99_Function.o: SAPRC99_Function.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -SAPRC99_Stochastic.o: SAPRC99_Stochastic.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -SAPRC99_JacobianSP.o: SAPRC99_JacobianSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -SAPRC99_Jacobian.o: SAPRC99_Jacobian.f90 $(GENOBJ) SAPRC99_JacobianSP.o - $(FC) $(FOPT) -c $< - -SAPRC99_LinearAlgebra.o: SAPRC99_LinearAlgebra.f90 $(GENOBJ) SAPRC99_JacobianSP.o - $(FC) $(FOPT) -c $< - -# ---------------------------------------------------- -# BOXMOX extension - Christoph Knote - 20140610 -# need Util in Rates -#SAPRC99_Rates.o: SAPRC99_Rates.f90 $(GENOBJ) -SAPRC99_Rates.o: SAPRC99_Rates.f90 $(GENOBJ) SAPRC99_Util.o -# ---------------------------------------------------- - $(FC) $(FOPT) -c $< - -SAPRC99_HessianSP.o: SAPRC99_HessianSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -SAPRC99_Hessian.o: SAPRC99_Hessian.f90 $(GENOBJ) SAPRC99_HessianSP.o - $(FC) $(FOPT) -c $< - -SAPRC99_StoichiomSP.o: SAPRC99_StoichiomSP.f90 $(GENOBJ) - $(FC) $(FOPT) -c $< - -SAPRC99_Stoichiom.o: SAPRC99_Stoichiom.f90 $(GENOBJ) SAPRC99_StoichiomSP.o - $(FC) $(FOPT) -c $< - -SAPRC99_Util.o: SAPRC99_Util.f90 $(GENOBJ) SAPRC99_Monitor.o - $(FC) $(FOPT) -c $< - -SAPRC99_Main.o: SAPRC99_Main.f90 $(ALLOBJ) SAPRC99_Initialize.o SAPRC99_Model.o SAPRC99_Integrator.o - $(FC) $(FOPT) -c $< - -SAPRC99_Model.o: SAPRC99_Model.f90 $(ALLOBJ) SAPRC99_Integrator.o - $(FC) $(FOPT) -c $< - -SAPRC99_Integrator.o: SAPRC99_Integrator.f90 $(ALLOBJ) - $(FC) $(FOPT) -c $< diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99.exe b/boxmox/compiled_mechs/SAPRC99/SAPRC99.exe deleted file mode 100755 index c25a4b41758942b9cb132ca143d480faedf5370e..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/SAPRC99.exe and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99.kpp b/boxmox/compiled_mechs/SAPRC99/SAPRC99.kpp deleted file mode 100644 index d828cf535644f9ec2a59198f5df6e316b2cec9f0..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/SAPRC99/SAPRC99.kpp +++ /dev/null @@ -1,7 +0,0 @@ -#MODEL SAPRC99 -#LANGUAGE Fortran90 -#DOUBLE ON -#INTEGRATOR rosenbrock -#DRIVER ../boxmox/boxmox -#JACOBIAN SPARSE_LU_ROW -#HESSIAN OFF diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99.map b/boxmox/compiled_mechs/SAPRC99/SAPRC99.map deleted file mode 100644 index a1e0dc509b900f12c755f3594554a35b6ba440d1..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/SAPRC99/SAPRC99.map +++ /dev/null @@ -1,98 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Map File with Human-Readable Information -! -! Generated by KPP-2.2.3 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 : SAPRC99.map -! Time : Thu Oct 8 08:22:39 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_SAPRC99_30885_BOXMOX -! Equation file : SAPRC99.kpp -! Output root filename : SAPRC99 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -### Options ------------------------------------------- - -FUNCTION - AGGREGATE -JACOBIAN - SPARSE W/ ACCOUNT FOR LU DECOMPOSITION FILL-IN -DOUBLE - ON -REORDER - ON - -### Parameters ---------------------------------------- - -! NSPEC - Number of chemical species - INTEGER, PARAMETER :: NSPEC = 81 -! NVAR - Number of Variable species - INTEGER, PARAMETER :: NVAR = 79 -! NVARACT - Number of Active species - INTEGER, PARAMETER :: NVARACT = 72 -! NFIX - Number of Fixed species - INTEGER, PARAMETER :: NFIX = 2 -! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 225 -! NVARST - Starting of variables in conc. vect. - INTEGER, PARAMETER :: NVARST = 1 -! NFIXST - Starting of fixed in conc. vect. - INTEGER, PARAMETER :: NFIXST = 80 - -### Species ------------------------------------------- - -Variable species - 1 = H2SO4 (r) 28 = MEOH (r) 55 = METHACRO (r) - 2 = CO2 (r) 29 = COOH (r) 56 = OLE1 (r) - 3 = HCOOH (n) 30 = HOCOO (r) 57 = ISOPROD (r) - 4 = CCO_OH (n) 31 = BZNO2_O (r) 58 = OLE2 (r) - 5 = RCO_OH (n) 32 = HNO4 (r) 59 = MVK (r) - 6 = CCO_OOH (n) 33 = ALK4 (r) 60 = CCHO (r) - 7 = RCO_OOH (n) 34 = ARO1 (r) 61 = HCHO (r) - 8 = XN (n) 35 = DCB2 (r) 62 = RNO3 (r) - 9 = XC (n) 36 = DCB3 (r) 63 = O3P (r) - 10 = SO2 (r) 37 = CRES (r) 64 = RCHO (r) - 11 = O1D (r) 38 = DCB1 (r) 65 = MEK (r) - 12 = CH4 (r) 39 = C2H2 (r) 66 = PROD2 (r) - 13 = C2H6 (r) 40 = NPHE (r) 67 = O3 (r) - 14 = BACL (r) 41 = BALD (r) 68 = CCO_O2 (r) - 15 = PAN (r) 42 = ROOH (r) 69 = RO2_N (r) - 16 = PAN2 (r) 43 = PHEN (r) 70 = MA_RCO3 (r) - 17 = PBZN (r) 44 = MGLY (r) 71 = OH (r) - 18 = MA_PAN (r) 45 = CO (r) 72 = RCO_O2 (r) - 19 = H2O2 (r) 46 = ACET (r) 73 = NO (r) - 20 = C3H8 (r) 47 = HNO3 (r) 74 = NO2 (r) - 21 = ETOH (r) 48 = ETHENE (r) 75 = NO3 (r) - 22 = N2O5 (r) 49 = GLY (r) 76 = C_O2 (r) - 23 = HONO (r) 50 = C3H6 (r) 77 = RO2_R (r) - 24 = ALK3 (r) 51 = BZ_O (r) 78 = HO2 (r) - 25 = TBU_O (r) 52 = ISOPRENE (r) 79 = BZCO_O2 (r) - 26 = ALK5 (r) 53 = R2O2 (r) - 27 = ARO2 (r) 54 = TERP (r) - -Fixed species - 1 = H2O (r) 2 = M (r) - -### Subroutines --------------------------------------- - -SUBROUTINE Fun ( V, F, RCT, Vdot ) -SUBROUTINE Jac_SP ( V, F, RCT, JVS ) -SUBROUTINE Jac_SP_Vec ( JVS, UV, JUV ) -SUBROUTINE JacTR_SP_Vec ( JVS, UV, JTUV ) -SUBROUTINE KppSolve ( JVS, X ) -SUBROUTINE KppSolveTR ( JVS, X, XX ) -SUBROUTINE Initialize ( ) -SUBROUTINE Shuffle_user2kpp ( V_USER, V ) -SUBROUTINE Shuffle_kpp2user ( V, V_USER ) -SUBROUTINE Update_RCONST ( ) -SUBROUTINE Update_PHOTO ( ) -SUBROUTINE GetMass ( CL, Mass ) -SUBROUTINE ReactantProd ( V, F, ARP ) -SUBROUTINE JacReactantProd ( V, F, JVRP ) diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Function.f90 b/boxmox/compiled_mechs/SAPRC99/SAPRC99_Function.f90 deleted file mode 100644 index 7b0903b8a228ab5f55207fcd2e602011b3f44be7..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Function.f90 +++ /dev/null @@ -1,437 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The ODE Function of Chemical Model File -! -! Generated by KPP-2.2.3 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 : SAPRC99_Function.f90 -! Time : Thu Oct 8 08:22:39 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_SAPRC99_30885_BOXMOX -! Equation file : SAPRC99.kpp -! Output root filename : SAPRC99 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE SAPRC99_Function - - USE SAPRC99_Parameters - IMPLICIT NONE - -! A - Rate for each equation - REAL(kind=dp) :: A(NREACT) - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Fun - time derivatives of variables - Agregate form -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! RCT - Rate constants (local) -! Vdot - Time derivative of variable species concentrations -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Fun ( V, F, RCT, Vdot ) - -! 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) -! Vdot - Time derivative of variable species concentrations - REAL(kind=dp) :: Vdot(NVAR) - - -! Computation of equation rates - A(1) = RCT(1)*V(74) - A(2) = RCT(2)*V(63)*F(2) - A(3) = RCT(3)*V(63)*V(67) - A(4) = RCT(4)*V(63)*V(73)*F(2) - A(5) = RCT(5)*V(63)*V(74) - A(6) = RCT(6)*V(63)*V(74) - A(7) = RCT(7)*V(67)*V(73) - A(8) = RCT(8)*V(67)*V(74) - A(9) = RCT(9)*V(73)*V(75) - A(10) = RCT(10)*V(73)*V(73)*F(2) - A(11) = RCT(11)*V(74)*V(75) - A(12) = RCT(12)*V(22) - A(13) = RCT(13)*V(22)*F(1) - A(14) = RCT(14)*V(74)*V(75) - A(15) = RCT(15)*V(75) - A(16) = RCT(16)*V(75) - A(17) = RCT(17)*V(67) - A(18) = RCT(18)*V(67) - A(19) = RCT(19)*V(11)*F(1) - A(20) = RCT(20)*V(11)*F(2) - A(21) = RCT(21)*V(71)*V(73) - A(22) = RCT(22)*V(23) - A(23) = RCT(23)*V(23) - A(24) = RCT(24)*V(23)*V(71) - A(25) = RCT(25)*V(71)*V(74) - A(26) = RCT(26)*V(71)*V(75) - A(27) = RCT(27)*V(47)*V(71) - A(28) = RCT(28)*V(47) - A(29) = RCT(29)*V(45)*V(71) - A(30) = RCT(30)*V(67)*V(71) - A(31) = RCT(31)*V(73)*V(78) - A(32) = RCT(32)*V(74)*V(78) - A(33) = RCT(33)*V(32) - A(34) = RCT(34)*V(32) - A(35) = RCT(35)*V(32)*V(71) - A(36) = RCT(36)*V(67)*V(78) - A(37) = RCT(37)*V(78)*V(78) - A(38) = RCT(38)*V(78)*V(78)*F(1) - A(39) = RCT(39)*V(75)*V(78) - A(40) = RCT(40)*V(75)*V(75) - A(41) = RCT(41)*V(19) - A(42) = RCT(42)*V(19)*V(71) - A(43) = RCT(43)*V(71)*V(78) - A(44) = RCT(44)*V(10)*V(71) - A(45) = RCT(45)*V(71)*F(2) - A(46) = RCT(46)*V(73)*V(76) - A(47) = RCT(47)*V(76)*V(78) - A(48) = RCT(48)*V(75)*V(76) - A(49) = RCT(49)*V(76)*V(76) - A(50) = RCT(50)*V(76)*V(76) - A(51) = RCT(51)*V(73)*V(77) - A(52) = RCT(52)*V(77)*V(78) - A(53) = RCT(53)*V(75)*V(77) - A(54) = RCT(54)*V(76)*V(77) - A(55) = RCT(55)*V(77)*V(77) - A(56) = RCT(56)*V(53)*V(73) - A(57) = RCT(57)*V(53)*V(78) - A(58) = RCT(58)*V(53)*V(75) - A(59) = RCT(59)*V(53)*V(76) - A(60) = RCT(60)*V(53)*V(77) - A(62) = RCT(62)*V(69)*V(73) - A(63) = RCT(63)*V(69)*V(78) - A(64) = RCT(64)*V(69)*V(76) - A(65) = RCT(65)*V(69)*V(75) - A(66) = RCT(66)*V(69)*V(77) - A(67) = RCT(67)*V(53)*V(69) - A(68) = RCT(68)*V(69)*V(69) - A(69) = RCT(69)*V(68)*V(74) - A(70) = RCT(70)*V(15) - A(71) = RCT(71)*V(68)*V(73) - A(72) = RCT(72)*V(68)*V(78) - A(73) = RCT(73)*V(68)*V(75) - A(74) = RCT(74)*V(68)*V(76) - A(75) = RCT(75)*V(68)*V(77) - A(76) = RCT(76)*V(53)*V(68) - A(77) = RCT(77)*V(68)*V(69) - A(78) = RCT(78)*V(68)*V(68) - A(79) = RCT(79)*V(72)*V(74) - A(80) = RCT(80)*V(16) - A(81) = RCT(81)*V(72)*V(73) - A(82) = RCT(82)*V(72)*V(78) - A(83) = RCT(83)*V(72)*V(75) - A(84) = RCT(84)*V(72)*V(76) - A(85) = RCT(85)*V(72)*V(77) - A(86) = RCT(86)*V(53)*V(72) - A(87) = RCT(87)*V(69)*V(72) - A(88) = RCT(88)*V(68)*V(72) - A(89) = RCT(89)*V(72)*V(72) - A(90) = RCT(90)*V(74)*V(79) - A(91) = RCT(91)*V(17) - A(92) = RCT(92)*V(73)*V(79) - A(93) = RCT(93)*V(78)*V(79) - A(94) = RCT(94)*V(75)*V(79) - A(95) = RCT(95)*V(76)*V(79) - A(96) = RCT(96)*V(77)*V(79) - A(97) = RCT(97)*V(53)*V(79) - A(98) = RCT(98)*V(69)*V(79) - A(99) = RCT(99)*V(68)*V(79) - A(100) = RCT(100)*V(72)*V(79) - A(101) = RCT(101)*V(79)*V(79) - A(102) = RCT(102)*V(70)*V(74) - A(103) = RCT(103)*V(18) - A(104) = RCT(104)*V(70)*V(73) - A(105) = RCT(105)*V(70)*V(78) - A(106) = RCT(106)*V(70)*V(75) - A(107) = RCT(107)*V(70)*V(76) - A(108) = RCT(108)*V(70)*V(77) - A(109) = RCT(109)*V(53)*V(70) - A(110) = RCT(110)*V(69)*V(70) - A(111) = RCT(111)*V(68)*V(70) - A(112) = RCT(112)*V(70)*V(72) - A(113) = RCT(113)*V(70)*V(79) - A(114) = RCT(114)*V(70)*V(70) - A(115) = RCT(115)*V(25)*V(74) - A(116) = RCT(116)*V(25) - A(117) = RCT(117)*V(51)*V(74) - A(118) = RCT(118)*V(51)*V(78) - A(119) = RCT(119)*V(51) - A(120) = RCT(120)*V(31)*V(74) - A(121) = RCT(121)*V(31)*V(78) - A(122) = RCT(122)*V(31) - A(123) = RCT(123)*V(61) - A(124) = RCT(124)*V(61) - A(125) = RCT(125)*V(61)*V(71) - A(126) = RCT(126)*V(61)*V(78) - A(127) = RCT(127)*V(30) - A(128) = RCT(128)*V(30)*V(73) - A(129) = RCT(129)*V(61)*V(75) - A(130) = RCT(130)*V(60)*V(71) - A(131) = RCT(131)*V(60) - A(132) = RCT(132)*V(60)*V(75) - A(133) = RCT(133)*V(64)*V(71) - A(134) = RCT(134)*V(64) - A(135) = RCT(135)*V(64)*V(75) - A(136) = RCT(136)*V(46)*V(71) - A(137) = RCT(137)*V(46) - A(138) = RCT(138)*V(65)*V(71) - A(139) = RCT(139)*V(65) - A(140) = RCT(140)*V(28)*V(71) - A(141) = RCT(141)*V(21)*V(71) - A(142) = RCT(142)*V(29)*V(71) - A(143) = RCT(143)*V(29) - A(144) = RCT(144)*V(42)*V(71) - A(145) = RCT(145)*V(42) - A(146) = RCT(146)*V(49) - A(147) = RCT(147)*V(49) - A(148) = RCT(148)*V(49)*V(71) - A(149) = RCT(149)*V(49)*V(75) - A(150) = RCT(150)*V(44) - A(151) = RCT(151)*V(44)*V(71) - A(152) = RCT(152)*V(44)*V(75) - A(153) = RCT(153)*V(14) - A(154) = RCT(154)*V(43)*V(71) - A(155) = RCT(155)*V(43)*V(75) - A(156) = RCT(156)*V(37)*V(71) - A(157) = RCT(157)*V(37)*V(75) - A(158) = RCT(158)*V(40)*V(75) - A(159) = RCT(159)*V(41)*V(71) - A(160) = RCT(160)*V(41) - A(161) = RCT(161)*V(41)*V(75) - A(162) = RCT(162)*V(55)*V(71) - A(163) = RCT(163)*V(55)*V(67) - A(164) = RCT(164)*V(55)*V(75) - A(165) = RCT(165)*V(55)*V(63) - A(166) = RCT(166)*V(55) - A(167) = RCT(167)*V(59)*V(71) - A(168) = RCT(168)*V(59)*V(67) - A(169) = RCT(169)*V(59)*V(63) - A(170) = RCT(170)*V(59) - A(171) = RCT(171)*V(57)*V(71) - A(172) = RCT(172)*V(57)*V(67) - A(173) = RCT(173)*V(57)*V(75) - A(174) = RCT(174)*V(57) - A(175) = RCT(175)*V(66)*V(71) - A(176) = RCT(176)*V(66) - A(177) = RCT(177)*V(62)*V(71) - A(178) = RCT(178)*V(62) - A(179) = RCT(179)*V(38)*V(71) - A(180) = RCT(180)*V(38)*V(67) - A(181) = RCT(181)*V(35)*V(71) - A(182) = RCT(182)*V(35) - A(183) = RCT(183)*V(36)*V(71) - A(184) = RCT(184)*V(36) - A(185) = RCT(185)*V(12)*V(71) - A(186) = RCT(186)*V(48)*V(71) - A(187) = RCT(187)*V(48)*V(67) - A(188) = RCT(188)*V(48)*V(75) - A(189) = RCT(189)*V(48)*V(63) - A(190) = RCT(190)*V(52)*V(71) - A(191) = RCT(191)*V(52)*V(67) - A(192) = RCT(192)*V(52)*V(75) - A(193) = RCT(193)*V(52)*V(63) - A(194) = RCT(194)*V(54)*V(71) - A(195) = RCT(195)*V(54)*V(67) - A(196) = RCT(196)*V(54)*V(75) - A(197) = RCT(197)*V(54)*V(63) - A(198) = RCT(198)*V(13)*V(71) - A(199) = RCT(199)*V(20)*V(71) - A(200) = RCT(200)*V(39)*V(71) - A(201) = RCT(201)*V(24)*V(71) - A(202) = RCT(202)*V(33)*V(71) - A(203) = RCT(203)*V(26)*V(71) - A(204) = RCT(204)*V(34)*V(71) - A(205) = RCT(205)*V(27)*V(71) - A(206) = RCT(206)*V(56)*V(71) - A(207) = RCT(207)*V(56)*V(67) - A(208) = RCT(208)*V(56)*V(75) - A(209) = RCT(209)*V(56)*V(63) - A(210) = RCT(210)*V(58)*V(71) - A(211) = RCT(211)*V(58)*V(67) - A(212) = RCT(212)*V(58)*V(75) - A(213) = RCT(213)*V(58)*V(63) - A(214) = RCT(214)*V(39)*V(67) - A(215) = RCT(215)*V(50)*V(71) - A(216) = RCT(216)*V(50)*V(67) - A(217) = RCT(217)*V(50)*V(75) - A(218) = RCT(218)*V(50)*V(63) - A(219) = RCT(219)*V(10) - A(220) = RCT(220)*V(78) - A(221) = RCT(221)*V(10) - A(222) = RCT(222)*V(1) - A(223) = RCT(223)*V(47) - A(224) = RCT(224)*V(19) - A(225) = RCT(225)*V(2) - -! Aggregate function - Vdot(1) = A(44)+A(219)-A(222) - Vdot(2) = 0.5*A(214)+0.135*A(216)-A(225) - Vdot(3) = A(128)+0.333*A(163)+0.351*A(168)+0.1*A(172)+0.37*A(187)+0.204*A(191)+0.103*A(195)+0.297*A(200)+0.185*A(207)& - &+0.073*A(211)+0.185*A(216) - Vdot(4) = 0.25*A(72)+A(74)+A(75)+A(77)+0.05*A(207)+0.129*A(211)+0.17*A(216) - Vdot(5) = 0.25*A(82)+A(84)+A(85)+A(87)+0.25*A(93)+A(95)+A(96)+A(98)+0.25*A(105)+A(107)+A(108)+2*A(110)+0.372*A(172)& - &+0.15*A(191)+0.189*A(195)+0.119*A(207)+0.247*A(211) - Vdot(6) = 0.75*A(72) - Vdot(7) = 0.75*A(82)+0.75*A(93)+0.75*A(105) - Vdot(8) = 2*A(120)+A(217) - Vdot(9) = 6*A(120)+7*A(160)+0.048*A(215)+0.07*A(216)+2.693*A(217)+0.55*A(218) - Vdot(10) = -A(44)-A(219)-A(221) - Vdot(11) = A(18)-A(19)-A(20) - Vdot(12) = -A(185) - Vdot(13) = -A(198) - Vdot(14) = -A(153)+0.031*A(195)+0.087*A(205) - Vdot(15) = A(69)-A(70) - Vdot(16) = A(79)-A(80) - Vdot(17) = A(90)-A(91) - Vdot(18) = A(102)-A(103) - Vdot(19) = A(37)+A(38)-A(41)-A(42)-A(224) - Vdot(20) = -A(199) - Vdot(21) = -A(141) - Vdot(22) = A(11)-A(12)-A(13) - Vdot(23) = A(21)-A(22)-A(23)-A(24) - Vdot(24) = -A(201) - Vdot(25) = -A(115)-A(116)+0.236*A(201) - Vdot(26) = -A(203) - Vdot(27) = -A(205) - Vdot(28) = A(49)+0.25*A(54)+0.25*A(64)-A(140) - Vdot(29) = A(47)-A(142)-A(143) - Vdot(30) = A(126)-A(127)-A(128) - Vdot(31) = -A(120)-A(121)-A(122)+A(158) - Vdot(32) = A(32)-A(33)-A(34)-A(35) - Vdot(33) = -A(202) - Vdot(34) = -A(204) - Vdot(35) = -A(181)-A(182)+0.108*A(204)+0.099*A(205) - Vdot(36) = -A(183)-A(184)+0.051*A(204)+0.093*A(205) - Vdot(37) = -A(156)-A(157)+0.207*A(204)+0.187*A(205) - Vdot(38) = -A(179)-A(180)+0.491*A(204)+0.561*A(205) - Vdot(39) = -A(200)-A(214) - Vdot(40) = A(117)+A(121)+A(122)-A(158) - Vdot(41) = -A(159)-A(160)-A(161)+0.059*A(204)+0.05*A(205)+0.061*A(210)+0.042*A(211)+0.015*A(212) - Vdot(42) = A(52)+A(63)-A(144)-A(145) - Vdot(43) = A(118)+A(119)-A(154)-A(155)+0.017*A(204) - Vdot(44) = -A(150)-A(151)-A(152)+0.23*A(156)+0.084*A(162)+0.9*A(163)+0.3*A(167)+0.95*A(168)+0.174*A(171)+0.742*A(172)& - &+0.008*A(173)+0.5*A(182)+0.5*A(184)+0.119*A(204)+0.287*A(205) - Vdot(45) = -A(29)+A(123)+A(124)+A(125)+A(129)+A(131)+0.034*A(133)+A(134)+2*A(146)+A(147)+1.26*A(148)+1.26*A(149)& - &+A(150)+A(151)+A(152)+0.416*A(162)+0.45*A(163)+0.5*A(164)+0.67*A(166)+0.475*A(168)+0.7*A(170)+0.336*A(171)& - &+0.498*A(172)+0.572*A(173)+1.233*A(174)+A(179)+1.5*A(180)+A(182)+A(184)+0.5*A(187)+0.491*A(189)+0.275*A(191)& - &+0.157*A(195)+0.393*A(200)+0.002*A(202)+0.345*A(207)+0.265*A(211)+0.012*A(213)+1.5*A(214)+0.51*A(216) - Vdot(46) = A(116)-A(136)-A(137)+0.006*A(177)+0.02*A(178)+0.13*A(195)+0.704*A(199)+0.024*A(201)+0.452*A(202)+0.072& - &*A(203)+0.005*A(206)+0.001*A(207)+0.024*A(208)+0.127*A(210)+0.045*A(211)+0.102*A(212) - Vdot(47) = 2*A(13)+A(25)-A(27)-A(28)+0.2*A(39)+A(129)+A(132)+A(135)+A(149)+A(152)+A(155)+A(157)+A(158)+A(161)+0.5& - &*A(164)+0.15*A(173)-A(223) - Vdot(48) = -A(186)-A(187)-A(188)-A(189) - Vdot(49) = -A(146)-A(147)-A(148)-A(149)+0.23*A(154)+0.15*A(171)+0.023*A(172)+A(180)+0.5*A(182)+0.5*A(184)+0.009*A(189)& - &+0.001*A(195)+0.607*A(200)+0.118*A(204)+0.097*A(205) - Vdot(50) = -A(215)-A(216)-A(217)-A(218) - Vdot(51) = A(92)+A(94)+A(99)+A(100)+2*A(101)+A(113)-A(117)-A(118)-A(119)+0.24*A(154)+A(155)+0.24*A(156)+A(157) - Vdot(52) = -A(190)-A(191)-A(192)-A(193) - Vdot(53) = -A(56)-A(57)-A(58)-A(59)-A(60)-A(67)-A(76)-A(86)+A(92)+A(94)-A(97)+A(99)+A(100)+2*A(101)-A(109)+A(113)& - &+A(136)+0.616*A(138)+0.675*A(167)+0.515*A(176)+0.596*A(177)+0.152*A(178)+A(181)+A(182)+A(183)+A(184)+0.079& - &*A(190)+0.126*A(191)+0.187*A(192)+0.24*A(193)+0.5*A(194)+0.729*A(195)+0.75*A(196)+0.559*A(201)+0.936*A(202)& - &+0.948*A(203)+0.205*A(206)+0.488*A(208)+0.001*A(210)+0.137*A(211)+0.711*A(212) - Vdot(54) = -A(194)-A(195)-A(196)-A(197) - Vdot(55) = -A(162)-A(163)-A(164)-A(165)-A(166)+0.23*A(190)+0.39*A(191)+0.025*A(210)+0.026*A(211)+0.012*A(213) - Vdot(56) = -A(206)-A(207)-A(208)-A(209) - Vdot(57) = -A(171)-A(172)-A(173)-A(174)+0.357*A(190)+0.936*A(192)+0.025*A(210) - Vdot(58) = -A(210)-A(211)-A(212)-A(213) - Vdot(59) = -A(167)-A(168)-A(169)-A(170)+0.32*A(190)+0.16*A(191)+0.019*A(211)+0.048*A(212) - Vdot(60) = A(81)+A(83)+A(88)+2*A(89)+A(100)+A(112)-A(130)-A(131)-A(132)+0.034*A(133)+A(134)+0.482*A(138)+A(139)+0.96& - &*A(141)+0.129*A(171)+0.047*A(172)+0.467*A(174)+0.084*A(175)+0.246*A(176)+0.439*A(177)+0.431*A(178)+0.195& - &*A(186)+0.25*A(189)+A(198)+0.445*A(201)+0.455*A(202)+0.099*A(203)+0.294*A(206)+0.154*A(207)+0.009*A(208)& - &+0.732*A(210)+0.456*A(211)+0.507*A(212)+0.984*A(215)+0.5*A(216) - Vdot(61) = A(46)+A(48)+A(49)+2*A(50)+0.75*A(54)+0.75*A(64)+A(74)+A(84)+A(95)+A(104)+A(106)+A(107)+A(111)+A(112)+A(113)& - &+2*A(114)-A(123)-A(124)-A(125)-A(126)+A(127)-A(129)+A(136)+0.115*A(138)+A(140)+0.081*A(141)+0.35*A(142)& - &+A(143)+A(147)+0.084*A(162)+0.2*A(163)+0.67*A(166)+0.3*A(167)+0.1*A(168)+0.055*A(171)+0.125*A(172)+0.227& - &*A(173)+0.3*A(174)+0.213*A(175)+0.506*A(176)+0.01*A(177)+0.134*A(178)+1.61*A(186)+A(187)+0.191*A(189)+0.624& - &*A(190)+0.592*A(191)+0.24*A(193)+0.276*A(194)+0.235*A(195)+0.096*A(200)+0.026*A(201)+0.024*A(202)+0.026& - &*A(203)+0.732*A(206)+0.5*A(207)+0.244*A(210)+0.269*A(211)+0.079*A(212)+0.984*A(215)+0.5*A(216) - Vdot(62) = A(62)+A(115)+0.572*A(173)-0.69*A(177)-A(178)+0.276*A(196)+0.511*A(208)+0.321*A(212) - Vdot(63) = A(1)-A(2)-A(3)-A(4)-A(5)-A(6)+A(16)+A(17)+A(20)-A(165)-A(169)-A(189)-A(193)-A(197)-A(209)-A(213)-A(218) - Vdot(64) = -A(133)-A(134)-A(135)+0.37*A(138)+A(144)+A(145)+A(165)+0.675*A(167)+0.45*A(169)+0.013*A(171)+0.218*A(173)& - &+0.558*A(175)+0.71*A(176)+0.213*A(177)+0.147*A(178)+A(179)+A(181)+A(183)+A(188)+0.474*A(194)+0.205*A(195)& - &+0.474*A(196)+0.147*A(197)+0.261*A(199)+0.122*A(201)+0.244*A(202)+0.204*A(203)+0.497*A(206)+0.363*A(207)& - &+0.037*A(208)+0.45*A(209)+0.511*A(210)+0.305*A(211)+0.151*A(212)+0.069*A(213)+0.45*A(218) - Vdot(65) = 0.5*A(64)+A(65)+0.5*A(66)+A(68)-A(138)-A(139)+0.416*A(162)+0.55*A(169)+0.15*A(171)+0.21*A(172)+0.233*A(174)& - &+0.115*A(175)+0.177*A(177)+0.243*A(178)+0.332*A(201)+0.11*A(202)+0.089*A(203)+0.437*A(209)+0.072*A(210)& - &+0.026*A(211)+0.001*A(212)+0.659*A(213)+0.55*A(218) - Vdot(66) = 0.5*A(64)+0.5*A(66)+A(68)+A(77)+A(87)+A(98)+0.7*A(170)+0.332*A(171)-0.671*A(175)-A(176)+0.048*A(177)+0.435& - &*A(178)+0.1*A(191)+0.75*A(193)+0.276*A(194)+0.276*A(195)+0.853*A(197)+0.125*A(202)+0.417*A(203)+0.055*A(204)& - &+0.119*A(206)+0.215*A(207)+0.113*A(209)+0.043*A(211)+0.259*A(213) - Vdot(67) = A(2)-A(3)-A(7)-A(8)-A(17)-A(18)-A(30)-A(36)+0.25*A(72)+0.25*A(82)+0.25*A(93)+0.25*A(105)-A(163)-A(168)& - &-A(172)-A(180)-A(187)-A(191)-A(195)-A(207)-A(211)-A(214)-A(216) - Vdot(68) = -A(69)+A(70)-A(71)-A(72)-A(73)-A(74)-A(75)-A(77)-2*A(78)-A(88)-A(99)+A(104)+A(106)+A(112)+A(113)+2*A(114)& - &+A(130)+A(132)+A(136)+A(137)+0.492*A(138)+A(139)+A(150)+A(151)+A(152)+2*A(153)+0.67*A(166)+0.675*A(167)& - &+0.467*A(174)+0.029*A(175)+0.667*A(176)+A(181)+0.5*A(182)+A(183)+0.5*A(184)+0.123*A(195)+0.011*A(202)+0.137& - &*A(211) - Vdot(69) = -A(62)-A(63)-A(64)-A(65)-A(66)-2*A(68)-A(77)-A(87)-A(98)-A(110)+0.001*A(133)+0.042*A(138)+0.025*A(167)& - &+0.041*A(171)+0.051*A(173)+0.07*A(175)+0.04*A(176)+0.173*A(177)+0.095*A(178)+0.093*A(190)+0.008*A(191)+0.064& - &*A(192)+0.01*A(193)+0.25*A(194)+0.18*A(195)+0.25*A(196)+0.035*A(199)+0.07*A(201)+0.143*A(202)+0.347*A(203)& - &+0.011*A(204)+0.009*A(205)+0.09*A(206)+0.001*A(207)+0.176*A(208)+0.082*A(210)+0.002*A(211)+0.136*A(212)& - &+0.001*A(213)+0.016*A(215)+0.051*A(217) - Vdot(70) = -A(102)+A(103)-A(104)-A(105)-A(106)-A(107)-A(108)-A(110)-A(111)-A(112)-A(113)-2*A(114)+0.5*A(162)+0.5& - &*A(164)+0.33*A(166)+0.3*A(170)+0.289*A(171)+0.15*A(173)+0.192*A(191)+0.24*A(193) - Vdot(71) = 2*A(19)-A(21)+A(22)-A(24)-A(25)-A(26)-A(27)+A(28)-A(29)-A(30)+A(31)+0.39*A(34)-A(35)+A(36)+0.8*A(39)+2& - &*A(41)-A(42)-A(43)-A(44)-A(45)-A(125)-A(130)-A(133)-A(136)-A(138)-A(140)-A(141)-0.65*A(142)+A(143)-0.34& - &*A(144)+A(145)-A(148)-A(151)-A(154)-A(156)-A(159)-A(162)+0.208*A(163)+0.33*A(166)-A(167)+0.164*A(168)-A(171)& - &+0.285*A(172)-A(175)-A(177)-A(179)+0.5*A(180)-A(181)-A(183)-A(185)-A(186)+0.12*A(187)-A(190)+0.266*A(191)& - &-A(194)+0.567*A(195)-A(198)-A(199)-0.397*A(200)-A(201)-A(202)-A(203)-A(204)-A(205)-A(206)+0.155*A(207)& - &-A(210)+0.378*A(211)+0.5*A(214)-A(215)+0.32*A(216) - Vdot(72) = -A(79)+A(80)-A(81)-A(82)-A(83)-A(84)-A(85)-A(87)-A(88)-2*A(89)-A(100)-A(112)+0.965*A(133)+A(135)+0.096& - &*A(138)+0.37*A(148)+0.37*A(149)+0.1*A(163)+0.05*A(168)+0.048*A(172)+0.3*A(174)+0.049*A(175)+0.333*A(176)& - &+0.201*A(195)+0.006*A(211) - Vdot(73) = A(1)-A(4)+A(5)-A(7)-A(9)-2*A(10)+A(14)+A(15)-A(21)+A(22)-A(31)-A(46)-A(51)-A(56)-A(62)-A(71)-A(81)-A(92)& - &-A(104)-A(128) - Vdot(74) = -A(1)+A(4)-A(5)-A(6)+A(7)-A(8)+2*A(9)+2*A(10)-A(11)+A(12)+A(16)+A(23)+A(24)-A(25)+A(26)+A(28)+A(31)-A(32)& - &+A(33)+0.61*A(34)+A(35)+0.8*A(39)+2*A(40)+A(46)+A(48)+A(51)+A(53)+A(56)+A(58)+A(65)-A(69)+A(70)+A(71)+A(73)& - &-A(79)+A(80)+A(81)+A(83)-A(90)+A(91)+A(92)+A(94)-A(102)+A(103)+A(104)+A(106)-A(115)-A(117)-A(120)+A(128)& - &+0.338*A(177)+A(178)+0.187*A(192)+0.474*A(196)+0.391*A(212) - Vdot(75) = A(6)+A(8)-A(9)-A(11)+A(12)-A(14)-A(15)-A(16)-A(26)+A(27)+0.39*A(34)-A(39)-2*A(40)-A(48)-A(53)-A(58)-A(65)& - &-A(73)-A(83)-A(94)-A(106)-A(129)-A(132)-A(135)-A(149)-A(152)-A(155)-A(157)-A(158)-A(161)-A(164)-A(173)& - &-A(188)-A(192)-A(196)-A(208)-A(212)-A(217) - Vdot(76) = -A(46)-A(47)-A(48)-2*A(49)-2*A(50)-A(54)-A(64)+A(71)+A(73)-A(74)+2*A(78)-A(84)+A(88)-A(95)+A(99)-A(107)& - &+A(111)+A(116)+A(131)+A(137)+0.65*A(142)+0.3*A(170)+A(185)+0.3*A(189)+0.25*A(193)+0.011*A(202)+0.076*A(207)& - &+0.197*A(211)+0.03*A(212)+0.26*A(216) - Vdot(77) = -A(51)-A(52)-A(53)-A(54)-2*A(55)-A(66)-A(75)+A(81)+A(83)-A(85)+A(88)+2*A(89)-A(96)+A(100)-A(108)+A(112)& - &+0.034*A(133)+A(134)+0.37*A(138)+A(139)+0.05*A(141)+0.34*A(144)+0.76*A(154)+0.76*A(156)+0.5*A(162)+0.1& - &*A(163)+0.5*A(164)+0.33*A(166)+0.3*A(167)+0.05*A(168)+0.67*A(171)+0.048*A(172)+0.799*A(173)+0.473*A(175)& - &+0.96*A(176)+0.376*A(177)+0.564*A(178)+A(179)+A(182)+A(184)+A(186)+A(188)+0.2*A(189)+0.907*A(190)+0.066& - &*A(191)+0.749*A(192)+0.75*A(194)+0.031*A(195)+0.276*A(196)+A(198)+0.965*A(199)+0.1*A(200)+0.695*A(201)+0.835& - &*A(202)+0.653*A(203)+0.765*A(204)+0.804*A(205)+0.91*A(206)+0.022*A(207)+0.824*A(208)+0.918*A(210)+0.033& - &*A(211)+0.442*A(212)+0.012*A(213)+0.984*A(215)+0.949*A(217) - Vdot(78) = A(23)+A(26)+A(29)+A(30)-A(31)-A(32)+A(33)+0.61*A(34)-A(36)-2*A(37)-2*A(38)-A(39)+A(42)-A(43)+A(44)+A(45)& - &+A(46)-A(47)+A(48)+2*A(50)+A(51)-A(52)+A(53)+A(54)+A(55)-A(63)+A(64)+A(65)+A(66)+A(68)-A(72)-A(82)-A(93)& - &-A(105)-A(118)-A(121)+2*A(123)+A(125)-A(126)+A(127)+A(128)+A(129)+A(131)+A(134)+A(140)+0.95*A(141)+A(143)& - &+A(145)+2*A(146)+0.63*A(148)+0.63*A(149)+A(150)+0.008*A(163)+0.34*A(166)+0.064*A(168)+0.4*A(172)+1.233& - &*A(174)+0.379*A(175)+0.113*A(177)+0.341*A(178)+1.5*A(180)+0.5*A(182)+0.5*A(184)+0.12*A(187)+0.5*A(189)+0.033& - &*A(195)+0.297*A(200)+0.224*A(204)+0.187*A(205)+0.056*A(207)+0.003*A(211)+0.013*A(213)+1.5*A(214)+0.06*A(216)& - &-A(220) - Vdot(79) = -A(90)+A(91)-A(92)-A(93)-A(94)-A(95)-A(96)-A(98)-A(99)-A(100)-2*A(101)-A(113)+A(159)+A(161) - -END SUBROUTINE Fun - -! End of Fun function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE SAPRC99_Function - diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Function.o b/boxmox/compiled_mechs/SAPRC99/SAPRC99_Function.o deleted file mode 100644 index 58a6a06dfee1edeac2f970de4eba1527c4b4114a..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Function.o and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Global.f90 b/boxmox/compiled_mechs/SAPRC99/SAPRC99_Global.f90 deleted file mode 100644 index 33f2f43111e29ac806bb180b2c8e02250759c042..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Global.f90 +++ /dev/null @@ -1,128 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Global Data Module File -! -! Generated by KPP-2.2.3 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 : SAPRC99_Global.f90 -! Time : Thu Oct 8 08:22:39 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_SAPRC99_30885_BOXMOX -! Equation file : SAPRC99.kpp -! Output root filename : SAPRC99 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE SAPRC99_Global - - USE SAPRC99_Parameters, ONLY: dp, NSPEC, NVAR, NFIX, NREACT, LU_NONZERO - PUBLIC - SAVE - - -! Declaration of global variables - -! C - Concentration of all species - REAL(kind=dp) :: C(NSPEC) -! VAR - Concentrations of variable species (global) - REAL(kind=dp) :: VAR(NVAR) -! FIX - Concentrations of fixed species (global) - REAL(kind=dp) :: FIX(NFIX) -! VAR, FIX are chunks of array C - EQUIVALENCE( C(1),VAR(1) ) - EQUIVALENCE( C(80),FIX(1) ) -! RCONST - Rate constants (global) - REAL(kind=dp) :: RCONST(NREACT) -! TIME - Current integration time - REAL(kind=dp) :: TIME -! SUN - Sunlight intensity between [0,1] - REAL(kind=dp) :: SUN -! TEMP - Temperature - REAL(kind=dp) :: TEMP -! RTOLS - (scalar) Relative tolerance - REAL(kind=dp) :: RTOLS -! TSTART - Integration start time - REAL(kind=dp) :: TSTART -! TEND - Integration end time - REAL(kind=dp) :: TEND -! DT - Integration step - REAL(kind=dp) :: DT -! ATOL - Absolute tolerance - REAL(kind=dp) :: ATOL(NVAR) -! RTOL - Relative tolerance - REAL(kind=dp) :: RTOL(NVAR) -! STEPMIN - Lower bound for integration step - REAL(kind=dp) :: STEPMIN -! STEPMAX - Upper bound for integration step - REAL(kind=dp) :: STEPMAX -! CFACTOR - Conversion factor for concentration units - REAL(kind=dp) :: CFACTOR - -! INLINED global variable declarations - - - ! BOXMOX global variables - - ! Parameters - INTEGER, PARAMETER :: max_species_boxmox = 10000 ! maximum number of species - ! read in - INTEGER, PARAMETER :: max_jhash_boxmox = 10000 ! maximum hash value of - ! photolysis rate labels - - ! Configuration - LOGICAL :: lverbose ! verbose output? - LOGICAL :: llibrary ! library version? - - - ! State definition - REAL(KIND=dp) :: pres ! pressure [Pa] - ! temperature variable temp [K] defined in KPP already - REAL(KIND=dp) :: dxdydz(3), dxdydz_old(3) ! box dimensions (x,y,z) - ! [m] - - ! Turbulent mixing - INTEGER :: iturb ! type of mixing - INTEGER, PARAMETER :: TURB_OPT_NONE = 0, & ! no turbulent mixing - TURB_OPT_SPECIFIED = 1, & ! using specified Kturb - TURB_OPT_VOLUME = 2, & ! using volume changes - TURB_OPT_TRACER = 3 ! using tracer conc. - REAL(KIND=dp) :: Kturb ! eddy diffusivity [m2 s-1] - - ! Photolysis rates - REAL(KIND=dp) :: jvalues(max_jhash_boxmox) ! Photolysis rate [s-1] - - ! Aerosol - REAL(KIND=dp) :: AER_R, & ! particle radius [m] - AER_SAD ! surface area density - ! [m^2 m^-3] - - ! Steady-state modeling - LOGICAL :: lfix_nox ! fix total NOx? - REAL(kind=dp) :: initial_total_nox ! total NOx to fix - - - - ! global variables used by special rate constants of this mechanism - - ! air/water concentration (molecules/cm3) - REAL(KIND=dp) :: c_m, c_h2o - ! relative humidity - REAL(KIND=dp) :: rh - - REAL(KIND=dp) :: rc_n2o5 - - -! INLINED global variable declarations - - -END MODULE SAPRC99_Global - diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Global.o b/boxmox/compiled_mechs/SAPRC99/SAPRC99_Global.o deleted file mode 100644 index 8ea5effa3b9bbdb98cffd60bbb77800947071fe6..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Global.o and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Initialize.f90 b/boxmox/compiled_mechs/SAPRC99/SAPRC99_Initialize.f90 deleted file mode 100644 index 8bfdb6993121e790769a72954b1b4f9bb7837a34..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Initialize.f90 +++ /dev/null @@ -1,124 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Initialization File -! -! Generated by KPP-2.2.3 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 : SAPRC99_Initialize.f90 -! Time : Thu Oct 8 08:22:39 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_SAPRC99_30885_BOXMOX -! Equation file : SAPRC99.kpp -! Output root filename : SAPRC99 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE SAPRC99_Initialize - - USE SAPRC99_Parameters, ONLY: dp, NVAR, NFIX - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Initialize - function to initialize concentrations -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Initialize ( ) - - - USE SAPRC99_Global - - USE SAPRC99_Util - - INTEGER :: i - REAL(kind=dp) :: x - - CFACTOR = 1.000000e+00_dp - - x = (1.0E-9)*CFACTOR - DO i = 1, NVAR - VAR(i) = x - END DO - - x = (1.0E-9)*CFACTOR - DO i = 1, NFIX - FIX(i) = x - END DO - -! constant rate coefficients -! END constant rate coefficients - -! INLINED initializations - - - IF (.NOT. llibrary) THEN - - ! Write version number to VERSION file - CALL writeVersion() - - ! Initialization (time step, run length, etc.) happening - ! in namelist BOXMOX.nml. Read it! - CALL readConfig() - - ENDIF - - ! Check configuration values - CALL checkConfig() - - - - ! BOXMOX defaults for global variables - - ! Environment.csv - temp = 293.15 ! K - pres = 101325.0 ! Pa - dxdydz(:) = 1.0 ! m - - ! Aerosol.csv - AER_SAD = 0.0 ! m^2 m^-3 - AER_R = 1.0e-6 ! m - - ! Turbulent mixing - Kturb = 0.0 ! m2 s-1 - - - - ! 1E-03 * (1.0/28.97) * 6.022e23 * air density - c_m = 2.078702e+19 * 1.25 - - ! 1E-03 * (1.0/18.02) * 6.022e23 * air density, then times kg(water)/kg(air) - c_h2o = 3.341842e+19 * 1.25 * 0.010 - - ! relative humidity (not really used...) - rh = 0.5 - - ! n2o5 rate const - rc_n2o5 = 1e-30 - - -! End INLINED initializations - - -END SUBROUTINE Initialize - -! End of Initialize function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE SAPRC99_Initialize - diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Initialize.o b/boxmox/compiled_mechs/SAPRC99/SAPRC99_Initialize.o deleted file mode 100644 index 2526a64972a58511c548c33a998ae4d8683339db..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Initialize.o and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Integrator.f90 b/boxmox/compiled_mechs/SAPRC99/SAPRC99_Integrator.f90 deleted file mode 100644 index 511ab8ce326627e37f66f49364a363462c1ab830..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Integrator.f90 +++ /dev/null @@ -1,1365 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Numerical Integrator (Time-Stepping) File -! -! Generated by KPP-2.2.3 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 : SAPRC99_Integrator.f90 -! Time : Thu Oct 8 08:22:39 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_SAPRC99_30885_BOXMOX -! Equation file : SAPRC99.kpp -! Output root filename : SAPRC99 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! INTEGRATE - Integrator routine -! Arguments : -! TIN - Start Time for Integration -! TOUT - End Time for Integration -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! -! Rosenbrock - Implementation of several Rosenbrock methods: ! -! * Ros2 ! -! * Ros3 ! -! * Ros4 ! -! * Rodas3 ! -! * Rodas4 ! -! By default the code employs the KPP sparse linear algebra routines ! -! Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK) ! -! ! -! (C) Adrian Sandu, August 2004 ! -! Virginia Polytechnic Institute and State University ! -! Contact: sandu@cs.vt.edu ! -! Revised by Philipp Miehe and Adrian Sandu, May 2006 ! ! -! This implementation is part of KPP - the Kinetic PreProcessor ! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! - -MODULE SAPRC99_Integrator - - USE SAPRC99_Parameters, ONLY: NVAR, NFIX, NSPEC, LU_NONZERO - USE SAPRC99_Global - IMPLICIT NONE - PUBLIC - SAVE - -!~~~> Statistics on the work performed by the Rosenbrock method - INTEGER, PARAMETER :: Nfun=1, Njac=2, Nstp=3, Nacc=4, & - Nrej=5, Ndec=6, Nsol=7, Nsng=8, & - Ntexit=1, Nhexit=2, Nhnew = 3 - -CONTAINS - -SUBROUTINE INTEGRATE( TIN, TOUT, & - ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U, IERR_U ) - - IMPLICIT NONE - - REAL(kind=dp), INTENT(IN) :: TIN ! Start Time - REAL(kind=dp), INTENT(IN) :: TOUT ! End Time - ! Optional input parameters and statistics - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - REAL(kind=dp), INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - REAL(kind=dp), INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: IERR_U - - REAL(kind=dp) :: RCNTRL(20), RSTATUS(20) - INTEGER :: ICNTRL(20), ISTATUS(20), IERR - - INTEGER, SAVE :: Ntotal = 0 - - ICNTRL(:) = 0 - RCNTRL(:) = 0.0_dp - ISTATUS(:) = 0 - RSTATUS(:) = 0.0_dp - - !~~~> fine-tune the integrator: - ICNTRL(1) = 0 ! 0 - non-autonomous, 1 - autonomous - ICNTRL(2) = 0 ! 0 - vector tolerances, 1 - scalars - - ! If optional parameters are given, and if they are >0, - ! then they overwrite default settings. - IF (PRESENT(ICNTRL_U)) THEN - WHERE(ICNTRL_U(:) > 0) ICNTRL(:) = ICNTRL_U(:) - END IF - IF (PRESENT(RCNTRL_U)) THEN - WHERE(RCNTRL_U(:) > 0) RCNTRL(:) = RCNTRL_U(:) - END IF - - - CALL Rosenbrock(NVAR,VAR,TIN,TOUT, & - ATOL,RTOL, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) - - !~~~> Debug option: show no of steps - ! Ntotal = Ntotal + ISTATUS(Nstp) - ! PRINT*,'NSTEPS=',ISTATUS(Nstp),' (',Ntotal,')',' O3=', VAR(ind_O3) - - STEPMIN = RSTATUS(Nhexit) - ! if optional parameters are given for output they - ! are updated with the return information - IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(:) - IF (PRESENT(RSTATUS_U)) RSTATUS_U(:) = RSTATUS(:) - IF (PRESENT(IERR_U)) IERR_U = IERR - -END SUBROUTINE INTEGRATE - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE Rosenbrock(N,Y,Tstart,Tend, & - AbsTol,RelTol, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Solves the system y'=F(t,y) using a Rosenbrock method defined by: -! -! G = 1/(H*gamma(1)) - Jac(t0,Y0) -! T_i = t0 + Alpha(i)*H -! Y_i = Y0 + \sum_{j=1}^{i-1} A(i,j)*K_j -! G * K_i = Fun( T_i, Y_i ) + \sum_{j=1}^S C(i,j)/H * K_j + -! gamma(i)*dF/dT(t0, Y0) -! Y1 = Y0 + \sum_{j=1}^S M(j)*K_j -! -! For details on Rosenbrock methods and their implementation consult: -! E. Hairer and G. Wanner -! "Solving ODEs II. Stiff and differential-algebraic problems". -! Springer series in computational mathematics, Springer-Verlag, 1996. -! The codes contained in the book inspired this implementation. -! -! (C) Adrian Sandu, August 2004 -! Virginia Polytechnic Institute and State University -! Contact: sandu@cs.vt.edu -! Revised by Philipp Miehe and Adrian Sandu, May 2006 -! This implementation is part of KPP - the Kinetic PreProcessor -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT ARGUMENTS: -! -!- Y(N) = vector of initial conditions (at T=Tstart) -!- [Tstart,Tend] = time range of integration -! (if Tstart>Tend the integration is performed backwards in time) -!- RelTol, AbsTol = user precribed accuracy -!- SUBROUTINE Fun( T, Y, Ydot ) = ODE function, -! returns Ydot = Y' = F(T,Y) -!- SUBROUTINE Jac( T, Y, Jcb ) = Jacobian of the ODE function, -! returns Jcb = dFun/dY -!- ICNTRL(1:20) = integer inputs parameters -!- RCNTRL(1:20) = real inputs parameters -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT ARGUMENTS: -! -!- Y(N) -> vector of final states (at T->Tend) -!- ISTATUS(1:20) -> integer output parameters -!- RSTATUS(1:20) -> real output parameters -!- IERR -> job status upon return -! success (positive value) or -! failure (negative value) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT PARAMETERS: -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -! ICNTRL(1) = 1: F = F(y) Independent of T (AUTONOMOUS) -! = 0: F = F(t,y) Depends on T (NON-AUTONOMOUS) -! -! ICNTRL(2) = 0: AbsTol, RelTol are N-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ICNTRL(3) -> selection of a particular Rosenbrock method -! = 0 : Rodas3 (default) -! = 1 : Ros2 -! = 2 : Ros3 -! = 3 : Ros4 -! = 4 : Rodas3 -! = 5 : Rodas4 -! -! ICNTRL(4) -> maximum number of integration steps -! For ICNTRL(4)=0) the default value of 100000 is used -! -! RCNTRL(1) -> Hmin, lower bound for the integration step size -! It is strongly recommended to keep Hmin = ZERO -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! RCNTRL(3) -> Hstart, starting value for the integration step size -! -! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! RCNTRL(5) -> FacMax, upper bound on step increase factor (default=6) -! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! -! OUTPUT ARGUMENTS: -! ----------------- -! -! T -> T value for which the solution has been computed -! (after successful return T=Tend). -! -! Y(N) -> Numerical solution at T -! -! IDID -> Reports on successfulness upon return: -! = 1 for success -! < 0 for error (value equals error code) -! -! ISTATUS(1) -> No. of function calls -! ISTATUS(2) -> No. of jacobian calls -! ISTATUS(3) -> No. of steps -! ISTATUS(4) -> No. of accepted steps -! ISTATUS(5) -> No. of rejected steps (except at very beginning) -! ISTATUS(6) -> No. of LU decompositions -! ISTATUS(7) -> No. of forward/backward substitutions -! ISTATUS(8) -> No. of singular matrix decompositions -! -! RSTATUS(1) -> Texit, the time corresponding to the -! computed Y upon return -! RSTATUS(2) -> Hexit, last accepted step before exit -! RSTATUS(3) -> Hnew, last predicted step (not yet taken) -! For multiple restarts, use Hnew as Hstart -! in the subsequent run -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE SAPRC99_Parameters - USE SAPRC99_LinearAlgebra - IMPLICIT NONE - -!~~~> Arguments - INTEGER, INTENT(IN) :: N - REAL(kind=dp), INTENT(INOUT) :: Y(N) - REAL(kind=dp), INTENT(IN) :: Tstart,Tend - REAL(kind=dp), INTENT(IN) :: AbsTol(N),RelTol(N) - INTEGER, INTENT(IN) :: ICNTRL(20) - REAL(kind=dp), INTENT(IN) :: RCNTRL(20) - INTEGER, INTENT(INOUT) :: ISTATUS(20) - REAL(kind=dp), INTENT(INOUT) :: RSTATUS(20) - INTEGER, INTENT(OUT) :: IERR -!~~~> Parameters of the Rosenbrock method, up to 6 stages - INTEGER :: ros_S, rosMethod - INTEGER, PARAMETER :: RS2=1, RS3=2, RS4=3, RD3=4, RD4=5, RG3=6 - REAL(kind=dp) :: ros_A(15), ros_C(15), ros_M(6), ros_E(6), & - ros_Alpha(6), ros_Gamma(6), ros_ELO - LOGICAL :: ros_NewF(6) - CHARACTER(LEN=12) :: ros_Name -!~~~> Local variables - REAL(kind=dp) :: Roundoff, FacMin, FacMax, FacRej, FacSafe - REAL(kind=dp) :: Hmin, Hmax, Hstart - REAL(kind=dp) :: Texit - INTEGER :: i, UplimTol, Max_no_steps - LOGICAL :: Autonomous, VectorTol -!~~~> Parameters - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp - REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp - -!~~~> Initialize statistics - ISTATUS(1:8) = 0 - RSTATUS(1:3) = ZERO - -!~~~> Autonomous or time dependent ODE. Default is time dependent. - Autonomous = .NOT.(ICNTRL(1) == 0) - -!~~~> For Scalar tolerances (ICNTRL(2).NE.0) the code uses AbsTol(1) and RelTol(1) -! For Vector tolerances (ICNTRL(2) == 0) the code uses AbsTol(1:N) and RelTol(1:N) - IF (ICNTRL(2) == 0) THEN - VectorTol = .TRUE. - UplimTol = N - ELSE - VectorTol = .FALSE. - UplimTol = 1 - END IF - -!~~~> Initialize the particular Rosenbrock method selected - SELECT CASE (ICNTRL(3)) - CASE (1) - CALL Ros2 - CASE (2) - CALL Ros3 - CASE (3) - CALL Ros4 - CASE (0,4) - CALL Rodas3 - CASE (5) - CALL Rodas4 - CASE (6) - CALL Rang3 - CASE DEFAULT - PRINT * , 'Unknown Rosenbrock method: ICNTRL(3)=',ICNTRL(3) - CALL ros_ErrorMsg(-2,Tstart,ZERO,IERR) - RETURN - END SELECT - -!~~~> The maximum number of steps admitted - IF (ICNTRL(4) == 0) THEN - Max_no_steps = 200000 - ELSEIF (ICNTRL(4) > 0) THEN - Max_no_steps=ICNTRL(4) - ELSE - PRINT * ,'User-selected max no. of steps: ICNTRL(4)=',ICNTRL(4) - CALL ros_ErrorMsg(-1,Tstart,ZERO,IERR) - RETURN - END IF - -!~~~> Unit roundoff (1+Roundoff>1) - Roundoff = WLAMCH('E') - -!~~~> Lower bound on the step size: (positive value) - IF (RCNTRL(1) == ZERO) THEN - Hmin = ZERO - ELSEIF (RCNTRL(1) > ZERO) THEN - Hmin = RCNTRL(1) - ELSE - PRINT * , 'User-selected Hmin: RCNTRL(1)=', RCNTRL(1) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Upper bound on the step size: (positive value) - IF (RCNTRL(2) == ZERO) THEN - Hmax = ABS(Tend-Tstart) - ELSEIF (RCNTRL(2) > ZERO) THEN - Hmax = MIN(ABS(RCNTRL(2)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hmax: RCNTRL(2)=', RCNTRL(2) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Starting step size: (positive value) - IF (RCNTRL(3) == ZERO) THEN - Hstart = MAX(Hmin,DeltaMin) - ELSEIF (RCNTRL(3) > ZERO) THEN - Hstart = MIN(ABS(RCNTRL(3)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hstart: RCNTRL(3)=', RCNTRL(3) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Step size can be changed s.t. FacMin < Hnew/Hold < FacMax - IF (RCNTRL(4) == ZERO) THEN - FacMin = 0.2_dp - ELSEIF (RCNTRL(4) > ZERO) THEN - FacMin = RCNTRL(4) - ELSE - PRINT * , 'User-selected FacMin: RCNTRL(4)=', RCNTRL(4) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF - IF (RCNTRL(5) == ZERO) THEN - FacMax = 6.0_dp - ELSEIF (RCNTRL(5) > ZERO) THEN - FacMax = RCNTRL(5) - ELSE - PRINT * , 'User-selected FacMax: RCNTRL(5)=', RCNTRL(5) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacRej: Factor to decrease step after 2 succesive rejections - IF (RCNTRL(6) == ZERO) THEN - FacRej = 0.1_dp - ELSEIF (RCNTRL(6) > ZERO) THEN - FacRej = RCNTRL(6) - ELSE - PRINT * , 'User-selected FacRej: RCNTRL(6)=', RCNTRL(6) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacSafe: Safety Factor in the computation of new step size - IF (RCNTRL(7) == ZERO) THEN - FacSafe = 0.9_dp - ELSEIF (RCNTRL(7) > ZERO) THEN - FacSafe = RCNTRL(7) - ELSE - PRINT * , 'User-selected FacSafe: RCNTRL(7)=', RCNTRL(7) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Check if tolerances are reasonable - DO i=1,UplimTol - IF ( (AbsTol(i) <= ZERO) .OR. (RelTol(i) <= 10.0_dp*Roundoff) & - .OR. (RelTol(i) >= 1.0_dp) ) THEN - PRINT * , ' AbsTol(',i,') = ',AbsTol(i) - PRINT * , ' RelTol(',i,') = ',RelTol(i) - CALL ros_ErrorMsg(-5,Tstart,ZERO,IERR) - RETURN - END IF - END DO - - -!~~~> CALL Rosenbrock method - CALL ros_Integrator(Y, Tstart, Tend, Texit, & - AbsTol, RelTol, & -! Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -! Error indicator - IERR) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -CONTAINS ! SUBROUTINES internal to Rosenbrock -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_ErrorMsg(Code,T,H,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - REAL(kind=dp), INTENT(IN) :: T, H - INTEGER, INTENT(IN) :: Code - INTEGER, INTENT(OUT) :: IERR - - IERR = Code - PRINT * , & - 'Forced exit from Rosenbrock due to the following error:' - - SELECT CASE (Code) - CASE (-1) - PRINT * , '--> Improper value for maximal no of steps' - CASE (-2) - PRINT * , '--> Selected Rosenbrock method not implemented' - CASE (-3) - PRINT * , '--> Hmin/Hmax/Hstart must be positive' - CASE (-4) - PRINT * , '--> FacMin/FacMax/FacRej must be positive' - CASE (-5) - PRINT * , '--> Improper tolerance values' - CASE (-6) - PRINT * , '--> No of steps exceeds maximum bound' - CASE (-7) - PRINT * , '--> Step size too small: T + 10*H = T', & - ' or H < Roundoff' - CASE (-8) - PRINT * , '--> Matrix is repeatedly singular' - CASE DEFAULT - PRINT *, 'Unknown Error code: ', Code - END SELECT - - PRINT *, "T=", T, "and H=", H - - END SUBROUTINE ros_ErrorMsg - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Integrator (Y, Tstart, Tend, T, & - AbsTol, RelTol, & -!~~~> Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -!~~~> Error indicator - IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the implementation of a generic Rosenbrock method -! defined by ros_S (no of stages) -! and its coefficients ros_{A,C,M,E,Alpha,Gamma} -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - -!~~~> Input: the initial condition at Tstart; Output: the solution at T - REAL(kind=dp), INTENT(INOUT) :: Y(N) -!~~~> Input: integration interval - REAL(kind=dp), INTENT(IN) :: Tstart,Tend -!~~~> Output: time at which the solution is returned (T=Tend if success) - REAL(kind=dp), INTENT(OUT) :: T -!~~~> Input: tolerances - REAL(kind=dp), INTENT(IN) :: AbsTol(N), RelTol(N) -!~~~> Input: integration parameters - LOGICAL, INTENT(IN) :: Autonomous, VectorTol - REAL(kind=dp), INTENT(IN) :: Hstart, Hmin, Hmax - INTEGER, INTENT(IN) :: Max_no_steps - REAL(kind=dp), INTENT(IN) :: Roundoff, FacMin, FacMax, FacRej, FacSafe -!~~~> Output: Error indicator - INTEGER, INTENT(OUT) :: IERR -! ~~~~ Local variables - REAL(kind=dp) :: Ynew(N), Fcn0(N), Fcn(N) - REAL(kind=dp) :: K(N*ros_S), dFdT(N) -#ifdef FULL_ALGEBRA - REAL(kind=dp) :: Jac0(N,N), Ghimj(N,N) -#else - REAL(kind=dp) :: Jac0(LU_NONZERO), Ghimj(LU_NONZERO) -#endif - REAL(kind=dp) :: H, Hnew, HC, HG, Fac, Tau - REAL(kind=dp) :: Err, Yerr(N) - INTEGER :: Pivot(N), Direction, ioffset, j, istage - LOGICAL :: RejectLastH, RejectMoreH, Singular -!~~~> Local parameters - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp - REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp -!~~~> Locally called functions -! REAL(kind=dp) WLAMCH -! EXTERNAL WLAMCH -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~> Initial preparations - T = Tstart - RSTATUS(Nhexit) = ZERO - H = MIN( MAX(ABS(Hmin),ABS(Hstart)) , ABS(Hmax) ) - IF (ABS(H) <= 10.0_dp*Roundoff) H = DeltaMin - - IF (Tend >= Tstart) THEN - Direction = +1 - ELSE - Direction = -1 - END IF - H = Direction*H - - RejectLastH=.FALSE. - RejectMoreH=.FALSE. - -!~~~> Time loop begins below - -TimeLoop: DO WHILE ( (Direction > 0).AND.((T-Tend)+Roundoff <= ZERO) & - .OR. (Direction < 0).AND.((Tend-T)+Roundoff <= ZERO) ) - - IF ( ISTATUS(Nstp) > Max_no_steps ) THEN ! Too many steps - CALL ros_ErrorMsg(-6,T,H,IERR) - RETURN - END IF - IF ( ((T+0.1_dp*H) == T).OR.(H <= Roundoff) ) THEN ! Step size too small - CALL ros_ErrorMsg(-7,T,H,IERR) - RETURN - END IF - -!~~~> Limit H if necessary to avoid going beyond Tend - H = MIN(H,ABS(Tend-T)) - -!~~~> Compute the function at current time - CALL FunTemplate(T,Y,Fcn0) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - -!~~~> Compute the function derivative with respect to T - IF (.NOT.Autonomous) THEN - CALL ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) - END IF - -!~~~> Compute the Jacobian at current time - CALL JacTemplate(T,Y,Jac0) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - -!~~~> Repeat step calculation until current step accepted -UntilAccepted: DO - - CALL ros_PrepareMatrix(H,Direction,ros_Gamma(1), & - Jac0,Ghimj,Pivot,Singular) - IF (Singular) THEN ! More than 5 consecutive failed decompositions - CALL ros_ErrorMsg(-8,T,H,IERR) - RETURN - END IF - -!~~~> Compute the stages -Stage: DO istage = 1, ros_S - - ! Current istage offset. Current istage vector is K(ioffset+1:ioffset+N) - ioffset = N*(istage-1) - - ! For the 1st istage the function has been computed previously - IF ( istage == 1 ) THEN - !slim: CALL WCOPY(N,Fcn0,1,Fcn,1) - Fcn(1:N) = Fcn0(1:N) - ! istage>1 and a new function evaluation is needed at the current istage - ELSEIF ( ros_NewF(istage) ) THEN - !slim: CALL WCOPY(N,Y,1,Ynew,1) - Ynew(1:N) = Y(1:N) - DO j = 1, istage-1 - CALL WAXPY(N,ros_A((istage-1)*(istage-2)/2+j), & - K(N*(j-1)+1),1,Ynew,1) - END DO - Tau = T + ros_Alpha(istage)*Direction*H - CALL FunTemplate(Tau,Ynew,Fcn) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - END IF ! if istage == 1 elseif ros_NewF(istage) - !slim: CALL WCOPY(N,Fcn,1,K(ioffset+1),1) - K(ioffset+1:ioffset+N) = Fcn(1:N) - DO j = 1, istage-1 - HC = ros_C((istage-1)*(istage-2)/2+j)/(Direction*H) - CALL WAXPY(N,HC,K(N*(j-1)+1),1,K(ioffset+1),1) - END DO - IF ((.NOT. Autonomous).AND.(ros_Gamma(istage).NE.ZERO)) THEN - HG = Direction*H*ros_Gamma(istage) - CALL WAXPY(N,HG,dFdT,1,K(ioffset+1),1) - END IF - CALL ros_Solve(Ghimj, Pivot, K(ioffset+1)) - - END DO Stage - - -!~~~> Compute the new solution - !slim: CALL WCOPY(N,Y,1,Ynew,1) - Ynew(1:N) = Y(1:N) - DO j=1,ros_S - CALL WAXPY(N,ros_M(j),K(N*(j-1)+1),1,Ynew,1) - END DO - -!~~~> Compute the error estimation - !slim: CALL WSCAL(N,ZERO,Yerr,1) - Yerr(1:N) = ZERO - DO j=1,ros_S - CALL WAXPY(N,ros_E(j),K(N*(j-1)+1),1,Yerr,1) - END DO - Err = ros_ErrorNorm ( Y, Ynew, Yerr, AbsTol, RelTol, VectorTol ) - -!~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax - Fac = MIN(FacMax,MAX(FacMin,FacSafe/Err**(ONE/ros_ELO))) - Hnew = H*Fac - -!~~~> Check the error magnitude and adjust step size - ISTATUS(Nstp) = ISTATUS(Nstp) + 1 - IF ( (Err <= ONE).OR.(H <= Hmin) ) THEN !~~~> Accept step - ISTATUS(Nacc) = ISTATUS(Nacc) + 1 - !slim: CALL WCOPY(N,Ynew,1,Y,1) - Y(1:N) = Ynew(1:N) - T = T + Direction*H - Hnew = MAX(Hmin,MIN(Hnew,Hmax)) - IF (RejectLastH) THEN ! No step size increase after a rejected step - Hnew = MIN(Hnew,H) - END IF - RSTATUS(Nhexit) = H - RSTATUS(Nhnew) = Hnew - RSTATUS(Ntexit) = T - RejectLastH = .FALSE. - RejectMoreH = .FALSE. - H = Hnew - EXIT UntilAccepted ! EXIT THE LOOP: WHILE STEP NOT ACCEPTED - ELSE !~~~> Reject step - IF (RejectMoreH) THEN - Hnew = H*FacRej - END IF - RejectMoreH = RejectLastH - RejectLastH = .TRUE. - H = Hnew - IF (ISTATUS(Nacc) >= 1) ISTATUS(Nrej) = ISTATUS(Nrej) + 1 - END IF ! Err <= 1 - - END DO UntilAccepted - - END DO TimeLoop - -!~~~> Succesful exit - IERR = 1 !~~~> The integration was successful - - END SUBROUTINE ros_Integrator - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - REAL(kind=dp) FUNCTION ros_ErrorNorm ( Y, Ynew, Yerr, & - AbsTol, RelTol, VectorTol ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Computes the "scaled norm" of the error vector Yerr -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -! Input arguments - REAL(kind=dp), INTENT(IN) :: Y(N), Ynew(N), & - Yerr(N), AbsTol(N), RelTol(N) - LOGICAL, INTENT(IN) :: VectorTol -! Local variables - REAL(kind=dp) :: Err, Scale, Ymax - INTEGER :: i - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp - - Err = ZERO - DO i=1,N - Ymax = MAX(ABS(Y(i)),ABS(Ynew(i))) - IF (VectorTol) THEN - Scale = AbsTol(i)+RelTol(i)*Ymax - ELSE - Scale = AbsTol(1)+RelTol(1)*Ymax - END IF - Err = Err+(Yerr(i)/Scale)**2 - END DO - Err = SQRT(Err/N) - - ros_ErrorNorm = MAX(Err,1.0d-10) - - END FUNCTION ros_ErrorNorm - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> The time partial derivative of the function by finite differences -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -!~~~> Input arguments - REAL(kind=dp), INTENT(IN) :: T, Roundoff, Y(N), Fcn0(N) -!~~~> Output arguments - REAL(kind=dp), INTENT(OUT) :: dFdT(N) -!~~~> Local variables - REAL(kind=dp) :: Delta - REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, DeltaMin = 1.0E-6_dp - - Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T)) - CALL FunTemplate(T+Delta,Y,dFdT) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - CALL WAXPY(N,(-ONE),Fcn0,1,dFdT,1) - CALL WSCAL(N,(ONE/Delta),dFdT,1) - - END SUBROUTINE ros_FunTimeDerivative - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_PrepareMatrix ( H, Direction, gam, & - Jac0, Ghimj, Pivot, Singular ) -! --- --- --- --- --- --- --- --- --- --- --- --- --- -! Prepares the LHS matrix for stage calculations -! 1. Construct Ghimj = 1/(H*ham) - Jac0 -! "(Gamma H) Inverse Minus Jacobian" -! 2. Repeat LU decomposition of Ghimj until successful. -! -half the step size if LU decomposition fails and retry -! -exit after 5 consecutive fails -! --- --- --- --- --- --- --- --- --- --- --- --- --- - IMPLICIT NONE - -!~~~> Input arguments -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(IN) :: Jac0(N,N) -#else - REAL(kind=dp), INTENT(IN) :: Jac0(LU_NONZERO) -#endif - REAL(kind=dp), INTENT(IN) :: gam - INTEGER, INTENT(IN) :: Direction -!~~~> Output arguments -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(OUT) :: Ghimj(N,N) -#else - REAL(kind=dp), INTENT(OUT) :: Ghimj(LU_NONZERO) -#endif - LOGICAL, INTENT(OUT) :: Singular - INTEGER, INTENT(OUT) :: Pivot(N) -!~~~> Inout arguments - REAL(kind=dp), INTENT(INOUT) :: H ! step size is decreased when LU fails -!~~~> Local variables - INTEGER :: i, ISING, Nconsecutive - REAL(kind=dp) :: ghinv - REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, HALF = 0.5_dp - - Nconsecutive = 0 - Singular = .TRUE. - - DO WHILE (Singular) - -!~~~> Construct Ghimj = 1/(H*gam) - Jac0 -#ifdef FULL_ALGEBRA - !slim: CALL WCOPY(N*N,Jac0,1,Ghimj,1) - !slim: CALL WSCAL(N*N,(-ONE),Ghimj,1) - Ghimj = -Jac0 - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(i,i) = Ghimj(i,i)+ghinv - END DO -#else - !slim: CALL WCOPY(LU_NONZERO,Jac0,1,Ghimj,1) - !slim: CALL WSCAL(LU_NONZERO,(-ONE),Ghimj,1) - Ghimj(1:LU_NONZERO) = -Jac0(1:LU_NONZERO) - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(LU_DIAG(i)) = Ghimj(LU_DIAG(i))+ghinv - END DO -#endif -!~~~> Compute LU decomposition - CALL ros_Decomp( Ghimj, Pivot, ISING ) - IF (ISING == 0) THEN -!~~~> If successful done - Singular = .FALSE. - ELSE ! ISING .ne. 0 -!~~~> If unsuccessful half the step size; if 5 consecutive fails then return - ISTATUS(Nsng) = ISTATUS(Nsng) + 1 - Nconsecutive = Nconsecutive+1 - Singular = .TRUE. - PRINT*,'Warning: LU Decomposition returned ISING = ',ISING - IF (Nconsecutive <= 5) THEN ! Less than 5 consecutive failed decompositions - H = H*HALF - ELSE ! More than 5 consecutive failed decompositions - RETURN - END IF ! Nconsecutive - END IF ! ISING - - END DO ! WHILE Singular - - END SUBROUTINE ros_PrepareMatrix - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Decomp( A, Pivot, ISING ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the LU decomposition -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Inout variables -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(INOUT) :: A(N,N) -#else - REAL(kind=dp), INTENT(INOUT) :: A(LU_NONZERO) -#endif -!~~~> Output variables - INTEGER, INTENT(OUT) :: Pivot(N), ISING - -#ifdef FULL_ALGEBRA - CALL DGETRF( N, N, A, N, Pivot, ISING ) -#else - CALL KppDecomp ( A, ISING ) - Pivot(1) = 1 -#endif - ISTATUS(Ndec) = ISTATUS(Ndec) + 1 - - END SUBROUTINE ros_Decomp - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Solve( A, Pivot, b ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the forward/backward substitution (using pre-computed LU decomposition) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Input variables -#ifdef FULL_ALGEBRA - REAL(kind=dp), INTENT(IN) :: A(N,N) - INTEGER :: ISING -#else - REAL(kind=dp), INTENT(IN) :: A(LU_NONZERO) -#endif - INTEGER, INTENT(IN) :: Pivot(N) -!~~~> InOut variables - REAL(kind=dp), INTENT(INOUT) :: b(N) - -#ifdef FULL_ALGEBRA - CALL DGETRS( 'N', N , 1, A, N, Pivot, b, N, ISING ) - IF ( Info < 0 ) THEN - PRINT*,"Error in DGETRS. ISING=",ISING - END IF -#else - CALL KppSolve( A, b ) -#endif - - ISTATUS(Nsol) = ISTATUS(Nsol) + 1 - - END SUBROUTINE ros_Solve - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 2 stages, order 2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - DOUBLE PRECISION g - - g = 1.0_dp + 1.0_dp/SQRT(2.0_dp) - rosMethod = RS2 -!~~~> Name of the method - ros_Name = 'ROS-2' -!~~~> Number of stages - ros_S = 2 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = (1.0_dp)/g - ros_C(1) = (-2.0_dp)/g -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1)= (3.0_dp)/(2.0_dp*g) - ros_M(2)= (1.0_dp)/(2.0_dp*g) -! E_i = Coefficients for error estimator - ros_E(1) = 1.0_dp/(2.0_dp*g) - ros_E(2) = 1.0_dp/(2.0_dp*g) -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus one - ros_ELO = 2.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 1.0_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = g - ros_Gamma(2) =-g - - END SUBROUTINE Ros2 - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 3 stages, order 3, 2 function evaluations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - rosMethod = RS3 -!~~~> Name of the method - ros_Name = 'ROS-3' -!~~~> Number of stages - ros_S = 3 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1)= 1.0_dp - ros_A(2)= 1.0_dp - ros_A(3)= 0.0_dp - - ros_C(1) = -0.10156171083877702091975600115545E+01_dp - ros_C(2) = 0.40759956452537699824805835358067E+01_dp - ros_C(3) = 0.92076794298330791242156818474003E+01_dp -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.1E+01_dp - ros_M(2) = 0.61697947043828245592553615689730E+01_dp - ros_M(3) = -0.42772256543218573326238373806514_dp -! E_i = Coefficients for error estimator - ros_E(1) = 0.5_dp - ros_E(2) = -0.29079558716805469821718236208017E+01_dp - ros_E(3) = 0.22354069897811569627360909276199_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1)= 0.0_dp - ros_Alpha(2)= 0.43586652150845899941601945119356_dp - ros_Alpha(3)= 0.43586652150845899941601945119356_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1)= 0.43586652150845899941601945119356_dp - ros_Gamma(2)= 0.24291996454816804366592249683314_dp - ros_Gamma(3)= 0.21851380027664058511513169485832E+01_dp - - END SUBROUTINE Ros3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! L-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 4 STAGES -! L-STABLE EMBEDDED ROSENBROCK METHOD OF ORDER 3 -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1990) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RS4 -!~~~> Name of the method - ros_Name = 'ROS-4' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.2000000000000000E+01_dp - ros_A(2) = 0.1867943637803922E+01_dp - ros_A(3) = 0.2344449711399156_dp - ros_A(4) = ros_A(2) - ros_A(5) = ros_A(3) - ros_A(6) = 0.0_dp - - ros_C(1) =-0.7137615036412310E+01_dp - ros_C(2) = 0.2580708087951457E+01_dp - ros_C(3) = 0.6515950076447975_dp - ros_C(4) =-0.2137148994382534E+01_dp - ros_C(5) =-0.3214669691237626_dp - ros_C(6) =-0.6949742501781779_dp -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.2255570073418735E+01_dp - ros_M(2) = 0.2870493262186792_dp - ros_M(3) = 0.4353179431840180_dp - ros_M(4) = 0.1093502252409163E+01_dp -!~~~> E_i = Coefficients for error estimator - ros_E(1) =-0.2815431932141155_dp - ros_E(2) =-0.7276199124938920E-01_dp - ros_E(3) =-0.1082196201495311_dp - ros_E(4) =-0.1093502252409163E+01_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 0.1145640000000000E+01_dp - ros_Alpha(3) = 0.6552168638155900_dp - ros_Alpha(4) = ros_Alpha(3) -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5728200000000000_dp - ros_Gamma(2) =-0.1769193891319233E+01_dp - ros_Gamma(3) = 0.7592633437920482_dp - ros_Gamma(4) =-0.1049021087100450_dp - - END SUBROUTINE Ros4 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- A STIFFLY-STABLE METHOD, 4 stages, order 3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD3 -!~~~> Name of the method - ros_Name = 'RODAS-3' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.0_dp - ros_A(2) = 2.0_dp - ros_A(3) = 0.0_dp - ros_A(4) = 2.0_dp - ros_A(5) = 0.0_dp - ros_A(6) = 1.0_dp - - ros_C(1) = 4.0_dp - ros_C(2) = 1.0_dp - ros_C(3) =-1.0_dp - ros_C(4) = 1.0_dp - ros_C(5) =-1.0_dp - ros_C(6) =-(8.0_dp/3.0_dp) - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .FALSE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 2.0_dp - ros_M(2) = 0.0_dp - ros_M(3) = 1.0_dp - ros_M(4) = 1.0_dp -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0_dp - ros_E(2) = 0.0_dp - ros_E(3) = 0.0_dp - ros_E(4) = 1.0_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 0.0_dp - ros_Alpha(3) = 1.0_dp - ros_Alpha(4) = 1.0_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5_dp - ros_Gamma(2) = 1.5_dp - ros_Gamma(3) = 0.0_dp - ros_Gamma(4) = 0.0_dp - - END SUBROUTINE Rodas3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 6 STAGES -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1996) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD4 -!~~~> Name of the method - ros_Name = 'RODAS-4' -!~~~> Number of stages - ros_S = 6 - -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.000_dp - ros_Alpha(2) = 0.386_dp - ros_Alpha(3) = 0.210_dp - ros_Alpha(4) = 0.630_dp - ros_Alpha(5) = 1.000_dp - ros_Alpha(6) = 1.000_dp - -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.2500000000000000_dp - ros_Gamma(2) =-0.1043000000000000_dp - ros_Gamma(3) = 0.1035000000000000_dp - ros_Gamma(4) =-0.3620000000000023E-01_dp - ros_Gamma(5) = 0.0_dp - ros_Gamma(6) = 0.0_dp - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.1544000000000000E+01_dp - ros_A(2) = 0.9466785280815826_dp - ros_A(3) = 0.2557011698983284_dp - ros_A(4) = 0.3314825187068521E+01_dp - ros_A(5) = 0.2896124015972201E+01_dp - ros_A(6) = 0.9986419139977817_dp - ros_A(7) = 0.1221224509226641E+01_dp - ros_A(8) = 0.6019134481288629E+01_dp - ros_A(9) = 0.1253708332932087E+02_dp - ros_A(10) =-0.6878860361058950_dp - ros_A(11) = ros_A(7) - ros_A(12) = ros_A(8) - ros_A(13) = ros_A(9) - ros_A(14) = ros_A(10) - ros_A(15) = 1.0_dp - - ros_C(1) =-0.5668800000000000E+01_dp - ros_C(2) =-0.2430093356833875E+01_dp - ros_C(3) =-0.2063599157091915_dp - ros_C(4) =-0.1073529058151375_dp - ros_C(5) =-0.9594562251023355E+01_dp - ros_C(6) =-0.2047028614809616E+02_dp - ros_C(7) = 0.7496443313967647E+01_dp - ros_C(8) =-0.1024680431464352E+02_dp - ros_C(9) =-0.3399990352819905E+02_dp - ros_C(10) = 0.1170890893206160E+02_dp - ros_C(11) = 0.8083246795921522E+01_dp - ros_C(12) =-0.7981132988064893E+01_dp - ros_C(13) =-0.3152159432874371E+02_dp - ros_C(14) = 0.1631930543123136E+02_dp - ros_C(15) =-0.6058818238834054E+01_dp - -!~~~> M_i = Coefficients for new step solution - ros_M(1) = ros_A(7) - ros_M(2) = ros_A(8) - ros_M(3) = ros_A(9) - ros_M(4) = ros_A(10) - ros_M(5) = 1.0_dp - ros_M(6) = 1.0_dp - -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0_dp - ros_E(2) = 0.0_dp - ros_E(3) = 0.0_dp - ros_E(4) = 0.0_dp - ros_E(5) = 0.0_dp - ros_E(6) = 1.0_dp - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - ros_NewF(5) = .TRUE. - ros_NewF(6) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0_dp - - END SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rang3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE W METHOD OF ORDER 3, WITH 4 STAGES -! -! J. RANG and L. ANGERMANN -! NEW ROSENBROCK W-METHODS OF ORDER 3 -! FOR PARTIAL DIFFERENTIAL ALGEBRAIC -! EQUATIONS OF INDEX 1 -! BIT Numerical Mathematics (2005) 45: 761-787 -! DOI: 10.1007/s10543-005-0035-y -! Table 4.1-4.2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RG3 -!~~~> Name of the method - ros_Name = 'RANG-3' -!~~~> Number of stages - ros_S = 4 - - ros_A(1) = 5.09052051067020d+00; - ros_A(2) = 5.09052051067020d+00; - ros_A(3) = 0.0d0; - ros_A(4) = 4.97628111010787d+00; - ros_A(5) = 2.77268164715849d-02; - ros_A(6) = 2.29428036027904d-01; - - ros_C(1) = -1.16790812312283d+01; - ros_C(2) = -1.64057326467367d+01; - ros_C(3) = -2.77268164715850d-01; - ros_C(4) = -8.38103960500476d+00; - ros_C(5) = -8.48328409199343d-01; - ros_C(6) = 2.87009860433106d-01; - - ros_M(1) = 5.22582761233094d+00; - ros_M(2) = -5.56971148154165d-01; - ros_M(3) = 3.57979469353645d-01; - ros_M(4) = 1.72337398521064d+00; - - ros_E(1) = -5.16845212784040d+00; - ros_E(2) = -1.26351942603842d+00; - ros_E(3) = -1.11022302462516d-16; - ros_E(4) = 2.22044604925031d-16; - - ros_Alpha(1) = 0.0d00; - ros_Alpha(2) = 2.21878746765329d+00; - ros_Alpha(3) = 2.21878746765329d+00; - ros_Alpha(4) = 1.55392337535788d+00; - - ros_Gamma(1) = 4.35866521508459d-01; - ros_Gamma(2) = -1.78292094614483d+00; - ros_Gamma(3) = -2.46541900496934d+00; - ros_Gamma(4) = -8.05529997906370d-01; - - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp - - END SUBROUTINE Rang3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! End of the set of internal Rosenbrock subroutines -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -END SUBROUTINE Rosenbrock -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE FunTemplate( T, Y, Ydot ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE function call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE SAPRC99_Parameters, ONLY: NVAR, LU_NONZERO - USE SAPRC99_Global, ONLY: FIX, RCONST, TIME - USE SAPRC99_Function, ONLY: Fun - USE SAPRC99_Rates, ONLY: Update_SUN, Update_RCONST -!~~~> Input variables - REAL(kind=dp) :: T, Y(NVAR) -!~~~> Output variables - REAL(kind=dp) :: Ydot(NVAR) -!~~~> Local variables - REAL(kind=dp) :: Told - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, Ydot ) - TIME = Told - -END SUBROUTINE FunTemplate - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE JacTemplate( T, Y, Jcb ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE Jacobian call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE SAPRC99_Parameters, ONLY: NVAR, LU_NONZERO - USE SAPRC99_Global, ONLY: FIX, RCONST, TIME - USE SAPRC99_Jacobian, ONLY: Jac_SP, LU_IROW, LU_ICOL - USE SAPRC99_LinearAlgebra - USE SAPRC99_Rates, ONLY: Update_SUN, Update_RCONST -!~~~> Input variables - REAL(kind=dp) :: T, Y(NVAR) -!~~~> Output variables -#ifdef FULL_ALGEBRA - REAL(kind=dp) :: JV(LU_NONZERO), Jcb(NVAR,NVAR) -#else - REAL(kind=dp) :: Jcb(LU_NONZERO) -#endif -!~~~> Local variables - REAL(kind=dp) :: Told -#ifdef FULL_ALGEBRA - INTEGER :: i, j -#endif - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() -#ifdef FULL_ALGEBRA - CALL Jac_SP(Y, FIX, RCONST, JV) - DO j=1,NVAR - DO i=1,NVAR - Jcb(i,j) = 0.0_dp - END DO - END DO - DO i=1,LU_NONZERO - Jcb(LU_IROW(i),LU_ICOL(i)) = JV(i) - END DO -#else - CALL Jac_SP( Y, FIX, RCONST, Jcb ) -#endif - TIME = Told - -END SUBROUTINE JacTemplate - -END MODULE SAPRC99_Integrator - - - - -! End of INTEGRATE function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Integrator.o b/boxmox/compiled_mechs/SAPRC99/SAPRC99_Integrator.o deleted file mode 100644 index a044104aabfc049bb5590abaa9dac5b58d052ecb..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Integrator.o and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Jacobian.f90 b/boxmox/compiled_mechs/SAPRC99/SAPRC99_Jacobian.f90 deleted file mode 100644 index 8807391b8365a755502d1bf1f43078f5fcb550a5..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Jacobian.f90 +++ /dev/null @@ -1,3201 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The ODE Jacobian of Chemical Model File -! -! Generated by KPP-2.2.3 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 : SAPRC99_Jacobian.f90 -! Time : Thu Oct 8 08:22:39 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_SAPRC99_30885_BOXMOX -! Equation file : SAPRC99.kpp -! Output root filename : SAPRC99 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE SAPRC99_Jacobian - - USE SAPRC99_Parameters - USE SAPRC99_JacobianSP - - USE SAPRC99_Global - - 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(393) - -! B(1) = dA(1)/dV(74) - B(1) = RCT(1) -! B(2) = dA(2)/dV(63) - B(2) = RCT(2)*F(2) -! B(4) = dA(3)/dV(63) - B(4) = RCT(3)*V(67) -! B(5) = dA(3)/dV(67) - B(5) = RCT(3)*V(63) -! B(6) = dA(4)/dV(63) - B(6) = RCT(4)*V(73)*F(2) -! B(7) = dA(4)/dV(73) - B(7) = RCT(4)*V(63)*F(2) -! B(9) = dA(5)/dV(63) - B(9) = RCT(5)*V(74) -! B(10) = dA(5)/dV(74) - B(10) = RCT(5)*V(63) -! B(11) = dA(6)/dV(63) - B(11) = RCT(6)*V(74) -! B(12) = dA(6)/dV(74) - B(12) = RCT(6)*V(63) -! B(13) = dA(7)/dV(67) - B(13) = RCT(7)*V(73) -! B(14) = dA(7)/dV(73) - B(14) = RCT(7)*V(67) -! B(15) = dA(8)/dV(67) - B(15) = RCT(8)*V(74) -! B(16) = dA(8)/dV(74) - B(16) = RCT(8)*V(67) -! B(17) = dA(9)/dV(73) - B(17) = RCT(9)*V(75) -! B(18) = dA(9)/dV(75) - B(18) = RCT(9)*V(73) -! B(19) = dA(10)/dV(73) - B(19) = RCT(10)*2*V(73)*F(2) -! B(21) = dA(11)/dV(74) - B(21) = RCT(11)*V(75) -! B(22) = dA(11)/dV(75) - B(22) = RCT(11)*V(74) -! B(23) = dA(12)/dV(22) - B(23) = RCT(12) -! B(24) = dA(13)/dV(22) - B(24) = RCT(13)*F(1) -! B(26) = dA(14)/dV(74) - B(26) = RCT(14)*V(75) -! B(27) = dA(14)/dV(75) - B(27) = RCT(14)*V(74) -! B(28) = dA(15)/dV(75) - B(28) = RCT(15) -! B(29) = dA(16)/dV(75) - B(29) = RCT(16) -! B(30) = dA(17)/dV(67) - B(30) = RCT(17) -! B(31) = dA(18)/dV(67) - B(31) = RCT(18) -! B(32) = dA(19)/dV(11) - B(32) = RCT(19)*F(1) -! B(34) = dA(20)/dV(11) - B(34) = RCT(20)*F(2) -! B(36) = dA(21)/dV(71) - B(36) = RCT(21)*V(73) -! B(37) = dA(21)/dV(73) - B(37) = RCT(21)*V(71) -! B(38) = dA(22)/dV(23) - B(38) = RCT(22) -! B(39) = dA(23)/dV(23) - B(39) = RCT(23) -! B(40) = dA(24)/dV(23) - B(40) = RCT(24)*V(71) -! B(41) = dA(24)/dV(71) - B(41) = RCT(24)*V(23) -! B(42) = dA(25)/dV(71) - B(42) = RCT(25)*V(74) -! B(43) = dA(25)/dV(74) - B(43) = RCT(25)*V(71) -! B(44) = dA(26)/dV(71) - B(44) = RCT(26)*V(75) -! B(45) = dA(26)/dV(75) - B(45) = RCT(26)*V(71) -! B(46) = dA(27)/dV(47) - B(46) = RCT(27)*V(71) -! B(47) = dA(27)/dV(71) - B(47) = RCT(27)*V(47) -! B(48) = dA(28)/dV(47) - B(48) = RCT(28) -! B(49) = dA(29)/dV(45) - B(49) = RCT(29)*V(71) -! B(50) = dA(29)/dV(71) - B(50) = RCT(29)*V(45) -! B(51) = dA(30)/dV(67) - B(51) = RCT(30)*V(71) -! B(52) = dA(30)/dV(71) - B(52) = RCT(30)*V(67) -! B(53) = dA(31)/dV(73) - B(53) = RCT(31)*V(78) -! B(54) = dA(31)/dV(78) - B(54) = RCT(31)*V(73) -! B(55) = dA(32)/dV(74) - B(55) = RCT(32)*V(78) -! B(56) = dA(32)/dV(78) - B(56) = RCT(32)*V(74) -! B(57) = dA(33)/dV(32) - B(57) = RCT(33) -! B(58) = dA(34)/dV(32) - B(58) = RCT(34) -! B(59) = dA(35)/dV(32) - B(59) = RCT(35)*V(71) -! B(60) = dA(35)/dV(71) - B(60) = RCT(35)*V(32) -! B(61) = dA(36)/dV(67) - B(61) = RCT(36)*V(78) -! B(62) = dA(36)/dV(78) - B(62) = RCT(36)*V(67) -! B(63) = dA(37)/dV(78) - B(63) = RCT(37)*2*V(78) -! B(64) = dA(38)/dV(78) - B(64) = RCT(38)*2*V(78)*F(1) -! B(66) = dA(39)/dV(75) - B(66) = RCT(39)*V(78) -! B(67) = dA(39)/dV(78) - B(67) = RCT(39)*V(75) -! B(68) = dA(40)/dV(75) - B(68) = RCT(40)*2*V(75) -! B(69) = dA(41)/dV(19) - B(69) = RCT(41) -! B(70) = dA(42)/dV(19) - B(70) = RCT(42)*V(71) -! B(71) = dA(42)/dV(71) - B(71) = RCT(42)*V(19) -! B(72) = dA(43)/dV(71) - B(72) = RCT(43)*V(78) -! B(73) = dA(43)/dV(78) - B(73) = RCT(43)*V(71) -! B(74) = dA(44)/dV(10) - B(74) = RCT(44)*V(71) -! B(75) = dA(44)/dV(71) - B(75) = RCT(44)*V(10) -! B(76) = dA(45)/dV(71) - B(76) = RCT(45)*F(2) -! B(78) = dA(46)/dV(73) - B(78) = RCT(46)*V(76) -! B(79) = dA(46)/dV(76) - B(79) = RCT(46)*V(73) -! B(80) = dA(47)/dV(76) - B(80) = RCT(47)*V(78) -! B(81) = dA(47)/dV(78) - B(81) = RCT(47)*V(76) -! B(82) = dA(48)/dV(75) - B(82) = RCT(48)*V(76) -! B(83) = dA(48)/dV(76) - B(83) = RCT(48)*V(75) -! B(84) = dA(49)/dV(76) - B(84) = RCT(49)*2*V(76) -! B(85) = dA(50)/dV(76) - B(85) = RCT(50)*2*V(76) -! B(86) = dA(51)/dV(73) - B(86) = RCT(51)*V(77) -! B(87) = dA(51)/dV(77) - B(87) = RCT(51)*V(73) -! B(88) = dA(52)/dV(77) - B(88) = RCT(52)*V(78) -! B(89) = dA(52)/dV(78) - B(89) = RCT(52)*V(77) -! B(90) = dA(53)/dV(75) - B(90) = RCT(53)*V(77) -! B(91) = dA(53)/dV(77) - B(91) = RCT(53)*V(75) -! B(92) = dA(54)/dV(76) - B(92) = RCT(54)*V(77) -! B(93) = dA(54)/dV(77) - B(93) = RCT(54)*V(76) -! B(94) = dA(55)/dV(77) - B(94) = RCT(55)*2*V(77) -! B(95) = dA(56)/dV(53) - B(95) = RCT(56)*V(73) -! B(96) = dA(56)/dV(73) - B(96) = RCT(56)*V(53) -! B(97) = dA(57)/dV(53) - B(97) = RCT(57)*V(78) -! B(98) = dA(57)/dV(78) - B(98) = RCT(57)*V(53) -! B(99) = dA(58)/dV(53) - B(99) = RCT(58)*V(75) -! B(100) = dA(58)/dV(75) - B(100) = RCT(58)*V(53) -! B(101) = dA(59)/dV(53) - B(101) = RCT(59)*V(76) -! B(102) = dA(59)/dV(76) - B(102) = RCT(59)*V(53) -! B(103) = dA(60)/dV(53) - B(103) = RCT(60)*V(77) -! B(104) = dA(60)/dV(77) - B(104) = RCT(60)*V(53) -! B(105) = dA(61)/dV(53) - B(105) = RCT(61)*2*V(53) -! B(106) = dA(62)/dV(69) - B(106) = RCT(62)*V(73) -! B(107) = dA(62)/dV(73) - B(107) = RCT(62)*V(69) -! B(108) = dA(63)/dV(69) - B(108) = RCT(63)*V(78) -! B(109) = dA(63)/dV(78) - B(109) = RCT(63)*V(69) -! B(110) = dA(64)/dV(69) - B(110) = RCT(64)*V(76) -! B(111) = dA(64)/dV(76) - B(111) = RCT(64)*V(69) -! B(112) = dA(65)/dV(69) - B(112) = RCT(65)*V(75) -! B(113) = dA(65)/dV(75) - B(113) = RCT(65)*V(69) -! B(114) = dA(66)/dV(69) - B(114) = RCT(66)*V(77) -! B(115) = dA(66)/dV(77) - B(115) = RCT(66)*V(69) -! B(116) = dA(67)/dV(53) - B(116) = RCT(67)*V(69) -! B(117) = dA(67)/dV(69) - B(117) = RCT(67)*V(53) -! B(118) = dA(68)/dV(69) - B(118) = RCT(68)*2*V(69) -! B(119) = dA(69)/dV(68) - B(119) = RCT(69)*V(74) -! B(120) = dA(69)/dV(74) - B(120) = RCT(69)*V(68) -! B(121) = dA(70)/dV(15) - B(121) = RCT(70) -! B(122) = dA(71)/dV(68) - B(122) = RCT(71)*V(73) -! B(123) = dA(71)/dV(73) - B(123) = RCT(71)*V(68) -! B(124) = dA(72)/dV(68) - B(124) = RCT(72)*V(78) -! B(125) = dA(72)/dV(78) - B(125) = RCT(72)*V(68) -! B(126) = dA(73)/dV(68) - B(126) = RCT(73)*V(75) -! B(127) = dA(73)/dV(75) - B(127) = RCT(73)*V(68) -! B(128) = dA(74)/dV(68) - B(128) = RCT(74)*V(76) -! B(129) = dA(74)/dV(76) - B(129) = RCT(74)*V(68) -! B(130) = dA(75)/dV(68) - B(130) = RCT(75)*V(77) -! B(131) = dA(75)/dV(77) - B(131) = RCT(75)*V(68) -! B(132) = dA(76)/dV(53) - B(132) = RCT(76)*V(68) -! B(133) = dA(76)/dV(68) - B(133) = RCT(76)*V(53) -! B(134) = dA(77)/dV(68) - B(134) = RCT(77)*V(69) -! B(135) = dA(77)/dV(69) - B(135) = RCT(77)*V(68) -! B(136) = dA(78)/dV(68) - B(136) = RCT(78)*2*V(68) -! B(137) = dA(79)/dV(72) - B(137) = RCT(79)*V(74) -! B(138) = dA(79)/dV(74) - B(138) = RCT(79)*V(72) -! B(139) = dA(80)/dV(16) - B(139) = RCT(80) -! B(140) = dA(81)/dV(72) - B(140) = RCT(81)*V(73) -! B(141) = dA(81)/dV(73) - B(141) = RCT(81)*V(72) -! B(142) = dA(82)/dV(72) - B(142) = RCT(82)*V(78) -! B(143) = dA(82)/dV(78) - B(143) = RCT(82)*V(72) -! B(144) = dA(83)/dV(72) - B(144) = RCT(83)*V(75) -! B(145) = dA(83)/dV(75) - B(145) = RCT(83)*V(72) -! B(146) = dA(84)/dV(72) - B(146) = RCT(84)*V(76) -! B(147) = dA(84)/dV(76) - B(147) = RCT(84)*V(72) -! B(148) = dA(85)/dV(72) - B(148) = RCT(85)*V(77) -! B(149) = dA(85)/dV(77) - B(149) = RCT(85)*V(72) -! B(150) = dA(86)/dV(53) - B(150) = RCT(86)*V(72) -! B(151) = dA(86)/dV(72) - B(151) = RCT(86)*V(53) -! B(152) = dA(87)/dV(69) - B(152) = RCT(87)*V(72) -! B(153) = dA(87)/dV(72) - B(153) = RCT(87)*V(69) -! B(154) = dA(88)/dV(68) - B(154) = RCT(88)*V(72) -! B(155) = dA(88)/dV(72) - B(155) = RCT(88)*V(68) -! B(156) = dA(89)/dV(72) - B(156) = RCT(89)*2*V(72) -! B(157) = dA(90)/dV(74) - B(157) = RCT(90)*V(79) -! B(158) = dA(90)/dV(79) - B(158) = RCT(90)*V(74) -! B(159) = dA(91)/dV(17) - B(159) = RCT(91) -! B(160) = dA(92)/dV(73) - B(160) = RCT(92)*V(79) -! B(161) = dA(92)/dV(79) - B(161) = RCT(92)*V(73) -! B(162) = dA(93)/dV(78) - B(162) = RCT(93)*V(79) -! B(163) = dA(93)/dV(79) - B(163) = RCT(93)*V(78) -! B(164) = dA(94)/dV(75) - B(164) = RCT(94)*V(79) -! B(165) = dA(94)/dV(79) - B(165) = RCT(94)*V(75) -! B(166) = dA(95)/dV(76) - B(166) = RCT(95)*V(79) -! B(167) = dA(95)/dV(79) - B(167) = RCT(95)*V(76) -! B(168) = dA(96)/dV(77) - B(168) = RCT(96)*V(79) -! B(169) = dA(96)/dV(79) - B(169) = RCT(96)*V(77) -! B(170) = dA(97)/dV(53) - B(170) = RCT(97)*V(79) -! B(171) = dA(97)/dV(79) - B(171) = RCT(97)*V(53) -! B(172) = dA(98)/dV(69) - B(172) = RCT(98)*V(79) -! B(173) = dA(98)/dV(79) - B(173) = RCT(98)*V(69) -! B(174) = dA(99)/dV(68) - B(174) = RCT(99)*V(79) -! B(175) = dA(99)/dV(79) - B(175) = RCT(99)*V(68) -! B(176) = dA(100)/dV(72) - B(176) = RCT(100)*V(79) -! B(177) = dA(100)/dV(79) - B(177) = RCT(100)*V(72) -! B(178) = dA(101)/dV(79) - B(178) = RCT(101)*2*V(79) -! B(179) = dA(102)/dV(70) - B(179) = RCT(102)*V(74) -! B(180) = dA(102)/dV(74) - B(180) = RCT(102)*V(70) -! B(181) = dA(103)/dV(18) - B(181) = RCT(103) -! B(182) = dA(104)/dV(70) - B(182) = RCT(104)*V(73) -! B(183) = dA(104)/dV(73) - B(183) = RCT(104)*V(70) -! B(184) = dA(105)/dV(70) - B(184) = RCT(105)*V(78) -! B(185) = dA(105)/dV(78) - B(185) = RCT(105)*V(70) -! B(186) = dA(106)/dV(70) - B(186) = RCT(106)*V(75) -! B(187) = dA(106)/dV(75) - B(187) = RCT(106)*V(70) -! B(188) = dA(107)/dV(70) - B(188) = RCT(107)*V(76) -! B(189) = dA(107)/dV(76) - B(189) = RCT(107)*V(70) -! B(190) = dA(108)/dV(70) - B(190) = RCT(108)*V(77) -! B(191) = dA(108)/dV(77) - B(191) = RCT(108)*V(70) -! B(192) = dA(109)/dV(53) - B(192) = RCT(109)*V(70) -! B(193) = dA(109)/dV(70) - B(193) = RCT(109)*V(53) -! B(194) = dA(110)/dV(69) - B(194) = RCT(110)*V(70) -! B(195) = dA(110)/dV(70) - B(195) = RCT(110)*V(69) -! B(196) = dA(111)/dV(68) - B(196) = RCT(111)*V(70) -! B(197) = dA(111)/dV(70) - B(197) = RCT(111)*V(68) -! B(198) = dA(112)/dV(70) - B(198) = RCT(112)*V(72) -! B(199) = dA(112)/dV(72) - B(199) = RCT(112)*V(70) -! B(200) = dA(113)/dV(70) - B(200) = RCT(113)*V(79) -! B(201) = dA(113)/dV(79) - B(201) = RCT(113)*V(70) -! B(202) = dA(114)/dV(70) - B(202) = RCT(114)*2*V(70) -! B(203) = dA(115)/dV(25) - B(203) = RCT(115)*V(74) -! B(204) = dA(115)/dV(74) - B(204) = RCT(115)*V(25) -! B(205) = dA(116)/dV(25) - B(205) = RCT(116) -! B(206) = dA(117)/dV(51) - B(206) = RCT(117)*V(74) -! B(207) = dA(117)/dV(74) - B(207) = RCT(117)*V(51) -! B(208) = dA(118)/dV(51) - B(208) = RCT(118)*V(78) -! B(209) = dA(118)/dV(78) - B(209) = RCT(118)*V(51) -! B(210) = dA(119)/dV(51) - B(210) = RCT(119) -! B(211) = dA(120)/dV(31) - B(211) = RCT(120)*V(74) -! B(212) = dA(120)/dV(74) - B(212) = RCT(120)*V(31) -! B(213) = dA(121)/dV(31) - B(213) = RCT(121)*V(78) -! B(214) = dA(121)/dV(78) - B(214) = RCT(121)*V(31) -! B(215) = dA(122)/dV(31) - B(215) = RCT(122) -! B(216) = dA(123)/dV(61) - B(216) = RCT(123) -! B(217) = dA(124)/dV(61) - B(217) = RCT(124) -! B(218) = dA(125)/dV(61) - B(218) = RCT(125)*V(71) -! B(219) = dA(125)/dV(71) - B(219) = RCT(125)*V(61) -! B(220) = dA(126)/dV(61) - B(220) = RCT(126)*V(78) -! B(221) = dA(126)/dV(78) - B(221) = RCT(126)*V(61) -! B(222) = dA(127)/dV(30) - B(222) = RCT(127) -! B(223) = dA(128)/dV(30) - B(223) = RCT(128)*V(73) -! B(224) = dA(128)/dV(73) - B(224) = RCT(128)*V(30) -! B(225) = dA(129)/dV(61) - B(225) = RCT(129)*V(75) -! B(226) = dA(129)/dV(75) - B(226) = RCT(129)*V(61) -! B(227) = dA(130)/dV(60) - B(227) = RCT(130)*V(71) -! B(228) = dA(130)/dV(71) - B(228) = RCT(130)*V(60) -! B(229) = dA(131)/dV(60) - B(229) = RCT(131) -! B(230) = dA(132)/dV(60) - B(230) = RCT(132)*V(75) -! B(231) = dA(132)/dV(75) - B(231) = RCT(132)*V(60) -! B(232) = dA(133)/dV(64) - B(232) = RCT(133)*V(71) -! B(233) = dA(133)/dV(71) - B(233) = RCT(133)*V(64) -! B(234) = dA(134)/dV(64) - B(234) = RCT(134) -! B(235) = dA(135)/dV(64) - B(235) = RCT(135)*V(75) -! B(236) = dA(135)/dV(75) - B(236) = RCT(135)*V(64) -! B(237) = dA(136)/dV(46) - B(237) = RCT(136)*V(71) -! B(238) = dA(136)/dV(71) - B(238) = RCT(136)*V(46) -! B(239) = dA(137)/dV(46) - B(239) = RCT(137) -! B(240) = dA(138)/dV(65) - B(240) = RCT(138)*V(71) -! B(241) = dA(138)/dV(71) - B(241) = RCT(138)*V(65) -! B(242) = dA(139)/dV(65) - B(242) = RCT(139) -! B(243) = dA(140)/dV(28) - B(243) = RCT(140)*V(71) -! B(244) = dA(140)/dV(71) - B(244) = RCT(140)*V(28) -! B(245) = dA(141)/dV(21) - B(245) = RCT(141)*V(71) -! B(246) = dA(141)/dV(71) - B(246) = RCT(141)*V(21) -! B(247) = dA(142)/dV(29) - B(247) = RCT(142)*V(71) -! B(248) = dA(142)/dV(71) - B(248) = RCT(142)*V(29) -! B(249) = dA(143)/dV(29) - B(249) = RCT(143) -! B(250) = dA(144)/dV(42) - B(250) = RCT(144)*V(71) -! B(251) = dA(144)/dV(71) - B(251) = RCT(144)*V(42) -! B(252) = dA(145)/dV(42) - B(252) = RCT(145) -! B(253) = dA(146)/dV(49) - B(253) = RCT(146) -! B(254) = dA(147)/dV(49) - B(254) = RCT(147) -! B(255) = dA(148)/dV(49) - B(255) = RCT(148)*V(71) -! B(256) = dA(148)/dV(71) - B(256) = RCT(148)*V(49) -! B(257) = dA(149)/dV(49) - B(257) = RCT(149)*V(75) -! B(258) = dA(149)/dV(75) - B(258) = RCT(149)*V(49) -! B(259) = dA(150)/dV(44) - B(259) = RCT(150) -! B(260) = dA(151)/dV(44) - B(260) = RCT(151)*V(71) -! B(261) = dA(151)/dV(71) - B(261) = RCT(151)*V(44) -! B(262) = dA(152)/dV(44) - B(262) = RCT(152)*V(75) -! B(263) = dA(152)/dV(75) - B(263) = RCT(152)*V(44) -! B(264) = dA(153)/dV(14) - B(264) = RCT(153) -! B(265) = dA(154)/dV(43) - B(265) = RCT(154)*V(71) -! B(266) = dA(154)/dV(71) - B(266) = RCT(154)*V(43) -! B(267) = dA(155)/dV(43) - B(267) = RCT(155)*V(75) -! B(268) = dA(155)/dV(75) - B(268) = RCT(155)*V(43) -! B(269) = dA(156)/dV(37) - B(269) = RCT(156)*V(71) -! B(270) = dA(156)/dV(71) - B(270) = RCT(156)*V(37) -! B(271) = dA(157)/dV(37) - B(271) = RCT(157)*V(75) -! B(272) = dA(157)/dV(75) - B(272) = RCT(157)*V(37) -! B(273) = dA(158)/dV(40) - B(273) = RCT(158)*V(75) -! B(274) = dA(158)/dV(75) - B(274) = RCT(158)*V(40) -! B(275) = dA(159)/dV(41) - B(275) = RCT(159)*V(71) -! B(276) = dA(159)/dV(71) - B(276) = RCT(159)*V(41) -! B(277) = dA(160)/dV(41) - B(277) = RCT(160) -! B(278) = dA(161)/dV(41) - B(278) = RCT(161)*V(75) -! B(279) = dA(161)/dV(75) - B(279) = RCT(161)*V(41) -! B(280) = dA(162)/dV(55) - B(280) = RCT(162)*V(71) -! B(281) = dA(162)/dV(71) - B(281) = RCT(162)*V(55) -! B(282) = dA(163)/dV(55) - B(282) = RCT(163)*V(67) -! B(283) = dA(163)/dV(67) - B(283) = RCT(163)*V(55) -! B(284) = dA(164)/dV(55) - B(284) = RCT(164)*V(75) -! B(285) = dA(164)/dV(75) - B(285) = RCT(164)*V(55) -! B(286) = dA(165)/dV(55) - B(286) = RCT(165)*V(63) -! B(287) = dA(165)/dV(63) - B(287) = RCT(165)*V(55) -! B(288) = dA(166)/dV(55) - B(288) = RCT(166) -! B(289) = dA(167)/dV(59) - B(289) = RCT(167)*V(71) -! B(290) = dA(167)/dV(71) - B(290) = RCT(167)*V(59) -! B(291) = dA(168)/dV(59) - B(291) = RCT(168)*V(67) -! B(292) = dA(168)/dV(67) - B(292) = RCT(168)*V(59) -! B(293) = dA(169)/dV(59) - B(293) = RCT(169)*V(63) -! B(294) = dA(169)/dV(63) - B(294) = RCT(169)*V(59) -! B(295) = dA(170)/dV(59) - B(295) = RCT(170) -! B(296) = dA(171)/dV(57) - B(296) = RCT(171)*V(71) -! B(297) = dA(171)/dV(71) - B(297) = RCT(171)*V(57) -! B(298) = dA(172)/dV(57) - B(298) = RCT(172)*V(67) -! B(299) = dA(172)/dV(67) - B(299) = RCT(172)*V(57) -! B(300) = dA(173)/dV(57) - B(300) = RCT(173)*V(75) -! B(301) = dA(173)/dV(75) - B(301) = RCT(173)*V(57) -! B(302) = dA(174)/dV(57) - B(302) = RCT(174) -! B(303) = dA(175)/dV(66) - B(303) = RCT(175)*V(71) -! B(304) = dA(175)/dV(71) - B(304) = RCT(175)*V(66) -! B(305) = dA(176)/dV(66) - B(305) = RCT(176) -! B(306) = dA(177)/dV(62) - B(306) = RCT(177)*V(71) -! B(307) = dA(177)/dV(71) - B(307) = RCT(177)*V(62) -! B(308) = dA(178)/dV(62) - B(308) = RCT(178) -! B(309) = dA(179)/dV(38) - B(309) = RCT(179)*V(71) -! B(310) = dA(179)/dV(71) - B(310) = RCT(179)*V(38) -! B(311) = dA(180)/dV(38) - B(311) = RCT(180)*V(67) -! B(312) = dA(180)/dV(67) - B(312) = RCT(180)*V(38) -! B(313) = dA(181)/dV(35) - B(313) = RCT(181)*V(71) -! B(314) = dA(181)/dV(71) - B(314) = RCT(181)*V(35) -! B(315) = dA(182)/dV(35) - B(315) = RCT(182) -! B(316) = dA(183)/dV(36) - B(316) = RCT(183)*V(71) -! B(317) = dA(183)/dV(71) - B(317) = RCT(183)*V(36) -! B(318) = dA(184)/dV(36) - B(318) = RCT(184) -! B(319) = dA(185)/dV(12) - B(319) = RCT(185)*V(71) -! B(320) = dA(185)/dV(71) - B(320) = RCT(185)*V(12) -! B(321) = dA(186)/dV(48) - B(321) = RCT(186)*V(71) -! B(322) = dA(186)/dV(71) - B(322) = RCT(186)*V(48) -! B(323) = dA(187)/dV(48) - B(323) = RCT(187)*V(67) -! B(324) = dA(187)/dV(67) - B(324) = RCT(187)*V(48) -! B(325) = dA(188)/dV(48) - B(325) = RCT(188)*V(75) -! B(326) = dA(188)/dV(75) - B(326) = RCT(188)*V(48) -! B(327) = dA(189)/dV(48) - B(327) = RCT(189)*V(63) -! B(328) = dA(189)/dV(63) - B(328) = RCT(189)*V(48) -! B(329) = dA(190)/dV(52) - B(329) = RCT(190)*V(71) -! B(330) = dA(190)/dV(71) - B(330) = RCT(190)*V(52) -! B(331) = dA(191)/dV(52) - B(331) = RCT(191)*V(67) -! B(332) = dA(191)/dV(67) - B(332) = RCT(191)*V(52) -! B(333) = dA(192)/dV(52) - B(333) = RCT(192)*V(75) -! B(334) = dA(192)/dV(75) - B(334) = RCT(192)*V(52) -! B(335) = dA(193)/dV(52) - B(335) = RCT(193)*V(63) -! B(336) = dA(193)/dV(63) - B(336) = RCT(193)*V(52) -! B(337) = dA(194)/dV(54) - B(337) = RCT(194)*V(71) -! B(338) = dA(194)/dV(71) - B(338) = RCT(194)*V(54) -! B(339) = dA(195)/dV(54) - B(339) = RCT(195)*V(67) -! B(340) = dA(195)/dV(67) - B(340) = RCT(195)*V(54) -! B(341) = dA(196)/dV(54) - B(341) = RCT(196)*V(75) -! B(342) = dA(196)/dV(75) - B(342) = RCT(196)*V(54) -! B(343) = dA(197)/dV(54) - B(343) = RCT(197)*V(63) -! B(344) = dA(197)/dV(63) - B(344) = RCT(197)*V(54) -! B(345) = dA(198)/dV(13) - B(345) = RCT(198)*V(71) -! B(346) = dA(198)/dV(71) - B(346) = RCT(198)*V(13) -! B(347) = dA(199)/dV(20) - B(347) = RCT(199)*V(71) -! B(348) = dA(199)/dV(71) - B(348) = RCT(199)*V(20) -! B(349) = dA(200)/dV(39) - B(349) = RCT(200)*V(71) -! B(350) = dA(200)/dV(71) - B(350) = RCT(200)*V(39) -! B(351) = dA(201)/dV(24) - B(351) = RCT(201)*V(71) -! B(352) = dA(201)/dV(71) - B(352) = RCT(201)*V(24) -! B(353) = dA(202)/dV(33) - B(353) = RCT(202)*V(71) -! B(354) = dA(202)/dV(71) - B(354) = RCT(202)*V(33) -! B(355) = dA(203)/dV(26) - B(355) = RCT(203)*V(71) -! B(356) = dA(203)/dV(71) - B(356) = RCT(203)*V(26) -! B(357) = dA(204)/dV(34) - B(357) = RCT(204)*V(71) -! B(358) = dA(204)/dV(71) - B(358) = RCT(204)*V(34) -! B(359) = dA(205)/dV(27) - B(359) = RCT(205)*V(71) -! B(360) = dA(205)/dV(71) - B(360) = RCT(205)*V(27) -! B(361) = dA(206)/dV(56) - B(361) = RCT(206)*V(71) -! B(362) = dA(206)/dV(71) - B(362) = RCT(206)*V(56) -! B(363) = dA(207)/dV(56) - B(363) = RCT(207)*V(67) -! B(364) = dA(207)/dV(67) - B(364) = RCT(207)*V(56) -! B(365) = dA(208)/dV(56) - B(365) = RCT(208)*V(75) -! B(366) = dA(208)/dV(75) - B(366) = RCT(208)*V(56) -! B(367) = dA(209)/dV(56) - B(367) = RCT(209)*V(63) -! B(368) = dA(209)/dV(63) - B(368) = RCT(209)*V(56) -! B(369) = dA(210)/dV(58) - B(369) = RCT(210)*V(71) -! B(370) = dA(210)/dV(71) - B(370) = RCT(210)*V(58) -! B(371) = dA(211)/dV(58) - B(371) = RCT(211)*V(67) -! B(372) = dA(211)/dV(67) - B(372) = RCT(211)*V(58) -! B(373) = dA(212)/dV(58) - B(373) = RCT(212)*V(75) -! B(374) = dA(212)/dV(75) - B(374) = RCT(212)*V(58) -! B(375) = dA(213)/dV(58) - B(375) = RCT(213)*V(63) -! B(376) = dA(213)/dV(63) - B(376) = RCT(213)*V(58) -! B(377) = dA(214)/dV(39) - B(377) = RCT(214)*V(67) -! B(378) = dA(214)/dV(67) - B(378) = RCT(214)*V(39) -! B(379) = dA(215)/dV(50) - B(379) = RCT(215)*V(71) -! B(380) = dA(215)/dV(71) - B(380) = RCT(215)*V(50) -! B(381) = dA(216)/dV(50) - B(381) = RCT(216)*V(67) -! B(382) = dA(216)/dV(67) - B(382) = RCT(216)*V(50) -! B(383) = dA(217)/dV(50) - B(383) = RCT(217)*V(75) -! B(384) = dA(217)/dV(75) - B(384) = RCT(217)*V(50) -! B(385) = dA(218)/dV(50) - B(385) = RCT(218)*V(63) -! B(386) = dA(218)/dV(63) - B(386) = RCT(218)*V(50) -! B(387) = dA(219)/dV(10) - B(387) = RCT(219) -! B(388) = dA(220)/dV(78) - B(388) = RCT(220) -! B(389) = dA(221)/dV(10) - B(389) = RCT(221) -! B(390) = dA(222)/dV(1) - B(390) = RCT(222) -! B(391) = dA(223)/dV(47) - B(391) = RCT(223) -! B(392) = dA(224)/dV(19) - B(392) = RCT(224) -! B(393) = dA(225)/dV(2) - B(393) = RCT(225) - -! Construct the Jacobian terms from B's -! JVS(1) = Jac_FULL(1,1) - JVS(1) = -B(390) -! JVS(2) = Jac_FULL(1,10) - JVS(2) = B(74)+B(387) -! JVS(3) = Jac_FULL(1,71) - JVS(3) = B(75) -! JVS(4) = Jac_FULL(2,2) - JVS(4) = -B(393) -! JVS(5) = Jac_FULL(2,39) - JVS(5) = 0.5*B(377) -! JVS(6) = Jac_FULL(2,50) - JVS(6) = 0.135*B(381) -! JVS(7) = Jac_FULL(2,67) - JVS(7) = 0.5*B(378)+0.135*B(382) -! JVS(8) = Jac_FULL(3,3) - JVS(8) = 0 -! JVS(9) = Jac_FULL(3,30) - JVS(9) = B(223) -! JVS(10) = Jac_FULL(3,39) - JVS(10) = 0.297*B(349) -! JVS(11) = Jac_FULL(3,48) - JVS(11) = 0.37*B(323) -! JVS(12) = Jac_FULL(3,50) - JVS(12) = 0.185*B(381) -! JVS(13) = Jac_FULL(3,52) - JVS(13) = 0.204*B(331) -! JVS(14) = Jac_FULL(3,54) - JVS(14) = 0.103*B(339) -! JVS(15) = Jac_FULL(3,55) - JVS(15) = 0.333*B(282) -! JVS(16) = Jac_FULL(3,56) - JVS(16) = 0.185*B(363) -! JVS(17) = Jac_FULL(3,57) - JVS(17) = 0.1*B(298) -! JVS(18) = Jac_FULL(3,58) - JVS(18) = 0.073*B(371) -! JVS(19) = Jac_FULL(3,59) - JVS(19) = 0.351*B(291) -! JVS(20) = Jac_FULL(3,67) - JVS(20) = 0.333*B(283)+0.351*B(292)+0.1*B(299)+0.37*B(324)+0.204*B(332)+0.103*B(340)+0.185*B(364)+0.073*B(372)+0.185& - &*B(382) -! JVS(21) = Jac_FULL(3,71) - JVS(21) = 0.297*B(350) -! JVS(22) = Jac_FULL(3,73) - JVS(22) = B(224) -! JVS(23) = Jac_FULL(4,4) - JVS(23) = 0 -! JVS(24) = Jac_FULL(4,50) - JVS(24) = 0.17*B(381) -! JVS(25) = Jac_FULL(4,56) - JVS(25) = 0.05*B(363) -! JVS(26) = Jac_FULL(4,58) - JVS(26) = 0.129*B(371) -! JVS(27) = Jac_FULL(4,67) - JVS(27) = 0.05*B(364)+0.129*B(372)+0.17*B(382) -! JVS(28) = Jac_FULL(4,68) - JVS(28) = 0.25*B(124)+B(128)+B(130)+B(134) -! JVS(29) = Jac_FULL(4,69) - JVS(29) = B(135) -! JVS(30) = Jac_FULL(4,76) - JVS(30) = B(129) -! JVS(31) = Jac_FULL(4,77) - JVS(31) = B(131) -! JVS(32) = Jac_FULL(4,78) - JVS(32) = 0.25*B(125) -! JVS(33) = Jac_FULL(5,5) - JVS(33) = 0 -! JVS(34) = Jac_FULL(5,52) - JVS(34) = 0.15*B(331) -! JVS(35) = Jac_FULL(5,54) - JVS(35) = 0.189*B(339) -! JVS(36) = Jac_FULL(5,56) - JVS(36) = 0.119*B(363) -! JVS(37) = Jac_FULL(5,57) - JVS(37) = 0.372*B(298) -! JVS(38) = Jac_FULL(5,58) - JVS(38) = 0.247*B(371) -! JVS(39) = Jac_FULL(5,67) - JVS(39) = 0.372*B(299)+0.15*B(332)+0.189*B(340)+0.119*B(364)+0.247*B(372) -! JVS(40) = Jac_FULL(5,69) - JVS(40) = B(152)+B(172)+2*B(194) -! JVS(41) = Jac_FULL(5,70) - JVS(41) = 0.25*B(184)+B(188)+B(190)+2*B(195) -! JVS(42) = Jac_FULL(5,72) - JVS(42) = 0.25*B(142)+B(146)+B(148)+B(153) -! JVS(43) = Jac_FULL(5,76) - JVS(43) = B(147)+B(166)+B(189) -! JVS(44) = Jac_FULL(5,77) - JVS(44) = B(149)+B(168)+B(191) -! JVS(45) = Jac_FULL(5,78) - JVS(45) = 0.25*B(143)+0.25*B(162)+0.25*B(185) -! JVS(46) = Jac_FULL(5,79) - JVS(46) = 0.25*B(163)+B(167)+B(169)+B(173) -! JVS(47) = Jac_FULL(6,6) - JVS(47) = 0 -! JVS(48) = Jac_FULL(6,68) - JVS(48) = 0.75*B(124) -! JVS(49) = Jac_FULL(6,78) - JVS(49) = 0.75*B(125) -! JVS(50) = Jac_FULL(7,7) - JVS(50) = 0 -! JVS(51) = Jac_FULL(7,70) - JVS(51) = 0.75*B(184) -! JVS(52) = Jac_FULL(7,72) - JVS(52) = 0.75*B(142) -! JVS(53) = Jac_FULL(7,78) - JVS(53) = 0.75*B(143)+0.75*B(162)+0.75*B(185) -! JVS(54) = Jac_FULL(7,79) - JVS(54) = 0.75*B(163) -! JVS(55) = Jac_FULL(8,8) - JVS(55) = 0 -! JVS(56) = Jac_FULL(8,31) - JVS(56) = 2*B(211) -! JVS(57) = Jac_FULL(8,50) - JVS(57) = B(383) -! JVS(58) = Jac_FULL(8,74) - JVS(58) = 2*B(212) -! JVS(59) = Jac_FULL(8,75) - JVS(59) = B(384) -! JVS(60) = Jac_FULL(9,9) - JVS(60) = 0 -! JVS(61) = Jac_FULL(9,31) - JVS(61) = 6*B(211) -! JVS(62) = Jac_FULL(9,41) - JVS(62) = 7*B(277) -! JVS(63) = Jac_FULL(9,50) - JVS(63) = 0.048*B(379)+0.07*B(381)+2.693*B(383)+0.55*B(385) -! JVS(64) = Jac_FULL(9,63) - JVS(64) = 0.55*B(386) -! JVS(65) = Jac_FULL(9,67) - JVS(65) = 0.07*B(382) -! JVS(66) = Jac_FULL(9,71) - JVS(66) = 0.048*B(380) -! JVS(67) = Jac_FULL(9,74) - JVS(67) = 6*B(212) -! JVS(68) = Jac_FULL(9,75) - JVS(68) = 2.693*B(384) -! JVS(69) = Jac_FULL(10,10) - JVS(69) = -B(74)-B(387)-B(389) -! JVS(70) = Jac_FULL(10,71) - JVS(70) = -B(75) -! JVS(71) = Jac_FULL(11,11) - JVS(71) = -B(32)-B(34) -! JVS(72) = Jac_FULL(11,67) - JVS(72) = B(31) -! JVS(73) = Jac_FULL(12,12) - JVS(73) = -B(319) -! JVS(74) = Jac_FULL(12,71) - JVS(74) = -B(320) -! JVS(75) = Jac_FULL(13,13) - JVS(75) = -B(345) -! JVS(76) = Jac_FULL(13,71) - JVS(76) = -B(346) -! JVS(77) = Jac_FULL(14,14) - JVS(77) = -B(264) -! JVS(78) = Jac_FULL(14,27) - JVS(78) = 0.087*B(359) -! JVS(79) = Jac_FULL(14,54) - JVS(79) = 0.031*B(339) -! JVS(80) = Jac_FULL(14,67) - JVS(80) = 0.031*B(340) -! JVS(81) = Jac_FULL(14,71) - JVS(81) = 0.087*B(360) -! JVS(82) = Jac_FULL(15,15) - JVS(82) = -B(121) -! JVS(83) = Jac_FULL(15,68) - JVS(83) = B(119) -! JVS(84) = Jac_FULL(15,74) - JVS(84) = B(120) -! JVS(85) = Jac_FULL(16,16) - JVS(85) = -B(139) -! JVS(86) = Jac_FULL(16,72) - JVS(86) = B(137) -! JVS(87) = Jac_FULL(16,74) - JVS(87) = B(138) -! JVS(88) = Jac_FULL(17,17) - JVS(88) = -B(159) -! JVS(89) = Jac_FULL(17,74) - JVS(89) = B(157) -! JVS(90) = Jac_FULL(17,79) - JVS(90) = B(158) -! JVS(91) = Jac_FULL(18,18) - JVS(91) = -B(181) -! JVS(92) = Jac_FULL(18,70) - JVS(92) = B(179) -! JVS(93) = Jac_FULL(18,74) - JVS(93) = B(180) -! JVS(94) = Jac_FULL(19,19) - JVS(94) = -B(69)-B(70)-B(392) -! JVS(95) = Jac_FULL(19,71) - JVS(95) = -B(71) -! JVS(96) = Jac_FULL(19,78) - JVS(96) = B(63)+B(64) -! JVS(97) = Jac_FULL(20,20) - JVS(97) = -B(347) -! JVS(98) = Jac_FULL(20,71) - JVS(98) = -B(348) -! JVS(99) = Jac_FULL(21,21) - JVS(99) = -B(245) -! JVS(100) = Jac_FULL(21,71) - JVS(100) = -B(246) -! JVS(101) = Jac_FULL(22,22) - JVS(101) = -B(23)-B(24) -! JVS(102) = Jac_FULL(22,74) - JVS(102) = B(21) -! JVS(103) = Jac_FULL(22,75) - JVS(103) = B(22) -! JVS(104) = Jac_FULL(23,23) - JVS(104) = -B(38)-B(39)-B(40) -! JVS(105) = Jac_FULL(23,71) - JVS(105) = B(36)-B(41) -! JVS(106) = Jac_FULL(23,73) - JVS(106) = B(37) -! JVS(107) = Jac_FULL(24,24) - JVS(107) = -B(351) -! JVS(108) = Jac_FULL(24,71) - JVS(108) = -B(352) -! JVS(109) = Jac_FULL(25,24) - JVS(109) = 0.236*B(351) -! JVS(110) = Jac_FULL(25,25) - JVS(110) = -B(203)-B(205) -! JVS(111) = Jac_FULL(25,71) - JVS(111) = 0.236*B(352) -! JVS(112) = Jac_FULL(25,74) - JVS(112) = -B(204) -! JVS(113) = Jac_FULL(26,26) - JVS(113) = -B(355) -! JVS(114) = Jac_FULL(26,71) - JVS(114) = -B(356) -! JVS(115) = Jac_FULL(27,27) - JVS(115) = -B(359) -! JVS(116) = Jac_FULL(27,71) - JVS(116) = -B(360) -! JVS(117) = Jac_FULL(28,28) - JVS(117) = -B(243) -! JVS(118) = Jac_FULL(28,69) - JVS(118) = 0.25*B(110) -! JVS(119) = Jac_FULL(28,71) - JVS(119) = -B(244) -! JVS(120) = Jac_FULL(28,76) - JVS(120) = B(84)+0.25*B(92)+0.25*B(111) -! JVS(121) = Jac_FULL(28,77) - JVS(121) = 0.25*B(93) -! JVS(122) = Jac_FULL(29,29) - JVS(122) = -B(247)-B(249) -! JVS(123) = Jac_FULL(29,71) - JVS(123) = -B(248) -! JVS(124) = Jac_FULL(29,76) - JVS(124) = B(80) -! JVS(125) = Jac_FULL(29,78) - JVS(125) = B(81) -! JVS(126) = Jac_FULL(30,30) - JVS(126) = -B(222)-B(223) -! JVS(127) = Jac_FULL(30,61) - JVS(127) = B(220) -! JVS(128) = Jac_FULL(30,73) - JVS(128) = -B(224) -! JVS(129) = Jac_FULL(30,78) - JVS(129) = B(221) -! JVS(130) = Jac_FULL(31,31) - JVS(130) = -B(211)-B(213)-B(215) -! JVS(131) = Jac_FULL(31,40) - JVS(131) = B(273) -! JVS(132) = Jac_FULL(31,74) - JVS(132) = -B(212) -! JVS(133) = Jac_FULL(31,75) - JVS(133) = B(274) -! JVS(134) = Jac_FULL(31,78) - JVS(134) = -B(214) -! JVS(135) = Jac_FULL(32,32) - JVS(135) = -B(57)-B(58)-B(59) -! JVS(136) = Jac_FULL(32,71) - JVS(136) = -B(60) -! JVS(137) = Jac_FULL(32,74) - JVS(137) = B(55) -! JVS(138) = Jac_FULL(32,78) - JVS(138) = B(56) -! JVS(139) = Jac_FULL(33,33) - JVS(139) = -B(353) -! JVS(140) = Jac_FULL(33,71) - JVS(140) = -B(354) -! JVS(141) = Jac_FULL(34,34) - JVS(141) = -B(357) -! JVS(142) = Jac_FULL(34,71) - JVS(142) = -B(358) -! JVS(143) = Jac_FULL(35,27) - JVS(143) = 0.099*B(359) -! JVS(144) = Jac_FULL(35,34) - JVS(144) = 0.108*B(357) -! JVS(145) = Jac_FULL(35,35) - JVS(145) = -B(313)-B(315) -! JVS(146) = Jac_FULL(35,71) - JVS(146) = -B(314)+0.108*B(358)+0.099*B(360) -! JVS(147) = Jac_FULL(36,27) - JVS(147) = 0.093*B(359) -! JVS(148) = Jac_FULL(36,34) - JVS(148) = 0.051*B(357) -! JVS(149) = Jac_FULL(36,36) - JVS(149) = -B(316)-B(318) -! JVS(150) = Jac_FULL(36,71) - JVS(150) = -B(317)+0.051*B(358)+0.093*B(360) -! JVS(151) = Jac_FULL(37,27) - JVS(151) = 0.187*B(359) -! JVS(152) = Jac_FULL(37,34) - JVS(152) = 0.207*B(357) -! JVS(153) = Jac_FULL(37,37) - JVS(153) = -B(269)-B(271) -! JVS(154) = Jac_FULL(37,71) - JVS(154) = -B(270)+0.207*B(358)+0.187*B(360) -! JVS(155) = Jac_FULL(37,75) - JVS(155) = -B(272) -! JVS(156) = Jac_FULL(38,27) - JVS(156) = 0.561*B(359) -! JVS(157) = Jac_FULL(38,34) - JVS(157) = 0.491*B(357) -! JVS(158) = Jac_FULL(38,38) - JVS(158) = -B(309)-B(311) -! JVS(159) = Jac_FULL(38,67) - JVS(159) = -B(312) -! JVS(160) = Jac_FULL(38,71) - JVS(160) = -B(310)+0.491*B(358)+0.561*B(360) -! JVS(161) = Jac_FULL(39,39) - JVS(161) = -B(349)-B(377) -! JVS(162) = Jac_FULL(39,67) - JVS(162) = -B(378) -! JVS(163) = Jac_FULL(39,71) - JVS(163) = -B(350) -! JVS(164) = Jac_FULL(40,31) - JVS(164) = B(213)+B(215) -! JVS(165) = Jac_FULL(40,40) - JVS(165) = -B(273) -! JVS(166) = Jac_FULL(40,51) - JVS(166) = B(206) -! JVS(167) = Jac_FULL(40,74) - JVS(167) = B(207) -! JVS(168) = Jac_FULL(40,75) - JVS(168) = -B(274) -! JVS(169) = Jac_FULL(40,78) - JVS(169) = B(214) -! JVS(170) = Jac_FULL(41,27) - JVS(170) = 0.05*B(359) -! JVS(171) = Jac_FULL(41,34) - JVS(171) = 0.059*B(357) -! JVS(172) = Jac_FULL(41,41) - JVS(172) = -B(275)-B(277)-B(278) -! JVS(173) = Jac_FULL(41,58) - JVS(173) = 0.061*B(369)+0.042*B(371)+0.015*B(373) -! JVS(174) = Jac_FULL(41,67) - JVS(174) = 0.042*B(372) -! JVS(175) = Jac_FULL(41,71) - JVS(175) = -B(276)+0.059*B(358)+0.05*B(360)+0.061*B(370) -! JVS(176) = Jac_FULL(41,75) - JVS(176) = -B(279)+0.015*B(374) -! JVS(177) = Jac_FULL(42,42) - JVS(177) = -B(250)-B(252) -! JVS(178) = Jac_FULL(42,69) - JVS(178) = B(108) -! JVS(179) = Jac_FULL(42,71) - JVS(179) = -B(251) -! JVS(180) = Jac_FULL(42,77) - JVS(180) = B(88) -! JVS(181) = Jac_FULL(42,78) - JVS(181) = B(89)+B(109) -! JVS(182) = Jac_FULL(43,34) - JVS(182) = 0.017*B(357) -! JVS(183) = Jac_FULL(43,43) - JVS(183) = -B(265)-B(267) -! JVS(184) = Jac_FULL(43,51) - JVS(184) = B(208)+B(210) -! JVS(185) = Jac_FULL(43,71) - JVS(185) = -B(266)+0.017*B(358) -! JVS(186) = Jac_FULL(43,75) - JVS(186) = -B(268) -! JVS(187) = Jac_FULL(43,78) - JVS(187) = B(209) -! JVS(188) = Jac_FULL(44,27) - JVS(188) = 0.287*B(359) -! JVS(189) = Jac_FULL(44,34) - JVS(189) = 0.119*B(357) -! JVS(190) = Jac_FULL(44,35) - JVS(190) = 0.5*B(315) -! JVS(191) = Jac_FULL(44,36) - JVS(191) = 0.5*B(318) -! JVS(192) = Jac_FULL(44,37) - JVS(192) = 0.23*B(269) -! JVS(193) = Jac_FULL(44,44) - JVS(193) = -B(259)-B(260)-B(262) -! JVS(194) = Jac_FULL(44,55) - JVS(194) = 0.084*B(280)+0.9*B(282) -! JVS(195) = Jac_FULL(44,57) - JVS(195) = 0.174*B(296)+0.742*B(298)+0.008*B(300) -! JVS(196) = Jac_FULL(44,59) - JVS(196) = 0.3*B(289)+0.95*B(291) -! JVS(197) = Jac_FULL(44,67) - JVS(197) = 0.9*B(283)+0.95*B(292)+0.742*B(299) -! JVS(198) = Jac_FULL(44,71) - JVS(198) = -B(261)+0.23*B(270)+0.084*B(281)+0.3*B(290)+0.174*B(297)+0.119*B(358)+0.287*B(360) -! JVS(199) = Jac_FULL(44,75) - JVS(199) = -B(263)+0.008*B(301) -! JVS(200) = Jac_FULL(45,33) - JVS(200) = 0.002*B(353) -! JVS(201) = Jac_FULL(45,35) - JVS(201) = B(315) -! JVS(202) = Jac_FULL(45,36) - JVS(202) = B(318) -! JVS(203) = Jac_FULL(45,38) - JVS(203) = B(309)+1.5*B(311) -! JVS(204) = Jac_FULL(45,39) - JVS(204) = 0.393*B(349)+1.5*B(377) -! JVS(205) = Jac_FULL(45,44) - JVS(205) = B(259)+B(260)+B(262) -! JVS(206) = Jac_FULL(45,45) - JVS(206) = -B(49) -! JVS(207) = Jac_FULL(45,48) - JVS(207) = 0.5*B(323)+0.491*B(327) -! JVS(208) = Jac_FULL(45,49) - JVS(208) = 2*B(253)+B(254)+1.26*B(255)+1.26*B(257) -! JVS(209) = Jac_FULL(45,50) - JVS(209) = 0.51*B(381) -! JVS(210) = Jac_FULL(45,52) - JVS(210) = 0.275*B(331) -! JVS(211) = Jac_FULL(45,54) - JVS(211) = 0.157*B(339) -! JVS(212) = Jac_FULL(45,55) - JVS(212) = 0.416*B(280)+0.45*B(282)+0.5*B(284)+0.67*B(288) -! JVS(213) = Jac_FULL(45,56) - JVS(213) = 0.345*B(363) -! JVS(214) = Jac_FULL(45,57) - JVS(214) = 0.336*B(296)+0.498*B(298)+0.572*B(300)+1.233*B(302) -! JVS(215) = Jac_FULL(45,58) - JVS(215) = 0.265*B(371)+0.012*B(375) -! JVS(216) = Jac_FULL(45,59) - JVS(216) = 0.475*B(291)+0.7*B(295) -! JVS(217) = Jac_FULL(45,60) - JVS(217) = B(229) -! JVS(218) = Jac_FULL(45,61) - JVS(218) = B(216)+B(217)+B(218)+B(225) -! JVS(219) = Jac_FULL(45,63) - JVS(219) = 0.491*B(328)+0.012*B(376) -! JVS(220) = Jac_FULL(45,64) - JVS(220) = 0.034*B(232)+B(234) -! JVS(221) = Jac_FULL(45,67) - JVS(221) = 0.45*B(283)+0.475*B(292)+0.498*B(299)+1.5*B(312)+0.5*B(324)+0.275*B(332)+0.157*B(340)+0.345*B(364)+0.265& - &*B(372)+1.5*B(378)+0.51*B(382) -! JVS(222) = Jac_FULL(45,71) - JVS(222) = -B(50)+B(219)+0.034*B(233)+1.26*B(256)+B(261)+0.416*B(281)+0.336*B(297)+B(310)+0.393*B(350)+0.002*B(354) -! JVS(223) = Jac_FULL(45,75) - JVS(223) = B(226)+1.26*B(258)+B(263)+0.5*B(285)+0.572*B(301) -! JVS(224) = Jac_FULL(46,20) - JVS(224) = 0.704*B(347) -! JVS(225) = Jac_FULL(46,24) - JVS(225) = 0.024*B(351) -! JVS(226) = Jac_FULL(46,25) - JVS(226) = B(205) -! JVS(227) = Jac_FULL(46,26) - JVS(227) = 0.072*B(355) -! JVS(228) = Jac_FULL(46,33) - JVS(228) = 0.452*B(353) -! JVS(229) = Jac_FULL(46,46) - JVS(229) = -B(237)-B(239) -! JVS(230) = Jac_FULL(46,54) - JVS(230) = 0.13*B(339) -! JVS(231) = Jac_FULL(46,56) - JVS(231) = 0.005*B(361)+0.001*B(363)+0.024*B(365) -! JVS(232) = Jac_FULL(46,58) - JVS(232) = 0.127*B(369)+0.045*B(371)+0.102*B(373) -! JVS(233) = Jac_FULL(46,62) - JVS(233) = 0.006*B(306)+0.02*B(308) -! JVS(234) = Jac_FULL(46,67) - JVS(234) = 0.13*B(340)+0.001*B(364)+0.045*B(372) -! JVS(235) = Jac_FULL(46,71) - JVS(235) = -B(238)+0.006*B(307)+0.704*B(348)+0.024*B(352)+0.452*B(354)+0.072*B(356)+0.005*B(362)+0.127*B(370) -! JVS(236) = Jac_FULL(46,74) - JVS(236) = 0 -! JVS(237) = Jac_FULL(46,75) - JVS(237) = 0.024*B(366)+0.102*B(374) -! JVS(238) = Jac_FULL(47,22) - JVS(238) = 2*B(24) -! JVS(239) = Jac_FULL(47,37) - JVS(239) = B(271) -! JVS(240) = Jac_FULL(47,40) - JVS(240) = B(273) -! JVS(241) = Jac_FULL(47,41) - JVS(241) = B(278) -! JVS(242) = Jac_FULL(47,43) - JVS(242) = B(267) -! JVS(243) = Jac_FULL(47,44) - JVS(243) = B(262) -! JVS(244) = Jac_FULL(47,47) - JVS(244) = -B(46)-B(48)-B(391) -! JVS(245) = Jac_FULL(47,49) - JVS(245) = B(257) -! JVS(246) = Jac_FULL(47,51) - JVS(246) = 0 -! JVS(247) = Jac_FULL(47,55) - JVS(247) = 0.5*B(284) -! JVS(248) = Jac_FULL(47,57) - JVS(248) = 0.15*B(300) -! JVS(249) = Jac_FULL(47,58) - JVS(249) = 0 -! JVS(250) = Jac_FULL(47,59) - JVS(250) = 0 -! JVS(251) = Jac_FULL(47,60) - JVS(251) = B(230) -! JVS(252) = Jac_FULL(47,61) - JVS(252) = B(225) -! JVS(253) = Jac_FULL(47,64) - JVS(253) = B(235) -! JVS(254) = Jac_FULL(47,67) - JVS(254) = 0 -! JVS(255) = Jac_FULL(47,71) - JVS(255) = B(42)-B(47) -! JVS(256) = Jac_FULL(47,74) - JVS(256) = B(43) -! JVS(257) = Jac_FULL(47,75) - JVS(257) = 0.2*B(66)+B(226)+B(231)+B(236)+B(258)+B(263)+B(268)+B(272)+B(274)+B(279)+0.5*B(285)+0.15*B(301) -! JVS(258) = Jac_FULL(47,78) - JVS(258) = 0.2*B(67) -! JVS(259) = Jac_FULL(48,48) - JVS(259) = -B(321)-B(323)-B(325)-B(327) -! JVS(260) = Jac_FULL(48,63) - JVS(260) = -B(328) -! JVS(261) = Jac_FULL(48,67) - JVS(261) = -B(324) -! JVS(262) = Jac_FULL(48,71) - JVS(262) = -B(322) -! JVS(263) = Jac_FULL(48,75) - JVS(263) = -B(326) -! JVS(264) = Jac_FULL(49,27) - JVS(264) = 0.097*B(359) -! JVS(265) = Jac_FULL(49,34) - JVS(265) = 0.118*B(357) -! JVS(266) = Jac_FULL(49,35) - JVS(266) = 0.5*B(315) -! JVS(267) = Jac_FULL(49,36) - JVS(267) = 0.5*B(318) -! JVS(268) = Jac_FULL(49,38) - JVS(268) = B(311) -! JVS(269) = Jac_FULL(49,39) - JVS(269) = 0.607*B(349) -! JVS(270) = Jac_FULL(49,43) - JVS(270) = 0.23*B(265) -! JVS(271) = Jac_FULL(49,48) - JVS(271) = 0.009*B(327) -! JVS(272) = Jac_FULL(49,49) - JVS(272) = -B(253)-B(254)-B(255)-B(257) -! JVS(273) = Jac_FULL(49,51) - JVS(273) = 0 -! JVS(274) = Jac_FULL(49,54) - JVS(274) = 0.001*B(339) -! JVS(275) = Jac_FULL(49,57) - JVS(275) = 0.15*B(296)+0.023*B(298) -! JVS(276) = Jac_FULL(49,63) - JVS(276) = 0.009*B(328) -! JVS(277) = Jac_FULL(49,67) - JVS(277) = 0.023*B(299)+B(312)+0.001*B(340) -! JVS(278) = Jac_FULL(49,71) - JVS(278) = -B(256)+0.23*B(266)+0.15*B(297)+0.607*B(350)+0.118*B(358)+0.097*B(360) -! JVS(279) = Jac_FULL(49,75) - JVS(279) = -B(258) -! JVS(280) = Jac_FULL(49,78) - JVS(280) = 0 -! JVS(281) = Jac_FULL(50,50) - JVS(281) = -B(379)-B(381)-B(383)-B(385) -! JVS(282) = Jac_FULL(50,63) - JVS(282) = -B(386) -! JVS(283) = Jac_FULL(50,67) - JVS(283) = -B(382) -! JVS(284) = Jac_FULL(50,71) - JVS(284) = -B(380) -! JVS(285) = Jac_FULL(50,75) - JVS(285) = -B(384) -! JVS(286) = Jac_FULL(51,37) - JVS(286) = 0.24*B(269)+B(271) -! JVS(287) = Jac_FULL(51,43) - JVS(287) = 0.24*B(265)+B(267) -! JVS(288) = Jac_FULL(51,51) - JVS(288) = -B(206)-B(208)-B(210) -! JVS(289) = Jac_FULL(51,68) - JVS(289) = B(174) -! JVS(290) = Jac_FULL(51,70) - JVS(290) = B(200) -! JVS(291) = Jac_FULL(51,71) - JVS(291) = 0.24*B(266)+0.24*B(270) -! JVS(292) = Jac_FULL(51,72) - JVS(292) = B(176) -! JVS(293) = Jac_FULL(51,73) - JVS(293) = B(160) -! JVS(294) = Jac_FULL(51,74) - JVS(294) = -B(207) -! JVS(295) = Jac_FULL(51,75) - JVS(295) = B(164)+B(268)+B(272) -! JVS(296) = Jac_FULL(51,78) - JVS(296) = -B(209) -! JVS(297) = Jac_FULL(51,79) - JVS(297) = B(161)+B(165)+B(175)+B(177)+2*B(178)+B(201) -! JVS(298) = Jac_FULL(52,52) - JVS(298) = -B(329)-B(331)-B(333)-B(335) -! JVS(299) = Jac_FULL(52,63) - JVS(299) = -B(336) -! JVS(300) = Jac_FULL(52,67) - JVS(300) = -B(332) -! JVS(301) = Jac_FULL(52,71) - JVS(301) = -B(330) -! JVS(302) = Jac_FULL(52,75) - JVS(302) = -B(334) -! JVS(303) = Jac_FULL(53,24) - JVS(303) = 0.559*B(351) -! JVS(304) = Jac_FULL(53,26) - JVS(304) = 0.948*B(355) -! JVS(305) = Jac_FULL(53,33) - JVS(305) = 0.936*B(353) -! JVS(306) = Jac_FULL(53,35) - JVS(306) = B(313)+B(315) -! JVS(307) = Jac_FULL(53,36) - JVS(307) = B(316)+B(318) -! JVS(308) = Jac_FULL(53,46) - JVS(308) = B(237) -! JVS(309) = Jac_FULL(53,52) - JVS(309) = 0.079*B(329)+0.126*B(331)+0.187*B(333)+0.24*B(335) -! JVS(310) = Jac_FULL(53,53) - JVS(310) = -B(95)-B(97)-B(99)-B(101)-B(103)-B(116)-B(132)-B(150)-B(170)-B(192) -! JVS(311) = Jac_FULL(53,54) - JVS(311) = 0.5*B(337)+0.729*B(339)+0.75*B(341) -! JVS(312) = Jac_FULL(53,56) - JVS(312) = 0.205*B(361)+0.488*B(365) -! JVS(313) = Jac_FULL(53,58) - JVS(313) = 0.001*B(369)+0.137*B(371)+0.711*B(373) -! JVS(314) = Jac_FULL(53,59) - JVS(314) = 0.675*B(289) -! JVS(315) = Jac_FULL(53,62) - JVS(315) = 0.596*B(306)+0.152*B(308) -! JVS(316) = Jac_FULL(53,63) - JVS(316) = 0.24*B(336) -! JVS(317) = Jac_FULL(53,65) - JVS(317) = 0.616*B(240) -! JVS(318) = Jac_FULL(53,66) - JVS(318) = 0.515*B(305) -! JVS(319) = Jac_FULL(53,67) - JVS(319) = 0.126*B(332)+0.729*B(340)+0.137*B(372) -! JVS(320) = Jac_FULL(53,68) - JVS(320) = -B(133)+B(174) -! JVS(321) = Jac_FULL(53,69) - JVS(321) = -B(117) -! JVS(322) = Jac_FULL(53,70) - JVS(322) = -B(193)+B(200) -! JVS(323) = Jac_FULL(53,71) - JVS(323) = B(238)+0.616*B(241)+0.675*B(290)+0.596*B(307)+B(314)+B(317)+0.079*B(330)+0.5*B(338)+0.559*B(352)+0.936& - &*B(354)+0.948*B(356)+0.205*B(362)+0.001*B(370) -! JVS(324) = Jac_FULL(53,72) - JVS(324) = -B(151)+B(176) -! JVS(325) = Jac_FULL(53,73) - JVS(325) = -B(96)+B(160) -! JVS(326) = Jac_FULL(53,74) - JVS(326) = 0 -! JVS(327) = Jac_FULL(53,75) - JVS(327) = -B(100)+B(164)+0.187*B(334)+0.75*B(342)+0.488*B(366)+0.711*B(374) -! JVS(328) = Jac_FULL(53,76) - JVS(328) = -B(102) -! JVS(329) = Jac_FULL(53,77) - JVS(329) = -B(104) -! JVS(330) = Jac_FULL(53,78) - JVS(330) = -B(98) -! JVS(331) = Jac_FULL(53,79) - JVS(331) = B(161)+B(165)-B(171)+B(175)+B(177)+2*B(178)+B(201) -! JVS(332) = Jac_FULL(54,54) - JVS(332) = -B(337)-B(339)-B(341)-B(343) -! JVS(333) = Jac_FULL(54,63) - JVS(333) = -B(344) -! JVS(334) = Jac_FULL(54,67) - JVS(334) = -B(340) -! JVS(335) = Jac_FULL(54,71) - JVS(335) = -B(338) -! JVS(336) = Jac_FULL(54,75) - JVS(336) = -B(342) -! JVS(337) = Jac_FULL(55,52) - JVS(337) = 0.23*B(329)+0.39*B(331) -! JVS(338) = Jac_FULL(55,55) - JVS(338) = -B(280)-B(282)-B(284)-B(286)-B(288) -! JVS(339) = Jac_FULL(55,58) - JVS(339) = 0.025*B(369)+0.026*B(371)+0.012*B(375) -! JVS(340) = Jac_FULL(55,63) - JVS(340) = -B(287)+0.012*B(376) -! JVS(341) = Jac_FULL(55,67) - JVS(341) = -B(283)+0.39*B(332)+0.026*B(372) -! JVS(342) = Jac_FULL(55,71) - JVS(342) = -B(281)+0.23*B(330)+0.025*B(370) -! JVS(343) = Jac_FULL(55,75) - JVS(343) = -B(285) -! JVS(344) = Jac_FULL(56,56) - JVS(344) = -B(361)-B(363)-B(365)-B(367) -! JVS(345) = Jac_FULL(56,63) - JVS(345) = -B(368) -! JVS(346) = Jac_FULL(56,67) - JVS(346) = -B(364) -! JVS(347) = Jac_FULL(56,71) - JVS(347) = -B(362) -! JVS(348) = Jac_FULL(56,75) - JVS(348) = -B(366) -! JVS(349) = Jac_FULL(57,52) - JVS(349) = 0.357*B(329)+0.936*B(333) -! JVS(350) = Jac_FULL(57,57) - JVS(350) = -B(296)-B(298)-B(300)-B(302) -! JVS(351) = Jac_FULL(57,58) - JVS(351) = 0.025*B(369) -! JVS(352) = Jac_FULL(57,63) - JVS(352) = 0 -! JVS(353) = Jac_FULL(57,67) - JVS(353) = -B(299) -! JVS(354) = Jac_FULL(57,71) - JVS(354) = -B(297)+0.357*B(330)+0.025*B(370) -! JVS(355) = Jac_FULL(57,75) - JVS(355) = -B(301)+0.936*B(334) -! JVS(356) = Jac_FULL(58,58) - JVS(356) = -B(369)-B(371)-B(373)-B(375) -! JVS(357) = Jac_FULL(58,63) - JVS(357) = -B(376) -! JVS(358) = Jac_FULL(58,67) - JVS(358) = -B(372) -! JVS(359) = Jac_FULL(58,71) - JVS(359) = -B(370) -! JVS(360) = Jac_FULL(58,75) - JVS(360) = -B(374) -! JVS(361) = Jac_FULL(59,52) - JVS(361) = 0.32*B(329)+0.16*B(331) -! JVS(362) = Jac_FULL(59,58) - JVS(362) = 0.019*B(371)+0.048*B(373) -! JVS(363) = Jac_FULL(59,59) - JVS(363) = -B(289)-B(291)-B(293)-B(295) -! JVS(364) = Jac_FULL(59,63) - JVS(364) = -B(294) -! JVS(365) = Jac_FULL(59,67) - JVS(365) = -B(292)+0.16*B(332)+0.019*B(372) -! JVS(366) = Jac_FULL(59,71) - JVS(366) = -B(290)+0.32*B(330) -! JVS(367) = Jac_FULL(59,75) - JVS(367) = 0.048*B(374) -! JVS(368) = Jac_FULL(60,13) - JVS(368) = B(345) -! JVS(369) = Jac_FULL(60,21) - JVS(369) = 0.96*B(245) -! JVS(370) = Jac_FULL(60,24) - JVS(370) = 0.445*B(351) -! JVS(371) = Jac_FULL(60,26) - JVS(371) = 0.099*B(355) -! JVS(372) = Jac_FULL(60,33) - JVS(372) = 0.455*B(353) -! JVS(373) = Jac_FULL(60,48) - JVS(373) = 0.195*B(321)+0.25*B(327) -! JVS(374) = Jac_FULL(60,50) - JVS(374) = 0.984*B(379)+0.5*B(381) -! JVS(375) = Jac_FULL(60,56) - JVS(375) = 0.294*B(361)+0.154*B(363)+0.009*B(365) -! JVS(376) = Jac_FULL(60,57) - JVS(376) = 0.129*B(296)+0.047*B(298)+0.467*B(302) -! JVS(377) = Jac_FULL(60,58) - JVS(377) = 0.732*B(369)+0.456*B(371)+0.507*B(373) -! JVS(378) = Jac_FULL(60,60) - JVS(378) = -B(227)-B(229)-B(230) -! JVS(379) = Jac_FULL(60,62) - JVS(379) = 0.439*B(306)+0.431*B(308) -! JVS(380) = Jac_FULL(60,63) - JVS(380) = 0.25*B(328) -! JVS(381) = Jac_FULL(60,64) - JVS(381) = 0.034*B(232)+B(234) -! JVS(382) = Jac_FULL(60,65) - JVS(382) = 0.482*B(240)+B(242) -! JVS(383) = Jac_FULL(60,66) - JVS(383) = 0.084*B(303)+0.246*B(305) -! JVS(384) = Jac_FULL(60,67) - JVS(384) = 0.047*B(299)+0.154*B(364)+0.456*B(372)+0.5*B(382) -! JVS(385) = Jac_FULL(60,68) - JVS(385) = B(154) -! JVS(386) = Jac_FULL(60,70) - JVS(386) = B(198) -! JVS(387) = Jac_FULL(60,71) - JVS(387) = -B(228)+0.034*B(233)+0.482*B(241)+0.96*B(246)+0.129*B(297)+0.084*B(304)+0.439*B(307)+0.195*B(322)+B(346)& - &+0.445*B(352)+0.455*B(354)+0.099*B(356)+0.294*B(362)+0.732*B(370)+0.984*B(380) -! JVS(388) = Jac_FULL(60,72) - JVS(388) = B(140)+B(144)+B(155)+2*B(156)+B(176)+B(199) -! JVS(389) = Jac_FULL(60,73) - JVS(389) = B(141) -! JVS(390) = Jac_FULL(60,75) - JVS(390) = B(145)-B(231)+0.009*B(366)+0.507*B(374) -! JVS(391) = Jac_FULL(60,79) - JVS(391) = B(177) -! JVS(392) = Jac_FULL(61,21) - JVS(392) = 0.081*B(245) -! JVS(393) = Jac_FULL(61,24) - JVS(393) = 0.026*B(351) -! JVS(394) = Jac_FULL(61,26) - JVS(394) = 0.026*B(355) -! JVS(395) = Jac_FULL(61,28) - JVS(395) = B(243) -! JVS(396) = Jac_FULL(61,29) - JVS(396) = 0.35*B(247)+B(249) -! JVS(397) = Jac_FULL(61,30) - JVS(397) = B(222) -! JVS(398) = Jac_FULL(61,33) - JVS(398) = 0.024*B(353) -! JVS(399) = Jac_FULL(61,39) - JVS(399) = 0.096*B(349) -! JVS(400) = Jac_FULL(61,46) - JVS(400) = B(237) -! JVS(401) = Jac_FULL(61,48) - JVS(401) = 1.61*B(321)+B(323)+0.191*B(327) -! JVS(402) = Jac_FULL(61,49) - JVS(402) = B(254) -! JVS(403) = Jac_FULL(61,50) - JVS(403) = 0.984*B(379)+0.5*B(381) -! JVS(404) = Jac_FULL(61,51) - JVS(404) = 0 -! JVS(405) = Jac_FULL(61,52) - JVS(405) = 0.624*B(329)+0.592*B(331)+0.24*B(335) -! JVS(406) = Jac_FULL(61,54) - JVS(406) = 0.276*B(337)+0.235*B(339) -! JVS(407) = Jac_FULL(61,55) - JVS(407) = 0.084*B(280)+0.2*B(282)+0.67*B(288) -! JVS(408) = Jac_FULL(61,56) - JVS(408) = 0.732*B(361)+0.5*B(363) -! JVS(409) = Jac_FULL(61,57) - JVS(409) = 0.055*B(296)+0.125*B(298)+0.227*B(300)+0.3*B(302) -! JVS(410) = Jac_FULL(61,58) - JVS(410) = 0.244*B(369)+0.269*B(371)+0.079*B(373) -! JVS(411) = Jac_FULL(61,59) - JVS(411) = 0.3*B(289)+0.1*B(291) -! JVS(412) = Jac_FULL(61,61) - JVS(412) = -B(216)-B(217)-B(218)-B(220)-B(225) -! JVS(413) = Jac_FULL(61,62) - JVS(413) = 0.01*B(306)+0.134*B(308) -! JVS(414) = Jac_FULL(61,63) - JVS(414) = 0.191*B(328)+0.24*B(336) -! JVS(415) = Jac_FULL(61,65) - JVS(415) = 0.115*B(240) -! JVS(416) = Jac_FULL(61,66) - JVS(416) = 0.213*B(303)+0.506*B(305) -! JVS(417) = Jac_FULL(61,67) - JVS(417) = 0.2*B(283)+0.1*B(292)+0.125*B(299)+B(324)+0.592*B(332)+0.235*B(340)+0.5*B(364)+0.269*B(372)+0.5*B(382) -! JVS(418) = Jac_FULL(61,68) - JVS(418) = B(128)+B(196) -! JVS(419) = Jac_FULL(61,69) - JVS(419) = 0.75*B(110) -! JVS(420) = Jac_FULL(61,70) - JVS(420) = B(182)+B(186)+B(188)+B(197)+B(198)+B(200)+2*B(202) -! JVS(421) = Jac_FULL(61,71) - JVS(421) = -B(219)+B(238)+0.115*B(241)+B(244)+0.081*B(246)+0.35*B(248)+0.084*B(281)+0.3*B(290)+0.055*B(297)+0.213& - &*B(304)+0.01*B(307)+1.61*B(322)+0.624*B(330)+0.276*B(338)+0.096*B(350)+0.026*B(352)+0.024*B(354)+0.026& - &*B(356)+0.732*B(362)+0.244*B(370)+0.984*B(380) -! JVS(422) = Jac_FULL(61,72) - JVS(422) = B(146)+B(199) -! JVS(423) = Jac_FULL(61,73) - JVS(423) = B(78)+B(183) -! JVS(424) = Jac_FULL(61,74) - JVS(424) = 0 -! JVS(425) = Jac_FULL(61,75) - JVS(425) = B(82)+B(187)-B(226)+0.227*B(301)+0.079*B(374) -! JVS(426) = Jac_FULL(61,76) - JVS(426) = B(79)+B(83)+B(84)+2*B(85)+0.75*B(92)+0.75*B(111)+B(129)+B(147)+B(166)+B(189) -! JVS(427) = Jac_FULL(61,77) - JVS(427) = 0.75*B(93) -! JVS(428) = Jac_FULL(61,78) - JVS(428) = -B(221) -! JVS(429) = Jac_FULL(61,79) - JVS(429) = B(167)+B(201) -! JVS(430) = Jac_FULL(62,25) - JVS(430) = B(203) -! JVS(431) = Jac_FULL(62,54) - JVS(431) = 0.276*B(341) -! JVS(432) = Jac_FULL(62,56) - JVS(432) = 0.511*B(365) -! JVS(433) = Jac_FULL(62,57) - JVS(433) = 0.572*B(300) -! JVS(434) = Jac_FULL(62,58) - JVS(434) = 0.321*B(373) -! JVS(435) = Jac_FULL(62,62) - JVS(435) = -0.69*B(306)-B(308) -! JVS(436) = Jac_FULL(62,63) - JVS(436) = 0 -! JVS(437) = Jac_FULL(62,67) - JVS(437) = 0 -! JVS(438) = Jac_FULL(62,69) - JVS(438) = B(106) -! JVS(439) = Jac_FULL(62,71) - JVS(439) = -0.69*B(307) -! JVS(440) = Jac_FULL(62,73) - JVS(440) = B(107) -! JVS(441) = Jac_FULL(62,74) - JVS(441) = B(204) -! JVS(442) = Jac_FULL(62,75) - JVS(442) = 0.572*B(301)+0.276*B(342)+0.511*B(366)+0.321*B(374) -! JVS(443) = Jac_FULL(63,11) - JVS(443) = B(34) -! JVS(444) = Jac_FULL(63,48) - JVS(444) = -B(327) -! JVS(445) = Jac_FULL(63,50) - JVS(445) = -B(385) -! JVS(446) = Jac_FULL(63,52) - JVS(446) = -B(335) -! JVS(447) = Jac_FULL(63,54) - JVS(447) = -B(343) -! JVS(448) = Jac_FULL(63,55) - JVS(448) = -B(286) -! JVS(449) = Jac_FULL(63,56) - JVS(449) = -B(367) -! JVS(450) = Jac_FULL(63,58) - JVS(450) = -B(375) -! JVS(451) = Jac_FULL(63,59) - JVS(451) = -B(293) -! JVS(452) = Jac_FULL(63,63) - JVS(452) = -B(2)-B(4)-B(6)-B(9)-B(11)-B(287)-B(294)-B(328)-B(336)-B(344)-B(368)-B(376)-B(386) -! JVS(453) = Jac_FULL(63,67) - JVS(453) = -B(5)+B(30) -! JVS(454) = Jac_FULL(63,71) - JVS(454) = 0 -! JVS(455) = Jac_FULL(63,73) - JVS(455) = -B(7) -! JVS(456) = Jac_FULL(63,74) - JVS(456) = B(1)-B(10)-B(12) -! JVS(457) = Jac_FULL(63,75) - JVS(457) = B(29) -! JVS(458) = Jac_FULL(64,20) - JVS(458) = 0.261*B(347) -! JVS(459) = Jac_FULL(64,24) - JVS(459) = 0.122*B(351) -! JVS(460) = Jac_FULL(64,26) - JVS(460) = 0.204*B(355) -! JVS(461) = Jac_FULL(64,33) - JVS(461) = 0.244*B(353) -! JVS(462) = Jac_FULL(64,35) - JVS(462) = B(313) -! JVS(463) = Jac_FULL(64,36) - JVS(463) = B(316) -! JVS(464) = Jac_FULL(64,38) - JVS(464) = B(309) -! JVS(465) = Jac_FULL(64,42) - JVS(465) = B(250)+B(252) -! JVS(466) = Jac_FULL(64,48) - JVS(466) = B(325) -! JVS(467) = Jac_FULL(64,50) - JVS(467) = 0.45*B(385) -! JVS(468) = Jac_FULL(64,54) - JVS(468) = 0.474*B(337)+0.205*B(339)+0.474*B(341)+0.147*B(343) -! JVS(469) = Jac_FULL(64,55) - JVS(469) = B(286) -! JVS(470) = Jac_FULL(64,56) - JVS(470) = 0.497*B(361)+0.363*B(363)+0.037*B(365)+0.45*B(367) -! JVS(471) = Jac_FULL(64,57) - JVS(471) = 0.013*B(296)+0.218*B(300) -! JVS(472) = Jac_FULL(64,58) - JVS(472) = 0.511*B(369)+0.305*B(371)+0.151*B(373)+0.069*B(375) -! JVS(473) = Jac_FULL(64,59) - JVS(473) = 0.675*B(289)+0.45*B(293) -! JVS(474) = Jac_FULL(64,62) - JVS(474) = 0.213*B(306)+0.147*B(308) -! JVS(475) = Jac_FULL(64,63) - JVS(475) = B(287)+0.45*B(294)+0.147*B(344)+0.45*B(368)+0.069*B(376)+0.45*B(386) -! JVS(476) = Jac_FULL(64,64) - JVS(476) = -B(232)-B(234)-B(235) -! JVS(477) = Jac_FULL(64,65) - JVS(477) = 0.37*B(240) -! JVS(478) = Jac_FULL(64,66) - JVS(478) = 0.558*B(303)+0.71*B(305) -! JVS(479) = Jac_FULL(64,67) - JVS(479) = 0.205*B(340)+0.363*B(364)+0.305*B(372) -! JVS(480) = Jac_FULL(64,69) - JVS(480) = 0 -! JVS(481) = Jac_FULL(64,71) - JVS(481) = -B(233)+0.37*B(241)+B(251)+0.675*B(290)+0.013*B(297)+0.558*B(304)+0.213*B(307)+B(310)+B(314)+B(317)+0.474& - &*B(338)+0.261*B(348)+0.122*B(352)+0.244*B(354)+0.204*B(356)+0.497*B(362)+0.511*B(370) -! JVS(482) = Jac_FULL(64,73) - JVS(482) = 0 -! JVS(483) = Jac_FULL(64,74) - JVS(483) = 0 -! JVS(484) = Jac_FULL(64,75) - JVS(484) = -B(236)+0.218*B(301)+B(326)+0.474*B(342)+0.037*B(366)+0.151*B(374) -! JVS(485) = Jac_FULL(64,77) - JVS(485) = 0 -! JVS(486) = Jac_FULL(64,78) - JVS(486) = 0 -! JVS(487) = Jac_FULL(65,24) - JVS(487) = 0.332*B(351) -! JVS(488) = Jac_FULL(65,26) - JVS(488) = 0.089*B(355) -! JVS(489) = Jac_FULL(65,33) - JVS(489) = 0.11*B(353) -! JVS(490) = Jac_FULL(65,50) - JVS(490) = 0.55*B(385) -! JVS(491) = Jac_FULL(65,55) - JVS(491) = 0.416*B(280) -! JVS(492) = Jac_FULL(65,56) - JVS(492) = 0.437*B(367) -! JVS(493) = Jac_FULL(65,57) - JVS(493) = 0.15*B(296)+0.21*B(298)+0.233*B(302) -! JVS(494) = Jac_FULL(65,58) - JVS(494) = 0.072*B(369)+0.026*B(371)+0.001*B(373)+0.659*B(375) -! JVS(495) = Jac_FULL(65,59) - JVS(495) = 0.55*B(293) -! JVS(496) = Jac_FULL(65,62) - JVS(496) = 0.177*B(306)+0.243*B(308) -! JVS(497) = Jac_FULL(65,63) - JVS(497) = 0.55*B(294)+0.437*B(368)+0.659*B(376)+0.55*B(386) -! JVS(498) = Jac_FULL(65,65) - JVS(498) = -B(240)-B(242) -! JVS(499) = Jac_FULL(65,66) - JVS(499) = 0.115*B(303) -! JVS(500) = Jac_FULL(65,67) - JVS(500) = 0.21*B(299)+0.026*B(372) -! JVS(501) = Jac_FULL(65,69) - JVS(501) = 0.5*B(110)+B(112)+0.5*B(114)+B(118) -! JVS(502) = Jac_FULL(65,71) - JVS(502) = -B(241)+0.416*B(281)+0.15*B(297)+0.115*B(304)+0.177*B(307)+0.332*B(352)+0.11*B(354)+0.089*B(356)+0.072& - &*B(370) -! JVS(503) = Jac_FULL(65,73) - JVS(503) = 0 -! JVS(504) = Jac_FULL(65,74) - JVS(504) = 0 -! JVS(505) = Jac_FULL(65,75) - JVS(505) = B(113)+0.001*B(374) -! JVS(506) = Jac_FULL(65,76) - JVS(506) = 0.5*B(111) -! JVS(507) = Jac_FULL(65,77) - JVS(507) = 0.5*B(115) -! JVS(508) = Jac_FULL(66,26) - JVS(508) = 0.417*B(355) -! JVS(509) = Jac_FULL(66,33) - JVS(509) = 0.125*B(353) -! JVS(510) = Jac_FULL(66,34) - JVS(510) = 0.055*B(357) -! JVS(511) = Jac_FULL(66,52) - JVS(511) = 0.1*B(331)+0.75*B(335) -! JVS(512) = Jac_FULL(66,54) - JVS(512) = 0.276*B(337)+0.276*B(339)+0.853*B(343) -! JVS(513) = Jac_FULL(66,56) - JVS(513) = 0.119*B(361)+0.215*B(363)+0.113*B(367) -! JVS(514) = Jac_FULL(66,57) - JVS(514) = 0.332*B(296) -! JVS(515) = Jac_FULL(66,58) - JVS(515) = 0.043*B(371)+0.259*B(375) -! JVS(516) = Jac_FULL(66,59) - JVS(516) = 0.7*B(295) -! JVS(517) = Jac_FULL(66,62) - JVS(517) = 0.048*B(306)+0.435*B(308) -! JVS(518) = Jac_FULL(66,63) - JVS(518) = 0.75*B(336)+0.853*B(344)+0.113*B(368)+0.259*B(376) -! JVS(519) = Jac_FULL(66,66) - JVS(519) = -0.671*B(303)-B(305) -! JVS(520) = Jac_FULL(66,67) - JVS(520) = 0.1*B(332)+0.276*B(340)+0.215*B(364)+0.043*B(372) -! JVS(521) = Jac_FULL(66,68) - JVS(521) = B(134) -! JVS(522) = Jac_FULL(66,69) - JVS(522) = 0.5*B(110)+0.5*B(114)+B(118)+B(135)+B(152)+B(172) -! JVS(523) = Jac_FULL(66,71) - JVS(523) = 0.332*B(297)-0.671*B(304)+0.048*B(307)+0.276*B(338)+0.125*B(354)+0.417*B(356)+0.055*B(358)+0.119*B(362) -! JVS(524) = Jac_FULL(66,72) - JVS(524) = B(153) -! JVS(525) = Jac_FULL(66,73) - JVS(525) = 0 -! JVS(526) = Jac_FULL(66,74) - JVS(526) = 0 -! JVS(527) = Jac_FULL(66,75) - JVS(527) = 0 -! JVS(528) = Jac_FULL(66,76) - JVS(528) = 0.5*B(111) -! JVS(529) = Jac_FULL(66,77) - JVS(529) = 0.5*B(115) -! JVS(530) = Jac_FULL(66,79) - JVS(530) = B(173) -! JVS(531) = Jac_FULL(67,38) - JVS(531) = -B(311) -! JVS(532) = Jac_FULL(67,39) - JVS(532) = -B(377) -! JVS(533) = Jac_FULL(67,48) - JVS(533) = -B(323) -! JVS(534) = Jac_FULL(67,50) - JVS(534) = -B(381) -! JVS(535) = Jac_FULL(67,52) - JVS(535) = -B(331) -! JVS(536) = Jac_FULL(67,54) - JVS(536) = -B(339) -! JVS(537) = Jac_FULL(67,55) - JVS(537) = -B(282) -! JVS(538) = Jac_FULL(67,56) - JVS(538) = -B(363) -! JVS(539) = Jac_FULL(67,57) - JVS(539) = -B(298) -! JVS(540) = Jac_FULL(67,58) - JVS(540) = -B(371) -! JVS(541) = Jac_FULL(67,59) - JVS(541) = -B(291) -! JVS(542) = Jac_FULL(67,63) - JVS(542) = B(2)-B(4) -! JVS(543) = Jac_FULL(67,67) - JVS(543) = -B(5)-B(13)-B(15)-B(30)-B(31)-B(51)-B(61)-B(283)-B(292)-B(299)-B(312)-B(324)-B(332)-B(340)-B(364)-B(372)& - &-B(378)-B(382) -! JVS(544) = Jac_FULL(67,68) - JVS(544) = 0.25*B(124) -! JVS(545) = Jac_FULL(67,70) - JVS(545) = 0.25*B(184) -! JVS(546) = Jac_FULL(67,71) - JVS(546) = -B(52) -! JVS(547) = Jac_FULL(67,72) - JVS(547) = 0.25*B(142) -! JVS(548) = Jac_FULL(67,73) - JVS(548) = -B(14) -! JVS(549) = Jac_FULL(67,74) - JVS(549) = -B(16) -! JVS(550) = Jac_FULL(67,75) - JVS(550) = 0 -! JVS(551) = Jac_FULL(67,78) - JVS(551) = -B(62)+0.25*B(125)+0.25*B(143)+0.25*B(162)+0.25*B(185) -! JVS(552) = Jac_FULL(67,79) - JVS(552) = 0.25*B(163) -! JVS(553) = Jac_FULL(68,14) - JVS(553) = 2*B(264) -! JVS(554) = Jac_FULL(68,15) - JVS(554) = B(121) -! JVS(555) = Jac_FULL(68,27) - JVS(555) = 0 -! JVS(556) = Jac_FULL(68,33) - JVS(556) = 0.011*B(353) -! JVS(557) = Jac_FULL(68,35) - JVS(557) = B(313)+0.5*B(315) -! JVS(558) = Jac_FULL(68,36) - JVS(558) = B(316)+0.5*B(318) -! JVS(559) = Jac_FULL(68,44) - JVS(559) = B(259)+B(260)+B(262) -! JVS(560) = Jac_FULL(68,46) - JVS(560) = B(237)+B(239) -! JVS(561) = Jac_FULL(68,54) - JVS(561) = 0.123*B(339) -! JVS(562) = Jac_FULL(68,55) - JVS(562) = 0.67*B(288) -! JVS(563) = Jac_FULL(68,56) - JVS(563) = 0 -! JVS(564) = Jac_FULL(68,57) - JVS(564) = 0.467*B(302) -! JVS(565) = Jac_FULL(68,58) - JVS(565) = 0.137*B(371) -! JVS(566) = Jac_FULL(68,59) - JVS(566) = 0.675*B(289) -! JVS(567) = Jac_FULL(68,60) - JVS(567) = B(227)+B(230) -! JVS(568) = Jac_FULL(68,62) - JVS(568) = 0 -! JVS(569) = Jac_FULL(68,63) - JVS(569) = 0 -! JVS(570) = Jac_FULL(68,64) - JVS(570) = 0 -! JVS(571) = Jac_FULL(68,65) - JVS(571) = 0.492*B(240)+B(242) -! JVS(572) = Jac_FULL(68,66) - JVS(572) = 0.029*B(303)+0.667*B(305) -! JVS(573) = Jac_FULL(68,67) - JVS(573) = 0.123*B(340)+0.137*B(372) -! JVS(574) = Jac_FULL(68,68) - JVS(574) = -B(119)-B(122)-B(124)-B(126)-B(128)-B(130)-B(134)-2*B(136)-B(154)-B(174) -! JVS(575) = Jac_FULL(68,69) - JVS(575) = -B(135) -! JVS(576) = Jac_FULL(68,70) - JVS(576) = B(182)+B(186)+B(198)+B(200)+2*B(202) -! JVS(577) = Jac_FULL(68,71) - JVS(577) = B(228)+B(238)+0.492*B(241)+B(261)+0.675*B(290)+0.029*B(304)+B(314)+B(317)+0.011*B(354) -! JVS(578) = Jac_FULL(68,72) - JVS(578) = -B(155)+B(199) -! JVS(579) = Jac_FULL(68,73) - JVS(579) = -B(123)+B(183) -! JVS(580) = Jac_FULL(68,74) - JVS(580) = -B(120) -! JVS(581) = Jac_FULL(68,75) - JVS(581) = -B(127)+B(187)+B(231)+B(263) -! JVS(582) = Jac_FULL(68,76) - JVS(582) = -B(129) -! JVS(583) = Jac_FULL(68,77) - JVS(583) = -B(131) -! JVS(584) = Jac_FULL(68,78) - JVS(584) = -B(125) -! JVS(585) = Jac_FULL(68,79) - JVS(585) = -B(175)+B(201) -! JVS(586) = Jac_FULL(69,20) - JVS(586) = 0.035*B(347) -! JVS(587) = Jac_FULL(69,24) - JVS(587) = 0.07*B(351) -! JVS(588) = Jac_FULL(69,26) - JVS(588) = 0.347*B(355) -! JVS(589) = Jac_FULL(69,27) - JVS(589) = 0.009*B(359) -! JVS(590) = Jac_FULL(69,33) - JVS(590) = 0.143*B(353) -! JVS(591) = Jac_FULL(69,34) - JVS(591) = 0.011*B(357) -! JVS(592) = Jac_FULL(69,50) - JVS(592) = 0.016*B(379)+0.051*B(383) -! JVS(593) = Jac_FULL(69,52) - JVS(593) = 0.093*B(329)+0.008*B(331)+0.064*B(333)+0.01*B(335) -! JVS(594) = Jac_FULL(69,54) - JVS(594) = 0.25*B(337)+0.18*B(339)+0.25*B(341) -! JVS(595) = Jac_FULL(69,56) - JVS(595) = 0.09*B(361)+0.001*B(363)+0.176*B(365) -! JVS(596) = Jac_FULL(69,57) - JVS(596) = 0.041*B(296)+0.051*B(300) -! JVS(597) = Jac_FULL(69,58) - JVS(597) = 0.082*B(369)+0.002*B(371)+0.136*B(373)+0.001*B(375) -! JVS(598) = Jac_FULL(69,59) - JVS(598) = 0.025*B(289) -! JVS(599) = Jac_FULL(69,62) - JVS(599) = 0.173*B(306)+0.095*B(308) -! JVS(600) = Jac_FULL(69,63) - JVS(600) = 0.01*B(336)+0.001*B(376) -! JVS(601) = Jac_FULL(69,64) - JVS(601) = 0.001*B(232) -! JVS(602) = Jac_FULL(69,65) - JVS(602) = 0.042*B(240) -! JVS(603) = Jac_FULL(69,66) - JVS(603) = 0.07*B(303)+0.04*B(305) -! JVS(604) = Jac_FULL(69,67) - JVS(604) = 0.008*B(332)+0.18*B(340)+0.001*B(364)+0.002*B(372) -! JVS(605) = Jac_FULL(69,68) - JVS(605) = -B(134) -! JVS(606) = Jac_FULL(69,69) - JVS(606) = -B(106)-B(108)-B(110)-B(112)-B(114)-2*B(118)-B(135)-B(152)-B(172)-B(194) -! JVS(607) = Jac_FULL(69,70) - JVS(607) = -B(195) -! JVS(608) = Jac_FULL(69,71) - JVS(608) = 0.001*B(233)+0.042*B(241)+0.025*B(290)+0.041*B(297)+0.07*B(304)+0.173*B(307)+0.093*B(330)+0.25*B(338)+0.035& - &*B(348)+0.07*B(352)+0.143*B(354)+0.347*B(356)+0.011*B(358)+0.009*B(360)+0.09*B(362)+0.082*B(370)+0.016& - &*B(380) -! JVS(609) = Jac_FULL(69,72) - JVS(609) = -B(153) -! JVS(610) = Jac_FULL(69,73) - JVS(610) = -B(107) -! JVS(611) = Jac_FULL(69,74) - JVS(611) = 0 -! JVS(612) = Jac_FULL(69,75) - JVS(612) = -B(113)+0.051*B(301)+0.064*B(334)+0.25*B(342)+0.176*B(366)+0.136*B(374)+0.051*B(384) -! JVS(613) = Jac_FULL(69,76) - JVS(613) = -B(111) -! JVS(614) = Jac_FULL(69,77) - JVS(614) = -B(115) -! JVS(615) = Jac_FULL(69,78) - JVS(615) = -B(109) -! JVS(616) = Jac_FULL(69,79) - JVS(616) = -B(173) -! JVS(617) = Jac_FULL(70,18) - JVS(617) = B(181) -! JVS(618) = Jac_FULL(70,52) - JVS(618) = 0.192*B(331)+0.24*B(335) -! JVS(619) = Jac_FULL(70,55) - JVS(619) = 0.5*B(280)+0.5*B(284)+0.33*B(288) -! JVS(620) = Jac_FULL(70,57) - JVS(620) = 0.289*B(296)+0.15*B(300) -! JVS(621) = Jac_FULL(70,58) - JVS(621) = 0 -! JVS(622) = Jac_FULL(70,59) - JVS(622) = 0.3*B(295) -! JVS(623) = Jac_FULL(70,63) - JVS(623) = 0.24*B(336) -! JVS(624) = Jac_FULL(70,67) - JVS(624) = 0.192*B(332) -! JVS(625) = Jac_FULL(70,68) - JVS(625) = -B(196) -! JVS(626) = Jac_FULL(70,69) - JVS(626) = -B(194) -! JVS(627) = Jac_FULL(70,70) - JVS(627) = -B(179)-B(182)-B(184)-B(186)-B(188)-B(190)-B(195)-B(197)-B(198)-B(200)-2*B(202) -! JVS(628) = Jac_FULL(70,71) - JVS(628) = 0.5*B(281)+0.289*B(297) -! JVS(629) = Jac_FULL(70,72) - JVS(629) = -B(199) -! JVS(630) = Jac_FULL(70,73) - JVS(630) = -B(183) -! JVS(631) = Jac_FULL(70,74) - JVS(631) = -B(180) -! JVS(632) = Jac_FULL(70,75) - JVS(632) = -B(187)+0.5*B(285)+0.15*B(301) -! JVS(633) = Jac_FULL(70,76) - JVS(633) = -B(189) -! JVS(634) = Jac_FULL(70,77) - JVS(634) = -B(191) -! JVS(635) = Jac_FULL(70,78) - JVS(635) = -B(185) -! JVS(636) = Jac_FULL(70,79) - JVS(636) = -B(201) -! JVS(637) = Jac_FULL(71,10) - JVS(637) = -B(74) -! JVS(638) = Jac_FULL(71,11) - JVS(638) = 2*B(32) -! JVS(639) = Jac_FULL(71,12) - JVS(639) = -B(319) -! JVS(640) = Jac_FULL(71,13) - JVS(640) = -B(345) -! JVS(641) = Jac_FULL(71,19) - JVS(641) = 2*B(69)-B(70) -! JVS(642) = Jac_FULL(71,20) - JVS(642) = -B(347) -! JVS(643) = Jac_FULL(71,21) - JVS(643) = -B(245) -! JVS(644) = Jac_FULL(71,23) - JVS(644) = B(38)-B(40) -! JVS(645) = Jac_FULL(71,24) - JVS(645) = -B(351) -! JVS(646) = Jac_FULL(71,26) - JVS(646) = -B(355) -! JVS(647) = Jac_FULL(71,27) - JVS(647) = -B(359) -! JVS(648) = Jac_FULL(71,28) - JVS(648) = -B(243) -! JVS(649) = Jac_FULL(71,29) - JVS(649) = -0.65*B(247)+B(249) -! JVS(650) = Jac_FULL(71,32) - JVS(650) = 0.39*B(58)-B(59) -! JVS(651) = Jac_FULL(71,33) - JVS(651) = -B(353) -! JVS(652) = Jac_FULL(71,34) - JVS(652) = -B(357) -! JVS(653) = Jac_FULL(71,35) - JVS(653) = -B(313) -! JVS(654) = Jac_FULL(71,36) - JVS(654) = -B(316) -! JVS(655) = Jac_FULL(71,37) - JVS(655) = -B(269) -! JVS(656) = Jac_FULL(71,38) - JVS(656) = -B(309)+0.5*B(311) -! JVS(657) = Jac_FULL(71,39) - JVS(657) = -0.397*B(349)+0.5*B(377) -! JVS(658) = Jac_FULL(71,41) - JVS(658) = -B(275) -! JVS(659) = Jac_FULL(71,42) - JVS(659) = -0.34*B(250)+B(252) -! JVS(660) = Jac_FULL(71,43) - JVS(660) = -B(265) -! JVS(661) = Jac_FULL(71,44) - JVS(661) = -B(260) -! JVS(662) = Jac_FULL(71,45) - JVS(662) = -B(49) -! JVS(663) = Jac_FULL(71,46) - JVS(663) = -B(237) -! JVS(664) = Jac_FULL(71,47) - JVS(664) = -B(46)+B(48) -! JVS(665) = Jac_FULL(71,48) - JVS(665) = -B(321)+0.12*B(323) -! JVS(666) = Jac_FULL(71,49) - JVS(666) = -B(255) -! JVS(667) = Jac_FULL(71,50) - JVS(667) = -B(379)+0.32*B(381) -! JVS(668) = Jac_FULL(71,51) - JVS(668) = 0 -! JVS(669) = Jac_FULL(71,52) - JVS(669) = -B(329)+0.266*B(331) -! JVS(670) = Jac_FULL(71,54) - JVS(670) = -B(337)+0.567*B(339) -! JVS(671) = Jac_FULL(71,55) - JVS(671) = -B(280)+0.208*B(282)+0.33*B(288) -! JVS(672) = Jac_FULL(71,56) - JVS(672) = -B(361)+0.155*B(363) -! JVS(673) = Jac_FULL(71,57) - JVS(673) = -B(296)+0.285*B(298) -! JVS(674) = Jac_FULL(71,58) - JVS(674) = -B(369)+0.378*B(371) -! JVS(675) = Jac_FULL(71,59) - JVS(675) = -B(289)+0.164*B(291) -! JVS(676) = Jac_FULL(71,60) - JVS(676) = -B(227) -! JVS(677) = Jac_FULL(71,61) - JVS(677) = -B(218) -! JVS(678) = Jac_FULL(71,62) - JVS(678) = -B(306) -! JVS(679) = Jac_FULL(71,63) - JVS(679) = 0 -! JVS(680) = Jac_FULL(71,64) - JVS(680) = -B(232) -! JVS(681) = Jac_FULL(71,65) - JVS(681) = -B(240) -! JVS(682) = Jac_FULL(71,66) - JVS(682) = -B(303) -! JVS(683) = Jac_FULL(71,67) - JVS(683) = -B(51)+B(61)+0.208*B(283)+0.164*B(292)+0.285*B(299)+0.5*B(312)+0.12*B(324)+0.266*B(332)+0.567*B(340)+0.155& - &*B(364)+0.378*B(372)+0.5*B(378)+0.32*B(382) -! JVS(684) = Jac_FULL(71,68) - JVS(684) = 0 -! JVS(685) = Jac_FULL(71,69) - JVS(685) = 0 -! JVS(686) = Jac_FULL(71,70) - JVS(686) = 0 -! JVS(687) = Jac_FULL(71,71) - JVS(687) = -B(36)-B(41)-B(42)-B(44)-B(47)-B(50)-B(52)-B(60)-B(71)-B(72)-B(75)-B(76)-B(219)-B(228)-B(233)-B(238)-B(241)& - &-B(244)-B(246)-0.65*B(248)-0.34*B(251)-B(256)-B(261)-B(266)-B(270)-B(276)-B(281)-B(290)-B(297)-B(304)-B(307)& - &-B(310)-B(314)-B(317)-B(320)-B(322)-B(330)-B(338)-B(346)-B(348)-0.397*B(350)-B(352)-B(354)-B(356)-B(358)& - &-B(360)-B(362)-B(370)-B(380) -! JVS(688) = Jac_FULL(71,72) - JVS(688) = 0 -! JVS(689) = Jac_FULL(71,73) - JVS(689) = -B(37)+B(53) -! JVS(690) = Jac_FULL(71,74) - JVS(690) = -B(43) -! JVS(691) = Jac_FULL(71,75) - JVS(691) = -B(45)+0.8*B(66) -! JVS(692) = Jac_FULL(71,76) - JVS(692) = 0 -! JVS(693) = Jac_FULL(71,77) - JVS(693) = 0 -! JVS(694) = Jac_FULL(71,78) - JVS(694) = B(54)+B(62)+0.8*B(67)-B(73) -! JVS(695) = Jac_FULL(71,79) - JVS(695) = 0 -! JVS(696) = Jac_FULL(72,16) - JVS(696) = B(139) -! JVS(697) = Jac_FULL(72,49) - JVS(697) = 0.37*B(255)+0.37*B(257) -! JVS(698) = Jac_FULL(72,51) - JVS(698) = 0 -! JVS(699) = Jac_FULL(72,54) - JVS(699) = 0.201*B(339) -! JVS(700) = Jac_FULL(72,55) - JVS(700) = 0.1*B(282) -! JVS(701) = Jac_FULL(72,57) - JVS(701) = 0.048*B(298)+0.3*B(302) -! JVS(702) = Jac_FULL(72,58) - JVS(702) = 0.006*B(371) -! JVS(703) = Jac_FULL(72,59) - JVS(703) = 0.05*B(291) -! JVS(704) = Jac_FULL(72,63) - JVS(704) = 0 -! JVS(705) = Jac_FULL(72,64) - JVS(705) = 0.965*B(232)+B(235) -! JVS(706) = Jac_FULL(72,65) - JVS(706) = 0.096*B(240) -! JVS(707) = Jac_FULL(72,66) - JVS(707) = 0.049*B(303)+0.333*B(305) -! JVS(708) = Jac_FULL(72,67) - JVS(708) = 0.1*B(283)+0.05*B(292)+0.048*B(299)+0.201*B(340)+0.006*B(372) -! JVS(709) = Jac_FULL(72,68) - JVS(709) = -B(154) -! JVS(710) = Jac_FULL(72,69) - JVS(710) = -B(152) -! JVS(711) = Jac_FULL(72,70) - JVS(711) = -B(198) -! JVS(712) = Jac_FULL(72,71) - JVS(712) = 0.965*B(233)+0.096*B(241)+0.37*B(256)+0.049*B(304) -! JVS(713) = Jac_FULL(72,72) - JVS(713) = -B(137)-B(140)-B(142)-B(144)-B(146)-B(148)-B(153)-B(155)-2*B(156)-B(176)-B(199) -! JVS(714) = Jac_FULL(72,73) - JVS(714) = -B(141) -! JVS(715) = Jac_FULL(72,74) - JVS(715) = -B(138) -! JVS(716) = Jac_FULL(72,75) - JVS(716) = -B(145)+B(236)+0.37*B(258) -! JVS(717) = Jac_FULL(72,76) - JVS(717) = -B(147) -! JVS(718) = Jac_FULL(72,77) - JVS(718) = -B(149) -! JVS(719) = Jac_FULL(72,78) - JVS(719) = -B(143) -! JVS(720) = Jac_FULL(72,79) - JVS(720) = -B(177) -! JVS(721) = Jac_FULL(73,23) - JVS(721) = B(38) -! JVS(722) = Jac_FULL(73,30) - JVS(722) = -B(223) -! JVS(723) = Jac_FULL(73,53) - JVS(723) = -B(95) -! JVS(724) = Jac_FULL(73,54) - JVS(724) = 0 -! JVS(725) = Jac_FULL(73,56) - JVS(725) = 0 -! JVS(726) = Jac_FULL(73,58) - JVS(726) = 0 -! JVS(727) = Jac_FULL(73,59) - JVS(727) = 0 -! JVS(728) = Jac_FULL(73,61) - JVS(728) = 0 -! JVS(729) = Jac_FULL(73,62) - JVS(729) = 0 -! JVS(730) = Jac_FULL(73,63) - JVS(730) = -B(6)+B(9) -! JVS(731) = Jac_FULL(73,65) - JVS(731) = 0 -! JVS(732) = Jac_FULL(73,66) - JVS(732) = 0 -! JVS(733) = Jac_FULL(73,67) - JVS(733) = -B(13) -! JVS(734) = Jac_FULL(73,68) - JVS(734) = -B(122) -! JVS(735) = Jac_FULL(73,69) - JVS(735) = -B(106) -! JVS(736) = Jac_FULL(73,70) - JVS(736) = -B(182) -! JVS(737) = Jac_FULL(73,71) - JVS(737) = -B(36) -! JVS(738) = Jac_FULL(73,72) - JVS(738) = -B(140) -! JVS(739) = Jac_FULL(73,73) - JVS(739) = -B(7)-B(14)-B(17)-2*B(19)-B(37)-B(53)-B(78)-B(86)-B(96)-B(107)-B(123)-B(141)-B(160)-B(183)-B(224) -! JVS(740) = Jac_FULL(73,74) - JVS(740) = B(1)+B(10)+B(26) -! JVS(741) = Jac_FULL(73,75) - JVS(741) = -B(18)+B(27)+B(28) -! JVS(742) = Jac_FULL(73,76) - JVS(742) = -B(79) -! JVS(743) = Jac_FULL(73,77) - JVS(743) = -B(87) -! JVS(744) = Jac_FULL(73,78) - JVS(744) = -B(54) -! JVS(745) = Jac_FULL(73,79) - JVS(745) = -B(161) -! JVS(746) = Jac_FULL(74,15) - JVS(746) = B(121) -! JVS(747) = Jac_FULL(74,16) - JVS(747) = B(139) -! JVS(748) = Jac_FULL(74,17) - JVS(748) = B(159) -! JVS(749) = Jac_FULL(74,18) - JVS(749) = B(181) -! JVS(750) = Jac_FULL(74,22) - JVS(750) = B(23) -! JVS(751) = Jac_FULL(74,23) - JVS(751) = B(39)+B(40) -! JVS(752) = Jac_FULL(74,25) - JVS(752) = -B(203) -! JVS(753) = Jac_FULL(74,30) - JVS(753) = B(223) -! JVS(754) = Jac_FULL(74,31) - JVS(754) = -B(211) -! JVS(755) = Jac_FULL(74,32) - JVS(755) = B(57)+0.61*B(58)+B(59) -! JVS(756) = Jac_FULL(74,40) - JVS(756) = 0 -! JVS(757) = Jac_FULL(74,47) - JVS(757) = B(48) -! JVS(758) = Jac_FULL(74,49) - JVS(758) = 0 -! JVS(759) = Jac_FULL(74,51) - JVS(759) = -B(206) -! JVS(760) = Jac_FULL(74,52) - JVS(760) = 0.187*B(333) -! JVS(761) = Jac_FULL(74,53) - JVS(761) = B(95)+B(99) -! JVS(762) = Jac_FULL(74,54) - JVS(762) = 0.474*B(341) -! JVS(763) = Jac_FULL(74,55) - JVS(763) = 0 -! JVS(764) = Jac_FULL(74,56) - JVS(764) = 0 -! JVS(765) = Jac_FULL(74,57) - JVS(765) = 0 -! JVS(766) = Jac_FULL(74,58) - JVS(766) = 0.391*B(373) -! JVS(767) = Jac_FULL(74,59) - JVS(767) = 0 -! JVS(768) = Jac_FULL(74,60) - JVS(768) = 0 -! JVS(769) = Jac_FULL(74,61) - JVS(769) = 0 -! JVS(770) = Jac_FULL(74,62) - JVS(770) = 0.338*B(306)+B(308) -! JVS(771) = Jac_FULL(74,63) - JVS(771) = B(6)-B(9)-B(11) -! JVS(772) = Jac_FULL(74,64) - JVS(772) = 0 -! JVS(773) = Jac_FULL(74,65) - JVS(773) = 0 -! JVS(774) = Jac_FULL(74,66) - JVS(774) = 0 -! JVS(775) = Jac_FULL(74,67) - JVS(775) = B(13)-B(15) -! JVS(776) = Jac_FULL(74,68) - JVS(776) = -B(119)+B(122)+B(126) -! JVS(777) = Jac_FULL(74,69) - JVS(777) = B(112) -! JVS(778) = Jac_FULL(74,70) - JVS(778) = -B(179)+B(182)+B(186) -! JVS(779) = Jac_FULL(74,71) - JVS(779) = B(41)-B(42)+B(44)+B(60)+0.338*B(307) -! JVS(780) = Jac_FULL(74,72) - JVS(780) = -B(137)+B(140)+B(144) -! JVS(781) = Jac_FULL(74,73) - JVS(781) = B(7)+B(14)+2*B(17)+2*B(19)+B(53)+B(78)+B(86)+B(96)+B(123)+B(141)+B(160)+B(183)+B(224) -! JVS(782) = Jac_FULL(74,74) - JVS(782) = -B(1)-B(10)-B(12)-B(16)-B(21)-B(43)-B(55)-B(120)-B(138)-B(157)-B(180)-B(204)-B(207)-B(212) -! JVS(783) = Jac_FULL(74,75) - JVS(783) = 2*B(18)-B(22)+B(29)+B(45)+0.8*B(66)+2*B(68)+B(82)+B(90)+B(100)+B(113)+B(127)+B(145)+B(164)+B(187)+0.187& - &*B(334)+0.474*B(342)+0.391*B(374) -! JVS(784) = Jac_FULL(74,76) - JVS(784) = B(79)+B(83) -! JVS(785) = Jac_FULL(74,77) - JVS(785) = B(87)+B(91) -! JVS(786) = Jac_FULL(74,78) - JVS(786) = B(54)-B(56)+0.8*B(67) -! JVS(787) = Jac_FULL(74,79) - JVS(787) = -B(158)+B(161)+B(165) -! JVS(788) = Jac_FULL(75,22) - JVS(788) = B(23) -! JVS(789) = Jac_FULL(75,32) - JVS(789) = 0.39*B(58) -! JVS(790) = Jac_FULL(75,37) - JVS(790) = -B(271) -! JVS(791) = Jac_FULL(75,40) - JVS(791) = -B(273) -! JVS(792) = Jac_FULL(75,41) - JVS(792) = -B(278) -! JVS(793) = Jac_FULL(75,43) - JVS(793) = -B(267) -! JVS(794) = Jac_FULL(75,44) - JVS(794) = -B(262) -! JVS(795) = Jac_FULL(75,47) - JVS(795) = B(46) -! JVS(796) = Jac_FULL(75,48) - JVS(796) = -B(325) -! JVS(797) = Jac_FULL(75,49) - JVS(797) = -B(257) -! JVS(798) = Jac_FULL(75,50) - JVS(798) = -B(383) -! JVS(799) = Jac_FULL(75,51) - JVS(799) = 0 -! JVS(800) = Jac_FULL(75,52) - JVS(800) = -B(333) -! JVS(801) = Jac_FULL(75,53) - JVS(801) = -B(99) -! JVS(802) = Jac_FULL(75,54) - JVS(802) = -B(341) -! JVS(803) = Jac_FULL(75,55) - JVS(803) = -B(284) -! JVS(804) = Jac_FULL(75,56) - JVS(804) = -B(365) -! JVS(805) = Jac_FULL(75,57) - JVS(805) = -B(300) -! JVS(806) = Jac_FULL(75,58) - JVS(806) = -B(373) -! JVS(807) = Jac_FULL(75,59) - JVS(807) = 0 -! JVS(808) = Jac_FULL(75,60) - JVS(808) = -B(230) -! JVS(809) = Jac_FULL(75,61) - JVS(809) = -B(225) -! JVS(810) = Jac_FULL(75,62) - JVS(810) = 0 -! JVS(811) = Jac_FULL(75,63) - JVS(811) = B(11) -! JVS(812) = Jac_FULL(75,64) - JVS(812) = -B(235) -! JVS(813) = Jac_FULL(75,65) - JVS(813) = 0 -! JVS(814) = Jac_FULL(75,66) - JVS(814) = 0 -! JVS(815) = Jac_FULL(75,67) - JVS(815) = B(15) -! JVS(816) = Jac_FULL(75,68) - JVS(816) = -B(126) -! JVS(817) = Jac_FULL(75,69) - JVS(817) = -B(112) -! JVS(818) = Jac_FULL(75,70) - JVS(818) = -B(186) -! JVS(819) = Jac_FULL(75,71) - JVS(819) = -B(44)+B(47) -! JVS(820) = Jac_FULL(75,72) - JVS(820) = -B(144) -! JVS(821) = Jac_FULL(75,73) - JVS(821) = -B(17) -! JVS(822) = Jac_FULL(75,74) - JVS(822) = B(12)+B(16)-B(21)-B(26) -! JVS(823) = Jac_FULL(75,75) - JVS(823) = -B(18)-B(22)-B(27)-B(28)-B(29)-B(45)-B(66)-2*B(68)-B(82)-B(90)-B(100)-B(113)-B(127)-B(145)-B(164)-B(187)& - &-B(226)-B(231)-B(236)-B(258)-B(263)-B(268)-B(272)-B(274)-B(279)-B(285)-B(301)-B(326)-B(334)-B(342)-B(366)& - &-B(374)-B(384) -! JVS(824) = Jac_FULL(75,76) - JVS(824) = -B(83) -! JVS(825) = Jac_FULL(75,77) - JVS(825) = -B(91) -! JVS(826) = Jac_FULL(75,78) - JVS(826) = -B(67) -! JVS(827) = Jac_FULL(75,79) - JVS(827) = -B(165) -! JVS(828) = Jac_FULL(76,12) - JVS(828) = B(319) -! JVS(829) = Jac_FULL(76,25) - JVS(829) = B(205) -! JVS(830) = Jac_FULL(76,29) - JVS(830) = 0.65*B(247) -! JVS(831) = Jac_FULL(76,33) - JVS(831) = 0.011*B(353) -! JVS(832) = Jac_FULL(76,46) - JVS(832) = B(239) -! JVS(833) = Jac_FULL(76,48) - JVS(833) = 0.3*B(327) -! JVS(834) = Jac_FULL(76,50) - JVS(834) = 0.26*B(381) -! JVS(835) = Jac_FULL(76,52) - JVS(835) = 0.25*B(335) -! JVS(836) = Jac_FULL(76,54) - JVS(836) = 0 -! JVS(837) = Jac_FULL(76,56) - JVS(837) = 0.076*B(363) -! JVS(838) = Jac_FULL(76,58) - JVS(838) = 0.197*B(371)+0.03*B(373) -! JVS(839) = Jac_FULL(76,59) - JVS(839) = 0.3*B(295) -! JVS(840) = Jac_FULL(76,60) - JVS(840) = B(229) -! JVS(841) = Jac_FULL(76,62) - JVS(841) = 0 -! JVS(842) = Jac_FULL(76,63) - JVS(842) = 0.3*B(328)+0.25*B(336) -! JVS(843) = Jac_FULL(76,64) - JVS(843) = 0 -! JVS(844) = Jac_FULL(76,65) - JVS(844) = 0 -! JVS(845) = Jac_FULL(76,66) - JVS(845) = 0 -! JVS(846) = Jac_FULL(76,67) - JVS(846) = 0.076*B(364)+0.197*B(372)+0.26*B(382) -! JVS(847) = Jac_FULL(76,68) - JVS(847) = B(122)+B(126)-B(128)+2*B(136)+B(154)+B(174)+B(196) -! JVS(848) = Jac_FULL(76,69) - JVS(848) = -B(110) -! JVS(849) = Jac_FULL(76,70) - JVS(849) = -B(188)+B(197) -! JVS(850) = Jac_FULL(76,71) - JVS(850) = 0.65*B(248)+B(320)+0.011*B(354) -! JVS(851) = Jac_FULL(76,72) - JVS(851) = -B(146)+B(155) -! JVS(852) = Jac_FULL(76,73) - JVS(852) = -B(78)+B(123) -! JVS(853) = Jac_FULL(76,74) - JVS(853) = 0 -! JVS(854) = Jac_FULL(76,75) - JVS(854) = -B(82)+B(127)+0.03*B(374) -! JVS(855) = Jac_FULL(76,76) - JVS(855) = -B(79)-B(80)-B(83)-2*B(84)-2*B(85)-B(92)-B(111)-B(129)-B(147)-B(166)-B(189) -! JVS(856) = Jac_FULL(76,77) - JVS(856) = -B(93) -! JVS(857) = Jac_FULL(76,78) - JVS(857) = -B(81) -! JVS(858) = Jac_FULL(76,79) - JVS(858) = -B(167)+B(175) -! JVS(859) = Jac_FULL(77,13) - JVS(859) = B(345) -! JVS(860) = Jac_FULL(77,20) - JVS(860) = 0.965*B(347) -! JVS(861) = Jac_FULL(77,21) - JVS(861) = 0.05*B(245) -! JVS(862) = Jac_FULL(77,24) - JVS(862) = 0.695*B(351) -! JVS(863) = Jac_FULL(77,26) - JVS(863) = 0.653*B(355) -! JVS(864) = Jac_FULL(77,27) - JVS(864) = 0.804*B(359) -! JVS(865) = Jac_FULL(77,33) - JVS(865) = 0.835*B(353) -! JVS(866) = Jac_FULL(77,34) - JVS(866) = 0.765*B(357) -! JVS(867) = Jac_FULL(77,35) - JVS(867) = B(315) -! JVS(868) = Jac_FULL(77,36) - JVS(868) = B(318) -! JVS(869) = Jac_FULL(77,37) - JVS(869) = 0.76*B(269) -! JVS(870) = Jac_FULL(77,38) - JVS(870) = B(309) -! JVS(871) = Jac_FULL(77,39) - JVS(871) = 0.1*B(349) -! JVS(872) = Jac_FULL(77,42) - JVS(872) = 0.34*B(250) -! JVS(873) = Jac_FULL(77,43) - JVS(873) = 0.76*B(265) -! JVS(874) = Jac_FULL(77,48) - JVS(874) = B(321)+B(325)+0.2*B(327) -! JVS(875) = Jac_FULL(77,50) - JVS(875) = 0.984*B(379)+0.949*B(383) -! JVS(876) = Jac_FULL(77,51) - JVS(876) = 0 -! JVS(877) = Jac_FULL(77,52) - JVS(877) = 0.907*B(329)+0.066*B(331)+0.749*B(333) -! JVS(878) = Jac_FULL(77,54) - JVS(878) = 0.75*B(337)+0.031*B(339)+0.276*B(341) -! JVS(879) = Jac_FULL(77,55) - JVS(879) = 0.5*B(280)+0.1*B(282)+0.5*B(284)+0.33*B(288) -! JVS(880) = Jac_FULL(77,56) - JVS(880) = 0.91*B(361)+0.022*B(363)+0.824*B(365) -! JVS(881) = Jac_FULL(77,57) - JVS(881) = 0.67*B(296)+0.048*B(298)+0.799*B(300) -! JVS(882) = Jac_FULL(77,58) - JVS(882) = 0.918*B(369)+0.033*B(371)+0.442*B(373)+0.012*B(375) -! JVS(883) = Jac_FULL(77,59) - JVS(883) = 0.3*B(289)+0.05*B(291) -! JVS(884) = Jac_FULL(77,62) - JVS(884) = 0.376*B(306)+0.564*B(308) -! JVS(885) = Jac_FULL(77,63) - JVS(885) = 0.2*B(328)+0.012*B(376) -! JVS(886) = Jac_FULL(77,64) - JVS(886) = 0.034*B(232)+B(234) -! JVS(887) = Jac_FULL(77,65) - JVS(887) = 0.37*B(240)+B(242) -! JVS(888) = Jac_FULL(77,66) - JVS(888) = 0.473*B(303)+0.96*B(305) -! JVS(889) = Jac_FULL(77,67) - JVS(889) = 0.1*B(283)+0.05*B(292)+0.048*B(299)+0.066*B(332)+0.031*B(340)+0.022*B(364)+0.033*B(372) -! JVS(890) = Jac_FULL(77,68) - JVS(890) = -B(130)+B(154) -! JVS(891) = Jac_FULL(77,69) - JVS(891) = -B(114) -! JVS(892) = Jac_FULL(77,70) - JVS(892) = -B(190)+B(198) -! JVS(893) = Jac_FULL(77,71) - JVS(893) = 0.034*B(233)+0.37*B(241)+0.05*B(246)+0.34*B(251)+0.76*B(266)+0.76*B(270)+0.5*B(281)+0.3*B(290)+0.67*B(297)& - &+0.473*B(304)+0.376*B(307)+B(310)+B(322)+0.907*B(330)+0.75*B(338)+B(346)+0.965*B(348)+0.1*B(350)+0.695& - &*B(352)+0.835*B(354)+0.653*B(356)+0.765*B(358)+0.804*B(360)+0.91*B(362)+0.918*B(370)+0.984*B(380) -! JVS(894) = Jac_FULL(77,72) - JVS(894) = B(140)+B(144)-B(148)+B(155)+2*B(156)+B(176)+B(199) -! JVS(895) = Jac_FULL(77,73) - JVS(895) = -B(86)+B(141) -! JVS(896) = Jac_FULL(77,74) - JVS(896) = 0 -! JVS(897) = Jac_FULL(77,75) - JVS(897) = -B(90)+B(145)+0.5*B(285)+0.799*B(301)+B(326)+0.749*B(334)+0.276*B(342)+0.824*B(366)+0.442*B(374)+0.949& - &*B(384) -! JVS(898) = Jac_FULL(77,76) - JVS(898) = -B(92) -! JVS(899) = Jac_FULL(77,77) - JVS(899) = -B(87)-B(88)-B(91)-B(93)-2*B(94)-B(115)-B(131)-B(149)-B(168)-B(191) -! JVS(900) = Jac_FULL(77,78) - JVS(900) = -B(89) -! JVS(901) = Jac_FULL(77,79) - JVS(901) = -B(169)+B(177) -! JVS(902) = Jac_FULL(78,10) - JVS(902) = B(74) -! JVS(903) = Jac_FULL(78,19) - JVS(903) = B(70) -! JVS(904) = Jac_FULL(78,21) - JVS(904) = 0.95*B(245) -! JVS(905) = Jac_FULL(78,23) - JVS(905) = B(39) -! JVS(906) = Jac_FULL(78,27) - JVS(906) = 0.187*B(359) -! JVS(907) = Jac_FULL(78,28) - JVS(907) = B(243) -! JVS(908) = Jac_FULL(78,29) - JVS(908) = B(249) -! JVS(909) = Jac_FULL(78,30) - JVS(909) = B(222)+B(223) -! JVS(910) = Jac_FULL(78,31) - JVS(910) = -B(213) -! JVS(911) = Jac_FULL(78,32) - JVS(911) = B(57)+0.61*B(58) -! JVS(912) = Jac_FULL(78,34) - JVS(912) = 0.224*B(357) -! JVS(913) = Jac_FULL(78,35) - JVS(913) = 0.5*B(315) -! JVS(914) = Jac_FULL(78,36) - JVS(914) = 0.5*B(318) -! JVS(915) = Jac_FULL(78,38) - JVS(915) = 1.5*B(311) -! JVS(916) = Jac_FULL(78,39) - JVS(916) = 0.297*B(349)+1.5*B(377) -! JVS(917) = Jac_FULL(78,40) - JVS(917) = 0 -! JVS(918) = Jac_FULL(78,42) - JVS(918) = B(252) -! JVS(919) = Jac_FULL(78,44) - JVS(919) = B(259) -! JVS(920) = Jac_FULL(78,45) - JVS(920) = B(49) -! JVS(921) = Jac_FULL(78,48) - JVS(921) = 0.12*B(323)+0.5*B(327) -! JVS(922) = Jac_FULL(78,49) - JVS(922) = 2*B(253)+0.63*B(255)+0.63*B(257) -! JVS(923) = Jac_FULL(78,50) - JVS(923) = 0.06*B(381) -! JVS(924) = Jac_FULL(78,51) - JVS(924) = -B(208) -! JVS(925) = Jac_FULL(78,52) - JVS(925) = 0 -! JVS(926) = Jac_FULL(78,54) - JVS(926) = 0.033*B(339) -! JVS(927) = Jac_FULL(78,55) - JVS(927) = 0.008*B(282)+0.34*B(288) -! JVS(928) = Jac_FULL(78,56) - JVS(928) = 0.056*B(363) -! JVS(929) = Jac_FULL(78,57) - JVS(929) = 0.4*B(298)+1.233*B(302) -! JVS(930) = Jac_FULL(78,58) - JVS(930) = 0.003*B(371)+0.013*B(375) -! JVS(931) = Jac_FULL(78,59) - JVS(931) = 0.064*B(291) -! JVS(932) = Jac_FULL(78,60) - JVS(932) = B(229) -! JVS(933) = Jac_FULL(78,61) - JVS(933) = 2*B(216)+B(218)-B(220)+B(225) -! JVS(934) = Jac_FULL(78,62) - JVS(934) = 0.113*B(306)+0.341*B(308) -! JVS(935) = Jac_FULL(78,63) - JVS(935) = 0.5*B(328)+0.013*B(376) -! JVS(936) = Jac_FULL(78,64) - JVS(936) = B(234) -! JVS(937) = Jac_FULL(78,65) - JVS(937) = 0 -! JVS(938) = Jac_FULL(78,66) - JVS(938) = 0.379*B(303) -! JVS(939) = Jac_FULL(78,67) - JVS(939) = B(51)-B(61)+0.008*B(283)+0.064*B(292)+0.4*B(299)+1.5*B(312)+0.12*B(324)+0.033*B(340)+0.056*B(364)+0.003& - &*B(372)+1.5*B(378)+0.06*B(382) -! JVS(940) = Jac_FULL(78,68) - JVS(940) = -B(124) -! JVS(941) = Jac_FULL(78,69) - JVS(941) = -B(108)+B(110)+B(112)+B(114)+B(118) -! JVS(942) = Jac_FULL(78,70) - JVS(942) = -B(184) -! JVS(943) = Jac_FULL(78,71) - JVS(943) = B(44)+B(50)+B(52)+B(71)-B(72)+B(75)+B(76)+B(219)+B(244)+0.95*B(246)+0.63*B(256)+0.379*B(304)+0.113*B(307)& - &+0.297*B(350)+0.224*B(358)+0.187*B(360) -! JVS(944) = Jac_FULL(78,72) - JVS(944) = -B(142) -! JVS(945) = Jac_FULL(78,73) - JVS(945) = -B(53)+B(78)+B(86)+B(224) -! JVS(946) = Jac_FULL(78,74) - JVS(946) = -B(55) -! JVS(947) = Jac_FULL(78,75) - JVS(947) = B(45)-B(66)+B(82)+B(90)+B(113)+B(226)+0.63*B(258) -! JVS(948) = Jac_FULL(78,76) - JVS(948) = B(79)-B(80)+B(83)+2*B(85)+B(92)+B(111) -! JVS(949) = Jac_FULL(78,77) - JVS(949) = B(87)-B(88)+B(91)+B(93)+B(94)+B(115) -! JVS(950) = Jac_FULL(78,78) - JVS(950) = -B(54)-B(56)-B(62)-2*B(63)-2*B(64)-B(67)-B(73)-B(81)-B(89)-B(109)-B(125)-B(143)-B(162)-B(185)-B(209)-B(214)& - &-B(221)-B(388) -! JVS(951) = Jac_FULL(78,79) - JVS(951) = -B(163) -! JVS(952) = Jac_FULL(79,17) - JVS(952) = B(159) -! JVS(953) = Jac_FULL(79,41) - JVS(953) = B(275)+B(278) -! JVS(954) = Jac_FULL(79,58) - JVS(954) = 0 -! JVS(955) = Jac_FULL(79,63) - JVS(955) = 0 -! JVS(956) = Jac_FULL(79,67) - JVS(956) = 0 -! JVS(957) = Jac_FULL(79,68) - JVS(957) = -B(174) -! JVS(958) = Jac_FULL(79,69) - JVS(958) = -B(172) -! JVS(959) = Jac_FULL(79,70) - JVS(959) = -B(200) -! JVS(960) = Jac_FULL(79,71) - JVS(960) = B(276) -! JVS(961) = Jac_FULL(79,72) - JVS(961) = -B(176) -! JVS(962) = Jac_FULL(79,73) - JVS(962) = -B(160) -! JVS(963) = Jac_FULL(79,74) - JVS(963) = -B(157) -! JVS(964) = Jac_FULL(79,75) - JVS(964) = -B(164)+B(279) -! JVS(965) = Jac_FULL(79,76) - JVS(965) = -B(166) -! JVS(966) = Jac_FULL(79,77) - JVS(966) = -B(168) -! JVS(967) = Jac_FULL(79,78) - JVS(967) = -B(162) -! JVS(968) = Jac_FULL(79,79) - JVS(968) = -B(158)-B(161)-B(163)-B(165)-B(167)-B(169)-B(173)-B(175)-B(177)-2*B(178)-B(201) - -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(10)+JVS(3)*UV(71) - JUV(2) = JVS(4)*UV(2)+JVS(5)*UV(39)+JVS(6)*UV(50)+JVS(7)*UV(67) - JUV(3) = JVS(8)*UV(3)+JVS(9)*UV(30)+JVS(10)*UV(39)+JVS(11)*UV(48)+JVS(12)*UV(50)+JVS(13)*UV(52)+JVS(14)*UV(54)+JVS(15)& - &*UV(55)+JVS(16)*UV(56)+JVS(17)*UV(57)+JVS(18)*UV(58)+JVS(19)*UV(59)+JVS(20)*UV(67)+JVS(21)*UV(71)+JVS(22)& - &*UV(73) - JUV(4) = JVS(23)*UV(4)+JVS(24)*UV(50)+JVS(25)*UV(56)+JVS(26)*UV(58)+JVS(27)*UV(67)+JVS(28)*UV(68)+JVS(29)*UV(69)& - &+JVS(30)*UV(76)+JVS(31)*UV(77)+JVS(32)*UV(78) - JUV(5) = JVS(33)*UV(5)+JVS(34)*UV(52)+JVS(35)*UV(54)+JVS(36)*UV(56)+JVS(37)*UV(57)+JVS(38)*UV(58)+JVS(39)*UV(67)& - &+JVS(40)*UV(69)+JVS(41)*UV(70)+JVS(42)*UV(72)+JVS(43)*UV(76)+JVS(44)*UV(77)+JVS(45)*UV(78)+JVS(46)*UV(79) - JUV(6) = JVS(47)*UV(6)+JVS(48)*UV(68)+JVS(49)*UV(78) - JUV(7) = JVS(50)*UV(7)+JVS(51)*UV(70)+JVS(52)*UV(72)+JVS(53)*UV(78)+JVS(54)*UV(79) - JUV(8) = JVS(55)*UV(8)+JVS(56)*UV(31)+JVS(57)*UV(50)+JVS(58)*UV(74)+JVS(59)*UV(75) - JUV(9) = JVS(60)*UV(9)+JVS(61)*UV(31)+JVS(62)*UV(41)+JVS(63)*UV(50)+JVS(64)*UV(63)+JVS(65)*UV(67)+JVS(66)*UV(71)& - &+JVS(67)*UV(74)+JVS(68)*UV(75) - JUV(10) = JVS(69)*UV(10)+JVS(70)*UV(71) - JUV(11) = JVS(71)*UV(11)+JVS(72)*UV(67) - JUV(12) = JVS(73)*UV(12)+JVS(74)*UV(71) - JUV(13) = JVS(75)*UV(13)+JVS(76)*UV(71) - JUV(14) = JVS(77)*UV(14)+JVS(78)*UV(27)+JVS(79)*UV(54)+JVS(80)*UV(67)+JVS(81)*UV(71) - JUV(15) = JVS(82)*UV(15)+JVS(83)*UV(68)+JVS(84)*UV(74) - JUV(16) = JVS(85)*UV(16)+JVS(86)*UV(72)+JVS(87)*UV(74) - JUV(17) = JVS(88)*UV(17)+JVS(89)*UV(74)+JVS(90)*UV(79) - JUV(18) = JVS(91)*UV(18)+JVS(92)*UV(70)+JVS(93)*UV(74) - JUV(19) = JVS(94)*UV(19)+JVS(95)*UV(71)+JVS(96)*UV(78) - JUV(20) = JVS(97)*UV(20)+JVS(98)*UV(71) - JUV(21) = JVS(99)*UV(21)+JVS(100)*UV(71) - JUV(22) = JVS(101)*UV(22)+JVS(102)*UV(74)+JVS(103)*UV(75) - JUV(23) = JVS(104)*UV(23)+JVS(105)*UV(71)+JVS(106)*UV(73) - JUV(24) = JVS(107)*UV(24)+JVS(108)*UV(71) - JUV(25) = JVS(109)*UV(24)+JVS(110)*UV(25)+JVS(111)*UV(71)+JVS(112)*UV(74) - JUV(26) = JVS(113)*UV(26)+JVS(114)*UV(71) - JUV(27) = JVS(115)*UV(27)+JVS(116)*UV(71) - JUV(28) = JVS(117)*UV(28)+JVS(118)*UV(69)+JVS(119)*UV(71)+JVS(120)*UV(76)+JVS(121)*UV(77) - JUV(29) = JVS(122)*UV(29)+JVS(123)*UV(71)+JVS(124)*UV(76)+JVS(125)*UV(78) - JUV(30) = JVS(126)*UV(30)+JVS(127)*UV(61)+JVS(128)*UV(73)+JVS(129)*UV(78) - JUV(31) = JVS(130)*UV(31)+JVS(131)*UV(40)+JVS(132)*UV(74)+JVS(133)*UV(75)+JVS(134)*UV(78) - JUV(32) = JVS(135)*UV(32)+JVS(136)*UV(71)+JVS(137)*UV(74)+JVS(138)*UV(78) - JUV(33) = JVS(139)*UV(33)+JVS(140)*UV(71) - JUV(34) = JVS(141)*UV(34)+JVS(142)*UV(71) - JUV(35) = JVS(143)*UV(27)+JVS(144)*UV(34)+JVS(145)*UV(35)+JVS(146)*UV(71) - JUV(36) = JVS(147)*UV(27)+JVS(148)*UV(34)+JVS(149)*UV(36)+JVS(150)*UV(71) - JUV(37) = JVS(151)*UV(27)+JVS(152)*UV(34)+JVS(153)*UV(37)+JVS(154)*UV(71)+JVS(155)*UV(75) - JUV(38) = JVS(156)*UV(27)+JVS(157)*UV(34)+JVS(158)*UV(38)+JVS(159)*UV(67)+JVS(160)*UV(71) - JUV(39) = JVS(161)*UV(39)+JVS(162)*UV(67)+JVS(163)*UV(71) - JUV(40) = JVS(164)*UV(31)+JVS(165)*UV(40)+JVS(166)*UV(51)+JVS(167)*UV(74)+JVS(168)*UV(75)+JVS(169)*UV(78) - JUV(41) = JVS(170)*UV(27)+JVS(171)*UV(34)+JVS(172)*UV(41)+JVS(173)*UV(58)+JVS(174)*UV(67)+JVS(175)*UV(71)+JVS(176)& - &*UV(75) - JUV(42) = JVS(177)*UV(42)+JVS(178)*UV(69)+JVS(179)*UV(71)+JVS(180)*UV(77)+JVS(181)*UV(78) - JUV(43) = JVS(182)*UV(34)+JVS(183)*UV(43)+JVS(184)*UV(51)+JVS(185)*UV(71)+JVS(186)*UV(75)+JVS(187)*UV(78) - JUV(44) = JVS(188)*UV(27)+JVS(189)*UV(34)+JVS(190)*UV(35)+JVS(191)*UV(36)+JVS(192)*UV(37)+JVS(193)*UV(44)+JVS(194)& - &*UV(55)+JVS(195)*UV(57)+JVS(196)*UV(59)+JVS(197)*UV(67)+JVS(198)*UV(71)+JVS(199)*UV(75) - JUV(45) = JVS(200)*UV(33)+JVS(201)*UV(35)+JVS(202)*UV(36)+JVS(203)*UV(38)+JVS(204)*UV(39)+JVS(205)*UV(44)+JVS(206)& - &*UV(45)+JVS(207)*UV(48)+JVS(208)*UV(49)+JVS(209)*UV(50)+JVS(210)*UV(52)+JVS(211)*UV(54)+JVS(212)*UV(55)& - &+JVS(213)*UV(56)+JVS(214)*UV(57)+JVS(215)*UV(58)+JVS(216)*UV(59)+JVS(217)*UV(60)+JVS(218)*UV(61)+JVS(219)& - &*UV(63)+JVS(220)*UV(64)+JVS(221)*UV(67)+JVS(222)*UV(71)+JVS(223)*UV(75) - JUV(46) = JVS(224)*UV(20)+JVS(225)*UV(24)+JVS(226)*UV(25)+JVS(227)*UV(26)+JVS(228)*UV(33)+JVS(229)*UV(46)+JVS(230)& - &*UV(54)+JVS(231)*UV(56)+JVS(232)*UV(58)+JVS(233)*UV(62)+JVS(234)*UV(67)+JVS(235)*UV(71)+JVS(237)*UV(75) - JUV(47) = JVS(238)*UV(22)+JVS(239)*UV(37)+JVS(240)*UV(40)+JVS(241)*UV(41)+JVS(242)*UV(43)+JVS(243)*UV(44)+JVS(244)& - &*UV(47)+JVS(245)*UV(49)+JVS(247)*UV(55)+JVS(248)*UV(57)+JVS(251)*UV(60)+JVS(252)*UV(61)+JVS(253)*UV(64)& - &+JVS(255)*UV(71)+JVS(256)*UV(74)+JVS(257)*UV(75)+JVS(258)*UV(78) - JUV(48) = JVS(259)*UV(48)+JVS(260)*UV(63)+JVS(261)*UV(67)+JVS(262)*UV(71)+JVS(263)*UV(75) - JUV(49) = JVS(264)*UV(27)+JVS(265)*UV(34)+JVS(266)*UV(35)+JVS(267)*UV(36)+JVS(268)*UV(38)+JVS(269)*UV(39)+JVS(270)& - &*UV(43)+JVS(271)*UV(48)+JVS(272)*UV(49)+JVS(274)*UV(54)+JVS(275)*UV(57)+JVS(276)*UV(63)+JVS(277)*UV(67)& - &+JVS(278)*UV(71)+JVS(279)*UV(75) - JUV(50) = JVS(281)*UV(50)+JVS(282)*UV(63)+JVS(283)*UV(67)+JVS(284)*UV(71)+JVS(285)*UV(75) - JUV(51) = JVS(286)*UV(37)+JVS(287)*UV(43)+JVS(288)*UV(51)+JVS(289)*UV(68)+JVS(290)*UV(70)+JVS(291)*UV(71)+JVS(292)& - &*UV(72)+JVS(293)*UV(73)+JVS(294)*UV(74)+JVS(295)*UV(75)+JVS(296)*UV(78)+JVS(297)*UV(79) - JUV(52) = JVS(298)*UV(52)+JVS(299)*UV(63)+JVS(300)*UV(67)+JVS(301)*UV(71)+JVS(302)*UV(75) - JUV(53) = JVS(303)*UV(24)+JVS(304)*UV(26)+JVS(305)*UV(33)+JVS(306)*UV(35)+JVS(307)*UV(36)+JVS(308)*UV(46)+JVS(309)& - &*UV(52)+JVS(310)*UV(53)+JVS(311)*UV(54)+JVS(312)*UV(56)+JVS(313)*UV(58)+JVS(314)*UV(59)+JVS(315)*UV(62)& - &+JVS(316)*UV(63)+JVS(317)*UV(65)+JVS(318)*UV(66)+JVS(319)*UV(67)+JVS(320)*UV(68)+JVS(321)*UV(69)+JVS(322)& - &*UV(70)+JVS(323)*UV(71)+JVS(324)*UV(72)+JVS(325)*UV(73)+JVS(327)*UV(75)+JVS(328)*UV(76)+JVS(329)*UV(77)& - &+JVS(330)*UV(78)+JVS(331)*UV(79) - JUV(54) = JVS(332)*UV(54)+JVS(333)*UV(63)+JVS(334)*UV(67)+JVS(335)*UV(71)+JVS(336)*UV(75) - JUV(55) = JVS(337)*UV(52)+JVS(338)*UV(55)+JVS(339)*UV(58)+JVS(340)*UV(63)+JVS(341)*UV(67)+JVS(342)*UV(71)+JVS(343)& - &*UV(75) - JUV(56) = JVS(344)*UV(56)+JVS(345)*UV(63)+JVS(346)*UV(67)+JVS(347)*UV(71)+JVS(348)*UV(75) - JUV(57) = JVS(349)*UV(52)+JVS(350)*UV(57)+JVS(351)*UV(58)+JVS(353)*UV(67)+JVS(354)*UV(71)+JVS(355)*UV(75) - JUV(58) = JVS(356)*UV(58)+JVS(357)*UV(63)+JVS(358)*UV(67)+JVS(359)*UV(71)+JVS(360)*UV(75) - JUV(59) = JVS(361)*UV(52)+JVS(362)*UV(58)+JVS(363)*UV(59)+JVS(364)*UV(63)+JVS(365)*UV(67)+JVS(366)*UV(71)+JVS(367)& - &*UV(75) - JUV(60) = JVS(368)*UV(13)+JVS(369)*UV(21)+JVS(370)*UV(24)+JVS(371)*UV(26)+JVS(372)*UV(33)+JVS(373)*UV(48)+JVS(374)& - &*UV(50)+JVS(375)*UV(56)+JVS(376)*UV(57)+JVS(377)*UV(58)+JVS(378)*UV(60)+JVS(379)*UV(62)+JVS(380)*UV(63)& - &+JVS(381)*UV(64)+JVS(382)*UV(65)+JVS(383)*UV(66)+JVS(384)*UV(67)+JVS(385)*UV(68)+JVS(386)*UV(70)+JVS(387)& - &*UV(71)+JVS(388)*UV(72)+JVS(389)*UV(73)+JVS(390)*UV(75)+JVS(391)*UV(79) - JUV(61) = JVS(392)*UV(21)+JVS(393)*UV(24)+JVS(394)*UV(26)+JVS(395)*UV(28)+JVS(396)*UV(29)+JVS(397)*UV(30)+JVS(398)& - &*UV(33)+JVS(399)*UV(39)+JVS(400)*UV(46)+JVS(401)*UV(48)+JVS(402)*UV(49)+JVS(403)*UV(50)+JVS(405)*UV(52)& - &+JVS(406)*UV(54)+JVS(407)*UV(55)+JVS(408)*UV(56)+JVS(409)*UV(57)+JVS(410)*UV(58)+JVS(411)*UV(59)+JVS(412)& - &*UV(61)+JVS(413)*UV(62)+JVS(414)*UV(63)+JVS(415)*UV(65)+JVS(416)*UV(66)+JVS(417)*UV(67)+JVS(418)*UV(68)& - &+JVS(419)*UV(69)+JVS(420)*UV(70)+JVS(421)*UV(71)+JVS(422)*UV(72)+JVS(423)*UV(73)+JVS(425)*UV(75)+JVS(426)& - &*UV(76)+JVS(427)*UV(77)+JVS(428)*UV(78)+JVS(429)*UV(79) - JUV(62) = JVS(430)*UV(25)+JVS(431)*UV(54)+JVS(432)*UV(56)+JVS(433)*UV(57)+JVS(434)*UV(58)+JVS(435)*UV(62)+JVS(438)& - &*UV(69)+JVS(439)*UV(71)+JVS(440)*UV(73)+JVS(441)*UV(74)+JVS(442)*UV(75) - JUV(63) = JVS(443)*UV(11)+JVS(444)*UV(48)+JVS(445)*UV(50)+JVS(446)*UV(52)+JVS(447)*UV(54)+JVS(448)*UV(55)+JVS(449)& - &*UV(56)+JVS(450)*UV(58)+JVS(451)*UV(59)+JVS(452)*UV(63)+JVS(453)*UV(67)+JVS(455)*UV(73)+JVS(456)*UV(74)& - &+JVS(457)*UV(75) - JUV(64) = JVS(458)*UV(20)+JVS(459)*UV(24)+JVS(460)*UV(26)+JVS(461)*UV(33)+JVS(462)*UV(35)+JVS(463)*UV(36)+JVS(464)& - &*UV(38)+JVS(465)*UV(42)+JVS(466)*UV(48)+JVS(467)*UV(50)+JVS(468)*UV(54)+JVS(469)*UV(55)+JVS(470)*UV(56)& - &+JVS(471)*UV(57)+JVS(472)*UV(58)+JVS(473)*UV(59)+JVS(474)*UV(62)+JVS(475)*UV(63)+JVS(476)*UV(64)+JVS(477)& - &*UV(65)+JVS(478)*UV(66)+JVS(479)*UV(67)+JVS(481)*UV(71)+JVS(484)*UV(75) - JUV(65) = JVS(487)*UV(24)+JVS(488)*UV(26)+JVS(489)*UV(33)+JVS(490)*UV(50)+JVS(491)*UV(55)+JVS(492)*UV(56)+JVS(493)& - &*UV(57)+JVS(494)*UV(58)+JVS(495)*UV(59)+JVS(496)*UV(62)+JVS(497)*UV(63)+JVS(498)*UV(65)+JVS(499)*UV(66)& - &+JVS(500)*UV(67)+JVS(501)*UV(69)+JVS(502)*UV(71)+JVS(505)*UV(75)+JVS(506)*UV(76)+JVS(507)*UV(77) - JUV(66) = JVS(508)*UV(26)+JVS(509)*UV(33)+JVS(510)*UV(34)+JVS(511)*UV(52)+JVS(512)*UV(54)+JVS(513)*UV(56)+JVS(514)& - &*UV(57)+JVS(515)*UV(58)+JVS(516)*UV(59)+JVS(517)*UV(62)+JVS(518)*UV(63)+JVS(519)*UV(66)+JVS(520)*UV(67)& - &+JVS(521)*UV(68)+JVS(522)*UV(69)+JVS(523)*UV(71)+JVS(524)*UV(72)+JVS(528)*UV(76)+JVS(529)*UV(77)+JVS(530)& - &*UV(79) - JUV(67) = JVS(531)*UV(38)+JVS(532)*UV(39)+JVS(533)*UV(48)+JVS(534)*UV(50)+JVS(535)*UV(52)+JVS(536)*UV(54)+JVS(537)& - &*UV(55)+JVS(538)*UV(56)+JVS(539)*UV(57)+JVS(540)*UV(58)+JVS(541)*UV(59)+JVS(542)*UV(63)+JVS(543)*UV(67)& - &+JVS(544)*UV(68)+JVS(545)*UV(70)+JVS(546)*UV(71)+JVS(547)*UV(72)+JVS(548)*UV(73)+JVS(549)*UV(74)+JVS(551)& - &*UV(78)+JVS(552)*UV(79) - JUV(68) = JVS(553)*UV(14)+JVS(554)*UV(15)+JVS(556)*UV(33)+JVS(557)*UV(35)+JVS(558)*UV(36)+JVS(559)*UV(44)+JVS(560)& - &*UV(46)+JVS(561)*UV(54)+JVS(562)*UV(55)+JVS(564)*UV(57)+JVS(565)*UV(58)+JVS(566)*UV(59)+JVS(567)*UV(60)& - &+JVS(571)*UV(65)+JVS(572)*UV(66)+JVS(573)*UV(67)+JVS(574)*UV(68)+JVS(575)*UV(69)+JVS(576)*UV(70)+JVS(577)& - &*UV(71)+JVS(578)*UV(72)+JVS(579)*UV(73)+JVS(580)*UV(74)+JVS(581)*UV(75)+JVS(582)*UV(76)+JVS(583)*UV(77)& - &+JVS(584)*UV(78)+JVS(585)*UV(79) - JUV(69) = JVS(586)*UV(20)+JVS(587)*UV(24)+JVS(588)*UV(26)+JVS(589)*UV(27)+JVS(590)*UV(33)+JVS(591)*UV(34)+JVS(592)& - &*UV(50)+JVS(593)*UV(52)+JVS(594)*UV(54)+JVS(595)*UV(56)+JVS(596)*UV(57)+JVS(597)*UV(58)+JVS(598)*UV(59)& - &+JVS(599)*UV(62)+JVS(600)*UV(63)+JVS(601)*UV(64)+JVS(602)*UV(65)+JVS(603)*UV(66)+JVS(604)*UV(67)+JVS(605)& - &*UV(68)+JVS(606)*UV(69)+JVS(607)*UV(70)+JVS(608)*UV(71)+JVS(609)*UV(72)+JVS(610)*UV(73)+JVS(612)*UV(75)& - &+JVS(613)*UV(76)+JVS(614)*UV(77)+JVS(615)*UV(78)+JVS(616)*UV(79) - JUV(70) = JVS(617)*UV(18)+JVS(618)*UV(52)+JVS(619)*UV(55)+JVS(620)*UV(57)+JVS(622)*UV(59)+JVS(623)*UV(63)+JVS(624)& - &*UV(67)+JVS(625)*UV(68)+JVS(626)*UV(69)+JVS(627)*UV(70)+JVS(628)*UV(71)+JVS(629)*UV(72)+JVS(630)*UV(73)& - &+JVS(631)*UV(74)+JVS(632)*UV(75)+JVS(633)*UV(76)+JVS(634)*UV(77)+JVS(635)*UV(78)+JVS(636)*UV(79) - JUV(71) = JVS(637)*UV(10)+JVS(638)*UV(11)+JVS(639)*UV(12)+JVS(640)*UV(13)+JVS(641)*UV(19)+JVS(642)*UV(20)+JVS(643)& - &*UV(21)+JVS(644)*UV(23)+JVS(645)*UV(24)+JVS(646)*UV(26)+JVS(647)*UV(27)+JVS(648)*UV(28)+JVS(649)*UV(29)& - &+JVS(650)*UV(32)+JVS(651)*UV(33)+JVS(652)*UV(34)+JVS(653)*UV(35)+JVS(654)*UV(36)+JVS(655)*UV(37)+JVS(656)& - &*UV(38)+JVS(657)*UV(39)+JVS(658)*UV(41)+JVS(659)*UV(42)+JVS(660)*UV(43)+JVS(661)*UV(44)+JVS(662)*UV(45)& - &+JVS(663)*UV(46)+JVS(664)*UV(47)+JVS(665)*UV(48)+JVS(666)*UV(49)+JVS(667)*UV(50)+JVS(669)*UV(52)+JVS(670)& - &*UV(54)+JVS(671)*UV(55)+JVS(672)*UV(56)+JVS(673)*UV(57)+JVS(674)*UV(58)+JVS(675)*UV(59)+JVS(676)*UV(60)& - &+JVS(677)*UV(61)+JVS(678)*UV(62)+JVS(680)*UV(64)+JVS(681)*UV(65)+JVS(682)*UV(66)+JVS(683)*UV(67)+JVS(687)& - &*UV(71)+JVS(689)*UV(73)+JVS(690)*UV(74)+JVS(691)*UV(75)+JVS(694)*UV(78) - JUV(72) = JVS(696)*UV(16)+JVS(697)*UV(49)+JVS(699)*UV(54)+JVS(700)*UV(55)+JVS(701)*UV(57)+JVS(702)*UV(58)+JVS(703)& - &*UV(59)+JVS(705)*UV(64)+JVS(706)*UV(65)+JVS(707)*UV(66)+JVS(708)*UV(67)+JVS(709)*UV(68)+JVS(710)*UV(69)& - &+JVS(711)*UV(70)+JVS(712)*UV(71)+JVS(713)*UV(72)+JVS(714)*UV(73)+JVS(715)*UV(74)+JVS(716)*UV(75)+JVS(717)& - &*UV(76)+JVS(718)*UV(77)+JVS(719)*UV(78)+JVS(720)*UV(79) - JUV(73) = JVS(721)*UV(23)+JVS(722)*UV(30)+JVS(723)*UV(53)+JVS(730)*UV(63)+JVS(733)*UV(67)+JVS(734)*UV(68)+JVS(735)& - &*UV(69)+JVS(736)*UV(70)+JVS(737)*UV(71)+JVS(738)*UV(72)+JVS(739)*UV(73)+JVS(740)*UV(74)+JVS(741)*UV(75)& - &+JVS(742)*UV(76)+JVS(743)*UV(77)+JVS(744)*UV(78)+JVS(745)*UV(79) - JUV(74) = JVS(746)*UV(15)+JVS(747)*UV(16)+JVS(748)*UV(17)+JVS(749)*UV(18)+JVS(750)*UV(22)+JVS(751)*UV(23)+JVS(752)& - &*UV(25)+JVS(753)*UV(30)+JVS(754)*UV(31)+JVS(755)*UV(32)+JVS(757)*UV(47)+JVS(759)*UV(51)+JVS(760)*UV(52)& - &+JVS(761)*UV(53)+JVS(762)*UV(54)+JVS(766)*UV(58)+JVS(770)*UV(62)+JVS(771)*UV(63)+JVS(775)*UV(67)+JVS(776)& - &*UV(68)+JVS(777)*UV(69)+JVS(778)*UV(70)+JVS(779)*UV(71)+JVS(780)*UV(72)+JVS(781)*UV(73)+JVS(782)*UV(74)& - &+JVS(783)*UV(75)+JVS(784)*UV(76)+JVS(785)*UV(77)+JVS(786)*UV(78)+JVS(787)*UV(79) - JUV(75) = JVS(788)*UV(22)+JVS(789)*UV(32)+JVS(790)*UV(37)+JVS(791)*UV(40)+JVS(792)*UV(41)+JVS(793)*UV(43)+JVS(794)& - &*UV(44)+JVS(795)*UV(47)+JVS(796)*UV(48)+JVS(797)*UV(49)+JVS(798)*UV(50)+JVS(800)*UV(52)+JVS(801)*UV(53)& - &+JVS(802)*UV(54)+JVS(803)*UV(55)+JVS(804)*UV(56)+JVS(805)*UV(57)+JVS(806)*UV(58)+JVS(808)*UV(60)+JVS(809)& - &*UV(61)+JVS(811)*UV(63)+JVS(812)*UV(64)+JVS(815)*UV(67)+JVS(816)*UV(68)+JVS(817)*UV(69)+JVS(818)*UV(70)& - &+JVS(819)*UV(71)+JVS(820)*UV(72)+JVS(821)*UV(73)+JVS(822)*UV(74)+JVS(823)*UV(75)+JVS(824)*UV(76)+JVS(825)& - &*UV(77)+JVS(826)*UV(78)+JVS(827)*UV(79) - JUV(76) = JVS(828)*UV(12)+JVS(829)*UV(25)+JVS(830)*UV(29)+JVS(831)*UV(33)+JVS(832)*UV(46)+JVS(833)*UV(48)+JVS(834)& - &*UV(50)+JVS(835)*UV(52)+JVS(837)*UV(56)+JVS(838)*UV(58)+JVS(839)*UV(59)+JVS(840)*UV(60)+JVS(842)*UV(63)& - &+JVS(846)*UV(67)+JVS(847)*UV(68)+JVS(848)*UV(69)+JVS(849)*UV(70)+JVS(850)*UV(71)+JVS(851)*UV(72)+JVS(852)& - &*UV(73)+JVS(854)*UV(75)+JVS(855)*UV(76)+JVS(856)*UV(77)+JVS(857)*UV(78)+JVS(858)*UV(79) - JUV(77) = JVS(859)*UV(13)+JVS(860)*UV(20)+JVS(861)*UV(21)+JVS(862)*UV(24)+JVS(863)*UV(26)+JVS(864)*UV(27)+JVS(865)& - &*UV(33)+JVS(866)*UV(34)+JVS(867)*UV(35)+JVS(868)*UV(36)+JVS(869)*UV(37)+JVS(870)*UV(38)+JVS(871)*UV(39)& - &+JVS(872)*UV(42)+JVS(873)*UV(43)+JVS(874)*UV(48)+JVS(875)*UV(50)+JVS(877)*UV(52)+JVS(878)*UV(54)+JVS(879)& - &*UV(55)+JVS(880)*UV(56)+JVS(881)*UV(57)+JVS(882)*UV(58)+JVS(883)*UV(59)+JVS(884)*UV(62)+JVS(885)*UV(63)& - &+JVS(886)*UV(64)+JVS(887)*UV(65)+JVS(888)*UV(66)+JVS(889)*UV(67)+JVS(890)*UV(68)+JVS(891)*UV(69)+JVS(892)& - &*UV(70)+JVS(893)*UV(71)+JVS(894)*UV(72)+JVS(895)*UV(73)+JVS(897)*UV(75)+JVS(898)*UV(76)+JVS(899)*UV(77)& - &+JVS(900)*UV(78)+JVS(901)*UV(79) - JUV(78) = JVS(902)*UV(10)+JVS(903)*UV(19)+JVS(904)*UV(21)+JVS(905)*UV(23)+JVS(906)*UV(27)+JVS(907)*UV(28)+JVS(908)& - &*UV(29)+JVS(909)*UV(30)+JVS(910)*UV(31)+JVS(911)*UV(32)+JVS(912)*UV(34)+JVS(913)*UV(35)+JVS(914)*UV(36)& - &+JVS(915)*UV(38)+JVS(916)*UV(39)+JVS(918)*UV(42)+JVS(919)*UV(44)+JVS(920)*UV(45)+JVS(921)*UV(48)+JVS(922)& - &*UV(49)+JVS(923)*UV(50)+JVS(924)*UV(51)+JVS(926)*UV(54)+JVS(927)*UV(55)+JVS(928)*UV(56)+JVS(929)*UV(57)& - &+JVS(930)*UV(58)+JVS(931)*UV(59)+JVS(932)*UV(60)+JVS(933)*UV(61)+JVS(934)*UV(62)+JVS(935)*UV(63)+JVS(936)& - &*UV(64)+JVS(938)*UV(66)+JVS(939)*UV(67)+JVS(940)*UV(68)+JVS(941)*UV(69)+JVS(942)*UV(70)+JVS(943)*UV(71)& - &+JVS(944)*UV(72)+JVS(945)*UV(73)+JVS(946)*UV(74)+JVS(947)*UV(75)+JVS(948)*UV(76)+JVS(949)*UV(77)+JVS(950)& - &*UV(78)+JVS(951)*UV(79) - JUV(79) = JVS(952)*UV(17)+JVS(953)*UV(41)+JVS(957)*UV(68)+JVS(958)*UV(69)+JVS(959)*UV(70)+JVS(960)*UV(71)+JVS(961)& - &*UV(72)+JVS(962)*UV(73)+JVS(963)*UV(74)+JVS(964)*UV(75)+JVS(965)*UV(76)+JVS(966)*UV(77)+JVS(967)*UV(78)& - &+JVS(968)*UV(79) - -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(4)*UV(2) - JTUV(3) = JVS(8)*UV(3) - JTUV(4) = JVS(23)*UV(4) - JTUV(5) = JVS(33)*UV(5) - JTUV(6) = JVS(47)*UV(6) - JTUV(7) = JVS(50)*UV(7) - JTUV(8) = JVS(55)*UV(8) - JTUV(9) = JVS(60)*UV(9) - JTUV(10) = JVS(2)*UV(1)+JVS(69)*UV(10)+JVS(637)*UV(71)+JVS(902)*UV(78) - JTUV(11) = JVS(71)*UV(11)+JVS(443)*UV(63)+JVS(638)*UV(71) - JTUV(12) = JVS(73)*UV(12)+JVS(639)*UV(71)+JVS(828)*UV(76) - JTUV(13) = JVS(75)*UV(13)+JVS(368)*UV(60)+JVS(640)*UV(71)+JVS(859)*UV(77) - JTUV(14) = JVS(77)*UV(14)+JVS(553)*UV(68) - JTUV(15) = JVS(82)*UV(15)+JVS(554)*UV(68)+JVS(746)*UV(74) - JTUV(16) = JVS(85)*UV(16)+JVS(696)*UV(72)+JVS(747)*UV(74) - JTUV(17) = JVS(88)*UV(17)+JVS(748)*UV(74)+JVS(952)*UV(79) - JTUV(18) = JVS(91)*UV(18)+JVS(617)*UV(70)+JVS(749)*UV(74) - JTUV(19) = JVS(94)*UV(19)+JVS(641)*UV(71)+JVS(903)*UV(78) - JTUV(20) = JVS(97)*UV(20)+JVS(224)*UV(46)+JVS(458)*UV(64)+JVS(586)*UV(69)+JVS(642)*UV(71)+JVS(860)*UV(77) - JTUV(21) = JVS(99)*UV(21)+JVS(369)*UV(60)+JVS(392)*UV(61)+JVS(643)*UV(71)+JVS(861)*UV(77)+JVS(904)*UV(78) - JTUV(22) = JVS(101)*UV(22)+JVS(238)*UV(47)+JVS(750)*UV(74)+JVS(788)*UV(75) - JTUV(23) = JVS(104)*UV(23)+JVS(644)*UV(71)+JVS(721)*UV(73)+JVS(751)*UV(74)+JVS(905)*UV(78) - JTUV(24) = JVS(107)*UV(24)+JVS(109)*UV(25)+JVS(225)*UV(46)+JVS(303)*UV(53)+JVS(370)*UV(60)+JVS(393)*UV(61)+JVS(459)& - &*UV(64)+JVS(487)*UV(65)+JVS(587)*UV(69)+JVS(645)*UV(71)+JVS(862)*UV(77) - JTUV(25) = JVS(110)*UV(25)+JVS(226)*UV(46)+JVS(430)*UV(62)+JVS(752)*UV(74)+JVS(829)*UV(76) - JTUV(26) = JVS(113)*UV(26)+JVS(227)*UV(46)+JVS(304)*UV(53)+JVS(371)*UV(60)+JVS(394)*UV(61)+JVS(460)*UV(64)+JVS(488)& - &*UV(65)+JVS(508)*UV(66)+JVS(588)*UV(69)+JVS(646)*UV(71)+JVS(863)*UV(77) - JTUV(27) = JVS(78)*UV(14)+JVS(115)*UV(27)+JVS(143)*UV(35)+JVS(147)*UV(36)+JVS(151)*UV(37)+JVS(156)*UV(38)+JVS(170)& - &*UV(41)+JVS(188)*UV(44)+JVS(264)*UV(49)+JVS(589)*UV(69)+JVS(647)*UV(71)+JVS(864)*UV(77)+JVS(906)*UV(78) - JTUV(28) = JVS(117)*UV(28)+JVS(395)*UV(61)+JVS(648)*UV(71)+JVS(907)*UV(78) - JTUV(29) = JVS(122)*UV(29)+JVS(396)*UV(61)+JVS(649)*UV(71)+JVS(830)*UV(76)+JVS(908)*UV(78) - JTUV(30) = JVS(9)*UV(3)+JVS(126)*UV(30)+JVS(397)*UV(61)+JVS(722)*UV(73)+JVS(753)*UV(74)+JVS(909)*UV(78) - JTUV(31) = JVS(56)*UV(8)+JVS(61)*UV(9)+JVS(130)*UV(31)+JVS(164)*UV(40)+JVS(754)*UV(74)+JVS(910)*UV(78) - JTUV(32) = JVS(135)*UV(32)+JVS(650)*UV(71)+JVS(755)*UV(74)+JVS(789)*UV(75)+JVS(911)*UV(78) - JTUV(33) = JVS(139)*UV(33)+JVS(200)*UV(45)+JVS(228)*UV(46)+JVS(305)*UV(53)+JVS(372)*UV(60)+JVS(398)*UV(61)+JVS(461)& - &*UV(64)+JVS(489)*UV(65)+JVS(509)*UV(66)+JVS(556)*UV(68)+JVS(590)*UV(69)+JVS(651)*UV(71)+JVS(831)*UV(76)& - &+JVS(865)*UV(77) - JTUV(34) = JVS(141)*UV(34)+JVS(144)*UV(35)+JVS(148)*UV(36)+JVS(152)*UV(37)+JVS(157)*UV(38)+JVS(171)*UV(41)+JVS(182)& - &*UV(43)+JVS(189)*UV(44)+JVS(265)*UV(49)+JVS(510)*UV(66)+JVS(591)*UV(69)+JVS(652)*UV(71)+JVS(866)*UV(77)& - &+JVS(912)*UV(78) - JTUV(35) = JVS(145)*UV(35)+JVS(190)*UV(44)+JVS(201)*UV(45)+JVS(266)*UV(49)+JVS(306)*UV(53)+JVS(462)*UV(64)+JVS(557)& - &*UV(68)+JVS(653)*UV(71)+JVS(867)*UV(77)+JVS(913)*UV(78) - JTUV(36) = JVS(149)*UV(36)+JVS(191)*UV(44)+JVS(202)*UV(45)+JVS(267)*UV(49)+JVS(307)*UV(53)+JVS(463)*UV(64)+JVS(558)& - &*UV(68)+JVS(654)*UV(71)+JVS(868)*UV(77)+JVS(914)*UV(78) - JTUV(37) = JVS(153)*UV(37)+JVS(192)*UV(44)+JVS(239)*UV(47)+JVS(286)*UV(51)+JVS(655)*UV(71)+JVS(790)*UV(75)+JVS(869)& - &*UV(77) - JTUV(38) = JVS(158)*UV(38)+JVS(203)*UV(45)+JVS(268)*UV(49)+JVS(464)*UV(64)+JVS(531)*UV(67)+JVS(656)*UV(71)+JVS(870)& - &*UV(77)+JVS(915)*UV(78) - JTUV(39) = JVS(5)*UV(2)+JVS(10)*UV(3)+JVS(161)*UV(39)+JVS(204)*UV(45)+JVS(269)*UV(49)+JVS(399)*UV(61)+JVS(532)*UV(67)& - &+JVS(657)*UV(71)+JVS(871)*UV(77)+JVS(916)*UV(78) - JTUV(40) = JVS(131)*UV(31)+JVS(165)*UV(40)+JVS(240)*UV(47)+JVS(791)*UV(75) - JTUV(41) = JVS(62)*UV(9)+JVS(172)*UV(41)+JVS(241)*UV(47)+JVS(658)*UV(71)+JVS(792)*UV(75)+JVS(953)*UV(79) - JTUV(42) = JVS(177)*UV(42)+JVS(465)*UV(64)+JVS(659)*UV(71)+JVS(872)*UV(77)+JVS(918)*UV(78) - JTUV(43) = JVS(183)*UV(43)+JVS(242)*UV(47)+JVS(270)*UV(49)+JVS(287)*UV(51)+JVS(660)*UV(71)+JVS(793)*UV(75)+JVS(873)& - &*UV(77) - JTUV(44) = JVS(193)*UV(44)+JVS(205)*UV(45)+JVS(243)*UV(47)+JVS(559)*UV(68)+JVS(661)*UV(71)+JVS(794)*UV(75)+JVS(919)& - &*UV(78) - JTUV(45) = JVS(206)*UV(45)+JVS(662)*UV(71)+JVS(920)*UV(78) - JTUV(46) = JVS(229)*UV(46)+JVS(308)*UV(53)+JVS(400)*UV(61)+JVS(560)*UV(68)+JVS(663)*UV(71)+JVS(832)*UV(76) - JTUV(47) = JVS(244)*UV(47)+JVS(664)*UV(71)+JVS(757)*UV(74)+JVS(795)*UV(75) - JTUV(48) = JVS(11)*UV(3)+JVS(207)*UV(45)+JVS(259)*UV(48)+JVS(271)*UV(49)+JVS(373)*UV(60)+JVS(401)*UV(61)+JVS(444)& - &*UV(63)+JVS(466)*UV(64)+JVS(533)*UV(67)+JVS(665)*UV(71)+JVS(796)*UV(75)+JVS(833)*UV(76)+JVS(874)*UV(77)& - &+JVS(921)*UV(78) - JTUV(49) = JVS(208)*UV(45)+JVS(245)*UV(47)+JVS(272)*UV(49)+JVS(402)*UV(61)+JVS(666)*UV(71)+JVS(697)*UV(72)+JVS(797)& - &*UV(75)+JVS(922)*UV(78) - JTUV(50) = JVS(6)*UV(2)+JVS(12)*UV(3)+JVS(24)*UV(4)+JVS(57)*UV(8)+JVS(63)*UV(9)+JVS(209)*UV(45)+JVS(281)*UV(50)& - &+JVS(374)*UV(60)+JVS(403)*UV(61)+JVS(445)*UV(63)+JVS(467)*UV(64)+JVS(490)*UV(65)+JVS(534)*UV(67)+JVS(592)& - &*UV(69)+JVS(667)*UV(71)+JVS(798)*UV(75)+JVS(834)*UV(76)+JVS(875)*UV(77)+JVS(923)*UV(78) - JTUV(51) = JVS(166)*UV(40)+JVS(184)*UV(43)+JVS(288)*UV(51)+JVS(759)*UV(74)+JVS(924)*UV(78) - JTUV(52) = JVS(13)*UV(3)+JVS(34)*UV(5)+JVS(210)*UV(45)+JVS(298)*UV(52)+JVS(309)*UV(53)+JVS(337)*UV(55)+JVS(349)*UV(57)& - &+JVS(361)*UV(59)+JVS(405)*UV(61)+JVS(446)*UV(63)+JVS(511)*UV(66)+JVS(535)*UV(67)+JVS(593)*UV(69)+JVS(618)& - &*UV(70)+JVS(669)*UV(71)+JVS(760)*UV(74)+JVS(800)*UV(75)+JVS(835)*UV(76)+JVS(877)*UV(77) - JTUV(53) = JVS(310)*UV(53)+JVS(723)*UV(73)+JVS(761)*UV(74)+JVS(801)*UV(75) - JTUV(54) = JVS(14)*UV(3)+JVS(35)*UV(5)+JVS(79)*UV(14)+JVS(211)*UV(45)+JVS(230)*UV(46)+JVS(274)*UV(49)+JVS(311)*UV(53)& - &+JVS(332)*UV(54)+JVS(406)*UV(61)+JVS(431)*UV(62)+JVS(447)*UV(63)+JVS(468)*UV(64)+JVS(512)*UV(66)+JVS(536)& - &*UV(67)+JVS(561)*UV(68)+JVS(594)*UV(69)+JVS(670)*UV(71)+JVS(699)*UV(72)+JVS(762)*UV(74)+JVS(802)*UV(75)& - &+JVS(878)*UV(77)+JVS(926)*UV(78) - JTUV(55) = JVS(15)*UV(3)+JVS(194)*UV(44)+JVS(212)*UV(45)+JVS(247)*UV(47)+JVS(338)*UV(55)+JVS(407)*UV(61)+JVS(448)& - &*UV(63)+JVS(469)*UV(64)+JVS(491)*UV(65)+JVS(537)*UV(67)+JVS(562)*UV(68)+JVS(619)*UV(70)+JVS(671)*UV(71)& - &+JVS(700)*UV(72)+JVS(803)*UV(75)+JVS(879)*UV(77)+JVS(927)*UV(78) - JTUV(56) = JVS(16)*UV(3)+JVS(25)*UV(4)+JVS(36)*UV(5)+JVS(213)*UV(45)+JVS(231)*UV(46)+JVS(312)*UV(53)+JVS(344)*UV(56)& - &+JVS(375)*UV(60)+JVS(408)*UV(61)+JVS(432)*UV(62)+JVS(449)*UV(63)+JVS(470)*UV(64)+JVS(492)*UV(65)+JVS(513)& - &*UV(66)+JVS(538)*UV(67)+JVS(595)*UV(69)+JVS(672)*UV(71)+JVS(804)*UV(75)+JVS(837)*UV(76)+JVS(880)*UV(77)& - &+JVS(928)*UV(78) - JTUV(57) = JVS(17)*UV(3)+JVS(37)*UV(5)+JVS(195)*UV(44)+JVS(214)*UV(45)+JVS(248)*UV(47)+JVS(275)*UV(49)+JVS(350)*UV(57)& - &+JVS(376)*UV(60)+JVS(409)*UV(61)+JVS(433)*UV(62)+JVS(471)*UV(64)+JVS(493)*UV(65)+JVS(514)*UV(66)+JVS(539)& - &*UV(67)+JVS(564)*UV(68)+JVS(596)*UV(69)+JVS(620)*UV(70)+JVS(673)*UV(71)+JVS(701)*UV(72)+JVS(805)*UV(75)& - &+JVS(881)*UV(77)+JVS(929)*UV(78) - JTUV(58) = JVS(18)*UV(3)+JVS(26)*UV(4)+JVS(38)*UV(5)+JVS(173)*UV(41)+JVS(215)*UV(45)+JVS(232)*UV(46)+JVS(313)*UV(53)& - &+JVS(339)*UV(55)+JVS(351)*UV(57)+JVS(356)*UV(58)+JVS(362)*UV(59)+JVS(377)*UV(60)+JVS(410)*UV(61)+JVS(434)& - &*UV(62)+JVS(450)*UV(63)+JVS(472)*UV(64)+JVS(494)*UV(65)+JVS(515)*UV(66)+JVS(540)*UV(67)+JVS(565)*UV(68)& - &+JVS(597)*UV(69)+JVS(674)*UV(71)+JVS(702)*UV(72)+JVS(766)*UV(74)+JVS(806)*UV(75)+JVS(838)*UV(76)+JVS(882)& - &*UV(77)+JVS(930)*UV(78) - JTUV(59) = JVS(19)*UV(3)+JVS(196)*UV(44)+JVS(216)*UV(45)+JVS(314)*UV(53)+JVS(363)*UV(59)+JVS(411)*UV(61)+JVS(451)& - &*UV(63)+JVS(473)*UV(64)+JVS(495)*UV(65)+JVS(516)*UV(66)+JVS(541)*UV(67)+JVS(566)*UV(68)+JVS(598)*UV(69)& - &+JVS(622)*UV(70)+JVS(675)*UV(71)+JVS(703)*UV(72)+JVS(839)*UV(76)+JVS(883)*UV(77)+JVS(931)*UV(78) - JTUV(60) = JVS(217)*UV(45)+JVS(251)*UV(47)+JVS(378)*UV(60)+JVS(567)*UV(68)+JVS(676)*UV(71)+JVS(808)*UV(75)+JVS(840)& - &*UV(76)+JVS(932)*UV(78) - JTUV(61) = JVS(127)*UV(30)+JVS(218)*UV(45)+JVS(252)*UV(47)+JVS(412)*UV(61)+JVS(677)*UV(71)+JVS(809)*UV(75)+JVS(933)& - &*UV(78) - JTUV(62) = JVS(233)*UV(46)+JVS(315)*UV(53)+JVS(379)*UV(60)+JVS(413)*UV(61)+JVS(435)*UV(62)+JVS(474)*UV(64)+JVS(496)& - &*UV(65)+JVS(517)*UV(66)+JVS(599)*UV(69)+JVS(678)*UV(71)+JVS(770)*UV(74)+JVS(884)*UV(77)+JVS(934)*UV(78) - JTUV(63) = JVS(64)*UV(9)+JVS(219)*UV(45)+JVS(260)*UV(48)+JVS(276)*UV(49)+JVS(282)*UV(50)+JVS(299)*UV(52)+JVS(316)& - &*UV(53)+JVS(333)*UV(54)+JVS(340)*UV(55)+JVS(345)*UV(56)+JVS(357)*UV(58)+JVS(364)*UV(59)+JVS(380)*UV(60)& - &+JVS(414)*UV(61)+JVS(452)*UV(63)+JVS(475)*UV(64)+JVS(497)*UV(65)+JVS(518)*UV(66)+JVS(542)*UV(67)+JVS(600)& - &*UV(69)+JVS(623)*UV(70)+JVS(730)*UV(73)+JVS(771)*UV(74)+JVS(811)*UV(75)+JVS(842)*UV(76)+JVS(885)*UV(77)& - &+JVS(935)*UV(78) - JTUV(64) = JVS(220)*UV(45)+JVS(253)*UV(47)+JVS(381)*UV(60)+JVS(476)*UV(64)+JVS(601)*UV(69)+JVS(680)*UV(71)+JVS(705)& - &*UV(72)+JVS(812)*UV(75)+JVS(886)*UV(77)+JVS(936)*UV(78) - JTUV(65) = JVS(317)*UV(53)+JVS(382)*UV(60)+JVS(415)*UV(61)+JVS(477)*UV(64)+JVS(498)*UV(65)+JVS(571)*UV(68)+JVS(602)& - &*UV(69)+JVS(681)*UV(71)+JVS(706)*UV(72)+JVS(887)*UV(77) - JTUV(66) = JVS(318)*UV(53)+JVS(383)*UV(60)+JVS(416)*UV(61)+JVS(478)*UV(64)+JVS(499)*UV(65)+JVS(519)*UV(66)+JVS(572)& - &*UV(68)+JVS(603)*UV(69)+JVS(682)*UV(71)+JVS(707)*UV(72)+JVS(888)*UV(77)+JVS(938)*UV(78) - JTUV(67) = JVS(7)*UV(2)+JVS(20)*UV(3)+JVS(27)*UV(4)+JVS(39)*UV(5)+JVS(65)*UV(9)+JVS(72)*UV(11)+JVS(80)*UV(14)+JVS(159)& - &*UV(38)+JVS(162)*UV(39)+JVS(174)*UV(41)+JVS(197)*UV(44)+JVS(221)*UV(45)+JVS(234)*UV(46)+JVS(261)*UV(48)& - &+JVS(277)*UV(49)+JVS(283)*UV(50)+JVS(300)*UV(52)+JVS(319)*UV(53)+JVS(334)*UV(54)+JVS(341)*UV(55)+JVS(346)& - &*UV(56)+JVS(353)*UV(57)+JVS(358)*UV(58)+JVS(365)*UV(59)+JVS(384)*UV(60)+JVS(417)*UV(61)+JVS(453)*UV(63)& - &+JVS(479)*UV(64)+JVS(500)*UV(65)+JVS(520)*UV(66)+JVS(543)*UV(67)+JVS(573)*UV(68)+JVS(604)*UV(69)+JVS(624)& - &*UV(70)+JVS(683)*UV(71)+JVS(708)*UV(72)+JVS(733)*UV(73)+JVS(775)*UV(74)+JVS(815)*UV(75)+JVS(846)*UV(76)& - &+JVS(889)*UV(77)+JVS(939)*UV(78) - JTUV(68) = JVS(28)*UV(4)+JVS(48)*UV(6)+JVS(83)*UV(15)+JVS(289)*UV(51)+JVS(320)*UV(53)+JVS(385)*UV(60)+JVS(418)*UV(61)& - &+JVS(521)*UV(66)+JVS(544)*UV(67)+JVS(574)*UV(68)+JVS(605)*UV(69)+JVS(625)*UV(70)+JVS(709)*UV(72)+JVS(734)& - &*UV(73)+JVS(776)*UV(74)+JVS(816)*UV(75)+JVS(847)*UV(76)+JVS(890)*UV(77)+JVS(940)*UV(78)+JVS(957)*UV(79) - JTUV(69) = JVS(29)*UV(4)+JVS(40)*UV(5)+JVS(118)*UV(28)+JVS(178)*UV(42)+JVS(321)*UV(53)+JVS(419)*UV(61)+JVS(438)*UV(62)& - &+JVS(501)*UV(65)+JVS(522)*UV(66)+JVS(575)*UV(68)+JVS(606)*UV(69)+JVS(626)*UV(70)+JVS(710)*UV(72)+JVS(735)& - &*UV(73)+JVS(777)*UV(74)+JVS(817)*UV(75)+JVS(848)*UV(76)+JVS(891)*UV(77)+JVS(941)*UV(78)+JVS(958)*UV(79) - JTUV(70) = JVS(41)*UV(5)+JVS(51)*UV(7)+JVS(92)*UV(18)+JVS(290)*UV(51)+JVS(322)*UV(53)+JVS(386)*UV(60)+JVS(420)*UV(61)& - &+JVS(545)*UV(67)+JVS(576)*UV(68)+JVS(607)*UV(69)+JVS(627)*UV(70)+JVS(711)*UV(72)+JVS(736)*UV(73)+JVS(778)& - &*UV(74)+JVS(818)*UV(75)+JVS(849)*UV(76)+JVS(892)*UV(77)+JVS(942)*UV(78)+JVS(959)*UV(79) - JTUV(71) = JVS(3)*UV(1)+JVS(21)*UV(3)+JVS(66)*UV(9)+JVS(70)*UV(10)+JVS(74)*UV(12)+JVS(76)*UV(13)+JVS(81)*UV(14)& - &+JVS(95)*UV(19)+JVS(98)*UV(20)+JVS(100)*UV(21)+JVS(105)*UV(23)+JVS(108)*UV(24)+JVS(111)*UV(25)+JVS(114)& - &*UV(26)+JVS(116)*UV(27)+JVS(119)*UV(28)+JVS(123)*UV(29)+JVS(136)*UV(32)+JVS(140)*UV(33)+JVS(142)*UV(34)& - &+JVS(146)*UV(35)+JVS(150)*UV(36)+JVS(154)*UV(37)+JVS(160)*UV(38)+JVS(163)*UV(39)+JVS(175)*UV(41)+JVS(179)& - &*UV(42)+JVS(185)*UV(43)+JVS(198)*UV(44)+JVS(222)*UV(45)+JVS(235)*UV(46)+JVS(255)*UV(47)+JVS(262)*UV(48)& - &+JVS(278)*UV(49)+JVS(284)*UV(50)+JVS(291)*UV(51)+JVS(301)*UV(52)+JVS(323)*UV(53)+JVS(335)*UV(54)+JVS(342)& - &*UV(55)+JVS(347)*UV(56)+JVS(354)*UV(57)+JVS(359)*UV(58)+JVS(366)*UV(59)+JVS(387)*UV(60)+JVS(421)*UV(61)& - &+JVS(439)*UV(62)+JVS(481)*UV(64)+JVS(502)*UV(65)+JVS(523)*UV(66)+JVS(546)*UV(67)+JVS(577)*UV(68)+JVS(608)& - &*UV(69)+JVS(628)*UV(70)+JVS(687)*UV(71)+JVS(712)*UV(72)+JVS(737)*UV(73)+JVS(779)*UV(74)+JVS(819)*UV(75)& - &+JVS(850)*UV(76)+JVS(893)*UV(77)+JVS(943)*UV(78)+JVS(960)*UV(79) - JTUV(72) = JVS(42)*UV(5)+JVS(52)*UV(7)+JVS(86)*UV(16)+JVS(292)*UV(51)+JVS(324)*UV(53)+JVS(388)*UV(60)+JVS(422)*UV(61)& - &+JVS(524)*UV(66)+JVS(547)*UV(67)+JVS(578)*UV(68)+JVS(609)*UV(69)+JVS(629)*UV(70)+JVS(713)*UV(72)+JVS(738)& - &*UV(73)+JVS(780)*UV(74)+JVS(820)*UV(75)+JVS(851)*UV(76)+JVS(894)*UV(77)+JVS(944)*UV(78)+JVS(961)*UV(79) - JTUV(73) = JVS(22)*UV(3)+JVS(106)*UV(23)+JVS(128)*UV(30)+JVS(293)*UV(51)+JVS(325)*UV(53)+JVS(389)*UV(60)+JVS(423)& - &*UV(61)+JVS(440)*UV(62)+JVS(455)*UV(63)+JVS(548)*UV(67)+JVS(579)*UV(68)+JVS(610)*UV(69)+JVS(630)*UV(70)& - &+JVS(689)*UV(71)+JVS(714)*UV(72)+JVS(739)*UV(73)+JVS(781)*UV(74)+JVS(821)*UV(75)+JVS(852)*UV(76)+JVS(895)& - &*UV(77)+JVS(945)*UV(78)+JVS(962)*UV(79) - JTUV(74) = JVS(58)*UV(8)+JVS(67)*UV(9)+JVS(84)*UV(15)+JVS(87)*UV(16)+JVS(89)*UV(17)+JVS(93)*UV(18)+JVS(102)*UV(22)& - &+JVS(112)*UV(25)+JVS(132)*UV(31)+JVS(137)*UV(32)+JVS(167)*UV(40)+JVS(256)*UV(47)+JVS(294)*UV(51)+JVS(441)& - &*UV(62)+JVS(456)*UV(63)+JVS(549)*UV(67)+JVS(580)*UV(68)+JVS(631)*UV(70)+JVS(690)*UV(71)+JVS(715)*UV(72)& - &+JVS(740)*UV(73)+JVS(782)*UV(74)+JVS(822)*UV(75)+JVS(946)*UV(78)+JVS(963)*UV(79) - JTUV(75) = JVS(59)*UV(8)+JVS(68)*UV(9)+JVS(103)*UV(22)+JVS(133)*UV(31)+JVS(155)*UV(37)+JVS(168)*UV(40)+JVS(176)*UV(41)& - &+JVS(186)*UV(43)+JVS(199)*UV(44)+JVS(223)*UV(45)+JVS(237)*UV(46)+JVS(257)*UV(47)+JVS(263)*UV(48)+JVS(279)& - &*UV(49)+JVS(285)*UV(50)+JVS(295)*UV(51)+JVS(302)*UV(52)+JVS(327)*UV(53)+JVS(336)*UV(54)+JVS(343)*UV(55)& - &+JVS(348)*UV(56)+JVS(355)*UV(57)+JVS(360)*UV(58)+JVS(367)*UV(59)+JVS(390)*UV(60)+JVS(425)*UV(61)+JVS(442)& - &*UV(62)+JVS(457)*UV(63)+JVS(484)*UV(64)+JVS(505)*UV(65)+JVS(581)*UV(68)+JVS(612)*UV(69)+JVS(632)*UV(70)& - &+JVS(691)*UV(71)+JVS(716)*UV(72)+JVS(741)*UV(73)+JVS(783)*UV(74)+JVS(823)*UV(75)+JVS(854)*UV(76)+JVS(897)& - &*UV(77)+JVS(947)*UV(78)+JVS(964)*UV(79) - JTUV(76) = JVS(30)*UV(4)+JVS(43)*UV(5)+JVS(120)*UV(28)+JVS(124)*UV(29)+JVS(328)*UV(53)+JVS(426)*UV(61)+JVS(506)*UV(65)& - &+JVS(528)*UV(66)+JVS(582)*UV(68)+JVS(613)*UV(69)+JVS(633)*UV(70)+JVS(717)*UV(72)+JVS(742)*UV(73)+JVS(784)& - &*UV(74)+JVS(824)*UV(75)+JVS(855)*UV(76)+JVS(898)*UV(77)+JVS(948)*UV(78)+JVS(965)*UV(79) - JTUV(77) = JVS(31)*UV(4)+JVS(44)*UV(5)+JVS(121)*UV(28)+JVS(180)*UV(42)+JVS(329)*UV(53)+JVS(427)*UV(61)+JVS(507)*UV(65)& - &+JVS(529)*UV(66)+JVS(583)*UV(68)+JVS(614)*UV(69)+JVS(634)*UV(70)+JVS(718)*UV(72)+JVS(743)*UV(73)+JVS(785)& - &*UV(74)+JVS(825)*UV(75)+JVS(856)*UV(76)+JVS(899)*UV(77)+JVS(949)*UV(78)+JVS(966)*UV(79) - JTUV(78) = JVS(32)*UV(4)+JVS(45)*UV(5)+JVS(49)*UV(6)+JVS(53)*UV(7)+JVS(96)*UV(19)+JVS(125)*UV(29)+JVS(129)*UV(30)& - &+JVS(134)*UV(31)+JVS(138)*UV(32)+JVS(169)*UV(40)+JVS(181)*UV(42)+JVS(187)*UV(43)+JVS(258)*UV(47)+JVS(296)& - &*UV(51)+JVS(330)*UV(53)+JVS(428)*UV(61)+JVS(551)*UV(67)+JVS(584)*UV(68)+JVS(615)*UV(69)+JVS(635)*UV(70)& - &+JVS(694)*UV(71)+JVS(719)*UV(72)+JVS(744)*UV(73)+JVS(786)*UV(74)+JVS(826)*UV(75)+JVS(857)*UV(76)+JVS(900)& - &*UV(77)+JVS(950)*UV(78)+JVS(967)*UV(79) - JTUV(79) = JVS(46)*UV(5)+JVS(54)*UV(7)+JVS(90)*UV(17)+JVS(297)*UV(51)+JVS(331)*UV(53)+JVS(391)*UV(60)+JVS(429)*UV(61)& - &+JVS(530)*UV(66)+JVS(552)*UV(67)+JVS(585)*UV(68)+JVS(616)*UV(69)+JVS(636)*UV(70)+JVS(720)*UV(72)+JVS(745)& - &*UV(73)+JVS(787)*UV(74)+JVS(827)*UV(75)+JVS(858)*UV(76)+JVS(901)*UV(77)+JVS(951)*UV(78)+JVS(968)*UV(79) - -END SUBROUTINE JacTR_SP_Vec - -! End of JacTR_SP_Vec function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE SAPRC99_Jacobian - diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Jacobian.o b/boxmox/compiled_mechs/SAPRC99/SAPRC99_Jacobian.o deleted file mode 100644 index f8168bc4a848a037bd49f6b7fdf0a5e1f8ab05b2..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Jacobian.o and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_JacobianSP.f90 b/boxmox/compiled_mechs/SAPRC99/SAPRC99_JacobianSP.f90 deleted file mode 100644 index ee97331dc25be91abe228779ef616154dda9aed3..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/SAPRC99/SAPRC99_JacobianSP.f90 +++ /dev/null @@ -1,228 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Sparse Jacobian Data Structures File -! -! Generated by KPP-2.2.3 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 : SAPRC99_JacobianSP.f90 -! Time : Thu Oct 8 08:22:39 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_SAPRC99_30885_BOXMOX -! Equation file : SAPRC99.kpp -! Output root filename : SAPRC99 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE SAPRC99_JacobianSP - - PUBLIC - SAVE - - -! Sparse Jacobian Data - - - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_0 = (/ & - 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 3, & - 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, & - 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, & - 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, & - 6, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 9, & - 9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 11, 11, & - 12, 12, 13, 13, 14, 14, 14, 14, 14, 15, 15, 15, & - 16, 16, 16, 17, 17, 17, 18, 18, 18, 19, 19, 19, & - 20, 20, 21, 21, 22, 22, 22, 23, 23, 23, 24, 24, & - 25, 25, 25, 25, 26, 26, 27, 27, 28, 28, 28, 28, & - 28, 29, 29, 29, 29, 30, 30, 30, 30, 31, 31, 31, & - 31, 31, 32, 32, 32, 32, 33, 33, 34, 34, 35, 35, & - 35, 35, 36, 36, 36, 36, 37, 37, 37, 37, 37, 38, & - 38, 38, 38, 38, 39, 39, 39, 40, 40, 40, 40, 40, & - 40, 41, 41, 41, 41, 41, 41, 41, 42, 42, 42, 42, & - 42, 43, 43, 43, 43, 43, 43, 44, 44, 44, 44, 44, & - 44, 44, 44, 44, 44, 44, 44, 45, 45, 45, 45, 45, & - 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, & - 45, 45, 45, 45, 45, 45, 45, 46, 46, 46, 46, 46, & - 46, 46, 46, 46, 46, 46, 46, 46, 46, 47, 47, 47, & - 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, & - 47, 47, 47, 47, 47, 47, 48, 48, 48, 48, 48, 49, & - 49, 49, 49, 49, 49, 49, 49, 49, 49, 49, 49, 49, & - 49, 49, 49, 49, 50, 50, 50, 50, 50, 51, 51, 51, & - 51, 51, 51, 51, 51, 51, 51, 51, 51, 52, 52, 52, & - 52, 52, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, & - 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, & - 53, 53, 53, 53, 53, 53, 53, 54, 54, 54, 54, 54, & - 55, 55, 55, 55, 55, 55, 55, 56, 56, 56, 56, 56, & - 57, 57, 57, 57, 57, 57, 57, 58, 58, 58, 58, 58 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_1 = (/ & - 59, 59, 59, 59, 59, 59, 59, 60, 60, 60, 60, 60, & - 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, & - 60, 60, 60, 60, 60, 60, 60, 61, 61, 61, 61, 61, & - 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, & - 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, & - 61, 61, 61, 61, 61, 61, 61, 61, 61, 62, 62, 62, & - 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 63, 63, & - 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, 63, & - 63, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, & - 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, & - 64, 64, 64, 64, 64, 64, 65, 65, 65, 65, 65, 65, & - 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, 65, & - 65, 65, 65, 66, 66, 66, 66, 66, 66, 66, 66, 66, & - 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, & - 66, 66, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, & - 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, & - 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, & - 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, 68, & - 68, 68, 68, 68, 68, 68, 68, 68, 68, 69, 69, 69, & - 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, & - 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, & - 69, 69, 69, 69, 70, 70, 70, 70, 70, 70, 70, 70, & - 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, & - 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, & - 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, & - 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, & - 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, & - 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 72, & - 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, & - 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72 /) - INTEGER, PARAMETER, DIMENSION(248) :: LU_IROW_2 = (/ & - 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, & - 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, & - 73, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, & - 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, & - 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, & - 74, 74, 74, 74, 74, 74, 74, 75, 75, 75, 75, 75, & - 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, & - 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, & - 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, 75, 76, & - 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, & - 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, 76, & - 76, 76, 76, 76, 76, 76, 77, 77, 77, 77, 77, 77, & - 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, & - 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, & - 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, & - 77, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, & - 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, & - 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, & - 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, & - 78, 78, 78, 79, 79, 79, 79, 79, 79, 79, 79, 79, & - 79, 79, 79, 79, 79, 79, 79, 79 /) - INTEGER, PARAMETER, DIMENSION(968) :: LU_IROW = (/& - LU_IROW_0, LU_IROW_1, LU_IROW_2 /) - - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_0 = (/ & - 1, 10, 71, 2, 39, 50, 67, 3, 30, 39, 48, 50, & - 52, 54, 55, 56, 57, 58, 59, 67, 71, 73, 4, 50, & - 56, 58, 67, 68, 69, 76, 77, 78, 5, 52, 54, 56, & - 57, 58, 67, 69, 70, 72, 76, 77, 78, 79, 6, 68, & - 78, 7, 70, 72, 78, 79, 8, 31, 50, 74, 75, 9, & - 31, 41, 50, 63, 67, 71, 74, 75, 10, 71, 11, 67, & - 12, 71, 13, 71, 14, 27, 54, 67, 71, 15, 68, 74, & - 16, 72, 74, 17, 74, 79, 18, 70, 74, 19, 71, 78, & - 20, 71, 21, 71, 22, 74, 75, 23, 71, 73, 24, 71, & - 24, 25, 71, 74, 26, 71, 27, 71, 28, 69, 71, 76, & - 77, 29, 71, 76, 78, 30, 61, 73, 78, 31, 40, 74, & - 75, 78, 32, 71, 74, 78, 33, 71, 34, 71, 27, 34, & - 35, 71, 27, 34, 36, 71, 27, 34, 37, 71, 75, 27, & - 34, 38, 67, 71, 39, 67, 71, 31, 40, 51, 74, 75, & - 78, 27, 34, 41, 58, 67, 71, 75, 42, 69, 71, 77, & - 78, 34, 43, 51, 71, 75, 78, 27, 34, 35, 36, 37, & - 44, 55, 57, 59, 67, 71, 75, 33, 35, 36, 38, 39, & - 44, 45, 48, 49, 50, 52, 54, 55, 56, 57, 58, 59, & - 60, 61, 63, 64, 67, 71, 75, 20, 24, 25, 26, 33, & - 46, 54, 56, 58, 62, 67, 71, 74, 75, 22, 37, 40, & - 41, 43, 44, 47, 49, 51, 55, 57, 58, 59, 60, 61, & - 64, 67, 71, 74, 75, 78, 48, 63, 67, 71, 75, 27, & - 34, 35, 36, 38, 39, 43, 48, 49, 51, 54, 57, 63, & - 67, 71, 75, 78, 50, 63, 67, 71, 75, 37, 43, 51, & - 68, 70, 71, 72, 73, 74, 75, 78, 79, 52, 63, 67, & - 71, 75, 24, 26, 33, 35, 36, 46, 52, 53, 54, 56, & - 58, 59, 62, 63, 65, 66, 67, 68, 69, 70, 71, 72, & - 73, 74, 75, 76, 77, 78, 79, 54, 63, 67, 71, 75, & - 52, 55, 58, 63, 67, 71, 75, 56, 63, 67, 71, 75, & - 52, 57, 58, 63, 67, 71, 75, 58, 63, 67, 71, 75 /) - INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_1 = (/ & - 52, 58, 59, 63, 67, 71, 75, 13, 21, 24, 26, 33, & - 48, 50, 56, 57, 58, 60, 62, 63, 64, 65, 66, 67, & - 68, 70, 71, 72, 73, 75, 79, 21, 24, 26, 28, 29, & - 30, 33, 39, 46, 48, 49, 50, 51, 52, 54, 55, 56, & - 57, 58, 59, 61, 62, 63, 65, 66, 67, 68, 69, 70, & - 71, 72, 73, 74, 75, 76, 77, 78, 79, 25, 54, 56, & - 57, 58, 62, 63, 67, 69, 71, 73, 74, 75, 11, 48, & - 50, 52, 54, 55, 56, 58, 59, 63, 67, 71, 73, 74, & - 75, 20, 24, 26, 33, 35, 36, 38, 42, 48, 50, 54, & - 55, 56, 57, 58, 59, 62, 63, 64, 65, 66, 67, 69, & - 71, 73, 74, 75, 77, 78, 24, 26, 33, 50, 55, 56, & - 57, 58, 59, 62, 63, 65, 66, 67, 69, 71, 73, 74, & - 75, 76, 77, 26, 33, 34, 52, 54, 56, 57, 58, 59, & - 62, 63, 66, 67, 68, 69, 71, 72, 73, 74, 75, 76, & - 77, 79, 38, 39, 48, 50, 52, 54, 55, 56, 57, 58, & - 59, 63, 67, 68, 70, 71, 72, 73, 74, 75, 78, 79, & - 14, 15, 27, 33, 35, 36, 44, 46, 54, 55, 56, 57, & - 58, 59, 60, 62, 63, 64, 65, 66, 67, 68, 69, 70, & - 71, 72, 73, 74, 75, 76, 77, 78, 79, 20, 24, 26, & - 27, 33, 34, 50, 52, 54, 56, 57, 58, 59, 62, 63, & - 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, & - 76, 77, 78, 79, 18, 52, 55, 57, 58, 59, 63, 67, & - 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, & - 10, 11, 12, 13, 19, 20, 21, 23, 24, 26, 27, 28, & - 29, 32, 33, 34, 35, 36, 37, 38, 39, 41, 42, 43, & - 44, 45, 46, 47, 48, 49, 50, 51, 52, 54, 55, 56, & - 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, & - 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 16, & - 49, 51, 54, 55, 57, 58, 59, 63, 64, 65, 66, 67, & - 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79 /) - INTEGER, PARAMETER, DIMENSION(248) :: LU_ICOL_2 = (/ & - 23, 30, 53, 54, 56, 58, 59, 61, 62, 63, 65, 66, & - 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, & - 79, 15, 16, 17, 18, 22, 23, 25, 30, 31, 32, 40, & - 47, 49, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, & - 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, & - 73, 74, 75, 76, 77, 78, 79, 22, 32, 37, 40, 41, & - 43, 44, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, & - 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, & - 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 12, & - 25, 29, 33, 46, 48, 50, 52, 54, 56, 58, 59, 60, & - 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, & - 74, 75, 76, 77, 78, 79, 13, 20, 21, 24, 26, 27, & - 33, 34, 35, 36, 37, 38, 39, 42, 43, 48, 50, 51, & - 52, 54, 55, 56, 57, 58, 59, 62, 63, 64, 65, 66, & - 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, & - 79, 10, 19, 21, 23, 27, 28, 29, 30, 31, 32, 34, & - 35, 36, 38, 39, 40, 42, 44, 45, 48, 49, 50, 51, & - 52, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, & - 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, & - 77, 78, 79, 17, 41, 58, 63, 67, 68, 69, 70, 71, & - 72, 73, 74, 75, 76, 77, 78, 79 /) - INTEGER, PARAMETER, DIMENSION(968) :: LU_ICOL = (/& - LU_ICOL_0, LU_ICOL_1, LU_ICOL_2 /) - - INTEGER, PARAMETER, DIMENSION(80) :: LU_CROW = (/ & - 1, 4, 8, 23, 33, 47, 50, 55, 60, 69, 71, 73, & - 75, 77, 82, 85, 88, 91, 94, 97, 99,101,104,107, & - 109,113,115,117,122,126,130,135,139,141,143,147, & - 151,156,161,164,170,177,182,188,200,224,238,259, & - 264,281,286,298,303,332,337,344,349,356,361,368, & - 392,430,443,458,487,508,531,553,586,617,637,696, & - 721,746,788,828,859,902,952,969 /) - - INTEGER, PARAMETER, DIMENSION(80) :: LU_DIAG = (/ & - 1, 4, 8, 23, 33, 47, 50, 55, 60, 69, 71, 73, & - 75, 77, 82, 85, 88, 91, 94, 97, 99,101,104,107, & - 110,113,115,117,122,126,130,135,139,141,145,149, & - 153,158,161,165,172,177,183,193,206,229,244,259, & - 272,281,288,298,310,332,338,344,350,356,363,378, & - 412,435,452,476,498,519,543,574,606,627,687,713, & - 739,782,823,855,899,950,968,969 /) - - -END MODULE SAPRC99_JacobianSP - diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_JacobianSP.o b/boxmox/compiled_mechs/SAPRC99/SAPRC99_JacobianSP.o deleted file mode 100644 index b29dda0e883267d634f3793e2e24abb817d9242a..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/SAPRC99_JacobianSP.o and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_LinearAlgebra.f90 b/boxmox/compiled_mechs/SAPRC99/SAPRC99_LinearAlgebra.f90 deleted file mode 100644 index 4eb55cdc2aa83ee59bf01181183b89820f9100ad..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/SAPRC99/SAPRC99_LinearAlgebra.f90 +++ /dev/null @@ -1,1581 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Linear Algebra Data and Routines File -! -! Generated by KPP-2.2.3 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 : SAPRC99_LinearAlgebra.f90 -! Time : Thu Oct 8 08:22:39 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_SAPRC99_30885_BOXMOX -! Equation file : SAPRC99.kpp -! Output root filename : SAPRC99 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE SAPRC99_LinearAlgebra - - USE SAPRC99_Parameters - USE SAPRC99_JacobianSP - - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! SPARSE_UTIL - SPARSE utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecomp( JVS, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE SAPRC99_Parameters - USE SAPRC99_JacobianSP - - INTEGER :: IER - REAL(kind=dp) :: JVS(LU_NONZERO), W(NVAR), a - INTEGER :: k, kk, j, jj - - a = 0. ! mz_rs_20050606 - IER = 0 - DO k=1,NVAR - ! mz_rs_20050606: don't check if real value == 0 - ! IF ( JVS( LU_DIAG(k) ) .EQ. 0. ) THEN - IF ( ABS(JVS(LU_DIAG(k))) < TINY(a) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - W( LU_ICOL(kk) ) = JVS(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - a = -W(j) / JVS( LU_DIAG(j) ) - W(j) = -a - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVS(kk) = W( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecomp - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecompCmplx( JVS, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization, complex -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE SAPRC99_Parameters - USE SAPRC99_JacobianSP - - INTEGER :: IER - DOUBLE COMPLEX :: JVS(LU_NONZERO), W(NVAR), a - REAL(kind=dp) :: b = 0.0 - INTEGER :: k, kk, j, jj - - IER = 0 - DO k=1,NVAR - IF ( ABS(JVS(LU_DIAG(k))) < TINY(b) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - W( LU_ICOL(kk) ) = JVS(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - a = -W(j) / JVS( LU_DIAG(j) ) - W(j) = -a - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVS(kk) = W( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecompCmplx - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppDecompCmplxR( JVSR, JVSI, IER ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse LU factorization, complex -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE SAPRC99_Parameters - USE SAPRC99_JacobianSP - - INTEGER :: IER - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO) - REAL(kind=dp) :: WR(NVAR), WI(NVAR), ar, ai, den - INTEGER :: k, kk, j, jj - - IER = 0 - ar = 0.0 - DO k=1,NVAR - IF ( ( ABS(JVSR(LU_DIAG(k))) < TINY(ar) ) .AND. & - ( ABS(JVSI(LU_DIAG(k))) < TINY(ar) ) ) THEN - IER = k - RETURN - END IF - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - WR( LU_ICOL(kk) ) = JVSR(kk) - WI( LU_ICOL(kk) ) = JVSI(kk) - END DO - DO kk = LU_CROW(k), LU_DIAG(k)-1 - j = LU_ICOL(kk) - den = JVSR(LU_DIAG(j))**2 + JVSI(LU_DIAG(j))**2 - ar = -(WR(j)*JVSR(LU_DIAG(j)) + WI(j)*JVSI(LU_DIAG(j)))/den - ai = -(WI(j)*JVSR(LU_DIAG(j)) - WR(j)*JVSI(LU_DIAG(j)))/den - WR(j) = -ar - WI(j) = -ai - DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 - WR( LU_ICOL(jj) ) = WR( LU_ICOL(jj) ) + ar*JVSR(jj) - ai*JVSI(jj) - WI( LU_ICOL(jj) ) = WI( LU_ICOL(jj) ) + ar*JVSI(jj) + ai*JVSR(jj) - END DO - END DO - DO kk = LU_CROW(k), LU_CROW(k+1)-1 - JVSR(kk) = WR( LU_ICOL(kk) ) - JVSI(kk) = WI( LU_ICOL(kk) ) - END DO - END DO - -END SUBROUTINE KppDecompCmplxR - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveIndirect( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Sparse solve subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE SAPRC99_Parameters - USE SAPRC99_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR), sum - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - X(i) = X(i) - JVS(j)*X(LU_ICOL(j)); - END DO - END DO - - DO i=NVAR,1,-1 - sum = X(i); - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sum = sum - JVS(j)*X(LU_ICOL(j)); - END DO - X(i) = sum/JVS(LU_DIAG(i)); - END DO - -END SUBROUTINE KppSolveIndirect - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRIndirect( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE SAPRC99_Parameters - USE SAPRC99_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR) - - DO i=1,NVAR - X(i) = X(i)/JVS(LU_DIAG(i)) - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - -END SUBROUTINE KppSolveTRIndirect - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveCmplx( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE SAPRC99_Parameters - USE SAPRC99_JacobianSP - - INTEGER :: i, j - DOUBLE COMPLEX :: JVS(LU_NONZERO), X(NVAR), sum - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - X(i) = X(i) - JVS(j)*X(LU_ICOL(j)); - END DO - END DO - - DO i=NVAR,1,-1 - sum = X(i); - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sum = sum - JVS(j)*X(LU_ICOL(j)); - END DO - X(i) = sum/JVS(LU_DIAG(i)); - END DO - -END SUBROUTINE KppSolveCmplx - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveCmplxR( JVSR, JVSI, XR, XI ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve subroutine using indirect addressing -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE SAPRC99_Parameters - USE SAPRC99_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), sumr, sumi, den - - DO i=1,NVAR - DO j = LU_CROW(i), LU_DIAG(i)-1 - XR(i) = XR(i) - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j))) - XI(i) = XI(i) - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j))) - END DO - END DO - - DO i=NVAR,1,-1 - sumr = XR(i); sumi = XI(i) - DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 - sumr = sumr - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j))) - sumi = sumi - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j))) - END DO - den = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2 - XR(i) = (sumr*JVSR(LU_DIAG(i)) + sumi*JVSI(LU_DIAG(i)))/den - XI(i) = (sumi*JVSR(LU_DIAG(i)) - sumr*JVSI(LU_DIAG(i)))/den - END DO - -END SUBROUTINE KppSolveCmplxR - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRCmplx( JVS, X ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE SAPRC99_Parameters - USE SAPRC99_JacobianSP - - INTEGER :: i, j - DOUBLE COMPLEX :: JVS(LU_NONZERO), X(NVAR) - - DO i=1,NVAR - X(i) = X(i)/JVS(LU_DIAG(i)) - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) - END DO - END DO - -END SUBROUTINE KppSolveTRCmplx - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE KppSolveTRCmplxR( JVSR, JVSI, XR, XI ) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Complex sparse solve transpose subroutine using indirect addressing -! (Real and Imaginary parts are used instead of complex data type) -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE SAPRC99_Parameters - USE SAPRC99_JacobianSP - - INTEGER :: i, j - REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), den - - DO i=1,NVAR - den = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2 - XR(i) = (XR(i)*JVSR(LU_DIAG(i)) + XI(i)*JVSI(LU_DIAG(i)))/den - XI(i) = (XI(i)*JVSR(LU_DIAG(i)) - XR(i)*JVSI(LU_DIAG(i)))/den - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 - XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i)) - XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i)) - END DO - END DO - - DO i=NVAR, 1, -1 - ! subtract all nonzero elements in row i of JVS from X - DO j=LU_CROW(i),LU_DIAG(i)-1 - XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i)) - XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i)) - END DO - END DO - -END SUBROUTINE KppSolveTRCmplxR - - -! -! Next few commented subroutines perform sparse big linear algebra -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppDecompBig( JVS, IP, IER ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Sparse LU factorization -!! for the Runge Kutta (3n)x(3n) linear system -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE SAPRC99_Parameters -! USE SAPRC99_JacobianSP -! -! INTEGER :: IP3(3), IER, IP(3,NVAR) -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), W(3,3,NVAR), a(3,3), E(3,3) -! INTEGER :: k, kk, j, jj -! -! a = 0.0d0 -! IER = 0 -! DO k=1,NVAR -! DO kk = LU_CROW(k), LU_CROW(k+1)-1 -! W( 1:3,1:3,LU_ICOL(kk) ) = JVS(1:3,1:3,kk) -! END DO -! DO kk = LU_CROW(k), LU_DIAG(k)-1 -! j = LU_ICOL(kk) -! E(1:3,1:3) = JVS( 1:3,1:3,LU_DIAG(j) ) -! ! CALL DGETRF(3,3,E,3,IP3,IER) -! CALL FAC3(E,IP3,IER) -! IF ( IER /= 0 ) RETURN -! ! a = W(j) / JVS( LU_DIAG(j) ) -! a(1:3,1:3) = W( 1:3,1:3,j ) -! ! CALL DGETRS ('N',3,3,E,3,IP3,a,3,IER) -! CALL SOL3('N',E,IP3,a(1,1)) -! CALL SOL3('N',E,IP3,a(1,2)) -! CALL SOL3('N',E,IP3,a(1,3)) -! W(1:3,1:3,j) = a(1:3,1:3) -! DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 -! W( 1:3,1:3,LU_ICOL(jj) ) = W( 1:3,1:3,LU_ICOL(jj) ) & -! - MATMUL( a(1:3,1:3) , JVS(1:3,1:3,jj) ) -! END DO -! END DO -! DO kk = LU_CROW(k), LU_CROW(k+1)-1 -! JVS(1:3,1:3,kk) = W( 1:3,1:3,LU_ICOL(kk) ) -! END DO -! END DO -! -! DO k=1,NVAR -! ! CALL WGEFA(JVS(1,1,LU_DIAG(k)),3,3,IP(1,k),IER) -! ! CALL DGETRF(3,3,JVS(1,1,LU_DIAG(k)),3,IP(1,k),IER) -! CALL FAC3(JVS(1,1,LU_DIAG(k)),IP(1,k),IER) -! IF ( IER /= 0 ) RETURN -! END DO -! -!END SUBROUTINE KppDecompBig -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppSolveBig( JVS, IP, X ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Sparse solve subroutine using indirect addressing -!! for the Runge Kutta (3n)x(3n) linear system -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE SAPRC99_Parameters -! USE SAPRC99_JacobianSP -! -! INTEGER :: i, j, k, m, IP3(3), IP(3,NVAR), IER -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR), sum(3) -! -! DO i=1,NVAR -! DO j = LU_CROW(i), LU_DIAG(i)-1 -! !X(1:3,i) = X(1:3,i) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j))); -! DO k=1,3 -! DO m=1,3 -! X(k,i) = X(k,i) - JVS(k,m,j)*X(m,LU_ICOL(j)) -! END DO -! END DO -! END DO -! END DO -! -! DO i=NVAR,1,-1 -! sum(1:3) = X(1:3,i); -! DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 -! !sum(1:3) = sum(1:3) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j))); -! DO k=1,3 -! DO m=1,3 -! sum(k) = sum(k) - JVS(k,m,j)*X(m,LU_ICOL(j)) -! END DO -! END DO -! END DO -! ! X(i) = sum/JVS(LU_DIAG(i)); -! ! CALL DGETRS ('N',3,1,JVS(1:3,1:3,LU_DIAG(i)),3,IP(1,i),sum,3,0) -! ! CALL WGESL('N',JVS(1,1,LU_DIAG(i)),3,3,IP(1,i),sum) -! CALL SOL3('N',JVS(1,1,LU_DIAG(i)),IP(1,i),sum) -! X(1:3,i) = sum(1:3) -! END DO -! -!END SUBROUTINE KppSolveBig -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE KppSolveBigTR( JVS, IP, X ) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! Big sparse transpose solve using indirect addressing -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! USE SAPRC99_Parameters -! USE SAPRC99_JacobianSP -! -! INTEGER :: i, j, k, m, IP(3,NVAR) -! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR) -! -! DO i=1,NVAR -! ! X(i) = X(i)/JVS(LU_DIAG(i)) -! CALL SOL3('T',JVS(1,1,LU_DIAG(i)),IP(1,i),X(1,i)) -! DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 -! !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) & -! ! - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) ) -! DO k=1,3 -! DO m=1,3 -! X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i) -! END DO -! END DO -! END DO -! END DO -! -! DO i=NVAR, 1, -1 -! DO j=LU_CROW(i),LU_DIAG(i)-1 -! !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) & -! ! - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) ) -! DO k=1,3 -! DO m=1,3 -! X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i) -! END DO -! END DO -! END DO -! END DO -! -!END SUBROUTINE KppSolveBigTR -! -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE FAC3(A,IPVT,INFO) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! FAC3 FACTORS THE MATRIX A (3,3) BY -!! GAUSS ELIMINATION WITH PARTIAL PIVOTING -!! LINPACK - LIKE -!! -!! Remove comments to perform pivoting -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! -! REAL(kind=dp) :: A(3,3) -! INTEGER :: IPVT(3),INFO -!! INTEGER :: L -!! REAL(kind=dp) :: t, dmax, da, TMP(3) -! REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0 -! -! info = 0 -!! t = TINY(da) -!! -!! da = ABS(A(1,1)); L = 1 -!! IF ( ABS(A(2,1))>da ) THEN -!! da = ABS(A(2,1)); L = 2 -!! IF ( ABS(A(3,1))>da ) THEN -!! L = 3 -!! END IF -!! END IF -!! IPVT(1) = L -!! IF (L /=1 ) THEN -!! TMP(1:3) = A(L,1:3) -!! A(L,1:3) = A(1,1:3) -!! A(1,1:3) = TMP(1:3) -!! END IF -!! IF (ABS(A(1,1)) < t) THEN -!! info = 1 -!! return -!! END IF -!! -! A(2,1) = A(2,1)/A(1,1) -! A(2,2) = A(2,2) - A(2,1)*A(1,2) -! A(2,3) = A(2,3) - A(2,1)*A(1,3) -! A(3,1) = A(3,1)/A(1,1) -! A(3,2) = A(3,2) - A(3,1)*A(1,2) -! A(3,3) = A(3,3) - A(3,1)*A(1,3) -! -!! IPVT(2) = 2 -!! IF (ABS(A(3,2))>ABS(A(2,2))) THEN -!! IPVT(2) = 3 -!! TMP(2:3) = A(3,2:3) -!! A(3,2:3) = A(2,2:3) -!! A(2,2:3) = TMP(2:3) -!! END IF -!! IF (ABS(A(2,2)) < t) THEN -!! info = 1 -!! return -!! END IF -!! -! A(3,2) = A(3,2)/A(2,2) -! A(3,3) = A(3,3) - A(3,2)*A(2,3) -! IPVT(3) = 3 -! -!END SUBROUTINE FAC3 -! -! -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!SUBROUTINE SOL3(Trans,A,IPVT,b) -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! SOL3 solves the system 3x3 -!! A * x = b or trans(a) * x = b -!! using the factors computed by WGEFA. -!! -!! Trans = 'N' to solve A*x = b , -!! = 'T' to solve transpose(A)*x = b -!! LINPACK - LIKE -!! -!! Remove comments to use pivoting -!! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! CHARACTER :: Trans -! REAL(kind=dp) :: a(3,3),b(3) -! INTEGER :: IPVT(3) -!! INTEGER :: L -!! REAL(kind=dp) :: TMP -! -! SELECT CASE (Trans) -! -! CASE ('n','N') ! Solve A * x = b -! -!! Solve L*y = b -!! L = IPVT(1) -!! IF (L /= 1) THEN -!! TMP = B(1); B(1) = B(L); B(L) = TMP -!! END IF -! b(2) = b(2)-A(2,1)*b(1) -! b(3) = b(3)-A(3,1)*b(1) -! -!! L = IPVT(2) -!! IF (L /= 2) THEN -!! TMP = B(2); B(2) = B(L); B(L) = TMP -!! END IF -! b(3) = b(3)-A(3,2)*b(2) -! -!! Solve U*x = y -! b(3) = b(3)/A(3,3) -! b(2) = (b(2)-A(2,3)*b(3))/A(2,2) -! b(1) = (b(1)-A(1,3)*b(3)-A(1,2)*b(2))/A(1,1) -! -! -! CASE ('t','T') ! Solve transpose(A) * x = b -! -!! Solve transpose(U)*y = b -! b(1) = b(1)/A(1,1) -! b(2) = (b(2)-A(1,2)*b(1))/A(2,2) -! b(3) = (b(3)-A(1,3)*b(1)-A(2,3)*b(2))/A(3,3) -! -!! Solve transpose(L)*x = y -! b(2) = b(2)-A(3,2)*b(3) -!! L = ipvt(2) -!! IF (L /= 2) THEN -!! TMP = B(2); B(2) = B(L); B(L) = TMP -!! END IF -! b(1) = b(1)-A(3,1)*b(3)-A(2,1)*b(2) -!! L = ipvt(1) -!! IF (L /= 1) THEN -!! TMP = B(1); B(1) = B(L); B(L) = TMP -!! END IF -! -! END SELECT -! -!END SUBROUTINE SOL3 - -! End of SPARSE_UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! KppSolve - sparse back substitution -! Arguments : -! JVS - sparse Jacobian of variables -! X - Vector for variables -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE KppSolve ( JVS, X ) - -! JVS - sparse Jacobian of variables - REAL(kind=dp) :: JVS(LU_NONZERO) -! X - Vector for variables - REAL(kind=dp) :: X(NVAR) - - X(25) = X(25)-JVS(109)*X(24) - X(35) = X(35)-JVS(143)*X(27)-JVS(144)*X(34) - X(36) = X(36)-JVS(147)*X(27)-JVS(148)*X(34) - X(37) = X(37)-JVS(151)*X(27)-JVS(152)*X(34) - X(38) = X(38)-JVS(156)*X(27)-JVS(157)*X(34) - X(40) = X(40)-JVS(164)*X(31) - X(41) = X(41)-JVS(170)*X(27)-JVS(171)*X(34) - X(43) = X(43)-JVS(182)*X(34) - X(44) = X(44)-JVS(188)*X(27)-JVS(189)*X(34)-JVS(190)*X(35)-JVS(191)*X(36)-JVS(192)*X(37) - X(45) = X(45)-JVS(200)*X(33)-JVS(201)*X(35)-JVS(202)*X(36)-JVS(203)*X(38)-JVS(204)*X(39)-JVS(205)*X(44) - X(46) = X(46)-JVS(224)*X(20)-JVS(225)*X(24)-JVS(226)*X(25)-JVS(227)*X(26)-JVS(228)*X(33) - X(47) = X(47)-JVS(238)*X(22)-JVS(239)*X(37)-JVS(240)*X(40)-JVS(241)*X(41)-JVS(242)*X(43)-JVS(243)*X(44) - X(49) = X(49)-JVS(264)*X(27)-JVS(265)*X(34)-JVS(266)*X(35)-JVS(267)*X(36)-JVS(268)*X(38)-JVS(269)*X(39)-JVS(270)*X(43)& - &-JVS(271)*X(48) - X(51) = X(51)-JVS(286)*X(37)-JVS(287)*X(43) - X(53) = X(53)-JVS(303)*X(24)-JVS(304)*X(26)-JVS(305)*X(33)-JVS(306)*X(35)-JVS(307)*X(36)-JVS(308)*X(46)-JVS(309)*X(52) - X(55) = X(55)-JVS(337)*X(52) - X(57) = X(57)-JVS(349)*X(52) - X(59) = X(59)-JVS(361)*X(52)-JVS(362)*X(58) - X(60) = X(60)-JVS(368)*X(13)-JVS(369)*X(21)-JVS(370)*X(24)-JVS(371)*X(26)-JVS(372)*X(33)-JVS(373)*X(48)-JVS(374)*X(50)& - &-JVS(375)*X(56)-JVS(376)*X(57)-JVS(377)*X(58) - X(61) = X(61)-JVS(392)*X(21)-JVS(393)*X(24)-JVS(394)*X(26)-JVS(395)*X(28)-JVS(396)*X(29)-JVS(397)*X(30)-JVS(398)*X(33)& - &-JVS(399)*X(39)-JVS(400)*X(46)-JVS(401)*X(48)-JVS(402)*X(49)-JVS(403)*X(50)-JVS(404)*X(51)-JVS(405)*X(52)& - &-JVS(406)*X(54)-JVS(407)*X(55)-JVS(408)*X(56)-JVS(409)*X(57)-JVS(410)*X(58)-JVS(411)*X(59) - X(62) = X(62)-JVS(430)*X(25)-JVS(431)*X(54)-JVS(432)*X(56)-JVS(433)*X(57)-JVS(434)*X(58) - X(63) = X(63)-JVS(443)*X(11)-JVS(444)*X(48)-JVS(445)*X(50)-JVS(446)*X(52)-JVS(447)*X(54)-JVS(448)*X(55)-JVS(449)*X(56)& - &-JVS(450)*X(58)-JVS(451)*X(59) - X(64) = X(64)-JVS(458)*X(20)-JVS(459)*X(24)-JVS(460)*X(26)-JVS(461)*X(33)-JVS(462)*X(35)-JVS(463)*X(36)-JVS(464)*X(38)& - &-JVS(465)*X(42)-JVS(466)*X(48)-JVS(467)*X(50)-JVS(468)*X(54)-JVS(469)*X(55)-JVS(470)*X(56)-JVS(471)*X(57)& - &-JVS(472)*X(58)-JVS(473)*X(59)-JVS(474)*X(62)-JVS(475)*X(63) - X(65) = X(65)-JVS(487)*X(24)-JVS(488)*X(26)-JVS(489)*X(33)-JVS(490)*X(50)-JVS(491)*X(55)-JVS(492)*X(56)-JVS(493)*X(57)& - &-JVS(494)*X(58)-JVS(495)*X(59)-JVS(496)*X(62)-JVS(497)*X(63) - X(66) = X(66)-JVS(508)*X(26)-JVS(509)*X(33)-JVS(510)*X(34)-JVS(511)*X(52)-JVS(512)*X(54)-JVS(513)*X(56)-JVS(514)*X(57)& - &-JVS(515)*X(58)-JVS(516)*X(59)-JVS(517)*X(62)-JVS(518)*X(63) - X(67) = X(67)-JVS(531)*X(38)-JVS(532)*X(39)-JVS(533)*X(48)-JVS(534)*X(50)-JVS(535)*X(52)-JVS(536)*X(54)-JVS(537)*X(55)& - &-JVS(538)*X(56)-JVS(539)*X(57)-JVS(540)*X(58)-JVS(541)*X(59)-JVS(542)*X(63) - X(68) = X(68)-JVS(553)*X(14)-JVS(554)*X(15)-JVS(555)*X(27)-JVS(556)*X(33)-JVS(557)*X(35)-JVS(558)*X(36)-JVS(559)*X(44)& - &-JVS(560)*X(46)-JVS(561)*X(54)-JVS(562)*X(55)-JVS(563)*X(56)-JVS(564)*X(57)-JVS(565)*X(58)-JVS(566)*X(59)& - &-JVS(567)*X(60)-JVS(568)*X(62)-JVS(569)*X(63)-JVS(570)*X(64)-JVS(571)*X(65)-JVS(572)*X(66)-JVS(573)*X(67) - X(69) = X(69)-JVS(586)*X(20)-JVS(587)*X(24)-JVS(588)*X(26)-JVS(589)*X(27)-JVS(590)*X(33)-JVS(591)*X(34)-JVS(592)*X(50)& - &-JVS(593)*X(52)-JVS(594)*X(54)-JVS(595)*X(56)-JVS(596)*X(57)-JVS(597)*X(58)-JVS(598)*X(59)-JVS(599)*X(62)& - &-JVS(600)*X(63)-JVS(601)*X(64)-JVS(602)*X(65)-JVS(603)*X(66)-JVS(604)*X(67)-JVS(605)*X(68) - X(70) = X(70)-JVS(617)*X(18)-JVS(618)*X(52)-JVS(619)*X(55)-JVS(620)*X(57)-JVS(621)*X(58)-JVS(622)*X(59)-JVS(623)*X(63)& - &-JVS(624)*X(67)-JVS(625)*X(68)-JVS(626)*X(69) - X(71) = X(71)-JVS(637)*X(10)-JVS(638)*X(11)-JVS(639)*X(12)-JVS(640)*X(13)-JVS(641)*X(19)-JVS(642)*X(20)-JVS(643)*X(21)& - &-JVS(644)*X(23)-JVS(645)*X(24)-JVS(646)*X(26)-JVS(647)*X(27)-JVS(648)*X(28)-JVS(649)*X(29)-JVS(650)*X(32)& - &-JVS(651)*X(33)-JVS(652)*X(34)-JVS(653)*X(35)-JVS(654)*X(36)-JVS(655)*X(37)-JVS(656)*X(38)-JVS(657)*X(39)& - &-JVS(658)*X(41)-JVS(659)*X(42)-JVS(660)*X(43)-JVS(661)*X(44)-JVS(662)*X(45)-JVS(663)*X(46)-JVS(664)*X(47)& - &-JVS(665)*X(48)-JVS(666)*X(49)-JVS(667)*X(50)-JVS(668)*X(51)-JVS(669)*X(52)-JVS(670)*X(54)-JVS(671)*X(55)& - &-JVS(672)*X(56)-JVS(673)*X(57)-JVS(674)*X(58)-JVS(675)*X(59)-JVS(676)*X(60)-JVS(677)*X(61)-JVS(678)*X(62)& - &-JVS(679)*X(63)-JVS(680)*X(64)-JVS(681)*X(65)-JVS(682)*X(66)-JVS(683)*X(67)-JVS(684)*X(68)-JVS(685)*X(69)& - &-JVS(686)*X(70) - X(72) = X(72)-JVS(696)*X(16)-JVS(697)*X(49)-JVS(698)*X(51)-JVS(699)*X(54)-JVS(700)*X(55)-JVS(701)*X(57)-JVS(702)*X(58)& - &-JVS(703)*X(59)-JVS(704)*X(63)-JVS(705)*X(64)-JVS(706)*X(65)-JVS(707)*X(66)-JVS(708)*X(67)-JVS(709)*X(68)& - &-JVS(710)*X(69)-JVS(711)*X(70)-JVS(712)*X(71) - X(73) = X(73)-JVS(721)*X(23)-JVS(722)*X(30)-JVS(723)*X(53)-JVS(724)*X(54)-JVS(725)*X(56)-JVS(726)*X(58)-JVS(727)*X(59)& - &-JVS(728)*X(61)-JVS(729)*X(62)-JVS(730)*X(63)-JVS(731)*X(65)-JVS(732)*X(66)-JVS(733)*X(67)-JVS(734)*X(68)& - &-JVS(735)*X(69)-JVS(736)*X(70)-JVS(737)*X(71)-JVS(738)*X(72) - X(74) = X(74)-JVS(746)*X(15)-JVS(747)*X(16)-JVS(748)*X(17)-JVS(749)*X(18)-JVS(750)*X(22)-JVS(751)*X(23)-JVS(752)*X(25)& - &-JVS(753)*X(30)-JVS(754)*X(31)-JVS(755)*X(32)-JVS(756)*X(40)-JVS(757)*X(47)-JVS(758)*X(49)-JVS(759)*X(51)& - &-JVS(760)*X(52)-JVS(761)*X(53)-JVS(762)*X(54)-JVS(763)*X(55)-JVS(764)*X(56)-JVS(765)*X(57)-JVS(766)*X(58)& - &-JVS(767)*X(59)-JVS(768)*X(60)-JVS(769)*X(61)-JVS(770)*X(62)-JVS(771)*X(63)-JVS(772)*X(64)-JVS(773)*X(65)& - &-JVS(774)*X(66)-JVS(775)*X(67)-JVS(776)*X(68)-JVS(777)*X(69)-JVS(778)*X(70)-JVS(779)*X(71)-JVS(780)*X(72)& - &-JVS(781)*X(73) - X(75) = X(75)-JVS(788)*X(22)-JVS(789)*X(32)-JVS(790)*X(37)-JVS(791)*X(40)-JVS(792)*X(41)-JVS(793)*X(43)-JVS(794)*X(44)& - &-JVS(795)*X(47)-JVS(796)*X(48)-JVS(797)*X(49)-JVS(798)*X(50)-JVS(799)*X(51)-JVS(800)*X(52)-JVS(801)*X(53)& - &-JVS(802)*X(54)-JVS(803)*X(55)-JVS(804)*X(56)-JVS(805)*X(57)-JVS(806)*X(58)-JVS(807)*X(59)-JVS(808)*X(60)& - &-JVS(809)*X(61)-JVS(810)*X(62)-JVS(811)*X(63)-JVS(812)*X(64)-JVS(813)*X(65)-JVS(814)*X(66)-JVS(815)*X(67)& - &-JVS(816)*X(68)-JVS(817)*X(69)-JVS(818)*X(70)-JVS(819)*X(71)-JVS(820)*X(72)-JVS(821)*X(73)-JVS(822)*X(74) - X(76) = X(76)-JVS(828)*X(12)-JVS(829)*X(25)-JVS(830)*X(29)-JVS(831)*X(33)-JVS(832)*X(46)-JVS(833)*X(48)-JVS(834)*X(50)& - &-JVS(835)*X(52)-JVS(836)*X(54)-JVS(837)*X(56)-JVS(838)*X(58)-JVS(839)*X(59)-JVS(840)*X(60)-JVS(841)*X(62)& - &-JVS(842)*X(63)-JVS(843)*X(64)-JVS(844)*X(65)-JVS(845)*X(66)-JVS(846)*X(67)-JVS(847)*X(68)-JVS(848)*X(69)& - &-JVS(849)*X(70)-JVS(850)*X(71)-JVS(851)*X(72)-JVS(852)*X(73)-JVS(853)*X(74)-JVS(854)*X(75) - X(77) = X(77)-JVS(859)*X(13)-JVS(860)*X(20)-JVS(861)*X(21)-JVS(862)*X(24)-JVS(863)*X(26)-JVS(864)*X(27)-JVS(865)*X(33)& - &-JVS(866)*X(34)-JVS(867)*X(35)-JVS(868)*X(36)-JVS(869)*X(37)-JVS(870)*X(38)-JVS(871)*X(39)-JVS(872)*X(42)& - &-JVS(873)*X(43)-JVS(874)*X(48)-JVS(875)*X(50)-JVS(876)*X(51)-JVS(877)*X(52)-JVS(878)*X(54)-JVS(879)*X(55)& - &-JVS(880)*X(56)-JVS(881)*X(57)-JVS(882)*X(58)-JVS(883)*X(59)-JVS(884)*X(62)-JVS(885)*X(63)-JVS(886)*X(64)& - &-JVS(887)*X(65)-JVS(888)*X(66)-JVS(889)*X(67)-JVS(890)*X(68)-JVS(891)*X(69)-JVS(892)*X(70)-JVS(893)*X(71)& - &-JVS(894)*X(72)-JVS(895)*X(73)-JVS(896)*X(74)-JVS(897)*X(75)-JVS(898)*X(76) - X(78) = X(78)-JVS(902)*X(10)-JVS(903)*X(19)-JVS(904)*X(21)-JVS(905)*X(23)-JVS(906)*X(27)-JVS(907)*X(28)-JVS(908)*X(29)& - &-JVS(909)*X(30)-JVS(910)*X(31)-JVS(911)*X(32)-JVS(912)*X(34)-JVS(913)*X(35)-JVS(914)*X(36)-JVS(915)*X(38)& - &-JVS(916)*X(39)-JVS(917)*X(40)-JVS(918)*X(42)-JVS(919)*X(44)-JVS(920)*X(45)-JVS(921)*X(48)-JVS(922)*X(49)& - &-JVS(923)*X(50)-JVS(924)*X(51)-JVS(925)*X(52)-JVS(926)*X(54)-JVS(927)*X(55)-JVS(928)*X(56)-JVS(929)*X(57)& - &-JVS(930)*X(58)-JVS(931)*X(59)-JVS(932)*X(60)-JVS(933)*X(61)-JVS(934)*X(62)-JVS(935)*X(63)-JVS(936)*X(64)& - &-JVS(937)*X(65)-JVS(938)*X(66)-JVS(939)*X(67)-JVS(940)*X(68)-JVS(941)*X(69)-JVS(942)*X(70)-JVS(943)*X(71)& - &-JVS(944)*X(72)-JVS(945)*X(73)-JVS(946)*X(74)-JVS(947)*X(75)-JVS(948)*X(76)-JVS(949)*X(77) - X(79) = X(79)-JVS(952)*X(17)-JVS(953)*X(41)-JVS(954)*X(58)-JVS(955)*X(63)-JVS(956)*X(67)-JVS(957)*X(68)-JVS(958)*X(69)& - &-JVS(959)*X(70)-JVS(960)*X(71)-JVS(961)*X(72)-JVS(962)*X(73)-JVS(963)*X(74)-JVS(964)*X(75)-JVS(965)*X(76)& - &-JVS(966)*X(77)-JVS(967)*X(78) - X(79) = X(79)/JVS(968) - X(78) = (X(78)-JVS(951)*X(79))/(JVS(950)) - X(77) = (X(77)-JVS(900)*X(78)-JVS(901)*X(79))/(JVS(899)) - X(76) = (X(76)-JVS(856)*X(77)-JVS(857)*X(78)-JVS(858)*X(79))/(JVS(855)) - X(75) = (X(75)-JVS(824)*X(76)-JVS(825)*X(77)-JVS(826)*X(78)-JVS(827)*X(79))/(JVS(823)) - X(74) = (X(74)-JVS(783)*X(75)-JVS(784)*X(76)-JVS(785)*X(77)-JVS(786)*X(78)-JVS(787)*X(79))/(JVS(782)) - X(73) = (X(73)-JVS(740)*X(74)-JVS(741)*X(75)-JVS(742)*X(76)-JVS(743)*X(77)-JVS(744)*X(78)-JVS(745)*X(79))/(JVS(739)) - X(72) = (X(72)-JVS(714)*X(73)-JVS(715)*X(74)-JVS(716)*X(75)-JVS(717)*X(76)-JVS(718)*X(77)-JVS(719)*X(78)-JVS(720)& - &*X(79))/(JVS(713)) - X(71) = (X(71)-JVS(688)*X(72)-JVS(689)*X(73)-JVS(690)*X(74)-JVS(691)*X(75)-JVS(692)*X(76)-JVS(693)*X(77)-JVS(694)& - &*X(78)-JVS(695)*X(79))/(JVS(687)) - X(70) = (X(70)-JVS(628)*X(71)-JVS(629)*X(72)-JVS(630)*X(73)-JVS(631)*X(74)-JVS(632)*X(75)-JVS(633)*X(76)-JVS(634)& - &*X(77)-JVS(635)*X(78)-JVS(636)*X(79))/(JVS(627)) - X(69) = (X(69)-JVS(607)*X(70)-JVS(608)*X(71)-JVS(609)*X(72)-JVS(610)*X(73)-JVS(611)*X(74)-JVS(612)*X(75)-JVS(613)& - &*X(76)-JVS(614)*X(77)-JVS(615)*X(78)-JVS(616)*X(79))/(JVS(606)) - X(68) = (X(68)-JVS(575)*X(69)-JVS(576)*X(70)-JVS(577)*X(71)-JVS(578)*X(72)-JVS(579)*X(73)-JVS(580)*X(74)-JVS(581)& - &*X(75)-JVS(582)*X(76)-JVS(583)*X(77)-JVS(584)*X(78)-JVS(585)*X(79))/(JVS(574)) - X(67) = (X(67)-JVS(544)*X(68)-JVS(545)*X(70)-JVS(546)*X(71)-JVS(547)*X(72)-JVS(548)*X(73)-JVS(549)*X(74)-JVS(550)& - &*X(75)-JVS(551)*X(78)-JVS(552)*X(79))/(JVS(543)) - X(66) = (X(66)-JVS(520)*X(67)-JVS(521)*X(68)-JVS(522)*X(69)-JVS(523)*X(71)-JVS(524)*X(72)-JVS(525)*X(73)-JVS(526)& - &*X(74)-JVS(527)*X(75)-JVS(528)*X(76)-JVS(529)*X(77)-JVS(530)*X(79))/(JVS(519)) - X(65) = (X(65)-JVS(499)*X(66)-JVS(500)*X(67)-JVS(501)*X(69)-JVS(502)*X(71)-JVS(503)*X(73)-JVS(504)*X(74)-JVS(505)& - &*X(75)-JVS(506)*X(76)-JVS(507)*X(77))/(JVS(498)) - X(64) = (X(64)-JVS(477)*X(65)-JVS(478)*X(66)-JVS(479)*X(67)-JVS(480)*X(69)-JVS(481)*X(71)-JVS(482)*X(73)-JVS(483)& - &*X(74)-JVS(484)*X(75)-JVS(485)*X(77)-JVS(486)*X(78))/(JVS(476)) - X(63) = (X(63)-JVS(453)*X(67)-JVS(454)*X(71)-JVS(455)*X(73)-JVS(456)*X(74)-JVS(457)*X(75))/(JVS(452)) - X(62) = (X(62)-JVS(436)*X(63)-JVS(437)*X(67)-JVS(438)*X(69)-JVS(439)*X(71)-JVS(440)*X(73)-JVS(441)*X(74)-JVS(442)& - &*X(75))/(JVS(435)) - X(61) = (X(61)-JVS(413)*X(62)-JVS(414)*X(63)-JVS(415)*X(65)-JVS(416)*X(66)-JVS(417)*X(67)-JVS(418)*X(68)-JVS(419)& - &*X(69)-JVS(420)*X(70)-JVS(421)*X(71)-JVS(422)*X(72)-JVS(423)*X(73)-JVS(424)*X(74)-JVS(425)*X(75)-JVS(426)*X(76)& - &-JVS(427)*X(77)-JVS(428)*X(78)-JVS(429)*X(79))/(JVS(412)) - X(60) = (X(60)-JVS(379)*X(62)-JVS(380)*X(63)-JVS(381)*X(64)-JVS(382)*X(65)-JVS(383)*X(66)-JVS(384)*X(67)-JVS(385)& - &*X(68)-JVS(386)*X(70)-JVS(387)*X(71)-JVS(388)*X(72)-JVS(389)*X(73)-JVS(390)*X(75)-JVS(391)*X(79))/(JVS(378)) - X(59) = (X(59)-JVS(364)*X(63)-JVS(365)*X(67)-JVS(366)*X(71)-JVS(367)*X(75))/(JVS(363)) - X(58) = (X(58)-JVS(357)*X(63)-JVS(358)*X(67)-JVS(359)*X(71)-JVS(360)*X(75))/(JVS(356)) - X(57) = (X(57)-JVS(351)*X(58)-JVS(352)*X(63)-JVS(353)*X(67)-JVS(354)*X(71)-JVS(355)*X(75))/(JVS(350)) - X(56) = (X(56)-JVS(345)*X(63)-JVS(346)*X(67)-JVS(347)*X(71)-JVS(348)*X(75))/(JVS(344)) - X(55) = (X(55)-JVS(339)*X(58)-JVS(340)*X(63)-JVS(341)*X(67)-JVS(342)*X(71)-JVS(343)*X(75))/(JVS(338)) - X(54) = (X(54)-JVS(333)*X(63)-JVS(334)*X(67)-JVS(335)*X(71)-JVS(336)*X(75))/(JVS(332)) - X(53) = (X(53)-JVS(311)*X(54)-JVS(312)*X(56)-JVS(313)*X(58)-JVS(314)*X(59)-JVS(315)*X(62)-JVS(316)*X(63)-JVS(317)& - &*X(65)-JVS(318)*X(66)-JVS(319)*X(67)-JVS(320)*X(68)-JVS(321)*X(69)-JVS(322)*X(70)-JVS(323)*X(71)-JVS(324)*X(72)& - &-JVS(325)*X(73)-JVS(326)*X(74)-JVS(327)*X(75)-JVS(328)*X(76)-JVS(329)*X(77)-JVS(330)*X(78)-JVS(331)*X(79))& - &/(JVS(310)) - X(52) = (X(52)-JVS(299)*X(63)-JVS(300)*X(67)-JVS(301)*X(71)-JVS(302)*X(75))/(JVS(298)) - X(51) = (X(51)-JVS(289)*X(68)-JVS(290)*X(70)-JVS(291)*X(71)-JVS(292)*X(72)-JVS(293)*X(73)-JVS(294)*X(74)-JVS(295)& - &*X(75)-JVS(296)*X(78)-JVS(297)*X(79))/(JVS(288)) - X(50) = (X(50)-JVS(282)*X(63)-JVS(283)*X(67)-JVS(284)*X(71)-JVS(285)*X(75))/(JVS(281)) - X(49) = (X(49)-JVS(273)*X(51)-JVS(274)*X(54)-JVS(275)*X(57)-JVS(276)*X(63)-JVS(277)*X(67)-JVS(278)*X(71)-JVS(279)& - &*X(75)-JVS(280)*X(78))/(JVS(272)) - X(48) = (X(48)-JVS(260)*X(63)-JVS(261)*X(67)-JVS(262)*X(71)-JVS(263)*X(75))/(JVS(259)) - X(47) = (X(47)-JVS(245)*X(49)-JVS(246)*X(51)-JVS(247)*X(55)-JVS(248)*X(57)-JVS(249)*X(58)-JVS(250)*X(59)-JVS(251)& - &*X(60)-JVS(252)*X(61)-JVS(253)*X(64)-JVS(254)*X(67)-JVS(255)*X(71)-JVS(256)*X(74)-JVS(257)*X(75)-JVS(258)& - &*X(78))/(JVS(244)) - X(46) = (X(46)-JVS(230)*X(54)-JVS(231)*X(56)-JVS(232)*X(58)-JVS(233)*X(62)-JVS(234)*X(67)-JVS(235)*X(71)-JVS(236)& - &*X(74)-JVS(237)*X(75))/(JVS(229)) - X(45) = (X(45)-JVS(207)*X(48)-JVS(208)*X(49)-JVS(209)*X(50)-JVS(210)*X(52)-JVS(211)*X(54)-JVS(212)*X(55)-JVS(213)& - &*X(56)-JVS(214)*X(57)-JVS(215)*X(58)-JVS(216)*X(59)-JVS(217)*X(60)-JVS(218)*X(61)-JVS(219)*X(63)-JVS(220)*X(64)& - &-JVS(221)*X(67)-JVS(222)*X(71)-JVS(223)*X(75))/(JVS(206)) - X(44) = (X(44)-JVS(194)*X(55)-JVS(195)*X(57)-JVS(196)*X(59)-JVS(197)*X(67)-JVS(198)*X(71)-JVS(199)*X(75))/(JVS(193)) - X(43) = (X(43)-JVS(184)*X(51)-JVS(185)*X(71)-JVS(186)*X(75)-JVS(187)*X(78))/(JVS(183)) - X(42) = (X(42)-JVS(178)*X(69)-JVS(179)*X(71)-JVS(180)*X(77)-JVS(181)*X(78))/(JVS(177)) - X(41) = (X(41)-JVS(173)*X(58)-JVS(174)*X(67)-JVS(175)*X(71)-JVS(176)*X(75))/(JVS(172)) - X(40) = (X(40)-JVS(166)*X(51)-JVS(167)*X(74)-JVS(168)*X(75)-JVS(169)*X(78))/(JVS(165)) - X(39) = (X(39)-JVS(162)*X(67)-JVS(163)*X(71))/(JVS(161)) - X(38) = (X(38)-JVS(159)*X(67)-JVS(160)*X(71))/(JVS(158)) - X(37) = (X(37)-JVS(154)*X(71)-JVS(155)*X(75))/(JVS(153)) - X(36) = (X(36)-JVS(150)*X(71))/(JVS(149)) - X(35) = (X(35)-JVS(146)*X(71))/(JVS(145)) - X(34) = (X(34)-JVS(142)*X(71))/(JVS(141)) - X(33) = (X(33)-JVS(140)*X(71))/(JVS(139)) - X(32) = (X(32)-JVS(136)*X(71)-JVS(137)*X(74)-JVS(138)*X(78))/(JVS(135)) - X(31) = (X(31)-JVS(131)*X(40)-JVS(132)*X(74)-JVS(133)*X(75)-JVS(134)*X(78))/(JVS(130)) - X(30) = (X(30)-JVS(127)*X(61)-JVS(128)*X(73)-JVS(129)*X(78))/(JVS(126)) - X(29) = (X(29)-JVS(123)*X(71)-JVS(124)*X(76)-JVS(125)*X(78))/(JVS(122)) - X(28) = (X(28)-JVS(118)*X(69)-JVS(119)*X(71)-JVS(120)*X(76)-JVS(121)*X(77))/(JVS(117)) - X(27) = (X(27)-JVS(116)*X(71))/(JVS(115)) - X(26) = (X(26)-JVS(114)*X(71))/(JVS(113)) - X(25) = (X(25)-JVS(111)*X(71)-JVS(112)*X(74))/(JVS(110)) - X(24) = (X(24)-JVS(108)*X(71))/(JVS(107)) - X(23) = (X(23)-JVS(105)*X(71)-JVS(106)*X(73))/(JVS(104)) - X(22) = (X(22)-JVS(102)*X(74)-JVS(103)*X(75))/(JVS(101)) - X(21) = (X(21)-JVS(100)*X(71))/(JVS(99)) - X(20) = (X(20)-JVS(98)*X(71))/(JVS(97)) - X(19) = (X(19)-JVS(95)*X(71)-JVS(96)*X(78))/(JVS(94)) - X(18) = (X(18)-JVS(92)*X(70)-JVS(93)*X(74))/(JVS(91)) - X(17) = (X(17)-JVS(89)*X(74)-JVS(90)*X(79))/(JVS(88)) - X(16) = (X(16)-JVS(86)*X(72)-JVS(87)*X(74))/(JVS(85)) - X(15) = (X(15)-JVS(83)*X(68)-JVS(84)*X(74))/(JVS(82)) - X(14) = (X(14)-JVS(78)*X(27)-JVS(79)*X(54)-JVS(80)*X(67)-JVS(81)*X(71))/(JVS(77)) - X(13) = (X(13)-JVS(76)*X(71))/(JVS(75)) - X(12) = (X(12)-JVS(74)*X(71))/(JVS(73)) - X(11) = (X(11)-JVS(72)*X(67))/(JVS(71)) - X(10) = (X(10)-JVS(70)*X(71))/(JVS(69)) - X(9) = (X(9)-JVS(61)*X(31)-JVS(62)*X(41)-JVS(63)*X(50)-JVS(64)*X(63)-JVS(65)*X(67)-JVS(66)*X(71)-JVS(67)*X(74)-JVS(68)& - &*X(75))/(JVS(60)) - X(8) = (X(8)-JVS(56)*X(31)-JVS(57)*X(50)-JVS(58)*X(74)-JVS(59)*X(75))/(JVS(55)) - X(7) = (X(7)-JVS(51)*X(70)-JVS(52)*X(72)-JVS(53)*X(78)-JVS(54)*X(79))/(JVS(50)) - X(6) = (X(6)-JVS(48)*X(68)-JVS(49)*X(78))/(JVS(47)) - X(5) = (X(5)-JVS(34)*X(52)-JVS(35)*X(54)-JVS(36)*X(56)-JVS(37)*X(57)-JVS(38)*X(58)-JVS(39)*X(67)-JVS(40)*X(69)-JVS(41)& - &*X(70)-JVS(42)*X(72)-JVS(43)*X(76)-JVS(44)*X(77)-JVS(45)*X(78)-JVS(46)*X(79))/(JVS(33)) - X(4) = (X(4)-JVS(24)*X(50)-JVS(25)*X(56)-JVS(26)*X(58)-JVS(27)*X(67)-JVS(28)*X(68)-JVS(29)*X(69)-JVS(30)*X(76)-JVS(31)& - &*X(77)-JVS(32)*X(78))/(JVS(23)) - X(3) = (X(3)-JVS(9)*X(30)-JVS(10)*X(39)-JVS(11)*X(48)-JVS(12)*X(50)-JVS(13)*X(52)-JVS(14)*X(54)-JVS(15)*X(55)-JVS(16)& - &*X(56)-JVS(17)*X(57)-JVS(18)*X(58)-JVS(19)*X(59)-JVS(20)*X(67)-JVS(21)*X(71)-JVS(22)*X(73))/(JVS(8)) - X(2) = (X(2)-JVS(5)*X(39)-JVS(6)*X(50)-JVS(7)*X(67))/(JVS(4)) - X(1) = (X(1)-JVS(2)*X(10)-JVS(3)*X(71))/(JVS(1)) - -END SUBROUTINE KppSolve - -! End of KppSolve function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! KppSolveTR - sparse, transposed back substitution -! Arguments : -! JVS - sparse Jacobian of variables -! X - Vector for variables -! XX - Vector for output variables -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE KppSolveTR ( JVS, X, XX ) - -! JVS - sparse Jacobian of variables - REAL(kind=dp) :: JVS(LU_NONZERO) -! X - Vector for variables - REAL(kind=dp) :: X(NVAR) -! XX - Vector for output variables - REAL(kind=dp) :: XX(NVAR) - - XX(1) = X(1)/JVS(1) - XX(2) = X(2)/JVS(4) - XX(3) = X(3)/JVS(8) - XX(4) = X(4)/JVS(23) - XX(5) = X(5)/JVS(33) - XX(6) = X(6)/JVS(47) - XX(7) = X(7)/JVS(50) - XX(8) = X(8)/JVS(55) - XX(9) = X(9)/JVS(60) - XX(10) = (X(10)-JVS(2)*XX(1))/(JVS(69)) - XX(11) = X(11)/JVS(71) - XX(12) = X(12)/JVS(73) - XX(13) = X(13)/JVS(75) - XX(14) = X(14)/JVS(77) - XX(15) = X(15)/JVS(82) - XX(16) = X(16)/JVS(85) - XX(17) = X(17)/JVS(88) - XX(18) = X(18)/JVS(91) - XX(19) = X(19)/JVS(94) - XX(20) = X(20)/JVS(97) - XX(21) = X(21)/JVS(99) - XX(22) = X(22)/JVS(101) - XX(23) = X(23)/JVS(104) - XX(24) = X(24)/JVS(107) - XX(25) = X(25)/JVS(110) - XX(26) = X(26)/JVS(113) - XX(27) = (X(27)-JVS(78)*XX(14))/(JVS(115)) - XX(28) = X(28)/JVS(117) - XX(29) = X(29)/JVS(122) - XX(30) = (X(30)-JVS(9)*XX(3))/(JVS(126)) - XX(31) = (X(31)-JVS(56)*XX(8)-JVS(61)*XX(9))/(JVS(130)) - XX(32) = X(32)/JVS(135) - XX(33) = X(33)/JVS(139) - XX(34) = X(34)/JVS(141) - XX(35) = X(35)/JVS(145) - XX(36) = X(36)/JVS(149) - XX(37) = X(37)/JVS(153) - XX(38) = X(38)/JVS(158) - XX(39) = (X(39)-JVS(5)*XX(2)-JVS(10)*XX(3))/(JVS(161)) - XX(40) = (X(40)-JVS(131)*XX(31))/(JVS(165)) - XX(41) = (X(41)-JVS(62)*XX(9))/(JVS(172)) - XX(42) = X(42)/JVS(177) - XX(43) = X(43)/JVS(183) - XX(44) = X(44)/JVS(193) - XX(45) = X(45)/JVS(206) - XX(46) = X(46)/JVS(229) - XX(47) = X(47)/JVS(244) - XX(48) = (X(48)-JVS(11)*XX(3)-JVS(207)*XX(45))/(JVS(259)) - XX(49) = (X(49)-JVS(208)*XX(45)-JVS(245)*XX(47))/(JVS(272)) - XX(50) = (X(50)-JVS(6)*XX(2)-JVS(12)*XX(3)-JVS(24)*XX(4)-JVS(57)*XX(8)-JVS(63)*XX(9)-JVS(209)*XX(45))/(JVS(281)) - XX(51) = (X(51)-JVS(166)*XX(40)-JVS(184)*XX(43)-JVS(246)*XX(47)-JVS(273)*XX(49))/(JVS(288)) - XX(52) = (X(52)-JVS(13)*XX(3)-JVS(34)*XX(5)-JVS(210)*XX(45))/(JVS(298)) - XX(53) = X(53)/JVS(310) - XX(54) = (X(54)-JVS(14)*XX(3)-JVS(35)*XX(5)-JVS(79)*XX(14)-JVS(211)*XX(45)-JVS(230)*XX(46)-JVS(274)*XX(49)-JVS(311)& - &*XX(53))/(JVS(332)) - XX(55) = (X(55)-JVS(15)*XX(3)-JVS(194)*XX(44)-JVS(212)*XX(45)-JVS(247)*XX(47))/(JVS(338)) - XX(56) = (X(56)-JVS(16)*XX(3)-JVS(25)*XX(4)-JVS(36)*XX(5)-JVS(213)*XX(45)-JVS(231)*XX(46)-JVS(312)*XX(53))/(JVS(344)) - XX(57) = (X(57)-JVS(17)*XX(3)-JVS(37)*XX(5)-JVS(195)*XX(44)-JVS(214)*XX(45)-JVS(248)*XX(47)-JVS(275)*XX(49))& - &/(JVS(350)) - XX(58) = (X(58)-JVS(18)*XX(3)-JVS(26)*XX(4)-JVS(38)*XX(5)-JVS(173)*XX(41)-JVS(215)*XX(45)-JVS(232)*XX(46)-JVS(249)& - &*XX(47)-JVS(313)*XX(53)-JVS(339)*XX(55)-JVS(351)*XX(57))/(JVS(356)) - XX(59) = (X(59)-JVS(19)*XX(3)-JVS(196)*XX(44)-JVS(216)*XX(45)-JVS(250)*XX(47)-JVS(314)*XX(53))/(JVS(363)) - XX(60) = (X(60)-JVS(217)*XX(45)-JVS(251)*XX(47))/(JVS(378)) - XX(61) = (X(61)-JVS(127)*XX(30)-JVS(218)*XX(45)-JVS(252)*XX(47))/(JVS(412)) - XX(62) = (X(62)-JVS(233)*XX(46)-JVS(315)*XX(53)-JVS(379)*XX(60)-JVS(413)*XX(61))/(JVS(435)) - XX(63) = (X(63)-JVS(64)*XX(9)-JVS(219)*XX(45)-JVS(260)*XX(48)-JVS(276)*XX(49)-JVS(282)*XX(50)-JVS(299)*XX(52)-JVS(316)& - &*XX(53)-JVS(333)*XX(54)-JVS(340)*XX(55)-JVS(345)*XX(56)-JVS(352)*XX(57)-JVS(357)*XX(58)-JVS(364)*XX(59)& - &-JVS(380)*XX(60)-JVS(414)*XX(61)-JVS(436)*XX(62))/(JVS(452)) - XX(64) = (X(64)-JVS(220)*XX(45)-JVS(253)*XX(47)-JVS(381)*XX(60))/(JVS(476)) - XX(65) = (X(65)-JVS(317)*XX(53)-JVS(382)*XX(60)-JVS(415)*XX(61)-JVS(477)*XX(64))/(JVS(498)) - XX(66) = (X(66)-JVS(318)*XX(53)-JVS(383)*XX(60)-JVS(416)*XX(61)-JVS(478)*XX(64)-JVS(499)*XX(65))/(JVS(519)) - XX(67) = (X(67)-JVS(7)*XX(2)-JVS(20)*XX(3)-JVS(27)*XX(4)-JVS(39)*XX(5)-JVS(65)*XX(9)-JVS(72)*XX(11)-JVS(80)*XX(14)& - &-JVS(159)*XX(38)-JVS(162)*XX(39)-JVS(174)*XX(41)-JVS(197)*XX(44)-JVS(221)*XX(45)-JVS(234)*XX(46)-JVS(254)& - &*XX(47)-JVS(261)*XX(48)-JVS(277)*XX(49)-JVS(283)*XX(50)-JVS(300)*XX(52)-JVS(319)*XX(53)-JVS(334)*XX(54)& - &-JVS(341)*XX(55)-JVS(346)*XX(56)-JVS(353)*XX(57)-JVS(358)*XX(58)-JVS(365)*XX(59)-JVS(384)*XX(60)-JVS(417)& - &*XX(61)-JVS(437)*XX(62)-JVS(453)*XX(63)-JVS(479)*XX(64)-JVS(500)*XX(65)-JVS(520)*XX(66))/(JVS(543)) - XX(68) = (X(68)-JVS(28)*XX(4)-JVS(48)*XX(6)-JVS(83)*XX(15)-JVS(289)*XX(51)-JVS(320)*XX(53)-JVS(385)*XX(60)-JVS(418)& - &*XX(61)-JVS(521)*XX(66)-JVS(544)*XX(67))/(JVS(574)) - XX(69) = (X(69)-JVS(29)*XX(4)-JVS(40)*XX(5)-JVS(118)*XX(28)-JVS(178)*XX(42)-JVS(321)*XX(53)-JVS(419)*XX(61)-JVS(438)& - &*XX(62)-JVS(480)*XX(64)-JVS(501)*XX(65)-JVS(522)*XX(66)-JVS(575)*XX(68))/(JVS(606)) - XX(70) = (X(70)-JVS(41)*XX(5)-JVS(51)*XX(7)-JVS(92)*XX(18)-JVS(290)*XX(51)-JVS(322)*XX(53)-JVS(386)*XX(60)-JVS(420)& - &*XX(61)-JVS(545)*XX(67)-JVS(576)*XX(68)-JVS(607)*XX(69))/(JVS(627)) - XX(71) = (X(71)-JVS(3)*XX(1)-JVS(21)*XX(3)-JVS(66)*XX(9)-JVS(70)*XX(10)-JVS(74)*XX(12)-JVS(76)*XX(13)-JVS(81)*XX(14)& - &-JVS(95)*XX(19)-JVS(98)*XX(20)-JVS(100)*XX(21)-JVS(105)*XX(23)-JVS(108)*XX(24)-JVS(111)*XX(25)-JVS(114)*XX(26)& - &-JVS(116)*XX(27)-JVS(119)*XX(28)-JVS(123)*XX(29)-JVS(136)*XX(32)-JVS(140)*XX(33)-JVS(142)*XX(34)-JVS(146)& - &*XX(35)-JVS(150)*XX(36)-JVS(154)*XX(37)-JVS(160)*XX(38)-JVS(163)*XX(39)-JVS(175)*XX(41)-JVS(179)*XX(42)& - &-JVS(185)*XX(43)-JVS(198)*XX(44)-JVS(222)*XX(45)-JVS(235)*XX(46)-JVS(255)*XX(47)-JVS(262)*XX(48)-JVS(278)& - &*XX(49)-JVS(284)*XX(50)-JVS(291)*XX(51)-JVS(301)*XX(52)-JVS(323)*XX(53)-JVS(335)*XX(54)-JVS(342)*XX(55)& - &-JVS(347)*XX(56)-JVS(354)*XX(57)-JVS(359)*XX(58)-JVS(366)*XX(59)-JVS(387)*XX(60)-JVS(421)*XX(61)-JVS(439)& - &*XX(62)-JVS(454)*XX(63)-JVS(481)*XX(64)-JVS(502)*XX(65)-JVS(523)*XX(66)-JVS(546)*XX(67)-JVS(577)*XX(68)& - &-JVS(608)*XX(69)-JVS(628)*XX(70))/(JVS(687)) - XX(72) = (X(72)-JVS(42)*XX(5)-JVS(52)*XX(7)-JVS(86)*XX(16)-JVS(292)*XX(51)-JVS(324)*XX(53)-JVS(388)*XX(60)-JVS(422)& - &*XX(61)-JVS(524)*XX(66)-JVS(547)*XX(67)-JVS(578)*XX(68)-JVS(609)*XX(69)-JVS(629)*XX(70)-JVS(688)*XX(71))& - &/(JVS(713)) - XX(73) = (X(73)-JVS(22)*XX(3)-JVS(106)*XX(23)-JVS(128)*XX(30)-JVS(293)*XX(51)-JVS(325)*XX(53)-JVS(389)*XX(60)-JVS(423)& - &*XX(61)-JVS(440)*XX(62)-JVS(455)*XX(63)-JVS(482)*XX(64)-JVS(503)*XX(65)-JVS(525)*XX(66)-JVS(548)*XX(67)& - &-JVS(579)*XX(68)-JVS(610)*XX(69)-JVS(630)*XX(70)-JVS(689)*XX(71)-JVS(714)*XX(72))/(JVS(739)) - XX(74) = (X(74)-JVS(58)*XX(8)-JVS(67)*XX(9)-JVS(84)*XX(15)-JVS(87)*XX(16)-JVS(89)*XX(17)-JVS(93)*XX(18)-JVS(102)& - &*XX(22)-JVS(112)*XX(25)-JVS(132)*XX(31)-JVS(137)*XX(32)-JVS(167)*XX(40)-JVS(236)*XX(46)-JVS(256)*XX(47)& - &-JVS(294)*XX(51)-JVS(326)*XX(53)-JVS(424)*XX(61)-JVS(441)*XX(62)-JVS(456)*XX(63)-JVS(483)*XX(64)-JVS(504)& - &*XX(65)-JVS(526)*XX(66)-JVS(549)*XX(67)-JVS(580)*XX(68)-JVS(611)*XX(69)-JVS(631)*XX(70)-JVS(690)*XX(71)& - &-JVS(715)*XX(72)-JVS(740)*XX(73))/(JVS(782)) - XX(75) = (X(75)-JVS(59)*XX(8)-JVS(68)*XX(9)-JVS(103)*XX(22)-JVS(133)*XX(31)-JVS(155)*XX(37)-JVS(168)*XX(40)-JVS(176)& - &*XX(41)-JVS(186)*XX(43)-JVS(199)*XX(44)-JVS(223)*XX(45)-JVS(237)*XX(46)-JVS(257)*XX(47)-JVS(263)*XX(48)& - &-JVS(279)*XX(49)-JVS(285)*XX(50)-JVS(295)*XX(51)-JVS(302)*XX(52)-JVS(327)*XX(53)-JVS(336)*XX(54)-JVS(343)& - &*XX(55)-JVS(348)*XX(56)-JVS(355)*XX(57)-JVS(360)*XX(58)-JVS(367)*XX(59)-JVS(390)*XX(60)-JVS(425)*XX(61)& - &-JVS(442)*XX(62)-JVS(457)*XX(63)-JVS(484)*XX(64)-JVS(505)*XX(65)-JVS(527)*XX(66)-JVS(550)*XX(67)-JVS(581)& - &*XX(68)-JVS(612)*XX(69)-JVS(632)*XX(70)-JVS(691)*XX(71)-JVS(716)*XX(72)-JVS(741)*XX(73)-JVS(783)*XX(74))& - &/(JVS(823)) - XX(76) = (X(76)-JVS(30)*XX(4)-JVS(43)*XX(5)-JVS(120)*XX(28)-JVS(124)*XX(29)-JVS(328)*XX(53)-JVS(426)*XX(61)-JVS(506)& - &*XX(65)-JVS(528)*XX(66)-JVS(582)*XX(68)-JVS(613)*XX(69)-JVS(633)*XX(70)-JVS(692)*XX(71)-JVS(717)*XX(72)& - &-JVS(742)*XX(73)-JVS(784)*XX(74)-JVS(824)*XX(75))/(JVS(855)) - XX(77) = (X(77)-JVS(31)*XX(4)-JVS(44)*XX(5)-JVS(121)*XX(28)-JVS(180)*XX(42)-JVS(329)*XX(53)-JVS(427)*XX(61)-JVS(485)& - &*XX(64)-JVS(507)*XX(65)-JVS(529)*XX(66)-JVS(583)*XX(68)-JVS(614)*XX(69)-JVS(634)*XX(70)-JVS(693)*XX(71)& - &-JVS(718)*XX(72)-JVS(743)*XX(73)-JVS(785)*XX(74)-JVS(825)*XX(75)-JVS(856)*XX(76))/(JVS(899)) - XX(78) = (X(78)-JVS(32)*XX(4)-JVS(45)*XX(5)-JVS(49)*XX(6)-JVS(53)*XX(7)-JVS(96)*XX(19)-JVS(125)*XX(29)-JVS(129)*XX(30)& - &-JVS(134)*XX(31)-JVS(138)*XX(32)-JVS(169)*XX(40)-JVS(181)*XX(42)-JVS(187)*XX(43)-JVS(258)*XX(47)-JVS(280)& - &*XX(49)-JVS(296)*XX(51)-JVS(330)*XX(53)-JVS(428)*XX(61)-JVS(486)*XX(64)-JVS(551)*XX(67)-JVS(584)*XX(68)& - &-JVS(615)*XX(69)-JVS(635)*XX(70)-JVS(694)*XX(71)-JVS(719)*XX(72)-JVS(744)*XX(73)-JVS(786)*XX(74)-JVS(826)& - &*XX(75)-JVS(857)*XX(76)-JVS(900)*XX(77))/(JVS(950)) - XX(79) = (X(79)-JVS(46)*XX(5)-JVS(54)*XX(7)-JVS(90)*XX(17)-JVS(297)*XX(51)-JVS(331)*XX(53)-JVS(391)*XX(60)-JVS(429)& - &*XX(61)-JVS(530)*XX(66)-JVS(552)*XX(67)-JVS(585)*XX(68)-JVS(616)*XX(69)-JVS(636)*XX(70)-JVS(695)*XX(71)& - &-JVS(720)*XX(72)-JVS(745)*XX(73)-JVS(787)*XX(74)-JVS(827)*XX(75)-JVS(858)*XX(76)-JVS(901)*XX(77)-JVS(951)& - &*XX(78))/(JVS(968)) - XX(79) = XX(79) - XX(78) = XX(78)-JVS(967)*XX(79) - XX(77) = XX(77)-JVS(949)*XX(78)-JVS(966)*XX(79) - XX(76) = XX(76)-JVS(898)*XX(77)-JVS(948)*XX(78)-JVS(965)*XX(79) - XX(75) = XX(75)-JVS(854)*XX(76)-JVS(897)*XX(77)-JVS(947)*XX(78)-JVS(964)*XX(79) - XX(74) = XX(74)-JVS(822)*XX(75)-JVS(853)*XX(76)-JVS(896)*XX(77)-JVS(946)*XX(78)-JVS(963)*XX(79) - XX(73) = XX(73)-JVS(781)*XX(74)-JVS(821)*XX(75)-JVS(852)*XX(76)-JVS(895)*XX(77)-JVS(945)*XX(78)-JVS(962)*XX(79) - XX(72) = XX(72)-JVS(738)*XX(73)-JVS(780)*XX(74)-JVS(820)*XX(75)-JVS(851)*XX(76)-JVS(894)*XX(77)-JVS(944)*XX(78)& - &-JVS(961)*XX(79) - XX(71) = XX(71)-JVS(712)*XX(72)-JVS(737)*XX(73)-JVS(779)*XX(74)-JVS(819)*XX(75)-JVS(850)*XX(76)-JVS(893)*XX(77)& - &-JVS(943)*XX(78)-JVS(960)*XX(79) - XX(70) = XX(70)-JVS(686)*XX(71)-JVS(711)*XX(72)-JVS(736)*XX(73)-JVS(778)*XX(74)-JVS(818)*XX(75)-JVS(849)*XX(76)& - &-JVS(892)*XX(77)-JVS(942)*XX(78)-JVS(959)*XX(79) - XX(69) = XX(69)-JVS(626)*XX(70)-JVS(685)*XX(71)-JVS(710)*XX(72)-JVS(735)*XX(73)-JVS(777)*XX(74)-JVS(817)*XX(75)& - &-JVS(848)*XX(76)-JVS(891)*XX(77)-JVS(941)*XX(78)-JVS(958)*XX(79) - XX(68) = XX(68)-JVS(605)*XX(69)-JVS(625)*XX(70)-JVS(684)*XX(71)-JVS(709)*XX(72)-JVS(734)*XX(73)-JVS(776)*XX(74)& - &-JVS(816)*XX(75)-JVS(847)*XX(76)-JVS(890)*XX(77)-JVS(940)*XX(78)-JVS(957)*XX(79) - XX(67) = XX(67)-JVS(573)*XX(68)-JVS(604)*XX(69)-JVS(624)*XX(70)-JVS(683)*XX(71)-JVS(708)*XX(72)-JVS(733)*XX(73)& - &-JVS(775)*XX(74)-JVS(815)*XX(75)-JVS(846)*XX(76)-JVS(889)*XX(77)-JVS(939)*XX(78)-JVS(956)*XX(79) - XX(66) = XX(66)-JVS(572)*XX(68)-JVS(603)*XX(69)-JVS(682)*XX(71)-JVS(707)*XX(72)-JVS(732)*XX(73)-JVS(774)*XX(74)& - &-JVS(814)*XX(75)-JVS(845)*XX(76)-JVS(888)*XX(77)-JVS(938)*XX(78) - XX(65) = XX(65)-JVS(571)*XX(68)-JVS(602)*XX(69)-JVS(681)*XX(71)-JVS(706)*XX(72)-JVS(731)*XX(73)-JVS(773)*XX(74)& - &-JVS(813)*XX(75)-JVS(844)*XX(76)-JVS(887)*XX(77)-JVS(937)*XX(78) - XX(64) = XX(64)-JVS(570)*XX(68)-JVS(601)*XX(69)-JVS(680)*XX(71)-JVS(705)*XX(72)-JVS(772)*XX(74)-JVS(812)*XX(75)& - &-JVS(843)*XX(76)-JVS(886)*XX(77)-JVS(936)*XX(78) - XX(63) = XX(63)-JVS(475)*XX(64)-JVS(497)*XX(65)-JVS(518)*XX(66)-JVS(542)*XX(67)-JVS(569)*XX(68)-JVS(600)*XX(69)& - &-JVS(623)*XX(70)-JVS(679)*XX(71)-JVS(704)*XX(72)-JVS(730)*XX(73)-JVS(771)*XX(74)-JVS(811)*XX(75)-JVS(842)& - &*XX(76)-JVS(885)*XX(77)-JVS(935)*XX(78)-JVS(955)*XX(79) - XX(62) = XX(62)-JVS(474)*XX(64)-JVS(496)*XX(65)-JVS(517)*XX(66)-JVS(568)*XX(68)-JVS(599)*XX(69)-JVS(678)*XX(71)& - &-JVS(729)*XX(73)-JVS(770)*XX(74)-JVS(810)*XX(75)-JVS(841)*XX(76)-JVS(884)*XX(77)-JVS(934)*XX(78) - XX(61) = XX(61)-JVS(677)*XX(71)-JVS(728)*XX(73)-JVS(769)*XX(74)-JVS(809)*XX(75)-JVS(933)*XX(78) - XX(60) = XX(60)-JVS(567)*XX(68)-JVS(676)*XX(71)-JVS(768)*XX(74)-JVS(808)*XX(75)-JVS(840)*XX(76)-JVS(932)*XX(78) - XX(59) = XX(59)-JVS(411)*XX(61)-JVS(451)*XX(63)-JVS(473)*XX(64)-JVS(495)*XX(65)-JVS(516)*XX(66)-JVS(541)*XX(67)& - &-JVS(566)*XX(68)-JVS(598)*XX(69)-JVS(622)*XX(70)-JVS(675)*XX(71)-JVS(703)*XX(72)-JVS(727)*XX(73)-JVS(767)& - &*XX(74)-JVS(807)*XX(75)-JVS(839)*XX(76)-JVS(883)*XX(77)-JVS(931)*XX(78) - XX(58) = XX(58)-JVS(362)*XX(59)-JVS(377)*XX(60)-JVS(410)*XX(61)-JVS(434)*XX(62)-JVS(450)*XX(63)-JVS(472)*XX(64)& - &-JVS(494)*XX(65)-JVS(515)*XX(66)-JVS(540)*XX(67)-JVS(565)*XX(68)-JVS(597)*XX(69)-JVS(621)*XX(70)-JVS(674)& - &*XX(71)-JVS(702)*XX(72)-JVS(726)*XX(73)-JVS(766)*XX(74)-JVS(806)*XX(75)-JVS(838)*XX(76)-JVS(882)*XX(77)& - &-JVS(930)*XX(78)-JVS(954)*XX(79) - XX(57) = XX(57)-JVS(376)*XX(60)-JVS(409)*XX(61)-JVS(433)*XX(62)-JVS(471)*XX(64)-JVS(493)*XX(65)-JVS(514)*XX(66)& - &-JVS(539)*XX(67)-JVS(564)*XX(68)-JVS(596)*XX(69)-JVS(620)*XX(70)-JVS(673)*XX(71)-JVS(701)*XX(72)-JVS(765)& - &*XX(74)-JVS(805)*XX(75)-JVS(881)*XX(77)-JVS(929)*XX(78) - XX(56) = XX(56)-JVS(375)*XX(60)-JVS(408)*XX(61)-JVS(432)*XX(62)-JVS(449)*XX(63)-JVS(470)*XX(64)-JVS(492)*XX(65)& - &-JVS(513)*XX(66)-JVS(538)*XX(67)-JVS(563)*XX(68)-JVS(595)*XX(69)-JVS(672)*XX(71)-JVS(725)*XX(73)-JVS(764)& - &*XX(74)-JVS(804)*XX(75)-JVS(837)*XX(76)-JVS(880)*XX(77)-JVS(928)*XX(78) - XX(55) = XX(55)-JVS(407)*XX(61)-JVS(448)*XX(63)-JVS(469)*XX(64)-JVS(491)*XX(65)-JVS(537)*XX(67)-JVS(562)*XX(68)& - &-JVS(619)*XX(70)-JVS(671)*XX(71)-JVS(700)*XX(72)-JVS(763)*XX(74)-JVS(803)*XX(75)-JVS(879)*XX(77)-JVS(927)& - &*XX(78) - XX(54) = XX(54)-JVS(406)*XX(61)-JVS(431)*XX(62)-JVS(447)*XX(63)-JVS(468)*XX(64)-JVS(512)*XX(66)-JVS(536)*XX(67)& - &-JVS(561)*XX(68)-JVS(594)*XX(69)-JVS(670)*XX(71)-JVS(699)*XX(72)-JVS(724)*XX(73)-JVS(762)*XX(74)-JVS(802)& - &*XX(75)-JVS(836)*XX(76)-JVS(878)*XX(77)-JVS(926)*XX(78) - XX(53) = XX(53)-JVS(723)*XX(73)-JVS(761)*XX(74)-JVS(801)*XX(75) - XX(52) = XX(52)-JVS(309)*XX(53)-JVS(337)*XX(55)-JVS(349)*XX(57)-JVS(361)*XX(59)-JVS(405)*XX(61)-JVS(446)*XX(63)& - &-JVS(511)*XX(66)-JVS(535)*XX(67)-JVS(593)*XX(69)-JVS(618)*XX(70)-JVS(669)*XX(71)-JVS(760)*XX(74)-JVS(800)& - &*XX(75)-JVS(835)*XX(76)-JVS(877)*XX(77)-JVS(925)*XX(78) - XX(51) = XX(51)-JVS(404)*XX(61)-JVS(668)*XX(71)-JVS(698)*XX(72)-JVS(759)*XX(74)-JVS(799)*XX(75)-JVS(876)*XX(77)& - &-JVS(924)*XX(78) - XX(50) = XX(50)-JVS(374)*XX(60)-JVS(403)*XX(61)-JVS(445)*XX(63)-JVS(467)*XX(64)-JVS(490)*XX(65)-JVS(534)*XX(67)& - &-JVS(592)*XX(69)-JVS(667)*XX(71)-JVS(798)*XX(75)-JVS(834)*XX(76)-JVS(875)*XX(77)-JVS(923)*XX(78) - XX(49) = XX(49)-JVS(402)*XX(61)-JVS(666)*XX(71)-JVS(697)*XX(72)-JVS(758)*XX(74)-JVS(797)*XX(75)-JVS(922)*XX(78) - XX(48) = XX(48)-JVS(271)*XX(49)-JVS(373)*XX(60)-JVS(401)*XX(61)-JVS(444)*XX(63)-JVS(466)*XX(64)-JVS(533)*XX(67)& - &-JVS(665)*XX(71)-JVS(796)*XX(75)-JVS(833)*XX(76)-JVS(874)*XX(77)-JVS(921)*XX(78) - XX(47) = XX(47)-JVS(664)*XX(71)-JVS(757)*XX(74)-JVS(795)*XX(75) - XX(46) = XX(46)-JVS(308)*XX(53)-JVS(400)*XX(61)-JVS(560)*XX(68)-JVS(663)*XX(71)-JVS(832)*XX(76) - XX(45) = XX(45)-JVS(662)*XX(71)-JVS(920)*XX(78) - XX(44) = XX(44)-JVS(205)*XX(45)-JVS(243)*XX(47)-JVS(559)*XX(68)-JVS(661)*XX(71)-JVS(794)*XX(75)-JVS(919)*XX(78) - XX(43) = XX(43)-JVS(242)*XX(47)-JVS(270)*XX(49)-JVS(287)*XX(51)-JVS(660)*XX(71)-JVS(793)*XX(75)-JVS(873)*XX(77) - XX(42) = XX(42)-JVS(465)*XX(64)-JVS(659)*XX(71)-JVS(872)*XX(77)-JVS(918)*XX(78) - XX(41) = XX(41)-JVS(241)*XX(47)-JVS(658)*XX(71)-JVS(792)*XX(75)-JVS(953)*XX(79) - XX(40) = XX(40)-JVS(240)*XX(47)-JVS(756)*XX(74)-JVS(791)*XX(75)-JVS(917)*XX(78) - XX(39) = XX(39)-JVS(204)*XX(45)-JVS(269)*XX(49)-JVS(399)*XX(61)-JVS(532)*XX(67)-JVS(657)*XX(71)-JVS(871)*XX(77)& - &-JVS(916)*XX(78) - XX(38) = XX(38)-JVS(203)*XX(45)-JVS(268)*XX(49)-JVS(464)*XX(64)-JVS(531)*XX(67)-JVS(656)*XX(71)-JVS(870)*XX(77)& - &-JVS(915)*XX(78) - XX(37) = XX(37)-JVS(192)*XX(44)-JVS(239)*XX(47)-JVS(286)*XX(51)-JVS(655)*XX(71)-JVS(790)*XX(75)-JVS(869)*XX(77) - XX(36) = XX(36)-JVS(191)*XX(44)-JVS(202)*XX(45)-JVS(267)*XX(49)-JVS(307)*XX(53)-JVS(463)*XX(64)-JVS(558)*XX(68)& - &-JVS(654)*XX(71)-JVS(868)*XX(77)-JVS(914)*XX(78) - XX(35) = XX(35)-JVS(190)*XX(44)-JVS(201)*XX(45)-JVS(266)*XX(49)-JVS(306)*XX(53)-JVS(462)*XX(64)-JVS(557)*XX(68)& - &-JVS(653)*XX(71)-JVS(867)*XX(77)-JVS(913)*XX(78) - XX(34) = XX(34)-JVS(144)*XX(35)-JVS(148)*XX(36)-JVS(152)*XX(37)-JVS(157)*XX(38)-JVS(171)*XX(41)-JVS(182)*XX(43)& - &-JVS(189)*XX(44)-JVS(265)*XX(49)-JVS(510)*XX(66)-JVS(591)*XX(69)-JVS(652)*XX(71)-JVS(866)*XX(77)-JVS(912)& - &*XX(78) - XX(33) = XX(33)-JVS(200)*XX(45)-JVS(228)*XX(46)-JVS(305)*XX(53)-JVS(372)*XX(60)-JVS(398)*XX(61)-JVS(461)*XX(64)& - &-JVS(489)*XX(65)-JVS(509)*XX(66)-JVS(556)*XX(68)-JVS(590)*XX(69)-JVS(651)*XX(71)-JVS(831)*XX(76)-JVS(865)& - &*XX(77) - XX(32) = XX(32)-JVS(650)*XX(71)-JVS(755)*XX(74)-JVS(789)*XX(75)-JVS(911)*XX(78) - XX(31) = XX(31)-JVS(164)*XX(40)-JVS(754)*XX(74)-JVS(910)*XX(78) - XX(30) = XX(30)-JVS(397)*XX(61)-JVS(722)*XX(73)-JVS(753)*XX(74)-JVS(909)*XX(78) - XX(29) = XX(29)-JVS(396)*XX(61)-JVS(649)*XX(71)-JVS(830)*XX(76)-JVS(908)*XX(78) - XX(28) = XX(28)-JVS(395)*XX(61)-JVS(648)*XX(71)-JVS(907)*XX(78) - XX(27) = XX(27)-JVS(143)*XX(35)-JVS(147)*XX(36)-JVS(151)*XX(37)-JVS(156)*XX(38)-JVS(170)*XX(41)-JVS(188)*XX(44)& - &-JVS(264)*XX(49)-JVS(555)*XX(68)-JVS(589)*XX(69)-JVS(647)*XX(71)-JVS(864)*XX(77)-JVS(906)*XX(78) - XX(26) = XX(26)-JVS(227)*XX(46)-JVS(304)*XX(53)-JVS(371)*XX(60)-JVS(394)*XX(61)-JVS(460)*XX(64)-JVS(488)*XX(65)& - &-JVS(508)*XX(66)-JVS(588)*XX(69)-JVS(646)*XX(71)-JVS(863)*XX(77) - XX(25) = XX(25)-JVS(226)*XX(46)-JVS(430)*XX(62)-JVS(752)*XX(74)-JVS(829)*XX(76) - XX(24) = XX(24)-JVS(109)*XX(25)-JVS(225)*XX(46)-JVS(303)*XX(53)-JVS(370)*XX(60)-JVS(393)*XX(61)-JVS(459)*XX(64)& - &-JVS(487)*XX(65)-JVS(587)*XX(69)-JVS(645)*XX(71)-JVS(862)*XX(77) - XX(23) = XX(23)-JVS(644)*XX(71)-JVS(721)*XX(73)-JVS(751)*XX(74)-JVS(905)*XX(78) - XX(22) = XX(22)-JVS(238)*XX(47)-JVS(750)*XX(74)-JVS(788)*XX(75) - XX(21) = XX(21)-JVS(369)*XX(60)-JVS(392)*XX(61)-JVS(643)*XX(71)-JVS(861)*XX(77)-JVS(904)*XX(78) - XX(20) = XX(20)-JVS(224)*XX(46)-JVS(458)*XX(64)-JVS(586)*XX(69)-JVS(642)*XX(71)-JVS(860)*XX(77) - XX(19) = XX(19)-JVS(641)*XX(71)-JVS(903)*XX(78) - XX(18) = XX(18)-JVS(617)*XX(70)-JVS(749)*XX(74) - XX(17) = XX(17)-JVS(748)*XX(74)-JVS(952)*XX(79) - XX(16) = XX(16)-JVS(696)*XX(72)-JVS(747)*XX(74) - XX(15) = XX(15)-JVS(554)*XX(68)-JVS(746)*XX(74) - XX(14) = XX(14)-JVS(553)*XX(68) - XX(13) = XX(13)-JVS(368)*XX(60)-JVS(640)*XX(71)-JVS(859)*XX(77) - XX(12) = XX(12)-JVS(639)*XX(71)-JVS(828)*XX(76) - XX(11) = XX(11)-JVS(443)*XX(63)-JVS(638)*XX(71) - XX(10) = XX(10)-JVS(637)*XX(71)-JVS(902)*XX(78) - XX(9) = XX(9) - XX(8) = XX(8) - XX(7) = XX(7) - XX(6) = XX(6) - XX(5) = XX(5) - XX(4) = XX(4) - XX(3) = XX(3) - XX(2) = XX(2) - XX(1) = XX(1) - -END SUBROUTINE KppSolveTR - -! End of KppSolveTR function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! BLAS_UTIL - BLAS-LIKE utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!-------------------------------------------------------------- -! -! BLAS/LAPACK-like subroutines used by the integration algorithms -! It is recommended to replace them by calls to the optimized -! BLAS/LAPACK library for your machine -! -! (C) Adrian Sandu, Aug. 2004 -! Virginia Polytechnic Institute and State University -!-------------------------------------------------------------- - - -!-------------------------------------------------------------- - SUBROUTINE WCOPY(N,X,incX,Y,incY) -!-------------------------------------------------------------- -! copies a vector, x, to a vector, y: y <- x -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SCOPY(N,X,1,Y,1) or CALL DCOPY(N,X,1,Y,1) -!-------------------------------------------------------------- -! USE SAPRC99_Precision - - INTEGER :: i,incX,incY,M,MP1,N - REAL(kind=dp) :: X(N),Y(N) - - IF (N.LE.0) RETURN - - M = MOD(N,8) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = X(i) - END DO - IF( N .LT. 8 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,8 - Y(i) = X(i) - Y(i + 1) = X(i + 1) - Y(i + 2) = X(i + 2) - Y(i + 3) = X(i + 3) - Y(i + 4) = X(i + 4) - Y(i + 5) = X(i + 5) - Y(i + 6) = X(i + 6) - Y(i + 7) = X(i + 7) - END DO - - END SUBROUTINE WCOPY - - -!-------------------------------------------------------------- - SUBROUTINE WAXPY(N,Alpha,X,incX,Y,incY) -!-------------------------------------------------------------- -! constant times a vector plus a vector: y <- y + Alpha*x -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SAXPY(N,Alpha,X,1,Y,1) or CALL DAXPY(N,Alpha,X,1,Y,1) -!-------------------------------------------------------------- - - INTEGER :: i,incX,incY,M,MP1,N - REAL(kind=dp) :: X(N),Y(N),Alpha - REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp - - IF (Alpha .EQ. ZERO) RETURN - IF (N .LE. 0) RETURN - - M = MOD(N,4) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = Y(i) + Alpha*X(i) - END DO - IF( N .LT. 4 ) RETURN - END IF - MP1 = M + 1 - DO i = MP1,N,4 - Y(i) = Y(i) + Alpha*X(i) - Y(i + 1) = Y(i + 1) + Alpha*X(i + 1) - Y(i + 2) = Y(i + 2) + Alpha*X(i + 2) - Y(i + 3) = Y(i + 3) + Alpha*X(i + 3) - END DO - - END SUBROUTINE WAXPY - - - -!-------------------------------------------------------------- - SUBROUTINE WSCAL(N,Alpha,X,incX) -!-------------------------------------------------------------- -! constant times a vector: x(1:N) <- Alpha*x(1:N) -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SSCAL(N,Alpha,X,1) or CALL DSCAL(N,Alpha,X,1) -!-------------------------------------------------------------- - - INTEGER :: i,incX,M,MP1,N - REAL(kind=dp) :: X(N),Alpha - REAL(kind=dp), PARAMETER :: ZERO=0.0_dp, ONE=1.0_dp - - IF (Alpha .EQ. ONE) RETURN - IF (N .LE. 0) RETURN - - M = MOD(N,5) - IF( M .NE. 0 ) THEN - IF (Alpha .EQ. (-ONE)) THEN - DO i = 1,M - X(i) = -X(i) - END DO - ELSEIF (Alpha .EQ. ZERO) THEN - DO i = 1,M - X(i) = ZERO - END DO - ELSE - DO i = 1,M - X(i) = Alpha*X(i) - END DO - END IF - IF( N .LT. 5 ) RETURN - END IF - MP1 = M + 1 - IF (Alpha .EQ. (-ONE)) THEN - DO i = MP1,N,5 - X(i) = -X(i) - X(i + 1) = -X(i + 1) - X(i + 2) = -X(i + 2) - X(i + 3) = -X(i + 3) - X(i + 4) = -X(i + 4) - END DO - ELSEIF (Alpha .EQ. ZERO) THEN - DO i = MP1,N,5 - X(i) = ZERO - X(i + 1) = ZERO - X(i + 2) = ZERO - X(i + 3) = ZERO - X(i + 4) = ZERO - END DO - ELSE - DO i = MP1,N,5 - X(i) = Alpha*X(i) - X(i + 1) = Alpha*X(i + 1) - X(i + 2) = Alpha*X(i + 2) - X(i + 3) = Alpha*X(i + 3) - X(i + 4) = Alpha*X(i + 4) - END DO - END IF - - END SUBROUTINE WSCAL - -!-------------------------------------------------------------- - REAL(kind=dp) FUNCTION WLAMCH( C ) -!-------------------------------------------------------------- -! returns epsilon machine -! after LAPACK -! replace this by the function from the optimized LAPACK implementation: -! CALL SLAMCH('E') or CALL DLAMCH('E') -!-------------------------------------------------------------- -! USE SAPRC99_Precision - - CHARACTER :: C - INTEGER :: i - REAL(kind=dp), SAVE :: Eps - REAL(kind=dp) :: Suma - REAL(kind=dp), PARAMETER :: ONE=1.0_dp, HALF=0.5_dp - LOGICAL, SAVE :: First=.TRUE. - - IF (First) THEN - First = .FALSE. - Eps = HALF**(16) - DO i = 17, 80 - Eps = Eps*HALF - CALL WLAMCH_ADD(ONE,Eps,Suma) - IF (Suma.LE.ONE) GOTO 10 - END DO - PRINT*,'ERROR IN WLAMCH. EPS < ',Eps - RETURN -10 Eps = Eps*2 - i = i-1 - END IF - - WLAMCH = Eps - - END FUNCTION WLAMCH - - SUBROUTINE WLAMCH_ADD( A, B, Suma ) -! USE SAPRC99_Precision - - REAL(kind=dp) A, B, Suma - Suma = A + B - - END SUBROUTINE WLAMCH_ADD -!-------------------------------------------------------------- - - -!-------------------------------------------------------------- - SUBROUTINE SET2ZERO(N,Y) -!-------------------------------------------------------------- -! copies zeros into the vector y: y <- 0 -! after BLAS -!-------------------------------------------------------------- - - INTEGER :: i,M,MP1,N - REAL(kind=dp) :: Y(N) - REAL(kind=dp), PARAMETER :: ZERO = 0.0d0 - - IF (N.LE.0) RETURN - - M = MOD(N,8) - IF( M .NE. 0 ) THEN - DO i = 1,M - Y(i) = ZERO - END DO - IF( N .LT. 8 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,8 - Y(i) = ZERO - Y(i + 1) = ZERO - Y(i + 2) = ZERO - Y(i + 3) = ZERO - Y(i + 4) = ZERO - Y(i + 5) = ZERO - Y(i + 6) = ZERO - Y(i + 7) = ZERO - END DO - - END SUBROUTINE SET2ZERO - - -!-------------------------------------------------------------- - REAL(kind=dp) FUNCTION WDOT (N, DX, incX, DY, incY) -!-------------------------------------------------------------- -! dot produce: wdot = x(1:N)*y(1:N) -! only for incX=incY=1 -! after BLAS -! replace this by the function from the optimized BLAS implementation: -! CALL SDOT(N,X,1,Y,1) or CALL DDOT(N,X,1,Y,1) -!-------------------------------------------------------------- -! USE messy_mecca_kpp_Precision -!-------------------------------------------------------------- - IMPLICIT NONE - INTEGER :: N, incX, incY - REAL(kind=dp) :: DX(N), DY(N) - - INTEGER :: i, IX, IY, M, MP1, NS - - WDOT = 0.0D0 - IF (N .LE. 0) RETURN - IF (incX .EQ. incY) IF (incX-1) 5,20,60 -! -! Code for unequal or nonpositive increments. -! - 5 IX = 1 - IY = 1 - IF (incX .LT. 0) IX = (-N+1)*incX + 1 - IF (incY .LT. 0) IY = (-N+1)*incY + 1 - DO i = 1,N - WDOT = WDOT + DX(IX)*DY(IY) - IX = IX + incX - IY = IY + incY - END DO - RETURN -! -! Code for both increments equal to 1. -! -! Clean-up loop so remaining vector length is a multiple of 5. -! - 20 M = MOD(N,5) - IF (M .EQ. 0) GO TO 40 - DO i = 1,M - WDOT = WDOT + DX(i)*DY(i) - END DO - IF (N .LT. 5) RETURN - 40 MP1 = M + 1 - DO i = MP1,N,5 - WDOT = WDOT + DX(i)*DY(i) + DX(i+1)*DY(i+1) + DX(i+2)*DY(i+2) + & - DX(i+3)*DY(i+3) + DX(i+4)*DY(i+4) - END DO - RETURN -! -! Code for equal, positive, non-unit increments. -! - 60 NS = N*incX - DO i = 1,NS,incX - WDOT = WDOT + DX(i)*DY(i) - END DO - - END FUNCTION WDOT - - -!-------------------------------------------------------------- - SUBROUTINE WADD(N,X,Y,Z) -!-------------------------------------------------------------- -! adds two vectors: z <- x + y -! BLAS - like -!-------------------------------------------------------------- -! USE SAPRC99_Precision - - INTEGER :: i, M, MP1, N - REAL(kind=dp) :: X(N),Y(N),Z(N) - - IF (N.LE.0) RETURN - - M = MOD(N,5) - IF( M /= 0 ) THEN - DO i = 1,M - Z(i) = X(i) + Y(i) - END DO - IF( N < 5 ) RETURN - END IF - MP1 = M+1 - DO i = MP1,N,5 - Z(i) = X(i) + Y(i) - Z(i + 1) = X(i + 1) + Y(i + 1) - Z(i + 2) = X(i + 2) + Y(i + 2) - Z(i + 3) = X(i + 3) + Y(i + 3) - Z(i + 4) = X(i + 4) + Y(i + 4) - END DO - - END SUBROUTINE WADD - - - -!-------------------------------------------------------------- - SUBROUTINE WGEFA(N,A,Ipvt,info) -!-------------------------------------------------------------- -! WGEFA FACTORS THE MATRIX A (N,N) BY -! GAUSS ELIMINATION WITH PARTIAL PIVOTING -! LINPACK - LIKE -!-------------------------------------------------------------- -! - INTEGER :: N,Ipvt(N),info - REAL(kind=dp) :: A(N,N) - REAL(kind=dp) :: t, dmax, da - INTEGER :: j,k,l - REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0 - - info = 0 - -size: IF (n > 1) THEN - -col: DO k = 1, n-1 - -! find l = pivot index -! l = idamax(n-k+1,A(k,k),1) + k - 1 - l = k; dmax = abs(A(k,k)) - DO j = k+1,n - da = ABS(A(j,k)) - IF (da > dmax) THEN - l = j; dmax = da - END IF - END DO - Ipvt(k) = l - -! zero pivot implies this column already triangularized - IF (ABS(A(l,k)) < TINY(ZERO)) THEN - info = k - return - ELSE - IF (l /= k) THEN - t = A(l,k); A(l,k) = A(k,k); A(k,k) = t - END IF - t = -ONE/A(k,k) - CALL WSCAL(n-k,t,A(k+1,k),1) - DO j = k+1, n - t = A(l,j) - IF (l /= k) THEN - A(l,j) = A(k,j); A(k,j) = t - END IF - CALL WAXPY(n-k,t,A(k+1,k),1,A(k+1,j),1) - END DO - END IF - - END DO col - - END IF size - - Ipvt(N) = N - IF (ABS(A(N,N)) == ZERO) info = N - - END SUBROUTINE WGEFA - - -!-------------------------------------------------------------- - SUBROUTINE WGESL(Trans,N,A,Ipvt,b) -!-------------------------------------------------------------- -! WGESL solves the system -! a * x = b or trans(a) * x = b -! using the factors computed by WGEFA. -! -! Trans = 'N' to solve A*x = b , -! = 'T' to solve transpose(A)*x = b -! LINPACK - LIKE -!-------------------------------------------------------------- - - INTEGER :: N,Ipvt(N) - CHARACTER :: trans - REAL(kind=dp) :: A(N,N),b(N) - REAL(kind=dp) :: t - INTEGER :: k,kb,l - - - SELECT CASE (Trans) - - CASE ('n','N') ! Solve A * x = b - -! first solve L*y = b - IF (n >= 2) THEN - DO k = 1, n-1 - l = Ipvt(k) - t = b(l) - IF (l /= k) THEN - b(l) = b(k) - b(k) = t - END IF - CALL WAXPY(n-k,t,a(k+1,k),1,b(k+1),1) - END DO - END IF -! now solve U*x = y - DO kb = 1, n - k = n + 1 - kb - b(k) = b(k)/a(k,k) - t = -b(k) - CALL WAXPY(k-1,t,a(1,k),1,b(1),1) - END DO - - CASE ('t','T') ! Solve transpose(A) * x = b - -! first solve trans(U)*y = b - DO k = 1, n - t = WDOT(k-1,a(1,k),1,b(1),1) - b(k) = (b(k) - t)/a(k,k) - END DO -! now solve trans(L)*x = y - IF (n >= 2) THEN - DO kb = 1, n-1 - k = n - kb - b(k) = b(k) + WDOT(n-k,a(k+1,k),1,b(k+1),1) - l = Ipvt(k) - IF (l /= k) THEN - t = b(l); b(l) = b(k); b(k) = t - END IF - END DO - END IF - - END SELECT - - END SUBROUTINE WGESL -! End of BLAS_UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE SAPRC99_LinearAlgebra - diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_LinearAlgebra.o b/boxmox/compiled_mechs/SAPRC99/SAPRC99_LinearAlgebra.o deleted file mode 100644 index 494876dd4af0413446da542f376c7bc0e1f2ba92..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/SAPRC99_LinearAlgebra.o and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Main.f90 b/boxmox/compiled_mechs/SAPRC99/SAPRC99_Main.f90 deleted file mode 100644 index 94c599828e57518fd0b9efa47dc50fd94d74e81b..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Main.f90 +++ /dev/null @@ -1,161 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Main Program File -! -! Generated by KPP-2.2.3 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 : SAPRC99_Main.f90 -! Time : Thu Oct 8 08:22:39 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_SAPRC99_30885_BOXMOX -! Equation file : SAPRC99.kpp -! Output root filename : SAPRC99 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! MAIN - Main program - driver routine -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -PROGRAM SAPRC99_Driver - - USE SAPRC99_Model - USE SAPRC99_Initialize, ONLY: Initialize - - REAL(kind=dp) :: T, DVAL(NSPEC) - REAL(kind=dp) :: RSTATE(20) - INTEGER :: IERR - INTEGER :: i, tcount, ttot - CHARACTER(LEN=60), PARAMETER :: & - brk = "------------------------------------------------------------" - - !~~~> Initialization - - STEPMIN = 0.0d0 - STEPMAX = 0.0d0 - - DO i=1,NVAR - RTOL(i) = 1.0d-4 - ATOL(i) = 1.0d-3 - END DO - - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX (__BOXMOX_VERSION__) driver" - WRITE(*,*) brk - WRITE(*,*) " " - - CALL Initialize() - - WRITE(*,*) brk - WRITE(*,*) " " - - CALL UpdateEnvironment() - - CALL readInput('InitialConditions.csv', NSPEC, SPC_NAMES, C, & - InitialCondition) - CALL InitSaveData() - - CALL InitFixNOx(NSPEC, SPC_NAMES, C) - - !~~~> Time loop - T = TSTART - tcount = 1 - ttot = NINT((TEND - TSTART) / DT) - kron: DO WHILE (T < TEND) - - IF (lverbose) THEN - WRITE(*,*) "" - WRITE(*,"(1X,A,F8.2,A)") "-------------------- time (s): ", T, & - " --------------------" - WRITE(*,*) "" - ENDIF - - TIME = T - CALL GetMass( C, DVAL ) - CALL SaveData() - - CALL UpdateEnvironment() - CALL UpdateAerosol() - CALL UpdatePhotolysisRates() - - CALL UpdateKturb() - - CALL readInput('Background.csv', NSPEC, SPC_NAMES, C, Mix, lzero=.TRUE.) - CALL readInput('Emissions.csv', NSPEC, SPC_NAMES, C, Emission) - CALL readInput('Deposition.csv', NSPEC, SPC_NAMES, C, Deposition) - - CALL Update_SUN() - CALL Update_RCONST() - - IF (T == TSTART) WRITE(*,*) " " - - IF ( MOD(tcount * 10, ttot) .EQ. 0 ) THEN - WRITE(6,991) (T-TSTART)/(TEND-TSTART)*100, T, & - ( TRIM(SPC_NAMES(MONITOR(i))), & - C(MONITOR(i))/CFACTOR, i=1,NMONITOR ) - ENDIF - - IF (lfix_NOx) THEN - CALL FixNOx(NSPEC, SPC_NAMES, C) - ENDIF - - CALL INTEGRATE( TIN = T, TOUT = T+DT, RSTATUS_U = RSTATE, & - ICNTRL_U = (/ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /), & - IERR_U = IERR ) - T = RSTATE(1) - - tcount = tcount + 1 - - IF (IERR < 0) THEN - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX integration failed, stopping." - WRITE(*,*) brk - WRITE(*,*) " " - STOP 1 - ENDIF - - IF (T == TSTART .OR. lverbose) THEN - WRITE(*,*) "" - WRITE(*,*) brk - WRITE(*,*) "" - ENDIF - - END DO kron - !~~~> End Time loop - - CALL GetMass( C, DVAL ) - WRITE(6,991) (T-TSTART)/(TEND-TSTART)*100, T, & - ( TRIM(SPC_NAMES(MONITOR(i))), & - C(MONITOR(i))/CFACTOR, i=1,NMONITOR ) - TIME = T - CALL SaveData() - CALL CloseSaveData() - - WRITE(*,*) " " - WRITE(*,*) brk - WRITE(*,*) "BOXMOX successfully completed." - WRITE(*,*) brk - WRITE(*,*) " " - -991 FORMAT(F6.1,'%. T=',E9.3,2X,200(A,'=',E11.4,'; ')) - -END PROGRAM SAPRC99_Driver - -! End of MAIN function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Main.o b/boxmox/compiled_mechs/SAPRC99/SAPRC99_Main.o deleted file mode 100644 index 1db10958964d64bd7c9236df872df505133e726c..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Main.o and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Model.f90 b/boxmox/compiled_mechs/SAPRC99/SAPRC99_Model.f90 deleted file mode 100644 index ae25729033d60f5cd66196b85c1a11881487d696..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Model.f90 +++ /dev/null @@ -1,21 +0,0 @@ -MODULE SAPRC99_Model - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Completely defines the model SAPRC99 -! by using all the associated modules -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE SAPRC99_Precision - USE SAPRC99_Parameters - USE SAPRC99_Global - USE SAPRC99_Function - USE SAPRC99_Integrator - USE SAPRC99_Rates - USE SAPRC99_Jacobian - USE SAPRC99_Stoichiom - USE SAPRC99_LinearAlgebra - USE SAPRC99_Monitor - USE SAPRC99_Util - -END MODULE SAPRC99_Model - diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Model.o b/boxmox/compiled_mechs/SAPRC99/SAPRC99_Model.o deleted file mode 100644 index 725092e129fa3deecfa68f431b3db21f9fb9996b..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Model.o and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Monitor.f90 b/boxmox/compiled_mechs/SAPRC99/SAPRC99_Monitor.f90 deleted file mode 100644 index 33748560668113079814f7c841c67610f5f7cae8..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Monitor.f90 +++ /dev/null @@ -1,310 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Utility Data Module File -! -! Generated by KPP-2.2.3 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 : SAPRC99_Monitor.f90 -! Time : Thu Oct 8 08:22:39 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_SAPRC99_30885_BOXMOX -! Equation file : SAPRC99.kpp -! Output root filename : SAPRC99 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE SAPRC99_Monitor - - - CHARACTER(LEN=15), PARAMETER, DIMENSION(81) :: SPC_NAMES = (/ & - 'H2SO4 ','CO2 ','HCOOH ', & - 'CCO_OH ','RCO_OH ','CCO_OOH ', & - 'RCO_OOH ','XN ','XC ', & - 'SO2 ','O1D ','CH4 ', & - 'C2H6 ','BACL ','PAN ', & - 'PAN2 ','PBZN ','MA_PAN ', & - 'H2O2 ','C3H8 ','ETOH ', & - 'N2O5 ','HONO ','ALK3 ', & - 'TBU_O ','ALK5 ','ARO2 ', & - 'MEOH ','COOH ','HOCOO ', & - 'BZNO2_O ','HNO4 ','ALK4 ', & - 'ARO1 ','DCB2 ','DCB3 ', & - 'CRES ','DCB1 ','C2H2 ', & - 'NPHE ','BALD ','ROOH ', & - 'PHEN ','MGLY ','CO ', & - 'ACET ','HNO3 ','ETHENE ', & - 'GLY ','C3H6 ','BZ_O ', & - 'ISOPRENE ','R2O2 ','TERP ', & - 'METHACRO ','OLE1 ','ISOPROD ', & - 'OLE2 ','MVK ','CCHO ', & - 'HCHO ','RNO3 ','O3P ', & - 'RCHO ','MEK ','PROD2 ', & - 'O3 ','CCO_O2 ','RO2_N ', & - 'MA_RCO3 ','OH ','RCO_O2 ', & - 'NO ','NO2 ','NO3 ', & - 'C_O2 ','RO2_R ','HO2 ', & - 'BZCO_O2 ','H2O ','M ' /) - - INTEGER, PARAMETER, DIMENSION(81) :: LOOKAT = (/ & - 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, & - 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, & - 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, & - 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, & - 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, & - 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, & - 73, 74, 75, 76, 77, 78, 79, 80, 81 /) - - INTEGER, DIMENSION(1) :: MONITOR - CHARACTER(LEN=15), DIMENSION(1) :: SMASS - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_0 = (/ & - ' NO2 --> O3P + NO ', & - ' O3P + M --> O3 ', & - ' O3P + O3 --> M ', & - ' O3P + NO + M --> NO2 ', & - ' O3P + NO2 --> NO ', & - ' O3P + NO2 --> NO3 ', & - ' O3 + NO --> NO2 ', & - ' O3 + NO2 --> NO3 ', & - ' NO + NO3 --> 2 NO2 ', & - ' 2 NO + M --> 2 NO2 ', & - ' NO2 + NO3 --> N2O5 ', & - ' N2O5 --> NO2 + NO3 ', & - ' N2O5 + H2O --> 2 HNO3 ', & - ' NO2 + NO3 --> NO + NO2 ', & - ' NO3 --> NO ', & - ' NO3 --> O3P + NO2 ', & - ' O3 --> O3P ', & - ' O3 --> O1D ', & - ' O1D + H2O --> 2 OH ', & - ' O1D + M --> O3P ', & - ' OH + NO --> HONO ', & - ' HONO --> OH + NO ', & - ' HONO --> NO2 + HO2 ', & - ' HONO + OH --> NO2 ', & - ' OH + NO2 --> HNO3 ', & - ' OH + NO3 --> NO2 + HO2 ', & - ' HNO3 + OH --> NO3 ', & - ' HNO3 --> OH + NO2 ', & - ' CO + OH --> HO2 ', & - ' O3 + OH --> HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_1 = (/ & - ' NO + HO2 --> OH + NO2 ', & - ' NO2 + HO2 --> HNO4 ', & - ' HNO4 --> NO2 + HO2 ', & - ' HNO4 --> 0.39 OH + 0.61 NO2 + 0.39 NO3 + 0.61 HO2 ', & - ' HNO4 + OH --> NO2 ', & - ' O3 + HO2 --> OH ', & - ' 2 HO2 --> H2O2 ', & - ' 2 HO2 + H2O --> H2O2 ', & - ' NO3 + HO2 --> 0.2 HNO3 + 0.8 OH + 0.8 NO2 ', & - ' 2 NO3 --> 2 NO2 ', & - ' H2O2 --> 2 OH ', & - ' H2O2 + OH --> HO2 ', & - ' OH + HO2 --> H2O + M ', & - ' SO2 + OH --> H2SO4 + HO2 ', & - ' OH + M --> HO2 ', & - ' NO + C_O2 --> HCHO + NO2 + HO2 ', & - ' C_O2 + HO2 --> COOH ', & - ' NO3 + C_O2 --> HCHO + NO2 + HO2 ', & - ' 2 C_O2 --> MEOH + HCHO ', & - ' 2 C_O2 --> 2 HCHO + 2 HO2 ', & - ' NO + RO2_R --> NO2 + HO2 ', & - ' RO2_R + HO2 --> ROOH ', & - ' NO3 + RO2_R --> NO2 + HO2 ', & - ' C_O2 + RO2_R --> 0.25 MEOH + 0.75 HCHO + HO2 ', & - ' 2 RO2_R --> HO2 ', & - ' R2O2 + NO --> NO2 ', & - ' R2O2 + HO2 --> HO2 ', & - ' R2O2 + NO3 --> NO2 ', & - ' R2O2 + C_O2 --> C_O2 ', & - ' R2O2 + RO2_R --> RO2_R ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_2 = (/ & - ' 2 R2O2 --> 2 R2O2 ', & - ' RO2_N + NO --> RNO3 ', & - ' RO2_N + HO2 --> ROOH ', & - ' RO2_N + C_O2 --> 0.25 MEOH + 0.75 HCHO + 0.5 MEK + 0.5 PROD2 + HO2 ', & - ' RO2_N + NO3 --> MEK + NO2 + HO2 ', & - ' RO2_N + RO2_R --> 0.5 MEK + 0.5 PROD2 + HO2 ', & - ' R2O2 + RO2_N --> RO2_N ', & - ' 2 RO2_N --> MEK + PROD2 + HO2 ', & - ' CCO_O2 + NO2 --> PAN ', & - ' PAN --> CCO_O2 + NO2 ', & - ' CCO_O2 + NO --> NO2 + C_O2 ', & - ' CCO_O2 + HO2 --> 0.25 CCO_OH + 0.75 CCO_OOH + 0.25 O3 ', & - ' CCO_O2 + NO3 --> NO2 + C_O2 ', & - ' CCO_O2 + C_O2 --> CCO_OH + HCHO ', & - ' CCO_O2 + RO2_R --> CCO_OH ', & - ' R2O2 + CCO_O2 --> CCO_O2 ', & - ' CCO_O2 + RO2_N --> CCO_OH + PROD2 ', & - ' 2 CCO_O2 --> 2 C_O2 ', & - ' RCO_O2 + NO2 --> PAN2 ', & - ' PAN2 --> RCO_O2 + NO2 ', & - ' RCO_O2 + NO --> CCHO + NO2 + RO2_R ', & - ' RCO_O2 + HO2 --> 0.25 RCO_OH + 0.75 RCO_OOH + 0.25 O3 ', & - ' RCO_O2 + NO3 --> CCHO + NO2 + RO2_R ', & - ' RCO_O2 + C_O2 --> RCO_OH + HCHO ', & - ' RCO_O2 + RO2_R --> RCO_OH ', & - ' R2O2 + RCO_O2 --> RCO_O2 ', & - ' RO2_N + RCO_O2 --> RCO_OH + PROD2 ', & - ' CCO_O2 + RCO_O2 --> CCHO + C_O2 + RO2_R ', & - ' 2 RCO_O2 --> 2 CCHO + 2 RO2_R ', & - ' NO2 + BZCO_O2 --> PBZN ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_3 = (/ & - ' PBZN --> NO2 + BZCO_O2 ', & - ' NO + BZCO_O2 --> BZ_O + R2O2 + NO2 ', & - ' HO2 + BZCO_O2 --> 0.25 RCO_OH + 0.75 RCO_OOH + 0.25 O3 ', & - ' NO3 + BZCO_O2 --> BZ_O + R2O2 + NO2 ', & - ' C_O2 + BZCO_O2 --> RCO_OH + HCHO ', & - ' RO2_R + BZCO_O2 --> RCO_OH ', & - ' R2O2 + BZCO_O2 --> BZCO_O2 ', & - ' RO2_N + BZCO_O2 --> RCO_OH + PROD2 ', & - ' CCO_O2 + BZCO_O2 --> BZ_O + R2O2 + C_O2 ', & - ' RCO_O2 + BZCO_O2 --> BZ_O + R2O2 + CCHO + RO2_R ', & - ' 2 BZCO_O2 --> 2 BZ_O + 2 R2O2 ', & - ' MA_RCO3 + NO2 --> MA_PAN ', & - ' MA_PAN --> MA_RCO3 + NO2 ', & - ' MA_RCO3 + NO --> HCHO + CCO_O2 + NO2 ', & - ' MA_RCO3 + HO2 --> 0.25 RCO_OH + 0.75 RCO_OOH + 0.25 O3 ', & - ' MA_RCO3 + NO3 --> HCHO + CCO_O2 + NO2 ', & - ' MA_RCO3 + C_O2 --> RCO_OH + HCHO ', & - ' MA_RCO3 + RO2_R --> RCO_OH ', & - ' R2O2 + MA_RCO3 --> MA_RCO3 ', & - ' RO2_N + MA_RCO3 --> 2 RCO_OH ', & - ' CCO_O2 + MA_RCO3 --> HCHO + CCO_O2 + C_O2 ', & - ' MA_RCO3 + RCO_O2 --> CCHO + HCHO + CCO_O2 + RO2_R ', & - 'MA_RCO3 + BZCO_O2 --> BZ_O + R2O2 + HCHO + CCO_O2 ', & - ' 2 MA_RCO3 --> 2 HCHO + 2 CCO_O2 ', & - ' TBU_O + NO2 --> RNO3 ', & - ' TBU_O --> ACET + C_O2 ', & - ' BZ_O + NO2 --> NPHE ', & - ' BZ_O + HO2 --> PHEN ', & - ' BZ_O --> PHEN ', & - ' BZNO2_O + NO2 --> 2 XN + 6 XC ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_4 = (/ & - ' BZNO2_O + HO2 --> NPHE ', & - ' BZNO2_O --> NPHE ', & - ' HCHO --> CO + 2 HO2 ', & - ' HCHO --> CO ', & - ' HCHO + OH --> CO + HO2 ', & - ' HCHO + HO2 --> HOCOO ', & - ' HOCOO --> HCHO + HO2 ', & - ' HOCOO + NO --> HCOOH + NO2 + HO2 ', & - ' HCHO + NO3 --> CO + HNO3 + HO2 ', & - ' CCHO + OH --> CCO_O2 ', & - ' CCHO --> CO + C_O2 + HO2 ', & - ' CCHO + NO3 --> HNO3 + CCO_O2 ', & - ' RCHO + OH --> 0.034 CO + 0.034 CCHO + 0.001 RO2_N + 0.965 RCO_O2 + 0.034 RO2_R ', & - ' RCHO --> CO + CCHO + RO2_R + HO2 ', & - ' RCHO + NO3 --> HNO3 + RCO_O2 ', & - ' ACET + OH --> R2O2 + HCHO + CCO_O2 ', & - ' ACET --> CCO_O2 + C_O2 ', & - ' MEK + OH --> 0.616 R2O2 + 0.482 CCHO + 0.115 HCHO + 0.37 RCHO + 0.492 CCO_O2 + 0.042 RO2_N + 0.096 RCO_O2 + 0.37 RO2_R ', & - ' MEK --> CCHO + CCO_O2 + RO2_R ', & - ' MEOH + OH --> HCHO + HO2 ', & - ' ETOH + OH --> 0.96 CCHO + 0.081 HCHO + 0.05 RO2_R + 0.95 HO2 ', & - ' COOH + OH --> 0.35 HCHO + 0.35 OH + 0.65 C_O2 ', & - ' COOH --> HCHO + OH + HO2 ', & - ' ROOH + OH --> RCHO + 0.66 OH + 0.34 RO2_R ', & - ' ROOH --> RCHO + OH + HO2 ', & - ' GLY --> 2 CO + 2 HO2 ', & - ' GLY --> CO + HCHO ', & - ' GLY + OH --> 1.26 CO + 0.37 RCO_O2 + 0.63 HO2 ', & - ' GLY + NO3 --> 1.26 CO + HNO3 + 0.37 RCO_O2 + 0.63 HO2 ', & - ' MGLY --> CO + CCO_O2 + HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_5 = (/ & - ' MGLY + OH --> CO + CCO_O2 ', & - ' MGLY + NO3 --> CO + HNO3 + CCO_O2 ', & - ' BACL --> 2 CCO_O2 ', & - ' PHEN + OH --> 0.23 GLY + 0.24 BZ_O + 0.76 RO2_R ', & - ' PHEN + NO3 --> HNO3 + BZ_O ', & - ' CRES + OH --> 0.23 MGLY + 0.24 BZ_O + 0.76 RO2_R ', & - ' CRES + NO3 --> HNO3 + BZ_O ', & - ' NPHE + NO3 --> BZNO2_O + HNO3 ', & - ' BALD + OH --> BZCO_O2 ', & - ' BALD --> 7 XC ', & - ' BALD + NO3 --> HNO3 + BZCO_O2 ', & - ' METHACRO + OH --> 0.084 MGLY + 0.416 CO + 0.084 HCHO + 0.416 MEK + 0.5 MA_RCO3 + 0.5 RO2_R ', & - ' METHACRO + O3 --> 0.333 HCOOH + 0.9 MGLY + 0.45 CO + 0.2 HCHO + 0.208 OH + 0.1 RCO_O2 + 0.1 RO2_R + 0.008 HO2 ', & - ' METHACRO + NO3 --> 0.5 CO + 0.5 HNO3 + 0.5 MA_RCO3 + 0.5 RO2_R ', & - ' METHACRO + O3P --> RCHO ', & - ' METHACRO --> 0.67 CO + 0.67 HCHO + 0.67 CCO_O2 + 0.33 MA_RCO3 + 0.33 OH + 0.33 RO2_R + 0.34 HO2 ', & - ' MVK + OH --> 0.3 MGLY + 0.675 R2O2 + 0.3 HCHO + 0.675 RCHO + 0.675 CCO_O2 + 0.025 RO2_N + 0.3 RO2_R ', & - ' MVK + O3 --> 0.351 HCOOH + 0.95 MGLY + 0.475 CO + 0.1 HCHO + 0.164 OH + 0.05 RCO_O2 + 0.05 RO2_R + 0.064 HO2 ', & - ' MVK + O3P --> 0.45 RCHO + 0.55 MEK ', & - ' MVK --> 0.7 CO + 0.7 PROD2 + 0.3 MA_RCO3 + 0.3 C_O2 ', & - ' ISOPROD + OH --> 0.174 MGLY + 0.336 CO + 0.15 GLY + 0.129 CCHO + 0.055 HCHO + 0.013 RCHO + 0.15 MEK + 0.332 PROD2 + 0.041 RO2_N + 0.289 MA_RCO3 + 0.67 RO2_R ', & - ' ISOPROD + O3 --> 0.1 HCOOH + 0.372 RCO_OH + 0.742 MGLY + 0.498 CO + 0.023 GLY + 0.047 CCHO + 0.125 HCHO + 0.21 MEK + 0.285 OH + 0.048 RCO_O2 + 0.048 RO2_R + 0.4 HO2 ', & - ' ISOPROD + NO3 --> 0.008 MGLY + 0.572 CO + 0.15 HNO3 + 0.227 HCHO + 0.572 RNO3 + 0.218 RCHO + 0.051 RO2_N + 0.15 MA_RCO3 + 0.799 RO2_R ', & - ' ISOPROD --> 1.233 CO + 0.467 CCHO + 0.3 HCHO + 0.233 MEK + 0.467 CCO_O2 + 0.3 RCO_O2 + 1.233 HO2 ', & - ' PROD2 + OH --> 0.084 CCHO + 0.213 HCHO + 0.558 RCHO + 0.115 MEK + 0.329 PROD2 + 0.029 CCO_O2 + 0.07 RO2_N + 0.049 RCO_O2 + 0.473 RO2_R + 0.379 HO2 ', & - ' PROD2 --> 0.515 R2O2 + 0.246 CCHO + 0.506 HCHO + 0.71 RCHO + 0.667 CCO_O2 + 0.04 RO2_N + 0.333 RCO_O2 + 0.96 RO2_R ', & - ' RNO3 + OH --> 0.006 ACET + 0.596 R2O2 + 0.439 CCHO + 0.01 HCHO + 0.31 RNO3 + 0.213 RCHO + 0.177 MEK + 0.048 PROD2 + 0.173 RO2_N + 0.338 NO2 + 0.376 RO2_R + 0.113 HO2 ', & - ' RNO3 --> 0.02 ACET + 0.152 R2O2 + 0.431 CCHO + 0.134 HCHO + 0.147 RCHO + 0.243 MEK + 0.435 PROD2 + 0.095 RO2_N + NO2 + 0.564 RO2_R + 0.341 HO2 ', & - ' DCB1 + OH --> CO + RCHO + RO2_R ', & - ' DCB1 + O3 --> 1.5 CO + GLY + 0.5 OH + 1.5 HO2 ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(30) :: EQN_NAMES_6 = (/ & - ' DCB2 + OH --> R2O2 + RCHO + CCO_O2 ', & - ' DCB2 --> 0.5 MGLY + CO + 0.5 GLY + R2O2 + 0.5 CCO_O2 + RO2_R + 0.5 HO2 ', & - ' DCB3 + OH --> R2O2 + RCHO + CCO_O2 ', & - ' DCB3 --> 0.5 MGLY + CO + 0.5 GLY + R2O2 + 0.5 CCO_O2 + RO2_R + 0.5 HO2 ', & - ' CH4 + OH --> C_O2 ', & - ' ETHENE + OH --> 0.195 CCHO + 1.61 HCHO + RO2_R ', & - ' ETHENE + O3 --> 0.37 HCOOH + 0.5 CO + HCHO + 0.12 OH + 0.12 HO2 ', & - ' ETHENE + NO3 --> RCHO + RO2_R ', & - ' ETHENE + O3P --> 0.491 CO + 0.009 GLY + 0.25 CCHO + 0.191 HCHO + 0.3 C_O2 + 0.2 RO2_R + 0.5 HO2 ', & - ' ISOPRENE + OH --> 0.079 R2O2 + 0.23 METHACRO + 0.357 ISOPROD + 0.32 MVK + 0.624 HCHO + 0.093 RO2_N + 0.907 RO2_R ', & - ' ISOPRENE + O3 --> 0.204 HCOOH + 0.15 RCO_OH + 0.275 CO + 0.126 R2O2 + 0.39 METHACRO + 0.16 MVK + 0.592 HCHO + 0.1 PROD2 + 0.008 RO2_N + 0.192 MA_RCO3 + 0.266 OH + 0.066 RO2_R ', & - ' ISOPRENE + NO3 --> 0.187 R2O2 + 0.936 ISOPROD + 0.064 RO2_N + 0.187 NO2 + 0.749 RO2_R ', & - ' ISOPRENE + O3P --> 0.24 R2O2 + 0.24 HCHO + 0.75 PROD2 + 0.01 RO2_N + 0.24 MA_RCO3 + 0.25 C_O2 ', & - ' TERP + OH --> 0.5 R2O2 + 0.276 HCHO + 0.474 RCHO + 0.276 PROD2 + 0.25 RO2_N + 0.75 RO2_R ', & - ' TERP + O3 --> 0.103 HCOOH + 0.189 RCO_OH + 0.031 BACL + 0.157 CO + 0.13 ACET + 0.001 GLY + 0.729 R2O2 + 0.235 HCHO + 0.205 RCHO + 0.276 PROD2 + 0.123 CCO_O2 + 0.18 RO2_N + 0.567 OH + 0.201 RCO_O2 + 0.031 RO2_R + 0.033 HO2 ', & - ' TERP + NO3 --> 0.75 R2O2 + 0.276 RNO3 + 0.474 RCHO + 0.25 RO2_N + 0.474 NO2 + 0.276 RO2_R ', & - ' TERP + O3P --> 0.147 RCHO + 0.853 PROD2 ', & - ' C2H6 + OH --> CCHO + RO2_R ', & - ' C3H8 + OH --> 0.704 ACET + 0.261 RCHO + 0.035 RO2_N + 0.965 RO2_R ', & - ' C2H2 + OH --> 0.297 HCOOH + 0.393 CO + 0.607 GLY + 0.096 HCHO + 0.603 OH + 0.1 RO2_R + 0.297 HO2 ', & - ' ALK3 + OH --> 0.236 TBU_O + 0.024 ACET + 0.559 R2O2 + 0.445 CCHO + 0.026 HCHO + 0.122 RCHO + 0.332 MEK + 0.07 RO2_N + 0.695 RO2_R ', & - ' ALK4 + OH --> 0.002 CO + 0.452 ACET + 0.936 R2O2 + 0.455 CCHO + 0.024 HCHO + 0.244 RCHO + 0.11 MEK + 0.125 PROD2 + 0.011 CCO_O2 + 0.143 RO2_N + 0.011 C_O2 + 0.835 RO2_R ', & - ' ALK5 + OH --> 0.072 ACET + 0.948 R2O2 + 0.099 CCHO + 0.026 HCHO + 0.204 RCHO + 0.089 MEK + 0.417 PROD2 + 0.347 RO2_N + 0.653 RO2_R ', & - ' ARO1 + OH --> 0.108 DCB2 + 0.051 DCB3 + 0.207 CRES + 0.491 DCB1 + 0.059 BALD + 0.017 PHEN + 0.119 MGLY + 0.118 GLY + 0.055 PROD2 + 0.011 RO2_N + 0.765 RO2_R + 0.224 HO2 ', & - ' ARO2 + OH --> 0.087 BACL + 0.099 DCB2 + 0.093 DCB3 + 0.187 CRES + 0.561 DCB1 + 0.05 BALD + 0.287 MGLY + 0.097 GLY + 0.009 RO2_N + 0.804 RO2_R + 0.187 HO2 ', & - ' OLE1 + OH --> 0.005 ACET + 0.205 R2O2 + 0.294 CCHO + 0.732 HCHO + 0.497 RCHO + 0.119 PROD2 + 0.09 RO2_N + 0.91 RO2_R ', & - ' OLE1 + O3 --> 0.185 HCOOH + 0.05 CCO_OH + 0.119 RCO_OH + 0.345 CO + 0.001 ACET + 0.154 CCHO + 0.5 HCHO + 0.363 RCHO + 0.215 PROD2 + 0.001 RO2_N + 0.155 OH + 0.076 C_O2 + 0.022 RO2_R + 0.056 HO2 ', & - ' OLE1 + NO3 --> 0.024 ACET + 0.488 R2O2 + 0.009 CCHO + 0.511 RNO3 + 0.037 RCHO + 0.176 RO2_N + 0.824 RO2_R ', & - ' OLE1 + O3P --> 0.45 RCHO + 0.437 MEK + 0.113 PROD2 ', & - ' OLE2 + OH --> 0.061 BALD + 0.127 ACET + 0.001 R2O2 + 0.025 METHACRO + 0.025 ISOPROD + 0.732 CCHO + 0.244 HCHO + 0.511 RCHO + 0.072 MEK + 0.082 RO2_N + 0.918 RO2_R ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(15) :: EQN_NAMES_7 = (/ & - ' OLE2 + O3 --> 0.073 HCOOH + 0.129 CCO_OH + 0.247 RCO_OH + 0.042 BALD + 0.265 CO + 0.045 ACET + 0.137 R2O2 + 0.026 METHACRO + 0.019 MVK + 0.456 CCHO + 0.269 HCHO + 0.305 RCHO + 0.026 MEK + 0.043 PROD2 + 0.137 CCO_O2 + 0.002 RO2_N + 0.378 OH + 0.006 RCO_O2 + 0.197 C_O2 ... etc. ', & - ' OLE2 + NO3 --> 0.015 BALD + 0.102 ACET + 0.711 R2O2 + 0.048 MVK + 0.507 CCHO + 0.079 HCHO + 0.321 RNO3 + 0.151 RCHO + 0.001 MEK + 0.136 RO2_N + 0.391 NO2 + 0.03 C_O2 + 0.442 RO2_R ', & - ' OLE2 + O3P --> 0.012 CO + 0.012 METHACRO + 0.069 RCHO + 0.659 MEK + 0.259 PROD2 + 0.001 RO2_N + 0.012 RO2_R + 0.013 HO2 ', & - ' C2H2 + O3 --> 0.5 CO2 + 1.5 CO + 0.5 OH + 1.5 HO2 ', & - ' C3H6 + OH --> 0.048 XC + 0.984 CCHO + 0.984 HCHO + 0.016 RO2_N + 0.984 RO2_R ', & - ' C3H6 + O3 --> 0.135 CO2 + 0.185 HCOOH + 0.17 CCO_OH + 0.07 XC + 0.51 CO + 0.5 CCHO + 0.5 HCHO + 0.32 OH + 0.26 C_O2 + 0.06 HO2 ', & - ' C3H6 + NO3 --> XN + 2.693 XC + 0.051 RO2_N + 0.949 RO2_R ', & - ' C3H6 + O3P --> 0.55 XC + 0.45 RCHO + 0.55 MEK ', & - ' SO2 --> H2SO4 ', & - ' HO2 --> ', & - ' SO2 --> ', & - ' H2SO4 --> ', & - ' HNO3 --> ', & - ' H2O2 --> ', & - ' CO2 --> ' /) - CHARACTER(LEN=500), PARAMETER, DIMENSION(225) :: EQN_NAMES = (/& - EQN_NAMES_0, EQN_NAMES_1, EQN_NAMES_2, EQN_NAMES_3, EQN_NAMES_4, & - EQN_NAMES_5, EQN_NAMES_6, EQN_NAMES_7 /) - -! INLINED global variables - -! End INLINED global variables - - -END MODULE SAPRC99_Monitor diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Monitor.o b/boxmox/compiled_mechs/SAPRC99/SAPRC99_Monitor.o deleted file mode 100644 index 7bd32d67eb93bef916feab9bc6d75e89230f0a51..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Monitor.o and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Parameters.f90 b/boxmox/compiled_mechs/SAPRC99/SAPRC99_Parameters.f90 deleted file mode 100644 index ee813cc718e8fb156186d6c3a804be18ca6033d4..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Parameters.f90 +++ /dev/null @@ -1,163 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Parameter Module File -! -! Generated by KPP-2.2.3 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 : SAPRC99_Parameters.f90 -! Time : Thu Oct 8 08:22:39 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_SAPRC99_30885_BOXMOX -! Equation file : SAPRC99.kpp -! Output root filename : SAPRC99 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE SAPRC99_Parameters - - USE SAPRC99_Precision - PUBLIC - SAVE - - -! NSPEC - Number of chemical species - INTEGER, PARAMETER :: NSPEC = 81 -! NVAR - Number of Variable species - INTEGER, PARAMETER :: NVAR = 79 -! NVARACT - Number of Active species - INTEGER, PARAMETER :: NVARACT = 72 -! NFIX - Number of Fixed species - INTEGER, PARAMETER :: NFIX = 2 -! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 225 -! NVARST - Starting of variables in conc. vect. - INTEGER, PARAMETER :: NVARST = 1 -! NFIXST - Starting of fixed in conc. vect. - INTEGER, PARAMETER :: NFIXST = 80 -! NONZERO - Number of nonzero entries in Jacobian - INTEGER, PARAMETER :: NONZERO = 887 -! LU_NONZERO - Number of nonzero entries in LU factoriz. of Jacobian - INTEGER, PARAMETER :: LU_NONZERO = 968 -! CNVAR - (NVAR+1) Number of elements in compressed row format - INTEGER, PARAMETER :: CNVAR = 80 -! CNEQN - (NREACT+1) Number stoicm elements in compressed col format - INTEGER, PARAMETER :: CNEQN = 226 -! NLOOKAT - Number of species to look at - INTEGER, PARAMETER :: NLOOKAT = 81 -! NMONITOR - Number of species to monitor - INTEGER, PARAMETER :: NMONITOR = 0 -! NMASS - Number of atoms to check mass balance - INTEGER, PARAMETER :: NMASS = 1 - -! Index declaration for variable species in C and VAR -! VAR(ind_spc) = C(ind_spc) - - INTEGER, PARAMETER :: ind_H2SO4 = 1 - INTEGER, PARAMETER :: ind_CO2 = 2 - INTEGER, PARAMETER :: ind_HCOOH = 3 - INTEGER, PARAMETER :: ind_CCO_OH = 4 - INTEGER, PARAMETER :: ind_RCO_OH = 5 - INTEGER, PARAMETER :: ind_CCO_OOH = 6 - INTEGER, PARAMETER :: ind_RCO_OOH = 7 - INTEGER, PARAMETER :: ind_XN = 8 - INTEGER, PARAMETER :: ind_XC = 9 - INTEGER, PARAMETER :: ind_SO2 = 10 - INTEGER, PARAMETER :: ind_O1D = 11 - INTEGER, PARAMETER :: ind_CH4 = 12 - INTEGER, PARAMETER :: ind_C2H6 = 13 - INTEGER, PARAMETER :: ind_BACL = 14 - INTEGER, PARAMETER :: ind_PAN = 15 - INTEGER, PARAMETER :: ind_PAN2 = 16 - INTEGER, PARAMETER :: ind_PBZN = 17 - INTEGER, PARAMETER :: ind_MA_PAN = 18 - INTEGER, PARAMETER :: ind_H2O2 = 19 - INTEGER, PARAMETER :: ind_C3H8 = 20 - INTEGER, PARAMETER :: ind_ETOH = 21 - INTEGER, PARAMETER :: ind_N2O5 = 22 - INTEGER, PARAMETER :: ind_HONO = 23 - INTEGER, PARAMETER :: ind_ALK3 = 24 - INTEGER, PARAMETER :: ind_TBU_O = 25 - INTEGER, PARAMETER :: ind_ALK5 = 26 - INTEGER, PARAMETER :: ind_ARO2 = 27 - INTEGER, PARAMETER :: ind_MEOH = 28 - INTEGER, PARAMETER :: ind_COOH = 29 - INTEGER, PARAMETER :: ind_HOCOO = 30 - INTEGER, PARAMETER :: ind_BZNO2_O = 31 - INTEGER, PARAMETER :: ind_HNO4 = 32 - INTEGER, PARAMETER :: ind_ALK4 = 33 - INTEGER, PARAMETER :: ind_ARO1 = 34 - INTEGER, PARAMETER :: ind_DCB2 = 35 - INTEGER, PARAMETER :: ind_DCB3 = 36 - INTEGER, PARAMETER :: ind_CRES = 37 - INTEGER, PARAMETER :: ind_DCB1 = 38 - INTEGER, PARAMETER :: ind_C2H2 = 39 - INTEGER, PARAMETER :: ind_NPHE = 40 - INTEGER, PARAMETER :: ind_BALD = 41 - INTEGER, PARAMETER :: ind_ROOH = 42 - INTEGER, PARAMETER :: ind_PHEN = 43 - INTEGER, PARAMETER :: ind_MGLY = 44 - INTEGER, PARAMETER :: ind_CO = 45 - INTEGER, PARAMETER :: ind_ACET = 46 - INTEGER, PARAMETER :: ind_HNO3 = 47 - INTEGER, PARAMETER :: ind_ETHENE = 48 - INTEGER, PARAMETER :: ind_GLY = 49 - INTEGER, PARAMETER :: ind_C3H6 = 50 - INTEGER, PARAMETER :: ind_BZ_O = 51 - INTEGER, PARAMETER :: ind_ISOPRENE = 52 - INTEGER, PARAMETER :: ind_R2O2 = 53 - INTEGER, PARAMETER :: ind_TERP = 54 - INTEGER, PARAMETER :: ind_METHACRO = 55 - INTEGER, PARAMETER :: ind_OLE1 = 56 - INTEGER, PARAMETER :: ind_ISOPROD = 57 - INTEGER, PARAMETER :: ind_OLE2 = 58 - INTEGER, PARAMETER :: ind_MVK = 59 - INTEGER, PARAMETER :: ind_CCHO = 60 - INTEGER, PARAMETER :: ind_HCHO = 61 - INTEGER, PARAMETER :: ind_RNO3 = 62 - INTEGER, PARAMETER :: ind_O3P = 63 - INTEGER, PARAMETER :: ind_RCHO = 64 - INTEGER, PARAMETER :: ind_MEK = 65 - INTEGER, PARAMETER :: ind_PROD2 = 66 - INTEGER, PARAMETER :: ind_O3 = 67 - INTEGER, PARAMETER :: ind_CCO_O2 = 68 - INTEGER, PARAMETER :: ind_RO2_N = 69 - INTEGER, PARAMETER :: ind_MA_RCO3 = 70 - INTEGER, PARAMETER :: ind_OH = 71 - INTEGER, PARAMETER :: ind_RCO_O2 = 72 - INTEGER, PARAMETER :: ind_NO = 73 - INTEGER, PARAMETER :: ind_NO2 = 74 - INTEGER, PARAMETER :: ind_NO3 = 75 - INTEGER, PARAMETER :: ind_C_O2 = 76 - INTEGER, PARAMETER :: ind_RO2_R = 77 - INTEGER, PARAMETER :: ind_HO2 = 78 - INTEGER, PARAMETER :: ind_BZCO_O2 = 79 - -! Index declaration for fixed species in C -! C(ind_spc) - - INTEGER, PARAMETER :: ind_H2O = 80 - INTEGER, PARAMETER :: ind_M = 81 - -! Index declaration for fixed species in FIX -! FIX(indf_spc) = C(ind_spc) = C(NVAR+indf_spc) - - INTEGER, PARAMETER :: indf_H2O = 1 - INTEGER, PARAMETER :: indf_M = 2 - -! NJVRP - Length of sparse Jacobian JVRP - INTEGER, PARAMETER :: NJVRP = 385 - -! NSTOICM - Length of Sparse Stoichiometric Matrix - INTEGER, PARAMETER :: NSTOICM = 1078 - -END MODULE SAPRC99_Parameters - diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Parameters.o b/boxmox/compiled_mechs/SAPRC99/SAPRC99_Parameters.o deleted file mode 100644 index b4277f5ca5a5cdd44f2bacffd813aa2ac553b414..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Parameters.o and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Precision.f90 b/boxmox/compiled_mechs/SAPRC99/SAPRC99_Precision.f90 deleted file mode 100644 index e0b88349980948d1cf0589332daae21b9a5825b2..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Precision.f90 +++ /dev/null @@ -1,17 +0,0 @@ - -MODULE SAPRC99_Precision - -! -! Definition of different levels of accuracy -! for REAL variables using KIND parameterization -! -! KPP SP - Single precision kind - INTEGER, PARAMETER :: sp = SELECTED_REAL_KIND(6,30) -! KPP DP - Double precision kind - INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(14,300) -! KPP QP - Quadruple precision kind - INTEGER, PARAMETER :: qp = SELECTED_REAL_KIND(18,400) - -END MODULE SAPRC99_Precision - - diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Precision.o b/boxmox/compiled_mechs/SAPRC99/SAPRC99_Precision.o deleted file mode 100644 index 5ac79440a6b9b7aebbad1daece0964a8cbbd143d..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Precision.o and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Rates.f90 b/boxmox/compiled_mechs/SAPRC99/SAPRC99_Rates.f90 deleted file mode 100644 index 75427b2acaeee49362007056b9889ef856291f74..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Rates.f90 +++ /dev/null @@ -1,652 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The Reaction Rates File -! -! Generated by KPP-2.2.3 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 : SAPRC99_Rates.f90 -! Time : Thu Oct 8 08:22:39 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_SAPRC99_30885_BOXMOX -! Equation file : SAPRC99.kpp -! Output root filename : SAPRC99 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE SAPRC99_Rates - - USE SAPRC99_Parameters - USE SAPRC99_Global - USE SAPRC99_Util - IMPLICIT NONE - -CONTAINS - - - -! Begin Rate Law Functions from KPP_HOME/util/UserRateLaws - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! User-defined Rate Law functions -! Note: the default argument type for rate laws, as read from the equations file, is single precision -! but all the internal calculations are performed in double precision -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~> Arrhenius -! REAL(kind=dp) FUNCTION ARR( A0,B0,C0 ) -! REAL A0,B0,C0 -! ARR = DBLE(A0) * EXP(-DBLE(B0)/TEMP) * (TEMP/300.0_dp)**DBLE(C0) -! END FUNCTION ARR - -! Arrhenius (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION ARR( A0,B0,C0, TEMP ) - REAL(kind=dp) :: TEMP - REAL(kind=dp) A0,B0,C0 - ARR = A0 * EXP( -B0 /TEMP ) * (TEMP/300._dp)**C0 - END FUNCTION ARR - -!~~~> Simplified Arrhenius, with two arguments -!~~~> Note: The argument B0 has a changed sign when compared to ARR -! REAL(kind=dp) FUNCTION ARR2( A0,B0 ) -! REAL A0,B0 -! ARR2 = DBLE(A0) * EXP( DBLE(B0)/TEMP ) -! END FUNCTION ARR2 -! CK 20140313 WRF-chem uses different kind of Arrhenius function -! with TEMP as argument... - REAL(kind=dp) FUNCTION ARR2( A0,B0, TEMP ) - REAL(kind=dp) :: TEMP - REAL(kind=dp) A0,B0 - ARR2 = A0 * EXP( -B0 /TEMP ) - END FUNCTION ARR2 -! CK 20140313 end - -! REAL(kind=dp) FUNCTION EP2(A0,C0,A2,C2,A3,C3) -! REAL A0,C0,A2,C2,A3,C3 -! REAL(kind=dp) K0,K2,K3 -! K0 = DBLE(A0) * EXP(-DBLE(C0)/TEMP) -! K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP) -! K3 = DBLE(A3) * EXP(-DBLE(C3)/TEMP) -! K3 = K3*CFACTOR*1.0E6_dp -! EP2 = K0 + K3/(1.0_dp+K3/K2 ) -! END FUNCTION EP2 - -! REAL(kind=dp) FUNCTION EP3(A1,C1,A2,C2) -! REAL A1, C1, A2, C2 -! REAL(kind=dp) K1, K2 -! K1 = DBLE(A1) * EXP(-DBLE(C1)/TEMP) -! K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP) -! EP3 = K1 + K2*(1.0E6_dp*CFACTOR) -! END FUNCTION EP3 - -! EP2 (added by psaide 22-07-2009) - REAL(kind=dp) FUNCTION EP2( A0,C0,A2,C2,A3,C3,TEMP,cair) - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A0,C0,A2,C2,A3,C3 - REAL(kind=dp) K0,K2,K3 - - K0 = A0 * EXP(-C0 /TEMP) - K2 = A2 * EXP(-C2 /TEMP) - K3 = A3 * EXP(-C3 /TEMP) -! K3 = K3 * 2.45E13_dp * 1.0E6_dp - K3 = K3 * cair - EP2 = K0 + K3/(1._dp+K3/K2 ) - END FUNCTION EP2 - -! EP3 (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION EP3(A1,C1,A2,C2,TEMP,cair) - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A1, C1, A2, C2 - REAL(kind=dp) K1, K2 - - K1 = A1 * EXP(-C1 /TEMP) - K2 = A2 * EXP(-C2 /TEMP) -! EP3 = K1 + K2*(1.0E6_dp * 2.45E13_dp) - EP3 = K1 + K2*cair - END FUNCTION EP3 - - -! REAL(kind=dp) FUNCTION FALL ( A0,B0,C0,A1,B1,C1,CF) -! REAL A0,B0,C0,A1,B1,C1,CF -! REAL(kind=dp) K0, K1 -! K0 = DBLE(A0) * EXP(-DBLE(B0)/TEMP)* (TEMP/300.0_dp)**DBLE(C0) -! K1 = DBLE(A1) * EXP(-DBLE(B1)/TEMP)* (TEMP/300.0_dp)**DBLE(C1) -! K0 = K0*CFACTOR*1.0E6_dp -! K1 = K0/K1 -! FALL = (K0/(1.0_dp+K1))* & -! DBLE(CF)**(1.0_dp/(1.0_dp+(LOG10(K1))**2)) -! END FUNCTION FALL - -! FALL (added by psaide 15-07-2009) - REAL(kind=dp) FUNCTION FALL( A0,B0,C0,A1,B1,C1,CF,TEMP,cair) - - INTRINSIC LOG10 - - REAL(kind=dp) :: TEMP - REAL(kind=dp) :: cair - REAL(kind=dp) A0,B0,C0,A1,B1,C1,CF - REAL(kind=dp) K0, K1 - - K0 = A0 * EXP(-B0 /TEMP)* (TEMP/300._dp)**C0 - K1 = A1 * EXP(-B1 /TEMP)* (TEMP/300._dp)**C1 -! K0 = K0 * 2.45E13_dp * 1.0E6_dp - K0 = K0 * cair - K1 = K0/K1 - FALL = (K0/(1._dp+K1))*CF**(1._dp/(1._dp+(LOG10(K1))**2)) - - END FUNCTION FALL - -! FALL2 (added by psaide 28-10-2009) - REAL(KIND=dp) FUNCTION F2( A0,B0,C0,A1,B1,C1,CF,CN,TEMP,cair) - - INTRINSIC LOG10 - - REAL(KIND=dp) :: TEMP - REAL(KIND=dp) :: cair - REAL(KIND=dp) A0,B0,C0,A1,B1,C1,CF,CN - REAL(KIND=dp) K0, K1 - - K0 = A0 * EXP(-B0 /TEMP)* (TEMP/300._dp)**C0 - K1 = A1 * EXP(-B1 /TEMP)* (TEMP/300._dp)**C1 -! K0 = K0 * 2.45E13_dp * 1.0E6_dp - K0 = K0 * cair - K1 = K0/K1 - F2 = (K0/(1._dp+K1))*CF**(1._dp/(1._dp+(LOG10(K1)/CN)**2)) - - END FUNCTION F2 - - - !--------------------------------------------------------------------------- - - ELEMENTAL REAL(kind=dp) FUNCTION k_3rd(temp,cair,k0_300K,n,kinf_300K,m,fc) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL, INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL, INTENT(IN) :: n ! exponent for low pressure limit - REAL, INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL, INTENT(IN) :: m ! exponent for high pressure limit - REAL, INTENT(IN) :: fc ! broadening factor (usually fc=0.6) - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - k_3rd = k0_T/(1._dp+k_ratio)*fc**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - END FUNCTION k_3rd - - !--------------------------------------------------------------------------- - - ELEMENTAL REAL(kind=dp) FUNCTION k_arr (k_298,tdep,temp) - ! Arrhenius function - - REAL, INTENT(IN) :: k_298 ! k at T = 298.15K - REAL, INTENT(IN) :: tdep ! temperature dependence - REAL(kind=dp), INTENT(IN) :: temp ! temperature - - INTRINSIC EXP - - k_arr = k_298 * EXP(tdep*(1._dp/temp-3.3540E-3_dp)) ! 1/298.15=3.3540e-3 - - END FUNCTION k_arr - -! CK 20140313 in the following some more rate functions needed by -! WRF-chem packages - -!------------------------------------ -! Troe reactions (as in Stockwell et al, 1997) - - REAL(kind=dp) FUNCTION TROE(k0_300K,n,kinf_300K,m,temp,cair) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - TROE = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - END FUNCTION TROE - - - -!------------------------------------------- -! Troe equilibrium reactions (as in Stockwell et al, 1997) - - REAL(kind=dp) FUNCTION TROEE(A, B, k0_300K,n,kinf_300K,m,temp,cair) - - INTRINSIC LOG10 - - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] - REAL(kind=dp), INTENT(IN) :: k0_300K ! low pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: n ! exponent for low pressure limit - REAL(kind=dp), INTENT(IN) :: kinf_300K ! high pressure limit at 300 K - REAL(kind=dp), INTENT(IN) :: m ! exponent for high pressure limit - REAL(kind=dp), INTENT(IN) :: A, B - REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio, troe - - - zt_help = 300._dp/temp - k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T - kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T - k_ratio = k0_T/kinf_T - troe = k0_T/(1._dp+k_ratio)*0.6_dp**(1._dp/(1._dp+LOG10(k_ratio)**2)) - - TROEE = A * EXP( - B / temp) * troe - - - - END FUNCTION TROEE - -!------------------------ -! k=T^2 C exp (-D/T) reactions - - REAL(kind=dp) FUNCTION THERMAL_T2(c, d ,temp) - REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] - REAL(kind=dp), INTENT(IN) :: c, d - - - THERMAL_T2= temp**2._dp * c * EXP(- d / temp) - - END FUNCTION THERMAL_T2 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! End of User-defined Rate Law functions -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -! End Rate Law Functions from KPP_HOME/util/UserRateLaws - - -! Begin INLINED Rate Law Functions - - - -! **************************************************************************** -! J - the photolysis rate retrieval function -! **************************************************************************** - REAL(kind=dp) FUNCTION J(name) - - CHARACTER(LEN=*), INTENT(IN) :: name - - CHARACTER(LEN=15) :: xname - - INTEGER :: i - - xname(:) = " " - xname(1:LEN(name)) = name - - J = jvalues(hash(xname)) - - RETURN - - END FUNCTION J -! **************************************************************************** - - -! End INLINED Rate Law Functions - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_SUN - update SUN light using TIME -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - SUBROUTINE Update_SUN() - !USE SAPRC99_Parameters - !USE SAPRC99_Global - - IMPLICIT NONE - - REAL(kind=dp) :: SunRise, SunSet - REAL(kind=dp) :: Thour, Tlocal, Ttmp - ! PI - Value of pi - REAL(kind=dp), PARAMETER :: PI = 3.14159265358979d0 - - SunRise = 4.5_dp - SunSet = 19.5_dp - Thour = TIME/3600.0_dp - Tlocal = Thour - (INT(Thour)/24)*24 - - IF ((Tlocal>=SunRise).AND.(Tlocal<=SunSet)) THEN - Ttmp = (2.0*Tlocal-SunRise-SunSet)/(SunSet-SunRise) - IF (Ttmp.GT.0) THEN - Ttmp = Ttmp*Ttmp - ELSE - Ttmp = -Ttmp*Ttmp - END IF - SUN = ( 1.0_dp + COS(PI*Ttmp) )/2.0_dp - ELSE - SUN = 0.0_dp - END IF - - END SUBROUTINE Update_SUN - -! End of Update_SUN function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_RCONST - function to update rate constants -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Update_RCONST ( ) - - - - -! Begin INLINED RCONST - - -! End INLINED RCONST - - RCONST(1) = (j('no2')) - RCONST(2) = (0.20946e0*C_M*ARR(5.68D-34,0.0_dp,-2.80_dp,TEMP)) - RCONST(3) = (ARR(8.00D-12,2060.0_dp,0.0_dp,TEMP)) - RCONST(4) = (ARR(1.00D-31,0.0_dp,-1.60_dp,TEMP)) - RCONST(5) = (ARR(6.50D-12,-120.0_dp,0.0_dp,TEMP)) - RCONST(6) = (FALL(9.00D-32,0.0_dp,-2.00_dp,2.20D-11,0.0_dp,0.0_dp,0.80_dp,TEMP,C_M)) - RCONST(7) = (ARR(1.80D-12,1370.0_dp,0.0_dp,TEMP)) - RCONST(8) = (ARR(1.40D-13,2470.0_dp,0.0_dp,TEMP)) - RCONST(9) = (ARR(1.80D-11,-110.0_dp,0.0_dp,TEMP)) - RCONST(10) = (0.20946e0*ARR(3.30D-39,-530.0_dp,0.0_dp,TEMP)) - RCONST(11) = (FALL(2.80D-30,0.0_dp,-3.50_dp,2.00D-12,0.0_dp,0.20_dp,0.45_dp,TEMP,C_M)) - RCONST(12) = (FALL(1.D-3,11000.0_dp,-3.5_dp,9.7D14,11080.0_dp,0.1_dp,0.45_dp,TEMP,C_M)) - RCONST(13) = (2.60D-22) - RCONST(14) = (ARR(4.50D-14,1260.0_dp,0.0_dp,TEMP)) - RCONST(15) = (j('no3o2')) - RCONST(16) = (j('no3o')) - RCONST(17) = (j('o33p')) - RCONST(18) = (j('o31d')) - RCONST(19) = (2.20D-10) - RCONST(20) = (ARR(2.09D-11,-95.0_dp,0.0_dp,TEMP)) - RCONST(21) = (FALL(7.00D-31,0.0_dp,-2.60_dp,3.60D-11,0.0_dp,-0.10_dp,0.60_dp,TEMP,C_M)) - RCONST(22) = (0.9000_dp*j('hno2')) - RCONST(23) = (0.1000_dp*j('hno2')) - RCONST(24) = (ARR(2.70D-12,-260.0_dp,0.0_dp,TEMP)) - RCONST(25) = (FALL(2.43D-30,0.0_dp,-3.10_dp,1.67D-11,0.0_dp,-2.10_dp,0.60_dp,TEMP,C_M)) - RCONST(26) = (2.00D-11) - RCONST(27) = (EP2(7.20D-15,-785.0_dp,4.10D-16,-1440.0_dp,1.90D-33,-725.0_dp,TEMP,C_M)) - RCONST(28) = (j('hno3')) - RCONST(29) = (EP3(1.30D-13,0.0_dp,3.19D-33,0.0_dp,TEMP,C_M)) - RCONST(30) = (ARR(1.90D-12,1000.0_dp,0.0_dp,TEMP)) - RCONST(31) = (ARR(3.40D-12,-270.0_dp,0.0_dp,TEMP)) - RCONST(32) = (FALL(1.80D-31,0.0_dp,-3.20_dp,4.70D-12,0.0_dp,0.0_dp,0.60_dp,TEMP,C_M)) - RCONST(33) = (FALL(4.10D-05,10650.0_dp,0.0_dp,5.7D15,11170.0_dp,0.0_dp,0.5_dp,TEMP,C_M)) - RCONST(34) = (j('hno4')) - RCONST(35) = (ARR(1.50D-12,-360.0_dp,0.0_dp,TEMP)) - RCONST(36) = (ARR(1.40D-14,600.0_dp,0.0_dp,TEMP)) - RCONST(37) = (EP3(2.20D-13,-600.0_dp,1.85D-33,-980.0_dp,TEMP,C_M)) - RCONST(38) = (EP3(3.08D-34,-2800.0_dp,2.59D-54,-3180.0_dp,TEMP,C_M)) - RCONST(39) = (4.00D-12) - RCONST(40) = (ARR(8.50D-13,2450.0_dp,0.0_dp,TEMP)) - RCONST(41) = (j('h2o2')) - RCONST(42) = (ARR(2.90D-12,160.0_dp,0.0_dp,TEMP)) - RCONST(43) = (ARR(4.80D-11,-250.0_dp,0.0_dp,TEMP)) - RCONST(44) = (FALL(4.00D-31,0.0_dp,-3.30_dp,2.00D-12,0.0_dp,0.0_dp,0.45_dp,TEMP,C_M)) - RCONST(45) = (5.40D-7*ARR(7.70D-12,2100.0_dp,0.0_dp,TEMP)) - RCONST(46) = (ARR(2.80D-12,-285.0_dp,0.0_dp,TEMP)) - RCONST(47) = (ARR(3.80D-13,-780.0_dp,0.0_dp,TEMP)) - RCONST(48) = (1.30D-12) - RCONST(49) = (ARR(2.45D-14,-710.0_dp,0.0_dp,TEMP)) - RCONST(50) = (ARR(5.90D-13,509.0_dp,0.0_dp,TEMP)) - RCONST(51) = (ARR(2.70D-12,-360.0_dp,0.0_dp,TEMP)) - RCONST(52) = (ARR(1.90D-13,-1300.0_dp,0.0_dp,TEMP)) - RCONST(53) = (2.30D-12) - RCONST(54) = (2.00D-13) - RCONST(55) = (3.50D-14) - RCONST(56) = (1.0_dp*ARR(2.70D-12,-360.0_dp,0.0_dp,TEMP)) - RCONST(57) = (1.0_dp*ARR(1.90D-13,-1300.0_dp,0.0_dp,TEMP)) - RCONST(58) = (1.0_dp*2.30D-12) - RCONST(59) = (1.0_dp*2.00D-13) - RCONST(60) = (1.0_dp*3.50D-14) - RCONST(61) = (0.0_dp) - RCONST(62) = (1.0_dp*ARR(2.70D-12,-360.0_dp,0.0_dp,TEMP)) - RCONST(63) = (1.0_dp*ARR(1.90D-13,-1300.0_dp,0.0_dp,TEMP)) - RCONST(64) = (1.0_dp*2.00D-13) - RCONST(65) = (1.0_dp*2.30D-12) - RCONST(66) = (1.0_dp*3.50D-14) - RCONST(67) = (1.0_dp*3.50D-14) - RCONST(68) = (1.0_dp*3.50D-14) - RCONST(69) = (FALL(2.70D-28,0.0_dp,-7.10_dp,1.20D-11,0.0_dp,-0.90_dp,0.30_dp,TEMP,C_M)) - RCONST(70) = (FALL(4.90D-3,12100.0_dp,0.0_dp,4.0D16,13600.0_dp,0._dp,0.3_dp,TEMP,C_M)) - RCONST(71) = (ARR(7.80D-12,-300.0_dp,0.0_dp,TEMP)) - RCONST(72) = (ARR(4.30D-13,-1040.0_dp,0.0_dp,TEMP)) - RCONST(73) = (4.00D-12) - RCONST(74) = (ARR(1.80D-12,-500.0_dp,0.0_dp,TEMP)) - RCONST(75) = (7.50D-12) - RCONST(76) = (1.0_dp*7.50D-12) - RCONST(77) = (1.0_dp*7.50D-12) - RCONST(78) = (ARR(2.90D-12,-500.0_dp,0.0_dp,TEMP)) - RCONST(79) = (ARR(1.20D-11,0.0_dp,-0.90_dp,TEMP)) - RCONST(80) = (ARR(2.00D15,12800.0_dp,0.0_dp,TEMP)) - RCONST(81) = (ARR(1.25D-11,-240.0_dp,0.0_dp,TEMP)) - RCONST(82) = (1.0_dp*ARR(4.30D-13,-1040.0_dp,0.0_dp,TEMP)) - RCONST(83) = (1.0_dp*4.00D-12) - RCONST(84) = (1.0_dp*ARR(1.80D-12,-500.0_dp,0.0_dp,TEMP)) - RCONST(85) = (1.0_dp*7.50D-12) - RCONST(86) = (1.0_dp*7.50D-12) - RCONST(87) = (1.0_dp*7.50D-12) - RCONST(88) = (1.0_dp*ARR(2.90D-12,-500.0_dp,0.0_dp,TEMP)) - RCONST(89) = (1.0_dp*ARR(2.90D-12,-500.0_dp,0.0_dp,TEMP)) - RCONST(90) = (1.37D-11) - RCONST(91) = (ARR(7.90D16,14000.0_dp,0.0_dp,TEMP)) - RCONST(92) = (1.0_dp*ARR(1.25D-11,-240.0_dp,0.0_dp,TEMP)) - RCONST(93) = (1.0_dp*ARR(4.30D-13,-1040.0_dp,0.0_dp,TEMP)) - RCONST(94) = (1.0_dp*4.00D-12) - RCONST(95) = (1.0_dp*ARR(1.80D-12,-500.0_dp,0.0_dp,TEMP)) - RCONST(96) = (1.0_dp*7.50D-12) - RCONST(97) = (1.0_dp*7.50D-12) - RCONST(98) = (1.0_dp*7.50D-12) - RCONST(99) = (1.0_dp*ARR(2.90D-12,-500.0_dp,0.0_dp,TEMP)) - RCONST(100) = (1.0_dp*ARR(2.90D-12,-500.0_dp,0.0_dp,TEMP)) - RCONST(101) = (1.0_dp*ARR(2.90D-12,-500.0_dp,0.0_dp,TEMP)) - RCONST(102) = (1.0_dp*ARR(1.20D-11,0.0_dp,-0.90_dp,TEMP)) - RCONST(103) = (ARR(1.60D16,13486.0_dp,0.0_dp,TEMP)) - RCONST(104) = (1.0_dp*ARR(1.25D-11,-240.0_dp,0.0_dp,TEMP)) - RCONST(105) = (1.0_dp*ARR(4.30D-13,-1040.0_dp,0.0_dp,TEMP)) - RCONST(106) = (1.0_dp*4.00D-12) - RCONST(107) = (1.0_dp*ARR(1.80D-12,-500.0_dp,0.0_dp,TEMP)) - RCONST(108) = (1.0_dp*7.50D-12) - RCONST(109) = (1.0_dp*7.50D-12) - RCONST(110) = (1.0_dp*7.50D-12) - RCONST(111) = (1.0_dp*ARR(2.90D-12,-500.0_dp,0.0_dp,TEMP)) - RCONST(112) = (1.0_dp*ARR(2.90D-12,-500.0_dp,0.0_dp,TEMP)) - RCONST(113) = (1.0_dp*ARR(2.90D-12,-500.0_dp,0.0_dp,TEMP)) - RCONST(114) = (1.0_dp*ARR(2.90D-12,-500.0_dp,0.0_dp,TEMP)) - RCONST(115) = (2.40D-11) - RCONST(116) = (ARR(7.50D14,8152.0_dp,0.0_dp,TEMP)) - RCONST(117) = (ARR(2.30D-11,-150.0_dp,0.0_dp,TEMP)) - RCONST(118) = (1.0_dp*ARR(1.90D-13,-1300.0_dp,0.0_dp,TEMP)) - RCONST(119) = (1.00D-03) - RCONST(120) = (1.0_dp*ARR(7.50D14,8152.0_dp,0.0_dp,TEMP)) - RCONST(121) = (1.0_dp*ARR(2.30D-11,-150.0_dp,0.0_dp,TEMP)) - RCONST(122) = (1.0_dp*1.0_dp*ARR(1.90D-13,-1300.0_dp,0.0_dp,TEMP)) - RCONST(123) = (j('ch2or')) - RCONST(124) = (j('ch2om')) - RCONST(125) = (ARR(8.60D-12,-20.0_dp,0.0_dp,TEMP)) - RCONST(126) = (ARR(9.70D-15,-625.0_dp,0.0_dp,TEMP)) - RCONST(127) = (ARR(2.40D12,7000.0_dp,0.0_dp,TEMP)) - RCONST(128) = (1.0_dp*ARR(2.80D-12,-285.0_dp,0.0_dp,TEMP)) - RCONST(129) = (ARR(2.00D-12,2431.0_dp,0.0_dp,TEMP)) - RCONST(130) = (ARR(5.60D-12,-310.0_dp,0.0_dp,TEMP)) - RCONST(131) = (0.1900_dp*j('ch2or')) - RCONST(132) = (ARR(1.40D-12,1860.0_dp,0.0_dp,TEMP)) - RCONST(133) = (2.00D-11) - RCONST(134) = (0.6500_dp*j('ch2or')) - RCONST(135) = (ARR(1.40D-12,1771.0_dp,0.0_dp,TEMP)) - RCONST(136) = (ARR(1.10D-12,520.0_dp,0.0_dp,TEMP)) - RCONST(137) = (0.0230_dp*j('ch2or')) - RCONST(138) = (ARR(1.30D-12,25.0_dp,2.0_dp,TEMP)) - RCONST(139) = (0.0650_dp*j('ch2or')) - RCONST(140) = (ARR(3.10D-12,360.0_dp,2.0_dp,TEMP)) - RCONST(141) = (ARR(0.0_dp,0.0_dp,1.0_dp,TEMP)) - RCONST(142) = (ARR(2.90D-12,-190.0_dp,0.0_dp,TEMP)) - RCONST(143) = (j('ch3o2h')) - RCONST(144) = (1.10D-11) - RCONST(145) = (0.2100_dp*j('ch2or')) - RCONST(146) = (j('hcochob')) - RCONST(147) = (0.2000_dp*j('hcocho')) - RCONST(148) = (1.10D-11) - RCONST(149) = (ARR(2.80D-12,2376.0_dp,0.0_dp,TEMP)) - RCONST(150) = (1.3000_dp*j('ch3cocho')) - RCONST(151) = (1.50D-11) - RCONST(152) = (ARR(1.40D-12,1895.0_dp,0.0_dp,TEMP)) - RCONST(153) = (2.3000_dp*j('ch3cocho')) - RCONST(154) = (2.63D-11) - RCONST(155) = (3.78D-12) - RCONST(156) = (4.20D-11) - RCONST(157) = (1.37D-11) - RCONST(158) = (1.0_dp*2.63D-11) - RCONST(159) = (1.29D-11) - RCONST(160) = (1.7000_dp*j('ch2or')) - RCONST(161) = (ARR(1.40D-12,1872.0_dp,0.0_dp,TEMP)) - RCONST(162) = (ARR(1.86D-11,-176.0_dp,0.0_dp,TEMP)) - RCONST(163) = (ARR(1.36D-15,2114.0_dp,0.0_dp,TEMP)) - RCONST(164) = (ARR(1.50D-12,1726.0_dp,0.0_dp,TEMP)) - RCONST(165) = (6.34D-12) - RCONST(166) = (0.0470_dp*j('ch2om')) - RCONST(167) = (ARR(4.14D-12,-453.0_dp,0.0_dp,TEMP)) - RCONST(168) = (ARR(7.51D-16,1520.0_dp,0.0_dp,TEMP)) - RCONST(169) = (4.32D-12) - RCONST(170) = (0.6300_dp*j('macr')) - RCONST(171) = (6.19D-11) - RCONST(172) = (4.18D-18) - RCONST(173) = (1.00D-13) - RCONST(174) = (0.0038_dp*j('hcochest')) - RCONST(175) = (1.50D-11) - RCONST(176) = (0.3000_dp*j('ch3coc2h5')) - RCONST(177) = (7.80D-12) - RCONST(178) = (1.2000_dp*j('ch3ono2')) - RCONST(179) = (5.00D-11) - RCONST(180) = (2.00D-18) - RCONST(181) = (5.00D-11) - RCONST(182) = (2.0000_dp*j('hcochest')) - RCONST(183) = (5.00D-11) - RCONST(184) = (6.8000_dp*j('hcochest')) - RCONST(185) = (ARR(2.15D-12,1735.0_dp,0.0_dp,TEMP)) - RCONST(186) = (ARR(1.96D-12,-438.0_dp,0.0_dp,TEMP)) - RCONST(187) = (ARR(9.14D-15,2580.0_dp,0.0_dp,TEMP)) - RCONST(188) = (ARR(4.39D-13,2282.0_dp,2.0_dp,TEMP)) - RCONST(189) = (ARR(1.04D-11,792.0_dp,0.0_dp,TEMP)) - RCONST(190) = (ARR(2.50D-11,-408.0_dp,0.0_dp,TEMP)) - RCONST(191) = (ARR(7.86D-15,1912.0_dp,0.0_dp,TEMP)) - RCONST(192) = (ARR(3.03D-12,448.0_dp,0.0_dp,TEMP)) - RCONST(193) = (3.60D-11) - RCONST(194) = (ARR(1.83D-11,-449.0_dp,0.0_dp,TEMP)) - RCONST(195) = (ARR(1.08D-15,821.0_dp,0.0_dp,TEMP)) - RCONST(196) = (ARR(3.66D-12,-175.0_dp,0.0_dp,TEMP)) - RCONST(197) = (3.27D-11) - RCONST(198) = (ARR(1.37D-12,498.0_dp,2.0_dp,TEMP)) - RCONST(199) = (ARR(0.0_dp,0.0_dp,1.0_dp,TEMP)) - RCONST(200) = (ARR(9.87D-12,671.0_dp,0.0_dp,TEMP)) - RCONST(201) = (ARR(1.019D-11,434.0_dp,0.0_dp,TEMP)) - RCONST(202) = (ARR(5.946D-12,91.0_dp,0.0_dp,TEMP)) - RCONST(203) = (ARR(1.112D-11,52.0_dp,0.0_dp,TEMP)) - RCONST(204) = (ARR(1.81D-12,-355.0_dp,0.0_dp,TEMP)) - RCONST(205) = (2.640D-11) - RCONST(206) = (ARR(7.095D-12,-451.0_dp,0.0_dp,TEMP)) - RCONST(207) = (ARR(2.617D-15,1640.0_dp,0.0_dp,TEMP)) - RCONST(208) = (ARR(4.453D-14,376.0_dp,0.0_dp,TEMP)) - RCONST(209) = (ARR(1.074D-11,234.0_dp,0.0_dp,TEMP)) - RCONST(210) = (ARR(1.743D-11,-384.0_dp,0.0_dp,TEMP)) - RCONST(211) = (ARR(5.022D-16,461.0_dp,0.0_dp,TEMP)) - RCONST(212) = (7.265D-13) - RCONST(213) = (2.085D-11) - RCONST(214) = (2.20D-10) - RCONST(215) = (2.20D-10) - RCONST(216) = (2.20D-10) - RCONST(217) = (2.20D-10) - RCONST(218) = (2.20D-10) - RCONST(219) = (2.20D-10) - RCONST(220) = (7.0D-7) - RCONST(221) = (2.20D-10) - RCONST(222) = (2.20D-10) - RCONST(223) = (2.20D-10) - RCONST(224) = (2.20D-10) - RCONST(225) = (7.0D-7) - -END SUBROUTINE Update_RCONST - -! End of Update_RCONST function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Update_PHOTO - function to update photolytical rate constants -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Update_PHOTO ( ) - - - USE SAPRC99_Global - - RCONST(1) = (j('no2')) - RCONST(15) = (j('no3o2')) - RCONST(16) = (j('no3o')) - RCONST(17) = (j('o33p')) - RCONST(18) = (j('o31d')) - RCONST(22) = (0.9000_dp*j('hno2')) - RCONST(23) = (0.1000_dp*j('hno2')) - RCONST(28) = (j('hno3')) - RCONST(34) = (j('hno4')) - RCONST(41) = (j('h2o2')) - RCONST(123) = (j('ch2or')) - RCONST(124) = (j('ch2om')) - RCONST(131) = (0.1900_dp*j('ch2or')) - RCONST(134) = (0.6500_dp*j('ch2or')) - RCONST(137) = (0.0230_dp*j('ch2or')) - RCONST(139) = (0.0650_dp*j('ch2or')) - RCONST(143) = (j('ch3o2h')) - RCONST(145) = (0.2100_dp*j('ch2or')) - RCONST(146) = (j('hcochob')) - RCONST(147) = (0.2000_dp*j('hcocho')) - RCONST(150) = (1.3000_dp*j('ch3cocho')) - RCONST(153) = (2.3000_dp*j('ch3cocho')) - RCONST(160) = (1.7000_dp*j('ch2or')) - RCONST(166) = (0.0470_dp*j('ch2om')) - RCONST(170) = (0.6300_dp*j('macr')) - RCONST(174) = (0.0038_dp*j('hcochest')) - RCONST(176) = (0.3000_dp*j('ch3coc2h5')) - RCONST(178) = (1.2000_dp*j('ch3ono2')) - RCONST(182) = (2.0000_dp*j('hcochest')) - RCONST(184) = (6.8000_dp*j('hcochest')) - -END SUBROUTINE Update_PHOTO - -! End of Update_PHOTO function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE SAPRC99_Rates - diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Rates.o b/boxmox/compiled_mechs/SAPRC99/SAPRC99_Rates.o deleted file mode 100644 index fd8255961668b323004e279b57339a37bbe204b7..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Rates.o and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Stoichiom.f90 b/boxmox/compiled_mechs/SAPRC99/SAPRC99_Stoichiom.f90 deleted file mode 100644 index bbc17c81fb99b2e8108d87d10aecd882cea158c3..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Stoichiom.f90 +++ /dev/null @@ -1,1208 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! The Stoichiometric Chemical Model File -! -! Generated by KPP-2.2.3 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 : SAPRC99_Stoichiom.f90 -! Time : Thu Oct 8 08:22:39 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_SAPRC99_30885_BOXMOX -! Equation file : SAPRC99.kpp -! Output root filename : SAPRC99 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE SAPRC99_Stoichiom - - USE SAPRC99_Parameters - USE SAPRC99_StoichiomSP - - IMPLICIT NONE - -CONTAINS - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! ReactantProd - Reactant Products in each equation -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! ARP - Reactant product in each equation -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE ReactantProd ( V, F, ARP ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! F - Concentrations of fixed species (local) - REAL(kind=dp) :: F(NFIX) -! ARP - Reactant product in each equation - REAL(kind=dp) :: ARP(NREACT) - - -! Reactant Products in each equation are useful in the -! stoichiometric formulation of mass action law - ARP(1) = V(74) - ARP(2) = V(63)*F(2) - ARP(3) = V(63)*V(67) - ARP(4) = V(63)*V(73)*F(2) - ARP(5) = V(63)*V(74) - ARP(6) = V(63)*V(74) - ARP(7) = V(67)*V(73) - ARP(8) = V(67)*V(74) - ARP(9) = V(73)*V(75) - ARP(10) = V(73)*V(73)*F(2) - ARP(11) = V(74)*V(75) - ARP(12) = V(22) - ARP(13) = V(22)*F(1) - ARP(14) = V(74)*V(75) - ARP(15) = V(75) - ARP(16) = V(75) - ARP(17) = V(67) - ARP(18) = V(67) - ARP(19) = V(11)*F(1) - ARP(20) = V(11)*F(2) - ARP(21) = V(71)*V(73) - ARP(22) = V(23) - ARP(23) = V(23) - ARP(24) = V(23)*V(71) - ARP(25) = V(71)*V(74) - ARP(26) = V(71)*V(75) - ARP(27) = V(47)*V(71) - ARP(28) = V(47) - ARP(29) = V(45)*V(71) - ARP(30) = V(67)*V(71) - ARP(31) = V(73)*V(78) - ARP(32) = V(74)*V(78) - ARP(33) = V(32) - ARP(34) = V(32) - ARP(35) = V(32)*V(71) - ARP(36) = V(67)*V(78) - ARP(37) = V(78)*V(78) - ARP(38) = V(78)*V(78)*F(1) - ARP(39) = V(75)*V(78) - ARP(40) = V(75)*V(75) - ARP(41) = V(19) - ARP(42) = V(19)*V(71) - ARP(43) = V(71)*V(78) - ARP(44) = V(10)*V(71) - ARP(45) = V(71)*F(2) - ARP(46) = V(73)*V(76) - ARP(47) = V(76)*V(78) - ARP(48) = V(75)*V(76) - ARP(49) = V(76)*V(76) - ARP(50) = V(76)*V(76) - ARP(51) = V(73)*V(77) - ARP(52) = V(77)*V(78) - ARP(53) = V(75)*V(77) - ARP(54) = V(76)*V(77) - ARP(55) = V(77)*V(77) - ARP(56) = V(53)*V(73) - ARP(57) = V(53)*V(78) - ARP(58) = V(53)*V(75) - ARP(59) = V(53)*V(76) - ARP(60) = V(53)*V(77) - ARP(61) = V(53)*V(53) - ARP(62) = V(69)*V(73) - ARP(63) = V(69)*V(78) - ARP(64) = V(69)*V(76) - ARP(65) = V(69)*V(75) - ARP(66) = V(69)*V(77) - ARP(67) = V(53)*V(69) - ARP(68) = V(69)*V(69) - ARP(69) = V(68)*V(74) - ARP(70) = V(15) - ARP(71) = V(68)*V(73) - ARP(72) = V(68)*V(78) - ARP(73) = V(68)*V(75) - ARP(74) = V(68)*V(76) - ARP(75) = V(68)*V(77) - ARP(76) = V(53)*V(68) - ARP(77) = V(68)*V(69) - ARP(78) = V(68)*V(68) - ARP(79) = V(72)*V(74) - ARP(80) = V(16) - ARP(81) = V(72)*V(73) - ARP(82) = V(72)*V(78) - ARP(83) = V(72)*V(75) - ARP(84) = V(72)*V(76) - ARP(85) = V(72)*V(77) - ARP(86) = V(53)*V(72) - ARP(87) = V(69)*V(72) - ARP(88) = V(68)*V(72) - ARP(89) = V(72)*V(72) - ARP(90) = V(74)*V(79) - ARP(91) = V(17) - ARP(92) = V(73)*V(79) - ARP(93) = V(78)*V(79) - ARP(94) = V(75)*V(79) - ARP(95) = V(76)*V(79) - ARP(96) = V(77)*V(79) - ARP(97) = V(53)*V(79) - ARP(98) = V(69)*V(79) - ARP(99) = V(68)*V(79) - ARP(100) = V(72)*V(79) - ARP(101) = V(79)*V(79) - ARP(102) = V(70)*V(74) - ARP(103) = V(18) - ARP(104) = V(70)*V(73) - ARP(105) = V(70)*V(78) - ARP(106) = V(70)*V(75) - ARP(107) = V(70)*V(76) - ARP(108) = V(70)*V(77) - ARP(109) = V(53)*V(70) - ARP(110) = V(69)*V(70) - ARP(111) = V(68)*V(70) - ARP(112) = V(70)*V(72) - ARP(113) = V(70)*V(79) - ARP(114) = V(70)*V(70) - ARP(115) = V(25)*V(74) - ARP(116) = V(25) - ARP(117) = V(51)*V(74) - ARP(118) = V(51)*V(78) - ARP(119) = V(51) - ARP(120) = V(31)*V(74) - ARP(121) = V(31)*V(78) - ARP(122) = V(31) - ARP(123) = V(61) - ARP(124) = V(61) - ARP(125) = V(61)*V(71) - ARP(126) = V(61)*V(78) - ARP(127) = V(30) - ARP(128) = V(30)*V(73) - ARP(129) = V(61)*V(75) - ARP(130) = V(60)*V(71) - ARP(131) = V(60) - ARP(132) = V(60)*V(75) - ARP(133) = V(64)*V(71) - ARP(134) = V(64) - ARP(135) = V(64)*V(75) - ARP(136) = V(46)*V(71) - ARP(137) = V(46) - ARP(138) = V(65)*V(71) - ARP(139) = V(65) - ARP(140) = V(28)*V(71) - ARP(141) = V(21)*V(71) - ARP(142) = V(29)*V(71) - ARP(143) = V(29) - ARP(144) = V(42)*V(71) - ARP(145) = V(42) - ARP(146) = V(49) - ARP(147) = V(49) - ARP(148) = V(49)*V(71) - ARP(149) = V(49)*V(75) - ARP(150) = V(44) - ARP(151) = V(44)*V(71) - ARP(152) = V(44)*V(75) - ARP(153) = V(14) - ARP(154) = V(43)*V(71) - ARP(155) = V(43)*V(75) - ARP(156) = V(37)*V(71) - ARP(157) = V(37)*V(75) - ARP(158) = V(40)*V(75) - ARP(159) = V(41)*V(71) - ARP(160) = V(41) - ARP(161) = V(41)*V(75) - ARP(162) = V(55)*V(71) - ARP(163) = V(55)*V(67) - ARP(164) = V(55)*V(75) - ARP(165) = V(55)*V(63) - ARP(166) = V(55) - ARP(167) = V(59)*V(71) - ARP(168) = V(59)*V(67) - ARP(169) = V(59)*V(63) - ARP(170) = V(59) - ARP(171) = V(57)*V(71) - ARP(172) = V(57)*V(67) - ARP(173) = V(57)*V(75) - ARP(174) = V(57) - ARP(175) = V(66)*V(71) - ARP(176) = V(66) - ARP(177) = V(62)*V(71) - ARP(178) = V(62) - ARP(179) = V(38)*V(71) - ARP(180) = V(38)*V(67) - ARP(181) = V(35)*V(71) - ARP(182) = V(35) - ARP(183) = V(36)*V(71) - ARP(184) = V(36) - ARP(185) = V(12)*V(71) - ARP(186) = V(48)*V(71) - ARP(187) = V(48)*V(67) - ARP(188) = V(48)*V(75) - ARP(189) = V(48)*V(63) - ARP(190) = V(52)*V(71) - ARP(191) = V(52)*V(67) - ARP(192) = V(52)*V(75) - ARP(193) = V(52)*V(63) - ARP(194) = V(54)*V(71) - ARP(195) = V(54)*V(67) - ARP(196) = V(54)*V(75) - ARP(197) = V(54)*V(63) - ARP(198) = V(13)*V(71) - ARP(199) = V(20)*V(71) - ARP(200) = V(39)*V(71) - ARP(201) = V(24)*V(71) - ARP(202) = V(33)*V(71) - ARP(203) = V(26)*V(71) - ARP(204) = V(34)*V(71) - ARP(205) = V(27)*V(71) - ARP(206) = V(56)*V(71) - ARP(207) = V(56)*V(67) - ARP(208) = V(56)*V(75) - ARP(209) = V(56)*V(63) - ARP(210) = V(58)*V(71) - ARP(211) = V(58)*V(67) - ARP(212) = V(58)*V(75) - ARP(213) = V(58)*V(63) - ARP(214) = V(39)*V(67) - ARP(215) = V(50)*V(71) - ARP(216) = V(50)*V(67) - ARP(217) = V(50)*V(75) - ARP(218) = V(50)*V(63) - ARP(219) = V(10) - ARP(220) = V(78) - ARP(221) = V(10) - ARP(222) = V(1) - ARP(223) = V(47) - ARP(224) = V(19) - ARP(225) = V(2) - -END SUBROUTINE ReactantProd - -! End of ReactantProd function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! JacReactantProd - Jacobian of Reactant Products vector -! Arguments : -! V - Concentrations of variable species (local) -! F - Concentrations of fixed species (local) -! JVRP - d ARP(1:NREACT)/d VAR (1:NVAR) -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE JacReactantProd ( V, F, JVRP ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! F - Concentrations of fixed species (local) - REAL(kind=dp) :: F(NFIX) -! JVRP - d ARP(1:NREACT)/d VAR (1:NVAR) - REAL(kind=dp) :: JVRP(NJVRP) - - -! Reactant Products in each equation are useful in the -! stoichiometric formulation of mass action law -! Below we compute the Jacobian of the Reactant Products vector -! w.r.t. variable species: d ARP(1:NREACT) / d Var(1:NVAR) - -! JVRP(1) = dARP(1)/dV(74) - JVRP(1) = 1 -! JVRP(2) = dARP(2)/dV(63) - JVRP(2) = F(2) -! JVRP(3) = dARP(3)/dV(63) - JVRP(3) = V(67) -! JVRP(4) = dARP(3)/dV(67) - JVRP(4) = V(63) -! JVRP(5) = dARP(4)/dV(63) - JVRP(5) = V(73)*F(2) -! JVRP(6) = dARP(4)/dV(73) - JVRP(6) = V(63)*F(2) -! JVRP(7) = dARP(5)/dV(63) - JVRP(7) = V(74) -! JVRP(8) = dARP(5)/dV(74) - JVRP(8) = V(63) -! JVRP(9) = dARP(6)/dV(63) - JVRP(9) = V(74) -! JVRP(10) = dARP(6)/dV(74) - JVRP(10) = V(63) -! JVRP(11) = dARP(7)/dV(67) - JVRP(11) = V(73) -! JVRP(12) = dARP(7)/dV(73) - JVRP(12) = V(67) -! JVRP(13) = dARP(8)/dV(67) - JVRP(13) = V(74) -! JVRP(14) = dARP(8)/dV(74) - JVRP(14) = V(67) -! JVRP(15) = dARP(9)/dV(73) - JVRP(15) = V(75) -! JVRP(16) = dARP(9)/dV(75) - JVRP(16) = V(73) -! JVRP(17) = dARP(10)/dV(73) - JVRP(17) = 2*V(73)*F(2) -! JVRP(18) = dARP(11)/dV(74) - JVRP(18) = V(75) -! JVRP(19) = dARP(11)/dV(75) - JVRP(19) = V(74) -! JVRP(20) = dARP(12)/dV(22) - JVRP(20) = 1 -! JVRP(21) = dARP(13)/dV(22) - JVRP(21) = F(1) -! JVRP(22) = dARP(14)/dV(74) - JVRP(22) = V(75) -! JVRP(23) = dARP(14)/dV(75) - JVRP(23) = V(74) -! JVRP(24) = dARP(15)/dV(75) - JVRP(24) = 1 -! JVRP(25) = dARP(16)/dV(75) - JVRP(25) = 1 -! JVRP(26) = dARP(17)/dV(67) - JVRP(26) = 1 -! JVRP(27) = dARP(18)/dV(67) - JVRP(27) = 1 -! JVRP(28) = dARP(19)/dV(11) - JVRP(28) = F(1) -! JVRP(29) = dARP(20)/dV(11) - JVRP(29) = F(2) -! JVRP(30) = dARP(21)/dV(71) - JVRP(30) = V(73) -! JVRP(31) = dARP(21)/dV(73) - JVRP(31) = V(71) -! JVRP(32) = dARP(22)/dV(23) - JVRP(32) = 1 -! JVRP(33) = dARP(23)/dV(23) - JVRP(33) = 1 -! JVRP(34) = dARP(24)/dV(23) - JVRP(34) = V(71) -! JVRP(35) = dARP(24)/dV(71) - JVRP(35) = V(23) -! JVRP(36) = dARP(25)/dV(71) - JVRP(36) = V(74) -! JVRP(37) = dARP(25)/dV(74) - JVRP(37) = V(71) -! JVRP(38) = dARP(26)/dV(71) - JVRP(38) = V(75) -! JVRP(39) = dARP(26)/dV(75) - JVRP(39) = V(71) -! JVRP(40) = dARP(27)/dV(47) - JVRP(40) = V(71) -! JVRP(41) = dARP(27)/dV(71) - JVRP(41) = V(47) -! JVRP(42) = dARP(28)/dV(47) - JVRP(42) = 1 -! JVRP(43) = dARP(29)/dV(45) - JVRP(43) = V(71) -! JVRP(44) = dARP(29)/dV(71) - JVRP(44) = V(45) -! JVRP(45) = dARP(30)/dV(67) - JVRP(45) = V(71) -! JVRP(46) = dARP(30)/dV(71) - JVRP(46) = V(67) -! JVRP(47) = dARP(31)/dV(73) - JVRP(47) = V(78) -! JVRP(48) = dARP(31)/dV(78) - JVRP(48) = V(73) -! JVRP(49) = dARP(32)/dV(74) - JVRP(49) = V(78) -! JVRP(50) = dARP(32)/dV(78) - JVRP(50) = V(74) -! JVRP(51) = dARP(33)/dV(32) - JVRP(51) = 1 -! JVRP(52) = dARP(34)/dV(32) - JVRP(52) = 1 -! JVRP(53) = dARP(35)/dV(32) - JVRP(53) = V(71) -! JVRP(54) = dARP(35)/dV(71) - JVRP(54) = V(32) -! JVRP(55) = dARP(36)/dV(67) - JVRP(55) = V(78) -! JVRP(56) = dARP(36)/dV(78) - JVRP(56) = V(67) -! JVRP(57) = dARP(37)/dV(78) - JVRP(57) = 2*V(78) -! JVRP(58) = dARP(38)/dV(78) - JVRP(58) = 2*V(78)*F(1) -! JVRP(59) = dARP(39)/dV(75) - JVRP(59) = V(78) -! JVRP(60) = dARP(39)/dV(78) - JVRP(60) = V(75) -! JVRP(61) = dARP(40)/dV(75) - JVRP(61) = 2*V(75) -! JVRP(62) = dARP(41)/dV(19) - JVRP(62) = 1 -! JVRP(63) = dARP(42)/dV(19) - JVRP(63) = V(71) -! JVRP(64) = dARP(42)/dV(71) - JVRP(64) = V(19) -! JVRP(65) = dARP(43)/dV(71) - JVRP(65) = V(78) -! JVRP(66) = dARP(43)/dV(78) - JVRP(66) = V(71) -! JVRP(67) = dARP(44)/dV(10) - JVRP(67) = V(71) -! JVRP(68) = dARP(44)/dV(71) - JVRP(68) = V(10) -! JVRP(69) = dARP(45)/dV(71) - JVRP(69) = F(2) -! JVRP(70) = dARP(46)/dV(73) - JVRP(70) = V(76) -! JVRP(71) = dARP(46)/dV(76) - JVRP(71) = V(73) -! JVRP(72) = dARP(47)/dV(76) - JVRP(72) = V(78) -! JVRP(73) = dARP(47)/dV(78) - JVRP(73) = V(76) -! JVRP(74) = dARP(48)/dV(75) - JVRP(74) = V(76) -! JVRP(75) = dARP(48)/dV(76) - JVRP(75) = V(75) -! JVRP(76) = dARP(49)/dV(76) - JVRP(76) = 2*V(76) -! JVRP(77) = dARP(50)/dV(76) - JVRP(77) = 2*V(76) -! JVRP(78) = dARP(51)/dV(73) - JVRP(78) = V(77) -! JVRP(79) = dARP(51)/dV(77) - JVRP(79) = V(73) -! JVRP(80) = dARP(52)/dV(77) - JVRP(80) = V(78) -! JVRP(81) = dARP(52)/dV(78) - JVRP(81) = V(77) -! JVRP(82) = dARP(53)/dV(75) - JVRP(82) = V(77) -! JVRP(83) = dARP(53)/dV(77) - JVRP(83) = V(75) -! JVRP(84) = dARP(54)/dV(76) - JVRP(84) = V(77) -! JVRP(85) = dARP(54)/dV(77) - JVRP(85) = V(76) -! JVRP(86) = dARP(55)/dV(77) - JVRP(86) = 2*V(77) -! JVRP(87) = dARP(56)/dV(53) - JVRP(87) = V(73) -! JVRP(88) = dARP(56)/dV(73) - JVRP(88) = V(53) -! JVRP(89) = dARP(57)/dV(53) - JVRP(89) = V(78) -! JVRP(90) = dARP(57)/dV(78) - JVRP(90) = V(53) -! JVRP(91) = dARP(58)/dV(53) - JVRP(91) = V(75) -! JVRP(92) = dARP(58)/dV(75) - JVRP(92) = V(53) -! JVRP(93) = dARP(59)/dV(53) - JVRP(93) = V(76) -! JVRP(94) = dARP(59)/dV(76) - JVRP(94) = V(53) -! JVRP(95) = dARP(60)/dV(53) - JVRP(95) = V(77) -! JVRP(96) = dARP(60)/dV(77) - JVRP(96) = V(53) -! JVRP(97) = dARP(61)/dV(53) - JVRP(97) = 2*V(53) -! JVRP(98) = dARP(62)/dV(69) - JVRP(98) = V(73) -! JVRP(99) = dARP(62)/dV(73) - JVRP(99) = V(69) -! JVRP(100) = dARP(63)/dV(69) - JVRP(100) = V(78) -! JVRP(101) = dARP(63)/dV(78) - JVRP(101) = V(69) -! JVRP(102) = dARP(64)/dV(69) - JVRP(102) = V(76) -! JVRP(103) = dARP(64)/dV(76) - JVRP(103) = V(69) -! JVRP(104) = dARP(65)/dV(69) - JVRP(104) = V(75) -! JVRP(105) = dARP(65)/dV(75) - JVRP(105) = V(69) -! JVRP(106) = dARP(66)/dV(69) - JVRP(106) = V(77) -! JVRP(107) = dARP(66)/dV(77) - JVRP(107) = V(69) -! JVRP(108) = dARP(67)/dV(53) - JVRP(108) = V(69) -! JVRP(109) = dARP(67)/dV(69) - JVRP(109) = V(53) -! JVRP(110) = dARP(68)/dV(69) - JVRP(110) = 2*V(69) -! JVRP(111) = dARP(69)/dV(68) - JVRP(111) = V(74) -! JVRP(112) = dARP(69)/dV(74) - JVRP(112) = V(68) -! JVRP(113) = dARP(70)/dV(15) - JVRP(113) = 1 -! JVRP(114) = dARP(71)/dV(68) - JVRP(114) = V(73) -! JVRP(115) = dARP(71)/dV(73) - JVRP(115) = V(68) -! JVRP(116) = dARP(72)/dV(68) - JVRP(116) = V(78) -! JVRP(117) = dARP(72)/dV(78) - JVRP(117) = V(68) -! JVRP(118) = dARP(73)/dV(68) - JVRP(118) = V(75) -! JVRP(119) = dARP(73)/dV(75) - JVRP(119) = V(68) -! JVRP(120) = dARP(74)/dV(68) - JVRP(120) = V(76) -! JVRP(121) = dARP(74)/dV(76) - JVRP(121) = V(68) -! JVRP(122) = dARP(75)/dV(68) - JVRP(122) = V(77) -! JVRP(123) = dARP(75)/dV(77) - JVRP(123) = V(68) -! JVRP(124) = dARP(76)/dV(53) - JVRP(124) = V(68) -! JVRP(125) = dARP(76)/dV(68) - JVRP(125) = V(53) -! JVRP(126) = dARP(77)/dV(68) - JVRP(126) = V(69) -! JVRP(127) = dARP(77)/dV(69) - JVRP(127) = V(68) -! JVRP(128) = dARP(78)/dV(68) - JVRP(128) = 2*V(68) -! JVRP(129) = dARP(79)/dV(72) - JVRP(129) = V(74) -! JVRP(130) = dARP(79)/dV(74) - JVRP(130) = V(72) -! JVRP(131) = dARP(80)/dV(16) - JVRP(131) = 1 -! JVRP(132) = dARP(81)/dV(72) - JVRP(132) = V(73) -! JVRP(133) = dARP(81)/dV(73) - JVRP(133) = V(72) -! JVRP(134) = dARP(82)/dV(72) - JVRP(134) = V(78) -! JVRP(135) = dARP(82)/dV(78) - JVRP(135) = V(72) -! JVRP(136) = dARP(83)/dV(72) - JVRP(136) = V(75) -! JVRP(137) = dARP(83)/dV(75) - JVRP(137) = V(72) -! JVRP(138) = dARP(84)/dV(72) - JVRP(138) = V(76) -! JVRP(139) = dARP(84)/dV(76) - JVRP(139) = V(72) -! JVRP(140) = dARP(85)/dV(72) - JVRP(140) = V(77) -! JVRP(141) = dARP(85)/dV(77) - JVRP(141) = V(72) -! JVRP(142) = dARP(86)/dV(53) - JVRP(142) = V(72) -! JVRP(143) = dARP(86)/dV(72) - JVRP(143) = V(53) -! JVRP(144) = dARP(87)/dV(69) - JVRP(144) = V(72) -! JVRP(145) = dARP(87)/dV(72) - JVRP(145) = V(69) -! JVRP(146) = dARP(88)/dV(68) - JVRP(146) = V(72) -! JVRP(147) = dARP(88)/dV(72) - JVRP(147) = V(68) -! JVRP(148) = dARP(89)/dV(72) - JVRP(148) = 2*V(72) -! JVRP(149) = dARP(90)/dV(74) - JVRP(149) = V(79) -! JVRP(150) = dARP(90)/dV(79) - JVRP(150) = V(74) -! JVRP(151) = dARP(91)/dV(17) - JVRP(151) = 1 -! JVRP(152) = dARP(92)/dV(73) - JVRP(152) = V(79) -! JVRP(153) = dARP(92)/dV(79) - JVRP(153) = V(73) -! JVRP(154) = dARP(93)/dV(78) - JVRP(154) = V(79) -! JVRP(155) = dARP(93)/dV(79) - JVRP(155) = V(78) -! JVRP(156) = dARP(94)/dV(75) - JVRP(156) = V(79) -! JVRP(157) = dARP(94)/dV(79) - JVRP(157) = V(75) -! JVRP(158) = dARP(95)/dV(76) - JVRP(158) = V(79) -! JVRP(159) = dARP(95)/dV(79) - JVRP(159) = V(76) -! JVRP(160) = dARP(96)/dV(77) - JVRP(160) = V(79) -! JVRP(161) = dARP(96)/dV(79) - JVRP(161) = V(77) -! JVRP(162) = dARP(97)/dV(53) - JVRP(162) = V(79) -! JVRP(163) = dARP(97)/dV(79) - JVRP(163) = V(53) -! JVRP(164) = dARP(98)/dV(69) - JVRP(164) = V(79) -! JVRP(165) = dARP(98)/dV(79) - JVRP(165) = V(69) -! JVRP(166) = dARP(99)/dV(68) - JVRP(166) = V(79) -! JVRP(167) = dARP(99)/dV(79) - JVRP(167) = V(68) -! JVRP(168) = dARP(100)/dV(72) - JVRP(168) = V(79) -! JVRP(169) = dARP(100)/dV(79) - JVRP(169) = V(72) -! JVRP(170) = dARP(101)/dV(79) - JVRP(170) = 2*V(79) -! JVRP(171) = dARP(102)/dV(70) - JVRP(171) = V(74) -! JVRP(172) = dARP(102)/dV(74) - JVRP(172) = V(70) -! JVRP(173) = dARP(103)/dV(18) - JVRP(173) = 1 -! JVRP(174) = dARP(104)/dV(70) - JVRP(174) = V(73) -! JVRP(175) = dARP(104)/dV(73) - JVRP(175) = V(70) -! JVRP(176) = dARP(105)/dV(70) - JVRP(176) = V(78) -! JVRP(177) = dARP(105)/dV(78) - JVRP(177) = V(70) -! JVRP(178) = dARP(106)/dV(70) - JVRP(178) = V(75) -! JVRP(179) = dARP(106)/dV(75) - JVRP(179) = V(70) -! JVRP(180) = dARP(107)/dV(70) - JVRP(180) = V(76) -! JVRP(181) = dARP(107)/dV(76) - JVRP(181) = V(70) -! JVRP(182) = dARP(108)/dV(70) - JVRP(182) = V(77) -! JVRP(183) = dARP(108)/dV(77) - JVRP(183) = V(70) -! JVRP(184) = dARP(109)/dV(53) - JVRP(184) = V(70) -! JVRP(185) = dARP(109)/dV(70) - JVRP(185) = V(53) -! JVRP(186) = dARP(110)/dV(69) - JVRP(186) = V(70) -! JVRP(187) = dARP(110)/dV(70) - JVRP(187) = V(69) -! JVRP(188) = dARP(111)/dV(68) - JVRP(188) = V(70) -! JVRP(189) = dARP(111)/dV(70) - JVRP(189) = V(68) -! JVRP(190) = dARP(112)/dV(70) - JVRP(190) = V(72) -! JVRP(191) = dARP(112)/dV(72) - JVRP(191) = V(70) -! JVRP(192) = dARP(113)/dV(70) - JVRP(192) = V(79) -! JVRP(193) = dARP(113)/dV(79) - JVRP(193) = V(70) -! JVRP(194) = dARP(114)/dV(70) - JVRP(194) = 2*V(70) -! JVRP(195) = dARP(115)/dV(25) - JVRP(195) = V(74) -! JVRP(196) = dARP(115)/dV(74) - JVRP(196) = V(25) -! JVRP(197) = dARP(116)/dV(25) - JVRP(197) = 1 -! JVRP(198) = dARP(117)/dV(51) - JVRP(198) = V(74) -! JVRP(199) = dARP(117)/dV(74) - JVRP(199) = V(51) -! JVRP(200) = dARP(118)/dV(51) - JVRP(200) = V(78) -! JVRP(201) = dARP(118)/dV(78) - JVRP(201) = V(51) -! JVRP(202) = dARP(119)/dV(51) - JVRP(202) = 1 -! JVRP(203) = dARP(120)/dV(31) - JVRP(203) = V(74) -! JVRP(204) = dARP(120)/dV(74) - JVRP(204) = V(31) -! JVRP(205) = dARP(121)/dV(31) - JVRP(205) = V(78) -! JVRP(206) = dARP(121)/dV(78) - JVRP(206) = V(31) -! JVRP(207) = dARP(122)/dV(31) - JVRP(207) = 1 -! JVRP(208) = dARP(123)/dV(61) - JVRP(208) = 1 -! JVRP(209) = dARP(124)/dV(61) - JVRP(209) = 1 -! JVRP(210) = dARP(125)/dV(61) - JVRP(210) = V(71) -! JVRP(211) = dARP(125)/dV(71) - JVRP(211) = V(61) -! JVRP(212) = dARP(126)/dV(61) - JVRP(212) = V(78) -! JVRP(213) = dARP(126)/dV(78) - JVRP(213) = V(61) -! JVRP(214) = dARP(127)/dV(30) - JVRP(214) = 1 -! JVRP(215) = dARP(128)/dV(30) - JVRP(215) = V(73) -! JVRP(216) = dARP(128)/dV(73) - JVRP(216) = V(30) -! JVRP(217) = dARP(129)/dV(61) - JVRP(217) = V(75) -! JVRP(218) = dARP(129)/dV(75) - JVRP(218) = V(61) -! JVRP(219) = dARP(130)/dV(60) - JVRP(219) = V(71) -! JVRP(220) = dARP(130)/dV(71) - JVRP(220) = V(60) -! JVRP(221) = dARP(131)/dV(60) - JVRP(221) = 1 -! JVRP(222) = dARP(132)/dV(60) - JVRP(222) = V(75) -! JVRP(223) = dARP(132)/dV(75) - JVRP(223) = V(60) -! JVRP(224) = dARP(133)/dV(64) - JVRP(224) = V(71) -! JVRP(225) = dARP(133)/dV(71) - JVRP(225) = V(64) -! JVRP(226) = dARP(134)/dV(64) - JVRP(226) = 1 -! JVRP(227) = dARP(135)/dV(64) - JVRP(227) = V(75) -! JVRP(228) = dARP(135)/dV(75) - JVRP(228) = V(64) -! JVRP(229) = dARP(136)/dV(46) - JVRP(229) = V(71) -! JVRP(230) = dARP(136)/dV(71) - JVRP(230) = V(46) -! JVRP(231) = dARP(137)/dV(46) - JVRP(231) = 1 -! JVRP(232) = dARP(138)/dV(65) - JVRP(232) = V(71) -! JVRP(233) = dARP(138)/dV(71) - JVRP(233) = V(65) -! JVRP(234) = dARP(139)/dV(65) - JVRP(234) = 1 -! JVRP(235) = dARP(140)/dV(28) - JVRP(235) = V(71) -! JVRP(236) = dARP(140)/dV(71) - JVRP(236) = V(28) -! JVRP(237) = dARP(141)/dV(21) - JVRP(237) = V(71) -! JVRP(238) = dARP(141)/dV(71) - JVRP(238) = V(21) -! JVRP(239) = dARP(142)/dV(29) - JVRP(239) = V(71) -! JVRP(240) = dARP(142)/dV(71) - JVRP(240) = V(29) -! JVRP(241) = dARP(143)/dV(29) - JVRP(241) = 1 -! JVRP(242) = dARP(144)/dV(42) - JVRP(242) = V(71) -! JVRP(243) = dARP(144)/dV(71) - JVRP(243) = V(42) -! JVRP(244) = dARP(145)/dV(42) - JVRP(244) = 1 -! JVRP(245) = dARP(146)/dV(49) - JVRP(245) = 1 -! JVRP(246) = dARP(147)/dV(49) - JVRP(246) = 1 -! JVRP(247) = dARP(148)/dV(49) - JVRP(247) = V(71) -! JVRP(248) = dARP(148)/dV(71) - JVRP(248) = V(49) -! JVRP(249) = dARP(149)/dV(49) - JVRP(249) = V(75) -! JVRP(250) = dARP(149)/dV(75) - JVRP(250) = V(49) -! JVRP(251) = dARP(150)/dV(44) - JVRP(251) = 1 -! JVRP(252) = dARP(151)/dV(44) - JVRP(252) = V(71) -! JVRP(253) = dARP(151)/dV(71) - JVRP(253) = V(44) -! JVRP(254) = dARP(152)/dV(44) - JVRP(254) = V(75) -! JVRP(255) = dARP(152)/dV(75) - JVRP(255) = V(44) -! JVRP(256) = dARP(153)/dV(14) - JVRP(256) = 1 -! JVRP(257) = dARP(154)/dV(43) - JVRP(257) = V(71) -! JVRP(258) = dARP(154)/dV(71) - JVRP(258) = V(43) -! JVRP(259) = dARP(155)/dV(43) - JVRP(259) = V(75) -! JVRP(260) = dARP(155)/dV(75) - JVRP(260) = V(43) -! JVRP(261) = dARP(156)/dV(37) - JVRP(261) = V(71) -! JVRP(262) = dARP(156)/dV(71) - JVRP(262) = V(37) -! JVRP(263) = dARP(157)/dV(37) - JVRP(263) = V(75) -! JVRP(264) = dARP(157)/dV(75) - JVRP(264) = V(37) -! JVRP(265) = dARP(158)/dV(40) - JVRP(265) = V(75) -! JVRP(266) = dARP(158)/dV(75) - JVRP(266) = V(40) -! JVRP(267) = dARP(159)/dV(41) - JVRP(267) = V(71) -! JVRP(268) = dARP(159)/dV(71) - JVRP(268) = V(41) -! JVRP(269) = dARP(160)/dV(41) - JVRP(269) = 1 -! JVRP(270) = dARP(161)/dV(41) - JVRP(270) = V(75) -! JVRP(271) = dARP(161)/dV(75) - JVRP(271) = V(41) -! JVRP(272) = dARP(162)/dV(55) - JVRP(272) = V(71) -! JVRP(273) = dARP(162)/dV(71) - JVRP(273) = V(55) -! JVRP(274) = dARP(163)/dV(55) - JVRP(274) = V(67) -! JVRP(275) = dARP(163)/dV(67) - JVRP(275) = V(55) -! JVRP(276) = dARP(164)/dV(55) - JVRP(276) = V(75) -! JVRP(277) = dARP(164)/dV(75) - JVRP(277) = V(55) -! JVRP(278) = dARP(165)/dV(55) - JVRP(278) = V(63) -! JVRP(279) = dARP(165)/dV(63) - JVRP(279) = V(55) -! JVRP(280) = dARP(166)/dV(55) - JVRP(280) = 1 -! JVRP(281) = dARP(167)/dV(59) - JVRP(281) = V(71) -! JVRP(282) = dARP(167)/dV(71) - JVRP(282) = V(59) -! JVRP(283) = dARP(168)/dV(59) - JVRP(283) = V(67) -! JVRP(284) = dARP(168)/dV(67) - JVRP(284) = V(59) -! JVRP(285) = dARP(169)/dV(59) - JVRP(285) = V(63) -! JVRP(286) = dARP(169)/dV(63) - JVRP(286) = V(59) -! JVRP(287) = dARP(170)/dV(59) - JVRP(287) = 1 -! JVRP(288) = dARP(171)/dV(57) - JVRP(288) = V(71) -! JVRP(289) = dARP(171)/dV(71) - JVRP(289) = V(57) -! JVRP(290) = dARP(172)/dV(57) - JVRP(290) = V(67) -! JVRP(291) = dARP(172)/dV(67) - JVRP(291) = V(57) -! JVRP(292) = dARP(173)/dV(57) - JVRP(292) = V(75) -! JVRP(293) = dARP(173)/dV(75) - JVRP(293) = V(57) -! JVRP(294) = dARP(174)/dV(57) - JVRP(294) = 1 -! JVRP(295) = dARP(175)/dV(66) - JVRP(295) = V(71) -! JVRP(296) = dARP(175)/dV(71) - JVRP(296) = V(66) -! JVRP(297) = dARP(176)/dV(66) - JVRP(297) = 1 -! JVRP(298) = dARP(177)/dV(62) - JVRP(298) = V(71) -! JVRP(299) = dARP(177)/dV(71) - JVRP(299) = V(62) -! JVRP(300) = dARP(178)/dV(62) - JVRP(300) = 1 -! JVRP(301) = dARP(179)/dV(38) - JVRP(301) = V(71) -! JVRP(302) = dARP(179)/dV(71) - JVRP(302) = V(38) -! JVRP(303) = dARP(180)/dV(38) - JVRP(303) = V(67) -! JVRP(304) = dARP(180)/dV(67) - JVRP(304) = V(38) -! JVRP(305) = dARP(181)/dV(35) - JVRP(305) = V(71) -! JVRP(306) = dARP(181)/dV(71) - JVRP(306) = V(35) -! JVRP(307) = dARP(182)/dV(35) - JVRP(307) = 1 -! JVRP(308) = dARP(183)/dV(36) - JVRP(308) = V(71) -! JVRP(309) = dARP(183)/dV(71) - JVRP(309) = V(36) -! JVRP(310) = dARP(184)/dV(36) - JVRP(310) = 1 -! JVRP(311) = dARP(185)/dV(12) - JVRP(311) = V(71) -! JVRP(312) = dARP(185)/dV(71) - JVRP(312) = V(12) -! JVRP(313) = dARP(186)/dV(48) - JVRP(313) = V(71) -! JVRP(314) = dARP(186)/dV(71) - JVRP(314) = V(48) -! JVRP(315) = dARP(187)/dV(48) - JVRP(315) = V(67) -! JVRP(316) = dARP(187)/dV(67) - JVRP(316) = V(48) -! JVRP(317) = dARP(188)/dV(48) - JVRP(317) = V(75) -! JVRP(318) = dARP(188)/dV(75) - JVRP(318) = V(48) -! JVRP(319) = dARP(189)/dV(48) - JVRP(319) = V(63) -! JVRP(320) = dARP(189)/dV(63) - JVRP(320) = V(48) -! JVRP(321) = dARP(190)/dV(52) - JVRP(321) = V(71) -! JVRP(322) = dARP(190)/dV(71) - JVRP(322) = V(52) -! JVRP(323) = dARP(191)/dV(52) - JVRP(323) = V(67) -! JVRP(324) = dARP(191)/dV(67) - JVRP(324) = V(52) -! JVRP(325) = dARP(192)/dV(52) - JVRP(325) = V(75) -! JVRP(326) = dARP(192)/dV(75) - JVRP(326) = V(52) -! JVRP(327) = dARP(193)/dV(52) - JVRP(327) = V(63) -! JVRP(328) = dARP(193)/dV(63) - JVRP(328) = V(52) -! JVRP(329) = dARP(194)/dV(54) - JVRP(329) = V(71) -! JVRP(330) = dARP(194)/dV(71) - JVRP(330) = V(54) -! JVRP(331) = dARP(195)/dV(54) - JVRP(331) = V(67) -! JVRP(332) = dARP(195)/dV(67) - JVRP(332) = V(54) -! JVRP(333) = dARP(196)/dV(54) - JVRP(333) = V(75) -! JVRP(334) = dARP(196)/dV(75) - JVRP(334) = V(54) -! JVRP(335) = dARP(197)/dV(54) - JVRP(335) = V(63) -! JVRP(336) = dARP(197)/dV(63) - JVRP(336) = V(54) -! JVRP(337) = dARP(198)/dV(13) - JVRP(337) = V(71) -! JVRP(338) = dARP(198)/dV(71) - JVRP(338) = V(13) -! JVRP(339) = dARP(199)/dV(20) - JVRP(339) = V(71) -! JVRP(340) = dARP(199)/dV(71) - JVRP(340) = V(20) -! JVRP(341) = dARP(200)/dV(39) - JVRP(341) = V(71) -! JVRP(342) = dARP(200)/dV(71) - JVRP(342) = V(39) -! JVRP(343) = dARP(201)/dV(24) - JVRP(343) = V(71) -! JVRP(344) = dARP(201)/dV(71) - JVRP(344) = V(24) -! JVRP(345) = dARP(202)/dV(33) - JVRP(345) = V(71) -! JVRP(346) = dARP(202)/dV(71) - JVRP(346) = V(33) -! JVRP(347) = dARP(203)/dV(26) - JVRP(347) = V(71) -! JVRP(348) = dARP(203)/dV(71) - JVRP(348) = V(26) -! JVRP(349) = dARP(204)/dV(34) - JVRP(349) = V(71) -! JVRP(350) = dARP(204)/dV(71) - JVRP(350) = V(34) -! JVRP(351) = dARP(205)/dV(27) - JVRP(351) = V(71) -! JVRP(352) = dARP(205)/dV(71) - JVRP(352) = V(27) -! JVRP(353) = dARP(206)/dV(56) - JVRP(353) = V(71) -! JVRP(354) = dARP(206)/dV(71) - JVRP(354) = V(56) -! JVRP(355) = dARP(207)/dV(56) - JVRP(355) = V(67) -! JVRP(356) = dARP(207)/dV(67) - JVRP(356) = V(56) -! JVRP(357) = dARP(208)/dV(56) - JVRP(357) = V(75) -! JVRP(358) = dARP(208)/dV(75) - JVRP(358) = V(56) -! JVRP(359) = dARP(209)/dV(56) - JVRP(359) = V(63) -! JVRP(360) = dARP(209)/dV(63) - JVRP(360) = V(56) -! JVRP(361) = dARP(210)/dV(58) - JVRP(361) = V(71) -! JVRP(362) = dARP(210)/dV(71) - JVRP(362) = V(58) -! JVRP(363) = dARP(211)/dV(58) - JVRP(363) = V(67) -! JVRP(364) = dARP(211)/dV(67) - JVRP(364) = V(58) -! JVRP(365) = dARP(212)/dV(58) - JVRP(365) = V(75) -! JVRP(366) = dARP(212)/dV(75) - JVRP(366) = V(58) -! JVRP(367) = dARP(213)/dV(58) - JVRP(367) = V(63) -! JVRP(368) = dARP(213)/dV(63) - JVRP(368) = V(58) -! JVRP(369) = dARP(214)/dV(39) - JVRP(369) = V(67) -! JVRP(370) = dARP(214)/dV(67) - JVRP(370) = V(39) -! JVRP(371) = dARP(215)/dV(50) - JVRP(371) = V(71) -! JVRP(372) = dARP(215)/dV(71) - JVRP(372) = V(50) -! JVRP(373) = dARP(216)/dV(50) - JVRP(373) = V(67) -! JVRP(374) = dARP(216)/dV(67) - JVRP(374) = V(50) -! JVRP(375) = dARP(217)/dV(50) - JVRP(375) = V(75) -! JVRP(376) = dARP(217)/dV(75) - JVRP(376) = V(50) -! JVRP(377) = dARP(218)/dV(50) - JVRP(377) = V(63) -! JVRP(378) = dARP(218)/dV(63) - JVRP(378) = V(50) -! JVRP(379) = dARP(219)/dV(10) - JVRP(379) = 1 -! JVRP(380) = dARP(220)/dV(78) - JVRP(380) = 1 -! JVRP(381) = dARP(221)/dV(10) - JVRP(381) = 1 -! JVRP(382) = dARP(222)/dV(1) - JVRP(382) = 1 -! JVRP(383) = dARP(223)/dV(47) - JVRP(383) = 1 -! JVRP(384) = dARP(224)/dV(19) - JVRP(384) = 1 -! JVRP(385) = dARP(225)/dV(2) - JVRP(385) = 1 - -END SUBROUTINE JacReactantProd - -! End of JacReactantProd function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -! Begin Derivative w.r.t. Rate Coefficients - -! ------------------------------------------------------------------------------ -! Subroutine for the derivative of Fun with respect to rate coefficients -! ----------------------------------------------------------------------------- - - SUBROUTINE dFun_dRcoeff( V, F, NCOEFF, JCOEFF, DFDR ) - - USE SAPRC99_Parameters - USE SAPRC99_StoichiomSP - IMPLICIT NONE - -! V - Concentrations of variable/radical/fixed species - REAL(kind=dp) V(NVAR), F(NFIX) -! NCOEFF - the number of rate coefficients with respect to which we differentiate - INTEGER NCOEFF -! JCOEFF - a vector of integers containing the indices of reactions (rate -! coefficients) with respect to which we differentiate - INTEGER JCOEFF(NCOEFF) -! DFDR - a matrix containg derivative values; specifically, -! column j contains d Fun(1:NVAR) / d RCT( JCOEFF(j) ) -! for each 1 <= j <= NCOEFF -! This matrix is stored in a column-wise linearized format - REAL(kind=dp) DFDR(NVAR*NCOEFF) - -! Local vector with reactant products - REAL(kind=dp) A_RPROD(NREACT) - REAL(kind=dp) aj - INTEGER i,j,k - -! Compute the reactant products of all reactions - CALL ReactantProd ( V, F, A_RPROD ) - -! Compute the derivatives by multiplying column JCOEFF(j) of the stoichiometric matrix with A_RPROD - DO j=1,NCOEFF -! Initialize the j-th column of derivative matrix to zero - DO i=1,NVAR - DFDR(i+NVAR*(j-1)) = 0.0_dp - END DO -! Column JCOEFF(j) in the stoichiometric matrix times the -! reactant product of the JCOEFF(j)-th reaction -! give the j-th column of the derivative matrix - aj = A_RPROD(JCOEFF(j)) - DO k=CCOL_STOICM(JCOEFF(j)),CCOL_STOICM(JCOEFF(j)+1)-1 - DFDR(IROW_STOICM(k)+NVAR*(j-1)) = STOICM(k)*aj - END DO - END DO - - END SUBROUTINE dFun_dRcoeff - -! End Derivative w.r.t. Rate Coefficients - - -! Begin Jacobian Derivative w.r.t. Rate Coefficients - -! ------------------------------------------------------------------------------ -! Subroutine for the derivative of Jac with respect to rate coefficients -! Times a user vector -! ----------------------------------------------------------------------------- - - SUBROUTINE dJac_dRcoeff( V, F, U, NCOEFF, JCOEFF, DJDR ) - - USE SAPRC99_Parameters - USE SAPRC99_StoichiomSP - IMPLICIT NONE - -! V - Concentrations of variable/fixed species - REAL(kind=dp) V(NVAR), F(NFIX) -! U - User-supplied Vector - REAL(kind=dp) U(NVAR) -! NCOEFF - the number of rate coefficients with respect to which we differentiate - INTEGER NCOEFF -! JCOEFF - a vector of integers containing the indices of reactions (rate -! coefficients) with respect to which we differentiate - INTEGER JCOEFF(NCOEFF) -! DFDR - a matrix containg derivative values; specifically, -! column j contains d Jac(1:NVAR) / d RCT( JCOEFF(j) ) * U -! for each 1 <= j <= NCOEFF -! This matrix is stored in a column-wise linearized format - REAL(kind=dp) DJDR(NVAR*NCOEFF) - -! Local vector for Jacobian of reactant products - REAL(kind=dp) JV_RPROD(NJVRP) - REAL(kind=dp) aj - INTEGER i,j,k - -! Compute the Jacobian of all reactant products - CALL JacReactantProd( V, F, JV_RPROD ) - -! Compute the derivatives by multiplying column JCOEFF(j) of the stoichiometric matrix with A_PROD - DO j=1,NCOEFF -! Initialize the j-th column of derivative matrix to zero - DO i=1,NVAR - DJDR(i+NVAR*(j-1)) = 0.0_dp - END DO -! Column JCOEFF(j) in the stoichiometric matrix times the -! ( Gradient of reactant product of the JCOEFF(j)-th reaction X user vector ) -! give the j-th column of the derivative matrix -! -! Row JCOEFF(j) of JV_RPROD times the user vector - aj = 0.0_dp - DO k=CROW_JVRP(JCOEFF(j)),CROW_JVRP(JCOEFF(j)+1)-1 - aj = aj + JV_RPROD(k)*U(ICOL_JVRP(k)) - END DO -! Column JCOEFF(j) of Stoichiom. matrix times aj - DO k=CCOL_STOICM(JCOEFF(j)),CCOL_STOICM(JCOEFF(j)+1)-1 - DJDR(IROW_STOICM(k)+NVAR*(j-1)) = STOICM(k)*aj - END DO - END DO - - END SUBROUTINE dJac_dRcoeff - -! End Jacobian Derivative w.r.t. Rate Coefficients - - -END MODULE SAPRC99_Stoichiom - diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Stoichiom.o b/boxmox/compiled_mechs/SAPRC99/SAPRC99_Stoichiom.o deleted file mode 100644 index 48fcd5f9800a74ccf93746aa2df0753d299103ab..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Stoichiom.o and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_StoichiomSP.f90 b/boxmox/compiled_mechs/SAPRC99/SAPRC99_StoichiomSP.f90 deleted file mode 100644 index 5611e98f351c65d680b2575b4b0452c72c6187af..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/SAPRC99/SAPRC99_StoichiomSP.f90 +++ /dev/null @@ -1,579 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Sparse Stoichiometric Data Structures File -! -! Generated by KPP-2.2.3 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 : SAPRC99_StoichiomSP.f90 -! Time : Thu Oct 8 08:22:39 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_SAPRC99_30885_BOXMOX -! Equation file : SAPRC99.kpp -! Output root filename : SAPRC99 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE SAPRC99_StoichiomSP - - USE SAPRC99_Precision - PUBLIC - SAVE - - -! Row-compressed sparse data for the Jacobian of reaction products JVRP - - INTEGER, PARAMETER, DIMENSION(226) :: CROW_JVRP = (/ & - 1, 2, 3, 5, 7, 9, 11, 13, 15, 17, 18, 20, & - 21, 22, 24, 25, 26, 27, 28, 29, 30, 32, 33, 34, & - 36, 38, 40, 42, 43, 45, 47, 49, 51, 52, 53, 55, & - 57, 58, 59, 61, 62, 63, 65, 67, 69, 70, 72, 74, & - 76, 77, 78, 80, 82, 84, 86, 87, 89, 91, 93, 95, & - 97, 98,100,102,104,106,108,110,111,113,114,116, & - 118,120,122,124,126,128,129,131,132,134,136,138, & - 140,142,144,146,148,149,151,152,154,156,158,160, & - 162,164,166,168,170,171,173,174,176,178,180,182, & - 184,186,188,190,192,194,195,197,198,200,202,203, & - 205,207,208,209,210,212,214,215,217,219,221,222, & - 224,226,227,229,231,232,234,235,237,239,241,242, & - 244,245,246,247,249,251,252,254,256,257,259,261, & - 263,265,267,269,270,272,274,276,278,280,281,283, & - 285,287,288,290,292,294,295,297,298,300,301,303, & - 305,307,308,310,311,313,315,317,319,321,323,325, & - 327,329,331,333,335,337,339,341,343,345,347,349, & - 351,353,355,357,359,361,363,365,367,369,371,373, & - 375,377,379,380,381,382,383,384,385,386 /) - - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_JVRP_0 = (/ & - 74, 63, 63, 67, 63, 73, 63, 74, 63, 74, 67, 73, & - 67, 74, 73, 75, 73, 74, 75, 22, 22, 74, 75, 75, & - 75, 67, 67, 11, 11, 71, 73, 23, 23, 23, 71, 71, & - 74, 71, 75, 47, 71, 47, 45, 71, 67, 71, 73, 78, & - 74, 78, 32, 32, 32, 71, 67, 78, 78, 78, 75, 78, & - 75, 19, 19, 71, 71, 78, 10, 71, 71, 73, 76, 76, & - 78, 75, 76, 76, 76, 73, 77, 77, 78, 75, 77, 76, & - 77, 77, 53, 73, 53, 78, 53, 75, 53, 76, 53, 77, & - 53, 69, 73, 69, 78, 69, 76, 69, 75, 69, 77, 53, & - 69, 69, 68, 74, 15, 68, 73, 68, 78, 68, 75, 68, & - 76, 68, 77, 53, 68, 68, 69, 68, 72, 74, 16, 72, & - 73, 72, 78, 72, 75, 72, 76, 72, 77, 53, 72, 69, & - 72, 68, 72, 72, 74, 79, 17, 73, 79, 78, 79, 75, & - 79, 76, 79, 77, 79, 53, 79, 69, 79, 68, 79, 72, & - 79, 79, 70, 74, 18, 70, 73, 70, 78, 70, 75, 70, & - 76, 70, 77, 53, 70, 69, 70, 68, 70, 70, 72, 70, & - 79, 70, 25, 74, 25, 51, 74, 51, 78, 51, 31, 74, & - 31, 78, 31, 61, 61, 61, 71, 61, 78, 30, 30, 73, & - 61, 75, 60, 71, 60, 60, 75, 64, 71, 64, 64, 75, & - 46, 71, 46, 65, 71, 65, 28, 71, 21, 71, 29, 71, & - 29, 42, 71, 42, 49, 49, 49, 71, 49, 75, 44, 44, & - 71, 44, 75, 14, 43, 71, 43, 75, 37, 71, 37, 75, & - 40, 75, 41, 71, 41, 41, 75, 55, 71, 55, 67, 55, & - 75, 55, 63, 55, 59, 71, 59, 67, 59, 63, 59, 57, & - 71, 57, 67, 57, 75, 57, 66, 71, 66, 62, 71, 62, & - 38, 71, 38, 67, 35, 71, 35, 36, 71, 36, 12, 71, & - 48, 71, 48, 67, 48, 75, 48, 63, 52, 71, 52, 67, & - 52, 75, 52, 63, 54, 71, 54, 67, 54, 75, 54, 63, & - 13, 71, 20, 71, 39, 71, 24, 71, 33, 71, 26, 71, & - 34, 71, 27, 71, 56, 71, 56, 67, 56, 75, 56, 63 /) - INTEGER, PARAMETER, DIMENSION(25) :: ICOL_JVRP_1 = (/ & - 58, 71, 58, 67, 58, 75, 58, 63, 39, 67, 50, 71, & - 50, 67, 50, 75, 50, 63, 10, 78, 10, 1, 47, 19, & - 2 /) - INTEGER, PARAMETER, DIMENSION(385) :: ICOL_JVRP = (/& - ICOL_JVRP_0, ICOL_JVRP_1 /) - - INTEGER, PARAMETER, DIMENSION(360) :: IROW_JVRP_0 = (/ & - 1, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, & - 8, 8, 9, 9, 10, 11, 11, 12, 13, 14, 14, 15, & - 16, 17, 18, 19, 20, 21, 21, 22, 23, 24, 24, 25, & - 25, 26, 26, 27, 27, 28, 29, 29, 30, 30, 31, 31, & - 32, 32, 33, 34, 35, 35, 36, 36, 37, 38, 39, 39, & - 40, 41, 42, 42, 43, 43, 44, 44, 45, 46, 46, 47, & - 47, 48, 48, 49, 50, 51, 51, 52, 52, 53, 53, 54, & - 54, 55, 56, 56, 57, 57, 58, 58, 59, 59, 60, 60, & - 61, 62, 62, 63, 63, 64, 64, 65, 65, 66, 66, 67, & - 67, 68, 69, 69, 70, 71, 71, 72, 72, 73, 73, 74, & - 74, 75, 75, 76, 76, 77, 77, 78, 79, 79, 80, 81, & - 81, 82, 82, 83, 83, 84, 84, 85, 85, 86, 86, 87, & - 87, 88, 88, 89, 90, 90, 91, 92, 92, 93, 93, 94, & - 94, 95, 95, 96, 96, 97, 97, 98, 98, 99, 99,100, & - 100,101,102,102,103,104,104,105,105,106,106,107, & - 107,108,108,109,109,110,110,111,111,112,112,113, & - 113,114,115,115,116,117,117,118,118,119,120,120, & - 121,121,122,123,124,125,125,126,126,127,128,128, & - 129,129,130,130,131,132,132,133,133,134,135,135, & - 136,136,137,138,138,139,140,140,141,141,142,142, & - 143,144,144,145,146,147,148,148,149,149,150,151, & - 151,152,152,153,154,154,155,155,156,156,157,157, & - 158,158,159,159,160,161,161,162,162,163,163,164, & - 164,165,165,166,167,167,168,168,169,169,170,171, & - 171,172,172,173,173,174,175,175,176,177,177,178, & - 179,179,180,180,181,181,182,183,183,184,185,185, & - 186,186,187,187,188,188,189,189,190,190,191,191, & - 192,192,193,193,194,194,195,195,196,196,197,197, & - 198,198,199,199,200,200,201,201,202,202,203,203, & - 204,204,205,205,206,206,207,207,208,208,209,209 /) - INTEGER, PARAMETER, DIMENSION(25) :: IROW_JVRP_1 = (/ & - 210,210,211,211,212,212,213,213,214,214,215,215, & - 216,216,217,217,218,218,219,220,221,222,223,224, & - 225 /) - INTEGER, PARAMETER, DIMENSION(385) :: IROW_JVRP = (/& - IROW_JVRP_0, IROW_JVRP_1 /) - - - -! Stoichiometric Matrix in Compressed Column Sparse Format - - - INTEGER, PARAMETER, DIMENSION(226) :: CCOL_STOICM = (/ & - 1, 4, 6, 8, 11, 14, 17, 20, 23, 26, 28, 31, & - 34, 36, 38, 40, 43, 45, 47, 49, 51, 54, 57, 60, & - 63, 66, 70, 73, 76, 79, 82, 86, 89, 92, 97,100, & - 103,105,107,112,114,116,119,121,125,127,132,135, & - 140,143,146,150,153,157,162,164,167,168,171,172, & - 173,173,176,179,186,191,196,197,201,204,207,211, & - 216,220,224,227,228,232,234,237,240,245,250,255, & - 259,262,263,267,272,275,278,281,286,291,296,300, & - 303,304,308,313,319,322,325,328,333,338,343,347, & - 350,351,354,357,363,369,372,375,378,381,384,386, & - 390,393,395,398,400,404,407,410,415,420,423,427, & - 431,438,443,447,452,455,465,469,473,479,483,487, & - 491,495,498,501,506,512,516,520,525,527,532,536, & - 541,545,549,552,554,558,566,576,582,585,593,602, & - 612,616,621,634,648,659,667,678,687,700,712,717, & - 723,728,736,741,749,752,757,764,768,777,786,800, & - 807,815,823,841,849,853,857,863,871,882,896,907, & - 921,934,944,960,969,974,987,1010,1025,1035,1041,1048, & - 1060,1066,1071,1073,1074,1075,1076,1077,1078,1079 /) - - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_0 = (/ & - 63, 73, 74, 63, 67, 63, 67, 63, 73, 74, 63, 73, & - 74, 63, 74, 75, 67, 73, 74, 67, 74, 75, 73, 74, & - 75, 73, 74, 22, 74, 75, 22, 74, 75, 22, 47, 73, & - 75, 73, 75, 63, 74, 75, 63, 67, 11, 67, 11, 71, & - 11, 63, 23, 71, 73, 23, 71, 73, 23, 74, 78, 23, & - 71, 74, 47, 71, 74, 71, 74, 75, 78, 47, 71, 75, & - 47, 71, 74, 45, 71, 78, 67, 71, 78, 71, 73, 74, & - 78, 32, 74, 78, 32, 74, 78, 32, 71, 74, 75, 78, & - 32, 71, 74, 67, 71, 78, 19, 78, 19, 78, 47, 71, & - 74, 75, 78, 74, 75, 19, 71, 19, 71, 78, 71, 78, & - 1, 10, 71, 78, 71, 78, 61, 73, 74, 76, 78, 29, & - 76, 78, 61, 74, 75, 76, 78, 28, 61, 76, 61, 76, & - 78, 73, 74, 77, 78, 42, 77, 78, 74, 75, 77, 78, & - 28, 61, 76, 77, 78, 77, 78, 53, 73, 74, 53, 53, & - 74, 75, 53, 53, 62, 69, 73, 42, 69, 78, 28, 61, & - 65, 66, 69, 76, 78, 65, 69, 74, 75, 78, 65, 66, & - 69, 77, 78, 53, 65, 66, 69, 78, 15, 68, 74, 15, & - 68, 74, 68, 73, 74, 76, 4, 6, 67, 68, 78, 68, & - 74, 75, 76, 4, 61, 68, 76, 4, 68, 77, 53, 4, & - 66, 68, 69, 68, 76, 16, 72, 74, 16, 72, 74, 60, & - 72, 73, 74, 77, 5, 7, 67, 72, 78, 60, 72, 74, & - 75, 77, 5, 61, 72, 76, 5, 72, 77, 53, 5, 66, & - 69, 72, 60, 68, 72, 76, 77, 60, 72, 77, 17, 74, & - 79, 17, 74, 79, 51, 53, 73, 74, 79, 5, 7, 67, & - 78, 79, 51, 53, 74, 75, 79, 5, 61, 76, 79, 5, & - 77, 79, 53, 5, 66, 69, 79, 51, 53, 68, 76, 79, & - 51, 53, 60, 72, 77, 79, 51, 53, 79, 18, 70, 74, & - 18, 70, 74, 61, 68, 70, 73, 74, 5, 7, 67, 70, & - 78, 61, 68, 70, 74, 75, 5, 61, 70, 76, 5, 70, & - 77, 53, 5, 69, 70, 61, 70, 76, 60, 61, 68, 70 /) - INTEGER, PARAMETER, DIMENSION(360) :: IROW_STOICM_1 = (/ & - 72, 77, 51, 53, 61, 68, 70, 79, 61, 68, 70, 25, & - 62, 74, 25, 46, 76, 40, 51, 74, 43, 51, 78, 43, & - 51, 8, 9, 31, 74, 31, 40, 78, 31, 40, 45, 61, & - 78, 45, 61, 45, 61, 71, 78, 30, 61, 78, 30, 61, & - 78, 3, 30, 73, 74, 78, 45, 47, 61, 75, 78, 60, & - 68, 71, 45, 60, 76, 78, 47, 60, 68, 75, 45, 60, & - 64, 69, 71, 72, 77, 45, 60, 64, 77, 78, 47, 64, & - 72, 75, 46, 53, 61, 68, 71, 46, 68, 76, 53, 60, & - 61, 64, 65, 68, 69, 71, 72, 77, 60, 65, 68, 77, & - 28, 61, 71, 78, 21, 60, 61, 71, 77, 78, 29, 61, & - 71, 76, 29, 61, 71, 78, 42, 64, 71, 77, 42, 64, & - 71, 78, 45, 49, 78, 45, 49, 61, 45, 49, 71, 72, & - 78, 45, 47, 49, 72, 75, 78, 44, 45, 68, 78, 44, & - 45, 68, 71, 44, 45, 47, 68, 75, 14, 68, 43, 49, & - 51, 71, 77, 43, 47, 51, 75, 37, 44, 51, 71, 77, & - 37, 47, 51, 75, 31, 40, 47, 75, 41, 71, 79, 9, & - 41, 41, 47, 75, 79, 44, 45, 55, 61, 65, 70, 71, & - 77, 3, 44, 45, 55, 61, 67, 71, 72, 77, 78, 45, & - 47, 55, 70, 75, 77, 55, 63, 64, 45, 55, 61, 68, & - 70, 71, 77, 78, 44, 53, 59, 61, 64, 68, 69, 71, & - 77, 3, 44, 45, 59, 61, 67, 71, 72, 77, 78, 59, & - 63, 64, 65, 45, 59, 66, 70, 76, 44, 45, 49, 57, & - 60, 61, 64, 65, 66, 69, 70, 71, 77, 3, 5, 44, & - 45, 49, 57, 60, 61, 65, 67, 71, 72, 77, 78, 44, & - 45, 47, 57, 61, 62, 64, 69, 70, 75, 77, 45, 57, & - 60, 61, 65, 68, 72, 78, 60, 61, 64, 65, 66, 68, & - 69, 71, 72, 77, 78, 53, 60, 61, 64, 66, 68, 69, & - 72, 77, 46, 53, 60, 61, 62, 64, 65, 66, 69, 71, & - 74, 77, 78, 46, 53, 60, 61, 62, 64, 65, 66, 69, & - 74, 77, 78, 38, 45, 64, 71, 77, 38, 45, 49, 67 /) - INTEGER, PARAMETER, DIMENSION(358) :: IROW_STOICM_2 = (/ & - 71, 78, 35, 53, 64, 68, 71, 35, 44, 45, 49, 53, & - 68, 77, 78, 36, 53, 64, 68, 71, 36, 44, 45, 49, & - 53, 68, 77, 78, 12, 71, 76, 48, 60, 61, 71, 77, & - 3, 45, 48, 61, 67, 71, 78, 48, 64, 75, 77, 45, & - 48, 49, 60, 61, 63, 76, 77, 78, 52, 53, 55, 57, & - 59, 61, 69, 71, 77, 3, 5, 45, 52, 53, 55, 59, & - 61, 66, 67, 69, 70, 71, 77, 52, 53, 57, 69, 74, & - 75, 77, 52, 53, 61, 63, 66, 69, 70, 76, 53, 54, & - 61, 64, 66, 69, 71, 77, 3, 5, 14, 45, 46, 49, & - 53, 54, 61, 64, 66, 67, 68, 69, 71, 72, 77, 78, & - 53, 54, 62, 64, 69, 74, 75, 77, 54, 63, 64, 66, & - 13, 60, 71, 77, 20, 46, 64, 69, 71, 77, 3, 39, & - 45, 49, 61, 71, 77, 78, 24, 25, 46, 53, 60, 61, & - 64, 65, 69, 71, 77, 33, 45, 46, 53, 60, 61, 64, & - 65, 66, 68, 69, 71, 76, 77, 26, 46, 53, 60, 61, & - 64, 65, 66, 69, 71, 77, 34, 35, 36, 37, 38, 41, & - 43, 44, 49, 66, 69, 71, 77, 78, 14, 27, 35, 36, & - 37, 38, 41, 44, 49, 69, 71, 77, 78, 46, 53, 56, & - 60, 61, 64, 66, 69, 71, 77, 3, 4, 5, 45, 46, & - 56, 60, 61, 64, 66, 67, 69, 71, 76, 77, 78, 46, & - 53, 56, 60, 62, 64, 69, 75, 77, 56, 63, 64, 65, & - 66, 41, 46, 53, 55, 57, 58, 60, 61, 64, 65, 69, & - 71, 77, 3, 4, 5, 41, 45, 46, 53, 55, 58, 59, & - 60, 61, 64, 65, 66, 67, 68, 69, 71, 72, 76, 77, & - 78, 41, 46, 53, 58, 59, 60, 61, 62, 64, 65, 69, & - 74, 75, 76, 77, 45, 55, 58, 63, 64, 65, 66, 69, & - 77, 78, 2, 39, 45, 67, 71, 78, 9, 50, 60, 61, & - 69, 71, 77, 2, 3, 4, 9, 45, 50, 60, 61, 67, & - 71, 76, 78, 8, 9, 50, 69, 75, 77, 9, 50, 63, & - 64, 65, 1, 10, 78, 10, 1, 47, 19, 2 /) - INTEGER, PARAMETER, DIMENSION(1078) :: IROW_STOICM = (/& - IROW_STOICM_0, IROW_STOICM_1, IROW_STOICM_2 /) - - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_0 = (/ & - 1, 1, 1, 2, 2, 3, 3, 4, 4, 4, 5, 5, & - 5, 6, 6, 6, 7, 7, 7, 8, 8, 8, 9, 9, & - 9, 10, 10, 11, 11, 11, 12, 12, 12, 13, 13, 14, & - 14, 15, 15, 16, 16, 16, 17, 17, 18, 18, 19, 19, & - 20, 20, 21, 21, 21, 22, 22, 22, 23, 23, 23, 24, & - 24, 24, 25, 25, 25, 26, 26, 26, 26, 27, 27, 27, & - 28, 28, 28, 29, 29, 29, 30, 30, 30, 31, 31, 31, & - 31, 32, 32, 32, 33, 33, 33, 34, 34, 34, 34, 34, & - 35, 35, 35, 36, 36, 36, 37, 37, 38, 38, 39, 39, & - 39, 39, 39, 40, 40, 41, 41, 42, 42, 42, 43, 43, & - 44, 44, 44, 44, 45, 45, 46, 46, 46, 46, 46, 47, & - 47, 47, 48, 48, 48, 48, 48, 49, 49, 49, 50, 50, & - 50, 51, 51, 51, 51, 52, 52, 52, 53, 53, 53, 53, & - 54, 54, 54, 54, 54, 55, 55, 56, 56, 56, 57, 58, & - 58, 58, 59, 60, 62, 62, 62, 63, 63, 63, 64, 64, & - 64, 64, 64, 64, 64, 65, 65, 65, 65, 65, 66, 66, & - 66, 66, 66, 67, 68, 68, 68, 68, 69, 69, 69, 70, & - 70, 70, 71, 71, 71, 71, 72, 72, 72, 72, 72, 73, & - 73, 73, 73, 74, 74, 74, 74, 75, 75, 75, 76, 77, & - 77, 77, 77, 78, 78, 79, 79, 79, 80, 80, 80, 81, & - 81, 81, 81, 81, 82, 82, 82, 82, 82, 83, 83, 83, & - 83, 83, 84, 84, 84, 84, 85, 85, 85, 86, 87, 87, & - 87, 87, 88, 88, 88, 88, 88, 89, 89, 89, 90, 90, & - 90, 91, 91, 91, 92, 92, 92, 92, 92, 93, 93, 93, & - 93, 93, 94, 94, 94, 94, 94, 95, 95, 95, 95, 96, & - 96, 96, 97, 98, 98, 98, 98, 99, 99, 99, 99, 99, & - 100,100,100,100,100,100,101,101,101,102,102,102, & - 103,103,103,104,104,104,104,104,105,105,105,105, & - 105,106,106,106,106,106,107,107,107,107,108,108, & - 108,109,110,110,110,111,111,111,112,112,112,112 /) - INTEGER, PARAMETER, DIMENSION(360) :: ICOL_STOICM_1 = (/ & - 112,112,113,113,113,113,113,113,114,114,114,115, & - 115,115,116,116,116,117,117,117,118,118,118,119, & - 119,120,120,120,120,121,121,121,122,122,123,123, & - 123,124,124,125,125,125,125,126,126,126,127,127, & - 127,128,128,128,128,128,129,129,129,129,129,130, & - 130,130,131,131,131,131,132,132,132,132,133,133, & - 133,133,133,133,133,134,134,134,134,134,135,135, & - 135,135,136,136,136,136,136,137,137,137,138,138, & - 138,138,138,138,138,138,138,138,139,139,139,139, & - 140,140,140,140,141,141,141,141,141,141,142,142, & - 142,142,143,143,143,143,144,144,144,144,145,145, & - 145,145,146,146,146,147,147,147,148,148,148,148, & - 148,149,149,149,149,149,149,150,150,150,150,151, & - 151,151,151,152,152,152,152,152,153,153,154,154, & - 154,154,154,155,155,155,155,156,156,156,156,156, & - 157,157,157,157,158,158,158,158,159,159,159,160, & - 160,161,161,161,161,162,162,162,162,162,162,162, & - 162,163,163,163,163,163,163,163,163,163,163,164, & - 164,164,164,164,164,165,165,165,166,166,166,166, & - 166,166,166,166,167,167,167,167,167,167,167,167, & - 167,168,168,168,168,168,168,168,168,168,168,169, & - 169,169,169,170,170,170,170,170,171,171,171,171, & - 171,171,171,171,171,171,171,171,171,172,172,172, & - 172,172,172,172,172,172,172,172,172,172,172,173, & - 173,173,173,173,173,173,173,173,173,173,174,174, & - 174,174,174,174,174,174,175,175,175,175,175,175, & - 175,175,175,175,175,176,176,176,176,176,176,176, & - 176,176,177,177,177,177,177,177,177,177,177,177, & - 177,177,177,178,178,178,178,178,178,178,178,178, & - 178,178,178,179,179,179,179,179,180,180,180,180 /) - INTEGER, PARAMETER, DIMENSION(358) :: ICOL_STOICM_2 = (/ & - 180,180,181,181,181,181,181,182,182,182,182,182, & - 182,182,182,183,183,183,183,183,184,184,184,184, & - 184,184,184,184,185,185,185,186,186,186,186,186, & - 187,187,187,187,187,187,187,188,188,188,188,189, & - 189,189,189,189,189,189,189,189,190,190,190,190, & - 190,190,190,190,190,191,191,191,191,191,191,191, & - 191,191,191,191,191,191,191,192,192,192,192,192, & - 192,192,193,193,193,193,193,193,193,193,194,194, & - 194,194,194,194,194,194,195,195,195,195,195,195, & - 195,195,195,195,195,195,195,195,195,195,195,195, & - 196,196,196,196,196,196,196,196,197,197,197,197, & - 198,198,198,198,199,199,199,199,199,199,200,200, & - 200,200,200,200,200,200,201,201,201,201,201,201, & - 201,201,201,201,201,202,202,202,202,202,202,202, & - 202,202,202,202,202,202,202,203,203,203,203,203, & - 203,203,203,203,203,203,204,204,204,204,204,204, & - 204,204,204,204,204,204,204,204,205,205,205,205, & - 205,205,205,205,205,205,205,205,205,206,206,206, & - 206,206,206,206,206,206,206,207,207,207,207,207, & - 207,207,207,207,207,207,207,207,207,207,207,208, & - 208,208,208,208,208,208,208,208,209,209,209,209, & - 209,210,210,210,210,210,210,210,210,210,210,210, & - 210,210,211,211,211,211,211,211,211,211,211,211, & - 211,211,211,211,211,211,211,211,211,211,211,211, & - 211,212,212,212,212,212,212,212,212,212,212,212, & - 212,212,212,212,213,213,213,213,213,213,213,213, & - 213,213,214,214,214,214,214,214,215,215,215,215, & - 215,215,215,216,216,216,216,216,216,216,216,216, & - 216,216,216,217,217,217,217,217,217,218,218,218, & - 218,218,219,219,220,221,222,223,224,225 /) - INTEGER, PARAMETER, DIMENSION(1078) :: ICOL_STOICM = (/& - ICOL_STOICM_0, ICOL_STOICM_1, ICOL_STOICM_2 /) - - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_0 = (/ & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, & - -2.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 3.900000e-01_dp, 6.100000e-01_dp, 3.900000e-01_dp, & - 6.100000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -2.000000e+00_dp, 1.000000e+00_dp, & - -2.000000e+00_dp, 2.000000e-01_dp, 8.000000e-01_dp, 8.000000e-01_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, -2.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -2.000000e+00_dp, 2.000000e+00_dp, -2.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_1 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 2.500000e-01_dp, 7.500000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 2.500000e-01_dp, 7.500000e-01_dp, & - 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -2.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 2.500000e-01_dp, 7.500000e-01_dp, 2.500000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -2.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.500000e-01_dp, & - 7.500000e-01_dp, 2.500000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 2.000000e+00_dp, -2.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.500000e-01_dp, 7.500000e-01_dp, 2.500000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_2 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 2.000000e+00_dp, & - -2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 2.500000e-01_dp, 7.500000e-01_dp, 2.500000e-01_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 2.000000e+00_dp, 2.000000e+00_dp, & - -2.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, 6.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 3.400000e-02_dp, 3.400000e-02_dp, -1.000000e+00_dp, 1.000000e-03_dp, -1.000000e+00_dp, & - 9.650000e-01_dp, 3.400000e-02_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_3 = (/ & - -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 6.160000e-01_dp, & - 4.820000e-01_dp, 1.150000e-01_dp, 3.700000e-01_dp, -1.000000e+00_dp, 4.920000e-01_dp, & - 4.200000e-02_dp, -1.000000e+00_dp, 9.600000e-02_dp, 3.700000e-01_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 9.600000e-01_dp, 8.100000e-02_dp, & - -1.000000e+00_dp, 5.000000e-02_dp, 9.500000e-01_dp, -1.000000e+00_dp, 3.500000e-01_dp, & - -6.500000e-01_dp, 6.500000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, -3.400000e-01_dp, 3.400000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 2.000000e+00_dp, & - -1.000000e+00_dp, 2.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - 1.260000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 3.700000e-01_dp, 6.300000e-01_dp, & - 1.260000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 3.700000e-01_dp, -1.000000e+00_dp, & - 6.300000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 2.000000e+00_dp, -1.000000e+00_dp, 2.300000e-01_dp, 2.400000e-01_dp, -1.000000e+00_dp, & - 7.600000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 2.300000e-01_dp, 2.400000e-01_dp, -1.000000e+00_dp, 7.600000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 7.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 8.400000e-02_dp, 4.160000e-01_dp, -1.000000e+00_dp, & - 8.400000e-02_dp, 4.160000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, & - 3.330000e-01_dp, 9.000000e-01_dp, 4.500000e-01_dp, -1.000000e+00_dp, 2.000000e-01_dp, & - -1.000000e+00_dp, 2.080000e-01_dp, 1.000000e-01_dp, 1.000000e-01_dp, 8.000000e-03_dp, & - 5.000000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 6.700000e-01_dp, & - -1.000000e+00_dp, 6.700000e-01_dp, 6.700000e-01_dp, 3.300000e-01_dp, 3.300000e-01_dp, & - 3.300000e-01_dp, 3.400000e-01_dp, 3.000000e-01_dp, 6.750000e-01_dp, -1.000000e+00_dp, & - 3.000000e-01_dp, 6.750000e-01_dp, 6.750000e-01_dp, 2.500000e-02_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_4 = (/ & - 3.000000e-01_dp, 3.510000e-01_dp, 9.500000e-01_dp, 4.750000e-01_dp, -1.000000e+00_dp, & - 1.000000e-01_dp, -1.000000e+00_dp, 1.640000e-01_dp, 5.000000e-02_dp, 5.000000e-02_dp, & - 6.400000e-02_dp, -1.000000e+00_dp, -1.000000e+00_dp, 4.500000e-01_dp, 5.500000e-01_dp, & - 7.000000e-01_dp, -1.000000e+00_dp, 7.000000e-01_dp, 3.000000e-01_dp, 3.000000e-01_dp, & - 1.740000e-01_dp, 3.360000e-01_dp, 1.500000e-01_dp, -1.000000e+00_dp, 1.290000e-01_dp, & - 5.500000e-02_dp, 1.300000e-02_dp, 1.500000e-01_dp, 3.320000e-01_dp, 4.100000e-02_dp, & - 2.890000e-01_dp, -1.000000e+00_dp, 6.700000e-01_dp, 1.000000e-01_dp, 3.720000e-01_dp, & - 7.420000e-01_dp, 4.980000e-01_dp, 2.300000e-02_dp, -1.000000e+00_dp, 4.700000e-02_dp, & - 1.250000e-01_dp, 2.100000e-01_dp, -1.000000e+00_dp, 2.850000e-01_dp, 4.800000e-02_dp, & - 4.800000e-02_dp, 4.000000e-01_dp, 8.000000e-03_dp, 5.720000e-01_dp, 1.500000e-01_dp, & - -1.000000e+00_dp, 2.270000e-01_dp, 5.720000e-01_dp, 2.180000e-01_dp, 5.100000e-02_dp, & - 1.500000e-01_dp, -1.000000e+00_dp, 7.990000e-01_dp, 1.233000e+00_dp, -1.000000e+00_dp, & - 4.670000e-01_dp, 3.000000e-01_dp, 2.330000e-01_dp, 4.670000e-01_dp, 3.000000e-01_dp, & - 1.233000e+00_dp, 8.400000e-02_dp, 2.130000e-01_dp, 5.580000e-01_dp, 1.150000e-01_dp, & - -6.710000e-01_dp, 2.900000e-02_dp, 7.000000e-02_dp, -1.000000e+00_dp, 4.900000e-02_dp, & - 4.730000e-01_dp, 3.790000e-01_dp, 5.150000e-01_dp, 2.460000e-01_dp, 5.060000e-01_dp, & - 7.100000e-01_dp, -1.000000e+00_dp, 6.670000e-01_dp, 4.000000e-02_dp, 3.330000e-01_dp, & - 9.600000e-01_dp, 6.000000e-03_dp, 5.960000e-01_dp, 4.390000e-01_dp, 1.000000e-02_dp, & - -6.900000e-01_dp, 2.130000e-01_dp, 1.770000e-01_dp, 4.800000e-02_dp, 1.730000e-01_dp, & - -1.000000e+00_dp, 3.380000e-01_dp, 3.760000e-01_dp, 1.130000e-01_dp, 2.000000e-02_dp, & - 1.520000e-01_dp, 4.310000e-01_dp, 1.340000e-01_dp, -1.000000e+00_dp, 1.470000e-01_dp, & - 2.430000e-01_dp, 4.350000e-01_dp, 9.500000e-02_dp, 1.000000e+00_dp, 5.640000e-01_dp, & - 3.410000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 1.500000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 5.000000e-01_dp, 1.500000e+00_dp, -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp, 1.000000e+00_dp, & - 5.000000e-01_dp, 1.000000e+00_dp, 5.000000e-01_dp, 1.000000e+00_dp, 5.000000e-01_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, 5.000000e-01_dp, 1.000000e+00_dp, 5.000000e-01_dp, 1.000000e+00_dp, & - 5.000000e-01_dp, 1.000000e+00_dp, 5.000000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_5 = (/ & - 1.000000e+00_dp, -1.000000e+00_dp, 1.950000e-01_dp, 1.610000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, 3.700000e-01_dp, 5.000000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.200000e-01_dp, 1.200000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, & - -1.000000e+00_dp, 1.000000e+00_dp, 4.910000e-01_dp, -1.000000e+00_dp, 9.000000e-03_dp, & - 2.500000e-01_dp, 1.910000e-01_dp, -1.000000e+00_dp, 3.000000e-01_dp, 2.000000e-01_dp, & - 5.000000e-01_dp, -1.000000e+00_dp, 7.900000e-02_dp, 2.300000e-01_dp, 3.570000e-01_dp, & - 3.200000e-01_dp, 6.240000e-01_dp, 9.300000e-02_dp, -1.000000e+00_dp, 9.070000e-01_dp, & - 2.040000e-01_dp, 1.500000e-01_dp, 2.750000e-01_dp, -1.000000e+00_dp, 1.260000e-01_dp, & - 3.900000e-01_dp, 1.600000e-01_dp, 5.920000e-01_dp, 1.000000e-01_dp, -1.000000e+00_dp, & - 8.000000e-03_dp, 1.920000e-01_dp, 2.660000e-01_dp, 6.600000e-02_dp, -1.000000e+00_dp, & - 1.870000e-01_dp, 9.360000e-01_dp, 6.400000e-02_dp, 1.870000e-01_dp, -1.000000e+00_dp, & - 7.490000e-01_dp, -1.000000e+00_dp, 2.400000e-01_dp, 2.400000e-01_dp, -1.000000e+00_dp, & - 7.500000e-01_dp, 1.000000e-02_dp, 2.400000e-01_dp, 2.500000e-01_dp, 5.000000e-01_dp, & - -1.000000e+00_dp, 2.760000e-01_dp, 4.740000e-01_dp, 2.760000e-01_dp, 2.500000e-01_dp, & - -1.000000e+00_dp, 7.500000e-01_dp, 1.030000e-01_dp, 1.890000e-01_dp, 3.100000e-02_dp, & - 1.570000e-01_dp, 1.300000e-01_dp, 1.000000e-03_dp, 7.290000e-01_dp, -1.000000e+00_dp, & - 2.350000e-01_dp, 2.050000e-01_dp, 2.760000e-01_dp, -1.000000e+00_dp, 1.230000e-01_dp, & - 1.800000e-01_dp, 5.670000e-01_dp, 2.010000e-01_dp, 3.100000e-02_dp, 3.300000e-02_dp, & - 7.500000e-01_dp, -1.000000e+00_dp, 2.760000e-01_dp, 4.740000e-01_dp, 2.500000e-01_dp, & - 4.740000e-01_dp, -1.000000e+00_dp, 2.760000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 1.470000e-01_dp, 8.530000e-01_dp, -1.000000e+00_dp, 1.000000e+00_dp, -1.000000e+00_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, 7.040000e-01_dp, 2.610000e-01_dp, 3.500000e-02_dp, & - -1.000000e+00_dp, 9.650000e-01_dp, 2.970000e-01_dp, -1.000000e+00_dp, 3.930000e-01_dp, & - 6.070000e-01_dp, 9.600000e-02_dp, -3.970000e-01_dp, 1.000000e-01_dp, 2.970000e-01_dp, & - -1.000000e+00_dp, 2.360000e-01_dp, 2.400000e-02_dp, 5.590000e-01_dp, 4.450000e-01_dp, & - 2.600000e-02_dp, 1.220000e-01_dp, 3.320000e-01_dp, 7.000000e-02_dp, -1.000000e+00_dp, & - 6.950000e-01_dp, -1.000000e+00_dp, 2.000000e-03_dp, 4.520000e-01_dp, 9.360000e-01_dp, & - 4.550000e-01_dp, 2.400000e-02_dp, 2.440000e-01_dp, 1.100000e-01_dp, 1.250000e-01_dp, & - 1.100000e-02_dp, 1.430000e-01_dp, -1.000000e+00_dp, 1.100000e-02_dp, 8.350000e-01_dp, & - -1.000000e+00_dp, 7.200000e-02_dp, 9.480000e-01_dp, 9.900000e-02_dp, 2.600000e-02_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(150) :: STOICM_6 = (/ & - 2.040000e-01_dp, 8.900000e-02_dp, 4.170000e-01_dp, 3.470000e-01_dp, -1.000000e+00_dp, & - 6.530000e-01_dp, -1.000000e+00_dp, 1.080000e-01_dp, 5.100000e-02_dp, 2.070000e-01_dp, & - 4.910000e-01_dp, 5.900000e-02_dp, 1.700000e-02_dp, 1.190000e-01_dp, 1.180000e-01_dp, & - 5.500000e-02_dp, 1.100000e-02_dp, -1.000000e+00_dp, 7.650000e-01_dp, 2.240000e-01_dp, & - 8.700000e-02_dp, -1.000000e+00_dp, 9.900000e-02_dp, 9.300000e-02_dp, 1.870000e-01_dp, & - 5.610000e-01_dp, 5.000000e-02_dp, 2.870000e-01_dp, 9.700000e-02_dp, 9.000000e-03_dp, & - -1.000000e+00_dp, 8.040000e-01_dp, 1.870000e-01_dp, 5.000000e-03_dp, 2.050000e-01_dp, & - -1.000000e+00_dp, 2.940000e-01_dp, 7.320000e-01_dp, 4.970000e-01_dp, 1.190000e-01_dp, & - 9.000000e-02_dp, -1.000000e+00_dp, 9.100000e-01_dp, 1.850000e-01_dp, 5.000000e-02_dp, & - 1.190000e-01_dp, 3.450000e-01_dp, 1.000000e-03_dp, -1.000000e+00_dp, 1.540000e-01_dp, & - 5.000000e-01_dp, 3.630000e-01_dp, 2.150000e-01_dp, -1.000000e+00_dp, 1.000000e-03_dp, & - 1.550000e-01_dp, 7.600000e-02_dp, 2.200000e-02_dp, 5.600000e-02_dp, 2.400000e-02_dp, & - 4.880000e-01_dp, -1.000000e+00_dp, 9.000000e-03_dp, 5.110000e-01_dp, 3.700000e-02_dp, & - 1.760000e-01_dp, -1.000000e+00_dp, 8.240000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - 4.500000e-01_dp, 4.370000e-01_dp, 1.130000e-01_dp, 6.100000e-02_dp, 1.270000e-01_dp, & - 1.000000e-03_dp, 2.500000e-02_dp, 2.500000e-02_dp, -1.000000e+00_dp, 7.320000e-01_dp, & - 2.440000e-01_dp, 5.110000e-01_dp, 7.200000e-02_dp, 8.200000e-02_dp, -1.000000e+00_dp, & - 9.180000e-01_dp, 7.300000e-02_dp, 1.290000e-01_dp, 2.470000e-01_dp, 4.200000e-02_dp, & - 2.650000e-01_dp, 4.500000e-02_dp, 1.370000e-01_dp, 2.600000e-02_dp, -1.000000e+00_dp, & - 1.900000e-02_dp, 4.560000e-01_dp, 2.690000e-01_dp, 3.050000e-01_dp, 2.600000e-02_dp, & - 4.300000e-02_dp, -1.000000e+00_dp, 1.370000e-01_dp, 2.000000e-03_dp, 3.780000e-01_dp, & - 6.000000e-03_dp, 1.970000e-01_dp, 3.300000e-02_dp, 3.000000e-03_dp, 1.500000e-02_dp, & - 1.020000e-01_dp, 7.110000e-01_dp, -1.000000e+00_dp, 4.800000e-02_dp, 5.070000e-01_dp, & - 7.900000e-02_dp, 3.210000e-01_dp, 1.510000e-01_dp, 1.000000e-03_dp, 1.360000e-01_dp, & - 3.910000e-01_dp, -1.000000e+00_dp, 3.000000e-02_dp, 4.420000e-01_dp, 1.200000e-02_dp, & - 1.200000e-02_dp, -1.000000e+00_dp, -1.000000e+00_dp, 6.900000e-02_dp, 6.590000e-01_dp, & - 2.590000e-01_dp, 1.000000e-03_dp, 1.200000e-02_dp, 1.300000e-02_dp, 5.000000e-01_dp, & - -1.000000e+00_dp, 1.500000e+00_dp, -1.000000e+00_dp, 5.000000e-01_dp, 1.500000e+00_dp, & - 4.800000e-02_dp, -1.000000e+00_dp, 9.840000e-01_dp, 9.840000e-01_dp, 1.600000e-02_dp, & - -1.000000e+00_dp, 9.840000e-01_dp, 1.350000e-01_dp, 1.850000e-01_dp, 1.700000e-01_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(28) :: STOICM_7 = (/ & - 7.000000e-02_dp, 5.100000e-01_dp, -1.000000e+00_dp, 5.000000e-01_dp, 5.000000e-01_dp, & - -1.000000e+00_dp, 3.200000e-01_dp, 2.600000e-01_dp, 6.000000e-02_dp, 1.000000e+00_dp, & - 2.693000e+00_dp, -1.000000e+00_dp, 5.100000e-02_dp, -1.000000e+00_dp, 9.490000e-01_dp, & - 5.500000e-01_dp, -1.000000e+00_dp, -1.000000e+00_dp, 4.500000e-01_dp, 5.500000e-01_dp, & - 1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp, & - -1.000000e+00_dp, -1.000000e+00_dp, -1.000000e+00_dp /) - REAL(kind=dp), PARAMETER, DIMENSION(1078) :: STOICM = (/& - STOICM_0, STOICM_1, STOICM_2, STOICM_3, STOICM_4, & - STOICM_5, STOICM_6, STOICM_7 /) - - -END MODULE SAPRC99_StoichiomSP - diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_StoichiomSP.o b/boxmox/compiled_mechs/SAPRC99/SAPRC99_StoichiomSP.o deleted file mode 100644 index 3bbc86b013823fe9caebc1f3267a3c638ddfa6e3..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/SAPRC99_StoichiomSP.o and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Util.f90 b/boxmox/compiled_mechs/SAPRC99/SAPRC99_Util.f90 deleted file mode 100644 index 8c0cc92f28921c3cff82d8c1fa9299085bc907f0..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Util.f90 +++ /dev/null @@ -1,1560 +0,0 @@ -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Auxiliary Routines File -! -! Generated by KPP-2.2.3 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 : SAPRC99_Util.f90 -! Time : Thu Oct 8 08:22:39 2020 -! Working directory : /Users/lechriso/git/boxmox/boxmox/tmp_SAPRC99_30885_BOXMOX -! Equation file : SAPRC99.kpp -! Output root filename : SAPRC99 -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -MODULE SAPRC99_Util - - USE SAPRC99_Parameters - USE SAPRC99_Global - USE SAPRC99_Monitor - IMPLICIT NONE - -CONTAINS - - - -! User INLINED Utility Functions - - -! **************************************************************************** -! **************************************************************************** -! BOXMOX utilities -! **************************************************************************** -! **************************************************************************** - - -! **************************************************************************** -! toUPPER - convert ASCII characters to all upper case -! from http://stackoverflow.com/questions/10759375/ -! how-can-i-write-a-to-upper-or-to-lower-function-in-f90 -! **************************************************************************** - FUNCTION toUPPER (str) RESULT (string) - - CHARACTER(*), INTENT(In) :: str - CHARACTER(LEN(str)) :: string - - INTEGER :: ic, i - - CHARACTER(26), PARAMETER :: cap = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' - CHARACTER(26), PARAMETER :: low = 'abcdefghijklmnopqrstuvwxyz' - - string = str - DO i = 1, LEN_TRIM(str) - ic = INDEX(low, str(i:i)) - IF (ic > 0) string(i:i) = cap(ic:ic) - END DO - - END FUNCTION toUPPER -! **************************************************************************** - - -! **************************************************************************** -! hash - a string hashing function -! from flibs, http://flibs.sourceforge.net -! **************************************************************************** - INTEGER FUNCTION hash( key ) - - CHARACTER(len=*), INTENT(in) :: key - - INTEGER :: i - - INTEGER, PARAMETER :: hash_size = 49931 - INTEGER, PARAMETER :: multiplier = 312 - - hash = 0 - - DO i = 1,LEN(key) - hash = MODULO( multiplier * hash + ICHAR(key(i:i)), hash_size) - ENDDO - - hash = 1 + MODULO( hash-1, hash_size ) - END FUNCTION hash -! **************************************************************************** - - -! **************************************************************************** -! strEqual - comparison function matching two strings -! **************************************************************************** - LOGICAL FUNCTION strEqual(a, b) - - CHARACTER(LEN=*), INTENT(IN) :: a, b - - LOGICAL, PARAMETER :: ignoreCase = .TRUE. - - CHARACTER(LEN=100) :: nice_a, nice_b - INTEGER :: max_len - - nice_a = ADJUSTL(a) - nice_b = ADJUSTL(b) - - IF (ignoreCase) THEN - nice_a = toUPPER(nice_a) - nice_b = toUPPER(nice_b) - END IF - - max_len = MAX( LEN_TRIM(nice_a), LEN_TRIM(nice_b) ) - - strEqual = nice_a(1:max_len) .EQ. nice_b(1:max_len) - - END FUNCTION strEqual -! **************************************************************************** - - -! **************************************************************************** -! writespecstring - Utility function that plots a (potentially) -! large number of species -! **************************************************************************** - SUBROUTINE writespecstring(nspecies, txt, species, offset) - - INTEGER :: nspecies, offset - CHARACTER(LEN=*) :: txt - CHARACTER(LEN=15) :: species(nspecies), fmt - CHARACTER(LEN=2000) :: specstring - - INTEGER, PARAMETER :: cperline=60 - - INTEGER :: i, l - - fmt = "" - WRITE(fmt, "(A1,I3,A4)") "(", offset, "X,A)" - - i = 1; l = 1 - specstring = "" - - DO WHILE (i <= nspecies) - - specstring = TRIM(ADJUSTL(specstring))//TRIM(ADJUSTL(species(i))) - IF (i < nspecies) specstring = TRIM(ADJUSTL(specstring))//", " - - i = i + 1 - - IF (LEN_TRIM(specstring) > cperline) THEN - IF (l == 1) specstring = txt//specstring - l = l + 1 - WRITE(*,fmt) TRIM(specstring) - specstring = "" - ENDIF - ENDDO - - IF (LEN_TRIM(specstring) > 0) THEN - IF (l == 1) specstring = txt//specstring - WRITE(*,fmt) TRIM(specstring) - ENDIF - - END SUBROUTINE writespecstring -! **************************************************************************** - - -! **************************************************************************** -! calcCFACTOR - Calculates CFACTOR variable for unit conversion between -! input/output files and values used in calculations / rates -! **************************************************************************** - SUBROUTINE calcCFACTOR ( ) - - ! from ppmv to mlc/cm3: - ! 1e-6 ppmv -> vmr - ! 1e-3 kg/m3 -> g/cm3 - ! 1/28.9645 g/cm3 -> mole/cm3 - ! 6.022e23 -> molec/cm3 - ! then multiply with air density rho - ! 1.0E-6 * 1E-03 * (1.0/28.97) * 6.022e23 * rho - ! CFACTOR = 2.598378e+13; (with rho == 1.25) - - CFACTOR = 1.0E-6 * 1E-03 * (1.0/28.9645) * 6.022e23 * & - pres / (287.058 * temp) - - END SUBROUTINE calcCFACTOR -! **************************************************************************** - - -! **************************************************************************** -! readConfig - Sets variables using values read in from "BOXMOX.nml" -! **************************************************************************** - SUBROUTINE readConfig ( ) - - INTEGER, PARAMETER :: config_pid = 22 - CHARACTER(LEN=*), PARAMETER :: config_name = "BOXMOX.nml" - - NAMELIST /BOXMOX/ TSTART, TEND, DT, lverbose, iturb, lfix_nox - - LOGICAL :: lnml_exists - - ! *** default values section *** - - TSTART = 0.0D0 ! model start time, seconds since 0 LT - TEND = TSTART + 3600.0D0 ! model end time, seconds since 0 LT - DT = 10.D0 ! model time step, seconds - - lverbose = .FALSE. - iturb = TURB_OPT_NONE - - lfix_nox = .FALSE. - - ! *** namelist read-in section *** - - INQUIRE(FILE=config_name, EXIST=lnml_exists) - - IF (lnml_exists) THEN - - WRITE(*,*) "BOXMOX configuration file ", TRIM(config_name)," found." - - OPEN (config_pid, FILE=config_name) - READ (config_pid, nml=BOXMOX) - CLOSE(config_pid) - - ELSE - WRITE(*,*) "No BOXMOX configuration file (", & - TRIM(config_name),") exists." - ENDIF - - ! *** configuration printout *** - - WRITE(*,*) " " - WRITE(*,"(A20,2X,F12.3)") "TSTART", TSTART - WRITE(*,"(A20,2X,F12.3)") "TEND", TEND - WRITE(*,"(A20,2X,F12.3)") "DT", DT - WRITE(*,*) "" - WRITE(*,"(A20,2X,L10)") "lverbose", lverbose - WRITE(*,*) "" - WRITE(*,"(A20,11X,I1)") "iturb", iturb - WRITE(*,*) "" - WRITE(*,"(A20,2X,L10)") "lfix_nox", lfix_nox - - WRITE(*,*) " " - - END SUBROUTINE readConfig -! **************************************************************************** - - -! **************************************************************************** -! checkConfig - check configuration variables -! **************************************************************************** - SUBROUTINE checkConfig ( ) - - INTEGER :: status - - status = 0 - - IF (TSTART < 0.0) THEN - WRITE(*,*) "start time TSTART cannot be < 0.0" - status = 1 - ENDIF - IF (TEND < 0.0) THEN - WRITE(*,*) "end time TEND cannot be < 0.0" - status = 2 - ENDIF - IF (TSTART >= TEND) THEN - WRITE(*,*) "start time TSTART has to be < end time TEND" - status = 3 - ENDIF - IF (DT <= 0.0) THEN - WRITE(*,*) "time step DT has to be > 0.0" - status = 4 - ENDIF - - IF (status .NE. 0) THEN - IF (.NOT. llibrary) THEN - STOP - ENDIF - ENDIF - - END SUBROUTINE checkConfig -! **************************************************************************** - - -! **************************************************************************** -! writeVersion - Write "VERSION" file to run directory -! **************************************************************************** - SUBROUTINE writeVersion ( ) - - INTEGER, PARAMETER :: version_pid = 23 - CHARACTER(LEN=*), PARAMETER :: version_name = "VERSION" - - ! *** write BOXMOX version to output directory *** - - OPEN(version_pid, file=version_name) - WRITE(version_pid, "(A)") "__BOXMOX_VERSION__" - CLOSE(version_pid) - - END SUBROUTINE writeVersion -! **************************************************************************** - - -! **************************************************************************** -! readVals - main input routine for the BOXMOX extensions. -! reads values from input files with different time -! formats, and interpolates to get the values -! appropriate for the current time step. -! **************************************************************************** - SUBROUTINE readVals(fname, nvar, species, values, stat, & - nanc, ancspecies, ancvalues, lquiet) - - CHARACTER(LEN=*), INTENT(IN) :: fname - INTEGER, INTENT(OUT) :: nvar - CHARACTER(LEN=15), INTENT(OUT) :: species(max_species_boxmox) - REAL(KIND=dp), INTENT(OUT) :: values(max_species_boxmox) - INTEGER, INTENT(OUT) :: stat - INTEGER, INTENT(OUT), OPTIONAL :: nanc - CHARACTER(LEN=15), INTENT(OUT),OPTIONAL :: ancspecies(max_species_boxmox) - REAL(KIND=dp), INTENT(OUT), OPTIONAL :: ancvalues(max_species_boxmox) - LOGICAL, INTENT(IN), OPTIONAL :: lquiet - - INTEGER, PARAMETER :: input_pid = 21 - REAL(KIND=dp) :: time_cur, weight_t1, & - values_t0(max_species_boxmox), & - values_t1(max_species_boxmox), & - values_cur(max_species_boxmox) - CHARACTER(LEN=15) :: names(max_species_boxmox) - INTEGER :: iostat, time_format, ntoread, ntime, nanct, pid, i - LOGICAL :: lfile_exists, ltalkative - - names(:) = "" - values_t0(:) = 0.0 - values_t1(:) = 0.0 - - stat = 0 ! everything is allright - - ltalkative = ( TIME .EQ. TSTART ) .OR. lverbose - IF (PRESENT(lquiet)) THEN - IF (lquiet) THEN - ltalkative = .FALSE. - ENDIF - ENDIF - - ! check whether file exists - INQUIRE(FILE=fname, EXIST=lfile_exists) - IF (.NOT. lfile_exists) THEN - stat = 1 - RETURN - ELSE - IF (ltalkative) THEN - WRITE(*,*) "" - WRITE(*,*) " * ", fname - ENDIF - END IF - - OPEN(input_pid, file=fname) - - ! line 1: number of variables - READ(input_pid, *) nvar - - ! if no variable should be read - bail - IF (nvar == 0) THEN - IF (ltalkative) WRITE(*,*) fname, " declared 0 variables to be read" - stat = 2 - CLOSE(input_pid) - RETURN - END IF - - ! line 2: number of ancillary variables - READ(input_pid, *) nanct - - IF (nanct .LT. 0) THEN - WRITE(*,"(A)") "Number of ancillary variables must be >= 0" - CLOSE(input_pid) - STOP - ENDIF - - IF (nanct .GT. 1) THEN - WRITE(*,"(A)") "Number of ancillary variables must be < 2" - CLOSE(input_pid) - STOP - ENDIF - - ! line 3: time format - READ(input_pid, *) time_format - - IF (time_format .LT. 0 .OR. time_format .GT. 2) THEN - WRITE(*,"(3A)") "Time format has to be 0 (constant), ", & - "1 (s since TSTART) or ", & - "2 (hour of day)" - CLOSE(input_pid) - STOP - END IF - - ntime = 0 - IF (time_format .GT. 0) ntime = 1 - - ntoread = ntime + nanct + nvar - - ! if more variables than max_species_boxmox should be read - bail - IF (ntoread > max_species_boxmox) THEN - IF (ltalkative) THEN - WRITE(*,*) fname, " declared more variables to be read" - WRITE(*,*) "than allocated. Increase max_species_boxmox," - WRITE(*,*) "recompile, and run again." - ENDIF - stat = 3 - CLOSE(input_pid) - RETURN - END IF - - ! line 4: header line - READ(input_pid, *) names(1:ntoread) - - ! line 4ff: values - READ(input_pid, *) values_t0(1:ntoread) - - ! if its not constant in time values - weight_t1 = 0 - IF (.NOT. time_format .EQ. 0) THEN - READ(input_pid, *, IOSTAT=iostat) values_t1(1:ntoread) - - ! TIME is the KPP provided current model time - time_cur = TIME - IF (time_format .EQ. 2) THEN - time_cur = TIME/3600.0_dp - (INT(TIME/3600.0_dp)/24)*24 - END IF - - ! ASSUMPTION: time is the first value read - DO WHILE(values_t1(1) .LT. time_cur .AND. iostat .EQ. 0) - values_t0 = values_t1 - - READ(input_pid, *, IOSTAT=iostat) values_t1(1:ntoread) - END DO - - ! take the last value in the file in case its time values don't cover - ! the full simulation period - IF (iostat .NE. 0) THEN - weight_t1 = 1.0 - ELSE - weight_t1 = (time_cur - values_t0(1)) / (values_t1(1) - values_t0(1)) - ENDIF - - ENDIF - - CLOSE(input_pid) - - values_cur = weight_t1 * values_t1 + & - (1.0 - weight_t1) * values_t0 - - species(1:nvar) = names(ntime+nanct+1:ntime+nanct+nvar) - values(1:nvar) = values_cur(ntime+nanct+1:ntime+nanct+nvar) - - IF (PRESENT(nanc)) nanc = nanct - - IF (nanct .GT. 0) THEN - IF (PRESENT(ancvalues)) THEN - ancvalues(1:nanct) = values_cur(ntime+1:ntime+nanct) - ENDIF - IF (PRESENT(ancspecies)) THEN - ancspecies(1:nanct) = names(ntime+1:ntime+nanct) - ENDIF - ENDIF - - END SUBROUTINE readVals -! **************************************************************************** - - -! **************************************************************************** -! readInput - Reads values from .csv, applies function -! -! "t" is for "target" (i.e. the vector to apply "action" over) -! "r" is for "read" from file -! "u" is for "useable" (i.e., exists in the "target" vector) -! "m" is for "missing" (i.e., asked for, but not found in file) -! -! **************************************************************************** - SUBROUTINE readInput (filename, nt, tnames, tvalues, & - action, lzero, quiet) - - CHARACTER(LEN=*), INTENT(IN) :: filename - INTEGER, INTENT(IN) :: nt - REAL(KIND=dp) :: tvalues(nt) - CHARACTER(LEN=15), INTENT(IN) :: tnames(nt) - REAL(KIND=dp), OPTIONAL :: action ! function to be called - LOGICAL, INTENT(IN), OPTIONAL :: lzero ! call action with 0.0 - ! for 'missing' species - LOGICAL, INTENT(IN), OPTIONAL :: quiet - - INTEGER :: nr, nu, nm, i, k, m, & - iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - unames(max_species_boxmox), & - mnames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox) - LOGICAL :: is_used, first, & - talkative - - CALL readVals(filename, nr, rnames, rvalues, iostat) - - IF (iostat .NE. 0) RETURN - - talkative = .TRUE. - IF (PRESENT(quiet)) talkative = .NOT. quiet - - unames(:) = "none" - nu = 0 - - first = lverbose - - DO i = 1, nr - DO k = 1, nt - IF ( strEqual(rnames(i), tnames(k)) ) THEN - - IF (PRESENT(action)) THEN - tvalues(k) = action( tvalues(k), k, rvalues(i), first) - ELSE - tvalues(k) = rvalues(i) - IF ( (lverbose .OR. first) .AND. talkative ) THEN - WRITE(*,"(6X,A15,1X,E12.6)") tnames(k), tvalues(k)/CFACTOR - ENDIF - ENDIF - - first = .FALSE. - - nu = nu + 1 - unames(nu) = TRIM(ADJUSTL(rnames(i))) - ENDIF - ENDDO - ENDDO - - IF (PRESENT(lzero)) THEN - IF (lzero) THEN - DO k = 1, nt - is_used = .FALSE. - DO i = 1, nu - IF ( strEqual(unames(i), tnames(k)) ) is_used = .TRUE. - ENDDO - IF (.NOT. is_used) THEN - tvalues(k) = action( tvalues(k), k, 0.0, first) - first = .FALSE. - ENDIF - ENDDO - ENDIF - ENDIF - - nm = nr - nu - mnames(:) = "" - - IF (nm > 0) THEN - m = 1 - DO i = 1, nr - is_used = .FALSE. - DO k = 1, nu - IF ( strEqual(rnames(i), unames(k)) ) is_used = .TRUE. - ENDDO - - IF (.NOT. is_used) THEN - mnames(m) = TRIM(ADJUSTL(rnames(i))) - m = m + 1 - ENDIF - ENDDO - ENDIF - - IF ( ((TIME .EQ. TSTART) .OR. lverbose) .AND. talkative) THEN - IF (nu > 0) CALL writespecstring(nu, "useable:", unames, 6) - IF (nm > 0) CALL writespecstring(nm, "unknown: ", mnames, 6) - ENDIF - - END SUBROUTINE readInput -! **************************************************************************** - - -! **************************************************************************** -! InitialCondition - Sets initial values -! **************************************************************************** - REAL(KIND=dp) FUNCTION InitialCondition(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - InitialCondition = y * CFACTOR - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,A12,1X)") "species ", "IC" - WRITE(*,"(6X,A15,1X,E12.6,1X)") SPC_NAMES(k), InitialCondition/CFACTOR - ENDIF - - END FUNCTION InitialCondition -! **************************************************************************** - - -! **************************************************************************** -! Deposition - Applies deposition velocities -! **************************************************************************** - REAL(KIND=dp) FUNCTION Deposition(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - REAL(KIND=dp) :: dCdt - - Deposition = x - - ! we don't remove fixed variables - IF (k .LT. NFIXST) THEN - ! we assume deposition velocities in comparable units - ! (i.e. cm s-1) - ! dxdydz(3) == DZ - dCdt = - y * x / (dxdydz(3) * 100.0) - Deposition = MAX( 0.0, x + DT * dCdt ) - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "v_dep", "after" - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, y, & - Deposition/CFACTOR - ENDIF - - ENDIF - - END FUNCTION Deposition -! **************************************************************************** - - -! **************************************************************************** -! Emission - Adds emissions -! **************************************************************************** - REAL(KIND=dp) FUNCTION Emission(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - REAL(KIND=dp) :: cur - - ! we assume emissions to be a flux in units comparable to the - ! concentration values used in KPP - ! e.g. molecules / m2 / s vs molecules / m3, or - ! moles / cm2 / s vs moles / cm3, ... - ! the time dimensions unit has to be seconds! - - ! dxdydz(3) is PBL height in m - cur = y * DT / (dxdydz(3) * 100.0) - - Emission = x + cur - - IF (lverbose) THEN - IF (lfirst) WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "tendency", "after" - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, & - cur/DT/CFACTOR, Emission/CFACTOR - ENDIF - - END FUNCTION Emission -! **************************************************************************** - - -! **************************************************************************** -! Mix - calculate concentration after turbulent mixing -! **************************************************************************** - REAL(KIND=dp) FUNCTION Mix(x, k, y, lfirst) - - REAL(KIND=dp), INTENT(IN) :: x, y - REAL(KIND=dp) :: frac_bg - INTEGER, INTENT(IN) :: k - LOGICAL, INTENT(IN) :: lfirst - - Mix = x - - frac_bg = Kturb * DT - - IF (lfirst .AND. lverbose) THEN - WRITE(*,"(6X,A,1X,F6.3)") "fractional amount of background air", & - frac_bg - WRITE(*,"(6X,A15,1X,3(A12,1X))") "species ", & - "before", "background", "after" - ENDIF - - ! we don't mix fixed variables - IF (k .LT. NFIXST) THEN - - ! seems like we found something - Mix = frac_bg * (y * CFACTOR) + & - (1.0 - frac_bg) * x - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,3(E12.6,1X))") SPC_NAMES(k), x/CFACTOR, & - y, Mix/CFACTOR - ENDIF - - ENDIF - - END FUNCTION Mix -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturb - calculate Kturb for mixing -! **************************************************************************** - SUBROUTINE UpdateKturb() - - Kturb = 0.0 - SELECT CASE (iturb) - CASE (TURB_OPT_NONE) - Kturb = 0.0 - CASE (TURB_OPT_SPECIFIED) - CALL UpdateKturbSpecified() - CASE (TURB_OPT_VOLUME) - CALL UpdateKturbVolume() - CASE (TURB_OPT_TRACER) - CALL UpdateKturbTracer() - CASE DEFAULT - WRITE(*,"(A,1X,I1)") "Unknown mixing option", iturb - END SELECT - - END SUBROUTINE UpdateKturb -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbSpecified - calc. Kturb for mixing using specified Kturb -! **************************************************************************** - SUBROUTINE UpdateKturbSpecified() - - INTEGER :: nr, na, i, iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - anames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox), & - avalues(max_species_boxmox) - LOGICAL :: lfound - - Kturb = 0.0 - - CALL readVals('Background.csv', & - nr, rnames, rvalues, iostat, & - na, anames, avalues, lquiet=.TRUE.) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - lfound = .FALSE. - DO i = 1, na - IF ( strEqual(anames(i), 'Kturb') ) THEN - Kturb = avalues(i) - lfound = .TRUE. - ENDIF - ENDDO - - IF (.NOT. lfound) THEN - WRITE(*,*) "Kturb variable not found in Background.csv" - STOP - ENDIF - - END SUBROUTINE UpdateKturbSpecified -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbVolume - calc. Kturb for mixing using box volume changes -! **************************************************************************** - SUBROUTINE UpdateKturbVolume() - - REAL(KIND=dp) :: vol, vol_old - - vol = dxdydz(1) * dxdydz(2) * dxdydz(3) - vol_old = dxdydz_old(1) * dxdydz_old(2) * dxdydz_old(3) - - ! maybe we have a mixing case where the box volume changes? - ! increasing volume - dilute against background - ! decreasing volume - ignore (?) for now - - ! in the PBL case, analogue: - ! maybe we changed the PBLH? update concentration vector - ! rising BL - mixing against zero air or bg values - ! shrinking BL - creates residual layer, decouples - - IF (vol > vol_old) THEN - Kturb = ( (vol - vol_old) / vol_old ) / DT - ENDIF - - END SUBROUTINE UpdateKturbVolume -! **************************************************************************** - - -! **************************************************************************** -! UpdateKturbTracer - calc. Kturb for mixing using tracer (t, tname) conc. -! changes -! **************************************************************************** - SUBROUTINE UpdateKturbTracer() - - INTEGER :: nr, na, i, iostat, ierrstat - CHARACTER(LEN=15) :: rnames(max_species_boxmox), & - anames(max_species_boxmox), & - tracer_name - REAL(KIND=dp) :: rvalues(max_species_boxmox), & - avalues(max_species_boxmox), & - prev, obs, bg, frac_bg - LOGICAL :: lfound_prev, lfound_bg - - Kturb = 0.0 - - CALL readVals('Background.csv', & - nr, rnames, rvalues, iostat, & - na, anames, avalues, lquiet=.TRUE.) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - ! ASSUMPTION: first ancillary species is mixing tracer - tracer_name = anames(1) - obs = avalues(1) * CFACTOR - - prev = 0.0 - lfound_prev = .FALSE. - DO i = 1, NSPEC - IF ( strEqual(SPC_NAMES(i), tracer_name) ) THEN - prev = C(i) - lfound_prev = .TRUE. - ENDIF - ENDDO - - bg = 0.0 - lfound_bg = .FALSE. - DO i = 1, nr - IF ( strEqual(rnames(i), tracer_name) ) THEN - bg = rvalues(i) * CFACTOR - lfound_bg = .TRUE. - ENDIF - ENDDO - - IF (.NOT. lfound_bg) THEN - WRITE(*,*) "Tracer ", TRIM(tracer_name), & - " not found in Background.csv" - STOP - ENDIF - IF (.NOT. lfound_prev) THEN - WRITE(*,*) "Tracer ", TRIM(tracer_name), & - " not found in mechanism" - STOP - ENDIF - - IF ( ABS( bg - prev ) < 1e-10 ) THEN - Kturb = 0.0 - ELSE - frac_bg = ( obs - prev ) / ( bg - prev ) - frac_bg = MIN( frac_bg, 1.0 ) - frac_bg = MAX( frac_bg, 0.0 ) - - Kturb = frac_bg / DT - ENDIF - - END SUBROUTINE UpdateKturbTracer -! **************************************************************************** - - -! **************************************************************************** -! UpdatePhotolysisRates - well, it does what it seems to do -! **************************************************************************** - SUBROUTINE UpdatePhotolysisRates() - - INTEGER :: i, iostat, nr, jidx - CHARACTER(LEN=15) :: rnames(max_species_boxmox) - REAL(KIND=dp) :: rvalues(max_species_boxmox) - - INTEGER :: j, jidx2 - - rnames(:) = " " - rvalues(:) = 0.0 - - jvalues(:) = 0.0 - - CALL readVals('PhotolysisRates.csv', nr, rnames, rvalues, iostat) - - IF (iostat .NE. 0) THEN - RETURN - ENDIF - - DO i = 1, nr - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,E12.6)") rnames(i), rvalues(i) - ENDIF - jidx = hash(rnames(i)) - jvalues(jidx) = rvalues(i) - ENDDO - - ! first time step only: make sure hashing actually made unique hashes - IF (TIME .EQ. TSTART) THEN - DO i = 1, nr - jidx = hash(rnames(i)) - DO j = 1, nr - jidx2 = hash(rnames(j)) - IF ((jidx .EQ. jidx2) .AND. .NOT. (i .EQ. j)) THEN - WRITE(*,*) "Photolysis rate label hash collision:" - WRITE(*,*) rnames(i), "(idx ",i,", hash ", jidx, ") == ", & - rnames(j), "(idx ",j,", hash ", jidx2,")" - IF ( strEqual( rnames(i), rnames(j) ) ) THEN - WRITE(*,*) "Remove duplicate label in PhotolysisRates.csv!" - ELSE - WRITE(*,*) "Please contact the BOXMOX developers!" - ENDIF - STOP - ENDIF - ENDDO - ENDDO - - CALL writespecstring(nr, "known:", rnames, 6) - - ENDIF - - END SUBROUTINE UpdatePhotolysisRates -! **************************************************************************** - - -! **************************************************************************** -! UpdateAerosol - update aerosol properties -! **************************************************************************** - SUBROUTINE UpdateAerosol() - - INTEGER, PARAMETER :: naer = 2, sad_idx = 1, r_idx = 2 - REAL(KIND=dp) :: aer(naer), errval = -987654321.0 - CHARACTER(LEN=15) :: aernames(naer) - INTEGER :: iostat, i - - aernames(sad_idx) = "sad"; aer(sad_idx) = errval - aernames(r_idx) = "r"; aer(r_idx) = errval - - CALL readInput('Aerosol.csv', naer, aernames, aer, quiet=lverbose) - - IF (aer(sad_idx) .NE. errval) AER_SAD = aer(sad_idx) - IF (aer(r_idx) .NE. errval) AER_R = aer(r_idx) - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,F8.2)") "SAD ", AER_SAD - WRITE(*,"(6X,A15,1X,F8.2)") "R ", AER_R - ENDIF - - END SUBROUTINE UpdateAerosol -! **************************************************************************** - - -! **************************************************************************** -! UpdateEnvironment - Read environmental values -! **************************************************************************** - SUBROUTINE UpdateEnvironment() - - INTEGER, PARAMETER :: nenv = 4, temp_idx = 1, pres_idx = 2, & - pblh_idx = 3, vol_idx = 4 - REAL(KIND=dp) :: env(nenv), errval = -987654321.0 - CHARACTER(LEN=15) :: envnames(nenv) - INTEGER :: iostat, i - - REAL(KIND=dp) :: temp_old, pres_old, pblh, vol - - envnames(temp_idx) = "TEMP"; env(temp_idx) = errval - envnames(pres_idx) = "PRES"; env(pres_idx) = errval - envnames(pblh_idx) = "PBLH"; env(pblh_idx) = errval - envnames(vol_idx) = "VOL"; env(vol_idx) = errval - - CALL readInput('Environment.csv', nenv, envnames, env, quiet=lverbose) - - temp_old = temp - pres_old = pres - - dxdydz_old(:) = dxdydz(:) - - ! those are just pseudo variables for dxdydz properties - pblh = dxdydz(3) - vol = dxdydz(1) * dxdydz(2) * dxdydz(3) - - IF (env(pblh_idx) .NE. errval .AND. env(vol_idx) .NE. errval) & - THEN - WRITE(*,*) "Cannot work with changing PBLH and VOL at the same time." - STOP - ENDIF - - IF (env(temp_idx) .NE. errval) temp = env(temp_idx) - IF (env(pres_idx) .NE. errval) pres = env(pres_idx) - IF (env(vol_idx) .NE. errval) vol = env(vol_idx) - - IF (env(pblh_idx) .NE. errval) THEN - pblh = env(pblh_idx) - dxdydz(3) = pblh - ENDIF - - ! Adjust species vector - DO i = 1, NSPEC - C(i) = C(i) * (temp_old * pres) / (temp * pres_old) - ENDDO - - ! recalculate unit conversion - CALL calcCFACTOR() - - IF (lverbose) THEN - WRITE(*,"(6X,A15,1X,F8.2)") "TEMP ", temp - WRITE(*,"(6X,A13,1X,F10.2)") "PRES ", pres - WRITE(*,"(6X,A15,1X,F8.2)") "PBLH ", dxdydz(3) - WRITE(*,"(6X,A15,1X,F8.2)") "VOL ", & - dxdydz(1)*dxdydz(2)*dxdydz(3) - WRITE(*,*) "" - WRITE(*,"(6X,A7,1X,E16.8)") "CFACTOR", CFACTOR - ENDIF - - END SUBROUTINE UpdateEnvironment -! **************************************************************************** - - -! **************************************************************************** -! InitFixNOx - Initialize the NOx fixing data (for steady state calculations) -! **************************************************************************** - SUBROUTINE InitFixNOx(n, names, values) - - INTEGER, INTENT(IN) :: n - REAL(KIND=dp) :: values(n) - CHARACTER(LEN=15), INTENT(IN) :: names(n) - - INTEGER :: i, nfound_tracers - - initial_total_nox = 0.0 - nfound_tracers = 0 - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - initial_total_nox = initial_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - initial_total_nox = initial_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - ENDDO - - IF (.NOT. nfound_tracers == 2) THEN - WRITE(*,*) "NOx fixing failed, found (only) ", & - nfound_tracers, " species." - STOP - ENDIF - - END SUBROUTINE InitFixNOx -! **************************************************************************** - - -! **************************************************************************** -! FixNOx - keep total NOx at initial levels (for steady state calculations) -! **************************************************************************** - SUBROUTINE FixNOx(n, names, values) - - INTEGER, INTENT(IN) :: n - REAL(KIND=dp), INTENT(INOUT) :: values(n) - CHARACTER(LEN=15), INTENT(IN) :: names(n) - - INTEGER :: i, nfound_tracers - REAL(KIND=dp) :: current_total_nox, scaleFactor - - current_total_nox = 0.0 - nfound_tracers = 0 - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - current_total_nox = current_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - current_total_nox = current_total_nox + values(i) - nfound_tracers = nfound_tracers + 1 - ENDIF - ENDDO - - IF (.NOT. nfound_tracers == 2) THEN - WRITE(*,*) "NOx fixing failed, found (only) ", & - nfound_tracers, " species." - STOP - ENDIF - - scaleFactor = initial_total_nox - IF (current_total_nox > 0.0) THEN - scaleFactor = initial_total_nox / current_total_nox - ENDIF - - DO i = 1, n - IF ( strEqual(names(i), 'NO ') ) THEN - values(i) = values(i) * scaleFactor - ENDIF - IF ( strEqual(names(i), 'NO2 ') ) THEN - values(i) = values(i) * scaleFactor - ENDIF - ENDDO - - END SUBROUTINE FixNOx -! **************************************************************************** - - -! End INLINED Utility Functions - -! Utility Functions from KPP_HOME/util/util -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! UTIL - Utility functions -! Arguments : -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -! **************************************************************** -! -! InitSaveData - Opens the data file for writing -! Parameters : -! -! **************************************************************** - - SUBROUTINE InitSaveData () - - USE SAPRC99_Parameters -!* ---------------------------------------------------- -!* BOXMOX extension - Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* add header to output species and sparse jacobian indices -!* and Hessian - USE SAPRC99_JacobianSP -#if 0 > 0 - USE SAPRC99_HessianSP -#endif -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* add header to output files and open rates file - INTEGER :: i -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20161129 -!* renamed concentration output -! open(10, file='SAPRC99.dat') - open(10, file='SAPRC99.conc') -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* add header to output files and open rates file - - ! add header to output file - WRITE(10, "(A24,10000(1X,A24))") "time", ADJUSTR(SPC_NAMES(LOOKAT)) - - open(11, file='SAPRC99.rates') - - WRITE(11, "(I5)") NREACT - - DO i = 1, NREACT - WRITE(11, "(A)") EQN_NAMES(i) - ENDDO - - ! add header to output file - WRITE(11, "(A24,10000(1X,I24))") "time", (/(i, i=1,NREACT, 1)/) - -!* write header to Jacobian output - open(12, file='SAPRC99.jacobian') - -!* species names - WRITE(12, "(10000(1X,A24))") ADJUSTR(SPC_NAMES(LOOKAT)) -!* species index - WRITE(12, "(10000(1X,I5))") LOOKAT -!* Jacobian non zero row index - WRITE(12, "(100000(1X,I5))") (LU_IROW(i), i=1,LU_NONZERO) -!* Jacobian non zero column index - WRITE(12, "(100000(1X,I5))") (LU_ICOL(i), i=1,LU_NONZERO) - -!* write header to Hessian output -#if 0 > 0 - open(13, file='SAPRC99.hessian') - -!* species names - WRITE(13, "(10000(1X,A24))") ADJUSTR(SPC_NAMES(LOOKAT)) -!* species index - WRITE(13, "(10000(1X,I5))") LOOKAT -!* Hessian i, j, k species - WRITE(13, "(100000(1X,I5))") (IHESS_I(i), i=1,NHESS) - WRITE(13, "(100000(1X,I5))") (IHESS_J(i), i=1,NHESS) - WRITE(13, "(100000(1X,I5))") (IHESS_K(i), i=1,NHESS) -#endif -!* ---------------------------------------------------- - - END SUBROUTINE InitSaveData - -! End of InitSaveData function -! **************************************************************** - -! **************************************************************** -! -! SaveData - Write LOOKAT species in the data file -! Parameters : -! -! **************************************************************** - - SUBROUTINE SaveData () - - USE SAPRC99_Global - USE SAPRC99_Monitor -!* ---------------------------------------------------- -!* BOXMOX extension - Jerome Barre - 20150410 -!* Christoph Knote - 20151030 - USE SAPRC99_Jacobian -#if 0 > 0 - USE SAPRC99_Hessian -#endif -!* ---------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20151030 - REAL(KIND=dp) :: JVS(LU_NONZERO) ! d(dc/dt)i/dcj -#if 0 > 0 - REAL(KIND=dp) :: HESS(NHESS) ! -#endif - INTEGER i - - WRITE(10,999) (TIME-TSTART)/3600.D0, & - (C(LOOKAT(i))/CFACTOR, i=1,NLOOKAT) - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -!* Christoph Knote - 20151030 -!* write out reaction rates - WRITE(11,999) (TIME-TSTART)/3600.D0, & - (RCONST(i), i=1,NREACT) -!* call Jacobian function to output Jacobian values - CALL Jac_SP( VAR, FIX, RCONST, JVS ) - WRITE(12,9999) (JVS(i), i=1,LU_NONZERO) -!* call Hessian function to output Hessian values -#if 0 > 0 - CALL Hessian( VAR, FIX, RCONST, HESS ) - WRITE(13,9999) (HESS(i), i=1,NHESS) -#endif -!* --------------------------------------------------- - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* might have more than 100 output variables -! 999 FORMAT(E24.16,100(1X,E24.16)) -999 FORMAT(E24.16,10000(1X,E24.16E3)) -9999 FORMAT(E24.16,100000(1X,E24.16E3)) -!* ---------------------------------------------------- - - END SUBROUTINE SaveData - -! End of SaveData function -! **************************************************************** - -! **************************************************************** -! -! CloseSaveData - Close the data file -! Parameters : -! -! **************************************************************** - - SUBROUTINE CloseSaveData () - - USE SAPRC99_Parameters - - CLOSE(10) - -!* ---------------------------------------------------- -!* BOXMOX extension - Christoph Knote - 20140610 -!* Jerome Barre - 20150410 -! Christoph Knote - 20153010 -!* close rates file - CLOSE(11) -!* close Jacobian file - CLOSE(12) -!* close Hessian file -#if 0 > 0 - CLOSE(13) -#endif -!* --------------------------------------------------- - - END SUBROUTINE CloseSaveData - -! End of CloseSaveData function -! **************************************************************** - -! **************************************************************** -! -! GenerateMatlab - Generates MATLAB file to load the data file -! Parameters : -! It will have a character string to prefix each -! species name with. -! -! **************************************************************** - - SUBROUTINE GenerateMatlab ( PREFIX ) - - USE SAPRC99_Parameters - USE SAPRC99_Global - USE SAPRC99_Monitor - - - CHARACTER(LEN=8) PREFIX - INTEGER i - - open(20, file='SAPRC99.m') - write(20,*) 'load SAPRC99.dat;' - write(20,990) PREFIX -990 FORMAT(A1,'c = SAPRC99;') - write(20,*) 'clear SAPRC99;' - write(20,991) PREFIX, PREFIX -991 FORMAT(A1,'t=',A1,'c(:,1);') - write(20,992) PREFIX -992 FORMAT(A1,'c(:,1)=[];') - - do i=1,NLOOKAT - write(20,993) PREFIX, SPC_NAMES(LOOKAT(i)), PREFIX, i -993 FORMAT(A1,A6,' = ',A1,'c(:,',I2,');') - end do - - CLOSE(20) - - END SUBROUTINE GenerateMatlab - -! End of GenerateMatlab function -! **************************************************************** - - -! End Utility Functions from KPP_HOME/util/util -! End of UTIL function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Shuffle_user2kpp - function to copy concentrations from USER to KPP -! Arguments : -! V_USER - Concentration of variable species in USER's order -! V - Concentrations of variable species (local) -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Shuffle_user2kpp ( V_USER, V ) - -! V_USER - Concentration of variable species in USER's order - REAL(kind=dp) :: V_USER(NVAR) -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) - - V(67) = V_USER(1) - V(19) = V_USER(2) - V(73) = V_USER(3) - V(74) = V_USER(4) - V(75) = V_USER(5) - V(22) = V_USER(6) - V(23) = V_USER(7) - V(47) = V_USER(8) - V(32) = V_USER(9) - V(10) = V_USER(10) - V(1) = V_USER(11) - V(45) = V_USER(12) - V(61) = V_USER(13) - V(60) = V_USER(14) - V(64) = V_USER(15) - V(46) = V_USER(16) - V(65) = V_USER(17) - V(3) = V_USER(18) - V(28) = V_USER(19) - V(21) = V_USER(20) - V(4) = V_USER(21) - V(5) = V_USER(22) - V(49) = V_USER(23) - V(44) = V_USER(24) - V(14) = V_USER(25) - V(37) = V_USER(26) - V(41) = V_USER(27) - V(57) = V_USER(28) - V(55) = V_USER(29) - V(59) = V_USER(30) - V(66) = V_USER(31) - V(38) = V_USER(32) - V(35) = V_USER(33) - V(36) = V_USER(34) - V(48) = V_USER(35) - V(52) = V_USER(36) - V(13) = V_USER(37) - V(20) = V_USER(38) - V(39) = V_USER(39) - V(50) = V_USER(40) - V(24) = V_USER(41) - V(33) = V_USER(42) - V(26) = V_USER(43) - V(34) = V_USER(44) - V(27) = V_USER(45) - V(56) = V_USER(46) - V(58) = V_USER(47) - V(54) = V_USER(48) - V(62) = V_USER(49) - V(40) = V_USER(50) - V(43) = V_USER(51) - V(15) = V_USER(52) - V(16) = V_USER(53) - V(17) = V_USER(54) - V(18) = V_USER(55) - V(2) = V_USER(56) - V(6) = V_USER(57) - V(72) = V_USER(58) - V(7) = V_USER(59) - V(8) = V_USER(60) - V(9) = V_USER(61) - V(63) = V_USER(62) - V(11) = V_USER(63) - V(71) = V_USER(64) - V(78) = V_USER(65) - V(76) = V_USER(66) - V(29) = V_USER(67) - V(42) = V_USER(68) - V(77) = V_USER(69) - V(53) = V_USER(70) - V(69) = V_USER(71) - V(30) = V_USER(72) - V(68) = V_USER(73) - V(79) = V_USER(74) - V(31) = V_USER(75) - V(51) = V_USER(76) - V(70) = V_USER(77) - V(25) = V_USER(78) - V(12) = V_USER(79) - -END SUBROUTINE Shuffle_user2kpp - -! End of Shuffle_user2kpp function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Shuffle_kpp2user - function to restore concentrations from KPP to USER -! Arguments : -! V - Concentrations of variable species (local) -! V_USER - Concentration of variable species in USER's order -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE Shuffle_kpp2user ( V, V_USER ) - -! V - Concentrations of variable species (local) - REAL(kind=dp) :: V(NVAR) -! V_USER - Concentration of variable species in USER's order - REAL(kind=dp) :: V_USER(NVAR) - - V_USER(1) = V(67) - V_USER(2) = V(19) - V_USER(3) = V(73) - V_USER(4) = V(74) - V_USER(5) = V(75) - V_USER(6) = V(22) - V_USER(7) = V(23) - V_USER(8) = V(47) - V_USER(9) = V(32) - V_USER(10) = V(10) - V_USER(11) = V(1) - V_USER(12) = V(45) - V_USER(13) = V(61) - V_USER(14) = V(60) - V_USER(15) = V(64) - V_USER(16) = V(46) - V_USER(17) = V(65) - V_USER(18) = V(3) - V_USER(19) = V(28) - V_USER(20) = V(21) - V_USER(21) = V(4) - V_USER(22) = V(5) - V_USER(23) = V(49) - V_USER(24) = V(44) - V_USER(25) = V(14) - V_USER(26) = V(37) - V_USER(27) = V(41) - V_USER(28) = V(57) - V_USER(29) = V(55) - V_USER(30) = V(59) - V_USER(31) = V(66) - V_USER(32) = V(38) - V_USER(33) = V(35) - V_USER(34) = V(36) - V_USER(35) = V(48) - V_USER(36) = V(52) - V_USER(37) = V(13) - V_USER(38) = V(20) - V_USER(39) = V(39) - V_USER(40) = V(50) - V_USER(41) = V(24) - V_USER(42) = V(33) - V_USER(43) = V(26) - V_USER(44) = V(34) - V_USER(45) = V(27) - V_USER(46) = V(56) - V_USER(47) = V(58) - V_USER(48) = V(54) - V_USER(49) = V(62) - V_USER(50) = V(40) - V_USER(51) = V(43) - V_USER(52) = V(15) - V_USER(53) = V(16) - V_USER(54) = V(17) - V_USER(55) = V(18) - V_USER(56) = V(2) - V_USER(57) = V(6) - V_USER(58) = V(72) - V_USER(59) = V(7) - V_USER(60) = V(8) - V_USER(61) = V(9) - V_USER(62) = V(63) - V_USER(63) = V(11) - V_USER(64) = V(71) - V_USER(65) = V(78) - V_USER(66) = V(76) - V_USER(67) = V(29) - V_USER(68) = V(42) - V_USER(69) = V(77) - V_USER(70) = V(53) - V_USER(71) = V(69) - V_USER(72) = V(30) - V_USER(73) = V(68) - V_USER(74) = V(79) - V_USER(75) = V(31) - V_USER(76) = V(51) - V_USER(77) = V(70) - V_USER(78) = V(25) - V_USER(79) = V(12) - -END SUBROUTINE Shuffle_kpp2user - -! End of Shuffle_kpp2user function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! GetMass - compute total mass of selected atoms -! Arguments : -! CL - Concentration of all species (local) -! Mass - value of mass balance -! -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -SUBROUTINE GetMass ( CL, Mass ) - -! CL - Concentration of all species (local) - REAL(kind=dp) :: CL(NSPEC) -! Mass - value of mass balance - REAL(kind=dp) :: Mass(1) - - -END SUBROUTINE GetMass - -! End of GetMass function -! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -END MODULE SAPRC99_Util - diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Util.o b/boxmox/compiled_mechs/SAPRC99/SAPRC99_Util.o deleted file mode 100644 index 5b85e6b276bcf19ef29e099a02420896886c5aff..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/SAPRC99_Util.o and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_mex_Fun.f90 b/boxmox/compiled_mechs/SAPRC99/SAPRC99_mex_Fun.f90 deleted file mode 100644 index 0f42294e45b2971c22168bb2d9b599f44955057f..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/SAPRC99/SAPRC99_mex_Fun.f90 +++ /dev/null @@ -1,45 +0,0 @@ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE mexFunction( nlhs, plhs, nrhs, prhs ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Matlab Gateway for the Derivative Function Fun -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE SAPRC99_Model - - INTEGER nlhs, nrhs - INTEGER plhs(*), prhs(*) - INTEGER mxGetPr, mxCreateFull, mxGetM, mxgetN - INTEGER VPtr, FPtr, RPtr, VdotPtr - REAL(kind=dp) V(79), F(2), RCT(225) - REAL(kind=dp) Vdot(79) - -! Check for the right number of input arguments - IF ( nrhs .ne. 3 ) THEN - CALL mexErrMsgTxt('Fun requires 3 input vectors: & - &V(79), F(2), RCT(225)') - END IF -! Check for the right number of output arguments - IF ( nlhs .ne. 1 ) THEN - CALL mexErrMsgTxt('Fun requires 1 output vector: & - &Vdot(79)') - END IF - - plhs(1) = mxCreateDoubleMatrix(79,1,0) - - VPtr = mxGetPr(prhs(1)) - CALL mxCopyPtrToReal8(VPtr,V,79) - - FPtr = mxGetPr(prhs(2)) - CALL mxCopyPtrToReal8(FPtr,F,2) - - RPtr = mxGetPr(prhs(3)) - CALL mxCopyPtrToReal8(RPtr,RCT,225) - - VdotPtr = mxGetPr(plhs(1)) - - CALL Fun( V, F, RCT, Vdot ) - - CALL mxCopyReal8ToPtr(Vdot, VdotPtr, 79) - - END SUBROUTINE mexFunction diff --git a/boxmox/compiled_mechs/SAPRC99/SAPRC99_mex_Jac_SP.f90 b/boxmox/compiled_mechs/SAPRC99/SAPRC99_mex_Jac_SP.f90 deleted file mode 100644 index c814d5ca622f0e82c01316c199e8469f940b4a05..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/SAPRC99/SAPRC99_mex_Jac_SP.f90 +++ /dev/null @@ -1,44 +0,0 @@ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE mexFunction( nlhs, plhs, nrhs, prhs ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Matlab Gateway for the Sparse Jacobian Function Jac_SP -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE SAPRC99_Model - - INTEGER nlhs, nrhs - INTEGER plhs(*), prhs(*) - INTEGER mxGetPr, mxCreateFull, mxGetM, mxgetN - INTEGER VPtr, FPtr, RPtr, JVSPtr - REAL(kind=dp) V(79), F(2), RCT(225) - REAL(kind=dp) JVS(968) - -! Check for the right number of input arguments - IF ( nrhs .ne. 3 ) THEN - CALL mexErrMsgTxt('Jac_SP requires 3 input vectors: & - &V(79), F(2), RCT(225)') - END IF -! Check for the right number of output arguments - IF ( nlhs .ne. 1 ) THEN - CALL mexErrMsgTxt('Jac_SP requires 1 output vector: & - &JVS(968)') - END IF - - plhs(1) = mxCreateDoubleMatrix(968,1,0) - - VPtr = mxGetPr(prhs(1)) - CALL mxCopyPtrToReal8(VPtr,V,79) - - FPtr = mxGetPr(prhs(2)) - CALL mxCopyPtrToReal8(FPtr,F,2) - - RPtr = mxGetPr(prhs(3)) - CALL mxCopyPtrToReal8(RPtr,RCT,225) - - JVSPtr = mxGetPr(plhs(1)) - - CALL Jac_SP( V, F, RCT, JVS ) - - CALL mxCopyReal8ToPtr(JVS, JVSPtr, 968) - - END SUBROUTINE mexFunction diff --git a/boxmox/compiled_mechs/SAPRC99/compile.log b/boxmox/compiled_mechs/SAPRC99/compile.log deleted file mode 100644 index df8682f0da6230c0bcf58d497643641c0d088de3..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/SAPRC99/compile.log +++ /dev/null @@ -1,22 +0,0 @@ -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c SAPRC99_Precision.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c SAPRC99_Parameters.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c SAPRC99_Global.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c SAPRC99_Function.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c SAPRC99_JacobianSP.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c SAPRC99_Jacobian.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c SAPRC99_StoichiomSP.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c SAPRC99_Stoichiom.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c SAPRC99_Monitor.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c SAPRC99_Util.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c SAPRC99_Rates.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c SAPRC99_LinearAlgebra.f90 -SAPRC99_LinearAlgebra.f90:1375:46: - - 1375 | IF (incX .EQ. incY) IF (incX-1) 5,20,60 - | 1 -Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c SAPRC99_Initialize.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c SAPRC99_Integrator.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c SAPRC99_Model.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 -c SAPRC99_Main.f90 -gfortran -cpp -g -ffree-line-length-none -freal-4-real-8 SAPRC99_Precision.o SAPRC99_Parameters.o SAPRC99_Global.o SAPRC99_Function.o SAPRC99_JacobianSP.o SAPRC99_Jacobian.o SAPRC99_StoichiomSP.o SAPRC99_Stoichiom.o SAPRC99_Rates.o SAPRC99_Util.o SAPRC99_Monitor.o SAPRC99_LinearAlgebra.o SAPRC99_Main.o SAPRC99_Initialize.o SAPRC99_Integrator.o SAPRC99_Model.o -o SAPRC99.exe diff --git a/boxmox/compiled_mechs/SAPRC99/kpp.log b/boxmox/compiled_mechs/SAPRC99/kpp.log deleted file mode 100644 index 56c72b34a7ce6f7d53efe6b4615819ee0af676ab..0000000000000000000000000000000000000000 --- a/boxmox/compiled_mechs/SAPRC99/kpp.log +++ /dev/null @@ -1,37 +0,0 @@ - -This is KPP-2.2.3. - -KPP is parsing the equation file. -KPP is computing Jacobian sparsity structure. -KPP is starting the code generation. -KPP is initializing the code generation. -KPP is generating the monitor data: - - SAPRC99_Monitor -KPP is generating the global declarations: - - SAPRC99_Main -KPP is generating the ODE function: - - SAPRC99_Function -KPP is generating the ODE Jacobian: - - SAPRC99_Jacobian - - SAPRC99_JacobianSP -KPP is generating the linear algebra routines: - - SAPRC99_LinearAlgebra -KPP is generating the utility data: - - SAPRC99_Util -KPP is generating the utility functions: - - SAPRC99_Util -KPP is generating the rate laws: - - SAPRC99_Rates -KPP is generating the parameters: - - SAPRC99_Parameters -KPP is generating the global data: - - SAPRC99_Global -KPP is generating the stoichiometric description files: - - SAPRC99_Stoichiom - - SAPRC99_StoichiomSP -KPP is generating the driver from ../boxmox/boxmox.f90: - - SAPRC99_Main -KPP is starting the code post-processing. - -KPP has succesfully created the model "SAPRC99". - diff --git a/boxmox/compiled_mechs/SAPRC99/saprc99_function.mod b/boxmox/compiled_mechs/SAPRC99/saprc99_function.mod deleted file mode 100644 index 39c1afa24693b806f3528ceabdc48227470b2796..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/saprc99_function.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/saprc99_global.mod b/boxmox/compiled_mechs/SAPRC99/saprc99_global.mod deleted file mode 100644 index 3c9fdb470d731bc7b20391c155ca4b7c0badbbc9..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/saprc99_global.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/saprc99_initialize.mod b/boxmox/compiled_mechs/SAPRC99/saprc99_initialize.mod deleted file mode 100644 index 7d3018458182a76a48e6abbc6297f1183221b708..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/saprc99_initialize.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/saprc99_integrator.mod b/boxmox/compiled_mechs/SAPRC99/saprc99_integrator.mod deleted file mode 100644 index c20160250303460a95e22e214a5f92107bea7ef8..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/saprc99_integrator.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/saprc99_jacobian.mod b/boxmox/compiled_mechs/SAPRC99/saprc99_jacobian.mod deleted file mode 100644 index e012238e5280b4fc8ec063875f66db8a32cc8d76..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/saprc99_jacobian.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/saprc99_jacobiansp.mod b/boxmox/compiled_mechs/SAPRC99/saprc99_jacobiansp.mod deleted file mode 100644 index bbca8610bc3b25038440542284844bae67a1ce4c..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/saprc99_jacobiansp.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/saprc99_linearalgebra.mod b/boxmox/compiled_mechs/SAPRC99/saprc99_linearalgebra.mod deleted file mode 100644 index 2c6f1cfcd1b97682ae9c0cdd38beacd57c4c9b12..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/saprc99_linearalgebra.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/saprc99_model.mod b/boxmox/compiled_mechs/SAPRC99/saprc99_model.mod deleted file mode 100644 index 8a651056aabaa0d362f20f15f5c5977ca9a914ad..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/saprc99_model.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/saprc99_monitor.mod b/boxmox/compiled_mechs/SAPRC99/saprc99_monitor.mod deleted file mode 100644 index dcbeb4f9f0ed2fbad97eb34637add1152e4c9197..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/saprc99_monitor.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/saprc99_parameters.mod b/boxmox/compiled_mechs/SAPRC99/saprc99_parameters.mod deleted file mode 100644 index d3a5f908eb854d05660ddea18f5da187e9874cc3..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/saprc99_parameters.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/saprc99_precision.mod b/boxmox/compiled_mechs/SAPRC99/saprc99_precision.mod deleted file mode 100644 index 18a3c3ba0bf1498d13098b9f9001cbb61e571421..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/saprc99_precision.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/saprc99_rates.mod b/boxmox/compiled_mechs/SAPRC99/saprc99_rates.mod deleted file mode 100644 index 07e8b335235fe926400b8341d0e9b6db7630aaea..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/saprc99_rates.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/saprc99_stoichiom.mod b/boxmox/compiled_mechs/SAPRC99/saprc99_stoichiom.mod deleted file mode 100644 index c3614202e2e50a88ea1970880ac5e3e1388a11c1..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/saprc99_stoichiom.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/saprc99_stoichiomsp.mod b/boxmox/compiled_mechs/SAPRC99/saprc99_stoichiomsp.mod deleted file mode 100644 index ec6a45ec2fce6f7efa7f96d7dd303ad6933b9bd6..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/saprc99_stoichiomsp.mod and /dev/null differ diff --git a/boxmox/compiled_mechs/SAPRC99/saprc99_util.mod b/boxmox/compiled_mechs/SAPRC99/saprc99_util.mod deleted file mode 100644 index 7854875039cc651e6c39e47ac40a89a86fba016e..0000000000000000000000000000000000000000 Binary files a/boxmox/compiled_mechs/SAPRC99/saprc99_util.mod and /dev/null differ diff --git a/boxmox/examples/BOXMOX.nml b/case_studies/BOXMOX.nml similarity index 100% rename from boxmox/examples/BOXMOX.nml rename to case_studies/BOXMOX.nml diff --git a/boxmox/examples/chamber_experiment/BOXMOX.nml b/case_studies/chamber_experiment/BOXMOX.nml similarity index 100% rename from boxmox/examples/chamber_experiment/BOXMOX.nml rename to case_studies/chamber_experiment/BOXMOX.nml diff --git a/boxmox/examples/chamber_experiment/Environment.csv b/case_studies/chamber_experiment/Environment.csv similarity index 100% rename from boxmox/examples/chamber_experiment/Environment.csv rename to case_studies/chamber_experiment/Environment.csv diff --git a/boxmox/examples/chamber_experiment/InitialConditions.csv b/case_studies/chamber_experiment/InitialConditions.csv similarity index 100% rename from boxmox/examples/chamber_experiment/InitialConditions.csv rename to case_studies/chamber_experiment/InitialConditions.csv diff --git a/boxmox/examples/chamber_experiment/PhotolysisRates.csv b/case_studies/chamber_experiment/PhotolysisRates.csv similarity index 100% rename from boxmox/examples/chamber_experiment/PhotolysisRates.csv rename to case_studies/chamber_experiment/PhotolysisRates.csv diff --git a/boxmox/examples/chamber_experiment/README b/case_studies/chamber_experiment/README similarity index 100% rename from boxmox/examples/chamber_experiment/README rename to case_studies/chamber_experiment/README diff --git a/boxmox/examples/chamber_experiment/mech_used b/case_studies/chamber_experiment/mech_used similarity index 100% rename from boxmox/examples/chamber_experiment/mech_used rename to case_studies/chamber_experiment/mech_used diff --git a/boxmox/examples/chamber_experiment/plot.R b/case_studies/chamber_experiment/plot.R similarity index 100% rename from boxmox/examples/chamber_experiment/plot.R rename to case_studies/chamber_experiment/plot.R diff --git a/boxmox/examples/dilution/BOXMOX.nml b/case_studies/dilution/BOXMOX.nml similarity index 100% rename from boxmox/examples/dilution/BOXMOX.nml rename to case_studies/dilution/BOXMOX.nml diff --git a/boxmox/examples/dilution/Background.csv b/case_studies/dilution/Background.csv similarity index 100% rename from boxmox/examples/dilution/Background.csv rename to case_studies/dilution/Background.csv diff --git a/boxmox/examples/dilution/Environment.csv b/case_studies/dilution/Environment.csv similarity index 100% rename from boxmox/examples/dilution/Environment.csv rename to case_studies/dilution/Environment.csv diff --git a/boxmox/examples/dilution/InitialConditions.csv b/case_studies/dilution/InitialConditions.csv similarity index 100% rename from boxmox/examples/dilution/InitialConditions.csv rename to case_studies/dilution/InitialConditions.csv diff --git a/boxmox/examples/dilution/PhotolysisRates.csv b/case_studies/dilution/PhotolysisRates.csv similarity index 100% rename from boxmox/examples/dilution/PhotolysisRates.csv rename to case_studies/dilution/PhotolysisRates.csv diff --git a/boxmox/examples/dilution/README b/case_studies/dilution/README similarity index 100% rename from boxmox/examples/dilution/README rename to case_studies/dilution/README diff --git a/boxmox/examples/dilution/mech_used b/case_studies/dilution/mech_used similarity index 100% rename from boxmox/examples/dilution/mech_used rename to case_studies/dilution/mech_used diff --git a/boxmox/examples/dilution/plot.R b/case_studies/dilution/plot.R similarity index 100% rename from boxmox/examples/dilution/plot.R rename to case_studies/dilution/plot.R diff --git a/boxmox/examples/het_chem/Aerosol.csv b/case_studies/het_chem/Aerosol.csv similarity index 100% rename from boxmox/examples/het_chem/Aerosol.csv rename to case_studies/het_chem/Aerosol.csv diff --git a/boxmox/examples/het_chem/BOXMOX.nml b/case_studies/het_chem/BOXMOX.nml similarity index 100% rename from boxmox/examples/het_chem/BOXMOX.nml rename to case_studies/het_chem/BOXMOX.nml diff --git a/boxmox/examples/het_chem/Environment.csv b/case_studies/het_chem/Environment.csv similarity index 100% rename from boxmox/examples/het_chem/Environment.csv rename to case_studies/het_chem/Environment.csv diff --git a/boxmox/examples/het_chem/InitialConditions.csv b/case_studies/het_chem/InitialConditions.csv similarity index 100% rename from boxmox/examples/het_chem/InitialConditions.csv rename to case_studies/het_chem/InitialConditions.csv diff --git a/boxmox/examples/het_chem/README b/case_studies/het_chem/README similarity index 100% rename from boxmox/examples/het_chem/README rename to case_studies/het_chem/README diff --git a/boxmox/examples/het_chem/mech_used b/case_studies/het_chem/mech_used similarity index 100% rename from boxmox/examples/het_chem/mech_used rename to case_studies/het_chem/mech_used diff --git a/boxmox/examples/het_chem/plot.R b/case_studies/het_chem/plot.R similarity index 100% rename from boxmox/examples/het_chem/plot.R rename to case_studies/het_chem/plot.R diff --git a/boxmox/examples/pbl_diurnal_cycle/BOXMOX.nml b/case_studies/pbl_diurnal_cycle/BOXMOX.nml similarity index 100% rename from boxmox/examples/pbl_diurnal_cycle/BOXMOX.nml rename to case_studies/pbl_diurnal_cycle/BOXMOX.nml diff --git a/boxmox/examples/pbl_diurnal_cycle/Background.csv b/case_studies/pbl_diurnal_cycle/Background.csv similarity index 100% rename from boxmox/examples/pbl_diurnal_cycle/Background.csv rename to case_studies/pbl_diurnal_cycle/Background.csv diff --git a/boxmox/examples/pbl_diurnal_cycle/Deposition.csv b/case_studies/pbl_diurnal_cycle/Deposition.csv similarity index 100% rename from boxmox/examples/pbl_diurnal_cycle/Deposition.csv rename to case_studies/pbl_diurnal_cycle/Deposition.csv diff --git a/boxmox/examples/pbl_diurnal_cycle/Emissions.csv b/case_studies/pbl_diurnal_cycle/Emissions.csv similarity index 100% rename from boxmox/examples/pbl_diurnal_cycle/Emissions.csv rename to case_studies/pbl_diurnal_cycle/Emissions.csv diff --git a/boxmox/examples/pbl_diurnal_cycle/Environment.csv b/case_studies/pbl_diurnal_cycle/Environment.csv similarity index 100% rename from boxmox/examples/pbl_diurnal_cycle/Environment.csv rename to case_studies/pbl_diurnal_cycle/Environment.csv diff --git a/boxmox/examples/pbl_diurnal_cycle/InitialConditions.csv b/case_studies/pbl_diurnal_cycle/InitialConditions.csv similarity index 100% rename from boxmox/examples/pbl_diurnal_cycle/InitialConditions.csv rename to case_studies/pbl_diurnal_cycle/InitialConditions.csv diff --git a/boxmox/examples/pbl_diurnal_cycle/PhotolysisRates.csv b/case_studies/pbl_diurnal_cycle/PhotolysisRates.csv similarity index 100% rename from boxmox/examples/pbl_diurnal_cycle/PhotolysisRates.csv rename to case_studies/pbl_diurnal_cycle/PhotolysisRates.csv diff --git a/boxmox/examples/pbl_diurnal_cycle/README b/case_studies/pbl_diurnal_cycle/README similarity index 100% rename from boxmox/examples/pbl_diurnal_cycle/README rename to case_studies/pbl_diurnal_cycle/README diff --git a/boxmox/examples/pbl_diurnal_cycle/mech_used b/case_studies/pbl_diurnal_cycle/mech_used similarity index 100% rename from boxmox/examples/pbl_diurnal_cycle/mech_used rename to case_studies/pbl_diurnal_cycle/mech_used diff --git a/boxmox/examples/pbl_diurnal_cycle/plot.R b/case_studies/pbl_diurnal_cycle/plot.R similarity index 100% rename from boxmox/examples/pbl_diurnal_cycle/plot.R rename to case_studies/pbl_diurnal_cycle/plot.R diff --git a/boxmox/examples/urban_plume/BOXMOX.nml b/case_studies/urban_plume/BOXMOX.nml similarity index 100% rename from boxmox/examples/urban_plume/BOXMOX.nml rename to case_studies/urban_plume/BOXMOX.nml diff --git a/boxmox/examples/urban_plume/Deposition.csv b/case_studies/urban_plume/Deposition.csv similarity index 100% rename from boxmox/examples/urban_plume/Deposition.csv rename to case_studies/urban_plume/Deposition.csv diff --git a/boxmox/examples/urban_plume/Emissions.csv b/case_studies/urban_plume/Emissions.csv similarity index 100% rename from boxmox/examples/urban_plume/Emissions.csv rename to case_studies/urban_plume/Emissions.csv diff --git a/boxmox/examples/urban_plume/Environment.csv b/case_studies/urban_plume/Environment.csv similarity index 100% rename from boxmox/examples/urban_plume/Environment.csv rename to case_studies/urban_plume/Environment.csv diff --git a/boxmox/examples/urban_plume/InitialConditions.csv b/case_studies/urban_plume/InitialConditions.csv similarity index 100% rename from boxmox/examples/urban_plume/InitialConditions.csv rename to case_studies/urban_plume/InitialConditions.csv diff --git a/boxmox/examples/urban_plume/PhotolysisRates.csv b/case_studies/urban_plume/PhotolysisRates.csv similarity index 100% rename from boxmox/examples/urban_plume/PhotolysisRates.csv rename to case_studies/urban_plume/PhotolysisRates.csv diff --git a/boxmox/examples/urban_plume/README b/case_studies/urban_plume/README similarity index 100% rename from boxmox/examples/urban_plume/README rename to case_studies/urban_plume/README diff --git a/boxmox/examples/urban_plume/mech_used b/case_studies/urban_plume/mech_used similarity index 100% rename from boxmox/examples/urban_plume/mech_used rename to case_studies/urban_plume/mech_used diff --git a/boxmox/examples/urban_plume/plot.R b/case_studies/urban_plume/plot.R similarity index 100% rename from boxmox/examples/urban_plume/plot.R rename to case_studies/urban_plume/plot.R diff --git a/src/configure.ac b/configure.ac similarity index 81% rename from src/configure.ac rename to configure.ac index 6e9aa45237d6933f3df780ab018e7563bd527e60..e049d5f6d8d8b2eef26ee7c0d06fcb34ad7455dc 100644 --- a/src/configure.ac +++ b/configure.ac @@ -4,9 +4,12 @@ dnl Finally run make to generate the project. AC_INIT([boxmox], [1.8], [christoph.knote@med.uni-augsburg.de]) dnl we use the build type foreign here instead of gnu because I do not have a NEWS file and similar, yet. -AM_INIT_AUTOMAKE([foreign]) -AC_CONFIG_FILES([Makefile]) +AM_INIT_AUTOMAKE([-Wall foreign]) AC_PROG_CC AC_PROG_LEX(noyywrap) AC_PROG_YACC +AC_CONFIG_FILES([ + Makefile + src/Makefile +]) AC_OUTPUT diff --git a/boxmox/README.tex b/doc/boxmox_README.tex similarity index 100% rename from boxmox/README.tex rename to doc/boxmox_README.tex diff --git a/boxmox/boxmox.f90 b/drv/boxmox.f90 similarity index 100% rename from boxmox/boxmox.f90 rename to drv/boxmox.f90 diff --git a/boxmox/boxmox_adjoint.f90 b/drv/boxmox_adjoint.f90 similarity index 100% rename from boxmox/boxmox_adjoint.f90 rename to drv/boxmox_adjoint.f90 diff --git a/boxmox/boxmox_lib.f90 b/drv/boxmox_lib.f90 similarity index 100% rename from boxmox/boxmox_lib.f90 rename to drv/boxmox_lib.f90 diff --git a/boxmox/wrapper b/drv/wrapper similarity index 100% rename from boxmox/wrapper rename to drv/wrapper diff --git a/examples/CB05_CSIRO.kpp b/examples/CB05_CSIRO.kpp index 5cbd7f36eac0f71ef9b793b8accda0a3b0897609..f3f81c82c75c024ad4888422fa09e83d33fbce6c 100644 --- a/examples/CB05_CSIRO.kpp +++ b/examples/CB05_CSIRO.kpp @@ -2,7 +2,7 @@ #LANGUAGE Fortran90 #DOUBLE ON #INTEGRATOR rosenbrock -#DRIVER ../boxmox/boxmox +#DRIVER boxmox #JACOBIAN SPARSE_LU_ROW #HESSIAN OFF #FUNCTION AGGREGATE diff --git a/int.modified_WCOPY/atm_lsodes.def b/int.modified_WCOPY/atm_lsodes.def deleted file mode 100644 index d5dade3324ccb5e9b35e7c2e693ad4d19ecd014a..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/atm_lsodes.def +++ /dev/null @@ -1,19 +0,0 @@ - -#FUNCTION AGGREGATE -#JACOBIAN FULL -#DOUBLE ON -#INTFILE atm_lsodes - -#INLINE F77_GLOBAL - REAL*8 STEPSTART - COMMON /GDATA/ STEPSTART -#ENDINLINE - -#INLINE F77_INIT - STEPMIN=1.D-12 - STEPMAX=3600. - STEPSTART=STEPMIN -#ENDINLINE - - - diff --git a/int.modified_WCOPY/atm_lsodes.f b/int.modified_WCOPY/atm_lsodes.f deleted file mode 100644 index 9602b277e3943d1087c74303351bb6d5723eabc1..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/atm_lsodes.f +++ /dev/null @@ -1,5474 +0,0 @@ - SUBROUTINE INTEGRATE( TIN, TOUT ) - - IMPLICIT KPP_REAL (A-H,O-Z) - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Global.h' - -C TIN - Start Time - KPP_REAL TIN -C TOUT - End Time - KPP_REAL TOUT - - PARAMETER ( LRW=20+3*1500+16*NVAR ) - PARAMETER ( LIW=60 ) - EXTERNAL FUNC_CHEM, JAC_CHEM - - KPP_REAL RWORK(LRW) - INTEGER IWORK(LIW) - - STEPCUT = 0. - MAXORD = 5 - IBEGIN = 1 - ITOL=4 - -C ---- NORMAL COMPUTATION --- - ITASK=1 - ISTATE=1 -C ---- USE OPTIONAL INPUT --- - IOPT=1 - - IWORK(5) = MAXORD ! MAX ORD - IWORK(6) = 20000 - IWORK(7) = 0 - RWORK(6) = STEPMAX ! STEP MAX - RWORK(7) = STEPMIN ! STEP MIN - RWORK(5) = STEPMIN ! INITIAL STEP - -C ----- SIGNAL FOR STIFF CASE, FULL JACOBIAN, INTERN (22) or SUPPLIED (21) - MF = 121 - - CALL atmlsodes (FUNC_CHEM, NVAR, VAR, TIN, TOUT, ITOL, RTOL, ATOL, - ! ITASK, ISTATE, IOPT, RWORK, LRW, IWORK, LIW, - ! JAC_CHEM, MF) - - IF (ISTATE.LT.0) THEN - print *,'LSODES: Unsucessfull exit at T=', - & TIN,' (ISTATE=',ISTATE,')' - ENDIF - - RETURN - END - - subroutine atmlsodes (f, neq, y, t, tout, itol, RelTol, AbsTol, - 1 itask, istate, iopt, rwork, lrw, iwork, liw, jac, mf) - external f, jac - integer neq, itol, itask, istate, iopt, lrw, iwork, liw, mf - KPP_REAL y, t, tout, RelTol, AbsTol, rwork - dimension neq(1), y(1), RelTol(1), AbsTol(1), - 1 rwork(lrw), iwork(liw) -c----------------------------------------------------------------------- -c this is the march 30, 1987 version of -c lsodes.. livermore solver for ordinary differential equations -c with general sparse jacobian matrices. -c this version is in KPP_REAL. -c -c lsodes solves the initial value problem for stiff or nonstiff -c systems of first order ode-s, -c dy/dt = f(t,y) , or, in component form, -c dy(i)/dt = f(i) = f(i,t,y(1),y(2),...,y(neq)) (i = 1,...,neq). -c lsodes is a variant of the lsode package, and is intended for -c problems in which the jacobian matrix df/dy has an arbitrary -c sparse structure (when the problem is stiff). -c -c authors.. alan c. hindmarsh, -c computing and mathematics research division, l-316 -c lawrence livermore national laboratory -c livermore, ca 94550. -c -c and andrew h. sherman -c j. s. nolen and associates -c houston, tx 77084 -c----------------------------------------------------------------------- -c references.. -c 1. alan c. hindmarsh, odepack, a systematized collection of ode -c solvers, in scientific computing, r. s. stepleman et al. (eds.), -c north-holland, amsterdam, 1983, pp. 55-64. -c -c 2. s. c. eisenstat, m. c. gursky, m. h. schultz, and a. h. sherman, -c yale sparse matrix package.. i. the symmetric codes, -c int. j. num. meth. eng., 18 (1982), pp. 1145-1151. -c -c 3. s. c. eisenstat, m. c. gursky, m. h. schultz, and a. h. sherman, -c yale sparse matrix package.. ii. the nonsymmetric codes, -c research report no. 114, dept. of computer sciences, yale -c university, 1977. -c----------------------------------------------------------------------- -c summary of usage. -c -c communication between the user and the lsodes package, for normal -c situations, is summarized here. this summary describes only a subset -c of the full set of options available. see the full description for -c details, including optional communication, nonstandard options, -c and instructions for special situations. see also the example -c problem (with program and output) following this summary. -c -c a. first provide a subroutine of the form.. -c subroutine f (neq, t, y, ydot) -c dimension y(neq), ydot(neq) -c which supplies the vector function f by loading ydot(i) with f(i). -c -c b. next determine (or guess) whether or not the problem is stiff. -c stiffness occurs when the jacobian matrix df/dy has an eigenvalue -c whose real part is negative and large in magnitude, compared to the -c reciprocal of the t span of interest. if the problem is nonstiff, -c use a method flag mf = 10. if it is stiff, there are two standard -c for the method flag, mf = 121 and mf = 222. in both cases, lsodes -c requires the jacobian matrix in some form, and it treats this matrix -c in general sparse form, with sparsity structure determined internally. -c (for options where the user supplies the sparsity structure, see -c the full description of mf below.) -c -c c. if the problem is stiff, you are encouraged to supply the jacobian -c directly (mf = 121), but if this is not feasible, lsodes will -c compute it internally by difference quotients (mf = 222). -c if you are supplying the jacobian, provide a subroutine of the form.. -c subroutine jac (neq, t, y, j, ian, jan, pdj) -c dimension y(1), ian(1), jan(1), pdj(1) -c here neq, t, y, and j are input arguments, and the jac routine is to -c load the array pdj (of length neq) with the j-th column of df/dy. -c i.e., load pdj(i) with df(i)/dy(j) for all relevant values of i. -c the arguments ian and jan should be ignored for normal situations. -c lsodes will CALL the jac routine with j = 1,2,...,neq. -c only nonzero elements need be loaded. usually, a crude approximation -c to df/dy, possibly with fewer nonzero elements, will suffice. -c -c d. write a main program which calls subroutine lsodes once for -c each point at which answers are desired. this should also provide -c for possible use of logical unit 6 for output of error messages -c by lsodes. on the first CALL to lsodes, supply arguments as follows.. -c f = name of subroutine for right-hand side vector f. -c this name must be declared external in calling program. -c neq = number of first order ode-s. -c y = array of initial values, of length neq. -c t = the initial value of the independent variable. -c tout = first point where output is desired (.ne. t). -c itol = 1 or 2 according as AbsTol (below) is a scalar or array. -c RelTol = relative tolerance parameter (scalar). -c AbsTol = absolute tolerance parameter (scalar or array). -c the estimated local error in y(i) will be controlled so as -c to be roughly less (in magnitude) than -c ewt(i) = RelTol*abs(y(i)) + AbsTol if itol = 1, or -c ewt(i) = RelTol*abs(y(i)) + AbsTol(i) if itol = 2. -c thus the local error test passes if, in each component, -c either the absolute error is less than AbsTol (or AbsTol(i)), -c or the relative error is less than RelTol. -c use RelTol = 0.0 for pure absolute error control, and -c use AbsTol = 0.0 (or AbsTol(i) = 0.0) for pure relative error -c control. caution.. actual (global) errors may exceed these -c local tolerances, so choose them conservatively. -c itask = 1 for normal computation of output values of y at t = tout. -c istate = integer flag (input and output). set istate = 1. -c iopt = 0 to indicate no optional inputs used. -c rwork = real work array of length at least.. -c 20 + 16*neq for mf = 10, -c 20 + (2 + 1./lenrat)*nnz + (11 + 9./lenrat)*neq -c for mf = 121 or 222, -c where.. -c nnz = the number of nonzero elements in the sparse -c jacobian (if this is unknown, use an estimate), and -c lenrat = the real to integer wordlength ratio (usually 1 in -c single precision and 2 in KPP_REAL). -c in any case, the required size of rwork cannot generally -c be predicted in advance if mf = 121 or 222, and the value -c above is a rough estimate of a crude lower bound. some -c experimentation with this size may be necessary. -c (when known, the correct required length is an optional -c output, available in iwork(17).) -c lrw = declared length of rwork (in user-s dimension). -c iwork = integer work array of length at least 30. -c liw = declared length of iwork (in user-s dimension). -c jac = name of subroutine for jacobian matrix (mf = 121). -c if used, this name must be declared external in calling -c program. if not used, pass a dummy name. -c mf = method flag. standard values are.. -c 10 for nonstiff (adams) method, no jacobian used. -c 121 for stiff (bdf) method, user-supplied sparse jacobian. -c 222 for stiff method, internally generated sparse jacobian. -c note that the main program must declare arrays y, rwork, iwork, -c and possibly AbsTol. -c -c e. the output from the first CALL (or any call) is.. -c y = array of computed values of y(t) vector. -c t = corresponding value of independent variable (normally tout). -c istate = 2 if lsodes was successful, negative otherwise. -c -1 means excess work done on this CALL (perhaps wrong mf). -c -2 means excess accuracy requested (tolerances too small). -c -3 means illegal input detected (see printed message). -c -4 means repeated error test failures (check all inputs). -c -5 means repeated convergence failures (perhaps bad jacobian -c supplied or wrong choice of mf or tolerances). -c -6 means error weight became zero during problem. (solution -c component i vanished, and AbsTol or AbsTol(i) = 0.) -c -7 means a fatal error return flag came from the sparse -c solver cdrv by way of prjs or slss. should never happen. -c a return with istate = -1, -4, or -5 may result from using -c an inappropriate sparsity structure, one that is quite -c different from the initial structure. consider calling -c lsodes again with istate = 3 to force the structure to be -c reevaluated. see the full description of istate below. -c -c f. to continue the integration after a successful return, simply -c reset tout and CALL lsodes again. no other parameters need be reset. -c -c----------------------------------------------------------------------- -c example problem. -c -c the following is a simple example problem, with the coding -c needed for its solution by lsodes. the problem is from chemical -c kinetics, and consists of the following 12 rate equations.. -c dy1/dt = -rk1*y1 -c dy2/dt = rk1*y1 + rk11*rk14*y4 + rk19*rk14*y5 -c - rk3*y2*y3 - rk15*y2*y12 - rk2*y2 -c dy3/dt = rk2*y2 - rk5*y3 - rk3*y2*y3 - rk7*y10*y3 -c + rk11*rk14*y4 + rk12*rk14*y6 -c dy4/dt = rk3*y2*y3 - rk11*rk14*y4 - rk4*y4 -c dy5/dt = rk15*y2*y12 - rk19*rk14*y5 - rk16*y5 -c dy6/dt = rk7*y10*y3 - rk12*rk14*y6 - rk8*y6 -c dy7/dt = rk17*y10*y12 - rk20*rk14*y7 - rk18*y7 -c dy8/dt = rk9*y10 - rk13*rk14*y8 - rk10*y8 -c dy9/dt = rk4*y4 + rk16*y5 + rk8*y6 + rk18*y7 -c dy10/dt = rk5*y3 + rk12*rk14*y6 + rk20*rk14*y7 -c + rk13*rk14*y8 - rk7*y10*y3 - rk17*y10*y12 -c - rk6*y10 - rk9*y10 -c dy11/dt = rk10*y8 -c dy12/dt = rk6*y10 + rk19*rk14*y5 + rk20*rk14*y7 -c - rk15*y2*y12 - rk17*y10*y12 -c -c with rk1 = rk5 = 0.1, rk4 = rk8 = rk16 = rk18 = 2.5, -c rk10 = 5.0, rk2 = rk6 = 10.0, rk14 = 30.0, -c rk3 = rk7 = rk9 = rk11 = rk12 = rk13 = rk19 = rk20 = 50.0, -c rk15 = rk17 = 100.0. -c -c the t interval is from 0 to 1000, and the initial conditions -c are y1 = 1, y2 = y3 = ... = y12 = 0. the problem is stiff. -c -c the following coding solves this problem with lsodes, using mf = 121 -c and printing results at t = .1, 1., 10., 100., 1000. it uses -c itol = 1 and mixed relative/absolute tolerance controls. -c during the run and at the end, statistical quantities of interest -c are printed (see optional outputs in the full description below). -c -c external fex, jex -c KPP_REAL AbsTol, RelTol, rwork, t, tout, y -c dimension y(12), rwork(500), iwork(30) -c data lrw/500/, liw/30/ -c neq = 12 -c do 10 i = 1,neq -c 10 y(i) = 0.0d0 -c y(1) = 1.0d0 -c t = 0.0d0 -c tout = 0.1d0 -c itol = 1 -c RelTol = 1.0d-4 -c AbsTol = 1.0d-6 -c itask = 1 -c istate = 1 -c iopt = 0 -c mf = 121 -c do 40 iout = 1,5 -c CALL lsodes (fex, neq, y, t, tout, itol, RelTol, AbsTol, -c 1 itask, istate, iopt, rwork, lrw, iwork, liw, jex, mf) -c write(6,30)t,iwork(11),rwork(11),(y(i),i=1,neq) -c 30 format(//7h at t =,e11.3,4x, -c 1 12h no. steps =,i5,4x,12h last step =,e11.3/ -c 2 13h y array = ,4e14.5/13x,4e14.5/13x,4e14.5) -c if (istate .lt. 0) go to 80 -c tout = tout*10.0d0 -c 40 continue -c lenrw = iwork(17) -c leniw = iwork(18) -c nst = iwork(11) -c nfe = iwork(12) -c nje = iwork(13) -c nlu = iwork(21) -c nnz = iwork(19) -c nnzlu = iwork(25) + iwork(26) + neq -c write (6,70) lenrw,leniw,nst,nfe,nje,nlu,nnz,nnzlu -c 70 format(//22h required rwork size =,i4,15h iwork size =,i4/ -c 1 12h no. steps =,i4,12h no. f-s =,i4,12h no. j-s =,i4, -c 2 13h no. lu-s =,i4/23h no. of nonzeros in j =,i5, -c 3 26h no. of nonzeros in lu =,i5) -c stop -c 80 write(6,90)istate -c 90 format(///22h error halt.. istate =,i3) -c stop -c end -c -c subroutine fex (neq, t, y, ydot) -c KPP_REAL t, y, ydot -c KPP_REAL rk1, rk2, rk3, rk4, rk5, rk6, rk7, rk8, rk9, -c 1 rk10, rk11, rk12, rk13, rk14, rk15, rk16, rk17 -c dimension y(12), ydot(12) -c data rk1/0.1d0/, rk2/10.0d0/, rk3/50.0d0/, rk4/2.5d0/, rk5/0.1d0/, -c 1 rk6/10.0d0/, rk7/50.0d0/, rk8/2.5d0/, rk9/50.0d0/, rk10/5.0d0/, -c 2 rk11/50.0d0/, rk12/50.0d0/, rk13/50.0d0/, rk14/30.0d0/, -c 3 rk15/100.0d0/, rk16/2.5d0/, rk17/100.0d0/, rk18/2.5d0/, -c 4 rk19/50.0d0/, rk20/50.0d0/ -c ydot(1) = -rk1*y(1) -c ydot(2) = rk1*y(1) + rk11*rk14*y(4) + rk19*rk14*y(5) -c 1 - rk3*y(2)*y(3) - rk15*y(2)*y(12) - rk2*y(2) -c ydot(3) = rk2*y(2) - rk5*y(3) - rk3*y(2)*y(3) - rk7*y(10)*y(3) -c 1 + rk11*rk14*y(4) + rk12*rk14*y(6) -c ydot(4) = rk3*y(2)*y(3) - rk11*rk14*y(4) - rk4*y(4) -c ydot(5) = rk15*y(2)*y(12) - rk19*rk14*y(5) - rk16*y(5) -c ydot(6) = rk7*y(10)*y(3) - rk12*rk14*y(6) - rk8*y(6) -c ydot(7) = rk17*y(10)*y(12) - rk20*rk14*y(7) - rk18*y(7) -c ydot(8) = rk9*y(10) - rk13*rk14*y(8) - rk10*y(8) -c ydot(9) = rk4*y(4) + rk16*y(5) + rk8*y(6) + rk18*y(7) -c ydot(10) = rk5*y(3) + rk12*rk14*y(6) + rk20*rk14*y(7) -c 1 + rk13*rk14*y(8) - rk7*y(10)*y(3) - rk17*y(10)*y(12) -c 2 - rk6*y(10) - rk9*y(10) -c ydot(11) = rk10*y(8) -c ydot(12) = rk6*y(10) + rk19*rk14*y(5) + rk20*rk14*y(7) -c 1 - rk15*y(2)*y(12) - rk17*y(10)*y(12) -c return -c end -c -c subroutine jex (neq, t, y, j, ia, ja, pdj) -c KPP_REAL t, y, pdj -c KPP_REAL rk1, rk2, rk3, rk4, rk5, rk6, rk7, rk8, rk9, -c 1 rk10, rk11, rk12, rk13, rk14, rk15, rk16, rk17 -c dimension y(1), ia(1), ja(1), pdj(1) -c data rk1/0.1d0/, rk2/10.0d0/, rk3/50.0d0/, rk4/2.5d0/, rk5/0.1d0/, -c 1 rk6/10.0d0/, rk7/50.0d0/, rk8/2.5d0/, rk9/50.0d0/, rk10/5.0d0/, -c 2 rk11/50.0d0/, rk12/50.0d0/, rk13/50.0d0/, rk14/30.0d0/, -c 3 rk15/100.0d0/, rk16/2.5d0/, rk17/100.0d0/, rk18/2.5d0/, -c 4 rk19/50.0d0/, rk20/50.0d0/ -c go to (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12), j -c 1 pdj(1) = -rk1 -c pdj(2) = rk1 -c return -c 2 pdj(2) = -rk3*y(3) - rk15*y(12) - rk2 -c pdj(3) = rk2 - rk3*y(3) -c pdj(4) = rk3*y(3) -c pdj(5) = rk15*y(12) -c pdj(12) = -rk15*y(12) -c return -c 3 pdj(2) = -rk3*y(2) -c pdj(3) = -rk5 - rk3*y(2) - rk7*y(10) -c pdj(4) = rk3*y(2) -c pdj(6) = rk7*y(10) -c pdj(10) = rk5 - rk7*y(10) -c return -c 4 pdj(2) = rk11*rk14 -c pdj(3) = rk11*rk14 -c pdj(4) = -rk11*rk14 - rk4 -c pdj(9) = rk4 -c return -c 5 pdj(2) = rk19*rk14 -c pdj(5) = -rk19*rk14 - rk16 -c pdj(9) = rk16 -c pdj(12) = rk19*rk14 -c return -c 6 pdj(3) = rk12*rk14 -c pdj(6) = -rk12*rk14 - rk8 -c pdj(9) = rk8 -c pdj(10) = rk12*rk14 -c return -c 7 pdj(7) = -rk20*rk14 - rk18 -c pdj(9) = rk18 -c pdj(10) = rk20*rk14 -c pdj(12) = rk20*rk14 -c return -c 8 pdj(8) = -rk13*rk14 - rk10 -c pdj(10) = rk13*rk14 -c pdj(11) = rk10 -c 9 return -c 10 pdj(3) = -rk7*y(3) -c pdj(6) = rk7*y(3) -c pdj(7) = rk17*y(12) -c pdj(8) = rk9 -c pdj(10) = -rk7*y(3) - rk17*y(12) - rk6 - rk9 -c pdj(12) = rk6 - rk17*y(12) -c 11 return -c 12 pdj(2) = -rk15*y(2) -c pdj(5) = rk15*y(2) -c pdj(7) = rk17*y(10) -c pdj(10) = -rk17*y(10) -c pdj(12) = -rk15*y(2) - rk17*y(10) -c return -c end -c -c the output of this program (on a cray-1 in single precision) -c is as follows.. -c -c -c at t = 1.000e-01 no. steps = 12 last step = 1.515e-02 -c y array = 9.90050e-01 6.28228e-03 3.65313e-03 7.51934e-07 -c 1.12167e-09 1.18458e-09 1.77291e-12 3.26476e-07 -c 5.46720e-08 9.99500e-06 4.48483e-08 2.76398e-06 -c -c -c at t = 1.000e+00 no. steps = 33 last step = 7.880e-02 -c y array = 9.04837e-01 9.13105e-03 8.20622e-02 2.49177e-05 -c 1.85055e-06 1.96797e-06 1.46157e-07 2.39557e-05 -c 3.26306e-05 7.21621e-04 5.06433e-05 3.05010e-03 -c -c -c at t = 1.000e+01 no. steps = 48 last step = 1.239e+00 -c y array = 3.67876e-01 3.68958e-03 3.65133e-01 4.48325e-05 -c 6.10798e-05 4.33148e-05 5.90211e-05 1.18449e-04 -c 3.15235e-03 3.56531e-03 4.15520e-03 2.48741e-01 -c -c -c at t = 1.000e+02 no. steps = 91 last step = 3.764e+00 -c y array = 4.44981e-05 4.42666e-07 4.47273e-04 -3.53257e-11 -c 2.81577e-08 -9.67741e-11 2.77615e-07 1.45322e-07 -c 1.56230e-02 4.37394e-06 1.60104e-02 9.52246e-01 -c -c -c at t = 1.000e+03 no. steps = 111 last step = 4.156e+02 -c y array = -2.65492e-13 2.60539e-14 -8.59563e-12 6.29355e-14 -c -1.78066e-13 5.71471e-13 -1.47561e-12 4.58078e-15 -c 1.56314e-02 1.37878e-13 1.60184e-02 9.52719e-01 -c -c -c required rwork size = 442 iwork size = 30 -c no. steps = 111 no. f-s = 142 no. j-s = 2 no. lu-s = 20 -c no. of nonzeros in j = 44 no. of nonzeros in lu = 50 -c----------------------------------------------------------------------- -c full description of user interface to lsodes. -c -c the user interface to lsodes consists of the following parts. -c -c i. the CALL sequence to subroutine lsodes, which is a driver -c routine for the solver. this includes descriptions of both -c the CALL sequence arguments and of user-supplied routines. -c following these descriptions is a description of -c optional inputs available through the CALL sequence, and then -c a description of optional outputs (in the work arrays). -c -c ii. descriptions of other routines in the lsodes package that may be -c (optionally) called by the user. these provide the ability to -c alter error message handling, save and restore the internal -c common, and obtain specified derivatives of the solution y(t). -c -c iii. descriptions of common blocks to be declared in overlay -c or similar environments, or to be saved when doing an interrupt -c of the problem and continued solution later. -c -c iv. description of two routines in the lsodes package, either of -c which the user may replace with his own version, if desired. -c these relate to the measurement of errors. -c -c----------------------------------------------------------------------- -c part i. CALL sequence. -c -c the CALL sequence parameters used for input only are -c f, neq, tout, itol, RelTol, AbsTol, itask, iopt, lrw, liw, jac, mf, -c and those used for both input and output are -c y, t, istate. -c the work arrays rwork and iwork are also used for conditional and -c optional inputs and optional outputs. (the term output here refers -c to the return from subroutine lsodes to the user-s calling program.) -c -c the legality of input parameters will be thoroughly checked on the -c initial CALL for the problem, but not checked thereafter unless a -c change in input parameters is flagged by istate = 3 on input. -c -c the descriptions of the CALL arguments are as follows. -c -c f = the name of the user-supplied subroutine defining the -c ode system. the system must be put in the first-order -c form dy/dt = f(t,y), where f is a vector-valued function -c of the scalar t and the vector y. subroutine f is to -c compute the function f. it is to have the form -c subroutine f (neq, t, y, ydot) -c dimension y(1), ydot(1) -c where neq, t, and y are input, and the array ydot = f(t,y) -c is output. y and ydot are arrays of length neq. -c (in the dimension statement above, 1 is a dummy -c dimension.. it can be replaced by any value.) -c subroutine f should not alter y(1),...,y(neq). -c f must be declared external in the calling program. -c -c subroutine f may access user-defined quantities in -c neq(2),... and/or in y(neq(1)+1),... if neq is an array -c (dimensioned in f) and/or y has length exceeding neq(1). -c see the descriptions of neq and y below. -c -c if quantities computed in the f routine are needed -c externally to lsodes, an extra CALL to f should be made -c for this purpose, for consistent and accurate results. -c if only the derivative dy/dt is needed, use intdy instead. -c -c neq = the size of the ode system (number of first order -c ordinary differential equations). used only for input. -c neq may be decreased, but not increased, during the problem. -c if neq is decreased (with istate = 3 on input), the -c remaining components of y should be left undisturbed, if -c these are to be accessed in f and/or jac. -c -c normally, neq is a scalar, and it is generally referred to -c as a scalar in this user interface description. however, -c neq may be an array, with neq(1) set to the system size. -c (the lsodes package accesses only neq(1).) in either case, -c this parameter is passed as the neq argument in all calls -c to f and jac. hence, if it is an array, locations -c neq(2),... may be used to store other integer data and pass -c it to f and/or jac. subroutines f and/or jac must include -c neq in a dimension statement in that case. -c -c y = a real array for the vector of dependent variables, of -c length neq or more. used for both input and output on the -c first CALL (istate = 1), and only for output on other calls. -c on the first call, y must contain the vector of initial -c values. on output, y contains the computed solution vector, -c evaluated at t. if desired, the y array may be used -c for other purposes between calls to the solver. -c -c this array is passed as the y argument in all calls to -c f and jac. hence its length may exceed neq, and locations -c y(neq+1),... may be used to store other real data and -c pass it to f and/or jac. (the lsodes package accesses only -c y(1),...,y(neq).) -c -c t = the independent variable. on input, t is used only on the -c first call, as the initial point of the integration. -c on output, after each call, t is the value at which a -c computed solution y is evaluated (usually the same as tout). -c on an error return, t is the farthest point reached. -c -c tout = the next value of t at which a computed solution is desired. -c used only for input. -c -c when starting the problem (istate = 1), tout may be equal -c to t for one call, then should .ne. t for the next call. -c for the initial t, an input value of tout .ne. t is used -c in order to determine the direction of the integration -c (i.e. the algebraic sign of the step sizes) and the rough -c scale of the problem. integration in either direction -c (forward or backward in t) is permitted. -c -c if itask = 2 or 5 (one-step modes), tout is ignored after -c the first CALL (i.e. the first CALL with tout .ne. t). -c otherwise, tout is required on every call. -c -c if itask = 1, 3, or 4, the values of tout need not be -c monotone, but a value of tout which backs up is limited -c to the current internal t interval, whose endpoints are -c tcur - hu and tcur (see optional outputs, below, for -c tcur and hu). -c -c itol = an indicator for the type of error control. see -c description below under AbsTol. used only for input. -c -c RelTol = a relative error tolerance parameter, either a scalar or -c an array of length neq. see description below under AbsTol. -c input only. -c -c AbsTol = an absolute error tolerance parameter, either a scalar or -c an array of length neq. input only. -c -c the input parameters itol, RelTol, and AbsTol determine -c the error control performed by the solver. the solver will -c control the vector e = (e(i)) of estimated local errors -c in y, according to an inequality of the form -c rms-norm of ( e(i)/ewt(i) ) .le. 1, -c where ewt(i) = RelTol(i)*abs(y(i)) + AbsTol(i), -c and the rms-norm (root-mean-square norm) here is -c rms-norm(v) = sqrt(sum v(i)**2 / neq). here ewt = (ewt(i)) -c is a vector of weights which must always be positive, and -c the values of RelTol and AbsTol should all be non-negative. -c the following table gives the types (scalar/array) of -c RelTol and AbsTol, and the corresponding form of ewt(i). -c -c itol RelTol AbsTol ewt(i) -c 1 scalar scalar RelTol*abs(y(i)) + AbsTol -c 2 scalar array RelTol*abs(y(i)) + AbsTol(i) -c 3 array scalar RelTol(i)*abs(y(i)) + AbsTol -c 4 array array RelTol(i)*abs(y(i)) + AbsTol(i) -c -c when either of these parameters is a scalar, it need not -c be dimensioned in the user-s calling program. -c -c if none of the above choices (with itol, RelTol, and AbsTol -c fixed throughout the problem) is suitable, more general -c error controls can be obtained by substituting -c user-supplied routines for the setting of ewt and/or for -c the norm calculation. see part iv below. -c -c if global errors are to be estimated by making a repeated -c run on the same problem with smaller tolerances, then all -c components of RelTol and AbsTol (i.e. of ewt) should be scaled -c down uniformly. -c -c itask = an index specifying the task to be performed. -c input only. itask has the following values and meanings. -c 1 means normal computation of output values of y(t) at -c t = tout (by overshooting and interpolating). -c 2 means take one step only and return. -c 3 means stop at the first internal mesh point at or -c beyond t = tout and return. -c 4 means normal computation of output values of y(t) at -c t = tout but without overshooting t = tcrit. -c tcrit must be input as rwork(1). tcrit may be equal to -c or beyond tout, but not behind it in the direction of -c integration. this option is useful if the problem -c has a singularity at or beyond t = tcrit. -c 5 means take one step, without passing tcrit, and return. -c tcrit must be input as rwork(1). -c -c note.. if itask = 4 or 5 and the solver reaches tcrit -c (within roundoff), it will return t = tcrit (exactly) to -c indicate this (unless itask = 4 and tout comes before tcrit, -c in which case answers at t = tout are returned first). -c -c istate = an index used for input and output to specify the -c the state of the calculation. -c -c on input, the values of istate are as follows. -c 1 means this is the first CALL for the problem -c (initializations will be done). see note below. -c 2 means this is not the first call, and the calculation -c is to continue normally, with no change in any input -c parameters except possibly tout and itask. -c (if itol, RelTol, and/or AbsTol are changed between calls -c with istate = 2, the new values will be used but not -c tested for legality.) -c 3 means this is not the first call, and the -c calculation is to continue normally, but with -c a change in input parameters other than -c tout and itask. changes are allowed in -c neq, itol, RelTol, AbsTol, iopt, lrw, liw, mf, -c the conditional inputs ia and ja, -c and any of the optional inputs except h0. -c in particular, if miter = 1 or 2, a CALL with istate = 3 -c will cause the sparsity structure of the problem to be -c recomputed (or reread from ia and ja if moss = 0). -c note.. a preliminary CALL with tout = t is not counted -c as a first CALL here, as no initialization or checking of -c input is done. (such a CALL is sometimes useful for the -c purpose of outputting the initial conditions.) -c thus the first CALL for which tout .ne. t requires -c istate = 1 on input. -c -c on output, istate has the following values and meanings. -c 1 means nothing was done, as tout was equal to t with -c istate = 1 on input. (however, an internal counter was -c set to detect and prevent repeated calls of this type.) -c 2 means the integration was performed successfully. -c -1 means an excessive amount of work (more than mxstep -c steps) was done on this call, before completing the -c requested task, but the integration was otherwise -c successful as far as t. (mxstep is an optional input -c and is normally 500.) to continue, the user may -c simply reset istate to a value .gt. 1 and CALL again -c (the excess work step counter will be reset to 0). -c in addition, the user may increase mxstep to avoid -c this error return (see below on optional inputs). -c -2 means too much accuracy was requested for the precision -c of the machine being used. this was detected before -c completing the requested task, but the integration -c was successful as far as t. to continue, the tolerance -c parameters must be reset, and istate must be set -c to 3. the optional output tolsf may be used for this -c purpose. (note.. if this condition is detected before -c taking any steps, then an illegal input return -c (istate = -3) occurs instead.) -c -3 means illegal input was detected, before taking any -c integration steps. see written message for details. -c note.. if the solver detects an infinite loop of calls -c to the solver with illegal input, it will cause -c the run to stop. -c -4 means there were repeated error test failures on -c one attempted step, before completing the requested -c task, but the integration was successful as far as t. -c the problem may have a singularity, or the input -c may be inappropriate. -c -5 means there were repeated convergence test failures on -c one attempted step, before completing the requested -c task, but the integration was successful as far as t. -c this may be caused by an inaccurate jacobian matrix, -c if one is being used. -c -6 means ewt(i) became zero for some i during the -c integration. pure relative error control (AbsTol(i)=0.0) -c was requested on a variable which has now vanished. -c the integration was successful as far as t. -c -7 means a fatal error return flag came from the sparse -c solver cdrv by way of prjs or slss (numerical -c factorization or backsolve). this should never happen. -c the integration was successful as far as t. -c -c note.. an error return with istate = -1, -4, or -5 and with -c miter = 1 or 2 may mean that the sparsity structure of the -c problem has changed significantly since it was last -c determined (or input). in that case, one can attempt to -c complete the integration by setting istate = 3 on the next -c call, so that a new structure determination is done. -c -c note.. since the normal output value of istate is 2, -c it does not need to be reset for normal continuation. -c also, since a negative input value of istate will be -c regarded as illegal, a negative output value requires the -c user to change it, and possibly other inputs, before -c calling the solver again. -c -c iopt = an integer flag to specify whether or not any optional -c inputs are being used on this call. input only. -c the optional inputs are listed separately below. -c iopt = 0 means no optional inputs are being used. -c default values will be used in all cases. -c iopt = 1 means one or more optional inputs are being used. -c -c rwork = a work array used for a mixture of real (KPP_REAL) -c and integer work space. -c the length of rwork (in real words) must be at least -c 20 + nyh*(maxord + 1) + 3*neq + lwm where -c nyh = the initial value of neq, -c maxord = 12 (if meth = 1) or 5 (if meth = 2) (unless a -c smaller value is given as an optional input), -c lwm = 0 if miter = 0, -c lwm = 2*nnz + 2*neq + (nnz+9*neq)/lenrat if miter = 1, -c lwm = 2*nnz + 2*neq + (nnz+10*neq)/lenrat if miter = 2, -c lwm = neq + 2 if miter = 3. -c in the above formulas, -c nnz = number of nonzero elements in the jacobian matrix. -c lenrat = the real to integer wordlength ratio (usually 1 in -c single precision and 2 in KPP_REAL). -c (see the mf description for meth and miter.) -c thus if maxord has its default value and neq is constant, -c the minimum length of rwork is.. -c 20 + 16*neq for mf = 10, -c 20 + 16*neq + lwm for mf = 11, 111, 211, 12, 112, 212, -c 22 + 17*neq for mf = 13, -c 20 + 9*neq for mf = 20, -c 20 + 9*neq + lwm for mf = 21, 121, 221, 22, 122, 222, -c 22 + 10*neq for mf = 23. -c if miter = 1 or 2, the above formula for lwm is only a -c crude lower bound. the required length of rwork cannot -c be readily predicted in general, as it depends on the -c sparsity structure of the problem. some experimentation -c may be necessary. -c -c the first 20 words of rwork are reserved for conditional -c and optional inputs and optional outputs. -c -c the following word in rwork is a conditional input.. -c rwork(1) = tcrit = critical value of t which the solver -c is not to overshoot. required if itask is -c 4 or 5, and ignored otherwise. (see itask.) -c -c lrw = the length of the array rwork, as declared by the user. -c (this will be checked by the solver.) -c -c iwork = an integer work array. the length of iwork must be at least -c 31 + neq + nnz if moss = 0 and miter = 1 or 2, or -c 30 otherwise. -c (nnz is the number of nonzero elements in df/dy.) -c -c in lsodes, iwork is used only for conditional and -c optional inputs and optional outputs. -c -c the following two blocks of words in iwork are conditional -c inputs, required if moss = 0 and miter = 1 or 2, but not -c otherwise (see the description of mf for moss). -c iwork(30+j) = ia(j) (j=1,...,neq+1) -c iwork(31+neq+k) = ja(k) (k=1,...,nnz) -c the two arrays ia and ja describe the sparsity structure -c to be assumed for the jacobian matrix. ja contains the row -c indices where nonzero elements occur, reading in columnwise -c order, and ia contains the starting locations in ja of the -c descriptions of columns 1,...,neq, in that order, with -c ia(1) = 1. thus, for each column index j = 1,...,neq, the -c values of the row index i in column j where a nonzero -c element may occur are given by -c i = ja(k), where ia(j) .le. k .lt. ia(j+1). -c if nnz is the total number of nonzero locations assumed, -c then the length of the ja array is nnz, and ia(neq+1) must -c be nnz + 1. duplicate entries are not allowed. -c -c liw = the length of the array iwork, as declared by the user. -c (this will be checked by the solver.) -c -c note.. the work arrays must not be altered between calls to lsodes -c for the same problem, except possibly for the conditional and -c optional inputs, and except for the last 3*neq words of rwork. -c the latter space is used for internal scratch space, and so is -c available for use by the user outside lsodes between calls, if -c desired (but not for use by f or jac). -c -c jac = name of user-supplied routine (miter = 1 or moss = 1) to -c compute the jacobian matrix, df/dy, as a function of -c the scalar t and the vector y. it is to have the form -c subroutine jac (neq, t, y, j, ian, jan, pdj) -c dimension y(1), ian(1), jan(1), pdj(1) -c where neq, t, y, j, ian, and jan are input, and the array -c pdj, of length neq, is to be loaded with column j -c of the jacobian on output. thus df(i)/dy(j) is to be -c loaded into pdj(i) for all relevant values of i. -c here t and y have the same meaning as in subroutine f, -c and j is a column index (1 to neq). ian and jan are -c undefined in calls to jac for structure determination -c (moss = 1). otherwise, ian and jan are structure -c descriptors, as defined under optional outputs below, and -c so can be used to determine the relevant row indices i, if -c desired. (in the dimension statement above, 1 is a -c dummy dimension.. it can be replaced by any value.) -c jac need not provide df/dy exactly. a crude -c approximation (possibly with greater sparsity) will do. -c in any case, pdj is preset to zero by the solver, -c so that only the nonzero elements need be loaded by jac. -c calls to jac are made with j = 1,...,neq, in that order, and -c each such set of calls is preceded by a CALL to f with the -c same arguments neq, t, and y. thus to gain some efficiency, -c intermediate quantities shared by both calculations may be -c saved in a user common block by f and not recomputed by jac, -c if desired. jac must not alter its input arguments. -c jac must be declared external in the calling program. -c subroutine jac may access user-defined quantities in -c neq(2),... and y(neq(1)+1),... if neq is an array -c (dimensioned in jac) and y has length exceeding neq(1). -c see the descriptions of neq and y above. -c -c mf = the method flag. used only for input. -c mf has three decimal digits-- moss, meth, miter-- -c mf = 100*moss + 10*meth + miter. -c moss indicates the method to be used to obtain the sparsity -c structure of the jacobian matrix if miter = 1 or 2.. -c moss = 0 means the user has supplied ia and ja -c (see descriptions under iwork above). -c moss = 1 means the user has supplied jac (see below) -c and the structure will be obtained from neq -c initial calls to jac. -c moss = 2 means the structure will be obtained from neq+1 -c initial calls to f. -c meth indicates the basic linear multistep method.. -c meth = 1 means the implicit adams method. -c meth = 2 means the method based on backward -c differentiation formulas (bdf-s). -c miter indicates the corrector iteration method.. -c miter = 0 means functional iteration (no jacobian matrix -c is involved). -c miter = 1 means chord iteration with a user-supplied -c sparse jacobian, given by subroutine jac. -c miter = 2 means chord iteration with an internally -c generated (difference quotient) sparse jacobian -c (using ngp extra calls to f per df/dy value, -c where ngp is an optional output described below.) -c miter = 3 means chord iteration with an internally -c generated diagonal jacobian approximation. -c (using 1 extra CALL to f per df/dy evaluation). -c if miter = 1 or moss = 1, the user must supply a subroutine -c jac (the name is arbitrary) as described above under jac. -c otherwise, a dummy argument can be used. -c -c the standard choices for mf are.. -c mf = 10 for a nonstiff problem, -c mf = 21 or 22 for a stiff problem with ia/ja supplied -c (21 if jac is supplied, 22 if not), -c mf = 121 for a stiff problem with jac supplied, -c but not ia/ja, -c mf = 222 for a stiff problem with neither ia/ja nor -c jac supplied. -c the sparseness structure can be changed during the -c problem by making a CALL to lsodes with istate = 3. -c----------------------------------------------------------------------- -c optional inputs. -c -c the following is a list of the optional inputs provided for in the -c CALL sequence. (see also part ii.) for each such input variable, -c this table lists its name as used in this documentation, its -c location in the CALL sequence, its meaning, and the default value. -c the use of any of these inputs requires iopt = 1, and in that -c case all of these inputs are examined. a value of zero for any -c of these optional inputs will cause the default value to be used. -c thus to use a subset of the optional inputs, simply preload -c locations 5 to 10 in rwork and iwork to 0.0 and 0 respectively, and -c then set those of interest to nonzero values. -c -c name location meaning and default value -c -c h0 rwork(5) the step size to be attempted on the first step. -c the default value is determined by the solver. -c -c hmax rwork(6) the maximum absolute step size allowed. -c the default value is infinite. -c -c hmin rwork(7) the minimum absolute step size allowed. -c the default value is 0. (this lower bound is not -c enforced on the final step before reaching tcrit -c when itask = 4 or 5.) -c -c seth rwork(8) the element threshhold for sparsity determination -c when moss = 1 or 2. if the absolute value of -c an estimated jacobian element is .le. seth, it -c will be assumed to be absent in the structure. -c the default value of seth is 0. -c -c maxord iwork(5) the maximum order to be allowed. the default -c value is 12 if meth = 1, and 5 if meth = 2. -c if maxord exceeds the default value, it will -c be reduced to the default value. -c if maxord is changed during the problem, it may -c cause the current order to be reduced. -c -c mxstep iwork(6) maximum number of (internally defined) steps -c allowed during one CALL to the solver. -c the default value is 500. -c -c mxhnil iwork(7) maximum number of messages printed (per problem) -c warning that t + h = t on a step (h = step size). -c this must be positive to result in a non-default -c value. the default value is 10. -c----------------------------------------------------------------------- -c optional outputs. -c -c as optional additional output from lsodes, the variables listed -c below are quantities related to the performance of lsodes -c which are available to the user. these are communicated by way of -c the work arrays, but also have internal mnemonic names as shown. -c except where stated otherwise, all of these outputs are defined -c on any successful return from lsodes, and on any return with -c istate = -1, -2, -4, -5, or -6. on an illegal input return -c (istate = -3), they will be unchanged from their existing values -c (if any), except possibly for tolsf, lenrw, and leniw. -c on any error return, outputs relevant to the error will be defined, -c as noted below. -c -c name location meaning -c -c hu rwork(11) the step size in t last used (successfully). -c -c hcur rwork(12) the step size to be attempted on the next step. -c -c tcur rwork(13) the current value of the independent variable -c which the solver has actually reached, i.e. the -c current internal mesh point in t. on output, tcur -c will always be at least as far as the argument -c t, but may be farther (if interpolation was done). -c -c tolsf rwork(14) a tolerance scale factor, greater than 1.0, -c computed when a request for too much accuracy was -c detected (istate = -3 if detected at the start of -c the problem, istate = -2 otherwise). if itol is -c left unaltered but RelTol and AbsTol are uniformly -c scaled up by a factor of tolsf for the next call, -c then the solver is deemed likely to succeed. -c (the user may also ignore tolsf and alter the -c tolerance parameters in any other way appropriate.) -c -c nst iwork(11) the number of steps taken for the problem so far. -c -c nfe iwork(12) the number of f evaluations for the problem so far, -c excluding those for structure determination -c (moss = 2). -c -c nje iwork(13) the number of jacobian evaluations for the problem -c so far, excluding those for structure determination -c (moss = 1). -c -c nqu iwork(14) the method order last used (successfully). -c -c nqcur iwork(15) the order to be attempted on the next step. -c -c imxer iwork(16) the index of the component of largest magnitude in -c the weighted local error vector ( e(i)/ewt(i) ), -c on an error return with istate = -4 or -5. -c -c lenrw iwork(17) the length of rwork actually required. -c this is defined on normal returns and on an illegal -c input return for insufficient storage. -c -c leniw iwork(18) the length of iwork actually required. -c this is defined on normal returns and on an illegal -c input return for insufficient storage. -c -c nnz iwork(19) the number of nonzero elements in the jacobian -c matrix, including the diagonal (miter = 1 or 2). -c (this may differ from that given by ia(neq+1)-1 -c if moss = 0, because of added diagonal entries.) -c -c ngp iwork(20) the number of groups of column indices, used in -c difference quotient jacobian aproximations if -c miter = 2. this is also the number of extra f -c evaluations needed for each jacobian evaluation. -c -c nlu iwork(21) the number of sparse lu decompositions for the -c problem so far. -c -c lyh iwork(22) the base address in rwork of the history array yh, -c described below in this list. -c -c ipian iwork(23) the base address of the structure descriptor array -c ian, described below in this list. -c -c ipjan iwork(24) the base address of the structure descriptor array -c jan, described below in this list. -c -c nzl iwork(25) the number of nonzero elements in the strict lower -c triangle of the lu factorization used in the chord -c iteration (miter = 1 or 2). -c -c nzu iwork(26) the number of nonzero elements in the strict upper -c triangle of the lu factorization used in the chord -c iteration (miter = 1 or 2). -c the total number of nonzeros in the factorization -c is therefore nzl + nzu + neq. -c -c the following four arrays are segments of the rwork array which -c may also be of interest to the user as optional outputs. -c for each array, the table below gives its internal name, -c its base address, and its description. -c for yh and acor, the base addresses are in rwork (a real array). -c the integer arrays ian and jan are to be obtained by declaring an -c integer array iwk and identifying iwk(1) with rwork(21), using either -c an equivalence statement or a subroutine call. then the base -c addresses ipian (of ian) and ipjan (of jan) in iwk are to be obtained -c as optional outputs iwork(23) and iwork(24), respectively. -c thus ian(1) is iwk(ipian), etc. -c -c name base address description -c -c ian ipian (in iwk) structure descriptor array of size neq + 1. -c jan ipjan (in iwk) structure descriptor array of size nnz. -c (see above) ian and jan together describe the sparsity -c structure of the jacobian matrix, as used by -c lsodes when miter = 1 or 2. -c jan contains the row indices of the nonzero -c locations, reading in columnwise order, and -c ian contains the starting locations in jan of -c the descriptions of columns 1,...,neq, in -c that order, with ian(1) = 1. thus for each -c j = 1,...,neq, the row indices i of the -c nonzero locations in column j are -c i = jan(k), ian(j) .le. k .lt. ian(j+1). -c note that ian(neq+1) = nnz + 1. -c (if moss = 0, ian/jan may differ from the -c input ia/ja because of a different ordering -c in each column, and added diagonal entries.) -c -c yh lyh the nordsieck history array, of size nyh by -c (optional (nqcur + 1), where nyh is the initial value -c output) of neq. for j = 0,1,...,nqcur, column j+1 -c of yh contains hcur**j/factorial(j) times -c the j-th derivative of the interpolating -c polynomial currently representing the solution, -c evaluated at t = tcur. the base address lyh -c is another optional output, listed above. -c -c acor lenrw-neq+1 array of size neq used for the accumulated -c corrections on each step, scaled on output -c to represent the estimated local error in y -c on the last step. this is the vector e in -c the description of the error control. it is -c defined only on a successful return from -c lsodes. -c -c----------------------------------------------------------------------- -c part ii. other routines callable. -c -c the following are optional calls which the user may make to -c gain additional capabilities in conjunction with lsodes. -c (the routines xsetun and xsetf are designed to conform to the -c slatec error handling package.) -c -c form of CALL function -c CALL xsetun(lun) set the logical unit number, lun, for -c output of messages from lsodes, if -c the default is not desired. -c the default value of lun is 6. -c -c CALL xsetf(mflag) set a flag to control the printing of -c messages by lsodes. -c mflag = 0 means do not print. (danger.. -c this risks losing valuable information.) -c mflag = 1 means print (the default). -c -c either of the above calls may be made at -c any time and will take effect immediately. -c -c CALL srcms(rsav,isav,job) saves and restores the contents of -c the internal common blocks used by -c lsodes (see part iii below). -c rsav must be a real array of length 224 -c or more, and isav must be an integer -c array of length 75 or more. -c job=1 means save common into rsav/isav. -c job=2 means restore common from rsav/isav. -c srcms is useful if one is -c interrupting a run and restarting -c later, or alternating between two or -c more problems solved with lsodes. -c -c CALL intdy(,,,,,) provide derivatives of y, of various -c (see below) orders, at a specified point t, if -c desired. it may be called only after -c a successful return from lsodes. -c -c the detailed instructions for using intdy are as follows. -c the form of the CALL is.. -c -c lyh = iwork(22) -c CALL intdy (t, k, rwork(lyh), nyh, dky, iflag) -c -c the input parameters are.. -c -c t = value of independent variable where answers are desired -c (normally the same as the t last returned by lsodes). -c for valid results, t must lie between tcur - hu and tcur. -c (see optional outputs for tcur and hu.) -c k = integer order of the derivative desired. k must satisfy -c 0 .le. k .le. nqcur, where nqcur is the current order -c (see optional outputs). the capability corresponding -c to k = 0, i.e. computing y(t), is already provided -c by lsodes directly. since nqcur .ge. 1, the first -c derivative dy/dt is always available with intdy. -c lyh = the base address of the history array yh, obtained -c as an optional output as shown above. -c nyh = column length of yh, equal to the initial value of neq. -c -c the output parameters are.. -c -c dky = a real array of length neq containing the computed value -c of the k-th derivative of y(t). -c iflag = integer flag, returned as 0 if k and t were legal, -c -1 if k was illegal, and -2 if t was illegal. -c on an error return, a message is also written. -c----------------------------------------------------------------------- -c part iii. common blocks. -c -c if lsodes is to be used in an overlay situation, the user -c must declare, in the primary overlay, the variables in.. -c (1) the CALL sequence to lsodes, -c (2) the three internal common blocks -c /ls0001/ of length 257 (218 KPP_REAL words -c followed by 39 integer words), -c /lss001/ of length 40 ( 6 KPP_REAL words -c followed by 34 integer words), -c /eh0001/ of length 2 (integer words). -c -c if lsodes is used on a system in which the contents of internal -c common blocks are not preserved between calls, the user should -c declare the above three common blocks in his main program to insure -c that their contents are preserved. -c -c if the solution of a given problem by lsodes is to be interrupted -c and then later continued, such as when restarting an interrupted run -c or alternating between two or more problems, the user should save, -c following the return from the last lsodes CALL prior to the -c interruption, the contents of the CALL sequence variables and the -c internal common blocks, and later restore these values before the -c next lsodes CALL for that problem. to save and restore the common -c blocks, use subroutine srcms (see part ii above). -c -c----------------------------------------------------------------------- -c part iv. optionally replaceable solver routines. -c -c below are descriptions of two routines in the lsodes package which -c relate to the measurement of errors. either routine can be -c replaced by a user-supplied version, if desired. however, since such -c a replacement may have a major impact on performance, it should be -c done only when absolutely necessary, and only with great caution. -c (note.. the means by which the package version of a routine is -c superseded by the user-s version may be system-dependent.) -c -c (a) ewset. -c the following subroutine is called just before each internal -c integration step, and sets the array of error weights, ewt, as -c described under itol/RelTol/AbsTol above.. -c subroutine ewset (neq, itol, RelTol, AbsTol, ycur, ewt) -c where neq, itol, RelTol, and AbsTol are as in the lsodes CALL sequence, -c ycur contains the current dependent variable vector, and -c ewt is the array of weights set by ewset. -c -c if the user supplies this subroutine, it must return in ewt(i) -c (i = 1,...,neq) a positive quantity suitable for comparing errors -c in y(i) to. the ewt array returned by ewset is passed to the -c vnorm routine (see below), and also used by lsodes in the computation -c of the optional output imxer, the diagonal jacobian approximation, -c and the increments for difference quotient jacobians. -c -c in the user-supplied version of ewset, it may be desirable to use -c the current values of derivatives of y. derivatives up to order nq -c are available from the history array yh, described above under -c optional outputs. in ewset, yh is identical to the ycur array, -c extended to nq + 1 columns with a column length of nyh and scale -c factors of h**j/factorial(j). on the first CALL for the problem, -c given by nst = 0, nq is 1 and h is temporarily set to 1.0. -c the quantities nq, nyh, h, and nst can be obtained by including -c in ewset the statements.. -c KPP_REAL h, rls -c common /ls0001/ rls(218),ils(39) -c nq = ils(35) -c nyh = ils(14) -c nst = ils(36) -c h = rls(212) -c thus, for example, the current value of dy/dt can be obtained as -c ycur(nyh+i)/h (i=1,...,neq) (and the division by h is -c unnecessary when nst = 0). -c -c (b) vnorm. -c the following is a real function routine which computes the weighted -c root-mean-square norm of a vector v.. -c d = vnorm (n, v, w) -c where.. -c n = the length of the vector, -c v = real array of length n containing the vector, -c w = real array of length n containing weights, -c d = sqrt( (1/n) * sum(v(i)*w(i))**2 ). -c vnorm is called with n = neq and with w(i) = 1.0/ewt(i), where -c ewt is as set by subroutine ewset. -c -c if the user supplies this function, it should return a non-negative -c value of vnorm suitable for use in the error control in lsodes. -c none of the arguments should be altered by vnorm. -c for example, a user-supplied vnorm routine might.. -c -substitute a max-norm of (v(i)*w(i)) for the rms-norm, or -c -ignore some components of v in the norm, with the effect of -c suppressing the error control on those components of y. -c----------------------------------------------------------------------- -c----------------------------------------------------------------------- -c other routines in the lsodes package. -c -c in addition to subroutine lsodes, the lsodes package includes the -c following subroutines and function routines.. -c iprep acts as an iterface between lsodes and prep, and also does -c adjusting of work space pointers and work arrays. -c prep is called by iprep to compute sparsity and do sparse matrix -c preprocessing if miter = 1 or 2. -c jgroup is called by prep to compute groups of jacobian column -c indices for use when miter = 2. -c adjlr adjusts the length of required sparse matrix work space. -c it is called by prep. -c cntnzu is called by prep and counts the nonzero elements in the -c strict upper triangle of j + j-transpose, where j = df/dy. -c intdy computes an interpolated value of the y vector at t = tout. -c stode is the core integrator, which does one step of the -c integration and the associated error control. -c cfode sets all method coefficients and test constants. -c prjs computes and preprocesses the jacobian matrix j = df/dy -c and the newton iteration matrix p = i - h*l0*j. -c slss manages solution of linear system in chord iteration. -c ewset sets the error weight vector ewt before each step. -c vnorm computes the weighted r.m.s. norm of a vector. -c srcms is a user-callable routine to save and restore -c the contents of the internal common blocks. -c odrv constructs a reordering of the rows and columns of -c a matrix by the minimum degree algorithm. odrv is a -c driver routine which calls subroutines md, mdi, mdm, -c mdp, mdu, and sro. see ref. 2 for details. (the odrv -c module has been modified since ref. 2, however.) -c cdrv performs reordering, symbolic factorization, numerical -c factorization, or linear system solution operations, -c depending on a path argument ipath. cdrv is a -c driver routine which calls subroutines nroc, nsfc, -c nnfc, nnsc, and nntc. see ref. 3 for details. -c lsodes uses cdrv to solve linear systems in which the -c coefficient matrix is p = i - con*j, where i is the -c identity, con is a scalar, and j is an approximation to -c the jacobian df/dy. because cdrv deals with rowwise -c sparsity descriptions, cdrv works with p-transpose, not p. -c d1mach computes the unit roundoff in a machine-independent manner. -c xerrwv, xsetun, and xsetf handle the printing of all error -c messages and warnings. xerrwv is machine-dependent. -c note.. vnorm and d1mach are function routines. -c all the others are subroutines. -c -c the intrinsic and external routines used by lsodes are.. -c dabs, DMAX1, dmin1, dfloat, max0, min0, mod, DSIGN, DSQRT, and write. -c -c a block data subprogram is also included with the package, -c for loading some of the variables in internal common. -c -c----------------------------------------------------------------------- -c the following card is for optimized compilation on lll compilers. -clll. optimize -c----------------------------------------------------------------------- - external prjs, slss - integer illin, init, lyh, lewt, lacor, lsavf, lwm, liwm, - 1 mxstep, mxhnil, nhnil, ntrep, nslast, nyh, iowns - integer icf, ierpj, iersl, jcur, jstart, kflag, l, meth, miter, - 1 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu - integer iplost, iesp, istatc, iys, iba, ibian, ibjan, ibjgp, - 1 ipian, ipjan, ipjgp, ipigp, ipr, ipc, ipic, ipisp, iprsp, ipa, - 2 lenyh, lenyhm, lenwk, lreq, lrat, lrest, lwmin, moss, msbj, - 3 nslj, ngp, nlu, nnz, nsp, nzl, nzu - integer i, i1, i2, iflag, imax, imul, imxer, ipflag, ipgo, irem, - 1 j, kgo, lenrat, lenyht, leniw, lenrw, lf0, lia, lja, - 2 lrtem, lwtem, lyhd, lyhn, mf1, mord, mxhnl0, mxstp0, ncolm - KPP_REAL rowns, - 1 ccmax, el0, h, hmin, hmxi, hu, rc, tn, uround - KPP_REAL con0, conmin, ccmxj, psmall, rbig, seth - KPP_REAL AbsToli, ayi, big, ewti, h0, hmax, hmx, rh, RelToli, - 1 tcrit, tdist, tnext, tol, tolsf, tp, size, sum, w0, - 2 d1mach, vnorm - dimension mord(2) - logical ihit -c----------------------------------------------------------------------- -c the following two internal common blocks contain -c (a) variables which are local to any subroutine but whose values must -c be preserved between calls to the routine (own variables), and -c (b) variables which are communicated between subroutines. -c the structure of each block is as follows.. all real variables are -c listed first, followed by all integers. within each type, the -c variables are grouped with those local to subroutine lsodes first, -c then those local to subroutine stode or subroutine prjs -c (no other routines have own variables), and finally those used -c for communication. the block ls0001 is declared in subroutines -c lsodes, iprep, prep, intdy, stode, prjs, and slss. the block lss001 -c is declared in subroutines lsodes, iprep, prep, prjs, and slss. -c groups of variables are replaced by dummy arrays in the common -c declarations in routines where those variables are not used. -c----------------------------------------------------------------------- - common /ls0001/ rowns(209), - 1 ccmax, el0, h, hmin, hmxi, hu, rc, tn, uround, - 2 illin, init, lyh, lewt, lacor, lsavf, lwm, liwm, - 3 mxstep, mxhnil, nhnil, ntrep, nslast, nyh, iowns(6), - 4 icf, ierpj, iersl, jcur, jstart, kflag, l, meth, miter, - 5 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu -c - common /lss001/ con0, conmin, ccmxj, psmall, rbig, seth, - 1 iplost, iesp, istatc, iys, iba, ibian, ibjan, ibjgp, - 2 ipian, ipjan, ipjgp, ipigp, ipr, ipc, ipic, ipisp, iprsp, ipa, - 3 lenyh, lenyhm, lenwk, lreq, lrat, lrest, lwmin, moss, msbj, - 4 nslj, ngp, nlu, nnz, nsp, nzl, nzu -c - data mord(1),mord(2)/12,5/, mxstp0/500/, mxhnl0/10/ -c----------------------------------------------------------------------- -c in the data statement below, set lenrat equal to the ratio of -c the wordlength for a real number to that for an integer. usually, -c lenrat = 1 for single precision and 2 for KPP_REAL. if the -c true ratio is not an integer, use the next smaller integer (.ge. 1). -c----------------------------------------------------------------------- - data lenrat/2/ -c----------------------------------------------------------------------- -c block a. -c this code block is executed on every call. -c it tests istate and itask for legality and branches appropriately. -c if istate .gt. 1 but the flag init shows that initialization has -c not yet been done, an error return occurs. -c if istate = 1 and tout = t, jump to block g and return immediately. -c----------------------------------------------------------------------- - if (istate .lt. 1 .or. istate .gt. 3) go to 601 - if (itask .lt. 1 .or. itask .gt. 5) go to 602 - if (istate .eq. 1) go to 10 - if (init .eq. 0) go to 603 - if (istate .eq. 2) go to 200 - go to 20 - 10 init = 0 - if (tout .eq. t) go to 430 - 20 ntrep = 0 -c----------------------------------------------------------------------- -c block b. -c the next code block is executed for the initial CALL (istate = 1), -c or for a continuation CALL with parameter changes (istate = 3). -c it contains checking of all inputs and various initializations. -c if istate = 1, the final setting of work space pointers, the matrix -c preprocessing, and other initializations are done in block c. -c -c first check legality of the non-optional inputs neq, itol, iopt, -c mf, ml, and mu. -c----------------------------------------------------------------------- - if (neq(1) .le. 0) go to 604 - if (istate .eq. 1) go to 25 - if (neq(1) .gt. n) go to 605 - 25 n = neq(1) - if (itol .lt. 1 .or. itol .gt. 4) go to 606 - if (iopt .lt. 0 .or. iopt .gt. 1) go to 607 - moss = mf/100 - mf1 = mf - 100*moss - meth = mf1/10 - miter = mf1 - 10*meth - if (moss .lt. 0 .or. moss .gt. 2) go to 608 - if (meth .lt. 1 .or. meth .gt. 2) go to 608 - if (miter .lt. 0 .or. miter .gt. 3) go to 608 - if (miter .eq. 0 .or. miter .eq. 3) moss = 0 -c next process and check the optional inputs. -------------------------- - if (iopt .eq. 1) go to 40 - maxord = mord(meth) - mxstep = mxstp0 - mxhnil = mxhnl0 - if (istate .eq. 1) h0 = 0.0d0 - hmxi = 0.0d0 - hmin = 0.0d0 - seth = 0.0d0 - go to 60 - 40 maxord = iwork(5) - if (maxord .lt. 0) go to 611 - if (maxord .eq. 0) maxord = 100 - maxord = min0(maxord,mord(meth)) - mxstep = iwork(6) - if (mxstep .lt. 0) go to 612 - if (mxstep .eq. 0) mxstep = mxstp0 - mxhnil = iwork(7) - if (mxhnil .lt. 0) go to 613 - if (mxhnil .eq. 0) mxhnil = mxhnl0 - if (istate .ne. 1) go to 50 - h0 = rwork(5) - if ((tout - t)*h0 .lt. 0.0d0) go to 614 - 50 hmax = rwork(6) - if (hmax .lt. 0.0d0) go to 615 - hmxi = 0.0d0 - if (hmax .gt. 0.0d0) hmxi = 1.0d0/hmax - hmin = rwork(7) - if (hmin .lt. 0.0d0) go to 616 - seth = rwork(8) - if (seth .lt. 0.0d0) go to 609 -c check RelTol and AbsTol for legality. ------------------------------------ - 60 RelToli = RelTol(1) - AbsToli = AbsTol(1) - do 65 i = 1,n - if (itol .ge. 3) RelToli = RelTol(i) - if (itol .eq. 2 .or. itol .eq. 4) AbsToli = AbsTol(i) - if (RelToli .lt. 0.0d0) go to 619 - if (AbsToli .lt. 0.0d0) go to 620 - 65 continue -c----------------------------------------------------------------------- -c compute required work array lengths, as far as possible, and test -c these against lrw and liw. then set tentative pointers for work -c arrays. pointers to rwork/iwork segments are named by prefixing l to -c the name of the segment. e.g., the segment yh starts at rwork(lyh). -c segments of rwork (in order) are denoted wm, yh, savf, ewt, acor. -c if miter = 1 or 2, the required length of the matrix work space wm -c is not yet known, and so a crude minimum value is used for the -c initial tests of lrw and liw, and yh is temporarily stored as far -c to the right in rwork as possible, to leave the maximum amount -c of space for wm for matrix preprocessing. thus if miter = 1 or 2 -c and moss .ne. 2, some of the segments of rwork are temporarily -c omitted, as they are not needed in the preprocessing. these -c omitted segments are.. acor if istate = 1, ewt and acor if istate = 3 -c and moss = 1, and savf, ewt, and acor if istate = 3 and moss = 0. -c----------------------------------------------------------------------- - lrat = lenrat - if (istate .eq. 1) nyh = n - lwmin = 0 - if (miter .eq. 1) lwmin = 4*n + 10*n/lrat - if (miter .eq. 2) lwmin = 4*n + 11*n/lrat - if (miter .eq. 3) lwmin = n + 2 - lenyh = (maxord+1)*nyh - lrest = lenyh + 3*n - lenrw = 20 + lwmin + lrest - iwork(17) = lenrw - leniw = 30 - if (moss .eq. 0 .and. miter .ne. 0 .and. miter .ne. 3) - 1 leniw = leniw + n + 1 - iwork(18) = leniw - if (lenrw .gt. lrw) go to 617 - if (leniw .gt. liw) go to 618 - lia = 31 - if (moss .eq. 0 .and. miter .ne. 0 .and. miter .ne. 3) - 1 leniw = leniw + iwork(lia+n) - 1 - iwork(18) = leniw - if (leniw .gt. liw) go to 618 - lja = lia + n + 1 - lia = min0(lia,liw) - lja = min0(lja,liw) - lwm = 21 - if (istate .eq. 1) nq = 1 - ncolm = min0(nq+1,maxord+2) - lenyhm = ncolm*nyh - lenyht = lenyh - if (miter .eq. 1 .or. miter .eq. 2) lenyht = lenyhm - imul = 2 - if (istate .eq. 3) imul = moss - if (moss .eq. 2) imul = 3 - lrtem = lenyht + imul*n - lwtem = lwmin - if (miter .eq. 1 .or. miter .eq. 2) lwtem = lrw - 20 - lrtem - lenwk = lwtem - lyhn = lwm + lwtem - lsavf = lyhn + lenyht - lewt = lsavf + n - lacor = lewt + n - istatc = istate - if (istate .eq. 1) go to 100 -c----------------------------------------------------------------------- -c istate = 3. move yh to its new location. -c note that only the part of yh needed for the next step, namely -c min(nq+1,maxord+2) columns, is actually moved. -c a temporary error weight array ewt is loaded if moss = 2. -c sparse matrix processing is done in iprep/prep if miter = 1 or 2. -c if maxord was reduced below nq, then the pointers are finally set -c so that savf is identical to yh(*,maxord+2). -c----------------------------------------------------------------------- - lyhd = lyh - lyhn - imax = lyhn - 1 + lenyhm -c move yh. branch for move right, no move, or move left. -------------- - if (lyhd) 70,80,74 - 70 do 72 i = lyhn,imax - j = imax + lyhn - i - 72 rwork(j) = rwork(j+lyhd) - go to 80 - 74 do 76 i = lyhn,imax - 76 rwork(i) = rwork(i+lyhd) - 80 lyh = lyhn - iwork(22) = lyh - if (miter .eq. 0 .or. miter .eq. 3) go to 92 - if (moss .ne. 2) go to 85 -c temporarily load ewt if miter = 1 or 2 and moss = 2. ----------------- - CALL ewset (n, itol, RelTol, AbsTol, rwork(lyh), rwork(lewt)) - do 82 i = 1,n - if (rwork(i+lewt-1) .le. 0.0d0) go to 621 - 82 rwork(i+lewt-1) = 1.0d0/rwork(i+lewt-1) - 85 continue -c iprep and prep do sparse matrix preprocessing if miter = 1 or 2. ----- - lsavf = min0(lsavf,lrw) - lewt = min0(lewt,lrw) - lacor = min0(lacor,lrw) - CALL iprep (neq, y, rwork, iwork(lia), iwork(lja), ipflag, f, jac) - lenrw = lwm - 1 + lenwk + lrest - iwork(17) = lenrw - if (ipflag .ne. -1) iwork(23) = ipian - if (ipflag .ne. -1) iwork(24) = ipjan - ipgo = -ipflag + 1 - go to (90, 628, 629, 630, 631, 632, 633), ipgo - 90 iwork(22) = lyh - if (lenrw .gt. lrw) go to 617 -c set flag to signal parameter changes to stode. ----------------------- - 92 jstart = -1 - if (n .eq. nyh) go to 200 -c neq was reduced. zero part of yh to avoid undefined references. ----- - i1 = lyh + l*nyh - i2 = lyh + (maxord + 1)*nyh - 1 - if (i1 .gt. i2) go to 200 - do 95 i = i1,i2 - 95 rwork(i) = 0.0d0 - go to 200 -c----------------------------------------------------------------------- -c block c. -c the next block is for the initial CALL only (istate = 1). -c it contains all remaining initializations, the initial CALL to f, -c the sparse matrix preprocessing (miter = 1 or 2), and the -c calculation of the initial step size. -c the error weights in ewt are inverted after being loaded. -c----------------------------------------------------------------------- - 100 continue - lyh = lyhn - iwork(22) = lyh - tn = t - nst = 0 - h = 1.0d0 - nnz = 0 - ngp = 0 - nzl = 0 - nzu = 0 -c load the initial value vector in yh. --------------------------------- - do 105 i = 1,n - 105 rwork(i+lyh-1) = y(i) -c initial CALL to f. (lf0 points to yh(*,2).) ------------------------- - lf0 = lyh + nyh - CALL f (neq, t, y, rwork(lf0)) - nfe = 1 -c load and invert the ewt array. (h is temporarily set to 1.0.) ------- - CALL ewset (n, itol, RelTol, AbsTol, rwork(lyh), rwork(lewt)) - do 110 i = 1,n - if (rwork(i+lewt-1) .le. 0.0d0) go to 621 - 110 rwork(i+lewt-1) = 1.0d0/rwork(i+lewt-1) - if (miter .eq. 0 .or. miter .eq. 3) go to 120 -c iprep and prep do sparse matrix preprocessing if miter = 1 or 2. ----- - lacor = min0(lacor,lrw) - CALL iprep (neq, y, rwork, iwork(lia), iwork(lja), ipflag, f, jac) - lenrw = lwm - 1 + lenwk + lrest - iwork(17) = lenrw - if (ipflag .ne. -1) iwork(23) = ipian - if (ipflag .ne. -1) iwork(24) = ipjan - ipgo = -ipflag + 1 - go to (115, 628, 629, 630, 631, 632, 633), ipgo - 115 iwork(22) = lyh - if (lenrw .gt. lrw) go to 617 -c check tcrit for legality (itask = 4 or 5). --------------------------- - 120 continue - if (itask .ne. 4 .and. itask .ne. 5) go to 125 - tcrit = rwork(1) - if ((tcrit - tout)*(tout - t) .lt. 0.0d0) go to 625 - if (h0 .ne. 0.0d0 .and. (t + h0 - tcrit)*h0 .gt. 0.0d0) - 1 h0 = tcrit - t -c initialize all remaining parameters. --------------------------------- - 125 uround = d1mach(4) - jstart = 0 - if (miter .ne. 0) rwork(lwm) = DSQRT(uround) - msbj = 50 - nslj = 0 - ccmxj = 0.2d0 - psmall = 1000.0d0*uround - rbig = 0.01d0/psmall - nhnil = 0 - nje = 0 - nlu = 0 - nslast = 0 - hu = 0.0d0 - nqu = 0 - ccmax = 0.3d0 - maxcor = 3 - msbp = 20 - mxncf = 10 -c----------------------------------------------------------------------- -c the coding below computes the step size, h0, to be attempted on the -c first step, unless the user has supplied a value for this. -c first check that tout - t differs significantly from zero. -c a scalar tolerance quantity tol is computed, as max(RelTol(i)) -c if this is positive, or max(AbsTol(i)/abs(y(i))) otherwise, adjusted -c so as to be between 100*uround and 1.0e-3. -c then the computed value h0 is given by.. -c neq -c h0**2 = tol / ( w0**-2 + (1/neq) * sum ( f(i)/ywt(i) )**2 ) -c 1 -c where w0 = max ( abs(t), abs(tout) ), -c f(i) = i-th component of initial value of f, -c ywt(i) = ewt(i)/tol (a weight for y(i)). -c the sign of h0 is inferred from the initial values of tout and t. -c----------------------------------------------------------------------- - lf0 = lyh + nyh - if (h0 .ne. 0.0d0) go to 180 - tdist = dabs(tout - t) - w0 = DMAX1(dabs(t),dabs(tout)) - if (tdist .lt. 2.0d0*uround*w0) go to 622 - tol = RelTol(1) - if (itol .le. 2) go to 140 - do 130 i = 1,n - 130 tol = DMAX1(tol,RelTol(i)) - 140 if (tol .gt. 0.0d0) go to 160 - AbsToli = AbsTol(1) - do 150 i = 1,n - if (itol .eq. 2 .or. itol .eq. 4) AbsToli = AbsTol(i) - ayi = dabs(y(i)) - if (ayi .ne. 0.0d0) tol = DMAX1(tol,AbsToli/ayi) - 150 continue - 160 tol = DMAX1(tol,100.0d0*uround) - tol = dmin1(tol,0.001d0) - sum = vnorm (n, rwork(lf0), rwork(lewt)) - sum = 1.0d0/(tol*w0*w0) + tol*sum**2 - h0 = 1.0d0/DSQRT(sum) - h0 = dmin1(h0,tdist) - h0 = DSIGN(h0,tout-t) -c adjust h0 if necessary to meet hmax bound. --------------------------- - 180 rh = dabs(h0)*hmxi - if (rh .gt. 1.0d0) h0 = h0/rh -c load h with h0 and scale yh(*,2) by h0. ------------------------------ - h = h0 - do 190 i = 1,n - 190 rwork(i+lf0-1) = h0*rwork(i+lf0-1) - go to 270 -c----------------------------------------------------------------------- -c block d. -c the next code block is for continuation calls only (istate = 2 or 3) -c and is to check stop conditions before taking a step. -c----------------------------------------------------------------------- - 200 nslast = nst - go to (210, 250, 220, 230, 240), itask - 210 if ((tn - tout)*h .lt. 0.0d0) go to 250 - CALL intdy (tout, 0, rwork(lyh), nyh, y, iflag) - if (iflag .ne. 0) go to 627 - t = tout - go to 420 - 220 tp = tn - hu*(1.0d0 + 100.0d0*uround) - if ((tp - tout)*h .gt. 0.0d0) go to 623 - if ((tn - tout)*h .lt. 0.0d0) go to 250 - go to 400 - 230 tcrit = rwork(1) - if ((tn - tcrit)*h .gt. 0.0d0) go to 624 - if ((tcrit - tout)*h .lt. 0.0d0) go to 625 - if ((tn - tout)*h .lt. 0.0d0) go to 245 - CALL intdy (tout, 0, rwork(lyh), nyh, y, iflag) - if (iflag .ne. 0) go to 627 - t = tout - go to 420 - 240 tcrit = rwork(1) - if ((tn - tcrit)*h .gt. 0.0d0) go to 624 - 245 hmx = dabs(tn) + dabs(h) - ihit = dabs(tn - tcrit) .le. 100.0d0*uround*hmx - if (ihit) go to 400 - tnext = tn + h*(1.0d0 + 4.0d0*uround) - if ((tnext - tcrit)*h .le. 0.0d0) go to 250 - h = (tcrit - tn)*(1.0d0 - 4.0d0*uround) - if (istate .eq. 2) jstart = -2 -c----------------------------------------------------------------------- -c block e. -c the next block is normally executed for all calls and contains -c the CALL to the one-step core integrator stode. -c -c this is a looping point for the integration steps. -c -c first check for too many steps being taken, update ewt (if not at -c start of problem), check for too much accuracy being requested, and -c check for h below the roundoff level in t. -c----------------------------------------------------------------------- - 250 continue - if ((nst-nslast) .ge. mxstep) go to 500 - CALL ewset (n, itol, RelTol, AbsTol, rwork(lyh), rwork(lewt)) - do 260 i = 1,n - if (rwork(i+lewt-1) .le. 0.0d0) go to 510 - 260 rwork(i+lewt-1) = 1.0d0/rwork(i+lewt-1) - 270 tolsf = uround*vnorm (n, rwork(lyh), rwork(lewt)) - if (tolsf .le. 1.0d0) go to 280 - tolsf = tolsf*2.0d0 - if (nst .eq. 0) go to 626 - go to 520 - 280 if ((tn + h) .ne. tn) go to 290 - nhnil = nhnil + 1 - if (nhnil .gt. mxhnil) go to 290 - CALL xerrwv(50hlsodes-- warning..internal t (=r1) and h (=r2) are, - 1 50, 101, 0, 0, 0, 0, 0, 0.0d0, 0.0d0) - CALL xerrwv( - 1 60h such that in the machine, t + h = t on the next step , - 1 60, 101, 0, 0, 0, 0, 0, 0.0d0, 0.0d0) - CALL xerrwv(50h (h = step size). solver will continue anyway, - 1 50, 101, 0, 0, 0, 0, 2, tn, h) - if (nhnil .lt. mxhnil) go to 290 - CALL xerrwv(50hlsodes-- above warning has been issued i1 times. , - 1 50, 102, 0, 0, 0, 0, 0, 0.0d0, 0.0d0) - CALL xerrwv(50h it will not be issued again for this problem, - 1 50, 102, 0, 1, mxhnil, 0, 0, 0.0d0, 0.0d0) - 290 continue -c----------------------------------------------------------------------- -c CALL stode(neq,y,yh,nyh,yh,ewt,savf,acor,wm,wm,f,jac,prjs,slss) -c----------------------------------------------------------------------- - CALL stode (neq, y, rwork(lyh), nyh, rwork(lyh), rwork(lewt), - 1 rwork(lsavf), rwork(lacor), rwork(lwm), rwork(lwm), - 2 f, jac, prjs, slss) - kgo = 1 - kflag - go to (300, 530, 540, 550), kgo -c----------------------------------------------------------------------- -c block f. -c the following block handles the case of a successful return from the -c core integrator (kflag = 0). test for stop conditions. -c----------------------------------------------------------------------- - 300 init = 1 - go to (310, 400, 330, 340, 350), itask -c itask = 1. if tout has been reached, interpolate. ------------------- - 310 if ((tn - tout)*h .lt. 0.0d0) go to 250 - CALL intdy (tout, 0, rwork(lyh), nyh, y, iflag) - t = tout - go to 420 -c itask = 3. jump to exit if tout was reached. ------------------------ - 330 if ((tn - tout)*h .ge. 0.0d0) go to 400 - go to 250 -c itask = 4. see if tout or tcrit was reached. adjust h if necessary. - 340 if ((tn - tout)*h .lt. 0.0d0) go to 345 - CALL intdy (tout, 0, rwork(lyh), nyh, y, iflag) - t = tout - go to 420 - 345 hmx = dabs(tn) + dabs(h) - ihit = dabs(tn - tcrit) .le. 100.0d0*uround*hmx - if (ihit) go to 400 - tnext = tn + h*(1.0d0 + 4.0d0*uround) - if ((tnext - tcrit)*h .le. 0.0d0) go to 250 - h = (tcrit - tn)*(1.0d0 - 4.0d0*uround) - jstart = -2 - go to 250 -c itask = 5. see if tcrit was reached and jump to exit. --------------- - 350 hmx = dabs(tn) + dabs(h) - ihit = dabs(tn - tcrit) .le. 100.0d0*uround*hmx -c----------------------------------------------------------------------- -c block g. -c the following block handles all successful returns from lsodes. -c if itask .ne. 1, y is loaded from yh and t is set accordingly. -c istate is set to 2, the illegal input counter is zeroed, and the -c optional outputs are loaded into the work arrays before returning. -c if istate = 1 and tout = t, there is a return with no action taken, -c except that if this has happened repeatedly, the run is terminated. -c----------------------------------------------------------------------- - 400 do 410 i = 1,n - 410 y(i) = rwork(i+lyh-1) - t = tn - if (itask .ne. 4 .and. itask .ne. 5) go to 420 - if (ihit) t = tcrit - 420 istate = 2 - illin = 0 - rwork(11) = hu - rwork(12) = h - rwork(13) = tn - iwork(11) = nst - iwork(12) = nfe - iwork(13) = nje - iwork(14) = nqu - iwork(15) = nq - iwork(19) = nnz - iwork(20) = ngp - iwork(21) = nlu - iwork(25) = nzl - iwork(26) = nzu - return -c - 430 ntrep = ntrep + 1 - if (ntrep .lt. 5) return - CALL xerrwv( - 1 60hlsodes-- repeated calls with istate = 1 and tout = t (=r1) , - 1 60, 301, 0, 0, 0, 0, 1, t, 0.0d0) - go to 800 -c----------------------------------------------------------------------- -c block h. -c the following block handles all unsuccessful returns other than -c those for illegal input. first the error message routine is called. -c if there was an error test or convergence test failure, imxer is set. -c then y is loaded from yh, t is set to tn, and the illegal input -c counter illin is set to 0. the optional outputs are loaded into -c the work arrays before returning. -c----------------------------------------------------------------------- -c the maximum number of steps was taken before reaching tout. ---------- - 500 CALL xerrwv(50hlsodes-- at current t (=r1), mxstep (=i1) steps , - 1 50, 201, 0, 0, 0, 0, 0, 0.0d0, 0.0d0) - CALL xerrwv(50h taken on this CALL before reaching tout , - 1 50, 201, 0, 1, mxstep, 0, 1, tn, 0.0d0) - istate = -1 - go to 580 -c ewt(i) .le. 0.0 for some i (not at start of problem). ---------------- - 510 ewti = rwork(lewt+i-1) - CALL xerrwv(50hlsodes-- at t (=r1), ewt(i1) has become r2 .le. 0., - 1 50, 202, 0, 1, i, 0, 2, tn, ewti) - istate = -6 - go to 580 -c too much accuracy requested for machine precision. ------------------- - 520 CALL xerrwv(50hlsodes-- at t (=r1), too much accuracy requested , - 1 50, 203, 0, 0, 0, 0, 0, 0.0d0, 0.0d0) - CALL xerrwv(50h for precision of machine.. see tolsf (=r2) , - 1 50, 203, 0, 0, 0, 0, 2, tn, tolsf) - rwork(14) = tolsf - istate = -2 - go to 580 -c kflag = -1. error test failed repeatedly or with abs(h) = hmin. ----- - 530 CALL xerrwv(50hlsodes-- at t(=r1) and step size h(=r2), the error, - 1 50, 204, 0, 0, 0, 0, 0, 0.0d0, 0.0d0) - CALL xerrwv(50h test failed repeatedly or with abs(h) = hmin, - 1 50, 204, 0, 0, 0, 0, 2, tn, h) - istate = -4 - go to 560 -c kflag = -2. convergence failed repeatedly or with abs(h) = hmin. ---- - 540 CALL xerrwv(50hlsodes-- at t (=r1) and step size h (=r2), the , - 1 50, 205, 0, 0, 0, 0, 0, 0.0d0, 0.0d0) - CALL xerrwv(50h corrector convergence failed repeatedly , - 1 50, 205, 0, 0, 0, 0, 0, 0.0d0, 0.0d0) - CALL xerrwv(30h or with abs(h) = hmin , - 1 30, 205, 0, 0, 0, 0, 2, tn, h) - istate = -5 - go to 560 -c kflag = -3. fatal error flag returned by prjs or slss (cdrv). ------- - 550 CALL xerrwv(50hlsodes-- at t (=r1) and step size h (=r2), a fatal, - 1 50, 207, 0, 0, 0, 0, 0, 0.0d0, 0.0d0) - CALL xerrwv(50h error flag was returned by cdrv (by way of , - 1 50, 207, 0, 0, 0, 0, 0, 0.0d0, 0.0d0) - CALL xerrwv(30h subroutine prjs or slss), - 1 30, 207, 0, 0, 0, 0, 2, tn, h) - istate = -7 - go to 580 -c compute imxer if relevant. ------------------------------------------- - 560 big = 0.0d0 - imxer = 1 - do 570 i = 1,n - size = dabs(rwork(i+lacor-1)*rwork(i+lewt-1)) - if (big .ge. size) go to 570 - big = size - imxer = i - 570 continue - iwork(16) = imxer -c set y vector, t, illin, and optional outputs. ------------------------ - 580 do 590 i = 1,n - 590 y(i) = rwork(i+lyh-1) - t = tn - illin = 0 - rwork(11) = hu - rwork(12) = h - rwork(13) = tn - iwork(11) = nst - iwork(12) = nfe - iwork(13) = nje - iwork(14) = nqu - iwork(15) = nq - iwork(19) = nnz - iwork(20) = ngp - iwork(21) = nlu - iwork(25) = nzl - iwork(26) = nzu - return -c----------------------------------------------------------------------- -c block i. -c the following block handles all error returns due to illegal input -c (istate = -3), as detected before calling the core integrator. -c first the error message routine is called. then if there have been -c 5 consecutive such returns just before this CALL to the solver, -c the run is halted. -c----------------------------------------------------------------------- - 601 CALL xerrwv(30hlsodes-- istate (=i1) illegal , - 1 30, 1, 0, 1, istate, 0, 0, 0.0d0, 0.0d0) - go to 700 - 602 CALL xerrwv(30hlsodes-- itask (=i1) illegal , - 1 30, 2, 0, 1, itask, 0, 0, 0.0d0, 0.0d0) - go to 700 - 603 CALL xerrwv(50hlsodes-- istate .gt. 1 but lsodes not initialized , - 1 50, 3, 0, 0, 0, 0, 0, 0.0d0, 0.0d0) - go to 700 - 604 CALL xerrwv(30hlsodes-- neq (=i1) .lt. 1 , - 1 30, 4, 0, 1, neq(1), 0, 0, 0.0d0, 0.0d0) - go to 700 - 605 CALL xerrwv(50hlsodes-- istate = 3 and neq increased (i1 to i2) , - 1 50, 5, 0, 2, n, neq(1), 0, 0.0d0, 0.0d0) - go to 700 - 606 CALL xerrwv(30hlsodes-- itol (=i1) illegal , - 1 30, 6, 0, 1, itol, 0, 0, 0.0d0, 0.0d0) - go to 700 - 607 CALL xerrwv(30hlsodes-- iopt (=i1) illegal , - 1 30, 7, 0, 1, iopt, 0, 0, 0.0d0, 0.0d0) - go to 700 - 608 CALL xerrwv(30hlsodes-- mf (=i1) illegal , - 1 30, 8, 0, 1, mf, 0, 0, 0.0d0, 0.0d0) - go to 700 - 609 CALL xerrwv(30hlsodes-- seth (=r1) .lt. 0.0 , - 1 30, 9, 0, 0, 0, 0, 1, seth, 0.0d0) - go to 700 - 611 CALL xerrwv(30hlsodes-- maxord (=i1) .lt. 0 , - 1 30, 11, 0, 1, maxord, 0, 0, 0.0d0, 0.0d0) - go to 700 - 612 CALL xerrwv(30hlsodes-- mxstep (=i1) .lt. 0 , - 1 30, 12, 0, 1, mxstep, 0, 0, 0.0d0, 0.0d0) - go to 700 - 613 CALL xerrwv(30hlsodes-- mxhnil (=i1) .lt. 0 , - 1 30, 13, 0, 1, mxhnil, 0, 0, 0.0d0, 0.0d0) - go to 700 - 614 CALL xerrwv(40hlsodes-- tout (=r1) behind t (=r2) , - 1 40, 14, 0, 0, 0, 0, 2, tout, t) - CALL xerrwv(50h integration direction is given by h0 (=r1) , - 1 50, 14, 0, 0, 0, 0, 1, h0, 0.0d0) - go to 700 - 615 CALL xerrwv(30hlsodes-- hmax (=r1) .lt. 0.0 , - 1 30, 15, 0, 0, 0, 0, 1, hmax, 0.0d0) - go to 700 - 616 CALL xerrwv(30hlsodes-- hmin (=r1) .lt. 0.0 , - 1 30, 16, 0, 0, 0, 0, 1, hmin, 0.0d0) - go to 700 - 617 CALL xerrwv(50hlsodes-- rwork length is insufficient to proceed. , - 1 50, 17, 0, 0, 0, 0, 0, 0.0d0, 0.0d0) - CALL xerrwv( - 1 60h length needed is .ge. lenrw (=i1), exceeds lrw (=i2), - 1 60, 17, 0, 2, lenrw, lrw, 0, 0.0d0, 0.0d0) - go to 700 - 618 CALL xerrwv(50hlsodes-- iwork length is insufficient to proceed. , - 1 50, 18, 0, 0, 0, 0, 0, 0.0d0, 0.0d0) - CALL xerrwv( - 1 60h length needed is .ge. leniw (=i1), exceeds liw (=i2), - 1 60, 18, 0, 2, leniw, liw, 0, 0.0d0, 0.0d0) - go to 700 - 619 CALL xerrwv(40hlsodes-- RelTol(i1) is r1 .lt. 0.0 , - 1 40, 19, 0, 1, i, 0, 1, RelToli, 0.0d0) - go to 700 - 620 CALL xerrwv(40hlsodes-- AbsTol(i1) is r1 .lt. 0.0 , - 1 40, 20, 0, 1, i, 0, 1, AbsToli, 0.0d0) - go to 700 - 621 ewti = rwork(lewt+i-1) - CALL xerrwv(40hlsodes-- ewt(i1) is r1 .le. 0.0 , - 1 40, 21, 0, 1, i, 0, 1, ewti, 0.0d0) - go to 700 - 622 CALL xerrwv( - 1 60hlsodes-- tout (=r1) too close to t(=r2) to start integration, - 1 60, 22, 0, 0, 0, 0, 2, tout, t) - go to 700 - 623 CALL xerrwv( - 1 60hlsodes-- itask = i1 and tout (=r1) behind tcur - hu (= r2) , - 1 60, 23, 0, 1, itask, 0, 2, tout, tp) - go to 700 - 624 CALL xerrwv( - 1 60hlsodes-- itask = 4 or 5 and tcrit (=r1) behind tcur (=r2) , - 1 60, 24, 0, 0, 0, 0, 2, tcrit, tn) - go to 700 - 625 CALL xerrwv( - 1 60hlsodes-- itask = 4 or 5 and tcrit (=r1) behind tout (=r2) , - 1 60, 25, 0, 0, 0, 0, 2, tcrit, tout) - go to 700 - 626 CALL xerrwv(50hlsodes-- at start of problem, too much accuracy , - 1 50, 26, 0, 0, 0, 0, 0, 0.0d0, 0.0d0) - CALL xerrwv( - 1 60h requested for precision of machine.. see tolsf (=r1) , - 1 60, 26, 0, 0, 0, 0, 1, tolsf, 0.0d0) - rwork(14) = tolsf - go to 700 - 627 CALL xerrwv(50hlsodes-- trouble from intdy. itask = i1, tout = r1, - 1 50, 27, 0, 1, itask, 0, 1, tout, 0.0d0) - go to 700 - 628 CALL xerrwv( - 1 60hlsodes-- rwork length insufficient (for subroutine prep). , - 1 60, 28, 0, 0, 0, 0, 0, 0.0d0, 0.0d0) - CALL xerrwv( - 1 60h length needed is .ge. lenrw (=i1), exceeds lrw (=i2), - 1 60, 28, 0, 2, lenrw, lrw, 0, 0.0d0, 0.0d0) - go to 700 - 629 CALL xerrwv( - 1 60hlsodes-- rwork length insufficient (for subroutine jgroup). , - 1 60, 29, 0, 0, 0, 0, 0, 0.0d0, 0.0d0) - CALL xerrwv( - 1 60h length needed is .ge. lenrw (=i1), exceeds lrw (=i2), - 1 60, 29, 0, 2, lenrw, lrw, 0, 0.0d0, 0.0d0) - go to 700 - 630 CALL xerrwv( - 1 60hlsodes-- rwork length insufficient (for subroutine odrv). , - 1 60, 30, 0, 0, 0, 0, 0, 0.0d0, 0.0d0) - CALL xerrwv( - 1 60h length needed is .ge. lenrw (=i1), exceeds lrw (=i2), - 1 60, 30, 0, 2, lenrw, lrw, 0, 0.0d0, 0.0d0) - go to 700 - 631 CALL xerrwv( - 1 60hlsodes-- error from odrv in yale sparse matrix package , - 1 60, 31, 0, 0, 0, 0, 0, 0.0d0, 0.0d0) - imul = (iys - 1)/n - irem = iys - imul*n - CALL xerrwv( - 1 60h at t (=r1), odrv returned error flag = i1*neq + i2. , - 1 60, 31, 0, 2, imul, irem, 1, tn, 0.0d0) - go to 700 - 632 CALL xerrwv( - 1 60hlsodes-- rwork length insufficient (for subroutine cdrv). , - 1 60, 32, 0, 0, 0, 0, 0, 0.0d0, 0.0d0) - CALL xerrwv( - 1 60h length needed is .ge. lenrw (=i1), exceeds lrw (=i2), - 1 60, 32, 0, 2, lenrw, lrw, 0, 0.0d0, 0.0d0) - go to 700 - 633 CALL xerrwv( - 1 60hlsodes-- error from cdrv in yale sparse matrix package , - 1 60, 33, 0, 0, 0, 0, 0, 0.0d0, 0.0d0) - imul = (iys - 1)/n - irem = iys - imul*n - CALL xerrwv( - 1 60h at t (=r1), cdrv returned error flag = i1*neq + i2. , - 1 60, 33, 0, 2, imul, irem, 1, tn, 0.0d0) - if (imul .eq. 2) CALL xerrwv( - 1 60h duplicate entry in sparsity structure descriptors , - 1 60, 33, 0, 0, 0, 0, 0, 0.0d0, 0.0d0) - if (imul .eq. 3 .or. imul .eq. 6) CALL xerrwv( - 1 60h insufficient storage for nsfc (called by cdrv) , - 1 60, 33, 0, 0, 0, 0, 0, 0.0d0, 0.0d0) -c - 700 if (illin .eq. 5) go to 710 - illin = illin + 1 - istate = -3 - return - 710 CALL xerrwv(50hlsodes-- repeated occurrences of illegal input , - 1 50, 302, 0, 0, 0, 0, 0, 0.0d0, 0.0d0) -c - 800 CALL xerrwv(50hlsodes-- run aborted.. apparent infinite loop , - 1 50, 303, 2, 0, 0, 0, 0, 0.0d0, 0.0d0) - return -c----------------------- end of subroutine lsodes ---------------------- - end - subroutine iprep (neq, y, rwork, ia, ja, ipflag, f, jac) -clll. optimize - external f, jac - integer neq, ia, ja, ipflag - integer illin, init, lyh, lewt, lacor, lsavf, lwm, liwm, - 1 mxstep, mxhnil, nhnil, ntrep, nslast, nyh, iowns - integer icf, ierpj, iersl, jcur, jstart, kflag, l, meth, miter, - 1 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu - integer iplost, iesp, istatc, iys, iba, ibian, ibjan, ibjgp, - 1 ipian, ipjan, ipjgp, ipigp, ipr, ipc, ipic, ipisp, iprsp, ipa, - 2 lenyh, lenyhm, lenwk, lreq, lrat, lrest, lwmin, moss, msbj, - 3 nslj, ngp, nlu, nnz, nsp, nzl, nzu - integer i, imax, lewtn, lyhd, lyhn - KPP_REAL y, rwork - KPP_REAL rowns, - 1 ccmax, el0, h, hmin, hmxi, hu, rc, tn, uround - KPP_REAL rlss - dimension neq(1), y(1), rwork(1), ia(1), ja(1) - common /ls0001/ rowns(209), - 1 ccmax, el0, h, hmin, hmxi, hu, rc, tn, uround, - 2 illin, init, lyh, lewt, lacor, lsavf, lwm, liwm, - 3 mxstep, mxhnil, nhnil, ntrep, nslast, nyh, iowns(6), - 4 icf, ierpj, iersl, jcur, jstart, kflag, l, meth, miter, - 5 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu - common /lss001/ rlss(6), - 1 iplost, iesp, istatc, iys, iba, ibian, ibjan, ibjgp, - 2 ipian, ipjan, ipjgp, ipigp, ipr, ipc, ipic, ipisp, iprsp, ipa, - 3 lenyh, lenyhm, lenwk, lreq, lrat, lrest, lwmin, moss, msbj, - 4 nslj, ngp, nlu, nnz, nsp, nzl, nzu -c----------------------------------------------------------------------- -c this routine serves as an interface between the driver and -c subroutine prep. it is called only if miter is 1 or 2. -c tasks performed here are.. -c * CALL prep, -c * reset the required wm segment length lenwk, -c * move yh back to its final location (following wm in rwork), -c * reset pointers for yh, savf, ewt, and acor, and -c * move ewt to its new position if istate = 1. -c ipflag is an output error indication flag. ipflag = 0 if there was -c no trouble, and ipflag is the value of the prep error flag ipper -c if there was trouble in subroutine prep. -c----------------------------------------------------------------------- - ipflag = 0 -c CALL prep to do matrix preprocessing operations. --------------------- -c CALL prep (neq, y, rwork(lyh), rwork(lsavf), rwork(lewt), -c 1 rwork(lacor), ia, ja, rwork(lwm), rwork(lwm), ipflag, f, jac) - CALL prep (neq, y, rwork(lyh), rwork(lsavf), rwork(lewt), - 1 rwork(lacor), ia, ja, rwork(lwm), rwork(lwm), ipflag, f, jac) - lenwk = max0(lreq,lwmin) - if (ipflag .lt. 0) return -c if prep was successful, move yh to end of required space for wm. ----- - lyhn = lwm + lenwk - if (lyhn .gt. lyh) return - lyhd = lyh - lyhn - if (lyhd .eq. 0) go to 20 - imax = lyhn - 1 + lenyhm - do 10 i = lyhn,imax - 10 rwork(i) = rwork(i+lyhd) - lyh = lyhn -c reset pointers for savf, ewt, and acor. ------------------------------ - 20 lsavf = lyh + lenyh - lewtn = lsavf + n - lacor = lewtn + n - if (istatc .eq. 3) go to 40 -c if istate = 1, move ewt (left) to its new position. ------------------ - if (lewtn .gt. lewt) return - do 30 i = 1,n - 30 rwork(i+lewtn-1) = rwork(i+lewt-1) - 40 lewt = lewtn - return -c----------------------- end of subroutine iprep ----------------------- - end - subroutine slss (wk, iwk, x, tem) -clll. optimize - integer iwk - integer iownd, iowns, - 1 icf, ierpj, iersl, jcur, jstart, kflag, l, meth, miter, - 2 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu - integer iplost, iesp, istatc, iys, iba, ibian, ibjan, ibjgp, - 1 ipian, ipjan, ipjgp, ipigp, ipr, ipc, ipic, ipisp, iprsp, ipa, - 2 lenyh, lenyhm, lenwk, lreq, lrat, lrest, lwmin, moss, msbj, - 3 nslj, ngp, nlu, nnz, nsp, nzl, nzu - integer i - KPP_REAL wk, x, tem - KPP_REAL rowns, - 1 ccmax, el0, h, hmin, hmxi, hu, rc, tn, uround - KPP_REAL rlss - KPP_REAL di, hl0, phl0, r - dimension wk(*), iwk(*), x(*), tem(*) - common /ls0001/ rowns(209), - 2 ccmax, el0, h, hmin, hmxi, hu, rc, tn, uround, - 3 iownd(14), iowns(6), - 4 icf, ierpj, iersl, jcur, jstart, kflag, l, meth, miter, - 5 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu - common /lss001/ rlss(6), - 1 iplost, iesp, istatc, iys, iba, ibian, ibjan, ibjgp, - 2 ipian, ipjan, ipjgp, ipigp, ipr, ipc, ipic, ipisp, iprsp, ipa, - 3 lenyh, lenyhm, lenwk, lreq, lrat, lrest, lwmin, moss, msbj, - 4 nslj, ngp, nlu, nnz, nsp, nzl, nzu -c----------------------------------------------------------------------- -c this routine manages the solution of the linear system arising from -c a chord iteration. it is called if miter .ne. 0. -c if miter is 1 or 2, it calls cdrv to accomplish this. -c if miter = 3 it updates the coefficient h*el0 in the diagonal -c matrix, and then computes the solution. -c communication with slss uses the following variables.. -c wk = real work space containing the inverse diagonal matrix if -c miter = 3 and the lu decomposition of the matrix otherwise. -c storage of matrix elements starts at wk(3). -c wk also contains the following matrix-related data.. -c wk(1) = sqrt(uround) (not used here), -c wk(2) = hl0, the previous value of h*el0, used if miter = 3. -c iwk = integer work space for matrix-related data, assumed to -c be equivalenced to wk. in addition, wk(iprsp) and iwk(ipisp) -c are assumed to have identical locations. -c x = the right-hand side vector on input, and the solution vector -c on output, of length n. -c tem = vector of work space of length n, not used in this version. -c iersl = output flag (in common). -c iersl = 0 if no trouble occurred. -c iersl = -1 if cdrv returned an error flag (miter = 1 or 2). -c this should never occur and is considered fatal. -c iersl = 1 if a singular matrix arose with miter = 3. -c this routine also uses other variables in common. -c----------------------------------------------------------------------- - iersl = 0 - go to (100, 100, 300), miter - 100 CALL cdrv (n,iwk(ipr),iwk(ipc),iwk(ipic),iwk(ipian),iwk(ipjan), - 1 wk(ipa),x,x,nsp,iwk(ipisp),wk(iprsp),iesp,4,iersl) - if (iersl .ne. 0) iersl = -1 - return -c - 300 phl0 = wk(2) - hl0 = h*el0 - wk(2) = hl0 - if (hl0 .eq. phl0) go to 330 - r = hl0/phl0 - do 320 i = 1,n - di = 1.0d0 - r*(1.0d0 - 1.0d0/wk(i+2)) - if (dabs(di) .eq. 0.0d0) go to 390 - 320 wk(i+2) = 1.0d0/di - 330 do 340 i = 1,n - 340 x(i) = wk(i+2)*x(i) - return - 390 iersl = 1 - return -c -c----------------------- end of subroutine slss ------------------------ - end - subroutine intdy (t, k, yh, nyh, dky, iflag) -clll. optimize - integer k, nyh, iflag - integer iownd, iowns, - 1 icf, ierpj, iersl, jcur, jstart, kflag, l, meth, miter, - 2 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu - integer i, ic, j, jb, jb2, jj, jj1, jp1 - KPP_REAL t, yh, dky - KPP_REAL rowns, - 1 ccmax, el0, h, hmin, hmxi, hu, rc, tn, uround - KPP_REAL c, r, s, tp - dimension yh(nyh,1), dky(1) - common /ls0001/ rowns(209), - 2 ccmax, el0, h, hmin, hmxi, hu, rc, tn, uround, - 3 iownd(14), iowns(6), - 4 icf, ierpj, iersl, jcur, jstart, kflag, l, meth, miter, - 5 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu -c----------------------------------------------------------------------- -c intdy computes interpolated values of the k-th derivative of the -c dependent variable vector y, and stores it in dky. this routine -c is called within the package with k = 0 and t = tout, but may -c also be called by the user for any k up to the current order. -c (see detailed instructions in the usage documentation.) -c----------------------------------------------------------------------- -c the computed values in dky are gotten by interpolation using the -c nordsieck history array yh. this array corresponds uniquely to a -c vector-valued polynomial of degree nqcur or less, and dky is set -c to the k-th derivative of this polynomial at t. -c the formula for dky is.. -c q -c dky(i) = sum c(j,k) * (t - tn)**(j-k) * h**(-j) * yh(i,j+1) -c j=k -c where c(j,k) = j*(j-1)*...*(j-k+1), q = nqcur, tn = tcur, h = hcur. -c the quantities nq = nqcur, l = nq+1, n = neq, tn, and h are -c communicated by common. the above sum is done in reverse order. -c iflag is returned negative if either k or t is out of bounds. -c----------------------------------------------------------------------- - iflag = 0 - if (k .lt. 0 .or. k .gt. nq) go to 80 - tp = tn - hu - 100.0d0*uround*(tn + hu) - if ((t-tp)*(t-tn) .gt. 0.0d0) go to 90 -c - s = (t - tn)/h - ic = 1 - if (k .eq. 0) go to 15 - jj1 = l - k - do 10 jj = jj1,nq - 10 ic = ic*jj - 15 c = dfloat(ic) - do 20 i = 1,n - 20 dky(i) = c*yh(i,l) - if (k .eq. nq) go to 55 - jb2 = nq - k - do 50 jb = 1,jb2 - j = nq - jb - jp1 = j + 1 - ic = 1 - if (k .eq. 0) go to 35 - jj1 = jp1 - k - do 30 jj = jj1,j - 30 ic = ic*jj - 35 c = dfloat(ic) - do 40 i = 1,n - 40 dky(i) = c*yh(i,jp1) + s*dky(i) - 50 continue - if (k .eq. 0) return - 55 r = h**(-k) - do 60 i = 1,n - 60 dky(i) = r*dky(i) - return -c - 80 CALL xerrwv(30hintdy-- k (=i1) illegal , - 1 30, 51, 0, 1, k, 0, 0, 0.0d0, 0.0d0) - iflag = -1 - return - 90 CALL xerrwv(30hintdy-- t (=r1) illegal , - 1 30, 52, 0, 0, 0, 0, 1, t, 0.0d0) - CALL xerrwv( - 1 60h t not in interval tcur - hu (= r1) to tcur (=r2) , - 1 60, 52, 0, 0, 0, 0, 2, tp, tn) - iflag = -2 - return -c----------------------- end of subroutine intdy ----------------------- - end - subroutine prjs (neq,y,yh,nyh,ewt,ftem,savf,wk,iwk,f,jac) -clll. optimize - external f,jac - integer neq, nyh, iwk - integer iownd, iowns, - 1 icf, ierpj, iersl, jcur, jstart, kflag, l, meth, miter, - 2 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu - integer iplost, iesp, istatc, iys, iba, ibian, ibjan, ibjgp, - 1 ipian, ipjan, ipjgp, ipigp, ipr, ipc, ipic, ipisp, iprsp, ipa, - 2 lenyh, lenyhm, lenwk, lreq, lrat, lrest, lwmin, moss, msbj, - 3 nslj, ngp, nlu, nnz, nsp, nzl, nzu - integer i, imul, j, jj, jok, jmax, jmin, k, kmax, kmin, ng - KPP_REAL JJJ(n,n) - KPP_REAL rowns, - 1 ccmax, el0, h, hmin, hmxi, hu, rc, tn, uround - KPP_REAL con0, conmin, ccmxj, psmall, rbig, seth - KPP_REAL con, di, fac, hl0, pij, r, r0, rcon, rcont, - 1 srur, vnorm - dimension neq(*), iwk(*) - KPP_REAL y(*), yh(nyh,*), ewt(*), ftem(*), savf(*), wk(*) - common /ls0001/ rowns(209), - 2 ccmax, el0, h, hmin, hmxi, hu, rc, tn, uround, - 3 iownd(14), iowns(6), - 4 icf, ierpj, iersl, jcur, jstart, kflag, l, meth, miter, - 5 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu - common /lss001/ con0, conmin, ccmxj, psmall, rbig, seth, - 1 iplost, iesp, istatc, iys, iba, ibian, ibjan, ibjgp, - 2 ipian, ipjan, ipjgp, ipigp, ipr, ipc, ipic, ipisp, iprsp, ipa, - 3 lenyh, lenyhm, lenwk, lreq, lrat, lrest, lwmin, moss, msbj, - 4 nslj, ngp, nlu, nnz, nsp, nzl, nzu -c----------------------------------------------------------------------- -c prjs is called to compute and process the matrix -c p = i - h*el(1)*j , where j is an approximation to the jacobian. -c j is computed by columns, either by the user-supplied routine jac -c if miter = 1, or by finite differencing if miter = 2. -c if miter = 3, a diagonal approximation to j is used. -c if miter = 1 or 2, and if the existing value of the jacobian -c (as contained in p) is considered acceptable, then a new value of -c p is reconstructed from the old value. in any case, when miter -c is 1 or 2, the p matrix is subjected to lu decomposition in cdrv. -c p and its lu decomposition are stored (separately) in wk. -c -c in addition to variables described previously, communication -c with prjs uses the following.. -c y = array containing predicted values on entry. -c ftem = work array of length n (acor in stode). -c savf = array containing f evaluated at predicted y. -c wk = real work space for matrices. on output it contains the -c inverse diagonal matrix if miter = 3, and p and its sparse -c lu decomposition if miter is 1 or 2. -c storage of matrix elements starts at wk(3). -c wk also contains the following matrix-related data.. -c wk(1) = sqrt(uround), used in numerical jacobian increments. -c wk(2) = h*el0, saved for later use if miter = 3. -c iwk = integer work space for matrix-related data, assumed to -c be equivalenced to wk. in addition, wk(iprsp) and iwk(ipisp) -c are assumed to have identical locations. -c el0 = el(1) (input). -c ierpj = output error flag (in common). -c = 0 if no error. -c = 1 if zero pivot found in cdrv. -c = 2 if a singular matrix arose with miter = 3. -c = -1 if insufficient storage for cdrv (should not occur here). -c = -2 if other error found in cdrv (should not occur here). -c jcur = output flag = 1 to indicate that the jacobian matrix -c (or approximation) is now current. -c this routine also uses other variables in common. -c----------------------------------------------------------------------- - hl0 = h*el0 - con = -hl0 - if (miter .eq. 3) go to 300 -c see whether j should be reevaluated (jok = 0) or not (jok = 1). ------ - jok = 1 - if (nst .eq. 0 .or. nst .ge. nslj+msbj) jok = 0 - if (icf .eq. 1 .and. dabs(rc - 1.0d0) .lt. ccmxj) jok = 0 - if (icf .eq. 2) jok = 0 - if (jok .eq. 1) go to 250 -c -c miter = 1 or 2, and the jacobian is to be reevaluated. --------------- - 20 jcur = 1 - nje = nje + 1 - nslj = nst - iplost = 0 - conmin = dabs(con) - go to (100, 200), miter -c -c if miter = 1, call jac_chem, multiply by scalar, and add identity. -------- - 100 continue - kmin = iwk(ipian) - call jac_chem (neq, tn, y, JJJ, j, iwk(ipian), iwk(ipjan)) - do 130 j = 1, n - kmax = iwk(ipian+j) - 1 - do 110 i = 1,n - 110 ftem(i) = 0.0d0 -C call jac_chem (neq, tn, y, ftem, j, iwk(ipian), iwk(ipjan)) - do k=1,n - ftem(k) = JJJ(k,j) - end do - do 120 k = kmin, kmax - i = iwk(ibjan+k) - wk(iba+k) = ftem(i)*con - if (i .eq. j) wk(iba+k) = wk(iba+k) + 1.0d0 - 120 continue - kmin = kmax + 1 - 130 continue - go to 290 -c -c if miter = 2, make ngp calls to f to approximate j and p. ------------ - 200 continue - fac = vnorm(n, savf, ewt) - r0 = 1000.0d0 * dabs(h) * uround * dfloat(n) * fac - if (r0 .eq. 0.0d0) r0 = 1.0d0 - srur = wk(1) - jmin = iwk(ipigp) - do 240 ng = 1,ngp - jmax = iwk(ipigp+ng) - 1 - do 210 j = jmin,jmax - jj = iwk(ibjgp+j) - r = DMAX1(srur*dabs(y(jj)),r0/ewt(jj)) - 210 y(jj) = y(jj) + r - CALL f (neq, tn, y, ftem) - do 230 j = jmin,jmax - jj = iwk(ibjgp+j) - y(jj) = yh(jj,1) - r = DMAX1(srur*dabs(y(jj)),r0/ewt(jj)) - fac = -hl0/r - kmin =iwk(ibian+jj) - kmax =iwk(ibian+jj+1) - 1 - do 220 k = kmin,kmax - i = iwk(ibjan+k) - wk(iba+k) = (ftem(i) - savf(i))*fac - if (i .eq. jj) wk(iba+k) = wk(iba+k) + 1.0d0 - 220 continue - 230 continue - jmin = jmax + 1 - 240 continue - nfe = nfe + ngp - go to 290 -c -c if jok = 1, reconstruct new p from old p. ---------------------------- - 250 jcur = 0 - rcon = con/con0 - rcont = dabs(con)/conmin - if (rcont .gt. rbig .and. iplost .eq. 1) go to 20 - kmin = iwk(ipian) - do 275 j = 1,n - kmax = iwk(ipian+j) - 1 - do 270 k = kmin,kmax - i = iwk(ibjan+k) - pij = wk(iba+k) - if (i .ne. j) go to 260 - pij = pij - 1.0d0 - if (dabs(pij) .ge. psmall) go to 260 - iplost = 1 - conmin = dmin1(dabs(con0),conmin) - 260 pij = pij*rcon - if (i .eq. j) pij = pij + 1.0d0 - wk(iba+k) = pij - 270 continue - kmin = kmax + 1 - 275 continue -c -c do numerical factorization of p matrix. ------------------------------ - 290 nlu = nlu + 1 - con0 = con - ierpj = 0 - do 295 i = 1,n - 295 ftem(i) = 0.0d0 - CALL cdrv (n,iwk(ipr),iwk(ipc),iwk(ipic),iwk(ipian),iwk(ipjan), - 1 wk(ipa),ftem,ftem,nsp,iwk(ipisp),wk(iprsp),iesp,2,iys) - if (iys .eq. 0) return - imul = (iys - 1)/n - ierpj = -2 - if (imul .eq. 8) ierpj = 1 - if (imul .eq. 10) ierpj = -1 - return -c -c if miter = 3, construct a diagonal approximation to j and p. --------- - 300 continue - jcur = 1 - nje = nje + 1 - wk(2) = hl0 - ierpj = 0 - r = el0*0.1d0 - do 310 i = 1,n - 310 y(i) = y(i) + r*(h*savf(i) - yh(i,2)) - CALL f (neq, tn, y, wk(3)) - nfe = nfe + 1 - do 320 i = 1,n - r0 = h*savf(i) - yh(i,2) - di = 0.1d0*r0 - h*(wk(i+2) - savf(i)) - wk(i+2) = 1.0d0 - if (dabs(r0) .lt. uround/ewt(i)) go to 320 - if (dabs(di) .eq. 0.0d0) go to 330 - wk(i+2) = 0.1d0*r0/di - 320 continue - return - 330 ierpj = 2 - return -c----------------------- end of subroutine prjs ------------------------ - end - subroutine stode (neq, y, yh, nyh, yh1, ewt, savf, acor, - 1 wm, iwm, f, jac, pjac, slvs) -clll. optimize - external f, jac, pjac, slvs - integer neq, nyh, iwm - integer iownd, ialth, ipup, lmax, meo, nqnyh, nslp, - 1 icf, ierpj, iersl, jcur, jstart, kflag, l, meth, miter, - 2 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu - integer i, i1, iredo, iret, j, jb, m, ncf, newq - KPP_REAL y, yh, yh1, ewt, savf, acor, wm - KPP_REAL conit, crate, el, elco, hold, rmax, tesco, - 2 ccmax, el0, h, hmin, hmxi, hu, rc, tn, uround - KPP_REAL dcon, ddn, del, delp, dsm, dup, exdn, exsm, exup, - 1 r, rh, rhdn, rhsm, rhup, told, vnorm - dimension neq(*), y(*), yh(nyh,*), yh1(*), ewt(*), savf(*), - 1 acor(*), wm(*), iwm(*) - common /ls0001/ conit, crate, el(13), elco(13,12), - 1 hold, rmax, tesco(3,12), - 2 ccmax, el0, h, hmin, hmxi, hu, rc, tn, uround, iownd(14), - 3 ialth, ipup, lmax, meo, nqnyh, nslp, - 4 icf, ierpj, iersl, jcur, jstart, kflag, l, meth, miter, - 5 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu -c----------------------------------------------------------------------- -c stode performs one step of the integration of an initial value -c problem for a system of ordinary differential equations. -c note.. stode is independent of the value of the iteration method -c indicator miter, when this is .ne. 0, and hence is independent -c of the type of chord method used, or the jacobian structure. -c communication with stode is done with the following variables.. -c -c neq = integer array containing problem size in neq(1), and -c passed as the neq argument in all calls to f and jac. -c y = an array of length .ge. n used as the y argument in -c all calls to f and jac. -c yh = an nyh by lmax array containing the dependent variables -c and their approximate scaled derivatives, where -c lmax = maxord + 1. yh(i,j+1) contains the approximate -c j-th derivative of y(i), scaled by h**j/factorial(j) -c (j = 0,1,...,nq). on entry for the first step, the first -c two columns of yh must be set from the initial values. -c nyh = a constant integer .ge. n, the first dimension of yh. -c yh1 = a one-dimensional array occupying the same space as yh. -c ewt = an array of length n containing multiplicative weights -c for local error measurements. local errors in y(i) are -c compared to 1.0/ewt(i) in various error tests. -c savf = an array of working storage, of length n. -c also used for input of yh(*,maxord+2) when jstart = -1 -c and maxord .lt. the current order nq. -c acor = a work array of length n, used for the accumulated -c corrections. on a successful return, acor(i) contains -c the estimated one-step local error in y(i). -c wm,iwm = real and integer work arrays associated with matrix -c operations in chord iteration (miter .ne. 0). -c pjac = name of routine to evaluate and preprocess jacobian matrix -c and p = i - h*el0*jac, if a chord method is being used. -c slvs = name of routine to solve linear system in chord iteration. -c ccmax = maximum relative change in h*el0 before pjac is called. -c h = the step size to be attempted on the next step. -c h is altered by the error control algorithm during the -c problem. h can be either positive or negative, but its -c sign must remain constant throughout the problem. -c hmin = the minimum absolute value of the step size h to be used. -c hmxi = inverse of the maximum absolute value of h to be used. -c hmxi = 0.0 is allowed and corresponds to an infinite hmax. -c hmin and hmxi may be changed at any time, but will not -c take effect until the next change of h is considered. -c tn = the independent variable. tn is updated on each step taken. -c jstart = an integer used for input only, with the following -c values and meanings.. -c 0 perform the first step. -c .gt.0 take a new step continuing from the last. -c -1 take the next step with a new value of h, maxord, -c n, meth, miter, and/or matrix parameters. -c -2 take the next step with a new value of h, -c but with other inputs unchanged. -c on return, jstart is set to 1 to facilitate continuation. -c kflag = a completion code with the following meanings.. -c 0 the step was succesful. -c -1 the requested error could not be achieved. -c -2 corrector convergence could not be achieved. -c -3 fatal error in pjac or slvs. -c a return with kflag = -1 or -2 means either -c abs(h) = hmin or 10 consecutive failures occurred. -c on a return with kflag negative, the values of tn and -c the yh array are as of the beginning of the last -c step, and h is the last step size attempted. -c maxord = the maximum order of integration method to be allowed. -c maxcor = the maximum number of corrector iterations allowed. -c msbp = maximum number of steps between pjac calls (miter .gt. 0). -c mxncf = maximum number of convergence failures allowed. -c meth/miter = the method flags. see description in driver. -c n = the number of first-order differential equations. -c----------------------------------------------------------------------- - kflag = 0 - told = tn - ncf = 0 - ierpj = 0 - iersl = 0 - jcur = 0 - icf = 0 - delp = 0.0d0 - if (jstart .gt. 0) go to 200 - if (jstart .eq. -1) go to 100 - if (jstart .eq. -2) go to 160 -c----------------------------------------------------------------------- -c on the first call, the order is set to 1, and other variables are -c initialized. rmax is the maximum ratio by which h can be increased -c in a single step. it is initially 1.e4 to compensate for the small -c initial h, but then is normally equal to 10. if a failure -c occurs (in corrector convergence or error test), rmax is set at 2 -c for the next increase. -c----------------------------------------------------------------------- - lmax = maxord + 1 - nq = 1 - l = 2 - ialth = 2 - rmax = 10000.0d0 - rc = 0.0d0 - el0 = 1.0d0 - crate = 0.7d0 - hold = h - meo = meth - nslp = 0 - ipup = miter - iret = 3 - go to 140 -c----------------------------------------------------------------------- -c the following block handles preliminaries needed when jstart = -1. -c ipup is set to miter to force a matrix update. -c if an order increase is about to be considered (ialth = 1), -c ialth is reset to 2 to postpone consideration one more step. -c if the caller has changed meth, cfode is called to reset -c the coefficients of the method. -c if the caller has changed maxord to a value less than the current -c order nq, nq is reduced to maxord, and a new h chosen accordingly. -c if h is to be changed, yh must be rescaled. -c if h or meth is being changed, ialth is reset to l = nq + 1 -c to prevent further changes in h for that many steps. -c----------------------------------------------------------------------- - 100 ipup = miter - lmax = maxord + 1 - if (ialth .eq. 1) ialth = 2 - if (meth .eq. meo) go to 110 - CALL cfode (meth, elco, tesco) - meo = meth - if (nq .gt. maxord) go to 120 - ialth = l - iret = 1 - go to 150 - 110 if (nq .le. maxord) go to 160 - 120 nq = maxord - l = lmax - do 125 i = 1,l - 125 el(i) = elco(i,nq) - nqnyh = nq*nyh - rc = rc*el(1)/el0 - el0 = el(1) - conit = 0.5d0/dfloat(nq+2) - ddn = vnorm (n, savf, ewt)/tesco(1,l) - exdn = 1.0d0/dfloat(l) - rhdn = 1.0d0/(1.3d0*ddn**exdn + 0.0000013d0) - rh = dmin1(rhdn,1.0d0) - iredo = 3 - if (h .eq. hold) go to 170 - rh = dmin1(rh,dabs(h/hold)) - h = hold - go to 175 -c----------------------------------------------------------------------- -c cfode is called to get all the integration coefficients for the -c current meth. then the el vector and related constants are reset -c whenever the order nq is changed, or at the start of the problem. -c----------------------------------------------------------------------- - 140 CALL cfode (meth, elco, tesco) - 150 do 155 i = 1,l - 155 el(i) = elco(i,nq) - nqnyh = nq*nyh - rc = rc*el(1)/el0 - el0 = el(1) - conit = 0.5d0/dfloat(nq+2) - go to (160, 170, 200), iret -c----------------------------------------------------------------------- -c if h is being changed, the h ratio rh is checked against -c rmax, hmin, and hmxi, and the yh array rescaled. ialth is set to -c l = nq + 1 to prevent a change of h for that many steps, unless -c forced by a convergence or error test failure. -c----------------------------------------------------------------------- - 160 if (h .eq. hold) go to 200 - rh = h/hold - h = hold - iredo = 3 - go to 175 - 170 rh = DMAX1(rh,hmin/dabs(h)) - 175 rh = dmin1(rh,rmax) - rh = rh/DMAX1(1.0d0,dabs(h)*hmxi*rh) - r = 1.0d0 - do 180 j = 2,l - r = r*rh - do 180 i = 1,n - 180 yh(i,j) = yh(i,j)*r - h = h*rh - rc = rc*rh - ialth = l - if (iredo .eq. 0) go to 690 -c----------------------------------------------------------------------- -c this section computes the predicted values by effectively -c multiplying the yh array by the pascal triangle matrix. -c rc is the ratio of new to old values of the coefficient h*el(1). -c when rc differs from 1 by more than ccmax, ipup is set to miter -c to force pjac to be called, if a jacobian is involved. -c in any case, pjac is called at least every msbp steps. -c----------------------------------------------------------------------- - 200 if (dabs(rc-1.0d0) .gt. ccmax) ipup = miter - if (nst .ge. nslp+msbp) ipup = miter - tn = tn + h - i1 = nqnyh + 1 - do 215 jb = 1,nq - i1 = i1 - nyh -cdir$ ivdep - do 210 i = i1,nqnyh - 210 yh1(i) = yh1(i) + yh1(i+nyh) - 215 continue -c----------------------------------------------------------------------- -c up to maxcor corrector iterations are taken. a convergence test is -c made on the r.m.s. norm of each correction, weighted by the error -c weight vector ewt. the sum of the corrections is accumulated in the -c vector acor(i). the yh array is not altered in the corrector loop. -c----------------------------------------------------------------------- - 220 m = 0 - do 230 i = 1,n - 230 y(i) = yh(i,1) - CALL f (neq, tn, y, savf) - nfe = nfe + 1 - if (ipup .le. 0) go to 250 -c----------------------------------------------------------------------- -c if indicated, the matrix p = i - h*el(1)*j is reevaluated and -c preprocessed before starting the corrector iteration. ipup is set -c to 0 as an indicator that this has been done. -c----------------------------------------------------------------------- - CALL pjac (neq, y, yh, nyh, ewt, acor, savf, wm, iwm, f, jac) - ipup = 0 - rc = 1.0d0 - nslp = nst - crate = 0.7d0 - if (ierpj .ne. 0) go to 430 - 250 do 260 i = 1,n - 260 acor(i) = 0.0d0 - 270 if (miter .ne. 0) go to 350 -c----------------------------------------------------------------------- -c in the case of functional iteration, update y directly from -c the result of the last function evaluation. -c----------------------------------------------------------------------- - do 290 i = 1,n - savf(i) = h*savf(i) - yh(i,2) - 290 y(i) = savf(i) - acor(i) - del = vnorm (n, y, ewt) - do 300 i = 1,n - y(i) = yh(i,1) + el(1)*savf(i) - 300 acor(i) = savf(i) - go to 400 -c----------------------------------------------------------------------- -c in the case of the chord method, compute the corrector error, -c and solve the linear system with that as right-hand side and -c p as coefficient matrix. -c----------------------------------------------------------------------- - 350 do 360 i = 1,n - 360 y(i) = h*savf(i) - (yh(i,2) + acor(i)) - CALL slvs (wm, iwm, y, savf) - if (iersl .lt. 0) go to 430 - if (iersl .gt. 0) go to 410 - del = vnorm (n, y, ewt) - do 380 i = 1,n - acor(i) = acor(i) + y(i) - 380 y(i) = yh(i,1) + el(1)*acor(i) -c----------------------------------------------------------------------- -c test for convergence. if m.gt.0, an estimate of the convergence -c rate constant is stored in crate, and this is used in the test. -c----------------------------------------------------------------------- - 400 if (m .ne. 0) crate = DMAX1(0.2d0*crate,del/delp) - dcon = del*dmin1(1.0d0,1.5d0*crate)/(tesco(2,nq)*conit) - if (dcon .le. 1.0d0) go to 450 - m = m + 1 - if (m .eq. maxcor) go to 410 - if (m .ge. 2 .and. del .gt. 2.0d0*delp) go to 410 - delp = del - CALL f (neq, tn, y, savf) - nfe = nfe + 1 - go to 270 -c----------------------------------------------------------------------- -c the corrector iteration failed to converge. -c if miter .ne. 0 and the jacobian is out of date, pjac is called for -c the next try. otherwise the yh array is retracted to its values -c before prediction, and h is reduced, if possible. if h cannot be -c reduced or mxncf failures have occurred, exit with kflag = -2. -c----------------------------------------------------------------------- - 410 if (miter .eq. 0 .or. jcur .eq. 1) go to 430 - icf = 1 - ipup = miter - go to 220 - 430 icf = 2 - ncf = ncf + 1 - rmax = 2.0d0 - tn = told - i1 = nqnyh + 1 - do 445 jb = 1,nq - i1 = i1 - nyh -cdir$ ivdep - do 440 i = i1,nqnyh - 440 yh1(i) = yh1(i) - yh1(i+nyh) - 445 continue - if (ierpj .lt. 0 .or. iersl .lt. 0) go to 680 - if (dabs(h) .le. hmin*1.00001d0) go to 670 - if (ncf .eq. mxncf) go to 670 - rh = 0.25d0 - ipup = miter - iredo = 1 - go to 170 -c----------------------------------------------------------------------- -c the corrector has converged. jcur is set to 0 -c to signal that the jacobian involved may need updating later. -c the local error test is made and control passes to statement 500 -c if it fails. -c----------------------------------------------------------------------- - 450 jcur = 0 - if (m .eq. 0) dsm = del/tesco(2,nq) - if (m .gt. 0) dsm = vnorm (n, acor, ewt)/tesco(2,nq) - if (dsm .gt. 1.0d0) go to 500 -c----------------------------------------------------------------------- -c after a successful step, update the yh array. -c consider changing h if ialth = 1. otherwise decrease ialth by 1. -c if ialth is then 1 and nq .lt. maxord, then acor is saved for -c use in a possible order increase on the next step. -c if a change in h is considered, an increase or decrease in order -c by one is considered also. a change in h is made only if it is by a -c factor of at least 1.1. if not, ialth is set to 3 to prevent -c testing for that many steps. -c----------------------------------------------------------------------- - kflag = 0 - iredo = 0 - nst = nst + 1 - hu = h - nqu = nq - do 470 j = 1,l - do 470 i = 1,n - 470 yh(i,j) = yh(i,j) + el(j)*acor(i) - ialth = ialth - 1 - if (ialth .eq. 0) go to 520 - if (ialth .gt. 1) go to 700 - if (l .eq. lmax) go to 700 - do 490 i = 1,n - 490 yh(i,lmax) = acor(i) - go to 700 -c----------------------------------------------------------------------- -c the error test failed. kflag keeps track of multiple failures. -c restore tn and the yh array to their previous values, and prepare -c to try the step again. compute the optimum step size for this or -c one lower order. after 2 or more failures, h is forced to decrease -c by a factor of 0.2 or less. -c----------------------------------------------------------------------- - 500 kflag = kflag - 1 - tn = told - i1 = nqnyh + 1 - do 515 jb = 1,nq - i1 = i1 - nyh -cdir$ ivdep - do 510 i = i1,nqnyh - 510 yh1(i) = yh1(i) - yh1(i+nyh) - 515 continue - rmax = 2.0d0 - if (dabs(h) .le. hmin*1.00001d0) go to 660 - if (kflag .le. -3) go to 640 - iredo = 2 - rhup = 0.0d0 - go to 540 -c----------------------------------------------------------------------- -c regardless of the success or failure of the step, factors -c rhdn, rhsm, and rhup are computed, by which h could be multiplied -c at order nq - 1, order nq, or order nq + 1, respectively. -c in the case of failure, rhup = 0.0 to avoid an order increase. -c the largest of these is determined and the new order chosen -c accordingly. if the order is to be increased, we compute one -c additional scaled derivative. -c----------------------------------------------------------------------- - 520 rhup = 0.0d0 - if (l .eq. lmax) go to 540 - do 530 i = 1,n - 530 savf(i) = acor(i) - yh(i,lmax) - dup = vnorm (n, savf, ewt)/tesco(3,nq) - exup = 1.0d0/dfloat(l+1) - rhup = 1.0d0/(1.4d0*dup**exup + 0.0000014d0) - 540 exsm = 1.0d0/dfloat(l) - rhsm = 1.0d0/(1.2d0*dsm**exsm + 0.0000012d0) - rhdn = 0.0d0 - if (nq .eq. 1) go to 560 - ddn = vnorm (n, yh(1,l), ewt)/tesco(1,nq) - exdn = 1.0d0/dfloat(nq) - rhdn = 1.0d0/(1.3d0*ddn**exdn + 0.0000013d0) - 560 if (rhsm .ge. rhup) go to 570 - if (rhup .gt. rhdn) go to 590 - go to 580 - 570 if (rhsm .lt. rhdn) go to 580 - newq = nq - rh = rhsm - go to 620 - 580 newq = nq - 1 - rh = rhdn - if (kflag .lt. 0 .and. rh .gt. 1.0d0) rh = 1.0d0 - go to 620 - 590 newq = l - rh = rhup - if (rh .lt. 1.1d0) go to 610 - r = el(l)/dfloat(l) - do 600 i = 1,n - 600 yh(i,newq+1) = acor(i)*r - go to 630 - 610 ialth = 3 - go to 700 - 620 if ((kflag .eq. 0) .and. (rh .lt. 1.1d0)) go to 610 - if (kflag .le. -2) rh = dmin1(rh,0.2d0) -c----------------------------------------------------------------------- -c if there is a change of order, reset nq, l, and the coefficients. -c in any case h is reset according to rh and the yh array is rescaled. -c then exit from 690 if the step was ok, or redo the step otherwise. -c----------------------------------------------------------------------- - if (newq .eq. nq) go to 170 - 630 nq = newq - l = nq + 1 - iret = 2 - go to 150 -c----------------------------------------------------------------------- -c control reaches this section if 3 or more failures have occured. -c if 10 failures have occurred, exit with kflag = -1. -c it is assumed that the derivatives that have accumulated in the -c yh array have errors of the wrong order. hence the first -c derivative is recomputed, and the order is set to 1. then -c h is reduced by a factor of 10, and the step is retried, -c until it succeeds or h reaches hmin. -c----------------------------------------------------------------------- - 640 if (kflag .eq. -10) go to 660 - rh = 0.1d0 - rh = DMAX1(hmin/dabs(h),rh) - h = h*rh - do 645 i = 1,n - 645 y(i) = yh(i,1) - CALL f (neq, tn, y, savf) - nfe = nfe + 1 - do 650 i = 1,n - 650 yh(i,2) = h*savf(i) - ipup = miter - ialth = 5 - if (nq .eq. 1) go to 200 - nq = 1 - l = 2 - iret = 3 - go to 150 -c----------------------------------------------------------------------- -c all returns are made through this section. h is saved in hold -c to allow the caller to change h on the next step. -c----------------------------------------------------------------------- - 660 kflag = -1 - go to 720 - 670 kflag = -2 - go to 720 - 680 kflag = -3 - go to 720 - 690 rmax = 10.0d0 - 700 r = 1.0d0/tesco(2,nqu) - do 710 i = 1,n - 710 acor(i) = acor(i)*r - 720 hold = h - jstart = 1 - return -c----------------------- end of subroutine stode ----------------------- - end - subroutine xerrwv (msg, nmes, nerr, level, ni, i1, i2, nr, r1, r2) - integer msg, nmes, nerr, level, ni, i1, i2, nr, - 1 i, lun, lunit, mesflg, ncpw, nch, nwds - KPP_REAL r1, r2 - dimension msg(nmes) -c----------------------------------------------------------------------- -c subroutines xerrwv, xsetf, and xsetun, as given here, constitute -c a simplified version of the slatec error handling package. -c written by a. c. hindmarsh at llnl. version of march 30, 1987. -c this version is in KPP_REAL. -c -c all arguments are input arguments. -c -c msg = the message (hollerith literal or integer array). -c nmes = the length of msg (number of characters). -c nerr = the error number (not used). -c level = the error level.. -c 0 or 1 means recoverable (control returns to caller). -c 2 means fatal (run is aborted--see note below). -c ni = number of integers (0, 1, or 2) to be printed with message. -c i1,i2 = integers to be printed, depending on ni. -c nr = number of reals (0, 1, or 2) to be printed with message. -c r1,r2 = reals to be printed, depending on nr. -c -c note.. this routine is machine-dependent and specialized for use -c in limited context, in the following ways.. -c 1. the number of hollerith characters stored per word, denoted -c by ncpw below, is a data-loaded constant. -c 2. the value of nmes is assumed to be at most 60. -c (multi-line messages are generated by repeated calls.) -c 3. if level = 2, control passes to the statement stop -c to abort the run. this statement may be machine-dependent. -c 4. r1 and r2 are assumed to be in KPP_REAL and are printed -c in d21.13 format. -c 5. the common block /eh0001/ below is data-loaded (a machine- -c dependent feature) with default values. -c this block is needed for proper retention of parameters used by -c this routine which the user can reset by calling xsetf or xsetun. -c the variables in this block are as follows.. -c mesflg = print control flag.. -c 1 means print all messages (the default). -c 0 means no printing. -c lunit = logical unit number for messages. -c the default is 6 (machine-dependent). -c----------------------------------------------------------------------- -c the following are instructions for installing this routine -c in different machine environments. -c -c to change the default output unit, change the data statement -c in the block data subprogram below. -c -c for a different number of characters per word, change the -c data statement setting ncpw below, and format 10. alternatives for -c various computers are shown in comment cards. -c -c for a different run-abort command, change the statement following -c statement 100 at the end. -c----------------------------------------------------------------------- - common /eh0001/ mesflg, lunit -c----------------------------------------------------------------------- -c the following data-loaded value of ncpw is valid for the cdc-6600 -c and cdc-7600 computers. -c data ncpw/10/ -c the following is valid for the cray-1 computer. -c data ncpw/8/ -c the following is valid for the burroughs 6700 and 7800 computers. -c data ncpw/6/ -c the following is valid for the pdp-10 computer. -c data ncpw/5/ -c the following is valid for the vax computer with 4 bytes per integer, -c and for the ibm-360, ibm-370, ibm-303x, and ibm-43xx computers. - data ncpw/4/ -c the following is valid for the pdp-11, or vax with 2-byte integers. -c data ncpw/2/ -c----------------------------------------------------------------------- - if (mesflg .eq. 0) go to 100 -c get logical unit number. --------------------------------------------- - lun = lunit -c get number of words in message. -------------------------------------- - nch = min0(nmes,60) - nwds = nch/ncpw - if (nch .ne. nwds*ncpw) nwds = nwds + 1 -c write the message. --------------------------------------------------- - write (lun, 10) (msg(i),i=1,nwds) -c----------------------------------------------------------------------- -c the following format statement is to have the form -c 10 format(1x,mmann) -c where nn = ncpw and mm is the smallest integer .ge. 60/ncpw. -c the following is valid for ncpw = 10. -c 10 format(1x,6a10) -c the following is valid for ncpw = 8. -c 10 format(1x,8a8) -c the following is valid for ncpw = 6. -c 10 format(1x,10a6) -c the following is valid for ncpw = 5. -c 10 format(1x,12a5) -c the following is valid for ncpw = 4. - 10 format(1x,15a4) -c the following is valid for ncpw = 2. -c 10 format(1x,30a2) -c----------------------------------------------------------------------- - if (ni .eq. 1) write (lun, 20) i1 - 20 format(6x,23hin above message, i1 =,i10) - if (ni .eq. 2) write (lun, 30) i1,i2 - 30 format(6x,23hin above message, i1 =,i10,3x,4hi2 =,i10) - if (nr .eq. 1) write (lun, 40) r1 - 40 format(6x,23hin above message, r1 =,d21.13) - if (nr .eq. 2) write (lun, 50) r1,r2 - 50 format(6x,15hin above, r1 =,d21.13,3x,4hr2 =,d21.13) -c abort the run if level = 2. ------------------------------------------ - 100 if (level .ne. 2) return - stop -c----------------------- end of subroutine xerrwv ---------------------- - end - KPP_REAL function vnorm (n, v, w) -clll. optimize -c----------------------------------------------------------------------- -c this function routine computes the weighted root-mean-square norm -c of the vector of length n contained in the array v, with weights -c contained in the array w of length n.. -c vnorm = sqrt( (1/n) * sum( v(i)*w(i) )**2 ) -c----------------------------------------------------------------------- - integer n, i - KPP_REAL v, w, sum - dimension v(n), w(n) - sum = 0.0d0 - do 10 i = 1,n - 10 sum = sum + (v(i)*w(i))**2 - vnorm = DSQRT(sum/dfloat(n)) - return -c----------------------- end of function vnorm ------------------------- - end - subroutine ewset (n, itol, RelTol, AbsTol, ycur, ewt) -clll. optimize -c----------------------------------------------------------------------- -c this subroutine sets the error weight vector ewt according to -c ewt(i) = RelTol(i)*abs(ycur(i)) + AbsTol(i), i = 1,...,n, -c with the subscript on RelTol and/or AbsTol possibly replaced by 1 above, -c depending on the value of itol. -c----------------------------------------------------------------------- - integer n, itol - integer i - KPP_REAL RelTol, AbsTol, ycur, ewt - dimension RelTol(1), AbsTol(1), ycur(n), ewt(n) -c - go to (10, 20, 30, 40), itol - 10 continue - do 15 i = 1,n - 15 ewt(i) = RelTol(1)*dabs(ycur(i)) + AbsTol(1) - return - 20 continue - do 25 i = 1,n - 25 ewt(i) = RelTol(1)*dabs(ycur(i)) + AbsTol(i) - return - 30 continue - do 35 i = 1,n - 35 ewt(i) = RelTol(i)*dabs(ycur(i)) + AbsTol(1) - return - 40 continue - do 45 i = 1,n - 45 ewt(i) = RelTol(i)*dabs(ycur(i)) + AbsTol(i) - return -c----------------------- end of subroutine ewset ----------------------- - end - subroutine cfode (meth, elco, tesco) -clll. optimize - integer meth - integer i, ib, nq, nqm1, nqp1 - KPP_REAL elco, tesco - KPP_REAL agamq, fnq, fnqm1, pc, pint, ragq, - 1 rqfac, rq1fac, tsign, xpin - dimension elco(13,12), tesco(3,12) -c----------------------------------------------------------------------- -c cfode is called by the integrator routine to set coefficients -c needed there. the coefficients for the current method, as -c given by the value of meth, are set for all orders and saved. -c the maximum order assumed here is 12 if meth = 1 and 5 if meth = 2. -c (a smaller value of the maximum order is also allowed.) -c cfode is called once at the beginning of the problem, -c and is not called again unless and until meth is changed. -c -c the elco array contains the basic method coefficients. -c the coefficients el(i), 1 .le. i .le. nq+1, for the method of -c order nq are stored in elco(i,nq). they are given by a genetrating -c polynomial, i.e., -c l(x) = el(1) + el(2)*x + ... + el(nq+1)*x**nq. -c for the implicit adams methods, l(x) is given by -c dl/dx = (x+1)*(x+2)*...*(x+nq-1)/factorial(nq-1), l(-1) = 0. -c for the bdf methods, l(x) is given by -c l(x) = (x+1)*(x+2)* ... *(x+nq)/k, -c where k = factorial(nq)*(1 + 1/2 + ... + 1/nq). -c -c the tesco array contains test constants used for the -c local error test and the selection of step size and/or order. -c at order nq, tesco(k,nq) is used for the selection of step -c size at order nq - 1 if k = 1, at order nq if k = 2, and at order -c nq + 1 if k = 3. -c----------------------------------------------------------------------- - dimension pc(12) -c - go to (100, 200), meth -c - 100 elco(1,1) = 1.0d0 - elco(2,1) = 1.0d0 - tesco(1,1) = 0.0d0 - tesco(2,1) = 2.0d0 - tesco(1,2) = 1.0d0 - tesco(3,12) = 0.0d0 - pc(1) = 1.0d0 - rqfac = 1.0d0 - do 140 nq = 2,12 -c----------------------------------------------------------------------- -c the pc array will contain the coefficients of the polynomial -c p(x) = (x+1)*(x+2)*...*(x+nq-1). -c initially, p(x) = 1. -c----------------------------------------------------------------------- - rq1fac = rqfac - rqfac = rqfac/dfloat(nq) - nqm1 = nq - 1 - fnqm1 = dfloat(nqm1) - nqp1 = nq + 1 -c form coefficients of p(x)*(x+nq-1). ---------------------------------- - pc(nq) = 0.0d0 - do 110 ib = 1,nqm1 - i = nqp1 - ib - 110 pc(i) = pc(i-1) + fnqm1*pc(i) - pc(1) = fnqm1*pc(1) -c compute integral, -1 to 0, of p(x) and x*p(x). ----------------------- - pint = pc(1) - xpin = pc(1)/2.0d0 - tsign = 1.0d0 - do 120 i = 2,nq - tsign = -tsign - pint = pint + tsign*pc(i)/dfloat(i) - 120 xpin = xpin + tsign*pc(i)/dfloat(i+1) -c store coefficients in elco and tesco. -------------------------------- - elco(1,nq) = pint*rq1fac - elco(2,nq) = 1.0d0 - do 130 i = 2,nq - 130 elco(i+1,nq) = rq1fac*pc(i)/dfloat(i) - agamq = rqfac*xpin - ragq = 1.0d0/agamq - tesco(2,nq) = ragq - if (nq .lt. 12) tesco(1,nqp1) = ragq*rqfac/dfloat(nqp1) - tesco(3,nqm1) = ragq - 140 continue - return -c - 200 pc(1) = 1.0d0 - rq1fac = 1.0d0 - do 230 nq = 1,5 -c----------------------------------------------------------------------- -c the pc array will contain the coefficients of the polynomial -c p(x) = (x+1)*(x+2)*...*(x+nq). -c initially, p(x) = 1. -c----------------------------------------------------------------------- - fnq = dfloat(nq) - nqp1 = nq + 1 -c form coefficients of p(x)*(x+nq). ------------------------------------ - pc(nqp1) = 0.0d0 - do 210 ib = 1,nq - i = nq + 2 - ib - 210 pc(i) = pc(i-1) + fnq*pc(i) - pc(1) = fnq*pc(1) -c store coefficients in elco and tesco. -------------------------------- - do 220 i = 1,nqp1 - 220 elco(i,nq) = pc(i)/pc(2) - elco(2,nq) = 1.0d0 - tesco(1,nq) = rq1fac - tesco(2,nq) = dfloat(nqp1)/elco(1,nq) - tesco(3,nq) = dfloat(nq+2)/elco(1,nq) - rq1fac = rq1fac/fnq - 230 continue - return -c----------------------- end of subroutine cfode ----------------------- - end - subroutine cdrv - * (n, r,c,ic, ia,ja,a, b, z, nsp,isp,rsp,esp, path, flag) -clll. optimize -c*** subroutine cdrv -c*** driver for subroutines for solving sparse nonsymmetric systems of -c linear equations (compressed pointer storage) -c -c -c parameters -c class abbreviations are-- -c n - integer variable -c f - real variable -c v - supplies a value to the driver -c r - returns a result from the driver -c i - used internally by the driver -c a - array -c -c class - parameter -c ------+---------- -c - -c the nonzero entries of the coefficient matrix m are stored -c row-by-row in the array a. to identify the individual nonzero -c entries in each row, we need to know in which column each entry -c lies. the column indices which correspond to the nonzero entries -c of m are stored in the array ja. i.e., if a(k) = m(i,j), then -c ja(k) = j. in addition, we need to know where each row starts and -c how long it is. the index positions in ja and a where the rows of -c m begin are stored in the array ia. i.e., if m(i,j) is the first -c nonzero entry (stored) in the i-th row and a(k) = m(i,j), then -c ia(i) = k. moreover, the index in ja and a of the first location -c following the last element in the last row is stored in ia(n+1). -c thus, the number of entries in the i-th row is given by -c ia(i+1) - ia(i), the nonzero entries of the i-th row are stored -c consecutively in -c a(ia(i)), a(ia(i)+1), ..., a(ia(i+1)-1), -c and the corresponding column indices are stored consecutively in -c ja(ia(i)), ja(ia(i)+1), ..., ja(ia(i+1)-1). -c for example, the 5 by 5 matrix -c ( 1. 0. 2. 0. 0.) -c ( 0. 3. 0. 0. 0.) -c m = ( 0. 4. 5. 6. 0.) -c ( 0. 0. 0. 7. 0.) -c ( 0. 0. 0. 8. 9.) -c would be stored as -c - 1 2 3 4 5 6 7 8 9 -c ---+-------------------------- -c ia - 1 3 4 7 8 10 -c ja - 1 3 2 2 3 4 4 4 5 -c a - 1. 2. 3. 4. 5. 6. 7. 8. 9. . -c -c nv - n - number of variables/equations. -c fva - a - nonzero entries of the coefficient matrix m, stored -c - by rows. -c - size = number of nonzero entries in m. -c nva - ia - pointers to delimit the rows in a. -c - size = n+1. -c nva - ja - column numbers corresponding to the elements of a. -c - size = size of a. -c fva - b - right-hand side b. b and z can the same array. -c - size = n. -c fra - z - solution x. b and z can be the same array. -c - size = n. -c -c the rows and columns of the original matrix m can be -c reordered (e.g., to reduce fillin or ensure numerical stability) -c before calling the driver. if no reordering is done, then set -c r(i) = c(i) = ic(i) = i for i=1,...,n. the solution z is returned -c in the original order. -c if the columns have been reordered (i.e., c(i).ne.i for some -c i), then the driver will CALL a subroutine (nroc) which rearranges -c each row of ja and a, leaving the rows in the original order, but -c placing the elements of each row in increasing order with respect -c to the new ordering. if path.ne.1, then nroc is assumed to have -c been called already. -c -c nva - r - ordering of the rows of m. -c - size = n. -c nva - c - ordering of the columns of m. -c - size = n. -c nva - ic - inverse of the ordering of the columns of m. i.e., -c - ic(c(i)) = i for i=1,...,n. -c - size = n. -c -c the solution of the system of linear equations is divided into -c three stages -- -c nsfc -- the matrix m is processed symbolically to determine where -c fillin will occur during the numeric factorization. -c nnfc -- the matrix m is factored numerically into the product ldu -c of a unit lower triangular matrix l, a diagonal matrix -c d, and a unit upper triangular matrix u, and the system -c mx = b is solved. -c nnsc -- the linear system mx = b is solved using the ldu -c or factorization from nnfc. -c nntc -- the transposed linear system mt x = b is solved using -c the ldu factorization from nnf. -c for several systems whose coefficient matrices have the same -c nonzero structure, nsfc need be done only once (for the first -c system). then nnfc is done once for each additional system. for -c several systems with the same coefficient matrix, nsfc and nnfc -c need be done only once (for the first system). then nnsc or nntc -c is done once for each additional right-hand side. -c -c nv - path - path specification. values and their meanings are -- -c - 1 perform nroc, nsfc, and nnfc. -c - 2 perform nnfc only (nsfc is assumed to have been -c - done in a manner compatible with the storage -c - allocation used in the driver). -c - 3 perform nnsc only (nsfc and nnfc are assumed to -c - have been done in a manner compatible with the -c - storage allocation used in the driver). -c - 4 perform nntc only (nsfc and nnfc are assumed to -c - have been done in a manner compatible with the -c - storage allocation used in the driver). -c - 5 perform nroc and nsfc. -c -c various errors are detected by the driver and the individual -c subroutines. -c -c nr - flag - error flag. values and their meanings are -- -c - 0 no errors detected -c - n+k null row in a -- row = k -c - 2n+k duplicate entry in a -- row = k -c - 3n+k insufficient storage in nsfc -- row = k -c - 4n+1 insufficient storage in nnfc -c - 5n+k null pivot -- row = k -c - 6n+k insufficient storage in nsfc -- row = k -c - 7n+1 insufficient storage in nnfc -c - 8n+k zero pivot -- row = k -c - 10n+1 insufficient storage in cdrv -c - 11n+1 illegal path specification -c -c working storage is needed for the factored form of the matrix -c m plus various temporary vectors. the arrays isp and rsp should be -c equivalenced. integer storage is allocated from the beginning of -c isp and real storage from the end of rsp. -c -c nv - nsp - declared dimension of rsp. nsp generally must -c - be larger than 8n+2 + 2k (where k = (number of -c - nonzero entries in m)). -c nvira - isp - integer working storage divided up into various arrays -c - needed by the subroutines. isp and rsp should be -c - equivalenced. -c - size = lratio*nsp. -c fvira - rsp - real working storage divided up into various arrays -c - needed by the subroutines. isp and rsp should be -c - equivalenced. -c - size = nsp. -c nr - esp - if sufficient storage was available to perform the -c - symbolic factorization (nsfc), then esp is set to -c - the amount of excess storage provided (negative if -c - insufficient storage was available to perform the -c - numeric factorization (nnfc)). -c -c -c conversion to KPP_REAL -c -c to convert these routines for KPP_REAL arrays.. -c (1) use the KPP_REAL declarations in place of the real -c declarations in each subprogram, as given in comment cards. -c (2) change the data-loaded value of the integer lratio -c in subroutine cdrv, as indicated below. -c (3) change e0 to d0 in the constants in statement number 10 -c in subroutine nnfc and the line following that. -c - integer r(1), c(1), ic(1), ia(1), ja(1), isp(1), esp, path, - * flag, d, u, q, row, tmp, ar, umax - KPP_REAL a(1), b(1), z(1), rsp(1) -c -c set lratio equal to the ratio between the length of floating point -c and integer array data. e. g., lratio = 1 for (real, integer), -c lratio = 2 for (KPP_REAL, integer) -c - data lratio/2/ -c - if (path.lt.1 .or. 5.lt.path) go to 111 -c******initialize and divide up temporary storage ******************* - il = 1 - ijl = il + (n+1) - iu = ijl + n - iju = iu + (n+1) - irl = iju + n - jrl = irl + n - jl = jrl + n -c -c ****** reorder a if necessary, CALL nsfc if flag is set *********** - if ((path-1) * (path-5) .ne. 0) go to 5 - max = (lratio*nsp + 1 - jl) - (n+1) - 5*n - jlmax = max/2 - q = jl + jlmax - ira = q + (n+1) - jra = ira + n - irac = jra + n - iru = irac + n - jru = iru + n - jutmp = jru + n - jumax = lratio*nsp + 1 - jutmp - esp = max/lratio - if (jlmax.le.0 .or. jumax.le.0) go to 110 -c - do 1 i=1,n - if (c(i).ne.i) go to 2 - 1 continue - go to 3 - 2 ar = nsp + 1 - n - CALL nroc - * (n, ic, ia,ja,a, isp(il), rsp(ar), isp(iu), flag) - if (flag.ne.0) go to 100 -c - 3 CALL nsfc - * (n, r, ic, ia,ja, - * jlmax, isp(il), isp(jl), isp(ijl), - * jumax, isp(iu), isp(jutmp), isp(iju), - * isp(q), isp(ira), isp(jra), isp(irac), - * isp(irl), isp(jrl), isp(iru), isp(jru), flag) - if(flag .ne. 0) go to 100 -c ****** move ju next to jl ***************************************** - jlmax = isp(ijl+n-1) - ju = jl + jlmax - jumax = isp(iju+n-1) - if (jumax.le.0) go to 5 - do 4 j=1,jumax - 4 isp(ju+j-1) = isp(jutmp+j-1) -c -c ****** CALL remaining subroutines ********************************* - 5 jlmax = isp(ijl+n-1) - ju = jl + jlmax - jumax = isp(iju+n-1) - l = (ju + jumax - 2 + lratio) / lratio + 1 - lmax = isp(il+n) - 1 - d = l + lmax - u = d + n - row = nsp + 1 - n - tmp = row - n - umax = tmp - u - esp = umax - (isp(iu+n) - 1) -c - if ((path-1) * (path-2) .ne. 0) go to 6 - if (umax.lt.0) go to 110 - CALL nnfc - * (n, r, c, ic, ia, ja, a, z, b, - * lmax, isp(il), isp(jl), isp(ijl), rsp(l), rsp(d), - * umax, isp(iu), isp(ju), isp(iju), rsp(u), - * rsp(row), rsp(tmp), isp(irl), isp(jrl), flag) - if(flag .ne. 0) go to 100 -c - 6 if ((path-3) .ne. 0) go to 7 - CALL nnsc - * (n, r, c, isp(il), isp(jl), isp(ijl), rsp(l), - * rsp(d), isp(iu), isp(ju), isp(iju), rsp(u), - * z, b, rsp(tmp)) -c - 7 if ((path-4) .ne. 0) go to 8 - CALL nntc - * (n, r, c, isp(il), isp(jl), isp(ijl), rsp(l), - * rsp(d), isp(iu), isp(ju), isp(iju), rsp(u), - * z, b, rsp(tmp)) - 8 return -c -c ** error.. error detected in nroc, nsfc, nnfc, or nnsc - 100 return -c ** error.. insufficient storage - 110 flag = 10*n + 1 - return -c ** error.. illegal path specification - 111 flag = 11*n + 1 - return - end - subroutine prep (neq, y, yh, savf, ewt, ftem, ia, ja, - 1 wk, iwk, ipper, f, jac) -clll. optimize - external f,jac - integer neq(*), ia(*), ja(*), iwk(*), ipper - integer iownd, iowns, - 1 icf, ierpj, iersl, jcur, jstart, kflag, l, meth, miter, - 2 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu - integer iplost, iesp, istatc, iys, iba, ibian, ibjan, ibjgp, - 1 ipian, ipjan, ipjgp, ipigp, ipr, ipc, ipic, ipisp, iprsp, ipa, - 2 lenyh, lenyhm, lenwk, lreq, lrat, lrest, lwmin, moss, msbj, - 3 nslj, ngp, nlu, nnz, nsp, nzl, nzu - integer i, ibr, ier, ipil, ipiu, iptt1, iptt2, j, jfound, k, - 1 knew, kmax, kmin, ldif, lenigp, liwk, maxg, np1, nzsut - KPP_REAL y(*), yh(*), savf(*), ewt(*), ftem(*), wk(*) - KPP_REAL rowns, - 1 ccmax, el0, h, hmin, hmxi, hu, rc, tn, uround - KPP_REAL con0, conmin, ccmxj, psmall, rbig, seth - KPP_REAL dq, dyj, erwt, fac, yj, JJJ(n,n) - common /ls0001/ rowns(209), - 2 ccmax, el0, h, hmin, hmxi, hu, rc, tn, uround, - 3 iownd(14), iowns(6), - 4 icf, ierpj, iersl, jcur, jstart, kflag, l, meth, miter, - 5 maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu - common /lss001/ con0, conmin, ccmxj, psmall, rbig, seth, - 1 iplost, iesp, istatc, iys, iba, ibian, ibjan, ibjgp, - 2 ipian, ipjan, ipjgp, ipigp, ipr, ipc, ipic, ipisp, iprsp, ipa, - 3 lenyh, lenyhm, lenwk, lreq, lrat, lrest, lwmin, moss, msbj, - 4 nslj, ngp, nlu, nnz, nsp, nzl, nzu -c----------------------------------------------------------------------- -c this routine performs preprocessing related to the sparse linear -c systems that must be solved if miter = 1 or 2. -c the operations that are performed here are.. -c * compute sparseness structure of jacobian according to moss, -c * compute grouping of column indices (miter = 2), -c * compute a new ordering of rows and columns of the matrix, -c * reorder ja corresponding to the new ordering, -c * perform a symbolic lu factorization of the matrix, and -c * set pointers for segments of the iwk/wk array. -c in addition to variables described previously, prep uses the -c following for communication.. -c yh = the history array. only the first column, containing the -c current y vector, is used. used only if moss .ne. 0. -c savf = a work array of length neq, used only if moss .ne. 0. -c ewt = array of length neq containing (inverted) error weights. -c used only if moss = 2 or if istate = moss = 1. -c ftem = a work array of length neq, identical to acor in the driver, -c used only if moss = 2. -c wk = a real work array of length lenwk, identical to wm in -c the driver. -c iwk = integer work array, assumed to occupy the same space as wk. -c lenwk = the length of the work arrays wk and iwk. -c istatc = a copy of the driver input argument istate (= 1 on the -c first call, = 3 on a continuation call). -c iys = flag value from odrv or cdrv. -c ipper = output error flag with the following values and meanings.. -c 0 no error. -c -1 insufficient storage for internal structure pointers. -c -2 insufficient storage for jgroup. -c -3 insufficient storage for odrv. -c -4 other error flag from odrv (should never occur). -c -5 insufficient storage for cdrv. -c -6 other error flag from cdrv. -c----------------------------------------------------------------------- - ibian = lrat*2 - ipian = ibian + 1 - np1 = n + 1 - ipjan = ipian + np1 - ibjan = ipjan - 1 - liwk = lenwk*lrat - if (ipjan+n-1 .gt. liwk) go to 210 - if (moss .eq. 0) go to 30 -c - if (istatc .eq. 3) go to 20 -c istate = 1 and moss .ne. 0. perturb y for structure determination. -- - do 10 i = 1,n - erwt = 1.0d0/ewt(i) - fac = 1.0d0 + 1.0d0/(dfloat(i)+1.0d0) - y(i) = y(i) + fac*DSIGN(erwt,y(i)) - 10 continue - go to (70, 100), moss -c - 20 continue -c istate = 3 and moss .ne. 0. load y from yh(*,1). -------------------- - do 25 i = 1,n - 25 y(i) = yh(i) - go to (70, 100), moss -c -c moss = 0. process user-s ia,ja. add diagonal entries if necessary. - - 30 knew = ipjan - kmin = ia(1) - iwk(ipian) = 1 - do 60 j = 1,n - jfound = 0 - kmax = ia(j+1) - 1 - if (kmin .gt. kmax) go to 45 - do 40 k = kmin,kmax - i = ja(k) - if (i .eq. j) jfound = 1 - if (knew .gt. liwk) go to 210 - iwk(knew) = i - knew = knew + 1 - 40 continue - if (jfound .eq. 1) go to 50 - 45 if (knew .gt. liwk) go to 210 - iwk(knew) = j - knew = knew + 1 - 50 iwk(ipian+j) = knew + 1 - ipjan - kmin = kmax + 1 - 60 continue - go to 140 -c -c moss = 1. compute structure from user-supplied jacobian routine jac. - 70 continue -c a dummy CALL to f allows user to create temporaries for use in jac. -- - CALL f (neq, tn, y, savf) - k = ipjan - iwk(ipian) = 1 - call jac_chem (neq, tn, y, JJJ, j, iwk(ipian), iwk(ipjan)) - do 90 j = 1,n - if (k .gt. liwk) go to 210 - iwk(k) = j - k = k + 1 - do 75 i = 1,n - 75 savf(i) = 0.0d0 -C call jac_chem (neq, tn, y, j, iwk(ipian), iwk(ipjan), savf) - do i=1,n - savf(i) = JJJ(i,j) - end do - do 80 i = 1,n - if (dabs(savf(i)) .le. seth) go to 80 - if (i .eq. j) go to 80 - if (k .gt. liwk) go to 210 - iwk(k) = i - k = k + 1 - 80 continue - iwk(ipian+j) = k + 1 - ipjan - 90 continue - go to 140 -c -c moss = 2. compute structure from results of n + 1 calls to f. ------- - 100 k = ipjan - iwk(ipian) = 1 - CALL f (neq, tn, y, savf) - do 120 j = 1,n - if (k .gt. liwk) go to 210 - iwk(k) = j - k = k + 1 - yj = y(j) - erwt = 1.0d0/ewt(j) - dyj = DSIGN(erwt,yj) - y(j) = yj + dyj - CALL f (neq, tn, y, ftem) - y(j) = yj - do 110 i = 1,n - dq = (ftem(i) - savf(i))/dyj - if (dabs(dq) .le. seth) go to 110 - if (i .eq. j) go to 110 - if (k .gt. liwk) go to 210 - iwk(k) = i - k = k + 1 - 110 continue - iwk(ipian+j) = k + 1 - ipjan - 120 continue -c - 140 continue - if (moss .eq. 0 .or. istatc .ne. 1) go to 150 -c if istate = 1 and moss .ne. 0, restore y from yh. -------------------- - do 145 i = 1,n - 145 y(i) = yh(i) - 150 nnz = iwk(ipian+n) - 1 - lenigp = 0 - ipigp = ipjan + nnz - if (miter .ne. 2) go to 160 -c -c compute grouping of column indices (miter = 2). ---------------------- - maxg = np1 - ipjgp = ipjan + nnz - ibjgp = ipjgp - 1 - ipigp = ipjgp + n - iptt1 = ipigp + np1 - iptt2 = iptt1 + n - lreq = iptt2 + n - 1 - if (lreq .gt. liwk) go to 220 - CALL jgroup (n, iwk(ipian), iwk(ipjan), maxg, ngp, iwk(ipigp), - 1 iwk(ipjgp), iwk(iptt1), iwk(iptt2), ier) - if (ier .ne. 0) go to 220 - lenigp = ngp + 1 -c -c compute new ordering of rows/columns of jacobian. -------------------- - 160 ipr = ipigp + lenigp - ipc = ipr - ipic = ipc + n - ipisp = ipic + n - iprsp = (ipisp - 2)/lrat + 2 - iesp = lenwk + 1 - iprsp - if (iesp .lt. 0) go to 230 - ibr = ipr - 1 - do 170 i = 1,n - 170 iwk(ibr+i) = i - nsp = liwk + 1 - ipisp - CALL odrv (n, iwk(ipian), iwk(ipjan), wk, iwk(ipr), iwk(ipic), - 1 nsp, iwk(ipisp), 1, iys) - if (iys .eq. 11*n+1) go to 240 - if (iys .ne. 0) go to 230 -c -c reorder jan and do symbolic lu factorization of matrix. -------------- - ipa = lenwk + 1 - nnz - nsp = ipa - iprsp - lreq = max0(12*n/lrat, 6*n/lrat+2*n+nnz) + 3 - lreq = lreq + iprsp - 1 + nnz - if (lreq .gt. lenwk) go to 250 - iba = ipa - 1 - do 180 i = 1,nnz - 180 wk(iba+i) = 0.0d0 - ipisp = lrat*(iprsp - 1) + 1 - CALL cdrv (n,iwk(ipr),iwk(ipc),iwk(ipic),iwk(ipian),iwk(ipjan), - 1 wk(ipa),wk(ipa),wk(ipa),nsp,iwk(ipisp),wk(iprsp),iesp,5,iys) - lreq = lenwk - iesp - if (iys .eq. 10*n+1) go to 250 - if (iys .ne. 0) go to 260 - ipil = ipisp - ipiu = ipil + 2*n + 1 - nzu = iwk(ipil+n) - iwk(ipil) - nzl = iwk(ipiu+n) - iwk(ipiu) - if (lrat .gt. 1) go to 190 - CALL adjlr (n, iwk(ipisp), ldif) - lreq = lreq + ldif - 190 continue - if (lrat .eq. 2 .and. nnz .eq. n) lreq = lreq + 1 - nsp = nsp + lreq - lenwk - ipa = lreq + 1 - nnz - iba = ipa - 1 - ipper = 0 - return -c - 210 ipper = -1 - lreq = 2 + (2*n + 1)/lrat - lreq = max0(lenwk+1,lreq) - return -c - 220 ipper = -2 - lreq = (lreq - 1)/lrat + 1 - return -c - 230 ipper = -3 - CALL cntnzu (n, iwk(ipian), iwk(ipjan), nzsut) - lreq = lenwk - iesp + (3*n + 4*nzsut - 1)/lrat + 1 - return -c - 240 ipper = -4 - return -c - 250 ipper = -5 - return -c - 260 ipper = -6 - lreq = lenwk - return -c----------------------- end of subroutine prep ------------------------ - end - subroutine cntnzu (n, ia, ja, nzsut) - integer n, ia, ja, nzsut - dimension ia(1), ja(1) -c----------------------------------------------------------------------- -c this routine counts the number of nonzero elements in the strict -c upper triangle of the matrix m + m(transpose), where the sparsity -c structure of m is given by pointer arrays ia and ja. -c this is needed to compute the storage requirements for the -c sparse matrix reordering operation in odrv. -c----------------------------------------------------------------------- - integer ii, jj, j, jmin, jmax, k, kmin, kmax, num -c - num = 0 - do 50 ii = 1,n - jmin = ia(ii) - jmax = ia(ii+1) - 1 - if (jmin .gt. jmax) go to 50 - do 40 j = jmin,jmax - if (ja(j) - ii) 10, 40, 30 - 10 jj =ja(j) - kmin = ia(jj) - kmax = ia(jj+1) - 1 - if (kmin .gt. kmax) go to 30 - do 20 k = kmin,kmax - if (ja(k) .eq. ii) go to 40 - 20 continue - 30 num = num + 1 - 40 continue - 50 continue - nzsut = num - return -c----------------------- end of subroutine cntnzu ---------------------- - end - subroutine nntc - * (n, r, c, il, jl, ijl, l, d, iu, ju, iju, u, z, b, tmp) -clll. optimize -c*** subroutine nntc -c*** numeric solution of the transpose of a sparse nonsymmetric system -c of linear equations given lu-factorization (compressed pointer -c storage) -c -c -c input variables.. n, r, c, il, jl, ijl, l, d, iu, ju, iju, u, b -c output variables.. z -c -c parameters used internally.. -c fia - tmp - temporary vector which gets result of solving ut y = b -c - size = n. -c -c internal variables.. -c jmin, jmax - indices of the first and last positions in a row of -c u or l to be used. -c - integer r(1), c(1), il(1), jl(1), ijl(1), iu(1), ju(1), iju(1) - KPP_REAL l(1), d(1), u(1), b(1), z(1), tmp(1), tmpk,sum -c -c ****** set tmp to reordered b ************************************* - do 1 k=1,n - 1 tmp(k) = b(c(k)) -c ****** solve ut y = b by forward substitution ******************* - do 3 k=1,n - jmin = iu(k) - jmax = iu(k+1) - 1 - tmpk = -tmp(k) - if (jmin .gt. jmax) go to 3 - mu = iju(k) - jmin - do 2 j=jmin,jmax - 2 tmp(ju(mu+j)) = tmp(ju(mu+j)) + tmpk * u(j) - 3 continue -c ****** solve lt x = y by back substitution ********************** - k = n - do 6 i=1,n - sum = -tmp(k) - jmin = il(k) - jmax = il(k+1) - 1 - if (jmin .gt. jmax) go to 5 - ml = ijl(k) - jmin - do 4 j=jmin,jmax - 4 sum = sum + l(j) * tmp(jl(ml+j)) - 5 tmp(k) = -sum * d(k) - z(r(k)) = tmp(k) - k = k - 1 - 6 continue - return - end - subroutine nnsc - * (n, r, c, il, jl, ijl, l, d, iu, ju, iju, u, z, b, tmp) -clll. optimize -c*** subroutine nnsc -c*** numerical solution of sparse nonsymmetric system of linear -c equations given ldu-factorization (compressed pointer storage) -c -c -c input variables.. n, r, c, il, jl, ijl, l, d, iu, ju, iju, u, b -c output variables.. z -c -c parameters used internally.. -c fia - tmp - temporary vector which gets result of solving ly = b. -c - size = n. -c -c internal variables.. -c jmin, jmax - indices of the first and last positions in a row of -c u or l to be used. -c - integer r(1), c(1), il(1), jl(1), ijl(1), iu(1), ju(1), iju(1) - KPP_REAL l(1), d(1), u(1), b(1), z(1), tmp(1), tmpk,sum -c -c ****** set tmp to reordered b ************************************* - do 1 k=1,n - 1 tmp(k) = b(r(k)) -c ****** solve ly = b by forward substitution ********************* - do 3 k=1,n - jmin = il(k) - jmax = il(k+1) - 1 - tmpk = -d(k) * tmp(k) - tmp(k) = -tmpk - if (jmin .gt. jmax) go to 3 - ml = ijl(k) - jmin - do 2 j=jmin,jmax - 2 tmp(jl(ml+j)) = tmp(jl(ml+j)) + tmpk * l(j) - 3 continue -c ****** solve ux = y by back substitution ************************ - k = n - do 6 i=1,n - sum = -tmp(k) - jmin = iu(k) - jmax = iu(k+1) - 1 - if (jmin .gt. jmax) go to 5 - mu = iju(k) - jmin - do 4 j=jmin,jmax - 4 sum = sum + u(j) * tmp(ju(mu+j)) - 5 tmp(k) = -sum - z(c(k)) = -sum - k = k - 1 - 6 continue - return - end - subroutine nroc (n, ic, ia, ja, a, jar, ar, p, flag) -clll. optimize -c -c ---------------------------------------------------------------- -c -c yale sparse matrix package - nonsymmetric codes -c solving the system of equations mx = b -c -c i. calling sequences -c the coefficient matrix can be processed by an ordering routine -c (e.g., to reduce fillin or ensure numerical stability) before using -c the remaining subroutines. if no reordering is done, then set -c r(i) = c(i) = ic(i) = i for i=1,...,n. if an ordering subroutine -c is used, then nroc should be used to reorder the coefficient matrix -c the calling sequence is -- -c ( (matrix ordering)) -c (nroc (matrix reordering)) -c nsfc (symbolic factorization to determine where fillin will -c occur during numeric factorization) -c nnfc (numeric factorization into product ldu of unit lower -c triangular matrix l, diagonal matrix d, and unit -c upper triangular matrix u, and solution of linear -c system) -c nnsc (solution of linear system for additional right-hand -c side using ldu factorization from nnfc) -c (if only one system of equations is to be solved, then the -c subroutine trk should be used.) -c -c ii. storage of sparse matrices -c the nonzero entries of the coefficient matrix m are stored -c row-by-row in the array a. to identify the individual nonzero -c entries in each row, we need to know in which column each entry -c lies. the column indices which correspond to the nonzero entries -c of m are stored in the array ja. i.e., if a(k) = m(i,j), then -c ja(k) = j. in addition, we need to know where each row starts and -c how long it is. the index positions in ja and a where the rows of -c m begin are stored in the array ia. i.e., if m(i,j) is the first -c (leftmost) entry in the i-th row and a(k) = m(i,j), then -c ia(i) = k. moreover, the index in ja and a of the first location -c following the last element in the last row is stored in ia(n+1). -c thus, the number of entries in the i-th row is given by -c ia(i+1) - ia(i), the nonzero entries of the i-th row are stored -c consecutively in -c a(ia(i)), a(ia(i)+1), ..., a(ia(i+1)-1), -c and the corresponding column indices are stored consecutively in -c ja(ia(i)), ja(ia(i)+1), ..., ja(ia(i+1)-1). -c for example, the 5 by 5 matrix -c ( 1. 0. 2. 0. 0.) -c ( 0. 3. 0. 0. 0.) -c m = ( 0. 4. 5. 6. 0.) -c ( 0. 0. 0. 7. 0.) -c ( 0. 0. 0. 8. 9.) -c would be stored as -c - 1 2 3 4 5 6 7 8 9 -c ---+-------------------------- -c ia - 1 3 4 7 8 10 -c ja - 1 3 2 2 3 4 4 4 5 -c a - 1. 2. 3. 4. 5. 6. 7. 8. 9. . -c -c the strict upper (lower) triangular portion of the matrix -c u (l) is stored in a similar fashion using the arrays iu, ju, u -c (il, jl, l) except that an additional array iju (ijl) is used to -c compress storage of ju (jl) by allowing some sequences of column -c (row) indices to used for more than one row (column) (n.b., l is -c stored by columns). iju(k) (ijl(k)) points to the starting -c location in ju (jl) of entries for the kth row (column). -c compression in ju (jl) occurs in two ways. first, if a row -c (column) i was merged into the current row (column) k, and the -c number of elements merged in from (the tail portion of) row -c (column) i is the same as the final length of row (column) k, then -c the kth row (column) and the tail of row (column) i are identical -c and iju(k) (ijl(k)) points to the start of the tail. second, if -c some tail portion of the (k-1)st row (column) is identical to the -c head of the kth row (column), then iju(k) (ijl(k)) points to the -c start of that tail portion. for example, the nonzero structure of -c the strict upper triangular part of the matrix -c d 0 x x x -c 0 d 0 x x -c 0 0 d x 0 -c 0 0 0 d x -c 0 0 0 0 d -c would be represented as -c - 1 2 3 4 5 6 -c ----+------------ -c iu - 1 4 6 7 8 8 -c ju - 3 4 5 4 -c iju - 1 2 4 3 . -c the diagonal entries of l and u are assumed to be equal to one and -c are not stored. the array d contains the reciprocals of the -c diagonal entries of the matrix d. -c -c iii. additional storage savings -c in nsfc, r and ic can be the same array in the calling -c sequence if no reordering of the coefficient matrix has been done. -c in nnfc, r, c, and ic can all be the same array if no -c reordering has been done. if only the rows have been reordered, -c then c and ic can be the same array. if the row and column -c orderings are the same, then r and c can be the same array. z and -c row can be the same array. -c in nnsc or nntc, r and c can be the same array if no -c reordering has been done or if the row and column orderings are the -c same. z and b can be the same array. however, then b will be -c destroyed. -c -c iv. parameters -c following is a list of parameters to the programs. names are -c uniform among the various subroutines. class abbreviations are -- -c n - integer variable -c f - real variable -c v - supplies a value to a subroutine -c r - returns a result from a subroutine -c i - used internally by a subroutine -c a - array -c -c class - parameter -c ------+---------- -c fva - a - nonzero entries of the coefficient matrix m, stored -c - by rows. -c - size = number of nonzero entries in m. -c fva - b - right-hand side b. -c - size = n. -c nva - c - ordering of the columns of m. -c - size = n. -c fvra - d - reciprocals of the diagonal entries of the matrix d. -c - size = n. -c nr - flag - error flag. values and their meanings are -- -c - 0 no errors detected -c - n+k null row in a -- row = k -c - 2n+k duplicate entry in a -- row = k -c - 3n+k insufficient storage for jl -- row = k -c - 4n+1 insufficient storage for l -c - 5n+k null pivot -- row = k -c - 6n+k insufficient storage for ju -- row = k -c - 7n+1 insufficient storage for u -c - 8n+k zero pivot -- row = k -c nva - ia - pointers to delimit the rows of a. -c - size = n+1. -c nvra - ijl - pointers to the first element in each column in jl, -c - used to compress storage in jl. -c - size = n. -c nvra - iju - pointers to the first element in each row in ju, used -c - to compress storage in ju. -c - size = n. -c nvra - il - pointers to delimit the columns of l. -c - size = n+1. -c nvra - iu - pointers to delimit the rows of u. -c - size = n+1. -c nva - ja - column numbers corresponding to the elements of a. -c - size = size of a. -c nvra - jl - row numbers corresponding to the elements of l. -c - size = jlmax. -c nv - jlmax - declared dimension of jl. jlmax must be larger than -c - the number of nonzeros in the strict lower triangle -c - of m plus fillin minus compression. -c nvra - ju - column numbers corresponding to the elements of u. -c - size = jumax. -c nv - jumax - declared dimension of ju. jumax must be larger than -c - the number of nonzeros in the strict upper triangle -c - of m plus fillin minus compression. -c fvra - l - nonzero entries in the strict lower triangular portion -c - of the matrix l, stored by columns. -c - size = lmax. -c nv - lmax - declared dimension of l. lmax must be larger than -c - the number of nonzeros in the strict lower triangle -c - of m plus fillin (il(n+1)-1 after nsfc). -c nv - n - number of variables/equations. -c nva - r - ordering of the rows of m. -c - size = n. -c fvra - u - nonzero entries in the strict upper triangular portion -c - of the matrix u, stored by rows. -c - size = umax. -c nv - umax - declared dimension of u. umax must be larger than -c - the number of nonzeros in the strict upper triangle -c - of m plus fillin (iu(n+1)-1 after nsfc). -c fra - z - solution x. -c - size = n. -c -c ---------------------------------------------------------------- -c -c*** subroutine nroc -c*** reorders rows of a, leaving row order unchanged -c -c -c input parameters.. n, ic, ia, ja, a -c output parameters.. ja, a, flag -c -c parameters used internally.. -c nia - p - at the kth step, p is a linked list of the reordered -c - column indices of the kth row of a. p(n+1) points -c - to the first entry in the list. -c - size = n+1. -c nia - jar - at the kth step,jar contains the elements of the -c - reordered column indices of a. -c - size = n. -c fia - ar - at the kth step, ar contains the elements of the -c - reordered row of a. -c - size = n. -c - integer ic(1), ia(1), ja(1), jar(1), p(1), flag - KPP_REAL a(1), ar(1) -c -c ****** for each nonempty row ******************************* - do 5 k=1,n - jmin = ia(k) - jmax = ia(k+1) - 1 - if(jmin .gt. jmax) go to 5 - p(n+1) = n + 1 -c ****** insert each element in the list ********************* - do 3 j=jmin,jmax - newj = ic(ja(j)) - i = n + 1 - 1 if(p(i) .ge. newj) go to 2 - i = p(i) - go to 1 - 2 if(p(i) .eq. newj) go to 102 - p(newj) = p(i) - p(i) = newj - jar(newj) = ja(j) - ar(newj) = a(j) - 3 continue -c ****** replace old row in ja and a ************************* - i = n + 1 - do 4 j=jmin,jmax - i = p(i) - ja(j) = jar(i) - 4 a(j) = ar(i) - 5 continue - flag = 0 - return -c -c ** error.. duplicate entry in a - 102 flag = n + k - return - end - subroutine adjlr (n, isp, ldif) - integer n, isp, ldif - dimension isp(1) -c----------------------------------------------------------------------- -c this routine computes an adjustment, ldif, to the required -c integer storage space in iwk (sparse matrix work space). -c it is called only if the word length ratio is lrat = 1. -c this is to account for the possibility that the symbolic lu phase -c may require more storage than the numerical lu and solution phases. -c----------------------------------------------------------------------- - integer ip, jlmax, jumax, lnfc, lsfc, nzlu -c - ip = 2*n + 1 -c get jlmax = ijl(n) and jumax = iju(n) (sizes of jl and ju). ---------- - jlmax = isp(ip) - jumax = isp(ip+ip) -c nzlu = (size of l) + (size of u) = (il(n+1)-il(1)) + (iu(n+1)-iu(1)). - nzlu = isp(n+1) - isp(1) + isp(ip+n+1) - isp(ip+1) - lsfc = 12*n + 3 + 2*max0(jlmax,jumax) - lnfc = 9*n + 2 + jlmax + jumax + nzlu - ldif = max0(0, lsfc - lnfc) - return -c----------------------- end of subroutine adjlr ----------------------- - end - subroutine odrv - * (n, ia,ja,a, p,ip, nsp,isp, path, flag) -clll. optimize -c 5/2/83 -c*********************************************************************** -c odrv -- driver for sparse matrix reordering routines -c*********************************************************************** -c -c description -c -c odrv finds a minimum degree ordering of the rows and columns -c of a matrix m stored in (ia,ja,a) format (see below). for the -c reordered matrix, the work and storage required to perform -c gaussian elimination is (usually) significantly less. -c -c note.. odrv and its subordinate routines have been modified to -c compute orderings for general matrices, not necessarily having any -c symmetry. the miminum degree ordering is computed for the -c structure of the symmetric matrix m + m-transpose. -c modifications to the original odrv module have been made in -c the coding in subroutine mdi, and in the initial comments in -c subroutines odrv and md. -c -c if only the nonzero entries in the upper triangle of m are being -c stored, then odrv symmetrically reorders (ia,ja,a), (optionally) -c with the diagonal entries placed first in each row. this is to -c ensure that if m(i,j) will be in the upper triangle of m with -c respect to the new ordering, then m(i,j) is stored in row i (and -c thus m(j,i) is not stored), whereas if m(i,j) will be in the -c strict lower triangle of m, then m(j,i) is stored in row j (and -c thus m(i,j) is not stored). -c -c -c storage of sparse matrices -c -c the nonzero entries of the matrix m are stored row-by-row in the -c array a. to identify the individual nonzero entries in each row, -c we need to know in which column each entry lies. these column -c indices are stored in the array ja. i.e., if a(k) = m(i,j), then -c ja(k) = j. to identify the individual rows, we need to know where -c each row starts. these row pointers are stored in the array ia. -c i.e., if m(i,j) is the first nonzero entry (stored) in the i-th row -c and a(k) = m(i,j), then ia(i) = k. moreover, ia(n+1) points to -c the first location following the last element in the last row. -c thus, the number of entries in the i-th row is ia(i+1) - ia(i), -c the nonzero entries in the i-th row are stored consecutively in -c -c a(ia(i)), a(ia(i)+1), ..., a(ia(i+1)-1), -c -c and the corresponding column indices are stored consecutively in -c -c ja(ia(i)), ja(ia(i)+1), ..., ja(ia(i+1)-1). -c -c since the coefficient matrix is symmetric, only the nonzero entries -c in the upper triangle need be stored. for example, the matrix -c -c ( 1 0 2 3 0 ) -c ( 0 4 0 0 0 ) -c m = ( 2 0 5 6 0 ) -c ( 3 0 6 7 8 ) -c ( 0 0 0 8 9 ) -c -c could be stored as -c -c - 1 2 3 4 5 6 7 8 9 10 11 12 13 -c ---+-------------------------------------- -c ia - 1 4 5 8 12 14 -c ja - 1 3 4 2 1 3 4 1 3 4 5 4 5 -c a - 1 2 3 4 2 5 6 3 6 7 8 8 9 -c -c or (symmetrically) as -c -c - 1 2 3 4 5 6 7 8 9 -c ---+-------------------------- -c ia - 1 4 5 7 9 10 -c ja - 1 3 4 2 3 4 4 5 5 -c a - 1 2 3 4 5 6 7 8 9 . -c -c -c parameters -c -c n - order of the matrix -c -c ia - integer one-dimensional array containing pointers to delimit -c rows in ja and a. dimension = n+1 -c -c ja - integer one-dimensional array containing the column indices -c corresponding to the elements of a. dimension = number of -c nonzero entries in (the upper triangle of) m -c -c a - real one-dimensional array containing the nonzero entries in -c (the upper triangle of) m, stored by rows. dimension = -c number of nonzero entries in (the upper triangle of) m -c -c p - integer one-dimensional array used to return the permutation -c of the rows and columns of m corresponding to the minimum -c degree ordering. dimension = n -c -c ip - integer one-dimensional array used to return the inverse of -c the permutation returned in p. dimension = n -c -c nsp - declared dimension of the one-dimensional array isp. nsp -c must be at least 3n+4k, where k is the number of nonzeroes -c in the strict upper triangle of m -c -c isp - integer one-dimensional array used for working storage. -c dimension = nsp -c -c path - integer path specification. values and their meanings are - -c 1 find minimum degree ordering only -c 2 find minimum degree ordering and reorder symmetrically -c stored matrix (used when only the nonzero entries in -c the upper triangle of m are being stored) -c 3 reorder symmetrically stored matrix as specified by -c input permutation (used when an ordering has already -c been determined and only the nonzero entries in the -c upper triangle of m are being stored) -c 4 same as 2 but put diagonal entries at start of each row -c 5 same as 3 but put diagonal entries at start of each row -c -c flag - integer error flag. values and their meanings are - -c 0 no errors detected -c 9n+k insufficient storage in md -c 10n+1 insufficient storage in odrv -c 11n+1 illegal path specification -c -c -c conversion from real to KPP_REAL -c -c change the real declarations in odrv and sro to KPP_REAL -c declarations. -c -c----------------------------------------------------------------------- -c - integer ia(1), ja(1), p(1), ip(1), isp(1), path, flag, - * v, l, head, tmp, q - KPP_REAL a(1) - logical dflag -c -c----initialize error flag and validate path specification - flag = 0 - if (path.lt.1 .or. 5.lt.path) go to 111 -c -c----allocate storage and find minimum degree ordering - if ((path-1) * (path-2) * (path-4) .ne. 0) go to 1 - max = (nsp-n)/2 - v = 1 - l = v + max - head = l + max - next = head + n - if (max.lt.n) go to 110 -c - CALL md - * (n, ia,ja, max,isp(v),isp(l), isp(head),p,ip, isp(v), flag) - if (flag.ne.0) go to 100 -c -c----allocate storage and symmetrically reorder matrix - 1 if ((path-2) * (path-3) * (path-4) * (path-5) .ne. 0) go to 2 - tmp = (nsp+1) - n - q = tmp - (ia(n+1)-1) - if (q.lt.1) go to 110 -c - dflag = path.eq.4 .or. path.eq.5 - CALL sro - * (n, ip, ia, ja, a, isp(tmp), isp(q), dflag) -c - 2 return -c -c ** error -- error detected in md - 100 return -c ** error -- insufficient storage - 110 flag = 10*n + 1 - return -c ** error -- illegal path specified - 111 flag = 11*n + 1 - return - end - subroutine nnfc - * (n, r,c,ic, ia,ja,a, z, b, - * lmax,il,jl,ijl,l, d, umax,iu,ju,iju,u, - * row, tmp, irl,jrl, flag) -clll. optimize -c*** subroutine nnfc -c*** numerical ldu-factorization of sparse nonsymmetric matrix and -c solution of system of linear equations (compressed pointer -c storage) -c -c -c input variables.. n, r, c, ic, ia, ja, a, b, -c il, jl, ijl, lmax, iu, ju, iju, umax -c output variables.. z, l, d, u, flag -c -c parameters used internally.. -c nia - irl, - vectors used to find the rows of l. at the kth step -c nia - jrl of the factorization, jrl(k) points to the head -c - of a linked list in jrl of column indices j -c - such j .lt. k and l(k,j) is nonzero. zero -c - indicates the end of the list. irl(j) (j.lt.k) -c - points to the smallest i such that i .ge. k and -c - l(i,j) is nonzero. -c - size of each = n. -c fia - row - holds intermediate values in calculation of u and l. -c - size = n. -c fia - tmp - holds new right-hand side b* for solution of the -c - equation ux = b*. -c - size = n. -c -c internal variables.. -c jmin, jmax - indices of the first and last positions in a row to -c be examined. -c sum - used in calculating tmp. -c - integer rk,umax - integer r(1), c(1), ic(1), ia(1), ja(1), il(1), jl(1), ijl(1) - integer iu(1), ju(1), iju(1), irl(1), jrl(1), flag - KPP_REAL a(1), l(1), d(1), u(1), z(1), b(1), row(1) - KPP_REAL tmp(1), lki, sum, dk -c -c ****** initialize pointers and test storage *********************** - if(il(n+1)-1 .gt. lmax) go to 104 - if(iu(n+1)-1 .gt. umax) go to 107 - do 1 k=1,n - irl(k) = il(k) - jrl(k) = 0 - 1 continue -c -c ****** for each row *********************************************** - do 19 k=1,n -c ****** reverse jrl and zero row where kth row of l will fill in *** - row(k) = 0 - i1 = 0 - if (jrl(k) .eq. 0) go to 3 - i = jrl(k) - 2 i2 = jrl(i) - jrl(i) = i1 - i1 = i - row(i) = 0 - i = i2 - if (i .ne. 0) go to 2 -c ****** set row to zero where u will fill in *********************** - 3 jmin = iju(k) - jmax = jmin + iu(k+1) - iu(k) - 1 - if (jmin .gt. jmax) go to 5 - do 4 j=jmin,jmax - 4 row(ju(j)) = 0 -c ****** place kth row of a in row ********************************** - 5 rk = r(k) - jmin = ia(rk) - jmax = ia(rk+1) - 1 - do 6 j=jmin,jmax - row(ic(ja(j))) = a(j) - 6 continue -c ****** initialize sum, and link through jrl *********************** - sum = b(rk) - i = i1 - if (i .eq. 0) go to 10 -c ****** assign the kth row of l and adjust row, sum **************** - 7 lki = -row(i) -c ****** if l is not required, then comment out the following line ** - l(irl(i)) = -lki - sum = sum + lki * tmp(i) - jmin = iu(i) - jmax = iu(i+1) - 1 - if (jmin .gt. jmax) go to 9 - mu = iju(i) - jmin - do 8 j=jmin,jmax - 8 row(ju(mu+j)) = row(ju(mu+j)) + lki * u(j) - 9 i = jrl(i) - if (i .ne. 0) go to 7 -c -c ****** assign kth row of u and diagonal d, set tmp(k) ************* - 10 if (row(k) .eq. 0.0d0) go to 108 - dk = 1.0d0 / row(k) - d(k) = dk - tmp(k) = sum * dk - if (k .eq. n) go to 19 - jmin = iu(k) - jmax = iu(k+1) - 1 - if (jmin .gt. jmax) go to 12 - mu = iju(k) - jmin - do 11 j=jmin,jmax - 11 u(j) = row(ju(mu+j)) * dk - 12 continue -c -c ****** update irl and jrl, keeping jrl in decreasing order ******** - i = i1 - if (i .eq. 0) go to 18 - 14 irl(i) = irl(i) + 1 - i1 = jrl(i) - if (irl(i) .ge. il(i+1)) go to 17 - ijlb = irl(i) - il(i) + ijl(i) - j = jl(ijlb) - 15 if (i .gt. jrl(j)) go to 16 - j = jrl(j) - go to 15 - 16 jrl(i) = jrl(j) - jrl(j) = i - 17 i = i1 - if (i .ne. 0) go to 14 - 18 if (irl(k) .ge. il(k+1)) go to 19 - j = jl(ijl(k)) - jrl(k) = jrl(j) - jrl(j) = k - 19 continue -c -c ****** solve ux = tmp by back substitution ********************** - k = n - do 22 i=1,n - sum = tmp(k) - jmin = iu(k) - jmax = iu(k+1) - 1 - if (jmin .gt. jmax) go to 21 - mu = iju(k) - jmin - do 20 j=jmin,jmax - 20 sum = sum - u(j) * tmp(ju(mu+j)) - 21 tmp(k) = sum - z(c(k)) = sum - 22 k = k-1 - flag = 0 - return -c -c ** error.. insufficient storage for l - 104 flag = 4*n + 1 - return -c ** error.. insufficient storage for u - 107 flag = 7*n + 1 - return -c ** error.. zero pivot - 108 flag = 8*n + k - return - end - subroutine jgroup (n,ia,ja,maxg,ngrp,igp,jgp,incl,jdone,ier) -clll. optimize - integer n, ia, ja, maxg, ngrp, igp, jgp, incl, jdone, ier - dimension ia(1), ja(1), igp(1), jgp(n), incl(n), jdone(n) -c----------------------------------------------------------------------- -c this subroutine constructs groupings of the column indices of -c the jacobian matrix, used in the numerical evaluation of the -c jacobian by finite differences. -c -c input.. -c n = the order of the matrix. -c ia,ja = sparse structure descriptors of the matrix by rows. -c maxg = length of available storate in the igp array. -c -c output.. -c ngrp = number of groups. -c jgp = array of length n containing the column indices by groups. -c igp = pointer array of length ngrp + 1 to the locations in jgp -c of the beginning of each group. -c ier = error indicator. ier = 0 if no error occurred, or 1 if -c maxg was insufficient. -c -c incl and jdone are working arrays of length n. -c----------------------------------------------------------------------- - integer i, j, k, kmin, kmax, ncol, ng -c - ier = 0 - do 10 j = 1,n - 10 jdone(j) = 0 - ncol = 1 - do 60 ng = 1,maxg - igp(ng) = ncol - do 20 i = 1,n - 20 incl(i) = 0 - do 50 j = 1,n -c reject column j if it is already in a group.-------------------------- - if (jdone(j) .eq. 1) go to 50 - kmin = ia(j) - kmax = ia(j+1) - 1 - do 30 k = kmin,kmax -c reject column j if it overlaps any column already in this group.------ - i = ja(k) - if (incl(i) .eq. 1) go to 50 - 30 continue -c accept column j into group ng.---------------------------------------- - jgp(ncol) = j - ncol = ncol + 1 - jdone(j) = 1 - do 40 k = kmin,kmax - i = ja(k) - 40 incl(i) = 1 - 50 continue -c stop if this group is empty (grouping is complete).------------------- - if (ncol .eq. igp(ng)) go to 70 - 60 continue -c error return if not all columns were chosen (maxg too small).--------- - if (ncol .le. n) go to 80 - ng = maxg - 70 ngrp = ng - 1 - return - 80 ier = 1 - return -c----------------------- end of subroutine jgroup ---------------------- - end - subroutine nsfc - * (n, r, ic, ia,ja, jlmax,il,jl,ijl, jumax,iu,ju,iju, - * q, ira,jra, irac, irl,jrl, iru,jru, flag) -clll. optimize -c*** subroutine nsfc -c*** symbolic ldu-factorization of nonsymmetric sparse matrix -c (compressed pointer storage) -c -c -c input variables.. n, r, ic, ia, ja, jlmax, jumax. -c output variables.. il, jl, ijl, iu, ju, iju, flag. -c -c parameters used internally.. -c nia - q - suppose m* is the result of reordering m. if -c - processing of the ith row of m* (hence the ith -c - row of u) is being done, q(j) is initially -c - nonzero if m*(i,j) is nonzero (j.ge.i). since -c - values need not be stored, each entry points to the -c - next nonzero and q(n+1) points to the first. n+1 -c - indicates the end of the list. for example, if n=9 -c - and the 5th row of m* is -c - 0 x x 0 x 0 0 x 0 -c - then q will initially be -c - a a a a 8 a a 10 5 (a - arbitrary). -c - as the algorithm proceeds, other elements of q -c - are inserted in the list because of fillin. -c - q is used in an analogous manner to compute the -c - ith column of l. -c - size = n+1. -c nia - ira, - vectors used to find the columns of m. at the kth -c nia - jra, step of the factorization, irac(k) points to the -c nia - irac head of a linked list in jra of row indices i -c - such that i .ge. k and m(i,k) is nonzero. zero -c - indicates the end of the list. ira(i) (i.ge.k) -c - points to the smallest j such that j .ge. k and -c - m(i,j) is nonzero. -c - size of each = n. -c nia - irl, - vectors used to find the rows of l. at the kth step -c nia - jrl of the factorization, jrl(k) points to the head -c - of a linked list in jrl of column indices j -c - such j .lt. k and l(k,j) is nonzero. zero -c - indicates the end of the list. irl(j) (j.lt.k) -c - points to the smallest i such that i .ge. k and -c - l(i,j) is nonzero. -c - size of each = n. -c nia - iru, - vectors used in a manner analogous to irl and jrl -c nia - jru to find the columns of u. -c - size of each = n. -c -c internal variables.. -c jlptr - points to the last position used in jl. -c juptr - points to the last position used in ju. -c jmin,jmax - are the indices in a or u of the first and last -c elements to be examined in a given row. -c for example, jmin=ia(k), jmax=ia(k+1)-1. -c - integer cend, qm, rend, rk, vj - integer ia(1), ja(1), ira(1), jra(1), il(1), jl(1), ijl(1) - integer iu(1), ju(1), iju(1), irl(1), jrl(1), iru(1), jru(1) - integer r(1), ic(1), q(1), irac(1), flag -c -c ****** initialize pointers **************************************** - np1 = n + 1 - jlmin = 1 - jlptr = 0 - il(1) = 1 - jumin = 1 - juptr = 0 - iu(1) = 1 - do 1 k=1,n - irac(k) = 0 - jra(k) = 0 - jrl(k) = 0 - 1 jru(k) = 0 -c ****** initialize column pointers for a *************************** - do 2 k=1,n - rk = r(k) - iak = ia(rk) - if (iak .ge. ia(rk+1)) go to 101 - jaiak = ic(ja(iak)) - if (jaiak .gt. k) go to 105 - jra(k) = irac(jaiak) - irac(jaiak) = k - 2 ira(k) = iak -c -c ****** for each column of l and row of u ************************** - do 41 k=1,n -c -c ****** initialize q for computing kth column of l ***************** - q(np1) = np1 - luk = -1 -c ****** by filling in kth column of a ****************************** - vj = irac(k) - if (vj .eq. 0) go to 5 - 3 qm = np1 - 4 m = qm - qm = q(m) - if (qm .lt. vj) go to 4 - if (qm .eq. vj) go to 102 - luk = luk + 1 - q(m) = vj - q(vj) = qm - vj = jra(vj) - if (vj .ne. 0) go to 3 -c ****** link through jru ******************************************* - 5 lastid = 0 - lasti = 0 - ijl(k) = jlptr - i = k - 6 i = jru(i) - if (i .eq. 0) go to 10 - qm = np1 - jmin = irl(i) - jmax = ijl(i) + il(i+1) - il(i) - 1 - long = jmax - jmin - if (long .lt. 0) go to 6 - jtmp = jl(jmin) - if (jtmp .ne. k) long = long + 1 - if (jtmp .eq. k) r(i) = -r(i) - if (lastid .ge. long) go to 7 - lasti = i - lastid = long -c ****** and merge the corresponding columns into the kth column **** - 7 do 9 j=jmin,jmax - vj = jl(j) - 8 m = qm - qm = q(m) - if (qm .lt. vj) go to 8 - if (qm .eq. vj) go to 9 - luk = luk + 1 - q(m) = vj - q(vj) = qm - qm = vj - 9 continue - go to 6 -c ****** lasti is the longest column merged into the kth ************ -c ****** see if it equals the entire kth column ********************* - 10 qm = q(np1) - if (qm .ne. k) go to 105 - if (luk .eq. 0) go to 17 - if (lastid .ne. luk) go to 11 -c ****** if so, jl can be compressed ******************************** - irll = irl(lasti) - ijl(k) = irll + 1 - if (jl(irll) .ne. k) ijl(k) = ijl(k) - 1 - go to 17 -c ****** if not, see if kth column can overlap the previous one ***** - 11 if (jlmin .gt. jlptr) go to 15 - qm = q(qm) - do 12 j=jlmin,jlptr - if (jl(j) - qm) 12, 13, 15 - 12 continue - go to 15 - 13 ijl(k) = j - do 14 i=j,jlptr - if (jl(i) .ne. qm) go to 15 - qm = q(qm) - if (qm .gt. n) go to 17 - 14 continue - jlptr = j - 1 -c ****** move column indices from q to jl, update vectors *********** - 15 jlmin = jlptr + 1 - ijl(k) = jlmin - if (luk .eq. 0) go to 17 - jlptr = jlptr + luk - if (jlptr .gt. jlmax) go to 103 - qm = q(np1) - do 16 j=jlmin,jlptr - qm = q(qm) - 16 jl(j) = qm - 17 irl(k) = ijl(k) - il(k+1) = il(k) + luk -c -c ****** initialize q for computing kth row of u ******************** - q(np1) = np1 - luk = -1 -c ****** by filling in kth row of reordered a *********************** - rk = r(k) - jmin = ira(k) - jmax = ia(rk+1) - 1 - if (jmin .gt. jmax) go to 20 - do 19 j=jmin,jmax - vj = ic(ja(j)) - qm = np1 - 18 m = qm - qm = q(m) - if (qm .lt. vj) go to 18 - if (qm .eq. vj) go to 102 - luk = luk + 1 - q(m) = vj - q(vj) = qm - 19 continue -c ****** link through jrl, ****************************************** - 20 lastid = 0 - lasti = 0 - iju(k) = juptr - i = k - i1 = jrl(k) - 21 i = i1 - if (i .eq. 0) go to 26 - i1 = jrl(i) - qm = np1 - jmin = iru(i) - jmax = iju(i) + iu(i+1) - iu(i) - 1 - long = jmax - jmin - if (long .lt. 0) go to 21 - jtmp = ju(jmin) - if (jtmp .eq. k) go to 22 -c ****** update irl and jrl, ***************************************** - long = long + 1 - cend = ijl(i) + il(i+1) - il(i) - irl(i) = irl(i) + 1 - if (irl(i) .ge. cend) go to 22 - j = jl(irl(i)) - jrl(i) = jrl(j) - jrl(j) = i - 22 if (lastid .ge. long) go to 23 - lasti = i - lastid = long -c ****** and merge the corresponding rows into the kth row ********** - 23 do 25 j=jmin,jmax - vj = ju(j) - 24 m = qm - qm = q(m) - if (qm .lt. vj) go to 24 - if (qm .eq. vj) go to 25 - luk = luk + 1 - q(m) = vj - q(vj) = qm - qm = vj - 25 continue - go to 21 -c ****** update jrl(k) and irl(k) *********************************** - 26 if (il(k+1) .le. il(k)) go to 27 - j = jl(irl(k)) - jrl(k) = jrl(j) - jrl(j) = k -c ****** lasti is the longest row merged into the kth *************** -c ****** see if it equals the entire kth row ************************ - 27 qm = q(np1) - if (qm .ne. k) go to 105 - if (luk .eq. 0) go to 34 - if (lastid .ne. luk) go to 28 -c ****** if so, ju can be compressed ******************************** - irul = iru(lasti) - iju(k) = irul + 1 - if (ju(irul) .ne. k) iju(k) = iju(k) - 1 - go to 34 -c ****** if not, see if kth row can overlap the previous one ******** - 28 if (jumin .gt. juptr) go to 32 - qm = q(qm) - do 29 j=jumin,juptr - if (ju(j) - qm) 29, 30, 32 - 29 continue - go to 32 - 30 iju(k) = j - do 31 i=j,juptr - if (ju(i) .ne. qm) go to 32 - qm = q(qm) - if (qm .gt. n) go to 34 - 31 continue - juptr = j - 1 -c ****** move row indices from q to ju, update vectors ************** - 32 jumin = juptr + 1 - iju(k) = jumin - if (luk .eq. 0) go to 34 - juptr = juptr + luk - if (juptr .gt. jumax) go to 106 - qm = q(np1) - do 33 j=jumin,juptr - qm = q(qm) - 33 ju(j) = qm - 34 iru(k) = iju(k) - iu(k+1) = iu(k) + luk -c -c ****** update iru, jru ******************************************** - i = k - 35 i1 = jru(i) - if (r(i) .lt. 0) go to 36 - rend = iju(i) + iu(i+1) - iu(i) - if (iru(i) .ge. rend) go to 37 - j = ju(iru(i)) - jru(i) = jru(j) - jru(j) = i - go to 37 - 36 r(i) = -r(i) - 37 i = i1 - if (i .eq. 0) go to 38 - iru(i) = iru(i) + 1 - go to 35 -c -c ****** update ira, jra, irac ************************************** - 38 i = irac(k) - if (i .eq. 0) go to 41 - 39 i1 = jra(i) - ira(i) = ira(i) + 1 - if (ira(i) .ge. ia(r(i)+1)) go to 40 - irai = ira(i) - jairai = ic(ja(irai)) - if (jairai .gt. i) go to 40 - jra(i) = irac(jairai) - irac(jairai) = i - 40 i = i1 - if (i .ne. 0) go to 39 - 41 continue -c - ijl(n) = jlptr - iju(n) = juptr - flag = 0 - return -c -c ** error.. null row in a - 101 flag = n + rk - return -c ** error.. duplicate entry in a - 102 flag = 2*n + rk - return -c ** error.. insufficient storage for jl - 103 flag = 3*n + k - return -c ** error.. null pivot - 105 flag = 5*n + k - return -c ** error.. insufficient storage for ju - 106 flag = 6*n + k - return - end - subroutine sro - * (n, ip, ia,ja,a, q, r, dflag) -clll. optimize -c*********************************************************************** -c sro -- symmetric reordering of sparse symmetric matrix -c*********************************************************************** -c -c description -c -c the nonzero entries of the matrix m are assumed to be stored -c symmetrically in (ia,ja,a) format (i.e., not both m(i,j) and m(j,i) -c are stored if i ne j). -c -c sro does not rearrange the order of the rows, but does move -c nonzeroes from one row to another to ensure that if m(i,j) will be -c in the upper triangle of m with respect to the new ordering, then -c m(i,j) is stored in row i (and thus m(j,i) is not stored), whereas -c if m(i,j) will be in the strict lower triangle of m, then m(j,i) is -c stored in row j (and thus m(i,j) is not stored). -c -c -c additional parameters -c -c q - integer one-dimensional work array. dimension = n -c -c r - integer one-dimensional work array. dimension = number of -c nonzero entries in the upper triangle of m -c -c dflag - logical variable. if dflag = .true., then store nonzero -c diagonal elements at the beginning of the row -c -c----------------------------------------------------------------------- -c - integer ip(1), ia(1), ja(1), q(1), r(1) - KPP_REAL a(1), ak - logical dflag -c -c -c--phase 1 -- find row in which to store each nonzero -c----initialize count of nonzeroes to be stored in each row - do 1 i=1,n - 1 q(i) = 0 -c -c----for each nonzero element a(j) - do 3 i=1,n - jmin = ia(i) - jmax = ia(i+1) - 1 - if (jmin.gt.jmax) go to 3 - do 2 j=jmin,jmax -c -c--------find row (=r(j)) and column (=ja(j)) in which to store a(j) ... - k = ja(j) - if (ip(k).lt.ip(i)) ja(j) = i - if (ip(k).ge.ip(i)) k = i - r(j) = k -c -c--------... and increment count of nonzeroes (=q(r(j)) in that row - 2 q(k) = q(k) + 1 - 3 continue -c -c -c--phase 2 -- find new ia and permutation to apply to (ja,a) -c----determine pointers to delimit rows in permuted (ja,a) - do 4 i=1,n - ia(i+1) = ia(i) + q(i) - 4 q(i) = ia(i+1) -c -c----determine where each (ja(j),a(j)) is stored in permuted (ja,a) -c----for each nonzero element (in reverse order) - ilast = 0 - jmin = ia(1) - jmax = ia(n+1) - 1 - j = jmax - do 6 jdummy=jmin,jmax - i = r(j) - if (.not.dflag .or. ja(j).ne.i .or. i.eq.ilast) go to 5 -c -c------if dflag, then put diagonal nonzero at beginning of row - r(j) = ia(i) - ilast = i - go to 6 -c -c------put (off-diagonal) nonzero in last unused location in row - 5 q(i) = q(i) - 1 - r(j) = q(i) -c - 6 j = j-1 -c -c -c--phase 3 -- permute (ja,a) to upper triangular form (wrt new ordering) - do 8 j=jmin,jmax - 7 if (r(j).eq.j) go to 8 - k = r(j) - r(j) = r(k) - r(k) = k - jak = ja(k) - ja(k) = ja(j) - ja(j) = jak - ak = a(k) - a(k) = a(j) - a(j) = ak - go to 7 - 8 continue -c - return - end - subroutine md - * (n, ia,ja, max, v,l, head,last,next, mark, flag) -clll. optimize -c*********************************************************************** -c md -- minimum degree algorithm (based on element model) -c*********************************************************************** -c -c description -c -c md finds a minimum degree ordering of the rows and columns of a -c general sparse matrix m stored in (ia,ja,a) format. -c when the structure of m is nonsymmetric, the ordering is that -c obtained for the symmetric matrix m + m-transpose. -c -c -c additional parameters -c -c max - declared dimension of the one-dimensional arrays v and l. -c max must be at least n+2k, where k is the number of -c nonzeroes in the strict upper triangle of m + m-transpose -c -c v - integer one-dimensional work array. dimension = max -c -c l - integer one-dimensional work array. dimension = max -c -c head - integer one-dimensional work array. dimension = n -c -c last - integer one-dimensional array used to return the permutation -c of the rows and columns of m corresponding to the minimum -c degree ordering. dimension = n -c -c next - integer one-dimensional array used to return the inverse of -c the permutation returned in last. dimension = n -c -c mark - integer one-dimensional work array (may be the same as v). -c dimension = n -c -c flag - integer error flag. values and their meanings are - -c 0 no errors detected -c 9n+k insufficient storage in md -c -c -c definitions of internal parameters -c -c ---------+--------------------------------------------------------- -c v(s) - value field of list entry -c ---------+--------------------------------------------------------- -c l(s) - link field of list entry (0 =) end of list) -c ---------+--------------------------------------------------------- -c l(vi) - pointer to element list of uneliminated vertex vi -c ---------+--------------------------------------------------------- -c l(ej) - pointer to boundary list of active element ej -c ---------+--------------------------------------------------------- -c head(d) - vj =) vj head of d-list d -c - 0 =) no vertex in d-list d -c -c -c - vi uneliminated vertex -c - vi in ek - vi not in ek -c ---------+-----------------------------+--------------------------- -c next(vi) - undefined but nonnegative - vj =) vj next in d-list -c - - 0 =) vi tail of d-list -c ---------+-----------------------------+--------------------------- -c last(vi) - (not set until mdp) - -d =) vi head of d-list d -c --vk =) compute degree - vj =) vj last in d-list -c - ej =) vi prototype of ej - 0 =) vi not in any d-list -c - 0 =) do not compute degree - -c ---------+-----------------------------+--------------------------- -c mark(vi) - mark(vk) - nonneg. tag .lt. mark(vk) -c -c -c - vi eliminated vertex -c - ei active element - otherwise -c ---------+-----------------------------+--------------------------- -c next(vi) - -j =) vi was j-th vertex - -j =) vi was j-th vertex -c - to be eliminated - to be eliminated -c ---------+-----------------------------+--------------------------- -c last(vi) - m =) size of ei = m - undefined -c ---------+-----------------------------+--------------------------- -c mark(vi) - -m =) overlap count of ei - undefined -c - with ek = m - -c - otherwise nonnegative tag - -c - .lt. mark(vk) - -c -c----------------------------------------------------------------------- -c - integer ia(1), ja(1), v(1), l(1), head(1), last(1), next(1), - * mark(1), flag, tag, dmin, vk,ek, tail - equivalence (vk,ek) -c -c----initialization - tag = 0 - CALL mdi - * (n, ia,ja, max,v,l, head,last,next, mark,tag, flag) - if (flag.ne.0) return -c - k = 0 - dmin = 1 -c -c----while k .lt. n do - 1 if (k.ge.n) go to 4 -c -c------search for vertex of minimum degree - 2 if (head(dmin).gt.0) go to 3 - dmin = dmin + 1 - go to 2 -c -c------remove vertex vk of minimum degree from degree list - 3 vk = head(dmin) - head(dmin) = next(vk) - if (head(dmin).gt.0) last(head(dmin)) = -dmin -c -c------number vertex vk, adjust tag, and tag vk - k = k+1 - next(vk) = -k - last(ek) = dmin - 1 - tag = tag + last(ek) - mark(vk) = tag -c -c------form element ek from uneliminated neighbors of vk - CALL mdm - * (vk,tail, v,l, last,next, mark) -c -c------purge inactive elements and do mass elimination - CALL mdp - * (k,ek,tail, v,l, head,last,next, mark) -c -c------update degrees of uneliminated vertices in ek - CALL mdu - * (ek,dmin, v,l, head,last,next, mark) -c - go to 1 -c -c----generate inverse permutation from permutation - 4 do 5 k=1,n - next(k) = -next(k) - 5 last(next(k)) = k -c - return - end - subroutine mdi - * (n, ia,ja, max,v,l, head,last,next, mark,tag, flag) -clll. optimize -c*********************************************************************** -c mdi -- initialization -c*********************************************************************** - integer ia(1), ja(1), v(1), l(1), head(1), last(1), next(1), - * mark(1), tag, flag, sfs, vi,dvi, vj -c -c----initialize degrees, element lists, and degree lists - do 1 vi=1,n - mark(vi) = 1 - l(vi) = 0 - 1 head(vi) = 0 - sfs = n+1 -c -c----create nonzero structure -c----for each nonzero entry a(vi,vj) - do 6 vi=1,n - jmin = ia(vi) - jmax = ia(vi+1) - 1 - if (jmin.gt.jmax) go to 6 - do 5 j=jmin,jmax - vj = ja(j) - if (vj-vi) 2, 5, 4 -c -c------if a(vi,vj) is in strict lower triangle -c------check for previous occurrence of a(vj,vi) - 2 lvk = vi - kmax = mark(vi) - 1 - if (kmax .eq. 0) go to 4 - do 3 k=1,kmax - lvk = l(lvk) - if (v(lvk).eq.vj) go to 5 - 3 continue -c----for unentered entries a(vi,vj) - 4 if (sfs.ge.max) go to 101 -c -c------enter vj in element list for vi - mark(vi) = mark(vi) + 1 - v(sfs) = vj - l(sfs) = l(vi) - l(vi) = sfs - sfs = sfs+1 -c -c------enter vi in element list for vj - mark(vj) = mark(vj) + 1 - v(sfs) = vi - l(sfs) = l(vj) - l(vj) = sfs - sfs = sfs+1 - 5 continue - 6 continue -c -c----create degree lists and initialize mark vector - do 7 vi=1,n - dvi = mark(vi) - next(vi) = head(dvi) - head(dvi) = vi - last(vi) = -dvi - nextvi = next(vi) - if (nextvi.gt.0) last(nextvi) = vi - 7 mark(vi) = tag -c - return -c -c ** error- insufficient storage - 101 flag = 9*n + vi - return - end - subroutine mdm - * (vk,tail, v,l, last,next, mark) -clll. optimize -c*********************************************************************** -c mdm -- form element from uneliminated neighbors of vk -c*********************************************************************** - integer vk, tail, v(1), l(1), last(1), next(1), mark(1), - * tag, s,ls,vs,es, b,lb,vb, blp,blpmax - equivalence (vs, es) -c -c----initialize tag and list of uneliminated neighbors - tag = mark(vk) - tail = vk -c -c----for each vertex/element vs/es in element list of vk - ls = l(vk) - 1 s = ls - if (s.eq.0) go to 5 - ls = l(s) - vs = v(s) - if (next(vs).lt.0) go to 2 -c -c------if vs is uneliminated vertex, then tag and append to list of -c------uneliminated neighbors - mark(vs) = tag - l(tail) = s - tail = s - go to 4 -c -c------if es is active element, then ... -c--------for each vertex vb in boundary list of element es - 2 lb = l(es) - blpmax = last(es) - do 3 blp=1,blpmax - b = lb - lb = l(b) - vb = v(b) -c -c----------if vb is untagged vertex, then tag and append to list of -c----------uneliminated neighbors - if (mark(vb).ge.tag) go to 3 - mark(vb) = tag - l(tail) = b - tail = b - 3 continue -c -c--------mark es inactive - mark(es) = tag -c - 4 go to 1 -c -c----terminate list of uneliminated neighbors - 5 l(tail) = 0 -c - return - end - subroutine mdp - * (k,ek,tail, v,l, head,last,next, mark) -clll. optimize -c*********************************************************************** -c mdp -- purge inactive elements and do mass elimination -c*********************************************************************** - integer ek, tail, v(1), l(1), head(1), last(1), next(1), - * mark(1), tag, free, li,vi,lvi,evi, s,ls,es, ilp,ilpmax -c -c----initialize tag - tag = mark(ek) -c -c----for each vertex vi in ek - li = ek - ilpmax = last(ek) - if (ilpmax.le.0) go to 12 - do 11 ilp=1,ilpmax - i = li - li = l(i) - vi = v(li) -c -c------remove vi from degree list - if (last(vi).eq.0) go to 3 - if (last(vi).gt.0) go to 1 - head(-last(vi)) = next(vi) - go to 2 - 1 next(last(vi)) = next(vi) - 2 if (next(vi).gt.0) last(next(vi)) = last(vi) -c -c------remove inactive items from element list of vi - 3 ls = vi - 4 s = ls - ls = l(s) - if (ls.eq.0) go to 6 - es = v(ls) - if (mark(es).lt.tag) go to 5 - free = ls - l(s) = l(ls) - ls = s - 5 go to 4 -c -c------if vi is interior vertex, then remove from list and eliminate - 6 lvi = l(vi) - if (lvi.ne.0) go to 7 - l(i) = l(li) - li = i -c - k = k+1 - next(vi) = -k - last(ek) = last(ek) - 1 - go to 11 -c -c------else ... -c--------classify vertex vi - 7 if (l(lvi).ne.0) go to 9 - evi = v(lvi) - if (next(evi).ge.0) go to 9 - if (mark(evi).lt.0) go to 8 -c -c----------if vi is prototype vertex, then mark as such, initialize -c----------overlap count for corresponding element, and move vi to end -c----------of boundary list - last(vi) = evi - mark(evi) = -1 - l(tail) = li - tail = li - l(i) = l(li) - li = i - go to 10 -c -c----------else if vi is duplicate vertex, then mark as such and adjust -c----------overlap count for corresponding element - 8 last(vi) = 0 - mark(evi) = mark(evi) - 1 - go to 10 -c -c----------else mark vi to compute degree - 9 last(vi) = -ek -c -c--------insert ek in element list of vi - 10 v(free) = ek - l(free) = l(vi) - l(vi) = free - 11 continue -c -c----terminate boundary list - 12 l(tail) = 0 -c - return - end - subroutine mdu - * (ek,dmin, v,l, head,last,next, mark) -clll. optimize -c*********************************************************************** -c mdu -- update degrees of uneliminated vertices in ek -c*********************************************************************** - integer ek, dmin, v(1), l(1), head(1), last(1), next(1), - * mark(1), tag, vi,evi,dvi, s,vs,es, b,vb, ilp,ilpmax, - * blp,blpmax - equivalence (vs, es) -c -c----initialize tag - tag = mark(ek) - last(ek) -c -c----for each vertex vi in ek - i = ek - ilpmax = last(ek) - if (ilpmax.le.0) go to 11 - do 10 ilp=1,ilpmax - i = l(i) - vi = v(i) - if (last(vi)) 1, 10, 8 -c -c------if vi neither prototype nor duplicate vertex, then merge elements -c------to compute degree - 1 tag = tag + 1 - dvi = last(ek) -c -c--------for each vertex/element vs/es in element list of vi - s = l(vi) - 2 s = l(s) - if (s.eq.0) go to 9 - vs = v(s) - if (next(vs).lt.0) go to 3 -c -c----------if vs is uneliminated vertex, then tag and adjust degree - mark(vs) = tag - dvi = dvi + 1 - go to 5 -c -c----------if es is active element, then expand -c------------check for outmatched vertex - 3 if (mark(es).lt.0) go to 6 -c -c------------for each vertex vb in es - b = es - blpmax = last(es) - do 4 blp=1,blpmax - b = l(b) - vb = v(b) -c -c--------------if vb is untagged, then tag and adjust degree - if (mark(vb).ge.tag) go to 4 - mark(vb) = tag - dvi = dvi + 1 - 4 continue -c - 5 go to 2 -c -c------else if vi is outmatched vertex, then adjust overlaps but do not -c------compute degree - 6 last(vi) = 0 - mark(es) = mark(es) - 1 - 7 s = l(s) - if (s.eq.0) go to 10 - es = v(s) - if (mark(es).lt.0) mark(es) = mark(es) - 1 - go to 7 -c -c------else if vi is prototype vertex, then calculate degree by -c------inclusion/exclusion and reset overlap count - 8 evi = last(vi) - dvi = last(ek) + last(evi) + mark(evi) - mark(evi) = 0 -c -c------insert vi in appropriate degree list - 9 next(vi) = head(dvi) - head(dvi) = vi - last(vi) = -dvi - if (next(vi).gt.0) last(next(vi)) = vi - if (dvi.lt.dmin) dmin = dvi -c - 10 continue -c - 11 return - end - KPP_REAL FUNCTION D1MACH (IDUM) - INTEGER IDUM -C----------------------------------------------------------------------- -C This routine computes the unit roundoff of the machine. -C This is defined as the smallest positive machine number -C u such that 1.0 + u .ne. 1.0 -C -C Subroutines/functions called by D1MACH.. None -C----------------------------------------------------------------------- - KPP_REAL U, COMP - U = 1.0D0 - 10 U = U*0.5D0 - COMP = 1.0D0 + U - IF (COMP .NE. 1.0D0) GO TO 10 - D1MACH = U*2.0D0 - RETURN -C----------------------- End of Function D1MACH ------------------------ - END - - SUBROUTINE FUNC_CHEM (N, T, V, FCT) - IMPLICIT NONE - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Global.h' - KPP_REAL V(NVAR), FCT(NVAR) - KPP_REAL T,TOLD - INTEGER N - TOLD = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - TIME = TOLD - CALL Fun(V, FIX, RCONST, FCT) - RETURN - END - - SUBROUTINE JAC_CHEM (N, T, V, JV, j, ian, jan) - IMPLICIT NONE - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Global.h' - KPP_REAL V(NVAR), JV(NVAR,NVAR) - KPP_REAL T,TOLD - INTEGER N, j, ian(1), jan(1), ii, jj - TOLD = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - TIME = TOLD - - DO ii=1,NVAR - DO jj=1,NVAR - JV(ii,jj) = 0.D0 - END DO - END DO - call Jac(V, FIX, RCONST, JV) - - RETURN - END - diff --git a/int.modified_WCOPY/atm_odessa_ddm.def b/int.modified_WCOPY/atm_odessa_ddm.def deleted file mode 100644 index 193022c34d2c00a0f0c2022b058e00bc3fe1fd46..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/atm_odessa_ddm.def +++ /dev/null @@ -1,42 +0,0 @@ - -#FUNCTION AGGREGATE -#JACOBIAN FULL -#DOUBLE ON -#INTFILE atm_odessa_ddm - -#INLINE F77_GLOBAL - INTEGER Autonomous - COMMON /INTGDATA/ Autonomous - REAL*8 STEPSTART - COMMON /GDATA/ STEPSTART -#ENDINLINE - -#INLINE F77_INIT - STEPMIN=0.0001 - STEPMAX=3600. - Autonomous = 0 - STEPSTART=STEPMIN -#ENDINLINE - - - -#INLINE C_GLOBAL -extern int Autonomous; -extern double STEPSTART; -#ENDINLINE - -#INLINE C_DATA_INT -int Autonomous; -double STEPSTART; -#ENDINLINE - - - -#INLINE C_INIT - STEPMIN=0.0001; - STEPMAX=3600.0; - Autonomous = 0; - STEPSTART=STEPMIN; -#ENDINLINE - - diff --git a/int.modified_WCOPY/atm_odessa_ddm.f b/int.modified_WCOPY/atm_odessa_ddm.f deleted file mode 100644 index 55bfd2e731bebdf55bf716c98792e071994f2e87..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/atm_odessa_ddm.f +++ /dev/null @@ -1,4398 +0,0 @@ - SUBROUTINE INTEGRATE( NSENSIT, Y, TIN, TOUT ) - - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Global.h' - -C TIN - Start Time - REAL*8 TIN -C TOUT - End Time - REAL*8 TOUT -C Concentrations and Sensitivities - REAL*8 Y(NVAR,NSENSIT+1), PARAMS(NSENSIT) -C --- Note: Y contains: (1:NVAR) concentrations, followed by -C --- (1:NVAR) sensitivities w.r.t. first parameter, followed by -C --- etc., followed by -C --- (1:NVAR) sensitivities w.r.t. NSENSIT's parameter - INTEGER i - - INTEGER LIW, LRW -C PARAMETER (LRW = 22 + 8*(NSENSIT+1)*NVAR + NVAR**2 + NVAR) -C PARAMETER (LIW = 21 + NVAR + NSENSIT) -C REAL*8 RWORK(LRW) -C INTEGER IWORK(LIW) -C Note: the following dynamic allocation is not standard F77 and may not work on -C some systems. Declare LRW, LIW parameters as above with some upper bound -C used for NSENSIT - REAL*8 RWORK(22 + 8*(NSENSIT+1)*NVAR + NVAR**2 + NVAR) - INTEGER IWORK(21 + NVAR + NSENSIT) - - INTEGER IOPT(3), NEQ(2) - - EXTERNAL FUNC_CHEM,JAC,DFUNC_CHEMDPAR - - MF = 21 ! --- BDF plus user-supplied Jacobian - - LRW = 22 + 8*(NSENSIT+1)*NVAR + NVAR**2 + NVAR - LIW = 21 + NVAR + NSENSIT - - NEQ(1) = NVAR ! --- No. of Variables - NEQ(2) = NSENSIT ! --- No of parameters - - ITOL=1 ! --- 1=Scalar Tolerances; 4 = VECTOR TOLERANCES - ITASK=1 ! --- Normal Output - ISTATE=1 - IOPT(1)=1 ! --- 0= No optional parameters, 1=Optional parameters - IOPT(2)=1 ! --- 1=Perform sensitivity analysis; 0 if not - IOPT(3)=0 ! --- DFUNC_CHEMDPAR supplied by the user; - ! --- 0 if finite differences are to be used -C --- Set optional parameters - DO 10 i=1,LRW - RWORK(i) = 0.0D0 - 10 CONTINUE - DO 20 i=1,LIW - IWORK(i) = 0 - 20 CONTINUE - - RWORK(5) = STEPMIN ! THE STEP SIZE TO BE ATTEMPTED ON THE FIRST STEP. - RWORK(6) = STEPMAX ! THE MAXIMUM ABSOLUTE STEP SIZE ALLOWED. - RWORK(7) = 0.0D0 ! THE MINIMUM ABSOLUTE STEP SIZE ALLOWED. - IWORK(6) = 5000 ! MAXIMUM NUMBER OF (INTERNALLY DEFINED) STEPS - - CALL ODESSA( FUNC_CHEM,DFUNC_CHEMDPAR,NEQ,Y,PARAMS,TIN,TOUT, - & ITOL,RTOL,ATOL, - 1 ITASK,ISTATE,IOPT,RWORK,LRW,IWORK,LIW, - & JAC,MF) - - IF (ISTATE.LT.0) THEN - print *,'ODESSA: Unsucessfull exit at T=', - & TIN,' (ISTATE=',ISTATE,')' - ENDIF - - RETURN - END - - - - SUBROUTINE FUNC_CHEM (N, T, V, PARAMS, FCT) - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Global.h' - - DIMENSION V(NVAR), PARAMS(*), FCT(NVAR) - TOLD = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - TIME = TOLD - CALL Fun(V, FIX, RCONST, FCT) - RETURN - END - - SUBROUTINE DFUNC_CHEMDPAR (N, T, V, PARAMS, DFCT, JPAR) - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Global.h' - - DIMENSION V(NVAR), PARAMS(*), DFCT(NVAR) - INTEGER JPAR, i -C This setting is required for sensitivities w.r.t. initial conditions - DO i=1,NVAR - DFCT(i) = 0.d0 - END DO - RETURN - END - - SUBROUTINE JAC (N, T, V, PARAMS, ML, MU, JV, NROWPD) - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Global.h' - - REAL*8 V(NVAR), PARAMS(*), JV(NVAR,NVAR) - INTEGER ML, MU, NROWPD - TOLD = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - TIME = TOLD - DO i=1,NVAR - DO j=1,NVAR - JV(i,j) = 0.D0 - END DO - END DO - CALL Jac(V, FIX, RCONST, JV) - RETURN - END -! - -C ALGORITHM 658, COLLECTED ALGORITHMS FROM ACM. -C THIS WORK PUBLISHED IN TRANSACTIONS ON MATHEMATICAL SOFTWARE, -C VOL. 14, NO. 1, P.61. -C----------------------------------------------------------------------- -C THIS IS THE SEPTEMBER 1, 1986 VERSION OF ODESSA.. -C AN ORDINARY DIFFERENTIAL EQUATION KppSolveR WITH EXPLICIT SIMULTANEOUS -C SENSITIVITY ANALYSIS. -C -C THIS PACKAGE IS A MODIFICATION OF THE AUGUST 13, 1981 VERSION OF -C LSODE.. LIVERMORE KppSolveR FOR ORDINARY DIFFERENTIAL EQUATIONS. -C THIS VERSION IS IN DOUBLE PRECISION. -C -C ODESSA KppSolveS FOR THE FIRST-ORDER SENSITIVITY COEFFICIENTS.. -C DY(I)/DP, FOR A SINGLE PARAMETER, OR, -C DY(I)/DP(J), FOR MULTIPLE PARAMETERS, -C ASSOCIATED WITH A SYSTEM OF ORDINARY DIFFERENTIAL EQUATIONS.. -C DY/DT = F(Y,T;P). -C----------------------------------------------------------------------- -C REFERENCES... -C -C 1. JORGE R. LEIS AND MARK A. KRAMER, THE SIMULTANEOUS SOLUTION AND -C EXPLICIT SENSITIVITY ANALYSIS OF SYSTEMS DESCRIBED BY ORDINARY -C DIFFERENTIAL EQUATIONS. SUBMITTED TO ACM TRANS. MATH. SOFTWARE, -C (1985). -C -C 2. JORGE R. LEIS AND MARK A. KRAMER, ODESSA - AN ORDINARY DIFFERENTIA -C EQUATION KppSolveR WITH EXPLICIT SIMULTANEOUS SENSITIVITY ANALYSIS. -C SUBMITTED TO ACM TRANS. MATH. SOFTWARE, (1985). -C -C 3. ALAN C. HINDMARSH, LSODE AND LSODI, TWO NEW INITIAL VALUE -C ORDINARY DIFFERENTIAL EQUATION KppSolveRS, ACM-SIGNUM NEWSLETTER, -C VOL. 15, NO. 4 (1980), PP. 10-11. -C----------------------------------------------------------------------- -C PROBLEM STATEMENT.. -C -C THE ODESSA MODIFICATION OF THE LSODE PACKAGE PROVIDES THE OPTION TO -C CALCULATE FIRST-ORDER SENSITIVITY COEFFICIENTS FOR A SYSTEM OF STIFF -C OR NON-STIFF EXPLICIT ORDINARY DIFFERENTIAL EQUATIONS OF THE GENERAL -C FORM : -C -C DY/DT = F(Y,T;P) (1) -C -C WHERE Y IS AN N-DIMENSIONAL DEPENDENT VARIABLE VECTOR, T IS THE -C INDEPENDENT INTEGRATION VARIABLE, AND P IS AN NPAR-DIMENSIONAL -C CONSTANT VECTOR. THE GOVERNING EQUATIONS FOR THE FIRST-ORDER -C SENSITIVITY COEFFICIENTS ARE GIVEN BY : -C -C S'(T) = J(T)*S(T) + DF/DP (2) -C -C WHERE -C -C S(T) = DY(T)/DP (= SENSITIVITY FUNCTIONS) -C S'(T) = D(DY(T)/DP)/DT -C J(T) = DF(Y,T;P)/DY(T) (= JACOBIAN MATRIX) -C AND DF/DP = DF(Y,T;P)/DP (= INHOMOGENEITY MATRIX) -C -C SOLUTION OF EQUATIONS (1) AND (2) PROCEEDS SIMULTANEOUSLY VIA AN -C EXTENSION OF THE LSODE PACKAGE AS DESCRIBED IN [1]. -C---------------------------------------------------------------------- -C ACKNOWLEDGEMENT : THE FOLLOWING ODESSA PACKAGE DOCUMENTATION IS A -C MODIFICATION OF THE LSODE DOCUMENTATION WHICH -C ACCOMPANIES THE LSODE PACKAGE CODE. -C---------------------------------------------------------------------- -C SUMMARY OF USAGE. -C -C COMMUNICATION BETWEEN THE USER AND THE ODESSA PACKAGE, FOR NORMAL -C SITUATIONS, IS SUMMARIZED HERE. THIS SUMMARY DESCRIBES ONLY A SUBSET -C OF THE FULL SET OF OPTIONS AVAILABLE. SEE THE FULL DESCRIPTION FOR -C DETAILS, INCLUDING OPTIONAL COMMUNICATION, NONSTANDARD OPTIONS, -C AND INSTRUCTIONS FOR SPECIAL SITUATIONS. SEE ALSO THE EXAMPLE -C PROBLEM (WITH PROGRAM AND OUTPUT) FOLLOWING THIS SUMMARY. -C -C A. FIRST PROVIDE A SUBROUTINE OF THE FORM.. -C SUBROUTINE F (N, T, Y, PAR, YDOT) -C DOUBLE PRECISION T, Y, PAR, YDOT -C DIMENSION Y(N), YDOT(N), PAR(NPAR) -C WHICH SUPPLIES THE VECTOR FUNCTION F BY LOADING YDOT(I) WITH F(I). -C N IS THE NUMBER OF FIRST-ORDER DIFFERENTIAL EQUATIONS IN THE -C ABOVE MODEL. NPAR IS THE NUMBER OF MODEL PARAMETERS FOR WHICH -C VECTOR SENSITIVITY FUNCTIONS ARE DESIRED. YOU ARE ALSO ENCOURAGED -C TO PROVIDE A SUBROUTINE OF THE FORM.. -C SUBROUTINE DF (N, T, Y, PAR, DFDP, JPAR) -C DOUBLE PRECISION T, Y, PAR, DFDP -C DIMENSION Y(N), PAR(NPAR), DFDP(N) -C GO TO (1,...,NPAR) JPAR -C 1 DFDP(1) = DF(1)/DP(1) -C . -C DFDP(I) = DF(I)/DP(1) -C . -C DFDP(N) = DF(N)/DP(1) -C RETURN -C 2 DFDP(1) = DF(1)/DP(2) -C . -C DFDP(I) = DF(I)/DP(2) -C . -C DFDP(N) = DF(N)/DP(2) -C RETURN -C . . -C . . -C RETURN -C NPAR DFDP(1) = DF(1)/DP(NPAR) -C . -C DFDP(I) = DF(I)/DP(NPAR) -C . -C DFDP(N) = DF(N)/DP(NPAR) -C RETURN -C END -C ONLY NONZERO ELEMENTS NEED BE LOADED. IF THIS IS NOT FEASIBLE, -C ODESSA WILL GENERATE THIS MATRIX INTERNALLY BY DIFFERENCE QUOTIENTS. -C -C B. NEXT DETERMINE (OR GUESS) WHETHER OR NOT THE PROBLEM IS STIFF. -C STIFFNESS OCCURS WHEN THE JACOBIAN MATRIX DF/DY HAS AN EIGENVALUE -C WHOSE REAL PART IS NEGATIVE AND LARGE IN MAGNITUDE, COMPARED TO THE -C RECIPROCAL OF THE T SPAN OF INTEREST. IF THE PROBLEM IS NONSTIFF, -C USE METH = 10. IF IT IS STIFF, USE METH = 20. THE USER IS REQUIRED -C TO INPUT THE METHOD FLAG MF = 10*METH + MITER. THERE ARE FOUR -C STANDARD CHOICES FOR MITER WHEN A SENSITIVITY ANALYSIS IS DESIRED, -C AND ODESSA REQUIRES THE JACOBIAN MATRIX IN SOME FORM. -C THIS MATRIX IS REGARDED EITHER AS FULL (MITER = 1 OR 2), -C OR BANDED (MITER = 4 OR 5). IN THE BANDED CASE, ODESSA REQUIRES TWO -C HALF-BANDWIDTH PARAMETERS ML AND MU. THESE ARE, RESPECTIVELY, THE -C WIDTHS OF THE LOWER AND UPPER PARTS OF THE BAND, EXCLUDING THE MAIN -C DIAGONAL. THUS THE BAND CONSISTS OF THE LOCATIONS (I,J) WITH -C I-ML .LE. J .LE. I+MU, AND THE FULL BANDWIDTH IS ML+MU+1. -C -C C. YOU ARE ENCOURAGED TO SUPPLY THE JACOBIAN DIRECTLY (MF = 11, 14, -C 21, OR 24), BUT IF THIS IS NOT FEASIBLE, ODESSA WILL COMPUTE IT -C INTERNALLY BY DIFFERENCE QUOTIENTS (MF = 12, 15, 22, OR 25). IF YOU -C ARE SUPPLYING THE JACOBIAN, PROVIDE A SUBROUTINE OF THE FORM.. -C SUBROUTINE JAC (NEQ, T, Y, PAR, ML, MU, PD, NROWPD) -C DOUBLE PRECISION T, Y, PAR, PD -C DIMENSION Y(N), PD(NROWPD,N), PAR(NPAR) -C WHICH SUPPLIES DF/DY BY LOADING PD AS FOLLOWS.. -C FOR A FULL JACOBIAN (MF = 11, OR 21), LOAD PD(I,J) WITH DF(I)/DY(J), -C THE PARTIAL DERIVATIVE OF F(I) WITH RESPECT TO Y(J). (IGNORE THE -C ML AND MU ARGUMENTS IN THIS CASE.) -C FOR A BANDED JACOBIAN (MF = 14, OR 24), LOAD PD(I-J+MU+1,J) WITH -C DF(I)/DY(J), I.E. LOAD THE DIAGONAL LINES OF DF/DY INTO THE ROWS OF -C PD FROM THE TOP DOWN. -C IN EITHER CASE, ONLY NONZERO ELEMENTS NEED BE LOADED. -C -C D. WRITE A MAIN PROGRAM WHICH CALLS SUBROUTINE ODESSA ONCE FOR -C EACH POINT AT WHICH ANSWERS ARE DESIRED. THIS SHOULD ALSO PROVIDE -C FOR POSSIBLE USE OF LOGICAL UNIT 6 FOR OUTPUT OF ERROR MESSAGES BY -C ODESSA. ON THE FIRST CALL TO ODESSA, SUPPLY ARGUMENTS AS FOLLOWS.. -C F = NAME OF SUBROUTINE FOR RIGHT-HAND SIDE VECTOR F (MODEL). -C THIS NAME MUST BE DECLARED EXTERNAL IN CALLING PROGRAM. -C DF = NAME OF SUBROUTINE FOR INHOMOGENEITY MATRIX DF/DP. -C IF USED (IDF = 1), THIS NAME MUST BE DECLARED EXTERNAL IN -C CALLING PROGRAM. IF NOT USED (IDF = 0), PASS A DUMMY NAME. -C N = NUMBER OF FIRST ORDER ODE-S IN MODEL; LOAD INTO NEQ(1). -C NPAR = NUMBER OF MODEL PARAMETERS OF INTEREST; LOAD INTO NEQ(2). -C Y = AN (N) BY (NPAR+1) REAL ARRAY OF INITIAL VALUES.. -C Y(I,1) , I = 1,N , CONTAIN THE STATE, OR MODEL, DEPENDENT -C VARIABLES, -C Y(I,J) , J = 2,NPAR , CONTAIN THE DEPENDENT SENSITIVITY -C COEFFICIENTS. -C PAR = A REAL ARRAY OF LENGTH NPAR CONTAINING MODEL PARAMETERS -C OF INTEREST. -C T = THE INITIAL VALUE OF THE INDEPENDENT VARIABLE. -C TOUT = FIRST POINT WHERE OUTPUT IS DESIRED (.NE. T). -C ITOL = 1, 2, 3, OR 4 ACCORDING AS RTOL, ATOL (BELOW) ARE SCALARS -C OR ARRAYS. -C RTOL = RELATIVE TOLERANCE PARAMETER (SCALAR OR (N) BY (NPAR+1) -C ARRAY). -C ATOL = ABSOLUTE TOLERANCE PARAMETER (SCALAR OR (N) BY (NPAR+1) -C ARRAY). -C THE ESTIMATED LOCAL ERROR IN Y(I,J) WILL BE CONTROLLED SO AS -C TO BE ROUGHLY LESS (IN MAGNITUDE) THAN -C EWT(I,J) = RTOL*ABS(Y(I,J)) + ATOL IF ITOL = 1, -C EWT(I,J) = RTOL*ABS(Y(I,J)) + ATOL(I,J) IF ITOL = 2, -C EWT(I,J) = RTOL(I,J)*ABS(Y(I,J) + ATOL IF ITOL = 3, OR -C EWT(I,J) = RTOL(I,J)*ABS(Y(I,J) + ATOL(I,J) IF ITOL = 4. -C THUS THE LOCAL ERROR TEST PASSES IF, IN EACH COMPONENT, -C EITHER THE ABSOLUTE ERROR IS LESS THAN ATOL (OR ATOL(I,J)), -C OR THE RELATIVE ERROR IS LESS THAN RTOL (OR RTOL(I,J)). -C USE RTOL = 0.0 FOR PURE ABSOLUTE ERROR CONTROL, AND -C USE ATOL = 0.0 FOR PURE RELATIVE ERROR CONTROL. -C CAUTION.. ACTUAL (GLOBAL) ERRORS MAY EXCEED THESE LOCAL -C TOLERANCES, SO CHOOSE THEM CONSERVATIVELY. -C ITASK = 1 FOR NORMAL COMPUTATION OF OUTPUT VALUES OF Y AT T = TOUT. -C ISTATE = INTEGER FLAG (INPUT AND OUTPUT). SET ISTATE = 1. -C IOPT = 0, TO INDICATE NO OPTIONAL INPUTS FOR INTEGRATION; -C LOAD INTO IOPT(1). -C ISOPT = 1, TO INDICATE SENSITIVITY ANALYSIS, = 0, TO INDICATE -C NO SENSITIVITY ANALYSIS; LOAD INTO IOPT(2). -C IDF = 1, IF SUBROUTINE DF (ABOVE) IS SUPPLIED BY THE USER, -C = 0, OTHERWISE; LOAD INTO IOPT(3). -C RWORK = REAL WORK ARRAY OF LENGTH AT LEAST.. -C 22 + 16*N + N**2 FOR MF = 11 OR 12, -C 22 + 17*N + (2*ML + MU)*N FOR MF = 14 OR 15, -C 22 + 9*N + N**2 FOR MF = 21 OR 22, -C 22 + 10*N + (2*ML + MU)*N FOR MF = 24 OR 25, -C IF ISOPT = 0, OR.. -C 22 + 15*(NPAR+1)*N + N**2 + N FOR MF = 11 OR 12, -C 24 + 15*(NPAR+1)*N + (2*ML+MU+2)*N + N FOR MF = 14 OR 15, -C 22 + 8*(NPAR+1)*N + N**2 + N FOR MF = 21 OR 22, -C 24 + 8*(NPAR+1)*N + (2*ML+MU+2)*N + N FOR MF = 24 OR 25, -C IF ISOPT = 1. -C LRW = DECLARED LENGTH OF RWORK (IN USER-S DIMENSION STATEMENT). -C IWORK = INTEGER WORK ARRAY OF LENGTH AT LEAST.. -C 20 + N IF ISOPT = 0, -C 21 + N + NPAR IF ISOPT = 1. -C IF MITER = 4 OR 5, INPUT IN IWORK(1),IWORK(2) THE LOWER -C AND UPPER HALF-BANDWIDTHS ML,MU (EXCLUDING MAIN DIAGONAL). -C LIW = DECLARED LENGTH OF IWORK (IN USER-S DIMENSION STATEMENT). -C JAC = NAME OF SUBROUTINE FOR JACOBIAN MATRIX. -C IF USED, THIS NAME MUST BE DECLARED EXTERNAL IN CALLING -C PROGRAM. IF NOT USED, PASS A DUMMY NAME. -C MF = METHOD FLAG. STANDARD VALUES FOR ISOPT = 0 ARE.. -C 10 FOR NONSTIFF (ADAMS) METHOD, NO JACOBIAN USED. -C 21 FOR STIFF (BDF) METHOD, USER-SUPPLIED FULL JACOBIAN. -C 22 FOR STIFF METHOD, INTERNALLY GENERATED FULL JACOBIAN. -C 24 FOR STIFF METHOD, USER-SUPPLIED BANDED JACOBIAN. -C 25 FOR STIFF METHOD, INTERNALLY GENERATED BANDED JACOBIAN. -C IF ISOPT = 1, MF = 10 IS ILLEGAL AND CAN BE REPLACED BY.. -C 11 FOR NONSTIFF METHOD, USER-SUPPLIED FULL JACOBIAN. -C 12 FOR NONSTIFF METHOD, INTERNALLY GENERATED FULL JACOBIAN. -C 14 FOR NONSTIFF METHOD, USER-SUPPLIED BANDED JACOBIAN. -C 15 FOR NONSTIFF METHOD, INTERNALLY GENERATED BANDED JACOBIAN. -C NOTE THAT THE MAIN PROGRAM MUST DECLARE ARRAYS Y, RWORK, IWORK, AND -C POSSIBLY ATOL AND RTOL, AS WELL AS NEQ, IOPT, AND PAR IF ISOPT = 1. -C -C E. THE OUTPUT FROM THE FIRST CALL (OR ANY CALL) IS.. -C Y = ARRAY OF COMPUTED VALUES OF Y(T) VECTOR. -C T = CORRESPONDING VALUE OF INDEPENDENT VARIABLE (NORMALLY TOUT). -C ISTATE = 2 IF ODESSA WAS SUCCESSFUL, NEGATIVE OTHERWISE. -C -1 MEANS EXCESS WORK DONE ON THIS CALL (PERHAPS WRONG MF). -C -2 MEANS EXCESS ACCURACY REQUESTED (TOLERANCES TOO SMALL). -C -3 MEANS ILLEGAL INPUT DETECTED (SEE PRINTED MESSAGE). -C -4 MEANS REPEATED ERROR TEST FAILURES (CHECK ALL INPUTS). -C -5 MEANS REPEATED CONVERGENCE FAILURES (PERHAPS BAD JACOBIAN -C SUPPLIED OR WRONG CHOICE OF MF OR TOLERANCES). -C -6 MEANS ERROR WEIGHT BECAME ZERO DURING PROBLEM. (SOLUTION -C COMPONENT I,J VANISHED, AND ATOL OR ATOL(I,J) = 0.0) -C -C F. TO CONTINUE THE INTEGRATION AFTER A SUCCESSFUL RETURN, SIMPLY -C RESET TOUT AND CALL ODESSA AGAIN. NO OTHER PARAMETERS NEED BE RESET. -C---------------------------------------------------------------------- -C EXAMPLE PROBLEM. -C -C THE FOLLOWING IS A SIMPLE EXAMPLE PROBLEM, WITH THE CODING -C NEEDED FOR ITS SOLUTION BY ODESSA. THE PROBLEM IS FROM CHEMICAL -C KINETICS, AND CONSISTS OF THE FOLLOWING THREE RATE EQUATIONS.. -C DY1/DT = -PAR(1)*Y1 + PAR(2)*Y2*Y3 ; PAR(1) = .04, PAR(2) = 1.E4 -C DY2/DT = PAR(1)*Y1 - PAR(2)*Y2*Y3 - PAR(3)*Y2**2 ; PAR(3) = 3.E7 -C DY3/DT = PAR(3)*Y2**2 -C ON THE INTERVAL FROM T = 0.0 TO T = 4.E10, WITH INITIAL CONDITIONS -C Y1 = 1.0, Y2 = Y3 = 0, AND S(I,J) = 0, I = 1,3, J = 1,3. -C THE PROBLEM IS STIFF. -C -C THE FOLLOWING CODING KppSolveS THIS PROBLEM WITH ODESSA, USING -C MF = 21 AND PRINTING RESULTS AT T = .4, 4., ..., 4.E10. -C IT USES ITOL = 4 AND ATOL MUCH SMALLER FOR Y2 THAN Y1 OR Y3, -C BECAUSE Y2 HAS MUCH SMALLER VALUES. LESS STRINGENT TOLERANCES -C ARE ASSIGNED FOR THE SENSITIVITIES TO ACHIEVE GREATER EFFICIENCY. -C AT THE END OF THE RUN, STATISTICAL QUANTITIES OF INTEREST ARE -C PRINTED (SEE OPTIONAL OUTPUTS IN THE FULL DESCRIPTION BELOW). -C -C DOUBLE PRECISION ATOL, RWORK, RTOL, T, TOUT, Y, PAR -C EXTERNAL FEX, JEX, DFEX -C DIMENSION Y(3,4), PAR(3), ATOL(3,4), RTOL(3,4), RWORK(130), -C 1 IWORK(27), NEQ(2), IOPT(3) -C N = 3 -C NPAR = 3 -C NEQ(1) = N -C NEQ(2) = NPAR -C NSV = NPAR+1 -C DO 10 I = 1,N -C DO 10 J = 1,NSV -C 10 Y(I,J) = 0.0D0 -C Y(1,1) = 1.0D0 -C PAR(1) = 0.04D0 -C PAR(2) = 1.0D4 -C PAR(3) = 3.0D7 -C T = 0.D0 -C TOUT = .4D0 -C ITOL = 4 -C ATOL(1,1) = 1.D-6 -C ATOL(2,1) = 1.D-10 -C ATOL(3,1) = 1.D-6 -C DO 20 I = 1,N -C RTOL(I,1) = 1.D-4 -C DO 15 J = 2,NSV -C RTOL(I,J) = 1.D-3 -C 15 ATOL(I,J) = 1.D2 * ATOL(I,1) -C 20 CONTINUE -C ITASK = 1 -C ISTATE = 1 -C IOPT(1) = 0 -C IOPT(2) = 1 -C IOPT(3) = 1 -C LRW = 130 -C LIW = 27 -C MF = 21 -C DO 60 IOUT = 1,12 -C CALL ODESSA(FEX,DFEX,NEQ,Y,PAR,T,TOUT,ITOL,RTOL,ATOL, -C 1 ITASK,ISTATE, IOPT,RWORK,LRW,IWORK,LIW,JEX,MF) -C WRITE(6,30)T,Y(1,1),Y(2,1),Y(3,1) -C 30 FORMAT(1X,7H AT T =,E12.4,6H Y =,3E14.6) -C DO 50 J = 2,NSV -C JPAR = J-1 -C WRITE(6,40)JPAR,Y(1,J),Y(2,J),Y(3,J) -C 40 FORMAT(20X,2HS(,I1,3H) =,3E14.6) -C 50 CONTINUE -C IF (ISTATE .LT. 0) GO TO 80 -C 60 TOUT = TOUT*10.D0 -C WRITE(6,70)IWORK(11),IWORK(12),IWORK(13),IWORK(19) -C 70 FORMAT(1X,/,12H NO. STEPS =,I4,11H NO. F-S =,I4,11H NO. J-S =, -C 1 I4,12H NO. DF-S =,I4) -C STOP -C 80 WRITE(6,90)ISTATE -C 90 FORMAT(///22H ERROR HALT.. ISTATE =,I3) -C STOP -C END -C -C SUBROUTINE FEX (NEQ, T, Y, PAR, YDOT) -C DOUBLE PRECISION T, Y, YDOT, PAR -C DIMENSION Y(3), YDOT(3), PAR(3) -C YDOT(1) = -PAR(1)*Y(1) + PAR(2)*Y(2)*Y(3) -C YDOT(3) = PAR(3)*Y(2)*Y(2) -C YDOT(2) = -YDOT(1) - YDOT(3) -C RETURN -C END -C -C SUBROUTINE JEX (NEQ, T, Y, PAR, ML, MU, PD, NRPD) -C DOUBLE PRECISION PD, T, Y, PAR -C DIMENSION Y(3), PD(NRPD,3), PAR(3) -C PD(1,1) = -PAR(1) -C PD(1,2) = PAR(2)*Y(3) -C PD(1,3) = PAR(2)*Y(2) -C PD(2,1) = PAR(1) -C PD(2,3) = -PD(1,3) -C PD(3,2) = 2.D0*PAR(3)*Y(2) -C PD(2,2) = -PD(1,2) - PD(3,2) -C RETURN -C END -C -C SUBROUTINE DFEX (NEQ, T, Y, PAR, DFDP, JPAR) -C DOUBLE PRECISION T, Y, PAR, DFDP -C DIMENSION Y(3), PAR(3), DFDP(3) -C GO TO (1,2,3), JPAR -C 1 DFDP(1) = -Y(1) -C DFDP(2) = Y(1) -C RETURN -C 2 DFDP(1) = Y(2)*Y(3) -C DFDP(2) = -Y(2)*Y(3) -C RETURN -C 3 DFDP(2) = -Y(2)*Y(2) -C DFDP(3) = Y(2)*Y(2) -C RETURN -C END -C -C THE OUTPUT OF THIS PROGRAM (ON A DATA GENERAL MV-8000 IN -C DOUBLE PRECISION IS AS FOLLOWS: -C -C AT T = .4000E+00 Y = .985173E+00 .338641E-04 .147930E-01 -C S(1) = -.355914E+00 .390261E-03 .355524E+00 -C S(2) = .955150E-07 -.213065E-09 -.953019E-07 -C S(3) = -.158466E-10 -.529012E-12 .163756E-10 -C AT T = .4000E+01 Y = .905516E+00 .224044E-04 .944615E-01 -C S(1) = -.187621E+01 .179197E-03 .187603E+01 -C S(2) = .296093E-05 -.583104E-09 -.296034E-05 -C S(3) = -.493267E-09 -.276246E-12 .493544E-09 -C AT T = .4000E+02 Y = .715848E+00 .918628E-05 .284143E+00 -C S(1) = -.424730E+01 .459360E-04 .424726E+01 -C S(2) = .137294E-04 -.235815E-09 -.137291E-04 -C S(3) = -.228818E-08 -.113803E-12 .228829E-08 -C AT T = .4000E+03 Y = .450526E+00 .322299E-05 .549471E+00 -C S(1) = -.595837E+01 .354310E-05 .595836E+01 -C S(2) = .227380E-04 -.226041E-10 -.227380E-04 -C S(3) = -.378971E-08 -.499501E-13 .378976E-08 -C AT T = .4000E+04 Y = .183185E+00 .894131E-06 .816814E+00 -C S(1) = -.475006E+01 -.599504E-05 .475007E+01 -C S(2) = .188089E-04 .231330E-10 -.188089E-04 -C S(3) = -.313478E-08 -.187575E-13 .313480E-08 -C AT T = .4000E+05 Y = .389733E-01 .162133E-06 .961027E+00 -C S(1) = -.157477E+01 -.276199E-05 .157477E+01 -C S(2) = .628668E-05 .110026E-10 -.628670E-05 -C S(3) = -.104776E-08 -.453588E-14 .104776E-08 -C AT T = .4000E+06 Y = .493609E-02 .198411E-07 .995064E+00 -C S(1) = -.236244E+00 -.458262E-06 .236244E+00 -C S(2) = .944669E-06 .183193E-11 -.944671E-06 -C S(3) = -.157441E-09 -.635990E-15 .157442E-09 -C AT T = .4000E+07 Y = .516087E-03 .206540E-08 .999484E+00 -C S(1) = -.256277E-01 -.509808E-07 .256278E-01 -C S(2) = .102506E-06 .203905E-12 -.102506E-06 -C S(3) = -.170825E-10 -.684002E-16 .170826E-10 -C AT T = .4000E+08 Y = .519314E-04 .207736E-09 .999948E+00 -C S(1) = -.259316E-02 -.518029E-08 .259316E-02 -C S(2) = .103726E-07 .207209E-13 -.103726E-07 -C S(3) = -.172845E-11 -.691450E-17 .172845E-11 -C AT T = .4000E+09 Y = .544710E-05 .217885E-10 .999995E+00 -C S(1) = -.271637E-03 -.541849E-09 .271638E-03 -C S(2) = .108655E-08 .216739E-14 -.108655E-08 -C S(3) = -.180902E-12 -.723615E-18 .180902E-12 -C AT T = .4000E+10 Y = .446748E-06 .178699E-11 .100000E+01 -C S(1) = -.322322E-04 -.842541E-10 .322323E-04 -C S(2) = .128929E-09 .337016E-15 -.128929E-09 -C S(3) = -.209715E-13 -.838859E-19 .209715E-13 -C AT T = .4000E+11 Y = -.363960E-07 -.145584E-12 .100000E+01 -C S(1) = -.164109E-06 -.429604E-11 .164113E-06 -C S(2) = .656436E-12 .171842E-16 -.656451E-12 -C S(3) = -.689361E-15 -.275745E-20 .689363E-15 -C -C NO. STEPS = 340 NO. F-S = 412 NO. J-S = 343 NO. DF-S =1023 -C---------------------------------------------------------------------- -C FULL DESCRIPTION OF USER INTERFACE TO ODESSA. -C -C THE USER INTERFACE TO ODESSA CONSISTS OF THE FOLLOWING PARTS. -C -C I. THE CALL SEQUENCE TO SUBROUTINE ODESSA, WHICH IS A DRIVER -C ROUTINE FOR THE KppSolveR. THIS INCLUDES DESCRIPTIONS OF BOTH -C THE CALL SEQUENCE ARGUMENTS AND OF USER-SUPPLIED ROUTINES. -C FOLLOWING THESE DESCRIPTIONS IS A DESCRIPTION OF -C OPTIONAL INPUTS AVAILABLE THROUGH THE CALL SEQUENCE, AND THEN -C A DESCRIPTION OF OPTIONAL OUTPUTS (IN THE WORK ARRAYS). -C -C II. DESCRIPTIONS OF OTHER ROUTINES IN THE ODESSA PACKAGE THAT MAY -C BE (OPTIONALLY) CALLED BY THE USER. THESE PROVIDE THE ABILITY -C TO ALTER ERROR MESSAGE HANDLING, SAVE AND RESTORE THE INTERNAL -C COMMON, AND OBTAIN SPECIFIED DERIVATIVES OF THE SOLUTION Y(T). -C -C III. DESCRIPTIONS OF COMMON BLOCKS TO BE DECLARED IN OVERLAY -C OR SIMILAR ENVIRONMENTS, OR TO BE SAVED WHEN DOING AN INTERRUPT -C OF THE PROBLEM AND CONTINUED SOLUTION LATER. -C -C IV. DESCRIPTION OF TWO SUBROUTINES IN THE ODESSA PACKAGE, EITHER OF -C WHICH THE USER MAY REPLACE WITH HIS OWN VERSION, IF DESIRED. -C THESE RELATE TO THE MEASUREMENT OF ERRORS. -C -C V. GENERAL REMARKS WHICH HIGHLIGHT DIFFERENCES BETWEEN THE LSODE -C PACKAGE AND THE ODESSA PACKAGE. -C---------------------------------------------------------------------- -C PART I. CALL SEQUENCE. -C -C THE CALL SEQUENCE PARAMETERS USED FOR INPUT ONLY ARE.. -C F, DF, NEQ, PAR, TOUT, ITOL, RTOL, ATOL, ITASK, IOPT, LRW, LIW, -C JAC, MF, -C AND THOSE USED FOR BOTH INPUT AND OUTPUT ARE -C Y, T, ISTATE. -C THE WORK ARRAYS RWORK AND IWORK ARE ALSO USED FOR CONDITIONAL AND -C OPTIONAL INPUTS AND OPTIONAL OUTPUTS. (THE TERM OUTPUT HERE REFERS -C TO THE RETURN FROM SUBROUTINE ODESSA TO THE USER-S CALLING PROGRAM.) -C -C THE LEGALITY OF INPUT PARAMETERS WILL BE THOROUGHLY CHECKED ON THE -C INITIAL CALL FOR THE PROBLEM, BUT NOT CHECKED THEREAFTER UNLESS A -C CHANGE IN INPUT PARAMETERS IS FLAGGED BY ISTATE = 3 ON INPUT. -C -C THE DESCRIPTIONS OF THE CALL ARGUMENTS ARE AS FOLLOWS. -C -C F = THE NAME OF THE USER-SUPPLIED SUBROUTINE DEFINING THE -C ODE MODEL. THIS SYSTEM MUST BE PUT IN THE FIRST-ORDER -C FORM DY/DT = F(Y,T;P), WHERE F IS A VECTOR-VALUED FUNCTION -C OF THE SCALAR T AND VECTORS Y, AND PAR. SUBROUTINE F IS TO -C COMPUTE THE FUNCTION F. IT IS TO HAVE THE FORM.. -C SUBROUTINE F (NEQ, T, Y, PAR, YDOT) -C DOUBLE PRECISION T, Y, PAR, YDOT -C DIMENSION Y(1), PAR(1), YDOT(1) -C WHERE NEQ, T, Y, AND PAR ARE INPUT, AND YDOT = F(Y,T;P) -C IS OUTPUT. Y AND YDOT ARE ARRAYS OF LENGTH N (= NEQ(1)). -C (IN THE DIMENSION STATEMENT ABOVE, 1 IS A DUMMY -C DIMENSION.. IT CAN BE REPLACED BY ANY VALUE.) -C F SHOULD NOT ALTER ARRAY Y, OR PAR(1),...,PAR(NPAR). -C F MUST BE DECLARED EXTERNAL IN THE CALLING PROGRAM. -C -C SUBROUTINE F MAY ACCESS USER-DEFINED QUANTITIES IN -C NEQ(2),... AND PAR(NPAR+1),... IF NEQ IS AN ARRAY -C (DIMENSIONED IN F) AND PAR HAS LENGTH EXCEEDING NPAR. -C SEE THE DESCRIPTIONS OF NEQ AND PAR BELOW. -C -C DF = THE NAME OF THE USER-SUPPLIED ROUTINE (IDF = 1) TO COMPUTE -C THE INHOMOGENEITY MATRIX, DF/DP, AS A FUNCTION OF THE SCALAR -C T, AND THE VECTORS Y, AND PAR. IT IS TO HAVE THE FORM -C SUBROUTINE DF (NEQ, T, Y, PAR, DFDP, JPAR) -C DOUBLE PRECISION T, Y, PAR, DFDP -C DIMENSION Y(1), PAR(1), DFDP(1) -C GO TO (1,2,...,NPAR) JPAR -C 1 DFDP(1) = DF(1)/DP(1) -C . -C DFDP(I) = DF(I)/DP(1) -C . -C DFDP(N) = DF(N)/DP(1) -C RETURN -C 2 DFDP(1) = DF(1)/DP(2) -C . -C DFDP(I) = DF(I)/DP(2) -C . -C DFDP(N) = DF(N)/DP(2) -C . -C RETURN -C . . -C . . -C NPAR DFDP(1) = DF(1)/DP(NPAR) -C . -C DFDP(I) = DF(I)/DP(NPAR) -C . -C DFDP(N) = DF(N)/DP(NPAR) -C RETURN -C END -C WHERE NEQ, T, Y, PAR, AND JPAR ARE INPUT AND THE VECTOR -C DFDP(*,JPAR) IS TO BE LOADED WITH THE PARTIAL DERIVATIVES -C DF(Y,T;PAR)/DP(JPAR) ON OUTPUT. ONLY NONZERO ELEMENTS NEED -C BE LOADED. T, Y, AND PAR HAVE THE SAME MEANING AS IN -C SUBROUTINE F. (IN THE DIMENSION STATEMENT ABOVE, 1 IS A DUMMY -C DIMENSION.. IT CAN BE REPLACED BY ANY VALUE). -C -C DFDP(*,JPAR) IS PRESET TO ZERO BY THE KppSolveR, SO THAT ONLY -C THE NONZERO ELEMENTS NEED BE LOADED BY DF. SUBROUTINE DF -C MUST BE DECLARED EXTERNAL IN THE CALLING PROGRAM IF USED. -C IF IDF = 0 (OR ISOPT = 0), A DUMMY ARGUMENT CAN BE USED. -C -C SUBROUTINE DF MAY ACCESS USER-DEFINED QUANTITIES IN -C NEQ(2),... AND PAR(NPAR+1),... IF NEQ IS AN ARRAY -C (DIMENSIONED IN DF) AND PAR HAS A LENGTH EXCEEDING NPAR. -C SEE THE DESCRIPTIONS OF NEQ AND PAR (BELOW). -C -C NEQ = THE SIZE OF THE ODE SYSTEM (NUMBER OF FIRST ORDER ORDINARY -C DIFFERENTIAL EQUATIONS (N) IN THE MODEL). USED ONLY FOR -C INPUT. NEQ MAY NOT BE CHANGED DURING THE PROBLEM. -C -C FOR ISOPT = 0, NEQ IS NORMALLY A SCALAR. HOWEVER, NEQ MAY -C BE AN ARRAY, WITH NEQ(1) SET TO THE SYSTEM SIZE (N), IN WHICH -C CASE THE ODESSA PACKAGE ACCESSES ONLY NEQ(1). HOWEVER, -C THIS PARAMETER IS PASSED AS THE NEQ ARGUMENT IN ALL CALLS -C TO F, DF, AND JAC. HENCE, IF IT IS AN ARRAY, LOCATIONS -C NEQ(2),... MAY BE USED TO STORE OTHER INTEGER DATA AND PASS -C IT TO F, DF, AND/OR JAC. FOR ISOPT = 1, NPAR MUST BE LOADED -C INTO NEQ(2), AND IS NOT ALLOWED TO CHANGE DURING THE PROBLEM. -C IN THESE CASES, SUBROUTINES F, DF, AND/OR JAC MUST INCLUDE -C NEQ IN A DIMENSION STATEMENT. -C -C Y = A REAL ARRAY FOR THE VECTOR OF DEPENDENT VARIABLES, OF -C DIMENSION (N) BY (NPAR+1). USED FOR BOTH INPUT AND -C OUTPUT ON THE FIRST CALL (ISTATE = 1), AND ONLY FOR -C OUTPUT ON OTHER CALLS. ON THE FIRST CALL, Y MUST CONTAIN -C THE VECTORS OF INITIAL VALUES. ON OUTPUT, Y CONTAINS THE -C COMPUTED SOLUTION VECTORS, EVALUATED AT T. -C -C PAR = A REAL ARRAY FOR THE VECTOR OF CONSTANT MODEL PARAMETERS -C OF INTEREST IN THE SENSITIVITY ANALYSIS, OF LENGTH NPAR -C OR MORE. PAR IS PASSED AS AN ARGUMENT IN ALL CALLS TO F, -C DF, AND JAC. HENCE LOCATIONS PAR(NPAR+1),... MAY BE USED -C TO STORE OTHER REAL DATA AND PASS IT TO F, DF, AND/OR JAC. -C LOCATIONS PAR(1),...,PAR(NPAR) ARE USED AS INPUT ONLY, -C AND MUST NOT BE CHANGED DURING THE PROBLEM. -C -C T = THE INDEPENDENT VARIABLE. ON INPUT, T IS USED ONLY ON THE -C FIRST CALL, AS THE INITIAL POINT OF THE INTEGRATION. -C ON OUTPUT, AFTER EACH CALL, T IS THE VALUE AT WHICH A -C COMPUTED SOLUTION Y IS EVALUATED (USUALLY THE SAME AS TOUT). -C ON AN ERROR RETURN, T IS THE FARTHEST POINT REACHED. -C -C TOUT = THE NEXT VALUE OF T AT WHICH A COMPUTED SOLUTION IS DESIRED. -C USED ONLY FOR INPUT. -C -C WHEN STARTING THE PROBLEM (ISTATE = 1), TOUT MAY BE EQUAL -C TO T FOR ONE CALL, THEN SHOULD .NE. T FOR THE NEXT CALL. -C FOR THE INITIAL T, AN INPUT VALUE OF TOUT .NE. T IS USED -C IN ORDER TO DETERMINE THE DIRECTION OF THE INTEGRATION -C (I.E. THE ALGEBRAIC SIGN OF THE STEP SIZES) AND THE ROUGH -C SCALE OF THE PROBLEM. INTEGRATION IN EITHER DIRECTION -C (FORWARD OR BACKWARD IN T) IS PERMITTED. -C -C IF ITASK = 2 OR 5 (ONE-STEP MODES), TOUT IS IGNORED AFTER -C THE FIRST CALL (I.E. THE FIRST CALL WITH TOUT .NE. T). -C OTHERWISE, TOUT IS REQUIRED ON EVERY CALL. -C -C IF ITASK = 1, 3, OR 4, THE VALUES OF TOUT NEED NOT BE -C MONOTONE, BUT A VALUE OF TOUT WHICH BACKS UP IS LIMITED -C TO THE CURRENT INTERNAL T INTERVAL, WHOSE ENDPOINTS ARE -C TCUR - HU AND TCUR (SEE OPTIONAL OUTPUTS, BELOW, FOR -C TCUR AND HU). -C -C ITOL = AN INDICATOR FOR THE TYPE OF ERROR CONTROL. SEE -C DESCRIPTION BELOW UNDER ATOL. USED ONLY FOR INPUT. -C -C RTOL = A RELATIVE ERROR TOLERANCE PARAMETER, EITHER A SCALAR OR -C AN ARRAY OF SPACE (N) BY (NPAR+1). SEE DESCRIPTION BELOW -C UNDER ATOL. INPUT ONLY. -C -C ATOL = AN ABSOLUTE ERROR TOLERANCE PARAMETER, EITHER A SCALAR OR -C AN ARRAY OF SPACE (N) BY (NPAR+1). INPUT ONLY. -C -C THE INPUT PARAMETERS ITOL, RTOL, AND ATOL DETERMINE -C THE ERROR CONTROL PERFORMED BY THE KppSolveR. THE KppSolveR WILL -C CONTROL THE VECTOR E = (E(I,J)) OF ESTIMATED LOCAL ERRORS -C IN Y, ACCORDING TO AN INEQUALITY OF THE FORM -C RMS-NORM OF ( E(I,J)/EWT(I,J) ) .LE. 1, -C WHERE EWT(I,J) = RTOL(I,J)*ABS(Y(I,J)) + ATOL(I,J), -C AND THE RMS-NORM (ROOT-MEAN-SQUARE NORM) HERE IS -C RMS-NORM(V) = SQRT ( (1/N) * SUM (V(I,J)**2) ); I =1,...,N. -C HERE EWT = (EWT(I,J)) IS A VECTOR OF WEIGHTS WHICH MUST -C ALWAYS BE POSITIVE, AND THE VALUES OF RTOL AND ATOL SHOULD -C ALL BE NON-NEGATIVE. THE FOLLOWING TABLE GIVES THE TYPES -C (SCALAR/ARRAY) OF RTOL AND ATOL, AND THE CORRESPONDING FORM -C OF EWT(I,J). -C -C ITOL RTOL ATOL EWT(I,J) -C 1 SCALAR SCALAR RTOL*ABS(Y(I,J)) + ATOL -C 2 SCALAR ARRAY RTOL*ABS(Y(I,J)) + ATOL(I,J) -C 3 ARRAY SCALAR RTOL(I,J)*ABS(Y(I,J)) + ATOL -C 4 ARRAY ARRAY RTOL(I,J)*ABS(Y(I,J)) + ATOL(I,J) -C -C WHEN EITHER OF THESE PARAMETERS IS A SCALAR, IT NEED NOT -C BE DIMENSIONED IN THE USER-S CALLING PROGRAM. -C -C THE TOTAL NUMBER OF ERROR TEST FAILURES DUE TO THE SENSITIVITY -C ANALYSIS, AND WHICH REQUIRE AN INTEGRATION STEP TO BE -C REPEATED, ARE ACCUMULATED IN THE LAST NPAR+1 LOCATIONS OF THE -C INTEGER WORK ARRAY IWORK (SEE OPTIONAL OUTPUTS BELOW). -C THIS INFORMATION MAY BE OF VALUE IN DETERMINING APPROPRIATE -C ERROR TOLERANCES TO BE APPLIED TO THE SENSITIVITY FUNCTIONS. -C -C IF NONE OF THE ABOVE CHOICES (WITH ITOL, RTOL, AND ATOL -C FIXED THROUGHOUT THE PROBLEM) IS SUITABLE, MORE GENERAL -C ERROR CONTROLS CAN BE OBTAINED BY SUBSTITUTING -C USER-SUPPLIED ROUTINES FOR THE SETTING OF EWT AND/OR FOR -C THE NORM CALCULATION. SEE PART IV BELOW. -C -C IF GLOBAL ERRORS ARE TO BE ESTIMATED BY MAKING A REPEATED -C RUN ON THE SAME PROBLEM WITH SMALLER TOLERANCES, THEN ALL -C COMPONENTS OF RTOL AND ATOL (I.E. OF EWT) SHOULD BE SCALED -C DOWN UNIFORMLY. -C -C ITASK = AN INDEX SPECIFYING THE TASK TO BE PERFORMED. -C INPUT ONLY. ITASK HAS THE FOLLOWING VALUES AND MEANINGS. -C 1 MEANS NORMAL COMPUTATION OF OUTPUT VALUES OF Y(T) AT -C T = TOUT (BY OVERSHOOTING AND INTERPOLATING). -C 2 MEANS TAKE ONE STEP ONLY AND RETURN. -C 3 MEANS STOP AT THE FIRST INTERNAL MESH POINT AT OR -C BEYOND T = TOUT AND RETURN. -C 4 MEANS NORMAL COMPUTATION OF OUTPUT VALUES OF Y(T) AT -C T = TOUT BUT WITHOUT OVERSHOOTING T = TCRIT. -C TCRIT MUST BE INPUT AS RWORK(1). TCRIT MAY BE EQUAL TO -C OR BEYOND TOUT, BUT NOT BEHIND IT IN THE DIRECTION OF -C INTEGRATION. THIS OPTION IS USEFUL IF THE PROBLEM -C HAS A SINGULARITY AT OR BEYOND T = TCRIT. -C 5 MEANS TAKE ONE STEP, WITHOUT PASSING TCRIT, AND RETURN. -C TCRIT MUST BE INPUT AS RWORK(1). -C -C NOTE.. IF ITASK = 4 OR 5 AND THE KppSolveR REACHES TCRIT -C (WITHIN ROUNDOFF), IT WILL RETURN T = TCRIT (EXACTLY) TO -C INDICATE THIS (UNLESS ITASK = 4 AND TOUT COMES BEFORE TCRIT, -C IN WHICH CASE ANSWERS AT T = TOUT ARE RETURNED FIRST). -C -C ISTATE = AN INDEX USED FOR INPUT AND OUTPUT TO SPECIFY THE -C THE STATE OF THE CALCULATION. -C -C ON INPUT, THE VALUES OF ISTATE ARE AS FOLLOWS. -C 1 MEANS THIS IS THE FIRST CALL FOR THE PROBLEM -C (INITIALIZATIONS WILL BE DONE). SEE NOTE BELOW. -C 2 MEANS THIS IS NOT THE FIRST CALL, AND THE CALCULATION -C IS TO CONTINUE NORMALLY, WITH NO CHANGE IN ANY INPUT -C PARAMETERS EXCEPT POSSIBLY TOUT AND ITASK. -C (IF ITOL, RTOL, AND/OR ATOL ARE CHANGED BETWEEN CALLS -C WITH ISTATE = 2, THE NEW VALUES WILL BE USED BUT NOT -C TESTED FOR LEGALITY.) -C 3 MEANS THIS IS NOT THE FIRST CALL, AND THE -C CALCULATION IS TO CONTINUE NORMALLY, BUT WITH -C A CHANGE IN INPUT PARAMETERS OTHER THAN -C TOUT AND ITASK. CHANGES ARE ALLOWED IN -C ITOL, RTOL, ATOL, IOPT, LRW, LIW, MF, ML, MU, -C AND ANY OF THE OPTIONAL INPUTS EXCEPT H0. -C (SEE IWORK DESCRIPTION FOR ML AND MU.) -C NOTE.. A PRELIMINARY CALL WITH TOUT = T IS NOT COUNTED -C AS A FIRST CALL HERE, AS NO INITIALIZATION OR CHECKING OF -C INPUT IS DONE. (SUCH A CALL IS SOMETIMES USEFUL FOR THE -C PURPOSE OF OUTPUTTING THE INITIAL CONDITIONS.) -C THUS THE FIRST CALL FOR WHICH TOUT .NE. T REQUIRES -C ISTATE = 1 ON INPUT. -C -C ON OUTPUT, ISTATE HAS THE FOLLOWING VALUES AND MEANINGS. -C 1 MEANS NOTHING WAS DONE, AS TOUT WAS EQUAL TO T WITH -C ISTATE = 1 ON INPUT. (HOWEVER, AN INTERNAL COUNTER WAS -C SET TO DETECT AND PREVENT REPEATED CALLS OF THIS TYPE.) -C 2 MEANS THE INTEGRATION WAS PERFORMED SUCCESSFULLY. -C -1 MEANS AN EXCESSIVE AMOUNT OF WORK (MORE THAN MXSTEP -C STEPS) WAS DONE ON THIS CALL, BEFORE COMPLETING THE -C REQUESTED TASK, BUT THE INTEGRATION WAS OTHERWISE -C SUCCESSFUL AS FAR AS T. (MXSTEP IS AN OPTIONAL INPUT -C AND IS NORMALLY 500.) TO CONTINUE, THE USER MAY -C SIMPLY RESET ISTATE TO A VALUE .GT. 1 AND CALL AGAIN -C (THE EXCESS WORK STEP COUNTER WILL BE RESET TO 0). -C IN ADDITION, THE USER MAY INCREASE MXSTEP TO AVOID -C THIS ERROR RETURN (SEE BELOW ON OPTIONAL INPUTS). -C -2 MEANS TOO MUCH ACCURACY WAS REQUESTED FOR THE PRECISION -C OF THE MACHINE BEING USED. THIS WAS DETECTED BEFORE -C COMPLETING THE REQUESTED TASK, BUT THE INTEGRATION -C WAS SUCCESSFUL AS FAR AS T. TO CONTINUE, THE TOLERANCE -C PARAMETERS MUST BE RESET, AND ISTATE MUST BE SET -C TO 3. THE OPTIONAL OUTPUT TOLSF MAY BE USED FOR THIS -C PURPOSE. (NOTE.. IF THIS CONDITION IS DETECTED BEFORE -C TAKING ANY STEPS, THEN AN ILLEGAL INPUT RETURN -C (ISTATE = -3) OCCURS INSTEAD.) -C -3 MEANS ILLEGAL INPUT WAS DETECTED, BEFORE TAKING ANY -C INTEGRATION STEPS. SEE WRITTEN MESSAGE FOR DETAILS. -C NOTE.. IF THE KppSolveR DETECTS AN INFINITE LOOP OF CALLS -C TO THE KppSolveR WITH ILLEGAL INPUT, IT WILL CAUSE -C THE RUN TO STOP. -C -4 MEANS THERE WERE REPEATED ERROR TEST FAILURES ON -C ONE ATTEMPTED STEP, BEFORE COMPLETING THE REQUESTED -C TASK, BUT THE INTEGRATION WAS SUCCESSFUL AS FAR AS T. -C THE PROBLEM MAY HAVE A SINGULARITY, OR THE INPUT -C MAY BE INAPPROPRIATE. -C -5 MEANS THERE WERE REPEATED CONVERGENCE TEST FAILURES ON -C ONE ATTEMPTED STEP, BEFORE COMPLETING THE REQUESTED -C TASK, BUT THE INTEGRATION WAS SUCCESSFUL AS FAR AS T. -C THIS MAY BE CAUSED BY AN INACCURATE JACOBIAN MATRIX, -C IF ONE IS BEING USED. -C -6 MEANS EWT(I,J) BECAME ZERO FOR SOME I,J DURING THE -C INTEGRATION. PURE RELATIVE ERROR CONTROL (ATOL(I,J)=0.0) -C WAS REQUESTED ON A VARIABLE WHICH HAS NOW VANISHED. -C THE INTEGRATION WAS SUCCESSFUL AS FAR AS T. -C -C NOTE.. SINCE THE NORMAL OUTPUT VALUE OF ISTATE IS 2, -C IT DOES NOT NEED TO BE RESET FOR NORMAL CONTINUATION. -C ALSO, SINCE A NEGATIVE INPUT VALUE OF ISTATE WILL BE -C REGARDED AS ILLEGAL, A NEGATIVE OUTPUT VALUE REQUIRES THE -C USER TO CHANGE IT, AND POSSIBLY OTHER INPUTS, BEFORE -C CALLING THE KppSolveR AGAIN. -C -C IOPT = AN INTEGER ARRAY FLAG TO SPECIFY WHETHER OR NOT ANY OPTIONAL -C INPUTS ARE BEING USED ON THIS CALL. INPUT ONLY. -C THE OPTIONAL INPUTS ARE LISTED SEPARATELY BELOW. -C IOPT(1) = 0 MEANS NO OPTIONAL INPUTS FOR THE KppSolveR WILL BE -C USED. DEFAULT VALUES WILL BE USED IN ALL CASES. -C = 1 MEANS ONE OR MORE OPTIONAL INPUTS FOR THE -C KppSolveR ARE BEING USED. -C NOTE : IOPT(1) IS INDEPENDENT OF ISOPT AND IDF. -C IOPT(2) = 0 MEANS NO SENSITIVITY ANALYSIS WILL BE PERFORMED. -C = 1 MEANS A SENSITIVITY ANALYSIS WILL BE PERFORMED. -C NOTE : IOPT(2) IS RENAMED TO ISOPT IN ODESSA. -C = 0 MEANS DF/DP WILL BE CALCULATED BY FINITE -C DIFFERENCE WITHIN ODESSA. -C IOPT(3) = 1 MEANS DF/DP WILL BE CALCULATED BY A USER-SUPPLIED -C ROUTINE. -C NOTE : IOPT(3) IS RENAMED TO IDF IN ODESSA. -C IF IDF = 1, THE USER MUST SUPPLY A -C SUBROUTINE DF (THE NAME IS ARBITRARY) AS -C DESCRIBED BELOW UNDER DF. FOR IDF = 0, -C A DUMMY ARGUMENT CAN BE USED. -C -C RWORK = A REAL WORKING ARRAY (DOUBLE PRECISION). -C FOR ISOPT = 0, THE LENGTH OF RWORK MUST BE AT LEAST.. -C 20 + NYH*(MAXORD + 1) + 3*NEQ + LWM -C FOR ISOPT = 1, THE LENGTH OF RWORK MUST BE AT LEAST.. -C 20 + NYH*(MAXORD + 1) + 2*NYH + LWM + N -C WHERE.. -C NYH = THE TOTAL NUMBER OF DEPENDENT VARIABLES; -C (= N IF ISOPT = 0, AND N*(NPAR+1) IF ISOPT = 1). -C MAXORD = 12 (IF METH = 1) OR 5 (IF METH = 2) (UNLESS A -C SMALLER VALUE IS GIVEN AS AN OPTIONAL INPUT), -C LWM = 0 IF MITER = 0, -C LWM = N**2 + 2 IF MITER IS 1 OR 2, -C LWM = N + 2 IF MITER = 3, AND -C LWM = (2*ML+MU+1)*N + 2 IF MITER IS 4 OR 5. -C (SEE THE MF DESCRIPTION FOR METH AND MITER.) -C -C THE FIRST 20 WORDS OF RWORK ARE RESERVED FOR CONDITIONAL -C AND OPTIONAL INPUTS AND OPTIONAL OUTPUTS. -C -C THE FOLLOWING WORD IN RWORK IS A CONDITIONAL INPUT.. -C RWORK(1) = TCRIT = CRITICAL VALUE OF T WHICH THE KppSolveR -C IS NOT TO OVERSHOOT. REQUIRED IF ITASK IS -C 4 OR 5, AND IGNORED OTHERWISE. (SEE ITASK.) -C -C LRW = THE LENGTH OF THE ARRAY RWORK, AS DECLARED BY THE USER. -C (THIS WILL BE CHECKED BY THE KppSolveR.) -C -C IWORK = AN INTEGER WORK ARRAY. THE LENGTH MUST BE AT LEAST.. -C 20 IF MITER = 0 OR 3 (MF = 10, 13, 20, 23), OR -C 20 + N OTHERWISE (MF = 11, 12, 14, 15, 21, 22, 24, 25). -C FOR ISOPT = 0, OR.. -C 21 + N + NPAR -C FOR ISOPT = 1. -C THE FIRST FEW WORDS OF IWORK ARE USED FOR CONDITIONAL AND -C OPTIONAL INPUTS AND OPTIONAL OUTPUTS. -C -C THE FOLLOWING 2 WORDS IN IWORK ARE CONDITIONAL INPUTS.. -C IWORK(1) = ML THESE ARE THE LOWER AND UPPER -C IWORK(2) = MU HALF-BANDWIDTHS, RESPECTIVELY, OF THE -C BANDED JACOBIAN, EXCLUDING THE MAIN DIAGONAL. -C THE BAND IS DEFINED BY THE MATRIX LOCATIONS -C (I,J) WITH I-ML .LE. J .LE. I+MU. ML AND MU -C MUST SATISFY 0 .LE. ML,MU .LE. NEQ-1. -C THESE ARE REQUIRED IF MITER IS 4 OR 5, AND -C IGNORED OTHERWISE. ML AND MU MAY IN FACT BE -C THE BAND PARAMETERS FOR A MATRIX TO WHICH -C DF/DY IS ONLY APPROXIMATELY EQUAL. -* -C -C LIW = THE LENGTH OF THE ARRAY IWORK, AS DECLARED BY THE USER. -C (THIS WILL BE CHECKED BY THE KppSolveR.) -C -C NOTE.. THE WORK ARRAYS MUST NOT BE ALTERED BETWEEN CALLS TO ODESSA -C FOR THE SAME PROBLEM, EXCEPT POSSIBLY FOR THE CONDITIONAL AND -C OPTIONAL INPUTS, AND EXCEPT FOR THE LAST 2*NYH + N WORDS OF RWORK. -C THE LATTER SPACE IS USED FOR INTERNAL SCRATCH SPACE, AND SO IS -C AVAILABLE FOR USE BY THE USER OUTSIDE ODESSA BETWEEN CALLS, IF -C DESIRED (BUT NOT FOR USE BY F, DF, OR JAC). -C -C JAC = THE NAME OF THE USER-SUPPLIED ROUTINE (MITER = 1 OR 4) TO -C COMPUTE THE JACOBIAN MATRIX, DF/DY, AS A FUNCTION OF THE -C SCALAR T AND THE VECTORS Y, AND PAR. IT IS TO HAVE THE FORM -C SUBROUTINE JAC (NEQ, T, Y, PAR, ML, MU, PD, NROWPD) -C DOUBLE PRECISION T, Y, PAR, PD -C DIMENSION Y(1), PAR(1), PD(NROWPD,1) -C WHERE NEQ, T, Y, PAR, ML, MU, AND NROWPD ARE INPUT AND THE -C ARRAY PD IS TO BE LOADED WITH PARTIAL DERIVATIVES (ELEMENTS -C OF THE JACOBIAN MATRIX) ON OUTPUT. PD MUST BE GIVEN A FIRST -C DIMENSION OF NROWPD. T, Y, AND PAR HAVE THE SAME MEANING AS -C IN SUBROUTINE F. (IN THE DIMENSION STATEMENT ABOVE, 1 IS A -C DUMMY DIMENSION.. IT CAN BE REPLACED BY ANY VALUE.) -C IN THE FULL MATRIX CASE (MITER = 1), ML AND MU ARE -C IGNORED, AND THE JACOBIAN IS TO BE LOADED INTO PD IN -C COLUMNWISE MANNER, WITH DF(I)/DY(J) LOADED INTO PD(I,J). -C IN THE BAND MATRIX CASE (MITER = 4), THE ELEMENTS -C WITHIN THE BAND ARE TO BE LOADED INTO PD IN COLUMNWISE -C MANNER, WITH DIAGONAL LINES OF DF/DY LOADED INTO THE ROWS -C OF PD. THUS DF(I)/DY(J) IS TO BE LOADED INTO PD(I-J+MU+1,J). -C ML AND MU ARE THE HALF-BANDWIDTH PARAMETERS (SEE IWORK). -C THE LOCATIONS IN PD IN THE TWO TRIANGULAR AREAS WHICH -C CORRESPOND TO NONEXISTENT MATRIX ELEMENTS CAN BE IGNORED -C OR LOADED ARBITRARILY, AS THEY ARE OVERWRITTEN BY ODESSA. -C PD IS PRESET TO ZERO BY THE KppSolveR, SO THAT ONLY THE -C NONZERO ELEMENTS NEED BE LOADED BY JAC. EACH CALL TO JAC IS -C PRECEDED BY A CALL TO F WITH THE SAME ARGUMENTS NEQ, T, Y, -C AND PAR. THUS TO GAIN SOME EFFICIENCY, INTERMEDIATE -C QUANTITIES SHARED BY BOTH CALCULATIONS MAY BE SAVED IN A -C USER COMMON BLOCK BY F AND NOT RECOMPUTED BY JAC, IF -C DESIRED. ALSO, JAC MAY ALTER THE Y ARRAY, IF DESIRED. -C JAC MUST BE DECLARED EXTERNAL IN THE CALLING PROGRAM. -C SUBROUTINE JAC MAY ACCESS USER-DEFINED QUANTITIES IN -C NEQ(2),... AND PAR(NPAR+1),.... SEE THE DESCRIPTIONS OF -C NEQ (ABOVE) AND PAR (BELOW). -C -C MF = THE METHOD FLAG. USED ONLY FOR INPUT. THE LEGAL VALUES OF -C MF ARE 10, 11, 12, 13, 14, 15, 20, 21, 22, 23, 24, AND 25. -C MF HAS DECIMAL DIGITS METH AND MITER.. MF = 10*METH + MITER. -C METH INDICATES THE BASIC LINEAR MULTISTEP METHOD.. -C METH = 1 MEANS THE IMPLICIT ADAMS METHOD. -* -C METH = 2 MEANS THE METHOD BASED ON BACKWARD -C DIFFERENTIATION FORMULAS (BDF-S). -C MITER INDICATES THE CORRECTOR ITERATION METHOD.. -C MITER = 0 MEANS FUNCTIONAL ITERATION (NO JACOBIAN MATRIX -C IS INVOLVED). -C MITER = 1 MEANS CHORD ITERATION WITH A USER-SUPPLIED -C FULL (NEQ BY NEQ) JACOBIAN. -C MITER = 2 MEANS CHORD ITERATION WITH AN INTERNALLY -C GENERATED (DIFFERENCE QUOTIENT) FULL JACOBIAN -C (USING NEQ EXTRA CALLS TO F PER DF/DY VALUE). -C MITER = 3 MEANS CHORD ITERATION WITH AN INTERNALLY -C GENERATED DIAGONAL JACOBIAN APPROXIMATION. -C (USING 1 EXTRA CALL TO F PER DF/DY EVALUATION). -C MITER = 4 MEANS CHORD ITERATION WITH A USER-SUPPLIED -C BANDED JACOBIAN. -C MITER = 5 MEANS CHORD ITERATION WITH AN INTERNALLY -C GENERATED BANDED JACOBIAN (USING ML+MU+1 EXTRA -C CALLS TO F PER DF/DY EVALUATION). -C IF MITER = 1 OR 4, THE USER MUST SUPPLY A SUBROUTINE JAC -C (THE NAME IS ARBITRARY) AS DESCRIBED ABOVE UNDER JAC. -C FOR OTHER VALUES OF MITER, A DUMMY ARGUMENT CAN BE USED. -C -C IF A SENSITIVITY ANLYSIS IS DESIRED (ISOPT = 1), MITER = 0 -C AND 3 ARE DISALLOWED. IN THESE CASES, THE USER IS RECOMMENDED -C TO SUPPLY AN ANALYTICAL JACOBIAN (MITER = 1 OR 4) AND AN -C ANALYTICAL INHOMOGENEITY MATRIX (IDF = 1). -C---------------------------------------------------------------------- -C OPTIONAL INPUTS. -C -C THE FOLLOWING IS A LIST OF THE OPTIONAL INPUTS PROVIDED FOR IN THE -C CALL SEQUENCE. (SEE ALSO PART II.) FOR EACH SUCH INPUT VARIABLE, -C THIS TABLE LISTS ITS NAME AS USED IN THIS DOCUMENTATION, ITS -C LOCATION IN THE CALL SEQUENCE, ITS MEANING, AND THE DEFAULT VALUE. -C THE USE OF ANY OF THESE INPUTS REQUIRES IOPT(1) = 1, AND IN THAT -C CASE ALL OF THESE INPUTS ARE EXAMINED. A VALUE OF ZERO FOR ANY -C OF THESE OPTIONAL INPUTS WILL CAUSE THE DEFAULT VALUE TO BE USED. -C THUS TO USE A SUBSET OF THE OPTIONAL INPUTS, SIMPLY PRELOAD -C LOCATIONS 5 TO 10 IN RWORK AND IWORK TO 0.0 AND 0 RESPECTIVELY, AND -C THEN SET THOSE OF INTEREST TO NONZERO VALUES. -C -C NAME LOCATION MEANING AND DEFAULT VALUE -C -C H0 RWORK(5) THE STEP SIZE TO BE ATTEMPTED ON THE FIRST STEP. -C THE DEFAULT VALUE IS DETERMINED BY THE KppSolveR. -C -C HMAX RWORK(6) THE MAXIMUM ABSOLUTE STEP SIZE ALLOWED. -C THE DEFAULT VALUE IS INFINITE. -C -C HMIN RWORK(7) THE MINIMUM ABSOLUTE STEP SIZE ALLOWED. -C THE DEFAULT VALUE IS 0. (THIS LOWER BOUND IS NOT -C ENFORCED ON THE FINAL STEP BEFORE REACHING TCRIT -C WHEN ITASK = 4 OR 5.) -C -C MAXORD IWORK(5) THE MAXIMUM ORDER TO BE ALLOWED. THE DEFAULT -C VALUE IS 12 IF METH = 1, AND 5 IF METH = 2. -C IF MAXORD EXCEEDS THE DEFAULT VALUE, IT WILL -C BE REDUCED TO THE DEFAULT VALUE. -C IF MAXORD IS CHANGED DURING THE PROBLEM, IT MAY -C CAUSE THE CURRENT ORDER TO BE REDUCED. -C -C MXSTEP IWORK(6) MAXIMUM NUMBER OF (INTERNALLY DEFINED) STEPS -C ALLOWED DURING ONE CALL TO THE KppSolveR. -C THE DEFAULT VALUE IS 500. -C -C MXHNIL IWORK(7) MAXIMUM NUMBER OF MESSAGES PRINTED (PER PROBLEM) -C WARNING THAT T + H = T ON A STEP (H = STEP SIZE). -C THIS MUST BE POSITIVE TO RESULT IN A NON-DEFAULT -C VALUE. THE DEFAULT VALUE IS 10. -C---------------------------------------------------------------------- -C OPTIONAL OUTPUTS. -C -C AS OPTIONAL ADDITIONAL OUTPUT FROM ODESSA, THE VARIABLES LISTED -C BELOW ARE QUANTITIES RELATED TO THE PERFORMANCE OF ODESSA -C WHICH ARE AVAILABLE TO THE USER. THESE ARE COMMUNICATED BY WAY OF -C THE WORK ARRAYS, BUT ALSO HAVE INTERNAL MNEMONIC NAMES AS SHOWN. -C EXCEPT WHERE STATED OTHERWISE, ALL OF THESE OUTPUTS ARE DEFINED -C ON ANY SUCCESSFUL RETURN FROM ODESSA, AND ON ANY RETURN WITH -C ISTATE = -1, -2, -4, -5, OR -6. ON AN ILLEGAL INPUT RETURN -C (ISTATE = -3), THEY WILL BE UNCHANGED FROM THEIR EXISTING VALUES -C (IF ANY), EXCEPT POSSIBLY FOR TOLSF, LENRW, AND LENIW. -C ON ANY ERROR RETURN, OUTPUTS RELEVANT TO THE ERROR WILL BE DEFINED, -C AS NOTED BELOW. -C -C NAME LOCATION MEANING -C -C HU RWORK(11) THE STEP SIZE IN T LAST USED (SUCCESSFULLY). -C -C HCUR RWORK(12) THE STEP SIZE TO BE ATTEMPTED ON THE NEXT STEP. -C -C TCUR RWORK(13) THE CURRENT VALUE OF THE INDEPENDENT VARIABLE -C WHICH THE KppSolveR HAS ACTUALLY REACHED, I.E. THE -C CURRENT INTERNAL MESH POINT IN T. ON OUTPUT, TCUR -C WILL ALWAYS BE AT LEAST AS FAR AS THE ARGUMENT -C T, BUT MAY BE FARTHER (IF INTERPOLATION WAS DONE). -C -C TOLSF RWORK(14) A TOLERANCE SCALE FACTOR, GREATER THAN 1.0, -C COMPUTED WHEN A REQUEST FOR TOO MUCH ACCURACY WAS -C DETECTED (ISTATE = -3 IF DETECTED AT THE START OF -C THE PROBLEM, ISTATE = -2 OTHERWISE). IF ITOL IS -C LEFT UNALTERED BUT RTOL AND ATOL ARE UNIFORMLY -C SCALED UP BY A FACTOR OF TOLSF FOR THE NEXT CALL, -C THEN THE KppSolveR IS DEEMED LIKELY TO SUCCEED. -C (THE USER MAY ALSO IGNORE TOLSF AND ALTER THE -C TOLERANCE PARAMETERS IN ANY OTHER WAY APPROPRIATE.) -C -C NST IWORK(11) THE NUMBER OF STEPS TAKEN FOR THE PROBLEM SO FAR. -C -C NFE IWORK(12) THE NUMBER OF F EVALUATIONS FOR THE PROBLEM SO FAR. -C -C NJE IWORK(13) THE NUMBER OF JACOBIAN EVALUATIONS (AND OF MATRIX -C LU DECOMPOSITIONS IF ISOPT = 0) FOR THE PROBLEM SO -C FAR. IF ISOPT = 1, THE NUMBER OF LU DECOMPOSITIONS -C IS EQUAL TO NJE - NSPE (SEE BELOW). -C -C NQU IWORK(14) THE METHOD ORDER LAST USED (SUCCESSFULLY). -C -C NQCUR IWORK(15) THE ORDER TO BE ATTEMPTED ON THE NEXT STEP. -C -C IMXER IWORK(16) THE INDEX OF THE COMPONENT OF LARGEST MAGNITUDE IN -C THE WEIGHTED LOCAL ERROR VECTOR (E(I,J)/EWT(I,J)), -C ON AN ERROR RETURN WITH ISTATE = -4 OR -5. -C -C LENRW IWORK(17) THE LENGTH OF RWORK ACTUALLY REQUIRED. -C THIS IS DEFINED ON NORMAL RETURNS AND ON AN ILLEGAL -C INPUT RETURN FOR INSUFFICIENT STORAGE. -C -C LENIW IWORK(18) THE LENGTH OF IWORK ACTUALLY REQUIRED. -C THIS IS DEFINED ON NORMAL RETURNS AND ON AN ILLEGAL -C INPUT RETURN FOR INSUFFICIENT STORAGE. -C -C NDFE IWORK(19) THE NUMBER OF DF/DP (VECTOR) EVALUATIONS. -C -C NSPE IWORK(20) THE NUMBER OF CALLS TO SUBROUTINE SPRIME. EACH CALL -C TO SPRIME REQUIRES A JACOBIAN EVALUATION, BUT NOT -C AN LU DECOMPOSITION. -C -C THE FOLLOWING ARRAYS ARE SEGMENTS OF THE RWORK AND IWORK ARRAYS -C WHICH MAY ALSO BE OF INTEREST TO THE USER AS OPTIONAL OUTPUTS. -C FOR EACH ARRAY, THE TABLE BELOW GIVES ITS INTERNAL NAME, ITS BASE -C ADDRESS IN RWORK OR IWORK, AND ITS DESCRIPTION. -C -C NAME BASE ADDRESS DESCRIPTION -C -C YH 21 IN RWORK THE NORDSIECK HISTORY ARRAY, OF SIZE NYH BY -C (NQCUR + 1). FOR J = 0,1,...,NQCUR, COLUMN J+1 -C OF YH CONTAINS HCUR**J/FACTORIAL(J) TIMES -C THE J-TH DERIVATIVE OF THE INTERPOLATING -C POLYNOMIAL CURRENTLY REPRESENTING THE SOLUTION, -C EVALUATED AT T = TCUR. -C -C ACOR LENRW-NYH+1 ARRAY OF SIZE NYH USED FOR THE ACCUMULATED -C IN RWORK CORRECTIONS ON EACH STEP, SCALED ON OUTPUT -C TO REPRESENT THE ESTIMATED LOCAL ERROR IN Y -C ON THE LAST STEP. THIS IS THE VECTOR E IN -C THE DESCRIPTION OF THE ERROR CONTROL. -C IT IS DEFINED ONLY ON A SUCCESSFUL RETURN -C FROM ODESSA. -C NRS LENIW-NPAR ARRAY OF SIZE NPAR+1, USED TO STORE THE -C IN IWORK ACCUMULATED NUMBER OF REPEATED STEPS DUE TO -C THE SENSITIVITY ANALYSIS.. -C NRS(1) = TOTAL NUMBER OF REPEATED STEPS, -C NRS(2),... = NUMBER OF REPEATED STEPS DUE TO -C MODEL PARAMETER 1,... -C -C---------------------------------------------------------------------- -C PART II. OTHER ROUTINES CALLABLE. -C -C THE FOLLOWING ARE OPTIONAL CALLS WHICH THE USER MAY MAKE TO -C GAIN ADDITIONAL CAPABILITIES IN CONJUNCTION WITH ODESSA. -C (THE ROUTINES XSETUN AND XSETF ARE DESIGNED TO CONFORM TO THE -C SLATEC ERROR HANDLING PACKAGE.) -C -C FORM OF CALL FUNCTION -C CALL XSETUN(LUN) SET THE LOGICAL UNIT NUMBER, LUN, FOR -C OUTPUT OF MESSAGES FROM ODESSA, IF -C THE DEFAULT IS NOT DESIRED. -C THE DEFAULT VALUE OF LUN IS 6. -C -C CALL XSETF(MFLAG) SET A FLAG TO CONTROL THE PRINTING OF -C MESSAGES BY ODESSA.. -C MFLAG = 0 MEANS DO NOT PRINT. (DANGER.. -C THIS RISKS LOSING VALUABLE INFORMATION.) -C MFLAG = 1 MEANS PRINT (THE DEFAULT). -C -C EITHER OF THE ABOVE CALLS MAY BE MADE AT -C ANY TIME AND WILL TAKE EFFECT IMMEDIATELY. -C -C CALL SVCOM (RSAV, ISAV) STORE IN RSAV AND ISAV THE CONTENTS -C OF THE INTERNAL COMMON BLOCKS USED BY -C ODESSA (SEE PART III BELOW). -C RSAV MUST BE A REAL ARRAY OF LENGTH 222 -C OR MORE, AND ISAV MUST BE AN INTEGER -C ARRAY OF LENGTH 54 OR MORE. -C -C CALL RSCOM (RSAV, ISAV) RESTORE, FROM RSAV AND ISAV, THE CONTENTS -C OF THE INTERNAL COMMON BLOCKS USED BY -C ODESSA. PRESUMES A PRIOR CALL TO SVCOM -C WITH THE SAME ARGUMENTS. -C -C SVCOM AND RSCOM ARE USEFUL IF -C INTERRUPTING A RUN AND RESTARTING -C LATER, OR ALTERNATING BETWEEN TWO OR -C MORE PROBLEMS KppSolveD WITH ODESSA. -C -C CALL INTDY(,,,,,) PROVIDE DERIVATIVES OF Y, OF VARIOUS -C (SEE BELOW) ORDERS, AT A SPECIFIED POINT T, IF -C DESIRED. IT MAY BE CALLED ONLY AFTER -C A SUCCESSFUL RETURN FROM ODESSA. -C -C THE DETAILED INSTRUCTIONS FOR USING INTDY ARE AS FOLLOWS. -C THE FORM OF THE CALL IS.. -C -C CALL INTDY (T, K, RWORK(21), NYH, DKY, IFLAG) -C -C THE INPUT PARAMETERS ARE.. -C -C T = VALUE OF INDEPENDENT VARIABLE WHERE ANSWERS ARE DESIRED -C (NORMALLY THE SAME AS THE T LAST RETURNED BY ODESSA). -C FOR VALID RESULTS, T MUST LIE BETWEEN TCUR - HU AND TCUR. -C (SEE OPTIONAL OUTPUTS FOR TCUR AND HU.) -C K = INTEGER ORDER OF THE DERIVATIVE DESIRED. K MUST SATISFY -C 0 .LE. K .LE. NQCUR, WHERE NQCUR IS THE CURRENT ORDER -C (SEE OPTIONAL OUTPUTS). THE CAPABILITY CORRESPONDING -C TO K = 0, I.E. COMPUTING Y(T), IS ALREADY PROVIDED -C BY ODESSA DIRECTLY. SINCE NQCUR .GE. 1, THE FIRST -C DERIVATIVE DY/DT IS ALWAYS AVAILABLE WITH INTDY. -C RWORK(21) = THE BASE ADDRESS OF THE HISTORY ARRAY YH. -C NYH = COLUMN LENGTH OF YH, EQUAL TO THE TOTAL NUMBER OF -C DEPENDENT VARIABLES. IF ISOPT = 0, NYH = N. IF ISOPT = 1, -C NYH = N * (NPAR + 1). -C -C THE OUTPUT PARAMETERS ARE.. -C -C DKY = A REAL ARRAY OF LENGTH NYH CONTAINING THE COMPUTED VALUE -C OF THE K-TH DERIVATIVE OF Y(T). -C IFLAG = INTEGER FLAG, RETURNED AS 0 IF K AND T WERE LEGAL, -C -1 IF K WAS ILLEGAL, AND -2 IF T WAS ILLEGAL. -C ON AN ERROR RETURN, A MESSAGE IS ALSO WRITTEN. -C---------------------------------------------------------------------- -C PART III. COMMON BLOCKS. -C -C IF ODESSA IS TO BE USED IN AN OVERLAY SITUATION, THE USER -C MUST DECLARE, IN THE PRIMARY OVERLAY, THE VARIABLES IN.. -C (1) THE CALL SEQUENCE TO ODESSA, -C (2) THE THREE INTERNAL COMMON BLOCKS -C /ODE001/ OF LENGTH 258 (219 DOUBLE PRECISION WORDS -C FOLLOWED BY 39 INTEGER WORDS), -C /ODE002/ OF LENGTH 14 (3 DOUBLE PRECISION WORDS FOLLOWED -C BY 11 INTEGER WORDS), -C /EH0001/ OF LENGTH 2 (INTEGER WORDS). -C -C IF ODESSA IS USED ON A SYSTEM IN WHICH THE CONTENTS OF INTERNAL -C COMMON BLOCKS ARE NOT PRESERVED BETWEEN CALLS, THE USER SHOULD -C DECLARE THE ABOVE THREE COMMON BLOCKS IN HIS MAIN PROGRAM TO INSURE -C THAT THEIR CONTENTS ARE PRESERVED. -C -C IF THE SOLUTION OF A GIVEN PROBLEM BY ODESSA IS TO BE INTERRUPTED -C AND THEN LATER CONTINUED, SUCH AS WHEN RESTARTING AN INTERRUPTED RUN -C OR ALTERNATING BETWEEN TWO OR MORE PROBLEMS, THE USER SHOULD SAVE, -C FOLLOWING THE RETURN FROM THE LAST ODESSA CALL PRIOR TO THE -C INTERRUPTION, THE CONTENTS OF THE CALL SEQUENCE VARIABLES AND THE -C INTERNAL COMMON BLOCKS, AND LATER RESTORE THESE VALUES BEFORE THE -C NEXT ODESSA CALL FOR THAT PROBLEM. TO SAVE AND RESTORE THE COMMON -C BLOCKS, USE SUBROUTINES SVCOM AND RSCOM (SEE PART II ABOVE). -C -C---------------------------------------------------------------------- -C PART IV. OPTIONALLY REPLACEABLE KppSolveR ROUTINES. -C -C BELOW ARE DESCRIPTIONS OF TWO ROUTINES IN THE ODESSA PACKAGE WHICH -C RELATE TO THE MEASUREMENT OF ERRORS. EITHER ROUTINE CAN BE -C REPLACED BY A USER-SUPPLIED VERSION, IF DESIRED. HOWEVER, SINCE SUCH -C A REPLACEMENT MAY HAVE A MAJOR IMPACT ON PERFORMANCE, IT SHOULD BE -C DONE ONLY WHEN ABSOLUTELY NECESSARY, AND ONLY WITH GREAT CAUTION. -C (NOTE.. THE MEANS BY WHICH THE PACKAGE VERSION OF A ROUTINE IS -C SUPERSEDED BY THE USER-S VERSION MAY BE SYSTEM-DEPENDENT.) -C -C (A) EWSET. -C THE FOLLOWING SUBROUTINE IS CALLED JUST BEFORE EACH INTERNAL -C INTEGRATION STEP, AND SETS THE ARRAY OF ERROR WEIGHTS, EWT, AS -C DESCRIBED UNDER ITOL/RTOL/ATOL ABOVE.. -C SUBROUTINE EWSET (NYH, ITOL, RTOL, ATOL, YCUR, EWT) -C WHERE NEQ, ITOL, RTOL, AND ATOL ARE AS IN THE ODESSA CALL SEQUENCE, -C YCUR CONTAINS THE CURRENT DEPENDENT VARIABLE VECTOR, AND -C EWT IS THE ARRAY OF WEIGHTS SET BY EWSET. -C -C IF THE USER SUPPLIES THIS SUBROUTINE, IT MUST RETURN IN EWT(I) -C (I = 1,...,NYH) A POSITIVE QUANTITY SUITABLE FOR COMPARING ERRORS -C IN Y(I) TO. THE EWT ARRAY RETURNED BY EWSET IS PASSED TO THE -C VNORM ROUTINE (SEE BELOW), AND ALSO USED BY ODESSA IN THE COMPUTATION -C OF THE OPTIONAL OUTPUT IMXER, THE DIAGONAL JACOBIAN APPROXIMATION, -C AND THE INCREMENTS FOR DIFFERENCE QUOTIENT JACOBIANS. -C -C IN THE USER-SUPPLIED VERSION OF EWSET, IT MAY BE DESIRABLE TO USE -C THE CURRENT VALUES OF DERIVATIVES OF Y. DERIVATIVES UP TO ORDER NQ -C ARE AVAILABLE FROM THE HISTORY ARRAY YH, DESCRIBED ABOVE UNDER -C OPTIONAL OUTPUTS. IN EWSET, YH IS IDENTICAL TO THE YCUR ARRAY, -C EXTENDED TO NQ + 1 COLUMNS WITH A COLUMN LENGTH OF NYH AND SCALE -C FACTORS OF H**J/FACTORIAL(J). ON THE FIRST CALL FOR THE PROBLEM, -C GIVEN BY NST = 0, NQ IS 1 AND H IS TEMPORARILY SET TO 1.0. -C THE QUANTITIES NQ, NYH, H, AND NST CAN BE OBTAINED BY INCLUDING -C IN EWSET THE STATEMENTS.. -C DOUBLE PRECISION H, RLS -C COMMON /ODE001/ RLS(219),ILS(39) -C NQ = ILS(35) -C NYH = ILS(14) -C NST = ILS(36) -C H = RLS(213) -C THUS, FOR EXAMPLE, THE CURRENT VALUE OF DY/DT CAN BE OBTAINED AS -C YCUR(NYH+I)/H (I=1,...,N) (AND THE DIVISION BY H IS -C UNNECESSARY WHEN NST = 0). -C -C (B) VNORM. -C THE FOLLOWING IS A REAL FUNCTION ROUTINE WHICH COMPUTES THE WEIGHTED -C ROOT-MEAN-SQUARE NORM OF A VECTOR V.. -C D = VNORM (LV, V, W) -C WHERE.. -C LV = THE LENGTH OF THE VECTOR, -C V = REAL ARRAY OF LENGTH N CONTAINING THE VECTOR, -C W = REAL ARRAY OF LENGTH N CONTAINING WEIGHTS, -C D = SQRT( (1/N) * SUM(V(I)*W(I))**2 ). -C VNORM IS CALLED WITH LV = N AND WITH W(I) = 1.0/EWT(I), WHERE -C EWT IS AS SET BY SUBROUTINE EWSET. -C -C IF THE USER SUPPLIES THIS FUNCTION, IT SHOULD RETURN A NON-NEGATIVE -C VALUE OF VNORM SUITABLE FOR USE IN THE ERROR CONTROL IN ODESSA. -C NONE OF THE ARGUMENTS SHOULD BE ALTERED BY VNORM. -C FOR EXAMPLE, A USER-SUPPLIED VNORM ROUTINE MIGHT.. -C -SUBSTITUTE A MAX-NORM OF (V(I)*W(I)) FOR THE RMS-NORM, OR -C -IGNORE SOME COMPONENTS OF V IN THE NORM, WITH THE EFFECT OF -C SUPPRESSING THE ERROR CONTROL ON THOSE COMPONENTS OF Y. -C---------------------------------------------------------------------- -C OTHER ROUTINES IN THE ODESSA PACKAGE. -C -C IN ADDITION TO SUBROUTINE ODESSA, THE ODESSA PACKAGE INCLUDES THE -C FOLLOWING SUBROUTINES AND FUNCTION ROUTINES.. -C INTDY COMPUTES AN INTERPOLATED VALUE OF THE Y VECTOR AT T = TOUT. -C STODE IS THE CORE INTEGRATOR, WHICH DOES ONE STEP OF THE -C INTEGRATION AND THE ASSOCIATED ERROR CONTROL. -C STESA MANAGES THE SOLUTION OF THE SENSITIVITY FUNCTIONS. -C CFODE SETS ALL METHOD COEFFICIENTS AND TEST CONSTANTS. -C PREPJ COMPUTES AND PREPROCESSES THE JACOBIAN MATRIX J = DF/DY -C AND THE NEWTON ITERATION MATRIX P = I - H*L0*J. -C IT IS ALSO CALLED BY SPRIME (WITH JOPT = 1) TO JUST -C COMPUTE THE JACOBIAN MATRIX. -C PREPDF COMPUTES THE INHOMOGENEITY MATRIX DF/DP. -C SPRIME DEFINES THE SYSTEM OF SENSITIVITY EQUATIONS. -C SOLSY MANAGES SOLUTION OF LINEAR SYSTEM IN CHORD ITERATION. -C EWSET SETS THE ERROR WEIGHT VECTOR EWT BEFORE EACH STEP. -C VNORM COMPUTES THE WEIGHTED R.M.S. NORM OF A VECTOR. -C SVCOM AND RSCOM ARE USER-CALLABLE ROUTINES TO SAVE AND RESTORE, -C RESPECTIVELY, THE CONTENTS OF THE INTERNAL COMMON BLOCKS. -C DGEFA AND DGESL ARE ROUTINES FROM LINPACK FOR SOLVING FULL -C SYSTEMS OF LINEAR ALGEBRAIC EQUATIONS. -C DGBFA AND DGBSL ARE ROUTINES FROM LINPACK FOR SOLVING BANDED -C LINEAR SYSTEMS. -C DAXPY, DSCAL, IDAMAX, AND DDOT ARE BASIC LINEAR ALGEBRA MODULES -C (BLAS) USED BY THE ABOVE LINPACK ROUTINES. -C D1MACH COMPUTES THE UNIT ROUNDOFF IN A MACHINE-INDEPENDENT MANNER. -C XERR, XSETUN, AND XSETF HANDLE THE PRINTING OF ALL ERROR -C MESSAGES AND WARNINGS. -C NOTE.. VNORM, IDAMAX, DDOT, AND D1MACH ARE FUNCTION ROUTINES. -C ALL THE OTHERS ARE SUBROUTINES. -C -C THE FORTRAN GENERIC INTRINSIC FUNCTIONS USED BY ODESSA ARE.. -C ABS, MAX, MIN, REAL, MOD, SIGN, SQRT, AND WRITE -C -C A BLOCK DATA SUBPROGRAM IS ALSO INCLUDED WITH THE PACKAGE, -C FOR LOADING SOME OF THE VARIABLES IN INTERNAL COMMON. -C -C---------------------------------------------------------------------- -C PART V. GENERAL REMARKS -C -C THIS SECTION HIGHLIGHTS THE BASIC DIFFERENCES BETWEEN THE ORIGINAL -C LSODE PACKAGE AND THE ODESSA MODIFICATION. THIS IS PROVIDED AS A -C SERVICE TO EXPERIENCED LSODE USERS TO EXPEDITE FAMILIARIZATION WITH -C ODESSA. -C -C (A). ORIGINAL SUBROUTINES AND FUNCTIONS. -C -C OF THE ORIGINAL 22 SUBROUTINES AND FUNCTIONS USED IN THE LSODE -C PACKAGE, ALL ARE USED BY ODESSA, WITH THE FOLLOWING HAVING BEEN -C MODIFIED.. -C -C LSODE THE ORIGINAL DRIVER SUBROUTINE FOR THE LSODE PACKAGE IS -C EXTENSIVELY MODIFIED AND RENAMED ODESSA, WHICH NOW -C CONTAINS A CALL TO SPRIME TO ESTABLISH INITIAL CONDITIONS -C FOR THE SENSITIVITY CALCULATIONS. -C -C STODE THE ONE STEP INTEGRATOR IS SLIGHTLY MODIFIED AND RETAINS -C ITS ORIGINAL NAME. IT NOW CONTAINS THE CALL TO STESA, -C AND ALSO CALLS SPRIME IF KFLAG .LE. -3. -C -C PREPJ ALSO NAMED PREPJ IN ODESSA IS SLIGHTLY MODIFIED TO ALLOW -C FOR THE CALCULATION OF JACOBIAN WITH NO PREPROCESSING -C (JOPT = 1). -C -C (B). NEW SUBROUTINES. -C -C IN ADDITION TO THE CHANGES NOTED ABOVE, THREE NEW SUBROUTINES -C HAVE BEEN INTRODUCED (SEE STESA, SPRIME, AND PREPDF AS DESCRIBED -C IN PART IV. ABOVE). -C -C (C). COMMON BLOCKS. -C -C /LS0001/ RETAINS THE SAME LENGTH AND IS RENAMED /ODE001/; -C HOWEVER THE REAL ARRAY ROWNS(209) IS SHORTENED TO A -C LENGTH OF (173) REAL WORDS, ALLOWING THE REMOVAL OF -C TESCO(3,12) WHICH IS NOW PASSED FROM STODE TO STESA. -C IN ADDITION, THE INTEGER ARRAY IOWNS(6) IS SHORTENED -C TO A LENGTH OF (4) INTEGER WORDS, ALLOWING THE REMOVAL -C OF IALTH AND LMAX WHICH ARE NOW PASSED FROM STODE TO -C STESA. -C -C /ODE002/ ADDED COMMON BLOCK FOR VARIABLES IMPORTANT TO -C SENSITIVITY ANALYSIS (SEE PART III. ABOVE). A BLOCK -C DATA PROGRAM IS NOT REQUIRED FOR THIS COMMON BLOCK. -C -C SVCOM,RSCOM THESE TWO SUBROUTINES ARE MODIFIED TO HANDLE -C COMMON BLOCK /ODE002/ AS WELL. -C -C (D). OPTIONAL INPUTS. -C -C THE FULL SET OF OPTIONAL INPUTS AVAILABLE IN LSODE IS ALSO -C AVAILABLE IN ODESSA, WITH THE EXCEPTION THAT THE NUMBER OF ODE'S -C IN THE MODEL (NEQ(1)), MAY NOT BE CHANGED DURING THE PROBLEM. -C IN ODESSA, NYH NOW REFERS TO THE TOTAL NUMBER OF FIRST-ORDER -C ODE'S (MODEL AND SENSITIVITY EQUATIONS) WHICH IS EQUAL TO -C NEQ(1) IF ISOPT = 0, OR NEQ(1)*(NEQ(2)+1) IF ISOPT = 1. -C NEQ(1), NEQ(2), AND NYH ARE NOT ALLOWED TO CHANGE DURING -C THE COURSE OF AN INTEGRATION. -C -C (E). OPTIONAL OUTPUTS. -C -C THE FULL SET OF OPTIONAL OUTPUTS AVAILABLE IN LSODE IS ALSO -C AVAILABLE IN ODESSA. IN ADDITION, IWORK(19) AND IWORK(20) ARE -C LOADED WITH NDFE AND NSPE, RESPECTIVELY, UPON OUTPUT. THE TOTAL -C NUMBER OF LU DECOMPOSITIONS OF THE PROCESSED JACOBIAN IS EQUAL -C TO NJE - NSPE. -C----------------------------------------------------------------------- - SUBROUTINE ODESSA (F, DF, NEQ, Y, PAR, T, TOUT, ITOL, RTOL, ATOL, - 1 ITASK, ISTATE, IOPT, RWORK, LRW, IWORK, LIW, JAC, MF) - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - LOGICAL IHIT - EXTERNAL F, DF, JAC, PREPJ, SOLSY, PREPDF - DIMENSION NEQ(*), Y(*), PAR(*), RTOL(*), ATOL(*), IOPT(*), - 1 RWORK(LRW), IWORK(LIW), MORD(2) -C----------------------------------------------------------------------- -C THIS IS THE SEPTEMBER 1, 1986 VERSION OF ODESSA.. -C AN ORDINARY DIFFERENTIAL EQUATION KppSolveR WITH EXPLICIT SIMULTANEOUS -C SENSITIVITY ANALYSIS. -C -C THIS PACKAGE IS A MODIFICATION OF THE AUGUST 13, 1981 VERSION OF -C LSODE.. LIVERMORE KppSolveR FOR ORDINARY DIFFERENTIAL EQUATIONS. -C THIS VERSION IS IN DOUBLE PRECISION. -C -C ODESSA KppSolveS FOR THE FIRST-ORDER SENSITIVITY COEFFICIENTS.. -C DY(I)/DP, FOR A SINGLE PARAMETER, OR, -C DY(I)/DP(J), FOR MULTIPLE PARAMETERS, -C ASSOCIATED WITH A SYSTEM OF ORDINARY DIFFERENTIAL EQUATIONS.. -C DY(T)/DT = F(Y,T;P). -C----------------------------------------------------------------------- -C REFERENCES... -C -C 1. JORGE R. LEIS AND MARK A. KRAMER, THE SIMULTANEOUS SOLUTION AND -C EXPLICIT SENSITIVITY ANALYSIS OF SYSTEMS DESCRIBED BY ORDINARY -C DIFFERENTIAL EQUATIONS, SUBMITTED TO ACM TRANS. MATH. SOFTWARE, -C (1985). -C -C 2. JORGE R. LEIS AND MARK A. KRAMER, ODESSA - AN ORDINARY -C DIFFERENTIAL EQUATION KppSolveR WITH EXPLICIT SIMULTANEOUS -C SENSITIVITY ANALYSIS, SUBMITTED TO ACM TRANS. MATH. SOFTWARE. -C (1985). -C -C 3. ALAN C. HINDMARSH, LSODE AND LSODI, TWO NEW INITIAL VALUE -C ORDINARY DIFFERENTIAL EQUATION KppSolveRS, ACM-SIGNUM NEWSLETTER, -C VOL. 15, NO. 4 (1980), PP. 10-11. -C----------------------------------------------------------------------- -C THE FOLLOWING INTERNAL COMMON BLOCKS CONTAIN -C (A) VARIABLES WHICH ARE LOCAL TO ANY SUBROUTINE BUT WHOSE VALUES MUST -C BE PRESERVED BETWEEN CALLS TO THE ROUTINE (OWN VARIABLES), AND -C (B) VARIABLES WHICH ARE COMMUNICATED BETWEEN SUBROUTINES. -C THE STRUCTURE OF THE BLOCKS ARE AS FOLLOWS.. ALL REAL VARIABLES ARE -C LISTED FIRST, FOLLOWED BY ALL INTEGERS. WITHIN EACH TYPE, THE -C VARIABLES ARE GROUPED WITH THOSE LOCAL TO SUBROUTINE ODESSA FIRST, -C THEN THOSE LOCAL TO SUBROUTINE STODE, AND FINALLY THOSE USED -C FOR COMMUNICATION. THE BLOCKS ARE DECLARED IN SUBROUTINES ODESSA -C INTDY, STODE, STESA, PREPJ, PREPDF, AND SOLSY. GROUPS OF VARIABLES -C ARE REPLACED BY DUMMY ARRAYS IN THE COMMON DECLARATIONS IN ROUTINES -C WHERE THOSE VARIABLES ARE NOT USED. -C----------------------------------------------------------------------- - COMMON /ODE001/ TRET, ROWNS(173), - 1 TESCO(3,12), CCMAX, EL0, H, HMIN, HMXI, HU, RC, TN, UROUND, - 2 ILLIN, INIT, LYH, LEWT, LACOR, LSAVF, LWM, LIWM, - 3 MXSTEP, MXHNIL, NHNIL, NTREP, NSLAST, NYH, IOWNS(4), - 4 IALTH, LMAX, ICF, IERPJ, IERSL, JCUR, JSTART, KFLAG, L, METH, - 5 MITER, MAXORD, MAXCOR, MSBP, MXNCF, N, NQ, NST, NFE, NJE, NQU - COMMON /ODE002/ DUPS, DSMS, DDNS, - 1 NPAR, LDFDP, LNRS, - 2 ISOPT, NSV, NDFE, NSPE, IDF, IERSP, JOPT, KFLAGS - PARAMETER (ZERO=0.0D0,ONE=1.0D0,TWO=2.0D0,FOUR=4.0D0) - DATA MORD(1),MORD(2)/12,5/, MXSTP0/500/, MXHNL0/10/ -C----------------------------------------------------------------------- -C BLOCK A. -C THIS CODE BLOCK IS EXECUTED ON EVERY CALL. -C IT TESTS ISTATE AND ITASK FOR LEGALITY AND BRANCHES APPROPIATELY. -C IF ISTATE .GT. 1 BUT THE FLAG INIT SHOWS THAT INITIALIZATION HAS -C NOT YET BEEN DONE, AN ERROR RETURN OCCURS. -C IF ISTATE = 1 AND TOUT = T, JUMP TO BLOCK G AND RETURN IMMEDIATELY. -C----------------------------------------------------------------------- - IF (ISTATE .LT. 1 .OR. ISTATE .GT. 3) GO TO 601 - IF (ITASK .LT. 1 .OR. ITASK .GT. 5) GO TO 602 - IF (ISTATE .EQ. 1) GO TO 10 - IF (INIT .EQ. 0) GO TO 603 - IF (ISTATE .EQ. 2) GO TO 200 - GO TO 20 - 10 INIT = 0 - IF (TOUT .EQ. T) GO TO 430 - 20 NTREP = 0 -C----------------------------------------------------------------------- -C BLOCK B. -C THE NEXT CODE BLOCK IS EXECUTED FOR THE INITIAL CALL (ISTATE = 1), -C OR FOR A CONTINUATION CALL WITH PARAMETER CHANGES (ISTATE = 3). -C IT CONTAINS CHECKING OF ALL INPUTS AND VARIOUS INITIALIZATIONS. -C -C FIRST CHECK LEGALITY OF THE NON-OPTIONAL INPUTS NEQ, ITOL, IOPT, -C MF, ML, AND MU. -C----------------------------------------------------------------------- - IF (NEQ(1) .LE. 0) GO TO 604 - IF (ISTATE .EQ. 1) GO TO 25 - IF (NEQ(1) .NE. N) GO TO 605 - 25 N = NEQ(1) - IF (ITOL .LT. 1 .OR. ITOL .GT. 4) GO TO 606 - DO 26 I = 1,3 - 26 IF (IOPT(I) .LT. 0 .OR. IOPT(I) .GT. 1) GO TO 607 - ISOPT = IOPT(2) - IDF = IOPT(3) - NYH = N - NSV = 1 - METH = MF/10 - MITER = MF - 10*METH - IF (METH .LT. 1 .OR. METH .GT. 2) GO TO 608 - IF (MITER .LT. 0 .OR. MITER .GT. 5) GO TO 608 - IF (MITER .LE. 3) GO TO 30 - ML = IWORK(1) - MU = IWORK(2) - IF (ML .LT. 0 .OR. ML .GE. N) GO TO 609 - IF (MU .LT. 0 .OR. MU .GE. N) GO TO 610 - 30 IF (ISOPT .EQ. 0) GO TO 32 -C CHECK LEGALITY OF THE NON-OPTIONAL INPUTS ISOPT, NPAR. -C COMPUTE NUMBER OF SOLUTION VECTORS AND TOTAL NUMBER OF EQUATIONS. - IF (NEQ(2) .LE. 0) GO TO 628 - IF (ISTATE .EQ. 1) GO TO 31 - IF (NEQ(2) .NE. NPAR) GO TO 629 - 31 NPAR = NEQ(2) - NSV = NPAR + 1 - NYH = NSV * N - IF (MITER .EQ. 0 .OR. MITER .EQ. 3) GO TO 630 -C NEXT PROCESS AND CHECK THE OPTIONAL INPUTS. -------------------------- - 32 IF (IOPT(1) .EQ. 1) GO TO 40 - MAXORD = MORD(METH) - MXSTEP = MXSTP0 - MXHNIL = MXHNL0 - IF (ISTATE .EQ. 1) H0 = ZERO - HMXI = ZERO - HMIN = ZERO - GO TO 60 - 40 MAXORD = IWORK(5) - IF (MAXORD .LT. 0) GO TO 611 - IF (MAXORD .EQ. 0) MAXORD = 100 - MAXORD = MIN(MAXORD,MORD(METH)) - MXSTEP = IWORK(6) - IF (MXSTEP .LT. 0) GO TO 612 - IF (MXSTEP .EQ. 0) MXSTEP = MXSTP0 - MXHNIL = IWORK(7) - IF (MXHNIL .LT. 0) GO TO 613 - IF (MXHNIL .EQ. 0) MXHNIL = MXHNL0 - IF (ISTATE .NE. 1) GO TO 50 - H0 = RWORK(5) - IF ((TOUT - T)*H0 .LT. ZERO) GO TO 614 - 50 HMAX = RWORK(6) - IF (HMAX .LT. ZERO) GO TO 615 - HMXI = ZERO - IF (HMAX .GT. ZERO) HMXI = ONE/HMAX - HMIN = RWORK(7) - IF (HMIN .LT. ZERO) GO TO 616 -C----------------------------------------------------------------------- -C SET WORK ARRAY POINTERS AND CHECK LENGTHS LRW AND LIW. -C POINTERS TO SEGMENTS OF RWORK AND IWORK ARE NAMED BY PREFIXING L TO -C THE NAME OF THE SEGMENT. E.G., THE SEGMENT YH STARTS AT RWORK(LYH). -C SEGMENTS OF RWORK (IN ORDER) ARE DENOTED YH, WM, EWT, SAVF, ACOR. -C WORK SPACE FOR DFDP IS CONTAINED IN ACOR. -C----------------------------------------------------------------------- - 60 LYH = 21 - LWM = LYH + (MAXORD + 1)*NYH - IF (MITER .EQ. 0) LENWM = 0 - IF (MITER .EQ. 1 .OR. MITER .EQ. 2) LENWM = N*N + 2 - IF (MITER .EQ. 3) LENWM = N + 2 - IF (MITER .GE. 4) LENWM = (2*ML + MU + 1)*N + 2 - LEWT = LWM + LENWM - LSAVF = LEWT + NYH - LACOR = LSAVF + N - LDFDP = LACOR + N - LENRW = LACOR + NYH - 1 - IWORK(17) = LENRW - LIWM = 1 - LENIW = 20 + N - IF (MITER .EQ. 0 .OR. MITER .EQ. 3) LENIW = 20 - LNRS = LENIW + LIWM - IF (ISOPT .EQ. 1) LENIW = LNRS + NPAR - IWORK(18) = LENIW - IF (LENRW .GT. LRW) GO TO 617 - IF (LENIW .GT. LIW) GO TO 618 -C CHECK RTOL AND ATOL FOR LEGALITY. ------------------------------------ - RTOLI = RTOL(1) - ATOLI = ATOL(1) - DO 70 I = 1,NYH - IF (ITOL .GE. 3) RTOLI = RTOL(I) - IF (ITOL .EQ. 2 .OR. ITOL .EQ. 4) ATOLI = ATOL(I) - IF (RTOLI .LT. ZERO) GO TO 619 - IF (ATOLI .LT. ZERO) GO TO 620 - 70 CONTINUE - IF (ISTATE .EQ. 1) GO TO 100 -C IF ISTATE = 3, SET FLAG TO SIGNAL PARAMETER CHANGES TO STODE. -------- - JSTART = -1 - IF (NQ .LE. MAXORD) GO TO 90 -C MAXORD WAS REDUCED BELOW NQ. COPY YH(*,MAXORD+2) INTO SAVF. --------- - DO 80 I = 1,N - 80 RWORK(I+LSAVF-1) = RWORK(I+LWM-1) -C RELOAD WM(1) = RWORK(LWM), SINCE LWM MAY HAVE CHANGED. --------------- - 90 IF (MITER .GT. 0) RWORK(LWM) = SQRT(UROUND) - GO TO 200 -C----------------------------------------------------------------------- -C BLOCK C. -C THE NEXT BLOCK IS FOR THE INITIAL CALL ONLY (ISTATE = 1). -C IT CONTAINS ALL REMAINING INITIALIZATIONS, THE INITIAL CALL TO F, -C THE INITIAL CALL TO SPRIME IF ISOPT = 1, -C AND THE CALCULATION OF THE INITIAL STEP SIZE. -C THE ERROR WEIGHTS IN EWT ARE INVERTED AFTER BEING LOADED. -C----------------------------------------------------------------------- - 100 UROUND = D1MACH(4) - TN = T - IF (ITASK .NE. 4 .AND. ITASK .NE. 5) GO TO 105 - TCRIT = RWORK(1) - IF ((TCRIT - TOUT)*(TOUT - T) .LT. ZERO) GO TO 625 - IF (H0 .NE. ZERO .AND. (T + H0 - TCRIT)*H0 .GT. ZERO) - 1 H0 = TCRIT - T - 105 JSTART = 0 - IF (MITER .GT. 0) RWORK(LWM) = SQRT(UROUND) - NHNIL = 0 - NST = 0 - NJE = 0 - NSLAST = 0 - HU = ZERO - NQU = 0 - CCMAX = 0.3D0 - MAXCOR = 3 - IF (ISOPT .EQ. 1) MAXCOR = 4 - MSBP = 20 - MXNCF = 10 -C INITIAL CALL TO F. (LF0 POINTS TO YH(1,2) AND LOADS IN VALUES). - LF0 = LYH + NYH - CALL F (NEQ, T, Y, PAR, RWORK(LF0)) - NFE = 1 - DUPS = ZERO - DSMS = ZERO - DDNS = ZERO - NDFE = 0 - NSPE = 0 - IF (ISOPT .EQ. 0) GO TO 114 -C INITIALIZE COUNTS FOR REPEATED STEPS DUE TO SENSITIVITY ANALYSIS. - DO 110 J = 1,NSV - 110 IWORK(J + LNRS - 1) = 0 -C LOAD THE INITIAL VALUE VECTOR IN YH. --------------------------------- - 114 DO 115 I = 1,NYH - 115 RWORK(I+LYH-1) = Y(I) -C LOAD AND INVERT THE EWT ARRAY. (H IS TEMPORARILY SET TO ONE.) ------- - NQ = 1 - H = ONE - CALL EWSET (NYH, ITOL, RTOL, ATOL, RWORK(LYH), RWORK(LEWT)) - DO 120 I = 1,NYH - IF (RWORK(I+LEWT-1) .LE. ZERO) GO TO 621 - 120 RWORK(I+LEWT-1) = ONE/RWORK(I+LEWT-1) - IF (ISOPT .EQ. 0) GO TO 125 -C CALL SPRIME TO LOAD FIRST-ORDER SENSITIVITY DERIVATIVES INTO -C REMAINING YH(*,2) POSITIONS. - CALL SPRIME (NEQ, Y, RWORK(LYH), NYH, N, NSV, RWORK(LWM), - 1 IWORK(LIWM), RWORK(LEWT), RWORK(LF0), RWORK(LACOR), - 2 RWORK(LDFDP), PAR, F, JAC, DF, PREPJ, PREPDF) - IF (IERSP .EQ. -1) GO TO 631 - IF (IERSP .EQ. -2) GO TO 632 -C----------------------------------------------------------------------- -C THE CODING BELOW COMPUTES THE STEP SIZE, H0, TO BE ATTEMPTED ON THE -C FIRST STEP, UNLESS THE USER HAS SUPPLIED A VALUE FOR THIS. -C FIRST CHECK THAT TOUT - T DIFFERS SIGNIFICANTLY FROM ZERO. -C A SCALAR TOLERANCE QUANTITY TOL IS COMPUTED, AS MAX(RTOL(I)) -C IF THIS IS POSITIVE, OR MAX(ATOL(I)/ABS(Y(I))) OTHERWISE, ADJUSTED -C SO AS TO BE BETWEEN 100*UROUND AND 1.0E-3. ONLY THE ORIGINAL -C SOLUTION VECTOR IS CONSIDERED IN THIS CALCULATION (ISOPT = 0 OR 1). -C THEN THE COMPUTED VALUE H0 IS GIVEN BY.. -C NEQ -C H0**2 = TOL / ( W0**-2 + (1/NEQ) * SUM ( F(I)/YWT(I) )**2 ) -C 1 -C WHERE W0 = MAX ( ABS(T), ABS(TOUT) ), -C F(I) = I-TH COMPONENT OF INITIAL VALUE OF F, -C YWT(I) = EWT(I)/TOL (A WEIGHT FOR Y(I)). -C THE SIGN OF H0 IS INFERRED FROM THE INITIAL VALUES OF TOUT AND T. -C----------------------------------------------------------------------- - 125 IF (H0 .NE. ZERO) GO TO 180 - TDIST = ABS(TOUT - T) - W0 = MAX(ABS(T),ABS(TOUT)) - IF (TDIST .LT. TWO*UROUND*W0) GO TO 622 - TOL = RTOL(1) - IF (ITOL .LE. 2) GO TO 140 - DO 130 I = 1,N - 130 TOL = MAX(TOL,RTOL(I)) - 140 IF (TOL .GT. ZERO) GO TO 160 - ATOLI = ATOL(1) - DO 150 I = 1,N - IF (ITOL .EQ. 2 .OR. ITOL .EQ. 4) ATOLI = ATOL(I) - AYI = ABS(Y(I)) - IF (AYI .NE. ZERO) TOL = MAX(TOL,ATOLI/AYI) - 150 CONTINUE - 160 TOL = MAX(TOL,100.0D0*UROUND) - TOL = MIN(TOL,0.001D0) - SUM = VNORM (N, RWORK(LF0), RWORK(LEWT)) - SUM = ONE/(TOL*W0*W0) + TOL*SUM**2 - H0 = ONE/SQRT(SUM) - H0 = MIN(H0,TDIST) - H0 = SIGN(H0,TOUT-T) -C ADJUST H0 IF NECESSARY TO MEET HMAX BOUND. --------------------------- - 180 RH = ABS(H0)*HMXI - IF (RH .GT. ONE) H0 = H0/RH -C LOAD H WITH H0 AND SCALE YH(*,2) BY H0. ------------------------------ - H = H0 - DO 190 I = 1,NYH - 190 RWORK(I+LF0-1) = H0*RWORK(I+LF0-1) - GO TO 270 -C----------------------------------------------------------------------- -C BLOCK D. -C THE NEXT CODE BLOCK IS FOR CONTINUATION CALLS ONLY (ISTATE = 2 OR 3) -C AND IS TO CHECK STOP CONDITIONS BEFORE TAKING A STEP. -C----------------------------------------------------------------------- - 200 NSLAST = NST - GO TO (210, 250, 220, 230, 240), ITASK - 210 IF ((TN - TOUT)*H .LT. ZERO) GO TO 250 - CALL INTDY (TOUT, 0, RWORK(LYH), NYH, Y, IFLAG) - IF (IFLAG .NE. 0) GO TO 627 - T = TOUT - GO TO 420 - 220 TP = TN - HU*(ONE + 100.0D0*UROUND) - IF ((TP - TOUT)*H .GT. ZERO) GO TO 623 - IF ((TN - TOUT)*H .LT. ZERO) GO TO 250 - GO TO 400 - 230 TCRIT = RWORK(1) - IF ((TN - TCRIT)*H .GT. ZERO) GO TO 624 - IF ((TCRIT - TOUT)*H .LT. ZERO) GO TO 625 - IF ((TN - TOUT)*H .LT. ZERO) GO TO 245 - CALL INTDY (TOUT, 0, RWORK(LYH), NYH, Y, IFLAG) - IF (IFLAG .NE. 0) GO TO 627 - T = TOUT - GO TO 420 - 240 TCRIT = RWORK(1) - IF ((TN - TCRIT)*H .GT. ZERO) GO TO 624 - 245 HMX = ABS(TN) + ABS(H) - IHIT = ABS(TN - TCRIT) .LE. 100.0D0*UROUND*HMX - IF (IHIT) GO TO 400 - TNEXT = TN + H*(ONE + FOUR*UROUND) - IF ((TNEXT - TCRIT)*H .LE. ZERO) GO TO 250 - H = (TCRIT - TN)*(ONE - FOUR*UROUND) - IF (ISTATE .EQ. 2) JSTART = -2 -C----------------------------------------------------------------------- -C BLOCK E. -C THE NEXT BLOCK IS NORMALLY EXECUTED FOR ALL CALLS AND CONTAINS -C THE CALL TO THE ONE-STEP CORE INTEGRATOR STODE. -C -C THIS IS A LOOPING POINT FOR THE INTEGRATION STEPS. -C -C FIRST CHECK FOR TOO MANY STEPS BEING TAKEN, UPDATE EWT (IF NOT AT -C START OF PROBLEM), CHECK FOR TOO MUCH ACCURACY BEING REQUESTED, AND -C CHECK FOR H BELOW THE ROUNDOFF LEVEL IN T. -C TOLSF IS CALCULATED CONSIDERING ALL SOLUTION VECTORS. -C----------------------------------------------------------------------- - 250 CONTINUE - IF ((NST-NSLAST) .GE. MXSTEP) GO TO 500 - CALL EWSET (NYH, ITOL, RTOL, ATOL, RWORK(LYH), RWORK(LEWT)) - DO 260 I = 1,NYH - IF (RWORK(I+LEWT-1) .LE. ZERO) GO TO 510 - 260 RWORK(I+LEWT-1) = ONE/RWORK(I+LEWT-1) - 270 TOLSF = UROUND*VNORM (NYH, RWORK(LYH), RWORK(LEWT)) - IF (TOLSF .LE. ONE) GO TO 280 - TOLSF = TOLSF*2.0D0 - IF (NST .EQ. 0) GO TO 626 - GO TO 520 - 280 IF (ADDX(TN,H) .NE. TN) GO TO 290 - NHNIL = NHNIL + 1 - IF (NHNIL .GT. MXHNIL) GO TO 290 - CALL XERR ('ODESSA - WARNING..INTERNAL T (=R1) AND H (=R2) ARE', - 1 101, 1, 0, 0, 0, 0, ZERO, ZERO) - CALL XERR ('SUCH THAT IN THE MACHINE, T + H = T ON THE NEXT STEP', - 1 101, 1, 0, 0, 0, 0, ZERO, ZERO) - CALL XERR ('(H = STEP SIZE). KppSolveR WILL CONTINUE ANYWAY', - 1 101, 1, 0, 0, 0, 2, TN, H) - IF (NHNIL .LT. MXHNIL) GO TO 290 - CALL XERR ('ODESSA - ABOVE WARNING HAS BEEN ISSUED I1 TIMES.', - 1 102, 1, 0, 0, 0, 0, ZERO, ZERO) - CALL XERR ('IT WILL NOT BE ISSUED AGAIN FOR THIS PROBLEM', - 1 102, 1, 1, MXHNIL, 0, 0, ZERO,ZERO) - 290 CONTINUE -C----------------------------------------------------------------------- -C CALL STODE(NEQ,Y,YH,NYH,YH,WM,IWM,EWT,SAVF,ACOR,PAR,NRS, -C 1 F,JAC,DF,PREPJ,PREPDF,SOLSY) -C----------------------------------------------------------------------- - CALL STODE (NEQ, Y, RWORK(LYH), NYH, RWORK(LYH), RWORK(LWM), - 1 IWORK(LIWM), RWORK(LEWT), RWORK(LSAVF), RWORK(LACOR), - 2 PAR, IWORK(LNRS), F, JAC, DF, PREPJ, PREPDF, SOLSY) - KGO = 1 - KFLAG - GO TO (300, 530, 540, 633), KGO -C----------------------------------------------------------------------- -C BLOCK F. -C THE FOLLOWING BLOCK HANDLES THE CASE OF A SUCCESSFUL RETURN FROM THE -C CORE INTEGRATOR (KFLAG = 0). TEST FOR STOP CONDITIONS. -C----------------------------------------------------------------------- - 300 INIT = 1 - GO TO (310, 400, 330, 340, 350), ITASK -C ITASK = 1. IF TOUT HAS BEEN REACHED, INTERPOLATE. ------------------- - 310 IF ((TN - TOUT)*H .LT. ZERO) GO TO 250 - CALL INTDY (TOUT, 0, RWORK(LYH), NYH, Y, IFLAG) - T = TOUT - GO TO 420 -C ITASK = 3. JUMP TO EXIT IF TOUT WAS REACHED. ------------------------ - 330 IF ((TN - TOUT)*H .GE. ZERO) GO TO 400 - GO TO 250 -C ITASK = 4. SEE IF TOUT OR TCRIT WAS REACHED. ADJUST H IF NECESSARY. - 340 IF ((TN - TOUT)*H .LT. ZERO) GO TO 345 - CALL INTDY (TOUT, 0, RWORK(LYH), NYH, Y, IFLAG) - T = TOUT - GO TO 420 - 345 HMX = ABS(TN) + ABS(H) - IHIT = ABS(TN - TCRIT) .LE. 100.0D0*UROUND*HMX - IF (IHIT) GO TO 400 - TNEXT = TN + H*(ONE + FOUR*UROUND) - IF ((TNEXT - TCRIT)*H .LE. ZERO) GO TO 250 - H = (TCRIT - TN)*(ONE - FOUR*UROUND) - JSTART = -2 - GO TO 250 -C ITASK = 5. SEE IF TCRIT WAS REACHED AND JUMP TO EXIT. --------------- - 350 HMX = ABS(TN) + ABS(H) - IHIT = ABS(TN - TCRIT) .LE. 100.0D0*UROUND*HMX -C----------------------------------------------------------------------- -C BLOCK G. -C THE FOLLOWING BLOCK HANDLES ALL SUCCESSFUL RETURNS FROM ODESSA. -C IF ITASK .NE. 1, Y IS LOADED FROM YH AND T IS SET ACCORDINGLY. -C ISTATE IS SET TO 2, THE ILLEGAL INPUT COUNTER IS ZEROED, AND THE -C OPTIONAL OUTPUTS ARE LOADED INTO THE WORK ARRAYS BEFORE RETURNING. -C IF ISTATE = 1 AND TOUT = T, THERE IS A RETURN WITH NO ACTION TAKEN, -C EXCEPT THAT IF THIS HAS HAPPENED REPEATEDLY, THE RUN IS TERMINATED. -C----------------------------------------------------------------------- - 400 DO 410 I = 1,NYH - 410 Y(I) = RWORK(I+LYH-1) - T = TN - IF (ITASK .NE. 4 .AND. ITASK .NE. 5) GO TO 420 - IF (IHIT) T = TCRIT - 420 ISTATE = 2 - ILLIN = 0 - RWORK(11) = HU - RWORK(12) = H - RWORK(13) = TN - IWORK(11) = NST - IWORK(12) = NFE - IWORK(13) = NJE - IWORK(14) = NQU - IWORK(15) = NQ - IF (ISOPT .EQ. 0) RETURN - IWORK(19) = NDFE - IWORK(20) = NSPE - RETURN - 430 NTREP = NTREP + 1 - IF (NTREP .LT. 5) RETURN - CALL XERR ('ODESSA -- REPEATED CALLS WITH ISTATE = 1 AND - 1TOUT = T (=R1)', 301, 1, 0, 0, 0, 1, T, ZERO) - GO TO 800 -C----------------------------------------------------------------------- -C BLOCK H. -C THE FOLLOWING BLOCK HANDLES ALL UNSUCCESSFUL RETURNS OTHER THAN -C THOSE FOR ILLEGAL INPUT. FIRST THE ERROR MESSAGE ROUTINE IS CALLED. -C IF THERE WAS AN ERROR TEST OR CONVERGENCE TEST FAILURE, IMXER IS SET. -C THEN Y IS LOADED FROM YH, T IS SET TO TN, AND THE ILLEGAL INPUT -C COUNTER ILLIN IS SET TO 0. THE OPTIONAL OUTPUTS ARE LOADED INTO -C THE WORK ARRAYS BEFORE RETURNING. -C----------------------------------------------------------------------- -C THE MAXIMUM NUMBER OF STEPS WAS TAKEN BEFORE REACHING TOUT. ---------- - 500 CALL XERR ('ODESSA - AT CURRENT T (=R1), MXSTEP (=I1) STEPS', - 1 201, 1, 0, 0, 0, 0, ZERO,ZERO) - CALL XERR ('TAKEN ON THIS CALL BEFORE REACHING TOUT', - 1 201, 1, 1, MXSTEP, 0, 1, TN, ZERO) - ISTATE = -1 - GO TO 580 -C EWT(I) .LE. 0.0 FOR SOME I (NOT AT START OF PROBLEM). ---------------- - 510 EWTI = RWORK(LEWT+I-1) - CALL XERR ('ODESSA - AT T (=R1), EWT(I1) HAS BECOME R2 .LE. 0.', - 1 202, 1, 1, I, 0, 2, TN, EWTI) - ISTATE = -6 - GO TO 580 -C TOO MUCH ACCURACY REQUESTED FOR MACHINE PRECISION. ------------------- - 520 CALL XERR ('ODESSA - AT T (=R1), TOO MUCH ACCURACY REQUESTED', - 1 203, 1, 0, 0, 0, 0, ZERO,ZERO) - CALL XERR ('FOR PRECISION OF MACHINE.. SEE TOLSF (=R2)', - 1 203, 1, 0, 0, 0, 2, TN, TOLSF) - RWORK(14) = TOLSF - ISTATE = -2 - GO TO 580 -C KFLAG = -1. ERROR TEST FAILED REPEATEDLY OR WITH ABS(H) = HMIN. ----- - 530 CALL XERR ('ODESSA - AT T(=R1) AND STEP SIZE H(=R2), THE ERROR', - 1 204, 1, 0, 0, 0, 0, ZERO, ZERO) - CALL XERR ('TEST FAILED REPEATEDLY OR WITH ABS(H) = HMIN', - 1 204, 1, 0, 0, 0, 2, TN, H) - ISTATE = -4 - GO TO 560 -C KFLAG = -2. CONVERGENCE FAILED REPEATEDLY OR WITH ABS(H) = HMIN. ---- - 540 CALL XERR ('ODESSA - AT T (=R1) AND STEP SIZE H (=R2), THE', - 1 205, 1, 0, 0, 0, 0, ZERO,ZERO) - CALL XERR ('CORRECTOR CONVERGENCE FAILED REPEATEDLY', - 1 205, 1, 0, 0, 0, 0, ZERO,ZERO) - CALL XERR ('OR WITH ABS(H) = HMIN', - 1 205, 1, 0, 0, 0, 2, TN, H) - ISTATE = -5 -C COMPUTE IMXER IF RELEVANT. ------------------------------------------- - 560 BIG = ZERO - IMXER = 1 - DO 570 I = 1,NYH - SIZE = ABS(RWORK(I+LACOR-1)*RWORK(I+LEWT-1)) - IF (BIG .GE. SIZE) GO TO 570 - BIG = SIZE - IMXER = I - 570 CONTINUE - IWORK(16) = IMXER -C SET Y VECTOR, T, ILLIN, AND OPTIONAL OUTPUTS. ------------------------ - 580 DO 590 I = 1,NYH - 590 Y(I) = RWORK(I+LYH-1) - T = TN - ILLIN = 0 - RWORK(11) = HU - RWORK(12) = H - RWORK(13) = TN - IWORK(11) = NST - IWORK(12) = NFE - IWORK(13) = NJE - IWORK(14) = NQU - IWORK(15) = NQ - IF (ISOPT .EQ. 0) RETURN - IWORK(19) = NDFE - IWORK(20) = NSPE - RETURN -C----------------------------------------------------------------------- -C BLOCK I. -C THE FOLLOWING BLOCK HANDLES ALL ERROR RETURNS DUE TO ILLEGAL INPUT -C (ISTATE = -3), AS DETECTED BEFORE CALLING THE CORE INTEGRATOR. -C FIRST THE ERROR MESSAGE ROUTINE IS CALLED. THEN IF THERE HAVE BEEN -C 5 CONSECUTIVE SUCH RETURNS JUST BEFORE THIS CALL TO THE KppSolveR, -C THE RUN IS HALTED. -C----------------------------------------------------------------------- - 601 CALL XERR ('ODESSA - ISTATE (=I1) ILLEGAL', - 1 1, 1, 1, ISTATE, 0, 0, ZERO,ZERO) - GO TO 700 - 602 CALL XERR ('ODESSA - ITASK (=I1) ILLEGAL', - 1 2, 1, 1, ITASK, 0, 0, ZERO,ZERO) - GO TO 700 - 603 CALL XERR ('ODESSA - ISTATE .GT. 1 BUT ODESSA NOT INITIALIZED', - 1 3, 1, 0, 0, 0, 0, ZERO,ZERO) - GO TO 700 - 604 CALL XERR ('ODESSA - NEQ (=I1) .LT. 1', - 1 4, 1, 1, NEQ(1), 0, 0, ZERO,ZERO) - GO TO 700 - 605 CALL XERR ('ODESSA - ISTATE = 3 AND NEQ CHANGED. (I1 TO I2)', - 1 5, 1, 2, N, NEQ(1), 0, ZERO,ZERO) - GO TO 700 - 606 CALL XERR ('ODESSA - ITOL (=I1) ILLEGAL', - 1 6, 1, 1, ITOL, 0, 0, ZERO,ZERO) - GO TO 700 - 607 CALL XERR ('ODESSA - IOPT (=I1) ILLEGAL', - 1 7, 1, 1, IOPT, 0, 0, ZERO,ZERO) - GO TO 700 - 608 CALL XERR('ODESSA - MF (=I1) ILLEGAL', - 1 8, 1, 1, MF, 0, 0, ZERO,ZERO) - GO TO 700 - 609 CALL XERR('ODESSA - ML (=I1) ILLEGAL.. .LT.0 OR .GE.NEQ (=I2)', - 1 9, 1, 2, ML, NEQ(1), 0, ZERO,ZERO) - GO TO 700 - 610 CALL XERR('ODESSA - MU (=I1) ILLEGAL.. .LT.0 OR .GE.NEQ (=I2)', - 1 10, 1, 2, MU, NEQ(1), 0, ZERO,ZERO) - GO TO 700 - 611 CALL XERR('ODESSA - MAXORD (=I1) .LT. 0', - 1 11, 1, 1, MAXORD, 0, 0, ZERO,ZERO) - GO TO 700 - 612 CALL XERR('ODESSA - MXSTEP (=I1) .LT. 0', - 1 12, 1, 1, MXSTEP, 0, 0, ZERO,ZERO) - GO TO 700 - 613 CALL XERR('ODESSA - MXHNIL (=I1) .LT. 0', - 1 13, 1, 1, MXHNIL, 0, 0, ZERO,ZERO) - GO TO 700 - 614 CALL XERR('ODESSA - TOUT (=R1) BEHIND T (=R2)', - 1 14, 1, 0, 0, 0, 2, TOUT, T) - CALL XERR('INTEGRATION DIRECTION IS GIVEN BY H0 (=R1)', - 1 14, 1, 0, 0, 0, 1, H0, ZERO) - GO TO 700 - 615 CALL XERR('ODESSA - HMAX (=R1) .LT. 0.0', - 1 15, 1, 0, 0, 0, 1, HMAX, ZERO) - GO TO 700 - 616 CALL XERR('ODESSA - HMIN (=R1) .LT. 0.0', - 1 16, 1, 0, 0, 0, 1, HMIN, ZERO) - GO TO 700 - 617 CALL XERR('ODESSA - RWORK LENGTH NEEDED, LENRW (=I1), EXCEEDS - 1 LRW (=I2)', 17, 1, 2, LENRW, LRW, 0, ZERO,ZERO) - GO TO 700 - 618 CALL XERR('ODESSA - IWORK LENGTH NEEDED, LENIW (=I1), EXCEEDS - 1 LIW (=I2)', 18, 1, 2, LENIW, LIW, 0, ZERO,ZERO) - GO TO 700 - 619 CALL XERR('ODESSA - RTOL(I1) IS R1 .LT. 0.0', - 1 19, 1, 1, I, 0, 1, RTOLI, ZREO) - GO TO 700 - 620 CALL XERR('ODESSA - ATOL(I1) IS R1 .LT. 0.0', - 1 20, 1, 1, I, 0, 1, ATOLI, ZERO) - GO TO 700 -* - 621 EWTI = RWORK(LEWT+I-1) - CALL XERR('ODESSA - EWT(I1) IS R1 .LE. 0.0', - 1 21, 1, 1, I, 0, 1, EWTI, ZERO) - GO TO 700 - 622 CALL XERR('ODESSA - TOUT (=R1) TOO CLOSE TO T(=R2) TO START - 1 INTEGRATION', 22, 1, 0, 0, 0, 2, TOUT, T) - GO TO 700 - 623 CALL XERR('ODESSA - ITASK = I1 AND TOUT (=R1) BEHIND TCUR - HU - 1 (= R2)', 23, 1, 1, ITASK, 0, 2, TOUT, TP) - GO TO 700 - 624 CALL XERR('ODESSA - ITASK = 4 OR 5 AND TCRIT (=R1) BEHIND TCUR - 1 (=R2)', 24, 1, 0, 0, 0, 2, TCRIT, TN) - GO TO 700 - 625 CALL XERR('ODESSA - ITASK = 4 OR 5 AND TCRIT (=R1) BEHIND TOUT - 1 (=R2)', 25, 1, 0, 0, 0, 2, TCRIT, TOUT) - GO TO 700 - 626 CALL XERR('ODESSA - AT START OF PROBLEM, TOO MUCH ACCURACY', - 1 26, 1, 0, 0, 0, 0, ZERO,ZERO) - CALL XERR('REQUESTED FOR PRECISION OF MACHINE. SEE TOLSF (=R1)', - 1 26, 1, 0, 0, 0, 1, TOLSF, ZERO) - RWORK(14) = TOLSF - GO TO 700 - 627 CALL XERR('ODESSA - TROUBLE FROM INTDY. ITASK = I1, TOUT = R1', - 1 27, 1, 1, ITASK, 0, 1, TOUT, ZERO) - GO TO 700 -C ERROR STATEMENTS ASSOCIATED WITH SENSITIVITY ANALYSIS. - 628 CALL XERR('ODESSA - NPAR (=I1) .LT. 1', - 1 28, 1, 1, NPAR, 0, 0, ZERO,ZERO) - GO TO 700 - 629 CALL XERR('ODESSA - ISTATE = 3 AND NPAR CHANGED (I1 TO I2)', - 1 29, 1, 2, NP, NPAR, 0, ZERO,ZERO) - GO TO 700 - 630 CALL XERR('ODESSA - MITER (=I1) ILLEGAL', - 1 30, 1, 1, MITER, 0, 0, ZERO,ZERO) - GO TO 700 - 631 CALL XERR('ODESSA - TROUBLE IN SPRIME (IERPJ)', - 1 31, 1, 0, 0, 0, 0, ZERO,ZERO) - GO TO 700 - 632 CALL XERR('ODESSA - TROUBLE IN SPRIME (MITER)', - 1 32, 1, 0, 0, 0, 0, ZERO,ZERO) - GO TO 700 - 633 CALL XERR('ODESSA - FATAL ERROR IN STODE (KFLAG = -3)', - 1 33, 2, 0, 0, 0, 0, ZERO,ZERO) - GO TO 801 -C - 700 IF (ILLIN .EQ. 5) GO TO 710 - ILLIN = ILLIN + 1 - ISTATE = -3 - RETURN - 710 CALL XERR('ODESSA - REPEATED OCCURRENCES OF ILLEGAL INPUT', - 1 302, 1, 0, 0, 0, 0, ZERO,ZERO) -C - 800 CALL XERR('ODESSA - RUN ABORTED.. APPARENT INFINITE LOOP', - 1 303, 2, 0, 0, 0, 0, ZERO,ZERO) - RETURN - 801 CALL XERR('ODESSA - RUN ABORTED', - 1 304, 2, 0, 0, 0, 0, ZERO,ZERO) - RETURN -C-------------------- END OF SUBROUTINE ODESSA ------------------------- - END - DOUBLE PRECISION FUNCTION ADDX(A,B) - DOUBLE PRECISION A,B -C -C THIS FUNCTION IS NECESSARY TO FORCE OPTIMIZING COMPILERS TO -C EXECUTE AND STORE A SUM, FOR SUCCESSFUL EXECUTION OF THE -C TEST A + B = B. -C - ADDX = A + B - RETURN -C-------------------- END OF FUNCTION SUM ------------------------------ - END - SUBROUTINE SPRIME (NEQ, Y, YH, NYH, NROW, NCOL, WM, IWM, - 1 EWT, SAVF, FTEM, DFDP, PAR, F, JAC, DF, PJAC, PDF) - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - DIMENSION NEQ(*), Y(*), YH(NROW,NCOL,*), WM(*), IWM(*), - 1 EWT(*), SAVF(*), FTEM(*), DFDP(NROW,*), PAR(*) - EXTERNAL F, JAC, DF, PJAC, PDF - PARAMETER (ONE=1.0D0,ZERO=0.0D0) - COMMON /ODE001/ ROWND, ROWNS(173), - 1 RDUM1(37),EL0, H, RDUM2(6), - 2 IOWND1(14), IOWNS(4), - 3 IDUM1(3), IERPJ, IDUM2(6), - 4 MITER, IDUM3(4), N, IDUM4(5) - COMMON /ODE002/ RDUM3(3), - 1 IOWND2(3), IDUM5, NSV, IDUM6, NSPE, IDUM7, IERSP, JOPT, IDUM8 -C----------------------------------------------------------------------- -C SPRIME IS CALLED BY ODESSA TO INITIALIZE THE YH ARRAY. IT IS ALSO -C CALLED BY STODE TO REEVALUATE FIRST ORDER DERIVATIVES WHEN KFLAG -C .LE. -3. SPRIME COMPUTES THE FIRST DERIVATIVES OF THE SENSITIVITY -C COEFFICIENTS WITH RESPECT TO THE INDEPENDENT VARIABLE T... -C -C SPRIME = D(DY/DP)/DT = JAC*DY/DP + DF/DP -C WHERE JAC = JACOBIAN MATRIX -C DY/DP = SENSITIVITY MATRIX -C DF/DP = INHOMOGENEITY MATRIX -C THIS ROUTINE USES THE COMMON VARIABLES EL0, H, IERPJ, MITER, N, -C NSV, NSPE, IERSP, JOPT -C----------------------------------------------------------------------- -C CALL PREPJ WITH JOPT = 1. -C IF MITER = 2 OR 5, EL0 IS TEMPORARILY SET TO -1.0 AND H IS -C TEMPORARILY SET TO 1.0D0. -C----------------------------------------------------------------------- - NSPE = NSPE + 1 - JOPT = 1 - IF (MITER .EQ. 1 .OR. MITER .EQ. 4) GO TO 10 - HTEMP = H - ETEMP = EL0 - H = ONE - EL0 = -ONE - 10 CALL PJAC (NEQ, Y, YH, NYH, WM, IWM, EWT, SAVF, FTEM, - 1 PAR, F, JAC, JOPT) - IF (IERPJ .NE. 0) GO TO 300 - JOPT = 0 - IF (MITER .EQ. 1 .OR. MITER .EQ. 4) GO TO 20 - H = HTEMP - EL0 = ETEMP -C----------------------------------------------------------------------- -C CALL PREPDF AND LOAD DFDP(*,JPAR). -C----------------------------------------------------------------------- - 20 DO 30 J = 2,NSV - JPAR = J - 1 - CALL PDF (NEQ, Y, WM, SAVF, FTEM, DFDP(1,JPAR), PAR, - 1 F, DF, JPAR) - 30 CONTINUE -C----------------------------------------------------------------------- -C COMPUTE JAC*DY/DP AND STORE RESULTS IN YH(*,*,2). -C----------------------------------------------------------------------- - GO TO (40,40,310,100,100) MITER -C THE JACOBIAN IS FULL.------------------------------------------------ -C FOR EACH ROW OF THE JACOBIAN.. - 40 DO 70 IROW = 1,N -C AND EACH COLUMN OF THE SENSITIVITY MATRIX.. - DO 60 J = 2,NSV - SUM = ZERO -C TAKE THE VECTOR DOT PRODUCT.. - DO 50 I = 1,N - IPD = IROW + N*(I-1) + 2 - SUM = SUM + WM(IPD)*YH(I,J,1) - 50 CONTINUE - YH(IROW,J,2) = SUM - 60 CONTINUE - 70 CONTINUE - GO TO 200 -C THE JACOBIAN IS BANDED.----------------------------------------------- - 100 ML = IWM(1) - MU = IWM(2) - ICOUNT = 1 - MBAND = ML + MU + 1 - MEBAND = MBAND + ML - NMU = N - MU - ML1 = ML + 1 -C FOR EACH ROW OF THE JACOBIAN.. - DO 160 IROW = 1,N - IF (IROW .GT. ML1) GO TO 110 - IPD = MBAND + IROW + 1 - IYH = 1 - LBAND = MU + IROW - GO TO 120 - 110 ICOUNT = ICOUNT + 1 - IPD = ICOUNT*MEBAND + 2 - IYH = IYH + 1 - LBAND = LBAND - 1 - IF (IROW .LE. NMU) LBAND = MBAND -C AND EACH COLUMN OF THE SENSITIVITY MATRIX.. - 120 DO 150 J = 2,NSV - SUM = ZERO - I1 = IPD - I2 = IYH -C TAKE THE VECTOR DOT PRODUCT. - DO 140 I = 1,LBAND - SUM = SUM + WM(I1)*YH(I2,J,1) - I1 = I1 + MEBAND - 1 - I2 = I2 + 1 - 140 CONTINUE - YH(IROW,J,2) = SUM - 150 CONTINUE - 160 CONTINUE -C----------------------------------------------------------------------- -C ADD THE INHOMOGENEITY TERM, I.E., ADD DFDP(*,JPAR) TO YH(*,JPAR+1,2). -C----------------------------------------------------------------------- - 200 DO 220 J = 2,NSV - JPAR = J - 1 - DO 210 I = 1,N - YH(I,J,2) = YH(I,J,2) + DFDP(I,JPAR) - 210 CONTINUE - 220 CONTINUE - RETURN -C----------------------------------------------------------------------- -C ERROR RETURNS. -C----------------------------------------------------------------------- - 300 IERSP = -1 - RETURN - 310 IERSP = -2 - RETURN -C------------------------END OF SUBROUTINE SPRIME----------------------- - END - SUBROUTINE PREPJ (NEQ, Y, YH, NYH, WM, IWM, EWT, SAVF, FTEM, - 1 PAR, F, JAC, JOPT) - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - DIMENSION NEQ(*), Y(*), YH(NYH,*), WM(*), IWM(*), EWT(*), - 1 SAVF(*), FTEM(*), PAR(*) - EXTERNAL F, JAC - PARAMETER (ZERO=0.0D0,ONE=1.0D0) - COMMON /ODE001/ ROWND, ROWNS(173), - 2 RDUM1(37), EL0, H, RDUM2(4), TN, UROUND, - 3 IOWND(14), IOWNS(4), - 4 IDUM1(3), IERPJ, IDUM2, JCUR, IDUM3(4), - 5 MITER, IDUM4(4), N, IDUM5(2), NFE, NJE, IDUM6 -C----------------------------------------------------------------------- -C PREPJ IS CALLED BY STODE TO COMPUTE AND PROCESS THE MATRIX -C P = I - H*EL(1)*J , WHERE J IS AN APPROXIMATION TO THE JACOBIAN. -C IF ISOPT = 1, PREPJ IS ALSO CALLED BY SPRIME WITH JOPT = 1. -C HERE J IS COMPUTED BY THE USER-SUPPLIED ROUTINE JAC IF -C MITER = 1 OR 4, OR BY FINITE DIFFERENCING IF MITER = 2, 3, OR 5. -C IF MITER = 3, A DIAGONAL APPROXIMATION TO J IS USED. -C J IS STORED IN WM AND REPLACED BY P. IF MITER .NE. 3, P IS THEN -C SUBJECTED TO LU DECOMPOSITION (JOPT = 0) IN PREPARATION FOR LATER -C SOLUTION OF LINEAR SYSTEMS WITH P AS COEFFICIENT MATRIX. THIS IS -C DONE BY DGEFA IF MITER = 1 OR 2, AND BY DGBFA IF MITER = 4 OR 5. -C -C IN ADDITION TO VARIABLES DESCRIBED PREVIOUSLY, COMMUNICATION -C WITH PREPJ USES THE FOLLOWING.. -C Y = ARRAY CONTAINING PREDICTED VALUES ON ENTRY. -C FTEM = WORK ARRAY OF LENGTH N (ACOR IN STODE). -C SAVF = ARRAY CONTAINING F EVALUATED AT PREDICTED Y. -C WM = REAL WORK SPACE FOR MATRICES. ON OUTPUT IT CONTAINS THE -C INVERSE DIAGONAL MATRIX IF MITER = 3 AND THE LU DECOMPOSITION -C OF P IF MITER IS 1, 2 , 4, OR 5. -C STORAGE OF MATRIX ELEMENTS STARTS AT WM(3). -C WM ALSO CONTAINS THE FOLLOWING MATRIX-RELATED DATA.. -C WM(1) = SQRT(UROUND), USED IN NUMERICAL JACOBIAN INCREMENTS. -C WM(2) = H*EL0, SAVED FOR LATER USE IF MITER = 3. -C IWM = INTEGER WORK SPACE CONTAINING PIVOT INFORMATION, STARTING AT -C IWM(21), IF MITER IS 1, 2, 4, OR 5. IWM ALSO CONTAINS BAND -C PARAMETERS ML = IWM(1) AND MU = IWM(2) IF MITER IS 4 OR 5. -C EL0 = EL(1) (INPUT). -C IERPJ = OUTPUT ERROR FLAG, = 0 IF NO TROUBLE, .GT. 0 IF -C P MATRIX FOUND TO BE SINGULAR. -C JCUR = OUTPUT FLAG = 1 TO INDICATE THAT THE JACOBIAN MATRIX -C (OR APPROXIMATION) IS NOW CURRENT. -C JOPT = INPUT JACOBIAN OPTION, = 1 IF JAC IS DESIRED ONLY. -C THIS ROUTINE ALSO USES THE COMMON VARIABLES EL0, H, TN, UROUND, -C IERPJ, JCUR, MITER, N, NFE, AND NJE. -C----------------------------------------------------------------------- - NJE = NJE + 1 - IERPJ = 0 - JCUR = 1 - HL0 = H*EL0 - GO TO (100, 200, 300, 400, 500), MITER -C IF MITER = 1, CALL JAC AND MULTIPLY BY SCALAR. ----------------------- - 100 LENP = N*N - DO 110 I = 1,LENP - 110 WM(I+2) = ZERO - CALL JAC (NEQ, TN, Y, PAR, 0, 0, WM(3), N) - IF (JOPT .EQ. 1) RETURN - CON = -HL0 - DO 120 I = 1,LENP - 120 WM(I+2) = WM(I+2)*CON - GO TO 240 -C IF MITER = 2, MAKE N CALLS TO F TO APPROXIMATE J. -------------------- - 200 FAC = VNORM (N, SAVF, EWT) - R0 = 1000.0D0*ABS(H)*UROUND*REAL(N)*FAC - IF (R0 .EQ. ZERO) R0 = ONE - SRUR = WM(1) - J1 = 2 - DO 230 J = 1,N - YJ = Y(J) - R = MAX(SRUR*ABS(YJ),R0/EWT(J)) - Y(J) = Y(J) + R - FAC = -HL0/R - CALL F (NEQ, TN, Y, PAR, FTEM) - DO 220 I = 1,N - 220 WM(I+J1) = (FTEM(I) - SAVF(I))*FAC - Y(J) = YJ - J1 = J1 + N - 230 CONTINUE - NFE = NFE + N - IF (JOPT .EQ. 1) RETURN -C ADD IDENTITY MATRIX. ------------------------------------------------- - 240 J = 3 - DO 250 I = 1,N - WM(J) = WM(J) + ONE - 250 J = J + (N + 1) -C DO LU DECOMPOSITION ON P. -------------------------------------------- - CALL DGEFA (WM(3), N, N, IWM(21), IER) - IF (IER .NE. 0) IERPJ = 1 - RETURN -C IF MITER = 3, CONSTRUCT A DIAGONAL APPROXIMATION TO J AND P. --------- - 300 WM(2) = HL0 - R = EL0*0.1D0 - DO 310 I = 1,N - 310 Y(I) = Y(I) + R*(H*SAVF(I) - YH(I,2)) - CALL F (NEQ, TN, Y, PAR, WM(3)) - NFE = NFE + 1 - DO 320 I = 1,N - R0 = H*SAVF(I) - YH(I,2) - DI = 0.1D0*R0 - H*(WM(I+2) - SAVF(I)) - WM(I+2) = 1.0D0 - IF (ABS(R0) .LT. UROUND/EWT(I)) GO TO 320 - IF (ABS(DI) .EQ. ZERO) GO TO 330 - WM(I+2) = 0.1D0*R0/DI - 320 CONTINUE - RETURN - 330 IERPJ = 1 - RETURN -C IF MITER = 4, CALL JAC AND MULTIPLY BY SCALAR. ----------------------- - 400 ML = IWM(1) - MU = IWM(2) - ML3 = ML + 3 - MBAND = ML + MU + 1 - MEBAND = MBAND + ML - LENP = MEBAND*N - DO 410 I = 1,LENP - 410 WM(I+2) = ZERO - CALL JAC (NEQ, TN, Y, PAR, ML, MU, WM(ML3), MEBAND) - IF (JOPT .EQ. 1) RETURN - CON = -HL0 - DO 420 I = 1,LENP - 420 WM(I+2) = WM(I+2)*CON - GO TO 570 -C IF MITER = 5, MAKE MBAND CALLS TO F TO APPROXIMATE J. ---------------- - 500 ML = IWM(1) - MU = IWM(2) - MBAND = ML + MU + 1 - MBA = MIN(MBAND,N) - MEBAND = MBAND + ML - MEB1 = MEBAND - 1 - SRUR = WM(1) - FAC = VNORM (N, SAVF, EWT) - R0 = 1000.0D0*ABS(H)*UROUND*REAL(N)*FAC - IF (R0 .EQ. ZERO) R0 = ONE - DO 560 J = 1,MBA - DO 530 I = J,N,MBAND - YI = Y(I) - R = MAX(SRUR*ABS(YI),R0/EWT(I)) - 530 Y(I) = Y(I) + R - CALL F (NEQ, TN, Y, PAR, FTEM) - DO 550 JJ = J,N,MBAND - Y(JJ) = YH(JJ,1) - YJJ = Y(JJ) - R = MAX(SRUR*ABS(YJJ),R0/EWT(JJ)) - FAC = -HL0/R - I1 = MAX(JJ-MU,1) - I2 = MIN(JJ+ML,N) - II = JJ*MEB1 - ML + 2 - DO 540 I = I1,I2 - 540 WM(II+I) = (FTEM(I) - SAVF(I))*FAC - 550 CONTINUE - 560 CONTINUE - NFE = NFE + MBA - IF (JOPT .EQ. 1) RETURN -C ADD IDENTITY MATRIX. ------------------------------------------------- - 570 II = MBAND + 2 - DO 580 I = 1,N - WM(II) = WM(II) + ONE - 580 II = II + MEBAND -C DO LU DECOMPOSITION OF P. -------------------------------------------- - CALL DGBFA (WM(3), MEBAND, N, ML, MU, IWM(21), IER) - IF (IER .NE. 0) IERPJ = 1 - RETURN -C----------------------- END OF SUBROUTINE PREPJ ----------------------- - END - SUBROUTINE PREPDF (NEQ, Y, SRUR, SAVF, FTEM, DFDP, PAR, - 1 F, DF, JPAR) - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - EXTERNAL F, DF - DIMENSION NEQ(*), Y(*), SAVF(*), FTEM(*), DFDP(*), PAR(*) - COMMON /ODE001/ ROWND, ROWNS(173), - 1 RDUM1(43), TN, RDUM2, - 2 IOWND1(14), IOWNS(4), - 3 IDUM1(10), MITER, IDUM2(4), N, IDUM3(2), NFE, IDUM4(2) - COMMON /ODE002/ RDUM3(3), - 1 IOWND2(3), IDUM5(2), NDFE, IDUM6, IDF, IDUM7(3) -C----------------------------------------------------------------------- -C PREPDF IS CALLED BY SPRIME AND STESA TO COMPUTE THE INHOMOGENEITY -C VECTORS DF(I)/DP(JPAR). HERE DF/DP IS COMPUTED BY THE USER-SUPPLIED -C ROUTINE DF IF IDF = 1, OR BY FINITE DIFFERENCING IF IDF = 0. -C -C IN ADDITION TO VARIABLES DESCRIBED PREVIOUSLY, COMMUNICATION WITH -C PREPDF USES THE FOLLOWING.. -C Y = REAL ARRAY OF LENGTH NYH CONTAINING DEPENDENT VARIABLES. -C PREPDF USES ONLY THE FIRST N ENTRIES OF Y(*). -C SRUR = SQRT(UROUND) (= WM(1)). -C SAVF = REAL ARRAY OF LENGTH N CONTAINING DERIVATIVES DY/DT. -C FTEM = REAL ARRAY OF LENGTH N USED TO TEMPORARILY STORE DY/DT FOR -C NUMERICAL DIFFERENTIATION. -C DFDP = REAL ARRAY OF LENGTH N USED TO STORE DF(I)/DP(JPAR), I = 1,N. -C PAR = REAL ARRAY OF LENGTH NPAR CONTAINING EQUATION PARAMETERS -C OF INTEREST. -C JPAR = INPUT PARAMETER, 2 .LE. JPAR .LE. NSV, DESIGNATING THE -C APPROPRIATE SOLUTION VECTOR CORRESPONDING TO PAR(JPAR). -C THIS ROUTINE ALSO USES THE COMMON VARIABLES TN, MITER, N, NFE, NDFE, -C AND IDF. -C----------------------------------------------------------------------- - NDFE = NDFE + 1 - IDF1 = IDF + 1 - GO TO (100, 200), IDF1 -C IDF = 0, CALL F TO APPROXIMATE DFDP. --------------------------------- - 100 RPAR = PAR(JPAR) - R = MAX(SRUR*ABS(RPAR),SRUR) - PAR(JPAR) = RPAR + R - FAC = 1.0D0/R - CALL F (NEQ, TN, Y, PAR, FTEM) - DO 110 I = 1,N - 110 DFDP(I) = (FTEM(I) - SAVF(I))*FAC - PAR(JPAR) = RPAR - NFE = NFE + 1 - RETURN -C IDF = 1, CALL USER SUPPLIED DF. -------------------------------------- - 200 DO 210 I = 1,N - 210 DFDP(I) = 0.0D0 - CALL DF (NEQ, TN, Y, PAR, DFDP, JPAR) - RETURN -C -------------------- END OF SUBROUTINE PREPDF ------------------------ - END - SUBROUTINE INTDY (T, K, YH, NYH, DKY, IFLAG) - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - DIMENSION YH(NYH,1), DKY(1) - COMMON /ODE001/ ROWND, ROWNS(173), - 2 RDUM1(38),H, RDUM2(2), HU, RDUM3, TN, UROUND, - 3 IOWND(14), IOWNS(4), - 4 IDUM1(8), L, IDUM2, - 5 IDUM3(5), N, NQ, IDUM4(4) -C----------------------------------------------------------------------- -C INTDY COMPUTES INTERPOLATED VALUES OF THE K-TH DERIVATIVE OF THE -C DEPENDENT VARIABLE VECTOR Y, AND STORES IT IN DKY. THIS ROUTINE -C IS CALLED WITHIN THE PACKAGE WITH K = 0 AND T = TOUT, BUT MAY -C ALSO BE CALLED BY THE USER FOR ANY K UP TO THE CURRENT ORDER. -C (SEE DETAILED INSTRUCTIONS IN THE USAGE DOCUMENTATION.) -C----------------------------------------------------------------------- -C THE COMPUTED VALUES IN DKY ARE GOTTEN BY INTERPOLATION USING THE -C NORDSIECK HISTORY ARRAY YH. THIS ARRAY CORRESPONDS UNIQUELY TO A -C VECTOR-VALUED POLYNOMIAL OF DEGREE NQCUR OR LESS, AND DKY IS SET -C TO THE K-TH DERIVATIVE OF THIS POLYNOMIAL AT T. -C THE FORMULA FOR DKY IS.. -C Q -C DKY(I) = SUM C(J,K) * (T - TN)**(J-K) * H**(-J) * YH(I,J+1) -C J=K -C WHERE C(J,K) = J*(J-1)*...*(J-K+1), Q = NQCUR, TN = TCUR, H = HCUR. -C THE QUANTITIES NQ = NQCUR, L = NQ+1, N = NEQ, TN, AND H ARE -C COMMUNICATED BY COMMON. THE ABOVE SUM IS DONE IN REVERSE ORDER. -C IFLAG IS RETURNED NEGATIVE IF EITHER K OR T IS OUT OF BOUNDS. -C----------------------------------------------------------------------- - IFLAG = 0 - IF (K .LT. 0 .OR. K .GT. NQ) GO TO 80 - TP = TN - HU*(1.0D0 + 100.0D0*UROUND) - IF ((T-TP)*(T-TN) .GT. 0.0D0) GO TO 90 -C - S = (T - TN)/H - IC = 1 - IF (K .EQ. 0) GO TO 15 - JJ1 = L - K - DO 10 JJ = JJ1,NQ - 10 IC = IC*JJ - 15 C = REAL(IC) - DO 20 I = 1,NYH - 20 DKY(I) = C*YH(I,L) - IF (K .EQ. NQ) GO TO 55 - JB2 = NQ - K - DO 50 JB = 1,JB2 - J = NQ - JB - JP1 = J + 1 - IC = 1 - IF (K .EQ. 0) GO TO 35 - JJ1 = JP1 - K - DO 30 JJ = JJ1,J - 30 IC = IC*JJ - 35 C = REAL(IC) - DO 40 I = 1,NYH - 40 DKY(I) = C*YH(I,JP1) + S*DKY(I) - 50 CONTINUE - IF (K .EQ. 0) RETURN - 55 R = H**(-K) - DO 60 I = 1,NYH - 60 DKY(I) = R*DKY(I) - RETURN -C - 80 CALL XERR('INTDY-- K (=I1) ILLEGAL', - 1 51, 1, 1, K, 0, 0, ZERO,ZERO) - IFLAG = -1 - RETURN - 90 CALL XERR ('INTDY-- T (=R1) ILLEGAL', - 1 52, 1, 0, 0, 0, 1, T, ZERO) - CALL XERR('T NOT IN INTERVAL TCUR - HU (= R1) TO TCUR (=R2)', - 1 52, 1, 0, 0, 0, 2, TP, TN) - IFLAG = -2 - RETURN -C----------------------- END OF SUBROUTINE INTDY ----------------------- - END - SUBROUTINE STESA (NEQ, Y, NROW, NCOL, YH, WM, IWM, EWT, SAVF, - 1 ACOR, PAR, NRS, F, JAC, DF, PJAC, PDF, KppSolve) - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - EXTERNAL F, JAC, DF, PJAC, PDF, KppSolve - DIMENSION NEQ(*), Y(NROW,*), YH(NROW,NCOL,*), WM(*), IWM(*), - 1 EWT(NROW,*), SAVF(*), ACOR(NROW,*), PAR(*), NRS(*) - PARAMETER (ONE=1.0D0,ZERO=0.0D0) - COMMON /ODE001/ ROWND, ROWNS(173), - 1 TESCO(3,12), RDUM1, EL0, H, RDUM2(4), TN, RDUM3, - 2 IOWND1(14), IOWNS(4), - 3 IALTH, LMAX, IDUM1, IERPJ, IERSL, JCUR, IDUM2, KFLAG, L, IDUM3, - 4 MITER, IDUM4(4), N, NQ, IDUM5, NFE, IDUM6(2) - COMMON /ODE002/ DUPS, DSMS, DDNS, - 1 IOWND2(3), IDUM7, NSV, IDUM8(2), IDF, IDUM9, JOPT, KFLAGS -C----------------------------------------------------------------------- -C STESA IS CALLED BY STODE TO PERFORM AN EXPLICIT CALCULATION FOR THE -C FIRST-ORDER SENSITIVITY COEFFICIENTS DY(I)/DP(J), I = 1,N; J = 1,NPAR. -C -C IN ADDITION TO THE VARIABLES DESCRIBED PREVIOUSLY, COMMUNICATION -C WITH STESA USES THE FOLLOWING.. -C Y = AN NROW (=N) BY NCOL (=NSV) REAL ARRAY CONTAINING THE -C CORRECTED DEPENDENT VARIABLES ON OUTPUT.. -C Y(I,1) , I = 1,N = STATE VARIABLES (INPUT); -C Y(I,J) , I = 1,N , J = 2,NSV , -C = SENSITIVITY COEFFICIENTS, DY(I)/DP(J). -C YH = AN N BY NSV BY LMAX REAL ARRAY CONTAINING THE PREDICTED -C DEPENDENT VARIABLES AND THEIR APPROXIMATE SCALED DERIVATIVES. -C SAVF = A REAL ARRAY OF LENGTH N USED TO STORE FIRST DERIVATIVES -C OF DEPENDENT VARIABLES IF MITER = 2 OR 5. -C PAR = A REAL ARRAY OF LENGTH NPAR CONTAINING THE EQUATION -C PARAMETERS OF INTEREST. -C NRS = AN INTEGER ARRAY OF LENGTH NPAR + 1 CONTAINING THE NUMBER -C OF REPEATED STEPS (KFLAGS .LT. 0) DUE TO THE SENSITIVITY -C CALCULATIONS.. -C NRS(1) = TOTAL NUMBER OF REPEATED STEPS -C NRS(I) , I = 2,NPAR = NUMBER OF REPEATED STEPS DUE -C TO PARAMETER I. -C NSV = NUMBER OF SOLUTION VECTORS = NPAR + 1. -C KFLAGS = LOCAL ERROR TEST FLAG, = 0 IF TEST PASSES, .LT. 0 IF TEST -C FAILS, AND STEP NEEDS TO BE REPEATED. ERROR TEST IS APPLIED -C TO EACH SOLUTION VECTOR INDEPENDENTLY. -C DUPS, DSMS, DDNS = REAL SCALARS USED FOR COMPUTING RHUP, RHSM, RHDN, -C ON RETURN TO STODE (IALTH .EQ. 1). -C THIS ROUTINE ALSO USES THE COMMON VARIABLES EL0, H, TN, IALTH, LMAX, -C IERPJ, IERSL, JCUR, KFLAG, L, MITER, N, NQ, NFE, AND JOPT. -C----------------------------------------------------------------------- - DUPS = ZERO - DSMS = ZERO - DDNS = ZERO - HL0 = H*EL0 - EL0I = ONE/EL0 - TI2 = ONE/TESCO(2,NQ) - TI3 = ONE/TESCO(3,NQ) -C IF MITER = 2 OR 5 (OR IDF = 0), SUPPLY DERIVATIVES AT CORRECTED -C Y(*,1) VALUES FOR NUMERICAL DIFFERENTIATION IN PJAC AND/OR PDF. - IF (MITER .EQ. 2 .OR. MITER .EQ. 5 .OR. IDF .EQ. 0) GO TO 10 - GO TO 15 - 10 CALL F (NEQ, TN, Y, PAR, SAVF) - NFE = NFE + 1 -C IF JCUR = 0, UPDATE THE JACOBIAN MATRIX. -C IF MITER = 5, LOAD CORRECTED Y(*,1) VALUES INTO Y(*,2). - 15 IF (JCUR .EQ. 1) GO TO 30 - IF (MITER .NE. 5) GO TO 25 - DO 20 I = 1,N - 20 Y(I,2) = Y(I,1) - 25 CALL PJAC (NEQ, Y, Y(1,2), N, WM, IWM, EWT, SAVF, ACOR(1,2), - 1 PAR, F, JAC, JOPT) - IF (IERPJ .NE. 0) RETURN -C----------------------------------------------------------------------- -C THIS IS A LOOPING POINT FOR THE SENSITIVITY CALCULATIONS. -C----------------------------------------------------------------------- -C FOR EACH PARAMETER PAR(*), A SENSITIVITY SOLUTION VECTOR IS COMPUTED -C USING THE SAME STEP SIZE (H) AND ORDER (NQ) AS IN STODE. -C A LOCAL ERROR TEST IS APPLIED INDEPENDENTLY TO EACH SOLUTION VECTOR. -C----------------------------------------------------------------------- - 30 DO 100 J = 2,NSV - JPAR = J - 1 -C EVALUATE INHOMOGENEITY TERM, TEMPORARILY LOAD INTO Y(*,JPAR+1). ------ - CALL PDF(NEQ, Y, WM, SAVF, ACOR(1,J), Y(1,J), PAR, - 1 F, DF, JPAR) -C----------------------------------------------------------------------- -C LOAD RHS OF SENSITIVITY SOLUTION (CORRECTOR) EQUATION.. -C -C RHS = DY/DP - EL(1)*H*D(DY/DP)/DT + EL(1)*H*DF/DP -C -C----------------------------------------------------------------------- - DO 40 I = 1,N - 40 Y(I,J) = YH(I,J,1) - EL0*YH(I,J,2) + HL0*Y(I,J) -C----------------------------------------------------------------------- -C KppSolve CORRECTOR EQUATION: THE SOLUTIONS ARE LOCATED IN Y(*,JPAR+1). -C THE EXPLICIT FORMULA IS.. -C -C (I - EL(1)*H*JAC) * DY/DP(CORRECTED) = RHS -C -C----------------------------------------------------------------------- - CALL KppSolve (WM, IWM, Y(1,J), DUM) - IF (IERSL .NE. 0) RETURN -C ESTIMATE LOCAL TRUNCATION ERROR. ------------------------------------- - DO 50 I = 1,N - 50 ACOR(I,J) = (Y(I,J) - YH(I,J,1))*EL0I - ERR = VNORM(N, ACOR(1,J), EWT(1,J))*TI2 - IF (ERR .GT. ONE) GO TO 200 -C----------------------------------------------------------------------- -C LOCAL ERROR TEST PASSED. SET KFLAGS TO 0 TO INDICATE THIS. -C IF IALTH = 1, COMPUTE DSMS, DDNS, AND DUPS (IF L .LT. LMAX). -C----------------------------------------------------------------------- - KFLAGS = 0 - IF (IALTH .GT. 1) GO TO 100 - IF (L .EQ. LMAX) GO TO 70 - DO 60 I= 1,N - 60 Y(I,J) = ACOR(I,J) - YH(I,J,LMAX) - DUPS = MAX(DUPS,VNORM(N,Y(1,J),EWT(1,J))*TI3) - 70 DSMS = MAX(DSMS,ERR) - 100 CONTINUE - RETURN -C----------------------------------------------------------------------- -C THIS SECTION IS REACHED IF THE ERROR TOLERANCE FOR SENSITIVITY -C SOLUTION VECTOR JPAR HAS BEEN VIOLATED. KFLAGS IS MADE NEGATIVE TO -C INDICATE THIS. IF KFLAGS = -1, SET KFLAG EQUAL TO ZERO SO THAT KFLAG -C IS SET TO -1 ON RETURN TO STODE BEFORE REPEATING THE STEP. -C INCREMENT NRS(1) (= TOTAL NUMBER OF REPEATED STEPS DUE TO ALL -C SENSITIVITY SOLUTION VECTORS) BY ONE. -C INCREMENT NRS(JPAR+1) (= TOTAL NUMBER OF REPEATED STEPS DUE TO -C SOLUTION VECTOR JPAR+1) BY ONE. -C LOAD DSMS FOR RH CALCULATION IN STODE. -C----------------------------------------------------------------------- - 200 KFLAGS = KFLAGS - 1 - IF (KFLAGS .EQ. -1) KFLAG = 0 - NRS(1) = NRS(1) + 1 - NRS(J) = NRS(J) + 1 - DSMS = ERR - RETURN -C------------------------ END OF SUBROUTINE STESA ---------------------- - END - SUBROUTINE STODE (NEQ, Y, YH, NYH, YH1, WM, IWM, EWT, SAVF, ACOR, - 1 PAR, NRS, F, JAC, DF, PJAC, PDF, SLVS) - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - EXTERNAL F, JAC, DF, PJAC, PDF, SLVS - DIMENSION NEQ(*), Y(*), YH(NYH,*), YH1(*), WM(*), IWM(*), EWT(*), - 1 SAVF(*), ACOR(*), PAR(*), NRS(*) - PARAMETER (ONE=1.0D0,ZERO=0.0D0) - COMMON /ODE001/ ROWND, - 1 CONIT, CRATE, EL(13), ELCO(13,12), HOLD, RMAX, - 2 TESCO(3,12), CCMAX, EL0, H, HMIN, HMXI, HU, RC, TN, UROUND, - 3 IOWND1(14), IPUP, MEO, NQNYH, NSLP, - 4 IALTH, LMAX, ICF, IERPJ, IERSL, JCUR, JSTART, KFLAG, L, METH, - 5 MITER, MAXORD, MAXCOR, MSBP, MXNCF, N, NQ, NST, NFE, NJE, NQU - COMMON /ODE002/ DUPS, DSMS, DDNS, - 1 IOWND2(3), ISOPT, NSV, NDFE, NSPE, IDF, IERSP, JOPT, KFLAGS -C----------------------------------------------------------------------- -C STODE PERFORMS ONE STEP OF THE INTEGRATION OF AN INITIAL VALUE -C PROBLEM FOR A SYSTEM OF ORDINARY DIFFERENTIAL EQUATIONS. -C NOTE.. STODE IS INDEPENDENT OF THE VALUE OF THE ITERATION METHOD -C INDICATOR MITER, WHEN THIS IS .NE. 0, AND HENCE IS INDEPENDENT -C OF THE TYPE OF CHORD METHOD USED, OR THE JACOBIAN STRUCTURE. -C FOR ISOPT = 1, STODE CALLS STESA FOR SENSITIVITY CALCULATIONS. -C VARIABLES USED FOR COMMUNICATION WITH STESA ARE DESCRIBED IN STESA. -C COMMUNICATION WITH STODE IS DONE WITH THE FOLLOWING VARIABLES.. -C -C NEQ = INTEGER ARRAY CONTAINING PROBLEM SIZE IN NEQ(1), AND -C NUMBER OF PARAMETERS TO BE CONSIDERED IN THE SENSITIVITY -C ANALYSIS NEQ(2) (FOR ISOPT = 1), AND PASSED AS THE -C NEQ ARGUMENT IN ALL CALLS TO F, JAC, AND DF. -C Y = AN ARRAY OF LENGTH .GE. N USED AS THE Y ARGUMENT IN -C ALL CALLS TO F, JAC, AND DF. -C YH = AN NYH BY LMAX ARRAY CONTAINING THE DEPENDENT VARIABLES -C AND THEIR APPROXIMATE SCALED DERIVATIVES, WHERE -C LMAX = MAXORD + 1. YH(I,J+1) CONTAINS THE APPROXIMATE -C J-TH DERIVATIVE OF Y(I), SCALED BY H**J/FACTORIAL(J) -C (J = 0,1,...,NQ). ON ENTRY FOR THE FIRST STEP, THE FIRST -C TWO COLUMNS OF YH MUST BE SET FROM THE INITIAL VALUES. -C NYH = A CONSTANT INTEGER .GE. N, THE FIRST DIMENSION OF YH. -C THE TOTAL NUMBER OF FIRST-ORDER DIFFERENTIAL EQUATIONS.. -C NYH = N, ISOPT = 0, -C NYH = N * (NPAR + 1), ISOPT = 1 -C YH1 = A ONE-DIMENSIONAL ARRAY OCCUPYING THE SAME SPACE AS YH. -C EWT = AN ARRAY OF LENGTH NYH CONTAINING MULTIPLICATIVE WEIGHTS -C FOR LOCAL ERROR MEASUREMENTS. LOCAL ERRORS IN Y(I) ARE -C COMPARED TO 1.0/EWT(I) IN VARIOUS ERROR TESTS. -C SAVF = AN ARRAY OF WORKING STORAGE, OF LENGTH N. -C ALSO USED FOR INPUT OF YH(*,MAXORD+2) WHEN JSTART = -1 -C AND MAXORD .LT. THE CURRENT ORDER NQ. -C ACOR = A WORK ARRAY OF LENGTH NYH, USED FOR THE ACCUMULATED -C CORRECTIONS. ON A SUCCESSFUL RETURN, ACOR(I) CONTAINS -C THE ESTIMATED ONE-STEP LOCAL ERROR IN Y(I). -C WM,IWM = REAL AND INTEGER WORK ARRAYS ASSOCIATED WITH MATRIX -C OPERATIONS IN CHORD ITERATION (MITER .NE. 0). -C PJAC = NAME OF ROUTINE TO EVALUATE AND PREPROCESS JACOBIAN MATRIX -C AND P = I - H*EL0*JAC, IF A CHORD METHOD IS BEING USED. -C IF ISOPT = 1, PJAC CAN BE CALLED TO CALCULATE JAC BY -C SETTING JOPT = 1. -C SLVS = NAME OF ROUTINE TO KppSolve LINEAR SYSTEM IN CHORD ITERATION. -C CCMAX = MAXIMUM RELATIVE CHANGE IN H*EL0 BEFORE PJAC IS CALLED. -C H = THE STEP SIZE TO BE ATTEMPTED ON THE NEXT STEP. -C H IS ALTERED BY THE ERROR CONTROL ALGORITHM DURING THE -C PROBLEM. H CAN BE EITHER POSITIVE OR NEGATIVE, BUT ITS -C SIGN MUST REMAIN CONSTANT THROUGHOUT THE PROBLEM. -C HMIN = THE MINIMUM ABSOLUTE VALUE OF THE STEP SIZE H TO BE USED. -C HMXI = INVERSE OF THE MAXIMUM ABSOLUTE VALUE OF H TO BE USED. -C HMXI = 0.0 IS ALLOWED AND CORRESPONDS TO AN INFINITE HMAX. -C HMIN AND HMXI MAY BE CHANGED AT ANY TIME, BUT WILL NOT -C TAKE EFFECT UNTIL THE NEXT CHANGE OF H IS CONSIDERED. -C TN = THE INDEPENDENT VARIABLE. TN IS UPDATED ON EACH STEP TAKEN. -C JSTART = AN INTEGER USED FOR INPUT ONLY, WITH THE FOLLOWING -C VALUES AND MEANINGS.. -C 0 PERFORM THE FIRST STEP. -C .GT.0 TAKE A NEW STEP CONTINUING FROM THE LAST. -C -1 TAKE THE NEXT STEP WITH A NEW VALUE OF H, MAXORD, -C N, METH, OR MITER. -C -2 TAKE THE NEXT STEP WITH A NEW VALUE OF H, -C BUT WITH OTHER INPUTS UNCHANGED. -C ON RETURN, JSTART IS SET TO 1 TO FACILITATE CONTINUATION. -C KFLAG = A COMPLETION CODE WITH THE FOLLOWING MEANINGS.. -C 0 THE STEP WAS SUCCESFUL. -C -1 THE REQUESTED ERROR COULD NOT BE ACHIEVED. -C -2 CORRECTOR CONVERGENCE COULD NOT BE ACHIEVED. -C -3 FATAL ERROR IN PJAC, OR SLVS, (OR STESA). -C A RETURN WITH KFLAG = -1 OR -2 MEANS EITHER -C ABS(H) = HMIN OR 10 CONSECUTIVE FAILURES OCCURRED. -C ON A RETURN WITH KFLAG NEGATIVE, THE VALUES OF TN AND -C THE YH ARRAY ARE AS OF THE BEGINNING OF THE LAST -C STEP, AND H IS THE LAST STEP SIZE ATTEMPTED. -C MAXORD = THE MAXIMUM ORDER OF INTEGRATION METHOD TO BE ALLOWED. -C MAXCOR = THE MAXIMUM NUMBER OF CORRECTOR ITERATIONS ALLOWED. -C (= 3, IF ISOPT = 0) -C (= 4, IF ISOPT = 1) -C MSBP = MAXIMUM NUMBER OF STEPS BETWEEN PJAC CALLS (MITER .GT. 0). -C IF ISOPT = 1, PJAC IS CALLED AT LEAST ONCE EVERY STEP. -C MXNCF = MAXIMUM NUMBER OF CONVERGENCE FAILURES ALLOWED. -C METH/MITER = THE METHOD FLAGS. SEE DESCRIPTION IN DRIVER. -C N = THE NUMBER OF FIRST-ORDER MODEL DIFFERENTIAL EQUATIONS. -C----------------------------------------------------------------------- - KFLAG = 0 - KFLAGS = 0 - TOLD = TN - NCF = 0 - IERPJ = 0 - IERSL = 0 - JCUR = 0 - ICF = 0 - IF (JSTART .GT. 0) GO TO 200 - IF (JSTART .EQ. -1) GO TO 100 - IF (JSTART .EQ. -2) GO TO 160 -C----------------------------------------------------------------------- -C ON THE FIRST CALL, THE ORDER IS SET TO 1, AND OTHER VARIABLES ARE -C INITIALIZED. RMAX IS THE MAXIMUM RATIO BY WHICH H CAN BE INCREASED -C IN A SINGLE STEP. IT IS INITIALLY 1.E4 TO COMPENSATE FOR THE SMALL -C INITIAL H, BUT THEN IS NORMALLY EQUAL TO 10. IF A FAILURE -C OCCURS (IN CORRECTOR CONVERGENCE OR ERROR TEST), RMAX IS SET AT 2 -C FOR THE NEXT INCREASE. -C THESE COMPUTATIONS CONSIDER ONLY THE ORIGINAL SOLUTION VECTOR. -C THE SENSITIVITY SOLUTION VECTORS ARE CONSIDERED IN STESA (ISOPT = 1). -C----------------------------------------------------------------------- - LMAX = MAXORD + 1 - NQ = 1 - L = 2 - IALTH = 2 - RMAX = 10000.0D0 - RC = ZERO - EL0 = ONE - CRATE = 0.7D0 - DELP = ZERO - HOLD = H - MEO = METH - NSLP = 0 - IPUP = MITER - IRET = 3 - GO TO 140 -C----------------------------------------------------------------------- -C THE FOLLOWING BLOCK HANDLES PRELIMINARIES NEEDED WHEN JSTART = -1. -C IPUP IS SET TO MITER TO FORCE A MATRIX UPDATE. -C IF AN ORDER INCREASE IS ABOUT TO BE CONSIDERED (IALTH = 1), -C IALTH IS RESET TO 2 TO POSTPONE CONSIDERATION ONE MORE STEP. -C IF THE CALLER HAS CHANGED METH, CFODE IS CALLED TO RESET -C THE COEFFICIENTS OF THE METHOD. -C IF THE CALLER HAS CHANGED MAXORD TO A VALUE LESS THAN THE CURRENT -C ORDER NQ, NQ IS REDUCED TO MAXORD, AND A NEW H CHOSEN ACCORDINGLY. -C IF H IS TO BE CHANGED, YH MUST BE RESCALED. -C IF H OR METH IS BEING CHANGED, IALTH IS RESET TO L = NQ + 1 -C TO PREVENT FURTHER CHANGES IN H FOR THAT MANY STEPS. -C----------------------------------------------------------------------- - 100 IPUP = MITER - LMAX = MAXORD + 1 - IF (IALTH .EQ. 1) IALTH = 2 - IF (METH .EQ. MEO) GO TO 110 - CALL CFODE (METH, ELCO, TESCO) - MEO = METH - IF (NQ .GT. MAXORD) GO TO 120 - IALTH = L - IRET = 1 - GO TO 150 - 110 IF (NQ .LE. MAXORD) GO TO 160 - 120 NQ = MAXORD - L = LMAX - DO 125 I = 1,L - 125 EL(I) = ELCO(I,NQ) - NQNYH = NQ*NYH - RC = RC*EL(1)/EL0 - EL0 = EL(1) - CONIT = 0.5D0/REAL(NQ+2) - DDN = VNORM (N, SAVF, EWT)/TESCO(1,L) - EXDN = ONE/REAL(L) - RHDN = ONE/(1.3D0*DDN**EXDN + 0.0000013D0) - RH = MIN(RHDN,ONE) - IREDO = 3 - IF (H .EQ. HOLD) GO TO 170 - RH = MIN(RH,ABS(H/HOLD)) - H = HOLD - GO TO 175 -C----------------------------------------------------------------------- -C CFODE IS CALLED TO GET ALL THE INTEGRATION COEFFICIENTS FOR THE -C CURRENT METH. THEN THE EL VECTOR AND RELATED CONSTANTS ARE RESET -C WHENEVER THE ORDER NQ IS CHANGED, OR AT THE START OF THE PROBLEM. -C----------------------------------------------------------------------- - 140 CALL CFODE (METH, ELCO, TESCO) - 150 DO 155 I = 1,L - 155 EL(I) = ELCO(I,NQ) - NQNYH = NQ*NYH - RC = RC*EL(1)/EL0 - EL0 = EL(1) - CONIT = 0.5D0/REAL(NQ+2) - GO TO (160, 170, 200), IRET -C----------------------------------------------------------------------- -C IF H IS BEING CHANGED, THE H RATIO RH IS CHECKED AGAINST -C RMAX, HMIN, AND HMXI, AND THE YH ARRAY RESCALED. IALTH IS SET TO -C L = NQ + 1 TO PREVENT A CHANGE OF H FOR THAT MANY STEPS, UNLESS -C FORCED BY A CONVERGENCE OR ERROR TEST FAILURE. -C----------------------------------------------------------------------- - 160 IF (H .EQ. HOLD) GO TO 200 - RH = H/HOLD - H = HOLD - IREDO = 3 - GO TO 175 - 170 RH = MAX(RH,HMIN/ABS(H)) - 175 RH = MIN(RH,RMAX) - RH = RH/MAX(ONE,ABS(H)*HMXI*RH) - R = ONE - DO 180 J = 2,L - R = R*RH - DO 180 I = 1,NYH - 180 YH(I,J) = YH(I,J)*R - H = H*RH - RC = RC*RH - IALTH = L - IF (IREDO .EQ. 0) GO TO 690 -C----------------------------------------------------------------------- -C THIS SECTION COMPUTES THE PREDICTED VALUES BY EFFECTIVELY -C MULTIPLYING THE YH ARRAY BY THE PASCAL TRIANGLE MATRIX. -C RC IS THE RATIO OF NEW TO OLD VALUES OF THE COEFFICIENT H*EL(1). -C WHEN RC DIFFERS FROM 1 BY MORE THAN CCMAX, IPUP IS SET TO MITER -C TO FORCE PJAC TO BE CALLED, IF A JACOBIAN IS INVOLVED. -C IN ANY CASE, PJAC IS CALLED AT LEAST EVERY MSBP STEPS FOR ISOPT = 0, -C AND AT LEAST ONCE EVERY STEP FOR ISOPT = 1. -C----------------------------------------------------------------------- - 200 IF (ABS(RC-ONE) .GT. CCMAX) IPUP = MITER - IF (NST .GE. NSLP+MSBP) IPUP = MITER - TN = TN + H - I1 = NQNYH + 1 - DO 215 JB = 1,NQ - I1 = I1 - NYH - DO 210 I = I1,NQNYH - 210 YH1(I) = YH1(I) + YH1(I+NYH) - 215 CONTINUE -C----------------------------------------------------------------------- -C UP TO MAXCOR CORRECTOR ITERATIONS ARE TAKEN. (= 3, FOR ISOPT = 0; -C = 4, FOR ISOPT = 1). A CONVERGENCE TEST IS MADE ON THE R.M.S. NORM -C OF EACH CORRECTION, WEIGHTED BY THE ERROR WEIGHT VECTOR EWT. THE SUM -C OF THE CORRECTIONS IS ACCUMULATED IN THE VECTOR ACOR(I), I = 1,N. -C (ACOR(I), I = N+1,NYH IS LOADED IN SUBROUTINE STESA (ISOPT = 1).) -C THE YH ARRAY IS NOT ALTERED IN THE CORRECTOR LOOP. -C----------------------------------------------------------------------- - 220 M = 0 - DO 230 I = 1,N - 230 Y(I) = YH(I,1) - CALL F (NEQ, TN, Y, PAR, SAVF) - NFE = NFE + 1 - IF (IPUP .LE. 0) GO TO 250 -C----------------------------------------------------------------------- -C IF INDICATED, THE MATRIX P = I - H*EL(1)*J IS REEVALUATED AND -C PREPROCESSED BEFORE STARTING THE CORRECTOR ITERATION. IPUP IS SET -C TO 0 AS AN INDICATOR THAT THIS HAS BEEN DONE. -C----------------------------------------------------------------------- - IPUP = 0 - RC = ONE - NSLP = NST - CRATE = 0.7D0 - CALL PJAC (NEQ, Y, YH, NYH, WM, IWM, EWT, SAVF, ACOR, PAR, - 1 F, JAC, JOPT) - IF (IERPJ .NE. 0) GO TO 430 - 250 DO 260 I = 1,N - 260 ACOR(I) = ZERO - 270 IF (MITER .NE. 0) GO TO 350 -C----------------------------------------------------------------------- -C IN THE CASE OF FUNCTIONAL ITERATION, UPDATE Y DIRECTLY FROM -C THE RESULT OF THE LAST FUNCTION EVALUATION. -C (IF ISOPT = 1, FUNCTIONAL ITERATION IS NOT ALLOWED.) -C----------------------------------------------------------------------- - DO 290 I = 1,N - SAVF(I) = H*SAVF(I) - YH(I,2) - 290 Y(I) = SAVF(I) - ACOR(I) - DEL = VNORM (N, Y, EWT) - DO 300 I = 1,N - Y(I) = YH(I,1) + EL(1)*SAVF(I) - 300 ACOR(I) = SAVF(I) - GO TO 400 -C----------------------------------------------------------------------- -C IN THE CASE OF THE CHORD METHOD, COMPUTE THE CORRECTOR ERROR, -C AND KppSolve THE LINEAR SYSTEM WITH THAT AS RIGHT-HAND SIDE AND -C P AS COEFFICIENT MATRIX. -C----------------------------------------------------------------------- - 350 DO 360 I = 1,N - 360 Y(I) = H*SAVF(I) - (YH(I,2) + ACOR(I)) - CALL SLVS (WM, IWM, Y, SAVF) - IF (IERSL .LT. 0) GO TO 430 - IF (IERSL .GT. 0) GO TO 410 - DEL = VNORM (N, Y, EWT) - DO 380 I = 1,N - ACOR(I) = ACOR(I) + Y(I) - 380 Y(I) = YH(I,1) + EL(1)*ACOR(I) -C----------------------------------------------------------------------- -C TEST FOR CONVERGENCE. IF M.GT.0, AN ESTIMATE OF THE CONVERGENCE -C RATE CONSTANT IS STORED IN CRATE, AND THIS IS USED IN THE TEST. -C----------------------------------------------------------------------- - 400 IF (M .NE. 0) CRATE = MAX(0.2D0*CRATE,DEL/DELP) - DCON = DEL*MIN(ONE,1.5D0*CRATE)/(TESCO(2,NQ)*CONIT) - IF (DCON .LE. ONE) GO TO 450 - M = M + 1 - IF (M .EQ. MAXCOR) GO TO 410 - IF (M .GE. 2 .AND. DEL .GT. 2.0D0*DELP) GO TO 410 - DELP = DEL - CALL F (NEQ, TN, Y, PAR, SAVF) - NFE = NFE + 1 - GO TO 270 -C----------------------------------------------------------------------- -C THE CORRECTOR ITERATION FAILED TO CONVERGE IN MAXCOR TRIES. -C IF MITER .NE. 0 AND THE JACOBIAN IS OUT OF DATE, PJAC IS CALLED FOR -C THE NEXT TRY. OTHERWISE THE YH ARRAY IS RETRACTED TO ITS VALUES -C BEFORE PREDICTION, AND H IS REDUCED, IF POSSIBLE. IF H CANNOT BE -C REDUCED OR MXNCF FAILURES HAVE OCCURRED, EXIT WITH KFLAG = -2. -C----------------------------------------------------------------------- - 410 IF (MITER .EQ. 0 .OR. JCUR .EQ. 1) GO TO 430 - ICF = 1 - IPUP = MITER - GO TO 220 - 430 ICF = 2 - NCF = NCF + 1 - RMAX = 2.0D0 - TN = TOLD - I1 = NQNYH + 1 - DO 445 JB = 1,NQ - I1 = I1 - NYH - DO 440 I = I1,NQNYH - 440 YH1(I) = YH1(I) - YH1(I+NYH) - 445 CONTINUE - IF (IERPJ .LT. 0 .OR. IERSL .LT. 0) GO TO 680 - IF (ABS(H) .LE. HMIN*1.00001D0) GO TO 670 - IF (NCF .EQ. MXNCF) GO TO 670 - RH = 0.25D0 - IPUP = MITER - IREDO = 1 - GO TO 170 -C----------------------------------------------------------------------- -C THE CORRECTOR HAS CONVERGED. -C THE LOCAL ERROR TEST IS MADE AND CONTROL PASSES TO STATEMENT 500 -C IF IT FAILS. OTHERWISE, STESA IS CALLED (ISOPT = 1) TO PERFORM -C SENSITIVITY CALCULATIONS AT CURRENT STEP SIZE AND ORDER. -C----------------------------------------------------------------------- - 450 CONTINUE - IF (M .EQ. 0) DSM = DEL/TESCO(2,NQ) - IF (M .GT. 0) DSM = VNORM (N, ACOR, EWT)/TESCO(2,NQ) - IF (DSM .GT. ONE) GO TO 500 -C - IF (ISOPT .EQ. 0) GO TO 460 -C----------------------------------------------------------------------- -C CALL STESA TO PERFORM EXPLICIT SENSITIVITY ANALYSIS. -C IF THE LOCAL ERROR TEST FAILS (WITHIN STESA) FOR ANY SOLUTION VECTOR, -C KFLAGS IS SET .LT. 0 AND CONTROL PASSES TO STATEMENT 500 UPON RETURN. -C IN EITHER CASE, JCUR IS SET TO ZERO TO SIGNAL THAT THE JACOBIAN MAY -C NEED UPDATING LATER. -C----------------------------------------------------------------------- - CALL STESA (NEQ, Y, N, NSV, YH, WM, IWM, EWT, SAVF, ACOR, - 1 PAR, NRS, F, JAC, DF, PJAC, PDF, SLVS) - IF (IERPJ .NE. 0 .OR. IERSL .NE. 0) GO TO 680 - IF (KFLAGS .LT. 0) GO TO 500 -C----------------------------------------------------------------------- -C AFTER A SUCCESSFUL STEP, UPDATE THE YH ARRAY. -C CONSIDER CHANGING H IF IALTH = 1. OTHERWISE DECREASE IALTH BY 1. -C IF IALTH IS THEN 1 AND NQ .LT. MAXORD, THEN ACOR IS SAVED FOR -C USE IN A POSSIBLE ORDER INCREASE ON THE NEXT STEP. -C IF A CHANGE IN H IS CONSIDERED, AN INCREASE OR DECREASE IN ORDER -C BY ONE IS CONSIDERED ALSO. A CHANGE IN H IS MADE ONLY IF IT IS BY A -C FACTOR OF AT LEAST 1.1. IF NOT, IALTH IS SET TO 3 TO PREVENT -C TESTING FOR THAT MANY STEPS. -C----------------------------------------------------------------------- - 460 JCUR = 0 - KFLAG = 0 - IREDO = 0 - NST = NST + 1 - HU = H - NQU = NQ - DO 470 J = 1,L - DO 470 I = 1,NYH - 470 YH(I,J) = YH(I,J) + EL(J)*ACOR(I) - IALTH = IALTH - 1 - IF (IALTH .EQ. 0) GO TO 520 - IF (IALTH .GT. 1) GO TO 700 - IF (L .EQ. LMAX) GO TO 700 - DO 490 I = 1,NYH - 490 YH(I,LMAX) = ACOR(I) - GO TO 700 -C----------------------------------------------------------------------- -C THE ERROR TEST FAILED IN EITHER STODE OR STESA. -C KFLAG KEEPS TRACK OF MULTIPLE FAILURES. -C RESTORE TN AND THE YH ARRAY TO THEIR PREVIOUS VALUES, AND PREPARE -C TO TRY THE STEP AGAIN. COMPUTE THE OPTIMUM STEP SIZE FOR THIS OR -C ONE LOWER ORDER. AFTER 2 OR MORE FAILURES, H IS FORCED TO DECREASE -C BY A FACTOR OF 0.2 OR LESS. -C----------------------------------------------------------------------- - 500 KFLAG = KFLAG - 1 - JCUR = 0 - TN = TOLD - I1 = NQNYH + 1 - DO 515 JB = 1,NQ - I1 = I1 - NYH - DO 510 I = I1,NQNYH - 510 YH1(I) = YH1(I) - YH1(I+NYH) - 515 CONTINUE - RMAX = 2.0D0 - IF (ABS(H) .LE. HMIN*1.00001D0) GO TO 660 - IF (KFLAG .LE. -3) GO TO 640 - IREDO = 2 - RHUP = ZERO - GO TO 540 -C----------------------------------------------------------------------- -* -C REGARDLESS OF THE SUCCESS OR FAILURE OF THE STEP, FACTORS -C RHDN, RHSM, AND RHUP ARE COMPUTED, BY WHICH H COULD BE MULTIPLIED -C AT ORDER NQ - 1, ORDER NQ, OR ORDER NQ + 1, RESPECTIVELY. -C IN THE CASE OF FAILURE, RHUP = 0.0 TO AVOID AN ORDER INCREASE. -C THE LARGEST OF THESE IS DETERMINED AND THE NEW ORDER CHOSEN -C ACCORDINGLY. IF THE ORDER IS TO BE INCREASED, WE COMPUTE ONE -C ADDITIONAL SCALED DERIVATIVE. -C FOR ISOPT = 1, DUPS AND DSMS ARE LOADED WITH THE LARGEST RMS-NORMS -C OBTAINED BY CONSIDERING SEPARATELY THE SENSITIVITY SOLUTION VECTORS. -C----------------------------------------------------------------------- - 520 RHUP = ZERO - IF (L .EQ. LMAX) GO TO 540 - DO 530 I = 1,N - 530 SAVF(I) = ACOR(I) - YH(I,LMAX) - DUP = VNORM (N, SAVF, EWT)/TESCO(3,NQ) - DUP = MAX(DUP,DUPS) - EXUP = ONE/REAL(L+1) - RHUP = ONE/(1.4D0*DUP**EXUP + 0.0000014D0) - 540 EXSM = ONE/REAL(L) - DSM = MAX(DSM,DSMS) - RHSM = ONE/(1.2D0*DSM**EXSM + 0.0000012D0) - RHDN = ZERO - IF (NQ .EQ. 1) GO TO 560 - JPOINT = 1 - DO 550 J = 1,NSV - DDN = VNORM (N, YH(JPOINT,L), EWT(JPOINT))/TESCO(1,NQ) - DDNS = MAX(DDNS,DDN) - JPOINT = JPOINT + N - 550 CONTINUE - DDN = DDNS - DDNS = ZERO - EXDN = ONE/REAL(NQ) - RHDN = ONE/(1.3D0*DDN**EXDN + 0.0000013D0) - 560 IF (RHSM .GE. RHUP) GO TO 570 - IF (RHUP .GT. RHDN) GO TO 590 - GO TO 580 - 570 IF (RHSM .LT. RHDN) GO TO 580 - NEWQ = NQ - RH = RHSM - GO TO 620 - 580 NEWQ = NQ - 1 - RH = RHDN - IF (KFLAG .LT. 0 .AND. RH .GT. ONE) RH = ONE - GO TO 620 - 590 NEWQ = L - RH = RHUP - IF (RH .LT. 1.1D0) GO TO 610 - R = EL(L)/REAL(L) - DO 600 I = 1,NYH - 600 YH(I,NEWQ+1) = ACOR(I)*R - GO TO 630 - 610 IALTH = 3 - GO TO 700 - 620 IF ((KFLAG .EQ. 0) .AND. (RH .LT. 1.1D0)) GO TO 610 - IF (KFLAG .LE. -2) RH = MIN(RH,0.2D0) -C----------------------------------------------------------------------- -C IF THERE IS A CHANGE OF ORDER, RESET NQ, L, AND THE COEFFICIENTS. -C IN ANY CASE H IS RESET ACCORDING TO RH AND THE YH ARRAY IS RESCALED. -C THEN EXIT FROM 690 IF THE STEP WAS OK, OR REDO THE STEP OTHERWISE. -C----------------------------------------------------------------------- - IF (NEWQ .EQ. NQ) GO TO 170 - 630 NQ = NEWQ - L = NQ + 1 - IRET = 2 - GO TO 150 -C----------------------------------------------------------------------- -C CONTROL REACHES THIS SECTION IF 3 OR MORE FAILURES HAVE OCCURED. -C IF 10 FAILURES HAVE OCCURRED, EXIT WITH KFLAG = -1. -C IT IS ASSUMED THAT THE DERIVATIVES THAT HAVE ACCUMULATED IN THE -C YH ARRAY HAVE ERRORS OF THE WRONG ORDER. HENCE THE FIRST -C DERIVATIVE IS RECOMPUTED, AND THE ORDER IS SET TO 1. THEN -C H IS REDUCED BY A FACTOR OF 10, AND THE STEP IS RETRIED, -C UNTIL IT SUCCEEDS OR H REACHES HMIN. -C----------------------------------------------------------------------- - 640 IF (KFLAG .EQ. -10) GO TO 660 - RH = 0.1D0 - RH = MAX(HMIN/ABS(H),RH) - H = H*RH - DO 645 I = 1,NYH - 645 Y(I) = YH(I,1) - CALL F (NEQ, TN, Y, PAR, SAVF) - NFE = NFE + 1 - IF (ISOPT .EQ. 0) GO TO 649 - CALL SPRIME (NEQ, Y, YH, NYH, N, NSV, WM, IWM, EWT, SAVF, ACOR, - 1 ACOR(N+1), PAR, F, JAC, DF, PJAC, PDF) - IF (IERSP .LT. 0) GO TO 680 - DO 646 I = N+1,NYH - 646 YH(I,2) = H*YH(I,2) - 649 DO 650 I = 1,N - 650 YH(I,2) = H*SAVF(I) - IPUP = MITER - IALTH = 5 - IF (NQ .EQ. 1) GO TO 200 - NQ = 1 - L = 2 - IRET = 3 - GO TO 150 -C----------------------------------------------------------------------- -C ALL RETURNS ARE MADE THROUGH THIS SECTION. H IS SAVED IN HOLD -C TO ALLOW THE CALLER TO CHANGE H ON THE NEXT STEP. -C----------------------------------------------------------------------- - 660 KFLAG = -1 - GO TO 720 - 670 KFLAG = -2 - GO TO 720 - 680 KFLAG = -3 - GO TO 720 - 690 RMAX = 10.0D0 - 700 R = ONE/TESCO(2,NQU) - DO 710 I = 1,NYH - 710 ACOR(I) = ACOR(I)*R - 720 HOLD = H - JSTART = 1 - RETURN -C----------------------- END OF SUBROUTINE STODE ----------------------- - END - SUBROUTINE CFODE (METH, ELCO, TESCO) - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - DIMENSION ELCO(13,12), TESCO(3,12) -C----------------------------------------------------------------------- -C CFODE IS CALLED BY THE INTEGRATOR ROUTINE TO SET COEFFICIENTS -C NEEDED THERE. THE COEFFICIENTS FOR THE CURRENT METHOD, AS -C GIVEN BY THE VALUE OF METH, ARE SET FOR ALL ORDERS AND SAVED. -C THE MAXIMUM ORDER ASSUMED HERE IS 12 IF METH = 1 AND 5 IF METH = 2. -C (A SMALLER VALUE OF THE MAXIMUM ORDER IS ALSO ALLOWED.) -C CFODE IS CALLED ONCE AT THE BEGINNING OF THE PROBLEM, -C AND IS NOT CALLED AGAIN UNLESS AND UNTIL METH IS CHANGED. -C -C THE ELCO ARRAY CONTAINS THE BASIC METHOD COEFFICIENTS. -C THE COEFFICIENTS EL(I), 1 .LE. I .LE. NQ+1, FOR THE METHOD OF -C ORDER NQ ARE STORED IN ELCO(I,NQ). THEY ARE GIVEN BY A GENETRATING -C POLYNOMIAL, I.E., -C L(X) = EL(1) + EL(2)*X + ... + EL(NQ+1)*X**NQ. -C FOR THE IMPLICIT ADAMS METHODS, L(X) IS GIVEN BY -C DL/DX = (X+1)*(X+2)*...*(X+NQ-1)/FACTORIAL(NQ-1), L(-1) = 0. -C FOR THE BDF METHODS, L(X) IS GIVEN BY -C L(X) = (X+1)*(X+2)* ... *(X+NQ)/K, -C WHERE K = FACTORIAL(NQ)*(1 + 1/2 + ... + 1/NQ). -C -C THE TESCO ARRAY CONTAINS TEST CONSTANTS USED FOR THE -C LOCAL ERROR TEST AND THE SELECTION OF STEP SIZE AND/OR ORDER. -C AT ORDER NQ, TESCO(K,NQ) IS USED FOR THE SELECTION OF STEP -C SIZE AT ORDER NQ - 1 IF K = 1, AT ORDER NQ IF K = 2, AND AT ORDER -C NQ + 1 IF K = 3. -C----------------------------------------------------------------------- - DIMENSION PC(12) - PARAMETER (ONE=1.0D0,ZERO=0.0D0) -C - GO TO (100, 200), METH -C - 100 ELCO(1,1) = ONE - ELCO(2,1) = ONE - TESCO(1,1) = ZERO - TESCO(2,1) = 2.0D0 - TESCO(1,2) = ONE - TESCO(3,12) = ZERO - PC(1) = ONE - RQFAC = ONE - DO 140 NQ = 2,12 -C----------------------------------------------------------------------- -C THE PC ARRAY WILL CONTAIN THE COEFFICIENTS OF THE POLYNOMIAL -C P(X) = (X+1)*(X+2)*...*(X+NQ-1). -C INITIALLY, P(X) = 1. -C----------------------------------------------------------------------- - RQ1FAC = RQFAC - RQFAC = RQFAC/REAL(NQ) - NQM1 = NQ - 1 - FNQM1 = REAL(NQM1) - NQP1 = NQ + 1 -C FORM COEFFICIENTS OF P(X)*(X+NQ-1). ---------------------------------- - PC(NQ) = ZERO - DO 110 IB = 1,NQM1 - I = NQP1 - IB - 110 PC(I) = PC(I-1) + FNQM1*PC(I) - PC(1) = FNQM1*PC(1) -C COMPUTE INTEGRAL, -1 TO 0, OF P(X) AND X*P(X). ----------------------- - PINT = PC(1) - XPIN = PC(1)/2.0D0 - TSIGN = ONE - DO 120 I = 2,NQ - TSIGN = -TSIGN - PINT = PINT + TSIGN*PC(I)/REAL(I) - 120 XPIN = XPIN + TSIGN*PC(I)/REAL(I+1) -C STORE COEFFICIENTS IN ELCO AND TESCO. -------------------------------- - ELCO(1,NQ) = PINT*RQ1FAC - ELCO(2,NQ) = ONE - DO 130 I = 2,NQ - 130 ELCO(I+1,NQ) = RQ1FAC*PC(I)/REAL(I) - AGAMQ = RQFAC*XPIN - RAGQ = ONE/AGAMQ - TESCO(2,NQ) = RAGQ - IF (NQ .LT. 12) TESCO(1,NQP1) = RAGQ*RQFAC/REAL(NQP1) - TESCO(3,NQM1) = RAGQ - 140 CONTINUE - RETURN -C - 200 PC(1) = ONE - RQ1FAC = ONE - DO 230 NQ = 1,5 -C----------------------------------------------------------------------- -C THE PC ARRAY WILL CONTAIN THE COEFFICIENTS OF THE POLYNOMIAL -C P(X) = (X+1)*(X+2)*...*(X+NQ). -C INITIALLY, P(X) = 1. -C----------------------------------------------------------------------- - FNQ = REAL(NQ) - NQP1 = NQ + 1 -C FORM COEFFICIENTS OF P(X)*(X+NQ). ------------------------------------ - PC(NQP1) = ZERO - DO 210 IB = 1,NQ - I = NQ + 2 - IB - 210 PC(I) = PC(I-1) + FNQ*PC(I) - PC(1) = FNQ*PC(1) -C STORE COEFFICIENTS IN ELCO AND TESCO. -------------------------------- - DO 220 I = 1,NQP1 - 220 ELCO(I,NQ) = PC(I)/PC(2) - ELCO(2,NQ) = ONE - TESCO(1,NQ) = RQ1FAC - TESCO(2,NQ) = REAL(NQP1)/ELCO(1,NQ) - TESCO(3,NQ) = REAL(NQ+2)/ELCO(1,NQ) - RQ1FAC = RQ1FAC/FNQ - 230 CONTINUE - RETURN -C----------------------- END OF SUBROUTINE CFODE ----------------------- - END - SUBROUTINE SOLSY (WM, IWM, X, TEM) - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - DIMENSION WM(*), IWM(*), X(*), TEM(*) - PARAMETER (ZERO=0.0D0,ONE=1.0D0) - COMMON /ODE001/ ROWND, ROWNS(173), - 2 RDUM1(37), EL0, H, RDUM2(6), - 3 IOWND(14), IOWNS(4), - 4 IDUM1(4), IERSL, IDUM2(5), - 5 MITER, IDUM3(4), N, IDUM4(5) -C----------------------------------------------------------------------- -C THIS ROUTINE MANAGES THE SOLUTION OF THE LINEAR SYSTEM ARISING FROM -C A CHORD ITERATION. IT IS CALLED IF MITER .NE. 0. -C IF MITER IS 1 OR 2, IT CALLS DGESL TO ACCOMPLISH THIS. -C IF MITER = 3 IT UPDATES THE COEFFICIENT H*EL0 IN THE DIAGONAL -C MATRIX, AND THEN COMPUTES THE SOLUTION. -C IF MITER IS 4 OR 5, IT CALLS DGBSL. -C COMMUNICATION WITH SOLSY USES THE FOLLOWING VARIABLES.. -C WM = REAL WORK SPACE CONTAINING THE INVERSE DIAGONAL MATRIX IF -C MITER = 3 AND THE LU DECOMPOSITION OF THE MATRIX OTHERWISE. -C STORAGE OF MATRIX ELEMENTS STARTS AT WM(3). -C WM ALSO CONTAINS THE FOLLOWING MATRIX-RELATED DATA.. -C WM(1) = SQRT(UROUND) (NOT USED HERE), -C WM(2) = HL0, THE PREVIOUS VALUE OF H*EL0, USED IF MITER = 3. -C IWM = INTEGER WORK SPACE CONTAINING PIVOT INFORMATION, STARTING AT -C IWM(21), IF MITER IS 1, 2, 4, OR 5. IWM ALSO CONTAINS BAND -C PARAMETERS ML = IWM(1) AND MU = IWM(2) IF MITER IS 4 OR 5. -C X = THE RIGHT-HAND SIDE VECTOR ON INPUT, AND THE SOLUTION VECTOR -C ON OUTPUT, OF LENGTH N. -C TEM = VECTOR OF WORK SPACE OF LENGTH N, NOT USED IN THIS VERSION. -C IERSL = OUTPUT FLAG (IN COMMON). IERSL = 0 IF NO TROUBLE OCCURRED. -C IERSL = 1 IF A SINGULAR MATRIX AROSE WITH MITER = 3. -C THIS ROUTINE ALSO USES THE COMMON VARIABLES EL0, H, MITER, AND N. -C----------------------------------------------------------------------- - IERSL = 0 - GO TO (100, 100, 300, 400, 400), MITER - 100 CALL DGESL (WM(3), N, N, IWM(21), X, 0) - RETURN -C - 300 PHL0 = WM(2) - HL0 = H*EL0 - WM(2) = HL0 - IF (HL0 .EQ. PHL0) GO TO 330 - R = HL0/PHL0 - DO 320 I = 1,N - DI = ONE - R*(ONE - ONE/WM(I+2)) - IF (ABS(DI) .EQ. ZERO) GO TO 390 - 320 WM(I+2) = ONE/DI - 330 DO 340 I = 1,N - 340 X(I) = WM(I+2)*X(I) - RETURN - 390 IERSL = 1 - RETURN -C - 400 ML = IWM(1) - MU = IWM(2) - MEBAND = 2*ML + MU + 1 - CALL DGBSL (WM(3), MEBAND, N, ML, MU, IWM(21), X, 0) - RETURN -C----------------------- END OF SUBROUTINE SOLSY ----------------------- - END - SUBROUTINE EWSET (N, ITOL, RTOL, ATOL, YCUR, EWT) -C----------------------------------------------------------------------- -C THIS SUBROUTINE SETS THE ERROR WEIGHT VECTOR EWT ACCORDING TO -C EWT(I) = RTOL(I)*ABS(YCUR(I)) + ATOL(I), I = 1,...,N, -C WITH THE SUBSCRIPT ON RTOL AND/OR ATOL POSSIBLY REPLACED BY 1 ABOVE, -C DEPENDING ON THE VALUE OF ITOL. -C----------------------------------------------------------------------- - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - DIMENSION RTOL(*), ATOL(*), YCUR(N), EWT(N) - RTOLI = RTOL(1) - ATOLI = ATOL(1) - DO 10 I = 1,N - IF (ITOL .GE. 3) RTOLI = RTOL(I) - IF (ITOL .EQ. 2 .OR. ITOL .EQ. 4) ATOLI = ATOL(I) - EWT(I) = RTOLI*ABS(YCUR(I)) + ATOLI - 10 CONTINUE - RETURN -C----------------------- END OF SUBROUTINE EWSET ----------------------- - END - DOUBLE PRECISION FUNCTION VNORM (N, V, W) -C----------------------------------------------------------------------- -C THIS FUNCTION ROUTINE COMPUTES THE WEIGHTED ROOT-MEAN-SQUARE NORM -C OF THE VECTOR OF LENGTH N CONTAINED IN THE ARRAY V, WITH WEIGHTS -C CONTAINED IN THE ARRAY W OF LENGTH N.. -C VNORM = SQRT( (1/N) * SUM( V(I)*W(I) )**2 ) -C PROTECTION FOR UNDERFLOW/OVERFLOW IS ACCOMPLISHED USING TWO -C CONSTANTS WHICH ARE HOPEFULLY APPLICABLE FOR ALL MACHINES. -C THESE ARE: -C CUTLO = maximum of SQRT(U/EPS) over all known machines -C CUTHI = minimum of SQRT(Z) over all known machines -C WHERE -C EPS = smallest number s.t. EPS + 1 .GT. 1 -C U = smallest positive number (underflow limit) -C Z = largest number (overflow limit) -C -C DETAILS OF THE ALGORITHM AND OF VALUES OF CUTLO AND CUTHI ARE -C FOUND IN THE BLAS ROUTINE SNRM2 (SEE ALSO ALGORITHM 539, TRANS. -C MATH. SOFTWARE, VOL. 5 NO. 3, 1979, 308-323. -C FOR SINGLE PRECISION, THE FOLLOWING VALUES SHOULD BE UNIVERSAL: -C DATA CUTLO,CUTHI /4.441E-16,1.304E19/ -C FOR DOUBLE PRECISION, USE -C DATA CUTLO,CUTHI /8.232D-11,1.304D19/ -C -C----------------------------------------------------------------------- - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - INTEGER NEXT,I,J,N - DIMENSION V(N),W(N) - DATA CUTLO,CUTHI /8.232D-11,1.304D19/ - DATA ZERO,ONE/0.0D0,1.0D0/ -C BLAS ALGORITHM - NEXT = 1 - SUM = ZERO - I = 1 -20 SX = V(I)*W(I) - GO TO (30,40,70,80),NEXT -30 IF (ABS(SX).GT.CUTLO) GO TO 110 - NEXT = 2 - XMAX = ZERO -40 IF (SX.EQ.ZERO) GO TO 130 - IF (ABS(SX).GT.CUTLO) GO TO 110 - NEXT = 3 - GO TO 60 -50 I=J - NEXT = 4 - SUM = (SUM/SX)/SX -60 XMAX = ABS(SX) - GO TO 90 -70 IF(ABS(SX).GT.CUTLO) GO TO 100 -80 IF(ABS(SX).LE.XMAX) GO TO 90 - SUM = ONE + SUM * (XMAX/SX)**2 - XMAX = ABS(SX) - GO TO 130 -90 SUM = SUM + (SX/XMAX)**2 - GO TO 130 -100 SUM = (SUM*XMAX)*XMAX -110 HITEST = CUTHI/REAL(N) - DO 120 J = I,N - SX = V(J)*W(J) - IF(ABS(SX).GE.HITEST) GO TO 50 - SUM = SUM + SX**2 -120 CONTINUE - VNORM = SQRT(SUM) - GO TO 140 -130 CONTINUE - I = I + 1 - IF (I.LE.N) GO TO 20 - VNORM = XMAX * SQRT(SUM) -140 CONTINUE - RETURN -C----------------------- END OF FUNCTION VNORM ------------------------- - END - SUBROUTINE SVCOM (RSAV, ISAV) -C----------------------------------------------------------------------- -C THIS ROUTINE STORES IN RSAV AND ISAV THE CONTENTS OF COMMON BLOCKS -C ODE001, ODE002 AND EH0001, WHICH ARE USED INTERNALLY IN THE ODESSA -C PACKAGE. -C RSAV = REAL ARRAY OF LENGTH 222 OR MORE. -C ISAV = INTEGER ARRAY OF LENGTH 52 OR MORE. -C----------------------------------------------------------------------- - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - DIMENSION RSAV(*), ISAV(*) - COMMON /ODE001/ RODE1(219), IODE1(39) - COMMON /ODE002/ RODE2(3), IODE2(11) - COMMON /EH0001/ IEH(2) - DATA LRODE1/219/, LIODE1/39/, LRODE2/3/, LIODE2/11/ -C - DO 10 I = 1,LRODE1 - 10 RSAV(I) = RODE1(I) - DO 20 I = 1,LRODE2 - J = LRODE1 + I - 20 RSAV(J) = RODE2(I) - DO 30 I = 1,LIODE1 - 30 ISAV(I) = IODE1(I) - DO 40 I = 1,LIODE2 - J = LIODE1 + I - 40 ISAV(J) = IODE2(I) - ISAV(LIODE1+LIODE2+1) = IEH(1) - ISAV(LIODE1+LIODE2+2) = IEH(2) - RETURN -C----------------------- END OF SUBROUTINE SVCOM ----------------------- - END - SUBROUTINE RSCOM (RSAV, ISAV) -C----------------------------------------------------------------------- -C THIS ROUTINE RESTORES FROM RSAV AND ISAV THE CONTENTS OF COMMON BLOCKS -C ODE001, ODE002 AND EH0001, WHICH ARE USED INTERNALLY IN THE ODESSSA -C PACKAGE. THIS PRESUMES THAT RSAV AND ISAV WERE LOADED BY MEANS -C OF SUBROUTINE SVCOM OR THE EQUIVALENT. -C----------------------------------------------------------------------- - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - DIMENSION RSAV(*), ISAV(*) - COMMON /ODE001/ RODE1(219), IODE1(39) - COMMON /ODE002/ RODE2(3), IODE2(11) - COMMON /EH0001/ IEH(2) - DATA LRODE1/219/, LIODE1/39/, LRODE2/3/, LIODE2/11/ -C - DO 10 I = 1,LRODE1 - 10 RODE1(I) = RSAV(I) - DO 20 I = 1,LRODE2 - J = LRODE1 + I - 20 RODE2(I) = RSAV(J) - DO 30 I = 1,LIODE1 - 30 IODE1(I) = ISAV(I) - DO 40 I = 1,LODE2 - J = LIODE1 + I - 40 IODE2(I) = ISAV(J) - IEH(1) = ISAV(LIODE1+LIODE2+1) - IEH(2) = ISAV(LIODE1+LIODE2+2) - RETURN -C----------------------- END OF SUBROUTINE RSCOM ----------------------- - END - SUBROUTINE DGEFA(A,LDA,N,IPVT,INFO) - INTEGER LDA,N,IPVT(*),INFO - DOUBLE PRECISION A(LDA,*) -C -C DGEFA FACTORS A DOUBLE PRECISION MATRIX BY GAUSSIAN ELIMINATION. -C -C DGEFA IS USUALLY CALLED BY DGECO, BUT IT CAN BE CALLED -C DIRECTLY WITH A SAVING IN TIME IF RCOND IS NOT NEEDED. -C (TIME FOR DGECO) = (1 + 9/N)*(TIME FOR DGEFA) . -C -C ON ENTRY -C -C A DOUBLE PRECISION(LDA, N) -C THE MATRIX TO BE FACTORED. -C -C LDA INTEGER -C THE LEADING DIMENSION OF THE ARRAY A . -C -C N INTEGER -C THE ORDER OF THE MATRIX A . -C -C ON RETURN -C -C A AN UPPER TRIANGULAR MATRIX AND THE MULTIPLIERS -C WHICH WERE USED TO OBTAIN IT. -C THE FACTORIZATION CAN BE WRITTEN A = L*U WHERE -C L IS A PRODUCT OF PERMUTATION AND UNIT LOWER -C TRIANGULAR MATRICES AND U IS UPPER TRIANGULAR. -C -C IPVT INTEGER(N) -C AN INTEGER VECTOR OF PIVOT INDICES. -C -C INFO INTEGER -C = 0 NORMAL VALUE. -C = K IF U(K,K) .EQ. 0.0 . THIS IS NOT AN ERROR -C CONDITION FOR THIS SUBROUTINE, BUT IT DOES -C INDICATE THAT DGESL OR DGEDI WILL DIVIDE BY ZERO -C IF CALLED. USE RCOND IN DGECO FOR A RELIABLE -C INDICATION OF SINGULARITY. -C -C LINPACK. THIS VERSION DATED 08/14/78 . -C CLEVE MOLER, UNIVERSITY OF NEW MEXICO, ARGONNE NATIONAL LAB. -C -C SUBROUTINES AND FUNCTIONS -C -C BLAS DAXPY,DSCAL,IDAMAX -C -C INTERNAL VARIABLES -C - DOUBLE PRECISION T - INTEGER IDAMAX,J,K,KP1,L,NM1 -C -C -C GAUSSIAN ELIMINATION WITH PARTIAL PIVOTING -C - INFO = 0 - NM1 = N - 1 - IF (NM1 .LT. 1) GO TO 70 - DO 60 K = 1, NM1 - KP1 = K + 1 -C -C FIND L = PIVOT INDEX -C - L = IDAMAX(N-K+1,A(K,K),1) + K - 1 - IPVT(K) = L -C -C ZERO PIVOT IMPLIES THIS COLUMN ALREADY TRIANGULARIZED -C - IF (A(L,K) .EQ. 0.0D0) GO TO 40 -C -C INTERCHANGE IF NECESSARY -C - IF (L .EQ. K) GO TO 10 - T = A(L,K) - A(L,K) = A(K,K) - A(K,K) = T - 10 CONTINUE -C -C COMPUTE MULTIPLIERS -C - T = -1.0D0/A(K,K) - CALL DSCAL(N-K,T,A(K+1,K),1) -C -C ROW ELIMINATION WITH COLUMN INDEXING -C - DO 30 J = KP1, N - T = A(L,J) - IF (L .EQ. K) GO TO 20 - A(L,J) = A(K,J) - A(K,J) = T - 20 CONTINUE - CALL DAXPY(N-K,T,A(K+1,K),1,A(K+1,J),1) - 30 CONTINUE - GO TO 50 - 40 CONTINUE - INFO = K - 50 CONTINUE - 60 CONTINUE - 70 CONTINUE - IPVT(N) = N - IF (A(N,N) .EQ. 0.0D0) INFO = N - RETURN - END - SUBROUTINE DGESL(A,LDA,N,IPVT,B,JOB) - INTEGER LDA,N,IPVT(*),JOB - DOUBLE PRECISION A(LDA,*),B(*) -C -C DGESL KppSolveS THE DOUBLE PRECISION SYSTEM -C A * X = B OR TRANS(A) * X = B -C USING THE FACTORS COMPUTED BY DGECO OR DGEFA. -C -C ON ENTRY -C -C A DOUBLE PRECISION(LDA, N) -C THE OUTPUT FROM DGECO OR DGEFA. -C -C LDA INTEGER -C THE LEADING DIMENSION OF THE ARRAY A . -C -C N INTEGER -C THE ORDER OF THE MATRIX A . -C -C IPVT INTEGER(N) -C THE PIVOT VECTOR FROM DGECO OR DGEFA. -C -C B DOUBLE PRECISION(N) -C THE RIGHT HAND SIDE VECTOR. -C -C JOB INTEGER -C = 0 TO KppSolve A*X = B , -C = NONZERO TO KppSolve TRANS(A)*X = B WHERE -C TRANS(A) IS THE TRANSPOSE. -C -C ON RETURN -C -C B THE SOLUTION VECTOR X . -C -C ERROR CONDITION -C -C A DIVISION BY ZERO WILL OCCUR IF THE INPUT FACTOR CONTAINS A -C ZERO ON THE DIAGONAL. TECHNICALLY THIS INDICATES SINGULARITY -C BUT IT IS OFTEN CAUSED BY IMPROPER ARGUMENTS OR IMPROPER -C SETTING OF LDA . IT WILL NOT OCCUR IF THE SUBROUTINES ARE -C CALLED CORRECTLY AND IF DGECO HAS SET RCOND .GT. 0.0 -C OR DGEFA HAS SET INFO .EQ. 0 . -C -C TO COMPUTE INVERSE(A) * C WHERE C IS A MATRIX -C WITH P COLUMNS -C CALL DGECO(A,LDA,N,IPVT,RCOND,Z) -C IF (RCOND IS TOO SMALL) GO TO ... -C DO 10 J = 1, P -C CALL DGESL(A,LDA,N,IPVT,C(1,J),0) -C 10 CONTINUE -C -C LINPACK. THIS VERSION DATED 08/14/78 . -C CLEVE MOLER, UNIVERSITY OF NEW MEXICO, ARGONNE NATIONAL LAB. -C -C SUBROUTINES AND FUNCTIONS -C -C BLAS DAXPY,DDOT -C -C INTERNAL VARIABLES -C - DOUBLE PRECISION DDOT,T - INTEGER K,KB,L,NM1 -C - NM1 = N - 1 - IF (JOB .NE. 0) GO TO 50 -C -C JOB = 0 , KppSolve A * X = B -C FIRST KppSolve L*Y = B -C - IF (NM1 .LT. 1) GO TO 30 - DO 20 K = 1, NM1 - L = IPVT(K) - T = B(L) - IF (L .EQ. K) GO TO 10 - B(L) = B(K) - B(K) = T - 10 CONTINUE - CALL DAXPY(N-K,T,A(K+1,K),1,B(K+1),1) - 20 CONTINUE - 30 CONTINUE -C -C NOW KppSolve U*X = Y -C - DO 40 KB = 1, N - K = N + 1 - KB - B(K) = B(K)/A(K,K) - T = -B(K) - CALL DAXPY(K-1,T,A(1,K),1,B(1),1) - 40 CONTINUE - GO TO 100 - 50 CONTINUE -C -C JOB = NONZERO, KppSolve TRANS(A) * X = B -C FIRST KppSolve TRANS(U)*Y = B -C - DO 60 K = 1, N - T = DDOT(K-1,A(1,K),1,B(1),1) - B(K) = (B(K) - T)/A(K,K) - 60 CONTINUE -C -C NOW KppSolve TRANS(L)*X = Y -C - IF (NM1 .LT. 1) GO TO 90 - DO 80 KB = 1, NM1 - K = N - KB - B(K) = B(K) + DDOT(N-K,A(K+1,K),1,B(K+1),1) - L = IPVT(K) - IF (L .EQ. K) GO TO 70 - T = B(L) - B(L) = B(K) - B(K) = T - 70 CONTINUE - 80 CONTINUE - 90 CONTINUE - 100 CONTINUE - RETURN - END - SUBROUTINE DGBFA(ABD,LDA,N,ML,MU,IPVT,INFO) - INTEGER LDA,N,ML,MU,IPVT(*),INFO - DOUBLE PRECISION ABD(LDA,*) -C -C DGBFA FACTORS A DOUBLE PRECISION BAND MATRIX BY ELIMINATION. -C -C DGBFA IS USUALLY CALLED BY DGBCO, BUT IT CAN BE CALLED -C DIRECTLY WITH A SAVING IN TIME IF RCOND IS NOT NEEDED. -C -C ON ENTRY -C -C ABD DOUBLE PRECISION(LDA, N) -C CONTAINS THE MATRIX IN BAND STORAGE. THE COLUMNS -C OF THE MATRIX ARE STORED IN THE COLUMNS OF ABD AND -C THE DIAGONALS OF THE MATRIX ARE STORED IN ROWS -C ML+1 THROUGH 2*ML+MU+1 OF ABD . -C SEE THE COMMENTS BELOW FOR DETAILS. -C -C LDA INTEGER -C THE LEADING DIMENSION OF THE ARRAY ABD . -C LDA MUST BE .GE. 2*ML + MU + 1 . -C -C N INTEGER -C THE ORDER OF THE ORIGINAL MATRIX. -C -C ML INTEGER -C NUMBER OF DIAGONALS BELOW THE MAIN DIAGONAL. -C 0 .LE. ML .LT. N . -C -C MU INTEGER -C NUMBER OF DIAGONALS ABOVE THE MAIN DIAGONAL. -C 0 .LE. MU .LT. N . -C MORE EFFICIENT IF ML .LE. MU . -C ON RETURN -C -C ABD AN UPPER TRIANGULAR MATRIX IN BAND STORAGE AND -C THE MULTIPLIERS WHICH WERE USED TO OBTAIN IT. -C THE FACTORIZATION CAN BE WRITTEN A = L*U WHERE -C L IS A PRODUCT OF PERMUTATION AND UNIT LOWER -C TRIANGULAR MATRICES AND U IS UPPER TRIANGULAR. -C -C IPVT INTEGER(N) -C AN INTEGER VECTOR OF PIVOT INDICES. -C -C INFO INTEGER -C = 0 NORMAL VALUE. -C = K IF U(K,K) .EQ. 0.0 . THIS IS NOT AN ERROR -C CONDITION FOR THIS SUBROUTINE, BUT IT DOES -C INDICATE THAT DGBSL WILL DIVIDE BY ZERO IF -C CALLED. USE RCOND IN DGBCO FOR A RELIABLE -C INDICATION OF SINGULARITY. -C -C BAND STORAGE -C -C IF A IS A BAND MATRIX, THE FOLLOWING PROGRAM SEGMENT -C WILL SET UP THE INPUT. -C -C ML = (BAND WIDTH BELOW THE DIAGONAL) -C MU = (BAND WIDTH ABOVE THE DIAGONAL) -C M = ML + MU + 1 -C DO 20 J = 1, N -C I1 = MAX0(1, J-MU) -C I2 = MIN0(N, J+ML) -C DO 10 I = I1, I2 -C K = I - J + M -C ABD(K,J) = A(I,J) -C 10 CONTINUE -C 20 CONTINUE -C -C THIS USES ROWS ML+1 THROUGH 2*ML+MU+1 OF ABD . -C IN ADDITION, THE FIRST ML ROWS IN ABD ARE USED FOR -C ELEMENTS GENERATED DURING THE TRIANGULARIZATION. -C THE TOTAL NUMBER OF ROWS NEEDED IN ABD IS 2*ML+MU+1 . -C THE ML+MU BY ML+MU UPPER LEFT TRIANGLE AND THE -C ML BY ML LOWER RIGHT TRIANGLE ARE NOT REFERENCED. -C -C LINPACK. THIS VERSION DATED 08/14/78 . -C CLEVE MOLER, UNIVERSITY OF NEW MEXICO, ARGONNE NATIONAL LAB. -C -C SUBROUTINES AND FUNCTIONS -C -C BLAS DAXPY,DSCAL,IDAMAX -C FORTRAN MAX0,MIN0 -C -C INTERNAL VARIABLES -C - DOUBLE PRECISION T - INTEGER I,IDAMAX,I0,J,JU,JZ,J0,J1,K,KP1,L,LM,M,MM,NM1 -C -C - M = ML + MU + 1 - INFO = 0 -C -C ZERO INITIAL FILL-IN COLUMNS -C - J0 = MU + 2 - J1 = MIN0(N,M) - 1 - IF (J1 .LT. J0) GO TO 30 - DO 20 JZ = J0, J1 - I0 = M + 1 - JZ - DO 10 I = I0, ML - ABD(I,JZ) = 0.0D0 - 10 CONTINUE - 20 CONTINUE - 30 CONTINUE - JZ = J1 - JU = 0 -C -C GAUSSIAN ELIMINATION WITH PARTIAL PIVOTING -C - NM1 = N - 1 - IF (NM1 .LT. 1) GO TO 130 - DO 120 K = 1, NM1 - KP1 = K + 1 -C -C ZERO NEXT FILL-IN COLUMN -C - JZ = JZ + 1 - IF (JZ .GT. N) GO TO 50 - IF (ML .LT. 1) GO TO 50 - DO 40 I = 1, ML - ABD(I,JZ) = 0.0D0 - 40 CONTINUE - 50 CONTINUE -C -C FIND L = PIVOT INDEX -C - LM = MIN0(ML,N-K) - L = IDAMAX(LM+1,ABD(M,K),1) + M - 1 - IPVT(K) = L + K - M -C -C ZERO PIVOT IMPLIES THIS COLUMN ALREADY TRIANGULARIZED -C - IF (ABD(L,K) .EQ. 0.0D0) GO TO 100 -C -C INTERCHANGE IF NECESSARY -C - IF (L .EQ. M) GO TO 60 - T = ABD(L,K) - ABD(L,K) = ABD(M,K) - ABD(M,K) = T - 60 CONTINUE -C -C COMPUTE MULTIPLIERS -C - T = -1.0D0/ABD(M,K) - CALL DSCAL(LM,T,ABD(M+1,K),1) -C -C ROW ELIMINATION WITH COLUMN INDEXING -C - JU = MIN0(MAX0(JU,MU+IPVT(K)),N) - MM = M - IF (JU .LT. KP1) GO TO 90 - DO 80 J = KP1, JU - L = L - 1 - MM = MM - 1 - T = ABD(L,J) - IF (L .EQ. MM) GO TO 70 - ABD(L,J) = ABD(MM,J) - ABD(MM,J) = T - 70 CONTINUE - CALL DAXPY(LM,T,ABD(M+1,K),1,ABD(MM+1,J),1) - 80 CONTINUE - 90 CONTINUE - GO TO 110 - 100 CONTINUE - INFO = K - 110 CONTINUE - 120 CONTINUE - 130 CONTINUE - IPVT(N) = N - IF (ABD(M,N) .EQ. 0.0D0) INFO = N - RETURN - END - SUBROUTINE DGBSL(ABD,LDA,N,ML,MU,IPVT,B,JOB) - INTEGER LDA,N,ML,MU,IPVT(*),JOB - DOUBLE PRECISION ABD(LDA,*),B(*) -C -C DGBSL KppSolveS THE DOUBLE PRECISION BAND SYSTEM -C A * X = B OR TRANS(A) * X = B -C USING THE FACTORS COMPUTED BY DGBCO OR DGBFA. -C -C ON ENTRY -C -C ABD DOUBLE PRECISION(LDA, N) -C THE OUTPUT FROM DGBCO OR DGBFA. -C -C LDA INTEGER -C THE LEADING DIMENSION OF THE ARRAY ABD . -C -C N INTEGER -C THE ORDER OF THE ORIGINAL MATRIX. -C -C ML INTEGER -C NUMBER OF DIAGONALS BELOW THE MAIN DIAGONAL. -C -C MU INTEGER -C NUMBER OF DIAGONALS ABOVE THE MAIN DIAGONAL. -C -C IPVT INTEGER(N) -C THE PIVOT VECTOR FROM DGBCO OR DGBFA. -C -C B DOUBLE PRECISION(N) -C THE RIGHT HAND SIDE VECTOR. -C -C JOB INTEGER -C = 0 TO KppSolve A*X = B , -C = NONZERO TO KppSolve TRANS(A)*X = B , WHERE -C TRANS(A) IS THE TRANSPOSE. -C -C ON RETURN -C -C B THE SOLUTION VECTOR X . -C -C ERROR CONDITION -C -C A DIVISION BY ZERO WILL OCCUR IF THE INPUT FACTOR CONTAINS A -C ZERO ON THE DIAGONAL. TECHNICALLY THIS INDICATES SINGULARITY -C BUT IT IS OFTEN CAUSED BY IMPROPER ARGUMENTS OR IMPROPER -C SETTING OF LDA . IT WILL NOT OCCUR IF THE SUBROUTINES ARE -C CALLED CORRECTLY AND IF DGBCO HAS SET RCOND .GT. 0.0 -C OR DGBFA HAS SET INFO .EQ. 0 . -C -C TO COMPUTE INVERSE(A) * C WHERE C IS A MATRIX -C WITH P COLUMNS -C CALL DGBCO(ABD,LDA,N,ML,MU,IPVT,RCOND,Z) -C IF (RCOND IS TOO SMALL) GO TO ... -C DO 10 J = 1, P -C CALL DGBSL(ABD,LDA,N,ML,MU,IPVT,C(1,J),0) -C 10 CONTINUE -C -C LINPACK. THIS VERSION DATED 08/14/78 . -C CLEVE MOLER, UNIVERSITY OF NEW MEXICO, ARGONNE NATIONAL LAB. -C -C SUBROUTINES AND FUNCTIONS -C -C BLAS DAXPY,DDOT -C FORTRAN MIN0 -C -C INTERNAL VARIABLES -C - DOUBLE PRECISION DDOT,T - INTEGER K,KB,L,LA,LB,LM,M,NM1 -C - M = MU + ML + 1 - NM1 = N - 1 - IF (JOB .NE. 0) GO TO 50 -C -C JOB = 0 , KppSolve A * X = B -C FIRST KppSolve L*Y = B -C - IF (ML .EQ. 0) GO TO 30 - IF (NM1 .LT. 1) GO TO 30 - DO 20 K = 1, NM1 - LM = MIN0(ML,N-K) - L = IPVT(K) - T = B(L) - IF (L .EQ. K) GO TO 10 - B(L) = B(K) - B(K) = T - 10 CONTINUE - CALL DAXPY(LM,T,ABD(M+1,K),1,B(K+1),1) - 20 CONTINUE - 30 CONTINUE -C -C NOW KppSolve U*X = Y -C - DO 40 KB = 1, N - K = N + 1 - KB - B(K) = B(K)/ABD(M,K) - LM = MIN0(K,M) - 1 - LA = M - LM - LB = K - LM - T = -B(K) - CALL DAXPY(LM,T,ABD(LA,K),1,B(LB),1) - 40 CONTINUE - GO TO 100 - 50 CONTINUE -C -C JOB = NONZERO, KppSolve TRANS(A) * X = B -C FIRST KppSolve TRANS(U)*Y = B -C - DO 60 K = 1, N - LM = MIN0(K,M) - 1 - LA = M - LM - LB = K - LM - T = DDOT(LM,ABD(LA,K),1,B(LB),1) - B(K) = (B(K) - T)/ABD(M,K) - 60 CONTINUE -C -C NOW KppSolve TRANS(L)*X = Y -C - IF (ML .EQ. 0) GO TO 90 - IF (NM1 .LT. 1) GO TO 90 - DO 80 KB = 1, NM1 - K = N - KB - LM = MIN0(ML,N-K) - B(K) = B(K) + DDOT(LM,ABD(M+1,K),1,B(K+1),1) - L = IPVT(K) - IF (L .EQ. K) GO TO 70 - T = B(L) - B(L) = B(K) - B(K) = T - 70 CONTINUE - 80 CONTINUE - 90 CONTINUE - 100 CONTINUE - RETURN - END - SUBROUTINE DAXPY(N,DA,DX,INCX,DY,INCY) -C -C CONSTANT TIMES A VECTOR PLUS A VECTOR. -C USES UNROLLED LOOPS FOR INCREMENTS EQUAL TO ONE. -C JACK DONGARRA, LINPACK, 3/11/78. -C - DOUBLE PRECISION DX(*),DY(*),DA - INTEGER I,INCX,INCY,IX,IY,M,MP1,N -C - IF(N.LE.0)RETURN - IF (DA .EQ. 0.0D0) RETURN - IF(INCX.EQ.1.AND.INCY.EQ.1)GO TO 20 -C -C CODE FOR UNEQUAL INCREMENTS OR EQUAL INCREMENTS -C NOT EQUAL TO 1 -C - IX = 1 - IY = 1 - IF(INCX.LT.0)IX = (-N+1)*INCX + 1 - IF(INCY.LT.0)IY = (-N+1)*INCY + 1 - DO 10 I = 1,N - DY(IY) = DY(IY) + DA*DX(IX) - IX = IX + INCX - IY = IY + INCY - 10 CONTINUE - RETURN -C -C CODE FOR BOTH INCREMENTS EQUAL TO 1 -C -C -C CLEAN-UP LOOP -C - 20 M = MOD(N,4) - IF( M .EQ. 0 ) GO TO 40 - DO 30 I = 1,M - DY(I) = DY(I) + DA*DX(I) - 30 CONTINUE - IF( N .LT. 4 ) RETURN - 40 MP1 = M + 1 - DO 50 I = MP1,N,4 - DY(I) = DY(I) + DA*DX(I) - DY(I + 1) = DY(I + 1) + DA*DX(I + 1) - DY(I + 2) = DY(I + 2) + DA*DX(I + 2) - DY(I + 3) = DY(I + 3) + DA*DX(I + 3) - 50 CONTINUE - RETURN - END - SUBROUTINE DSCAL(N,DA,DX,INCX) -C -C SCALES A VECTOR BY A CONSTANT. -C USES UNROLLED LOOPS FOR INCREMENT EQUAL TO ONE. -C JACK DONGARRA, LINPACK, 3/11/78. -C - DOUBLE PRECISION DA,DX(*) - INTEGER I,INCX,M,MP1,N,NINCX -C - IF(N.LE.0)RETURN - IF(INCX.EQ.1)GO TO 20 -C -C CODE FOR INCREMENT NOT EQUAL TO 1 -* -C - NINCX = N*INCX - DO 10 I = 1,NINCX,INCX - DX(I) = DA*DX(I) - 10 CONTINUE - RETURN -C -C CODE FOR INCREMENT EQUAL TO 1 -C -C -C CLEAN-UP LOOP -C - 20 M = MOD(N,5) - IF( M .EQ. 0 ) GO TO 40 - DO 30 I = 1,M - DX(I) = DA*DX(I) - 30 CONTINUE - IF( N .LT. 5 ) RETURN - 40 MP1 = M + 1 - DO 50 I = MP1,N,5 - DX(I) = DA*DX(I) - DX(I + 1) = DA*DX(I + 1) - DX(I + 2) = DA*DX(I + 2) - DX(I + 3) = DA*DX(I + 3) - DX(I + 4) = DA*DX(I + 4) - 50 CONTINUE - RETURN - END - DOUBLE PRECISION FUNCTION DDOT(N,DX,INCX,DY,INCY) -C -C FORMS THE DOT PRODUCT OF TWO VECTORS. -C USES UNROLLED LOOPS FOR INCREMENTS EQUAL TO ONE. -C JACK DONGARRA, LINPACK, 3/11/78. -C - DOUBLE PRECISION DX(*),DY(*),DTEMP - INTEGER I,INCX,INCY,IX,IY,M,MP1,N -C - DDOT = 0.0D0 - DTEMP = 0.0D0 - IF(N.LE.0)RETURN - IF(INCX.EQ.1.AND.INCY.EQ.1)GO TO 20 -C -C CODE FOR UNEQUAL INCREMENTS OR EQUAL INCREMENTS -C NOT EQUAL TO 1 -C - IX = 1 - IY = 1 - IF(INCX.LT.0)IX = (-N+1)*INCX + 1 - IF(INCY.LT.0)IY = (-N+1)*INCY + 1 - DO 10 I = 1,N - DTEMP = DTEMP + DX(IX)*DY(IY) - IX = IX + INCX - IY = IY + INCY - 10 CONTINUE - DDOT = DTEMP - RETURN -C -C CODE FOR BOTH INCREMENTS EQUAL TO 1 -C -C -C CLEAN-UP LOOP -C - 20 M = MOD(N,5) - IF( M .EQ. 0 ) GO TO 40 - DO 30 I = 1,M - DTEMP = DTEMP + DX(I)*DY(I) - 30 CONTINUE - IF( N .LT. 5 ) GO TO 60 - 40 MP1 = M + 1 - DO 50 I = MP1,N,5 - DTEMP = DTEMP + DX(I)*DY(I) + DX(I + 1)*DY(I + 1) + - * DX(I + 2)*DY(I + 2) + DX(I + 3)*DY(I + 3) + DX(I + 4)*DY(I + 4) - 50 CONTINUE - 60 DDOT = DTEMP - RETURN - END - INTEGER FUNCTION IDAMAX(N,DX,INCX) -C -C FINDS THE INDEX OF ELEMENT HAVING MAX. ABSOLUTE VALUE. -C JACK DONGARRA, LINPACK, 3/11/78. -C - DOUBLE PRECISION DX(*),DMAX - INTEGER I,INCX,IX,N -C - IDAMAX = 0 - IF( N .LT. 1 ) RETURN - IDAMAX = 1 - IF(N.EQ.1)RETURN - IF(INCX.EQ.1)GO TO 20 -C -C CODE FOR INCREMENT NOT EQUAL TO 1 -C - IX = 1 - DMAX = DABS(DX(1)) - IX = IX + INCX - DO 10 I = 2,N - IF(DABS(DX(IX)).LE.DMAX) GO TO 5 - IDAMAX = I - DMAX = DABS(DX(IX)) - 5 IX = IX + INCX - 10 CONTINUE - RETURN -C -C CODE FOR INCREMENT EQUAL TO 1 -C - 20 DMAX = DABS(DX(1)) - DO 30 I = 2,N - IF(DABS(DX(I)).LE.DMAX) GO TO 30 - IDAMAX = I - DMAX = DABS(DX(I)) - 30 CONTINUE - RETURN - END - DOUBLE PRECISION FUNCTION D1MACH (IDUM) - INTEGER IDUM -C----------------------------------------------------------------------- -C THIS ROUTINE COMPUTES THE UNIT ROUNDOFF OF THE MACHINE IN DOUBLE -C PRECISION. THIS IS DEFINED AS THE SMALLEST POSITIVE MACHINE NUMBER -C U SUCH THAT 1.0D0 + U .NE. 1.0D0 (IN DOUBLE PRECISION). -C----------------------------------------------------------------------- - DOUBLE PRECISION U, COMP - U = 1.0D0 - 10 U = U*0.5D0 - COMP = 1.0D0 + U - IF (COMP .NE. 1.0D0) GO TO 10 - D1MACH = U*2.0D0 - RETURN -C----------------------- END OF FUNCTION D1MACH ------------------------ - END - SUBROUTINE XERR (MSG, NERR, IERT, NI, I1, I2, NR, R1, R2) - INTEGER NERR, IERT, NI, I1, I2, NR, - 1 LUN, LUNIT, MESFLG - DOUBLE PRECISION R1, R2 - CHARACTER*(*) MSG -C------------------------------------------------------------------- -C -C ALL ARGUMENTS ARE INPUT ARGUMENTS. -C -C MSG = THE MESSAGE (CHARACTER VARIABLE) -C NERR = THE ERROR NUMBER (NOT USED). -C IERT = THE ERROR TYPE.. -C 1 MEANS RECOVERABLE (CONTROL RETURNS TO CALLER). -C 2 MEANS FATAL (RUN IS ABORTED--SEE NOTE BELOW). -C NI = NUMBER OF INTEGERS (0, 1, OR 2) TO BE PRINTED WITH MESSAGE. -C I1,I2 = INTEGERS TO BE PRINTED, DEPENDING ON NI. -C NR = NUMBER OF REALS (0, 1, OR 2) TO BE PRINTED WITH MESSAGE. -C R1,R2 = REALS TO BE PRINTED, DEPENDING ON NR. -C -C NOTES: -C 1. THE DIMENSION OF MSG IS ASSUMED TO BE AT MOST 60. -C (MULTI-LINE MESSAGES ARE GENERATED BY REPEATED CALLS.) -C 2. IF IERT = 2, CONTROL PASSES TO THE STATEMENT STOP -C TO ABORT THE RUN. THIS STATEMENT MAY BE MACHINE-DEPENDENT. -C 3. R1 AND R2 ARE ASSUMED TO BE IN DOUBLE PRECISION AND ARE PRINTED -C IN D21.13 FORMAT. -C 4. THE COMMON BLOCK /EH0001/ BELOW IS DATA-LOADED (A MACHINE- -C DEPENDENT FEATURE) WITH DEFAULT VALUES. -C THIS BLOCK IS NEEDED FOR PROPER RETENTION OF PARAMETERS USED BY -C THIS ROUTINE WHICH THE USER CAN RESET BY CALLING XSETF OR XSETUN. -C THE VARIABLES IN THIS BLOCK ARE AS FOLLOWS.. -C MESFLG = PRINT CONTROL FLAG.. -C 1 MEANS PRINT ALL MESSAGES (THE DEFAULT). -C 0 MEANS NO PRINTING. -C LUNIT = LOGICAL UNIT NUMBER FOR MESSAGES. -C THE DEFAULT IS 6 (MACHINE-DEPENDENT). -C 5. TO CHANGE THE DEFAULT OUTPUT UNIT, CHANGE THE DATA STATEMENT -C IN THE BLOCK DATA SUBPROGRAM BELOW. -C -C FOR A DIFFERENT RUN-ABORT COMMAND, CHANGE THE STATEMENT FOLLOWING -C STATEMENT 100 AT THE END. -C----------------------------------------------------------------------- - COMMON /EH0001/ MESFLG, LUNIT - IF (MESFLG .EQ. 0) GO TO 100 -C GET LOGICAL UNIT NUMBER. --------------------------------------------- - LUN = LUNIT -C WRITE THE MESSAGE. --------------------------------------------------- - WRITE (LUN, 10) MSG - 10 FORMAT(1X,A) -C----------------------------------------------------------------------- - IF (NI .EQ. 1) WRITE (LUN, 20) I1 - 20 FORMAT(6X,'IN ABOVE MESSAGE, I1 = ',I10) - IF (NI .EQ. 2) WRITE (LUN, 30) I1,I2 - 30 FORMAT(6X,'IN ABOVE MESSAGE, I1 = ',I10,3X,'I2 = ',I10) - IF (NR .EQ. 1) WRITE (LUN, 40) R1 - 40 FORMAT(6X,'IN ABOVE MESSAGE, R1 = ',D21.13) - IF (NR .EQ. 2) WRITE (LUN, 50) R1,R2 - 50 FORMAT(6X,'IN ABOVE, R1 = ',D21.13,3X,'R2 = ',D21.13) -C ABORT THE RUN IF IERT = 2. ------------------------------------------- - 100 IF (IERT .NE. 2) RETURN - STOP -C----------------------- END OF SUBROUTINE XERR ---------------------- - END - SUBROUTINE XSETF (MFLAG) -C -C THIS ROUTINE RESETS THE PRINT CONTROL FLAG MFLAG. -C - INTEGER MFLAG, MESFLG, LUNIT - COMMON /EH0001/ MESFLG, LUNIT -C - IF (MFLAG .EQ. 0 .OR. MFLAG .EQ. 1) MESFLG = MFLAG - RETURN -C----------------------- END OF SUBROUTINE XSETF ----------------------- - END - SUBROUTINE XSETUN (LUN) -C -C THIS ROUTINE RESETS THE LOGICAL UNIT NUMBER FOR MESSAGES. -C - INTEGER LUN, MESFLG, LUNIT - COMMON /EH0001/ MESFLG, LUNIT -C - IF (LUN .GT. 0) LUNIT = LUN - RETURN -C----------------------- END OF SUBROUTINE XSETUN ---------------------- - END - BLOCK DATA -C----------------------------------------------------------------------- -C THIS DATA SUBPROGRAM LOADS VARIABLES INTO THE INTERNAL COMMON -C BLOCKS USED BY ODESSA AND ITS VARIANTS. THE VARIABLES ARE -C DEFINED AS FOLLOWS.. -C ILLIN = COUNTER FOR THE NUMBER OF CONSECUTIVE TIMES THE PACKAGE -C WAS CALLED WITH ILLEGAL INPUT. THE RUN IS STOPPED WHEN -C ILLIN REACHES 5. -C NTREP = COUNTER FOR THE NUMBER OF CONSECUTIVE TIMES THE PACKAGE -C WAS CALLED WITH ISTATE = 1 AND TOUT = T. THE RUN IS -C STOPPED WHEN NTREP REACHES 5. -C MESFLG = FLAG TO CONTROL PRINTING OF ERROR MESSAGES. 1 MEANS PRINT, -C 0 MEANS NO PRINTING. -C LUNIT = DEFAULT VALUE OF LOGICAL UNIT NUMBER FOR PRINTING OF ERROR -C MESSAGES. -C----------------------------------------------------------------------- - INTEGER ILLIN, IDUMA, NTREP, IDUMB, IOWNS, ICOMM, MESFLG, LUNIT - DOUBLE PRECISION ROWND, ROWNS, RCOMM - COMMON /ODE001/ ROWND, ROWNS(173), RCOMM(45), - 1 ILLIN, IDUMA(10), NTREP, IDUMB(2), IOWNS(4), ICOMM(21) - COMMON /EH0001/ MESFLG, LUNIT - DATA ILLIN/0/, NTREP/0/ - DATA MESFLG/1/, LUNIT/6/ -C -C------------------------ END OF BLOCK DATA ---------------------------- - END -C----------------------------------------------------------------------- -C INSTRUCTIONS FOR INSTALLING THE ODESSA PACKAGE. (see @ below.) -C -C ODESSA is an enhanced version of the widely disseminated ODE solver -C LSODE, and as such retains the same properties regarding portability. -C The notes below, adapted from the installation instructions for LSODE, -C are intended to facilitate the installation of the ODESSA package in -C the user's software library. -C -C 1. Both a single and a double precision version of ODESSA are -C provided in this release. It is expected that most users will -C utilize the double precision version, except in the case of -C extended word-length computers. Most routines used by ODESSA -C are named the same regardless of whether they are single or -C double precision. The exceptions are the LINPAK and BLAS -C routines that follow the LINPAK/BLAS naming conventions, i.e. -C D--- for a double precision routine, and S--- for a single -C precision routine. Thus, care should be taken if both single -C and double precision versions are stored in the same library. -C -C 2. Several routines in ODESSA have the same names as the LSODE -C routines from which they were derived, although they contain -C different code. These are: INTDY, STODE, PREPJ, SVCOM, and -C RSCOM. If ODESSA is added to a subroutine library of which -C LSODE is already a member, these routine names must be changed -C in one of the two programs. Also see the note regarding BLOCK -C DATA subroutines below. -C -C 3. In many cases, ODESSA uses unaltered LSODE routines and -C common library routines that may already reside on your system. -C The installation of ODESSA should be done so that identical routines -C are shared rather than kept as duplicate copies. -C a. Normally, the user calls only subroutine ODESSA, but for optional -C capabilities the user may also CALL XSETUN, XSETF, SVCOM, RSCOM, -C or INTDY, as described in Part II of the Full Description in the -C User Documentation (ODESSA.DOC, see below). Except for INTDY, -C none of these are called from within the package. -C b. Two routines, EWSET and VNORM, are optionally replaceable by the -C user if the package version is unsuitable. Hence, the install- -C ation of the package should be done so that the user's version -C for either routine overrides the package version. -C c. The function routine D1MACH is provided to compute the unit -C roundoff of the machine and precision in use, in a manner com- -C patible with machine parameter routines developed at Bell Lab- -C oratories. If such a routine has already been installed on -C your system, the version supplied here may be discarded. -C d. Linear algebraic systems are solved with routines from the -C LINPACK collection, in conjunction with routines from the Basic -C Linear Algebra module collection (BLAS). In double precision, -C the names are DGEFA, DGESL, DGBFA, and DGBSL (from LINPACK), and -C DAXPY, DSCAL, IDAMAX, and DDOT (from BLAS). If these routines -C have already been installed on your system, copies supplied with -C ODESSA may be discarded. The single precision versions of these -C routines are used in the single precision version. -C -C 4. There are four integer variables, in the two labeled COMMON -C blocks /ODE001/ and /EH0001/, which need to be loaded with DATA -C statements. They can vary during execution, and are in common to -C assure their retention between calls. This is legal in ANSI Fortran -C only if done in a BLOCK DATA subprogram, and this package has a -C BLOCK DATA for this purpose. However, BLOCK DATA subprograms can be -C difficult to install in libraries, and many compilers allow such DATA -C statements in subroutines. If your system allows this, the location -C of the DATA statements are just after the initial type and common -C declarations in subroutines ODESSA and XERR. In ODESSA, ILLIN and -C NTREP are DATA-loaded as 0. In XERR, MESFLG is loaded as 1 and -C LUNIT is loaded as the appropriate default logical unit number. -C -C 5. The ODESSA package contains subscript expressions which may not -C be accepted by some compilers. Subscripts of the form I + J, I - J, -C etc., occur in various routines. If any of these forms are -C unacceptable to your compiler, an extra line of code setting the -C subscript to a dummy integer value should be added for each subscipt. -C -C 6. User documentation is provided in a two-level structure -C to accommmodate both the casual and serious user. The novice or -C casual user should need to read only the Summary of Usage and the -C Example Problem located at the beginning of the documentation. More -C experienced users, requiring the full set of available options, -C should read the Full Description which follows the Example Problem. -C -C 7. The user documentation may need corrections in the following ways: -C a. If subroutine names have been changed to avoid conflicts between -C the LSODE and ODESSA packages, the corresponding name changes -C should be made in the documentation. -C b. In the Summary of Usage, and in the description of XSETUN under -C Part II of the Full Description, the default logical unit number -C should be corrected if it is not 6. -C c. In the Summary of Usage, users should be instructed to execute -C CALL XSETF(1) before the first CALL to ODESSA, if this is neces- -C sary for proper error message handling. (see note 2(e) above.) -C d. In the description of the subroutines DF and JAC in the Summary -C of Usage and in Part I of the Full Description, it is stated -C that dummy names may be passed if these two routines are not user -C supplied. Your system may require the user to supply a dummy -C subroutine instead. -C e. The ODESSA package treats the arguments NEQ, RTOL, and ATOL as -C arrays (possibly of length 1), while the usage documentation -C states that these arguments may be either arrays or scalars. -C If your system does not allow such a mismatch, then the -C documentation should be changed to reflect this. -C 8. A demonstration program is provided with the package for -C verification. -C -C -C Jorge R. Leis and Mark A. Kramer -C Department of Chemical Engineering -C Massachusetts Institute of Technology -C Cambridge, Massachusetts 02139 -C U.S.A. -C -C Current address of J.R. Leis (Jan. 1988): -C -C Shell Development Company -C Westhollow Research Center -C Houston, TX -C -C @ Adapted from 'Instructions for Installing LSODE', written by -C Alan C. Hindmarsh, Mathematics & Statistics Division, L-316, -C Lawrence Livermore National Laboratory, Livermore, CA. 94550 diff --git a/int.modified_WCOPY/atm_radau5.def b/int.modified_WCOPY/atm_radau5.def deleted file mode 100644 index 7b3bb1a9ab1e01eed344164de37e244fe536d91a..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/atm_radau5.def +++ /dev/null @@ -1,19 +0,0 @@ - -#FUNCTION AGGREGATE -#JACOBIAN FULL -#DOUBLE ON -#INTFILE atm_radau5 - -#INLINE F77_GLOBAL - REAL*8 STEPSTART - COMMON /GDATA/ STEPSTART -#ENDINLINE - -#INLINE F77_INIT - STEPMIN=0.0001 - STEPMAX=3600. - STEPSTART=STEPMIN -#ENDINLINE - - - diff --git a/int.modified_WCOPY/atm_radau5.f b/int.modified_WCOPY/atm_radau5.f deleted file mode 100644 index 2b3a6042afc61f5e284f7f5dadd7ef1d2ba13e55..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/atm_radau5.f +++ /dev/null @@ -1,4572 +0,0 @@ - SUBROUTINE INTEGRATE( TIN, TOUT ) - - IMPLICIT KPP_REAL (A-H,O-Z) - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Global.h' - -C TIN - Start Time - KPP_REAL TIN -C TOUT - End Time - KPP_REAL TOUT, H - SAVE H - DATA H /0.0d0/ - INTEGER Nfun, Njac, Nstp, Nacc, Nrej, Ndec, Nsol - SAVE Nstp, Nacc, Nrej - DATA Nstp /0/ - DATA Nacc /0/ - DATA Nrej /0/ - INTEGER i - - PARAMETER (LWORK=5*NVAR*NVAR+12*NVAR+20,LIWORK=3*NVAR+20) - PARAMETER (LRCONT=4*NVAR+4) - - KPP_REAL WORK(LWORK), RPAR(1) - INTEGER IWORK(LIWORK), IPAR(1) - COMMON /CONT/ ICONT(4),RCONT(LRCONT) - EXTERNAL FUNC_CHEM,JAC_CHEM,SOLOUT - - - ITOL=1 ! --- VECTOR TOLERANCES - IJAC=1 ! --- COMPUTE THE JACOBIAN ANALYTICALLY - IMAS=0 ! --- DIFFERENTIAL EQUATION IS IN EXPLICIT FORM - IOUT=0 ! --- OUTPUT ROUTINE IS NOT USED DURING INTEGRATION - MLJAC=NVAR ! --- JACOBIAN IS A FULL MATRIX - MUJAC=NVAR ! --- JACOBIAN IS A FULL MATRIX - MLMAS=NVAR ! --- JACOBIAN IS A FULL MATRIX - MUMAS=NVAR ! --- JACOBIAN IS A FULL MATRIX - - DO i=1,20 - IWORK(i) = 0 - WORK(i) = 0.D0 - ENDDO - - IWORK(3) = 8 ! Max no. of Newton iterations - IWORK(4) = 0 ! Starting values for Newton are interpolated (0) or zero (1) - IWORK(8) = 2 ! Gustaffson (1) or classic(2) controller - WORK(2) = 0.9 ! Safety factor - - CALL RADAU5(NVAR,FUNC_CHEM,TIN,VAR,TOUT,H, - & RTOL,ATOL,ITOL, - & JAC_CHEM ,IJAC,MLJAC,MUJAC, - & FUNC_CHEM ,IMAS,MLMAS,MUMAS, - & SOLOUT,IOUT, - & WORK,LWORK,IWORK,LIWORK,RPAR,IPAR,IDID) - - - Nfun = Nfun + IWORK(14) - Njac = Njac + IWORK(15) - Nstp = Nstp + IWORK(16) - Nacc = Nacc + IWORK(17) - Nrej = Nrej + IWORK(18) - Ndec = Ndec + IWORK(19) - Nsol = Nsol + IWORK(20) - - print("('Nstep=',I5,' Nacc=',I6,' Nrej=',I6)"),Nstp, Nacc, Nrej - - IF (IDID.LT.0) THEN - print *,'RADAU: Unsucessfull exit at T=', - & TIN,' (IDID=',IDID,')' - ENDIF - - RETURN - END - - - SUBROUTINE RADAU5(N,FCN,X,Y,XEND,H, - & RelTol,AbsTol,ITOL, - & JAC ,IJAC,MLJAC,MUJAC, - & MAS ,IMAS,MLMAS,MUMAS, - & SOLOUT,IOUT, - & WORK,LWORK,IWORK,LIWORK,RPAR,IPAR,IDID) -C ---------------------------------------------------------- -C NUMERICAL SOLUTION OF A STIFF (OR DIFFERENTIAL ALGEBRAIC) -C SYSTEM OF FIRST 0RDER ORDINARY DIFFERENTIAL EQUATIONS -C M*Y'=F(X,Y). -C THE SYSTEM CAN BE (LINEARLY) IMPLICIT (MASS-MATRIX M .NE. I) -C OR EXPLICIT (M=I). -C THE METHOD USED IS AN IMPLICIT RUNGE-KUTTA METHOD (RADAU IIA) -C OF ORDER 5 WITH STEP SIZE CONTROL AND CONTINUOUS OUTPUT. -C C.F. SECTION IV.8 -C -C AUTHORS: E. HAIRER AND G. WANNER -C UNIVERSITE DE GENEVE, DEPT. DE MATHEMATIQUES -C CH-1211 GENEVE 24, SWITZERLAND -C E-MAIL: HAIRER@DIVSUN.UNIGE.CH, WANNER@DIVSUN.UNIGE.CH -C -C THIS CODE IS PART OF THE BOOK: -C E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -C EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -C SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS 14, -C SPRINGER-VERLAG (1991) -C -C VERSION OF SEPTEMBER 30, 1995 -C -C INPUT PARAMETERS -C ---------------- -C N DIMENSION OF THE SYSTEM -C -C FCN NAME (EXTERNAL) OF SUBROUTINE COMPUTING THE -C VALUE OF F(X,Y): -C SUBROUTINE FCN(N,X,Y,F,RPAR,IPAR) -C KPP_REAL X,Y(N),F(N) -C F(1)=... ETC. -C RPAR, IPAR (SEE BELOW) -C -C X INITIAL X-VALUE -C -C Y(N) INITIAL VALUES FOR Y -C -C XEND FINAL X-VALUE (XEND-X MAY BE POSITIVE OR NEGATIVE) -C -C H INITIAL STEP SIZE GUESS; -C FOR STIFF EQUATIONS WITH INITIAL TRANSIENT, -C H=1.D0/(NORM OF F'), USUALLY 1.D-3 OR 1.D-5, IS GOOD. -C THIS CHOICE IS NOT VERY IMPORTANT, THE STEP SIZE IS -C QUICKLY ADAPTED. (IF H=0.D0, THE CODE PUTS H=1.D-6). -C -C RelTol,AbsTol RELATIVE AND ABSOLUTE ERROR TOLERANCES. THEY -C CAN BE BOTH SCALARS OR ELSE BOTH VECTORS OF LENGTH N. -C -C ITOL SWITCH FOR RelTol AND AbsTol: -C ITOL=0: BOTH RelTol AND AbsTol ARE SCALARS. -C THE CODE KEEPS, ROUGHLY, THE LOCAL ERROR OF -C Y(I) BELOW RelTol*ABS(Y(I))+AbsTol -C ITOL=1: BOTH RelTol AND AbsTol ARE VECTORS. -C THE CODE KEEPS THE LOCAL ERROR OF Y(I) BELOW -C RelTol(I)*ABS(Y(I))+AbsTol(I). -C -C JAC NAME (EXTERNAL) OF THE SUBROUTINE WHICH COMPUTES -C THE PARTIAL DERIVATIVES OF F(X,Y) WITH RESPECT TO Y -C (THIS ROUTINE IS ONLY CALLED IF IJAC=1; SUPPLY -C A DUMMY SUBROUTINE IN THE CASE IJAC=0). -C FOR IJAC=1, THIS SUBROUTINE MUST HAVE THE FORM -C SUBROUTINE JAC(N,X,Y,DFY,LDFY,RPAR,IPAR) -C KPP_REAL X,Y(N),DFY(LDFY,N) -C DFY(1,1)= ... -C LDFY, THE COLUMN-LENGTH OF THE ARRAY, IS -C FURNISHED BY THE CALLING PROGRAM. -C IF (MLJAC.EQ.N) THE JACOBIAN IS SUPPOSED TO -C BE FULL AND THE PARTIAL DERIVATIVES ARE -C STORED IN DFY AS -C DFY(I,J) = PARTIAL F(I) / PARTIAL Y(J) -C ELSE, THE JACOBIAN IS TAKEN AS BANDED AND -C THE PARTIAL DERIVATIVES ARE STORED -C DIAGONAL-WISE AS -C DFY(I-J+MUJAC+1,J) = PARTIAL F(I) / PARTIAL Y(J). -C -C IJAC SWITCH FOR THE COMPUTATION OF THE JACOBIAN: -C IJAC=0: JACOBIAN IS COMPUTED INTERNALLY BY FINITE -C DIFFERENCES, SUBROUTINE "JAC" IS NEVER CALLED. -C IJAC=1: JACOBIAN IS SUPPLIED BY SUBROUTINE JAC. -C -C MLJAC SWITCH FOR THE BANDED STRUCTURE OF THE JACOBIAN: -C MLJAC=N: JACOBIAN IS A FULL MATRIX. THE LINEAR -C ALGEBRA IS DONE BY FULL-MATRIX GAUSS-ELIMINATION. -C 0<=MLJAC= NUMBER OF NON-ZERO DIAGONALS BELOW -C THE MAIN DIAGONAL). -C -C MUJAC UPPER BANDWITH OF JACOBIAN MATRIX (>= NUMBER OF NON- -C ZERO DIAGONALS ABOVE THE MAIN DIAGONAL). -C NEED NOT BE DEFINED IF MLJAC=N. -C -C ---- MAS,IMAS,MLMAS, AND MUMAS HAVE ANALOG MEANINGS ----- -C ---- FOR THE "MASS MATRIX" (THE MATRIX "M" OF SECTION IV.8): - -C -C MAS NAME (EXTERNAL) OF SUBROUTINE COMPUTING THE MASS- -C MATRIX M. -C IF IMAS=0, THIS MATRIX IS ASSUMED TO BE THE IDENTITY -C MATRIX AND NEEDS NOT TO BE DEFINED; -C SUPPLY A DUMMY SUBROUTINE IN THIS CASE. -C IF IMAS=1, THE SUBROUTINE MAS IS OF THE FORM -C SUBROUTINE MAS(N,AM,LMAS,RPAR,IPAR) -C KPP_REAL AM(LMAS,N) -C AM(1,1)= .... -C IF (MLMAS.EQ.N) THE MASS-MATRIX IS STORED -C AS FULL MATRIX LIKE -C AM(I,J) = M(I,J) -C ELSE, THE MATRIX IS TAKEN AS BANDED AND STORED -C DIAGONAL-WISE AS -C AM(I-J+MUMAS+1,J) = M(I,J). -C -C IMAS GIVES INFORMATION ON THE MASS-MATRIX: -C IMAS=0: M IS SUPPOSED TO BE THE IDENTITY -C MATRIX, MAS IS NEVER CALLED. -C IMAS=1: MASS-MATRIX IS SUPPLIED. -C -C MLMAS SWITCH FOR THE BANDED STRUCTURE OF THE MASS-MATRIX: -C MLMAS=N: THE FULL MATRIX CASE. THE LINEAR -C ALGEBRA IS DONE BY FULL-MATRIX GAUSS-ELIMINATION. -C 0<=MLMAS= NUMBER OF NON-ZERO DIAGONALS BELOW -C THE MAIN DIAGONAL). -C MLMAS IS SUPPOSED TO BE .LE. MLJAC. -C -C MUMAS UPPER BANDWITH OF MASS-MATRIX (>= NUMBER OF NON- -C ZERO DIAGONALS ABOVE THE MAIN DIAGONAL). -C NEED NOT BE DEFINED IF MLMAS=N. -C MUMAS IS SUPPOSED TO BE .LE. MUJAC. -C -C SOLOUT NAME (EXTERNAL) OF SUBROUTINE PROVIDING THE -C NUMERICAL SOLUTION DURING INTEGRATION. -C IF IOUT=1, IT IS CALLED AFTER EVERY SUCCESSFUL STEP. -C SUPPLY A DUMMY SUBROUTINE IF IOUT=0. -C IT MUST HAVE THE FORM -C SUBROUTINE SOLOUT (NR,XOLD,X,Y,CONT,LRC,N, -C RPAR,IPAR,IRTRN) -C KPP_REAL X,Y(N),CONT(LRC) -C .... -C SOLOUT FURNISHES THE SOLUTION "Y" AT THE NR-TH -C GRID-POINT "X" (THEREBY THE INITIAL VALUE IS -C THE FIRST GRID-POINT). -C "XOLD" IS THE PRECEEDING GRID-POINT. -C "IRTRN" SERVES TO INTERRUPT THE INTEGRATION. IF IRTRN -C IS SET <0, RADAU5 RETURNS TO THE CALLING PROGRAM. -C -C ----- CONTINUOUS OUTPUT: ----- -C DURING CALLS TO "SOLOUT", A CONTINUOUS SOLUTION -C FOR THE INTERVAL [XOLD,X] IS AVAILABLE THROUGH -C THE FUNCTION -C >>> CONTR5(I,S,CONT,LRC) <<< -C WHICH PROVIDES AN APPROXIMATION TO THE I-TH -C COMPONENT OF THE SOLUTION AT THE POINT S. THE VALUE -C S SHOULD LIE IN THE INTERVAL [XOLD,X]. -C DO NOT CHANGE THE ENTRIES OF CONT(LRC), IF THE -C DENSE OUTPUT FUNCTION IS USED. -C -C IOUT SWITCH FOR CALLING THE SUBROUTINE SOLOUT: -C IOUT=0: SUBROUTINE IS NEVER CALLED -C IOUT=1: SUBROUTINE IS AVAILABLE FOR OUTPUT. -C -C WORK ARRAY OF WORKING SPACE OF LENGTH "LWORK". -C WORK(1), WORK(2),.., WORK(20) SERVE AS PARAMETERS -C FOR THE CODE. FOR STANDARD USE OF THE CODE -C WORK(1),..,WORK(20) MUST BE SET TO ZERO BEFORE -C CALLING. SEE BELOW FOR A MORE SOPHISTICATED USE. -C WORK(21),..,WORK(LWORK) SERVE AS WORKING SPACE -C FOR ALL VECTORS AND MATRICES. -C "LWORK" MUST BE AT LEAST -C N*(LJAC+LMAS+3*LE+12)+20 -C WHERE -C LJAC=N IF MLJAC=N (FULL JACOBIAN) -C LJAC=MLJAC+MUJAC+1 IF MLJAC0 THEN "LWORK" MUST BE AT LEAST -C N*(LJAC+12)+(N-M1)*(LMAS+3*LE)+20 -C WHERE IN THE DEFINITIONS OF LJAC, LMAS AND LE THE -C NUMBER N CAN BE REPLACED BY N-M1. -C -C LWORK DECLARED LENGTH OF ARRAY "WORK". -C -C IWORK INTEGER WORKING SPACE OF LENGTH "LIWORK". -C IWORK(1),IWORK(2),...,IWORK(20) SERVE AS PARAMETERS -C FOR THE CODE. FOR STANDARD USE, SET IWORK(1),.., -C IWORK(20) TO ZERO BEFORE CALLING. -C IWORK(21),...,IWORK(LIWORK) SERVE AS WORKING AREA. -C "LIWORK" MUST BE AT LEAST 3*N+20. -C -C LIWORK DECLARED LENGTH OF ARRAY "IWORK". -C -C RPAR, IPAR REAL AND INTEGER PARAMETERS (OR PARAMETER ARRAYS) WHICH -C CAN BE USED FOR COMMUNICATION BETWEEN YOUR CALLING -C PROGRAM AND THE FCN, JAC, MAS, SOLOUT SUBROUTINES. -C -C ---------------------------------------------------------------------- -C -C SOPHISTICATED SETTING OF PARAMETERS -C ----------------------------------- -C SEVERAL PARAMETERS OF THE CODE ARE TUNED TO MAKE IT WORK -C WELL. THEY MAY BE DEFINED BY SETTING WORK(1),... -C AS WELL AS IWORK(1),... DIFFERENT FROM ZERO. -C FOR ZERO INPUT, THE CODE CHOOSES DEFAULT VALUES: -C -C IWORK(1) IF IWORK(1).NE.0, THE CODE TRANSFORMS THE JACOBIAN -C MATRIX TO HESSENBERG FORM. THIS IS PARTICULARLY -C ADVANTAGEOUS FOR LARGE SYSTEMS WITH FULL JACOBIAN. -C IT DOES NOT WORK FOR BANDED JACOBIAN (MLJAC 1. -C THE FUNCTION-SUBROUTINE SHOULD BE WRITTEN SUCH THAT -C THE INDEX 1,2,3 VARIABLES APPEAR IN THIS ORDER. -C IN ESTIMATING THE ERROR THE INDEX 2 VARIABLES ARE -C MULTIPLIED BY H, THE INDEX 3 VARIABLES BY H**2. -C -C IWORK(5) DIMENSION OF THE INDEX 1 VARIABLES (MUST BE > 0). FOR -C ODE'S THIS EQUALS THE DIMENSION OF THE SYSTEM. -C DEFAULT IWORK(5)=N. -C -C IWORK(6) DIMENSION OF THE INDEX 2 VARIABLES. DEFAULT IWORK(6)=0. -C -C IWORK(7) DIMENSION OF THE INDEX 3 VARIABLES. DEFAULT IWORK(7)=0. -C -C IWORK(8) SWITCH FOR STEP SIZE STRATEGY -C IF IWORK(8).EQ.1 MOD. PREDICTIVE CONTROLLER (GUSTAFSSON) -C IF IWORK(8).EQ.2 CLASSICAL STEP SIZE CONTROL -C THE DEFAULT VALUE (FOR IWORK(8)=0) IS IWORK(8)=1. -C THE CHOICE IWORK(8).EQ.1 SEEMS TO PRODUCE SAFER RESULTS; -C FOR SIMPLE PROBLEMS, THE CHOICE IWORK(8).EQ.2 PRODUCES -C OFTEN SLIGHTLY FASTER RUNS -C -C IF THE DIFFERENTIAL SYSTEM HAS THE SPECIAL STRUCTURE THAT -C Y(I)' = Y(I+M2) FOR I=1,...,M1, -C WITH M1 A MULTIPLE OF M2, A SUBSTANTIAL GAIN IN COMPUTERTIME -C CAN BE ACHIEVED BY SETTING THE FOLLOWING TWO PARAMETERS. E.G., -C FOR SECOND ORDER SYSTEMS P'=V, V'=G(P,V), WHERE P AND V ARE -C VECTORS OF DIMENSION N/2, ONE HAS TO PUT M1=M2=N/2. -C FOR M1>0 SOME OF THE INPUT PARAMETERS HAVE DIFFERENT MEANINGS: -C - JAC: ONLY THE ELEMENTS OF THE NON-TRIVIAL PART OF THE -C JACOBIAN HAVE TO BE STORED -C IF (MLJAC.EQ.N-M1) THE JACOBIAN IS SUPPOSED TO BE FULL -C DFY(I,J) = PARTIAL F(I+M1) / PARTIAL Y(J) -C FOR I=1,N-M1 AND J=1,N. -C ELSE, THE JACOBIAN IS BANDED ( M1 = M2 * MM ) -C DFY(I-J+MUJAC+1,J+K*M2) = PARTIAL F(I+M1) / PARTIAL Y(J+K*M2) -C FOR I=1,MLJAC+MUJAC+1 AND J=1,M2 AND K=0,MM. -C - MLJAC: MLJAC=N-M1: IF THE NON-TRIVIAL PART OF THE JACOBIAN IS FULL -C 0<=MLJAC= x) { - m = i+1; - break; - } - - /* Update T with time to next reaction */ - *T = *T - log(r2)/A[NREACT-1]; - - /* Update state vector after reaction m */ - MoleculeChange( m, NmlcV ); - - } /* for event */ - -} /* Gillespie */ diff --git a/int.modified_WCOPY/gillespie.def b/int.modified_WCOPY/gillespie.def deleted file mode 100644 index f6b2a1a3bd17a500a71217d3ce9d9520af39074a..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/gillespie.def +++ /dev/null @@ -1,10 +0,0 @@ - -#FUNCTION aggregate -#JACOBIAN SPARSE_LU_ROW -#DOUBLE on -#STOCHASTIC on -#INTFILE gillespie - - - - diff --git a/int.modified_WCOPY/gillespie.f90 b/int.modified_WCOPY/gillespie.f90 deleted file mode 100644 index 025c905ddab0ecd8843bebcc6f5af09b86e11bf1..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/gillespie.f90 +++ /dev/null @@ -1,86 +0,0 @@ -MODULE KPP_ROOT_Integrator - - USE KPP_ROOT_Parameters, ONLY : NVAR, NFIX, NREACT - USE KPP_ROOT_Global, ONLY : TIME, RCONST, Volume - USE KPP_ROOT_Stoichiom - USE KPP_ROOT_Stochastic - USE KPP_ROOT_Rates - IMPLICIT NONE - -CONTAINS - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Gillespie(Nevents, T, SCT, NmlcV, NmlcF) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Gillespie stochastic integration -! INPUT: -! Nevents = no. of individual reaction events to be simulated -! SCT = stochastic rate constants -! T = time -! NmlcV, NmlcF = no. of molecules for variable and fixed species -! OUTPUT: -! T = updated time (after Nevents reactions) -! NmlcV = updated no. of molecules for variable species -! -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - KPP_REAL:: T - INTEGER :: Nevents - INTEGER :: NmlcV(NVAR), NmlcF(NFIX) - INTEGER :: i, m, issa - REAL :: r1, r2 - KPP_REAL :: A(NREACT), SCT(NREACT), x - - DO issa = 1, Nevents - - ! Uniformly distributed random numbers - CALL RANDOM_NUMBER(r1) - CALL RANDOM_NUMBER(r2) - ! Avoid log of zero - r2 = MAX(r2,1.e-14) - - ! Propensity vector - CALL Propensity ( NmlcV, NmlcF, SCT, A ) - ! Cumulative sum of propensities - DO i = 2, NREACT - A(i) = A(i-1)+A(i); - END DO - - ! Index of next reaction - x = r1*A(NREACT) - DO i = 1, NREACT - IF (A(i)>=x) THEN - m = i; - EXIT - END IF - END DO - - ! Update time with time to next reaction - T = T - LOG(r2)/A(NREACT); - - ! Update state vector - CALL MoleculeChange( m, NmlcV ) - - END DO - - CONTAINS - - SUBROUTINE PropensityTemplate( T, NmlcV, NmlcF, Prop ) - KPP_REAL, INTENT(IN) :: T - INTEGER, INTENT(IN) :: NmlcV(NVAR), NmlcF(NFIX) - KPP_REAL, INTENT(OUT) :: Prop(NREACT) - KPP_REAL :: Tsave, SCT(NREACT) - ! Update the stochastic reaction rates, which may be time dependent - Tsave = TIME - TIME = T - CALL Update_RCONST() - CALL StochasticRates( RCONST, Volume, SCT ) - CALL Propensity ( NmlcV, NmlcF, SCT, Prop ) - TIME = Tsave - END SUBROUTINE PropensityTemplate - - END SUBROUTINE Gillespie - -END MODULE KPP_ROOT_Integrator diff --git a/int.modified_WCOPY/kpp_dvode.def b/int.modified_WCOPY/kpp_dvode.def deleted file mode 100644 index 12804bc11a307df05527fd779a33506a80d313ea..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/kpp_dvode.def +++ /dev/null @@ -1,14 +0,0 @@ - -#FUNCTION AGGREGATE -#JACOBIAN SPARSE_LU_ROW - -#DOUBLE ON -#INTFILE kpp_dvode - -#INLINE F77_INIT - STEPMIN=0.0001 - STEPMAX=3600. -#ENDINLINE - - - diff --git a/int.modified_WCOPY/kpp_dvode.f b/int.modified_WCOPY/kpp_dvode.f deleted file mode 100644 index e120543074caa4c54bfb3e58818bd59029e5b034..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/kpp_dvode.f +++ /dev/null @@ -1,3850 +0,0 @@ - SUBROUTINE INTEGRATE( TIN, TOUT ) - - IMPLICIT KPP_REAL (A-H,O-Z) - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Global.h' - -C TIN - Start Time - KPP_REAL TIN -C TOUT - End Time - KPP_REAL TOUT - - PARAMETER (LRW=2*NVAR*NVAR+9*NVAR+25,LIW=NVAR+35) - PARAMETER (LRCONT=4*NVAR+4+10) - COMMON /CONT/ICONT(4),RCONT(LRCONT) - COMMON/STAT/NFCN,NJAC,NSTEP,NACCPT,NREJCT,NDEC,NSOL - COMMON /VERWER/ IVERWER, IBEGIN, STEPCUT - EXTERNAL VODE_FSPLIT_VAR, VODE_Jac_SP - - KPP_REAL RWORK(LRW) - INTEGER IWORK(LIW) - - STEPCUT = 0. - MAXORD = 5 - IBEGIN = 1 - ITOL=4 - -C ---- NORMAL COMPUTATION --- - ITASK=1 - ISTATE=1 -C ---- USE OPTIONAL INPUT --- - IOPT=1 - IWORK(5) = MAXORD ! MAX ORD - IWORK(6) = 20000 - IWORK(7) = 0 - RWORK(6) = STEPMAX ! STEP MAX - RWORK(7) = STEPMIN ! STEP MIN - RWORK(5) = STEPMIN ! INITIAL STEP - -C ----- SIGNAL FOR STIFF CASE, FULL JACOBIAN, INTERN (22) or SUPPLIED (21) - MF = 21 - - CALL DVODE (VODE_FSPLIT_VAR, NVAR, VAR, TIN, TOUT, ITOL, - * RTOL, ATOL, ITASK, - * ISTATE, IOPT, RWORK, LRW, IWORK, LIW, - * VODE_Jac_SP, MF, RPAR, IPAR) - - IF (ISTATE.LT.0) THEN - print *,'ATMDVODE: Unsucessfull exit at T=', - & TIN,' (ISTATE=',ISTATE,')' - ENDIF - - RETURN - END - - -C -- This version has JAC sparse, FCN aggregate -- - - SUBROUTINE DVODE (F, NEQ, Y, T, TOUT, ITOL, RelTol, AbsTol, ITASK, - 1 ISTATE, IOPT, RWORK, LRW, IWORK, LIW, JAC, MF, - 2 RPAR, IPAR) - - KPP_REAL Y, T, TOUT, RelTol, AbsTol, RWORK, RPAR - INTEGER NEQ, ITOL, ITASK, ISTATE, IOPT, LRW, IWORK, LIW, - 1 MF, IPAR - DIMENSION Y(*), RelTol(*), AbsTol(*), RWORK(LRW), IWORK(LIW), - 1 RPAR(*), IPAR(*) -C----------------------------------------------------------------------- -C DVODE.. Variable-coefficient Ordinary Differential Equation solver, -C with fixed-leading coefficient implementation. -C This version is in KPP_REAL. -C -C DVODE solves the initial value problem for stiff or nonstiff -C systems of first order ODEs, -C dy/dt = f(t,y) , or, in component form, -C dy(i)/dt = f(i) = f(i,t,y(1),y(2),...,y(NEQ)) (i = 1,...,NEQ). -C DVODE is a package based on the EPISODE and EPISODEB packages, and -C on the ODEPACK user interface standard, with minor modifications. -C----------------------------------------------------------------------- -C Revision History (YYMMDD) -C 890615 Date Written -C 890922 Added interrupt/restart ability, minor changes throughout. -C 910228 Minor revisions in line format, prologue, etc. -C 920227 Modifications by D. Pang: -C (1) Applied subgennam to get generic intrinsic names. -C (2) Changed intrinsic names to generic in comments. -C (3) Added *DECK lines before each routine. -C 920721 Names of routines and labeled Common blocks changed, so as -C to be unique in combined single/KPP_REAL code (ACH). -C 920722 Minor revisions to prologue (ACH). -C 920831 Conversion to KPP_REAL done (ACH). -C----------------------------------------------------------------------- -C References.. -C -C 1. P. N. Brown, G. D. Byrne, and A. C. Hindmarsh, "VODE: A Variable -C Coefficient ODE Solver," SIAM J. Sci. Stat. Comput., 10 (1989), -C pp. 1038-1051. Also, LLNL Report UCRL-98412, June 1988. -C 2. G. D. Byrne and A. C. Hindmarsh, "A Polyalgorithm for the -C Numerical Solution of Ordinary Differential Equations," -C ACM Trans. Math. Software, 1 (1975), pp. 71-96. -C 3. A. C. Hindmarsh and G. D. Byrne, "EPISODE: An Effective Package -C for the Integration of Systems of Ordinary Differential -C Equations," LLNL Report UCID-30112, Rev. 1, April 1977. -C 4. G. D. Byrne and A. C. Hindmarsh, "EPISODEB: An Experimental -C Package for the Integration of Systems of Ordinary Differential -C Equations with Banded Jacobians," LLNL Report UCID-30132, April -C 1976. -C 5. A. C. Hindmarsh, "ODEPACK, a Systematized Collection of ODE -C Solvers," in Scientific Computing, R. S. Stepleman et al., eds., -C North-Holland, Amsterdam, 1983, pp. 55-64. -C 6. K. R. Jackson and R. Sacks-Davis, "An Alternative Implementation -C of Variable Step-Size Multistep Formulas for Stiff ODEs," ACM -C Trans. Math. Software, 6 (1980), pp. 295-318. -C----------------------------------------------------------------------- -C Authors.. -C -C Peter N. Brown and Alan C. Hindmarsh -C Computing and Mathematics Research Division, L-316 -C Lawrence Livermore National Laboratory -C Livermore, CA 94550 -C and -C George D. Byrne -C Exxon Research and Engineering Co. -C Clinton Township -C Route 22 East -C Annandale, NJ 08801 -C----------------------------------------------------------------------- -C Summary of usage. -C -C Communication between the user and the DVODE package, for normal -C situations, is summarized here. This summary describes only a subset -C of the full set of options available. See the full description for -C details, including optional communication, nonstandard options, -C and instructions for special situations. See also the example -C problem (with program and output) following this summary. -C -C A. First provide a subroutine of the form.. -C -C SUBROUTINE F (NEQ, T, Y, YDOT, RPAR, IPAR) -C KPP_REAL T, Y, YDOT, RPAR -C DIMENSION Y(NEQ), YDOT(NEQ) -C -C which supplies the vector function f by loading YDOT(i) with f(i). -C -C B. Next determine (or guess) whether or not the problem is stiff. -C Stiffness occurs when the Jacobian matrix df/dy has an eigenvalue -C whose real part is negative and large in magnitude, compared to the -C reciprocal of the t span of interest. If the problem is nonstiff, -C use a method flag MF = 10. If it is stiff, there are four standard -C choices for MF (21, 22, 24, 25), and DVODE requires the Jacobian -C matrix in some form. In these cases (MF .gt. 0), DVODE will use a -C saved copy of the Jacobian matrix. If this is undesirable because of -C storage limitations, set MF to the corresponding negative value -C (-21, -22, -24, -25). (See full description of MF below.) -C The Jacobian matrix is regarded either as full (MF = 21 or 22), -C or banded (MF = 24 or 25). In the banded case, DVODE requires two -C half-bandwidth parameters ML and MU. These are, respectively, the -C widths of the lower and upper parts of the band, excluding the main -C diagonal. Thus the band consists of the locations (i,j) with -C i-ML .le. j .le. i+MU, and the full bandwidth is ML+MU+1. -C -C C. If the problem is stiff, you are encouraged to supply the Jacobian -C directly (MF = 21 or 24), but if this is not feasible, DVODE will -C compute it internally by difference quotients (MF = 22 or 25). -C If you are supplying the Jacobian, provide a subroutine of the form.. -C -C SUBROUTINE JAC (NEQ, T, Y, ML, MU, PD, NROWPD, RPAR, IPAR) -C KPP_REAL T, Y, PD, RPAR -C DIMENSION Y(NEQ), PD(NROWPD,NEQ) -C -C which supplies df/dy by loading PD as follows.. -C For a full Jacobian (MF = 21), load PD(i,j) with df(i)/dy(j), -C the partial derivative of f(i) with respect to y(j). (Ignore the -C ML and MU arguments in this case.) -C For a banded Jacobian (MF = 24), load PD(i-j+MU+1,j) with -C df(i)/dy(j), i.e. load the diagonal lines of df/dy into the rows of -C PD from the top down. -C In either case, only nonzero elements need be loaded. -C -C D. Write a main program which calls subroutine DVODE once for -C each point at which answers are desired. This should also provide -C for possible use of logical unit 6 for output of error messages -C by DVODE. On the first CALL to DVODE, supply arguments as follows.. -C F = Name of subroutine for right-hand side vector f. -C This name must be declared external in calling program. -C NEQ = Number of first order ODE-s. -C Y = Array of initial values, of length NEQ. -C T = The initial value of the independent variable. -C TOUT = First point where output is desired (.ne. T). -C ITOL = 1 or 2 according as AbsTol (below) is a scalar or array. -C RelTol = Relative tolerance parameter (scalar). -C AbsTol = Absolute tolerance parameter (scalar or array). -C The estimated local error in Y(i) will be controlled so as -C to be roughly less (in magnitude) than -C EWT(i) = RelTol*abs(Y(i)) + AbsTol if ITOL = 1, or -C EWT(i) = RelTol*abs(Y(i)) + AbsTol(i) if ITOL = 2. -C Thus the local error test passes if, in each component, -C either the absolute error is less than AbsTol (or AbsTol(i)), -C or the relative error is less than RelTol. -C Use RelTol = 0.0 for pure absolute error control, and -C use AbsTol = 0.0 (or AbsTol(i) = 0.0) for pure relative error -C control. Caution.. Actual (global) errors may exceed these -C local tolerances, so choose them conservatively. -C ITASK = 1 for normal computation of output values of Y at t = TOUT. -C ISTATE = Integer flag (input and output). Set ISTATE = 1. -C IOPT = 0 to indicate no optional input used. -C RWORK = Real work array of length at least.. -C 20 + 16*NEQ for MF = 10, -C 22 + 9*NEQ + 2*NEQ**2 for MF = 21 or 22, -C 22 + 11*NEQ + (3*ML + 2*MU)*NEQ for MF = 24 or 25. -C LRW = Declared length of RWORK (in user's DIMENSION statement). -C IWORK = Integer work array of length at least.. -C 30 for MF = 10, -C 30 + NEQ for MF = 21, 22, 24, or 25. -C If MF = 24 or 25, input in IWORK(1),IWORK(2) the lower -C and upper half-bandwidths ML,MU. -C LIW = Declared length of IWORK (in user's DIMENSION). -C JAC = Name of subroutine for Jacobian matrix (MF = 21 or 24). -C If used, this name must be declared external in calling -C program. If not used, pass a dummy name. -C MF = Method flag. Standard values are.. -C 10 for nonstiff (Adams) method, no Jacobian used. -C 21 for stiff (BDF) method, user-supplied full Jacobian. -C 22 for stiff method, internally generated full Jacobian. -C 24 for stiff method, user-supplied banded Jacobian. -C 25 for stiff method, internally generated banded Jacobian. -C RPAR,IPAR = user-defined real and integer arrays passed to F and JAC. -C Note that the main program must declare arrays Y, RWORK, IWORK, -C and possibly AbsTol, RPAR, and IPAR. -C -C E. The output from the first CALL (or any call) is.. -C Y = Array of computed values of y(t) vector. -C T = Corresponding value of independent variable (normally TOUT). -C ISTATE = 2 if DVODE was successful, negative otherwise. -C -1 means excess work done on this call. (Perhaps wrong MF.) -C -2 means excess accuracy requested. (Tolerances too small.) -C -3 means illegal input detected. (See printed message.) -C -4 means repeated error test failures. (Check all input.) -C -5 means repeated convergence failures. (Perhaps bad -C Jacobian supplied or wrong choice of MF or tolerances.) -C -6 means error weight became zero during problem. (Solution -C component i vanished, and AbsTol or AbsTol(i) = 0.) -C -C F. To continue the integration after a successful return, simply -C reset TOUT and CALL DVODE again. No other parameters need be reset. -C -C----------------------------------------------------------------------- -C EXAMPLE PROBLEM -C -C The following is a simple example problem, with the coding -C needed for its solution by DVODE. The problem is from chemical -C kinetics, and consists of the following three rate equations.. -C dy1/dt = -.04*y1 + 1.e4*y2*y3 -C dy2/dt = .04*y1 - 1.e4*y2*y3 - 3.e7*y2**2 -C dy3/dt = 3.e7*y2**2 -C on the interval from t = 0.0 to t = 4.e10, with initial conditions -C y1 = 1.0, y2 = y3 = 0. The problem is stiff. -C -C The following coding solves this problem with DVODE, using MF = 21 -C and printing results at t = .4, 4., ..., 4.e10. It uses -C ITOL = 2 and AbsTol much smaller for y2 than y1 or y3 because -C y2 has much smaller values. -C At the end of the run, statistical quantities of interest are -C printed. (See optional output in the full description below.) -C To generate Fortran source code, replace C in column 1 with a blank -C in the coding below. -C -C EXTERNAL FEX, JEX -C KPP_REAL AbsTol, RPAR, RelTol, RWORK, T, TOUT, Y -C DIMENSION Y(3), AbsTol(3), RWORK(67), IWORK(33) -C NEQ = 3 -C Y(1) = 1.0D0 -C Y(2) = 0.0D0 -C Y(3) = 0.0D0 -C T = 0.0D0 -C TOUT = 0.4D0 -C ITOL = 2 -C RelTol = 1.D-4 -C AbsTol(1) = 1.D-8 -C AbsTol(2) = 1.D-14 -C AbsTol(3) = 1.D-6 -C ITASK = 1 -C ISTATE = 1 -C IOPT = 0 -C LRW = 67 -C LIW = 33 -C MF = 21 -C DO 40 IOUT = 1,12 -C CALL DVODE(FEX,NEQ,Y,T,TOUT,ITOL,RelTol,AbsTol,ITASK,ISTATE, -C 1 IOPT,RWORK,LRW,IWORK,LIW,JEX,MF,RPAR,IPAR) -C WRITE(6,20)T,Y(1),Y(2),Y(3) -C 20 FORMAT(' At t =',D12.4,' y =',3D14.6) -C IF (ISTATE .LT. 0) GO TO 80 -C 40 TOUT = TOUT*10. -C WRITE(6,60) IWORK(11),IWORK(12),IWORK(13),IWORK(19), -C 1 IWORK(20),IWORK(21),IWORK(22) -C 60 FORMAT(/' No. steps =',I4,' No. f-s =',I4, -C 1 ' No. J-s =',I4,' No. LU-s =',I4/ -C 2 ' No. nonlinear iterations =',I4/ -C 3 ' No. nonlinear convergence failures =',I4/ -C 4 ' No. error test failures =',I4/) -C STOP -C 80 WRITE(6,90)ISTATE -C 90 FORMAT(///' Error halt.. ISTATE =',I3) -C STOP -C END -C -C SUBROUTINE FEX (NEQ, T, Y, YDOT, RPAR, IPAR) -C KPP_REAL RPAR, T, Y, YDOT -C DIMENSION Y(NEQ), YDOT(NEQ) -C YDOT(1) = -.04D0*Y(1) + 1.D4*Y(2)*Y(3) -C YDOT(3) = 3.D7*Y(2)*Y(2) -C YDOT(2) = -YDOT(1) - YDOT(3) -C RETURN -C END -C -C SUBROUTINE JEX (NEQ, T, Y, ML, MU, PD, NRPD, RPAR, IPAR) -C KPP_REAL PD, RPAR, T, Y -C DIMENSION Y(NEQ), PD(NRPD,NEQ) -C PD(1,1) = -.04D0 -C PD(1,2) = 1.D4*Y(3) -C PD(1,3) = 1.D4*Y(2) -C PD(2,1) = .04D0 -C PD(2,3) = -PD(1,3) -C PD(3,2) = 6.D7*Y(2) -C PD(2,2) = -PD(1,2) - PD(3,2) -C RETURN -C END -C -C The following output was obtained from the above program on a -C Cray-1 computer with the CFT compiler. -C -C At t = 4.0000e-01 y = 9.851680e-01 3.386314e-05 1.479817e-02 -C At t = 4.0000e+00 y = 9.055255e-01 2.240539e-05 9.445214e-02 -C At t = 4.0000e+01 y = 7.158108e-01 9.184883e-06 2.841800e-01 -C At t = 4.0000e+02 y = 4.505032e-01 3.222940e-06 5.494936e-01 -C At t = 4.0000e+03 y = 1.832053e-01 8.942690e-07 8.167938e-01 -C At t = 4.0000e+04 y = 3.898560e-02 1.621875e-07 9.610142e-01 -C At t = 4.0000e+05 y = 4.935882e-03 1.984013e-08 9.950641e-01 -C At t = 4.0000e+06 y = 5.166183e-04 2.067528e-09 9.994834e-01 -C At t = 4.0000e+07 y = 5.201214e-05 2.080593e-10 9.999480e-01 -C At t = 4.0000e+08 y = 5.213149e-06 2.085271e-11 9.999948e-01 -C At t = 4.0000e+09 y = 5.183495e-07 2.073399e-12 9.999995e-01 -C At t = 4.0000e+10 y = 5.450996e-08 2.180399e-13 9.999999e-01 -C -C No. steps = 595 No. f-s = 832 No. J-s = 13 No. LU-s = 112 -C No. nonlinear iterations = 831 -C No. nonlinear convergence failures = 0 -C No. error test failures = 22 -C----------------------------------------------------------------------- -C Full description of user interface to DVODE. -C -C The user interface to DVODE consists of the following parts. -C -C i. The CALL sequence to subroutine DVODE, which is a driver -C routine for the solver. This includes descriptions of both -C the CALL sequence arguments and of user-supplied routines. -C Following these descriptions is -C * a description of optional input available through the -C CALL sequence, -C * a description of optional output (in the work arrays), and -C * instructions for interrupting and restarting a solution. -C -C ii. Descriptions of other routines in the DVODE package that may be -C (optionally) called by the user. These provide the ability to -C alter error message handling, save and restore the internal -C COMMON, and obtain specified derivatives of the solution y(t). -C -C iii. Descriptions of COMMON blocks to be declared in overlay -C or similar environments. -C -C iv. Description of two routines in the DVODE package, either of -C which the user may replace with his own version, if desired. -C these relate to the measurement of errors. -C -C----------------------------------------------------------------------- -C Part i. Call Sequence. -C -C The CALL sequence parameters used for input only are -C F, NEQ, TOUT, ITOL, RelTol, AbsTol, ITASK, IOPT, LRW, LIW, JAC, MF, -C and those used for both input and output are -C Y, T, ISTATE. -C The work arrays RWORK and IWORK are also used for conditional and -C optional input and optional output. (The term output here refers -C to the return from subroutine DVODE to the user's calling program.) -C -C The legality of input parameters will be thoroughly checked on the -C initial CALL for the problem, but not checked thereafter unless a -C change in input parameters is flagged by ISTATE = 3 in the input. -C -C The descriptions of the CALL arguments are as follows. -C -C F = The name of the user-supplied subroutine defining the -C ODE system. The system must be put in the first-order -C form dy/dt = f(t,y), where f is a vector-valued function -C of the scalar t and the vector y. Subroutine F is to -C compute the function f. It is to have the form -C SUBROUTINE F (NEQ, T, Y, YDOT, RPAR, IPAR) -C KPP_REAL T, Y, YDOT, RPAR -C DIMENSION Y(NEQ), YDOT(NEQ) -C where NEQ, T, and Y are input, and the array YDOT = f(t,y) -C is output. Y and YDOT are arrays of length NEQ. -C (In the DIMENSION statement above, NEQ can be replaced by -C * to make Y and YDOT assumed size arrays.) -C Subroutine F should not alter Y(1),...,Y(NEQ). -C F must be declared EXTERNAL in the calling program. -C -C Subroutine F may access user-defined real and integer -C work arrays RPAR and IPAR, which are to be dimensioned -C in the main program. -C -C If quantities computed in the F routine are needed -C externally to DVODE, an extra CALL to F should be made -C for this purpose, for consistent and accurate results. -C If only the derivative dy/dt is needed, use DVINDY instead. -C -C NEQ = The size of the ODE system (number of first order -C ordinary differential equations). Used only for input. -C NEQ may not be increased during the problem, but -C can be decreased (with ISTATE = 3 in the input). -C -C Y = A real array for the vector of dependent variables, of -C length NEQ or more. Used for both input and output on the -C first CALL (ISTATE = 1), and only for output on other calls. -C On the first call, Y must contain the vector of initial -C values. In the output, Y contains the computed solution -C evaluated at T. If desired, the Y array may be used -C for other purposes between calls to the solver. -C -C This array is passed as the Y argument in all calls to -C F and JAC. -C -C T = The independent variable. In the input, T is used only on -C the first call, as the initial point of the integration. -C In the output, after each call, T is the value at which a -C computed solution Y is evaluated (usually the same as TOUT). -C On an error return, T is the farthest point reached. -C -C TOUT = The next value of t at which a computed solution is desired. -C Used only for input. -C -C When starting the problem (ISTATE = 1), TOUT may be equal -C to T for one call, then should .ne. T for the next call. -C For the initial T, an input value of TOUT .ne. T is used -C in order to determine the direction of the integration -C (i.e. the algebraic sign of the step sizes) and the rough -C scale of the problem. Integration in either direction -C (forward or backward in t) is permitted. -C -C If ITASK = 2 or 5 (one-step modes), TOUT is ignored after -C the first CALL (i.e. the first CALL with TOUT .ne. T). -C Otherwise, TOUT is required on every call. -C -C If ITASK = 1, 3, or 4, the values of TOUT need not be -C monotone, but a value of TOUT which backs up is limited -C to the current internal t interval, whose endpoints are -C TCUR - HU and TCUR. (See optional output, below, for -C TCUR and HU.) -C -C ITOL = An indicator for the type of error control. See -C description below under AbsTol. Used only for input. -C -C RelTol = A relative error tolerance parameter, either a scalar or -C an array of length NEQ. See description below under AbsTol. -C Input only. -C -C AbsTol = An absolute error tolerance parameter, either a scalar or -C an array of length NEQ. Input only. -C -C The input parameters ITOL, RelTol, and AbsTol determine -C the error control performed by the solver. The solver will -C control the vector e = (e(i)) of estimated local errors -C in Y, according to an inequality of the form -C rms-norm of ( e(i)/EWT(i) ) .le. 1, -C where EWT(i) = RelTol(i)*abs(Y(i)) + AbsTol(i), -C and the rms-norm (root-mean-square norm) here is -C rms-norm(v) = sqrt(sum v(i)**2 / NEQ). Here EWT = (EWT(i)) -C is a vector of weights which must always be positive, and -C the values of RelTol and AbsTol should all be non-negative. -C The following table gives the types (scalar/array) of -C RelTol and AbsTol, and the corresponding form of EWT(i). -C -C ITOL RelTol AbsTol EWT(i) -C 1 scalar scalar RelTol*ABS(Y(i)) + AbsTol -C 2 scalar array RelTol*ABS(Y(i)) + AbsTol(i) -C 3 array scalar RelTol(i)*ABS(Y(i)) + AbsTol -C 4 array array RelTol(i)*ABS(Y(i)) + AbsTol(i) -C -C When either of these parameters is a scalar, it need not -C be dimensioned in the user's calling program. -C -C If none of the above choices (with ITOL, RelTol, and AbsTol -C fixed throughout the problem) is suitable, more general -C error controls can be obtained by substituting -C user-supplied routines for the setting of EWT and/or for -C the norm calculation. See Part iv below. -C -C If global errors are to be estimated by making a repeated -C run on the same problem with smaller tolerances, then all -C components of RelTol and AbsTol (i.e. of EWT) should be scaled -C down uniformly. -C -C ITASK = An index specifying the task to be performed. -C Input only. ITASK has the following values and meanings. -C 1 means normal computation of output values of y(t) at -C t = TOUT (by overshooting and interpolating). -C 2 means take one step only and return. -C 3 means stop at the first internal mesh point at or -C beyond t = TOUT and return. -C 4 means normal computation of output values of y(t) at -C t = TOUT but without overshooting t = TCRIT. -C TCRIT must be input as RWORK(1). TCRIT may be equal to -C or beyond TOUT, but not behind it in the direction of -C integration. This option is useful if the problem -C has a singularity at or beyond t = TCRIT. -C 5 means take one step, without passing TCRIT, and return. -C TCRIT must be input as RWORK(1). -C -C Note.. If ITASK = 4 or 5 and the solver reaches TCRIT -C (within roundoff), it will return T = TCRIT (exactly) to -C indicate this (unless ITASK = 4 and TOUT comes before TCRIT, -C in which case answers at T = TOUT are returned first). -C -C ISTATE = an index used for input and output to specify the -C the state of the calculation. -C -C In the input, the values of ISTATE are as follows. -C 1 means this is the first CALL for the problem -C (initializations will be done). See note below. -C 2 means this is not the first call, and the calculation -C is to continue normally, with no change in any input -C parameters except possibly TOUT and ITASK. -C (If ITOL, RelTol, and/or AbsTol are changed between calls -C with ISTATE = 2, the new values will be used but not -C tested for legality.) -C 3 means this is not the first call, and the -C calculation is to continue normally, but with -C a change in input parameters other than -C TOUT and ITASK. Changes are allowed in -C NEQ, ITOL, RelTol, AbsTol, IOPT, LRW, LIW, MF, ML, MU, -C and any of the optional input except H0. -C (See IWORK description for ML and MU.) -C Note.. A preliminary CALL with TOUT = T is not counted -C as a first CALL here, as no initialization or checking of -C input is done. (Such a CALL is sometimes useful to include -C the initial conditions in the output.) -C Thus the first CALL for which TOUT .ne. T requires -C ISTATE = 1 in the input. -C -C In the output, ISTATE has the following values and meanings. -C 1 means nothing was done, as TOUT was equal to T with -C ISTATE = 1 in the input. -C 2 means the integration was performed successfully. -C -1 means an excessive amount of work (more than MXSTEP -C steps) was done on this call, before completing the -C requested task, but the integration was otherwise -C successful as far as T. (MXSTEP is an optional input -C and is normally 500.) To continue, the user may -C simply reset ISTATE to a value .gt. 1 and CALL again. -C (The excess work step counter will be reset to 0.) -C In addition, the user may increase MXSTEP to avoid -C this error return. (See optional input below.) -C -2 means too much accuracy was requested for the precision -C of the machine being used. This was detected before -C completing the requested task, but the integration -C was successful as far as T. To continue, the tolerance -C parameters must be reset, and ISTATE must be set -C to 3. The optional output TOLSF may be used for this -C purpose. (Note.. If this condition is detected before -C taking any steps, then an illegal input return -C (ISTATE = -3) occurs instead.) -C -3 means illegal input was detected, before taking any -C integration steps. See written message for details. -C Note.. If the solver detects an infinite loop of calls -C to the solver with illegal input, it will cause -C the run to stop. -C -4 means there were repeated error test failures on -C one attempted step, before completing the requested -C task, but the integration was successful as far as T. -C The problem may have a singularity, or the input -C may be inappropriate. -C -5 means there were repeated convergence test failures on -C one attempted step, before completing the requested -C task, but the integration was successful as far as T. -C This may be caused by an inaccurate Jacobian matrix, -C if one is being used. -C -6 means EWT(i) became zero for some i during the -C integration. Pure relative error control (AbsTol(i)=0.0) -C was requested on a variable which has now vanished. -C The integration was successful as far as T. -C -C Note.. Since the normal output value of ISTATE is 2, -C it does not need to be reset for normal continuation. -C Also, since a negative input value of ISTATE will be -C regarded as illegal, a negative output value requires the -C user to change it, and possibly other input, before -C calling the solver again. -C -C IOPT = An integer flag to specify whether or not any optional -C input is being used on this call. Input only. -C The optional input is listed separately below. -C IOPT = 0 means no optional input is being used. -C Default values will be used in all cases. -C IOPT = 1 means optional input is being used. -C -C RWORK = A real working array (KPP_REAL). -C The length of RWORK must be at least -C 20 + NYH*(MAXORD + 1) + 3*NEQ + LWM where -C NYH = the initial value of NEQ, -C MAXORD = 12 (if METH = 1) or 5 (if METH = 2) (unless a -C smaller value is given as an optional input), -C LWM = length of work space for matrix-related data.. -C LWM = 0 if MITER = 0, -C LWM = 2*NEQ**2 + 2 if MITER = 1 or 2, and MF.gt.0, -C LWM = NEQ**2 + 2 if MITER = 1 or 2, and MF.lt.0, -C LWM = NEQ + 2 if MITER = 3, -C LWM = (3*ML+2*MU+2)*NEQ + 2 if MITER = 4 or 5, and MF.gt.0, -C LWM = (2*ML+MU+1)*NEQ + 2 if MITER = 4 or 5, and MF.lt.0. -C (See the MF description for METH and MITER.) -C Thus if MAXORD has its default value and NEQ is constant, -C this length is.. -C 20 + 16*NEQ for MF = 10, -C 22 + 16*NEQ + 2*NEQ**2 for MF = 11 or 12, -C 22 + 16*NEQ + NEQ**2 for MF = -11 or -12, -C 22 + 17*NEQ for MF = 13, -C 22 + 18*NEQ + (3*ML+2*MU)*NEQ for MF = 14 or 15, -C 22 + 17*NEQ + (2*ML+MU)*NEQ for MF = -14 or -15, -C 20 + 9*NEQ for MF = 20, -C 22 + 9*NEQ + 2*NEQ**2 for MF = 21 or 22, -C 22 + 9*NEQ + NEQ**2 for MF = -21 or -22, -C 22 + 10*NEQ for MF = 23, -C 22 + 11*NEQ + (3*ML+2*MU)*NEQ for MF = 24 or 25. -C 22 + 10*NEQ + (2*ML+MU)*NEQ for MF = -24 or -25. -C The first 20 words of RWORK are reserved for conditional -C and optional input and optional output. -C -C The following word in RWORK is a conditional input.. -C RWORK(1) = TCRIT = critical value of t which the solver -C is not to overshoot. Required if ITASK is -C 4 or 5, and ignored otherwise. (See ITASK.) -C -C LRW = The length of the array RWORK, as declared by the user. -C (This will be checked by the solver.) -C -C IWORK = An integer work array. The length of IWORK must be at least -C 30 if MITER = 0 or 3 (MF = 10, 13, 20, 23), or -C 30 + NEQ otherwise (abs(MF) = 11,12,14,15,21,22,24,25). -C The first 30 words of IWORK are reserved for conditional and -C optional input and optional output. -C -C The following 2 words in IWORK are conditional input.. -C IWORK(1) = ML These are the lower and upper -C IWORK(2) = MU half-bandwidths, respectively, of the -C banded Jacobian, excluding the main diagonal. -C The band is defined by the matrix locations -C (i,j) with i-ML .le. j .le. i+MU. ML and MU -C must satisfy 0 .le. ML,MU .le. NEQ-1. -C These are required if MITER is 4 or 5, and -C ignored otherwise. ML and MU may in fact be -C the band parameters for a matrix to which -C df/dy is only approximately equal. -C -C LIW = the length of the array IWORK, as declared by the user. -C (This will be checked by the solver.) -C -C Note.. The work arrays must not be altered between calls to DVODE -C for the same problem, except possibly for the conditional and -C optional input, and except for the last 3*NEQ words of RWORK. -C The latter space is used for internal scratch space, and so is -C available for use by the user outside DVODE between calls, if -C desired (but not for use by F or JAC). -C -C JAC = The name of the user-supplied routine (MITER = 1 or 4) to -C compute the Jacobian matrix, df/dy, as a function of -C the scalar t and the vector y. It is to have the form -C SUBROUTINE JAC (NEQ, T, Y, ML, MU, PD, NROWPD, -C RPAR, IPAR) -C KPP_REAL T, Y, PD, RPAR -C DIMENSION Y(NEQ), PD(NROWPD, NEQ) -C where NEQ, T, Y, ML, MU, and NROWPD are input and the array -C PD is to be loaded with partial derivatives (elements of the -C Jacobian matrix) in the output. PD must be given a first -C dimension of NROWPD. T and Y have the same meaning as in -C Subroutine F. (In the DIMENSION statement above, NEQ can -C be replaced by * to make Y and PD assumed size arrays.) -C In the full matrix case (MITER = 1), ML and MU are -C ignored, and the Jacobian is to be loaded into PD in -C columnwise manner, with df(i)/dy(j) loaded into PD(i,j). -C In the band matrix case (MITER = 4), the elements -C within the band are to be loaded into PD in columnwise -C manner, with diagonal lines of df/dy loaded into the rows -C of PD. Thus df(i)/dy(j) is to be loaded into PD(i-j+MU+1,j). -C ML and MU are the half-bandwidth parameters. (See IWORK). -C The locations in PD in the two triangular areas which -C correspond to nonexistent matrix elements can be ignored -C or loaded arbitrarily, as they are overwritten by DVODE. -C JAC need not provide df/dy exactly. A crude -C approximation (possibly with a smaller bandwidth) will do. -C In either case, PD is preset to zero by the solver, -C so that only the nonzero elements need be loaded by JAC. -C Each CALL to JAC is preceded by a CALL to F with the same -C arguments NEQ, T, and Y. Thus to gain some efficiency, -C intermediate quantities shared by both calculations may be -C saved in a user COMMON block by F and not recomputed by JAC, -C if desired. Also, JAC may alter the Y array, if desired. -C JAC must be declared external in the calling program. -C Subroutine JAC may access user-defined real and integer -C work arrays, RPAR and IPAR, whose dimensions are set by the -C user in the main program. -C -C MF = The method flag. Used only for input. The legal values of -C MF are 10, 11, 12, 13, 14, 15, 20, 21, 22, 23, 24, 25, -C -11, -12, -14, -15, -21, -22, -24, -25. -C MF is a signed two-digit integer, MF = JSV*(10*METH + MITER). -C JSV = SIGN(MF) indicates the Jacobian-saving strategy.. -C JSV = 1 means a copy of the Jacobian is saved for reuse -C in the corrector iteration algorithm. -C JSV = -1 means a copy of the Jacobian is not saved -C (valid only for MITER = 1, 2, 4, or 5). -C METH indicates the basic linear multistep method.. -C METH = 1 means the implicit Adams method. -C METH = 2 means the method based on backward -C differentiation formulas (BDF-s). -C MITER indicates the corrector iteration method.. -C MITER = 0 means functional iteration (no Jacobian matrix -C is involved). -C MITER = 1 means chord iteration with a user-supplied -C full (NEQ by NEQ) Jacobian. -C MITER = 2 means chord iteration with an internally -C generated (difference quotient) full Jacobian -C (using NEQ extra calls to F per df/dy value). -C MITER = 3 means chord iteration with an internally -C generated diagonal Jacobian approximation -C (using 1 extra CALL to F per df/dy evaluation). -C MITER = 4 means chord iteration with a user-supplied -C banded Jacobian. -C MITER = 5 means chord iteration with an internally -C generated banded Jacobian (using ML+MU+1 extra -C calls to F per df/dy evaluation). -C If MITER = 1 or 4, the user must supply a subroutine JAC -C (the name is arbitrary) as described above under JAC. -C For other values of MITER, a dummy argument can be used. -C -C RPAR User-specified array used to communicate real parameters -C to user-supplied subroutines. If RPAR is a vector, then -C it must be dimensioned in the user's main program. If it -C is unused or it is a scalar, then it need not be -C dimensioned. -C -C IPAR User-specified array used to communicate integer parameter -C to user-supplied subroutines. The comments on dimensioning -C RPAR apply to IPAR. -C----------------------------------------------------------------------- -C Optional Input. -C -C The following is a list of the optional input provided for in the -C CALL sequence. (See also Part ii.) For each such input variable, -C this table lists its name as used in this documentation, its -C location in the CALL sequence, its meaning, and the default value. -C The use of any of this input requires IOPT = 1, and in that -C case all of this input is examined. A value of zero for any -C of these optional input variables will cause the default value to be -C used. Thus to use a subset of the optional input, simply preload -C locations 5 to 10 in RWORK and IWORK to 0.0 and 0 respectively, and -C then set those of interest to nonzero values. -C -C NAME LOCATION MEANING AND DEFAULT VALUE -C -C H0 RWORK(5) The step size to be attempted on the first step. -C The default value is determined by the solver. -C -C HMAX RWORK(6) The maximum absolute step size allowed. -C The default value is infinite. -C -C HMIN RWORK(7) The minimum absolute step size allowed. -C The default value is 0. (This lower bound is not -C enforced on the final step before reaching TCRIT -C when ITASK = 4 or 5.) -C -C MAXORD IWORK(5) The maximum order to be allowed. The default -C value is 12 if METH = 1, and 5 if METH = 2. -C If MAXORD exceeds the default value, it will -C be reduced to the default value. -C If MAXORD is changed during the problem, it may -C cause the current order to be reduced. -C -C MXSTEP IWORK(6) Maximum number of (internally defined) steps -C allowed during one CALL to the solver. -C The default value is 500. -C -C MXHNIL IWORK(7) Maximum number of messages printed (per problem) -C warning that T + H = T on a step (H = step size). -C This must be positive to result in a non-default -C value. The default value is 10. -C -C----------------------------------------------------------------------- -C Optional Output. -C -C As optional additional output from DVODE, the variables listed -C below are quantities related to the performance of DVODE -C which are available to the user. These are communicated by way of -C the work arrays, but also have internal mnemonic names as shown. -C Except where stated otherwise, all of this output is defined -C on any successful return from DVODE, and on any return with -C ISTATE = -1, -2, -4, -5, or -6. On an illegal input return -C (ISTATE = -3), they will be unchanged from their existing values -C (if any), except possibly for TOLSF, LENRW, and LENIW. -C On any error return, output relevant to the error will be defined, -C as noted below. -C -C NAME LOCATION MEANING -C -C HU RWORK(11) The step size in t last used (successfully). -C -C HCUR RWORK(12) The step size to be attempted on the next step. -C -C TCUR RWORK(13) The current value of the independent variable -C which the solver has actually reached, i.e. the -C current internal mesh point in t. In the output, -C TCUR will always be at least as far from the -C initial value of t as the current argument T, -C but may be farther (if interpolation was done). -C -C TOLSF RWORK(14) A tolerance scale factor, greater than 1.0, -C computed when a request for too much accuracy was -C detected (ISTATE = -3 if detected at the start of -C the problem, ISTATE = -2 otherwise). If ITOL is -C left unaltered but RelTol and AbsTol are uniformly -C scaled up by a factor of TOLSF for the next call, -C then the solver is deemed likely to succeed. -C (The user may also ignore TOLSF and alter the -C tolerance parameters in any other way appropriate.) -C -C NST IWORK(11) The number of steps taken for the problem so far. -C -C NFE IWORK(12) The number of f evaluations for the problem so far. -C -C NJE IWORK(13) The number of Jacobian evaluations so far. -C -C NQU IWORK(14) The method order last used (successfully). -C -C NQCUR IWORK(15) The order to be attempted on the next step. -C -C IMXER IWORK(16) The index of the component of largest magnitude in -C the weighted local error vector ( e(i)/EWT(i) ), -C on an error return with ISTATE = -4 or -5. -C -C LENRW IWORK(17) The length of RWORK actually required. -C This is defined on normal returns and on an illegal -C input return for insufficient storage. -C -C LENIW IWORK(18) The length of IWORK actually required. -C This is defined on normal returns and on an illegal -C input return for insufficient storage. -C -C NLU IWORK(19) The number of matrix LU decompositions so far. -C -C NNI IWORK(20) The number of nonlinear (Newton) iterations so far. -C -C NCFN IWORK(21) The number of convergence failures of the nonlinear -C solver so far. -C -C NETF IWORK(22) The number of error test failures of the integrator -C so far. -C -C The following two arrays are segments of the RWORK array which -C may also be of interest to the user as optional output. -C For each array, the table below gives its internal name, -C its base address in RWORK, and its description. -C -C NAME BASE ADDRESS DESCRIPTION -C -C YH 21 The Nordsieck history array, of size NYH by -C (NQCUR + 1), where NYH is the initial value -C of NEQ. For j = 0,1,...,NQCUR, column j+1 -C of YH contains HCUR**j/factorial(j) times -C the j-th derivative of the interpolating -C polynomial currently representing the -C solution, evaluated at t = TCUR. -C -C ACOR LENRW-NEQ+1 Array of size NEQ used for the accumulated -C corrections on each step, scaled in the output -C to represent the estimated local error in Y -C on the last step. This is the vector e in -C the description of the error control. It is -C defined only on a successful return from DVODE. -C -C----------------------------------------------------------------------- -C Interrupting and Restarting -C -C If the integration of a given problem by DVODE is to be -C interrupted and then later continued, such as when restarting -C an interrupted run or alternating between two or more ODE problems, -C the user should save, following the return from the last DVODE call -C prior to the interruption, the contents of the CALL sequence -C variables and internal COMMON blocks, and later restore these -C values before the next DVODE CALL for that problem. To save -C and restore the COMMON blocks, use subroutine DVSRCO, as -C described below in part ii. -C -C In addition, if non-default values for either LUN or MFLAG are -C desired, an extra CALL to XSETUN and/or XSETF should be made just -C before continuing the integration. See Part ii below for details. -C -C----------------------------------------------------------------------- -C Part ii. Other Routines Callable. -C -C The following are optional calls which the user may make to -C gain additional capabilities in conjunction with DVODE. -C (The routines XSETUN and XSETF are designed to conform to the -C SLATEC error handling package.) -C -C FORM OF CALL FUNCTION -C CALL XSETUN(LUN) Set the logical unit number, LUN, for -C output of messages from DVODE, if -C the default is not desired. -C The default value of LUN is 6. -C -C CALL XSETF(MFLAG) Set a flag to control the printing of -C messages by DVODE. -C MFLAG = 0 means do not print. (Danger.. -C This risks losing valuable information.) -C MFLAG = 1 means print (the default). -C -C Either of the above calls may be made at -C any time and will take effect immediately. -C -C CALL DVSRCO(RSAV,ISAV,JOB) Saves and restores the contents of -C the internal COMMON blocks used by -C DVODE. (See Part iii below.) -C RSAV must be a real array of length 49 -C or more, and ISAV must be an integer -C array of length 40 or more. -C JOB=1 means save COMMON into RSAV/ISAV. -C JOB=2 means restore COMMON from RSAV/ISAV. -C DVSRCO is useful if one is -C interrupting a run and restarting -C later, or alternating between two or -C more problems solved with DVODE. -C -C CALL DVINDY(,,,,,) Provide derivatives of y, of various -C (See below.) orders, at a specified point T, if -C desired. It may be called only after -C a successful return from DVODE. -C -C The detailed instructions for using DVINDY are as follows. -C The form of the CALL is.. -C -C CALL DVINDY (T, K, RWORK(21), NYH, DKY, IFLAG) -C -C The input parameters are.. -C -C T = Value of independent variable where answers are desired -C (normally the same as the T last returned by DVODE). -C For valid results, T must lie between TCUR - HU and TCUR. -C (See optional output for TCUR and HU.) -C K = Integer order of the derivative desired. K must satisfy -C 0 .le. K .le. NQCUR, where NQCUR is the current order -C (see optional output). The capability corresponding -C to K = 0, i.e. computing y(T), is already provided -C by DVODE directly. Since NQCUR .ge. 1, the first -C derivative dy/dt is always available with DVINDY. -C RWORK(21) = The base address of the history array YH. -C NYH = Column length of YH, equal to the initial value of NEQ. -C -C The output parameters are.. -C -C DKY = A real array of length NEQ containing the computed value -C of the K-th derivative of y(t). -C IFLAG = Integer flag, returned as 0 if K and T were legal, -C -1 if K was illegal, and -2 if T was illegal. -C On an error return, a message is also written. -C----------------------------------------------------------------------- -C Part iii. COMMON Blocks. -C If DVODE is to be used in an overlay situation, the user -C must declare, in the primary overlay, the variables in.. -C (1) the CALL sequence to DVODE, -C (2) the two internal COMMON blocks -C /DVOD01/ of length 81 (48 KPP_REAL words -C followed by 33 integer words), -C /DVOD02/ of length 9 (1 KPP_REAL word -C followed by 8 integer words), -C -C If DVODE is used on a system in which the contents of internal -C COMMON blocks are not preserved between calls, the user should -C declare the above two COMMON blocks in his main program to insure -C that their contents are preserved. -C -C----------------------------------------------------------------------- -C Part iv. Optionally Replaceable Solver Routines. -C -C Below are descriptions of two routines in the DVODE package which -C relate to the measurement of errors. Either routine can be -C replaced by a user-supplied version, if desired. However, since such -C a replacement may have a major impact on performance, it should be -C done only when absolutely necessary, and only with great caution. -C (Note.. The means by which the package version of a routine is -C superseded by the user's version may be system-dependent.) -C -C (a) DEWSET. -C The following subroutine is called just before each internal -C integration step, and sets the array of error weights, EWT, as -C described under ITOL/RelTol/AbsTol above.. -C SUBROUTINE DEWSET (NEQ, ITOL, RelTol, AbsTol, YCUR, EWT) -C where NEQ, ITOL, RelTol, and AbsTol are as in the DVODE CALL sequence, -C YCUR contains the current dependent variable vector, and -C EWT is the array of weights set by DEWSET. -C -C If the user supplies this subroutine, it must return in EWT(i) -C (i = 1,...,NEQ) a positive quantity suitable for comparison with -C errors in Y(i). The EWT array returned by DEWSET is passed to the -C DVNORM routine (See below.), and also used by DVODE in the computation -C of the optional output IMXER, the diagonal Jacobian approximation, -C and the increments for difference quotient Jacobians. -C -C In the user-supplied version of DEWSET, it may be desirable to use -C the current values of derivatives of y. Derivatives up to order NQ -C are available from the history array YH, described above under -C Optional Output. In DEWSET, YH is identical to the YCUR array, -C extended to NQ + 1 columns with a column length of NYH and scale -C factors of h**j/factorial(j). On the first CALL for the problem, -C given by NST = 0, NQ is 1 and H is temporarily set to 1.0. -C NYH is the initial value of NEQ. The quantities NQ, H, and NST -C can be obtained by including in DEWSET the statements.. -C KPP_REAL RVOD, H, HU -C COMMON /DVOD01/ RVOD(48), IVOD(33) -C COMMON /DVOD02/ HU, NCFN, NETF, NFE, NJE, NLU, NNI, NQU, NST -C NQ = IVOD(28) -C H = RVOD(21) -C Thus, for example, the current value of dy/dt can be obtained as -C YCUR(NYH+i)/H (i=1,...,NEQ) (and the division by H is -C unnecessary when NST = 0). -C -C (b) DVNORM. -C The following is a real function routine which computes the weighted -C root-mean-square norm of a vector v.. -C D = DVNORM (N, V, W) -C where.. -C N = the length of the vector, -C V = real array of length N containing the vector, -C W = real array of length N containing weights, -C D = sqrt( (1/N) * sum(V(i)*W(i))**2 ). -C DVNORM is called with N = NEQ and with W(i) = 1.0/EWT(i), where -C EWT is as set by subroutine DEWSET. -C -C If the user supplies this function, it should return a non-negative -C value of DVNORM suitable for use in the error control in DVODE. -C None of the arguments should be altered by DVNORM. -C For example, a user-supplied DVNORM routine might.. -C -substitute a max-norm of (V(i)*W(i)) for the rms-norm, or -C -ignore some components of V in the norm, with the effect of -C suppressing the error control on those components of Y. -C----------------------------------------------------------------------- -C Other Routines in the DVODE Package. -C -C In addition to subroutine DVODE, the DVODE package includes the -C following subroutines and function routines.. -C DVHIN computes an approximate step size for the initial step. -C DVINDY computes an interpolated value of the y vector at t = TOUT. -C DVSTEP is the core integrator, which does one step of the -C integration and the associated error control. -C DVSET sets all method coefficients and test constants. -C DVNLSD solves the underlying nonlinear system -- the corrector. -C DVJAC computes and preprocesses the Jacobian matrix J = df/dy -C and the Newton iteration matrix P = I - (h/l1)*J. -C DVSOL manages solution of linear system in chord iteration. -C DVJUST adjusts the history array on a change of order. -C DEWSET sets the error weight vector EWT before each step. -C DVNORM computes the weighted r.m.s. norm of a vector. -C DVSRCO is a user-callable routines to save and restore -C the contents of the internal COMMON blocks. -C DACOPY is a routine to copy one two-dimensional array to another. -C DGEFA and DGESL are routines from LINPACK for solving full -C systems of linear algebraic equations. -C DGBFA and DGBSL are routines from LINPACK for solving banded -C linear systems. -C DAXPY, DSCAL, and DCOPY are basic linear algebra modules (BLAS). -C D1MACH sets the unit roundoff of the machine. -C XERRWD, XSETUN, XSETF, LUNSAV, and MFLGSV handle the printing of all -C error messages and warnings. XERRWD is machine-dependent. -C Note.. DVNORM, D1MACH, LUNSAV, and MFLGSV are function routines. -C All the others are subroutines. -C -C The intrinsic and external routines used by the DVODE package are.. -C ABS, MAX, MIN, REAL, SIGN, SQRT, and WRITE. -C -C----------------------------------------------------------------------- -C -C Type declarations for labeled COMMON block DVOD01 -------------------- -C - KPP_REAL ACNRM, CCMXJ, CONP, CRATE, DRC, EL, - 1 ETA, ETAMAX, H, HMIN, HMXI, HNEW, HSCAL, PRL1, - 2 RC, RL1, TAU, TQ, TN, UROUND - INTEGER ICF, INIT, IPUP, JCUR, JSTART, JSV, KFLAG, KUTH, - 1 L, LMAX, LYH, LEWT, LACOR, LSAVF, LWM, LIWM, - 2 LOCJS, MAXORD, METH, MITER, MSBJ, MXHNIL, MXSTEP, - 3 N, NEWH, NEWQ, NHNIL, NQ, NQNYH, NQWAIT, NSLJ, - 4 NSLP, NYH -C -C Type declarations for labeled COMMON block DVOD02 -------------------- -C - KPP_REAL HU - INTEGER NCFN, NETF, NFE, NJE, NLU, NNI, NQU, NST -C -C Type declarations for local variables -------------------------------- -C - EXTERNAL DVNLSD, F, JAC - LOGICAL IHIT - KPP_REAL AbsTolI, BIG, EWTI, FOUR, H0, HMAX, HMX, HUN, ONE, - 1 PT2, RH, RelTolI, SIZE, TCRIT, TNEXT, TOLSF, TP, TWO, ZERO - INTEGER I, IER, IFLAG, IMXER, JCO, KGO, LENIW, LENJ, LENP, LENRW, - 1 LENWM, LF0, MBAND, ML, MORD, MU, MXHNL0, MXSTP0, NITER, NSLAST - CHARACTER*80 MSG -C -C Type declaration for function subroutines called --------------------- -C - KPP_REAL D1MACH, DVNORM -C - DIMENSION MORD(2) -C----------------------------------------------------------------------- -C The following Fortran-77 declaration is to cause the values of the -C listed (local) variables to be saved between calls to DVODE. -C----------------------------------------------------------------------- - SAVE MORD, MXHNL0, MXSTP0 - SAVE ZERO, ONE, TWO, FOUR, PT2, HUN -C----------------------------------------------------------------------- -C The following internal COMMON blocks contain variables which are -C communicated between subroutines in the DVODE package, or which are -C to be saved between calls to DVODE. -C In each block, real variables precede integers. -C The block /DVOD01/ appears in subroutines DVODE, DVINDY, DVSTEP, -C DVSET, DVNLSD, DVJAC, DVSOL, DVJUST and DVSRCO. -C The block /DVOD02/ appears in subroutines DVODE, DVINDY, DVSTEP, -C DVNLSD, DVJAC, and DVSRCO. -C -C The variables stored in the internal COMMON blocks are as follows.. -C -C ACNRM = Weighted r.m.s. norm of accumulated correction vectors. -C CCMXJ = Threshhold on DRC for updating the Jacobian. (See DRC.) -C CONP = The saved value of TQ(5). -C CRATE = Estimated corrector convergence rate constant. -C DRC = Relative change in H*RL1 since last DVJAC call. -C EL = Real array of integration coefficients. See DVSET. -C ETA = Saved tentative ratio of new to old H. -C ETAMAX = Saved maximum value of ETA to be allowed. -C H = The step size. -C HMIN = The minimum absolute value of the step size H to be used. -C HMXI = Inverse of the maximum absolute value of H to be used. -C HMXI = 0.0 is allowed and corresponds to an infinite HMAX. -C HNEW = The step size to be attempted on the next step. -C HSCAL = Stepsize in scaling of YH array. -C PRL1 = The saved value of RL1. -C RC = Ratio of current H*RL1 to value on last DVJAC call. -C RL1 = The reciprocal of the coefficient EL(1). -C TAU = Real vector of past NQ step sizes, length 13. -C TQ = A real vector of length 5 in which DVSET stores constants -C used for the convergence test, the error test, and the -C selection of H at a new order. -C TN = The independent variable, updated on each step taken. -C UROUND = The machine unit roundoff. The smallest positive real number -C such that 1.0 + UROUND .ne. 1.0 -C ICF = Integer flag for convergence failure in DVNLSD.. -C 0 means no failures. -C 1 means convergence failure with out of date Jacobian -C (recoverable error). -C 2 means convergence failure with current Jacobian or -C singular matrix (unrecoverable error). -C INIT = Saved integer flag indicating whether initialization of the -C problem has been done (INIT = 1) or not. -C IPUP = Saved flag to signal updating of Newton matrix. -C JCUR = Output flag from DVJAC showing Jacobian status.. -C JCUR = 0 means J is not current. -C JCUR = 1 means J is current. -C JSTART = Integer flag used as input to DVSTEP.. -C 0 means perform the first step. -C 1 means take a new step continuing from the last. -C -1 means take the next step with a new value of MAXORD, -C HMIN, HMXI, N, METH, MITER, and/or matrix parameters. -C On return, DVSTEP sets JSTART = 1. -C JSV = Integer flag for Jacobian saving, = sign(MF). -C KFLAG = A completion code from DVSTEP with the following meanings.. -C 0 the step was succesful. -C -1 the requested error could not be achieved. -C -2 corrector convergence could not be achieved. -C -3, -4 fatal error in VNLS (can not occur here). -C KUTH = Input flag to DVSTEP showing whether H was reduced by the -C driver. KUTH = 1 if H was reduced, = 0 otherwise. -C L = Integer variable, NQ + 1, current order plus one. -C LMAX = MAXORD + 1 (used for dimensioning). -C LOCJS = A pointer to the saved Jacobian, whose storage starts at -C WM(LOCJS), if JSV = 1. -C LYH, LEWT, LACOR, LSAVF, LWM, LIWM = Saved integer pointers -C to segments of RWORK and IWORK. -C MAXORD = The maximum order of integration method to be allowed. -C METH/MITER = The method flags. See MF. -C MSBJ = The maximum number of steps between J evaluations, = 50. -C MXHNIL = Saved value of optional input MXHNIL. -C MXSTEP = Saved value of optional input MXSTEP. -C N = The number of first-order ODEs, = NEQ. -C NEWH = Saved integer to flag change of H. -C NEWQ = The method order to be used on the next step. -C NHNIL = Saved counter for occurrences of T + H = T. -C NQ = Integer variable, the current integration method order. -C NQNYH = Saved value of NQ*NYH. -C NQWAIT = A counter controlling the frequency of order changes. -C An order change is about to be considered if NQWAIT = 1. -C NSLJ = The number of steps taken as of the last Jacobian update. -C NSLP = Saved value of NST as of last Newton matrix update. -C NYH = Saved value of the initial value of NEQ. -C HU = The step size in t last used. -C NCFN = Number of nonlinear convergence failures so far. -C NETF = The number of error test failures of the integrator so far. -C NFE = The number of f evaluations for the problem so far. -C NJE = The number of Jacobian evaluations so far. -C NLU = The number of matrix LU decompositions so far. -C NNI = Number of nonlinear iterations so far. -C NQU = The method order last used. -C NST = The number of steps taken for the problem so far. -C----------------------------------------------------------------------- - COMMON /DVOD01/ ACNRM, CCMXJ, CONP, CRATE, DRC, EL(13), - 1 ETA, ETAMAX, H, HMIN, HMXI, HNEW, HSCAL, PRL1, - 2 RC, RL1, TAU(13), TQ(5), TN, UROUND, - 3 ICF, INIT, IPUP, JCUR, JSTART, JSV, KFLAG, KUTH, - 4 L, LMAX, LYH, LEWT, LACOR, LSAVF, LWM, LIWM, - 5 LOCJS, MAXORD, METH, MITER, MSBJ, MXHNIL, MXSTEP, - 6 N, NEWH, NEWQ, NHNIL, NQ, NQNYH, NQWAIT, NSLJ, - 7 NSLP, NYH - COMMON /DVOD02/ HU, NCFN, NETF, NFE, NJE, NLU, NNI, NQU, NST -C - - DATA MORD(1) /12/, MORD(2) /5/, MXSTP0 /500/, MXHNL0 /10/ - DATA ZERO /0.0D0/, ONE /1.0D0/, TWO /2.0D0/, FOUR /4.0D0/, - 1 PT2 /0.2D0/, HUN /100.0D0/ -C----------------------------------------------------------------------- -C Block A. -C This code block is executed on every call. -C It tests ISTATE and ITASK for legality and branches appropriately. -C If ISTATE .gt. 1 but the flag INIT shows that initialization has -C not yet been done, an error return occurs. -C If ISTATE = 1 and TOUT = T, return immediately. -C----------------------------------------------------------------------- - IF (ISTATE .LT. 1 .OR. ISTATE .GT. 3) GO TO 601 - IF (ITASK .LT. 1 .OR. ITASK .GT. 5) GO TO 602 - IF (ISTATE .EQ. 1) GO TO 10 - IF (INIT .NE. 1) GO TO 603 - IF (ISTATE .EQ. 2) GO TO 200 - GO TO 20 - 10 INIT = 0 - IF (TOUT .EQ. T) RETURN -C----------------------------------------------------------------------- -C Block B. -C The next code block is executed for the initial CALL (ISTATE = 1), -C or for a continuation CALL with parameter changes (ISTATE = 3). -C It contains checking of all input and various initializations. -C -C First check legality of the non-optional input NEQ, ITOL, IOPT, -C MF, ML, and MU. -C----------------------------------------------------------------------- - 20 IF (NEQ .LE. 0) GO TO 604 - IF (ISTATE .EQ. 1) GO TO 25 - IF (NEQ .GT. N) GO TO 605 - 25 N = NEQ - IF (ITOL .LT. 1 .OR. ITOL .GT. 4) GO TO 606 - IF (IOPT .LT. 0 .OR. IOPT .GT. 1) GO TO 607 - JSV = SIGN(1,MF) - MF = ABS(MF) - METH = MF/10 - MITER = MF - 10*METH - IF (METH .LT. 1 .OR. METH .GT. 2) GO TO 608 - IF (MITER .LT. 0 .OR. MITER .GT. 5) GO TO 608 - IF (MITER .LE. 3) GO TO 30 - ML = IWORK(1) - MU = IWORK(2) - IF (ML .LT. 0 .OR. ML .GE. N) GO TO 609 - IF (MU .LT. 0 .OR. MU .GE. N) GO TO 610 - 30 CONTINUE -C Next process and check the optional input. --------------------------- - IF (IOPT .EQ. 1) GO TO 40 - MAXORD = MORD(METH) - MXSTEP = MXSTP0 - MXHNIL = MXHNL0 - IF (ISTATE .EQ. 1) H0 = ZERO - HMXI = ZERO - HMIN = ZERO - GO TO 60 - 40 MAXORD = IWORK(5) - IF (MAXORD .LT. 0) GO TO 611 - IF (MAXORD .EQ. 0) MAXORD = 100 - MAXORD = MIN(MAXORD,MORD(METH)) - MXSTEP = IWORK(6) - IF (MXSTEP .LT. 0) GO TO 612 - IF (MXSTEP .EQ. 0) MXSTEP = MXSTP0 - MXHNIL = IWORK(7) - IF (MXHNIL .LT. 0) GO TO 613 - IF (MXHNIL .EQ. 0) MXHNIL = MXHNL0 - IF (ISTATE .NE. 1) GO TO 50 - H0 = RWORK(5) - IF ((TOUT - T)*H0 .LT. ZERO) GO TO 614 - 50 HMAX = RWORK(6) - IF (HMAX .LT. ZERO) GO TO 615 - HMXI = ZERO - IF (HMAX .GT. ZERO) HMXI = ONE/HMAX - HMIN = RWORK(7) - IF (HMIN .LT. ZERO) GO TO 616 -C----------------------------------------------------------------------- -C Set work array pointers and check lengths LRW and LIW. -C Pointers to segments of RWORK and IWORK are named by prefixing L to -C the name of the segment. E.g., the segment YH starts at RWORK(LYH). -C Segments of RWORK (in order) are denoted YH, WM, EWT, SAVF, ACOR. -C Within WM, LOCJS is the location of the saved Jacobian (JSV .gt. 0). -C----------------------------------------------------------------------- - 60 LYH = 21 - IF (ISTATE .EQ. 1) NYH = N - LWM = LYH + (MAXORD + 1)*NYH - JCO = MAX(0,JSV) - IF (MITER .EQ. 0) LENWM = 0 - IF (MITER .EQ. 1 .OR. MITER .EQ. 2) THEN - LENWM = 2 + (1 + JCO)*N*N - LOCJS = N*N + 3 - ENDIF - IF (MITER .EQ. 3) LENWM = 2 + N - IF (MITER .EQ. 4 .OR. MITER .EQ. 5) THEN - MBAND = ML + MU + 1 - LENP = (MBAND + ML)*N - LENJ = MBAND*N - LENWM = 2 + LENP + JCO*LENJ - LOCJS = LENP + 3 - ENDIF - LEWT = LWM + LENWM - LSAVF = LEWT + N - LACOR = LSAVF + N - LENRW = LACOR + N - 1 - IWORK(17) = LENRW - LIWM = 1 - LENIW = 30 + N - IF (MITER .EQ. 0 .OR. MITER .EQ. 3) LENIW = 30 - IWORK(18) = LENIW - IF (LENRW .GT. LRW) GO TO 617 - IF (LENIW .GT. LIW) GO TO 618 -C Check RelTol and AbsTol for legality. ------------------------------------ - RelTolI = RelTol(1) - AbsTolI = AbsTol(1) - DO 70 I = 1,N - IF (ITOL .GE. 3) RelTolI = RelTol(I) - IF (ITOL .EQ. 2 .OR. ITOL .EQ. 4) AbsTolI = AbsTol(I) - IF (RelTolI .LT. ZERO) GO TO 619 - IF (AbsTolI .LT. ZERO) GO TO 620 - 70 CONTINUE - IF (ISTATE .EQ. 1) GO TO 100 -C If ISTATE = 3, set flag to signal parameter changes to DVSTEP. ------- - JSTART = -1 - IF (NQ .LE. MAXORD) GO TO 90 -C MAXORD was reduced below NQ. Copy YH(*,MAXORD+2) into SAVF. --------- - CALL DCOPY (N, RWORK(LWM), 1, RWORK(LSAVF), 1) -C Reload WM(1) = RWORK(LWM), since LWM may have changed. --------------- - 90 IF (MITER .GT. 0) RWORK(LWM) = SQRT(UROUND) -C----------------------------------------------------------------------- -C Block C. -C The next block is for the initial CALL only (ISTATE = 1). -C It contains all remaining initializations, the initial CALL to F, -C and the calculation of the initial step size. -C The error weights in EWT are inverted after being loaded. -C----------------------------------------------------------------------- - 100 UROUND = D1MACH(4) - TN = T - IF (ITASK .NE. 4 .AND. ITASK .NE. 5) GO TO 110 - TCRIT = RWORK(1) - IF ((TCRIT - TOUT)*(TOUT - T) .LT. ZERO) GO TO 625 - IF (H0 .NE. ZERO .AND. (T + H0 - TCRIT)*H0 .GT. ZERO) - 1 H0 = TCRIT - T - 110 JSTART = 0 - IF (MITER .GT. 0) RWORK(LWM) = SQRT(UROUND) - CCMXJ = PT2 - MSBJ = 50 - NHNIL = 0 - NST = 0 - NJE = 0 - NNI = 0 - NCFN = 0 - NETF = 0 - NLU = 0 - NSLJ = 0 - NSLAST = 0 - HU = ZERO - NQU = 0 -C Initial CALL to F. (LF0 points to YH(*,2).) ------------------------- - LF0 = LYH + NYH - CALL F (N, T, Y, RWORK(LF0)) - NFE = 1 -C Load the initial value vector in YH. --------------------------------- - CALL DCOPY (N, Y, 1, RWORK(LYH), 1) -C Load and invert the EWT array. (H is temporarily set to 1.0.) ------- - NQ = 1 - H = ONE - CALL DEWSET (N, ITOL, RelTol, AbsTol, RWORK(LYH), RWORK(LEWT)) - DO 120 I = 1,N - IF (RWORK(I+LEWT-1) .LE. ZERO) GO TO 621 - 120 RWORK(I+LEWT-1) = ONE/RWORK(I+LEWT-1) - IF (H0 .NE. ZERO) GO TO 180 -C Call DVHIN to set initial step size H0 to be attempted. -------------- - CALL DVHIN (N, T, RWORK(LYH), RWORK(LF0), F, RPAR, IPAR, TOUT, - 1 UROUND, RWORK(LEWT), ITOL, AbsTol, Y, RWORK(LACOR), H0, - 2 NITER, IER) - NFE = NFE + NITER - IF (IER .NE. 0) GO TO 622 -C Adjust H0 if necessary to meet HMAX bound. --------------------------- - 180 RH = ABS(H0)*HMXI - IF (RH .GT. ONE) H0 = H0/RH -C Load H with H0 and scale YH(*,2) by H0. ------------------------------ - H = H0 - CALL DSCAL (N, H0, RWORK(LF0), 1) - GO TO 270 -C----------------------------------------------------------------------- -C Block D. -C The next code block is for continuation calls only (ISTATE = 2 or 3) -C and is to check stop conditions before taking a step. -C----------------------------------------------------------------------- - 200 NSLAST = NST - KUTH = 0 - GO TO (210, 250, 220, 230, 240), ITASK - 210 IF ((TN - TOUT)*H .LT. ZERO) GO TO 250 - CALL DVINDY (TOUT, 0, RWORK(LYH), NYH, Y, IFLAG) - IF (IFLAG .NE. 0) GO TO 627 - T = TOUT - GO TO 420 - 220 TP = TN - HU*(ONE + HUN*UROUND) - IF ((TP - TOUT)*H .GT. ZERO) GO TO 623 - IF ((TN - TOUT)*H .LT. ZERO) GO TO 250 - GO TO 400 - 230 TCRIT = RWORK(1) - IF ((TN - TCRIT)*H .GT. ZERO) GO TO 624 - IF ((TCRIT - TOUT)*H .LT. ZERO) GO TO 625 - IF ((TN - TOUT)*H .LT. ZERO) GO TO 245 - CALL DVINDY (TOUT, 0, RWORK(LYH), NYH, Y, IFLAG) - IF (IFLAG .NE. 0) GO TO 627 - T = TOUT - GO TO 420 - 240 TCRIT = RWORK(1) - IF ((TN - TCRIT)*H .GT. ZERO) GO TO 624 - 245 HMX = ABS(TN) + ABS(H) - IHIT = ABS(TN - TCRIT) .LE. HUN*UROUND*HMX - IF (IHIT) GO TO 400 - TNEXT = TN + HNEW*(ONE + FOUR*UROUND) - IF ((TNEXT - TCRIT)*H .LE. ZERO) GO TO 250 - H = (TCRIT - TN)*(ONE - FOUR*UROUND) - KUTH = 1 -C----------------------------------------------------------------------- -C Block E. -C The next block is normally executed for all calls and contains -C the CALL to the one-step core integrator DVSTEP. -C -C This is a looping point for the integration steps. -C -C First check for too many steps being taken, update EWT (if not at -C start of problem), check for too much accuracy being requested, and -C check for H below the roundoff level in T. -C----------------------------------------------------------------------- - 250 CONTINUE - IF ((NST-NSLAST) .GE. MXSTEP) GO TO 500 - CALL DEWSET (N, ITOL, RelTol, AbsTol, RWORK(LYH), RWORK(LEWT)) - DO 260 I = 1,N - IF (RWORK(I+LEWT-1) .LE. ZERO) GO TO 510 - 260 RWORK(I+LEWT-1) = ONE/RWORK(I+LEWT-1) - 270 TOLSF = UROUND*DVNORM (N, RWORK(LYH), RWORK(LEWT)) - IF (TOLSF .LE. ONE) GO TO 280 - TOLSF = TOLSF*TWO - IF (NST .EQ. 0) GO TO 626 - GO TO 520 - 280 IF ((TN + H) .NE. TN) GO TO 290 - NHNIL = NHNIL + 1 - IF (NHNIL .GT. MXHNIL) GO TO 290 - MSG = 'DVODE-- Warning..internal T (=R1) and H (=R2) are' - CALL XERRWD (MSG, 50, 101, 1, 0, 0, 0, 0, ZERO, ZERO) - MSG=' such that in the machine, T + H = T on the next step ' - CALL XERRWD (MSG, 60, 101, 1, 0, 0, 0, 0, ZERO, ZERO) - MSG = ' (H = step size). solver will continue anyway' - CALL XERRWD (MSG, 50, 101, 1, 0, 0, 0, 2, TN, H) - IF (NHNIL .LT. MXHNIL) GO TO 290 - MSG = 'DVODE-- Above warning has been issued I1 times. ' - CALL XERRWD (MSG, 50, 102, 1, 0, 0, 0, 0, ZERO, ZERO) - MSG = ' it will not be issued again for this problem' - CALL XERRWD (MSG, 50, 102, 1, 1, MXHNIL, 0, 0, ZERO, ZERO) - 290 CONTINUE -C----------------------------------------------------------------------- -C CALL DVSTEP (Y, YH, NYH, YH, EWT, SAVF, VSAV, ACOR, -C WM, IWM, F, JAC, F, DVNLSD, RPAR, IPAR) -C----------------------------------------------------------------------- - CALL DVSTEP (Y, RWORK(LYH), NYH, RWORK(LYH), RWORK(LEWT), - 1 RWORK(LSAVF), Y, RWORK(LACOR), RWORK(LWM), IWORK(LIWM), - 2 F, JAC, F, DVNLSD, RPAR, IPAR) - KGO = 1 - KFLAG -C Branch on KFLAG. Note..In this version, KFLAG can not be set to -3. -C KFLAG .eq. 0, -1, -2 - GO TO (300, 530, 540), KGO -C----------------------------------------------------------------------- -C Block F. -C The following block handles the case of a successful return from the -C core integrator (KFLAG = 0). Test for stop conditions. -C----------------------------------------------------------------------- - 300 INIT = 1 - KUTH = 0 - GO TO (310, 400, 330, 340, 350), ITASK -C ITASK = 1. If TOUT has been reached, interpolate. ------------------- - 310 IF ((TN - TOUT)*H .LT. ZERO) GO TO 250 - CALL DVINDY (TOUT, 0, RWORK(LYH), NYH, Y, IFLAG) - T = TOUT - GO TO 420 -C ITASK = 3. Jump to exit if TOUT was reached. ------------------------ - 330 IF ((TN - TOUT)*H .GE. ZERO) GO TO 400 - GO TO 250 -C ITASK = 4. See if TOUT or TCRIT was reached. Adjust H if necessary. - 340 IF ((TN - TOUT)*H .LT. ZERO) GO TO 345 - CALL DVINDY (TOUT, 0, RWORK(LYH), NYH, Y, IFLAG) - T = TOUT - GO TO 420 - 345 HMX = ABS(TN) + ABS(H) - IHIT = ABS(TN - TCRIT) .LE. HUN*UROUND*HMX - IF (IHIT) GO TO 400 - TNEXT = TN + HNEW*(ONE + FOUR*UROUND) - IF ((TNEXT - TCRIT)*H .LE. ZERO) GO TO 250 - H = (TCRIT - TN)*(ONE - FOUR*UROUND) - KUTH = 1 - GO TO 250 -C ITASK = 5. See if TCRIT was reached and jump to exit. --------------- - 350 HMX = ABS(TN) + ABS(H) - IHIT = ABS(TN - TCRIT) .LE. HUN*UROUND*HMX -C----------------------------------------------------------------------- -C Block G. -C The following block handles all successful returns from DVODE. -C If ITASK .ne. 1, Y is loaded from YH and T is set accordingly. -C ISTATE is set to 2, and the optional output is loaded into the work -C arrays before returning. -C----------------------------------------------------------------------- - 400 CONTINUE - CALL DCOPY (N, RWORK(LYH), 1, Y, 1) - T = TN - IF (ITASK .NE. 4 .AND. ITASK .NE. 5) GO TO 420 - IF (IHIT) T = TCRIT - 420 ISTATE = 2 - RWORK(11) = HU - RWORK(12) = HNEW - RWORK(13) = TN - IWORK(11) = NST - IWORK(12) = NFE - IWORK(13) = NJE - IWORK(14) = NQU - IWORK(15) = NEWQ - IWORK(19) = NLU - IWORK(20) = NNI - IWORK(21) = NCFN - IWORK(22) = NETF - RETURN -C----------------------------------------------------------------------- -C Block H. -C The following block handles all unsuccessful returns other than -C those for illegal input. First the error message routine is called. -C if there was an error test or convergence test failure, IMXER is set. -C Then Y is loaded from YH, T is set to TN, and the illegal input -C The optional output is loaded into the work arrays before returning. -C----------------------------------------------------------------------- -C The maximum number of steps was taken before reaching TOUT. ---------- - 500 MSG = 'DVODE-- At current T (=R1), MXSTEP (=I1) steps ' - CALL XERRWD (MSG, 50, 201, 1, 0, 0, 0, 0, ZERO, ZERO) - MSG = ' taken on this CALL before reaching TOUT ' - CALL XERRWD (MSG, 50, 201, 1, 1, MXSTEP, 0, 1, TN, ZERO) - ISTATE = -1 - GO TO 580 -C EWT(i) .le. 0.0 for some i (not at start of problem). ---------------- - 510 EWTI = RWORK(LEWT+I-1) - MSG = 'DVODE-- At T (=R1), EWT(I1) has become R2 .le. 0.' - CALL XERRWD (MSG, 50, 202, 1, 1, I, 0, 2, TN, EWTI) - ISTATE = -6 - GO TO 580 -C Too much accuracy requested for machine precision. ------------------- - 520 MSG = 'DVODE-- At T (=R1), too much accuracy requested ' - CALL XERRWD (MSG, 50, 203, 1, 0, 0, 0, 0, ZERO, ZERO) - MSG = ' for precision of machine.. see TOLSF (=R2) ' - CALL XERRWD (MSG, 50, 203, 1, 0, 0, 0, 2, TN, TOLSF) - RWORK(14) = TOLSF - ISTATE = -2 - GO TO 580 -C KFLAG = -1. Error test failed repeatedly or with ABS(H) = HMIN. ----- - 530 MSG = 'DVODE-- At T(=R1) and step size H(=R2), the error' - CALL XERRWD (MSG, 50, 204, 1, 0, 0, 0, 0, ZERO, ZERO) - MSG = ' test failed repeatedly or with abs(H) = HMIN' - CALL XERRWD (MSG, 50, 204, 1, 0, 0, 0, 2, TN, H) - ISTATE = -4 - GO TO 560 -C KFLAG = -2. Convergence failed repeatedly or with abs(H) = HMIN. ---- - 540 MSG = 'DVODE-- At T (=R1) and step size H (=R2), the ' - CALL XERRWD (MSG, 50, 205, 1, 0, 0, 0, 0, ZERO, ZERO) - MSG = ' corrector convergence failed repeatedly ' - CALL XERRWD (MSG, 50, 205, 1, 0, 0, 0, 0, ZERO, ZERO) - MSG = ' or with abs(H) = HMIN ' - CALL XERRWD (MSG, 30, 205, 1, 0, 0, 0, 2, TN, H) - ISTATE = -5 -C Compute IMXER if relevant. ------------------------------------------- - 560 BIG = ZERO - IMXER = 1 - DO 570 I = 1,N - SIZE = ABS(RWORK(I+LACOR-1)*RWORK(I+LEWT-1)) - IF (BIG .GE. SIZE) GO TO 570 - BIG = SIZE - IMXER = I - 570 CONTINUE - IWORK(16) = IMXER -C Set Y vector, T, and optional output. -------------------------------- - 580 CONTINUE - CALL DCOPY (N, RWORK(LYH), 1, Y, 1) - T = TN - RWORK(11) = HU - RWORK(12) = H - RWORK(13) = TN - IWORK(11) = NST - IWORK(12) = NFE - IWORK(13) = NJE - IWORK(14) = NQU - IWORK(15) = NQ - IWORK(19) = NLU - IWORK(20) = NNI - IWORK(21) = NCFN - IWORK(22) = NETF - RETURN -C----------------------------------------------------------------------- -C Block I. -C The following block handles all error returns due to illegal input -C (ISTATE = -3), as detected before calling the core integrator. -C First the error message routine is called. If the illegal input -C is a negative ISTATE, the run is aborted (apparent infinite loop). -C----------------------------------------------------------------------- - 601 MSG = 'DVODE-- ISTATE (=I1) illegal ' - CALL XERRWD (MSG, 30, 1, 1, 1, ISTATE, 0, 0, ZERO, ZERO) - IF (ISTATE .LT. 0) GO TO 800 - GO TO 700 - 602 MSG = 'DVODE-- ITASK (=I1) illegal ' - CALL XERRWD (MSG, 30, 2, 1, 1, ITASK, 0, 0, ZERO, ZERO) - GO TO 700 - 603 MSG='DVODE-- ISTATE (=I1) .gt. 1 but DVODE not initialized ' - CALL XERRWD (MSG, 60, 3, 1, 1, ISTATE, 0, 0, ZERO, ZERO) - GO TO 700 - 604 MSG = 'DVODE-- NEQ (=I1) .lt. 1 ' - CALL XERRWD (MSG, 30, 4, 1, 1, NEQ, 0, 0, ZERO, ZERO) - GO TO 700 - 605 MSG = 'DVODE-- ISTATE = 3 and NEQ increased (I1 to I2) ' - CALL XERRWD (MSG, 50, 5, 1, 2, N, NEQ, 0, ZERO, ZERO) - GO TO 700 - 606 MSG = 'DVODE-- ITOL (=I1) illegal ' - CALL XERRWD (MSG, 30, 6, 1, 1, ITOL, 0, 0, ZERO, ZERO) - GO TO 700 - 607 MSG = 'DVODE-- IOPT (=I1) illegal ' - CALL XERRWD (MSG, 30, 7, 1, 1, IOPT, 0, 0, ZERO, ZERO) - GO TO 700 - 608 MSG = 'DVODE-- MF (=I1) illegal ' - CALL XERRWD (MSG, 30, 8, 1, 1, MF, 0, 0, ZERO, ZERO) - GO TO 700 - 609 MSG = 'DVODE-- ML (=I1) illegal.. .lt.0 or .ge.NEQ (=I2)' - CALL XERRWD (MSG, 50, 9, 1, 2, ML, NEQ, 0, ZERO, ZERO) - GO TO 700 - 610 MSG = 'DVODE-- MU (=I1) illegal.. .lt.0 or .ge.NEQ (=I2)' - CALL XERRWD (MSG, 50, 10, 1, 2, MU, NEQ, 0, ZERO, ZERO) - GO TO 700 - 611 MSG = 'DVODE-- MAXORD (=I1) .lt. 0 ' - CALL XERRWD (MSG, 30, 11, 1, 1, MAXORD, 0, 0, ZERO, ZERO) - GO TO 700 - 612 MSG = 'DVODE-- MXSTEP (=I1) .lt. 0 ' - CALL XERRWD (MSG, 30, 12, 1, 1, MXSTEP, 0, 0, ZERO, ZERO) - GO TO 700 - 613 MSG = 'DVODE-- MXHNIL (=I1) .lt. 0 ' - CALL XERRWD (MSG, 30, 13, 1, 1, MXHNIL, 0, 0, ZERO, ZERO) - GO TO 700 - 614 MSG = 'DVODE-- TOUT (=R1) behind T (=R2) ' - CALL XERRWD (MSG, 40, 14, 1, 0, 0, 0, 2, TOUT, T) - MSG = ' integration direction is given by H0 (=R1) ' - CALL XERRWD (MSG, 50, 14, 1, 0, 0, 0, 1, H0, ZERO) - GO TO 700 - 615 MSG = 'DVODE-- HMAX (=R1) .lt. 0.0 ' - CALL XERRWD (MSG, 30, 15, 1, 0, 0, 0, 1, HMAX, ZERO) - GO TO 700 - 616 MSG = 'DVODE-- HMIN (=R1) .lt. 0.0 ' - CALL XERRWD (MSG, 30, 16, 1, 0, 0, 0, 1, HMIN, ZERO) - GO TO 700 - 617 CONTINUE - MSG='DVODE-- RWORK length needed, LENRW (=I1), exceeds LRW (=I2)' - CALL XERRWD (MSG, 60, 17, 1, 2, LENRW, LRW, 0, ZERO, ZERO) - GO TO 700 - 618 CONTINUE - MSG='DVODE-- IWORK length needed, LENIW (=I1), exceeds LIW (=I2)' - CALL XERRWD (MSG, 60, 18, 1, 2, LENIW, LIW, 0, ZERO, ZERO) - GO TO 700 - 619 MSG = 'DVODE-- RelTol(I1) is R1 .lt. 0.0 ' - CALL XERRWD (MSG, 40, 19, 1, 1, I, 0, 1, RelTolI, ZERO) - GO TO 700 - 620 MSG = 'DVODE-- AbsTol(I1) is R1 .lt. 0.0 ' - CALL XERRWD (MSG, 40, 20, 1, 1, I, 0, 1, AbsTolI, ZERO) - GO TO 700 - 621 EWTI = RWORK(LEWT+I-1) - MSG = 'DVODE-- EWT(I1) is R1 .le. 0.0 ' - CALL XERRWD (MSG, 40, 21, 1, 1, I, 0, 1, EWTI, ZERO) - GO TO 700 - 622 CONTINUE - MSG='DVODE-- TOUT (=R1) too close to T(=R2) to start integration' - CALL XERRWD (MSG, 60, 22, 1, 0, 0, 0, 2, TOUT, T) - GO TO 700 - 623 CONTINUE - MSG='DVODE-- ITASK = I1 and TOUT (=R1) behind TCUR - HU (= R2) ' - CALL XERRWD (MSG, 60, 23, 1, 1, ITASK, 0, 2, TOUT, TP) - GO TO 700 - 624 CONTINUE - MSG='DVODE-- ITASK = 4 or 5 and TCRIT (=R1) behind TCUR (=R2) ' - CALL XERRWD (MSG, 60, 24, 1, 0, 0, 0, 2, TCRIT, TN) - GO TO 700 - 625 CONTINUE - MSG='DVODE-- ITASK = 4 or 5 and TCRIT (=R1) behind TOUT (=R2) ' - CALL XERRWD (MSG, 60, 25, 1, 0, 0, 0, 2, TCRIT, TOUT) - GO TO 700 - 626 MSG = 'DVODE-- At start of problem, too much accuracy ' - CALL XERRWD (MSG, 50, 26, 1, 0, 0, 0, 0, ZERO, ZERO) - MSG=' requested for precision of machine.. see TOLSF (=R1) ' - CALL XERRWD (MSG, 60, 26, 1, 0, 0, 0, 1, TOLSF, ZERO) - RWORK(14) = TOLSF - GO TO 700 - 627 MSG='DVODE-- Trouble from DVINDY. ITASK = I1, TOUT = R1. ' - CALL XERRWD (MSG, 60, 27, 1, 1, ITASK, 0, 1, TOUT, ZERO) -C - 700 CONTINUE - ISTATE = -3 - RETURN -C - 800 MSG = 'DVODE-- Run aborted.. apparent infinite loop ' - CALL XERRWD (MSG, 50, 303, 2, 0, 0, 0, 0, ZERO, ZERO) - RETURN -C----------------------- End of Subroutine DVODE ----------------------- - END -*DECK DVHIN - SUBROUTINE DVHIN (N, T0, Y0, YDOT, F, RPAR, IPAR, TOUT, UROUND, - 1 EWT, ITOL, AbsTol, Y, TEMP, H0, NITER, IER) - EXTERNAL F - KPP_REAL T0, Y0, YDOT, RPAR, TOUT, UROUND, EWT, AbsTol, Y, - 1 TEMP, H0 - INTEGER N, IPAR, ITOL, NITER, IER - DIMENSION Y0(*), YDOT(*), EWT(*), AbsTol(*), Y(*), - 1 TEMP(*), RPAR(*), IPAR(*) -C----------------------------------------------------------------------- -C Call sequence input -- N, T0, Y0, YDOT, F, RPAR, IPAR, TOUT, UROUND, -C EWT, ITOL, AbsTol, Y, TEMP -C Call sequence output -- H0, NITER, IER -C COMMON block variables accessed -- None -C -C Subroutines called by DVHIN.. F -C Function routines called by DVHIN.. DVNORM -C----------------------------------------------------------------------- -C This routine computes the step size, H0, to be attempted on the -C first step, when the user has not supplied a value for this. -C -C First we check that TOUT - T0 differs significantly from zero. Then -C an iteration is done to approximate the initial second derivative -C and this is used to define h from w.r.m.s.norm(h**2 * yddot / 2) = 1. -C A bias factor of 1/2 is applied to the resulting h. -C The sign of H0 is inferred from the initial values of TOUT and T0. -C -C Communication with DVHIN is done with the following variables.. -C -C N = Size of ODE system, input. -C T0 = Initial value of independent variable, input. -C Y0 = Vector of initial conditions, input. -C YDOT = Vector of initial first derivatives, input. -C F = Name of subroutine for right-hand side f(t,y), input. -C RPAR, IPAR = Dummy names for user's real and integer work arrays. -C TOUT = First output value of independent variable -C UROUND = Machine unit roundoff -C EWT, ITOL, AbsTol = Error weights and tolerance parameters -C as described in the driver routine, input. -C Y, TEMP = Work arrays of length N. -C H0 = Step size to be attempted, output. -C NITER = Number of iterations (and of f evaluations) to compute H0, -C output. -C IER = The error flag, returned with the value -C IER = 0 if no trouble occurred, or -C IER = -1 if TOUT and T0 are considered too close to proceed. -C----------------------------------------------------------------------- -C -C Type declarations for local variables -------------------------------- -C - KPP_REAL AFI, AbsTolI, DELYI, HALF, HG, HLB, HNEW, HRAT, - 1 HUB, HUN, PT1, T1, TDIST, TROUND, TWO, YDDNRM - INTEGER I, ITER - -C -C Type declaration for function subroutines called --------------------- -C - KPP_REAL DVNORM -C----------------------------------------------------------------------- -C The following Fortran-77 declaration is to cause the values of the -C listed (local) variables to be saved between calls to this integrator. -C----------------------------------------------------------------------- - SAVE HALF, HUN, PT1, TWO - DATA HALF /0.5D0/, HUN /100.0D0/, PT1 /0.1D0/, TWO /2.0D0/ -C - NITER = 0 - TDIST = ABS(TOUT - T0) - TROUND = UROUND*MAX(ABS(T0),ABS(TOUT)) - IF (TDIST .LT. TWO*TROUND) GO TO 100 -C -C Set a lower bound on h based on the roundoff level in T0 and TOUT. --- - HLB = HUN*TROUND -C Set an upper bound on h based on TOUT-T0 and the initial Y and YDOT. - - HUB = PT1*TDIST - AbsTolI = AbsTol(1) - DO 10 I = 1, N - IF (ITOL .EQ. 2 .OR. ITOL .EQ. 4) AbsTolI = AbsTol(I) - DELYI = PT1*ABS(Y0(I)) + AbsTolI - AFI = ABS(YDOT(I)) - IF (AFI*HUB .GT. DELYI) HUB = DELYI/AFI - 10 CONTINUE -C -C Set initial guess for h as geometric mean of upper and lower bounds. - - ITER = 0 - HG = SQRT(HLB*HUB) -C If the bounds have crossed, exit with the mean value. ---------------- - IF (HUB .LT. HLB) THEN - H0 = HG - GO TO 90 - ENDIF -C -C Looping point for iteration. ----------------------------------------- - 50 CONTINUE -C Estimate the second derivative as a difference quotient in f. -------- - T1 = T0 + HG - DO 60 I = 1, N - 60 Y(I) = Y0(I) + HG*YDOT(I) - CALL F (N, T1, Y, TEMP) - DO 70 I = 1, N - 70 TEMP(I) = (TEMP(I) - YDOT(I))/HG - YDDNRM = DVNORM (N, TEMP, EWT) -C Get the corresponding new value of h. -------------------------------- - IF (YDDNRM*HUB*HUB .GT. TWO) THEN - HNEW = SQRT(TWO/YDDNRM) - ELSE - HNEW = SQRT(HG*HUB) - ENDIF - ITER = ITER + 1 -C----------------------------------------------------------------------- -C Test the stopping conditions. -C Stop if the new and previous h values differ by a factor of .lt. 2. -C Stop if four iterations have been done. Also, stop with previous h -C if HNEW/HG .gt. 2 after first iteration, as this probably means that -C the second derivative value is bad because of cancellation error. -C----------------------------------------------------------------------- - IF (ITER .GE. 4) GO TO 80 - HRAT = HNEW/HG -C AICI - IF ( (HRAT .GT. HALF) .AND. (HRAT .LT. TWO) ) GO TO 80 - IF ( (ITER .GE. 2) .AND. (HNEW .GT. TWO*HG) ) THEN - HNEW = HG - GO TO 80 - ENDIF - HG = HNEW - GO TO 50 -C -C Iteration done. Apply bounds, bias factor, and sign. Then exit. ---- - 80 H0 = HNEW*HALF - IF (H0 .LT. HLB) H0 = HLB - IF (H0 .GT. HUB) H0 = HUB - 90 H0 = SIGN(H0, TOUT - T0) - NITER = ITER - IER = 0 - RETURN -C Error return for TOUT - T0 too small. -------------------------------- - 100 IER = -1 - RETURN -C----------------------- End of Subroutine DVHIN ----------------------- - END -*DECK DVINDY - SUBROUTINE DVINDY (T, K, YH, LDYH, DKY, IFLAG) - KPP_REAL T, YH, DKY - INTEGER K, LDYH, IFLAG - DIMENSION YH(LDYH,*), DKY(*) -C----------------------------------------------------------------------- -C Call sequence input -- T, K, YH, LDYH -C Call sequence output -- DKY, IFLAG -C COMMON block variables accessed.. -C /DVOD01/ -- H, TN, UROUND, L, N, NQ -C /DVOD02/ -- HU -C -C Subroutines called by DVINDY.. DSCAL, XERRWD -C Function routines called by DVINDY.. None -C----------------------------------------------------------------------- -C DVINDY computes interpolated values of the K-th derivative of the -C dependent variable vector y, and stores it in DKY. This routine -C is called within the package with K = 0 and T = TOUT, but may -C also be called by the user for any K up to the current order. -C (See detailed instructions in the usage documentation.) -C----------------------------------------------------------------------- -C The computed values in DKY are gotten by interpolation using the -C Nordsieck history array YH. This array corresponds uniquely to a -C vector-valued polynomial of degree NQCUR or less, and DKY is set -C to the K-th derivative of this polynomial at T. -C The formula for DKY is.. -C q -C DKY(i) = sum c(j,K) * (T - TN)**(j-K) * H**(-j) * YH(i,j+1) -C j=K -C where c(j,K) = j*(j-1)*...*(j-K+1), q = NQCUR, TN = TCUR, H = HCUR. -C The quantities NQ = NQCUR, L = NQ+1, N, TN, and H are -C communicated by COMMON. The above sum is done in reverse order. -C IFLAG is returned negative if either K or T is out of bounds. -C -C Discussion above and comments in driver explain all variables. -C----------------------------------------------------------------------- -C -C Type declarations for labeled COMMON block DVOD01 -------------------- -C - KPP_REAL ACNRM, CCMXJ, CONP, CRATE, DRC, EL, - 1 ETA, ETAMAX, H, HMIN, HMXI, HNEW, HSCAL, PRL1, - 2 RC, RL1, TAU, TQ, TN, UROUND - INTEGER ICF, INIT, IPUP, JCUR, JSTART, JSV, KFLAG, KUTH, - 1 L, LMAX, LYH, LEWT, LACOR, LSAVF, LWM, LIWM, - 2 LOCJS, MAXORD, METH, MITER, MSBJ, MXHNIL, MXSTEP, - 3 N, NEWH, NEWQ, NHNIL, NQ, NQNYH, NQWAIT, NSLJ, - 4 NSLP, NYH -C -C Type declarations for labeled COMMON block DVOD02 -------------------- -C - KPP_REAL HU - INTEGER NCFN, NETF, NFE, NJE, NLU, NNI, NQU, NST -C -C Type declarations for local variables -------------------------------- -C - KPP_REAL C, HUN, R, S, TFUZZ, TN1, TP, ZERO - INTEGER I, IC, J, JB, JB2, JJ, JJ1, JP1 - CHARACTER*80 MSG -C----------------------------------------------------------------------- -C The following Fortran-77 declaration is to cause the values of the -C listed (local) variables to be saved between calls to this integrator. -C----------------------------------------------------------------------- - SAVE HUN, ZERO -C - COMMON /DVOD01/ ACNRM, CCMXJ, CONP, CRATE, DRC, EL(13), - 1 ETA, ETAMAX, H, HMIN, HMXI, HNEW, HSCAL, PRL1, - 2 RC, RL1, TAU(13), TQ(5), TN, UROUND, - 3 ICF, INIT, IPUP, JCUR, JSTART, JSV, KFLAG, KUTH, - 4 L, LMAX, LYH, LEWT, LACOR, LSAVF, LWM, LIWM, - 5 LOCJS, MAXORD, METH, MITER, MSBJ, MXHNIL, MXSTEP, - 6 N, NEWH, NEWQ, NHNIL, NQ, NQNYH, NQWAIT, NSLJ, - 7 NSLP, NYH - COMMON /DVOD02/ HU, NCFN, NETF, NFE, NJE, NLU, NNI, NQU, NST -C - DATA HUN /100.0D0/, ZERO /0.0D0/ -C - IFLAG = 0 - IF (K .LT. 0 .OR. K .GT. NQ) GO TO 80 - TFUZZ = HUN*UROUND*(TN + HU) - TP = TN - HU - TFUZZ - TN1 = TN + TFUZZ - IF ((T-TP)*(T-TN1) .GT. ZERO) GO TO 90 -C - S = (T - TN)/H - IC = 1 - IF (K .EQ. 0) GO TO 15 - JJ1 = L - K - DO 10 JJ = JJ1, NQ - 10 IC = IC*JJ - 15 C = REAL(IC) - DO 20 I = 1, N - 20 DKY(I) = C*YH(I,L) - IF (K .EQ. NQ) GO TO 55 - JB2 = NQ - K - DO 50 JB = 1, JB2 - J = NQ - JB - JP1 = J + 1 - IC = 1 - IF (K .EQ. 0) GO TO 35 - JJ1 = JP1 - K - DO 30 JJ = JJ1, J - 30 IC = IC*JJ - 35 C = REAL(IC) - DO 40 I = 1, N - 40 DKY(I) = C*YH(I,JP1) + S*DKY(I) - 50 CONTINUE - IF (K .EQ. 0) RETURN - 55 R = H**(-K) - CALL DSCAL (N, R, DKY, 1) - RETURN -C - 80 MSG = 'DVINDY-- K (=I1) illegal ' - CALL XERRWD (MSG, 30, 51, 1, 1, K, 0, 0, ZERO, ZERO) - IFLAG = -1 - RETURN - 90 MSG = 'DVINDY-- T (=R1) illegal ' - CALL XERRWD (MSG, 30, 52, 1, 0, 0, 0, 1, T, ZERO) - MSG=' T not in interval TCUR - HU (= R1) to TCUR (=R2) ' - CALL XERRWD (MSG, 60, 52, 1, 0, 0, 0, 2, TP, TN) - IFLAG = -2 - RETURN -C----------------------- End of Subroutine DVINDY ---------------------- - END -*DECK DVSTEP - SUBROUTINE DVSTEP (Y, YH, LDYH, YH1, EWT, SAVF, VSAV, ACOR, - 1 WM, IWM, F, JAC, PSOL, VNLS, RPAR, IPAR) - EXTERNAL F, JAC, PSOL, VNLS - KPP_REAL Y, YH, YH1, EWT, SAVF, VSAV, ACOR, WM, RPAR - INTEGER LDYH, IWM, IPAR - DIMENSION Y(*), YH(LDYH,*), YH1(*), EWT(*), SAVF(*), VSAV(*), - 1 ACOR(*), WM(*), IWM(*), RPAR(*), IPAR(*) - -C----------------------------------------------------------------------- -C Call sequence input -- Y, YH, LDYH, YH1, EWT, SAVF, VSAV, -C ACOR, WM, IWM, F, JAC, PSOL, VNLS, RPAR, IPAR -C Call sequence output -- YH, ACOR, WM, IWM -C COMMON block variables accessed.. -C /DVOD01/ ACNRM, EL(13), H, HMIN, HMXI, HNEW, HSCAL, RC, TAU(13), -C TQ(5), TN, JCUR, JSTART, KFLAG, KUTH, -C L, LMAX, MAXORD, MITER, N, NEWQ, NQ, NQWAIT -C /DVOD02/ HU, NCFN, NETF, NFE, NQU, NST -C -C Subroutines called by DVSTEP.. F, DAXPY, DCOPY, DSCAL, -C DVJUST, VNLS, DVSET -C Function routines called by DVSTEP.. DVNORM -C----------------------------------------------------------------------- -C DVSTEP performs one step of the integration of an initial value -C problem for a system of ordinary differential equations. -C DVSTEP calls subroutine VNLS for the solution of the nonlinear system -C arising in the time step. Thus it is independent of the problem -C Jacobian structure and the type of nonlinear system solution method. -C DVSTEP returns a completion flag KFLAG (in COMMON). -C A return with KFLAG = -1 or -2 means either ABS(H) = HMIN or 10 -C consecutive failures occurred. On a return with KFLAG negative, -C the values of TN and the YH array are as of the beginning of the last -C step, and H is the last step size attempted. -C -C Communication with DVSTEP is done with the following variables.. -C -C Y = An array of length N used for the dependent variable vector. -C YH = An LDYH by LMAX array containing the dependent variables -C and their approximate scaled derivatives, where -C LMAX = MAXORD + 1. YH(i,j+1) contains the approximate -C j-th derivative of y(i), scaled by H**j/factorial(j) -C (j = 0,1,...,NQ). On entry for the first step, the first -C two columns of YH must be set from the initial values. -C LDYH = A constant integer .ge. N, the first dimension of YH. -C N is the number of ODEs in the system. -C YH1 = A one-dimensional array occupying the same space as YH. -C EWT = An array of length N containing multiplicative weights -C for local error measurements. Local errors in y(i) are -C compared to 1.0/EWT(i) in various error tests. -C SAVF = An array of working storage, of length N. -C also used for input of YH(*,MAXORD+2) when JSTART = -1 -C and MAXORD .lt. the current order NQ. -C VSAV = A work array of length N passed to subroutine VNLS. -C ACOR = A work array of length N, used for the accumulated -C corrections. On a successful return, ACOR(i) contains -C the estimated one-step local error in y(i). -C WM,IWM = Real and integer work arrays associated with matrix -C operations in VNLS. -C F = Dummy name for the user supplied subroutine for f. -C JAC = Dummy name for the user supplied Jacobian subroutine. -C PSOL = Dummy name for the subroutine passed to VNLS, for -C possible use there. -C VNLS = Dummy name for the nonlinear system solving subroutine, -C whose real name is dependent on the method used. -C RPAR, IPAR = Dummy names for user's real and integer work arrays. -C----------------------------------------------------------------------- -C -C Type declarations for labeled COMMON block DVOD01 -------------------- -C - KPP_REAL ACNRM, CCMXJ, CONP, CRATE, DRC, EL, - 1 ETA, ETAMAX, H, HMIN, HMXI, HNEW, HSCAL, PRL1, - 2 RC, RL1, TAU, TQ, TN, UROUND - INTEGER ICF, INIT, IPUP, JCUR, JSTART, JSV, KFLAG, KUTH, - 1 L, LMAX, LYH, LEWT, LACOR, LSAVF, LWM, LIWM, - 2 LOCJS, MAXORD, METH, MITER, MSBJ, MXHNIL, MXSTEP, - 3 N, NEWH, NEWQ, NHNIL, NQ, NQNYH, NQWAIT, NSLJ, - 4 NSLP, NYH -C -C Type declarations for labeled COMMON block DVOD02 -------------------- -C - KPP_REAL HU - INTEGER NCFN, NETF, NFE, NJE, NLU, NNI, NQU, NST -C -C Type declarations for local variables -------------------------------- -C - KPP_REAL ADDON, BIAS1,BIAS2,BIAS3, CNQUOT, DDN, DSM, DUP, - 1 ETACF, ETAMIN, ETAMX1, ETAMX2, ETAMX3, ETAMXF, - 2 ETAQ, ETAQM1, ETAQP1, FLOTL, ONE, ONEPSM, - 3 R, THRESH, TOLD, ZERO - INTEGER I, I1, I2, IBACK, J, JB, KFC, KFH, MXNCF, NCF, NFLAG -C -C Type declaration for function subroutines called --------------------- -C - KPP_REAL DVNORM -C----------------------------------------------------------------------- -C The following Fortran-77 declaration is to cause the values of the -C listed (local) variables to be saved between calls to this integrator. -C----------------------------------------------------------------------- - SAVE ADDON, BIAS1, BIAS2, BIAS3, - 1 ETACF, ETAMIN, ETAMX1, ETAMX2, ETAMX3, ETAMXF, - 2 KFC, KFH, MXNCF, ONEPSM, THRESH, ONE, ZERO -C----------------------------------------------------------------------- - COMMON /DVOD01/ ACNRM, CCMXJ, CONP, CRATE, DRC, EL(13), - 1 ETA, ETAMAX, H, HMIN, HMXI, HNEW, HSCAL, PRL1, - 2 RC, RL1, TAU(13), TQ(5), TN, UROUND, - 3 ICF, INIT, IPUP, JCUR, JSTART, JSV, KFLAG, KUTH, - 4 L, LMAX, LYH, LEWT, LACOR, LSAVF, LWM, LIWM, - 5 LOCJS, MAXORD, METH, MITER, MSBJ, MXHNIL, MXSTEP, - 6 N, NEWH, NEWQ, NHNIL, NQ, NQNYH, NQWAIT, NSLJ, - 7 NSLP, NYH - COMMON /DVOD02/ HU, NCFN, NETF, NFE, NJE, NLU, NNI, NQU, NST -C - DATA KFC/-3/, KFH/-7/, MXNCF/10/ - DATA ADDON /1.0D-6/, BIAS1 /6.0D0/, BIAS2 /6.0D0/, - 1 BIAS3 /10.0D0/, ETACF /0.25D0/, ETAMIN /0.1D0/, - 2 ETAMXF /0.2D0/, ETAMX1 /1.0D4/, ETAMX2 /10.0D1/, - 3 ETAMX3 /10.0D1/, ONEPSM /1.00001D0/, THRESH /1.5D0/ - - DATA ONE/1.0D0/, ZERO/0.0D0/ -C - ETAQ = ETAMX1 - ETAQM1 = ETAMX1 - ETAQP1 = ETAMX1 - KFLAG = 0 - TOLD = TN - NCF = 0 - JCUR = 0 - NFLAG = 0 - IF (JSTART .GT. 0) GO TO 20 - IF (JSTART .EQ. -1) GO TO 100 -C----------------------------------------------------------------------- -C On the first call, the order is set to 1, and other variables are -C initialized. ETAMAX is the maximum ratio by which H can be increased -C in a single step. It is normally 1.5, but is larger during the -C first 10 steps to compensate for the small initial H. If a failure -C occurs (in corrector convergence or error test), ETAMAX is set to 1 -C for the next increase. -C----------------------------------------------------------------------- - LMAX = MAXORD + 1 - NQ = 1 - L = 2 - NQNYH = NQ*LDYH - TAU(1) = H - PRL1 = ONE - RC = ZERO - ETAMAX = ETAMX1 - NQWAIT = 2 - HSCAL = H - GO TO 200 -C----------------------------------------------------------------------- -C Take preliminary actions on a normal continuation step (JSTART.GT.0). -C If the driver changed H, then ETA must be reset and NEWH set to 1. -C If a change of order was dictated on the previous step, then -C it is done here and appropriate adjustments in the history are made. -C On an order decrease, the history array is adjusted by DVJUST. -C On an order increase, the history array is augmented by a column. -C On a change of step size H, the history array YH is rescaled. -C----------------------------------------------------------------------- - 20 CONTINUE - IF (KUTH .EQ. 1) THEN - ETA = MIN(ETA,H/HSCAL) - NEWH = 1 - ENDIF - 50 IF (NEWH .EQ. 0) GO TO 200 - IF (NEWQ .EQ. NQ) GO TO 150 - IF (NEWQ .LT. NQ) THEN - CALL DVJUST (YH, LDYH, -1) - NQ = NEWQ - L = NQ + 1 - NQWAIT = L - GO TO 150 - ENDIF - IF (NEWQ .GT. NQ) THEN - CALL DVJUST (YH, LDYH, 1) - NQ = NEWQ - L = NQ + 1 - NQWAIT = L - GO TO 150 - ENDIF -C----------------------------------------------------------------------- -C The following block handles preliminaries needed when JSTART = -1. -C If N was reduced, zero out part of YH to avoid undefined references. -C If MAXORD was reduced to a value less than the tentative order NEWQ, -C then NQ is set to MAXORD, and a new H ratio ETA is chosen. -C Otherwise, we take the same preliminary actions as for JSTART .gt. 0. -C In any case, NQWAIT is reset to L = NQ + 1 to prevent further -C changes in order for that many steps. -C The new H ratio ETA is limited by the input H if KUTH = 1, -C by HMIN if KUTH = 0, and by HMXI in any case. -C Finally, the history array YH is rescaled. -C----------------------------------------------------------------------- - 100 CONTINUE - LMAX = MAXORD + 1 - IF (N .EQ. LDYH) GO TO 120 - I1 = 1 + (NEWQ + 1)*LDYH - I2 = (MAXORD + 1)*LDYH - IF (I1 .GT. I2) GO TO 120 - DO 110 I = I1, I2 - 110 YH1(I) = ZERO - 120 IF (NEWQ .LE. MAXORD) GO TO 140 - FLOTL = REAL(LMAX) - IF (MAXORD .LT. NQ-1) THEN - DDN = DVNORM (N, SAVF, EWT)/TQ(1) - ETA = ONE/((BIAS1*DDN)**(ONE/FLOTL) + ADDON) - ENDIF - IF (MAXORD .EQ. NQ .AND. NEWQ .EQ. NQ+1) ETA = ETAQ - IF (MAXORD .EQ. NQ-1 .AND. NEWQ .EQ. NQ+1) THEN - ETA = ETAQM1 - CALL DVJUST (YH, LDYH, -1) - ENDIF - IF (MAXORD .EQ. NQ-1 .AND. NEWQ .EQ. NQ) THEN - DDN = DVNORM (N, SAVF, EWT)/TQ(1) - ETA = ONE/((BIAS1*DDN)**(ONE/FLOTL) + ADDON) - CALL DVJUST (YH, LDYH, -1) - ENDIF - ETA = MIN(ETA,ONE) - NQ = MAXORD - L = LMAX - 140 IF (KUTH .EQ. 1) ETA = MIN(ETA,ABS(H/HSCAL)) - IF (KUTH .EQ. 0) ETA = MAX(ETA,HMIN/ABS(HSCAL)) - ETA = ETA/MAX(ONE,ABS(HSCAL)*HMXI*ETA) - NEWH = 1 - NQWAIT = L - IF (NEWQ .LE. MAXORD) GO TO 50 -C Rescale the history array for a change in H by a factor of ETA. ------ - 150 R = ONE - DO 180 J = 2, L - R = R*ETA - CALL DSCAL (N, R, YH(1,J), 1 ) - 180 CONTINUE - H = HSCAL*ETA - HSCAL = H - RC = RC*ETA - NQNYH = NQ*LDYH -C----------------------------------------------------------------------- -C This section computes the predicted values by effectively -C multiplying the YH array by the Pascal triangle matrix. -C DVSET is called to calculate all integration coefficients. -C RC is the ratio of new to old values of the coefficient H/EL(2)=h/l1. -C----------------------------------------------------------------------- - 200 TN = TN + H - I1 = NQNYH + 1 - DO 220 JB = 1, NQ - I1 = I1 - LDYH - DO 210 I = I1, NQNYH - 210 YH1(I) = YH1(I) + YH1(I+LDYH) - 220 CONTINUE - CALL DVSET - RL1 = ONE/EL(2) - RC = RC*(RL1/PRL1) - PRL1 = RL1 -C -C Call the nonlinear system solver. ------------------------------------ -C - CALL VNLS (Y, YH, LDYH, VSAV, SAVF, EWT, ACOR, IWM, WM, - 1 F, JAC, PSOL, NFLAG, RPAR, IPAR) -C - IF ((NFLAG .EQ. 0).OR.(H.LE.1.2*HMIN)) GO TO 450 -C----------------------------------------------------------------------- -C The VNLS routine failed to achieve convergence (NFLAG .NE. 0). -C The YH array is retracted to its values before prediction. -C The step size H is reduced and the step is retried, if possible. -C Otherwise, an error exit is taken. -C----------------------------------------------------------------------- - NCF = NCF + 1 - NCFN = NCFN + 1 - ETAMAX = ONE - TN = TOLD - I1 = NQNYH + 1 - DO 430 JB = 1, NQ - I1 = I1 - LDYH - DO 420 I = I1, NQNYH - 420 YH1(I) = YH1(I) - YH1(I+LDYH) - 430 CONTINUE - IF (NFLAG .LT. -1) GO TO 680 - IF (ABS(H) .LE. HMIN*ONEPSM) GO TO 670 - IF (NCF .EQ. MXNCF) GO TO 670 - ETA = ETACF - ETA = MAX(ETA,HMIN/ABS(H)) - NFLAG = -1 - GO TO 150 -C----------------------------------------------------------------------- -C The corrector has converged (NFLAG = 0). The local error test is -C made and control passes to statement 500 if it fails. -C----------------------------------------------------------------------- - 450 CONTINUE - DSM = ACNRM/TQ(2) - IF ( (DSM .GT. ONE).and.(H.GT.HMIN) ) GO TO 500 -C----------------------------------------------------------------------- -C After a successful step, update the YH and TAU arrays and decrement -C NQWAIT. If NQWAIT is then 1 and NQ .lt. MAXORD, then ACOR is saved -C for use in a possible order increase on the next step. -C If ETAMAX = 1 (a failure occurred this step), keep NQWAIT .ge. 2. -C----------------------------------------------------------------------- - KFLAG = 0 - NST = NST + 1 - HU = H - NQU = NQ - DO 470 IBACK = 1, NQ - I = L - IBACK - 470 TAU(I+1) = TAU(I) - TAU(1) = H - DO 480 J = 1, L - CALL DAXPY (N, EL(J), ACOR, 1, YH(1,J), 1 ) - 480 CONTINUE - NQWAIT = NQWAIT - 1 - IF ((L .EQ. LMAX) .OR. (NQWAIT .NE. 1)) GO TO 490 - CALL DCOPY (N, ACOR, 1, YH(1,LMAX), 1 ) - CONP = TQ(5) - 490 IF (ETAMAX .NE. ONE) GO TO 560 - IF (NQWAIT .LT. 2) NQWAIT = 2 - NEWQ = NQ - NEWH = 0 - ETA = ONE - HNEW = H - GO TO 690 -C----------------------------------------------------------------------- -C The error test failed. KFLAG keeps track of multiple failures. -C Restore TN and the YH array to their previous values, and prepare -C to try the step again. Compute the optimum step size for the -C same order. After repeated failures, H is forced to decrease -C more rapidly. -C----------------------------------------------------------------------- - 500 KFLAG = KFLAG - 1 - NETF = NETF + 1 - NFLAG = -2 - TN = TOLD - I1 = NQNYH + 1 - DO 520 JB = 1, NQ - I1 = I1 - LDYH - DO 510 I = I1, NQNYH - 510 YH1(I) = YH1(I) - YH1(I+LDYH) - 520 CONTINUE - IF (ABS(H) .LE. HMIN*ONEPSM) GO TO 660 - ETAMAX = ONE - IF (KFLAG .LE. KFC) GO TO 530 -C Compute ratio of new H to current H at the current order. ------------ - FLOTL = REAL(L) - ETA = ONE/((BIAS2*DSM)**(ONE/FLOTL) + ADDON) - ETA = MAX(ETA,HMIN/ABS(H),ETAMIN) - IF ((KFLAG .LE. -2) .AND. (ETA .GT. ETAMXF)) ETA = ETAMXF - GO TO 150 -C----------------------------------------------------------------------- -C Control reaches this section if 3 or more consecutive failures -C have occurred. It is assumed that the elements of the YH array -C have accumulated errors of the wrong order. The order is reduced -C by one, if possible. Then H is reduced by a factor of 0.1 and -C the step is retried. After a total of 7 consecutive failures, -C an exit is taken with KFLAG = -1. -C----------------------------------------------------------------------- - 530 IF (KFLAG .EQ. KFH) GO TO 660 - IF (NQ .EQ. 1) GO TO 540 - ETA = MAX(ETAMIN,HMIN/ABS(H)) - CALL DVJUST (YH, LDYH, -1) - L = NQ - NQ = NQ - 1 - NQWAIT = L - GO TO 150 - 540 ETA = MAX(ETAMIN,HMIN/ABS(H)) - H = H*ETA - HSCAL = H - TAU(1) = H - CALL F (N, TN, Y, SAVF) - NFE = NFE + 1 - DO 550 I = 1, N - 550 YH(I,2) = H*SAVF(I) - NQWAIT = 10 - GO TO 200 -C----------------------------------------------------------------------- -C If NQWAIT = 0, an increase or decrease in order by one is considered. -C Factors ETAQ, ETAQM1, ETAQP1 are computed by which H could -C be multiplied at order q, q-1, or q+1, respectively. -C The largest of these is determined, and the new order and -C step size set accordingly. -C A change of H or NQ is made only if H increases by at least a -C factor of THRESH. If an order change is considered and rejected, -C then NQWAIT is set to 2 (reconsider it after 2 steps). -C----------------------------------------------------------------------- -C Compute ratio of new H to current H at the current order. ------------ - 560 FLOTL = REAL(L) - ETAQ = ONE/((BIAS2*DSM)**(ONE/FLOTL) + ADDON) - IF (NQWAIT .NE. 0) GO TO 600 - NQWAIT = 2 - ETAQM1 = ZERO - IF (NQ .EQ. 1) GO TO 570 -C Compute ratio of new H to current H at the current order less one. --- - DDN = DVNORM (N, YH(1,L), EWT)/TQ(1) - ETAQM1 = ONE/((BIAS1*DDN)**(ONE/(FLOTL - ONE)) + ADDON) - 570 ETAQP1 = ZERO - IF (L .EQ. LMAX) GO TO 580 -C Compute ratio of new H to current H at current order plus one. ------- - CNQUOT = (TQ(5)/CONP)*(H/TAU(2))**L - DO 575 I = 1, N - 575 SAVF(I) = ACOR(I) - CNQUOT*YH(I,LMAX) - DUP = DVNORM (N, SAVF, EWT)/TQ(3) - ETAQP1 = ONE/((BIAS3*DUP)**(ONE/(FLOTL + ONE)) + ADDON) - 580 IF (ETAQ .GE. ETAQP1) GO TO 590 - IF (ETAQP1 .GT. ETAQM1) GO TO 620 - GO TO 610 - 590 IF (ETAQ .LT. ETAQM1) GO TO 610 - 600 ETA = ETAQ - NEWQ = NQ - GO TO 630 - 610 ETA = ETAQM1 - NEWQ = NQ - 1 - GO TO 630 - 620 ETA = ETAQP1 - NEWQ = NQ + 1 - CALL DCOPY (N, ACOR, 1, YH(1,LMAX), 1) -C Test tentative new H against THRESH, ETAMAX, and HMXI, then exit. ---- - 630 IF (ETA .LT. THRESH .OR. ETAMAX .EQ. ONE) GO TO 640 - ETA = MIN(ETA,ETAMAX) - ETA = ETA/MAX(ONE,ABS(H)*HMXI*ETA) - NEWH = 1 - HNEW = H*ETA - GO TO 690 - 640 NEWQ = NQ - NEWH = 0 - ETA = ONE - HNEW = H - GO TO 690 -C----------------------------------------------------------------------- -C All returns are made through this section. -C On a successful return, ETAMAX is reset and ACOR is scaled. -C----------------------------------------------------------------------- - 660 KFLAG = -1 - GO TO 720 - 670 KFLAG = -2 - GO TO 720 - 680 IF (NFLAG .EQ. -2) KFLAG = -3 - IF (NFLAG .EQ. -3) KFLAG = -4 - GO TO 720 - 690 ETAMAX = ETAMX3 - IF (NST .LE. 10) ETAMAX = ETAMX2 - 700 R = ONE/TQ(2) - CALL DSCAL (N, R, ACOR, 1) - 720 JSTART = 1 - RETURN -C----------------------- End of Subroutine DVSTEP ---------------------- - END -*DECK DVSET - SUBROUTINE DVSET -C----------------------------------------------------------------------- -C Call sequence communication.. None -C COMMON block variables accessed.. -C /DVOD01/ -- EL(13), H, TAU(13), TQ(5), L(= NQ + 1), -C METH, NQ, NQWAIT -C -C Subroutines called by DVSET.. None -C Function routines called by DVSET.. None -C----------------------------------------------------------------------- -C DVSET is called by DVSTEP and sets coefficients for use there. -C -C For each order NQ, the coefficients in EL are calculated by use of -C the generating polynomial lambda(x), with coefficients EL(i). -C lambda(x) = EL(1) + EL(2)*x + ... + EL(NQ+1)*(x**NQ). -C For the backward differentiation formulas, -C NQ-1 -C lambda(x) = (1 + x/xi*(NQ)) * product (1 + x/xi(i) ) . -C i = 1 -C For the Adams formulas, -C NQ-1 -C (d/dx) lambda(x) = c * product (1 + x/xi(i) ) , -C i = 1 -C lambda(-1) = 0, lambda(0) = 1, -C where c is a normalization constant. -C In both cases, xi(i) is defined by -C H*xi(i) = t sub n - t sub (n-i) -C = H + TAU(1) + TAU(2) + ... TAU(i-1). -C -C -C In addition to variables described previously, communication -C with DVSET uses the following.. -C TAU = A vector of length 13 containing the past NQ values -C of H. -C EL = A vector of length 13 in which vset stores the -C coefficients for the corrector formula. -C TQ = A vector of length 5 in which vset stores constants -C used for the convergence test, the error test, and the -C selection of H at a new order. -C METH = The basic method indicator. -C NQ = The current order. -C L = NQ + 1, the length of the vector stored in EL, and -C the number of columns of the YH array being used. -C NQWAIT = A counter controlling the frequency of order changes. -C An order change is about to be considered if NQWAIT = 1. -C----------------------------------------------------------------------- -C -C Type declarations for labeled COMMON block DVOD01 -------------------- -C - KPP_REAL ACNRM, CCMXJ, CONP, CRATE, DRC, EL, - 1 ETA, ETAMAX, H, HMIN, HMXI, HNEW, HSCAL, PRL1, - 2 RC, RL1, TAU, TQ, TN, UROUND - INTEGER ICF, INIT, IPUP, JCUR, JSTART, JSV, KFLAG, KUTH, - 1 L, LMAX, LYH, LEWT, LACOR, LSAVF, LWM, LIWM, - 2 LOCJS, MAXORD, METH, MITER, MSBJ, MXHNIL, MXSTEP, - 3 N, NEWH, NEWQ, NHNIL, NQ, NQNYH, NQWAIT, NSLJ, - 4 NSLP, NYH -C -C Type declarations for local variables -------------------------------- -C - KPP_REAL AHATN0, ALPH0, CNQM1, CORTES, CSUM, ELP, EM, - 1 EM0, FLOTI, FLOTL, FLOTNQ, HSUM, ONE, RXI, RXIS, S, SIX, - 2 T1, T2, T3, T4, T5, T6, TWO, XI, ZERO - INTEGER I, IBACK, J, JP1, NQM1, NQM2 -C - DIMENSION EM(13) -C----------------------------------------------------------------------- -C The following Fortran-77 declaration is to cause the values of the -C listed (local) variables to be saved between calls to this integrator. -C----------------------------------------------------------------------- - SAVE CORTES, ONE, SIX, TWO, ZERO -C - COMMON /DVOD01/ ACNRM, CCMXJ, CONP, CRATE, DRC, EL(13), - 1 ETA, ETAMAX, H, HMIN, HMXI, HNEW, HSCAL, PRL1, - 2 RC, RL1, TAU(13), TQ(5), TN, UROUND, - 3 ICF, INIT, IPUP, JCUR, JSTART, JSV, KFLAG, KUTH, - 4 L, LMAX, LYH, LEWT, LACOR, LSAVF, LWM, LIWM, - 5 LOCJS, MAXORD, METH, MITER, MSBJ, MXHNIL, MXSTEP, - 6 N, NEWH, NEWQ, NHNIL, NQ, NQNYH, NQWAIT, NSLJ, - 7 NSLP, NYH -C - DATA CORTES /0.1D0/ - DATA ONE /1.0D0/, SIX /6.0D0/, TWO /2.0D0/, ZERO /0.0D0/ -C - FLOTL = REAL(L) - NQM1 = NQ - 1 - NQM2 = NQ - 2 - GO TO (100, 200), METH -C -C Set coefficients for Adams methods. ---------------------------------- - 100 IF (NQ .NE. 1) GO TO 110 - EL(1) = ONE - EL(2) = ONE - TQ(1) = ONE - TQ(2) = TWO - TQ(3) = SIX*TQ(2) - TQ(5) = ONE - GO TO 300 - 110 HSUM = H - EM(1) = ONE - FLOTNQ = FLOTL - ONE - DO 115 I = 2, L - 115 EM(I) = ZERO - DO 150 J = 1, NQM1 - IF ((J .NE. NQM1) .OR. (NQWAIT .NE. 1)) GO TO 130 - S = ONE - CSUM = ZERO - DO 120 I = 1, NQM1 - CSUM = CSUM + S*EM(I)/REAL(I+1) - 120 S = -S - TQ(1) = EM(NQM1)/(FLOTNQ*CSUM) - 130 RXI = H/HSUM - DO 140 IBACK = 1, J - I = (J + 2) - IBACK - 140 EM(I) = EM(I) + EM(I-1)*RXI - HSUM = HSUM + TAU(J) - 150 CONTINUE -C Compute integral from -1 to 0 of polynomial and of x times it. ------- - S = ONE - EM0 = ZERO - CSUM = ZERO - DO 160 I = 1, NQ - FLOTI = REAL(I) - EM0 = EM0 + S*EM(I)/FLOTI - CSUM = CSUM + S*EM(I)/(FLOTI+ONE) - 160 S = -S -C In EL, form coefficients of normalized integrated polynomial. -------- - S = ONE/EM0 - EL(1) = ONE - DO 170 I = 1, NQ - 170 EL(I+1) = S*EM(I)/REAL(I) - XI = HSUM/H - TQ(2) = XI*EM0/CSUM - TQ(5) = XI/EL(L) - IF (NQWAIT .NE. 1) GO TO 300 -C For higher order control constant, multiply polynomial by 1+x/xi(q). - - RXI = ONE/XI - DO 180 IBACK = 1, NQ - I = (L + 1) - IBACK - 180 EM(I) = EM(I) + EM(I-1)*RXI -C Compute integral of polynomial. -------------------------------------- - S = ONE - CSUM = ZERO - DO 190 I = 1, L - CSUM = CSUM + S*EM(I)/REAL(I+1) - 190 S = -S - TQ(3) = FLOTL*EM0/CSUM - GO TO 300 -C -C Set coefficients for BDF methods. ------------------------------------ - 200 DO 210 I = 3, L - 210 EL(I) = ZERO - EL(1) = ONE - EL(2) = ONE - ALPH0 = -ONE - AHATN0 = -ONE - HSUM = H - RXI = ONE - RXIS = ONE - IF (NQ .EQ. 1) GO TO 240 - DO 230 J = 1, NQM2 -C In EL, construct coefficients of (1+x/xi(1))*...*(1+x/xi(j+1)). ------ - HSUM = HSUM + TAU(J) - RXI = H/HSUM - JP1 = J + 1 - ALPH0 = ALPH0 - ONE/REAL(JP1) - DO 220 IBACK = 1, JP1 - I = (J + 3) - IBACK - 220 EL(I) = EL(I) + EL(I-1)*RXI - 230 CONTINUE - ALPH0 = ALPH0 - ONE/REAL(NQ) - RXIS = -EL(2) - ALPH0 - HSUM = HSUM + TAU(NQM1) - RXI = H/HSUM - AHATN0 = -EL(2) - RXI - DO 235 IBACK = 1, NQ - I = (NQ + 2) - IBACK - 235 EL(I) = EL(I) + EL(I-1)*RXIS - 240 T1 = ONE - AHATN0 + ALPH0 - T2 = ONE + REAL(NQ)*T1 - TQ(2) = ABS(ALPH0*T2/T1) - TQ(5) = ABS(T2/(EL(L)*RXI/RXIS)) - IF (NQWAIT .NE. 1) GO TO 300 - CNQM1 = RXIS/EL(L) - T3 = ALPH0 + ONE/REAL(NQ) - T4 = AHATN0 + RXI - ELP = T3/(ONE - T4 + T3) - TQ(1) = ABS(ELP/CNQM1) - HSUM = HSUM + TAU(NQ) - RXI = H/HSUM - T5 = ALPH0 - ONE/REAL(NQ+1) - T6 = AHATN0 - RXI - ELP = T2/(ONE - T6 + T5) - TQ(3) = ABS(ELP*RXI*(FLOTL + ONE)*T5) - 300 TQ(4) = CORTES*TQ(2) - RETURN -C----------------------- End of Subroutine DVSET ----------------------- - END -*DECK DVJUST - SUBROUTINE DVJUST (YH, LDYH, IORD) - KPP_REAL YH - INTEGER LDYH, IORD - DIMENSION YH(LDYH,*) -C----------------------------------------------------------------------- -C Call sequence input -- YH, LDYH, IORD -C Call sequence output -- YH -C COMMON block input -- NQ, METH, LMAX, HSCAL, TAU(13), N -C COMMON block variables accessed.. -C /DVOD01/ -- HSCAL, TAU(13), LMAX, METH, N, NQ, -C -C Subroutines called by DVJUST.. DAXPY -C Function routines called by DVJUST.. None -C----------------------------------------------------------------------- -C This subroutine adjusts the YH array on reduction of order, -C and also when the order is increased for the stiff option (METH = 2). -C Communication with DVJUST uses the following.. -C IORD = An integer flag used when METH = 2 to indicate an order -C increase (IORD = +1) or an order decrease (IORD = -1). -C HSCAL = Step size H used in scaling of Nordsieck array YH. -C (If IORD = +1, DVJUST assumes that HSCAL = TAU(1).) -C See References 1 and 2 for details. -C----------------------------------------------------------------------- -C -C Type declarations for labeled COMMON block DVOD01 -------------------- -C - KPP_REAL ACNRM, CCMXJ, CONP, CRATE, DRC, EL, - 1 ETA, ETAMAX, H, HMIN, HMXI, HNEW, HSCAL, PRL1, - 2 RC, RL1, TAU, TQ, TN, UROUND - INTEGER ICF, INIT, IPUP, JCUR, JSTART, JSV, KFLAG, KUTH, - 1 L, LMAX, LYH, LEWT, LACOR, LSAVF, LWM, LIWM, - 2 LOCJS, MAXORD, METH, MITER, MSBJ, MXHNIL, MXSTEP, - 3 N, NEWH, NEWQ, NHNIL, NQ, NQNYH, NQWAIT, NSLJ, - 4 NSLP, NYH -C -C Type declarations for local variables -------------------------------- -C - KPP_REAL ALPH0, ALPH1, HSUM, ONE, PROD, T1, XI,XIOLD, ZERO - INTEGER I, IBACK, J, JP1, LP1, NQM1, NQM2, NQP1 -C----------------------------------------------------------------------- -C The following Fortran-77 declaration is to cause the values of the -C listed (local) variables to be saved between calls to this integrator. -C----------------------------------------------------------------------- - SAVE ONE, ZERO -C - COMMON /DVOD01/ ACNRM, CCMXJ, CONP, CRATE, DRC, EL(13), - 1 ETA, ETAMAX, H, HMIN, HMXI, HNEW, HSCAL, PRL1, - 2 RC, RL1, TAU(13), TQ(5), TN, UROUND, - 3 ICF, INIT, IPUP, JCUR, JSTART, JSV, KFLAG, KUTH, - 4 L, LMAX, LYH, LEWT, LACOR, LSAVF, LWM, LIWM, - 5 LOCJS, MAXORD, METH, MITER, MSBJ, MXHNIL, MXSTEP, - 6 N, NEWH, NEWQ, NHNIL, NQ, NQNYH, NQWAIT, NSLJ, - 7 NSLP, NYH -C - DATA ONE /1.0D0/, ZERO /0.0D0/ -C - IF ((NQ .EQ. 2) .AND. (IORD .NE. 1)) RETURN - NQM1 = NQ - 1 - NQM2 = NQ - 2 - GO TO (100, 200), METH -C----------------------------------------------------------------------- -C Nonstiff option... -C Check to see if the order is being increased or decreased. -C----------------------------------------------------------------------- - 100 CONTINUE - IF (IORD .EQ. 1) GO TO 180 -C Order decrease. ------------------------------------------------------ - DO 110 J = 1, LMAX - 110 EL(J) = ZERO - EL(2) = ONE - HSUM = ZERO - DO 130 J = 1, NQM2 -C Construct coefficients of x*(x+xi(1))*...*(x+xi(j)). ----------------- - HSUM = HSUM + TAU(J) - XI = HSUM/HSCAL - JP1 = J + 1 - DO 120 IBACK = 1, JP1 - I = (J + 3) - IBACK - 120 EL(I) = EL(I)*XI + EL(I-1) - 130 CONTINUE -C Construct coefficients of integrated polynomial. --------------------- - DO 140 J = 2, NQM1 - 140 EL(J+1) = REAL(NQ)*EL(J)/REAL(J) -C Subtract correction terms from YH array. ----------------------------- - DO 170 J = 3, NQ - DO 160 I = 1, N - 160 YH(I,J) = YH(I,J) - YH(I,L)*EL(J) - 170 CONTINUE - RETURN -C Order increase. ------------------------------------------------------ -C Zero out next column in YH array. ------------------------------------ - 180 CONTINUE - LP1 = L + 1 - DO 190 I = 1, N - 190 YH(I,LP1) = ZERO - RETURN -C----------------------------------------------------------------------- -C Stiff option... -C Check to see if the order is being increased or decreased. -C----------------------------------------------------------------------- - 200 CONTINUE - IF (IORD .EQ. 1) GO TO 300 -C Order decrease. ------------------------------------------------------ - DO 210 J = 1, LMAX - 210 EL(J) = ZERO - EL(3) = ONE - HSUM = ZERO - DO 230 J = 1,NQM2 -C Construct coefficients of x*x*(x+xi(1))*...*(x+xi(j)). --------------- - HSUM = HSUM + TAU(J) - XI = HSUM/HSCAL - JP1 = J + 1 - DO 220 IBACK = 1, JP1 - I = (J + 4) - IBACK - 220 EL(I) = EL(I)*XI + EL(I-1) - 230 CONTINUE -C Subtract correction terms from YH array. ----------------------------- - DO 250 J = 3,NQ - DO 240 I = 1, N - 240 YH(I,J) = YH(I,J) - YH(I,L)*EL(J) - 250 CONTINUE - RETURN -C Order increase. ------------------------------------------------------ - 300 DO 310 J = 1, LMAX - 310 EL(J) = ZERO - EL(3) = ONE - ALPH0 = -ONE - ALPH1 = ONE - PROD = ONE - XIOLD = ONE - HSUM = HSCAL - IF (NQ .EQ. 1) GO TO 340 - DO 330 J = 1, NQM1 -C Construct coefficients of x*x*(x+xi(1))*...*(x+xi(j)). --------------- - JP1 = J + 1 - HSUM = HSUM + TAU(JP1) - XI = HSUM/HSCAL - PROD = PROD*XI - ALPH0 = ALPH0 - ONE/REAL(JP1) - ALPH1 = ALPH1 + ONE/XI - DO 320 IBACK = 1, JP1 - I = (J + 4) - IBACK - 320 EL(I) = EL(I)*XIOLD + EL(I-1) - XIOLD = XI - 330 CONTINUE - 340 CONTINUE - T1 = (-ALPH0 - ALPH1)/PROD -C Load column L + 1 in YH array. --------------------------------------- - LP1 = L + 1 - DO 350 I = 1, N - 350 YH(I,LP1) = T1*YH(I,LMAX) -C Add correction terms to YH array. ------------------------------------ - NQP1 = NQ + 1 - DO 370 J = 3, NQP1 - CALL DAXPY (N, EL(J), YH(1,LP1), 1, YH(1,J), 1 ) - 370 CONTINUE - RETURN -C----------------------- End of Subroutine DVJUST ---------------------- - END -*DECK DVNLSD - SUBROUTINE DVNLSD (Y, YH, LDYH, VSAV, SAVF, EWT, ACOR, IWM, WM, - 1 F, JAC, PDUM, NFLAG, RPAR, IPAR) - EXTERNAL F, JAC, PDUM - KPP_REAL Y, YH, VSAV, SAVF, EWT, ACOR, WM, RPAR - INTEGER LDYH, IWM, NFLAG, IPAR - DIMENSION Y(*), YH(LDYH,*), VSAV(*), SAVF(*), EWT(*), ACOR(*), - 1 IWM(*), WM(*), RPAR(*), IPAR(*) - -C----------------------------------------------------------------------- -C Call sequence input -- Y, YH, LDYH, SAVF, EWT, ACOR, IWM, WM, -C F, JAC, NFLAG, RPAR, IPAR -C Call sequence output -- YH, ACOR, WM, IWM, NFLAG -C COMMON block variables accessed.. -C /DVOD01/ ACNRM, CRATE, DRC, H, RC, RL1, TQ(5), TN, ICF, -C JCUR, METH, MITER, N, NSLP -C /DVOD02/ HU, NCFN, NETF, NFE, NJE, NLU, NNI, NQU, NST -C -C Subroutines called by DVNLSD.. F, DAXPY, DCOPY, DSCAL, DVJAC, DVSOL -C Function routines called by DVNLSD.. DVNORM -C----------------------------------------------------------------------- -C Subroutine DVNLSD is a nonlinear system solver, which uses functional -C iteration or a chord (modified Newton) method. For the chord method -C direct linear algebraic system solvers are used. Subroutine DVNLSD -C then handles the corrector phase of this integration package. -C -C Communication with DVNLSD is done with the following variables. (For -C more details, please see the comments in the driver subroutine.) -C -C Y = The dependent variable, a vector of length N, input. -C YH = The Nordsieck (Taylor) array, LDYH by LMAX, input -C and output. On input, it contains predicted values. -C LDYH = A constant .ge. N, the first dimension of YH, input. -C VSAV = Unused work array. -C SAVF = A work array of length N. -C EWT = An error weight vector of length N, input. -C ACOR = A work array of length N, used for the accumulated -C corrections to the predicted y vector. -C WM,IWM = Real and integer work arrays associated with matrix -C operations in chord iteration (MITER .ne. 0). -C F = Dummy name for user supplied routine for f. -C JAC = Dummy name for user supplied Jacobian routine. -C PDUM = Unused dummy subroutine name. Included for uniformity -C over collection of integrators. -C NFLAG = Input/output flag, with values and meanings as follows.. -C INPUT -C 0 first CALL for this time step. -C -1 convergence failure in previous CALL to DVNLSD. -C -2 error test failure in DVSTEP. -C OUTPUT -C 0 successful completion of nonlinear solver. -C -1 convergence failure or singular matrix. -C -2 unrecoverable error in matrix preprocessing -C (cannot occur here). -C -3 unrecoverable error in solution (cannot occur -C here). -C RPAR, IPAR = Dummy names for user's real and integer work arrays. -C -C IPUP = Own variable flag with values and meanings as follows.. -C 0, do not update the Newton matrix. -C MITER .ne. 0, update Newton matrix, because it is the -C initial step, order was changed, the error -C test failed, or an update is indicated by -C the scalar RC or step counter NST. -C -C For more details, see comments in driver subroutine. -C----------------------------------------------------------------------- -C Type declarations for labeled COMMON block DVOD01 -------------------- -C - KPP_REAL ACNRM, CCMXJ, CONP, CRATE, DRC, EL, - 1 ETA, ETAMAX, H, HMIN, HMXI, HNEW, HSCAL, PRL1, - 2 RC, RL1, TAU, TQ, TN, UROUND - INTEGER ICF, INIT, IPUP, JCUR, JSTART, JSV, KFLAG, KUTH, - 1 L, LMAX, LYH, LEWT, LACOR, LSAVF, LWM, LIWM, - 2 LOCJS, MAXORD, METH, MITER, MSBJ, MXHNIL, MXSTEP, - 3 N, NEWH, NEWQ, NHNIL, NQ, NQNYH, NQWAIT, NSLJ, - 4 NSLP, NYH -C -C Type declarations for labeled COMMON block DVOD02 -------------------- -C - KPP_REAL HU - INTEGER NCFN, NETF, NFE, NJE, NLU, NNI, NQU, NST -C -C Type declarations for local variables -------------------------------- -C - KPP_REAL CCMAX, CRDOWN, CSCALE, DCON, DEL, DELP, ONE, - 1 RDIV, TWO, ZERO - INTEGER I, IERPJ, IERSL, M, MAXCOR, MSBP -C -C Type declaration for function subroutines called --------------------- -C - KPP_REAL DVNORM, STEPCUT -C----------------------------------------------------------------------- -C The following Fortran-77 declaration is to cause the values of the -C listed (local) variables to be saved between calls to this integrator. -C----------------------------------------------------------------------- - SAVE CCMAX, CRDOWN, MAXCOR, MSBP, RDIV, ONE, TWO, ZERO -C - COMMON /DVOD01/ ACNRM, CCMXJ, CONP, CRATE, DRC, EL(13), - 1 ETA, ETAMAX, H, HMIN, HMXI, HNEW, HSCAL, PRL1, - 2 RC, RL1, TAU(13), TQ(5), TN, UROUND, - 3 ICF, INIT, IPUP, JCUR, JSTART, JSV, KFLAG, KUTH, - 4 L, LMAX, LYH, LEWT, LACOR, LSAVF, LWM, LIWM, - 5 LOCJS, MAXORD, METH, MITER, MSBJ, MXHNIL, MXSTEP, - 6 N, NEWH, NEWQ, NHNIL, NQ, NQNYH, NQWAIT, NSLJ, - 7 NSLP, NYH - COMMON /DVOD02/ HU, NCFN, NETF, NFE, NJE, NLU, NNI, NQU, NST -C - COMMON /VERWER/ IVERWER, IBEGIN, STEPCUT - DATA CCMAX /0.3D0/, CRDOWN /0.3D0/, MAXCOR /3/, MSBP /20/, - 1 RDIV /2.0D0/ - DATA ONE /1.0D0/, TWO /2.0D0/, ZERO /0.0D0/ -C----------------------------------------------------------------------- -C On the first step, on a change of method order, or after a -C nonlinear convergence failure with NFLAG = -2, set IPUP = MITER -C to force a Jacobian update when MITER .ne. 0. -C----------------------------------------------------------------------- - if ( (h.lt.stepcut).and.(IBEGIN.eq.1) ) then -c if (h.lt.stepcut) then - iverwer = 1 - else - ibegin = 0 - iverwer = 0 - end if - IF (JSTART .EQ. 0) NSLP = 0 - IF (NFLAG .EQ. 0) ICF = 0 - IF (NFLAG .EQ. -2) IPUP = MITER - IF ( (JSTART .EQ. 0) .OR. (JSTART .EQ. -1) ) IPUP = MITER -C If this is functional iteration, set CRATE .eq. 1 and drop to 220 - IF (MITER .EQ. 0) THEN - CRATE = ONE - GO TO 220 - ENDIF -C----------------------------------------------------------------------- -C RC is the ratio of new to old values of the coefficient H/EL(2)=h/l1. -C When RC differs from 1 by more than CCMAX, IPUP is set to MITER -C to force DVJAC to be called, if a Jacobian is involved. -C In any case, DVJAC is called at least every MSBP steps. -C----------------------------------------------------------------------- - DRC = ABS(RC-ONE) - IF (DRC .GT. CCMAX .OR. NST .GE. NSLP+MSBP) IPUP = MITER -C----------------------------------------------------------------------- -C Up to MAXCOR corrector iterations are taken. A convergence test is -C made on the r.m.s. norm of each correction, weighted by the error -C weight vector EWT. The sum of the corrections is accumulated in the -C vector ACOR(i). The YH array is not altered in the corrector loop. -C----------------------------------------------------------------------- - 220 M = 0 - DELP = ZERO - CALL DCOPY (N, YH(1,1), 1, Y, 1 ) - CALL F (N, TN, Y, SAVF) - NFE = NFE + 1 - IF (IPUP .LE. 0) GO TO 250 -C----------------------------------------------------------------------- -C If indicated, the matrix P = I - h*rl1*J is reevaluated and -C preprocessed before starting the corrector iteration. IPUP is set -C to 0 as an indicator that this has been done. -C----------------------------------------------------------------------- - IF (IVERWER.EQ.0) THEN - CALL DVJAC (Y, YH, LDYH, EWT, ACOR, SAVF, WM, IWM, F, JAC, IERPJ, - 1 RPAR, IPAR) - ELSE - IERPJ = 0 - END IF - IPUP = 0 - RC = ONE - DRC = ZERO - CRATE = ONE - NSLP = NST -C If matrix is singular, take error return to force cut in step size. -- - IF (IERPJ .NE. 0) GO TO 430 - 250 DO 260 I = 1,N - 260 ACOR(I) = ZERO -C This is a looping point for the corrector iteration. ----------------- - 270 IF (MITER .NE. 0) GO TO 350 -C----------------------------------------------------------------------- -C In the case of functional iteration, update Y directly from -C the result of the last function evaluation. -C----------------------------------------------------------------------- - DO 280 I = 1,N - 280 SAVF(I) = RL1*(H*SAVF(I) - YH(I,2)) - DO 290 I = 1,N - 290 Y(I) = SAVF(I) - ACOR(I) - DEL = DVNORM (N, Y, EWT) - DO 300 I = 1,N - 300 Y(I) = YH(I,1) + SAVF(I) - CALL DCOPY (N, SAVF, 1, ACOR, 1) - GO TO 400 -C----------------------------------------------------------------------- -C In the case of the chord method, compute the corrector error, -C and solve the linear system with that as right-hand side and -C P as coefficient matrix. The correction is scaled by the factor -C 2/(1+RC) to account for changes in h*rl1 since the last DVJAC call. -C----------------------------------------------------------------------- - 350 continue - if (IVERWER.EQ.1) then - CRATE = 1 - DO I = 1,N - Y(I) = SAVF(I) - ACOR(I) - end do - DEL = DVNORM (N, Y, EWT) - DO I = 1,N - Y(I) = YH(I,1) + SAVF(I) - end do - CALL DCOPY (N, SAVF, 1, ACOR, 1) - GO TO 400 - end if - DO 360 I = 1,N - 360 Y(I) = (RL1*H)*SAVF(I) - (RL1*YH(I,2) + ACOR(I)) - CALL DVSOL (WM, IWM, Y, IERSL) - NNI = NNI + 1 - IF (IERSL .GT. 0) GO TO 410 - IF (METH .EQ. 2 .AND. RC .NE. ONE) THEN - CSCALE = TWO/(ONE + RC) - CALL DSCAL (N, CSCALE, Y, 1) - ENDIF - DEL = DVNORM (N, Y, EWT) - CALL DAXPY (N, ONE, Y, 1, ACOR, 1) - DO 380 I = 1,N - 380 Y(I) = YH(I,1) + ACOR(I) -C----------------------------------------------------------------------- -C Test for convergence. If M .gt. 0, an estimate of the convergence -C rate constant is stored in CRATE, and this is used in the test. -C----------------------------------------------------------------------- - 400 IF (M .NE. 0) CRATE = MAX(CRDOWN*CRATE,DEL/DELP) - DCON = DEL*MIN(ONE,CRATE)/TQ(4) - IF (DCON .LE. ONE) GO TO 450 - M = M + 1 - IF (M .EQ. MAXCOR) GO TO 410 - IF (M .GE. 2 .AND. DEL .GT. RDIV*DELP) GO TO 410 - DELP = DEL - CALL F (N, TN, Y, SAVF) - NFE = NFE + 1 - GO TO 270 -C - 410 IF (MITER .EQ. 0 .OR. JCUR .EQ. 1) GO TO 430 - ICF = 1 - IPUP = MITER - GO TO 220 -C - 430 CONTINUE - NFLAG = -1 - ICF = 2 - IPUP = MITER - RETURN -C -C Return for successful step. ------------------------------------------ - 450 NFLAG = 0 - JCUR = 0 - ICF = 0 - IF (M .EQ. 0) ACNRM = DEL - IF (M .GT. 0) ACNRM = DVNORM (N, ACOR, EWT) - RETURN -C----------------------- End of Subroutine DVNLSD ---------------------- - END - -*DECK DVJAC - SUBROUTINE DVJAC (Y, YH, LDYH, EWT, FTEM, SAVF, WM, IWM, FUN, JAC, - 1 IERPJ, RPAR, IPAR) -C IMPLICIT KPP_REAL (A-H, O-Z) - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Sparse.h' - EXTERNAL FUN, JAC - KPP_REAL Y, YH, EWT, FTEM, SAVF, WM, RPAR - INTEGER LDYH, IWM, IERPJ, IPAR - DIMENSION Y(*), YH(LDYH,*), EWT(*), FTEM(*), SAVF(*), - 1 WM(*), IWM(*), RPAR(*), IPAR(*) - -C----------------------------------------------------------------------- -C Call sequence input -- Y, YH, LDYH, EWT, FTEM, SAVF, WM, IWM, -C FUN, JAC, RPAR, IPAR -C Call sequence output -- WM, IWM, IERPJ -C COMMON block variables accessed.. -C /DVOD01/ CCMXJ, DRC, H, RL1, TN, UROUND, ICF, JCUR, LOCJS, -C MSBJ, NSLJ -C /DVOD02/ NFE, NST, NJE, NLU -C -C Subroutines called by DVJAC.. FUN, JAC, DACOPY, DCOPY, DGBFA, DGEFA, -C DSCAL -C Function routines called by DVJAC.. DVNORM -C----------------------------------------------------------------------- -C DVJAC is called by DVSTEP to compute and process the matrix -C P = I - h*rl1*J , where J is an approximation to the Jacobian. -C Here J is computed by the user-supplied routine JAC if -C MITER = 1 or 4, or by finite differencing if MITER = 2, 3, or 5. -C If MITER = 3, a diagonal approximation to J is used. -C If JSV = -1, J is computed from scratch in all cases. -C If JSV = 1 and MITER = 1, 2, 4, or 5, and if the saved value of J is -C considered acceptable, then P is constructed from the saved J. -C J is stored in wm and replaced by P. If MITER .ne. 3, P is then -C subjected to LU decomposition in preparation for later solution -C of linear systems with P as coefficient matrix. This is done -C by DGEFA if MITER = 1 or 2, and by DGBFA if MITER = 4 or 5. -C -C Communication with DVJAC is done with the following variables. (For -C more details, please see the comments in the driver subroutine.) -C Y = Vector containing predicted values on entry. -C YH = The Nordsieck array, an LDYH by LMAX array, input. -C LDYH = A constant .ge. N, the first dimension of YH, input. -C EWT = An error weight vector of length N. -C SAVF = Array containing f evaluated at predicted y, input. -C WM = Real work space for matrices. In the output, it containS -C the inverse diagonal matrix if MITER = 3 and the LU -C decomposition of P if MITER is 1, 2 , 4, or 5. -C Storage of matrix elements starts at WM(3). -C Storage of the saved Jacobian starts at WM(LOCJS). -C WM also contains the following matrix-related data.. -C WM(1) = SQRT(UROUND), used in numerical Jacobian step. -C WM(2) = H*RL1, saved for later use if MITER = 3. -C IWM = Integer work space containing pivot information, -C starting at IWM(31), if MITER is 1, 2, 4, or 5. -C IWM also contains band parameters ML = IWM(1) and -C MU = IWM(2) if MITER is 4 or 5. -C FUN = Dummy name for the user supplied subroutine for f. -C JAC = Dummy name for the user supplied Jacobian subroutine. -C RPAR, IPAR = Dummy names for user's real and integer work arrays. -C RL1 = 1/EL(2) (input). -C IERPJ = Output error flag, = 0 if no trouble, 1 if the P -C matrix is found to be singular. -C JCUR = Output flag to indicate whether the Jacobian matrix -C (or approximation) is now current. -C JCUR = 0 means J is not current. -C JCUR = 1 means J is current. -C----------------------------------------------------------------------- -C -C Type declarations for labeled COMMON block DVOD01 -------------------- -C - KPP_REAL ACNRM, CCMXJ, CONP, CRATE, DRC, EL, - 1 ETA, ETAMAX, H, HMIN, HMXI, HNEW, HSCAL, PRL1, - 2 RC, RL1, TAU, TQ, TN, UROUND - INTEGER ICF, INIT, IPUP, JCUR, JSTART, JSV, KFLAG, KUTH, - 1 L, LMAX, LYH, LEWT, LACOR, LSAVF, LWM, LIWM, - 2 LOCJS, MAXORD, METH, MITER, MSBJ, MXHNIL, MXSTEP, - 3 N, NEWH, NEWQ, NHNIL, NQ, NQNYH, NQWAIT, NSLJ, - 4 NSLP, NYH -C -C Type declarations for labeled COMMON block DVOD02 -------------------- -C - KPP_REAL HU - INTEGER NCFN, NETF, NFE, NJE, NLU, NNI, NQU, NST -C -C Type declarations for local variables -------------------------------- -C - KPP_REAL CON, DI, FAC, HRL1, ONE, PT1, R, R0, SRUR, THOU, - 1 YI, YJ, YJJ, ZERO - INTEGER I, I1, I2, IER, II, J, J1, JJ, JOK, LENP, MBA, MBAND, - 1 MEB1, MEBAND, ML, ML3, MU, NP1 -C -C Type declaration for function subroutines called --------------------- -C - KPP_REAL DVNORM -C----------------------------------------------------------------------- -C The following Fortran-77 declaration is to cause the values of the -C listed (local) variables to be saved between calls to this subroutine. -C----------------------------------------------------------------------- - SAVE ONE, PT1, THOU, ZERO -C----------------------------------------------------------------------- - COMMON /DVOD01/ ACNRM, CCMXJ, CONP, CRATE, DRC, EL(13), - 1 ETA, ETAMAX, H, HMIN, HMXI, HNEW, HSCAL, PRL1, - 2 RC, RL1, TAU(13), TQ(5), TN, UROUND, - 3 ICF, INIT, IPUP, JCUR, JSTART, JSV, KFLAG, KUTH, - 4 L, LMAX, LYH, LEWT, LACOR, LSAVF, LWM, LIWM, - 5 LOCJS, MAXORD, METH, MITER, MSBJ, MXHNIL, MXSTEP, - 6 N, NEWH, NEWQ, NHNIL, NQ, NQNYH, NQWAIT, NSLJ, - 7 NSLP, NYH - COMMON /DVOD02/ HU, NCFN, NETF, NFE, NJE, NLU, NNI, NQU, NST -C - DATA ONE /1.0D0/, THOU /1000.0D0/, ZERO /0.0D0/, PT1 /0.1D0/ -C - IER = 0 - IERPJ = 0 - HRL1 = H*RL1 -C See whether J should be evaluated (JOK = -1) or not (JOK = 1). ------- - JOK = JSV - IF (JSV .EQ. 1) THEN - IF (NST .EQ. 0 .OR. NST .GT. NSLJ+MSBJ) JOK = -1 - IF (ICF .EQ. 1 .AND. DRC .LT. CCMXJ) JOK = -1 - IF (ICF .EQ. 2) JOK = -1 - ENDIF -C End of setting JOK. -------------------------------------------------- -C - IF (JOK .EQ. -1 .AND. MITER .EQ. 1) THEN -C If JOK = -1 and MITER = 1, CALL JAC to evaluate Jacobian. ------------ - NJE = NJE + 1 - NSLJ = NST - JCUR = 1 - LENP = LU_NONZERO - DO 110 I = 1,LENP - 110 WM(I+2) = ZERO - -c CALL Update_SUN(TN) -c CALL Update_RCONST() - CALL JAC (N, TN, Y, WM(3)) - IF (JSV .EQ. 1) CALL DCOPY (LENP, WM(3), 1, WM(LOCJS), 1) - ENDIF -C - IF (JOK .EQ. -1 .AND. MITER .EQ. 2) THEN -C If MITER = 2, make N calls to FUN to approximate the Jacobian. --------- - NJE = NJE + 1 - NSLJ = NST - JCUR = 1 - FAC = DVNORM (N, SAVF, EWT) - R0 = THOU*ABS(H)*UROUND*REAL(N)*FAC - IF (R0 .EQ. ZERO) R0 = ONE - SRUR = WM(1) - J1 = 2 - DO 230 J = 1,N - YJ = Y(J) - R = MAX(SRUR*ABS(YJ),R0/EWT(J)) - Y(J) = Y(J) + R - FAC = ONE/R - CALL FUN (N, TN, Y, FTEM) - DO 220 I = 1,N - 220 WM(I+J1) = (FTEM(I) - SAVF(I))*FAC - Y(J) = YJ - J1 = J1 + N - 230 CONTINUE - NFE = NFE + N - LENP = LU_NONZERO - IF (JSV .EQ. 1) CALL DCOPY (LENP, WM(3), 1, WM(LOCJS), 1) - ENDIF -C - IF (JOK .EQ. 1 .AND. (MITER .EQ. 1 .OR. MITER .EQ. 2)) THEN - JCUR = 0 - LENP = LU_NONZERO - CALL DCOPY (LENP, WM(LOCJS), 1, WM(3), 1) - ENDIF -C - IF (MITER .EQ. 1 .OR. MITER .EQ. 2) THEN -C Multiply Jacobian by scalar, add identity, and do LU decomposition. -- - CON = -HRL1 - CALL DSCAL (LENP, CON, WM(3), 1) - J = 3 - NP1 = N + 1 - DO 250 I = 1,N - WM(2+LU_DIAG(i)) = WM(2+LU_DIAG(i)) + ONE - 250 CONTINUE - NLU = NLU + 1 -C CALL DGEFA (WM(3), N, N, IWM(31), IER) - CALL KppDecomp ( WM(3), IER) - IF (IER .NE. 0) IERPJ = 1 - RETURN - ENDIF -C End of code block for MITER = 1 or 2. -------------------------------- -C - IF (MITER .EQ. 3) THEN -C If MITER = 3, construct a diagonal approximation to J and P. --------- - NJE = NJE + 1 - JCUR = 1 - WM(2) = HRL1 - R = RL1*PT1 - DO 310 I = 1,N - 310 Y(I) = Y(I) + R*(H*SAVF(I) - YH(I,2)) - CALL FUN (N, TN, Y, WM(3)) - NFE = NFE + 1 - DO 320 I = 1,N - R0 = H*SAVF(I) - YH(I,2) - DI = PT1*R0 - H*(WM(I+2) - SAVF(I)) - WM(I+2) = ONE - IF (ABS(R0) .LT. UROUND/EWT(I)) GO TO 320 - IF (ABS(DI) .EQ. ZERO) GO TO 330 - WM(I+2) = PT1*R0/DI - 320 CONTINUE - RETURN - 330 IERPJ = 1 - RETURN - ENDIF -C End of code block for MITER = 3. ------------------------------------- -C -C Set constants for MITER = 4 or 5. ------------------------------------ - ML = IWM(1) - MU = IWM(2) - ML3 = ML + 3 - MBAND = ML + MU + 1 - MEBAND = MBAND + ML - LENP = MEBAND*N -C - IF (JOK .EQ. -1 .AND. MITER .EQ. 4) THEN -C If JOK = -1 and MITER = 4, CALL JAC to evaluate Jacobian. ------------ - NJE = NJE + 1 - NSLJ = NST - JCUR = 1 - DO 410 I = 1,LENP - 410 WM(I+2) = ZERO - -c CALL Update_SUN(TN) -c CALL Update_RCONST() - CALL JAC (N, TN, Y, WM(ML3)) - IF (JSV .EQ. 1) - 1 CALL DACOPY (MBAND, N, WM(ML3), MEBAND, WM(LOCJS), MBAND) - ENDIF -C - IF (JOK .EQ. -1 .AND. MITER .EQ. 5) THEN -C If MITER = 5, make N calls to FUN to approximate the Jacobian. --------- - NJE = NJE + 1 - NSLJ = NST - JCUR = 1 - MBA = MIN(MBAND,N) - MEB1 = MEBAND - 1 - SRUR = WM(1) - FAC = DVNORM (N, SAVF, EWT) - R0 = THOU*ABS(H)*UROUND*REAL(N)*FAC - IF (R0 .EQ. ZERO) R0 = ONE - DO 560 J = 1,MBA - DO 530 I = J,N,MBAND - YI = Y(I) - R = MAX(SRUR*ABS(YI),R0/EWT(I)) - 530 Y(I) = Y(I) + R - CALL FUN (N, TN, Y, FTEM) - DO 550 JJ = J,N,MBAND - Y(JJ) = YH(JJ,1) - YJJ = Y(JJ) - R = MAX(SRUR*ABS(YJJ),R0/EWT(JJ)) - FAC = ONE/R - I1 = MAX(JJ-MU,1) - I2 = MIN(JJ+ML,N) - II = JJ*MEB1 - ML + 2 - DO 540 I = I1,I2 - 540 WM(II+I) = (FTEM(I) - SAVF(I))*FAC - 550 CONTINUE - 560 CONTINUE - NFE = NFE + MBA - IF (JSV .EQ. 1) - 1 CALL DACOPY (MBAND, N, WM(ML3), MEBAND, WM(LOCJS), MBAND) - ENDIF -C - IF (JOK .EQ. 1) THEN - JCUR = 0 - CALL DACOPY (MBAND, N, WM(LOCJS), MBAND, WM(ML3), MEBAND) - ENDIF -C -C Multiply Jacobian by scalar, add identity, and do LU decomposition. - CON = -HRL1 - CALL DSCAL (LENP, CON, WM(3), 1 ) - II = MBAND + 2 - DO 580 I = 1,N - WM(II) = WM(II) + ONE - 580 II = II + MEBAND - NLU = NLU + 1 -C CALL DGBFA (WM(3), MEBAND, N, ML, MU, IWM(31), IER) - IF (IER .NE. 0) IERPJ = 1 - RETURN -C End of code block for MITER = 4 or 5. -------------------------------- -C -C----------------------- End of Subroutine DVJAC ----------------------- - END -*DECK DACOPY - SUBROUTINE DACOPY (NROW, NCOL, A, NROWA, B, NROWB) - KPP_REAL A, B - INTEGER NROW, NCOL, NROWA, NROWB - DIMENSION A(NROWA,NCOL), B(NROWB,NCOL) -C----------------------------------------------------------------------- -C Call sequence input -- NROW, NCOL, A, NROWA, NROWB -C Call sequence output -- B -C COMMON block variables accessed -- None -C -C Subroutines called by DACOPY.. DCOPY -C Function routines called by DACOPY.. None -C----------------------------------------------------------------------- -C This routine copies one rectangular array, A, to another, B, -C where A and B may have different row dimensions, NROWA and NROWB. -C The data copied consists of NROW rows and NCOL columns. -C----------------------------------------------------------------------- - INTEGER IC -C - DO 20 IC = 1,NCOL - CALL DCOPY (NROW, A(1,IC), 1, B(1,IC), 1) - 20 CONTINUE -C - RETURN -C----------------------- End of Subroutine DACOPY ---------------------- - END -*DECK DVSOL - SUBROUTINE DVSOL (WM, IWM, X, IERSL) - KPP_REAL WM, X - INTEGER IWM, IERSL - DIMENSION WM(*), IWM(*), X(*) -C----------------------------------------------------------------------- -C Call sequence input -- WM, IWM, X -C Call sequence output -- X, IERSL -C COMMON block variables accessed.. -C /DVOD01/ -- H, RL1, MITER, N -C -C Subroutines called by DVSOL.. DGESL, DGBSL -C Function routines called by DVSOL.. None -C----------------------------------------------------------------------- -C This routine manages the solution of the linear system arising from -C a chord iteration. It is called if MITER .ne. 0. -C If MITER is 1 or 2, it calls DGESL to accomplish this. -C If MITER = 3 it updates the coefficient H*RL1 in the diagonal -C matrix, and then computes the solution. -C If MITER is 4 or 5, it calls DGBSL. -C Communication with DVSOL uses the following variables.. -C WM = Real work space containing the inverse diagonal matrix if -C MITER = 3 and the LU decomposition of the matrix otherwise. -C Storage of matrix elements starts at WM(3). -C WM also contains the following matrix-related data.. -C WM(1) = SQRT(UROUND) (not used here), -C WM(2) = HRL1, the previous value of H*RL1, used if MITER = 3. -C IWM = Integer work space containing pivot information, starting at -C IWM(31), if MITER is 1, 2, 4, or 5. IWM also contains band -C parameters ML = IWM(1) and MU = IWM(2) if MITER is 4 or 5. -C X = The right-hand side vector on input, and the solution vector -C on output, of length N. -C IERSL = Output flag. IERSL = 0 if no trouble occurred. -C IERSL = 1 if a singular matrix arose with MITER = 3. -C----------------------------------------------------------------------- -C -C Type declarations for labeled COMMON block DVOD01 -------------------- -C - KPP_REAL ACNRM, CCMXJ, CONP, CRATE, DRC, EL, - 1 ETA, ETAMAX, H, HMIN, HMXI, HNEW, HSCAL, PRL1, - 2 RC, RL1, TAU, TQ, TN, UROUND - INTEGER ICF, INIT, IPUP, JCUR, JSTART, JSV, KFLAG, KUTH, - 1 L, LMAX, LYH, LEWT, LACOR, LSAVF, LWM, LIWM, - 2 LOCJS, MAXORD, METH, MITER, MSBJ, MXHNIL, MXSTEP, - 3 N, NEWH, NEWQ, NHNIL, NQ, NQNYH, NQWAIT, NSLJ, - 4 NSLP, NYH -C -C Type declarations for local variables -------------------------------- -C - INTEGER I, MEBAND, ML, MU - KPP_REAL DI, HRL1, ONE, PHRL1, R, ZERO -C----------------------------------------------------------------------- -C The following Fortran-77 declaration is to cause the values of the -C listed (local) variables to be saved between calls to this integrator. -C----------------------------------------------------------------------- - SAVE ONE, ZERO -C - COMMON /DVOD01/ ACNRM, CCMXJ, CONP, CRATE, DRC, EL(13), - 1 ETA, ETAMAX, H, HMIN, HMXI, HNEW, HSCAL, PRL1, - 2 RC, RL1, TAU(13), TQ(5), TN, UROUND, - 3 ICF, INIT, IPUP, JCUR, JSTART, JSV, KFLAG, KUTH, - 4 L, LMAX, LYH, LEWT, LACOR, LSAVF, LWM, LIWM, - 5 LOCJS, MAXORD, METH, MITER, MSBJ, MXHNIL, MXSTEP, - 6 N, NEWH, NEWQ, NHNIL, NQ, NQNYH, NQWAIT, NSLJ, - 7 NSLP, NYH -C - DATA ONE /1.0D0/, ZERO /0.0D0/ -C - IERSL = 0 - GO TO (100, 100, 300, 400, 400), MITER -C 100 CALL DGESL (WM(3), N, N, IWM(31), X, 0) - 100 CALL KppSolve (WM(3), X) - RETURN -C - 300 PHRL1 = WM(2) - HRL1 = H*RL1 - WM(2) = HRL1 - IF (HRL1 .EQ. PHRL1) GO TO 330 - R = HRL1/PHRL1 - DO 320 I = 1,N - DI = ONE - R*(ONE - ONE/WM(I+2)) - IF (ABS(DI) .EQ. ZERO) GO TO 390 - 320 WM(I+2) = ONE/DI -C - 330 DO 340 I = 1,N - 340 X(I) = WM(I+2)*X(I) - RETURN - 390 IERSL = 1 - RETURN -C - 400 ML = IWM(1) - MU = IWM(2) - MEBAND = 2*ML + MU + 1 - CALL KppSolve (WM(3), X) - RETURN -C----------------------- End of Subroutine DVSOL ----------------------- - END -*DECK DVSRCO - SUBROUTINE DVSRCO (RSAV, ISAV, JOB) - KPP_REAL RSAV - INTEGER ISAV, JOB - DIMENSION RSAV(*), ISAV(*) -C----------------------------------------------------------------------- -C Call sequence input -- RSAV, ISAV, JOB -C Call sequence output -- RSAV, ISAV -C COMMON block variables accessed -- All of /DVOD01/ and /DVOD02/ -C -C Subroutines/functions called by DVSRCO.. None -C----------------------------------------------------------------------- -C This routine saves or restores (depending on JOB) the contents of the -C COMMON blocks DVOD01 and DVOD02, which are used internally by DVODE. -C -C RSAV = real array of length 49 or more. -C ISAV = integer array of length 41 or more. -C JOB = flag indicating to save or restore the COMMON blocks.. -C JOB = 1 if COMMON is to be saved (written to RSAV/ISAV). -C JOB = 2 if COMMON is to be restored (read from RSAV/ISAV). -C A CALL with JOB = 2 presumes a prior CALL with JOB = 1. -C----------------------------------------------------------------------- - KPP_REAL RVOD1, RVOD2 - INTEGER IVOD1, IVOD2 - INTEGER I, LENIV1, LENIV2, LENRV1, LENRV2 -C----------------------------------------------------------------------- -C The following Fortran-77 declaration is to cause the values of the -C listed (local) variables to be saved between calls to this integrator. -C----------------------------------------------------------------------- - SAVE LENRV1, LENIV1, LENRV2, LENIV2 -C - COMMON /DVOD01/ RVOD1(48), IVOD1(33) - COMMON /DVOD02/ RVOD2(1), IVOD2(8) - DATA LENRV1/48/, LENIV1/33/, LENRV2/1/, LENIV2/8/ -C - IF (JOB .EQ. 2) GO TO 100 - DO 10 I = 1,LENRV1 - 10 RSAV(I) = RVOD1(I) - DO 15 I = 1,LENRV2 - 15 RSAV(LENRV1+I) = RVOD2(I) -C - DO 20 I = 1,LENIV1 - 20 ISAV(I) = IVOD1(I) - DO 25 I = 1,LENIV2 - 25 ISAV(LENIV1+I) = IVOD2(I) -C - RETURN -C - 100 CONTINUE - DO 110 I = 1,LENRV1 - 110 RVOD1(I) = RSAV(I) - DO 115 I = 1,LENRV2 - 115 RVOD2(I) = RSAV(LENRV1+I) -C - DO 120 I = 1,LENIV1 - 120 IVOD1(I) = ISAV(I) - DO 125 I = 1,LENIV2 - 125 IVOD2(I) = ISAV(LENIV1+I) -C - RETURN -C----------------------- End of Subroutine DVSRCO ---------------------- - END -*DECK DEWSET - SUBROUTINE DEWSET (N, ITOL, RelTol, AbsTol, YCUR, EWT) - KPP_REAL RelTol, AbsTol, YCUR, EWT - INTEGER N, ITOL - DIMENSION RelTol(*), AbsTol(*), YCUR(N), EWT(N) -C----------------------------------------------------------------------- -C Call sequence input -- N, ITOL, RelTol, AbsTol, YCUR -C Call sequence output -- EWT -C COMMON block variables accessed -- None -C -C Subroutines/functions called by DEWSET.. None -C----------------------------------------------------------------------- -C This subroutine sets the error weight vector EWT according to -C EWT(i) = RelTol(i)*abs(YCUR(i)) + AbsTol(i), i = 1,...,N, -C with the subscript on RelTol and/or AbsTol possibly replaced by 1 above, -C depending on the value of ITOL. -C----------------------------------------------------------------------- - INTEGER I -C - GO TO (10, 20, 30, 40), ITOL - 10 CONTINUE - DO 15 I = 1, N - 15 EWT(I) = RelTol(1)*ABS(YCUR(I)) + AbsTol(1) - RETURN - 20 CONTINUE - DO 25 I = 1, N - 25 EWT(I) = RelTol(1)*ABS(YCUR(I)) + AbsTol(I) - RETURN - 30 CONTINUE - DO 35 I = 1, N - 35 EWT(I) = RelTol(I)*ABS(YCUR(I)) + AbsTol(1) - RETURN - 40 CONTINUE - DO 45 I = 1, N - 45 EWT(I) = RelTol(I)*ABS(YCUR(I)) + AbsTol(I) - RETURN -C----------------------- End of Subroutine DEWSET ---------------------- - END -*DECK DVNORM - KPP_REAL FUNCTION DVNORM (N, V, W) - KPP_REAL V, W - INTEGER N - DIMENSION V(N), W(N) -C----------------------------------------------------------------------- -C Call sequence input -- N, V, W -C Call sequence output -- None -C COMMON block variables accessed -- None -C -C Subroutines/functions called by DVNORM.. None -C----------------------------------------------------------------------- -C This function routine computes the weighted root-mean-square norm -C of the vector of length N contained in the array V, with weights -C contained in the array W of length N.. -C DVNORM = sqrt( (1/N) * sum( V(i)*W(i) )**2 ) -C -C LOOP UNROLLING BY ADRIAN SANDU, AUG 2, 1995 -C -C----------------------------------------------------------------------- - KPP_REAL SUM - INTEGER I -C - SUM = 0.0D0 - - 20 m = mod(n,7) - if( m .eq. 0 ) go to 40 - do 30 i = 1,m - SUM = SUM + (V(I)*W(I))**2 - 30 continue - if( n .lt. 7 ) return - 40 mp1 = m + 1 - do 50 i = mp1,n,7 - SUM = SUM + (V(I)*W(I))**2 - SUM = SUM + (V(I + 1)*W(I + 1))**2 - SUM = SUM + (V(I + 2)*W(I + 2))**2 - SUM = SUM + (V(I + 3)*W(I + 3))**2 - SUM = SUM + (V(I + 4)*W(I + 4))**2 - SUM = SUM + (V(I + 5)*W(I + 5))**2 - SUM = SUM + (V(I + 6)*W(I + 6))**2 - 50 continue - - DVNORM = SQRT(SUM/REAL(N)) - RETURN -C----------------------- End of Function DVNORM ------------------------ - END - -*DECK D1MACH - KPP_REAL FUNCTION D1MACH (IDUM) - INTEGER IDUM -C----------------------------------------------------------------------- -C This routine computes the unit roundoff of the machine. -C This is defined as the smallest positive machine number -C u such that 1.0 + u .ne. 1.0 -C -C Subroutines/functions called by D1MACH.. None -C----------------------------------------------------------------------- - KPP_REAL U, COMP - U = 1.0D0 - 10 U = U*0.5D0 - COMP = 1.0D0 + U - IF (COMP .NE. 1.0D0) GO TO 10 - D1MACH = U*2.0D0 - RETURN -C----------------------- End of Function D1MACH ------------------------ - END -*DECK XERRWD - SUBROUTINE XERRWD (MSG, NMES, NERR, LEVEL, NI, I1, I2, NR, R1, R2) - KPP_REAL R1, R2 - INTEGER NMES, NERR, LEVEL, NI, I1, I2, NR - CHARACTER*1 MSG(NMES) -C----------------------------------------------------------------------- -C Subroutines XERRWD, XSETF, XSETUN, and the two function routines -C MFLGSV and LUNSAV, as given here, constitute a simplified version of -C the SLATEC error handling package. -C Written by A. C. Hindmarsh and P. N. Brown at LLNL. -C Version of 13 April, 1989. -C This version is in KPP_REAL. -C -C All arguments are input arguments. -C -C MSG = The message (character array). -C NMES = The length of MSG (number of characters). -C NERR = The error number (not used). -C LEVEL = The error level.. -C 0 or 1 means recoverable (control returns to caller). -C 2 means fatal (run is aborted--see note below). -C NI = Number of integers (0, 1, or 2) to be printed with message. -C I1,I2 = Integers to be printed, depending on NI. -C NR = Number of reals (0, 1, or 2) to be printed with message. -C R1,R2 = Reals to be printed, depending on NR. -C -C Note.. this routine is machine-dependent and specialized for use -C in limited context, in the following ways.. -C 1. The argument MSG is assumed to be of type CHARACTER, and -C the message is printed with a format of (1X,80A1). -C 2. The message is assumed to take only one line. -C Multi-line messages are generated by repeated calls. -C 3. If LEVEL = 2, control passes to the statement STOP -C to abort the run. This statement may be machine-dependent. -C 4. R1 and R2 are assumed to be in KPP_REAL and are printed -C in D21.13 format. -C -C For a different default logical unit number, change the data -C statement in function routine LUNSAV. -C For a different run-abort command, change the statement following -C statement 100 at the end. -C----------------------------------------------------------------------- -C Subroutines called by XERRWD.. None -C Function routines called by XERRWD.. MFLGSV, LUNSAV -C----------------------------------------------------------------------- -C - INTEGER I, LUNIT, LUNSAV, MESFLG, MFLGSV -C -C Get message print flag and logical unit number. ---------------------- - MESFLG = MFLGSV (0,.FALSE.) - LUNIT = LUNSAV (0,.FALSE.) - IF (MESFLG .EQ. 0) GO TO 100 -C Write the message. --------------------------------------------------- - WRITE (LUNIT,10) (MSG(I),I=1,NMES) - 10 FORMAT(1X,80A1) - IF (NI .EQ. 1) WRITE (LUNIT, 20) I1 - 20 FORMAT(6X,'In above message, I1 =',I10) - IF (NI .EQ. 2) WRITE (LUNIT, 30) I1,I2 - 30 FORMAT(6X,'In above message, I1 =',I10,3X,'I2 =',I10) - IF (NR .EQ. 1) WRITE (LUNIT, 40) R1 - 40 FORMAT(6X,'In above message, R1 =',D21.13) - IF (NR .EQ. 2) WRITE (LUNIT, 50) R1,R2 - 50 FORMAT(6X,'In above, R1 =',D21.13,3X,'R2 =',D21.13) -C Abort the run if LEVEL = 2. ------------------------------------------ - 100 IF (LEVEL .NE. 2) RETURN - STOP -C----------------------- End of Subroutine XERRWD ---------------------- - END -*DECK XSETF - SUBROUTINE XSETF (MFLAG) -C----------------------------------------------------------------------- -C This routine resets the print control flag MFLAG. -C -C Subroutines called by XSETF.. None -C Function routines called by XSETF.. MFLGSV -C----------------------------------------------------------------------- - INTEGER MFLAG, JUNK, MFLGSV -C - IF (MFLAG .EQ. 0 .OR. MFLAG .EQ. 1) JUNK = MFLGSV (MFLAG,.TRUE.) - RETURN -C----------------------- End of Subroutine XSETF ----------------------- - END -*DECK XSETUN - SUBROUTINE XSETUN (LUN) -C----------------------------------------------------------------------- -C This routine resets the logical unit number for messages. -C -C Subroutines called by XSETUN.. None -C Function routines called by XSETUN.. LUNSAV -C----------------------------------------------------------------------- - INTEGER LUN, JUNK, LUNSAV -C - IF (LUN .GT. 0) JUNK = LUNSAV (LUN,.TRUE.) - RETURN -C----------------------- End of Subroutine XSETUN ---------------------- - END -*DECK MFLGSV - INTEGER FUNCTION MFLGSV (IVALUE, ISET) - LOGICAL ISET - INTEGER IVALUE -C----------------------------------------------------------------------- -C MFLGSV saves and recalls the parameter MESFLG which controls the -C printing of the error messages. -C -C Saved local variable.. -C -C MESFLG = Print control flag.. -C 1 means print all messages (the default). -C 0 means no printing. -C -C On input.. -C -C IVALUE = The value to be set for the MESFLG parameter, -C if ISET is .TRUE. . -C -C ISET = Logical flag to indicate whether to read or write. -C If ISET=.TRUE., the MESFLG parameter will be given -C the value IVALUE. If ISET=.FALSE., the MESFLG -C parameter will be unchanged, and IVALUE is a dummy -C parameter. -C -C On return.. -C -C The (old) value of the MESFLG parameter will be returned -C in the function value, MFLGSV. -C -C This is a modification of the SLATEC library routine J4SAVE. -C -C Subroutines/functions called by MFLGSV.. None -C----------------------------------------------------------------------- - INTEGER MESFLG -C----------------------------------------------------------------------- -C The following Fortran-77 declaration is to cause the values of the -C listed (local) variables to be saved between calls to this integrator. -C----------------------------------------------------------------------- - SAVE MESFLG - DATA MESFLG/1/ -C - MFLGSV = MESFLG - IF (ISET) MESFLG = IVALUE - RETURN -C----------------------- End of Function MFLGSV ------------------------ - END -*DECK LUNSAV - INTEGER FUNCTION LUNSAV (IVALUE, ISET) - LOGICAL ISET - INTEGER IVALUE -C----------------------------------------------------------------------- -C LUNSAV saves and recalls the parameter LUNIT which is the logical -C unit number to which error messages are printed. -C -C Saved local variable.. -C -C LUNIT = Logical unit number for messages. -C The default is 6 (machine-dependent). -C -C On input.. -C -C IVALUE = The value to be set for the LUNIT parameter, -C if ISET is .TRUE. . -C -C ISET = Logical flag to indicate whether to read or write. -C If ISET=.TRUE., the LUNIT parameter will be given -C the value IVALUE. If ISET=.FALSE., the LUNIT -C parameter will be unchanged, and IVALUE is a dummy -C parameter. -C -C On return.. -C -C The (old) value of the LUNIT parameter will be returned -C in the function value, LUNSAV. -C -C This is a modification of the SLATEC library routine J4SAVE. -C -C Subroutines/functions called by LUNSAV.. None -C----------------------------------------------------------------------- - INTEGER LUNIT -C----------------------------------------------------------------------- -C The following Fortran-77 declaration is to cause the values of the -C listed (local) variables to be saved between calls to this integrator. -C----------------------------------------------------------------------- - SAVE LUNIT - DATA LUNIT/6/ -C - LUNSAV = LUNIT - IF (ISET) LUNIT = IVALUE - RETURN -C----------------------- End of Function LUNSAV ------------------------ - END - - SUBROUTINE VODE_FSPLIT_VAR(N, T, Y, PR) - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Global.h' - INTEGER N - REAL*8 Told, T - REAL*8 Y(NVAR), PR(NVAR) - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, PR ) - TIME = Told - RETURN - END - - SUBROUTINE VODE_Jac_SP(N, T, Y, J) - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Global.h' - INTEGER N - REAL*8 Told, T - REAL*8 Y(NVAR), J(LU_NONZERO) - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Jac_SP( Y, FIX, RCONST, J ) - TIME = Told - RETURN - END - diff --git a/int.modified_WCOPY/kpp_lsode.def b/int.modified_WCOPY/kpp_lsode.def deleted file mode 100644 index 500c69147210bbb694f98305b34d00480754f01d..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/kpp_lsode.def +++ /dev/null @@ -1,7 +0,0 @@ -#FUNCTION AGGREGATE -#JACOBIAN SPARSE_LU_ROW -#DOUBLE ON -#INTFILE kpp_lsode - - - diff --git a/int.modified_WCOPY/kpp_lsode.f90 b/int.modified_WCOPY/kpp_lsode.f90 deleted file mode 100644 index 44c845e21512f1c004787aedb915aedc8fff799d..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/kpp_lsode.f90 +++ /dev/null @@ -1,3421 +0,0 @@ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! -! LSODE - Stiff method based on backward differentiation formulas (BDF) ! -! By default the code employs the KPP sparse linear algebra routines ! -! Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK) ! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! -! A. Sandu - version of July 2005 - -MODULE KPP_ROOT_Integrator - - USE KPP_ROOT_Precision - USE KPP_ROOT_Global, ONLY: FIX, RCONST, TIME, ATOL, RTOL - USE KPP_ROOT_Parameters, ONLY: NVAR, NSPEC, NFIX, LU_NONZERO - USE KPP_ROOT_JacobianSP, ONLY: LU_DIAG - USE KPP_ROOT_LinearAlgebra, ONLY: KppDecomp, KppSolve, & - Set2zero, WLAMCH - - IMPLICIT NONE - PUBLIC - SAVE - - !~~~> Statistics on the work performed by the LSODE method - INTEGER :: Nfun,Njac,Nstp,Nacc,Nrej,Ndec,Nsol,Nsng - INTEGER, PARAMETER :: ifun=1, ijac=2, istp=3, iacc=4, & - irej=5, idec=6, isol=7, isng=8, itexit=1, ihexit=2 - ! SDIRK method coefficients - KPP_REAL :: rkAlpha(5,4), rkBeta(5,4), rkD(4,5), & - rkGamma, rkA(5,5), rkB(5), rkC(5) - - ! mz_rs_20050717: TODO: use strings of IERR_NAMES for error messages - ! description of the error numbers IERR - CHARACTER(LEN=50), PARAMETER, DIMENSION(-8:1) :: IERR_NAMES = (/ & - 'Matrix is repeatedly singular ', & ! -8 - 'Step size too small ', & ! -7 - 'No of steps exceeds maximum bound ', & ! -6 - 'Improper tolerance values ', & ! -5 - 'FacMin/FacMax/FacRej must be positive ', & ! -4 - 'Hmin/Hmax/Hstart must be positive ', & ! -3 - 'Improper value for maximal no of Newton iterations', & ! -2 - 'Improper value for maximal no of steps ', & ! -1 - ' ', & ! 0 (not used) - 'Success ' /) ! 1 - -CONTAINS - -SUBROUTINE INTEGRATE( TIN, TOUT, & - ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U, IERR_U ) - - USE KPP_ROOT_Parameters - USE KPP_ROOT_Global - IMPLICIT NONE - - KPP_REAL, INTENT(IN) :: TIN ! Start Time - KPP_REAL, INTENT(IN) :: TOUT ! End Time - ! Optional input parameters and statistics - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - KPP_REAL, INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - KPP_REAL, INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: IERR_U - - KPP_REAL :: RCNTRL(20), RSTATUS(20) - INTEGER :: ICNTRL(20), ISTATUS(20), IERR -!!$ INTEGER, SAVE :: Ntotal = 0 - - ICNTRL(:) = 0 - RCNTRL(:) = 0.0_dp - ISTATUS(:) = 0 - RSTATUS(:) = 0.0_dp - - ICNTRL(5) = 2 ! maximal order - - ! If optional parameters are given, and if they are >0, - ! then they overwrite default settings. - IF (PRESENT(ICNTRL_U)) THEN - WHERE(ICNTRL_U(:) > 0) ICNTRL(:) = ICNTRL_U(:) - END IF - IF (PRESENT(RCNTRL_U)) THEN - WHERE(RCNTRL_U(:) > 0) RCNTRL(:) = RCNTRL_U(:) - END IF - - CALL KppLsode( TIN,TOUT,VAR,RTOL,ATOL, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR ) - -! mz_rs_20050716: IERR and ISTATUS are returned to the user who then -! decides what to do about it, i.e. either stop the run or ignore it. -!!$ IF (IERR < 0) THEN -!!$ PRINT*,'LSODE: Unsuccessful exit at T=',TIN,' (IERR=',IERR,')' -!!$ STOP -!!$ ENDIF -!!$ Ntotal = Ntotal + ISTATUS(3) -!!$ PRINT*,'Nsteps = ', ISTATUS(3),' (',Ntotal,')' - - STEPMIN = RSTATUS(ihexit) ! Save last step - - ! if optional parameters are given for output they to return information - IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(1:20) - IF (PRESENT(RSTATUS_U)) RSTATUS_U(:) = RSTATUS(1:20) - IF (PRESENT(IERR_U)) THEN - IF (IERR==2) THEN ! DLSODE returns "2" after successful completion - IERR_U = 1 ! IERR_U will return "1" for successful completion - ELSE - IERR_U = IERR - ENDIF - ENDIF - - END SUBROUTINE INTEGRATE - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE KppLsode( TIN,TOUT,Y,RelTol,AbsTol, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT PARAMETERS: -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -!~~~> -! ICNTRL(1) = not used -! -! ICNTRL(2) = 0: AbsTol, RelTol are NVAR-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ICNTRL(3) = not used -! -! ICNTRL(4) -> maximum number of integration steps -! For ICNTRL(4)=0 the default value of 100000 is used -! -! ICNTRL(5) -> maximum order of the integration formula allowed -! -!~~~> Real parameters -! -! RCNTRL(1) -> Hmin, lower bound for the integration step size -! It is strongly recommended to keep Hmin = ZERO -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! RCNTRL(3) -> Hstart, starting value for the integration step size -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT PARAMETERS: -! -! Note: each call to Rosenbrock adds the current no. of fcn calls -! to previous value of ISTATUS(1), and similar for the other params. -! Set ISTATUS(1:10) = 0 before call to avoid this accumulation. -! -! ISTATUS(1) = No. of function calls -! ISTATUS(2) = No. of jacobian calls -! ISTATUS(3) = No. of steps -! -! RSTATUS(1) -> Texit, the time corresponding to the -! computed Y upon return -! RSTATUS(2) -> Hexit, last predicted step before exit -! For multiple restarts, use Hexit as Hstart in the following run -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - KPP_REAL :: Y(NVAR), AbsTol(NVAR), RelTol(NVAR), TIN, TOUT - KPP_REAL :: RCNTRL(20), RSTATUS(20) - INTEGER :: ICNTRL(20), ISTATUS(20) - INTEGER, PARAMETER :: LRW = 25 + 9*NVAR+2*NVAR*NVAR, & - LIW = 32 + NVAR - KPP_REAL :: RWORK(LRW), RPAR(1) - INTEGER :: IWORK(LIW), IPAR(1), ITOL, ITASK, & - IERR, IOPT, MF - - !~~~> NORMAL COMPUTATION - ITASK = 1 - IERR = 1 - IOPT = 1 ! 0=no/1=use optional input - - RWORK(1:30) = 0.0d0 - IWORK(1:30) = 0 - - IF (ICNTRL(2)==0) THEN - ITOL = 4 ! Abs/RelTol are both vectors - ELSE - ITOL = 1 ! Abs/RelTol are both scalars - END IF - IWORK(6) = ICNTRL(4) ! max number of internal steps - IWORK(5) = ICNTRL(5) ! maximal order - - MF = 21 !~~~> stiff case, analytic full Jacobian - - RWORK(5) = RCNTRL(3) ! Hstart - RWORK(6) = RCNTRL(2) ! Hmax - RWORK(7) = RCNTRL(1) ! Hmin - - CALL DLSODE ( FUN_CHEM, NVAR, Y, TIN, TOUT, ITOL, RelTol, AbsTol, ITASK,& - IERR, IOPT, RWORK, LRW, IWORK, LIW, JAC_CHEM, MF) - - ISTATUS(1) = IWORK(12) ! Number of function evaluations - ISTATUS(2) = IWORK(13) ! Number of Jacobian evaluations - ISTATUS(3) = IWORK(11) ! Number of steps - - RSTATUS(1) = TOUT ! mz_rs_20050717 - RSTATUS(2) = RWORK(11) ! mz_rs_20050717 - - END SUBROUTINE KppLsode -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!DECK DLSODE - SUBROUTINE DLSODE (F, NEQ, Y, T, TOUT, ITOL, RelTol, AbsTol, ITASK, & - ISTATE, IOPT, RWORK, LRW, IWORK, LIW, JAC, MF) - EXTERNAL F, JAC - INTEGER NEQ, ITOL, ITASK, ISTATE, IOPT, LRW, LIW, IWORK(LIW), MF - KPP_REAL Y(*), T, TOUT, RelTol(*), AbsTol(*), RWORK(LRW) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!***BEGIN PROLOGUE DLSODE -!***PURPOSE Livermore Solver for Ordinary Differential Equations. -! DLSODE solves the initial-value problem for stiff or -! nonstiff systems of first-order ODE's, -! dy/dt = f(t,y), or, in component form, -! dy(i)/dt = f(i) = f(i,t,y(1),y(2),...,y(N)), i=1,...,N. -!***CATEGORY I1A -!***TYPE KPP_REAL (SLSODE-S, DLSODE-D) -!***KEYWORDS ORDINARY DIFFERENTIAL EQUATIONS, INITIAL VALUE PROBLEM, -! STIFF, NONSTIFF -!***AUTHOR Hindmarsh, Alan C., (LLNL) -! Center for Applied Scientific Computing, L-561 -! Lawrence Livermore National Laboratory -! Livermore, CA 94551. -!***DESCRIPTION -! -! NOTE: The "Usage" and "Arguments" sections treat only a subset of -! available options, in condensed fashion. The options -! covered and the information supplied will support most -! standard uses of DLSODE. -! -! For more sophisticated uses, full details on all options are -! given in the concluding section, headed "Long Description." -! A synopsis of the DLSODE Long Description is provided at the -! beginning of that section; general topics covered are: -! - Elements of the call sequence; optional input and output -! - Optional supplemental routines in the DLSODE package -! - internal COMMON block -! -! *Usage: -! Communication between the user and the DLSODE package, for normal -! situations, is summarized here. This summary describes a subset -! of the available options. See "Long Description" for complete -! details, including optional communication, nonstandard options, -! and instructions for special situations. -! -! A sample program is given in the "Examples" section. -! -! Refer to the argument descriptions for the definitions of the -! quantities that appear in the following sample declarations. -! -! For MF = 10, -! PARAMETER (LRW = 20 + 16*NEQ, LIW = 20) -! For MF = 21 or 22, -! PARAMETER (LRW = 22 + 9*NEQ + NEQ**2, LIW = 20 + NEQ) -! For MF = 24 or 25, -! PARAMETER (LRW = 22 + 10*NEQ + (2*ML+MU)*NEQ, -! * LIW = 20 + NEQ) -! -! EXTERNAL F, JAC -! INTEGER NEQ, ITOL, ITASK, ISTATE, IOPT, LRW, IWORK(LIW), -! * LIW, MF -! KPP_REAL Y(NEQ), T, TOUT, RelTol, AbsTol(ntol), RWORK(LRW) -! -! CALL DLSODE (F, NEQ, Y, T, TOUT, ITOL, RelTol, AbsTol, ITASK, -! * ISTATE, IOPT, RWORK, LRW, IWORK, LIW, JAC, MF) -! -! *Arguments: -! F :EXT Name of subroutine for right-hand-side vector f. -! This name must be declared EXTERNAL in calling -! program. The form of F must be: -! -! SUBROUTINE F (NEQ, T, Y, YDOT) -! INTEGER NEQ -! KPP_REAL T, Y(*), YDOT(*) -! -! The inputs are NEQ, T, Y. F is to set -! -! YDOT(i) = f(i,T,Y(1),Y(2),...,Y(NEQ)), -! i = 1, ..., NEQ . -! -! NEQ :IN Number of first-order ODE's. -! -! Y :INOUT Array of values of the y(t) vector, of length NEQ. -! Input: For the first call, Y should contain the -! values of y(t) at t = T. (Y is an input -! variable only if ISTATE = 1.) -! Output: On return, Y will contain the values at the -! new t-value. -! -! T :INOUT Value of the independent variable. On return it -! will be the current value of t (normally TOUT). -! -! TOUT :IN Next point where output is desired (.NE. T). -! -! ITOL :IN 1 or 2 according as AbsTol (below) is a scalar or -! an array. -! -! RelTol :IN Relative tolerance parameter (scalar). -! -! AbsTol :IN Absolute tolerance parameter (scalar or array). -! If ITOL = 1, AbsTol need not be dimensioned. -! If ITOL = 2, AbsTol must be dimensioned at least NEQ. -! -! The estimated local error in Y(i) will be controlled -! so as to be roughly less (in magnitude) than -! -! EWT(i) = RelTol*ABS(Y(i)) + AbsTol if ITOL = 1, or -! EWT(i) = RelTol*ABS(Y(i)) + AbsTol(i) if ITOL = 2. -! -! Thus the local error test passes if, in each -! component, either the absolute error is less than -! AbsTol (or AbsTol(i)), or the relative error is less -! than RelTol. -! -! Use RelTol = 0.0 for pure absolute error control, and -! use AbsTol = 0.0 (or AbsTol(i) = 0.0) for pure relative -! error control. Caution: Actual (global) errors may -! exceed these local tolerances, so choose them -! conservatively. -! -! ITASK :IN Flag indicating the task DLSODE is to perform. -! Use ITASK = 1 for normal computation of output -! values of y at t = TOUT. -! -! ISTATE:INOUT Index used for input and output to specify the state -! of the calculation. -! Input: -! 1 This is the first call for a problem. -! 2 This is a subsequent call. -! Output: -! 1 Nothing was done, because TOUT was equal to T. -! 2 DLSODE was successful (otherwise, negative). -! Note that ISTATE need not be modified after a -! successful return. -! -1 Excess work done on this call (perhaps wrong -! MF). -! -2 Excess accuracy requested (tolerances too -! small). -! -3 Illegal input detected (see printed message). -! -4 Repeated error test failures (check all -! inputs). -! -5 Repeated convergence failures (perhaps bad -! Jacobian supplied or wrong choice of MF or -! tolerances). -! -6 Error weight became zero during problem -! (solution component i vanished, and AbsTol or -! AbsTol(i) = 0.). -! -! IOPT :IN Flag indicating whether optional inputs are used: -! 0 No. -! 1 Yes. (See "Optional inputs" under "Long -! Description," Part 1.) -! -! RWORK :WORK Real work array of length at least: -! 20 + 16*NEQ for MF = 10, -! 22 + 9*NEQ + NEQ**2 for MF = 21 or 22, -! 22 + 10*NEQ + (2*ML + MU)*NEQ for MF = 24 or 25. -! -! LRW :IN Declared length of RWORK (in user's DIMENSION -! statement). -! -! IWORK :WORK Integer work array of length at least: -! 20 for MF = 10, -! 20 + NEQ for MF = 21, 22, 24, or 25. -! -! If MF = 24 or 25, input in IWORK(1),IWORK(2) the -! lower and upper Jacobian half-bandwidths ML,MU. -! -! On return, IWORK contains information that may be -! of interest to the user: -! -! Name Location Meaning -! ----- --------- ----------------------------------------- -! NST IWORK(11) Number of steps taken for the problem so -! far. -! NFE IWORK(12) Number of f evaluations for the problem -! so far. -! NJE IWORK(13) Number of Jacobian evaluations (and of -! matrix LU decompositions) for the problem -! so far. -! NQU IWORK(14) Method order last used (successfully). -! LENRW IWORK(17) Length of RWORK actually required. This -! is defined on normal returns and on an -! illegal input return for insufficient -! storage. -! LENIW IWORK(18) Length of IWORK actually required. This -! is defined on normal returns and on an -! illegal input return for insufficient -! storage. -! -! LIW :IN Declared length of IWORK (in user's DIMENSION -! statement). -! -! JAC :EXT Name of subroutine for Jacobian matrix (MF = -! 21 or 24). If used, this name must be declared -! EXTERNAL in calling program. If not used, pass a -! dummy name. The form of JAC must be: -! -! SUBROUTINE JAC (NEQ, T, Y, ML, MU, PD, NROWPD) -! INTEGER NEQ, ML, MU, NROWPD -! KPP_REAL T, Y(*), PD(NROWPD,*) -! -! See item c, under "Description" below for more -! information about JAC. -! -! MF :IN Method flag. Standard values are: -! 10 Nonstiff (Adams) method, no Jacobian used. -! 21 Stiff (BDF) method, user-supplied full Jacobian. -! 22 Stiff method, internally generated full -! Jacobian. -! 24 Stiff method, user-supplied banded Jacobian. -! 25 Stiff method, internally generated banded -! Jacobian. -! -! *Description: -! DLSODE solves the initial value problem for stiff or nonstiff -! systems of first-order ODE's, -! -! dy/dt = f(t,y) , -! -! or, in component form, -! -! dy(i)/dt = f(i) = f(i,t,y(1),y(2),...,y(NEQ)) -! (i = 1, ..., NEQ) . -! -! DLSODE is a package based on the GEAR and GEARB packages, and on -! the October 23, 1978, version of the tentative ODEPACK user -! interface standard, with minor modifications. -! -! The steps in solving such a problem are as follows. -! -! a. First write a subroutine of the form -! -! SUBROUTINE F (NEQ, T, Y, YDOT) -! INTEGER NEQ -! KPP_REAL T, Y(*), YDOT(*) -! -! which supplies the vector function f by loading YDOT(i) with -! f(i). -! -! b. Next determine (or guess) whether or not the problem is stiff. -! Stiffness occurs when the Jacobian matrix df/dy has an -! eigenvalue whose real part is negative and large in magnitude -! compared to the reciprocal of the t span of interest. If the -! problem is nonstiff, use method flag MF = 10. If it is stiff, -! there are four standard choices for MF, and DLSODE requires the -! Jacobian matrix in some form. This matrix is regarded either -! as full (MF = 21 or 22), or banded (MF = 24 or 25). In the -! banded case, DLSODE requires two half-bandwidth parameters ML -! and MU. These are, respectively, the widths of the lower and -! upper parts of the band, excluding the main diagonal. Thus the -! band consists of the locations (i,j) with -! -! i - ML <= j <= i + MU , -! -! and the full bandwidth is ML + MU + 1 . -! -! c. If the problem is stiff, you are encouraged to supply the -! Jacobian directly (MF = 21 or 24), but if this is not feasible, -! DLSODE will compute it internally by difference quotients (MF = -! 22 or 25). If you are supplying the Jacobian, write a -! subroutine of the form -! -! SUBROUTINE JAC (NEQ, T, Y, ML, MU, PD, NROWPD) -! INTEGER NEQ, ML, MU, NRWOPD -! KPP_REAL T, Y(*), PD(NROWPD,*) -! -! which provides df/dy by loading PD as follows: -! - For a full Jacobian (MF = 21), load PD(i,j) with df(i)/dy(j), -! the partial derivative of f(i) with respect to y(j). (Ignore -! the ML and MU arguments in this case.) -! - For a banded Jacobian (MF = 24), load PD(i-j+MU+1,j) with -! df(i)/dy(j); i.e., load the diagonal lines of df/dy into the -! rows of PD from the top down. -! - In either case, only nonzero elements need be loaded. -! -! d. Write a main program that calls subroutine DLSODE once for each -! point at which answers are desired. This should also provide -! for possible use of logical unit 6 for output of error messages -! by DLSODE. -! -! Before the first call to DLSODE, set ISTATE = 1, set Y and T to -! the initial values, and set TOUT to the first output point. To -! continue the integration after a successful return, simply -! reset TOUT and call DLSODE again. No other parameters need be -! reset. -! -! *Examples: -! The following is a simple example problem, with the coding needed -! for its solution by DLSODE. The problem is from chemical kinetics, -! and consists of the following three rate equations: -! -! dy1/dt = -.04*y1 + 1.E4*y2*y3 -! dy2/dt = .04*y1 - 1.E4*y2*y3 - 3.E7*y2**2 -! dy3/dt = 3.E7*y2**2 -! -! on the interval from t = 0.0 to t = 4.E10, with initial conditions -! y1 = 1.0, y2 = y3 = 0. The problem is stiff. -! -! The following coding solves this problem with DLSODE, using -! MF = 21 and printing results at t = .4, 4., ..., 4.E10. It uses -! ITOL = 2 and AbsTol much smaller for y2 than for y1 or y3 because y2 -! has much smaller values. At the end of the run, statistical -! quantities of interest are printed. -! -! EXTERNAL FEX, JEX -! INTEGER IOPT, IOUT, ISTATE, ITASK, ITOL, IWORK(23), LIW, LRW, -! * MF, NEQ -! KPP_REAL AbsTol(3), RelTol, RWORK(58), T, TOUT, Y(3) -! NEQ = 3 -! Y(1) = 1.D0 -! Y(2) = 0.D0 -! Y(3) = 0.D0 -! T = 0.D0 -! TOUT = .4D0 -! ITOL = 2 -! RelTol = 1.D-4 -! AbsTol(1) = 1.D-6 -! AbsTol(2) = 1.D-10 -! AbsTol(3) = 1.D-6 -! ITASK = 1 -! ISTATE = 1 -! IOPT = 0 -! LRW = 58 -! LIW = 23 -! MF = 21 -! DO 40 IOUT = 1,12 -! CALL DLSODE (FEX, NEQ, Y, T, TOUT, ITOL, RelTol, AbsTol, ITASK, -! * ISTATE, IOPT, RWORK, LRW, IWORK, LIW, JEX, MF) -! WRITE(6,20) T, Y(1), Y(2), Y(3) -! 20 FORMAT(' At t =',D12.4,' y =',3D14.6) -! IF (ISTATE .LT. 0) GO TO 80 -! 40 TOUT = TOUT*10.D0 -! WRITE(6,60) IWORK(11), IWORK(12), IWORK(13) -! 60 FORMAT(/' No. steps =',i4,', No. f-s =',i4,', No. J-s =',i4) -! STOP -! 80 WRITE(6,90) ISTATE -! 90 FORMAT(///' Error halt.. ISTATE =',I3) -! STOP -! END -! -! SUBROUTINE FEX (NEQ, T, Y, YDOT) -! INTEGER NEQ -! KPP_REAL T, Y(3), YDOT(3) -! YDOT(1) = -.04D0*Y(1) + 1.D4*Y(2)*Y(3) -! YDOT(3) = 3.D7*Y(2)*Y(2) -! YDOT(2) = -YDOT(1) - YDOT(3) -! RETURN -! END -! -! SUBROUTINE JEX (NEQ, T, Y, ML, MU, PD, NRPD) -! INTEGER NEQ, ML, MU, NRPD -! KPP_REAL T, Y(3), PD(NRPD,3) -! PD(1,1) = -.04D0 -! PD(1,2) = 1.D4*Y(3) -! PD(1,3) = 1.D4*Y(2) -! PD(2,1) = .04D0 -! PD(2,3) = -PD(1,3) -! PD(3,2) = 6.D7*Y(2) -! PD(2,2) = -PD(1,2) - PD(3,2) -! RETURN -! END -! -! The output from this program (on a Cray-1 in single precision) -! is as follows. -! -! At t = 4.0000e-01 y = 9.851726e-01 3.386406e-05 1.479357e-02 -! At t = 4.0000e+00 y = 9.055142e-01 2.240418e-05 9.446344e-02 -! At t = 4.0000e+01 y = 7.158050e-01 9.184616e-06 2.841858e-01 -! At t = 4.0000e+02 y = 4.504846e-01 3.222434e-06 5.495122e-01 -! At t = 4.0000e+03 y = 1.831701e-01 8.940379e-07 8.168290e-01 -! At t = 4.0000e+04 y = 3.897016e-02 1.621193e-07 9.610297e-01 -! At t = 4.0000e+05 y = 4.935213e-03 1.983756e-08 9.950648e-01 -! At t = 4.0000e+06 y = 5.159269e-04 2.064759e-09 9.994841e-01 -! At t = 4.0000e+07 y = 5.306413e-05 2.122677e-10 9.999469e-01 -! At t = 4.0000e+08 y = 5.494530e-06 2.197825e-11 9.999945e-01 -! At t = 4.0000e+09 y = 5.129458e-07 2.051784e-12 9.999995e-01 -! At t = 4.0000e+10 y = -7.170603e-08 -2.868241e-13 1.000000e+00 -! -! No. steps = 330, No. f-s = 405, No. J-s = 69 -! -! *Accuracy: -! The accuracy of the solution depends on the choice of tolerances -! RelTol and AbsTol. Actual (global) errors may exceed these local -! tolerances, so choose them conservatively. -! -! *Cautions: -! The work arrays should not be altered between calls to DLSODE for -! the same problem, except possibly for the conditional and optional -! inputs. -! -! *Portability: -! Since NEQ is dimensioned inside DLSODE, some compilers may object -! to a call to DLSODE with NEQ a scalar variable. In this event, -! use DIMENSION NEQ. Similar remarks apply to RelTol and AbsTol. -! -! Note to Cray users: -! For maximum efficiency, use the CFT77 compiler. Appropriate -! compiler optimization directives have been inserted for CFT77. -! -! *Reference: -! Alan C. Hindmarsh, "ODEPACK, A Systematized Collection of ODE -! Solvers," in Scientific Computing, R. S. Stepleman, et al., Eds. -! (North-Holland, Amsterdam, 1983), pp. 55-64. -! -! *Long Description: -! The following complete description of the user interface to -! DLSODE consists of four parts: -! -! 1. The call sequence to subroutine DLSODE, which is a driver -! routine for the solver. This includes descriptions of both -! the call sequence arguments and user-supplied routines. -! Following these descriptions is a description of optional -! inputs available through the call sequence, and then a -! description of optional outputs in the work arrays. -! -! 2. Descriptions of other routines in the DLSODE package that may -! be (optionally) called by the user. These provide the ability -! to alter error message handling, save and restore the internal -! COMMON, and obtain specified derivatives of the solution y(t). -! -! 3. Descriptions of COMMON block to be declared in overlay or -! similar environments, or to be saved when doing an interrupt -! of the problem and continued solution later. -! -! 4. Description of two routines in the DLSODE package, either of -! which the user may replace with his own version, if desired. -! These relate to the measurement of errors. -! -! -! Part 1. Call Sequence -! ---------------------- -! -! Arguments -! --------- -! The call sequence parameters used for input only are -! -! F, NEQ, TOUT, ITOL, RelTol, AbsTol, ITASK, IOPT, LRW, LIW, JAC, MF, -! -! and those used for both input and output are -! -! Y, T, ISTATE. -! -! The work arrays RWORK and IWORK are also used for conditional and -! optional inputs and optional outputs. (The term output here -! refers to the return from subroutine DLSODE to the user's calling -! program.) -! -! The legality of input parameters will be thoroughly checked on the -! initial call for the problem, but not checked thereafter unless a -! change in input parameters is flagged by ISTATE = 3 on input. -! -! The descriptions of the call arguments are as follows. -! -! F The name of the user-supplied subroutine defining the ODE -! system. The system must be put in the first-order form -! dy/dt = f(t,y), where f is a vector-valued function of -! the scalar t and the vector y. Subroutine F is to compute -! the function f. It is to have the form -! -! SUBROUTINE F (NEQ, T, Y, YDOT) -! KPP_REAL T, Y(*), YDOT(*) -! -! where NEQ, T, and Y are input, and the array YDOT = -! f(T,Y) is output. Y and YDOT are arrays of length NEQ. -! Subroutine F should not alter Y(1),...,Y(NEQ). F must be -! declared EXTERNAL in the calling program. -! -! Subroutine F may access user-defined quantities in -! NEQ(2),... and/or in Y(NEQ+1),..., if NEQ is an array -! (dimensioned in F) and/or Y has length exceeding NEQ. -! See the descriptions of NEQ and Y below. -! -! If quantities computed in the F routine are needed -! externally to DLSODE, an extra call to F should be made -! for this purpose, for consistent and accurate results. -! If only the derivative dy/dt is needed, use DINTDY -! instead. -! -! NEQ The size of the ODE system (number of first-order -! ordinary differential equations). Used only for input. -! NEQ may be decreased, but not increased, during the -! problem. If NEQ is decreased (with ISTATE = 3 on input), -! the remaining components of Y should be left undisturbed, -! if these are to be accessed in F and/or JAC. -! -! Normally, NEQ is a scalar, and it is generally referred -! to as a scalar in this user interface description. -! However, NEQ may be an array, with NEQ set to the -! system size. (The DLSODE package accesses only NEQ.) -! In either case, this parameter is passed as the NEQ -! argument in all calls to F and JAC. Hence, if it is an -! array, locations NEQ(2),... may be used to store other -! integer data and pass it to F and/or JAC. Subroutines -! F and/or JAC must include NEQ in a DIMENSION statement -! in that case. -! -! Y A real array for the vector of dependent variables, of -! length NEQ or more. Used for both input and output on -! the first call (ISTATE = 1), and only for output on -! other calls. On the first call, Y must contain the -! vector of initial values. On output, Y contains the -! computed solution vector, evaluated at T. If desired, -! the Y array may be used for other purposes between -! calls to the solver. -! -! This array is passed as the Y argument in all calls to F -! and JAC. Hence its length may exceed NEQ, and locations -! Y(NEQ+1),... may be used to store other real data and -! pass it to F and/or JAC. (The DLSODE package accesses -! only Y(1),...,Y(NEQ).) -! -! T The independent variable. On input, T is used only on -! the first call, as the initial point of the integration. -! On output, after each call, T is the value at which a -! computed solution Y is evaluated (usually the same as -! TOUT). On an error return, T is the farthest point -! reached. -! -! TOUT The next value of T at which a computed solution is -! desired. Used only for input. -! -! When starting the problem (ISTATE = 1), TOUT may be equal -! to T for one call, then should not equal T for the next -! call. For the initial T, an input value of TOUT .NE. T -! is used in order to determine the direction of the -! integration (i.e., the algebraic sign of the step sizes) -! and the rough scale of the problem. Integration in -! either direction (forward or backward in T) is permitted. -! -! If ITASK = 2 or 5 (one-step modes), TOUT is ignored -! after the first call (i.e., the first call with -! TOUT .NE. T). Otherwise, TOUT is required on every call. -! -! If ITASK = 1, 3, or 4, the values of TOUT need not be -! monotone, but a value of TOUT which backs up is limited -! to the current internal T interval, whose endpoints are -! TCUR - HU and TCUR. (See "Optional Outputs" below for -! TCUR and HU.) -! -! -! ITOL An indicator for the type of error control. See -! description below under AbsTol. Used only for input. -! -! RelTol A relative error tolerance parameter, either a scalar or -! an array of length NEQ. See description below under -! AbsTol. Input only. -! -! AbsTol An absolute error tolerance parameter, either a scalar or -! an array of length NEQ. Input only. -! -! The input parameters ITOL, RelTol, and AbsTol determine the -! error control performed by the solver. The solver will -! control the vector e = (e(i)) of estimated local errors -! in Y, according to an inequality of the form -! -! rms-norm of ( e(i)/EWT(i) ) <= 1, -! -! where -! -! EWT(i) = RelTol(i)*ABS(Y(i)) + AbsTol(i), -! -! and the rms-norm (root-mean-square norm) here is -! -! rms-norm(v) = SQRT(sum v(i)**2 / NEQ). -! -! Here EWT = (EWT(i)) is a vector of weights which must -! always be positive, and the values of RelTol and AbsTol -! should all be nonnegative. The following table gives the -! types (scalar/array) of RelTol and AbsTol, and the -! corresponding form of EWT(i). -! -! ITOL RelTol AbsTol EWT(i) -! ---- ------ ------ ----------------------------- -! 1 scalar scalar RelTol*ABS(Y(i)) + AbsTol -! 2 scalar array RelTol*ABS(Y(i)) + AbsTol(i) -! 3 array scalar RelTol(i)*ABS(Y(i)) + AbsTol -! 4 array array RelTol(i)*ABS(Y(i)) + AbsTol(i) -! -! When either of these parameters is a scalar, it need not -! be dimensioned in the user's calling program. -! -! If none of the above choices (with ITOL, RelTol, and AbsTol -! fixed throughout the problem) is suitable, more general -! error controls can be obtained by substituting -! user-supplied routines for the setting of EWT and/or for -! the norm calculation. See Part 4 below. -! -! If global errors are to be estimated by making a repeated -! run on the same problem with smaller tolerances, then all -! components of RelTol and AbsTol (i.e., of EWT) should be -! scaled down uniformly. -! -! ITASK An index specifying the task to be performed. Input -! only. ITASK has the following values and meanings: -! 1 Normal computation of output values of y(t) at -! t = TOUT (by overshooting and interpolating). -! 2 Take one step only and return. -! 3 Stop at the first internal mesh point at or beyond -! t = TOUT and return. -! 4 Normal computation of output values of y(t) at -! t = TOUT but without overshooting t = TCRIT. TCRIT -! must be input as RWORK(1). TCRIT may be equal to or -! beyond TOUT, but not behind it in the direction of -! integration. This option is useful if the problem -! has a singularity at or beyond t = TCRIT. -! 5 Take one step, without passing TCRIT, and return. -! TCRIT must be input as RWORK(1). -! -! Note: If ITASK = 4 or 5 and the solver reaches TCRIT -! (within roundoff), it will return T = TCRIT (exactly) to -! indicate this (unless ITASK = 4 and TOUT comes before -! TCRIT, in which case answers at T = TOUT are returned -! first). -! -! ISTATE An index used for input and output to specify the state -! of the calculation. -! -! On input, the values of ISTATE are as follows: -! 1 This is the first call for the problem -! (initializations will be done). See "Note" below. -! 2 This is not the first call, and the calculation is to -! continue normally, with no change in any input -! parameters except possibly TOUT and ITASK. (If ITOL, -! RelTol, and/or AbsTol are changed between calls with -! ISTATE = 2, the new values will be used but not -! tested for legality.) -! 3 This is not the first call, and the calculation is to -! continue normally, but with a change in input -! parameters other than TOUT and ITASK. Changes are -! allowed in NEQ, ITOL, RelTol, AbsTol, IOPT, LRW, LIW, MF, -! ML, MU, and any of the optional inputs except H0. -! (See IWORK description for ML and MU.) -! -! Note: A preliminary call with TOUT = T is not counted as -! a first call here, as no initialization or checking of -! input is done. (Such a call is sometimes useful for the -! purpose of outputting the initial conditions.) Thus the -! first call for which TOUT .NE. T requires ISTATE = 1 on -! input. -! -! On output, ISTATE has the following values and meanings: -! 1 Nothing was done, as TOUT was equal to T with -! ISTATE = 1 on input. -! 2 The integration was performed successfully. -! -1 An excessive amount of work (more than MXSTEP steps) -! was done on this call, before completing the -! requested task, but the integration was otherwise -! successful as far as T. (MXSTEP is an optional input -! and is normally 500.) To continue, the user may -! simply reset ISTATE to a value >1 and call again (the -! excess work step counter will be reset to 0). In -! addition, the user may increase MXSTEP to avoid this -! error return; see "Optional Inputs" below. -! -2 Too much accuracy was requested for the precision of -! the machine being used. This was detected before -! completing the requested task, but the integration -! was successful as far as T. To continue, the -! tolerance parameters must be reset, and ISTATE must -! be set to 3. The optional output TOLSF may be used -! for this purpose. (Note: If this condition is -! detected before taking any steps, then an illegal -! input return (ISTATE = -3) occurs instead.) -! -3 Illegal input was detected, before taking any -! integration steps. See written message for details. -! (Note: If the solver detects an infinite loop of -! calls to the solver with illegal input, it will cause -! the run to stop.) -! -4 There were repeated error-test failures on one -! attempted step, before completing the requested task, -! but the integration was successful as far as T. The -! problem may have a singularity, or the input may be -! inappropriate. -! -5 There were repeated convergence-test failures on one -! attempted step, before completing the requested task, -! but the integration was successful as far as T. This -! may be caused by an inaccurate Jacobian matrix, if -! one is being used. -! -6 EWT(i) became zero for some i during the integration. -! Pure relative error control (AbsTol(i)=0.0) was -! requested on a variable which has now vanished. The -! integration was successful as far as T. -! -! Note: Since the normal output value of ISTATE is 2, it -! does not need to be reset for normal continuation. Also, -! since a negative input value of ISTATE will be regarded -! as illegal, a negative output value requires the user to -! change it, and possibly other inputs, before calling the -! solver again. -! -! IOPT An integer flag to specify whether any optional inputs -! are being used on this call. Input only. The optional -! inputs are listed under a separate heading below. -! 0 No optional inputs are being used. Default values -! will be used in all cases. -! 1 One or more optional inputs are being used. -! -! RWORK A real working array (double precision). The length of -! RWORK must be at least -! -! 20 + NYH*(MAXORD + 1) + 3*NEQ + LWM -! -! where -! NYH = the initial value of NEQ, -! MAXORD = 12 (if METH = 1) or 5 (if METH = 2) (unless a -! smaller value is given as an optional input), -! LWM = 0 if MITER = 0, -! LWM = NEQ**2 + 2 if MITER = 1 or 2, -! LWM = NEQ + 2 if MITER = 3, and -! LWM = (2*ML + MU + 1)*NEQ + 2 -! if MITER = 4 or 5. -! (See the MF description below for METH and MITER.) -! -! Thus if MAXORD has its default value and NEQ is constant, -! this length is: -! 20 + 16*NEQ for MF = 10, -! 22 + 16*NEQ + NEQ**2 for MF = 11 or 12, -! 22 + 17*NEQ for MF = 13, -! 22 + 17*NEQ + (2*ML + MU)*NEQ for MF = 14 or 15, -! 20 + 9*NEQ for MF = 20, -! 22 + 9*NEQ + NEQ**2 for MF = 21 or 22, -! 22 + 10*NEQ for MF = 23, -! 22 + 10*NEQ + (2*ML + MU)*NEQ for MF = 24 or 25. -! -! The first 20 words of RWORK are reserved for conditional -! and optional inputs and optional outputs. -! -! The following word in RWORK is a conditional input: -! RWORK(1) = TCRIT, the critical value of t which the -! solver is not to overshoot. Required if ITASK -! is 4 or 5, and ignored otherwise. See ITASK. -! -! LRW The length of the array RWORK, as declared by the user. -! (This will be checked by the solver.) -! -! IWORK An integer work array. Its length must be at least -! 20 if MITER = 0 or 3 (MF = 10, 13, 20, 23), or -! 20 + NEQ otherwise (MF = 11, 12, 14, 15, 21, 22, 24, 25). -! (See the MF description below for MITER.) The first few -! words of IWORK are used for conditional and optional -! inputs and optional outputs. -! -! The following two words in IWORK are conditional inputs: -! IWORK(1) = ML These are the lower and upper half- -! IWORK(2) = MU bandwidths, respectively, of the banded -! Jacobian, excluding the main diagonal. -! The band is defined by the matrix locations -! (i,j) with i - ML <= j <= i + MU. ML and MU -! must satisfy 0 <= ML,MU <= NEQ - 1. These are -! required if MITER is 4 or 5, and ignored -! otherwise. ML and MU may in fact be the band -! parameters for a matrix to which df/dy is only -! approximately equal. -! -! LIW The length of the array IWORK, as declared by the user. -! (This will be checked by the solver.) -! -! Note: The work arrays must not be altered between calls to DLSODE -! for the same problem, except possibly for the conditional and -! optional inputs, and except for the last 3*NEQ words of RWORK. -! The latter space is used for internal scratch space, and so is -! available for use by the user outside DLSODE between calls, if -! desired (but not for use by F or JAC). -! -! JAC The name of the user-supplied routine (MITER = 1 or 4) to -! compute the Jacobian matrix, df/dy, as a function of the -! scalar t and the vector y. (See the MF description below -! for MITER.) It is to have the form -! -! SUBROUTINE JAC (NEQ, T, Y, ML, MU, PD, NROWPD) -! KPP_REAL T, Y(*), PD(NROWPD,*) -! -! where NEQ, T, Y, ML, MU, and NROWPD are input and the -! array PD is to be loaded with partial derivatives -! (elements of the Jacobian matrix) on output. PD must be -! given a first dimension of NROWPD. T and Y have the same -! meaning as in subroutine F. -! -! In the full matrix case (MITER = 1), ML and MU are -! ignored, and the Jacobian is to be loaded into PD in -! columnwise manner, with df(i)/dy(j) loaded into PD(i,j). -! -! In the band matrix case (MITER = 4), the elements within -! the band are to be loaded into PD in columnwise manner, -! with diagonal lines of df/dy loaded into the rows of PD. -! Thus df(i)/dy(j) is to be loaded into PD(i-j+MU+1,j). ML -! and MU are the half-bandwidth parameters (see IWORK). -! The locations in PD in the two triangular areas which -! correspond to nonexistent matrix elements can be ignored -! or loaded arbitrarily, as they are overwritten by DLSODE. -! -! JAC need not provide df/dy exactly. A crude approximation -! (possibly with a smaller bandwidth) will do. -! -! In either case, PD is preset to zero by the solver, so -! that only the nonzero elements need be loaded by JAC. -! Each call to JAC is preceded by a call to F with the same -! arguments NEQ, T, and Y. Thus to gain some efficiency, -! intermediate quantities shared by both calculations may -! be saved in a user COMMON block by F and not recomputed -! by JAC, if desired. Also, JAC may alter the Y array, if -! desired. JAC must be declared EXTERNAL in the calling -! program. -! -! Subroutine JAC may access user-defined quantities in -! NEQ(2),... and/or in Y(NEQ+1),... if NEQ is an array -! (dimensioned in JAC) and/or Y has length exceeding -! NEQ. See the descriptions of NEQ and Y above. -! -! MF The method flag. Used only for input. The legal values -! of MF are 10, 11, 12, 13, 14, 15, 20, 21, 22, 23, 24, -! and 25. MF has decimal digits METH and MITER: -! MF = 10*METH + MITER . -! -! METH indicates the basic linear multistep method: -! 1 Implicit Adams method. -! 2 Method based on backward differentiation formulas -! (BDF's). -! -! MITER indicates the corrector iteration method: -! 0 Functional iteration (no Jacobian matrix is -! involved). -! 1 Chord iteration with a user-supplied full (NEQ by -! NEQ) Jacobian. -! 2 Chord iteration with an internally generated -! (difference quotient) full Jacobian (using NEQ -! extra calls to F per df/dy value). -! 3 Chord iteration with an internally generated -! diagonal Jacobian approximation (using one extra call -! to F per df/dy evaluation). -! 4 Chord iteration with a user-supplied banded Jacobian. -! 5 Chord iteration with an internally generated banded -! Jacobian (using ML + MU + 1 extra calls to F per -! df/dy evaluation). -! -! If MITER = 1 or 4, the user must supply a subroutine JAC -! (the name is arbitrary) as described above under JAC. -! For other values of MITER, a dummy argument can be used. -! -! Optional Inputs -! --------------- -! The following is a list of the optional inputs provided for in the -! call sequence. (See also Part 2.) For each such input variable, -! this table lists its name as used in this documentation, its -! location in the call sequence, its meaning, and the default value. -! The use of any of these inputs requires IOPT = 1, and in that case -! all of these inputs are examined. A value of zero for any of -! these optional inputs will cause the default value to be used. -! Thus to use a subset of the optional inputs, simply preload -! locations 5 to 10 in RWORK and IWORK to 0.0 and 0 respectively, -! and then set those of interest to nonzero values. -! -! Name Location Meaning and default value -! ------ --------- ----------------------------------------------- -! H0 RWORK(5) Step size to be attempted on the first step. -! The default value is determined by the solver. -! HMAX RWORK(6) Maximum absolute step size allowed. The -! default value is infinite. -! HMIN RWORK(7) Minimum absolute step size allowed. The -! default value is 0. (This lower bound is not -! enforced on the final step before reaching -! TCRIT when ITASK = 4 or 5.) -! MAXORD IWORK(5) Maximum order to be allowed. The default value -! is 12 if METH = 1, and 5 if METH = 2. (See the -! MF description above for METH.) If MAXORD -! exceeds the default value, it will be reduced -! to the default value. If MAXORD is changed -! during the problem, it may cause the current -! order to be reduced. -! MXSTEP IWORK(6) Maximum number of (internally defined) steps -! allowed during one call to the solver. The -! default value is 500. -! MXHNIL IWORK(7) Maximum number of messages printed (per -! problem) warning that T + H = T on a step -! (H = step size). This must be positive to -! result in a nondefault value. The default -! value is 10. -! -! Optional Outputs -! ---------------- -! As optional additional output from DLSODE, the variables listed -! below are quantities related to the performance of DLSODE which -! are available to the user. These are communicated by way of the -! work arrays, but also have internal mnemonic names as shown. -! Except where stated otherwise, all of these outputs are defined on -! any successful return from DLSODE, and on any return with ISTATE = -! -1, -2, -4, -5, or -6. On an illegal input return (ISTATE = -3), -! they will be unchanged from their existing values (if any), except -! possibly for TOLSF, LENRW, and LENIW. On any error return, -! outputs relevant to the error will be defined, as noted below. -! -! Name Location Meaning -! ----- --------- ------------------------------------------------ -! HU RWORK(11) Step size in t last used (successfully). -! HCUR RWORK(12) Step size to be attempted on the next step. -! TCUR RWORK(13) Current value of the independent variable which -! the solver has actually reached, i.e., the -! current internal mesh point in t. On output, -! TCUR will always be at least as far as the -! argument T, but may be farther (if interpolation -! was done). -! TOLSF RWORK(14) Tolerance scale factor, greater than 1.0, -! computed when a request for too much accuracy -! was detected (ISTATE = -3 if detected at the -! start of the problem, ISTATE = -2 otherwise). -! If ITOL is left unaltered but RelTol and AbsTol are -! uniformly scaled up by a factor of TOLSF for the -! next call, then the solver is deemed likely to -! succeed. (The user may also ignore TOLSF and -! alter the tolerance parameters in any other way -! appropriate.) -! NST IWORK(11) Number of steps taken for the problem so far. -! NFE IWORK(12) Number of F evaluations for the problem so far. -! NJE IWORK(13) Number of Jacobian evaluations (and of matrix LU -! decompositions) for the problem so far. -! NQU IWORK(14) Method order last used (successfully). -! NQCUR IWORK(15) Order to be attempted on the next step. -! IMXER IWORK(16) Index of the component of largest magnitude in -! the weighted local error vector ( e(i)/EWT(i) ), -! on an error return with ISTATE = -4 or -5. -! LENRW IWORK(17) Length of RWORK actually required. This is -! defined on normal returns and on an illegal -! input return for insufficient storage. -! LENIW IWORK(18) Length of IWORK actually required. This is -! defined on normal returns and on an illegal -! input return for insufficient storage. -! -! The following two arrays are segments of the RWORK array which may -! also be of interest to the user as optional outputs. For each -! array, the table below gives its internal name, its base address -! in RWORK, and its description. -! -! Name Base address Description -! ---- ------------ ---------------------------------------------- -! YH 21 The Nordsieck history array, of size NYH by -! (NQCUR + 1), where NYH is the initial value of -! NEQ. For j = 0,1,...,NQCUR, column j + 1 of -! YH contains HCUR**j/factorial(j) times the jth -! derivative of the interpolating polynomial -! currently representing the solution, evaluated -! at t = TCUR. -! ACOR LENRW-NEQ+1 Array of size NEQ used for the accumulated -! corrections on each step, scaled on output to -! represent the estimated local error in Y on -! the last step. This is the vector e in the -! description of the error control. It is -! defined only on successful return from DLSODE. -! -! -! Part 2. Other Callable Routines -! -------------------------------- -! -! The following are optional calls which the user may make to gain -! additional capabilities in conjunction with DLSODE. -! -! Form of call Function -! ------------------------ ---------------------------------------- -! CALL XSETUN(LUN) Set the logical unit number, LUN, for -! output of messages from DLSODE, if the -! default is not desired. The default -! value of LUN is 6. This call may be made -! at any time and will take effect -! immediately. -! CALL XSETF(MFLAG) Set a flag to control the printing of -! messages by DLSODE. MFLAG = 0 means do -! not print. (Danger: this risks losing -! valuable information.) MFLAG = 1 means -! print (the default). This call may be -! made at any time and will take effect -! immediately. -! CALL DSRCOM(RSAV,ISAV,JOB) Saves and restores the contents of the -! internal COMMON blocks used by DLSODE -! (see Part 3 below). RSAV must be a -! real array of length 218 or more, and -! ISAV must be an integer array of length -! 37 or more. JOB = 1 means save COMMON -! into RSAV/ISAV. JOB = 2 means restore -! COMMON from same. DSRCOM is useful if -! one is interrupting a run and restarting -! later, or alternating between two or -! more problems solved with DLSODE. -! CALL DINTDY(,,,,,) Provide derivatives of y, of various -! (see below) orders, at a specified point t, if -! desired. It may be called only after a -! successful return from DLSODE. Detailed -! instructions follow. -! -! Detailed instructions for using DINTDY -! -------------------------------------- -! The form of the CALL is: -! -! CALL DINTDY (T, K, RWORK(21), NYH, DKY, IFLAG) -! -! The input parameters are: -! -! T Value of independent variable where answers are -! desired (normally the same as the T last returned by -! DLSODE). For valid results, T must lie between -! TCUR - HU and TCUR. (See "Optional Outputs" above -! for TCUR and HU.) -! K Integer order of the derivative desired. K must -! satisfy 0 <= K <= NQCUR, where NQCUR is the current -! order (see "Optional Outputs"). The capability -! corresponding to K = 0, i.e., computing y(t), is -! already provided by DLSODE directly. Since -! NQCUR >= 1, the first derivative dy/dt is always -! available with DINTDY. -! RWORK(21) The base address of the history array YH. -! NYH Column length of YH, equal to the initial value of NEQ. -! -! The output parameters are: -! -! DKY Real array of length NEQ containing the computed value -! of the Kth derivative of y(t). -! IFLAG Integer flag, returned as 0 if K and T were legal, -! -1 if K was illegal, and -2 if T was illegal. -! On an error return, a message is also written. -! -! -! Part 3. Common Blocks -! ---------------------- -! -! If DLSODE is to be used in an overlay situation, the user must -! declare, in the primary overlay, the variables in: -! (1) the call sequence to DLSODE, -! (2) the internal COMMON block /DLS001/, of length 255 -! (218 double precision words followed by 37 integer words). -! -! If DLSODE is used on a system in which the contents of internal -! COMMON blocks are not preserved between calls, the user should -! declare the above COMMON block in his main program to insure that -! its contents are preserved. -! -! If the solution of a given problem by DLSODE is to be interrupted -! and then later continued, as when restarting an interrupted run or -! alternating between two or more problems, the user should save, -! following the return from the last DLSODE call prior to the -! interruption, the contents of the call sequence variables and the -! internal COMMON block, and later restore these values before the -! next DLSODE call for that problem. In addition, if XSETUN and/or -! XSETF was called for non-default handling of error messages, then -! these calls must be repeated. To save and restore the COMMON -! block, use subroutine DSRCOM (see Part 2 above). -! -! -! Part 4. Optionally Replaceable Solver Routines -! ----------------------------------------------- -! -! Below are descriptions of two routines in the DLSODE package which -! relate to the measurement of errors. Either routine can be -! replaced by a user-supplied version, if desired. However, since -! such a replacement may have a major impact on performance, it -! should be done only when absolutely necessary, and only with great -! caution. (Note: The means by which the package version of a -! routine is superseded by the user's version may be system- -! dependent.) -! -! DEWSET -! ------ -! The following subroutine is called just before each internal -! integration step, and sets the array of error weights, EWT, as -! described under ITOL/RelTol/AbsTol above: -! -! SUBROUTINE DEWSET (NEQ, ITOL, RelTol, AbsTol, YCUR, EWT) -! -! where NEQ, ITOL, RelTol, and AbsTol are as in the DLSODE call -! sequence, YCUR contains the current dependent variable vector, -! and EWT is the array of weights set by DEWSET. -! -! If the user supplies this subroutine, it must return in EWT(i) -! (i = 1,...,NEQ) a positive quantity suitable for comparing errors -! in Y(i) to. The EWT array returned by DEWSET is passed to the -! DVNORM routine (see below), and also used by DLSODE in the -! computation of the optional output IMXER, the diagonal Jacobian -! approximation, and the increments for difference quotient -! Jacobians. -! -! In the user-supplied version of DEWSET, it may be desirable to use -! the current values of derivatives of y. Derivatives up to order NQ -! are available from the history array YH, described above under -! optional outputs. In DEWSET, YH is identical to the YCUR array, -! extended to NQ + 1 columns with a column length of NYH and scale -! factors of H**j/factorial(j). On the first call for the problem, -! given by NST = 0, NQ is 1 and H is temporarily set to 1.0. -! NYH is the initial value of NEQ. The quantities NQ, H, and NST -! can be obtained by including in SEWSET the statements: -! KPP_REAL RLS -! COMMON /DLS001/ RLS(218),ILS(37) -! NQ = ILS(33) -! NST = ILS(34) -! H = RLS(212) -! Thus, for example, the current value of dy/dt can be obtained as -! YCUR(NYH+i)/H (i=1,...,NEQ) (and the division by H is unnecessary -! when NST = 0). -! -! DVNORM -! ------ -! DVNORM is a real function routine which computes the weighted -! root-mean-square norm of a vector v: -! -! d = DVNORM (n, v, w) -! -! where: -! n = the length of the vector, -! v = real array of length n containing the vector, -! w = real array of length n containing weights, -! d = SQRT( (1/n) * sum(v(i)*w(i))**2 ). -! -! DVNORM is called with n = NEQ and with w(i) = 1.0/EWT(i), where -! EWT is as set by subroutine DEWSET. -! -! If the user supplies this function, it should return a nonnegative -! value of DVNORM suitable for use in the error control in DLSODE. -! None of the arguments should be altered by DVNORM. For example, a -! user-supplied DVNORM routine might: -! - Substitute a max-norm of (v(i)*w(i)) for the rms-norm, or -! - Ignore some components of v in the norm, with the effect of -! suppressing the error control on those components of Y. -! --------------------------------------------------------------------- -!***ROUTINES CALLED DEWSET, DINTDY, DUMACH, DSTODE, DVNORM, XERRWD -!***COMMON BLOCKS DLS001 -!***REVISION HISTORY (YYYYMMDD) -! 19791129 DATE WRITTEN -! 19791213 Minor changes to declarations; DELP init. in STODE. -! 19800118 Treat NEQ as array; integer declarations added throughout; -! minor changes to prologue. -! 19800306 Corrected TESCO(1,NQP1) setting in CFODE. -! 19800519 Corrected access of YH on forced order reduction; -! numerous corrections to prologues and other comments. -! 19800617 In main driver, added loading of SQRT(UROUND) in RWORK; -! minor corrections to main prologue. -! 19800923 Added zero initialization of HU and NQU. -! 19801218 Revised XERRWD routine; minor corrections to main prologue. -! 19810401 Minor changes to comments and an error message. -! 19810814 Numerous revisions: replaced EWT by 1/EWT; used flags -! JCUR, ICF, IERPJ, IERSL between STODE and subordinates; -! added tuning parameters CCMAX, MAXCOR, MSBP, MXNCF; -! reorganized returns from STODE; reorganized type decls.; -! fixed message length in XERRWD; changed default LUNIT to 6; -! changed Common lengths; changed comments throughout. -! 19870330 Major update by ACH: corrected comments throughout; -! removed TRET from Common; rewrote EWSET with 4 loops; -! fixed t test in INTDY; added Cray directives in STODE; -! in STODE, fixed DELP init. and logic around PJAC call; -! combined routines to save/restore Common; -! passed LEVEL = 0 in error message calls (except run abort). -! 19890426 Modified prologue to SLATEC/LDOC format. (FNF) -! 19890501 Many improvements to prologue. (FNF) -! 19890503 A few final corrections to prologue. (FNF) -! 19890504 Minor cosmetic changes. (FNF) -! 19890510 Corrected description of Y in Arguments section. (FNF) -! 19890517 Minor corrections to prologue. (FNF) -! 19920514 Updated with prologue edited 891025 by G. Shaw for manual. -! 19920515 Converted source lines to upper case. (FNF) -! 19920603 Revised XERRWD calls using mixed upper-lower case. (ACH) -! 19920616 Revised prologue comment regarding CFT. (ACH) -! 19921116 Revised prologue comments regarding Common. (ACH). -! 19930326 Added comment about non-reentrancy. (FNF) -! 19930723 Changed D1MACH to DUMACH. (FNF) -! 19930801 Removed ILLIN and NTREP from Common (affects driver logic); -! minor changes to prologue and internal comments; -! changed Hollerith strings to quoted strings; -! changed internal comments to mixed case; -! replaced XERRWD with new version using character type; -! changed dummy dimensions from 1 to *. (ACH) -! 19930809 Changed to generic intrinsic names; changed names of -! subprograms and Common blocks to DLSODE etc. (ACH) -! 19930929 Eliminated use of REAL intrinsic; other minor changes. (ACH) -! 20010412 Removed all 'own' variables from Common block /DLS001/ -! (affects declarations in 6 routines). (ACH) -! 20010509 Minor corrections to prologue. (ACH) -! 20031105 Restored 'own' variables to Common block /DLS001/, to -! enable interrupt/restart feature. (ACH) -! 20031112 Added SAVE statements for data-loaded constants. -! -!***END PROLOGUE DLSODE -! -!*Internal Notes: -! -! Other Routines in the DLSODE Package. -! -! In addition to Subroutine DLSODE, the DLSODE package includes the -! following subroutines and function routines: -! DINTDY computes an interpolated value of the y vector at t = TOUT. -! DSTODE is the core integrator, which does one step of the -! integration and the associated error control. -! DCFODE sets all method coefficients and test constants. -! DPREPJ computes and preprocesses the Jacobian matrix J = df/dy -! and the Newton iteration matrix P = I - h*l0*J. -! DSOLSY manages solution of linear system in chord iteration. -! DEWSET sets the error weight vector EWT before each step. -! DVNORM computes the weighted R.M.S. norm of a vector. -! DSRCOM is a user-callable routine to save and restore -! the contents of the internal Common block. -! DGEFA and DGESL are routines from LINPACK for solving full -! systems of linear algebraic equations. -! DGBFA and DGBSL are routines from LINPACK for solving banded -! linear systems. -! DUMACH computes the unit roundoff in a machine-independent manner. -! XERRWD, XSETUN, XSETF, IXSAV, IUMACH handle the printing of all -! error messages and warnings. XERRWD is machine-dependent. -! Note: DVNORM, DUMACH, IXSAV, and IUMACH are function routines. -! All the others are subroutines. -! -!**End -! -! Declare externals. -! Note: they are now internal - !EXTERNAL DPREPJ, DSOLSY - !KPP_REAL DUMACH, DVNORM -! -! Declare all other variables. - INTEGER INIT, MXSTEP, MXHNIL, NHNIL, NSLAST, NYH, IOWNS, & - ICF, IERPJ, IERSL, JCUR, JSTART, KFLAG, L, & - LYH, LEWT, LACOR, LSAVF, LWM, LIWM, METH, MITER, & - MAXORD, MAXCOR, MSBP, MXNCF, N, NQ, NST, NFE, NJE, NQU - INTEGER I, I1, I2, IFLAG, IMXER, KGO, LF0, & - LENIW, LENRW, LENWM, ML, MORD(2), MU, MXHNL0, MXSTP0 - KPP_REAL ROWNS, & - CCMAX, EL0, H, HMIN, HMXI, HU, RC, TN, UROUND - KPP_REAL AbsTolI, AYI, BIG, EWTI, H0, HMAX, HMX, RH, RelTolI, & - TCRIT, TDIST, TNEXT, TOL, TOLSF, TP, SIZE, SUM, W0 - - LOGICAL IHIT - CHARACTER*80 MSG - SAVE MORD, MXSTP0, MXHNL0 -!----------------------------------------------------------------------- -! The following internal Common block contains -! (a) variables which are local to any subroutine but whose values must -! be preserved between calls to the routine ("own" variables), and -! (b) variables which are communicated between subroutines. -! The block DLS001 is declared in subroutines DLSODE, DINTDY, DSTODE, -! DPREPJ, and DSOLSY. -! Groups of variables are replaced by dummy arrays in the Common -! declarations in routines where those variables are not used. -!----------------------------------------------------------------------- - COMMON /DLS001/ ROWNS(209), & - CCMAX, EL0, H, HMIN, HMXI, HU, RC, TN, UROUND, & - INIT, MXSTEP, MXHNIL, NHNIL, NSLAST, NYH, IOWNS(6), & - ICF, IERPJ, IERSL, JCUR, JSTART, KFLAG, L, & - LYH, LEWT, LACOR, LSAVF, LWM, LIWM, METH, MITER, & - MAXORD, MAXCOR, MSBP, MXNCF, N, NQ, NST, NFE, NJE, NQU -! - DATA MORD(1),MORD(2)/12,5/, MXSTP0/500/, MXHNL0/10/ -!----------------------------------------------------------------------- -! Block A. -! This code block is executed on every call. -! It tests ISTATE and ITASK for legality and branches appropriately. -! If ISTATE .GT. 1 but the flag INIT shows that initialization has -! not yet been done, an error return occurs. -! If ISTATE = 1 and TOUT = T, return immediately. -!----------------------------------------------------------------------- -! -!***FIRST EXECUTABLE STATEMENT DLSODE - IF (ISTATE .LT. 1 .OR. ISTATE .GT. 3) GO TO 601 - IF (ITASK .LT. 1 .OR. ITASK .GT. 5) GO TO 602 - IF (ISTATE .EQ. 1) GO TO 10 - IF (INIT .EQ. 0) GO TO 603 - IF (ISTATE .EQ. 2) GO TO 200 - GO TO 20 - 10 INIT = 0 - IF (TOUT .EQ. T) RETURN -!----------------------------------------------------------------------- -! Block B. -! The next code block is executed for the initial call (ISTATE = 1), -! or for a continuation call with parameter changes (ISTATE = 3). -! It contains checking of all inputs and various initializations. -! -! First check legality of the non-optional inputs NEQ, ITOL, IOPT, -! MF, ML, and MU. -!----------------------------------------------------------------------- - 20 IF (NEQ .LE. 0) GO TO 604 - IF (ISTATE .EQ. 1) GO TO 25 - IF (NEQ .GT. N) GO TO 605 - 25 N = NEQ - IF (ITOL .LT. 1 .OR. ITOL .GT. 4) GO TO 606 - IF (IOPT .LT. 0 .OR. IOPT .GT. 1) GO TO 607 - METH = MF/10 - MITER = MF - 10*METH - IF (METH .LT. 1 .OR. METH .GT. 2) GO TO 608 - IF (MITER .LT. 0 .OR. MITER .GT. 5) GO TO 608 - IF (MITER .LE. 3) GO TO 30 - ML = IWORK(1) - MU = IWORK(2) - IF (ML .LT. 0 .OR. ML .GE. N) GO TO 609 - IF (MU .LT. 0 .OR. MU .GE. N) GO TO 610 - 30 CONTINUE -! Next process and check the optional inputs. -------------------------- - IF (IOPT .EQ. 1) GO TO 40 - MAXORD = MORD(METH) - MXSTEP = MXSTP0 - MXHNIL = MXHNL0 - IF (ISTATE .EQ. 1) H0 = 0.0D0 - HMXI = 0.0D0 - HMIN = 0.0D0 - GO TO 60 - 40 MAXORD = IWORK(5) - IF (MAXORD .LT. 0) GO TO 611 - IF (MAXORD .EQ. 0) MAXORD = 100 - MAXORD = MIN(MAXORD,MORD(METH)) - MXSTEP = IWORK(6) - IF (MXSTEP .LT. 0) GO TO 612 - IF (MXSTEP .EQ. 0) MXSTEP = MXSTP0 - MXHNIL = IWORK(7) - IF (MXHNIL .LT. 0) GO TO 613 - IF (MXHNIL .EQ. 0) MXHNIL = MXHNL0 - IF (ISTATE .NE. 1) GO TO 50 - H0 = RWORK(5) - IF ((TOUT - T)*H0 .LT. 0.0D0) GO TO 614 - 50 HMAX = RWORK(6) - IF (HMAX .LT. 0.0D0) GO TO 615 - HMXI = 0.0D0 - IF (HMAX .GT. 0.0D0) HMXI = 1.0D0/HMAX - HMIN = RWORK(7) - IF (HMIN .LT. 0.0D0) GO TO 616 -!----------------------------------------------------------------------- -! Set work array pointers and check lengths LRW and LIW. -! Pointers to segments of RWORK and IWORK are named by prefixing L to -! the name of the segment. E.g., the segment YH starts at RWORK(LYH). -! Segments of RWORK (in order) are denoted YH, WM, EWT, SAVF, ACOR. -!----------------------------------------------------------------------- - 60 LYH = 21 - IF (ISTATE .EQ. 1) NYH = N - LWM = LYH + (MAXORD + 1)*NYH - IF (MITER .EQ. 0) LENWM = 0 - IF (MITER .EQ. 1 .OR. MITER .EQ. 2) LENWM = N*N + 2 - IF (MITER .EQ. 3) LENWM = N + 2 - IF (MITER .GE. 4) LENWM = (2*ML + MU + 1)*N + 2 - LEWT = LWM + LENWM - LSAVF = LEWT + N - LACOR = LSAVF + N - LENRW = LACOR + N - 1 - IWORK(17) = LENRW - LIWM = 1 - LENIW = 20 + N - IF (MITER .EQ. 0 .OR. MITER .EQ. 3) LENIW = 20 - IWORK(18) = LENIW - IF (LENRW .GT. LRW) GO TO 617 - IF (LENIW .GT. LIW) GO TO 618 -! Check RelTol and AbsTol for legality. ------------------------------------ - RelTolI = RelTol(1) - AbsTolI = AbsTol(1) - DO 70 I = 1,N - IF (ITOL .GE. 3) RelTolI = RelTol(I) - IF (ITOL .EQ. 2 .OR. ITOL .EQ. 4) AbsTolI = AbsTol(I) - IF (RelTolI .LT. 0.0D0) GO TO 619 - IF (AbsTolI .LT. 0.0D0) GO TO 620 - 70 CONTINUE - IF (ISTATE .EQ. 1) GO TO 100 -! If ISTATE = 3, set flag to signal parameter changes to DSTODE. ------- - JSTART = -1 - IF (NQ .LE. MAXORD) GO TO 90 -! MAXORD was reduced below NQ. Copy YH(*,MAXORD+2) into SAVF. --------- - DO 80 I = 1,N - 80 RWORK(I+LSAVF-1) = RWORK(I+LWM-1) -! Reload WM(1) = RWORK(LWM), since LWM may have changed. --------------- - 90 IF (MITER .GT. 0) RWORK(LWM) = SQRT(UROUND) - IF (N .EQ. NYH) GO TO 200 -! NEQ was reduced. Zero part of YH to avoid undefined references. ----- - I1 = LYH + L*NYH - I2 = LYH + (MAXORD + 1)*NYH - 1 - IF (I1 .GT. I2) GO TO 200 - DO 95 I = I1,I2 - 95 RWORK(I) = 0.0D0 - GO TO 200 -!----------------------------------------------------------------------- -! Block C. -! The next block is for the initial call only (ISTATE = 1). -! It contains all remaining initializations, the initial call to F, -! and the calculation of the initial step size. -! The error weights in EWT are inverted after being loaded. -!----------------------------------------------------------------------- - 100 UROUND = DUMACH() - TN = T - IF (ITASK .NE. 4 .AND. ITASK .NE. 5) GO TO 110 - TCRIT = RWORK(1) - IF ((TCRIT - TOUT)*(TOUT - T) .LT. 0.0D0) GO TO 625 - IF (H0 .NE. 0.0D0 .AND. (T + H0 - TCRIT)*H0 .GT. 0.0D0) & - H0 = TCRIT - T - 110 JSTART = 0 - IF (MITER .GT. 0) RWORK(LWM) = SQRT(UROUND) - NHNIL = 0 - NST = 0 - NJE = 0 - NSLAST = 0 - HU = 0.0D0 - NQU = 0 - CCMAX = 0.3D0 - MAXCOR = 3 - MSBP = 20 - MXNCF = 10 -! Initial call to F. (LF0 points to YH(*,2).) ------------------------- - LF0 = LYH + NYH - CALL F (NEQ, T, Y, RWORK(LF0)) - NFE = 1 -! Load the initial value vector in YH. --------------------------------- - DO 115 I = 1,N - 115 RWORK(I+LYH-1) = Y(I) -! Load and invert the EWT array. (H is temporarily set to 1.0.) ------- - NQ = 1 - H = 1.0D0 - CALL DEWSET (N, ITOL, RelTol, AbsTol, RWORK(LYH), RWORK(LEWT)) - DO 120 I = 1,N - IF (RWORK(I+LEWT-1) .LE. 0.0D0) GO TO 621 - 120 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1) -!----------------------------------------------------------------------- -! The coding below computes the step size, H0, to be attempted on the -! first step, unless the user has supplied a value for this. -! First check that TOUT - T differs significantly from zero. -! A scalar tolerance quantity TOL is computed, as MAX(RelTol(I)) -! if this is positive, or MAX(AbsTol(I)/ABS(Y(I))) otherwise, adjusted -! so as to be between 100*UROUND and 1.0E-3. -! Then the computed value H0 is given by.. -! NEQ -! H0**2 = TOL / ( w0**-2 + (1/NEQ) * SUM ( f(i)/ywt(i) )**2 ) -! 1 -! where w0 = MAX ( ABS(T), ABS(TOUT) ), -! f(i) = i-th component of initial value of f, -! ywt(i) = EWT(i)/TOL (a weight for y(i)). -! The sign of H0 is inferred from the initial values of TOUT and T. -!----------------------------------------------------------------------- - IF (H0 .NE. 0.0D0) GO TO 180 - TDIST = ABS(TOUT - T) - W0 = MAX(ABS(T),ABS(TOUT)) - IF (TDIST .LT. 2.0D0*UROUND*W0) GO TO 622 - TOL = RelTol(1) - IF (ITOL .LE. 2) GO TO 140 - DO 130 I = 1,N - 130 TOL = MAX(TOL,RelTol(I)) - 140 IF (TOL .GT. 0.0D0) GO TO 160 - AbsTolI = AbsTol(1) - DO 150 I = 1,N - IF (ITOL .EQ. 2 .OR. ITOL .EQ. 4) AbsTolI = AbsTol(I) - AYI = ABS(Y(I)) - IF (AYI .NE. 0.0D0) TOL = MAX(TOL,AbsTolI/AYI) - 150 CONTINUE - 160 TOL = MAX(TOL,100.0D0*UROUND) - TOL = MIN(TOL,0.001D0) - SUM = DVNORM (N, RWORK(LF0), RWORK(LEWT)) - SUM = 1.0D0/(TOL*W0*W0) + TOL*SUM**2 - H0 = 1.0D0/SQRT(SUM) - H0 = MIN(H0,TDIST) - H0 = SIGN(H0,TOUT-T) -! Adjust H0 if necessary to meet HMAX bound. --------------------------- - 180 RH = ABS(H0)*HMXI - IF (RH .GT. 1.0D0) H0 = H0/RH -! Load H with H0 and scale YH(*,2) by H0. ------------------------------ - H = H0 - DO 190 I = 1,N - 190 RWORK(I+LF0-1) = H0*RWORK(I+LF0-1) - GO TO 270 -!----------------------------------------------------------------------- -! Block D. -! The next code block is for continuation calls only (ISTATE = 2 or 3) -! and is to check stop conditions before taking a step. -!----------------------------------------------------------------------- - 200 NSLAST = NST - GO TO (210, 250, 220, 230, 240), ITASK - 210 IF ((TN - TOUT)*H .LT. 0.0D0) GO TO 250 - CALL DINTDY (TOUT, 0, RWORK(LYH), NYH, Y, IFLAG) - IF (IFLAG .NE. 0) GO TO 627 - T = TOUT - GO TO 420 - 220 TP = TN - HU*(1.0D0 + 100.0D0*UROUND) - IF ((TP - TOUT)*H .GT. 0.0D0) GO TO 623 - IF ((TN - TOUT)*H .LT. 0.0D0) GO TO 250 - GO TO 400 - 230 TCRIT = RWORK(1) - IF ((TN - TCRIT)*H .GT. 0.0D0) GO TO 624 - IF ((TCRIT - TOUT)*H .LT. 0.0D0) GO TO 625 - IF ((TN - TOUT)*H .LT. 0.0D0) GO TO 245 - CALL DINTDY (TOUT, 0, RWORK(LYH), NYH, Y, IFLAG) - IF (IFLAG .NE. 0) GO TO 627 - T = TOUT - GO TO 420 - 240 TCRIT = RWORK(1) - IF ((TN - TCRIT)*H .GT. 0.0D0) GO TO 624 - 245 HMX = ABS(TN) + ABS(H) - IHIT = ABS(TN - TCRIT) .LE. 100.0D0*UROUND*HMX - IF (IHIT) GO TO 400 - TNEXT = TN + H*(1.0D0 + 4.0D0*UROUND) - IF ((TNEXT - TCRIT)*H .LE. 0.0D0) GO TO 250 - H = (TCRIT - TN)*(1.0D0 - 4.0D0*UROUND) - IF (ISTATE .EQ. 2) JSTART = -2 -!----------------------------------------------------------------------- -! Block E. -! The next block is normally executed for all calls and contains -! the call to the one-step core integrator DSTODE. -! -! This is a looping point for the integration steps. -! -! First check for too many steps being taken, update EWT (if not at -! start of problem), check for too much accuracy being requested, and -! check for H below the roundoff level in T. -!----------------------------------------------------------------------- - 250 CONTINUE - IF ((NST-NSLAST) .GE. MXSTEP) GO TO 500 - CALL DEWSET (N, ITOL, RelTol, AbsTol, RWORK(LYH), RWORK(LEWT)) - DO 260 I = 1,N - IF (RWORK(I+LEWT-1) .LE. 0.0D0) GO TO 510 - 260 RWORK(I+LEWT-1) = 1.0D0/RWORK(I+LEWT-1) - 270 TOLSF = UROUND*DVNORM (N, RWORK(LYH), RWORK(LEWT)) - IF (TOLSF .LE. 1.0D0) GO TO 280 - TOLSF = TOLSF*2.0D0 - IF (NST .EQ. 0) GO TO 626 - GO TO 520 - 280 IF ((TN + H) .NE. TN) GO TO 290 - NHNIL = NHNIL + 1 - IF (NHNIL .GT. MXHNIL) GO TO 290 - MSG = 'DLSODE- Warning..internal T (=R1) and H (=R2) are' - CALL XERRWD (MSG, 50, 101, 0, 0, 0, 0, 0, 0.0D0, 0.0D0) - MSG=' such that in the machine, T + H = T on the next step ' - CALL XERRWD (MSG, 60, 101, 0, 0, 0, 0, 0, 0.0D0, 0.0D0) - MSG = ' (H = step size). Solver will continue anyway' - CALL XERRWD (MSG, 50, 101, 0, 0, 0, 0, 2, TN, H) - IF (NHNIL .LT. MXHNIL) GO TO 290 - MSG = 'DLSODE- Above warning has been issued I1 times. ' - CALL XERRWD (MSG, 50, 102, 0, 0, 0, 0, 0, 0.0D0, 0.0D0) - MSG = ' It will not be issued again for this problem' - CALL XERRWD (MSG, 50, 102, 0, 1, MXHNIL, 0, 0, 0.0D0, 0.0D0) - 290 CONTINUE -!----------------------------------------------------------------------- -! CALL DSTODE(NEQ,Y,YH,NYH,YH,EWT,SAVF,ACOR,WM,IWM,F,JAC,DPREPJ,DSOLSY) -!----------------------------------------------------------------------- - CALL DSTODE (NEQ, Y, RWORK(LYH), NYH, RWORK(LYH), RWORK(LEWT), & - RWORK(LSAVF), RWORK(LACOR), RWORK(LWM), IWORK(LIWM), & - F, JAC) - !F, JAC, DPREPJ, DSOLSY) - KGO = 1 - KFLAG - GO TO (300, 530, 540), KGO -!----------------------------------------------------------------------- -! Block F. -! The following block handles the case of a successful return from the -! core integrator (KFLAG = 0). Test for stop conditions. -!----------------------------------------------------------------------- - 300 INIT = 1 - GO TO (310, 400, 330, 340, 350), ITASK -! ITASK = 1. If TOUT has been reached, interpolate. ------------------- - 310 IF ((TN - TOUT)*H .LT. 0.0D0) GO TO 250 - CALL DINTDY (TOUT, 0, RWORK(LYH), NYH, Y, IFLAG) - T = TOUT - GO TO 420 -! ITASK = 3. Jump to exit if TOUT was reached. ------------------------ - 330 IF ((TN - TOUT)*H .GE. 0.0D0) GO TO 400 - GO TO 250 -! ITASK = 4. See if TOUT or TCRIT was reached. Adjust H if necessary. - 340 IF ((TN - TOUT)*H .LT. 0.0D0) GO TO 345 - CALL DINTDY (TOUT, 0, RWORK(LYH), NYH, Y, IFLAG) - T = TOUT - GO TO 420 - 345 HMX = ABS(TN) + ABS(H) - IHIT = ABS(TN - TCRIT) .LE. 100.0D0*UROUND*HMX - IF (IHIT) GO TO 400 - TNEXT = TN + H*(1.0D0 + 4.0D0*UROUND) - IF ((TNEXT - TCRIT)*H .LE. 0.0D0) GO TO 250 - H = (TCRIT - TN)*(1.0D0 - 4.0D0*UROUND) - JSTART = -2 - GO TO 250 -! ITASK = 5. See if TCRIT was reached and jump to exit. --------------- - 350 HMX = ABS(TN) + ABS(H) - IHIT = ABS(TN - TCRIT) .LE. 100.0D0*UROUND*HMX -!----------------------------------------------------------------------- -! Block G. -! The following block handles all successful returns from DLSODE. -! If ITASK .NE. 1, Y is loaded from YH and T is set accordingly. -! ISTATE is set to 2, and the optional outputs are loaded into the -! work arrays before returning. -!----------------------------------------------------------------------- - 400 DO 410 I = 1,N - 410 Y(I) = RWORK(I+LYH-1) - T = TN - IF (ITASK .NE. 4 .AND. ITASK .NE. 5) GO TO 420 - IF (IHIT) T = TCRIT - 420 ISTATE = 2 - RWORK(11) = HU - RWORK(12) = H - RWORK(13) = TN - IWORK(11) = NST - IWORK(12) = NFE - IWORK(13) = NJE - IWORK(14) = NQU - IWORK(15) = NQ - RETURN -!----------------------------------------------------------------------- -! Block H. -! The following block handles all unsuccessful returns other than -! those for illegal input. First the error message routine is called. -! If there was an error test or convergence test failure, IMXER is set. -! Then Y is loaded from YH and T is set to TN. The optional outputs -! are loaded into the work arrays before returning. -!----------------------------------------------------------------------- -! The maximum number of steps was taken before reaching TOUT. ---------- - 500 MSG = 'DLSODE- At current T (=R1), MXSTEP (=I1) steps ' - CALL XERRWD (MSG, 50, 201, 0, 0, 0, 0, 0, 0.0D0, 0.0D0) - MSG = ' taken on this call before reaching TOUT ' - CALL XERRWD (MSG, 50, 201, 0, 1, MXSTEP, 0, 1, TN, 0.0D0) - ISTATE = -1 - GO TO 580 -! EWT(I) .LE. 0.0 for some I (not at start of problem). ---------------- - 510 EWTI = RWORK(LEWT+I-1) - MSG = 'DLSODE- At T (=R1), EWT(I1) has become R2 .LE. 0.' - CALL XERRWD (MSG, 50, 202, 0, 1, I, 0, 2, TN, EWTI) - ISTATE = -6 - GO TO 580 -! Too much accuracy requested for machine precision. ------------------- - 520 MSG = 'DLSODE- At T (=R1), too much accuracy requested ' - CALL XERRWD (MSG, 50, 203, 0, 0, 0, 0, 0, 0.0D0, 0.0D0) - MSG = ' for precision of machine.. see TOLSF (=R2) ' - CALL XERRWD (MSG, 50, 203, 0, 0, 0, 0, 2, TN, TOLSF) - RWORK(14) = TOLSF - ISTATE = -2 - GO TO 580 -! KFLAG = -1. Error test failed repeatedly or with ABS(H) = HMIN. ----- - 530 MSG = 'DLSODE- At T(=R1) and step size H(=R2), the error' - CALL XERRWD (MSG, 50, 204, 0, 0, 0, 0, 0, 0.0D0, 0.0D0) - MSG = ' test failed repeatedly or with ABS(H) = HMIN' - CALL XERRWD (MSG, 50, 204, 0, 0, 0, 0, 2, TN, H) - ISTATE = -4 - GO TO 560 -! KFLAG = -2. Convergence failed repeatedly or with ABS(H) = HMIN. ---- - 540 MSG = 'DLSODE- At T (=R1) and step size H (=R2), the ' - CALL XERRWD (MSG, 50, 205, 0, 0, 0, 0, 0, 0.0D0, 0.0D0) - MSG = ' corrector convergence failed repeatedly ' - CALL XERRWD (MSG, 50, 205, 0, 0, 0, 0, 0, 0.0D0, 0.0D0) - MSG = ' or with ABS(H) = HMIN ' - CALL XERRWD (MSG, 30, 205, 0, 0, 0, 0, 2, TN, H) - ISTATE = -5 -! Compute IMXER if relevant. ------------------------------------------- - 560 BIG = 0.0D0 - IMXER = 1 - DO 570 I = 1,N - SIZE = ABS(RWORK(I+LACOR-1)*RWORK(I+LEWT-1)) - IF (BIG .GE. SIZE) GO TO 570 - BIG = SIZE - IMXER = I - 570 CONTINUE - IWORK(16) = IMXER -! Set Y vector, T, and optional outputs. ------------------------------- - 580 DO 590 I = 1,N - 590 Y(I) = RWORK(I+LYH-1) - T = TN - RWORK(11) = HU - RWORK(12) = H - RWORK(13) = TN - IWORK(11) = NST - IWORK(12) = NFE - IWORK(13) = NJE - IWORK(14) = NQU - IWORK(15) = NQ - RETURN -!----------------------------------------------------------------------- -! Block I. -! The following block handles all error returns due to illegal input -! (ISTATE = -3), as detected before calling the core integrator. -! First the error message routine is called. If the illegal input -! is a negative ISTATE, the run is aborted (apparent infinite loop). -!----------------------------------------------------------------------- - 601 MSG = 'DLSODE- ISTATE (=I1) illegal ' - CALL XERRWD (MSG, 30, 1, 0, 1, ISTATE, 0, 0, 0.0D0, 0.0D0) - IF (ISTATE .LT. 0) GO TO 800 - GO TO 700 - 602 MSG = 'DLSODE- ITASK (=I1) illegal ' - CALL XERRWD (MSG, 30, 2, 0, 1, ITASK, 0, 0, 0.0D0, 0.0D0) - GO TO 700 - 603 MSG = 'DLSODE- ISTATE .GT. 1 but DLSODE not initialized ' - CALL XERRWD (MSG, 50, 3, 0, 0, 0, 0, 0, 0.0D0, 0.0D0) - GO TO 700 - 604 MSG = 'DLSODE- NEQ (=I1) .LT. 1 ' - CALL XERRWD (MSG, 30, 4, 0, 1, NEQ, 0, 0, 0.0D0, 0.0D0) - GO TO 700 - 605 MSG = 'DLSODE- ISTATE = 3 and NEQ increased (I1 to I2) ' - CALL XERRWD (MSG, 50, 5, 0, 2, N, NEQ, 0, 0.0D0, 0.0D0) - GO TO 700 - 606 MSG = 'DLSODE- ITOL (=I1) illegal ' - CALL XERRWD (MSG, 30, 6, 0, 1, ITOL, 0, 0, 0.0D0, 0.0D0) - GO TO 700 - 607 MSG = 'DLSODE- IOPT (=I1) illegal ' - CALL XERRWD (MSG, 30, 7, 0, 1, IOPT, 0, 0, 0.0D0, 0.0D0) - GO TO 700 - 608 MSG = 'DLSODE- MF (=I1) illegal ' - CALL XERRWD (MSG, 30, 8, 0, 1, MF, 0, 0, 0.0D0, 0.0D0) - GO TO 700 - 609 MSG = 'DLSODE- ML (=I1) illegal.. .LT.0 or .GE.NEQ (=I2)' - CALL XERRWD (MSG, 50, 9, 0, 2, ML, NEQ, 0, 0.0D0, 0.0D0) - GO TO 700 - 610 MSG = 'DLSODE- MU (=I1) illegal.. .LT.0 or .GE.NEQ (=I2)' - CALL XERRWD (MSG, 50, 10, 0, 2, MU, NEQ, 0, 0.0D0, 0.0D0) - GO TO 700 - 611 MSG = 'DLSODE- MAXORD (=I1) .LT. 0 ' - CALL XERRWD (MSG, 30, 11, 0, 1, MAXORD, 0, 0, 0.0D0, 0.0D0) - GO TO 700 - 612 MSG = 'DLSODE- MXSTEP (=I1) .LT. 0 ' - CALL XERRWD (MSG, 30, 12, 0, 1, MXSTEP, 0, 0, 0.0D0, 0.0D0) - GO TO 700 - 613 MSG = 'DLSODE- MXHNIL (=I1) .LT. 0 ' - CALL XERRWD (MSG, 30, 13, 0, 1, MXHNIL, 0, 0, 0.0D0, 0.0D0) - GO TO 700 - 614 MSG = 'DLSODE- TOUT (=R1) behind T (=R2) ' - CALL XERRWD (MSG, 40, 14, 0, 0, 0, 0, 2, TOUT, T) - MSG = ' Integration direction is given by H0 (=R1) ' - CALL XERRWD (MSG, 50, 14, 0, 0, 0, 0, 1, H0, 0.0D0) - GO TO 700 - 615 MSG = 'DLSODE- HMAX (=R1) .LT. 0.0 ' - CALL XERRWD (MSG, 30, 15, 0, 0, 0, 0, 1, HMAX, 0.0D0) - GO TO 700 - 616 MSG = 'DLSODE- HMIN (=R1) .LT. 0.0 ' - CALL XERRWD (MSG, 30, 16, 0, 0, 0, 0, 1, HMIN, 0.0D0) - GO TO 700 - 617 CONTINUE - MSG='DLSODE- RWORK length needed, LENRW (=I1), exceeds LRW (=I2)' - CALL XERRWD (MSG, 60, 17, 0, 2, LENRW, LRW, 0, 0.0D0, 0.0D0) - GO TO 700 - 618 CONTINUE - MSG='DLSODE- IWORK length needed, LENIW (=I1), exceeds LIW (=I2)' - CALL XERRWD (MSG, 60, 18, 0, 2, LENIW, LIW, 0, 0.0D0, 0.0D0) - GO TO 700 - 619 MSG = 'DLSODE- RelTol(I1) is R1 .LT. 0.0 ' - CALL XERRWD (MSG, 40, 19, 0, 1, I, 0, 1, RelTolI, 0.0D0) - GO TO 700 - 620 MSG = 'DLSODE- AbsTol(I1) is R1 .LT. 0.0 ' - CALL XERRWD (MSG, 40, 20, 0, 1, I, 0, 1, AbsTolI, 0.0D0) - GO TO 700 - 621 EWTI = RWORK(LEWT+I-1) - MSG = 'DLSODE- EWT(I1) is R1 .LE. 0.0 ' - CALL XERRWD (MSG, 40, 21, 0, 1, I, 0, 1, EWTI, 0.0D0) - GO TO 700 - 622 CONTINUE - MSG='DLSODE- TOUT (=R1) too close to T(=R2) to start integration' - CALL XERRWD (MSG, 60, 22, 0, 0, 0, 0, 2, TOUT, T) - GO TO 700 - 623 CONTINUE - MSG='DLSODE- ITASK = I1 and TOUT (=R1) behind TCUR - HU (= R2) ' - CALL XERRWD (MSG, 60, 23, 0, 1, ITASK, 0, 2, TOUT, TP) - GO TO 700 - 624 CONTINUE - MSG='DLSODE- ITASK = 4 OR 5 and TCRIT (=R1) behind TCUR (=R2) ' - CALL XERRWD (MSG, 60, 24, 0, 0, 0, 0, 2, TCRIT, TN) - GO TO 700 - 625 CONTINUE - MSG='DLSODE- ITASK = 4 or 5 and TCRIT (=R1) behind TOUT (=R2) ' - CALL XERRWD (MSG, 60, 25, 0, 0, 0, 0, 2, TCRIT, TOUT) - GO TO 700 - 626 MSG = 'DLSODE- At start of problem, too much accuracy ' - CALL XERRWD (MSG, 50, 26, 0, 0, 0, 0, 0, 0.0D0, 0.0D0) - MSG=' requested for precision of machine.. See TOLSF (=R1) ' - CALL XERRWD (MSG, 60, 26, 0, 0, 0, 0, 1, TOLSF, 0.0D0) - RWORK(14) = TOLSF - GO TO 700 - 627 MSG = 'DLSODE- Trouble in DINTDY. ITASK = I1, TOUT = R1' - CALL XERRWD (MSG, 50, 27, 0, 1, ITASK, 0, 1, TOUT, 0.0D0) -! - 700 ISTATE = -3 - RETURN -! - 800 MSG = 'DLSODE- Run aborted.. apparent infinite loop ' - CALL XERRWD (MSG, 50, 303, 2, 0, 0, 0, 0, 0.0D0, 0.0D0) - RETURN -!----------------------- END OF SUBROUTINE DLSODE ---------------------- - !END SUBROUTINE DLSODE - CONTAINS - - -!DECK DUMACH - KPP_REAL FUNCTION DUMACH () -!***BEGIN PROLOGUE DUMACH -!***PURPOSE Compute the unit roundoff of the machine. -!***CATEGORY R1 -!***TYPE KPP_REAL (RUMACH-S, DUMACH-D) -!***KEYWORDS MACHINE CONSTANTS -!***AUTHOR Hindmarsh, Alan C., (LLNL) -!***DESCRIPTION -! *Usage: -! KPP_REAL A, DUMACH -! A = DUMACH() -! -! *Function Return Values: -! A : the unit roundoff of the machine. -! -! *Description: -! The unit roundoff is defined as the smallest positive machine -! number u such that 1.0 + u .ne. 1.0. This is computed by DUMACH -! in a machine-independent manner. -! -!***REFERENCES (NONE) -!***ROUTINES CALLED DUMSUM -!***REVISION HISTORY (YYYYMMDD) -! 19930216 DATE WRITTEN -! 19930818 Added SLATEC-format prologue. (FNF) -! 20030707 Added DUMSUM to force normal storage of COMP. (ACH) -!***END PROLOGUE DUMACH -! - KPP_REAL U, COMP -!***FIRST EXECUTABLE STATEMENT DUMACH - U = 1.0D0 - 10 U = U*0.5D0 - CALL DUMSUM(1.0D0, U, COMP) - IF (COMP .NE. 1.0D0) GO TO 10 - DUMACH = U*2.0D0 - RETURN -!----------------------- End of Function DUMACH ------------------------ - END FUNCTION DUMACH - - SUBROUTINE DUMSUM(A,B,C) -! Routine to force normal storing of A + B, for DUMACH. - KPP_REAL A, B, C - C = A + B - RETURN - END SUBROUTINE DUMSUM -!DECK DCFODE - SUBROUTINE DCFODE (METH, ELCO, TESCO) -!***BEGIN PROLOGUE DCFODE -!***SUBSIDIARY -!***PURPOSE Set ODE integrator coefficients. -!***TYPE KPP_REAL (SCFODE-S, DCFODE-D) -!***AUTHOR Hindmarsh, Alan C., (LLNL) -!***DESCRIPTION -! -! DCFODE is called by the integrator routine to set coefficients -! needed there. The coefficients for the current method, as -! given by the value of METH, are set for all orders and saved. -! The maximum order assumed here is 12 if METH = 1 and 5 if METH = 2. -! (A smaller value of the maximum order is also allowed.) -! DCFODE is called once at the beginning of the problem, -! and is not called again unless and until METH is changed. -! -! The ELCO array contains the basic method coefficients. -! The coefficients el(i), 1 .le. i .le. nq+1, for the method of -! order nq are stored in ELCO(i,nq). They are given by a genetrating -! polynomial, i.e., -! l(x) = el(1) + el(2)*x + ... + el(nq+1)*x**nq. -! For the implicit Adams methods, l(x) is given by -! dl/dx = (x+1)*(x+2)*...*(x+nq-1)/factorial(nq-1), l(-1) = 0. -! For the BDF methods, l(x) is given by -! l(x) = (x+1)*(x+2)* ... *(x+nq)/K, -! where K = factorial(nq)*(1 + 1/2 + ... + 1/nq). -! -! The TESCO array contains test constants used for the -! local error test and the selection of step size and/or order. -! At order nq, TESCO(k,nq) is used for the selection of step -! size at order nq - 1 if k = 1, at order nq if k = 2, and at order -! nq + 1 if k = 3. -! -!***SEE ALSO DLSODE -!***ROUTINES CALLED (NONE) -!***REVISION HISTORY (YYMMDD) -! 791129 DATE WRITTEN -! 890501 Modified prologue to SLATEC/LDOC format. (FNF) -! 890503 Minor cosmetic changes. (FNF) -! 930809 Renamed to allow single/double precision versions. (ACH) -!***END PROLOGUE DCFODE -!**End - INTEGER METH - INTEGER I, IB, NQ, NQM1, NQP1 - KPP_REAL ELCO(13,12), TESCO(3,12), PC(12) - KPP_REAL AGAMQ, FNQ, FNQM1, PINT, RAGQ, RQFAC, RQ1FAC, TSIGN, XPIN -! -!***FIRST EXECUTABLE STATEMENT DCFODE - GO TO (100, 200), METH -! - 100 ELCO(1,1) = 1.0D0 - ELCO(2,1) = 1.0D0 - TESCO(1,1) = 0.0D0 - TESCO(2,1) = 2.0D0 - TESCO(1,2) = 1.0D0 - TESCO(3,12) = 0.0D0 - PC(1) = 1.0D0 - RQFAC = 1.0D0 - DO 140 NQ = 2,12 -!----------------------------------------------------------------------- -! The PC array will contain the coefficients of the polynomial -! p(x) = (x+1)*(x+2)*...*(x+nq-1). -! Initially, p(x) = 1. -!----------------------------------------------------------------------- - RQ1FAC = RQFAC - RQFAC = RQFAC/NQ - NQM1 = NQ - 1 - FNQM1 = NQM1 - NQP1 = NQ + 1 -! Form coefficients of p(x)*(x+nq-1). ---------------------------------- - PC(NQ) = 0.0D0 - DO 110 IB = 1,NQM1 - I = NQP1 - IB - 110 PC(I) = PC(I-1) + FNQM1*PC(I) - PC(1) = FNQM1*PC(1) -! Compute integral, -1 to 0, of p(x) and x*p(x). ----------------------- - PINT = PC(1) - XPIN = PC(1)/2.0D0 - TSIGN = 1.0D0 - DO 120 I = 2,NQ - TSIGN = -TSIGN - PINT = PINT + TSIGN*PC(I)/I - 120 XPIN = XPIN + TSIGN*PC(I)/(I+1) -! Store coefficients in ELCO and TESCO. -------------------------------- - ELCO(1,NQ) = PINT*RQ1FAC - ELCO(2,NQ) = 1.0D0 - DO 130 I = 2,NQ - 130 ELCO(I+1,NQ) = RQ1FAC*PC(I)/I - AGAMQ = RQFAC*XPIN - RAGQ = 1.0D0/AGAMQ - TESCO(2,NQ) = RAGQ - IF (NQ .LT. 12) TESCO(1,NQP1) = RAGQ*RQFAC/NQP1 - TESCO(3,NQM1) = RAGQ - 140 CONTINUE - RETURN -! - 200 PC(1) = 1.0D0 - RQ1FAC = 1.0D0 - DO 230 NQ = 1,5 -!----------------------------------------------------------------------- -! The PC array will contain the coefficients of the polynomial -! p(x) = (x+1)*(x+2)*...*(x+nq). -! Initially, p(x) = 1. -!----------------------------------------------------------------------- - FNQ = NQ - NQP1 = NQ + 1 -! Form coefficients of p(x)*(x+nq). ------------------------------------ - PC(NQP1) = 0.0D0 - DO 210 IB = 1,NQ - I = NQ + 2 - IB - 210 PC(I) = PC(I-1) + FNQ*PC(I) - PC(1) = FNQ*PC(1) -! Store coefficients in ELCO and TESCO. -------------------------------- - DO 220 I = 1,NQP1 - 220 ELCO(I,NQ) = PC(I)/PC(2) - ELCO(2,NQ) = 1.0D0 - TESCO(1,NQ) = RQ1FAC - TESCO(2,NQ) = NQP1/ELCO(1,NQ) - TESCO(3,NQ) = (NQ+2)/ELCO(1,NQ) - RQ1FAC = RQ1FAC/FNQ - 230 CONTINUE - RETURN -!----------------------- END OF SUBROUTINE DCFODE ---------------------- - END SUBROUTINE DCFODE -!DECK DINTDY - SUBROUTINE DINTDY (T, K, YH, NYH, DKY, IFLAG) -!***BEGIN PROLOGUE DINTDY -!***SUBSIDIARY -!***PURPOSE Interpolate solution derivatives. -!***TYPE KPP_REAL (SINTDY-S, DINTDY-D) -!***AUTHOR Hindmarsh, Alan C., (LLNL) -!***DESCRIPTION -! -! DINTDY computes interpolated values of the K-th derivative of the -! dependent variable vector y, and stores it in DKY. This routine -! is called within the package with K = 0 and T = TOUT, but may -! also be called by the user for any K up to the current order. -! (See detailed instructions in the usage documentation.) -! -! The computed values in DKY are gotten by interpolation using the -! Nordsieck history array YH. This array corresponds uniquely to a -! vector-valued polynomial of degree NQCUR or less, and DKY is set -! to the K-th derivative of this polynomial at T. -! The formula for DKY is: -! q -! DKY(i) = sum c(j,K) * (T - tn)**(j-K) * h**(-j) * YH(i,j+1) -! j=K -! where c(j,K) = j*(j-1)*...*(j-K+1), q = NQCUR, tn = TCUR, h = HCUR. -! The quantities nq = NQCUR, l = nq+1, N = NEQ, tn, and h are -! communicated by COMMON. The above sum is done in reverse order. -! IFLAG is returned negative if either K or T is out of bounds. -! -!***SEE ALSO DLSODE -!***ROUTINES CALLED XERRWD -!***COMMON BLOCKS DLS001 -!***REVISION HISTORY (YYMMDD) -! 791129 DATE WRITTEN -! 890501 Modified prologue to SLATEC/LDOC format. (FNF) -! 890503 Minor cosmetic changes. (FNF) -! 930809 Renamed to allow single/double precision versions. (ACH) -! 010418 Reduced size of Common block /DLS001/. (ACH) -! 031105 Restored 'own' variables to Common block /DLS001/, to -! enable interrupt/restart feature. (ACH) -! 050427 Corrected roundoff decrement in TP. (ACH) -!***END PROLOGUE DINTDY -!**End - INTEGER K, NYH, IFLAG - KPP_REAL T, YH(NYH,*), DKY(*) - INTEGER IOWND, IOWNS, & - ICF, IERPJ, IERSL, JCUR, JSTART, KFLAG, L, & - LYH, LEWT, LACOR, LSAVF, LWM, LIWM, METH, MITER, & - MAXORD, MAXCOR, MSBP, MXNCF, N, NQ, NST, NFE, NJE, NQU - KPP_REAL ROWNS, & - CCMAX, EL0, H, HMIN, HMXI, HU, RC, TN, UROUND - COMMON /DLS001/ ROWNS(209), & - CCMAX, EL0, H, HMIN, HMXI, HU, RC, TN, UROUND, & - IOWND(6), IOWNS(6), & - ICF, IERPJ, IERSL, JCUR, JSTART, KFLAG, L, & - LYH, LEWT, LACOR, LSAVF, LWM, LIWM, METH, MITER, & - MAXORD, MAXCOR, MSBP, MXNCF, N, NQ, NST, NFE, NJE, NQU - INTEGER I, IC, J, JB, JB2, JJ, JJ1, JP1 - KPP_REAL C, R, S, TP - CHARACTER*80 MSG -! -!***FIRST EXECUTABLE STATEMENT DINTDY - IFLAG = 0 - IF (K .LT. 0 .OR. K .GT. NQ) GO TO 80 - TP = TN - HU - 100.0D0*UROUND*SIGN(ABS(TN) + ABS(HU), HU) - IF ((T-TP)*(T-TN) .GT. 0.0D0) GO TO 90 -! - S = (T - TN)/H - IC = 1 - IF (K .EQ. 0) GO TO 15 - JJ1 = L - K - DO 10 JJ = JJ1,NQ - 10 IC = IC*JJ - 15 C = IC - DO 20 I = 1,N - 20 DKY(I) = C*YH(I,L) - IF (K .EQ. NQ) GO TO 55 - JB2 = NQ - K - DO 50 JB = 1,JB2 - J = NQ - JB - JP1 = J + 1 - IC = 1 - IF (K .EQ. 0) GO TO 35 - JJ1 = JP1 - K - DO 30 JJ = JJ1,J - 30 IC = IC*JJ - 35 C = IC - DO 40 I = 1,N - 40 DKY(I) = C*YH(I,JP1) + S*DKY(I) - 50 CONTINUE - IF (K .EQ. 0) RETURN - 55 R = H**(-K) - DO 60 I = 1,N - 60 DKY(I) = R*DKY(I) - RETURN -! - 80 MSG = 'DINTDY- K (=I1) illegal ' - CALL XERRWD (MSG, 30, 51, 0, 1, K, 0, 0, 0.0D0, 0.0D0) - IFLAG = -1 - RETURN - 90 MSG = 'DINTDY- T (=R1) illegal ' - CALL XERRWD (MSG, 30, 52, 0, 0, 0, 0, 1, T, 0.0D0) - MSG=' T not in interval TCUR - HU (= R1) to TCUR (=R2) ' - CALL XERRWD (MSG, 60, 52, 0, 0, 0, 0, 2, TP, TN) - IFLAG = -2 - RETURN -!----------------------- END OF SUBROUTINE DINTDY ---------------------- - END SUBROUTINE DINTDY -!DECK DPREPJ - SUBROUTINE DPREPJ (NEQ, Y, YH, NYH, EWT, FTEM, SAVF, WM, IWM, F, JAC) -!***BEGIN PROLOGUE DPREPJ -!***SUBSIDIARY -!***PURPOSE Compute and process Newton iteration matrix. -!***TYPE KPP_REAL (SPREPJ-S, DPREPJ-D) -!***AUTHOR Hindmarsh, Alan C., (LLNL) -!***DESCRIPTION -! -! DPREPJ is called by DSTODE to compute and process the matrix -! P = I - h*el(1)*J , where J is an approximation to the Jacobian. -! Here J is computed by the user-supplied routine JAC if -! MITER = 1 or 4, or by finite differencing if MITER = 2, 3, or 5. -! If MITER = 3, a diagonal approximation to J is used. -! J is stored in WM and replaced by P. If MITER .ne. 3, P is then -! subjected to LU decomposition in preparation for later solution -! of linear systems with P as coefficient matrix. This is done -! by DGEFA if MITER = 1 or 2, and by DGBFA if MITER = 4 or 5. -! -! In addition to variables described in DSTODE and DLSODE prologues, -! communication with DPREPJ uses the following: -! Y = array containing predicted values on entry. -! FTEM = work array of length N (ACOR in DSTODE). -! SAVF = array containing f evaluated at predicted y. -! WM = real work space for matrices. On output it contains the -! inverse diagonal matrix if MITER = 3 and the LU decomposition -! of P if MITER is 1, 2 , 4, or 5. -! Storage of matrix elements starts at WM(3). -! WM also contains the following matrix-related data: -! WM(1) = SQRT(UROUND), used in numerical Jacobian increments. -! WM(2) = H*EL0, saved for later use if MITER = 3. -! IWM = integer work space containing pivot information, starting at -! IWM(21), if MITER is 1, 2, 4, or 5. IWM also contains band -! parameters ML = IWM(1) and MU = IWM(2) if MITER is 4 or 5. -! EL0 = EL(1) (input). -! IERPJ = output error flag, = 0 if no trouble, .gt. 0 if -! P matrix found to be singular. -! JCUR = output flag = 1 to indicate that the Jacobian matrix -! (or approximation) is now current. -! This routine also uses the COMMON variables EL0, H, TN, UROUND, -! MITER, N, NFE, and NJE. -! -!***SEE ALSO DLSODE -!***ROUTINES CALLED DGBFA, DGEFA, DVNORM -!***COMMON BLOCKS DLS001 -!***REVISION HISTORY (YYMMDD) -! 791129 DATE WRITTEN -! 890501 Modified prologue to SLATEC/LDOC format. (FNF) -! 890504 Minor cosmetic changes. (FNF) -! 930809 Renamed to allow single/double precision versions. (ACH) -! 010418 Reduced size of Common block /DLS001/. (ACH) -! 031105 Restored 'own' variables to Common block /DLS001/, to -! enable interrupt/restart feature. (ACH) -!***END PROLOGUE DPREPJ -!**End - EXTERNAL F, JAC - INTEGER NEQ, NYH, IWM(*) - KPP_REAL Y(*), YH(NYH,*), EWT(*), FTEM(*), SAVF(*), WM(*) - INTEGER IOWND, IOWNS, & - ICF, IERPJ, IERSL, JCUR, JSTART, KFLAG, L, & - LYH, LEWT, LACOR, LSAVF, LWM, LIWM, METH, MITER, & - MAXORD, MAXCOR, MSBP, MXNCF, N, NQ, NST, NFE, NJE, NQU - KPP_REAL ROWNS, & - CCMAX, EL0, H, HMIN, HMXI, HU, RC, TN, UROUND - COMMON /DLS001/ ROWNS(209), & - CCMAX, EL0, H, HMIN, HMXI, HU, RC, TN, UROUND, & - IOWND(6), IOWNS(6), & - ICF, IERPJ, IERSL, JCUR, JSTART, KFLAG, L, & - LYH, LEWT, LACOR, LSAVF, LWM, LIWM, METH, MITER, & - MAXORD, MAXCOR, MSBP, MXNCF, N, NQ, NST, NFE, NJE, NQU - INTEGER I, I1, I2, IER, II, J, J1, JJ, LENP, & - MBA, MBAND, MEB1, MEBAND, ML, ML3, MU, NP1 - KPP_REAL CON, DI, FAC, HL0, R, R0, SRUR, YI, YJ, YJJ - !KPP_REAL DVNORM -! -!***FIRST EXECUTABLE STATEMENT DPREPJ - NJE = NJE + 1 - IERPJ = 0 - JCUR = 1 - HL0 = H*EL0 - CON = -HL0 - -#ifdef FULL_ALGEBRA - LENP = N*N - DO i = 1,LENP - WM(i+2) = 0.0D0 - END DO - CALL JAC_CHEM (NEQ, TN, Y, WM(3)) - DO I = 1,LENP - WM(I+2) = WM(I+2)*CON - END DO - ! Add identity matrix - J = 3 - NP1 = N + 1 - DO I = 1,N - WM(J) = WM(J) + 1.0D0 - J = J + NP1 - END DO - ! Do LU decomposition on P - CALL DGETRF(N,N,WM(3),N,IWM(21),IER) -#else - CALL JAC_CHEM (NEQ, TN, Y, WM(3)) - DO i = 1,LU_NONZERO - WM(i+2) = WM(i+2)*CON - END DO - ! Add identity matrix - DO i = 1,N - j = 2+LU_DIAG(i) - WM(j) = WM(j) + 1.0D0 - END DO - ! Do LU decomposition on P - CALL KppDecomp(WM(3),IER) -#endif - IF (IER .NE. 0) IERPJ = 1 - RETURN - !----------------------- END OF SUBROUTINE DPREPJ ---------------------- - END SUBROUTINE DPREPJ -!DECK DSOLSY - SUBROUTINE DSOLSY (WM, IWM, X, TEM) -!***BEGIN PROLOGUE DSOLSY -!***SUBSIDIARY -!***PURPOSE ODEPACK linear system solver. -!***TYPE KPP_REAL (SSOLSY-S, DSOLSY-D) -!***AUTHOR Hindmarsh, Alan C., (LLNL) -!***DESCRIPTION -! -! This routine manages the solution of the linear system arising from -! a chord iteration. It is called if MITER .ne. 0. -! If MITER is 1 or 2, it calls DGESL to accomplish this. -! If MITER = 3 it updates the coefficient h*EL0 in the diagonal -! matrix, and then computes the solution. -! If MITER is 4 or 5, it calls DGBSL. -! Communication with DSOLSY uses the following variables: -! WM = real work space containing the inverse diagonal matrix if -! MITER = 3 and the LU decomposition of the matrix otherwise. -! Storage of matrix elements starts at WM(3). -! WM also contains the following matrix-related data: -! WM(1) = SQRT(UROUND) (not used here), -! WM(2) = HL0, the previous value of h*EL0, used if MITER = 3. -! IWM = integer work space containing pivot information, starting at -! IWM(21), if MITER is 1, 2, 4, or 5. IWM also contains band -! parameters ML = IWM(1) and MU = IWM(2) if MITER is 4 or 5. -! X = the right-hand side vector on input, and the solution vector -! on output, of length N. -! TEM = vector of work space of length N, not used in this version. -! IERSL = output flag (in COMMON). IERSL = 0 if no trouble occurred. -! IERSL = 1 if a singular matrix arose with MITER = 3. -! This routine also uses the COMMON variables EL0, H, MITER, and N. -! -!***SEE ALSO DLSODE -!***ROUTINES CALLED DGBSL, DGESL -!***COMMON BLOCKS DLS001 -!***REVISION HISTORY (YYMMDD) -! 791129 DATE WRITTEN -! 890501 Modified prologue to SLATEC/LDOC format. (FNF) -! 890503 Minor cosmetic changes. (FNF) -! 930809 Renamed to allow single/double precision versions. (ACH) -! 010418 Reduced size of Common block /DLS001/. (ACH) -! 031105 Restored 'own' variables to Common block /DLS001/, to -! enable interrupt/restart feature. (ACH) -!***END PROLOGUE DSOLSY -!**End - INTEGER IWM(*) - KPP_REAL WM(*), X(*), TEM(*) - INTEGER IOWND, IOWNS, & - ICF, IERPJ, IERSL, JCUR, JSTART, KFLAG, L, & - LYH, LEWT, LACOR, LSAVF, LWM, LIWM, METH, MITER, & - MAXORD, MAXCOR, MSBP, MXNCF, N, NQ, NST, NFE, NJE, NQU - KPP_REAL ROWNS, & - CCMAX, EL0, H, HMIN, HMXI, HU, RC, TN, UROUND - COMMON /DLS001/ ROWNS(209), & - CCMAX, EL0, H, HMIN, HMXI, HU, RC, TN, UROUND, & - IOWND(6), IOWNS(6), & - ICF, IERPJ, IERSL, JCUR, JSTART, KFLAG, L, & - LYH, LEWT, LACOR, LSAVF, LWM, LIWM, METH, MITER, & - MAXORD, MAXCOR, MSBP, MXNCF, N, NQ, NST, NFE, NJE, NQU - INTEGER I, MEBAND, ML, MU - KPP_REAL DI, HL0, PHL0, R -! -!***FIRST EXECUTABLE STATEMENT DSOLSY - IERSL = 0 -#ifdef FULL_ALGEBRA - CALL DGETRS ('N',N,1,WM(3),N,IWM(21),X,N,0) -#else - CALL KppSolve(WM(3),X) -#endif - RETURN -!----------------------- END OF SUBROUTINE DSOLSY ---------------------- - END SUBROUTINE DSOLSY -!DECK DSRCOM - SUBROUTINE DSRCOM (RSAV, ISAV, JOB) -!***BEGIN PROLOGUE DSRCOM -!***SUBSIDIARY -!***PURPOSE Save/restore ODEPACK COMMON blocks. -!***TYPE KPP_REAL (SSRCOM-S, DSRCOM-D) -!***AUTHOR Hindmarsh, Alan C., (LLNL) -!***DESCRIPTION -! -! This routine saves or restores (depending on JOB) the contents of -! the COMMON block DLS001, which is used internally -! by one or more ODEPACK solvers. -! -! RSAV = real array of length 218 or more. -! ISAV = integer array of length 37 or more. -! JOB = flag indicating to save or restore the COMMON blocks: -! JOB = 1 if COMMON is to be saved (written to RSAV/ISAV) -! JOB = 2 if COMMON is to be restored (read from RSAV/ISAV) -! A call with JOB = 2 presumes a prior call with JOB = 1. -! -!***SEE ALSO DLSODE -!***ROUTINES CALLED (NONE) -!***COMMON BLOCKS DLS001 -!***REVISION HISTORY (YYMMDD) -! 791129 DATE WRITTEN -! 890501 Modified prologue to SLATEC/LDOC format. (FNF) -! 890503 Minor cosmetic changes. (FNF) -! 921116 Deleted treatment of block /EH0001/. (ACH) -! 930801 Reduced Common block length by 2. (ACH) -! 930809 Renamed to allow single/double precision versions. (ACH) -! 010418 Reduced Common block length by 209+12. (ACH) -! 031105 Restored 'own' variables to Common block /DLS001/, to -! enable interrupt/restart feature. (ACH) -! 031112 Added SAVE statement for data-loaded constants. -!***END PROLOGUE DSRCOM -!**End - INTEGER ISAV(*), JOB - INTEGER ILS - INTEGER I, LENILS, LENRLS - KPP_REAL RSAV(*), RLS - SAVE LENRLS, LENILS - COMMON /DLS001/ RLS(218), ILS(37) - DATA LENRLS/218/, LENILS/37/ -! -!***FIRST EXECUTABLE STATEMENT DSRCOM - IF (JOB .EQ. 2) GO TO 100 -! - DO 10 I = 1,LENRLS - 10 RSAV(I) = RLS(I) - DO 20 I = 1,LENILS - 20 ISAV(I) = ILS(I) - RETURN -! - 100 CONTINUE - DO 110 I = 1,LENRLS - 110 RLS(I) = RSAV(I) - DO 120 I = 1,LENILS - 120 ILS(I) = ISAV(I) - RETURN -!----------------------- END OF SUBROUTINE DSRCOM ---------------------- - END SUBROUTINE DSRCOM -!DECK DSTODE - SUBROUTINE DSTODE (NEQ, Y, YH, NYH, YH1, EWT, SAVF, ACOR, & - WM, IWM, F, JAC) - !WM, IWM, F, JAC, PJAC, SLVS) -!***BEGIN PROLOGUE DSTODE -!***SUBSIDIARY -!***PURPOSE Performs one step of an ODEPACK integration. -!***TYPE KPP_REAL (SSTODE-S, DSTODE-D) -!***AUTHOR Hindmarsh, Alan C., (LLNL) -!***DESCRIPTION -! -! DSTODE performs one step of the integration of an initial value -! problem for a system of ordinary differential equations. -! Note: DSTODE is independent of the value of the iteration method -! indicator MITER, when this is .ne. 0, and hence is independent -! of the type of chord method used, or the Jacobian structure. -! Communication with DSTODE is done with the following variables: -! -! NEQ = integer array containing problem size in NEQ, and -! passed as the NEQ argument in all calls to F and JAC. -! Y = an array of length .ge. N used as the Y argument in -! all calls to F and JAC. -! YH = an NYH by LMAX array containing the dependent variables -! and their approximate scaled derivatives, where -! LMAX = MAXORD + 1. YH(i,j+1) contains the approximate -! j-th derivative of y(i), scaled by h**j/factorial(j) -! (j = 0,1,...,NQ). on entry for the first step, the first -! two columns of YH must be set from the initial values. -! NYH = a constant integer .ge. N, the first dimension of YH. -! YH1 = a one-dimensional array occupying the same space as YH. -! EWT = an array of length N containing multiplicative weights -! for local error measurements. Local errors in Y(i) are -! compared to 1.0/EWT(i) in various error tests. -! SAVF = an array of working storage, of length N. -! Also used for input of YH(*,MAXORD+2) when JSTART = -1 -! and MAXORD .lt. the current order NQ. -! ACOR = a work array of length N, used for the accumulated -! corrections. On a successful return, ACOR(i) contains -! the estimated one-step local error in Y(i). -! WM,IWM = real and integer work arrays associated with matrix -! operations in chord iteration (MITER .ne. 0). -! PJAC = name of routine to evaluate and preprocess Jacobian matrix -! and P = I - h*el0*JAC, if a chord method is being used. -! SLVS = name of routine to solve linear system in chord iteration. -! CCMAX = maximum relative change in h*el0 before PJAC is called. -! H = the step size to be attempted on the next step. -! H is altered by the error control algorithm during the -! problem. H can be either positive or negative, but its -! sign must remain constant throughout the problem. -! HMIN = the minimum absolute value of the step size h to be used. -! HMXI = inverse of the maximum absolute value of h to be used. -! HMXI = 0.0 is allowed and corresponds to an infinite hmax. -! HMIN and HMXI may be changed at any time, but will not -! take effect until the next change of h is considered. -! TN = the independent variable. TN is updated on each step taken. -! JSTART = an integer used for input only, with the following -! values and meanings: -! 0 perform the first step. -! .gt.0 take a new step continuing from the last. -! -1 take the next step with a new value of H, MAXORD, -! N, METH, MITER, and/or matrix parameters. -! -2 take the next step with a new value of H, -! but with other inputs unchanged. -! On return, JSTART is set to 1 to facilitate continuation. -! KFLAG = a completion code with the following meanings: -! 0 the step was succesful. -! -1 the requested error could not be achieved. -! -2 corrector convergence could not be achieved. -! -3 fatal error in PJAC or SLVS. -! A return with KFLAG = -1 or -2 means either -! abs(H) = HMIN or 10 consecutive failures occurred. -! On a return with KFLAG negative, the values of TN and -! the YH array are as of the beginning of the last -! step, and H is the last step size attempted. -! MAXORD = the maximum order of integration method to be allowed. -! MAXCOR = the maximum number of corrector iterations allowed. -! MSBP = maximum number of steps between PJAC calls (MITER .gt. 0). -! MXNCF = maximum number of convergence failures allowed. -! METH/MITER = the method flags. See description in driver. -! N = the number of first-order differential equations. -! The values of CCMAX, H, HMIN, HMXI, TN, JSTART, KFLAG, MAXORD, -! MAXCOR, MSBP, MXNCF, METH, MITER, and N are communicated via COMMON. -! -!***SEE ALSO DLSODE -!***ROUTINES CALLED DCFODE, DVNORM -!***COMMON BLOCKS DLS001 -!***REVISION HISTORY (YYMMDD) -! 791129 DATE WRITTEN -! 890501 Modified prologue to SLATEC/LDOC format. (FNF) -! 890503 Minor cosmetic changes. (FNF) -! 930809 Renamed to allow single/double precision versions. (ACH) -! 010418 Reduced size of Common block /DLS001/. (ACH) -! 031105 Restored 'own' variables to Common block /DLS001/, to -! enable interrupt/restart feature. (ACH) -!***END PROLOGUE DSTODE -!**End - EXTERNAL F, JAC !, PJAC, SLVS - INTEGER NEQ, NYH, IWM(*) - KPP_REAL Y(*), YH(NYH,*), YH1(*), EWT(*), SAVF(*), & - ACOR(*), WM(*) - INTEGER IOWND, IALTH, IPUP, LMAX, MEO, NQNYH, NSLP, & - ICF, IERPJ, IERSL, JCUR, JSTART, KFLAG, L, & - LYH, LEWT, LACOR, LSAVF, LWM, LIWM, METH, MITER, & - MAXORD, MAXCOR, MSBP, MXNCF, N, NQ, NST, NFE, NJE, NQU - INTEGER I, I1, IREDO, IRET, J, JB, M, NCF, NEWQ - KPP_REAL CONIT, CRATE, EL, ELCO, HOLD, RMAX, TESCO, & - CCMAX, EL0, H, HMIN, HMXI, HU, RC, TN, UROUND - KPP_REAL DCON, DDN, DEL, DELP, DSM, DUP, EXDN, EXSM, & - EXUP,R, RH, RHDN, RHSM, RHUP, TOLD - !KPP_REAL DVNORM - COMMON /DLS001/ CONIT, CRATE, EL(13), ELCO(13,12), & - HOLD, RMAX, TESCO(3,12), & - CCMAX, EL0, H, HMIN, HMXI, HU, RC, TN, UROUND, & - IOWND(6), IALTH, IPUP, LMAX, MEO, NQNYH, NSLP, & - ICF, IERPJ, IERSL, JCUR, JSTART, KFLAG, L, & - LYH, LEWT, LACOR, LSAVF, LWM, LIWM, METH, MITER, & - MAXORD, MAXCOR, MSBP, MXNCF, N, NQ, NST, NFE, NJE, NQU -! -!***FIRST EXECUTABLE STATEMENT DSTODE - KFLAG = 0 - TOLD = TN - NCF = 0 - IERPJ = 0 - IERSL = 0 - JCUR = 0 - ICF = 0 - DELP = 0.0D0 - IF (JSTART .GT. 0) GO TO 200 - IF (JSTART .EQ. -1) GO TO 100 - IF (JSTART .EQ. -2) GO TO 160 -!----------------------------------------------------------------------- -! On the first call, the order is set to 1, and other variables are -! initialized. RMAX is the maximum ratio by which H can be increased -! in a single step. It is initially 1.E4 to compensate for the small -! initial H, but then is normally equal to 10. If a failure -! occurs (in corrector convergence or error test), RMAX is set to 2 -! for the next increase. -!----------------------------------------------------------------------- - LMAX = MAXORD + 1 - NQ = 1 - L = 2 - IALTH = 2 - RMAX = 10000.0D0 - RC = 0.0D0 - EL0 = 1.0D0 - CRATE = 0.7D0 - HOLD = H - MEO = METH - NSLP = 0 - IPUP = MITER - IRET = 3 - GO TO 140 -!----------------------------------------------------------------------- -! The following block handles preliminaries needed when JSTART = -1. -! IPUP is set to MITER to force a matrix update. -! If an order increase is about to be considered (IALTH = 1), -! IALTH is reset to 2 to postpone consideration one more step. -! If the caller has changed METH, DCFODE is called to reset -! the coefficients of the method. -! If the caller has changed MAXORD to a value less than the current -! order NQ, NQ is reduced to MAXORD, and a new H chosen accordingly. -! If H is to be changed, YH must be rescaled. -! If H or METH is being changed, IALTH is reset to L = NQ + 1 -! to prevent further changes in H for that many steps. -!----------------------------------------------------------------------- - 100 IPUP = MITER - LMAX = MAXORD + 1 - IF (IALTH .EQ. 1) IALTH = 2 - IF (METH .EQ. MEO) GO TO 110 - CALL DCFODE (METH, ELCO, TESCO) - MEO = METH - IF (NQ .GT. MAXORD) GO TO 120 - IALTH = L - IRET = 1 - GO TO 150 - 110 IF (NQ .LE. MAXORD) GO TO 160 - 120 NQ = MAXORD - L = LMAX - DO 125 I = 1,L - 125 EL(I) = ELCO(I,NQ) - NQNYH = NQ*NYH - RC = RC*EL(1)/EL0 - EL0 = EL(1) - CONIT = 0.5D0/(NQ+2) - DDN = DVNORM (N, SAVF, EWT)/TESCO(1,L) - EXDN = 1.0D0/L - RHDN = 1.0D0/(1.3D0*DDN**EXDN + 0.0000013D0) - RH = MIN(RHDN,1.0D0) - IREDO = 3 - IF (H .EQ. HOLD) GO TO 170 - RH = MIN(RH,ABS(H/HOLD)) - H = HOLD - GO TO 175 -!----------------------------------------------------------------------- -! DCFODE is called to get all the integration coefficients for the -! current METH. Then the EL vector and related constants are reset -! whenever the order NQ is changed, or at the start of the problem. -!----------------------------------------------------------------------- - 140 CALL DCFODE (METH, ELCO, TESCO) - 150 DO 155 I = 1,L - 155 EL(I) = ELCO(I,NQ) - NQNYH = NQ*NYH - RC = RC*EL(1)/EL0 - EL0 = EL(1) - CONIT = 0.5D0/(NQ+2) - GO TO (160, 170, 200), IRET -!----------------------------------------------------------------------- -! If H is being changed, the H ratio RH is checked against -! RMAX, HMIN, and HMXI, and the YH array rescaled. IALTH is set to -! L = NQ + 1 to prevent a change of H for that many steps, unless -! forced by a convergence or error test failure. -!----------------------------------------------------------------------- - 160 IF (H .EQ. HOLD) GO TO 200 - RH = H/HOLD - H = HOLD - IREDO = 3 - GO TO 175 - 170 RH = MAX(RH,HMIN/ABS(H)) - 175 RH = MIN(RH,RMAX) - RH = RH/MAX(1.0D0,ABS(H)*HMXI*RH) - R = 1.0D0 - DO 180 J = 2,L - R = R*RH - DO 180 I = 1,N - 180 YH(I,J) = YH(I,J)*R - H = H*RH - RC = RC*RH - IALTH = L - IF (IREDO .EQ. 0) GO TO 690 -!----------------------------------------------------------------------- -! This section computes the predicted values by effectively -! multiplying the YH array by the Pascal Triangle matrix. -! RC is the ratio of new to old values of the coefficient H*EL(1). -! When RC differs from 1 by more than CCMAX, IPUP is set to MITER -! to force PJAC to be called, if a Jacobian is involved. -! In any case, PJAC is called at least every MSBP steps. -!----------------------------------------------------------------------- - 200 IF (ABS(RC-1.0D0) .GT. CCMAX) IPUP = MITER - IF (NST .GE. NSLP+MSBP) IPUP = MITER - TN = TN + H - I1 = NQNYH + 1 - DO 215 JB = 1,NQ - I1 = I1 - NYH -!dir$ ivdep - DO 210 I = I1,NQNYH - 210 YH1(I) = YH1(I) + YH1(I+NYH) - 215 CONTINUE -!----------------------------------------------------------------------- -! Up to MAXCOR corrector iterations are taken. A convergence test is -! made on the R.M.S. norm of each correction, weighted by the error -! weight vector EWT. The sum of the corrections is accumulated in the -! vector ACOR(i). The YH array is not altered in the corrector loop. -!----------------------------------------------------------------------- - 220 M = 0 - DO 230 I = 1,N - 230 Y(I) = YH(I,1) - CALL F (NEQ, TN, Y, SAVF) - NFE = NFE + 1 - IF (IPUP .LE. 0) GO TO 250 -!----------------------------------------------------------------------- -! If indicated, the matrix P = I - h*el(1)*J is reevaluated and -! preprocessed before starting the corrector iteration. IPUP is set -! to 0 as an indicator that this has been done. -!----------------------------------------------------------------------- - !CALL PJAC (NEQ, Y, YH, NYH, EWT, ACOR, SAVF, WM, IWM, F, JAC) - CALL DPREPJ(NEQ, Y, YH, NYH, EWT, ACOR, SAVF, WM, IWM, F, JAC) - IPUP = 0 - RC = 1.0D0 - NSLP = NST - CRATE = 0.7D0 - IF (IERPJ .NE. 0) GO TO 430 - 250 DO 260 I = 1,N - 260 ACOR(I) = 0.0D0 - 270 IF (MITER .NE. 0) GO TO 350 -!----------------------------------------------------------------------- -! In the case of functional iteration, update Y directly from -! the result of the last function evaluation. -!----------------------------------------------------------------------- - DO 290 I = 1,N - SAVF(I) = H*SAVF(I) - YH(I,2) - 290 Y(I) = SAVF(I) - ACOR(I) - DEL = DVNORM (N, Y, EWT) - DO 300 I = 1,N - Y(I) = YH(I,1) + EL(1)*SAVF(I) - 300 ACOR(I) = SAVF(I) - GO TO 400 -!----------------------------------------------------------------------- -! In the case of the chord method, compute the corrector error, -! and solve the linear system with that as right-hand side and -! P as coefficient matrix. -!----------------------------------------------------------------------- - 350 DO 360 I = 1,N - 360 Y(I) = H*SAVF(I) - (YH(I,2) + ACOR(I)) - !CALL SLVS (WM, IWM, Y, SAVF) - CALL DSOLSY(WM, IWM, Y, SAVF) - IF (IERSL .LT. 0) GO TO 430 - IF (IERSL .GT. 0) GO TO 410 - DEL = DVNORM (N, Y, EWT) - DO 380 I = 1,N - ACOR(I) = ACOR(I) + Y(I) - 380 Y(I) = YH(I,1) + EL(1)*ACOR(I) -!----------------------------------------------------------------------- -! Test for convergence. If M.gt.0, an estimate of the convergence -! rate constant is stored in CRATE, and this is used in the test. -!----------------------------------------------------------------------- - 400 IF (M .NE. 0) CRATE = MAX(0.2D0*CRATE,DEL/DELP) - DCON = DEL*MIN(1.0D0,1.5D0*CRATE)/(TESCO(2,NQ)*CONIT) - IF (DCON .LE. 1.0D0) GO TO 450 - M = M + 1 - IF (M .EQ. MAXCOR) GO TO 410 - IF (M .GE. 2 .AND. DEL .GT. 2.0D0*DELP) GO TO 410 - DELP = DEL - CALL F (NEQ, TN, Y, SAVF) - NFE = NFE + 1 - GO TO 270 -!----------------------------------------------------------------------- -! The corrector iteration failed to converge. -! If MITER .ne. 0 and the Jacobian is out of date, PJAC is called for -! the next try. Otherwise the YH array is retracted to its values -! before prediction, and H is reduced, if possible. If H cannot be -! reduced or MXNCF failures have occurred, exit with KFLAG = -2. -!----------------------------------------------------------------------- - 410 IF (MITER .EQ. 0 .OR. JCUR .EQ. 1) GO TO 430 - ICF = 1 - IPUP = MITER - GO TO 220 - 430 ICF = 2 - NCF = NCF + 1 - RMAX = 2.0D0 - TN = TOLD - I1 = NQNYH + 1 - DO 445 JB = 1,NQ - I1 = I1 - NYH -!dir$ ivdep - DO 440 I = I1,NQNYH - 440 YH1(I) = YH1(I) - YH1(I+NYH) - 445 CONTINUE - IF (IERPJ .LT. 0 .OR. IERSL .LT. 0) GO TO 680 - IF (ABS(H) .LE. HMIN*1.00001D0) GO TO 670 - IF (NCF .EQ. MXNCF) GO TO 670 - RH = 0.25D0 - IPUP = MITER - IREDO = 1 - GO TO 170 -!----------------------------------------------------------------------- -! The corrector has converged. JCUR is set to 0 -! to signal that the Jacobian involved may need updating later. -! The local error test is made and control passes to statement 500 -! if it fails. -!----------------------------------------------------------------------- - 450 JCUR = 0 - IF (M .EQ. 0) DSM = DEL/TESCO(2,NQ) - IF (M .GT. 0) DSM = DVNORM (N, ACOR, EWT)/TESCO(2,NQ) - IF (DSM .GT. 1.0D0) GO TO 500 -!----------------------------------------------------------------------- -! After a successful step, update the YH array. -! Consider changing H if IALTH = 1. Otherwise decrease IALTH by 1. -! If IALTH is then 1 and NQ .lt. MAXORD, then ACOR is saved for -! use in a possible order increase on the next step. -! If a change in H is considered, an increase or decrease in order -! by one is considered also. A change in H is made only if it is by a -! factor of at least 1.1. If not, IALTH is set to 3 to prevent -! testing for that many steps. -!----------------------------------------------------------------------- - KFLAG = 0 - IREDO = 0 - NST = NST + 1 - HU = H - NQU = NQ - DO 470 J = 1,L - DO 470 I = 1,N - 470 YH(I,J) = YH(I,J) + EL(J)*ACOR(I) - IALTH = IALTH - 1 - IF (IALTH .EQ. 0) GO TO 520 - IF (IALTH .GT. 1) GO TO 700 - IF (L .EQ. LMAX) GO TO 700 - DO 490 I = 1,N - 490 YH(I,LMAX) = ACOR(I) - GO TO 700 -!----------------------------------------------------------------------- -! The error test failed. KFLAG keeps track of multiple failures. -! Restore TN and the YH array to their previous values, and prepare -! to try the step again. Compute the optimum step size for this or -! one lower order. After 2 or more failures, H is forced to decrease -! by a factor of 0.2 or less. -!----------------------------------------------------------------------- - 500 KFLAG = KFLAG - 1 - TN = TOLD - I1 = NQNYH + 1 - DO 515 JB = 1,NQ - I1 = I1 - NYH -!dir$ ivdep - DO 510 I = I1,NQNYH - 510 YH1(I) = YH1(I) - YH1(I+NYH) - 515 CONTINUE - RMAX = 2.0D0 - IF (ABS(H) .LE. HMIN*1.00001D0) GO TO 660 - IF (KFLAG .LE. -3) GO TO 640 - IREDO = 2 - RHUP = 0.0D0 - GO TO 540 -!----------------------------------------------------------------------- -! Regardless of the success or failure of the step, factors -! RHDN, RHSM, and RHUP are computed, by which H could be multiplied -! at order NQ - 1, order NQ, or order NQ + 1, respectively. -! In the case of failure, RHUP = 0.0 to avoid an order increase. -! The largest of these is determined and the new order chosen -! accordingly. If the order is to be increased, we compute one -! additional scaled derivative. -!----------------------------------------------------------------------- - 520 RHUP = 0.0D0 - IF (L .EQ. LMAX) GO TO 540 - DO 530 I = 1,N - 530 SAVF(I) = ACOR(I) - YH(I,LMAX) - DUP = DVNORM (N, SAVF, EWT)/TESCO(3,NQ) - EXUP = 1.0D0/(L+1) - RHUP = 1.0D0/(1.4D0*DUP**EXUP + 0.0000014D0) - 540 EXSM = 1.0D0/L - RHSM = 1.0D0/(1.2D0*DSM**EXSM + 0.0000012D0) - RHDN = 0.0D0 - IF (NQ .EQ. 1) GO TO 560 - DDN = DVNORM (N, YH(1,L), EWT)/TESCO(1,NQ) - EXDN = 1.0D0/NQ - RHDN = 1.0D0/(1.3D0*DDN**EXDN + 0.0000013D0) - 560 IF (RHSM .GE. RHUP) GO TO 570 - IF (RHUP .GT. RHDN) GO TO 590 - GO TO 580 - 570 IF (RHSM .LT. RHDN) GO TO 580 - NEWQ = NQ - RH = RHSM - GO TO 620 - 580 NEWQ = NQ - 1 - RH = RHDN - IF (KFLAG .LT. 0 .AND. RH .GT. 1.0D0) RH = 1.0D0 - GO TO 620 - 590 NEWQ = L - RH = RHUP - IF (RH .LT. 1.1D0) GO TO 610 - R = EL(L)/L - DO 600 I = 1,N - 600 YH(I,NEWQ+1) = ACOR(I)*R - GO TO 630 - 610 IALTH = 3 - GO TO 700 - 620 IF ((KFLAG .EQ. 0) .AND. (RH .LT. 1.1D0)) GO TO 610 - IF (KFLAG .LE. -2) RH = MIN(RH,0.2D0) -!----------------------------------------------------------------------- -! If there is a change of order, reset NQ, l, and the coefficients. -! In any case H is reset according to RH and the YH array is rescaled. -! Then exit from 690 if the step was OK, or redo the step otherwise. -!----------------------------------------------------------------------- - IF (NEWQ .EQ. NQ) GO TO 170 - 630 NQ = NEWQ - L = NQ + 1 - IRET = 2 - GO TO 150 -!----------------------------------------------------------------------- -! Control reaches this section if 3 or more failures have occured. -! If 10 failures have occurred, exit with KFLAG = -1. -! It is assumed that the derivatives that have accumulated in the -! YH array have errors of the wrong order. Hence the first -! derivative is recomputed, and the order is set to 1. Then -! H is reduced by a factor of 10, and the step is retried, -! until it succeeds or H reaches HMIN. -!----------------------------------------------------------------------- - 640 IF (KFLAG .EQ. -10) GO TO 660 - RH = 0.1D0 - RH = MAX(HMIN/ABS(H),RH) - H = H*RH - DO 645 I = 1,N - 645 Y(I) = YH(I,1) - CALL F (NEQ, TN, Y, SAVF) - NFE = NFE + 1 - DO 650 I = 1,N - 650 YH(I,2) = H*SAVF(I) - IPUP = MITER - IALTH = 5 - IF (NQ .EQ. 1) GO TO 200 - NQ = 1 - L = 2 - IRET = 3 - GO TO 150 -!----------------------------------------------------------------------- -! All returns are made through this section. H is saved in HOLD -! to allow the caller to change H on the next step. -!----------------------------------------------------------------------- - 660 KFLAG = -1 - GO TO 720 - 670 KFLAG = -2 - GO TO 720 - 680 KFLAG = -3 - GO TO 720 - 690 RMAX = 10.0D0 - 700 R = 1.0D0/TESCO(2,NQU) - DO 710 I = 1,N - 710 ACOR(I) = ACOR(I)*R - 720 HOLD = H - JSTART = 1 - RETURN -!----------------------- END OF SUBROUTINE DSTODE ---------------------- - END SUBROUTINE DSTODE -!DECK DEWSET - SUBROUTINE DEWSET (N, ITOL, RelTol, AbsTol, YCUR, EWT) -!***BEGIN PROLOGUE DEWSET -!***SUBSIDIARY -!***PURPOSE Set error weight vector. -!***TYPE KPP_REAL (SEWSET-S, DEWSET-D) -!***AUTHOR Hindmarsh, Alan C., (LLNL) -!***DESCRIPTION -! -! This subroutine sets the error weight vector EWT according to -! EWT(i) = RelTol(i)*ABS(YCUR(i)) + AbsTol(i), i = 1,...,N, -! with the subscript on RelTol and/or AbsTol possibly replaced by 1 above, -! depending on the value of ITOL. -! -!***SEE ALSO DLSODE -!***ROUTINES CALLED (NONE) -!***REVISION HISTORY (YYMMDD) -! 791129 DATE WRITTEN -! 890501 Modified prologue to SLATEC/LDOC format. (FNF) -! 890503 Minor cosmetic changes. (FNF) -! 930809 Renamed to allow single/double precision versions. (ACH) -!***END PROLOGUE DEWSET -!**End - INTEGER N, ITOL - INTEGER I - KPP_REAL RelTol(*), AbsTol(*), YCUR(N), EWT(N) -! -!***FIRST EXECUTABLE STATEMENT DEWSET - GO TO (10, 20, 30, 40), ITOL - 10 CONTINUE - DO 15 I = 1,N - 15 EWT(I) = RelTol(1)*ABS(YCUR(I)) + AbsTol(1) - RETURN - 20 CONTINUE - DO 25 I = 1,N - 25 EWT(I) = RelTol(1)*ABS(YCUR(I)) + AbsTol(I) - RETURN - 30 CONTINUE - DO 35 I = 1,N - 35 EWT(I) = RelTol(I)*ABS(YCUR(I)) + AbsTol(1) - RETURN - 40 CONTINUE - DO 45 I = 1,N - 45 EWT(I) = RelTol(I)*ABS(YCUR(I)) + AbsTol(I) - RETURN -!----------------------- END OF SUBROUTINE DEWSET ---------------------- - END SUBROUTINE DEWSET -!DECK DVNORM - KPP_REAL FUNCTION DVNORM (N, V, W) -!***BEGIN PROLOGUE DVNORM -!***SUBSIDIARY -!***PURPOSE Weighted root-mean-square vector norm. -!***TYPE KPP_REAL (SVNORM-S, DVNORM-D) -!***AUTHOR Hindmarsh, Alan C., (LLNL) -!***DESCRIPTION -! -! This function routine computes the weighted root-mean-square norm -! of the vector of length N contained in the array V, with weights -! contained in the array W of length N: -! DVNORM = SQRT( (1/N) * SUM( V(i)*W(i) )**2 ) -! -!***SEE ALSO DLSODE -!***ROUTINES CALLED (NONE) -!***REVISION HISTORY (YYMMDD) -! 791129 DATE WRITTEN -! 890501 Modified prologue to SLATEC/LDOC format. (FNF) -! 890503 Minor cosmetic changes. (FNF) -! 930809 Renamed to allow single/double precision versions. (ACH) -!***END PROLOGUE DVNORM -!**End - INTEGER N, I - KPP_REAL V(N), W(N), SUM -! -!***FIRST EXECUTABLE STATEMENT DVNORM - SUM = 0.0D0 - DO 10 I = 1,N - 10 SUM = SUM + (V(I)*W(I))**2 - DVNORM = SQRT(SUM/N) - RETURN -!----------------------- END OF FUNCTION DVNORM ------------------------ - END FUNCTION DVNORM -!DECK XERRWD - SUBROUTINE XERRWD (MSG, NMES, NERR, LEVEL, NI, I1, I2, NR, R1, R2) -!***BEGIN PROLOGUE XERRWD -!***SUBSIDIARY -!***PURPOSE Write error message with values. -!***CATEGORY R3C -!***TYPE KPP_REAL (XERRWV-S, XERRWD-D) -!***AUTHOR Hindmarsh, Alan C., (LLNL) -!***DESCRIPTION -! -! Subroutines XERRWD, XSETF, XSETUN, and the function routine IXSAV, -! as given here, constitute a simplified version of the SLATEC error -! handling package. -! -! All arguments are input arguments. -! -! MSG = The message (character array). -! NMES = The length of MSG (number of characters). -! NERR = The error number (not used). -! LEVEL = The error level.. -! 0 or 1 means recoverable (control returns to caller). -! 2 means fatal (run is aborted--see note below). -! NI = Number of integers (0, 1, or 2) to be printed with message. -! I1,I2 = Integers to be printed, depending on NI. -! NR = Number of reals (0, 1, or 2) to be printed with message. -! R1,R2 = Reals to be printed, depending on NR. -! -! Note.. this routine is machine-dependent and specialized for use -! in limited context, in the following ways.. -! 1. The argument MSG is assumed to be of type CHARACTER, and -! the message is printed with a format of (1X,A). -! 2. The message is assumed to take only one line. -! Multi-line messages are generated by repeated calls. -! 3. If LEVEL = 2, control passes to the statement STOP -! to abort the run. This statement may be machine-dependent. -! 4. R1 and R2 are assumed to be in double precision and are printed -! in D21.13 format. -! -!***ROUTINES CALLED IXSAV -!***REVISION HISTORY (YYMMDD) -! 920831 DATE WRITTEN -! 921118 Replaced MFLGSV/LUNSAV by IXSAV. (ACH) -! 930329 Modified prologue to SLATEC format. (FNF) -! 930407 Changed MSG from CHARACTER*1 array to variable. (FNF) -! 930922 Minor cosmetic change. (FNF) -!***END PROLOGUE XERRWD -! -!*Internal Notes: -! -! For a different default logical unit number, IXSAV (or a subsidiary -! routine that it calls) will need to be modified. -! For a different run-abort command, change the statement following -! statement 100 at the end. -!----------------------------------------------------------------------- -! Subroutines called by XERRWD.. None -! Function routine called by XERRWD.. IXSAV -!----------------------------------------------------------------------- -!**End -! -! Declare arguments. -! - KPP_REAL R1, R2 - INTEGER NMES, NERR, LEVEL, NI, I1, I2, NR - CHARACTER*(*) MSG -! -! Declare local variables. -! - INTEGER LUNIT, MESFLG !, IXSAV -! -! Get logical unit number and message print flag. -! -!***FIRST EXECUTABLE STATEMENT XERRWD - LUNIT = IXSAV (1, 0, .FALSE.) - MESFLG = IXSAV (2, 0, .FALSE.) - IF (MESFLG .EQ. 0) GO TO 100 -! -! Write the message. -! - WRITE (LUNIT,10) MSG - 10 FORMAT(1X,A) - IF (NI .EQ. 1) WRITE (LUNIT, 20) I1 - 20 FORMAT(6X,'In above message, I1 =',I10) - IF (NI .EQ. 2) WRITE (LUNIT, 30) I1,I2 - 30 FORMAT(6X,'In above message, I1 =',I10,3X,'I2 =',I10) - IF (NR .EQ. 1) WRITE (LUNIT, 40) R1 - 40 FORMAT(6X,'In above message, R1 =',D21.13) - IF (NR .EQ. 2) WRITE (LUNIT, 50) R1,R2 - 50 FORMAT(6X,'In above, R1 =',D21.13,3X,'R2 =',D21.13) -! -! Abort the run if LEVEL = 2. -! - 100 IF (LEVEL .NE. 2) RETURN - STOP -!----------------------- End of Subroutine XERRWD ---------------------- - END SUBROUTINE XERRWD -!DECK XSETF - SUBROUTINE XSETF (MFLAG) -!***BEGIN PROLOGUE XSETF -!***PURPOSE Reset the error print control flag. -!***CATEGORY R3A -!***TYPE ALL (XSETF-A) -!***KEYWORDS ERROR CONTROL -!***AUTHOR Hindmarsh, Alan C., (LLNL) -!***DESCRIPTION -! -! XSETF sets the error print control flag to MFLAG: -! MFLAG=1 means print all messages (the default). -! MFLAG=0 means no printing. -! -!***SEE ALSO XERRWD, XERRWV -!***REFERENCES (NONE) -!***ROUTINES CALLED IXSAV -!***REVISION HISTORY (YYMMDD) -! 921118 DATE WRITTEN -! 930329 Added SLATEC format prologue. (FNF) -! 930407 Corrected SEE ALSO section. (FNF) -! 930922 Made user-callable, and other cosmetic changes. (FNF) -!***END PROLOGUE XSETF -! -! Subroutines called by XSETF.. None -! Function routine called by XSETF.. IXSAV -!----------------------------------------------------------------------- -!**End - INTEGER MFLAG, JUNK !, IXSAV -! -!***FIRST EXECUTABLE STATEMENT XSETF - IF (MFLAG .EQ. 0 .OR. MFLAG .EQ. 1) JUNK = IXSAV (2,MFLAG,.TRUE.) - RETURN -!----------------------- End of Subroutine XSETF ----------------------- - END SUBROUTINE XSETF -!DECK XSETUN - SUBROUTINE XSETUN (LUN) -!***BEGIN PROLOGUE XSETUN -!***PURPOSE Reset the logical unit number for error messages. -!***CATEGORY R3B -!***TYPE ALL (XSETUN-A) -!***KEYWORDS ERROR CONTROL -!***DESCRIPTION -! -! XSETUN sets the logical unit number for error messages to LUN. -! -!***AUTHOR Hindmarsh, Alan C., (LLNL) -!***SEE ALSO XERRWD, XERRWV -!***REFERENCES (NONE) -!***ROUTINES CALLED IXSAV -!***REVISION HISTORY (YYMMDD) -! 921118 DATE WRITTEN -! 930329 Added SLATEC format prologue. (FNF) -! 930407 Corrected SEE ALSO section. (FNF) -! 930922 Made user-callable, and other cosmetic changes. (FNF) -!***END PROLOGUE XSETUN -! -! Subroutines called by XSETUN.. None -! Function routine called by XSETUN.. IXSAV -!----------------------------------------------------------------------- -!**End - INTEGER LUN, JUNK !, IXSAV -! -!***FIRST EXECUTABLE STATEMENT XSETUN - IF (LUN .GT. 0) JUNK = IXSAV (1,LUN,.TRUE.) - RETURN -!----------------------- End of Subroutine XSETUN ---------------------- - END SUBROUTINE XSETUN -!DECK IXSAV - INTEGER FUNCTION IXSAV (IPAR, IVALUE, ISET) -!***BEGIN PROLOGUE IXSAV -!***SUBSIDIARY -!***PURPOSE Save and recall error message control parameters. -!***CATEGORY R3C -!***TYPE ALL (IXSAV-A) -!***AUTHOR Hindmarsh, Alan C., (LLNL) -!***DESCRIPTION -! -! IXSAV saves and recalls one of two error message parameters: -! LUNIT, the logical unit number to which messages are printed, and -! MESFLG, the message print flag. -! This is a modification of the SLATEC library routine J4SAVE. -! -! Saved local variables.. -! LUNIT = Logical unit number for messages. The default is obtained -! by a call to IUMACH (may be machine-dependent). -! MESFLG = Print control flag.. -! 1 means print all messages (the default). -! 0 means no printing. -! -! On input.. -! IPAR = Parameter indicator (1 for LUNIT, 2 for MESFLG). -! IVALUE = The value to be set for the parameter, if ISET = .TRUE. -! ISET = Logical flag to indicate whether to read or write. -! If ISET = .TRUE., the parameter will be given -! the value IVALUE. If ISET = .FALSE., the parameter -! will be unchanged, and IVALUE is a dummy argument. -! -! On return.. -! IXSAV = The (old) value of the parameter. -! -!***SEE ALSO XERRWD, XERRWV -!***ROUTINES CALLED IUMACH -!***REVISION HISTORY (YYMMDD) -! 921118 DATE WRITTEN -! 930329 Modified prologue to SLATEC format. (FNF) -! 930915 Added IUMACH call to get default output unit. (ACH) -! 930922 Minor cosmetic changes. (FNF) -! 010425 Type declaration for IUMACH added. (ACH) -!***END PROLOGUE IXSAV -! -! Subroutines called by IXSAV.. None -! Function routine called by IXSAV.. IUMACH -!----------------------------------------------------------------------- -!**End - LOGICAL ISET - INTEGER IPAR, IVALUE -!----------------------------------------------------------------------- - INTEGER LUNIT, MESFLG!, IUMACH -!----------------------------------------------------------------------- -! The following Fortran-77 declaration is to cause the values of the -! listed (local) variables to be saved between calls to this routine. -!----------------------------------------------------------------------- - SAVE LUNIT, MESFLG - DATA LUNIT/-1/, MESFLG/1/ -! -!***FIRST EXECUTABLE STATEMENT IXSAV - IF (IPAR .EQ. 1) THEN - IF (LUNIT .EQ. -1) LUNIT = IUMACH() - IXSAV = LUNIT - IF (ISET) LUNIT = IVALUE - ENDIF -! - IF (IPAR .EQ. 2) THEN - IXSAV = MESFLG - IF (ISET) MESFLG = IVALUE - ENDIF -! - RETURN -!----------------------- End of Function IXSAV ------------------------- - END FUNCTION IXSAV -!DECK IUMACH - INTEGER FUNCTION IUMACH() -!***BEGIN PROLOGUE IUMACH -!***PURPOSE Provide standard output unit number. -!***CATEGORY R1 -!***TYPE INTEGER (IUMACH-I) -!***KEYWORDS MACHINE CONSTANTS -!***AUTHOR Hindmarsh, Alan C., (LLNL) -!***DESCRIPTION -! *Usage: -! INTEGER LOUT, IUMACH -! LOUT = IUMACH() -! -! *Function Return Values: -! LOUT : the standard logical unit for Fortran output. -! -!***REFERENCES (NONE) -!***ROUTINES CALLED (NONE) -!***REVISION HISTORY (YYMMDD) -! 930915 DATE WRITTEN -! 930922 Made user-callable, and other cosmetic changes. (FNF) -!***END PROLOGUE IUMACH -! -!*Internal Notes: -! The built-in value of 6 is standard on a wide range of Fortran -! systems. This may be machine-dependent. -!**End -!***FIRST EXECUTABLE STATEMENT IUMACH - IUMACH = 6 -! - RETURN -!----------------------- End of Function IUMACH ------------------------ - END FUNCTION IUMACH - -!---- END OF SUBROUTINE DLSODE AND ITS INTERNAL PROCEDURES - END SUBROUTINE DLSODE -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE FUN_CHEM(N, T, V, FCT) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters - USE KPP_ROOT_Global - USE KPP_ROOT_Function, ONLY: Fun - USE KPP_ROOT_Rates - - IMPLICIT NONE - - INTEGER :: N - KPP_REAL :: V(NVAR), FCT(NVAR), T, TOLD - -! TOLD = TIME -! TIME = T -! CALL Update_SUN() -! CALL Update_RCONST() -! CALL Update_PHOTO() -! TIME = TOLD - - CALL Fun(V, FIX, RCONST, FCT) - - !Nfun=Nfun+1 - - END SUBROUTINE FUN_CHEM - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE JAC_CHEM (N, T, V, JF) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters - USE KPP_ROOT_Global - USE KPP_ROOT_JacobianSP - USE KPP_ROOT_Jacobian, ONLY: Jac_SP - USE KPP_ROOT_Rates - - IMPLICIT NONE - - KPP_REAL :: V(NVAR), T, TOLD - INTEGER :: I, J, N, ML, MU, NROWPD -#ifdef FULL_ALGEBRA - KPP_REAL :: JV(LU_NONZERO), JF(NVAR,NVAR) -#else - KPP_REAL :: JF(LU_NONZERO) -#endif - -! TOLD = TIME -! TIME = T -! CALL Update_SUN() -! CALL Update_RCONST() -! CALL Update_PHOTO() -! TIME = TOLD - -#ifdef FULL_ALGEBRA - CALL Jac_SP(V, FIX, RCONST, JV) - DO j=1,NVAR - DO i=1,NVAR - JF(i,j) = 0.0d0 - END DO - END DO - DO i=1,LU_NONZERO - JF(LU_IROW(i),LU_ICOL(i)) = JV(i) - END DO -#else - CALL Jac_SP(V, FIX, RCONST, JF) -#endif - !Njac=Njac+1 - - END SUBROUTINE JAC_CHEM - - -END MODULE KPP_ROOT_Integrator diff --git a/int.modified_WCOPY/kpp_odessa_ddm.def b/int.modified_WCOPY/kpp_odessa_ddm.def deleted file mode 100644 index 5219914416a6f0e2d6682c1c83b4d84ade8bf4c2..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/kpp_odessa_ddm.def +++ /dev/null @@ -1,42 +0,0 @@ - -#FUNCTION AGGREGATE -#JACOBIAN SPARSE_LU_ROW -#DOUBLE ON -#INTFILE kpp_odessa_ddm - -#INLINE F77_GLOBAL - INTEGER Autonomous - COMMON /INTGDATA/ Autonomous - REAL*8 STEPSTART - COMMON /GDATA/ STEPSTART -#ENDINLINE - -#INLINE F77_INIT - STEPMIN=0.0001 - STEPMAX=3600. - Autonomous = 0 - STEPSTART=STEPMIN -#ENDINLINE - - - -#INLINE C_GLOBAL -extern int Autonomous; -extern double STEPSTART; -#ENDINLINE - -#INLINE C_DATA_INT -int Autonomous; -double STEPSTART; -#ENDINLINE - - - -#INLINE C_INIT - STEPMIN=0.0001; - STEPMAX=3600.0; - Autonomous = 0; - STEPSTART=STEPMIN; -#ENDINLINE - - diff --git a/int.modified_WCOPY/kpp_odessa_ddm.f b/int.modified_WCOPY/kpp_odessa_ddm.f deleted file mode 100644 index 788321fb3228ca028d7325cc504afab6b489a8ad..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/kpp_odessa_ddm.f +++ /dev/null @@ -1,4427 +0,0 @@ - SUBROUTINE INTEGRATE( NSENSIT, Y, TIN, TOUT ) - - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Global.h' - -C TIN - Start Time - REAL*8 TIN -C TOUT - End Time - REAL*8 TOUT -C Concentrations and Sensitivities - REAL*8 Y(NVAR,NSENSIT+1), PARAMS(NSENSIT) -C --- Note: Y contains: (1:NVAR) concentrations, followed by -C --- (1:NVAR) sensitivities w.r.t. first parameter, followed by -C --- etc., followed by -C --- (1:NVAR) sensitivities w.r.t. NSENSIT's parameter - INTEGER i - - INTEGER LIW, LRW -C PARAMETER (LRW = 22 + 8*(NSENSIT+1)*NVAR + NVAR**2 + NVAR) -C PARAMETER (LIW = 21 + NVAR + NSENSIT) -C REAL*8 RWORK(LRW) -C INTEGER IWORK(LIW) -C Note: the following dynamic allocation is not standard F77 and may not work on -C some systems. Declare LRW, LIW parameters as above with some upper bound used for NSENSIT - REAL*8 RWORK(22 + 8*(NSENSIT+1)*NVAR + NVAR**2 + NVAR) - INTEGER IWORK(21 + NVAR + NSENSIT) - - INTEGER IOPT(3), NEQ(2) - - EXTERNAL FUNC_CHEM,JAC,DFUNC_CHEMDPAR - - MF = 21 ! --- BDF plus user-supplied Jacobian - - LRW = 22 + 8*(NSENSIT+1)*NVAR + NVAR**2 + NVAR - LIW = 21 + NVAR + NSENSIT - - NEQ(1) = NVAR ! --- No. of Variables - NEQ(2) = NSENSIT ! --- No of parameters - - ITOL=1 ! --- 1=Scalar Tolerances; 4 = VECTOR TOLERANCES - ITASK=1 ! --- Normal Output - ISTATE=1 - IOPT(1)=1 ! --- 0= No optional parameters, 1=Optional parameters - IOPT(2)=1 ! --- 1=Perform sensitivity analysis; 0 if not - IOPT(3)=1 ! --- 1 if DFUNC_CHEMDPAR supplied by the user; - ! --- 0 if finite differences are to be used -C --- Set optional parameters - DO 10 i=1,LRW - RWORK(i) = 0.0D0 - 10 CONTINUE - DO 20 i=1,LIW - IWORK(i) = 0 - 20 CONTINUE - - RWORK(5) = STEPMIN ! THE STEP SIZE TO BE ATTEMPTED ON THE FIRST STEP. - RWORK(6) = STEPMAX ! THE MAXIMUM ABSOLUTE STEP SIZE ALLOWED. - RWORK(7) = 0.0D0 ! THE MINIMUM ABSOLUTE STEP SIZE ALLOWED. - IWORK(6) = 5000 ! MAXIMUM NUMBER OF (INTERNALLY DEFINED) STEPS - - CALL KPP_ODESSA( FUNC_CHEM,DFUNC_CHEMDPAR,NEQ,Y,PARAMS,TIN,TOUT, - & ITOL,RTOL,ATOL, - 1 ITASK,ISTATE,IOPT,RWORK,LRW,IWORK,LIW, - & JAC,MF) - - IF (ISTATE.LT.0) THEN - print *,'KPP_ODESSA: Unsucessfull exit at T=', - & TIN,' (ISTATE=',ISTATE,')' - ENDIF - - RETURN - END - - - - - SUBROUTINE FUNC_CHEM (N, T, V, PARAMS, FCT) - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Global.h' - - DIMENSION V(NVAR), PARAMS(*), FCT(NVAR) - TOLD = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - TIME = TOLD - CALL Fun(V, FIX, RCONST, FCT) - RETURN - END - - SUBROUTINE DFUNC_CHEMDPAR (N, T, V, PARAMS, DFCT, JPAR) - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Global.h' -C --- NCOEFF = number of rate coefficients w.r.t. which we differentiate -C (note that in some applications NCOEFF may be different than NSENSIT) -C JCOEFF(1:NCOEFF) are the indices of rate coefficients w.r.t. which we differentiate - INTEGER NCOEFF, JCOEFF(NREACT) - COMMON /DDMRCOEFF/ NCOEFF, JCOEFF - - DIMENSION V(NVAR), PARAMS(*), DFCT(NVAR) - INTEGER JPAR, i, JC(1) - IF (DDMTYPE .EQ. 0) THEN -C This setting is required for sensitivities w.r.t. initial conditions - DO i=1,NVAR - DFCT(i) = 0.d0 - END DO - ELSE -C This setting is required for sensitivities w.r.t. rate coefficients -C ... and should be changed by the user for other applications - JC(1) = JCOEFF(JPAR) - CALL dFun_dRcoeff(V, FIX, 1, JC, DFCT ) - END IF - RETURN - END - - SUBROUTINE JAC (N, T, V, PARAMS, ML, MU, JS, NROWPD) - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Sparse.h' - - REAL*8 V(NVAR), PARAMS(*), JS(LU_NONZERO) - INTEGER ML, MU, NROWPD - TOLD = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - TIME = TOLD - DO i=1,LU_NONZERO - JS(i) = 0.0D0 - END DO - CALL Jac_SP(V, FIX, RCONST, JS) - RETURN - END - - -C ALGORITHM 658, COLLECTED ALGORITHMS FROM ACM. -C THIS WORK PUBLISHED IN TRANSACTIONS ON MATHEMATICAL SOFTWARE, -C VOL. 14, NO. 1, P.61. -C----------------------------------------------------------------------- -C THIS IS THE SEPTEMBER 1, 1986 VERSION OF ODESSA.. -C AN ORDINARY DIFFERENTIAL EQUATION KppSolveR WITH EXPLICIT SIMULTANEOUS -C SENSITIVITY ANALYSIS. -C -C THIS PACKAGE IS A MODIFICATION OF THE AUGUST 13, 1981 VERSION OF -C LSODE.. LIVERMORE KppSolveR FOR ORDINARY DIFFERENTIAL EQUATIONS. -C THIS VERSION IS IN DOUBLE PRECISION. -C -C ODESSA KppSolveS FOR THE FIRST-ORDER SENSITIVITY COEFFICIENTS.. -C DY(I)/DP, FOR A SINGLE PARAMETER, OR, -C DY(I)/DP(J), FOR MULTIPLE PARAMETERS, -C ASSOCIATED WITH A SYSTEM OF ORDINARY DIFFERENTIAL EQUATIONS.. -C DY/DT = F(Y,T;P). -C----------------------------------------------------------------------- -C REFERENCES... -C -C 1. JORGE R. LEIS AND MARK A. KRAMER, THE SIMULTANEOUS SOLUTION AND -C EXPLICIT SENSITIVITY ANALYSIS OF SYSTEMS DESCRIBED BY ORDINARY -C DIFFERENTIAL EQUATIONS. SUBMITTED TO ACM TRANS. MATH. SOFTWARE, -C (1985). -C -C 2. JORGE R. LEIS AND MARK A. KRAMER, ODESSA - AN ORDINARY DIFFERENTIA -C EQUATION KppSolveR WITH EXPLICIT SIMULTANEOUS SENSITIVITY ANALYSIS. -C SUBMITTED TO ACM TRANS. MATH. SOFTWARE, (1985). -C -C 3. ALAN C. HINDMARSH, LSODE AND LSODI, TWO NEW INITIAL VALUE -C ORDINARY DIFFERENTIAL EQUATION KppSolveRS, ACM-SIGNUM NEWSLETTER, -C VOL. 15, NO. 4 (1980), PP. 10-11. -C----------------------------------------------------------------------- -C PROBLEM STATEMENT.. -C -C THE ODESSA MODIFICATION OF THE LSODE PACKAGE PROVIDES THE OPTION TO -C CALCULATE FIRST-ORDER SENSITIVITY COEFFICIENTS FOR A SYSTEM OF STIFF -C OR NON-STIFF EXPLICIT ORDINARY DIFFERENTIAL EQUATIONS OF THE GENERAL -C FORM : -C -C DY/DT = F(Y,T;P) (1) -C -C WHERE Y IS AN N-DIMENSIONAL DEPENDENT VARIABLE VECTOR, T IS THE -C INDEPENDENT INTEGRATION VARIABLE, AND P IS AN NPAR-DIMENSIONAL -C CONSTANT VECTOR. THE GOVERNING EQUATIONS FOR THE FIRST-ORDER -C SENSITIVITY COEFFICIENTS ARE GIVEN BY : -C -C S'(T) = J(T)*S(T) + DF/DP (2) -C -C WHERE -C -C S(T) = DY(T)/DP (= SENSITIVITY FUNCTIONS) -C S'(T) = D(DY(T)/DP)/DT -C J(T) = DF(Y,T;P)/DY(T) (= JACOBIAN MATRIX) -C AND DF/DP = DF(Y,T;P)/DP (= INHOMOGENEITY MATRIX) -C -C SOLUTION OF EQUATIONS (1) AND (2) PROCEEDS SIMULTANEOUSLY VIA AN -C EXTENSION OF THE LSODE PACKAGE AS DESCRIBED IN [1]. -C---------------------------------------------------------------------- -C ACKNOWLEDGEMENT : THE FOLLOWING ODESSA PACKAGE DOCUMENTATION IS A -C MODIFICATION OF THE LSODE DOCUMENTATION WHICH -C ACCOMPANIES THE LSODE PACKAGE CODE. -C---------------------------------------------------------------------- -C SUMMARY OF USAGE. -C -C COMMUNICATION BETWEEN THE USER AND THE ODESSA PACKAGE, FOR NORMAL -C SITUATIONS, IS SUMMARIZED HERE. THIS SUMMARY DESCRIBES ONLY A SUBSET -C OF THE FULL SET OF OPTIONS AVAILABLE. SEE THE FULL DESCRIPTION FOR -C DETAILS, INCLUDING OPTIONAL COMMUNICATION, NONSTANDARD OPTIONS, -C AND INSTRUCTIONS FOR SPECIAL SITUATIONS. SEE ALSO THE EXAMPLE -C PROBLEM (WITH PROGRAM AND OUTPUT) FOLLOWING THIS SUMMARY. -C -C A. FIRST PROVIDE A SUBROUTINE OF THE FORM.. -C SUBROUTINE F (N, T, Y, PAR, YDOT) -C DOUBLE PRECISION T, Y, PAR, YDOT -C DIMENSION Y(N), YDOT(N), PAR(NPAR) -C WHICH SUPPLIES THE VECTOR FUNCTION F BY LOADING YDOT(I) WITH F(I). -C N IS THE NUMBER OF FIRST-ORDER DIFFERENTIAL EQUATIONS IN THE -C ABOVE MODEL. NPAR IS THE NUMBER OF MODEL PARAMETERS FOR WHICH -C VECTOR SENSITIVITY FUNCTIONS ARE DESIRED. YOU ARE ALSO ENCOURAGED -C TO PROVIDE A SUBROUTINE OF THE FORM.. -C SUBROUTINE DF (N, T, Y, PAR, DFDP, JPAR) -C DOUBLE PRECISION T, Y, PAR, DFDP -C DIMENSION Y(N), PAR(NPAR), DFDP(N) -C GO TO (1,...,NPAR) JPAR -C 1 DFDP(1) = DF(1)/DP(1) -C . -C DFDP(I) = DF(I)/DP(1) -C . -C DFDP(N) = DF(N)/DP(1) -C RETURN -C 2 DFDP(1) = DF(1)/DP(2) -C . -C DFDP(I) = DF(I)/DP(2) -C . -C DFDP(N) = DF(N)/DP(2) -C RETURN -C . . -C . . -C RETURN -C NPAR DFDP(1) = DF(1)/DP(NPAR) -C . -C DFDP(I) = DF(I)/DP(NPAR) -C . -C DFDP(N) = DF(N)/DP(NPAR) -C RETURN -C END -C ONLY NONZERO ELEMENTS NEED BE LOADED. IF THIS IS NOT FEASIBLE, -C ODESSA WILL GENERATE THIS MATRIX INTERNALLY BY DIFFERENCE QUOTIENTS. -C -C B. NEXT DETERMINE (OR GUESS) WHETHER OR NOT THE PROBLEM IS STIFF. -C STIFFNESS OCCURS WHEN THE JACOBIAN MATRIX DF/DY HAS AN EIGENVALUE -C WHOSE REAL PART IS NEGATIVE AND LARGE IN MAGNITUDE, COMPARED TO THE -C RECIPROCAL OF THE T SPAN OF INTEREST. IF THE PROBLEM IS NONSTIFF, -C USE METH = 10. IF IT IS STIFF, USE METH = 20. THE USER IS REQUIRED -C TO INPUT THE METHOD FLAG MF = 10*METH + MITER. THERE ARE FOUR -C STANDARD CHOICES FOR MITER WHEN A SENSITIVITY ANALYSIS IS DESIRED, -C AND ODESSA REQUIRES THE JACOBIAN MATRIX IN SOME FORM. -C THIS MATRIX IS REGARDED EITHER AS FULL (MITER = 1 OR 2), -C OR BANDED (MITER = 4 OR 5). IN THE BANDED CASE, ODESSA REQUIRES TWO -C HALF-BANDWIDTH PARAMETERS ML AND MU. THESE ARE, RESPECTIVELY, THE -C WIDTHS OF THE LOWER AND UPPER PARTS OF THE BAND, EXCLUDING THE MAIN -C DIAGONAL. THUS THE BAND CONSISTS OF THE LOCATIONS (I,J) WITH -C I-ML .LE. J .LE. I+MU, AND THE FULL BANDWIDTH IS ML+MU+1. -C -C C. YOU ARE ENCOURAGED TO SUPPLY THE JACOBIAN DIRECTLY (MF = 11, 14, -C 21, OR 24), BUT IF THIS IS NOT FEASIBLE, ODESSA WILL COMPUTE IT -C INTERNALLY BY DIFFERENCE QUOTIENTS (MF = 12, 15, 22, OR 25). IF YOU -C ARE SUPPLYING THE JACOBIAN, PROVIDE A SUBROUTINE OF THE FORM.. -C SUBROUTINE JAC (NEQ, T, Y, PAR, ML, MU, PD, NROWPD) -C DOUBLE PRECISION T, Y, PAR, PD -C DIMENSION Y(N), PD(NROWPD,N), PAR(NPAR) -C WHICH SUPPLIES DF/DY BY LOADING PD AS FOLLOWS.. -C FOR A FULL JACOBIAN (MF = 11, OR 21), LOAD PD(I,J) WITH DF(I)/DY(J), -C THE PARTIAL DERIVATIVE OF F(I) WITH RESPECT TO Y(J). (IGNORE THE -C ML AND MU ARGUMENTS IN THIS CASE.) -C FOR A BANDED JACOBIAN (MF = 14, OR 24), LOAD PD(I-J+MU+1,J) WITH -C DF(I)/DY(J), I.E. LOAD THE DIAGONAL LINES OF DF/DY INTO THE ROWS OF -C PD FROM THE TOP DOWN. -C IN EITHER CASE, ONLY NONZERO ELEMENTS NEED BE LOADED. -C -C D. WRITE A MAIN PROGRAM WHICH CALLS SUBROUTINE ODESSA ONCE FOR -C EACH POINT AT WHICH ANSWERS ARE DESIRED. THIS SHOULD ALSO PROVIDE -C FOR POSSIBLE USE OF LOGICAL UNIT 6 FOR OUTPUT OF ERROR MESSAGES BY -C ODESSA. ON THE FIRST CALL TO ODESSA, SUPPLY ARGUMENTS AS FOLLOWS.. -C F = NAME OF SUBROUTINE FOR RIGHT-HAND SIDE VECTOR F (MODEL). -C THIS NAME MUST BE DECLARED EXTERNAL IN CALLING PROGRAM. -C DF = NAME OF SUBROUTINE FOR INHOMOGENEITY MATRIX DF/DP. -C IF USED (IDF = 1), THIS NAME MUST BE DECLARED EXTERNAL IN -C CALLING PROGRAM. IF NOT USED (IDF = 0), PASS A DUMMY NAME. -C N = NUMBER OF FIRST ORDER ODE-S IN MODEL; LOAD INTO NEQ(1). -C NPAR = NUMBER OF MODEL PARAMETERS OF INTEREST; LOAD INTO NEQ(2). -C Y = AN (N) BY (NPAR+1) REAL ARRAY OF INITIAL VALUES.. -C Y(I,1) , I = 1,N , CONTAIN THE STATE, OR MODEL, DEPENDENT -C VARIABLES, -C Y(I,J) , J = 2,NPAR , CONTAIN THE DEPENDENT SENSITIVITY -C COEFFICIENTS. -C PAR = A REAL ARRAY OF LENGTH NPAR CONTAINING MODEL PARAMETERS -C OF INTEREST. -C T = THE INITIAL VALUE OF THE INDEPENDENT VARIABLE. -C TOUT = FIRST POINT WHERE OUTPUT IS DESIRED (.NE. T). -C ITOL = 1, 2, 3, OR 4 ACCORDING AS RTOL, ATOL (BELOW) ARE SCALARS -C OR ARRAYS. -C RTOL = RELATIVE TOLERANCE PARAMETER (SCALAR OR (N) BY (NPAR+1) -C ARRAY). -C ATOL = ABSOLUTE TOLERANCE PARAMETER (SCALAR OR (N) BY (NPAR+1) -C ARRAY). -C THE ESTIMATED LOCAL ERROR IN Y(I,J) WILL BE CONTROLLED SO AS -C TO BE ROUGHLY LESS (IN MAGNITUDE) THAN -C EWT(I,J) = RTOL*ABS(Y(I,J)) + ATOL IF ITOL = 1, -C EWT(I,J) = RTOL*ABS(Y(I,J)) + ATOL(I,J) IF ITOL = 2, -C EWT(I,J) = RTOL(I,J)*ABS(Y(I,J) + ATOL IF ITOL = 3, OR -C EWT(I,J) = RTOL(I,J)*ABS(Y(I,J) + ATOL(I,J) IF ITOL = 4. -C THUS THE LOCAL ERROR TEST PASSES IF, IN EACH COMPONENT, -C EITHER THE ABSOLUTE ERROR IS LESS THAN ATOL (OR ATOL(I,J)), -C OR THE RELATIVE ERROR IS LESS THAN RTOL (OR RTOL(I,J)). -C USE RTOL = 0.0 FOR PURE ABSOLUTE ERROR CONTROL, AND -C USE ATOL = 0.0 FOR PURE RELATIVE ERROR CONTROL. -C CAUTION.. ACTUAL (GLOBAL) ERRORS MAY EXCEED THESE LOCAL -C TOLERANCES, SO CHOOSE THEM CONSERVATIVELY. -C ITASK = 1 FOR NORMAL COMPUTATION OF OUTPUT VALUES OF Y AT T = TOUT. -C ISTATE = INTEGER FLAG (INPUT AND OUTPUT). SET ISTATE = 1. -C IOPT = 0, TO INDICATE NO OPTIONAL INPUTS FOR INTEGRATION; -C LOAD INTO IOPT(1). -C ISOPT = 1, TO INDICATE SENSITIVITY ANALYSIS, = 0, TO INDICATE -C NO SENSITIVITY ANALYSIS; LOAD INTO IOPT(2). -C IDF = 1, IF SUBROUTINE DF (ABOVE) IS SUPPLIED BY THE USER, -C = 0, OTHERWISE; LOAD INTO IOPT(3). -C RWORK = REAL WORK ARRAY OF LENGTH AT LEAST.. -C 22 + 16*N + N**2 FOR MF = 11 OR 12, -C 22 + 17*N + (2*ML + MU)*N FOR MF = 14 OR 15, -C 22 + 9*N + N**2 FOR MF = 21 OR 22, -C 22 + 10*N + (2*ML + MU)*N FOR MF = 24 OR 25, -C IF ISOPT = 0, OR.. -C 22 + 15*(NPAR+1)*N + N**2 + N FOR MF = 11 OR 12, -C 24 + 15*(NPAR+1)*N + (2*ML+MU+2)*N + N FOR MF = 14 OR 15, -C 22 + 8*(NPAR+1)*N + N**2 + N FOR MF = 21 OR 22, -C 24 + 8*(NPAR+1)*N + (2*ML+MU+2)*N + N FOR MF = 24 OR 25, -C IF ISOPT = 1. -C LRW = DECLARED LENGTH OF RWORK (IN USER-S DIMENSION STATEMENT). -C IWORK = INTEGER WORK ARRAY OF LENGTH AT LEAST.. -C 20 + N IF ISOPT = 0, -C 21 + N + NPAR IF ISOPT = 1. -C IF MITER = 4 OR 5, INPUT IN IWORK(1),IWORK(2) THE LOWER -C AND UPPER HALF-BANDWIDTHS ML,MU (EXCLUDING MAIN DIAGONAL). -C LIW = DECLARED LENGTH OF IWORK (IN USER-S DIMENSION STATEMENT). -C JAC = NAME OF SUBROUTINE FOR JACOBIAN MATRIX. -C IF USED, THIS NAME MUST BE DECLARED EXTERNAL IN CALLING -C PROGRAM. IF NOT USED, PASS A DUMMY NAME. -C MF = METHOD FLAG. STANDARD VALUES FOR ISOPT = 0 ARE.. -C 10 FOR NONSTIFF (ADAMS) METHOD, NO JACOBIAN USED. -C 21 FOR STIFF (BDF) METHOD, USER-SUPPLIED FULL JACOBIAN. -C 22 FOR STIFF METHOD, INTERNALLY GENERATED FULL JACOBIAN. -C 24 FOR STIFF METHOD, USER-SUPPLIED BANDED JACOBIAN. -C 25 FOR STIFF METHOD, INTERNALLY GENERATED BANDED JACOBIAN. -C IF ISOPT = 1, MF = 10 IS ILLEGAL AND CAN BE REPLACED BY.. -C 11 FOR NONSTIFF METHOD, USER-SUPPLIED FULL JACOBIAN. -C 12 FOR NONSTIFF METHOD, INTERNALLY GENERATED FULL JACOBIAN. -C 14 FOR NONSTIFF METHOD, USER-SUPPLIED BANDED JACOBIAN. -C 15 FOR NONSTIFF METHOD, INTERNALLY GENERATED BANDED JACOBIAN. -C NOTE THAT THE MAIN PROGRAM MUST DECLARE ARRAYS Y, RWORK, IWORK, AND -C POSSIBLY ATOL AND RTOL, AS WELL AS NEQ, IOPT, AND PAR IF ISOPT = 1. -C -C E. THE OUTPUT FROM THE FIRST CALL (OR ANY CALL) IS.. -C Y = ARRAY OF COMPUTED VALUES OF Y(T) VECTOR. -C T = CORRESPONDING VALUE OF INDEPENDENT VARIABLE (NORMALLY TOUT). -C ISTATE = 2 IF ODESSA WAS SUCCESSFUL, NEGATIVE OTHERWISE. -C -1 MEANS EXCESS WORK DONE ON THIS CALL (PERHAPS WRONG MF). -C -2 MEANS EXCESS ACCURACY REQUESTED (TOLERANCES TOO SMALL). -C -3 MEANS ILLEGAL INPUT DETECTED (SEE PRINTED MESSAGE). -C -4 MEANS REPEATED ERROR TEST FAILURES (CHECK ALL INPUTS). -C -5 MEANS REPEATED CONVERGENCE FAILURES (PERHAPS BAD JACOBIAN -C SUPPLIED OR WRONG CHOICE OF MF OR TOLERANCES). -C -6 MEANS ERROR WEIGHT BECAME ZERO DURING PROBLEM. (SOLUTION -C COMPONENT I,J VANISHED, AND ATOL OR ATOL(I,J) = 0.0) -C -C F. TO CONTINUE THE INTEGRATION AFTER A SUCCESSFUL RETURN, SIMPLY -C RESET TOUT AND CALL ODESSA AGAIN. NO OTHER PARAMETERS NEED BE RESET. -C---------------------------------------------------------------------- -C EXAMPLE PROBLEM. -C -C THE FOLLOWING IS A SIMPLE EXAMPLE PROBLEM, WITH THE CODING -C NEEDED FOR ITS SOLUTION BY ODESSA. THE PROBLEM IS FROM CHEMICAL -C KINETICS, AND CONSISTS OF THE FOLLOWING THREE RATE EQUATIONS.. -C DY1/DT = -PAR(1)*Y1 + PAR(2)*Y2*Y3 ; PAR(1) = .04, PAR(2) = 1.E4 -C DY2/DT = PAR(1)*Y1 - PAR(2)*Y2*Y3 - PAR(3)*Y2**2 ; PAR(3) = 3.E7 -C DY3/DT = PAR(3)*Y2**2 -C ON THE INTERVAL FROM T = 0.0 TO T = 4.E10, WITH INITIAL CONDITIONS -C Y1 = 1.0, Y2 = Y3 = 0, AND S(I,J) = 0, I = 1,3, J = 1,3. -C THE PROBLEM IS STIFF. -C -C THE FOLLOWING CODING KppSolveS THIS PROBLEM WITH ODESSA, USING -C MF = 21 AND PRINTING RESULTS AT T = .4, 4., ..., 4.E10. -C IT USES ITOL = 4 AND ATOL MUCH SMALLER FOR Y2 THAN Y1 OR Y3, -C BECAUSE Y2 HAS MUCH SMALLER VALUES. LESS STRINGENT TOLERANCES -C ARE ASSIGNED FOR THE SENSITIVITIES TO ACHIEVE GREATER EFFICIENCY. -C AT THE END OF THE RUN, STATISTICAL QUANTITIES OF INTEREST ARE -C PRINTED (SEE OPTIONAL OUTPUTS IN THE FULL DESCRIPTION BELOW). -C -C DOUBLE PRECISION ATOL, RWORK, RTOL, T, TOUT, Y, PAR -C EXTERNAL FEX, JEX, DFEX -C DIMENSION Y(3,4), PAR(3), ATOL(3,4), RTOL(3,4), RWORK(130), -C 1 IWORK(27), NEQ(2), IOPT(3) -C N = 3 -C NPAR = 3 -C NEQ(1) = N -C NEQ(2) = NPAR -C NSV = NPAR+1 -C DO 10 I = 1,N -C DO 10 J = 1,NSV -C 10 Y(I,J) = 0.0D0 -C Y(1,1) = 1.0D0 -C PAR(1) = 0.04D0 -C PAR(2) = 1.0D4 -C PAR(3) = 3.0D7 -C T = 0.D0 -C TOUT = .4D0 -C ITOL = 4 -C ATOL(1,1) = 1.D-6 -C ATOL(2,1) = 1.D-10 -C ATOL(3,1) = 1.D-6 -C DO 20 I = 1,N -C RTOL(I,1) = 1.D-4 -C DO 15 J = 2,NSV -C RTOL(I,J) = 1.D-3 -C 15 ATOL(I,J) = 1.D2 * ATOL(I,1) -C 20 CONTINUE -C ITASK = 1 -C ISTATE = 1 -C IOPT(1) = 0 -C IOPT(2) = 1 -C IOPT(3) = 1 -C LRW = 130 -C LIW = 27 -C MF = 21 -C DO 60 IOUT = 1,12 -C CALL ODESSA(FEX,DFEX,NEQ,Y,PAR,T,TOUT,ITOL,RTOL,ATOL, -C 1 ITASK,ISTATE, IOPT,RWORK,LRW,IWORK,LIW,JEX,MF) -C WRITE(6,30)T,Y(1,1),Y(2,1),Y(3,1) -C 30 FORMAT(1X,7H AT T =,E12.4,6H Y =,3E14.6) -C DO 50 J = 2,NSV -C JPAR = J-1 -C WRITE(6,40)JPAR,Y(1,J),Y(2,J),Y(3,J) -C 40 FORMAT(20X,2HS(,I1,3H) =,3E14.6) -C 50 CONTINUE -C IF (ISTATE .LT. 0) GO TO 80 -C 60 TOUT = TOUT*10.D0 -C WRITE(6,70)IWORK(11),IWORK(12),IWORK(13),IWORK(19) -C 70 FORMAT(1X,/,12H NO. STEPS =,I4,11H NO. F-S =,I4,11H NO. J-S =, -C 1 I4,12H NO. DF-S =,I4) -C STOP -C 80 WRITE(6,90)ISTATE -C 90 FORMAT(///22H ERROR HALT.. ISTATE =,I3) -C STOP -C END -C -C SUBROUTINE FEX (NEQ, T, Y, PAR, YDOT) -C DOUBLE PRECISION T, Y, YDOT, PAR -C DIMENSION Y(3), YDOT(3), PAR(3) -C YDOT(1) = -PAR(1)*Y(1) + PAR(2)*Y(2)*Y(3) -C YDOT(3) = PAR(3)*Y(2)*Y(2) -C YDOT(2) = -YDOT(1) - YDOT(3) -C RETURN -C END -C -C SUBROUTINE JEX (NEQ, T, Y, PAR, ML, MU, PD, NRPD) -C DOUBLE PRECISION PD, T, Y, PAR -C DIMENSION Y(3), PD(NRPD,3), PAR(3) -C PD(1,1) = -PAR(1) -C PD(1,2) = PAR(2)*Y(3) -C PD(1,3) = PAR(2)*Y(2) -C PD(2,1) = PAR(1) -C PD(2,3) = -PD(1,3) -C PD(3,2) = 2.D0*PAR(3)*Y(2) -C PD(2,2) = -PD(1,2) - PD(3,2) -C RETURN -C END -C -C SUBROUTINE DFEX (NEQ, T, Y, PAR, DFDP, JPAR) -C DOUBLE PRECISION T, Y, PAR, DFDP -C DIMENSION Y(3), PAR(3), DFDP(3) -C GO TO (1,2,3), JPAR -C 1 DFDP(1) = -Y(1) -C DFDP(2) = Y(1) -C RETURN -C 2 DFDP(1) = Y(2)*Y(3) -C DFDP(2) = -Y(2)*Y(3) -C RETURN -C 3 DFDP(2) = -Y(2)*Y(2) -C DFDP(3) = Y(2)*Y(2) -C RETURN -C END -C -C THE OUTPUT OF THIS PROGRAM (ON A DATA GENERAL MV-8000 IN -C DOUBLE PRECISION IS AS FOLLOWS: -C -C AT T = .4000E+00 Y = .985173E+00 .338641E-04 .147930E-01 -C S(1) = -.355914E+00 .390261E-03 .355524E+00 -C S(2) = .955150E-07 -.213065E-09 -.953019E-07 -C S(3) = -.158466E-10 -.529012E-12 .163756E-10 -C AT T = .4000E+01 Y = .905516E+00 .224044E-04 .944615E-01 -C S(1) = -.187621E+01 .179197E-03 .187603E+01 -C S(2) = .296093E-05 -.583104E-09 -.296034E-05 -C S(3) = -.493267E-09 -.276246E-12 .493544E-09 -C AT T = .4000E+02 Y = .715848E+00 .918628E-05 .284143E+00 -C S(1) = -.424730E+01 .459360E-04 .424726E+01 -C S(2) = .137294E-04 -.235815E-09 -.137291E-04 -C S(3) = -.228818E-08 -.113803E-12 .228829E-08 -C AT T = .4000E+03 Y = .450526E+00 .322299E-05 .549471E+00 -C S(1) = -.595837E+01 .354310E-05 .595836E+01 -C S(2) = .227380E-04 -.226041E-10 -.227380E-04 -C S(3) = -.378971E-08 -.499501E-13 .378976E-08 -C AT T = .4000E+04 Y = .183185E+00 .894131E-06 .816814E+00 -C S(1) = -.475006E+01 -.599504E-05 .475007E+01 -C S(2) = .188089E-04 .231330E-10 -.188089E-04 -C S(3) = -.313478E-08 -.187575E-13 .313480E-08 -C AT T = .4000E+05 Y = .389733E-01 .162133E-06 .961027E+00 -C S(1) = -.157477E+01 -.276199E-05 .157477E+01 -C S(2) = .628668E-05 .110026E-10 -.628670E-05 -C S(3) = -.104776E-08 -.453588E-14 .104776E-08 -C AT T = .4000E+06 Y = .493609E-02 .198411E-07 .995064E+00 -C S(1) = -.236244E+00 -.458262E-06 .236244E+00 -C S(2) = .944669E-06 .183193E-11 -.944671E-06 -C S(3) = -.157441E-09 -.635990E-15 .157442E-09 -C AT T = .4000E+07 Y = .516087E-03 .206540E-08 .999484E+00 -C S(1) = -.256277E-01 -.509808E-07 .256278E-01 -C S(2) = .102506E-06 .203905E-12 -.102506E-06 -C S(3) = -.170825E-10 -.684002E-16 .170826E-10 -C AT T = .4000E+08 Y = .519314E-04 .207736E-09 .999948E+00 -C S(1) = -.259316E-02 -.518029E-08 .259316E-02 -C S(2) = .103726E-07 .207209E-13 -.103726E-07 -C S(3) = -.172845E-11 -.691450E-17 .172845E-11 -C AT T = .4000E+09 Y = .544710E-05 .217885E-10 .999995E+00 -C S(1) = -.271637E-03 -.541849E-09 .271638E-03 -C S(2) = .108655E-08 .216739E-14 -.108655E-08 -C S(3) = -.180902E-12 -.723615E-18 .180902E-12 -C AT T = .4000E+10 Y = .446748E-06 .178699E-11 .100000E+01 -C S(1) = -.322322E-04 -.842541E-10 .322323E-04 -C S(2) = .128929E-09 .337016E-15 -.128929E-09 -C S(3) = -.209715E-13 -.838859E-19 .209715E-13 -C AT T = .4000E+11 Y = -.363960E-07 -.145584E-12 .100000E+01 -C S(1) = -.164109E-06 -.429604E-11 .164113E-06 -C S(2) = .656436E-12 .171842E-16 -.656451E-12 -C S(3) = -.689361E-15 -.275745E-20 .689363E-15 -C -C NO. STEPS = 340 NO. F-S = 412 NO. J-S = 343 NO. DF-S =1023 -C---------------------------------------------------------------------- -C FULL DESCRIPTION OF USER INTERFACE TO ODESSA. -C -C THE USER INTERFACE TO ODESSA CONSISTS OF THE FOLLOWING PARTS. -C -C I. THE CALL SEQUENCE TO SUBROUTINE ODESSA, WHICH IS A DRIVER -C ROUTINE FOR THE KppSolveR. THIS INCLUDES DESCRIPTIONS OF BOTH -C THE CALL SEQUENCE ARGUMENTS AND OF USER-SUPPLIED ROUTINES. -C FOLLOWING THESE DESCRIPTIONS IS A DESCRIPTION OF -C OPTIONAL INPUTS AVAILABLE THROUGH THE CALL SEQUENCE, AND THEN -C A DESCRIPTION OF OPTIONAL OUTPUTS (IN THE WORK ARRAYS). -C -C II. DESCRIPTIONS OF OTHER ROUTINES IN THE ODESSA PACKAGE THAT MAY -C BE (OPTIONALLY) CALLED BY THE USER. THESE PROVIDE THE ABILITY -C TO ALTER ERROR MESSAGE HANDLING, SAVE AND RESTORE THE INTERNAL -C COMMON, AND OBTAIN SPECIFIED DERIVATIVES OF THE SOLUTION Y(T). -C -C III. DESCRIPTIONS OF COMMON BLOCKS TO BE DECLARED IN OVERLAY -C OR SIMILAR ENVIRONMENTS, OR TO BE SAVED WHEN DOING AN INTERRUPT -C OF THE PROBLEM AND CONTINUED SOLUTION LATER. -C -C IV. DESCRIPTION OF TWO SUBROUTINES IN THE ODESSA PACKAGE, EITHER OF -C WHICH THE USER MAY REPLACE WITH HIS OWN VERSION, IF DESIRED. -C THESE RELATE TO THE MEASUREMENT OF ERRORS. -C -C V. GENERAL REMARKS WHICH HIGHLIGHT DIFFERENCES BETWEEN THE LSODE -C PACKAGE AND THE ODESSA PACKAGE. -C---------------------------------------------------------------------- -C PART I. CALL SEQUENCE. -C -C THE CALL SEQUENCE PARAMETERS USED FOR INPUT ONLY ARE.. -C F, DF, NEQ, PAR, TOUT, ITOL, RTOL, ATOL, ITASK, IOPT, LRW, LIW, -C JAC, MF, -C AND THOSE USED FOR BOTH INPUT AND OUTPUT ARE -C Y, T, ISTATE. -C THE WORK ARRAYS RWORK AND IWORK ARE ALSO USED FOR CONDITIONAL AND -C OPTIONAL INPUTS AND OPTIONAL OUTPUTS. (THE TERM OUTPUT HERE REFERS -C TO THE RETURN FROM SUBROUTINE ODESSA TO THE USER-S CALLING PROGRAM.) -C -C THE LEGALITY OF INPUT PARAMETERS WILL BE THOROUGHLY CHECKED ON THE -C INITIAL CALL FOR THE PROBLEM, BUT NOT CHECKED THEREAFTER UNLESS A -C CHANGE IN INPUT PARAMETERS IS FLAGGED BY ISTATE = 3 ON INPUT. -C -C THE DESCRIPTIONS OF THE CALL ARGUMENTS ARE AS FOLLOWS. -C -C F = THE NAME OF THE USER-SUPPLIED SUBROUTINE DEFINING THE -C ODE MODEL. THIS SYSTEM MUST BE PUT IN THE FIRST-ORDER -C FORM DY/DT = F(Y,T;P), WHERE F IS A VECTOR-VALUED FUNCTION -C OF THE SCALAR T AND VECTORS Y, AND PAR. SUBROUTINE F IS TO -C COMPUTE THE FUNCTION F. IT IS TO HAVE THE FORM.. -C SUBROUTINE F (NEQ, T, Y, PAR, YDOT) -C DOUBLE PRECISION T, Y, PAR, YDOT -C DIMENSION Y(1), PAR(1), YDOT(1) -C WHERE NEQ, T, Y, AND PAR ARE INPUT, AND YDOT = F(Y,T;P) -C IS OUTPUT. Y AND YDOT ARE ARRAYS OF LENGTH N (= NEQ(1)). -C (IN THE DIMENSION STATEMENT ABOVE, 1 IS A DUMMY -C DIMENSION.. IT CAN BE REPLACED BY ANY VALUE.) -C F SHOULD NOT ALTER ARRAY Y, OR PAR(1),...,PAR(NPAR). -C F MUST BE DECLARED EXTERNAL IN THE CALLING PROGRAM. -C -C SUBROUTINE F MAY ACCESS USER-DEFINED QUANTITIES IN -C NEQ(2),... AND PAR(NPAR+1),... IF NEQ IS AN ARRAY -C (DIMENSIONED IN F) AND PAR HAS LENGTH EXCEEDING NPAR. -C SEE THE DESCRIPTIONS OF NEQ AND PAR BELOW. -C -C DF = THE NAME OF THE USER-SUPPLIED ROUTINE (IDF = 1) TO COMPUTE -C THE INHOMOGENEITY MATRIX, DF/DP, AS A FUNCTION OF THE SCALAR -C T, AND THE VECTORS Y, AND PAR. IT IS TO HAVE THE FORM -C SUBROUTINE DF (NEQ, T, Y, PAR, DFDP, JPAR) -C DOUBLE PRECISION T, Y, PAR, DFDP -C DIMENSION Y(1), PAR(1), DFDP(1) -C GO TO (1,2,...,NPAR) JPAR -C 1 DFDP(1) = DF(1)/DP(1) -C . -C DFDP(I) = DF(I)/DP(1) -C . -C DFDP(N) = DF(N)/DP(1) -C RETURN -C 2 DFDP(1) = DF(1)/DP(2) -C . -C DFDP(I) = DF(I)/DP(2) -C . -C DFDP(N) = DF(N)/DP(2) -C . -C RETURN -C . . -C . . -C NPAR DFDP(1) = DF(1)/DP(NPAR) -C . -C DFDP(I) = DF(I)/DP(NPAR) -C . -C DFDP(N) = DF(N)/DP(NPAR) -C RETURN -C END -C WHERE NEQ, T, Y, PAR, AND JPAR ARE INPUT AND THE VECTOR -C DFDP(*,JPAR) IS TO BE LOADED WITH THE PARTIAL DERIVATIVES -C DF(Y,T;PAR)/DP(JPAR) ON OUTPUT. ONLY NONZERO ELEMENTS NEED -C BE LOADED. T, Y, AND PAR HAVE THE SAME MEANING AS IN -C SUBROUTINE F. (IN THE DIMENSION STATEMENT ABOVE, 1 IS A DUMMY -C DIMENSION.. IT CAN BE REPLACED BY ANY VALUE). -C -C DFDP(*,JPAR) IS PRESET TO ZERO BY THE KppSolveR, SO THAT ONLY -C THE NONZERO ELEMENTS NEED BE LOADED BY DF. SUBROUTINE DF -C MUST BE DECLARED EXTERNAL IN THE CALLING PROGRAM IF USED. -C IF IDF = 0 (OR ISOPT = 0), A DUMMY ARGUMENT CAN BE USED. -C -C SUBROUTINE DF MAY ACCESS USER-DEFINED QUANTITIES IN -C NEQ(2),... AND PAR(NPAR+1),... IF NEQ IS AN ARRAY -C (DIMENSIONED IN DF) AND PAR HAS A LENGTH EXCEEDING NPAR. -C SEE THE DESCRIPTIONS OF NEQ AND PAR (BELOW). -C -C NEQ = THE SIZE OF THE ODE SYSTEM (NUMBER OF FIRST ORDER ORDINARY -C DIFFERENTIAL EQUATIONS (N) IN THE MODEL). USED ONLY FOR -C INPUT. NEQ MAY NOT BE CHANGED DURING THE PROBLEM. -C -C FOR ISOPT = 0, NEQ IS NORMALLY A SCALAR. HOWEVER, NEQ MAY -C BE AN ARRAY, WITH NEQ(1) SET TO THE SYSTEM SIZE (N), IN WHICH -C CASE THE ODESSA PACKAGE ACCESSES ONLY NEQ(1). HOWEVER, -C THIS PARAMETER IS PASSED AS THE NEQ ARGUMENT IN ALL CALLS -C TO F, DF, AND JAC. HENCE, IF IT IS AN ARRAY, LOCATIONS -C NEQ(2),... MAY BE USED TO STORE OTHER INTEGER DATA AND PASS -C IT TO F, DF, AND/OR JAC. FOR ISOPT = 1, NPAR MUST BE LOADED -C INTO NEQ(2), AND IS NOT ALLOWED TO CHANGE DURING THE PROBLEM. -C IN THESE CASES, SUBROUTINES F, DF, AND/OR JAC MUST INCLUDE -C NEQ IN A DIMENSION STATEMENT. -C -C Y = A REAL ARRAY FOR THE VECTOR OF DEPENDENT VARIABLES, OF -C DIMENSION (N) BY (NPAR+1). USED FOR BOTH INPUT AND -C OUTPUT ON THE FIRST CALL (ISTATE = 1), AND ONLY FOR -C OUTPUT ON OTHER CALLS. ON THE FIRST CALL, Y MUST CONTAIN -C THE VECTORS OF INITIAL VALUES. ON OUTPUT, Y CONTAINS THE -C COMPUTED SOLUTION VECTORS, EVALUATED AT T. -C -C PAR = A REAL ARRAY FOR THE VECTOR OF CONSTANT MODEL PARAMETERS -C OF INTEREST IN THE SENSITIVITY ANALYSIS, OF LENGTH NPAR -C OR MORE. PAR IS PASSED AS AN ARGUMENT IN ALL CALLS TO F, -C DF, AND JAC. HENCE LOCATIONS PAR(NPAR+1),... MAY BE USED -C TO STORE OTHER REAL DATA AND PASS IT TO F, DF, AND/OR JAC. -C LOCATIONS PAR(1),...,PAR(NPAR) ARE USED AS INPUT ONLY, -C AND MUST NOT BE CHANGED DURING THE PROBLEM. -C -C T = THE INDEPENDENT VARIABLE. ON INPUT, T IS USED ONLY ON THE -C FIRST CALL, AS THE INITIAL POINT OF THE INTEGRATION. -C ON OUTPUT, AFTER EACH CALL, T IS THE VALUE AT WHICH A -C COMPUTED SOLUTION Y IS EVALUATED (USUALLY THE SAME AS TOUT). -C ON AN ERROR RETURN, T IS THE FARTHEST POINT REACHED. -C -C TOUT = THE NEXT VALUE OF T AT WHICH A COMPUTED SOLUTION IS DESIRED. -C USED ONLY FOR INPUT. -C -C WHEN STARTING THE PROBLEM (ISTATE = 1), TOUT MAY BE EQUAL -C TO T FOR ONE CALL, THEN SHOULD .NE. T FOR THE NEXT CALL. -C FOR THE INITIAL T, AN INPUT VALUE OF TOUT .NE. T IS USED -C IN ORDER TO DETERMINE THE DIRECTION OF THE INTEGRATION -C (I.E. THE ALGEBRAIC SIGN OF THE STEP SIZES) AND THE ROUGH -C SCALE OF THE PROBLEM. INTEGRATION IN EITHER DIRECTION -C (FORWARD OR BACKWARD IN T) IS PERMITTED. -C -C IF ITASK = 2 OR 5 (ONE-STEP MODES), TOUT IS IGNORED AFTER -C THE FIRST CALL (I.E. THE FIRST CALL WITH TOUT .NE. T). -C OTHERWISE, TOUT IS REQUIRED ON EVERY CALL. -C -C IF ITASK = 1, 3, OR 4, THE VALUES OF TOUT NEED NOT BE -C MONOTONE, BUT A VALUE OF TOUT WHICH BACKS UP IS LIMITED -C TO THE CURRENT INTERNAL T INTERVAL, WHOSE ENDPOINTS ARE -C TCUR - HU AND TCUR (SEE OPTIONAL OUTPUTS, BELOW, FOR -C TCUR AND HU). -C -C ITOL = AN INDICATOR FOR THE TYPE OF ERROR CONTROL. SEE -C DESCRIPTION BELOW UNDER ATOL. USED ONLY FOR INPUT. -C -C RTOL = A RELATIVE ERROR TOLERANCE PARAMETER, EITHER A SCALAR OR -C AN ARRAY OF SPACE (N) BY (NPAR+1). SEE DESCRIPTION BELOW -C UNDER ATOL. INPUT ONLY. -C -C ATOL = AN ABSOLUTE ERROR TOLERANCE PARAMETER, EITHER A SCALAR OR -C AN ARRAY OF SPACE (N) BY (NPAR+1). INPUT ONLY. -C -C THE INPUT PARAMETERS ITOL, RTOL, AND ATOL DETERMINE -C THE ERROR CONTROL PERFORMED BY THE KppSolveR. THE KppSolveR WILL -C CONTROL THE VECTOR E = (E(I,J)) OF ESTIMATED LOCAL ERRORS -C IN Y, ACCORDING TO AN INEQUALITY OF THE FORM -C RMS-NORM OF ( E(I,J)/EWT(I,J) ) .LE. 1, -C WHERE EWT(I,J) = RTOL(I,J)*ABS(Y(I,J)) + ATOL(I,J), -C AND THE RMS-NORM (ROOT-MEAN-SQUARE NORM) HERE IS -C RMS-NORM(V) = SQRT ( (1/N) * SUM (V(I,J)**2) ); I =1,...,N. -C HERE EWT = (EWT(I,J)) IS A VECTOR OF WEIGHTS WHICH MUST -C ALWAYS BE POSITIVE, AND THE VALUES OF RTOL AND ATOL SHOULD -C ALL BE NON-NEGATIVE. THE FOLLOWING TABLE GIVES THE TYPES -C (SCALAR/ARRAY) OF RTOL AND ATOL, AND THE CORRESPONDING FORM -C OF EWT(I,J). -C -C ITOL RTOL ATOL EWT(I,J) -C 1 SCALAR SCALAR RTOL*ABS(Y(I,J)) + ATOL -C 2 SCALAR ARRAY RTOL*ABS(Y(I,J)) + ATOL(I,J) -C 3 ARRAY SCALAR RTOL(I,J)*ABS(Y(I,J)) + ATOL -C 4 ARRAY ARRAY RTOL(I,J)*ABS(Y(I,J)) + ATOL(I,J) -C -C WHEN EITHER OF THESE PARAMETERS IS A SCALAR, IT NEED NOT -C BE DIMENSIONED IN THE USER-S CALLING PROGRAM. -C -C THE TOTAL NUMBER OF ERROR TEST FAILURES DUE TO THE SENSITIVITY -C ANALYSIS, AND WHICH REQUIRE AN INTEGRATION STEP TO BE -C REPEATED, ARE ACCUMULATED IN THE LAST NPAR+1 LOCATIONS OF THE -C INTEGER WORK ARRAY IWORK (SEE OPTIONAL OUTPUTS BELOW). -C THIS INFORMATION MAY BE OF VALUE IN DETERMINING APPROPRIATE -C ERROR TOLERANCES TO BE APPLIED TO THE SENSITIVITY FUNCTIONS. -C -C IF NONE OF THE ABOVE CHOICES (WITH ITOL, RTOL, AND ATOL -C FIXED THROUGHOUT THE PROBLEM) IS SUITABLE, MORE GENERAL -C ERROR CONTROLS CAN BE OBTAINED BY SUBSTITUTING -C USER-SUPPLIED ROUTINES FOR THE SETTING OF EWT AND/OR FOR -C THE NORM CALCULATION. SEE PART IV BELOW. -C -C IF GLOBAL ERRORS ARE TO BE ESTIMATED BY MAKING A REPEATED -C RUN ON THE SAME PROBLEM WITH SMALLER TOLERANCES, THEN ALL -C COMPONENTS OF RTOL AND ATOL (I.E. OF EWT) SHOULD BE SCALED -C DOWN UNIFORMLY. -C -C ITASK = AN INDEX SPECIFYING THE TASK TO BE PERFORMED. -C INPUT ONLY. ITASK HAS THE FOLLOWING VALUES AND MEANINGS. -C 1 MEANS NORMAL COMPUTATION OF OUTPUT VALUES OF Y(T) AT -C T = TOUT (BY OVERSHOOTING AND INTERPOLATING). -C 2 MEANS TAKE ONE STEP ONLY AND RETURN. -C 3 MEANS STOP AT THE FIRST INTERNAL MESH POINT AT OR -C BEYOND T = TOUT AND RETURN. -C 4 MEANS NORMAL COMPUTATION OF OUTPUT VALUES OF Y(T) AT -C T = TOUT BUT WITHOUT OVERSHOOTING T = TCRIT. -C TCRIT MUST BE INPUT AS RWORK(1). TCRIT MAY BE EQUAL TO -C OR BEYOND TOUT, BUT NOT BEHIND IT IN THE DIRECTION OF -C INTEGRATION. THIS OPTION IS USEFUL IF THE PROBLEM -C HAS A SINGULARITY AT OR BEYOND T = TCRIT. -C 5 MEANS TAKE ONE STEP, WITHOUT PASSING TCRIT, AND RETURN. -C TCRIT MUST BE INPUT AS RWORK(1). -C -C NOTE.. IF ITASK = 4 OR 5 AND THE KppSolveR REACHES TCRIT -C (WITHIN ROUNDOFF), IT WILL RETURN T = TCRIT (EXACTLY) TO -C INDICATE THIS (UNLESS ITASK = 4 AND TOUT COMES BEFORE TCRIT, -C IN WHICH CASE ANSWERS AT T = TOUT ARE RETURNED FIRST). -C -C ISTATE = AN INDEX USED FOR INPUT AND OUTPUT TO SPECIFY THE -C THE STATE OF THE CALCULATION. -C -C ON INPUT, THE VALUES OF ISTATE ARE AS FOLLOWS. -C 1 MEANS THIS IS THE FIRST CALL FOR THE PROBLEM -C (INITIALIZATIONS WILL BE DONE). SEE NOTE BELOW. -C 2 MEANS THIS IS NOT THE FIRST CALL, AND THE CALCULATION -C IS TO CONTINUE NORMALLY, WITH NO CHANGE IN ANY INPUT -C PARAMETERS EXCEPT POSSIBLY TOUT AND ITASK. -C (IF ITOL, RTOL, AND/OR ATOL ARE CHANGED BETWEEN CALLS -C WITH ISTATE = 2, THE NEW VALUES WILL BE USED BUT NOT -C TESTED FOR LEGALITY.) -C 3 MEANS THIS IS NOT THE FIRST CALL, AND THE -C CALCULATION IS TO CONTINUE NORMALLY, BUT WITH -C A CHANGE IN INPUT PARAMETERS OTHER THAN -C TOUT AND ITASK. CHANGES ARE ALLOWED IN -C ITOL, RTOL, ATOL, IOPT, LRW, LIW, MF, ML, MU, -C AND ANY OF THE OPTIONAL INPUTS EXCEPT H0. -C (SEE IWORK DESCRIPTION FOR ML AND MU.) -C NOTE.. A PRELIMINARY CALL WITH TOUT = T IS NOT COUNTED -C AS A FIRST CALL HERE, AS NO INITIALIZATION OR CHECKING OF -C INPUT IS DONE. (SUCH A CALL IS SOMETIMES USEFUL FOR THE -C PURPOSE OF OUTPUTTING THE INITIAL CONDITIONS.) -C THUS THE FIRST CALL FOR WHICH TOUT .NE. T REQUIRES -C ISTATE = 1 ON INPUT. -C -C ON OUTPUT, ISTATE HAS THE FOLLOWING VALUES AND MEANINGS. -C 1 MEANS NOTHING WAS DONE, AS TOUT WAS EQUAL TO T WITH -C ISTATE = 1 ON INPUT. (HOWEVER, AN INTERNAL COUNTER WAS -C SET TO DETECT AND PREVENT REPEATED CALLS OF THIS TYPE.) -C 2 MEANS THE INTEGRATION WAS PERFORMED SUCCESSFULLY. -C -1 MEANS AN EXCESSIVE AMOUNT OF WORK (MORE THAN MXSTEP -C STEPS) WAS DONE ON THIS CALL, BEFORE COMPLETING THE -C REQUESTED TASK, BUT THE INTEGRATION WAS OTHERWISE -C SUCCESSFUL AS FAR AS T. (MXSTEP IS AN OPTIONAL INPUT -C AND IS NORMALLY 500.) TO CONTINUE, THE USER MAY -C SIMPLY RESET ISTATE TO A VALUE .GT. 1 AND CALL AGAIN -C (THE EXCESS WORK STEP COUNTER WILL BE RESET TO 0). -C IN ADDITION, THE USER MAY INCREASE MXSTEP TO AVOID -C THIS ERROR RETURN (SEE BELOW ON OPTIONAL INPUTS). -C -2 MEANS TOO MUCH ACCURACY WAS REQUESTED FOR THE PRECISION -C OF THE MACHINE BEING USED. THIS WAS DETECTED BEFORE -C COMPLETING THE REQUESTED TASK, BUT THE INTEGRATION -C WAS SUCCESSFUL AS FAR AS T. TO CONTINUE, THE TOLERANCE -C PARAMETERS MUST BE RESET, AND ISTATE MUST BE SET -C TO 3. THE OPTIONAL OUTPUT TOLSF MAY BE USED FOR THIS -C PURPOSE. (NOTE.. IF THIS CONDITION IS DETECTED BEFORE -C TAKING ANY STEPS, THEN AN ILLEGAL INPUT RETURN -C (ISTATE = -3) OCCURS INSTEAD.) -C -3 MEANS ILLEGAL INPUT WAS DETECTED, BEFORE TAKING ANY -C INTEGRATION STEPS. SEE WRITTEN MESSAGE FOR DETAILS. -C NOTE.. IF THE KppSolveR DETECTS AN INFINITE LOOP OF CALLS -C TO THE KppSolveR WITH ILLEGAL INPUT, IT WILL CAUSE -C THE RUN TO STOP. -C -4 MEANS THERE WERE REPEATED ERROR TEST FAILURES ON -C ONE ATTEMPTED STEP, BEFORE COMPLETING THE REQUESTED -C TASK, BUT THE INTEGRATION WAS SUCCESSFUL AS FAR AS T. -C THE PROBLEM MAY HAVE A SINGULARITY, OR THE INPUT -C MAY BE INAPPROPRIATE. -C -5 MEANS THERE WERE REPEATED CONVERGENCE TEST FAILURES ON -C ONE ATTEMPTED STEP, BEFORE COMPLETING THE REQUESTED -C TASK, BUT THE INTEGRATION WAS SUCCESSFUL AS FAR AS T. -C THIS MAY BE CAUSED BY AN INACCURATE JACOBIAN MATRIX, -C IF ONE IS BEING USED. -C -6 MEANS EWT(I,J) BECAME ZERO FOR SOME I,J DURING THE -C INTEGRATION. PURE RELATIVE ERROR CONTROL (ATOL(I,J)=0.0) -C WAS REQUESTED ON A VARIABLE WHICH HAS NOW VANISHED. -C THE INTEGRATION WAS SUCCESSFUL AS FAR AS T. -C -C NOTE.. SINCE THE NORMAL OUTPUT VALUE OF ISTATE IS 2, -C IT DOES NOT NEED TO BE RESET FOR NORMAL CONTINUATION. -C ALSO, SINCE A NEGATIVE INPUT VALUE OF ISTATE WILL BE -C REGARDED AS ILLEGAL, A NEGATIVE OUTPUT VALUE REQUIRES THE -C USER TO CHANGE IT, AND POSSIBLY OTHER INPUTS, BEFORE -C CALLING THE KppSolveR AGAIN. -C -C IOPT = AN INTEGER ARRAY FLAG TO SPECIFY WHETHER OR NOT ANY OPTIONAL -C INPUTS ARE BEING USED ON THIS CALL. INPUT ONLY. -C THE OPTIONAL INPUTS ARE LISTED SEPARATELY BELOW. -C IOPT(1) = 0 MEANS NO OPTIONAL INPUTS FOR THE KppSolveR WILL BE -C USED. DEFAULT VALUES WILL BE USED IN ALL CASES. -C = 1 MEANS ONE OR MORE OPTIONAL INPUTS FOR THE -C KppSolveR ARE BEING USED. -C NOTE : IOPT(1) IS INDEPENDENT OF ISOPT AND IDF. -C IOPT(2) = 0 MEANS NO SENSITIVITY ANALYSIS WILL BE PERFORMED. -C = 1 MEANS A SENSITIVITY ANALYSIS WILL BE PERFORMED. -C NOTE : IOPT(2) IS RENAMED TO ISOPT IN ODESSA. -C = 0 MEANS DF/DP WILL BE CALCULATED BY FINITE -C DIFFERENCE WITHIN ODESSA. -C IOPT(3) = 1 MEANS DF/DP WILL BE CALCULATED BY A USER-SUPPLIED -C ROUTINE. -C NOTE : IOPT(3) IS RENAMED TO IDF IN ODESSA. -C IF IDF = 1, THE USER MUST SUPPLY A -C SUBROUTINE DF (THE NAME IS ARBITRARY) AS -C DESCRIBED BELOW UNDER DF. FOR IDF = 0, -C A DUMMY ARGUMENT CAN BE USED. -C -C RWORK = A REAL WORKING ARRAY (DOUBLE PRECISION). -C FOR ISOPT = 0, THE LENGTH OF RWORK MUST BE AT LEAST.. -C 20 + NYH*(MAXORD + 1) + 3*NEQ + LWM -C FOR ISOPT = 1, THE LENGTH OF RWORK MUST BE AT LEAST.. -C 20 + NYH*(MAXORD + 1) + 2*NYH + LWM + N -C WHERE.. -C NYH = THE TOTAL NUMBER OF DEPENDENT VARIABLES; -C (= N IF ISOPT = 0, AND N*(NPAR+1) IF ISOPT = 1). -C MAXORD = 12 (IF METH = 1) OR 5 (IF METH = 2) (UNLESS A -C SMALLER VALUE IS GIVEN AS AN OPTIONAL INPUT), -C LWM = 0 IF MITER = 0, -C LWM = N**2 + 2 IF MITER IS 1 OR 2, -C LWM = N + 2 IF MITER = 3, AND -C LWM = (2*ML+MU+1)*N + 2 IF MITER IS 4 OR 5. -C (SEE THE MF DESCRIPTION FOR METH AND MITER.) -C -C THE FIRST 20 WORDS OF RWORK ARE RESERVED FOR CONDITIONAL -C AND OPTIONAL INPUTS AND OPTIONAL OUTPUTS. -C -C THE FOLLOWING WORD IN RWORK IS A CONDITIONAL INPUT.. -C RWORK(1) = TCRIT = CRITICAL VALUE OF T WHICH THE KppSolveR -C IS NOT TO OVERSHOOT. REQUIRED IF ITASK IS -C 4 OR 5, AND IGNORED OTHERWISE. (SEE ITASK.) -C -C LRW = THE LENGTH OF THE ARRAY RWORK, AS DECLARED BY THE USER. -C (THIS WILL BE CHECKED BY THE KppSolveR.) -C -C IWORK = AN INTEGER WORK ARRAY. THE LENGTH MUST BE AT LEAST.. -C 20 IF MITER = 0 OR 3 (MF = 10, 13, 20, 23), OR -C 20 + N OTHERWISE (MF = 11, 12, 14, 15, 21, 22, 24, 25). -C FOR ISOPT = 0, OR.. -C 21 + N + NPAR -C FOR ISOPT = 1. -C THE FIRST FEW WORDS OF IWORK ARE USED FOR CONDITIONAL AND -C OPTIONAL INPUTS AND OPTIONAL OUTPUTS. -C -C THE FOLLOWING 2 WORDS IN IWORK ARE CONDITIONAL INPUTS.. -C IWORK(1) = ML THESE ARE THE LOWER AND UPPER -C IWORK(2) = MU HALF-BANDWIDTHS, RESPECTIVELY, OF THE -C BANDED JACOBIAN, EXCLUDING THE MAIN DIAGONAL. -C THE BAND IS DEFINED BY THE MATRIX LOCATIONS -C (I,J) WITH I-ML .LE. J .LE. I+MU. ML AND MU -C MUST SATISFY 0 .LE. ML,MU .LE. NEQ-1. -C THESE ARE REQUIRED IF MITER IS 4 OR 5, AND -C IGNORED OTHERWISE. ML AND MU MAY IN FACT BE -C THE BAND PARAMETERS FOR A MATRIX TO WHICH -C DF/DY IS ONLY APPROXIMATELY EQUAL. -* -C -C LIW = THE LENGTH OF THE ARRAY IWORK, AS DECLARED BY THE USER. -C (THIS WILL BE CHECKED BY THE KppSolveR.) -C -C NOTE.. THE WORK ARRAYS MUST NOT BE ALTERED BETWEEN CALLS TO ODESSA -C FOR THE SAME PROBLEM, EXCEPT POSSIBLY FOR THE CONDITIONAL AND -C OPTIONAL INPUTS, AND EXCEPT FOR THE LAST 2*NYH + N WORDS OF RWORK. -C THE LATTER SPACE IS USED FOR INTERNAL SCRATCH SPACE, AND SO IS -C AVAILABLE FOR USE BY THE USER OUTSIDE ODESSA BETWEEN CALLS, IF -C DESIRED (BUT NOT FOR USE BY F, DF, OR JAC). -C -C JAC = THE NAME OF THE USER-SUPPLIED ROUTINE (MITER = 1 OR 4) TO -C COMPUTE THE JACOBIAN MATRIX, DF/DY, AS A FUNCTION OF THE -C SCALAR T AND THE VECTORS Y, AND PAR. IT IS TO HAVE THE FORM -C SUBROUTINE JAC (NEQ, T, Y, PAR, ML, MU, PD, NROWPD) -C DOUBLE PRECISION T, Y, PAR, PD -C DIMENSION Y(1), PAR(1), PD(NROWPD,1) -C WHERE NEQ, T, Y, PAR, ML, MU, AND NROWPD ARE INPUT AND THE -C ARRAY PD IS TO BE LOADED WITH PARTIAL DERIVATIVES (ELEMENTS -C OF THE JACOBIAN MATRIX) ON OUTPUT. PD MUST BE GIVEN A FIRST -C DIMENSION OF NROWPD. T, Y, AND PAR HAVE THE SAME MEANING AS -C IN SUBROUTINE F. (IN THE DIMENSION STATEMENT ABOVE, 1 IS A -C DUMMY DIMENSION.. IT CAN BE REPLACED BY ANY VALUE.) -C IN THE FULL MATRIX CASE (MITER = 1), ML AND MU ARE -C IGNORED, AND THE JACOBIAN IS TO BE LOADED INTO PD IN -C COLUMNWISE MANNER, WITH DF(I)/DY(J) LOADED INTO PD(I,J). -C IN THE BAND MATRIX CASE (MITER = 4), THE ELEMENTS -C WITHIN THE BAND ARE TO BE LOADED INTO PD IN COLUMNWISE -C MANNER, WITH DIAGONAL LINES OF DF/DY LOADED INTO THE ROWS -C OF PD. THUS DF(I)/DY(J) IS TO BE LOADED INTO PD(I-J+MU+1,J). -C ML AND MU ARE THE HALF-BANDWIDTH PARAMETERS (SEE IWORK). -C THE LOCATIONS IN PD IN THE TWO TRIANGULAR AREAS WHICH -C CORRESPOND TO NONEXISTENT MATRIX ELEMENTS CAN BE IGNORED -C OR LOADED ARBITRARILY, AS THEY ARE OVERWRITTEN BY ODESSA. -C PD IS PRESET TO ZERO BY THE KppSolveR, SO THAT ONLY THE -C NONZERO ELEMENTS NEED BE LOADED BY JAC. EACH CALL TO JAC IS -C PRECEDED BY A CALL TO F WITH THE SAME ARGUMENTS NEQ, T, Y, -C AND PAR. THUS TO GAIN SOME EFFICIENCY, INTERMEDIATE -C QUANTITIES SHARED BY BOTH CALCULATIONS MAY BE SAVED IN A -C USER COMMON BLOCK BY F AND NOT RECOMPUTED BY JAC, IF -C DESIRED. ALSO, JAC MAY ALTER THE Y ARRAY, IF DESIRED. -C JAC MUST BE DECLARED EXTERNAL IN THE CALLING PROGRAM. -C SUBROUTINE JAC MAY ACCESS USER-DEFINED QUANTITIES IN -C NEQ(2),... AND PAR(NPAR+1),.... SEE THE DESCRIPTIONS OF -C NEQ (ABOVE) AND PAR (BELOW). -C -C MF = THE METHOD FLAG. USED ONLY FOR INPUT. THE LEGAL VALUES OF -C MF ARE 10, 11, 12, 13, 14, 15, 20, 21, 22, 23, 24, AND 25. -C MF HAS DECIMAL DIGITS METH AND MITER.. MF = 10*METH + MITER. -C METH INDICATES THE BASIC LINEAR MULTISTEP METHOD.. -C METH = 1 MEANS THE IMPLICIT ADAMS METHOD. -* -C METH = 2 MEANS THE METHOD BASED ON BACKWARD -C DIFFERENTIATION FORMULAS (BDF-S). -C MITER INDICATES THE CORRECTOR ITERATION METHOD.. -C MITER = 0 MEANS FUNCTIONAL ITERATION (NO JACOBIAN MATRIX -C IS INVOLVED). -C MITER = 1 MEANS CHORD ITERATION WITH A USER-SUPPLIED -C FULL (NEQ BY NEQ) JACOBIAN. -C MITER = 2 MEANS CHORD ITERATION WITH AN INTERNALLY -C GENERATED (DIFFERENCE QUOTIENT) FULL JACOBIAN -C (USING NEQ EXTRA CALLS TO F PER DF/DY VALUE). -C MITER = 3 MEANS CHORD ITERATION WITH AN INTERNALLY -C GENERATED DIAGONAL JACOBIAN APPROXIMATION. -C (USING 1 EXTRA CALL TO F PER DF/DY EVALUATION). -C MITER = 4 MEANS CHORD ITERATION WITH A USER-SUPPLIED -C BANDED JACOBIAN. -C MITER = 5 MEANS CHORD ITERATION WITH AN INTERNALLY -C GENERATED BANDED JACOBIAN (USING ML+MU+1 EXTRA -C CALLS TO F PER DF/DY EVALUATION). -C IF MITER = 1 OR 4, THE USER MUST SUPPLY A SUBROUTINE JAC -C (THE NAME IS ARBITRARY) AS DESCRIBED ABOVE UNDER JAC. -C FOR OTHER VALUES OF MITER, A DUMMY ARGUMENT CAN BE USED. -C -C IF A SENSITIVITY ANLYSIS IS DESIRED (ISOPT = 1), MITER = 0 -C AND 3 ARE DISALLOWED. IN THESE CASES, THE USER IS RECOMMENDED -C TO SUPPLY AN ANALYTICAL JACOBIAN (MITER = 1 OR 4) AND AN -C ANALYTICAL INHOMOGENEITY MATRIX (IDF = 1). -C---------------------------------------------------------------------- -C OPTIONAL INPUTS. -C -C THE FOLLOWING IS A LIST OF THE OPTIONAL INPUTS PROVIDED FOR IN THE -C CALL SEQUENCE. (SEE ALSO PART II.) FOR EACH SUCH INPUT VARIABLE, -C THIS TABLE LISTS ITS NAME AS USED IN THIS DOCUMENTATION, ITS -C LOCATION IN THE CALL SEQUENCE, ITS MEANING, AND THE DEFAULT VALUE. -C THE USE OF ANY OF THESE INPUTS REQUIRES IOPT(1) = 1, AND IN THAT -C CASE ALL OF THESE INPUTS ARE EXAMINED. A VALUE OF ZERO FOR ANY -C OF THESE OPTIONAL INPUTS WILL CAUSE THE DEFAULT VALUE TO BE USED. -C THUS TO USE A SUBSET OF THE OPTIONAL INPUTS, SIMPLY PRELOAD -C LOCATIONS 5 TO 10 IN RWORK AND IWORK TO 0.0 AND 0 RESPECTIVELY, AND -C THEN SET THOSE OF INTEREST TO NONZERO VALUES. -C -C NAME LOCATION MEANING AND DEFAULT VALUE -C -C H0 RWORK(5) THE STEP SIZE TO BE ATTEMPTED ON THE FIRST STEP. -C THE DEFAULT VALUE IS DETERMINED BY THE KppSolveR. -C -C HMAX RWORK(6) THE MAXIMUM ABSOLUTE STEP SIZE ALLOWED. -C THE DEFAULT VALUE IS INFINITE. -C -C HMIN RWORK(7) THE MINIMUM ABSOLUTE STEP SIZE ALLOWED. -C THE DEFAULT VALUE IS 0. (THIS LOWER BOUND IS NOT -C ENFORCED ON THE FINAL STEP BEFORE REACHING TCRIT -C WHEN ITASK = 4 OR 5.) -C -C MAXORD IWORK(5) THE MAXIMUM ORDER TO BE ALLOWED. THE DEFAULT -C VALUE IS 12 IF METH = 1, AND 5 IF METH = 2. -C IF MAXORD EXCEEDS THE DEFAULT VALUE, IT WILL -C BE REDUCED TO THE DEFAULT VALUE. -C IF MAXORD IS CHANGED DURING THE PROBLEM, IT MAY -C CAUSE THE CURRENT ORDER TO BE REDUCED. -C -C MXSTEP IWORK(6) MAXIMUM NUMBER OF (INTERNALLY DEFINED) STEPS -C ALLOWED DURING ONE CALL TO THE KppSolveR. -C THE DEFAULT VALUE IS 500. -C -C MXHNIL IWORK(7) MAXIMUM NUMBER OF MESSAGES PRINTED (PER PROBLEM) -C WARNING THAT T + H = T ON A STEP (H = STEP SIZE). -C THIS MUST BE POSITIVE TO RESULT IN A NON-DEFAULT -C VALUE. THE DEFAULT VALUE IS 10. -C---------------------------------------------------------------------- -C OPTIONAL OUTPUTS. -C -C AS OPTIONAL ADDITIONAL OUTPUT FROM ODESSA, THE VARIABLES LISTED -C BELOW ARE QUANTITIES RELATED TO THE PERFORMANCE OF ODESSA -C WHICH ARE AVAILABLE TO THE USER. THESE ARE COMMUNICATED BY WAY OF -C THE WORK ARRAYS, BUT ALSO HAVE INTERNAL MNEMONIC NAMES AS SHOWN. -C EXCEPT WHERE STATED OTHERWISE, ALL OF THESE OUTPUTS ARE DEFINED -C ON ANY SUCCESSFUL RETURN FROM ODESSA, AND ON ANY RETURN WITH -C ISTATE = -1, -2, -4, -5, OR -6. ON AN ILLEGAL INPUT RETURN -C (ISTATE = -3), THEY WILL BE UNCHANGED FROM THEIR EXISTING VALUES -C (IF ANY), EXCEPT POSSIBLY FOR TOLSF, LENRW, AND LENIW. -C ON ANY ERROR RETURN, OUTPUTS RELEVANT TO THE ERROR WILL BE DEFINED, -C AS NOTED BELOW. -C -C NAME LOCATION MEANING -C -C HU RWORK(11) THE STEP SIZE IN T LAST USED (SUCCESSFULLY). -C -C HCUR RWORK(12) THE STEP SIZE TO BE ATTEMPTED ON THE NEXT STEP. -C -C TCUR RWORK(13) THE CURRENT VALUE OF THE INDEPENDENT VARIABLE -C WHICH THE KppSolveR HAS ACTUALLY REACHED, I.E. THE -C CURRENT INTERNAL MESH POINT IN T. ON OUTPUT, TCUR -C WILL ALWAYS BE AT LEAST AS FAR AS THE ARGUMENT -C T, BUT MAY BE FARTHER (IF INTERPOLATION WAS DONE). -C -C TOLSF RWORK(14) A TOLERANCE SCALE FACTOR, GREATER THAN 1.0, -C COMPUTED WHEN A REQUEST FOR TOO MUCH ACCURACY WAS -C DETECTED (ISTATE = -3 IF DETECTED AT THE START OF -C THE PROBLEM, ISTATE = -2 OTHERWISE). IF ITOL IS -C LEFT UNALTERED BUT RTOL AND ATOL ARE UNIFORMLY -C SCALED UP BY A FACTOR OF TOLSF FOR THE NEXT CALL, -C THEN THE KppSolveR IS DEEMED LIKELY TO SUCCEED. -C (THE USER MAY ALSO IGNORE TOLSF AND ALTER THE -C TOLERANCE PARAMETERS IN ANY OTHER WAY APPROPRIATE.) -C -C NST IWORK(11) THE NUMBER OF STEPS TAKEN FOR THE PROBLEM SO FAR. -C -C NFE IWORK(12) THE NUMBER OF F EVALUATIONS FOR THE PROBLEM SO FAR. -C -C NJE IWORK(13) THE NUMBER OF JACOBIAN EVALUATIONS (AND OF MATRIX -C LU DECOMPOSITIONS IF ISOPT = 0) FOR THE PROBLEM SO -C FAR. IF ISOPT = 1, THE NUMBER OF LU DECOMPOSITIONS -C IS EQUAL TO NJE - NSPE (SEE BELOW). -C -C NQU IWORK(14) THE METHOD ORDER LAST USED (SUCCESSFULLY). -C -C NQCUR IWORK(15) THE ORDER TO BE ATTEMPTED ON THE NEXT STEP. -C -C IMXER IWORK(16) THE INDEX OF THE COMPONENT OF LARGEST MAGNITUDE IN -C THE WEIGHTED LOCAL ERROR VECTOR (E(I,J)/EWT(I,J)), -C ON AN ERROR RETURN WITH ISTATE = -4 OR -5. -C -C LENRW IWORK(17) THE LENGTH OF RWORK ACTUALLY REQUIRED. -C THIS IS DEFINED ON NORMAL RETURNS AND ON AN ILLEGAL -C INPUT RETURN FOR INSUFFICIENT STORAGE. -C -C LENIW IWORK(18) THE LENGTH OF IWORK ACTUALLY REQUIRED. -C THIS IS DEFINED ON NORMAL RETURNS AND ON AN ILLEGAL -C INPUT RETURN FOR INSUFFICIENT STORAGE. -C -C NDFE IWORK(19) THE NUMBER OF DF/DP (VECTOR) EVALUATIONS. -C -C NSPE IWORK(20) THE NUMBER OF CALLS TO SUBROUTINE SPRIME. EACH CALL -C TO SPRIME REQUIRES A JACOBIAN EVALUATION, BUT NOT -C AN LU DECOMPOSITION. -C -C THE FOLLOWING ARRAYS ARE SEGMENTS OF THE RWORK AND IWORK ARRAYS -C WHICH MAY ALSO BE OF INTEREST TO THE USER AS OPTIONAL OUTPUTS. -C FOR EACH ARRAY, THE TABLE BELOW GIVES ITS INTERNAL NAME, ITS BASE -C ADDRESS IN RWORK OR IWORK, AND ITS DESCRIPTION. -C -C NAME BASE ADDRESS DESCRIPTION -C -C YH 21 IN RWORK THE NORDSIECK HISTORY ARRAY, OF SIZE NYH BY -C (NQCUR + 1). FOR J = 0,1,...,NQCUR, COLUMN J+1 -C OF YH CONTAINS HCUR**J/FACTORIAL(J) TIMES -C THE J-TH DERIVATIVE OF THE INTERPOLATING -C POLYNOMIAL CURRENTLY REPRESENTING THE SOLUTION, -C EVALUATED AT T = TCUR. -C -C ACOR LENRW-NYH+1 ARRAY OF SIZE NYH USED FOR THE ACCUMULATED -C IN RWORK CORRECTIONS ON EACH STEP, SCALED ON OUTPUT -C TO REPRESENT THE ESTIMATED LOCAL ERROR IN Y -C ON THE LAST STEP. THIS IS THE VECTOR E IN -C THE DESCRIPTION OF THE ERROR CONTROL. -C IT IS DEFINED ONLY ON A SUCCESSFUL RETURN -C FROM ODESSA. -C NRS LENIW-NPAR ARRAY OF SIZE NPAR+1, USED TO STORE THE -C IN IWORK ACCUMULATED NUMBER OF REPEATED STEPS DUE TO -C THE SENSITIVITY ANALYSIS.. -C NRS(1) = TOTAL NUMBER OF REPEATED STEPS, -C NRS(2),... = NUMBER OF REPEATED STEPS DUE TO -C MODEL PARAMETER 1,... -C -C---------------------------------------------------------------------- -C PART II. OTHER ROUTINES CALLABLE. -C -C THE FOLLOWING ARE OPTIONAL CALLS WHICH THE USER MAY MAKE TO -C GAIN ADDITIONAL CAPABILITIES IN CONJUNCTION WITH ODESSA. -C (THE ROUTINES XSETUN AND XSETF ARE DESIGNED TO CONFORM TO THE -C SLATEC ERROR HANDLING PACKAGE.) -C -C FORM OF CALL FUNCTION -C CALL XSETUN(LUN) SET THE LOGICAL UNIT NUMBER, LUN, FOR -C OUTPUT OF MESSAGES FROM ODESSA, IF -C THE DEFAULT IS NOT DESIRED. -C THE DEFAULT VALUE OF LUN IS 6. -C -C CALL XSETF(MFLAG) SET A FLAG TO CONTROL THE PRINTING OF -C MESSAGES BY ODESSA.. -C MFLAG = 0 MEANS DO NOT PRINT. (DANGER.. -C THIS RISKS LOSING VALUABLE INFORMATION.) -C MFLAG = 1 MEANS PRINT (THE DEFAULT). -C -C EITHER OF THE ABOVE CALLS MAY BE MADE AT -C ANY TIME AND WILL TAKE EFFECT IMMEDIATELY. -C -C CALL SVCOM (RSAV, ISAV) STORE IN RSAV AND ISAV THE CONTENTS -C OF THE INTERNAL COMMON BLOCKS USED BY -C ODESSA (SEE PART III BELOW). -C RSAV MUST BE A REAL ARRAY OF LENGTH 222 -C OR MORE, AND ISAV MUST BE AN INTEGER -C ARRAY OF LENGTH 54 OR MORE. -C -C CALL RSCOM (RSAV, ISAV) RESTORE, FROM RSAV AND ISAV, THE CONTENTS -C OF THE INTERNAL COMMON BLOCKS USED BY -C ODESSA. PRESUMES A PRIOR CALL TO SVCOM -C WITH THE SAME ARGUMENTS. -C -C SVCOM AND RSCOM ARE USEFUL IF -C INTERRUPTING A RUN AND RESTARTING -C LATER, OR ALTERNATING BETWEEN TWO OR -C MORE PROBLEMS KppSolveD WITH ODESSA. -C -C CALL INTDY(,,,,,) PROVIDE DERIVATIVES OF Y, OF VARIOUS -C (SEE BELOW) ORDERS, AT A SPECIFIED POINT T, IF -C DESIRED. IT MAY BE CALLED ONLY AFTER -C A SUCCESSFUL RETURN FROM ODESSA. -C -C THE DETAILED INSTRUCTIONS FOR USING INTDY ARE AS FOLLOWS. -C THE FORM OF THE CALL IS.. -C -C CALL INTDY (T, K, RWORK(21), NYH, DKY, IFLAG) -C -C THE INPUT PARAMETERS ARE.. -C -C T = VALUE OF INDEPENDENT VARIABLE WHERE ANSWERS ARE DESIRED -C (NORMALLY THE SAME AS THE T LAST RETURNED BY ODESSA). -C FOR VALID RESULTS, T MUST LIE BETWEEN TCUR - HU AND TCUR. -C (SEE OPTIONAL OUTPUTS FOR TCUR AND HU.) -C K = INTEGER ORDER OF THE DERIVATIVE DESIRED. K MUST SATISFY -C 0 .LE. K .LE. NQCUR, WHERE NQCUR IS THE CURRENT ORDER -C (SEE OPTIONAL OUTPUTS). THE CAPABILITY CORRESPONDING -C TO K = 0, I.E. COMPUTING Y(T), IS ALREADY PROVIDED -C BY ODESSA DIRECTLY. SINCE NQCUR .GE. 1, THE FIRST -C DERIVATIVE DY/DT IS ALWAYS AVAILABLE WITH INTDY. -C RWORK(21) = THE BASE ADDRESS OF THE HISTORY ARRAY YH. -C NYH = COLUMN LENGTH OF YH, EQUAL TO THE TOTAL NUMBER OF -C DEPENDENT VARIABLES. IF ISOPT = 0, NYH = N. IF ISOPT = 1, -C NYH = N * (NPAR + 1). -C -C THE OUTPUT PARAMETERS ARE.. -C -C DKY = A REAL ARRAY OF LENGTH NYH CONTAINING THE COMPUTED VALUE -C OF THE K-TH DERIVATIVE OF Y(T). -C IFLAG = INTEGER FLAG, RETURNED AS 0 IF K AND T WERE LEGAL, -C -1 IF K WAS ILLEGAL, AND -2 IF T WAS ILLEGAL. -C ON AN ERROR RETURN, A MESSAGE IS ALSO WRITTEN. -C---------------------------------------------------------------------- -C PART III. COMMON BLOCKS. -C -C IF ODESSA IS TO BE USED IN AN OVERLAY SITUATION, THE USER -C MUST DECLARE, IN THE PRIMARY OVERLAY, THE VARIABLES IN.. -C (1) THE CALL SEQUENCE TO ODESSA, -C (2) THE THREE INTERNAL COMMON BLOCKS -C /ODE001/ OF LENGTH 258 (219 DOUBLE PRECISION WORDS -C FOLLOWED BY 39 INTEGER WORDS), -C /ODE002/ OF LENGTH 14 (3 DOUBLE PRECISION WORDS FOLLOWED -C BY 11 INTEGER WORDS), -C /EH0001/ OF LENGTH 2 (INTEGER WORDS). -C -C IF ODESSA IS USED ON A SYSTEM IN WHICH THE CONTENTS OF INTERNAL -C COMMON BLOCKS ARE NOT PRESERVED BETWEEN CALLS, THE USER SHOULD -C DECLARE THE ABOVE THREE COMMON BLOCKS IN HIS MAIN PROGRAM TO INSURE -C THAT THEIR CONTENTS ARE PRESERVED. -C -C IF THE SOLUTION OF A GIVEN PROBLEM BY ODESSA IS TO BE INTERRUPTED -C AND THEN LATER CONTINUED, SUCH AS WHEN RESTARTING AN INTERRUPTED RUN -C OR ALTERNATING BETWEEN TWO OR MORE PROBLEMS, THE USER SHOULD SAVE, -C FOLLOWING THE RETURN FROM THE LAST ODESSA CALL PRIOR TO THE -C INTERRUPTION, THE CONTENTS OF THE CALL SEQUENCE VARIABLES AND THE -C INTERNAL COMMON BLOCKS, AND LATER RESTORE THESE VALUES BEFORE THE -C NEXT ODESSA CALL FOR THAT PROBLEM. TO SAVE AND RESTORE THE COMMON -C BLOCKS, USE SUBROUTINES SVCOM AND RSCOM (SEE PART II ABOVE). -C -C---------------------------------------------------------------------- -C PART IV. OPTIONALLY REPLACEABLE KppSolveR ROUTINES. -C -C BELOW ARE DESCRIPTIONS OF TWO ROUTINES IN THE ODESSA PACKAGE WHICH -C RELATE TO THE MEASUREMENT OF ERRORS. EITHER ROUTINE CAN BE -C REPLACED BY A USER-SUPPLIED VERSION, IF DESIRED. HOWEVER, SINCE SUCH -C A REPLACEMENT MAY HAVE A MAJOR IMPACT ON PERFORMANCE, IT SHOULD BE -C DONE ONLY WHEN ABSOLUTELY NECESSARY, AND ONLY WITH GREAT CAUTION. -C (NOTE.. THE MEANS BY WHICH THE PACKAGE VERSION OF A ROUTINE IS -C SUPERSEDED BY THE USER-S VERSION MAY BE SYSTEM-DEPENDENT.) -C -C (A) EWSET. -C THE FOLLOWING SUBROUTINE IS CALLED JUST BEFORE EACH INTERNAL -C INTEGRATION STEP, AND SETS THE ARRAY OF ERROR WEIGHTS, EWT, AS -C DESCRIBED UNDER ITOL/RTOL/ATOL ABOVE.. -C SUBROUTINE EWSET (NYH, ITOL, RTOL, ATOL, YCUR, EWT) -C WHERE NEQ, ITOL, RTOL, AND ATOL ARE AS IN THE ODESSA CALL SEQUENCE, -C YCUR CONTAINS THE CURRENT DEPENDENT VARIABLE VECTOR, AND -C EWT IS THE ARRAY OF WEIGHTS SET BY EWSET. -C -C IF THE USER SUPPLIES THIS SUBROUTINE, IT MUST RETURN IN EWT(I) -C (I = 1,...,NYH) A POSITIVE QUANTITY SUITABLE FOR COMPARING ERRORS -C IN Y(I) TO. THE EWT ARRAY RETURNED BY EWSET IS PASSED TO THE -C VNORM ROUTINE (SEE BELOW), AND ALSO USED BY ODESSA IN THE COMPUTATION -C OF THE OPTIONAL OUTPUT IMXER, THE DIAGONAL JACOBIAN APPROXIMATION, -C AND THE INCREMENTS FOR DIFFERENCE QUOTIENT JACOBIANS. -C -C IN THE USER-SUPPLIED VERSION OF EWSET, IT MAY BE DESIRABLE TO USE -C THE CURRENT VALUES OF DERIVATIVES OF Y. DERIVATIVES UP TO ORDER NQ -C ARE AVAILABLE FROM THE HISTORY ARRAY YH, DESCRIBED ABOVE UNDER -C OPTIONAL OUTPUTS. IN EWSET, YH IS IDENTICAL TO THE YCUR ARRAY, -C EXTENDED TO NQ + 1 COLUMNS WITH A COLUMN LENGTH OF NYH AND SCALE -C FACTORS OF H**J/FACTORIAL(J). ON THE FIRST CALL FOR THE PROBLEM, -C GIVEN BY NST = 0, NQ IS 1 AND H IS TEMPORARILY SET TO 1.0. -C THE QUANTITIES NQ, NYH, H, AND NST CAN BE OBTAINED BY INCLUDING -C IN EWSET THE STATEMENTS.. -C DOUBLE PRECISION H, RLS -C COMMON /ODE001/ RLS(219),ILS(39) -C NQ = ILS(35) -C NYH = ILS(14) -C NST = ILS(36) -C H = RLS(213) -C THUS, FOR EXAMPLE, THE CURRENT VALUE OF DY/DT CAN BE OBTAINED AS -C YCUR(NYH+I)/H (I=1,...,N) (AND THE DIVISION BY H IS -C UNNECESSARY WHEN NST = 0). -C -C (B) VNORM. -C THE FOLLOWING IS A REAL FUNCTION ROUTINE WHICH COMPUTES THE WEIGHTED -C ROOT-MEAN-SQUARE NORM OF A VECTOR V.. -C D = VNORM (LV, V, W) -C WHERE.. -C LV = THE LENGTH OF THE VECTOR, -C V = REAL ARRAY OF LENGTH N CONTAINING THE VECTOR, -C W = REAL ARRAY OF LENGTH N CONTAINING WEIGHTS, -C D = SQRT( (1/N) * SUM(V(I)*W(I))**2 ). -C VNORM IS CALLED WITH LV = N AND WITH W(I) = 1.0/EWT(I), WHERE -C EWT IS AS SET BY SUBROUTINE EWSET. -C -C IF THE USER SUPPLIES THIS FUNCTION, IT SHOULD RETURN A NON-NEGATIVE -C VALUE OF VNORM SUITABLE FOR USE IN THE ERROR CONTROL IN ODESSA. -C NONE OF THE ARGUMENTS SHOULD BE ALTERED BY VNORM. -C FOR EXAMPLE, A USER-SUPPLIED VNORM ROUTINE MIGHT.. -C -SUBSTITUTE A MAX-NORM OF (V(I)*W(I)) FOR THE RMS-NORM, OR -C -IGNORE SOME COMPONENTS OF V IN THE NORM, WITH THE EFFECT OF -C SUPPRESSING THE ERROR CONTROL ON THOSE COMPONENTS OF Y. -C---------------------------------------------------------------------- -C OTHER ROUTINES IN THE ODESSA PACKAGE. -C -C IN ADDITION TO SUBROUTINE ODESSA, THE ODESSA PACKAGE INCLUDES THE -C FOLLOWING SUBROUTINES AND FUNCTION ROUTINES.. -C INTDY COMPUTES AN INTERPOLATED VALUE OF THE Y VECTOR AT T = TOUT. -C STODE IS THE CORE INTEGRATOR, WHICH DOES ONE STEP OF THE -C INTEGRATION AND THE ASSOCIATED ERROR CONTROL. -C STESA MANAGES THE SOLUTION OF THE SENSITIVITY FUNCTIONS. -C CFODE SETS ALL METHOD COEFFICIENTS AND TEST CONSTANTS. -C PREPJ COMPUTES AND PREPROCESSES THE JACOBIAN MATRIX J = DF/DY -C AND THE NEWTON ITERATION MATRIX P = I - H*L0*J. -C IT IS ALSO CALLED BY SPRIME (WITH JOPT = 1) TO JUST -C COMPUTE THE JACOBIAN MATRIX. -C PREPDF COMPUTES THE INHOMOGENEITY MATRIX DF/DP. -C SPRIME DEFINES THE SYSTEM OF SENSITIVITY EQUATIONS. -C SOLSY MANAGES SOLUTION OF LINEAR SYSTEM IN CHORD ITERATION. -C EWSET SETS THE ERROR WEIGHT VECTOR EWT BEFORE EACH STEP. -C VNORM COMPUTES THE WEIGHTED R.M.S. NORM OF A VECTOR. -C SVCOM AND RSCOM ARE USER-CALLABLE ROUTINES TO SAVE AND RESTORE, -C RESPECTIVELY, THE CONTENTS OF THE INTERNAL COMMON BLOCKS. -C DGEFA AND DGESL ARE ROUTINES FROM LINPACK FOR SOLVING FULL -C SYSTEMS OF LINEAR ALGEBRAIC EQUATIONS. -C DGBFA AND DGBSL ARE ROUTINES FROM LINPACK FOR SOLVING BANDED -C LINEAR SYSTEMS. -C DAXPY, DSCAL, IDAMAX, AND DDOT ARE BASIC LINEAR ALGEBRA MODULES -C (BLAS) USED BY THE ABOVE LINPACK ROUTINES. -C D1MACH COMPUTES THE UNIT ROUNDOFF IN A MACHINE-INDEPENDENT MANNER. -C XERR, XSETUN, AND XSETF HANDLE THE PRINTING OF ALL ERROR -C MESSAGES AND WARNINGS. -C NOTE.. VNORM, IDAMAX, DDOT, AND D1MACH ARE FUNCTION ROUTINES. -C ALL THE OTHERS ARE SUBROUTINES. -C -C THE FORTRAN GENERIC INTRINSIC FUNCTIONS USED BY ODESSA ARE.. -C ABS, MAX, MIN, REAL, MOD, SIGN, SQRT, AND WRITE -C -C A BLOCK DATA SUBPROGRAM IS ALSO INCLUDED WITH THE PACKAGE, -C FOR LOADING SOME OF THE VARIABLES IN INTERNAL COMMON. -C -C---------------------------------------------------------------------- -C PART V. GENERAL REMARKS -C -C THIS SECTION HIGHLIGHTS THE BASIC DIFFERENCES BETWEEN THE ORIGINAL -C LSODE PACKAGE AND THE ODESSA MODIFICATION. THIS IS PROVIDED AS A -C SERVICE TO EXPERIENCED LSODE USERS TO EXPEDITE FAMILIARIZATION WITH -C ODESSA. -C -C (A). ORIGINAL SUBROUTINES AND FUNCTIONS. -C -C OF THE ORIGINAL 22 SUBROUTINES AND FUNCTIONS USED IN THE LSODE -C PACKAGE, ALL ARE USED BY ODESSA, WITH THE FOLLOWING HAVING BEEN -C MODIFIED.. -C -C LSODE THE ORIGINAL DRIVER SUBROUTINE FOR THE LSODE PACKAGE IS -C EXTENSIVELY MODIFIED AND RENAMED ODESSA, WHICH NOW -C CONTAINS A CALL TO SPRIME TO ESTABLISH INITIAL CONDITIONS -C FOR THE SENSITIVITY CALCULATIONS. -C -C STODE THE ONE STEP INTEGRATOR IS SLIGHTLY MODIFIED AND RETAINS -C ITS ORIGINAL NAME. IT NOW CONTAINS THE CALL TO STESA, -C AND ALSO CALLS SPRIME IF KFLAG .LE. -3. -C -C PREPJ ALSO NAMED PREPJ IN ODESSA IS SLIGHTLY MODIFIED TO ALLOW -C FOR THE CALCULATION OF JACOBIAN WITH NO PREPROCESSING -C (JOPT = 1). -C -C (B). NEW SUBROUTINES. -C -C IN ADDITION TO THE CHANGES NOTED ABOVE, THREE NEW SUBROUTINES -C HAVE BEEN INTRODUCED (SEE STESA, SPRIME, AND PREPDF AS DESCRIBED -C IN PART IV. ABOVE). -C -C (C). COMMON BLOCKS. -C -C /LS0001/ RETAINS THE SAME LENGTH AND IS RENAMED /ODE001/; -C HOWEVER THE REAL ARRAY ROWNS(209) IS SHORTENED TO A -C LENGTH OF (173) REAL WORDS, ALLOWING THE REMOVAL OF -C TESCO(3,12) WHICH IS NOW PASSED FROM STODE TO STESA. -C IN ADDITION, THE INTEGER ARRAY IOWNS(6) IS SHORTENED -C TO A LENGTH OF (4) INTEGER WORDS, ALLOWING THE REMOVAL -C OF IALTH AND LMAX WHICH ARE NOW PASSED FROM STODE TO -C STESA. -C -C /ODE002/ ADDED COMMON BLOCK FOR VARIABLES IMPORTANT TO -C SENSITIVITY ANALYSIS (SEE PART III. ABOVE). A BLOCK -C DATA PROGRAM IS NOT REQUIRED FOR THIS COMMON BLOCK. -C -C SVCOM,RSCOM THESE TWO SUBROUTINES ARE MODIFIED TO HANDLE -C COMMON BLOCK /ODE002/ AS WELL. -C -C (D). OPTIONAL INPUTS. -C -C THE FULL SET OF OPTIONAL INPUTS AVAILABLE IN LSODE IS ALSO -C AVAILABLE IN ODESSA, WITH THE EXCEPTION THAT THE NUMBER OF ODE'S -C IN THE MODEL (NEQ(1)), MAY NOT BE CHANGED DURING THE PROBLEM. -C IN ODESSA, NYH NOW REFERS TO THE TOTAL NUMBER OF FIRST-ORDER -C ODE'S (MODEL AND SENSITIVITY EQUATIONS) WHICH IS EQUAL TO -C NEQ(1) IF ISOPT = 0, OR NEQ(1)*(NEQ(2)+1) IF ISOPT = 1. -C NEQ(1), NEQ(2), AND NYH ARE NOT ALLOWED TO CHANGE DURING -C THE COURSE OF AN INTEGRATION. -C -C (E). OPTIONAL OUTPUTS. -C -C THE FULL SET OF OPTIONAL OUTPUTS AVAILABLE IN LSODE IS ALSO -C AVAILABLE IN ODESSA. IN ADDITION, IWORK(19) AND IWORK(20) ARE -C LOADED WITH NDFE AND NSPE, RESPECTIVELY, UPON OUTPUT. THE TOTAL -C NUMBER OF LU DECOMPOSITIONS OF THE PROCESSED JACOBIAN IS EQUAL -C TO NJE - NSPE. -C----------------------------------------------------------------------- - SUBROUTINE KPP_ODESSA (F, DF, NEQ, Y, PAR, T, TOUT, - 1 ITOL, RTOL, ATOL, - 1 ITASK, ISTATE, IOPT, RWORK, LRW, IWORK, LIW, JAC, MF) - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - LOGICAL IHIT - EXTERNAL F, DF, JAC, PREPJ, SOLSY, PREPDF - DIMENSION NEQ(*), Y(*), PAR(*), RTOL(*), ATOL(*), IOPT(*), - 1 RWORK(LRW), IWORK(LIW), MORD(2) -C----------------------------------------------------------------------- -C THIS IS THE SEPTEMBER 1, 1986 VERSION OF ODESSA.. -C AN ORDINARY DIFFERENTIAL EQUATION KppSolveR WITH EXPLICIT SIMULTANEOUS -C SENSITIVITY ANALYSIS. -C -C THIS PACKAGE IS A MODIFICATION OF THE AUGUST 13, 1981 VERSION OF -C LSODE.. LIVERMORE KppSolveR FOR ORDINARY DIFFERENTIAL EQUATIONS. -C THIS VERSION IS IN DOUBLE PRECISION. -C -C ODESSA KppSolveS FOR THE FIRST-ORDER SENSITIVITY COEFFICIENTS.. -C DY(I)/DP, FOR A SINGLE PARAMETER, OR, -C DY(I)/DP(J), FOR MULTIPLE PARAMETERS, -C ASSOCIATED WITH A SYSTEM OF ORDINARY DIFFERENTIAL EQUATIONS.. -C DY(T)/DT = F(Y,T;P). -C----------------------------------------------------------------------- -C REFERENCES... -C -C 1. JORGE R. LEIS AND MARK A. KRAMER, THE SIMULTANEOUS SOLUTION AND -C EXPLICIT SENSITIVITY ANALYSIS OF SYSTEMS DESCRIBED BY ORDINARY -C DIFFERENTIAL EQUATIONS, SUBMITTED TO ACM TRANS. MATH. SOFTWARE, -C (1985). -C -C 2. JORGE R. LEIS AND MARK A. KRAMER, ODESSA - AN ORDINARY -C DIFFERENTIAL EQUATION KppSolveR WITH EXPLICIT SIMULTANEOUS -C SENSITIVITY ANALYSIS, SUBMITTED TO ACM TRANS. MATH. SOFTWARE. -C (1985). -C -C 3. ALAN C. HINDMARSH, LSODE AND LSODI, TWO NEW INITIAL VALUE -C ORDINARY DIFFERENTIAL EQUATION KppSolveRS, ACM-SIGNUM NEWSLETTER, -C VOL. 15, NO. 4 (1980), PP. 10-11. -C----------------------------------------------------------------------- -C THE FOLLOWING INTERNAL COMMON BLOCKS CONTAIN -C (A) VARIABLES WHICH ARE LOCAL TO ANY SUBROUTINE BUT WHOSE VALUES MUST -C BE PRESERVED BETWEEN CALLS TO THE ROUTINE (OWN VARIABLES), AND -C (B) VARIABLES WHICH ARE COMMUNICATED BETWEEN SUBROUTINES. -C THE STRUCTURE OF THE BLOCKS ARE AS FOLLOWS.. ALL REAL VARIABLES ARE -C LISTED FIRST, FOLLOWED BY ALL INTEGERS. WITHIN EACH TYPE, THE -C VARIABLES ARE GROUPED WITH THOSE LOCAL TO SUBROUTINE ODESSA FIRST, -C THEN THOSE LOCAL TO SUBROUTINE STODE, AND FINALLY THOSE USED -C FOR COMMUNICATION. THE BLOCKS ARE DECLARED IN SUBROUTINES ODESSA -C INTDY, STODE, STESA, PREPJ, PREPDF, AND SOLSY. GROUPS OF VARIABLES -C ARE REPLACED BY DUMMY ARRAYS IN THE COMMON DECLARATIONS IN ROUTINES -C WHERE THOSE VARIABLES ARE NOT USED. -C----------------------------------------------------------------------- - COMMON /ODE001/ TRET, ROWNS(173), - 1 TESCO(3,12), CCMAX, EL0, H, HMIN, HMXI, HU, RC, TN, UROUND, - 2 ILLIN, INIT, LYH, LEWT, LACOR, LSAVF, LWM, LIWM, - 3 MXSTEP, MXHNIL, NHNIL, NTREP, NSLAST, NYH, IOWNS(4), - 4 IALTH, LMAX, ICF, IERPJ, IERSL, JCUR, JSTART, KFLAG, L, METH, - 5 MITER, MAXORD, MAXCOR, MSBP, MXNCF, N, NQ, NST, NFE, NJE, NQU - COMMON /ODE002/ DUPS, DSMS, DDNS, - 1 NPAR, LDFDP, LNRS, - 2 ISOPT, NSV, NDFE, NSPE, IDF, IERSP, JOPT, KFLAGS - PARAMETER (ZERO=0.0D0,ONE=1.0D0,TWO=2.0D0,FOUR=4.0D0) - DATA MORD(1),MORD(2)/12,5/, MXSTP0/500/, MXHNL0/10/ -C----------------------------------------------------------------------- -C BLOCK A. -C THIS CODE BLOCK IS EXECUTED ON EVERY CALL. -C IT TESTS ISTATE AND ITASK FOR LEGALITY AND BRANCHES APPROPIATELY. -C IF ISTATE .GT. 1 BUT THE FLAG INIT SHOWS THAT INITIALIZATION HAS -C NOT YET BEEN DONE, AN ERROR RETURN OCCURS. -C IF ISTATE = 1 AND TOUT = T, JUMP TO BLOCK G AND RETURN IMMEDIATELY. -C----------------------------------------------------------------------- - IF (ISTATE .LT. 1 .OR. ISTATE .GT. 3) GO TO 601 - IF (ITASK .LT. 1 .OR. ITASK .GT. 5) GO TO 602 - IF (ISTATE .EQ. 1) GO TO 10 - IF (INIT .EQ. 0) GO TO 603 - IF (ISTATE .EQ. 2) GO TO 200 - GO TO 20 - 10 INIT = 0 - IF (TOUT .EQ. T) GO TO 430 - 20 NTREP = 0 -C----------------------------------------------------------------------- -C BLOCK B. -C THE NEXT CODE BLOCK IS EXECUTED FOR THE INITIAL CALL (ISTATE = 1), -C OR FOR A CONTINUATION CALL WITH PARAMETER CHANGES (ISTATE = 3). -C IT CONTAINS CHECKING OF ALL INPUTS AND VARIOUS INITIALIZATIONS. -C -C FIRST CHECK LEGALITY OF THE NON-OPTIONAL INPUTS NEQ, ITOL, IOPT, -C MF, ML, AND MU. -C----------------------------------------------------------------------- - IF (NEQ(1) .LE. 0) GO TO 604 - IF (ISTATE .EQ. 1) GO TO 25 - IF (NEQ(1) .NE. N) GO TO 605 - 25 N = NEQ(1) - IF (ITOL .LT. 1 .OR. ITOL .GT. 4) GO TO 606 - DO 26 I = 1,3 - 26 IF (IOPT(I) .LT. 0 .OR. IOPT(I) .GT. 1) GO TO 607 - ISOPT = IOPT(2) - IDF = IOPT(3) - NYH = N - NSV = 1 - METH = MF/10 - MITER = MF - 10*METH - IF (METH .LT. 1 .OR. METH .GT. 2) GO TO 608 - IF (MITER .LT. 0 .OR. MITER .GT. 5) GO TO 608 - IF (MITER .LE. 3) GO TO 30 - ML = IWORK(1) - MU = IWORK(2) - IF (ML .LT. 0 .OR. ML .GE. N) GO TO 609 - IF (MU .LT. 0 .OR. MU .GE. N) GO TO 610 - 30 IF (ISOPT .EQ. 0) GO TO 32 -C CHECK LEGALITY OF THE NON-OPTIONAL INPUTS ISOPT, NPAR. -C COMPUTE NUMBER OF SOLUTION VECTORS AND TOTAL NUMBER OF EQUATIONS. - IF (NEQ(2) .LE. 0) GO TO 628 - IF (ISTATE .EQ. 1) GO TO 31 - IF (NEQ(2) .NE. NPAR) GO TO 629 - 31 NPAR = NEQ(2) - NSV = NPAR + 1 - NYH = NSV * N - IF (MITER .EQ. 0 .OR. MITER .EQ. 3) GO TO 630 -C NEXT PROCESS AND CHECK THE OPTIONAL INPUTS. -------------------------- - 32 IF (IOPT(1) .EQ. 1) GO TO 40 - MAXORD = MORD(METH) - MXSTEP = MXSTP0 - MXHNIL = MXHNL0 - IF (ISTATE .EQ. 1) H0 = ZERO - HMXI = ZERO - HMIN = ZERO - GO TO 60 - 40 MAXORD = IWORK(5) - IF (MAXORD .LT. 0) GO TO 611 - IF (MAXORD .EQ. 0) MAXORD = 100 - MAXORD = MIN(MAXORD,MORD(METH)) - MXSTEP = IWORK(6) - IF (MXSTEP .LT. 0) GO TO 612 - IF (MXSTEP .EQ. 0) MXSTEP = MXSTP0 - MXHNIL = IWORK(7) - IF (MXHNIL .LT. 0) GO TO 613 - IF (MXHNIL .EQ. 0) MXHNIL = MXHNL0 - IF (ISTATE .NE. 1) GO TO 50 - H0 = RWORK(5) - IF ((TOUT - T)*H0 .LT. ZERO) GO TO 614 - 50 HMAX = RWORK(6) - IF (HMAX .LT. ZERO) GO TO 615 - HMXI = ZERO - IF (HMAX .GT. ZERO) HMXI = ONE/HMAX - HMIN = RWORK(7) - IF (HMIN .LT. ZERO) GO TO 616 -C----------------------------------------------------------------------- -C SET WORK ARRAY POINTERS AND CHECK LENGTHS LRW AND LIW. -C POINTERS TO SEGMENTS OF RWORK AND IWORK ARE NAMED BY PREFIXING L TO -C THE NAME OF THE SEGMENT. E.G., THE SEGMENT YH STARTS AT RWORK(LYH). -C SEGMENTS OF RWORK (IN ORDER) ARE DENOTED YH, WM, EWT, SAVF, ACOR. -C WORK SPACE FOR DFDP IS CONTAINED IN ACOR. -C----------------------------------------------------------------------- - 60 LYH = 21 - LWM = LYH + (MAXORD + 1)*NYH - IF (MITER .EQ. 0) LENWM = 0 - IF (MITER .EQ. 1 .OR. MITER .EQ. 2) LENWM = N*N + 2 - IF (MITER .EQ. 3) LENWM = N + 2 - IF (MITER .GE. 4) LENWM = (2*ML + MU + 1)*N + 2 - LEWT = LWM + LENWM - LSAVF = LEWT + NYH - LACOR = LSAVF + N - LDFDP = LACOR + N - LENRW = LACOR + NYH - 1 - IWORK(17) = LENRW - LIWM = 1 - LENIW = 20 + N - IF (MITER .EQ. 0 .OR. MITER .EQ. 3) LENIW = 20 - LNRS = LENIW + LIWM - IF (ISOPT .EQ. 1) LENIW = LNRS + NPAR - IWORK(18) = LENIW - IF (LENRW .GT. LRW) GO TO 617 - IF (LENIW .GT. LIW) GO TO 618 -C CHECK RTOL AND ATOL FOR LEGALITY. ------------------------------------ - RTOLI = RTOL(1) - ATOLI = ATOL(1) - DO 70 I = 1,NYH - IF (ITOL .GE. 3) RTOLI = RTOL(I) - IF (ITOL .EQ. 2 .OR. ITOL .EQ. 4) ATOLI = ATOL(I) - IF (RTOLI .LT. ZERO) GO TO 619 - IF (ATOLI .LT. ZERO) GO TO 620 - 70 CONTINUE - IF (ISTATE .EQ. 1) GO TO 100 -C IF ISTATE = 3, SET FLAG TO SIGNAL PARAMETER CHANGES TO STODE. -------- - JSTART = -1 - IF (NQ .LE. MAXORD) GO TO 90 -C MAXORD WAS REDUCED BELOW NQ. COPY YH(*,MAXORD+2) INTO SAVF. --------- - DO 80 I = 1,N - 80 RWORK(I+LSAVF-1) = RWORK(I+LWM-1) -C RELOAD WM(1) = RWORK(LWM), SINCE LWM MAY HAVE CHANGED. --------------- - 90 IF (MITER .GT. 0) RWORK(LWM) = SQRT(UROUND) - GO TO 200 -C----------------------------------------------------------------------- -C BLOCK C. -C THE NEXT BLOCK IS FOR THE INITIAL CALL ONLY (ISTATE = 1). -C IT CONTAINS ALL REMAINING INITIALIZATIONS, THE INITIAL CALL TO F, -C THE INITIAL CALL TO SPRIME IF ISOPT = 1, -C AND THE CALCULATION OF THE INITIAL STEP SIZE. -C THE ERROR WEIGHTS IN EWT ARE INVERTED AFTER BEING LOADED. -C----------------------------------------------------------------------- - 100 UROUND = D1MACH(4) - TN = T - IF (ITASK .NE. 4 .AND. ITASK .NE. 5) GO TO 105 - TCRIT = RWORK(1) - IF ((TCRIT - TOUT)*(TOUT - T) .LT. ZERO) GO TO 625 - IF (H0 .NE. ZERO .AND. (T + H0 - TCRIT)*H0 .GT. ZERO) - 1 H0 = TCRIT - T - 105 JSTART = 0 - IF (MITER .GT. 0) RWORK(LWM) = SQRT(UROUND) - NHNIL = 0 - NST = 0 - NJE = 0 - NSLAST = 0 - HU = ZERO - NQU = 0 - CCMAX = 0.3D0 - MAXCOR = 3 - IF (ISOPT .EQ. 1) MAXCOR = 4 - MSBP = 20 - MXNCF = 10 -C INITIAL CALL TO F. (LF0 POINTS TO YH(1,2) AND LOADS IN VALUES). - LF0 = LYH + NYH - CALL F (NEQ, T, Y, PAR, RWORK(LF0)) - NFE = 1 - DUPS = ZERO - DSMS = ZERO - DDNS = ZERO - NDFE = 0 - NSPE = 0 - IF (ISOPT .EQ. 0) GO TO 114 -C INITIALIZE COUNTS FOR REPEATED STEPS DUE TO SENSITIVITY ANALYSIS. - DO 110 J = 1,NSV - 110 IWORK(J + LNRS - 1) = 0 -C LOAD THE INITIAL VALUE VECTOR IN YH. --------------------------------- - 114 DO 115 I = 1,NYH - 115 RWORK(I+LYH-1) = Y(I) -C LOAD AND INVERT THE EWT ARRAY. (H IS TEMPORARILY SET TO ONE.) ------- - NQ = 1 - H = ONE - CALL EWSET (NYH, ITOL, RTOL, ATOL, RWORK(LYH), RWORK(LEWT)) - DO 120 I = 1,NYH - IF (RWORK(I+LEWT-1) .LE. ZERO) GO TO 621 - 120 RWORK(I+LEWT-1) = ONE/RWORK(I+LEWT-1) - IF (ISOPT .EQ. 0) GO TO 125 -C CALL SPRIME TO LOAD FIRST-ORDER SENSITIVITY DERIVATIVES INTO -C REMAINING YH(*,2) POSITIONS. - CALL SPRIME (NEQ, Y, RWORK(LYH), NYH, N, NSV, RWORK(LWM), - 1 IWORK(LIWM), RWORK(LEWT), RWORK(LF0), RWORK(LACOR), - 2 RWORK(LDFDP), PAR, F, JAC, DF, PREPJ, PREPDF) - IF (IERSP .EQ. -1) GO TO 631 - IF (IERSP .EQ. -2) GO TO 632 -C----------------------------------------------------------------------- -C THE CODING BELOW COMPUTES THE STEP SIZE, H0, TO BE ATTEMPTED ON THE -C FIRST STEP, UNLESS THE USER HAS SUPPLIED A VALUE FOR THIS. -C FIRST CHECK THAT TOUT - T DIFFERS SIGNIFICANTLY FROM ZERO. -C A SCALAR TOLERANCE QUANTITY TOL IS COMPUTED, AS MAX(RTOL(I)) -C IF THIS IS POSITIVE, OR MAX(ATOL(I)/ABS(Y(I))) OTHERWISE, ADJUSTED -C SO AS TO BE BETWEEN 100*UROUND AND 1.0E-3. ONLY THE ORIGINAL -C SOLUTION VECTOR IS CONSIDERED IN THIS CALCULATION (ISOPT = 0 OR 1). -C THEN THE COMPUTED VALUE H0 IS GIVEN BY.. -C NEQ -C H0**2 = TOL / ( W0**-2 + (1/NEQ) * SUM ( F(I)/YWT(I) )**2 ) -C 1 -C WHERE W0 = MAX ( ABS(T), ABS(TOUT) ), -C F(I) = I-TH COMPONENT OF INITIAL VALUE OF F, -C YWT(I) = EWT(I)/TOL (A WEIGHT FOR Y(I)). -C THE SIGN OF H0 IS INFERRED FROM THE INITIAL VALUES OF TOUT AND T. -C----------------------------------------------------------------------- - 125 IF (H0 .NE. ZERO) GO TO 180 - TDIST = ABS(TOUT - T) - W0 = MAX(ABS(T),ABS(TOUT)) - IF (TDIST .LT. TWO*UROUND*W0) GO TO 622 - TOL = RTOL(1) - IF (ITOL .LE. 2) GO TO 140 - DO 130 I = 1,N - 130 TOL = MAX(TOL,RTOL(I)) - 140 IF (TOL .GT. ZERO) GO TO 160 - ATOLI = ATOL(1) - DO 150 I = 1,N - IF (ITOL .EQ. 2 .OR. ITOL .EQ. 4) ATOLI = ATOL(I) - AYI = ABS(Y(I)) - IF (AYI .NE. ZERO) TOL = MAX(TOL,ATOLI/AYI) - 150 CONTINUE - 160 TOL = MAX(TOL,100.0D0*UROUND) - TOL = MIN(TOL,0.001D0) - SUM = VNORM (N, RWORK(LF0), RWORK(LEWT)) - SUM = ONE/(TOL*W0*W0) + TOL*SUM**2 - H0 = ONE/SQRT(SUM) - H0 = MIN(H0,TDIST) - H0 = SIGN(H0,TOUT-T) -C ADJUST H0 IF NECESSARY TO MEET HMAX BOUND. --------------------------- - 180 RH = ABS(H0)*HMXI - IF (RH .GT. ONE) H0 = H0/RH -C LOAD H WITH H0 AND SCALE YH(*,2) BY H0. ------------------------------ - H = H0 - DO 190 I = 1,NYH - 190 RWORK(I+LF0-1) = H0*RWORK(I+LF0-1) - GO TO 270 -C----------------------------------------------------------------------- -C BLOCK D. -C THE NEXT CODE BLOCK IS FOR CONTINUATION CALLS ONLY (ISTATE = 2 OR 3) -C AND IS TO CHECK STOP CONDITIONS BEFORE TAKING A STEP. -C----------------------------------------------------------------------- - 200 NSLAST = NST - GO TO (210, 250, 220, 230, 240), ITASK - 210 IF ((TN - TOUT)*H .LT. ZERO) GO TO 250 - CALL INTDY (TOUT, 0, RWORK(LYH), NYH, Y, IFLAG) - IF (IFLAG .NE. 0) GO TO 627 - T = TOUT - GO TO 420 - 220 TP = TN - HU*(ONE + 100.0D0*UROUND) - IF ((TP - TOUT)*H .GT. ZERO) GO TO 623 - IF ((TN - TOUT)*H .LT. ZERO) GO TO 250 - GO TO 400 - 230 TCRIT = RWORK(1) - IF ((TN - TCRIT)*H .GT. ZERO) GO TO 624 - IF ((TCRIT - TOUT)*H .LT. ZERO) GO TO 625 - IF ((TN - TOUT)*H .LT. ZERO) GO TO 245 - CALL INTDY (TOUT, 0, RWORK(LYH), NYH, Y, IFLAG) - IF (IFLAG .NE. 0) GO TO 627 - T = TOUT - GO TO 420 - 240 TCRIT = RWORK(1) - IF ((TN - TCRIT)*H .GT. ZERO) GO TO 624 - 245 HMX = ABS(TN) + ABS(H) - IHIT = ABS(TN - TCRIT) .LE. 100.0D0*UROUND*HMX - IF (IHIT) GO TO 400 - TNEXT = TN + H*(ONE + FOUR*UROUND) - IF ((TNEXT - TCRIT)*H .LE. ZERO) GO TO 250 - H = (TCRIT - TN)*(ONE - FOUR*UROUND) - IF (ISTATE .EQ. 2) JSTART = -2 -C----------------------------------------------------------------------- -C BLOCK E. -C THE NEXT BLOCK IS NORMALLY EXECUTED FOR ALL CALLS AND CONTAINS -C THE CALL TO THE ONE-STEP CORE INTEGRATOR STODE. -C -C THIS IS A LOOPING POINT FOR THE INTEGRATION STEPS. -C -C FIRST CHECK FOR TOO MANY STEPS BEING TAKEN, UPDATE EWT (IF NOT AT -C START OF PROBLEM), CHECK FOR TOO MUCH ACCURACY BEING REQUESTED, AND -C CHECK FOR H BELOW THE ROUNDOFF LEVEL IN T. -C TOLSF IS CALCULATED CONSIDERING ALL SOLUTION VECTORS. -C----------------------------------------------------------------------- - 250 CONTINUE - IF ((NST-NSLAST) .GE. MXSTEP) GO TO 500 - CALL EWSET (NYH, ITOL, RTOL, ATOL, RWORK(LYH), RWORK(LEWT)) - DO 260 I = 1,NYH - IF (RWORK(I+LEWT-1) .LE. ZERO) GO TO 510 - 260 RWORK(I+LEWT-1) = ONE/RWORK(I+LEWT-1) - 270 TOLSF = UROUND*VNORM (NYH, RWORK(LYH), RWORK(LEWT)) - IF (TOLSF .LE. ONE) GO TO 280 - TOLSF = TOLSF*2.0D0 - IF (NST .EQ. 0) GO TO 626 - GO TO 520 - 280 IF (ADDX(TN,H) .NE. TN) GO TO 290 - NHNIL = NHNIL + 1 - IF (NHNIL .GT. MXHNIL) GO TO 290 - CALL XERR ('ODESSA - WARNING..INTERNAL T (=R1) AND H (=R2) ARE', - 1 101, 1, 0, 0, 0, 0, ZERO, ZERO) - CALL XERR ('SUCH THAT IN THE MACHINE, T + H = T ON THE NEXT STEP', - 1 101, 1, 0, 0, 0, 0, ZERO, ZERO) - CALL XERR ('(H = STEP SIZE). KppSolveR WILL CONTINUE ANYWAY', - 1 101, 1, 0, 0, 0, 2, TN, H) - IF (NHNIL .LT. MXHNIL) GO TO 290 - CALL XERR ('ODESSA - ABOVE WARNING HAS BEEN ISSUED I1 TIMES.', - 1 102, 1, 0, 0, 0, 0, ZERO, ZERO) - CALL XERR ('IT WILL NOT BE ISSUED AGAIN FOR THIS PROBLEM', - 1 102, 1, 1, MXHNIL, 0, 0, ZERO,ZERO) - 290 CONTINUE -C----------------------------------------------------------------------- -C CALL STODE(NEQ,Y,YH,NYH,YH,WM,IWM,EWT,SAVF,ACOR,PAR,NRS, -C 1 F,JAC,DF,PREPJ,PREPDF,SOLSY) -C----------------------------------------------------------------------- - CALL STODE (NEQ, Y, RWORK(LYH), NYH, RWORK(LYH), RWORK(LWM), - 1 IWORK(LIWM), RWORK(LEWT), RWORK(LSAVF), RWORK(LACOR), - 2 PAR, IWORK(LNRS), F, JAC, DF, PREPJ, PREPDF, SOLSY) - KGO = 1 - KFLAG - GO TO (300, 530, 540, 633), KGO -C----------------------------------------------------------------------- -C BLOCK F. -C THE FOLLOWING BLOCK HANDLES THE CASE OF A SUCCESSFUL RETURN FROM THE -C CORE INTEGRATOR (KFLAG = 0). TEST FOR STOP CONDITIONS. -C----------------------------------------------------------------------- - 300 INIT = 1 - GO TO (310, 400, 330, 340, 350), ITASK -C ITASK = 1. IF TOUT HAS BEEN REACHED, INTERPOLATE. ------------------- - 310 IF ((TN - TOUT)*H .LT. ZERO) GO TO 250 - CALL INTDY (TOUT, 0, RWORK(LYH), NYH, Y, IFLAG) - T = TOUT - GO TO 420 -C ITASK = 3. JUMP TO EXIT IF TOUT WAS REACHED. ------------------------ - 330 IF ((TN - TOUT)*H .GE. ZERO) GO TO 400 - GO TO 250 -C ITASK = 4. SEE IF TOUT OR TCRIT WAS REACHED. ADJUST H IF NECESSARY. - 340 IF ((TN - TOUT)*H .LT. ZERO) GO TO 345 - CALL INTDY (TOUT, 0, RWORK(LYH), NYH, Y, IFLAG) - T = TOUT - GO TO 420 - 345 HMX = ABS(TN) + ABS(H) - IHIT = ABS(TN - TCRIT) .LE. 100.0D0*UROUND*HMX - IF (IHIT) GO TO 400 - TNEXT = TN + H*(ONE + FOUR*UROUND) - IF ((TNEXT - TCRIT)*H .LE. ZERO) GO TO 250 - H = (TCRIT - TN)*(ONE - FOUR*UROUND) - JSTART = -2 - GO TO 250 -C ITASK = 5. SEE IF TCRIT WAS REACHED AND JUMP TO EXIT. --------------- - 350 HMX = ABS(TN) + ABS(H) - IHIT = ABS(TN - TCRIT) .LE. 100.0D0*UROUND*HMX -C----------------------------------------------------------------------- -C BLOCK G. -C THE FOLLOWING BLOCK HANDLES ALL SUCCESSFUL RETURNS FROM ODESSA. -C IF ITASK .NE. 1, Y IS LOADED FROM YH AND T IS SET ACCORDINGLY. -C ISTATE IS SET TO 2, THE ILLEGAL INPUT COUNTER IS ZEROED, AND THE -C OPTIONAL OUTPUTS ARE LOADED INTO THE WORK ARRAYS BEFORE RETURNING. -C IF ISTATE = 1 AND TOUT = T, THERE IS A RETURN WITH NO ACTION TAKEN, -C EXCEPT THAT IF THIS HAS HAPPENED REPEATEDLY, THE RUN IS TERMINATED. -C----------------------------------------------------------------------- - 400 DO 410 I = 1,NYH - 410 Y(I) = RWORK(I+LYH-1) - T = TN - IF (ITASK .NE. 4 .AND. ITASK .NE. 5) GO TO 420 - IF (IHIT) T = TCRIT - 420 ISTATE = 2 - ILLIN = 0 - RWORK(11) = HU - RWORK(12) = H - RWORK(13) = TN - IWORK(11) = NST - IWORK(12) = NFE - IWORK(13) = NJE - IWORK(14) = NQU - IWORK(15) = NQ - IF (ISOPT .EQ. 0) RETURN - IWORK(19) = NDFE - IWORK(20) = NSPE - RETURN - 430 NTREP = NTREP + 1 - IF (NTREP .LT. 5) RETURN - CALL XERR ('ODESSA -- REPEATED CALLS WITH ISTATE = 1 AND - 1TOUT = T (=R1)', 301, 1, 0, 0, 0, 1, T, ZERO) - GO TO 800 -C----------------------------------------------------------------------- -C BLOCK H. -C THE FOLLOWING BLOCK HANDLES ALL UNSUCCESSFUL RETURNS OTHER THAN -C THOSE FOR ILLEGAL INPUT. FIRST THE ERROR MESSAGE ROUTINE IS CALLED. -C IF THERE WAS AN ERROR TEST OR CONVERGENCE TEST FAILURE, IMXER IS SET. -C THEN Y IS LOADED FROM YH, T IS SET TO TN, AND THE ILLEGAL INPUT -C COUNTER ILLIN IS SET TO 0. THE OPTIONAL OUTPUTS ARE LOADED INTO -C THE WORK ARRAYS BEFORE RETURNING. -C----------------------------------------------------------------------- -C THE MAXIMUM NUMBER OF STEPS WAS TAKEN BEFORE REACHING TOUT. ---------- - 500 CALL XERR ('ODESSA - AT CURRENT T (=R1), MXSTEP (=I1) STEPS', - 1 201, 1, 0, 0, 0, 0, ZERO,ZERO) - CALL XERR ('TAKEN ON THIS CALL BEFORE REACHING TOUT', - 1 201, 1, 1, MXSTEP, 0, 1, TN, ZERO) - ISTATE = -1 - GO TO 580 -C EWT(I) .LE. 0.0 FOR SOME I (NOT AT START OF PROBLEM). ---------------- - 510 EWTI = RWORK(LEWT+I-1) - CALL XERR ('ODESSA - AT T (=R1), EWT(I1) HAS BECOME R2 .LE. 0.', - 1 202, 1, 1, I, 0, 2, TN, EWTI) - ISTATE = -6 - GO TO 580 -C TOO MUCH ACCURACY REQUESTED FOR MACHINE PRECISION. ------------------- - 520 CALL XERR ('ODESSA - AT T (=R1), TOO MUCH ACCURACY REQUESTED', - 1 203, 1, 0, 0, 0, 0, ZERO,ZERO) - CALL XERR ('FOR PRECISION OF MACHINE.. SEE TOLSF (=R2)', - 1 203, 1, 0, 0, 0, 2, TN, TOLSF) - RWORK(14) = TOLSF - ISTATE = -2 - GO TO 580 -C KFLAG = -1. ERROR TEST FAILED REPEATEDLY OR WITH ABS(H) = HMIN. ----- - 530 CALL XERR ('ODESSA - AT T(=R1) AND STEP SIZE H(=R2), THE ERROR', - 1 204, 1, 0, 0, 0, 0, ZERO, ZERO) - CALL XERR ('TEST FAILED REPEATEDLY OR WITH ABS(H) = HMIN', - 1 204, 1, 0, 0, 0, 2, TN, H) - ISTATE = -4 - GO TO 560 -C KFLAG = -2. CONVERGENCE FAILED REPEATEDLY OR WITH ABS(H) = HMIN. ---- - 540 CALL XERR ('ODESSA - AT T (=R1) AND STEP SIZE H (=R2), THE', - 1 205, 1, 0, 0, 0, 0, ZERO,ZERO) - CALL XERR ('CORRECTOR CONVERGENCE FAILED REPEATEDLY', - 1 205, 1, 0, 0, 0, 0, ZERO,ZERO) - CALL XERR ('OR WITH ABS(H) = HMIN', - 1 205, 1, 0, 0, 0, 2, TN, H) - ISTATE = -5 -C COMPUTE IMXER IF RELEVANT. ------------------------------------------- - 560 BIG = ZERO - IMXER = 1 - DO 570 I = 1,NYH - SIZE = ABS(RWORK(I+LACOR-1)*RWORK(I+LEWT-1)) - IF (BIG .GE. SIZE) GO TO 570 - BIG = SIZE - IMXER = I - 570 CONTINUE - IWORK(16) = IMXER -C SET Y VECTOR, T, ILLIN, AND OPTIONAL OUTPUTS. ------------------------ - 580 DO 590 I = 1,NYH - 590 Y(I) = RWORK(I+LYH-1) - T = TN - ILLIN = 0 - RWORK(11) = HU - RWORK(12) = H - RWORK(13) = TN - IWORK(11) = NST - IWORK(12) = NFE - IWORK(13) = NJE - IWORK(14) = NQU - IWORK(15) = NQ - IF (ISOPT .EQ. 0) RETURN - IWORK(19) = NDFE - IWORK(20) = NSPE - RETURN -C----------------------------------------------------------------------- -C BLOCK I. -C THE FOLLOWING BLOCK HANDLES ALL ERROR RETURNS DUE TO ILLEGAL INPUT -C (ISTATE = -3), AS DETECTED BEFORE CALLING THE CORE INTEGRATOR. -C FIRST THE ERROR MESSAGE ROUTINE IS CALLED. THEN IF THERE HAVE BEEN -C 5 CONSECUTIVE SUCH RETURNS JUST BEFORE THIS CALL TO THE KppSolveR, -C THE RUN IS HALTED. -C----------------------------------------------------------------------- - 601 CALL XERR ('ODESSA - ISTATE (=I1) ILLEGAL', - 1 1, 1, 1, ISTATE, 0, 0, ZERO,ZERO) - GO TO 700 - 602 CALL XERR ('ODESSA - ITASK (=I1) ILLEGAL', - 1 2, 1, 1, ITASK, 0, 0, ZERO,ZERO) - GO TO 700 - 603 CALL XERR ('ODESSA - ISTATE .GT. 1 BUT ODESSA NOT INITIALIZED', - 1 3, 1, 0, 0, 0, 0, ZERO,ZERO) - GO TO 700 - 604 CALL XERR ('ODESSA - NEQ (=I1) .LT. 1', - 1 4, 1, 1, NEQ(1), 0, 0, ZERO,ZERO) - GO TO 700 - 605 CALL XERR ('ODESSA - ISTATE = 3 AND NEQ CHANGED. (I1 TO I2)', - 1 5, 1, 2, N, NEQ(1), 0, ZERO,ZERO) - GO TO 700 - 606 CALL XERR ('ODESSA - ITOL (=I1) ILLEGAL', - 1 6, 1, 1, ITOL, 0, 0, ZERO,ZERO) - GO TO 700 - 607 CALL XERR ('ODESSA - IOPT (=I1) ILLEGAL', - 1 7, 1, 1, IOPT, 0, 0, ZERO,ZERO) - GO TO 700 - 608 CALL XERR('ODESSA - MF (=I1) ILLEGAL', - 1 8, 1, 1, MF, 0, 0, ZERO,ZERO) - GO TO 700 - 609 CALL XERR('ODESSA - ML (=I1) ILLEGAL.. .LT.0 OR .GE.NEQ (=I2)', - 1 9, 1, 2, ML, NEQ(1), 0, ZERO,ZERO) - GO TO 700 - 610 CALL XERR('ODESSA - MU (=I1) ILLEGAL.. .LT.0 OR .GE.NEQ (=I2)', - 1 10, 1, 2, MU, NEQ(1), 0, ZERO,ZERO) - GO TO 700 - 611 CALL XERR('ODESSA - MAXORD (=I1) .LT. 0', - 1 11, 1, 1, MAXORD, 0, 0, ZERO,ZERO) - GO TO 700 - 612 CALL XERR('ODESSA - MXSTEP (=I1) .LT. 0', - 1 12, 1, 1, MXSTEP, 0, 0, ZERO,ZERO) - GO TO 700 - 613 CALL XERR('ODESSA - MXHNIL (=I1) .LT. 0', - 1 13, 1, 1, MXHNIL, 0, 0, ZERO,ZERO) - GO TO 700 - 614 CALL XERR('ODESSA - TOUT (=R1) BEHIND T (=R2)', - 1 14, 1, 0, 0, 0, 2, TOUT, T) - CALL XERR('INTEGRATION DIRECTION IS GIVEN BY H0 (=R1)', - 1 14, 1, 0, 0, 0, 1, H0, ZERO) - GO TO 700 - 615 CALL XERR('ODESSA - HMAX (=R1) .LT. 0.0', - 1 15, 1, 0, 0, 0, 1, HMAX, ZERO) - GO TO 700 - 616 CALL XERR('ODESSA - HMIN (=R1) .LT. 0.0', - 1 16, 1, 0, 0, 0, 1, HMIN, ZERO) - GO TO 700 - 617 CALL XERR('ODESSA - RWORK LENGTH NEEDED, LENRW (=I1), EXCEEDS - 1 LRW (=I2)', 17, 1, 2, LENRW, LRW, 0, ZERO,ZERO) - GO TO 700 - 618 CALL XERR('ODESSA - IWORK LENGTH NEEDED, LENIW (=I1), EXCEEDS - 1 LIW (=I2)', 18, 1, 2, LENIW, LIW, 0, ZERO,ZERO) - GO TO 700 - 619 CALL XERR('ODESSA - RTOL(I1) IS R1 .LT. 0.0', - 1 19, 1, 1, I, 0, 1, RTOLI, ZREO) - GO TO 700 - 620 CALL XERR('ODESSA - ATOL(I1) IS R1 .LT. 0.0', - 1 20, 1, 1, I, 0, 1, ATOLI, ZERO) - GO TO 700 -* - 621 EWTI = RWORK(LEWT+I-1) - CALL XERR('ODESSA - EWT(I1) IS R1 .LE. 0.0', - 1 21, 1, 1, I, 0, 1, EWTI, ZERO) - GO TO 700 - 622 CALL XERR('ODESSA - TOUT (=R1) TOO CLOSE TO T(=R2) TO START - 1 INTEGRATION', 22, 1, 0, 0, 0, 2, TOUT, T) - GO TO 700 - 623 CALL XERR('ODESSA - ITASK = I1 AND TOUT (=R1) BEHIND TCUR - HU - 1 (= R2)', 23, 1, 1, ITASK, 0, 2, TOUT, TP) - GO TO 700 - 624 CALL XERR('ODESSA - ITASK = 4 OR 5 AND TCRIT (=R1) BEHIND TCUR - 1 (=R2)', 24, 1, 0, 0, 0, 2, TCRIT, TN) - GO TO 700 - 625 CALL XERR('ODESSA - ITASK = 4 OR 5 AND TCRIT (=R1) BEHIND TOUT - 1 (=R2)', 25, 1, 0, 0, 0, 2, TCRIT, TOUT) - GO TO 700 - 626 CALL XERR('ODESSA - AT START OF PROBLEM, TOO MUCH ACCURACY', - 1 26, 1, 0, 0, 0, 0, ZERO,ZERO) - CALL XERR('REQUESTED FOR PRECISION OF MACHINE. SEE TOLSF (=R1)', - 1 26, 1, 0, 0, 0, 1, TOLSF, ZERO) - RWORK(14) = TOLSF - GO TO 700 - 627 CALL XERR('ODESSA - TROUBLE FROM INTDY. ITASK = I1, TOUT = R1', - 1 27, 1, 1, ITASK, 0, 1, TOUT, ZERO) - GO TO 700 -C ERROR STATEMENTS ASSOCIATED WITH SENSITIVITY ANALYSIS. - 628 CALL XERR('ODESSA - NPAR (=I1) .LT. 1', - 1 28, 1, 1, NPAR, 0, 0, ZERO,ZERO) - GO TO 700 - 629 CALL XERR('ODESSA - ISTATE = 3 AND NPAR CHANGED (I1 TO I2)', - 1 29, 1, 2, NP, NPAR, 0, ZERO,ZERO) - GO TO 700 - 630 CALL XERR('ODESSA - MITER (=I1) ILLEGAL', - 1 30, 1, 1, MITER, 0, 0, ZERO,ZERO) - GO TO 700 - 631 CALL XERR('ODESSA - TROUBLE IN SPRIME (IERPJ)', - 1 31, 1, 0, 0, 0, 0, ZERO,ZERO) - GO TO 700 - 632 CALL XERR('ODESSA - TROUBLE IN SPRIME (MITER)', - 1 32, 1, 0, 0, 0, 0, ZERO,ZERO) - GO TO 700 - 633 CALL XERR('ODESSA - FATAL ERROR IN STODE (KFLAG = -3)', - 1 33, 2, 0, 0, 0, 0, ZERO,ZERO) - GO TO 801 -C - 700 IF (ILLIN .EQ. 5) GO TO 710 - ILLIN = ILLIN + 1 - ISTATE = -3 - RETURN - 710 CALL XERR('ODESSA - REPEATED OCCURRENCES OF ILLEGAL INPUT', - 1 302, 1, 0, 0, 0, 0, ZERO,ZERO) -C - 800 CALL XERR('ODESSA - RUN ABORTED.. APPARENT INFINITE LOOP', - 1 303, 2, 0, 0, 0, 0, ZERO,ZERO) - RETURN - 801 CALL XERR('ODESSA - RUN ABORTED', - 1 304, 2, 0, 0, 0, 0, ZERO,ZERO) - RETURN -C-------------------- END OF SUBROUTINE ODESSA ------------------------- - END - DOUBLE PRECISION FUNCTION ADDX(A,B) - DOUBLE PRECISION A,B -C -C THIS FUNCTION IS NECESSARY TO FORCE OPTIMIZING COMPILERS TO -C EXECUTE AND STORE A SUM, FOR SUCCESSFUL EXECUTION OF THE -C TEST A + B = B. -C - ADDX = A + B - RETURN -C-------------------- END OF FUNCTION SUM ------------------------------ - END - SUBROUTINE SPRIME (NEQ, Y, YH, NYH, NROW, NCOL, WM, IWM, - 1 EWT, SAVF, FTEM, DFDP, PAR, F, JAC, DF, PJAC, PDF) - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - DIMENSION NEQ(*), Y(*), YH(NROW,NCOL,*), WM(*), IWM(*), - 1 EWT(*), SAVF(*), FTEM(*), DFDP(NROW,*), PAR(*) - EXTERNAL F, JAC, DF, PJAC, PDF - PARAMETER (ONE=1.0D0,ZERO=0.0D0) - COMMON /ODE001/ ROWND, ROWNS(173), - 1 RDUM1(37),EL0, H, RDUM2(6), - 2 IOWND1(14), IOWNS(4), - 3 IDUM1(3), IERPJ, IDUM2(6), - 4 MITER, IDUM3(4), N, IDUM4(5) - COMMON /ODE002/ RDUM3(3), - 1 IOWND2(3), IDUM5, NSV, IDUM6, NSPE, IDUM7, IERSP, JOPT, IDUM8 -C----------------------------------------------------------------------- -C SPRIME IS CALLED BY ODESSA TO INITIALIZE THE YH ARRAY. IT IS ALSO -C CALLED BY STODE TO REEVALUATE FIRST ORDER DERIVATIVES WHEN KFLAG -C .LE. -3. SPRIME COMPUTES THE FIRST DERIVATIVES OF THE SENSITIVITY -C COEFFICIENTS WITH RESPECT TO THE INDEPENDENT VARIABLE T... -C -C SPRIME = D(DY/DP)/DT = JAC*DY/DP + DF/DP -C WHERE JAC = JACOBIAN MATRIX -C DY/DP = SENSITIVITY MATRIX -C DF/DP = INHOMOGENEITY MATRIX -C THIS ROUTINE USES THE COMMON VARIABLES EL0, H, IERPJ, MITER, N, -C NSV, NSPE, IERSP, JOPT -C----------------------------------------------------------------------- -C CALL PREPJ WITH JOPT = 1. -C IF MITER = 2 OR 5, EL0 IS TEMPORARILY SET TO -1.0 AND H IS -C TEMPORARILY SET TO 1.0D0. -C----------------------------------------------------------------------- - NSPE = NSPE + 1 - JOPT = 1 - IF (MITER .EQ. 1 .OR. MITER .EQ. 4) GO TO 10 - HTEMP = H - ETEMP = EL0 - H = ONE - EL0 = -ONE - 10 CALL PJAC (NEQ, Y, YH, NYH, WM, IWM, EWT, SAVF, FTEM, - 1 PAR, F, JAC, JOPT) - IF (IERPJ .NE. 0) GO TO 300 - JOPT = 0 - IF (MITER .EQ. 1 .OR. MITER .EQ. 4) GO TO 20 - H = HTEMP - EL0 = ETEMP -C----------------------------------------------------------------------- -C CALL PREPDF AND LOAD DFDP(*,JPAR). -C----------------------------------------------------------------------- - 20 DO 30 J = 2,NSV - JPAR = J - 1 - CALL PDF (NEQ, Y, WM, SAVF, FTEM, DFDP(1,JPAR), PAR, - 1 F, DF, JPAR) - 30 CONTINUE -C----------------------------------------------------------------------- -C COMPUTE JAC*DY/DP AND STORE RESULTS IN YH(*,*,2). -C----------------------------------------------------------------------- - GO TO (40,40,310,100,100) MITER -C THE JACOBIAN IS FULL.------------------------------------------------ -C FOR EACH ROW OF THE JACOBIAN.. -C 40 DO 70 IROW = 1,N -C AND EACH COLUMN OF THE SENSITIVITY MATRIX.. -C DO 60 J = 2,NSV -C SUM = ZERO -C TAKE THE VECTOR DOT PRODUCT.. -C DO 50 I = 1,N -C IPD = IROW + N*(I-1) + 2 -C SUM = SUM + WM(IPD)*YH(I,J,1) -C 50 CONTINUE -C YH(IROW,J,2) = SUM -C 60 CONTINUE -C 70 CONTINUE - 40 CONTINUE -C FOR EACH COLUMN OF THE SENSITIVITY MATRIX.. - DO 60 J = 2,NSV - CALL Jac_SP_Vec( WM(3), YH(1,J,1), YH(1,J,2) ) - 60 CONTINUE - GO TO 200 -C THE JACOBIAN IS BANDED.----------------------------------------------- - 100 ML = IWM(1) - MU = IWM(2) - ICOUNT = 1 - MBAND = ML + MU + 1 - MEBAND = MBAND + ML - NMU = N - MU - ML1 = ML + 1 -C FOR EACH ROW OF THE JACOBIAN.. - DO 160 IROW = 1,N - IF (IROW .GT. ML1) GO TO 110 - IPD = MBAND + IROW + 1 - IYH = 1 - LBAND = MU + IROW - GO TO 120 - 110 ICOUNT = ICOUNT + 1 - IPD = ICOUNT*MEBAND + 2 - IYH = IYH + 1 - LBAND = LBAND - 1 - IF (IROW .LE. NMU) LBAND = MBAND -C AND EACH COLUMN OF THE SENSITIVITY MATRIX.. - 120 DO 150 J = 2,NSV - SUM = ZERO - I1 = IPD - I2 = IYH -C TAKE THE VECTOR DOT PRODUCT. - DO 140 I = 1,LBAND - SUM = SUM + WM(I1)*YH(I2,J,1) - I1 = I1 + MEBAND - 1 - I2 = I2 + 1 - 140 CONTINUE - YH(IROW,J,2) = SUM - 150 CONTINUE - 160 CONTINUE -C----------------------------------------------------------------------- -C ADD THE INHOMOGENEITY TERM, I.E., ADD DFDP(*,JPAR) TO YH(*,JPAR+1,2). -C----------------------------------------------------------------------- - 200 DO 220 J = 2,NSV - JPAR = J - 1 - DO 210 I = 1,N - YH(I,J,2) = YH(I,J,2) + DFDP(I,JPAR) - 210 CONTINUE - 220 CONTINUE - RETURN -C----------------------------------------------------------------------- -C ERROR RETURNS. -C----------------------------------------------------------------------- - 300 IERSP = -1 - RETURN - 310 IERSP = -2 - RETURN -C------------------------END OF SUBROUTINE SPRIME----------------------- - END - SUBROUTINE PREPJ (NEQ, Y, YH, NYH, WM, IWM, EWT, SAVF, FTEM, - 1 PAR, FUNC_CHEM, JAC, JOPT) -C IMPLICIT DOUBLE PRECISION (A-H,O-Z) - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Sparse.h' - DIMENSION NEQ(*), Y(*), YH(NYH,*), WM(*), IWM(*), EWT(*), - 1 SAVF(*), FTEM(*), PAR(*) - EXTERNAL FUNC_CHEM, JAC - PARAMETER (ZERO=0.0D0,ONE=1.0D0) - COMMON /ODE001/ ROWND, ROWNS(173), - 2 RDUM1(37), EL0, H, RDUM2(4), TN, UROUND, - 3 IOWND(14), IOWNS(4), - 4 IDUM1(3), IERPJ, IDUM2, JCUR, IDUM3(4), - 5 MITER, IDUM4(4), N, IDUM5(2), NFE, NJE, IDUM6 -C----------------------------------------------------------------------- -C PREPJ IS CALLED BY STODE TO COMPUTE AND PROCESS THE MATRIX -C P = I - H*EL(1)*J , WHERE J IS AN APPROXIMATION TO THE JACOBIAN. -C IF ISOPT = 1, PREPJ IS ALSO CALLED BY SPRIME WITH JOPT = 1. -C HERE J IS COMPUTED BY THE USER-SUPPLIED ROUTINE JAC IF -C MITER = 1 OR 4, OR BY FINITE DIFFERENCING IF MITER = 2, 3, OR 5. -C IF MITER = 3, A DIAGONAL APPROXIMATION TO J IS USED. -C J IS STORED IN WM AND REPLACED BY P. IF MITER .NE. 3, P IS THEN -C SUBJECTED TO LU DECOMPOSITION (JOPT = 0) IN PREPARATION FOR LATER -C SOLUTION OF LINEAR SYSTEMS WITH P AS COEFFICIENT MATRIX. THIS IS -C DONE BY DGEFA IF MITER = 1 OR 2, AND BY DGBFA IF MITER = 4 OR 5. -C -C IN ADDITION TO VARIABLES DESCRIBED PREVIOUSLY, COMMUNICATION -C WITH PREPJ USES THE FOLLOWING.. -C Y = ARRAY CONTAINING PREDICTED VALUES ON ENTRY. -C FTEM = WORK ARRAY OF LENGTH N (ACOR IN STODE). -C SAVF = ARRAY CONTAINING F EVALUATED AT PREDICTED Y. -C WM = REAL WORK SPACE FOR MATRICES. ON OUTPUT IT CONTAINS THE -C INVERSE DIAGONAL MATRIX IF MITER = 3 AND THE LU DECOMPOSITION -C OF P IF MITER IS 1, 2 , 4, OR 5. -C STORAGE OF MATRIX ELEMENTS STARTS AT WM(3). -C WM ALSO CONTAINS THE FOLLOWING MATRIX-RELATED DATA.. -C WM(1) = SQRT(UROUND), USED IN NUMERICAL JACOBIAN INCREMENTS. -C WM(2) = H*EL0, SAVED FOR LATER USE IF MITER = 3. -C IWM = INTEGER WORK SPACE CONTAINING PIVOT INFORMATION, STARTING AT -C IWM(21), IF MITER IS 1, 2, 4, OR 5. IWM ALSO CONTAINS BAND -C PARAMETERS ML = IWM(1) AND MU = IWM(2) IF MITER IS 4 OR 5. -C EL0 = EL(1) (INPUT). -C IERPJ = OUTPUT ERROR FLAG, = 0 IF NO TROUBLE, .GT. 0 IF -C P MATRIX FOUND TO BE SINGULAR. -C JCUR = OUTPUT FLAG = 1 TO INDICATE THAT THE JACOBIAN MATRIX -C (OR APPROXIMATION) IS NOW CURRENT. -C JOPT = INPUT JACOBIAN OPTION, = 1 IF JAC IS DESIRED ONLY. -C THIS ROUTINE ALSO USES THE COMMON VARIABLES EL0, H, TN, UROUND, -C IERPJ, JCUR, MITER, N, NFE, AND NJE. -C----------------------------------------------------------------------- - NJE = NJE + 1 - IERPJ = 0 - JCUR = 1 - HL0 = H*EL0 - GO TO (100, 200, 300, 400, 500), MITER -C IF MITER = 1, CALL JAC AND MULTIPLY BY SCALAR. ----------------------- -C 100 LENP = N*N - 100 LENP = LU_NONZERO - DO 110 I = 1,LU_NONZERO - 110 WM(I+2) = ZERO - CALL JAC (NEQ, TN, Y, PAR, 0, 0, WM(3), N) - IF (JOPT .EQ. 1) RETURN - CON = -HL0 - DO 120 I = 1,LU_NONZERO - 120 WM(I+2) = WM(I+2)*CON - GO TO 240 -C IF MITER = 2, MAKE N CALLS TO F TO APPROXIMATE J. -------------------- - 200 FAC = VNORM (N, SAVF, EWT) - R0 = 1000.0D0*ABS(H)*UROUND*REAL(N)*FAC - IF (R0 .EQ. ZERO) R0 = ONE - SRUR = WM(1) - J1 = 2 - DO 230 J = 1,N - YJ = Y(J) - R = MAX(SRUR*ABS(YJ),R0/EWT(J)) - Y(J) = Y(J) + R - FAC = -HL0/R - CALL FUNC_CHEM (NEQ, TN, Y, PAR, FTEM) - DO 220 I = 1,N - 220 WM(I+J1) = (FTEM(I) - SAVF(I))*FAC - Y(J) = YJ - J1 = J1 + N - 230 CONTINUE - NFE = NFE + N - IF (JOPT .EQ. 1) RETURN -C ADD IDENTITY MATRIX. ------------------------------------------------- - 240 J = 3 -C DO 250 I = 1,N -C WM(J) = WM(J) + ONE -C 250 J = J + (N + 1) - DO 250 I = 1,NVAR - 250 WM(2+LU_DIAG(I)) = WM(2+LU_DIAG(I)) + ONE -C DO LU DECOMPOSITION ON P. -------------------------------------------- -C CALL DGEFA (WM(3), N, N, IWM(21), IER) - CALL KppDecomp (WM(3), IER) - IF (IER .NE. 0) THEN - IERPJ = 1 - PRINT*,"Singular Matrix" - STOP - END IF - RETURN -C IF MITER = 3, CONSTRUCT A DIAGONAL APPROXIMATION TO J AND P. --------- - 300 WM(2) = HL0 - R = EL0*0.1D0 - DO 310 I = 1,N - 310 Y(I) = Y(I) + R*(H*SAVF(I) - YH(I,2)) - CALL FUNC_CHEM (NEQ, TN, Y, PAR, WM(3)) - NFE = NFE + 1 - DO 320 I = 1,N - R0 = H*SAVF(I) - YH(I,2) - DI = 0.1D0*R0 - H*(WM(I+2) - SAVF(I)) - WM(I+2) = 1.0D0 - IF (ABS(R0) .LT. UROUND/EWT(I)) GO TO 320 - IF (ABS(DI) .EQ. ZERO) GO TO 330 - WM(I+2) = 0.1D0*R0/DI - 320 CONTINUE - RETURN - 330 IERPJ = 1 - RETURN -C IF MITER = 4, CALL JAC AND MULTIPLY BY SCALAR. ----------------------- - 400 ML = IWM(1) - MU = IWM(2) - ML3 = ML + 3 - MBAND = ML + MU + 1 - MEBAND = MBAND + ML - LENP = MEBAND*N - DO 410 I = 1,LENP - 410 WM(I+2) = ZERO - CALL JAC (NEQ, TN, Y, PAR, ML, MU, WM(ML3), MEBAND) - IF (JOPT .EQ. 1) RETURN - CON = -HL0 - DO 420 I = 1,LENP - 420 WM(I+2) = WM(I+2)*CON - GO TO 570 -C IF MITER = 5, MAKE MBAND CALLS TO F TO APPROXIMATE J. ---------------- - 500 ML = IWM(1) - MU = IWM(2) - MBAND = ML + MU + 1 - MBA = MIN(MBAND,N) - MEBAND = MBAND + ML - MEB1 = MEBAND - 1 - SRUR = WM(1) - FAC = VNORM (N, SAVF, EWT) - R0 = 1000.0D0*ABS(H)*UROUND*REAL(N)*FAC - IF (R0 .EQ. ZERO) R0 = ONE - DO 560 J = 1,MBA - DO 530 I = J,N,MBAND - YI = Y(I) - R = MAX(SRUR*ABS(YI),R0/EWT(I)) - 530 Y(I) = Y(I) + R - CALL FUNC_CHEM (NEQ, TN, Y, PAR, FTEM) - DO 550 JJ = J,N,MBAND - Y(JJ) = YH(JJ,1) - YJJ = Y(JJ) - R = MAX(SRUR*ABS(YJJ),R0/EWT(JJ)) - FAC = -HL0/R - I1 = MAX(JJ-MU,1) - I2 = MIN(JJ+ML,N) - II = JJ*MEB1 - ML + 2 - DO 540 I = I1,I2 - 540 WM(II+I) = (FTEM(I) - SAVF(I))*FAC - 550 CONTINUE - 560 CONTINUE - NFE = NFE + MBA - IF (JOPT .EQ. 1) RETURN -C ADD IDENTITY MATRIX. ------------------------------------------------- - 570 II = MBAND + 2 - DO 580 I = 1,N - WM(II) = WM(II) + ONE - 580 II = II + MEBAND -C DO LU DECOMPOSITION OF P. -------------------------------------------- - CALL DGBFA (WM(3), MEBAND, N, ML, MU, IWM(21), IER) - IF (IER .NE. 0) IERPJ = 1 - RETURN -C----------------------- END OF SUBROUTINE PREPJ ----------------------- - END - SUBROUTINE PREPDF (NEQ, Y, SRUR, SAVF, FTEM, DFDP, PAR, - 1 F, DF, JPAR) - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - EXTERNAL F, DF - DIMENSION NEQ(*), Y(*), SAVF(*), FTEM(*), DFDP(*), PAR(*) - COMMON /ODE001/ ROWND, ROWNS(173), - 1 RDUM1(43), TN, RDUM2, - 2 IOWND1(14), IOWNS(4), - 3 IDUM1(10), MITER, IDUM2(4), N, IDUM3(2), NFE, IDUM4(2) - COMMON /ODE002/ RDUM3(3), - 1 IOWND2(3), IDUM5(2), NDFE, IDUM6, IDF, IDUM7(3) -C----------------------------------------------------------------------- -C PREPDF IS CALLED BY SPRIME AND STESA TO COMPUTE THE INHOMOGENEITY -C VECTORS DF(I)/DP(JPAR). HERE DF/DP IS COMPUTED BY THE USER-SUPPLIED -C ROUTINE DF IF IDF = 1, OR BY FINITE DIFFERENCING IF IDF = 0. -C -C IN ADDITION TO VARIABLES DESCRIBED PREVIOUSLY, COMMUNICATION WITH -C PREPDF USES THE FOLLOWING.. -C Y = REAL ARRAY OF LENGTH NYH CONTAINING DEPENDENT VARIABLES. -C PREPDF USES ONLY THE FIRST N ENTRIES OF Y(*). -C SRUR = SQRT(UROUND) (= WM(1)). -C SAVF = REAL ARRAY OF LENGTH N CONTAINING DERIVATIVES DY/DT. -C FTEM = REAL ARRAY OF LENGTH N USED TO TEMPORARILY STORE DY/DT FOR -C NUMERICAL DIFFERENTIATION. -C DFDP = REAL ARRAY OF LENGTH N USED TO STORE DF(I)/DP(JPAR), I = 1,N. -C PAR = REAL ARRAY OF LENGTH NPAR CONTAINING EQUATION PARAMETERS -C OF INTEREST. -C JPAR = INPUT PARAMETER, 2 .LE. JPAR .LE. NSV, DESIGNATING THE -C APPROPRIATE SOLUTION VECTOR CORRESPONDING TO PAR(JPAR). -C THIS ROUTINE ALSO USES THE COMMON VARIABLES TN, MITER, N, NFE, NDFE, -C AND IDF. -C----------------------------------------------------------------------- - NDFE = NDFE + 1 - IDF1 = IDF + 1 - GO TO (100, 200), IDF1 -C IDF = 0, CALL F TO APPROXIMATE DFDP. --------------------------------- - 100 RPAR = PAR(JPAR) - R = MAX(SRUR*ABS(RPAR),SRUR) - PAR(JPAR) = RPAR + R - FAC = 1.0D0/R - CALL F (NEQ, TN, Y, PAR, FTEM) - DO 110 I = 1,N - 110 DFDP(I) = (FTEM(I) - SAVF(I))*FAC - PAR(JPAR) = RPAR - NFE = NFE + 1 - RETURN -C IDF = 1, CALL USER SUPPLIED DF. -------------------------------------- - 200 DO 210 I = 1,N - 210 DFDP(I) = 0.0D0 - CALL DF (NEQ, TN, Y, PAR, DFDP, JPAR) - RETURN -C -------------------- END OF SUBROUTINE PREPDF ------------------------ - END - SUBROUTINE INTDY (T, K, YH, NYH, DKY, IFLAG) - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - DIMENSION YH(NYH,1), DKY(1) - COMMON /ODE001/ ROWND, ROWNS(173), - 2 RDUM1(38),H, RDUM2(2), HU, RDUM3, TN, UROUND, - 3 IOWND(14), IOWNS(4), - 4 IDUM1(8), L, IDUM2, - 5 IDUM3(5), N, NQ, IDUM4(4) -C----------------------------------------------------------------------- -C INTDY COMPUTES INTERPOLATED VALUES OF THE K-TH DERIVATIVE OF THE -C DEPENDENT VARIABLE VECTOR Y, AND STORES IT IN DKY. THIS ROUTINE -C IS CALLED WITHIN THE PACKAGE WITH K = 0 AND T = TOUT, BUT MAY -C ALSO BE CALLED BY THE USER FOR ANY K UP TO THE CURRENT ORDER. -C (SEE DETAILED INSTRUCTIONS IN THE USAGE DOCUMENTATION.) -C----------------------------------------------------------------------- -C THE COMPUTED VALUES IN DKY ARE GOTTEN BY INTERPOLATION USING THE -C NORDSIECK HISTORY ARRAY YH. THIS ARRAY CORRESPONDS UNIQUELY TO A -C VECTOR-VALUED POLYNOMIAL OF DEGREE NQCUR OR LESS, AND DKY IS SET -C TO THE K-TH DERIVATIVE OF THIS POLYNOMIAL AT T. -C THE FORMULA FOR DKY IS.. -C Q -C DKY(I) = SUM C(J,K) * (T - TN)**(J-K) * H**(-J) * YH(I,J+1) -C J=K -C WHERE C(J,K) = J*(J-1)*...*(J-K+1), Q = NQCUR, TN = TCUR, H = HCUR. -C THE QUANTITIES NQ = NQCUR, L = NQ+1, N = NEQ, TN, AND H ARE -C COMMUNICATED BY COMMON. THE ABOVE SUM IS DONE IN REVERSE ORDER. -C IFLAG IS RETURNED NEGATIVE IF EITHER K OR T IS OUT OF BOUNDS. -C----------------------------------------------------------------------- - IFLAG = 0 - IF (K .LT. 0 .OR. K .GT. NQ) GO TO 80 - TP = TN - HU*(1.0D0 + 100.0D0*UROUND) - IF ((T-TP)*(T-TN) .GT. 0.0D0) GO TO 90 -C - S = (T - TN)/H - IC = 1 - IF (K .EQ. 0) GO TO 15 - JJ1 = L - K - DO 10 JJ = JJ1,NQ - 10 IC = IC*JJ - 15 C = REAL(IC) - DO 20 I = 1,NYH - 20 DKY(I) = C*YH(I,L) - IF (K .EQ. NQ) GO TO 55 - JB2 = NQ - K - DO 50 JB = 1,JB2 - J = NQ - JB - JP1 = J + 1 - IC = 1 - IF (K .EQ. 0) GO TO 35 - JJ1 = JP1 - K - DO 30 JJ = JJ1,J - 30 IC = IC*JJ - 35 C = REAL(IC) - DO 40 I = 1,NYH - 40 DKY(I) = C*YH(I,JP1) + S*DKY(I) - 50 CONTINUE - IF (K .EQ. 0) RETURN - 55 R = H**(-K) - DO 60 I = 1,NYH - 60 DKY(I) = R*DKY(I) - RETURN -C - 80 CALL XERR('INTDY-- K (=I1) ILLEGAL', - 1 51, 1, 1, K, 0, 0, ZERO,ZERO) - IFLAG = -1 - RETURN - 90 CALL XERR ('INTDY-- T (=R1) ILLEGAL', - 1 52, 1, 0, 0, 0, 1, T, ZERO) - CALL XERR('T NOT IN INTERVAL TCUR - HU (= R1) TO TCUR (=R2)', - 1 52, 1, 0, 0, 0, 2, TP, TN) - IFLAG = -2 - RETURN -C----------------------- END OF SUBROUTINE INTDY ----------------------- - END - SUBROUTINE STESA (NEQ, Y, NROW, NCOL, YH, WM, IWM, EWT, SAVF, - 1 ACOR, PAR, NRS, F, JAC, DF, PJAC, PDF, KppSolve) - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - EXTERNAL F, JAC, DF, PJAC, PDF, KppSolve - DIMENSION NEQ(*), Y(NROW,*), YH(NROW,NCOL,*), WM(*), IWM(*), - 1 EWT(NROW,*), SAVF(*), ACOR(NROW,*), PAR(*), NRS(*) - PARAMETER (ONE=1.0D0,ZERO=0.0D0) - COMMON /ODE001/ ROWND, ROWNS(173), - 1 TESCO(3,12), RDUM1, EL0, H, RDUM2(4), TN, RDUM3, - 2 IOWND1(14), IOWNS(4), - 3 IALTH, LMAX, IDUM1, IERPJ, IERSL, JCUR, IDUM2, KFLAG, L, IDUM3, - 4 MITER, IDUM4(4), N, NQ, IDUM5, NFE, IDUM6(2) - COMMON /ODE002/ DUPS, DSMS, DDNS, - 1 IOWND2(3), IDUM7, NSV, IDUM8(2), IDF, IDUM9, JOPT, KFLAGS -C----------------------------------------------------------------------- -C STESA IS CALLED BY STODE TO PERFORM AN EXPLICIT CALCULATION FOR THE -C FIRST-ORDER SENSITIVITY COEFFICIENTS DY(I)/DP(J), I = 1,N; J = 1,NPAR. -C -C IN ADDITION TO THE VARIABLES DESCRIBED PREVIOUSLY, COMMUNICATION -C WITH STESA USES THE FOLLOWING.. -C Y = AN NROW (=N) BY NCOL (=NSV) REAL ARRAY CONTAINING THE -C CORRECTED DEPENDENT VARIABLES ON OUTPUT.. -C Y(I,1) , I = 1,N = STATE VARIABLES (INPUT); -C Y(I,J) , I = 1,N , J = 2,NSV , -C = SENSITIVITY COEFFICIENTS, DY(I)/DP(J). -C YH = AN N BY NSV BY LMAX REAL ARRAY CONTAINING THE PREDICTED -C DEPENDENT VARIABLES AND THEIR APPROXIMATE SCALED DERIVATIVES. -C SAVF = A REAL ARRAY OF LENGTH N USED TO STORE FIRST DERIVATIVES -C OF DEPENDENT VARIABLES IF MITER = 2 OR 5. -C PAR = A REAL ARRAY OF LENGTH NPAR CONTAINING THE EQUATION -C PARAMETERS OF INTEREST. -C NRS = AN INTEGER ARRAY OF LENGTH NPAR + 1 CONTAINING THE NUMBER -C OF REPEATED STEPS (KFLAGS .LT. 0) DUE TO THE SENSITIVITY -C CALCULATIONS.. -C NRS(1) = TOTAL NUMBER OF REPEATED STEPS -C NRS(I) , I = 2,NPAR = NUMBER OF REPEATED STEPS DUE -C TO PARAMETER I. -C NSV = NUMBER OF SOLUTION VECTORS = NPAR + 1. -C KFLAGS = LOCAL ERROR TEST FLAG, = 0 IF TEST PASSES, .LT. 0 IF TEST -C FAILS, AND STEP NEEDS TO BE REPEATED. ERROR TEST IS APPLIED -C TO EACH SOLUTION VECTOR INDEPENDENTLY. -C DUPS, DSMS, DDNS = REAL SCALARS USED FOR COMPUTING RHUP, RHSM, RHDN, -C ON RETURN TO STODE (IALTH .EQ. 1). -C THIS ROUTINE ALSO USES THE COMMON VARIABLES EL0, H, TN, IALTH, LMAX, -C IERPJ, IERSL, JCUR, KFLAG, L, MITER, N, NQ, NFE, AND JOPT. -C----------------------------------------------------------------------- - DUPS = ZERO - DSMS = ZERO - DDNS = ZERO - HL0 = H*EL0 - EL0I = ONE/EL0 - TI2 = ONE/TESCO(2,NQ) - TI3 = ONE/TESCO(3,NQ) -C IF MITER = 2 OR 5 (OR IDF = 0), SUPPLY DERIVATIVES AT CORRECTED -C Y(*,1) VALUES FOR NUMERICAL DIFFERENTIATION IN PJAC AND/OR PDF. - IF (MITER .EQ. 2 .OR. MITER .EQ. 5 .OR. IDF .EQ. 0) GO TO 10 - GO TO 15 - 10 CALL F (NEQ, TN, Y, PAR, SAVF) - NFE = NFE + 1 -C IF JCUR = 0, UPDATE THE JACOBIAN MATRIX. -C IF MITER = 5, LOAD CORRECTED Y(*,1) VALUES INTO Y(*,2). - 15 IF (JCUR .EQ. 1) GO TO 30 - IF (MITER .NE. 5) GO TO 25 - DO 20 I = 1,N - 20 Y(I,2) = Y(I,1) - 25 CALL PJAC (NEQ, Y, Y(1,2), N, WM, IWM, EWT, SAVF, ACOR(1,2), - 1 PAR, F, JAC, JOPT) - IF (IERPJ .NE. 0) RETURN -C----------------------------------------------------------------------- -C THIS IS A LOOPING POINT FOR THE SENSITIVITY CALCULATIONS. -C----------------------------------------------------------------------- -C FOR EACH PARAMETER PAR(*), A SENSITIVITY SOLUTION VECTOR IS COMPUTED -C USING THE SAME STEP SIZE (H) AND ORDER (NQ) AS IN STODE. -C A LOCAL ERROR TEST IS APPLIED INDEPENDENTLY TO EACH SOLUTION VECTOR. -C----------------------------------------------------------------------- - 30 DO 100 J = 2,NSV - JPAR = J - 1 -C EVALUATE INHOMOGENEITY TERM, TEMPORARILY LOAD INTO Y(*,JPAR+1). ------ - CALL PDF(NEQ, Y, WM, SAVF, ACOR(1,J), Y(1,J), PAR, - 1 F, DF, JPAR) -C----------------------------------------------------------------------- -C LOAD RHS OF SENSITIVITY SOLUTION (CORRECTOR) EQUATION.. -C -C RHS = DY/DP - EL(1)*H*D(DY/DP)/DT + EL(1)*H*DF/DP -C -C----------------------------------------------------------------------- - DO 40 I = 1,N - 40 Y(I,J) = YH(I,J,1) - EL0*YH(I,J,2) + HL0*Y(I,J) -C----------------------------------------------------------------------- -C KppSolve CORRECTOR EQUATION: THE SOLUTIONS ARE LOCATED IN Y(*,JPAR+1). -C THE EXPLICIT FORMULA IS.. -C -C (I - EL(1)*H*JAC) * DY/DP(CORRECTED) = RHS -C -C----------------------------------------------------------------------- - CALL KppSolve (WM, IWM, Y(1,J), DUM) - IF (IERSL .NE. 0) RETURN -C ESTIMATE LOCAL TRUNCATION ERROR. ------------------------------------- - DO 50 I = 1,N - 50 ACOR(I,J) = (Y(I,J) - YH(I,J,1))*EL0I - ERR = VNORM(N, ACOR(1,J), EWT(1,J))*TI2 - IF (ERR .GT. ONE) GO TO 200 -C----------------------------------------------------------------------- -C LOCAL ERROR TEST PASSED. SET KFLAGS TO 0 TO INDICATE THIS. -C IF IALTH = 1, COMPUTE DSMS, DDNS, AND DUPS (IF L .LT. LMAX). -C----------------------------------------------------------------------- - KFLAGS = 0 - IF (IALTH .GT. 1) GO TO 100 - IF (L .EQ. LMAX) GO TO 70 - DO 60 I= 1,N - 60 Y(I,J) = ACOR(I,J) - YH(I,J,LMAX) - DUPS = MAX(DUPS,VNORM(N,Y(1,J),EWT(1,J))*TI3) - 70 DSMS = MAX(DSMS,ERR) - 100 CONTINUE - RETURN -C----------------------------------------------------------------------- -C THIS SECTION IS REACHED IF THE ERROR TOLERANCE FOR SENSITIVITY -C SOLUTION VECTOR JPAR HAS BEEN VIOLATED. KFLAGS IS MADE NEGATIVE TO -C INDICATE THIS. IF KFLAGS = -1, SET KFLAG EQUAL TO ZERO SO THAT KFLAG -C IS SET TO -1 ON RETURN TO STODE BEFORE REPEATING THE STEP. -C INCREMENT NRS(1) (= TOTAL NUMBER OF REPEATED STEPS DUE TO ALL -C SENSITIVITY SOLUTION VECTORS) BY ONE. -C INCREMENT NRS(JPAR+1) (= TOTAL NUMBER OF REPEATED STEPS DUE TO -C SOLUTION VECTOR JPAR+1) BY ONE. -C LOAD DSMS FOR RH CALCULATION IN STODE. -C----------------------------------------------------------------------- - 200 KFLAGS = KFLAGS - 1 - IF (KFLAGS .EQ. -1) KFLAG = 0 - NRS(1) = NRS(1) + 1 - NRS(J) = NRS(J) + 1 - DSMS = ERR - RETURN -C------------------------ END OF SUBROUTINE STESA ---------------------- - END - SUBROUTINE STODE (NEQ, Y, YH, NYH, YH1, WM, IWM, EWT, SAVF, ACOR, - 1 PAR, NRS, F, JAC, DF, PJAC, PDF, SLVS) - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - EXTERNAL F, JAC, DF, PJAC, PDF, SLVS - DIMENSION NEQ(*), Y(*), YH(NYH,*), YH1(*), WM(*), IWM(*), EWT(*), - 1 SAVF(*), ACOR(*), PAR(*), NRS(*) - PARAMETER (ONE=1.0D0,ZERO=0.0D0) - COMMON /ODE001/ ROWND, - 1 CONIT, CRATE, EL(13), ELCO(13,12), HOLD, RMAX, - 2 TESCO(3,12), CCMAX, EL0, H, HMIN, HMXI, HU, RC, TN, UROUND, - 3 IOWND1(14), IPUP, MEO, NQNYH, NSLP, - 4 IALTH, LMAX, ICF, IERPJ, IERSL, JCUR, JSTART, KFLAG, L, METH, - 5 MITER, MAXORD, MAXCOR, MSBP, MXNCF, N, NQ, NST, NFE, NJE, NQU - COMMON /ODE002/ DUPS, DSMS, DDNS, - 1 IOWND2(3), ISOPT, NSV, NDFE, NSPE, IDF, IERSP, JOPT, KFLAGS -C----------------------------------------------------------------------- -C STODE PERFORMS ONE STEP OF THE INTEGRATION OF AN INITIAL VALUE -C PROBLEM FOR A SYSTEM OF ORDINARY DIFFERENTIAL EQUATIONS. -C NOTE.. STODE IS INDEPENDENT OF THE VALUE OF THE ITERATION METHOD -C INDICATOR MITER, WHEN THIS IS .NE. 0, AND HENCE IS INDEPENDENT -C OF THE TYPE OF CHORD METHOD USED, OR THE JACOBIAN STRUCTURE. -C FOR ISOPT = 1, STODE CALLS STESA FOR SENSITIVITY CALCULATIONS. -C VARIABLES USED FOR COMMUNICATION WITH STESA ARE DESCRIBED IN STESA. -C COMMUNICATION WITH STODE IS DONE WITH THE FOLLOWING VARIABLES.. -C -C NEQ = INTEGER ARRAY CONTAINING PROBLEM SIZE IN NEQ(1), AND -C NUMBER OF PARAMETERS TO BE CONSIDERED IN THE SENSITIVITY -C ANALYSIS NEQ(2) (FOR ISOPT = 1), AND PASSED AS THE -C NEQ ARGUMENT IN ALL CALLS TO F, JAC, AND DF. -C Y = AN ARRAY OF LENGTH .GE. N USED AS THE Y ARGUMENT IN -C ALL CALLS TO F, JAC, AND DF. -C YH = AN NYH BY LMAX ARRAY CONTAINING THE DEPENDENT VARIABLES -C AND THEIR APPROXIMATE SCALED DERIVATIVES, WHERE -C LMAX = MAXORD + 1. YH(I,J+1) CONTAINS THE APPROXIMATE -C J-TH DERIVATIVE OF Y(I), SCALED BY H**J/FACTORIAL(J) -C (J = 0,1,...,NQ). ON ENTRY FOR THE FIRST STEP, THE FIRST -C TWO COLUMNS OF YH MUST BE SET FROM THE INITIAL VALUES. -C NYH = A CONSTANT INTEGER .GE. N, THE FIRST DIMENSION OF YH. -C THE TOTAL NUMBER OF FIRST-ORDER DIFFERENTIAL EQUATIONS.. -C NYH = N, ISOPT = 0, -C NYH = N * (NPAR + 1), ISOPT = 1 -C YH1 = A ONE-DIMENSIONAL ARRAY OCCUPYING THE SAME SPACE AS YH. -C EWT = AN ARRAY OF LENGTH NYH CONTAINING MULTIPLICATIVE WEIGHTS -C FOR LOCAL ERROR MEASUREMENTS. LOCAL ERRORS IN Y(I) ARE -C COMPARED TO 1.0/EWT(I) IN VARIOUS ERROR TESTS. -C SAVF = AN ARRAY OF WORKING STORAGE, OF LENGTH N. -C ALSO USED FOR INPUT OF YH(*,MAXORD+2) WHEN JSTART = -1 -C AND MAXORD .LT. THE CURRENT ORDER NQ. -C ACOR = A WORK ARRAY OF LENGTH NYH, USED FOR THE ACCUMULATED -C CORRECTIONS. ON A SUCCESSFUL RETURN, ACOR(I) CONTAINS -C THE ESTIMATED ONE-STEP LOCAL ERROR IN Y(I). -C WM,IWM = REAL AND INTEGER WORK ARRAYS ASSOCIATED WITH MATRIX -C OPERATIONS IN CHORD ITERATION (MITER .NE. 0). -C PJAC = NAME OF ROUTINE TO EVALUATE AND PREPROCESS JACOBIAN MATRIX -C AND P = I - H*EL0*JAC, IF A CHORD METHOD IS BEING USED. -C IF ISOPT = 1, PJAC CAN BE CALLED TO CALCULATE JAC BY -C SETTING JOPT = 1. -C SLVS = NAME OF ROUTINE TO KppSolve LINEAR SYSTEM IN CHORD ITERATION. -C CCMAX = MAXIMUM RELATIVE CHANGE IN H*EL0 BEFORE PJAC IS CALLED. -C H = THE STEP SIZE TO BE ATTEMPTED ON THE NEXT STEP. -C H IS ALTERED BY THE ERROR CONTROL ALGORITHM DURING THE -C PROBLEM. H CAN BE EITHER POSITIVE OR NEGATIVE, BUT ITS -C SIGN MUST REMAIN CONSTANT THROUGHOUT THE PROBLEM. -C HMIN = THE MINIMUM ABSOLUTE VALUE OF THE STEP SIZE H TO BE USED. -C HMXI = INVERSE OF THE MAXIMUM ABSOLUTE VALUE OF H TO BE USED. -C HMXI = 0.0 IS ALLOWED AND CORRESPONDS TO AN INFINITE HMAX. -C HMIN AND HMXI MAY BE CHANGED AT ANY TIME, BUT WILL NOT -C TAKE EFFECT UNTIL THE NEXT CHANGE OF H IS CONSIDERED. -C TN = THE INDEPENDENT VARIABLE. TN IS UPDATED ON EACH STEP TAKEN. -C JSTART = AN INTEGER USED FOR INPUT ONLY, WITH THE FOLLOWING -C VALUES AND MEANINGS.. -C 0 PERFORM THE FIRST STEP. -C .GT.0 TAKE A NEW STEP CONTINUING FROM THE LAST. -C -1 TAKE THE NEXT STEP WITH A NEW VALUE OF H, MAXORD, -C N, METH, OR MITER. -C -2 TAKE THE NEXT STEP WITH A NEW VALUE OF H, -C BUT WITH OTHER INPUTS UNCHANGED. -C ON RETURN, JSTART IS SET TO 1 TO FACILITATE CONTINUATION. -C KFLAG = A COMPLETION CODE WITH THE FOLLOWING MEANINGS.. -C 0 THE STEP WAS SUCCESFUL. -C -1 THE REQUESTED ERROR COULD NOT BE ACHIEVED. -C -2 CORRECTOR CONVERGENCE COULD NOT BE ACHIEVED. -C -3 FATAL ERROR IN PJAC, OR SLVS, (OR STESA). -C A RETURN WITH KFLAG = -1 OR -2 MEANS EITHER -C ABS(H) = HMIN OR 10 CONSECUTIVE FAILURES OCCURRED. -C ON A RETURN WITH KFLAG NEGATIVE, THE VALUES OF TN AND -C THE YH ARRAY ARE AS OF THE BEGINNING OF THE LAST -C STEP, AND H IS THE LAST STEP SIZE ATTEMPTED. -C MAXORD = THE MAXIMUM ORDER OF INTEGRATION METHOD TO BE ALLOWED. -C MAXCOR = THE MAXIMUM NUMBER OF CORRECTOR ITERATIONS ALLOWED. -C (= 3, IF ISOPT = 0) -C (= 4, IF ISOPT = 1) -C MSBP = MAXIMUM NUMBER OF STEPS BETWEEN PJAC CALLS (MITER .GT. 0). -C IF ISOPT = 1, PJAC IS CALLED AT LEAST ONCE EVERY STEP. -C MXNCF = MAXIMUM NUMBER OF CONVERGENCE FAILURES ALLOWED. -C METH/MITER = THE METHOD FLAGS. SEE DESCRIPTION IN DRIVER. -C N = THE NUMBER OF FIRST-ORDER MODEL DIFFERENTIAL EQUATIONS. -C----------------------------------------------------------------------- - KFLAG = 0 - KFLAGS = 0 - TOLD = TN - NCF = 0 - IERPJ = 0 - IERSL = 0 - JCUR = 0 - ICF = 0 - IF (JSTART .GT. 0) GO TO 200 - IF (JSTART .EQ. -1) GO TO 100 - IF (JSTART .EQ. -2) GO TO 160 -C----------------------------------------------------------------------- -C ON THE FIRST CALL, THE ORDER IS SET TO 1, AND OTHER VARIABLES ARE -C INITIALIZED. RMAX IS THE MAXIMUM RATIO BY WHICH H CAN BE INCREASED -C IN A SINGLE STEP. IT IS INITIALLY 1.E4 TO COMPENSATE FOR THE SMALL -C INITIAL H, BUT THEN IS NORMALLY EQUAL TO 10. IF A FAILURE -C OCCURS (IN CORRECTOR CONVERGENCE OR ERROR TEST), RMAX IS SET AT 2 -C FOR THE NEXT INCREASE. -C THESE COMPUTATIONS CONSIDER ONLY THE ORIGINAL SOLUTION VECTOR. -C THE SENSITIVITY SOLUTION VECTORS ARE CONSIDERED IN STESA (ISOPT = 1). -C----------------------------------------------------------------------- - LMAX = MAXORD + 1 - NQ = 1 - L = 2 - IALTH = 2 - RMAX = 10000.0D0 - RC = ZERO - EL0 = ONE - CRATE = 0.7D0 - DELP = ZERO - HOLD = H - MEO = METH - NSLP = 0 - IPUP = MITER - IRET = 3 - GO TO 140 -C----------------------------------------------------------------------- -C THE FOLLOWING BLOCK HANDLES PRELIMINARIES NEEDED WHEN JSTART = -1. -C IPUP IS SET TO MITER TO FORCE A MATRIX UPDATE. -C IF AN ORDER INCREASE IS ABOUT TO BE CONSIDERED (IALTH = 1), -C IALTH IS RESET TO 2 TO POSTPONE CONSIDERATION ONE MORE STEP. -C IF THE CALLER HAS CHANGED METH, CFODE IS CALLED TO RESET -C THE COEFFICIENTS OF THE METHOD. -C IF THE CALLER HAS CHANGED MAXORD TO A VALUE LESS THAN THE CURRENT -C ORDER NQ, NQ IS REDUCED TO MAXORD, AND A NEW H CHOSEN ACCORDINGLY. -C IF H IS TO BE CHANGED, YH MUST BE RESCALED. -C IF H OR METH IS BEING CHANGED, IALTH IS RESET TO L = NQ + 1 -C TO PREVENT FURTHER CHANGES IN H FOR THAT MANY STEPS. -C----------------------------------------------------------------------- - 100 IPUP = MITER - LMAX = MAXORD + 1 - IF (IALTH .EQ. 1) IALTH = 2 - IF (METH .EQ. MEO) GO TO 110 - CALL CFODE (METH, ELCO, TESCO) - MEO = METH - IF (NQ .GT. MAXORD) GO TO 120 - IALTH = L - IRET = 1 - GO TO 150 - 110 IF (NQ .LE. MAXORD) GO TO 160 - 120 NQ = MAXORD - L = LMAX - DO 125 I = 1,L - 125 EL(I) = ELCO(I,NQ) - NQNYH = NQ*NYH - RC = RC*EL(1)/EL0 - EL0 = EL(1) - CONIT = 0.5D0/REAL(NQ+2) - DDN = VNORM (N, SAVF, EWT)/TESCO(1,L) - EXDN = ONE/REAL(L) - RHDN = ONE/(1.3D0*DDN**EXDN + 0.0000013D0) - RH = MIN(RHDN,ONE) - IREDO = 3 - IF (H .EQ. HOLD) GO TO 170 - RH = MIN(RH,ABS(H/HOLD)) - H = HOLD - GO TO 175 -C----------------------------------------------------------------------- -C CFODE IS CALLED TO GET ALL THE INTEGRATION COEFFICIENTS FOR THE -C CURRENT METH. THEN THE EL VECTOR AND RELATED CONSTANTS ARE RESET -C WHENEVER THE ORDER NQ IS CHANGED, OR AT THE START OF THE PROBLEM. -C----------------------------------------------------------------------- - 140 CALL CFODE (METH, ELCO, TESCO) - 150 DO 155 I = 1,L - 155 EL(I) = ELCO(I,NQ) - NQNYH = NQ*NYH - RC = RC*EL(1)/EL0 - EL0 = EL(1) - CONIT = 0.5D0/REAL(NQ+2) - GO TO (160, 170, 200), IRET -C----------------------------------------------------------------------- -C IF H IS BEING CHANGED, THE H RATIO RH IS CHECKED AGAINST -C RMAX, HMIN, AND HMXI, AND THE YH ARRAY RESCALED. IALTH IS SET TO -C L = NQ + 1 TO PREVENT A CHANGE OF H FOR THAT MANY STEPS, UNLESS -C FORCED BY A CONVERGENCE OR ERROR TEST FAILURE. -C----------------------------------------------------------------------- - 160 IF (H .EQ. HOLD) GO TO 200 - RH = H/HOLD - H = HOLD - IREDO = 3 - GO TO 175 - 170 RH = MAX(RH,HMIN/ABS(H)) - 175 RH = MIN(RH,RMAX) - RH = RH/MAX(ONE,ABS(H)*HMXI*RH) - R = ONE - DO 180 J = 2,L - R = R*RH - DO 180 I = 1,NYH - 180 YH(I,J) = YH(I,J)*R - H = H*RH - RC = RC*RH - IALTH = L - IF (IREDO .EQ. 0) GO TO 690 -C----------------------------------------------------------------------- -C THIS SECTION COMPUTES THE PREDICTED VALUES BY EFFECTIVELY -C MULTIPLYING THE YH ARRAY BY THE PASCAL TRIANGLE MATRIX. -C RC IS THE RATIO OF NEW TO OLD VALUES OF THE COEFFICIENT H*EL(1). -C WHEN RC DIFFERS FROM 1 BY MORE THAN CCMAX, IPUP IS SET TO MITER -C TO FORCE PJAC TO BE CALLED, IF A JACOBIAN IS INVOLVED. -C IN ANY CASE, PJAC IS CALLED AT LEAST EVERY MSBP STEPS FOR ISOPT = 0, -C AND AT LEAST ONCE EVERY STEP FOR ISOPT = 1. -C----------------------------------------------------------------------- - 200 IF (ABS(RC-ONE) .GT. CCMAX) IPUP = MITER - IF (NST .GE. NSLP+MSBP) IPUP = MITER - TN = TN + H - I1 = NQNYH + 1 - DO 215 JB = 1,NQ - I1 = I1 - NYH - DO 210 I = I1,NQNYH - 210 YH1(I) = YH1(I) + YH1(I+NYH) - 215 CONTINUE -C----------------------------------------------------------------------- -C UP TO MAXCOR CORRECTOR ITERATIONS ARE TAKEN. (= 3, FOR ISOPT = 0; -C = 4, FOR ISOPT = 1). A CONVERGENCE TEST IS MADE ON THE R.M.S. NORM -C OF EACH CORRECTION, WEIGHTED BY THE ERROR WEIGHT VECTOR EWT. THE SUM -C OF THE CORRECTIONS IS ACCUMULATED IN THE VECTOR ACOR(I), I = 1,N. -C (ACOR(I), I = N+1,NYH IS LOADED IN SUBROUTINE STESA (ISOPT = 1).) -C THE YH ARRAY IS NOT ALTERED IN THE CORRECTOR LOOP. -C----------------------------------------------------------------------- - 220 M = 0 - DO 230 I = 1,N - 230 Y(I) = YH(I,1) - CALL F (NEQ, TN, Y, PAR, SAVF) - NFE = NFE + 1 - IF (IPUP .LE. 0) GO TO 250 -C----------------------------------------------------------------------- -C IF INDICATED, THE MATRIX P = I - H*EL(1)*J IS REEVALUATED AND -C PREPROCESSED BEFORE STARTING THE CORRECTOR ITERATION. IPUP IS SET -C TO 0 AS AN INDICATOR THAT THIS HAS BEEN DONE. -C----------------------------------------------------------------------- - IPUP = 0 - RC = ONE - NSLP = NST - CRATE = 0.7D0 - CALL PJAC (NEQ, Y, YH, NYH, WM, IWM, EWT, SAVF, ACOR, PAR, - 1 F, JAC, JOPT) - IF (IERPJ .NE. 0) GO TO 430 - 250 DO 260 I = 1,N - 260 ACOR(I) = ZERO - 270 IF (MITER .NE. 0) GO TO 350 -C----------------------------------------------------------------------- -C IN THE CASE OF FUNCTIONAL ITERATION, UPDATE Y DIRECTLY FROM -C THE RESULT OF THE LAST FUNCTION EVALUATION. -C (IF ISOPT = 1, FUNCTIONAL ITERATION IS NOT ALLOWED.) -C----------------------------------------------------------------------- - DO 290 I = 1,N - SAVF(I) = H*SAVF(I) - YH(I,2) - 290 Y(I) = SAVF(I) - ACOR(I) - DEL = VNORM (N, Y, EWT) - DO 300 I = 1,N - Y(I) = YH(I,1) + EL(1)*SAVF(I) - 300 ACOR(I) = SAVF(I) - GO TO 400 -C----------------------------------------------------------------------- -C IN THE CASE OF THE CHORD METHOD, COMPUTE THE CORRECTOR ERROR, -C AND KppSolve THE LINEAR SYSTEM WITH THAT AS RIGHT-HAND SIDE AND -C P AS COEFFICIENT MATRIX. -C----------------------------------------------------------------------- - 350 DO 360 I = 1,N - 360 Y(I) = H*SAVF(I) - (YH(I,2) + ACOR(I)) - CALL SLVS (WM, IWM, Y, SAVF) - IF (IERSL .LT. 0) GO TO 430 - IF (IERSL .GT. 0) GO TO 410 - DEL = VNORM (N, Y, EWT) - DO 380 I = 1,N - ACOR(I) = ACOR(I) + Y(I) - 380 Y(I) = YH(I,1) + EL(1)*ACOR(I) -C----------------------------------------------------------------------- -C TEST FOR CONVERGENCE. IF M.GT.0, AN ESTIMATE OF THE CONVERGENCE -C RATE CONSTANT IS STORED IN CRATE, AND THIS IS USED IN THE TEST. -C----------------------------------------------------------------------- - 400 IF (M .NE. 0) CRATE = MAX(0.2D0*CRATE,DEL/DELP) - DCON = DEL*MIN(ONE,1.5D0*CRATE)/(TESCO(2,NQ)*CONIT) - IF (DCON .LE. ONE) GO TO 450 - M = M + 1 - IF (M .EQ. MAXCOR) GO TO 410 - IF (M .GE. 2 .AND. DEL .GT. 2.0D0*DELP) GO TO 410 - DELP = DEL - CALL F (NEQ, TN, Y, PAR, SAVF) - NFE = NFE + 1 - GO TO 270 -C----------------------------------------------------------------------- -C THE CORRECTOR ITERATION FAILED TO CONVERGE IN MAXCOR TRIES. -C IF MITER .NE. 0 AND THE JACOBIAN IS OUT OF DATE, PJAC IS CALLED FOR -C THE NEXT TRY. OTHERWISE THE YH ARRAY IS RETRACTED TO ITS VALUES -C BEFORE PREDICTION, AND H IS REDUCED, IF POSSIBLE. IF H CANNOT BE -C REDUCED OR MXNCF FAILURES HAVE OCCURRED, EXIT WITH KFLAG = -2. -C----------------------------------------------------------------------- - 410 IF (MITER .EQ. 0 .OR. JCUR .EQ. 1) GO TO 430 - ICF = 1 - IPUP = MITER - GO TO 220 - 430 ICF = 2 - NCF = NCF + 1 - RMAX = 2.0D0 - TN = TOLD - I1 = NQNYH + 1 - DO 445 JB = 1,NQ - I1 = I1 - NYH - DO 440 I = I1,NQNYH - 440 YH1(I) = YH1(I) - YH1(I+NYH) - 445 CONTINUE - IF (IERPJ .LT. 0 .OR. IERSL .LT. 0) GO TO 680 - IF (ABS(H) .LE. HMIN*1.00001D0) GO TO 670 - IF (NCF .EQ. MXNCF) GO TO 670 - RH = 0.25D0 - IPUP = MITER - IREDO = 1 - GO TO 170 -C----------------------------------------------------------------------- -C THE CORRECTOR HAS CONVERGED. -C THE LOCAL ERROR TEST IS MADE AND CONTROL PASSES TO STATEMENT 500 -C IF IT FAILS. OTHERWISE, STESA IS CALLED (ISOPT = 1) TO PERFORM -C SENSITIVITY CALCULATIONS AT CURRENT STEP SIZE AND ORDER. -C----------------------------------------------------------------------- - 450 CONTINUE - IF (M .EQ. 0) DSM = DEL/TESCO(2,NQ) - IF (M .GT. 0) DSM = VNORM (N, ACOR, EWT)/TESCO(2,NQ) - IF (DSM .GT. ONE) GO TO 500 -C - IF (ISOPT .EQ. 0) GO TO 460 -C----------------------------------------------------------------------- -C CALL STESA TO PERFORM EXPLICIT SENSITIVITY ANALYSIS. -C IF THE LOCAL ERROR TEST FAILS (WITHIN STESA) FOR ANY SOLUTION VECTOR, -C KFLAGS IS SET .LT. 0 AND CONTROL PASSES TO STATEMENT 500 UPON RETURN. -C IN EITHER CASE, JCUR IS SET TO ZERO TO SIGNAL THAT THE JACOBIAN MAY -C NEED UPDATING LATER. -C----------------------------------------------------------------------- - CALL STESA (NEQ, Y, N, NSV, YH, WM, IWM, EWT, SAVF, ACOR, - 1 PAR, NRS, F, JAC, DF, PJAC, PDF, SLVS) - IF (IERPJ .NE. 0 .OR. IERSL .NE. 0) GO TO 680 - IF (KFLAGS .LT. 0) GO TO 500 -C----------------------------------------------------------------------- -C AFTER A SUCCESSFUL STEP, UPDATE THE YH ARRAY. -C CONSIDER CHANGING H IF IALTH = 1. OTHERWISE DECREASE IALTH BY 1. -C IF IALTH IS THEN 1 AND NQ .LT. MAXORD, THEN ACOR IS SAVED FOR -C USE IN A POSSIBLE ORDER INCREASE ON THE NEXT STEP. -C IF A CHANGE IN H IS CONSIDERED, AN INCREASE OR DECREASE IN ORDER -C BY ONE IS CONSIDERED ALSO. A CHANGE IN H IS MADE ONLY IF IT IS BY A -C FACTOR OF AT LEAST 1.1. IF NOT, IALTH IS SET TO 3 TO PREVENT -C TESTING FOR THAT MANY STEPS. -C----------------------------------------------------------------------- - 460 JCUR = 0 - KFLAG = 0 - IREDO = 0 - NST = NST + 1 - HU = H - NQU = NQ - DO 470 J = 1,L - DO 470 I = 1,NYH - 470 YH(I,J) = YH(I,J) + EL(J)*ACOR(I) - IALTH = IALTH - 1 - IF (IALTH .EQ. 0) GO TO 520 - IF (IALTH .GT. 1) GO TO 700 - IF (L .EQ. LMAX) GO TO 700 - DO 490 I = 1,NYH - 490 YH(I,LMAX) = ACOR(I) - GO TO 700 -C----------------------------------------------------------------------- -C THE ERROR TEST FAILED IN EITHER STODE OR STESA. -C KFLAG KEEPS TRACK OF MULTIPLE FAILURES. -C RESTORE TN AND THE YH ARRAY TO THEIR PREVIOUS VALUES, AND PREPARE -C TO TRY THE STEP AGAIN. COMPUTE THE OPTIMUM STEP SIZE FOR THIS OR -C ONE LOWER ORDER. AFTER 2 OR MORE FAILURES, H IS FORCED TO DECREASE -C BY A FACTOR OF 0.2 OR LESS. -C----------------------------------------------------------------------- - 500 KFLAG = KFLAG - 1 - JCUR = 0 - TN = TOLD - I1 = NQNYH + 1 - DO 515 JB = 1,NQ - I1 = I1 - NYH - DO 510 I = I1,NQNYH - 510 YH1(I) = YH1(I) - YH1(I+NYH) - 515 CONTINUE - RMAX = 2.0D0 - IF (ABS(H) .LE. HMIN*1.00001D0) GO TO 660 - IF (KFLAG .LE. -3) GO TO 640 - IREDO = 2 - RHUP = ZERO - GO TO 540 -C----------------------------------------------------------------------- -* -C REGARDLESS OF THE SUCCESS OR FAILURE OF THE STEP, FACTORS -C RHDN, RHSM, AND RHUP ARE COMPUTED, BY WHICH H COULD BE MULTIPLIED -C AT ORDER NQ - 1, ORDER NQ, OR ORDER NQ + 1, RESPECTIVELY. -C IN THE CASE OF FAILURE, RHUP = 0.0 TO AVOID AN ORDER INCREASE. -C THE LARGEST OF THESE IS DETERMINED AND THE NEW ORDER CHOSEN -C ACCORDINGLY. IF THE ORDER IS TO BE INCREASED, WE COMPUTE ONE -C ADDITIONAL SCALED DERIVATIVE. -C FOR ISOPT = 1, DUPS AND DSMS ARE LOADED WITH THE LARGEST RMS-NORMS -C OBTAINED BY CONSIDERING SEPARATELY THE SENSITIVITY SOLUTION VECTORS. -C----------------------------------------------------------------------- - 520 RHUP = ZERO - IF (L .EQ. LMAX) GO TO 540 - DO 530 I = 1,N - 530 SAVF(I) = ACOR(I) - YH(I,LMAX) - DUP = VNORM (N, SAVF, EWT)/TESCO(3,NQ) - DUP = MAX(DUP,DUPS) - EXUP = ONE/REAL(L+1) - RHUP = ONE/(1.4D0*DUP**EXUP + 0.0000014D0) - 540 EXSM = ONE/REAL(L) - DSM = MAX(DSM,DSMS) - RHSM = ONE/(1.2D0*DSM**EXSM + 0.0000012D0) - RHDN = ZERO - IF (NQ .EQ. 1) GO TO 560 - JPOINT = 1 - DO 550 J = 1,NSV - DDN = VNORM (N, YH(JPOINT,L), EWT(JPOINT))/TESCO(1,NQ) - DDNS = MAX(DDNS,DDN) - JPOINT = JPOINT + N - 550 CONTINUE - DDN = DDNS - DDNS = ZERO - EXDN = ONE/REAL(NQ) - RHDN = ONE/(1.3D0*DDN**EXDN + 0.0000013D0) - 560 IF (RHSM .GE. RHUP) GO TO 570 - IF (RHUP .GT. RHDN) GO TO 590 - GO TO 580 - 570 IF (RHSM .LT. RHDN) GO TO 580 - NEWQ = NQ - RH = RHSM - GO TO 620 - 580 NEWQ = NQ - 1 - RH = RHDN - IF (KFLAG .LT. 0 .AND. RH .GT. ONE) RH = ONE - GO TO 620 - 590 NEWQ = L - RH = RHUP - IF (RH .LT. 1.1D0) GO TO 610 - R = EL(L)/REAL(L) - DO 600 I = 1,NYH - 600 YH(I,NEWQ+1) = ACOR(I)*R - GO TO 630 - 610 IALTH = 3 - GO TO 700 - 620 IF ((KFLAG .EQ. 0) .AND. (RH .LT. 1.1D0)) GO TO 610 - IF (KFLAG .LE. -2) RH = MIN(RH,0.2D0) -C----------------------------------------------------------------------- -C IF THERE IS A CHANGE OF ORDER, RESET NQ, L, AND THE COEFFICIENTS. -C IN ANY CASE H IS RESET ACCORDING TO RH AND THE YH ARRAY IS RESCALED. -C THEN EXIT FROM 690 IF THE STEP WAS OK, OR REDO THE STEP OTHERWISE. -C----------------------------------------------------------------------- - IF (NEWQ .EQ. NQ) GO TO 170 - 630 NQ = NEWQ - L = NQ + 1 - IRET = 2 - GO TO 150 -C----------------------------------------------------------------------- -C CONTROL REACHES THIS SECTION IF 3 OR MORE FAILURES HAVE OCCURED. -C IF 10 FAILURES HAVE OCCURRED, EXIT WITH KFLAG = -1. -C IT IS ASSUMED THAT THE DERIVATIVES THAT HAVE ACCUMULATED IN THE -C YH ARRAY HAVE ERRORS OF THE WRONG ORDER. HENCE THE FIRST -C DERIVATIVE IS RECOMPUTED, AND THE ORDER IS SET TO 1. THEN -C H IS REDUCED BY A FACTOR OF 10, AND THE STEP IS RETRIED, -C UNTIL IT SUCCEEDS OR H REACHES HMIN. -C----------------------------------------------------------------------- - 640 IF (KFLAG .EQ. -10) GO TO 660 - RH = 0.1D0 - RH = MAX(HMIN/ABS(H),RH) - H = H*RH - DO 645 I = 1,NYH - 645 Y(I) = YH(I,1) - CALL F (NEQ, TN, Y, PAR, SAVF) - NFE = NFE + 1 - IF (ISOPT .EQ. 0) GO TO 649 - CALL SPRIME (NEQ, Y, YH, NYH, N, NSV, WM, IWM, EWT, SAVF, ACOR, - 1 ACOR(N+1), PAR, F, JAC, DF, PJAC, PDF) - IF (IERSP .LT. 0) GO TO 680 - DO 646 I = N+1,NYH - 646 YH(I,2) = H*YH(I,2) - 649 DO 650 I = 1,N - 650 YH(I,2) = H*SAVF(I) - IPUP = MITER - IALTH = 5 - IF (NQ .EQ. 1) GO TO 200 - NQ = 1 - L = 2 - IRET = 3 - GO TO 150 -C----------------------------------------------------------------------- -C ALL RETURNS ARE MADE THROUGH THIS SECTION. H IS SAVED IN HOLD -C TO ALLOW THE CALLER TO CHANGE H ON THE NEXT STEP. -C----------------------------------------------------------------------- - 660 KFLAG = -1 - GO TO 720 - 670 KFLAG = -2 - GO TO 720 - 680 KFLAG = -3 - GO TO 720 - 690 RMAX = 10.0D0 - 700 R = ONE/TESCO(2,NQU) - DO 710 I = 1,NYH - 710 ACOR(I) = ACOR(I)*R - 720 HOLD = H - JSTART = 1 - RETURN -C----------------------- END OF SUBROUTINE STODE ----------------------- - END - SUBROUTINE CFODE (METH, ELCO, TESCO) - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - DIMENSION ELCO(13,12), TESCO(3,12) -C----------------------------------------------------------------------- -C CFODE IS CALLED BY THE INTEGRATOR ROUTINE TO SET COEFFICIENTS -C NEEDED THERE. THE COEFFICIENTS FOR THE CURRENT METHOD, AS -C GIVEN BY THE VALUE OF METH, ARE SET FOR ALL ORDERS AND SAVED. -C THE MAXIMUM ORDER ASSUMED HERE IS 12 IF METH = 1 AND 5 IF METH = 2. -C (A SMALLER VALUE OF THE MAXIMUM ORDER IS ALSO ALLOWED.) -C CFODE IS CALLED ONCE AT THE BEGINNING OF THE PROBLEM, -C AND IS NOT CALLED AGAIN UNLESS AND UNTIL METH IS CHANGED. -C -C THE ELCO ARRAY CONTAINS THE BASIC METHOD COEFFICIENTS. -C THE COEFFICIENTS EL(I), 1 .LE. I .LE. NQ+1, FOR THE METHOD OF -C ORDER NQ ARE STORED IN ELCO(I,NQ). THEY ARE GIVEN BY A GENETRATING -C POLYNOMIAL, I.E., -C L(X) = EL(1) + EL(2)*X + ... + EL(NQ+1)*X**NQ. -C FOR THE IMPLICIT ADAMS METHODS, L(X) IS GIVEN BY -C DL/DX = (X+1)*(X+2)*...*(X+NQ-1)/FACTORIAL(NQ-1), L(-1) = 0. -C FOR THE BDF METHODS, L(X) IS GIVEN BY -C L(X) = (X+1)*(X+2)* ... *(X+NQ)/K, -C WHERE K = FACTORIAL(NQ)*(1 + 1/2 + ... + 1/NQ). -C -C THE TESCO ARRAY CONTAINS TEST CONSTANTS USED FOR THE -C LOCAL ERROR TEST AND THE SELECTION OF STEP SIZE AND/OR ORDER. -C AT ORDER NQ, TESCO(K,NQ) IS USED FOR THE SELECTION OF STEP -C SIZE AT ORDER NQ - 1 IF K = 1, AT ORDER NQ IF K = 2, AND AT ORDER -C NQ + 1 IF K = 3. -C----------------------------------------------------------------------- - DIMENSION PC(12) - PARAMETER (ONE=1.0D0,ZERO=0.0D0) -C - GO TO (100, 200), METH -C - 100 ELCO(1,1) = ONE - ELCO(2,1) = ONE - TESCO(1,1) = ZERO - TESCO(2,1) = 2.0D0 - TESCO(1,2) = ONE - TESCO(3,12) = ZERO - PC(1) = ONE - RQFAC = ONE - DO 140 NQ = 2,12 -C----------------------------------------------------------------------- -C THE PC ARRAY WILL CONTAIN THE COEFFICIENTS OF THE POLYNOMIAL -C P(X) = (X+1)*(X+2)*...*(X+NQ-1). -C INITIALLY, P(X) = 1. -C----------------------------------------------------------------------- - RQ1FAC = RQFAC - RQFAC = RQFAC/REAL(NQ) - NQM1 = NQ - 1 - FNQM1 = REAL(NQM1) - NQP1 = NQ + 1 -C FORM COEFFICIENTS OF P(X)*(X+NQ-1). ---------------------------------- - PC(NQ) = ZERO - DO 110 IB = 1,NQM1 - I = NQP1 - IB - 110 PC(I) = PC(I-1) + FNQM1*PC(I) - PC(1) = FNQM1*PC(1) -C COMPUTE INTEGRAL, -1 TO 0, OF P(X) AND X*P(X). ----------------------- - PINT = PC(1) - XPIN = PC(1)/2.0D0 - TSIGN = ONE - DO 120 I = 2,NQ - TSIGN = -TSIGN - PINT = PINT + TSIGN*PC(I)/REAL(I) - 120 XPIN = XPIN + TSIGN*PC(I)/REAL(I+1) -C STORE COEFFICIENTS IN ELCO AND TESCO. -------------------------------- - ELCO(1,NQ) = PINT*RQ1FAC - ELCO(2,NQ) = ONE - DO 130 I = 2,NQ - 130 ELCO(I+1,NQ) = RQ1FAC*PC(I)/REAL(I) - AGAMQ = RQFAC*XPIN - RAGQ = ONE/AGAMQ - TESCO(2,NQ) = RAGQ - IF (NQ .LT. 12) TESCO(1,NQP1) = RAGQ*RQFAC/REAL(NQP1) - TESCO(3,NQM1) = RAGQ - 140 CONTINUE - RETURN -C - 200 PC(1) = ONE - RQ1FAC = ONE - DO 230 NQ = 1,5 -C----------------------------------------------------------------------- -C THE PC ARRAY WILL CONTAIN THE COEFFICIENTS OF THE POLYNOMIAL -C P(X) = (X+1)*(X+2)*...*(X+NQ). -C INITIALLY, P(X) = 1. -C----------------------------------------------------------------------- - FNQ = REAL(NQ) - NQP1 = NQ + 1 -C FORM COEFFICIENTS OF P(X)*(X+NQ). ------------------------------------ - PC(NQP1) = ZERO - DO 210 IB = 1,NQ - I = NQ + 2 - IB - 210 PC(I) = PC(I-1) + FNQ*PC(I) - PC(1) = FNQ*PC(1) -C STORE COEFFICIENTS IN ELCO AND TESCO. -------------------------------- - DO 220 I = 1,NQP1 - 220 ELCO(I,NQ) = PC(I)/PC(2) - ELCO(2,NQ) = ONE - TESCO(1,NQ) = RQ1FAC - TESCO(2,NQ) = REAL(NQP1)/ELCO(1,NQ) - TESCO(3,NQ) = REAL(NQ+2)/ELCO(1,NQ) - RQ1FAC = RQ1FAC/FNQ - 230 CONTINUE - RETURN -C----------------------- END OF SUBROUTINE CFODE ----------------------- - END - SUBROUTINE SOLSY (WM, IWM, X, TEM) -C IMPLICIT DOUBLE PRECISION (A-H,O-Z) - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Sparse.h' - DIMENSION WM(*), IWM(*), X(*), TEM(*) - PARAMETER (ZERO=0.0D0,ONE=1.0D0) - COMMON /ODE001/ ROWND, ROWNS(173), - 2 RDUM1(37), EL0, H, RDUM2(6), - 3 IOWND(14), IOWNS(4), - 4 IDUM1(4), IERSL, IDUM2(5), - 5 MITER, IDUM3(4), N, IDUM4(5) -C----------------------------------------------------------------------- -C THIS ROUTINE MANAGES THE SOLUTION OF THE LINEAR SYSTEM ARISING FROM -C A CHORD ITERATION. IT IS CALLED IF MITER .NE. 0. -C IF MITER IS 1 OR 2, IT CALLS DGESL TO ACCOMPLISH THIS. -C IF MITER = 3 IT UPDATES THE COEFFICIENT H*EL0 IN THE DIAGONAL -C MATRIX, AND THEN COMPUTES THE SOLUTION. -C IF MITER IS 4 OR 5, IT CALLS DGBSL. -C COMMUNICATION WITH SOLSY USES THE FOLLOWING VARIABLES.. -C WM = REAL WORK SPACE CONTAINING THE INVERSE DIAGONAL MATRIX IF -C MITER = 3 AND THE LU DECOMPOSITION OF THE MATRIX OTHERWISE. -C STORAGE OF MATRIX ELEMENTS STARTS AT WM(3). -C WM ALSO CONTAINS THE FOLLOWING MATRIX-RELATED DATA.. -C WM(1) = SQRT(UROUND) (NOT USED HERE), -C WM(2) = HL0, THE PREVIOUS VALUE OF H*EL0, USED IF MITER = 3. -C IWM = INTEGER WORK SPACE CONTAINING PIVOT INFORMATION, STARTING AT -C IWM(21), IF MITER IS 1, 2, 4, OR 5. IWM ALSO CONTAINS BAND -C PARAMETERS ML = IWM(1) AND MU = IWM(2) IF MITER IS 4 OR 5. -C X = THE RIGHT-HAND SIDE VECTOR ON INPUT, AND THE SOLUTION VECTOR -C ON OUTPUT, OF LENGTH N. -C TEM = VECTOR OF WORK SPACE OF LENGTH N, NOT USED IN THIS VERSION. -C IERSL = OUTPUT FLAG (IN COMMON). IERSL = 0 IF NO TROUBLE OCCURRED. -C IERSL = 1 IF A SINGULAR MATRIX AROSE WITH MITER = 3. -C THIS ROUTINE ALSO USES THE COMMON VARIABLES EL0, H, MITER, AND N. -C----------------------------------------------------------------------- - IERSL = 0 - GO TO (100, 100, 300, 400, 400), MITER -C 100 CALL DGESL (WM(3), N, N, IWM(21), X, 0) - 100 CALL KppSolve (WM(3), X) - RETURN -C - 300 PHL0 = WM(2) - HL0 = H*EL0 - WM(2) = HL0 - IF (HL0 .EQ. PHL0) GO TO 330 - R = HL0/PHL0 - DO 320 I = 1,N - DI = ONE - R*(ONE - ONE/WM(I+2)) - IF (ABS(DI) .EQ. ZERO) GO TO 390 - 320 WM(I+2) = ONE/DI - 330 DO 340 I = 1,N - 340 X(I) = WM(I+2)*X(I) - RETURN - 390 IERSL = 1 - RETURN -C - 400 ML = IWM(1) - MU = IWM(2) - MEBAND = 2*ML + MU + 1 - CALL DGBSL (WM(3), MEBAND, N, ML, MU, IWM(21), X, 0) - RETURN -C----------------------- END OF SUBROUTINE SOLSY ----------------------- - END - SUBROUTINE EWSET (N, ITOL, RTOL, ATOL, YCUR, EWT) -C----------------------------------------------------------------------- -C THIS SUBROUTINE SETS THE ERROR WEIGHT VECTOR EWT ACCORDING TO -C EWT(I) = RTOL(I)*ABS(YCUR(I)) + ATOL(I), I = 1,...,N, -C WITH THE SUBSCRIPT ON RTOL AND/OR ATOL POSSIBLY REPLACED BY 1 ABOVE, -C DEPENDING ON THE VALUE OF ITOL. -C----------------------------------------------------------------------- - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - DIMENSION RTOL(*), ATOL(*), YCUR(N), EWT(N) - RTOLI = RTOL(1) - ATOLI = ATOL(1) - DO 10 I = 1,N - IF (ITOL .GE. 3) RTOLI = RTOL(I) - IF (ITOL .EQ. 2 .OR. ITOL .EQ. 4) ATOLI = ATOL(I) - EWT(I) = RTOLI*ABS(YCUR(I)) + ATOLI - 10 CONTINUE - RETURN -C----------------------- END OF SUBROUTINE EWSET ----------------------- - END - DOUBLE PRECISION FUNCTION VNORM (N, V, W) -C----------------------------------------------------------------------- -C THIS FUNCTION ROUTINE COMPUTES THE WEIGHTED ROOT-MEAN-SQUARE NORM -C OF THE VECTOR OF LENGTH N CONTAINED IN THE ARRAY V, WITH WEIGHTS -C CONTAINED IN THE ARRAY W OF LENGTH N.. -C VNORM = SQRT( (1/N) * SUM( V(I)*W(I) )**2 ) -C PROTECTION FOR UNDERFLOW/OVERFLOW IS ACCOMPLISHED USING TWO -C CONSTANTS WHICH ARE HOPEFULLY APPLICABLE FOR ALL MACHINES. -C THESE ARE: -C CUTLO = maximum of SQRT(U/EPS) over all known machines -C CUTHI = minimum of SQRT(Z) over all known machines -C WHERE -C EPS = smallest number s.t. EPS + 1 .GT. 1 -C U = smallest positive number (underflow limit) -C Z = largest number (overflow limit) -C -C DETAILS OF THE ALGORITHM AND OF VALUES OF CUTLO AND CUTHI ARE -C FOUND IN THE BLAS ROUTINE SNRM2 (SEE ALSO ALGORITHM 539, TRANS. -C MATH. SOFTWARE, VOL. 5 NO. 3, 1979, 308-323. -C FOR SINGLE PRECISION, THE FOLLOWING VALUES SHOULD BE UNIVERSAL: -C DATA CUTLO,CUTHI /4.441E-16,1.304E19/ -C FOR DOUBLE PRECISION, USE -C DATA CUTLO,CUTHI /8.232D-11,1.304D19/ -C -C----------------------------------------------------------------------- - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - INTEGER NEXT,I,J,N - DIMENSION V(N),W(N) - DATA CUTLO,CUTHI /8.232D-11,1.304D19/ - DATA ZERO,ONE/0.0D0,1.0D0/ -C BLAS ALGORITHM - NEXT = 1 - SUM = ZERO - I = 1 -20 SX = V(I)*W(I) - GO TO (30,40,70,80),NEXT -30 IF (ABS(SX).GT.CUTLO) GO TO 110 - NEXT = 2 - XMAX = ZERO -40 IF (SX.EQ.ZERO) GO TO 130 - IF (ABS(SX).GT.CUTLO) GO TO 110 - NEXT = 3 - GO TO 60 -50 I=J - NEXT = 4 - SUM = (SUM/SX)/SX -60 XMAX = ABS(SX) - GO TO 90 -70 IF(ABS(SX).GT.CUTLO) GO TO 100 -80 IF(ABS(SX).LE.XMAX) GO TO 90 - SUM = ONE + SUM * (XMAX/SX)**2 - XMAX = ABS(SX) - GO TO 130 -90 SUM = SUM + (SX/XMAX)**2 - GO TO 130 -100 SUM = (SUM*XMAX)*XMAX -110 HITEST = CUTHI/REAL(N) - DO 120 J = I,N - SX = V(J)*W(J) - IF(ABS(SX).GE.HITEST) GO TO 50 - SUM = SUM + SX**2 -120 CONTINUE - VNORM = SQRT(SUM) - GO TO 140 -130 CONTINUE - I = I + 1 - IF (I.LE.N) GO TO 20 - VNORM = XMAX * SQRT(SUM) -140 CONTINUE - RETURN -C----------------------- END OF FUNCTION VNORM ------------------------- - END - SUBROUTINE SVCOM (RSAV, ISAV) -C----------------------------------------------------------------------- -C THIS ROUTINE STORES IN RSAV AND ISAV THE CONTENTS OF COMMON BLOCKS -C ODE001, ODE002 AND EH0001, WHICH ARE USED INTERNALLY IN THE ODESSA -C PACKAGE. -C RSAV = REAL ARRAY OF LENGTH 222 OR MORE. -C ISAV = INTEGER ARRAY OF LENGTH 52 OR MORE. -C----------------------------------------------------------------------- - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - DIMENSION RSAV(*), ISAV(*) - COMMON /ODE001/ RODE1(219), IODE1(39) - COMMON /ODE002/ RODE2(3), IODE2(11) - COMMON /EH0001/ IEH(2) - DATA LRODE1/219/, LIODE1/39/, LRODE2/3/, LIODE2/11/ -C - DO 10 I = 1,LRODE1 - 10 RSAV(I) = RODE1(I) - DO 20 I = 1,LRODE2 - J = LRODE1 + I - 20 RSAV(J) = RODE2(I) - DO 30 I = 1,LIODE1 - 30 ISAV(I) = IODE1(I) - DO 40 I = 1,LIODE2 - J = LIODE1 + I - 40 ISAV(J) = IODE2(I) - ISAV(LIODE1+LIODE2+1) = IEH(1) - ISAV(LIODE1+LIODE2+2) = IEH(2) - RETURN -C----------------------- END OF SUBROUTINE SVCOM ----------------------- - END - SUBROUTINE RSCOM (RSAV, ISAV) -C----------------------------------------------------------------------- -C THIS ROUTINE RESTORES FROM RSAV AND ISAV THE CONTENTS OF COMMON BLOCKS -C ODE001, ODE002 AND EH0001, WHICH ARE USED INTERNALLY IN THE ODESSSA -C PACKAGE. THIS PRESUMES THAT RSAV AND ISAV WERE LOADED BY MEANS -C OF SUBROUTINE SVCOM OR THE EQUIVALENT. -C----------------------------------------------------------------------- - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - DIMENSION RSAV(*), ISAV(*) - COMMON /ODE001/ RODE1(219), IODE1(39) - COMMON /ODE002/ RODE2(3), IODE2(11) - COMMON /EH0001/ IEH(2) - DATA LRODE1/219/, LIODE1/39/, LRODE2/3/, LIODE2/11/ -C - DO 10 I = 1,LRODE1 - 10 RODE1(I) = RSAV(I) - DO 20 I = 1,LRODE2 - J = LRODE1 + I - 20 RODE2(I) = RSAV(J) - DO 30 I = 1,LIODE1 - 30 IODE1(I) = ISAV(I) - DO 40 I = 1,LODE2 - J = LIODE1 + I - 40 IODE2(I) = ISAV(J) - IEH(1) = ISAV(LIODE1+LIODE2+1) - IEH(2) = ISAV(LIODE1+LIODE2+2) - RETURN -C----------------------- END OF SUBROUTINE RSCOM ----------------------- - END - SUBROUTINE DGEFA(A,LDA,N,IPVT,INFO) - INTEGER LDA,N,IPVT(*),INFO - DOUBLE PRECISION A(LDA,*) -C -C DGEFA FACTORS A DOUBLE PRECISION MATRIX BY GAUSSIAN ELIMINATION. -C -C DGEFA IS USUALLY CALLED BY DGECO, BUT IT CAN BE CALLED -C DIRECTLY WITH A SAVING IN TIME IF RCOND IS NOT NEEDED. -C (TIME FOR DGECO) = (1 + 9/N)*(TIME FOR DGEFA) . -C -C ON ENTRY -C -C A DOUBLE PRECISION(LDA, N) -C THE MATRIX TO BE FACTORED. -C -C LDA INTEGER -C THE LEADING DIMENSION OF THE ARRAY A . -C -C N INTEGER -C THE ORDER OF THE MATRIX A . -C -C ON RETURN -C -C A AN UPPER TRIANGULAR MATRIX AND THE MULTIPLIERS -C WHICH WERE USED TO OBTAIN IT. -C THE FACTORIZATION CAN BE WRITTEN A = L*U WHERE -C L IS A PRODUCT OF PERMUTATION AND UNIT LOWER -C TRIANGULAR MATRICES AND U IS UPPER TRIANGULAR. -C -C IPVT INTEGER(N) -C AN INTEGER VECTOR OF PIVOT INDICES. -C -C INFO INTEGER -C = 0 NORMAL VALUE. -C = K IF U(K,K) .EQ. 0.0 . THIS IS NOT AN ERROR -C CONDITION FOR THIS SUBROUTINE, BUT IT DOES -C INDICATE THAT DGESL OR DGEDI WILL DIVIDE BY ZERO -C IF CALLED. USE RCOND IN DGECO FOR A RELIABLE -C INDICATION OF SINGULARITY. -C -C LINPACK. THIS VERSION DATED 08/14/78 . -C CLEVE MOLER, UNIVERSITY OF NEW MEXICO, ARGONNE NATIONAL LAB. -C -C SUBROUTINES AND FUNCTIONS -C -C BLAS DAXPY,DSCAL,IDAMAX -C -C INTERNAL VARIABLES -C - DOUBLE PRECISION T - INTEGER IDAMAX,J,K,KP1,L,NM1 -C -C -C GAUSSIAN ELIMINATION WITH PARTIAL PIVOTING -C - INFO = 0 - NM1 = N - 1 - IF (NM1 .LT. 1) GO TO 70 - DO 60 K = 1, NM1 - KP1 = K + 1 -C -C FIND L = PIVOT INDEX -C - L = IDAMAX(N-K+1,A(K,K),1) + K - 1 - IPVT(K) = L -C -C ZERO PIVOT IMPLIES THIS COLUMN ALREADY TRIANGULARIZED -C - IF (A(L,K) .EQ. 0.0D0) GO TO 40 -C -C INTERCHANGE IF NECESSARY -C - IF (L .EQ. K) GO TO 10 - T = A(L,K) - A(L,K) = A(K,K) - A(K,K) = T - 10 CONTINUE -C -C COMPUTE MULTIPLIERS -C - T = -1.0D0/A(K,K) - CALL DSCAL(N-K,T,A(K+1,K),1) -C -C ROW ELIMINATION WITH COLUMN INDEXING -C - DO 30 J = KP1, N - T = A(L,J) - IF (L .EQ. K) GO TO 20 - A(L,J) = A(K,J) - A(K,J) = T - 20 CONTINUE - CALL DAXPY(N-K,T,A(K+1,K),1,A(K+1,J),1) - 30 CONTINUE - GO TO 50 - 40 CONTINUE - INFO = K - 50 CONTINUE - 60 CONTINUE - 70 CONTINUE - IPVT(N) = N - IF (A(N,N) .EQ. 0.0D0) INFO = N - RETURN - END - SUBROUTINE DGESL(A,LDA,N,IPVT,B,JOB) - INTEGER LDA,N,IPVT(*),JOB - DOUBLE PRECISION A(LDA,*),B(*) -C -C DGESL KppSolveS THE DOUBLE PRECISION SYSTEM -C A * X = B OR TRANS(A) * X = B -C USING THE FACTORS COMPUTED BY DGECO OR DGEFA. -C -C ON ENTRY -C -C A DOUBLE PRECISION(LDA, N) -C THE OUTPUT FROM DGECO OR DGEFA. -C -C LDA INTEGER -C THE LEADING DIMENSION OF THE ARRAY A . -C -C N INTEGER -C THE ORDER OF THE MATRIX A . -C -C IPVT INTEGER(N) -C THE PIVOT VECTOR FROM DGECO OR DGEFA. -C -C B DOUBLE PRECISION(N) -C THE RIGHT HAND SIDE VECTOR. -C -C JOB INTEGER -C = 0 TO KppSolve A*X = B , -C = NONZERO TO KppSolve TRANS(A)*X = B WHERE -C TRANS(A) IS THE TRANSPOSE. -C -C ON RETURN -C -C B THE SOLUTION VECTOR X . -C -C ERROR CONDITION -C -C A DIVISION BY ZERO WILL OCCUR IF THE INPUT FACTOR CONTAINS A -C ZERO ON THE DIAGONAL. TECHNICALLY THIS INDICATES SINGULARITY -C BUT IT IS OFTEN CAUSED BY IMPROPER ARGUMENTS OR IMPROPER -C SETTING OF LDA . IT WILL NOT OCCUR IF THE SUBROUTINES ARE -C CALLED CORRECTLY AND IF DGECO HAS SET RCOND .GT. 0.0 -C OR DGEFA HAS SET INFO .EQ. 0 . -C -C TO COMPUTE INVERSE(A) * C WHERE C IS A MATRIX -C WITH P COLUMNS -C CALL DGECO(A,LDA,N,IPVT,RCOND,Z) -C IF (RCOND IS TOO SMALL) GO TO ... -C DO 10 J = 1, P -C CALL DGESL(A,LDA,N,IPVT,C(1,J),0) -C 10 CONTINUE -C -C LINPACK. THIS VERSION DATED 08/14/78 . -C CLEVE MOLER, UNIVERSITY OF NEW MEXICO, ARGONNE NATIONAL LAB. -C -C SUBROUTINES AND FUNCTIONS -C -C BLAS DAXPY,DDOT -C -C INTERNAL VARIABLES -C - DOUBLE PRECISION DDOT,T - INTEGER K,KB,L,NM1 -C - NM1 = N - 1 - IF (JOB .NE. 0) GO TO 50 -C -C JOB = 0 , KppSolve A * X = B -C FIRST KppSolve L*Y = B -C - IF (NM1 .LT. 1) GO TO 30 - DO 20 K = 1, NM1 - L = IPVT(K) - T = B(L) - IF (L .EQ. K) GO TO 10 - B(L) = B(K) - B(K) = T - 10 CONTINUE - CALL DAXPY(N-K,T,A(K+1,K),1,B(K+1),1) - 20 CONTINUE - 30 CONTINUE -C -C NOW KppSolve U*X = Y -C - DO 40 KB = 1, N - K = N + 1 - KB - B(K) = B(K)/A(K,K) - T = -B(K) - CALL DAXPY(K-1,T,A(1,K),1,B(1),1) - 40 CONTINUE - GO TO 100 - 50 CONTINUE -C -C JOB = NONZERO, KppSolve TRANS(A) * X = B -C FIRST KppSolve TRANS(U)*Y = B -C - DO 60 K = 1, N - T = DDOT(K-1,A(1,K),1,B(1),1) - B(K) = (B(K) - T)/A(K,K) - 60 CONTINUE -C -C NOW KppSolve TRANS(L)*X = Y -C - IF (NM1 .LT. 1) GO TO 90 - DO 80 KB = 1, NM1 - K = N - KB - B(K) = B(K) + DDOT(N-K,A(K+1,K),1,B(K+1),1) - L = IPVT(K) - IF (L .EQ. K) GO TO 70 - T = B(L) - B(L) = B(K) - B(K) = T - 70 CONTINUE - 80 CONTINUE - 90 CONTINUE - 100 CONTINUE - RETURN - END - SUBROUTINE DGBFA(ABD,LDA,N,ML,MU,IPVT,INFO) - INTEGER LDA,N,ML,MU,IPVT(*),INFO - DOUBLE PRECISION ABD(LDA,*) -C -C DGBFA FACTORS A DOUBLE PRECISION BAND MATRIX BY ELIMINATION. -C -C DGBFA IS USUALLY CALLED BY DGBCO, BUT IT CAN BE CALLED -C DIRECTLY WITH A SAVING IN TIME IF RCOND IS NOT NEEDED. -C -C ON ENTRY -C -C ABD DOUBLE PRECISION(LDA, N) -C CONTAINS THE MATRIX IN BAND STORAGE. THE COLUMNS -C OF THE MATRIX ARE STORED IN THE COLUMNS OF ABD AND -C THE DIAGONALS OF THE MATRIX ARE STORED IN ROWS -C ML+1 THROUGH 2*ML+MU+1 OF ABD . -C SEE THE COMMENTS BELOW FOR DETAILS. -C -C LDA INTEGER -C THE LEADING DIMENSION OF THE ARRAY ABD . -C LDA MUST BE .GE. 2*ML + MU + 1 . -C -C N INTEGER -C THE ORDER OF THE ORIGINAL MATRIX. -C -C ML INTEGER -C NUMBER OF DIAGONALS BELOW THE MAIN DIAGONAL. -C 0 .LE. ML .LT. N . -C -C MU INTEGER -C NUMBER OF DIAGONALS ABOVE THE MAIN DIAGONAL. -C 0 .LE. MU .LT. N . -C MORE EFFICIENT IF ML .LE. MU . -C ON RETURN -C -C ABD AN UPPER TRIANGULAR MATRIX IN BAND STORAGE AND -C THE MULTIPLIERS WHICH WERE USED TO OBTAIN IT. -C THE FACTORIZATION CAN BE WRITTEN A = L*U WHERE -C L IS A PRODUCT OF PERMUTATION AND UNIT LOWER -C TRIANGULAR MATRICES AND U IS UPPER TRIANGULAR. -C -C IPVT INTEGER(N) -C AN INTEGER VECTOR OF PIVOT INDICES. -C -C INFO INTEGER -C = 0 NORMAL VALUE. -C = K IF U(K,K) .EQ. 0.0 . THIS IS NOT AN ERROR -C CONDITION FOR THIS SUBROUTINE, BUT IT DOES -C INDICATE THAT DGBSL WILL DIVIDE BY ZERO IF -C CALLED. USE RCOND IN DGBCO FOR A RELIABLE -C INDICATION OF SINGULARITY. -C -C BAND STORAGE -C -C IF A IS A BAND MATRIX, THE FOLLOWING PROGRAM SEGMENT -C WILL SET UP THE INPUT. -C -C ML = (BAND WIDTH BELOW THE DIAGONAL) -C MU = (BAND WIDTH ABOVE THE DIAGONAL) -C M = ML + MU + 1 -C DO 20 J = 1, N -C I1 = MAX0(1, J-MU) -C I2 = MIN0(N, J+ML) -C DO 10 I = I1, I2 -C K = I - J + M -C ABD(K,J) = A(I,J) -C 10 CONTINUE -C 20 CONTINUE -C -C THIS USES ROWS ML+1 THROUGH 2*ML+MU+1 OF ABD . -C IN ADDITION, THE FIRST ML ROWS IN ABD ARE USED FOR -C ELEMENTS GENERATED DURING THE TRIANGULARIZATION. -C THE TOTAL NUMBER OF ROWS NEEDED IN ABD IS 2*ML+MU+1 . -C THE ML+MU BY ML+MU UPPER LEFT TRIANGLE AND THE -C ML BY ML LOWER RIGHT TRIANGLE ARE NOT REFERENCED. -C -C LINPACK. THIS VERSION DATED 08/14/78 . -C CLEVE MOLER, UNIVERSITY OF NEW MEXICO, ARGONNE NATIONAL LAB. -C -C SUBROUTINES AND FUNCTIONS -C -C BLAS DAXPY,DSCAL,IDAMAX -C FORTRAN MAX0,MIN0 -C -C INTERNAL VARIABLES -C - DOUBLE PRECISION T - INTEGER I,IDAMAX,I0,J,JU,JZ,J0,J1,K,KP1,L,LM,M,MM,NM1 -C -C - M = ML + MU + 1 - INFO = 0 -C -C ZERO INITIAL FILL-IN COLUMNS -C - J0 = MU + 2 - J1 = MIN0(N,M) - 1 - IF (J1 .LT. J0) GO TO 30 - DO 20 JZ = J0, J1 - I0 = M + 1 - JZ - DO 10 I = I0, ML - ABD(I,JZ) = 0.0D0 - 10 CONTINUE - 20 CONTINUE - 30 CONTINUE - JZ = J1 - JU = 0 -C -C GAUSSIAN ELIMINATION WITH PARTIAL PIVOTING -C - NM1 = N - 1 - IF (NM1 .LT. 1) GO TO 130 - DO 120 K = 1, NM1 - KP1 = K + 1 -C -C ZERO NEXT FILL-IN COLUMN -C - JZ = JZ + 1 - IF (JZ .GT. N) GO TO 50 - IF (ML .LT. 1) GO TO 50 - DO 40 I = 1, ML - ABD(I,JZ) = 0.0D0 - 40 CONTINUE - 50 CONTINUE -C -C FIND L = PIVOT INDEX -C - LM = MIN0(ML,N-K) - L = IDAMAX(LM+1,ABD(M,K),1) + M - 1 - IPVT(K) = L + K - M -C -C ZERO PIVOT IMPLIES THIS COLUMN ALREADY TRIANGULARIZED -C - IF (ABD(L,K) .EQ. 0.0D0) GO TO 100 -C -C INTERCHANGE IF NECESSARY -C - IF (L .EQ. M) GO TO 60 - T = ABD(L,K) - ABD(L,K) = ABD(M,K) - ABD(M,K) = T - 60 CONTINUE -C -C COMPUTE MULTIPLIERS -C - T = -1.0D0/ABD(M,K) - CALL DSCAL(LM,T,ABD(M+1,K),1) -C -C ROW ELIMINATION WITH COLUMN INDEXING -C - JU = MIN0(MAX0(JU,MU+IPVT(K)),N) - MM = M - IF (JU .LT. KP1) GO TO 90 - DO 80 J = KP1, JU - L = L - 1 - MM = MM - 1 - T = ABD(L,J) - IF (L .EQ. MM) GO TO 70 - ABD(L,J) = ABD(MM,J) - ABD(MM,J) = T - 70 CONTINUE - CALL DAXPY(LM,T,ABD(M+1,K),1,ABD(MM+1,J),1) - 80 CONTINUE - 90 CONTINUE - GO TO 110 - 100 CONTINUE - INFO = K - 110 CONTINUE - 120 CONTINUE - 130 CONTINUE - IPVT(N) = N - IF (ABD(M,N) .EQ. 0.0D0) INFO = N - RETURN - END - SUBROUTINE DGBSL(ABD,LDA,N,ML,MU,IPVT,B,JOB) - INTEGER LDA,N,ML,MU,IPVT(*),JOB - DOUBLE PRECISION ABD(LDA,*),B(*) -C -C DGBSL KppSolveS THE DOUBLE PRECISION BAND SYSTEM -C A * X = B OR TRANS(A) * X = B -C USING THE FACTORS COMPUTED BY DGBCO OR DGBFA. -C -C ON ENTRY -C -C ABD DOUBLE PRECISION(LDA, N) -C THE OUTPUT FROM DGBCO OR DGBFA. -C -C LDA INTEGER -C THE LEADING DIMENSION OF THE ARRAY ABD . -C -C N INTEGER -C THE ORDER OF THE ORIGINAL MATRIX. -C -C ML INTEGER -C NUMBER OF DIAGONALS BELOW THE MAIN DIAGONAL. -C -C MU INTEGER -C NUMBER OF DIAGONALS ABOVE THE MAIN DIAGONAL. -C -C IPVT INTEGER(N) -C THE PIVOT VECTOR FROM DGBCO OR DGBFA. -C -C B DOUBLE PRECISION(N) -C THE RIGHT HAND SIDE VECTOR. -C -C JOB INTEGER -C = 0 TO KppSolve A*X = B , -C = NONZERO TO KppSolve TRANS(A)*X = B , WHERE -C TRANS(A) IS THE TRANSPOSE. -C -C ON RETURN -C -C B THE SOLUTION VECTOR X . -C -C ERROR CONDITION -C -C A DIVISION BY ZERO WILL OCCUR IF THE INPUT FACTOR CONTAINS A -C ZERO ON THE DIAGONAL. TECHNICALLY THIS INDICATES SINGULARITY -C BUT IT IS OFTEN CAUSED BY IMPROPER ARGUMENTS OR IMPROPER -C SETTING OF LDA . IT WILL NOT OCCUR IF THE SUBROUTINES ARE -C CALLED CORRECTLY AND IF DGBCO HAS SET RCOND .GT. 0.0 -C OR DGBFA HAS SET INFO .EQ. 0 . -C -C TO COMPUTE INVERSE(A) * C WHERE C IS A MATRIX -C WITH P COLUMNS -C CALL DGBCO(ABD,LDA,N,ML,MU,IPVT,RCOND,Z) -C IF (RCOND IS TOO SMALL) GO TO ... -C DO 10 J = 1, P -C CALL DGBSL(ABD,LDA,N,ML,MU,IPVT,C(1,J),0) -C 10 CONTINUE -C -C LINPACK. THIS VERSION DATED 08/14/78 . -C CLEVE MOLER, UNIVERSITY OF NEW MEXICO, ARGONNE NATIONAL LAB. -C -C SUBROUTINES AND FUNCTIONS -C -C BLAS DAXPY,DDOT -C FORTRAN MIN0 -C -C INTERNAL VARIABLES -C - DOUBLE PRECISION DDOT,T - INTEGER K,KB,L,LA,LB,LM,M,NM1 -C - M = MU + ML + 1 - NM1 = N - 1 - IF (JOB .NE. 0) GO TO 50 -C -C JOB = 0 , KppSolve A * X = B -C FIRST KppSolve L*Y = B -C - IF (ML .EQ. 0) GO TO 30 - IF (NM1 .LT. 1) GO TO 30 - DO 20 K = 1, NM1 - LM = MIN0(ML,N-K) - L = IPVT(K) - T = B(L) - IF (L .EQ. K) GO TO 10 - B(L) = B(K) - B(K) = T - 10 CONTINUE - CALL DAXPY(LM,T,ABD(M+1,K),1,B(K+1),1) - 20 CONTINUE - 30 CONTINUE -C -C NOW KppSolve U*X = Y -C - DO 40 KB = 1, N - K = N + 1 - KB - B(K) = B(K)/ABD(M,K) - LM = MIN0(K,M) - 1 - LA = M - LM - LB = K - LM - T = -B(K) - CALL DAXPY(LM,T,ABD(LA,K),1,B(LB),1) - 40 CONTINUE - GO TO 100 - 50 CONTINUE -C -C JOB = NONZERO, KppSolve TRANS(A) * X = B -C FIRST KppSolve TRANS(U)*Y = B -C - DO 60 K = 1, N - LM = MIN0(K,M) - 1 - LA = M - LM - LB = K - LM - T = DDOT(LM,ABD(LA,K),1,B(LB),1) - B(K) = (B(K) - T)/ABD(M,K) - 60 CONTINUE -C -C NOW KppSolve TRANS(L)*X = Y -C - IF (ML .EQ. 0) GO TO 90 - IF (NM1 .LT. 1) GO TO 90 - DO 80 KB = 1, NM1 - K = N - KB - LM = MIN0(ML,N-K) - B(K) = B(K) + DDOT(LM,ABD(M+1,K),1,B(K+1),1) - L = IPVT(K) - IF (L .EQ. K) GO TO 70 - T = B(L) - B(L) = B(K) - B(K) = T - 70 CONTINUE - 80 CONTINUE - 90 CONTINUE - 100 CONTINUE - RETURN - END - SUBROUTINE DAXPY(N,DA,DX,INCX,DY,INCY) -C -C CONSTANT TIMES A VECTOR PLUS A VECTOR. -C USES UNROLLED LOOPS FOR INCREMENTS EQUAL TO ONE. -C JACK DONGARRA, LINPACK, 3/11/78. -C - DOUBLE PRECISION DX(*),DY(*),DA - INTEGER I,INCX,INCY,IX,IY,M,MP1,N -C - IF(N.LE.0)RETURN - IF (DA .EQ. 0.0D0) RETURN - IF(INCX.EQ.1.AND.INCY.EQ.1)GO TO 20 -C -C CODE FOR UNEQUAL INCREMENTS OR EQUAL INCREMENTS -C NOT EQUAL TO 1 -C - IX = 1 - IY = 1 - IF(INCX.LT.0)IX = (-N+1)*INCX + 1 - IF(INCY.LT.0)IY = (-N+1)*INCY + 1 - DO 10 I = 1,N - DY(IY) = DY(IY) + DA*DX(IX) - IX = IX + INCX - IY = IY + INCY - 10 CONTINUE - RETURN -C -C CODE FOR BOTH INCREMENTS EQUAL TO 1 -C -C -C CLEAN-UP LOOP -C - 20 M = MOD(N,4) - IF( M .EQ. 0 ) GO TO 40 - DO 30 I = 1,M - DY(I) = DY(I) + DA*DX(I) - 30 CONTINUE - IF( N .LT. 4 ) RETURN - 40 MP1 = M + 1 - DO 50 I = MP1,N,4 - DY(I) = DY(I) + DA*DX(I) - DY(I + 1) = DY(I + 1) + DA*DX(I + 1) - DY(I + 2) = DY(I + 2) + DA*DX(I + 2) - DY(I + 3) = DY(I + 3) + DA*DX(I + 3) - 50 CONTINUE - RETURN - END - SUBROUTINE DSCAL(N,DA,DX,INCX) -C -C SCALES A VECTOR BY A CONSTANT. -C USES UNROLLED LOOPS FOR INCREMENT EQUAL TO ONE. -C JACK DONGARRA, LINPACK, 3/11/78. -C - DOUBLE PRECISION DA,DX(*) - INTEGER I,INCX,M,MP1,N,NINCX -C - IF(N.LE.0)RETURN - IF(INCX.EQ.1)GO TO 20 -C -C CODE FOR INCREMENT NOT EQUAL TO 1 -* -C - NINCX = N*INCX - DO 10 I = 1,NINCX,INCX - DX(I) = DA*DX(I) - 10 CONTINUE - RETURN -C -C CODE FOR INCREMENT EQUAL TO 1 -C -C -C CLEAN-UP LOOP -C - 20 M = MOD(N,5) - IF( M .EQ. 0 ) GO TO 40 - DO 30 I = 1,M - DX(I) = DA*DX(I) - 30 CONTINUE - IF( N .LT. 5 ) RETURN - 40 MP1 = M + 1 - DO 50 I = MP1,N,5 - DX(I) = DA*DX(I) - DX(I + 1) = DA*DX(I + 1) - DX(I + 2) = DA*DX(I + 2) - DX(I + 3) = DA*DX(I + 3) - DX(I + 4) = DA*DX(I + 4) - 50 CONTINUE - RETURN - END - DOUBLE PRECISION FUNCTION DDOT(N,DX,INCX,DY,INCY) -C -C FORMS THE DOT PRODUCT OF TWO VECTORS. -C USES UNROLLED LOOPS FOR INCREMENTS EQUAL TO ONE. -C JACK DONGARRA, LINPACK, 3/11/78. -C - DOUBLE PRECISION DX(*),DY(*),DTEMP - INTEGER I,INCX,INCY,IX,IY,M,MP1,N -C - DDOT = 0.0D0 - DTEMP = 0.0D0 - IF(N.LE.0)RETURN - IF(INCX.EQ.1.AND.INCY.EQ.1)GO TO 20 -C -C CODE FOR UNEQUAL INCREMENTS OR EQUAL INCREMENTS -C NOT EQUAL TO 1 -C - IX = 1 - IY = 1 - IF(INCX.LT.0)IX = (-N+1)*INCX + 1 - IF(INCY.LT.0)IY = (-N+1)*INCY + 1 - DO 10 I = 1,N - DTEMP = DTEMP + DX(IX)*DY(IY) - IX = IX + INCX - IY = IY + INCY - 10 CONTINUE - DDOT = DTEMP - RETURN -C -C CODE FOR BOTH INCREMENTS EQUAL TO 1 -C -C -C CLEAN-UP LOOP -C - 20 M = MOD(N,5) - IF( M .EQ. 0 ) GO TO 40 - DO 30 I = 1,M - DTEMP = DTEMP + DX(I)*DY(I) - 30 CONTINUE - IF( N .LT. 5 ) GO TO 60 - 40 MP1 = M + 1 - DO 50 I = MP1,N,5 - DTEMP = DTEMP + DX(I)*DY(I) + DX(I + 1)*DY(I + 1) + - * DX(I + 2)*DY(I + 2) + DX(I + 3)*DY(I + 3) + DX(I + 4)*DY(I + 4) - 50 CONTINUE - 60 DDOT = DTEMP - RETURN - END - INTEGER FUNCTION IDAMAX(N,DX,INCX) -C -C FINDS THE INDEX OF ELEMENT HAVING MAX. ABSOLUTE VALUE. -C JACK DONGARRA, LINPACK, 3/11/78. -C - DOUBLE PRECISION DX(*),DMAX - INTEGER I,INCX,IX,N -C - IDAMAX = 0 - IF( N .LT. 1 ) RETURN - IDAMAX = 1 - IF(N.EQ.1)RETURN - IF(INCX.EQ.1)GO TO 20 -C -C CODE FOR INCREMENT NOT EQUAL TO 1 -C - IX = 1 - DMAX = DABS(DX(1)) - IX = IX + INCX - DO 10 I = 2,N - IF(DABS(DX(IX)).LE.DMAX) GO TO 5 - IDAMAX = I - DMAX = DABS(DX(IX)) - 5 IX = IX + INCX - 10 CONTINUE - RETURN -C -C CODE FOR INCREMENT EQUAL TO 1 -C - 20 DMAX = DABS(DX(1)) - DO 30 I = 2,N - IF(DABS(DX(I)).LE.DMAX) GO TO 30 - IDAMAX = I - DMAX = DABS(DX(I)) - 30 CONTINUE - RETURN - END - DOUBLE PRECISION FUNCTION D1MACH (IDUM) - INTEGER IDUM -C----------------------------------------------------------------------- -C THIS ROUTINE COMPUTES THE UNIT ROUNDOFF OF THE MACHINE IN DOUBLE -C PRECISION. THIS IS DEFINED AS THE SMALLEST POSITIVE MACHINE NUMBER -C U SUCH THAT 1.0D0 + U .NE. 1.0D0 (IN DOUBLE PRECISION). -C----------------------------------------------------------------------- - DOUBLE PRECISION U, COMP - U = 1.0D0 - 10 U = U*0.5D0 - COMP = 1.0D0 + U - IF (COMP .NE. 1.0D0) GO TO 10 - D1MACH = U*2.0D0 - RETURN -C----------------------- END OF FUNCTION D1MACH ------------------------ - END - SUBROUTINE XERR (MSG, NERR, IERT, NI, I1, I2, NR, R1, R2) - INTEGER NERR, IERT, NI, I1, I2, NR, - 1 LUN, LUNIT, MESFLG - DOUBLE PRECISION R1, R2 - CHARACTER*(*) MSG -C------------------------------------------------------------------- -C -C ALL ARGUMENTS ARE INPUT ARGUMENTS. -C -C MSG = THE MESSAGE (CHARACTER VARIABLE) -C NERR = THE ERROR NUMBER (NOT USED). -C IERT = THE ERROR TYPE.. -C 1 MEANS RECOVERABLE (CONTROL RETURNS TO CALLER). -C 2 MEANS FATAL (RUN IS ABORTED--SEE NOTE BELOW). -C NI = NUMBER OF INTEGERS (0, 1, OR 2) TO BE PRINTED WITH MESSAGE. -C I1,I2 = INTEGERS TO BE PRINTED, DEPENDING ON NI. -C NR = NUMBER OF REALS (0, 1, OR 2) TO BE PRINTED WITH MESSAGE. -C R1,R2 = REALS TO BE PRINTED, DEPENDING ON NR. -C -C NOTES: -C 1. THE DIMENSION OF MSG IS ASSUMED TO BE AT MOST 60. -C (MULTI-LINE MESSAGES ARE GENERATED BY REPEATED CALLS.) -C 2. IF IERT = 2, CONTROL PASSES TO THE STATEMENT STOP -C TO ABORT THE RUN. THIS STATEMENT MAY BE MACHINE-DEPENDENT. -C 3. R1 AND R2 ARE ASSUMED TO BE IN DOUBLE PRECISION AND ARE PRINTED -C IN D21.13 FORMAT. -C 4. THE COMMON BLOCK /EH0001/ BELOW IS DATA-LOADED (A MACHINE- -C DEPENDENT FEATURE) WITH DEFAULT VALUES. -C THIS BLOCK IS NEEDED FOR PROPER RETENTION OF PARAMETERS USED BY -C THIS ROUTINE WHICH THE USER CAN RESET BY CALLING XSETF OR XSETUN. -C THE VARIABLES IN THIS BLOCK ARE AS FOLLOWS.. -C MESFLG = PRINT CONTROL FLAG.. -C 1 MEANS PRINT ALL MESSAGES (THE DEFAULT). -C 0 MEANS NO PRINTING. -C LUNIT = LOGICAL UNIT NUMBER FOR MESSAGES. -C THE DEFAULT IS 6 (MACHINE-DEPENDENT). -C 5. TO CHANGE THE DEFAULT OUTPUT UNIT, CHANGE THE DATA STATEMENT -C IN THE BLOCK DATA SUBPROGRAM BELOW. -C -C FOR A DIFFERENT RUN-ABORT COMMAND, CHANGE THE STATEMENT FOLLOWING -C STATEMENT 100 AT THE END. -C----------------------------------------------------------------------- - COMMON /EH0001/ MESFLG, LUNIT - IF (MESFLG .EQ. 0) GO TO 100 -C GET LOGICAL UNIT NUMBER. --------------------------------------------- - LUN = LUNIT -C WRITE THE MESSAGE. --------------------------------------------------- - WRITE (LUN, 10) MSG - 10 FORMAT(1X,A) -C----------------------------------------------------------------------- - IF (NI .EQ. 1) WRITE (LUN, 20) I1 - 20 FORMAT(6X,'IN ABOVE MESSAGE, I1 = ',I10) - IF (NI .EQ. 2) WRITE (LUN, 30) I1,I2 - 30 FORMAT(6X,'IN ABOVE MESSAGE, I1 = ',I10,3X,'I2 = ',I10) - IF (NR .EQ. 1) WRITE (LUN, 40) R1 - 40 FORMAT(6X,'IN ABOVE MESSAGE, R1 = ',D21.13) - IF (NR .EQ. 2) WRITE (LUN, 50) R1,R2 - 50 FORMAT(6X,'IN ABOVE, R1 = ',D21.13,3X,'R2 = ',D21.13) -C ABORT THE RUN IF IERT = 2. ------------------------------------------- - 100 IF (IERT .NE. 2) RETURN - STOP -C----------------------- END OF SUBROUTINE XERR ---------------------- - END - SUBROUTINE XSETF (MFLAG) -C -C THIS ROUTINE RESETS THE PRINT CONTROL FLAG MFLAG. -C - INTEGER MFLAG, MESFLG, LUNIT - COMMON /EH0001/ MESFLG, LUNIT -C - IF (MFLAG .EQ. 0 .OR. MFLAG .EQ. 1) MESFLG = MFLAG - RETURN -C----------------------- END OF SUBROUTINE XSETF ----------------------- - END - SUBROUTINE XSETUN (LUN) -C -C THIS ROUTINE RESETS THE LOGICAL UNIT NUMBER FOR MESSAGES. -C - INTEGER LUN, MESFLG, LUNIT - COMMON /EH0001/ MESFLG, LUNIT -C - IF (LUN .GT. 0) LUNIT = LUN - RETURN -C----------------------- END OF SUBROUTINE XSETUN ---------------------- - END - BLOCK DATA -C----------------------------------------------------------------------- -C THIS DATA SUBPROGRAM LOADS VARIABLES INTO THE INTERNAL COMMON -C BLOCKS USED BY ODESSA AND ITS VARIANTS. THE VARIABLES ARE -C DEFINED AS FOLLOWS.. -C ILLIN = COUNTER FOR THE NUMBER OF CONSECUTIVE TIMES THE PACKAGE -C WAS CALLED WITH ILLEGAL INPUT. THE RUN IS STOPPED WHEN -C ILLIN REACHES 5. -C NTREP = COUNTER FOR THE NUMBER OF CONSECUTIVE TIMES THE PACKAGE -C WAS CALLED WITH ISTATE = 1 AND TOUT = T. THE RUN IS -C STOPPED WHEN NTREP REACHES 5. -C MESFLG = FLAG TO CONTROL PRINTING OF ERROR MESSAGES. 1 MEANS PRINT, -C 0 MEANS NO PRINTING. -C LUNIT = DEFAULT VALUE OF LOGICAL UNIT NUMBER FOR PRINTING OF ERROR -C MESSAGES. -C----------------------------------------------------------------------- - INTEGER ILLIN, IDUMA, NTREP, IDUMB, IOWNS, ICOMM, MESFLG, LUNIT - DOUBLE PRECISION ROWND, ROWNS, RCOMM - COMMON /ODE001/ ROWND, ROWNS(173), RCOMM(45), - 1 ILLIN, IDUMA(10), NTREP, IDUMB(2), IOWNS(4), ICOMM(21) - COMMON /EH0001/ MESFLG, LUNIT - DATA ILLIN/0/, NTREP/0/ - DATA MESFLG/1/, LUNIT/6/ -C -C------------------------ END OF BLOCK DATA ---------------------------- - END -C----------------------------------------------------------------------- -C INSTRUCTIONS FOR INSTALLING THE ODESSA PACKAGE. (see @ below.) -C -C ODESSA is an enhanced version of the widely disseminated ODE solver -C LSODE, and as such retains the same properties regarding portability. -C The notes below, adapted from the installation instructions for LSODE, -C are intended to facilitate the installation of the ODESSA package in -C the user's software library. -C -C 1. Both a single and a double precision version of ODESSA are -C provided in this release. It is expected that most users will -C utilize the double precision version, except in the case of -C extended word-length computers. Most routines used by ODESSA -C are named the same regardless of whether they are single or -C double precision. The exceptions are the LINPAK and BLAS -C routines that follow the LINPAK/BLAS naming conventions, i.e. -C D--- for a double precision routine, and S--- for a single -C precision routine. Thus, care should be taken if both single -C and double precision versions are stored in the same library. -C -C 2. Several routines in ODESSA have the same names as the LSODE -C routines from which they were derived, although they contain -C different code. These are: INTDY, STODE, PREPJ, SVCOM, and -C RSCOM. If ODESSA is added to a subroutine library of which -C LSODE is already a member, these routine names must be changed -C in one of the two programs. Also see the note regarding BLOCK -C DATA subroutines below. -C -C 3. In many cases, ODESSA uses unaltered LSODE routines and -C common library routines that may already reside on your system. -C The installation of ODESSA should be done so that identical routines -C are shared rather than kept as duplicate copies. -C a. Normally, the user calls only subroutine ODESSA, but for optional -C capabilities the user may also CALL XSETUN, XSETF, SVCOM, RSCOM, -C or INTDY, as described in Part II of the Full Description in the -C User Documentation (ODESSA.DOC, see below). Except for INTDY, -C none of these are called from within the package. -C b. Two routines, EWSET and VNORM, are optionally replaceable by the -C user if the package version is unsuitable. Hence, the install- -C ation of the package should be done so that the user's version -C for either routine overrides the package version. -C c. The function routine D1MACH is provided to compute the unit -C roundoff of the machine and precision in use, in a manner com- -C patible with machine parameter routines developed at Bell Lab- -C oratories. If such a routine has already been installed on -C your system, the version supplied here may be discarded. -C d. Linear algebraic systems are solved with routines from the -C LINPACK collection, in conjunction with routines from the Basic -C Linear Algebra module collection (BLAS). In double precision, -C the names are DGEFA, DGESL, DGBFA, and DGBSL (from LINPACK), and -C DAXPY, DSCAL, IDAMAX, and DDOT (from BLAS). If these routines -C have already been installed on your system, copies supplied with -C ODESSA may be discarded. The single precision versions of these -C routines are used in the single precision version. -C -C 4. There are four integer variables, in the two labeled COMMON -C blocks /ODE001/ and /EH0001/, which need to be loaded with DATA -C statements. They can vary during execution, and are in common to -C assure their retention between calls. This is legal in ANSI Fortran -C only if done in a BLOCK DATA subprogram, and this package has a -C BLOCK DATA for this purpose. However, BLOCK DATA subprograms can be -C difficult to install in libraries, and many compilers allow such DATA -C statements in subroutines. If your system allows this, the location -C of the DATA statements are just after the initial type and common -C declarations in subroutines ODESSA and XERR. In ODESSA, ILLIN and -C NTREP are DATA-loaded as 0. In XERR, MESFLG is loaded as 1 and -C LUNIT is loaded as the appropriate default logical unit number. -C -C 5. The ODESSA package contains subscript expressions which may not -C be accepted by some compilers. Subscripts of the form I + J, I - J, -C etc., occur in various routines. If any of these forms are -C unacceptable to your compiler, an extra line of code setting the -C subscript to a dummy integer value should be added for each subscipt. -C -C 6. User documentation is provided in a two-level structure -C to accommmodate both the casual and serious user. The novice or -C casual user should need to read only the Summary of Usage and the -C Example Problem located at the beginning of the documentation. More -C experienced users, requiring the full set of available options, -C should read the Full Description which follows the Example Problem. -C -C 7. The user documentation may need corrections in the following ways: -C a. If subroutine names have been changed to avoid conflicts between -C the LSODE and ODESSA packages, the corresponding name changes -C should be made in the documentation. -C b. In the Summary of Usage, and in the description of XSETUN under -C Part II of the Full Description, the default logical unit number -C should be corrected if it is not 6. -C c. In the Summary of Usage, users should be instructed to execute -C CALL XSETF(1) before the first CALL to ODESSA, if this is neces- -C sary for proper error message handling. (see note 2(e) above.) -C d. In the description of the subroutines DF and JAC in the Summary -C of Usage and in Part I of the Full Description, it is stated -C that dummy names may be passed if these two routines are not user -C supplied. Your system may require the user to supply a dummy -C subroutine instead. -C e. The ODESSA package treats the arguments NEQ, RTOL, and ATOL as -C arrays (possibly of length 1), while the usage documentation -C states that these arguments may be either arrays or scalars. -C If your system does not allow such a mismatch, then the -C documentation should be changed to reflect this. -C 8. A demonstration program is provided with the package for -C verification. -C -C -C Jorge R. Leis and Mark A. Kramer -C Department of Chemical Engineering -C Massachusetts Institute of Technology -C Cambridge, Massachusetts 02139 -C U.S.A. -C -C Current address of J.R. Leis (Jan. 1988): -C -C Shell Development Company -C Westhollow Research Center -C Houston, TX -C -C @ Adapted from 'Instructions for Installing LSODE', written by -C Alan C. Hindmarsh, Mathematics & Statistics Division, L-316, -C Lawrence Livermore National Laboratory, Livermore, CA. 94550 diff --git a/int.modified_WCOPY/kpp_radau5.def b/int.modified_WCOPY/kpp_radau5.def deleted file mode 100644 index e7d0bf54dc5b3f11c57cf537c2ed97d37ccde18f..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/kpp_radau5.def +++ /dev/null @@ -1,5 +0,0 @@ -#FUNCTION AGGREGATE -#JACOBIAN SPARSE_LU_ROW -#DOUBLE ON -#INTFILE kpp_radau5 - diff --git a/int.modified_WCOPY/kpp_radau5.f90 b/int.modified_WCOPY/kpp_radau5.f90 deleted file mode 100644 index 876c88b5c58e0645c0ec46d0b0a3532644fab5db..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/kpp_radau5.f90 +++ /dev/null @@ -1,1201 +0,0 @@ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! -! RADAU5 - Runge-Kutta method based on Radau-2A quadrature ! -! (2 stages, order 5) ! -! By default the code employs the KPP sparse linear algebra routines ! -! Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK) ! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! - -MODULE KPP_ROOT_Integrator - - USE KPP_ROOT_Precision, ONLY: dp - USE KPP_ROOT_Parameters, ONLY: NVAR, LU_NONZERO - USE KPP_ROOT_Jacobian, ONLY: LU_DIAG - USE KPP_ROOT_LinearAlgebra - - IMPLICIT NONE - PUBLIC - SAVE - - ! Statistics - INTEGER :: Nfun, Njac, Nstp, Nacc, Nrej, Ndec, Nsol, Nsng - - ! Method parameters - KPP_REAL :: Transf(3,3), TransfInv(3,3), & - rkA(3,3), rkB(3), rkC(3), rkE(3), & - rkGamma, rkAlpha, rkBeta - - ! description of the error numbers IERR - CHARACTER(LEN=50), PARAMETER, DIMENSION(-11:1) :: IERR_NAMES = (/ & - 'Matrix is repeatedly singular ', & ! -11 - 'Step size too small: T + 10*H = T or H < Roundoff ', & ! -10 - 'No of steps exceeds maximum bound ', & ! -9 - 'Tolerances are too small ', & ! -8 - 'Improper values for Qmin, Qmax ', & ! -7 - 'Newton stopping tolerance too small ', & ! -6 - 'Improper value for ThetaMin ', & ! -5 - 'Improper values for FacMin/FacMax/FacSafe/FacRej ', & ! -4 - 'Hmin/Hmax/Hstart must be positive ', & ! -3 - 'Improper value for maximal no of Newton iterations', & ! -2 - 'Improper value for maximal no of steps ', & ! -1 - ' ', & ! 0 (not used) - 'Success ' /) ! 1 - -CONTAINS - - ! ************************************************************************** - - SUBROUTINE INTEGRATE( TIN, TOUT, & - ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U, IERR_U ) - - USE KPP_ROOT_Parameters, ONLY: NVAR - USE KPP_ROOT_Global, ONLY: ATOL,RTOL,VAR - - IMPLICIT NONE - - KPP_REAL :: TIN ! TIN - Start Time - KPP_REAL :: TOUT ! TOUT - End Time - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - KPP_REAL, INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - KPP_REAL, INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: IERR_U - - KPP_REAL, SAVE :: H - INTEGER :: IERR - - KPP_REAL :: RCNTRL(20), RSTATUS(20) - INTEGER :: ICNTRL(20), ISTATUS(20) - INTEGER, SAVE :: Ntotal = 0 - - H =0.0_dp - - !~~~> fine-tune the integrator: - ICNTRL(:) = 0 - ICNTRL(2) = 0 ! 0=vector tolerances, 1=scalar tolerances - ICNTRL(5) = 8 ! Max no. of Newton iterations - ICNTRL(6) = 1 ! Starting values for Newton are interpolated (0) or zero (1) - ICNTRL(11) = 1 ! Gustaffson (1) or classic(2) controller - RCNTRL(1:20) = 0._dp - - !~~~> if optional parameters are given, and if they are >0, - ! then use them to overwrite default settings - IF (PRESENT(ICNTRL_U)) ICNTRL(1:20) = ICNTRL_U(1:20) - IF (PRESENT(RCNTRL_U)) RCNTRL(1:20) = RCNTRL_U(1:20) - - - CALL RADAU5( NVAR,TIN,TOUT,VAR,H, & - RTOL,ATOL, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR ) - -!!$ Ntotal = Ntotal + Nstp -!!$ PRINT*,'NSTEPS=',Nstp,' (',Ntotal,')' - - Nfun = Nfun + ISTATUS(1) - Njac = Njac + ISTATUS(2) - Nstp = Nstp + ISTATUS(3) - Nacc = Nacc + ISTATUS(4) - Nrej = Nrej + ISTATUS(5) - Ndec = Ndec + ISTATUS(6) - Nsol = Nsol + ISTATUS(7) - Nsng = Nsng + ISTATUS(8) - - ! if optional parameters are given for output - ! use them to store information in them - IF (PRESENT(ISTATUS_U)) THEN - ISTATUS_U(:) = 0 - ISTATUS_U(1) = Nfun ! function calls - ISTATUS_U(2) = Njac ! jacobian calls - ISTATUS_U(3) = Nstp ! steps - ISTATUS_U(4) = Nacc ! accepted steps - ISTATUS_U(5) = Nrej ! rejected steps (except at the beginning) - ISTATUS_U(6) = Ndec ! LU decompositions - ISTATUS_U(7) = Nsol ! forward/backward substitutions - ENDIF - IF (PRESENT(RSTATUS_U)) THEN - RSTATUS_U(:) = 0. - RSTATUS_U(1) = TOUT ! final time - ENDIF - IF (PRESENT(IERR_U)) IERR_U = IERR - -! mz_rs_20050716: IERR is returned to the user who then decides what to do -! about it, i.e. either stop the run or ignore it. -!!$ IF (IERR < 0) THEN -!!$ PRINT *,'RADAU: Unsuccessful exit at T=', TIN,' (IERR=',IERR,')' -!!$ STOP -!!$ ENDIF - - END SUBROUTINE INTEGRATE - - SUBROUTINE RADAU5(N,T,Tend,Y,H,RelTol,AbsTol, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IDID) - -!~~~>----------------------------------------------- -! NUMERICAL SOLUTION OF A STIFF (OR DIFFERENTIAL ALGEBRAIC) -! SYSTEM OF FirstStep 0RDER ORDINARY DIFFERENTIAL EQUATIONS -! M*Y'=F(T,Y). -! THE SYSTEM CAN BE (LINEARLY) IMPLICIT (MASS-MATRIX M /= I) -! OR EXPLICIT (M=I). -! THE METHOD USED IS AN IMPLICIT RUNGE-KUTTA METHOD (RADAU IIA) -! OF ORDER 5 WITH STEP SIZE CONTROL AND CONTINUOUS OUTPUT. -! C.F. SECTION IV.8 -! -! AUTHORS: E. HAIRER AND G. WANNER -! UNIVERSITE DE GENEVE, DEPT. DE MATHEMATIQUES -! CH-1211 GENEVE 24, SWITZERLAND -! E-MAIL: HAIRER@DIVSUN.UNIGE.CH, WANNER@DIVSUN.UNIGE.CH -! -! THIS CODE IS PART OF THE BOOK: -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS 14, -! SPRINGER-VERLAG (1991) -! -! VERSION OF SEPTEMBER 30, 1995 -! -! INPUT PARAMETERS -! ---------------- -! N DIMENSION OF THE SYSTEM -! -! FCN NAME (EXTERNAL) OF SUBROUTINE COMPUTING THE -! VALUE OF F(T,Y): -! SUBROUTINE FCN(N,T,Y,F) -! KPP_REAL T,Y(N),F(N) -! F(1)=... ETC. -! RPAR, IPAR (SEE BELOW) -! -! T INITIAL TIME VALUE -! -! Tend FINAL T-VALUE (Tend-T MAY BE POSITIVE OR NEGATIVE) -! -! Y(N) INITIAL VALUES FOR Y -! -! H INITIALL STEP SIZE GUESS; -! FOR STIFF EQUATIONS WITH INITIALL TRANSIENT, -! H=1.D0/(NORM OF F'), USUALLY 1.D-3 OR 1.D-5, IS GOOD. -! THIS CHOICE IS NOT VERY IMPORTANT, THE STEP SIZE IS -! QUICKLY ADAPTED. (IF H=0.D0, THE CODE PUTS H=1.D-6). -! -! RelTol,AbsTol RELATIVE AND ABSOLUTE ERROR TOLERANCES. -! for ICNTRL(2) = 0: AbsTol, RelTol are N-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ----- CONTINUOUS OUTPUT: ----- -! DURING CALLS TO "SOLOUT", A CONTINUOUS SOLUTION -! FOR THE INTERVAL [Told,T] IS AVAILABLE THROUGH -! THE FUNCTION -! >>> CONTR5(I,S,CONT,LRC) <<< -! WHICH PROVIDES AN APPROXIMATION TO THE I-TH -! COMPONENT OF THE SOLUTION AT THE POINT S. THE VALUE -! S SHOULD LIE IN THE INTERVAL [Told,T]. -! DO NOT CHANGE THE ENTRIES OF CONT(LRC), IF THE -! DENSE OUTPUT FUNCTION IS USED. -!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT PARAMETERS: -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -!~~~> Integer input parameters: -! -! ICNTRL(1) = not used -! -! ICNTRL(2) = 0: AbsTol, RelTol are NVAR-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ICNTRL(3) = not used -! -! ICNTRL(4) -> maximum number of integration steps -! For ICNTRL(4)=0 the default value of 10000 is used -! -! ICNTRL(5) -> maximum number of Newton iterations -! For ICNTRL(5)=0 the default value of 8 is used -! -! ICNTRL(6) -> starting values of Newton iterations: -! ICNTRL(6)=0 : starting values are obtained from -! the extrapolated collocation solution -! (the default) -! ICNTRL(6)=1 : starting values are zero -! -! ICNTRL(11) -> switch for step size strategy -! ICNTRL(8) == 1: mod. predictive controller (Gustafsson) -! ICNTRL(8) == 2: classical step size control -! the default value (for iwork(8)=0) is iwork(8)=1. -! the choice iwork(8) == 1 seems to produce safer results; -! for simple problems, the choice iwork(8) == 2 produces -! often slightly faster runs -! ( currently unused ) -! -!~~~> Real input parameters: -! -! RCNTRL(1) -> not used -! -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! -! RCNTRL(3) -> not used -! -! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! -! RCNTRL(5) -> FacMax, upper bound on step increase factor (default=6) -! -! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! -! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -! -! RCNTRL(8) -> ThetaMin. If Newton convergence rate smaller -! than ThetaMin the Jacobian is not recomputed; -! (default=0.001) -! -! RCNTRL(9) -> NewtonTol, stopping criterion for Newton's method -! (default=0.03) -! -! RCNTRL(10) -> Qmin -! -! RCNTRL(11) -> Qmax. If Qmin < Hnew/Hold < Qmax, then the -! step size is kept constant and the LU factorization -! reused (default Qmin=1, Qmax=1.2) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! -! OUTPUT PARAMETERS -! ----------------- -! T T-VALUE FOR WHICH THE SOLUTION HAS BEEN COMPUTED -! (AFTER SUCCESSFUL RETURN T=Tend). -! -! Y(N) NUMERICAL SOLUTION AT T -! -! H PREDICTED STEP SIZE OF THE LastStep ACCEPTED STEP -! -! IDID REPORTS ON SUCCESSFULNESS UPON RETURN: -! -! ISTATUS(1) = No. of function calls -! ISTATUS(2) = No. of jacobian calls -! ISTATUS(3) = No. of steps -! ISTATUS(4) = No. of accepted steps -! ISTATUS(5) = No. of rejected steps (except at the beginning) -! ISTATUS(6) = No. of LU decompositions -! ISTATUS(7) = No. of forward/backward substitutions -! ISTATUS(8) = No. of singular matrix decompositions -! -! RSTATUS(1) -> Texit, the time corresponding to the -! computed Y upon return -! RSTATUS(2) -> Hexit, last accepted step before exit -! For multiple restarts, use Hexit as Hstart -! in the subsequent run -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - INTEGER :: N - KPP_REAL :: Y(N),AbsTol(N),RelTol(N),RCNTRL(20),RSTATUS(20) - INTEGER :: ICNTRL(20), ISTATUS(20) - LOGICAL :: StartNewton, Gustafsson - INTEGER :: IDID, ITOL - KPP_REAL :: H,Tend,T - - !~~~> Control arguments - INTEGER :: Max_no_steps, NewtonMaxit - KPP_REAL :: Hstart,Hmin,Hmax,Qmin,Qmax - KPP_REAL :: Roundoff, ThetaMin,TolNewton - KPP_REAL :: FacSafe,FacMin,FacMax,FacRej - !~~~> Local variables - INTEGER :: i - KPP_REAL, PARAMETER :: ZERO = 0.0d0, ONE = 1.0d0 - - !~~~> variables from the former COMMON block /CONRA5/ - ! KPP_REAL :: Tsol, Hsol - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! SETTING THE PARAMETERS -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - Nfun=0 - Njac=0 - Nstp=0 - Nacc=0 - Nrej=0 - Ndec=0 - Nsol=0 - IDID = 0 - -!~~~> ICNTRL(1) - autonomous system - not used -!~~~> ITOL: 1 for vector and 0 for scalar AbsTol/RelTol - IF (ICNTRL(2) == 0) THEN - ITOL = 1 - ELSE - ITOL = 0 - END IF -!~~~> ICNTRL(3) - method selection - not used -!~~~> Max_no_steps: the maximal number of time steps - IF (ICNTRL(4) == 0) THEN - Max_no_steps = 10000 - ELSE - Max_no_steps=ICNTRL(4) - IF (Max_no_steps <= 0) THEN - WRITE(6,*) 'ICNTRL(4)=',ICNTRL(4) - CALL RAD_ErrorMsg(-1,T,ZERO,IDID) - END IF - END IF -!~~~> NewtonMaxit MAXIMAL NUMBER OF NEWTON ITERATIONS - IF (ICNTRL(5) == 0) THEN - NewtonMaxit = 8 - ELSE - NewtonMaxit=ICNTRL(5) - IF (NewtonMaxit <= 0) THEN - WRITE(6,*) 'ICNTRL(5)=',ICNTRL(5) - CALL RAD_ErrorMsg(-2,T,ZERO,IDID) - END IF - END IF -!~~~> StartNewton: Use extrapolation for starting values of Newton iterations - IF (ICNTRL(6) == 0) THEN - StartNewton = .TRUE. - ELSE - StartNewton = .FALSE. - END IF -!~~~> Gustafsson: step size controller - IF(ICNTRL(11) == 0)THEN - Gustafsson=.TRUE. - ELSE - Gustafsson=.FALSE. - END IF - - -!~~~> Roundoff SMALLEST NUMBER SATISFYING 1.0d0+Roundoff>1.0d0 - Roundoff=WLAMCH('E'); - -!~~~> RCNTRL(1) = Hmin - not used - Hmin = ZERO -!~~~> Hmax = maximal step size - IF (RCNTRL(2) == ZERO) THEN - Hmax=Tend-T - ELSE - Hmax=MAX(ABS(RCNTRL(7)),ABS(Tend-T)) - END IF -!~~~> RCNTRL(3) = Hstart - not used - Hstart = ZERO -!~~~> FacMin: lower bound on step decrease factor - IF(RCNTRL(4) == ZERO)THEN - FacMin = 0.2d0 - ELSE - FacMin = RCNTRL(4) - END IF -!~~~> FacMax: upper bound on step increase factor - IF(RCNTRL(5) == ZERO)THEN - FacMax = 8.D0 - ELSE - FacMax = RCNTRL(5) - END IF -!~~~> FacRej: step decrease factor after 2 consecutive rejections - IF(RCNTRL(6) == ZERO)THEN - FacRej = 0.1d0 - ELSE - FacRej = RCNTRL(6) - END IF -!~~~> FacSafe: by which the new step is slightly smaller -! than the predicted value - IF (RCNTRL(7) == ZERO) THEN - FacSafe=0.9d0 - ELSE - FacSafe=RCNTRL(7) - END IF - IF ( (FacMax < ONE) .OR. (FacMin > ONE) .OR. & - (FacSafe <= 0.001D0) .OR. (FacSafe >= 1.0d0) ) THEN - WRITE(6,*)'RCNTRL(4:7)=',RCNTRL(4:7) - CALL RAD_ErrorMsg(-4,T,ZERO,IDID) - END IF - -!~~~> ThetaMin: decides whether the Jacobian should be recomputed - IF (RCNTRL(8) == ZERO) THEN - ThetaMin = 1.0d-3 - ELSE - ThetaMin=RCNTRL(8) - IF (ThetaMin <= 0.0d0 .OR. ThetaMin >= 1.0d0) THEN - WRITE(6,*) 'RCNTRL(8)=', RCNTRL(8) - CALL RAD_ErrorMsg(-5,T,ZERO,IDID) - END IF - END IF -!~~~> TolNewton: stopping crierion for Newton's method - IF (RCNTRL(9) == ZERO) THEN - TolNewton = 3.0d-2 - ELSE - TolNewton = RCNTRL(9) - IF (TolNewton <= Roundoff) THEN - WRITE(6,*) 'RCNTRL(9)=',RCNTRL(9) - CALL RAD_ErrorMsg(-6,T,ZERO,IDID) - END IF - END IF -!~~~> Qmin AND Qmax: IF Qmin < Hnew/Hold < Qmax, STEP SIZE = CONST. - IF (RCNTRL(10) == ZERO) THEN - Qmin=1.D0 - ELSE - Qmin=RCNTRL(10) - END IF - IF (RCNTRL(11) == ZERO) THEN - Qmax=1.2D0 - ELSE - Qmax=RCNTRL(11) - END IF - IF (Qmin > ONE .OR. Qmax < ONE) THEN - WRITE(6,*) 'RCNTRL(10:11)=',Qmin,Qmax - CALL RAD_ErrorMsg(-7,T,ZERO,IDID) - END IF -!~~~> Check if tolerances are reasonable - IF (ITOL == 0) THEN - IF (AbsTol(1) <= ZERO.OR.RelTol(1) <= 10.d0*Roundoff) THEN - WRITE (6,*) 'AbsTol/RelTol=',AbsTol,RelTol - CALL RAD_ErrorMsg(-8,T,ZERO,IDID) - END IF - ELSE - DO i=1,N - IF (AbsTol(i) <= ZERO.OR.RelTol(i) <= 10.d0*Roundoff) THEN - WRITE (6,*) 'AbsTol/RelTol(',i,')=',AbsTol(i),RelTol(i) - CALL RAD_ErrorMsg(-8,T,ZERO,IDID) - END IF - END DO - END IF - -!~~~> WHEN A FAIL HAS OCCURED, RETURN - IF (IDID < 0) RETURN - - -!~~~> CALL TO CORE INTEGRATOR ------------ - CALL RAD_Integrator( N,T,Y,Tend,Hmax,H,RelTol,AbsTol,ITOL,IDID, & - Max_no_steps,Roundoff,FacSafe,ThetaMin,TolNewton,Qmin,Qmax, & - NewtonMaxit,StartNewton,Gustafsson,FacMin,FacMax,FacRej ) - - ISTATUS(1)=Nfun - ISTATUS(2)=Njac - ISTATUS(3)=Nstp - ISTATUS(4)=Nacc - ISTATUS(5)=Nrej - ISTATUS(6)=Ndec - ISTATUS(7)=Nsol - ISTATUS(8)=Nsng - - ! END SUBROUTINE RADAU5 - CONTAINS ! INTERNAL PROCEDURES TO RADAU5 - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RAD_Integrator( N,T,Y,Tend,Hmax,H,RelTol,AbsTol,ITOL,IDID, & - Max_no_steps,Roundoff,FacSafe,ThetaMin,TolNewton,Qmin,Qmax, & - NewtonMaxit,StartNewton,Gustafsson,FacMin,FacMax,FacRej ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! CORE INTEGRATOR FOR RADAU5 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - INTEGER :: N - KPP_REAL Y(NVAR),Z1(NVAR),Z2(NVAR),Z3(NVAR),Y0(NVAR),& - SCAL(NVAR),F1(NVAR),F2(NVAR),F3(NVAR), & - CONT(N,4),AbsTol(NVAR),RelTol(NVAR) - -#ifdef FULL_ALGEBRA - KPP_REAL :: FJAC(NVAR,NVAR), E1(NVAR,NVAR) - DOUBLE COMPLEX :: E2(NVAR,NVAR) -#else - KPP_REAL :: FJAC(LU_NONZERO), E1(LU_NONZERO) - DOUBLE COMPLEX :: E2(LU_NONZERO) -#endif - - !~~~> Local variables - KPP_REAL :: TMP(NVAR), T, Tend, Tdirection, & - H, Hmax, HmaxN, Hacc, Hnew, Hopt, Hold, & - Fac, FacMin, Facmax, FacSafe, FacRej, FacGus, FacConv, & - Theta, ThetaMin, TolNewton, ERR, ERRACC, & - Qmin, Qmax, DYNO, Roundoff, & - AK, AK1, AK2, AK3, C3Q, & - Qnewton, DYTH, THQ, THQOLD, DYNOLD, & - DENOM, C1Q, C2Q, ALPHA, BETA, GAMMA, CFAC, ACONT3, QT - INTEGER :: IP1(NVAR),IP2(NVAR), ITOL, IDID, Max_no_steps, & - NewtonIter, NewtonMaxit, ISING - LOGICAL :: REJECT, FirstStep, FreshJac, LastStep, & - Gustafsson, StartNewton, NewtonDone - ! KPP_REAL, PARAMETER :: ONE = 1.0d0, ZERO = 0.0d0 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! INITIALISATIONS -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - CALL RAD_Coefficients - - Tdirection=SIGN(1.D0,Tend-T) - HmaxN=MIN(ABS(Hmax),ABS(Tend-T)) - H=MIN(ABS(Hmin),ABS(Hstart)) - H=MIN(ABS(H),HmaxN) - IF (ABS(H) <= 10.D0*Roundoff) H=1.0D-6 - H=SIGN(H,Tdirection) - Hold=H - REJECT=.FALSE. - FirstStep=.TRUE. - LastStep=.FALSE. - FreshJac=.FALSE.; Theta=1.0d0 - IF ((T+H*1.0001D0-Tend)*Tdirection >= 0.D0) THEN - H=Tend-T - LastStep=.TRUE. - END IF - FacConv=1.D0 - CFAC=FacSafe*(1+2*NewtonMaxit) - Nsng=0 -! Told=T - CALL RAD_ErrorScale(N,ITOL,AbsTol,RelTol,Y,SCAL) - CALL FUN_CHEM(T,Y,Y0) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Time loop begins -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -Tloop: DO WHILE ( (Tend-T)*Tdirection - Roundoff > ZERO ) - - !~~~> COMPUTE JACOBIAN MATRIX ANALYTICALLY - IF ( (.NOT.FreshJac) .AND. (Theta > ThetaMin) ) THEN - CALL JAC_CHEM(T,Y,FJAC) - FreshJac=.TRUE. - END IF - - !~~~> Compute the matrices E1 and E2 and their decompositions - GAMMA = rkGamma/H - ALPHA = rkAlpha/H - BETA = rkBeta/H - CALL RAD_DecompReal(N,FJAC,GAMMA,E1,IP1,ISING) - IF (ISING /= 0) THEN - Nsng=Nsng+1 - IF (Nsng >= 5) THEN - CALL RAD_ErrorMsg(-12,T,H,IDID); RETURN - END IF - H=H*0.5D0; REJECT=.TRUE.; LastStep=.FALSE. - CYCLE Tloop - END IF - CALL RAD_DecompCmplx(N,FJAC,ALPHA,BETA,E2,IP2,ISING) - IF (ISING /= 0) THEN - Nsng=Nsng+1 - IF (Nsng >= 5) THEN - CALL RAD_ErrorMsg(-12,T,H,IDID); RETURN - END IF - H=H*0.5D0; REJECT=.TRUE.; LastStep=.FALSE. - CYCLE Tloop - END IF - - 30 CONTINUE - Nstp=Nstp+1 - IF (Nstp > Max_no_steps) THEN - PRINT*,'Max number of time steps is ',Max_no_steps - CALL RAD_ErrorMsg(-9,T,H,IDID); RETURN - END IF - IF (0.1D0*ABS(H) <= ABS(T)*Roundoff) THEN - CALL RAD_ErrorMsg(-10,T,H,IDID); RETURN - END IF - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STARTING VALUES FOR NEWTON ITERATION -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IF ( FirstStep .OR. (.NOT.StartNewton) ) THEN - CALL Set2zero(N,Z1) - CALL Set2zero(N,Z2) - CALL Set2zero(N,Z3) - CALL Set2zero(N,F1) - CALL Set2zero(N,F2) - CALL Set2zero(N,F3) - ELSE - C3Q=H/Hold - C1Q=rkC(1)*C3Q - C2Q=rkC(2)*C3Q - DO i=1,N - AK1=CONT(i,2) - AK2=CONT(i,3) - AK3=CONT(i,4) - Z1(i)=C1Q*(AK1+(C1Q-rkC(2)+ONE)*(AK2+(C1Q-rkC(1)+ONE)*AK3)) - Z2(i)=C2Q*(AK1+(C2Q-rkC(2)+ONE)*(AK2+(C2Q-rkC(1)+ONE)*AK3)) - Z3(i)=C3Q*(AK1+(C3Q-rkC(2)+ONE)*(AK2+(C3Q-rkC(1)+ONE)*AK3)) - END DO - ! F(1,2,3) = TransfInv x Z(1,2,3) - CALL RAD_Transform(N,TransfInv,Z1,Z2,Z3,F1,F2,F3) - END IF -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! LOOP FOR THE SIMPLIFIED NEWTON ITERATION -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - FacConv = MAX(FacConv,Roundoff)**0.8D0 - Theta=ABS(ThetaMin) - -NewtonLoop:DO NewtonIter = 1, NewtonMaxit - - !~~~> The right-hand side - DO i=1,N - TMP(i)=Y(i)+Z1(i) - END DO - CALL FUN_CHEM(T+rkC(1)*H,TMP,Z1) - DO i=1,N - TMP(i)=Y(i)+Z2(i) - END DO - CALL FUN_CHEM(T+rkC(2)*H,TMP,Z2) - DO i=1,N - TMP(i)=Y(i)+Z3(i) - END DO - CALL FUN_CHEM(T+rkC(3)*H,TMP,Z3) - - !~~~> Solve the linear systems - ! Z(1,2,3) = TransfInv x Z(1,2,3) - CALL RAD_Transform(N,TransfInv,Z1,Z2,Z3,Z1,Z2,Z3) - CALL RAD_Solve( N,FJAC,GAMMA,ALPHA,BETA,E1,E2, & - Z1,Z2,Z3,F1,F2,F3,CONT,IP1,IP2,ISING ) - Nsol=Nsol+1 - - DYNO=0.0d0 - DO i=1,N - DENOM=SCAL(i) - DYNO=DYNO+(Z1(i)/DENOM)**2+(Z2(i)/DENOM)**2+(Z3(i)/DENOM)**2 - END DO - DYNO=SQRT(DYNO/(3*N)) - - !~~~> Bad convergence or number of iterations too large - IF ( (NewtonIter > 1) .AND. (NewtonIter < NewtonMaxit) ) THEN - THQ=DYNO/DYNOLD - IF (NewtonIter == 2) THEN - Theta=THQ - ELSE - Theta=SQRT(THQ*THQOLD) - END IF - THQOLD=THQ - IF (Theta < 0.99d0) THEN - FacConv=Theta/(1.0d0-Theta) - DYTH=FacConv*DYNO*Theta**(NewtonMaxit-1-NewtonIter)/TolNewton - IF (DYTH >= 1.0d0) THEN - Qnewton=MAX(1.0D-4,MIN(20.0d0,DYTH)) - FAC=.8D0*Qnewton**(-1.0d0/(4.0d0+NewtonMaxit-1-NewtonIter)) - H=FAC*H - REJECT=.TRUE. - LastStep=.FALSE. - CYCLE Tloop - END IF - ELSE ! Non-convergence of Newton - H=H*0.5D0; REJECT=.TRUE.; LastStep=.FALSE. - CYCLE Tloop - END IF - END IF - DYNOLD=MAX(DYNO,Roundoff) - CALL WAXPY(N,ONE,Z1,1,F1,1) ! F1 <- F1 + Z1 - CALL WAXPY(N,ONE,Z2,1,F2,1) ! F2 <- F2 + Z2 - CALL WAXPY(N,ONE,Z3,1,F3,1) ! F3 <- F3 + Z3 - ! Z(1,2,3) = Transf x F(1,2,3) - CALL RAD_Transform(N,Transf,F1,F2,F3,Z1,Z2,Z3) - NewtonDone = (FacConv*DYNO <= TolNewton) - IF (NewtonDone) EXIT NewtonLoop - - END DO NewtonLoop - - IF (.NOT.NewtonDone) THEN - CALL RAD_ErrorMsg(-8,T,H,IDID); - H=H*0.5D0; REJECT=.TRUE.; LastStep=.FALSE. - CYCLE Tloop - END IF - - -!~~~> ERROR ESTIMATION - CALL RAD_ErrorEstimate(N,FJAC,H,Y0,Y,T, & - E1,Z1,Z2,Z3,IP1,SCAL,ERR, & - FirstStep,REJECT,GAMMA) -!~~~> COMPUTATION OF Hnew - Fac = ERR**(-0.25d0)* & - MIN(FacSafe,(NewtonIter+2*NewtonMaxit)/CFAC) - Fac = MIN(FacMax,MAX(FacMin,Fac)) - Hnew = Fac*H - -!~~~> IS THE ERROR SMALL ENOUGH ? -accept:IF (ERR < ONE) THEN !~~~> STEP IS ACCEPTED - FirstStep=.FALSE. - Nacc=Nacc+1 - IF (Gustafsson) THEN - !~~~> Predictive controller of Gustafsson - !~~~> Currently not implemented - IF (Nacc > 1) THEN - FacGus=FacSafe*(H/Hacc)*(ERR**2/ERRACC)**(-0.25d0) - FacGus=MIN(FacMax,MAX(FacMin,FacGus)) - Fac=MIN(Fac,FacGus) - Hnew=H*Fac - END IF - Hacc=H - ERRACC=MAX(1.0D-2,ERR) - END IF - ! Told = T - Hold = H - T=T+H - DO i=1,N - Y(i)=Y(i)+Z3(i) - CONT(i,2)=(Z2(i)-Z3(i))/(rkC(2)-ONE) - AK=(Z1(i)-Z2(i))/(rkC(1)-rkC(2)) - ACONT3=Z1(i)/rkC(1) - ACONT3=(AK-ACONT3)/rkC(2) - CONT(i,3)=(AK-CONT(i,2))/(rkC(1)-ONE) - CONT(i,4)=CONT(i,3)-ACONT3 - END DO - CALL RAD_ErrorScale(N,ITOL,AbsTol,RelTol,Y,SCAL) - FreshJac=.FALSE. - IF (LastStep) THEN - H=Hopt - IDID=1 - RETURN - END IF - CALL FUN_CHEM(T,Y,Y0) - Hnew=Tdirection*MIN(ABS(Hnew),HmaxN) - Hopt=Hnew - Hopt=MIN(H,Hnew) - IF (REJECT) Hnew=Tdirection*MIN(ABS(Hnew),ABS(H)) - REJECT=.FALSE. - IF ((T+Hnew/Qmin-Tend)*Tdirection >= 0.D0) THEN - H=Tend-T - LastStep=.TRUE. - ELSE - QT=Hnew/H - IF ( (Theta<=ThetaMin) .AND. (QT>=Qmin) & - .AND. (QT<=Qmax) ) GOTO 30 - H=Hnew - END IF - CYCLE Tloop - ELSE accept !~~~> STEP IS REJECTED - REJECT=.TRUE. - LastStep=.FALSE. - IF (FirstStep) THEN - H=H*FacRej - ELSE - H=Hnew - END IF - IF (Nacc >= 1) Nrej=Nrej+1 - CYCLE Tloop - END IF accept - - - END DO Tloop - - - END SUBROUTINE RAD_Integrator - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RAD_ErrorMsg(Code,T,H,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - KPP_REAL, INTENT(IN) :: T, H - INTEGER, INTENT(IN) :: Code - INTEGER, INTENT(OUT) :: IERR - - IERR = Code - PRINT * , & - 'Forced exit from RADAU5 due to the following error:' - IF ((Code>=-11).AND.(Code<=-1)) THEN - PRINT *, IERR_NAMES(Code) - ELSE - PRINT *, 'Unknown Error code: ', Code - ENDIF - - PRINT *, "T=", T, "and H=", H - - END SUBROUTINE RAD_ErrorMsg - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RAD_ErrorScale(N,ITOL,AbsTol,RelTol,Y,SCAL) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - INTEGER, INTENT(IN) :: N, ITOL - KPP_REAL, INTENT(IN) :: AbsTol(*), RelTol(*), Y(N) - KPP_REAL, INTENT(OUT) :: SCAL(N) - INTEGER :: i - - IF (ITOL==0) THEN - DO i=1,N - SCAL(i)=AbsTol(1)+RelTol(1)*ABS(Y(i)) - END DO - ELSE - DO i=1,N - SCAL(i)=AbsTol(i)+RelTol(i)*ABS(Y(i)) - END DO - END IF - - END SUBROUTINE RAD_ErrorScale - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RAD_Transform(N,Tr,Z1,Z2,Z3,F1,F2,F3) -!~~~> F = Tr x Z -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - INTEGER :: N, i - KPP_REAL :: Tr(3,3),Z1(N),Z2(N),Z3(N),F1(N),F2(N),F3(N) - KPP_REAL :: x1, x2, x3 - DO i=1,N - x1 = Z1(i); x2 = Z2(i); x3 = Z3(i) - F1(i) = Tr(1,1)*x1 + Tr(1,2)*x2 + Tr(1,3)*x3 - F2(i) = Tr(2,1)*x1 + Tr(2,2)*x2 + Tr(2,3)*x3 - F3(i) = Tr(3,1)*x1 + Tr(3,2)*x2 + Tr(3,3)*x3 - END DO - END SUBROUTINE RAD_Transform - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RAD_Coefficients -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - KPP_REAL :: s2,s3,s6,x1,x2,x3,x4,y1,y2,y3,y4,y5 - - s2 = SQRT(2.0d0); - s3 = SQRT(3.0d0); - s6 = SQRT(6.0d0); - x1 = 3.d0**(1.d0/3.d0); - x2 = 3.d0**(2.d0/3.d0); - x3 = 3.d0**(1.d0/6.d0); - x4 = 3.d0**(5.d0/6.d0); - - rkA(1,1) = 11.d0/45.d0-7.d0/360.d0*s6 - rkA(1,2) = 37.d0/225.d0-169.d0/1800.d0*s6 - rkA(1,3) = -2.d0/225.d0+s6/75 - rkA(2,1) = 37.d0/225.d0+169.d0/1800.d0*s6 - rkA(2,2) = 11.d0/45.d0+7.d0/360.d0*s6 - rkA(2,3) = -2.d0/225.d0-s6/75 - rkA(3,1) = 4.d0/9.d0-s6/36 - rkA(3,2) = 4.d0/9.d0+s6/36 - rkA(3,3) = 1.d0/9.d0 - - rkB(1) = 4.d0/9.d0-s6/36 - rkB(2) = 4.d0/9.d0+s6/36 - rkB(3) = 1.d0/9.d0 - - rkC(1) = 2.d0/5.d0-s6/10 - rkC(2) = 2.d0/5.d0+s6/10 - rkC(3) = 1.d0 - - ! Error estimation - rkE(1) = -(13.d0+7.d0*s6)/3.d0 - rkE(2) = (-13.d0+7.d0*s6)/3.d0 - rkE(3) = -1.d0/3.d0 - - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - !~~~> Diagonalize the RK matrix: - ! TransfInv * inv(rkA) * Transf = - ! | rkGamma 0 0 | - ! | 0 rkAlpha -rkBeta | - ! | 0 rkBeta rkAlpha | - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - rkGamma = 3-x1+x2 - rkAlpha = x1/2-x2/2+3 - rkBeta = -x4/2-3.d0/2.d0*x3 - - y1 = 36.d0/625.d0*s6 - y2 = 129.d0/2500.d0*x1 - y3 = 111.d0/2500.d0*x3*s2 - Transf(1,1) = -31.d0/1250.d0*s6*x1+37.d0/1250.d0*s6*x2-y1 & - +129.d0/1250.d0*x1-33.d0/1250.d0*x2+49.d0/625.d0 - Transf(1,2) = -y1-y2-y3 & - +31.d0/2500.d0*x4*s2+33.d0/2500.d0*x2+49.d0/625.d0 - Transf(1,3) = 3.d0/2500.d0*x3*(-33-43*x2+31*x3*s2+37*s3*s2) - Transf(2,1) = 31.d0/1250.d0*s6*x1-37.d0/1250.d0*s6*x2+y1 & - +129.d0/1250.d0*x1-33.d0/1250.d0*x2+49.d0/625.d0 - Transf(2,2) = y1-y2+y3& - -31.d0/2500.d0*x4*s2+33.d0/2500.d0*x2+49.d0/625.d0 - Transf(2,3) = -3.d0/2500.d0*x3*(33+43*x2+31*x3*s2+37*s3*s2) - Transf(3,1) = 1.d0 - Transf(3,2) = 1.d0 - Transf(3,3) = 0.d0 - - y1 = 11.d0/36.d0*x3*s2 + 43.d0/108.d0*x4*s2 - y2 = 11.d0/36.d0*s2*x2 - 43.d0/36.d0*s2*x1 - y3 = 31.d0/54.d0*x1 + 37.d0/54.d0*x2 - y4 = 31.d0/54.d0*x4-37.d0/18.d0*x3 - y5 = -x2/27+5.d0/27.d0*x1 - TransfInv(1,1) = y1 + y3 - TransfInv(1,2) = -y1 + y3 - TransfInv(1,3) = y5 + 1.d0/3.d0 - TransfInv(2,1) = -y1 - y3 - TransfInv(2,2) = y1 - y3 - TransfInv(2,3) = -y5 + 2.d0/3.d0 - TransfInv(3,1) = y4 - y2 - TransfInv(3,2) = y4 + y2 - TransfInv(3,3) = x3/9+5.d0/27.d0*x4 - - END SUBROUTINE RAD_Coefficients - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RAD_DecompReal(N,FJAC,GAMMA,E1,IP1,ISING) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - - INTEGER :: N, ISING - KPP_REAL :: GAMMA -#ifdef FULL_ALGEBRA - KPP_REAL :: FJAC(NVAR,NVAR),E1(NVAR,NVAR) -#else - KPP_REAL :: FJAC(LU_NONZERO),E1(LU_NONZERO) -#endif - INTEGER :: IP1(N), i, j - -#ifdef FULL_ALGEBRA - DO j=1,N - DO i=1,N - E1(i,j)=-FJAC(i,j) - END DO - E1(j,j)=E1(j,j)+GAMMA - END DO - CALL DGETRF(N,N,E1,N,IP1,ISING) -#else - DO i=1,LU_NONZERO - E1(i)=-FJAC(i) - END DO - DO i=1,NVAR - j = LU_DIAG(i); E1(j)=E1(j)+GAMMA - END DO - CALL KppDecomp(E1,ISING) -#endif - - END SUBROUTINE RAD_DecompReal - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RAD_DecompCmplx(N,FJAC,ALPHA,BETA,E2,IP2,ISING) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - INTEGER :: N, ISING -#ifdef FULL_ALGEBRA - KPP_REAL :: FJAC(N,N) - DOUBLE COMPLEX :: E2(N,N) -#else - KPP_REAL :: FJAC(LU_NONZERO) - DOUBLE COMPLEX :: E2(LU_NONZERO) -#endif - KPP_REAL :: ALPHA, BETA - INTEGER :: IP2(N), i, j - -#ifdef FULL_ALGEBRA - DO j=1,N - DO i=1,N - E2(i,j) = DCMPLX( -FJAC(i,j), 0.0d0 ) - END DO - E2(j,j) = E2(j,j) + DCMPLX( ALPHA, BETA ) - END DO - CALL ZGETRF(N,N,E2,N,IP2,ISING) -#else - DO i=1,LU_NONZERO - E2(i) = DCMPLX( -FJAC(i), 0.0d0 ) - END DO - DO i=1,NVAR - j = LU_DIAG(i); E2(j)=E2(j)+DCMPLX( ALPHA, BETA ) - END DO - CALL KppDecompCmplx(E2,ISING) -#endif - Ndec=Ndec+1 - - END SUBROUTINE RAD_DecompCmplx - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RAD_Solve(N,FJAC,GAMMA,ALPHA,BETA,E1,E2,& - Z1,Z2,Z3,F1,F2,F3,CONT,IP1,IP2,ISING) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - INTEGER :: N,IP1(NVAR),IP2(NVAR),ISING -#ifdef FULL_ALGEBRA - KPP_REAL :: FJAC(NVAR,NVAR), E1(NVAR,NVAR) - DOUBLE COMPLEX :: E2(NVAR,NVAR) -#else - KPP_REAL :: FJAC(LU_NONZERO), E1(LU_NONZERO) - DOUBLE COMPLEX :: E2(LU_NONZERO) -#endif - KPP_REAL :: Z1(N),Z2(N),Z3(N), & - F1(N),F2(N),F3(N),CONT(N), & - GAMMA,ALPHA,BETA - DOUBLE COMPLEX :: BC(N) - INTEGER :: i,j - KPP_REAL :: S2, S3 -! - DO i=1,N - S2=-F2(i) - S3=-F3(i) - Z1(i)=Z1(i)-F1(i)*GAMMA - Z2(i)=Z2(i)+S2*ALPHA-S3*BETA - Z3(i)=Z3(i)+S3*ALPHA+S2*BETA - END DO -#ifdef FULL_ALGEBRA - CALL DGETRS ('N',N,1,E1,N,IP1,Z1,N,0) -#else - CALL KppSolve (E1,Z1) -#endif - - DO j=1,N - BC(j) = DCMPLX(Z2(j),Z3(j)) - END DO -#ifdef FULL_ALGEBRA - CALL ZGETRS ('N',N,1,E2,N,IP2,BC,N,0) -#else - CALL KppSolveCmplx (E2,BC) -#endif - DO j=1,N - Z2(j) = DBLE( BC(j) ) - Z3(j) = AIMAG( BC(j) ) - END DO - - END SUBROUTINE RAD_Solve - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RAD_ErrorEstimate(N,FJAC,H,Y0,Y,T,& - E1,Z1,Z2,Z3,IP1,SCAL,ERR, & - FirstStep,REJECT,GAMMA) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - - INTEGER :: N -#ifdef FULL_ALGEBRA - KPP_REAL :: FJAC(NVAR,NVAR), E1(NVAR,NVAR) -#else - KPP_REAL :: FJAC(LU_NONZERO), E1(LU_NONZERO) -#endif - KPP_REAL :: SCAL(N),Z1(N),Z2(N),Z3(N),F1(N),F2(N), & - Y0(N),Y(N),TMP(N),T,H,GAMMA - INTEGER :: IP1(N), i - LOGICAL FirstStep,REJECT - KPP_REAL :: HEE1,HEE2,HEE3,ERR - - HEE1 = rkE(1)/H - HEE2 = rkE(2)/H - HEE3 = rkE(3)/H - - DO i=1,N - F2(i)=HEE1*Z1(i)+HEE2*Z2(i)+HEE3*Z3(i) - TMP(i)=F2(i)+Y0(i) - END DO - -#ifdef FULL_ALGEBRA - CALL DGETRS ('N',N,1,E1,N,IP1,TMP,N,0) -#else - CALL KppSolve (E1, TMP) -#endif - - ERR=0.D0 - DO i=1,N - ERR=ERR+(TMP(i)/SCAL(i))**2 - END DO - ERR=MAX(SQRT(ERR/N),1.D-10) -! - IF (ERR < 1.D0) RETURN -firej:IF (FirstStep.OR.REJECT) THEN - DO i=1,N - TMP(i)=Y(i)+TMP(i) - END DO - CALL FUN_CHEM(T,TMP,F1) - DO i=1,N - TMP(i)=F1(i)+F2(i) - END DO - -#ifdef FULL_ALGEBRA - CALL DGETRS ('N',N,1,E1,N,IP1,TMP,N,0) -#else - CALL KppSolve (E1, TMP) -#endif - ERR=0.D0 - DO i=1,N - ERR=ERR+(TMP(i)/SCAL(i))**2 - END DO - ERR=MAX(SQRT(ERR/N),1.0d-10) - END IF firej - - END SUBROUTINE RAD_ErrorEstimate - -!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! KPP_REAL FUNCTION CONTR5(I,N,T,CONT) -!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!! THIS FUNCTION CAN BE USED FOR CONTINUOUS OUTPUT. IT PROVIDES AN -!! APPROXIMATION TO THE I-TH COMPONENT OF THE SOLUTION AT T. -!! IT GIVES THE VALUE OF THE COLLOCATION POLYNOMIAL, DEFINED FOR -!! THE STEP SUCCESSFULLY COMPUTED STEP (BY RADAU5). -!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! IMPLICIT NONE -! INTEGER :: I, N -! KPP_REAL :: T, CONT(N,4) -! KPP_REAL :: S -! KPP_REAL, PARAMETER :: ONE = 1.0d0 -! S=(T-Tsol)/Hsol -! CONTR5=CONT(i,1)+S* & -! (CONT(i,2)+(S-rkC(2)+ONE)*(CONT(i,3)+(S-rkC(1)+ONE)*CONT(i,4))) -! END FUNCTION CONTR5 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - END SUBROUTINE RADAU5 ! AND ALL ITS INTERNAL PROCEDURES -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE FUN_CHEM(T, V, FCT) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters - USE KPP_ROOT_Global - USE KPP_ROOT_Function, ONLY: Fun - USE KPP_ROOT_Rates, ONLY: Update_SUN, Update_RCONST, Update_PHOTO - - IMPLICIT NONE - - KPP_REAL :: V(NVAR), FCT(NVAR) - KPP_REAL :: T, Told - - !Told = TIME - !TIME = T - !CALL Update_SUN() - !CALL Update_RCONST() - !CALL Update_PHOTO() - !TIME = Told - - CALL Fun(V, FIX, RCONST, FCT) - - Nfun=Nfun+1 - - END SUBROUTINE FUN_CHEM - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE JAC_CHEM (T, V, JF) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters - USE KPP_ROOT_Global - USE KPP_ROOT_JacobianSP - USE KPP_ROOT_Jacobian, ONLY: Jac_SP - USE KPP_ROOT_Rates, ONLY: Update_SUN, Update_RCONST, Update_PHOTO - - IMPLICIT NONE - - KPP_REAL :: V(NVAR), T, Told -#ifdef FULL_ALGEBRA - KPP_REAL :: JV(LU_NONZERO), JF(NVAR,NVAR) - INTEGER :: i, j -#else - KPP_REAL :: JF(LU_NONZERO) -#endif - - !Told = TIME - !TIME = T - !CALL Update_SUN() - !CALL Update_RCONST() - !CALL Update_PHOTO() - !TIME = Told - -#ifdef FULL_ALGEBRA - CALL Jac_SP(V, FIX, RCONST, JV) - DO j=1,NVAR - DO i=1,NVAR - JF(i,j) = 0.0d0 - END DO - END DO - DO i=1,LU_NONZERO - JF(LU_IROW(i),LU_ICOL(i)) = JV(i) - END DO -#else - CALL Jac_SP(V, FIX, RCONST, JF) -#endif - - Njac=Njac+1 - - END SUBROUTINE JAC_CHEM - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -END MODULE KPP_ROOT_Integrator diff --git a/int.modified_WCOPY/kpp_sdirk4.def b/int.modified_WCOPY/kpp_sdirk4.def deleted file mode 100644 index 6cf1158efbad1cbe450d0daa38ae5eb5a7b9d8f0..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/kpp_sdirk4.def +++ /dev/null @@ -1,20 +0,0 @@ - -#FUNCTION AGGREGATE -#JACOBIAN SPARSE_LU_ROW - -#DOUBLE ON -#INTFILE kpp_sdirk4 - -#INLINE F77_GLOBAL - REAL*8 STEPSTART - COMMON /GDATA/ STEPSTART -#ENDINLINE - -#INLINE F77_INIT - STEPMIN=0.0001 - STEPMAX=3600. - STEPSTART=STEPMIN -#ENDINLINE - - - diff --git a/int.modified_WCOPY/kpp_sdirk4.f b/int.modified_WCOPY/kpp_sdirk4.f deleted file mode 100644 index e04fe7d9a8e6fdae42e56c89888abb8acb2b4806..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/kpp_sdirk4.f +++ /dev/null @@ -1,705 +0,0 @@ - SUBROUTINE INTEGRATE( TIN, TOUT ) - - IMPLICIT KPP_REAL (A-H,O-Z) - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Global.h' - -C TIN - Start Time - KPP_REAL TIN -C TOUT - End Time - KPP_REAL TOUT - INTEGER i - - PARAMETER (LWORK=2*NVAR*NVAR+12*NVAR+7,LIWORK=2*NVAR+7) - PARAMETER (LRCONT=5*NVAR+2) - - KPP_REAL WORK(LWORK) - INTEGER IWORK(LIWORK) - COMMON /CONT/ ICONT(4),RCONT(LRCONT) - EXTERNAL FUNC_CHEM,JAC_CHEM - - ITOL=1 ! --- VECTOR TOLERANCES - IJAC=1 ! --- COMPUTE THE JACOBIAN ANALYTICALLY - IMAS=0 ! --- DIFFERENTIAL EQUATION IS IN EXPLICIT FORM - - DO i=1,20 - IWORK(i) = 0 - WORK(i) = 0.D0 - ENDDO - - IWORK(3) = 8 - - CALL ATMSDIRK(NVAR,FUNC_CHEM,TIN,VAR,TOUT,STEPMIN, - & RTOL,ATOL,ITOL, - & JAC_CHEM ,IJAC, FUNC_CHEM ,IMAS, - & WORK,LWORK,IWORK,LIWORK,LRCONT,IDID) - - IF (IDID.LT.0) THEN - print *,'ATMSDIRK: Unsucessfull exit at T=', - & TIN,' (IDID=',IDID,')' - ENDIF - - RETURN - END - - - SUBROUTINE ATMSDIRK(N,FCN,X,Y,XEND,H, - & RelTol,AbsTol,ITOL, - & JAC ,IJAC, MAS ,IMAS, - & WORK,LWORK,IWORK,LIWORK,LRCONT,IDID) -C ---------------------------------------------------------- -C *** *** *** *** *** *** *** *** *** *** *** *** *** -C DECLARATIONS -C *** *** *** *** *** *** *** *** *** *** *** *** *** - IMPLICIT KPP_REAL (A-H,O-Z) - DIMENSION Y(N),AbsTol(1),RelTol(1),WORK(LWORK),IWORK(LIWORK) - LOGICAL IMPLCT,JBAND,ARRET - EXTERNAL FCN,JAC,MAS - COMMON/STAT/NFCN,NJAC,NSTEP,NACCPT,NREJCT,NDEC,NSOL - -C *** *** *** *** *** *** *** -C SETTING THE PARAMETERS -C *** *** *** *** *** *** *** - NFCN=0 - NJAC=0 - NSTEP=0 - NACCPT=0 - NREJCT=0 - NDEC=0 - NSOL=0 - ARRET=.FALSE. -C -------- SWITCH FOR TRANSFORMATION OF JACOBIAN TO HESS_CHEM FORM --- - NHESS1 = 0 ! ADRIAN -C -------- NMAX , THE MAXIMAL NUMBER OF STEPS ----- - IF(IWORK(2).EQ.0)THEN - NMAX=100000 - ELSE - NMAX=IWORK(2) - IF(NMAX.LE.0)THEN - WRITE(6,*)' WRONG INPUT IWORK(2)=',IWORK(2) - ARRET=.TRUE. - END IF - END IF -C -------- NIT MAXIMAL NUMBER OF NEWTON ITERATIONS - IF(IWORK(3).EQ.0)THEN - NIT=8 - ELSE - NIT=IWORK(3) - IF(NIT.LE.0)THEN - WRITE(6,*)' CURIOUS INPUT IWORK(3)=',IWORK(3) - ARRET=.TRUE. - END IF - END IF -C -------- METH SWITCH FOR THE COEFFICIENTS OF THE METHOD - METH = 2 -C -------- UROUND SMALLEST NUMBER SATISFYING 1.D0+UROUND>1.D0 - IF(WORK(1).EQ.0.D0)THEN - UROUND=1.D-16 - ELSE - UROUND=WORK(1) - IF(UROUND.LE.1.D-19.OR.UROUND.GE.1.D0)THEN - WRITE(6,*)' COEFFICIENTS HAVE 20 DIGITS, UROUND=',WORK(1) - ARRET=.TRUE. - END IF - END IF -C --------- SAFE SAFETY FACTOR IN STEP SIZE PREDICTION - IF(WORK(2).EQ.0.D0)THEN - SAFE=0.9D0 - ELSE - SAFE=WORK(2) - IF(SAFE.LE..001D0.OR.SAFE.GE.1.D0)THEN - WRITE(6,*)' CURIOUS INPUT FOR WORK(2)=',WORK(2) - ARRET=.TRUE. - END IF - END IF -C ------ THET DECIDES WHETHER THE JACOBIAN SHOULD BE RECOMPUTED; - IF(WORK(3).EQ.0.D0)THEN - THET=0.001D0 - ELSE - THET=WORK(3) - END IF -C --- FNEWT STOPPING CRIERION FOR NEWTON'S METHOD, USUALLY CHOSEN <1. - IF(WORK(4).EQ.0.D0)THEN - FNEWT=0.03D0 - ELSE - FNEWT=WORK(4) - END IF -C --- QUOT1 AND QUOT2: IF QUOT1 < HNEW/HOLD < QUOT2, STEP SIZE = CONST. - IF(WORK(5).EQ.0.D0)THEN - QUOT1=1.D0 - ELSE - QUOT1=WORK(5) - END IF - IF(WORK(6).EQ.0.D0)THEN - QUOT2=1.2D0 - ELSE - QUOT2=WORK(6) - END IF -C -------- MAXIMAL STEP SIZE - IF(WORK(7).EQ.0.D0)THEN - HMAX=XEND-X - ELSE - HMAX=WORK(7) - END IF -C --------- CHECK IF TOLERANCES ARE O.K. - IF (ITOL.EQ.0) THEN - IF (AbsTol(1).LE.0.D0.OR.RelTol(1).LE.10.D0*UROUND) THEN - WRITE (6,*) ' TOLERANCES ARE TOO SMALL' - ARRET=.TRUE. - END IF - ELSE - DO 15 I=1,N - IF (AbsTol(I).LE.0.D0.OR.RelTol(I).LE.10.D0*UROUND) THEN - WRITE (6,*) ' TOLERANCES(',I,') ARE TOO SMALL' - ARRET=.TRUE. - END IF - 15 CONTINUE - END IF - -C *** *** *** *** *** *** *** *** *** *** *** *** *** -C COMPUTATION OF ARRAY ENTRIES -C *** *** *** *** *** *** *** *** *** *** *** *** *** -C ---- IMPLICIT, BANDED OR NOT ? - IMPLCT=IMAS.NE.0 - ARRET=.FALSE. -C -------- COMPUTATION OF THE ROW-DIMENSIONS OF THE 2-ARRAYS --- -C -- JACOBIAN - LDJAC=N -C -- MATRIX E FOR LINEAR ALGEBRA - LDE=N -C -- MASS MATRIX - IF (IMPLCT) THEN - print *,'IMPLCT 1' - ELSE - LDMAS=0 - END IF - LDMAS2=MAX(1,LDMAS) - -C ------- PREPARE THE ENTRY-POINTS FOR THE ARRAYS IN WORK ----- - IEYHAT=8 - IEZ=IEYHAT+N - IEY0=IEZ+N - IEZ1=IEY0+N - IEZ2=IEZ1+N - IEZ3=IEZ2+N - IEZ4=IEZ3+N - IEZ5=IEZ4+N - IESCAL=IEZ5+N - IEF1=IESCAL+N - IEG1=IEF1+N - IEH1=IEG1+N - IEJAC=IEH1+N - IEMAS=IEJAC+N*LDJAC - IEE=IEMAS+N*LDMAS - -C ------ TOTAL STORAGE REQUIREMENT ----------- - ISTORE=IEE+N*LDE-1 - IF(ISTORE.GT.LWORK)THEN - WRITE(6,*)' INSUFFICIENT STORAGE FOR WORK, MIN. LWORK=',ISTORE - ARRET=.TRUE. - END IF -C ------- ENTRY POINTS FOR INTEGER WORKSPACE ----- - IEIP=5 - IEHES=IEIP+N -C --------- TOTAL REQUIREMENT --------------- - ISTORE=IEHES+N-1 - IF(ISTORE.GT.LIWORK)THEN - WRITE(6,*)' INSUFF. STORAGE FOR IWORK, MIN. LIWORK=',ISTORE - ARRET=.TRUE. - END IF -C --------- CONTROL OF LENGTH OF COMMON BLOCK "CONT" ------- - IF(LRCONT.LT.(5*N+2))THEN - WRITE(6,*)' INSUFF. STORAGE FOR RCONT, MIN. LRCONT=',5*N+2 - ARRET=.TRUE. - END IF -C ------ WHEN A FAIL HAS OCCURED, WE RETURN WITH IDID=-1 - IF (ARRET) THEN - IDID=-1 - RETURN - END IF -C -------- CALL TO CORE INTEGRATOR ------------ - CALL SDICOR(N,FCN,X,Y,XEND,HMAX,H,RelTol,AbsTol,ITOL, - & JAC,IJAC,MLJAC,MUJAC,MAS,MLMAS,MUMAS,IOUT,IDID, - & NMAX,UROUND,SAFE,THET,FNEWT,QUOT1,QUOT2,NIT,METH,NHESS1, - & IMPLCT,JBAND,LDJAC,LDE,LDMAS2, - & WORK(IEYHAT),WORK(IEZ),WORK(IEY0),WORK(IEZ1),WORK(IEZ2), - & WORK(IEZ3),WORK(IEZ4),WORK(IEZ5),WORK(IESCAL),WORK(IEF1), - & WORK(IEG1),WORK(IEH1),WORK(IEJAC),WORK(IEE), - & WORK(IEMAS),IWORK(IEIP),IWORK(IEHES)) -C ----------- RETURN ----------- - RETURN - END -C -C -C -C ----- ... AND HERE IS THE CORE INTEGRATOR ---------- -C - SUBROUTINE SDICOR(N,FCN,X,Y,XEND,HMAX,H,RelTol,AbsTol,ITOL, - & JAC,IJAC,MLJAC,MUJAC,MAS,MLMAS,MUMAS,IOUT,IDID, - & NMAX,UROUND,SAFE,THET,FNEWT,QUOT1,QUOT2,NIT,METH,NHESS1, - & IMPLCT,BANDED,LDJAC,LE,LDMAS, - & YHAT,Z,Y0,Z1,Z2,Z3,Z4,Z5,SCAL,F1,G1,H1,FJAC,E,FMAS,IP,IPHES) -C ---------------------------------------------------------- -C CORE INTEGRATOR FOR SDIRK4 -C PARAMETERS SAME AS IN SDIRK4 WITH WORKSPACE ADDED -C ---------------------------------------------------------- -C DECLARATIONS -C ---------------------------------------------------------- - IMPLICIT KPP_REAL (A-H,O-Z) - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Sparse.h' - KPP_REAL Y(N),YHAT(N),Z(N),Y0(N),Z1(N),Z2(N),Z3(N),Z4(N),Z5(N) - KPP_REAL SCAL(N),F1(N),G1(N),H1(N) - KPP_REAL FJAC(LU_NONZERO),E(LU_NONZERO),FMAS(LDMAS,N) - KPP_REAL AbsTol(1),RelTol(1) - INTEGER IP(N),IPHES(N) - LOGICAL REJECT,FIRST,IMPLCT,BANDED,CALJAC,NEWTRE - COMMON /CONT/NN,NN2,NN3,NN4,XOLD,HSOL,CONT(5*NVAR) - COMMON/STAT/NFCN,NJAC,NSTEP,NACCPT,NREJCT,NDEC,NSOL - EXTERNAL MAS, FCN, JAC - -C *** *** *** *** *** *** *** -C INITIALISATIONS -C *** *** *** *** *** *** *** - -C --------- DUPLIFY N FOR COMMON BLOCK CONT ----- - NN=N - NN2=2*N - NN3=3*N - NN4=4*N - -C ------- COMPUTE MASS MATRIX FOR IMPLICIT CASE ---------- - IF(IMPLCT) CALL MAS(N,FMAS,LDMAS) - -C ---------- CONSTANTS --------- - MBDIAG=MUMAS+1 - IF (METH.EQ.2) THEN -C ---------- METHOD WITH GAMMA = 4/15 --------------- - GAMMA=4.0D0/15.0D0 - C2=23.0D0/30.0D0 - C3=17.0D0/30.0D0 - C4=2881.0D0/28965.0D0+GAMMA - ALPH21=15.0D0/8.0D0 - ALPH31=1577061.0D0/922880.0D0 - ALPH32=-23427.0D0/115360.0D0 - ALPH41=647163682356923881.0D0/2414496535205978880.0D0 - ALPH42=-593512117011179.0D0/3245291041943520.0D0 - ALPH43=559907973726451.0D0/1886325418129671.0D0 - ALPH51=724545451.0D0/796538880.0D0 - ALPH52=-830832077.0D0/267298560.0D0 - ALPH53=30957577.0D0/2509272.0D0 - ALPH54=-69863904375173.0D0/6212571137048.0D0 - E1=7752107607.0D0/11393456128.0D0 - E2=-17881415427.0D0/11470078208.0D0 - E3=2433277665.0D0/179459416.0D0 - E4=-96203066666797.0D0/6212571137048.0D0 - D11= 24.74416644927758D0 - D12= -4.325375951824688D0 - D13= 41.39683763286316D0 - D14= -61.04144619901784D0 - D15= -3.391332232917013D0 - D21= -51.98245719616925D0 - D22= 10.52501981094525D0 - D23= -154.2067922191855D0 - D24= 214.3082125319825D0 - D25= 14.71166018088679D0 - D31= 33.14347947522142D0 - D32= -19.72986789558523D0 - D33= 230.4878502285804D0 - D34= -287.6629744338197D0 - D35= -18.99932366302254D0 - D41= -5.905188728329743D0 - D42= 13.53022403646467D0 - D43= -117.6778956422581D0 - D44= 134.3962081008550D0 - D45= 8.678995715052762D0 - ETA1=23.D0/8.D0 - ANU1= 0.9838473040915402D0 - ANU2= 0.3969226768377252D0 - AMU1= 0.6563374010466914D0 - AMU3= 0.3372498196189311D0 - ELSE - PRINT *, 'WRONG CHOICE OF ' - END IF - POSNEG=SIGN(1.D0,XEND-X) - HMAX1=MIN(ABS(HMAX),ABS(XEND-X)) - IF (ABS(H).LE.10.D0*UROUND) H=1.0D-6 - H=MIN(ABS(H),HMAX1) - H=SIGN(H,POSNEG) - HOLD=H - CFAC=SAFE*(1+2*NIT) - NEWTRE=.FALSE. - REJECT=.FALSE. - FIRST=.TRUE. - FACCO1=1.D0 - FACCO2=1.D0 - FACCO3=1.D0 - FACCO4=1.D0 - FACCO5=1.D0 - NSING=0 - XOLD=X - IF (ITOL.EQ.0) THEN - DO 8 I=1,N - 8 SCAL(I)=1.D0 / ( AbsTol(1)+RelTol(1)*DABS(Y(I)) ) - ELSE - DO 9 I=1,N - 9 SCAL(I)=1.D0 / ( AbsTol(I)+RelTol(I)*DABS(Y(I)) ) - END IF - -C --- BASIC INTEGRATION STEP - 10 CONTINUE - -C *** *** *** *** *** *** *** -C COMPUTATION OF THE JACOBIAN -C *** *** *** *** *** *** *** - NJAC=NJAC+1 - CALL JAC(N,X,Y,FJAC) - CALJAC=.TRUE. - 20 CONTINUE - -C *** *** *** *** *** *** *** -C COMPUTE THE MATRIX E AND ITS DECOMPOSITION -C *** *** *** *** *** *** *** - FAC1=1.D0/(H*GAMMA) - IF (IMPLCT) THEN - print *, 'IMPLCT 4' - ELSE ! EXPLICIT SYSTEM -C --- THE MATRIX E (MAS=IDENTITY, JACOBIAN A FULL MATRIX) -c DO 526 J=1,N -c DO 525 I=1,N -c 525 E(I,J)=-FJAC(I,J) -c 526 E(J,J)=E(J,J)+FAC1 -c CALL DEC(N,LE,E,IP,IER) - DO K=1,LU_NONZERO - E(K) = -FJAC(K) - END DO - DO I=1,N - IDG = LU_DIAG(I) - E(IDG) = E(IDG) + FAC1 - END DO - CALL KppDecomp ( E, IER) - - IF (IER.NE.0) GOTO 79 - END IF - NDEC=NDEC+1 - 30 CONTINUE - - IF (NSTEP.GT.NMAX.OR.X+.1D0*H.EQ.X.OR.ABS(H).LE.UROUND) GOTO 79 - XPH=X+H -C --- LOOP FOR THE 5 STAGES - FACCO1=DMAX1(FACCO1,UROUND)**0.8D0 - FACCO2=DMAX1(FACCO2,UROUND)**0.8D0 - FACCO3=DMAX1(FACCO3,UROUND)**0.8D0 - FACCO4=DMAX1(FACCO4,UROUND)**0.8D0 - FACCO5=DMAX1(FACCO5,UROUND)**0.8D0 - -C *** *** *** *** *** *** *** -C STARTING VALUES FOR NEWTON ITERATION -C *** *** *** *** *** *** *** - DO 59 ISTAGE=1,5 - IF (ISTAGE.EQ.1) THEN - XCH=X+GAMMA*H - IF (FIRST.OR.NEWTRE) THEN - DO 132 I=1,N - 132 Z(I)=0.D0 - ELSE - S=1.D0+GAMMA*H/HOLD - DO 232 I=1,N -c 232 Z(I) = 0.D0 - 232 Z(I)=S*(CONT(I+NN)+S*(CONT(I+NN2)+S*(CONT(I+NN3) - & +S*CONT(I+NN4))))-YHAT(I) - - END IF - DO 31 I=1,N - 31 G1(I)=0.D0 - FACCON=FACCO1 - END IF - IF (ISTAGE.EQ.2) THEN - XCH=X+C2*H - DO 131 I=1,N - Z1I=Z1(I) - Z(I)=ETA1*Z1I - 131 G1(I)=ALPH21*Z1I - FACCON=FACCO2 - END IF - IF (ISTAGE.EQ.3) THEN - XCH=X+C3*H - DO 231 I=1,N - Z1I=Z1(I) - Z2I=Z2(I) - Z(I)=ANU1*Z1I+ANU2*Z2I - 231 G1(I)=ALPH31*Z1I+ALPH32*Z2I - FACCON=FACCO3 - END IF - IF (ISTAGE.EQ.4) THEN - XCH=X+C4*H - DO 331 I=1,N - Z1I=Z1(I) - Z3I=Z3(I) - Z(I)=AMU1*Z1I+AMU3*Z3I - 331 G1(I)=ALPH41*Z1I+ALPH42*Z2(I)+ALPH43*Z3I - FACCON=FACCO4 - END IF - IF (ISTAGE.EQ.5) THEN - XCH=XPH - DO 431 I=1,N - Z1I=Z1(I) - Z2I=Z2(I) - Z3I=Z3(I) - Z4I=Z4(I) - Z(I)=E1*Z1I+E2*Z2I+E3*Z3I+E4*Z4I - YHAT(I)=Z(I) - 431 G1(I)=ALPH51*Z1I+ALPH52*Z2I+ALPH53*Z3I+ALPH54*Z4I - FACCON=FACCO5 - END IF - - - -C *** *** *** *** *** *** *** *** *** *** *** -C LOOP FOR THE SIMPLIFIED NEWTON ITERATION -C *** *** *** *** *** *** *** *** *** *** *** - NEWT=0 - THETA=ABS(THET) - IF (REJECT) THETA=2*ABS(THET) - 40 CONTINUE - IF (NEWT.GE.NIT) THEN - H=H/2.D0 - REJECT=.TRUE. - NEWTRE=.TRUE. - IF (CALJAC) GOTO 20 - GOTO 10 - END IF - -C --- COMPUTE THE RIGHT-HAND SIDE - DO 41 I=1,N - H1(I)=G1(I)-Z(I) - 41 CONT(I)=Y(I)+Z(I) - CALL FCN(N,XCH,CONT,F1) - NFCN=NFCN+1 - -C --- KppSolve THE LINEAR SYSTEMS - IF (IMPLCT) THEN - print *, 'IMPLCT 2' - ELSE - DO 345 I=1,N - 345 F1(I)=H1(I)*FAC1+F1(I) -C CALL SOL(N,LE,E,F1,IP) - CALL KppSolve(E, F1) - END IF - NEWT=NEWT+1 - DYNO=0.D0 -C --- NORM 2 --- - DO 57 I=1,N - 57 DYNO=DYNO+(F1(I)*SCAL(I))**2 - DYNO=DSQRT(DYNO/N) -C --- NORM INF --- -C DO 57 I=1,N -C 57 DYNO=DMAX1( DYNO, DABS(F1(I)*SCAL(I)) ) - - -C --- BAD CONVERGENCE OR NUMBER OF ITERATIONS TO LARGE - IF (NEWT.GE.2.AND.NEWT.LT.NIT) THEN - THETA=DYNO/DYNOLD - IF (THETA.LT.0.99D0) THEN - FACCON=THETA/(1.0D0-THETA) - DYTH=FACCON*DYNO*THETA**(NIT-1-NEWT) - QNEWT=DMAX1(1.0D-4,DMIN1(16.0D0,DYTH/FNEWT)) - IF (QNEWT.GE.1.0D0) THEN - H=.8D0*H*QNEWT**(-1.0D0/(NIT-NEWT)) - REJECT=.TRUE. - NEWTRE=.TRUE. - IF (CALJAC) GOTO 20 - GOTO 10 - END IF - ELSE - NEWTRE=.TRUE. - GOTO 78 - END IF - END IF - DYNOLD=DYNO - DO 58 I=1,N - 58 Z(I)=Z(I)+F1(I) - NSOL=NSOL+1 - IF (FACCON*DYNO.GT.FNEWT) GOTO 40 - -C --- END OF SIMPILFIED NEWTON - IF (ISTAGE.EQ.1) THEN - DO I=1,N - Z1(I) = Z(I) - END DO - FACCO1=FACCON - END IF - IF (ISTAGE.EQ.2) THEN - DO I=1,N - Z2(I) = Z(I) - END DO - FACCO2=FACCON - END IF - IF (ISTAGE.EQ.3) THEN - DO I=1,N - Z3(I) = Z(I) - END DO - FACCO3=FACCON - END IF - IF (ISTAGE.EQ.4) THEN - DO I=1,N - Z4(I) = Z(I) - END DO - FACCO4=FACCON - END IF - IF (ISTAGE.EQ.5) THEN - DO I=1,N - Z5(I) = Z(I) - END DO - FACCO5=FACCON - END IF - 59 CONTINUE - - -C *** *** *** *** *** *** *** -C ERROR ESTIMATION -C *** *** *** *** *** *** *** - NSTEP=NSTEP+1 - IF (IMPLCT) THEN - print *,'IMPLCT 3' - ELSE - DO 461 I=1,N - 461 CONT(I)=FAC1*(Z5(I)-YHAT(I)) - END IF - - CALL KppSolve(E, CONT) - - ERR=0.D0 -C ---- NORM 2 --- - DO 64 I=1,N - 64 ERR=ERR+(CONT(I)*SCAL(I))**2 - ERR=DMAX1(DSQRT(ERR/N),1.D-10) - -C ---- NORM INF --- -C DO 64 I=1,N -c 64 ERR=DMAX1( ERR, DABS( CONT(I)*SCAL(I) ) ) - -C --- COMPUTATION OF HNEW -C --- WE REQUIRE .25<=HNEW/H<=10. - FAC=DMIN1(SAFE,CFAC/(NEWT+2*NIT)) - QUOT=DMAX1(.25D0,DMIN1(10.D0,(ERR)**.25D0/FAC)) - HNEW= H/QUOT - -C *** *** *** *** *** *** *** -C IS THE ERROR SMALL ENOUGH ? -C *** *** *** *** *** *** *** - IF (ERR.LT.1.D0) THEN -C --- STEP IS ACCEPTED - FIRST=.FALSE. - NACCPT=NACCPT+1 - HOLD=H - XOLD=X -C --- COEFFICIENTS FOR CONTINUOUS SOLUTION - DO 74 I=1,N - Z1I=Z1(I) - Z2I=Z2(I) - Z3I=Z3(I) - Z4I=Z4(I) - Z5I=Z5(I) - CONT(I)=Y(I) - Y(I)=Y(I)+Z5I - CONT(I+NN) =D11*Z1I+D12*Z2I+D13*Z3I+D14*Z4I+D15*Z5I - CONT(I+NN2)=D21*Z1I+D22*Z2I+D23*Z3I+D24*Z4I+D25*Z5I - CONT(I+NN3)=D31*Z1I+D32*Z2I+D33*Z3I+D34*Z4I+D35*Z5I - CONT(I+NN4)=D41*Z1I+D42*Z2I+D43*Z3I+D44*Z4I+D45*Z5I - YHAT(I)=Z5I - IF (ITOL.EQ.0) THEN - SCAL(I)=1.D0/( AbsTol(1)+RelTol(1)*DABS(Y(I)) ) - ELSE - SCAL(I)=1.D0/( AbsTol(I)+RelTol(I)*DABS(Y(I)) ) - END IF - 74 CONTINUE - X=XPH - CALJAC=.FALSE. - IF ((X-XEND)*POSNEG+UROUND.GT.0.D0) THEN - H=HOPT - IDID=1 - RETURN - END IF - IF (IJAC.EQ.0) CALL FCN(N,X,Y,Y0) - NFCN=NFCN+1 - HNEW=POSNEG*DMIN1(DABS(HNEW),HMAX1) - HOPT=HNEW - IF (REJECT) HNEW=POSNEG*DMIN1(DABS(HNEW),DABS(H)) - REJECT=.FALSE. - NEWTRE=.FALSE. - IF ((X+HNEW/QUOT1-XEND)*POSNEG.GT.0.D0) THEN - H=XEND-X - ELSE - QT=HNEW/H - IF (THETA.LE.THET.AND.QT.GE.QUOT1.AND.QT.LE.QUOT2) GOTO 30 - H = HNEW - END IF - IF (THETA.LE.THET) GOTO 20 - GOTO 10 - - ELSE -C --- STEP IS REJECTED - REJECT=.TRUE. - IF (FIRST) THEN - H=H/10.D0 - ELSE - H=HNEW - END IF - IF (NACCPT.GE.1) NREJCT=NREJCT+1 - IF (CALJAC) GOTO 20 - GOTO 10 - END IF - -C --- UNEXPECTED STEP-REJECTION - 78 CONTINUE - IF (IER.NE.0) THEN - WRITE (6,*) ' MATRIX IS SINGULAR, IER=',IER,' X=',X,' H=',H - NSING=NSING+1 - IF (NSING.GE.6) GOTO 79 - END IF - H=H*0.5D0 - REJECT=.TRUE. - IF (CALJAC) GOTO 20 - GOTO 10 - -C --- FAIL EXIT - 79 WRITE (6,979) X,H,IER - 979 FORMAT(' EXIT OF SDIRK4 AT X=',D14.7,' H=',D14.7,' IER=',I4) - IDID=-1 - RETURN - END -C - - - SUBROUTINE FUNC_CHEM(N, T, Y, P) - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Global.h' - INTEGER N - KPP_REAL T, Told - KPP_REAL Y(NVAR), P(NVAR) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, P ) - TIME = Told - RETURN - END - - - SUBROUTINE JAC_CHEM(N, T, Y, J) - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Global.h' - INTEGER N - KPP_REAL Told, T - KPP_REAL Y(NVAR), J(LU_NONZERO) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Jac_SP( Y, FIX, RCONST, J ) - TIME = Told - RETURN - END - diff --git a/int.modified_WCOPY/kpp_sdirk4.f90 b/int.modified_WCOPY/kpp_sdirk4.f90 deleted file mode 100644 index 93b37e1adf41c6f2f52f18413d2b0d502600ce79..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/kpp_sdirk4.f90 +++ /dev/null @@ -1,972 +0,0 @@ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! -! SDIRK - Singly-Diagonally-Implicit Runge-Kutta method ! -! (L-stable, 5 stages, order 4) ! -! By default the code employs the KPP sparse linear algebra routines ! -! Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK) ! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! -! A. Sandu - version of July 10, 2005 - -MODULE KPP_ROOT_Integrator - - USE KPP_ROOT_Precision - USE KPP_ROOT_Global, ONLY: FIX, RCONST, TIME - USE KPP_ROOT_Parameters, ONLY: NVAR, NSPEC, NFIX, LU_NONZERO - USE KPP_ROOT_JacobianSP, ONLY: LU_DIAG - USE KPP_ROOT_LinearAlgebra, ONLY: KppDecomp, KppSolve, & - Set2zero, WLAMCH, WAXPY, WCOPY - - IMPLICIT NONE - PUBLIC - SAVE - - !~~~> Statistics on the work performed by the SDIRK method - INTEGER :: Nfun,Njac,Nstp,Nacc,Nrej,Ndec,Nsol,Nsng - INTEGER, PARAMETER :: ifun=1, ijac=2, istp=3, iacc=4, & - irej=5, idec=6, isol=7, isng=8, itexit=1, ihexit=2 - ! SDIRK method coefficients - KPP_REAL :: rkAlpha(5,4), rkBeta(5,4), rkD(4,5), & - rkGamma, rkA(5,5), rkB(5), rkC(5) - - ! description of the error numbers IERR - CHARACTER(LEN=50), PARAMETER, DIMENSION(-8:1) :: IERR_NAMES = (/ & - 'Matrix is repeatedly singular ', & ! -8 - 'Step size too small: T + 10*H = T or H < Roundoff ', & ! -7 - 'No of steps exceeds maximum bound ', & ! -6 - 'Improper tolerance values ', & ! -5 - 'FacMin/FacMax/FacRej must be positive ', & ! -4 - 'Hmin/Hmax/Hstart must be positive ', & ! -3 - 'Improper value for maximal no of Newton iterations', & ! -2 - 'Improper value for maximal no of steps ', & ! -1 - ' ', & ! 0 (not used) - 'Success ' /) ! 1 - -CONTAINS - -SUBROUTINE INTEGRATE( TIN, TOUT, & - ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U, IERR_U ) - - USE KPP_ROOT_Parameters - USE KPP_ROOT_Global - IMPLICIT NONE - - KPP_REAL, INTENT(IN) :: TIN ! Start Time - KPP_REAL, INTENT(IN) :: TOUT ! End Time - ! Optional input parameters and statistics - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - KPP_REAL, INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - KPP_REAL, INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: IERR_U - - !INTEGER, SAVE :: Ntotal = 0 - KPP_REAL :: RCNTRL(20), RSTATUS(20) - INTEGER :: ICNTRL(20), ISTATUS(20), IERR - - ICNTRL(:) = 0 - RCNTRL(:) = 0.0_dp - ISTATUS(:) = 0 - - ! If optional parameters are given, and if they are >0, - ! then they overwrite default settings. - IF (PRESENT(ICNTRL_U)) THEN - WHERE(ICNTRL_U(:) > 0) ICNTRL(:) = ICNTRL_U(:) - END IF - IF (PRESENT(RCNTRL_U)) THEN - WHERE(RCNTRL_U(:) > 0) RCNTRL(:) = RCNTRL_U(:) - END IF - - CALL SDIRK( NVAR,TIN,TOUT,VAR,RTOL,ATOL, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR ) - -! mz_rs_20050716: IERR and ISTATUS(istp) are returned to the user who then -! decides what to do about it, i.e. either stop the run or ignore it. -!!$ IF (IERR < 0) THEN -!!$ PRINT *,'SDIRK: Unsuccessful exit at T=',TIN,' (IERR=',IERR,')' -!!$ ENDIF -!!$ Ntotal = Ntotal + Nstp -!!$ PRINT*,'NSTEPS=',Nstp, '(',Ntotal,')' - - STEPMIN = RSTATUS(ihexit) ! Save last step - - ! if optional parameters are given for output they to return information - IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(:) - IF (PRESENT(RSTATUS_U)) THEN - RSTATUS_U(:) = RSTATUS(:) - RSTATUS_U(1) = TOUT ! final time - END IF - IF (PRESENT(IERR_U)) IERR_U = IERR - - END SUBROUTINE INTEGRATE - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK(N, Tinitial, Tfinal, Y, RelTol, AbsTol, & - RCNTRL, ICNTRL, RSTATUS, ISTATUS, IDID) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Solves the system y'=F(t,y) using a Singly-Diagonally-Implicit -! Runge-Kutta (SDIRK) method. -! -! For details on SDIRK methods and their implementation consult: -! E. Hairer and G. Wanner -! "Solving ODEs II. Stiff and differential-algebraic problems". -! Springer series in computational mathematics, Springer-Verlag, 1996. -! This code is based on the SDIRK4 routine in the above book. -! -! (C) Adrian Sandu, July 2005 -! Virginia Polytechnic Institute and State University -! Contact: sandu@cs.vt.edu -! This implementation is part of KPP - the Kinetic PreProcessor -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT ARGUMENTS: -! -!- Y(NVAR) = vector of initial conditions (at T=Tinitial) -!- [Tinitial,Tfinal] = time range of integration -! (if Tinitial>Tfinal the integration is performed backwards in time) -!- RelTol, AbsTol = user precribed accuracy -!- SUBROUTINE ode_Fun( T, Y, Ydot ) = ODE function, -! returns Ydot = Y' = F(T,Y) -!- SUBROUTINE ode_Fun( T, Y, Ydot ) = Jacobian of the ODE function, -! returns Jcb = dF/dY -!- ICNTRL(1:20) = integer inputs parameters -!- RCNTRL(1:20) = real inputs parameters -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT ARGUMENTS: -! -!- Y(NVAR) -> vector of final states (at T->Tfinal) -!- ISTATUS(1:20) -> integer output parameters -!- RSTATUS(1:20) -> real output parameters -!- IDID -> job status upon return -! success (positive value) or -! failure (negative value) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT PARAMETERS: -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -!~~~> -! ICNTRL(1) = not used -! -! ICNTRL(2) = 0: AbsTol, RelTol are NVAR-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ICNTRL(3) = not used -! -! ICNTRL(4) -> maximum number of integration steps -! For ICNTRL(4)=0 the default value of 100000 is used -! -! ICNTRL(5) -> maximum number of Newton iterations -! For ICNTRL(5)=0 the default value of 8 is used -! -! ICNTRL(6) -> starting values of Newton iterations: -! ICNTRL(6)=0 : starting values are interpolated (the default) -! ICNTRL(6)=1 : starting values are zero -! -!~~~> Real parameters -! -! RCNTRL(1) -> Hmin, lower bound for the integration step size -! It is strongly recommended to keep Hmin = ZERO -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! RCNTRL(3) -> Hstart, starting value for the integration step size -! -! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! RCNTRL(5) -> FacMax, upper bound on step increase factor (default=6) -! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -! RCNTRL(8) -> ThetaMin. If Newton convergence rate smaller -! than ThetaMin the Jacobian is not recomputed; -! (default=0.001) -! RCNTRL(9) -> NewtonTol, stopping criterion for Newton's method -! (default=0.03) -! RCNTRL(10) -> Qmin -! RCNTRL(11) -> Qmax. If Qmin < Hnew/Hold < Qmax, then the -! step size is kept constant and the LU factorization -! reused (default Qmin=1, Qmax=1.2) -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT PARAMETERS: -! -! Note: each call to Rosenbrock adds the current no. of fcn calls -! to previous value of ISTATUS(1), and similar for the other params. -! Set ISTATUS(1:10) = 0 before call to avoid this accumulation. -! -! ISTATUS(1) = No. of function calls -! ISTATUS(2) = No. of jacobian calls -! ISTATUS(3) = No. of steps -! ISTATUS(4) = No. of accepted steps -! ISTATUS(5) = No. of rejected steps (except at the beginning) -! ISTATUS(6) = No. of LU decompositions -! ISTATUS(7) = No. of forward/backward substitutions -! ISTATUS(8) = No. of singular matrix decompositions -! -! RSTATUS(1) -> Texit, the time corresponding to the -! computed Y upon return -! RSTATUS(2) -> Hexit, last predicted step before exit -! For multiple restarts, use Hexit as Hstart in the following run -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -! Arguments - INTEGER, INTENT(IN) :: N, ICNTRL(20) - KPP_REAL, INTENT(IN) :: Tinitial, Tfinal, & - RelTol(NVAR), AbsTol(NVAR), RCNTRL(20) - KPP_REAL, INTENT(INOUT) :: Y(NVAR) - INTEGER, INTENT(OUT) :: IDID - INTEGER, INTENT(INOUT) :: ISTATUS(20) - KPP_REAL, INTENT(OUT) :: RSTATUS(20) - -! Local variables - KPP_REAL :: Hmin, Hmax, Hstart, Roundoff, & - FacMin, Facmax, FacSafe, FacRej, & - ThetaMin, NewtonTol, Qmin, Qmax, & - Texit, Hexit - INTEGER :: ITOL, NewtonMaxit, Max_no_steps, i - KPP_REAL, PARAMETER :: ZERO = 0.0d0 - -!~~~> Initialize statistics - Nfun = ISTATUS(ifun) - Njac = ISTATUS(ijac) - Nstp = ISTATUS(istp) - Nacc = ISTATUS(iacc) - Nrej = ISTATUS(irej) - Ndec = ISTATUS(idec) - Nsol = ISTATUS(isol) - Nsng = ISTATUS(isng) -! Nfun=0; Njac=0; Nstp=0; Nacc=0 -! Nrej=0; Ndec=0; Nsol=0; Nsng=0 - - IDID = 0 - -!~~~> For Scalar tolerances (ICNTRL(2).NE.0) the code uses AbsTol(1) and RelTol(1) -! For Vector tolerances (ICNTRL(2) == 0) the code uses AbsTol(1:NVAR) and RelTol(1:NVAR) - IF (ICNTRL(2) == 0) THEN - ITOL = 1 - ELSE - ITOL = 0 - END IF - -!~~~> The maximum number of time steps admitted - IF (ICNTRL(3) == 0) THEN - Max_no_steps = 100000 - ELSEIF (Max_no_steps > 0) THEN - Max_no_steps=ICNTRL(3) - ELSE - PRINT * ,'User-selected ICNTRL(3)=',ICNTRL(3) - CALL SDIRK_ErrorMsg(-1,Tinitial,ZERO,IDID) - END IF - - -!~~~> The maximum number of Newton iterations admitted - IF(ICNTRL(4) == 0)THEN - NewtonMaxit=8 - ELSE - NewtonMaxit=ICNTRL(4) - IF(NewtonMaxit <= 0)THEN - PRINT * ,'User-selected ICNTRL(4)=',ICNTRL(4) - CALL SDIRK_ErrorMsg(-2,Tinitial,ZERO,IDID) - END IF - END IF - -!~~~> Unit roundoff (1+Roundoff>1) - Roundoff = WLAMCH('E') - -!~~~> Lower bound on the step size: (positive value) - IF (RCNTRL(1) == ZERO) THEN - Hmin = ZERO - ELSEIF (RCNTRL(1) > ZERO) THEN - Hmin = RCNTRL(1) - ELSE - PRINT * , 'User-selected RCNTRL(1)=', RCNTRL(1) - CALL SDIRK_ErrorMsg(-3,Tinitial,ZERO,IDID) - END IF - -!~~~> Upper bound on the step size: (positive value) - IF (RCNTRL(2) == ZERO) THEN - Hmax = ABS(Tfinal-Tinitial) - ELSEIF (RCNTRL(2) > ZERO) THEN - Hmax = MIN(ABS(RCNTRL(2)),ABS(Tfinal-Tinitial)) - ELSE - PRINT * , 'User-selected RCNTRL(2)=', RCNTRL(2) - CALL SDIRK_ErrorMsg(-3,Tinitial,ZERO,IDID) - END IF - -!~~~> Starting step size: (positive value) - IF (RCNTRL(3) == ZERO) THEN - Hstart = MAX(Hmin,Roundoff) - ELSEIF (RCNTRL(3) > ZERO) THEN - Hstart = MIN(ABS(RCNTRL(3)),ABS(Tfinal-Tinitial)) - ELSE - PRINT * , 'User-selected Hstart: RCNTRL(3)=', RCNTRL(3) - CALL SDIRK_ErrorMsg(-3,Tinitial,ZERO,IDID) - END IF - -!~~~> Step size can be changed s.t. FacMin < Hnew/Hexit < FacMax - IF (RCNTRL(4) == ZERO) THEN - FacMin = 0.2_dp - ELSEIF (RCNTRL(4) > ZERO) THEN - FacMin = RCNTRL(4) - ELSE - PRINT * , 'User-selected FacMin: RCNTRL(4)=', RCNTRL(4) - CALL SDIRK_ErrorMsg(-4,Tinitial,ZERO,IDID) - END IF - IF (RCNTRL(5) == ZERO) THEN - FacMax = 10.0_dp - ELSEIF (RCNTRL(5) > ZERO) THEN - FacMax = RCNTRL(5) - ELSE - PRINT * , 'User-selected FacMax: RCNTRL(5)=', RCNTRL(5) - CALL SDIRK_ErrorMsg(-4,Tinitial,ZERO,IDID) - END IF -!~~~> FacRej: Factor to decrease step after 2 succesive rejections - IF (RCNTRL(6) == ZERO) THEN - FacRej = 0.1_dp - ELSEIF (RCNTRL(6) > ZERO) THEN - FacRej = RCNTRL(6) - ELSE - PRINT * , 'User-selected FacRej: RCNTRL(6)=', RCNTRL(6) - CALL SDIRK_ErrorMsg(-4,Tinitial,ZERO,IDID) - END IF -!~~~> FacSafe: Safety Factor in the computation of new step size - IF (RCNTRL(7) == ZERO) THEN - FacSafe = 0.9_dp - ELSEIF (RCNTRL(7) > ZERO) THEN - FacSafe = RCNTRL(7) - ELSE - PRINT * , 'User-selected FacSafe: RCNTRL(7)=', RCNTRL(7) - CALL SDIRK_ErrorMsg(-4,Tinitial,ZERO,IDID) - END IF - -!~~~> DECIDES WHETHER THE JACOBIAN SHOULD BE RECOMPUTED; - IF(RCNTRL(8) == 0.D0)THEN - ThetaMin = 1.0d-3 - ELSE - ThetaMin = RCNTRL(8) - END IF - -!~~~> STOPPING CRITERION FOR NEWTON'S METHOD - IF(RCNTRL(9) == 0.0d0)THEN - NewtonTol = 3.0d-2 - ELSE - NewtonTol =RCNTRL(9) - END IF - -!~~~> Qmin AND Qmax: IF Qmin < Hnew/Hold < Qmax, STEP SIZE = CONST. - IF(RCNTRL(10) == 0.D0)THEN - Qmin=1.D0 - ELSE - Qmin=RCNTRL(10) - END IF - IF(RCNTRL(11) == 0.D0)THEN - Qmax=1.2D0 - ELSE - Qmax=RCNTRL(11) - END IF - -!~~~> Check if tolerances are reasonable - IF (ITOL == 0) THEN - IF (AbsTol(1) <= 0.D0.OR.RelTol(1) <= 10.D0*Roundoff) THEN - PRINT * , ' Scalar AbsTol = ',AbsTol(1) - PRINT * , ' Scalar RelTol = ',RelTol(1) - CALL SDIRK_ErrorMsg(-5,Tinitial,ZERO,IDID) - END IF - ELSE - DO i=1,N - IF (AbsTol(i) <= 0.D0.OR.RelTol(i) <= 10.D0*Roundoff) THEN - PRINT * , ' AbsTol(',i,') = ',AbsTol(i) - PRINT * , ' RelTol(',i,') = ',RelTol(i) - CALL SDIRK_ErrorMsg(-5,Tinitial,ZERO,IDID) - END IF - END DO - END IF - - IF (IDID < 0) RETURN - - -!~~~> CALL TO CORE INTEGRATOR - CALL SDIRK_Integrator( N,Tinitial,Tfinal,Y,Hmin,Hmax,Hstart, & - RelTol,AbsTol,ITOL, Max_no_steps, NewtonMaxit, & - Roundoff, FacMin, FacMax, FacRej, FacSafe, ThetaMin, & - NewtonTol, Qmin, Qmax, Hexit, Texit, IDID ) - -!~~~> Collect run statistics - ISTATUS(ifun) = Nfun - ISTATUS(ijac) = Njac - ISTATUS(istp) = Nstp - ISTATUS(iacc) = Nacc - ISTATUS(irej) = Nrej - ISTATUS(idec) = Ndec - ISTATUS(isol) = Nsol - ISTATUS(isng) = Nsng -!~~~> Last T and H - RSTATUS(:) = 0.0_dp - RSTATUS(itexit) = Texit - RSTATUS(ihexit) = Hexit - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - CONTAINS ! PROCEDURES INTERNAL TO SDIRK -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_Integrator( N,Tinitial,Tfinal,Y,Hmin,Hmax,Hstart, & - RelTol,AbsTol,ITOL, Max_no_steps, NewtonMaxit, & - Roundoff, FacMin, FacMax, FacRej, FacSafe, ThetaMin, & - NewtonTol, Qmin, Qmax, Hexit, Texit, IDID ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! CORE INTEGRATOR FOR SDIRK4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters - IMPLICIT NONE - -!~~~> Arguments: - INTEGER :: N - KPP_REAL, INTENT(INOUT) :: Y(NVAR) - KPP_REAL, INTENT(IN) :: Tinitial, Tfinal, Hmin, Hmax, Hstart, & - RelTol(NVAR), AbsTol(NVAR), Roundoff, & - FacMin, FacMax, FacRej, FacSafe, ThetaMin, & - NewtonTol, Qmin, Qmax - KPP_REAL, INTENT(OUT) :: Hexit, Texit - INTEGER, INTENT(IN) :: ITOL, Max_no_steps, NewtonMaxit - INTEGER, INTENT(OUT) :: IDID - -!~~~> Local variables: - KPP_REAL :: Z(NVAR,5), FV(NVAR,5), CONT(NVAR,4), & - NewtonFactor(5), SCAL(NVAR), RHS(NVAR), & - G(NVAR), Yhat(NVAR), TMP(NVAR), & - T, H, Hold, Theta, Hratio, Hmax1, W, & - HGammaInv, DYTH, QNEWT, ERR, Fac, Hnew, & - Tdirection, NewtonErr, NewtonErrOld - INTEGER :: i, j, IER, istage, NewtonIter, IP(NVAR) - LOGICAL :: Reject, FIRST, NewtonReject, FreshJac, SkipJacUpdate, SkipLU - -#ifdef FULL_ALGEBRA - KPP_REAL FJAC(NVAR,NVAR), E(NVAR,NVAR) -#else - KPP_REAL FJAC(LU_NONZERO), E(LU_NONZERO) -#endif - KPP_REAL, PARAMETER :: ZERO = 0.0d0, ONE = 1.0d0 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! INITIALISATIONS -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - CALL SDIRK_Coefficients - T = Tinitial - Tdirection = SIGN(1.D0,Tfinal-Tinitial) - Hmax1=MIN(ABS(Hmax),ABS(Tfinal-Tinitial)) - H = MAX(ABS(Hmin),ABS(Hstart)) - IF (ABS(H) <= 10.D0*Roundoff) H=1.0D-6 - H=MIN(ABS(H),Hmax1) - H=SIGN(H,Tdirection) - Hold=H - NewtonReject=.FALSE. - SkipLU =.FALSE. - FreshJac = .FALSE. - SkipJacUpdate = .FALSE. - Reject=.FALSE. - FIRST=.TRUE. - NewtonFactor(1:5)=ONE - - CALL SDIRK_ErrorScale(ITOL, AbsTol, RelTol, Y, SCAL) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Time loop begins -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -Tloop: DO WHILE ( (Tfinal-T)*Tdirection - Roundoff > ZERO ) - - -!~~~> Compute E = 1/(h*gamma)-Jac and its LU decomposition - IF ( SkipLU ) THEN ! This time around skip the Jac update and LU - SkipLU = .FALSE.; FreshJac = .FALSE.; SkipJacUpdate = .FALSE. - ELSE - CALL SDIRK_PrepareMatrix ( H, T, Y, FJAC, & - FreshJac, SkipJacUpdate, E, IP, Reject, IER ) - IF (IER /= 0) THEN - CALL SDIRK_ErrorMsg(-8,T,H,IDID); RETURN - END IF - END IF - - IF (Nstp>Max_no_steps) THEN - CALL SDIRK_ErrorMsg(-6,T,H,IDID); RETURN - END IF - IF ( (T+0.1d0*H == T) .OR. (ABS(H) <= Roundoff) ) THEN - CALL SDIRK_ErrorMsg(-7,T,H,IDID); RETURN - END IF - - HGammaInv = ONE/(H*rkGamma) - -!~~~> NEWTON ITERATION -stages:DO istage=1,5 - - NewtonFactor(istage) = MAX(NewtonFactor(istage),Roundoff)**0.8d0 - -!~~~> STARTING VALUES FOR NEWTON ITERATION - CALL Set2zero(N,G) - CALL Set2zero(N,Z(1,istage)) - IF (istage==1) THEN - IF (FIRST.OR.NewtonReject) THEN - CALL Set2zero(N,Z(1,istage)) - ELSE - W=ONE+rkGamma*H/Hold - DO i=1,N - Z(i,istage)=W*(CONT(i,1)+W*(CONT(i,2)+W*(CONT(i,3)+W*CONT(i,4))))-Yhat(i) - END DO - END IF - ELSE - DO j = 1, istage-1 - ! Gj(:) = sum_j Beta(i,j)*Zj(:) = H * sum_j A(i,j)*Fun(Zj(:)) - CALL WAXPY(N,rkBeta(istage,j),Z(1,j),1,G,1) - ! CALL WAXPY(N,H*rkA(istage,j),FV(1,j),1,G,1) - ! Zi(:) = sum_j Alpha(i,j)*Zj(:) - CALL WAXPY(N,rkAlpha(istage,j),Z(1,j),1,Z(1,istage),1) - END DO - IF (istage==5) CALL WCOPY(N,Z(1,istage),1,Yhat,1) ! Yhat(:) <- Z5(:) - END IF - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! LOOP FOR THE SIMPLIFIED NEWTON ITERATION -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - NewtonIter=0 - Theta=ABS(ThetaMin) - IF (Reject) Theta=2*ABS(ThetaMin) - NewtonErr = 1.0e+6 ! To force-enter Newton loop - - Newton: DO WHILE (NewtonFactor(istage)*NewtonErr > NewtonTol) - - IF (NewtonIter >= NewtonMaxit) THEN - H=H*0.5d0 - Reject=.TRUE. - NewtonReject=.TRUE. - CYCLE Tloop - END IF - NewtonIter=NewtonIter+1 - -!~~~> COMPUTE THE RIGHT-HAND SIDE - TMP(1:N) = Y(1:N) + Z(1:N,istage) - CALL FUN_CHEM(T+rkC(istage)*H,TMP,RHS) - TMP(1:N) = G(1:N) - Z(1:N,istage) - CALL WAXPY(N,HGammaInv,TMP,1,RHS,1) ! RHS(:) <- RHS(:) + HGammaInv*(G(:)-Z(:)) - -!~~~> SOLVE THE LINEAR SYSTEMS -#ifdef FULL_ALGEBRA - CALL DGETRS( 'N', N, 1, E, N, IP, RHS, N, IER ) -#else - CALL KppSolve(E, RHS) -#endif - Nsol=Nsol+1 - -!~~~> CHECK CONVERGENCE OR IF NUMBER OF ITERATIONS TOO LARGE - CALL SDIRK_ErrorNorm(N, RHS, SCAL, NewtonErr) - IF ( (NewtonIter >= 2) .AND. (NewtonIter < NewtonMaxit) ) THEN - Theta = NewtonErr/NewtonErrOld - IF (Theta < 0.99d0) THEN - NewtonFactor(istage)=Theta/(ONE-Theta) - DYTH = NewtonFactor(istage)*NewtonErr* & - Theta**(NewtonMaxit-1-NewtonIter) - QNEWT = MAX(1.0d-4,MIN(16.0d0,DYTH/NewtonTol)) - IF (QNEWT >= ONE) THEN - H=.8D0*H*QNEWT**(-ONE/(NewtonMaxit-NewtonIter)) - Reject=.TRUE. - NewtonReject=.TRUE. - CYCLE Tloop ! go back to the beginning of DO step - END IF - ELSE - NewtonReject=.TRUE. - H=H*0.5d0 - Reject=.TRUE. - CYCLE Tloop ! go back to the beginning of DO step - END IF - END IF - NewtonErrOld = NewtonErr - CALL WAXPY(N,ONE,RHS,1,Z(1,istage),1) ! Z(:) <-- Z(:)+RHS(:) - - END DO Newton - -!~~> END OF SIMPLIFIED NEWTON ITERATION - ! Save function values - TMP(1:N) = Y(1:N) + Z(1:N,istage) - CALL FUN_CHEM(T+rkC(istage)*H,TMP,FV(1,istage)) - - END DO stages - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! ERROR ESTIMATION -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - Nstp=Nstp+1 - TMP(1:N)=HGammaInv*(Z(1:N,5)-Yhat(1:N)) - -#ifdef FULL_ALGEBRA - CALL DGETRS( 'N', N, 1, E, N, IP, TMP, N, IER ) -#else - CALL KppSolve(E, TMP) -#endif - - CALL SDIRK_ErrorNorm(N, TMP, SCAL, ERR) - -!~~~> COMPUTATION OF Hnew: WE REQUIRE FacMin <= Hnew/H <= FacMax - !Safe = FacSafe*DBLE(1+2*NewtonMaxit)/DBLE(NewtonIter+2*NewtonMaxit) - Fac = MAX(FacMin,MIN(FacMax,(ERR)**(-0.25d0)*FacSafe)) - Hnew = H*Fac - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! ACCEPT/Reject STEP -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -accept: IF ( ERR < ONE ) THEN !~~~> STEP IS ACCEPTED - - FIRST=.FALSE. - Nacc=Nacc+1 - Hold=H - -!~~~> COEFFICIENTS FOR CONTINUOUS SOLUTION - CALL WAXPY(N,ONE,Z(1,5),1,Y,1) ! Y(:) <-- Y(:)+Z5(:) - CALL WCOPY(N,Z(1,5),1,Yhat,1) ! Yhat <-- Z5 - - DO i=1,4 ! CONTi <-- Sum_j rkD(i,j)*Zj - CALL Set2zero(N,CONT(1,i)) - DO j = 1,5 - CALL WAXPY(N,rkD(i,j),Z(1,j),1,CONT(1,i),1) - END DO - END DO - - CALL SDIRK_ErrorScale(ITOL, AbsTol, RelTol, Y, SCAL) - - T=T+H - FreshJac=.FALSE. - - Hnew = Tdirection*MIN(ABS(Hnew),Hmax1) - Hexit = Hnew - IF (Reject) Hnew=Tdirection*MIN(ABS(Hnew),ABS(H)) - Reject = .FALSE. - NewtonReject = .FALSE. - IF ((T+Hnew/Qmin-Tfinal)*Tdirection > 0.D0) THEN - H = Tfinal-T - ELSE - Hratio=Hnew/H - ! If step not changed too much, keep it as is; - ! do not update Jacobian and reuse LU - IF ( (Theta <= ThetaMin) .AND. (Hratio >= Qmin) & - .AND. (Hratio <= Qmax) ) THEN - SkipJacUpdate = .TRUE. - SkipLU = .TRUE. - ELSE - H = Hnew - END IF - END IF - ! If convergence is fast enough, do not update Jacobian - IF (Theta <= ThetaMin) SkipJacUpdate = .TRUE. - - ELSE accept !~~~> STEP IS REJECTED - - Reject=.TRUE. - IF (FIRST) THEN - H=H*FacRej - ELSE - H=Hnew - END IF - IF (Nacc >= 1) Nrej=Nrej+1 - - END IF accept - - END DO Tloop - - ! Successful return - Texit = T - IDID = 1 - - END SUBROUTINE SDIRK_Integrator - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_ErrorScale(ITOL, AbsTol, RelTol, Y, SCAL) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - INTEGER :: i, ITOL - KPP_REAL :: AbsTol(NVAR), RelTol(NVAR), & - Y(NVAR), SCAL(NVAR) - IF (ITOL == 0) THEN - DO i=1,NVAR - SCAL(i) = 1.0d0 / ( AbsTol(1)+RelTol(1)*ABS(Y(i)) ) - END DO - ELSE - DO i=1,NVAR - SCAL(i) = 1.0d0 / ( AbsTol(i)+RelTol(i)*ABS(Y(i)) ) - END DO - END IF - END SUBROUTINE SDIRK_ErrorScale - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_ErrorNorm(N, Y, SCAL, ERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! - INTEGER :: i, N - KPP_REAL :: Y(N), SCAL(N), ERR - ERR=0.0d0 - DO i=1,N - ERR = ERR+(Y(i)*SCAL(i))**2 - END DO - ERR = MAX( SQRT(ERR/DBLE(N)), 1.0d-10 ) -! - END SUBROUTINE SDIRK_ErrorNorm - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_ErrorMsg(Code,T,H,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - KPP_REAL, INTENT(IN) :: T, H - INTEGER, INTENT(IN) :: Code - INTEGER, INTENT(OUT) :: IERR - - IERR = Code - PRINT * , & - 'Forced exit from SDIRK due to the following error:' - IF ((Code>=-8).AND.(Code<=-1)) THEN - PRINT *, IERR_NAMES(Code) - ELSE - PRINT *, 'Unknown Error code: ', Code - ENDIF - - PRINT *, "T=", T, "and H=", H - - END SUBROUTINE SDIRK_ErrorMsg - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_PrepareMatrix ( H, T, Y, FJAC, & - FreshJac, SkipJacUpdate, E, IP, Reject, IER ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! - IMPLICIT NONE - - KPP_REAL, INTENT(INOUT) :: H - KPP_REAL, INTENT(IN) :: T, Y(NVAR) - LOGICAL, INTENT(INOUT) :: FreshJac, SkipJacUpdate - INTEGER, INTENT(OUT) :: IER, IP(NVAR) - LOGICAL, INTENT(INOUT) :: Reject -#ifdef FULL_ALGEBRA - KPP_REAL, INTENT(INOUT) :: FJAC(NVAR,NVAR) - KPP_REAL, INTENT(OUT) :: E(NVAR,NVAR) -#else - KPP_REAL, INTENT(INOUT) :: FJAC(LU_NONZERO) - KPP_REAL, INTENT(OUT) :: E(LU_NONZERO) -#endif - KPP_REAL :: HGammaInv - INTEGER :: i, j, ConsecutiveSng - KPP_REAL, PARAMETER :: ONE = 1.0d0 - - 20 CONTINUE - -!~~~> COMPUTE THE JACOBIAN - IF (SkipJacUpdate) THEN - SkipJacUpdate = .FALSE. - ELSE IF ( .NOT.FreshJac ) THEN - CALL JAC_CHEM( T, Y, FJAC ) - FreshJac = .TRUE. - END IF - -!~~~> Compute the matrix E = 1/(H*GAMMA)*Jac, and its decomposition - ConsecutiveSng = 0 - IER = 1 - -Hloop: DO WHILE (IER /= 0) - - HGammaInv = ONE/(H*rkGamma) - -#ifdef FULL_ALGEBRA - DO j=1,NVAR - DO i=1,NVAR - E(i,j)=-FJAC(i,j) - END DO - E(j,j)=E(j,j)+HGammaInv - END DO - CALL DGETRF( NVAR, NVAR, E, NVAR, IP, IER ) -#else - DO i = 1,LU_NONZERO - E(i) = -FJAC(i) - END DO - DO i = 1,NVAR - j = LU_DIAG(i); E(j) = E(j) + HGammaInv - END DO - CALL KppDecomp ( E, IER) - IP(1) = 1 -#endif - Ndec=Ndec+1 - - IF (IER /= 0) THEN - WRITE (6,*) ' MATRIX IS SINGULAR, IER=',IER,' T=',T,' H=',H - Nsng = Nsng+1; ConsecutiveSng = ConsecutiveSng + 1 - IF (ConsecutiveSng >= 6) RETURN ! Failure - H=H*0.5d0 - Reject=.TRUE. - !~~~> Update Jacobian if not fresh - IF ( .NOT.FreshJac ) GOTO 20 - END IF - - END DO Hloop - - END SUBROUTINE SDIRK_PrepareMatrix - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_Coefficients -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - rkGamma=4.0d0/15.0d0 - - rkA(1,1)= 4.d0/15.d0 - rkA(2,1)= 1.d0/2.d0 - rkA(2,2)= 4.d0/15.d0 - rkA(3,1)= 51069.d0/144200.d0 - rkA(3,2)=-7809.d0/144200.d0 - rkA(3,3)= 4.d0/15.d0 - rkA(4,1)= 12047244770625658.d0/141474406359725325.d0 - rkA(4,2)=-3057890203562191.d0/47158135453241775.d0 - rkA(4,3)= 2239631894905804.d0/28294881271945065.d0 - rkA(4,4)= 4.d0/15.d0 - rkA(5,1)= 181513.d0/86430.d0 - rkA(5,2)=-89074.d0/116015.d0 - rkA(5,3)= 83636.d0/34851.d0 - rkA(5,4)=-69863904375173.d0/23297141763930.d0 - rkA(5,5)= 4.d0/15.d0 - - rkB(1)= 181513.d0/86430.d0 - rkB(2)=-89074.d0/116015.d0 - rkB(3)= 83636.d0/34851.d0 - rkB(4)=-69863904375173.d0/23297141763930.d0 - rkB(5)= 4/15.d0 - - rkC(1)=4.d0/15.d0 - rkC(2)=23.d0/30.d0 - rkC(3)=17.d0/30.d0 - rkC(4)=707.d0/1931.d0 - rkC(5)=1.d0 - - rkBeta(2,1)=15.0d0/8.0d0 - rkBeta(3,1)=1577061.0d0/922880.0d0 - rkBeta(3,2)=-23427.0d0/115360.0d0 - rkBeta(4,1)=647163682356923881.0d0/2414496535205978880.0d0 - rkBeta(4,2)=-593512117011179.0d0/3245291041943520.0d0 - rkBeta(4,3)=559907973726451.0d0/1886325418129671.0d0 - rkBeta(5,1)=724545451.0d0/796538880.0d0 - rkBeta(5,2)=-830832077.0d0/267298560.0d0 - rkBeta(5,3)=30957577.0d0/2509272.0d0 - rkBeta(5,4)=-69863904375173.0d0/6212571137048.0d0 - - rkAlpha(2,1)= 23.d0/8.d0 - rkAlpha(3,1)= 0.9838473040915402d0 - rkAlpha(3,2)= 0.3969226768377252d0 - rkAlpha(4,1)= 0.6563374010466914d0 - rkAlpha(4,2)= 0.0d0 - rkAlpha(4,3)= 0.3372498196189311d0 - rkAlpha(5,1)=7752107607.0d0/11393456128.0d0 - rkAlpha(5,2)=-17881415427.0d0/11470078208.0d0 - rkAlpha(5,3)=2433277665.0d0/179459416.0d0 - rkAlpha(5,4)=-96203066666797.0d0/6212571137048.0d0 - - rkD(1,1)= 24.74416644927758d0 - rkD(1,2)= -4.325375951824688d0 - rkD(1,3)= 41.39683763286316d0 - rkD(1,4)= -61.04144619901784d0 - rkD(1,5)= -3.391332232917013d0 - rkD(2,1)= -51.98245719616925d0 - rkD(2,2)= 10.52501981094525d0 - rkD(2,3)= -154.2067922191855d0 - rkD(2,4)= 214.3082125319825d0 - rkD(2,5)= 14.71166018088679d0 - rkD(3,1)= 33.14347947522142d0 - rkD(3,2)= -19.72986789558523d0 - rkD(3,3)= 230.4878502285804d0 - rkD(3,4)= -287.6629744338197d0 - rkD(3,5)= -18.99932366302254d0 - rkD(4,1)= -5.905188728329743d0 - rkD(4,2)= 13.53022403646467d0 - rkD(4,3)= -117.6778956422581d0 - rkD(4,4)= 134.3962081008550d0 - rkD(4,5)= 8.678995715052762d0 - - END SUBROUTINE SDIRK_Coefficients - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - END SUBROUTINE SDIRK ! AND ALL ITS INTERNAL PROCEDURES -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE FUN_CHEM( T, Y, P ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters, ONLY: NVAR, LU_NONZERO - USE KPP_ROOT_Global, ONLY: TIME, FIX, RCONST - USE KPP_ROOT_Function - USE KPP_ROOT_Rates, ONLY: Update_SUN, Update_RCONST - - INTEGER N - KPP_REAL T, Told - KPP_REAL Y(NVAR), P(NVAR) - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - - CALL Fun( Y, FIX, RCONST, P ) - - TIME = Told - Nfun=Nfun+1 - - END SUBROUTINE FUN_CHEM - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE JAC_CHEM( T, Y, JV ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters, ONLY: NVAR, LU_NONZERO - USE KPP_ROOT_Global, ONLY: TIME, FIX, RCONST - USE KPP_ROOT_Jacobian - USE KPP_ROOT_Rates, ONLY: Update_SUN, Update_RCONST - - INTEGER N - KPP_REAL T, Told - KPP_REAL Y(NVAR) -#ifdef FULL_ALGEBRA - KPP_REAL :: JS(LU_NONZERO), JV(NVAR,NVAR) - INTEGER :: i, j -#else - KPP_REAL :: JV(LU_NONZERO) -#endif - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - -#ifdef FULL_ALGEBRA - CALL Jac_SP(Y, FIX, RCONST, JS) - DO j=1,NVAR - DO j=1,NVAR - JV(i,j) = 0.0D0 - END DO - END DO - DO i=1,LU_NONZERO - JV(LU_IROW(i),LU_ICOL(i)) = JS(i) - END DO -#else - CALL Jac_SP(Y, FIX, RCONST, JV) -#endif - TIME = Told - Njac = Njac+1 - - END SUBROUTINE JAC_CHEM - -END MODULE KPP_ROOT_Integrator diff --git a/int.modified_WCOPY/kpp_seulex.def b/int.modified_WCOPY/kpp_seulex.def deleted file mode 100644 index 16dee74d10738617bbec34e97dd963b219e094e0..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/kpp_seulex.def +++ /dev/null @@ -1,23 +0,0 @@ - -#FUNCTION AGGREGATE -#JACOBIAN SPARSE_LU_ROW - -#DOUBLE ON -#INTFILE kpp_seulex - -#INLINE F77_GLOBAL - INTEGER Autonomous - COMMON /INTGDATA/ Autonomous - REAL*8 STEPSTART - COMMON /GDATA/ STEPSTART -#ENDINLINE - -#INLINE F77_INIT - STEPMIN=0.0001 - STEPMAX=3600. - Autonomous = 0 - STEPSTART=STEPMIN -#ENDINLINE - - - diff --git a/int.modified_WCOPY/kpp_seulex.f b/int.modified_WCOPY/kpp_seulex.f deleted file mode 100644 index 98b286ccf5d7be1483bdd6615758843bb7f00b4a..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/kpp_seulex.f +++ /dev/null @@ -1,1174 +0,0 @@ - SUBROUTINE INTEGRATE( TIN, TOUT ) - - IMPLICIT KPP_REAL (A-H,O-Z) - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Global.h' - -C TIN - Start Time - KPP_REAL TIN -C TOUT - End Time - KPP_REAL TOUT - INTEGER i - - PARAMETER (KM=12,KM2=2+KM*(KM+3)/2,NRDENS=NVAR) - PARAMETER (LWORK=2*NVAR*NVAR+(KM+8)*NVAR+4*KM+20+KM2*NRDENS) - PARAMETER (LIWORK=2*NVAR+KM+20+NRDENS) - - KPP_REAL WORK(LWORK) - INTEGER IWORK(LIWORK) - EXTERNAL FUNC_CHEM,JAC_CHEM - - ITOL=1 ! --- VECTOR TOLERANCES - IJAC=1 ! --- COMPUTE THE JACOBIAN ANALYTICALLY - MLJAC=NVAR ! --- JACOBIAN IS A FULL MATRIX - MUJAC=NVAR ! --- JACOBIAN IS A FULL MATRIX - IMAS=0 ! --- DIFFERENTIAL EQUATION IS IN EXPLICIT FORM - IOUT=0 ! --- OUTPUT ROUTINE IS NOT USED DURING INTEGRATION - IDFX=0 ! --- INTERNAL TIME DERIVATIVE - - DO i=1,20 - IWORK(i) = 0 - WORK(i) = 0.D0 - ENDDO - - CALL ATMSEULEX(NVAR,FUNC_CHEM,Autonomous,TIN,VAR,TOUT, - & STEPMIN,RTOL,ATOL,ITOL, - & JAC_CHEM,IJAC,MLJAC,MUJAC, - & FUNC_CHEM,IMAS,MLJAC,MUJAC, - & WORK,LWORK,IWORK,LIWORK,IDID) - - IF (IDID.LT.0) THEN - print *,'ATMSEULEX: Unsucessfull exit at T=', - & TIN,' (IDID=',IDID,')' - ENDIF - - RETURN - END - - - SUBROUTINE ATMSEULEX(N,FCN,IFCN,X,Y,XEND,H, - & RelTol,AbsTol,ITOL, - & JAC ,IJAC,MLJAC,MUJAC, - & MAS,IMAS,MLMAS,MUMAS, - & WORK,LWORK,IWORK,LIWORK,IDID) -C ---------------------------------------------------------- -C NUMERICAL SOLUTION OF A STIFF (OR DIFFERENTIAL ALGEBRAIC) -C SYSTEM OF FIRST 0RDER ORDINARY DIFFERENTIAL EQUATIONS MY'=F(X,Y). -C THIS IS AN EXTRAPOLATION-ALGORITHM, BASED ON THE -C LINEARLY IMPLICIT EULER METHOD (WITH STEP SIZE CONTROL -C AND ORDER SELECTION). -C -C AUTHORS: E. HAIRER AND G. WANNER -C UNIVERSITE DE GENEVE, DEPT. DE MATHEMATIQUES -C CH-1211 GENEVE 24, SWITZERLAND -C E-MAIL: HAIRER@DIVSUN.UNIGE.CH, WANNER@DIVSUN.UNIGE.CH -C INCLUSION OF DENSE OUTPUT BY E. HAIRER AND A. OSTERMANN -C -C THIS CODE IS PART OF THE BOOK: -C E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -C EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -C SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS 14, -C SPRINGER-VERLAG (1991) -C -C VERSION OF SEPTEMBER 30, 1995 -C -C INPUT PARAMETERS -C ---------------- -C N DIMENSION OF THE SYSTEM -C -C FCN NAME (EXTERNAL) OF SUBROUTINE COMPUTING THE -C VALUE OF F(X,Y): -C SUBROUTINE FCN(N,X,Y,F) -C KPP_REAL X,Y(N),F(N) -C F(1)=... ETC. -C RPAR, IPAR (SEE BELOW) -C -C IFCN GIVES INFORMATION ON FCN: -C IFCN=0: F(X,Y) INDEPENDENT OF X (AUTONOMOUS) -C IFCN=1: F(X,Y) MAY DEPEND ON X (NON-AUTONOMOUS) -C -C X INITIAL X-VALUE -C -C Y(N) INITIAL VALUES FOR Y -C -C XEND FINAL X-VALUE (XEND-X MAY BE POSITIVE OR NEGATIVE) -C -C H INITIAL STEP SIZE GUESS; -C FOR STIFF EQUATIONS WITH INITIAL TRANSIENT, -C H=1.D0/(NORM OF F'), USUALLY 1.D-2 OR 1.D-3, IS GOOD. -C THIS CHOICE IS NOT VERY IMPORTANT, THE CODE QUICKLY -C ADAPTS ITS STEP SIZE (IF H=0.D0, THE CODE PUTS H=1.D-6). -C -C RelTol,AbsTol RELATIVE AND ABSOLUTE ERROR TOLERANCES. THEY -C CAN BE BOTH SCALARS OR ELSE BOTH VECTORS OF LENGTH N. -C -C ITOL SWITCH FOR RelTol AND AbsTol: -C ITOL=0: BOTH RelTol AND AbsTol ARE SCALARS. -C THE CODE KEEPS, ROUGHLY, THE LOCAL ERROR OF -C Y(I) BELOW RelTol*ABS(Y(I))+AbsTol -C ITOL=1: BOTH RelTol AND AbsTol ARE VECTORS. -C THE CODE KEEPS THE LOCAL ERROR OF Y(I) BELOW -C RelTol(I)*ABS(Y(I))+AbsTol(I). -C -C JAC NAME (EXTERNAL) OF THE SUBROUTINE WHICH COMPUTES -C THE PARTIAL DERIVATIVES OF F(X,Y) WITH RESPECT TO Y -C (THIS ROUTINE IS ONLY CALLED IF IJAC=1; SUPPLY -C A DUMMY SUBROUTINE IN THE CASE IJAC=0). -C FOR IJAC=1, THIS SUBROUTINE MUST HAVE THE FORM -C SUBROUTINE JAC(N,X,Y,DFY,LDFY) -C KPP_REAL X,Y(N),DFY(LDFY,N) -C DFY(1,1)= ... -C LDFY, THE COLOMN-LENGTH OF THE ARRAY, IS -C FURNISHED BY THE CALLING PROGRAM. -C IF (MLJAC.EQ.N) THE JACOBIAN IS SUPPOSED TO -C BE FULL AND THE PARTIAL DERIVATIVES ARE -C STORED IN DFY AS -C DFY(I,J) = PARTIAL F(I) / PARTIAL Y(J) -C ELSE, THE JACOBIAN IS TAKEN AS BANDED AND -C THE PARTIAL DERIVATIVES ARE STORED -C DIAGONAL-WISE AS -C DFY(I-J+MUJAC+1,J) = PARTIAL F(I) / PARTIAL Y(J). -C -C IJAC SWITCH FOR THE COMPUTATION OF THE JACOBIAN: -C IJAC=0: JACOBIAN IS COMPUTED INTERNALLY BY FINITE -C DIFFERENCES, SUBROUTINE "JAC" IS NEVER CALLED. -C IJAC=1: JACOBIAN IS SUPPLIED BY SUBROUTINE JAC. -C -C MLJAC SWITCH FOR THE BANDED STRUCTURE OF THE JACOBIAN: -C MLJAC=N: JACOBIAN IS A FULL MATRIX. THE LINEAR -C ALGEBRA IS DONE BY FULL-MATRIX GAUSS-ELIMINATION. -C 0<=MLJAC= NUMBER OF NON-ZERO DIAGONALS BELOW -C THE MAIN DIAGONAL). -C -C MUJAC UPPER BANDWITH OF JACOBIAN MATRIX (>= NUMBER OF NON- -C ZERO DIAGONALS ABOVE THE MAIN DIAGONAL). -C NEED NOT BE DEFINED IF MLJAC=N. -C -C ---- MAS,IMAS,MLMAS, AND MUMAS HAVE ANALOG MEANINGS ----- -C ---- FOR THE "MASS MATRIX" (THE MATRIX "M" OF SECTION IV.8): - -C -C MAS NAME (EXTERNAL) OF SUBROUTINE COMPUTING THE MASS- -C MATRIX M. -C IF IMAS=0, THIS MATRIX IS ASSUMED TO BE THE IDENTITY -C MATRIX AND NEEDS NOT TO BE DEFINED; -C SUPPLY A DUMMY SUBROUTINE IN THIS CASE. -C IF IMAS=1, THE SUBROUTINE MAS IS OF THE FORM -C SUBROUTINE MAS(N,AM,LMAS) -C KPP_REAL AM(LMAS,N) -C AM(1,1)= .... -C IF (MLMAS.EQ.N) THE MASS-MATRIX IS STORED -C AS FULL MATRIX LIKE -C AM(I,J) = M(I,J) -C ELSE, THE MATRIX IS TAKEN AS BANDED AND STORED -C DIAGONAL-WISE AS -C AM(I-J+MUMAS+1,J) = M(I,J). -C -C IMAS GIVES INFORMATION ON THE MASS-MATRIX: -C IMAS=0: M IS SUPPOSED TO BE THE IDENTITY -C MATRIX, MAS IS NEVER CALLED. -C IMAS=1: MASS-MATRIX IS SUPPLIED. -C -C MLMAS SWITCH FOR THE BANDED STRUCTURE OF THE MASS-MATRIX: -C MLMAS=N: THE FULL MATRIX CASE. THE LINEAR -C ALGEBRA IS DONE BY FULL-MATRIX GAUSS-ELIMINATION. -C 0<=MLMAS= NUMBER OF NON-ZERO DIAGONALS BELOW -C THE MAIN DIAGONAL). -C MLMAS IS SUPPOSED TO BE .LE. MLJAC. -C -C MUMAS UPPER BANDWITH OF MASS-MATRIX (>= NUMBER OF NON- -C ZERO DIAGONALS ABOVE THE MAIN DIAGONAL). -C NEED NOT BE DEFINED IF MLMAS=N. -C MUMAS IS SUPPOSED TO BE .LE. MUJAC. -C -C SOLOUT NAME (EXTERNAL) OF SUBROUTINE PROVIDING THE -C NUMERICAL SOLUTION DURING INTEGRATION. -C IF IOUT>=1, IT IS CALLED AFTER EVERY SUCCESSFUL STEP. -C SUPPLY A DUMMY SUBROUTINE IF IOUT=0. -C IT MUST HAVE THE FORM -C SUBROUTINE SOLOUT (NR,XOLD,X,Y,RC,LRC,IC,LIC,N, -C RPAR,IPAR,IRTRN) -C KPP_REAL X,Y(N),RC(LRC),IC(LIC) -C .... -C SOLOUT FURNISHES THE SOLUTION "Y" AT THE NR-TH -C GRID-POINT "X" (THEREBY THE INITIAL VALUE IS -C THE FIRST GRID-POINT). -C "XOLD" IS THE PRECEEDING GRID-POINT. -C "IRTRN" SERVES TO INTERRUPT THE INTEGRATION. IF IRTRN -C IS SET <0, SEULEX RETURNS TO THE CALLING PROGRAM. -C DO NOT CHANGE THE ENTRIES OF RC(LRC),IC(LIC)! -C -C ----- CONTINUOUS OUTPUT (IF IOUT=2): ----- -C DURING CALLS TO "SOLOUT", A CONTINUOUS SOLUTION -C FOR THE INTERVAL [XOLD,X] IS AVAILABLE THROUGH -C THE KPP_REAL FUNCTION -C >>> CONTEX(I,S,RC,LRC,IC,LIC) <<< -C WHICH PROVIDES AN APPROXIMATION TO THE I-TH -C COMPONENT OF THE SOLUTION AT THE POINT S. THE VALUE -C S SHOULD LIE IN THE INTERVAL [XOLD,X]. -C -C IOUT GIVES INFORMATION ON THE SUBROUTINE SOLOUT: -C IOUT=0: SUBROUTINE IS NEVER CALLED -C IOUT=1: SUBROUTINE IS USED FOR OUTPUT -C IOUT=2: DENSE OUTPUT IS PERFORMED IN SOLOUT -C -C WORK ARRAY OF WORKING SPACE OF LENGTH "LWORK". -C SERVES AS WORKING SPACE FOR ALL VECTORS AND MATRICES. -C "LWORK" MUST BE AT LEAST -C N*(LJAC+LMAS+LE1+KM+8)+4*KM+20+KM2*NRDENS -C WHERE -C KM2=2+KM*(KM+3)/2 AND NRDENS=IWORK(6) (SEE BELOW) -C AND -C LJAC=N IF MLJAC=N (FULL JACOBIAN) -C LJAC=MLJAC+MUJAC+1 IF MLJAC0 THEN "LWORK" MUST BE AT LEAST -C N*(LJAC+KM+8)+(N-M1)*(LMAS+LE1)+4*KM+20+KM2*NRDENS -C WHERE IN THE DEFINITIONS OF LJAC, LMAS AND LE1 THE -C NUMBER N CAN BE REPLACED BY N-M1. -C -C LWORK DECLARED LENGTH OF ARRAY "WORK". -C -C IWORK INTEGER WORKING SPACE OF LENGTH "LIWORK". -C "LIWORK" MUST BE AT LEAST 2*N+KM+20+NRDENS. -C -C LIWORK DECLARED LENGTH OF ARRAY "IWORK". -C -C RPAR, IPAR REAL AND INTEGER PARAMETERS (OR PARAMETER ARRAYS) WHICH -C CAN BE USED FOR COMMUNICATION BETWEEN YOUR CALLING -C PROGRAM AND THE FCN, JAC, MAS, SOLOUT SUBROUTINES. -C -C ---------------------------------------------------------------------- -C -C SOPHISTICATED SETTING OF PARAMETERS -C ----------------------------------- -C SEVERAL PARAMETERS OF THE CODE ARE TUNED TO MAKE IT WORK -C WELL. THEY MAY BE DEFINED BY SETTING WORK(1),..,WORK(13) -C AS WELL AS IWORK(1),..,IWORK(4) DIFFERENT FROM ZERO. -C FOR ZERO INPUT, THE CODE CHOOSES DEFAULT VALUES: -C -C IWORK(1) IF IWORK(1).NE.0, THE CODE TRANSFORMS THE JACOBIAN -C MATRIX TO HESSENBERG FORM. THIS IS PARTICULARLY -C ADVANTAGEOUS FOR LARGE SYSTEMS WITH FULL JACOBIAN. -C IT DOES NOT WORK FOR BANDED JACOBIAN (MLJAC0 SOME OF THE INPUT PARAMETERS HAVE DIFFERENT MEANINGS: -C - JAC: ONLY THE ELEMENTS OF THE NON-TRIVIAL PART OF THE -C JACOBIAN HAVE TO BE STORED -C IF (MLJAC.EQ.N-M1) THE JACOBIAN IS SUPPOSED TO BE FULL -C DFY(I,J) = PARTIAL F(I+M1) / PARTIAL Y(J) -C FOR I=1,N-M1 AND J=1,N. -C ELSE, THE JACOBIAN IS BANDED ( M1 = M2 * MM ) -C DFY(I-J+MUJAC+1,J+K*M2) = PARTIAL F(I+M1) / PARTIAL Y(J+K*M2) -C FOR I=1,MLJAC+MUJAC+1 AND J=1,M2 AND K=0,MM. -C - MLJAC: MLJAC=N-M1: IF THE NON-TRIVIAL PART OF THE JACOBIAN IS FULL -C 0<=MLJAC OUTPUT ROUTINE IS NOT USED DURING INTEGRATION - - ! if optional parameters are given, and if they are >0, - ! they overwrite the default settings - IF (PRESENT(ICNTRL_U)) ICNTRL(:) = ICNTRL_U(:) - IF (PRESENT(RCNTRL_U)) RCNTRL(:) = RCNTRL_U(:) - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~----- - - - CALL ATMSEULEX(NVAR,TIN,TOUT,VAR,H,RTOL,ATOL, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR ) - Ntotal = Ntotal + Nstp -!!$ PRINT*,'NSTEPS=',Nstp,' (',Ntotal,') T=',TIN - - - Nfun = Nfun + ISTATUS(1) - Njac = Njac + ISTATUS(2) - Nstp = Nstp + ISTATUS(3) - Nacc = Nacc + ISTATUS(4) - Nrej = Nrej + ISTATUS(5) - Ndec = Ndec + ISTATUS(6) - Nsol = Nsol + ISTATUS(7) - - ! if optional parameters are given for output - ! use them to store information in them - IF (PRESENT(ISTATUS_U)) THEN - ISTATUS_U(:) = 0 - ISTATUS_U(1) = Nfun ! function calls - ISTATUS_U(2) = Njac ! jacobian calls - ISTATUS_U(3) = Nstp ! steps - ISTATUS_U(4) = Nacc ! accepted steps - ISTATUS_U(5) = Nrej ! rejected steps (except at the beginning) - ISTATUS_U(6) = Ndec ! LU decompositions - ISTATUS_U(7) = Nsol ! forward/backward substitutions - ENDIF - IF (PRESENT(RSTATUS_U)) THEN - RSTATUS_U(:) = 0. - RSTATUS_U(1) = TOUT ! final time - ENDIF - IF (PRESENT(IERR_U)) IERR_U = IERR - -! mz_rs_20050716: IERR is returned to the user who then decides what to do -! about it, i.e. either stop the run or ignore it. -!!$ IF (IERR < 0) THEN -!!$ PRINT *,'SEULEX: Unsuccessful exit at T=', TIN,' (IERR=',IERR,')' -!!$ STOP -!!$ ENDIF - - END SUBROUTINE INTEGRATE - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ATMSEULEX( N,Tinitial,Tfinal,Y,H,RelTol,AbsTol, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR ) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! NUMERICAL SOLUTION OF A STIFF (OR DIFFERENTIAL ALGEBRAIC) -! SYSTEM OF FIRST 0RDER ORDINARY DIFFERENTIAL EQUATIONS MY'=F(T,Y). -! THIS IS AN EXTRAPOLATION-ALGORITHM, BASED ON THE -! LINEARLY IMPLICIT EULER METHOD (WITH STEP SIZE CONTROL -! AND ORDER SELECTION). -! -! AUTHORS: E. HAIRER AND G. WANNER -! UNIVERSITE DE GENEVE, DEPT. DE MATHEMATIQUES -! CH-1211 GENEVE 24, SWITZERLAND -! E-MAIL: HAIRER@DIVSUN.UNIGE.CH, WANNER@DIVSUN.UNIGE.CH -! INCLUSION OF DENSE OUTPUT BY E. HAIRER AND A. OSTERMANN -! -! THIS CODE IS PART OF THE BOOK: -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS 14, -! SPRINGER-VERLAG (1991) -! -! VERSION OF SEPTEMBER 30, 1995 -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! INPUT PARAMETERS -! ---------------- -! N DIMENSION OF THE SYSTEM -! -! T INITIAL T-VALUE -! -! Y(N) INITIAL VALUES FOR Y -! -! Tend FINAL T-VALUE (Tend-T MAY BE POSITIVE OR NEGATIVE) -! -! H INITIAL STEP SIZE GUESS; -! FOR STIFF EQUATIONS WITH INITIAL TRANSIENT, -! H=1.D0/(NORM OF F'), USUALLY 1.D-2 OR 1.D-3, IS GOOD. -! THIS CHOICE IS NOT VERY IMPORTANT, THE CODE QUICKLY -! ADAPTS ITS STEP SIZE (IF H=0.D0, THE CODE PUTS H=1.D-6 -! -! RelTol,AbsTol RELATIVE AND ABSOLUTE ERROR TOLERANCES. THEY -! CAN BE BOTH SCALARS OR ELSE BOTH VECTORS OF LENGTH N. -! -! JAC NAME (EXTERNAL) OF THE SUBROUTINE WHICH COMPUTES -! THE PARTIAL DERIVATIVES OF F(T,Y) WITH RESPECT TO Y -! -! SOLOUT NAME (EXTERNAL) OF SUBROUTINE PROVIDING THE -! NUMERICAL SOLUTION DURING INTEGRATION. -! IF IOUT>=1, IT IS CALLED AFTER EVERY SUCCESSFUL STEP. -! SUPPLY A DUMMY SUBROUTINE IF IOUT=0. -! IT MUST HAVE THE FORM -! SUBROUTINE SOLOUT (NR,TOLD,T,Y,RC,LRC,IC,LIC,N, -! RPAR,IPAR,IRTRN) -! KPP_REAL T,Y(N),RC(LRC),IC(LIC) -! .... -! SOLOUT FURNISHES THE SOLUTION "Y" AT THE NR-TH -! GRID-POINT "T" (THEREBY THE INITIAL VALUE IS -! THE FIRST GRID-POINT). -! "TOLD" IS THE PRECEEDING GRID-POINT. -! "IRTRN" SERVES TO INTERRUPT THE INTEGRATION. IF IRTRN -! IS SET <0, SEULEX RETURNS TO THE CALLING PROGRAM. -! DO NOT CHANGE THE ENTRIES OF RC(LRC),IC(LIC)! -! -! ----- CONTINUOUS OUTPUT (IF IOUT=2): ----- -! DURING CALLS TO "SOLOUT", A CONTINUOUS SOLUTION -! FOR THE INTERVAL [TOLD,T] IS AVAILABLE THROUGH -! THE KPP_REAL FUNCTION -! >>> CONTEX(I,S,RC,LRC,IC,LIC) <<< -! WHICH PROVIDES AN APPROXIMATION TO THE I-TH -! COMPONENT OF THE SOLUTION AT THE POINT S. THE VALUE -! S SHOULD LIE IN THE INTERVAL [TOLD,T]. -! -! IOUT GIVES INFORMATION ON THE SUBROUTINE SOLOUT: -! IOUT=0: SUBROUTINE IS NEVER CALLED -! IOUT=1: SUBROUTINE IS USED FOR OUTPUT -! IOUT=2: DENSE OUTPUT IS PERFORMED IN SOLOUT -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! SOPHISTICATED SETTING OF PARAMETERS -! ----------------------------------- -! SEVERAL PARAMETERS OF THE CODE ARE TUNED TO MAKE IT CNTRL -! WELL. THEY MAY BE DEFINED BY SETTING CNTRL(1),..,CNTRL(13) -! AS WELL AS ICNTRL(1),..,ICNTRL(4) DIFFERENT FROM ZERO. -! FOR ZERO INPUT, THE CODE CHOOSES DEFAULT VALUES: -! -! -!~~~> INPUT PARAMETERS: -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -!~~~> -! ICNTRL(1) = 1: F = F(y) Independent of T (autonomous) -! = 0: F = F(t,y) Depends on T (non-autonomous) -! -! ICNTRL(2) = 0: AbsTol, RelTol are NVAR-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ICNTRL(3) -> not used -! -! ICNTRL(4) -> maximum number of integration steps -! For ICNTRL(4)=0 the default value of 100000 is used -! -! ICNTRL(11) THE MAXIMUM NUMBER OF COLUMNS IN THE EXTRAPOLATION -! TABLE. THE DEFAULT VALUE (FOR ICNTRL(3)=0) IS 12. -! IF ICNTRL(3).NE.0 THEN ICNTRL(3) SHOULD BE >= 3. -! -! ICNTRL(12) SWITCH FOR THE STEP SIZE SEQUENCE -! IF ICNTRL(4) == 1 THEN 1,2,3,4,6,8,12,16,24,32,48,... -! IF ICNTRL(4) == 2 THEN 2,3,4,6,8,12,16,24,32,48,64,... -! IF ICNTRL(4) == 3 THEN 1,2,3,4,5,6,7,8,9,10,... -! IF ICNTRL(4) == 4 THEN 2,3,4,5,6,7,8,9,10,11,... -! THE DEFAULT VALUE (FOR ICNTRL(4)=0) IS ICNTRL(4)=2. -! -! ICNTRL(13) PARAMETER "LAMBDA" OF DENSE OUTPUT; POSSIBLE VALUES -! ARE 0 AND 1; DEFAULT ICNTRL(5)=0. -! -! ICNTRL(14) = NRDENS = NUMBER OF COMPONENTS, FOR WHICH DENSE OUTPUT -! IS REQUIRED -! -! ICNTRL(21),...,ICNTRL(NRDENS+20) INDICATE THE COMPONENTS, FOR WHICH -! DENSE OUTPUT IS REQUIRED -! -!~~~> Real parameters -! -! RCNTRL(1) -> Hmin, lower bound for the integration step size -! It is strongly recommended to keep Hmin = ZERO -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! RCNTRL(3) -> Hstart, starting value for the integration step size -! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! RCNTRL(5) -> FacMax, upper bound on step increase factor (default=6) -! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -! RCNTRL(8) -> ThetaMin. If Newton convergence rate smaller -! than ThetaMin the Jacobian is not recomputed; -! (default=0.001). Increase cntrl(3), to 0.01 say, when -! Jacobian evaluations are costly. for small systems it -! should be smaller. -! RCNTRL(9) -> not used -! RCNTRL(10,11) -> FAC1,FAC2 (parameters for step size selection) -! RCNTRL(12,13) -> FAC3,FAC4 (parameters for order selection) -! RCNTRL(14,15) -> FacSafe1, FacSafe2 -! Safety factors for step size prediction -! HNEW=H*FacSafe2*(FacSafe1*TOL/ERR)**(1/(J-1)) -! RCNTRL(16:19) -> WorkFcn, WorkJac, WorkDec, WorkSol -! estimated computational work -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! OUTPUT PARAMETERS -! ----------------- -! T T-VALUE WHERE THE SOLUTION IS COMPUTED -! (AFTER SUCCESSFUL RETURN T=Tend) -! -! Y(N) SOLUTION AT T -! -! H PREDICTED STEP SIZE OF THE LAST ACCEPTED STEP -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! DECLARATIONS -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - INTEGER :: N, IERR, ITOL, Max_no_steps, Ncolumns, Nsequence, Lambda, & - NRDENS, i, Ncolumns2, NRD, IOUT - KPP_REAL :: Y(NVAR),AbsTol(*),RelTol(*) - KPP_REAL :: Tinitial, Tfinal, Roundoff, Hmin, Hmax, & - FacMin, FacMax, FAC1, FAC2, FAC3, FAC4, FacSafe1, & - FacSafe2, H, Hstart,WorkFcn,WorkJac, WorkDec, WorkSol,& - WorkRow, FacRej, FacSafe, ThetaMin, T - LOGICAL :: AUTNMS - KPP_REAL :: RCNTRL(20), RSTATUS(20) - INTEGER :: ICNTRL(20), ISTATUS(20) - KPP_REAL, PARAMETER :: ZERO = 0.0d0 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! SETTING THE PARAMETERS -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - Nfun=0 - Njac=0 - Nstp=0 - Nacc=0 - Nrej=0 - Ndec=0 - Nsol=0 - - IERR = 0 - - IF (ICNTRL(1) == 0) THEN - AUTNMS = .FALSE. - ELSE - AUTNMS = .TRUE. - END IF - -!~~~> For Scalar tolerances (ICNTRL(1)/=0) the code uses AbsTol(1) and RelTol(1) -!~~~> For Vector tolerances (ICNTRL(1)==0) the code uses AbsTol(1:NVAR) and RelTol(1:NVAR) - IF (ICNTRL(2) == 0) THEN - ITOL = 1 - ELSE - ITOL = 0 - END IF - -!~~~> Max_no_steps: the maximum number of time steps admitted - IF (ICNTRL(4) == 0) THEN - Max_no_steps = 100000 - ELSEIF (ICNTRL(4) > 0) THEN - Max_no_steps=ICNTRL(4) - ELSE - PRINT * ,'User-selected ICNTRL(4)=',ICNTRL(4) - CALL SEULEX_ErrorMsg(-1,Tinitial,ZERO,IERR); - END IF - -!~~~> IOUT = use (or not) the output routine - IOUT = ICNTRL(10) - IF ( IOUT<0 .OR. IOUT>2 ) THEN - PRINT * ,'User-selected ICNTRL(10)=',ICNTRL(10) - IOUT = 0 - END IF - -!~~~> Ncolumns: maximum number of columns in the extrapolation - IF (ICNTRL(11)==0) THEN - Ncolumns=12 - ELSEIF (ICNTRL(11) > 2) THEN - Ncolumns=ICNTRL(11) - ELSE - PRINT * ,'User-selected ICNTRL(11)=',ICNTRL(11) - CALL SEULEX_ErrorMsg(-2,Tinitial,ZERO,IERR); - END IF - -!~~~> Nsequence: choice of step size sequence - IF (ICNTRL(12)==0) THEN - Nsequence = 2 - ELSEIF ( (ICNTRL(12)>0).AND.(ICNTRL(12)<5) ) THEN - Nsequence = ICNTRL(4) - ELSE - PRINT * ,'User-selected ICNTRL(12)=',ICNTRL(12) - CALL SEULEX_ErrorMsg(-3,Tinitial,ZERO,IERR) - END IF - -!~~~> LAMBDA: parameter for dense output - LAMBDA = ICNTRL(13) - IF ( LAMBDA < 0 .OR. LAMBDA >= 2 ) THEN - PRINT * ,'User-selected ICNTRL(13)=',ICNTRL(13) - CALL SEULEX_ErrorMsg(-4,Tinitial,ZERO,IERR) - END IF - -!~~~>- NRDENS: number of dense output components - NRDENS=ICNTRL(14) - IF ( (NRDENS < 0) .OR. (NRDENS > N) ) THEN - PRINT * ,'User-selected ICNTRL(14)=',ICNTRL(14) - CALL SEULEX_ErrorMsg(-5,Tinitial,ZERO,IERR) - END IF - - -!~~~> Unit roundoff (1+Roundoff>1) - Roundoff = WLAMCH('E') - -!~~~> Lower bound on the step size: (positive value) - IF (RCNTRL(1) == ZERO) THEN - Hmin = ZERO - ELSEIF (RCNTRL(1) > ZERO) THEN - Hmin = RCNTRL(1) - ELSE - PRINT * , 'User-selected RCNTRL(1)=', RCNTRL(1) - CALL SEULEX_ErrorMsg(-7,Tinitial,ZERO,IERR) - RETURN - END IF - -!~~~> Upper bound on the step size: (positive value) - IF (RCNTRL(2) == ZERO) THEN - Hmax = ABS(Tfinal-Tinitial) - ELSEIF (RCNTRL(2) > ZERO) THEN - Hmax = MIN(ABS(RCNTRL(2)),ABS(Tfinal-Tinitial)) - ELSE - PRINT * , 'User-selected RCNTRL(2)=', RCNTRL(2) - CALL SEULEX_ErrorMsg(-7,Tinitial,ZERO,IERR) - RETURN - END IF - -!~~~> Starting step size: (positive value) - IF (RCNTRL(3) == ZERO) THEN - Hstart = MAX(Hmin,Roundoff) - ELSEIF (RCNTRL(3) > ZERO) THEN - Hstart = MIN(ABS(RCNTRL(3)),ABS(Tfinal-Tinitial)) - ELSE - PRINT * , 'User-selected Hstart: RCNTRL(3)=', RCNTRL(3) - CALL SEULEX_ErrorMsg(-7,Tinitial,ZERO,IERR) - RETURN - END IF - - -!~~~> Step size can be changed s.t. FacMin < Hnew/Hexit < FacMax - IF (RCNTRL(4) == ZERO) THEN - FacMin = 0.2_dp - ELSEIF (RCNTRL(4) > ZERO) THEN - FacMin = RCNTRL(4) - ELSE - PRINT * , 'User-selected FacMin: RCNTRL(4)=', RCNTRL(4) - CALL SEULEX_ErrorMsg(-8,Tinitial,ZERO,IERR) - RETURN - END IF - IF (RCNTRL(5) == ZERO) THEN - FacMax = 10.0_dp - ELSEIF (RCNTRL(5) > ZERO) THEN - FacMax = RCNTRL(5) - ELSE - PRINT * , 'User-selected FacMax: RCNTRL(5)=', RCNTRL(5) - CALL SEULEX_ErrorMsg(-8,Tinitial,ZERO,IERR) - RETURN - END IF -!~~~> FacRej: Factor to decrease step after 2 succesive rejections - IF (RCNTRL(6) == ZERO) THEN - FacRej = 0.1_dp - ELSEIF (RCNTRL(6) > ZERO) THEN - FacRej = RCNTRL(6) - ELSE - PRINT * , 'User-selected FacRej: RCNTRL(6)=', RCNTRL(6) - CALL SEULEX_ErrorMsg(-8,Tinitial,ZERO,IERR) - RETURN - END IF -!~~~> FacSafe: Safety Factor in the computation of new step size - IF (RCNTRL(7) == ZERO) THEN - FacSafe = 0.9_dp - ELSEIF (RCNTRL(7) > ZERO) THEN - FacSafe = RCNTRL(7) - ELSE - PRINT * , 'User-selected FacSafe: RCNTRL(7)=', RCNTRL(7) - CALL SEULEX_ErrorMsg(-8,Tinitial,ZERO,IERR) - RETURN - END IF - -!~~~> ThetaMin: DECIDES WHETHER THE JACOBIAN SHOULD BE RECOMPUTED; -! INCREASE WORK(3), TO 0.01 SAY, WHEN JACOBIAN EVALUATIONS -! ARE COSTLY. FOR SMALL SYSTEMS WORK(3) SHOULD BE SMALLER. - IF(RCNTRL(8) == 0.D0)THEN - ThetaMin = 1.0d-3 - ELSE - ThetaMin = RCNTRL(8) - END IF - -!~~~> FAC1,FAC2: PARAMETERS FOR STEP SIZE SELECTION -! THE NEW STEP SIZE FOR THE J-TH DIAGONAL ENTRY IS -! CHOSEN SUBJECT TO THE RESTRICTION -! FACMIN/WORK(5) <= HNEW(J)/HOLD <= 1/FACMIN -! WHERE FACMIN=WORK(4)**(1/(J-1)) - IF(RCNTRL(10) == 0.D0)THEN - FAC1=0.1D0 - ELSE - FAC1=RCNTRL(10) - END IF - IF(RCNTRL(11) == 0.D0)THEN - FAC2=4.0D0 - ELSE - FAC2=RCNTRL(11) - END IF -!~~~> FAC3, FAC4: PARAMETERS FOR THE ORDER SELECTION -! ORDER IS DECREASED IF W(K-1) <= W(K)*WORK(6) -! ORDER IS INCREASED IF W(K) <= W(K-1)*WORK(7) - IF(RCNTRL(12) == 0.D0)THEN - FAC3=0.7D0 - ELSE - FAC3=RCNTRL(12) - END IF - IF(RCNTRL(13) == 0.D0)THEN - FAC4=0.9D0 - ELSE - FAC4=RCNTRL(13) - END IF -!~~~>- FacSafe1, FacSafe2: safety factors for step size prediction -! HNEW=H*WORK(9)*(WORK(8)*TOL/ERR)**(1/(J-1)) - IF(RCNTRL(14) == 0.D0)THEN - FacSafe1=0.6D0 - ELSE - FacSafe1=RCNTRL(14) - END IF - IF(RCNTRL(15) == 0.D0)THEN - FacSafe2=0.93D0 - ELSE - FacSafe2=RCNTRL(15) - END IF - -!~~~> WorkFcn: estimated computational work for a calls to FCN - IF(RCNTRL(16) == 0.D0)THEN - WorkFcn=1.D0 - ELSE - WorkFcn=RCNTRL(16) - END IF -!~~~> WorkJac: estimated computational work for calls to JAC - IF(RCNTRL(17) == 0.D0)THEN - WorkJac=5.D0 - ELSE - WorkJac=RCNTRL(17) - END IF -!~~~> WorkDec: estimated computational work for calls to DEC - IF(RCNTRL(18) == 0.D0)THEN - WorkDec=1.D0 - ELSE - WorkDec=RCNTRL(18) - END IF -!~~~> WorkSol: estimated computational work for calls to SOL - IF(RCNTRL(19) == 0.D0)THEN - WorkSol=1.D0 - ELSE - WorkSol=RCNTRL(19) - END IF - WorkRow=WorkFcn+WorkSol - -!~~~> Check if tolerances are reasonable - IF (ITOL == 0) THEN - IF (AbsTol(1) <= 0.D0.OR.RelTol(1) <= 10.D0*Roundoff) THEN - PRINT * , ' Scalar AbsTol = ',AbsTol(1) - PRINT * , ' Scalar RelTol = ',RelTol(1) - CALL SEULEX_ErrorMsg(-9,Tinitial,ZERO,IERR) - END IF - ELSE - DO i=1,N - IF (AbsTol(i) <= 0.D0.OR.RelTol(i) <= 10.D0*Roundoff) THEN - PRINT * , ' AbsTol(',i,') = ',AbsTol(i) - PRINT * , ' RelTol(',i,') = ',RelTol(i) - CALL SEULEX_ErrorMsg(-9,Tinitial,ZERO,IERR) - END IF - END DO - END IF - - IF (IERR < 0) RETURN - -!~~~>---- PREPARE THE ENTRY-POINTS FOR THE ARRAYS IN WORK ----- - Ncolumns2=(Ncolumns*(Ncolumns+1))/2 - NRD=MAX(1,NRDENS) - - T = Tinitial -!~~~> CALL TO CORE INTEGRATOR - CALL SEULEX_Integrator(N,T,Tfinal,Y,Hmax,H,Ncolumns,RelTol,AbsTol,ITOL, & - IOUT,IERR,Max_no_steps,Roundoff,Nsequence,AUTNMS, & - FAC1,FAC2,FAC3,FAC4,ThetaMin,FacSafe1,FacSafe2,WorkJac, & - WorkDec,WorkRow,Ncolumns2,NRD,LAMBDA,Nstp) - - ISTATUS(1)=Nfun - ISTATUS(2)=Njac - ISTATUS(3)=Nstp - ISTATUS(4)=Nacc - ISTATUS(5)=Nrej - ISTATUS(6)=Ndec - ISTATUS(7)=Nsol - - END SUBROUTINE ATMSEULEX - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SEULEX_ErrorMsg(Code,T,H,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - KPP_REAL, INTENT(IN) :: T, H - INTEGER, INTENT(IN) :: Code - INTEGER, INTENT(OUT) :: IERR - - IERR = Code - PRINT * , & - 'Forced exit from SEULEX due to the following error:' - - SELECT CASE (Code) - CASE (-1) - PRINT * , '--> Improper value for maximal no of steps' - CASE (-2) - PRINT * , '--> Improper value for maximum no of columns in extrapolation' - CASE (-3) - PRINT * , '--> Improper value for step size sequence' - CASE (-4) - PRINT * , '--> Improper value for Lambda (must be 0/1)' - CASE (-5) - PRINT * , '--> Improper number of dense output components' - CASE (-6) - PRINT * , '--> Improper parameters for second order equations' - CASE (-7) - PRINT * , '--> Hmin/Hmax/Hstart must be positive' - CASE (-8) - PRINT * , '--> FacMin/FacMax/FacRej must be positive' - CASE (-9) - PRINT * , '--> Improper tolerance values' - CASE (-10) - PRINT * , '--> No of steps exceeds maximum bound' - CASE (-11) - PRINT * , '--> Step size too small: T + 10*H = T', & - ' or H < Roundoff' - CASE (-12) - PRINT * , '--> Matrix is repeatedly singular' - CASE DEFAULT - PRINT *, 'Unknown Error code: ', Code - END SELECT - - PRINT *, "T=", T, "and H=", H - - END SUBROUTINE SEULEX_ErrorMsg - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SEULEX_Integrator(N,T,Tend,Y,Hmax,H,Ncolumns,RelTol,AbsTol,ITOL,& - IOUT,IERR,Max_no_steps,Roundoff,Nsequence,AUTNMS, & - FAC1,FAC2,FAC3,FAC4,ThetaMin,FacSafe1,FacSafe2,WorkJac, & - WorkDec,WorkRow,Ncolumns2,NRD,LAMBDA,Nstp) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! CORE INTEGRATOR FOR SEULEX -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! DECLARATIONS -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE KPP_ROOT_Parameters - USE KPP_ROOT_Jacobian - IMPLICIT KPP_REAL (A-H,O-Z) - IMPLICIT INTEGER (I-N) - - INTEGER :: N, Ncolumns, Ncolumns2, K, KC, KRIGHT, KLR, KK, KRN,& - KOPT, NRD - KPP_REAL :: Y(NVAR),DY(NVAR),FX(NVAR),YHH(NVAR) - KPP_REAL :: DYH(NVAR), DEL(NVAR), WH(NVAR) - KPP_REAL :: SCAL(NVAR), HH(Ncolumns), W(Ncolumns), A(Ncolumns) -#ifdef FULL_ALGEBRA - KPP_REAL :: FJAC(NVAR,NVAR) -#else - KPP_REAL :: FJAC(LU_NONZERO) -#endif - KPP_REAL Table(Ncolumns,N) - INTEGER IP(N),NJ(Ncolumns),IPHES(N),ICOMP(NRD) - KPP_REAL RelTol(*),AbsTol(*) - KPP_REAL FSAFE(Ncolumns2,NRD),FACUL(Ncolumns),E(N,N),DENS((Ncolumns+2)*NRD) - LOGICAL REJECT,LAST,ATOV,CALJAC,CALHES,AUTNMS - - KPP_REAL TOLDD,HHH,NNRD - COMMON /COSEU/TOLDD,HHH,NNRD,KRIGHT - -!~~~> COMPUTE COEFFICIENTS FOR DENSE OUTPUT - IF (IOUT == 2) THEN - NNRD=NRD -!~~~> COMPUTE THE FACTORIALS -------- - FACUL(1)=1.D0 - DO i=1,Ncolumns-1 - FACUL(i+1)=i*FACUL(i) - END DO - END IF - -!~~~> DEFINE THE STEP SIZE SEQUENCE - IF (Nsequence == 1) THEN - NJ(1)=1 - NJ(2)=2 - NJ(3)=3 - DO I=4,Ncolumns - NJ(i)=2*NJ(I-2) - END DO - END IF - IF (Nsequence == 2) THEN - NJ(1)=2 - NJ(2)=3 - DO I=3,Ncolumns - NJ(i)=2*NJ(I-2) - END DO - END IF - DO i=1,Ncolumns - IF (Nsequence == 3) NJ(i)=I - IF (Nsequence == 4) NJ(i)=I+1 - END DO - A(1)=WorkJac+NJ(1)*WorkRow+WorkDec - DO I=2,Ncolumns - A(i)=A(i-1)+(NJ(i)-1)*WorkRow+WorkDec - END DO - K=MAX0(3,MIN0(Ncolumns-2,INT(-DLOG10(RelTol(1)+AbsTol(1))*.6D0+1.5D0))) - - ! T = Tinitial - HmaxN = MIN(ABS(Hmax),ABS(Tend-T)) - IF (ABS(H) <= 10.D0*Roundoff) H=1.0D-6 - H=MIN(ABS(H),HmaxN) - Theta=2*ABS(ThetaMin) - ERR=0.D0 - W(1)=1.D30 - DO i=1,N - IF (ITOL == 0) THEN - SCAL(i)=AbsTol(1)+RelTol(1)*DABS(Y(i)) - ELSE - SCAL(i)=AbsTol(i)+RelTol(i)*DABS(Y(i)) - END IF - END DO - CALJAC=.FALSE. - REJECT=.FALSE. - LAST=.FALSE. - 10 CONTINUE - IF (REJECT) Theta=2*ABS(ThetaMin) - ATOV=.FALSE. -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> IS Tend REACHED IN THE NEXT STEP? -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - H1=Tend-T - IF (H1 <= Roundoff) GO TO 110 - HOPT=H - H=MIN(H,H1,HmaxN) - IF (H >= H1-Roundoff) LAST=.TRUE. - IF (AUTNMS) THEN - CALL FUN_CHEM(T,Y,DY) - END IF - IF (Theta > ThetaMin.AND..NOT.CALJAC) THEN -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! COMPUTATION OF THE JACOBIAN -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - CALL JAC_CHEM(T,Y,FJAC) - CALJAC=.TRUE. - CALHES=.FALSE. - END IF -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> THE FIRST AND LAST STEP -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IF (Nstp == 0.OR.LAST) THEN - IPT=0 - Nstp=Nstp+1 - DO J=1,K - KC=J - CALL SEUL(J,N,T,Y,DY,FX,FJAC,LFJAC,E,LE,IP,H,Ncolumns, & - HmaxN,Table,SCAL,NJ,HH,W,A,YHH,DYH,DEL,WH,ERR,FacSafe1,FAC, & - FAC1,FAC2,FacSafe2,Theta,Nfun,Ndec,Nsol, & - ERROLD,IPHES,ICOMP,AUTNMS,REJECT, & - ATOV,FSAFE,Ncolumns2,NRD,IOUT,IPT,CALHES) - IF (ATOV) GOTO 10 - IF (J > 1 .AND. ERR <= 1.d0) GOTO 60 - END DO - GO TO 55 - END IF -!~~~> BASIC INTEGRATION STEP - 30 CONTINUE - IPT=0 - Nstp=Nstp+1 - IF (Nstp >= Max_no_steps) GOTO 120 - KC=K-1 - DO J=1,KC - CALL SEUL(J,N,T,Y,DY,FX,FJAC,LFJAC,E,LE,IP,H,Ncolumns,& - HmaxN,Table,SCAL,NJ,HH,W,A,YHH,DYH,DEL,WH,ERR,FacSafe1,& - FAC,FAC1,FAC2,FacSafe2,Theta,Nfun,Ndec,Nsol,& - ERROLD,IPHES,ICOMP,AUTNMS,REJECT,& - ATOV,FSAFE,Ncolumns2,NRD,IOUT,IPT,CALHES) - IF (ATOV) GOTO 10 - END DO -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> CONVERGENCE MONITOR -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IF (K == 2.OR.REJECT) GO TO 50 - IF (ERR <= 1.D0) GO TO 60 - IF (ERR > DBLE(NJ(K+1)*NJ(K))*4.D0) GO TO 100 - 50 CALL SEUL(K,N,T,Y,DY,FX,FJAC,LFJAC,E,LE,IP,H,Ncolumns,& - HmaxN,Table,SCAL,NJ,HH,W,A,YHH,DYH,DEL,WH,ERR,FacSafe1,& - FAC,FAC1,FAC2,FacSafe2,Theta,Nfun,Ndec,Nsol,& - ERROLD,IPHES,ICOMP,AUTNMS,REJECT,& - ATOV,FSAFE,Ncolumns2,NRD,IOUT,IPT,CALHES) - IF (ATOV) GOTO 10 - KC=K - IF (ERR <= 1.D0) GO TO 60 -!~~~> HOPE FOR CONVERGENCE IN LINE K+1 - 55 IF (ERR > DBLE(NJ(K+1))*2.D0) GO TO 100 - KC=K+1 - CALL SEUL(KC,N,T,Y,DY,FX,FJAC,LFJAC,E,LE,IP,H,Ncolumns,& - HmaxN,Table,SCAL,NJ,HH,W,A,YHH,DYH,DEL,WH,ERR,FacSafe1,& - FAC,FAC1,FAC2,FacSafe2,Theta,Nfun,Ndec,Nsol,& - ERROLD,IPHES,ICOMP,AUTNMS,REJECT,& - ATOV,FSAFE,Ncolumns2,NRD,IOUT,IPT,CALHES) - IF (ATOV) GOTO 10 - IF (ERR > 1.D0) GO TO 100 - !Adi IF ((ERR > 1.D0).and.(H.gt.Hmin)) GO TO 100 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> STEP IS ACCEPTED -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - 60 TOLD=T - T=T+H - IF (IOUT == 2) THEN - KRIGHT=KC - DO i=1,NRD - DENS(i)=Y(ICOMP(i)) - END DO - END IF - DO i=1,N - T1I=Table(1,I) - IF (ITOL == 0) THEN - SCAL(i)=AbsTol(1)+RelTol(1)*DABS(T1I) - ELSE - SCAL(i)=AbsTol(i)+RelTol(i)*DABS(T1I) - END IF - Y(i)=T1I - END DO - Nacc=Nacc+1 - CALJAC=.FALSE. - IF (IOUT == 2) THEN - TOLDD=TOLD - HHH=H - DO i=1,NRD - DENS(NRD+I)=Y(ICOMP(i)) - END DO - DO KLR=1,KRIGHT-1 -!~~~> COMPUTE DIFFERENCES - IF (KLR >= 2) THEN - DO KK=KLR,KC - LBEG=((KK+1)*KK)/2 - LEND=LBEG-KK+2 - DO L=LBEG,LEND,-1 - DO i=1,NRD - FSAFE(L,I)=FSAFE(L,I)-FSAFE(L-1,I) - END DO - END DO - END DO - END IF -!~~~> COMPUTE DERIVATIVES AT RIGHT END ---- - DO KK=KLR+LAMBDA,KC - FACNJ=NJ(KK) - FACNJ=FACNJ**KLR/FACUL(KLR+1) - IPT=((KK+1)*KK)/2 - DO I=1,NRD - KRN=(KK-LAMBDA+1)*NRD - DENS(KRN+I)=FSAFE(IPT,I)*FACNJ - END DO - END DO - DO J=KLR+LAMBDA+1,KC - DBLENJ=NJ(J) - DO L=J,KLR+LAMBDA+1,-1 - FACTOR=DBLENJ/NJ(L-1)-1.D0 - DO i=1,NRD - KRN=(L-LAMBDA+1)*NRD+I - DENS(KRN-NRD)=DENS(KRN)+(DENS(KRN)-DENS(KRN-NRD))/FACTOR - END DO - END DO - END DO - END DO -!~~~> COMPUTE THE COEFFICIENTS OF THE INTERPOLATION POLYNOMIAL - DO IN=1,NRD - DO J=1,KRIGHT - II=NRD*J+IN - DENS(II)=DENS(II)-DENS(II-NRD) - END DO - END DO - END IF -!~~~> COMPUTE OPTIMAL ORDER - IF (KC == 2) THEN - KOPT=3 - IF (REJECT) KOPT=2 - GO TO 80 - END IF - IF (KC <= K) THEN - KOPT=KC - IF (W(KC-1) < W(KC)*FAC3) KOPT=KC-1 - IF (W(KC) < W(KC-1)*FAC4) KOPT=MIN0(KC+1,Ncolumns-1) - ELSE - KOPT=KC-1 - IF (KC > 3.AND.W(KC-2) < W(KC-1)*FAC3) KOPT=KC-2 - IF (W(KC) < W(KOPT)*FAC4) KOPT=MIN0(KC,Ncolumns-1) - END IF -!~~~> AFTER A REJECTED STEP - 80 IF (REJECT) THEN - K=MIN0(KOPT,KC) - H=MIN(H,HH(K)) - REJECT=.FALSE. - GO TO 10 - END IF -!~~~> COMPUTE STEP SIZE FOR NEXT STEP - IF (KOPT <= KC) THEN - H=HH(KOPT) - ELSE - IF (KC < K.AND.W(KC) < W(KC-1)*FAC4) THEN - H=HH(KC)*A(KOPT+1)/A(KC) - ELSE - H=HH(KC)*A(KOPT)/A(KC) - END IF - END IF - K=KOPT - !Adi H = MAX(H, Hmin) - GO TO 10 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> STEP IS REJECTED -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - 100 K=MIN0(K,KC) - IF (K > 2.AND.W(K-1) < W(K)*FAC3) K=K-1 - Nrej=Nrej+1 - H=HH(K) - LAST=.FALSE. - REJECT=.TRUE. - IF (CALJAC) GOTO 30 - GO TO 10 -!~~~> SOLUTION EXIT - 110 CONTINUE - H=HOPT - IERR=1 - RETURN -!~~~> FAIL EXIT - 120 WRITE (6,979) T,H - 979 FORMAT(' EXIT OF SEULEX AT T=',D14.7,' H=',D14.7) - IERR=-1 - RETURN - - - END SUBROUTINE SEULEX_Integrator - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SEUL(JJ,N,T,Y,DY,FX,FJAC,LFJAC,E,LE,IP,& - H,Ncolumns,HmaxN,Table,SCAL,NJ,HH,W,A,YH,DYH,DEL,WH,ERR,FacSafe1, & - FAC,FAC1,FAC2,FacSafe2,Theta,Nfun,Ndec,Nsol,& - ERROLD,IPHES,ICOMP, & - AUTNMS,REJECT,ATOV,FSAFE,Ncolumns2,NRD,IOUT, & - IPT,CALHES) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> THIS SUBROUTINE COMPUTES THE J-TH LINE OF THE -!~~~> EXTRAPOLATION TABLE AND PROVIDES AN ESTIMATE -!~~~> OF THE OPTIMAL STEP SIZE - USE KPP_ROOT_Parameters - USE KPP_ROOT_Jacobian - IMPLICIT KPP_REAL (A-H,O-Z) - IMPLICIT INTEGER (I-N) - INTEGER :: Ncolumns, Ncolumns2, N, NRD - KPP_REAL :: Y(NVAR),YH(NVAR),DY(NVAR),FX(NVAR),DYH(NVAR) - KPP_REAL :: DEL(NVAR),WH(NVAR),SCAL(NVAR),HH(Ncolumns),W(Ncolumns),A(Ncolumns) -#ifdef FULL_ALGEBRA - KPP_REAL :: FJAC(NVAR,NVAR), E(NVAR,NVAR) -#else - KPP_REAL :: FJAC(LU_NONZERO), E(LU_NONZERO) -#endif - KPP_REAL :: Table(Ncolumns,NVAR) - KPP_REAL :: FSAFE(Ncolumns2,NRD) - INTEGER :: IP(N),NJ(Ncolumns),IPHES(N),ICOMP(NRD) - LOGICAL ATOV,REJECT,AUTNMS,CALHES - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! COMPUTE THE MATRIX E AND ITS DECOMPOSITION -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - HJ=H/NJ(JJ) - HJI=1.D0/HJ -#ifdef FULL_ALGEBRA - DO j=1,N - DO i=1,N - E(i,j)=-FJAC(i,j) - END DO - E(j,j)=E(j,j)+HJI - END DO - CALL DGETRF(N,N,E,N,IP,ISING) -#else - DO i=1,LU_NONZERO - E(i)=-FJAC(i) - END DO - DO j=1,N - E(LU_DIAG(j))=E(LU_DIAG(j))+HJI - END DO - CALL KppDecomp (E,ISING) -#endif - Ndec=Ndec+1 - IF (ISING.NE.0) GOTO 79 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> STARTING PROCEDURE -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IF (.NOT.AUTNMS) THEN - CALL FUN_CHEM(T+HJ,Y,DY) - END IF - DO i=1,N - YH(i)=Y(i) - DEL(i)=DY(i) - END DO -#ifdef FULL_ALGEBRA - CALL DGETRS ('N',N,1,E,N,IP,DEL,N,ISING) -#else - CALL KppSolve (E,DEL) -#endif - Nsol=Nsol+1 - M=NJ(JJ) - IF (IOUT == 2.AND.M == JJ) THEN - IPT=IPT+1 - DO i=1,NRD - FSAFE(IPT,I)=DEL(ICOMP(i)) - END DO - END IF -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> SEMI-IMPLICIT EULER METHOD -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IF (M > 1) THEN - DO MM=1,M-1 - DO i=1,N - YH(i)=YH(i)+DEL(i) - END DO - IF (AUTNMS) THEN - CALL FUN_CHEM(T+HJ*MM,YH,DYH) - ELSE - CALL FUN_CHEM(T+HJ*(MM+1),YH,DYH) - END IF - - IF (MM == 1.AND.JJ <= 2) THEN -!~~~> STABILITY CHECK - DEL1=0.D0 - DO i=1,N - DEL1=DEL1+(DEL(i)/SCAL(i))**2 - END DO - DEL1=SQRT(DEL1) - IF (.NOT.AUTNMS) THEN - CALL FUN_CHEM(T+HJ,YH,WH) - - DO i=1,N - DEL(i)=WH(i)-DEL(i)*HJI - END DO - ELSE - DO i=1,N - DEL(i)=DYH(i)-DEL(i)*HJI - END DO - END IF -#ifdef FULL_ALGEBRA - CALL DGETRS ('N',N,1,E,N,IP,DEL,N,ISING) -#else - CALL KppSolve (E,DEL) -#endif - Nsol=Nsol+1 - DEL2=0.D0 - DO i=1,N - DEL2=DEL2+(DEL(i)/SCAL(i))**2 - END DO - DEL2=SQRT(DEL2) - Theta=DEL2/MAX(1.D0,DEL1) - IF (Theta > 1.D0) GOTO 79 - END IF -#ifdef FULL_ALGEBRA - CALL DGETRS ('N',N,1,E,N,IP,DYH,N,ISING) -#else - CALL KppSolve (E,DYH) -#endif - Nsol=Nsol+1 - DO i=1,N - DEL(i)=DYH(i) - END DO - IF (IOUT == 2.AND.MM >= M-JJ) THEN - IPT=IPT+1 - DO i=1,NRD - FSAFE(IPT,i)=DEL(ICOMP(i)) - END DO - END IF - END DO - END IF - DO i=1,N - Table(JJ,I)=YH(i)+DEL(i) - END DO -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> POLYNOMIAL EXTRAPOLATION -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IF (JJ == 1) RETURN - DO L=JJ,2,-1 - FAC=(DBLE(NJ(JJ))/DBLE(NJ(L-1)))-1.D0 - DO i=1,N - Table(L-1,I)=Table(L,I)+(Table(L,I)-Table(L-1,I))/FAC - END DO - END DO - ERR=0.D0 - DO i=1,N - ERR=ERR+MIN(ABS((Table(1,I)-Table(2,I)))/SCAL(i),1.D15)**2 - END DO - IF (ERR >= 1.D30) GOTO 79 - ERR=SQRT(ERR/DBLE(N)) - IF (JJ > 2.AND.ERR >= ERROLD) GOTO 79 - ERROLD=MAX(4*ERR,1.D0) -!~~~> COMPUTE OPTIMAL STEP SIZES - EXPO=1.D0/JJ - FACMIN=FAC1**EXPO - FAC=MIN(FAC2/FACMIN,MAX(FACMIN,(ERR/FacSafe1)**EXPO/FacSafe2)) - FAC=1.D0/FAC - HH(JJ)=MIN(H*FAC,HmaxN) - W(JJ)=A(JJ)/HH(JJ) - RETURN - 79 ATOV=.TRUE. - H=H*0.5D0 - REJECT=.TRUE. - RETURN - END SUBROUTINE SEUL - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE FUN_CHEM( T, V, FCT ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters - USE KPP_ROOT_Global - USE KPP_ROOT_Function, ONLY: Fun - USE KPP_ROOT_Rates, ONLY: Update_SUN, Update_RCONST, Update_PHOTO - - IMPLICIT NONE - - KPP_REAL :: V(NVAR), FCT(NVAR) - KPP_REAL :: T, TOLD - - !TOLD = TIME - !TIME = T - !CALL Update_SUN() - !CALL Update_RCONST() - !CALL Update_PHOTO() - !TIME = TOLD - CALL Fun(V, FIX, RCONST, FCT) - Nfun=Nfun+1 - - END SUBROUTINE FUN_CHEM - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE JAC_CHEM ( T, V, Jcb ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters - USE KPP_ROOT_Global - USE KPP_ROOT_Jacobian, ONLY: Jac_SP - USE KPP_ROOT_Rates, ONLY: Update_SUN, Update_RCONST, Update_PHOTO - - IMPLICIT NONE - - KPP_REAL :: V(NVAR), T, TOLD -#ifdef FULL_ALGEBRA - KPP_REAL :: JV(LU_NONZERO), Jcb(NVAR,NVAR) - INTEGER :: i,j -#else - KPP_REAL :: Jcb(LU_NONZERO) -#endif - - !TOLD = TIME - !TIME = T - !CALL Update_SUN() - !CALL Update_RCONST() - !CALL Update_PHOTO() - !TIME = TOLD - -#ifdef FULL_ALGEBRA - CALL Jac_SP(V, FIX, RCONST, JV) - DO j=1,NVAR - DO i=1,NVAR - Jcb(i,j) = 0.0D0 - END DO - END DO - DO i=1,LU_NONZERO - Jcb(LU_IROW(i),LU_ICOL(i)) = JV(i) - END DO -#else - CALL Jac_SP(V, FIX, RCONST, Jcb) -#endif - Njac=Njac+1 - - END SUBROUTINE JAC_CHEM - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -END MODULE KPP_ROOT_Integrator diff --git a/int.modified_WCOPY/none.c b/int.modified_WCOPY/none.c deleted file mode 100644 index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000 diff --git a/int.modified_WCOPY/none.def b/int.modified_WCOPY/none.def deleted file mode 100644 index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000 diff --git a/int.modified_WCOPY/none.f b/int.modified_WCOPY/none.f deleted file mode 100644 index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000 diff --git a/int.modified_WCOPY/none.f90 b/int.modified_WCOPY/none.f90 deleted file mode 100644 index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000 diff --git a/int.modified_WCOPY/none.m b/int.modified_WCOPY/none.m deleted file mode 100644 index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000 diff --git a/int.modified_WCOPY/oldies/exqssa.c b/int.modified_WCOPY/oldies/exqssa.c deleted file mode 100644 index 019895aed4d9e1e33638cc1d9b84a5ac49525521..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/exqssa.c +++ /dev/null @@ -1,90 +0,0 @@ -void INTEGRATE( double DT ) -{ -KPP_REAL P_VAR[NVAR], D_VAR[NVAR], V1[NVAR], V2[NVAR]; -int IsReject; -KPP_REAL T, Tnext, STEP, STEPold, Told, SUP; -KPP_REAL ERR, ERRold, ratio, factor, facmax, tmp; -int i; - - T = TIME; - Tnext = TIME + DT; - STEP = STEPMIN; - Told = T; - SUP = 1e-14; - IsReject = 0; - ERR = .5; - -/* -- BELOW THIS LIMIT USE TAYLOR INSTEAD OF EXP --- */ - - while ( T < Tnext ) { - - T = Told + STEP; - if ( T > Tnext ) { - STEP = Tnext - Told; - T = Tnext; - } - - FSPLIT_VAR ( VAR, P_VAR, D_VAR ); - - for( i = 0; i < NVAR; i++ ) { - if ( fabs(D_VAR[i]) > SUP ) { - ratio = P_VAR[i] / D_VAR[i]; - tmp = (KPP_REAL)exp( (double)(-D_VAR[i] * STEP * 0.5) ); - V1[i] = tmp * tmp * (VAR[i] - ratio) + ratio; - V2[i] = tmp * (VAR[i] - ratio) + ratio; - } else { - tmp = D_VAR[i] * STEP * 0.5; - V1[i] = VAR[i] + P_VAR[i] * STEP * ( 1 - tmp * - ( 1 - 2.0 / 3.0 * tmp ) ); - V2[i] = VAR[i] + P_VAR[i] * 0.5 * STEP * ( 1 - 0.5 * tmp * - ( 1 - 1.0 / 3.0 * tmp ) ); - } - } - - FSPLIT_VAR( V2, P_VAR, D_VAR ); - - for( i = 0; i < NVAR; i++ ) { - if ( fabs(D_VAR[i]) > SUP ) { - ratio = P_VAR[i] / D_VAR[i]; - tmp = (KPP_REAL)exp( (double)(-D_VAR[i] * STEP * 0.5) ); - V2[i] = tmp * (V2[i] - ratio) + ratio; - } else { - tmp = D_VAR[i] * STEP * 0.5; - V2[i] = V2[i] + P_VAR[i] * 0.5 * STEP * ( 1 - 0.5 * tmp * - ( 1 - 1.0 / 3.0 * tmp ) ); - } - } -/* ==== Extrapolation and error estimation ======== */ - - ERRold=ERR; - ERR=0.; - for( i = 0; i < NVAR; i++ ) { - V1[i] = 2.*V2[i] - V1[i]; - tmp = (V2[i] - V1[i]) / (ATOL[i] + RTOL[i]*V2[i]); - ERR = ERR + tmp*tmp; - } - ERR = sqrt(ERR/NVAR); - STEPold = STEP; - -/* ===== choosing the stepsize ==================== */ - - factor = 0.9 / pow(ERR,0.35) * pow(ERRold,0.2); - facmax = IsReject ? 1.0 : 5.0; - - factor = max( 0.2, min(factor,facmax) ); - STEP = min( STEPMAX, max(STEPMIN,factor*STEP) ); - -/*================================================= */ - - if ( (ERR > 1) && (STEPold > STEPMIN) ) { - T = Told; - IsReject = 1; - } else { - IsReject = 0; - Told = T; - for( i = 0; i < NVAR; i++ ) - VAR[i] = max( V1[i], 0.0 ); - TIME = Tnext; - } - } -} diff --git a/int.modified_WCOPY/oldies/exqssa.def b/int.modified_WCOPY/oldies/exqssa.def deleted file mode 100644 index 6169246f9d234f975bf5ad36dfcacad9508d79f1..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/exqssa.def +++ /dev/null @@ -1,16 +0,0 @@ - -#FUNCTION SPLIT -#JACOBIAN OFF -#SPARSEDATA OFF -#DOUBLE ON -#INTFILE exqssa - -#INLINE F_INIT_INT - STEPMIN=0.0001 - STEPMAX=60. -#ENDINLINE - -#INLINE C_INIT_INT - STEPMIN=0.0001; - STEPMAX=60.; -#ENDINLINE diff --git a/int.modified_WCOPY/oldies/exqssa.f b/int.modified_WCOPY/oldies/exqssa.f deleted file mode 100644 index 925d4a7896d3933e2939321c04c0b4ba4f362d1a..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/exqssa.f +++ /dev/null @@ -1,136 +0,0 @@ -C -- EXTRAPOLATED QSSA WITH STEADY STATE APPROXIMATION -- -C For extrapolated plain QSSA (to remove the steady state assumption) -C modify slow -> 0, fast -> 1e20 -C - - SUBROUTINE INTEGRATE( TIN, TOUT ) - - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - -C TIN - Start Time - KPP_REAL TIN -C TOUT - End Time - KPP_REAL TOUT - -C Local variables - KPP_REAL P_VAR(NVAR), D_VAR(NVAR), V1(NVAR), V2(NVAR) - LOGICAL IsReject - KPP_REAL T, Tnext, STEP, STEPold, Told, SUP - KPP_REAL ERR, ERRold, ratio, factor, facmax, tmp - INTEGER i - KPP_REAL slow, fast - - T = TIN - Tnext = TOUT - STEP = DMAX1(STEPMIN,1.d-10) - Told = T - SUP = 1e-14 - IsReject = .false. - ERR = 1.d0 - ERRold = 1.d0 - slow = 0.01 - fast = 10. - - 10 continue - Tplus = T + STEP - if ( Tplus .gt. Tnext ) then - STEP = Tnext - T - Tplus = Tnext - end if - - - TITI = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - TIME = TITI - CALL FSPLIT_VAR ( VAR, P_VAR, D_VAR ) - - do i=1,NVAR - IF ( D_VAR(i)*STEP .lt. slow) THEN ! SLOW SPECIES - XXX = STEP * (P_VAR(i) - D_VAR(i)*VAR(i)) - V1(i) = VAR(i) + XXX - V2(i) = VAR(i) + 0.5*XXX - ELSE IF ( D_VAR(i)*STEP .GT. fast) THEN ! FAST SPECIES - V1(i) = P_VAR(i)/D_VAR(i) - V2(i) = V1(i) - ELSE ! MEDIUM LIVED - if ( abs(D_VAR(i)).gt.SUP ) then - ratio = P_VAR(i)/D_VAR(i) - tmp = exp(-D_VAR(i)*STEP*0.5) - V1(i) = tmp * tmp * (VAR(i) - ratio) + ratio - V2(i) = tmp * (VAR(i) - ratio) + ratio - else - tmp = D_VAR(i) * STEP * 0.5 - V1(i) = VAR(i) + P_VAR(i) * STEP * ( 1 - tmp * - * ( 1 - 2.0 / 3.0 * tmp ) ) - V2(i) = VAR(i) + P_VAR(i) * 0.5 * STEP*( 1-0.5*tmp* - * ( 1 - 1.0 / 3.0 * tmp ) ) - end if - END IF - end do - - TITI = TIME - TIME = T + 0.5*STEP - CALL Update_SUN() - CALL Update_RCONST() - TIME = TITI - CALL FSPLIT_VAR ( V2, P_VAR, D_VAR ) - - do i=1,NVAR - IF ( D_VAR(i)*STEP .lt. slow) THEN ! SLOW SPECIES - XXX = STEP * (P_VAR(i) - D_VAR(i)*VAR(i)) - V2(i) = V2(i) + 0.5*XXX - ELSE IF ( D_VAR(i)*STEP .GT. fast) THEN ! FAST SPECIES - V2(i) = P_VAR(i)/D_VAR(i) - ELSE ! MEDIUM LIVED - if ( abs(D_VAR(i)).gt.SUP ) then - ratio = P_VAR(i)/D_VAR(i) - tmp = exp(-D_VAR(i)*STEP*0.5) - V2(i) = tmp * (V2(i) - ratio) + ratio - else - tmp = D_VAR(i) * STEP * 0.5 - V2(i) = V2(i) + P_VAR(i) * 0.5 * STEP * ( 1 - 0.5 * tmp * - * ( 1 - 1.0 / 3.0 * tmp ) ) - end if - END IF - end do - -C ===== Extrapolation and error estimation ======== - - ERRold=ERR - ERR=0.0D0 - do i=1,NVAR - ERR = ERR + ((V2(i)-V1(i))/(ATOL(i) + RTOL(i)*V2(i)))**2 - end do - ERR = DSQRT( ERR/NVAR ) - STEPold=STEP - -C ===== choosing the stepsize ===================== - - factor = 0.9*ERR**(-0.35)*ERRold**0.2 - if (IsReject) then - facmax=1. - else - facmax=8. - end if - factor = DMAX1( 1.25D-1, DMIN1(factor,facmax) ) - STEP = DMIN1( STEPMAX, DMAX1(STEPMIN,factor*STEP) ) - -C=================================================== - - if ( (ERR.gt.1).and.(STEPold.gt.STEPMIN) ) then - IsReject = .true. - else - IsReject = .false. - do 140 i=1,NVAR - VAR(i) = DMAX1(2*V2(i)-V1(i), 0.d0) - 140 continue - T = Tplus - end if - if ( T .lt. Tnext ) go to 10 - - TIME = Tnext - RETURN - END diff --git a/int.modified_WCOPY/oldies/kpp_rodas.def b/int.modified_WCOPY/oldies/kpp_rodas.def deleted file mode 100644 index 9e94c5b7bc9db254fe929616a57d1468775ace53..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/kpp_rodas.def +++ /dev/null @@ -1,23 +0,0 @@ - -#FUNCTION AGGREGATE -#JACOBIAN SPARSE_LU_ROW - -#DOUBLE ON -#INTFILE kpp_rodas - -#INLINE F_DECL_INT - INTEGER Autonomous - COMMON /INTGDATA/ Autonomous - REAL*8 STEPSTART - COMMON /GDATA/ STEPSTART -#ENDINLINE - -#INLINE F_INIT_INT - STEPMIN=0.0001 - STEPMAX=3600. - Autonomous = 0 - STEPSTART=STEPMIN -#ENDINLINE - - - diff --git a/int.modified_WCOPY/oldies/kpp_rodas.f b/int.modified_WCOPY/oldies/kpp_rodas.f deleted file mode 100644 index 600021ca6170226899d4c7525f976758b5d161e8..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/kpp_rodas.f +++ /dev/null @@ -1,647 +0,0 @@ - SUBROUTINE INTEGRATE( TIN, TOUT ) - - IMPLICIT KPP_REAL (A-H,O-Z) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - -C TIN - Start Time - KPP_REAL TIN -C TOUT - End Time - KPP_REAL TOUT - INTEGER i - - PARAMETER (LWORK=2*NVAR*NVAR+14*NVAR+20,LIWORK=NVAR+20) - KPP_REAL WORK(LWORK) - INTEGER IWORK(LIWORK) - EXTERNAL FUNC_CHEM,JAC_CHEM - - - ITOL=1 ! --- VECTOR TOLERANCES - IJAC=1 ! --- COMPUTE THE JACOBIAN ANALYTICALLY - MLJAC=NVAR ! --- JACOBIAN IS A FULL MATRIX - MUJAC=NVAR ! --- JACOBIAN IS A FULL MATRIX - IMAS=0 ! --- DIFFERENTIAL EQUATION IS IN EXPLICIT FORM - IOUT=0 ! --- OUTPUT ROUTINE IS NOT USED DURING INTEGRATION - IDFX=0 ! --- INTERNAL TIME DERIVATIVE - - DO i=1,20 - IWORK(i) = 0 - WORK(i) = 0.D0 - ENDDO - - IWORK(3) = 1 - - CALL ATMRODAS(NVAR,FUNC_CHEM,Autonomous,TIN,VAR,TOUT, - & STEPMIN,RTOL,ATOL,ITOL, - & JAC_CHEM,IJAC,MLJAC,MUJAC,FUNC_CHEM,IDFX, - & FUNC_CHEM,IMAS, - & WORK,LWORK,IWORK,LIWORK,IDID) - - IF (IDID.LT.0) THEN - print *,'ATMRODAS: Unsucessfull exit at T=', - & TIN,' (IDID=',IDID,')' - ENDIF - - - RETURN - END - - - SUBROUTINE ATMRODAS(N,FCN,IFCN,X,Y,XEND,H, - & RelTol,AbsTol,ITOL, - & JAC ,IJAC,MLJAC,MUJAC,DFX,IDFX, - & MAS ,IMAS, - & WORK,LWORK,IWORK,LIWORK,IDID) -C ---------------------------------------------------------- -C NUMERICAL SOLUTION OF A STIFF (OR DIFFERENTIAL ALGEBRAIC) -C SYSTEM OF FIRST 0RDER ORDINARY DIFFERENTIAL EQUATIONS MY'=F(X,Y). -C THIS IS AN EMBEDDED ROSENBROCK METHOD OF ORDER (3)4 -C (WITH STEP SIZE CONTROL). -C C.F. SECTIONS IV.7 AND VI.3 -C -C AUTHORS: E. HAIRER AND G. WANNER -C UNIVERSITE DE GENEVE, DEPT. DE MATHEMATIQUES -C CH-1211 GENEVE 24, SWITZERLAND -C E-MAIL: HAIRER@DIVSUN.UNIGE.CH, WANNER@DIVSUN.UNIGE.CH -C --------------------------------------------------------- -C *** *** *** *** *** *** *** *** *** *** *** *** *** -C DECLARATIONS -C *** *** *** *** *** *** *** *** *** *** *** *** *** - IMPLICIT KPP_REAL (A-H,O-Z) - DIMENSION Y(N),AbsTol(*),RelTol(*),WORK(LWORK),IWORK(LIWORK) - LOGICAL AUTNMS,IMPLCT,JBAND,ARRET,PRED - EXTERNAL FCN,JAC,DFX,MAS - COMMON /STATISTICS/ NFCN,NACCPT,NREJCT,NSTEP,NJAC,NDEC,NSOL -C *** *** *** *** *** *** *** -C SETTING THE PARAMETERS -C *** *** *** *** *** *** *** - ARRET=.FALSE. - METH = 1 - NMAX=100000 -C -------- PRED STEP SIZE CONTROL - IF(IWORK(3).LE.1)THEN - PRED=.TRUE. - ELSE - PRED=.FALSE. - END IF - UROUND=1.D-16 - NM1 = N - M1 = N - M2 = N -C -------- MAXIMAL STEP SIZE - IF(WORK(2).EQ.0.D0)THEN - HMAX=XEND-X - ELSE - HMAX=WORK(2) - END IF -C ------- FAC1,FAC2 PARAMETERS FOR STEP SIZE SELECTION - IF(WORK(3).EQ.0.D0)THEN - FAC1=5.D0 - ELSE - FAC1=1.D0/WORK(3) - END IF - IF(WORK(4).EQ.0.D0)THEN - FAC2=1.D0/6.0D0 - ELSE - FAC2=1.D0/WORK(4) - END IF - IF (FAC1.LT.1.0D0.OR.FAC2.GT.1.0D0) THEN - WRITE(6,*)' CURIOUS INPUT WORK(3,4)=',WORK(3),WORK(4) - ARRET=.TRUE. - END IF -C --------- SAFE SAFETY FACTOR IN STEP SIZE PREDICTION - SAFE=0.9D0 -C --------- CHECK IF TOLERANCES ARE O.K. - IF (ITOL.EQ.0) THEN - IF (AbsTol(1).LE.0.D0.OR.RelTol(1).LE.10.D0*UROUND) THEN - WRITE (6,*) ' TOLERANCES ARE TOO SMALL' - ARRET=.TRUE. - END IF - ELSE - DO I=1,N - IF (AbsTol(I).LE.0.D0.OR.RelTol(I).LE.10.D0*UROUND) THEN - WRITE (6,*) ' TOLERANCES(',I,') ARE TOO SMALL' - ARRET=.TRUE. - END IF - END DO - END IF - - IF (ARRET) STOP - NM1 = N -C *** *** *** *** *** *** *** *** *** *** *** *** *** -C COMPUTATION OF ARRAY ENTRIES -C *** *** *** *** *** *** *** *** *** *** *** *** *** -C ---- AUTONOMOUS, IMPLICIT, BANDED OR NOT ? - AUTNMS=IFCN.EQ.0 - IMPLCT=IMAS.NE.0 - JBAND=MLJAC.LT.NM1 -C -------- COMPUTATION OF THE ROW-DIMENSIONS OF THE 2-ARRAYS --- -C -- JACOBIAN AND MATRIX E - MLJAC=NM1 - MUJAC=NM1 - LDJAC=NM1 - LDE=NM1 -C -- MASS MATRIX - IF (IMPLCT) THEN - print *, 'Implicit 1' - ELSE - LDMAS=0 - IJOB=1 - END IF - LDMAS2=MAX(1,LDMAS) -C ------- PREPARE THE ENTRY-POINTS FOR THE ARRAYS IN WORK ----- - IEYNEW=21 - IEDY1=IEYNEW+N - IEDY=IEDY1+N - IEAK1=IEDY+N - IEAK2=IEAK1+N - IEAK3=IEAK2+N - IEAK4=IEAK3+N - IEAK5=IEAK4+N - IEAK6=IEAK5+N - IEFX =IEAK6+N - IECON=IEFX+N - IEJAC=IECON+4*N - IEMAS=IEJAC+N*LDJAC - IEE =IEMAS+NM1*LDMAS -C ------ TOTAL STORAGE REQUIREMENT ----------- - ISTORE=IEE+NM1*LDE-1 - IF(ISTORE.GT.LWORK)THEN - WRITE(6,*)' INSUFFICIENT STORAGE FOR WORK, MIN. LWORK=',ISTORE - ARRET=.TRUE. - END IF -C ------- ENTRY POINTS FOR INTEGER WORKSPACE ----- - IEIP=21 - ISTORE=IEIP+NM1-1 - IF(ISTORE.GT.LIWORK)THEN - WRITE(6,*)' INSUFF. STORAGE FOR IWORK, MIN. LIWORK=',ISTORE - ARRET=.TRUE. - END IF -C ------ WHEN A FAIL HAS OCCURED, WE RETURN WITH IDID=-1 - IF (ARRET) THEN - IDID=-1 - RETURN - END IF -C -------- CALL TO CORE INTEGRATOR ------------ - CALL ROSCOR(N,FCN,X,Y,XEND,HMAX,H,RelTol,AbsTol,ITOL,JAC,IJAC, - & MLJAC,MUJAC,DFX,IDFX,MAS,MLMAS,MUMAS,IOUT,IDID,NMAX, - & UROUND,METH,IJOB,FAC1,FAC2,SAFE,AUTNMS,IMPLCT,JBAND,PRED,LDJAC, - & LDE,LDMAS2,WORK(IEYNEW),WORK(IEDY1),WORK(IEDY),WORK(IEAK1), - & WORK(IEAK2),WORK(IEAK3),WORK(IEAK4),WORK(IEAK5),WORK(IEAK6), - & WORK(IEFX),WORK(IEJAC),WORK(IEE),WORK(IEMAS),IWORK(IEIP), - & WORK(IECON), - & M1,M2,NM1,NFCN,NJAC,NSTEP,NACCPT,NREJCT,NDEC,NSOL) - IWORK(14)=NFCN - IWORK(15)=NJAC - IWORK(16)=NSTEP - IWORK(17)=NACCPT - IWORK(18)=NREJCT - IWORK(19)=NDEC - IWORK(20)=NSOL -C ----------- RETURN ----------- - RETURN - END -C -C -C -C ----- ... AND HERE IS THE CORE INTEGRATOR ---------- -C - SUBROUTINE ROSCOR(N,FCN,X,Y,XEND,HMAX,H,RelTol,AbsTol, - & ITOL,JAC,IJAC, - & MLJAC,MUJAC,DFX,IDFX,MAS,MLMAS,MUMAS,IOUT,IDID,NMAX, - & UROUND,METH,IJOB,FAC1,FAC2,SAFE,AUTNMS,IMPLCT,BANDED, - & PRED,LDJAC, - & LDE,LDMAS,YNEW,DY1,DY,AK1,AK2,AK3,AK4,AK5,AK6, - & FX,FJAC,E,FMAS,IP,CONT, - & M1,M2,NM1,NFCN,NJAC,NSTEP,NACCPT,NREJCT,NDEC,NSOL) -C ---------------------------------------------------------- -C CORE INTEGRATOR FOR RODAS -C PARAMETERS SAME AS IN RODAS WITH WORKSPACE ADDED -C ---------------------------------------------------------- -C DECLARATIONS -C ---------------------------------------------------------- - IMPLICIT KPP_REAL (A-H,O-Z) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_sparse.h' - DIMENSION Y(N),YNEW(N),DY1(N),DY(N),AK1(N), - * AK2(N),AK3(N),AK4(N),AK5(N),AK6(N),FX(N), - * FJAC(LU_NONZERO),E(LDE,NM1),FMAS(LDMAS,NM1), - * AbsTol(*),RelTol(*) - DIMENSION CONT(4*N) - INTEGER IP(NM1) - LOGICAL REJECT,AUTNMS,IMPLCT,BANDED - LOGICAL ONE,LAST,PRED,SINGULAR - EXTERNAL FCN, MAS, JAC, DFX - COMMON/LINAL/MLE,MUE,MBJAC,MBB,MDIAG,MDIFF,MBDIAG - COMMON /CONROS/XOLD,HOUT,NN -C *** *** *** *** *** *** *** -C INITIALISATIONS -C *** *** *** *** *** *** *** - NN=N - NN2=2*N - NN3=3*N - LRC=4*N -C ------- COMPUTE MASS MATRIX FOR IMPLICIT CASE ---------- - IF (IMPLCT) CALL MAS (NM1,FMAS,LDMAS) -C ------ SET THE PARAMETERS OF THE METHOD ----- - CALL ROCOE(METH,A21,A31,A32,A41,A42,A43,A51,A52,A53,A54, - & C21,C31,C32,C41,C42,C43,C51,C52,C53,C54,C61, - & C62,C63,C64,C65,GAMMA,C2,C3,C4,D1,D2,D3,D4, - & D21,D22,D23,D24,D25,D31,D32,D33,D34,D35) -C --- INITIAL PREPARATIONS - IF (M1.GT.0) IJOB=IJOB+10 - POSNEG=SIGN(1.D0,XEND-X) - HMAXN=DMIN1(DABS(HMAX),DABS(XEND-X)) - IF (DABS(H).LE.10.D0*UROUND) H=1.0D-6 - H=DMIN1(DABS(H),HMAXN) - H=SIGN(H,POSNEG) - HACC = H - ERRACC = 1.0d0 - REJECT=.FALSE. - LAST=.FALSE. - NSING=0 - IRTRN=1 - IF (AUTNMS) THEN - HD1=0.0D0 - HD2=0.0D0 - HD3=0.0D0 - HD4=0.0D0 - END IF -C -------- PREPARE BAND-WIDTHS -------- - MBDIAG=MUMAS+1 - -C --- BASIC INTEGRATION STEP - LAST = .FALSE. - DO WHILE (.NOT.LAST) - IF (.NOT. REJECT) THEN - IF (NSTEP.GT.NMAX) CALL FAIL_EXIT(3,X,IDID,H,NMAX) - IF ( 0.1D0*DABS(H) .LE. DABS(X)*UROUND ) - * CALL FAIL_EXIT(2,X,IDID,H,NMAX) - HOPT=H - IF ((X+H*1.0001D0-XEND)*POSNEG.GE.0.D0) THEN - H=XEND-X - LAST=.TRUE. - END IF -C *** *** *** *** *** *** *** -C COMPUTATION OF THE JACOBIAN -C *** *** *** *** *** *** *** - CALL FCN(N,X,Y,DY1) - CALL JAC(N,X,Y,FJAC,LDJAC) - NFCN=NFCN+1 - NJAC=NJAC+1 - - IF (.NOT.AUTNMS) THEN -C --- COMPUTE NUMERICALLY THE DERIVATIVE WITH RESPECT TO X - DELT=DSQRT(UROUND*DMAX1(1.D-5,DABS(X))) - XDELT=X+DELT - CALL FCN(N,XDELT,Y,AK1) - DO J=1,N - FX(J)=(AK1(J)-DY1(J))/DELT - END DO - END IF - END IF - -C *** *** *** *** *** *** *** -C COMPUTE THE STAGES -C *** *** *** *** *** *** *** - SINGULAR = .TRUE. - DO WHILE (SINGULAR) - FAC=1.D0/(H*GAMMA) - CALL DECOMR(N,FJAC,LDJAC,FMAS,LDMAS,MLMAS,MUMAS, - & M1,M2,NM1,FAC,E,LDE,IP,IER,IJOB,IMPLCT,IP) - SINGULAR = IER.NE.0 - IF (SINGULAR) THEN - NSING=NSING+1 - IF (NSING.GE.5) CALL FAIL_EXIT(1,X,IDID,H,NMAX) - H=H*0.5D0 - REJECT=.TRUE. - LAST=.FALSE. - ONE = .FALSE. - END IF - END DO - - NDEC=NDEC+1 -C --- PREPARE FOR THE COMPUTATION OF THE 6 STAGES - HC21=C21/H - HC31=C31/H - HC32=C32/H - HC41=C41/H - HC42=C42/H - HC43=C43/H - HC51=C51/H - HC52=C52/H - HC53=C53/H - HC54=C54/H - HC61=C61/H - HC62=C62/H - HC63=C63/H - HC64=C64/H - HC65=C65/H - IF (.NOT.AUTNMS) THEN - HD1=H*D1 - HD2=H*D2 - HD3=H*D3 - HD4=H*D4 - END IF -C --- THE STAGES - CALL SLVROD(N,FJAC,LDJAC,MLJAC,MUJAC,FMAS,LDMAS,MLMAS,MUMAS, - & M1,M2,NM1,FAC,E,LDE,IP,DY1,AK1,FX,YNEW,HD1,IJOB,.FALSE.) - DO I=1,N - YNEW(I)=Y(I)+A21*AK1(I) - END DO - CALL FCN(N,X+C2*H,YNEW,DY) - DO I=1,N - YNEW(I)=HC21*AK1(I) - END DO - CALL SLVROD(N,FJAC,LDJAC,MLJAC,MUJAC,FMAS,LDMAS,MLMAS,MUMAS, - & M1,M2,NM1,FAC,E,LDE,IP,DY,AK2,FX,YNEW,HD2,IJOB,.TRUE.) - DO I=1,N - YNEW(I)=Y(I)+A31*AK1(I)+A32*AK2(I) - END DO - CALL FCN(N,X+C3*H,YNEW,DY) - DO I=1,N - YNEW(I)=HC31*AK1(I)+HC32*AK2(I) - END DO - CALL SLVROD(N,FJAC,LDJAC,MLJAC,MUJAC,FMAS,LDMAS,MLMAS,MUMAS, - & M1,M2,NM1,FAC,E,LDE,IP,DY,AK3,FX,YNEW,HD3,IJOB,.TRUE.) - DO I=1,N - YNEW(I)=Y(I)+A41*AK1(I)+A42*AK2(I)+A43*AK3(I) - END DO - CALL FCN(N,X+C4*H,YNEW,DY) - DO I=1,N - YNEW(I)=HC41*AK1(I)+HC42*AK2(I)+HC43*AK3(I) - END DO - CALL SLVROD(N,FJAC,LDJAC,MLJAC,MUJAC,FMAS,LDMAS,MLMAS,MUMAS, - & M1,M2,NM1,FAC,E,LDE,IP,DY,AK4,FX,YNEW,HD4,IJOB,.TRUE.) - DO I=1,N - YNEW(I)=Y(I)+A51*AK1(I)+A52*AK2(I)+A53*AK3(I)+A54*AK4(I) - END DO - CALL FCN(N,X+H,YNEW,DY) - DO I=1,N - AK6(I)=HC52*AK2(I)+HC54*AK4(I)+HC51*AK1(I)+HC53*AK3(I) - END DO - CALL SLVROD(N,FJAC,LDJAC,MLJAC,MUJAC,FMAS,LDMAS,MLMAS,MUMAS, - & M1,M2,NM1,FAC,E,LDE,IP,DY,AK5,FX,AK6,0.D0,IJOB,.TRUE.) -C ------------ EMBEDDED SOLUTION --------------- - DO I=1,N - YNEW(I)=YNEW(I)+AK5(I) - END DO - CALL FCN(N,X+H,YNEW,DY) - DO I=1,N - AK5(I)=HC61*AK1(I)+HC62*AK2(I)+HC65*AK5(I) - & +HC64*AK4(I)+HC63*AK3(I) - END DO - CALL SLVROD(N,FJAC,LDJAC,MLJAC,MUJAC,FMAS,LDMAS,MLMAS,MUMAS, - & M1,M2,NM1,FAC,E,LDE,IP,DY,AK6,FX,AK5,0.D0,IJOB,.TRUE.) -C ------------ NEW SOLUTION --------------- - DO I=1,N - YNEW(I)=YNEW(I)+AK6(I) - END DO - NSOL=NSOL+6 - NFCN=NFCN+5 - -C *** *** *** *** *** *** *** -C ERROR ESTIMATION -C *** *** *** *** *** *** *** - NSTEP=NSTEP+1 -C ------------ COMPUTE ERROR ESTIMATION ---------------- - ERR=0.0D0 - DO I=1,N - IF (ITOL.EQ.0) THEN - SK=AbsTol(1)+RelTol(1)*DMAX1(DABS(Y(I)),DABS(YNEW(I))) - ELSE - SK=AbsTol(I)+RelTol(I)*DMAX1(DABS(Y(I)),DABS(YNEW(I))) - END IF - ERR=ERR+(AK6(I)/SK)**2 -c2 ERR = DMAX1(ERR, AK6(I)/SK) - END DO - ERR=DSQRT(ERR/N) - -C --- COMPUTATION OF HNEW -C --- WE REQUIRE .2<=HNEW/H<=6. - FAC=DMAX1(FAC2,DMIN1(FAC1,(ERR)**0.25D0/SAFE)) - HNEW=DMAX1(H/FAC, STEPMIN) - -C *** *** *** *** *** *** *** -C IS THE ERROR SMALL ENOUGH ? -C *** *** *** *** *** *** *** - - IF ( (ERR.LE.1.D0).or.(H.LE.STEPMIN) ) THEN -C --- STEP IS ACCEPTED - NACCPT=NACCPT+1 - IF (PRED) THEN -C --- PREDICTIVE CONTROLLER OF GUSTAFSSON - IF (NACCPT.GT.1) THEN - FACGUS=(HACC/H)*(ERR**2/ERRACC)**0.25D0/SAFE - FACGUS=DMAX1(FAC2,DMIN1(FAC1,FACGUS)) - FAC=DMAX1(FAC,FACGUS) - HNEW=DMAX1(H/FAC, STEPMIN) - END IF - HACC=H - ERRACC=DMAX1(1.0D-2,ERR) - END IF - DO I=1,N - Y(I)=YNEW(I) - END DO - XOLD=X - X=X+H - IF (DABS(HNEW).GT.HMAXN) HNEW=POSNEG*HMAXN - IF (REJECT) HNEW=POSNEG*DMIN1(DABS(HNEW),DABS(H)) - REJECT=.FALSE. - H=HNEW - ELSE -C --- STEP IS REJECTED - REJECT=.TRUE. - LAST=.FALSE. - H=HNEW - IF (NACCPT.GE.1) NREJCT=NREJCT+1 - END IF - END DO - RETURN - END -C - SUBROUTINE FAIL_EXIT(NERR,X,IDID,H,NMAX) - INTEGER NERR, NMAX - KPP_REAL X, H - GO TO (1,2,3,4) NERR - 1 CONTINUE - WRITE(6,979)X - WRITE(6,*) ' MATRIX IS REPEATEDLY SINGULAR, IER=',IER - IDID=-4 - STOP - 2 CONTINUE - WRITE(6,979)X - WRITE(6,*) ' STEP SIZE TOO SMALL, H=',H - IDID=-3 - STOP - 3 CONTINUE - WRITE(6,979)X - WRITE(6,*) ' MORE THAN NMAX =',NMAX,'STEPS ARE NEEDED' - IDID=-2 - STOP -C --- EXIT CAUSED BY solout - 4 CONTINUE - WRITE(6,979)X - 979 FORMAT(' EXIT OF RODAS AT X=',E18.4) - IDID=2 - RETURN - END - - SUBROUTINE ROCOE(METH,A21,A31,A32,A41,A42,A43,A51,A52,A53,A54, - & C21,C31,C32,C41,C42,C43,C51,C52,C53,C54,C61, - & C62,C63,C64,C65,GAMMA,C2,C3,C4,D1,D2,D3,D4, - & D21,D22,D23,D24,D25,D31,D32,D33,D34,D35) - IMPLICIT KPP_REAL (A-H,O-Z) - - if (METH.ne.1) print *, 'WRONG CHOICE OF METHOD' - C2=0.386D0 - C3=0.21D0 - C4=0.63D0 - BET2P=0.0317D0 - BET3P=0.0635D0 - BET4P=0.3438D0 - D1= 0.2500000000000000D+00 - D2=-0.1043000000000000D+00 - D3= 0.1035000000000000D+00 - D4=-0.3620000000000023D-01 - A21= 0.1544000000000000D+01 - A31= 0.9466785280815826D+00 - A32= 0.2557011698983284D+00 - A41= 0.3314825187068521D+01 - A42= 0.2896124015972201D+01 - A43= 0.9986419139977817D+00 - A51= 0.1221224509226641D+01 - A52= 0.6019134481288629D+01 - A53= 0.1253708332932087D+02 - A54=-0.6878860361058950D+00 - C21=-0.5668800000000000D+01 - C31=-0.2430093356833875D+01 - C32=-0.2063599157091915D+00 - C41=-0.1073529058151375D+00 - C42=-0.9594562251023355D+01 - C43=-0.2047028614809616D+02 - C51= 0.7496443313967647D+01 - C52=-0.1024680431464352D+02 - C53=-0.3399990352819905D+02 - C54= 0.1170890893206160D+02 - C61= 0.8083246795921522D+01 - C62=-0.7981132988064893D+01 - C63=-0.3152159432874371D+02 - C64= 0.1631930543123136D+02 - C65=-0.6058818238834054D+01 - GAMMA= 0.2500000000000000D+00 - - D21= 0.1012623508344586D+02 - D22=-0.7487995877610167D+01 - D23=-0.3480091861555747D+02 - D24=-0.7992771707568823D+01 - D25= 0.1025137723295662D+01 - D31=-0.6762803392801253D+00 - D32= 0.6087714651680015D+01 - D33= 0.1643084320892478D+02 - D34= 0.2476722511418386D+02 - D35=-0.6594389125716872D+01 - RETURN - END -C - -C ****************************************** -C VERSION OF SEPTEMBER 18, 1995 -C ****************************************** -C - SUBROUTINE DECOMR(N,FJAC,LDJAC,FMAS,LDMAS,MLMAS,MUMAS, - & M1,M2,NM1,FAC1,E1,LDE1,IP1,IER,IJOB,CALHES,IPHES) - IMPLICIT KPP_REAL (A-H,O-Z) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_sparse.h' - DIMENSION FJAC(LU_NONZERO),FMAS(LDMAS,NM1),E1(LU_NONZERO), - & IP1(NM1),IPHES(N) - LOGICAL CALHES - COMMON/LINAL/MLE,MUE,MBJAC,MBB,MDIAG,MDIFF,MBDIAG -C - - -C --- B=IDENTITY, JACOBIAN A FULL MATRIX - DO J=1,LU_NONZERO - E1(J) = -FJAC(J) - END DO - DO J=1,N - E1(LU_DIAG(J)) = E1(LU_DIAG(J)) + FAC1 - END DO - CALL KppDecomp (E1,IER) - RETURN - END -C -C END OF SUBROUTINE DECOMR -C -C *********************************************************** -C -C -C -C - SUBROUTINE SLVROD(N,FJAC,LDJAC,MLJAC,MUJAC,FMAS,LDMAS,MLMAS,MUMAS, - & M1,M2,NM1,FAC1,E,LDE,IP,DY,AK,FX,YNEW,HD,IJOB,STAGE1) - IMPLICIT KPP_REAL (A-H,O-Z) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_sparse.h' - DIMENSION FJAC(LU_NONZERO),FMAS(LDMAS,NM1),E(LU_NONZERO), - & IP(NM1),DY(N),AK(N),FX(N),YNEW(N) - LOGICAL STAGE1 - COMMON/LINAL/MLE,MUE,MBJAC,MBB,MDIAG,MDIFF,MBDIAG -C - IF (HD.EQ.0.D0) THEN - DO I=1,N - AK(I)=DY(I) - END DO - ELSE - DO I=1,N - AK(I)=DY(I)+HD*FX(I) - END DO - END IF - -C --- B=IDENTITY, JACOBIAN A FULL MATRIX - IF (STAGE1) THEN - DO I=1,N - AK(I)=AK(I)+YNEW(I) - END DO - END IF - CALL KppSolve (E,AK) - RETURN - END -C -C END OF SUBROUTINE SLVROD -C -C -C *********************************************************** - - - SUBROUTINE FUNC_CHEM(N, T, Y, P) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INTEGER N - KPP_REAL T, Told - KPP_REAL Y(NVAR), P(NVAR) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, P ) - TIME = Told - RETURN - END - - - SUBROUTINE JAC_CHEM(N, T, Y, J) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INTEGER N - KPP_REAL Told, T - KPP_REAL Y(NVAR), J(LU_NONZERO) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Jac_SP( Y, FIX, RCONST, J ) - TIME = Told - RETURN - END diff --git a/int.modified_WCOPY/oldies/kpp_ros4.def b/int.modified_WCOPY/oldies/kpp_ros4.def deleted file mode 100644 index a51d99aa3f84b2658ea25678971af8a762bf57d6..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/kpp_ros4.def +++ /dev/null @@ -1,23 +0,0 @@ - -#FUNCTION AGGREGATE -#JACOBIAN SPARSE_LU_ROW - -#DOUBLE ON -#INTFILE kpp_ros4 - -#INLINE F77_DECL_INT - INTEGER Autonomous - COMMON /INTGDATA/ Autonomous - REAL*8 STEPSTART - COMMON /GDATA/ STEPSTART -#ENDINLINE - -#INLINE F77_INIT_INT - STEPMIN=0.0001 - STEPMAX=3600. - Autonomous = 1 - STEPSTART=STEPMIN -#ENDINLINE - - - diff --git a/int.modified_WCOPY/oldies/kpp_ros4.f b/int.modified_WCOPY/oldies/kpp_ros4.f deleted file mode 100644 index 6e62b312585edff8f4c0e5ad3e20c1b285a5629e..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/kpp_ros4.f +++ /dev/null @@ -1,1052 +0,0 @@ - SUBROUTINE INTEGRATE( TIN, TOUT ) - - IMPLICIT KPP_REAL (A-H,O-Z) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - -C TIN - Start Time - KPP_REAL TIN -C TOUT - End Time - KPP_REAL TOUT - INTEGER i - - PARAMETER (LWORK=2*NVAR*NVAR+14*NVAR+20,LIWORK=NVAR+20) - KPP_REAL WORK(LWORK) - INTEGER IWORK(LIWORK) - EXTERNAL FUNC_CHEM,JAC_CHEM,SOLOUT - - ITOL=1 ! --- VECTOR TOLERANCES - IJAC=1 ! --- COMPUTE THE JACOBIAN ANALYTICALLY - MLJAC=NVAR ! --- JACOBIAN IS A FULL MATRIX - MUJAC=NVAR ! --- JACOBIAN IS A FULL MATRIX - IMAS=0 ! --- DIFFERENTIAL EQUATION IS IN EXPLICIT FORM - IOUT=0 ! --- OUTPUT ROUTINE IS NOT USED DURING INTEGRATION - IDFX=0 ! --- INTERNAL TIME DERIVATIVE - - DO i=1,20 - IWORK(i) = 0 - WORK(i) = 0.D0 - ENDDO - IWORK(2) = 6 - - CALL KPP_ROS4(NVAR,FUNC_CHEM,Autonomous,TIN,VAR,TOUT, - & STEPMIN,RTOL,ATOL,ITOL, - & JAC_CHEM,IJAC,MLJAC,MUJAC,FUNC_CHEM,IDFX, - & FUNC_CHEM,IMAS,MLJAC,MUJAC, - & SOLOUT,IOUT, - & WORK,LWORK,IWORK,LIWORK,IDID) - - IF (IDID.LT.0) THEN - print *,'KPP_ROS4: Unsucessful step at T=', - & TIN,' (IDID=',IDID,')' - ENDIF - - RETURN - END - - - SUBROUTINE KPP_ROS4(N,FCN,IFCN,X,Y,XEND,H, - & RelTol,AbsTol,ITOL, - & JAC ,IJAC,MLJAC,MUJAC,DFX,IDFX, - & MAS ,IMAS,MLMAS,MUMAS, - & SOLOUT,IOUT, - & WORK,LWORK,IWORK,LIWORK,IDID) -C ---------------------------------------------------------- -C NUMERICAL SOLUTION OF A STIFF (OR DIFFERENTIAL ALGEBRAIC) -C SYSTEM OF FIRST 0RDER ORDINARY DIFFERENTIAL EQUATIONS MY'=F(X,Y). -C THIS IS AN EMBEDDED ROSENBROCK METHOD OF ORDER (3)4 -C (WITH STEP SIZE CONTROL). -C C.F. SECTION IV.7 -C -C AUTHORS: E. HAIRER AND G. WANNER -C UNIVERSITE DE GENEVE, DEPT. DE MATHEMATIQUES -C CH-1211 GENEVE 24, SWITZERLAND -C E-MAIL: HAIRER@CGEUGE51.BITNET, WANNER@CGEUGE51.BITNET -C -C THIS CODE IS PART OF THE BOOK: -C E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -C EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -C SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -C SPRINGER-VERLAG (1990) -C -C VERSION OF NOVEMBER 17, 1992 -C -C INPUT PARAMETERS -C ---------------- -C N DIMENSION OF THE SYSTEM -C -C FCN NAME (EXTERNAL) OF SUBROUTINE COMPUTING THE -C VALUE OF F(X,Y): -C SUBROUTINE FCN(N,X,Y,F) -C KPP_REAL X,Y(N),F(N) -C F(1)=... ETC. -C -C IFCN GIVES INFORMATION ON FCN: -C IFCN=0: F(X,Y) INDEPENDENT OF X (AUTONOMOUS) -C IFCN=1: F(X,Y) MAY DEPEND ON X (NON-AUTONOMOUS) -C -C X INITIAL X-VALUE -C -C Y(N) INITIAL VALUES FOR Y -C -C XEND FINAL X-VALUE (XEND-X MAY BE POSITIVE OR NEGATIVE) -C -C H INITIAL STEP SIZE GUESS; -C FOR STIFF EQUATIONS WITH INITIAL TRANSIENT, -C H=1.D0/(NORM OF F'), USUALLY 1.D-2 OR 1.D-3, IS GOOD. -C THIS CHOICE IS NOT VERY IMPORTANT, THE CODE QUICKLY -C ADAPTS ITS STEP SIZE. STUDY THE CHOSEN VALUES FOR A FEW -C STEPS IN SUBROUTINE "SOLOUT", WHEN YOU ARE NOT SURE. -C (IF H=0.D0, THE CODE PUTS H=1.D-6). -C -C RelTol,AbsTol RELATIVE AND ABSOLUTE ERROR TOLERANCES. THEY -C CAN BE BOTH SCALARS OR ELSE BOTH VECTORS OF LENGTH N. -C -C ITOL SWITCH FOR RelTol AND AbsTol: -C ITOL=0: BOTH RelTol AND AbsTol ARE SCALARS. -C THE CODE KEEPS, ROUGHLY, THE LOCAL ERROR OF -C Y(I) BELOW RelTol*ABS(Y(I))+AbsTol -C ITOL=1: BOTH RelTol AND AbsTol ARE VECTORS. -C THE CODE KEEPS THE LOCAL ERROR OF Y(I) BELOW -C RelTol(I)*ABS(Y(I))+AbsTol(I). -C -C JAC NAME (EXTERNAL) OF THE SUBROUTINE WHICH COMPUTES -C THE PARTIAL DERIVATIVES OF F(X,Y) WITH RESPECT TO Y -C (THIS ROUTINE IS ONLY CALLED IF IJAC=1; SUPPLY -C A DUMMY SUBROUTINE IN THE CASE IJAC=0). -C FOR IJAC=1, THIS SUBROUTINE MUST HAVE THE FORM -C SUBROUTINE JAC(N,X,Y,DFY,LDFY) -C KPP_REAL X,Y(N),DFY(LDFY,N) -C DFY(1,1)= ... -C LDFY, THE COLOMN-LENGTH OF THE ARRAY, IS -C FURNISHED BY THE CALLING PROGRAM. -C IF (MLJAC.EQ.N) THE JACOBIAN IS SUPPOSED TO -C BE FULL AND THE PARTIAL DERIVATIVES ARE -C STORED IN DFY AS -C DFY(I,J) = PARTIAL F(I) / PARTIAL Y(J) -C ELSE, THE JACOBIAN IS TAKEN AS BANDED AND -C THE PARTIAL DERIVATIVES ARE STORED -C DIAGONAL-WISE AS -C DFY(I-J+MUJAC+1,J) = PARTIAL F(I) / PARTIAL Y(J). -C -C IJAC SWITCH FOR THE COMPUTATION OF THE JACOBIAN: -C IJAC=0: JACOBIAN IS COMPUTED INTERNALLY BY FINITE -C DIFFERENCES, SUBROUTINE "JAC" IS NEVER CALLED. -C IJAC=1: JACOBIAN IS SUPPLIED BY SUBROUTINE JAC. -C -C MLJAC SWITCH FOR THE BANDED STRUCTURE OF THE JACOBIAN: -C MLJAC=N: JACOBIAN IS A FULL MATRIX. THE LINEAR -C ALGEBRA IS DONE BY FULL-MATRIX GAUSS-ELIMINATION. -C 0<=MLJAC= NUMBER OF NON-ZERO DIAGONALS BELOW -C THE MAIN DIAGONAL). -C -C MUJAC UPPER BANDWITH OF JACOBIAN MATRIX (>= NUMBER OF NON- -C ZERO DIAGONALS ABOVE THE MAIN DIAGONAL). -C NEED NOT BE DEFINED IF MLJAC=N. -C -C DFX NAME (EXTERNAL) OF THE SUBROUTINE WHICH COMPUTES -C THE PARTIAL DERIVATIVES OF F(X,Y) WITH RESPECT TO X -C (THIS ROUTINE IS ONLY CALLED IF IDFX=1 AND IFCN=1; -C SUPPLY A DUMMY SUBROUTINE IN THE CASE IDFX=0 OR IFCN=0). -C OTHERWISE, THIS SUBROUTINE MUST HAVE THE FORM -C SUBROUTINE DFX(N,X,Y,FX) -C KPP_REAL X,Y(N),FX(N) -C FX(1)= ... -C -C IDFX SWITCH FOR THE COMPUTATION OF THE DF/DX: -C IDFX=0: DF/DX IS COMPUTED INTERNALLY BY FINITE -C DIFFERENCES, SUBROUTINE "DFX" IS NEVER CALLED. -C IDFX=1: DF/DX IS SUPPLIED BY SUBROUTINE DFX. -C -C ---- MAS,IMAS,MLMAS, AND MUMAS HAVE ANALOG MEANINGS ----- -C ---- FOR THE "MASS MATRIX" (THE MATRIX "M" OF SECTION IV.8): - -C -C MAS NAME (EXTERNAL) OF SUBROUTINE COMPUTING THE MASS- -C MATRIX M. -C IF IMAS=0, THIS MATRIX IS ASSUMED TO BE THE IDENTITY -C MATRIX AND NEEDS NOT TO BE DEFINED; -C SUPPLY A DUMMY SUBROUTINE IN THIS CASE. -C IF IMAS=1, THE SUBROUTINE MAS IS OF THE FORM -C SUBROUTINE MAS(N,AM,LMAS) -C KPP_REAL AM(LMAS,N) -C AM(1,1)= .... -C IF (MLMAS.EQ.N) THE MASS-MATRIX IS STORED -C AS FULL MATRIX LIKE -C AM(I,J) = M(I,J) -C ELSE, THE MATRIX IS TAKEN AS BANDED AND STORED -C DIAGONAL-WISE AS -C AM(I-J+MUMAS+1,J) = M(I,J). -C -C IMAS GIVES INFORMATION ON THE MASS-MATRIX: -C IMAS=0: M IS SUPPOSED TO BE THE IDENTITY -C MATRIX, MAS IS NEVER CALLED. -C IMAS=1: MASS-MATRIX IS SUPPLIED. -C -C MLMAS SWITCH FOR THE BANDED STRUCTURE OF THE MASS-MATRIX: -C MLMAS=N: THE FULL MATRIX CASE. THE LINEAR -C ALGEBRA IS DONE BY FULL-MATRIX GAUSS-ELIMINATION. -C 0<=MLMAS= NUMBER OF NON-ZERO DIAGONALS BELOW -C THE MAIN DIAGONAL). -C MLMAS IS SUPPOSED TO BE .LE. MLJAC. -C -C MUMAS UPPER BANDWITH OF MASS-MATRIX (>= NUMBER OF NON- -C ZERO DIAGONALS ABOVE THE MAIN DIAGONAL). -C NEED NOT BE DEFINED IF MLMAS=N. -C MUMAS IS SUPPOSED TO BE .LE. MUJAC. -C -C SOLOUT NAME (EXTERNAL) OF SUBROUTINE PROVIDING THE -C NUMERICAL SOLUTION DURING INTEGRATION. -C IF IOUT=1, IT IS CALLED AFTER EVERY SUCCESSFUL STEP. -C SUPPLY A DUMMY SUBROUTINE IF IOUT=0. -C IT MUST HAVE THE FORM -C SUBROUTINE SOLOUT (NR,XOLD,X,Y,N,IRTRN) -C KPP_REAL X,Y(N) -C .... -C SOLOUT FURNISHES THE SOLUTION "Y" AT THE NR-TH -C GRID-POINT "X" (THEREBY THE INITIAL VALUE IS -C THE FIRST GRID-POINT). -C "IRTRN" SERVES TO INTERRUPT THE INTEGRATION. IF IRTRN -C IS SET <0, ROS4 RETURNS TO THE CALLING PROGRAM. -C -C IOUT GIVES INFORMATION ON THE SUBROUTINE SOLOUT: -C IOUT=0: SUBROUTINE IS NEVER CALLED -C IOUT=1: SUBROUTINE IS USED FOR OUTPUT -C -C WORK ARRAY OF WORKING SPACE OF LENGTH "LWORK". -C SERVES AS WORKING SPACE FOR ALL VECTORS AND MATRICES. -C "LWORK" MUST BE AT LEAST -C N*(LJAC+LMAS+LE1+8)+5 -C WHERE -C LJAC=N IF MLJAC=N (FULL JACOBIAN) -C LJAC=MLJAC+MUJAC+1 IF MLJAC 0, fast -> 1e20 -C - - SUBROUTINE INTEGRATE( TIN, TOUT ) - - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - -C TIN - Start Time - KPP_REAL TIN -C TOUT - End Time - KPP_REAL TOUT - -C Local variables - KPP_REAL P_VAR(NVAR), D_VAR(NVAR), V1(NVAR), V2(NVAR) - LOGICAL IsReject - KPP_REAL T, Tnext, STEP, STEPold, Told, SUP - KPP_REAL ERR, ERRold, ratio, factor, facmax, tmp - INTEGER i - KPP_REAL slow, fast - - T = TIN - Tnext = TOUT - STEP = DMAX1(STEPMIN,1.d-10) - Told = T - SUP = 1e-14 - IsReject = .false. - ERR = 1.d0 - ERRold = 1.d0 - slow = 0.01 - fast = 10. - - 10 continue - Tplus = T + STEP - if ( Tplus .gt. Tnext ) then - STEP = Tnext - T - Tplus = Tnext - end if - - - TITI = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - TIME = TITI - CALL FSPLIT_VAR ( VAR, P_VAR, D_VAR ) - - do i=1,NVAR - IF ( D_VAR(i)*STEP .lt. slow) THEN ! SLOW SPECIES - XXX = STEP * (P_VAR(i) - D_VAR(i)*VAR(i)) - V1(i) = VAR(i) + XXX - V2(i) = VAR(i) + 0.5*XXX - ELSE IF ( D_VAR(i)*STEP .GT. fast) THEN ! FAST SPECIES - V1(i) = P_VAR(i)/D_VAR(i) - V2(i) = V1(i) - ELSE ! MEDIUM LIVED - if ( abs(D_VAR(i)).gt.SUP ) then - ratio = P_VAR(i)/D_VAR(i) - tmp = exp(-D_VAR(i)*STEP*0.5) - V1(i) = tmp * tmp * (VAR(i) - ratio) + ratio - V2(i) = tmp * (VAR(i) - ratio) + ratio - else - tmp = D_VAR(i) * STEP * 0.5 - V1(i) = VAR(i) + P_VAR(i) * STEP * ( 1 - tmp * - * ( 1 - 2.0 / 3.0 * tmp ) ) - V2(i) = VAR(i) + P_VAR(i) * 0.5 * STEP*( 1-0.5*tmp* - * ( 1 - 1.0 / 3.0 * tmp ) ) - end if - END IF - end do - - TITI = TIME - TIME = T + 0.5*STEP - CALL Update_SUN() - CALL Update_RCONST() - TIME = TITI - CALL FSPLIT_VAR ( V2, P_VAR, D_VAR ) - - do i=1,NVAR - IF ( D_VAR(i)*STEP .lt. slow) THEN ! SLOW SPECIES - XXX = STEP * (P_VAR(i) - D_VAR(i)*VAR(i)) - V2(i) = V2(i) + 0.5*XXX - ELSE IF ( D_VAR(i)*STEP .GT. fast) THEN ! FAST SPECIES - V2(i) = P_VAR(i)/D_VAR(i) - ELSE ! MEDIUM LIVED - if ( abs(D_VAR(i)).gt.SUP ) then - ratio = P_VAR(i)/D_VAR(i) - tmp = exp(-D_VAR(i)*STEP*0.5) - V2(i) = tmp * (V2(i) - ratio) + ratio - else - tmp = D_VAR(i) * STEP * 0.5 - V2(i) = V2(i) + P_VAR(i) * 0.5 * STEP * ( 1 - 0.5 * tmp * - * ( 1 - 1.0 / 3.0 * tmp ) ) - end if - END IF - end do - -C ===== Extrapolation and error estimation ======== - - ERRold=ERR - ERR=0.0D0 - do i=1,NVAR - ERR = ERR + ((V2(i)-V1(i))/(ATOL(i) + RTOL(i)*V2(i)))**2 - end do - ERR = DSQRT( ERR/NVAR ) - STEPold=STEP - -C ===== choosing the stepsize ===================== - - factor = 0.9*ERR**(-0.35)*ERRold**0.2 - if (IsReject) then - facmax=1. - else - facmax=8. - end if - factor = DMAX1( 1.25D-1, DMIN1(factor,facmax) ) - STEP = DMIN1( STEPMAX, DMAX1(STEPMIN,factor*STEP) ) - -C=================================================== - - if ( (ERR.gt.1).and.(STEPold.gt.STEPMIN) ) then - IsReject = .true. - else - IsReject = .false. - do 140 i=1,NVAR - VAR(i) = DMAX1(V2(i), 0.d0) - 140 continue - T = Tplus - end if - if ( T .lt. Tnext ) go to 10 - - TIME = Tnext - RETURN - END diff --git a/int.modified_WCOPY/oldies/qssa1.f b/int.modified_WCOPY/oldies/qssa1.f deleted file mode 100644 index 71e1620495e6c62d62fddff953d245b45e665235..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/qssa1.f +++ /dev/null @@ -1,136 +0,0 @@ -C -- QSSA WITH STEADY STATE APPROXIMATION -- -C For plain QSSA (to remove the steady state assumption) -C modify slow -> 0, fast -> 1e20 -C - - SUBROUTINE INTEGRATE( TIN, TOUT ) - - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - -C TIN - Start Time - KPP_REAL TIN -C TOUT - End Time - KPP_REAL TOUT - -C Local variables - KPP_REAL P_VAR(NVAR), D_VAR(NVAR), V1(NVAR), V2(NVAR) - LOGICAL IsReject - KPP_REAL T, Tnext, STEP, STEPold, Told, SUP - KPP_REAL ERR, ERRold, ratio, factor, facmax, tmp - INTEGER I - KPP_REAL slow, fast - - T = TIN - Tnext = TOUT - STEP = DMAX1(STEPMIN,1.d-10) - Told = T - SUP = 1e-14 - IsReject = .false. - ERR = 1.d0 - ERRold = 1.d0 - slow = 0.01 - fast = 10. - - 10 continue - Tplus = T + STEP - if ( Tplus .gt. Tnext ) then - STEP = Tnext - T - Tplus = Tnext - end if - - - TITI = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - TIME = TITI - CALL FSPLIT_VAR ( VAR, P_VAR, D_VAR ) - - do i=1,NVAR - IF ( D_VAR(i)*step .lt. slow) THEN ! SLOW SPECIES - XXX = STEP * (P_VAR(I) - D_VAR(I)*VAR(I)) - V1(I) = VAR(I) + XXX - V2(I) = VAR(I) + 0.5*XXX - ELSE IF ( D_VAR(i)*step .GT. fast) THEN ! FAST SPECIES - V1(I) = P_VAR(I)/D_VAR(I) - V2(I) = V1(I) - ELSE ! MEDIUM LIVED - if ( abs(D_VAR(i)).gt.SUP ) then - ratio = P_VAR(i)/D_VAR(i) - tmp = exp(-D_VAR(i)*STEP*0.5) - V1(i) = tmp * tmp * (VAR(i) - ratio) + ratio - V2(i) = tmp * (VAR(i) - ratio) + ratio - else - tmp = D_VAR(i) * STEP * 0.5 - V1(i) = VAR(i) + P_VAR(i) * STEP * ( 1 - tmp * - * ( 1 - 2.0 / 3.0 * tmp ) ) - V2(i) = VAR(i) + P_VAR(i) * 0.5 * STEP*( 1-0.5*tmp* - * ( 1 - 1.0 / 3.0 * tmp ) ) - end if - END IF - end do - - TITI = TIME - TIME = T + 0.5*STEP - CALL Update_SUN() - CALL Update_RCONST() - TIME = TITI - CALL FSPLIT_VAR ( V2, P_VAR, D_VAR ) - - do i=1,NVAR - IF ( D_VAR(i)*step .lt. slow) THEN ! SLOW SPECIES - XXX = STEP * (P_VAR(I) - D_VAR(I)*VAR(I)) - V2(I) = V2(I) + 0.5*XXX - ELSE IF ( D_VAR(i)*step .GT. fast) THEN ! FAST SPECIES - V2(I) = P_VAR(I)/D_VAR(I) - ELSE ! MEDIUM LIVED - if ( abs(D_VAR(i)).gt.SUP ) then - ratio = P_VAR(i)/D_VAR(i) - tmp = exp(-D_VAR(i)*STEP*0.5) - V2(i) = tmp * (V2(i) - ratio) + ratio - else - tmp = D_VAR(i) * STEP * 0.5 - V2(i) = V2(i) + P_VAR(i) * 0.5 * STEP * ( 1 - 0.5 * tmp * - * ( 1 - 1.0 / 3.0 * tmp ) ) - end if - END IF - end do - -C ===== Extrapolation and error estimation ======== - - ERRold=ERR - ERR=0.0D0 - do i=1,NVAR - ERR = ERR + ((V2(i)-V1(i))/(ATOL(i) + RTOL(i)*V2(i)))**2 - end do - ERR = DSQRT( ERR/NVAR ) - STEPold=STEP - -C ===== choosing the stepsize ===================== - - factor = 0.9*ERR**(-0.35)*ERRold**0.2 - if (IsReject) then - facmax=1. - else - facmax=8. - end if - factor = DMAX1( 1.25D-1, DMIN1(factor,facmax) ) - STEP = DMIN1( STEPMAX, DMAX1(STEPMIN,factor*STEP) ) - -C=================================================== - - if ( (ERR.gt.1).and.(STEPold.gt.STEPMIN) ) then - IsReject = .true. - else - IsReject = .false. - do 140 i=1,NVAR - VAR(i) = DMAX1(V2(i), 0.d0) - 140 continue - T = Tplus - end if - if ( T .lt. Tnext ) go to 10 - - TIME = Tnext - RETURN - END diff --git a/int.modified_WCOPY/oldies/qssafix.def b/int.modified_WCOPY/oldies/qssafix.def deleted file mode 100644 index ed6f40b3869eff8c2cf89e308dc6fe9671bc5b0a..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/qssafix.def +++ /dev/null @@ -1,16 +0,0 @@ - -#FUNCTION SPLIT -#JACOBIAN OFF -#SPARSEDATA OFF -#DOUBLE ON -#INTFILE qssafix - -#INLINE F_INIT_INT - STEPMIN=0.0001 - STEPMAX=60. -#ENDINLINE - -#INLINE C_INIT_INT - STEPMIN=0.0001; - STEPMAX=60.; -#ENDINLINE diff --git a/int.modified_WCOPY/oldies/qssafix.f b/int.modified_WCOPY/oldies/qssafix.f deleted file mode 100644 index 4f0a072e9b602bf3dd0f6e851288836d96e81f22..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/qssafix.f +++ /dev/null @@ -1,56 +0,0 @@ -C --- Plain QSSA with fixed step size -C - SUBROUTINE INTEGRATE( TIN, TOUT ) - - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - -C TIN - Start Time - KPP_REAL TIN -C TOUT - End Time - KPP_REAL TOUT - -C Local variables - KPP_REAL P_VAR(NVAR), D_VAR(NVAR) - LOGICAL IsReject - KPP_REAL T, Tnext, STEP, Told, SUP - KPP_REAL ratio, tmp - INTEGER i - - T = TIN - Tnext = TOUT - STEP = 0.1 - Told = T - SUP = 1e-14 - IsReject = .false. - -C -- BELOW THIS LIMIT USE TAYLOR INSTEAD OF EXP --- - - do while ( T.lt.Tnext ) - - if ( T.gt.Tnext ) then - STEP = Tnext - Told - T = Tnext - end if - - CALL FSPLIT_VAR ( VAR, P_VAR, D_VAR ) - - do i=1,NVAR - if ( abs(D_VAR(i)).gt.SUP ) then - ratio = P_VAR(i)/D_VAR(i) - tmp = exp(-D_VAR(i)*STEP) - VAR(i) = tmp * (VAR(i) - ratio) + ratio - else - tmp = D_VAR(i) * STEP - VAR(i) = VAR(i) + P_VAR(i) * 0.5 * STEP * ( 1 - 0.5 * tmp * - * ( 1 - 1.0 / 3.0 * tmp ) ) - end if - end do - - T = T + STEP - TIME = T - - end do - - RETURN - END diff --git a/int.modified_WCOPY/oldies/rodas3.c b/int.modified_WCOPY/oldies/rodas3.c deleted file mode 100644 index 92754698f0c059efe3497743fa7d206ce9020491..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/rodas3.c +++ /dev/null @@ -1,313 +0,0 @@ - - #define MAX(a,b) ((a) >= (b) ) ?(a):(b) - #define MIN(b,c) ((b) < (c) ) ?(b):(c) - #define abs(x) ((x) >= 0 ) ?(x):(-x) - #define dabs(y) (double)abs(y) - #define DSQRT(d) (double)pow(d,0.5) - - void (*forfun)(int,KPP_REAL,KPP_REAL [],KPP_REAL []); - void (*forjac)(int,KPP_REAL,KPP_REAL [],KPP_REAL []); - - -void FUNC_CHEM(int N,KPP_REAL T,KPP_REAL Y[NVAR],KPP_REAL P[NVAR]) - { - KPP_REAL Told; - Told = TIME; - TIME = T; - Update_SUN(); - Update_PHOTO(); - Fun( Y, FIX, RCONST, P ); - TIME = Told; - } /* function fun ends here */ - -void JAC_CHEM(int N,KPP_REAL T,KPP_REAL Y[NVAR],KPP_REAL J[LU_NONZERO]) - { - KPP_REAL Told; - Told = TIME; - TIME = T; - Update_SUN(); - Update_PHOTO(); - Jac_SP( Y, FIX, RCONST, J ); - TIME = Told; - } /* function jac_sp ends here */ - - - INTEGRATE( KPP_REAL TIN, KPP_REAL TOUT ) - { - /* TIN - Start Time */ - /* TOUT - End Time */ - - int INFO[5]; - - forfun = &FUNC_CHEM; - forjac = &JAC_CHEM; - INFO[0] = Autonomous; - - RODAS3( NVAR,TIN,TOUT,STEPMIN,STEPMAX,STEPMIN,VAR,ATOL,RTOL,INFO - ,forfun ,forjac ); - -} - - - -int RODAS3(int N,KPP_REAL T, KPP_REAL Tnext,KPP_REAL Hmin,KPP_REAL Hmax, - KPP_REAL Hstart,KPP_REAL y[NVAR],KPP_REAL AbsTol[NVAR],KPP_REAL RelTol[NVAR], - int INFO[5],void (*forfun)(int,KPP_REAL,KPP_REAL [],KPP_REAL []), - void (*forjac)(int,KPP_REAL,KPP_REAL [],KPP_REAL []) ) - { -/* - Stiffly accurate Rosenbrock 3(2), with - stiffly accurate embedded formula for error control. - - All the arguments aggree with the KPP syntax. - - INPUT ARGUMENTS: - y = Vector of (NVAR) concentrations, contains the - initial values on input - [T, Tnext] = the integration interval - Hmin, Hmax = lower and upper bounds for the selected step-size. - Note that for Step = Hmin the current computed - solution is unconditionally accepted by the error - control mechanism. - AbsTol, RelTol = (NVAR) dimensional vectors of - componentwise absolute and relative tolerances. - FUNC_CHEM = name of routine of derivatives. KPP syntax. - See the header below. - JAC_CHEM = name of routine that computes the Jacobian, in - sparse format. KPP syntax. See the header below. - Info(1) = 1 for autonomous system - = 0 for nonautonomous system - - OUTPUT ARGUMENTS: - y = the values of concentrations at Tend. - T = equals Tend on output. - Info(2) = # of FUNC_CHEM calls. - Info(3) = # of JAC_CHEM calls. - Info(4) = # of accepted steps. - Info(5) = # of rejected steps. - - Adrian Sandu, March 1996 - The Center for Global and Regional Environmental Research -*/ - KPP_REAL K1[NVAR], K2[NVAR], K3[NVAR], K4[NVAR]; - KPP_REAL F1[NVAR], JAC[LU_NONZERO]; - KPP_REAL ghinv,uround,c43,x1,x2,ytol; - KPP_REAL ynew[NVAR]; - KPP_REAL H, Hold, Tplus,tau,tau1,tau2,tau3; - KPP_REAL ERR, factor, facmax; - int n,nfcn,njac,Naccept,Nreject,i,j,ier; - char IsReject,Autonomous; - - - -/* Initialization of counters, etc. */ - Autonomous = (INFO[0] == 1); - uround = (double)1e-15; - c43 = (double)(-8.e0/3.e0); - H = MAX( (double)1e-8, Hstart ); - Hmin = MAX(Hmin,uround*(Tnext-T)); - Hmax = MIN(Hmax,Tnext-T); - Tplus = T; - IsReject = 0; - Naccept = 0; - Nreject = 0; - nfcn = 0; - njac = 0; - - -/* === Starting the time loop === */ - -while(T Tnext ) - { - H = Tnext - T; - Tplus = Tnext; - } - - (*forjac)(NVAR, T, y,JAC ); - - njac = njac+1; - ghinv = (double)-2.0e0/H; - for(j=0;j Hmin ) - { - H = (double)5.0e-1*H; - goto ten; - } - else - printf("IER <> 0 , H = %d", H); - }/* main ier if ends*/ - - - (*forfun)(NVAR , T, y, F1 ) ; - - -/* ====== NONAUTONOMOUS CASE =============== */ - - if( Autonomous == 0) - { - tau = DSQRT( uround*MAX( (double)1.0e-5, dabs(T) ) ); - (*forfun)(NVAR , T+tau , y ,K2 ); - nfcn=nfcn+1; - for(j=0;j1) && (Hold>Hmin) ) - { - IsReject = 1; - Nreject = Nreject + 1; - } - else - { - IsReject = 0; - - for(i=0;i 0, H=',H - stop - end if - end if - - CALL FUNC_CHEM(NVAR, T, y, F1) - -C ====== NONAUTONOMOUS CASE =============== - IF (.not. Autonomous) THEN - tau = DSQRT( uround*DMAX1( 1.0d-5, DABS(T) ) ) - CALL FUNC_CHEM(NVAR, T+tau, y, K2) - nfcn=nfcn+1 - do 30 j = 1,NVAR - K3(j) = ( K2(j)-F1(j) )/tau - 30 continue - -C ----- STAGE 1 (NONAUTONOMOUS) ----- - x1 = 0.5*H - do 40 j = 1,NVAR - K1(j) = F1(j) + x1*K3(j) - 40 continue - CALL KppSolve (JAC, K1) - -C ----- STAGE 2 (NONAUTONOMOUS) ----- - x1 = 4.d0/H - x2 = 1.5d0*H - do 50 j = 1,NVAR - K2(j) = F1(j) - x1*K1(j) + x2*K3(j) - 50 continue - CALL KppSolve (JAC, K2) - -C ====== AUTONOMOUS CASE =============== - ELSE -C ----- STAGE 1 (AUTONOMOUS) ----- - do 60 j = 1,NVAR - K1(j) = F1(j) - 60 continue - CALL KppSolve (JAC, K1) - -C ----- STAGE 2 (AUTONOMOUS) ----- - x1 = 4.d0/H - do 70 j = 1,NVAR - K2(j) = F1(j) - x1*K1(j) - 70 continue - CALL KppSolve (JAC, K2) - END IF - -C ----- STAGE 3 ----- - do 80 j = 1,NVAR - ynew(j) = y(j) - 2.0d0*K1(j) - 80 continue - CALL FUNC_CHEM(NVAR, T+H, ynew, F1) - nfcn=nfcn+1 - do 90 j = 1,NVAR - K3(j) = F1(j) + ( -K1(j) + K2(j) )/H - 90 continue - CALL KppSolve (JAC, K3) - -C ----- STAGE 4 ----- - do 100 j = 1,NVAR - ynew(j) = y(j) - 2.0d0*K1(j) - K3(j) - 100 continue - CALL FUNC_CHEM(NVAR, T+H, ynew, F1) - nfcn=nfcn+1 - do 110 j = 1,NVAR - K4(j) = F1(j) + ( -K1(j) + K2(j) - C43*K3(j) )/H - 110 continue - CALL KppSolve (JAC, K4) - -C ---- The Solution --- - - do 120 j = 1,NVAR - ynew(j) = y(j) - 2.0d0*K1(j) - K3(j) - K4(j) - 120 continue - - -C ====== Error estimation ======== - - ERR=0.d0 - do 130 i=1,NVAR - ytol = AbsTol(i) + RelTol(i)*DABS(ynew(i)) - ERR = ERR + ( K4(i)/ytol )**2 - 130 continue - ERR = DMAX1( uround, DSQRT( ERR/NVAR ) ) - -C ======= Choose the stepsize =============================== - elo = 3.0D0 ! estimator local order - factor = DMAX1(2.0D-1,DMIN1(6.0D0,ERR**(1.0D0/elo)/.9D0)) - Hnew = DMIN1(Hmax,DMAX1(Hmin, H/factor)) - -C ======= Rejected/Accepted Step ============================ - - IF ( (ERR.gt.1).and.(H.gt.Hmin) ) THEN - IsReject = .true. - H = DMIN1(H/10,Hnew) - Nreject = Nreject+1 - ELSE - DO 140 i=1,NVAR - y(i) = ynew(i) - 140 CONTINUE - T = Tplus - IF (.NOT.IsReject) THEN - H = Hnew ! Do not increase stepsize if previos step was rejected - END IF - IsReject = .false. - Naccept = Naccept+1 - END IF - - -C ======= End of the time loop =============================== - if ( T .lt. Tnext ) go to 10 - - - -C ======= Output Information ================================= - Info(2) = Nfcn - Info(3) = Njac - Info(4) = Naccept - Info(5) = Nreject - Hstart = H - - RETURN - END - - - - SUBROUTINE FUNC_CHEM(N, T, Y, P) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INTEGER N - KPP_REAL T, Told - KPP_REAL Y(NVAR), P(NVAR) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, P ) - TIME = Told - RETURN - END - - - SUBROUTINE JAC_CHEM(N, T, Y, J) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INTEGER N - KPP_REAL Told, T - KPP_REAL Y(NVAR), J(LU_NONZERO) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Jac_SP( Y, FIX, RCONST, J ) - TIME = Told - RETURN - END - diff --git a/int.modified_WCOPY/oldies/rodas3_ddm.def b/int.modified_WCOPY/oldies/rodas3_ddm.def deleted file mode 100644 index 8aefee2db815fb26a095c1c53ced4414aee1bdbe..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/rodas3_ddm.def +++ /dev/null @@ -1,52 +0,0 @@ - -#FUNCTION AGGREGATE -#JACOBIAN SPARSE_LU_ROW - -#DOUBLE ON -#INTFILE rodas3_ddm -#HESSIAN ON - -#INLINE F77_DECL_INT - INTEGER Autonomous - COMMON /INTGDATA/ Autonomous - REAL*8 STEPSTART - COMMON /GDATA/ STEPSTART -#ENDINLINE - -#INLINE F77_INIT_INT - STEPMIN=1.0E-4 - STEPMAX=3600. - Autonomous = 0 - STEPSTART=STEPMIN -#ENDINLINE - - -#INLINE F90_DECL_INT - INTEGER :: Autonomous - DOUBLE PRECISION :: STEPSTART -#ENDINLINE - -#INLINE F90_INIT_INT - STEPMIN=1.e-4 - STEPMAX=3600. - Autonomous = 0 - STEPSTART=STEPMIN -#ENDINLINE - - -#INLINE C_DECL_INT - extern int Autonomous; - extern double STEPSTART; -#ENDINLINE - -#INLINE C_DATA_INT - int Autonomous; - double STEPSTART; -#ENDINLINE - -#INLINE C_INIT_INT - STEPMIN = 0.0001; - STEPMAX = 3600.0; - Autonomous = 0; - STEPSTART = STEPMIN; -#ENDINLINE diff --git a/int.modified_WCOPY/oldies/rodas3_ddm.f b/int.modified_WCOPY/oldies/rodas3_ddm.f deleted file mode 100644 index f4906c331a87e918c0bb1072359df9f68ae2e6ef..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/rodas3_ddm.f +++ /dev/null @@ -1,592 +0,0 @@ - SUBROUTINE INTEGRATE( NSENSIT, Y, TIN, TOUT ) - - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - -C TIN - Start Time - KPP_REAL TIN -C TOUT - End Time - KPP_REAL TOUT -C Y - Concentrations and Sensitivities - KPP_REAL Y(NVAR*(NSENSIT+1)) -C --- Note: Y contains: (1:NVAR) concentrations, followed by -C --- (1:NVAR) sensitivities w.r.t. first parameter, followed by -C --- etc., followed by -C --- (1:NVAR) sensitivities w.r.t. NSENSIT's parameter - - INTEGER INFO(5) - - EXTERNAL FUNC_CHEM, JAC_CHEM - - INFO(1) = Autonomous - - CALL RODAS3_DDM(NVAR,NSENSIT,TIN,TOUT,STEPMIN,STEPMAX, - + STEPMIN,Y,ATOL,RTOL, - + Info,FUNC_CHEM,JAC_CHEM) - - - RETURN - END - - - - - SUBROUTINE RODAS3_DDM(N,NSENSIT,T,Tnext,Hmin,Hmax,Hstart, - + y,AbsTol,RelTol, - + Info,FUNC_CHEM,JAC_CHEM) - - IMPLICIT NONE - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INCLUDE 'KPP_ROOT_sparse.h' -C -C Stiffly accurate Rosenbrock 3(2), with -C stiffly accurate embedded formula for error control. -C -C Direct decoupled computation of sensitivities. -C The global variable DDMTYPE distinguishes between: -C DDMTYPE = 0 : sensitivities w.r.t. initial values -C DDMTYPE = 1 : sensitivities w.r.t. parameters -C -C INPUT ARGUMENTS: -C y = Vector of: (1:NVAR) concentrations, followed by -C (1:NVAR) sensitivities w.r.t. first parameter, followed by -C etc., followed by -C (1:NVAR) sensitivities w.r.t. NSENSIT's parameter -C (y contains initial values at input, final values at output) -C [T, Tnext] = the integration interval -C Hmin, Hmax = lower and upper bounds for the selected step-size. -C Note that for Step = Hmin the current computed -C solution is unconditionally accepted by the error -C control mechanism. -C AbsTol, RelTol = (NVAR) dimensional vectors of -C componentwise absolute and relative tolerances. -C FUNC_CHEM = name of routine of derivatives. KPP syntax. -C See the header below. -C JAC_CHEM = name of routine that computes the Jacobian, in -C sparse format. KPP syntax. See the header below. -C Info(1) = 1 for Autonomous system -C = 0 for nonAutonomous system -C -C OUTPUT ARGUMENTS: -C y = the values of concentrations and sensitivities at Tend. -C T = equals TENDon output. -C Info(2) = # of FUNC_CHEM CALLs. -C Info(3) = # of JAC_CHEM CALLs. -C Info(4) = # of accepted steps. -C Info(5) = # of rejected steps. -C -C Adrian Sandu, December 2001 -C - - INTEGER NSENSIT - KPP_REAL y(NVAR*(NSENSIT+1)), ynew(NVAR*(NSENSIT+1)) - KPP_REAL K1(NVAR*(NSENSIT+1)) - KPP_REAL K2(NVAR*(NSENSIT+1)) - KPP_REAL K3(NVAR*(NSENSIT+1)) - KPP_REAL K4(NVAR*(NSENSIT+1)) - KPP_REAL Fv(NVAR), Hv(NVAR) - KPP_REAL DFDT(NVAR*(NSENSIT+1)) - KPP_REAL DJDP(NVAR*NSENSIT) - KPP_REAL DFDP(NVAR*NSENSIT), DFDPDT(NVAR*NSENSIT) - KPP_REAL JAC(LU_NONZERO), AJAC(LU_NONZERO) - KPP_REAL DJDT(LU_NONZERO) - KPP_REAL HESS(NHESS) - KPP_REAL Hmin,Hmax,Hstart,ghinv,uround - KPP_REAL AbsTol(NVAR), RelTol(NVAR) - KPP_REAL T, Tnext, Tplus, H, Hnew, elo - KPP_REAL ERR, factor, facmax - KPP_REAL w, e, beta1, beta2, beta3, beta4 - KPP_REAL tau, x1, x2, ytol, dround - - INTEGER n,nfcn,njac,Naccept,Nreject,i,j,ier - INTEGER Info(5) - LOGICAL IsReject, Autonomous - EXTERNAL FUNC_CHEM, JAC_CHEM, HESS_CHEM - -C The method coefficients - DOUBLE PRECISION gamma, gamma2, gamma3, gamma4 - PARAMETER ( gamma = 0.5D+00 ) - PARAMETER ( gamma2 = 1.5D+00 ) - PARAMETER ( gamma3 = 0.0D+00 ) - PARAMETER ( gamma4 = 0.0D+00 ) - DOUBLE PRECISION a21, a31, a32, a41, a42, a43 - PARAMETER ( a21 = 0.0D+00 ) - PARAMETER ( a31 = 2.0D+00 ) - PARAMETER ( a32 = 0.0D+00 ) - PARAMETER ( a41 = 2.0D+00 ) - PARAMETER ( a42 = 0.0D+00 ) - PARAMETER ( a43 = 1.0D+00 ) - DOUBLE PRECISION alpha2, alpha3, alpha4 - PARAMETER ( alpha2 = 0.0D0 ) - PARAMETER ( alpha3 = 1.0D0 ) - PARAMETER ( alpha4 = 1.0D0 ) - DOUBLE PRECISION c21, c31, c32, c41, c42, c43 - PARAMETER ( c21 = 4.0D0 ) - PARAMETER ( c31 = 1.0D0 ) - PARAMETER ( c32 = -1.0D0 ) - PARAMETER ( c41 = 1.0D0 ) - PARAMETER ( c42 = -1.0D0 ) - PARAMETER ( c43 = -2.666666666666667D0 ) - DOUBLE PRECISION b1, b2, b3, b4 - PARAMETER ( b1 = 2.0D+00 ) - PARAMETER ( b2 = 0.0D0 ) - PARAMETER ( b3 = 1.0D0 ) - PARAMETER ( b4 = 1.0D0 ) - DOUBLE PRECISION d1, d2, d3, d4 - PARAMETER ( d1 = 0.0D0 ) - PARAMETER ( d2 = 0.0D0 ) - PARAMETER ( d3 = 0.0D0 ) - PARAMETER ( d4 = 1.0D0 ) - - -c Initialization of counters, etc. - Autonomous = Info(1) .EQ. 1 - uround = 1.d-15 - dround = DSQRT(uround) - IF (Hmax.le.0.D0) THEN - Hmax = DABS(Tnext-T) - END IF - H = DMAX1(1.d-8, Hstart) - Tplus = T - IsReject = .false. - Naccept = 0 - Nreject = 0 - Nfcn = 0 - Njac = 0 - -C === Starting the time loop === - 10 CONTINUE - - Tplus = T + H - IF ( Tplus .gt. Tnext ) THEN - H = Tnext - T - Tplus = Tnext - END IF - -C Initial Function, Jacobian, and Hessian Values - CALL FUNC_CHEM(NVAR, T, y, Fv) - CALL JAC_CHEM(NVAR, T, y, JAC) - CALL HESS_CHEM( NVAR, T, y, HESS ) - IF (DDMTYPE .EQ. 1) THEN - CALL DFUNDPAR(NVAR, NSENSIT, T, y, DFDP) - END IF - -C The time derivatives for non-Autonomous case - IF (.not. Autonomous) THEN - tau = DSIGN(dround*DMAX1( 1.0d0, DABS(T) ), T) - CALL FUNC_CHEM(NVAR, T+tau, y, K2) - CALL JAC_CHEM(NVAR, T+tau, y, AJAC) - nfcn=nfcn+1 - DO 20 j = 1,NVAR - DFDT(j) = ( K2(j)-Fv(j) )/tau - 20 CONTINUE - DO 30 j = 1,LU_NONZERO - DJDT(j) = ( AJAC(j)-JAC(j) )/tau - 30 CONTINUE - DO 35 i=1,NSENSIT - CALL Jac_SP_Vec (DJDT,y(i*NVAR+1),DFDT(i*NVAR+1)) - 35 CONTINUE - END IF - - 11 CONTINUE ! From here we restart after a rejected step - -C Form the Prediction matrix and compute its LU factorization - Njac = Njac+1 - ghinv = 1.0d0/(gamma*H) - DO 40 j=1,LU_NONZERO - AJAC(j) = -JAC(j) - 40 CONTINUE - DO 50 j=1,NVAR - AJAC(LU_DIAG(j)) = AJAC(LU_DIAG(j)) + ghinv - 50 CONTINUE - CALL KppDecomp (AJAC, ier) -C - IF (ier.ne.0) THEN - IF ( H.gt.Hmin) THEN - H = 5.0d-1*H - GO TO 10 - ELSE - PRINT *,'ROS4: Singular factorization at T=',T,'; H=',H - STOP - END IF - END IF - -C ------------ STAGE 1------------------------- - DO 60 j = 1,NVAR - K1(j) = Fv(j) - 60 CONTINUE - IF (.NOT. Autonomous) THEN - beta1 = H*gamma - DO 70 j=1,NVAR - K1(j) = K1(j) + beta1*DFDT(j) - 70 CONTINUE - END IF - CALL KppSolve (AJAC, K1) -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - CALL DJACDPAR(NVAR, NSENSIT, T, y, K1(1), DJDP) - END IF -C --- End of derivative w.r.t. parameters - - DO 100 i=1,NSENSIT - CALL Jac_SP_Vec (JAC,y(i*NVAR+1),K1(i*NVAR+1)) - CALL Hess_Vec ( HESS, y(i*NVAR+1), K1(1), Hv ) - DO 80 j=1,NVAR - K1(i*NVAR+j) = K1(i*NVAR+j) + Hv(j) - 80 CONTINUE - IF (.NOT. Autonomous) THEN - DO 90 j=1,NVAR - K1(i*NVAR+j) = K1(i*NVAR+j) + beta1*DFDT(i*NVAR+j) - 90 CONTINUE - END IF -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - DO 95 j = 1,NVAR - K1(i*NVAR+j) = K1(i*NVAR+j) + DFDP((i-1)*NVAR+j) - & + DJDP((i-1)*NVAR+j) - 95 CONTINUE - END IF -C --- End of derivative w.r.t. parameters - CALL KppSolve (AJAC, K1(i*NVAR+1)) - 100 CONTINUE - -C ----------- STAGE 2 ------------------------- -C Note: uses the same function values as Stage 1 -C DO 110 j = 1,NVAR*(NSENSIT+1) -C ynew(j) = y(j) + a21*K1(j) -C 110 CONTINUE -C CALL FUNC_CHEM(NVAR, T+alpha2*H, ynew, Fv) -C IF (DDMTYPE .EQ. 1) THEN -C CALL DFUNDPAR(NVAR, NSENSIT, T+alpha2*H, ynew, DFDP) -C END IF -C nfcn=nfcn+1 - beta1 = c21/H - DO 120 j = 1,NVAR - K2(j) = Fv(j) + beta1*K1(j) - 120 CONTINUE - IF (.NOT. Autonomous) THEN - beta2 = H*gamma2 - DO 130 j=1,NVAR - K2(j) = K2(j) + beta2*DFDT(j) - 130 CONTINUE - END IF - CALL KppSolve (AJAC, K2) -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - CALL DJACDPAR(NVAR, NSENSIT, T, y, K2(1), DJDP) - END IF -C --- End of derivative w.r.t. parameters - - CALL JAC_CHEM(NVAR, T+alpha2*H, ynew, JAC) - njac=njac+1 - DO 160 i=1,NSENSIT - CALL Jac_SP_Vec (JAC,ynew(i*NVAR+1),K2(i*NVAR+1)) - CALL Hess_Vec ( HESS, y(i*NVAR+1), K2(1), Hv ) - DO 140 j = 1,NVAR - K2(i*NVAR+j) = K2(i*NVAR+j) + beta1*K1(i*NVAR+j) - & + Hv(j) - 140 CONTINUE - IF (.NOT. Autonomous) THEN - DO 150 j=1,NVAR - K2(i*NVAR+j) = K2(i*NVAR+j) + beta2*DFDT(i*NVAR+j) - 150 CONTINUE - END IF -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - DO 155 j = 1,NVAR - K2(i*NVAR+j) = K2(i*NVAR+j) + DFDP((i-1)*NVAR+j) - & + DJDP((i-1)*NVAR+j) - 155 CONTINUE - END IF -C --- End of derivative w.r.t. parameters - CALL KppSolve (AJAC, K2(i*NVAR+1)) - 160 CONTINUE - - -C ------------ STAGE 3 ------------------------- - DO 170 j = 1,NVAR*(NSENSIT+1) - ynew(j) = y(j) + a31*K1(j) + a32*K2(j) - 170 CONTINUE - CALL FUNC_CHEM(NVAR, T+alpha3*H, ynew, Fv) - IF (DDMTYPE .EQ. 1) THEN - CALL DFUNDPAR(NVAR, NSENSIT, T+alpha3*H, ynew, DFDP) - END IF - nfcn=nfcn+1 - beta1 = c31/H - beta2 = c32/H - DO 180 j = 1,NVAR - K3(j) = Fv(j) + beta1*K1(j) + beta2*K2(j) - 180 CONTINUE - IF (.NOT. Autonomous) THEN - beta3 = H*gamma3 - DO 190 j=1,NVAR - K3(j) = K3(j) + beta3*DFDT(j) - 190 CONTINUE - END IF - CALL KppSolve (AJAC, K3) -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - CALL DJACDPAR(NVAR, NSENSIT, T, y, K3(1), DJDP) - END IF -C --- End of derivative w.r.t. parameters - - CALL JAC_CHEM(NVAR, T+alpha3*H, ynew, JAC) - njac=njac+1 - DO 220 i=1,NSENSIT - CALL Jac_SP_Vec (JAC,ynew(i*NVAR+1),K3(i*NVAR+1)) - CALL Hess_Vec ( HESS, y(i*NVAR+1), K3(1), Hv ) - DO 200 j = 1,NVAR - K3(i*NVAR+j) = K3(i*NVAR+j) + beta1*K1(i*NVAR+j) - & + beta2*K2(i*NVAR+j) + Hv(j) - 200 CONTINUE - IF (.NOT. Autonomous) THEN - DO 210 j=1,NVAR - K3(i*NVAR+j) = K3(i*NVAR+j) + beta3*DFDT(i*NVAR+j) - 210 CONTINUE - END IF -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - DO 215 j = 1,NVAR - K3(i*NVAR+j) = K3(i*NVAR+j) + DFDP((i-1)*NVAR+j) - & + DJDP((i-1)*NVAR+j) - 215 CONTINUE - END IF -C --- End of derivative w.r.t. parameters - CALL KppSolve (AJAC, K3(i*NVAR+1)) - 220 CONTINUE - -C ------------ STAGE 4 ------------------------- - DO 225 j = 1,NVAR*(NSENSIT+1) - ynew(j) = y(j) + a41*K1(j) + a42*K2(j) + a43*K3(j) - 225 CONTINUE - CALL FUNC_CHEM(NVAR, T+alpha4*H, ynew, Fv) - IF (DDMTYPE .EQ. 1) THEN - CALL DFUNDPAR(NVAR, NSENSIT, T+alpha4*H, ynew, DFDP) - END IF - nfcn=nfcn+1 - beta1 = c41/H - beta2 = c42/H - beta3 = c43/H - DO 230 j = 1,NVAR - K4(j) = Fv(j) + beta1*K1(j) + beta2*K2(j) + beta3*K3(j) - 230 CONTINUE - IF (.NOT. Autonomous) THEN - beta4 = H*gamma4 - DO 240 j=1,NVAR - K4(j) = K4(j) + beta4*DFDT(j) - 240 CONTINUE - END IF - CALL KppSolve (AJAC, K4) -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - CALL DJACDPAR(NVAR, NSENSIT, T, y, K4(1), DJDP) - END IF -C --- End of derivative w.r.t. parameters - - njac=njac+1 - DO 270 i=1,NSENSIT - CALL Jac_SP_Vec (JAC,ynew(i*NVAR+1),K4(i*NVAR+1)) - CALL Hess_Vec ( HESS, y(i*NVAR+1), K4(1), Hv ) - DO 250 j = 1,NVAR - K4(i*NVAR+j) = K4(i*NVAR+j) + beta1*K1(i*NVAR+j) - & + beta2*K2(i*NVAR+j) + beta3*K3(i*NVAR+j) - & + Hv(j) - 250 CONTINUE - IF (.NOT. Autonomous) THEN - DO 260 j=1,NVAR - K4(i*NVAR+j) = K4(i*NVAR+j) + beta4*DFDT(i*NVAR+j) - 260 CONTINUE - END IF -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - DO 265 j = 1,NVAR - K4(i*NVAR+j) = K4(i*NVAR+j) + DFDP((i-1)*NVAR+j) - & + DJDP((i-1)*NVAR+j) - 265 CONTINUE - END IF - CALL KppSolve (AJAC, K4(i*NVAR+1)) - 270 CONTINUE - - -C ---- The Solution --- - DO 280 j = 1,NVAR*(NSENSIT+1) -C ynew(j) = y(j) + b1*K1(j) + b2*K2(j) + b3*K3(j) + b4*K4(j) - ynew(j) = y(j) + 2*K1(j) + K3(j) + K4(j) - 280 CONTINUE - - -C ====== Error estimation -- can be extended to control sensitivities too ======== - - ERR = 0.d0 - DO 290 i=1,NVAR - w = AbsTol(i) + RelTol(i)*DMAX1(DABS(ynew(i)),DABS(y(i))) -C e = d1*K1(i) + d2*K2(i) + d3*K3(i) + d4*K4(i) - e = K4(i) - ERR = ERR + ( e/w )**2 - 290 CONTINUE - ERR = DMAX1( uround, DSQRT( ERR/NVAR ) ) - -C ======= Choose the stepsize =============================== - - elo = 3.0D0 ! estimator local order - factor = DMAX1(2.0D-1,DMIN1(6.0D0,ERR**(1.0D0/elo)/.9D0)) - Hnew = DMIN1(Hmax,DMAX1(Hmin, H/factor)) - -C ======= Rejected/Accepted Step ============================ - - IF ( (ERR.gt.1).and.(H.gt.Hmin) ) THEN - IsReject = .true. - H = DMIN1(H/10,Hnew) - Nreject = Nreject+1 - ELSE - DO 300 i=1,NVAR*(NSENSIT+1) - y(i) = ynew(i) - 300 CONTINUE - T = Tplus - IF (.NOT.IsReject) THEN - H = Hnew ! Do not increase stepsize if previos step was rejected - END IF - IsReject = .false. - Naccept = Naccept+1 - END IF - -C ======= End of the time loop =============================== - IF ( T .lt. Tnext ) GO TO 10 - - - -C ======= Output Information ================================= - Info(2) = Nfcn - Info(3) = Njac - Info(4) = Naccept - Info(5) = Nreject - Hstart = H - - RETURN - END - - - - SUBROUTINE FUNC_CHEM(N, T, Y, P) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INTEGER N - KPP_REAL T, Told - KPP_REAL Y(NVAR), P(NVAR) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, P ) - TIME = Told - RETURN - END - - - SUBROUTINE DFUNDPAR(N, NSENSIT, T, Y, P) -C --- Computes the partial derivatives of FUNC_CHEM w.r.t. parameters - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' -C --- NCOEFF, JCOEFF useful for derivatives w.r.t. rate coefficients - INTEGER N - INTEGER NCOEFF, JCOEFF(NREACT) - COMMON /DDMRCOEFF/ NCOEFF, JCOEFF - - KPP_REAL T, Told - KPP_REAL Y(NVAR), P(NVAR*NSENSIT) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() -C - IF (DDMTYPE .EQ. 0) THEN -C --- Note: the values below are for sensitivities w.r.t. initial values; -C --- they may have to be changed for other applications - DO j=1,NSENSIT - DO i=1,NVAR - P(i+NVAR*(j-1)) = 0.0D0 - END DO - END DO - ELSE -C --- Example: the call below is for sensitivities w.r.t. rate coefficients; -C --- JCOEFF(1:NSENSIT) are the indices of the NSENSIT rate coefficients -C --- w.r.t. which one differentiates - CALL dFun_dRcoeff( Y, FIX, NCOEFF, JCOEFF, P ) - END IF - TIME = Told - RETURN - END - - SUBROUTINE JAC_CHEM(N, T, Y, J) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INTEGER N - KPP_REAL Told, T - KPP_REAL Y(NVAR), J(LU_NONZERO) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Jac_SP( Y, FIX, RCONST, J ) - TIME = Told - RETURN - END - - - SUBROUTINE DJACDPAR(N, NSENSIT, T, Y, U, P) -C --- Computes the partial derivatives of JAC w.r.t. parameters times user vector U - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' -C --- NCOEFF, JCOEFF useful for derivatives w.r.t. rate coefficients - INTEGER NCOEFF, JCOEFF(NREACT) - COMMON /DDMRCOEFF/ NCOEFF, JCOEFF - - INTEGER N - KPP_REAL T, Told - KPP_REAL Y(NVAR), U(NVAR) - KPP_REAL P(NVAR*NSENSIT) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() -C - IF (DDMTYPE .EQ. 0) THEN -C --- Note: the values below are for sensitivities w.r.t. initial values; -C --- they may have to be changed for other applications - DO j=1,NSENSIT - DO i=1,NVAR - P(i+NVAR*(j-1)) = 0.0D0 - END DO - END DO - ELSE -C --- Example: the call below is for sensitivities w.r.t. rate coefficients; -C --- JCOEFF(1:NSENSIT) are the indices of the NSENSIT rate coefficients -C --- w.r.t. which one differentiates - CALL dJac_dRcoeff( Y, FIX, U, NCOEFF, JCOEFF, P ) - END IF - TIME = Told - RETURN - END - - - SUBROUTINE HESS_CHEM(N, T, Y, HESS) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INTEGER N - KPP_REAL Told, T - KPP_REAL Y(NVAR), HESS(NHESS) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Hessian( Y, FIX, RCONST, HESS ) - TIME = Told - RETURN - END - - - - - - diff --git a/int.modified_WCOPY/oldies/ros1.def b/int.modified_WCOPY/oldies/ros1.def deleted file mode 100644 index 63de92d4c1e323c8b3ecedc84a58b3263c514e0e..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/ros1.def +++ /dev/null @@ -1,50 +0,0 @@ - -#FUNCTION AGGREGATE -#JACOBIAN SPARSE_LU_ROW - -#DOUBLE ON -#INTFILE ros1 - -#INLINE F77_DECL_INT - INTEGER Autonomous - COMMON /INTGDATA/ Autonomous - REAL*8 STEPSTART - COMMON /GDATA/ STEPSTART -#ENDINLINE - -#INLINE F77_INIT_INT - STEPMIN=30.0 - STEPMAX=30.0 - Autonomous = 0 - STEPSTART=STEPMIN -#ENDINLINE - - -#INLINE F90_DECL_INT - INTEGER :: Autonomous - DOUBLE PRECISION :: STEPSTART -#ENDINLINE - -#INLINE F90_INIT_INT - STEPMIN=30.0 - STEPMAX=30.0 - Autonomous = 0 - STEPSTART=STEPMIN -#ENDINLINE - -#INLINE C_DECL_INT - extern int Autonomous; - extern double STEPSTART; -#ENDINLINE - -#INLINE C_DATA_INT -int Autonomous; -double STEPSTART; -#ENDINLINE - -#INLINE C_INIT_INT - STEPMIN = 30.0; - STEPMAX = 30.0; - Autonomous = 0; - STEPSTART = STEPMIN; -#ENDINLINE diff --git a/int.modified_WCOPY/oldies/ros1.f b/int.modified_WCOPY/oldies/ros1.f deleted file mode 100644 index 795c07bc17b7e88ac3588e1a9d6dc3dc8d59f531..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/ros1.f +++ /dev/null @@ -1,166 +0,0 @@ - SUBROUTINE INTEGRATE( TIN, TOUT ) - - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - -C TIN - Start Time - KPP_REAL TIN -C TOUT - End Time - KPP_REAL TOUT - - INTEGER INFO(5) - - EXTERNAL FUNC_CHEM, JAC_CHEM - - INFO(1) = Autonomous - - CALL ROS1(NVAR,TIN,TOUT,STEPMIN,VAR, - + Info,FUNC_CHEM,JAC_CHEM) - - - RETURN - END - - - - - SUBROUTINE ROS1(N,T,Tnext,Hstart, - + y,Info,FUNC_CHEM,JAC_CHEM) - - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_sparse.h' -C -C Linearly Implicit Euler -C A method of theoretical interest but of no practical value -C -C INPUT ARGUMENTS: -C y = Vector of (NVAR) concentrations, contains the -C initial values on input -C [T, Tnext] = the integration interval -C Hmin, Hmax = lower and upper bounds for the selected step-size. -C Note that for Step = Hmin the current computed -C solution is unconditionally accepted by the error -C control mechanism. -C AbsTol, RelTol = (NVAR) dimensional vectors of -C componentwise absolute and relative tolerances. -C FUNC_CHEM = name of routine of derivatives. KPP syntax. -C See the header below. -C JAC_CHEM = name of routine that computes the Jacobian, in -C sparse format. KPP syntax. See the header below. -C Info(1) = 1 for Autonomous system -C = 0 for nonAutonomous system -C -C OUTPUT ARGUMENTS: -C y = the values of concentrations at Tend. -C T = equals TENDon output. -C Info(2) = # of FUNC_CHEM CALLs. -C Info(3) = # of JAC_CHEM CALLs. -C Info(4) = # of accepted steps. -C Info(5) = # of rejected steps. -C Hstart = The last accepted stepsize -C -C Adrian Sandu, December 2001 -C - KPP_REAL Fv(NVAR) - KPP_REAL JAC(LU_NONZERO) - KPP_REAL H, Hstart - KPP_REAL y(NVAR) - KPP_REAL T, Tnext, Tplus - KPP_REAL elo,ghinv,uround - - INTEGER n,nfcn,njac,Naccept,Nreject,i,j - INTEGER Info(5) - LOGICAL IsReject, Autonomous - EXTERNAL FUNC_CHEM, JAC_CHEM - - - H = Hstart - Tplus = T - Nfcn = 0 - Njac = 0 - -C === Starting the time loop === - 10 CONTINUE - - Tplus = T + H - IF ( Tplus .gt. Tnext ) THEN - H = Tnext - T - Tplus = Tnext - END IF - -C Initial Function and Jacobian values - CALL FUNC_CHEM(NVAR, T, y, Fv) - Nfcn = Nfcn+1 - CALL JAC_CHEM(NVAR, T, y, JAC) - Njac = Njac+1 - -C Form the Prediction matrix and compute its LU factorization - DO 40 j=1,NVAR - JAC(LU_DIAG(j)) = JAC(LU_DIAG(j)) - 1.0d0/H - 40 CONTINUE - CALL KppDecomp (JAC, ier) -C - IF (ier.ne.0) THEN - PRINT *,'ROS1: Singular factorization at T=',T,'; H=',H - STOP - END IF - -C ------------ STAGE 1------------------------- - CALL KppSolve (JAC, Fv) - -C ---- The Solution --- - DO 160 j = 1,NVAR - y(j) = y(j) - Fv(j) - 160 CONTINUE - T = T + H - -C ======= End of the time loop =============================== - IF ( T .lt. Tnext ) GO TO 10 - -C ======= Output Information ================================= - Info(2) = Nfcn - Info(3) = Njac - Info(4) = Njac - Info(5) = 0 - Hstart = H - - RETURN - END - - - SUBROUTINE FUNC_CHEM(N, T, Y, P) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INTEGER N - KPP_REAL T, Told - KPP_REAL Y(NVAR), P(NVAR) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, P ) - TIME = Told - RETURN - END - - - SUBROUTINE JAC_CHEM(N, T, Y, J) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INTEGER N - KPP_REAL Told, T - KPP_REAL Y(NVAR), J(LU_NONZERO) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Jac_SP( Y, FIX, RCONST, J ) - TIME = Told - RETURN - END - - - - - - diff --git a/int.modified_WCOPY/oldies/ros1_ddm.def b/int.modified_WCOPY/oldies/ros1_ddm.def deleted file mode 100644 index 25e7b87f7d979829812f132bf988a76e8ef08cd5..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/ros1_ddm.def +++ /dev/null @@ -1,50 +0,0 @@ - -#FUNCTION AGGREGATE -#JACOBIAN SPARSE_LU_ROW - -#DOUBLE ON -#INTFILE ros1_ddm - -#INLINE F77_DECL_INT - INTEGER Autonomous - COMMON /INTGDATA/ Autonomous - REAL*8 STEPSTART - COMMON /GDATA/ STEPSTART -#ENDINLINE - -#INLINE F77_INIT_INT - STEPMIN=30.0 - STEPMAX=30.0 - Autonomous = 0 - STEPSTART=STEPMIN -#ENDINLINE - -#INLINE F90_DECL_INT - INTEGER :: Autonomous - DOUBLE PRECISION :: STEPSTART -#ENDINLINE - -#INLINE F90_INIT_INT - STEPMIN=30.0 - STEPMAX=30.0 - Autonomous = 0 - STEPSTART=STEPMIN -#ENDINLINE - - -#INLINE C_DECL_INT - extern int Autonomous; - extern double STEPSTART; -#ENDINLINE - -#INLINE C_DATA_INT -int Autonomous; -double STEPSTART; -#ENDINLINE - -#INLINE C_INIT_INT - STEPMIN = 30.0; - STEPMAX = 30.0; - Autonomous = 0; - STEPSTART = STEPMIN; -#ENDINLINE diff --git a/int.modified_WCOPY/oldies/ros1_ddm.f b/int.modified_WCOPY/oldies/ros1_ddm.f deleted file mode 100644 index 0da726a01e73f55637dae3faa9ca22be10cb8803..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/ros1_ddm.f +++ /dev/null @@ -1,300 +0,0 @@ - SUBROUTINE INTEGRATE( NSENSIT, Y, TIN, TOUT ) - - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - - INTEGER NSENSIT -C TIN - Start Time - KPP_REAL TIN -C TOUT - End Time - KPP_REAL TOUT -C TOUT - End Time - KPP_REAL Y( NVAR*(NSENSIT+1) ) -C --- Note: Y contains: (1:NVAR) concentrations, followed by -C --- (1:NVAR) sensitivities w.r.t. first parameter, followed by -C --- etc., followed by -C --- (1:NVAR) sensitivities w.r.t. NSENSIT's parameter - - INTEGER INFO(5) - - EXTERNAL FUNC_CHEM, JAC_CHEM, HESS_CHEM - - INFO(1) = Autonomous - - CALL ROS1_DDM(NVAR,NSENSIT,TIN,TOUT,STEPMIN,Y, - + Info,FUNC_CHEM,JAC_CHEM,HESS_CHEM) - - - RETURN - END - - - - - SUBROUTINE ROS1_DDM(N,NSENSIT,T,Tnext,Hstart, - + y,Info,FUNC_CHEM,JAC_CHEM,HESS_CHEM) - IMPLICIT NONE - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_sparse.h' - INCLUDE 'KPP_ROOT_global.h' -C -C Linearly Implicit Euler with direct-decoupled calculation of sensitivities -C A method of theoretical interest but of no practical value -C -C The global variable DDMTYPE distinguishes between: -C DDMTYPE = 0 : sensitivities w.r.t. initial values -C DDMTYPE = 1 : sensitivities w.r.t. parameters -C -C INPUT ARGUMENTS: -C y = Vector of: (1:NVAR) concentrations, followed by -C (1:NVAR) sensitivities w.r.t. first parameter, followed by -C etc., followed by -C (1:NVAR) sensitivities w.r.t. NSENSIT's parameter -C (y contains initial values at input, final values at output) -C [T, Tnext] = the integration interval -C Hmin, Hmax = lower and upper bounds for the selected step-size. -C Note that for Step = Hmin the current computed -C solution is unconditionally accepted by the error -C control mechanism. -C AbsTol, RelTol = (NVAR) dimensional vectors of -C componentwise absolute and relative tolerances. -C FUNC_CHEM = name of routine of derivatives. KPP syntax. -C See the header below. -C JAC_CHEM = name of routine that computes the Jacobian, in -C sparse format. KPP syntax. See the header below. -C Info(1) = 1 for Autonomous system -C = 0 for nonAutonomous system -C -C OUTPUT ARGUMENTS: -C y = the values of concentrations at Tend. -C T = equals TENDon output. -C Info(2) = # of FUNC_CHEM CALLs. -C Info(3) = # of JAC_CHEM CALLs. -C Info(4) = # of accepted steps. -C Info(5) = # of rejected steps. -C Hstart = The last accepted stepsize -C -C Adrian Sandu, December 2001 -C - INTEGER NSENSIT - KPP_REAL Fv(NVAR*(NSENSIT+1)), Hv(NVAR) - KPP_REAL DFDP(NVAR*NSENSIT) - KPP_REAL JAC(LU_NONZERO), AJAC(LU_NONZERO) - KPP_REAL HESS(NHESS) - KPP_REAL DJDP(NVAR*NSENSIT) - KPP_REAL H, Hstart - KPP_REAL y(NVAR*(NSENSIT+1)) - KPP_REAL T, Tnext, Tplus - KPP_REAL elo,ghinv,uround - - INTEGER n,nfcn,njac,Naccept,Nreject,i,j,ier - INTEGER Info(5) - LOGICAL IsReject, Autonomous - EXTERNAL FUNC_CHEM, JAC_CHEM, HESS_CHEM - - - H = Hstart - Tplus = T - Nfcn = 0 - Njac = 0 - -C === Starting the time loop === - 10 CONTINUE - - Tplus = T + H - IF ( Tplus .gt. Tnext ) THEN - H = Tnext - T - Tplus = Tnext - END IF - -C Initial Function and Jacobian values - CALL FUNC_CHEM(NVAR, T, y, Fv) - Nfcn = Nfcn+1 - CALL JAC_CHEM(NVAR, T, y, JAC) - Njac = Njac+1 - CALL HESS_CHEM( NVAR, T, y, HESS ) - IF (DDMTYPE .EQ. 1) THEN - CALL DFUNDPAR(NVAR, NSENSIT, T, y, DFDP) - END IF - -C Form the Prediction matrix and compute its LU factorization - DO 40 j=1,LU_NONZERO - AJAC(j) = -JAC(j) - 40 CONTINUE - DO 50 j=1,NVAR - AJAC(LU_DIAG(j)) = AJAC(LU_DIAG(j)) + 1.0d0/H - 50 CONTINUE - CALL KppDecomp (AJAC, ier) -C - IF (ier.ne.0) THEN - PRINT *,'ROS1: Singular factorization at T=',T,'; H=',H - STOP - END IF - -C ------------ STAGE 1------------------------- - CALL KppSolve (AJAC, Fv) -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - CALL DJACDPAR(NVAR, NSENSIT, T, y, Fv(1), DJDP) - END IF -C --- End of derivative w.r.t. parameters - - DO 100 i=1,NSENSIT - CALL Jac_SP_Vec (JAC, y(i*NVAR+1), Fv(i*NVAR+1)) - CALL Hess_Vec ( HESS, y(i*NVAR+1), Fv(1), Hv ) - IF (DDMTYPE .EQ. 0) THEN - DO 80 j=1,NVAR - Fv(i*NVAR+j) = Fv(i*NVAR+j) + Hv(j) - 80 CONTINUE - ELSE - DO 90 j=1,NVAR - Fv(i*NVAR+j) = Fv(i*NVAR+j) + Hv(j) - & + DFDP(i*NVAR+j)+ DJDP((i-1)*NVAR+j) - 90 CONTINUE - END IF - CALL KppSolve (AJAC, Fv(i*NVAR+1)) - 100 CONTINUE - -C ---- The Solution --- - DO 160 j = 1,NVAR*(NSENSIT+1) - y(j) = y(j) + Fv(j) - 160 CONTINUE - T = T + H - -C ======= End of the time loop =============================== - IF ( T .lt. Tnext ) THEN - GO TO 10 - END IF - -C ======= Output Information ================================= - Info(2) = Nfcn - Info(3) = Njac - Info(4) = Naccept - Info(5) = Nreject - Hstart = H - - RETURN - END - - - - SUBROUTINE FUNC_CHEM(N, T, Y, P) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INTEGER N - KPP_REAL T, Told - KPP_REAL Y(NVAR), P(NVAR) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, P ) - TIME = Told - RETURN - END - - - SUBROUTINE DFUNDPAR(N, NSENSIT, T, Y, P) -C --- Computes the partial derivatives of FUNC_CHEM w.r.t. parameters - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' -C --- NCOEFF, JCOEFF useful for derivatives w.r.t. rate coefficients - INTEGER NCOEFF, JCOEFF(NREACT) - COMMON /DDMRCOEFF/ NCOEFF, JCOEFF - - INTEGER N - KPP_REAL T, Told - KPP_REAL Y(NVAR), P(NVAR*NSENSIT) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() -C - IF (DDMTYPE .EQ. 0) THEN -C --- Note: the values below are for sensitivities w.r.t. initial values; -C --- they may have to be changed for other applications - DO j=1,NSENSIT - DO i=1,NVAR - P(i+NVAR*(j-1)) = 0.0D0 - END DO - END DO - ELSE -C --- Example: the call below is for sensitivities w.r.t. rate coefficients; -C --- JCOEFF(1:NSENSIT) are the indices of the NSENSIT rate coefficients -C --- w.r.t. which one differentiates - CALL dFun_dRcoeff( Y, FIX, NCOEFF, JCOEFF, P ) - END IF - TIME = Told - RETURN - END - - SUBROUTINE JAC_CHEM(N, T, Y, J) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INTEGER N - KPP_REAL Told, T - KPP_REAL Y(NVAR), J(LU_NONZERO) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Jac_SP( Y, FIX, RCONST, J ) - TIME = Told - RETURN - END - - - SUBROUTINE DJACDPAR(N, NSENSIT, T, Y, U, P) -C --- Computes the partial derivatives of JAC w.r.t. parameters times user vector U - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' -C --- NCOEFF, JCOEFF useful for derivatives w.r.t. rate coefficients - INTEGER NCOEFF, JCOEFF(NREACT) - COMMON /DDMRCOEFF/ NCOEFF, JCOEFF - - INTEGER N - KPP_REAL T, Told - KPP_REAL Y(NVAR), U(NVAR) - KPP_REAL P(NVAR*NSENSIT) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() -C - IF (DDMTYPE .EQ. 0) THEN -C --- Note: the values below are for sensitivities w.r.t. initial values; -C --- they may have to be changed for other applications - DO j=1,NSENSIT - DO i=1,NVAR - P(i+NVAR*(j-1)) = 0.0D0 - END DO - END DO - ELSE -C --- Example: the call below is for sensitivities w.r.t. rate coefficients; -C --- JCOEFF(1:NSENSIT) are the indices of the NSENSIT rate coefficients -C --- w.r.t. which one differentiates - CALL dJac_dRcoeff( Y, FIX, U, NCOEFF, JCOEFF, P ) - END IF - TIME = Told - RETURN - END - - - SUBROUTINE HESS_CHEM(N, T, Y, HESS) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INTEGER N - KPP_REAL Told, T - KPP_REAL Y(NVAR), HESS(NHESS) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Hessian( Y, FIX, RCONST, HESS ) - TIME = Told - RETURN - END - - - - diff --git a/int.modified_WCOPY/oldies/ros2.c b/int.modified_WCOPY/oldies/ros2.c deleted file mode 100644 index 88cc5116a33e0d9f63db506c040dc75c549290e4..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/ros2.c +++ /dev/null @@ -1,311 +0,0 @@ - - #define MAX(a,b) ((a) >= (b)) ?(a):(b) - #define MIN(b,c) ((b) < (c)) ?(b):(c) - #define abs(x) ((x) >= 0 ) ?(x):(-x) - #define dabs(y) (double)abs(y) - #define DSQRT(d) (double)pow(d,0.5) - #define signum(x)((x) >= 0 ) ?(1):(-1) - - - - void (*forfun)(int,KPP_REAL,KPP_REAL [],KPP_REAL []); - void (*forjac)(int,KPP_REAL,KPP_REAL [],KPP_REAL []); - - - - -void FUNC_CHEM(int N,KPP_REAL T,KPP_REAL Y[NVAR],KPP_REAL P[NVAR]) - { - KPP_REAL Told; - Told = TIME; - TIME = T; - Update_SUN(); - Update_RCONST(); - Fun( Y, FIX, RCONST, P ); - TIME = Told; - } - -void JAC_CHEM(int N,KPP_REAL T,KPP_REAL Y[NVAR],KPP_REAL J[LU_NONZERO]) - { - KPP_REAL Told; - Told = TIME; - TIME = T; - Update_SUN(); - Update_RCONST(); - Jac_SP( Y, FIX, RCONST, J ); - TIME = Told; - } - - - - - - INTEGRATE(KPP_REAL TIN,KPP_REAL TOUT ) - { - - /* TIN - Start Time */ - /* TOUT - End Time */ - - - int INFO[5]; - forfun = &FUNC_CHEM; - forjac = &JAC_CHEM; - INFO[0] = Autonomous; - ROS2(NVAR,TIN,TOUT,STEPMIN,STEPMAX,STEPMIN,VAR,ATOL - ,RTOL,INFO,forfun,forjac); - - } - - -int ROS2(int N,KPP_REAL T, KPP_REAL Tnext,KPP_REAL Hmin,KPP_REAL Hmax, - KPP_REAL Hstart,KPP_REAL y[NVAR],KPP_REAL AbsTol[NVAR],KPP_REAL RelTol[NVAR], - int INFO[5],void (*forfun)(int,KPP_REAL,KPP_REAL [],KPP_REAL []), - void (*forjac)(int,KPP_REAL,KPP_REAL [],KPP_REAL []) ) - { - - -/* - All the arguments aggree with the KPP syntax. - - INPUT ARGUMENTS: - y = Vector of (NVAR) concentrations, contains the - initial values on input - [T, Tnext] = the integration interval - Hmin, Hmax = lower and upper bounds for the selected step-size. - Note that for Step = Hmin the current computed - solution is unconditionally accepted by the error - control mechanism. - AbsTol, RelTol = (NVAR) dimensional vectors of - componentwise absolute and relative tolerances. - FUNC_CHEM = name of routine of derivatives. KPP syntax. - See the header below. - JAC_CHEM = name of routine that computes the Jacobian, in - sparse format. KPP syntax. See the header below. - Info(1) = 1 for autonomous system - = 0 for nonautonomous system - - OUTPUT ARGUMENTS: - y = the values of concentrations at Tend. - T = equals Tend on output. - Info(2) = # of FUNC_CHEM calls. - Info(3) = # of JAC_CHEM calls. - Info(4) = # of accepted steps. - Info(5) = # of rejected steps. -*/ - - KPP_REAL K1[NVAR], K2[NVAR], K3[NVAR], K4[NVAR]; - KPP_REAL F1[NVAR], JAC[LU_NONZERO]; - KPP_REAL ghinv , uround , dround , c43 , tau; - KPP_REAL ynew[NVAR]; - KPP_REAL H, Hold, Tplus; - KPP_REAL ERR, factor, facmax; - int n,nfcn,njac,Naccept,Nreject,i,j,ier; - char IsReject,Autonomous; - - KPP_REAL gamma, m1, m2, alpha, beta, delta, theta, g[NVAR], x[NVAR]; - -/* Initialization of counters, etc. */ - Autonomous = (INFO[0] == 1); - uround = (double)(1e-15); - - dround = DSQRT(uround); - c43 = (double)(- 8.e0/3.e0); - H = MAX( (double)1.e-8, Hmin ); - Tplus = T; - IsReject = 0; - Naccept = 0; - Nreject = 0; - nfcn = 0; - njac = 0; - gamma = (double)(1.e0 + 1.e0/DSQRT(2.e0)); - -/* === Starting the time loop === */ - while(T < Tnext) - { - ten : - Tplus = T + H; - - if ( Tplus > Tnext ) - { - H = Tnext - T; - Tplus = Tnext; - } - - (*forjac)(NVAR, T, y,JAC ); - - njac = njac+1; - ghinv = (double)(-1.0e0/(gamma*H)); - - - - for(j=0;j Hmin ) - { - H = (double)(5.0e-1*H); - goto ten; - } - else - printf("IER <> 0 , H = %d", H); - - }/* main ier if ends*/ - - - (*forfun)(NVAR , T, y, F1 ) ; - - - - - - -/* ====== NONAUTONOMOUS CASE =============== */ - if(Autonomous == 0) - { - tau =( dround*MAX ((double)1.0e-6, dabs(T)) *signum(T) ); - (*forfun)(NVAR, T+tau, y, K2); - nfcn=nfcn+1; - - for(j = 0;j1) && (Hold>Hmin) ) - { - IsReject = 1; - Nreject = Nreject + 1; - } - else - { - IsReject = 0; - for(i=0;i 0, H=',H - STOP - END IF - END IF - - CALL FUNC_CHEM( T, Y, F1 ) - -C ====== NONAUTONOMOUS CASE =============== - IF (.NOT. Autonomous) THEN - tau = DSIGN(DROUND*DMAX1( 1.0d-6, DABS(T) ), T) - CALL FUNC_CHEM( T+tau, Y, K2) - nfcn=nfcn+1 - DO 30 j = 1,NVAR - DFDT(j) = ( K2(j)-F1(j) )/tau - 30 CONTINUE - END IF ! .NOT.Autonomous - -C ----- STAGE 1 ----- - delta = gamma*H - DO 40 j = 1,NVAR - K1(j) = F1(j) - 40 CONTINUE - IF (.NOT.Autonomous) THEN - DO 45 j = 1,NVAR - K1(j) = K1(j) + delta*DFDT(j) - 45 CONTINUE - END IF ! .NOT.Autonomous - CALL KppSolve (JAC, K1) - -C ----- STAGE 2 ----- - DO 50 j = 1,NVAR - Ynew(j) = Y(j) + a21*K1(j) - 50 CONTINUE - CALL FUNC_CHEM( T+H, Ynew, F1) - nfcn=nfcn+1 - beta = -c21/H - DO 55 j = 1,NVAR - K2(j) = F1(j) + beta*K1(j) - 55 CONTINUE - IF (.NOT.Autonomous) THEN - delta = -gamma*H - DO 56 j = 1,NVAR - K2(j) = K2(j) + delta*DFDT(j) - 56 CONTINUE - END IF ! .NOT.Autonomous - CALL KppSolve (JAC, K2) - -C ----- STAGE 3 ----- - IF (Embed3) THEN - beta1 = -c31/H - beta2 = -c32/H - delta = gamma3*H - DO 57 j = 1,NVAR - K3(j) = F1(j) + beta1*K1(j) + beta2*K2(j) - 57 CONTINUE - IF (.NOT.Autonomous) THEN - DO 58 j = 1,NVAR - K3(j) = K3(j) + delta*DFDT(j) - 58 CONTINUE - END IF ! .NOT.Autonomous - CALL KppSolve (JAC, K3) - END IF ! Embed3 - - -C ---- The Solution --- - DO 120 j = 1,NVAR - Ynew(j) = Y(j) + m1*K1(j) + m2*K2(j) - 120 CONTINUE - - -C ====== Error estimation ======== - - ERR=0.d0 - DO 130 i=1,NVAR - w = AbsTol(i) + RelTol(i)*DMAX1(DABS(Y(i)),DABS(Ynew(i))) - IF ( Embed3 ) THEN - e = d1*K1(i) + d2*K2(i) + d3*K3(i) - ELSE - e = 1.d0/(2.d0*gamma)*(K1(i)+K2(i)) - END IF ! Embed3 - ERR = ERR + ( e/w )**2 - 130 CONTINUE - ERR = DMAX1( uround, DSQRT( ERR/NVAR ) ) - -C ======= Choose the stepsize =============================== - - IF ( Embed3 ) THEN - elo = 3.0D0 ! estimator local order - ELSE - elo = 2.0D0 - END IF - factor = DMAX1(2.0D-1,DMIN1(6.0D0,ERR**(1.0D0/elo)/.9D0)) - Hnew = DMIN1(Hmax,DMAX1(Hmin, H/factor)) - -C ======= Rejected/Accepted Step ============================ - - IF ( (ERR.gt.1).and.(H.gt.Hmin) ) THEN - IsReject = .true. - H = DMIN1(H/10,Hnew) - Nreject = Nreject+1 - ELSE - DO 140 i=1,NVAR - Y(i) = Ynew(i) - 140 CONTINUE - T = Tplus - IF (.NOT.IsReject) THEN - H = Hnew ! Do not increase stepsize IF previous step was rejected - END IF - IsReject = .false. - Naccept = Naccept+1 - END IF - -C ======= END of the time loop =============================== - END DO - - -C ======= Output Information ================================= - Info(2) = Nfcn - Info(3) = Njac - Info(4) = Naccept - Info(5) = Nreject - - RETURN - END - - - - SUBROUTINE FUNC_CHEM( T, Y, P ) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - KPP_REAL T, Told - KPP_REAL Y(NVAR), P(NVAR) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, P ) - TIME = Told - RETURN - END - - - SUBROUTINE JAC_CHEM( T, Y, J ) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - KPP_REAL Told, T - KPP_REAL Y(NVAR), J(LU_NONZERO) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Jac_SP( Y, FIX, RCONST, J ) - TIME = Told - RETURN - END - - - - - - diff --git a/int.modified_WCOPY/oldies/ros2.f90 b/int.modified_WCOPY/oldies/ros2.f90 deleted file mode 100644 index e6b35f12bc7e9d3b1830680948720c01aa341099..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/ros2.f90 +++ /dev/null @@ -1,294 +0,0 @@ - SUBROUTINE INTEGRATE( TIN, TOUT ) - - USE KPP_ROOT_global - -! TIN - Start Time - KPP_REAL TIN -! TOUT - End Time - KPP_REAL TOUT - - INTEGER INFO(5) - - EXTERNAL FUNC_CHEM, JAC_CHEM - - INFO(1) = Autonomous - - call ROS2(NVAR,TIN,TOUT,STEPMIN,STEPMAX, & - STEPMIN,VAR,ATOL,RTOL, & - Info,FUNC_CHEM,JAC_CHEM) - - - END SUBROUTINE INTEGRATE - - - - - SUBROUTINE ROS2(N,T,Tnext,Hmin,Hmax,Hstart, & - y,AbsTol,RelTol, & - Info,FUNC_CHEM,JAC_CHEM) - - USE KPP_ROOT_params - USE KPP_ROOT_Jacobian_sparsity - IMPLICIT NONE - -! INPUT ARGUMENTS: -! y = Vector of (NVAR) concentrations, contains the -! initial values on input -! [T, Tnext] = the integration interval -! Hmin, Hmax = lower and upper bounds for the selected step-size. -! Note that for Step = Hmin the current computed -! solution is unconditionally accepted by the error -! control mechanism. -! AbsTol, RelTol = (NVAR) dimensional vectors of -! componentwise absolute and relative tolerances. -! FUNC_CHEM = name of routine of derivatives. KPP syntax. -! See the header below. -! JAC_CHEM = name of routine that computes the Jacobian, in -! sparse format. KPP syntax. See the header below. -! Info(1) = 1 for autonomous system -! = 0 for nonautonomous system -! Info(2) = 1 for third order embedded formula -! = 0 for first order embedded formula -! -! Note: Stage 3 used to build strongly A-stable order 3 formula for error control -! Embed3 = (Info(2).EQ.1) -! if Embed3 = .true. then the third order embedded formula is used -! .false. then a first order embedded formula is used -! -! -! OUTPUT ARGUMENTS: -! y = the values of concentrations at Tend. -! T = equals Tend on output. -! Info(2) = # of FUNC_CHEM calls. -! Info(3) = # of JAC_CHEM calls. -! Info(4) = # of accepted steps. -! Info(5) = # of rejected steps. - - KPP_REAL K1(NVAR), K2(NVAR), K3(NVAR) - KPP_REAL F1(NVAR), JAC(LU_NONZERO) - KPP_REAL DFDT(NVAR) - KPP_REAL Hmin,Hmax,Hnew,Hstart,ghinv,uround - KPP_REAL y(NVAR), ynew(NVAR) - KPP_REAL AbsTol(NVAR), RelTol(NVAR) - KPP_REAL T, Tnext, H, Hold, Tplus - KPP_REAL ERR, factor, facmax - KPP_REAL tau, beta, elo, dround, a21, c31, c32 - KPP_REAL gamma3, d1, d2, d3, gam - INTEGER n,nfcn,njac,Naccept,Nreject,i,j,ier - INTEGER Info(5) - LOGICAL IsReject, Autonomous, Embed3 - EXTERNAL FUNC_CHEM, JAC_CHEM - - KPP_REAL gamma, m1, m2, alpha, beta1, beta2, delta, w, e - -! Initialization of counters, etc. - Autonomous = Info(1) .EQ. 1 - Embed3 = Info(2) .EQ. 1 - uround = 1.d-15 - dround = dsqrt(uround) - H = DMAX1(1.d-8, Hmin) - Tplus = T - IsReject = .false. - Naccept = 0 - Nreject = 0 - Nfcn = 0 - Njac = 0 - -! Method Parameters - gamma = 1.d0 + 1.d0/sqrt(2.d0) - a21 = - 1.d0/gamma - m1 = -3.d0/(2.d0*gamma) - m2 = -1.d0/(2.d0*gamma) - c31 = -1.0D0/gamma**2*(1.0D0-7.0D0*gamma+9.0D0*gamma**2) & - /(-1.0D0+2.0D0*gamma) - c32 = -1.0D0/gamma**2*(1.0D0-6.0D0*gamma+6.0D0*gamma**2) & - /(-1.0D0+2.0D0*gamma)/2 - gamma3 = 0.5D0 - 2*gamma - d1 = ((-9.0D0*gamma+8.0D0*gamma**2+2.0D0)/gamma**2/ & - (-1.0D0+2*gamma))/6.0D0 - d2 = ((-1.0D0+3.0D0*gamma)/gamma**2/(-1.0D0+2.0D0*gamma))/6.0D0 - d3 = -1.0D0/(3.0D0*gamma) - -! === Starting the time loop === - 10 CONTINUE - Tplus = T + H - if ( Tplus .gt. Tnext ) then - H = Tnext - T - Tplus = Tnext - end if - - call JAC_CHEM(NVAR, T, y, JAC) - - Njac = Njac+1 - ghinv = -1.0d0/(gamma*H) - DO j=1,NVAR - JAC(LU_DIAG(j)) = JAC(LU_DIAG(j)) + ghinv - END DO - CALL KppDecomp (JAC, ier) - - if (ier.ne.0) then - if ( H.gt.Hmin) then - H = 5.0d-1*H - go to 10 - else - print *,'IER <> 0, H=',H - stop - end if - end if - - call FUNC_CHEM(NVAR, T, y, F1) - -! ====== NONAUTONOMOUS CASE =============== - IF (.not. Autonomous) THEN - tau = dsign(dround*dmax1( 1.0d-6, dabs(T) ), T) - call FUNC_CHEM(NVAR, T+tau, y, K2) - nfcn=nfcn+1 - DO j = 1,NVAR - DFDT(j) = ( K2(j)-F1(j) )/tau - END DO - END IF ! .NOT.Autonomous - -! ----- STAGE 1 ----- - DO j = 1,NVAR - K1(j) = F1(j) - END DO - IF (.NOT.Autonomous) THEN - delta = gamma*H - DO j = 1,NVAR - K1(j) = K1(j) + delta*DFDT(j) - END DO - END IF ! .NOT.Autonomous - call KppSolve (JAC, K1) - -! ----- STAGE 2 ----- - DO j = 1,NVAR - ynew(j) = y(j) + a21*K1(j) - END DO - call FUNC_CHEM(NVAR, T+H, ynew, F1) - nfcn=nfcn+1 - beta = 2.d0/(gamma*H) - DO j = 1,NVAR - K2(j) = F1(j) + beta*K1(j) - END DO - IF (.NOT. Autonomous) THEN - delta = -gamma*H - DO j = 1,NVAR - K2(j) = K2(j) + delta*DFDT(j) - END DO - END IF ! .NOT.Autonomous - call KppSolve (JAC, K2) - -! ----- STAGE 3 ----- - IF (Embed3) THEN - beta1 = -c31/H - beta2 = -c32/H - delta = gamma3*H - DO j = 1,NVAR - K3(j) = F1(j) + beta1*K1(j) + beta2*K2(j) - END DO - IF (.NOT.Autonomous) THEN - DO j = 1,NVAR - K3(j) = K3(j) + delta*DFDT(j) - END DO - END IF ! .NOT.Autonomous - CALL KppSolve (JAC, K3) - END IF ! Embed3 - - - -! ---- The Solution --- - DO j = 1,NVAR - ynew(j) = y(j) + m1*K1(j) + m2*K2(j) - END DO - - -! ====== Error estimation ======== - - ERR=0.d0 - DO i=1,NVAR - w = AbsTol(i) + RelTol(i)*DMAX1(DABS(y(i)),DABS(ynew(i))) - IF ( Embed3 ) THEN - e = d1*K1(i) + d2*K2(i) + d3*K3(i) - ELSE - e = 1.d0/(2.d0*gamma)*(K1(i)+K2(i)) - END IF ! Embed3 - ERR = ERR + ( e/w )**2 - END DO - ERR = DMAX1( uround, DSQRT( ERR/NVAR ) ) - -! ======= Choose the stepsize =============================== - - IF ( Embed3 ) THEN - elo = 3.0D0 ! estimator local order - ELSE - elo = 2.0D0 - END IF - factor = DMAX1(2.0D-1,DMIN1(6.0D0,ERR**(1.0D0/elo)/.9D0)) - Hnew = DMIN1(Hmax,DMAX1(Hmin, H/factor)) - -! ======= Rejected/Accepted Step ============================ - - IF ( (ERR.gt.1).and.(H.gt.Hmin) ) THEN - IsReject = .true. - H = DMIN1(H/10,Hnew) - Nreject = Nreject+1 - ELSE - DO i=1,NVAR - y(i) = ynew(i) - END DO - T = Tplus - IF (.NOT. IsReject) THEN - H = Hnew ! Do not increase stepsize if previous step was rejected - END IF - IsReject = .false. - Naccept = Naccept+1 - END IF - - -! ======= End of the time loop =============================== - IF ( T .lt. Tnext ) GO TO 10 - - - -! ======= Output Information ================================= - Info(2) = Nfcn - Info(3) = Njac - Info(4) = Naccept - Info(5) = Nreject - - END SUBROUTINE Ros2 - - - - SUBROUTINE FUNC_CHEM(N, T, Y, P) - USE KPP_ROOT_global - INTEGER N - KPP_REAL T, Told - KPP_REAL Y(NVAR), P(NVAR) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, P ) - TIME = Told - END SUBROUTINE FUNC_CHEM - - - SUBROUTINE JAC_CHEM(N, T, Y, J) - USE KPP_ROOT_global - INTEGER N - KPP_REAL Told, T - KPP_REAL Y(NVAR), J(LU_NONZERO) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Jac_SP( Y, FIX, RCONST, J ) - TIME = Told - END SUBROUTINE JAC_CHEM - - - - - - diff --git a/int.modified_WCOPY/oldies/ros2_cts_adj.f b/int.modified_WCOPY/oldies/ros2_cts_adj.f deleted file mode 100644 index 353a0938825374d43e040f26e42493fef5266d4a..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/ros2_cts_adj.f +++ /dev/null @@ -1,312 +0,0 @@ - SUBROUTINE ros2_cts_adj(N,T,Tnext,Hmin,Hmax,Hstart, - + y,Lambda,Fix,Rconst,AbsTol,RelTol, - + Info) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - -C INPUT ARGUMENTS: -C y = Vector of (NVAR) concentrations, contains the -C initial values on input -C [T, Tnext] = the integration interval -C Hmin, Hmax = lower and upper bounds for the selected step-size. -C Note that for Step = Hmin the current computed -C solution is unconditionally accepted by the error -C control mechanism. -C AbsTol, RelTol = (NVAR) dimensional vectors of -C componentwise absolute and relative tolerances. -C FUN = name of routine of derivatives. KPP syntax. -C See the header below. -C JAC_SP = name of routine that computes the Jacobian, in -C sparse format. KPP syntax. See the header below. -C Info(1) = 1 for autonomous system -C = 0 for nonautonomous system -C Info(2) = 1 for third order embedded formula -C = 0 for first order embedded formula -C -C Note: Stage 3 used to build strongly A-stable order 3 formula for error control -C Embed3 = (Info(2).EQ.1) -C IF Embed3 = .true. THEN the third order embedded formula is used -C .false. THEN a first order embedded formula is used -C -C -C OUTPUT ARGUMENTS: -C y = the values of concentrations at TEND. -C T = equals TEND on output. -C Info(2) = # of FUN CALLs. -C Info(3) = # of JAC_SP CALLs. -C Info(4) = # of accepted steps. -C Info(5) = # of rejected steps. - - INTEGER max_no_steps - PARAMETER (max_no_steps = 200) - KPP_REAL Trajectory(NVAR,max_no_steps) - KPP_REAL StepSize(max_no_steps) - - KPP_REAL K1(NVAR), K2(NVAR), K3(NVAR) - KPP_REAL F1(NVAR), JAC(LU_NONZERO) - KPP_REAL DFDT(NVAR)(NRAD) - KPP_REAL Fix(NFIX), Rconst(NREACT) - KPP_REAL Hmin,Hmax,Hstart,ghinv,uround - KPP_REAL y(NVAR), Ynew(NVAR) - KPP_REAL AbsTol(NVAR), RelTol(NVAR) - KPP_REAL T, Tnext, H, Hold, Tplus - KPP_REAL ERR, factor, facmax - KPP_REAL Lambda(NVAR), K11(NVAR), JAC1(LU_NONZERO) - INTEGER n,nfcn,njac,Naccept,Nreject,i,j - INTEGER Info(5) - LOGICAL IsReject, Autonomous, Embed3 - EXTERNAL FUN, JAC_SP - - KPP_REAL gamma, m1, m2, alpha, beta1, beta2, delta, w, e - KPP_REAL ginv -c Initialization of counters, etc. - Autonomous = Info(1) .EQ. 1 - Embed3 = Info(2) .EQ. 1 - uround = 1.d-15 - dround = dsqrt(uround) - H = DMAX1(Hstart,DMAX1(1.d-8, Hmin)) - Tplus = T - IsReject = .false. - Naccept = 0 - Nreject = 0 - Nfcn = 0 - Njac = 0 - -C Method Parameters - gamma = 1.d0 + 1.d0/sqrt(2.d0) - a21 = - 1.d0/gamma - m1 = -3.d0/(2.d0*gamma) - m2 = -1.d0/(2.d0*gamma) - c31 = -1.0D0/gamma**2*(1.0D0-7.0D0*gamma+9.0D0*gamma**2) - & /(-1.0D0+2.0D0*gamma) - c32 = -1.0D0/gamma**2*(1.0D0-6.0D0*gamma+6.0D0*gamma**2) - & /(-1.0D0+2.0D0*gamma)/2 - gamma3 = 0.5D0 - 2*gamma - d1 = ((-9.0D0*gamma+8.0D0*gamma**2+2.0D0)/gamma**2/ - & (-1.0D0+2*gamma))/6.0D0 - d2 = ((-1.0D0+3.0D0*gam)/gamma**2/ - & (-1.0D0+2.0D0*gamma))/6.0D0 - d3 = -1.0D0/(3.0D0*gamma) - - Trajectory(1:NVAR,1) = Ynew(1) - -C === Starting the time loop === - 10 CONTINUE - Tplus = T + H - IF ( Tplus .gt. Tnext ) THEN - H = Tnext - T - Tplus = Tnext - END IF - - CALL Jac_SP( Y, Fix, Rconst, JAC ) - - Njac = Njac+1 - ghinv = -1.0d0/(gamma*H) - DO 20 j=1,NVAR - JAC(LU_DIAG_V(j)) = JAC(LU_DIAG_V(j)) + ghinv - 20 CONTINUE - CALL KppDecomp (NVAR, JAC, ier) - - IF (ier.ne.0) THEN - IF ( H.gt.Hmin) THEN - H = 5.0d-1*H - GO TO 10 - else - PRINT *,'IER <> 0, H=',H - STOP - END IF - END IF - - CALL Fun( Y, Fix, Rconst, F1 ) - -C ====== NONAUTONOMOUS CASE =============== - IF (.not. Autonomous) THEN - tau = dsign(dround*dmax1( 1.0d-6, dabs(T) ), T) - CALL Fun( Y, Fix, Rconst, K2 ) - nfcn=nfcn+1 - DO 30 j = 1,NVAR - DFDT(j) = ( K2(j)-F1(j) )/tau - 30 CONTINUE - END IF ! .NOT.Autonomous - -C ----- STAGE 1 ----- - DO 40 j = 1,NVAR - K1(j) = F1(j) - 40 CONTINUE - IF (.NOT.Autonomous) THEN - delta = gamma*H - DO 45 j = 1,NVAR - K1(j) = K1(j) + delta*DFDT(j) - 45 CONTINUE - END IF ! .NOT.Autonomous - CALL KppSolve (JAC, K1) - -C ----- STAGE 2 ----- - DO 50 j = 1,NVAR - Ynew(j) = y(j) + a21*K1(j) - 50 CONTINUE - CALL Fun( Ynew, Fix, Rconst, F1 ) - nfcn=nfcn+1 - beta = 2.d0/(gamma*H) - delta = -gamma*H - DO 55 j = 1,NVAR - K2(j) = F1(j) + beta*K1(j) - 55 CONTINUE - IF (.NOT.Autonomous) THEN - DO 56 j = 1,NVAR - K2(j) = K2(j) + delta*DFDT(j) - 56 CONTINUE - END IF ! .NOT.Autonomous - CALL KppSolve (JAC, K2) - -C ----- STAGE 3 ----- - IF (Embed3) THEN - beta1 = -c31/H - beta2 = -c32/H - delta = gamma3*H - DO 57 j = 1,NVAR - K3(j) = F1(j) + beta1*K1(j) + beta2*K2(j) - 57 CONTINUE - IF (.NOT.Autonomous) THEN - DO 58 j = 1,NVAR - K3(j) = K3(j) + delta*DFDT(j) - 58 CONTINUE - END IF ! .NOT.Autonomous - CALL KppSolve (JAC, K3) - END IF ! Embed3 - - -C ---- The Solution --- - DO 120 j = 1,NVAR - Ynew(j) = y(j) + m1*K1(j) + m2*K2(j) - 120 CONTINUE - - -C ====== Error estimation ======== - - ERR=0.d0 - DO 130 i=1,NVAR - w = AbsTol(i) + RelTol(i)*DMAX1(DABS(y(i)),DABS(Ynew(i))) - IF ( Embed3 ) THEN - e = d1*K1(i) + d2*K2(i) + d3*K3(i) - ELSE - e = 1.d0/(2.d0*gamma)*(K1(i)+K2(i)) - END IF ! Embed3 - ERR = ERR + ( e/w )**2 - 130 CONTINUE - ERR = DMAX1( uround, DSQRT( ERR/NVAR ) ) - -C ======= Choose the stepsize =============================== - - IF ( Embed3 ) THEN - elo = 3.0D0 ! estimator local order - ELSE - elo = 2.0D0 - END IF - factor = DMAX1(2.0D-1,DMIN1(6.0D0,ERR**(1.0D0/elo)/.9D0)) - Hnew = DMIN1(Hmax,DMAX1(Hmin, H/factor)) - Hold = H - -C ======= Rejected/Accepted Step ============================ - - IF ( (ERR.gt.1).and.(H.gt.Hmin) ) THEN - IsReject = .true. - H = DMIN1(H/10,Hnew) - Nreject = Nreject+1 - ELSE - DO 140 i=1,NVAR - y(i) = Ynew(i) - 140 CONTINUE - T = Tplus - IF (.NOT.IsReject) THEN - H = Hnew ! Do not increase stepsize IF previous step was rejected - END IF - IsReject = .false. - Naccept = Naccept+1 - IF (Naccept+1>max_no_steps) THEN - PRINT*,'Error in Adjoint Ros2: more steps than allowed' - STOP - END IF - Trajectory(1:NVAR,Naccept+1) = Ynew(1:NVAR) - StepSize(Naccept) = Hold -! CALL TRAJISTORE(y,hold) - END IF -C ======= END of the time loop =============================== - IF ( T .lt. Tnext ) GO TO 10 - -C ======= Output Information ================================= - Info(2) = Nfcn - Info(3) = Njac - Info(4) = Naccept - Info(5) = Nreject - - ginv = 1.d0/gamma -C -- The backwards loop for the CONTINUOUS ADJOINT - DO istep = Naccept,1,-1 - - h = StepSize(istep) - y(1:NVAR) = Trajectory(1:NVAR,istep+1) - gHinv = -ginv/H - - CALL Jac_SP(Y, Fix, Rconst, JAC) - JAC1(1:LU_NONZERO)=JAC(1:LU_NONZERO) - DO j=1,NVAR - JAC(lu_diag_v(j)) = JAC(lu_diag_v(j)) + gHinv - END DO - CALL KppDecomp (NVAR,JAC,ier) -ccc equivalent to function evaluation in forward integration -ccc is J^T*Lambda in backward integration - CALL JacTR_SP_Vec ( JAC1, Lambda, F1) - -C ----- STAGE 1 (AUTONOMOUS) ----- - K11(1:NVAR) = F1(1:NVAR) - CALL KppSolveTR (JAC,K11,K1) -C ----- STAGE 2 (AUTONOMOUS) ----- - y(1:NVAR) = Trajectory(1:NVAR,istep) - CALL Jac_SP(Y, Fix, Rconst, JAC1) - Ynew(1:NVAR) = Lambda(1:NVAR) - ginv*K1(1:NVAR) - CALL JacTR_SP_Vec ( JAC1, Ynew, F1) - beta = -2.d0*ghinv - K11(1:NVAR) = F1(1:NVAR) + beta*K1(1:NVAR) - CALL KppSolveTR (JAC,K11,K2) -c ---- The solution - Lambda(1:NVAR) = Lambda(1:NVAR)+m1*K1(1:NVAR)+m2*K2(1:NVAR) - - END DO ! istep - - - RETURN - END - - - SUBROUTINE FUNC_CHEM(N, T, Y, P) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INTEGER N - KPP_REAL T, Told - KPP_REAL Y(NVAR), P(NVAR) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, P ) - TIME = Told - RETURN - END - - - SUBROUTINE JAC_CHEM(N, T, Y, J) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INTEGER N - KPP_REAL Told, T - KPP_REAL Y(NVAR), J(LU_NONZERO) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Jac_SP( Y, FIX, RCONST, J ) - TIME = Told - RETURN - END - diff --git a/int.modified_WCOPY/oldies/ros2_ddm.def b/int.modified_WCOPY/oldies/ros2_ddm.def deleted file mode 100644 index a4ec807955fa87e0429467f0e40ce67828bd7ab1..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/ros2_ddm.def +++ /dev/null @@ -1,50 +0,0 @@ - -#FUNCTION AGGREGATE -#JACOBIAN SPARSE_LU_ROW - -#DOUBLE ON -#INTFILE ros2_ddm -#HESSIAN ON - -#INLINE F77_DECL_INT - INTEGER Autonomous - COMMON /INTGDATA/ Autonomous - REAL*8 STEPSTART - COMMON /GDATA/ STEPSTART -#ENDINLINE - -#INLINE F77_INIT_INT - STEPMIN=1.0E-4 - STEPMAX=3600. - Autonomous = 0 - STEPSTART=STEPMIN -#ENDINLINE - -#INLINE F90_DECL_INT - INTEGER :: Autonomous - DOUBLE PRECISION :: STEPSTART -#ENDINLINE - -#INLINE F90_INIT_INT - STEPMIN=0.0001 - STEPMAX=3600. - Autonomous = 0 - STEPSTART=STEPMIN -#ENDINLINE - -#INLINE C_DECL_INT - extern int Autonomous; - extern double STEPSTART; -#ENDINLINE - -#INLINE C_DATA_INT - int Autonomous; - double STEPSTART; -#ENDINLINE - -#INLINE C_INIT_INT - STEPMIN = 0.0001; - STEPMAX = 3600.0; - Autonomous = 0; - STEPSTART = STEPMIN; -#ENDINLINE diff --git a/int.modified_WCOPY/oldies/ros2_ddm.f b/int.modified_WCOPY/oldies/ros2_ddm.f deleted file mode 100644 index 2997e1b220ee15d132e49064d17386eb31a6cf75..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/ros2_ddm.f +++ /dev/null @@ -1,480 +0,0 @@ - SUBROUTINE INTEGRATE( NSENSIT, Y, TIN, TOUT ) - - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - - INTEGER NSENSIT -C TIN - Start Time - KPP_REAL TIN -C TOUT - End Time - KPP_REAL TOUT -C Y - Concentrations and Sensitivities - KPP_REAL Y(NVAR*(NSENSIT+1)) -C --- Note: Y contains: (1:NVAR) concentrations, followed by -C --- (1:NVAR) sensitivities w.r.t. first parameter, followed by -C --- etc., followed by -C --- (1:NVAR) sensitivities w.r.t. NSENSIT's parameter - - INTEGER INFO(5) - - EXTERNAL FUNC_CHEM, JAC_CHEM - - INFO(1) = Autonomous - - CALL ROS2_DDM(NVAR,NSENSIT,TIN,TOUT,STEPMIN,STEPMAX, - + STEPMIN,Y,ATOL,RTOL, - + Info,FUNC_CHEM,JAC_CHEM) - - - RETURN - END - - - - - SUBROUTINE ROS2_DDM(N,NSENSIT,T,Tnext,Hmin,Hmax,Hstart, - + y,AbsTol,RelTol, - + Info,FUNC_CHEM,JAC_CHEM) - IMPLICIT NONE - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INCLUDE 'KPP_ROOT_sparse.h' -C -C Ros2 with direct-decoupled calculation of sensitivities -C -C The global variable DDMTYPE distinguishes between: -C DDMTYPE = 0 : sensitivities w.r.t. initial values -C DDMTYPE = 1 : sensitivities w.r.t. parameters -C -C INPUT ARGUMENTS: -C y = Vector of: (1:NVAR) concentrations, followed by -C (1:NVAR) sensitivities w.r.t. first parameter, followed by -C etc., followed by -C (1:NVAR) sensitivities w.r.t. NSENSIT's parameter -C (y contains initial values at input, final values at output) -C [T, Tnext] = the integration interval -C Hmin, Hmax = lower and upper bounds for the selected step-size. -C Note that for Step = Hmin the current computed -C solution is unconditionally accepted by the error -C control mechanism. -C AbsTol, RelTol = (NVAR) dimensional vectors of -C componentwise absolute and relative tolerances. -C FUNC_CHEM = name of routine of derivatives. KPP syntax. -C See the header below. -C JAC_CHEM = name of routine that computes the Jacobian, in -C sparse format. KPP syntax. See the header below. -C Info(1) = 1 for autonomous system -C = 0 for nonautonomous system -C -C OUTPUT ARGUMENTS: -C y = the values of concentrations at TEND. -C T = equals TEND on output. -C Info(2) = # of FUNC_CHEM calls. -C Info(3) = # of JAC_CHEM calls. -C Info(4) = # of accepted steps. -C Info(5) = # of rejected steps. -C -C Adrian Sandu, December 2001 - - - INTEGER NSENSIT - KPP_REAL y(NVAR*(NSENSIT+1)), ynew(NVAR*(NSENSIT+1)) - KPP_REAL K1(NVAR*(NSENSIT+1)) - KPP_REAL K2(NVAR*(NSENSIT+1)) - KPP_REAL K3(NVAR) - KPP_REAL DFDT(NVAR*(NSENSIT+1)) - KPP_REAL DFDP(NVAR*NSENSIT+1), DFDPDT(NVAR*NSENSIT+1) - KPP_REAL DJDP(NVAR*NSENSIT+1) - KPP_REAL F1(NVAR), F2(NVAR) - KPP_REAL JAC(LU_NONZERO), AJAC(LU_NONZERO) - KPP_REAL DJDT(LU_NONZERO) - KPP_REAL HESS(NHESS) - KPP_REAL Hmin,Hmax,Hnew,Hstart,ghinv,uround - KPP_REAL AbsTol(NVAR), RelTol(NVAR) - KPP_REAL T, Tnext, H, Hold, Tplus, e - KPP_REAL ERR, factor, facmax, dround, elo, tau, gam - - INTEGER n,nfcn,njac,Naccept,Nreject,i,j,ier - INTEGER Info(5) - LOGICAL IsReject,Autonomous,Embed3 - EXTERNAL FUNC_CHEM, JAC_CHEM, HESS_CHEM - - LOGICAL negative - KPP_REAL gamma, m1, m2, alpha, beta, delta, theta, w - KPP_REAL gamma3, d1, d2, d3, beta1, beta2 - KPP_REAL c31, c32, c34 - -c Initialization of counters, etc. - Autonomous = Info(1) .EQ. 1 - Embed3 = Info(2) .EQ. 1 - uround = 1.d-15 - dround = 1.0d-7 ! DSQRT(uround) - H = DMAX1(1.d-8, Hstart) - Tplus = T - IsReject = .false. - Naccept = 0 - Nreject = 0 - Nfcn = 0 - Njac = 0 - gamma = 1.d0 + 1.d0/DSQRT(2.0d0) - c31 = -1.0D0/gamma**2*(1.0D0-7.0D0*gamma+9.0D0*gamma**2) - & /(-1.0D0+2.0D0*gamma) - c32 = -1.0D0/gamma**2*(1.0D0-6.0D0*gamma+6.0D0*gamma**2) - & /(-1.0D0+2.0D0*gamma)/2 - gamma3 = 0.5D0 - 2*gamma - d1 = ((-9.0D0*gamma+8.0D0*gamma**2+2.0D0)/gamma**2/ - & (-1.0D0+2*gamma))/6.0D0 - d2 = ((-1.0D0+3.0D0*gamma)/gamma**2/ - & (-1.0D0+2.0D0*gamma))/6.0D0 - d3 = -1.0D0/(3.0D0*gamma) - m1 = -3.d0/(2.d0*gamma) - m2 = -1.d0/(2.d0*gamma) - - -C === Starting the time loop === - 10 CONTINUE - Tplus = T + H - IF ( Tplus .gt. Tnext ) THEN - H = Tnext - T - Tplus = Tnext - END IF - -C Initial Function, Jacobian, and Hessian Values - CALL FUNC_CHEM(NVAR, T, y, F1) - CALL JAC_CHEM(NVAR, T, y, JAC) - CALL HESS_CHEM( NVAR, T, y, HESS ) - IF (DDMTYPE .EQ. 1) THEN - CALL DFUNDPAR(NVAR, NSENSIT, T, y, DFDP) - END IF - -C Estimate the time derivatives in non-autonomous case - IF (.not. Autonomous) THEN - tau = DSIGN(dround*DMAX1( 1.0d0, DABS(T) ), T) - CALL FUNC_CHEM(NVAR, T+tau, y, K2) - nfcn=nfcn+1 - CALL JAC_CHEM(NVAR, T+tau, y, AJAC) - njac=njac+1 - DO 20 j = 1,NVAR - DFDT(j) = ( K2(j)-F1(j) )/tau - 20 CONTINUE - DO 30 j = 1,LU_NONZERO - DJDT(j) = ( AJAC(j)-JAC(j) )/tau - 30 CONTINUE - DO 40 i=1,NSENSIT - CALL Jac_SP_Vec (DJDT,y(i*NVAR+1),DFDT(i*NVAR+1)) - 40 CONTINUE - END IF ! .not. Autonomous - - Njac = Njac+1 - ghinv = - 1.0d0/(gamma*H) - DO 50 j=1,LU_NONZERO - AJAC(j) = JAC(j) - 50 CONTINUE - DO 60 j=1,NVAR - AJAC(LU_DIAG(j)) = JAC(LU_DIAG(j)) + ghinv - 60 CONTINUE - CALL KppDecomp (AJAC, ier) - - IF (ier.ne.0) THEN - IF ( H.gt.Hmin) THEN - H = 5.0d-1*H - go to 10 - ELSE - print *,'IER <> 0, H=',H - stop - END IF - END IF - - - - -C ----- STAGE 1 ----- - delta = gamma*H - DO 70 j = 1,NVAR - K1(j) = F1(j) - 70 CONTINUE - IF (.NOT. Autonomous) THEN - DO 80 j = 1,NVAR - K1(j) = K1(j) + delta*DFDT(j) - 80 CONTINUE - END IF - CALL KppSolve (AJAC, K1) -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - CALL DJACDPAR(NVAR, NSENSIT, T, y, K1(1), DJDP) - END IF -C --- End of derivative w.r.t. parameters - DO 120 i=1,NSENSIT - CALL Jac_SP_Vec (JAC,y(i*NVAR+1),K1(i*NVAR+1)) - CALL Hess_Vec ( HESS, K1(1), y(i*NVAR+1), F2 ) - DO 90 j=1,NVAR - K1(i*NVAR+j) = K1(i*NVAR+j) + gHinv*F2(j) - 90 CONTINUE - IF (.NOT. Autonomous) THEN - DO 100 j = 1,NVAR - K1(i*NVAR+j) = K1(i*NVAR+j) + delta*DFDT(i*NVAR+j) - 100 CONTINUE - END IF -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - DO 110 j = 1,NVAR - K1(i*NVAR+j) = K1(i*NVAR+j) + DFDP((i-1)*NVAR+j) - & + DJDP((i-1)*NVAR+j) - 110 CONTINUE - END IF -C --- End of derivative w.r.t. parameters - CALL KppSolve (AJAC, K1(i*NVAR+1)) - 120 CONTINUE - -C ----- STAGE 2 ----- - alpha = - 1.d0/gamma - DO 130 j = 1,NVAR*(NSENSIT+1) - ynew(j) = y(j) + alpha*K1(j) - 130 CONTINUE - CALL FUNC_CHEM(NVAR, T+H, ynew, F1) - IF (DDMTYPE.EQ.1) THEN - CALL DFUNDPAR(NVAR, NSENSIT, T+H, ynew, DFDP) - END IF - nfcn=nfcn+1 - beta1 = 2.d0/(gamma*H) - delta = -gamma*H - DO 140 j = 1,NVAR - K2(j) = F1(j) + beta1*K1(j) - 140 CONTINUE - IF (.NOT. Autonomous) THEN - DO 150 j = 1,NVAR - K2(j) = K2(j) + delta*DFDT(j) - 150 CONTINUE - END IF - CALL KppSolve (AJAC, K2) -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - CALL DJACDPAR(NVAR, NSENSIT, T, y, K2(1), DJDP) - END IF -C --- End of derivative w.r.t. parameters - - CALL JAC_CHEM(NVAR, T+H, Ynew, JAC) - njac=njac+1 - DO 190 i=1,NSENSIT - CALL Jac_SP_Vec (JAC,ynew(i*NVAR+1),K2(i*NVAR+1)) - CALL Jac_SP_Vec (DJDT,y(i*NVAR+1),F1) - CALL Hess_Vec ( HESS, K2(1), y(i*NVAR+1), F2 ) - DO 160 j = 1,NVAR - K2(i*NVAR+j) = K2(i*NVAR+j) + beta1*K1(i*NVAR+j) - & + gHinv*F2(j) - 160 CONTINUE - IF (.NOT. Autonomous) THEN - DO 170 j = 1,NVAR - K2(i*NVAR+j) = K2(i*NVAR+j) + delta*DFDT(i*NVAR+j) - 170 CONTINUE - END IF -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - DO 180 j = 1,NVAR - K2(i*NVAR+j) = K2(i*NVAR+j) + DFDP((i-1)*NVAR+j) - & + DJDP((i-1)*NVAR+j) - 180 CONTINUE - END IF -C --- End of derivative w.r.t. parameters - CALL KppSolve (AJAC, K2(i*NVAR+1)) - 190 CONTINUE - -C ----- STAGE 3 for error control only ----- - IF (Embed3) THEN - beta1 = -c31/H - beta2 = -c32/H - delta = gamma3*H - DO 195 j = 1,NVAR - K3(j) = F1(j) + beta1*K1(j) + beta2*K2(j) - 195 CONTINUE - IF (.NOT. Autonomous) THEN - DO 196 j = 1,NVAR - K3(j) = K3(j) + delta*DFDT(j) - 196 CONTINUE - END IF - CALL KppSolve (AJAC, K3) - END IF - -C ---- The Solution --- - DO 200 j = 1,NVAR*(NSENSIT+1) - ynew(j) = y(j) + m1*K1(j) + m2*K2(j) - 200 CONTINUE - - -C ====== Error estimation for concentrations only; this can be easily adapted to -C estimate the sensitivity error too ======== - - ERR=0.d0 - DO 210 i=1,NVAR - w = AbsTol(i) + RelTol(i)*DMAX1(DABS(y(i)),DABS(ynew(i))) - IF (Embed3) THEN - e = d1*K1(i) + d2*K2(i) + d3*K3(i) - ELSE - e = (1.d0/(2.d0*gamma))*(K1(i)+K2(i)) - END IF - ERR = ERR + ( e/w )**2 - 210 CONTINUE - ERR = DMAX1( uround, DSQRT( ERR/NVAR ) ) - -C ======= Choose the stepsize =============================== - - IF (Embed3) THEN - elo = 3.0D0 ! estimator local order - ELSE - elo = 2.0D0 - END IF - factor = DMAX1(2.0D-1,DMIN1(6.0D0,ERR**(1.0D0/elo)/.9D0)) - Hnew = DMIN1(Hmax,DMAX1(Hmin, H/factor)) - -C ======= Rejected/Accepted Step ============================ - - IF ( (ERR.gt.1).and.(H.gt.Hmin) ) THEN - IsReject = .true. - H = DMIN1(H/10,Hnew) - Nreject = Nreject+1 - ELSE - DO 300 i=1,NVAR*(NSENSIT+1) - y(i) = ynew(i) - 300 CONTINUE - T = Tplus - IF (.NOT.IsReject) THEN - H = Hnew ! Do not increase stepsize if previous step was rejected - END IF - IsReject = .false. - Naccept = Naccept+1 - END IF - -C ======= End of the time loop =============================== - IF ( T .lt. Tnext ) GO TO 10 - - - -C ======= Output Information ================================= - Info(2) = Nfcn - Info(3) = Njac - Info(4) = Naccept - Info(5) = Nreject - - RETURN - END - - - - SUBROUTINE FUNC_CHEM(N, T, Y, P) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - KPP_REAL T, Told - KPP_REAL Y(NVAR), P(NVAR) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, P ) - TIME = Told - RETURN - END - - - SUBROUTINE DFUNDPAR(N, NSENSIT, T, Y, P) -C --- Computes the partial derivatives of FUNC_CHEM w.r.t. parameters - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' -C --- NCOEFF, JCOEFF useful for derivatives w.r.t. rate coefficients - INTEGER NCOEFF, JCOEFF(NREACT) - COMMON /DDMRCOEFF/ NCOEFF, JCOEFF - - KPP_REAL T, Told - KPP_REAL Y(NVAR), P(NVAR*NSENSIT) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() -C - IF (DDMTYPE .EQ. 0) THEN -C --- Note: the values below are for sensitivities w.r.t. initial values; -C --- they may have to be changed for other applications - DO j=1,NSENSIT - DO i=1,NVAR - P(i+NVAR*(j-1)) = 0.0D0 - END DO - END DO - ELSE -C --- Example: the call below is for sensitivities w.r.t. rate coefficients; -C --- JCOEFF(1:NSENSIT) are the indices of the NSENSIT rate coefficients -C --- w.r.t. which one differentiates - CALL dFun_dRcoeff( Y, FIX, NCOEFF, JCOEFF, P ) - END IF - TIME = Told - RETURN - END - - SUBROUTINE DJACDPAR(N, NSENSIT, T, Y, U, P) -C --- Computes the partial derivatives of JAC w.r.t. parameters times user vector U - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' -C --- NCOEFF, JCOEFF useful for derivatives w.r.t. rate coefficients - INTEGER NCOEFF, JCOEFF(NREACT) - COMMON /DDMRCOEFF/ NCOEFF, JCOEFF - - KPP_REAL T, Told - KPP_REAL Y(NVAR), U(NVAR) - KPP_REAL P(NVAR*NSENSIT) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() -C - IF (DDMTYPE .EQ. 0) THEN -C --- Note: the values below are for sensitivities w.r.t. initial values; -C --- they may have to be changed for other applications - DO j=1,NSENSIT - DO i=1,NVAR - P(i+NVAR*(j-1)) = 0.0D0 - END DO - END DO - ELSE -C --- Example: the call below is for sensitivities w.r.t. rate coefficients; -C --- JCOEFF(1:NSENSIT) are the indices of the NSENSIT rate coefficients -C --- w.r.t. which one differentiates - CALL dJac_dRcoeff( Y, FIX, U, NCOEFF, JCOEFF, P ) - END IF - TIME = Told - RETURN - END - - SUBROUTINE JAC_CHEM(N, T, Y, J) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INTEGER N - KPP_REAL Told, T - KPP_REAL Y(NVAR), J(LU_NONZERO) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Jac_SP( Y, FIX, RCONST, J ) - TIME = Told - RETURN - END - - - SUBROUTINE HESS_CHEM(N, T, Y, HESS) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INTEGER N - KPP_REAL Told, T - KPP_REAL Y(NVAR), HESS(NHESS) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Hessian( Y, FIX, RCONST, HESS ) - TIME = Told - RETURN - END - - - - - - diff --git a/int.modified_WCOPY/oldies/ros3.c b/int.modified_WCOPY/oldies/ros3.c deleted file mode 100644 index da6b1272468220322dc7288a1efe7b4c2ff3658b..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/ros3.c +++ /dev/null @@ -1,344 +0,0 @@ - - #define MAX(a,b) ((a) >= (b)) ?(a):(b) - #define MIN(b,c) ((b) < (c)) ?(b):(c) - #define abs(x) ((x) >= 0 ) ?(x):(-x) - #define dabs(y) (double)abs(y) - #define DSQRT(d) (double)pow(d,0.5) - #define signum(x)((x) >= 0 ) ?(1):(-1) - - void (*forfun)(int,KPP_REAL,KPP_REAL [],KPP_REAL []); - void (*forjac)(int,KPP_REAL,KPP_REAL [],KPP_REAL []); - - - - void FUNC_CHEM(int N,KPP_REAL T,KPP_REAL Y[NVAR],KPP_REAL P[NVAR]) - { - KPP_REAL Told; - Told = TIME; - TIME = T; - Update_SUN(); - Update_PHOTO(); - Fun( Y, FIX, RCONST, P ); - TIME = Told; - }/* function fun ends here */ - - - void JAC_CHEM(int N,KPP_REAL T,KPP_REAL Y[NVAR],KPP_REAL J[LU_NONZERO]) - { - KPP_REAL Told; - Told = TIME; - TIME = T; - Update_SUN(); - Update_PHOTO(); - Jac_SP( Y, FIX, RCONST, J ); - TIME = Told; - } - - - INTEGRATE( KPP_REAL TIN, KPP_REAL TOUT ) - { - - /* TIN - Start Time */ - /* TOUT - End Time */ - - int INFO[5]; - forfun = &FUNC_CHEM; - forjac = &JAC_CHEM; - INFO[0] = Autonomous; - ROS3(NVAR,TIN,TOUT,STEPMIN,STEPMAX,STEPMIN,VAR,ATOL,RTOL,INFO - ,forfun,forjac); - } /* function integrate ends here */ - - - -int ROS3(int N,KPP_REAL T,KPP_REAL Tnext,KPP_REAL Hmin,KPP_REAL Hmax, -KPP_REAL Hstart,KPP_REAL y[NVAR],KPP_REAL AbsTol[NVAR],KPP_REAL RelTol[NVAR], -int INFO[5],void (*forfun)(int,KPP_REAL,KPP_REAL [],KPP_REAL []) , -void (*forjac)(int,KPP_REAL,KPP_REAL [],KPP_REAL []) ) - { - -/* - - L-stable Rosenbrock 3(2), with - strongly A-stable embedded formula for error control. - - All the arguments aggree with the KPP syntax. - - INPUT ARGUMENTS: - y = Vector of (NVAR) concentrations, contains the - initial values on input - [T, Tnext] = the integration interval - Hmin, Hmax = lower and upper bounds for the selected step-size. - Note that for Step = Hmin the current computed - solution is unconditionally accepted by the error - control mechanism. - AbsTol, RelTol = (NVAR) dimensional vectors of - componentwise absolute and relative tolerances. - FUNC_CHEM = name of routine of derivatives. KPP syntax. - See the header below. - JAC_CHEM = name of routine that computes the Jacobian, in - sparse format. KPP syntax. See the header below. - Info(1) = 1 for autonomous system - = 0 for nonautonomous system - - OUTPUT ARGUMENTS: - y = the values of concentrations at Tend. - T = equals Tend on output. - Info(2) = # of FUNC_CHEM calls. - Info(3) = # of JAC_CHEM calls. - Info(4) = # of accepted steps. - Info(5) = # of rejected steps. - - Adrian Sandu, April 1996 - The Center for Global and Regional Environmental Research -*/ - - KPP_REAL K1[NVAR], K2[NVAR], K3[NVAR]; - KPP_REAL F1[NVAR], JAC[LU_NONZERO]; - KPP_REAL ghinv,uround,dround,c43,x1,x2,x3,ytol; - KPP_REAL gam,c21,c31,c32,b1,b2,b3,d1,d2,d3,a21,a31,a32,alpha2,alpha3, - g1,g2,g3; - KPP_REAL ynew[NVAR]; - KPP_REAL H, Hold, Tplus,tau; - KPP_REAL ERR, factor, facmax; - int n,nfcn,njac,Naccept,Nreject,i,j,ier; - char IsReject,Autonomous; - - -/* Initialization of counters, etc. */ - Autonomous = (INFO[0] == 1); - uround = (double)1.e-15; - dround = DSQRT(uround); - H = MAX( (double)1.e-8, Hstart); - Tplus = T; - IsReject = 0; - Naccept = 0; - Nreject = 0; - nfcn = 0; - njac = 0; - gam = (double) (.43586652150845899941601945119356e+00); - c21 = (double) -(.10156171083877702091975600115545e+01); - c31 = (double) (.40759956452537699824805835358067e+01); - c32 = (double) (.92076794298330791242156818474003e+01); - b1 = (double) (.10000000000000000000000000000000e+01); - b2 = (double) (.61697947043828245592553615689730e+01); - b3 = (double) -(.42772256543218573326238373806514e+00); - d1 = (double) (.50000000000000000000000000000000e+00); - d2 = (double) -(.29079558716805469821718236208017e+01); - d3 = (double) (.22354069897811569627360909276199e+00); - a21 = (double) 1.e0; - a31 = (double) 1.e0; - a32 = (double) 0.e0; - alpha2 = gam; - alpha3 = gam; - g1 = (double) (.43586652150845899941601945119356e+00); - g2 = (double) (.24291996454816804366592249683314e+00); - g3 = (double) (.21851380027664058511513169485832e+01); - - -/* === Starting the time loop === */ - -while( T < Tnext ) - { - ten : - Tplus = T + H; - - if ( Tplus > Tnext ) - { - H = Tnext - T; - Tplus = Tnext; - } - - (*forjac)(NVAR, T, y, JAC); - - njac = njac+1; - ghinv = (double)-1.0e0/(gam*H); - - for(j=0;j Hmin ) - { - H = (double)5.0e-1*H; - goto ten; - } - else - { - printf("IER <> 0 , H = %d", H); - } - }/* main ier if ends*/ - - - (*forfun)(NVAR, T, y, F1); - - -/* ====== NONAUTONOMOUS CASE =============== */ - if( Autonomous == 0 ) - { - tau =(double) (dround*MAX( (double)1.0e-6, dabs(T) ) * signum(T) ); - - (*forfun)(NVAR, T+tau, y, K2); - - nfcn=nfcn+1; - - for(j=0;j /lib/libm.so.6 (0x40015000) - libc.so.6 => /lib/libc.so.6 (0x40032000) - /lib/ld-linux.so.2 => /lib/ld-linux.so.2 (0x40000000) -*/ - -/* ======= Choose the stepsize =============================== */ - - factor = 0.9/pow( ERR , (1.e0/3.e0) ); - if(IsReject == 1) - facmax = (double)1.0; - - else - facmax = (double)10.0; - - - factor = (double)MAX( 1.0e-1, MIN(factor,facmax) ); - Hold = H; - H = (double)MIN( Hmax, MAX(Hmin,factor*H) ); - - -/* ======= Rejected/Accepted Step ============================ */ - - if ( (ERR > 1) && (Hold > Hmin) ) - { - IsReject = 1; - Nreject = Nreject+1; - } - else - { - IsReject = 0; - - for(i = 0;i < NVAR;i++) - y[i] = ynew[i]; - - T = Tplus; - Naccept = Naccept+1; - - }/* else should end here */ - - -/* ======= End of the time loop =============================== */ - - } /* while loop (T < Tnext) ends here */ - - -/* ======= Output Information ================================= */ - INFO[1] = nfcn; - INFO[2] = njac; - INFO[3] = Naccept; - INFO[4] = Nreject; - - } /* function rodas ends here */ - - diff --git a/int.modified_WCOPY/oldies/ros3.def b/int.modified_WCOPY/oldies/ros3.def deleted file mode 100644 index d179b6c62d7b57d5fbf91c28b38bc84c6537f43a..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/ros3.def +++ /dev/null @@ -1,46 +0,0 @@ - -#FUNCTION AGGREGATE -#JACOBIAN SPARSE_LU_ROW - -#DOUBLE ON -#INTFILE ros3 - -#INLINE F77_DECL_INT - INTEGER Autonomous - COMMON /INTGDATA/ Autonomous - REAL*8 STEPSTART - COMMON /GDATA/ STEPSTART -#ENDINLINE - -#INLINE F77_INIT_INT - STEPMIN=0.0001 - STEPMAX=3600. - Autonomous = 0 - STEPSTART=STEPMIN -#ENDINLINE - - -#INLINE F90_DECL_INT - INTEGER Autonomous - DOUBLE PRECISION STEPSTART -#ENDINLINE - -#INLINE F90_INIT_INT - STEPMIN=0.0001 - STEPMAX=3600. - Autonomous = 0 - STEPSTART=STEPMIN -#ENDINLINE - -#INLINE C_DECL_INT - int Autonomous; - double STEPSTART; -#ENDINLINE - -#INLINE C_INIT_INT - STEPMIN=1e-4; - STEPMAX=3600.; - Autonomous = 0; - STEPSTART=STEPMIN; -#ENDINLINE - diff --git a/int.modified_WCOPY/oldies/ros3.f b/int.modified_WCOPY/oldies/ros3.f deleted file mode 100644 index 0b773588d5d5333ea4126ecb86ad0a22e9cb1dc5..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/ros3.f +++ /dev/null @@ -1,304 +0,0 @@ - SUBROUTINE INTEGRATE( TIN, TOUT ) - - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - -C TIN - Start Time - KPP_REAL TIN -C TOUT - End Time - KPP_REAL TOUT - - INTEGER INFO(5) - - EXTERNAL FUNC_CHEM, JAC_CHEM - - INFO(1) = Autonomous - - CALL ROS3(NVAR,TIN,TOUT,STEPMIN,STEPMAX, - + STEPMIN,VAR,ATOL,RTOL, - + Info,FUNC_CHEM,JAC_CHEM) - - RETURN - END - - - SUBROUTINE ROS3(N,T,Tnext,Hmin,Hmax,Hstart, - + y,AbsTol,RelTol, - + Info,FUNC_CHEM,JAC_CHEM) - IMPLICIT NONE - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_sparse.h' - -C L-stable Rosenbrock 3(2), with -C strongly A-stable embedded formula for error control. -C -C All the arguments aggree with the KPP syntax. -C -C INPUT ARGUMENTS: -C y = Vector of (NVAR) concentrations, contains the -C initial values on input -C [T, Tnext] = the integration interval -C Hmin, Hmax = lower and upper bounds for the selected step-size. -C Note that for Step = Hmin the current computed -C solution is unconditionally accepted by the error -C control mechanism. -C AbsTol, RelTol = (NVAR) dimensional vectors of -C componentwise absolute and relative tolerances. -C FUNC_CHEM = name of routine of derivatives. KPP syntax. -C See the header below. -C JAC_CHEM = name of routine that computes the Jacobian, in -C sparse format. KPP syntax. See the header below. -C Info(1) = 1 for autonomous system -C = 0 for nonautonomous system -C -C OUTPUT ARGUMENTS: -C y = the values of concentrations at Tend. -C T = equals Tend on output. -C Info(2) = # of FUNC_CHEM calls. -C Info(3) = # of JAC_CHEM calls. -C Info(4) = # of accepted steps. -C Info(5) = # of rejected steps. -C -C Adrian Sandu, April 1996 -C The Center for Global and Regional Environmental Research - - KPP_REAL K1(NVAR), K2(NVAR), K3(NVAR) - KPP_REAL F1(NVAR), JAC(LU_NONZERO) - KPP_REAL Hmin,Hmax,Hnew,Hstart,ghinv,uround - KPP_REAL y(NVAR), ynew(NVAR) - KPP_REAL AbsTol(NVAR), RelTol(NVAR) - KPP_REAL T, Tnext, Tplus, H, elo - KPP_REAL ERR, factor, facmax - KPP_REAL gam, c21, c31, c32, b1, b2, b3 - KPP_REAL d1, d2, d3, a21, a31, a32 - KPP_REAL alpha2, alpha3, g1, g2, g3 - KPP_REAL tau, x1, x2, x3, dround, ytol - INTEGER n,nfcn,njac,Naccept,Nreject,i,j,ier - INTEGER Info(5) - LOGICAL IsReject,Autonomous - EXTERNAL FUNC_CHEM, JAC_CHEM - - gam= .43586652150845899941601945119356d+00 - c21= -.10156171083877702091975600115545d+01 - c31= .40759956452537699824805835358067d+01 - c32= .92076794298330791242156818474003d+01 - b1= .10000000000000000000000000000000d+01 - b2= .61697947043828245592553615689730d+01 - b3= -.42772256543218573326238373806514d+00 - d1= .50000000000000000000000000000000d+00 - d2= -.29079558716805469821718236208017d+01 - d3= .22354069897811569627360909276199d+00 - a21 = 1.d0 - a31 = 1.d0 - a32 = 0.d0 - alpha2 = gam - alpha3 = gam - g1= .43586652150845899941601945119356d+00 - g2= .24291996454816804366592249683314d+00 - g3= .21851380027664058511513169485832d+01 - - -c Initialization of counters, etc. - Autonomous = Info(1) .EQ. 1 - uround = 1.d-15 - dround = DSQRT(uround) - IF (Hmax.le.0.D0) THEN - Hmax = DABS(Tnext-T) - END IF - H = DMAX1(1.d-8, Hstart) - Tplus = T - IsReject = .false. - Naccept = 0 - Nreject = 0 - Nfcn = 0 - Njac = 0 - -C === Starting the time loop === - 10 continue - - Tplus = T + H - if ( Tplus .gt. Tnext ) then - H = Tnext - T - Tplus = Tnext - end if - - CALL JAC_CHEM(NVAR, T, y, JAC) - Njac = Njac+1 - gHinv = -1.0d0/(gam*H) - do 15 j=1,LU_NONZERO - JAC(j) = -JAC(j) - 15 continue - do 20 j=1,NVAR - JAC(LU_DIAG(j)) = JAC(LU_DIAG(j)) - gHinv - 20 continue - CALL KppDecomp (JAC, ier) - - if (ier.ne.0) then - if ( H.gt.Hmin) then - H = 5.0d-1*H - go to 10 - else - print *,'IER <> 0, H=',H - stop - end if - end if - - CALL FUNC_CHEM(NVAR, T, y, F1) - -C ====== NONAUTONOMOUS CASE =============== - IF (.not. Autonomous) THEN - tau = DSIGN(dround*DMAX1( 1.0d-6, DABS(T) ), T) - CALL FUNC_CHEM(NVAR, T+tau, y, K2) - nfcn=nfcn+1 - do 30 j = 1,NVAR - K3(j) = ( K2(j)-F1(j) )/tau - 30 continue - -C ----- STAGE 1 (NONAUTONOMOUS) ----- - x1 = g1*H - do 35 j = 1,NVAR - K1(j) = F1(j) + x1*K3(j) - 35 continue - CALL KppSolve (JAC, K1) - -C ----- STAGE 2 (NONAUTONOMOUS) ----- - do 40 j = 1,NVAR - ynew(j) = y(j) + K1(j) - 40 continue - CALL FUNC_CHEM(NVAR, T+gam*H, ynew, F1) - nfcn=nfcn+1 - x1 = c21/H - x2 = g2*H - do 45 j = 1,NVAR - K2(j) = F1(j) + x1*K1(j) + x2*K3(j) - 45 continue - CALL KppSolve (JAC, K2) - -C ----- STAGE 3 (NONAUTONOMOUS) ----- - x1 = c31/H - x2 = c32/H - x3 = g3*H - do 50 j = 1,NVAR - K3(j) = F1(j) + x1*K1(j) + x2*K2(j) + x3*K3(j) - 50 continue - CALL KppSolve (JAC, K3) - - -C ====== AUTONOMOUS CASE =============== - ELSE - -C ----- STAGE 1 (AUTONOMOUS) ----- - do 60 j = 1,NVAR - K1(j) = F1(j) - 60 continue - CALL KppSolve (JAC, K1) - -C ----- STAGE 2 (AUTONOMOUS) ----- - do 65 j = 1,NVAR - ynew(j) = y(j) + K1(j) - 65 continue - CALL FUNC_CHEM(NVAR, T + gam*H, ynew, F1) - nfcn=nfcn+1 - x1 = c21/H - do 70 j = 1,NVAR - K2(j) = F1(j) + x1*K1(j) - 70 continue - CALL KppSolve (JAC, K2) - -C ----- STAGE 3 (AUTONOMOUS) ----- - x1 = c31/H - x2 = c32/H - do 90 j = 1,NVAR - K3(j) = F1(j) + x1*K1(j) + x2*K2(j) - 90 continue - CALL KppSolve (JAC, K3) - - END IF ! Autonomousous - -C ---- The Solution --- - - do 120 j = 1,NVAR - ynew(j) = y(j) + b1*K1(j) + b2*K2(j) + b3*K3(j) - 120 continue - - -C ====== Error estimation ======== - - ERR=0.d0 - do 130 i=1,NVAR - ytol = AbsTol(i) + RelTol(i)*DMAX1(DABS(y(i)),DABS(ynew(i))) - ERR=ERR+((d1*K1(i)+d2*K2(i)+d3*K3(i))/ytol)**2 - 130 continue - ERR = DMAX1( uround, DSQRT( ERR/NVAR ) ) - -C ======= Choose the stepsize =============================== - - elo = 3.0D0 ! estimator local order - factor = DMAX1(2.0D-1,DMIN1(6.0D0,ERR**(1.0D0/elo)/.9D0)) - Hnew = DMIN1(Hmax,DMAX1(Hmin, H/factor)) - -C ======= Rejected/Accepted Step ============================ - - IF ( (ERR.gt.1).and.(H.gt.Hmin) ) THEN - IsReject = .true. - H = DMIN1(H/10,Hnew) - Nreject = Nreject+1 - ELSE - DO 140 i=1,NVAR - y(i) = ynew(i) - 140 CONTINUE - T = Tplus - IF (.NOT.IsReject) THEN - H = Hnew ! Do not increase stepsize if previos step was rejected - END IF - IsReject = .false. - Naccept = Naccept+1 - END IF - - -C ======= End of the time loop =============================== - if ( T .lt. Tnext ) go to 10 - - -C ======= Output Information ================================= - Info(2) = Nfcn - Info(3) = Njac - Info(4) = Naccept - Info(5) = Nreject - Hstart = H - - RETURN - END - - - - SUBROUTINE FUNC_CHEM(N, T, Y, P) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INTEGER N - KPP_REAL T, Told - KPP_REAL Y(NVAR), P(NVAR) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, P ) - TIME = Told - RETURN - END - - SUBROUTINE JAC_CHEM(N, T, Y, J) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INTEGER N - KPP_REAL Told, T - KPP_REAL Y(NVAR), J(LU_NONZERO) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Jac_SP( Y, FIX, RCONST, J ) - TIME = Told - RETURN - END - diff --git a/int.modified_WCOPY/oldies/ros3_ddm.def b/int.modified_WCOPY/oldies/ros3_ddm.def deleted file mode 100644 index 04518bcdfdb3b032881498bb3c6857b7c9ad712b..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/ros3_ddm.def +++ /dev/null @@ -1,51 +0,0 @@ - -#FUNCTION AGGREGATE -#JACOBIAN SPARSE_LU_ROW - -#DOUBLE ON -#INTFILE ros3_ddm -#HESSIAN ON - -#INLINE F77_DECL_INT - INTEGER Autonomous - COMMON /INTGDATA/ Autonomous - REAL*8 STEPSTART - COMMON /GDATA/ STEPSTART -#ENDINLINE - -#INLINE F77_INIT_INT - STEPMIN=1.0E-4 - STEPMAX=3600. - Autonomous = 0 - STEPSTART=STEPMIN -#ENDINLINE - - -#INLINE F90_DECL_INT - INTEGER :: Autonomous - DOUBLE PRECISION :: STEPSTART -#ENDINLINE - -#INLINE F90_INIT_INT - STEPMIN=1.0E-4 - STEPMAX=3600. - Autonomous = 0 - STEPSTART=STEPMIN -#ENDINLINE - -#INLINE C_DECL_INT - extern int Autonomous; - extern double STEPSTART; -#ENDINLINE - -#INLINE C_DATA_INT - int Autonomous; - double STEPSTART; -#ENDINLINE - -#INLINE C_INIT_INT - STEPMIN = 0.0001; - STEPMAX = 3600.0; - Autonomous = 0; - STEPSTART = STEPMIN; -#ENDINLINE diff --git a/int.modified_WCOPY/oldies/ros3_ddm.f b/int.modified_WCOPY/oldies/ros3_ddm.f deleted file mode 100644 index db8b34311723182ce5aff53eaafbeb491e73f776..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/ros3_ddm.f +++ /dev/null @@ -1,503 +0,0 @@ - SUBROUTINE INTEGRATE( NSENSIT, Y, TIN, TOUT ) - - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - -C TIN - Start Time - KPP_REAL TIN -C TOUT - End Time - KPP_REAL TOUT -C Y - Concentrations and Sensitivities - KPP_REAL Y(NVAR*(NSENSIT+1)) -C --- Note: Y contains: (1:NVAR) concentrations, followed by -C --- (1:NVAR) sensitivities w.r.t. first parameter, followed by -C --- etc., followed by -C --- (1:NVAR) sensitivities w.r.t. NSENSIT's parameter - - INTEGER INFO(5) - - EXTERNAL FUNC_CHEM, JAC_CHEM - - INFO(1) = Autonomous - - CALL ROS3_DDM(NVAR,NSENSIT,TIN,TOUT,STEPMIN,STEPMAX, - + STEPMIN,Y,ATOL,RTOL, - + Info,FUNC_CHEM,JAC_CHEM) - - RETURN - END - - - SUBROUTINE ROS3_DDM(N,NSENSIT,T,Tnext,Hmin,Hmax,Hstart, - + y,AbsTol,RelTol, - + Info,FUNC_CHEM,JAC_CHEM) - IMPLICIT NONE - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INCLUDE 'KPP_ROOT_sparse.h' - -C L-stable Rosenbrock 3(2), with -C strongly A-stable embedded formula for error control. -C -C Direct decoupled computation of sensitivities. -C The global variable DDMTYPE distinguishes between: -C DDMTYPE = 0 : sensitivities w.r.t. initial values -C DDMTYPE = 1 : sensitivities w.r.t. parameters -C -C All the arguments aggree with the KPP syntax. -C -C INPUT ARGUMENTS: -C y = Vector of: (1:NVAR) concentrations, followed by -C (1:NVAR) sensitivities w.r.t. first parameter, followed by -C etc., followed by -C (1:NVAR) sensitivities w.r.t. NSENSIT's parameter -C (y contains initial values at input, final values at output) -C [T, Tnext] = the integration interval -C Hmin, Hmax = lower and upper bounds for the selected step-size. -C Note that for Step = Hmin the current computed -C solution is unconditionally accepted by the error -C control mechanism. -C AbsTol, RelTol = (NVAR) dimensional vectors of -C componentwise absolute and relative tolerances. -C FUNC_CHEM = name of routine of derivatives. KPP syntax. -C See the header below. -C JAC_CHEM = name of routine that computes the Jacobian, in -C sparse format. KPP syntax. See the header below. -C Info(1) = 1 for Autonomous system -C = 0 for nonAutonomous system -C -C OUTPUT ARGUMENTS: -C y = the values of concentrations at TEND. -C T = equals TEND on output. -C Info(2) = # of FUNC_CHEM calls. -C Info(3) = # of JAC_CHEM calls. -C Info(4) = # of accepted steps. -C Info(5) = # of rejected steps. -C -C Adrian Sandu, April 1996 -C The Center for Global and Regional Environmental Research - INTEGER NSENSIT - KPP_REAL y(NVAR*(NSENSIT+1)), ynew(NVAR*(NSENSIT+1)) - KPP_REAL K1(NVAR*(NSENSIT+1)) - KPP_REAL K2(NVAR*(NSENSIT+1)) - KPP_REAL K3(NVAR*(NSENSIT+1)) - KPP_REAL DFDT(NVAR*(NSENSIT+1)) - KPP_REAL DFDP(NVAR*NSENSIT), DFDPDT(NVAR*NSENSIT) - KPP_REAL DJDP(NVAR*NSENSIT) - KPP_REAL JAC(LU_NONZERO), AJAC(LU_NONZERO) - KPP_REAL DJDT(LU_NONZERO) - KPP_REAL Fv(NVAR), Hv(NVAR) - KPP_REAL HESS(NHESS) - KPP_REAL Hmin,Hmax,Hstart,ghinv,uround - KPP_REAL AbsTol(NVAR), RelTol(NVAR) - KPP_REAL T, Tnext, Tplus, H, Hnew, elo - KPP_REAL ERR, factor, facmax - INTEGER n,nfcn,njac,Naccept,Nreject,i,j,ier - INTEGER Info(5) - LOGICAL IsReject,Autonomous - EXTERNAL FUNC_CHEM, JAC_CHEM, HESS_CHEM - - KPP_REAL gamma, c21, c31,c32,b1,b2,b3,d1,d2,d3,a21,a31,a32 - KPP_REAL alpha2, alpha3, g1, g2, g3, x1, x2, x3, ytol - KPP_REAL dround, tau - - gamma= .43586652150845899941601945119356d+00 - c21= -.10156171083877702091975600115545d+01 - c31= .40759956452537699824805835358067d+01 - c32= .92076794298330791242156818474003d+01 - b1= .10000000000000000000000000000000d+01 - b2= .61697947043828245592553615689730d+01 - b3= -.42772256543218573326238373806514d+00 - d1= .50000000000000000000000000000000d+00 - d2= -.29079558716805469821718236208017d+01 - d3= .22354069897811569627360909276199d+00 - a21 = 1.d0 - a31 = 1.d0 - a32 = 0.d0 - alpha2 = gamma - g1= .43586652150845899941601945119356d+00 - g2= .24291996454816804366592249683314d+00 - g3= .21851380027664058511513169485832d+01 - - -c Initialization of counters, etc. - Autonomous = Info(1) .EQ. 1 - uround = 1.d-15 - dround = DSQRT(uround) - IF (Hmax.le.0.D0) THEN - Hmax = DABS(Tnext-T) - END IF - H = DMAX1(1.d-8, Hstart) - Tplus = T - IsReject = .false. - Naccept = 0 - Nreject = 0 - Nfcn = 0 - Njac = 0 - - -C === Starting the time loop === - 10 CONTINUE - -C ====== Initial Function, Jacobian, and Hessian values =============== - CALL FUNC_CHEM(NVAR, T, y, Fv) - Nfcn = Nfcn + 1 - CALL JAC_CHEM(NVAR, T, y, JAC) - Njac = Njac + 1 - CALL HESS_CHEM( NVAR, T, y, HESS ) - IF (DDMTYPE .EQ. 1) THEN - CALL DFUNDPAR(NVAR, NSENSIT, T, y, DFDP) - END IF - -C ====== Time derivatives for NONAutonomousous CASE =============== - IF (.not. Autonomous) THEN - tau = DSIGN(dround*DMAX1( 1.0d-6, DABS(T) ), T) - CALL FUNC_CHEM(NVAR, T+tau, y, K2) - nfcn=nfcn+1 - DO 20 j = 1,NVAR - DFDT(j) = ( K2(j)-Fv(j) )/tau - 20 CONTINUE - CALL JAC_CHEM(NVAR, T+tau, y, AJAC) - DO 30 j = 1,LU_NONZERO - DJDT(j) = ( AJAC(j)-JAC(j) )/tau - 30 CONTINUE - DO 40 i=1,NSENSIT - CALL Jac_SP_Vec (DJDT,y(i*NVAR+1),DFDT(i*NVAR+1)) - 40 CONTINUE - END IF - - - Tplus = T + H - IF ( Tplus .gt. Tnext ) then - H = Tnext - T - Tplus = Tnext - END IF - - gHinv = 1.0d0/(gamma*H) - DO 50 j=1,LU_NONZERO - AJAC(j) = -JAC(j) - 50 CONTINUE - DO 60 j=1,NVAR - AJAC(LU_DIAG(j)) = AJAC(LU_DIAG(j)) + gHinv - 60 CONTINUE - CALL KppDecomp (AJAC, ier) - - IF (ier.NE.0) THEN - IF ( H.GT.Hmin) THEN - H = 5.0d-1*H - GO TO 10 - ELSE - PRINT *,'IER <> 0, H=',H - STOP - END IF - END IF - - Autonomous = .true. - -C ------------------------------- STAGE 1 -------------------------------------- - DO 70 j = 1,NVAR - K1(j) = Fv(j) - 70 CONTINUE - IF (.NOT.Autonomous) THEN - x1 = gamma*H - DO 80 j = 1,NVAR - K1(j) = K1(j) + x1*DFDT(j) - 80 CONTINUE - END IF - CALL KppSolve (AJAC, K1) -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - CALL DJACDPAR(NVAR, NSENSIT, T, y, K1(1), DJDP) - END IF -C --- End of derivative w.r.t. parameters - - DO 110 i=1,NSENSIT - CALL Jac_SP_Vec (JAC,y(i*NVAR+1),K1(i*NVAR+1)) - CALL Hess_Vec ( HESS, y(i*NVAR+1), K1(1), Hv ) - DO 90 j=1,NVAR - K1(i*NVAR+j) = K1(i*NVAR+j) + Hv(j) - 90 CONTINUE - IF (.NOT. Autonomous) THEN - DO 100 j=1,NVAR - K1(i*NVAR+j) = K1(i*NVAR+j) + x1*DFDT(i*NVAR+j) - 100 CONTINUE - END IF -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - DO 44 j = 1,NVAR - K1(i*NVAR+j) = K1(i*NVAR+j) + DFDP((i-1)*NVAR+j) - & + DJDP((i-1)*NVAR+j) - 44 CONTINUE - END IF -C --- End of derivative w.r.t. parameters - CALL KppSolve (AJAC, K1(i*NVAR+1)) - 110 CONTINUE - -C ------------------------------- STAGE 2 -------------------------------------- - DO 120 j = 1,NVAR*(NSENSIT+1) - ynew(j) = y(j) + a21*K1(j) - 120 CONTINUE - CALL FUNC_CHEM(NVAR, T + alpha2*H, ynew, Fv) - IF (DDMTYPE .EQ. 1) THEN - CALL DFUNDPAR(NVAR, NSENSIT, T+alpha3*H, ynew, DFDP) - END IF - nfcn=nfcn+1 - x1 = c21/H - DO 130 j = 1,NVAR - K2(j) = Fv(j) + x1*K1(j) - 130 CONTINUE - IF (.NOT.Autonomous) THEN - x2 = g2*H - DO 140 j = 1,NVAR - K2(j) = K2(j) + x2*DFDT(j) - 140 CONTINUE - END IF - CALL KppSolve (AJAC, K2) -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - CALL DJACDPAR(NVAR, NSENSIT, T, y, K2(1), DJDP) - END IF -C --- End of derivative w.r.t. parameters - - CALL JAC_CHEM(NVAR, T+alpha2*H, ynew, JAC) - njac=njac+1 - DO 170 i=1,NSENSIT - CALL Jac_SP_Vec (JAC,ynew(i*NVAR+1),K2(i*NVAR+1)) - CALL Hess_Vec ( HESS, y(i*NVAR+1), K2(1), Hv ) - DO 150 j = 1,NVAR - K2(i*NVAR+j) = K2(i*NVAR+j) + x1*K1(i*NVAR+j) - & + Hv(j) - 150 CONTINUE - IF (.NOT. Autonomous) THEN - DO 160 j=1,NVAR - K2(i*NVAR+j) = K2(i*NVAR+j) + x2*DFDT(i*NVAR+j) - 160 CONTINUE - END IF -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - DO 165 j = 1,NVAR - K2(i*NVAR+j) = K2(i*NVAR+j) + DFDP((i-1)*NVAR+j) - & + DJDP((i-1)*NVAR+j) - 165 CONTINUE - END IF -C --- End of derivative w.r.t. parameters - CALL KppSolve (AJAC, K2(i*NVAR+1)) - 170 CONTINUE - -C ------------------------------- STAGE 3 -------------------------------------- - x1 = c31/H - x2 = c32/H - DO 180 j = 1,NVAR - K3(j) = Fv(j) + x1*K1(j) + x2*K2(j) - 180 CONTINUE - IF (.NOT.Autonomous) THEN - x3 = g3*H - DO 190 j = 1,NVAR - K3(j) = K3(j) + x3*DFDT(j) - 190 CONTINUE - END IF - CALL KppSolve (AJAC, K3) -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - CALL DJACDPAR(NVAR, NSENSIT, T, y, K3(1), DJDP) - END IF -C --- End of derivative w.r.t. parameters - - DO 220 i=1,NSENSIT - CALL Jac_SP_Vec (JAC,ynew(i*NVAR+1),K3(i*NVAR+1)) - CALL Hess_Vec ( HESS, y(i*NVAR+1), K3(1), Hv ) - DO 200 j = 1,NVAR - K3(i*NVAR+j) = K3(i*NVAR+j) +x1*K1(i*NVAR+j) - & + x2*K2(i*NVAR+j) + Hv(j) - 200 CONTINUE - IF (.NOT. Autonomous) THEN - DO 210 j=1,NVAR - K3(i*NVAR+j) = K3(i*NVAR+j) + x3*DFDT(i*NVAR+j) - 210 CONTINUE - END IF -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - DO 215 j = 1,NVAR - K3(i*NVAR+j) = K3(i*NVAR+j) + DFDP((i-1)*NVAR+j) - & + DJDP((i-1)*NVAR+j) - 215 CONTINUE - END IF -C --- End of derivative w.r.t. parameters - CALL KppSolve (AJAC, K3(i*NVAR+1)) - 220 CONTINUE - -C ------------------------------ The Solution --- - - DO 230 j = 1,NVAR*(NSENSIT+1) - ynew(j) = y(j) + b1*K1(j) + b2*K2(j) + b3*K3(j) - 230 CONTINUE - - -C ====== Error estimation ======== - - ERR=0.d0 - DO 240 i=1,NVAR - ytol = AbsTol(i) + RelTol(i)*DABS(ynew(i)) - ERR=ERR+((d1*K1(i)+d2*K2(i)+d3*K3(i))/ytol)**2 - 240 CONTINUE - ERR = DMAX1( uround, DSQRT( ERR/NVAR ) ) - -C ======= Choose the stepsize =============================== - - elo = 3.0D0 ! estimator local order - factor = DMAX1(2.0D-1,DMIN1(6.0D0,ERR**(1.0D0/elo)/.9D0)) - Hnew = DMIN1(Hmax,DMAX1(Hmin, H/factor)) - -C ======= Rejected/Accepted Step ============================ - - IF ( (ERR.gt.1).and.(H.gt.Hmin) ) THEN - IsReject = .true. - H = DMIN1(H/10,Hnew) - Nreject = Nreject+1 - GO TO 10 - ELSE - DO 250 j=1,NVAR*(NSENSIT+1) - y(j) = ynew(j) - 250 CONTINUE - T = Tplus - IF (.NOT.IsReject) THEN - H = Hnew ! Do not increase stepsize IF previos step was rejected - END IF - IsReject = .false. - Naccept = Naccept+1 - END IF - - -C ======= End of the time loop =============================== - IF ( T .lt. Tnext ) GO TO 10 - - -C ======= Output Information ================================= - Info(2) = Nfcn - Info(3) = Njac - Info(4) = Naccept - Info(5) = Nreject - Hstart = H - - RETURN - END - - - - SUBROUTINE FUNC_CHEM(N, T, Y, P) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INTEGER N - KPP_REAL T, Told - KPP_REAL Y(NVAR), P(NVAR) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, P ) - TIME = Told - RETURN - END - - - SUBROUTINE DFUNDPAR(N, NSENSIT, T, Y, P) -C --- Computes the partial derivatives of FUNC_CHEM w.r.t. parameters - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' -C --- NCOEFF, JCOEFF useful for derivatives w.r.t. rate coefficients - INTEGER N - INTEGER NCOEFF, JCOEFF(NREACT) - COMMON /DDMRCOEFF/ NCOEFF, JCOEFF - - KPP_REAL T, Told - KPP_REAL Y(NVAR), P(NVAR*NSENSIT) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() -C - IF (DDMTYPE .EQ. 0) THEN -C --- Note: the values below are for sensitivities w.r.t. initial values; -C --- they may have to be changed for other applications - DO j=1,NSENSIT - DO i=1,NVAR - P(i+NVAR*(j-1)) = 0.0D0 - END DO - END DO - ELSE -C --- Example: the call below is for sensitivities w.r.t. rate coefficients; -C --- JCOEFF(1:NSENSIT) are the indices of the NSENSIT rate coefficients -C --- w.r.t. which one differentiates - CALL dFun_dRcoeff( Y, FIX, NCOEFF, JCOEFF, P ) - END IF - TIME = Told - RETURN - END - - SUBROUTINE JAC_CHEM(N, T, Y, J) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INTEGER N - KPP_REAL Told, T - KPP_REAL Y(NVAR), J(LU_NONZERO) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Jac_SP( Y, FIX, RCONST, J ) - TIME = Told - RETURN - END - - - SUBROUTINE DJACDPAR(N, NSENSIT, T, Y, U, P) -C --- Computes the partial derivatives of JAC w.r.t. parameters times user vector U - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' -C --- NCOEFF, JCOEFF useful for derivatives w.r.t. rate coefficients - INTEGER N - INTEGER NCOEFF, JCOEFF(NREACT) - COMMON /DDMRCOEFF/ NCOEFF, JCOEFF - - KPP_REAL T, Told - KPP_REAL Y(NVAR), U(NVAR) - KPP_REAL P(NVAR*NSENSIT) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() -C - IF (DDMTYPE .EQ. 0) THEN -C --- Note: the values below are for sensitivities w.r.t. initial values; -C --- they may have to be changed for other applications - DO j=1,NSENSIT - DO i=1,NVAR - P(i+NVAR*(j-1)) = 0.0D0 - END DO - END DO - ELSE -C --- Example: the call below is for sensitivities w.r.t. rate coefficients; -C --- JCOEFF(1:NSENSIT) are the indices of the NSENSIT rate coefficients -C --- w.r.t. which one differentiates - CALL dJac_dRcoeff( Y, FIX, U, NCOEFF, JCOEFF, P ) - END IF - TIME = Told - RETURN - END - - - SUBROUTINE HESS_CHEM(N, T, Y, HESS) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INTEGER N - KPP_REAL Told, T - KPP_REAL Y(NVAR), HESS(NHESS) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Hessian( Y, FIX, RCONST, HESS ) - TIME = Told - RETURN - END - diff --git a/int.modified_WCOPY/oldies/ros4.def b/int.modified_WCOPY/oldies/ros4.def deleted file mode 100644 index 9eebbf809b4f6af4f79d98b5e3bb562e1e4e1647..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/ros4.def +++ /dev/null @@ -1,63 +0,0 @@ - -#FUNCTION AGGREGATE -#JACOBIAN SPARSE_LU_ROW - -#DOUBLE ON -#INTFILE ros4 - -#INLINE F_DECL_INT - INTEGER Autonomous - COMMON /INTGDATA/ Autonomous - REAL*8 STEPSTART - COMMON /GDATA/ STEPSTART -#ENDINLINE - -#INLINE F77_INIT_INT - STEPMIN=1.e-4 - STEPMAX=3600. - Autonomous = 0 - STEPSTART=STEPMIN -#ENDINLINE - -#INLINE F77_DECL_INT - INTEGER Autonomous - COMMON /INTGDATA/ Autonomous - REAL*8 STEPSTART - COMMON /GDATA/ STEPSTART -#ENDINLINE - -#INLINE F90_INIT_INT - STEPMIN=1.e-4 - STEPMAX=3600. - Autonomous = 0 - STEPSTART=STEPMIN -#ENDINLINE - -#INLINE F90_DECL_INT - INTEGER :: Autonomous - DOUBLE PRECISION :: STEPSTART -#ENDINLINE - -#INLINE C_DECL_INT - extern int Autonomous; - extern double STEPSTART; -#ENDINLINE - -#INLINE C_DATA_INT -int Autonomous; -double STEPSTART; -#ENDINLINE - -#INLINE C_INIT_INT - STEPMIN = 0.0001; - STEPMAX = 3600.0; - Autonomous = 0; - STEPSTART = STEPMIN; -#ENDINLINE - -#INLINE MATLAB_INIT_INT - STEPMIN = 0.0001; - STEPMAX = 3600.0; - Autonomous = 0; - STEPSTART = STEPMIN; -#ENDINLINE diff --git a/int.modified_WCOPY/oldies/ros4.f b/int.modified_WCOPY/oldies/ros4.f deleted file mode 100644 index a3ad21a5c53d1c277122d887d62c41a0229d96e2..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/ros4.f +++ /dev/null @@ -1,334 +0,0 @@ - SUBROUTINE INTEGRATE( TIN, TOUT ) - - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - -C TIN - Start Time - KPP_REAL TIN -C TOUT - End Time - KPP_REAL TOUT - - INTEGER INFO(5) - - EXTERNAL FUNC_CHEM, JAC_CHEM - - INFO(1) = Autonomous - - CALL ROS4(NVAR,TIN,TOUT,STEPMIN,STEPMAX, - + STEPMIN,VAR,ATOL,RTOL, - + Info,FUNC_CHEM,JAC_CHEM) - - RETURN - END - - - - - SUBROUTINE ROS4(N,T,Tnext,Hmin,Hmax,Hstart, - + y,AbsTol,RelTol, - + Info,FUNC_CHEM,JAC_CHEM) - IMPLICIT NONE - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_sparse.h' -C -C Four Stages, Fourth Order L-stable Rosenbrock Method, -C with embedded L-stable, third order method for error control -C Simplified version of E. Hairer's atmros4; the coefficients are slightly -C different -C -C -C INPUT ARGUMENTS: -C y = Vector of (NVAR) concentrations, contains the -C initial values on input -C [T, Tnext] = the integration interval -C Hmin, Hmax = lower and upper bounds for the selected step-size. -C Note that for Step = Hmin the current computed -C solution is unconditionally accepted by the error -C control mechanism. -C AbsTol, RelTol = (NVAR) dimensional vectors of -C componentwise absolute and relative tolerances. -C FUNC_CHEM = name of routine of derivatives. KPP syntax. -C See the header below. -C JAC_CHEM = name of routine that computes the Jacobian, in -C sparse format. KPP syntax. See the header below. -C Info(1) = 1 for Autonomous system -C = 0 for nonAutonomous system -C -C OUTPUT ARGUMENTS: -C y = the values of concentrations at Tend. -C T = equals TENDon output. -C Info(2) = # of FUNC_CHEM CALLs. -C Info(3) = # of JAC_CHEM CALLs. -C Info(4) = # of accepted steps. -C Info(5) = # of rejected steps. -C Hstart = The last accepted stepsize -C -C Adrian Sandu, December 2001 -C - KPP_REAL K1(NVAR), K2(NVAR), K3(NVAR), K4(NVAR) - KPP_REAL F1(NVAR) - KPP_REAL DFDT(NVAR) - KPP_REAL JAC(LU_NONZERO) - KPP_REAL Hmin,Hmax,Hstart - KPP_REAL y(NVAR), ynew(NVAR) - KPP_REAL AbsTol(NVAR), RelTol(NVAR) - KPP_REAL T, Tnext, H, Hnew, Tplus - KPP_REAL elo,ghinv,uround - KPP_REAL ERR, factor, facmax - KPP_REAL w, e, dround, tau - KPP_REAL hgam1, hgam2, hgam3, hgam4 - KPP_REAL hc21, hc31, hc32, hc41, hc42, hc43 - - INTEGER n,nfcn,njac,Naccept,Nreject,i,j,ier - INTEGER Info(5) - LOGICAL IsReject, Autonomous - EXTERNAL FUNC_CHEM, JAC_CHEM - - -C The method coefficients - DOUBLE PRECISION gamma, gamma2, gamma3, gamma4 - PARAMETER ( gamma = 0.5728200000000000D+00 ) - PARAMETER ( gamma2 = -0.1769193891319233D+01 ) - PARAMETER ( gamma3 = 0.7592633437920482D+00 ) - PARAMETER ( gamma4 = -0.1049021087100450D+00 ) - DOUBLE PRECISION a21, a31, a32, a41, a42, a43 - PARAMETER ( a21 = 0.2000000000000000D+01 ) - PARAMETER ( a31 = 0.1867943637803922D+01 ) - PARAMETER ( a32 = 0.2344449711399156D+00 ) - DOUBLE PRECISION alpha2, alpha3 - PARAMETER ( alpha2 = 0.1145640000000000D+01 ) - PARAMETER ( alpha3 = 0.6552168638155900D+00 ) - DOUBLE PRECISION c21, c31, c32, c41, c42, c43 - PARAMETER ( c21 = -0.7137615036412310D+01 ) - PARAMETER ( c31 = 0.2580708087951457D+01 ) - PARAMETER ( c32 = 0.6515950076447975D+00 ) - PARAMETER ( c41 = -0.2137148994382534D+01 ) - PARAMETER ( c42 = -0.3214669691237626D+00 ) - PARAMETER ( c43 = -0.6949742501781779D+00 ) - DOUBLE PRECISION b1, b2, b3, b4 - PARAMETER ( b1 = 0.2255570073418735D+01 ) - PARAMETER ( b2 = 0.2870493262186792D+00 ) - PARAMETER ( b3 = 0.4353179431840180D+00 ) - PARAMETER ( b4 = 0.1093502252409163D+01 ) - DOUBLE PRECISION d1, d2, d3, d4 - PARAMETER ( d1 = -0.2815431932141155D+00 ) - PARAMETER ( d2 = -0.7276199124938920D-01 ) - PARAMETER ( d3 = -0.1082196201495311D+00 ) - PARAMETER ( d4 = -0.1093502252409163D+01 ) - -c Initialization of counters, etc. - Autonomous = Info(1) .EQ. 1 - uround = 1.d-15 - dround = DSQRT(uround) - IF (Hmax.le.0.D0) THEN - Hmax = DABS(Tnext-T) - END IF - H = DMAX1(1.d-8, Hstart) - Tplus = T - IsReject = .false. - Naccept = 0 - Nreject = 0 - Nfcn = 0 - Njac = 0 - -C === Starting the time loop === - 10 CONTINUE - - Tplus = T + H - IF ( Tplus .gt. Tnext ) THEN - H = Tnext - T - Tplus = Tnext - END IF - -C Initial Function and Jacobian values - CALL FUNC_CHEM( T, y, F1 ) - CALL JAC_CHEM( T, y, JAC ) - -C The time derivative for non-Autonomous case - IF (.not. Autonomous) THEN - tau = DSIGN(dround*DMAX1( 1.0d-6, DABS(T) ), T) - CALL FUNC_CHEM( T+tau, y, K2 ) - nfcn=nfcn+1 - DO 20 j = 1,NVAR - DFDT(j) = ( K2(j)-F1(j) )/tau - 20 CONTINUE - END IF - -C Form the Prediction matrix and compute its LU factorization - Njac = Njac+1 - ghinv = 1.0d0/(gamma*H) - DO 30 j=1,LU_NONZERO - JAC(j) = -JAC(j) - 30 CONTINUE - DO 40 j=1,NVAR - JAC(LU_DIAG(j)) = JAC(LU_DIAG(j)) + ghinv - 40 CONTINUE - CALL KppDecomp (JAC, ier) -C - IF (ier.ne.0) THEN - IF ( H.gt.Hmin) THEN - H = 5.0d-1*H - GO TO 10 - ELSE - PRINT *,'ROS4: Singular factorization at T=',T,'; H=',H - STOP - END IF - END IF - - -C ------------ STAGE 1------------------------- - DO 50 j = 1,NVAR - K1(j) = F1(j) - 50 CONTINUE - IF (.NOT. Autonomous) THEN - hgam1 = H*gamma - DO 60 j=1,NVAR - K1(j) = K1(j) + hgam1*DFDT(j) - 60 CONTINUE - END IF - CALL KppSolve (JAC, K1) - -C ----------- STAGE 2 ------------------------- - DO 70 j = 1,NVAR - ynew(j) = y(j) + a21*K1(j) - 70 CONTINUE - CALL FUNC_CHEM( T+alpha2*H, ynew, F1) - nfcn=nfcn+1 - hc21 = c21/H - DO 80 j = 1,NVAR - K2(j) = F1(j) + hc21*K1(j) - 80 CONTINUE - IF (.NOT. Autonomous) THEN - hgam2 = H*gamma2 - DO 90 j=1,NVAR - K2(j) = K2(j) + hgam2*DFDT(j) - 90 CONTINUE - END IF - CALL KppSolve (JAC, K2) - - -C ------------ STAGE 3 ------------------------- - DO 100 j = 1,NVAR - ynew(j) = y(j) + a31*K1(j) + a32*K2(j) - 100 CONTINUE - CALL FUNC_CHEM( T+alpha3*H, ynew, F1) - nfcn=nfcn+1 - hc31 = c31/H - hc32 = c32/H - DO 110 j = 1,NVAR - K3(j) = F1(j) + hc31*K1(j) + hc32*K2(j) - 110 CONTINUE - IF (.NOT. Autonomous) THEN - hgam3 = H*gamma3 - DO 120 j=1,NVAR - K3(j) = K3(j) + hgam3*DFDT(j) - 120 CONTINUE - END IF - CALL KppSolve (JAC, K3) - -C ------------ STAGE 4 ------------------------- -C Note: uses the same function value as stage 3 - hc41 = c41/H - hc42 = c42/H - hc43 = c43/H - DO 140 j = 1,NVAR - K4(j) = F1(j) + hc41*K1(j) + hc42*K2(j) + hc43*K3(j) - 140 CONTINUE - IF (.NOT. Autonomous) THEN - hgam4 = H*gamma4 - DO 150 j=1,NVAR - K4(j) = K4(j) + hgam4*DFDT(j) - 150 CONTINUE - END IF - CALL KppSolve (JAC, K4) - - - -C ---- The Solution --- - DO 160 j = 1,NVAR - ynew(j) = y(j) + b1*K1(j) + b2*K2(j) + b3*K3(j) + b4*K4(j) - 160 CONTINUE - - -C ====== Error estimation ======== - - ERR=0.d0 - DO 170 j = 1,NVAR - w = AbsTol(j) + RelTol(j)*DMAX1(DABS(y(j)),DABS(ynew(j))) - e = d1*K1(j) + d2*K2(j) + d3*K3(j) + d4*K4(j) - ERR = ERR + ( e/w )**2 - 170 CONTINUE - ERR = DMAX1( uround, DSQRT( ERR/NVAR ) ) - -C ======= Choose the stepsize =============================== - - elo = 4.0D0 ! estimator local order - factor = DMAX1(2.0D-1,DMIN1(6.0D0,ERR**(1.0D0/elo)/.9D0)) - Hnew = DMIN1(Hmax,DMAX1(Hmin, H/factor)) - -C ======= Rejected/Accepted Step ============================ - - IF ( (ERR.gt.1).and.(H.gt.Hmin) ) THEN - IsReject = .true. - H = DMIN1(H/10,Hnew) - Nreject = Nreject+1 - ELSE - DO 180 i=1,NVAR - y(i) = ynew(i) - 180 CONTINUE - T = Tplus - IF (.NOT.IsReject) THEN - H = Hnew ! Do not increase stepsize if previos step was rejected - END IF - IsReject = .false. - Naccept = Naccept+1 - END IF - -C ======= End of the time loop =============================== - IF ( T .lt. Tnext ) GO TO 10 - -C ======= Output Information ================================= - Info(2) = Nfcn - Info(3) = Njac - Info(4) = Naccept - Info(5) = Nreject - Hstart = H - - RETURN - END - - - SUBROUTINE FUNC_CHEM( T, Y, P ) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - KPP_REAL T, Told - KPP_REAL Y(NVAR), P(NVAR) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, P ) - TIME = Told - RETURN - END - - - SUBROUTINE JAC_CHEM( T, Y, J ) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - KPP_REAL Told, T - KPP_REAL Y(NVAR), J(LU_NONZERO) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Jac_SP( Y, FIX, RCONST, J ) - TIME = Told - RETURN - END - - - - - - diff --git a/int.modified_WCOPY/oldies/ros4_ddm.def b/int.modified_WCOPY/oldies/ros4_ddm.def deleted file mode 100644 index cac5a9ade6653d94dd8762a2399249561de71577..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/ros4_ddm.def +++ /dev/null @@ -1,58 +0,0 @@ - -#FUNCTION AGGREGATE -#JACOBIAN SPARSE_LU_ROW - -#DOUBLE ON -#INTFILE ros4_ddm -#HESSIAN ON - -#INLINE F77_DECL_INT - INTEGER Autonomous - COMMON /INTGDATA/ Autonomous - REAL*8 STEPSTART - COMMON /GDATA/ STEPSTART -#ENDINLINE - -#INLINE F77_INIT_INT - STEPMIN=1.0E-4 - STEPMAX=3600. - Autonomous = 0 - STEPSTART=STEPMIN -#ENDINLINE - -#INLINE F90_DECL_INT - INTEGER Autonomous - DOUBLE PRECISION STEPSTART -#ENDINLINE - -#INLINE F90_INIT_INT - STEPMIN=1.0E-4 - STEPMAX=3600. - Autonomous = 0 - STEPSTART=STEPMIN -#ENDINLINE - - -#INLINE C_DECL_INT - extern int Autonomous; - extern double STEPSTART; -#ENDINLINE - -#INLINE C_DATA_INT - int Autonomous; - double STEPSTART; -#ENDINLINE - -#INLINE C_INIT_INT - STEPMIN = 0.0001; - STEPMAX = 3600.0; - Autonomous = 0; - STEPSTART = STEPMIN; -#ENDINLINE - -#INLINE MATLAB_INIT_INT - STEPMIN = 0.0001; - STEPMAX = 3600.0; - Autonomous = 0; - STEPSTART = STEPMIN; -#ENDINLINE diff --git a/int.modified_WCOPY/oldies/ros4_ddm.f b/int.modified_WCOPY/oldies/ros4_ddm.f deleted file mode 100644 index 79a939c81f744d2fe235803f34797d560974525c..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/ros4_ddm.f +++ /dev/null @@ -1,615 +0,0 @@ - SUBROUTINE INTEGRATE( NSENSIT, Y, TIN, TOUT ) - - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - -C TIN - Start Time - KPP_REAL TIN -C TOUT - End Time - KPP_REAL TOUT -C Y - Concentrations and Sensitivities - KPP_REAL Y(NVAR*(NSENSIT+1)) -C --- Note: Y contains: (1:NVAR) concentrations, followed by -C --- (1:NVAR) sensitivities w.r.t. first parameter, followed by -C --- etc., followed by -C --- (1:NVAR) sensitivities w.r.t. NSENSIT's parameter - - INTEGER INFO(5) - - EXTERNAL FUNC_CHEM, JAC_CHEM - - INFO(1) = Autonomous - - CALL ROS4_DDM(NVAR,NSENSIT,TIN,TOUT,STEPMIN,STEPMAX, - + STEPMIN,Y,ATOL,RTOL, - + Info,FUNC_CHEM,JAC_CHEM) - - - RETURN - END - - - - - SUBROUTINE ROS4_DDM(N,NSENSIT,T,Tnext,Hmin,Hmax,Hstart, - + y,AbsTol,RelTol, - + Info,FUNC_CHEM,JAC_CHEM) - IMPLICIT NONE - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INCLUDE 'KPP_ROOT_sparse.h' -C -C Four Stages, Fourth Order L-stable Rosenbrock Method, -C with embedded L-stable, third order method for error control -C Simplified version of E. Hairer's atmros4; the coefficients are slightly different -C -C Direct decoupled computation of sensitivities. -C The global variable DDMTYPE distinguishes between: -C DDMTYPE = 0 : sensitivities w.r.t. initial values -C DDMTYPE = 1 : sensitivities w.r.t. parameters -C -C INPUT ARGUMENTS: -C y = Vector of: (1:NVAR) concentrations, followed by -C (1:NVAR) sensitivities w.r.t. first parameter, followed by -C etc., followed by -C (1:NVAR) sensitivities w.r.t. NSENSIT's parameter -C (y contains initial values at input, final values at output) -C [T, Tnext] = the integration interval -C Hmin, Hmax = lower and upper bounds for the selected step-size. -C Note that for Step = Hmin the current computed -C solution is unconditionally accepted by the error -C control mechanism. -C AbsTol, RelTol = (NVAR) dimensional vectors of -C componentwise absolute and relative tolerances. -C FUNC_CHEM = name of routine of derivatives. KPP syntax. -C See the header below. -C JAC_CHEM = name of routine that computes the Jacobian, in -C sparse format. KPP syntax. See the header below. -C Info(1) = 1 for Autonomous system -C = 0 for nonAutonomous system -C -C OUTPUT ARGUMENTS: -C y = the values of concentrations and sensitivities at Tend. -C T = equals TENDon output. -C Info(2) = # of FUNC_CHEM CALLs. -C Info(3) = # of JAC_CHEM CALLs. -C Info(4) = # of accepted steps. -C Info(5) = # of rejected steps. -C -C Adrian Sandu, December 2001 -C - - - INTEGER NSENSIT - KPP_REAL y(NVAR*(NSENSIT+1)), ynew(NVAR*(NSENSIT+1)) - KPP_REAL K1(NVAR*(NSENSIT+1)) - KPP_REAL K2(NVAR*(NSENSIT+1)) - KPP_REAL K3(NVAR*(NSENSIT+1)) - KPP_REAL K4(NVAR*(NSENSIT+1)) - KPP_REAL Fv(NVAR), Hv(NVAR) - KPP_REAL DFDT(NVAR*(NSENSIT+1)) - KPP_REAL DFDP(NVAR*NSENSIT), DFDPDT(NVAR*NSENSIT) - KPP_REAL DJDP(NVAR*NSENSIT) - KPP_REAL JAC(LU_NONZERO), AJAC(LU_NONZERO) - KPP_REAL DJDT(LU_NONZERO) - KPP_REAL HESS(NHESS) - KPP_REAL Hmin,Hmax,Hstart,ghinv,uround - KPP_REAL AbsTol(NVAR), RelTol(NVAR) - KPP_REAL T, Tnext, Tplus, H, Hnew, elo - KPP_REAL ERR, factor, facmax, dround, tau - KPP_REAL w, e, beta1, beta2, beta3, beta4 - - INTEGER n,nfcn,njac,Naccept,Nreject,i,j,ier - INTEGER Info(5) - LOGICAL IsReject, Autonomous - EXTERNAL FUNC_CHEM, JAC_CHEM, HESS_CHEM - - -C The method coefficients -C DOUBLE PRECISION gamma, gamma2, gamma3, gamma4 -C PARAMETER ( gamma = 0.57281606D0 ) -C PARAMETER ( gamma2 = -1.769177067112013949170520D0 ) -C PARAMETER ( gamma3 = 0.759293964293209853670967D0 ) -C PARAMETER ( gamma4 = -0.104894621490955803206743D0 ) -C DOUBLE PRECISION a21, a31, a32, a41, a42, a43 -C PARAMETER ( a21 = 2.00000000000000000000000D0 ) -C PARAMETER ( a31 = 1.86794814949823713234476D0 ) -C PARAMETER ( a32 = 0.23444556851723885002322D0 ) -C DOUBLE PRECISION alpha2, alpha3, alpha4 -C PARAMETER ( alpha2 = 1.145632120D0 ) -C PARAMETER ( alpha3 = 0.655214975973133829477748D0 ) -C DOUBLE PRECISION c21, c31, c32, c41, c42, c43 -C PARAMETER ( c21 = -7.137649943349979830369260D0 ) -C PARAMETER ( c31 = 2.580923666509657714488050D0 ) -C PARAMETER ( c32 = 0.651629887302032023387417D0 ) -C PARAMETER ( c41 = -2.137115266506619116806370D0 ) -C PARAMETER ( c42 = -0.321469531339951070769241D0 ) -C PARAMETER ( c43 = -0.694966049282445225157329D0 ) -C DOUBLE PRECISION m1, m2, m3, m4, mhat1, mhat2, mhat3, mhat4 -C PARAMETER ( m1 = 2.255566228604565243728840D0 ) -C PARAMETER ( m2 = 0.287055063194157607662630D0 ) -C PARAMETER ( m3 = 0.435311963379983213402707D0 ) -C PARAMETER ( m4 = 1.093507656403247803214820D0 ) -C PARAMETER ( mhat1 = 2.068399160527583734258670D0 ) -C PARAMETER ( mhat2 = 0.238681352067532797956493D0 ) -C PARAMETER ( mhat3 = 0.363373345435391708261747D0 ) -C PARAMETER ( mhat4 = 0.366557127936155144309163D0 ) -C DOUBLE PRECISION e1, e2, e3, e4 -c PARAMETER ( e1 = 1.8716706807698191283861888D-01 ) -c PARAMETER ( e2 = 4.8373711126624835410225955D-02 ) -c PARAMETER ( e3 = 7.1938617944591554120847832D-02 ) -c PARAMETER ( e4 = 7.2695052846709262706070831D-01 ) -C PARAMETER ( e1 = -0.2815431932141155D+00 ) -C PARAMETER ( e2 = -0.7276199124938920D-01 ) -C PARAMETER ( e3 = -0.1082196201495311D+00 ) -C PARAMETER ( e4 = -0.1093502252409163D+01 ) -C The method coefficients - DOUBLE PRECISION gamma, gamma2, gamma3, gamma4 - PARAMETER ( gamma = 0.5728200000000000D+00 ) - PARAMETER ( gamma2 = -0.1769193891319233D+01 ) - PARAMETER ( gamma3 = 0.7592633437920482D+00 ) - PARAMETER ( gamma4 = -0.1049021087100450D+00 ) - DOUBLE PRECISION a21, a31, a32, a41, a42, a43 - PARAMETER ( a21 = 0.2000000000000000D+01 ) - PARAMETER ( a31 = 0.1867943637803922D+01 ) - PARAMETER ( a32 = 0.2344449711399156D+00 ) - DOUBLE PRECISION alpha2, alpha3 - PARAMETER ( alpha2 = 0.1145640000000000D+01 ) - PARAMETER ( alpha3 = 0.6552168638155900D+00 ) - DOUBLE PRECISION c21, c31, c32, c41, c42, c43 - PARAMETER ( c21 = -0.7137615036412310D+01 ) - PARAMETER ( c31 = 0.2580708087951457D+01 ) - PARAMETER ( c32 = 0.6515950076447975D+00 ) - PARAMETER ( c41 = -0.2137148994382534D+01 ) - PARAMETER ( c42 = -0.3214669691237626D+00 ) - PARAMETER ( c43 = -0.6949742501781779D+00 ) - DOUBLE PRECISION b1, b2, b3, b4 - PARAMETER ( b1 = 0.2255570073418735D+01 ) - PARAMETER ( b2 = 0.2870493262186792D+00 ) - PARAMETER ( b3 = 0.4353179431840180D+00 ) - PARAMETER ( b4 = 0.1093502252409163D+01 ) - DOUBLE PRECISION d1, d2, d3, d4 - PARAMETER ( d1 = -0.2815431932141155D+00 ) - PARAMETER ( d2 = -0.7276199124938920D-01 ) - PARAMETER ( d3 = -0.1082196201495311D+00 ) - PARAMETER ( d4 = -0.1093502252409163D+01 ) - - -c Initialization of counters, etc. - Autonomous = Info(1) .EQ. 1 - uround = 1.d-15 - dround = DSQRT(uround) - IF (Hmax.le.0.D0) THEN - Hmax = DABS(Tnext-T) - END IF - H = DMAX1(1.d-8, Hstart) - Tplus = T - IsReject = .false. - Naccept = 0 - Nreject = 0 - Nfcn = 0 - Njac = 0 - -C === Starting the time loop === - 10 CONTINUE - - Tplus = T + H - IF ( Tplus .gt. Tnext ) THEN - H = Tnext - T - Tplus = Tnext - END IF - -C Initial Function, Jacobian, and Hessian Values - CALL FUNC_CHEM(NVAR, T, y, Fv) - CALL JAC_CHEM(NVAR, T, y, JAC) - CALL HESS_CHEM( NVAR, T, y, HESS ) - IF (DDMTYPE .EQ. 1) THEN - CALL DFUNDPAR(NVAR, NSENSIT, T, y, DFDP) - END IF - -C The time derivatives for non-Autonomous case - IF (.not. Autonomous) THEN - tau = DSIGN(dround*DMAX1( 1.0d0, DABS(T) ), T) - CALL FUNC_CHEM(NVAR, T+tau, y, K2) - CALL JAC_CHEM(NVAR, T+tau, y, AJAC) - nfcn=nfcn+1 - DO 20 j = 1,NVAR - DFDT(j) = ( K2(j)-Fv(j) )/tau - 20 CONTINUE - DO 30 j = 1,LU_NONZERO - DJDT(j) = ( AJAC(j)-JAC(j) )/tau - 30 CONTINUE - DO 35 i=1,NSENSIT - CALL Jac_SP_Vec (DJDT,y(i*NVAR+1),DFDT(i*NVAR+1)) - 35 CONTINUE - END IF - - 11 CONTINUE ! From here we restart after a rejected step - -C Form the Prediction matrix and compute its LU factorization - Njac = Njac+1 - ghinv = 1.0d0/(gamma*H) - DO 40 j=1,LU_NONZERO - AJAC(j) = -JAC(j) - 40 CONTINUE - DO 50 j=1,NVAR - AJAC(LU_DIAG(j)) = AJAC(LU_DIAG(j)) + ghinv - 50 CONTINUE - CALL KppDecomp (AJAC, ier) -C - IF (ier.ne.0) THEN - IF ( H.gt.Hmin) THEN - H = 5.0d-1*H - GO TO 10 - ELSE - PRINT *,'ROS4: Singular factorization at T=',T,'; H=',H - STOP - END IF - END IF - -C ------------ STAGE 1------------------------- - DO 60 j = 1,NVAR - K1(j) = Fv(j) - 60 CONTINUE - IF (.NOT. Autonomous) THEN - beta1 = H*gamma - DO 70 j=1,NVAR - K1(j) = K1(j) + beta1*DFDT(j) - 70 CONTINUE - END IF - CALL KppSolve (AJAC, K1) -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - CALL DJACDPAR(NVAR, NSENSIT, T, y, K1(1), DJDP) - END IF -C --- End of derivative w.r.t. parameters - - DO 100 i=1,NSENSIT - CALL Jac_SP_Vec (JAC,y(i*NVAR+1),K1(i*NVAR+1)) - CALL Hess_Vec ( HESS, y(i*NVAR+1), K1(1), Hv ) - DO 80 j=1,NVAR - K1(i*NVAR+j) = K1(i*NVAR+j) + Hv(j) - 80 CONTINUE - IF (.NOT. Autonomous) THEN - DO 90 j=1,NVAR - K1(i*NVAR+j) = K1(i*NVAR+j) + beta1*DFDT(i*NVAR+j) - 90 CONTINUE - END IF -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - DO 95 j = 1,NVAR - K1(i*NVAR+j) = K1(i*NVAR+j) + DFDP((i-1)*NVAR+j) - & + DJDP((i-1)*NVAR+j) - 95 CONTINUE - END IF -C --- End of derivative w.r.t. parameters - CALL KppSolve (AJAC, K1(i*NVAR+1)) - 100 CONTINUE - -C ----------- STAGE 2 ------------------------- - DO 110 j = 1,NVAR*(NSENSIT+1) - ynew(j) = y(j) + a21*K1(j) - 110 CONTINUE - CALL FUNC_CHEM(NVAR, T+alpha2*H, ynew, Fv) - IF (DDMTYPE .EQ. 1) THEN - CALL DFUNDPAR(NVAR, NSENSIT, T+alpha2*H, ynew, DFDP) - END IF - nfcn=nfcn+1 - beta1 = c21/H - DO 120 j = 1,NVAR - K2(j) = Fv(j) + beta1*K1(j) - 120 CONTINUE - IF (.NOT. Autonomous) THEN - beta2 = H*gamma2 - DO 130 j=1,NVAR - K2(j) = K2(j) + beta2*DFDT(j) - 130 CONTINUE - END IF - CALL KppSolve (AJAC, K2) -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - CALL DJACDPAR(NVAR, NSENSIT, T, y, K2(1), DJDP) - END IF -C --- End of derivative w.r.t. parameters - - CALL JAC_CHEM(NVAR, T+alpha2*H, ynew, JAC) - njac=njac+1 - DO 160 i=1,NSENSIT - CALL Jac_SP_Vec (JAC,ynew(i*NVAR+1),K2(i*NVAR+1)) - CALL Hess_Vec ( HESS, y(i*NVAR+1), K2(1), Hv ) - DO 140 j = 1,NVAR - K2(i*NVAR+j) = K2(i*NVAR+j) + beta1*K1(i*NVAR+j) - & + Hv(j) - 140 CONTINUE - IF (.NOT. Autonomous) THEN - DO 150 j=1,NVAR - K2(i*NVAR+j) = K2(i*NVAR+j) + beta2*DFDT(i*NVAR+j) - 150 CONTINUE - END IF -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - DO 155 j = 1,NVAR - K2(i*NVAR+j) = K2(i*NVAR+j) + DFDP((i-1)*NVAR+j) - & + DJDP((i-1)*NVAR+j) - 155 CONTINUE - END IF -C --- End of derivative w.r.t. parameters - CALL KppSolve (AJAC, K2(i*NVAR+1)) - 160 CONTINUE - - -C ------------ STAGE 3 ------------------------- - DO 170 j = 1,NVAR*(NSENSIT+1) - ynew(j) = y(j) + a31*K1(j) + a32*K2(j) - 170 CONTINUE - CALL FUNC_CHEM(NVAR, T+alpha3*H, ynew, Fv) - IF (DDMTYPE .EQ. 1) THEN - CALL DFUNDPAR(NVAR, NSENSIT, T+alpha3*H, ynew, DFDP) - END IF - nfcn=nfcn+1 - beta1 = c31/H - beta2 = c32/H - DO 180 j = 1,NVAR - K3(j) = Fv(j) + beta1*K1(j) + beta2*K2(j) - 180 CONTINUE - IF (.NOT. Autonomous) THEN - beta3 = H*gamma3 - DO 190 j=1,NVAR - K3(j) = K3(j) + beta3*DFDT(j) - 190 CONTINUE - END IF - CALL KppSolve (AJAC, K3) -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - CALL DJACDPAR(NVAR, NSENSIT, T, y, K3(1), DJDP) - END IF -C --- End of derivative w.r.t. parameters - - CALL JAC_CHEM(NVAR, T+alpha3*H, ynew, JAC) - njac=njac+1 - DO 220 i=1,NSENSIT - CALL Jac_SP_Vec (JAC,ynew(i*NVAR+1),K3(i*NVAR+1)) - CALL Hess_Vec ( HESS, y(i*NVAR+1), K3(1), Hv ) - DO 200 j = 1,NVAR - K3(i*NVAR+j) = K3(i*NVAR+j) + beta1*K1(i*NVAR+j) - & + beta2*K2(i*NVAR+j) + Hv(j) - 200 CONTINUE - IF (.NOT. Autonomous) THEN - DO 210 j=1,NVAR - K3(i*NVAR+j) = K3(i*NVAR+j) + beta3*DFDT(i*NVAR+j) - 210 CONTINUE - END IF -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - DO 215 j = 1,NVAR - K3(i*NVAR+j) = K3(i*NVAR+j) + DFDP((i-1)*NVAR+j) - & + DJDP((i-1)*NVAR+j) - 215 CONTINUE - END IF -C --- End of derivative w.r.t. parameters - CALL KppSolve (AJAC, K3(i*NVAR+1)) - 220 CONTINUE - -C ------------ STAGE 4 ------------------------- -C Note: uses the same function values as stage 3 - beta1 = c41/H - beta2 = c42/H - beta3 = c43/H - DO 230 j = 1,NVAR - K4(j) = Fv(j) + beta1*K1(j) + beta2*K2(j) + beta3*K3(j) - 230 CONTINUE - IF (.NOT. Autonomous) THEN - beta4 = H*gamma4 - DO 240 j=1,NVAR - K4(j) = K4(j) + beta4*DFDT(j) - 240 CONTINUE - END IF - CALL KppSolve (AJAC, K4) -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - CALL DJACDPAR(NVAR, NSENSIT, T, y, K4(1), DJDP) - END IF -C --- End of derivative w.r.t. parameters - - njac=njac+1 - DO 270 i=1,NSENSIT - CALL Jac_SP_Vec (JAC,ynew(i*NVAR+1),K4(i*NVAR+1)) - CALL Hess_Vec ( HESS, y(i*NVAR+1), K4(1), Hv ) - DO 250 j = 1,NVAR - K4(i*NVAR+j) = K4(i*NVAR+j) + beta1*K1(i*NVAR+j) - & + beta2*K2(i*NVAR+j) + beta3*K3(i*NVAR+j) - & + Hv(j) - 250 CONTINUE - IF (.NOT. Autonomous) THEN - DO 260 j=1,NVAR - K4(i*NVAR+j) = K4(i*NVAR+j) + beta4*DFDT(i*NVAR+j) - 260 CONTINUE - END IF -C --- If derivative w.r.t. parameters - IF (DDMTYPE .EQ. 1) THEN - DO 265 j = 1,NVAR - K4(i*NVAR+j) = K4(i*NVAR+j) + DFDP((i-1)*NVAR+j) - & + DJDP((i-1)*NVAR+j) - 265 CONTINUE - END IF - CALL KppSolve (AJAC, K4(i*NVAR+1)) - 270 CONTINUE - - -C ---- The Solution --- - DO 280 j = 1,NVAR*(NSENSIT+1) - ynew(j) = y(j) + b1*K1(j) + b2*K2(j) + b3*K3(j) + b4*K4(j) - 280 CONTINUE - - -C ====== Error estimation -- can be extended to control sensitivities too ======== - - ERR = 0.d0 - DO 290 i=1,NVAR - w = AbsTol(i) + RelTol(i)*DMAX1(DABS(ynew(i)),DABS(y(i))) - e = d1*K1(i) + d2*K2(i) + d3*K3(i) + d4*K4(i) - ERR = ERR + ( e/w )**2 - 290 CONTINUE - ERR = DMAX1( uround, DSQRT( ERR/NVAR ) ) - -C ======= Choose the stepsize =============================== - - elo = 4.0D0 ! estimator local order - factor = DMAX1(2.0D-1,DMIN1(6.0D0,ERR**(1.0D0/elo)/.9D0)) - Hnew = DMIN1(Hmax,DMAX1(Hmin, H/factor)) - -C ======= Rejected/Accepted Step ============================ - - IF ( (ERR.gt.1).and.(H.gt.Hmin) ) THEN - IsReject = .true. - H = DMIN1(H/10,Hnew) - Nreject = Nreject+1 - ELSE - DO 300 i=1,NVAR*(NSENSIT+1) - y(i) = ynew(i) - 300 CONTINUE - T = Tplus - IF (.NOT.IsReject) THEN - H = Hnew ! Do not increase stepsize if previos step was rejected - END IF - IsReject = .false. - Naccept = Naccept+1 - END IF - -C ======= End of the time loop =============================== - IF ( T .lt. Tnext ) GO TO 10 - - - -C ======= Output Information ================================= - Info(2) = Nfcn - Info(3) = Njac - Info(4) = Naccept - Info(5) = Nreject - Hstart = H - - RETURN - END - - - - SUBROUTINE FUNC_CHEM(N, T, Y, P) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - KPP_REAL T, Told - KPP_REAL Y(NVAR), P(NVAR) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, P ) - TIME = Told - RETURN - END - - - SUBROUTINE DFUNDPAR(N, NSENSIT, T, Y, P) -C --- Computes the partial derivatives of FUNC_CHEM w.r.t. parameters - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' -C --- NCOEFF, JCOEFF useful for derivatives w.r.t. rate coefficients - INTEGER NCOEFF, JCOEFF(NREACT) - COMMON /DDMRCOEFF/ NCOEFF, JCOEFF - - KPP_REAL T, Told - KPP_REAL Y(NVAR), P(NVAR*NSENSIT) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() -C - IF (DDMTYPE .EQ. 0) THEN -C --- Note: the values below are for sensitivities w.r.t. initial values; -C --- they may have to be changed for other applications - DO j=1,NSENSIT - DO i=1,NVAR - P(i+NVAR*(j-1)) = 0.0D0 - END DO - END DO - ELSE -C --- Example: the call below is for sensitivities w.r.t. rate coefficients; -C --- JCOEFF(1:NSENSIT) are the indices of the NSENSIT rate coefficients -C --- w.r.t. which one differentiates - CALL dFun_dRcoeff( Y, FIX, NCOEFF, JCOEFF, P ) - END IF - TIME = Told - RETURN - END - - SUBROUTINE JAC_CHEM(N, T, Y, J) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INTEGER N - KPP_REAL Told, T - KPP_REAL Y(NVAR), J(LU_NONZERO) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Jac_SP( Y, FIX, RCONST, J ) - TIME = Told - RETURN - END - - - SUBROUTINE DJACDPAR(N, NSENSIT, T, Y, U, P) -C --- Computes the partial derivatives of JAC w.r.t. parameters times user vector U - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' -C --- NCOEFF, JCOEFF useful for derivatives w.r.t. rate coefficients - INTEGER N - INTEGER NCOEFF, JCOEFF(NREACT) - COMMON /DDMRCOEFF/ NCOEFF, JCOEFF - - KPP_REAL T, Told - KPP_REAL Y(NVAR), U(NVAR) - KPP_REAL P(NVAR*NSENSIT) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() -C - IF (DDMTYPE .EQ. 0) THEN -C --- Note: the values below are for sensitivities w.r.t. initial values; -C --- they may have to be changed for other applications - DO j=1,NSENSIT - DO i=1,NVAR - P(i+NVAR*(j-1)) = 0.0D0 - END DO - END DO - ELSE -C --- Example: the call below is for sensitivities w.r.t. rate coefficients; -C --- JCOEFF(1:NSENSIT) are the indices of the NSENSIT rate coefficients -C --- w.r.t. which one differentiates - CALL dJac_dRcoeff( Y, FIX, U, NCOEFF, JCOEFF, P ) - END IF - TIME = Told - RETURN - END - - - SUBROUTINE HESS_CHEM(N, T, Y, HESS) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - INTEGER N - KPP_REAL Told, T - KPP_REAL Y(NVAR), HESS(NHESS) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Hessian( Y, FIX, RCONST, HESS ) - TIME = Told - RETURN - END - - - - - - diff --git a/int.modified_WCOPY/oldies/twostepj.def b/int.modified_WCOPY/oldies/twostepj.def deleted file mode 100644 index 2e635625095adee785bd0f03e7a2407586455aa2..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/twostepj.def +++ /dev/null @@ -1,16 +0,0 @@ - -#FUNCTION SPLIT -#JACOBIAN OFF -#SPARSEDATA OFF -#DOUBLE ON -#INTFILE twostepj - -#INLINE F_INIT_INT - STEPMIN=0.0001 - STEPMAX=60. -#ENDINLINE - -#INLINE C_INIT_INT - STEPMIN=0.0001; - STEPMAX=60.; -#ENDINLINE diff --git a/int.modified_WCOPY/oldies/twostepj.f b/int.modified_WCOPY/oldies/twostepj.f deleted file mode 100644 index cb8dfe6ceeabffb81595b815cf2e98c2932d4933..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/oldies/twostepj.f +++ /dev/null @@ -1,244 +0,0 @@ - SUBROUTINE INTEGRATE( TIN, TOUT ) - - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - -C TIN - Start Time - KPP_REAL TIN -C TOUT - End Time - KPP_REAL TOUT - EXTERNAL ITER - KPP_REAL T - KPP_REAL V(NVAR), VOLD(NVAR), VNEW(NVAR) - KPP_REAL startdt, hmin, hmax, h - - INTEGER INFO(5) - - INFO(1) = Autonomous - h = hmin - -c Number of Jacobi-Seidel iterations - numit = 3 - - - DO i=1,NVAR - RTOL(i) = 1.e-2 - ENDDO - - CALL twostepj(NVAR,TIN,TOUT,h,hmin,hmax, - + VOLD,VAR,VNEW, - + ATOL,RTOL,numit, - + nfcn,naccpt,nrejec,nstart,startdt,ITER) - - - RETURN - END - - - - SUBROUTINE ITER(n,T,y,yp,yl) - INCLUDE 'KPP_ROOT_params.h' - INCLUDE 'KPP_ROOT_global.h' - REAL*8 T, y(NVAR), yp(NVAR), yl(NVAR) - TOLD = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL FunSPLIT_VAR(y,Rad,yp,yl) - TIME = TOLD - RETURN - END - - - subroutine twostepj(n,t,te,dt,dtmin,dtmax, - + yold,y,ynew, - + atol,rtol,numit, - + nfcn,naccpt,nrejec,nstart,startdt,ITER) - implicit real*8 (a-h,o-z) - external ITER - integer n,numit,nfcn,naccpt,nrejec,nstart,i,j - real*8 t,te,dt,dtmin,dtmax,startdt,ytol, - + ratio,dtold,a1,a2,c,cp1,dtg,errlte,dy - real*8 yold(n),y(n),ynew(n),yp(n),yl(n), - + work(n),sum(n),atol(n),rtol(n) - logical accept,failer,restart - -c -c Initialization of counters, etc. - - naccpt=0 - nrejec=0 - nfcn=0 - nstart=0 - failer=.false. - restart=.false. - accept=.true. - -c Initial stepsize computation. - - 10 if (dtmin.eq.dtmax) then - nstart=1 - dt=min(dtmin,(te-t)/2) - goto 28 - endif - CALL ITER(n,t,y,yp,yl) - nfcn=nfcn+1 - dt=te-t - do 20 i=1,n - ytol=atol(i)+rtol(i)*abs(y(i)) - dy=yp(i)-y(i)*yl(i) - if (dy.ne.0.0) dt=min(dt,ytol/abs(dy)) - 20 continue - 25 nstart=nstart+1 - if (restart) dt=dt/10.0 - restart=.true. - dt=max(dtmin,min(dt,dtmax)) - CALL FIT(t,te,dt) - dt=min(dt,(te-t)/2) - startdt=dt - -c The starting step is carried out, using the implicit Euler method. - - 28 do 30 i=1,n - ynew(i)=y(i) - yold(i)=y(i) - sum(i)=y(i) - 30 continue - do 40 i=1,numit - CALL ITER(n,t+dt,ynew,yp,yl) - do i2i=1,n - ynew(i2i) = (sum(i2i) + dt*yp(i2i))/(1.+dt*yl(i2i)) - end do - nfcn=nfcn+1 - 40 continue - naccpt=naccpt+1 - t=t+dt - do 50 j=1,n - y(j)=ynew(j) - 50 continue - -c Subsequent steps are carried out with the two-step BDF method. - - dtold=dt - ratio=1.0 - 60 continue - c=1.0/ratio - cp1=c+1.0 - a1=((c+1.0)**2)/(c*c+2.0*c) - a2=-1.0/(c*c+2.0*c) - dtg=dt*(1.0+c)/(2.0+c) - do 70 j=1,n - sum(j)=a1*y(j)+a2*yold(j) - ynew(j)=max(0.0,y(j)+ratio*(y(j)-yold(j))) - 70 continue - do 80 i=1,numit - CALL ITER(n,t+dt,ynew,yp,yl) - do i2i=1,n - ynew(i2i) = (sum(i2i) + dtg*yp(i2i))/(1.+dtg*yl(i2i)) - end do - nfcn=nfcn+1 - 80 continue - -c If stepsizes should remain equal, stepsize control is omitted. - - if (dtmin.eq.dtmax) then - t=t+dtold - naccpt=naccpt+1 - do 85 j=1,n - yold(j)=y(j) - y(j)=ynew(j) - 85 continue - if (dt.ne.dtold) then - t=t-dtold+dt - goto 120 - endif - dt=min(dtold,te-t) - ratio=dt/dtold - if (t.ge.te) goto 120 - goto 60 - endif - -c Otherwise stepsize control is carried out. - - errlte=0.0 - do 90 i=1,n - ytol=atol(i)+rtol(i)*abs(y(i)) - errlte=max(errlte,abs(c*ynew(i)-cp1*y(i)+yold(i))/ytol) - 90 continue - errlte=2.0*errlte/(c+c*c) - CALL NEWDT(t,te,dt,dtold,ratio,errlte,accept, - + dtmin,dtmax) - -c Here the step has been accepted. - - if (accept) then - 201 format(2(E24.16,1X)) - failer=.false. - restart=.false. - t=t+dtold - naccpt=naccpt+1 - do 100 j=1,n - yold(j)=y(j) - y(j)=ynew(j) - 100 continue - if (t.ge.te) goto 120 - goto 60 - endif - -c A restart check is carried out. - - if (failer) then - nrejec=nrejec+1 - failer=.false. - naccpt=naccpt-1 - t=t-dtold - do 110 j=1,n - y(j)=yold(j) - 110 continue - goto 25 - endif - -c Here the step has been rejected. - - nrejec=nrejec+1 - failer=.true. - goto 60 - -c End of TWOSTEP. - 120 end -c===================================================================== - - subroutine NEWDT(t,te,dt,dtold,ratio,errlte, - + accept,dtmin,dtmax) - real*8 t,te,dt,dtold,ratio,errlte,ts,dtmin,dtmax - logical accept - if (errlte.gt.1.0.and.dt.gt.dtmin) then - accept=.false. - ts=t - else - accept=.true. - dtold=dt - ts=t+dtold - endif - dt=max(0.5,min(2.0,0.8/sqrt(errlte)))*dt - dt=max(dtmin,min(dt,dtmax)) - CALL FIT(ts,te,dt) - ratio=dt/dtold - end - - subroutine FIT(t,te,dt) - real*8 t,te,dt,rns - integer ns - rns=(te-t)/dt - if (rns.gt.10.0) goto 10 - ns=int(rns)+1 - dt=(te-t)/ns - dt=(dt+t)-t - 10 return - end - - - -C End of MAIN function -C **************************************************************** - diff --git a/int.modified_WCOPY/readme b/int.modified_WCOPY/readme deleted file mode 100644 index 93d30ab72154c5b57123c3163f80f8091880f6dd..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/readme +++ /dev/null @@ -1,21 +0,0 @@ -The integrator naming conventions: - -*.def = definition file -*.f = Fortran 77 source code -*.f90 = Fortran 90 source code -*.c = C source code - -atm_* = off-the-shelf integrators, adapted to work with KPP - use the native full linear algebra - useful for providing reference solutions - -kpp_* = off-the-shelf integrators, using the KPP sparse linear algebra - very efficient, useful for production runs - -plain names = original integrators - either use the KPP sparse linear algebra, or provide - explicit solutions - -*_ddm = direct decoupled method - integrate for both the concentrations and their sensitivities - implements the forward and the tangent linear models together diff --git a/int.modified_WCOPY/rosenbrock.c b/int.modified_WCOPY/rosenbrock.c deleted file mode 100644 index 27eb893039d8efaba12f8b1a8682021f51aa1202..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/rosenbrock.c +++ /dev/null @@ -1,1216 +0,0 @@ - - #define MAX(a,b) ( ((a) >= (b)) ?(a):(b) ) - #define MIN(b,c) ( ((b) < (c)) ?(b):(c) ) - #define ABS(x) ( ((x) >= 0 ) ?(x):(-x) ) - #define SQRT(d) ( pow((d),0.5) ) - #define SIGN(x) ( ((x) >= 0 ) ?[0]:(-1) ) - -/*~~> Numerical constants */ - #define ZERO (KPP_REAL)0.0 - #define ONE (KPP_REAL)1.0 - #define HALF (KPP_REAL)0.5 - #define DeltaMin (KPP_REAL)1.0e-6 - -/*~~~> Collect statistics: global variables */ - int Nfun,Njac,Nstp,Nacc,Nrej,Ndec,Nsol,Nsng; - - -/*~~~> Function headers */ - void FunTemplate(KPP_REAL, KPP_REAL [], KPP_REAL []); - void JacTemplate(KPP_REAL, KPP_REAL [], KPP_REAL []) ; - int Rosenbrock(KPP_REAL Y[], KPP_REAL Tstart, KPP_REAL Tend, - KPP_REAL AbsTol[], KPP_REAL RelTol[], - void (*ode_Fun)(KPP_REAL, KPP_REAL [], KPP_REAL []), - void (*ode_Jac)(KPP_REAL, KPP_REAL [], KPP_REAL []), - KPP_REAL RPAR[], int IPAR[]); - int RosenbrockIntegrator( - KPP_REAL Y[], KPP_REAL Tstart, KPP_REAL Tend , - KPP_REAL AbsTol[], KPP_REAL RelTol[], - void (*ode_Fun)(KPP_REAL, KPP_REAL [], KPP_REAL []), - void (*ode_Jac)(KPP_REAL, KPP_REAL [], KPP_REAL []), - int ros_S, - KPP_REAL ros_M[], KPP_REAL ros_E[], - KPP_REAL ros_A[], KPP_REAL ros_C[], - KPP_REAL ros_Alpha[],KPP_REAL ros_Gamma[], - KPP_REAL ros_ELO, char ros_NewF[], - char Autonomous, char VectorTol, int Max_no_steps, - KPP_REAL Roundoff, KPP_REAL Hmin, KPP_REAL Hmax, KPP_REAL Hstart, - KPP_REAL FacMin, KPP_REAL FacMax, KPP_REAL FacRej, KPP_REAL FacSafe, - KPP_REAL *Texit, KPP_REAL *Hexit ); - char ros_PrepareMatrix ( - KPP_REAL* H, - int Direction, KPP_REAL gam, KPP_REAL Jac0[], - KPP_REAL Ghimj[], int Pivot[] ); - KPP_REAL ros_ErrorNorm ( - KPP_REAL Y[], KPP_REAL Ynew[], KPP_REAL Yerr[], - KPP_REAL AbsTol[], KPP_REAL RelTol[], - char VectorTol ); - int ros_ErrorMsg(int Code, KPP_REAL T, KPP_REAL H); - void ros_FunTimeDerivative ( - KPP_REAL T, KPP_REAL Roundoff, - KPP_REAL Y[], KPP_REAL Fcn0[], - void ode_Fun(KPP_REAL, KPP_REAL [], KPP_REAL []), - KPP_REAL dFdT[] ); - void Fun( KPP_REAL Y[], KPP_REAL FIX[], KPP_REAL RCONST[], KPP_REAL Ydot[] ); - void Jac_SP( KPP_REAL Y[], KPP_REAL FIX[], KPP_REAL RCONST[], KPP_REAL Ydot[] ); - void FunTemplate( KPP_REAL T, KPP_REAL Y[], KPP_REAL Ydot[] ); - void JacTemplate( KPP_REAL T, KPP_REAL Y[], KPP_REAL Ydot[] ); - void DecompTemplate( KPP_REAL A[], int Pivot[], int* ising ); - void SolveTemplate( KPP_REAL A[], int Pivot[], KPP_REAL b[] ); - void WCOPY(int N, KPP_REAL X[], int incX, KPP_REAL Y[], int incY); - void WAXPY(int N, KPP_REAL Alpha, KPP_REAL X[], int incX, KPP_REAL Y[], int incY ); - void WSCAL(int N, KPP_REAL Alpha, KPP_REAL X[], int incX); - KPP_REAL WLAMCH( char C ); - void Ros2 ( int *ros_S, KPP_REAL ros_A[], KPP_REAL ros_C[], - KPP_REAL ros_M[], KPP_REAL ros_E[], - KPP_REAL ros_Alpha[], KPP_REAL ros_Gamma[], - char ros_NewF[], KPP_REAL *ros_ELO, char* ros_Name ); - void Ros3 ( int *ros_S, KPP_REAL ros_A[], KPP_REAL ros_C[], - KPP_REAL ros_M[], KPP_REAL ros_E[], - KPP_REAL ros_Alpha[], KPP_REAL ros_Gamma[], - char ros_NewF[], KPP_REAL *ros_ELO, char* ros_Name ); - void Ros4 ( int *ros_S, KPP_REAL ros_A[], KPP_REAL ros_C[], - KPP_REAL ros_M[], KPP_REAL ros_E[], - KPP_REAL ros_Alpha[], KPP_REAL ros_Gamma[], - char ros_NewF[], KPP_REAL *ros_ELO, char* ros_Name ); - void Rodas3 ( int *ros_S, KPP_REAL ros_A[], KPP_REAL ros_C[], - KPP_REAL ros_M[], KPP_REAL ros_E[], - KPP_REAL ros_Alpha[], KPP_REAL ros_Gamma[], - char ros_NewF[], KPP_REAL *ros_ELO, char* ros_Name ); - void Rodas4 ( int *ros_S, KPP_REAL ros_A[], KPP_REAL ros_C[], - KPP_REAL ros_M[], KPP_REAL ros_E[], - KPP_REAL ros_Alpha[], KPP_REAL ros_Gamma[], - char ros_NewF[], KPP_REAL *ros_ELO, char* ros_Name ); - int KppDecomp( KPP_REAL A[] ); - void KppSolve ( KPP_REAL A[], KPP_REAL b[] ); - void Update_SUN(); - void Update_RCONST(); - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void INTEGRATE( KPP_REAL TIN, KPP_REAL TOUT ) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - static KPP_REAL RPAR[20]; - static int i, IERR, IPAR[20]; - static int Ns=0, Na=0, Nr=0, Ng=0; - - for ( i = 0; i < 20; i++ ) { - IPAR[i] = 0; - RPAR[i] = ZERO; - } /* for */ - - - IPAR[0] = 0; /* non-autonomous */ - IPAR[1] = 1; /* vector tolerances */ - RPAR[2] = STEPMIN; /* starting step */ - IPAR[3] = 5; /* choice of the method */ - - IERR = Rosenbrock(VAR, TIN, TOUT, - ATOL, RTOL, - &FunTemplate, &JacTemplate, - RPAR, IPAR); - - - Ns=Ns+IPAR[12]; - Na=Na+IPAR[13]; - Nr=Nr+IPAR[14]; - Ng=Ng+IPAR[17]; - printf("\n Step=%d Acc=%d Rej=%d Singular=%d\n", - Ns,Na,Nr,Ng); - - - if (IERR < 0) - printf("\n Rosenbrock: Unsucessful step at T=%g: IERR=%d\n", - TIN,IERR); - - TIN = RPAR[10]; /* Exit time */ - STEPMIN = RPAR[11]; /* Last step */ - -} /* INTEGRATE */ - - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -int Rosenbrock(KPP_REAL Y[], KPP_REAL Tstart, KPP_REAL Tend, - KPP_REAL AbsTol[], KPP_REAL RelTol[], - void (*ode_Fun)(KPP_REAL, KPP_REAL [], KPP_REAL []), - void (*ode_Jac)(KPP_REAL, KPP_REAL [], KPP_REAL []), - KPP_REAL RPAR[], int IPAR[]) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - Solves the system y'=F(t,y) using a Rosenbrock method defined by: - - G = 1/(H*gamma[0]) - ode_Jac(t0,Y0) - T_i = t0 + Alpha(i)*H - Y_i = Y0 + \sum_{j=1}^{i-1} A(i,j)*K_j - G * K_i = ode_Fun( T_i, Y_i ) + \sum_{j=1}^S C(i,j)/H * K_j + - gamma(i)*dF/dT(t0, Y0) - Y1 = Y0 + \sum_{j=1}^S M(j)*K_j - - For details on Rosenbrock methods and their implementation consult: - E. Hairer and G. Wanner - "Solving ODEs II. Stiff and differential-algebraic problems". - Springer series in computational mathematics, Springer-Verlag, 1996. - The codes contained in the book inspired this implementation. - - (C) Adrian Sandu, August 2004 - Virginia Polytechnic Institute and State University - Contact: sandu@cs.vt.edu - This implementation is part of KPP - the Kinetic PreProcessor -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - *~~~> INPUT ARGUMENTS: - -- Y(NVAR) = vector of initial conditions (at T=Tstart) -- [Tstart,Tend] = time range of integration - (if Tstart>Tend the integration is performed backwards in time) -- RelTol, AbsTol = user precribed accuracy -- void ode_Fun( T, Y, Ydot ) = ODE function, - returns Ydot = Y' = F(T,Y) -- void ode_Fun( T, Y, Ydot ) = Jacobian of the ODE function, - returns Jcb = dF/dY -- IPAR(1:10) = int inputs parameters -- RPAR(1:10) = real inputs parameters -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - *~~~> OUTPUT ARGUMENTS: - -- Y(NVAR) -> vector of final states (at T->Tend) -- IPAR(11:20) -> int output parameters -- RPAR(11:20) -> real output parameters -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - *~~~> RETURN VALUE (int): - -- IERR -> job status upon return - - succes (positive value) or failure (negative value) - - = 1 : Success - = -1 : Improper value for maximal no of steps - = -2 : Selected Rosenbrock method not implemented - = -3 : Hmin/Hmax/Hstart must be positive - = -4 : FacMin/FacMax/FacRej must be positive - = -5 : Improper tolerance values - = -6 : No of steps exceeds maximum bound - = -7 : Step size too small - = -8 : Matrix is repeatedly singular -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - *~~~> INPUT PARAMETERS: - - Note: For input parameters equal to zero the default values of the - corresponding variables are used. - - IPAR[0] = 1: F = F(y) Independent of T (AUTONOMOUS) - = 0: F = F(t,y) Depends on T (NON-AUTONOMOUS) - IPAR[1] = 0: AbsTol, RelTol are NVAR-dimensional vectors - = 1: AbsTol, RelTol are scalars - IPAR[2] -> maximum number of integration steps - For IPAR[2]=0) the default value of 100000 is used - - IPAR[3] -> selection of a particular Rosenbrock method - = 0 : default method is Rodas3 - = 1 : method is Ros2 - = 2 : method is Ros3 - = 3 : method is Ros4 - = 4 : method is Rodas3 - = 5: method is Rodas4 - - RPAR[0] -> Hmin, lower bound for the integration step size - It is strongly recommended to keep Hmin = ZERO - RPAR[1] -> Hmax, upper bound for the integration step size - RPAR[2] -> Hstart, starting value for the integration step size - - RPAR[3] -> FacMin, lower bound on step decrease factor (default=0.2) - RPAR[4] -> FacMin,upper bound on step increase factor (default=6) - RPAR[5] -> FacRej, step decrease factor after multiple rejections - (default=0.1) - RPAR[6] -> FacSafe, by which the new step is slightly smaller - than the predicted value (default=0.9) -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - *~~~> OUTPUT PARAMETERS: - - Note: each call to Rosenbrock adds the corrent no. of fcn calls - to previous value of IPAR[10], and similar for the other params. - Set IPAR(11:20) = 0 before call to avoid this accumulation. - - IPAR[10] = No. of function calls - IPAR[11] = No. of jacobian calls - IPAR[12] = No. of steps - IPAR[13] = No. of accepted steps - IPAR[14] = No. of rejected steps (except at the beginning) - IPAR[15] = No. of LU decompositions - IPAR[16] = No. of forward/backward substitutions - IPAR[17] = No. of singular matrix decompositions - - RPAR[10] -> Texit, the time corresponding to the - computed Y upon return - RPAR[11] -> Hexit, last accepted step before exit - For multiple restarts, use Hexit as Hstart in the following run -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ -{ - - /*~~~> The method parameters */ - #define Smax 6 - int Method, ros_S; - KPP_REAL ros_M[Smax], ros_E[Smax]; - KPP_REAL ros_A[Smax*(Smax-1)/2], ros_C[Smax*(Smax-1)/2]; - KPP_REAL ros_Alpha[Smax], ros_Gamma[Smax], ros_ELO; - char ros_NewF[Smax], ros_Name[12]; - /*~~~> Local variables */ - int Max_no_steps, IERR, i, UplimTol; - char Autonomous, VectorTol; - KPP_REAL Roundoff,FacMin,FacMax,FacRej,FacSafe; - KPP_REAL Hmin, Hmax, Hstart, Hexit, Texit; -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ - - /*~~~> Initialize statistics */ - Nfun = IPAR[10]; - Njac = IPAR[11]; - Nstp = IPAR[12]; - Nacc = IPAR[13]; - Nrej = IPAR[14]; - Ndec = IPAR[15]; - Nsol = IPAR[16]; - Nsng = IPAR[17]; - - /*~~~> Autonomous or time dependent ODE. Default is time dependent. */ - Autonomous = !(IPAR[0] == 0); - - /*~~~> For Scalar tolerances (IPAR[1] != 0) the code uses AbsTol[0] and RelTol[0] -! For Vector tolerances (IPAR[1] == 0) the code uses AbsTol(1:NVAR) and RelTol(1:NVAR) */ - if (IPAR[1] == 0) { - VectorTol = 1; UplimTol = KPP_NVAR; - } else { - VectorTol = 0; UplimTol = 1; - } /* end if */ - - /*~~~> The maximum number of steps admitted */ - if (IPAR[2] == 0) - Max_no_steps = 100000; - else - Max_no_steps=IPAR[2]; - if (Max_no_steps < 0) { - printf("\n User-selected max no. of steps: IPAR[2]=%d\n",IPAR[2]); - return ros_ErrorMsg(-1,Tstart,ZERO); - } /* end if */ - - /*~~~> The particular Rosenbrock method chosen */ - if (IPAR[3] == 0) - Method = 3; - else - Method = IPAR[3]; - if ( (IPAR[3] < 1) || (IPAR[3] > 5) ){ - printf("\n User-selected Rosenbrock method: IPAR[3]=%d\n",IPAR[3]); - return ros_ErrorMsg(-2,Tstart,ZERO); - } /* end if */ - - /*~~~> Unit Roundoff (1+Roundoff>1) */ - Roundoff = WLAMCH('E'); - - /*~~~> Lower bound on the step size: (positive value) */ - Hmin = RPAR[0]; - if (RPAR[0] < ZERO) { - printf("\n User-selected Hmin: RPAR[0]=%e\n", RPAR[0]); - return ros_ErrorMsg(-3,Tstart,ZERO); - } /* end if */ - /*~~~> Upper bound on the step size: (positive value) */ - if (RPAR[1] == ZERO) - Hmax = ABS(Tend-Tstart); - else - Hmax = MIN(ABS(RPAR[1]),ABS(Tend-Tstart)); - if (RPAR[1] < ZERO) { - printf("\n User-selected Hmax: RPAR[1]=%e\n", RPAR[1]); - return ros_ErrorMsg(-3,Tstart,ZERO); - } /* end if */ - /*~~~> Starting step size: (positive value) */ - if (RPAR[2] == ZERO) - Hstart = MAX(Hmin,DeltaMin); - else - Hstart = MIN(ABS(RPAR[2]),ABS(Tend-Tstart)); - if (RPAR[2] < ZERO) { - printf("\n User-selected Hstart: RPAR[2]=%e\n", RPAR[2]); - return ros_ErrorMsg(-3,Tstart,ZERO); - } /* end if */ - /*~~~> Step size can be changed s.t. FacMin < Hnew/Hexit < FacMax */ - if (RPAR[3] == ZERO) - FacMin = (KPP_REAL)0.2; - else - FacMin = RPAR[3]; - if (RPAR[3] < ZERO) { - printf("\n User-selected FacMin: RPAR[3]=%e\n", RPAR[3]); - return ros_ErrorMsg(-4,Tstart,ZERO); - } /* end if */ - if (RPAR[4] == ZERO) - FacMax = (KPP_REAL)6.0; - else - FacMax = RPAR[4]; - if (RPAR[4] < ZERO) { - printf("\n User-selected FacMax: RPAR[4]=%e\n", RPAR[4]); - return ros_ErrorMsg(-4,Tstart,ZERO); - } /* end if */ - /*~~~> FacRej: Factor to decrease step after 2 succesive rejections */ - if (RPAR[5] == ZERO) - FacRej = (KPP_REAL)0.1; - else - FacRej = RPAR[5]; - if (RPAR[5] < ZERO) { - printf("\n User-selected FacRej: RPAR[5]=%e\n", RPAR[5]); - return ros_ErrorMsg(-4,Tstart,ZERO); - } /* end if */ - /*~~~> FacSafe: Safety Factor in the computation of new step size */ - if (RPAR[6] == ZERO) - FacSafe = (KPP_REAL)0.9; - else - FacSafe = RPAR[6]; - if (RPAR[6] < ZERO) { - printf("\n User-selected FacSafe: RPAR[6]=%e\n", RPAR[6]); - return ros_ErrorMsg(-4,Tstart,ZERO); - } /* end if */ - /*~~~> Check if tolerances are reasonable */ - for (i = 0; i < UplimTol; i++) { - if ( (AbsTol[i] <= ZERO) || (RelTol[i] <= 10.0*Roundoff) - || (RelTol[i] >= ONE) ) { - printf("\n AbsTol[%d] = %e\n",i,AbsTol[i]); - printf("\n RelTol[%d] = %e\n",i,RelTol[i]); - return ros_ErrorMsg(-5,Tstart,ZERO); - } /* end if */ - } /* for */ - - - /*~~~> Initialize the particular Rosenbrock method */ - switch (Method) { - case 1: - Ros2(&ros_S, ros_A, ros_C, ros_M, ros_E, - ros_Alpha, ros_Gamma, ros_NewF, &ros_ELO, ros_Name); - break; - case 2: - Ros3(&ros_S, ros_A, ros_C, ros_M, ros_E, - ros_Alpha, ros_Gamma, ros_NewF, &ros_ELO, ros_Name); - break; - case 3: - Ros4(&ros_S, ros_A, ros_C, ros_M, ros_E, - ros_Alpha, ros_Gamma, ros_NewF, &ros_ELO, ros_Name); - break; - case 4: - Rodas3(&ros_S, ros_A, ros_C, ros_M, ros_E, - ros_Alpha, ros_Gamma, ros_NewF, &ros_ELO, ros_Name); - break; - case 5: - Rodas4(&ros_S, ros_A, ros_C, ros_M, ros_E, - ros_Alpha, ros_Gamma, ros_NewF, &ros_ELO, ros_Name); - break; - default: - printf("\n Unknown Rosenbrock method: IPAR[3]= %d", Method); - return ros_ErrorMsg(-2,Tstart,ZERO); - } /* end switch */ - - /*~~~> Rosenbrock method */ - IERR = RosenbrockIntegrator( Y,Tstart,Tend, - AbsTol, RelTol, - ode_Fun,ode_Jac , - /* Rosenbrock method coefficients */ - ros_S, ros_M, ros_E, ros_A, ros_C, - ros_Alpha, ros_Gamma, ros_ELO, ros_NewF, - /* Integration parameters */ - Autonomous, VectorTol, Max_no_steps, - Roundoff, Hmin, Hmax, Hstart, - FacMin, FacMax, FacRej, FacSafe, - /* Output parameters */ - &Texit, &Hexit ); - - - /*~~~> Collect run statistics */ - IPAR[10] = Nfun; - IPAR[11] = Njac; - IPAR[12] = Nstp; - IPAR[13] = Nacc; - IPAR[14] = Nrej; - IPAR[15] = Ndec; - IPAR[16] = Nsol; - IPAR[17] = Nsng; - /*~~~> Last T and H */ - RPAR[10] = Texit; - RPAR[11] = Hexit; - - return IERR; - -} /* Rosenbrock */ - - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -int RosenbrockIntegrator( - /*~~~> Input: the initial condition at Tstart; Output: the solution at T */ - KPP_REAL Y[], - /*~~~> Input: integration interval */ - KPP_REAL Tstart, KPP_REAL Tend , - /*~~~> Input: tolerances */ - KPP_REAL AbsTol[], KPP_REAL RelTol[], - /*~~~> Input: ode function and its Jacobian */ - void (*ode_Fun)(KPP_REAL, KPP_REAL [], KPP_REAL []), - void (*ode_Jac)(KPP_REAL, KPP_REAL [], KPP_REAL []) , - /*~~~> Input: The Rosenbrock method parameters */ - int ros_S, - KPP_REAL ros_M[], KPP_REAL ros_E[], - KPP_REAL ros_A[], KPP_REAL ros_C[], - KPP_REAL ros_Alpha[],KPP_REAL ros_Gamma[], - KPP_REAL ros_ELO, char ros_NewF[], - /*~~~> Input: integration parameters */ - char Autonomous, char VectorTol, - int Max_no_steps, - KPP_REAL Roundoff, KPP_REAL Hmin, KPP_REAL Hmax, KPP_REAL Hstart, - KPP_REAL FacMin, KPP_REAL FacMax, KPP_REAL FacRej, KPP_REAL FacSafe, - /*~~~> Output: time at which the solution is returned (T=Tend if success) - and last accepted step */ - KPP_REAL *Texit, KPP_REAL *Hexit ) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - Template for the implementation of a generic Rosenbrock method - defined by ros_S (no of stages) and coefficients ros_{A,C,M,E,Alpha,Gamma} - - returned value: IERR, indicator of success (if positive) - or failure (if negative) -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - KPP_REAL Ynew[KPP_NVAR], Fcn0[KPP_NVAR], Fcn[KPP_NVAR], - dFdT[KPP_NVAR], - Jac0[KPP_LU_NONZERO], Ghimj[KPP_LU_NONZERO]; - KPP_REAL K[KPP_NVAR*ros_S]; - KPP_REAL H, T, Hnew, HC, HG, Fac, Tau; - KPP_REAL Err, Yerr[KPP_NVAR]; - int Pivot[KPP_NVAR], Direction, ioffset, j, istage; - char RejectLastH, RejectMoreH; - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - /*~~~> INITIAL PREPARATIONS */ - T = Tstart; - *Hexit = 0.0; - H = MIN(Hstart,Hmax); - if (ABS(H) <= 10.0*Roundoff) - H = DeltaMin; - - if (Tend >= Tstart) { - Direction = +1; - } else { - Direction = -1; - } /* end if */ - - RejectLastH=0; RejectMoreH=0; - - /*~~~> Time loop begins below */ - - while ( ( (Direction > 0) && ((T-Tend)+Roundoff <= ZERO) ) - || ( (Direction < 0) && ((Tend-T)+Roundoff <= ZERO) ) ) { - - if ( Nstp > Max_no_steps ) { /* Too many steps */ - *Texit = T; - return ros_ErrorMsg(-6,T,H); - } - if ( ((T+0.1*H) == T) || (H <= Roundoff) ) { /* Step size too small */ - *Texit = T; - return ros_ErrorMsg(-7,T,H); - } - - /*~~~> Limit H if necessary to avoid going beyond Tend */ - *Hexit = H; - H = MIN(H,ABS(Tend-T)); - - /*~~~> Compute the function at current time */ - (*ode_Fun)(T,Y,Fcn0); - - /*~~~> Compute the function derivative with respect to T */ - if (!Autonomous) - ros_FunTimeDerivative ( T, Roundoff, Y, Fcn0, ode_Fun, dFdT ); - - /*~~~> Compute the Jacobian at current time */ - (*ode_Jac)(T,Y,Jac0); - - /*~~~> Repeat step calculation until current step accepted */ - while (1) { /* WHILE STEP NOT ACCEPTED */ - - - if( ros_PrepareMatrix( &H, Direction, ros_Gamma[0], - Jac0, Ghimj, Pivot) ) { /* More than 5 consecutive failed decompositions */ - *Texit = T; - return ros_ErrorMsg(-8,T,H); - } - - /*~~~> Compute the stages */ - for (istage = 1; istage <= ros_S; istage++) { - - /* Current istage offset. Current istage vector is K[ioffset:ioffset+KPP_NVAR-1] */ - ioffset = KPP_NVAR*(istage-1); - - /* For the 1st istage the function has been computed previously */ - if ( istage == 1 ) - WCOPY(KPP_NVAR,Fcn0,1,Fcn,1); - else { /* istage>1 and a new function evaluation is needed at current istage */ - if ( ros_NewF[istage-1] ) { - WCOPY(KPP_NVAR,Y,1,Ynew,1); - for (j = 1; j <= istage-1; j++) - WAXPY(KPP_NVAR,ros_A[(istage-1)*(istage-2)/2+j-1], - &K[KPP_NVAR*(j-1)],1,Ynew,1); - Tau = T + ros_Alpha[istage-1]*Direction*H; - (*ode_Fun)(Tau,Ynew,Fcn); - } /*end if ros_NewF(istage)*/ - } /* end if istage */ - - WCOPY(KPP_NVAR,Fcn,1,&K[ioffset],1); - for (j = 1; j <= istage-1; j++) { - HC = ros_C[(istage-1)*(istage-2)/2+j-1]/(Direction*H); - WAXPY(KPP_NVAR,HC,&K[KPP_NVAR*(j-1)],1,&K[ioffset],1); - } /* for j */ - - if ((!Autonomous) && (ros_Gamma[istage-1])) { - HG = Direction*H*ros_Gamma[istage-1]; - WAXPY(KPP_NVAR,HG,dFdT,1,&K[ioffset],1); - } /* end if !Autonomous */ - - SolveTemplate(Ghimj, Pivot, &K[ioffset]); - - } /* for istage */ - - - /*~~~> Compute the new solution */ - WCOPY(KPP_NVAR,Y,1,Ynew,1); - for (j=1; j<=ros_S; j++) - WAXPY(KPP_NVAR,ros_M[j-1],&K[KPP_NVAR*(j-1)],1,Ynew,1); - - /*~~~> Compute the error estimation */ - WSCAL(KPP_NVAR,ZERO,Yerr,1); - for (j=1; j<=ros_S; j++) - WAXPY(KPP_NVAR,ros_E[j-1],&K[KPP_NVAR*(j-1)],1,Yerr,1); - Err = ros_ErrorNorm ( Y, Ynew, Yerr, AbsTol, RelTol, VectorTol ); - - /*~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax */ - Fac = MIN(FacMax,MAX(FacMin,FacSafe/pow(Err,ONE/ros_ELO))); - Hnew = H*Fac; - - /*~~~> Check the error magnitude and adjust step size */ - Nstp++; - if ( (Err <= ONE) || (H <= Hmin) ) { /*~~~> Accept step */ - Nacc++; - WCOPY(KPP_NVAR,Ynew,1,Y,1); - T += Direction*H; - Hnew = MAX(Hmin,MIN(Hnew,Hmax)); - /* No step size increase after a rejected step */ - if (RejectLastH) - Hnew = MIN(Hnew,H); - RejectLastH = 0; RejectMoreH = 0; - H = Hnew; - break; /* EXIT THE LOOP: WHILE STEP NOT ACCEPTED */ - } else { /*~~~> Reject step */ - if (Nacc >= 1) - Nrej++; - if (RejectMoreH) - Hnew=H*FacRej; - RejectMoreH = RejectLastH; RejectLastH = 1; - H = Hnew; - } /* end if Err <= 1 */ - - } /* while LOOP: WHILE STEP NOT ACCEPTED */ - - } /* while: time loop */ - - /*~~~> The integration was successful */ - *Texit = T; - return 1; - -} /* RosenbrockIntegrator */ - - - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -KPP_REAL ros_ErrorNorm ( - /*~~~> Input arguments */ - KPP_REAL Y[], KPP_REAL Ynew[], KPP_REAL Yerr[], - KPP_REAL AbsTol[], KPP_REAL RelTol[], - char VectorTol ) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - Computes and returns the "scaled norm" of the error vector Yerr -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - /*~~~> Local variables */ - KPP_REAL Err, Scale, Ymax; - int i; - - Err = ZERO; - for (i=0; i Input arguments: */ - KPP_REAL T, KPP_REAL Roundoff, - KPP_REAL Y[], KPP_REAL Fcn0[], - void (*ode_Fun)(KPP_REAL, KPP_REAL [], KPP_REAL []), - /*~~~> Output arguments: */ - KPP_REAL dFdT[] ) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - The time partial derivative of the function by finite differences -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - /*~~~> Local variables */ - KPP_REAL Delta; - - Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T)); - (*ode_Fun)(T+Delta,Y,dFdT); - WAXPY(KPP_NVAR,(-ONE),Fcn0,1,dFdT,1); - WSCAL(KPP_NVAR,(ONE/Delta),dFdT,1); - -} /* ros_FunTimeDerivative */ - - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -char ros_PrepareMatrix ( - /* Inout argument: (step size is decreased when LU fails) */ - KPP_REAL* H, - /* Input arguments: */ - int Direction, KPP_REAL gam, KPP_REAL Jac0[], - /* Output arguments: */ - KPP_REAL Ghimj[], int Pivot[] ) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - Prepares the LHS matrix for stage calculations - 1. Construct Ghimj = 1/(H*ham) - Jac0 - "(Gamma H) Inverse Minus Jacobian" - 2. Repeat LU decomposition of Ghimj until successful. - -half the step size if LU decomposition fails and retry - -exit after 5 consecutive fails - - Return value: Singular (true=1=failed_LU or false=0=successful_LU) -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - /*~~~> Local variables */ - int i, ising, Nconsecutive; - KPP_REAL ghinv; - - Nconsecutive = 0; - - while (1) { /* while Singular */ - - /*~~~> Construct Ghimj = 1/(H*ham) - Jac0 */ - WCOPY(KPP_LU_NONZERO,Jac0,1,Ghimj,1); - WSCAL(KPP_LU_NONZERO,(-ONE),Ghimj,1); - ghinv = ONE/(Direction*(*H)*gam); - for (i=0; i Compute LU decomposition */ - DecompTemplate( Ghimj, Pivot, &ising ); - if (ising == 0) { - /*~~~> if successful done */ - return 0; /* Singular = false */ - } else { /* ising .ne. 0 */ - /*~~~> if unsuccessful half the step size; if 5 consecutive fails return */ - Nsng++; Nconsecutive++; - printf("\nWarning: LU Decomposition returned ising = %d\n",ising); - if (Nconsecutive <= 5) { /* Less than 5 consecutive failed LUs */ - *H = (*H)*HALF; - } else { /* More than 5 consecutive failed LUs */ - return 1; /* Singular = true */ - } /* end if Nconsecutive */ - } /* end if ising */ - - } /* while Singular */ - -} /* ros_PrepareMatrix */ - - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -int ros_ErrorMsg(int Code, KPP_REAL T, KPP_REAL H) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - Handles all error messages and returns IERR = error Code -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - printf("\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"); - printf("\nForced exit from Rosenbrock due to the following error:\n"); - - switch (Code) { - case -1: - printf("--> Improper value for maximal no of steps"); break; - case -2: - printf("--> Selected Rosenbrock method not implemented"); break; - case -3: - printf("--> Hmin/Hmax/Hstart must be positive"); break; - case -4: - printf("--> FacMin/FacMax/FacRej must be positive"); break; - case -5: - printf("--> Improper tolerance values"); break; - case -6: - printf("--> No of steps exceeds maximum bound"); break; - case -7: - printf("--> Step size too small (T + H/10 = T) or H < Roundoff"); break; - case -8: - printf("--> Matrix is repeatedly singular"); break; - default: - printf("Unknown Error code: %d ",Code); - } /* end switch */ - - printf("\n Time = %15.7e, H = %15.7e",T,H); - printf("\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"); - - return Code; - -} /* ros_ErrorMsg */ - - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void Ros2 ( int *ros_S, KPP_REAL ros_A[], KPP_REAL ros_C[], - KPP_REAL ros_M[], KPP_REAL ros_E[], - KPP_REAL ros_Alpha[], KPP_REAL ros_Gamma[], - char ros_NewF[], KPP_REAL *ros_ELO, char* ros_Name ) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - AN L-STABLE METHOD, 2 stages, order 2 -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - double g = (KPP_REAL)1.70710678118655; /* 1.0 + 1.0/SQRT(2.0) */ - - /*~~~> Name of the method */ - strcpy(ros_Name, "ROS-2"); - - /*~~~> Number of stages */ - *ros_S = 2; - - /*~~~> The coefficient matrices A and C are strictly lower triangular. - The lower triangular (subdiagonal) elements are stored in row-wise order: - A(2,1) = ros_A[0], A(3,1)=ros_A[1], A(3,2)=ros_A[2], etc. - The general mapping formula is: - A_{i,j} = ros_A[ (i-1)*(i-2)/2 + j -1 ] */ - ros_A[0] = 1.0/g; - - /*~~~> C_{i,j} = ros_C[ (i-1)*(i-2)/2 + j -1] */ - ros_C[0] = (-2.0)/g; - - /*~~~> does the stage i require a new function evaluation (ros_NewF(i)=TRUE) - or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) */ - ros_NewF[0] = 1; - ros_NewF[1] = 1; - - /*~~~> M_i = Coefficients for new step solution */ - ros_M[0]= (3.0)/(2.0*g); - ros_M[1]= (1.0)/(2.0*g); - - /*~~~> E_i = Coefficients for error estimator */ - ros_E[0] = 1.0/(2.0*g); - ros_E[1] = 1.0/(2.0*g); - - /*~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus one */ - *ros_ELO = (KPP_REAL)2.0; - - /*~~~> Y_stage_i ~ Y( T + H*Alpha_i ) */ - ros_Alpha[0] = (KPP_REAL)0.0; - ros_Alpha[1] = (KPP_REAL)1.0; - - /*~~~> Gamma_i = \sum_j gamma_{i,j} */ - ros_Gamma[0] = g; - ros_Gamma[1] = -g; - -} /* Ros2 */ - - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void Ros3 ( int *ros_S, KPP_REAL ros_A[], KPP_REAL ros_C[], - KPP_REAL ros_M[], KPP_REAL ros_E[], - KPP_REAL ros_Alpha[], KPP_REAL ros_Gamma[], - char ros_NewF[], KPP_REAL *ros_ELO, char* ros_Name ) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - AN L-STABLE METHOD, 3 stages, order 3, 2 function evaluations -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - /*~~~> Name of the method */ - strcpy(ros_Name, "ROS-3"); - - /*~~~> Number of stages */ - *ros_S = 3; - - /*~~~> The coefficient matrices A and C are strictly lower triangular. - The lower triangular (subdiagonal) elements are stored in row-wise order: - A(2,1) = ros_A[0], A(3,1)=ros_A[1], A(3,2)=ros_A[2], etc. - The general mapping formula is: - A_{i,j} = ros_A[ (i-1)*(i-2)/2 + j -1 ] */ - ros_A[0]= (KPP_REAL)1.0; - ros_A[1]= (KPP_REAL)1.0; - ros_A[2]= (KPP_REAL)0.0; - - /*~~~> C_{i,j} = ros_C[ (i-1)*(i-2)/2 + j -1] */ - ros_C[0] = (KPP_REAL)(-1.0156171083877702091975600115545); - ros_C[1] = (KPP_REAL)4.0759956452537699824805835358067; - ros_C[2] = (KPP_REAL)9.2076794298330791242156818474003; - - /*~~~> does the stage i require a new function evaluation (ros_NewF(i)=TRUE) - or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) */ - ros_NewF[0] = 1; - ros_NewF[1] = 1; - ros_NewF[2] = 0; - - /*~~~> M_i = Coefficients for new step solution */ - ros_M[0] = (KPP_REAL)1.0; - ros_M[1] = (KPP_REAL)6.1697947043828245592553615689730; - ros_M[2] = (KPP_REAL)(-0.4277225654321857332623837380651); - - /*~~~> E_i = Coefficients for error estimator */ - ros_E[0] = (KPP_REAL)0.5; - ros_E[1] = (KPP_REAL)(-2.9079558716805469821718236208017); - ros_E[2] = (KPP_REAL)0.2235406989781156962736090927619; - - /*~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 */ - *ros_ELO = (KPP_REAL)3.0; - - /*~~~> Y_stage_i ~ Y( T + H*Alpha_i ) */ - ros_Alpha[0]= (KPP_REAL)0.0; - ros_Alpha[1]= (KPP_REAL)0.43586652150845899941601945119356; - ros_Alpha[2]= (KPP_REAL)0.43586652150845899941601945119356; - - /*~~~> Gamma_i = \sum_j gamma_{i,j} */ - ros_Gamma[0]= (KPP_REAL)0.43586652150845899941601945119356; - ros_Gamma[1]= (KPP_REAL)0.24291996454816804366592249683314; - ros_Gamma[2]= (KPP_REAL)2.1851380027664058511513169485832; - -} /* Ros3 */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void Ros4 ( int *ros_S, KPP_REAL ros_A[], KPP_REAL ros_C[], - KPP_REAL ros_M[], KPP_REAL ros_E[], - KPP_REAL ros_Alpha[], KPP_REAL ros_Gamma[], - char ros_NewF[], KPP_REAL *ros_ELO, char* ros_Name ) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - L-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 4 STAGES - L-STABLE EMBEDDED ROSENBROCK METHOD OF ORDER 3 - - E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL - EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. - SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, - SPRINGER-VERLAG (1990) -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - /*~~~> Name of the method */ - strcpy(ros_Name, "ROS-4"); - - /*~~~> Number of stages */ - *ros_S = 4; - - /*~~~> The coefficient matrices A and C are strictly lower triangular. - The lower triangular (subdiagonal) elements are stored in row-wise order: - A(2,1) = ros_A[0], A(3,1)=ros_A[1], A(3,2)=ros_A[2], etc. - The general mapping formula is: - A_{i,j} = ros_A[ (i-1)*(i-2)/2 + j -1 ] */ - ros_A[0] = (KPP_REAL)0.2000000000000000e+01; - ros_A[1] = (KPP_REAL)0.1867943637803922e+01; - ros_A[2] = (KPP_REAL)0.2344449711399156; - ros_A[3] = ros_A[1]; - ros_A[4] = ros_A[2]; - ros_A[5] = (KPP_REAL)0.0; - - /*~~~> C(i,j) = (KPP_REAL)ros_C( (i-1)*(i-2)/2 + j ) */ - ros_C[0] = (KPP_REAL)(-0.7137615036412310e+01); - ros_C[1] = (KPP_REAL)( 0.2580708087951457e+01); - ros_C[2] = (KPP_REAL)( 0.6515950076447975); - ros_C[3] = (KPP_REAL)(-0.2137148994382534e+01); - ros_C[4] = (KPP_REAL)(-0.3214669691237626); - ros_C[5] = (KPP_REAL)(-0.6949742501781779); - - /*~~~> does the stage i require a new function evaluation (ros_NewF(i)=TRUE) - or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) */ - ros_NewF[0] = 1; - ros_NewF[1] = 1; - ros_NewF[2] = 1; - ros_NewF[3] = 0; - - /*~~~> M_i = Coefficients for new step solution */ - ros_M[0] = (KPP_REAL)0.2255570073418735e+01; - ros_M[1] = (KPP_REAL)0.2870493262186792; - ros_M[2] = (KPP_REAL)0.4353179431840180; - ros_M[3] = (KPP_REAL)0.1093502252409163e+01; - - /*~~~> E_i = Coefficients for error estimator */ - ros_E[0] = (KPP_REAL)(-0.2815431932141155); - ros_E[1] = (KPP_REAL)(-0.7276199124938920e-01); - ros_E[2] = (KPP_REAL)(-0.1082196201495311); - ros_E[3] = (KPP_REAL)(-0.1093502252409163e+01); - - /*~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 */ - *ros_ELO = (KPP_REAL)4.0; - - /*~~~> Y_stage_i ~ Y( T + H*Alpha_i ) */ - ros_Alpha[0] = (KPP_REAL)0.0; - ros_Alpha[1] = (KPP_REAL)0.1145640000000000e+01; - ros_Alpha[2] = (KPP_REAL)0.6552168638155900; - ros_Alpha[3] = (KPP_REAL)ros_Alpha[2]; - - /*~~~> Gamma_i = \sum_j gamma_{i,j} */ - ros_Gamma[0] = (KPP_REAL)( 0.5728200000000000); - ros_Gamma[1] = (KPP_REAL)(-0.1769193891319233e+01); - ros_Gamma[2] = (KPP_REAL)( 0.7592633437920482); - ros_Gamma[3] = (KPP_REAL)(-0.1049021087100450); - -} /* Ros4 */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void Rodas3 ( int *ros_S, KPP_REAL ros_A[], KPP_REAL ros_C[], - KPP_REAL ros_M[], KPP_REAL ros_E[], - KPP_REAL ros_Alpha[], KPP_REAL ros_Gamma[], - char ros_NewF[], KPP_REAL *ros_ELO, char* ros_Name ) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - --- A STIFFLY-STABLE METHOD, 4 stages, order 3 -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - /*~~~> Name of the method */ - strcpy(ros_Name, "RODAS-3"); - - /*~~~> Number of stages */ - *ros_S = 4; - - /*~~~> The coefficient matrices A and C are strictly lower triangular. - The lower triangular (subdiagonal) elements are stored in row-wise order: - A(2,1) = ros_A[0], A(3,1)=ros_A[1], A(3,2)=ros_A[2], etc. - The general mapping formula is: - A_{i,j} = ros_A[ (i-1)*(i-2)/2 + j -1 ] */ - ros_A[0] = (KPP_REAL)0.0; - ros_A[1] = (KPP_REAL)2.0; - ros_A[2] = (KPP_REAL)0.0; - ros_A[3] = (KPP_REAL)2.0; - ros_A[4] = (KPP_REAL)0.0; - ros_A[5] = (KPP_REAL)1.0; - - /*~~~> C_{i,j} = ros_C[ (i-1)*(i-2)/2 + j -1] */ - ros_C[0] = (KPP_REAL)4.0; - ros_C[1] = (KPP_REAL)1.0; - ros_C[2] = (KPP_REAL)(-1.0); - ros_C[3] = (KPP_REAL)1.0; - ros_C[4] = (KPP_REAL)(-1.0); - ros_C[5] = (KPP_REAL)(-2.66666666666667); /* -8/3 */ - - /*~~~> does the stage i require a new function evaluation (ros_NewF(i)=TRUE) - or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) */ - ros_NewF[0] = 1; - ros_NewF[1] = 0; - ros_NewF[2] = 1; - ros_NewF[3] = 1; - - /*~~~> M_i = Coefficients for new step solution */ - ros_M[0] = (KPP_REAL)2.0; - ros_M[1] = (KPP_REAL)0.0; - ros_M[2] = (KPP_REAL)1.0; - ros_M[3] = (KPP_REAL)1.0; - - /*~~~> E_i = Coefficients for error estimator */ - ros_E[0] = (KPP_REAL)0.0; - ros_E[1] = (KPP_REAL)0.0; - ros_E[2] = (KPP_REAL)0.0; - ros_E[3] = (KPP_REAL)1.0; - - /*~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 */ - *ros_ELO = (KPP_REAL)3.0; - - /*~~~> Y_stage_i ~ Y( T + H*Alpha_i ) */ - ros_Alpha[0] = (KPP_REAL)0.0; - ros_Alpha[1] = (KPP_REAL)0.0; - ros_Alpha[2] = (KPP_REAL)1.0; - ros_Alpha[3] = (KPP_REAL)1.0; - - /*~~~> Gamma_i = \sum_j gamma_{i,j} */ - ros_Gamma[0] = (KPP_REAL)0.5; - ros_Gamma[1] = (KPP_REAL)1.5; - ros_Gamma[2] = (KPP_REAL)0.0; - ros_Gamma[3] = (KPP_REAL)0.0; - -} /* Rodas3 */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void Rodas4 ( int *ros_S, KPP_REAL ros_A[], KPP_REAL ros_C[], - KPP_REAL ros_M[], KPP_REAL ros_E[], - KPP_REAL ros_Alpha[], KPP_REAL ros_Gamma[], - char ros_NewF[], KPP_REAL *ros_ELO, char* ros_Name ) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - STIFFLY-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 6 STAGES - - E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL - EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. - SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, - SPRINGER-VERLAG (1996) -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - /*~~~> Name of the method */ - strcpy(ros_Name, "RODAS-4"); - - /*~~~> Number of stages */ - *ros_S = 6; - - /*~~~> Y_stage_i ~ Y( T + H*Alpha_i ) */ - ros_Alpha[0] = (KPP_REAL)0.000; - ros_Alpha[1] = (KPP_REAL)0.386; - ros_Alpha[2] = (KPP_REAL)0.210; - ros_Alpha[3] = (KPP_REAL)0.630; - ros_Alpha[4] = (KPP_REAL)1.000; - ros_Alpha[5] = (KPP_REAL)1.000; - - /*~~~> Gamma_i = \sum_j gamma_{i,j} */ - ros_Gamma[0] = (KPP_REAL)0.2500000000000000; - ros_Gamma[1] = (KPP_REAL)(-0.1043000000000000); - ros_Gamma[2] = (KPP_REAL)0.1035000000000000; - ros_Gamma[3] = (KPP_REAL)(-0.3620000000000023e-01); - ros_Gamma[4] = (KPP_REAL)0.0; - ros_Gamma[5] = (KPP_REAL)0.0; - - /*~~~> The coefficient matrices A and C are strictly lower triangular. - The lower triangular (subdiagonal) elements are stored in row-wise order: - A(2,1) = ros_A[0], A(3,1)=ros_A[1], A(3,2)=ros_A[2], etc. - The general mapping formula is: A_{i,j} = ros_A[ (i-1)*(i-2)/2 + j -1 ] */ - ros_A[0] = (KPP_REAL)0.1544000000000000e+01; - ros_A[1] = (KPP_REAL)0.9466785280815826; - ros_A[2] = (KPP_REAL)0.2557011698983284; - ros_A[3] = (KPP_REAL)0.3314825187068521e+01; - ros_A[4] = (KPP_REAL)0.2896124015972201e+01; - ros_A[5] = (KPP_REAL)0.9986419139977817; - ros_A[6] = (KPP_REAL)0.1221224509226641e+01; - ros_A[7] = (KPP_REAL)0.6019134481288629e+01; - ros_A[8] = (KPP_REAL)0.1253708332932087e+02; - ros_A[9] = (KPP_REAL)(-0.6878860361058950); - ros_A[10] = ros_A[6]; - ros_A[11] = ros_A[7]; - ros_A[12] = ros_A[8]; - ros_A[13] = ros_A[9]; - ros_A[14] = (KPP_REAL)1.0; - - /*~~~> C_{i,j} = ros_C[ (i-1)*(i-2)/2 + j -1] */ - ros_C[0] = (KPP_REAL)(-0.5668800000000000e+01); - ros_C[1] = (KPP_REAL)(-0.2430093356833875e+01); - ros_C[2] = (KPP_REAL)(-0.2063599157091915); - ros_C[3] = (KPP_REAL)(-0.1073529058151375); - ros_C[4] = (KPP_REAL)(-0.9594562251023355e+01); - ros_C[5] = (KPP_REAL)(-0.2047028614809616e+02); - ros_C[6] = (KPP_REAL)( 0.7496443313967647e+01); - ros_C[7] = (KPP_REAL)(-0.1024680431464352e+02); - ros_C[8] = (KPP_REAL)(-0.3399990352819905e+02); - ros_C[9] = (KPP_REAL)( 0.1170890893206160e+02); - ros_C[10] = (KPP_REAL)( 0.8083246795921522e+01); - ros_C[11] = (KPP_REAL)(-0.7981132988064893e+01); - ros_C[12] = (KPP_REAL)(-0.3152159432874371e+02); - ros_C[13] = (KPP_REAL)( 0.1631930543123136e+02); - ros_C[14] = (KPP_REAL)(-0.6058818238834054e+01); - - /*~~~> M_i = Coefficients for new step solution */ - ros_M[0] = ros_A[6]; - ros_M[1] = ros_A[7]; - ros_M[2] = ros_A[8]; - ros_M[3] = ros_A[9]; - ros_M[4] = (KPP_REAL)1.0; - ros_M[5] = (KPP_REAL)1.0; - - /*~~~> E_i = Coefficients for error estimator */ - ros_E[0] = (KPP_REAL)0.0; - ros_E[1] = (KPP_REAL)0.0; - ros_E[2] = (KPP_REAL)0.0; - ros_E[3] = (KPP_REAL)0.0; - ros_E[4] = (KPP_REAL)0.0; - ros_E[5] = (KPP_REAL)1.0; - - /*~~~> does the stage i require a new function evaluation (ros_NewF(i)=TRUE) - or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) */ - ros_NewF[0] = 1; - ros_NewF[1] = 1; - ros_NewF[2] = 1; - ros_NewF[3] = 1; - ros_NewF[4] = 1; - ros_NewF[5] = 1; - - /*~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 */ - *ros_ELO = (KPP_REAL)4.0; - -} /* Rodas4 */ - - - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void DecompTemplate( KPP_REAL A[], int Pivot[], int* ising ) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - Template for the LU decomposition -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - *ising = KppDecomp ( A ); - /*~~~> Note: for a full matrix use Lapack: - DGETRF( KPP_NVAR, KPP_NVAR, A, KPP_NVAR, Pivot, ising ) */ - - Ndec++; - -} /* DecompTemplate */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - void SolveTemplate( KPP_REAL A[], int Pivot[], KPP_REAL b[] ) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - Template for the forward/backward substitution (using pre-computed LU decomposition) -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - KppSolve( A, b ); - /*~~~> Note: for a full matrix use Lapack: - NRHS = 1 - DGETRS( 'N', KPP_NVAR , NRHS, A, KPP_NVAR, Pivot, b, KPP_NVAR, INFO ) */ - - Nsol++; - -} /* SolveTemplate */ - - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void FunTemplate( KPP_REAL T, KPP_REAL Y[], KPP_REAL Ydot[] ) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - Template for the ODE function call. - Updates the rate coefficients (and possibly the fixed species) at each call -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - KPP_REAL Told; - - Told = TIME; - TIME = T; - Update_SUN(); - Update_RCONST(); - Fun( Y, FIX, RCONST, Ydot ); - TIME = Told; - - Nfun++; - -} /* FunTemplate */ - - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void JacTemplate( KPP_REAL T, KPP_REAL Y[], KPP_REAL Jcb[] ) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - Template for the ODE Jacobian call. - Updates the rate coefficients (and possibly the fixed species) at each call -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - /*~~~> Local variables */ - KPP_REAL Told; - - Told = TIME; - TIME = T ; - Update_SUN(); - Update_RCONST(); - Jac_SP( Y, FIX, RCONST, Jcb ); - TIME = Told; - - Njac++; - -} /* JacTemplate */ - - diff --git a/int.modified_WCOPY/rosenbrock.def b/int.modified_WCOPY/rosenbrock.def deleted file mode 100644 index 81a16c52c4405327317b87c85bd61986194770fd..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/rosenbrock.def +++ /dev/null @@ -1,23 +0,0 @@ - -#FUNCTION AGGREGATE -#JACOBIAN SPARSE_LU_ROW - -#DOUBLE ON -#INTFILE rosenbrock - -#INLINE F77_GLOBAL - INTEGER Autonomous - COMMON /INTGDATA/ Autonomous - REAL*8 STEPSTART - COMMON /GDATA/ STEPSTART -#ENDINLINE - -#INLINE F77_INIT - STEPMIN=0.0001 - STEPMAX=3600. - Autonomous = 1 - STEPSTART=STEPMIN -#ENDINLINE - - - diff --git a/int.modified_WCOPY/rosenbrock.f b/int.modified_WCOPY/rosenbrock.f deleted file mode 100644 index f7920b8f3b6e16fe91e85688fa1d22336fbd9655..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/rosenbrock.f +++ /dev/null @@ -1,1286 +0,0 @@ - SUBROUTINE INTEGRATE( TIN, TOUT ) - - IMPLICIT NONE - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Global.h' - INTEGER Nstp, Nacc, Nrej, Nsng, IERR - SAVE Nstp, Nacc, Nrej, Nsng - -! TIN - Start Time - KPP_REAL TIN -! TOUT - End Time - KPP_REAL TOUT - INTEGER i - - KPP_REAL RPAR(20) - INTEGER IPAR(20) - EXTERNAL FunTemplate, JacTemplate - - - DO i=1,20 - IPAR(i) = 0 - RPAR(i) = 0.0d0 - ENDDO - - - IPAR(1) = 0 ! non-autonomous - IPAR(2) = 1 ! vector tolerances - RPAR(3) = STEPMIN ! starting step - IPAR(4) = 5 ! choice of the method - - CALL Rosenbrock(VAR,TIN,TOUT, - & ATOL,RTOL, - & FunTemplate,JacTemplate, - & RPAR,IPAR,IERR) - - - Nstp = Nstp + IPAR(13) - Nacc = Nacc + IPAR(14) - Nrej = Nrej + IPAR(15) - Nsng = Nsng + IPAR(18) - PRINT*,'Step=',Nstp,' Acc=',Nacc,' Rej=',Nrej, - & ' Singular=',Nsng - - - IF (IERR.LT.0) THEN - print *,'Rosenbrock: Unsucessful step at T=', - & TIN,' (IERR=',IERR,')' - ENDIF - - TIN = RPAR(11) ! Exit time - STEPMIN = RPAR(12) - - RETURN - END - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rosenbrock(Y,Tstart,Tend, - & AbsTol,RelTol, - & ode_Fun,ode_Jac , - & RPAR,IPAR,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Solves the system y'=F(t,y) using a Rosenbrock method defined by: -! -! G = 1/(H*gamma(1)) - ode_Jac(t0,Y0) -! T_i = t0 + Alpha(i)*H -! Y_i = Y0 + \sum_{j=1}^{i-1} A(i,j)*K_j -! G * K_i = ode_Fun( T_i, Y_i ) + \sum_{j=1}^S C(i,j)/H * K_j + -! gamma(i)*dF/dT(t0, Y0) -! Y1 = Y0 + \sum_{j=1}^S M(j)*K_j -! -! For details on Rosenbrock methods and their implementation consult: -! E. Hairer and G. Wanner -! "Solving ODEs II. Stiff and differential-algebraic problems". -! Springer series in computational mathematics, Springer-Verlag, 1996. -! The codes contained in the book inspired this implementation. -! -! (C) Adrian Sandu, August 2004 -! Virginia Polytechnic Institute and State University -! Contact: sandu@cs.vt.edu -! This implementation is part of KPP - the Kinetic PreProcessor -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT ARGUMENTS: -! -!- Y(NVAR) = vector of initial conditions (at T=Tstart) -!- [Tstart,Tend] = time range of integration -! (if Tstart>Tend the integration is performed backwards in time) -!- RelTol, AbsTol = user precribed accuracy -!- SUBROUTINE ode_Fun( T, Y, Ydot ) = ODE function, -! returns Ydot = Y' = F(T,Y) -!- SUBROUTINE ode_Fun( T, Y, Ydot ) = Jacobian of the ODE function, -! returns Jcb = dF/dY -!- IPAR(1:10) = integer inputs parameters -!- RPAR(1:10) = real inputs parameters -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT ARGUMENTS: -! -!- Y(NVAR) -> vector of final states (at T->Tend) -!- IPAR(11:20) -> integer output parameters -!- RPAR(11:20) -> real output parameters -!- IERR -> job status upon return -! - succes (positive value) or failure (negative value) - -! = 1 : Success -! = -1 : Improper value for maximal no of steps -! = -2 : Selected Rosenbrock method not implemented -! = -3 : Hmin/Hmax/Hstart must be positive -! = -4 : FacMin/FacMax/FacRej must be positive -! = -5 : Improper tolerance values -! = -6 : No of steps exceeds maximum bound -! = -7 : Step size too small -! = -8 : Matrix is repeatedly singular -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT PARAMETERS: -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -! IPAR(1) = 1: F = F(y) Independent of T (AUTONOMOUS) -! = 0: F = F(t,y) Depends on T (NON-AUTONOMOUS) -! IPAR(2) = 0: AbsTol, RelTol are NVAR-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! IPAR(3) -> maximum number of integration steps -! For IPAR(3)=0) the default value of 100000 is used -! -! IPAR(4) -> selection of a particular Rosenbrock method -! = 0 : default method is Rodas3 -! = 1 : method is Ros2 -! = 2 : method is Ros3 -! = 3 : method is Ros4 -! = 4 : method is Rodas3 -! = 5: method is Rodas4 -! -! RPAR(1) -> Hmin, lower bound for the integration step size -! It is strongly recommended to keep Hmin = ZERO -! RPAR(2) -> Hmax, upper bound for the integration step size -! RPAR(3) -> Hstart, starting value for the integration step size -! -! RPAR(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! RPAR(5) -> FacMin,upper bound on step increase factor (default=6) -! RPAR(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! RPAR(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT PARAMETERS: -! -! Note: each call to Rosenbrock adds the corrent no. of fcn calls -! to previous value of IPAR(11), and similar for the other params. -! Set IPAR(11:20) = 0 before call to avoid this accumulation. -! -! IPAR(11) = No. of function calls -! IPAR(12) = No. of jacobian calls -! IPAR(13) = No. of steps -! IPAR(14) = No. of accepted steps -! IPAR(15) = No. of rejected steps (except at the beginning) -! IPAR(16) = No. of LU decompositions -! IPAR(17) = No. of forward/backward substitutions -! IPAR(18) = No. of singular matrix decompositions -! -! RPAR(11) -> Texit, the time corresponding to the -! computed Y upon return -! RPAR(12) -> Hexit, last accepted step before exit -! For multiple restarts, use Hexit as Hstart in the following run -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Sparse.h' - - KPP_REAL Tstart,Tend - KPP_REAL Y(KPP_NVAR),AbsTol(KPP_NVAR),RelTol(KPP_NVAR) - INTEGER IPAR(20) - KPP_REAL RPAR(20) - INTEGER IERR -!~~~> The method parameters - INTEGER Smax - PARAMETER (Smax = 6) - INTEGER Method, ros_S - KPP_REAL ros_M(Smax), ros_E(Smax) - KPP_REAL ros_A(Smax*(Smax-1)/2), ros_C(Smax*(Smax-1)/2) - KPP_REAL ros_Alpha(Smax), ros_Gamma(Smax), ros_ELO - LOGICAL ros_NewF(Smax) - CHARACTER*12 ros_Name -!~~~> Local variables - KPP_REAL Roundoff,FacMin,FacMax,FacRej,FacSafe - KPP_REAL Hmin, Hmax, Hstart, Hexit - KPP_REAL Texit - INTEGER i, UplimTol, Max_no_steps - LOGICAL Autonomous, VectorTol -!~~~> Statistics on the work performed - INTEGER Nfun,Njac,Nstp,Nacc,Nrej,Ndec,Nsol,Nsng - COMMON /Statistics/ Nfun,Njac,Nstp,Nacc,Nrej, - & Ndec,Nsol,Nsng -!~~~> Parameters - KPP_REAL ZERO, ONE, DeltaMin - PARAMETER (ZERO = 0.0d0) - PARAMETER (ONE = 1.0d0) - PARAMETER (DeltaMin = 1.0d-5) -!~~~> Functions - EXTERNAL ode_Fun, ode_Jac - KPP_REAL WLAMCH, ros_ErrorNorm - EXTERNAL WLAMCH, ros_ErrorNorm - -!~~~> Initialize statistics - Nfun = IPAR(11) - Njac = IPAR(12) - Nstp = IPAR(13) - Nacc = IPAR(14) - Nrej = IPAR(15) - Ndec = IPAR(16) - Nsol = IPAR(17) - Nsng = IPAR(18) - -!~~~> Autonomous or time dependent ODE. Default is time dependent. - Autonomous = .NOT.(IPAR(1).EQ.0) - -!~~~> For Scalar tolerances (IPAR(2).NE.0) the code uses AbsTol(1) and RelTol(1) -! For Vector tolerances (IPAR(2).EQ.0) the code uses AbsTol(1:NVAR) and RelTol(1:NVAR) - IF (IPAR(2).EQ.0) THEN - VectorTol = .TRUE. - UplimTol = KPP_NVAR - ELSE - VectorTol = .FALSE. - UplimTol = 1 - END IF - -!~~~> The maximum number of steps admitted - IF (IPAR(3).EQ.0) THEN - Max_no_steps = 100000 - ELSEIF (Max_no_steps.GT.0) THEN - Max_no_steps=IPAR(3) - ELSE - WRITE(6,*)'User-selected max no. of steps: IPAR(3)=',IPAR(3) - CALL ros_ErrorMsg(-1,Tstart,ZERO,IERR) - RETURN - END IF - -!~~~> The particular Rosenbrock method chosen - IF (IPAR(4).EQ.0) THEN - Method = 3 - ELSEIF ( (IPAR(4).GE.1).AND.(IPAR(4).LE.5) ) THEN - Method = IPAR(4) - ELSE - WRITE (6,*) 'User-selected Rosenbrock method: IPAR(4)=', Method - CALL ros_ErrorMsg(-2,Tstart,ZERO,IERR) - RETURN - END IF - -!~~~> Unit roundoff (1+Roundoff>1) - Roundoff = WLAMCH('E') - -!~~~> Lower bound on the step size: (positive value) - IF (RPAR(1).EQ.ZERO) THEN - Hmin = ZERO - ELSEIF (RPAR(1).GT.ZERO) THEN - Hmin = RPAR(1) - ELSE - WRITE (6,*) 'User-selected Hmin: RPAR(1)=', RPAR(1) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Upper bound on the step size: (positive value) - IF (RPAR(2).EQ.ZERO) THEN - Hmax = ABS(Tend-Tstart) - ELSEIF (RPAR(2).GT.ZERO) THEN - Hmax = MIN(ABS(RPAR(2)),ABS(Tend-Tstart)) - ELSE - WRITE (6,*) 'User-selected Hmax: RPAR(2)=', RPAR(2) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Starting step size: (positive value) - IF (RPAR(3).EQ.ZERO) THEN - Hstart = MAX(Hmin,DeltaMin) - ELSEIF (RPAR(3).GT.ZERO) THEN - Hstart = MIN(ABS(RPAR(3)),ABS(Tend-Tstart)) - ELSE - WRITE (6,*) 'User-selected Hstart: RPAR(3)=', RPAR(3) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Step size can be changed s.t. FacMin < Hnew/Hexit < FacMax - IF (RPAR(4).EQ.ZERO) THEN - FacMin = 0.2d0 - ELSEIF (RPAR(4).GT.ZERO) THEN - FacMin = RPAR(4) - ELSE - WRITE (6,*) 'User-selected FacMin: RPAR(4)=', RPAR(4) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF - IF (RPAR(5).EQ.ZERO) THEN - FacMax = 6.0d0 - ELSEIF (RPAR(5).GT.ZERO) THEN - FacMax = RPAR(5) - ELSE - WRITE (6,*) 'User-selected FacMax: RPAR(5)=', RPAR(5) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacRej: Factor to decrease step after 2 succesive rejections - IF (RPAR(6).EQ.ZERO) THEN - FacRej = 0.1d0 - ELSEIF (RPAR(6).GT.ZERO) THEN - FacRej = RPAR(6) - ELSE - WRITE (6,*) 'User-selected FacRej: RPAR(6)=', RPAR(6) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacSafe: Safety Factor in the computation of new step size - IF (RPAR(7).EQ.ZERO) THEN - FacSafe = 0.9d0 - ELSEIF (RPAR(7).GT.ZERO) THEN - FacSafe = RPAR(7) - ELSE - WRITE (6,*) 'User-selected FacSafe: RPAR(7)=', RPAR(7) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Check if tolerances are reasonable - DO i=1,UplimTol - IF ( (AbsTol(i).LE.ZERO) .OR. (RelTol(i).LE.10.d0*Roundoff) - & .OR. (RelTol(i).GE.1.0d0) ) THEN - WRITE (6,*) ' AbsTol(',i,') = ',AbsTol(i) - WRITE (6,*) ' RelTol(',i,') = ',RelTol(i) - CALL ros_ErrorMsg(-5,Tstart,ZERO,IERR) - RETURN - END IF - END DO - - -!~~~> Initialize the particular Rosenbrock method - - IF (Method .EQ. 1) THEN - CALL Ros2(ros_S, ros_A, ros_C, ros_M, ros_E, - & ros_Alpha, ros_Gamma, ros_NewF, ros_ELO, ros_Name) - ELSEIF (Method .EQ. 2) THEN - CALL Ros3(ros_S, ros_A, ros_C, ros_M, ros_E, - & ros_Alpha, ros_Gamma, ros_NewF, ros_ELO, ros_Name) - ELSEIF (Method .EQ. 3) THEN - CALL Ros4(ros_S, ros_A, ros_C, ros_M, ros_E, - & ros_Alpha, ros_Gamma, ros_NewF, ros_ELO, ros_Name) - ELSEIF (Method .EQ. 4) THEN - CALL Rodas3(ros_S, ros_A, ros_C, ros_M, ros_E, - & ros_Alpha, ros_Gamma, ros_NewF, ros_ELO, ros_Name) - ELSEIF (Method .EQ. 5) THEN - CALL Rodas4(ros_S, ros_A, ros_C, ros_M, ros_E, - & ros_Alpha, ros_Gamma, ros_NewF, ros_ELO, ros_Name) - ELSE - WRITE (6,*) 'Unknown Rosenbrock method: IPAR(4)=', Method - CALL ros_ErrorMsg(-2,Tstart,ZERO,IERR) - RETURN - END IF - -!~~~> CALL Rosenbrock method - CALL RosenbrockIntegrator(Y,Tstart,Tend,Texit, - & AbsTol,RelTol, - & ode_Fun,ode_Jac , -! Rosenbrock method coefficients - & ros_S, ros_M, ros_E, ros_A, ros_C, - & ros_Alpha, ros_Gamma, ros_ELO, ros_NewF, -! Integration parameters - & Autonomous, VectorTol, Max_no_steps, - & Roundoff, Hmin, Hmax, Hstart, Hexit, - & FacMin, FacMax, FacRej, FacSafe, -! Error indicator - & IERR) - - -!~~~> Collect run statistics - IPAR(11) = Nfun - IPAR(12) = Njac - IPAR(13) = Nstp - IPAR(14) = Nacc - IPAR(15) = Nrej - IPAR(16) = Ndec - IPAR(17) = Nsol - IPAR(18) = Nsng -!~~~> Last T and H - RPAR(11) = Texit - RPAR(12) = Hexit - - RETURN - END ! SUBROUTINE Rosenbrock - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RosenbrockIntegrator(Y,Tstart,Tend,T, - & AbsTol,RelTol, - & ode_Fun,ode_Jac , -!~~~> Rosenbrock method coefficients - & ros_S, ros_M, ros_E, ros_A, ros_C, - & ros_Alpha, ros_Gamma, ros_ELO, ros_NewF, -!~~~> Integration parameters - & Autonomous, VectorTol, Max_no_steps, - & Roundoff, Hmin, Hmax, Hstart, Hexit, - & FacMin, FacMax, FacRej, FacSafe, -!~~~> Error indicator - & IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the implementation of a generic Rosenbrock method -! defined by ros_S (no of stages) -! and its coefficients ros_{A,C,M,E,Alpha,Gamma} -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Sparse.h' - -!~~~> Input: the initial condition at Tstart; Output: the solution at T - KPP_REAL Y(KPP_NVAR) -!~~~> Input: integration interval - KPP_REAL Tstart,Tend -!~~~> Output: time at which the solution is returned (T=Tend if success) - KPP_REAL T -!~~~> Input: tolerances - KPP_REAL AbsTol(KPP_NVAR), RelTol(KPP_NVAR) -!~~~> Input: ode function and its Jacobian - EXTERNAL ode_Fun, ode_Jac -!~~~> Input: The Rosenbrock method parameters - INTEGER ros_S - KPP_REAL ros_M(ros_S), ros_E(ros_S) - KPP_REAL ros_A(ros_S*(ros_S-1)/2), ros_C(ros_S*(ros_S-1)/2) - KPP_REAL ros_Alpha(ros_S), ros_Gamma(ros_S), ros_ELO - LOGICAL ros_NewF(ros_S) -!~~~> Input: integration parameters - LOGICAL Autonomous, VectorTol - KPP_REAL Hstart, Hmin, Hmax - INTEGER Max_no_steps - KPP_REAL Roundoff, FacMin, FacMax, FacRej, FacSafe -!~~~> Output: last accepted step - KPP_REAL Hexit -!~~~> Output: Error indicator - INTEGER IERR -! ~~~~ Local variables - KPP_REAL Ynew(KPP_NVAR), Fcn0(KPP_NVAR), Fcn(KPP_NVAR), - & K(KPP_NVAR*ros_S), dFdT(KPP_NVAR), - & Jac0(KPP_LU_NONZERO), Ghimj(KPP_LU_NONZERO) - KPP_REAL H, Hnew, HC, HG, Fac, Tau - KPP_REAL Err, Yerr(KPP_NVAR) - INTEGER Pivot(KPP_NVAR), Direction, ioffset, j, istage - LOGICAL RejectLastH, RejectMoreH, Singular -!~~~> Local parameters - KPP_REAL ZERO, ONE, DeltaMin - PARAMETER (ZERO = 0.0d0) - PARAMETER (ONE = 1.0d0) - PARAMETER (DeltaMin = 1.0d-5) -!~~~> Locally called functions - KPP_REAL WLAMCH, ros_ErrorNorm - EXTERNAL WLAMCH, ros_ErrorNorm -!~~~> Statistics on the work performed - INTEGER Nfun,Njac,Nstp,Nacc,Nrej,Ndec,Nsol,Nsng - COMMON /Statistics/ Nfun,Njac,Nstp,Nacc,Nrej, - & Ndec,Nsol,Nsng -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~> INITIAL PREPARATIONS - T = Tstart - Hexit = 0.0d0 - H = MIN(Hstart,Hmax) - IF (ABS(H).LE.10.d0*Roundoff) THEN - H = DeltaMin - END IF - - IF (Tend .GE. Tstart) THEN - Direction = +1 - ELSE - Direction = -1 - END IF - - RejectLastH=.FALSE. - RejectMoreH=.FALSE. - -!~~~> Time loop begins below - - DO WHILE ( (Direction.GT.0).AND.((T-Tend)+Roundoff.LE.ZERO) - & .OR. (Direction.LT.0).AND.((Tend-T)+Roundoff.LE.ZERO) ) - - IF ( Nstp.GT.Max_no_steps ) THEN ! Too many steps - CALL ros_ErrorMsg(-6,T,H,IERR) - RETURN - END IF - IF ( ((T+0.1d0*H).EQ.T).OR.(H.LE.Roundoff) ) THEN ! Step size too small - CALL ros_ErrorMsg(-7,T,H,IERR) - RETURN - END IF - -!~~~> Limit H if necessary to avoid going beyond Tend - Hexit = H - H = MIN(H,ABS(Tend-T)) - -!~~~> Compute the function at current time - CALL ode_Fun(T,Y,Fcn0) - -!~~~> Compute the function derivative with respect to T - IF (.NOT.Autonomous) THEN - CALL ros_FunTimeDerivative ( T, Roundoff, Y, - & Fcn0, ode_Fun, dFdT ) - END IF - -!~~~> Compute the Jacobian at current time - CALL ode_Jac(T,Y,Jac0) - -!~~~> Repeat step calculation until current step accepted - DO WHILE (.TRUE.) ! WHILE STEP NOT ACCEPTED - - - CALL ros_PrepareMatrix(H,Direction,ros_Gamma(1), - & Jac0,Ghimj,Pivot,Singular) - IF (Singular) THEN ! More than 5 consecutive failed decompositions - CALL ros_ErrorMsg(-8,T,H,IERR) - RETURN - END IF - -!~~~> Compute the stages - DO istage = 1, ros_S - - ! Current istage offset. Current istage vector is K(ioffset+1:ioffset+KPP_NVAR) - ioffset = KPP_NVAR*(istage-1) - - ! For the 1st istage the function has been computed previously - IF ( istage.EQ.1 ) THEN - CALL WCOPY(KPP_NVAR,Fcn0,1,Fcn,1) - ! istage>1 and a new function evaluation is needed at the current istage - ELSEIF ( ros_NewF(istage) ) THEN - CALL WCOPY(KPP_NVAR,Y,1,Ynew,1) - DO j = 1, istage-1 - CALL WAXPY(KPP_NVAR,ros_A((istage-1)*(istage-2)/2+j), - & K(KPP_NVAR*(j-1)+1),1,Ynew,1) - END DO - Tau = T + ros_Alpha(istage)*Direction*H - CALL ode_Fun(Tau,Ynew,Fcn) - END IF ! if istage.EQ.1 elseif ros_NewF(istage) - CALL WCOPY(KPP_NVAR,Fcn,1,K(ioffset+1),1) - DO j = 1, istage-1 - HC = ros_C((istage-1)*(istage-2)/2+j)/(Direction*H) - CALL WAXPY(KPP_NVAR,HC,K(KPP_NVAR*(j-1)+1),1,K(ioffset+1),1) - END DO - IF ((.NOT. Autonomous).AND.(ros_Gamma(istage).NE.ZERO)) THEN - HG = Direction*H*ros_Gamma(istage) - CALL WAXPY(KPP_NVAR,HG,dFdT,1,K(ioffset+1),1) - END IF - CALL SolveTemplate(Ghimj, Pivot, K(ioffset+1)) - - END DO ! istage - - -!~~~> Compute the new solution - CALL WCOPY(KPP_NVAR,Y,1,Ynew,1) - DO j=1,ros_S - CALL WAXPY(KPP_NVAR,ros_M(j),K(KPP_NVAR*(j-1)+1),1,Ynew,1) - END DO - -!~~~> Compute the error estimation - CALL WSCAL(KPP_NVAR,ZERO,Yerr,1) - DO j=1,ros_S - CALL WAXPY(KPP_NVAR,ros_E(j),K(KPP_NVAR*(j-1)+1),1,Yerr,1) - END DO - Err = ros_ErrorNorm ( Y, Ynew, Yerr, AbsTol, RelTol, VectorTol ) - -!~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax - Fac = MIN(FacMax,MAX(FacMin,FacSafe/Err**(ONE/ros_ELO))) - Hnew = H*Fac - -!~~~> Check the error magnitude and adjust step size - Nstp = Nstp+1 - IF ( (Err.LE.ONE).OR.(H.LE.Hmin) ) THEN !~~~> Accept step - Nacc = Nacc+1 - CALL WCOPY(KPP_NVAR,Ynew,1,Y,1) - T = T + Direction*H - Hnew = MAX(Hmin,MIN(Hnew,Hmax)) - IF (RejectLastH) THEN ! No step size increase after a rejected step - Hnew = MIN(Hnew,H) - END IF - RejectLastH = .FALSE. - RejectMoreH = .FALSE. - H = Hnew - GOTO 101 ! EXIT THE LOOP: WHILE STEP NOT ACCEPTED - ELSE !~~~> Reject step - IF (RejectMoreH) THEN - Hnew=H*FacRej - END IF - RejectMoreH = RejectLastH - RejectLastH = .TRUE. - H = Hnew - IF (Nacc.GE.1) THEN - Nrej = Nrej+1 - END IF - END IF ! Err <= 1 - - END DO ! LOOP: WHILE STEP NOT ACCEPTED - -101 CONTINUE - - END DO ! Time loop - -!~~~> Succesful exit - IERR = 1 !~~~> The integration was successful - - RETURN - END ! SUBROUTINE RosenbrockIntegrator - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - KPP_REAL FUNCTION ros_ErrorNorm ( Y, Ynew, Yerr, - & AbsTol, RelTol, VectorTol ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Computes the "scaled norm" of the error vector Yerr -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - INCLUDE 'KPP_ROOT_Parameters.h' - -! Input arguments - KPP_REAL Y(KPP_NVAR), Ynew(KPP_NVAR), Yerr(KPP_NVAR) - KPP_REAL AbsTol(KPP_NVAR), RelTol(KPP_NVAR) - LOGICAL VectorTol -! Local variables - KPP_REAL Err, Scale, Ymax, ZERO - INTEGER i - PARAMETER (ZERO = 0.0d0) - - Err = ZERO - DO i=1,KPP_NVAR - Ymax = MAX(ABS(Y(i)),ABS(Ynew(i))) - IF (VectorTol) THEN - Scale = AbsTol(i)+RelTol(i)*Ymax - ELSE - Scale = AbsTol(1)+RelTol(1)*Ymax - END IF - Err = Err+(Yerr(i)/Scale)**2 - END DO - Err = SQRT(Err/KPP_NVAR) - - ros_ErrorNorm = Err - - RETURN - END ! FUNCTION ros_ErrorNorm - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_FunTimeDerivative ( T, Roundoff, Y, - & Fcn0, ode_Fun, dFdT ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> The time partial derivative of the function by finite differences -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - INCLUDE 'KPP_ROOT_Parameters.h' - -!~~~> Input arguments - KPP_REAL T, Roundoff, Y(KPP_NVAR), Fcn0(KPP_NVAR) - EXTERNAL ode_Fun -!~~~> Output arguments - KPP_REAL dFdT(KPP_NVAR) -!~~~> Global variables - INTEGER Nfun,Njac,Nstp,Nacc,Nrej,Ndec,Nsol,Nsng - COMMON /Statistics/ Nfun,Njac,Nstp,Nacc,Nrej, - & Ndec,Nsol,Nsng -!~~~> Local variables - KPP_REAL Delta, DeltaMin, ONE - PARAMETER ( DeltaMin = 1.0d-6 ) - PARAMETER ( ONE = 1.0d0 ) - - Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T)) - CALL ode_Fun(T+Delta,Y,dFdT) - CALL WAXPY(KPP_NVAR,(-ONE),Fcn0,1,dFdT,1) - CALL WSCAL(KPP_NVAR,(ONE/Delta),dFdT,1) - - RETURN - END ! SUBROUTINE ros_FunTimeDerivative - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_PrepareMatrix ( H, Direction, gam, - & Jac0, Ghimj, Pivot, Singular ) -! --- --- --- --- --- --- --- --- --- --- --- --- --- -! Prepares the LHS matrix for stage calculations -! 1. Construct Ghimj = 1/(H*ham) - Jac0 -! "(Gamma H) Inverse Minus Jacobian" -! 2. Repeat LU decomposition of Ghimj until successful. -! -half the step size if LU decomposition fails and retry -! -exit after 5 consecutive fails -! --- --- --- --- --- --- --- --- --- --- --- --- --- - IMPLICIT NONE - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Sparse.h' - -!~~~> Input arguments - KPP_REAL gam, Jac0(KPP_LU_NONZERO) - INTEGER Direction -!~~~> Output arguments - KPP_REAL Ghimj(KPP_LU_NONZERO) - LOGICAL Singular - INTEGER Pivot(KPP_NVAR) -!~~~> Inout arguments - KPP_REAL H ! step size is decreased when LU fails -!~~~> Global variables - INTEGER Nfun,Njac,Nstp,Nacc,Nrej,Ndec,Nsol,Nsng - COMMON /Statistics/ Nfun,Njac,Nstp,Nacc,Nrej, - & Ndec,Nsol,Nsng -!~~~> Local variables - INTEGER i, ising, Nconsecutive - KPP_REAL ghinv, ONE, HALF - PARAMETER ( ONE = 1.0d0 ) - PARAMETER ( HALF = 0.5d0 ) - - Nconsecutive = 0 - Singular = .TRUE. - - DO WHILE (Singular) - -!~~~> Construct Ghimj = 1/(H*ham) - Jac0 - CALL WCOPY(KPP_LU_NONZERO,Jac0,1,Ghimj,1) - CALL WSCAL(KPP_LU_NONZERO,(-ONE),Ghimj,1) - ghinv = ONE/(Direction*H*gam) - DO i=1,KPP_NVAR - Ghimj(LU_DIAG(i)) = Ghimj(LU_DIAG(i))+ghinv - END DO -!~~~> Compute LU decomposition - CALL DecompTemplate( Ghimj, Pivot, ising ) - IF (ising .EQ. 0) THEN -!~~~> If successful done - Singular = .FALSE. - ELSE ! ising .ne. 0 -!~~~> If unsuccessful half the step size; if 5 consecutive fails then return - Nsng = Nsng+1 - Nconsecutive = Nconsecutive+1 - Singular = .TRUE. - PRINT*,'Warning: LU Decomposition returned ising = ',ising - IF (Nconsecutive.LE.5) THEN ! Less than 5 consecutive failed decompositions - H = H*HALF - ELSE ! More than 5 consecutive failed decompositions - RETURN - END IF ! Nconsecutive - END IF ! ising - - END DO ! WHILE Singular - - RETURN - END ! SUBROUTINE ros_PrepareMatrix - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_ErrorMsg(Code,T,H,IERR) - KPP_REAL T, H - INTEGER IERR, Code - - IERR = Code - WRITE(6,*) - & 'Forced exit from Rosenbrock due to the following error:' - - IF (Code .EQ. -1) THEN - WRITE(6,*) '--> Improper value for maximal no of steps' - ELSEIF (Code .EQ. -2) THEN - WRITE(6,*) '--> Selected Rosenbrock method not implemented' - ELSEIF (Code .EQ. -3) THEN - WRITE(6,*) '--> Hmin/Hmax/Hstart must be positive' - ELSEIF (Code .EQ. -4) THEN - WRITE(6,*) '--> FacMin/FacMax/FacRej must be positive' - ELSEIF (Code .EQ. -5) THEN - WRITE(6,*) '--> Improper tolerance values' - ELSEIF (Code .EQ. -6) THEN - WRITE(6,*) '--> No of steps exceeds maximum bound' - ELSEIF (Code .EQ. -7) THEN - WRITE(6,*) '--> Step size too small: T + 10*H = T', - & ' or H < Roundoff' - ELSEIF (Code .EQ. -8) THEN - WRITE(6,*) '--> Matrix is repeatedly singular' - ELSE - WRITE(6,102) 'Unknown Error code: ',Code - END IF - - 102 FORMAT(' ',A,I4) - WRITE(6,103) T, H - - 103 FORMAT(' T=',E15.7,' and H=',E15.7) - - RETURN - END - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros2 (ros_S,ros_A,ros_C,ros_M,ros_E,ros_Alpha, - & ros_Gamma,ros_NewF,ros_ELO,ros_Name) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 2 stages, order 2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - INTEGER S - PARAMETER (S=2) - INTEGER ros_S - KPP_REAL ros_M(S), ros_E(S), ros_A(S*(S-1)/2), ros_C(S*(S-1)/2) - KPP_REAL ros_Alpha(S), ros_Gamma(S), ros_ELO - LOGICAL ros_NewF(S) - CHARACTER*12 ros_Name - DOUBLE PRECISION g - - g = 1.0d0 + 1.0d0/SQRT(2.0d0) - -!~~~> Name of the method - ros_Name = 'ROS-2' -!~~~> Number of stages - ros_S = 2 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = (1.d0)/g - ros_C(1) = (-2.d0)/g -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1)= (3.d0)/(2.d0*g) - ros_M(2)= (1.d0)/(2.d0*g) -! E_i = Coefficients for error estimator - ros_E(1) = 1.d0/(2.d0*g) - ros_E(2) = 1.d0/(2.d0*g) -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus one - ros_ELO = 2.0d0 -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0d0 - ros_Alpha(2) = 1.0d0 -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = g - ros_Gamma(2) =-g - - RETURN - END ! SUBROUTINE Ros2 - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros3 (ros_S,ros_A,ros_C,ros_M,ros_E,ros_Alpha, - & ros_Gamma,ros_NewF,ros_ELO,ros_Name) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 3 stages, order 3, 2 function evaluations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - INTEGER S - PARAMETER (S=3) - INTEGER ros_S - KPP_REAL ros_M(S), ros_E(S), ros_A(S*(S-1)/2), ros_C(S*(S-1)/2) - KPP_REAL ros_Alpha(S), ros_Gamma(S), ros_ELO - LOGICAL ros_NewF(S) - CHARACTER*12 ros_Name - -!~~~> Name of the method - ros_Name = 'ROS-3' -!~~~> Number of stages - ros_S = 3 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1)= 1.d0 - ros_A(2)= 1.d0 - ros_A(3)= 0.d0 - - ros_C(1) = -0.10156171083877702091975600115545d+01 - ros_C(2) = 0.40759956452537699824805835358067d+01 - ros_C(3) = 0.92076794298330791242156818474003d+01 -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.1d+01 - ros_M(2) = 0.61697947043828245592553615689730d+01 - ros_M(3) = -0.42772256543218573326238373806514d+00 -! E_i = Coefficients for error estimator - ros_E(1) = 0.5d+00 - ros_E(2) = -0.29079558716805469821718236208017d+01 - ros_E(3) = 0.22354069897811569627360909276199d+00 -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0d0 -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1)= 0.0d+00 - ros_Alpha(2)= 0.43586652150845899941601945119356d+00 - ros_Alpha(3)= 0.43586652150845899941601945119356d+00 -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1)= 0.43586652150845899941601945119356d+00 - ros_Gamma(2)= 0.24291996454816804366592249683314d+00 - ros_Gamma(3)= 0.21851380027664058511513169485832d+01 - RETURN - END ! SUBROUTINE Ros3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros4 (ros_S,ros_A,ros_C,ros_M,ros_E,ros_Alpha, - & ros_Gamma,ros_NewF,ros_ELO,ros_Name) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! L-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 4 STAGES -! L-STABLE EMBEDDED ROSENBROCK METHOD OF ORDER 3 -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1990) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - INTEGER S - PARAMETER (S=4) - INTEGER ros_S - KPP_REAL ros_M(S), ros_E(S), ros_A(S*(S-1)/2), ros_C(S*(S-1)/2) - KPP_REAL ros_Alpha(S), ros_Gamma(S), ros_ELO - LOGICAL ros_NewF(S) - CHARACTER*12 ros_Name - -!~~~> Name of the method - ros_Name = 'ROS-4' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.2000000000000000d+01 - ros_A(2) = 0.1867943637803922d+01 - ros_A(3) = 0.2344449711399156d+00 - ros_A(4) = ros_A(2) - ros_A(5) = ros_A(3) - ros_A(6) = 0.0D0 - - ros_C(1) =-0.7137615036412310d+01 - ros_C(2) = 0.2580708087951457d+01 - ros_C(3) = 0.6515950076447975d+00 - ros_C(4) =-0.2137148994382534d+01 - ros_C(5) =-0.3214669691237626d+00 - ros_C(6) =-0.6949742501781779d+00 -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.2255570073418735d+01 - ros_M(2) = 0.2870493262186792d+00 - ros_M(3) = 0.4353179431840180d+00 - ros_M(4) = 0.1093502252409163d+01 -!~~~> E_i = Coefficients for error estimator - ros_E(1) =-0.2815431932141155d+00 - ros_E(2) =-0.7276199124938920d-01 - ros_E(3) =-0.1082196201495311d+00 - ros_E(4) =-0.1093502252409163d+01 -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0d0 -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.D0 - ros_Alpha(2) = 0.1145640000000000d+01 - ros_Alpha(3) = 0.6552168638155900d+00 - ros_Alpha(4) = ros_Alpha(3) -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5728200000000000d+00 - ros_Gamma(2) =-0.1769193891319233d+01 - ros_Gamma(3) = 0.7592633437920482d+00 - ros_Gamma(4) =-0.1049021087100450d+00 - RETURN - END ! SUBROUTINE Ros4 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas3 (ros_S,ros_A,ros_C,ros_M,ros_E,ros_Alpha, - & ros_Gamma,ros_NewF,ros_ELO,ros_Name) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- A STIFFLY-STABLE METHOD, 4 stages, order 3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - INTEGER S - PARAMETER (S=4) - INTEGER ros_S - KPP_REAL ros_M(S), ros_E(S), ros_A(S*(S-1)/2), ros_C(S*(S-1)/2) - KPP_REAL ros_Alpha(S), ros_Gamma(S), ros_ELO - LOGICAL ros_NewF(S) - CHARACTER*12 ros_Name - -!~~~> Name of the method - ros_Name = 'RODAS-3' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.0d+00 - ros_A(2) = 2.0d+00 - ros_A(3) = 0.0d+00 - ros_A(4) = 2.0d+00 - ros_A(5) = 0.0d+00 - ros_A(6) = 1.0d+00 - - ros_C(1) = 4.0d+00 - ros_C(2) = 1.0d+00 - ros_C(3) =-1.0d+00 - ros_C(4) = 1.0d+00 - ros_C(5) =-1.0d+00 - ros_C(6) =-(8.0d+00/3.0d+00) - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .FALSE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 2.0d+00 - ros_M(2) = 0.0d+00 - ros_M(3) = 1.0d+00 - ros_M(4) = 1.0d+00 -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0d+00 - ros_E(2) = 0.0d+00 - ros_E(3) = 0.0d+00 - ros_E(4) = 1.0d+00 -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0d+00 -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0d+00 - ros_Alpha(2) = 0.0d+00 - ros_Alpha(3) = 1.0d+00 - ros_Alpha(4) = 1.0d+00 -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5d+00 - ros_Gamma(2) = 1.5d+00 - ros_Gamma(3) = 0.0d+00 - ros_Gamma(4) = 0.0d+00 - RETURN - END ! SUBROUTINE Rodas3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas4 (ros_S,ros_A,ros_C,ros_M,ros_E,ros_Alpha, - & ros_Gamma,ros_NewF,ros_ELO,ros_Name) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 6 STAGES -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1996) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - INTEGER S - PARAMETER (S=6) - INTEGER ros_S - KPP_REAL ros_M(S), ros_E(S), ros_A(S*(S-1)/2), ros_C(S*(S-1)/2) - KPP_REAL ros_Alpha(S), ros_Gamma(S), ros_ELO - LOGICAL ros_NewF(S) - CHARACTER*12 ros_Name - -!~~~> Name of the method - ros_Name = 'RODAS-4' -!~~~> Number of stages - ros_S = 6 - -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.000d0 - ros_Alpha(2) = 0.386d0 - ros_Alpha(3) = 0.210d0 - ros_Alpha(4) = 0.630d0 - ros_Alpha(5) = 1.000d0 - ros_Alpha(6) = 1.000d0 - -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.2500000000000000d+00 - ros_Gamma(2) =-0.1043000000000000d+00 - ros_Gamma(3) = 0.1035000000000000d+00 - ros_Gamma(4) =-0.3620000000000023d-01 - ros_Gamma(5) = 0.0d0 - ros_Gamma(6) = 0.0d0 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.1544000000000000d+01 - ros_A(2) = 0.9466785280815826d+00 - ros_A(3) = 0.2557011698983284d+00 - ros_A(4) = 0.3314825187068521d+01 - ros_A(5) = 0.2896124015972201d+01 - ros_A(6) = 0.9986419139977817d+00 - ros_A(7) = 0.1221224509226641d+01 - ros_A(8) = 0.6019134481288629d+01 - ros_A(9) = 0.1253708332932087d+02 - ros_A(10) =-0.6878860361058950d+00 - ros_A(11) = ros_A(7) - ros_A(12) = ros_A(8) - ros_A(13) = ros_A(9) - ros_A(14) = ros_A(10) - ros_A(15) = 1.0d+00 - - ros_C(1) =-0.5668800000000000d+01 - ros_C(2) =-0.2430093356833875d+01 - ros_C(3) =-0.2063599157091915d+00 - ros_C(4) =-0.1073529058151375d+00 - ros_C(5) =-0.9594562251023355d+01 - ros_C(6) =-0.2047028614809616d+02 - ros_C(7) = 0.7496443313967647d+01 - ros_C(8) =-0.1024680431464352d+02 - ros_C(9) =-0.3399990352819905d+02 - ros_C(10) = 0.1170890893206160d+02 - ros_C(11) = 0.8083246795921522d+01 - ros_C(12) =-0.7981132988064893d+01 - ros_C(13) =-0.3152159432874371d+02 - ros_C(14) = 0.1631930543123136d+02 - ros_C(15) =-0.6058818238834054d+01 - -!~~~> M_i = Coefficients for new step solution - ros_M(1) = ros_A(7) - ros_M(2) = ros_A(8) - ros_M(3) = ros_A(9) - ros_M(4) = ros_A(10) - ros_M(5) = 1.0d+00 - ros_M(6) = 1.0d+00 - -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0d+00 - ros_E(2) = 0.0d+00 - ros_E(3) = 0.0d+00 - ros_E(4) = 0.0d+00 - ros_E(5) = 0.0d+00 - ros_E(6) = 1.0d+00 - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - ros_NewF(5) = .TRUE. - ros_NewF(6) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0d0 - - RETURN - END ! SUBROUTINE Rodas4 - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE DecompTemplate( A, Pivot, ising ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the LU decomposition -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Global.h' -!~~~> Inout variables - KPP_REAL A(KPP_LU_NONZERO) -!~~~> Output variables - INTEGER Pivot(KPP_NVAR), ising -!~~~> Collect statistics - INTEGER Nfun,Njac,Nstp,Nacc,Nrej,Ndec,Nsol,Nsng - COMMON /Statistics/ Nfun,Njac,Nstp,Nacc,Nrej, - & Ndec,Nsol,Nsng - - CALL KppDecomp ( A, ising ) -!~~~> Note: for a full matrix use Lapack: -! CALL DGETRF( KPP_NVAR, KPP_NVAR, A, KPP_NVAR, Pivot, ising ) - - Ndec = Ndec + 1 - - END ! SUBROUTINE DecompTemplate - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SolveTemplate( A, Pivot, b ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the forward/backward substitution (using pre-computed LU decomposition) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Global.h' -!~~~> Input variables - KPP_REAL A(KPP_LU_NONZERO) - INTEGER Pivot(KPP_NVAR) -!~~~> InOut variables - KPP_REAL b(KPP_NVAR) -!~~~> Collect statistics - INTEGER Nfun,Njac,Nstp,Nacc,Nrej,Ndec,Nsol,Nsng - COMMON /Statistics/ Nfun,Njac,Nstp,Nacc,Nrej, - & Ndec,Nsol,Nsng - - CALL KppSolve( A, b ) -!~~~> Note: for a full matrix use Lapack: -! NRHS = 1 -! CALL DGETRS( 'N', KPP_NVAR , NRHS, A, KPP_NVAR, Pivot, b, KPP_NVAR, INFO ) - - Nsol = Nsol+1 - - END ! SUBROUTINE SolveTemplate - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE FunTemplate( T, Y, Ydot ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE function call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Global.h' -!~~~> Input variables - KPP_REAL T, Y(KPP_NVAR) -!~~~> Output variables - KPP_REAL Ydot(KPP_NVAR) -!~~~> Local variables - KPP_REAL Told -!~~~> Collect statistics - INTEGER Nfun,Njac,Nstp,Nacc,Nrej,Ndec,Nsol,Nsng - COMMON /Statistics/ Nfun,Njac,Nstp,Nacc,Nrej, - & Ndec,Nsol,Nsng - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, Ydot ) - TIME = Told - - Nfun = Nfun+1 - - RETURN - END ! SUBROUTINE FunTemplate - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE JacTemplate( T, Y, Jcb ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE Jacobian call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Global.h' -!~~~> Input variables - KPP_REAL T, Y(KPP_NVAR) -!~~~> Output variables - KPP_REAL Jcb(KPP_LU_NONZERO) -!~~~> Local variables - KPP_REAL Told -!~~~> Collect statistics - INTEGER Nfun,Njac,Nstp,Nacc,Nrej,Ndec,Nsol,Nsng - COMMON /Statistics/ Nfun,Njac,Nstp,Nacc,Nrej, - & Ndec,Nsol,Nsng - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Jac_SP( Y, FIX, RCONST, Jcb ) - TIME = Told - - Njac = Njac+1 - - RETURN - END ! SUBROUTINE JacTemplate - diff --git a/int.modified_WCOPY/rosenbrock.f90 b/int.modified_WCOPY/rosenbrock.f90 deleted file mode 100644 index 98434632f12e1b4d2c26d1477973f1e018f888d3..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/rosenbrock.f90 +++ /dev/null @@ -1,1308 +0,0 @@ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! -! Rosenbrock - Implementation of several Rosenbrock methods: ! -! * Ros2 ! -! * Ros3 ! -! * Ros4 ! -! * Rodas3 ! -! * Rodas4 ! -! By default the code employs the KPP sparse linear algebra routines ! -! Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK) ! -! ! -! (C) Adrian Sandu, August 2004 ! -! Virginia Polytechnic Institute and State University ! -! Contact: sandu@cs.vt.edu ! -! Revised by Philipp Miehe and Adrian Sandu, May 2006 ! ! -! This implementation is part of KPP - the Kinetic PreProcessor ! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! - -MODULE KPP_ROOT_Integrator - - USE KPP_ROOT_Parameters, ONLY: NVAR, NFIX, NSPEC, LU_NONZERO - USE KPP_ROOT_Global - IMPLICIT NONE - PUBLIC - SAVE - -!~~~> Statistics on the work performed by the Rosenbrock method - INTEGER, PARAMETER :: Nfun=1, Njac=2, Nstp=3, Nacc=4, & - Nrej=5, Ndec=6, Nsol=7, Nsng=8, & - Ntexit=1, Nhexit=2, Nhnew = 3 - -CONTAINS - -SUBROUTINE INTEGRATE( TIN, TOUT, & - ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U, IERR_U ) - - IMPLICIT NONE - - KPP_REAL, INTENT(IN) :: TIN ! Start Time - KPP_REAL, INTENT(IN) :: TOUT ! End Time - ! Optional input parameters and statistics - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - KPP_REAL, INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - KPP_REAL, INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: IERR_U - - KPP_REAL :: RCNTRL(20), RSTATUS(20) - INTEGER :: ICNTRL(20), ISTATUS(20), IERR - - INTEGER, SAVE :: Ntotal = 0 - - ICNTRL(:) = 0 - RCNTRL(:) = 0.0_dp - ISTATUS(:) = 0 - RSTATUS(:) = 0.0_dp - - !~~~> fine-tune the integrator: - ICNTRL(1) = 0 ! 0 - non-autonomous, 1 - autonomous - ICNTRL(2) = 0 ! 0 - vector tolerances, 1 - scalars - - ! If optional parameters are given, and if they are >0, - ! then they overwrite default settings. - IF (PRESENT(ICNTRL_U)) THEN - WHERE(ICNTRL_U(:) > 0) ICNTRL(:) = ICNTRL_U(:) - END IF - IF (PRESENT(RCNTRL_U)) THEN - WHERE(RCNTRL_U(:) > 0) RCNTRL(:) = RCNTRL_U(:) - END IF - - - CALL Rosenbrock(NVAR,VAR,TIN,TOUT, & - ATOL,RTOL, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) - - !~~~> Debug option: show no of steps - ! Ntotal = Ntotal + ISTATUS(Nstp) - ! PRINT*,'NSTEPS=',ISTATUS(Nstp),' (',Ntotal,')',' O3=', VAR(ind_O3) - - STEPMIN = RSTATUS(Nhexit) - ! if optional parameters are given for output they - ! are updated with the return information - IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(:) - IF (PRESENT(RSTATUS_U)) RSTATUS_U(:) = RSTATUS(:) - IF (PRESENT(IERR_U)) IERR_U = IERR - -END SUBROUTINE INTEGRATE - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE Rosenbrock(N,Y,Tstart,Tend, & - AbsTol,RelTol, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Solves the system y'=F(t,y) using a Rosenbrock method defined by: -! -! G = 1/(H*gamma(1)) - Jac(t0,Y0) -! T_i = t0 + Alpha(i)*H -! Y_i = Y0 + \sum_{j=1}^{i-1} A(i,j)*K_j -! G * K_i = Fun( T_i, Y_i ) + \sum_{j=1}^S C(i,j)/H * K_j + -! gamma(i)*dF/dT(t0, Y0) -! Y1 = Y0 + \sum_{j=1}^S M(j)*K_j -! -! For details on Rosenbrock methods and their implementation consult: -! E. Hairer and G. Wanner -! "Solving ODEs II. Stiff and differential-algebraic problems". -! Springer series in computational mathematics, Springer-Verlag, 1996. -! The codes contained in the book inspired this implementation. -! -! (C) Adrian Sandu, August 2004 -! Virginia Polytechnic Institute and State University -! Contact: sandu@cs.vt.edu -! Revised by Philipp Miehe and Adrian Sandu, May 2006 -! This implementation is part of KPP - the Kinetic PreProcessor -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT ARGUMENTS: -! -!- Y(N) = vector of initial conditions (at T=Tstart) -!- [Tstart,Tend] = time range of integration -! (if Tstart>Tend the integration is performed backwards in time) -!- RelTol, AbsTol = user precribed accuracy -!- SUBROUTINE Fun( T, Y, Ydot ) = ODE function, -! returns Ydot = Y' = F(T,Y) -!- SUBROUTINE Jac( T, Y, Jcb ) = Jacobian of the ODE function, -! returns Jcb = dFun/dY -!- ICNTRL(1:20) = integer inputs parameters -!- RCNTRL(1:20) = real inputs parameters -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT ARGUMENTS: -! -!- Y(N) -> vector of final states (at T->Tend) -!- ISTATUS(1:20) -> integer output parameters -!- RSTATUS(1:20) -> real output parameters -!- IERR -> job status upon return -! success (positive value) or -! failure (negative value) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT PARAMETERS: -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -! ICNTRL(1) = 1: F = F(y) Independent of T (AUTONOMOUS) -! = 0: F = F(t,y) Depends on T (NON-AUTONOMOUS) -! -! ICNTRL(2) = 0: AbsTol, RelTol are N-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ICNTRL(3) -> selection of a particular Rosenbrock method -! = 0 : Rodas3 (default) -! = 1 : Ros2 -! = 2 : Ros3 -! = 3 : Ros4 -! = 4 : Rodas3 -! = 5 : Rodas4 -! -! ICNTRL(4) -> maximum number of integration steps -! For ICNTRL(4)=0) the default value of 100000 is used -! -! RCNTRL(1) -> Hmin, lower bound for the integration step size -! It is strongly recommended to keep Hmin = ZERO -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! RCNTRL(3) -> Hstart, starting value for the integration step size -! -! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! RCNTRL(5) -> FacMax, upper bound on step increase factor (default=6) -! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! -! OUTPUT ARGUMENTS: -! ----------------- -! -! T -> T value for which the solution has been computed -! (after successful return T=Tend). -! -! Y(N) -> Numerical solution at T -! -! IDID -> Reports on successfulness upon return: -! = 1 for success -! < 0 for error (value equals error code) -! -! ISTATUS(1) -> No. of function calls -! ISTATUS(2) -> No. of jacobian calls -! ISTATUS(3) -> No. of steps -! ISTATUS(4) -> No. of accepted steps -! ISTATUS(5) -> No. of rejected steps (except at very beginning) -! ISTATUS(6) -> No. of LU decompositions -! ISTATUS(7) -> No. of forward/backward substitutions -! ISTATUS(8) -> No. of singular matrix decompositions -! -! RSTATUS(1) -> Texit, the time corresponding to the -! computed Y upon return -! RSTATUS(2) -> Hexit, last accepted step before exit -! RSTATUS(3) -> Hnew, last predicted step (not yet taken) -! For multiple restarts, use Hnew as Hstart -! in the subsequent run -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters - USE KPP_ROOT_LinearAlgebra - IMPLICIT NONE - -!~~~> Arguments - INTEGER, INTENT(IN) :: N - KPP_REAL, INTENT(INOUT) :: Y(N) - KPP_REAL, INTENT(IN) :: Tstart,Tend - KPP_REAL, INTENT(IN) :: AbsTol(N),RelTol(N) - INTEGER, INTENT(IN) :: ICNTRL(20) - KPP_REAL, INTENT(IN) :: RCNTRL(20) - INTEGER, INTENT(INOUT) :: ISTATUS(20) - KPP_REAL, INTENT(INOUT) :: RSTATUS(20) - INTEGER, INTENT(OUT) :: IERR -!~~~> Parameters of the Rosenbrock method, up to 6 stages - INTEGER :: ros_S, rosMethod - INTEGER, PARAMETER :: RS2=1, RS3=2, RS4=3, RD3=4, RD4=5, RG3=6 - KPP_REAL :: ros_A(15), ros_C(15), ros_M(6), ros_E(6), & - ros_Alpha(6), ros_Gamma(6), ros_ELO - LOGICAL :: ros_NewF(6) - CHARACTER(LEN=12) :: ros_Name -!~~~> Local variables - KPP_REAL :: Roundoff, FacMin, FacMax, FacRej, FacSafe - KPP_REAL :: Hmin, Hmax, Hstart - KPP_REAL :: Texit - INTEGER :: i, UplimTol, Max_no_steps - LOGICAL :: Autonomous, VectorTol -!~~~> Parameters - KPP_REAL, PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp - KPP_REAL, PARAMETER :: DeltaMin = 1.0E-5_dp - -!~~~> Initialize statistics - ISTATUS(1:8) = 0 - RSTATUS(1:3) = ZERO - -!~~~> Autonomous or time dependent ODE. Default is time dependent. - Autonomous = .NOT.(ICNTRL(1) == 0) - -!~~~> For Scalar tolerances (ICNTRL(2).NE.0) the code uses AbsTol(1) and RelTol(1) -! For Vector tolerances (ICNTRL(2) == 0) the code uses AbsTol(1:N) and RelTol(1:N) - IF (ICNTRL(2) == 0) THEN - VectorTol = .TRUE. - UplimTol = N - ELSE - VectorTol = .FALSE. - UplimTol = 1 - END IF - -!~~~> Initialize the particular Rosenbrock method selected - SELECT CASE (ICNTRL(3)) - CASE (1) - CALL Ros2 - CASE (2) - CALL Ros3 - CASE (3) - CALL Ros4 - CASE (0,4) - CALL Rodas3 - CASE (5) - CALL Rodas4 - CASE (6) - CALL Rang3 - CASE DEFAULT - PRINT * , 'Unknown Rosenbrock method: ICNTRL(3)=',ICNTRL(3) - CALL ros_ErrorMsg(-2,Tstart,ZERO,IERR) - RETURN - END SELECT - -!~~~> The maximum number of steps admitted - IF (ICNTRL(4) == 0) THEN - Max_no_steps = 200000 - ELSEIF (ICNTRL(4) > 0) THEN - Max_no_steps=ICNTRL(4) - ELSE - PRINT * ,'User-selected max no. of steps: ICNTRL(4)=',ICNTRL(4) - CALL ros_ErrorMsg(-1,Tstart,ZERO,IERR) - RETURN - END IF - -!~~~> Unit roundoff (1+Roundoff>1) - Roundoff = WLAMCH('E') - -!~~~> Lower bound on the step size: (positive value) - IF (RCNTRL(1) == ZERO) THEN - Hmin = ZERO - ELSEIF (RCNTRL(1) > ZERO) THEN - Hmin = RCNTRL(1) - ELSE - PRINT * , 'User-selected Hmin: RCNTRL(1)=', RCNTRL(1) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Upper bound on the step size: (positive value) - IF (RCNTRL(2) == ZERO) THEN - Hmax = ABS(Tend-Tstart) - ELSEIF (RCNTRL(2) > ZERO) THEN - Hmax = MIN(ABS(RCNTRL(2)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hmax: RCNTRL(2)=', RCNTRL(2) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Starting step size: (positive value) - IF (RCNTRL(3) == ZERO) THEN - Hstart = MAX(Hmin,DeltaMin) - ELSEIF (RCNTRL(3) > ZERO) THEN - Hstart = MIN(ABS(RCNTRL(3)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hstart: RCNTRL(3)=', RCNTRL(3) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Step size can be changed s.t. FacMin < Hnew/Hold < FacMax - IF (RCNTRL(4) == ZERO) THEN - FacMin = 0.2_dp - ELSEIF (RCNTRL(4) > ZERO) THEN - FacMin = RCNTRL(4) - ELSE - PRINT * , 'User-selected FacMin: RCNTRL(4)=', RCNTRL(4) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF - IF (RCNTRL(5) == ZERO) THEN - FacMax = 6.0_dp - ELSEIF (RCNTRL(5) > ZERO) THEN - FacMax = RCNTRL(5) - ELSE - PRINT * , 'User-selected FacMax: RCNTRL(5)=', RCNTRL(5) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacRej: Factor to decrease step after 2 succesive rejections - IF (RCNTRL(6) == ZERO) THEN - FacRej = 0.1_dp - ELSEIF (RCNTRL(6) > ZERO) THEN - FacRej = RCNTRL(6) - ELSE - PRINT * , 'User-selected FacRej: RCNTRL(6)=', RCNTRL(6) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacSafe: Safety Factor in the computation of new step size - IF (RCNTRL(7) == ZERO) THEN - FacSafe = 0.9_dp - ELSEIF (RCNTRL(7) > ZERO) THEN - FacSafe = RCNTRL(7) - ELSE - PRINT * , 'User-selected FacSafe: RCNTRL(7)=', RCNTRL(7) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Check if tolerances are reasonable - DO i=1,UplimTol - IF ( (AbsTol(i) <= ZERO) .OR. (RelTol(i) <= 10.0_dp*Roundoff) & - .OR. (RelTol(i) >= 1.0_dp) ) THEN - PRINT * , ' AbsTol(',i,') = ',AbsTol(i) - PRINT * , ' RelTol(',i,') = ',RelTol(i) - CALL ros_ErrorMsg(-5,Tstart,ZERO,IERR) - RETURN - END IF - END DO - - -!~~~> CALL Rosenbrock method - CALL ros_Integrator(Y, Tstart, Tend, Texit, & - AbsTol, RelTol, & -! Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -! Error indicator - IERR) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -CONTAINS ! SUBROUTINES internal to Rosenbrock -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_ErrorMsg(Code,T,H,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - KPP_REAL, INTENT(IN) :: T, H - INTEGER, INTENT(IN) :: Code - INTEGER, INTENT(OUT) :: IERR - - IERR = Code - PRINT * , & - 'Forced exit from Rosenbrock due to the following error:' - - SELECT CASE (Code) - CASE (-1) - PRINT * , '--> Improper value for maximal no of steps' - CASE (-2) - PRINT * , '--> Selected Rosenbrock method not implemented' - CASE (-3) - PRINT * , '--> Hmin/Hmax/Hstart must be positive' - CASE (-4) - PRINT * , '--> FacMin/FacMax/FacRej must be positive' - CASE (-5) - PRINT * , '--> Improper tolerance values' - CASE (-6) - PRINT * , '--> No of steps exceeds maximum bound' - CASE (-7) - PRINT * , '--> Step size too small: T + 10*H = T', & - ' or H < Roundoff' - CASE (-8) - PRINT * , '--> Matrix is repeatedly singular' - CASE DEFAULT - PRINT *, 'Unknown Error code: ', Code - END SELECT - - PRINT *, "T=", T, "and H=", H - - END SUBROUTINE ros_ErrorMsg - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Integrator (Y, Tstart, Tend, T, & - AbsTol, RelTol, & -!~~~> Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -!~~~> Error indicator - IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the implementation of a generic Rosenbrock method -! defined by ros_S (no of stages) -! and its coefficients ros_{A,C,M,E,Alpha,Gamma} -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - -!~~~> Input: the initial condition at Tstart; Output: the solution at T - KPP_REAL, INTENT(INOUT) :: Y(N) -!~~~> Input: integration interval - KPP_REAL, INTENT(IN) :: Tstart,Tend -!~~~> Output: time at which the solution is returned (T=Tend if success) - KPP_REAL, INTENT(OUT) :: T -!~~~> Input: tolerances - KPP_REAL, INTENT(IN) :: AbsTol(N), RelTol(N) -!~~~> Input: integration parameters - LOGICAL, INTENT(IN) :: Autonomous, VectorTol - KPP_REAL, INTENT(IN) :: Hstart, Hmin, Hmax - INTEGER, INTENT(IN) :: Max_no_steps - KPP_REAL, INTENT(IN) :: Roundoff, FacMin, FacMax, FacRej, FacSafe -!~~~> Output: Error indicator - INTEGER, INTENT(OUT) :: IERR -! ~~~~ Local variables - KPP_REAL :: Ynew(N), Fcn0(N), Fcn(N) - KPP_REAL :: K(N*ros_S), dFdT(N) -#ifdef FULL_ALGEBRA - KPP_REAL :: Jac0(N,N), Ghimj(N,N) -#else - KPP_REAL :: Jac0(LU_NONZERO), Ghimj(LU_NONZERO) -#endif - KPP_REAL :: H, Hnew, HC, HG, Fac, Tau - KPP_REAL :: Err, Yerr(N) - INTEGER :: Pivot(N), Direction, ioffset, j, istage - LOGICAL :: RejectLastH, RejectMoreH, Singular -!~~~> Local parameters - KPP_REAL, PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp - KPP_REAL, PARAMETER :: DeltaMin = 1.0E-5_dp -!~~~> Locally called functions -! KPP_REAL WLAMCH -! EXTERNAL WLAMCH -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~> Initial preparations - T = Tstart - RSTATUS(Nhexit) = ZERO - H = MIN( MAX(ABS(Hmin),ABS(Hstart)) , ABS(Hmax) ) - IF (ABS(H) <= 10.0_dp*Roundoff) H = DeltaMin - - IF (Tend >= Tstart) THEN - Direction = +1 - ELSE - Direction = -1 - END IF - H = Direction*H - - RejectLastH=.FALSE. - RejectMoreH=.FALSE. - -!~~~> Time loop begins below - -TimeLoop: DO WHILE ( (Direction > 0).AND.((T-Tend)+Roundoff <= ZERO) & - .OR. (Direction < 0).AND.((Tend-T)+Roundoff <= ZERO) ) - - IF ( ISTATUS(Nstp) > Max_no_steps ) THEN ! Too many steps - CALL ros_ErrorMsg(-6,T,H,IERR) - RETURN - END IF - IF ( ((T+0.1_dp*H) == T).OR.(H <= Roundoff) ) THEN ! Step size too small - CALL ros_ErrorMsg(-7,T,H,IERR) - RETURN - END IF - -!~~~> Limit H if necessary to avoid going beyond Tend - H = MIN(H,ABS(Tend-T)) - -!~~~> Compute the function at current time - CALL FunTemplate(T,Y,Fcn0) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - -!~~~> Compute the function derivative with respect to T - IF (.NOT.Autonomous) THEN - CALL ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) - END IF - -!~~~> Compute the Jacobian at current time - CALL JacTemplate(T,Y,Jac0) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - -!~~~> Repeat step calculation until current step accepted -UntilAccepted: DO - - CALL ros_PrepareMatrix(H,Direction,ros_Gamma(1), & - Jac0,Ghimj,Pivot,Singular) - IF (Singular) THEN ! More than 5 consecutive failed decompositions - CALL ros_ErrorMsg(-8,T,H,IERR) - RETURN - END IF - -!~~~> Compute the stages -Stage: DO istage = 1, ros_S - - ! Current istage offset. Current istage vector is K(ioffset+1:ioffset+N) - ioffset = N*(istage-1) - - ! For the 1st istage the function has been computed previously - IF ( istage == 1 ) THEN - CALL WCOPY(N,Fcn0,1,Fcn,1) - ! istage>1 and a new function evaluation is needed at the current istage - ELSEIF ( ros_NewF(istage) ) THEN - CALL WCOPY(N,Y,1,Ynew,1) - DO j = 1, istage-1 - CALL WAXPY(N,ros_A((istage-1)*(istage-2)/2+j), & - K(N*(j-1)+1:N*j),1,Ynew,1) - END DO - Tau = T + ros_Alpha(istage)*Direction*H - CALL FunTemplate(Tau,Ynew,Fcn) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - END IF ! if istage == 1 elseif ros_NewF(istage) - CALL WCOPY(N,Fcn,1,K(ioffset+1:ioffset+N),1) - DO j = 1, istage-1 - HC = ros_C((istage-1)*(istage-2)/2+j)/(Direction*H) - CALL WAXPY(N,HC,K(N*(j-1)+1:N*j),1,K(ioffset+1:ioffset+N),1) - END DO - IF ((.NOT. Autonomous).AND.(ros_Gamma(istage).NE.ZERO)) THEN - HG = Direction*H*ros_Gamma(istage) - CALL WAXPY(N,HG,dFdT,1,K(ioffset+1:ioffset+N),1) - END IF - CALL ros_Solve(Ghimj, Pivot, K(ioffset+1:ioffset+N)) - - END DO Stage - - -!~~~> Compute the new solution - CALL WCOPY(N,Y,1,Ynew,1) - DO j=1,ros_S - CALL WAXPY(N,ros_M(j),K(N*(j-1)+1:N*j),1,Ynew,1) - END DO - -!~~~> Compute the error estimation - CALL WSCAL(N,ZERO,Yerr,1) - DO j=1,ros_S - CALL WAXPY(N,ros_E(j),K(N*(j-1)+1:N*j),1,Yerr,1) - END DO - Err = ros_ErrorNorm ( Y, Ynew, Yerr, AbsTol, RelTol, VectorTol ) - -!~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax - Fac = MIN(FacMax,MAX(FacMin,FacSafe/Err**(ONE/ros_ELO))) - Hnew = H*Fac - -!~~~> Check the error magnitude and adjust step size - ISTATUS(Nstp) = ISTATUS(Nstp) + 1 - IF ( (Err <= ONE).OR.(H <= Hmin) ) THEN !~~~> Accept step - ISTATUS(Nacc) = ISTATUS(Nacc) + 1 - CALL WCOPY(N,Ynew,1,Y,1) - T = T + Direction*H - Hnew = MAX(Hmin,MIN(Hnew,Hmax)) - IF (RejectLastH) THEN ! No step size increase after a rejected step - Hnew = MIN(Hnew,H) - END IF - RSTATUS(Nhexit) = H - RSTATUS(Nhnew) = Hnew - RSTATUS(Ntexit) = T - RejectLastH = .FALSE. - RejectMoreH = .FALSE. - H = Hnew - EXIT UntilAccepted ! EXIT THE LOOP: WHILE STEP NOT ACCEPTED - ELSE !~~~> Reject step - IF (RejectMoreH) THEN - Hnew = H*FacRej - END IF - RejectMoreH = RejectLastH - RejectLastH = .TRUE. - H = Hnew - IF (ISTATUS(Nacc) >= 1) ISTATUS(Nrej) = ISTATUS(Nrej) + 1 - END IF ! Err <= 1 - - END DO UntilAccepted - - END DO TimeLoop - -!~~~> Succesful exit - IERR = 1 !~~~> The integration was successful - - END SUBROUTINE ros_Integrator - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - KPP_REAL FUNCTION ros_ErrorNorm ( Y, Ynew, Yerr, & - AbsTol, RelTol, VectorTol ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Computes the "scaled norm" of the error vector Yerr -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -! Input arguments - KPP_REAL, INTENT(IN) :: Y(N), Ynew(N), & - Yerr(N), AbsTol(N), RelTol(N) - LOGICAL, INTENT(IN) :: VectorTol -! Local variables - KPP_REAL :: Err, Scale, Ymax - INTEGER :: i - KPP_REAL, PARAMETER :: ZERO = 0.0_dp - - Err = ZERO - DO i=1,N - Ymax = MAX(ABS(Y(i)),ABS(Ynew(i))) - IF (VectorTol) THEN - Scale = AbsTol(i)+RelTol(i)*Ymax - ELSE - Scale = AbsTol(1)+RelTol(1)*Ymax - END IF - Err = Err+(Yerr(i)/Scale)**2 - END DO - Err = SQRT(Err/N) - - ros_ErrorNorm = MAX(Err,1.0d-10) - - END FUNCTION ros_ErrorNorm - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> The time partial derivative of the function by finite differences -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -!~~~> Input arguments - KPP_REAL, INTENT(IN) :: T, Roundoff, Y(N), Fcn0(N) -!~~~> Output arguments - KPP_REAL, INTENT(OUT) :: dFdT(N) -!~~~> Local variables - KPP_REAL :: Delta - KPP_REAL, PARAMETER :: ONE = 1.0_dp, DeltaMin = 1.0E-6_dp - - Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T)) - CALL FunTemplate(T+Delta,Y,dFdT) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - CALL WAXPY(N,(-ONE),Fcn0,1,dFdT,1) - CALL WSCAL(N,(ONE/Delta),dFdT,1) - - END SUBROUTINE ros_FunTimeDerivative - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_PrepareMatrix ( H, Direction, gam, & - Jac0, Ghimj, Pivot, Singular ) -! --- --- --- --- --- --- --- --- --- --- --- --- --- -! Prepares the LHS matrix for stage calculations -! 1. Construct Ghimj = 1/(H*ham) - Jac0 -! "(Gamma H) Inverse Minus Jacobian" -! 2. Repeat LU decomposition of Ghimj until successful. -! -half the step size if LU decomposition fails and retry -! -exit after 5 consecutive fails -! --- --- --- --- --- --- --- --- --- --- --- --- --- - IMPLICIT NONE - -!~~~> Input arguments -#ifdef FULL_ALGEBRA - KPP_REAL, INTENT(IN) :: Jac0(N,N) -#else - KPP_REAL, INTENT(IN) :: Jac0(LU_NONZERO) -#endif - KPP_REAL, INTENT(IN) :: gam - INTEGER, INTENT(IN) :: Direction -!~~~> Output arguments -#ifdef FULL_ALGEBRA - KPP_REAL, INTENT(OUT) :: Ghimj(N,N) -#else - KPP_REAL, INTENT(OUT) :: Ghimj(LU_NONZERO) -#endif - LOGICAL, INTENT(OUT) :: Singular - INTEGER, INTENT(OUT) :: Pivot(N) -!~~~> Inout arguments - KPP_REAL, INTENT(INOUT) :: H ! step size is decreased when LU fails -!~~~> Local variables - INTEGER :: i, ising, Nconsecutive - KPP_REAL :: ghinv - KPP_REAL, PARAMETER :: ONE = 1.0_dp, HALF = 0.5_dp - - Nconsecutive = 0 - Singular = .TRUE. - - DO WHILE (Singular) - -!~~~> Construct Ghimj = 1/(H*gam) - Jac0 -#ifdef FULL_ALGEBRA - CALL WCOPY(N*N,Jac0,1,Ghimj,1) - CALL WSCAL(N*N,(-ONE),Ghimj,1) - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(i,i) = Ghimj(i,i)+ghinv - END DO -#else - CALL WCOPY(LU_NONZERO,Jac0,1,Ghimj,1) - CALL WSCAL(LU_NONZERO,(-ONE),Ghimj,1) - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(LU_DIAG(i)) = Ghimj(LU_DIAG(i))+ghinv - END DO -#endif -!~~~> Compute LU decomposition - CALL ros_Decomp( Ghimj, Pivot, ising ) - IF (ising == 0) THEN -!~~~> If successful done - Singular = .FALSE. - ELSE ! ising .ne. 0 -!~~~> If unsuccessful half the step size; if 5 consecutive fails then return - ISTATUS(Nsng) = ISTATUS(Nsng) + 1 - Nconsecutive = Nconsecutive+1 - Singular = .TRUE. - PRINT*,'Warning: LU Decomposition returned ising = ',ising - IF (Nconsecutive <= 5) THEN ! Less than 5 consecutive failed decompositions - H = H*HALF - ELSE ! More than 5 consecutive failed decompositions - RETURN - END IF ! Nconsecutive - END IF ! ising - - END DO ! WHILE Singular - - END SUBROUTINE ros_PrepareMatrix - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Decomp( A, Pivot, ising ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the LU decomposition -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Inout variables - KPP_REAL, INTENT(INOUT) :: A(LU_NONZERO) -!~~~> Output variables - INTEGER, INTENT(OUT) :: Pivot(N), ising - -#ifdef FULL_ALGEBRA - CALL DGETRF( N, N, A, N, Pivot, ising ) -#else - CALL KppDecomp ( A, ising ) - Pivot(1) = 1 -#endif - ISTATUS(Ndec) = ISTATUS(Ndec) + 1 - - END SUBROUTINE ros_Decomp - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Solve( A, Pivot, b ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the forward/backward substitution (using pre-computed LU decomposition) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Input variables - KPP_REAL, INTENT(IN) :: A(LU_NONZERO) - INTEGER, INTENT(IN) :: Pivot(N) -!~~~> InOut variables - KPP_REAL, INTENT(INOUT) :: b(N) - -#ifdef FULL_ALGEBRA - CALL DGETRS( 'N', N , 1, A, N, Pivot, b, N, 0 ) -#else - CALL KppSolve( A, b ) -#endif - - ISTATUS(Nsol) = ISTATUS(Nsol) + 1 - - END SUBROUTINE ros_Solve - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 2 stages, order 2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - DOUBLE PRECISION g - - g = 1.0_dp + 1.0_dp/SQRT(2.0_dp) - rosMethod = RS2 -!~~~> Name of the method - ros_Name = 'ROS-2' -!~~~> Number of stages - ros_S = 2 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = (1.0_dp)/g - ros_C(1) = (-2.0_dp)/g -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1)= (3.0_dp)/(2.0_dp*g) - ros_M(2)= (1.0_dp)/(2.0_dp*g) -! E_i = Coefficients for error estimator - ros_E(1) = 1.0_dp/(2.0_dp*g) - ros_E(2) = 1.0_dp/(2.0_dp*g) -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus one - ros_ELO = 2.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 1.0_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = g - ros_Gamma(2) =-g - - END SUBROUTINE Ros2 - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 3 stages, order 3, 2 function evaluations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - rosMethod = RS3 -!~~~> Name of the method - ros_Name = 'ROS-3' -!~~~> Number of stages - ros_S = 3 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1)= 1.0_dp - ros_A(2)= 1.0_dp - ros_A(3)= 0.0_dp - - ros_C(1) = -0.10156171083877702091975600115545E+01_dp - ros_C(2) = 0.40759956452537699824805835358067E+01_dp - ros_C(3) = 0.92076794298330791242156818474003E+01_dp -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.1E+01_dp - ros_M(2) = 0.61697947043828245592553615689730E+01_dp - ros_M(3) = -0.42772256543218573326238373806514_dp -! E_i = Coefficients for error estimator - ros_E(1) = 0.5_dp - ros_E(2) = -0.29079558716805469821718236208017E+01_dp - ros_E(3) = 0.22354069897811569627360909276199_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1)= 0.0_dp - ros_Alpha(2)= 0.43586652150845899941601945119356_dp - ros_Alpha(3)= 0.43586652150845899941601945119356_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1)= 0.43586652150845899941601945119356_dp - ros_Gamma(2)= 0.24291996454816804366592249683314_dp - ros_Gamma(3)= 0.21851380027664058511513169485832E+01_dp - - END SUBROUTINE Ros3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! L-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 4 STAGES -! L-STABLE EMBEDDED ROSENBROCK METHOD OF ORDER 3 -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1990) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RS4 -!~~~> Name of the method - ros_Name = 'ROS-4' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.2000000000000000E+01_dp - ros_A(2) = 0.1867943637803922E+01_dp - ros_A(3) = 0.2344449711399156_dp - ros_A(4) = ros_A(2) - ros_A(5) = ros_A(3) - ros_A(6) = 0.0_dp - - ros_C(1) =-0.7137615036412310E+01_dp - ros_C(2) = 0.2580708087951457E+01_dp - ros_C(3) = 0.6515950076447975_dp - ros_C(4) =-0.2137148994382534E+01_dp - ros_C(5) =-0.3214669691237626_dp - ros_C(6) =-0.6949742501781779_dp -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.2255570073418735E+01_dp - ros_M(2) = 0.2870493262186792_dp - ros_M(3) = 0.4353179431840180_dp - ros_M(4) = 0.1093502252409163E+01_dp -!~~~> E_i = Coefficients for error estimator - ros_E(1) =-0.2815431932141155_dp - ros_E(2) =-0.7276199124938920E-01_dp - ros_E(3) =-0.1082196201495311_dp - ros_E(4) =-0.1093502252409163E+01_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 0.1145640000000000E+01_dp - ros_Alpha(3) = 0.6552168638155900_dp - ros_Alpha(4) = ros_Alpha(3) -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5728200000000000_dp - ros_Gamma(2) =-0.1769193891319233E+01_dp - ros_Gamma(3) = 0.7592633437920482_dp - ros_Gamma(4) =-0.1049021087100450_dp - - END SUBROUTINE Ros4 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- A STIFFLY-STABLE METHOD, 4 stages, order 3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD3 -!~~~> Name of the method - ros_Name = 'RODAS-3' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.0_dp - ros_A(2) = 2.0_dp - ros_A(3) = 0.0_dp - ros_A(4) = 2.0_dp - ros_A(5) = 0.0_dp - ros_A(6) = 1.0_dp - - ros_C(1) = 4.0_dp - ros_C(2) = 1.0_dp - ros_C(3) =-1.0_dp - ros_C(4) = 1.0_dp - ros_C(5) =-1.0_dp - ros_C(6) =-(8.0_dp/3.0_dp) - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .FALSE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 2.0_dp - ros_M(2) = 0.0_dp - ros_M(3) = 1.0_dp - ros_M(4) = 1.0_dp -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0_dp - ros_E(2) = 0.0_dp - ros_E(3) = 0.0_dp - ros_E(4) = 1.0_dp -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0_dp - ros_Alpha(2) = 0.0_dp - ros_Alpha(3) = 1.0_dp - ros_Alpha(4) = 1.0_dp -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5_dp - ros_Gamma(2) = 1.5_dp - ros_Gamma(3) = 0.0_dp - ros_Gamma(4) = 0.0_dp - - END SUBROUTINE Rodas3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 6 STAGES -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1996) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD4 -!~~~> Name of the method - ros_Name = 'RODAS-4' -!~~~> Number of stages - ros_S = 6 - -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.000_dp - ros_Alpha(2) = 0.386_dp - ros_Alpha(3) = 0.210_dp - ros_Alpha(4) = 0.630_dp - ros_Alpha(5) = 1.000_dp - ros_Alpha(6) = 1.000_dp - -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.2500000000000000_dp - ros_Gamma(2) =-0.1043000000000000_dp - ros_Gamma(3) = 0.1035000000000000_dp - ros_Gamma(4) =-0.3620000000000023E-01_dp - ros_Gamma(5) = 0.0_dp - ros_Gamma(6) = 0.0_dp - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.1544000000000000E+01_dp - ros_A(2) = 0.9466785280815826_dp - ros_A(3) = 0.2557011698983284_dp - ros_A(4) = 0.3314825187068521E+01_dp - ros_A(5) = 0.2896124015972201E+01_dp - ros_A(6) = 0.9986419139977817_dp - ros_A(7) = 0.1221224509226641E+01_dp - ros_A(8) = 0.6019134481288629E+01_dp - ros_A(9) = 0.1253708332932087E+02_dp - ros_A(10) =-0.6878860361058950_dp - ros_A(11) = ros_A(7) - ros_A(12) = ros_A(8) - ros_A(13) = ros_A(9) - ros_A(14) = ros_A(10) - ros_A(15) = 1.0_dp - - ros_C(1) =-0.5668800000000000E+01_dp - ros_C(2) =-0.2430093356833875E+01_dp - ros_C(3) =-0.2063599157091915_dp - ros_C(4) =-0.1073529058151375_dp - ros_C(5) =-0.9594562251023355E+01_dp - ros_C(6) =-0.2047028614809616E+02_dp - ros_C(7) = 0.7496443313967647E+01_dp - ros_C(8) =-0.1024680431464352E+02_dp - ros_C(9) =-0.3399990352819905E+02_dp - ros_C(10) = 0.1170890893206160E+02_dp - ros_C(11) = 0.8083246795921522E+01_dp - ros_C(12) =-0.7981132988064893E+01_dp - ros_C(13) =-0.3152159432874371E+02_dp - ros_C(14) = 0.1631930543123136E+02_dp - ros_C(15) =-0.6058818238834054E+01_dp - -!~~~> M_i = Coefficients for new step solution - ros_M(1) = ros_A(7) - ros_M(2) = ros_A(8) - ros_M(3) = ros_A(9) - ros_M(4) = ros_A(10) - ros_M(5) = 1.0_dp - ros_M(6) = 1.0_dp - -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0_dp - ros_E(2) = 0.0_dp - ros_E(3) = 0.0_dp - ros_E(4) = 0.0_dp - ros_E(5) = 0.0_dp - ros_E(6) = 1.0_dp - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - ros_NewF(5) = .TRUE. - ros_NewF(6) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0_dp - - END SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rang3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE W METHOD OF ORDER 3, WITH 4 STAGES -! -! J. RANG and L. ANGERMANN -! NEW ROSENBROCK W-METHODS OF ORDER 3 -! FOR PARTIAL DIFFERENTIAL ALGEBRAIC -! EQUATIONS OF INDEX 1 -! BIT Numerical Mathematics (2005) 45: 761-787 -! DOI: 10.1007/s10543-005-0035-y -! Table 4.1-4.2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RG3 -!~~~> Name of the method - ros_Name = 'RANG-3' -!~~~> Number of stages - ros_S = 4 - - ros_A(1) = 5.09052051067020d+00; - ros_A(2) = 5.09052051067020d+00; - ros_A(3) = 0.0d0; - ros_A(4) = 4.97628111010787d+00; - ros_A(5) = 2.77268164715849d-02; - ros_A(6) = 2.29428036027904d-01; - - ros_C(1) = -1.16790812312283d+01; - ros_C(2) = -1.64057326467367d+01; - ros_C(3) = -2.77268164715850d-01; - ros_C(4) = -8.38103960500476d+00; - ros_C(5) = -8.48328409199343d-01; - ros_C(6) = 2.87009860433106d-01; - - ros_M(1) = 5.22582761233094d+00; - ros_M(2) = -5.56971148154165d-01; - ros_M(3) = 3.57979469353645d-01; - ros_M(4) = 1.72337398521064d+00; - - ros_E(1) = -5.16845212784040d+00; - ros_E(2) = -1.26351942603842d+00; - ros_E(3) = -1.11022302462516d-16; - ros_E(4) = 2.22044604925031d-16; - - ros_Alpha(1) = 0.0d00; - ros_Alpha(2) = 2.21878746765329d+00; - ros_Alpha(3) = 2.21878746765329d+00; - ros_Alpha(4) = 1.55392337535788d+00; - - ros_Gamma(1) = 4.35866521508459d-01; - ros_Gamma(2) = -1.78292094614483d+00; - ros_Gamma(3) = -2.46541900496934d+00; - ros_Gamma(4) = -8.05529997906370d-01; - - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0_dp - - END SUBROUTINE Rang3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! End of the set of internal Rosenbrock subroutines -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -END SUBROUTINE Rosenbrock -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE FunTemplate( T, Y, Ydot ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE function call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE KPP_ROOT_Parameters, ONLY: NVAR, LU_NONZERO - USE KPP_ROOT_Global, ONLY: FIX, RCONST, TIME - USE KPP_ROOT_Function, ONLY: Fun - USE KPP_ROOT_Rates, ONLY: Update_SUN, Update_RCONST -!~~~> Input variables - KPP_REAL :: T, Y(NVAR) -!~~~> Output variables - KPP_REAL :: Ydot(NVAR) -!~~~> Local variables - KPP_REAL :: Told - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, Ydot ) - TIME = Told - -END SUBROUTINE FunTemplate - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE JacTemplate( T, Y, Jcb ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE Jacobian call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - USE KPP_ROOT_Parameters, ONLY: NVAR, LU_NONZERO - USE KPP_ROOT_Global, ONLY: FIX, RCONST, TIME - USE KPP_ROOT_Jacobian, ONLY: Jac_SP, LU_IROW, LU_ICOL - USE KPP_ROOT_LinearAlgebra - USE KPP_ROOT_Rates, ONLY: Update_SUN, Update_RCONST -!~~~> Input variables - KPP_REAL :: T, Y(NVAR) -!~~~> Output variables -#ifdef FULL_ALGEBRA - KPP_REAL :: JV(LU_NONZERO), Jcb(NVAR,NVAR) -#else - KPP_REAL :: Jcb(LU_NONZERO) -#endif -!~~~> Local variables - KPP_REAL :: Told -#ifdef FULL_ALGEBRA - INTEGER :: i, j -#endif - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() -#ifdef FULL_ALGEBRA - CALL Jac_SP(Y, FIX, RCONST, JV) - DO j=1,NVAR - DO i=1,NVAR - Jcb(i,j) = 0.0_dp - END DO - END DO - DO i=1,LU_NONZERO - Jcb(LU_IROW(i),LU_ICOL(i)) = JV(i) - END DO -#else - CALL Jac_SP( Y, FIX, RCONST, Jcb ) -#endif - TIME = Told - -END SUBROUTINE JacTemplate - -END MODULE KPP_ROOT_Integrator - - - - diff --git a/int.modified_WCOPY/rosenbrock.m b/int.modified_WCOPY/rosenbrock.m deleted file mode 100644 index 94ec63d20317205cd57d2f0f9d124525de48ffdf..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/rosenbrock.m +++ /dev/null @@ -1,986 +0,0 @@ -function [T, Y, RCNTRL, ICNTRL, RSTAT, ISTAT] = ... - Rosenbrock(Function, Tspan, Y0, Options, RCNTRL, ICNTRL) -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -% Rosenbrock - Implementation of several Rosenbrock methods: -% * Ros2 -% * Ros3 -% * Ros4 -% * Rodas3 -% * Rodas4 -% -% Solves the system y'=F(t,y) using a Rosenbrock method defined by: -% -% G = 1/(H*gamma(1)) - Jac(t0,Y0) -% T_i = t0 + Alpha(i)*H -% Y_i = Y0 + \sum_{j=1}^{i-1} A(i,j)*K_j -% G * K_i = Fun( T_i, Y_i ) + \sum_{j=1}^S C(i,j)/H * K_j + -% gamma(i)*dF/dT(t0, Y0) -% Y1 = Y0 + \sum_{j=1}^S M(j)*K_j -% -% For details on Rosenbrock methods and their implementation consult: -% E. Hairer and G. Wanner -% "Solving ODEs II. Stiff and differential-algebraic problems". -% Springer series in computational mathematics, Springer-Verlag, 1996. -% The codes contained in the book inspired this implementation. -% -% MATLAB implementation (C) John C. Linford (jlinford@vt.edu). -% Virginia Polytechnic Institute and State University -% November, 2009 -% -% Based on the Fortran90 implementation (C) Adrian Sandu, August 2004 -% and revised by Philipp Miehe and Adrian Sandu, May 2006. -% Virginia Polytechnic Institute and State University -% Contact: sandu@cs.vt.edu -% -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -% Input Arguments : -% The first four arguments are similar to the input arguments of -% MATLAB's ODE solvers -% Function - A function handle for the ODE function -% Tspan - The time space to integrate -% Y0 - Initial value -% Options - ODE solver options created by odeset(): -% AbsTol, InitialStep, Jacobian, MaxStep, and RelTol -% are considered. Other options are ignored. -% 'Jacobian' must be set. -% RCNTRL - real value input parameters (explained below) -% ICNTRL - integer input parameters (explained below) -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -% Output Arguments: -% The first two arguments are similar to the output arguments of -% MATLAB's ODE solvers -% T - A vector of final integration times. -% Y - A matrix of function values. Y(T(i),:) is the value of -% the function at the ith output time. -% RCNTRL - real value input parameters (explained below) -% ICNTRL - integer input parameters (explained below) -% RSTAT - real output parameters (explained below) -% ISTAT - integer output parameters (explained below) -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -% -% RCNTRL and ICNTRL on input and output: -% -% Note: For input parameters equal to zero the default values of the -% corresponding variables are used. -% -% ICNTRL(1) = 1: F = F(y) Independent of T (AUTONOMOUS) -% = 0: F = F(t,y) Depends on T (NON-AUTONOMOUS) -% -% ICNTRL(2) = 0: AbsTol, RelTol are N-dimensional vectors -% = 1: AbsTol, RelTol are scalars -% -% ICNTRL(3) -> selection of a particular Rosenbrock method -% = 0 : Rodas3 (default) -% = 1 : Ros2 -% = 2 : Ros3 -% = 3 : Ros4 -% = 4 : Rodas3 -% = 5 : Rodas4 -% -% ICNTRL(4) -> maximum number of integration steps -% For ICNTRL(4)=0) the default value of 100000 is used -% -% RCNTRL(1) -> Hmin, lower bound for the integration step size -% It is strongly recommended to keep Hmin = ZERO -% RCNTRL(2) -> Hmax, upper bound for the integration step size -% RCNTRL(3) -> Hstart, starting value for the integration step size -% -% RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -% RCNTRL(5) -> FacMax, upper bound on step increase factor (default=6) -% RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -% (default=0.1) -% RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -% than the predicted value (default=0.9) -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -% -% RSTAT and ISTAT on output: -% -% ISTAT(1) -> No. of function calls -% ISTAT(2) -> No. of jacobian calls -% ISTAT(3) -> No. of steps -% ISTAT(4) -> No. of accepted steps -% ISTAT(5) -> No. of rejected steps (except at very beginning) -% ISTAT(6) -> No. of LU decompositions -% ISTAT(7) -> No. of forward/backward substitutions -% ISTAT(8) -> No. of singular matrix decompositions -% -% RSTAT(1) -> Texit, the time corresponding to the -% computed Y upon return -% RSTAT(2) -> Hexit, last accepted step before exit -% RSTAT(3) -> Hnew, last predicted step (not yet taken) -% For multiple restarts, use Hnew as Hstart -% in the subsequent run -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -%~~~> Statistics on the work performed by the Rosenbrock method -global Nfun Njac Nstp Nacc Nrej Ndec Nsol Nsng Ntexit Nhexit Nhnew -global ISTATUS RSTATUS - -% Parse ODE options -AbsTol = odeget(Options, 'AbsTol'); -if isempty(AbsTol) - AbsTol = 1.0e-3; -end -Hstart = odeget(Options, 'InitialStep'); -if isempty(Hstart) - Hstart = 0; -end -Jacobian = odeget(Options, 'Jacobian'); -if isempty(Jacobian) - error('A Jacobian function is required.'); -end -Hmax = odeget(Options, 'MaxStep'); -if isempty(Hmax) - Hmax = 0; -end -RelTol = odeget(Options, 'RelTol'); -if isempty(RelTol) - RelTol = 1.0e-4; -end - -% Initialize statistics -Nfun=1; Njac=2; Nstp=3; Nacc=4; Nrej=5; Ndec=6; Nsol=7; Nsng=8; -Ntexit=1; Nhexit=2; Nhnew=3; -RSTATUS = zeros(20,1); -ISTATUS = zeros(20,1); - -% Get problem size -steps = length(Tspan); -N = length(Y0); - -% Initialize tolerances -ATOL = ones(N,1)*AbsTol; -RTOL = ones(N,1)*RelTol; - -% Initialize step -RCNTRL(2) = max(0, Hmax); -RCNTRL(3) = max(0, Hstart); - -% Integrate -Y = zeros(steps,N); -T = zeros(steps,1); -Y(1,:) = Y0; -T(1) = Tspan(1); -for i=2:steps - [T(i), Y(i,:), IERR] = ... - RosenbrockIntegrator(N, Y(i-1,:), T(i-1), Tspan(i), ... - Function, Jacobian, ATOL, RTOL, RCNTRL, ICNTRL); - - if IERR < 0 - error(['Rosenbrock exited with IERR=',num2str(IERR)]); - end - -end - -ISTAT = ISTATUS; -RSTAT = RSTATUS; - -return - -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function [ T, Y, IERR ] = RosenbrockIntegrator(N, Y, Tstart, Tend, ... - OdeFunction, OdeJacobian, AbsTol, RelTol, RCNTRL, ICNTRL) -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -% Advances the ODE system defined by OdeFunction, OdeJacobian and Y -% from time=Tstart to time=Tend -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -%~~~> Statistics on the work performed by the Rosenbrock method -global Nfun Njac Nstp Nacc Nrej Ndec Nsol Nsng Ntexit Nhexit Nhnew Ntotal -global ISTATUS RSTATUS - -%~~~> Parameters -global ZERO ONE DeltaMin -ZERO = 0.0; ONE = 1.0; DeltaMin = 1.0E-5; - -%~~~> Initialize statistics -ISTATUS(1:8) = 0; -RSTATUS(1:3) = ZERO; - -%~~~> Autonomous or time dependent ODE. Default is time dependent. -Autonomous = ~(ICNTRL(1) == 0); - -%~~~> For Scalar tolerances (ICNTRL(2).NE.0) the code uses AbsTol(1) and RelTol(1) -% For Vector tolerances (ICNTRL(2) == 0) the code uses AbsTol(1:N) and RelTol(1:N) -if ICNTRL(2) == 0 - VectorTol = true; - UplimTol = N; -else - VectorTol = false; - UplimTol = 1; -end - -%~~~> Initialize the particular Rosenbrock method selected -switch (ICNTRL(3)) - case (1) - ros_Param = Ros2; - case (2) - ros_Param = Ros3; - case (3) - ros_Param = Ros4; - case {0,4} - ros_Param = Rodas3; - case (5) - ros_Param = Rodas4; - otherwise - disp(['Unknown Rosenbrock method: ICNTRL(3)=',num2str(ICNTRL(3))]); - IERR = ros_ErrorMsg(-2,Tstart,ZERO); - return -end -ros_S = ros_Param{1}; -rosMethod = ros_Param{2}; -ros_A = ros_Param{3}; -ros_C = ros_Param{4}; -ros_M = ros_Param{5}; -ros_E = ros_Param{6}; -ros_Alpha = ros_Param{7}; -ros_Gamma = ros_Param{8}; -ros_ELO = ros_Param{9}; -ros_NewF = ros_Param{10}; -ros_Name = ros_Param{11}; - -%~~~> The maximum number of steps admitted -if ICNTRL(4) == 0 - Max_no_steps = 200000; -elseif ICNTRL(4) > 0 - Max_no_steps=ICNTRL(4); -else - disp(['User-selected max no. of steps: ICNTRL(4)=',num2str(ICNTRL(4))]); - IERR = ros_ErrorMsg(-1,Tstart,ZERO); - return -end - -%~~~> Unit roundoff (1+Roundoff>1) -Roundoff = eps; - -%~~~> Lower bound on the step size: (positive value) -if RCNTRL(1) == ZERO - Hmin = ZERO; -elseif RCNTRL(1) > ZERO - Hmin = RCNTRL(1); -else - disp(['User-selected Hmin: RCNTRL(1)=', num2str(RCNTRL(1))]); - IERR = ros_ErrorMsg(-3,Tstart,ZERO); - return -end - -%~~~> Upper bound on the step size: (positive value) -if RCNTRL(2) == ZERO - Hmax = abs(Tend-Tstart); -elseif RCNTRL(2) > ZERO - Hmax = min(abs(RCNTRL(2)),abs(Tend-Tstart)); -else - disp(['User-selected Hmax: RCNTRL(2)=', num2str(RCNTRL(2))]); - IERR = ros_ErrorMsg(-3,Tstart,ZERO); - return -end - -%~~~> Starting step size: (positive value) -if RCNTRL(3) == ZERO - Hstart = max(Hmin,DeltaMin); -elseif RCNTRL(3) > ZERO - Hstart = min(abs(RCNTRL(3)),abs(Tend-Tstart)); -else - disp(['User-selected Hstart: RCNTRL(3)=', num2str(RCNTRL(3))]); - IERR = ros_ErrorMsg(-3,Tstart,ZERO); - return -end - -%~~~> Step size can be changed s.t. FacMin < Hnew/Hold < FacMax -if RCNTRL(4) == ZERO - FacMin = 0.2; -elseif RCNTRL(4) > ZERO - FacMin = RCNTRL(4); -else - disp(['User-selected FacMin: RCNTRL(4)=', num2str(RCNTRL(4))]); - IERR = ros_ErrorMsg(-4,Tstart,ZERO); - return -end -if RCNTRL(5) == ZERO - FacMax = 6.0; -elseif RCNTRL(5) > ZERO - FacMax = RCNTRL(5); -else - disp(['User-selected FacMax: RCNTRL(5)=', num2str(RCNTRL(5))]); - IERR = ros_ErrorMsg(-4,Tstart,ZERO); - return -end - -%~~~> FacRej: Factor to decrease step after 2 succesive rejections -if RCNTRL(6) == ZERO - FacRej = 0.1; -elseif RCNTRL(6) > ZERO - FacRej = RCNTRL(6); -else - disp(['User-selected FacRej: RCNTRL(6)=', num2str(RCNTRL(6))]); - IERR = ros_ErrorMsg(-4,Tstart,ZERO); - return -end - -%~~~> FacSafe: Safety Factor in the computation of new step size -if RCNTRL(7) == ZERO - FacSafe = 0.9; -elseif RCNTRL(7) > ZERO - FacSafe = RCNTRL(7); -else - disp(['User-selected FacSafe: RCNTRL(7)=', num2str(RCNTRL(7))]); - IERR = ros_ErrorMsg(-4,Tstart,ZERO); - return -end - -%~~~> Check if tolerances are reasonable -for i=1:UplimTol - if (AbsTol(i) <= ZERO) || (RelTol(i) <= 10.0*Roundoff) || (RelTol(i) >= 1.0) - disp([' AbsTol(',i,') = ',num2str(AbsTol(i))]); - disp([' RelTol(',i,') = ',num2str(RelTol(i))]); - IERR = ros_ErrorMsg(-5,Tstart,ZERO); - return - end -end - -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -% Template for the implementation of a generic Rosenbrock method -% defined by ros_S (no of stages) -% and its coefficients ros_{A,C,M,E,Alpha,Gamma} -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -% ~~~~ Local variables -Ynew = zeros(N,1); -Fcn0 = zeros(N,1); -Fcn = zeros(N,1); -K = zeros(N,ros_S); -dFdT = zeros(N,1); -Jac0 = sparse(N,N); -Ghimj = sparse(N,N); -Yerr = zeros(N,1); -Pivot = zeros(N,1); - -%~~~> Initial preparations -T = Tstart; -RSTATUS(Nhexit) = ZERO; -H = min(max(abs(Hmin), abs(Hstart)), abs(Hmax)); -if abs(H) <= 10.0*Roundoff - H = DeltaMin; -end - -if Tend >= Tstart - Direction = +1; -else - Direction = -1; -end -H = Direction*H; - -RejectLastH = false; -RejectMoreH = false; - -%~~~> Time loop begins below - -while ( (Direction > 0) && ((T-Tend)+Roundoff <= ZERO) || ... - (Direction < 0) && ((Tend-T)+Roundoff <= ZERO) ) - - if ISTATUS(Nstp) > Max_no_steps % Too many steps - IERR = ros_ErrorMsg(-6,T,H); - return - end - if ((T+0.1*H) == T) || (H <= Roundoff) % Step size too small - IERR = ros_ErrorMsg(-7,T,H); - return - end - - %~~~> Limit H if necessary to avoid going beyond Tend - H = min(H, abs(Tend-T)); - - %~~~> Compute the function at current time - Fcn0 = OdeFunction(T, Y); - ISTATUS(Nfun) = ISTATUS(Nfun) + 1; - - %~~~> Compute the function derivative with respect to T - if ~Autonomous - dFdT = ros_FunTimeDerivative (T, OdeFunction, Roundoff, Y, Fcn0); - end - - %~~~> Compute the Jacobian at current time - Jac0 = OdeJacobian(T,Y); - ISTATUS(Njac) = ISTATUS(Njac) + 1; - - %~~~> Repeat step calculation until current step accepted - while(true) - - [H, Ghimj, Pivot, Singular] = ... - ros_PrepareMatrix(N, H, Direction, ros_Gamma(1), Jac0); - - % Not calculating LU decomposition in ros_PrepareMatrix anymore - % so don't need to check if the matrix is singular - % - %if Singular % More than 5 consecutive failed decompositions - % IERR = ros_ErrorMsg(-8,T,H); - % return - %end - - % For the 1st istage the function has been computed previously - Fcn = Fcn0; - K(:,1) = Fcn; - if (~Autonomous) && (ros_Gamma(1) ~= ZERO) - HG = Direction*H*ros_Gamma(1); - K(:,1) = K(:,1) + HG * dFdT; - end - K(:,1) = ros_Solve(Ghimj, Pivot, K(:,1)); - - %~~~> Compute the remaining stages - for istage=2:ros_S - - % istage>1 and a new function evaluation is needed - if ros_NewF(istage) - Ynew = Y; - for j=1:istage-1 - Ynew = Ynew + ros_A((istage-1)*(istage-2)/2+j)*K(:,j)'; - end - Tau = T + ros_Alpha(istage)*Direction*H; - Fcn = OdeFunction(Tau,Ynew); - ISTATUS(Nfun) = ISTATUS(Nfun) + 1; - end - - K(:,istage) = Fcn; - for j=1:istage-1 - HC = ros_C((istage-1)*(istage-2)/2+j)/(Direction*H); - K(:,istage) = K(:,istage) + HC * K(:,j); - end - if (~Autonomous) && (ros_Gamma(istage) ~= ZERO) - HG = Direction*H*ros_Gamma(istage); - K(:,istage) = K(:,istage) + HG * dFdT; - end - - % Linear system is solved here with MATLAB '\' operator - % instead of LU decomposition. - K(:,istage) = ros_Solve(Ghimj, Pivot, K(:,istage)); - - end - - %~~~> Compute the new solution - Ynew = Y; - for j=1:ros_S - Ynew = Ynew + ros_M(j) * K(:,j)'; - end - - %~~~> Compute the error estimation - Yerr = zeros(N,1); - for j=1:ros_S - Yerr = Yerr + ros_E(j) * K(:,j); - end - Err = ros_ErrorNorm(N, Y, Ynew, Yerr, AbsTol, RelTol, VectorTol); - - %~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax - Fac = min(FacMax, max(FacMin, FacSafe/(Err^(ONE/ros_ELO)))); - Hnew = H*Fac; - - %~~~> Check the error magnitude and adjust step size - ISTATUS(Nstp) = ISTATUS(Nstp) + 1; - if (Err <= ONE) || (H <= Hmin) %~~~> Accept step - ISTATUS(Nacc) = ISTATUS(Nacc) + 1; - Y = Ynew; - T = T + Direction*H; - Hnew = max(Hmin, min(Hnew, Hmax)); - if RejectLastH % No step size increase after a rejected step - Hnew = min(Hnew, H); - end - RSTATUS(Nhexit) = H; - RSTATUS(Nhnew) = Hnew; - RSTATUS(Ntexit) = T; - RejectLastH = false; - RejectMoreH = false; - H = Hnew; - break % EXIT THE LOOP: WHILE STEP NOT ACCEPTED - else %~~~> Reject step - if RejectMoreH - Hnew = H*FacRej; - end - RejectMoreH = RejectLastH; - RejectLastH = true; - H = Hnew; - if ISTATUS(Nacc) >= 1 - ISTATUS(Nrej) = ISTATUS(Nrej) + 1; - end - end % Err <= 1 - - end % UntilAccepted - -end % TimeLoop - -%~~~> Succesful exit -IERR = 1; %~~~> The integration was successful - -return - - -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function [ ErrNorm ] = ros_ErrorNorm(N, Y, Ynew, Yerr, AbsTol, RelTol, VectorTol) -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -%~~~> Computes the "scaled norm" of the error vector Yerr -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -Err = 0; -for i=1:N - Ymax = max(abs(Y(i)), abs(Ynew(i))); - if VectorTol - Scale = AbsTol(i) + RelTol(i)*Ymax; - else - Scale = AbsTol(1) + RelTol(1)*Ymax; - end - Err = Err + (Yerr(i)/Scale)^2; -end -Err = sqrt(Err/N); -ErrNorm = max(Err,1.0e-10); - -return - -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function [ dFdT ] = ros_FunTimeDerivative (T, OdeFunction, Roundoff, Y, Fcn0) -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -%~~~> The time partial derivative of the function by finite differences -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -%~~~> Statistics on the work performed by the Rosenbrock method -global Nfun ISTATUS - -%~~~> Parameters -global ZERO ONE DeltaMin - -Delta = sqrt(Roundoff) * max(DeltaMin, abs(T)); -dFdT = OdeFunction(T+Delta,Y); -ISTATUS(Nfun) = ISTATUS(Nfun) + 1; -dFdT = (dFdT - Fcn0) / Delta; - -return - - -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function [H, Ghimj, Pivot, Singular] = ... - ros_PrepareMatrix(N, H, Direction, gam, Jac0) -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -% Prepares the LHS matrix for stage calculations -% 1. Construct Ghimj = 1/(H*ham) - Jac0 -% "(Gamma H) Inverse Minus Jacobian" -% 2. LU decomposition not performed here because -% MATLAB solves the linear system with '\'. -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -Ghimj = -Jac0; -ghinv = 1.0/(Direction*H*gam); -for i=1:N - Ghimj(i,i) = Ghimj(i,i)+ghinv; -end - -Pivot(1) = 1; -Singular = false; - -return - - -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function [ IERR ] = ros_ErrorMsg(Code, T, H) -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -% Handles all error messages -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -IERR = Code; - -disp('Forced exit from Rosenbrock due to the following error:'); - -switch (Code) - case (-1) - disp('--> Improper value for maximal no of steps'); - case (-2) - disp('--> Selected Rosenbrock method not implemented'); - case (-3) - disp('--> Hmin/Hmax/Hstart must be positive'); - case (-4) - disp('--> FacMin/FacMax/FacRej must be positive'); - case (-5) - disp('--> Improper tolerance values'); - case (-6) - disp('--> No of steps exceeds maximum bound'); - case (-7) - disp('--> Step size too small: T + 10*H = T or H < Roundoff'); - case (-8) - disp('--> Matrix is repeatedly singular'); - otherwise - disp(['Unknown Error code: ', num2str(Code)]); -end - -disp(['T=',num2str(T),' and H=',num2str(H)]); - -return - - -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function [X] = ros_Solve(JVS, Pivot, X) -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -% Template for the forward/backward substitution -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -global Nsol ISTATUS - -X = JVS\X; -Pivot(1) = 1; -ISTATUS(Nsol) = ISTATUS(Nsol) + 1; - -return - - -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function [ params ] = Ros2() -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -% --- AN L-STABLE METHOD, 2 stages, order 2 -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -g = 1.0 + 1.0/sqrt(2.0); -rosMethod = 1; -%~~~> Name of the method -ros_Name = 'ROS-2'; -%~~~> Number of stages -ros_S = 2; - -%~~~> The coefficient matrices A and C are strictly lower triangular. -% The lower triangular (subdiagonal) elements are stored in row-wise order: -% A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -% The general mapping formula is: -% A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -% C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - -ros_A(1) = (1.0)/g; -ros_C(1) = (-2.0)/g; -%~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -% or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) -ros_NewF(1) = true; -ros_NewF(2) = true; -%~~~> M_i = Coefficients for new step solution -ros_M(1)= (3.0)/(2.0*g); -ros_M(2)= (1.0)/(2.0*g); -% E_i = Coefficients for error estimator -ros_E(1) = 1.0/(2.0*g); -ros_E(2) = 1.0/(2.0*g); -%~~~> ros_ELO = estimator of local order - the minimum between the -% main and the embedded scheme orders plus one -ros_ELO = 2.0; -%~~~> Y_stage_i ~ Y( T + H*Alpha_i ) -ros_Alpha(1) = 0.0; -ros_Alpha(2) = 1.0; -%~~~> Gamma_i = \sum_j gamma_{i,j} -ros_Gamma(1) = g; -ros_Gamma(2) =-g; - -params = { ros_S, rosMethod, ros_A, ros_C, ros_M, ros_E, ... - ros_Alpha, ros_Gamma, ros_ELO, ros_NewF, ros_Name }; - -return - - -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function [ params ] = Ros3() -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -% --- AN L-STABLE METHOD, 3 stages, order 3, 2 function evaluations -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -rosMethod = 2; -%~~~> Name of the method -ros_Name = 'ROS-3'; -%~~~> Number of stages -ros_S = 3; - -%~~~> The coefficient matrices A and C are strictly lower triangular. -% The lower triangular (subdiagonal) elements are stored in row-wise order: -% A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -% The general mapping formula is: -% A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -% C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - -ros_A(1)= 1.0; -ros_A(2)= 1.0; -ros_A(3)= 0.0; - -ros_C(1) = -0.10156171083877702091975600115545E+01; -ros_C(2) = 0.40759956452537699824805835358067E+01; -ros_C(3) = 0.92076794298330791242156818474003E+01; -%~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -% or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) -ros_NewF(1) = true; -ros_NewF(2) = true; -ros_NewF(3) = false; -%~~~> M_i = Coefficients for new step solution -ros_M(1) = 0.1E+01; -ros_M(2) = 0.61697947043828245592553615689730E+01; -ros_M(3) = -0.42772256543218573326238373806514; -% E_i = Coefficients for error estimator -ros_E(1) = 0.5; -ros_E(2) = -0.29079558716805469821718236208017E+01; -ros_E(3) = 0.22354069897811569627360909276199; -%~~~> ros_ELO = estimator of local order - the minimum between the -% main and the embedded scheme orders plus 1 -ros_ELO = 3.0; -%~~~> Y_stage_i ~ Y( T + H*Alpha_i ) -ros_Alpha(1)= 0.0; -ros_Alpha(2)= 0.43586652150845899941601945119356; -ros_Alpha(3)= 0.43586652150845899941601945119356; -%~~~> Gamma_i = \sum_j gamma_{i,j} -ros_Gamma(1)= 0.43586652150845899941601945119356; -ros_Gamma(2)= 0.24291996454816804366592249683314; -ros_Gamma(3)= 0.21851380027664058511513169485832E+01; - -params = { ros_S, rosMethod, ros_A, ros_C, ros_M, ros_E, ... - ros_Alpha, ros_Gamma, ros_ELO, ros_NewF, ros_Name }; - -return - -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function [ params ] = Ros4() -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -% L-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 4 STAGES -% L-STABLE EMBEDDED ROSENBROCK METHOD OF ORDER 3 -% -% E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -% EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -% SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -% SPRINGER-VERLAG (1990) -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -rosMethod = 3; -%~~~> Name of the method -ros_Name = 'ROS-4'; -%~~~> Number of stages -ros_S = 4; - -%~~~> The coefficient matrices A and C are strictly lower triangular. -% The lower triangular (subdiagonal) elements are stored in row-wise order: -% A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -% The general mapping formula is: -% A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -% C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - -ros_A(1) = 0.2000000000000000E+01; -ros_A(2) = 0.1867943637803922E+01; -ros_A(3) = 0.2344449711399156; -ros_A(4) = ros_A(2); -ros_A(5) = ros_A(3); -ros_A(6) = 0.0; - -ros_C(1) =-0.7137615036412310E+01; -ros_C(2) = 0.2580708087951457E+01; -ros_C(3) = 0.6515950076447975; -ros_C(4) =-0.2137148994382534E+01; -ros_C(5) =-0.3214669691237626; -ros_C(6) =-0.6949742501781779; -%~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -% or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) -ros_NewF(1) = true; -ros_NewF(2) = true; -ros_NewF(3) = true; -ros_NewF(4) = false; -%~~~> M_i = Coefficients for new step solution -ros_M(1) = 0.2255570073418735E+01; -ros_M(2) = 0.2870493262186792; -ros_M(3) = 0.4353179431840180; -ros_M(4) = 0.1093502252409163E+01; -%~~~> E_i = Coefficients for error estimator -ros_E(1) =-0.2815431932141155; -ros_E(2) =-0.7276199124938920E-01; -ros_E(3) =-0.1082196201495311; -ros_E(4) =-0.1093502252409163E+01; -%~~~> ros_ELO = estimator of local order - the minimum between the -% main and the embedded scheme orders plus 1 -ros_ELO = 4.0; -%~~~> Y_stage_i ~ Y( T + H*Alpha_i ) -ros_Alpha(1) = 0.0; -ros_Alpha(2) = 0.1145640000000000E+01; -ros_Alpha(3) = 0.6552168638155900; -ros_Alpha(4) = ros_Alpha(3); -%~~~> Gamma_i = \sum_j gamma_{i,j} -ros_Gamma(1) = 0.5728200000000000; -ros_Gamma(2) =-0.1769193891319233E+01; -ros_Gamma(3) = 0.7592633437920482; -ros_Gamma(4) =-0.1049021087100450; - -params = { ros_S, rosMethod, ros_A, ros_C, ros_M, ros_E, ... - ros_Alpha, ros_Gamma, ros_ELO, ros_NewF, ros_Name }; - -return - -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function [ params ] = Rodas3() -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -% --- A STIFFLY-STABLE METHOD, 4 stages, order 3 -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -rosMethod = 4; -%~~~> Name of the method -ros_Name = 'RODAS-3'; -%~~~> Number of stages -ros_S = 4; - -%~~~> The coefficient matrices A and C are strictly lower triangular. -% The lower triangular (subdiagonal) elements are stored in row-wise order: -% A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -% The general mapping formula is: -% A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -% C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - -ros_A(1) = 0.0; -ros_A(2) = 2.0; -ros_A(3) = 0.0; -ros_A(4) = 2.0; -ros_A(5) = 0.0; -ros_A(6) = 1.0; - -ros_C(1) = 4.0; -ros_C(2) = 1.0; -ros_C(3) =-1.0; -ros_C(4) = 1.0; -ros_C(5) =-1.0; -ros_C(6) =-(8.0/3.0); - -%~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -% or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) -ros_NewF(1) = true; -ros_NewF(2) = false; -ros_NewF(3) = true; -ros_NewF(4) = true; -%~~~> M_i = Coefficients for new step solution -ros_M(1) = 2.0; -ros_M(2) = 0.0; -ros_M(3) = 1.0; -ros_M(4) = 1.0; -%~~~> E_i = Coefficients for error estimator -ros_E(1) = 0.0; -ros_E(2) = 0.0; -ros_E(3) = 0.0; -ros_E(4) = 1.0; -%~~~> ros_ELO = estimator of local order - the minimum between the -% main and the embedded scheme orders plus 1 -ros_ELO = 3.0; -%~~~> Y_stage_i ~ Y( T + H*Alpha_i ) -ros_Alpha(1) = 0.0; -ros_Alpha(2) = 0.0; -ros_Alpha(3) = 1.0; -ros_Alpha(4) = 1.0; -%~~~> Gamma_i = \sum_j gamma_{i,j} -ros_Gamma(1) = 0.5; -ros_Gamma(2) = 1.5; -ros_Gamma(3) = 0.0; -ros_Gamma(4) = 0.0; - -params = { ros_S, rosMethod, ros_A, ros_C, ros_M, ros_E, ... - ros_Alpha, ros_Gamma, ros_ELO, ros_NewF, ros_Name }; - -return - -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -function [ params ] = Rodas4() -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -% STIFFLY-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 6 STAGES -% -% E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -% EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -% SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -% SPRINGER-VERLAG (1996) -%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -rosMethod = 5; -%~~~> Name of the method -ros_Name = 'RODAS-4'; -%~~~> Number of stages -ros_S = 6; - -%~~~> Y_stage_i ~ Y( T + H*Alpha_i ) -ros_Alpha(1) = 0.000; -ros_Alpha(2) = 0.386; -ros_Alpha(3) = 0.210; -ros_Alpha(4) = 0.630; -ros_Alpha(5) = 1.000; -ros_Alpha(6) = 1.000; - -%~~~> Gamma_i = \sum_j gamma_{i,j} -ros_Gamma(1) = 0.2500000000000000; -ros_Gamma(2) =-0.1043000000000000; -ros_Gamma(3) = 0.1035000000000000; -ros_Gamma(4) =-0.3620000000000023E-01; -ros_Gamma(5) = 0.0; -ros_Gamma(6) = 0.0; - -%~~~> The coefficient matrices A and C are strictly lower triangular. -% The lower triangular (subdiagonal) elements are stored in row-wise order: -% A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -% The general mapping formula is: A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -% C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - -ros_A(1) = 0.1544000000000000E+01; -ros_A(2) = 0.9466785280815826; -ros_A(3) = 0.2557011698983284; -ros_A(4) = 0.3314825187068521E+01; -ros_A(5) = 0.2896124015972201E+01; -ros_A(6) = 0.9986419139977817; -ros_A(7) = 0.1221224509226641E+01; -ros_A(8) = 0.6019134481288629E+01; -ros_A(9) = 0.1253708332932087E+02; -ros_A(10) =-0.6878860361058950; -ros_A(11) = ros_A(7); -ros_A(12) = ros_A(8); -ros_A(13) = ros_A(9); -ros_A(14) = ros_A(10); -ros_A(15) = 1.0; - -ros_C(1) =-0.5668800000000000E+01; -ros_C(2) =-0.2430093356833875E+01; -ros_C(3) =-0.2063599157091915; -ros_C(4) =-0.1073529058151375; -ros_C(5) =-0.9594562251023355E+01; -ros_C(6) =-0.2047028614809616E+02; -ros_C(7) = 0.7496443313967647E+01; -ros_C(8) =-0.1024680431464352E+02; -ros_C(9) =-0.3399990352819905E+02; -ros_C(10) = 0.1170890893206160E+02; -ros_C(11) = 0.8083246795921522E+01; -ros_C(12) =-0.7981132988064893E+01; -ros_C(13) =-0.3152159432874371E+02; -ros_C(14) = 0.1631930543123136E+02; -ros_C(15) =-0.6058818238834054E+01; - -%~~~> M_i = Coefficients for new step solution -ros_M(1) = ros_A(7); -ros_M(2) = ros_A(8); -ros_M(3) = ros_A(9); -ros_M(4) = ros_A(10); -ros_M(5) = 1.0; -ros_M(6) = 1.0; - -%~~~> E_i = Coefficients for error estimator -ros_E(1) = 0.0; -ros_E(2) = 0.0; -ros_E(3) = 0.0; -ros_E(4) = 0.0; -ros_E(5) = 0.0; -ros_E(6) = 1.0; - -%~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -% or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) -ros_NewF(1) = true; -ros_NewF(2) = true; -ros_NewF(3) = true; -ros_NewF(4) = true; -ros_NewF(5) = true; -ros_NewF(6) = true; - -%~~~> ros_ELO = estimator of local order - the minimum between the -% main and the embedded scheme orders plus 1 -ros_ELO = 4.0; - -params = { ros_S, rosMethod, ros_A, ros_C, ros_M, ros_E, ... - ros_Alpha, ros_Gamma, ros_ELO, ros_NewF, ros_Name }; - -return - -% End of INTEGRATE function -% ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - diff --git a/int.modified_WCOPY/rosenbrock_adj.c b/int.modified_WCOPY/rosenbrock_adj.c deleted file mode 100644 index eb04fdcf161ba0aa609d6da03970bc18d94f57ba..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/rosenbrock_adj.c +++ /dev/null @@ -1,2470 +0,0 @@ -#define MAX(a,b) ( ((a) >= (b)) ? (a):(b) ) -#define MIN(b,c) ( ((b) < (c)) ? (b):(c) ) -#define ABS(x) ( ((x) >= 0 ) ? (x):(-x) ) -#define SQRT(d) ( pow((d),0.5) ) - -/* Numerical Constants */ -#define ZERO (KPP_REAL)0.0 -#define ONE (KPP_REAL)1.0 -#define HALF (KPP_REAL)0.5 -#define DeltaMin (KPP_REAL)1.0e-5 -enum boolean { FALSE=0, TRUE=1 }; - -/* Statistics on the work performed by the Rosenbrock method */ -enum statistics { Nfun=1, Njac=2, Nstp=3, Nacc=4, Nrej=5, Ndec=6, Nsol=7, - Nsng=8, Ntexit=1, Nhexit=2, Nhnew=3 }; - -/*~~~> Parameters of the Rosenbrock method, up to 6 stages */ -int ros_S, rosMethod; -enum ros_Params { RS2=1, RS3=2, RS4=3, RD3=4, RD4=5 }; -KPP_REAL ros_A[15], ros_C[15], ros_M[6], ros_E[6], ros_Alpha[6], ros_Gamma[6], - ros_ELO; -int ros_NewF[6]; /* Holds Boolean values */ -char ros_Name[12]; /* Length 12 */ - -/*~~~> Types of Adjoints Implemented */ -enum adjoint { Adj_none=1, Adj_discrete=2, Adj_continuous=3, - Adj_simple_continuous=4 }; - -/*~~~> Checkpoints in memory */ -int bufsize = 200000; -int stack_ptr; /* last written entry */ -KPP_REAL *chk_H, *chk_T; -KPP_REAL **chk_Y, **chk_K, **chk_J; /* 2D arrays */ -KPP_REAL **chk_dY, **chk_d2Y; /* 2D arrays */ - -/* Function Headers */ -void INTEGRATE_ADJ(int NADJ, KPP_REAL Y[], KPP_REAL Lambda[][NVAR], - KPP_REAL TIN, KPP_REAL TOUT, KPP_REAL ATOL_adj[][NVAR], - KPP_REAL RTOL_adj[][NVAR], int ICNTRL_U[], - KPP_REAL RCNTRL_U[], int ISTATUS_U[], KPP_REAL RSTATUS_U[]); -int RosenbrockADJ( KPP_REAL Y[], int NADJ, KPP_REAL Lambda[][NVAR], - KPP_REAL Tstart, KPP_REAL Tend, KPP_REAL AbsTol[], - KPP_REAL RelTol[], KPP_REAL AbsTol_adj[][NVAR], - KPP_REAL RelTol_adj[][NVAR], KPP_REAL RCNTRL[], - int ICNTRL[], KPP_REAL RSTATUS[], int ISTATUS[] ); -void ros_AllocateDBuffers( int S, int SaveLU ); -void ros_FreeDBuffers( int SaveLU ); -void ros_AllocateCBuffers(); -void ros_FreeCBuffers(); -void ros_DPush( int S, KPP_REAL T, KPP_REAL H, KPP_REAL Ystage[], - KPP_REAL K[], KPP_REAL E[], int P[], int SaveLU ); -void ros_DPop( int S, KPP_REAL* T, KPP_REAL* H, KPP_REAL* Ystage, - KPP_REAL* K, KPP_REAL* E, int* P, int SaveLU ); -void ros_CPush( KPP_REAL T, KPP_REAL H, KPP_REAL Y[], KPP_REAL dY[], - KPP_REAL d2Y[] ); -void ros_CPop( KPP_REAL T, KPP_REAL H, KPP_REAL Y[], KPP_REAL dY[], - KPP_REAL d2Y[] ); -int ros_ErrorMsg( int Code, KPP_REAL T, KPP_REAL H); -int ros_FwdInt (KPP_REAL Y[], KPP_REAL Tstart, KPP_REAL Tend, KPP_REAL T, - KPP_REAL AbsTol[], KPP_REAL RelTol[], int AdjointType, - KPP_REAL Hmin, KPP_REAL Hstart, KPP_REAL Hmax, - KPP_REAL Roundoff, int ISTATUS[], int Max_no_steps, - KPP_REAL RSTATUS[], int Autonomous, int VectorTol, - KPP_REAL FacMax, KPP_REAL FacMin, KPP_REAL FacSafe, - KPP_REAL FacRej, int SaveLU); -int ros_DadjInt ( int NADJ, KPP_REAL Lambda[][NVAR], KPP_REAL Tstart, - KPP_REAL Tend, KPP_REAL T, int SaveLU, int ISTATUS[], - KPP_REAL Roundoff, int Autonomous); -int ros_CadjInt ( int NADJ, KPP_REAL Y[][NVAR], KPP_REAL Tstart, KPP_REAL Tend, - KPP_REAL T, KPP_REAL AbsTol_adj[][NVAR], - KPP_REAL RelTol_adj[][NVAR], KPP_REAL RSTATUS[], - KPP_REAL Hmin, KPP_REAL Hmax, KPP_REAL Hstart, - KPP_REAL Roundoff, int Max_no_steps, int Autonomous, - int VectorTol, KPP_REAL FacMax, KPP_REAL FacMin, - KPP_REAL FacSafe, KPP_REAL FacRej, int ISTATUS[] ); -int ros_SimpleCadjInt ( int NADJ, KPP_REAL Y[][NVAR], KPP_REAL Tstart, - KPP_REAL Tend, KPP_REAL T, int ISTATUS[], - int Autonomous, KPP_REAL Roundoff ); -KPP_REAL ros_ErrorNorm ( KPP_REAL Y[], KPP_REAL Ynew[], KPP_REAL Yerr[], - KPP_REAL AbsTol[], KPP_REAL RelTol[], int VectorTol ); -void ros_FunTimeDerivative ( KPP_REAL T, KPP_REAL Roundoff, KPP_REAL Y[], - KPP_REAL Fcn0[], KPP_REAL dFdT[], int ISTATUS[] ); -void ros_JacTimeDerivative ( KPP_REAL T, KPP_REAL Roundoff, KPP_REAL Y[], - KPP_REAL Jac0[], KPP_REAL dJdT[], int ISTATUS[] ); -int ros_PrepareMatrix ( KPP_REAL H, int Direction, KPP_REAL gam, - KPP_REAL Jac0[], KPP_REAL Ghimj[], int Pivot[], - int ISTATUS[] ); -void ros_Decomp( KPP_REAL A[], int Pivot[], int* ising, int ISTATUS[] ); -void ros_Solve( char How, KPP_REAL A[], int Pivot[], KPP_REAL b[], - int ISTATUS[] ); -void ros_cadj_Y( KPP_REAL T, KPP_REAL Y[] ); -void ros_Hermite3( KPP_REAL a, KPP_REAL b, KPP_REAL T, KPP_REAL Ya[], - KPP_REAL Yb[], KPP_REAL Ja[], KPP_REAL Jb[], KPP_REAL Y[] ); -void ros_Hermite5( KPP_REAL a, KPP_REAL b, KPP_REAL T, KPP_REAL Ya[], - KPP_REAL Yb[], KPP_REAL Ja[], KPP_REAL Jb[], KPP_REAL Ha[], - KPP_REAL Hb[], KPP_REAL Y[] ); -void Ros2(); -void Ros3(); -void Ros4(); -void Rodas3(); -void Rodas4(); -void JacTemplate( KPP_REAL T, KPP_REAL Y[], KPP_REAL Jcb[] ); -void HessTemplate( KPP_REAL T, KPP_REAL Y[], KPP_REAL Hes[] ); -void FunTemplate( KPP_REAL T, KPP_REAL Y[], KPP_REAL Fun [] ); -void WSCAL( int N, KPP_REAL Alpha, KPP_REAL X[], int incX ); -void WAXPY( int N, KPP_REAL Alpha, KPP_REAL X[], int incX, KPP_REAL Y[], - int incY ); -void WCOPY( int N, KPP_REAL X[], int incX, KPP_REAL Y[], int incY ); -KPP_REAL WLAMCH( char C ); -void Update_SUN(); -void Update_RCONST(); -void Fun( KPP_REAL Y[], KPP_REAL FIX[], KPP_REAL RCONST[], KPP_REAL Ydot[] ); -void Jac_SP( KPP_REAL Y[], KPP_REAL FIX[], KPP_REAL RCONST[], KPP_REAL Ydot[]); -void Jac_SP_Vec( KPP_REAL Jac[], KPP_REAL Fcn[], KPP_REAL K[] ); -void JacTR_SP_Vec( KPP_REAL Jac[], KPP_REAL Fcn[], KPP_REAL K[] ); -void HessTR_Vec(KPP_REAL Hess[], KPP_REAL U1[], KPP_REAL U2[], KPP_REAL HTU[]); -void KppSolve( KPP_REAL A[], KPP_REAL b[] ); -int KppDecomp( KPP_REAL A[] ); -void KppSolveTR( KPP_REAL JVS[], KPP_REAL X[], KPP_REAL XX[] ); -void Hessian( KPP_REAL V[], KPP_REAL F[], KPP_REAL RCT[], KPP_REAL Hess[] ); - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void INTEGRATE_ADJ( int NADJ, KPP_REAL Y[], KPP_REAL Lambda[][NVAR], - KPP_REAL TIN, KPP_REAL TOUT, KPP_REAL ATOL_adj[][NVAR], - KPP_REAL RTOL_adj[][NVAR], int ICNTRL_U[], - KPP_REAL RCNTRL_U[], int ISTATUS_U[], - KPP_REAL RSTATUS_U[] ) { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - -/* Local Variables */ - KPP_REAL RCNTRL[20], RSTATUS[20]; - int ICNTRL[20], ISTATUS[20], IERR, i; - - for( i = 0; i < 20; i++ ) { - ICNTRL[i] = 0; - RCNTRL[i] = ZERO; - ISTATUS[i] = 0; - RSTATUS[i] = ZERO; - } - -/*~~~> fine-tune the integrator: - ICNTRL(1) = 0 ! 0 = non-autonomous, 1 = autonomous - ICNTRL(2) = 1 ! 0 = scalar, 1 = vector tolerances - RCNTRL(3) = STEPMIN ! starting step - ICNTRL(3) = 5 ! choice of the method for forward integration - ICNTRL(6) = 1 ! choice of the method for continuous adjoint - ICNTRL(7) = 2 ! 1=none, 2=discrete, 3=full continuous, - 4=simplified continuous adjoint - ICNTRL(8) = 1 ! Save fwd LU factorization: 0=*don't* save, 1=save */ - -/* if optional parameters are given, and if they are >=0, then they overwrite - default settings */ -// if(ICNTRL_U != NULL) { -// for(i=0; i<20; i++) -// if(ICNTRL_U[i] > 0) -// ICNTRL[i] = ICNTRL_U[i]; -// } /* end for */ -// } /* end if */ - -// if(RCNTRL_U != NULL) { -// for(i=0; i<20; i++) -// if(RCNTRL_U[i] > 0) -// RCNTRL[i] = RCNTRL_U[i]; -// } /* end for */ -// } /* end if */ - - IERR = RosenbrockADJ( Y, NADJ, Lambda, TIN, TOUT, ATOL, RTOL, ATOL_adj, - RTOL_adj, RCNTRL, ICNTRL, RSTATUS, ISTATUS ); - - if (IERR < 0) - printf( "RosenbrockADJ: Unsucessful step at T=%f (IERR=%d)", TIN, IERR ); - - STEPMIN = RSTATUS[Nhexit]; - -/* if optional parameters are given for output - copy to them to return information */ -// if(ISTATUS_U != NULL) -// for(i=0; i<20; i++) -// ISTATUS_U[i] = ISTATUS[i]; -// } - -// if(RSTATUS_U != NULL) -// for(i=0; i<20; i++) -// RSTATUS_U[i] = RSTATUS[i]; -// } - -} /* End of INTEGRATE_ADJ */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -int RosenbrockADJ( KPP_REAL Y[], int NADJ, KPP_REAL Lambda[][NVAR], - KPP_REAL Tstart, KPP_REAL Tend, KPP_REAL AbsTol[], - KPP_REAL RelTol[], KPP_REAL AbsTol_adj[][NVAR], - KPP_REAL RelTol_adj[][NVAR], KPP_REAL RCNTRL[], - int ICNTRL[], KPP_REAL RSTATUS[], int ISTATUS[] ) { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - ADJ = Adjoint of the Tangent Linear Model of a Rosenbrock Method - - Solves the system y'=F(t,y) using a RosenbrockADJ method defined by: - - G = 1/(H*gamma(1)) - Jac(t0,Y0) - T_i = t0 + Alpha(i)*H - Y_i = Y0 + \sum_{j=1}^{i-1} A(i,j)*K_j - G * K_i = Fun( T_i, Y_i ) + \sum_{j=1}^S C(i,j)/H * K_j + - gamma(i)*dF/dT(t0, Y0) - Y1 = Y0 + \sum_{j=1}^S M(j)*K_j - - For details on RosenbrockADJ methods and their implementation consult: - E. Hairer and G. Wanner - "Solving ODEs II. Stiff and differential-algebraic problems". - Springer series in computational mathematics, Springer-Verlag, 1996. - The codes contained in the book inspired this implementation. - - (C) Adrian Sandu, August 2004 - Virginia Polytechnic Institute and State University - Contact: sandu@cs.vt.edu - Revised by Philipp Miehe and Adrian Sandu, May 2006 - Translation F90 to C by Paul Eller, April 2007 - This implementation is part of KPP - the Kinetic PreProcessor -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -~~~> INPUT ARGUMENTS: - -- Y[NVAR] = vector of initial conditions (at T=Tstart) - NADJ -> dimension of linearized system, - i.e. the number of sensitivity coefficients -- Lambda[NVAR][NADJ] -> vector of initial sensitivity conditions - (at T=Tstart) -- [Tstart,Tend] = time range of integration - (if Tstart>Tend the integration is performed backwards in time) -- RelTol, AbsTol = user precribed accuracy -- void Fun( T, Y, Ydot ) = ODE function, - returns Ydot = Y' = F(T,Y) -- void Jac( T, Y, Jcb ) = Jacobian of the ODE function, - returns Jcb = dF/dY -- ICNTRL[0:9] = integer inputs parameters -- RCNTRL[0:9] = real inputs parameters -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -~~~> OUTPUT ARGUMENTS: - -- Y[NVAR] -> vector of final states (at T->Tend) -- Lambda[NVAR][NADJ] -> vector of final sensitivities (at T=Tend) -- ICNTRL[9:18] -> integer output parameters -- RCNTRL[9:18] -> real output parameters -- IERR -> job status upon return - - succes (positive value) or failure (negative value) - - = 1 : Success - = -1 : Improper value for maximal no of steps - = -2 : Selected RosenbrockADJ method not implemented - = -3 : Hmin/Hmax/Hstart must be positive - = -4 : FacMin/FacMax/FacRej must be positive - = -5 : Improper tolerance values - = -6 : No of steps exceeds maximum bound - = -7 : Step size too small - = -8 : Matrix is repeatedly singular -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -~~~> INPUT PARAMETERS: - - Note: For input parameters equal to zero the default values of the - corresponding variables are used. - - ICNTRL[0] = 1: F = F(y) Independent of T (AUTONOMOUS) - = 0: F = F(t,y) Depends on T (NON-AUTONOMOUS) - - ICNTRL[1] = 0: AbsTol, RelTol are NVAR-dimensional vectors - = 1: AbsTol, RelTol are scalars - - ICNTRL[2] -> selection of a particular Rosenbrock method - = 0 : default method is Rodas3 - = 1 : method is Ros2 - = 2 : method is Ros3 - = 3 : method is Ros4 - = 4 : method is Rodas3 - = 5: method is Rodas4 - - ICNTRL[3] -> maximum number of integration steps - For ICNTRL[4]=0) the default value of BUFSIZE is used - - ICNTRL[5] -> selection of a particular Rosenbrock method for the - continuous adjoint integration - for cts adjoint it - can be different than the forward method ICNTRL(3) - Note 1: to avoid interpolation errors (which can be huge!) - it is recommended to use only ICNTRL[6] = 2 or 4 - Note 2: the performance of the full continuous adjoint - strongly depends on the forward solution accuracy Abs/RelTol - - ICNTRL[6] -> Type of adjoint algorithm - = 0 : default is discrete adjoint ( of method ICNTRL[3] ) - = 1 : no adjoint - = 2 : discrete adjoint ( of method ICNTRL[3] ) - = 3 : fully adaptive continuous adjoint ( with method ICNTRL[6] ) - = 4 : simplified continuous adjoint ( with method ICNTRL[6] ) - - ICNTRL[7] -> checkpointing the LU factorization at each step: - ICNTRL[7]=0 : do *not* save LU factorization (the default) - ICNTRL[7]=1 : save LU factorization - Note: if ICNTRL[7]=1 the LU factorization is *not* saved - -~~~> Real input parameters: - - RCNTRL[0] -> Hmin, lower bound for the integration step size - It is strongly recommended to keep Hmin = ZERO - - RCNTRL[1] -> Hmax, upper bound for the integration step size - - RCNTRL[2] -> Hstart, starting value for the integration step size - - RCNTRL[3] -> FacMin, lower bound on step decrease factor (default=0.2) - - RCNTRL[4] -> FacMax, upper bound on step increase factor (default=6) - - RCNTRL[5] -> FacRej, step decrease factor after multiple rejections - (default=0.1) - - RCNTRL[6] -> FacSafe, by which the new step is slightly smaller - than the predicted value (default=0.9) - - RCNTRL[7] -> ThetaMin. If Newton convergence rate smaller - than ThetaMin the Jacobian is not recomputed; - (default=0.001) - -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -~~~> OUTPUT PARAMETERS: - - Note: each call to RosenbrockADJ adds the corrent no. of fcn calls - to previous value of ISTATUS(1), and similar for the other params. - Set ISTATUS[0:9] = 0 before call to avoid this accumulation. - - ISTATUS[0] = No. of function calls - ISTATUS[1] = No. of jacobian calls - ISTATUS[2] = No. of steps - ISTATUS[3] = No. of accepted steps - ISTATUS[4] = No. of rejected steps (except at the beginning) - ISTATUS[5] = No. of LU decompositions - ISTATUS[6] = No. of forward/backward substitutions - ISTATUS[7] = No. of singular matrix decompositions - - RSTATUS[0] -> Texit, the time corresponding to the - computed Y upon return - RSTATUS[1] -> Hexit, last accepted step before exit - For multiple restarts, use Hexit as Hstart in the following run -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - -/*~~~> Local variables */ - KPP_REAL Roundoff, FacMin, FacMax, FacRej, FacSafe; - KPP_REAL Hmin, Hmax, Hstart; - KPP_REAL Texit=0.0; - int i, UplimTol, Max_no_steps=0, IERR; - int AdjointType=0, CadjMethod=0; - int Autonomous, VectorTol, SaveLU; /* Holds boolean values */ - - stack_ptr = -1; - -/*~~~> Initialize statistics */ - for(i=0; i<20; i++) { - ISTATUS[i] = 0; - RSTATUS[i] = ZERO; - } - -/*~~~> Autonomous or time dependent ODE. Default is time dependent. */ - Autonomous = !(ICNTRL[0] == 0); - -/*~~~> For Scalar tolerances(ICNTRL[1] != 0) the code uses AbsTol[0] and - RelTol[0] - For Vector tolerances(ICNTRL[1] == 0) the code uses AbsTol[1:NVAR] and - RelTol[1:NVAR] */ - - if (ICNTRL[1] == 0) { - VectorTol = TRUE; - UplimTol = NVAR; - } - else { - VectorTol = FALSE; - UplimTol = 1; - } - -/*~~~> Initialize the particular Rosenbrock method selected */ - switch( ICNTRL[2] ) { - case 0: - case 4: - Rodas3(); - break; - case 1: - Ros2(); - break; - case 2: - Ros3(); - break; - case 3: - Ros4(); - break; - case 5: - Rodas4(); - break; - default: - printf( "Unknown Rosenbrock method: ICNTRL[2]=%d", ICNTRL[2] ); - return ros_ErrorMsg(-2, Tstart, ZERO); - } /* End switch */ - -/*~~~> The maximum number of steps admitted */ - if (ICNTRL[3] == 0) - Max_no_steps = bufsize - 1; - else if (Max_no_steps > 0) - Max_no_steps = ICNTRL[3]; - else { - printf("User-selected max no. of steps: ICNTRL[3]=%d",ICNTRL[3] ); - return ros_ErrorMsg(-1,Tstart,ZERO); - } - -/*~~~>The particular Rosenbrock method chosen for integrating the cts adjoint*/ - if (ICNTRL[5] == 0) - CadjMethod = 4; - else if ( (ICNTRL[5] >= 1) && (ICNTRL[5] <= 5) ) - CadjMethod = ICNTRL[5]; - else { - printf( "Unknown CADJ Rosenbrock method: ICNTRL[5]=%d", CadjMethod ); - return ros_ErrorMsg(-2,Tstart,ZERO); - } - -/*~~~> Discrete or continuous adjoint formulation */ - if ( ICNTRL[6] == 0 ) - AdjointType = Adj_discrete; - else if ( (ICNTRL[6] >= 1) && (ICNTRL[6] <= 4) ) - AdjointType = ICNTRL[6]; - else { - printf( "User-selected adjoint type: ICNTRL[6]=%d", AdjointType ); - return ros_ErrorMsg(-9,Tstart,ZERO); - } - -/*~~~> Save or not the forward LU factorization */ - SaveLU = (ICNTRL[7] != 0); - -/*~~~> Unit roundoff (1+Roundoff>1) */ - Roundoff = WLAMCH('E'); - -/*~~~> Lower bound on the step size: (positive value) */ - if (RCNTRL[0] == ZERO) - Hmin = ZERO; - else if (RCNTRL[0] > ZERO) - Hmin = RCNTRL[0]; - else { - printf( "User-selected Hmin: RCNTRL[0]=%f", RCNTRL[0] ); - return ros_ErrorMsg(-3,Tstart,ZERO); - } - -/*~~~> Upper bound on the step size: (positive value) */ - if (RCNTRL[1] == ZERO) - Hmax = ABS(Tend-Tstart); - else if (RCNTRL[1] > ZERO) - Hmax = MIN(ABS(RCNTRL[1]),ABS(Tend-Tstart)); - else { - printf( "User-selected Hmax: RCNTRL[1]=%f", RCNTRL[1] ); - return ros_ErrorMsg(-3,Tstart,ZERO); - } - -/*~~~> Starting step size: (positive value) */ - if (RCNTRL[2] == ZERO) { - Hstart = MAX(Hmin,DeltaMin); - } - else if (RCNTRL[2] > ZERO) - Hstart = MIN(ABS(RCNTRL[2]),ABS(Tend-Tstart)); - else { - printf( "User-selected Hstart: RCNTRL[2]=%f", RCNTRL[2] ); - return ros_ErrorMsg(-3,Tstart,ZERO); - } - -/*~~~> Step size can be changed s.t. FacMin < Hnew/Hold < FacMax */ - if (RCNTRL[3] == ZERO) - FacMin = (KPP_REAL)0.2; - else if (RCNTRL[3] > ZERO) - FacMin = RCNTRL[3]; - else { - printf( "User-selected FacMin: RCNTRL[3]=%f", RCNTRL[3] ); - return ros_ErrorMsg(-4,Tstart,ZERO); - } - if (RCNTRL[4] == ZERO) - FacMax = (KPP_REAL)6.0; - else if (RCNTRL[4] > ZERO) - FacMax = RCNTRL[4]; - else { - printf( "User-selected FacMax: RCNTRL[4]=%f", RCNTRL[4] ); - return ros_ErrorMsg(-4,Tstart,ZERO); - } - -/*~~~> FacRej: Factor to decrease step after 2 succesive rejections */ - if (RCNTRL[5] == ZERO) - FacRej = (KPP_REAL)0.1; - else if (RCNTRL[5] > ZERO) - FacRej = RCNTRL[5]; - else { - printf( "User-selected FacRej: RCNTRL[5]=%f", RCNTRL[5] ); - return ros_ErrorMsg(-4,Tstart,ZERO); - } - -/*~~~> FacSafe: Safety Factor in the computation of new step size */ - if (RCNTRL[6] == ZERO) - FacSafe = (KPP_REAL)0.9; - else if (RCNTRL[6] > ZERO) - FacSafe = RCNTRL[6]; - else { - printf( "User-selected FacSafe: RCNTRL[6]=%f", RCNTRL[6] ); - return ros_ErrorMsg(-4,Tstart,ZERO); - } - -/*~~~> Check if tolerances are reasonable */ - for(i=0; i < UplimTol; i++) { - if ( (AbsTol[i] <= ZERO) || (RelTol[i] <= (KPP_REAL)10.0*Roundoff) - || (RelTol[i] >= (KPP_REAL)1.0) ) { - printf( " AbsTol[%d] = %f", i, AbsTol[i] ); - printf( " RelTol[%d] = %f", i, RelTol[i] ); - return ros_ErrorMsg(-5,Tstart,ZERO); - } - } - -/*~~~> Allocate checkpoint space or open checkpoint files */ - if (AdjointType == Adj_discrete) { - ros_AllocateDBuffers( ros_S, SaveLU ); - } - else if ( (AdjointType == Adj_continuous) || - (AdjointType == Adj_simple_continuous) ) { - ros_AllocateCBuffers(); - } - -/*~~~> CALL Forward Rosenbrock method */ - IERR = ros_FwdInt(Y, Tstart, Tend, Texit, AbsTol, RelTol, AdjointType, Hmin, - Hstart, Hmax, Roundoff, ISTATUS, Max_no_steps, - RSTATUS, Autonomous, VectorTol, FacMax, FacMin, - FacSafe, FacRej, SaveLU); - - printf( "\n\nFORWARD STATISTICS\n" ); - printf( "Step=%d Acc=%d Rej=%d Singular=%d\n\n", Nstp, Nacc, Nrej, Nsng ); - -/*~~~> If Forward integration failed return */ - if (IERR<0) - return IERR; - -/*~~~> Initialize the particular Rosenbrock method for continuous adjoint */ - if ( (AdjointType == Adj_continuous) || - (AdjointType == Adj_simple_continuous) ) { - switch (CadjMethod) { - case 1: - Ros2(); - break; - case 2: - Ros3(); - break; - case 3: - Ros4(); - break; - case 4: - Rodas3(); - break; - case 5: - Rodas4(); - break; - default: - printf( "Unknown Rosenbrock method: ICNTRL[2]=%d", ICNTRL[2] ); - return ros_ErrorMsg(-2,Tstart,ZERO); - } - } /* End switch */ - - switch( AdjointType ) { - case Adj_discrete: - IERR = ros_DadjInt (NADJ, Lambda, Tstart, Tend, Texit, SaveLU, ISTATUS, - Roundoff, Autonomous ); - break; - case Adj_continuous: - IERR = ros_CadjInt (NADJ, Lambda, Tend, Tstart, Texit, AbsTol_adj, - RelTol_adj, RSTATUS, Hmin, Hmax, Hstart, Roundoff, - Max_no_steps, Autonomous, VectorTol, FacMax, FacMin, - FacSafe, FacRej, ISTATUS); - break; - case Adj_simple_continuous: - IERR = ros_SimpleCadjInt (NADJ, Lambda, Tstart, Tend, Texit, ISTATUS, - Autonomous, Roundoff); - } /* End switch for AdjointType */ - - printf( "ADJOINT STATISTICS\n" ); - printf( "Step=%d Acc=%d Rej=%d Singular=%d\n",Nstp,Nacc,Nrej,Nsng ); - -/*~~~> Free checkpoint space or close checkpoint files */ - if (AdjointType == Adj_discrete) - ros_FreeDBuffers( SaveLU ); - else if ( (AdjointType == Adj_continuous) || - (AdjointType == Adj_simple_continuous) ) - ros_FreeCBuffers(); - - return IERR; -} - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void ros_AllocateDBuffers( int S, int SaveLU ) { -/*~~~> Allocate buffer space for discrete adjoint -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - int i; - - chk_H = (KPP_REAL*) malloc(bufsize * sizeof(KPP_REAL)); - if (chk_H == NULL) { - printf("Failed allocation of buffer H"); - exit(0); - } - - chk_T = (KPP_REAL*) malloc(bufsize * sizeof(KPP_REAL)); - if (chk_T == NULL) { - printf("Failed allocation of buffer T"); - exit(0); - } - - chk_Y = (KPP_REAL**) malloc(bufsize * sizeof(KPP_REAL*)); - if (chk_Y == NULL) { - printf("Failed allocation of buffer Y"); - exit(0); - } - for(i=0; i Deallocate buffer space for discrete adjoint -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - int i; - - free(chk_H); - free(chk_T); - - for(i=0; i Allocate buffer space for continuous adjoint -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - int i; - - chk_H = (KPP_REAL*) malloc(bufsize * sizeof(KPP_REAL)); - if (chk_H == NULL) { - printf( "Failed allocation of buffer H"); - exit(0); - } - - chk_T = (KPP_REAL*) malloc(bufsize * sizeof(KPP_REAL)); - if (chk_T == NULL) { - printf( "Failed allocation of buffer T"); - exit(0); - } - - chk_Y = (KPP_REAL**) malloc(sizeof(KPP_REAL*) * bufsize); - if (chk_Y == NULL) { - printf( "Failed allocation of buffer Y"); - exit(0); - } - for(i=0; i Dallocate buffer space for continuous adjoint -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - int i; - - free(chk_H); - free(chk_T); - - for(i=0; i Saves the next trajectory snapshot for discrete adjoints -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - int i; - - stack_ptr = stack_ptr + 1; - if ( stack_ptr >= bufsize ) { - printf( "Push failed: buffer overflow" ); - exit(0); - } - - chk_H[ stack_ptr ] = H; - chk_T[ stack_ptr ] = T; - for(i=0; i Retrieves the next trajectory snapshot for discrete adjoints -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - int i; - - if ( stack_ptr < 0 ) { - printf( "Pop failed: empty buffer" ); - exit(0); - } - - *H = chk_H[ stack_ptr ]; - *T = chk_T[ stack_ptr ]; - - for(i=0; i Saves the next trajectory snapshot for discrete adjoints -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - int i; - - stack_ptr++; - if ( stack_ptr > bufsize ) { - printf( "Push failed: buffer overflow" ); - exit(0); - } - chk_H[ stack_ptr ] = H; - chk_T[ stack_ptr ] = T; - - for(i = 0; i< NVAR; i++ ) { - chk_Y[stack_ptr][i] = Y[i]; - chk_dY[stack_ptr][i] = dY[i]; - chk_d2Y[stack_ptr][i] = d2Y[i]; - } -} /* End of ros_CPush */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void ros_CPop( KPP_REAL T, KPP_REAL H, KPP_REAL Y[], KPP_REAL dY[], - KPP_REAL d2Y[] ) { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -~~~> Retrieves the next trajectory snapshot for discrete adjoints -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - int i; - - if ( stack_ptr <= 0 ) { - printf( "Pop failed: empty buffer" ); - exit(0); - } - H = chk_H[ stack_ptr ]; - T = chk_T[ stack_ptr ]; - - for(i=0; i Improper value for maximal no of steps" ); - break; - case -2: - printf( "--> Selected RosenbrockADJ method not implemented" ); - break; - case -3: - printf( "--> Hmin/Hmax/Hstart must be positive" ); - break; - case -4: - printf( "--> FacMin/FacMax/FacRej must be positive" ); - break; - case -5: - printf( "--> Improper tolerance values" ); - break; - case -6: - printf( "--> No of steps exceeds maximum buffer bound" ); - break; - case -7: - printf( "--> Step size too small: T + 10*H = T or H < Roundoff" ); - break; - case -8: - printf( "--> Matrix is repeatedly singular" ); - break; - case -9: - printf( "--> Improper type of adjoint selected" ); - break; - default: - printf( "Unknown Error code: %d", Code ); - } /* End of switch */ - - return IERR; -} /* End of ros_ErrorMsg */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -int ros_FwdInt ( KPP_REAL Y[], KPP_REAL Tstart, KPP_REAL Tend, KPP_REAL T, - KPP_REAL AbsTol[], KPP_REAL RelTol[], int AdjointType, - KPP_REAL Hmin, KPP_REAL Hstart, KPP_REAL Hmax, - KPP_REAL Roundoff, int ISTATUS[], int Max_no_steps, - KPP_REAL RSTATUS[], int Autonomous, int VectorTol, - KPP_REAL FacMax, KPP_REAL FacMin, KPP_REAL FacSafe, - KPP_REAL FacRej, int SaveLU ) { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - Template for the implementation of a generic RosenbrockADJ method - defined by ros_S (no of stages) - and its coefficients ros_{A,C,M,E,Alpha,Gamma} -~~~> Y - Input: the initial condition at Tstart; Output: the solution at T -~~~> Tstart, Tend - Input: integration interval -~~~> T - Output: time at which the solution is returned (T=Tend if success) -~~~> AbsTol, RelTol - Input: tolerances -~~~> IERR - Output: Error indicator -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - -/* ~~~~ Local variables */ - KPP_REAL Ynew[NVAR], Fcn0[NVAR], Fcn[NVAR]; - KPP_REAL K[NVAR*ros_S], dFdT[NVAR]; - KPP_REAL *Ystage = NULL; /* Array pointer */ -#ifdef FULL_ALGEBRA - KPP_REAL Jac0[NVAR][NVAR], Ghimj[NVAR][NVAR]; -#else - KPP_REAL Jac0[LU_NONZERO], Ghimj[LU_NONZERO]; -#endif - KPP_REAL H, Hnew, HC, HG, Fac, Tau; - KPP_REAL Err, Yerr[NVAR]; - int Pivot[NVAR], Direction, ioffset, i, j=0, istage; - int RejectLastH, RejectMoreH, Singular; /* Boolean Values */ -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - -/*~~~> Allocate stage vector buffer if needed */ - if (AdjointType == Adj_discrete) { - Ystage = (KPP_REAL*) malloc(NVAR*ros_S*sizeof(KPP_REAL)); - /* Uninitialized Ystage may lead to NaN on some compilers */ - if (Ystage == NULL) { - printf( "Allocation of Ystage failed" ); - exit(0); - } - } - -/*~~~> Initial preparations */ - T = Tstart; - RSTATUS[Nhexit] = ZERO; - H = MIN( MAX(ABS(Hmin),ABS(Hstart)) , ABS(Hmax) ); - if (ABS(H) <= ((KPP_REAL)10.0)*Roundoff) - H = DeltaMin; - - if (Tend >= Tstart) - Direction = 1; - else - Direction = -1; - - H = Direction*H; - - RejectLastH = FALSE; - RejectMoreH = FALSE; - -/*~~~> Time loop begins below */ - while ( ((Direction > 0) && ((T-Tend)+Roundoff <= ZERO)) || - ((Direction < 0) && ((Tend-T)+Roundoff <= ZERO)) ) { /* TimeLoop */ - - if ( ISTATUS[Nstp] > Max_no_steps ) /* Too many steps */ - return ros_ErrorMsg(-6,T,H); - - if ( ((T+((KPP_REAL)0.1)*H) == T) || (H <= Roundoff) ) /* Step size - too small */ - return ros_ErrorMsg(-7,T,H); - -/*~~~> Limit H if necessary to avoid going beyond Tend */ - RSTATUS[Nhexit] = H; - H = MIN(H,ABS(Tend-T)); - -/*~~~> Compute the function at current time */ - FunTemplate(T,Y,Fcn0); - ISTATUS[Nfun] = ISTATUS[Nfun] + 1; - -/*~~~> Compute the function derivative with respect to T */ - if (!Autonomous) - ros_FunTimeDerivative ( T, Roundoff, Y, Fcn0, dFdT, ISTATUS ); - -/*~~~> Compute the Jacobian at current time */ - JacTemplate(T,Y,Jac0); - ISTATUS[Njac] = ISTATUS[Njac] + 1; - -/*~~~> Repeat step calculation until current step accepted */ - do { /* UntilAccepted */ - - Singular = ros_PrepareMatrix ( H,Direction,ros_Gamma[0],Jac0,Ghimj,Pivot, - ISTATUS ); - - if (Singular) /* More than 5 consecutive failed decompositions */ - return ros_ErrorMsg(-8,T,H); - -/*~~~> Compute the stages */ - for( istage = 0; istage < ros_S; istage++ ) { /* Stage */ - - /* Current istage offset. Current istage vector is - K(ioffset+1:ioffset+NVAR) */ - ioffset = NVAR*istage; - - /*For the 1st istage the function has been computed previously*/ - if ( istage == 0 ) { - WCOPY(NVAR,Fcn0,1,Fcn,1); - if (AdjointType == Adj_discrete) { /* Save stage solution */ - for(i=0; i0 and a new function evaluation is needed at the - current istage */ - else if ( ros_NewF[istage] ) { - WCOPY(NVAR,Y,1,Ynew,1); - for ( j = 0; j < istage; j++ ) { - WAXPY( NVAR,ros_A[(istage)*(istage-1)/2+j], - &K[NVAR*j],1,Ynew,1 ); - } - Tau = T + ros_Alpha[istage]*Direction*H; - FunTemplate(Tau,Ynew,Fcn); - ISTATUS[Nfun] = ISTATUS[Nfun] + 1; - } /* if istage == 1 elseif ros_NewF[istage] */ - - /* Save stage solution every time even if ynew is not updated */ - if ( ( istage > 0 ) && (AdjointType == Adj_discrete) ) { - for(i=0; i Compute the new solution */ - WCOPY(NVAR,Y,1,Ynew,1); - for( j=0; j Compute the error estimation */ - WSCAL(NVAR,ZERO,Yerr,1); - for( j=0; j New step size is bounded by FacMin <= Hnew/H <= FacMax */ - Fac = MIN(FacMax,MAX(FacMin,FacSafe/pow(Err,(ONE/ros_ELO)))); - Hnew = H*Fac; - -/*~~~> Check the error magnitude and adjust step size */ - ISTATUS[Nstp] = ISTATUS[Nstp] + 1; - if ( (Err <= ONE) || (H <= Hmin) ) { /*~~~> Accept step */ - ISTATUS[Nacc]++; - if (AdjointType == Adj_discrete) { /* Save current state */ - ros_DPush( ros_S, T, H, Ystage, K, Ghimj, Pivot, SaveLU ); - } - else if ( (AdjointType == Adj_continuous) || - (AdjointType == Adj_simple_continuous) ) { -#ifdef FULL_ALGEBRA - K = MATMUL(Jac0,Fcn0); -#else - Jac_SP_Vec( Jac0, Fcn0, &K[0] ); -#endif - if ( !Autonomous) - WAXPY(NVAR,ONE,dFdT,1,&K[0],1); - ros_CPush( T, H, Y, Fcn0, &K[0] ); - } - WCOPY(NVAR,Ynew,1,Y,1); - T = T + Direction*H; - Hnew = MAX(Hmin,MIN(Hnew,Hmax)); - if (RejectLastH) { /* No step size increase after a - rejected step */ - Hnew = MIN(Hnew,H); - } - RSTATUS[Nhexit] = H; - RSTATUS[Nhnew] = Hnew; - RSTATUS[Ntexit] = T; - RejectLastH = FALSE; - RejectMoreH = FALSE; - H = Hnew; - break; /* UntilAccepted - EXIT THE LOOP: WHILE STEP NOT ACCEPTED */ - } - - else { /*~~~> Reject step */ - if (RejectMoreH) - Hnew = H*FacRej; - RejectMoreH = RejectLastH; - RejectLastH = TRUE; - H = Hnew; - if (ISTATUS[Nacc] >= 1) - ISTATUS[Nrej]++; - } /* End if else - Err <= 1 */ - - } while(1); /* End of UntilAccepted do loop */ - } /* End of TimeLoop */ - -/*~~~> Save last state: only needed for continuous adjoint */ - if ( (AdjointType == Adj_continuous) || - (AdjointType == Adj_simple_continuous) ) { - FunTemplate(T,Y,Fcn0); - ISTATUS[Nfun]++; - JacTemplate(T,Y,Jac0); - ISTATUS[Njac]++; -#ifdef FULL_ALGEBRA - K = MATMUL(Jac0,Fcn0); -#else - Jac_SP_Vec( Jac0, Fcn0, &K[0] ); -#endif - if (!Autonomous) { - ros_FunTimeDerivative ( T, Roundoff, Y, Fcn0, dFdT, ISTATUS ); - WAXPY(NVAR,ONE,dFdT,1,&K[0],1); - } - ros_CPush( T, H, Y, Fcn0, &K[0] ); -/*~~~> Deallocate stage buffer: only needed for discrete adjoint */ - } - else if (AdjointType == Adj_discrete) { - free(Ystage); - } - -/*~~~> Succesful exit */ - return 1; /*~~~> The integration was successful */ -} /* End of ros_FwdInt */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -int ros_DadjInt ( int NADJ, KPP_REAL Lambda[][NVAR], KPP_REAL Tstart, - KPP_REAL Tend, KPP_REAL T, int SaveLU, int ISTATUS[], - KPP_REAL Roundoff, int Autonomous) { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - Template for the implementation of a generic RosenbrockSOA method - defined by ros_S (no of stages) - and its coefficients ros_{A,C,M,E,Alpha,Gamma} -!~~~> NADJ - Input: the initial condition at Tstart; Output: the solution at T -!~~~> Lambda[NADJ][NVAR] - First order adjoint -!~~~> Tstart, Tend - Input: integration interval -!~~~> T - Output: time at which the solution is returned (T=Tend if success) -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - -/*~~~~ Local variables */ - KPP_REAL Ystage[NVAR*ros_S], K[NVAR*ros_S]; - KPP_REAL U[NADJ][NVAR*ros_S], V[NADJ][NVAR*ros_S]; -#ifdef FULL_ALGEBRA - KPP_REAL Jac[NVAR][NVAR], dJdT[NVAR][NVAR], Ghimj[NVAR][NVAR]; -#else - KPP_REAL Jac[LU_NONZERO], dJdT[LU_NONZERO], Ghimj[LU_NONZERO]; -#endif - KPP_REAL Hes0[NHESS]; - KPP_REAL Tmp[NVAR], Tmp2[NVAR]; - KPP_REAL H=0.0, HC, HA, Tau; - int Pivot[NVAR], Direction; - int i, j, m, istage, istart, jstart; -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - if (Tend >= Tstart) - Direction = 1; - else - Direction = -1; - - /*~~~> Time loop begins below */ - while ( stack_ptr > 0 ) { /* TimeLoop */ - - /*~~~> Recover checkpoints for stage values and vectors */ - ros_DPop( ros_S, &T, &H, &Ystage[0], &K[0], &Ghimj[0], &Pivot[0], SaveLU ); - - /*~~~> Compute LU decomposition */ - if (!SaveLU) { - JacTemplate(T,&Ystage[0],Ghimj); - ISTATUS[Njac] = ISTATUS[Njac] + 1; - Tau = ONE/(Direction*H*ros_Gamma[0]); -#ifdef FULL_ALGEBRA - for(j=0; j Compute Hessian at the beginning of the interval */ - HessTemplate(T,&Ystage[0],Hes0); - -/*~~~> Compute the stages */ - for (istage = ros_S - 1; istage >= 0; istage--) { /* Stage loop */ - - /*~~~> Current istage first entry */ - istart = NVAR*istage; - - /*~~~> Compute U */ - for (m = 0; m Compute V */ - Tau = T + ros_Alpha[istage]*Direction*H; - JacTemplate(Tau,&Ystage[istart],Jac); - ISTATUS[Njac]++; - for ( m = 0; m < NADJ; m++ ) { -#ifdef FULL_ALGEBRA - for (i=istart; i < istart+NVAR-1; i++ ) - V[[m][i] = MATMUL(TRANSPOSE(Jac),U[m][i]]; -#else - JacTR_SP_Vec(Jac,&U[m][istart],&V[m][istart]); -#endif - } /* m=0:NADJ-1 */ - } /*End of Stage loop */ - - if (!Autonomous) -/*~~~> Compute the Jacobian derivative with respect to T. - Last "Jac" computed for stage 1 */ - ros_JacTimeDerivative ( T, Roundoff, &Ystage[0], Jac, dJdT, ISTATUS ); - -/*~~~> Compute the new solution */ - /*~~~> Compute Lambda */ - for( istage = 0; istage < ros_S; istage++ ) { - istart = NVAR*istage; - for (m = 0; m < NADJ; m++) { - /* Add V_i */ - WAXPY(NVAR,ONE,&V[m][istart],1,&Lambda[m][0],1); - /* Add (H0xK_i)^T * U_i */ - HessTR_Vec ( Hes0, &U[m][istart], &K[istart], Tmp ); - WAXPY(NVAR,ONE,Tmp,1,&Lambda[m][0],1); - } /* m=0:NADJ-1 */ - } - - /* Add H * dJac_dT_0^T * \sum(gamma_i U_i) */ - /* Tmp holds sum gamma_i U_i */ - if (!Autonomous) { - for( m = 0; m < NADJ; m++ ) { - for(i=0; i Save last state */ - /*~~~> Succesful exit */ - return 1; /*~~~> The integration was successful */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -} /* End of ros_DadjInt */ -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -int ros_CadjInt ( int NADJ, KPP_REAL Y[][NVAR], KPP_REAL Tstart, KPP_REAL Tend, - KPP_REAL T, KPP_REAL AbsTol_adj[][NVAR], - KPP_REAL RelTol_adj[][NVAR], KPP_REAL RSTATUS[], - KPP_REAL Hmin, KPP_REAL Hmax, KPP_REAL Hstart, - KPP_REAL Roundoff, int Max_no_steps, int Autonomous, - int VectorTol, KPP_REAL FacMax, KPP_REAL FacMin, - KPP_REAL FacSafe, KPP_REAL FacRej, int ISTATUS[] ) { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - Template for the implementation of a generic RosenbrockADJ method - defined by ros_S (no of stages) - and its coefficients ros_{A,C,M,E,Alpha,Gamma} -~~~> NADJ, Y[NADJ][NVAR] - Input: the initial condition at Tstart; - Output: the solution at T -~~~> Tstart, Tend - Input: integration interval -~~~> AbsTol_adj[NADJ][NVAR], RelTol_adj[NADJ][NVAR] - Input: adjoint tolerances -~~~> T - Output: time at which the solution is returned (T=Tend if success) -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - -/*~~~~ Local variables */ - KPP_REAL Y0[NVAR]; - KPP_REAL Ynew[NADJ][NVAR], Fcn0[NADJ][NVAR], Fcn[NADJ][NVAR]; - KPP_REAL K[NADJ][NVAR*ros_S], dFdT[NADJ][NVAR]; -#ifdef FULL_ALGEBRA - KPP_REAL Jac0[NVAR][NVAR], Ghimj[NVAR][NVAR], Jac[NVAR][NVAR], - dJdT[NVAR][NVAR]; -#else - KPP_REAL Jac0[LU_NONZERO], Ghimj[LU_NONZERO], Jac[LU_NONZERO], - dJdT[LU_NONZERO]; -#endif - KPP_REAL H, Hnew, HC, HG, Fac, Tau; - KPP_REAL Err, Yerr[NADJ][NVAR]; - int Pivot[NVAR], Direction, ioffset, j, istage, iadj; - int RejectLastH, RejectMoreH, Singular; /* Boolean values */ -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - -/*~~~> Initial preparations */ - T = Tstart; - RSTATUS[Nhexit] = (KPP_REAL)0.0; - H = MIN( MAX(ABS(Hmin),ABS(Hstart)) , ABS(Hmax) ); - if (ABS(H) <= ((KPP_REAL)10.0)*Roundoff) - H = DeltaMin; - - if (Tend >= Tstart) - Direction = 1; - else - Direction = -1; - - H = Direction*H; - RejectLastH = FALSE; - RejectMoreH = FALSE; - -/*~~~> Time loop begins below */ - while ( ((Direction > 0) && ((T-Tend)+Roundoff <= ZERO)) - || ((Direction < 0) && ((Tend-T)+Roundoff <= ZERO)) ) { /*TimeLoop*/ - - if ( ISTATUS[Nstp] > Max_no_steps ) /* Too many steps */ - return ros_ErrorMsg(-6,T,H); - - /* Step size too small */ - if ( ((T+((KPP_REAL)0.1)*H) == T) || (H <= Roundoff) ) - return ros_ErrorMsg(-7,T,H); - -/*~~~> Limit H if necessary to avoid going beyond Tend */ - RSTATUS[Nhexit] = H; - H = MIN(H,ABS(Tend-T)); - -/*~~~> Interpolate forward solution */ - ros_cadj_Y( T, Y0 ); -/*~~~> Compute the Jacobian at current time */ - JacTemplate(T, Y0, Jac0); - ISTATUS[Njac]++; - -/*~~~> Compute the function derivative with respect to T */ - if (!Autonomous) { - ros_JacTimeDerivative ( T, Roundoff, Y0, Jac0, dJdT, ISTATUS ); - for (iadj = 0; iadj < NADJ; iadj++) { -#ifdef FULL_ALGEBRA - for (i=0; i Ydot = -J^T*Y */ -#ifdef FULL_ALGEBRA - int i; - for(i=0; i Repeat step calculation until current step accepted */ - do { /* UntilAccepted */ - - Singular = ros_PrepareMatrix(H,Direction,ros_Gamma[0], Jac0,Ghimj,Pivot, - ISTATUS); - if (Singular) /* More than 5 consecutive failed decompositions */ - return ros_ErrorMsg(-8,T,H); - -/*~~~> Compute the stages */ - for ( istage = 0; istage < ros_S; istage++ ) { /* Stage loop */ - - /* Current istage offset. Current istage vector - is K[ioffset+1:ioffset+NVAR] */ - ioffset = NVAR*(istage-1); - - /* For the 1st istage the function has been computed previously */ - if ( istage == 0 ) { - for ( iadj = 0; iadj < NADJ; iadj++ ) - WCOPY(NVAR,&Fcn0[iadj][0],1,&Fcn[iadj][0],1); - - /* istage>0 and a new function evaluation is needed at - the current istage */ - } - else if ( ros_NewF[istage] ) { - WCOPY(NVAR*NADJ,&Y[0][0],1,&Ynew[0][0],1); - for (j = 0; j < istage-1; j++) { - for ( iadj = 0; iadj < NADJ; iadj++ ) - WAXPY( NVAR,ros_A[(istage-1)*(istage-2)/2+j], - &K[iadj][NVAR*(j-1)+1],1,&Ynew[iadj][0],1); - } /* End for loop */ - Tau = T + ros_Alpha[istage]*Direction*H; - ros_cadj_Y( Tau, Y0 ); - JacTemplate(Tau, Y0, Jac); - ISTATUS[Njac]++; - -#ifdef FULL_ALGEBRA - for(i=0; i Compute the new solution */ - for ( iadj = 0; iadj < NADJ; iadj++ ) { - WCOPY(NVAR,&Y[iadj][0],1,&Ynew[iadj][0],1); - for ( j=0; j Compute the error estimation */ - WSCAL(NVAR*NADJ,ZERO,&Yerr[0][0],1); - for ( j=0; j Max error among all adjoint components */ - iadj = 1; - Err = ros_ErrorNorm ( &Y[iadj][0], &Ynew[iadj][0], &Yerr[iadj][0], - &AbsTol_adj[iadj][0], &RelTol_adj[iadj][0], - VectorTol ); - -/*~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax */ - Fac = MIN(FacMax,MAX(FacMin,FacSafe/pow(Err,(ONE/ros_ELO)))); - Hnew = H*Fac; - -/*~~~> Check the error magnitude and adjust step size */ - /* ISTATUS[Nstp] = ISTATUS[Nstp] + 1 */ - if ( (Err <= ONE) || (H <= Hmin) ) { /*~~~> Accept step */ - ISTATUS[Nacc] = ISTATUS[Nacc] + 1; - WCOPY(NVAR*NADJ,&Ynew[0][0],1,&Y[0][0],1); - T = T + Direction*H; - Hnew = MAX(Hmin,MIN(Hnew,Hmax)); - if (RejectLastH) /* No step size increase after a rejected step */ - Hnew = MIN(Hnew,H); - RSTATUS[Nhexit] = H; - RSTATUS[Nhnew] = Hnew; - RSTATUS[Ntexit] = T; - RejectLastH = FALSE; - RejectMoreH = FALSE; - H = Hnew; - break; /* UntilAccepted - EXIT THE LOOP: WHILE STEP NOT ACCEPTED */ - } - else { /*~~~> Reject step */ - if (RejectMoreH) - Hnew = H*FacRej; - RejectMoreH = RejectLastH; - RejectLastH = TRUE; - H = Hnew; - if (ISTATUS[Nacc] >= 1) - ISTATUS[Nrej]++; - } /* Err <= 1 */ - - } while(1); /* End of UntilAccepted do loop */ - - } /* End of TimeLoop */ - - /*~~~> Succesful exit */ - return 1; /*~~~> The integration was successful */ -} /* End of ros_CadjInt */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -int ros_SimpleCadjInt ( int NADJ, KPP_REAL Y[][NVAR], KPP_REAL Tstart, - KPP_REAL Tend, KPP_REAL T, int ISTATUS[], - int Autonomous, KPP_REAL Roundoff ) { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - Template for the implementation of a generic RosenbrockADJ method - defined by ros_S (no of stages) - and its coefficients ros_{A,C,M,E,Alpha,Gamma} -~~~> NADJ, Y[NADJ][NVAR] - Input: the initial condition at Tstart; - Output: the solution at T -~~~> Tstart, Tend - Input: integration interval -~~~> T - Output: time at which the solution is returned (T=Tend if success) -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - -/*~~~~ Local variables */ - KPP_REAL Y0[NVAR]; - KPP_REAL Ynew[NADJ][NVAR], Fcn0[NADJ][NVAR], Fcn[NADJ][NVAR]; - KPP_REAL K[NADJ][NVAR*ros_S], dFdT[NADJ][NVAR]; -#ifdef FULL_ALGEBRA - KPP_REAL Jac0[NVAR][NVAR], Ghimj[NVAR][NVAR], Jac[NVAR][NVAR], - dJdT[NVAR][NVAR]; -#else - KPP_REAL Jac0[LU_NONZERO], Ghimj[LU_NONZERO], Jac[LU_NONZERO], - dJdT[LU_NONZERO]; -#endif - KPP_REAL H, HC, HG, Tau; - KPP_REAL ghinv; - int Pivot[NVAR], Direction, ioffset, i, j, istage, iadj; - int istack; - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - -/*~~~> INITIAL PREPARATIONS */ - if (Tend >= Tstart) - Direction = -1; - else - Direction = 1; - -/*~~~> Time loop begins below */ - for( istack = stack_ptr; istack >= 1; istack-- ) { /* TimeLoop */ - T = chk_T[istack]; - H = chk_H[istack-1]; - for(i=0; i Compute the Jacobian at current time */ - JacTemplate(T, Y0, Jac0); - ISTATUS[Njac] = ISTATUS[Njac] + 1; - -/*~~~> Compute the function derivative with respect to T */ - if (!Autonomous) { - ros_JacTimeDerivative ( T, Roundoff, Y0, Jac0, dJdT, ISTATUS ); - for ( iadj = 0; iadj < NADJ; iadj++ ) { -#ifdef FULL_ALGEBRA - for( i=0; i Ydot = -J^T*Y */ -#ifdef FULL_ALGEBRA - for(i=0; i Construct Ghimj = 1/(H*ham) - Jac0 */ - ghinv = ONE/(Direction*H*ros_Gamma[0]); -#ifdef FULL_ALGEBRA - for(i=0; i Compute LU decomposition */ - ros_Decomp( Ghimj, Pivot, &j, ISTATUS ); - if (j != 0) { - ros_ErrorMsg(-8,T,H); - printf( "The matrix is singular !"); - exit(0); - } - -/*~~~> Compute the stages */ - for(istage=0; istage=1 and a new function evaluation is needed - at the current istage */ - else if ( ros_NewF[istage] ) { - WCOPY(NVAR*NADJ,&Y[0][0],1,&Ynew[0][0],1); - for(j=0; j Compute the new solution */ - for(iadj=0; iadj Succesful exit */ - return 1; /*~~~> The integration was successful */ - -} /* End of ros_SimpleCadjInt */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -KPP_REAL ros_ErrorNorm ( KPP_REAL Y[], KPP_REAL Ynew[], KPP_REAL Yerr[], - KPP_REAL AbsTol[], KPP_REAL RelTol[], int VectorTol ) { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -~~~> Computes the "scaled norm" of the error vector Yerr -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - -/* Local variables */ - KPP_REAL Err, Scale, Ymax; - int i; - - Err = ZERO; - for(i=0; i The time partial derivative of the function by finite differences -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - -/*~~~> Local variables */ - KPP_REAL Delta; - - Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T)); - FunTemplate(T+Delta,Y,dFdT); - ISTATUS[Nfun]++; - WAXPY(NVAR,(-ONE),Fcn0,1,dFdT,1); - WSCAL(NVAR,(ONE/Delta),dFdT,1); - -} /* End of ros_FunTimeDerivative */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void ros_JacTimeDerivative ( KPP_REAL T, KPP_REAL Roundoff, KPP_REAL Y[], - KPP_REAL Jac0[], KPP_REAL dJdT[], int ISTATUS[]) { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -~~~> The time partial derivative of the Jacobian by finite differences -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - -/*~~~> Local variables */ - KPP_REAL Delta; - - Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T)); - JacTemplate(T+Delta,Y,dJdT); - ISTATUS[Njac]++; -#ifdef FULL_ALGEBRA - WAXPY(NVAR*NVAR,(-ONE),Jac0,1,dJdT,1); - WSCAL(NVAR*NVAR,(ONE/Delta),dJdT,1); -#else - WAXPY(LU_NONZERO,(-ONE),Jac0,1,dJdT,1); - WSCAL(LU_NONZERO,(ONE/Delta),dJdT,1); -#endif -} /* End of ros_JacTimeDerivative */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -int ros_PrepareMatrix ( KPP_REAL H, int Direction, KPP_REAL gam, - KPP_REAL Jac0[], KPP_REAL Ghimj[], int Pivot[], - int ISTATUS[] ) { -/* --- --- --- --- --- --- --- --- --- --- --- --- --- - Prepares the LHS matrix for stage calculations - 1. Construct Ghimj = 1/(H*gam) - Jac0 - "(Gamma H) Inverse Minus Jacobian" - 2. Repeat LU decomposition of Ghimj until successful. - -half the step size if LU decomposition fails and retry - -exit after 5 consecutive fails - --- --- --- --- --- --- --- --- --- --- --- --- --- */ - -/*~~~> Local variables */ - int i, ising, Nconsecutive; - int Singular; /* Boolean value */ - KPP_REAL ghinv; - - Nconsecutive = 0; - Singular = TRUE; - - while (Singular) { - -/*~~~> Construct Ghimj = 1/(H*gam) - Jac0 */ -#ifdef FULL_ALGEBRA - WCOPY(NVAR*NVAR,Jac0,1,Ghimj,1); - WSCAL(NVAR*NVAR,(-ONE),Ghimj,1); - ghinv = ONE/(Direction*H*gam); - for(i=0; i Compute LU decomposition */ - ros_Decomp( Ghimj, Pivot, &ising, ISTATUS ); - if (ising == 0) -/*~~~> If successful done */ - Singular = FALSE; - - else { /* ising != 0 */ -/*~~~> If unsuccessful half the step size; - if 5 consecutive fails then return */ - ISTATUS[Nsng]++; - Nconsecutive++; - Singular = TRUE; - printf( "Warning: LU Decomposition returned ising = %d", ising ); - if (Nconsecutive <= 5) /*Less than 5 consecutive failed decompositions*/ - H = H*HALF; - else /* More than 5 consecutive failed decompositions */ - return Singular; - - } /* End of ising */ - } /* while Singular */ - - return Singular; -} /* End of ros_PrepareMatrix */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void ros_Decomp( KPP_REAL A[], int Pivot[], int* ising, int ISTATUS[] ) { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - Template for the LU decomposition -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - -#ifdef FULL_ALGEBRA - DGETRF( NVAR, NVAR, A, NVAR, Pivot, ising ); -#else - *ising = KppDecomp ( A ); - Pivot[0] = 1; -#endif - ISTATUS[Ndec]++; - -} /* End of ros_Decomp */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void ros_Solve( char How, KPP_REAL A[], int Pivot[], KPP_REAL b[], - int ISTATUS[] ) { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - Template for the forward/backward substitution - (using pre-computed LU decomposition) -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - switch (How) { - case 'N': -#ifdef FULL_ALGEBRA - DGETRS( 'N', NVAR , 1, A, NVAR, Pivot, b, NVAR, 0 ); -#else - KppSolve( A, b ); -#endif - break; - case 'T': -#ifdef FULL_ALGEBRA - DGETRS( 'T', NVAR , 1, A, NVAR, Pivot, b, NVAR, 0 ); -#else - KppSolveTR( A, b, b ); -#endif - break; - default: - printf( "Error: unknown argument in ros_Solve: How=%d", How ); - exit(0); - } - ISTATUS[Nsol]++; - -} /* End of ros_Solve */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void ros_cadj_Y( KPP_REAL T, KPP_REAL Y[] ) { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - Finds the solution Y at T by interpolating the stored forward trajectory -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - -/*~~~> Local variables */ - int i,j; - - if( (T < chk_T[0]) || (T> chk_T[stack_ptr]) ) { - printf( "Cannot locate solution at T = %f", T ); - printf( "Stored trajectory is between Tstart = %f", chk_T[0] ); - printf( " and Tend = %f", chk_T[stack_ptr] ); - exit(0); - } - for(i=0; i= chk_T[i]) &&(T <= chk_T[i+1]) ) - exit(0); - } - - for(j=0; j Local variables */ - KPP_REAL Tau, amb[3], C[4][NVAR]; - int i, j; - - amb[0] = ((KPP_REAL)1.0)/(a-b); - for(i=1; i<3; i++) - amb[i] = amb[i-1]*amb[0]; - -/* c(1) = ya; */ - WCOPY(NVAR,Ya,1,&C[0][0],1); -/* c(2) = ja; */ - WCOPY(NVAR,Ja,1,&C[1][0],1); -/* c(3) = 2/(a-b)*ja + 1/(a-b)*jb - 3/(a - b)^2*ya + 3/(a - b)^2*yb; */ - WCOPY(NVAR,Ya,1,&C[2][0],1); - WSCAL(NVAR,-3.0*amb[1],&C[2][0],1); - WAXPY(NVAR,3.0*amb[1],Yb,1,&C[2][0],1); - WAXPY(NVAR,2.0*amb[0],Ja,1,&C[2][0],1); - WAXPY(NVAR,amb[0],Jb,1,&C[2][0],1); -/* c(4) = 1/(a-b)^2*ja + 1/(a-b)^2*jb - 2/(a-b)^3*ya + 2/(a-b)^3*yb */ - WCOPY(NVAR,Ya,1,&C[3][0],1); - WSCAL(NVAR,-2.0*amb[2],&C[3][0],1); - WAXPY(NVAR,2.0*amb[2],Yb,1,&C[3][0],1); - WAXPY(NVAR,amb[1],Ja,1,&C[3][0],1); - WAXPY(NVAR,amb[1],Jb,1,&C[3][0],1); - - Tau = T - a; - WCOPY(NVAR,&C[3][0],1,Y,1); - WSCAL(NVAR,pow(Tau,3),Y,1); - for(j=2; j>=0; j--) - WAXPY(NVAR,pow(Tau,(j-1)),&C[j][0],1,Y,1); - -} /* End of ros_Hermite3 */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void ros_Hermite5( KPP_REAL a, KPP_REAL b, KPP_REAL T, KPP_REAL Ya[], - KPP_REAL Yb[], KPP_REAL Ja[], KPP_REAL Jb[], KPP_REAL Ha[], - KPP_REAL Hb[], KPP_REAL Y[] ) { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - Template for Hermite interpolation of order 5 on the interval [a,b] - P = c(1) + c(2)*(x-a) + ... + c(6)*(x-a)^5 - P[a,b] = [Ya,Yb], P'[a,b] = [Ja,Jb], P"[a,b] = [Ha,Hb] -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - -/*~~~> Local variables */ - KPP_REAL Tau, amb[5], C[6][NVAR]; - int i, j; - - amb[0] = ((KPP_REAL)1.0)/(a-b); - for(i=1; i<5; i++) - amb[i] = amb[i-1]*amb[0]; - -/* c(1) = ya; */ - WCOPY(NVAR,Ya,1,&C[0][0],1); -/* c(2) = ja; */ - WCOPY(NVAR,Ja,1,&C[1][0],1); -/* c(3) = ha/2; */ - WCOPY(NVAR,Ha,1,&C[2][0],1); - WSCAL(NVAR,HALF,&C[2][0],1); - -/* c(4) = 10*amb(3)*ya - 10*amb(3)*yb - 6*amb(2)*ja - 4*amb(2)*jb - + 1.5*amb(1)*ha - 0.5*amb(1)*hb ; */ - WCOPY(NVAR,Ya,1,&C[3][0],1); - WSCAL(NVAR,10.0*amb[2],&C[3][0],1); - WAXPY(NVAR,-10.0*amb[2],Yb,1,&C[3][0],1); - WAXPY(NVAR,-6.0*amb[1],Ja,1,&C[3][0],1); - WAXPY(NVAR,-4.0*amb[1],Jb,1,&C[3][0],1); - WAXPY(NVAR, 1.5*amb[0],Ha,1,&C[3][0],1); - WAXPY(NVAR,-0.5*amb[0],Hb,1,&C[3][0],1); - -/* c(5) = 15*amb(4)*ya - 15*amb(4)*yb - 8.*amb(3)*ja - 7*amb(3)*jb - + 1.5*amb(2)*ha - 1*amb(2)*hb ; */ - WCOPY(NVAR,Ya,1,&C[4][0],1); - WSCAL(NVAR, 15.0*amb[3],&C[4][0],1); - WAXPY(NVAR,-15.0*amb[3],Yb,1,&C[4][0],1); - WAXPY(NVAR,-8.0*amb[2],Ja,1,&C[4][0],1); - WAXPY(NVAR,-7.0*amb[2],Jb,1,&C[4][0],1); - WAXPY(NVAR,1.5*amb[1],Ha,1,&C[4][0],1); - WAXPY(NVAR,-amb[1],Hb,1,&C[4][0],1); - -/* c(6) = 6*amb(5)*ya - 6*amb(5)*yb - 3.*amb(4)*ja - 3.*amb(4)*jb - + 0.5*amb(3)*ha -0.5*amb(3)*hb ; */ - WCOPY(NVAR,Ya,1,&C[5][0],1); - WSCAL(NVAR, 6.0*amb[4],&C[5][0],1); - WAXPY(NVAR,-6.0*amb[4],Yb,1,&C[5][0],1); - WAXPY(NVAR,-3.0*amb[3],Ja,1,&C[5][0],1); - WAXPY(NVAR,-3.0*amb[3],Jb,1,&C[5][0],1); - WAXPY(NVAR, 0.5*amb[2],Ha,1,&C[5][0],1); - WAXPY(NVAR,-0.5*amb[2],Hb,1,&C[5][0],1); - - Tau = T - a; - WCOPY(NVAR,&C[5][0],1,Y,1); - for(j=4; j>=0; j--) { - WSCAL(NVAR,Tau,Y,1); - WAXPY(NVAR,ONE,&C[j][0],1,Y,1); - } - -} /* End of ros_Hermite5 */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void Ros2() { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - --- AN L-STABLE METHOD, 2 stages, order 2 -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - KPP_REAL g; - - g = (KPP_REAL)1.0 + ((KPP_REAL)1.0)/SQRT((KPP_REAL)2.0); - - rosMethod = RS2; -/*~~~> Name of the method */ - strcpy(ros_Name, "ROS-2"); -/*~~~> Number of stages */ - ros_S = 2; - -/*~~~> The coefficient matrices A and C are strictly lower triangular. - The lower triangular (subdiagonal) elements are stored in row-wise order: - A[0][1] = ros_A[0], A[0][2]=ros_A[1], A[1][2]=ros_A[2], etc. - The general mapping formula is: - A[i][j] = ros_A[ (i-1)*(i-2)/2 + j ] - C[i][j] = ros_C[ (i-1)*(i-2)/2 + j ] */ - - ros_A[0] = ((KPP_REAL)1.0)/g; - ros_C[0] = ((KPP_REAL)-2.0)/g; - -/*~~~> Does the stage i require a new function evaluation (ros_NewF[i]=TRUE) - or does it re-use the function evaluation from stage i-1 - (ros_NewF[i]=FALSE) */ - ros_NewF[0] = TRUE; - ros_NewF[1] = TRUE; - -/*~~~> M_i = Coefficients for new step solution */ - ros_M[0]= ((KPP_REAL)3.0)/((KPP_REAL)2.0*g); - ros_M[1]= ((KPP_REAL)1.0)/((KPP_REAL)2.0*g); - -/* E_i = Coefficients for error estimator */ - ros_E[0] = ((KPP_REAL)1.0)/((KPP_REAL)2.0*g); - ros_E[1] = ((KPP_REAL)1.0)/((KPP_REAL)2.0*g); - -/*~~~> ros_ELO = estimator of local order - the minimum between the - main and the embedded scheme orders plus one */ - ros_ELO = (KPP_REAL)2.0; - -/*~~~> Y_stage_i ~ Y( T + H*Alpha_i ) */ - ros_Alpha[0] = (KPP_REAL)0.0; - ros_Alpha[1] = (KPP_REAL)1.0; - -/*~~~> Gamma_i = \sum_j gamma_{i,j} */ - ros_Gamma[0] = g; - ros_Gamma[1] =-g; - -} /* End of Ros2 */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void Ros3() { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - --- AN L-STABLE METHOD, 3 stages, order 3, 2 function evaluations -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - rosMethod = RS3; -/*~~~> Name of the method */ - strcpy(ros_Name, "ROS-3"); -/*~~~> Number of stages */ - ros_S = 3; - -/*~~~> The coefficient matrices A and C are strictly lower triangular. - The lower triangular (subdiagonal) elements are stored in row-wise order: - A[0][1] = ros_A[0], A[0][2]=ros_A[1], A[1][2]=ros_A[2], etc. - The general mapping formula is: - A[i][j] = ros_A[ (i-1)*(i-2)/2 + j ] - C[i][j] = ros_C[ (i-1)*(i-2)/2 + j ] */ - - ros_A[0]= (KPP_REAL)1.0; - ros_A[1]= (KPP_REAL)1.0; - ros_A[2]= (KPP_REAL)0.0; - ros_C[0] = (KPP_REAL)-0.10156171083877702091975600115545e01; - ros_C[1] = (KPP_REAL) 0.40759956452537699824805835358067e01; - ros_C[2] = (KPP_REAL) 0.92076794298330791242156818474003e01; - -/*~~~> Does the stage i require a new function evaluation (ros_NewF[i]=TRUE) - or does it re-use the function evaluation from stage i-1 - (ros_NewF[i]=FALSE) */ - ros_NewF[0] = TRUE; - ros_NewF[1] = TRUE; - ros_NewF[2] = FALSE; -/*~~~> M_i = Coefficients for new step solution */ - ros_M[0] = (KPP_REAL) 0.1e01; - ros_M[1] = (KPP_REAL) 0.61697947043828245592553615689730e01; - ros_M[2] = (KPP_REAL)-0.42772256543218573326238373806514; -/* E_i = Coefficients for error estimator */ - ros_E[0] = (KPP_REAL) 0.5; - ros_E[1] = (KPP_REAL)-0.29079558716805469821718236208017e01; - ros_E[2] = (KPP_REAL) 0.22354069897811569627360909276199; - -/*~~~> ros_ELO = estimator of local order - the minimum between the - main and the embedded scheme orders plus 1 */ - ros_ELO = (KPP_REAL)3.0; -/*~~~> Y_stage_i ~ Y( T + H*Alpha_i ) */ - ros_Alpha[0]= (KPP_REAL)0.0; - ros_Alpha[1]= (KPP_REAL)0.43586652150845899941601945119356; - ros_Alpha[2]= (KPP_REAL)0.43586652150845899941601945119356; -/*~~~> Gamma_i = \sum_j gamma_{i,j} */ - ros_Gamma[0]= (KPP_REAL)0.43586652150845899941601945119356; - ros_Gamma[1]= (KPP_REAL)0.24291996454816804366592249683314; - ros_Gamma[2]= (KPP_REAL)0.21851380027664058511513169485832e01; - -} /* End of Ros3 */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void Ros4() { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - L-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 4 STAGES - L-STABLE EMBEDDED ROSENBROCK METHOD OF ORDER 3 - - E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL - EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. - SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, - SPRINGER-VERLAG (1990) -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - rosMethod = RS4; -/*~~~> Name of the method */ - strcpy(ros_Name, "ROS-4"); -/*~~~> Number of stages */ - ros_S = 4; - -/*~~~> The coefficient matrices A and C are strictly lower triangular. - The lower triangular (subdiagonal) elements are stored in row-wise order: - A[0][1] = ros_A[0], A[0][2]=ros_A[1], A[1][2]=ros_A[2], etc. - The general mapping formula is: - A[i][j] = ros_A[ (i-1)*(i-2)/2 + j ] - C[i][j] = ros_C[ (i-1)*(i-2)/2 + j ] */ - - ros_A[0] = (KPP_REAL)0.2000000000000000e01; - ros_A[1] = (KPP_REAL)0.1867943637803922e01; - ros_A[2] = (KPP_REAL)0.2344449711399156; - ros_A[3] = ros_A[1]; - ros_A[4] = ros_A[2]; - ros_A[5] = (KPP_REAL)0.0; - - ros_C[0] = (KPP_REAL)-0.7137615036412310e01; - ros_C[1] = (KPP_REAL) 0.2580708087951457e01; - ros_C[2] = (KPP_REAL) 0.6515950076447975; - ros_C[3] = (KPP_REAL)-0.2137148994382534e01; - ros_C[4] = (KPP_REAL)-0.3214669691237626; - ros_C[5] = (KPP_REAL)-0.6949742501781779; - -/*~~~> Does the stage i require a new function evaluation (ros_NewF[i]=TRUE) - or does it re-use the function evaluation from stage i-1 - (ros_NewF[i]=FALSE) */ - ros_NewF[0] = TRUE; - ros_NewF[1] = TRUE; - ros_NewF[2] = TRUE; - ros_NewF[3] = FALSE; -/*~~~> M_i = Coefficients for new step solution */ - ros_M[0] = (KPP_REAL)0.2255570073418735e01; - ros_M[1] = (KPP_REAL)0.2870493262186792; - ros_M[2] = (KPP_REAL)0.4353179431840180; - ros_M[3] = (KPP_REAL)0.1093502252409163e01; -/*~~~> E_i = Coefficients for error estimator */ - ros_E[0] = (KPP_REAL)-0.2815431932141155; - ros_E[1] = (KPP_REAL)-0.7276199124938920e-01; - ros_E[2] = (KPP_REAL)-0.1082196201495311; - ros_E[3] = (KPP_REAL)-0.1093502252409163e01; - -/*~~~> ros_ELO = estimator of local order - the minimum between the - main and the embedded scheme orders plus 1 */ - ros_ELO = (KPP_REAL)4.0; -/*~~~> Y_stage_i ~ Y( T + H*Alpha_i ) */ - ros_Alpha[0] = (KPP_REAL)0.0; - ros_Alpha[1] = (KPP_REAL)0.1145640000000000e01; - ros_Alpha[2] = (KPP_REAL)0.6552168638155900; - ros_Alpha[3] = ros_Alpha[2]; -/*~~~> Gamma_i = \sum_j gamma_{i,j} */ - ros_Gamma[0] = (KPP_REAL) 0.5728200000000000; - ros_Gamma[1] = (KPP_REAL)-0.1769193891319233e01; - ros_Gamma[2] = (KPP_REAL) 0.7592633437920482; - ros_Gamma[3] = (KPP_REAL)-0.1049021087100450; - -} /* End of Ros4 */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void Rodas3() { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - --- A STIFFLY-STABLE METHOD, 4 stages, order 3 -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - rosMethod = RD3; -/*~~~> Name of the method */ - strcpy(ros_Name, "RODAS-3"); -/*~~~> Number of stages */ - ros_S = 4; - -/*~~~> The coefficient matrices A and C are strictly lower triangular. - The lower triangular (subdiagonal) elements are stored in row-wise order: - A[0][1] = ros_A[0], A[0][2]=ros_A[1], A[1][2]=ros_A[2], etc. - The general mapping formula is: - A[i][j] = ros_A[ (i-1)*(i-2)/2 + j ] - C[i][j] = ros_C[ (i-1)*(i-2)/2 + j ] */ - - ros_A[0] = (KPP_REAL)0.0; - ros_A[1] = (KPP_REAL)2.0; - ros_A[2] = (KPP_REAL)0.0; - ros_A[3] = (KPP_REAL)2.0; - ros_A[4] = (KPP_REAL)0.0; - ros_A[5] = (KPP_REAL)1.0; - - ros_C[0] = (KPP_REAL) 4.0; - ros_C[1] = (KPP_REAL) 1.0; - ros_C[2] = (KPP_REAL)-1.0; - ros_C[3] = (KPP_REAL) 1.0; - ros_C[4] = (KPP_REAL)-1.0; - ros_C[5] = -(((KPP_REAL)8.0)/((KPP_REAL)3.0)); - -/*~~~> Does the stage i require a new function evaluation (ros_NewF[i]=TRUE) - or does it re-use the function evaluation from stage i-1 - (ros_NewF[i]=FALSE) */ - ros_NewF[0] = TRUE; - ros_NewF[1] = FALSE; - ros_NewF[2] = TRUE; - ros_NewF[3] = TRUE; -/*~~~> M_i = Coefficients for new step solution */ - ros_M[0] = (KPP_REAL)2.0; - ros_M[1] = (KPP_REAL)0.0; - ros_M[2] = (KPP_REAL)1.0; - ros_M[3] = (KPP_REAL)1.0; -/*~~~> E_i = Coefficients for error estimator */ - ros_E[0] = (KPP_REAL)0.0; - ros_E[1] = (KPP_REAL)0.0; - ros_E[2] = (KPP_REAL)0.0; - ros_E[3] = (KPP_REAL)1.0; - -/*~~~> ros_ELO = estimator of local order - the minimum between the - main and the embedded scheme orders plus 1 */ - ros_ELO = (KPP_REAL)3.0; -/*~~~> Y_stage_i ~ Y( T + H*Alpha_i ) */ - ros_Alpha[0] = (KPP_REAL)0.0; - ros_Alpha[1] = (KPP_REAL)0.0; - ros_Alpha[2] = (KPP_REAL)1.0; - ros_Alpha[3] = (KPP_REAL)1.0; -/*~~~> Gamma_i = \sum_j gamma_{i,j} */ - ros_Gamma[0] = (KPP_REAL)0.5; - ros_Gamma[1] = (KPP_REAL)1.5; - ros_Gamma[2] = (KPP_REAL)0.0; - ros_Gamma[3] = (KPP_REAL)0.0; - -} /* End of Rodas3 */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void Rodas4() { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - STIFFLY-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 6 STAGES - - E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL - EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. - SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, - SPRINGER-VERLAG (1996) -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - rosMethod = RD4; -/*~~~> Name of the method */ - strcpy(ros_Name, "RODAS-4"); -/*~~~> Number of stages */ - ros_S = 6; - -/*~~~> Y_stage_i ~ Y( T + H*Alpha_i ) */ - ros_Alpha[0] = (KPP_REAL)0.000; - ros_Alpha[1] = (KPP_REAL)0.386; - ros_Alpha[2] = (KPP_REAL)0.210; - ros_Alpha[3] = (KPP_REAL)0.630; - ros_Alpha[4] = (KPP_REAL)1.000; - ros_Alpha[5] = (KPP_REAL)1.000; - -/*~~~> Gamma_i = \sum_j gamma_{i,j} */ - ros_Gamma[0] = (KPP_REAL) 0.2500000000000000; - ros_Gamma[1] = (KPP_REAL)-0.1043000000000000; - ros_Gamma[2] = (KPP_REAL) 0.1035000000000000; - ros_Gamma[3] = (KPP_REAL)-0.3620000000000023e-01; - ros_Gamma[4] = (KPP_REAL) 0.0; - ros_Gamma[5] = (KPP_REAL) 0.0; - -/*~~~> The coefficient matrices A and C are strictly lower triangular. - The lower triangular (subdiagonal) elements are stored in row-wise order: - A[0][1] = ros_A[0], A[0][2]=ros_A[1], A[1][2]=ros_A[2], etc. - The general mapping formula is: A[i][j] = ros_A[ (i-1)*(i-2)/2 + j ] - C[i][j] = ros_C[ (i-1)*(i-2)/2 + j ] */ - - ros_A[0] = (KPP_REAL) 0.1544000000000000e01; - ros_A[1] = (KPP_REAL) 0.9466785280815826; - ros_A[2] = (KPP_REAL) 0.2557011698983284; - ros_A[3] = (KPP_REAL) 0.3314825187068521e01; - ros_A[4] = (KPP_REAL) 0.2896124015972201e01; - ros_A[5] = (KPP_REAL) 0.9986419139977817; - ros_A[6] = (KPP_REAL) 0.1221224509226641e01; - ros_A[7] = (KPP_REAL) 0.6019134481288629e01; - ros_A[8] = (KPP_REAL) 0.1253708332932087e02; - ros_A[9] = (KPP_REAL)-0.6878860361058950; - ros_A[10] = ros_A[6]; - ros_A[11] = ros_A[7]; - ros_A[12] = ros_A[8]; - ros_A[13] = ros_A[9]; - ros_A[14] = (KPP_REAL)1.0; - - ros_C[0] = (KPP_REAL)-0.5668800000000000e01; - ros_C[1] = (KPP_REAL)-0.2430093356833875e01; - ros_C[2] = (KPP_REAL)-0.2063599157091915; - ros_C[3] = (KPP_REAL)-0.1073529058151375; - ros_C[4] = (KPP_REAL)-0.9594562251023355e01; - ros_C[5] = (KPP_REAL)-0.2047028614809616e02; - ros_C[6] = (KPP_REAL) 0.7496443313967647e01; - ros_C[7] = (KPP_REAL)-0.1024680431464352e02; - ros_C[8] = (KPP_REAL)-0.3399990352819905e02; - ros_C[9] = (KPP_REAL) 0.1170890893206160e02; - ros_C[10] = (KPP_REAL) 0.8083246795921522e01; - ros_C[11] = (KPP_REAL)-0.7981132988064893e01; - ros_C[12] = (KPP_REAL)-0.3152159432874371e02; - ros_C[13] = (KPP_REAL) 0.1631930543123136e02; - ros_C[14] = (KPP_REAL)-0.6058818238834054e01; - -/*~~~> M_i = Coefficients for new step solution */ - ros_M[0] = ros_A[6]; - ros_M[1] = ros_A[7]; - ros_M[2] = ros_A[8]; - ros_M[3] = ros_A[9]; - ros_M[4] = (KPP_REAL)1.0; - ros_M[5] = (KPP_REAL)1.0; - -/*~~~> E_i = Coefficients for error estimator */ - ros_E[0] = (KPP_REAL)0.0; - ros_E[1] = (KPP_REAL)0.0; - ros_E[2] = (KPP_REAL)0.0; - ros_E[3] = (KPP_REAL)0.0; - ros_E[4] = (KPP_REAL)0.0; - ros_E[5] = (KPP_REAL)1.0; - -/*~~~> Does the stage i require a new function evaluation (ros_NewF[i]=TRUE) - or does it re-use the function evaluation from stage i-1 - (ros_NewF[i]=FALSE) */ - ros_NewF[0] = TRUE; - ros_NewF[1] = TRUE; - ros_NewF[2] = TRUE; - ros_NewF[3] = TRUE; - ros_NewF[4] = TRUE; - ros_NewF[5] = TRUE; - -/*~~~> ros_ELO = estimator of local order - the minimum between the - main and the embedded scheme orders plus 1 */ - ros_ELO = (KPP_REAL)4.0; - -} /* End of Rodas4 */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void FunTemplate( KPP_REAL T, KPP_REAL Y[], KPP_REAL Ydot[] ) { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - Template for the ODE function call. - Updates the rate coefficients (and possibly the fixed species) at each call -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - -/*~~~> Local variables */ - KPP_REAL Told; - - Told = TIME; - TIME = T; - Update_SUN(); - Update_RCONST(); - Fun( Y, FIX, RCONST, Ydot ); - TIME = Told; - -} /* End of FunTemplate */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void JacTemplate( KPP_REAL T, KPP_REAL Y[], KPP_REAL Jcb[] ) { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - Template for the ODE Jacobian call. - Updates the rate coefficients (and possibly the fixed species) at each call -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - -/*~~~> Local variables */ - KPP_REAL Told; -#ifdef FULL_ALGEBRA - KPP_REAL JV[LU_NONZERO]; - int i, j; -#endif - - Told = TIME; - TIME = T; - Update_SUN(); - Update_RCONST(); -#ifdef FULL_ALGEBRA - Jac_SP(Y, FIX, RCONST, JV); - for(j=0; j Local variables */ - KPP_REAL Told; - - Told = TIME; - TIME = T; - Update_SUN(); - Update_RCONST(); - Hessian( Y, FIX, RCONST, Hes ); - TIME = Told; - -} /* End of HessTemplate */ - -/* End of INTEGRATE function */ -/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ diff --git a/int.modified_WCOPY/rosenbrock_adj.def b/int.modified_WCOPY/rosenbrock_adj.def deleted file mode 100644 index c42d76ee02bf1c1e06fdf1b91615857e47376bac..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/rosenbrock_adj.def +++ /dev/null @@ -1,23 +0,0 @@ - -#FUNCTION AGGREGATE -#JACOBIAN SPARSE_LU_ROW - -#DOUBLE ON -#INTFILE rosenbrock_adj - -#INLINE F77_GLOBAL - INTEGER Autonomous - COMMON /INTGDATA/ Autonomous - REAL*8 STEPSTART - COMMON /GDATA/ STEPSTART -#ENDINLINE - -#INLINE F77_INIT - STEPMIN=0.0001 - STEPMAX=3600. - Autonomous = 1 - STEPSTART=STEPMIN -#ENDINLINE - - - diff --git a/int.modified_WCOPY/rosenbrock_adj.f90 b/int.modified_WCOPY/rosenbrock_adj.f90 deleted file mode 100644 index b610bcb91b34f7b57c0db2a1718454484f10ea23..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/rosenbrock_adj.f90 +++ /dev/null @@ -1,2575 +0,0 @@ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! -! Discrete adjoints of Rosenbrock, ! -! for several Rosenbrock methods: ! -! * Ros2 ! -! * Ros3 ! -! * Ros4 ! -! * Rodas3 ! -! * Rodas4 ! -! By default the code employs the KPP sparse linear algebra routines ! -! Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK) ! -! ! -! (C) Adrian Sandu, August 2004 ! -! Virginia Polytechnic Institute and State University ! -! Contact: sandu@cs.vt.edu ! -! Revised by Philipp Miehe and Adrian Sandu, May 2006 ! -! This implementation is part of KPP - the Kinetic PreProcessor ! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! - -MODULE KPP_ROOT_Integrator - - USE KPP_ROOT_Precision - USE KPP_ROOT_Parameters - USE KPP_ROOT_Global - USE KPP_ROOT_LinearAlgebra - USE KPP_ROOT_Rates - USE KPP_ROOT_Function - USE KPP_ROOT_Jacobian - USE KPP_ROOT_Hessian - USE KPP_ROOT_Util - - IMPLICIT NONE - PUBLIC - SAVE - -!~~~> Statistics on the work performed by the Rosenbrock method - INTEGER, PARAMETER :: Nfun=1, Njac=2, Nstp=3, Nacc=4, & - Nrej=5, Ndec=6, Nsol=7, Nsng=8, & - Ntexit=1, Nhexit=2, Nhnew = 3 - - -CONTAINS ! Routines in the module KPP_ROOT_Integrator - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE INTEGRATE_ADJ( NADJ, Y, Lambda, TIN, TOUT, & - ATOL_adj, RTOL_adj, & - ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - -!~~~> Y - Concentrations - KPP_REAL :: Y(NVAR) -!~~~> NADJ - No. of cost functionals for which adjoints -! are evaluated simultaneously -! If single cost functional is considered (like in -! most applications) simply set NADJ = 1 - INTEGER NADJ -!~~~> Lambda - Sensitivities w.r.t. concentrations -! Note: Lambda (1:NVAR,j) contains sensitivities of -! the j-th cost functional w.r.t. Y(1:NVAR), j=1...NADJ - KPP_REAL :: Lambda(NVAR,NADJ) - KPP_REAL, INTENT(IN) :: TIN ! TIN - Start Time - KPP_REAL, INTENT(IN) :: TOUT ! TOUT - End Time -!~~~> Tolerances for adjoint calculations -! (used only for full continuous adjoint) - KPP_REAL, INTENT(IN) :: ATOL_adj(NVAR,NADJ), RTOL_adj(NVAR,NADJ) -!~~~> Optional input parameters and statistics - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - KPP_REAL, INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - KPP_REAL, INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - - KPP_REAL :: RCNTRL(20), RSTATUS(20) - INTEGER :: ICNTRL(20), ISTATUS(20), IERR - - INTEGER, SAVE :: Ntotal - - - ICNTRL(1:20) = 0 - RCNTRL(1:20) = 0.0_dp - ISTATUS(1:20) = 0 - RSTATUS(1:20) = 0.0_dp - - -!~~~> fine-tune the integrator: -! ICNTRL(1) = 0 ! 0 = non-autonomous, 1 = autonomous -! ICNTRL(2) = 1 ! 0 = scalar, 1 = vector tolerances -! RCNTRL(3) = STEPMIN ! starting step -! ICNTRL(3) = 5 ! choice of the method for forward integration -! ICNTRL(6) = 1 ! choice of the method for continuous adjoint -! ICNTRL(7) = 2 ! 1=none, 2=discrete, 3=full continuous, 4=simplified continuous adjoint -! ICNTRL(8) = 1 ! Save fwd LU factorization: 0 = *don't* save, 1 = save - - - ! if optional parameters are given, and if they are >=0, then they overwrite default settings - IF (PRESENT(ICNTRL_U)) THEN - WHERE(ICNTRL_U(:) >= 0) ICNTRL(:) = ICNTRL_U(:) - END IF - IF (PRESENT(RCNTRL_U)) THEN - WHERE(RCNTRL_U(:) >= 0) RCNTRL(:) = RCNTRL_U(:) - END IF - - - CALL RosenbrockADJ(Y, NADJ, Lambda, & - TIN, TOUT, & - ATOL, RTOL, ATOL_adj, RTOL_adj, & - RCNTRL, ICNTRL, RSTATUS, ISTATUS, IERR) - - -!~~~> Debug option: show number of steps -! Ntotal = Ntotal + ISTATUS(Nstp) -! WRITE(6,777) ISTATUS(Nstp),Ntotal,VAR(ind_O3),VAR(ind_NO2) -!777 FORMAT('NSTEPS=',I6,' (',I6,') O3=',E24.14,' NO2=',E24.14) - - IF (IERR < 0) THEN - print *,'RosenbrockADJ: Unsucessful step at T=', & - TIN,' (IERR=',IERR,')' - END IF - - STEPMIN = RSTATUS(Nhexit) - ! if optional parameters are given for output - ! copy to them to return information - IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(:) - IF (PRESENT(RSTATUS_U)) RSTATUS_U(:) = RSTATUS(:) - -END SUBROUTINE INTEGRATE_ADJ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE RosenbrockADJ( Y, NADJ, Lambda, & - Tstart, Tend, & - AbsTol, RelTol, AbsTol_adj, RelTol_adj, & - RCNTRL, ICNTRL, RSTATUS, ISTATUS, IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! ADJ = Adjoint of the Tangent Linear Model of a Rosenbrock Method -! -! Solves the system y'=F(t,y) using a RosenbrockADJ method defined by: -! -! G = 1/(H*gamma(1)) - Jac(t0,Y0) -! T_i = t0 + Alpha(i)*H -! Y_i = Y0 + \sum_{j=1}^{i-1} A(i,j)*K_j -! G * K_i = Fun( T_i, Y_i ) + \sum_{j=1}^S C(i,j)/H * K_j + -! gamma(i)*dF/dT(t0, Y0) -! Y1 = Y0 + \sum_{j=1}^S M(j)*K_j -! -! For details on RosenbrockADJ methods and their implementation consult: -! E. Hairer and G. Wanner -! "Solving ODEs II. Stiff and differential-algebraic problems". -! Springer series in computational mathematics, Springer-Verlag, 1996. -! The codes contained in the book inspired this implementation. -! -! (C) Adrian Sandu, August 2004 -! Virginia Polytechnic Institute and State University -! Contact: sandu@cs.vt.edu -! Revised by Philipp Miehe and Adrian Sandu, May 2006 -! This implementation is part of KPP - the Kinetic PreProcessor -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT ARGUMENTS: -! -!- Y(NVAR) = vector of initial conditions (at T=Tstart) -! NADJ -> dimension of linearized system, -! i.e. the number of sensitivity coefficients -!- Lambda(NVAR,NADJ) -> vector of initial sensitivity conditions (at T=Tstart) -!- [Tstart,Tend] = time range of integration -! (if Tstart>Tend the integration is performed backwards in time) -!- RelTol, AbsTol = user precribed accuracy -!- SUBROUTINE Fun( T, Y, Ydot ) = ODE function, -! returns Ydot = Y' = F(T,Y) -!- SUBROUTINE Jac( T, Y, Jcb ) = Jacobian of the ODE function, -! returns Jcb = dF/dY -!- ICNTRL(1:10) = integer inputs parameters -!- RCNTRL(1:10) = real inputs parameters -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT ARGUMENTS: -! -!- Y(NVAR) -> vector of final states (at T->Tend) -!- Lambda(NVAR,NADJ) -> vector of final sensitivities (at T=Tend) -!- ICNTRL(11:20) -> integer output parameters -!- RCNTRL(11:20) -> real output parameters -!- IERR -> job status upon return -! - succes (positive value) or failure (negative value) - -! = 1 : Success -! = -1 : Improper value for maximal no of steps -! = -2 : Selected RosenbrockADJ method not implemented -! = -3 : Hmin/Hmax/Hstart must be positive -! = -4 : FacMin/FacMax/FacRej must be positive -! = -5 : Improper tolerance values -! = -6 : No of steps exceeds maximum bound -! = -7 : Step size too small -! = -8 : Matrix is repeatedly singular -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT PARAMETERS: -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -! ICNTRL(1) = 1: F = F(y) Independent of T (AUTONOMOUS) -! = 0: F = F(t,y) Depends on T (NON-AUTONOMOUS) -! -! ICNTRL(2) = 0: AbsTol, RelTol are NVAR-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ICNTRL(3) -> selection of a particular Rosenbrock method -! = 0 : default method is Rodas3 -! = 1 : method is Ros2 -! = 2 : method is Ros3 -! = 3 : method is Ros4 -! = 4 : method is Rodas3 -! = 5: method is Rodas4 -! -! ICNTRL(4) -> maximum number of integration steps -! For ICNTRL(4)=0) the default value of BUFSIZE is used -! -! ICNTRL(6) -> selection of a particular Rosenbrock method for the -! continuous adjoint integration - for cts adjoint it -! can be different than the forward method ICNTRL(3) -! Note 1: to avoid interpolation errors (which can be huge!) -! it is recommended to use only ICNTRL(7) = 2 or 4 -! Note 2: the performance of the full continuous adjoint -! strongly depends on the forward solution accuracy Abs/RelTol -! -! ICNTRL(7) -> Type of adjoint algorithm -! = 0 : default is discrete adjoint ( of method ICNTRL(3) ) -! = 1 : no adjoint -! = 2 : discrete adjoint ( of method ICNTRL(3) ) -! = 3 : fully adaptive continuous adjoint ( with method ICNTRL(6) ) -! = 4 : simplified continuous adjoint ( with method ICNTRL(6) ) -! -! ICNTRL(8) -> checkpointing the LU factorization at each step: -! ICNTRL(8)=0 : do *not* save LU factorization (the default) -! ICNTRL(8)=1 : save LU factorization -! Note: if ICNTRL(7)=1 the LU factorization is *not* saved -! -!~~~> Real input parameters: -! -! RCNTRL(1) -> Hmin, lower bound for the integration step size -! It is strongly recommended to keep Hmin = ZERO -! -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! -! RCNTRL(3) -> Hstart, starting value for the integration step size -! -! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! -! RCNTRL(5) -> FacMax, upper bound on step increase factor (default=6) -! -! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! -! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -! -! RCNTRL(8) -> ThetaMin. If Newton convergence rate smaller -! than ThetaMin the Jacobian is not recomputed; -! (default=0.001) -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT PARAMETERS: -! -! Note: each call to RosenbrockADJ adds the corrent no. of fcn calls -! to previous value of ISTATUS(1), and similar for the other params. -! Set ISTATUS(1:10) = 0 before call to avoid this accumulation. -! -! ISTATUS(1) = No. of function calls -! ISTATUS(2) = No. of jacobian calls -! ISTATUS(3) = No. of steps -! ISTATUS(4) = No. of accepted steps -! ISTATUS(5) = No. of rejected steps (except at the beginning) -! ISTATUS(6) = No. of LU decompositions -! ISTATUS(7) = No. of forward/backward substitutions -! ISTATUS(8) = No. of singular matrix decompositions -! -! RSTATUS(1) -> Texit, the time corresponding to the -! computed Y upon return -! RSTATUS(2) -> Hexit, last accepted step before exit -! For multiple restarts, use Hexit as Hstart in the following run -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - -!~~~> Arguments - KPP_REAL, INTENT(INOUT) :: Y(NVAR) - INTEGER, INTENT(IN) :: NADJ - KPP_REAL, INTENT(INOUT) :: Lambda(NVAR,NADJ) - KPP_REAL, INTENT(IN) :: Tstart,Tend - KPP_REAL, INTENT(IN) :: AbsTol(NVAR),RelTol(NVAR) - KPP_REAL, INTENT(IN) :: AbsTol_adj(NVAR,NADJ), RelTol_adj(NVAR,NADJ) - INTEGER, INTENT(IN) :: ICNTRL(20) - KPP_REAL, INTENT(IN) :: RCNTRL(20) - INTEGER, INTENT(INOUT) :: ISTATUS(20) - KPP_REAL, INTENT(INOUT) :: RSTATUS(20) - INTEGER, INTENT(OUT) :: IERR -!~~~> Parameters of the Rosenbrock method, up to 6 stages - INTEGER :: ros_S, rosMethod - INTEGER, PARAMETER :: RS2=1, RS3=2, RS4=3, RD3=4, RD4=5 - KPP_REAL :: ros_A(15), ros_C(15), ros_M(6), ros_E(6), & - ros_Alpha(6), ros_Gamma(6), ros_ELO - LOGICAL :: ros_NewF(6) - CHARACTER(LEN=12) :: ros_Name -!~~~> Types of Adjoints Implemented - INTEGER, PARAMETER :: Adj_none = 1, Adj_discrete = 2, & - Adj_continuous = 3, Adj_simple_continuous = 4 -!~~~> Checkpoints in memory - INTEGER, PARAMETER :: bufsize = 200000 - INTEGER :: stack_ptr = 0 ! last written entry - KPP_REAL, DIMENSION(:), POINTER :: chk_H, chk_T - KPP_REAL, DIMENSION(:,:), POINTER :: chk_Y, chk_K, chk_J - KPP_REAL, DIMENSION(:,:), POINTER :: chk_dY, chk_d2Y -!~~~> Local variables - KPP_REAL :: Roundoff, FacMin, FacMax, FacRej, FacSafe - KPP_REAL :: Hmin, Hmax, Hstart - KPP_REAL :: Texit - INTEGER :: i, UplimTol, Max_no_steps - INTEGER :: AdjointType, CadjMethod - LOGICAL :: Autonomous, VectorTol, SaveLU -!~~~> Parameters - KPP_REAL, PARAMETER :: ZERO = 0.0d0, ONE = 1.0d0 - KPP_REAL, PARAMETER :: DeltaMin = 1.0d-5 - -!~~~> Initialize statistics - ISTATUS(1:20) = 0 - RSTATUS(1:20) = ZERO - -!~~~> Autonomous or time dependent ODE. Default is time dependent. - Autonomous = .NOT.(ICNTRL(1) == 0) - -!~~~> For Scalar tolerances (ICNTRL(2).NE.0) the code uses AbsTol(1) and RelTol(1) -! For Vector tolerances (ICNTRL(2) == 0) the code uses AbsTol(1:NVAR) and RelTol(1:NVAR) - IF (ICNTRL(2) == 0) THEN - VectorTol = .TRUE. - UplimTol = NVAR - ELSE - VectorTol = .FALSE. - UplimTol = 1 - END IF - -!~~~> Initialize the particular Rosenbrock method selected - SELECT CASE (ICNTRL(3)) - CASE (1) - CALL Ros2 - CASE (2) - CALL Ros3 - CASE (3) - CALL Ros4 - CASE (0,4) - CALL Rodas3 - CASE (5) - CALL Rodas4 - CASE DEFAULT - PRINT * , 'Unknown Rosenbrock method: ICNTRL(3)=',ICNTRL(3) - CALL ros_ErrorMsg(-2,Tstart,ZERO,IERR) - RETURN - END SELECT - -!~~~> The maximum number of steps admitted - IF (ICNTRL(4) == 0) THEN - Max_no_steps = bufsize - 1 - ELSEIF (Max_no_steps > 0) THEN - Max_no_steps=ICNTRL(4) - ELSE - PRINT * ,'User-selected max no. of steps: ICNTRL(4)=',ICNTRL(4) - CALL ros_ErrorMsg(-1,Tstart,ZERO,IERR) - RETURN - END IF - -!~~~> The particular Rosenbrock method chosen for integrating the cts adjoint - IF (ICNTRL(6) == 0) THEN - CadjMethod = 4 - ELSEIF ( (ICNTRL(6) >= 1).AND.(ICNTRL(6) <= 5) ) THEN - CadjMethod = ICNTRL(6) - ELSE - PRINT * , 'Unknown CADJ Rosenbrock method: ICNTRL(6)=', CadjMethod - CALL ros_ErrorMsg(-2,Tstart,ZERO,IERR) - RETURN - END IF - -!~~~> Discrete or continuous adjoint formulation - IF ( ICNTRL(7) == 0 ) THEN - AdjointType = Adj_discrete - ELSEIF ( (ICNTRL(7) >= 1).AND.(ICNTRL(7) <= 4) ) THEN - AdjointType = ICNTRL(7) - ELSE - PRINT * , 'User-selected adjoint type: ICNTRL(7)=', AdjointType - CALL ros_ErrorMsg(-9,Tstart,ZERO,IERR) - RETURN - END IF - -!~~~> Save or not the forward LU factorization - SaveLU = (ICNTRL(8) /= 0) - - -!~~~> Unit roundoff (1+Roundoff>1) - Roundoff = WLAMCH('E') - -!~~~> Lower bound on the step size: (positive value) - IF (RCNTRL(1) == ZERO) THEN - Hmin = ZERO - ELSEIF (RCNTRL(1) > ZERO) THEN - Hmin = RCNTRL(1) - ELSE - PRINT * , 'User-selected Hmin: RCNTRL(1)=', RCNTRL(1) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Upper bound on the step size: (positive value) - IF (RCNTRL(2) == ZERO) THEN - Hmax = ABS(Tend-Tstart) - ELSEIF (RCNTRL(2) > ZERO) THEN - Hmax = MIN(ABS(RCNTRL(2)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hmax: RCNTRL(2)=', RCNTRL(2) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Starting step size: (positive value) - IF (RCNTRL(3) == ZERO) THEN - Hstart = MAX(Hmin,DeltaMin) - ELSEIF (RCNTRL(3) > ZERO) THEN - Hstart = MIN(ABS(RCNTRL(3)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hstart: RCNTRL(3)=', RCNTRL(3) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Step size can be changed s.t. FacMin < Hnew/Hold < FacMax - IF (RCNTRL(4) == ZERO) THEN - FacMin = 0.2d0 - ELSEIF (RCNTRL(4) > ZERO) THEN - FacMin = RCNTRL(4) - ELSE - PRINT * , 'User-selected FacMin: RCNTRL(4)=', RCNTRL(4) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF - IF (RCNTRL(5) == ZERO) THEN - FacMax = 6.0d0 - ELSEIF (RCNTRL(5) > ZERO) THEN - FacMax = RCNTRL(5) - ELSE - PRINT * , 'User-selected FacMax: RCNTRL(5)=', RCNTRL(5) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacRej: Factor to decrease step after 2 succesive rejections - IF (RCNTRL(6) == ZERO) THEN - FacRej = 0.1d0 - ELSEIF (RCNTRL(6) > ZERO) THEN - FacRej = RCNTRL(6) - ELSE - PRINT * , 'User-selected FacRej: RCNTRL(6)=', RCNTRL(6) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacSafe: Safety Factor in the computation of new step size - IF (RCNTRL(7) == ZERO) THEN - FacSafe = 0.9d0 - ELSEIF (RCNTRL(7) > ZERO) THEN - FacSafe = RCNTRL(7) - ELSE - PRINT * , 'User-selected FacSafe: RCNTRL(7)=', RCNTRL(7) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Check if tolerances are reasonable - DO i=1,UplimTol - IF ( (AbsTol(i) <= ZERO) .OR. (RelTol(i) <= 10.d0*Roundoff) & - .OR. (RelTol(i) >= 1.0d0) ) THEN - PRINT * , ' AbsTol(',i,') = ',AbsTol(i) - PRINT * , ' RelTol(',i,') = ',RelTol(i) - CALL ros_ErrorMsg(-5,Tstart,ZERO,IERR) - RETURN - END IF - END DO - - -!~~~> Allocate checkpoint space or open checkpoint files - IF (AdjointType == Adj_discrete) THEN - CALL ros_AllocateDBuffers( ros_S ) - ELSEIF ( (AdjointType == Adj_continuous).OR. & - (AdjointType == Adj_simple_continuous) ) THEN - CALL ros_AllocateCBuffers - END IF - -!~~~> CALL Forward Rosenbrock method - CALL ros_FwdInt(Y,Tstart,Tend,Texit, & - AbsTol, RelTol, & -! Error indicator - IERR) - - PRINT*,'FORWARD STATISTICS' - PRINT*,'Step=',Nstp,' Acc=',Nacc, & - ' Rej=',Nrej, ' Singular=',Nsng - -!~~~> If Forward integration failed return - IF (IERR<0) RETURN - -!~~~> Initialize the particular Rosenbrock method for continuous adjoint - IF ( (AdjointType == Adj_continuous).OR. & - (AdjointType == Adj_simple_continuous) ) THEN - SELECT CASE (CadjMethod) - CASE (1) - CALL Ros2 - CASE (2) - CALL Ros3 - CASE (3) - CALL Ros4 - CASE (4) - CALL Rodas3 - CASE (5) - CALL Rodas4 - CASE DEFAULT - PRINT * , 'Unknown Rosenbrock method: ICNTRL(3)=', ICNTRL(3) - CALL ros_ErrorMsg(-2,Tstart,ZERO,IERR) - RETURN - END SELECT - END IF - - SELECT CASE (AdjointType) - CASE (Adj_discrete) - CALL ros_DadjInt ( & - NADJ, Lambda, & - Tstart, Tend, Texit, & - IERR ) - CASE (Adj_continuous) - CALL ros_CadjInt ( & - NADJ, Lambda, & - Tend, Tstart, Texit, & - AbsTol_adj, RelTol_adj, & - IERR ) - CASE (Adj_simple_continuous) - CALL ros_SimpleCadjInt ( & - NADJ, Lambda, & - Tstart, Tend, Texit, & - IERR ) - END SELECT ! AdjointType - - PRINT*,'ADJOINT STATISTICS' - PRINT*,'Step=',Nstp,' Acc=',Nacc, & - ' Rej=',Nrej, ' Singular=',Nsng - -!~~~> Free checkpoint space or close checkpoint files - IF (AdjointType == Adj_discrete) THEN - CALL ros_FreeDBuffers - ELSEIF ( (AdjointType == Adj_continuous) .OR. & - (AdjointType == Adj_simple_continuous) ) THEN - CALL ros_FreeCBuffers - END IF - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -CONTAINS ! Procedures internal to RosenbrockADJ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_AllocateDBuffers( S ) -!~~~> Allocate buffer space for discrete adjoint -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - INTEGER :: i, S - - ALLOCATE( chk_H(bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer H'; STOP - END IF - ALLOCATE( chk_T(bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer T'; STOP - END IF - ALLOCATE( chk_Y(NVAR*S,bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer Y'; STOP - END IF - ALLOCATE( chk_K(NVAR*S,bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer K'; STOP - END IF - IF (SaveLU) THEN -#ifdef FULL_ALGEBRA - ALLOCATE( chk_J(NVAR*NVAR,bufsize), STAT=i ) -#else - ALLOCATE( chk_J(LU_NONZERO,bufsize), STAT=i ) -#endif - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer J'; STOP - END IF - END IF - - END SUBROUTINE ros_AllocateDBuffers - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_FreeDBuffers -!~~~> Dallocate buffer space for discrete adjoint -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - INTEGER :: i - - DEALLOCATE( chk_H, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer H'; STOP - END IF - DEALLOCATE( chk_T, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer T'; STOP - END IF - DEALLOCATE( chk_Y, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer Y'; STOP - END IF - DEALLOCATE( chk_K, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer K'; STOP - END IF - IF (SaveLU) THEN - DEALLOCATE( chk_J, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer J'; STOP - END IF - END IF - - END SUBROUTINE ros_FreeDBuffers - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_AllocateCBuffers -!~~~> Allocate buffer space for continuous adjoint -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - INTEGER :: i - - ALLOCATE( chk_H(bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer H'; STOP - END IF - ALLOCATE( chk_T(bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer T'; STOP - END IF - ALLOCATE( chk_Y(NVAR,bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer Y'; STOP - END IF - ALLOCATE( chk_dY(NVAR,bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer dY'; STOP - END IF - ALLOCATE( chk_d2Y(NVAR,bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer d2Y'; STOP - END IF - - END SUBROUTINE ros_AllocateCBuffers - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_FreeCBuffers -!~~~> Dallocate buffer space for continuous adjoint -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - INTEGER :: i - - DEALLOCATE( chk_H, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer H'; STOP - END IF - DEALLOCATE( chk_T, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer T'; STOP - END IF - DEALLOCATE( chk_Y, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer Y'; STOP - END IF - DEALLOCATE( chk_dY, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer dY'; STOP - END IF - DEALLOCATE( chk_d2Y, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer d2Y'; STOP - END IF - - END SUBROUTINE ros_FreeCBuffers - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_DPush( S, T, H, Ystage, K, E, P ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Saves the next trajectory snapshot for discrete adjoints -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - INTEGER :: S ! no of stages - KPP_REAL :: T, H, Ystage(NVAR*S), K(NVAR*S) - INTEGER :: P(NVAR) -#ifdef FULL_ALGEBRA - KPP_REAL :: E(NVAR,NVAR) -#else - KPP_REAL :: E(LU_NONZERO) -#endif - - stack_ptr = stack_ptr + 1 - IF ( stack_ptr > bufsize ) THEN - PRINT*,'Push failed: buffer overflow' - STOP - END IF - chk_H( stack_ptr ) = H - chk_T( stack_ptr ) = T - !CALL WCOPY(NVAR*S,Ystage,1,chk_Y(1,stack_ptr),1) - !CALL WCOPY(NVAR*S,K,1,chk_K(1,stack_ptr),1) - chk_Y(1:NVAR*S,stack_ptr) = Ystage(1:NVAR*S) - chk_K(1:NVAR*S,stack_ptr) = K(1:NVAR*S) - IF (SaveLU) THEN -#ifdef FULL_ALGEBRA - chk_J(1:NVAR,1:NVAR,stack_ptr) = E(1:NVAR,1:NVAR) - chk_P(1:NVAR,stack_ptr) = P(1:NVAR) -#else - chk_J(1:LU_NONZERO,stack_ptr) = E(1:LU_NONZERO) -#endif - END IF - - END SUBROUTINE ros_DPush - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_DPop( S, T, H, Ystage, K, E, P ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Retrieves the next trajectory snapshot for discrete adjoints -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - INTEGER :: S ! no of stages - KPP_REAL :: T, H, Ystage(NVAR*S), K(NVAR*S) - INTEGER :: P(NVAR) -#ifdef FULL_ALGEBRA - KPP_REAL :: E(NVAR,NVAR) -#else - KPP_REAL :: E(LU_NONZERO) -#endif - - IF ( stack_ptr <= 0 ) THEN - PRINT*,'Pop failed: empty buffer' - STOP - END IF - H = chk_H( stack_ptr ) - T = chk_T( stack_ptr ) - !CALL WCOPY(NVAR*S,chk_Y(1,stack_ptr),1,Ystage,1) - !CALL WCOPY(NVAR*S,chk_K(1,stack_ptr),1,K,1) - Ystage(1:NVAR*S) = chk_Y(1:NVAR*S,stack_ptr) - K(1:NVAR*S) = chk_K(1:NVAR*S,stack_ptr) - !CALL WCOPY(LU_NONZERO,chk_J(1,stack_ptr),1,Jcb,1) - IF (SaveLU) THEN -#ifdef FULL_ALGEBRA - E(1:NVAR,1:NVAR) = chk_J(1:NVAR,1:NVAR,stack_ptr) - P(1:NVAR) = chk_P(1:NVAR,stack_ptr) -#else - E(1:LU_NONZERO) = chk_J(1:LU_NONZERO,stack_ptr) -#endif - END IF - - stack_ptr = stack_ptr - 1 - - END SUBROUTINE ros_DPop - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_CPush( T, H, Y, dY, d2Y ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Saves the next trajectory snapshot for discrete adjoints -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - KPP_REAL :: T, H, Y(NVAR), dY(NVAR), d2Y(NVAR) - - stack_ptr = stack_ptr + 1 - IF ( stack_ptr > bufsize ) THEN - PRINT*,'Push failed: buffer overflow' - STOP - END IF - chk_H( stack_ptr ) = H - chk_T( stack_ptr ) = T - !CALL WCOPY(NVAR,Y,1,chk_Y(1,stack_ptr),1) - !CALL WCOPY(NVAR,dY,1,chk_dY(1,stack_ptr),1) - !CALL WCOPY(NVAR,d2Y,1,chk_d2Y(1,stack_ptr),1) - chk_Y(1:NVAR,stack_ptr) = Y(1:NVAR) - chk_dY(1:NVAR,stack_ptr) = dY(1:NVAR) - chk_d2Y(1:NVAR,stack_ptr) = d2Y(1:NVAR) - END SUBROUTINE ros_CPush - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_CPop( T, H, Y, dY, d2Y ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Retrieves the next trajectory snapshot for discrete adjoints -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - KPP_REAL :: T, H, Y(NVAR), dY(NVAR), d2Y(NVAR) - - IF ( stack_ptr <= 0 ) THEN - PRINT*,'Pop failed: empty buffer' - STOP - END IF - H = chk_H( stack_ptr ) - T = chk_T( stack_ptr ) - !CALL WCOPY(NVAR,chk_Y(1,stack_ptr),1,Y,1) - !CALL WCOPY(NVAR,chk_dY(1,stack_ptr),1,dY,1) - !CALL WCOPY(NVAR,chk_d2Y(1,stack_ptr),1,d2Y,1) - Y(1:NVAR) = chk_Y(1:NVAR,stack_ptr) - dY(1:NVAR) = chk_dY(1:NVAR,stack_ptr) - d2Y(1:NVAR) = chk_d2Y(1:NVAR,stack_ptr) - - stack_ptr = stack_ptr - 1 - - END SUBROUTINE ros_CPop - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_ErrorMsg(Code,T,H,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - KPP_REAL, INTENT(IN) :: T, H - INTEGER, INTENT(IN) :: Code - INTEGER, INTENT(OUT) :: IERR - - IERR = Code - PRINT * , & - 'Forced exit from RosenbrockADJ due to the following error:' - - SELECT CASE (Code) - CASE (-1) - PRINT * , '--> Improper value for maximal no of steps' - CASE (-2) - PRINT * , '--> Selected RosenbrockADJ method not implemented' - CASE (-3) - PRINT * , '--> Hmin/Hmax/Hstart must be positive' - CASE (-4) - PRINT * , '--> FacMin/FacMax/FacRej must be positive' - CASE (-5) - PRINT * , '--> Improper tolerance values' - CASE (-6) - PRINT * , '--> No of steps exceeds maximum buffer bound' - CASE (-7) - PRINT * , '--> Step size too small: T + 10*H = T', & - ' or H < Roundoff' - CASE (-8) - PRINT * , '--> Matrix is repeatedly singular' - CASE (-9) - PRINT * , '--> Improper type of adjoint selected' - CASE DEFAULT - PRINT *, 'Unknown Error code: ', Code - END SELECT - - PRINT *, "T=", T, "and H=", H - - END SUBROUTINE ros_ErrorMsg - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_FwdInt (Y, & - Tstart, Tend, T, & - AbsTol, RelTol, & -!~~~> Error indicator - IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the implementation of a generic RosenbrockADJ method -! defined by ros_S (no of stages) -! and its coefficients ros_{A,C,M,E,Alpha,Gamma} -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - -!~~~> Input: the initial condition at Tstart; Output: the solution at T - KPP_REAL, INTENT(INOUT) :: Y(NVAR) -!~~~> Input: integration interval - KPP_REAL, INTENT(IN) :: Tstart,Tend -!~~~> Output: time at which the solution is returned (T=Tend if success) - KPP_REAL, INTENT(OUT) :: T -!~~~> Input: tolerances - KPP_REAL, INTENT(IN) :: AbsTol(NVAR), RelTol(NVAR) -!~~~> Output: Error indicator - INTEGER, INTENT(OUT) :: IERR -! ~~~~ Local variables - KPP_REAL :: Ynew(NVAR), Fcn0(NVAR), Fcn(NVAR) - KPP_REAL :: K(NVAR*ros_S), dFdT(NVAR) - KPP_REAL, DIMENSION(:), POINTER :: Ystage -#ifdef FULL_ALGEBRA - KPP_REAL :: Jac0(NVAR,NVAR), Ghimj(NVAR,NVAR) -#else - KPP_REAL :: Jac0(LU_NONZERO), Ghimj(LU_NONZERO) -#endif - KPP_REAL :: H, Hnew, HC, HG, Fac, Tau - KPP_REAL :: Err, Yerr(NVAR) - INTEGER :: Pivot(NVAR), Direction, ioffset, i, j, istage - LOGICAL :: RejectLastH, RejectMoreH, Singular -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~> Allocate stage vector buffer if needed - IF (AdjointType == Adj_discrete) THEN - ALLOCATE(Ystage(NVAR*ros_S), STAT=i) - ! Uninitialized Ystage may lead to NaN on some compilers - Ystage = 0.0d0 - IF (i/=0) THEN - PRINT*,'Allocation of Ystage failed' - STOP - END IF - END IF - -!~~~> Initial preparations - T = Tstart - RSTATUS(Nhexit) = ZERO - H = MIN( MAX(ABS(Hmin),ABS(Hstart)) , ABS(Hmax) ) - IF (ABS(H) <= 10.0_dp*Roundoff) H = DeltaMin - - IF (Tend >= Tstart) THEN - Direction = +1 - ELSE - Direction = -1 - END IF - H = Direction*H - - RejectLastH=.FALSE. - RejectMoreH=.FALSE. - -!~~~> Time loop begins below - -TimeLoop: DO WHILE ( (Direction > 0).AND.((T-Tend)+Roundoff <= ZERO) & - .OR. (Direction < 0).AND.((Tend-T)+Roundoff <= ZERO) ) - - IF ( ISTATUS(Nstp) > Max_no_steps ) THEN ! Too many steps - CALL ros_ErrorMsg(-6,T,H,IERR) - RETURN - END IF - IF ( ((T+0.1d0*H) == T).OR.(H <= Roundoff) ) THEN ! Step size too small - CALL ros_ErrorMsg(-7,T,H,IERR) - RETURN - END IF - -!~~~> Limit H if necessary to avoid going beyond Tend - RSTATUS(Nhexit) = H - H = MIN(H,ABS(Tend-T)) - -!~~~> Compute the function at current time - CALL Fun_Template(T,Y,Fcn0) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - -!~~~> Compute the function derivative with respect to T - IF (.NOT.Autonomous) THEN - CALL ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) - END IF - -!~~~> Compute the Jacobian at current time - CALL Jac_Template(T,Y,Jac0) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - -!~~~> Repeat step calculation until current step accepted -UntilAccepted: DO - - CALL ros_PrepareMatrix(H,Direction,ros_Gamma(1), & - Jac0,Ghimj,Pivot,Singular) - IF (Singular) THEN ! More than 5 consecutive failed decompositions - CALL ros_ErrorMsg(-8,T,H,IERR) - RETURN - END IF - -!~~~> Compute the stages -Stage: DO istage = 1, ros_S - - ! Current istage offset. Current istage vector is K(ioffset+1:ioffset+NVAR) - ioffset = NVAR*(istage-1) - - ! For the 1st istage the function has been computed previously - IF ( istage == 1 ) THEN - CALL WCOPY(NVAR,Fcn0,1,Fcn,1) - IF (AdjointType == Adj_discrete) THEN ! Save stage solution - ! CALL WCOPY(NVAR,Y,1,Ystage(1),1) - Ystage(1:NVAR) = Y(1:NVAR) - CALL WCOPY(NVAR,Y,1,Ynew,1) - END IF - ! istage>1 and a new function evaluation is needed at the current istage - ELSEIF ( ros_NewF(istage) ) THEN - CALL WCOPY(NVAR,Y,1,Ynew,1) - DO j = 1, istage-1 - CALL WAXPY(NVAR,ros_A((istage-1)*(istage-2)/2+j), & - K(NVAR*(j-1)+1:NVAR*j),1,Ynew,1) - END DO - Tau = T + ros_Alpha(istage)*Direction*H - CALL Fun_Template(Tau,Ynew,Fcn) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - END IF ! if istage == 1 elseif ros_NewF(istage) - ! save stage solution every time even if ynew is not updated - IF ( ( istage > 1 ).AND.(AdjointType == Adj_discrete) ) THEN - ! CALL WCOPY(NVAR,Ynew,1,Ystage(ioffset+1:ioffset+NVAR),1) - Ystage(ioffset+1:ioffset+NVAR) = Ynew(1:NVAR) - END IF - !CALL WCOPY(NVAR,Fcn,1,K(ioffset+1:ioffset+NVAR),1) - K(ioffset+1:ioffset+NVAR) = Fcn(1:NVAR) - DO j = 1, istage-1 - HC = ros_C((istage-1)*(istage-2)/2+j)/(Direction*H) - CALL WAXPY(NVAR,HC,K(NVAR*(j-1)+1:NVAR*j),1,K(ioffset+1:ioffset+NVAR),1) - END DO - IF ((.NOT. Autonomous).AND.(ros_Gamma(istage).NE.ZERO)) THEN - HG = Direction*H*ros_Gamma(istage) - CALL WAXPY(NVAR,HG,dFdT,1,K(ioffset+1:ioffset+NVAR),1) - END IF - CALL ros_Solve('N', Ghimj, Pivot, K(ioffset+1:ioffset+NVAR)) - - END DO Stage - - -!~~~> Compute the new solution - CALL WCOPY(NVAR,Y,1,Ynew,1) - DO j=1,ros_S - CALL WAXPY(NVAR,ros_M(j),K(NVAR*(j-1)+1:NVAR*j),1,Ynew,1) - END DO - -!~~~> Compute the error estimation - CALL WSCAL(NVAR,ZERO,Yerr,1) - DO j=1,ros_S - CALL WAXPY(NVAR,ros_E(j),K(NVAR*(j-1)+1:NVAR*j),1,Yerr,1) - END DO - Err = ros_ErrorNorm ( Y, Ynew, Yerr, AbsTol, RelTol, VectorTol ) - -!~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax - Fac = MIN(FacMax,MAX(FacMin,FacSafe/Err**(ONE/ros_ELO))) - Hnew = H*Fac - -!~~~> Check the error magnitude and adjust step size - ISTATUS(Nstp) = ISTATUS(Nstp) + 1 - IF ( (Err <= ONE).OR.(H <= Hmin) ) THEN !~~~> Accept step - ISTATUS(Nacc) = ISTATUS(Nacc) + 1 - IF (AdjointType == Adj_discrete) THEN ! Save current state - CALL ros_DPush( ros_S, T, H, Ystage, K, Ghimj, Pivot ) - ELSEIF ( (AdjointType == Adj_continuous) .OR. & - (AdjointType == Adj_simple_continuous) ) THEN -#ifdef FULL_ALGEBRA - K = MATMUL(Jac0,Fcn0) -#else - CALL Jac_SP_Vec( Jac0, Fcn0, K(1:NVAR) ) -#endif - IF (.NOT. Autonomous) THEN - CALL WAXPY(NVAR,ONE,dFdT,1,K(1:NVAR),1) - END IF - CALL ros_CPush( T, H, Y, Fcn0, K(1:NVAR) ) - END IF - CALL WCOPY(NVAR,Ynew,1,Y,1) - T = T + Direction*H - Hnew = MAX(Hmin,MIN(Hnew,Hmax)) - IF (RejectLastH) THEN ! No step size increase after a rejected step - Hnew = MIN(Hnew,H) - END IF - RSTATUS(Nhexit) = H - RSTATUS(Nhnew) = Hnew - RSTATUS(Ntexit) = T - RejectLastH = .FALSE. - RejectMoreH = .FALSE. - H = Hnew - EXIT UntilAccepted ! EXIT THE LOOP: WHILE STEP NOT ACCEPTED - ELSE !~~~> Reject step - IF (RejectMoreH) THEN - Hnew = H*FacRej - END IF - RejectMoreH = RejectLastH - RejectLastH = .TRUE. - H = Hnew - IF (ISTATUS(Nacc) >= 1) THEN - ISTATUS(Nrej) = ISTATUS(Nrej) + 1 - END IF - END IF ! Err <= 1 - - END DO UntilAccepted - - END DO TimeLoop - -!~~~> Save last state: only needed for continuous adjoint - IF ( (AdjointType == Adj_continuous) .OR. & - (AdjointType == Adj_simple_continuous) ) THEN - CALL Fun_Template(T,Y,Fcn0) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - CALL Jac_Template(T,Y,Jac0) - ISTATUS(Njac) = ISTATUS(Njac) + 1 -#ifdef FULL_ALGEBRA - K = MATMUL(Jac0,Fcn0) -#else - CALL Jac_SP_Vec( Jac0, Fcn0, K(1:NVAR) ) -#endif - IF (.NOT. Autonomous) THEN - CALL ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) - CALL WAXPY(NVAR,ONE,dFdT,1,K(1:NVAR),1) - END IF - CALL ros_CPush( T, H, Y, Fcn0, K(1:NVAR) ) -!~~~> Deallocate stage buffer: only needed for discrete adjoint - ELSEIF (AdjointType == Adj_discrete) THEN - DEALLOCATE(Ystage, STAT=i) - IF (i/=0) THEN - PRINT*,'Deallocation of Ystage failed' - STOP - END IF - END IF - -!~~~> Succesful exit - IERR = 1 !~~~> The integration was successful - - END SUBROUTINE ros_FwdInt - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_DadjInt ( & - NADJ, Lambda, & - Tstart, Tend, T, & -!~~~> Error indicator - IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the implementation of a generic RosenbrockSOA method -! defined by ros_S (no of stages) -! and its coefficients ros_{A,C,M,E,Alpha,Gamma} -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - -!~~~> Input: the initial condition at Tstart; Output: the solution at T - INTEGER, INTENT(IN) :: NADJ -!~~~> First order adjoint - KPP_REAL, INTENT(INOUT) :: Lambda(NVAR,NADJ) -!!~~~> Input: integration interval - KPP_REAL, INTENT(IN) :: Tstart,Tend -!~~~> Output: time at which the solution is returned (T=Tend if success) - KPP_REAL, INTENT(OUT) :: T -!~~~> Output: Error indicator - INTEGER, INTENT(OUT) :: IERR -! ~~~~ Local variables - KPP_REAL :: Ystage(NVAR*ros_S), K(NVAR*ros_S) - KPP_REAL :: U(NVAR*ros_S,NADJ), V(NVAR*ros_S,NADJ) -#ifdef FULL_ALGEBRA - KPP_REAL, DIMENSION(NVAR,NVAR) :: Jac, dJdT, Ghimj -#else - KPP_REAL, DIMENSION(LU_NONZERO) :: Jac, dJdT, Ghimj -#endif - KPP_REAL :: Hes0(NHESS) - KPP_REAL :: Tmp(NVAR), Tmp2(NVAR) - KPP_REAL :: H, HC, HA, Tau - INTEGER :: Pivot(NVAR), Direction - INTEGER :: i, j, m, istage, ioffset, joffset -!~~~> Local parameters - KPP_REAL, PARAMETER :: ZERO = 0.0d0, ONE = 1.0d0 - KPP_REAL, PARAMETER :: DeltaMin = 1.0d-5 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - - IF (Tend >= Tstart) THEN - Direction = +1 - ELSE - Direction = -1 - END IF - -!~~~> Time loop begins below -TimeLoop: DO WHILE ( stack_ptr > 0 ) - - !~~~> Recover checkpoints for stage values and vectors - CALL ros_DPop( ros_S, T, H, Ystage, K, Ghimj, Pivot ) - -! ISTATUS(Nstp) = ISTATUS(Nstp) + 1 - -!~~~> Compute LU decomposition - IF (.NOT.SaveLU) THEN - CALL Jac_Template(T,Ystage(1:NVAR),Ghimj) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - Tau = ONE/(Direction*H*ros_Gamma(1)) -#ifdef FULL_ALGEBRA - Ghimj(1:NVAR,1:NVAR) = -Ghimj(1:NVAR,1:NVAR) - DO i=1,NVAR - Ghimj(i,i) = Ghimj(i,i)+Tau - END DO -#else - CALL WSCAL(LU_NONZERO,(-ONE),Ghimj,1) - DO i=1,NVAR - Ghimj(LU_DIAG(i)) = Ghimj(LU_DIAG(i))+Tau - END DO -#endif - CALL ros_Decomp( Ghimj, Pivot, j ) - END IF - -!~~~> Compute Hessian at the beginning of the interval - CALL Hess_Template(T,Ystage(1:NVAR),Hes0) - -!~~~> Compute the stages -Stage: DO istage = ros_S, 1, -1 - - !~~~> Current istage first entry - ioffset = NVAR*(istage-1) - - !~~~> Compute U - DO m = 1,NADJ - !CALL WCOPY(NVAR,Lambda(1:NVAR,m),1,U(ioffset+1:ioffset+NVAR,m),1) - U(ioffset+1:ioffset+NVAR,m) = Lambda(1:NVAR,m) - CALL WSCAL(NVAR,ros_M(istage),U(ioffset+1:ioffset+NVAR,m),1) - END DO ! m=1:NADJ - DO j = istage+1, ros_S - joffset = NVAR*(j-1) - HA = ros_A((j-1)*(j-2)/2+istage) - HC = ros_C((j-1)*(j-2)/2+istage)/(Direction*H) - DO m = 1,NADJ - CALL WAXPY(NVAR,HA,V(joffset+1:joffset+NVAR,m),1,U(ioffset+1:ioffset+NVAR,m),1) - CALL WAXPY(NVAR,HC,U(joffset+1:joffset+NVAR,m),1,U(ioffset+1:ioffset+NVAR,m),1) - END DO ! m=1:NADJ - END DO - DO m = 1,NADJ - CALL ros_Solve('T', Ghimj, Pivot, U(ioffset+1:ioffset+NVAR,m)) - END DO ! m=1:NADJ - !~~~> Compute V - Tau = T + ros_Alpha(istage)*Direction*H - CALL Jac_Template(Tau,Ystage(ioffset+1:ioffset+NVAR),Jac) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - DO m = 1,NADJ -#ifdef FULL_ALGEBRA - V(ioffset+1:ioffset+NVAR,m) = MATMUL(TRANSPOSE(Jac),U(ioffset+1:ioffset+NVAR,m)) -#else - CALL JacTR_SP_Vec(Jac,U(ioffset+1:ioffset+NVAR,m),V(ioffset+1:ioffset+NVAR,m)) -#endif - END DO ! m=1:NADJ - - END DO Stage - - IF (.NOT.Autonomous) THEN -!~~~> Compute the Jacobian derivative with respect to T. -! Last "Jac" computed for stage 1 - CALL ros_JacTimeDerivative ( T, Roundoff, Ystage(1), Jac, dJdT ) - END IF - -!~~~> Compute the new solution - - !~~~> Compute Lambda - DO istage=1,ros_S - ioffset = NVAR*(istage-1) - DO m = 1,NADJ - ! Add V_i - CALL WAXPY(NVAR,ONE,V(ioffset+1:ioffset+NVAR,m),1,Lambda(1,m),1) - ! Add (H0xK_i)^T * U_i - CALL HessTR_Vec ( Hes0, U(ioffset+1:ioffset+NVAR,m), & - K(ioffset+1:ioffset+NVAR), Tmp ) - CALL WAXPY(NVAR,ONE,Tmp,1,Lambda(1:NVAR,m),1) - END DO ! m=1:NADJ - END DO - ! Add H * dJac_dT_0^T * \sum(gamma_i U_i) - ! Tmp holds sum gamma_i U_i - IF (.NOT.Autonomous) THEN - DO m = 1,NADJ - Tmp(1:NVAR) = ZERO - DO istage = 1, ros_S - ioffset = NVAR*(istage-1) - CALL WAXPY(NVAR,ros_Gamma(istage),U(ioffset+1:ioffset+NVAR,m),1,Tmp,1) - END DO -#ifdef FULL_ALGEBRA - Tmp2 = MATMUL(TRANSPOSE(dJdT),Tmp) -#else - CALL JacTR_SP_Vec(dJdT,Tmp,Tmp2) -#endif - CALL WAXPY(NVAR,H,Tmp2,1,Lambda(1:NVAR,m),1) - END DO ! m=1:NADJ - END IF ! .NOT.Autonomous - - - END DO TimeLoop - -!~~~> Save last state - -!~~~> Succesful exit - IERR = 1 !~~~> The integration was successful - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - END SUBROUTINE ros_DadjInt -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_CadjInt ( & - NADJ, Y, & - Tstart, Tend, T, & - AbsTol_adj, RelTol_adj, & -!~~~> Error indicator - IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the implementation of a generic RosenbrockADJ method -! defined by ros_S (no of stages) -! and its coefficients ros_{A,C,M,E,Alpha,Gamma} -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - -!~~~> Input: the initial condition at Tstart; Output: the solution at T - INTEGER, INTENT(IN) :: NADJ - KPP_REAL, INTENT(INOUT) :: Y(NVAR,NADJ) -!~~~> Input: integration interval - KPP_REAL, INTENT(IN) :: Tstart,Tend -!~~~> Input: adjoint tolerances - KPP_REAL, INTENT(IN) :: AbsTol_adj(NVAR,NADJ), RelTol_adj(NVAR,NADJ) -!~~~> Output: time at which the solution is returned (T=Tend if success) - KPP_REAL, INTENT(OUT) :: T -!~~~> Output: Error indicator - INTEGER, INTENT(OUT) :: IERR -! ~~~~ Local variables - KPP_REAL :: Y0(NVAR) - KPP_REAL :: Ynew(NVAR,NADJ), Fcn0(NVAR,NADJ), Fcn(NVAR,NADJ) - KPP_REAL :: K(NVAR*ros_S,NADJ), dFdT(NVAR,NADJ) -#ifdef FULL_ALGEBRA - KPP_REAL, DIMENSION(NVAR,NVAR) :: Jac0, Ghimj, Jac, dJdT -#else - KPP_REAL, DIMENSION(LU_NONZERO) :: Jac0, Ghimj, Jac, dJdT -#endif - KPP_REAL :: H, Hnew, HC, HG, Fac, Tau - KPP_REAL :: Err, Yerr(NVAR,NADJ) - INTEGER :: Pivot(NVAR), Direction, ioffset, j, istage, iadj - LOGICAL :: RejectLastH, RejectMoreH, Singular -!~~~> Local parameters - KPP_REAL, PARAMETER :: ZERO = 0.0d0, ONE = 1.0d0 - KPP_REAL, PARAMETER :: DeltaMin = 1.0d-5 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~> Initial preparations - T = Tstart - RSTATUS(Nhexit) = 0.0_dp - H = MIN( MAX(ABS(Hmin),ABS(Hstart)) , ABS(Hmax) ) - IF (ABS(H) <= 10.0_dp*Roundoff) H = DeltaMin - - IF (Tend >= Tstart) THEN - Direction = +1 - ELSE - Direction = -1 - END IF - H = Direction*H - - RejectLastH=.FALSE. - RejectMoreH=.FALSE. - -!~~~> Time loop begins below - -TimeLoop: DO WHILE ( (Direction > 0).AND.((T-Tend)+Roundoff <= ZERO) & - .OR. (Direction < 0).AND.((Tend-T)+Roundoff <= ZERO) ) - - IF ( ISTATUS(Nstp) > Max_no_steps ) THEN ! Too many steps - CALL ros_ErrorMsg(-6,T,H,IERR) - RETURN - END IF - IF ( ((T+0.1d0*H) == T).OR.(H <= Roundoff) ) THEN ! Step size too small - CALL ros_ErrorMsg(-7,T,H,IERR) - RETURN - END IF - -!~~~> Limit H if necessary to avoid going beyond Tend - RSTATUS(Nhexit) = H - H = MIN(H,ABS(Tend-T)) - -!~~~> Interpolate forward solution - CALL ros_cadj_Y( T, Y0 ) -!~~~> Compute the Jacobian at current time - CALL Jac_Template(T, Y0, Jac0) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - -!~~~> Compute the function derivative with respect to T - IF (.NOT.Autonomous) THEN - CALL ros_JacTimeDerivative ( T, Roundoff, Y0, & - Jac0, dJdT ) - DO iadj = 1, NADJ -#ifdef FULL_ALGEBRA - dFdT(1:NVAR,iadj) = MATMUL(TRANSPOSE(dJdT),Y(1:NVAR,iadj)) -#else - CALL JacTR_SP_Vec(dJdT,Y(1:NVAR,iadj),dFdT(1:NVAR,iadj)) -#endif - CALL WSCAL(NVAR,(-ONE),dFdT(1:NVAR,iadj),1) - END DO - END IF - -!~~~> Ydot = -J^T*Y -#ifdef FULL_ALGEBRA - Jac0(1:NVAR,1:NVAR) = -Jac0(1:NVAR,1:NVAR) -#else - CALL WSCAL(LU_NONZERO,(-ONE),Jac0,1) -#endif - DO iadj = 1, NADJ -#ifdef FULL_ALGEBRA - Fcn0(1:NVAR,iadj) = MATMUL(TRANSPOSE(Jac0),Y(1:NVAR,iadj)) -#else - CALL JacTR_SP_Vec(Jac0,Y(1:NVAR,iadj),Fcn0(1:NVAR,iadj)) -#endif - END DO - -!~~~> Repeat step calculation until current step accepted -UntilAccepted: DO - - CALL ros_PrepareMatrix(H,Direction,ros_Gamma(1), & - Jac0,Ghimj,Pivot,Singular) - IF (Singular) THEN ! More than 5 consecutive failed decompositions - CALL ros_ErrorMsg(-8,T,H,IERR) - RETURN - END IF - -!~~~> Compute the stages -Stage: DO istage = 1, ros_S - - ! Current istage offset. Current istage vector is K(ioffset+1:ioffset+NVAR) - ioffset = NVAR*(istage-1) - - ! For the 1st istage the function has been computed previously - IF ( istage == 1 ) THEN - DO iadj = 1, NADJ - !CALL WCOPY(NVAR,Fcn0(1,iadj),1,Fcn(1,iadj),1) - Fcn(1:NVAR,iadj) = Fcn0(1:NVAR,iadj) - END DO - ! istage>1 and a new function evaluation is needed at the current istage - ELSEIF ( ros_NewF(istage) ) THEN - CALL WCOPY(NVAR*NADJ,Y,1,Ynew,1) - DO j = 1, istage-1 - DO iadj = 1, NADJ - CALL WAXPY(NVAR,ros_A((istage-1)*(istage-2)/2+j), & - K(NVAR*(j-1)+1:NVAR*j,iadj),1,Ynew(1,iadj),1) - END DO - END DO - Tau = T + ros_Alpha(istage)*Direction*H - ! CALL Fun_Template(Tau,Ynew,Fcn) - ! ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - CALL ros_cadj_Y( Tau, Y0 ) - CALL Jac_Template(Tau, Y0, Jac) - ISTATUS(Njac) = ISTATUS(Njac) + 1 -#ifdef FULL_ALGEBRA - Jac(1:NVAR,1:NVAR) = -Jac(1:NVAR,1:NVAR) -#else - CALL WSCAL(LU_NONZERO,(-ONE),Jac,1) -#endif - DO iadj = 1, NADJ -#ifdef FULL_ALGEBRA - Fcn(1:NVAR,iadj) = MATMUL(TRANSPOSE(Jac),Ynew(1:NVAR,iadj)) -#else - CALL JacTR_SP_Vec(Jac,Ynew(1:NVAR,iadj),Fcn(1:NVAR,iadj)) -#endif - !CALL WSCAL(NVAR,(-ONE),Fcn(1,iadj),1) - END DO - END IF ! if istage == 1 elseif ros_NewF(istage) - - DO iadj = 1, NADJ - !CALL WCOPY(NVAR,Fcn(1,iadj),1,K(ioffset+1,iadj),1) - K(ioffset+1:ioffset+NVAR,iadj) = Fcn(1:NVAR,iadj) - END DO - DO j = 1, istage-1 - HC = ros_C((istage-1)*(istage-2)/2+j)/(Direction*H) - DO iadj = 1, NADJ - CALL WAXPY(NVAR,HC,K(NVAR*(j-1)+1:NVAR*j,iadj),1, & - K(ioffset+1:ioffset+NVAR,iadj),1) - END DO - END DO - IF ((.NOT. Autonomous).AND.(ros_Gamma(istage).NE.ZERO)) THEN - HG = Direction*H*ros_Gamma(istage) - DO iadj = 1, NADJ - CALL WAXPY(NVAR,HG,dFdT(1:NVAR,iadj),1,K(ioffset+1:ioffset+NVAR,iadj),1) - END DO - END IF - DO iadj = 1, NADJ - CALL ros_Solve('T', Ghimj, Pivot, K(ioffset+1:ioffset+NVAR,iadj)) - END DO - - END DO Stage - - -!~~~> Compute the new solution - DO iadj = 1, NADJ - !CALL WCOPY(NVAR,Y(1:NVAR,iadj),1,Ynew(1,iadj),1) - Ynew(1:NVAR,iadj) = Y(1:NVAR,iadj) - DO j=1,ros_S - CALL WAXPY(NVAR,ros_M(j),K(NVAR*(j-1)+1:NVAR*j,iadj),1,Ynew(1:NVAR,iadj),1) - END DO - END DO - -!~~~> Compute the error estimation - CALL WSCAL(NVAR*NADJ,ZERO,Yerr,1) - DO j=1,ros_S - DO iadj = 1, NADJ - CALL WAXPY(NVAR,ros_E(j),K(NVAR*(j-1)+1:NVAR*j,iadj),1,Yerr(1:NVAR,iadj),1) - END DO - END DO -!~~~> Max error among all adjoint components - iadj = 1 - Err = ros_ErrorNorm ( Y(1:NVAR,iadj), Ynew(1,iadj), Yerr(1,iadj), & - AbsTol_adj(1,iadj), RelTol_adj(1,iadj), VectorTol ) - -!~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax - Fac = MIN(FacMax,MAX(FacMin,FacSafe/Err**(ONE/ros_ELO))) - Hnew = H*Fac - -!~~~> Check the error magnitude and adjust step size -! ISTATUS(Nstp) = ISTATUS(Nstp) + 1 - IF ( (Err <= ONE).OR.(H <= Hmin) ) THEN !~~~> Accept step - ISTATUS(Nacc) = ISTATUS(Nacc) + 1 - CALL WCOPY(NVAR*NADJ,Ynew,1,Y,1) - T = T + Direction*H - Hnew = MAX(Hmin,MIN(Hnew,Hmax)) - IF (RejectLastH) THEN ! No step size increase after a rejected step - Hnew = MIN(Hnew,H) - END IF - RSTATUS(Nhexit) = H - RSTATUS(Nhnew) = Hnew - RSTATUS(Ntexit) = T - RejectLastH = .FALSE. - RejectMoreH = .FALSE. - H = Hnew - EXIT UntilAccepted ! EXIT THE LOOP: WHILE STEP NOT ACCEPTED - ELSE !~~~> Reject step - IF (RejectMoreH) THEN - Hnew = H*FacRej - END IF - RejectMoreH = RejectLastH - RejectLastH = .TRUE. - H = Hnew - IF (ISTATUS(Nacc) >= 1) THEN - ISTATUS(Nrej) = ISTATUS(Nrej) + 1 - END IF - END IF ! Err <= 1 - - END DO UntilAccepted - - END DO TimeLoop - -!~~~> Succesful exit - IERR = 1 !~~~> The integration was successful - - END SUBROUTINE ros_CadjInt - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_SimpleCadjInt ( & - NADJ, Y, & - Tstart, Tend, T, & -!~~~> Error indicator - IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the implementation of a generic RosenbrockADJ method -! defined by ros_S (no of stages) -! and its coefficients ros_{A,C,M,E,Alpha,Gamma} -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - -!~~~> Input: the initial condition at Tstart; Output: the solution at T - INTEGER, INTENT(IN) :: NADJ - KPP_REAL, INTENT(INOUT) :: Y(NVAR,NADJ) -!~~~> Input: integration interval - KPP_REAL, INTENT(IN) :: Tstart,Tend -!~~~> Output: time at which the solution is returned (T=Tend if success) - KPP_REAL, INTENT(OUT) :: T -!~~~> Output: Error indicator - INTEGER, INTENT(OUT) :: IERR -! ~~~~ Local variables - KPP_REAL :: Y0(NVAR) - KPP_REAL :: Ynew(NVAR,NADJ), Fcn0(NVAR,NADJ), Fcn(NVAR,NADJ) - KPP_REAL :: K(NVAR*ros_S,NADJ), dFdT(NVAR,NADJ) -#ifdef FULL_ALGEBRA - KPP_REAL,DIMENSION(NVAR,NVAR) :: Jac0, Ghimj, Jac, dJdT -#else - KPP_REAL,DIMENSION(LU_NONZERO) :: Jac0, Ghimj, Jac, dJdT -#endif - KPP_REAL :: H, HC, HG, Tau - KPP_REAL :: ghinv - INTEGER :: Pivot(NVAR), Direction, ioffset, i, j, istage, iadj - INTEGER :: istack -!~~~> Local parameters - KPP_REAL, PARAMETER :: ZERO = 0.0d0, ONE = 1.0d0 - KPP_REAL, PARAMETER :: DeltaMin = 1.0d-5 -!~~~> Locally called functions -! KPP_REAL WLAMCH -! EXTERNAL WLAMCH -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~> INITIAL PREPARATIONS - - IF (Tend >= Tstart) THEN - Direction = -1 - ELSE - Direction = +1 - END IF - -!~~~> Time loop begins below -TimeLoop: DO istack = stack_ptr,2,-1 - - T = chk_T(istack) - H = chk_H(istack-1) - !CALL WCOPY(NVAR,chk_Y(1,istack),1,Y0,1) - Y0(1:NVAR) = chk_Y(1:NVAR,istack) - -!~~~> Compute the Jacobian at current time - CALL Jac_Template(T, Y0, Jac0) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - -!~~~> Compute the function derivative with respect to T - IF (.NOT.Autonomous) THEN - CALL ros_JacTimeDerivative ( T, Roundoff, Y0, & - Jac0, dJdT ) - DO iadj = 1, NADJ -#ifdef FULL_ALGEBRA - dFdT(1:NVAR,iadj) = MATMUL(TRANSPOSE(dJdT),Y(1:NVAR,iadj)) -#else - CALL JacTR_SP_Vec(dJdT,Y(1:NVAR,iadj),dFdT(1:NVAR,iadj)) -#endif - CALL WSCAL(NVAR,(-ONE),dFdT(1:NVAR,iadj),1) - END DO - END IF - -!~~~> Ydot = -J^T*Y -#ifdef FULL_ALGEBRA - Jac0(1:NVAR,1:NVAR) = -Jac0(1:NVAR,1:NVAR) -#else - CALL WSCAL(LU_NONZERO,(-ONE),Jac0,1) -#endif - DO iadj = 1, NADJ -#ifdef FULL_ALGEBRA - Fcn0(1:NVAR,iadj) = MATMUL(TRANSPOSE(Jac0),Y(1:NVAR,iadj)) -#else - CALL JacTR_SP_Vec(Jac0,Y(1:NVAR,iadj),Fcn0(1:NVAR,iadj)) -#endif - END DO - -!~~~> Construct Ghimj = 1/(H*ham) - Jac0 - ghinv = ONE/(Direction*H*ros_Gamma(1)) -#ifdef FULL_ALGEBRA - Ghimj(1:NVAR,1:NVAR) = -Jac0(1:NVAR,1:NVAR) - DO i=1,NVAR - Ghimj(i,i) = Ghimj(i,i)+ghinv - END DO -#else - CALL WCOPY(LU_NONZERO,Jac0,1,Ghimj,1) - CALL WSCAL(LU_NONZERO,(-ONE),Ghimj,1) - DO i=1,NVAR - Ghimj(LU_DIAG(i)) = Ghimj(LU_DIAG(i))+ghinv - END DO -#endif -!~~~> Compute LU decomposition - CALL ros_Decomp( Ghimj, Pivot, j ) - IF (j /= 0) THEN - CALL ros_ErrorMsg(-8,T,H,IERR) - PRINT*,' The matrix is singular !' - STOP - END IF - -!~~~> Compute the stages -Stage: DO istage = 1, ros_S - - ! Current istage offset. Current istage vector is K(ioffset+1:ioffset+NVAR) - ioffset = NVAR*(istage-1) - - ! For the 1st istage the function has been computed previously - IF ( istage == 1 ) THEN - DO iadj = 1, NADJ - CALL WCOPY(NVAR,Fcn0(1,iadj),1,Fcn(1,iadj),1) - END DO - ! istage>1 and a new function evaluation is needed at the current istage - ELSEIF ( ros_NewF(istage) ) THEN - CALL WCOPY(NVAR*NADJ,Y,1,Ynew,1) - DO j = 1, istage-1 - DO iadj = 1, NADJ - CALL WAXPY(NVAR,ros_A((istage-1)*(istage-2)/2+j), & - K(NVAR*(j-1)+1:NVAR*j,iadj),1,Ynew(1:NVAR,iadj),1) - END DO - END DO - Tau = T + ros_Alpha(istage)*Direction*H - CALL ros_Hermite3( chk_T(istack-1), chk_T(istack), Tau, & - chk_Y(1:NVAR,istack-1), chk_Y(1:NVAR,istack), & - chk_dY(1:NVAR,istack-1), chk_dY(1:NVAR,istack), Y0 ) - CALL Jac_Template(Tau, Y0, Jac) - ISTATUS(Njac) = ISTATUS(Njac) + 1 -#ifdef FULL_ALGEBRA - Jac(1:NVAR,1:NVAR) = -Jac(1:NVAR,1:NVAR) -#else - CALL WSCAL(LU_NONZERO,(-ONE),Jac,1) -#endif - DO iadj = 1, NADJ -#ifdef FULL_ALGEBRA - Fcn(1:NVAR,iadj) = MATMUL(TRANSPOSE(Jac),Ynew(1:NVAR,iadj)) -#else - CALL JacTR_SP_Vec(Jac,Ynew(1:NVAR,iadj),Fcn(1:NVAR,iadj)) -#endif - END DO - END IF ! if istage == 1 elseif ros_NewF(istage) - - DO iadj = 1, NADJ - CALL WCOPY(NVAR,Fcn(1,iadj),1,K(ioffset+1,iadj),1) - END DO - DO j = 1, istage-1 - HC = ros_C((istage-1)*(istage-2)/2+j)/(Direction*H) - DO iadj = 1, NADJ - CALL WAXPY(NVAR,HC,K(NVAR*(j-1)+1:NVAR*j,iadj),1, & - K(ioffset+1:ioffset+NVAR,iadj),1) - END DO - END DO - IF ((.NOT. Autonomous).AND.(ros_Gamma(istage).NE.ZERO)) THEN - HG = Direction*H*ros_Gamma(istage) - DO iadj = 1, NADJ - CALL WAXPY(NVAR,HG,dFdT(1:NVAR,iadj),1,K(ioffset+1:ioffset+NVAR,iadj),1) - END DO - END IF - DO iadj = 1, NADJ - CALL ros_Solve('T', Ghimj, Pivot, K(ioffset+1:ioffset+NVAR,iadj)) - END DO - - END DO Stage - - -!~~~> Compute the new solution - DO iadj = 1, NADJ - DO j=1,ros_S - CALL WAXPY(NVAR,ros_M(j),K(NVAR*(j-1)+1:NVAR*j,iadj),1,Y(1:NVAR,iadj),1) - END DO - END DO - - END DO TimeLoop - -!~~~> Succesful exit - IERR = 1 !~~~> The integration was successful - - END SUBROUTINE ros_SimpleCadjInt - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - KPP_REAL FUNCTION ros_ErrorNorm ( Y, Ynew, Yerr, & - AbsTol, RelTol, VectorTol ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Computes the "scaled norm" of the error vector Yerr -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -! Input arguments - KPP_REAL, INTENT(IN) :: Y(NVAR), Ynew(NVAR), & - Yerr(NVAR), AbsTol(NVAR), RelTol(NVAR) - LOGICAL, INTENT(IN) :: VectorTol -! Local variables - KPP_REAL :: Err, Scale, Ymax - INTEGER :: i - - Err = ZERO - DO i=1,NVAR - Ymax = MAX(ABS(Y(i)),ABS(Ynew(i))) - IF (VectorTol) THEN - Scale = AbsTol(i)+RelTol(i)*Ymax - ELSE - Scale = AbsTol(1)+RelTol(1)*Ymax - END IF - Err = Err+(Yerr(i)/Scale)**2 - END DO - Err = SQRT(Err/NVAR) - - ros_ErrorNorm = MAX(Err,1.0d-10) - - END FUNCTION ros_ErrorNorm - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_FunTimeDerivative ( T, Roundoff, Y, Fcn0, dFdT ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> The time partial derivative of the function by finite differences -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -!~~~> Input arguments - KPP_REAL, INTENT(IN) :: T, Roundoff, Y(NVAR), Fcn0(NVAR) -!~~~> Output arguments - KPP_REAL, INTENT(OUT) :: dFdT(NVAR) -!~~~> Local variables - KPP_REAL :: Delta - KPP_REAL, PARAMETER :: ONE = 1.0d0, DeltaMin = 1.0d-6 - - Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T)) - CALL Fun_Template(T+Delta,Y,dFdT) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - CALL WAXPY(NVAR,(-ONE),Fcn0,1,dFdT,1) - CALL WSCAL(NVAR,(ONE/Delta),dFdT,1) - - END SUBROUTINE ros_FunTimeDerivative - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_JacTimeDerivative ( T, Roundoff, Y, & - Jac0, dJdT ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> The time partial derivative of the Jacobian by finite differences -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -!~~~> Arguments - KPP_REAL, INTENT(IN) :: T, Roundoff, Y(NVAR) -#ifdef FULL_ALGEBRA - KPP_REAL, INTENT(IN) :: Jac0(NVAR,NVAR) - KPP_REAL, INTENT(OUT) :: dJdT(NVAR,NVAR) -#else - KPP_REAL, INTENT(IN) :: Jac0(LU_NONZERO) - KPP_REAL, INTENT(OUT) :: dJdT(LU_NONZERO) -#endif -!~~~> Local variables - KPP_REAL :: Delta - - Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T)) - CALL Jac_Template(T+Delta,Y,dJdT) - ISTATUS(Njac) = ISTATUS(Njac) + 1 -#ifdef FULL_ALGEBRA - CALL WAXPY(NVAR*NVAR,(-ONE),Jac0,1,dJdT,1) - CALL WSCAL(NVAR*NVAR,(ONE/Delta),dJdT,1) -#else - CALL WAXPY(LU_NONZERO,(-ONE),Jac0,1,dJdT,1) - CALL WSCAL(LU_NONZERO,(ONE/Delta),dJdT,1) -#endif - - END SUBROUTINE ros_JacTimeDerivative - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_PrepareMatrix ( H, Direction, gam, & - Jac0, Ghimj, Pivot, Singular ) -! --- --- --- --- --- --- --- --- --- --- --- --- --- -! Prepares the LHS matrix for stage calculations -! 1. Construct Ghimj = 1/(H*gam) - Jac0 -! "(Gamma H) Inverse Minus Jacobian" -! 2. Repeat LU decomposition of Ghimj until successful. -! -half the step size if LU decomposition fails and retry -! -exit after 5 consecutive fails -! --- --- --- --- --- --- --- --- --- --- --- --- --- - IMPLICIT NONE - -!~~~> Input arguments -#ifdef FULL_ALGEBRA - KPP_REAL, INTENT(IN) :: Jac0(NVAR,NVAR) -#else - KPP_REAL, INTENT(IN) :: Jac0(LU_NONZERO) -#endif - KPP_REAL, INTENT(IN) :: gam - INTEGER, INTENT(IN) :: Direction -!~~~> Output arguments -#ifdef FULL_ALGEBRA - KPP_REAL, INTENT(OUT) :: Ghimj(NVAR,NVAR) -#else - KPP_REAL, INTENT(OUT) :: Ghimj(LU_NONZERO) -#endif - LOGICAL, INTENT(OUT) :: Singular - INTEGER, INTENT(OUT) :: Pivot(NVAR) -!~~~> Inout arguments - KPP_REAL, INTENT(INOUT) :: H ! step size is decreased when LU fails -!~~~> Local variables - INTEGER :: i, ising, Nconsecutive - KPP_REAL :: ghinv - KPP_REAL, PARAMETER :: ONE = 1.0_dp, HALF = 0.5_dp - - Nconsecutive = 0 - Singular = .TRUE. - - DO WHILE (Singular) - -!~~~> Construct Ghimj = 1/(H*gam) - Jac0 -#ifdef FULL_ALGEBRA - CALL WCOPY(NVAR*NVAR,Jac0,1,Ghimj,1) - CALL WSCAL(NVAR*NVAR,(-ONE),Ghimj,1) - ghinv = ONE/(Direction*H*gam) - DO i=1,NVAR - Ghimj(i,i) = Ghimj(i,i)+ghinv - END DO -#else - CALL WCOPY(LU_NONZERO,Jac0,1,Ghimj,1) - CALL WSCAL(LU_NONZERO,(-ONE),Ghimj,1) - ghinv = ONE/(Direction*H*gam) - DO i=1,NVAR - Ghimj(LU_DIAG(i)) = Ghimj(LU_DIAG(i))+ghinv - END DO -#endif -!~~~> Compute LU decomposition - CALL ros_Decomp( Ghimj, Pivot, ising ) - IF (ising == 0) THEN -!~~~> If successful done - Singular = .FALSE. - ELSE ! ising .ne. 0 -!~~~> If unsuccessful half the step size; if 5 consecutive fails then return - ISTATUS(Nsng) = ISTATUS(Nsng) + 1 - Nconsecutive = Nconsecutive+1 - Singular = .TRUE. - PRINT*,'Warning: LU Decomposition returned ising = ',ising - IF (Nconsecutive <= 5) THEN ! Less than 5 consecutive failed decompositions - H = H*HALF - ELSE ! More than 5 consecutive failed decompositions - RETURN - END IF ! Nconsecutive - END IF ! ising - - END DO ! WHILE Singular - - END SUBROUTINE ros_PrepareMatrix - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Decomp( A, Pivot, ising ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the LU decomposition -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Inout variables -#ifdef FULL_ALGEBRA - KPP_REAL, INTENT(INOUT) :: A(NVAR,NVAR) -#else - KPP_REAL, INTENT(INOUT) :: A(LU_NONZERO) -#endif -!~~~> Output variables - INTEGER, INTENT(OUT) :: Pivot(NVAR), ising - -#ifdef FULL_ALGEBRA - CALL DGETRF( NVAR, NVAR, A, NVAR, Pivot, ising ) -#else - CALL KppDecomp ( A, ising ) - Pivot(1) = 1 -#endif - ISTATUS(Ndec) = ISTATUS(Ndec) + 1 - - END SUBROUTINE ros_Decomp - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Solve( How, A, Pivot, b ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the forward/backward substitution (using pre-computed LU decomposition) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Input variables - CHARACTER, INTENT(IN) :: How -#ifdef FULL_ALGEBRA - KPP_REAL, INTENT(IN) :: A(NVAR,NVAR) -#else - KPP_REAL, INTENT(IN) :: A(LU_NONZERO) -#endif - INTEGER, INTENT(IN) :: Pivot(NVAR) -!~~~> InOut variables - KPP_REAL, INTENT(INOUT) :: b(NVAR) - - SELECT CASE (How) - CASE ('N') -#ifdef FULL_ALGEBRA - CALL DGETRS( 'N', NVAR , 1, A, NVAR, Pivot, b, NVAR, 0 ) -#else - CALL KppSolve( A, b ) -#endif - CASE ('T') -#ifdef FULL_ALGEBRA - CALL DGETRS( 'T', NVAR , 1, A, NVAR, Pivot, b, NVAR, 0 ) -#else - CALL KppSolveTR( A, b, b ) -#endif - CASE DEFAULT - PRINT*,'Error: unknown argument in ros_Solve: How=',How - STOP - END SELECT - ISTATUS(Nsol) = ISTATUS(Nsol) + 1 - - END SUBROUTINE ros_Solve - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_cadj_Y( T, Y ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Finds the solution Y at T by interpolating the stored forward trajectory -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Input variables - KPP_REAL, INTENT(IN) :: T -!~~~> Output variables - KPP_REAL, INTENT(OUT) :: Y(NVAR) -!~~~> Local variables - INTEGER :: i - KPP_REAL, PARAMETER :: ONE = 1.0d0 - -! chk_H, chk_T, chk_Y, chk_dY, chk_d2Y - - IF( (T < chk_T(1)).OR.(T> chk_T(stack_ptr)) ) THEN - PRINT*,'Cannot locate solution at T = ',T - PRINT*,'Stored trajectory is between Tstart = ',chk_T(1) - PRINT*,' and Tend = ',chk_T(stack_ptr) - STOP - END IF - DO i = 1, stack_ptr-1 - IF( (T>= chk_T(i)).AND.(T<= chk_T(i+1)) ) EXIT - END DO - - -! IF (.FALSE.) THEN -! -! CALL ros_Hermite5( chk_T(i), chk_T(i+1), T, & -! chk_Y(1,i), chk_Y(1,i+1), & -! chk_dY(1,i), chk_dY(1,i+1), & -! chk_d2Y(1,i), chk_d2Y(1,i+1), Y ) -! -! ELSE - - CALL ros_Hermite3( chk_T(i), chk_T(i+1), T, & - chk_Y(1:NVAR,i), chk_Y(1:NVAR,i+1), & - chk_dY(1:NVAR,i), chk_dY(1:NVAR,i+1), & - Y ) - -! -! END IF - - END SUBROUTINE ros_cadj_Y - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Hermite3( a, b, T, Ya, Yb, Ja, Jb, Y ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for Hermite interpolation of order 5 on the interval [a,b] -! P = c(1) + c(2)*(x-a) + ... + c(4)*(x-a)^3 -! P[a,b] = [Ya,Yb], P'[a,b] = [Ja,Jb] -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Input variables - KPP_REAL, INTENT(IN) :: a, b, T, Ya(NVAR), Yb(NVAR) - KPP_REAL, INTENT(IN) :: Ja(NVAR), Jb(NVAR) -!~~~> Output variables - KPP_REAL, INTENT(OUT) :: Y(NVAR) -!~~~> Local variables - KPP_REAL :: Tau, amb(3), C(NVAR,4) - KPP_REAL, PARAMETER :: ZERO = 0.0d0 - INTEGER :: i, j - - amb(1) = 1.0d0/(a-b) - DO i=2,3 - amb(i) = amb(i-1)*amb(1) - END DO - - -! c(1) = ya; - CALL WCOPY(NVAR,Ya,1,C(1:NVAR,1),1) -! c(2) = ja; - CALL WCOPY(NVAR,Ja,1,C(1:NVAR,2),1) -! c(3) = 2/(a-b)*ja + 1/(a-b)*jb - 3/(a - b)^2*ya + 3/(a - b)^2*yb ; - CALL WCOPY(NVAR,Ya,1,C(1:NVAR,3),1) - CALL WSCAL(NVAR,-3.0*amb(2),C(1:NVAR,3),1) - CALL WAXPY(NVAR,3.0*amb(2),Yb,1,C(1:NVAR,3),1) - CALL WAXPY(NVAR,2.0*amb(1),Ja,1,C(1:NVAR,3),1) - CALL WAXPY(NVAR,amb(1),Jb,1,C(1:NVAR,3),1) -! c(4) = 1/(a-b)^2*ja + 1/(a-b)^2*jb - 2/(a-b)^3*ya + 2/(a-b)^3*yb ; - CALL WCOPY(NVAR,Ya,1,C(1:NVAR,4),1) - CALL WSCAL(NVAR,-2.0*amb(3),C(1:NVAR,4),1) - CALL WAXPY(NVAR,2.0*amb(3),Yb,1,C(1:NVAR,4),1) - CALL WAXPY(NVAR,amb(2),Ja,1,C(1:NVAR,4),1) - CALL WAXPY(NVAR,amb(2),Jb,1,C(1:NVAR,4),1) - - Tau = T - a - CALL WCOPY(NVAR,C(1:NVAR,4),1,Y,1) - CALL WSCAL(NVAR,Tau**3,Y,1) - DO j = 3,1,-1 - CALL WAXPY(NVAR,TAU**(j-1),C(1:NVAR,j),1,Y,1) - END DO - - END SUBROUTINE ros_Hermite3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Hermite5( a, b, T, Ya, Yb, Ja, Jb, Ha, Hb, Y ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for Hermite interpolation of order 5 on the interval [a,b] -! P = c(1) + c(2)*(x-a) + ... + c(6)*(x-a)^5 -! P[a,b] = [Ya,Yb], P'[a,b] = [Ja,Jb], P"[a,b] = [Ha,Hb] -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Input variables - KPP_REAL, INTENT(IN) :: a, b, T, Ya(NVAR), Yb(NVAR) - KPP_REAL, INTENT(IN) :: Ja(NVAR), Jb(NVAR), Ha(NVAR), Hb(NVAR) -!~~~> Output variables - KPP_REAL, INTENT(OUT) :: Y(NVAR) -!~~~> Local variables - KPP_REAL :: Tau, amb(5), C(NVAR,6) - KPP_REAL, PARAMETER :: ZERO = 0.0d0, HALF = 0.5d0 - INTEGER :: i, j - - amb(1) = 1.0d0/(a-b) - DO i=2,5 - amb(i) = amb(i-1)*amb(1) - END DO - -! c(1) = ya; - CALL WCOPY(NVAR,Ya,1,C(1:NVAR,1),1) -! c(2) = ja; - CALL WCOPY(NVAR,Ja,1,C(1:NVAR,2),1) -! c(3) = ha/2; - CALL WCOPY(NVAR,Ha,1,C(1:NVAR,3),1) - CALL WSCAL(NVAR,HALF,C(1:NVAR,3),1) - -! c(4) = 10*amb(3)*ya - 10*amb(3)*yb - 6*amb(2)*ja - 4*amb(2)*jb + 1.5*amb(1)*ha - 0.5*amb(1)*hb ; - CALL WCOPY(NVAR,Ya,1,C(1:NVAR,4),1) - CALL WSCAL(NVAR,10.0*amb(3),C(1:NVAR,4),1) - CALL WAXPY(NVAR,-10.0*amb(3),Yb,1,C(1:NVAR,4),1) - CALL WAXPY(NVAR,-6.0*amb(2),Ja,1,C(1:NVAR,4),1) - CALL WAXPY(NVAR,-4.0*amb(2),Jb,1,C(1:NVAR,4),1) - CALL WAXPY(NVAR, 1.5*amb(1),Ha,1,C(1:NVAR,4),1) - CALL WAXPY(NVAR,-0.5*amb(1),Hb,1,C(1:NVAR,4),1) - -! c(5) = 15*amb(4)*ya - 15*amb(4)*yb - 8.*amb(3)*ja - 7*amb(3)*jb + 1.5*amb(2)*ha - 1*amb(2)*hb ; - CALL WCOPY(NVAR,Ya,1,C(1:NVAR,5),1) - CALL WSCAL(NVAR, 15.0*amb(4),C(1:NVAR,5),1) - CALL WAXPY(NVAR,-15.0*amb(4),Yb,1,C(1:NVAR,5),1) - CALL WAXPY(NVAR,-8.0*amb(3),Ja,1,C(1:NVAR,5),1) - CALL WAXPY(NVAR,-7.0*amb(3),Jb,1,C(1:NVAR,5),1) - CALL WAXPY(NVAR,1.5*amb(2),Ha,1,C(1:NVAR,5),1) - CALL WAXPY(NVAR,-amb(2),Hb,1,C(1:NVAR,5),1) - -! c(6) = 6*amb(5)*ya - 6*amb(5)*yb - 3.*amb(4)*ja - 3.*amb(4)*jb + 0.5*amb(3)*ha -0.5*amb(3)*hb ; - CALL WCOPY(NVAR,Ya,1,C(1:NVAR,6),1) - CALL WSCAL(NVAR, 6.0*amb(5),C(1:NVAR,6),1) - CALL WAXPY(NVAR,-6.0*amb(5),Yb,1,C(1:NVAR,6),1) - CALL WAXPY(NVAR,-3.0*amb(4),Ja,1,C(1:NVAR,6),1) - CALL WAXPY(NVAR,-3.0*amb(4),Jb,1,C(1:NVAR,6),1) - CALL WAXPY(NVAR, 0.5*amb(3),Ha,1,C(1:NVAR,6),1) - CALL WAXPY(NVAR,-0.5*amb(3),Hb,1,C(1:NVAR,6),1) - - Tau = T - a - CALL WCOPY(NVAR,C(1:NVAR,6),1,Y,1) - DO j = 5,1,-1 - CALL WSCAL(NVAR,Tau,Y,1) - CALL WAXPY(NVAR,ONE,C(1:NVAR,j),1,Y,1) - END DO - - END SUBROUTINE ros_Hermite5 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 2 stages, order 2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - DOUBLE PRECISION g - - g = 1.0d0 + 1.0d0/SQRT(2.0d0) - - rosMethod = RS2 -!~~~> Name of the method - ros_Name = 'ROS-2' -!~~~> Number of stages - ros_S = 2 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = (1.d0)/g - ros_C(1) = (-2.d0)/g -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1)= (3.d0)/(2.d0*g) - ros_M(2)= (1.d0)/(2.d0*g) -! E_i = Coefficients for error estimator - ros_E(1) = 1.d0/(2.d0*g) - ros_E(2) = 1.d0/(2.d0*g) -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus one - ros_ELO = 2.0d0 -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0d0 - ros_Alpha(2) = 1.0d0 -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = g - ros_Gamma(2) =-g - - END SUBROUTINE Ros2 - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 3 stages, order 3, 2 function evaluations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RS3 -!~~~> Name of the method - ros_Name = 'ROS-3' -!~~~> Number of stages - ros_S = 3 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1)= 1.d0 - ros_A(2)= 1.d0 - ros_A(3)= 0.d0 - - ros_C(1) = -0.10156171083877702091975600115545d+01 - ros_C(2) = 0.40759956452537699824805835358067d+01 - ros_C(3) = 0.92076794298330791242156818474003d+01 -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.1d+01 - ros_M(2) = 0.61697947043828245592553615689730d+01 - ros_M(3) = -0.42772256543218573326238373806514d+00 -! E_i = Coefficients for error estimator - ros_E(1) = 0.5d+00 - ros_E(2) = -0.29079558716805469821718236208017d+01 - ros_E(3) = 0.22354069897811569627360909276199d+00 -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0d0 -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1)= 0.0d+00 - ros_Alpha(2)= 0.43586652150845899941601945119356d+00 - ros_Alpha(3)= 0.43586652150845899941601945119356d+00 -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1)= 0.43586652150845899941601945119356d+00 - ros_Gamma(2)= 0.24291996454816804366592249683314d+00 - ros_Gamma(3)= 0.21851380027664058511513169485832d+01 - - END SUBROUTINE Ros3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! L-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 4 STAGES -! L-STABLE EMBEDDED ROSENBROCK METHOD OF ORDER 3 -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1990) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RS4 -!~~~> Name of the method - ros_Name = 'ROS-4' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.2000000000000000d+01 - ros_A(2) = 0.1867943637803922d+01 - ros_A(3) = 0.2344449711399156d+00 - ros_A(4) = ros_A(2) - ros_A(5) = ros_A(3) - ros_A(6) = 0.0D0 - - ros_C(1) =-0.7137615036412310d+01 - ros_C(2) = 0.2580708087951457d+01 - ros_C(3) = 0.6515950076447975d+00 - ros_C(4) =-0.2137148994382534d+01 - ros_C(5) =-0.3214669691237626d+00 - ros_C(6) =-0.6949742501781779d+00 -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.2255570073418735d+01 - ros_M(2) = 0.2870493262186792d+00 - ros_M(3) = 0.4353179431840180d+00 - ros_M(4) = 0.1093502252409163d+01 -!~~~> E_i = Coefficients for error estimator - ros_E(1) =-0.2815431932141155d+00 - ros_E(2) =-0.7276199124938920d-01 - ros_E(3) =-0.1082196201495311d+00 - ros_E(4) =-0.1093502252409163d+01 -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0d0 -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.D0 - ros_Alpha(2) = 0.1145640000000000d+01 - ros_Alpha(3) = 0.6552168638155900d+00 - ros_Alpha(4) = ros_Alpha(3) -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5728200000000000d+00 - ros_Gamma(2) =-0.1769193891319233d+01 - ros_Gamma(3) = 0.7592633437920482d+00 - ros_Gamma(4) =-0.1049021087100450d+00 - - END SUBROUTINE Ros4 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- A STIFFLY-STABLE METHOD, 4 stages, order 3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD3 -!~~~> Name of the method - ros_Name = 'RODAS-3' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.0d+00 - ros_A(2) = 2.0d+00 - ros_A(3) = 0.0d+00 - ros_A(4) = 2.0d+00 - ros_A(5) = 0.0d+00 - ros_A(6) = 1.0d+00 - - ros_C(1) = 4.0d+00 - ros_C(2) = 1.0d+00 - ros_C(3) =-1.0d+00 - ros_C(4) = 1.0d+00 - ros_C(5) =-1.0d+00 - ros_C(6) =-(8.0d+00/3.0d+00) - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .FALSE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 2.0d+00 - ros_M(2) = 0.0d+00 - ros_M(3) = 1.0d+00 - ros_M(4) = 1.0d+00 -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0d+00 - ros_E(2) = 0.0d+00 - ros_E(3) = 0.0d+00 - ros_E(4) = 1.0d+00 -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0d+00 -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0d+00 - ros_Alpha(2) = 0.0d+00 - ros_Alpha(3) = 1.0d+00 - ros_Alpha(4) = 1.0d+00 -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5d+00 - ros_Gamma(2) = 1.5d+00 - ros_Gamma(3) = 0.0d+00 - ros_Gamma(4) = 0.0d+00 - - END SUBROUTINE Rodas3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 6 STAGES -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1996) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD4 -!~~~> Name of the method - ros_Name = 'RODAS-4' -!~~~> Number of stages - ros_S = 6 - -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.000d0 - ros_Alpha(2) = 0.386d0 - ros_Alpha(3) = 0.210d0 - ros_Alpha(4) = 0.630d0 - ros_Alpha(5) = 1.000d0 - ros_Alpha(6) = 1.000d0 - -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.2500000000000000d+00 - ros_Gamma(2) =-0.1043000000000000d+00 - ros_Gamma(3) = 0.1035000000000000d+00 - ros_Gamma(4) =-0.3620000000000023d-01 - ros_Gamma(5) = 0.0d0 - ros_Gamma(6) = 0.0d0 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.1544000000000000d+01 - ros_A(2) = 0.9466785280815826d+00 - ros_A(3) = 0.2557011698983284d+00 - ros_A(4) = 0.3314825187068521d+01 - ros_A(5) = 0.2896124015972201d+01 - ros_A(6) = 0.9986419139977817d+00 - ros_A(7) = 0.1221224509226641d+01 - ros_A(8) = 0.6019134481288629d+01 - ros_A(9) = 0.1253708332932087d+02 - ros_A(10) =-0.6878860361058950d+00 - ros_A(11) = ros_A(7) - ros_A(12) = ros_A(8) - ros_A(13) = ros_A(9) - ros_A(14) = ros_A(10) - ros_A(15) = 1.0d+00 - - ros_C(1) =-0.5668800000000000d+01 - ros_C(2) =-0.2430093356833875d+01 - ros_C(3) =-0.2063599157091915d+00 - ros_C(4) =-0.1073529058151375d+00 - ros_C(5) =-0.9594562251023355d+01 - ros_C(6) =-0.2047028614809616d+02 - ros_C(7) = 0.7496443313967647d+01 - ros_C(8) =-0.1024680431464352d+02 - ros_C(9) =-0.3399990352819905d+02 - ros_C(10) = 0.1170890893206160d+02 - ros_C(11) = 0.8083246795921522d+01 - ros_C(12) =-0.7981132988064893d+01 - ros_C(13) =-0.3152159432874371d+02 - ros_C(14) = 0.1631930543123136d+02 - ros_C(15) =-0.6058818238834054d+01 - -!~~~> M_i = Coefficients for new step solution - ros_M(1) = ros_A(7) - ros_M(2) = ros_A(8) - ros_M(3) = ros_A(9) - ros_M(4) = ros_A(10) - ros_M(5) = 1.0d+00 - ros_M(6) = 1.0d+00 - -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0d+00 - ros_E(2) = 0.0d+00 - ros_E(3) = 0.0d+00 - ros_E(4) = 0.0d+00 - ros_E(5) = 0.0d+00 - ros_E(6) = 1.0d+00 - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - ros_NewF(5) = .TRUE. - ros_NewF(6) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0d0 - - END SUBROUTINE Rodas4 - - -END SUBROUTINE RosenbrockADJ ! and its internal procedures - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE Fun_Template( T, Y, Ydot ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE function call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~> Input variables - KPP_REAL, INTENT(IN) :: T, Y(NVAR) -!~~~> Output variables - KPP_REAL, INTENT(OUT) :: Ydot(NVAR) -!~~~> Local variables - KPP_REAL :: Told - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, Ydot ) - TIME = Told - -END SUBROUTINE Fun_Template - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE Jac_Template( T, Y, Jcb ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE Jacobian call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~> Input variables - KPP_REAL :: T, Y(NVAR) -!~~~> Output variables -#ifdef FULL_ALGEBRA - KPP_REAL :: JV(LU_NONZERO), Jcb(NVAR,NVAR) -#else - KPP_REAL :: Jcb(LU_NONZERO) -#endif -!~~~> Local variables - KPP_REAL :: Told -#ifdef FULL_ALGEBRA - INTEGER :: i, j -#endif - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() -#ifdef FULL_ALGEBRA - CALL Jac_SP(Y, FIX, RCONST, JV) - DO j=1,NVAR - DO i=1,NVAR - Jcb(i,j) = 0.0_dp - END DO - END DO - DO i=1,LU_NONZERO - Jcb(LU_IROW(i),LU_ICOL(i)) = JV(i) - END DO -#else - CALL Jac_SP( Y, FIX, RCONST, Jcb ) -#endif - TIME = Told - -END SUBROUTINE Jac_Template - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE Hess_Template( T, Y, Hes ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE Hessian call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~> Input variables - KPP_REAL, INTENT(IN) :: T, Y(NVAR) -!~~~> Output variables - KPP_REAL, INTENT(OUT) :: Hes(NHESS) -!~~~> Local variables - KPP_REAL :: Told - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Hessian( Y, FIX, RCONST, Hes ) - TIME = Told - -END SUBROUTINE Hess_Template - -END MODULE KPP_ROOT_Integrator - - - - diff --git a/int.modified_WCOPY/rosenbrock_soa.def b/int.modified_WCOPY/rosenbrock_soa.def deleted file mode 100644 index d61b065590d0e95869da0ee3fdb16ca4cbe00730..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/rosenbrock_soa.def +++ /dev/null @@ -1,23 +0,0 @@ - -#FUNCTION AGGREGATE -#JACOBIAN SPARSE_LU_ROW - -#DOUBLE ON -#INTFILE rosenbrock_soa - -#INLINE F90_GLOBAL - INTEGER Autonomous - COMMON /INTGDATA/ Autonomous - REAL*8 STEPSTART - COMMON /GDATA/ STEPSTART -#ENDINLINE - -#INLINE F90_INIT - STEPMIN=0.0001 - STEPMAX=3600. - Autonomous = 1 - STEPSTART=STEPMIN -#ENDINLINE - - - diff --git a/int.modified_WCOPY/rosenbrock_soa.f90 b/int.modified_WCOPY/rosenbrock_soa.f90 deleted file mode 100644 index 7e4d20eb5f8f638c1649b493f55d5d35f86db7be..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/rosenbrock_soa.f90 +++ /dev/null @@ -1,1942 +0,0 @@ -MODULE KPP_ROOT_Integrator - - USE KPP_ROOT_Precision - USE KPP_ROOT_Parameters - USE KPP_ROOT_Global - USE KPP_ROOT_Function - USE KPP_ROOT_Jacobian - USE KPP_ROOT_Hessian - USE KPP_ROOT_LinearAlgebra - USE KPP_ROOT_Rates - - IMPLICIT NONE - PUBLIC - SAVE -!~~~> Statistics on the work performed by the Rosenbrock method - INTEGER :: Nfun,Njac,Nstp,Nacc,Nrej,Ndec,Nsol,Nsng - INTEGER, PARAMETER :: ifun=11, ijac=12, istp=13, & - iacc=14, irej=15, idec=16, isol=17, & - isng=18, itexit=11,ihexit=12 -!~~~> Checkpoints in memory - INTEGER, PARAMETER :: bufsize = 1500 - INTEGER :: stack_ptr = 0 ! last written entry - KPP_REAL, DIMENSION(:), POINTER :: buf_H, buf_T - KPP_REAL, DIMENSION(:,:), POINTER :: buf_Y, buf_K - KPP_REAL, DIMENSION(:,:), POINTER :: buf_Y_tlm, buf_K_tlm - -CONTAINS - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE INTEGRATE_SOA( NSOA, Y, Y_tlm, Y_adj, Y_soa, TIN, TOUT, & - AtolAdj, RtolAdj, ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - -!~~~> NSOA - No. of vectors to multiply SOA with - INTEGER :: NSOA -!~~~> Y - Forward model variables - KPP_REAL, INTENT(INOUT) :: Y(NVAR) -!~~~> Y_adj - Tangent linear variables - KPP_REAL, INTENT(INOUT) :: Y_tlm(NVAR,NSOA) -!~~~> Y_adj - First order adjoint - KPP_REAL, INTENT(INOUT) :: Y_adj(NVAR) -!~~~> Y_soa - Second order adjoint - KPP_REAL, INTENT(INOUT) :: Y_soa(NVAR,NSOA) -!~~~> - KPP_REAL, INTENT(IN) :: TIN ! TIN - Start Time - KPP_REAL, INTENT(IN) :: TOUT ! TOUT - End Time -!~~~> Optional input parameters and statistics - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - KPP_REAL, INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - KPP_REAL, INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - - INTEGER N_stp, N_acc, N_rej, N_sng, IERR - SAVE N_stp, N_acc, N_rej, N_sng - INTEGER i - KPP_REAL :: RCNTRL(20), RSTATUS(20) - KPP_REAL :: AtolAdj(NVAR), RtolAdj(NVAR) - INTEGER :: ICNTRL(20), ISTATUS(20) - - ICNTRL(1:20) = 0 - RCNTRL(1:20) = 0.0_dp - ISTATUS(1:20) = 0 - RSTATUS(1:20) = 0.0_dp - - ICNTRL(1) = 0 ! 0 = non-autonomous, 1 = autonomous - ICNTRL(2) = 1 ! 0 = scalar, 1 = vector tolerances - RCNTRL(3) = STEPMIN ! starting step - ICNTRL(4) = 5 ! choice of the method for forward and adjoint integration - -! Tighter tolerances, especially atol, are needed for the full continuous adjoint -! (Atol on sensitivities is different than on concentrations) -! CADJ_ATOL(1:NVAR) = 1.0d-5 -! CADJ_RTOL(1:NVAR) = 1.0d-4 - - ! if optional parameters are given, and if they are >=0, - ! then they overwrite default settings - IF (PRESENT(ICNTRL_U)) THEN - WHERE(ICNTRL_U(:) >= 0) ICNTRL(:) = ICNTRL_U(:) - ENDIF - IF (PRESENT(RCNTRL_U)) THEN - WHERE(RCNTRL_U(:) >= 0) RCNTRL(:) = RCNTRL_U(:) - ENDIF - - - CALL RosenbrockSOA(NSOA, & - Y, Y_tlm, Y_adj, Y_soa, & - TIN,TOUT, & - ATOL,RTOL, & - Fun_Template,Jac_Template,Hess_Template, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) - - -! N_stp = N_stp + ICNTRL(istp) -! N_acc = N_acc + ICNTRL(iacc) -! N_rej = N_rej + ICNTRL(irej) -! N_sng = N_sng + ICNTRL(isng) -! PRINT*,'Step=',N_stp,' Acc=',N_acc,' Rej=',N_rej, & -! ' Singular=',N_sng - - IF (IERR < 0) THEN - print *,'RosenbrockSOA: Unsucessful step at T=', & - TIN,' (IERR=',IERR,')' - ENDIF - - STEPMIN = RCNTRL(ihexit) - ! if optional parameters are given for output they to return information - IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(:) - IF (PRESENT(RSTATUS_U)) RSTATUS_U(:) = RSTATUS(:) - -END SUBROUTINE INTEGRATE_SOA - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE RosenbrockSOA( NSOA, & - Y, Y_tlm, Y_adj, Y_soa, & - Tstart,Tend, & - AbsTol,RelTol, & - ode_Fun,ode_Jac , ode_Hess, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! ADJ = Adjoint of the Tangent Linear Model of a RosenbrockSOA Method -! -! Solves the system y'=F(t,y) using a RosenbrockSOA method defined by: -! -! G = 1/(H*gamma(1)) - ode_Jac(t0,Y0) -! T_i = t0 + Alpha(i)*H -! Y_i = Y0 + \sum_{j=1}^{i-1} A(i,j)*K_j -! G * K_i = ode_Fun( T_i, Y_i ) + \sum_{j=1}^S C(i,j)/H * K_j + -! gamma(i)*dF/dT(t0, Y0) -! Y1 = Y0 + \sum_{j=1}^S M(j)*K_j -! -! For details on RosenbrockSOA methods and their implementation consult: -! E. Hairer and G. Wanner -! "Solving ODEs II. Stiff and differential-algebraic problems". -! Springer series in computational mathematics, Springer-Verlag, 1996. -! The codes contained in the book inspired this implementation. -! -! (C) Adrian Sandu, August 2004 -! Virginia Polytechnic Institute and State University -! Contact: sandu@cs.vt.edu -! This implementation is part of KPP - the Kinetic PreProcessor -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT ARGUMENTS: -! -!- Y(NVAR) -> vector of initial conditions (at T=Tstart) -! NSOA -> dimension of linearized system, -! i.e. the number of sensitivity coefficients -!- Y_adj(NVAR) -> vector of initial sensitivity conditions (at T=Tstart) -!- [Tstart,Tend] = time range of integration -! (if Tstart>Tend the integration is performed backwards in time) -!- RelTol, AbsTol = user precribed accuracy -!- SUBROUTINE ode_Fun( T, Y, Ydot ) = ODE function, -! returns Ydot = Y' = F(T,Y) -!- SUBROUTINE ode_Fun( T, Y, Ydot ) = Jacobian of the ODE function, -! returns Jcb = dF/dY -!- ICNTRL(1:10) = integer inputs parameters -!- RCNTRL(1:10) = real inputs parameters -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT ARGUMENTS: -! -!- Y(NVAR) -> vector of final states (at T->Tend) -!- Y_adj(NVAR) -> vector of final sensitivities (at T=Tend) -!- ICNTRL(11:20) -> integer output parameters -!- RCNTRL(11:20) -> real output parameters -!- IERR -> job status upon return -! - succes (positive value) or failure (negative value) - -! = 1 : Success -! = -1 : Improper value for maximal no of steps -! = -2 : Selected RosenbrockSOA method not implemented -! = -3 : Hmin/Hmax/Hstart must be positive -! = -4 : FacMin/FacMax/FacRej must be positive -! = -5 : Improper tolerance values -! = -6 : No of steps exceeds maximum bound -! = -7 : Step size too small -! = -8 : Matrix is repeatedly singular -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT PARAMETERS: -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -! ICNTRL(1) = 1: F = F(y) Independent of T (AUTONOMOUS) -! = 0: F = F(t,y) Depends on T (NON-AUTONOMOUS) -! ICNTRL(2) = 0: AbsTol, RelTol are NVAR-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! ICNTRL(3) -> maximum number of integration steps -! For ICNTRL(3)=0) the default value of 100000 is used -! -! ICNTRL(4) -> selection of a particular Rosenbrock method -! = 0 : default method is Rodas3 -! = 1 : method is Ros2 -! = 2 : method is Ros3 -! = 3 : method is Ros4 -! = 4 : method is Rodas3 -! = 5: method is Rodas4 -! -! ICNTRL(5) -> Type of adjoint algorithm -! = 0 : default is discrete adjoint ( of method ICNTRL(4) ) -! = 1 : no adjoint -! = 2 : discrete adjoint ( of method ICNTRL(4) ) -! = 3 : fully adaptive continuous adjoint ( with method ICNTRL(6) ) -! = 4 : simplified continuous adjoint ( with method ICNTRL(6) ) -! -! ICNTRL(6) -> selection of a particular Rosenbrock method for the -! continuous adjoint integration - for cts adjoint it -! can be different than the forward method ICNTRL(4) -! Note 1: to avoid interpolation errors (which can be huge!) -! it is recommended to use only ICNTRL(6) = 1 or 4 -! Note 2: the performance of the full continuous adjoint -! strongly depends on the forward solution accuracy Abs/RelTol -! -! RCNTRL(1) -> Hmin, lower bound for the integration step size -! It is strongly recommended to keep Hmin = ZERO -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! RCNTRL(3) -> Hstart, starting value for the integration step size -! -! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! RCNTRL(5) -> FacMin,upper bound on step increase factor (default=6) -! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT PARAMETERS: -! -! Note: each call to RosenbrockSOA adds the corrent no. of fcn calls -! to previous value of ISTATUS(1), and similar for the other params. -! Set ISTATUS(1:10) = 0 before call to avoid this accumulation. -! -! ISTATUS(1) = No. of function calls -! ISTATUS(2) = No. of jacobian calls -! ISTATUS(3) = No. of steps -! ISTATUS(4) = No. of accepted steps -! ISTATUS(5) = No. of rejected steps (except at the beginning) -! ISTATUS(6) = No. of LU decompositions -! ISTATUS(7) = No. of forward/backward substitutions -! ISTATUS(8) = No. of singular matrix decompositions -! -! RSTATUS(1) -> Texit, the time corresponding to the -! computed Y upon return -! RSTATUS(2) -> Hexit, last accepted step before exit -! For multiple restarts, use Hexit as Hstart in the following run -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - -!~~~> Arguments - INTEGER, INTENT(IN) :: NSOA - KPP_REAL, INTENT(INOUT) :: Y(NVAR) - KPP_REAL, INTENT(INOUT) :: Y_tlm(NVAR,NSOA) - KPP_REAL, INTENT(INOUT) :: Y_adj(NVAR) - KPP_REAL, INTENT(INOUT) :: Y_soa(NVAR,NSOA) - KPP_REAL, INTENT(IN) :: Tstart, Tend - KPP_REAL, INTENT(IN) :: AbsTol(NVAR),RelTol(NVAR) - INTEGER, INTENT(IN) :: ICNTRL(20) - KPP_REAL, INTENT(IN) :: RCNTRL(20) - INTEGER, INTENT(INOUT) :: ISTATUS(20) - KPP_REAL, INTENT(INOUT) :: RSTATUS(20) - INTEGER, INTENT(OUT) :: IERR -!~~~> The method parameters - INTEGER, PARAMETER :: Smax = 6 - INTEGER :: Method, ros_S - KPP_REAL, DIMENSION(Smax) :: ros_M, ros_E, ros_Alpha, ros_Gamma - KPP_REAL, DIMENSION(Smax*(Smax-1)/2) :: ros_A, ros_C - KPP_REAL :: ros_ELO - LOGICAL, DIMENSION(Smax) :: ros_NewF - CHARACTER(LEN=12) :: ros_Name -!~~~> Local variables - KPP_REAL :: Roundoff, FacMin, FacMax, FacRej, FacSafe - KPP_REAL :: Hmin, Hmax, Hstart, Hexit - KPP_REAL :: T - INTEGER :: i, UplimTol, Max_no_steps - LOGICAL :: Autonomous, VectorTol -!~~~> Parameters - KPP_REAL, PARAMETER :: ZERO = 0.0d0, ONE = 1.0d0 - KPP_REAL, PARAMETER :: DeltaMin = 1.0d-5 -!~~~> Functions - EXTERNAL ode_Fun, ode_Jac, ode_Hess - -!~~~> Initialize statistics - Nfun = ISTATUS(ifun) - Njac = ISTATUS(ijac) - Nstp = ISTATUS(istp) - Nacc = ISTATUS(iacc) - Nrej = ISTATUS(irej) - Ndec = ISTATUS(idec) - Nsol = ISTATUS(isol) - Nsng = ISTATUS(isng) - -!~~~> Autonomous or time dependent ODE. Default is time dependent. - Autonomous = .NOT.(ICNTRL(1) == 0) - -!~~~> For Scalar tolerances (ICNTRL(2).NE.0) -! the code uses AbsTol(1) and RelTol(1) -! For Vector tolerances (ICNTRL(2) == 0) -! the code uses AbsTol(1:NVAR) and RelTol(1:NVAR) - IF (ICNTRL(2) == 0) THEN - VectorTol = .TRUE. - UplimTol = NVAR - ELSE - VectorTol = .FALSE. - UplimTol = 1 - END IF - -!~~~> The maximum number of steps admitted - IF (ICNTRL(3) == 0) THEN - Max_no_steps = bufsize - 1 - ELSEIF (Max_no_steps > 0) THEN - Max_no_steps=ICNTRL(3) - ELSE - PRINT * ,'User-selected max no. of steps: ICNTRL(3)=',ICNTRL(3) - CALL ros_ErrorMsg(-1,Tstart,ZERO,IERR) - RETURN - END IF - -!~~~> The particular Rosenbrock method chosen - IF (ICNTRL(4) == 0) THEN - Method = 5 - ELSEIF ( (ICNTRL(4) >= 1).AND.(ICNTRL(4) <= 5) ) THEN - Method = ICNTRL(4) - ELSE - PRINT * , 'User-selected Rosenbrock method: ICNTRL(4)=', Method - CALL ros_ErrorMsg(-2,Tstart,ZERO,IERR) - RETURN - END IF - - -!~~~> Unit roundoff (1+Roundoff>1) - Roundoff = WLAMCH('E') - -!~~~> Lower bound on the step size: (positive value) - IF (RCNTRL(1) == ZERO) THEN - Hmin = ZERO - ELSEIF (RCNTRL(1) > ZERO) THEN - Hmin = RCNTRL(1) - ELSE - PRINT * , 'User-selected Hmin: RCNTRL(1)=', RCNTRL(1) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Upper bound on the step size: (positive value) - IF (RCNTRL(2) == ZERO) THEN - Hmax = ABS(Tend-Tstart) - ELSEIF (RCNTRL(2) > ZERO) THEN - Hmax = MIN(ABS(RCNTRL(2)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hmax: RCNTRL(2)=', RCNTRL(2) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Starting step size: (positive value) - IF (RCNTRL(3) == ZERO) THEN - Hstart = MAX(Hmin,DeltaMin) - ELSEIF (RCNTRL(3) > ZERO) THEN - Hstart = MIN(ABS(RCNTRL(3)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hstart: RCNTRL(3)=', RCNTRL(3) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Step size can be changed s.t. FacMin < Hnew/Hexit < FacMax - IF (RCNTRL(4) == ZERO) THEN - FacMin = 0.2d0 - ELSEIF (RCNTRL(4) > ZERO) THEN - FacMin = RCNTRL(4) - ELSE - PRINT * , 'User-selected FacMin: RCNTRL(4)=', RCNTRL(4) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF - IF (RCNTRL(5) == ZERO) THEN - FacMax = 6.0d0 - ELSEIF (RCNTRL(5) > ZERO) THEN - FacMax = RCNTRL(5) - ELSE - PRINT * , 'User-selected FacMax: RCNTRL(5)=', RCNTRL(5) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacRej: Factor to decrease step after 2 succesive rejections - IF (RCNTRL(6) == ZERO) THEN - FacRej = 0.1d0 - ELSEIF (RCNTRL(6) > ZERO) THEN - FacRej = RCNTRL(6) - ELSE - PRINT * , 'User-selected FacRej: RCNTRL(6)=', RCNTRL(6) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacSafe: Safety Factor in the computation of new step size - IF (RCNTRL(7) == ZERO) THEN - FacSafe = 0.9d0 - ELSEIF (RCNTRL(7) > ZERO) THEN - FacSafe = RCNTRL(7) - ELSE - PRINT * , 'User-selected FacSafe: RCNTRL(7)=', RCNTRL(7) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Check if tolerances are reasonable - DO i=1,UplimTol - IF ( (AbsTol(i) <= ZERO) .OR. (RelTol(i) <= 10.d0*Roundoff) & - .OR. (RelTol(i) >= 1.0d0) ) THEN - PRINT * , ' AbsTol(',i,') = ',AbsTol(i) - PRINT * , ' RelTol(',i,') = ',RelTol(i) - CALL ros_ErrorMsg(-5,Tstart,ZERO,IERR) - RETURN - END IF - END DO - - -!~~~> Initialize the particular RosenbrockSOA method - SELECT CASE (Method) - CASE (1) - CALL Ros2(ros_S, ros_A, ros_C, ros_M, ros_E, & - ros_Alpha, ros_Gamma, ros_NewF, ros_ELO, ros_Name) - CASE (2) - CALL Ros3(ros_S, ros_A, ros_C, ros_M, ros_E, & - ros_Alpha, ros_Gamma, ros_NewF, ros_ELO, ros_Name) - CASE (3) - CALL Ros4(ros_S, ros_A, ros_C, ros_M, ros_E, & - ros_Alpha, ros_Gamma, ros_NewF, ros_ELO, ros_Name) - CASE (4) - CALL Rodas3(ros_S, ros_A, ros_C, ros_M, ros_E, & - ros_Alpha, ros_Gamma, ros_NewF, ros_ELO, ros_Name) - CASE (5) - CALL Rodas4(ros_S, ros_A, ros_C, ros_M, ros_E, & - ros_Alpha, ros_Gamma, ros_NewF, ros_ELO, ros_Name) - CASE DEFAULT - PRINT * , 'Unknown Rosenbrock method: ICNTRL(4)=', Method - CALL ros_ErrorMsg(-2,Tstart,ZERO,IERR) - RETURN - END SELECT - -!~~~> Allocate checkpoint space or open checkpoint files - CALL ros_AllocateDBuffers( ros_S ) - -!~~~> Forward Rosenbrock and TLM integration - CALL ros_TlmInt (NSOA, Y, Y_tlm, & - Tstart, Tend, T, & - AbsTol, RelTol, & - ode_Fun, ode_Jac, ode_Hess, & -!~~~> Rosenbrock method coefficients - ros_S, ros_M, ros_E, ros_A, ros_C, & - ros_Alpha, ros_Gamma, ros_ELO, ros_NewF, & -!~~~> Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, Hexit, & - FacMin, FacMax, FacRej, FacSafe, & -!~~~> Error indicator - IERR ) - - PRINT*,'FORWARD STATISTICS' - PRINT*,'Step=',Nstp,' Acc=',Nacc, & - ' Rej=',Nrej, ' Singular=',Nsng - Nstp = 0 - Nacc = 0 - Nrej = 0 - Nsng = 0 - -!~~~> If Forward integration failed return - IF (IERR<0) RETURN - -!~~~> Backward ADJ and SOADJ Rosenbrock integration - CALL ros_SoaInt ( & - NSOA, Y_adj, Y_soa, & - Tstart, Tend, T, & - AbsTol, RelTol, & - ode_Fun, ode_Jac, ode_Hess, & -!~~~> RosenbrockSOA method coefficients - ros_S, ros_M, ros_E, ros_A, ros_C, & - ros_Alpha, ros_Gamma, ros_ELO, ros_NewF, & -!~~~> Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -!~~~> Error indicator - IERR ) - - - PRINT*,'ADJOINT STATISTICS' - PRINT*,'Step=',Nstp,' Acc=',Nacc, & - ' Rej=',Nrej, ' Singular=',Nsng - -!~~~> Free checkpoint space or close checkpoint files - CALL ros_FreeDBuffers - -!~~~> Collect run statistics - ISTATUS(ifun) = Nfun - ISTATUS(ijac) = Njac - ISTATUS(istp) = Nstp - ISTATUS(iacc) = Nacc - ISTATUS(irej) = Nrej - ISTATUS(idec) = Ndec - ISTATUS(isol) = Nsol - ISTATUS(isng) = Nsng -!~~~> Last T and H - RSTATUS(itexit) = T - RSTATUS(ihexit) = Hexit - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - END SUBROUTINE RosenbrockSOA -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_ErrorMsg(Code,T,H,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - KPP_REAL, INTENT(IN) :: T, H - INTEGER, INTENT(IN) :: Code - INTEGER, INTENT(OUT) :: IERR - - IERR = Code - PRINT * , & - 'Forced exit from RosenbrockSOA due to the following error:' - - SELECT CASE (Code) - CASE (-1) - PRINT * , '--> Improper value for maximal no of steps' - CASE (-2) - PRINT * , '--> Selected RosenbrockSOA method not implemented' - CASE (-3) - PRINT * , '--> Hmin/Hmax/Hstart must be positive' - CASE (-4) - PRINT * , '--> FacMin/FacMax/FacRej must be positive' - CASE (-5) - PRINT * , '--> Improper tolerance values' - CASE (-6) - PRINT * , '--> No of steps exceeds maximum bound' - CASE (-7) - PRINT * , '--> Step size too small: T + 10*H = T', & - ' or H < Roundoff' - CASE (-8) - PRINT * , '--> Matrix is repeatedly singular' - CASE (-9) - PRINT * , '--> Improper type of adjoint selected' - CASE DEFAULT - PRINT *, 'Unknown Error code: ', Code - END SELECT - - PRINT *, "T=", T, "and H=", H - - END SUBROUTINE ros_ErrorMsg - - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_TlmInt (NSOA, Y, Y_tlm, & - Tstart, Tend, T, & - AbsTol, RelTol, & - ode_Fun, ode_Jac, ode_Hess, & -!~~~> Rosenbrock method coefficients - ros_S, ros_M, ros_E, ros_A, ros_C, & - ros_Alpha, ros_Gamma, ros_ELO, ros_NewF, & -!~~~> Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, Hexit, & - FacMin, FacMax, FacRej, FacSafe, & -!~~~> Error indicator - IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the implementation of a generic Rosenbrock method -! defined by ros_S (no of stages) -! and its coefficients ros_{A,C,M,E,Alpha,Gamma} -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - -!~~~> Input: the initial condition at Tstart; Output: the solution at T - KPP_REAL, INTENT(INOUT) :: Y(NVAR) -!~~~> Input: Number of sensitivity coefficients - INTEGER, INTENT(IN) :: NSOA -!~~~> Input: the initial sensitivites at Tstart; Output: the sensitivities at T - KPP_REAL, INTENT(INOUT) :: Y_tlm(NVAR,NSOA) -!~~~> Input: integration interval - KPP_REAL, INTENT(IN) :: Tstart,Tend -!~~~> Output: time at which the solution is returned (T=Tend if success) - KPP_REAL, INTENT(OUT) :: T -!~~~> Input: tolerances - KPP_REAL, INTENT(IN) :: AbsTol(NVAR), RelTol(NVAR) -!~~~> Input: ode function and its Jacobian - EXTERNAL ode_Fun, ode_Jac, ode_Hess -!~~~> Input: The Rosenbrock method parameters - INTEGER, INTENT(IN) :: ros_S - KPP_REAL, INTENT(IN) :: ros_M(ros_S), ros_E(ros_S), & - ros_Alpha(ros_S), ros_A(ros_S*(ros_S-1)/2), & - ros_Gamma(ros_S), ros_C(ros_S*(ros_S-1)/2), ros_ELO - LOGICAL, INTENT(IN) :: ros_NewF(ros_S) -!~~~> Input: integration parameters - LOGICAL, INTENT(IN) :: Autonomous, VectorTol - KPP_REAL, INTENT(IN) :: Hstart, Hmin, Hmax - INTEGER, INTENT(IN) :: Max_no_steps - KPP_REAL, INTENT(IN) :: Roundoff, FacMin, FacMax, FacRej, FacSafe -!~~~> Output: last accepted step - KPP_REAL, INTENT(OUT) :: Hexit -!~~~> Output: Error indicator - INTEGER, INTENT(OUT) :: IERR -! ~~~~ Local variables - KPP_REAL :: Ystage(NVAR*ros_S), Fcn0(NVAR), Fcn(NVAR) - KPP_REAL :: K(NVAR*ros_S), Tmp(NVAR) - KPP_REAL :: Ystage_tlm(NVAR*ros_S,NSOA), Fcn0_tlm(NVAR,NSOA), Fcn_tlm(NVAR,NSOA) - KPP_REAL :: K_tlm(NVAR*ros_S,NSOA) - KPP_REAL :: Hes0(NHESS) - KPP_REAL :: dFdT(NVAR), dJdT(LU_NONZERO) - KPP_REAL :: Jac0(LU_NONZERO), Jac(LU_NONZERO), Ghimj(LU_NONZERO) - KPP_REAL :: H, Hnew, HC, HG, Fac, Tau - KPP_REAL :: Err, Yerr(NVAR), Ynew(NVAR), Ynew_tlm(NVAR,NSOA) - INTEGER :: Pivot(NVAR), Direction, ioffset, joffset, j, istage, mtlm - LOGICAL :: RejectLastH, RejectMoreH, Singular -!~~~> Local parameters - KPP_REAL, PARAMETER :: ZERO = 0.0d0, ONE = 1.0d0 - KPP_REAL, PARAMETER :: DeltaMin = 1.0d-5 -!~~~> Locally called functions -! KPP_REAL WLAMCH -! EXTERNAL WLAMCH -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~> Initial preparations - T = Tstart - Hexit = 0.0_dp - H = MIN(Hstart,Hmax) - IF (ABS(H) <= 10.D0*Roundoff) H = DeltaMin - - IF (Tend >= Tstart) THEN - Direction = +1 - ELSE - Direction = -1 - END IF - - RejectLastH=.FALSE. - RejectMoreH=.FALSE. - -!~~~> Time loop begins below - -TimeLoop: DO WHILE ( (Direction > 0).AND.((T-Tend)+Roundoff <= ZERO) & - .OR. (Direction < 0).AND.((Tend-T)+Roundoff <= ZERO) ) - - IF ( Nstp > Max_no_steps ) THEN ! Too many steps - CALL ros_ErrorMsg(-6,T,H,IERR) - RETURN - END IF - IF ( ((T+0.1d0*H) == T).OR.(H <= Roundoff) ) THEN ! Step size too small - CALL ros_ErrorMsg(-7,T,H,IERR) - RETURN - END IF - -!~~~> Limit H if necessary to avoid going beyond Tend - Hexit = H - H = MIN(H,ABS(Tend-T)) - -!~~~> Compute the function at current time - CALL ode_Fun(T,Y,Fcn0) - -!~~~> Compute the Jacobian at current time - CALL ode_Jac(T,Y,Jac0) - -!~~~> Compute the Hessian at current time - CALL ode_Hess(T,Y,Hes0) - -!~~~> Compute the TLM function at current time - DO mtlm = 1, NSOA - CALL Jac_SP_Vec ( Jac0, Y_tlm(1:NVAR,mtlm), Fcn0_tlm(1:NVAR,mtlm) ) - END DO - -!~~~> Compute the function and Jacobian derivatives with respect to T - IF (.NOT.Autonomous) THEN - CALL ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, ode_Fun, dFdT ) - CALL ros_JacTimeDerivative ( T, Roundoff, Y, & - Jac0, ode_Jac, dJdT ) - END IF - -!~~~> Repeat step calculation until current step accepted -UntilAccepted: DO - - CALL ros_PrepareMatrix(H,Direction,ros_Gamma(1),& - Jac0,Ghimj,Pivot,Singular) - IF (Singular) THEN ! More than 5 consecutive failed decompositions - CALL ros_ErrorMsg(-8,T,H,IERR) - RETURN - END IF - -!~~~> Compute the stages -Stage: DO istage = 1, ros_S - - ! Current istage vector is K(ioffset+1:ioffset+NVAR:ioffset+1+NVAR-1) - ioffset = NVAR*(istage-1) - - ! For the 1st istage the function has been computed previously - IF ( istage == 1 ) THEN - CALL WCOPY(NVAR,Y,1,Ystage(ioffset+1:ioffset+NVAR),1) - DO mtlm=1,NSOA - CALL WCOPY(NVAR,Y_tlm(1:NVAR,mtlm),1,Ystage_tlm(ioffset+1:ioffset+NVAR,mtlm),1) - END DO - CALL WCOPY(NVAR,Fcn0,1,Fcn,1) - CALL WCOPY(NVAR*NSOA,Fcn0_tlm,1,Fcn_tlm,1) - ! istage>1 and a new function evaluation is needed at the current istage - ELSEIF ( ros_NewF(istage) ) THEN - CALL WCOPY(NVAR,Y,1,Ystage(ioffset+1:ioffset+NVAR),1) - DO mtlm=1,NSOA - CALL WCOPY(NVAR,Y_tlm(1:NVAR,mtlm),1,Ystage_tlm(ioffset+1:ioffset+NVAR,mtlm),1) - END DO - DO j = 1, istage-1 - joffset = NVAR*(j-1) - CALL WAXPY(NVAR,ros_A((istage-1)*(istage-2)/2+j), & - K(joffset+1:joffset+NVAR),1,Ystage(ioffset+1:ioffset+NVAR),1) - DO mtlm=1,NSOA - CALL WAXPY(NVAR,ros_A((istage-1)*(istage-2)/2+j), & - K_tlm(joffset+1:joffset+NVAR,mtlm),1,Ystage_tlm(ioffset+1:ioffset+NVAR,mtlm),1) - END DO - END DO - Tau = T + ros_Alpha(istage)*Direction*H - CALL ode_Fun(Tau,Ystage(ioffset+1:ioffset+NVAR),Fcn) - CALL ode_Jac(Tau,Ystage(ioffset+1:ioffset+NVAR),Jac) - DO mtlm=1,NSOA - CALL Jac_SP_Vec ( Jac, Ystage_tlm(ioffset+1:ioffset+NVAR,mtlm), Fcn_tlm(1:NVAR,mtlm) ) - END DO - END IF ! if istage == 1 elseif ros_NewF(istage) - - CALL WCOPY(NVAR,Fcn,1,K(ioffset+1:ioffset+NVAR),1) - DO mtlm=1,NSOA - CALL WCOPY(NVAR,Fcn_tlm(1:NVAR,mtlm),1,K_tlm(ioffset+1:ioffset+NVAR,mtlm),1) - END DO - DO j = 1, istage-1 - HC = ros_C((istage-1)*(istage-2)/2+j)/(Direction*H) - CALL WAXPY(NVAR,HC,K(NVAR*(j-1)+1:NVAR*j),1,K(ioffset+1:ioffset+NVAR),1) - DO mtlm=1,NSOA - CALL WAXPY(NVAR,HC,K_tlm(NVAR*(j-1)+1:NVAR*j,mtlm),1,K_tlm(ioffset+1:ioffset+NVAR,mtlm),1) - END DO - END DO - IF ((.NOT. Autonomous).AND.(ros_Gamma(istage).NE.ZERO)) THEN - HG = Direction*H*ros_Gamma(istage) - CALL WAXPY(NVAR,HG,dFdT,1,K(ioffset+1:ioffset+NVAR),1) - DO mtlm=1,NSOA - CALL Jac_SP_Vec ( dJdT, Ystage_tlm(ioffset+1:ioffset+NVAR,mtlm), Fcn_tlm(1:NVAR,mtlm) ) - CALL WAXPY(NVAR,HG,Fcn_tlm(1:NVAR,mtlm),1,K_tlm(ioffset+1:ioffset+NVAR,mtlm),1) - END DO - END IF - CALL ros_Solve('N', Ghimj, Pivot, K(ioffset+1:ioffset+NVAR)) - DO mtlm=1,NSOA - CALL Hess_Vec ( Hes0, K(ioffset+1:ioffset+NVAR), Y_tlm(1:NVAR,mtlm), Tmp ) - CALL WAXPY(NVAR,ONE,Tmp,1,K_tlm(ioffset+1:ioffset+NVAR,mtlm),1) - CALL ros_Solve('N', Ghimj, Pivot, K_tlm(ioffset+1:ioffset+NVAR,mtlm)) - END DO - - END DO Stage - - -!~~~> Compute the new solution - CALL WCOPY(NVAR,Y,1,Ynew,1) - DO j=1,ros_S - CALL WAXPY(NVAR,ros_M(j),K(NVAR*(j-1)+1:NVAR*j),1,Ynew,1) - END DO - DO mtlm=1,NSOA - CALL WCOPY(NVAR,Y_tlm(1:NVAR,mtlm),1,Ynew_tlm(1:NVAR,mtlm),1) - DO j=1,ros_S - joffset = NVAR*(j-1) - CALL WAXPY(NVAR,ros_M(j),K_tlm(joffset+1:joffset+NVAR,mtlm),1,Ynew_tlm(1:NVAR,mtlm),1) - END DO - END DO - -!~~~> Compute the error estimation - CALL WSCAL(NVAR,ZERO,Yerr,1) - DO j=1,ros_S - CALL WAXPY(NVAR,ros_E(j),K(NVAR*(j-1)+1:NVAR*j),1,Yerr,1) - END DO - Err = ros_ErrorNorm ( Y, Ynew, Yerr, AbsTol, RelTol, VectorTol ) - -!~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax - Fac = MIN(FacMax,MAX(FacMin,FacSafe/Err**(ONE/ros_ELO))) - Hnew = H*Fac - -!~~~> Check the error magnitude and adjust step size - Nstp = Nstp+1 - IF ( (Err <= ONE).OR.(H <= Hmin) ) THEN !~~~> Accept step - Nacc = Nacc+1 - !~~~> Checkpoints for stage values and vectors - CALL ros_DPush( ros_S, NSOA, T, H, Ystage, K, Ystage_tlm, K_tlm ) - !~~~> Accept new solution, etc. - CALL WCOPY(NVAR,Ynew,1,Y,1) - CALL WCOPY(NVAR*NSOA,Ynew_tlm,1,Y_tlm,1) - T = T + Direction*H - Hnew = MAX(Hmin,MIN(Hnew,Hmax)) - IF (RejectLastH) THEN ! No step size increase after a rejected step - Hnew = MIN(Hnew,H) - END IF - RejectLastH = .FALSE. - RejectMoreH = .FALSE. - H = Hnew - EXIT UntilAccepted ! EXIT THE LOOP: WHILE STEP NOT ACCEPTED - ELSE !~~~> Reject step - IF (RejectMoreH) THEN - Hnew = H*FacRej - END IF - RejectMoreH = RejectLastH - RejectLastH = .TRUE. - H = Hnew - IF (Nacc >= 1) THEN - Nrej = Nrej+1 - END IF - END IF ! Err <= 1 - - END DO UntilAccepted - - END DO TimeLoop - -!~~~> Succesful exit - IERR = 1 !~~~> The integration was successful - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - END SUBROUTINE ros_TlmInt -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_SoaInt ( & - NSOA, Lambda, Sigma, & - Tstart, Tend, T, & - AbsTol, RelTol, & - ode_Fun, ode_Jac, ode_Hess, & -!~~~> RosenbrockSOA method coefficients - ros_S, ros_M, ros_E, ros_A, ros_C, & - ros_Alpha, ros_Gamma, ros_ELO, ros_NewF, & -!~~~> Integration parameters - Autonomous, VectorTol, Max_no_steps, & - Roundoff, Hmin, Hmax, Hstart, & - FacMin, FacMax, FacRej, FacSafe, & -!~~~> Error indicator - IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the implementation of a generic RosenbrockSOA method -! defined by ros_S (no of stages) -! and its coefficients ros_{A,C,M,E,Alpha,Gamma} -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - -!~~~> Input: the initial condition at Tstart; Output: the solution at T - INTEGER, INTENT(IN) :: NSOA -!~~~> First order adjoint - KPP_REAL, INTENT(INOUT) :: Lambda(NVAR) -!~~~> Second order adjoint - KPP_REAL, INTENT(INOUT) :: Sigma(NVAR,NSOA) -!~~~> Input: integration interval - KPP_REAL, INTENT(IN) :: Tstart,Tend -!~~~> Output: time at which the solution is returned (T=Tend if success) - KPP_REAL, INTENT(OUT) :: T -!~~~> Input: tolerances - KPP_REAL, INTENT(IN) :: AbsTol(NVAR), RelTol(NVAR) -!~~~> Input: ode function and its Jacobian - EXTERNAL ode_Fun, ode_Jac, ode_Hess -!~~~> Input: The RosenbrockSOA method parameters - INTEGER, INTENT(IN) :: ros_S - KPP_REAL, INTENT(IN) :: ros_M(ros_S), ros_E(ros_S), & - ros_Alpha(ros_S), ros_A(ros_S*(ros_S-1)/2), & - ros_Gamma(ros_S), ros_C(ros_S*(ros_S-1)/2), ros_ELO - LOGICAL, INTENT(IN) :: ros_NewF(ros_S) -!~~~> Input: integration parameters - LOGICAL, INTENT(IN) :: Autonomous, VectorTol - KPP_REAL, INTENT(IN) :: Hstart, Hmin, Hmax - INTEGER, INTENT(IN) :: Max_no_steps - KPP_REAL, INTENT(IN) :: Roundoff, FacMin, FacMax, FacRej, FacSafe -!~~~> Output: Error indicator - INTEGER, INTENT(OUT) :: IERR -! ~~~~ Local variables - !KPP_REAL :: Ystage_adj(NVAR,NSOA) - !KPP_REAL :: dFdT(NVAR) - KPP_REAL :: Ystage(NVAR*ros_S), K(NVAR*ros_S) - KPP_REAL :: Ystage_tlm(NVAR*ros_S,NSOA), K_tlm(NVAR*ros_S,NSOA) - KPP_REAL :: U(NVAR*ros_S), V(NVAR*ros_S) - KPP_REAL :: W(NVAR*ros_S,NSOA), Z(NVAR*ros_S,NSOA) - KPP_REAL :: Jac(LU_NONZERO), dJdT(LU_NONZERO), Ghimj(LU_NONZERO) - KPP_REAL :: Hes0(NHESS), Hes1(NHESS), dHdT(NHESS) - KPP_REAL :: Tmp(NVAR), Tmp2(NVAR) - KPP_REAL :: H, HC, HA, Tau - INTEGER :: Pivot(NVAR), Direction, i, ioffset, joffset - INTEGER :: msoa, j, istage -!~~~> Local parameters - KPP_REAL, PARAMETER :: ZERO = 0.0d0, ONE = 1.0d0 - KPP_REAL, PARAMETER :: DeltaMin = 1.0d-5 -!~~~> Locally called functions -! KPP_REAL WLAMCH -! EXTERNAL WLAMCH -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - - IF (Tend >= Tstart) THEN - Direction = +1 - ELSE - Direction = -1 - END IF - -!~~~> Time loop begins below -TimeLoop: DO WHILE ( stack_ptr > 0 ) - - !~~~> Recover checkpoints for stage values and vectors - CALL ros_DPop( ros_S, NSOA, T, H, Ystage, K, Ystage_tlm, K_tlm ) - - Nstp = Nstp+1 - -!~~~> Compute LU decomposition - CALL ode_Jac(T,Ystage(1:NVAR),Ghimj) - CALL WSCAL(LU_NONZERO,(-ONE),Ghimj,1) - Tau = ONE/(Direction*H*ros_Gamma(1)) - DO i=1,NVAR - Ghimj(LU_DIAG(i)) = Ghimj(LU_DIAG(i))+Tau - END DO - CALL ros_Decomp( Ghimj, Pivot, j ) - -!~~~> Compute Hessian at the beginning of the interval - CALL ode_Hess(T,Ystage(1),Hes0) - -!~~~> Compute the stages -Stage: DO istage = ros_S, 1, -1 - - !~~~> Current istage offset. - ioffset = NVAR*(istage-1) - - !~~~> Compute U - CALL WCOPY(NVAR,Lambda,1,U(ioffset+1:ioffset+NVAR),1) - CALL WSCAL(NVAR,ros_M(istage),U(ioffset+1:ioffset+NVAR),1) - DO j = istage+1, ros_S - joffset = NVAR*(j-1) - HA = ros_A((j-1)*(j-2)/2+istage) - HC = ros_C((j-1)*(j-2)/2+istage)/(Direction*H) - CALL WAXPY(NVAR,HA,V(joffset+1:joffset+NVAR),1,U(ioffset+1:ioffset+NVAR),1) - CALL WAXPY(NVAR,HC,U(joffset+1:joffset+NVAR),1,U(ioffset+1:ioffset+NVAR),1) - END DO - CALL ros_Solve('T', Ghimj, Pivot, U(ioffset+1:ioffset+NVAR)) - !~~~> Compute W - DO msoa = 1, NSOA - CALL WCOPY(NVAR,Sigma(1:NVAR,msoa),1,W(ioffset+1:ioffset+NVAR,msoa),1) - CALL WSCAL(NVAR,ros_M(istage),W(ioffset+1:ioffset+NVAR,msoa),1) - END DO - DO j = istage+1, ros_S - joffset = NVAR*(j-1) - HA = ros_A((j-1)*(j-2)/2+istage) - HC = ros_C((j-1)*(j-2)/2+istage)/(Direction*H) - DO msoa = 1, NSOA - CALL WAXPY(NVAR,HA, & - Z(joffset+1:joffset+NVAR,msoa),1,W(ioffset+1:ioffset+NVAR,msoa),1) - CALL WAXPY(NVAR,HC, & - W(joffset+1:joffset+NVAR,msoa),1,W(ioffset+1:ioffset+NVAR,msoa),1) - END DO - END DO - DO msoa = 1, NSOA - CALL HessTR_Vec( Hes0, U(ioffset+1:ioffset+NVAR), Ystage_tlm(ioffset+1:ioffset+NVAR,msoa), Tmp ) - CALL WAXPY(NVAR,ONE,Tmp,1,W(ioffset+1:ioffset+NVAR,msoa),1) - CALL ros_Solve('T', Ghimj, Pivot, W(ioffset+1:ioffset+NVAR,msoa)) - END DO - !~~~> Compute V - Tau = T + ros_Alpha(istage)*Direction*H - CALL ode_Jac(Tau,Ystage(ioffset+1:ioffset+NVAR),Jac) - CALL JacTR_SP_Vec(Jac,U(ioffset+1:ioffset+NVAR),V(ioffset+1:ioffset+NVAR)) - !~~~> Compute Z - CALL ode_Hess(T,Ystage(ioffset+1:ioffset+NVAR),Hes1) - DO msoa = 1, NSOA - CALL JacTR_SP_Vec(Jac,W(ioffset+1:ioffset+NVAR,msoa),Z(ioffset+1:ioffset+NVAR,msoa)) - CALL HessTR_Vec( Hes1, U(ioffset+1:ioffset+NVAR), Ystage_tlm(ioffset+1:ioffset+NVAR,msoa), Tmp ) - CALL WAXPY(NVAR,ONE,Tmp,1,Z(ioffset+1:ioffset+NVAR,msoa),1) - END DO - - END DO Stage - - IF (.NOT.Autonomous) THEN -!~~~> Compute the Jacobian derivative with respect to T. -! Last "Jac" computed for stage 1 - CALL ros_JacTimeDerivative ( T, Roundoff, Ystage(1), & - Jac, ode_Jac, dJdT ) -!~~~> Compute the Hessian derivative with respect to T. -! Last "Jac" computed for stage 1 - CALL ros_HesTimeDerivative ( T, Roundoff, Ystage(1), & - Hes0, ode_Hess, dHdT ) - END IF - -!~~~> Compute the new solution - - !~~~> Compute Lambda - DO istage=1,ros_S - ioffset = NVAR*(istage-1) - ! Add V_i - CALL WAXPY(NVAR,ONE,V(ioffset+1:ioffset+NVAR),1,Lambda,1) - ! Add (H0xK_i)^T * U_i - CALL HessTR_Vec ( Hes0, U(ioffset+1:ioffset+NVAR), K(ioffset+1:ioffset+NVAR), Tmp ) - CALL WAXPY(NVAR,ONE,Tmp,1,Lambda,1) - END DO - ! Add H * dJac_dT_0^T * \sum(gamma_i U_i) - ! Tmp holds sum gamma_i U_i - IF (.NOT.Autonomous) THEN - Tmp(1:NVAR) = ZERO - DO istage = 1, ros_S - ioffset = NVAR*(istage-1) - CALL WAXPY(NVAR,ros_Gamma(istage),U(ioffset+1:ioffset+NVAR),1,Tmp,1) - END DO - CALL JacTR_SP_Vec(dJdT,Tmp,Tmp2) - CALL WAXPY(NVAR,H,Tmp2,1,Lambda,1) - END IF ! .NOT.Autonomous - - !~~~> Compute Sigma - DO msoa = 1, NSOA - - DO istage=1,ros_S - ioffset = NVAR*(istage-1) - ! Add Z_i - CALL WAXPY(NVAR,ONE,Z(ioffset+1:ioffset+NVAR,msoa),1,Sigma(1:NVAR,msoa),1) - ! Add (Hess_0 x K_i)^T * W_i - CALL HessTR_Vec ( Hes0, W(ioffset+1:ioffset+NVAR,msoa), K(ioffset+1:ioffset+NVAR), Tmp ) - CALL WAXPY(NVAR,ONE,Tmp,1,Sigma(1:NVAR,msoa),1) - ! Add (Hess_0 x K_tlm_i)^T * U_i - CALL HessTR_Vec ( Hes0, U(ioffset+1:ioffset+NVAR), K_tlm(ioffset+1:ioffset+NVAR,msoa), Tmp ) - CALL WAXPY(NVAR,ONE,Tmp,1,Sigma(1:NVAR,msoa),1) - END DO - - !~~~> Add high derivative terms - DO istage=1,ros_S - ioffset = NVAR*(istage-1) - CALL ros_HighDerivative ( T, Roundoff, Ystage(1), Hes0, K(ioffset+1:ioffset+NVAR), & - U(ioffset+1:ioffset+NVAR), Ystage_tlm(1:NVAR,msoa), ode_Hess, Tmp) - CALL WAXPY(NVAR,ONE,Tmp,1,Sigma(1:NVAR,msoa),1) - END DO - - IF (.NOT.Autonomous) THEN - ! Add H * dJac_dT_0^T * \sum(gamma_i W_i) - ! Tmp holds sum gamma_i W_i - Tmp(1:NVAR) = ZERO - DO istage = 1, ros_S - ioffset = NVAR*(istage-1) - CALL WAXPY(NVAR,ros_Gamma(istage),W(ioffset+1:ioffset+NVAR,msoa),1,Tmp,1) - END DO - CALL JacTR_SP_Vec(dJdT,Tmp,Tmp2) - CALL WAXPY(NVAR,H,Tmp2,1,Sigma(1:NVAR,msoa),1) - ! Add H * ( dHess_dT_0 x Y_tlm_0)^T * \sum(gamma_i U_i) - ! Tmp holds sum gamma_i U_i - Tmp(1:NVAR) = ZERO - DO istage = 1, ros_S - ioffset = NVAR*(istage-1) - CALL WAXPY(NVAR,ros_Gamma(istage),U(ioffset+1:ioffset+NVAR),1,Tmp,1) - END DO - CALL HessTR_Vec ( dHdT, Tmp, Ystage_tlm(ioffset+1:ioffset+NVAR,msoa), Tmp2 ) - CALL WAXPY(NVAR,H,Tmp2,1,Sigma(1:NVAR,msoa),1) - END IF ! .NOT.Autonomous - - END DO ! msoa - - - END DO TimeLoop - -!~~~> Save last state - -!~~~> Succesful exit - IERR = 1 !~~~> The integration was successful - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - END SUBROUTINE ros_SoaInt -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - KPP_REAL FUNCTION ros_ErrorNorm ( Y, Ynew, Yerr, & - AbsTol, RelTol, VectorTol ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Computes the "scaled norm" of the error vector Yerr -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -! Input arguments - KPP_REAL, INTENT(IN) :: Y(NVAR), Ynew(NVAR), & - Yerr(NVAR), AbsTol(NVAR), RelTol(NVAR) - LOGICAL, INTENT(IN) :: VectorTol -! Local variables - KPP_REAL :: Err, Scale, Ymax - INTEGER :: i - KPP_REAL, PARAMETER :: ZERO = 0.0d0 - - Err = ZERO - DO i=1,NVAR - Ymax = MAX(ABS(Y(i)),ABS(Ynew(i))) - IF (VectorTol) THEN - Scale = AbsTol(i)+RelTol(i)*Ymax - ELSE - Scale = AbsTol(1)+RelTol(1)*Ymax - END IF - Err = Err+(Yerr(i)/Scale)**2 - END DO - Err = SQRT(Err/NVAR) - - ros_ErrorNorm = MAX(Err,1.0d-10) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - END FUNCTION ros_ErrorNorm -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, ode_Fun, dFdT ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> The time partial derivative of the function by finite differences -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -!~~~> Input arguments - KPP_REAL, INTENT(IN) :: T, Roundoff, Y(NVAR), Fcn0(NVAR) - EXTERNAL ode_Fun -!~~~> Output arguments - KPP_REAL, INTENT(OUT) :: dFdT(NVAR) -!~~~> Local variables - KPP_REAL :: Delta - KPP_REAL, PARAMETER :: ONE = 1.0d0, DeltaMin = 1.0d-6 - - Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T)) - CALL ode_Fun(T+Delta,Y,dFdT) - CALL WAXPY(NVAR,(-ONE),Fcn0,1,dFdT,1) - CALL WSCAL(NVAR,(ONE/Delta),dFdT,1) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - END SUBROUTINE ros_FunTimeDerivative -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_JacTimeDerivative ( T, Roundoff, Y, & - Jac0, ode_Jac, dJdT ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> The time partial derivative of the Jacobian by finite differences -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -!~~~> Input arguments - KPP_REAL, INTENT(IN) :: T, Roundoff, Y(NVAR), Jac0(LU_NONZERO) - EXTERNAL ode_Jac -!~~~> Output arguments - KPP_REAL, INTENT(OUT) :: dJdT(LU_NONZERO) -!~~~> Local variables - KPP_REAL Delta - KPP_REAL, PARAMETER :: ONE = 1.0d0, DeltaMin = 1.0d-6 - - Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T)) - CALL ode_Jac( T+Delta, Y, dJdT ) - CALL WAXPY(LU_NONZERO,(-ONE),Jac0,1,dJdT,1) - CALL WSCAL(LU_NONZERO,(ONE/Delta),dJdT,1) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - END SUBROUTINE ros_JacTimeDerivative -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_HesTimeDerivative ( T, Roundoff, Y, Hes0, ode_Hess, dHdT ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> The time partial derivative of the Hessian by finite differences -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -!~~~> Input arguments - KPP_REAL, INTENT(IN) :: T, Roundoff, Y(NVAR), Hes0(NHESS) - EXTERNAL ode_Hess -!~~~> Output arguments - KPP_REAL, INTENT(OUT) :: dHdT(NHESS) -!~~~> Local variables - KPP_REAL Delta - KPP_REAL, PARAMETER :: ONE = 1.0d0, DeltaMin = 1.0d-6 - - Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T)) - CALL ode_Hess( T+Delta, Y, dHdT ) - CALL WAXPY(NHESS,(-ONE),Hes0,1,dHdT,1) - CALL WSCAL(NHESS,(ONE/Delta),dHdT,1) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - END SUBROUTINE ros_HesTimeDerivative -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_HighDerivative ( T, Roundoff, Y, Hes0, K, U, Y_tlm, & - ode_Hess, Term) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> High order derivative by finite differences: -! d/dy { (Hes0 x K_i)^T * U_i } * Y_tlm -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -!~~~> Input arguments - KPP_REAL, INTENT(IN) :: T, Roundoff, Y(NVAR), Hes0(NHESS) - KPP_REAL, INTENT(IN) :: K(NVAR), U(NVAR), Y_tlm(NVAR) - EXTERNAL ode_Hess -!~~~> Output arguments - KPP_REAL, INTENT(OUT) :: Term(NVAR) -!~~~> Local variables - KPP_REAL :: Delta, Y1(NVAR), Hes1(NHESS), Tmp(NVAR) - KPP_REAL, PARAMETER :: ONE = 1.0d0, DeltaMin = 1.0d-6 - - CALL HessTR_Vec ( Hes0, U, K, Tmp ) - - Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T)) - Y1(1:NVAR) = Y(1:NVAR) + Delta*Y_tlm(1:NVAR) - CALL ode_Hess( T, Y1, Hes1 ) - ! Add (Hess_0 x K_i)^T * U_i - CALL HessTR_Vec ( Hes1, U, K, Term ) - - CALL WAXPY(NVAR,(-ONE),Tmp,1,Term,1) - CALL WSCAL(NVAR,(ONE/Delta),Term,1) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - END SUBROUTINE ros_HighDerivative -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_PrepareMatrix ( H, Direction, gam, & - Jac0, Ghimj, Pivot, Singular ) -! --- --- --- --- --- --- --- --- --- --- --- --- --- -! Prepares the LHS matrix for stage calculations -! 1. Construct Ghimj = 1/(H*ham) - Jac0 -! "(Gamma H) Inverse Minus Jacobian" -! 2. Repeat LU decomposition of Ghimj until successful. -! -half the step size if LU decomposition fails and retry -! -exit after 5 consecutive fails -! --- --- --- --- --- --- --- --- --- --- --- --- --- - IMPLICIT NONE - -!~~~> Input arguments - KPP_REAL, INTENT(IN) :: gam, Jac0(LU_NONZERO) - INTEGER, INTENT(IN) :: Direction -!~~~> Output arguments - KPP_REAL, INTENT(OUT) :: Ghimj(LU_NONZERO) - LOGICAL, INTENT(OUT) :: Singular - INTEGER, INTENT(OUT) :: Pivot(NVAR) -!~~~> Inout arguments - KPP_REAL, INTENT(INOUT) :: H ! step size is decreased when LU fails -!~~~> Local variables - INTEGER :: i, ising, Nconsecutive - KPP_REAL :: ghinv - KPP_REAL, PARAMETER :: ONE = 1.0d0, HALF = 0.5d0 - - Nconsecutive = 0 - Singular = .TRUE. - - DO WHILE (Singular) - -!~~~> Construct Ghimj = 1/(H*ham) - Jac0 - CALL WCOPY(LU_NONZERO,Jac0,1,Ghimj,1) - CALL WSCAL(LU_NONZERO,(-ONE),Ghimj,1) - ghinv = ONE/(Direction*H*gam) - DO i=1,NVAR - Ghimj(LU_DIAG(i)) = Ghimj(LU_DIAG(i))+ghinv - END DO -!~~~> Compute LU decomposition - CALL ros_Decomp( Ghimj, Pivot, ising ) - IF (ising == 0) THEN -!~~~> If successful done - Singular = .FALSE. - ELSE ! ising .ne. 0 -!~~~> If unsuccessful half the step size; if 5 consecutive fails then return - Nsng = Nsng+1 - Nconsecutive = Nconsecutive+1 - Singular = .TRUE. - PRINT*,'Warning: LU Decomposition returned ising = ',ising - IF (Nconsecutive <= 5) THEN ! Less than 5 consecutive failed decomps - H = H*HALF - ELSE ! More than 5 consecutive failed decompositions - RETURN - END IF ! Nconsecutive - END IF ! ising - - END DO ! WHILE Singular - - END SUBROUTINE ros_PrepareMatrix - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Decomp( A, Pivot, ising ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the LU decomposition -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Inout variables - KPP_REAL, INTENT(INOUT) :: A(LU_NONZERO) -!~~~> Output variables - INTEGER, INTENT(OUT) :: Pivot(NVAR), ising - - CALL KppDecomp ( A, ising ) -!~~~> Note: for a full matrix use Lapack: -! CALL DGETRF( NVAR, NVAR, A, NVAR, Pivot, ising ) - Pivot(1) = 1 - - Ndec = Ndec + 1 - - END SUBROUTINE ros_Decomp - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Solve( C, A, Pivot, b ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the forward/backward substitution (using pre-computed LU decomp) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Input variables - CHARACTER, INTENT(IN) :: C - KPP_REAL, INTENT(IN) :: A(LU_NONZERO) - INTEGER, INTENT(IN) :: Pivot(NVAR) -!~~~> InOut variables - KPP_REAL, INTENT(INOUT) :: b(NVAR) - - SELECT CASE (C) - CASE ('N') - CALL KppSolve( A, b ) - CASE ('T') - CALL KppSolveTR( A, b, b ) - CASE DEFAULT - PRINT*,'Unknown C = (',C,') in ros_Solve' - STOP - END SELECT -!~~~> Note: for a full matrix use Lapack: -! NRHS = 1 -! CALL DGETRS( C, NVAR , NRHS, A, NVAR, Pivot, b, NVAR, INFO ) - - Nsol = Nsol+1 - - END SUBROUTINE ros_Solve - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros2 (ros_S,ros_A,ros_C,ros_M,ros_E,ros_Alpha,& - ros_Gamma,ros_NewF,ros_ELO,ros_Name) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 2 stages, order 2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - INTEGER, PARAMETER :: S = 2 - INTEGER, INTENT(OUT) :: ros_S - KPP_REAL, DIMENSION(S), INTENT(OUT) :: ros_M,ros_E,ros_Alpha,ros_Gamma - KPP_REAL, DIMENSION(S*(S-1)/2), INTENT(OUT) :: ros_A, ros_C - KPP_REAL, INTENT(OUT) :: ros_ELO - LOGICAL, DIMENSION(S), INTENT(OUT) :: ros_NewF - CHARACTER(LEN=12), INTENT(OUT) :: ros_Name - KPP_REAL :: g - - g = 1.0d0 + 1.0d0/SQRT(2.0d0) - -!~~~> Name of the method - ros_Name = 'ROS-2' -!~~~> Number of stages - ros_S = S - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = (1.d0)/g - ros_C(1) = (-2.d0)/g -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1)= (3.d0)/(2.d0*g) - ros_M(2)= (1.d0)/(2.d0*g) -! E_i = Coefficients for error estimator - ros_E(1) = 1.d0/(2.d0*g) - ros_E(2) = 1.d0/(2.d0*g) -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus one - ros_ELO = 2.0d0 -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0d0 - ros_Alpha(2) = 1.0d0 -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = g - ros_Gamma(2) =-g - - END SUBROUTINE Ros2 - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros3 (ros_S,ros_A,ros_C,ros_M,ros_E,ros_Alpha,& - ros_Gamma,ros_NewF,ros_ELO,ros_Name) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 3 stages, order 3, 2 function evaluations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - INTEGER, PARAMETER :: S = 3 - INTEGER, INTENT(OUT) :: ros_S - KPP_REAL, DIMENSION(S), INTENT(OUT) :: ros_M,ros_E,ros_Alpha,ros_Gamma - KPP_REAL, DIMENSION(S*(S-1)/2), INTENT(OUT) :: ros_A, ros_C - KPP_REAL, INTENT(OUT) :: ros_ELO - LOGICAL, DIMENSION(S), INTENT(OUT) :: ros_NewF - CHARACTER(LEN=12), INTENT(OUT) :: ros_Name - -!~~~> Name of the method - ros_Name = 'ROS-3' -!~~~> Number of stages - ros_S = S - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1)= 1.d0 - ros_A(2)= 1.d0 - ros_A(3)= 0.d0 - - ros_C(1) = -0.10156171083877702091975600115545d+01 - ros_C(2) = 0.40759956452537699824805835358067d+01 - ros_C(3) = 0.92076794298330791242156818474003d+01 -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.1d+01 - ros_M(2) = 0.61697947043828245592553615689730d+01 - ros_M(3) = -0.42772256543218573326238373806514d+00 -! E_i = Coefficients for error estimator - ros_E(1) = 0.5d+00 - ros_E(2) = -0.29079558716805469821718236208017d+01 - ros_E(3) = 0.22354069897811569627360909276199d+00 -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0d0 -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1)= 0.0d+00 - ros_Alpha(2)= 0.43586652150845899941601945119356d+00 - ros_Alpha(3)= 0.43586652150845899941601945119356d+00 -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1)= 0.43586652150845899941601945119356d+00 - ros_Gamma(2)= 0.24291996454816804366592249683314d+00 - ros_Gamma(3)= 0.21851380027664058511513169485832d+01 - - END SUBROUTINE Ros3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros4 (ros_S,ros_A,ros_C,ros_M,ros_E,ros_Alpha,& - ros_Gamma,ros_NewF,ros_ELO,ros_Name) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! L-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 4 STAGES -! L-STABLE EMBEDDED ROSENBROCK METHOD OF ORDER 3 -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1990) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - INTEGER, PARAMETER :: S=4 - INTEGER, INTENT(OUT) :: ros_S - KPP_REAL, DIMENSION(S), INTENT(OUT) :: ros_M,ros_E,ros_Alpha,ros_Gamma - KPP_REAL, DIMENSION(S*(S-1)/2), INTENT(OUT) :: ros_A, ros_C - KPP_REAL, INTENT(OUT) :: ros_ELO - LOGICAL, DIMENSION(S), INTENT(OUT) :: ros_NewF - CHARACTER(LEN=12), INTENT(OUT) :: ros_Name - - -!~~~> Name of the method - ros_Name = 'ROS-4' -!~~~> Number of stages - ros_S = S - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.2000000000000000d+01 - ros_A(2) = 0.1867943637803922d+01 - ros_A(3) = 0.2344449711399156d+00 - ros_A(4) = ros_A(2) - ros_A(5) = ros_A(3) - ros_A(6) = 0.0D0 - - ros_C(1) =-0.7137615036412310d+01 - ros_C(2) = 0.2580708087951457d+01 - ros_C(3) = 0.6515950076447975d+00 - ros_C(4) =-0.2137148994382534d+01 - ros_C(5) =-0.3214669691237626d+00 - ros_C(6) =-0.6949742501781779d+00 -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.2255570073418735d+01 - ros_M(2) = 0.2870493262186792d+00 - ros_M(3) = 0.4353179431840180d+00 - ros_M(4) = 0.1093502252409163d+01 -!~~~> E_i = Coefficients for error estimator - ros_E(1) =-0.2815431932141155d+00 - ros_E(2) =-0.7276199124938920d-01 - ros_E(3) =-0.1082196201495311d+00 - ros_E(4) =-0.1093502252409163d+01 -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0d0 -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.D0 - ros_Alpha(2) = 0.1145640000000000d+01 - ros_Alpha(3) = 0.6552168638155900d+00 - ros_Alpha(4) = ros_Alpha(3) -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5728200000000000d+00 - ros_Gamma(2) =-0.1769193891319233d+01 - ros_Gamma(3) = 0.7592633437920482d+00 - ros_Gamma(4) =-0.1049021087100450d+00 - - END SUBROUTINE Ros4 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas3 (ros_S,ros_A,ros_C,ros_M,ros_E,ros_Alpha,& - ros_Gamma,ros_NewF,ros_ELO,ros_Name) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- A STIFFLY-STABLE METHOD, 4 stages, order 3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - INTEGER, PARAMETER :: S=4 - INTEGER, INTENT(OUT) :: ros_S - KPP_REAL, DIMENSION(S), INTENT(OUT) :: ros_M,ros_E,ros_Alpha,ros_Gamma - KPP_REAL, DIMENSION(S*(S-1)/2), INTENT(OUT) :: ros_A, ros_C - KPP_REAL, INTENT(OUT) :: ros_ELO - LOGICAL, DIMENSION(S), INTENT(OUT) :: ros_NewF - CHARACTER(LEN=12), INTENT(OUT) :: ros_Name - - -!~~~> Name of the method - ros_Name = 'RODAS-3' -!~~~> Number of stages - ros_S = S - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.0d+00 - ros_A(2) = 2.0d+00 - ros_A(3) = 0.0d+00 - ros_A(4) = 2.0d+00 - ros_A(5) = 0.0d+00 - ros_A(6) = 1.0d+00 - - ros_C(1) = 4.0d+00 - ros_C(2) = 1.0d+00 - ros_C(3) =-1.0d+00 - ros_C(4) = 1.0d+00 - ros_C(5) =-1.0d+00 - ros_C(6) =-(8.0d+00/3.0d+00) - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .FALSE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 2.0d+00 - ros_M(2) = 0.0d+00 - ros_M(3) = 1.0d+00 - ros_M(4) = 1.0d+00 -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0d+00 - ros_E(2) = 0.0d+00 - ros_E(3) = 0.0d+00 - ros_E(4) = 1.0d+00 -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0d+00 -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0d+00 - ros_Alpha(2) = 0.0d+00 - ros_Alpha(3) = 1.0d+00 - ros_Alpha(4) = 1.0d+00 -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5d+00 - ros_Gamma(2) = 1.5d+00 - ros_Gamma(3) = 0.0d+00 - ros_Gamma(4) = 0.0d+00 - - END SUBROUTINE Rodas3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas4 (ros_S,ros_A,ros_C,ros_M,ros_E,ros_Alpha,& - ros_Gamma,ros_NewF,ros_ELO,ros_Name) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 6 STAGES -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1996) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - INTEGER, PARAMETER :: S=6 - INTEGER, INTENT(OUT) :: ros_S - KPP_REAL, DIMENSION(S), INTENT(OUT) :: ros_M,ros_E,ros_Alpha,ros_Gamma - KPP_REAL, DIMENSION(S*(S-1)/2), INTENT(OUT) :: ros_A, ros_C - KPP_REAL, INTENT(OUT) :: ros_ELO - LOGICAL, DIMENSION(S), INTENT(OUT) :: ros_NewF - CHARACTER(LEN=12), INTENT(OUT) :: ros_Name - - -!~~~> Name of the method - ros_Name = 'RODAS-4' -!~~~> Number of stages - ros_S = S - -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.000d0 - ros_Alpha(2) = 0.386d0 - ros_Alpha(3) = 0.210d0 - ros_Alpha(4) = 0.630d0 - ros_Alpha(5) = 1.000d0 - ros_Alpha(6) = 1.000d0 - -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.2500000000000000d+00 - ros_Gamma(2) =-0.1043000000000000d+00 - ros_Gamma(3) = 0.1035000000000000d+00 - ros_Gamma(4) =-0.3620000000000023d-01 - ros_Gamma(5) = 0.0d0 - ros_Gamma(6) = 0.0d0 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.1544000000000000d+01 - ros_A(2) = 0.9466785280815826d+00 - ros_A(3) = 0.2557011698983284d+00 - ros_A(4) = 0.3314825187068521d+01 - ros_A(5) = 0.2896124015972201d+01 - ros_A(6) = 0.9986419139977817d+00 - ros_A(7) = 0.1221224509226641d+01 - ros_A(8) = 0.6019134481288629d+01 - ros_A(9) = 0.1253708332932087d+02 - ros_A(10) =-0.6878860361058950d+00 - ros_A(11) = ros_A(7) - ros_A(12) = ros_A(8) - ros_A(13) = ros_A(9) - ros_A(14) = ros_A(10) - ros_A(15) = 1.0d+00 - - ros_C(1) =-0.5668800000000000d+01 - ros_C(2) =-0.2430093356833875d+01 - ros_C(3) =-0.2063599157091915d+00 - ros_C(4) =-0.1073529058151375d+00 - ros_C(5) =-0.9594562251023355d+01 - ros_C(6) =-0.2047028614809616d+02 - ros_C(7) = 0.7496443313967647d+01 - ros_C(8) =-0.1024680431464352d+02 - ros_C(9) =-0.3399990352819905d+02 - ros_C(10) = 0.1170890893206160d+02 - ros_C(11) = 0.8083246795921522d+01 - ros_C(12) =-0.7981132988064893d+01 - ros_C(13) =-0.3152159432874371d+02 - ros_C(14) = 0.1631930543123136d+02 - ros_C(15) =-0.6058818238834054d+01 - -!~~~> M_i = Coefficients for new step solution - ros_M(1) = ros_A(7) - ros_M(2) = ros_A(8) - ros_M(3) = ros_A(9) - ros_M(4) = ros_A(10) - ros_M(5) = 1.0d+00 - ros_M(6) = 1.0d+00 - -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0d+00 - ros_E(2) = 0.0d+00 - ros_E(3) = 0.0d+00 - ros_E(4) = 0.0d+00 - ros_E(5) = 0.0d+00 - ros_E(6) = 1.0d+00 - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - ros_NewF(5) = .TRUE. - ros_NewF(6) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0d0 - - END SUBROUTINE Rodas4 - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Fun_Template( T, Y, Ydot ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE function call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Input variables - KPP_REAL T, Y(NVAR) -!~~~> Output variables - KPP_REAL Ydot(NVAR) -!~~~> Local variables - KPP_REAL Told - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, Ydot ) - TIME = Told - - Nfun = Nfun+1 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - END SUBROUTINE Fun_Template -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Jac_Template( T, Y, Jcb ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE Jacobian call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~> Input variables - KPP_REAL T, Y(NVAR) -!~~~> Output variables - KPP_REAL Jcb(LU_NONZERO) -!~~~> Local variables - KPP_REAL Told - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Jac_SP( Y, FIX, RCONST, Jcb ) - TIME = Told - - Njac = Njac+1 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - END SUBROUTINE Jac_Template -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Hess_Template( T, Y, Hes ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE Hessian call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Input variables - KPP_REAL T, Y(NVAR) -!~~~> Output variables - KPP_REAL Hes(NHESS) -!~~~> Local variables - KPP_REAL Told - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Hessian( Y, FIX, RCONST, Hes ) - TIME = Told - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - END SUBROUTINE Hess_Template -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_AllocateDBuffers( S ) -!~~~> Allocate buffer space for discrete adjoint -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - INTEGER :: i, S - - ALLOCATE( buf_H(bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer H'; STOP - END IF - ALLOCATE( buf_T(bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer T'; STOP - END IF - ALLOCATE( buf_Y(NVAR*S,bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer Y'; STOP - END IF - ALLOCATE( buf_K(NVAR*S,bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer K'; STOP - END IF - ALLOCATE( buf_Y_tlm(NVAR*S,bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer Y_tlm'; STOP - END IF - ALLOCATE( buf_K_tlm(NVAR*S,bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer K_tlm'; STOP - END IF - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - END SUBROUTINE ros_AllocateDBuffers -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_FreeDBuffers -!~~~> Dallocate buffer space for discrete adjoint -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - INTEGER :: i - - DEALLOCATE( buf_H, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer H'; STOP - END IF - DEALLOCATE( buf_T, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer T'; STOP - END IF - DEALLOCATE( buf_Y, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer Y'; STOP - END IF - DEALLOCATE( buf_K, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer K'; STOP - END IF - DEALLOCATE( buf_Y_tlm, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer Y_tlm'; STOP - END IF - DEALLOCATE( buf_K_tlm, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer K_tlm'; STOP - END IF - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - END SUBROUTINE ros_FreeDBuffers -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_DPush( S, NSOA, T, H, Ystage, K, Ystage_tlm, K_tlm ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Saves the next trajectory snapshot for discrete adjoints -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - INTEGER, INTENT(IN) :: S ! no of stages - INTEGER, INTENT(IN) :: NSOA ! no of second order adjoints - KPP_REAL :: T, H, Ystage(NVAR*S), K(NVAR*S) - KPP_REAL :: Ystage_tlm(NVAR*S,NSOA), K_tlm(NVAR*S,NSOA) - - stack_ptr = stack_ptr + 1 - IF ( stack_ptr > bufsize ) THEN - PRINT*,'Push failed: buffer overflow' - STOP - END IF - buf_H( stack_ptr ) = H - buf_T( stack_ptr ) = T - CALL WCOPY(NVAR*S,Ystage,1,buf_Y(1:NVAR*S,stack_ptr),1) - CALL WCOPY(NVAR*S,K,1,buf_K(1:NVAR*S,stack_ptr),1) - CALL WCOPY(NVAR*S*NSOA,Ystage_tlm,1,buf_Y_tlm(1:NVAR*S*NSOA,stack_ptr),1) - CALL WCOPY(NVAR*S*NSOA,K_tlm,1,buf_K_tlm(1:NVAR*S*NSOA,stack_ptr),1) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - END SUBROUTINE ros_DPush -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_DPop( S, NSOA, T, H, Ystage, K, Ystage_tlm, K_tlm ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Retrieves the next trajectory snapshot for discrete adjoints -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - INTEGER, INTENT(IN) :: S ! no of stages - INTEGER, INTENT(IN) :: NSOA ! no of second order adjoints - KPP_REAL, INTENT(OUT) :: T, H, Ystage(NVAR*S), K(NVAR*S) - KPP_REAL, INTENT(OUT) :: Ystage_tlm(NVAR*S,NSOA), K_tlm(NVAR*S,NSOA) - - IF ( stack_ptr <= 0 ) THEN - PRINT*,'Pop failed: empty buffer' - STOP - END IF - H = buf_H( stack_ptr ) - T = buf_T( stack_ptr ) - CALL WCOPY(NVAR*S,buf_Y(1:NVAR*S,stack_ptr),1,Ystage,1) - CALL WCOPY(NVAR*S,buf_K(1:NVAR*S,stack_ptr),1,K,1) - CALL WCOPY(NVAR*S*NSOA,buf_Y_tlm(1:NVAR*S*NSOA,stack_ptr),1,Ystage_tlm,1) - CALL WCOPY(NVAR*S*NSOA,buf_K_tlm(1:NVAR*S*NSOA,stack_ptr),1,K_tlm,1) - - stack_ptr = stack_ptr - 1 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - END SUBROUTINE ros_DPop -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -END MODULE KPP_ROOT_Integrator - diff --git a/int.modified_WCOPY/rosenbrock_tlm.def b/int.modified_WCOPY/rosenbrock_tlm.def deleted file mode 100644 index 6d31074d5de9381d4dc6be1dc59587d472233cf0..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/rosenbrock_tlm.def +++ /dev/null @@ -1,23 +0,0 @@ - -#FUNCTION AGGREGATE -#JACOBIAN SPARSE_LU_ROW - -#DOUBLE ON -#INTFILE rosenbrock_tlm - -#INLINE F77_GLOBAL - INTEGER Autonomous - COMMON /INTGDATA/ Autonomous - REAL*8 STEPSTART - COMMON /GDATA/ STEPSTART -#ENDINLINE - -#INLINE F77_INIT - STEPMIN=0.0001 - STEPMAX=3600. - Autonomous = 1 - STEPSTART=STEPMIN -#ENDINLINE - - - diff --git a/int.modified_WCOPY/rosenbrock_tlm.f90 b/int.modified_WCOPY/rosenbrock_tlm.f90 deleted file mode 100644 index e15efebfb8228ebc21bb23e3ff492030edf9d8ff..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/rosenbrock_tlm.f90 +++ /dev/null @@ -1,1357 +0,0 @@ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! -! Rosenbrock_TLM - Implementation of the Tangent Linear Model ! -! for several Rosenbrock methods: ! -! * Ros2 ! -! * Ros3 ! -! * Ros4 ! -! * Rodas3 ! -! * Rodas4 ! -! By default the code employs the KPP sparse linear algebra routines ! -! Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK) ! -! ! -! (C) Adrian Sandu, August 2004 ! -! Virginia Polytechnic Institute and State University ! -! Contact: sandu@cs.vt.edu ! -! Revised by Philipp Miehe and Adrian Sandu, May 2006 ! -! This implementation is part of KPP - the Kinetic PreProcessor ! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! - -MODULE KPP_ROOT_Integrator - - USE KPP_ROOT_Precision - USE KPP_ROOT_Parameters - USE KPP_ROOT_Global - USE KPP_ROOT_LinearAlgebra - USE KPP_ROOT_Rates - USE KPP_ROOT_Function - USE KPP_ROOT_Jacobian - USE KPP_ROOT_Hessian - USE KPP_ROOT_Util - - IMPLICIT NONE - PUBLIC - SAVE - -!~~~> Statistics on the work performed by the Rosenbrock method - INTEGER, PARAMETER :: Nfun=1, Njac=2, Nstp=3, Nacc=4, & - Nrej=5, Ndec=6, Nsol=7, Nsng=8, & - Nhes=9, Ntexit=1, Nhexit=2, Nhnew = 3 - - -CONTAINS ! Functions in the module KPP_ROOT_Integrator - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE INTEGRATE_TLM( NTLM, Y, Y_tlm, TIN, TOUT, ATOL_tlm, RTOL_tlm,& - ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -!~~~> Y - Concentrations - KPP_REAL :: Y(NVAR) -!~~~> NTLM - No. of sensitivity coefficients - INTEGER NTLM -!~~~> Y_tlm - Sensitivities of concentrations -! Note: Y_tlm (1:NVAR,j) contains sensitivities of -! Y(1:NVAR) w.r.t. the j-th parameter, j=1...NTLM - KPP_REAL :: Y_tlm(NVAR,NTLM) - KPP_REAL, INTENT(IN) :: TIN ! TIN - Start Time - KPP_REAL, INTENT(IN) :: TOUT ! TOUT - End Time -!~~~> Optional input parameters and statistics - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - KPP_REAL, INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - KPP_REAL, INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - KPP_REAL, INTENT(IN), OPTIONAL :: RTOL_tlm(NVAR,NTLM),ATOL_tlm(NVAR,NTLM) - - INTEGER, SAVE :: IERR - KPP_REAL :: RCNTRL(20), RSTATUS(20) - INTEGER :: ICNTRL(20), ISTATUS(20) - INTEGER, SAVE :: Ntotal = 0 - - ICNTRL(1:20) = 0 - RCNTRL(1:20) = 0.0_dp - ISTATUS(1:20) = 0 - RSTATUS(1:20) = 0.0_dp - - ICNTRL(1) = 0 ! non-autonomous - ICNTRL(2) = 1 ! vector tolerances - ICNTRL(3) = 5 ! choice of the method - ICNTRL(12) = 1 ! 0 - fwd trunc error only, 1 - tlm trunc error - RCNTRL(3) = STEPMIN ! starting step - - ! if optional parameters are given, and if they are >=0, then they overwrite default settings - IF (PRESENT(ICNTRL_U)) THEN - WHERE(ICNTRL_U(:) >= 0) ICNTRL(:) = ICNTRL_U(:) - ENDIF - IF (PRESENT(RCNTRL_U)) THEN - WHERE(RCNTRL_U(:) >= 0) RCNTRL(:) = RCNTRL_U(:) - ENDIF - - CALL RosenbrockTLM(NVAR, VAR, NTLM, Y_tlm, & - TIN,TOUT,ATOL,RTOL,ATOL_tlm,RTOL_tlm, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) - -!~~~> Debug option: show number of steps -! Ntotal = Ntotal + ISTATUS(Nstp) -! PRINT*,'NSTEPS=',ISTATUS(Nstp),' (',Ntotal,')',' O3=', VAR(ind_O3) - - IF (IERR < 0) THEN - print *,'Rosenbrock: Unsucessful step at T=', & - TIN,' (IERR=',IERR,')' - END IF - - STEPMIN = RSTATUS(Nhexit) - ! if optional parameters are given for output they return information - IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(:) - IF (PRESENT(RSTATUS_U)) RSTATUS_U(:) = RSTATUS(:) - -END SUBROUTINE INTEGRATE_TLM - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE RosenbrockTLM(N,Y,NTLM,Y_tlm, & - Tstart,Tend,AbsTol,RelTol,AbsTol_tlm,RelTol_tlm, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! TLM = Tangent Linear Model of a Rosenbrock Method -! -! Solves the system y'=F(t,y) using a Rosenbrock method defined by: -! -! G = 1/(H*gamma(1)) - Jac(t0,Y0) -! T_i = t0 + Alpha(i)*H -! Y_i = Y0 + \sum_{j=1}^{i-1} A(i,j)*K_j -! G * K_i = Fun( T_i, Y_i ) + \sum_{j=1}^S C(i,j)/H * K_j + -! gamma(i)*dF/dT(t0, Y0) -! Y1 = Y0 + \sum_{j=1}^S M(j)*K_j -! -! For details on Rosenbrock methods and their implementation consult: -! E. Hairer and G. Wanner -! "Solving ODEs II. Stiff and differential-algebraic problems". -! Springer series in computational mathematics, Springer-Verlag, 1996. -! The codes contained in the book inspired this implementation. -! -! (C) Adrian Sandu, August 2004 -! Virginia Polytechnic Institute and State University -! Contact: sandu@cs.vt.edu -! Revised by Philipp Miehe and Adrian Sandu, May 2006 -! This implementation is part of KPP - the Kinetic PreProcessor -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT ARGUMENTS: -! -!- Y(N) -> vector of initial conditions (at T=Tstart) -! NTLM -> dimension of linearized system, -! i.e. the number of sensitivity coefficients -!- Y_tlm(N*NTLM) -> vector of initial sensitivity conditions (at T=Tstart) -!- [Tstart,Tend] -> time range of integration -! (if Tstart>Tend the integration is performed backwards in time) -!- RelTol, AbsTol -> user precribed accuracy -!- SUBROUTINE Fun( T, Y, Ydot ) -> ODE function, -! returns Ydot = Y' = F(T,Y) -!- SUBROUTINE Jac( T, Y, Jcb ) -> Jacobian of the ODE function, -! returns Jcb = dF/dY -!- ICNTRL(1:20) -> integer inputs parameters -!- RCNTRL(1:20) -> real inputs parameters -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT ARGUMENTS: -! -!- Y(N) -> vector of final states (at T->Tend) -!- Y_tlm(N*NTLM)-> vector of final sensitivities (at T=Tend) -!- ISTATUS(1:20) -> integer output parameters -!- RSTATUS(:20) -> real output parameters -!- IERR -> job status upon return -! - succes (positive value) or failure (negative value) - -! = 1 : Success -! = -1 : Improper value for maximal no of steps -! = -2 : Selected Rosenbrock method not implemented -! = -3 : Hmin/Hmax/Hstart must be positive -! = -4 : FacMin/FacMax/FacRej must be positive -! = -5 : Improper tolerance values -! = -6 : No of steps exceeds maximum bound -! = -7 : Step size too small -! = -8 : Matrix is repeatedly singular -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT PARAMETERS: -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -! ICNTRL(1) = 1: F = F(y) Independent of T (AUTONOMOUS) -! = 0: F = F(t,y) Depends on T (NON-AUTONOMOUS) -! -! ICNTRL(2) = 0: AbsTol, RelTol are N-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ICNTRL(3) -> selection of a particular Rosenbrock method -! = 0 : default method is Rodas3 -! = 1 : method is Ros2 -! = 2 : method is Ros3 -! = 3 : method is Ros4 -! = 4 : method is Rodas3 -! = 5 : method is Rodas4 -! -! ICNTRL(4) -> maximum number of integration steps -! For ICNTRL(4)=0) the default value of 100000 is used -! -! ICNTRL(12) -> switch for TLM truncation error control -! ICNTRL(12) = 0: TLM error is not used -! ICNTRL(12) = 1: TLM error is computed and used -! -! RCNTRL(1) -> Hmin, lower bound for the integration step size -! It is strongly recommended to keep Hmin = ZERO -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! RCNTRL(3) -> Hstart, starting value for the integration step size -! -! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! RCNTRL(5) -> FacMin,upper bound on step increase factor (default=6) -! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT PARAMETERS: -! -! Note: each call to Rosenbrock adds the corrent no. of fcn calls -! to previous value of ISTATUS(1), and similar for the other params. -! Set ISTATUS(1:10) = 0 before call to avoid this accumulation. -! -! ISTATUS(1) = No. of function calls -! ISTATUS(2) = No. of Jacobian calls -! ISTATUS(3) = No. of steps -! ISTATUS(4) = No. of accepted steps -! ISTATUS(5) = No. of rejected steps (except at the beginning) -! ISTATUS(6) = No. of LU decompositions -! ISTATUS(7) = No. of forward/backward substitutions -! ISTATUS(8) = No. of singular matrix decompositions -! ISTATUS(9) = No. of Hessian calls -! -! RSTATUS(1) -> Texit, the time corresponding to the -! computed Y upon return -! RSTATUS(2) -> Hexit, last accepted step before exit -! For multiple restarts, use Hexit as Hstart in the following run -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - -!~~~> Arguments - INTEGER, INTENT(IN) :: N, NTLM - KPP_REAL, INTENT(INOUT) :: Y(N) - KPP_REAL, INTENT(INOUT) :: Y_tlm(N,NTLM) - KPP_REAL, INTENT(IN) :: Tstart, Tend - KPP_REAL, INTENT(IN) :: AbsTol(N),RelTol(N) - KPP_REAL, INTENT(IN) :: AbsTol_tlm(N,NTLM),RelTol_tlm(N,NTLM) - INTEGER, INTENT(IN) :: ICNTRL(20) - KPP_REAL, INTENT(IN) :: RCNTRL(20) - INTEGER, INTENT(INOUT) :: ISTATUS(20) - KPP_REAL, INTENT(INOUT) :: RSTATUS(20) - INTEGER, INTENT(OUT) :: IERR -!~~~> Parameters of the Rosenbrock method, up to 6 stages - INTEGER :: ros_S, rosMethod - INTEGER, PARAMETER :: RS2=1, RS3=2, RS4=3, RD3=4, RD4=5 - KPP_REAL :: ros_A(15), ros_C(15), ros_M(6), ros_E(6), & - ros_Alpha(6), ros_Gamma(6), ros_ELO - LOGICAL :: ros_NewF(6) - CHARACTER(LEN=12) :: ros_Name -!~~~> Local variables - KPP_REAL :: Roundoff, FacMin, FacMax, FacRej, FacSafe - KPP_REAL :: Hmin, Hmax, Hstart, Hexit - KPP_REAL :: Texit - INTEGER :: i, UplimTol, Max_no_steps - LOGICAL :: Autonomous, VectorTol, TLMtruncErr -!~~~> Parameters - KPP_REAL, PARAMETER :: ZERO = 0.0d0, ONE = 1.0d0 - KPP_REAL, PARAMETER :: DeltaMin = 1.0d-5 - -!~~~> Initialize the statistics - IERR = 0 - ISTATUS(1:20) = 0 - RSTATUS(1:20) = ZERO - -!~~~> Autonomous or time dependent ODE. Default is time dependent. - Autonomous = .NOT.(ICNTRL(1) == 0) - -!~~~> For Scalar tolerances (ICNTRL(2).NE.0) the code uses AbsTol(1) and RelTol(1) -! For Vector tolerances (ICNTRL(2) == 0) the code uses AbsTol(1:N) and RelTol(1:N) - IF (ICNTRL(2) == 0) THEN - VectorTol = .TRUE. - UplimTol = N - ELSE - VectorTol = .FALSE. - UplimTol = 1 - END IF - -!~~~> Initialize the particular Rosenbrock method selected - SELECT CASE (ICNTRL(3)) - CASE (1) - CALL Ros2 - CASE (2) - CALL Ros3 - CASE (3) - CALL Ros4 - CASE (0,4) - CALL Rodas3 - CASE (5) - CALL Rodas4 - CASE DEFAULT - PRINT * , 'Unknown Rosenbrock method: ICNTRL(3)=',ICNTRL(3) - CALL ros_ErrorMsg(-2,Tstart,ZERO,IERR) - RETURN - END SELECT - -!~~~> The maximum number of steps admitted - IF (ICNTRL(4) == 0) THEN - Max_no_steps = 200000 - ELSEIF (Max_no_steps > 0) THEN - Max_no_steps=ICNTRL(4) - ELSE - PRINT * ,'User-selected max no. of steps: ICNTRL(4)=',ICNTRL(4) - CALL ros_ErrorMsg(-1,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> TLM truncation error control selection - IF (ICNTRL(12) == 0) THEN - TLMtruncErr = .FALSE. - ELSE - TLMtruncErr = .TRUE. - END IF - -!~~~> Unit roundoff (1+Roundoff>1) - Roundoff = WLAMCH('E') - -!~~~> Lower bound on the step size: (positive value) - IF (RCNTRL(1) == ZERO) THEN - Hmin = ZERO - ELSEIF (RCNTRL(1) > ZERO) THEN - Hmin = RCNTRL(1) - ELSE - PRINT * , 'User-selected Hmin: RCNTRL(1)=', RCNTRL(1) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Upper bound on the step size: (positive value) - IF (RCNTRL(2) == ZERO) THEN - Hmax = ABS(Tend-Tstart) - ELSEIF (RCNTRL(2) > ZERO) THEN - Hmax = MIN(ABS(RCNTRL(2)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hmax: RCNTRL(2)=', RCNTRL(2) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Starting step size: (positive value) - IF (RCNTRL(3) == ZERO) THEN - Hstart = MAX(Hmin,DeltaMin) - ELSEIF (RCNTRL(3) > ZERO) THEN - Hstart = MIN(ABS(RCNTRL(3)),ABS(Tend-Tstart)) - ELSE - PRINT * , 'User-selected Hstart: RCNTRL(3)=', RCNTRL(3) - CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Step size can be changed s.t. FacMin < Hnew/Hexit < FacMax - IF (RCNTRL(4) == ZERO) THEN - FacMin = 0.2d0 - ELSEIF (RCNTRL(4) > ZERO) THEN - FacMin = RCNTRL(4) - ELSE - PRINT * , 'User-selected FacMin: RCNTRL(4)=', RCNTRL(4) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF - IF (RCNTRL(5) == ZERO) THEN - FacMax = 6.0d0 - ELSEIF (RCNTRL(5) > ZERO) THEN - FacMax = RCNTRL(5) - ELSE - PRINT * , 'User-selected FacMax: RCNTRL(5)=', RCNTRL(5) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacRej: Factor to decrease step after 2 succesive rejections - IF (RCNTRL(6) == ZERO) THEN - FacRej = 0.1d0 - ELSEIF (RCNTRL(6) > ZERO) THEN - FacRej = RCNTRL(6) - ELSE - PRINT * , 'User-selected FacRej: RCNTRL(6)=', RCNTRL(6) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> FacSafe: Safety Factor in the computation of new step size - IF (RCNTRL(7) == ZERO) THEN - FacSafe = 0.9d0 - ELSEIF (RCNTRL(7) > ZERO) THEN - FacSafe = RCNTRL(7) - ELSE - PRINT * , 'User-selected FacSafe: RCNTRL(7)=', RCNTRL(7) - CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) - RETURN - END IF -!~~~> Check if tolerances are reasonable - DO i=1,UplimTol - IF ( (AbsTol(i) <= ZERO) .OR. (RelTol(i) <= 10.d0*Roundoff) & - .OR. (RelTol(i) >= 1.0d0) ) THEN - PRINT * , ' AbsTol(',i,') = ',AbsTol(i) - PRINT * , ' RelTol(',i,') = ',RelTol(i) - CALL ros_ErrorMsg(-5,Tstart,ZERO,IERR) - RETURN - END IF - END DO - - -!~~~> CALL Rosenbrock method - CALL ros_TLM_Int(Y, NTLM, Y_tlm, & - Tstart, Tend, Texit, & -! Error indicator - IERR) - - -CONTAINS ! Procedures internal to RosenbrockTLM - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_ErrorMsg(Code,T,H,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - KPP_REAL, INTENT(IN) :: T, H - INTEGER, INTENT(IN) :: Code - INTEGER, INTENT(OUT) :: IERR - - IERR = Code - PRINT * , & - 'Forced exit from Rosenbrock due to the following error:' - - SELECT CASE (Code) - CASE (-1) - PRINT * , '--> Improper value for maximal no of steps' - CASE (-2) - PRINT * , '--> Selected Rosenbrock method not implemented' - CASE (-3) - PRINT * , '--> Hmin/Hmax/Hstart must be positive' - CASE (-4) - PRINT * , '--> FacMin/FacMax/FacRej must be positive' - CASE (-5) - PRINT * , '--> Improper tolerance values' - CASE (-6) - PRINT * , '--> No of steps exceeds maximum bound' - CASE (-7) - PRINT * , '--> Step size too small: T + 10*H = T', & - ' or H < Roundoff' - CASE (-8) - PRINT * , '--> Matrix is repeatedly singular' - CASE DEFAULT - PRINT *, 'Unknown Error code: ', Code - END SELECT - - PRINT *, "T=", T, "and H=", H - - END SUBROUTINE ros_ErrorMsg - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_TLM_Int (Y, NTLM, Y_tlm, & - Tstart, Tend, T, & -!~~~> Error indicator - IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the implementation of a generic Rosenbrock method -! defined by ros_S (no of stages) -! and its coefficients ros_{A,C,M,E,Alpha,Gamma} -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - -!~~~> Input: the initial condition at Tstart; Output: the solution at T - KPP_REAL, INTENT(INOUT) :: Y(N) -!~~~> Input: Number of sensitivity coefficients - INTEGER, INTENT(IN) :: NTLM -!~~~> Input: the initial sensitivites at Tstart; Output: the sensitivities at T - KPP_REAL, INTENT(INOUT) :: Y_tlm(N,NTLM) -!~~~> Input: integration interval - KPP_REAL, INTENT(IN) :: Tstart,Tend -!~~~> Output: time at which the solution is returned (T=Tend if success) - KPP_REAL, INTENT(OUT) :: T -!~~~> Output: Error indicator - INTEGER, INTENT(OUT) :: IERR -! ~~~~ Local variables - KPP_REAL :: Ynew(N), Fcn0(N), Fcn(N) - KPP_REAL :: K(N*ros_S) - KPP_REAL :: Ynew_tlm(N,NTLM), Fcn0_tlm(N,NTLM), Fcn_tlm(N,NTLM) - KPP_REAL :: K_tlm(N*ros_S,NTLM) - KPP_REAL :: Hes0(NHESS), Tmp(N) - KPP_REAL :: dFdT(N), dJdT(LU_NONZERO) - KPP_REAL :: Jac0(LU_NONZERO), Jac(LU_NONZERO), Ghimj(LU_NONZERO) - KPP_REAL :: H, Hnew, HC, HG, Fac, Tau - KPP_REAL :: Err, Err0, Err1, Yerr(N), Yerr_tlm(N,NTLM) - INTEGER :: Pivot(N), Direction, ioffset, j, istage, itlm - LOGICAL :: RejectLastH, RejectMoreH, Singular -!~~~> Local parameters - KPP_REAL, PARAMETER :: DeltaMin = 1.0d-5 -!~~~> Locally called functions -! KPP_REAL WLAMCH -! EXTERNAL WLAMCH -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~> Initial preparations - T = Tstart - RSTATUS(Nhexit) = ZERO - H = MIN( MAX(ABS(Hmin),ABS(Hstart)) , ABS(Hmax) ) - IF (ABS(H) <= 10.D0*Roundoff) H = DeltaMin - - IF (Tend >= Tstart) THEN - Direction = +1 - ELSE - Direction = -1 - END IF - H = Direction*H - - RejectLastH=.FALSE. - RejectMoreH=.FALSE. - -!~~~> Time loop begins below - -TimeLoop: DO WHILE ( (Direction > 0).AND.((T-Tend)+Roundoff <= ZERO) & - .OR. (Direction < 0).AND.((Tend-T)+Roundoff <= ZERO) ) - - IF ( ISTATUS(Nstp) > Max_no_steps ) THEN ! Too many steps - CALL ros_ErrorMsg(-6,T,H,IERR) - RETURN - END IF - IF ( ((T+0.1d0*H) == T).OR.(H <= Roundoff) ) THEN ! Step size too small - CALL ros_ErrorMsg(-7,T,H,IERR) - RETURN - END IF - -!~~~> Limit H if necessary to avoid going beyond Tend - Hexit = H - H = MIN(H,ABS(Tend-T)) - -!~~~> Compute the function at current time - CALL FunTemplate(T,Y,Fcn0) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - -!~~~> Compute the Jacobian at current time - CALL JacTemplate(T,Y,Jac0) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - -!~~~> Compute the Hessian at current time - CALL HessTemplate(T,Y,Hes0) - ISTATUS(Nhes) = ISTATUS(Nhes) + 1 - -!~~~> Compute the TLM function at current time - DO itlm = 1, NTLM - CALL Jac_SP_Vec ( Jac0, Y_tlm(1:N,itlm), Fcn0_tlm(1:N,itlm) ) - END DO - -!~~~> Compute the function and Jacobian derivatives with respect to T - IF (.NOT.Autonomous) THEN - CALL ros_FunTimeDerivative ( T, Roundoff, Y, Fcn0, dFdT ) - CALL ros_JacTimeDerivative ( T, Roundoff, Y, Jac0, dJdT ) - END IF - -!~~~> Repeat step calculation until current step accepted -UntilAccepted: DO - - CALL ros_PrepareMatrix(H,Direction,ros_Gamma(1),& - Jac0,Ghimj,Pivot,Singular) - IF (Singular) THEN ! More than 5 consecutive failed decompositions - CALL ros_ErrorMsg(-8,T,H,IERR) - RETURN - END IF - -!~~~> Compute the stages -Stage: DO istage = 1, ros_S - - ! Current istage offset. Current istage vector is K(ioffset+1:ioffset+N) - ioffset = N*(istage-1) - - ! Initialize stage solution - CALL WCOPY(N,Y,1,Ynew,1) - CALL WCOPY(N*NTLM,Y_tlm,1,Ynew_tlm,1) - - ! For the 1st istage the function has been computed previously - IF ( istage == 1 ) THEN - CALL WCOPY(N,Fcn0,1,Fcn,1) - CALL WCOPY(N*NTLM,Fcn0_tlm,1,Fcn_tlm,1) - ! istage>1 and a new function evaluation is needed at the current istage - ELSEIF ( ros_NewF(istage) ) THEN - DO j = 1, istage-1 - CALL WAXPY(N,ros_A((istage-1)*(istage-2)/2+j), & - K(N*(j-1)+1:N*j),1,Ynew,1) - DO itlm=1,NTLM - CALL WAXPY(N,ros_A((istage-1)*(istage-2)/2+j), & - K_tlm(N*(j-1)+1:N*j,itlm),1,Ynew_tlm(1:N,itlm),1) - END DO - END DO - Tau = T + ros_Alpha(istage)*Direction*H - CALL FunTemplate(Tau,Ynew,Fcn) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - CALL JacTemplate(Tau,Ynew,Jac) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - DO itlm=1,NTLM - CALL Jac_SP_Vec ( Jac, Ynew_tlm(1:N,itlm), Fcn_tlm(1:N,itlm) ) - END DO - END IF ! if istage == 1 elseif ros_NewF(istage) - CALL WCOPY(N,Fcn,1,K(ioffset+1:ioffset+N),1) - DO itlm=1,NTLM - CALL WCOPY(N,Fcn_tlm(1:N,itlm),1,K_tlm(ioffset+1:ioffset+N,itlm),1) - END DO - DO j = 1, istage-1 - HC = ros_C((istage-1)*(istage-2)/2+j)/(Direction*H) - CALL WAXPY(N,HC,K(N*(j-1)+1:N*j),1,K(ioffset+1:ioffset+N),1) - DO itlm=1,NTLM - CALL WAXPY(N,HC,K_tlm(N*(j-1)+1:N*j,itlm),1,K_tlm(ioffset+1:ioffset+N,itlm),1) - END DO - END DO - IF ((.NOT. Autonomous).AND.(ros_Gamma(istage).NE.ZERO)) THEN - HG = Direction*H*ros_Gamma(istage) - CALL WAXPY(N,HG,dFdT(1:N),1,K(ioffset+1:ioffset+N),1) - DO itlm=1,NTLM - CALL Jac_SP_Vec ( dJdT, Ynew_tlm(1:N,itlm), Tmp ) - CALL WAXPY(N,HG,Tmp,1,K_tlm(ioffset+1:ioffset+N,itlm),1) - END DO - END IF - CALL ros_Solve(Ghimj, Pivot, K(ioffset+1:ioffset+N)) - DO itlm=1,NTLM - CALL Hess_Vec ( Hes0, K(ioffset+1:ioffset+N), Y_tlm(1:N,itlm), Tmp ) - CALL WAXPY(N,ONE,Tmp,1,K_tlm(ioffset+1:ioffset+N,itlm),1) - CALL ros_Solve(Ghimj, Pivot, K_tlm(ioffset+1:ioffset+N,itlm)) - END DO - - END DO Stage - - -!~~~> Compute the new solution - CALL WCOPY(N,Y,1,Ynew,1) - DO j=1,ros_S - CALL WAXPY(N,ros_M(j),K(N*(j-1)+1:N*j),1,Ynew,1) - END DO - DO itlm=1,NTLM - CALL WCOPY(N,Y_tlm(1:N,itlm),1,Ynew_tlm(1:N,itlm),1) - DO j=1,ros_S - CALL WAXPY(N,ros_M(j),K_tlm(N*(j-1)+1:N*j,itlm),1,Ynew_tlm(1:N,itlm),1) - END DO - END DO - -!~~~> Compute the error estimation - CALL Set2zero(N,Yerr) - DO j=1,ros_S - CALL WAXPY(N,ros_E(j),K(N*(j-1)+1:N*j),1,Yerr,1) - END DO - Err = ros_ErrorNorm ( Y, Ynew, Yerr, AbsTol, RelTol, VectorTol ) - IF (TLMtruncErr) THEN - Err1 = 0.0d0 - CALL Set2zero(N*NTLM,Yerr_tlm) - DO itlm=1,NTLM - DO j=1,ros_S - CALL WAXPY(N,ros_E(j),K_tlm(N*(j-1)+1:N*j,itlm),1,Yerr_tlm(1:N,itlm),1) - END DO - END DO - Err = ros_ErrorNorm_tlm(Y_tlm,Ynew_tlm,Yerr_tlm,AbsTol_tlm,RelTol_tlm,Err,VectorTol) - END IF - -!~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax - Fac = MIN(FacMax,MAX(FacMin,FacSafe/Err**(ONE/ros_ELO))) - Hnew = H*Fac - -!~~~> Check the error magnitude and adjust step size - ISTATUS(Nstp) = ISTATUS(Nstp) + 1 - IF ( (Err <= ONE).OR.(H <= Hmin) ) THEN !~~~> Accept step - ISTATUS(Nacc) = ISTATUS(Nacc) + 1 - CALL WCOPY(N,Ynew,1,Y,1) - CALL WCOPY(N*NTLM,Ynew_tlm,1,Y_tlm,1) - T = T + Direction*H - Hnew = MAX(Hmin,MIN(Hnew,Hmax)) - IF (RejectLastH) THEN ! No step size increase after a rejected step - Hnew = MIN(Hnew,H) - END IF - RSTATUS(Nhexit) = H - RSTATUS(Nhnew) = Hnew - RSTATUS(Ntexit) = T - RejectLastH = .FALSE. - RejectMoreH = .FALSE. - H = Hnew - EXIT UntilAccepted ! EXIT THE LOOP: WHILE STEP NOT ACCEPTED - ELSE !~~~> Reject step - IF (RejectMoreH) THEN - Hnew = H*FacRej - END IF - RejectMoreH = RejectLastH - RejectLastH = .TRUE. - H = Hnew - IF (ISTATUS(Nacc) >= 1) THEN - ISTATUS(Nrej) = ISTATUS(Nrej) + 1 - END IF - END IF ! Err <= 1 - - END DO UntilAccepted - - END DO TimeLoop - -!~~~> Succesful exit - IERR = 1 !~~~> The integration was successful - - END SUBROUTINE ros_TLM_Int - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - KPP_REAL FUNCTION ros_ErrorNorm ( Y, Ynew, Yerr, & - AbsTol, RelTol, VectorTol ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Computes the "scaled norm" of the error vector Yerr -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -! Input arguments - KPP_REAL, INTENT(IN) :: Y(N), Ynew(N), & - Yerr(N), AbsTol(N), RelTol(N) - LOGICAL, INTENT(IN) :: VectorTol -! Local variables - KPP_REAL :: Err, Scale, Ymax - INTEGER :: i - KPP_REAL, PARAMETER :: ZERO = 0.0d0 - - Err = ZERO - DO i=1,N - Ymax = MAX(ABS(Y(i)),ABS(Ynew(i))) - IF (VectorTol) THEN - Scale = AbsTol(i)+RelTol(i)*Ymax - ELSE - Scale = AbsTol(1)+RelTol(1)*Ymax - END IF - Err = Err+(Yerr(i)/Scale)**2 - END DO - Err = SQRT(Err/N) - - ros_ErrorNorm = MAX(Err,1.0d-10) - - END FUNCTION ros_ErrorNorm - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - KPP_REAL FUNCTION ros_ErrorNorm_tlm ( Y_tlm, Ynew_tlm, Yerr_tlm, & - AbsTol_tlm, RelTol_tlm, Fwd_Err, VectorTol ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Computes the "scaled norm" of the error vector Yerr_tlm -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -! Input arguments - KPP_REAL, INTENT(IN) :: Y_tlm(N,NTLM), Ynew_tlm(N,NTLM), & - Yerr_tlm(N,NTLM), AbsTol_tlm(N,NTLM), RelTol_tlm(N,NTLM), Fwd_Err - LOGICAL, INTENT(IN) :: VectorTol -! Local variables - KPP_REAL :: TMP, Err - INTEGER :: itlm - - Err = FWD_Err - DO itlm = 1,NTLM - TMP = ros_ErrorNorm(Y_tlm(1,itlm), Ynew_tlm(1,itlm),Yerr_tlm(1,itlm), & - AbsTol_tlm(1,itlm), RelTol_tlm(1,itlm), VectorTol) - Err = MAX(Err, TMP) - END DO - - ros_ErrorNorm_tlm = MAX(Err,1.0d-10) - - END FUNCTION ros_ErrorNorm_tlm - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_FunTimeDerivative ( T, Roundoff, Y, & - Fcn0, dFdT ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> The time partial derivative of the function by finite differences -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -!~~~> Input arguments - KPP_REAL, INTENT(IN) :: T, Roundoff, Y(N), Fcn0(N) -!~~~> Output arguments - KPP_REAL, INTENT(OUT) :: dFdT(N) -!~~~> Local variables - KPP_REAL :: Delta - KPP_REAL, PARAMETER :: DeltaMin = 1.0d-6 - - Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T)) - CALL FunTemplate(T+Delta,Y,dFdT) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - CALL WAXPY(N,(-ONE),Fcn0,1,dFdT,1) - CALL WSCAL(N,(ONE/Delta),dFdT,1) - - END SUBROUTINE ros_FunTimeDerivative - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_JacTimeDerivative ( T, Roundoff, Y, & - Jac0, dJdT ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> The time partial derivative of the Jacobian by finite differences -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -!~~~> Input arguments - KPP_REAL, INTENT(IN) :: T, Roundoff, Y(N), Jac0(LU_NONZERO) -!~~~> Output arguments - KPP_REAL, INTENT(OUT) :: dJdT(LU_NONZERO) -!~~~> Local variables - KPP_REAL Delta - KPP_REAL, PARAMETER :: ONE = 1.0d0, DeltaMin = 1.0d-6 - - Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T)) - CALL JacTemplate(T+Delta,Y,dJdT) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - CALL WAXPY(LU_NONZERO,(-ONE),Jac0,1,dJdT,1) - CALL WSCAL(LU_NONZERO,(ONE/Delta),dJdT,1) - - END SUBROUTINE ros_JacTimeDerivative - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_PrepareMatrix ( H, Direction, gam, & - Jac0, Ghimj, Pivot, Singular ) -! --- --- --- --- --- --- --- --- --- --- --- --- --- -! Prepares the LHS matrix for stage calculations -! 1. Construct Ghimj = 1/(H*ham) - Jac0 -! "(Gamma H) Inverse Minus Jacobian" -! 2. Repeat LU decomposition of Ghimj until successful. -! -half the step size if LU decomposition fails and retry -! -exit after 5 consecutive fails -! --- --- --- --- --- --- --- --- --- --- --- --- --- - IMPLICIT NONE - -!~~~> Input arguments - KPP_REAL, INTENT(IN) :: gam, Jac0(LU_NONZERO) - INTEGER, INTENT(IN) :: Direction -!~~~> Output arguments - KPP_REAL, INTENT(OUT) :: Ghimj(LU_NONZERO) - LOGICAL, INTENT(OUT) :: Singular - INTEGER, INTENT(OUT) :: Pivot(N) -!~~~> Inout arguments - KPP_REAL, INTENT(INOUT) :: H ! step size is decreased when LU fails -!~~~> Local variables - INTEGER :: i, ising, Nconsecutive - KPP_REAL :: ghinv - KPP_REAL, PARAMETER :: ONE = 1.0d0, HALF = 0.5d0 - - Nconsecutive = 0 - Singular = .TRUE. - - DO WHILE (Singular) - -!~~~> Construct Ghimj = 1/(H*ham) - Jac0 - CALL WCOPY(LU_NONZERO,Jac0,1,Ghimj,1) - CALL WSCAL(LU_NONZERO,(-ONE),Ghimj,1) - ghinv = ONE/(Direction*H*gam) - DO i=1,N - Ghimj(LU_DIAG(i)) = Ghimj(LU_DIAG(i))+ghinv - END DO -!~~~> Compute LU decomposition - CALL ros_Decomp( Ghimj, Pivot, ising ) - IF (ising == 0) THEN -!~~~> If successful done - Singular = .FALSE. - ELSE ! ising .ne. 0 -!~~~> If unsuccessful half the step size; if 5 consecutive fails then return - ISTATUS(Nsng) = ISTATUS(Nsng) + 1 - Nconsecutive = Nconsecutive+1 - Singular = .TRUE. - PRINT*,'Warning: LU Decomposition returned ising = ',ising - IF (Nconsecutive <= 5) THEN ! Less than 5 consecutive failed decompositions - H = H*HALF - ELSE ! More than 5 consecutive failed decompositions - RETURN - END IF ! Nconsecutive - END IF ! ising - - END DO ! WHILE Singular - - END SUBROUTINE ros_PrepareMatrix - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Decomp( A, Pivot, ising ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the LU decomposition -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Inout variables - KPP_REAL, INTENT(INOUT) :: A(LU_NONZERO) -!~~~> Output variables - INTEGER, INTENT(OUT) :: Pivot(N), ising - - CALL KppDecomp ( A, ising ) -!~~~> Note: for a full matrix use Lapack: -! CALL DGETRF( N, N, A, N, Pivot, ising ) - Pivot(1) = 1 - - ISTATUS(Ndec) = ISTATUS(Ndec) + 1 - - END SUBROUTINE ros_Decomp - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE ros_Solve( A, Pivot, b ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the forward/backward substitution (using pre-computed LU decomposition) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Input variables - KPP_REAL, INTENT(IN) :: A(LU_NONZERO) - INTEGER, INTENT(IN) :: Pivot(N) -!~~~> InOut variables - KPP_REAL, INTENT(INOUT) :: b(N) - - CALL KppSolve( A, b ) -!~~~> Note: for a full matrix use Lapack: -! NRHS = 1 -! CALL DGETRS( 'N', N , NRHS, A, N, Pivot, b, N, INFO ) - - ISTATUS(Nsol) = ISTATUS(Nsol) + 1 - - END SUBROUTINE ros_Solve - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 2 stages, order 2 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - DOUBLE PRECISION g - - g = 1.0d0 + 1.0d0/SQRT(2.0d0) - - rosMethod = RS2 -!~~~> Name of the method - ros_Name = 'ROS-2' -!~~~> Number of stages - ros_S = 2 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = (1.d0)/g - ros_C(1) = (-2.d0)/g -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1)= (3.d0)/(2.d0*g) - ros_M(2)= (1.d0)/(2.d0*g) -! E_i = Coefficients for error estimator - ros_E(1) = 1.d0/(2.d0*g) - ros_E(2) = 1.d0/(2.d0*g) -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus one - ros_ELO = 2.0d0 -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0d0 - ros_Alpha(2) = 1.0d0 -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = g - ros_Gamma(2) =-g - - END SUBROUTINE Ros2 - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- AN L-STABLE METHOD, 3 stages, order 3, 2 function evaluations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RS3 -!~~~> Name of the method - ros_Name = 'ROS-3' -!~~~> Number of stages - ros_S = 3 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1)= 1.d0 - ros_A(2)= 1.d0 - ros_A(3)= 0.d0 - - ros_C(1) = -0.10156171083877702091975600115545d+01 - ros_C(2) = 0.40759956452537699824805835358067d+01 - ros_C(3) = 0.92076794298330791242156818474003d+01 -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.1d+01 - ros_M(2) = 0.61697947043828245592553615689730d+01 - ros_M(3) = -0.42772256543218573326238373806514d+00 -! E_i = Coefficients for error estimator - ros_E(1) = 0.5d+00 - ros_E(2) = -0.29079558716805469821718236208017d+01 - ros_E(3) = 0.22354069897811569627360909276199d+00 -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0d0 -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1)= 0.0d+00 - ros_Alpha(2)= 0.43586652150845899941601945119356d+00 - ros_Alpha(3)= 0.43586652150845899941601945119356d+00 -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1)= 0.43586652150845899941601945119356d+00 - ros_Gamma(2)= 0.24291996454816804366592249683314d+00 - ros_Gamma(3)= 0.21851380027664058511513169485832d+01 - - END SUBROUTINE Ros3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Ros4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! L-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 4 STAGES -! L-STABLE EMBEDDED ROSENBROCK METHOD OF ORDER 3 -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1990) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RS4 -!~~~> Name of the method - ros_Name = 'ROS-4' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.2000000000000000d+01 - ros_A(2) = 0.1867943637803922d+01 - ros_A(3) = 0.2344449711399156d+00 - ros_A(4) = ros_A(2) - ros_A(5) = ros_A(3) - ros_A(6) = 0.0D0 - - ros_C(1) =-0.7137615036412310d+01 - ros_C(2) = 0.2580708087951457d+01 - ros_C(3) = 0.6515950076447975d+00 - ros_C(4) =-0.2137148994382534d+01 - ros_C(5) =-0.3214669691237626d+00 - ros_C(6) =-0.6949742501781779d+00 -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .FALSE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 0.2255570073418735d+01 - ros_M(2) = 0.2870493262186792d+00 - ros_M(3) = 0.4353179431840180d+00 - ros_M(4) = 0.1093502252409163d+01 -!~~~> E_i = Coefficients for error estimator - ros_E(1) =-0.2815431932141155d+00 - ros_E(2) =-0.7276199124938920d-01 - ros_E(3) =-0.1082196201495311d+00 - ros_E(4) =-0.1093502252409163d+01 -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0d0 -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.D0 - ros_Alpha(2) = 0.1145640000000000d+01 - ros_Alpha(3) = 0.6552168638155900d+00 - ros_Alpha(4) = ros_Alpha(3) -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5728200000000000d+00 - ros_Gamma(2) =-0.1769193891319233d+01 - ros_Gamma(3) = 0.7592633437920482d+00 - ros_Gamma(4) =-0.1049021087100450d+00 - - END SUBROUTINE Ros4 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! --- A STIFFLY-STABLE METHOD, 4 stages, order 3 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD3 -!~~~> Name of the method - ros_Name = 'RODAS-3' -!~~~> Number of stages - ros_S = 4 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: -! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.0d+00 - ros_A(2) = 2.0d+00 - ros_A(3) = 0.0d+00 - ros_A(4) = 2.0d+00 - ros_A(5) = 0.0d+00 - ros_A(6) = 1.0d+00 - - ros_C(1) = 4.0d+00 - ros_C(2) = 1.0d+00 - ros_C(3) =-1.0d+00 - ros_C(4) = 1.0d+00 - ros_C(5) =-1.0d+00 - ros_C(6) =-(8.0d+00/3.0d+00) - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .FALSE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. -!~~~> M_i = Coefficients for new step solution - ros_M(1) = 2.0d+00 - ros_M(2) = 0.0d+00 - ros_M(3) = 1.0d+00 - ros_M(4) = 1.0d+00 -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0d+00 - ros_E(2) = 0.0d+00 - ros_E(3) = 0.0d+00 - ros_E(4) = 1.0d+00 -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 3.0d+00 -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.0d+00 - ros_Alpha(2) = 0.0d+00 - ros_Alpha(3) = 1.0d+00 - ros_Alpha(4) = 1.0d+00 -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.5d+00 - ros_Gamma(2) = 1.5d+00 - ros_Gamma(3) = 0.0d+00 - ros_Gamma(4) = 0.0d+00 - - END SUBROUTINE Rodas3 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Rodas4 -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! STIFFLY-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 6 STAGES -! -! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL -! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, -! SPRINGER-VERLAG (1996) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - rosMethod = RD4 -!~~~> Name of the method - ros_Name = 'RODAS-4' -!~~~> Number of stages - ros_S = 6 - -!~~~> Y_stage_i ~ Y( T + H*Alpha_i ) - ros_Alpha(1) = 0.000d0 - ros_Alpha(2) = 0.386d0 - ros_Alpha(3) = 0.210d0 - ros_Alpha(4) = 0.630d0 - ros_Alpha(5) = 1.000d0 - ros_Alpha(6) = 1.000d0 - -!~~~> Gamma_i = \sum_j gamma_{i,j} - ros_Gamma(1) = 0.2500000000000000d+00 - ros_Gamma(2) =-0.1043000000000000d+00 - ros_Gamma(3) = 0.1035000000000000d+00 - ros_Gamma(4) =-0.3620000000000023d-01 - ros_Gamma(5) = 0.0d0 - ros_Gamma(6) = 0.0d0 - -!~~~> The coefficient matrices A and C are strictly lower triangular. -! The lower triangular (subdiagonal) elements are stored in row-wise order: -! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. -! The general mapping formula is: A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) -! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) - - ros_A(1) = 0.1544000000000000d+01 - ros_A(2) = 0.9466785280815826d+00 - ros_A(3) = 0.2557011698983284d+00 - ros_A(4) = 0.3314825187068521d+01 - ros_A(5) = 0.2896124015972201d+01 - ros_A(6) = 0.9986419139977817d+00 - ros_A(7) = 0.1221224509226641d+01 - ros_A(8) = 0.6019134481288629d+01 - ros_A(9) = 0.1253708332932087d+02 - ros_A(10) =-0.6878860361058950d+00 - ros_A(11) = ros_A(7) - ros_A(12) = ros_A(8) - ros_A(13) = ros_A(9) - ros_A(14) = ros_A(10) - ros_A(15) = 1.0d+00 - - ros_C(1) =-0.5668800000000000d+01 - ros_C(2) =-0.2430093356833875d+01 - ros_C(3) =-0.2063599157091915d+00 - ros_C(4) =-0.1073529058151375d+00 - ros_C(5) =-0.9594562251023355d+01 - ros_C(6) =-0.2047028614809616d+02 - ros_C(7) = 0.7496443313967647d+01 - ros_C(8) =-0.1024680431464352d+02 - ros_C(9) =-0.3399990352819905d+02 - ros_C(10) = 0.1170890893206160d+02 - ros_C(11) = 0.8083246795921522d+01 - ros_C(12) =-0.7981132988064893d+01 - ros_C(13) =-0.3152159432874371d+02 - ros_C(14) = 0.1631930543123136d+02 - ros_C(15) =-0.6058818238834054d+01 - -!~~~> M_i = Coefficients for new step solution - ros_M(1) = ros_A(7) - ros_M(2) = ros_A(8) - ros_M(3) = ros_A(9) - ros_M(4) = ros_A(10) - ros_M(5) = 1.0d+00 - ros_M(6) = 1.0d+00 - -!~~~> E_i = Coefficients for error estimator - ros_E(1) = 0.0d+00 - ros_E(2) = 0.0d+00 - ros_E(3) = 0.0d+00 - ros_E(4) = 0.0d+00 - ros_E(5) = 0.0d+00 - ros_E(6) = 1.0d+00 - -!~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) -! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) - ros_NewF(1) = .TRUE. - ros_NewF(2) = .TRUE. - ros_NewF(3) = .TRUE. - ros_NewF(4) = .TRUE. - ros_NewF(5) = .TRUE. - ros_NewF(6) = .TRUE. - -!~~~> ros_ELO = estimator of local order - the minimum between the -! main and the embedded scheme orders plus 1 - ros_ELO = 4.0d0 - - END SUBROUTINE Rodas4 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -END SUBROUTINE RosenbrockTLM -! and all its internal procedures -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE FunTemplate( T, Y, Ydot ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE function call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE -!~~~> Input variables - KPP_REAL :: T, Y(NVAR) -!~~~> Output variables - KPP_REAL :: Ydot(NVAR) -!~~~> Local variables - KPP_REAL :: Told - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, Ydot ) - TIME = Told - -END SUBROUTINE FunTemplate - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE JacTemplate( T, Y, Jcb ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE Jacobian call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -!~~~> Input variables - KPP_REAL :: T, Y(NVAR) -!~~~> Output variables - KPP_REAL :: Jcb(LU_NONZERO) -!~~~> Local variables - KPP_REAL :: Told - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Jac_SP( Y, FIX, RCONST, Jcb ) - TIME = Told - -END SUBROUTINE JacTemplate - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE HessTemplate( T, Y, Hes ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Template for the ODE Hessian call. -! Updates the rate coefficients (and possibly the fixed species) at each call -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -!~~~> Input variables - KPP_REAL :: T, Y(NVAR) -!~~~> Output variables - KPP_REAL :: Hes(NHESS) -!~~~> Local variables - KPP_REAL :: Told - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Hessian( Y, FIX, RCONST, Hes ) - TIME = Told - -END SUBROUTINE HessTemplate - -END MODULE KPP_ROOT_Integrator - - - - diff --git a/int.modified_WCOPY/runge_kutta.c b/int.modified_WCOPY/runge_kutta.c deleted file mode 100644 index d5c3cd15b19be8a9c870c351892db28bad9935d7..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/runge_kutta.c +++ /dev/null @@ -1,2087 +0,0 @@ - #define MAX(a,b) ( ((a) >= (b)) ?(a):(b) ) - #define MIN(b,c) ( ((b) < (c)) ?(b):(c) ) - #define ABS(x) ( ((x) >= 0 ) ?(x):(-x) ) - #define SQRT(d) ( pow((d),0.5) ) - /* SIGN transfer function */ - #define SIGN(x,y) (((y) >= 0 ) ?(ABS(x)):(-ABS(x)) ) - -/*~~> Numerical constants */ - #define ZERO (KPP_REAL)0.0 - #define ONE (KPP_REAL)1.0 - -/*~~~> Statistics on the work performed by the Runge-Kutta method */ - #define Nfun 0 - #define Njac 1 - #define Nstp 2 - #define Nacc 3 - #define Nrej 4 - #define Ndec 5 - #define Nsol 6 - #define Nsng 7 - #define Ntexit 0 - #define Nhacc 1 - #define Nhnew 2 - -/*~~~> Runge-Kutta method parameters */ - #define RKmax 3 - - #define R2A 1 - #define R1A 2 - #define L3C 3 - #define GAU 4 - #define L3A 5 - - int rkMethod, - SdirkError; - KPP_REAL rkT[RKmax][RKmax], - rkTinv[RKmax][RKmax], - rkTinvAinv[RKmax][RKmax], - rkAinvT[RKmax][RKmax], - rkA[RKmax+1][RKmax+1], - rkB[RKmax+1], - rkC[RKmax+1], - rkD[RKmax+1], - rkE[RKmax+1], - rkBgam[RKmax+2], - rkBhat[RKmax+2], - rkTheta[RKmax+1], - rkF[RKmax+2], - rkGamma, - rkAlpha, - rkBeta, - rkELO; -/*~~~> Function headers */ -// void INTEGRATE(KPP_REAL TIN, KPP_REAL TOUT, int ICNTRL_U[], KPP_REAL RCNTRL_U[], -// int ISTATUS_U[], KPP_REAL RSTATUS_U[], int IERR_U); - void INTEGRATE(KPP_REAL TIN, KPP_REAL TOUT); - void RungeKutta(int N, KPP_REAL T, KPP_REAL Tend, KPP_REAL Y[], - KPP_REAL RelTol[], KPP_REAL AbsTol[], KPP_REAL RCNTRL[], - int ICNTRL[], KPP_REAL RSTATUS[], int ISTATUS[], int* IERR); - void RK_Integrator(int N, KPP_REAL* T, KPP_REAL Tend, KPP_REAL Y[], - KPP_REAL AbsTol[], KPP_REAL RelTol[], int ITOL, - int ISTATUS[], KPP_REAL RSTATUS[], KPP_REAL Hmin, - KPP_REAL Hmax, KPP_REAL Hstart, KPP_REAL Roundoff, - int Max_no_steps, int NewtonMaxit, int StartNewton, - int Gustafsson, KPP_REAL ThetaMin, KPP_REAL NewtonTol, - KPP_REAL FacSafe, KPP_REAL FacMax, KPP_REAL FacMin, - KPP_REAL FacRej, KPP_REAL Qmin, KPP_REAL Qmax, int* IERR); - void RK_ErrorMsg(int Code, KPP_REAL T, KPP_REAL H, int* IERR); - void RK_ErrorScale(int N, int ITOL, KPP_REAL AbsTol[], KPP_REAL RelTol[], - KPP_REAL Y[], KPP_REAL SCAL[]); - /*void RK_Transform(int N, KPP_REAL Tr[][RKmax], KPP_REAL Z1[], KPP_REAL Z2[], - KPP_REAL Z3[], KPP_REAL W1[], KPP_REAL W2[], KPP_REAL W3[]);*/ - void RK_Interpolate(char action[], int N, KPP_REAL H, KPP_REAL Hold, - KPP_REAL Z1[], KPP_REAL Z2[], KPP_REAL Z3[], KPP_REAL CONT[][RKmax]); - void RK_PrepareRHS(int N, KPP_REAL T, KPP_REAL H, KPP_REAL Y[], KPP_REAL FO[], - KPP_REAL Z1[], KPP_REAL Z2[], KPP_REAL Z3[], KPP_REAL R1[], KPP_REAL R2[], - KPP_REAL R3[]); - void RK_Decomp(int N, KPP_REAL H, KPP_REAL FJAC[], KPP_REAL E1[], - int IP1[], KPP_REAL E2R[], KPP_REAL E2I[], - int IP2[], int* ISING, int ISTATUS[]); - void RK_Solve(int N, KPP_REAL H, KPP_REAL E1[], int IP1[], KPP_REAL E2R[], - KPP_REAL E2I[], int IP2[], KPP_REAL R1[], KPP_REAL R2[], KPP_REAL R3[], - int ISTATUS[]); - void RK_ErrorEstimate(int N, KPP_REAL H, KPP_REAL T, KPP_REAL Y[], - KPP_REAL FO[], KPP_REAL E1[], int IP1[], KPP_REAL Z1[], - KPP_REAL Z2[], KPP_REAL Z3[], KPP_REAL SCAL[], KPP_REAL* Err, - int FirstStep, int Reject, int ISTATUS[]); - void Radau2A_Coefficients(); - void Lobatto3C_Coefficients (); - void Gauss_Coefficients(); - void Radau1A_Coefficients(); - void Lobatto3A_Coefficients(); - void FUN_CHEM(KPP_REAL T, KPP_REAL V[], KPP_REAL FCT[]); - void JAC_CHEM(KPP_REAL T, KPP_REAL V[], KPP_REAL JF[]); - KPP_REAL RK_ErrorNorm(int N, KPP_REAL SCAL[], KPP_REAL DY[]); - void Fun(KPP_REAL Y[], KPP_REAL FIX[], KPP_REAL RCONST[], KPP_REAL Ydot[]); - void Jac_SP(KPP_REAL Y[], KPP_REAL FIX[], KPP_REAL RCONST[], KPP_REAL Ydot[]); - void WCOPY(int N, KPP_REAL X[], int incX, KPP_REAL Y[], int incY); - void WADD(int N, KPP_REAL Y[], KPP_REAL Z[], KPP_REAL TMP[]); - void WAXPY(int N, KPP_REAL Alpha, KPP_REAL X[], int incX, KPP_REAL Y[], int incY ); - KPP_REAL WLAMCH( char C ); - void KppSolveCmplxR(KPP_REAL JVSR[], KPP_REAL JVSI[], KPP_REAL XR[], KPP_REAL XI[]); - int KppDecompCmplxR(KPP_REAL *JVSR, KPP_REAL *JVSI); - void Set2Zero(int N, KPP_REAL A[]); - int KppDecomp( KPP_REAL A[] ); - void KppSolve ( KPP_REAL A[], KPP_REAL b[] ); - void Update_SUN(); - void Update_RCONST(); - void Update_PHOTO(); - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -//void INTEGRATE(KPP_REAL TIN, KPP_REAL TOUT, int ICNTRL_U[], KPP_REAL RCNTRL_U[], -// int ISTATUS_U[], KPP_REAL RSTATUS_U[], int IERR_U ) -void INTEGRATE(KPP_REAL TIN, KPP_REAL TOUT ) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -/* RungeKutta - Fully Implicit 3-stage Runge-Kutta methods based on: - * Radau-2A quadrature (order 5) - * Radau-1A quadrature (order 5) - * Lobatto-3C quadrature (order 4) - * Gauss quadrature (order 6) - By default the code employs the KPP sparse linear algebra routines - Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK) - - (C) Adrian Sandu, August 2005 - Virginia Polytechnic Institute and State University - Contact: sandu@cs.vt.edu - Revised by Philipp Miehe and Adrian Sandu, May 2006 - F90 to C translation by Tinting Jiang and Don Jacob, July 2006 - This implementation is part of KPP - the Kinetic PreProcessor -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - int IERR; - KPP_REAL RCNTRL[20], - RSTATUS[20], - T1, - T2; - int ICNTRL[20], - ISTATUS[20]; - static int Ntotal = 0; /* for printing the number of steps */ - - int i; - for ( i = 0; i < 20; i++ ) { - RCNTRL[i] = ZERO; - ICNTRL[i] = 0; - } /* for */ - - /*~~~> fine-tune the integrator: */ - ICNTRL[1] = 0; /* 0=vector tolerances, 1=scalar tolerances */ - ICNTRL[4] = 8; /* Max no. of Newton iterations */ - ICNTRL[5] = 0; /* Starting values for Newton are interpolated(0) or zero(1) */ - ICNTRL[9] = 1; /* 0 - classic or 1 - SDIRK error estimation */ - ICNTRL[10] = 0; /* Gustaffson(0) or classic(1) controller */ - -// /*~~~> if optional parameters are given, and if they are >0, -// then use them to overwrite default settings */ -// if (ICNTRL_U != NULL) { -// for ( i = 0; i < 20; i++) { -// if (ICNTRL_U[i] > 0) { -// ICNTRL[i] = ICNTRL_U[i]; -// } /* end if */ -// } /* end for */ -// } /* end if */ -// if (RCNTRL_U != NULL) { -// for (i = 0; i < 20; i++) { -// if (RCNTRL_U[i] > 0) { -// RCNTRL[i] = RCNTRL_U[i]; -// } /* end if */ -// } /* end for */ -// } /* end if */ - - T1 = TIN; - /*printf("T1=%f\n", T1);*/ - T2 = TOUT; - /*printf("T2=%f\n", T2);*/ - RungeKutta(NVAR, T1, T2, VAR, RTOL, ATOL, RCNTRL,ICNTRL,RSTATUS,ISTATUS, &IERR); - - Ntotal += ISTATUS[Nstp]; - printf("NSTEPS=%d (%d) O3=%E ", ISTATUS[Nstp], Ntotal, VAR[ind_O3]); - -// /* if optional parameters are given for output -// * use them to store information in them */ -// if (ISTATUS_U != NULL) { -// for (i = 0; i < 20; i++) { -// ISTATUS_U[i] = ISTATUS[i]; -// } /* end for */ -// } /* end if */ -// if (RSTATUS_U != NULL) { -// for (i = 0; i < 20; i++) { -// RSTATUS_U[i] = RSTATUS[i]; -// } /* end for */ -// } /* end if */ -// /*if (IERR_U != NULL) */ -// IERR_U = IERR; - - if (IERR < 0) { - printf("Runge-Kutta: Unsuccessful exit at T=%f(IERR=%d)", TIN, IERR); - } /* end if */ - -} /* end INTEGRATE */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - -void RungeKutta(int N, KPP_REAL T, KPP_REAL Tend, KPP_REAL Y[], - KPP_REAL RelTol[], KPP_REAL AbsTol[], KPP_REAL RCNTRL[], - int ICNTRL[], KPP_REAL RSTATUS[], int ISTATUS[], int* IERR) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - This implementation is based on the book and the code Radau5: - - E. HAIRER AND G. WANNER - "SOLVING ORDINARY DIFFERENTIAL EQUATIONS II. - STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS." - SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS 14, - SPRINGER-VERLAG (1991) - - UNIVERSITE DE GENEVE, DEPT. DE MATHEMATIQUES - CH-1211 GENEVE 24, SWITZERLAND - E-MAIL: HAIRER@DIVSUN.UNIGE.CH, WANNER@DIVSUN.UNIGE.CH - - Methods: - * Radau-2A quadrature (order 5) - * Radau-1A quadrature (order 5) - * Lobatto-3C quadrature (order 4) - * Gauss quadrature (order 6) - - (C) Adrian Sandu, August 2005 - Virginia Polytechnic Institute and State University - Contact: sandu@cs.vt.edu - This implementation is part of KPP - the Kinetic PreProcessor -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - *~~~> INPUT ARGUMENTS: - ---------------- - Note: For input parameters equal to zero the default values of the - corresponding variables are used. - - N Dimension of the system - T Initial time value - - Tend Final T value (Tend-T may be positive or negative) - - Y(N) Initial values for Y - - RelTol, AbsTol Relative and absolute error tolerances. - for ICNTRL[1] = 0: AbsTol, RelTol are N-dimensional vectors - = 1: AbsTol, RelTol are scalars - *~~~> Integer input parameters: - - ICNTRL[0] = not used - - ICNTRL[1] = 0: AbsTol, RelTol are NVAR-dimensional vectors - = 1: AbsTol, RelTol are scalars - - ICNTRL[2] = RK method selection - = 1: Radau-2A (the default) - = 2: Radau-1A - = 3: Lobatto-3C - = 4: Gauss - = 5: Lobatto-3A (not yet implemented) - - ICNTRL[3] -> maximum number of integration steps - For ICNTRL[3] = 0 the default value of 10000 is used - - ICNTRL[4] -> maximum number of Newton iterations - For ICNTRL[4] = 0 the default value of 8 is used - - ICNTRL[5] -> starting values of Newton iterations: - ICNTRL[5] = 0: starting values are obtained from - the extrapolated collocation solution - (the default) - ICNTRL[5] = 1: starting values are zero - - ICNTRL[9] -> switch for error estimation strategy - ICNTRL[9] = 0: one additional stage at c = 0, - see Hairer (default) - ICNTRL[9] = 1: two additional stages at c = 0, - and SDIRK at c = 1, stiffly accurate - - ICNTRL[10] -> switch for step size strategy - ICNTRL[10] = 0: mod. predictive controller (Gustafsson, default) - ICNTRL[10] = 1: classical step size control - the choice 1 seems to produce safer results; - for simple problems, the choice 2 produces - often slightly faster runs - - *~~~> Real input parameters: - RCNTRL[0] -> Hmin, lower bound for the integration step size - (highly recommended to keep Hmin = ZERO, the default) - - RCNTRL[1] -> Hmax, upper bound for the integration step size - - RCNTRL[2] -> Hstart, the starting step size - - RCNTRL[3] -> FacMin, lower bound on step decrease factor - (default=0.2) - - RCNTRL[4] -> FacMax, upper bound on step increase factor - (default=6) - - RCNTRL[5] -> FacRej, step decrease factor after multiple rejections - (default=0.1) - - RCNTRL[6] -> FacSafe, by which the new step is slightly smaller - than the predicted value (default=0.9) - - RCNTRL[7] -> ThetaMin. If Newton convergence rate smaller - than ThetaMin the Jacobian is not recomputed; - (default=0.001) - - RCNTRL[8] -> NewtonTol, stopping criterion for Newton's method - (default=0.03) - - RCNTRL[9] -> Qmin - - RCNTRL[10] -> Qmax. If Qmin < Hnew/Hold < Qmax, then the - step size is kept constant and the LU factorization - reused (default Qmin=1, Qmax=1.2) -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - *~~~> OUTPUT ARGUMENTS: - ----------------- - T -> T value for which the solution has been computed - (after successful return T=Tend). - - Y(N) -> Numerical solution at T - - Note: each call to RungeKutta adds the current no. of fcn calls - to previous value of ISTATUS[0], and similar to other params. - Set ISTATUS[1:9] = 0 before call to avoid this accumulation. - - ISTATUS[0] -> No. of function calls - ISTATUS[1] -> No. of Jacobian calls - ISTATUS[2] -> No. of steps - ISTATUS[3] -> No. of accepted steps - ISTATUS[4] -> No. of rejected steps (except at very beginning) - ISTATUS[5] -> No. of LU decompositions - ISTATUS[6] -> No. of forward/backward substitutions - ISTATUS[7] -> No. of singular matrix decompositions - - RSTATUS[0] -> Texit, the time corresponding to the - computed Y upon return - RSTATUS[1] -> Hexit, last accepted step before exit - RSTATUS[2] -> Hnew, last predicted step (not yet taken) - For multiple restarts, use Hnew as Hstart - in the subsequent run - -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - *~~~> RETURN VALUE (int): - - IERR -> Reports on successfulness upon return: - = 1 for success - < 0 for error (value equals error code) - = -1 : Improper value for maximal no of steps - = -2 : Improper value for maximal no of Newton iterations - = -3 : Hmin/Hmax/Hstart must be positive - = -4 : Improper values for FacMin/FacMax/FacSafe/FacRej - = -5 : Improper value for ThetaMin - = -6 : Newton stopping tolerance too small - = -7 : Improper values for Qmin, Qmax - = -8 : Tolerances are too small - = -9 : No of steps exceeds maximum bound - = -10 : Step size too small - = -11 : Matrix is repeatedly singular - = -12 : Non-convergence of Newton iterations - = -13 : Requested RK method not implemented -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ -{ - /*~~~> Control arguments */ - /*printf("Starting RungeKutta\n");*/ - int Max_no_steps; - KPP_REAL Hmin, - Hmax, - Hstart, - Qmin, - Qmax, - Roundoff, - ThetaMin, - NewtonTol, - FacSafe, - FacMin, - FacMax, - FacRej; - /*~~~> Local variables */ - int NewtonMaxit, - ITOL, - i, - StartNewton, - Gustafsson; - - *IERR = 0; - for (i = 0; i < 20; i++) { - ISTATUS[i] = 0; - RSTATUS[i] = ZERO; - } /* end for */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ - - /*~~~> ICNTRL[0] - autonomous system - not used */ - /*~~~> ITOL: 1 for vector and 0 for scalar AbsTol/RelTol */ - if (ICNTRL[1] == 0) { - /*printf("Entering if ICNTRL[1] == 0\n");*/ - ITOL = 1; - } - else { - ITOL = 0; - } /*end if */ - /*~~~> Error control selection */ - if (ICNTRL[9] == 0) { - SdirkError = 0; - } - else { - /*printf("Entering if ICNTRL[9] == 1\n");*/ - SdirkError = 1; - } /* end if */ - /*~~~> Method Selection */ - /*printf("Starting case ICNTRL[2]\n");*/ - switch (ICNTRL[2]) { - case 0: - case 1: Radau2A_Coefficients(); /*printf("case 0 or 1\n");*/ - break; - case 2: Lobatto3C_Coefficients(); printf("case 2\n"); - break; - case 3: Gauss_Coefficients(); printf("case 3\n"); - break; - case 4: Radau1A_Coefficients(); printf("case 4\n"); - break; - case 5: Lobatto3A_Coefficients(); printf("case 5\n"); - break; - default: - printf("\n ICNTRL[2]=%d\n", ICNTRL[2]); - RK_ErrorMsg(-13, T, ZERO, IERR); - } /* end switch */ - - /*~~~> Max_no_steps: the maximal number of time steps */ - if (ICNTRL[3] == 0) { - Max_no_steps = 200000; - /*printf("Max_no_steps = %d\n", Max_no_steps);*/ - } - else { - Max_no_steps = ICNTRL[3]; - if (Max_no_steps <= 0) - { - printf("\n ICNTRL[3]=%d\n", ICNTRL[3]); - RK_ErrorMsg(-1, T, ZERO, IERR); - } /* end if */ - } /* end if */ - - /*~~~> NewtonMaxit: maximal number of Newton iterations */ - if (ICNTRL[4] == 0) - NewtonMaxit = 8; - else - { - NewtonMaxit = ICNTRL[4]; - if (NewtonMaxit <= 0) { - printf("\n ICNTRL[4]=%d\n", ICNTRL[4]); - RK_ErrorMsg(-2, T, ZERO, IERR); - } - /*printf("NewtonMaxit = %d\n", NewtonMaxit);*/ - } /* end if */ - - /*~~~> StartNewton: Use extrapolation for starting values of Newton iterations */ - if (ICNTRL[5] == 0) { - StartNewton = 1; - /*printf("StartNewton = %d\n", StartNewton);*/ - } - else { - StartNewton = 0; - } /* end if */ - - /*~~~> Gustafsson: step size controller */ - if (ICNTRL[10] == 0) { - Gustafsson = 1; - /*printf("Gustafsson = %d\n", Gustafsson);*/ - } - else { - Gustafsson = 0; - } /* end if */ - - /*~~~> Roundoff: smallest number s.t. 1.0 + Roundoff > 1.0 */ - Roundoff = WLAMCH('E'); - /*printf("Roundoff=%f\n", Roundoff);*/ - /*~~~> Hmin = minimal step size */ - if (RCNTRL[0] == ZERO) { - /*printf("Entering if RCNTRL[0]=%f == ZERO\n", RCNTRL[0]);*/ - Hmin = ZERO; - } - else { - Hmin = MIN(ABS(RCNTRL[0]), ABS(Tend-T)); - } /* end if */ - /*~~~> Hmax = maximal step size */ - if (RCNTRL[1] == ZERO) { - /*printf("Entering if RCNTRL[1]=%f == ZERO\n", RCNTRL[1]);*/ - Hmax = ABS(Tend-T); - } - else { - Hmax = MIN(ABS(RCNTRL[1]),ABS(Tend-T)); - } /* end if */ - /*~~~> Hstart = starting step size */ - if (RCNTRL[2] == ZERO) { - /*printf("Entering if RCNTRL[2]=%f == ZERO\n", RCNTRL[2]);*/ - Hstart = ZERO; - } - else { - Hstart = MIN(ABS(RCNTRL[2]),ABS(Tend-T)); - } /* end if */ - /*~~~> FacMin: lower bound on step decrease factor */ - if (RCNTRL[3] == ZERO) { - /*printf("Entering if RCNTRL[3]=%f == ZERO\n", RCNTRL[3]);*/ - FacMin = (KPP_REAL)0.2; - } - else { - FacMin = RCNTRL[3]; - } /* end if */ - /*~~~> FacMax: upper bound on step increase factor */ - if (RCNTRL[4] == ZERO) { - /*printf("Entering if RCNTRL[4]=%f == ZERO\n", RCNTRL[4]);*/ - FacMax = (KPP_REAL)8.0; - } - else { - FacMax = RCNTRL[4]; - } /* end if */ - /*~~~> FacRej: step decrease factor after 2 consecutive rejections */ - if (RCNTRL[5] == ZERO) { - /*printf("Entering if RCNTRL[5]=%f == ZERO\n", RCNTRL[5]);*/ - FacRej = (KPP_REAL)0.1; - } - else { - FacRej = RCNTRL[5]; - } /* end if */ - /*~~~> FacSafe: by which the new step is slightly smaller - than the predicted value */ - if (RCNTRL[6] == ZERO) { - /*printf("Entering if RCNTRL[6]=%f == ZERO\n", RCNTRL[6]);*/ - FacSafe = (KPP_REAL)0.9; - } - else { - FacSafe = RCNTRL[6]; - } /* end if */ - if ((FacMax < ONE) || (FacMin > ONE) || (FacSafe <= 1.0e-03) || (FacSafe >= ONE)) { - printf("\n RCNTRL[3]=%f, RCNTRL[4]=%f, RCNTRL[5]=%f, RCNTRL[6]=%f\n", - RCNTRL[3], RCNTRL[4], RCNTRL[5], RCNTRL[6]); - RK_ErrorMsg(-4, T, ZERO, IERR); - } /* end if */ - - /*~~~> ThetaMin: decides whether the Jacobian should be recomputed */ - if (RCNTRL[7] == ZERO) - ThetaMin = (KPP_REAL)1.0e-03; - else { - ThetaMin = RCNTRL[7]; - if (ThetaMin <= (KPP_REAL)0.0 || ThetaMin >= (KPP_REAL)1.0) { - printf("\n RCNTRL[7]=%f\n", RCNTRL[7]); - RK_ErrorMsg(-5, T, ZERO, IERR); - } - } /* end if */ - /*~~~> NewtonTol: stopping criterion for Newton's method */ - if (RCNTRL[8] == ZERO) - NewtonTol = (KPP_REAL)3.0e-02; - else { - NewtonTol = RCNTRL[8]; - if (NewtonTol <= Roundoff) { - printf("\n RCNTRL[8]=%f\n", RCNTRL[8]); - RK_ErrorMsg(-6, T, ZERO, IERR); - } - } /* end if */ - /*~~~> Qmin AND Qmax: IF Qmin < Hnew/Hold < Qmax then step size = const. */ - if (RCNTRL[9] == ZERO) { - Qmin = ONE; - } - else { - Qmin = RCNTRL[9]; - } /* end if */ - if (RCNTRL[10] == ZERO) { - Qmax = (KPP_REAL)1.2; - } - else { - Qmax = RCNTRL[10]; - } /* end if */ - if (Qmin > ONE || Qmax < ONE) { - printf("\n RCNTRL[9]=%f\n", Qmin); - printf("\n RCNTRL[10]=%f\n", Qmax); - RK_ErrorMsg(-7, T, ZERO, IERR); - } /* end if */ - /*~~~> Check if tolerances are reasonable */ - if (ITOL == 0) { - if ( AbsTol[0] <= ZERO || RelTol[0] <= ( ((KPP_REAL)10.0)*Roundoff) ) { - printf("\n AbsTol=%f\n", AbsTol[0]); - printf("\n RelTol=%f\n", RelTol[0]); - RK_ErrorMsg(-8, T, ZERO, IERR); - } - } - else { - for (i = 0; i < N; i++) { - if ( (AbsTol[i] <= ZERO) || (RelTol[i] <= ((KPP_REAL)10.0)*Roundoff) ) { - printf("\n AbsTol[%d] = %f\n", i, AbsTol[i]); - printf("\n AbsTol[%d] = %f\n", i, RelTol[i]); - RK_ErrorMsg(-8, T, ZERO, IERR); - } /* end if */ - } /* end for */ - } /* end if */ - - /*~~~> Parameters are wrong */ - if (*IERR < 0) - return; - - /*~~~> Call the core method */ - RK_Integrator(N, &T, Tend, Y, AbsTol, RelTol, ITOL, ISTATUS, RSTATUS, - Hmin, Hmax, Hstart, Roundoff, Max_no_steps, NewtonMaxit, - StartNewton, Gustafsson, ThetaMin, NewtonTol, - FacSafe, FacMax, FacMin, FacRej, Qmin, Qmax, IERR); - /*printf("*IERR = %d\n", *IERR);*/ - /*printf("Ending RungeKutta\n");*/ -} /* RungeKutta */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void RK_Integrator( int N, - /*~~~> Input: integration interval */ - KPP_REAL* T, KPP_REAL Tend, KPP_REAL Y[], - KPP_REAL AbsTol[], KPP_REAL RelTol[], int ITOL, - /*~~~> Input: the initial condition at T; output: the solution at Tend */ - int ISTATUS[], KPP_REAL RSTATUS[], KPP_REAL Hmin, KPP_REAL Hmax, - KPP_REAL Hstart, KPP_REAL Roundoff, int Max_no_steps, int NewtonMaxit, - int StartNewton, int Gustafsson, KPP_REAL ThetaMin, - KPP_REAL NewtonTol, KPP_REAL FacSafe, KPP_REAL FacMax, KPP_REAL FacMin, - KPP_REAL FacRej, KPP_REAL Qmin, KPP_REAL Qmax, int* IERR) -{ - /*printf("Starting RK_Integrator\n");*/ - KPP_REAL FJAC[LU_NONZERO], - E1[LU_NONZERO], - E2R[LU_NONZERO], - E2I[LU_NONZERO]; - KPP_REAL Z1[NVAR], - Z2[NVAR], - Z3[NVAR], - Z4[NVAR], - SCAL[NVAR], - DZ1[NVAR], - DZ2[NVAR], - DZ3[NVAR], - DZ4[NVAR], - G[NVAR], - TMP[NVAR], - FO[NVAR]; - KPP_REAL CONT[NVAR][RKmax], - Tdirection, - H, - Hacc, - Hnew, - Hold, - Fac, - FacGus, - Theta, - Err, - ErrOld, - NewtonRate, - NewtonIncrement, - Hratio, - Qnewton, - NewtonPredictedErr, - NewtonIncrementOld, - ThetaSD; - int IP1[NVAR], - IP2[NVAR], - NewtonIter, - Nconsecutive, - i; - int ISING; - int Reject, - FirstStep, - SkipJac, - NewtonDone, - SkipLU; - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - /*~~~> INITIAL setting */ - /*printf("ONE=%f Tend-*T=%f\n", ONE, Tend-*T);*/ - Tdirection = SIGN(ONE, Tend-*T); - /*printf("Tdirection=%f\n", Tdirection);*/ - /*printf("Hmin=%g Hstart=%g \n", Hmin, Hstart);*/ - /*printf("ABS(Hmin)=%g ABS(Hstart)=%g \n", ABS(Hmin), ABS(Hstart));*/ - H = MIN( MAX(ABS(Hmin), ABS(Hstart)), Hmax ); - if (ABS(H) <= ((KPP_REAL)10.0*Roundoff)) { - /*printf("Entering if ABS(H)=%g <= 10.0*Roundoff=%g\n", ABS(H),(KPP_REAL)10.0*Roundoff);*/ - H = (KPP_REAL)(1.0e-06); - } /* end if */ - H = SIGN(H, Tdirection); - Hold = H; - /*printf("Hold=%f\n", Hold);*/ - Reject = 0; - FirstStep = 1; - SkipJac = 0; - SkipLU = 0; - if ((*T+H*((KPP_REAL)1.0001)-Tend)*Tdirection >= ZERO) { - H = Tend - *T; - } /* end if */ - Nconsecutive = 0; - RK_ErrorScale(N, ITOL, AbsTol, RelTol, Y, SCAL); - /*for(i=0; i Time loop begins */ - /* while Tloop */ -Tloop: while ( (Tend-*T)*Tdirection - Roundoff > ZERO ) { - /*printf("Starting Tloop: (Tend-*T)*Tdirection - Roundoff=%g > ZERO\n", (Tend-*T)*Tdirection-Roundoff);*/ - /*if ( Reject == 0 ) { */ - FUN_CHEM(*T,Y,FO); - ISTATUS[Nfun]++; - /* } * end if */ - if ( SkipLU == 0 ) { /* This time around skip the Jac update and LU */ - /*~~~> Compute the Jacobian matrix */ - /*printf("Entering if SkipLU == 0\n");*/ - if ( SkipJac == 0 ) { - /*printf("Entering if SkipJac == 0\n");*/ - JAC_CHEM(*T,Y,FJAC); - ISTATUS[Njac]++; - } /* end if */ - /*~~~> Compute the matrices E1 and E2 and their decompositions */ - RK_Decomp(N,H,FJAC,E1,IP1,E2R,E2I,IP2,&ISING,ISTATUS); - /*printf("ISING=%d\n", ISING);*/ - if ( ISING != 0 ) { - /*printf("Entering if ISING != 0\n");*/ - ISTATUS[Nsng]++; - Nconsecutive++; - if (Nconsecutive >= 5) { - RK_ErrorMsg(-12,*T,H,IERR); - } - H = H * ((KPP_REAL)0.5); - Reject = 1; - SkipJac = 1; - SkipLU = 0; - goto Tloop; - } - else { - /*printf("Entering if ISING == 0\n");*/ - Nconsecutive = 0; - } /* end if */ - } /* end if !SkipLU */ - - /*printf("NSTEPS=%d\n", ISTATUS[Nstp]);*/ - ISTATUS[Nstp]++; - /*printf("NSTEPS=%d\n", ISTATUS[Nstp]);*/ - if (ISTATUS[Nstp] > Max_no_steps) { - printf("\n Max number of time steps is = %d", Max_no_steps); - RK_ErrorMsg(-9,*T,H,IERR); - } /* end if */ - if (((KPP_REAL)0.1)*ABS(H) <= ABS(*T)*Roundoff) - RK_ErrorMsg(-10,*T,H,IERR); - - /*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - /*~~~> Loop for the simplified Newton iterations */ - /*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - /*~~~> Starting values for Newton iteration */ - if ( (FirstStep == 1) || (StartNewton == 0) ) { - /*printf("Entering if FirstStep or Not StartNewton\n");*/ - Set2Zero(N,Z1); - Set2Zero(N,Z2); - Set2Zero(N,Z3); - } - else - { - /* Evaluate quadratic polynomial */ - RK_Interpolate("eval",N,H,Hold,Z1,Z2,Z3,CONT); - } /* end if */ - - /*~~~> Initializations for Newton iteration */ - NewtonDone = 0; - Fac = (KPP_REAL)0.5; /* Step reduction if too many iterations */ - - /* for NewtonLoop */ - for (NewtonIter = 1; NewtonIter <= NewtonMaxit; NewtonIter++) - { - /*printf("Starting NewtonIter loop: NewtonIter=%d\n", NewtonIter);*/ - /* Prepare the right-hand side */ - RK_PrepareRHS(N,*T,H,Y,FO,Z1,Z2,Z3,DZ1,DZ2,DZ3); - - /* Solve the linear systems */ - RK_Solve(N,H,E1,IP1,E2R,E2I,IP2,DZ1,DZ2,DZ3,ISTATUS); - - NewtonIncrement = - SQRT((RK_ErrorNorm(N,SCAL,DZ1) * RK_ErrorNorm(N,SCAL,DZ1) - + RK_ErrorNorm(N,SCAL,DZ2) * RK_ErrorNorm(N,SCAL,DZ2) - + RK_ErrorNorm(N,SCAL,DZ3) * RK_ErrorNorm(N,SCAL,DZ3)) - / (KPP_REAL)3.0 ); - /*printf( "NewtonIncrement=%g \n", NewtonIncrement );*/ - if (NewtonIter == 1) { - /*printf("Entering NewtonIter=%d == 1\n", NewtonIter);*/ - Theta = ABS(ThetaMin); - NewtonRate = (KPP_REAL)2.0; - } - else { - /*printf("Entering else from NewtonIter=%d == 1\n", NewtonIter);*/ - Theta = NewtonIncrement / NewtonIncrementOld; - /*printf("Theta=%f\n", Theta);*/ - if (Theta < (KPP_REAL)0.99) { - /*printf( "Entering if Theta=%g < 0.99\n", Theta );*/ - NewtonRate = Theta / (ONE-Theta); - } - else { /* Non-convergence of Newton: Theta too large */ - break; /* EXIT NewtonLoop */ - } /* end if */ - if (NewtonIter < NewtonMaxit) { - /*printf("Entering if NewtonIter=%d < NewtonMaxit=%d\n", NewtonIter, NewtonMaxit);*/ - /* Predict error at the end of Newton process */ - NewtonPredictedErr = NewtonIncrement - *pow(Theta,(NewtonMaxit-NewtonIter))/(ONE-Theta); - /*printf("NewtonRate=%g NewtonPredictedErr=%g \n", NewtonRate, NewtonPredictedErr);*/ - if (NewtonPredictedErr >= NewtonTol) { - /*printf( "Entering if NewtonPredictedErr=%g >= NewtonTol%g \n", NewtonPredictedErr, NewtonTol );*/ - /* Non-convergence of Newton: predicted error too large */ - Qnewton = MIN((KPP_REAL)10.0, NewtonPredictedErr/NewtonTol); - Fac = (KPP_REAL)0.8*pow(Qnewton,(-ONE/(1+NewtonMaxit-NewtonIter))); - break; /* EXIT NewtonLoop */ - } /* end if */ - } /* end if */ - } /* end if */ - - NewtonIncrementOld = MAX(NewtonIncrement, Roundoff); - /*printf("NewtonIncrementOld=%f\n", NewtonIncrementOld);*/ - /*~~~> Update solution */ - WAXPY(N,-ONE,DZ1,1,Z1,1); /* Z1 <- Z1 - DZ1 */ - WAXPY(N,-ONE,DZ2,1,Z2,1); /* Z2 <- Z2 - DZ2 */ - WAXPY(N,-ONE,DZ3,1,Z3,1); /* Z3 <- Z3 - DZ3 */ - /*for(i=0; i Check error in Newton iterations */ - /*printf( "NewtonRate=%g NewtonIncrement=%g NewtonTol=%g \n", NewtonRate, NewtonIncrement, NewtonTol );*/ - NewtonDone = (NewtonRate*NewtonIncrement <= NewtonTol); - /*printf( "NewtonDone=%d \n", NewtonDone );*/ - if (NewtonDone == 1) - break; /* Exit NewtonLoop */ - if (NewtonIter == NewtonMaxit) - { - printf("\n Slow or no convergence in Newton Iteration:"); - printf(" Max no. of Newton iterations reached"); - } /* end if */ - }/* end for NewtonLoop */ - - if ( NewtonDone == 0) - { - /*printf( "Entering if NewtonDone == 0\n" );*/ - /*RK_ErrorMsg(-12,*T,H,IERR); */ - H = Fac*H; - Reject = 1; - SkipJac = 1; - SkipLU = 0; - goto Tloop; - } /* end if */ - - /*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - /*~~~> SDIRK Stage */ - /*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - if (SdirkError == 1) - { - /*printf("Entering if SdirkError=%d==1\n", SdirkError);*/ - /*~~~> Starting values for Newton iterations */ - for (i = 0; i < N; i++) - { - Z4[i] = Z3[i]; - } - /*~~~> Prepare the loop-independent part of the right-hand side */ - /* G = H*rkBgam(0)*FO + rkTheta(1)*Z1 - + rkTheta(2)*Z2 + rkTheta(3)*Z3; */ - Set2Zero(N,G); - if (rkMethod != L3A) - WAXPY(N,rkBgam[0]*H, FO,1,G,1); - WAXPY(N,rkTheta[0],Z1,1,G,1); - WAXPY(N,rkTheta[1],Z2,1,G,1); - WAXPY(N,rkTheta[2],Z3,1,G,1); - - /*~~~> Initializations for Newton iteration */ - NewtonDone = 0; - Fac = (KPP_REAL)0.5; /* Step reduction factor if too many iterations */ - - /* for SDNewtonLoop */ - for (NewtonIter = 1; NewtonIter <= NewtonMaxit; NewtonIter++) - { - /*printf("Starting NewtonIter loop: NewtonIter=%d\n", NewtonIter);*/ - /*~~~> Prepare the loop-dependent part of right-hand side */ - WADD(N,Y,Z4,TMP); /* TMP <- Y + Z4 */ - FUN_CHEM(*T+H,TMP,DZ4); /* DZ4 <- Fun(Y+Z4) */ - ISTATUS[Nfun]++; - /* DZ4[1,N] = (D[1, N]-Z4[1,N])*(rkGamma/H) + DZ4[1,N]; */ - WAXPY(N,-ONE*rkGamma/H,Z4,1,DZ4,1); - WAXPY(N,rkGamma/H,G,1,DZ4,1); - - /*~~~> Solve the linear system */ - KppSolve(E1, DZ4); - /*~~~> Note: for a full matrix use Lapack: - DGETRS('N', 5, 1, E1, N, IP1, DZ4, 5, ISING) */ - - /*~~~> Check convergence of Newton iterations */ - NewtonIncrement = RK_ErrorNorm(N,SCAL,DZ4); - /*printf( "NewtonIncrement=%g \n", NewtonIncrement );*/ - if (NewtonIter == 1) { - /*printf("Entering NewtonIter=%d == 1\n", NewtonIter);*/ - ThetaSD = ABS(ThetaMin); - NewtonRate = (KPP_REAL)2.0; - } - else { - /*printf("Entering else from NewtonIter=%d == 1\n", NewtonIter);*/ - ThetaSD = NewtonIncrement / NewtonIncrementOld; - if (ThetaSD < (KPP_REAL)0.99) { - /*printf( "Entering if Theta=%g < 0.99\n", Theta );*/ - NewtonRate = ThetaSD / (ONE-ThetaSD); - /* Predict error at the end of Newton process */ - NewtonPredictedErr = NewtonIncrement - *pow(ThetaSD,(NewtonMaxit-NewtonIter))/(ONE-ThetaSD); - /*printf("NewtonRate=%g NewtonPredictedErr=%g \n", NewtonRate, NewtonPredictedErr);*/ - if (NewtonPredictedErr >= NewtonTol) { - /*printf( "Entering if NewtonPredictedErr=%g >= NewtonTol%g \n", NewtonPredictedErr, NewtonTol );*/ - /* Non-convergence of Newton: predicted error too large */ - /* printf("\n Error too large", NewtonPredictedErr); */ - Qnewton = MIN((KPP_REAL)10.0,NewtonPredictedErr/NewtonTol); - Fac = (KPP_REAL)0.8*pow(Qnewton,(-ONE/(1+NewtonMaxit-NewtonIter))); - break; /* EXIT SDNewtonLoop */ - } /* end if */ - } - /* Non-convergence of Newton: Theta too large */ - else { - /* prinf("\n Theta too large", ThetaSD); */ - break; /* EXIT SDNewtonLoop */ - } /* end if */ - } /* end if */ - NewtonIncrementOld = NewtonIncrement; - /*printf("NewtonIncrementOld=%f\n", NewtonIncrementOld);*/ - /* Update solution: Z4 <-- Z4 + DZ4; */ - WAXPY(N,ONE,DZ4,1,Z4,1); - - /* Check error in Newton iterations */ - NewtonDone = (NewtonRate*NewtonIncrement <= NewtonTol); - /*printf( "NewtonDone=%d \n", NewtonDone );*/ - if (NewtonDone == 1) - break; /* EXIT SDNewtonLoop */ - } /* end for SDNewtonLoop */ - - if ( NewtonDone == 0 ) { - /*printf( "Entering if NewtonDone == 0\n" );*/ - H = Fac*H; - Reject = 1; - SkipJac = 1; - SkipLU = 0; - goto Tloop; - } /* end if */ - } /* end if */ - /*~~~> End of implified SDIRK Newton iterations */ - - /*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - /*~~~> Error estimation */ - /*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - if (SdirkError == 1) { - Set2Zero(N, DZ4); - if (rkMethod == L3A) { - for (i = 0; i < N; i++) - DZ4[i] = H*rkF[0]*FO[i]; - if (rkF[0] != ZERO) - WAXPY(N, rkF[0], Z1, 1, DZ4, 1); - if (rkF[1] != ZERO) - WAXPY(N, rkF[1], Z2, 1, DZ4, 1); - if (rkF[2] != ZERO) - WAXPY(N, rkF[2], Z3, 1, DZ4, 1); - for (i = 0; i < N; i++) - TMP[i] = Y[i] + Z4[i]; - FUN_CHEM(*T+H, TMP, DZ1); - WAXPY(N, H*rkBgam[4], DZ1, 1, DZ4, 1); - } - else { - /* DZ4(1,N) = rkD(1)*Z1 + rkD(2)*Z2 + rkD(3)*Z3 - Z4; */ - if (rkD[0] != ZERO) - WAXPY(N, rkD[0], Z1, 1, DZ4, 1); - if (rkD[1] != ZERO) - WAXPY(N, rkD[1], Z2, 1, DZ4, 1); - if (rkD[2] != ZERO) - WAXPY(N, rkD[2], Z3, 1, DZ4, 1); - WAXPY(N, -ONE, Z4, 1, DZ4, 1); - } /* end if */ - Err = RK_ErrorNorm(N,SCAL,DZ4); - } - else - { - RK_ErrorEstimate(N,H,*T,Y,FO,E1,IP1,Z1,Z2,Z3,SCAL,&Err, - FirstStep,Reject,ISTATUS); - } /* end if */ - - /*~~~> Computation of new step size Hnew */ - Fac = pow(Err, (-ONE/rkELO)) - *MIN(FacSafe,(ONE+2*NewtonMaxit)/(NewtonIter+2*NewtonMaxit)); - Fac = MIN(FacMax,MAX(FacMin,Fac)); - Hnew = Fac*H; - - /*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - /*~~~> Accept/reject step */ - /*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - // accept: - if (Err < ONE) { /*~~~> STEP IS ACCEPTED */ - FirstStep = 0; - ISTATUS[Nacc]++; - if (Gustafsson == 1) { - /*~~~> Predictive controller of Gustafsson */ - if (ISTATUS[Nacc] > 1) { - FacGus = FacSafe*(H/Hacc)*pow(Err*Err/ErrOld,(KPP_REAL)(-0.25)); - FacGus = MIN(FacMax,MAX(FacMin,FacGus)); - Fac = MIN(Fac,FacGus); - Hnew = Fac*H; - } /* end if */ - Hacc = H; - ErrOld = MAX((KPP_REAL)1.0e-02,Err); - } /* end if */ - Hold = H; - *T = *T + H; - /* Update solution: Y <- Y + sum(d_i Z-i) */ - if (rkD[0] != ZERO) - WAXPY(N, rkD[0], Z1, 1, Y, 1); - if (rkD[1] != ZERO) - WAXPY(N, rkD[1], Z2, 1, Y, 1); - if (rkD[2] != ZERO) - WAXPY(N, rkD[2], Z3, 1, Y, 1); - /* Construct the solution quadratic interpolant Q(c_i) = Z_i, i=1:3 */ - if (StartNewton == 1) - RK_Interpolate("make",N,H,Hold,Z1,Z2,Z3,CONT); - RK_ErrorScale(N,ITOL,AbsTol,RelTol,Y,SCAL); - RSTATUS[Ntexit] = *T; - RSTATUS[Nhnew] = Hnew; - RSTATUS[Nhacc] = H; - Hnew = Tdirection*MIN( MAX(ABS(Hnew),Hmin), Hmax ); - if (Reject == 1) - Hnew = Tdirection*MIN(ABS(Hnew),ABS(H)); - Reject = 0; - if ((*T+Hnew/Qmin-Tend)*Tdirection >= ZERO) - H = Tend - *T; - else { - Hratio = Hnew/H; - /* Reuse the LU decomposition */ - SkipLU = (Theta <= ThetaMin) && (Hratio >= Qmin) && (Hratio <= Qmax); - if ( SkipLU == 0) - H = Hnew; - } /* end if */ - /* If convergence is fast enough, do not update Jacobian */ - /* SkipJac = (Theta <= ThetaMin); */ - SkipJac = 0; - } - - /*~~~> Step is rejected */ - else { - if ((FirstStep == 1) || (Reject == 1)) - H = FacRej*H; - else - H = Hnew; - Reject = 1; - SkipJac = 1; /* Skip if rejected - Jac is independent of H */ - SkipLU = 0; - if (ISTATUS[Nacc] >= 1) - ISTATUS[Nrej]++; - } /* end if accept */ - } /* while: time Tloop */ - - /*~~~> Successful exit */ - *IERR = 1; - -} /* RK_Integrator */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - Handles all error messages and returns IERR = error Code -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void RK_ErrorMsg(int Code, KPP_REAL T, KPP_REAL H, int* IERR) -{ - Code = *IERR; - printf("\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"); - printf("\nForced exit from RungeKutta due to the following error:\n"); - - switch (Code) { - case -1: - printf("--> Improper value for maximal no of steps"); - break; - case -2: - printf("--> Improper value for maximal no of Newton iterations"); - break; - case -3: - printf("--> Hmin/Hmax/Hstart must be positive"); - break; - case -4: - printf("--> Improper values for FacMin/FacMax/FacSafe/FacRej"); - break; - case -5: - printf("--> Improper value for ThetaMin"); - break; - case -6: - printf("--> Newton stopping tolerance too small"); - break; - case -7: - printf("--> Improper values for Qmin, Qmax"); - break; - case -8: - printf("--> Tolerances are too small"); - break; - case -9: - printf("--> No of steps exceeds maximum bound"); - break; - case -10: - printf("--> Step size too small: (T + 10*H = T) or H < Roundoff"); - break; - case -11: - printf("--> Matrix is repeatedly singular"); - break; - case -12: - printf("--> Non-convergence of Newton iterations"); - break; - case -13: - printf("--> Requested RK method not implemented"); - break; - default: - printf("Unknown Error code: %d \n", Code); - } /* end switch */ - - printf("\n T=%e, H =%e", T, H); - printf("\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"); - -} /* RK_ErrorMsg */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -/* Handles all error messages and returns SCAL */ -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void RK_ErrorScale(int N, - /*~~~> Input arguments: */ - int ITOL, KPP_REAL AbsTol[], KPP_REAL RelTol[], KPP_REAL Y[], - /*~~~> Output arguments: */ - KPP_REAL SCAL[]) -{ - /*printf("Starting RK_ErrorScale\n");*/ - int i; - if (ITOL == 0) { - for (i = 0; i < N; i++) { - SCAL[i] = ONE/(AbsTol[0]+RelTol[0]*ABS(Y[i])); - } /* end for loop*/ - } - else { - for (i = 0; i< N; i++) { - SCAL[i] = ONE/(AbsTol[i]+RelTol[i]*ABS(Y[i])); - } /* end for loop */ - } /* end if */ - /*printf("Ending RK_ErrorScale\n");*/ -} /* RK_ErrorScale */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -void RK_Transform(int N, KPP_REAL Tr[][3], KPP_REAL Z1[], KPP_REAL Z2[], - KPP_REAL Z3[], KPP_REAL W1[], KPP_REAL W2[], KPP_REAL W3[]) ---> W <-- Tr x Z -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -{ - int i; - KPP_REAL x1,x2,x3; - for (i = 0; i < N; i++) - { - x1 = Z1[i]; - x2 = Z2[i]; - x3 = Z3[i]; - W1[i] = Tr[0][0]*x1 + Tr[0][1]*x2 + Tr[0][2]*x3; - W2[i] = Tr[1][0]*x1 + Tr[1][1]*x2 + Tr[1][2]*x3; - W1[i] = Tr[2][0]*x1 + Tr[2][1]*x2 + Tr[2][2]*x3; - } end for loop -} end RK_Transform */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -/*--> Constructs or evaluates a quadratic polynomial that - interpolates the Z solution at current step and - provides starting values for the next step -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void RK_Interpolate(char action[], int N, KPP_REAL H, KPP_REAL Hold, KPP_REAL Z1[], - KPP_REAL Z2[], KPP_REAL Z3[], KPP_REAL CONT[][RKmax]) -{ - int i; - KPP_REAL r,x1,x2,x3,den; - - /* Construct the solution quadratic interpolant Q(c_i) = Z_i, i=1:3 */ - if (action == "make") { - den = (rkC[2]-rkC[1])*(rkC[1]-rkC[0])*(rkC[0]-rkC[2]); - for (i = 0; i < N; i++) - { - CONT[i][0] = (-rkC[2]*rkC[2]*rkC[1]*Z1[i] - +Z3[i]*rkC[1]*rkC[0]*rkC[0] - +rkC[1]*rkC[1]*rkC[2]*Z1[i] - -rkC[1]*rkC[1]*rkC[0]*Z3[i] - +rkC[2]*rkC[2]*rkC[0]*Z2[i] - -Z2[i]*rkC[2]*rkC[0]*rkC[0])/den-Z3[i]; - CONT[i][1] = -( rkC[0]*rkC[0]*(Z3[i]-Z2[i]) - + rkC[1]*rkC[1]*(Z1[i]-Z3[i]) - + rkC[2]*rkC[2]*(Z2[i]-Z1[i]) )/den; - CONT[i][2] = ( rkC[0]*(Z3[i]-Z2[i]) - + rkC[1]*(Z1[i]-Z3[i]) - + rkC[2]*(Z2[i]-Z1[i]) )/den; - } /* end for loop */ - } - /* Evaluate quadratic polynomial */ - else if (action == "eval") { - r = H / Hold; - x1 = ONE + rkC[0]*r; - x2 = ONE + rkC[1]*r; - x3 = ONE + rkC[2]*r; - for (i = 0; i < N; i++) - { - Z1[i] = CONT[i][0]+x1*(CONT[i][1]+x1*CONT[i][2]); - Z2[i] = CONT[i][0]+x2*(CONT[i][1]+x2*CONT[i][2]); - Z3[i] = CONT[i][0]+x3*(CONT[i][1]+x3*CONT[i][2]); - } /* end for loop */ - } /* end if */ -} /* RK_Interpolate */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -/*~~~> Prepare the right-hand side for Newton iterations - R = Z - hA x F -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void RK_PrepareRHS(int N, KPP_REAL T, KPP_REAL H, KPP_REAL Y[], KPP_REAL FO[], - KPP_REAL Z1[], KPP_REAL Z2[], KPP_REAL Z3[], KPP_REAL R1[], KPP_REAL R2[], - KPP_REAL R3[]) -{ - KPP_REAL TMP[N], F[N]; - WCOPY(N,Z1,1,R1,1); /* R1 <- Z1 */ - WCOPY(N,Z2,1,R2,1); /* R2 <- Z2 */ - WCOPY(N,Z3,1,R3,1); /* R3 <- Z3 */ - - if (rkMethod == L3A) - { - WAXPY(N,-H*rkA[0][0],FO,1,R1,1); /* R1 <- R1 - h*A_10*FO */ - WAXPY(N,-H*rkA[1][0],FO,1,R2,1); /* R2 <- R2 - h*A_20*FO */ - WAXPY(N,-H*rkA[2][0],FO,1,R3,1); /* R3 <- R3 - h*A_30*FO */ - } /* end if */ - - WADD(N,Y,Z1,TMP); /* TMP <- Y + Z1 */ - FUN_CHEM(T+rkC[0]*H,TMP,F); /* F1 <- Fun(Y+Z1) */ - WAXPY(N,-H*rkA[0][0],F,1,R1,1); /* R1 <- R1 - h*A_11*F1 */ - WAXPY(N,-H*rkA[1][0],F,1,R2,1); /* R2 <- R2 - h*A_21*F1 */ - WAXPY(N,-H*rkA[2][0],F,1,R3,1); /* R3 <- R3 - h*A_31*F1 */ - - WADD(N,Y,Z2,TMP); /* TMP <- Y + Z2 */ - FUN_CHEM(T+rkC[1]*H,TMP,F); /* F2 <- Fun(Y+Z2) */ - WAXPY(N,-H*rkA[0][1],F,1,R1,1); /* R1 <- R1 - h*A_12*F2 */ - WAXPY(N,-H*rkA[1][1],F,1,R2,1); /* R2 <- R2 - h*A_22*F2 */ - WAXPY(N,-H*rkA[2][1],F,1,R3,1); /* R3 <- R3 - h*A_32*F2 */ - - WADD(N,Y,Z3,TMP); /* TMP <- Y + Z3 */ - FUN_CHEM(T+rkC[2]*H,TMP,F); /* F3 <- Fun(Y+Z3) */ - WAXPY(N,-H*rkA[0][2],F,1,R1,1); /* R1 <- R1 - h*A_13*F3 */ - WAXPY(N,-H*rkA[1][2],F,1,R2,1); /* R2 <- R2 - h*A_23*F3 */ - WAXPY(N,-H*rkA[2][2],F,1,R3,1); /* R3 <- R3 - h*A_33*F3 */ -} /* RK_PrepareRHS */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -/*~~~> Compute the matrices E1 and E2 and their decompositions -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void RK_Decomp(int N, KPP_REAL H, KPP_REAL FJAC[], KPP_REAL E1[], - int IP1[], KPP_REAL E2R[], KPP_REAL E2I[], int IP2[], - int* ISING, int ISTATUS[]) -{ - /*printf("Starting RK_Decomp\n");*/ - KPP_REAL Alpha, Beta, Gamma; - int i,j; - - Gamma = rkGamma / H; - Alpha = rkAlpha / H; - Beta = rkBeta / H; - - for (i = 0; i < LU_NONZERO; i++) { - E1[i] = -FJAC[i]; - } - for (i = 0; i < NVAR; i++) { - j = LU_DIAG[i]; - E1[j] = E1[j] + Gamma; - } - *ISING = KppDecomp(E1); - /*~~~> Note: for a full matrix use Lapack: - for (j = 0; j < N; j++) { - for (i = 0; i < N; i++) - { - E1[i,j] = -FJAC[i][j]; - } - E1[i][j] = E1[i][j]+Gamma; - } - DGETRF(N, N, E1, N, IP1, ISING); */ - - if (*ISING != 0) { - /*printf("Matrix is singular, ISING=%d\n", *ISING);*/ - ISTATUS[Ndec]++; - return; - } - - for (i = 0; i < LU_NONZERO; i++) { - E2R[i] = (KPP_REAL)(-FJAC[i]); - E2I[i] = ZERO; - } - for (i = 0; i < NVAR; i++) { - j = LU_DIAG[i]; - E2R[j] = E2R[j] + Alpha; - E2I[j] = E2I[j] + Beta; - } - *ISING = KppDecompCmplxR(E2R, E2I); - /*printf("Matrix is singular, ISING=%d\n", *ISING);*/ - /*~~~> Note: for a full matrix use Lapack: - for (j = 0; j < N; j++) { - for (i = 0; i < N; i++) { - E2[i,j] = DCMPLX( -FJAC[i,j], ZERO ); - } - E2[j,j] = E2[j,j] + CMPLX( Alpha, Beta ); - } - ZGETRF(N,N,E2,N,IP2,ISING); */ - ISTATUS[Ndec]++; -} /*RK_Decomp */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void RK_Solve(int N, KPP_REAL H, KPP_REAL E1[], int IP1[], KPP_REAL E2R[], - KPP_REAL E2I[], int IP2[],KPP_REAL R1[], KPP_REAL R2[], KPP_REAL R3[], - int ISTATUS[]) -{ - KPP_REAL x1, x2, x3; - KPP_REAL BCR[N], BCI[N]; - int i; - - /* Z <- h^{-1) T^{-1) A^{-1) x Z */ - for (i = 0; i < N; i++) - { - x1 = R1[i]/H; - x2 = R2[i]/H; - x3 = R3[i]/H; - R1[i] = rkTinvAinv[0][0]*x1 + rkTinvAinv[0][1]*x2 + rkTinvAinv[0][2]*x3; - R2[i] = rkTinvAinv[1][0]*x1 + rkTinvAinv[1][1]*x2 + rkTinvAinv[1][2]*x3; - R3[i] = rkTinvAinv[2][0]*x1 + rkTinvAinv[2][1]*x2 + rkTinvAinv[2][2]*x3; - } - KppSolve(E1,R1); - /*~~~> Note: for a full matrix use Lapack: - DGETRS('N',5,1,E1,N,IP1,R1,5,0); */ - for(i = 0; i < N; i++) - { - BCR[i] = (KPP_REAL)(R2[i]); - BCI[i] = (KPP_REAL)(R3[i]); - } - KppSolveCmplxR(E2R,E2I,BCR,BCI); - /*~~~> Note: for a full matrix use Lapack: - ZGETRS ('N',N,1,E2,N,IP2,BC,N,0); */ - for (i = 0; i < N; i++) - { - R2[i] = (KPP_REAL)( BCR[i] ); - R3[i] = (KPP_REAL)( BCI[i] ); - } - - /* Z <- T x Z */ - for (i = 0; i < N; i++) - { - x1 = R1[i]; - x2 = R2[i]; - x3 = R3[i]; - R1[i] = rkT[0][0]*x1 + rkT[0][1]*x2 + rkT[0][2]*x3; - R2[i] = rkT[1][0]*x1 + rkT[1][1]*x2 + rkT[1][2]*x3; - R3[i] = rkT[2][0]*x1 + rkT[2][1]*x2 + rkT[2][2]*x3; - } - ISTATUS[Nsol]++; -} /* RK_Solve */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void RK_ErrorEstimate(int N, KPP_REAL H, KPP_REAL T, KPP_REAL Y[], - KPP_REAL FO[], KPP_REAL E1[], int IP1[], KPP_REAL Z1[], - KPP_REAL Z2[], KPP_REAL Z3[], KPP_REAL SCAL[], KPP_REAL* Err, - int FirstStep, int Reject, int ISTATUS[]) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - KPP_REAL F1[N],F2[N],TMP[N]; - KPP_REAL HrkE1,HrkE2,HrkE3; - int i; - - HrkE1 = rkE[0]/H; - HrkE2 = rkE[1]/H; - HrkE3 = rkE[2]/H; - - for (i = 0; i < N; i++) - { - F2[i] = HrkE1*Z1[i]+HrkE2*Z2[i]+HrkE3*Z3[i]; - TMP[i] = rkE[0]*FO[i] + F2[i]; - } - - KppSolve(E1, TMP); - if ((rkMethod == R1A) || (rkMethod == GAU) || (rkMethod == L3A)) - KppSolve(E1,TMP); - if (rkMethod == GAU) - KppSolve(E1,TMP); - /*~~~> Note: for a full matrix use Lapack: - DGETRS ('N',N,1,E1,N,IP1,TMP,N,0); - if ((rkMethod == R1A) || (rkMethod == GAU) || (rkMethod == L3A)) - DGETRS('N',N,1,E1,N,IP1,TMP,N,0); - if (rkMethod == GAU) - DGETRS('N',N,1,E1,N,IP1,TMP,N,0); */ - - *Err = RK_ErrorNorm(N,SCAL,TMP); - - if (*Err < ONE) - return; - /* firej */ - if ((FirstStep == 1) || (Reject == 1)) { - for (i = 0; i < N; i++) { - TMP[i] = Y[i] + TMP[i]; - } /* end for */ - FUN_CHEM(T,TMP,F1); - ISTATUS[Nfun]++; - for (i = 0; i < N; i++) { - TMP[i] = F1[i] + F2[i]; - } /* end for */ - - KppSolve(E1, TMP); - /*~~~> Note: for a full matrix use Lapack: - DGETRS ('N',N,1,E1,N,IP1,TMP,N,0); */ - *Err = RK_ErrorNorm(N,SCAL,TMP); - } /* end if firej */ -} /* RK_ErrorEstimate */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - KPP_REAL RK_ErrorNorm(int N, KPP_REAL SCAL[], KPP_REAL DY[]) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - int i; - KPP_REAL RK_ErrorNorm = ZERO; - for (i = 0; i < N; i++) { - RK_ErrorNorm = RK_ErrorNorm + (DY[i]*SCAL[i]) * (DY[i]*SCAL[i]); - } - RK_ErrorNorm = MAX( SQRT(RK_ErrorNorm/N), (KPP_REAL)1.0e-10 ); - return RK_ErrorNorm; -} /* RK_ErrorNorm */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - The coefficients of the 3-stage Radau-2A method - (given to ~30 accurate digits) -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void Radau2A_Coefficients() -{ - /*printf("Starting Radau2A\n");*/ - /* The coefficients of the Radau2A method */ - KPP_REAL b0; - /* b0 = (KPP_REAL)1.0; */ - if (SdirkError == 1) { - b0 = (KPP_REAL)(0.2e-01); - /*printf("b0 = %f\n", b0);*/ - } - else { - b0 = (KPP_REAL)(0.5e-01); - /*printf("b0 = %f\n", b0);*/ - } /*end if */ - /* The coefficients of the Radau2A method */ - rkMethod = R2A; - - rkA[0][0] = (KPP_REAL)(1.968154772236604258683861429918299e-01); - rkA[0][1] = (KPP_REAL)(-6.55354258501983881085227825696087e-02); - rkA[0][2] = (KPP_REAL)(2.377097434822015242040823210718965e-02); - rkA[1][0] = (KPP_REAL)(3.944243147390872769974116714584975e-01); - rkA[1][1] = (KPP_REAL)(2.920734116652284630205027458970589e-01); - rkA[1][2] = (KPP_REAL)(-4.154875212599793019818600988496743e-02); - rkA[2][0] = (KPP_REAL)(3.764030627004672750500754423692808e-01); - rkA[2][1] = (KPP_REAL)(5.124858261884216138388134465196080e-01); - rkA[2][2] = (KPP_REAL)(1.111111111111111111111111111111111e-01); - - rkB[0] = (KPP_REAL)(3.764030627004672750500754423692808e-01); - rkB[1] = (KPP_REAL)(5.124858261884216138388134465196080e-01); - rkB[2] = (KPP_REAL)(1111111111111111111111111111111111e-01); - - rkC[0] = (KPP_REAL)(1.550510257216821901802715925294109e-01); - rkC[1] = (KPP_REAL)(6.449489742783178098197284074705891e-01); - rkC[2] = ONE; - - /* New solution: H* Sum B_j*f(Z_j) = Sum D_j*Z_j */ - rkD[0] = ZERO; - rkD[1] = ZERO; - rkD[2] = ONE; - - /* Classical error estimator: */ - /* H* Sum (B_j-Bhat_j)*f(Z_j) = H*E(0)*f(0) + Sum E_j*Z_j */ - rkE[0] = ONE*b0; - rkE[1] = (KPP_REAL)(-10.04880939982741556246032950764708)*b0; - rkE[2] = (KPP_REAL)1.382142733160748895793662840980412*b0; - rkE[3] = (KPP_REAL)(-.3333333333333333333333333333333333)*b0; - - /* Sdirk error estimator */ - rkBgam[0] = b0; - rkBgam[1] = (KPP_REAL).3764030627004672750500754423692807 - -(KPP_REAL)1.558078204724922382431975370686279*b0; - rkBgam[2] = (KPP_REAL).8914115380582557157653087040196118*b0 - +(KPP_REAL).5124858261884216138388134465196077; - rkBgam[3] = (KPP_REAL)(-.1637777184845662566367174924883037) - -(KPP_REAL).3333333333333333333333333333333333*b0; - rkBgam[4] = (KPP_REAL).2748888295956773677478286035994148; - - /* H* Sum Bgam_j*f(Z_j) = H*Bgam(0)*f(0) + Sum Theta_j*Z_j */ - rkTheta[0] = (KPP_REAL)(-1.520677486405081647234271944611547) - -(KPP_REAL)10.04880939982741556246032950764708*b0; - rkTheta[1] = (KPP_REAL)2.070455145596436382729929151810376 - +(KPP_REAL)1.382142733160748895793662840980413*b0; - rkTheta[2] = (KPP_REAL)(-.3333333333333333333333333333333333)*b0 - -(KPP_REAL).3744441479783868387391430179970741; - - /* Local order of error estimator */ - if ( b0 == ZERO) - rkELO = (KPP_REAL)6.0; - else - rkELO = (KPP_REAL)4.0; - - /*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ~~~> Diagonalize the RK matrix: - rkTinv * inv(rkA) * rkT = - | rkGamma 0 0 | - | 0 rkAlpha -rkBeta | - | 0 rkBeta rkAlpha | - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - rkGamma = (KPP_REAL)3.637834252744495732208418513577775; - rkAlpha = (KPP_REAL)2.681082873627752133895790743211112; - rkBeta = (KPP_REAL)3.050430199247410569426377624787569; - - rkT[0][0] = (KPP_REAL)(9.443876248897524148749007950641664e-02); - rkT[0][1] = (KPP_REAL)(-1.412552950209542084279903838077973e-01); - rkT[0][2] = (KPP_REAL)(-3.00291941051474244918611170890539e-02); - rkT[1][0] = (KPP_REAL)(2.502131229653333113765090675125018e-01); - rkT[1][1] = (KPP_REAL)(2.041293522937999319959908102983381e-01); - rkT[1][2] = (KPP_REAL)(3.829421127572619377954382335998733e-01); - rkT[2][0] = ONE; - rkT[2][1] = ONE; - rkT[2][2] = ZERO; - - rkTinv[0][0] = (KPP_REAL)4.178718591551904727346462658512057; - rkTinv[0][1] = (KPP_REAL)(3.27682820761062387082533272429617e-01); - rkTinv[0][2] = (KPP_REAL)(5.233764454994495480399309159089876e-01); - rkTinv[1][0] = (KPP_REAL)(-4.178718591551904727346462658512057); - rkTinv[1][1] = (KPP_REAL)(-3.27682820761062387082533272429617e-01); - rkTinv[1][2] = (KPP_REAL)(4.766235545005504519600690840910124e-01); - rkTinv[2][0] = (KPP_REAL)(-5.02872634945786875951247343139544e-01); - rkTinv[2][1] = (KPP_REAL)2.571926949855605429186785353601676; - rkTinv[2][2] = (KPP_REAL)(-5.960392048282249249688219110993024e-01); - - rkTinvAinv[0][0] = (KPP_REAL)(1.520148562492775501049204957366528e+01); - rkTinvAinv[0][1] = (KPP_REAL)1.192055789400527921212348994770778; - rkTinvAinv[0][2] = (KPP_REAL)1.903956760517560343018332287285119; - rkTinvAinv[1][0] = (KPP_REAL)(-9.669512977505946748632625374449567); - rkTinvAinv[1][1] = (KPP_REAL)(-8.724028436822336183071773193986487); - rkTinvAinv[1][2] = (KPP_REAL)3.096043239482439656981667712714881; - rkTinvAinv[2][0] = (KPP_REAL)(-1.409513259499574544876303981551774e+01); - rkTinvAinv[2][1] = (KPP_REAL)5.895975725255405108079130152868952; - rkTinvAinv[2][2] = (KPP_REAL)(-1.441236197545344702389881889085515e-01); - - rkAinvT[0][0] = (KPP_REAL).3435525649691961614912493915818282; - rkAinvT[0][1] = (KPP_REAL)(-.4703191128473198422370558694426832); - rkAinvT[0][2] = (KPP_REAL).3503786597113668965366406634269080; - rkAinvT[1][0] = (KPP_REAL).9102338692094599309122768354288852; - rkAinvT[1][1] = (KPP_REAL)1.715425895757991796035292755937326; - rkAinvT[1][2] = (KPP_REAL).4040171993145015239277111187301784; - rkAinvT[2][0] = (KPP_REAL)3.637834252744495732208418513577775; - rkAinvT[2][1] = (KPP_REAL)2.681082873627752133895790743211112; - rkAinvT[2][2] = (KPP_REAL)(-3.050430199247410569426377624787569); - /*printf("Ending Radau2A");*/ -} /* Radau2A_Coefficients */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - The coefficients of the 3-stage Lobatto-3C method - (given to ~30 accurate digits) - The parameter b0 can be chosen to tune the error estimator -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void Lobatto3C_Coefficients () -{ - KPP_REAL b0; - rkMethod = L3C; - /* b0 = 1.0d0 */ - if (SdirkError == 1) - b0 = (KPP_REAL)0.2; - else - b0 = (KPP_REAL)0.5; - - /* The coefficients of the Lobatto3C method */ - rkA[0][0] = (KPP_REAL).1666666666666666666666666666666667; - rkA[0][1] = (KPP_REAL)(-.3333333333333333333333333333333333); - rkA[0][2] = (KPP_REAL).1666666666666666666666666666666667; - rkA[1][0] = (KPP_REAL).1666666666666666666666666666666667; - rkA[1][1] = (KPP_REAL).4166666666666666666666666666666667; - rkA[1][2] = (KPP_REAL)(-.8333333333333333333333333333333333e-01); - rkA[2][0] = (KPP_REAL).1666666666666666666666666666666667; - rkA[2][1] = (KPP_REAL).6666666666666666666666666666666667; - rkA[2][2] = (KPP_REAL).1666666666666666666666666666666667; - - rkB[0] = (KPP_REAL).1666666666666666666666666666666667; - rkB[1] = (KPP_REAL).6666666666666666666666666666666667; - rkB[2] = (KPP_REAL).1666666666666666666666666666666667; - - rkC[0] = ZERO; - rkC[1] = (KPP_REAL)0.5; - rkC[2] = ONE; - - /* Classical error estimator, embedded solution: */ - rkBhat[0] = b0; - rkBhat[1] = (KPP_REAL).16666666666666666666666666666666667-b0; - rkBhat[2] = (KPP_REAL).66666666666666666666666666666666667; - rkBhat[3] = (KPP_REAL).16666666666666666666666666666666667; - - /* New solution: h Sum_j b_j f(Z_j) = sum d_j Z_j */ - rkD[0] = ZERO; - rkD[1] = ZERO; - rkD[2] = ONE; - - /* Classical error estimator: */ - /* H* Sum (B_j-Bhat_j)*f(Z_j) = H*E(0)*f(0) + Sum E_j*Z_j */ - rkE[0] = (KPP_REAL).3808338772072650364017425226487022*b0; - rkE[1] = (KPP_REAL)(-1.142501631621795109205227567946107)*b0; - rkE[2] = (KPP_REAL)(-1.523335508829060145606970090594809)*b0; - rkE[3] = (KPP_REAL).3808338772072650364017425226487022*b0; - - /* Sdirk error estimator */ - rkBgam[0] = b0; - rkBgam[1] = (KPP_REAL).1666666666666666666666666666666667-1.0*b0; - rkBgam[2] = (KPP_REAL).6666666666666666666666666666666667; - rkBgam[3] = (KPP_REAL)(-.2141672105405983697350758559820354); - rkBgam[4] = (KPP_REAL).3808338772072650364017425226487021; - - /* H* Sum Bgam_j*f(Z_j) = H*Bgam(0)*f(0) + Sum Theta_j*Z_j */ - rkTheta[0] = -3.0*b0-(KPP_REAL).3808338772072650364017425226487021; - rkTheta[1] = -4.0*b0+(KPP_REAL)1.523335508829060145606970090594808; - rkTheta[2] = (KPP_REAL)(-.142501631621795109205227567946106)+b0; - - /* Local order of error estimator */ - if (b0 == ZERO) - rkELO = 5.0; - else - rkELO = 4.0; - - /*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ~~~> Diagonalize the RK matrix: - rkTinv * inv(rkA) * rkT = - | rkGamma 0 0 | - | 0 rkAlpha -rkBeta | - | 0 rkBeta rkAlpha | - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - rkGamma = (KPP_REAL)2.625816818958466716011888933765284; - rkAlpha = (KPP_REAL)1.687091590520766641994055533117359; - rkBeta = (KPP_REAL)2.508731754924880510838743672432351; - - rkT[0][1] = ONE; - rkT[0][1] = ONE; - rkT[0][2] = ZERO; - rkT[1][0] = (KPP_REAL).4554100411010284672111720348287483; - rkT[1][1] = (KPP_REAL)(-.6027050205505142336055860174143743); - rkT[1][2] = (KPP_REAL)(-.4309321229203225731070721341350346); - rkT[2][0] = (KPP_REAL)2.195823345445647152832799205549709; - rkT[2][1] = (KPP_REAL)(-1.097911672722823576416399602774855); - rkT[2][2] = (KPP_REAL).7850032632435902184104551358922130; - - rkTinv[0][0] = (KPP_REAL).4205559181381766909344950150991349; - rkTinv[0][1] = (KPP_REAL).3488903392193734304046467270632057; - rkTinv[0][2] = (KPP_REAL).1915253879645878102698098373933487; - rkTinv[1][0] = (KPP_REAL).5794440818618233090655049849008650; - rkTinv[1][1] = (KPP_REAL)(-.3488903392193734304046467270632057); - rkTinv[1][2] = (KPP_REAL)(-.1915253879645878102698098373933487); - rkTinv[2][0] = (KPP_REAL)(-.3659705575742745254721332009249516); - rkTinv[2][1] = (KPP_REAL)(-1.463882230297098101888532803699806); - rkTinv[2][2] = (KPP_REAL).4702733607340189781407813565524989; - - rkTinvAinv[0][0] = (KPP_REAL)1.104302803159744452668648155627548; - rkTinvAinv[0][1] = (KPP_REAL).916122120694355522658740710823143; - rkTinvAinv[0][2] = (KPP_REAL).5029105849749601702795812241441172; - rkTinvAinv[1][0] = (KPP_REAL)1.895697196840255547331351844372453; - rkTinvAinv[1][1] = (KPP_REAL)3.083877879305644477341259289176857; - rkTinvAinv[1][2] = (KPP_REAL)(-1.502910584974960170279581224144117); - rkTinvAinv[2][0] = (KPP_REAL).8362439183082935036129145574774502; - rkTinvAinv[2][1] = (KPP_REAL)(-3.344975673233174014451658229909802); - rkTinvAinv[2][2] = (KPP_REAL).312908409479233358005944466882642; - - rkAinvT[0][0] = (KPP_REAL)2.625816818958466716011888933765282; - rkAinvT[0][1] = (KPP_REAL)1.687091590520766641994055533117358; - rkAinvT[0][2] = (KPP_REAL)(-2.508731754924880510838743672432351); - rkAinvT[1][0] = (KPP_REAL)1.195823345445647152832799205549710; - rkAinvT[1][1] = (KPP_REAL)(-2.097911672722823576416399602774855); - rkAinvT[1][2] = (KPP_REAL).7850032632435902184104551358922130; - rkAinvT[2][0] = (KPP_REAL)5.765829871932827589653709477334136; - rkAinvT[2][1] = (KPP_REAL).1170850640335862051731452613329320; - rkAinvT[2][2] = (KPP_REAL)4.078738281412060947659653944216779; -} /* Lobatto3C_Coefficients */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - The coefficients of the 3-stage Gauss method - (given to ~30 accurate digits) - The parameter b3 can be chosen by the user - to tune the error estimator - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void Gauss_Coefficients() -{ - rkMethod = GAU; - - /* The coefficients of the Gauss method */ - KPP_REAL b0; - /*b0 = (KPP_REAL)4.0; */ - b0 = (KPP_REAL)0.1; - - /* The coefficients of the Gauss method */ - rkA[0][0] = (KPP_REAL).1388888888888888888888888888888889; - rkA[0][1] = (KPP_REAL)(-.359766675249389034563954710966045e-01); - rkA[0][2] = (KPP_REAL)(.97894440153083260495800422294756e-02); - rkA[1][0] = (KPP_REAL).3002631949808645924380249472131556; - rkA[1][1] = (KPP_REAL).2222222222222222222222222222222222; - rkA[1][2] = (KPP_REAL)(-.224854172030868146602471694353778e-01); - rkA[2][0] = (KPP_REAL).2679883337624694517281977355483022; - rkA[2][1] = (KPP_REAL).4804211119693833479008399155410489; - rkA[2][2] = (KPP_REAL).1388888888888888888888888888888889; - - rkB[0] = (KPP_REAL).2777777777777777777777777777777778; - rkB[1] = (KPP_REAL).4444444444444444444444444444444444; - rkB[2] = (KPP_REAL).2777777777777777777777777777777778; - - rkC[0] = (KPP_REAL).1127016653792583114820734600217600; - rkC[1] = (KPP_REAL).5000000000000000000000000000000000; - rkC[2] = (KPP_REAL).8872983346207416885179265399782400; - - /* Classical error estimator, embedded solution: */ - rkBhat[0] = b0; - rkBhat[1] = (KPP_REAL)(-1.4788305577012361475298775666303999)*b0 - +(KPP_REAL).27777777777777777777777777777777778; - rkBhat[2] = (KPP_REAL).44444444444444444444444444444444444 - +(KPP_REAL).66666666666666666666666666666666667*b0; - rkBhat[3] = (KPP_REAL)(-.18783610896543051913678910003626672)*b0 - +(KPP_REAL).27777777777777777777777777777777778; - - /* New solution: h Sum_j b_j f(Z_j) = sum d_j Z_j */ - rkD[0] = (KPP_REAL)(.1666666666666666666666666666666667e+01); - rkD[1] = (KPP_REAL)(-.1333333333333333333333333333333333e+01); - rkD[2] = (KPP_REAL)(.1666666666666666666666666666666667e+01); - - /* Classical error estimator: */ - /* H* Sum (B_j-Bhat_j)*f(Z_j) = H*E(0)*f(0) + Sum E_j*Z_j */ - rkE[0] = (KPP_REAL).2153144231161121782447335303806954*b0; - rkE[1] = (KPP_REAL)(-2.825278112319014084275808340593191)*b0; - rkE[2] = (KPP_REAL).2870858974881495709929780405075939*b0; - rkE[3] = (KPP_REAL)(-.4558086256248162565397206448274867e-01)*b0; - - /* Sdirk error estimator */ - rkBgam[0] = ZERO; - rkBgam[1] = (KPP_REAL).2373339543355109188382583162660537; - rkBgam[2] = (KPP_REAL).5879873931885192299409334646982414; - rkBgam[3] = (KPP_REAL)(-.4063577064014232702392531134499046e-01); - rkBgam[4] = (KPP_REAL).2153144231161121782447335303806955; - - /* H* Sum Bgam_j*f(Z_j) = H*Bgam(0)*f(0) + Sum Theta_j*Z_j */ - rkTheta[0] = (KPP_REAL)(-2.594040933093095272574031876464493); - rkTheta[1] = (KPP_REAL)1.824611539036311947589425112250199; - rkTheta[2] = (KPP_REAL).1856563166634371860478043996459493; - - /* ELO = local order of classical error estimator */ - rkELO = (KPP_REAL)4.0; - - /*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ~~~> Diagonalize the RK matrix: - rkTinv * inv(rkA) * rkT = - | rkGamma 0 0 | - | 0 rkAlpha -rkBeta | - | 0 rkBeta rkAlpha | - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - rkGamma = (KPP_REAL)4.644370709252171185822941421408064; - rkAlpha = (KPP_REAL)3.677814645373914407088529289295970; - rkBeta = (KPP_REAL)3.508761919567443321903661209182446; - - rkT[0][0] = (KPP_REAL)(.7215185205520017032081769924397664e-01); - rkT[0][1] = (KPP_REAL)(-.8224123057363067064866206597516454e-01); - rkT[0][2] = (KPP_REAL)(-.6012073861930850173085948921439054e-01); - rkT[1][0] = (KPP_REAL).1188325787412778070708888193730294; - rkT[1][1] = (KPP_REAL)(.5306509074206139504614411373957448e-01); - rkT[1][2] = (KPP_REAL).3162050511322915732224862926182701; - rkT[2][0] = ONE; - rkT[2][1] = ONE; - rkT[2][2] = ZERO; - - rkTinv[0][0] = (KPP_REAL)5.991698084937800775649580743981285; - rkTinv[0][1] = (KPP_REAL)1.139214295155735444567002236934009; - rkTinv[0][2] = (KPP_REAL).4323121137838583855696375901180497; - rkTinv[1][0] = (KPP_REAL)(-5.991698084937800775649580743981285); - rkTinv[1][1] = (KPP_REAL)(-1.139214295155735444567002236934009); - rkTinv[1][2] = (KPP_REAL).5676878862161416144303624098819503; - rkTinv[2][0] = (KPP_REAL)(-1.246213273586231410815571640493082); - rkTinv[2][1] = (KPP_REAL)2.925559646192313662599230367054972; - rkTinv[2][2] = (KPP_REAL)(-.2577352012734324923468722836888244); - - rkTinvAinv[0][0] = (KPP_REAL)27.82766708436744962047620566703329; - rkTinvAinv[0][1] = (KPP_REAL)5.290933503982655311815946575100597; - rkTinvAinv[0][2] = (KPP_REAL)2.007817718512643701322151051660114; - rkTinvAinv[1][0] = (KPP_REAL)(-17.66368928942422710690385180065675); - rkTinvAinv[1][1] = (KPP_REAL)(-14.45491129892587782538830044147713); - rkTinvAinv[1][2] = (KPP_REAL)2.992182281487356298677848948339886; - rkTinvAinv[2][0] = (KPP_REAL)(-25.60678350282974256072419392007303); - rkTinvAinv[2][1] = (KPP_REAL)6.762434375611708328910623303779923; - rkTinvAinv[2][2] = (KPP_REAL)1.043979339483109825041215970036771; - - rkAinvT[0][0] = (KPP_REAL).3350999483034677402618981153470483; - rkAinvT[0][1] = (KPP_REAL)(-.5134173605009692329246186488441294); - rkAinvT[0][2] = (KPP_REAL)(.6745196507033116204327635673208923e-01); - rkAinvT[1][0] = (KPP_REAL).5519025480108928886873752035738885; - rkAinvT[1][1] = (KPP_REAL)1.304651810077110066076640761092008; - rkAinvT[1][2] = (KPP_REAL).9767507983414134987545585703726984; - rkAinvT[2][0] = (KPP_REAL)4.644370709252171185822941421408064; - rkAinvT[2][1] = (KPP_REAL)3.677814645373914407088529289295970; - rkAinvT[2][2] = (KPP_REAL)(-3.508761919567443321903661209182446); -} /* Gauss_Coefficients */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - The coefficients of the 3-stage Gauss method - (given to ~30 accurate digits) - The parameter b3 can be chosen by the user - to tune the error estimator -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void Radau1A_Coefficients() -{ - /* The coefficients of the Radau1A method */ - KPP_REAL b0; - /*b0 = (KPP_REAL)0.3; */ - b0 = (KPP_REAL)0.1; - - /* The coefficients of the Radau1A method */ - rkMethod = R1A; - - rkA[0][0] = (KPP_REAL) .1111111111111111111111111111111111; - rkA[0][1] = (KPP_REAL)(-.1916383190435098943442935597058829); - rkA[0][2] = (KPP_REAL)(.8052720793239878323318244859477174e-01); - rkA[1][0] = (KPP_REAL).1111111111111111111111111111111111; - rkA[1][1] = (KPP_REAL).2920734116652284630205027458970589; - rkA[1][2] = (KPP_REAL)(-.481334970546573839513422644787591e-01); - rkA[2][0] = (KPP_REAL).1111111111111111111111111111111111; - rkA[2][1] = (KPP_REAL).5370223859435462728402311533676479; - rkA[2][2] = (KPP_REAL).1968154772236604258683861429918299; - - rkB[0] = (KPP_REAL).1111111111111111111111111111111111; - rkB[1] = (KPP_REAL).5124858261884216138388134465196080; - rkB[2] = (KPP_REAL).3764030627004672750500754423692808; - - rkC[0] = ZERO; - rkC[1] = (KPP_REAL).3550510257216821901802715925294109; - rkC[2] = (KPP_REAL).8449489742783178098197284074705891; - - /* Classical error estimator, embedded solution: */ - rkBhat[0] = b0; - rkBhat[1] = (KPP_REAL).11111111111111111111111111111111111-b0; - rkBhat[2] = (KPP_REAL).51248582618842161383881344651960810; - rkBhat[3] = (KPP_REAL).37640306270046727505007544236928079; - - /* New solution: H* Sum B_j*f(Z_j) = Sum D_j*Z_j */ - rkD[0] = (KPP_REAL).3333333333333333333333333333333333; - rkD[1] = (KPP_REAL)(-.8914115380582557157653087040196127); - rkD[2] = (KPP_REAL)(1.558078204724922382431975370686279); - - /* Classical error estimator: */ - /* H* Sum (b_j-bhat_j) f(Z_j) = H*E(0)*F(0) + Sum E_j Z_j */ - rkE[0] = (KPP_REAL).2748888295956773677478286035994148*b0; - rkE[1] = (KPP_REAL)(-1.374444147978386838739143017997074)*b0; - rkE[2] = (KPP_REAL)(-1.335337922441686804550326197041126)*b0; - rkE[3] = (KPP_REAL).235782604058977333559011782643466*b0; - - /* Sdirk error estimator */ - rkBgam[0] = ZERO; - rkBgam[1] = (KPP_REAL)(.1948150124588532186183490991130616e-01); - rkBgam[2] = (KPP_REAL).7575249005733381398986810981093584; - rkBgam[3] = (KPP_REAL)(-.518952314149008295083446116200793e-01); - rkBgam[4] = (KPP_REAL).2748888295956773677478286035994148; - - /* H* Sum Bgam_j*f(Z_j) = H*Bgam(0)*f(0) + Sum Theta_j*Z_j */ - rkTheta[0] = (KPP_REAL)(-1.224370034375505083904362087063351); - rkTheta[1] = (KPP_REAL).9340045331532641409047527962010133; - rkTheta[2] = (KPP_REAL).4656990124352088397561234800640929; - - /* ELO = local order of classical error estimator */ - rkELO = (KPP_REAL)4.0; - - /*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ~~~> Diagonalize the RK matrix: - rkTinv * inv(rkA) * rkT = - | rkGamma 0 0 | - | 0 rkAlpha -rkBeta | - | 0 rkBeta rkAlpha | - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - rkGamma = (KPP_REAL)3.637834252744495732208418513577775; - rkAlpha = (KPP_REAL)2.681082873627752133895790743211112; - rkBeta = (KPP_REAL)3.050430199247410569426377624787569; - - rkT[0][0] = (KPP_REAL).424293819848497965354371036408369; - rkT[0][1] = (KPP_REAL)(-.3235571519651980681202894497035503); - rkT[0][2] = (KPP_REAL)(-.522137786846287839586599927945048); - rkT[1][0] = (KPP_REAL)(.57594609499806128896291585429339e-01); - rkT[1][1] = (KPP_REAL)(.3148663231849760131614374283783e-02); - rkT[1][2] = (KPP_REAL).452429247674359778577728510381731; - rkT[2][0] = ONE; - rkT[2][1] = ONE; - rkT[2][2] = ZERO; - - rkTinv[0][0] = (KPP_REAL)1.233523612685027760114769983066164; - rkTinv[0][1] = (KPP_REAL)1.423580134265707095505388133369554; - rkTinv[0][2] = (KPP_REAL).3946330125758354736049045150429624; - rkTinv[1][0] = (KPP_REAL)(-1.233523612685027760114769983066164); - rkTinv[1][1] = (KPP_REAL)(-1.423580134265707095505388133369554); - rkTinv[1][2] = (KPP_REAL).6053669874241645263950954849570376; - rkTinv[2][0] = (KPP_REAL)(-.1484438963257383124456490049673414); - rkTinv[2][1] = (KPP_REAL)2.038974794939896109682070471785315; - rkTinv[2][2] = (KPP_REAL)(-.544501292892686735299355831692542e-01); - - rkTinvAinv[0][0] = (KPP_REAL)4.487354449794728738538663081025420; - rkTinvAinv[0][1] = (KPP_REAL)5.178748573958397475446442544234494; - rkTinvAinv[0][2] = (KPP_REAL)1.435609490412123627047824222335563; - rkTinvAinv[1][0] = (KPP_REAL)(-2.854361287939276673073807031221493); - rkTinvAinv[1][1] = (KPP_REAL)(-1.003648660720543859000994063139137e+01); - rkTinvAinv[1][2] = (KPP_REAL)1.789135380979465422050817815017383; - rkTinvAinv[2][0] = (KPP_REAL)(-4.160768067752685525282947313530352); - rkTinvAinv[2][1] = (KPP_REAL)1.124128569859216916690209918405860; - rkTinvAinv[2][2] = (KPP_REAL)1.700644430961823796581896350418417; - - rkAinvT[0][0] = (KPP_REAL)1.543510591072668287198054583233180; - rkAinvT[0][1] = (KPP_REAL)(-2.460228411937788329157493833295004); - rkAinvT[0][2] = (KPP_REAL)(-.412906170450356277003910443520499); - rkAinvT[1][0] = (KPP_REAL).209519643211838264029272585946993; - rkAinvT[1][1] = (KPP_REAL)1.388545667194387164417459732995766; - rkAinvT[1][2] = (KPP_REAL)1.20339553005832004974976023130002; - rkAinvT[2][0] = (KPP_REAL)3.637834252744495732208418513577775; - rkAinvT[2][1] = (KPP_REAL)2.681082873627752133895790743211112; - rkAinvT[2][2] = (KPP_REAL)(-3.050430199247410569426377624787569); -} /* Radau1A_Coefficients */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - The coefficients of the 4-stage Lobatto-3A method - (given to ~30 accurate digits) - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void Lobatto3A_Coefficients() -{ - /* The coefficients of the Lobatto-3A method */ - rkMethod = L3A; - - rkA[0][0] = ZERO; - rkA[0][1] = ZERO; - rkA[0][2] = ZERO; - rkA[0][3] = ZERO; - rkA[1][0] = (KPP_REAL).11030056647916491413674311390609397; - rkA[1][1] = (KPP_REAL).1896994335208350858632568860939060; - rkA[1][2] = (KPP_REAL)(-.339073642291438837776604807792215e-01); - rkA[1][3] = (KPP_REAL)(.1030056647916491413674311390609397e-01); - rkA[2][0] = (KPP_REAL)(.73032766854168419196590219427239365e-01); - rkA[2][1] = (KPP_REAL).4505740308958105504443271474458881; - rkA[2][2] = (KPP_REAL).2269672331458315808034097805727606; - rkA[2][3] = (KPP_REAL)(-.2696723314583158080340978057276063e-01); - rkA[3][0] = (KPP_REAL)(.83333333333333333333333333333333333e-01); - rkA[3][1] = (KPP_REAL).4166666666666666666666666666666667; - rkA[3][2] = (KPP_REAL).4166666666666666666666666666666667; - rkA[3][3] = (KPP_REAL)(.8333333333333333333333333333333333e-01); - - rkB[0] = (KPP_REAL)(.83333333333333333333333333333333333e-01); - rkB[1] = (KPP_REAL).4166666666666666666666666666666667; - rkB[2] = (KPP_REAL).4166666666666666666666666666666667; - rkB[3] = (KPP_REAL)(.8333333333333333333333333333333333e-01); - - rkC[0] = ZERO; - rkC[1] = (KPP_REAL).2763932022500210303590826331268724; - rkC[2] = (KPP_REAL).7236067977499789696409173668731276; - rkC[3] = ONE; - - /* New solution: H*Sum B_j*f(Z_j) = Sum D_j*Z_j */ - rkD[0] = ZERO; - rkD[1] = ZERO; - rkD[2] = ZERO; - rkD[3] = ONE; - - /* Classical error estimator, embedded solution: */ - rkBhat[0] = (KPP_REAL)(.90909090909090909090909090909090909e-01); - rkBhat[1] = (KPP_REAL).39972675774621371442114262372173276; - rkBhat[2] = (KPP_REAL).43360657558711961891219070961160058; - rkBhat[3] = (KPP_REAL)(.15151515151515151515151515151515152e-01); - - /* Classical error estimator: */ - /* H* Sum (B_j-Bhat_j)*f(Z_j) = H*E(0)*f(0) + Sum E_j*Z_j */ - - rkE[0] = (KPP_REAL)(.1957403846510110711315759367097231e-01); - rkE[1] = (KPP_REAL)(-.1986820345632580910316020806676438); - rkE[2] = (KPP_REAL).1660586371214229125096727578826900; - rkE[3] = (KPP_REAL)(-.9787019232550553556578796835486154e-01); - - /* Sdirk error estimator: */ - rkF[0] = ZERO; - rkF[1] = (KPP_REAL)(-.66535815876916686607437314126436349); - rkF[2] = (KPP_REAL)1.7419302743497277572980407931678409; - rkF[3] = (KPP_REAL)(-1.2918865386966730694684011822841728); - - /* ELO = local order of classical error estimator */ - rkELO = (KPP_REAL)4.0; - - /* Sdirk error estimator: */ - rkBgam[0] = (KPP_REAL)(.2950472755430528877214995073815946e-01); - rkBgam[1] = (KPP_REAL).5370310883226113978352873633882769; - rkBgam[2] = (KPP_REAL).2963022450107219354980459699450564; - rkBgam[3] = (KPP_REAL)(-.7815248400375080035021681445218837e-01); - rkBgam[4] = (KPP_REAL).2153144231161121782447335303806956; - - /* H* Sum Bgam_j*f(Z_j) = H*Bgam(0)*f(0) + Sum Theta_j*Z_j */ - rkTheta[0] = (KPP_REAL)0.0; - rkTheta[1] = (KPP_REAL)(-.6653581587691668660743731412643631); - rkTheta[2] = (KPP_REAL)1.741930274349727757298040793167842; - rkTheta[3] = (KPP_REAL)(-.291886538696673069468401182284174); - - - /*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ~~~> Diagonalize the RK matrix: - rkTinv * inv(rkA) * rkT = - | rkGamma 0 0 | - | 0 rkAlpha -rkBeta | - | 0 rkBeta rkAlpha | - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - rkGamma = (KPP_REAL)4.644370709252171185822941421408063; - rkAlpha = (KPP_REAL)3.677814645373914407088529289295968; - rkBeta = (KPP_REAL)3.508761919567443321903661209182446; - - rkT[0][0] = (KPP_REAL)(.5303036326129938105898786144870856e-01); - rkT[0][1] = (KPP_REAL)(-.7776129960563076320631956091016914e-01); - rkT[0][2] = (KPP_REAL)(.6043307469475508514468017399717112e-02); - rkT[1][0] = (KPP_REAL).2637242522173698467283726114649606; - rkT[1][1] = (KPP_REAL).2193839918662961493126393244533346; - rkT[1][2] = (KPP_REAL).3198765142300936188514264752235344; - rkT[2][0] = ONE; - rkT[2][1] = ZERO; - rkT[2][2] = ZERO; - - rkTinv[0][0] = (KPP_REAL)7.695032983257654470769069079238553; - rkTinv[0][1] = (KPP_REAL)(-.1453793830957233720334601186354032); - rkTinv[0][2] = (KPP_REAL).6302696746849084900422461036874826; - rkTinv[1][0] = (KPP_REAL)(-7.695032983257654470769069079238553); - rkTinv[1][1] = (KPP_REAL).1453793830957233720334601186354032; - rkTinv[1][2] = (KPP_REAL).3697303253150915099577538963125174; - rkTinv[2][0] = (KPP_REAL)(-1.066660885401270392058552736086173); - rkTinv[2][1] = (KPP_REAL)3.146358406832537460764521760668932; - rkTinv[2][2] = (KPP_REAL)(-.7732056038202974770406168510664738); - - rkTinvAinv[0][0] = (KPP_REAL)35.73858579417120341641749040405149; - rkTinvAinv[0][1] = (KPP_REAL)(-.675195748578927863668368190236025); - rkTinvAinv[0][2] = (KPP_REAL)2.927206016036483646751158874041632; - rkTinvAinv[1][0] = (KPP_REAL)(-24.55824590667225493437162206039511); - rkTinvAinv[1][1] = (KPP_REAL)(-10.50514413892002061837750015342036); - rkTinvAinv[1][2] = (KPP_REAL)4.072793983963516353248841125958369; - rkTinvAinv[2][0] = (KPP_REAL)(-30.92301972744621647251975054630589); - rkTinvAinv[2][1] = (KPP_REAL)12.08182467154052413351908559269928; - rkTinvAinv[2][2] = (KPP_REAL)(-1.546411207640594954081233702132946); - - rkAinvT[0][0] = (KPP_REAL).2462926658317812882584158369803835; - rkAinvT[0][1] = (KPP_REAL)(-.2647871194157644619747121197289574); - rkAinvT[0][2] = (KPP_REAL).2950720515900466654896406799284586; - rkAinvT[1][0] = (KPP_REAL)1.224833192317784474576995878738004; - rkAinvT[1][1] = (KPP_REAL)1.929224190340981580557006261869763; - rkAinvT[1][2] = (KPP_REAL).4066803323234419988910915619080306; - rkAinvT[2][0] = (KPP_REAL)4.644370709252171185822941421408064; - rkAinvT[2][1] = (KPP_REAL)3.677814645373914407088529289295968; - rkAinvT[2][2] = (KPP_REAL)(-3.508761919567443321903661209182446); -} /* Lobatto3A_Coefficients */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - END SUBROUTINE RungeKutta ! and all its internal procedures - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void FUN_CHEM(KPP_REAL T, KPP_REAL V[], KPP_REAL FCT[]) -{ - KPP_REAL Told; - - Told = TIME; - TIME = T; - Update_SUN(); - Update_RCONST(); - Update_PHOTO(); - TIME = Told; - - Fun(V, FIX, RCONST, FCT); - -} /* FUN_CHEM */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void JAC_CHEM (KPP_REAL T, KPP_REAL V[], KPP_REAL JF[]) -{ - KPP_REAL Told; - - Told = TIME; - TIME = T; - Update_SUN(); - Update_RCONST(); - Update_PHOTO(); - TIME = Told; - Jac_SP(V, FIX, RCONST, JF); -} /* JAC_CHEM */ diff --git a/int.modified_WCOPY/runge_kutta.def b/int.modified_WCOPY/runge_kutta.def deleted file mode 100644 index 33068e3a65a0fa0e06f50ac1acf134dffe7d4222..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/runge_kutta.def +++ /dev/null @@ -1,8 +0,0 @@ - -#FUNCTION AGGREGATE -#JACOBIAN SPARSE_LU_ROW - -#DOUBLE ON -#INTFILE runge_kutta - - diff --git a/int.modified_WCOPY/runge_kutta.f90 b/int.modified_WCOPY/runge_kutta.f90 deleted file mode 100644 index 87388a35f0d23564e8588c62693784d8e22c4aec..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/runge_kutta.f90 +++ /dev/null @@ -1,1881 +0,0 @@ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! -! RungeKutta - Fully Implicit 3-stage Runge-Kutta methods based on: ! -! * Radau-2A quadrature (order 5) ! -! * Radau-1A quadrature (order 5) ! -! * Lobatto-3C quadrature (order 4) ! -! * Gauss quadrature (order 6) ! -! By default the code employs the KPP sparse linear algebra routines ! -! Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK) ! -! ! -! (C) Adrian Sandu, August 2005 ! -! Virginia Polytechnic Institute and State University ! -! Contact: sandu@cs.vt.edu ! -! Revised by Philipp Miehe and Adrian Sandu, May 2006 ! -! This implementation is part of KPP - the Kinetic PreProcessor ! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! - -MODULE KPP_ROOT_Integrator - - USE KPP_ROOT_Precision - USE KPP_ROOT_Parameters, ONLY: NVAR, NSPEC, NFIX, LU_NONZERO - USE KPP_ROOT_Global, ONLY: FIX, RCONST, TIME - USE KPP_ROOT_Jacobian, ONLY: LU_DIAG - USE KPP_ROOT_LinearAlgebra - - IMPLICIT NONE - PUBLIC - SAVE - -!~~~> Statistics on the work performed by the Runge-Kutta method - INTEGER, PARAMETER :: Nfun=1, Njac=2, Nstp=3, Nacc=4, & - Nrej=5, Ndec=6, Nsol=7, Nsng=8, Ntexit=1, Nhacc=2, Nhnew=3 - -CONTAINS - - ! ************************************************************************** - - SUBROUTINE INTEGRATE( TIN, TOUT, & - ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U, IERR_U ) - - USE KPP_ROOT_Parameters, ONLY: NVAR - USE KPP_ROOT_Global, ONLY: ATOL,RTOL,VAR - - IMPLICIT NONE - - KPP_REAL :: TIN ! TIN - Start Time - KPP_REAL :: TOUT ! TOUT - End Time - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - KPP_REAL, INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - KPP_REAL, INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: IERR_U - - INTEGER :: IERR - - KPP_REAL :: RCNTRL(20), RSTATUS(20), T1, T2 - INTEGER :: ICNTRL(20), ISTATUS(20) - INTEGER, SAVE :: Ntotal = 0 - - RCNTRL(1:20) = 0.0_dp - ICNTRL(1:20) = 0 - - !~~~> fine-tune the integrator: - ICNTRL(2) = 0 ! 0=vector tolerances, 1=scalar tolerances - ICNTRL(5) = 8 ! Max no. of Newton iterations - ICNTRL(6) = 0 ! Starting values for Newton are interpolated (0) or zero (1) - ICNTRL(10) = 1 ! 0 - classic or 1 - SDIRK error estimation - ICNTRL(11) = 0 ! Gustaffson (0) or classic(1) controller - - !~~~> if optional parameters are given, and if they are >0, - ! then use them to overwrite default settings - IF (PRESENT(ICNTRL_U)) THEN - WHERE(ICNTRL_U(:) > 0) ICNTRL(:) = ICNTRL_U(:) - END IF - IF (PRESENT(RCNTRL_U)) THEN - WHERE(RCNTRL_U(:) > 0) RCNTRL(:) = RCNTRL_U(:) - END IF - - - T1 = TIN; T2 = TOUT - CALL RungeKutta( NVAR, T1, T2, VAR, RTOL, ATOL, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR ) - - Ntotal = Ntotal + ISTATUS(Nstp) - PRINT*,'NSTEPS=',ISTATUS(Nstp),' (',Ntotal,')',' O3=', VAR(ind_O3) - - ! if optional parameters are given for output - ! use them to store information in them - IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(:) - IF (PRESENT(RSTATUS_U)) RSTATUS_U(:) = RSTATUS(:) - IF (PRESENT(IERR_U)) IERR_U = IERR - - IF (IERR < 0) THEN - PRINT *,'Runge-Kutta: Unsuccessful exit at T=', TIN,' (IERR=',IERR,')' - ENDIF - - END SUBROUTINE INTEGRATE - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RungeKutta( N,T,Tend,Y,RelTol,AbsTol, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! This implementation is based on the book and the code Radau5: -! -! E. HAIRER AND G. WANNER -! "SOLVING ORDINARY DIFFERENTIAL EQUATIONS II. -! STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS." -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS 14, -! SPRINGER-VERLAG (1991) -! -! UNIVERSITE DE GENEVE, DEPT. DE MATHEMATIQUES -! CH-1211 GENEVE 24, SWITZERLAND -! E-MAIL: HAIRER@DIVSUN.UNIGE.CH, WANNER@DIVSUN.UNIGE.CH -! -! Methods: -! * Radau-2A quadrature (order 5) -! * Radau-1A quadrature (order 5) -! * Lobatto-3C quadrature (order 4) -! * Gauss quadrature (order 6) -! -! (C) Adrian Sandu, August 2005 -! Virginia Polytechnic Institute and State University -! Contact: sandu@cs.vt.edu -! Revised by Philipp Miehe and Adrian Sandu, May 2006 -! This implementation is part of KPP - the Kinetic PreProcessor -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT ARGUMENTS: -! ---------------- -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -! N Dimension of the system -! T Initial time value -! -! Tend Final T value (Tend-T may be positive or negative) -! -! Y(N) Initial values for Y -! -! RelTol,AbsTol Relative and absolute error tolerances. -! for ICNTRL(2) = 0: AbsTol, RelTol are N-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -!~~~> Integer input parameters: -! -! ICNTRL(1) = not used -! -! ICNTRL(2) = 0: AbsTol, RelTol are NVAR-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ICNTRL(3) = RK method selection -! = 1: Radau-2A (the default) -! = 2: Lobatto-3C -! = 3: Gauss -! = 4: Radau-1A -! = 5: Lobatto-3A (not yet implemented) -! -! ICNTRL(4) -> maximum number of integration steps -! For ICNTRL(4)=0 the default value of 10000 is used -! -! ICNTRL(5) -> maximum number of Newton iterations -! For ICNTRL(5)=0 the default value of 8 is used -! -! ICNTRL(6) -> starting values of Newton iterations: -! ICNTRL(6)=0 : starting values are obtained from -! the extrapolated collocation solution -! (the default) -! ICNTRL(6)=1 : starting values are zero -! -! ICNTRL(10) -> switch for error estimation strategy -! ICNTRL(10) = 0: one additional stage at c=0, -! see Hairer (default) -! ICNTRL(10) = 1: two additional stages at c=0 -! and SDIRK at c=1, stiffly accurate -! -! ICNTRL(11) -> switch for step size strategy -! ICNTRL(11)=0: mod. predictive controller (Gustafsson, default) -! ICNTRL(11)=1: classical step size control -! the choice 1 seems to produce safer results; -! for simple problems, the choice 2 produces -! often slightly faster runs -! -!~~~> Real input parameters: -! -! RCNTRL(1) -> Hmin, lower bound for the integration step size -! (highly recommended to keep Hmin = ZERO, the default) -! -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! -! RCNTRL(3) -> Hstart, the starting step size -! -! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! -! RCNTRL(5) -> FacMax, upper bound on step increase factor (default=6) -! -! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! -! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -! -! RCNTRL(8) -> ThetaMin. If Newton convergence rate smaller -! than ThetaMin the Jacobian is not recomputed; -! (default=0.001) -! -! RCNTRL(9) -> NewtonTol, stopping criterion for Newton's method -! (default=0.03) -! -! RCNTRL(10) -> Qmin -! -! RCNTRL(11) -> Qmax. If Qmin < Hnew/Hold < Qmax, then the -! step size is kept constant and the LU factorization -! reused (default Qmin=1, Qmax=1.2) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! -! OUTPUT ARGUMENTS: -! ----------------- -! -! T -> T value for which the solution has been computed -! (after successful return T=Tend). -! -! Y(N) -> Numerical solution at T -! -! IERR -> Reports on successfulness upon return: -! = 1 for success -! < 0 for error (value equals error code) -! -! ISTATUS(1) -> No. of function calls -! ISTATUS(2) -> No. of Jacobian calls -! ISTATUS(3) -> No. of steps -! ISTATUS(4) -> No. of accepted steps -! ISTATUS(5) -> No. of rejected steps (except at very beginning) -! ISTATUS(6) -> No. of LU decompositions -! ISTATUS(7) -> No. of forward/backward substitutions -! ISTATUS(8) -> No. of singular matrix decompositions -! -! RSTATUS(1) -> Texit, the time corresponding to the -! computed Y upon return -! RSTATUS(2) -> Hexit, last accepted step before exit -! RSTATUS(3) -> Hnew, last predicted step (not yet taken) -! For multiple restarts, use Hnew as Hstart -! in the subsequent run -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - INTEGER :: N - KPP_REAL :: Y(N),AbsTol(N),RelTol(N),RCNTRL(20),RSTATUS(20) - INTEGER :: ICNTRL(20), ISTATUS(20) - LOGICAL :: StartNewton, Gustafsson, SdirkError - INTEGER :: IERR, ITOL - KPP_REAL :: T,Tend - - !~~~> Control arguments - INTEGER :: Max_no_steps, NewtonMaxit, rkMethod - KPP_REAL :: Hmin,Hmax,Hstart,Qmin,Qmax - KPP_REAL :: Roundoff, ThetaMin, NewtonTol - KPP_REAL :: FacSafe,FacMin,FacMax,FacRej - ! Runge-Kutta method parameters - INTEGER, PARAMETER :: R2A=1, R1A=2, L3C=3, GAU=4, L3A=5 - KPP_REAL :: rkT(3,3), rkTinv(3,3), rkTinvAinv(3,3), rkAinvT(3,3), & - rkA(0:3,0:3), rkB(0:3), rkC(0:3), rkD(0:3), rkE(0:3), & - rkBgam(0:4), rkBhat(0:4), rkTheta(0:3), rkF(0:4), & - rkGamma, rkAlpha, rkBeta, rkELO - !~~~> Local variables - INTEGER :: i - KPP_REAL, PARAMETER :: ZERO = 0.0d0, ONE = 1.0d0 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! SETTING THE PARAMETERS -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IERR = 0 - ISTATUS(1:20) = 0 - RSTATUS(1:20) = ZERO - -!~~~> ICNTRL(1) - autonomous system - not used -!~~~> ITOL: 1 for vector and 0 for scalar AbsTol/RelTol - IF (ICNTRL(2) == 0) THEN - ITOL = 1 - ELSE - ITOL = 0 - END IF -!~~~> Error control selection - IF (ICNTRL(10) == 0) THEN - SdirkError = .FALSE. - ELSE - SdirkError = .TRUE. - END IF -!~~~> Method selection - SELECT CASE (ICNTRL(3)) - CASE (0,1) - CALL Radau2A_Coefficients - CASE (2) - CALL Lobatto3C_Coefficients - CASE (3) - CALL Gauss_Coefficients - CASE (4) - CALL Radau1A_Coefficients - CASE (5) - CALL Lobatto3A_Coefficients - CASE DEFAULT - WRITE(6,*) 'ICNTRL(3)=',ICNTRL(3) - CALL RK_ErrorMsg(-13,T,ZERO,IERR) - END SELECT -!~~~> Max_no_steps: the maximal number of time steps - IF (ICNTRL(4) == 0) THEN - Max_no_steps = 200000 - ELSE - Max_no_steps=ICNTRL(4) - IF (Max_no_steps <= 0) THEN - WRITE(6,*) 'ICNTRL(4)=',ICNTRL(4) - CALL RK_ErrorMsg(-1,T,ZERO,IERR) - END IF - END IF -!~~~> NewtonMaxit maximal number of Newton iterations - IF (ICNTRL(5) == 0) THEN - NewtonMaxit = 8 - ELSE - NewtonMaxit=ICNTRL(5) - IF (NewtonMaxit <= 0) THEN - WRITE(6,*) 'ICNTRL(5)=',ICNTRL(5) - CALL RK_ErrorMsg(-2,T,ZERO,IERR) - END IF - END IF -!~~~> StartNewton: Use extrapolation for starting values of Newton iterations - IF (ICNTRL(6) == 0) THEN - StartNewton = .TRUE. - ELSE - StartNewton = .FALSE. - END IF -!~~~> Gustafsson: step size controller - IF(ICNTRL(11) == 0)THEN - Gustafsson = .TRUE. - ELSE - Gustafsson = .FALSE. - END IF - -!~~~> Roundoff: smallest number s.t. 1.0 + Roundoff > 1.0 - Roundoff=WLAMCH('E'); - -!~~~> Hmin = minimal step size - IF (RCNTRL(1) == ZERO) THEN - Hmin = ZERO - ELSE - Hmin = MIN(ABS(RCNTRL(1)),ABS(Tend-T)) - END IF -!~~~> Hmax = maximal step size - IF (RCNTRL(2) == ZERO) THEN - Hmax = ABS(Tend-T) - ELSE - Hmax = MIN(ABS(RCNTRL(2)),ABS(Tend-T)) - END IF -!~~~> Hstart = starting step size - IF (RCNTRL(3) == ZERO) THEN - Hstart = ZERO - ELSE - Hstart = MIN(ABS(RCNTRL(3)),ABS(Tend-T)) - END IF -!~~~> FacMin: lower bound on step decrease factor - IF(RCNTRL(4) == ZERO)THEN - FacMin = 0.2d0 - ELSE - FacMin = RCNTRL(4) - END IF -!~~~> FacMax: upper bound on step increase factor - IF(RCNTRL(5) == ZERO)THEN - FacMax = 8.D0 - ELSE - FacMax = RCNTRL(5) - END IF -!~~~> FacRej: step decrease factor after 2 consecutive rejections - IF(RCNTRL(6) == ZERO)THEN - FacRej = 0.1d0 - ELSE - FacRej = RCNTRL(6) - END IF -!~~~> FacSafe: by which the new step is slightly smaller -! than the predicted value - IF (RCNTRL(7) == ZERO) THEN - FacSafe=0.9d0 - ELSE - FacSafe=RCNTRL(7) - END IF - IF ( (FacMax < ONE) .OR. (FacMin > ONE) .OR. & - (FacSafe <= 1.0d-3) .OR. (FacSafe >= ONE) ) THEN - WRITE(6,*)'RCNTRL(4:7)=',RCNTRL(4:7) - CALL RK_ErrorMsg(-4,T,ZERO,IERR) - END IF - -!~~~> ThetaMin: decides whether the Jacobian should be recomputed - IF (RCNTRL(8) == ZERO) THEN - ThetaMin = 1.0d-3 - ELSE - ThetaMin=RCNTRL(8) - IF (ThetaMin <= 0.0d0 .OR. ThetaMin >= 1.0d0) THEN - WRITE(6,*) 'RCNTRL(8)=', RCNTRL(8) - CALL RK_ErrorMsg(-5,T,ZERO,IERR) - END IF - END IF -!~~~> NewtonTol: stopping crierion for Newton's method - IF (RCNTRL(9) == ZERO) THEN - NewtonTol = 3.0d-2 - ELSE - NewtonTol = RCNTRL(9) - IF (NewtonTol <= Roundoff) THEN - WRITE(6,*) 'RCNTRL(9)=',RCNTRL(9) - CALL RK_ErrorMsg(-6,T,ZERO,IERR) - END IF - END IF -!~~~> Qmin AND Qmax: IF Qmin < Hnew/Hold < Qmax then step size = const. - IF (RCNTRL(10) == ZERO) THEN - Qmin=1.D0 - ELSE - Qmin=RCNTRL(10) - END IF - IF (RCNTRL(11) == ZERO) THEN - Qmax=1.2D0 - ELSE - Qmax=RCNTRL(11) - END IF - IF (Qmin > ONE .OR. Qmax < ONE) THEN - WRITE(6,*) 'RCNTRL(10:11)=',Qmin,Qmax - CALL RK_ErrorMsg(-7,T,ZERO,IERR) - END IF -!~~~> Check if tolerances are reasonable - IF (ITOL == 0) THEN - IF (AbsTol(1) <= ZERO.OR.RelTol(1) <= 10.d0*Roundoff) THEN - WRITE (6,*) 'AbsTol/RelTol=',AbsTol,RelTol - CALL RK_ErrorMsg(-8,T,ZERO,IERR) - END IF - ELSE - DO i=1,N - IF (AbsTol(i) <= ZERO.OR.RelTol(i) <= 10.d0*Roundoff) THEN - WRITE (6,*) 'AbsTol/RelTol(',i,')=',AbsTol(i),RelTol(i) - CALL RK_ErrorMsg(-8,T,ZERO,IERR) - END IF - END DO - END IF - -!~~~> Parameters are wrong - IF (IERR < 0) RETURN - -!~~~> Call the core method - CALL RK_Integrator( N,T,Tend,Y,IERR ) - - CONTAINS ! Internal procedures to RungeKutta - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_Integrator( N,T,Tend,Y,IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE -!~~~> Arguments - INTEGER, INTENT(IN) :: N - KPP_REAL, INTENT(IN) :: Tend - KPP_REAL, INTENT(INOUT) :: T, Y(NVAR) - INTEGER, INTENT(OUT) :: IERR - -!~~~> Local variables -#ifdef FULL_ALGEBRA - KPP_REAL :: FJAC(NVAR,NVAR), E1(NVAR,NVAR) - COMPLEX(kind=dp) :: E2(NVAR,NVAR) -#else - KPP_REAL :: FJAC(LU_NONZERO), E1(LU_NONZERO) - COMPLEX(kind=dp) :: E2(LU_NONZERO) -#endif - KPP_REAL, DIMENSION(NVAR) :: Z1,Z2,Z3,Z4,SCAL,DZ1,DZ2,DZ3,DZ4, & - G,TMP,F0 - KPP_REAL :: CONT(NVAR,3), Tdirection, H, Hacc, Hnew, Hold, Fac, & - FacGus, Theta, Err, ErrOld, NewtonRate, NewtonIncrement, & - Hratio, Qnewton, NewtonPredictedErr,NewtonIncrementOld, ThetaSD - INTEGER :: IP1(NVAR),IP2(NVAR),NewtonIter, ISING, Nconsecutive - LOGICAL :: Reject, FirstStep, SkipJac, NewtonDone, SkipLU - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Initial setting -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - Tdirection = SIGN(ONE,Tend-T) - H = MIN( MAX(ABS(Hmin),ABS(Hstart)) , Hmax ) - IF (ABS(H) <= 10.d0*Roundoff) H = 1.0d-6 - H = SIGN(H,Tdirection) - Hold = H - Reject = .FALSE. - FirstStep = .TRUE. - SkipJac = .FALSE. - SkipLU = .FALSE. - IF ((T+H*1.0001D0-Tend)*Tdirection >= ZERO) THEN - H = Tend-T - END IF - Nconsecutive = 0 - CALL RK_ErrorScale(N,ITOL,AbsTol,RelTol,Y,SCAL) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Time loop begins -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -Tloop: DO WHILE ( (Tend-T)*Tdirection - Roundoff > ZERO ) - - !IF ( .NOT.Reject ) THEN - CALL FUN_CHEM(T,Y,F0) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - !END IF - - IF ( .NOT.SkipLU ) THEN ! This time around skip the Jac update and LU - !~~~> Compute the Jacobian matrix - IF ( .NOT.SkipJac ) THEN - CALL JAC_CHEM(T,Y,FJAC) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - END IF - !~~~> Compute the matrices E1 and E2 and their decompositions - CALL RK_Decomp(N,H,FJAC,E1,IP1,E2,IP2,ISING) - IF (ISING /= 0) THEN - ISTATUS(Nsng) = ISTATUS(Nsng) + 1; Nconsecutive = Nconsecutive + 1 - IF (Nconsecutive >= 5) THEN - CALL RK_ErrorMsg(-12,T,H,IERR); RETURN - END IF - H=H*0.5d0; Reject=.TRUE.; SkipJac = .TRUE.; SkipLU = .FALSE. - CYCLE Tloop - ELSE - Nconsecutive = 0 - END IF - END IF ! SkipLU - - ISTATUS(Nstp) = ISTATUS(Nstp) + 1 - IF (ISTATUS(Nstp) > Max_no_steps) THEN - PRINT*,'Max number of time steps is ',Max_no_steps - CALL RK_ErrorMsg(-9,T,H,IERR); RETURN - END IF - IF (0.1D0*ABS(H) <= ABS(T)*Roundoff) THEN - CALL RK_ErrorMsg(-10,T,H,IERR); RETURN - END IF - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Loop for the simplified Newton iterations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - !~~~> Starting values for Newton iteration - IF ( FirstStep .OR. (.NOT.StartNewton) ) THEN - CALL Set2zero(N,Z1) - CALL Set2zero(N,Z2) - CALL Set2zero(N,Z3) - ELSE - ! Evaluate quadratic polynomial - CALL RK_Interpolate('eval',N,H,Hold,Z1,Z2,Z3,CONT) - END IF - - !~~~> Initializations for Newton iteration - NewtonDone = .FALSE. - Fac = 0.5d0 ! Step reduction if too many iterations - -NewtonLoop:DO NewtonIter = 1, NewtonMaxit - - !~~~> Prepare the right-hand side - CALL RK_PrepareRHS(N,T,H,Y,F0,Z1,Z2,Z3,DZ1,DZ2,DZ3) - - !~~~> Solve the linear systems - CALL RK_Solve( N,H,E1,IP1,E2,IP2,DZ1,DZ2,DZ3,ISING ) - - NewtonIncrement = SQRT( ( RK_ErrorNorm(N,SCAL,DZ1)**2 + & - RK_ErrorNorm(N,SCAL,DZ2)**2 + & - RK_ErrorNorm(N,SCAL,DZ3)**2 )/3.0d0 ) - - IF ( NewtonIter == 1 ) THEN - Theta = ABS(ThetaMin) - NewtonRate = 2.0d0 - ELSE - Theta = NewtonIncrement/NewtonIncrementOld - IF (Theta < 0.99d0) THEN - NewtonRate = Theta/(ONE-Theta) - ELSE ! Non-convergence of Newton: Theta too large - EXIT NewtonLoop - END IF - IF ( NewtonIter < NewtonMaxit ) THEN - ! Predict error at the end of Newton process - NewtonPredictedErr = NewtonIncrement & - *Theta**(NewtonMaxit-NewtonIter)/(ONE-Theta) - IF (NewtonPredictedErr >= NewtonTol) THEN - ! Non-convergence of Newton: predicted error too large - Qnewton = MIN(10.0d0,NewtonPredictedErr/NewtonTol) - Fac=0.8d0*Qnewton**(-ONE/(1+NewtonMaxit-NewtonIter)) - EXIT NewtonLoop - END IF - END IF - END IF - - NewtonIncrementOld = MAX(NewtonIncrement,Roundoff) - ! Update solution - CALL WAXPY(N,-ONE,DZ1,1,Z1,1) ! Z1 <- Z1 - DZ1 - CALL WAXPY(N,-ONE,DZ2,1,Z2,1) ! Z2 <- Z2 - DZ2 - CALL WAXPY(N,-ONE,DZ3,1,Z3,1) ! Z3 <- Z3 - DZ3 - - ! Check error in Newton iterations - NewtonDone = (NewtonRate*NewtonIncrement <= NewtonTol) - IF (NewtonDone) EXIT NewtonLoop - IF (NewtonIter == NewtonMaxit) THEN - PRINT*, 'Slow or no convergence in Newton Iteration: Max no. of', & - 'Newton iterations reached' - END IF - - END DO NewtonLoop - - IF (.NOT.NewtonDone) THEN - !CALL RK_ErrorMsg(-12,T,H,IERR); - H = Fac*H; Reject=.TRUE.; SkipJac = .TRUE.; SkipLU = .FALSE. - CYCLE Tloop - END IF - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> SDIRK Stage -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IF (SdirkError) THEN - -!~~~> Starting values for Newton iterations - Z4(1:N) = Z3(1:N) - -!~~~> Prepare the loop-independent part of the right-hand side -! G = H*rkBgam(0)*F0 + rkTheta(1)*Z1 + rkTheta(2)*Z2 + rkTheta(3)*Z3 - CALL Set2Zero(N, G) - IF (rkMethod/=L3A) CALL WAXPY(N,rkBgam(0)*H, F0,1,G,1) - CALL WAXPY(N,rkTheta(1),Z1,1,G,1) - CALL WAXPY(N,rkTheta(2),Z2,1,G,1) - CALL WAXPY(N,rkTheta(3),Z3,1,G,1) - - !~~~> Initializations for Newton iteration - NewtonDone = .FALSE. - Fac = 0.5d0 ! Step reduction factor if too many iterations - -SDNewtonLoop:DO NewtonIter = 1, NewtonMaxit - -!~~~> Prepare the loop-dependent part of the right-hand side - CALL WADD(N,Y,Z4,TMP) ! TMP <- Y + Z4 - CALL FUN_CHEM(T+H,TMP,DZ4) ! DZ4 <- Fun(Y+Z4) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 -! DZ4(1:N) = (G(1:N)-Z4(1:N))*(rkGamma/H) + DZ4(1:N) - CALL WAXPY (N, -ONE*rkGamma/H, Z4, 1, DZ4, 1) - CALL WAXPY (N, rkGamma/H, G,1, DZ4,1) - -!~~~> Solve the linear system -#ifdef FULL_ALGEBRA - CALL DGETRS( 'N', N, 1, E1, N, IP1, DZ4, N, ISING ) -#else - CALL KppSolve(E1, DZ4) -#endif - -!~~~> Check convergence of Newton iterations - NewtonIncrement = RK_ErrorNorm(N,SCAL,DZ4) - IF ( NewtonIter == 1 ) THEN - ThetaSD = ABS(ThetaMin) - NewtonRate = 2.0d0 - ELSE - ThetaSD = NewtonIncrement/NewtonIncrementOld - IF (ThetaSD < 0.99d0) THEN - NewtonRate = ThetaSD/(ONE-ThetaSD) - ! Predict error at the end of Newton process - NewtonPredictedErr = NewtonIncrement & - *ThetaSD**(NewtonMaxit-NewtonIter)/(ONE-ThetaSD) - IF (NewtonPredictedErr >= NewtonTol) THEN - ! Non-convergence of Newton: predicted error too large - !PRINT*,'Error too large: ', NewtonPredictedErr - Qnewton = MIN(10.0d0,NewtonPredictedErr/NewtonTol) - Fac = 0.8d0*Qnewton**(-ONE/(1+NewtonMaxit-NewtonIter)) - EXIT SDNewtonLoop - END IF - ELSE ! Non-convergence of Newton: Theta too large - !PRINT*,'Theta too large: ',ThetaSD - EXIT SDNewtonLoop - END IF - END IF - NewtonIncrementOld = NewtonIncrement - ! Update solution: Z4 <-- Z4 + DZ4 - CALL WAXPY(N,ONE,DZ4,1,Z4,1) - - ! Check error in Newton iterations - NewtonDone = (NewtonRate*NewtonIncrement <= NewtonTol) - IF (NewtonDone) EXIT SDNewtonLoop - - END DO SDNewtonLoop - - IF (.NOT.NewtonDone) THEN - H = Fac*H; Reject=.TRUE.; SkipJac = .TRUE.; SkipLU = .FALSE. - CYCLE Tloop - END IF - END IF -!~~~> End of implified SDIRK Newton iterations - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Error estimation -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IF (SdirkError) THEN - CALL Set2Zero(N, DZ4) - IF (rkMethod==L3A) THEN - DZ4(1:N) = H*rkF(0)*F0(1:N) - IF (rkF(1) /= ZERO) CALL WAXPY(N, rkF(1), Z1, 1, DZ4, 1) - IF (rkF(2) /= ZERO) CALL WAXPY(N, rkF(2), Z2, 1, DZ4, 1) - IF (rkF(3) /= ZERO) CALL WAXPY(N, rkF(3), Z3, 1, DZ4, 1) - TMP = Y + Z4 - CALL FUN_CHEM(T+H,TMP,DZ1) - CALL WAXPY(N, H*rkBgam(4), DZ1, 1, DZ4, 1) - ELSE -! DZ4(1:N) = rkD(1)*Z1 + rkD(2)*Z2 + rkD(3)*Z3 - Z4 - IF (rkD(1) /= ZERO) CALL WAXPY(N, rkD(1), Z1, 1, DZ4, 1) - IF (rkD(2) /= ZERO) CALL WAXPY(N, rkD(2), Z2, 1, DZ4, 1) - IF (rkD(3) /= ZERO) CALL WAXPY(N, rkD(3), Z3, 1, DZ4, 1) - CALL WAXPY(N, -ONE, Z4, 1, DZ4, 1) - END IF - Err = RK_ErrorNorm(N,SCAL,DZ4) - ELSE - CALL RK_ErrorEstimate(N,H,T,Y,F0, & - E1,IP1,Z1,Z2,Z3,SCAL,Err,FirstStep,Reject) - END IF - -!~~~> Computation of new step size Hnew - Fac = Err**(-ONE/rkELO)* & - MIN(FacSafe,(ONE+2*NewtonMaxit)/(NewtonIter+2*NewtonMaxit)) - Fac = MIN(FacMax,MAX(FacMin,Fac)) - Hnew = Fac*H - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Accept/reject step -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -accept:IF (Err < ONE) THEN !~~~> STEP IS ACCEPTED - FirstStep=.FALSE. - ISTATUS(Nacc) = ISTATUS(Nacc) + 1 - IF (Gustafsson) THEN - !~~~> Predictive controller of Gustafsson - IF (ISTATUS(Nacc) > 1) THEN - FacGus=FacSafe*(H/Hacc)*(Err**2/ErrOld)**(-0.25d0) - FacGus=MIN(FacMax,MAX(FacMin,FacGus)) - Fac=MIN(Fac,FacGus) - Hnew = Fac*H - END IF - Hacc=H - ErrOld=MAX(1.0d-2,Err) - END IF - Hold = H - T = T+H - ! Update solution: Y <- Y + sum(d_i Z_i) - IF (rkD(1) /= ZERO) CALL WAXPY(N,rkD(1),Z1,1,Y,1) - IF (rkD(2) /= ZERO) CALL WAXPY(N,rkD(2),Z2,1,Y,1) - IF (rkD(3) /= ZERO) CALL WAXPY(N,rkD(3),Z3,1,Y,1) - ! Construct the solution quadratic interpolant Q(c_i) = Z_i, i=1:3 - IF (StartNewton) CALL RK_Interpolate('make',N,H,Hold,Z1,Z2,Z3,CONT) - CALL RK_ErrorScale(N,ITOL,AbsTol,RelTol,Y,SCAL) - RSTATUS(Ntexit) = T - RSTATUS(Nhnew) = Hnew - RSTATUS(Nhacc) = H - Hnew = Tdirection*MIN( MAX(ABS(Hnew),Hmin) , Hmax ) - IF (Reject) Hnew = Tdirection*MIN(ABS(Hnew),ABS(H)) - Reject = .FALSE. - IF ((T+Hnew/Qmin-Tend)*Tdirection >= ZERO) THEN - H = Tend-T - ELSE - Hratio=Hnew/H - ! Reuse the LU decomposition - SkipLU = (Theta<=ThetaMin) .AND. (Hratio>=Qmin) .AND. (Hratio<=Qmax) - IF (.NOT.SkipLU) H=Hnew - END IF - ! If convergence is fast enough, do not update Jacobian -! SkipJac = (Theta <= ThetaMin) - SkipJac = .FALSE. - - ELSE accept !~~~> Step is rejected - IF (FirstStep .OR. Reject) THEN - H = FacRej*H - ELSE - H = Hnew - END IF - Reject = .TRUE. - SkipJac = .TRUE. ! Skip if rejected - Jac is independent of H - SkipLU = .FALSE. - IF (ISTATUS(Nacc) >= 1) ISTATUS(Nrej) = ISTATUS(Nrej) + 1 - END IF accept - - END DO Tloop - - ! Successful exit - IERR = 1 - - END SUBROUTINE RK_Integrator - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_ErrorMsg(Code,T,H,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - KPP_REAL, INTENT(IN) :: T, H - INTEGER, INTENT(IN) :: Code - INTEGER, INTENT(OUT) :: IERR - - IERR = Code - PRINT * , & - 'Forced exit from RungeKutta due to the following error:' - - - SELECT CASE (Code) - CASE (-1) - PRINT * , '--> Improper value for maximal no of steps' - CASE (-2) - PRINT * , '--> Improper value for maximal no of Newton iterations' - CASE (-3) - PRINT * , '--> Hmin/Hmax/Hstart must be positive' - CASE (-4) - PRINT * , '--> Improper values for FacMin/FacMax/FacSafe/FacRej' - CASE (-5) - PRINT * , '--> Improper value for ThetaMin' - CASE (-6) - PRINT * , '--> Newton stopping tolerance too small' - CASE (-7) - PRINT * , '--> Improper values for Qmin, Qmax' - CASE (-8) - PRINT * , '--> Tolerances are too small' - CASE (-9) - PRINT * , '--> No of steps exceeds maximum bound' - CASE (-10) - PRINT * , '--> Step size too small: T + 10*H = T', & - ' or H < Roundoff' - CASE (-11) - PRINT * , '--> Matrix is repeatedly singular' - CASE (-12) - PRINT * , '--> Non-convergence of Newton iterations' - CASE (-13) - PRINT * , '--> Requested RK method not implemented' - CASE DEFAULT - PRINT *, 'Unknown Error code: ', Code - END SELECT - - WRITE(6,FMT="(5X,'T=',E12.5,' H=',E12.5)") T, H - - END SUBROUTINE RK_ErrorMsg - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_ErrorScale(N,ITOL,AbsTol,RelTol,Y,SCAL) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - INTEGER, INTENT(IN) :: N, ITOL - KPP_REAL, INTENT(IN) :: AbsTol(*), RelTol(*), Y(N) - KPP_REAL, INTENT(OUT) :: SCAL(N) - INTEGER :: i - - IF (ITOL==0) THEN - DO i=1,N - SCAL(i)= ONE/(AbsTol(1)+RelTol(1)*ABS(Y(i))) - END DO - ELSE - DO i=1,N - SCAL(i)=ONE/(AbsTol(i)+RelTol(i)*ABS(Y(i))) - END DO - END IF - - END SUBROUTINE RK_ErrorScale - - -!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! SUBROUTINE RK_Transform(N,Tr,Z1,Z2,Z3,W1,W2,W3) -!!~~~> W <-- Tr x Z -!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! IMPLICIT NONE -! INTEGER :: N, i -! KPP_REAL :: Tr(3,3),Z1(N),Z2(N),Z3(N),W1(N),W2(N),W3(N) -! KPP_REAL :: x1, x2, x3 -! DO i=1,N -! x1 = Z1(i); x2 = Z2(i); x3 = Z3(i) -! W1(i) = Tr(1,1)*x1 + Tr(1,2)*x2 + Tr(1,3)*x3 -! W2(i) = Tr(2,1)*x1 + Tr(2,2)*x2 + Tr(2,3)*x3 -! W3(i) = Tr(3,1)*x1 + Tr(3,2)*x2 + Tr(3,3)*x3 -! END DO -! END SUBROUTINE RK_Transform - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_Interpolate(action,N,H,Hold,Z1,Z2,Z3,CONT) -!~~~> Constructs or evaluates a quadratic polynomial -! that interpolates the Z solution at current step -! and provides starting values for the next step -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - INTEGER :: N, i - KPP_REAL :: H,Hold,Z1(N),Z2(N),Z3(N),CONT(N,3) - KPP_REAL :: r, x1, x2, x3, den - CHARACTER(LEN=4) :: action - - SELECT CASE (action) - CASE ('make') - ! Construct the solution quadratic interpolant Q(c_i) = Z_i, i=1:3 - den = (rkC(3)-rkC(2))*(rkC(2)-rkC(1))*(rkC(1)-rkC(3)) - DO i=1,N - CONT(i,1)=(-rkC(3)**2*rkC(2)*Z1(i)+Z3(i)*rkC(2)*rkC(1)**2 & - +rkC(2)**2*rkC(3)*Z1(i)-rkC(2)**2*rkC(1)*Z3(i) & - +rkC(3)**2*rkC(1)*Z2(i)-Z2(i)*rkC(3)*rkC(1)**2)& - /den-Z3(i) - CONT(i,2)= -( rkC(1)**2*(Z3(i)-Z2(i)) + rkC(2)**2*(Z1(i) & - -Z3(i)) +rkC(3)**2*(Z2(i)-Z1(i)) )/den - CONT(i,3)= ( rkC(1)*(Z3(i)-Z2(i)) + rkC(2)*(Z1(i)-Z3(i)) & - +rkC(3)*(Z2(i)-Z1(i)) )/den - END DO - CASE ('eval') - ! Evaluate quadratic polynomial - r = H/Hold - x1 = ONE + rkC(1)*r - x2 = ONE + rkC(2)*r - x3 = ONE + rkC(3)*r - DO i=1,N - Z1(i) = CONT(i,1)+x1*(CONT(i,2)+x1*CONT(i,3)) - Z2(i) = CONT(i,1)+x2*(CONT(i,2)+x2*CONT(i,3)) - Z3(i) = CONT(i,1)+x3*(CONT(i,2)+x3*CONT(i,3)) - END DO - END SELECT - END SUBROUTINE RK_Interpolate - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_PrepareRHS(N,T,H,Y,F0,Z1,Z2,Z3,R1,R2,R3) -!~~~> Prepare the right-hand side for Newton iterations -! R = Z - hA x F -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - - INTEGER :: N - KPP_REAL :: T, H - KPP_REAL, DIMENSION(N) :: Y,Z1,Z2,Z3,F0,F,R1,R2,R3,TMP - - CALL WCOPY(N,Z1,1,R1,1) ! R1 <- Z1 - CALL WCOPY(N,Z2,1,R2,1) ! R2 <- Z2 - CALL WCOPY(N,Z3,1,R3,1) ! R3 <- Z3 - - IF (rkMethod==L3A) THEN - CALL WAXPY(N,-H*rkA(1,0),F0,1,R1,1) ! R1 <- R1 - h*A_10*F0 - CALL WAXPY(N,-H*rkA(2,0),F0,1,R2,1) ! R2 <- R2 - h*A_20*F0 - CALL WAXPY(N,-H*rkA(3,0),F0,1,R3,1) ! R3 <- R3 - h*A_30*F0 - END IF - - CALL WADD(N,Y,Z1,TMP) ! TMP <- Y + Z1 - CALL FUN_CHEM(T+rkC(1)*H,TMP,F) ! F1 <- Fun(Y+Z1) - CALL WAXPY(N,-H*rkA(1,1),F,1,R1,1) ! R1 <- R1 - h*A_11*F1 - CALL WAXPY(N,-H*rkA(2,1),F,1,R2,1) ! R2 <- R2 - h*A_21*F1 - CALL WAXPY(N,-H*rkA(3,1),F,1,R3,1) ! R3 <- R3 - h*A_31*F1 - - CALL WADD(N,Y,Z2,TMP) ! TMP <- Y + Z2 - CALL FUN_CHEM(T+rkC(2)*H,TMP,F) ! F2 <- Fun(Y+Z2) - CALL WAXPY(N,-H*rkA(1,2),F,1,R1,1) ! R1 <- R1 - h*A_12*F2 - CALL WAXPY(N,-H*rkA(2,2),F,1,R2,1) ! R2 <- R2 - h*A_22*F2 - CALL WAXPY(N,-H*rkA(3,2),F,1,R3,1) ! R3 <- R3 - h*A_32*F2 - - CALL WADD(N,Y,Z3,TMP) ! TMP <- Y + Z3 - CALL FUN_CHEM(T+rkC(3)*H,TMP,F) ! F3 <- Fun(Y+Z3) - CALL WAXPY(N,-H*rkA(1,3),F,1,R1,1) ! R1 <- R1 - h*A_13*F3 - CALL WAXPY(N,-H*rkA(2,3),F,1,R2,1) ! R2 <- R2 - h*A_23*F3 - CALL WAXPY(N,-H*rkA(3,3),F,1,R3,1) ! R3 <- R3 - h*A_33*F3 - - END SUBROUTINE RK_PrepareRHS - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_Decomp(N,H,FJAC,E1,IP1,E2,IP2,ISING) - !~~~> Compute the matrices E1 and E2 and their decompositions -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - - INTEGER :: N, ISING - KPP_REAL :: H, Alpha, Beta, Gamma -#ifdef FULL_ALGEBRA - KPP_REAL :: FJAC(NVAR,NVAR),E1(NVAR,NVAR) - COMPLEX(kind=dp) :: E2(N,N) -#else - KPP_REAL :: FJAC(LU_NONZERO),E1(LU_NONZERO) - COMPLEX(kind=dp) :: E2(LU_NONZERO) -#endif - INTEGER :: IP1(N), IP2(N), i, j - - Gamma = rkGamma/H - Alpha = rkAlpha/H - Beta = rkBeta /H - -#ifdef FULL_ALGEBRA - DO j=1,N - DO i=1,N - E1(i,j)=-FJAC(i,j) - END DO - E1(j,j)=E1(j,j)+Gamma - END DO - CALL DGETRF(N,N,E1,N,IP1,ISING) -#else - DO i=1,LU_NONZERO - E1(i)=-FJAC(i) - END DO - DO i=1,NVAR - j=LU_DIAG(i); E1(j)=E1(j)+Gamma - END DO - CALL KppDecomp(E1,ISING) -#endif - - IF (ISING /= 0) THEN - ISTATUS(Ndec) = ISTATUS(Ndec) + 1 - RETURN - END IF - -#ifdef FULL_ALGEBRA - DO j=1,N - DO i=1,N - E2(i,j) = DCMPLX( -FJAC(i,j), ZERO ) - END DO - E2(j,j) = E2(j,j) + CMPLX( Alpha, Beta ) - END DO - CALL ZGETRF(N,N,E2,N,IP2,ISING) -#else - DO i=1,LU_NONZERO - E2(i) = DCMPLX( -FJAC(i), ZERO ) - END DO - DO i=1,NVAR - j=LU_DIAG(i); E2(j)=E2(j) + CMPLX( Alpha, Beta ) - END DO - CALL KppDecompCmplx(E2,ISING) -#endif - ISTATUS(Ndec) = ISTATUS(Ndec) + 1 - - END SUBROUTINE RK_Decomp - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_Solve(N,H,E1,IP1,E2,IP2,R1,R2,R3,ISING) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - INTEGER :: N,IP1(NVAR),IP2(NVAR),ISING -#ifdef FULL_ALGEBRA - KPP_REAL :: E1(NVAR,NVAR) - COMPLEX(kind=dp) :: E2(NVAR,NVAR) -#else - KPP_REAL :: E1(LU_NONZERO) - COMPLEX(kind=dp) :: E2(LU_NONZERO) -#endif - KPP_REAL :: R1(N),R2(N),R3(N) - KPP_REAL :: H, x1, x2, x3 - COMPLEX(kind=dp) :: BC(N) - INTEGER :: i -! - ! Z <- h^{-1) T^{-1) A^{-1) x Z - DO i=1,N - x1 = R1(i)/H; x2 = R2(i)/H; x3 = R3(i)/H - R1(i) = rkTinvAinv(1,1)*x1 + rkTinvAinv(1,2)*x2 + rkTinvAinv(1,3)*x3 - R2(i) = rkTinvAinv(2,1)*x1 + rkTinvAinv(2,2)*x2 + rkTinvAinv(2,3)*x3 - R3(i) = rkTinvAinv(3,1)*x1 + rkTinvAinv(3,2)*x2 + rkTinvAinv(3,3)*x3 - END DO - -#ifdef FULL_ALGEBRA - CALL DGETRS ('N',N,1,E1,N,IP1,R1,N,0) -#else - CALL KppSolve (E1,R1) -#endif -! - DO i=1,N - BC(i) = DCMPLX(R2(i),R3(i)) - END DO -#ifdef FULL_ALGEBRA - CALL ZGETRS ('N',N,1,E2,N,IP2,BC,N,0) -#else - CALL KppSolveCmplx (E2,BC) -#endif - DO i=1,N - R2(i) = DBLE( BC(i) ) - R3(i) = AIMAG( BC(i) ) - END DO - - ! Z <- T x Z - DO i=1,N - x1 = R1(i); x2 = R2(i); x3 = R3(i) - R1(i) = rkT(1,1)*x1 + rkT(1,2)*x2 + rkT(1,3)*x3 - R2(i) = rkT(2,1)*x1 + rkT(2,2)*x2 + rkT(2,3)*x3 - R3(i) = rkT(3,1)*x1 + rkT(3,2)*x2 + rkT(3,3)*x3 - END DO - - ISTATUS(Nsol) = ISTATUS(Nsol) + 1 - - END SUBROUTINE RK_Solve - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_ErrorEstimate(N,H,T,Y,F0, & - E1,IP1,Z1,Z2,Z3,SCAL,Err, & - FirstStep,Reject) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - - INTEGER :: N -#ifdef FULL_ALGEBRA - KPP_REAL :: E1(NVAR,NVAR) -#else - KPP_REAL :: E1(LU_NONZERO) -#endif - KPP_REAL :: SCAL(N),Z1(N),Z2(N),Z3(N),F1(N),F2(N), & - F0(N),Y(N),TMP(N),T,H - INTEGER :: IP1(N), i - LOGICAL FirstStep,Reject - KPP_REAL :: HrkE1,HrkE2,HrkE3,Err - - HrkE1 = rkE(1)/H - HrkE2 = rkE(2)/H - HrkE3 = rkE(3)/H - - DO i=1,N - F2(i) = HrkE1*Z1(i)+HrkE2*Z2(i)+HrkE3*Z3(i) - TMP(i) = rkE(0)*F0(i) + F2(i) - END DO - - -#ifdef FULL_ALGEBRA - CALL DGETRS ('N',N,1,E1,N,IP1,TMP,N,0) - IF ((rkMethod==R1A).OR.(rkMethod==GAU).OR.(rkMethod==L3A)) CALL DGETRS ('N',N,1,E1,N,IP1,TMP,N,0) - IF (rkMethod==GAU) CALL DGETRS ('N',N,1,E1,N,IP1,TMP,N,0) -#else - CALL KppSolve (E1, TMP) - IF ((rkMethod==R1A).OR.(rkMethod==GAU).OR.(rkMethod==L3A)) CALL KppSolve (E1,TMP) - IF (rkMethod==GAU) CALL KppSolve (E1,TMP) -#endif - - Err = RK_ErrorNorm(N,SCAL,TMP) -! - IF (Err < ONE) RETURN -firej:IF (FirstStep.OR.Reject) THEN - DO i=1,N - TMP(i)=Y(i)+TMP(i) - END DO - CALL FUN_CHEM(T,TMP,F1) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - DO i=1,N - TMP(i)=F1(i)+F2(i) - END DO - -#ifdef FULL_ALGEBRA - CALL DGETRS ('N',N,1,E1,N,IP1,TMP,N,0) -#else - CALL KppSolve (E1, TMP) -#endif - Err = RK_ErrorNorm(N,SCAL,TMP) - END IF firej - - END SUBROUTINE RK_ErrorEstimate - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - KPP_REAL FUNCTION RK_ErrorNorm(N,SCAL,DY) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - - INTEGER :: N - KPP_REAL :: SCAL(N),DY(N) - INTEGER :: i - - RK_ErrorNorm = ZERO - DO i=1,N - RK_ErrorNorm = RK_ErrorNorm + (DY(i)*SCAL(i))**2 - END DO - RK_ErrorNorm = MAX( SQRT(RK_ErrorNorm/N), 1.0d-10 ) - - END FUNCTION RK_ErrorNorm - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Radau2A_Coefficients -! The coefficients of the 3-stage Radau-2A method -! (given to ~30 accurate digits) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -! The coefficients of the Radau2A method - KPP_REAL :: b0 - -! b0 = 1.0d0 - IF (SdirkError) THEN - b0 = 0.2d-1 - ELSE - b0 = 0.5d-1 - END IF - -! The coefficients of the Radau2A method - rkMethod = R2A - - rkA(1,1) = 1.968154772236604258683861429918299d-1 - rkA(1,2) = -6.55354258501983881085227825696087d-2 - rkA(1,3) = 2.377097434822015242040823210718965d-2 - rkA(2,1) = 3.944243147390872769974116714584975d-1 - rkA(2,2) = 2.920734116652284630205027458970589d-1 - rkA(2,3) = -4.154875212599793019818600988496743d-2 - rkA(3,1) = 3.764030627004672750500754423692808d-1 - rkA(3,2) = 5.124858261884216138388134465196080d-1 - rkA(3,3) = 1.111111111111111111111111111111111d-1 - - rkB(1) = 3.764030627004672750500754423692808d-1 - rkB(2) = 5.124858261884216138388134465196080d-1 - rkB(3) = 1.111111111111111111111111111111111d-1 - - rkC(1) = 1.550510257216821901802715925294109d-1 - rkC(2) = 6.449489742783178098197284074705891d-1 - rkC(3) = 1.0d0 - - ! New solution: H* Sum B_j*f(Z_j) = Sum D_j*Z_j - rkD(1) = 0.0d0 - rkD(2) = 0.0d0 - rkD(3) = 1.0d0 - - ! Classical error estimator: - ! H* Sum (B_j-Bhat_j)*f(Z_j) = H*E(0)*f(0) + Sum E_j*Z_j - rkE(0) = 1.0d0*b0 - rkE(1) = -10.04880939982741556246032950764708d0*b0 - rkE(2) = 1.382142733160748895793662840980412d0*b0 - rkE(3) = -.3333333333333333333333333333333333d0*b0 - - ! Sdirk error estimator - rkBgam(0) = b0 - rkBgam(1) = .3764030627004672750500754423692807d0-1.558078204724922382431975370686279d0*b0 - rkBgam(2) = .8914115380582557157653087040196118d0*b0+.5124858261884216138388134465196077d0 - rkBgam(3) = -.1637777184845662566367174924883037d0-.3333333333333333333333333333333333d0*b0 - rkBgam(4) = .2748888295956773677478286035994148d0 - - ! H* Sum Bgam_j*f(Z_j) = H*Bgam(0)*f(0) + Sum Theta_j*Z_j - rkTheta(1) = -1.520677486405081647234271944611547d0-10.04880939982741556246032950764708d0*b0 - rkTheta(2) = 2.070455145596436382729929151810376d0+1.382142733160748895793662840980413d0*b0 - rkTheta(3) = -.3333333333333333333333333333333333d0*b0-.3744441479783868387391430179970741d0 - - ! Local order of error estimator - IF (b0==0.0d0) THEN - rkELO = 6.0d0 - ELSE - rkELO = 4.0d0 - END IF - - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - !~~~> Diagonalize the RK matrix: - ! rkTinv * inv(rkA) * rkT = - ! | rkGamma 0 0 | - ! | 0 rkAlpha -rkBeta | - ! | 0 rkBeta rkAlpha | - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - rkGamma = 3.637834252744495732208418513577775d0 - rkAlpha = 2.681082873627752133895790743211112d0 - rkBeta = 3.050430199247410569426377624787569d0 - - rkT(1,1) = 9.443876248897524148749007950641664d-2 - rkT(1,2) = -1.412552950209542084279903838077973d-1 - rkT(1,3) = -3.00291941051474244918611170890539d-2 - rkT(2,1) = 2.502131229653333113765090675125018d-1 - rkT(2,2) = 2.041293522937999319959908102983381d-1 - rkT(2,3) = 3.829421127572619377954382335998733d-1 - rkT(3,1) = 1.0d0 - rkT(3,2) = 1.0d0 - rkT(3,3) = 0.0d0 - - rkTinv(1,1) = 4.178718591551904727346462658512057d0 - rkTinv(1,2) = 3.27682820761062387082533272429617d-1 - rkTinv(1,3) = 5.233764454994495480399309159089876d-1 - rkTinv(2,1) = -4.178718591551904727346462658512057d0 - rkTinv(2,2) = -3.27682820761062387082533272429617d-1 - rkTinv(2,3) = 4.766235545005504519600690840910124d-1 - rkTinv(3,1) = -5.02872634945786875951247343139544d-1 - rkTinv(3,2) = 2.571926949855605429186785353601676d0 - rkTinv(3,3) = -5.960392048282249249688219110993024d-1 - - rkTinvAinv(1,1) = 1.520148562492775501049204957366528d+1 - rkTinvAinv(1,2) = 1.192055789400527921212348994770778d0 - rkTinvAinv(1,3) = 1.903956760517560343018332287285119d0 - rkTinvAinv(2,1) = -9.669512977505946748632625374449567d0 - rkTinvAinv(2,2) = -8.724028436822336183071773193986487d0 - rkTinvAinv(2,3) = 3.096043239482439656981667712714881d0 - rkTinvAinv(3,1) = -1.409513259499574544876303981551774d+1 - rkTinvAinv(3,2) = 5.895975725255405108079130152868952d0 - rkTinvAinv(3,3) = -1.441236197545344702389881889085515d-1 - - rkAinvT(1,1) = .3435525649691961614912493915818282d0 - rkAinvT(1,2) = -.4703191128473198422370558694426832d0 - rkAinvT(1,3) = .3503786597113668965366406634269080d0 - rkAinvT(2,1) = .9102338692094599309122768354288852d0 - rkAinvT(2,2) = 1.715425895757991796035292755937326d0 - rkAinvT(2,3) = .4040171993145015239277111187301784d0 - rkAinvT(3,1) = 3.637834252744495732208418513577775d0 - rkAinvT(3,2) = 2.681082873627752133895790743211112d0 - rkAinvT(3,3) = -3.050430199247410569426377624787569d0 - - END SUBROUTINE Radau2A_Coefficients - - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Lobatto3C_Coefficients -! The coefficients of the 3-stage Lobatto-3C method -! (given to ~30 accurate digits) -! The parameter b0 can be chosen to tune the error estimator -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - KPP_REAL :: b0 - - rkMethod = L3C - -! b0 = 1.0d0 - IF (SdirkError) THEN - b0 = 0.2d0 - ELSE - b0 = 0.5d0 - END IF -! The coefficients of the Lobatto3C method - - rkA(1,1) = .1666666666666666666666666666666667d0 - rkA(1,2) = -.3333333333333333333333333333333333d0 - rkA(1,3) = .1666666666666666666666666666666667d0 - rkA(2,1) = .1666666666666666666666666666666667d0 - rkA(2,2) = .4166666666666666666666666666666667d0 - rkA(2,3) = -.8333333333333333333333333333333333d-1 - rkA(3,1) = .1666666666666666666666666666666667d0 - rkA(3,2) = .6666666666666666666666666666666667d0 - rkA(3,3) = .1666666666666666666666666666666667d0 - - rkB(1) = .1666666666666666666666666666666667d0 - rkB(2) = .6666666666666666666666666666666667d0 - rkB(3) = .1666666666666666666666666666666667d0 - - rkC(1) = 0.0d0 - rkC(2) = 0.5d0 - rkC(3) = 1.0d0 - - ! Classical error estimator, embedded solution: - rkBhat(0) = b0 - rkBhat(1) = .16666666666666666666666666666666667d0-b0 - rkBhat(2) = .66666666666666666666666666666666667d0 - rkBhat(3) = .16666666666666666666666666666666667d0 - - ! New solution: h Sum_j b_j f(Z_j) = sum d_j Z_j - rkD(1) = 0.0d0 - rkD(2) = 0.0d0 - rkD(3) = 1.0d0 - - ! Classical error estimator: - ! H* Sum (B_j-Bhat_j)*f(Z_j) = H*E(0)*f(0) + Sum E_j*Z_j - rkE(0) = .3808338772072650364017425226487022*b0 - rkE(1) = -1.142501631621795109205227567946107*b0 - rkE(2) = -1.523335508829060145606970090594809*b0 - rkE(3) = .3808338772072650364017425226487022*b0 - - ! Sdirk error estimator - rkBgam(0) = b0 - rkBgam(1) = .1666666666666666666666666666666667d0-1.d0*b0 - rkBgam(2) = .6666666666666666666666666666666667d0 - rkBgam(3) = -.2141672105405983697350758559820354d0 - rkBgam(4) = .3808338772072650364017425226487021d0 - - ! H* Sum Bgam_j*f(Z_j) = H*Bgam(0)*f(0) + Sum Theta_j*Z_j - rkTheta(1) = -3.d0*b0-.3808338772072650364017425226487021d0 - rkTheta(2) = -4.d0*b0+1.523335508829060145606970090594808d0 - rkTheta(3) = -.142501631621795109205227567946106d0+b0 - - ! Local order of error estimator - IF (b0==0.0d0) THEN - rkELO = 5.0d0 - ELSE - rkELO = 4.0d0 - END IF - - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - !~~~> Diagonalize the RK matrix: - ! rkTinv * inv(rkA) * rkT = - ! | rkGamma 0 0 | - ! | 0 rkAlpha -rkBeta | - ! | 0 rkBeta rkAlpha | - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - rkGamma = 2.625816818958466716011888933765284d0 - rkAlpha = 1.687091590520766641994055533117359d0 - rkBeta = 2.508731754924880510838743672432351d0 - - rkT(1,1) = 1.d0 - rkT(1,2) = 1.d0 - rkT(1,3) = 0.d0 - rkT(2,1) = .4554100411010284672111720348287483d0 - rkT(2,2) = -.6027050205505142336055860174143743d0 - rkT(2,3) = -.4309321229203225731070721341350346d0 - rkT(3,1) = 2.195823345445647152832799205549709d0 - rkT(3,2) = -1.097911672722823576416399602774855d0 - rkT(3,3) = .7850032632435902184104551358922130d0 - - rkTinv(1,1) = .4205559181381766909344950150991349d0 - rkTinv(1,2) = .3488903392193734304046467270632057d0 - rkTinv(1,3) = .1915253879645878102698098373933487d0 - rkTinv(2,1) = .5794440818618233090655049849008650d0 - rkTinv(2,2) = -.3488903392193734304046467270632057d0 - rkTinv(2,3) = -.1915253879645878102698098373933487d0 - rkTinv(3,1) = -.3659705575742745254721332009249516d0 - rkTinv(3,2) = -1.463882230297098101888532803699806d0 - rkTinv(3,3) = .4702733607340189781407813565524989d0 - - rkTinvAinv(1,1) = 1.104302803159744452668648155627548d0 - rkTinvAinv(1,2) = .916122120694355522658740710823143d0 - rkTinvAinv(1,3) = .5029105849749601702795812241441172d0 - rkTinvAinv(2,1) = 1.895697196840255547331351844372453d0 - rkTinvAinv(2,2) = 3.083877879305644477341259289176857d0 - rkTinvAinv(2,3) = -1.502910584974960170279581224144117d0 - rkTinvAinv(3,1) = .8362439183082935036129145574774502d0 - rkTinvAinv(3,2) = -3.344975673233174014451658229909802d0 - rkTinvAinv(3,3) = .312908409479233358005944466882642d0 - - rkAinvT(1,1) = 2.625816818958466716011888933765282d0 - rkAinvT(1,2) = 1.687091590520766641994055533117358d0 - rkAinvT(1,3) = -2.508731754924880510838743672432351d0 - rkAinvT(2,1) = 1.195823345445647152832799205549710d0 - rkAinvT(2,2) = -2.097911672722823576416399602774855d0 - rkAinvT(2,3) = .7850032632435902184104551358922130d0 - rkAinvT(3,1) = 5.765829871932827589653709477334136d0 - rkAinvT(3,2) = .1170850640335862051731452613329320d0 - rkAinvT(3,3) = 4.078738281412060947659653944216779d0 - - END SUBROUTINE Lobatto3C_Coefficients - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Gauss_Coefficients -! The coefficients of the 3-stage Gauss method -! (given to ~30 accurate digits) -! The parameter b3 can be chosen by the user -! to tune the error estimator -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - KPP_REAL :: b0 -! The coefficients of the Gauss method - - - rkMethod = GAU - -! b0 = 4.0d0 - b0 = 0.1d0 - -! The coefficients of the Gauss method - - rkA(1,1) = .1388888888888888888888888888888889d0 - rkA(1,2) = -.359766675249389034563954710966045d-1 - rkA(1,3) = .97894440153083260495800422294756d-2 - rkA(2,1) = .3002631949808645924380249472131556d0 - rkA(2,2) = .2222222222222222222222222222222222d0 - rkA(2,3) = -.224854172030868146602471694353778d-1 - rkA(3,1) = .2679883337624694517281977355483022d0 - rkA(3,2) = .4804211119693833479008399155410489d0 - rkA(3,3) = .1388888888888888888888888888888889d0 - - rkB(1) = .2777777777777777777777777777777778d0 - rkB(2) = .4444444444444444444444444444444444d0 - rkB(3) = .2777777777777777777777777777777778d0 - - rkC(1) = .1127016653792583114820734600217600d0 - rkC(2) = .5000000000000000000000000000000000d0 - rkC(3) = .8872983346207416885179265399782400d0 - - ! Classical error estimator, embedded solution: - rkBhat(0) = b0 - rkBhat(1) =-1.4788305577012361475298775666303999d0*b0 & - +.27777777777777777777777777777777778d0 - rkBhat(2) = .44444444444444444444444444444444444d0 & - +.66666666666666666666666666666666667d0*b0 - rkBhat(3) = -.18783610896543051913678910003626672d0*b0 & - +.27777777777777777777777777777777778d0 - - ! New solution: h Sum_j b_j f(Z_j) = sum d_j Z_j - rkD(1) = .1666666666666666666666666666666667d1 - rkD(2) = -.1333333333333333333333333333333333d1 - rkD(3) = .1666666666666666666666666666666667d1 - - ! Classical error estimator: - ! H* Sum (B_j-Bhat_j)*f(Z_j) = H*E(0)*f(0) + Sum E_j*Z_j - rkE(0) = .2153144231161121782447335303806954d0*b0 - rkE(1) = -2.825278112319014084275808340593191d0*b0 - rkE(2) = .2870858974881495709929780405075939d0*b0 - rkE(3) = -.4558086256248162565397206448274867d-1*b0 - - ! Sdirk error estimator - rkBgam(0) = 0.d0 - rkBgam(1) = .2373339543355109188382583162660537d0 - rkBgam(2) = .5879873931885192299409334646982414d0 - rkBgam(3) = -.4063577064014232702392531134499046d-1 - rkBgam(4) = .2153144231161121782447335303806955d0 - - ! H* Sum Bgam_j*f(Z_j) = H*Bgam(0)*f(0) + Sum Theta_j*Z_j - rkTheta(1) = -2.594040933093095272574031876464493d0 - rkTheta(2) = 1.824611539036311947589425112250199d0 - rkTheta(3) = .1856563166634371860478043996459493d0 - - ! ELO = local order of classical error estimator - rkELO = 4.0d0 - - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - !~~~> Diagonalize the RK matrix: - ! rkTinv * inv(rkA) * rkT = - ! | rkGamma 0 0 | - ! | 0 rkAlpha -rkBeta | - ! | 0 rkBeta rkAlpha | - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - rkGamma = 4.644370709252171185822941421408064d0 - rkAlpha = 3.677814645373914407088529289295970d0 - rkBeta = 3.508761919567443321903661209182446d0 - - rkT(1,1) = .7215185205520017032081769924397664d-1 - rkT(1,2) = -.8224123057363067064866206597516454d-1 - rkT(1,3) = -.6012073861930850173085948921439054d-1 - rkT(2,1) = .1188325787412778070708888193730294d0 - rkT(2,2) = .5306509074206139504614411373957448d-1 - rkT(2,3) = .3162050511322915732224862926182701d0 - rkT(3,1) = 1.d0 - rkT(3,2) = 1.d0 - rkT(3,3) = 0.d0 - - rkTinv(1,1) = 5.991698084937800775649580743981285d0 - rkTinv(1,2) = 1.139214295155735444567002236934009d0 - rkTinv(1,3) = .4323121137838583855696375901180497d0 - rkTinv(2,1) = -5.991698084937800775649580743981285d0 - rkTinv(2,2) = -1.139214295155735444567002236934009d0 - rkTinv(2,3) = .5676878862161416144303624098819503d0 - rkTinv(3,1) = -1.246213273586231410815571640493082d0 - rkTinv(3,2) = 2.925559646192313662599230367054972d0 - rkTinv(3,3) = -.2577352012734324923468722836888244d0 - - rkTinvAinv(1,1) = 27.82766708436744962047620566703329d0 - rkTinvAinv(1,2) = 5.290933503982655311815946575100597d0 - rkTinvAinv(1,3) = 2.007817718512643701322151051660114d0 - rkTinvAinv(2,1) = -17.66368928942422710690385180065675d0 - rkTinvAinv(2,2) = -14.45491129892587782538830044147713d0 - rkTinvAinv(2,3) = 2.992182281487356298677848948339886d0 - rkTinvAinv(3,1) = -25.60678350282974256072419392007303d0 - rkTinvAinv(3,2) = 6.762434375611708328910623303779923d0 - rkTinvAinv(3,3) = 1.043979339483109825041215970036771d0 - - rkAinvT(1,1) = .3350999483034677402618981153470483d0 - rkAinvT(1,2) = -.5134173605009692329246186488441294d0 - rkAinvT(1,3) = .6745196507033116204327635673208923d-1 - rkAinvT(2,1) = .5519025480108928886873752035738885d0 - rkAinvT(2,2) = 1.304651810077110066076640761092008d0 - rkAinvT(2,3) = .9767507983414134987545585703726984d0 - rkAinvT(3,1) = 4.644370709252171185822941421408064d0 - rkAinvT(3,2) = 3.677814645373914407088529289295970d0 - rkAinvT(3,3) = -3.508761919567443321903661209182446d0 - - END SUBROUTINE Gauss_Coefficients - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Radau1A_Coefficients -! The coefficients of the 3-stage Gauss method -! (given to ~30 accurate digits) -! The parameter b3 can be chosen by the user -! to tune the error estimator -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -! KPP_REAL :: b0 = 0.3d0 - KPP_REAL :: b0 = 0.1d0 - -! The coefficients of the Radau1A method - - rkMethod = R1A - - rkA(1,1) = .1111111111111111111111111111111111d0 - rkA(1,2) = -.1916383190435098943442935597058829d0 - rkA(1,3) = .8052720793239878323318244859477174d-1 - rkA(2,1) = .1111111111111111111111111111111111d0 - rkA(2,2) = .2920734116652284630205027458970589d0 - rkA(2,3) = -.481334970546573839513422644787591d-1 - rkA(3,1) = .1111111111111111111111111111111111d0 - rkA(3,2) = .5370223859435462728402311533676479d0 - rkA(3,3) = .1968154772236604258683861429918299d0 - - rkB(1) = .1111111111111111111111111111111111d0 - rkB(2) = .5124858261884216138388134465196080d0 - rkB(3) = .3764030627004672750500754423692808d0 - - rkC(1) = 0.d0 - rkC(2) = .3550510257216821901802715925294109d0 - rkC(3) = .8449489742783178098197284074705891d0 - - ! Classical error estimator, embedded solution: - rkBhat(0) = b0 - rkBhat(1) = .11111111111111111111111111111111111d0-b0 - rkBhat(2) = .51248582618842161383881344651960810d0 - rkBhat(3) = .37640306270046727505007544236928079d0 - - ! New solution: H* Sum B_j*f(Z_j) = Sum D_j*Z_j - rkD(1) = .3333333333333333333333333333333333d0 - rkD(2) = -.8914115380582557157653087040196127d0 - rkD(3) = .1558078204724922382431975370686279d1 - - ! Classical error estimator: - ! H* Sum (b_j-bhat_j) f(Z_j) = H*E(0)*F(0) + Sum E_j Z_j - rkE(0) = .2748888295956773677478286035994148d0*b0 - rkE(1) = -1.374444147978386838739143017997074d0*b0 - rkE(2) = -1.335337922441686804550326197041126d0*b0 - rkE(3) = .235782604058977333559011782643466d0*b0 - - ! Sdirk error estimator - rkBgam(0) = 0.0d0 - rkBgam(1) = .1948150124588532186183490991130616d-1 - rkBgam(2) = .7575249005733381398986810981093584d0 - rkBgam(3) = -.518952314149008295083446116200793d-1 - rkBgam(4) = .2748888295956773677478286035994148d0 - - ! H* Sum Bgam_j*f(Z_j) = H*Bgam(0)*f(0) + Sum Theta_j*Z_j - rkTheta(1) = -1.224370034375505083904362087063351d0 - rkTheta(2) = .9340045331532641409047527962010133d0 - rkTheta(3) = .4656990124352088397561234800640929d0 - - ! ELO = local order of classical error estimator - rkELO = 4.0d0 - - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - !~~~> Diagonalize the RK matrix: - ! rkTinv * inv(rkA) * rkT = - ! | rkGamma 0 0 | - ! | 0 rkAlpha -rkBeta | - ! | 0 rkBeta rkAlpha | - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - rkGamma = 3.637834252744495732208418513577775d0 - rkAlpha = 2.681082873627752133895790743211112d0 - rkBeta = 3.050430199247410569426377624787569d0 - - rkT(1,1) = .424293819848497965354371036408369d0 - rkT(1,2) = -.3235571519651980681202894497035503d0 - rkT(1,3) = -.522137786846287839586599927945048d0 - rkT(2,1) = .57594609499806128896291585429339d-1 - rkT(2,2) = .3148663231849760131614374283783d-2 - rkT(2,3) = .452429247674359778577728510381731d0 - rkT(3,1) = 1.d0 - rkT(3,2) = 1.d0 - rkT(3,3) = 0.d0 - - rkTinv(1,1) = 1.233523612685027760114769983066164d0 - rkTinv(1,2) = 1.423580134265707095505388133369554d0 - rkTinv(1,3) = .3946330125758354736049045150429624d0 - rkTinv(2,1) = -1.233523612685027760114769983066164d0 - rkTinv(2,2) = -1.423580134265707095505388133369554d0 - rkTinv(2,3) = .6053669874241645263950954849570376d0 - rkTinv(3,1) = -.1484438963257383124456490049673414d0 - rkTinv(3,2) = 2.038974794939896109682070471785315d0 - rkTinv(3,3) = -.544501292892686735299355831692542d-1 - - rkTinvAinv(1,1) = 4.487354449794728738538663081025420d0 - rkTinvAinv(1,2) = 5.178748573958397475446442544234494d0 - rkTinvAinv(1,3) = 1.435609490412123627047824222335563d0 - rkTinvAinv(2,1) = -2.854361287939276673073807031221493d0 - rkTinvAinv(2,2) = -1.003648660720543859000994063139137d+1 - rkTinvAinv(2,3) = 1.789135380979465422050817815017383d0 - rkTinvAinv(3,1) = -4.160768067752685525282947313530352d0 - rkTinvAinv(3,2) = 1.124128569859216916690209918405860d0 - rkTinvAinv(3,3) = 1.700644430961823796581896350418417d0 - - rkAinvT(1,1) = 1.543510591072668287198054583233180d0 - rkAinvT(1,2) = -2.460228411937788329157493833295004d0 - rkAinvT(1,3) = -.412906170450356277003910443520499d0 - rkAinvT(2,1) = .209519643211838264029272585946993d0 - rkAinvT(2,2) = 1.388545667194387164417459732995766d0 - rkAinvT(2,3) = 1.20339553005832004974976023130002d0 - rkAinvT(3,1) = 3.637834252744495732208418513577775d0 - rkAinvT(3,2) = 2.681082873627752133895790743211112d0 - rkAinvT(3,3) = -3.050430199247410569426377624787569d0 - - END SUBROUTINE Radau1A_Coefficients - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Lobatto3A_Coefficients -! The coefficients of the 4-stage Lobatto-3A method -! (given to ~30 accurate digits) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -! The coefficients of the Lobatto-3A method - - rkMethod = L3A - - rkA(0,0) = 0.0d0 - rkA(0,1) = 0.0d0 - rkA(0,2) = 0.0d0 - rkA(0,3) = 0.0d0 - rkA(1,0) = .11030056647916491413674311390609397d0 - rkA(1,1) = .1896994335208350858632568860939060d0 - rkA(1,2) = -.339073642291438837776604807792215d-1 - rkA(1,3) = .1030056647916491413674311390609397d-1 - rkA(2,0) = .73032766854168419196590219427239365d-1 - rkA(2,1) = .4505740308958105504443271474458881d0 - rkA(2,2) = .2269672331458315808034097805727606d0 - rkA(2,3) = -.2696723314583158080340978057276063d-1 - rkA(3,0) = .83333333333333333333333333333333333d-1 - rkA(3,1) = .4166666666666666666666666666666667d0 - rkA(3,2) = .4166666666666666666666666666666667d0 - rkA(3,3) = .8333333333333333333333333333333333d-1 - - rkB(0) = .83333333333333333333333333333333333d-1 - rkB(1) = .4166666666666666666666666666666667d0 - rkB(2) = .4166666666666666666666666666666667d0 - rkB(3) = .8333333333333333333333333333333333d-1 - - rkC(0) = 0.0d0 - rkC(1) = .2763932022500210303590826331268724d0 - rkC(2) = .7236067977499789696409173668731276d0 - rkC(3) = 1.0d0 - - ! New solution: H*Sum B_j*f(Z_j) = Sum D_j*Z_j - rkD(0) = 0.0d0 - rkD(1) = 0.0d0 - rkD(2) = 0.0d0 - rkD(3) = 1.0d0 - - ! Classical error estimator, embedded solution: - rkBhat(0) = .90909090909090909090909090909090909d-1 - rkBhat(1) = .39972675774621371442114262372173276d0 - rkBhat(2) = .43360657558711961891219070961160058d0 - rkBhat(3) = .15151515151515151515151515151515152d-1 - - ! Classical error estimator: - ! H* Sum (B_j-Bhat_j)*f(Z_j) = H*E(0)*f(0) + Sum E_j*Z_j - - rkE(0) = .1957403846510110711315759367097231d-1 - rkE(1) = -.1986820345632580910316020806676438d0 - rkE(2) = .1660586371214229125096727578826900d0 - rkE(3) = -.9787019232550553556578796835486154d-1 - - ! Sdirk error estimator: - rkF(0) = 0.0d0 - rkF(1) = -.66535815876916686607437314126436349d0 - rkF(2) = 1.7419302743497277572980407931678409d0 - rkF(3) = -1.2918865386966730694684011822841728d0 - - ! ELO = local order of classical error estimator - rkELO = 4.0d0 - - ! Sdirk error estimator: - rkBgam(0) = .2950472755430528877214995073815946d-1 - rkBgam(1) = .5370310883226113978352873633882769d0 - rkBgam(2) = .2963022450107219354980459699450564d0 - rkBgam(3) = -.7815248400375080035021681445218837d-1 - rkBgam(4) = .2153144231161121782447335303806956d0 - - ! H* Sum Bgam_j*f(Z_j) = H*Bgam(0)*f(0) + Sum Theta_j*Z_j - rkTheta(0) = 0.0d0 - rkTheta(1) = -.6653581587691668660743731412643631d0 - rkTheta(2) = 1.741930274349727757298040793167842d0 - rkTheta(3) = -.291886538696673069468401182284174d0 - - - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - !~~~> Diagonalize the RK matrix: - ! rkTinv * inv(rkA) * rkT = - ! | rkGamma 0 0 | - ! | 0 rkAlpha -rkBeta | - ! | 0 rkBeta rkAlpha | - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - rkGamma = 4.644370709252171185822941421408063d0 - rkAlpha = 3.677814645373914407088529289295968d0 - rkBeta = 3.508761919567443321903661209182446d0 - - rkT(1,1) = .5303036326129938105898786144870856d-1 - rkT(1,2) = -.7776129960563076320631956091016914d-1 - rkT(1,3) = .6043307469475508514468017399717112d-2 - rkT(2,1) = .2637242522173698467283726114649606d0 - rkT(2,2) = .2193839918662961493126393244533346d0 - rkT(2,3) = .3198765142300936188514264752235344d0 - rkT(3,1) = 1.d0 - rkT(3,2) = 1.d0 - rkT(3,3) = 0.d0 - - rkTinv(1,1) = 7.695032983257654470769069079238553d0 - rkTinv(1,2) = -.1453793830957233720334601186354032d0 - rkTinv(1,3) = .6302696746849084900422461036874826d0 - rkTinv(2,1) = -7.695032983257654470769069079238553d0 - rkTinv(2,2) = .1453793830957233720334601186354032d0 - rkTinv(2,3) = .3697303253150915099577538963125174d0 - rkTinv(3,1) = -1.066660885401270392058552736086173d0 - rkTinv(3,2) = 3.146358406832537460764521760668932d0 - rkTinv(3,3) = -.7732056038202974770406168510664738d0 - - rkTinvAinv(1,1) = 35.73858579417120341641749040405149d0 - rkTinvAinv(1,2) = -.675195748578927863668368190236025d0 - rkTinvAinv(1,3) = 2.927206016036483646751158874041632d0 - rkTinvAinv(2,1) = -24.55824590667225493437162206039511d0 - rkTinvAinv(2,2) = -10.50514413892002061837750015342036 - rkTinvAinv(2,3) = 4.072793983963516353248841125958369d0 - rkTinvAinv(3,1) = -30.92301972744621647251975054630589d0 - rkTinvAinv(3,2) = 12.08182467154052413351908559269928d0 - rkTinvAinv(3,3) = -1.546411207640594954081233702132946d0 - - rkAinvT(1,1) = .2462926658317812882584158369803835d0 - rkAinvT(1,2) = -.2647871194157644619747121197289574d0 - rkAinvT(1,3) = .2950720515900466654896406799284586d0 - rkAinvT(2,1) = 1.224833192317784474576995878738004d0 - rkAinvT(2,2) = 1.929224190340981580557006261869763d0 - rkAinvT(2,3) = .4066803323234419988910915619080306d0 - rkAinvT(3,1) = 4.644370709252171185822941421408064d0 - rkAinvT(3,2) = 3.677814645373914407088529289295968d0 - rkAinvT(3,3) = -3.508761919567443321903661209182446d0 - - END SUBROUTINE Lobatto3A_Coefficients - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - END SUBROUTINE RungeKutta ! and all its internal procedures -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE FUN_CHEM(T, V, FCT) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters - USE KPP_ROOT_Global - USE KPP_ROOT_Function, ONLY: Fun - USE KPP_ROOT_Rates, ONLY: Update_SUN, Update_RCONST, Update_PHOTO - - IMPLICIT NONE - - KPP_REAL :: V(NVAR), FCT(NVAR) - KPP_REAL :: T, Told - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Update_PHOTO() - TIME = Told - - CALL Fun(V, FIX, RCONST, FCT) - - END SUBROUTINE FUN_CHEM - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE JAC_CHEM (T, V, JF) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters - USE KPP_ROOT_Global - USE KPP_ROOT_JacobianSP - USE KPP_ROOT_Jacobian, ONLY: Jac_SP - USE KPP_ROOT_Rates, ONLY: Update_SUN, Update_RCONST, Update_PHOTO - - IMPLICIT NONE - - KPP_REAL :: V(NVAR), T , Told -#ifdef FULL_ALGEBRA - KPP_REAL :: JV(LU_NONZERO), JF(NVAR,NVAR) - INTEGER :: i, j -#else - KPP_REAL :: JF(LU_NONZERO) -#endif - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Update_PHOTO() - TIME = Told - -#ifdef FULL_ALGEBRA - CALL Jac_SP(V, FIX, RCONST, JV) - DO j=1,NVAR - DO i=1,NVAR - JF(i,j) = 0.0d0 - END DO - END DO - DO i=1,LU_NONZERO - JF(LU_IROW(i),LU_ICOL(i)) = JV(i) - END DO -#else - CALL Jac_SP(V, FIX, RCONST, JF) -#endif - - END SUBROUTINE JAC_CHEM - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -END MODULE KPP_ROOT_Integrator - - diff --git a/int.modified_WCOPY/runge_kutta_adj.def b/int.modified_WCOPY/runge_kutta_adj.def deleted file mode 100644 index 0dd22b7ed67a4e501514b926b1b37d2f6e567efa..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/runge_kutta_adj.def +++ /dev/null @@ -1,8 +0,0 @@ - -#FUNCTION AGGREGATE -#JACOBIAN SPARSE_LU_ROW - -#DOUBLE ON -#INTFILE runge_kutta_adj - - diff --git a/int.modified_WCOPY/runge_kutta_adj.f90 b/int.modified_WCOPY/runge_kutta_adj.f90 deleted file mode 100644 index dca6fd1ddb296e950524bd7d45bcc37f2728c4f6..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/runge_kutta_adj.f90 +++ /dev/null @@ -1,2687 +0,0 @@ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! -! RungeKuttaADJ - Adjoint Model of Fully Implicit 3-stage Runge-Kutta: ! -! * Radau-2A quadrature (order 5) ! -! * Radau-1A quadrature (order 5) ! -! * Lobatto-3C quadrature (order 4) ! -! * Gauss quadrature (order 6) ! -! By default the code employs the KPP sparse linear algebra routines ! -! Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK) ! -! ! -! (C) Adrian Sandu, August 2005 ! -! Virginia Polytechnic Institute and State University ! -! Contact: sandu@cs.vt.edu ! -! Revised by Philipp Miehe and Adrian Sandu, May 2006 ! -! This implementation is part of KPP - the Kinetic PreProcessor ! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! - -MODULE KPP_ROOT_Integrator - - USE KPP_ROOT_Precision - USE KPP_ROOT_Parameters, ONLY: NVAR, NSPEC, NFIX, LU_NONZERO - USE KPP_ROOT_Global, ONLY: FIX, RCONST, TIME - USE KPP_ROOT_Jacobian - USE KPP_ROOT_LinearAlgebra - - IMPLICIT NONE - PUBLIC - SAVE - -!~~~> Statistics on the work performed by the Runge-Kutta method - INTEGER :: Nfun,Njac,Nstp,Nacc,Nrej,Ndec,Nsol,Nsng - INTEGER, PARAMETER :: ifun=1, ijac=2, istp=3, iacc=4, & - irej=5, idec=6, isol=7, isng=8, itexit=1, ihacc=2, ihnew=3 - -CONTAINS - - ! ************************************************************************** - - SUBROUTINE INTEGRATE_ADJ(NADJ, Y, Lambda, TIN, TOUT, & - ATOL_adj, RTOL_adj, & - ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U, IERR_U ) - - USE KPP_ROOT_Parameters, ONLY: NVAR - USE KPP_ROOT_Global, ONLY: ATOL,RTOL - - IMPLICIT NONE - -!~~~> Y - Concentrations - KPP_REAL :: Y(NVAR) -!~~~> NADJ - No. of cost functionals for which adjoints -! are evaluated simultaneously -! If single cost functional is considered (like in -! most applications) simply set NADJ = 1 - INTEGER NADJ -!~~~> Lambda - Sensitivities of concentrations -! Note: Lambda (1:NVAR,j) contains sensitivities of -! the j-th cost functional w.r.t. Y(1:NVAR), j=1...NADJ - KPP_REAL :: Lambda(NVAR,NADJ) -!~~~> Tolerances for adjoint calculations -! (used for full continuous adjoint, and for controlling -! the convergence of iterations for solving the discrete adjoint) - KPP_REAL, INTENT(IN) :: ATOL_adj(NVAR,NADJ), RTOL_adj(NVAR,NADJ) - KPP_REAL :: TIN ! TIN - Start Time - KPP_REAL :: TOUT ! TOUT - End Time - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - KPP_REAL, INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - KPP_REAL, INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: IERR_U - - INTEGER :: IERR - - KPP_REAL :: RCNTRL(20), RSTATUS(20), T1, T2 - INTEGER :: ICNTRL(20), ISTATUS(20) - INTEGER, SAVE :: Ntotal = 0 - - - ICNTRL(1:20) = 0 - RCNTRL(1:20) = 0.0_dp - - !~~~> fine-tune the integrator: - ICNTRL(2) = 0 ! 0=vector tolerances, 1=scalar tolerances - ICNTRL(5) = 8 ! Max no. of Newton iterations - ICNTRL(6) = 0 ! Starting values for Newton are: 0=interpolated, 1=zero - ICNTRL(7) = 2 ! Adj. system solved by: 1=iteration, 2=direct, 3=adaptive - ICNTRL(8) = 0 ! Adj. LU decomp: 0=compute, 1=save from fwd - ICNTRL(9) = 2 ! Adjoint: 1=none, 2=discrete, 3=full continuous, 4=simplified continuous - ICNTRL(10) = 0 ! Error estimator: 0=classic, 1=SDIRK - ICNTRL(11) = 1 ! Step controller: 1=Gustaffson, 2=classic - - - !~~~> if optional parameters are given, and if they are >0, - ! then use them to overwrite default settings - IF (PRESENT(ICNTRL_U)) THEN - WHERE(ICNTRL_U(:) > 0) ICNTRL(:) = ICNTRL_U(:) - END IF - IF (PRESENT(RCNTRL_U)) THEN - WHERE(RCNTRL_U(:) > 0) RCNTRL(:) = RCNTRL_U(:) - END IF - - - T1 = TIN; T2 = TOUT - CALL RungeKuttaADJ(NVAR, Y, NADJ, Lambda, T1, T2, & - RTOL, ATOL, ATOL_adj, RTOL_adj, & - RCNTRL, ICNTRL, RSTATUS, ISTATUS, IERR ) - - Ntotal = Ntotal + ISTATUS(istp) -! PRINT*,'NSTEPS=',ISTATUS(istp),' (',Ntotal,')',' O3=', VAR(ind_O3) - - ! if optional parameters are given for output - ! use them to store information in them - IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(:) - IF (PRESENT(RSTATUS_U)) RSTATUS_U(:) = RSTATUS(:) - IF (PRESENT(IERR_U)) IERR_U = IERR - - IF (IERR < 0) THEN - PRINT *,'Runge-Kutta-ADJ: Unsuccessful exit at T=', TIN,' (IERR=',IERR,')' - ENDIF - - END SUBROUTINE INTEGRATE_ADJ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RungeKuttaADJ( N, Y, NADJ, Lambda,Tstart,Tend, & - RelTol, AbsTol, RelTol_adj, AbsTol_adj, & - RCNTRL, ICNTRL, RSTATUS, ISTATUS, IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! This implementation is based on the book and the code Radau5: -! -! E. HAIRER AND G. WANNER -! "SOLVING ORDINARY DIFFERENTIAL EQUATIONS II. -! STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS." -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS 14, -! SPRINGER-VERLAG (1991) -! -! UNIVERSITE DE GENEVE, DEPT. DE MATHEMATIQUES -! CH-1211 GENEVE 24, SWITZERLAND -! E-MAIL: HAIRER@DIVSUN.UNIGE.CH, WANNER@DIVSUN.UNIGE.CH -! -! Methods: -! * Radau-2A quadrature (order 5) -! * Radau-1A quadrature (order 5) -! * Lobatto-3C quadrature (order 4) -! * Gauss quadrature (order 6) -! -! (C) Adrian Sandu, August 2005 -! Virginia Polytechnic Institute and State University -! Contact: sandu@cs.vt.edu -! Revised by Philipp Miehe and Adrian Sandu, May 2006 -! This implementation is part of KPP - the Kinetic PreProcessor -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT ARGUMENTS: -! ---------------- -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -! N Dimension of the system -! T Initial time value -! -! Tend Final T value (Tend-T may be positive or negative) -! -! Y(N) Initial values for Y -! -! RelTol,AbsTol Relative and absolute error tolerances. -! for ICNTRL(2) = 0: AbsTol, RelTol are N-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -!~~~> Integer input parameters: -! -! ICNTRL(1) = not used -! -! ICNTRL(2) = 0: AbsTol, RelTol are NVAR-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ICNTRL(3) = RK method selection -! = 1: Radau-2A (the default) -! = 2: Lobatto-3C -! = 3: Gauss -! = 4: Radau-1A -! -! ICNTRL(4) -> maximum number of integration steps -! For ICNTRL(4)=0 the default value of 10000 is used -! -! ICNTRL(5) -> maximum number of Newton iterations -! For ICNTRL(5)=0 the default value of 8 is used -! -! ICNTRL(6) -> starting values of Newton iterations: -! ICNTRL(6)=0 : starting values are obtained from -! the extrapolated collocation solution -! (the default) -! ICNTRL(6)=1 : starting values are zero -! -! ICNTRL(7) -> method to solve the linear ADJ equations: -! ICNTRL(7)=0,1 : modified Newton re-using LU (the default) -! with a fixed number of iterations -! ICNTRL(7)=2 : direct solution (additional one LU factorization -! of 3Nx3N matrix per step); good for debugging -! ICNTRL(7)=3 : adaptive solution (if Newton does not converge -! switch to direct) -! -! ICNTRL(8) -> checkpointing the LU factorization at each step: -! ICNTRL(8)=0 : do *not* save LU factorization (the default) -! ICNTRL(8)=1 : save LU factorization -! Note: if ICNTRL(7)=1 the LU factorization is *not* saved -! -! ICNTRL(9) -> Type of adjoint algorithm -! = 0 : default is discrete adjoint ( of method ICNTRL(3) ) -! = 1 : no adjoint -! = 2 : discrete adjoint ( of method ICNTRL(3) ) -! = 3 : fully adaptive continuous adjoint ( with method ICNTRL(6) ) -! = 4 : simplified continuous adjoint ( with method ICNTRL(6) ) -! -! ICNTRL(10) -> switch for error estimation strategy -! ICNTRL(10) = 0: one additional stage at c=0, -! see Hairer (default) -! ICNTRL(10) = 1: two additional stages at c=0 -! and SDIRK at c=1, stiffly accurate -! -! ICNTRL(11) -> switch for step size strategy -! ICNTRL(11)=1: mod. predictive controller (Gustafsson, default) -! ICNTRL(11)=2: classical step size control -! the choice 1 seems to produce safer results; -! for simple problems, the choice 2 produces -! often slightly faster runs -! -!~~~> Real input parameters: -! -! RCNTRL(1) -> Hmin, lower bound for the integration step size -! (highly recommended to keep Hmin = ZERO, the default) -! -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! -! RCNTRL(3) -> Hstart, the starting step size -! -! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! -! RCNTRL(5) -> FacMax, upper bound on step increase factor (default=6) -! -! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! -! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -! -! RCNTRL(8) -> ThetaMin. If Newton convergence rate smaller -! than ThetaMin the Jacobian is not recomputed; -! (default=0.001) -! -! RCNTRL(9) -> NewtonTol, stopping criterion for Newton's method -! (default=0.03) -! -! RCNTRL(10) -> Qmin -! -! RCNTRL(11) -> Qmax. If Qmin < Hnew/Hold < Qmax, then the -! step size is kept constant and the LU factorization -! reused (default Qmin=1, Qmax=1.2) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! -! OUTPUT ARGUMENTS: -! ----------------- -! -! T -> T value for which the solution has been computed -! (after successful return T=Tend). -! -! Y(N) -> Numerical solution at T -! -! IERR -> Reports on successfulness upon return: -! = 1 for success -! < 0 for error (value equals error code) -! -! ISTATUS(1) -> No. of function calls -! ISTATUS(2) -> No. of Jacobian calls -! ISTATUS(3) -> No. of steps -! ISTATUS(4) -> No. of accepted steps -! ISTATUS(5) -> No. of rejected steps (except at very beginning) -! ISTATUS(6) -> No. of LU decompositions -! ISTATUS(7) -> No. of forward/backward substitutions -! ISTATUS(8) -> No. of singular matrix decompositions -! -! RSTATUS(1) -> Texit, the time corresponding to the -! computed Y upon return -! RSTATUS(2) -> Hexit, last accepted step before exit -! RSTATUS(3) -> Hnew, last predicted step (not yet taken) -! For multiple restarts, use Hnew as Hstart -! in the subsequent run -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - INTEGER :: N - INTEGER, INTENT(IN) :: NADJ - KPP_REAL, INTENT(INOUT) :: Lambda(N,NADJ) - KPP_REAL, INTENT(IN) :: AbsTol_adj(N,NADJ), RelTol_adj(N,NADJ) - KPP_REAL :: Y(N),AbsTol(N),RelTol(N),RCNTRL(20),RSTATUS(20) - INTEGER :: ICNTRL(20), ISTATUS(20) - LOGICAL :: StartNewton, Gustafsson, SdirkError, SaveLU - INTEGER :: IERR, ITOL - KPP_REAL, INTENT(IN):: Tstart,Tend - KPP_REAL :: Texit - - !~~~> Control arguments - INTEGER :: Max_no_steps, NewtonMaxit, AdjointType, rkMethod - KPP_REAL :: Hmin,Hmax,Hstart,Qmin,Qmax - KPP_REAL :: Roundoff, ThetaMin, NewtonTol - KPP_REAL :: FacSafe,FacMin,FacMax,FacRej - ! Runge-Kutta method parameters - INTEGER, PARAMETER :: R2A=1, R1A=2, L3C=3, GAU=4, L3A=5 - KPP_REAL :: rkT(3,3), rkTinv(3,3), rkTinvAinv(3,3), rkAinvT(3,3), & - rkA(3,3), rkB(3), rkC(3), rkD(0:3), rkE(0:3), & - rkBgam(0:4), rkBhat(0:4), rkTheta(0:3), & - rkGamma, rkAlpha, rkBeta, rkELO - ! ADJ method parameters - INTEGER, PARAMETER :: KPP_ROOT_none = 1, KPP_ROOT_discrete = 2, & - KPP_ROOT_continuous = 3, KPP_ROOT_simple_continuous = 4 - INTEGER :: AdjointSolve - INTEGER, PARAMETER :: Solve_direct = 1, Solve_fixed = 2, & - Solve_adaptive = 3 - INTEGER, PARAMETER :: bufsize = 10000 - INTEGER :: stack_ptr = 0 ! last written entry - KPP_REAL, DIMENSION(:), POINTER :: chk_H, chk_T - KPP_REAL, DIMENSION(:,:), POINTER :: chk_Y, chk_Z, chk_E1 - INTEGER, DIMENSION(:), POINTER :: chk_NiT - COMPLEX(kind=dp), DIMENSION(:,:), POINTER :: chk_E2 - KPP_REAL, DIMENSION(:,:), POINTER :: chk_dY, chk_d2Y - !~~~> Local variables - INTEGER :: i - KPP_REAL, PARAMETER :: ZERO = 0.0d0, ONE = 1.0d0 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! SETTING THE PARAMETERS -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IERR = 0 - ISTATUS(1:20) = 0 - RSTATUS(1:20) = ZERO - -!~~~> ICNTRL(1) - autonomous system - not used -!~~~> ITOL: 1 for vector and 0 for scalar AbsTol/RelTol - IF (ICNTRL(2) == 0) THEN - ITOL = 1 - ELSE - ITOL = 0 - END IF -!~~~> Error control selection - IF (ICNTRL(10) == 0) THEN - SdirkError = .FALSE. - ELSE - SdirkError = .TRUE. - END IF -!~~~> Method selection - SELECT CASE (ICNTRL(3)) - CASE (0,1) - CALL Radau2A_Coefficients - CASE (2) - CALL Lobatto3C_Coefficients - CASE (3) - CALL Gauss_Coefficients - CASE (4) - CALL Radau1A_Coefficients - CASE DEFAULT - WRITE(6,*) 'ICNTRL(3)=',ICNTRL(3) - CALL RK_ErrorMsg(-13,Tstart,ZERO,IERR) - END SELECT -!~~~> Max_no_steps: the maximal number of time steps - IF (ICNTRL(4) == 0) THEN - Max_no_steps = 200000 - ELSE - Max_no_steps=ICNTRL(4) - IF (Max_no_steps <= 0) THEN - WRITE(6,*) 'ICNTRL(4)=',ICNTRL(4) - CALL RK_ErrorMsg(-1,Tstart,ZERO,IERR) - END IF - END IF -!~~~> NewtonMaxit maximal number of Newton iterations - IF (ICNTRL(5) == 0) THEN - NewtonMaxit = 8 - ELSE - NewtonMaxit=ICNTRL(5) - IF (NewtonMaxit <= 0) THEN - WRITE(6,*) 'ICNTRL(5)=',ICNTRL(5) - CALL RK_ErrorMsg(-2,Tstart,ZERO,IERR) - END IF - END IF -!~~~> StartNewton: Use extrapolation for starting values of Newton iterations - IF (ICNTRL(6) == 0) THEN - StartNewton = .TRUE. - ELSE - StartNewton = .FALSE. - END IF -!~~~> How to solve the linear adjoint system - SELECT CASE (ICNTRL(7)) - CASE (0,1) - AdjointSolve = Solve_fixed - CASE (2) - AdjointSolve = Solve_direct - CASE (3) - AdjointSolve = Solve_adaptive - CASE DEFAULT - PRINT * , 'User-selected adjoint solution: ICNTRL(7)=', ICNTRL(7) - PRINT * , 'Implemented: =(0,1) (fixed), =2 (direct), =3 (adaptive)' - CALL rk_ErrorMsg(-9,Tstart,ZERO,IERR) - RETURN - END SELECT -!~~~> Discrete or continuous adjoint formulation - SELECT CASE (ICNTRL(9)) - CASE (0,2) - AdjointType = KPP_ROOT_discrete - CASE (1) - AdjointType = KPP_ROOT_none - CASE DEFAULT - PRINT * , 'User-selected adjoint type: ICNTRL(9)=', ICNTRL(9) - PRINT * , 'Implemented: =(0,2) (discrete adj) and =1 (no adj)' - CALL rk_ErrorMsg(-9,Tstart,ZERO,IERR) - RETURN - END SELECT -!~~~> Save or not the forward LU factorization - SaveLU = (ICNTRL(8) /= 0) - IF (AdjointSolve == Solve_direct) SaveLU = .FALSE. -!~~~> Gustafsson: step size controller - IF (ICNTRL(11) == 0) THEN - Gustafsson = .TRUE. - ELSE - Gustafsson = .FALSE. - END IF - -!~~~> Roundoff: smallest number s.t. 1.0 + Roundoff > 1.0 - Roundoff = WLAMCH('E'); - -!~~~> Hmin = minimal step size - IF (RCNTRL(1) == ZERO) THEN - Hmin = ZERO - ELSE - Hmin = MIN(ABS(RCNTRL(1)),ABS(Tend-Tstart)) - END IF -!~~~> Hmax = maximal step size - IF (RCNTRL(2) == ZERO) THEN - Hmax = ABS(Tend-Tstart) - ELSE - Hmax = MIN(ABS(RCNTRL(2)),ABS(Tend-Tstart)) - END IF -!~~~> Hstart = starting step size - IF (RCNTRL(3) == ZERO) THEN - Hstart = ZERO - ELSE - Hstart = MIN(ABS(RCNTRL(3)),ABS(Tend-Tstart)) - END IF -!~~~> FacMin: lower bound on step decrease factor - IF(RCNTRL(4) == ZERO)THEN - FacMin = 0.2d0 - ELSE - FacMin = RCNTRL(4) - END IF -!~~~> FacMax: upper bound on step increase factor - IF(RCNTRL(5) == ZERO)THEN - FacMax = 8.D0 - ELSE - FacMax = RCNTRL(5) - END IF -!~~~> FacRej: step decrease factor after 2 consecutive rejections - IF(RCNTRL(6) == ZERO)THEN - FacRej = 0.1d0 - ELSE - FacRej = RCNTRL(6) - END IF -!~~~> FacSafe: by which the new step is slightly smaller -! than the predicted value - IF (RCNTRL(7) == ZERO) THEN - FacSafe=0.9d0 - ELSE - FacSafe=RCNTRL(7) - END IF - IF ( (FacMax < ONE) .OR. (FacMin > ONE) .OR. & - (FacSafe <= 1.0d-3) .OR. (FacSafe >= ONE) ) THEN - WRITE(6,*)'RCNTRL(4:7)=',RCNTRL(4:7) - CALL RK_ErrorMsg(-4,Tstart,ZERO,IERR) - END IF - -!~~~> ThetaMin: decides whether the Jacobian should be recomputed - IF (RCNTRL(8) == ZERO) THEN - ThetaMin = 1.0d-3 - ELSE - ThetaMin=RCNTRL(8) - IF (ThetaMin <= 0.0d0 .OR. ThetaMin >= 1.0d0) THEN - WRITE(6,*) 'RCNTRL(8)=', RCNTRL(8) - CALL RK_ErrorMsg(-5,Tstart,ZERO,IERR) - END IF - END IF -!~~~> NewtonTol: stopping crierion for Newton's method - IF (RCNTRL(9) == ZERO) THEN - NewtonTol = 3.0d-2 - ELSE - NewtonTol = RCNTRL(9) - IF (NewtonTol <= Roundoff) THEN - WRITE(6,*) 'RCNTRL(9)=',RCNTRL(9) - CALL RK_ErrorMsg(-6,Tstart,ZERO,IERR) - END IF - END IF -!~~~> Qmin AND Qmax: IF Qmin < Hnew/Hold < Qmax then step size = const. - IF (RCNTRL(10) == ZERO) THEN - Qmin=1.D0 - ELSE - Qmin=RCNTRL(10) - END IF - IF (RCNTRL(11) == ZERO) THEN - Qmax=1.2D0 - ELSE - Qmax=RCNTRL(11) - END IF - IF (Qmin > ONE .OR. Qmax < ONE) THEN - WRITE(6,*) 'RCNTRL(10:11)=',Qmin,Qmax - CALL RK_ErrorMsg(-7,Tstart,ZERO,IERR) - END IF -!~~~> Check if tolerances are reasonable - IF (ITOL == 0) THEN - IF (AbsTol(1) <= ZERO.OR.RelTol(1) <= 10.d0*Roundoff) THEN - WRITE (6,*) 'AbsTol/RelTol=',AbsTol,RelTol - CALL RK_ErrorMsg(-8,Tstart,ZERO,IERR) - END IF - ELSE - DO i=1,N - IF (AbsTol(i) <= ZERO.OR.RelTol(i) <= 10.d0*Roundoff) THEN - WRITE (6,*) 'AbsTol/RelTol(',i,')=',AbsTol(i),RelTol(i) - CALL RK_ErrorMsg(-8,Tstart,ZERO,IERR) - END IF - END DO - END IF - -!~~~> Parameters are wrong - IF (IERR < 0) RETURN - -!~~~> Allocate checkpoint space or open checkpoint files - IF (AdjointType == KPP_ROOT_discrete) THEN - CALL rk_AllocateDBuffers() - ELSEIF ( (AdjointType == KPP_ROOT_continuous).OR. & - (AdjointType == KPP_ROOT_simple_continuous) ) THEN - CALL rk_AllocateCBuffers - END IF - -!~~~> Call the core method - CALL RK_FwdIntegrator( N,Tstart,Tend,Y,AdjointType,IERR ) -! PRINT*,'FORWARD STATISTICS' -! PRINT*,'Step=',Istatus(istp),' Acc=',Istatus(iacc), & -! ' Rej=',Istatus(irej), ' Singular=',Istatus(isng) - Nstp = 0 - Nacc = 0 - Nrej = 0 - Nsng = 0 - -!~~~> If Forward integration failed return - IF (IERR<0) RETURN - - SELECT CASE (AdjointType) - CASE (KPP_ROOT_discrete) - CALL rk_DadjInt ( & - NADJ, Lambda, & - Tstart, Tend, Texit, & - IERR ) - CASE (KPP_ROOT_continuous) - CALL rk_CadjInt ( & - NADJ, Lambda, & - Tend, Tstart, Texit, & - IERR ) - CASE (KPP_ROOT_simple_continuous) - CALL rk_SimpleCadjInt ( & - NADJ, Lambda, & - Tstart, Tend, Texit, & - IERR ) - END SELECT ! AdjointType -! PRINT*,'ADJOINT STATISTICS' -! PRINT*,'Step=',Nstp,' Acc=',Nacc, & -! ' Rej=',Nrej, ' Singular=',Nsng - -!~~~> Free checkpoint space or close checkpoint files - IF (AdjointType == KPP_ROOT_discrete) THEN - CALL rk_FreeDBuffers - ELSEIF ( (AdjointType == KPP_ROOT_continuous) .OR. & - (AdjointType == KPP_ROOT_simple_continuous) ) THEN - CALL rk_FreeCBuffers - END IF - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -CONTAINS ! Internal procedures to RungeKuttaADJ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE rk_AllocateDBuffers() -!~~~> Allocate buffer space for discrete adjoint -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - INTEGER :: i - - ALLOCATE( chk_H(bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer H'; STOP - END IF - ALLOCATE( chk_T(bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer T'; STOP - END IF - ALLOCATE( chk_Y(NVAR,bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer Y'; STOP - END IF - ALLOCATE( chk_Z(NVAR*3,bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer Z'; STOP - END IF - ALLOCATE( chk_NiT(bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer NiT'; STOP - END IF - IF (SaveLU) THEN -#ifdef FULL_ALGEBRA - ALLOCATE( chk_E1(NVAR*NVAR,bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer E1'; STOP - END IF - ALLOCATE( chk_E2(NVAR*NVAR,bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer E2'; STOP - END IF -#else - ALLOCATE( chk_E1(LU_NONZERO,bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer E1'; STOP - END IF - ALLOCATE( chk_E2(LU_NONZERO,bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer E2'; STOP - END IF -#endif - END IF - - - END SUBROUTINE rk_AllocateDBuffers - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE rk_FreeDBuffers() -!~~~> Dallocate buffer space for discrete adjoint -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - INTEGER :: i - - DEALLOCATE( chk_H, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer H'; STOP - END IF - DEALLOCATE( chk_T, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer T'; STOP - END IF - DEALLOCATE( chk_Y, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer Y'; STOP - END IF - DEALLOCATE( chk_Z, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer Z'; STOP - END IF - DEALLOCATE( chk_NiT, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer NiT'; STOP - END IF - IF (SaveLU) THEN - DEALLOCATE( chk_E1, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer E1'; STOP - END IF - DEALLOCATE( chk_E2, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer E2'; STOP - END IF - END IF - - END SUBROUTINE rk_FreeDBuffers - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE rk_AllocateCBuffers() -!~~~> Allocate buffer space for continuous adjoint -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - INTEGER :: i - - ALLOCATE( chk_H(bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer H'; STOP - END IF - ALLOCATE( chk_T(bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer T'; STOP - END IF - ALLOCATE( chk_Y(NVAR,bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer Y'; STOP - END IF - ALLOCATE( chk_dY(NVAR,bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer dY'; STOP - END IF - ALLOCATE( chk_d2Y(NVAR,bufsize), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer d2Y'; STOP - END IF - - END SUBROUTINE rk_AllocateCBuffers - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE rk_FreeCBuffers() -!~~~> Dallocate buffer space for continuous adjoint -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - INTEGER :: i - print*,'cbuffers deallocate???' - DEALLOCATE( chk_H, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer H'; STOP - END IF - DEALLOCATE( chk_T, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer T'; STOP - END IF - DEALLOCATE( chk_Y, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer Y'; STOP - END IF - DEALLOCATE( chk_dY, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer dY'; STOP - END IF - DEALLOCATE( chk_d2Y, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer d2Y'; STOP - END IF - - END SUBROUTINE rk_FreeCBuffers - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE rk_DPush( T, H, Y, Zstage, NewIt, E1, E2 )!, Jcb ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Saves the next trajectory snapshot for discrete adjoints -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - KPP_REAL :: T, H, Y(NVAR), Zstage(NVAR*3) - INTEGER :: NewIt -#ifdef FULL_ALGEBRA - KPP_REAL :: E1(NVAR,NVAR) - COMPLEX(kind=dp) :: E2(NVAR,NVAR) - INTEGER :: i, j -#else - KPP_REAL :: E1(LU_NONZERO) - COMPLEX(kind=dp) :: E2(LU_NONZERO) -#endif - - stack_ptr = stack_ptr + 1 - IF ( stack_ptr > bufsize ) THEN - PRINT*,'Push failed: buffer overflow' - STOP - END IF - chk_H( stack_ptr ) = H - chk_T( stack_ptr ) = T - ! CALL WCOPY(NVAR,Y,1,chk_Y(1,stack_ptr),1) - ! CALL WCOPY(NVAR*3,Zstage,1,chk_Z(1,stack_ptr),1) - chk_Y(1:N,stack_ptr) = Y(1:N) - chk_Z(1:3*N,stack_ptr) = Zstage(1:3*N) - chk_NiT( stack_ptr ) = NewIt - IF (SaveLU) THEN -#ifdef FULL_ALGEBRA - ! CALL WCOPY(NVAR*NVAR, E1,1,chk_E1(1,stack_ptr),1) - ! CALL WCOPYCmplx(NVAR*NVAR, E2,1,chk_E2(1,stack_ptr),1) - DO j=1,NVAR - DO i=1,NVAR - chk_E1(NVAR*(j-1)+i,stack_ptr) = E1(i,j) - chk_E2(NVAR*(j-1)+i,stack_ptr) = E2(i,j) - END DO - END DO -#else - ! CALL WCOPY(LU_NONZERO, E1,1,chk_E1(1,stack_ptr),1) - ! CALL WCOPYCmplx(LU_NONZERO, E2,1,chk_E2(1,stack_ptr),1) - chk_E1(1:LU_NONZERO,stack_ptr) = E1(1:LU_NONZERO) - chk_E2(1:LU_NONZERO,stack_ptr) = E2(1:LU_NONZERO) -#endif - END IF - !CALL WCOPY(LU_NONZERO,Jcb,1,chk_J(1,stack_ptr),1) - - END SUBROUTINE rk_DPush - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE rk_DPop( T, H, Y, Zstage, NewIt, E1, E2 ) !, Jcb ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Retrieves the next trajectory snapshot for discrete adjoints -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - KPP_REAL :: T, H, Y(NVAR), Zstage(NVAR*3) ! , Jcb(LU_NONZERO) - INTEGER :: NewIt -#ifdef FULL_ALGEBRA - KPP_REAL :: E1(NVAR,NVAR) - COMPLEX(kind=dp) :: E2(NVAR,NVAR) - INTEGER :: i, j -#else - KPP_REAL :: E1(LU_NONZERO) - COMPLEX(kind=dp) :: E2(LU_NONZERO) -#endif - - IF ( stack_ptr <= 0 ) THEN - PRINT*,'Pop failed: empty buffer' - STOP - END IF - H = chk_H( stack_ptr ) - T = chk_T( stack_ptr ) - ! CALL WCOPY(NVAR,chk_Y(1,stack_ptr),1,Y,1) - Y(1:NVAR) = chk_Y(1:NVAR,stack_ptr) - ! CALL WCOPY(NVAR*3,chk_Z(1,stack_ptr),1,Zstage,1) - Zstage(1:3*NVAR) = chk_Z(1:3*NVAR,stack_ptr) - NewIt = chk_NiT( stack_ptr ) - IF (SaveLU) THEN -#ifdef FULL_ALGEBRA - ! CALL WCOPY(NVAR*NVAR,chk_E1(1,stack_ptr),1, E1,1) - ! CALL WCOPYCmplx(NVAR*NVAR,chk_E2(1,stack_ptr),1, E2,1) - DO j=1,NVAR - DO i=1,NVAR - E1(i,j) = chk_E1(NVAR*(j-1)+i,stack_ptr) - E2(i,j) = chk_E2(NVAR*(j-1)+i,stack_ptr) - END DO - END DO -#else - ! CALL WCOPY(LU_NONZERO,chk_E1(1,stack_ptr),1, E1,1) - ! CALL WCOPYCmplx(LU_NONZERO,chk_E2(1,stack_ptr),1, E2,1) - E1(1:LU_NONZERO) = chk_E1(1:LU_NONZERO,stack_ptr) - E2(1:LU_NONZERO) = chk_E2(1:LU_NONZERO,stack_ptr) -#endif - END IF - !CALL WCOPY(LU_NONZERO,chk_J(1,stack_ptr),1,Jcb,1) - - stack_ptr = stack_ptr - 1 - - END SUBROUTINE rk_DPop - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE rk_CPush(T, H, Y, dY, d2Y ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Saves the next trajectory snapshot for discrete adjoints -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - KPP_REAL :: T, H, Y(NVAR), dY(NVAR), d2Y(NVAR) - - stack_ptr = stack_ptr + 1 - IF ( stack_ptr > bufsize ) THEN - PRINT*,'Push failed: buffer overflow' - STOP - END IF - chk_H( stack_ptr ) = H - chk_T( stack_ptr ) = T - ! CALL WCOPY(NVAR,Y,1,chk_Y(1,stack_ptr),1) - ! CALL WCOPY(NVAR,dY,1,chk_dY(1,stack_ptr),1) - ! CALL WCOPY(NVAR,d2Y,1,chk_d2Y(1,stack_ptr),1) - chk_Y(1:NVAR,stack_ptr) = Y(1:NVAR) - chk_dY(1:NVAR,stack_ptr) = dY(1:NVAR) - chk_d2Y(1:NVAR,stack_ptr)= d2Y(1:NVAR) - - END SUBROUTINE rk_CPush - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE rk_CPop( T, H, Y, dY, d2Y ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Retrieves the next trajectory snapshot for discrete adjoints -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - KPP_REAL :: T, H, Y(NVAR), dY(NVAR), d2Y(NVAR) - - IF ( stack_ptr <= 0 ) THEN - PRINT*,'Pop failed: empty buffer' - STOP - END IF - H = chk_H( stack_ptr ) - T = chk_T( stack_ptr ) - ! CALL WCOPY(NVAR,chk_Y(1,stack_ptr),1,Y,1) - ! CALL WCOPY(NVAR,chk_dY(1,stack_ptr),1,dY,1) - ! CALL WCOPY(NVAR,chk_d2Y(1,stack_ptr),1,d2Y,1) - Y(1:NVAR) = chk_Y(1:NVAR,stack_ptr) - dY(1:NVAR) = chk_dY(1:NVAR,stack_ptr) - d2Y(1:NVAR) = chk_d2Y(1:NVAR,stack_ptr) - - stack_ptr = stack_ptr - 1 - - END SUBROUTINE rk_CPop - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_FwdIntegrator( N,Tstart,Tend,Y,AdjointType,IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE -!~~~> Arguments - INTEGER, INTENT(IN) :: N - KPP_REAL, INTENT(IN) :: Tend, Tstart - KPP_REAL, INTENT(INOUT) :: Y(N) - INTEGER, INTENT(OUT) :: IERR - INTEGER, INTENT(IN) :: AdjointType - -!~~~> Local variables -#ifdef FULL_ALGEBRA - KPP_REAL :: FJAC(N,N), E1(N,N) - COMPLEX(kind=dp) :: E2(N,N) -#else - KPP_REAL :: FJAC(LU_NONZERO), E1(LU_NONZERO) - COMPLEX(kind=dp) :: E2(LU_NONZERO) -#endif - KPP_REAL, DIMENSION(N) :: Z1,Z2,Z3,Z4,SCAL,DZ1,DZ2,DZ3,DZ4,G,TMP,FCN0 - KPP_REAL :: CONT(N,3), Tdirection, H, T, Hacc, Hnew, Hold, Fac, & - FacGus, Theta, Err, ErrOld, NewtonRate, NewtonIncrement, & - Hratio, Qnewton, NewtonPredictedErr,NewtonIncrementOld, ThetaSD - INTEGER :: IP1(N),IP2(N),NewtonIter, ISING, Nconsecutive, NewIt - LOGICAL :: Reject, FirstStep, SkipJac, NewtonDone, SkipLU - - KPP_REAL, DIMENSION(:), POINTER :: Zstage - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Initial setting -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IF (AdjointType == KPP_ROOT_discrete) THEN ! Save stage solution - ALLOCATE(Zstage(N*3), STAT=i) - IF (i/=0) THEN - PRINT*,'Allocation of Zstage failed' - STOP - END IF - END IF - T=Tstart - - Tdirection = SIGN(ONE,Tend-Tstart) - H = MIN( MAX(ABS(Hmin),ABS(Hstart)) , Hmax ) - IF (ABS(H) <= 10.d0*Roundoff) H = 1.0d-6 - H = SIGN(H,Tdirection) - Hold = H - Reject = .FALSE. - FirstStep = .TRUE. - SkipJac = .FALSE. - SkipLU = .FALSE. - IF ((T+H*1.0001D0-Tend)*Tdirection >= ZERO) THEN - H = Tend-T - END IF - Nconsecutive = 0 - CALL RK_ErrorScale(N,ITOL,AbsTol,RelTol,Y,SCAL) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Time loop begins -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -Tloop: DO WHILE ( (Tend-T)*Tdirection - Roundoff > ZERO ) - - IF ( .NOT.SkipLU ) THEN ! This time around skip the Jac update and LU - !~~~> Compute the Jacobian matrix - IF ( .NOT.SkipJac ) THEN - CALL JAC_CHEM(T,Y,FJAC) - ISTATUS(ijac) = ISTATUS(ijac) + 1 - END IF - !~~~> Compute the matrices E1 and E2 and their decompositions - CALL RK_Decomp(N,H,FJAC,E1,IP1,E2,IP2,ISING) - IF (ISING /= 0) THEN - ISTATUS(isng) = ISTATUS(isng) + 1; Nconsecutive = Nconsecutive + 1 - IF (Nconsecutive >= 5) THEN - CALL RK_ErrorMsg(-12,T,H,IERR); RETURN - END IF - H=H*0.5d0; Reject=.TRUE.; SkipJac = .TRUE.; SkipLU = .FALSE. - CYCLE Tloop - ELSE - Nconsecutive = 0 - END IF - END IF ! SkipLU - - ISTATUS(istp) = ISTATUS(istp) + 1 - IF (ISTATUS(istp) > Max_no_steps) THEN - PRINT*,'Max number of time steps is ',Max_no_steps - CALL RK_ErrorMsg(-9,T,H,IERR); RETURN - END IF - IF (0.1D0*ABS(H) <= ABS(T)*Roundoff) THEN - CALL RK_ErrorMsg(-10,T,H,IERR); RETURN - END IF - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Loop for the simplified Newton iterations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - !~~~> Starting values for Newton iteration - IF ( FirstStep .OR. (.NOT.StartNewton) ) THEN - CALL Set2zero(N,Z1) - CALL Set2zero(N,Z2) - CALL Set2zero(N,Z3) - ELSE - ! Evaluate quadratic polynomial - CALL RK_Interpolate('eval',N,H,Hold,Z1,Z2,Z3,CONT) - END IF - - !~~~> Initializations for Newton iteration - NewtonDone = .FALSE. - Fac = 0.5d0 ! Step reduction if too many iterations - -NewtonLoop:DO NewtonIter = 1, NewtonMaxit - - !~~~> Prepare the right-hand side - CALL RK_PrepareRHS(N,T,H,Y,Z1,Z2,Z3,DZ1,DZ2,DZ3) - - !~~~> Solve the linear systems - CALL RK_Solve( N,H,E1,IP1,E2,IP2,DZ1,DZ2,DZ3,ISING ) - - - NewtonIncrement = SQRT( ( RK_ErrorNorm(N,SCAL,DZ1)**2 + & - RK_ErrorNorm(N,SCAL,DZ2)**2 + & - RK_ErrorNorm(N,SCAL,DZ3)**2 )/3.0d0 ) - - IF ( NewtonIter == 1 ) THEN - Theta = ABS(ThetaMin) - NewtonRate = 2.0d0 - ELSE - Theta = NewtonIncrement/NewtonIncrementOld - IF (Theta < 0.99d0) THEN - NewtonRate = Theta/(ONE-Theta) - ELSE ! Non-convergence of Newton: Theta too large - EXIT NewtonLoop - END IF - IF ( NewtonIter < NewtonMaxit ) THEN - ! Predict error at the end of Newton process - NewtonPredictedErr = NewtonIncrement & - *Theta**(NewtonMaxit-NewtonIter)/(ONE-Theta) - IF (NewtonPredictedErr >= NewtonTol) THEN - ! Non-convergence of Newton: predicted error too large - Qnewton = MIN(10.0d0,NewtonPredictedErr/NewtonTol) - Fac=0.8d0*Qnewton**(-ONE/(1+NewtonMaxit-NewtonIter)) - EXIT NewtonLoop - END IF - END IF - END IF - - NewtonIncrementOld = MAX(NewtonIncrement,Roundoff) - ! Update solution - CALL WAXPY(N,-ONE,DZ1,1,Z1,1) ! Z1 <- Z1 - DZ1 - CALL WAXPY(N,-ONE,DZ2,1,Z2,1) ! Z2 <- Z2 - DZ2 - CALL WAXPY(N,-ONE,DZ3,1,Z3,1) ! Z3 <- Z3 - DZ3 - - ! Check error in Newton iterations - NewtonDone = (NewtonRate*NewtonIncrement <= NewtonTol) - IF (NewtonDone) THEN - NewIt = NewtonIter - EXIT NewtonLoop - END IF - IF (NewtonIter == NewtonMaxit) THEN - PRINT*, 'Slow or no convergence in Newton Iteration: Max no. of', & - 'Newton iterations reached' - END IF - - END DO NewtonLoop - - - IF (.NOT.NewtonDone) THEN - !CALL RK_ErrorMsg(-12,T,H,IERR); - H = Fac*H; Reject=.TRUE.; SkipJac = .TRUE.; SkipLU = .FALSE. - ISTATUS(irej) = ISTATUS(irej) + 1 - CYCLE Tloop - END IF - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> SDIRK Stage -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IF (SdirkError) THEN - -!~~~> Starting values for Newton iterations - Z4(1:N) = Z3(1:N) - -!~~~> Prepare the loop-independent part of the right-hand side - CALL FUN_CHEM(T,Y,DZ4) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - -! G = H*rkBgam(0)*DZ4 + rkTheta(1)*Z1 + rkTheta(2)*Z2 + rkTheta(3)*Z3 - CALL Set2Zero(N, G) - CALL WAXPY(N,rkBgam(0)*H, DZ4,1,G,1) - CALL WAXPY(N,rkTheta(1),Z1,1,G,1) - CALL WAXPY(N,rkTheta(2),Z2,1,G,1) - CALL WAXPY(N,rkTheta(3),Z3,1,G,1) - - !~~~> Initializations for Newton iteration - NewtonDone = .FALSE. - Fac = 0.5d0 ! Step reduction factor if too many iterations - -SDNewtonLoop:DO NewtonIter = 1, NewtonMaxit - -!~~~> Prepare the loop-dependent part of the right-hand side - CALL WADD(N,Y,Z4,TMP) ! TMP <- Y + Z4 - CALL FUN_CHEM(T+H,TMP,DZ4) ! DZ4 <- Fun(Y+Z4) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 -! DZ4(1:N) = (G(1:N)-Z4(1:N))*(rkGamma/H) + DZ4(1:N) - CALL WAXPY (N, -ONE*rkGamma/H, Z4, 1, DZ4, 1) - CALL WAXPY (N, rkGamma/H, G,1, DZ4,1) - -!~~~> Solve the linear system -#ifdef FULL_ALGEBRA - CALL DGETRS( 'N', N, 1, E1, N, IP1, DZ4, N, ISING ) -#else - CALL KppSolve(E1, DZ4) -#endif - -!~~~> Check convergence of Newton iterations - NewtonIncrement = RK_ErrorNorm(N,SCAL,DZ4) - IF ( NewtonIter == 1 ) THEN - ThetaSD = ABS(ThetaMin) - NewtonRate = 2.0d0 - ELSE - ThetaSD = NewtonIncrement/NewtonIncrementOld - IF (ThetaSD < 0.99d0) THEN - NewtonRate = ThetaSD/(ONE-ThetaSD) - ! Predict error at the end of Newton process - NewtonPredictedErr = NewtonIncrement & - *ThetaSD**(NewtonMaxit-NewtonIter)/(ONE-ThetaSD) - IF (NewtonPredictedErr >= NewtonTol) THEN - ! Non-convergence of Newton: predicted error too large - !print*,'Error too large: ', NewtonPredictedErr - Qnewton = MIN(10.0d0,NewtonPredictedErr/NewtonTol) - Fac = 0.8d0*Qnewton**(-ONE/(1+NewtonMaxit-NewtonIter)) - EXIT SDNewtonLoop - END IF - ELSE ! Non-convergence of Newton: ThetaSD too large - !print*,'Theta too large: ',ThetaSD - EXIT SDNewtonLoop - END IF - END IF - NewtonIncrementOld = NewtonIncrement - ! Update solution: Z4 <-- Z4 + DZ4 - CALL WAXPY(N,ONE,DZ4,1,Z4,1) - - ! Check error in Newton iterations - NewtonDone = (NewtonRate*NewtonIncrement <= NewtonTol) - IF (NewtonDone) EXIT SDNewtonLoop - - END DO SDNewtonLoop - - IF (.NOT.NewtonDone) THEN - H = Fac*H; Reject=.TRUE.; SkipJac = .TRUE.; SkipLU = .FALSE. - CYCLE Tloop - END IF - END IF -!~~~> End of implified SDIRK Newton iterations - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Error estimation -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IF (SdirkError) THEN -! DZ4(1:N) = rkD(1)*Z1 + rkD(2)*Z2 + rkD(3)*Z3 - Z4 - CALL Set2Zero(N, DZ4) - IF (rkD(1) /= ZERO) CALL WAXPY(N, rkD(1), Z1, 1, DZ4, 1) - IF (rkD(2) /= ZERO) CALL WAXPY(N, rkD(2), Z2, 1, DZ4, 1) - IF (rkD(3) /= ZERO) CALL WAXPY(N, rkD(3), Z3, 1, DZ4, 1) - CALL WAXPY(N, -ONE, Z4, 1, DZ4, 1) - Err = RK_ErrorNorm(N,SCAL,DZ4) - ELSE - CALL RK_ErrorEstimate(N,H,Y,T, & - E1,IP1,Z1,Z2,Z3,SCAL,Err,FirstStep,Reject) - END IF -!~~~> Computation of new step size Hnew - Fac = Err**(-ONE/rkELO)* & - MIN(FacSafe,(ONE+2*NewtonMaxit)/(NewtonIter+2*NewtonMaxit)) - Fac = MIN(FacMax,MAX(FacMin,Fac)) - Hnew = Fac*H - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Accept/reject step -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -accept:IF (Err < ONE) THEN !~~~> STEP IS ACCEPTED - IF (AdjointType == KPP_ROOT_discrete) THEN ! Save stage solution - ! CALL WCOPY(N,Z1,1,Zstage(1),1) - ! CALL WCOPY(N,Z2,1,Zstage(N+1),1) - ! CALL WCOPY(N,Z3,1,Zstage(2*N+1),1) - Zstage(1:N) = Z1(1:N) - Zstage(N+1:2*N) = Z2(1:N) - Zstage(2*N+1:3*N) = Z3(1:N) - ! Push old Y - Y at the beginning of the stage - CALL rk_DPush(T, H, Y, Zstage, NewIt, E1, E2) - END IF - - FirstStep=.FALSE. - ISTATUS(iacc) = ISTATUS(iacc) + 1 - IF (Gustafsson) THEN - !~~~> Predictive controller of Gustafsson - IF (ISTATUS(iacc) > 1) THEN - FacGus=FacSafe*(H/Hacc)*(Err**2/ErrOld)**(-0.25d0) - FacGus=MIN(FacMax,MAX(FacMin,FacGus)) - Fac=MIN(Fac,FacGus) - Hnew = Fac*H - END IF - Hacc=H - ErrOld=MAX(1.0d-2,Err) - END IF - Hold = H - T = T+H - ! Update solution: Y <- Y + sum (d_i Z_i) - IF (rkD(1) /= ZERO) CALL WAXPY(N,rkD(1),Z1,1,Y,1) - IF (rkD(2) /= ZERO) CALL WAXPY(N,rkD(2),Z2,1,Y,1) - IF (rkD(3) /= ZERO) CALL WAXPY(N,rkD(3),Z3,1,Y,1) - ! Construct the solution quadratic interpolant Q(c_i) = Z_i, i=1:3 - IF (StartNewton) CALL RK_Interpolate('make',N,H,Hold,Z1,Z2,Z3,CONT) - CALL RK_ErrorScale(N,ITOL,AbsTol,RelTol,Y,SCAL) - RSTATUS(itexit) = T - RSTATUS(ihnew) = Hnew - RSTATUS(ihacc) = H - Hnew = Tdirection*MIN( MAX(ABS(Hnew),Hmin) , Hmax ) - IF (Reject) Hnew = Tdirection*MIN(ABS(Hnew),ABS(H)) - Reject = .FALSE. - IF ((T+Hnew/Qmin-Tend)*Tdirection >= ZERO) THEN - H = Tend-T - ELSE - Hratio=Hnew/H - ! Reuse the LU decomposition - SkipLU = (Theta<=ThetaMin) .AND. (Hratio>=Qmin) .AND. (Hratio<=Qmax) - SkipLU = .false. - IF (.NOT.SkipLU) H=Hnew - END IF - ! If convergence is fast enough, do not update Jacobian - ! SkipJac = (Theta <= ThetaMin) - SkipJac = .FALSE. - - ELSE accept !~~~> Step is rejected - IF (FirstStep .OR. Reject) THEN - H = FacRej*H - ELSE - H = Hnew - END IF - Reject = .TRUE. - SkipJac = .TRUE. - SkipLU = .FALSE. - IF (ISTATUS(iacc) >= 1) ISTATUS(irej) = ISTATUS(irej) + 1 - END IF accept - - END DO Tloop - -!~~~> Save last state: only needed for continuous adjoint - IF ( (AdjointType == KPP_ROOT_continuous) .OR. & - (AdjointType == KPP_ROOT_simple_continuous) ) THEN - CALL Fun_Chem(T,Y,Fcn0) - CALL rk_CPush( T, H, Y, Fcn0, DZ3) -!~~~> Deallocate stage buffer: only needed for discrete adjoint - ELSEIF (AdjointType == KPP_ROOT_discrete) THEN - DEALLOCATE(Zstage, STAT=i) - IF (i/=0) THEN - PRINT*,'Deallocation of Zstage failed' - STOP - END IF - END IF - - ! Successful exit - IERR = 1 - - END SUBROUTINE RK_FwdIntegrator - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE rk_DadjInt( NADJ,Lambda,Tstart,Tend,T,IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE -!~~~> Arguments -!~~~> Input: the initial condition at Tstart; Output: the solution at T - INTEGER, INTENT(IN) :: NADJ -!~~~> First order adjoint - KPP_REAL, INTENT(INOUT) :: Lambda(N,NADJ) - KPP_REAL, INTENT(IN) :: Tstart, Tend - KPP_REAL, INTENT(INOUT) :: T - INTEGER, INTENT(OUT) :: IERR - -!~~~> Local variables -#ifdef FULL_ALGEBRA - KPP_REAL :: Jac0(N,N), Jac1(N,N),Jac2(N,N),Jac3(N,N), E1(N,N) - COMPLEX(kind=dp) :: E2(N,N) - KPP_REAL :: Jbig(3*N,3*N), X(3*N) - INTEGER :: IPbig(3*N) -#else - KPP_REAL, DIMENSION(LU_NONZERO) :: Jac0, Jac1, Jac2, Jac3, E1 - COMPLEX(kind=dp), DIMENSION(LU_NONZERO) :: E2 - ! Next two lines for sparse big algebra: - ! KPP_REAL :: Jbig(3,3,LU_NONZERO), X(3,N) - ! INTEGER :: IPbig(3,N) - KPP_REAL :: Jbig(3*N,3*N), X(3*N) - INTEGER :: IPbig(3*N) -#endif - KPP_REAL, DIMENSION(N,NADJ) :: U1,U2,U3 - KPP_REAL, DIMENSION(N) :: SCAL,DU1,DU2,DU3 - KPP_REAL :: Y(N), Zstage(3*N) - KPP_REAL :: H, NewtonRate, NewtonIncrement, NewtonIncrementOld - INTEGER :: IP1(N),IP2(N),NewtonIter, ISING, iadj, NewIt - LOGICAL :: Reject, NewtonDone, NewtonConverge - KPP_REAL :: T1, Theta - KPP_REAL, DIMENSION(N) :: TMP, G1, G2, G3 - INTEGER :: info, i, j - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Initial setting -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - T1 = Tend -! Tdirection = SIGN(ONE,Tend-Tstart) - NewtonConverge = .TRUE. - Reject = .FALSE. - -!~~~> Time loop begins below -TimeLoop:DO WHILE ( stack_ptr > 0 ) - - IF (.not.Reject) THEN - - !~~~> Recover checkpoints for stage values and vectors - CALL rk_DPop(T, H, Y, Zstage, NewIt, E1, E2) - - !~~~> Compute LU decomposition - IF (.NOT.SaveLU) THEN - !~~~> Compute the Jacobian matrix - CALL JAC_CHEM(T,Y,Jac0) - ISTATUS(ijac) = ISTATUS(ijac) + 1 - !~~~> Compute the matrices E1 and E2 and their decompositions - CALL RK_Decomp(N,H,Jac0,E1,IP1,E2,IP2,ISING) - END IF - - !~~~> Jacobian values at stage vectors - CALL WADD(N,Y,Zstage(1),TMP) ! TMP <- Y + Z1 - CALL JAC_CHEM(T+rkC(1)*H,TMP,Jac1) ! Jac1 <- Jac(Y+Z1) - CALL WADD(N,Y,Zstage(1+N),TMP) ! TMP <- Y + Z2 - CALL JAC_CHEM(T+rkC(2)*H,TMP,Jac2) ! Jac2 <- Jac(Y+Z2) - CALL WADD(N,Y,Zstage(1+2*N),TMP) ! TMP <- Y + Z3 - CALL JAC_CHEM(T+rkC(3)*H,TMP,Jac3) ! Jac3 <- Jac(Y+Z3) - - END IF ! .not.Reject - -111 CONTINUE - - IF ( (AdjointSolve == Solve_adaptive .and. .not.NewtonConverge) & - .or. (AdjointSolve == Solve_direct) ) THEN -#ifdef FULL_ALGEBRA - DO j=1,N - DO i=1,N - Jbig(i,j) = -H*rkA(1,1)*Jac1(i,j) - Jbig(N+i,j) = -H*rkA(2,1)*Jac1(i,j) - Jbig(2*N+i,j) = -H*rkA(3,1)*Jac1(i,j) - Jbig(i,N+j) = -H*rkA(1,2)*Jac2(i,j) - Jbig(N+i,N+j) = -H*rkA(2,2)*Jac2(i,j) - Jbig(2*N+i,N+j) = -H*rkA(3,2)*Jac2(i,j) - Jbig(i,2*N+j) = -H*rkA(1,3)*Jac3(i,j) - Jbig(N+i,2*N+j) = -H*rkA(2,3)*Jac3(i,j) - Jbig(2*N+i,2*N+j) = -H*rkA(3,3)*Jac3(i,j) - END DO - END DO - DO i=1,3*N - Jbig(i,i) = Jbig(i,i) + ONE - END DO - CALL DGETRF(3*N,3*N,Jbig,3*N,IPbig,info) - ! CALL WGEFA(3*N,Jbig,IPbig,info) - IF (info /= 0) THEN - PRINT*,'Big guy is singular'; STOP - END IF -#else -! Commented lines for sparse big algebra: -! !~~~> Construct the big Jacobian -! DO j=1,LU_NONZERO -! DO i=1,3 -! Jbig(i,1,j) = -H*rkA(i,1)*Jac1(j) -! Jbig(i,2,j) = -H*rkA(i,2)*Jac2(j) -! Jbig(i,3,j) = -H*rkA(i,3)*Jac3(j) -! END DO -! END DO -! DO j=1,NVAR -! DO i=1,3 -! Jbig(i,i,LU_DIAG(j)) = ONE + Jbig(i,i,LU_DIAG(j)) -! END DO -! END DO -! !~~~> Solve the big system -! CALL KppDecompBig( Jbig, IPbig, info ) -! Use full big algebra: - Jbig(1:3*N,1:3*N) = 0.0d0 - DO i=1,LU_NONZERO - Jbig(LU_irow(i),LU_icol(i)) = -H*rkA(1,1)*Jac1(i) - Jbig(LU_irow(i),N+LU_icol(i)) = -H*rkA(1,2)*Jac2(i) - Jbig(LU_irow(i),2*N+LU_icol(i)) = -H*rkA(1,3)*Jac3(i) - Jbig(N+LU_irow(i),LU_icol(i)) = -H*rkA(2,1)*Jac1(i) - Jbig(N+LU_irow(i),N+LU_icol(i)) = -H*rkA(2,2)*Jac2(i) - Jbig(N+LU_irow(i),2*N+LU_icol(i)) = -H*rkA(2,3)*Jac3(i) - Jbig(2*N+LU_irow(i),LU_icol(i)) = -H*rkA(3,1)*Jac1(i) - Jbig(2*N+LU_irow(i),N+LU_icol(i)) = -H*rkA(3,2)*Jac2(i) - Jbig(2*N+LU_irow(i),2*N+LU_icol(i)) = -H*rkA(3,3)*Jac3(i) - END DO - DO i=1, 3*N - Jbig(i,i) = ONE + Jbig(i,i) - END DO - ! CALL DGETRF(3*N,3*N,Jbig,3*N,IPbig,info) - CALL WGEFA(3*N,Jbig,IPbig,info) - IF (info /= 0) THEN - PRINT*,'Big guy is singular'; STOP - END IF -#endif - END IF - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Loop for the simplified Newton iterations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -Adj:DO iadj = 1, NADJ - !~~~> Starting values for Newton iteration - ! CALL WCOPY(N,Lambda(1,iadj),1,U1(1,iadj),1) - ! CALL WCOPY(N,Lambda(1,iadj),1,U2(1,iadj),1) - ! CALL WCOPY(N,Lambda(1,iadj),1,U3(1,iadj),1) - CALL Set2Zero(N,U1(1,iadj)) - CALL Set2Zero(N,U2(1,iadj)) - CALL Set2Zero(N,U3(1,iadj)) - - !~~~> Initializations for Newton iteration - NewtonDone = .FALSE. - !~~~> Right Hand Side - part G for all Newton iterations - CALL RK_PrepareRHS_G(N,H,Jac1,Jac2,Jac3,Lambda(1,iadj), & - G1, G2, G3) - - IF ( (AdjointSolve == Solve_adaptive .and. NewtonConverge) & - .or. (AdjointSolve == Solve_fixed) ) THEN - -NewtonLoopAdj:DO NewtonIter = 1, NewtonMaxit - - !~~~> Prepare the right-hand side - CALL RK_PrepareRHS_Adj(N,H,Jac1,Jac2,Jac3,Lambda(1,iadj), & - U1(1,iadj),U2(1,iadj),U3(1,iadj), & - G1, G2, G3, DU1,DU2,DU3) - - !~~~> Solve the linear systems - CALL RK_SolveTR( N,H,E1,IP1,E2,IP2,DU1,DU2,DU3,ISING ) - -!~~~> The following code performs an adaptive number of Newton -! iterations for solving adjoint system - IF (AdjointSolve == Solve_adaptive) THEN - - CALL RK_ErrorScale(N,ITOL, & - AbsTol_adj(1:N,iadj),RelTol_adj(1:N,iadj), & - Lambda(1:N,iadj),SCAL) - - ! SCAL(1:N) = 1.0d0 - NewtonIncrement = SQRT( ( RK_ErrorNorm(N,SCAL,DU1)**2 + & - RK_ErrorNorm(N,SCAL,DU2)**2 + & - RK_ErrorNorm(N,SCAL,DU3)**2 )/3.0d0 ) - - - IF ( NewtonIter == 1 ) THEN - Theta = ABS(ThetaMin) - NewtonRate = 2.0d0 - ELSE - Theta = NewtonIncrement/NewtonIncrementOld - IF (Theta < 0.99d0) THEN - NewtonRate = Theta/(ONE-Theta) - ELSE ! Non-convergence of Newton: Theta too large - Reject = .TRUE. - NewtonDone = .FALSE. - EXIT NewtonLoopAdj - END IF - - END IF - - NewtonIncrementOld = MAX(NewtonIncrement,Roundoff) - - END IF ! (AdjointSolve == Solve_adaptive) - - ! Update solution - CALL WAXPY(N,-ONE,DU1,1,U1(1,iadj),1) ! U1 <- U1 - DU1 - CALL WAXPY(N,-ONE,DU2,1,U2(1,iadj),1) ! U2 <- U2 - DU2 - CALL WAXPY(N,-ONE,DU3,1,U3(1,iadj),1) ! U3 <- U3 - DU3 - - IF (AdjointSolve == Solve_adaptive) THEN - ! When performing an adaptive number of iterations - ! check the error in Newton iterations - NewtonDone = (NewtonRate*NewtonIncrement <= NewtonTol) - IF ((NewtonDone).and.(NewtonIter>NewIt+1)) EXIT NewtonLoopAdj - ELSE IF (AdjointSolve == Solve_fixed) THEN - IF (NewtonIter>MAX(NewIt+1,6)) EXIT NewtonLoopAdj - END IF - - END DO NewtonLoopAdj - - IF ((AdjointSolve==Solve_adaptive).AND.(.NOT.NewtonDone)) THEN - ! print*,'Newton iterations do not converge, switching to full system.' - NewtonConverge = .FALSE. - Reject = .TRUE. - GOTO 111 - END IF - - ! Update adjoint solution: Y_adj <- Y_adj + sum (U_i) - CALL WAXPY(N,ONE,U1(1,iadj),1,Lambda(1,iadj),1) - CALL WAXPY(N,ONE,U2(1,iadj),1,Lambda(1,iadj),1) - CALL WAXPY(N,ONE,U3(1,iadj),1,Lambda(1,iadj),1) - - ELSE ! NewtonConverge = .false. - -#ifdef FULL_ALGEBRA - X(1:N) = -G1(1:N) - X(N+1:2*N) = -G2(1:N) - X(2*N+1:3*N) = -G3(1:N) - CALL DGETRS('T',3*N,1,Jbig,3*N,IPbig,X,3*N,0) - ! CALL WGESL('T',3*N,Jbig,IPbig,X) - Lambda(1:N,iadj) = Lambda(1:N,iadj)+X(1:N)+X(N+1:2*N)+X(2*N+1:3*N) -#else -! Commented lines for sparse big algebra: -! X(1,1:N) = -G1(1:N) -! X(2,1:N) = -G2(1:N) -! X(3,1:N) = -G3(1:N) -! CALL KppSolveBigTR( Jbig, IPbig, X ) -! Lambda(1:N,iadj) = Lambda(1:N,iadj)+X(1,1:N)+X(2,1:N)+X(3,1:N) -! Use fill big algebra: - X(1:N) = -G1(1:N) - X(N+1:2*N) = -G2(1:N) - X(2*N+1:3*N) = -G3(1:N) - ! CALL DGETRS('T',3*N,1,Jbig,3*N,IPbig,X,3*N,0) - CALL WGESL('T',3*N,Jbig,IPbig,X) - Lambda(1:N,iadj) = Lambda(1:N,iadj)+X(1:N)+X(N+1:2*N)+X(2*N+1:3*N) -#endif - IF ((AdjointSolve==Solve_adaptive).AND.(iadj>=NADJ)) THEN - NewtonConverge = .TRUE. - Reject = .FALSE. - END IF - - END IF ! NewtonConverge - - END DO Adj - - T1 = T1-H - - END DO TimeLoop - - ! Successful exit - IERR = 1 - - END SUBROUTINE RK_DadjInt - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE rk_CadjInt ( & - NADJ, Y, & - Tstart, Tend, T, IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Arguments -!~~~> Input: the initial condition at Tstart; Output: the solution at T - INTEGER, INTENT(IN) :: NADJ -!~~~> First order adjoint - KPP_REAL, INTENT(INOUT) :: Y(N,NADJ) - KPP_REAL, INTENT(IN) :: Tstart, Tend - KPP_REAL, INTENT(INOUT) :: T - INTEGER, INTENT(OUT) :: IERR - - END SUBROUTINE rk_CadjInt - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE rk_SimpleCadjInt ( & - NADJ, Y, & - Tstart, Tend, T, & - IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~> Arguments -!~~~> Input: the initial condition at Tstart; Output: the solution at T - INTEGER, INTENT(IN) :: NADJ -!~~~> First order adjoint - KPP_REAL, INTENT(INOUT) :: Y(N,NADJ) - KPP_REAL, INTENT(IN) :: Tstart, Tend - KPP_REAL, INTENT(INOUT) :: T - INTEGER, INTENT(OUT) :: IERR - - END SUBROUTINE rk_SimpleCadjInt - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_ErrorMsg(Code,T,H,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - KPP_REAL, INTENT(IN) :: T, H - INTEGER, INTENT(IN) :: Code - INTEGER, INTENT(OUT) :: IERR - - IERR = Code - PRINT * , & - 'Forced exit from RungeKutta due to the following error:' - - - SELECT CASE (Code) - CASE (-1) - PRINT * , '--> Improper value for maximal no of steps' - CASE (-2) - PRINT * , '--> Improper value for maximal no of Newton iterations' - CASE (-3) - PRINT * , '--> Hmin/Hmax/Hstart must be positive' - CASE (-4) - PRINT * , '--> Improper values for FacMin/FacMax/FacSafe/FacRej' - CASE (-5) - PRINT * , '--> Improper value for ThetaMin' - CASE (-6) - PRINT * , '--> Newton stopping tolerance too small' - CASE (-7) - PRINT * , '--> Improper values for Qmin, Qmax' - CASE (-8) - PRINT * , '--> Tolerances are too small' - CASE (-9) - PRINT * , '--> No of steps exceeds maximum bound' - CASE (-10) - PRINT * , '--> Step size too small: T + 10*H = T', & - ' or H < Roundoff' - CASE (-11) - PRINT * , '--> Matrix is repeatedly singular' - CASE (-12) - PRINT * , '--> Non-convergence of Newton iterations' - CASE (-13) - PRINT * , '--> Requested RK method not implemented' - CASE DEFAULT - PRINT *, 'Unknown Error code: ', Code - END SELECT - - WRITE(6,FMT="(5X,'T=',E12.5,' H=',E12.5)") T, H - - END SUBROUTINE RK_ErrorMsg - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_ErrorScale(N,ITOL,AbsTol,RelTol,Y,SCAL) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - INTEGER, INTENT(IN) :: N, ITOL - KPP_REAL, INTENT(IN) :: AbsTol(*), RelTol(*), Y(N) - KPP_REAL, INTENT(OUT) :: SCAL(N) - INTEGER :: i - - IF (ITOL==0) THEN - DO i=1,N - SCAL(i)= ONE/(AbsTol(1)+RelTol(1)*ABS(Y(i))) - END DO - ELSE - DO i=1,N - SCAL(i)=ONE/(AbsTol(i)+RelTol(i)*ABS(Y(i))) - END DO - END IF - - END SUBROUTINE RK_ErrorScale - - -!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! SUBROUTINE RK_Transform(N,Tr,Z1,Z2,Z3,W1,W2,W3) -!!~~~> W <-- Tr x Z -!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! IMPLICIT NONE -! INTEGER :: N, i -! KPP_REAL :: Tr(3,3),Z1(N),Z2(N),Z3(N),W1(N),W2(N),W3(N) -! KPP_REAL :: x1, x2, x3 -! DO i=1,N -! x1 = Z1(i); x2 = Z2(i); x3 = Z3(i) -! W1(i) = Tr(1,1)*x1 + Tr(1,2)*x2 + Tr(1,3)*x3 -! W2(i) = Tr(2,1)*x1 + Tr(2,2)*x2 + Tr(2,3)*x3 -! W3(i) = Tr(3,1)*x1 + Tr(3,2)*x2 + Tr(3,3)*x3 -! END DO -! END SUBROUTINE RK_Transform - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_Interpolate(action,N,H,Hold,Z1,Z2,Z3,CONT) -!~~~> Constructs or evaluates a quadratic polynomial -! that interpolates the Z solution at current step -! and provides starting values for the next step -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - INTEGER :: N, i - KPP_REAL :: H,Hold,Z1(N),Z2(N),Z3(N),CONT(N,3) - KPP_REAL :: r, x1, x2, x3, den - CHARACTER(LEN=4) :: action - - SELECT CASE (action) - CASE ('make') - ! Construct the solution quadratic interpolant Q(c_i) = Z_i, i=1:3 - den = (rkC(3)-rkC(2))*(rkC(2)-rkC(1))*(rkC(1)-rkC(3)) - DO i=1,N - CONT(i,1)=(-rkC(3)**2*rkC(2)*Z1(i)+Z3(i)*rkC(2)*rkC(1)**2 & - +rkC(2)**2*rkC(3)*Z1(i)-rkC(2)**2*rkC(1)*Z3(i) & - +rkC(3)**2*rkC(1)*Z2(i)-Z2(i)*rkC(3)*rkC(1)**2)& - /den-Z3(i) - CONT(i,2)= -( rkC(1)**2*(Z3(i)-Z2(i)) + rkC(2)**2*(Z1(i) & - -Z3(i)) +rkC(3)**2*(Z2(i)-Z1(i)) )/den - CONT(i,3)= ( rkC(1)*(Z3(i)-Z2(i)) + rkC(2)*(Z1(i)-Z3(i)) & - +rkC(3)*(Z2(i)-Z1(i)) )/den - END DO - CASE ('eval') - ! Evaluate quadratic polynomial - r = H/Hold - x1 = ONE + rkC(1)*r - x2 = ONE + rkC(2)*r - x3 = ONE + rkC(3)*r - DO i=1,N - Z1(i) = CONT(i,1)+x1*(CONT(i,2)+x1*CONT(i,3)) - Z2(i) = CONT(i,1)+x2*(CONT(i,2)+x2*CONT(i,3)) - Z3(i) = CONT(i,1)+x3*(CONT(i,2)+x3*CONT(i,3)) - END DO - END SELECT - END SUBROUTINE RK_Interpolate - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_PrepareRHS(N,T,H,Y,Z1,Z2,Z3,R1,R2,R3) -!~~~> Prepare the right-hand side for Newton iterations -! R = Z - hA x F -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - - INTEGER :: N - KPP_REAL :: T,H - KPP_REAL, DIMENSION(N) :: Y,Z1,Z2,Z3,F,R1,R2,R3,TMP - - CALL WCOPY(N,Z1,1,R1,1) ! R1 <- Z1 - CALL WCOPY(N,Z2,1,R2,1) ! R2 <- Z2 - CALL WCOPY(N,Z3,1,R3,1) ! R3 <- Z3 - - CALL WADD(N,Y,Z1,TMP) ! TMP <- Y + Z1 - CALL FUN_CHEM(T+rkC(1)*H,TMP,F) ! F1 <- Fun(Y+Z1) - CALL WAXPY(N,-H*rkA(1,1),F,1,R1,1) ! R1 <- R1 - h*A_11*F1 - CALL WAXPY(N,-H*rkA(2,1),F,1,R2,1) ! R2 <- R2 - h*A_21*F1 - CALL WAXPY(N,-H*rkA(3,1),F,1,R3,1) ! R3 <- R3 - h*A_31*F1 - - CALL WADD(N,Y,Z2,TMP) ! TMP <- Y + Z2 - CALL FUN_CHEM(T+rkC(2)*H,TMP,F) ! F2 <- Fun(Y+Z2) - CALL WAXPY(N,-H*rkA(1,2),F,1,R1,1) ! R1 <- R1 - h*A_12*F2 - CALL WAXPY(N,-H*rkA(2,2),F,1,R2,1) ! R2 <- R2 - h*A_22*F2 - CALL WAXPY(N,-H*rkA(3,2),F,1,R3,1) ! R3 <- R3 - h*A_32*F2 - - CALL WADD(N,Y,Z3,TMP) ! TMP <- Y + Z3 - CALL FUN_CHEM(T+rkC(3)*H,TMP,F) ! F3 <- Fun(Y+Z3) - CALL WAXPY(N,-H*rkA(1,3),F,1,R1,1) ! R1 <- R1 - h*A_13*F3 - CALL WAXPY(N,-H*rkA(2,3),F,1,R2,1) ! R2 <- R2 - h*A_23*F3 - CALL WAXPY(N,-H*rkA(3,3),F,1,R3,1) ! R3 <- R3 - h*A_33*F3 - - END SUBROUTINE RK_PrepareRHS - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_PrepareRHS_Adj(N,H,Jac1,Jac2,Jac3,Lambda, & - U1,U2,U3,G1,G2,G3,R1,R2,R3) -!~~~> Prepare the right-hand side for Newton iterations -! R = Z_adj - hA x Jac*Z_adj - h J^t b lambda -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - - INTEGER, INTENT(IN) :: N - KPP_REAL, INTENT(IN) :: H - KPP_REAL, DIMENSION(N), INTENT(IN) :: U1,U2,U3,Lambda,G1,G2,G3 - KPP_REAL, DIMENSION(N), INTENT(OUT) :: R1,R2,R3 -#ifdef FULL_ALGEBRA - KPP_REAL, DIMENSION(N,N), INTENT(IN) :: Jac1, Jac2, Jac3 -#else - KPP_REAL, DIMENSION(LU_NONZERO),INTENT(IN) :: Jac1, Jac2, Jac3 -#endif - KPP_REAL, DIMENSION(N) :: F,TMP - - - CALL WCOPY(N,G1,1,R1,1) ! R1 <- G1 - CALL WCOPY(N,G2,1,R2,1) ! R2 <- G2 - CALL WCOPY(N,G3,1,R3,1) ! R3 <- G3 - - CALL SET2ZERO(N,F) - CALL WAXPY(N,-H*rkA(1,1),U1,1,F,1) ! F1 <- -h*A_11*U1 - CALL WAXPY(N,-H*rkA(2,1),U2,1,F,1) ! F1 <- F1 - h*A_21*U2 - CALL WAXPY(N,-H*rkA(3,1),U3,1,F,1) ! F1 <- F1 - h*A_31*U3 -#ifdef FULL_ALGEBRA - TMP = MATMUL(TRANSPOSE(Jac1),F) -#else - CALL JacTR_SP_Vec ( Jac1, F, TMP ) ! R1 <- -Jac(Y+Z1)^t*h*sum(A_j1*U_j) -#endif - CALL WAXPY(N,ONE,U1,1,TMP,1) ! R1 <- U1 -Jac(Y+Z1)^t*h*sum(A_j1*U_j) - CALL WAXPY(N,ONE,TMP,1,R1,1) ! R1 <- U1 -Jac(Y+Z1)^t*h*sum(A_j1*U_j) - - CALL SET2ZERO(N,F) - CALL WAXPY(N,-H*rkA(1,2),U1,1,F,1) ! F2 <- -h*A_11*U1 - CALL WAXPY(N,-H*rkA(2,2),U2,1,F,1) ! F2 <- F2 - h*A_21*U2 - CALL WAXPY(N,-H*rkA(3,2),U3,1,F,1) ! F2 <- F2 - h*A_31*U3 -#ifdef FULL_ALGEBRA - TMP = MATMUL(TRANSPOSE(Jac2),F) -#else - CALL JacTR_SP_Vec ( Jac2, F, TMP ) ! R2 <- -Jac(Y+Z2)^t*h*sum(A_j2*U_j) -#endif - CALL WAXPY(N,ONE,U2,1,TMP,1) ! R2 <- U2 -Jac(Y+Z2)^t*h*sum(A_j2*U_j) - CALL WAXPY(N,ONE,TMP,1,R2,1) ! R2 <- U2 -Jac(Y+Z2)^t*h*sum(A_j2*U_j) - - CALL SET2ZERO(N,F) - CALL WAXPY(N,-H*rkA(1,3),U1,1,F,1) ! F3 <- -h*A_11*U1 - CALL WAXPY(N,-H*rkA(2,3),U2,1,F,1) ! F3 <- F3 - h*A_21*U2 - CALL WAXPY(N,-H*rkA(3,3),U3,1,F,1) ! F3 <- F3 - h*A_31*U3 -#ifdef FULL_ALGEBRA - TMP = MATMUL(TRANSPOSE(Jac3),F) -#else - CALL JacTR_SP_Vec ( Jac3, F, TMP ) ! R3 <- -Jac(Y+Z3)^t*h*sum(A_j3*U_j) -#endif - CALL WAXPY(N,ONE,U3,1,TMP,1) ! R3 <- U3 -Jac(Y+Z3)^t*h*sum(A_j3*U_j) - CALL WAXPY(N,ONE,TMP,1,R3,1) ! R3 <- U3 -Jac(Y+Z3)^t*h*sum(A_j3*U_j) - - - END SUBROUTINE RK_PrepareRHS_Adj - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_PrepareRHS_G(N,H,Jac1,Jac2,Jac3,Lambda, & - G1,G2,G3) -!~~~> Prepare the right-hand side for Newton iterations -! R = Z_adj - hA x Jac*Z_adj - h J^t b lambda -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - - INTEGER, INTENT(IN) :: N - KPP_REAL, INTENT(IN) :: H - KPP_REAL, DIMENSION(N), INTENT(IN) :: Lambda - KPP_REAL, DIMENSION(N), INTENT(OUT) :: G1,G2,G3 -#ifdef FULL_ALGEBRA - KPP_REAL, DIMENSION(N,N), INTENT(IN) :: Jac1, Jac2, Jac3 -#else - KPP_REAL, DIMENSION(LU_NONZERO),INTENT(IN) :: Jac1, Jac2, Jac3 -#endif - KPP_REAL, DIMENSION(N) :: F - - CALL SET2ZERO(N,G1) - CALL SET2ZERO(N,G2) - CALL SET2ZERO(N,G3) -#ifdef FULL_ALGEBRA - F = MATMUL(TRANSPOSE(Jac1),Lambda) -#else - CALL JacTR_SP_Vec ( Jac1, Lambda, F ) ! F1 <- Jac(Y+Z1)^t*Lambda -#endif - CALL WAXPY(N,-H*rkB(1),F,1,G1,1) ! R1 <- R1 - h*B_1*F1 - -#ifdef FULL_ALGEBRA - F = MATMUL(TRANSPOSE(Jac2),Lambda) -#else - CALL JacTR_SP_Vec ( Jac2, Lambda, F ) ! F2 <- Jac(Y+Z2)^t*Lambda -#endif - CALL WAXPY(N,-H*rkB(2),F,1,G2,1) ! R2 <- R2 - h*B_2*F2 - -#ifdef FULL_ALGEBRA - F = MATMUL(TRANSPOSE(Jac3),Lambda) -#else - CALL JacTR_SP_Vec ( Jac3, Lambda, F ) ! F3 <- Jac(Y+Z3)^t*Lambda -#endif - CALL WAXPY(N,-H*rkB(3),F,1,G3,1) ! R3 <- R3 - h*B_3*F3 - - - END SUBROUTINE RK_PrepareRHS_G - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_Decomp(N,H,FJAC,E1,IP1,E2,IP2,ISING) - !~~~> Compute the matrices E1 and E2 and their decompositions -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - - INTEGER :: N, ISING - KPP_REAL :: H, Alpha, Beta, Gamma -#ifdef FULL_ALGEBRA - KPP_REAL :: FJAC(N,N),E1(N,N) - COMPLEX(kind=dp) :: E2(N,N) -#else - KPP_REAL :: FJAC(LU_NONZERO),E1(LU_NONZERO) - COMPLEX(kind=dp) :: E2(LU_NONZERO) -#endif - INTEGER :: IP1(N), IP2(N), i, j - - Gamma = rkGamma/H - Alpha = rkAlpha/H - Beta = rkBeta /H - -#ifdef FULL_ALGEBRA - DO j=1,N - DO i=1,N - E1(i,j)=-FJAC(i,j) - END DO - E1(j,j)=E1(j,j)+Gamma - END DO - CALL DGETRF(N,N,E1,N,IP1,ISING) -#else - DO i=1,LU_NONZERO - E1(i)=-FJAC(i) - END DO - DO i=1,N - j=LU_DIAG(i); E1(j)=E1(j)+Gamma - END DO - CALL KppDecomp(E1,ISING) -#endif - - IF (ISING /= 0) THEN - ISTATUS(idec) = ISTATUS(idec) + 1 - RETURN - END IF - -#ifdef FULL_ALGEBRA - DO j=1,N - DO i=1,N - E2(i,j) = DCMPLX( -FJAC(i,j), ZERO ) - END DO - E2(j,j) = E2(j,j) + CMPLX( Alpha, Beta ) - END DO - CALL ZGETRF(N,N,E2,N,IP2,ISING) -#else - DO i=1,LU_NONZERO - E2(i) = DCMPLX( -FJAC(i), ZERO ) - END DO - DO i=1,N - j = LU_DIAG(i); E2(j)=E2(j) + CMPLX( Alpha, Beta ) - END DO - CALL KppDecompCmplx(E2,ISING) -#endif - ISTATUS(idec) = ISTATUS(idec) + 1 - - END SUBROUTINE RK_Decomp - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_Solve(N,H,E1,IP1,E2,IP2,R1,R2,R3,ISING) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - INTEGER :: N,IP1(N),IP2(N),ISING -#ifdef FULL_ALGEBRA - KPP_REAL :: E1(N,N) - COMPLEX(kind=dp) :: E2(N,N) -#else - KPP_REAL :: E1(LU_NONZERO) - COMPLEX(kind=dp) :: E2(LU_NONZERO) -#endif - KPP_REAL :: R1(N),R2(N),R3(N) - KPP_REAL :: H, x1, x2, x3 - COMPLEX(kind=dp) :: BC(N) - INTEGER :: i -! - ! Z <- h^{-1) T^{-1) A^{-1) x Z - DO i=1,N - x1 = R1(i)/H; x2 = R2(i)/H; x3 = R3(i)/H - R1(i) = rkTinvAinv(1,1)*x1 + rkTinvAinv(1,2)*x2 + rkTinvAinv(1,3)*x3 - R2(i) = rkTinvAinv(2,1)*x1 + rkTinvAinv(2,2)*x2 + rkTinvAinv(2,3)*x3 - R3(i) = rkTinvAinv(3,1)*x1 + rkTinvAinv(3,2)*x2 + rkTinvAinv(3,3)*x3 - END DO - -#ifdef FULL_ALGEBRA - CALL DGETRS ('N',N,1,E1,N,IP1,R1,N,0) -#else - CALL KppSolve (E1,R1) -#endif -! - DO i=1,N - BC(i) = DCMPLX(R2(i),R3(i)) - END DO -#ifdef FULL_ALGEBRA - CALL ZGETRS ('N',N,1,E2,N,IP2,BC,N,0) -#else - CALL KppSolveCmplx (E2,BC) -#endif - DO i=1,N - R2(i) = DBLE( BC(i) ) - R3(i) = AIMAG( BC(i) ) - END DO - - ! Z <- T x Z - DO i=1,N - x1 = R1(i); x2 = R2(i); x3 = R3(i) - R1(i) = rkT(1,1)*x1 + rkT(1,2)*x2 + rkT(1,3)*x3 - R2(i) = rkT(2,1)*x1 + rkT(2,2)*x2 + rkT(2,3)*x3 - R3(i) = rkT(3,1)*x1 + rkT(3,2)*x2 + rkT(3,3)*x3 - END DO - - ISTATUS(isol) = ISTATUS(isol) + 1 - - END SUBROUTINE RK_Solve - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_SolveTR(N,H,E1,IP1,E2,IP2,R1,R2,R3,ISING) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - INTEGER, INTENT(IN) :: N,IP1(N),IP2(N) - INTEGER, INTENT(OUT) :: ISING -#ifdef FULL_ALGEBRA - KPP_REAL, INTENT(IN) :: E1(N,N) - COMPLEX(kind=dp), INTENT(IN) :: E2(N,N) -#else - KPP_REAL, INTENT(IN) :: E1(LU_NONZERO) - COMPLEX(kind=dp), INTENT(IN) :: E2(LU_NONZERO) -#endif - KPP_REAL, INTENT(INOUT) :: R1(N),R2(N),R3(N) - KPP_REAL :: H, x1, x2, x3 - COMPLEX(kind=dp) :: BC(N) - INTEGER :: i -! - ! RHS <- h^{-1) (A^{-1) T^{-1))^t x RHS - DO i=1,N - x1 = R1(i)/H; x2 = R2(i)/H; x3 = R3(i)/H - R1(i) = rkAinvT(1,1)*x1 + rkAinvT(2,1)*x2 + rkAinvT(3,1)*x3 - R2(i) = rkAinvT(1,2)*x1 + rkAinvT(2,2)*x2 + rkAinvT(3,2)*x3 - R3(i) = rkAinvT(1,3)*x1 + rkAinvT(2,3)*x2 + rkAinvT(3,3)*x3 - END DO - -#ifdef FULL_ALGEBRA - CALL DGETRS ('T',N,1,E1,N,IP1,R1,N,0) -#else - CALL KppSolveTR (E1,R1,R1) -#endif -! - DO i=1,N - BC(i) = DCMPLX(R2(i),-R3(i)) - END DO -#ifdef FULL_ALGEBRA - CALL ZGETRS ('T',N,1,E2,N,IP2,BC,N,0) -#else - CALL KppSolveTRCmplx (E2,BC) -#endif - DO i=1,N - R2(i) = DBLE( BC(i) ) - R3(i) = -AIMAG( BC(i) ) - END DO - - ! X <- (T^{-1})^t x X - DO i=1,N - x1 = R1(i); x2 = R2(i); x3 = R3(i) - R1(i) = rkTinv(1,1)*x1 + rkTinv(2,1)*x2 + rkTinv(3,1)*x3 - R2(i) = rkTinv(1,2)*x1 + rkTinv(2,2)*x2 + rkTinv(3,2)*x3 - R3(i) = rkTinv(1,3)*x1 + rkTinv(2,3)*x2 + rkTinv(3,3)*x3 - END DO - - ISTATUS(isol) = ISTATUS(isol) + 1 - - END SUBROUTINE RK_SolveTR - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_ErrorEstimate(N,H,Y,T, & - E1,IP1,Z1,Z2,Z3,SCAL,Err, & - FirstStep,Reject) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - - INTEGER :: N -#ifdef FULL_ALGEBRA - KPP_REAL :: E1(N,N) -#else - KPP_REAL :: E1(LU_NONZERO) -#endif - KPP_REAL :: SCAL(N),Z1(N),Z2(N),Z3(N),F1(N),F2(N), & - F0(N),Y(N),TMP(N),T,H - INTEGER :: IP1(N), i - LOGICAL FirstStep,Reject - KPP_REAL :: HEE1,HEE2,HEE3,Err - - HEE1 = rkE(1)/H - HEE2 = rkE(2)/H - HEE3 = rkE(3)/H - - CALL FUN_CHEM(T,Y,F0) - ISTATUS(ifun) = ISTATUS(ifun) + 1 - - DO i=1,N - F2(i) = HEE1*Z1(i)+HEE2*Z2(i)+HEE3*Z3(i) - TMP(i) = rkE(0)*F0(i) + F2(i) - END DO - -#ifdef FULL_ALGEBRA - CALL DGETRS ('N',N,1,E1,N,IP1,TMP,N,0) - IF ((rkMethod==R1A).OR.(rkMethod==GAU).OR.(rkMethod==L3A)) CALL DGETRS ('N',N,1,E1,N,IP1,TMP,N,0) - IF (rkMethod==GAU) CALL DGETRS ('N',N,1,E1,N,IP1,TMP,N,0) -#else - CALL KppSolve (E1, TMP) - IF ((rkMethod==R1A).OR.(rkMethod==GAU).OR.(rkMethod==L3A)) CALL KppSolve (E1,TMP) - IF (rkMethod==GAU) CALL KppSolve (E1,TMP) -#endif - - Err = RK_ErrorNorm(N,SCAL,TMP) -! - IF (Err < ONE) RETURN -firej:IF (FirstStep.OR.Reject) THEN - DO i=1,N - TMP(i)=Y(i)+TMP(i) - END DO - CALL FUN_CHEM(T,TMP,F1) - ISTATUS(ifun) = ISTATUS(ifun) + 1 - DO i=1,N - TMP(i)=F1(i)+F2(i) - END DO - -#ifdef FULL_ALGEBRA - CALL DGETRS ('N',N,1,E1,N,IP1,TMP,N,0) -#else - CALL KppSolve (E1, TMP) -#endif - Err = RK_ErrorNorm(N,SCAL,TMP) - END IF firej - - END SUBROUTINE RK_ErrorEstimate - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - KPP_REAL FUNCTION RK_ErrorNorm(N,SCAL,DY) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - - INTEGER :: N - KPP_REAL :: SCAL(N),DY(N) - INTEGER :: i - - RK_ErrorNorm = ZERO - DO i=1,N - RK_ErrorNorm = RK_ErrorNorm + (DY(i)*SCAL(i))**2 - END DO - RK_ErrorNorm = MAX( SQRT(RK_ErrorNorm/N), 1.0d-10 ) - - END FUNCTION RK_ErrorNorm - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Radau2A_Coefficients -! The coefficients of the 3-stage Radau-2A method -! (given to ~30 accurate digits) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -! The coefficients of the Radau2A method - KPP_REAL :: b0 - -! b0 = 1.0d0 - IF (SdirkError) THEN - b0 = 0.2d-1 - ELSE - b0 = 0.5d-1 - END IF - -! The coefficients of the Radau2A method - rkMethod = R2A - - rkA(1,1) = 1.968154772236604258683861429918299d-1 - rkA(1,2) = -6.55354258501983881085227825696087d-2 - rkA(1,3) = 2.377097434822015242040823210718965d-2 - rkA(2,1) = 3.944243147390872769974116714584975d-1 - rkA(2,2) = 2.920734116652284630205027458970589d-1 - rkA(2,3) = -4.154875212599793019818600988496743d-2 - rkA(3,1) = 3.764030627004672750500754423692808d-1 - rkA(3,2) = 5.124858261884216138388134465196080d-1 - rkA(3,3) = 1.111111111111111111111111111111111d-1 - - rkB(1) = 3.764030627004672750500754423692808d-1 - rkB(2) = 5.124858261884216138388134465196080d-1 - rkB(3) = 1.111111111111111111111111111111111d-1 - - rkC(1) = 1.550510257216821901802715925294109d-1 - rkC(2) = 6.449489742783178098197284074705891d-1 - rkC(3) = 1.0d0 - - ! New solution: H* Sum B_j*f(Z_j) = Sum D_j*Z_j - rkD(1) = 0.0d0 - rkD(2) = 0.0d0 - rkD(3) = 1.0d0 - - ! Classical error estimator: - ! H* Sum (B_j-Bhat_j)*f(Z_j) = H*E(0)*f(0) + Sum E_j*Z_j - rkE(0) = 1.0d0*b0 - rkE(1) = -10.04880939982741556246032950764708d0*b0 - rkE(2) = 1.382142733160748895793662840980412d0*b0 - rkE(3) = -.3333333333333333333333333333333333d0*b0 - - ! Sdirk error estimator - rkBgam(0) = b0 - rkBgam(1) = .3764030627004672750500754423692807d0-1.558078204724922382431975370686279d0*b0 - rkBgam(2) = .8914115380582557157653087040196118d0*b0+.5124858261884216138388134465196077d0 - rkBgam(3) = -.1637777184845662566367174924883037d0-.3333333333333333333333333333333333d0*b0 - rkBgam(4) = .2748888295956773677478286035994148d0 - - ! H* Sum Bgam_j*f(Z_j) = H*Bgam(0)*f(0) + Sum Theta_j*Z_j - rkTheta(1) = -1.520677486405081647234271944611547d0-10.04880939982741556246032950764708d0*b0 - rkTheta(2) = 2.070455145596436382729929151810376d0+1.382142733160748895793662840980413d0*b0 - rkTheta(3) = -.3333333333333333333333333333333333d0*b0-.3744441479783868387391430179970741d0 - - ! Local order of error estimator - IF (b0==0.0d0) THEN - rkELO = 6.0d0 - ELSE - rkELO = 4.0d0 - END IF - - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - !~~~> Diagonalize the RK matrix: - ! rkTinv * inv(rkA) * rkT = - ! | rkGamma 0 0 | - ! | 0 rkAlpha -rkBeta | - ! | 0 rkBeta rkAlpha | - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - rkGamma = 3.637834252744495732208418513577775d0 - rkAlpha = 2.681082873627752133895790743211112d0 - rkBeta = 3.050430199247410569426377624787569d0 - - rkT(1,1) = 9.443876248897524148749007950641664d-2 - rkT(1,2) = -1.412552950209542084279903838077973d-1 - rkT(1,3) = -3.00291941051474244918611170890539d-2 - rkT(2,1) = 2.502131229653333113765090675125018d-1 - rkT(2,2) = 2.041293522937999319959908102983381d-1 - rkT(2,3) = 3.829421127572619377954382335998733d-1 - rkT(3,1) = 1.0d0 - rkT(3,2) = 1.0d0 - rkT(3,3) = 0.0d0 - - rkTinv(1,1) = 4.178718591551904727346462658512057d0 - rkTinv(1,2) = 3.27682820761062387082533272429617d-1 - rkTinv(1,3) = 5.233764454994495480399309159089876d-1 - rkTinv(2,1) = -4.178718591551904727346462658512057d0 - rkTinv(2,2) = -3.27682820761062387082533272429617d-1 - rkTinv(2,3) = 4.766235545005504519600690840910124d-1 - rkTinv(3,1) = -5.02872634945786875951247343139544d-1 - rkTinv(3,2) = 2.571926949855605429186785353601676d0 - rkTinv(3,3) = -5.960392048282249249688219110993024d-1 - - rkTinvAinv(1,1) = 1.520148562492775501049204957366528d+1 - rkTinvAinv(1,2) = 1.192055789400527921212348994770778d0 - rkTinvAinv(1,3) = 1.903956760517560343018332287285119d0 - rkTinvAinv(2,1) = -9.669512977505946748632625374449567d0 - rkTinvAinv(2,2) = -8.724028436822336183071773193986487d0 - rkTinvAinv(2,3) = 3.096043239482439656981667712714881d0 - rkTinvAinv(3,1) = -1.409513259499574544876303981551774d+1 - rkTinvAinv(3,2) = 5.895975725255405108079130152868952d0 - rkTinvAinv(3,3) = -1.441236197545344702389881889085515d-1 - - rkAinvT(1,1) = .3435525649691961614912493915818282d0 - rkAinvT(1,2) = -.4703191128473198422370558694426832d0 - rkAinvT(1,3) = .3503786597113668965366406634269080d0 - rkAinvT(2,1) = .9102338692094599309122768354288852d0 - rkAinvT(2,2) = 1.715425895757991796035292755937326d0 - rkAinvT(2,3) = .4040171993145015239277111187301784d0 - rkAinvT(3,1) = 3.637834252744495732208418513577775d0 - rkAinvT(3,2) = 2.681082873627752133895790743211112d0 - rkAinvT(3,3) = -3.050430199247410569426377624787569d0 - - END SUBROUTINE Radau2A_Coefficients - - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Lobatto3C_Coefficients -! The coefficients of the 3-stage Lobatto-3C method -! (given to ~30 accurate digits) -! The parameter b0 can be chosen to tune the error estimator -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - KPP_REAL :: b0 - - rkMethod = L3C - -! b0 = 1.0d0 - IF (SdirkError) THEN - b0 = 0.2d0 - ELSE - b0 = 0.5d0 - END IF -! The coefficients of the Lobatto3C method - - rkA(1,1) = .1666666666666666666666666666666667d0 - rkA(1,2) = -.3333333333333333333333333333333333d0 - rkA(1,3) = .1666666666666666666666666666666667d0 - rkA(2,1) = .1666666666666666666666666666666667d0 - rkA(2,2) = .4166666666666666666666666666666667d0 - rkA(2,3) = -.8333333333333333333333333333333333d-1 - rkA(3,1) = .1666666666666666666666666666666667d0 - rkA(3,2) = .6666666666666666666666666666666667d0 - rkA(3,3) = .1666666666666666666666666666666667d0 - - rkB(1) = .1666666666666666666666666666666667d0 - rkB(2) = .6666666666666666666666666666666667d0 - rkB(3) = .1666666666666666666666666666666667d0 - - rkC(1) = 0.0d0 - rkC(2) = 0.5d0 - rkC(3) = 1.0d0 - - ! Classical error estimator, embedded solution: - rkBhat(0) = b0 - rkBhat(1) = .16666666666666666666666666666666667d0-b0 - rkBhat(2) = .66666666666666666666666666666666667d0 - rkBhat(3) = .16666666666666666666666666666666667d0 - - ! New solution: h Sum_j b_j f(Z_j) = sum d_j Z_j - rkD(1) = 0.0d0 - rkD(2) = 0.0d0 - rkD(3) = 1.0d0 - - ! Classical error estimator: - ! H* Sum (B_j-Bhat_j)*f(Z_j) = H*E(0)*f(0) + Sum E_j*Z_j - rkE(0) = .3808338772072650364017425226487022*b0 - rkE(1) = -1.142501631621795109205227567946107*b0 - rkE(2) = -1.523335508829060145606970090594809*b0 - rkE(3) = .3808338772072650364017425226487022*b0 - - ! Sdirk error estimator - rkBgam(0) = b0 - rkBgam(1) = .1666666666666666666666666666666667d0-1.d0*b0 - rkBgam(2) = .6666666666666666666666666666666667d0 - rkBgam(3) = -.2141672105405983697350758559820354d0 - rkBgam(4) = .3808338772072650364017425226487021d0 - - ! H* Sum Bgam_j*f(Z_j) = H*Bgam(0)*f(0) + Sum Theta_j*Z_j - rkTheta(1) = -3.d0*b0-.3808338772072650364017425226487021d0 - rkTheta(2) = -4.d0*b0+1.523335508829060145606970090594808d0 - rkTheta(3) = -.142501631621795109205227567946106d0+b0 - - ! Local order of error estimator - IF (b0==0.0d0) THEN - rkELO = 5.0d0 - ELSE - rkELO = 4.0d0 - END IF - - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - !~~~> Diagonalize the RK matrix: - ! rkTinv * inv(rkA) * rkT = - ! | rkGamma 0 0 | - ! | 0 rkAlpha -rkBeta | - ! | 0 rkBeta rkAlpha | - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - rkGamma = 2.625816818958466716011888933765284d0 - rkAlpha = 1.687091590520766641994055533117359d0 - rkBeta = 2.508731754924880510838743672432351d0 - - rkT(1,1) = 1.d0 - rkT(1,2) = 1.d0 - rkT(1,3) = 0.d0 - rkT(2,1) = .4554100411010284672111720348287483d0 - rkT(2,2) = -.6027050205505142336055860174143743d0 - rkT(2,3) = -.4309321229203225731070721341350346d0 - rkT(3,1) = 2.195823345445647152832799205549709d0 - rkT(3,2) = -1.097911672722823576416399602774855d0 - rkT(3,3) = .7850032632435902184104551358922130d0 - - rkTinv(1,1) = .4205559181381766909344950150991349d0 - rkTinv(1,2) = .3488903392193734304046467270632057d0 - rkTinv(1,3) = .1915253879645878102698098373933487d0 - rkTinv(2,1) = .5794440818618233090655049849008650d0 - rkTinv(2,2) = -.3488903392193734304046467270632057d0 - rkTinv(2,3) = -.1915253879645878102698098373933487d0 - rkTinv(3,1) = -.3659705575742745254721332009249516d0 - rkTinv(3,2) = -1.463882230297098101888532803699806d0 - rkTinv(3,3) = .4702733607340189781407813565524989d0 - - rkTinvAinv(1,1) = 1.104302803159744452668648155627548d0 - rkTinvAinv(1,2) = .916122120694355522658740710823143d0 - rkTinvAinv(1,3) = .5029105849749601702795812241441172d0 - rkTinvAinv(2,1) = 1.895697196840255547331351844372453d0 - rkTinvAinv(2,2) = 3.083877879305644477341259289176857d0 - rkTinvAinv(2,3) = -1.502910584974960170279581224144117d0 - rkTinvAinv(3,1) = .8362439183082935036129145574774502d0 - rkTinvAinv(3,2) = -3.344975673233174014451658229909802d0 - rkTinvAinv(3,3) = .312908409479233358005944466882642d0 - - rkAinvT(1,1) = 2.625816818958466716011888933765282d0 - rkAinvT(1,2) = 1.687091590520766641994055533117358d0 - rkAinvT(1,3) = -2.508731754924880510838743672432351d0 - rkAinvT(2,1) = 1.195823345445647152832799205549710d0 - rkAinvT(2,2) = -2.097911672722823576416399602774855d0 - rkAinvT(2,3) = .7850032632435902184104551358922130d0 - rkAinvT(3,1) = 5.765829871932827589653709477334136d0 - rkAinvT(3,2) = .1170850640335862051731452613329320d0 - rkAinvT(3,3) = 4.078738281412060947659653944216779d0 - - END SUBROUTINE Lobatto3C_Coefficients - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Gauss_Coefficients -! The coefficients of the 3-stage Gauss method -! (given to ~30 accurate digits) -! The parameter b3 can be chosen by the user -! to tune the error estimator -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - KPP_REAL :: b0 -! The coefficients of the Gauss method - - - rkMethod = GAU - -! b0 = 4.0d0 - b0 = 0.1d0 - -! The coefficients of the Gauss method - - rkA(1,1) = .1388888888888888888888888888888889d0 - rkA(1,2) = -.359766675249389034563954710966045d-1 - rkA(1,3) = .97894440153083260495800422294756d-2 - rkA(2,1) = .3002631949808645924380249472131556d0 - rkA(2,2) = .2222222222222222222222222222222222d0 - rkA(2,3) = -.224854172030868146602471694353778d-1 - rkA(3,1) = .2679883337624694517281977355483022d0 - rkA(3,2) = .4804211119693833479008399155410489d0 - rkA(3,3) = .1388888888888888888888888888888889d0 - - rkB(1) = .2777777777777777777777777777777778d0 - rkB(2) = .4444444444444444444444444444444444d0 - rkB(3) = .2777777777777777777777777777777778d0 - - rkC(1) = .1127016653792583114820734600217600d0 - rkC(2) = .5000000000000000000000000000000000d0 - rkC(3) = .8872983346207416885179265399782400d0 - - ! Classical error estimator, embedded solution: - rkBhat(0) = b0 - rkBhat(1) =-1.4788305577012361475298775666303999d0*b0 & - +.27777777777777777777777777777777778d0 - rkBhat(2) = .44444444444444444444444444444444444d0 & - +.66666666666666666666666666666666667d0*b0 - rkBhat(3) = -.18783610896543051913678910003626672d0*b0 & - +.27777777777777777777777777777777778d0 - - ! New solution: h Sum_j b_j f(Z_j) = sum d_j Z_j - rkD(1) = .1666666666666666666666666666666667d1 - rkD(2) = -.1333333333333333333333333333333333d1 - rkD(3) = .1666666666666666666666666666666667d1 - - ! Classical error estimator: - ! H* Sum (B_j-Bhat_j)*f(Z_j) = H*E(0)*f(0) + Sum E_j*Z_j - rkE(0) = .2153144231161121782447335303806954d0*b0 - rkE(1) = -2.825278112319014084275808340593191d0*b0 - rkE(2) = .2870858974881495709929780405075939d0*b0 - rkE(3) = -.4558086256248162565397206448274867d-1*b0 - - ! Sdirk error estimator - rkBgam(0) = 0.d0 - rkBgam(1) = .2373339543355109188382583162660537d0 - rkBgam(2) = .5879873931885192299409334646982414d0 - rkBgam(3) = -.4063577064014232702392531134499046d-1 - rkBgam(4) = .2153144231161121782447335303806955d0 - - ! H* Sum Bgam_j*f(Z_j) = H*Bgam(0)*f(0) + Sum Theta_j*Z_j - rkTheta(1) = -2.594040933093095272574031876464493d0 - rkTheta(2) = 1.824611539036311947589425112250199d0 - rkTheta(3) = .1856563166634371860478043996459493d0 - - ! ELO = local order of classical error estimator - rkELO = 4.0d0 - - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - !~~~> Diagonalize the RK matrix: - ! rkTinv * inv(rkA) * rkT = - ! | rkGamma 0 0 | - ! | 0 rkAlpha -rkBeta | - ! | 0 rkBeta rkAlpha | - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - rkGamma = 4.644370709252171185822941421408064d0 - rkAlpha = 3.677814645373914407088529289295970d0 - rkBeta = 3.508761919567443321903661209182446d0 - - rkT(1,1) = .7215185205520017032081769924397664d-1 - rkT(1,2) = -.8224123057363067064866206597516454d-1 - rkT(1,3) = -.6012073861930850173085948921439054d-1 - rkT(2,1) = .1188325787412778070708888193730294d0 - rkT(2,2) = .5306509074206139504614411373957448d-1 - rkT(2,3) = .3162050511322915732224862926182701d0 - rkT(3,1) = 1.d0 - rkT(3,2) = 1.d0 - rkT(3,3) = 0.d0 - - rkTinv(1,1) = 5.991698084937800775649580743981285d0 - rkTinv(1,2) = 1.139214295155735444567002236934009d0 - rkTinv(1,3) = .4323121137838583855696375901180497d0 - rkTinv(2,1) = -5.991698084937800775649580743981285d0 - rkTinv(2,2) = -1.139214295155735444567002236934009d0 - rkTinv(2,3) = .5676878862161416144303624098819503d0 - rkTinv(3,1) = -1.246213273586231410815571640493082d0 - rkTinv(3,2) = 2.925559646192313662599230367054972d0 - rkTinv(3,3) = -.2577352012734324923468722836888244d0 - - rkTinvAinv(1,1) = 27.82766708436744962047620566703329d0 - rkTinvAinv(1,2) = 5.290933503982655311815946575100597d0 - rkTinvAinv(1,3) = 2.007817718512643701322151051660114d0 - rkTinvAinv(2,1) = -17.66368928942422710690385180065675d0 - rkTinvAinv(2,2) = -14.45491129892587782538830044147713d0 - rkTinvAinv(2,3) = 2.992182281487356298677848948339886d0 - rkTinvAinv(3,1) = -25.60678350282974256072419392007303d0 - rkTinvAinv(3,2) = 6.762434375611708328910623303779923d0 - rkTinvAinv(3,3) = 1.043979339483109825041215970036771d0 - - rkAinvT(1,1) = .3350999483034677402618981153470483d0 - rkAinvT(1,2) = -.5134173605009692329246186488441294d0 - rkAinvT(1,3) = .6745196507033116204327635673208923d-1 - rkAinvT(2,1) = .5519025480108928886873752035738885d0 - rkAinvT(2,2) = 1.304651810077110066076640761092008d0 - rkAinvT(2,3) = .9767507983414134987545585703726984d0 - rkAinvT(3,1) = 4.644370709252171185822941421408064d0 - rkAinvT(3,2) = 3.677814645373914407088529289295970d0 - rkAinvT(3,3) = -3.508761919567443321903661209182446d0 - - END SUBROUTINE Gauss_Coefficients - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Radau1A_Coefficients -! The coefficients of the 3-stage Gauss method -! (given to ~30 accurate digits) -! The parameter b3 can be chosen by the user -! to tune the error estimator -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -! KPP_REAL :: b0 = 0.3d0 - KPP_REAL :: b0 = 0.1d0 - -! The coefficients of the Radau1A method - - rkMethod = R1A - - rkA(1,1) = .1111111111111111111111111111111111d0 - rkA(1,2) = -.1916383190435098943442935597058829d0 - rkA(1,3) = .8052720793239878323318244859477174d-1 - rkA(2,1) = .1111111111111111111111111111111111d0 - rkA(2,2) = .2920734116652284630205027458970589d0 - rkA(2,3) = -.481334970546573839513422644787591d-1 - rkA(3,1) = .1111111111111111111111111111111111d0 - rkA(3,2) = .5370223859435462728402311533676479d0 - rkA(3,3) = .1968154772236604258683861429918299d0 - - rkB(1) = .1111111111111111111111111111111111d0 - rkB(2) = .5124858261884216138388134465196080d0 - rkB(3) = .3764030627004672750500754423692808d0 - - rkC(1) = 0.d0 - rkC(2) = .3550510257216821901802715925294109d0 - rkC(3) = .8449489742783178098197284074705891d0 - - ! Classical error estimator, embedded solution: - rkBhat(0) = b0 - rkBhat(1) = .11111111111111111111111111111111111d0-b0 - rkBhat(2) = .51248582618842161383881344651960810d0 - rkBhat(3) = .37640306270046727505007544236928079d0 - - ! New solution: H* Sum B_j*f(Z_j) = Sum D_j*Z_j - rkD(1) = .3333333333333333333333333333333333d0 - rkD(2) = -.8914115380582557157653087040196127d0 - rkD(3) = .1558078204724922382431975370686279d1 - - ! Classical error estimator: - ! H* Sum (b_j-bhat_j) f(Z_j) = H*E(0)*F(0) + Sum E_j Z_j - rkE(0) = .2748888295956773677478286035994148d0*b0 - rkE(1) = -1.374444147978386838739143017997074d0*b0 - rkE(2) = -1.335337922441686804550326197041126d0*b0 - rkE(3) = .235782604058977333559011782643466d0*b0 - - ! Sdirk error estimator - rkBgam(0) = 0.0d0 - rkBgam(1) = .1948150124588532186183490991130616d-1 - rkBgam(2) = .7575249005733381398986810981093584d0 - rkBgam(3) = -.518952314149008295083446116200793d-1 - rkBgam(4) = .2748888295956773677478286035994148d0 - - ! H* Sum Bgam_j*f(Z_j) = H*Bgam(0)*f(0) + Sum Theta_j*Z_j - rkTheta(1) = -1.224370034375505083904362087063351d0 - rkTheta(2) = .9340045331532641409047527962010133d0 - rkTheta(3) = .4656990124352088397561234800640929d0 - - ! ELO = local order of classical error estimator - rkELO = 4.0d0 - - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - !~~~> Diagonalize the RK matrix: - ! rkTinv * inv(rkA) * rkT = - ! | rkGamma 0 0 | - ! | 0 rkAlpha -rkBeta | - ! | 0 rkBeta rkAlpha | - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - rkGamma = 3.637834252744495732208418513577775d0 - rkAlpha = 2.681082873627752133895790743211112d0 - rkBeta = 3.050430199247410569426377624787569d0 - - rkT(1,1) = .424293819848497965354371036408369d0 - rkT(1,2) = -.3235571519651980681202894497035503d0 - rkT(1,3) = -.522137786846287839586599927945048d0 - rkT(2,1) = .57594609499806128896291585429339d-1 - rkT(2,2) = .3148663231849760131614374283783d-2 - rkT(2,3) = .452429247674359778577728510381731d0 - rkT(3,1) = 1.d0 - rkT(3,2) = 1.d0 - rkT(3,3) = 0.d0 - - rkTinv(1,1) = 1.233523612685027760114769983066164d0 - rkTinv(1,2) = 1.423580134265707095505388133369554d0 - rkTinv(1,3) = .3946330125758354736049045150429624d0 - rkTinv(2,1) = -1.233523612685027760114769983066164d0 - rkTinv(2,2) = -1.423580134265707095505388133369554d0 - rkTinv(2,3) = .6053669874241645263950954849570376d0 - rkTinv(3,1) = -.1484438963257383124456490049673414d0 - rkTinv(3,2) = 2.038974794939896109682070471785315d0 - rkTinv(3,3) = -.544501292892686735299355831692542d-1 - - rkTinvAinv(1,1) = 4.487354449794728738538663081025420d0 - rkTinvAinv(1,2) = 5.178748573958397475446442544234494d0 - rkTinvAinv(1,3) = 1.435609490412123627047824222335563d0 - rkTinvAinv(2,1) = -2.854361287939276673073807031221493d0 - rkTinvAinv(2,2) = -1.003648660720543859000994063139137d+1 - rkTinvAinv(2,3) = 1.789135380979465422050817815017383d0 - rkTinvAinv(3,1) = -4.160768067752685525282947313530352d0 - rkTinvAinv(3,2) = 1.124128569859216916690209918405860d0 - rkTinvAinv(3,3) = 1.700644430961823796581896350418417d0 - - rkAinvT(1,1) = 1.543510591072668287198054583233180d0 - rkAinvT(1,2) = -2.460228411937788329157493833295004d0 - rkAinvT(1,3) = -.412906170450356277003910443520499d0 - rkAinvT(2,1) = .209519643211838264029272585946993d0 - rkAinvT(2,2) = 1.388545667194387164417459732995766d0 - rkAinvT(2,3) = 1.20339553005832004974976023130002d0 - rkAinvT(3,1) = 3.637834252744495732208418513577775d0 - rkAinvT(3,2) = 2.681082873627752133895790743211112d0 - rkAinvT(3,3) = -3.050430199247410569426377624787569d0 - - END SUBROUTINE Radau1A_Coefficients - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - END SUBROUTINE RungeKuttaADJ ! and all its internal procedures -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE FUN_CHEM(T, V, FCT) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters - USE KPP_ROOT_Global - USE KPP_ROOT_Function, ONLY: Fun - USE KPP_ROOT_Rates, ONLY: Update_SUN, Update_RCONST, Update_PHOTO - - IMPLICIT NONE - - KPP_REAL :: V(NVAR), FCT(NVAR) - KPP_REAL :: T, Told - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Update_PHOTO() - TIME = Told - - CALL Fun(V, FIX, RCONST, FCT) - - END SUBROUTINE FUN_CHEM - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE JAC_CHEM (T, V, JF) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters - USE KPP_ROOT_Global - USE KPP_ROOT_JacobianSP - USE KPP_ROOT_Jacobian, ONLY: Jac_SP - USE KPP_ROOT_Rates, ONLY: Update_SUN, Update_RCONST, Update_PHOTO - - IMPLICIT NONE - - KPP_REAL :: V(NVAR), T , Told -#ifdef FULL_ALGEBRA - KPP_REAL :: JV(LU_NONZERO), JF(NVAR,NVAR) - INTEGER :: i, j -#else - KPP_REAL :: JF(LU_NONZERO) -#endif - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Update_PHOTO() - TIME = Told - -#ifdef FULL_ALGEBRA - CALL Jac_SP(V, FIX, RCONST, JV) - DO j=1,NVAR - DO i=1,NVAR - JF(i,j) = 0.0d0 - END DO - END DO - DO i=1,LU_NONZERO - JF(LU_IROW(i),LU_ICOL(i)) = JV(i) - END DO -#else - CALL Jac_SP(V, FIX, RCONST, JF) -#endif - - END SUBROUTINE JAC_CHEM - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -END MODULE KPP_ROOT_Integrator diff --git a/int.modified_WCOPY/runge_kutta_tlm.def b/int.modified_WCOPY/runge_kutta_tlm.def deleted file mode 100644 index bc99e6db97bc055da8feb5527080796bf3fc9a72..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/runge_kutta_tlm.def +++ /dev/null @@ -1,8 +0,0 @@ - -#FUNCTION AGGREGATE -#JACOBIAN SPARSE_LU_ROW - -#DOUBLE ON -#INTFILE runge_kutta_tlm - - diff --git a/int.modified_WCOPY/runge_kutta_tlm.f90 b/int.modified_WCOPY/runge_kutta_tlm.f90 deleted file mode 100644 index af7433c09b020e9d3171dc97dcb9b027db118008..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/runge_kutta_tlm.f90 +++ /dev/null @@ -1,2218 +0,0 @@ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! -! RungeKuttaTLM - Tangent Linear Model of Fully Implicit 3-stage RK: ! -! * Radau-2A quadrature (order 5) ! -! * Radau-1A quadrature (order 5) ! -! * Lobatto-3C quadrature (order 4) ! -! * Gauss quadrature (order 6) ! -! By default the code employs the KPP sparse linear algebra routines ! -! Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK) ! -! ! -! (C) Adrian Sandu, August 2005 ! -! Virginia Polytechnic Institute and State University ! -! Contact: sandu@cs.vt.edu ! -! Revised by Philipp Miehe and Adrian Sandu, May 2006 ! -! This implementation is part of KPP - the Kinetic PreProcessor ! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! - -MODULE KPP_ROOT_Integrator - - USE KPP_ROOT_Precision - USE KPP_ROOT_Parameters, ONLY: NVAR, NSPEC, NFIX, LU_NONZERO - USE KPP_ROOT_Global, ONLY: FIX, RCONST, TIME - USE KPP_ROOT_Jacobian - USE KPP_ROOT_LinearAlgebra - - IMPLICIT NONE - PUBLIC - SAVE - -!~~~> Statistics on the work performed by the Runge-Kutta method - INTEGER, PARAMETER :: Nfun=1, Njac=2, Nstp=3, Nacc=4, & - Nrej=5, Ndec=6, Nsol=7, Nsng=8, Ntexit=1, Nhacc=2, Nhnew=3 - -CONTAINS - - ! ************************************************************************** - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE INTEGRATE_TLM( NTLM, Y, Y_tlm, TIN, TOUT, ATOL_tlm, RTOL_tlm, & - ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U, IERR_U ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters, ONLY: NVAR - USE KPP_ROOT_Global, ONLY: ATOL,RTOL,VAR - - IMPLICIT NONE - -!~~~> Y - Concentrations - KPP_REAL :: Y(NVAR) -!~~~> NTLM - No. of sensitivity coefficients - INTEGER NTLM -!~~~> Y_tlm - Sensitivities of concentrations -! Note: Y_tlm (1:NVAR,j) contains sensitivities of -! Y(1:NVAR) w.r.t. the j-th parameter, j=1...NTLM - KPP_REAL :: Y_tlm(NVAR,NTLM) - KPP_REAL :: TIN ! TIN - Start Time - KPP_REAL :: TOUT ! TOUT - End Time - KPP_REAL, INTENT(IN), OPTIONAL :: RTOL_tlm(NVAR,NTLM),ATOL_tlm(NVAR,NTLM) - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - KPP_REAL, INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - KPP_REAL, INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: IERR_U - - INTEGER :: IERR - - KPP_REAL :: RCNTRL(20), RSTATUS(20), T1, T2 - INTEGER :: ICNTRL(20), ISTATUS(20) - INTEGER, SAVE :: Ntotal = 0 - - ICNTRL(1:20) = 0 - RCNTRL(1:20) = 0.0_dp - - !~~~> fine-tune the integrator: - ICNTRL(2) = 0 ! Tolerances: 0=vector, 1=scalar - ICNTRL(5) = 8 ! Max no. of Newton iterations - ICNTRL(6) = 0 ! Starting values for Newton are: 0=interpolated, 1=zero - ICNTRL(7) = 1 ! TLM solution: 0=iterations, 1=direct - ICNTRL(9) = 0 ! TLM Newton iteration error: 0=fwd Newton, 1=TLM Newton error est - ICNTRL(10) = 1 ! FWD error estimation: 0=classic, 1=SDIRK - ICNTRL(11) = 1 ! Step size ontroller: 1=Gustaffson, 2=classic - ICNTRL(12) = 0 ! Trunc. error estimate: 0=fwd only, 1=fwd and TLM - - !~~~> if optional parameters are given, and if they are >0, - ! then use them to overwrite default settings - IF (PRESENT(ICNTRL_U)) THEN - WHERE(ICNTRL_U(:) > 0) ICNTRL(:) = ICNTRL_U(:) - END IF - IF (PRESENT(RCNTRL_U)) THEN - WHERE(RCNTRL_U(:) > 0) RCNTRL(:) = RCNTRL_U(:) - END IF - - T1 = TIN; T2 = TOUT - CALL RungeKuttaTLM( NVAR, NTLM, Y, Y_tlm, T1, T2, RTOL, ATOL, & - RTOL_tlm, ATOL_tlm, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR ) - - Ntotal = Ntotal + ISTATUS(Nstp) - PRINT*,'NSTEPS=',ISTATUS(Nstp),' (',Ntotal,')',' O3=', VAR(ind_O3) - - ! if optional parameters are given for output - ! use them to store information in them - IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(:) - IF (PRESENT(RSTATUS_U)) RSTATUS_U(:) = RSTATUS(:) - IF (PRESENT(IERR_U)) IERR_U = IERR - - IF (IERR < 0) THEN - PRINT *,'Runge-Kutta-TLM: Unsuccessful exit at T=', TIN,' (IERR=',IERR,')' - ENDIF - - END SUBROUTINE INTEGRATE_TLM - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RungeKuttaTLM( N, NTLM, Y, Y_tlm, T, Tend,RelTol,AbsTol, & - RelTol_tlm,AbsTol_tlm,RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! This implementation is based on the book and the code Radau5: -! -! E. HAIRER AND G. WANNER -! "SOLVING ORDINARY DIFFERENTIAL EQUATIONS II. -! STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS." -! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS 14, -! SPRINGER-VERLAG (1991) -! -! UNIVERSITE DE GENEVE, DEPT. DE MATHEMATIQUES -! CH-1211 GENEVE 24, SWITZERLAND -! E-MAIL: HAIRER@DIVSUN.UNIGE.CH, WANNER@DIVSUN.UNIGE.CH -! -! Methods: -! * Radau-2A quadrature (order 5) -! * Radau-1A quadrature (order 5) -! * Lobatto-3C quadrature (order 4) -! * Gauss quadrature (order 6) -! -! (C) Adrian Sandu, August 2005 -! Virginia Polytechnic Institute and State University -! Contact: sandu@cs.vt.edu -! Revised by Philipp Miehe and Adrian Sandu, May 2006 -! This implementation is part of KPP - the Kinetic PreProcessor -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT ARGUMENTS: -! ---------------- -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -! N Dimension of the system -! T Initial time value -! -! Tend Final T value (Tend-T may be positive or negative) -! -! Y(N) Initial values for Y -! -! RelTol,AbsTol Relative and absolute error tolerances. -! for ICNTRL(2) = 0: AbsTol, RelTol are N-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -!~~~> Integer input parameters: -! -! ICNTRL(1) = not used -! -! ICNTRL(2) = 0: AbsTol, RelTol are NVAR-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ICNTRL(3) = RK method selection -! = 1: Radau-2A (the default) -! = 2: Lobatto-3C -! = 3: Gauss -! = 4: Radau-1A -! -! ICNTRL(4) -> maximum number of integration steps -! For ICNTRL(4)=0 the default value of 100000 is used -! -! ICNTRL(5) -> maximum number of Newton iterations -! For ICNTRL(5)=0 the default value of 8 is used -! -! ICNTRL(6) -> starting values of Newton iterations: -! ICNTRL(6)=0 : starting values are obtained from -! the extrapolated collocation solution -! (the default) -! ICNTRL(6)=1 : starting values are zero -! -! ICNTRL(7) -> method to solve TLM equations: -! ICNTRL(7)=0 : modified Newton re-using LU (the default) -! ICNTRL(7)=1 : direct solution (additional one *big* LU factorization) -! -! ICNTRL(9) -> switch for TLM Newton iteration error estimation strategy -! ICNTRL(9) = 0: base number of iterations as forward solution -! ICNTRL(9) = 1: use RTOL_tlm and ATOL_tlm to calculate -! error estimation for TLM at Newton stages -! -! ICNTRL(10) -> switch for error estimation strategy -! ICNTRL(10) = 0: one additional stage: at c=0, -! see Hairer (default) -! ICNTRL(10) = 1: two additional stages: one at c=0 -! and one SDIRK at c=1, stiffly accurate -! -! ICNTRL(11) -> switch for step size strategy -! ICNTRL(11)=1: mod. predictive controller (Gustafsson, default) -! ICNTRL(11)=2: classical step size control -! the choice 1 seems to produce safer results; -! for simple problems, the choice 2 produces -! often slightly faster runs -! -! ICNTRL(12) -> switch for TLM truncation error control -! ICNTRL(12) = 0: TLM error is not used -! ICNTRL(12) = 1: TLM error is computed and used -! -! -!~~~> Real input parameters: -! -! RCNTRL(1) -> Hmin, lower bound for the integration step size -! (highly recommended to keep Hmin = ZERO, the default) -! -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! -! RCNTRL(3) -> Hstart, the starting step size -! -! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! -! RCNTRL(5) -> FacMax, upper bound on step increase factor (default=6) -! -! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! -! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -! -! RCNTRL(8) -> ThetaMin. If Newton convergence rate smaller -! than ThetaMin the Jacobian is not recomputed; -! (default=0.001) -! -! RCNTRL(9) -> NewtonTol, stopping criterion for Newton's method -! (default=0.03) -! -! RCNTRL(10) -> Qmin -! -! RCNTRL(11) -> Qmax. If Qmin < Hnew/Hold < Qmax, then the -! step size is kept constant and the LU factorization -! reused (default Qmin=1, Qmax=1.2) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! -! OUTPUT ARGUMENTS: -! ----------------- -! -! T -> T value for which the solution has been computed -! (after successful return T=Tend). -! -! Y(N) -> Numerical solution at T -! -! IERR -> Reports on successfulness upon return: -! = 1 for success -! < 0 for error (value equals error code) -! -! ISTATUS(1) -> No. of function calls -! ISTATUS(2) -> No. of jacobian calls -! ISTATUS(3) -> No. of steps -! ISTATUS(4) -> No. of accepted steps -! ISTATUS(5) -> No. of rejected steps (except at very beginning) -! ISTATUS(6) -> No. of LU decompositions -! ISTATUS(7) -> No. of forward/backward substitutions -! ISTATUS(8) -> No. of singular matrix decompositions -! -! RSTATUS(1) -> Texit, the time corresponding to the -! computed Y upon return -! RSTATUS(2) -> Hexit, last accepted step before exit -! RSTATUS(3) -> Hnew, last predicted step (not yet taken) -! For multiple restarts, use Hnew as Hstart -! in the subsequent run -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - INTEGER :: N, NTLM - KPP_REAL :: Y(N),Y_tlm(N,NTLM) - KPP_REAL :: AbsTol(N),RelTol(N),RCNTRL(20),RSTATUS(20) - KPP_REAL :: AbsTol_tlm(N,NTLM),RelTol_tlm(N,NTLM) - INTEGER :: ICNTRL(20), ISTATUS(20) - LOGICAL :: StartNewton, Gustafsson, SdirkError, TLMNewtonEst, & - TLMtruncErr, TLMDirect - INTEGER :: IERR, ITOL - KPP_REAL :: T,Tend - - !~~~> Control arguments - INTEGER :: Max_no_steps, NewtonMaxit, rkMethod - KPP_REAL :: Hmin,Hmax,Hstart,Qmin,Qmax - KPP_REAL :: Roundoff, ThetaMin, NewtonTol - KPP_REAL :: FacSafe,FacMin,FacMax,FacRej - ! Runge-Kutta method parameters - INTEGER, PARAMETER :: R2A=1, R1A=2, L3C=3, GAU=4, L3A=5 - KPP_REAL :: rkT(3,3), rkTinv(3,3), rkTinvAinv(3,3), rkAinvT(3,3), & - rkA(3,3), rkB(3), rkC(3), rkD(0:3), rkE(0:3), & - rkBgam(0:4), rkBhat(0:4), rkTheta(0:3), & - rkGamma, rkAlpha, rkBeta, rkELO - !~~~> Local variables - INTEGER :: i - KPP_REAL, PARAMETER :: ZERO = 0.0d0, ONE = 1.0d0 - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! SETTING THE PARAMETERS -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IERR = 0 - ISTATUS(1:20) = 0 - RSTATUS(1:20) = ZERO - -!~~~> ICNTRL(1) - autonomous system - not used -!~~~> ITOL: 1 for vector and 0 for scalar AbsTol/RelTol - IF (ICNTRL(2) == 0) THEN - ITOL = 1 - ELSE - ITOL = 0 - END IF -!~~~> Error control selection - IF (ICNTRL(10) == 0) THEN - SdirkError = .FALSE. - ELSE - SdirkError = .TRUE. - END IF -!~~~> Method selection - SELECT CASE (ICNTRL(3)) - CASE (0,1) - CALL Radau2A_Coefficients - CASE (2) - CALL Lobatto3C_Coefficients - CASE (3) - CALL Gauss_Coefficients - CASE (4) - CALL Radau1A_Coefficients - CASE DEFAULT - WRITE(6,*) 'ICNTRL(3)=',ICNTRL(3) - CALL RK_ErrorMsg(-13,T,ZERO,IERR) - END SELECT -!~~~> Max_no_steps: the maximal number of time steps - IF (ICNTRL(4) == 0) THEN - Max_no_steps = 200000 - ELSE - Max_no_steps=ICNTRL(4) - IF (Max_no_steps <= 0) THEN - WRITE(6,*) 'ICNTRL(4)=',ICNTRL(4) - CALL RK_ErrorMsg(-1,T,ZERO,IERR) - END IF - END IF -!~~~> NewtonMaxit maximal number of Newton iterations - IF (ICNTRL(5) == 0) THEN - NewtonMaxit = 8 - ELSE - NewtonMaxit=ICNTRL(5) - IF (NewtonMaxit <= 0) THEN - WRITE(6,*) 'ICNTRL(5)=',ICNTRL(5) - CALL RK_ErrorMsg(-2,T,ZERO,IERR) - END IF - END IF -!~~~> StartNewton: Use extrapolation for starting values of Newton iterations - IF (ICNTRL(6) == 0) THEN - StartNewton = .TRUE. - ELSE - StartNewton = .FALSE. - END IF -!~~~> Solve TLM equations directly or by Newton iterations - IF (ICNTRL(7) == 0) THEN - TLMDirect = .FALSE. - ELSE - TLMDirect = .TRUE. - END IF -!~~~> Newton iteration error control selection - IF (ICNTRL(9) == 0) THEN - TLMNewtonEst = .FALSE. - ELSE - TLMNewtonEst = .TRUE. - END IF -!~~~> Gustafsson: step size controller - IF(ICNTRL(11) == 0)THEN - Gustafsson = .TRUE. - ELSE - Gustafsson = .FALSE. - END IF -!~~~> TLM truncation error control selection - IF (ICNTRL(12) == 0) THEN - TLMtruncErr = .FALSE. - ELSE - TLMtruncErr = .TRUE. - END IF - -!~~~> Roundoff: smallest number s.t. 1.0 + Roundoff > 1.0 - Roundoff=WLAMCH('E'); - -!~~~> Hmin = minimal step size - IF (RCNTRL(1) == ZERO) THEN - Hmin = ZERO - ELSE - Hmin = MIN(ABS(RCNTRL(1)),ABS(Tend-T)) - END IF -!~~~> Hmax = maximal step size - IF (RCNTRL(2) == ZERO) THEN - Hmax = ABS(Tend-T) - ELSE - Hmax = MIN(ABS(RCNTRL(2)),ABS(Tend-T)) - END IF -!~~~> Hstart = starting step size - IF (RCNTRL(3) == ZERO) THEN - Hstart = ZERO - ELSE - Hstart = MIN(ABS(RCNTRL(3)),ABS(Tend-T)) - END IF -!~~~> FacMin: lower bound on step decrease factor - IF(RCNTRL(4) == ZERO)THEN - FacMin = 0.2d0 - ELSE - FacMin = RCNTRL(4) - END IF -!~~~> FacMax: upper bound on step increase factor - IF(RCNTRL(5) == ZERO)THEN - FacMax = 8.D0 - ELSE - FacMax = RCNTRL(5) - END IF -!~~~> FacRej: step decrease factor after 2 consecutive rejections - IF(RCNTRL(6) == ZERO)THEN - FacRej = 0.1d0 - ELSE - FacRej = RCNTRL(6) - END IF -!~~~> FacSafe: by which the new step is slightly smaller -! than the predicted value - IF (RCNTRL(7) == ZERO) THEN - FacSafe=0.9d0 - ELSE - FacSafe=RCNTRL(7) - END IF - IF ( (FacMax < ONE) .OR. (FacMin > ONE) .OR. & - (FacSafe <= 1.0d-3) .OR. (FacSafe >= ONE) ) THEN - WRITE(6,*)'RCNTRL(4:7)=',RCNTRL(4:7) - CALL RK_ErrorMsg(-4,T,ZERO,IERR) - END IF - -!~~~> ThetaMin: decides whether the Jacobian should be recomputed - IF (RCNTRL(8) == ZERO) THEN - ThetaMin = 1.0d-3 - ELSE - ThetaMin=RCNTRL(8) - IF (ThetaMin <= 0.0d0 .OR. ThetaMin >= 1.0d0) THEN - WRITE(6,*) 'RCNTRL(8)=', RCNTRL(8) - CALL RK_ErrorMsg(-5,T,ZERO,IERR) - END IF - END IF -!~~~> NewtonTol: stopping crierion for Newton's method - IF (RCNTRL(9) == ZERO) THEN - NewtonTol = 3.0d-2 - ELSE - NewtonTol = RCNTRL(9) - IF (NewtonTol <= Roundoff) THEN - WRITE(6,*) 'RCNTRL(9)=',RCNTRL(9) - CALL RK_ErrorMsg(-6,T,ZERO,IERR) - END IF - END IF -!~~~> Qmin AND Qmax: IF Qmin < Hnew/Hold < Qmax then step size = const. - IF (RCNTRL(10) == ZERO) THEN - Qmin=1.D0 - ELSE - Qmin=RCNTRL(10) - END IF - IF (RCNTRL(11) == ZERO) THEN - Qmax=1.2D0 - ELSE - Qmax=RCNTRL(11) - END IF - IF (Qmin > ONE .OR. Qmax < ONE) THEN - WRITE(6,*) 'RCNTRL(10:11)=',Qmin,Qmax - CALL RK_ErrorMsg(-7,T,ZERO,IERR) - END IF -!~~~> Check if tolerances are reasonable - IF (ITOL == 0) THEN - IF (AbsTol(1) <= ZERO.OR.RelTol(1) <= 10.d0*Roundoff) THEN - WRITE (6,*) 'AbsTol/RelTol=',AbsTol,RelTol - CALL RK_ErrorMsg(-8,T,ZERO,IERR) - END IF - ELSE - DO i=1,N - IF (AbsTol(i) <= ZERO.OR.RelTol(i) <= 10.d0*Roundoff) THEN - WRITE (6,*) 'AbsTol/RelTol(',i,')=',AbsTol(i),RelTol(i) - CALL RK_ErrorMsg(-8,T,ZERO,IERR) - END IF - END DO - END IF - -!~~~> Parameters are wrong - IF (IERR < 0) RETURN - -!~~~> Call the core method - CALL RK_IntegratorTLM( N,NTLM,T,Tend,Y,Y_tlm,IERR ) - - CONTAINS ! Internal procedures to RungeKutta - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_IntegratorTLM( N,NTLM,T,Tend,Y,Y_tlm,IERR ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE -!~~~> Arguments - INTEGER, INTENT(IN) :: N, NTLM - KPP_REAL, INTENT(IN) :: Tend - KPP_REAL, INTENT(INOUT) :: T, Y(N), Y_tlm(NVAR,NTLM) - INTEGER, INTENT(OUT) :: IERR - -!~~~> Local variables -#ifdef FULL_ALGEBRA - KPP_REAL, DIMENSION(NVAR,NVAR) :: & - FJAC, E1, Jac1, Jac2, Jac3 - COMPLEX(kind=dp), DIMENSION(NVAR,NVAR) :: E2 - KPP_REAL, DIMENSION(3*NVAR,3*NVAR) :: Jbig, Ebig - KPP_REAL, DIMENSION(3*NVAR) :: Zbig - INTEGER, DIMENSION(3*NVAR) :: IPbig -#else - KPP_REAL, DIMENSION(LU_NONZERO) :: & - FJAC, E1, Jac1, Jac2, Jac3 - COMPLEX(kind=dp), DIMENSION(LU_NONZERO) :: E2 -! Next 3 commented lines for sparse big linear algebra: -! KPP_REAL, DIMENSION(3,3,LU_NONZERO) :: Jbig -! KPP_REAL, DIMENSION(3,NVAR) :: Zbig -! INTEGER, DIMENSION(3,NVAR) :: IPbig - KPP_REAL, DIMENSION(3*NVAR,3*NVAR) :: Jbig, Ebig - KPP_REAL, DIMENSION(3*NVAR) :: Zbig - INTEGER, DIMENSION(3*NVAR) :: IPbig -#endif - KPP_REAL, DIMENSION(NVAR) :: Z1,Z2,Z3,Z4,SCAL,DZ1,DZ2,DZ3,DZ4, & - G,TMP,SCAL_tlm - KPP_REAL, DIMENSION(NVAR,NTLM) :: Z1_tlm,Z2_tlm,Z3_tlm - KPP_REAL :: CONT(NVAR,3), Tdirection, H, Hacc, Hnew, Hold, Fac, & - FacGus, Theta, Err, ErrOld, NewtonRate, NewtonIncrement, & - Hratio, Qnewton, NewtonPredictedErr,NewtonIncrementOld, & - ThetaTLM, ThetaSD - INTEGER :: i,j,IP1(NVAR),IP2(NVAR),NewtonIter, ISING, Nconsecutive, itlm - INTEGER :: saveNiter, NewtonIterTLM, info - LOGICAL :: Reject, FirstStep, SkipJac, NewtonDone, SkipLU - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Initial setting -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - Tdirection = SIGN(ONE,Tend-T) - H = MIN( MAX(ABS(Hmin),ABS(Hstart)) , Hmax ) - IF (ABS(H) <= 10.d0*Roundoff) H = 1.0d-6 - H = SIGN(H,Tdirection) - Hold = H - Reject = .FALSE. - FirstStep = .TRUE. - SkipJac = .FALSE. - SkipLU = .FALSE. - IF ((T+H*1.0001D0-Tend)*Tdirection >= ZERO) THEN - H = Tend-T - END IF - Nconsecutive = 0 - CALL RK_ErrorScale(N,ITOL,AbsTol,RelTol,Y,SCAL) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Time loop begins -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -Tloop: DO WHILE ( (Tend-T)*Tdirection - Roundoff > ZERO ) - - IF ( .NOT.SkipLU ) THEN ! This time around skip the Jac update and LU - !~~~> Compute the Jacobian matrix - IF ( .NOT.SkipJac ) THEN - CALL JAC_CHEM(T,Y,FJAC) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - END IF - !~~~> Compute the matrices E1 and E2 and their decompositions - CALL RK_Decomp(N,H,FJAC,E1,IP1,E2,IP2,ISING) - IF (ISING /= 0) THEN - ISTATUS(Nsng) = ISTATUS(Nsng) + 1; Nconsecutive = Nconsecutive + 1 - IF (Nconsecutive >= 5) THEN - CALL RK_ErrorMsg(-12,T,H,IERR); RETURN - END IF - H=H*0.5d0; Reject=.TRUE.; SkipJac = .TRUE.; SkipLU = .FALSE. - CYCLE Tloop - ELSE - Nconsecutive = 0 - END IF - END IF ! SkipLU - - ISTATUS(Nstp) = ISTATUS(Nstp) + 1 - IF (ISTATUS(Nstp) > Max_no_steps) THEN - PRINT*,'Max number of time steps is ',Max_no_steps - CALL RK_ErrorMsg(-9,T,H,IERR); RETURN - END IF - IF (0.1D0*ABS(H) <= ABS(T)*Roundoff) THEN - CALL RK_ErrorMsg(-10,T,H,IERR); RETURN - END IF - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Loop for the simplified Newton iterations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - !~~~> Starting values for Newton iteration - IF ( FirstStep .OR. (.NOT.StartNewton) ) THEN - CALL Set2zero(N,Z1) - CALL Set2zero(N,Z2) - CALL Set2zero(N,Z3) - ELSE - ! Evaluate quadratic polynomial - CALL RK_Interpolate('eval',N,H,Hold,Z1,Z2,Z3,CONT) - END IF - - !~~~> Initializations for Newton iteration - NewtonDone = .FALSE. - Fac = 0.5d0 ! Step reduction if too many iterations - -NewtonLoop:DO NewtonIter = 1, NewtonMaxit - - !~~~> Prepare the right-hand side - CALL RK_PrepareRHS(N,T,H,Y,Z1,Z2,Z3,DZ1,DZ2,DZ3) - - !~~~> Solve the linear systems - CALL RK_Solve( N,H,E1,IP1,E2,IP2,DZ1,DZ2,DZ3,ISING ) - - NewtonIncrement = SQRT( ( RK_ErrorNorm(N,SCAL,DZ1)**2 + & - RK_ErrorNorm(N,SCAL,DZ2)**2 + & - RK_ErrorNorm(N,SCAL,DZ3)**2 )/3.0d0 ) - - IF ( NewtonIter == 1 ) THEN - Theta = ABS(ThetaMin) - NewtonRate = 2.0d0 - ELSE - Theta = NewtonIncrement/NewtonIncrementOld - IF (Theta < 0.99d0) THEN - NewtonRate = Theta/(ONE-Theta) - ELSE ! Non-convergence of Newton: Theta too large - EXIT NewtonLoop - END IF - IF ( NewtonIter < NewtonMaxit ) THEN - ! Predict error at the end of Newton process - NewtonPredictedErr = NewtonIncrement & - *Theta**(NewtonMaxit-NewtonIter)/(ONE-Theta) - IF (NewtonPredictedErr >= NewtonTol) THEN - ! Non-convergence of Newton: predicted error too large - Qnewton = MIN(10.0d0,NewtonPredictedErr/NewtonTol) - Fac=0.8d0*Qnewton**(-ONE/(1+NewtonMaxit-NewtonIter)) - EXIT NewtonLoop - END IF - END IF - END IF - - NewtonIncrementOld = MAX(NewtonIncrement,Roundoff) - ! Update solution - CALL WAXPY(N,-ONE,DZ1,1,Z1,1) ! Z1 <- Z1 - DZ1 - CALL WAXPY(N,-ONE,DZ2,1,Z2,1) ! Z2 <- Z2 - DZ2 - CALL WAXPY(N,-ONE,DZ3,1,Z3,1) ! Z3 <- Z3 - DZ3 - - ! Check error in Newton iterations - NewtonDone = (NewtonRate*NewtonIncrement <= NewtonTol) - IF (NewtonDone) THEN - ! Tune error in TLM variables by defining the minimal number of Newton iterations. - saveNiter = NewtonIter+1 - EXIT NewtonLoop - END IF - IF (NewtonIter == NewtonMaxit) THEN - PRINT*, 'Slow or no convergence in Newton Iteration: Max no. of', & - 'Newton iterations reached' - END IF - - END DO NewtonLoop - - IF (.NOT.NewtonDone) THEN - !CALL RK_ErrorMsg(-12,T,H,IERR); - H = Fac*H; Reject=.TRUE.; SkipJac = .TRUE.; SkipLU = .FALSE. - CYCLE Tloop - END IF - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> SDIRK Stage -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IF (SdirkError) THEN - -!~~~> Starting values for Newton iterations - Z4(1:N) = Z3(1:N) - -!~~~> Prepare the loop-independent part of the right-hand side - CALL FUN_CHEM(T,Y,DZ4) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - -! G = H*rkBgam(0)*DZ4 + rkTheta(1)*Z1 + rkTheta(2)*Z2 + rkTheta(3)*Z3 - CALL Set2Zero(N, G) - CALL WAXPY(N,rkBgam(0)*H, DZ4,1,G,1) - CALL WAXPY(N,rkTheta(1),Z1,1,G,1) - CALL WAXPY(N,rkTheta(2),Z2,1,G,1) - CALL WAXPY(N,rkTheta(3),Z3,1,G,1) - - !~~~> Initializations for Newton iteration - NewtonDone = .FALSE. - Fac = 0.5d0 ! Step reduction factor if too many iterations - -SDNewtonLoop:DO NewtonIter = 1, NewtonMaxit - -!~~~> Prepare the loop-dependent part of the right-hand side - CALL WADD(N,Y,Z4,TMP) ! TMP <- Y + Z4 - CALL FUN_CHEM(T+H,TMP,DZ4) ! DZ4 <- Fun(Y+Z4) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 -! DZ4(1:N) = (G(1:N)-Z4(1:N))*(rkGamma/H) + DZ4(1:N) - CALL WAXPY (N, -ONE*rkGamma/H, Z4, 1, DZ4, 1) - CALL WAXPY (N, rkGamma/H, G,1, DZ4,1) - -!~~~> Solve the linear system -#ifdef FULL_ALGEBRA - CALL DGETRS( 'N', N, 1, E1, N, IP1, DZ4, N, ISING ) -#else - CALL KppSolve(E1, DZ4) -#endif - -!~~~> Check convergence of Newton iterations - NewtonIncrement = RK_ErrorNorm(N,SCAL,DZ4) - IF ( NewtonIter == 1 ) THEN - ThetaSD = ABS(ThetaMin) - NewtonRate = 2.0d0 - ELSE - ThetaSD = NewtonIncrement/NewtonIncrementOld - IF (ThetaSD < 0.99d0) THEN - NewtonRate = ThetaSD/(ONE-ThetaSD) - ! Predict error at the end of Newton process - NewtonPredictedErr = NewtonIncrement & - *ThetaSD**(NewtonMaxit-NewtonIter)/(ONE-ThetaSD) - IF (NewtonPredictedErr >= NewtonTol) THEN - ! Non-convergence of Newton: predicted error too large - Qnewton = MIN(10.0d0,NewtonPredictedErr/NewtonTol) - Fac = 0.8d0*Qnewton**(-ONE/(1+NewtonMaxit-NewtonIter)) - EXIT SDNewtonLoop - END IF - ELSE ! Non-convergence of Newton: Theta too large - print*,'Theta too large: ',ThetaSD - EXIT SDNewtonLoop - END IF - END IF - NewtonIncrementOld = NewtonIncrement - ! Update solution: Z4 <-- Z4 + DZ4 - CALL WAXPY(N,ONE,DZ4,1,Z4,1) - - ! Check error in Newton iterations - NewtonDone = (NewtonRate*NewtonIncrement <= NewtonTol) - IF (NewtonDone) EXIT SDNewtonLoop - - END DO SDNewtonLoop - - IF (.NOT.NewtonDone) THEN - H = Fac*H; Reject=.TRUE.; SkipJac = .TRUE.; SkipLU = .FALSE. - CYCLE Tloop - END IF - -!~~~> End of implified SDIRK Newton iterations - END IF - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Error estimation, forward solution -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IF (SdirkError) THEN -! DZ4(1:N) = rkD(1)*Z1 + rkD(2)*Z2 + rkD(3)*Z3 - Z4 - CALL Set2Zero(N, DZ4) - IF (rkD(1) /= ZERO) CALL WAXPY(N, rkD(1), Z1, 1, DZ4, 1) - IF (rkD(2) /= ZERO) CALL WAXPY(N, rkD(2), Z2, 1, DZ4, 1) - IF (rkD(3) /= ZERO) CALL WAXPY(N, rkD(3), Z3, 1, DZ4, 1) - CALL WAXPY(N, -ONE, Z4, 1, DZ4, 1) - Err = RK_ErrorNorm(N,SCAL,DZ4) - ELSE - CALL RK_ErrorEstimate(N,H,Y,T, & - E1,IP1,Z1,Z2,Z3,SCAL,Err,FirstStep,Reject) - END IF - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> If error small enough, compute TLM solution -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IF (Err < ONE) THEN - - !~~~> Jacobian values - CALL WADD(N,Y,Z1,TMP) ! TMP <- Y + Z1 - CALL JAC_CHEM(T+rkC(1)*H,TMP,Jac1) ! Jac1 <- Jac(Y+Z1) - CALL WADD(N,Y,Z2,TMP) ! TMP <- Y + Z2 - CALL JAC_CHEM(T+rkC(2)*H,TMP,Jac2) ! Jac2 <- Jac(Y+Z2) - CALL WADD(N,Y,Z3,TMP) ! TMP <- Y + Z3 - CALL JAC_CHEM(T+rkC(3)*H,TMP,Jac3) ! Jac3 <- Jac(Y+Z3) - -TLMDIR: IF (TLMDirect) THEN - -#ifdef FULL_ALGEBRA - !~~~> Construct the full Jacobian - DO j=1,N - DO i=1,N - Jbig(i,j) = -H*rkA(1,1)*Jac1(i,j) - Jbig(N+i,j) = -H*rkA(2,1)*Jac1(i,j) - Jbig(2*N+i,j) = -H*rkA(3,1)*Jac1(i,j) - Jbig(i,N+j) = -H*rkA(1,2)*Jac2(i,j) - Jbig(N+i,N+j) = -H*rkA(2,2)*Jac2(i,j) - Jbig(2*N+i,N+j) = -H*rkA(3,2)*Jac2(i,j) - Jbig(i,2*N+j) = -H*rkA(1,3)*Jac3(i,j) - Jbig(N+i,2*N+j) = -H*rkA(2,3)*Jac3(i,j) - Jbig(2*N+i,2*N+j) = -H*rkA(3,3)*Jac3(i,j) - END DO - END DO - Ebig = -Jbig - DO i=1,3*NVAR - Jbig(i,i) = ONE + Jbig(i,i) - END DO - !~~~> Solve the big system - ! CALL DGETRF(3*NVAR,3*NVAR,Jbig,3*NVAR,IPbig,j) - CALL WGEFA(3*N,Jbig,IPbig,info) - IF (info /= 0) THEN - PRINT*,'Big big guy is singular'; STOP - END IF - DO itlm = 1, NTLM - DO j=1,NVAR - Zbig(j) = Y_tlm(j,itlm) - Zbig(NVAR+j) = Y_tlm(j,itlm) - Zbig(2*NVAR+j) = Y_tlm(j,itlm) - END DO - Zbig = MATMUL(Ebig,Zbig) - !CALL DGETRS ('N',3*NVAR,1,Jbig,3*NVAR,IPbig,Zbig,3*NVAR,0) - CALL WGESL('N',3*N,Jbig,IPbig,Zbig) - DO j=1,NVAR - Z1_tlm(j,itlm) = Zbig(j) - Z2_tlm(j,itlm) = Zbig(NVAR+j) - Z3_tlm(j,itlm) = Zbig(2*NVAR+j) - END DO - END DO -#else -! Commented code for sparse big linear algebra: -! !~~~> Construct the big Jacobian -! DO j=1,LU_NONZERO -! DO i=1,3 -! Jbig(i,1,j) = -H*rkA(i,1)*Jac1(j) -! Jbig(i,2,j) = -H*rkA(i,2)*Jac2(j) -! Jbig(i,3,j) = -H*rkA(i,3)*Jac3(j) -! END DO -! END DO -! DO j=1,NVAR -! DO i=1,3 -! Jbig(i,i,LU_DIAG(j)) = ONE + Jbig(i,i,LU_DIAG(j)) -! END DO -! END DO -! !~~~> Solve the big system -! CALL KppDecompBig( Jbig, IPbig, j ) -! Use full big linear algebra: - Jbig(1:3*N,1:3*N) = 0.0d0 - DO i=1,LU_NONZERO - Jbig(LU_irow(i),LU_icol(i)) = -H*rkA(1,1)*Jac1(i) - Jbig(LU_irow(i),N+LU_icol(i)) = -H*rkA(1,2)*Jac2(i) - Jbig(LU_irow(i),2*N+LU_icol(i)) = -H*rkA(1,3)*Jac3(i) - Jbig(N+LU_irow(i),LU_icol(i)) = -H*rkA(2,1)*Jac1(i) - Jbig(N+LU_irow(i),N+LU_icol(i)) = -H*rkA(2,2)*Jac2(i) - Jbig(N+LU_irow(i),2*N+LU_icol(i)) = -H*rkA(2,3)*Jac3(i) - Jbig(2*N+LU_irow(i),LU_icol(i)) = -H*rkA(3,1)*Jac1(i) - Jbig(2*N+LU_irow(i),N+LU_icol(i)) = -H*rkA(3,2)*Jac2(i) - Jbig(2*N+LU_irow(i),2*N+LU_icol(i)) = -H*rkA(3,3)*Jac3(i) - END DO - Ebig = -Jbig - DO i=1, 3*N - Jbig(i,i) = ONE + Jbig(i,i) - END DO - ! CALL DGETRF(3*N,3*N,Jbig,3*N,IPbig,info) - CALL WGEFA(3*N,Jbig,IPbig,info) - IF (info /= 0) THEN - PRINT*,'Big guy is singular'; STOP - END IF - - DO itlm = 1, NTLM -! Commented code for sparse big linear algebra: -! ! Compute RHS -! CALL RK_PrepareRHS_TLMdirect(N,H,Jac1,Jac2,Jac3,Y_tlm(1,itlm),Zbig) -! ! Solve the system -! CALL KppSolveBig( Jbig, IPbig, Zbig ) -! DO j=1,NVAR -! Z1_tlm(j,itlm) = Zbig(1,j) -! Z2_tlm(j,itlm) = Zbig(2,j) -! Z3_tlm(j,itlm) = Zbig(3,j) -! END DO - ! Compute RHS - CALL RK_PrepareRHS_TLMdirect(N,H,Jac1,Jac2,Jac3,Y_tlm(1,itlm),Zbig) - ! Solve the system - ! CALL DGETRS('N',3*N,1,Jbig,3*N,IPbig,Zbig,3*N,0) - CALL WGESL('N',3*N,Jbig,IPbig,Zbig) - Z1_tlm(1:NVAR,itlm) = Zbig(1:NVAR) - Z2_tlm(1:NVAR,itlm) = Zbig(NVAR+1:2*NVAR) - Z3_tlm(1:NVAR,itlm) = Zbig(2*NVAR+1:3*NVAR) - END DO -#endif - - ELSE TLMDIR - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Loop for Newton iterations, TLM variables -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -Tlm:DO itlm = 1, NTLM - - !~~~> Starting values for Newton iteration - CALL Set2zero(N,Z1_tlm(1,itlm)) - CALL Set2zero(N,Z2_tlm(1,itlm)) - CALL Set2zero(N,Z3_tlm(1,itlm)) - - !~~~> Initializations for Newton iteration - IF (TLMNewtonEst) THEN - NewtonDone = .FALSE. - Fac = 0.5d0 ! Step reduction if too many iterations - - CALL RK_ErrorScale(N,ITOL,AbsTol_tlm(1,itlm),RelTol_tlm(1,itlm), & - Y_tlm(1,itlm),SCAL_tlm) - END IF - -NewtonLoopTLM:DO NewtonIterTLM = 1, NewtonMaxit - - !~~~> Prepare the right-hand side - CALL RK_PrepareRHS_TLM(N,H,Jac1,Jac2,Jac3,Y_tlm(1,itlm), & - Z1_tlm(1,itlm),Z2_tlm(1,itlm),Z3_tlm(1,itlm), & - DZ1,DZ2,DZ3) - - !~~~> Solve the linear systems - CALL RK_Solve( N,H,E1,IP1,E2,IP2,DZ1,DZ2,DZ3,ISING ) - - IF (TLMNewtonEst) THEN -!~~~> Check convergence of Newton iterations - NewtonIncrement = SQRT( ( RK_ErrorNorm(N,SCAL_tlm,DZ1)**2 + & - RK_ErrorNorm(N,SCAL_tlm,DZ2)**2 + & - RK_ErrorNorm(N,SCAL_tlm,DZ3)**2 )/3.0d0 ) - IF ( NewtonIterTLM == 1 ) THEN - ThetaTLM = ABS(ThetaMin) - NewtonRate = 2.0d0 - ELSE - ThetaTLM = NewtonIncrement/NewtonIncrementOld - IF (ThetaTLM < 0.99d0) THEN - NewtonRate = ThetaTLM/(ONE-ThetaTLM) - ELSE ! Non-convergence of Newton: ThetaTLM too large - EXIT NewtonLoopTLM - END IF - IF ( NewtonIterTLM < NewtonMaxit ) THEN - ! Predict error at the end of Newton process - NewtonPredictedErr = NewtonIncrement & - *ThetaTLM**(NewtonMaxit-NewtonIterTLM)/(ONE-ThetaTLM) - IF (NewtonPredictedErr >= NewtonTol) THEN - ! Non-convergence of Newton: predicted error too large - Qnewton = MIN(10.0d0,NewtonPredictedErr/NewtonTol) - Fac=0.8d0*Qnewton**(-ONE/(1+NewtonMaxit-NewtonIterTLM)) - EXIT NewtonLoopTLM - END IF - END IF - END IF - - NewtonIncrementOld = MAX(NewtonIncrement,Roundoff) - END IF !(TLMNewtonEst) - ! Update solution - CALL WAXPY(N,-ONE,DZ1,1,Z1_tlm(1,itlm),1) ! Z1 <- Z1 - DZ1 - CALL WAXPY(N,-ONE,DZ2,1,Z2_tlm(1,itlm),1) ! Z2 <- Z2 - DZ2 - CALL WAXPY(N,-ONE,DZ3,1,Z3_tlm(1,itlm),1) ! Z3 <- Z3 - DZ3 - - ! Check error in Newton iterations - IF (TLMNewtonEst) THEN - NewtonDone = (NewtonRate*NewtonIncrement <= NewtonTol) - IF (NewtonDone) EXIT NewtonLoopTLM - ELSE - ! Minimum number of iterations same as FWD iterations - IF (NewtonIterTLM>=saveNiter) EXIT NewtonLoopTLM - END IF - - END DO NewtonLoopTLM - - IF ((TLMNewtonEst) .AND. (.NOT.NewtonDone)) THEN - !CALL RK_ErrorMsg(-12,T,H,IERR); - H = Fac*H; Reject=.TRUE.; SkipJac = .TRUE.; SkipLU = .FALSE. - CYCLE Tloop - END IF - - END DO Tlm - - END IF TLMDIR - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Error estimation, TLM solution -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IF (TLMtruncErr) THEN - CALL RK_ErrorEstimate_tlm(N,NTLM,T,H,FJAC,Y, Y_tlm, & - E1,IP1,Z1_tlm,Z2_tlm,Z3_tlm,Err,FirstStep,Reject) - END IF - - END IF ! (Err Computation of new step size Hnew - Fac = Err**(-ONE/rkELO)* & - MIN(FacSafe,(ONE+2*NewtonMaxit)/(NewtonIter+2*NewtonMaxit)) - Fac = MIN(FacMax,MAX(FacMin,Fac)) - Hnew = Fac*H - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Accept/reject step -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -accept:IF (Err < ONE) THEN !~~~> STEP IS ACCEPTED - - FirstStep=.FALSE. - ISTATUS(Nacc) = ISTATUS(Nacc) + 1 - IF (Gustafsson) THEN - !~~~> Predictive controller of Gustafsson - IF (ISTATUS(Nacc) > 1) THEN - FacGus=FacSafe*(H/Hacc)*(Err**2/ErrOld)**(-0.25d0) - FacGus=MIN(FacMax,MAX(FacMin,FacGus)) - Fac=MIN(Fac,FacGus) - Hnew = Fac*H - END IF - Hacc=H - ErrOld=MAX(1.0d-2,Err) - END IF - Hold = H - T = T+H - ! Update solution: Y <- Y + sum(d_i Z_i) - IF (rkD(1)/=ZERO) CALL WAXPY(N,rkD(1),Z1,1,Y,1) - IF (rkD(2)/=ZERO) CALL WAXPY(N,rkD(2),Z2,1,Y,1) - IF (rkD(3)/=ZERO) CALL WAXPY(N,rkD(3),Z3,1,Y,1) - ! Update TLM solution: Y <- Y + sum(d_i*Z_i_tlm) - DO itlm = 1,NTLM - IF (rkD(1)/=ZERO) CALL WAXPY(N,rkD(1),Z1_tlm(1,itlm),1,Y_tlm(1,itlm),1) - IF (rkD(2)/=ZERO) CALL WAXPY(N,rkD(2),Z2_tlm(1,itlm),1,Y_tlm(1,itlm),1) - IF (rkD(3)/=ZERO) CALL WAXPY(N,rkD(3),Z3_tlm(1,itlm),1,Y_tlm(1,itlm),1) - END DO - ! Construct the solution quadratic interpolant Q(c_i) = Z_i, i=1:3 - IF (StartNewton) CALL RK_Interpolate('make',N,H,Hold,Z1,Z2,Z3,CONT) - CALL RK_ErrorScale(N,ITOL,AbsTol,RelTol,Y,SCAL) - RSTATUS(Ntexit) = T - RSTATUS(Nhnew) = Hnew - RSTATUS(Nhacc) = H - Hnew = Tdirection*MIN( MAX(ABS(Hnew),Hmin) , Hmax ) - IF (Reject) Hnew = Tdirection*MIN(ABS(Hnew),ABS(H)) - Reject = .FALSE. - IF ((T+Hnew/Qmin-Tend)*Tdirection >= ZERO) THEN - H = Tend-T - ELSE - Hratio=Hnew/H - ! Reuse the LU decomposition - SkipLU = (Theta<=ThetaMin) .AND. (Hratio>=Qmin) .AND. (Hratio<=Qmax) - ! For TLM: do not skip LU (decrease TLM error) - SkipLU = .FALSE. - IF (.NOT.SkipLU) H=Hnew - END IF - ! If convergence is fast enough, do not update Jacobian -! SkipJac = (Theta <= ThetaMin) - SkipJac = .FALSE. ! For TLM: do not skip jac - - ELSE accept !~~~> Step is rejected - - IF (FirstStep .OR. Reject) THEN - H = FacRej*H - ELSE - H = Hnew - END IF - Reject = .TRUE. - SkipJac = .TRUE. - SkipLU = .FALSE. - IF (ISTATUS(Nacc) >= 1) ISTATUS(Nrej) = ISTATUS(Nrej) + 1 - - END IF accept - - END DO Tloop - - ! Successful exit - IERR = 1 - - END SUBROUTINE RK_IntegratorTLM - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_ErrorMsg(Code,T,H,IERR) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - KPP_REAL, INTENT(IN) :: T, H - INTEGER, INTENT(IN) :: Code - INTEGER, INTENT(OUT) :: IERR - - IERR = Code - PRINT * , & - 'Forced exit from RungeKutta due to the following error:' - - - SELECT CASE (Code) - CASE (-1) - PRINT * , '--> Improper value for maximal no of steps' - CASE (-2) - PRINT * , '--> Improper value for maximal no of Newton iterations' - CASE (-3) - PRINT * , '--> Hmin/Hmax/Hstart must be positive' - CASE (-4) - PRINT * , '--> Improper values for FacMin/FacMax/FacSafe/FacRej' - CASE (-5) - PRINT * , '--> Improper value for ThetaMin' - CASE (-6) - PRINT * , '--> Newton stopping tolerance too small' - CASE (-7) - PRINT * , '--> Improper values for Qmin, Qmax' - CASE (-8) - PRINT * , '--> Tolerances are too small' - CASE (-9) - PRINT * , '--> No of steps exceeds maximum bound' - CASE (-10) - PRINT * , '--> Step size too small: T + 10*H = T', & - ' or H < Roundoff' - CASE (-11) - PRINT * , '--> Matrix is repeatedly singular' - CASE (-12) - PRINT * , '--> Non-convergence of Newton iterations' - CASE (-13) - PRINT * , '--> Requested RK method not implemented' - CASE DEFAULT - PRINT *, 'Unknown Error code: ', Code - END SELECT - - WRITE(6,FMT="(5X,'T=',E12.5,' H=',E12.5)") T, H - - END SUBROUTINE RK_ErrorMsg - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_ErrorScale(N,ITOL,AbsTol,RelTol,Y,SCAL) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - INTEGER, INTENT(IN) :: N, ITOL - KPP_REAL, INTENT(IN) :: AbsTol(*), RelTol(*), Y(N) - KPP_REAL, INTENT(OUT) :: SCAL(N) - INTEGER :: i - - IF (ITOL==0) THEN - DO i=1,N - SCAL(i)= ONE/(AbsTol(1)+RelTol(1)*ABS(Y(i))) - END DO - ELSE - DO i=1,N - SCAL(i)=ONE/(AbsTol(i)+RelTol(i)*ABS(Y(i))) - END DO - END IF - - END SUBROUTINE RK_ErrorScale - - -!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! SUBROUTINE RK_Transform(N,Tr,Z1,Z2,Z3,W1,W2,W3) -!!~~~> W <-- Tr x Z -!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! IMPLICIT NONE -! INTEGER :: N, i -! KPP_REAL :: Tr(3,3),Z1(N),Z2(N),Z3(N),W1(N),W2(N),W3(N) -! KPP_REAL :: x1, x2, x3 -! DO i=1,N -! x1 = Z1(i); x2 = Z2(i); x3 = Z3(i) -! W1(i) = Tr(1,1)*x1 + Tr(1,2)*x2 + Tr(1,3)*x3 -! W2(i) = Tr(2,1)*x1 + Tr(2,2)*x2 + Tr(2,3)*x3 -! W3(i) = Tr(3,1)*x1 + Tr(3,2)*x2 + Tr(3,3)*x3 -! END DO -! END SUBROUTINE RK_Transform - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_Interpolate(action,N,H,Hold,Z1,Z2,Z3,CONT) -!~~~> Constructs or evaluates a quadratic polynomial -! that interpolates the Z solution at current step -! and provides starting values for the next step -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - INTEGER, INTENT(IN) :: N - KPP_REAL, INTENT(IN) :: H,Hold - KPP_REAL, INTENT(INOUT) :: Z1(N),Z2(N),Z3(N),CONT(N,3) - CHARACTER(LEN=4), INTENT(IN) :: action - KPP_REAL :: r, x1, x2, x3, den - INTEGER :: i - - SELECT CASE (action) - CASE ('make') - ! Construct the solution quadratic interpolant Q(c_i) = Z_i, i=1:3 - den = (rkC(3)-rkC(2))*(rkC(2)-rkC(1))*(rkC(1)-rkC(3)) - DO i=1,N - CONT(i,1)=(-rkC(3)**2*rkC(2)*Z1(i)+Z3(i)*rkC(2)*rkC(1)**2 & - +rkC(2)**2*rkC(3)*Z1(i)-rkC(2)**2*rkC(1)*Z3(i) & - +rkC(3)**2*rkC(1)*Z2(i)-Z2(i)*rkC(3)*rkC(1)**2)& - /den-Z3(i) - CONT(i,2)= -( rkC(1)**2*(Z3(i)-Z2(i)) + rkC(2)**2*(Z1(i) & - -Z3(i)) +rkC(3)**2*(Z2(i)-Z1(i)) )/den - CONT(i,3)= ( rkC(1)*(Z3(i)-Z2(i)) + rkC(2)*(Z1(i)-Z3(i)) & - +rkC(3)*(Z2(i)-Z1(i)) )/den - END DO - CASE ('eval') - ! Evaluate quadratic polynomial - r = H/Hold - x1 = ONE + rkC(1)*r - x2 = ONE + rkC(2)*r - x3 = ONE + rkC(3)*r - DO i=1,N - Z1(i) = CONT(i,1)+x1*(CONT(i,2)+x1*CONT(i,3)) - Z2(i) = CONT(i,1)+x2*(CONT(i,2)+x2*CONT(i,3)) - Z3(i) = CONT(i,1)+x3*(CONT(i,2)+x3*CONT(i,3)) - END DO - END SELECT - END SUBROUTINE RK_Interpolate - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_PrepareRHS(N,T,H,Y,Z1,Z2,Z3,R1,R2,R3) -!~~~> Prepare the right-hand side for Newton iterations -! R = Z - hA x F -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - - INTEGER, INTENT(IN) :: N - KPP_REAL, INTENT(IN) :: T, H - KPP_REAL, INTENT(IN), DIMENSION(N) :: Y,Z1,Z2,Z3 - KPP_REAL, INTENT(INOUT), DIMENSION(N) :: R1,R2,R3 - KPP_REAL, DIMENSION(N) :: F, TMP - - CALL WCOPY(N,Z1,1,R1,1) ! R1 <- Z1 - CALL WCOPY(N,Z2,1,R2,1) ! R2 <- Z2 - CALL WCOPY(N,Z3,1,R3,1) ! R3 <- Z3 - - CALL WADD(N,Y,Z1,TMP) ! TMP <- Y + Z1 - CALL FUN_CHEM(T+rkC(1)*H,TMP,F) ! F1 <- Fun(Y+Z1) - CALL WAXPY(N,-H*rkA(1,1),F,1,R1,1) ! R1 <- R1 - h*A_11*F1 - CALL WAXPY(N,-H*rkA(2,1),F,1,R2,1) ! R2 <- R2 - h*A_21*F1 - CALL WAXPY(N,-H*rkA(3,1),F,1,R3,1) ! R3 <- R3 - h*A_31*F1 - - CALL WADD(N,Y,Z2,TMP) ! TMP <- Y + Z2 - CALL FUN_CHEM(T+rkC(2)*H,TMP,F) ! F2 <- Fun(Y+Z2) - CALL WAXPY(N,-H*rkA(1,2),F,1,R1,1) ! R1 <- R1 - h*A_12*F2 - CALL WAXPY(N,-H*rkA(2,2),F,1,R2,1) ! R2 <- R2 - h*A_22*F2 - CALL WAXPY(N,-H*rkA(3,2),F,1,R3,1) ! R3 <- R3 - h*A_32*F2 - - CALL WADD(N,Y,Z3,TMP) ! TMP <- Y + Z3 - CALL FUN_CHEM(T+rkC(3)*H,TMP,F) ! F3 <- Fun(Y+Z3) - CALL WAXPY(N,-H*rkA(1,3),F,1,R1,1) ! R1 <- R1 - h*A_13*F3 - CALL WAXPY(N,-H*rkA(2,3),F,1,R2,1) ! R2 <- R2 - h*A_23*F3 - CALL WAXPY(N,-H*rkA(3,3),F,1,R3,1) ! R3 <- R3 - h*A_33*F3 - - END SUBROUTINE RK_PrepareRHS - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_PrepareRHS_TLM(N,H,Jac1,Jac2,Jac3,Y_tlm, & - Z1_tlm,Z2_tlm,Z3_tlm,R1,R2,R3) -!~~~> Prepare the right-hand side for Newton iterations -! R = Z_tlm - hA x Jac*Z_tlm -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - - INTEGER, INTENT(IN) :: N - KPP_REAL, INTENT(IN) :: H - KPP_REAL, INTENT(IN), DIMENSION(N) :: Y_tlm,Z1_tlm,Z2_tlm,Z3_tlm - KPP_REAL, INTENT(INOUT), DIMENSION(N) :: R1,R2,R3 -#ifdef FULL_ALGEBRA - KPP_REAL, INTENT(IN), DIMENSION(NVAR,NVAR) :: Jac1, Jac2, Jac3 -#else - KPP_REAL, INTENT(IN), DIMENSION(LU_NONZERO) :: Jac1, Jac2, Jac3 -#endif - KPP_REAL, DIMENSION(N) :: F, TMP - - CALL WCOPY(N,Z1_tlm,1,R1,1) ! R1 <- Z1_tlm - CALL WCOPY(N,Z2_tlm,1,R2,1) ! R2 <- Z2_tlm - CALL WCOPY(N,Z3_tlm,1,R3,1) ! R3 <- Z3_tlm - - CALL WADD(N,Y_tlm,Z1_tlm,TMP) ! TMP <- Y + Z1 -#ifdef FULL_ALGEBRA - F = MATMUL(Jac1,TMP) -#else - CALL Jac_SP_Vec ( Jac1, TMP, F ) ! F1 <- Jac(Y+Z1)*(Y_tlm+Z1_tlm) -#endif - CALL WAXPY(N,-H*rkA(1,1),F,1,R1,1) ! R1 <- R1 - h*A_11*F1 - CALL WAXPY(N,-H*rkA(2,1),F,1,R2,1) ! R2 <- R2 - h*A_21*F1 - CALL WAXPY(N,-H*rkA(3,1),F,1,R3,1) ! R3 <- R3 - h*A_31*F1 - - CALL WADD(N,Y_tlm,Z2_tlm,TMP) ! TMP <- Y + Z2 -#ifdef FULL_ALGEBRA - F = MATMUL(Jac2,TMP) -#else - CALL Jac_SP_Vec ( Jac2, TMP, F ) ! F2 <- Jac(Y+Z2)*(Y_tlm+Z2_tlm) -#endif - CALL WAXPY(N,-H*rkA(1,2),F,1,R1,1) ! R1 <- R1 - h*A_12*F2 - CALL WAXPY(N,-H*rkA(2,2),F,1,R2,1) ! R2 <- R2 - h*A_22*F2 - CALL WAXPY(N,-H*rkA(3,2),F,1,R3,1) ! R3 <- R3 - h*A_32*F2 - - CALL WADD(N,Y_tlm,Z3_tlm,TMP) ! TMP <- Y + Z3 -#ifdef FULL_ALGEBRA - F = MATMUL(Jac3,TMP) -#else - CALL Jac_SP_Vec ( Jac3, TMP, F ) ! F3 <- Jac(Y+Z3)*(Y_tlm+Z3_tlm) -#endif - CALL WAXPY(N,-H*rkA(1,3),F,1,R1,1) ! R1 <- R1 - h*A_13*F3 - CALL WAXPY(N,-H*rkA(2,3),F,1,R2,1) ! R2 <- R2 - h*A_23*F3 - CALL WAXPY(N,-H*rkA(3,3),F,1,R3,1) ! R3 <- R3 - h*A_33*F3 - - END SUBROUTINE RK_PrepareRHS_TLM - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_PrepareRHS_TLMdirect(N,H,Jac1,Jac2,Jac3,Y_tlm,Zbig) -!~~~> Prepare the right-hand side for direct solution -! Z = hA x Jac*Y_tlm -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - - INTEGER, INTENT(IN) :: N - KPP_REAL, INTENT(IN) :: H - KPP_REAL, INTENT(IN), DIMENSION(N) :: Y_tlm -! Commented code for sparse big linear algebra: -! KPP_REAL, INTENT(OUT), DIMENSION(3,N) :: Zbig - KPP_REAL, INTENT(OUT), DIMENSION(3*N) :: Zbig -#ifdef FULL_ALGEBRA - KPP_REAL, INTENT(IN), DIMENSION(NVAR,NVAR) :: Jac1, Jac2, Jac3 -#else - KPP_REAL, INTENT(IN), DIMENSION(LU_NONZERO) :: Jac1, Jac2, Jac3 -#endif - KPP_REAL, DIMENSION(N) :: F, TMP - -#ifdef FULL_ALGEBRA - F = MATMUL(Jac1,Y_tlm) -#else - CALL Jac_SP_Vec ( Jac1, Y_tlm, F ) ! F1 <- Jac(Y+Z1)*(Y_tlm) -#endif -! Commented code for sparse big linear algebra: -! Zbig(1,1:N) = H*rkA(1,1)*F(1:N) -! Zbig(2,1:N) = H*rkA(2,1)*F(1:N) -! Zbig(3,1:N) = H*rkA(3,1)*F(1:N) - Zbig(1:N) = H*rkA(1,1)*F(1:N) - Zbig(N+1:2*N) = H*rkA(2,1)*F(1:N) - Zbig(2*N+1:3*N) = H*rkA(3,1)*F(1:N) - -#ifdef FULL_ALGEBRA - F = MATMUL(Jac2,Y_tlm) -#else - CALL Jac_SP_Vec ( Jac2, Y_tlm, F ) ! F2 <- Jac(Y+Z2)*(Y_tlm) -#endif -! Commented code for sparse big linear algebra: -! Zbig(1,1:N) = Zbig(1,1:N) + H*rkA(1,2)*F(1:N) -! Zbig(2,1:N) = Zbig(2,1:N) + H*rkA(2,2)*F(1:N) -! Zbig(3,1:N) = Zbig(3,1:N) + H*rkA(3,2)*F(1:N) - Zbig(1:N) = Zbig(1:N) + H*rkA(1,2)*F(1:N) - Zbig(N+1:2*N) = Zbig(N+1:2*N) + H*rkA(2,2)*F(1:N) - Zbig(2*N+1:3*N) = Zbig(2*N+1:3*N) + H*rkA(3,2)*F(1:N) - -#ifdef FULL_ALGEBRA - F = MATMUL(Jac3,Y_tlm) -#else - CALL Jac_SP_Vec ( Jac3, Y_tlm, F ) ! F3 <- Jac(Y+Z3)*(Y_tlm) -#endif -! Commented code for sparse big linear algebra: -! Zbig(1,1:N) = Zbig(1,1:N) + H*rkA(1,3)*F(1:N) -! Zbig(2,1:N) = Zbig(2,1:N) + H*rkA(2,3)*F(1:N) -! Zbig(3,1:N) = Zbig(3,1:N) + H*rkA(3,3)*F(1:N) - Zbig(1:N) = Zbig(1:N) + H*rkA(1,3)*F(1:N) - Zbig(N+1:2*N) = Zbig(N+1:2*N) + H*rkA(2,3)*F(1:N) - Zbig(2*N+1:3*N) = Zbig(2*N+1:3*N) + H*rkA(3,3)*F(1:N) - - END SUBROUTINE RK_PrepareRHS_TLMdirect - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_Decomp(N,H,FJAC,E1,IP1,E2,IP2,ISING) - !~~~> Compute the matrices E1 and E2 and their decompositions -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - - INTEGER, INTENT(IN) :: N - KPP_REAL, INTENT(IN) :: H -#ifdef FULL_ALGEBRA - KPP_REAL, INTENT(IN) :: FJAC(NVAR,NVAR) - KPP_REAL, INTENT(OUT) ::E1(NVAR,NVAR) - COMPLEX(kind=dp), INTENT(OUT) :: E2(N,N) -#else - KPP_REAL, INTENT(IN) :: FJAC(LU_NONZERO) - KPP_REAL, INTENT(OUT) :: E1(LU_NONZERO) - COMPLEX(kind=dp),INTENT(OUT) :: E2(LU_NONZERO) -#endif - INTEGER, INTENT(OUT) :: IP1(N), IP2(N), ISING - - INTEGER :: i, j - KPP_REAL :: Alpha, Beta, Gamma - - Gamma = rkGamma/H - Alpha = rkAlpha/H - Beta = rkBeta /H - -#ifdef FULL_ALGEBRA - DO j=1,N - DO i=1,N - E1(i,j)=-FJAC(i,j) - END DO - E1(j,j)=E1(j,j)+Gamma - END DO - CALL DGETRF(N,N,E1,N,IP1,ISING) -#else - DO i=1,LU_NONZERO - E1(i)=-FJAC(i) - END DO - DO i=1,NVAR - j=LU_DIAG(i); E1(j)=E1(j)+Gamma - END DO - CALL KppDecomp(E1,ISING) -#endif - - IF (ISING /= 0) THEN - ISTATUS(Ndec) = ISTATUS(Ndec) + 1 - RETURN - END IF - -#ifdef FULL_ALGEBRA - DO j=1,N - DO i=1,N - E2(i,j) = DCMPLX( -FJAC(i,j), ZERO ) - END DO - E2(j,j) = E2(j,j) + CMPLX( Alpha, Beta ) - END DO - CALL ZGETRF(N,N,E2,N,IP2,ISING) -#else - DO i=1,LU_NONZERO - E2(i) = DCMPLX( -FJAC(i), ZERO ) - END DO - DO i=1,NVAR - j = LU_DIAG(i); E2(j)=E2(j) + CMPLX( Alpha, Beta ) - END DO - CALL KppDecompCmplx(E2,ISING) -#endif - ISTATUS(Ndec) = ISTATUS(Ndec) + 1 - - END SUBROUTINE RK_Decomp - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_Solve(N,H,E1,IP1,E2,IP2,R1,R2,R3,ISING) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - INTEGER, INTENT(IN) :: N,IP1(NVAR),IP2(NVAR) - INTEGER, INTENT(OUT) :: ISING -#ifdef FULL_ALGEBRA - KPP_REAL, INTENT(IN) :: E1(NVAR,NVAR) - COMPLEX(kind=dp), INTENT(IN) :: E2(NVAR,NVAR) -#else - KPP_REAL, INTENT(IN) :: E1(LU_NONZERO) - COMPLEX(kind=dp), INTENT(IN) :: E2(LU_NONZERO) -#endif - KPP_REAL, INTENT(IN) :: H - KPP_REAL, INTENT(INOUT) :: R1(N),R2(N),R3(N) - - KPP_REAL :: x1, x2, x3 - COMPLEX(kind=dp) :: BC(N) - INTEGER :: i -! - ! Z <- h^{-1) T^{-1) A^{-1) x Z - DO i=1,N - x1 = R1(i)/H; x2 = R2(i)/H; x3 = R3(i)/H - R1(i) = rkTinvAinv(1,1)*x1 + rkTinvAinv(1,2)*x2 + rkTinvAinv(1,3)*x3 - R2(i) = rkTinvAinv(2,1)*x1 + rkTinvAinv(2,2)*x2 + rkTinvAinv(2,3)*x3 - R3(i) = rkTinvAinv(3,1)*x1 + rkTinvAinv(3,2)*x2 + rkTinvAinv(3,3)*x3 - END DO - -#ifdef FULL_ALGEBRA - CALL DGETRS ('N',N,1,E1,N,IP1,R1,N,0) -#else - CALL KppSolve (E1,R1) -#endif -! - DO i=1,N - BC(i) = DCMPLX(R2(i),R3(i)) - END DO -#ifdef FULL_ALGEBRA - CALL ZGETRS ('N',N,1,E2,N,IP2,BC,N,0) -#else - CALL KppSolveCmplx (E2,BC) -#endif - DO i=1,N - R2(i) = DBLE( BC(i) ) - R3(i) = AIMAG( BC(i) ) - END DO - - ! Z <- T x Z - DO i=1,N - x1 = R1(i); x2 = R2(i); x3 = R3(i) - R1(i) = rkT(1,1)*x1 + rkT(1,2)*x2 + rkT(1,3)*x3 - R2(i) = rkT(2,1)*x1 + rkT(2,2)*x2 + rkT(2,3)*x3 - R3(i) = rkT(3,1)*x1 + rkT(3,2)*x2 + rkT(3,3)*x3 - END DO - - ISTATUS(Nsol) = ISTATUS(Nsol) + 1 - - END SUBROUTINE RK_Solve - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_ErrorEstimate(N,H,Y,T, & - E1,IP1,Z1,Z2,Z3,SCAL,Err, & - FirstStep,Reject) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - - INTEGER, INTENT(IN) :: N, IP1(N) -#ifdef FULL_ALGEBRA - KPP_REAL, INTENT(IN) :: E1(NVAR,NVAR) -#else - KPP_REAL, INTENT(IN) :: E1(LU_NONZERO) -#endif - KPP_REAL, INTENT(IN) :: T,H,SCAL(N),Z1(N),Z2(N),Z3(N),Y(N) - LOGICAL,INTENT(IN) :: FirstStep,Reject - KPP_REAL, INTENT(INOUT) :: Err - - KPP_REAL :: F1(N),F2(N),F0(N),TMP(N) - INTEGER :: i - KPP_REAL :: HEE1,HEE2,HEE3 - - HEE1 = rkE(1)/H - HEE2 = rkE(2)/H - HEE3 = rkE(3)/H - - CALL FUN_CHEM(T,Y,F0) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - - DO i=1,N - F2(i) = HEE1*Z1(i)+HEE2*Z2(i)+HEE3*Z3(i) - TMP(i) = rkE(0)*F0(i) + F2(i) - END DO - -#ifdef FULL_ALGEBRA - CALL DGETRS ('N',N,1,E1,N,IP1,TMP,N,0) - IF ((rkMethod==R1A).OR.(rkMethod==GAU).OR.(rkMethod==L3A)) CALL DGETRS ('N',N,1,E1,N,IP1,TMP,N,0) - IF (rkMethod==GAU) CALL DGETRS ('N',N,1,E1,N,IP1,TMP,N,0) -#else - CALL KppSolve (E1, TMP) - IF ((rkMethod==R1A).OR.(rkMethod==GAU).OR.(rkMethod==L3A)) CALL KppSolve (E1,TMP) - IF (rkMethod==GAU) CALL KppSolve (E1,TMP) -#endif - - Err = RK_ErrorNorm(N,SCAL,TMP) -! - IF (Err < ONE) RETURN -firej:IF (FirstStep.OR.Reject) THEN - DO i=1,N - TMP(i)=Y(i)+TMP(i) - END DO - CALL FUN_CHEM(T,TMP,F1) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 - DO i=1,N - TMP(i)=F1(i)+F2(i) - END DO - -#ifdef FULL_ALGEBRA - CALL DGETRS ('N',N,1,E1,N,IP1,TMP,N,0) -#else - CALL KppSolve (E1, TMP) -#endif - Err = RK_ErrorNorm(N,SCAL,TMP) - END IF firej - - END SUBROUTINE RK_ErrorEstimate - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE RK_ErrorEstimate_tlm(N,NTLM,T,H,FJAC,Y,Y_tlm, & - E1,IP1,Z1_tlm,Z2_tlm,Z3_tlm,FWD_Err, & - FirstStep,Reject) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - - INTEGER, INTENT(IN) :: N,NTLM,IP1(N) -#ifdef FULL_ALGEBRA - KPP_REAL, INTENT(IN) :: FJAC(N,N), E1(N,N) - KPP_REAL :: J0(N,N) -#else - KPP_REAL, INTENT(IN) :: FJAC(LU_NONZERO), E1(LU_NONZERO) - KPP_REAL :: J0(LU_NONZERO) -#endif - KPP_REAL, INTENT(IN) :: T,H, Z1_tlm(N,NTLM),Z2_tlm(N,NTLM),Z3_tlm(N,NTLM), & - Y_tlm(N,NTLM), Y(N) - LOGICAL, INTENT(IN) :: FirstStep, Reject - KPP_REAL, INTENT(INOUT) :: FWD_Err - - INTEGER :: itlm - KPP_REAL :: HEE1,HEE2,HEE3, SCAL_tlm(N), Err, TMP(N), TMP2(N), JY_tlm(N) - - HEE1 = rkE(1)/H - HEE2 = rkE(2)/H - HEE3 = rkE(3)/H - - DO itlm=1,NTLM - CALL RK_ErrorScale(N,ITOL,AbsTol_tlm(1,itlm),RelTol_tlm(1,itlm), & - Y_tlm(1,itlm),SCAL_tlm) - - CALL JAC_CHEM(T,Y,J0) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - CALL JAC_SP_Vec(J0,Y_tlm(1,itlm),JY_tlm) - - DO i=1,N - TMP2(i) = HEE1*Z1_tlm(i,itlm)+HEE2*Z2_tlm(i,itlm)+HEE3*Z3_tlm(i,itlm) - TMP(i) = rkE(0)*JY_tlm(i) + TMP2(i) - END DO - -#ifdef FULL_ALGEBRA - CALL DGETRS ('N',N,1,E1,N,IP1,TMP,N,0) -! IF ((ICNTRL(3)==3).OR.(ICNTRL(3)==4)) CALL DGETRS ('N',N,1,E1,N,IP1,TMP,N,0) -! IF (ICNTRL(3)==3) CALL DGETRS ('N',N,1,E1,N,IP1,TMP,N,0) -#else - CALL KppSolve (E1, TMP) -! IF ((ICNTRL(3)==3).OR.(ICNTRL(3)==4)) THEN -! CALL KppSolve (E1,TMP) -! END IF -! IF (ICNTRL(3)==3) THEN -! CALL KppSolve (E1,TMP) -! END IF -#endif - - Err = RK_ErrorNorm(N,SCAL_tlm,TMP) -! - FWD_Err = MAX(FWD_Err, Err) - END DO - - END SUBROUTINE RK_ErrorEstimate_tlm - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - KPP_REAL FUNCTION RK_ErrorNorm(N,SCAL,DY) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - - INTEGER, INTENT(IN) :: N - KPP_REAL, INTENT(IN) :: SCAL(N),DY(N) - INTEGER :: i - - RK_ErrorNorm = ZERO - DO i=1,N - RK_ErrorNorm = RK_ErrorNorm + (DY(i)*SCAL(i))**2 - END DO - RK_ErrorNorm = MAX( SQRT(RK_ErrorNorm/N), 1.0d-10 ) - - END FUNCTION RK_ErrorNorm - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Radau2A_Coefficients -! The coefficients of the 3-stage Radau-2A method -! (given to ~30 accurate digits) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -! The coefficients of the Radau2A method - KPP_REAL :: b0 - -! b0 = 1.0d0 - IF (SdirkError) THEN - b0 = 0.2d-1 - ELSE - b0 = 0.5d-1 - END IF - -! The coefficients of the Radau2A method - rkMethod = R2A - - rkA(1,1) = 1.968154772236604258683861429918299d-1 - rkA(1,2) = -6.55354258501983881085227825696087d-2 - rkA(1,3) = 2.377097434822015242040823210718965d-2 - rkA(2,1) = 3.944243147390872769974116714584975d-1 - rkA(2,2) = 2.920734116652284630205027458970589d-1 - rkA(2,3) = -4.154875212599793019818600988496743d-2 - rkA(3,1) = 3.764030627004672750500754423692808d-1 - rkA(3,2) = 5.124858261884216138388134465196080d-1 - rkA(3,3) = 1.111111111111111111111111111111111d-1 - - rkB(1) = 3.764030627004672750500754423692808d-1 - rkB(2) = 5.124858261884216138388134465196080d-1 - rkB(3) = 1.111111111111111111111111111111111d-1 - - rkC(1) = 1.550510257216821901802715925294109d-1 - rkC(2) = 6.449489742783178098197284074705891d-1 - rkC(3) = 1.0d0 - - ! New solution: H* Sum B_j*f(Z_j) = Sum D_j*Z_j - rkD(1) = 0.0d0 - rkD(2) = 0.0d0 - rkD(3) = 1.0d0 - - ! Classical error estimator: - ! H* Sum (B_j-Bhat_j)*f(Z_j) = H*E(0)*f(0) + Sum E_j*Z_j - rkE(0) = 1.0d0*b0 - rkE(1) = -10.04880939982741556246032950764708d0*b0 - rkE(2) = 1.382142733160748895793662840980412d0*b0 - rkE(3) = -.3333333333333333333333333333333333d0*b0 - - ! Sdirk error estimator - rkBgam(0) = b0 - rkBgam(1) = .3764030627004672750500754423692807d0-1.558078204724922382431975370686279d0*b0 - rkBgam(2) = .8914115380582557157653087040196118d0*b0+.5124858261884216138388134465196077d0 - rkBgam(3) = -.1637777184845662566367174924883037d0-.3333333333333333333333333333333333d0*b0 - rkBgam(4) = .2748888295956773677478286035994148d0 - - ! H* Sum Bgam_j*f(Z_j) = H*Bgam(0)*f(0) + Sum Theta_j*Z_j - rkTheta(1) = -1.520677486405081647234271944611547d0-10.04880939982741556246032950764708d0*b0 - rkTheta(2) = 2.070455145596436382729929151810376d0+1.382142733160748895793662840980413d0*b0 - rkTheta(3) = -.3333333333333333333333333333333333d0*b0-.3744441479783868387391430179970741d0 - - ! Local order of error estimator - IF (b0==0.0d0) THEN - rkELO = 6.0d0 - ELSE - rkELO = 4.0d0 - END IF - - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - !~~~> Diagonalize the RK matrix: - ! rkTinv * inv(rkA) * rkT = - ! | rkGamma 0 0 | - ! | 0 rkAlpha -rkBeta | - ! | 0 rkBeta rkAlpha | - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - rkGamma = 3.637834252744495732208418513577775d0 - rkAlpha = 2.681082873627752133895790743211112d0 - rkBeta = 3.050430199247410569426377624787569d0 - - rkT(1,1) = 9.443876248897524148749007950641664d-2 - rkT(1,2) = -1.412552950209542084279903838077973d-1 - rkT(1,3) = -3.00291941051474244918611170890539d-2 - rkT(2,1) = 2.502131229653333113765090675125018d-1 - rkT(2,2) = 2.041293522937999319959908102983381d-1 - rkT(2,3) = 3.829421127572619377954382335998733d-1 - rkT(3,1) = 1.0d0 - rkT(3,2) = 1.0d0 - rkT(3,3) = 0.0d0 - - rkTinv(1,1) = 4.178718591551904727346462658512057d0 - rkTinv(1,2) = 3.27682820761062387082533272429617d-1 - rkTinv(1,3) = 5.233764454994495480399309159089876d-1 - rkTinv(2,1) = -4.178718591551904727346462658512057d0 - rkTinv(2,2) = -3.27682820761062387082533272429617d-1 - rkTinv(2,3) = 4.766235545005504519600690840910124d-1 - rkTinv(3,1) = -5.02872634945786875951247343139544d-1 - rkTinv(3,2) = 2.571926949855605429186785353601676d0 - rkTinv(3,3) = -5.960392048282249249688219110993024d-1 - - rkTinvAinv(1,1) = 1.520148562492775501049204957366528d+1 - rkTinvAinv(1,2) = 1.192055789400527921212348994770778d0 - rkTinvAinv(1,3) = 1.903956760517560343018332287285119d0 - rkTinvAinv(2,1) = -9.669512977505946748632625374449567d0 - rkTinvAinv(2,2) = -8.724028436822336183071773193986487d0 - rkTinvAinv(2,3) = 3.096043239482439656981667712714881d0 - rkTinvAinv(3,1) = -1.409513259499574544876303981551774d+1 - rkTinvAinv(3,2) = 5.895975725255405108079130152868952d0 - rkTinvAinv(3,3) = -1.441236197545344702389881889085515d-1 - - rkAinvT(1,1) = .3435525649691961614912493915818282d0 - rkAinvT(1,2) = -.4703191128473198422370558694426832d0 - rkAinvT(1,3) = .3503786597113668965366406634269080d0 - rkAinvT(2,1) = .9102338692094599309122768354288852d0 - rkAinvT(2,2) = 1.715425895757991796035292755937326d0 - rkAinvT(2,3) = .4040171993145015239277111187301784d0 - rkAinvT(3,1) = 3.637834252744495732208418513577775d0 - rkAinvT(3,2) = 2.681082873627752133895790743211112d0 - rkAinvT(3,3) = -3.050430199247410569426377624787569d0 - - END SUBROUTINE Radau2A_Coefficients - - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Lobatto3C_Coefficients -! The coefficients of the 3-stage Lobatto-3C method -! (given to ~30 accurate digits) -! The parameter b0 can be chosen to tune the error estimator -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - KPP_REAL :: b0 - - rkMethod = L3C - -! b0 = 1.0d0 - IF (SdirkError) THEN - b0 = 0.2d0 - ELSE - b0 = 0.5d0 - END IF -! The coefficients of the Lobatto3C method - - rkA(1,1) = .1666666666666666666666666666666667d0 - rkA(1,2) = -.3333333333333333333333333333333333d0 - rkA(1,3) = .1666666666666666666666666666666667d0 - rkA(2,1) = .1666666666666666666666666666666667d0 - rkA(2,2) = .4166666666666666666666666666666667d0 - rkA(2,3) = -.8333333333333333333333333333333333d-1 - rkA(3,1) = .1666666666666666666666666666666667d0 - rkA(3,2) = .6666666666666666666666666666666667d0 - rkA(3,3) = .1666666666666666666666666666666667d0 - - rkB(1) = .1666666666666666666666666666666667d0 - rkB(2) = .6666666666666666666666666666666667d0 - rkB(3) = .1666666666666666666666666666666667d0 - - rkC(1) = 0.0d0 - rkC(2) = 0.5d0 - rkC(3) = 1.0d0 - - ! Classical error estimator, embedded solution: - rkBhat(0) = b0 - rkBhat(1) = .16666666666666666666666666666666667d0-b0 - rkBhat(2) = .66666666666666666666666666666666667d0 - rkBhat(3) = .16666666666666666666666666666666667d0 - - ! New solution: h Sum_j b_j f(Z_j) = sum d_j Z_j - rkD(1) = 0.0d0 - rkD(2) = 0.0d0 - rkD(3) = 1.0d0 - - ! Classical error estimator: - ! H* Sum (B_j-Bhat_j)*f(Z_j) = H*E(0)*f(0) + Sum E_j*Z_j - rkE(0) = .3808338772072650364017425226487022*b0 - rkE(1) = -1.142501631621795109205227567946107*b0 - rkE(2) = -1.523335508829060145606970090594809*b0 - rkE(3) = .3808338772072650364017425226487022*b0 - - ! Sdirk error estimator - rkBgam(0) = b0 - rkBgam(1) = .1666666666666666666666666666666667d0-1.d0*b0 - rkBgam(2) = .6666666666666666666666666666666667d0 - rkBgam(3) = -.2141672105405983697350758559820354d0 - rkBgam(4) = .3808338772072650364017425226487021d0 - - ! H* Sum Bgam_j*f(Z_j) = H*Bgam(0)*f(0) + Sum Theta_j*Z_j - rkTheta(1) = -3.d0*b0-.3808338772072650364017425226487021d0 - rkTheta(2) = -4.d0*b0+1.523335508829060145606970090594808d0 - rkTheta(3) = -.142501631621795109205227567946106d0+b0 - - ! Local order of error estimator - IF (b0==0.0d0) THEN - rkELO = 5.0d0 - ELSE - rkELO = 4.0d0 - END IF - - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - !~~~> Diagonalize the RK matrix: - ! rkTinv * inv(rkA) * rkT = - ! | rkGamma 0 0 | - ! | 0 rkAlpha -rkBeta | - ! | 0 rkBeta rkAlpha | - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - rkGamma = 2.625816818958466716011888933765284d0 - rkAlpha = 1.687091590520766641994055533117359d0 - rkBeta = 2.508731754924880510838743672432351d0 - - rkT(1,1) = 1.d0 - rkT(1,2) = 1.d0 - rkT(1,3) = 0.d0 - rkT(2,1) = .4554100411010284672111720348287483d0 - rkT(2,2) = -.6027050205505142336055860174143743d0 - rkT(2,3) = -.4309321229203225731070721341350346d0 - rkT(3,1) = 2.195823345445647152832799205549709d0 - rkT(3,2) = -1.097911672722823576416399602774855d0 - rkT(3,3) = .7850032632435902184104551358922130d0 - - rkTinv(1,1) = .4205559181381766909344950150991349d0 - rkTinv(1,2) = .3488903392193734304046467270632057d0 - rkTinv(1,3) = .1915253879645878102698098373933487d0 - rkTinv(2,1) = .5794440818618233090655049849008650d0 - rkTinv(2,2) = -.3488903392193734304046467270632057d0 - rkTinv(2,3) = -.1915253879645878102698098373933487d0 - rkTinv(3,1) = -.3659705575742745254721332009249516d0 - rkTinv(3,2) = -1.463882230297098101888532803699806d0 - rkTinv(3,3) = .4702733607340189781407813565524989d0 - - rkTinvAinv(1,1) = 1.104302803159744452668648155627548d0 - rkTinvAinv(1,2) = .916122120694355522658740710823143d0 - rkTinvAinv(1,3) = .5029105849749601702795812241441172d0 - rkTinvAinv(2,1) = 1.895697196840255547331351844372453d0 - rkTinvAinv(2,2) = 3.083877879305644477341259289176857d0 - rkTinvAinv(2,3) = -1.502910584974960170279581224144117d0 - rkTinvAinv(3,1) = .8362439183082935036129145574774502d0 - rkTinvAinv(3,2) = -3.344975673233174014451658229909802d0 - rkTinvAinv(3,3) = .312908409479233358005944466882642d0 - - rkAinvT(1,1) = 2.625816818958466716011888933765282d0 - rkAinvT(1,2) = 1.687091590520766641994055533117358d0 - rkAinvT(1,3) = -2.508731754924880510838743672432351d0 - rkAinvT(2,1) = 1.195823345445647152832799205549710d0 - rkAinvT(2,2) = -2.097911672722823576416399602774855d0 - rkAinvT(2,3) = .7850032632435902184104551358922130d0 - rkAinvT(3,1) = 5.765829871932827589653709477334136d0 - rkAinvT(3,2) = .1170850640335862051731452613329320d0 - rkAinvT(3,3) = 4.078738281412060947659653944216779d0 - - END SUBROUTINE Lobatto3C_Coefficients - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Gauss_Coefficients -! The coefficients of the 3-stage Gauss method -! (given to ~30 accurate digits) -! The parameter b3 can be chosen by the user -! to tune the error estimator -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - KPP_REAL :: b0 -! The coefficients of the Gauss method - - - rkMethod = GAU - -! b0 = 4.0d0 - b0 = 0.1d0 - -! The coefficients of the Gauss method - - rkA(1,1) = .1388888888888888888888888888888889d0 - rkA(1,2) = -.359766675249389034563954710966045d-1 - rkA(1,3) = .97894440153083260495800422294756d-2 - rkA(2,1) = .3002631949808645924380249472131556d0 - rkA(2,2) = .2222222222222222222222222222222222d0 - rkA(2,3) = -.224854172030868146602471694353778d-1 - rkA(3,1) = .2679883337624694517281977355483022d0 - rkA(3,2) = .4804211119693833479008399155410489d0 - rkA(3,3) = .1388888888888888888888888888888889d0 - - rkB(1) = .2777777777777777777777777777777778d0 - rkB(2) = .4444444444444444444444444444444444d0 - rkB(3) = .2777777777777777777777777777777778d0 - - rkC(1) = .1127016653792583114820734600217600d0 - rkC(2) = .5000000000000000000000000000000000d0 - rkC(3) = .8872983346207416885179265399782400d0 - - ! Classical error estimator, embedded solution: - rkBhat(0) = b0 - rkBhat(1) =-1.4788305577012361475298775666303999d0*b0 & - +.27777777777777777777777777777777778d0 - rkBhat(2) = .44444444444444444444444444444444444d0 & - +.66666666666666666666666666666666667d0*b0 - rkBhat(3) = -.18783610896543051913678910003626672d0*b0 & - +.27777777777777777777777777777777778d0 - - ! New solution: h Sum_j b_j f(Z_j) = sum d_j Z_j - rkD(1) = .1666666666666666666666666666666667d1 - rkD(2) = -.1333333333333333333333333333333333d1 - rkD(3) = .1666666666666666666666666666666667d1 - - ! Classical error estimator: - ! H* Sum (B_j-Bhat_j)*f(Z_j) = H*E(0)*f(0) + Sum E_j*Z_j - rkE(0) = .2153144231161121782447335303806954d0*b0 - rkE(1) = -2.825278112319014084275808340593191d0*b0 - rkE(2) = .2870858974881495709929780405075939d0*b0 - rkE(3) = -.4558086256248162565397206448274867d-1*b0 - - ! Sdirk error estimator - rkBgam(0) = 0.d0 - rkBgam(1) = .2373339543355109188382583162660537d0 - rkBgam(2) = .5879873931885192299409334646982414d0 - rkBgam(3) = -.4063577064014232702392531134499046d-1 - rkBgam(4) = .2153144231161121782447335303806955d0 - - ! H* Sum Bgam_j*f(Z_j) = H*Bgam(0)*f(0) + Sum Theta_j*Z_j - rkTheta(1) = -2.594040933093095272574031876464493d0 - rkTheta(2) = 1.824611539036311947589425112250199d0 - rkTheta(3) = .1856563166634371860478043996459493d0 - - ! ELO = local order of classical error estimator - rkELO = 4.0d0 - - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - !~~~> Diagonalize the RK matrix: - ! rkTinv * inv(rkA) * rkT = - ! | rkGamma 0 0 | - ! | 0 rkAlpha -rkBeta | - ! | 0 rkBeta rkAlpha | - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - rkGamma = 4.644370709252171185822941421408064d0 - rkAlpha = 3.677814645373914407088529289295970d0 - rkBeta = 3.508761919567443321903661209182446d0 - - rkT(1,1) = .7215185205520017032081769924397664d-1 - rkT(1,2) = -.8224123057363067064866206597516454d-1 - rkT(1,3) = -.6012073861930850173085948921439054d-1 - rkT(2,1) = .1188325787412778070708888193730294d0 - rkT(2,2) = .5306509074206139504614411373957448d-1 - rkT(2,3) = .3162050511322915732224862926182701d0 - rkT(3,1) = 1.d0 - rkT(3,2) = 1.d0 - rkT(3,3) = 0.d0 - - rkTinv(1,1) = 5.991698084937800775649580743981285d0 - rkTinv(1,2) = 1.139214295155735444567002236934009d0 - rkTinv(1,3) = .4323121137838583855696375901180497d0 - rkTinv(2,1) = -5.991698084937800775649580743981285d0 - rkTinv(2,2) = -1.139214295155735444567002236934009d0 - rkTinv(2,3) = .5676878862161416144303624098819503d0 - rkTinv(3,1) = -1.246213273586231410815571640493082d0 - rkTinv(3,2) = 2.925559646192313662599230367054972d0 - rkTinv(3,3) = -.2577352012734324923468722836888244d0 - - rkTinvAinv(1,1) = 27.82766708436744962047620566703329d0 - rkTinvAinv(1,2) = 5.290933503982655311815946575100597d0 - rkTinvAinv(1,3) = 2.007817718512643701322151051660114d0 - rkTinvAinv(2,1) = -17.66368928942422710690385180065675d0 - rkTinvAinv(2,2) = -14.45491129892587782538830044147713d0 - rkTinvAinv(2,3) = 2.992182281487356298677848948339886d0 - rkTinvAinv(3,1) = -25.60678350282974256072419392007303d0 - rkTinvAinv(3,2) = 6.762434375611708328910623303779923d0 - rkTinvAinv(3,3) = 1.043979339483109825041215970036771d0 - - rkAinvT(1,1) = .3350999483034677402618981153470483d0 - rkAinvT(1,2) = -.5134173605009692329246186488441294d0 - rkAinvT(1,3) = .6745196507033116204327635673208923d-1 - rkAinvT(2,1) = .5519025480108928886873752035738885d0 - rkAinvT(2,2) = 1.304651810077110066076640761092008d0 - rkAinvT(2,3) = .9767507983414134987545585703726984d0 - rkAinvT(3,1) = 4.644370709252171185822941421408064d0 - rkAinvT(3,2) = 3.677814645373914407088529289295970d0 - rkAinvT(3,3) = -3.508761919567443321903661209182446d0 - - END SUBROUTINE Gauss_Coefficients - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Radau1A_Coefficients -! The coefficients of the 3-stage Gauss method -! (given to ~30 accurate digits) -! The parameter b3 can be chosen by the user -! to tune the error estimator -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -! KPP_REAL :: b0 = 0.3d0 - KPP_REAL :: b0 = 0.1d0 - -! The coefficients of the Radau1A method - - rkMethod = R1A - - rkA(1,1) = .1111111111111111111111111111111111d0 - rkA(1,2) = -.1916383190435098943442935597058829d0 - rkA(1,3) = .8052720793239878323318244859477174d-1 - rkA(2,1) = .1111111111111111111111111111111111d0 - rkA(2,2) = .2920734116652284630205027458970589d0 - rkA(2,3) = -.481334970546573839513422644787591d-1 - rkA(3,1) = .1111111111111111111111111111111111d0 - rkA(3,2) = .5370223859435462728402311533676479d0 - rkA(3,3) = .1968154772236604258683861429918299d0 - - rkB(1) = .1111111111111111111111111111111111d0 - rkB(2) = .5124858261884216138388134465196080d0 - rkB(3) = .3764030627004672750500754423692808d0 - - rkC(1) = 0.d0 - rkC(2) = .3550510257216821901802715925294109d0 - rkC(3) = .8449489742783178098197284074705891d0 - - ! Classical error estimator, embedded solution: - rkBhat(0) = b0 - rkBhat(1) = .11111111111111111111111111111111111d0-b0 - rkBhat(2) = .51248582618842161383881344651960810d0 - rkBhat(3) = .37640306270046727505007544236928079d0 - - ! New solution: H* Sum B_j*f(Z_j) = Sum D_j*Z_j - rkD(1) = .3333333333333333333333333333333333d0 - rkD(2) = -.8914115380582557157653087040196127d0 - rkD(3) = .1558078204724922382431975370686279d1 - - ! Classical error estimator: - ! H* Sum (b_j-bhat_j) f(Z_j) = H*E(0)*F(0) + Sum E_j Z_j - rkE(0) = .2748888295956773677478286035994148d0*b0 - rkE(1) = -1.374444147978386838739143017997074d0*b0 - rkE(2) = -1.335337922441686804550326197041126d0*b0 - rkE(3) = .235782604058977333559011782643466d0*b0 - - ! Sdirk error estimator - rkBgam(0) = 0.0d0 - rkBgam(1) = .1948150124588532186183490991130616d-1 - rkBgam(2) = .7575249005733381398986810981093584d0 - rkBgam(3) = -.518952314149008295083446116200793d-1 - rkBgam(4) = .2748888295956773677478286035994148d0 - - ! H* Sum Bgam_j*f(Z_j) = H*Bgam(0)*f(0) + Sum Theta_j*Z_j - rkTheta(1) = -1.224370034375505083904362087063351d0 - rkTheta(2) = .9340045331532641409047527962010133d0 - rkTheta(3) = .4656990124352088397561234800640929d0 - - ! ELO = local order of classical error estimator - rkELO = 4.0d0 - - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - !~~~> Diagonalize the RK matrix: - ! rkTinv * inv(rkA) * rkT = - ! | rkGamma 0 0 | - ! | 0 rkAlpha -rkBeta | - ! | 0 rkBeta rkAlpha | - !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - rkGamma = 3.637834252744495732208418513577775d0 - rkAlpha = 2.681082873627752133895790743211112d0 - rkBeta = 3.050430199247410569426377624787569d0 - - rkT(1,1) = .424293819848497965354371036408369d0 - rkT(1,2) = -.3235571519651980681202894497035503d0 - rkT(1,3) = -.522137786846287839586599927945048d0 - rkT(2,1) = .57594609499806128896291585429339d-1 - rkT(2,2) = .3148663231849760131614374283783d-2 - rkT(2,3) = .452429247674359778577728510381731d0 - rkT(3,1) = 1.d0 - rkT(3,2) = 1.d0 - rkT(3,3) = 0.d0 - - rkTinv(1,1) = 1.233523612685027760114769983066164d0 - rkTinv(1,2) = 1.423580134265707095505388133369554d0 - rkTinv(1,3) = .3946330125758354736049045150429624d0 - rkTinv(2,1) = -1.233523612685027760114769983066164d0 - rkTinv(2,2) = -1.423580134265707095505388133369554d0 - rkTinv(2,3) = .6053669874241645263950954849570376d0 - rkTinv(3,1) = -.1484438963257383124456490049673414d0 - rkTinv(3,2) = 2.038974794939896109682070471785315d0 - rkTinv(3,3) = -.544501292892686735299355831692542d-1 - - rkTinvAinv(1,1) = 4.487354449794728738538663081025420d0 - rkTinvAinv(1,2) = 5.178748573958397475446442544234494d0 - rkTinvAinv(1,3) = 1.435609490412123627047824222335563d0 - rkTinvAinv(2,1) = -2.854361287939276673073807031221493d0 - rkTinvAinv(2,2) = -1.003648660720543859000994063139137d+1 - rkTinvAinv(2,3) = 1.789135380979465422050817815017383d0 - rkTinvAinv(3,1) = -4.160768067752685525282947313530352d0 - rkTinvAinv(3,2) = 1.124128569859216916690209918405860d0 - rkTinvAinv(3,3) = 1.700644430961823796581896350418417d0 - - rkAinvT(1,1) = 1.543510591072668287198054583233180d0 - rkAinvT(1,2) = -2.460228411937788329157493833295004d0 - rkAinvT(1,3) = -.412906170450356277003910443520499d0 - rkAinvT(2,1) = .209519643211838264029272585946993d0 - rkAinvT(2,2) = 1.388545667194387164417459732995766d0 - rkAinvT(2,3) = 1.20339553005832004974976023130002d0 - rkAinvT(3,1) = 3.637834252744495732208418513577775d0 - rkAinvT(3,2) = 2.681082873627752133895790743211112d0 - rkAinvT(3,3) = -3.050430199247410569426377624787569d0 - - END SUBROUTINE Radau1A_Coefficients - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - END SUBROUTINE RungeKuttaTLM ! and all its internal procedures -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE FUN_CHEM(T, V, FCT) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters - USE KPP_ROOT_Global - USE KPP_ROOT_Function, ONLY: Fun - USE KPP_ROOT_Rates, ONLY: Update_SUN, Update_RCONST, Update_PHOTO - - IMPLICIT NONE - - KPP_REAL, INTENT(IN) :: V(NVAR), T - KPP_REAL, INTENT(INOUT) :: FCT(NVAR) - KPP_REAL :: Told - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Update_PHOTO() - TIME = Told - - CALL Fun(V, FIX, RCONST, FCT) - - END SUBROUTINE FUN_CHEM - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE JAC_CHEM (T, V, JF) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters - USE KPP_ROOT_Global - USE KPP_ROOT_JacobianSP - USE KPP_ROOT_Jacobian, ONLY: Jac_SP - USE KPP_ROOT_Rates, ONLY: Update_SUN, Update_RCONST, Update_PHOTO - - IMPLICIT NONE - - KPP_REAL, INTENT(IN) :: V(NVAR), T -#ifdef FULL_ALGEBRA - KPP_REAL, INTENT(INOUT) :: JF(NVAR,NVAR) - KPP_REAL :: JV(LU_NONZERO) - INTEGER :: i, j -#else - KPP_REAL, INTENT(INOUT) :: JF(LU_NONZERO) -#endif - - KPP_REAL :: Told - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Update_PHOTO() - TIME = Told - -#ifdef FULL_ALGEBRA - CALL Jac_SP(V, FIX, RCONST, JV) - DO j=1,NVAR - DO i=1,NVAR - JF(i,j) = 0.0d0 - END DO - END DO - DO i=1,LU_NONZERO - JF(LU_IROW(i),LU_ICOL(i)) = JV(i) - END DO -#else - CALL Jac_SP(V, FIX, RCONST, JF) -#endif - - END SUBROUTINE JAC_CHEM - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -END MODULE KPP_ROOT_Integrator -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - diff --git a/int.modified_WCOPY/sdirk.c b/int.modified_WCOPY/sdirk.c deleted file mode 100644 index 11b06872356ef466bb33ccde2129f11b01a05f9f..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/sdirk.c +++ /dev/null @@ -1,1361 +0,0 @@ -#define MAX(a,b) ( ((a) >= (b)) ?(a):(b) ) -#define MIN(b,c) ( ((b) < (c)) ?(b):(c) ) -#define ABS(x) ( ((x) >= 0 ) ?(x):(-x) ) -#define SQRT(d) ( pow((d),0.5) ) -#define SIGN(x,y)( ( (x*y) >= 0 ) ?(x):(-x) )/* Sign transfer function */ -#define MOD(A,B) (int)((A)%(B)) - -/* ~~~> Numerical constants */ -#define ZERO (KPP_REAL)0.0 -#define ONE (KPP_REAL)1.0 - -/* ~~~> Statistics on the work performed by the SDIRK method */ -#define Nfun 1 -#define Njac 2 -#define Nstp 3 -#define Nacc 4 -#define Nrej 5 -#define Ndec 6 -#define Nsol 7 -#define Nsng 8 -#define Ntexit 1 -#define Nhexit 2 -#define Nhnew 3 - -/*~~~> SDIRK method coefficients, up to 5 stages */ -#define Smax 5 - -int S2A=1, - S2B=2, - S3A=3, - S4A=4, - S4B=5; - -int sdMethod, - rkS; - -KPP_REAL rkGamma, - rkA[Smax][Smax], - rkB[Smax], - rkELO, - rkBhat[Smax], - rkC[Smax], - rkD[Smax], - rkE[Smax], - rkTheta[Smax][Smax], - rkAlpha[Smax][Smax]; - -/*~~~> Function headers */ -//void INTEGRATE(KPP_REAL TIN, KPP_REAL TOUT, int ICNTRL_U[], KPP_REAL RCNTRL_U[], -// int ISTATUS_U[], KPP_REAL RSTATUS_U[], int Ierr); -void INTEGRATE(KPP_REAL TIN, KPP_REAL TOUT); -int SDIRK(int N, KPP_REAL Tinitial, KPP_REAL Tfinal, KPP_REAL Y[], - KPP_REAL RelTol[], KPP_REAL AbsTol[], KPP_REAL RCNTRL[], int ICNTRL[], - KPP_REAL RSTATUS[], int ISTATUS[]); -int SDIRK_Integrator(int N, KPP_REAL Tinitial, KPP_REAL Tfinal, KPP_REAL Y[], - int Ierr, KPP_REAL Hstart, KPP_REAL Hmin, KPP_REAL Hmax, KPP_REAL Roundoff, - KPP_REAL AbsTol[], KPP_REAL RelTol[], int ISTATUS[], KPP_REAL RSTATUS[], - int ITOL, int Max_no_steps, int StartNewton, KPP_REAL NewtonTol, - KPP_REAL ThetaMin, KPP_REAL FacSafe, KPP_REAL FacMin, KPP_REAL FacMax, - KPP_REAL FacRej, KPP_REAL Qmin, KPP_REAL Qmax, int NewtonMaxit); -void SDIRK_ErrorScale(int N, int ITOL, KPP_REAL AbsTol[], KPP_REAL RelTol[], - KPP_REAL Y[], KPP_REAL SCAL[]); -KPP_REAL SDIRK_ErrorNorm(int N, KPP_REAL Y[], KPP_REAL SCAL[]); -int SDIRK_ErrorMsg(int code, KPP_REAL T, KPP_REAL H, int Ierr); -void SDIRK_PrepareMatrix(KPP_REAL H, KPP_REAL T, KPP_REAL Y[], KPP_REAL FJAC[], - int SkipJac, int SkipLU, KPP_REAL E[], int IP[], int Reject, - int ISING, int ISTATUS[]); -void SDIRK_Solve(KPP_REAL H, int N, KPP_REAL E[], int IP[], int ISING, - KPP_REAL RHS[], int ISTATUS[]); -void Sdirk4a(void); -void Sdirk4b(void); -void Sdirk2a(void); -void Sdirk2b(void); -void Sdirk3a(void); -void FUN_CHEM(KPP_REAL T, KPP_REAL Y[], KPP_REAL P[]); -void JAC_CHEM(KPP_REAL T, KPP_REAL Y[], KPP_REAL JV[]); -void Fun(KPP_REAL Y[], KPP_REAL FIX[], KPP_REAL RCONST[], KPP_REAL Ydot[]); -void Jac_SP(KPP_REAL Y[], KPP_REAL FIX[], KPP_REAL RCONST[], KPP_REAL Ydot[]); -void WAXPY(int N, KPP_REAL Alpha, KPP_REAL X[], int incX, KPP_REAL Y[], int incY); -void WSCAL(int N, KPP_REAL Alpha, KPP_REAL X[], int incX); -KPP_REAL WLAMCH(char C); -void WADD(int N, KPP_REAL Y[], KPP_REAL Z[], KPP_REAL TMP[]); -void Set2Zero(int N, KPP_REAL Y[]); -void KppSolve(KPP_REAL A[], KPP_REAL b[]); -int KppDecomp(KPP_REAL A[]); -void Update_SUN(); -void Update_RCONST(); - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -//void INTEGRATE(KPP_REAL TIN, KPP_REAL TOUT, int ICNTRL_U[], KPP_REAL RCNTRL_U[], -// int ISTATUS_U[], KPP_REAL RSTATUS_U[], int Ierr_U) -void INTEGRATE(KPP_REAL TIN, KPP_REAL TOUT) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - -/* int Ntotal = 0; *//* Used for debug option below to print the number of steps */ -KPP_REAL RCNTRL[20], - RSTATUS[20], - T1, - T2; - -int ICNTRL[20], - ISTATUS[20], - Ierr; - -Ierr = 0; - -int i; -for(i=0; i<20; i++) { - ICNTRL[i] = 0; - RCNTRL[i] = (KPP_REAL)0.0; - ISTATUS[i] = 0; - RSTATUS[i] = (KPP_REAL)0.0; -} /* end for */ - -/*~> fine-tune the integrator: */ -ICNTRL[1] = 0; /* 0 - vector tolerances, 1 - scalar tolerances */ -ICNTRL[5] = 0; /* starting values of N. iter.: interpolated 0), zero (1) */ - -///* If optional parameters are given, and if they are >0, -// then they overwrite default settings. */ -//if(ICNTRL_U != NULL) { /* Check to see if ICNTRL_U is not NULL */ -// for(i=0; i<20; i++) { -// if(ICNTRL_U[i] > 0) { -// ICNTRL[i] = ICNTRL_U[i]; -// } /* end if */ -// } /* end for */ -//} /* end if */ -// -//if(RCNTRL_U != NULL) { /* Check to see if RCNTRL_U is not NULL */ -// for(i=0; i<20; i++) { -// if(RCNTRL_U[i] > 0) { -// RCNTRL[i] = RCNTRL_U[i]; -// } /* end if */ -// } /* end for */ -//} /* end if */ - - -T1 = TIN; -T2 = TOUT; -Ierr = SDIRK( NVAR, T1, T2, VAR, RTOL, ATOL, RCNTRL, ICNTRL, RSTATUS, - ISTATUS); - - -/*~~~> Debug option: print number of steps - Ntotal += ISTATUS[Nstp]; */ - -if(Ierr < 0) { - printf("SDIRK: Unsuccessful exit at T=%f(Ierr=%d)", TIN, Ierr); -} - -///*if optional parameters are given for output they to return information */ -//if(ISTATUS_U != NULL) { /* Check to see if ISTATUS_U is not NULL */ -// for(i=0; i<20; i++) { -// ISTATUS_U[i] = ISTATUS[i]; -// } /* end for */ -//} /* end if */ -// -//if(RSTATUS_U != NULL) { /* Check to see if RSTATUS_U is not NULL */ -// for(i=0; i<20; i++) { -// RSTATUS_U[i] = RSTATUS[i]; -// } /* end for */ -//} /* end if */ -// -//Ierr_U = Ierr; - -} - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -int SDIRK(int N, KPP_REAL Tinitial, KPP_REAL Tfinal, KPP_REAL Y[], - KPP_REAL RelTol[], KPP_REAL AbsTol[], KPP_REAL RCNTRL[], - int ICNTRL[], KPP_REAL RSTATUS[], int ISTATUS[]) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - Solves the system y'=F(t,y) using a Singly-Diagonally-Implicit - Runge-Kutta (SDIRK) method. - - This implementation is based on the book and the code Sdirk4: - - E. Hairer and G. Wanner - "Solving ODEs II. Stiff and differential-algebraic problems". - Springer series in computational mathematics, Springer-Verlag, 1996. - This code is based on the SDIRK4 routine in the above book. - - Methods: - * Sdirk 2a, 2b: L-stable, 2 stages, order 2 - * Sdirk 3a: L-stable, 3 stages, order 2, adjoint-invariant - * Sdirk 4a, 4b: L-stable, 5 stages, order 4 - - (C) Adrian Sandu, July 2005 - Virginia Polytechnic Institute and State University - Contact: sandu@cs.vt.edu - Revised by Philipp Miehe and Adrian Sandu, May 2006 - Translation F90 to C by Paul Eller and Nicholas Hobbs, July 2006 - This implementation is part of KPP - the Kinetic PreProcessor -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -~~~> INPUT ARGUMENTS: - - - Y[NVAR] = vector of initial conditions (at T=Tinitial) - - [Tinitial,Tfinal] = time range of integration - (if Tinitial>Tfinal the integration is performed backwards in time) - - RelTol, AbsTol = user precribed accuracy - - SUBROUTINE ode_Fun( T, Y, Ydot ) = ODE function, - returns Ydot = Y' = F(T,Y) - - SUBROUTINE ode_Fun( T, Y, Ydot ) = Jacobian of the ODE function, - returns Jcb = dF/dY - - ICNTRL[1:20] = integer inputs parameters - - RCNTRL[1:20] = real inputs parameters -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -~~~> OUTPUT ARGUMENTS: - - - Y[NVAR] -> vector of final states (at T->Tfinal) - - ISTATUS[1:20] -> integer output parameters - - RSTATUS[1:20] -> real output parameters - - Ierr -> job status upon return - success (positive value) or - failure (negative value) -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -~~~> INPUT PARAMETERS: - Note: For input parameters equal to zero the default values of the - corresponding variables are used. - - Note: For input parameters equal to zero the default values of the - corresponding variables are used. -~~~> - ICNTRL[0] = not used - ICNTRL[1] = 0: AbsTol, RelTol are NVAR-dimensional vectors - = 1: AbsTol, RelTol are scalars - ICNTRL[2] = Method - ICNTRL[3] -> maximum number of integration steps - For ICNTRL[3]=0 the default value of 100000 is used - ICNTRL[4] -> maximum number of Newton iterations - For ICNTRL(4)=0 the default value of 8 is used - ICNTRL[5] -> starting values of Newton iterations: - ICNTRL[5]=0 : starting values are interpolated (the default) - ICNTRL[5]=1 : starting values are zero - -~~~> Real parameters - - RCNTRL[0] -> Hmin, lower bound for the integration step size - It is strongly recommended to keep Hmin = ZERO - RCNTRL[1] -> Hmax, upper bound for the integration step size - RCNTRL[2] -> Hstart, starting value for the integration step size - RCNTRL[3] -> FacMin, lower bound on step decrease factor (default=0.2) - RCNTRL[4] -> FacMax, upper bound on step increase factor (default=6) - RCNTRL[5] -> FacRej, step decrease factor after multiple rejections - (default=0.1) - RCNTRL[6] -> FacSafe, by which the new step is slightly smaller - than the predicted value (default=0.9) - RCNTRL[7] -> ThetaMin. If Newton convergence rate smaller - than ThetaMin the Jacobian is not recomputed; - (default=0.001) - RCNTRL[8] -> NewtonTol, stopping criterion for Newton's method - (default=0.03) - RCNTRL[9] -> Qmin - RCNTRL[10] -> Qmax. If Qmin < Hnew/Hold < Qmax, then the - step size is kept constant and the LU factorization - reused (default Qmin=1, Qmax=1.2) -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -~~~> OUTPUT PARAMETERS: - Note: each call to Rosenbrock adds the current no. of fcn calls - to previous value of ISTATUS(1), and similar for the other params. - Set ISTATUS(1:10) = 0 before call to avoid this accumulation. - ISTATUS[0] = No. of function calls - ISTATUS[1] = No. of jacobian calls - ISTATUS[2] = No. of steps - ISTATUS[3] = No. of accepted steps - ISTATUS[4] = No. of rejected steps (except at the beginning) - ISTATUS[5] = No. of LU decompositions - ISTATUS[6] = No. of forward/backward substitutions - ISTATUS[7] = No. of singular matrix decompositions - RSTATUS[0] -> Texit, the time corresponding to the computed Y upon return - RSTATUS[1] -> Hexit,last accepted step before return - RSTATUS[2] -> Hnew, last predicted step before return - For multiple restarts, use Hnew as Hstart in the following run - -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - -int Max_no_steps=0; - -/*~~~> Local variables */ -int StartNewton; - -KPP_REAL Hmin=0, - Hmax=0, - Hstart=0, - Roundoff, - FacMin=0, - FacMax=0, - FacSafe=0, - FacRej=0, - ThetaMin, - NewtonTol, - Qmin, - Qmax; - -int ITOL, - NewtonMaxit, - i, - Ierr = 0; - -/*~~~> For Scalar tolerances (ICNTRL[1] !=0 ) the code uses AbsTol[1] and RelTol[1) - For Vector tolerances (ICNTRL[1] == 0) the code uses AbsTol[1:NVAR] and RelTol[1:NVAR] */ -if (ICNTRL[1]==0){ - ITOL = 1; -} -else { - ITOL = 0; -} /* end if */ - -/*~~~> ICNTRL[3] - method selection */ - -switch (ICNTRL[2]) { - -case 0: Sdirk2a(); - break; - -case 1: Sdirk2a(); - break; - -case 2: Sdirk2b(); - break; - -case 3: Sdirk3a(); - break; - -case 4: Sdirk4a(); - break; - -case 5: Sdirk4b(); - break; - -default: Sdirk2a(); - -} /* end switch */ - -/*~~~> The maximum number of time steps admitted */ -if (ICNTRL[3] == 0) { - Max_no_steps = 200000; -} -else if (ICNTRL[3] > 0) { - Max_no_steps = ICNTRL[3]; -} -else { - printf("User-selected ICNTRL(4)=%d", ICNTRL[3]); - SDIRK_ErrorMsg(-1,Tinitial,ZERO,Ierr); -} /*end if */ - -/*~~~>The maximum number of Newton iterations admitted */ -if(ICNTRL[4]==0) { - NewtonMaxit = 8; -} -else { - NewtonMaxit=ICNTRL[4]; - if(NewtonMaxit <=0) { - printf("User-selected ICNTRL(5)=%d", ICNTRL[4] ); - SDIRK_ErrorMsg(-2,Tinitial,ZERO,Ierr); - } -} - -/*~~~> StartNewton: Extrapolate for starting values of Newton iterations */ -if (ICNTRL[5] == 0) { - StartNewton = 1; -} -else { - StartNewton = 0; -} /* end if */ - -/*~~~> Unit roundoff (1+Roundoff>1) */ -Roundoff = WLAMCH('E'); - -/*~~~> Lower bound on the step size: (positive value) */ -if (RCNTRL[0] == ZERO) { - Hmin = ZERO; -} -else if (RCNTRL[0] > ZERO) { - Hmin = RCNTRL[0]; -} -else { - printf("User-selected RCNTRL[0]=%f", RCNTRL[0]); - SDIRK_ErrorMsg(-3,Tinitial,ZERO,Ierr); -} /* end if */ - -/*~~~> Upper bound on the step size: (positive value) */ -if (RCNTRL[1] == ZERO) { - Hmax = ABS(Tfinal-Tinitial); -} -else if (RCNTRL[1] > ZERO) { - Hmax = MIN( ABS(RCNTRL[1]), ABS(Tfinal-Tinitial) ); -} -else { - printf("User-selected RCNTRL[1]=%f", RCNTRL[1]); - SDIRK_ErrorMsg(-3,Tinitial,ZERO,Ierr); -} /* end if */ - -/*~~~> Starting step size: (positive value) */ -if (RCNTRL[2] == ZERO) { - Hstart = MAX( Hmin, Roundoff); -} -else if (RCNTRL[2] > ZERO) { - Hstart = MIN( ABS(RCNTRL[2]), ABS(Tfinal-Tinitial) ); -} -else { - printf("User-selected Hstart: RCNTRL[2]=%f", RCNTRL[2]); - SDIRK_ErrorMsg(-3,Tinitial,ZERO,Ierr); -} /* end if */ - -/*~~~> Step size can be changed s.t. FacMin < Hnew/Hexit < FacMax */ -if (RCNTRL[3] == ZERO) { - FacMin = (KPP_REAL)0.2; -} -else if (RCNTRL[3] > ZERO) { - FacMin = RCNTRL[3]; -} -else { - printf("User-selected FacMin: RCNTRL[3]=%f", RCNTRL[3]); - SDIRK_ErrorMsg(-4,Tinitial,ZERO,Ierr); -} /* end if */ - -if (RCNTRL[4] == ZERO) { - FacMax = (KPP_REAL)10.0; -} -else if (RCNTRL[4] > ZERO) { - FacMax = RCNTRL[4]; -} -else { - printf("User-selected FacMax: RCNTRL[4]=%f", RCNTRL[4]); - SDIRK_ErrorMsg(-4,Tinitial,ZERO,Ierr); -} /* end if */ - -/*~~~> FacRej: Factor to decrease step after 2 succesive rejections */ -if (RCNTRL[5] == ZERO) { - FacRej = (KPP_REAL)0.1; -} -else if (RCNTRL[5] > ZERO) { - FacRej = RCNTRL[5]; -} -else { - printf("User-selected FacRej: RCNTRL[5]=%f", RCNTRL[5]); - SDIRK_ErrorMsg(-4,Tinitial,ZERO,Ierr); -} /*end if */ - -/* ~~~> FacSafe: Safety Factor in the computation of new step size */ -if (RCNTRL[6] == ZERO) { - FacSafe = (KPP_REAL)0.9; -} -else if (RCNTRL[6] > ZERO) { - FacSafe = RCNTRL[6]; -} -else { - printf("User-selected FacSafe: RCNTRL[6]=%f", RCNTRL[6]); - SDIRK_ErrorMsg(-4,Tinitial,ZERO,Ierr); -} /* end if */ - -/*~~~> ThetaMin: decides whether the Jacobian should be recomputed */ -if (RCNTRL[7] == ZERO) { - ThetaMin = (KPP_REAL)1.0e-03; -} -else { - ThetaMin = RCNTRL[7]; -} /* end if */ - -/*~~~> Stopping criterion for Newton's method */ -if (RCNTRL[8] == ZERO) { - NewtonTol = (KPP_REAL)3.0e-02; -} -else { - NewtonTol = RCNTRL[8]; -} /* end if */ - -/* ~~~> Qmin, Qmax: IF Qmin < Hnew/Hold < Qmax, STEP SIZE = CONST. */ -if (RCNTRL[9] == ZERO) { - Qmin = ONE; -} -else { - Qmin = RCNTRL[9]; -} /* end if */ - -if (RCNTRL[10] == ZERO) { - Qmax = (KPP_REAL)1.2; -} -else { - Qmax = RCNTRL [10]; -} /* end if */ - -/* ~~~> Check if tolerances are reasonable */ -if (ITOL == 0) { - if ((AbsTol[0]<=ZERO || RelTol[0])<=(((KPP_REAL)10.0)*Roundoff)) { - SDIRK_ErrorMsg(-5,Tinitial,ZERO,Ierr); - } /* end internal if */ -} -else { - for (i = 0; i < N; i++) { - if((AbsTol[i]<=ZERO)||(RelTol[i]<=((KPP_REAL)10.0)*Roundoff)){ - SDIRK_ErrorMsg(-5,Tinitial,ZERO,Ierr); - } /* end internal if */ - } /* end for */ -} /* end if */ - -if (Ierr < 0) { - return Ierr; -} /*end if */ - -Ierr = SDIRK_Integrator(N, Tinitial, Tfinal, Y, Ierr, Hstart, Hmin, Hmax, - Roundoff, AbsTol, RelTol, ISTATUS, RSTATUS, ITOL, Max_no_steps, - StartNewton, NewtonTol, ThetaMin, FacSafe, FacMin, FacMax, FacRej, - Qmin, Qmax, NewtonMaxit); - -return Ierr; - -} /* end of main SDIRK function */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -int SDIRK_Integrator(int N, KPP_REAL Tinitial, KPP_REAL Tfinal, KPP_REAL Y[], - int Ierr, KPP_REAL Hstart, KPP_REAL Hmin, KPP_REAL Hmax, KPP_REAL Roundoff, - KPP_REAL AbsTol[], KPP_REAL RelTol[], int ISTATUS[], KPP_REAL RSTATUS[], - int ITOL, int Max_no_steps, int StartNewton, KPP_REAL NewtonTol, - KPP_REAL ThetaMin, KPP_REAL FacSafe, KPP_REAL FacMin, KPP_REAL FacMax, - KPP_REAL FacRej, KPP_REAL Qmin, KPP_REAL Qmax, int NewtonMaxit) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - -/*~~~> Local variables: */ -KPP_REAL Z[Smax][NVAR], - G[NVAR], - TMP[NVAR], - NewtonRate, - SCAL[NVAR], - RHS[NVAR], - T, - H, - Theta=0, - Hratio, - NewtonPredictedErr, - Qnewton, - Err=0, - Fac, - Hnew, - Tdirection, - NewtonIncrement=0, - NewtonIncrementOld=0; - -int IER=0, - istage, - NewtonIter, - IP[NVAR], - Reject, - FirstStep, - SkipJac, - SkipLU, - NewtonDone, - CycleTloop, - i, - j; - -#ifdef FULL_ALGEBRA - KPP_REAL FJAC[NVAR][NVAR]; - KPP_REAL E[NVAR][NVAR]; -#else - KPP_REAL FJAC[LU_NONZERO]; - KPP_REAL E[LU_NONZERO]; -#endif - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -/*~~~~> Initializations */ -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -T = Tinitial; -Tdirection = SIGN(ONE, Tfinal-Tinitial); -H = MAX(ABS(Hmin), ABS(Hstart)); - -if(ABS(H) <= ((KPP_REAL)10.0 * Roundoff)) { - H = (KPP_REAL)(1.0e-06); -} /* end if */ - -H = MIN(ABS(H), Hmax); -H = SIGN(H, Tdirection); -SkipLU = 0; -SkipJac = 0; -Reject = 0; -FirstStep = 1; -CycleTloop = 0; - -SDIRK_ErrorScale(N, ITOL, AbsTol, RelTol, Y, SCAL); - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -/*~~~> Time loop begins */ -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -while((Tfinal-T)*Tdirection - Roundoff > ZERO) { /* Tloop */ - -/*~~~> Compute E = 1/(h*gamma)-Jac and its LU decomposition */ - if(SkipLU == 0) { /* This time around skip the Jac update and LU */ - SDIRK_PrepareMatrix(H, T, Y, FJAC, SkipJac, SkipLU, E, IP, - Reject, IER, ISTATUS); - if(IER != 0) { - SDIRK_ErrorMsg(-8, T, H, Ierr); - return Ierr; - } /* end if */ - } /* end if */ - - if(ISTATUS[Nstp] > Max_no_steps) { - SDIRK_ErrorMsg(-6, T, H, Ierr); - return Ierr; - } /* end if */ - - if((T + ((KPP_REAL)0.1) * H == T) || (ABS(H) <= Roundoff)) { - SDIRK_ErrorMsg(-7, T, H, Ierr); - return Ierr; - } /* end if */ - -/*stages*/ for(istage=0; istage < rkS; istage++) { - /*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - /*~~~> Simplified Newton iterations */ - /*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - /*~~~> Starting values for Newton iterations */ - Set2Zero(N, &Z[istage][0]); - - /*~~~> Prepare the loop-independent part of the right-hand side */ - Set2Zero(N, G); - if(istage > 0) { - for(j=0; j < istage; j++) { - WAXPY(N, rkTheta[j][istage], - &Z[j][0], 1, G, 1); - if(StartNewton == 1) { - WAXPY(N, rkAlpha[j][istage], - &Z[j][0], 1, - &Z[istage][0], 1); - } /* end if */ - } /* end for */ - } /* end if */ - - /*~~~> Initializations for Newton iteration */ - NewtonDone = 0; /* false */ - Fac = (KPP_REAL)0.5; /* Step reduction factor */ - -/*NewtonLoop*/ for(NewtonIter=0; NewtonIter Prepare the loop-dependent part of the right-hand side */ - WADD(N, Y, &Z[istage][0], TMP); - FUN_CHEM(T+rkC[istage]*H, TMP, RHS); - ISTATUS[Nfun]++; - WSCAL(N, H*rkGamma, RHS, 1); - WAXPY(N, -ONE, &Z[istage][0], 1, RHS, 1); - WAXPY(N, ONE, G, 1, RHS, 1 ); - - /*~~~> Solve the linear system */ - SDIRK_Solve(H, N, E, IP, IER, RHS, ISTATUS); - - /*~~~> Check convergence of Newton iterations */ - NewtonIncrement = SDIRK_ErrorNorm(N, RHS, SCAL); - - if(NewtonIter == 0) { - Theta = ABS(ThetaMin); - NewtonRate = (KPP_REAL)2.0; - } - else { - Theta = NewtonIncrement/NewtonIncrementOld; - - if(Theta < (KPP_REAL)0.99) { - NewtonRate = Theta/(ONE-Theta); - /* Predict error at the end of Newton process */ - NewtonPredictedErr = - (NewtonIncrement*pow(Theta, - (NewtonMaxit - (NewtonIter + - 1)) / (ONE - Theta))); - if(NewtonPredictedErr >= NewtonTol) { - /* Non-convergence of Newton: - predicted error too large*/ - Qnewton = MIN((KPP_REAL)10.0, - NewtonPredictedErr/ - NewtonTol); - Fac = (KPP_REAL)0.8 * pow - (Qnewton, (-ONE / (1 - + NewtonMaxit - - NewtonIter + 1))); - break; - } /* end internal if */ - } - else /* Non-convergence of Newton: - Theta too large */ { - break; - } /* end internal if else */ - } /* end if else */ - - NewtonIncrementOld = NewtonIncrement; - - /* Update solution: Z(:) <-- Z(:)+RHS(:) */ - WAXPY(N, ONE, RHS, 1, &Z[istage][0], 1); - - /* Check error in Newton iterations */ - NewtonDone=(NewtonRate*NewtonIncrement<=NewtonTol); - - if(NewtonDone == 1) { - break; - } - } /* end NewtonLoop for */ - - if(NewtonDone == 0) { - /* CALL RK_ErrorMsg(-12,T,H,Ierr); */ - H = Fac*H; - Reject = 1; /* true */ - SkipJac = 1;/* true */ - SkipLU = 0;/* false */ - CycleTloop = 1; /* cycle Tloop */ - } /* end if */ - - if(CycleTloop == 1) { - CycleTloop=0; - break; - } - } /* end stages for */ - - if(CycleTloop==0) { - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -/*~~~> Error estimation */ -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - ISTATUS[Nstp]++; - Set2Zero(N, TMP); - - for(i=0; i Computation of new step size Hnew */ - Fac = FacSafe * pow((Err), (-ONE/rkELO)); - Fac = MAX(FacMin, MIN(FacMax, Fac)); - Hnew = H*Fac; - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -/*~~~> Accept/Reject step */ -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - if(Err < ONE) { /*~~~> Step is accepted */ - FirstStep = 0; /* false */ - ISTATUS[Nacc]++; - - /*~~~> Update time and solution */ - T = T + H; - - /* Y(:) <-- Y(:) + Sum_j rkD(j)*Z_j(:) */ - for(i=0; i Update scaling coefficients */ - SDIRK_ErrorScale(N, ITOL, AbsTol, RelTol, Y, SCAL); - - /*~~~> Next time step */ - Hnew = Tdirection*MIN(ABS(Hnew), Hmax); - - /* Last T and H */ - RSTATUS[Ntexit] = T; - RSTATUS[Nhexit] = H; - RSTATUS[Nhnew] = Hnew; - - /* No step increase after a rejection */ - if(Reject==1) { - Hnew = Tdirection*MIN(ABS(Hnew), ABS(H)); - } /* end if */ - - Reject = 0; /* false */ - - if((T+Hnew/Qmin-Tfinal)*Tdirection > ZERO) { - H = Tfinal-T; - } - else { - Hratio = Hnew/H; - /* If step not changed too much keep Jacobian and reuse LU */ - SkipLU = ((Theta <= ThetaMin) && (Hratio >= Qmin) && - (Hratio <= Qmax)); - - if(SkipLU==0) { - H = Hnew; - } /* end internal if */ - } /* end if else */ - - SkipJac = (Theta <= ThetaMin); - SkipJac = 0; /* false */ - } - else { /*~~~> Step is rejected */ - if((FirstStep==1) || (Reject==1)) { - H = FacRej * H; - } - else { - H = Hnew; - } /* end internal if */ - - Reject = 1; - SkipJac = 1; - SkipLU = 0; - - if(ISTATUS[Nacc] >=1) { - ISTATUS[Nrej]++; - } /* end if */ - } /* end if else */ - } /* end CycleTloop if */ -} /* end Tloop */ - -/* Successful return */ -Ierr = 1; -return Ierr; - -} /* end SDIRK_Integrator */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void SDIRK_ErrorScale(int N, int ITOL, KPP_REAL AbsTol[], KPP_REAL RelTol[], - KPP_REAL Y[],KPP_REAL SCAL[]) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - -int i; -if (ITOL == 0){ - for (i = 0; i < NVAR; i++){ - SCAL[i] = ONE / (AbsTol[0]+RelTol[0]*ABS(Y[i]) ); - } /* end for */ -} -else { - for (i = 0; i < NVAR; i++){ - SCAL[i] = ONE / (AbsTol[i]+RelTol[i]*ABS(Y[i]) ); - } /* end for */ -} /* end if */ - -} /* end SDIRK_ErrorScale */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -KPP_REAL SDIRK_ErrorNorm(int N, KPP_REAL Y[], KPP_REAL SCAL[]) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - -int i; -KPP_REAL Err = ZERO; - -for (i = 0; i < N; i++) { - Err = Err + pow( (Y[i]*SCAL[i]), 2); -} /* end for */ - -Err = MAX( SQRT(Err/(KPP_REAL)N), (KPP_REAL)1.0e-10); - -return Err; - -} /* end SDIRK_ErrorNorm */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -int SDIRK_ErrorMsg(int code, KPP_REAL T, KPP_REAL H, int Ierr) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - * Handles all error messages - *~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */ -{ - -Ierr = code; - -printf("\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"); -printf("\nForced exit from Sdirk due to the following error:\n"); - -switch (code) { - -case -1: - printf("--> Improper value for maximal no of steps"); - break; -case -2: - printf("--> Selected Rosenbrock method not implemented"); - break; -case -3: - printf("--> Hmin/Hmax/Hstart must be positive"); - break; -case -4: - printf("--> FacMin/FacMax/FacRej must be positive"); - break; -case -5: - printf("--> Improper tolerance values"); - break; -case -6: - printf("--> No of steps exceeds maximum bound"); - break; -case -7: - printf("--> Step size too small (T + H/10 = T) or H < Roundoff"); - break; -case -8: - printf("--> Matrix is repeatedly singular"); - break; -default: /* causing an error */ - printf("Unknown Error code: %d", code); - -} /* end switch */ - -printf("\n Time = %f and H = %f", T, H ); -printf("\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"); - -return code; - -} /* end SDIRK_ErrorMsg */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void SDIRK_PrepareMatrix(KPP_REAL H, KPP_REAL T, KPP_REAL Y[], KPP_REAL FJAC[], - int SkipJac, int SkipLU, KPP_REAL E[], int IP[], - int Reject, int ISING, int ISTATUS[] ) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - * Compute the matrix E = 1/(H*GAMMA)*Jac, and its decomposition - *~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - -KPP_REAL HGammaInv; -int i, j; -int ConsecutiveSng = 0; -ISING = 1; - - -while( ISING != 0) { - HGammaInv = ONE/(H*rkGamma); - -/*~~~> Compute the Jacobian */ - if(SkipJac==0) { - JAC_CHEM(T,Y,FJAC); - ISTATUS[Njac]++; - } /* end if */ - - #ifdef FULL_ALGEBRA - for(j=0; j= 6) { - return; /* Failure */ - } /* end internal if */ - - H = (KPP_REAL)(0.5) * H; - SkipJac = 1; /* true */ - SkipLU = 0; /* false */ - Reject = 1; /* true */ - } /* end if */ -} /* end while */ - -} /* end SDIRK_PrepareMatrix */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void SDIRK_Solve( KPP_REAL H, int N, KPP_REAL E[], int IP[], int ISING, - KPP_REAL RHS[], int ISTATUS[] ) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - * Solves the system (H*Gamma-Jac)*x = RHS - * using the LU decomposition of E = I - 1/(H*Gamma)*Jac - *~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - -KPP_REAL HGammaInv = ONE/(H * rkGamma); - -WSCAL(N, HGammaInv, RHS, 1); - -#ifdef FULL_ALGEBRA - DGETRS('N', N, 1, E, N, IP, RHS, N, ISING); -#else - KppSolve(E, RHS); -#endif - ISTATUS[Nsol]++; - -} /* end SDIRK_Solve */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void Sdirk4a() -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - -sdMethod = S4A; - -/* Number of stages */ -rkS = 5; - -/* Method Coefficients */ -rkGamma = (KPP_REAL)0.2666666666666666666666666666666667; - -rkA[0][0] = (KPP_REAL)0.2666666666666666666666666666666667; -rkA[0][1] = (KPP_REAL)0.5000000000000000000000000000000000; -rkA[1][1] = (KPP_REAL)0.2666666666666666666666666666666667; -rkA[0][2] = (KPP_REAL)0.3541539528432732316227461858529820; -rkA[1][2] = (KPP_REAL)(-0.5415395284327323162274618585298197e-01); -rkA[2][2] = (KPP_REAL)0.2666666666666666666666666666666667; -rkA[0][3] = (KPP_REAL)0.8515494131138652076337791881433756e-01; -rkA[1][3] = (KPP_REAL)(-0.6484332287891555171683963466229754e-01); -rkA[2][3] = (KPP_REAL)0.7915325296404206392428857585141242e-01; -rkA[3][3] = (KPP_REAL)0.2666666666666666666666666666666667; -rkA[0][4] = (KPP_REAL)2.100115700566932777970612055999074; -rkA[1][4] = (KPP_REAL)(-0.7677800284445976813343102185062276); -rkA[2][4] = (KPP_REAL)2.399816361080026398094746205273880; -rkA[3][4] = (KPP_REAL)(-2.998818699869028161397714709433394); -rkA[4][4] = (KPP_REAL)0.2666666666666666666666666666666667; -rkB[0] = (KPP_REAL)2.100115700566932777970612055999074; -rkB[1] = (KPP_REAL)(-0.7677800284445976813343102185062276); -rkB[2] = (KPP_REAL)2.399816361080026398094746205273880; -rkB[3] = (KPP_REAL)(-2.998818699869028161397714709433394); -rkB[4] = (KPP_REAL)0.2666666666666666666666666666666667; - -rkBhat[0] = (KPP_REAL)2.885264204387193942183851612883390; -rkBhat[1] = (KPP_REAL)(-0.1458793482962771337341223443218041); -rkBhat[2] = (KPP_REAL)2.390008682465139866479830743628554; -rkBhat[3] = (KPP_REAL)(-4.129393538556056674929560012190140); -rkBhat[4] = ZERO; - -rkC[0] = (KPP_REAL)0.2666666666666666666666666666666667; -rkC[1] = (KPP_REAL)0.7666666666666666666666666666666667; -rkC[2] = (KPP_REAL)0.5666666666666666666666666666666667; -rkC[3] = (KPP_REAL)0.3661315380631796996374935266701191; -rkC[4] = ONE; - -/* Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} */ -rkD[0] = ZERO; -rkD[1] = ZERO; -rkD[2] = ZERO; -rkD[3] = ZERO; -rkD[4] = ONE; - -/* Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} */ -rkE[0] = (KPP_REAL)(-0.6804000050475287124787034884002302); -rkE[1] = (KPP_REAL)(1.558961944525217193393931795738823); -rkE[2] = (KPP_REAL)(-13.55893003128907927748632408763868); -rkE[3] = (KPP_REAL)(15.48522576958521253098585004571302); -rkE[4] = ONE; - -/* Local order of Err estimate */ -rkELO = 4; - -/* h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} */ -rkTheta[0][1] = (KPP_REAL)1.875000000000000000000000000000000; -rkTheta[0][2] = (KPP_REAL)1.708847304091539528432732316227462; -rkTheta[1][2] = (KPP_REAL)(-0.2030773231622746185852981969486824); -rkTheta[0][3] = (KPP_REAL)0.2680325578937783958847157206823118; -rkTheta[1][3] = (KPP_REAL)(-0.1828840955527181631794050728644549); -rkTheta[2][3] = (KPP_REAL)0.2968246986151577397160821594427966; -rkTheta[0][4] = (KPP_REAL)0.9096171815241460655379433581446771; -rkTheta[1][4] = (KPP_REAL)(-3.108254967778352416114774430509465); -rkTheta[2][4] = (KPP_REAL)12.33727431701306195581826123274001; -rkTheta[3][4] = (KPP_REAL)(-11.24557012450885560524143016037523); - -/* Starting value for Newton iterations: Z_i^0 = Sum_j {rkAlpha_ij*Z_j} */ -rkAlpha[0][1] = (KPP_REAL)2.875000000000000000000000000000000; -rkAlpha[0][2] = (KPP_REAL)0.8500000000000000000000000000000000; -rkAlpha[1][2] = (KPP_REAL)0.4434782608695652173913043478260870; -rkAlpha[0][3] = (KPP_REAL)0.7352046091658870564637910527807370; -rkAlpha[1][3] = (KPP_REAL)(-0.9525565003057343527941920657462074e-01); -rkAlpha[2][3] = (KPP_REAL)0.4290111305453813852259481840631738; -rkAlpha[0][4] = (KPP_REAL)(-16.10898993405067684831655675112808); -rkAlpha[1][4] = (KPP_REAL)6.559571569643355712998131800797873; -rkAlpha[2][4] = (KPP_REAL)(-15.90772144271326504260996815012482); -rkAlpha[3][4] = (KPP_REAL)25.34908987169226073668861694892683; - -rkELO = (KPP_REAL)4.0; - -} /* end Sdirk4a */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void Sdirk4b() -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - -sdMethod = S4B; - -/* Number of stages */ -rkS = 5; - -/* Method coefficients */ -rkGamma = (KPP_REAL)0.25; - -rkA[0][0] = (KPP_REAL)0.25; -rkA[0][1] = (KPP_REAL)0.5; -rkA[1][1] = (KPP_REAL)0.25; -rkA[0][2] = (KPP_REAL)0.34; -rkA[1][2] = (KPP_REAL)(-0.40e-01); -rkA[2][2] = (KPP_REAL)0.25; -rkA[0][3] = (KPP_REAL)0.2727941176470588235294117647058824; -rkA[1][3] = (KPP_REAL)(-0.5036764705882352941176470588235294e-01); -rkA[2][3] = (KPP_REAL)0.2757352941176470588235294117647059e-01; -rkA[3][3] = (KPP_REAL)0.25; -rkA[0][4] = (KPP_REAL)1.041666666666666666666666666666667; -rkA[1][4] = (KPP_REAL)(-1.020833333333333333333333333333333); -rkA[2][4] = (KPP_REAL)7.812500000000000000000000000000000; -rkA[3][4] = (KPP_REAL)(-7.083333333333333333333333333333333); -rkA[4][4] = (KPP_REAL)0.25; - -rkB[0] = (KPP_REAL)1.041666666666666666666666666666667; -rkB[1] = (KPP_REAL)(-1.020833333333333333333333333333333); -rkB[2] = (KPP_REAL)7.812500000000000000000000000000000; -rkB[3] = (KPP_REAL)(-7.083333333333333333333333333333333); -rkB[4] = (KPP_REAL)0.250000000000000000000000000000000; - -rkBhat[0] = (KPP_REAL)1.069791666666666666666666666666667; -rkBhat[1] = (KPP_REAL)(-0.894270833333333333333333333333333); -rkBhat[2] = (KPP_REAL)7.695312500000000000000000000000000; -rkBhat[3] = (KPP_REAL)(-7.083333333333333333333333333333333); -rkBhat[4] = (KPP_REAL)0.212500000000000000000000000000000; - -rkC[0] = (KPP_REAL)0.25; -rkC[1] = (KPP_REAL)0.75; -rkC[2] = (KPP_REAL)0.55; -rkC[3] = (KPP_REAL)0.5; -rkC[4] = ONE; - -/* Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} */ -rkD[0] = ZERO; -rkD[1] = ZERO; -rkD[2] = ZERO; -rkD[3] = ZERO; -rkD[4] = ONE; - -/* Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} */ -rkE[0] = (KPP_REAL)0.5750; -rkE[1] = (KPP_REAL)0.2125; -rkE[2] = (KPP_REAL)(-4.6875); -rkE[3] = (KPP_REAL)4.2500; -rkE[4] = (KPP_REAL)0.1500; - -/* Local order of Err estimate */ -rkELO = 4; - -/* h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} */ -rkTheta[0][1] = (KPP_REAL)2.0; -rkTheta[0][2] = (KPP_REAL)1.680000000000000000000000000000000; -rkTheta[1][2] = (KPP_REAL)(-0.1600000000000000000000000000000000); -rkTheta[0][3] = (KPP_REAL)1.308823529411764705882352941176471; -rkTheta[1][3] = (KPP_REAL)(-0.1838235294117647058823529411764706); -rkTheta[2][3] = (KPP_REAL)0.1102941176470588235294117647058824; -rkTheta[0][4] = (KPP_REAL)(-3.083333333333333333333333333333333); -rkTheta[1][4] = (KPP_REAL)(-4.291666666666666666666666666666667); -rkTheta[2][4] = (KPP_REAL)34.37500000000000000000000000000000; -rkTheta[3][4] = (KPP_REAL)(-28.3333333333333333333333333333); - -/* Starting value for Newton iterations: Z_i^0 = Sum_j {rkAlpha_ij*Z_j} */ -rkAlpha[0][1] = (KPP_REAL)3.0; -rkAlpha[0][2] = (KPP_REAL)0.8800000000000000000000000000000000; -rkAlpha[1][2] = (KPP_REAL)0.4400000000000000000000000000000000; -rkAlpha[0][3] = (KPP_REAL)0.1666666666666666666666666666666667; -rkAlpha[1][3] = (KPP_REAL)(-0.8333333333333333333333333333333333e-01); -rkAlpha[2][3] = (KPP_REAL)0.9469696969696969696969696969696970; -rkAlpha[0][4] = (KPP_REAL)(-6.0); -rkAlpha[1][4] = (KPP_REAL)9.0; -rkAlpha[2][4] = (KPP_REAL)(-56.81818181818181818181818181818182); -rkAlpha[3][4] = (KPP_REAL)54.0; - -} /* end Sdirk4b */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void Sdirk2a() -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - -sdMethod = S2A; - -/* ~~~> Number of stages */ -rkS = 2; - -/* ~~~> Method coefficients */ -rkGamma = (KPP_REAL)0.2928932188134524755991556378951510; -rkA[0][0] = (KPP_REAL)0.2928932188134524755991556378951510; -rkA[0][1] = (KPP_REAL)0.7071067811865475244008443621048490; -rkA[1][1] = (KPP_REAL)0.2928932188134524755991556378951510; -rkB[0] = (KPP_REAL)0.7071067811865475244008443621048490; -rkB[1] = (KPP_REAL)0.2928932188134524755991556378951510; -rkBhat[0] = (KPP_REAL)0.6666666666666666666666666666666667; -rkBhat[1] = (KPP_REAL)0.3333333333333333333333333333333333; -rkC[0] = (KPP_REAL)0.292893218813452475599155637895151; -rkC[1] = ONE; - -/* ~~~> Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} */ -rkD[0] = ZERO; -rkD[1] = ONE; - -/* ~~~> Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} */ -rkE[0] = (KPP_REAL)0.4714045207910316829338962414032326; -rkE[1] = (KPP_REAL)(-0.1380711874576983496005629080698993); - -/* ~~~> Local order of Err estimate */ -rkELO = 2; - -/* ~~~> h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} */ -rkTheta[0][1] = (KPP_REAL)2.414213562373095048801688724209698; - -/* ~~~> Starting value for Newton iterations */ -rkAlpha[0][1] = (KPP_REAL)3.414213562373095048801688724209698; - -} /* end Sdirk2a */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void Sdirk2b() -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - -sdMethod = S2B; - -/* ~~~> Number of stages */ -rkS = 2; - -/* ~~~> Method coefficients */ -rkGamma = (KPP_REAL)1.707106781186547524400844362104849; -rkA[0][0] = (KPP_REAL)1.707106781186547524400844362104849; -rkA[0][1] = (KPP_REAL)(-0.707106781186547524400844362104849); -rkA[1][1] = (KPP_REAL)1.707106781186547524400844362104849; -rkB[0] = (KPP_REAL)(-0.707106781186547524400844362104849); -rkB[1] = (KPP_REAL)1.707106781186547524400844362104849; -rkBhat[0] = (KPP_REAL)0.6666666666666666666666666666666667; -rkBhat[1] = (KPP_REAL)0.3333333333333333333333333333333333; -rkC[0] = (KPP_REAL)1.707106781186547524400844362104849; -rkC[1] = ONE; - -/* ~~~> Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} */ -rkD[0] = ZERO; -rkD[1] = ONE; - -/* ~~~> Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} */ -rkE[0] = (KPP_REAL)(-0.4714045207910316829338962414032326); -rkE[1] = (KPP_REAL)0.8047378541243650162672295747365659; - -/* ~~~> Local order of Err estimate */ -rkELO = 2; - -/* ~~~> h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} */ -rkTheta[0][1] = (KPP_REAL)(-0.414213562373095048801688724209698); - -/* ~~~> Starting value for Newton iterations */ -rkAlpha[0][1] = (KPP_REAL)0.5857864376269049511983112757903019; - -} /* end Sdirk2b */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void Sdirk3a() -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - -sdMethod = S3A; - -/* ~~~> Number of stages */ -rkS = 3; - -/* ~~~> Method coefficients */ -rkGamma = (KPP_REAL)0.2113248654051871177454256097490213; -rkA[0][0] = (KPP_REAL)0.2113248654051871177454256097490213; -rkA[0][1] = (KPP_REAL)0.2113248654051871177454256097490213; -rkA[1][1] = (KPP_REAL)0.2113248654051871177454256097490213; -rkA[0][2] = (KPP_REAL)0.2113248654051871177454256097490213; -rkA[1][2] = (KPP_REAL)0.5773502691896257645091487805019573; -rkA[2][2] = (KPP_REAL)0.2113248654051871177454256097490213; -rkB[0] = (KPP_REAL)0.2113248654051871177454256097490213; -rkB[1] = (KPP_REAL)0.5773502691896257645091487805019573; -rkB[2] = (KPP_REAL)0.2113248654051871177454256097490213; -rkBhat[0]= (KPP_REAL)0.2113248654051871177454256097490213; -rkBhat[1]= (KPP_REAL)0.6477918909913548037576239837516312; -rkBhat[2]= (KPP_REAL)0.1408832436034580784969504064993475; -rkC[0] = (KPP_REAL)0.2113248654051871177454256097490213; -rkC[1] = (KPP_REAL)0.4226497308103742354908512194980427; -rkC[2] = ONE; - -/* ~~~> Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} */ -rkD[0] = ZERO; -rkD[1] = ZERO; -rkD[2] = ONE; - -/* ~~~> Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} */ -rkE[0] = (KPP_REAL)0.9106836025229590978424821138352906; -rkE[1] = (KPP_REAL)(-1.244016935856292431175815447168624); -rkE[2] = (KPP_REAL)0.3333333333333333333333333333333333; - -/* ~~~> Local order of Err estimate */ -rkELO = 2; - -/* ~~~> h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} */ -rkTheta[0][1] = ONE; -rkTheta[0][2] = (KPP_REAL)(-1.732050807568877293527446341505872); -rkTheta[1][2] = (KPP_REAL)2.732050807568877293527446341505872; - -/* ~~~> Starting value for Newton iterations */ -rkAlpha[0][1] = (KPP_REAL)2.0; -rkAlpha[0][2] = (KPP_REAL)(-12.92820323027550917410978536602349); -rkAlpha[1][2] = (KPP_REAL)8.83012701892219323381861585376468; - -} /* end Sdirk3a */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void FUN_CHEM(KPP_REAL T, KPP_REAL Y[], KPP_REAL P[]) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - -KPP_REAL Told; - -Told = TIME; -TIME = T; -Update_SUN(); -Update_RCONST(); -Fun( Y, FIX, RCONST, P ); -TIME = Told; - - -} /* end FUN_CHEM */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void JAC_CHEM(KPP_REAL T, KPP_REAL Y[], KPP_REAL JV[]) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - -KPP_REAL Told; - -#ifdef FULL_ALGEBRA - KPP_REAL JS[LU_NONZERO]; - int i,j; -#endif - -Told = TIME; -TIME = T; -Update_SUN(); -Update_RCONST(); - -#ifdef FULL_ALGEBRA - Jac_SP( Y, FIX, RCONST, JS); - - for(j=0; j' - END IF - POSNEG=SIGN(1.D0,XEND-X) - HMAX1=MIN(ABS(HMAX),ABS(XEND-X)) - IF (ABS(H).LE.10.D0*UROUND) H=1.0D-6 - H=MIN(ABS(H),HMAX1) - H=SIGN(H,POSNEG) - HOLD=H - CFAC=SAFE*(1+2*NIT) - NEWTRE=.FALSE. - REJECT=.FALSE. - FIRST=.TRUE. - FACCO1=1.D0 - FACCO2=1.D0 - FACCO3=1.D0 - FACCO4=1.D0 - FACCO5=1.D0 - NSING=0 - XOLD=X - IF (ITOL.EQ.0) THEN - DO 8 I=1,N - 8 SCAL(I)=1.D0 / ( AbsTol(1)+RelTol(1)*DABS(Y(I)) ) - ELSE - DO 9 I=1,N - 9 SCAL(I)=1.D0 / ( AbsTol(I)+RelTol(I)*DABS(Y(I)) ) - END IF - -C --- BASIC INTEGRATION STEP - 10 CONTINUE - -C *** *** *** *** *** *** *** -C COMPUTATION OF THE JACOBIAN -C *** *** *** *** *** *** *** - NJAC=NJAC+1 - CALL JAC(N,X,Y,FJAC) - CALJAC=.TRUE. - 20 CONTINUE - -C *** *** *** *** *** *** *** -C COMPUTE THE MATRIX E AND ITS DECOMPOSITION -C *** *** *** *** *** *** *** - FAC1=1.D0/(H*GAMMA) - IF (IMPLCT) THEN - print *, 'IMPLCT 4' - ELSE ! EXPLICIT SYSTEM -C --- THE MATRIX E (MAS=IDENTITY, JACOBIAN A FULL MATRIX) -c DO 526 J=1,N -c DO 525 I=1,N -c 525 E(I,J)=-FJAC(I,J) -c 526 E(J,J)=E(J,J)+FAC1 -c CALL DEC(N,LE,E,IP,IER) - DO K=1,LU_NONZERO - E(K) = -FJAC(K) - END DO - DO I=1,N - IDG = LU_DIAG(I) - E(IDG) = E(IDG) + FAC1 - END DO - CALL KppDecomp ( E, IER) - - IF (IER.NE.0) GOTO 79 - END IF - NDEC=NDEC+1 - 30 CONTINUE - - IF (NSTEP.GT.NMAX.OR.X+.1D0*H.EQ.X.OR.ABS(H).LE.UROUND) GOTO 79 - XPH=X+H -C --- LOOP FOR THE 5 STAGES - FACCO1=DMAX1(FACCO1,UROUND)**0.8D0 - FACCO2=DMAX1(FACCO2,UROUND)**0.8D0 - FACCO3=DMAX1(FACCO3,UROUND)**0.8D0 - FACCO4=DMAX1(FACCO4,UROUND)**0.8D0 - FACCO5=DMAX1(FACCO5,UROUND)**0.8D0 - -C *** *** *** *** *** *** *** -C STARTING VALUES FOR NEWTON ITERATION -C *** *** *** *** *** *** *** - DO 59 ISTAGE=1,5 - IF (ISTAGE.EQ.1) THEN - XCH=X+GAMMA*H - IF (FIRST.OR.NEWTRE) THEN - DO 132 I=1,N - 132 Z(I)=0.D0 - ELSE - S=1.D0+GAMMA*H/HOLD - DO 232 I=1,N -c 232 Z(I) = 0.D0 - 232 Z(I)=S*(CONT(I+NN)+S*(CONT(I+NN2)+S*(CONT(I+NN3) - & +S*CONT(I+NN4))))-YHAT(I) - - END IF - DO 31 I=1,N - 31 G1(I)=0.D0 - FACCON=FACCO1 - END IF - IF (ISTAGE.EQ.2) THEN - XCH=X+C2*H - DO 131 I=1,N - Z1I=Z1(I) - Z(I)=ETA1*Z1I - 131 G1(I)=ALPH21*Z1I - FACCON=FACCO2 - END IF - IF (ISTAGE.EQ.3) THEN - XCH=X+C3*H - DO 231 I=1,N - Z1I=Z1(I) - Z2I=Z2(I) - Z(I)=ANU1*Z1I+ANU2*Z2I - 231 G1(I)=ALPH31*Z1I+ALPH32*Z2I - FACCON=FACCO3 - END IF - IF (ISTAGE.EQ.4) THEN - XCH=X+C4*H - DO 331 I=1,N - Z1I=Z1(I) - Z3I=Z3(I) - Z(I)=AMU1*Z1I+AMU3*Z3I - 331 G1(I)=ALPH41*Z1I+ALPH42*Z2(I)+ALPH43*Z3I - FACCON=FACCO4 - END IF - IF (ISTAGE.EQ.5) THEN - XCH=XPH - DO 431 I=1,N - Z1I=Z1(I) - Z2I=Z2(I) - Z3I=Z3(I) - Z4I=Z4(I) - Z(I)=E1*Z1I+E2*Z2I+E3*Z3I+E4*Z4I - YHAT(I)=Z(I) - 431 G1(I)=ALPH51*Z1I+ALPH52*Z2I+ALPH53*Z3I+ALPH54*Z4I - FACCON=FACCO5 - END IF - - - -C *** *** *** *** *** *** *** *** *** *** *** -C LOOP FOR THE SIMPLIFIED NEWTON ITERATION -C *** *** *** *** *** *** *** *** *** *** *** - NEWT=0 - THETA=ABS(THET) - IF (REJECT) THETA=2*ABS(THET) - 40 CONTINUE - IF (NEWT.GE.NIT) THEN - H=H/2.D0 - REJECT=.TRUE. - NEWTRE=.TRUE. - IF (CALJAC) GOTO 20 - GOTO 10 - END IF - -C --- COMPUTE THE RIGHT-HAND SIDE - DO 41 I=1,N - H1(I)=G1(I)-Z(I) - 41 CONT(I)=Y(I)+Z(I) - CALL FCN(N,XCH,CONT,F1) - NFCN=NFCN+1 - -C --- KppSolve THE LINEAR SYSTEMS - IF (IMPLCT) THEN - print *, 'IMPLCT 2' - ELSE - DO 345 I=1,N - 345 F1(I)=H1(I)*FAC1+F1(I) -C CALL SOL(N,LE,E,F1,IP) - CALL KppSolve(E, F1) - END IF - NEWT=NEWT+1 - DYNO=0.D0 -C --- NORM 2 --- - DO 57 I=1,N - 57 DYNO=DYNO+(F1(I)*SCAL(I))**2 - DYNO=DSQRT(DYNO/N) -C --- NORM INF --- -C DO 57 I=1,N -C 57 DYNO=DMAX1( DYNO, DABS(F1(I)*SCAL(I)) ) - - -C --- BAD CONVERGENCE OR NUMBER OF ITERATIONS TO LARGE - IF (NEWT.GE.2.AND.NEWT.LT.NIT) THEN - THETA=DYNO/DYNOLD - IF (THETA.LT.0.99D0) THEN - FACCON=THETA/(1.0D0-THETA) - DYTH=FACCON*DYNO*THETA**(NIT-1-NEWT) - QNEWT=DMAX1(1.0D-4,DMIN1(16.0D0,DYTH/FNEWT)) - IF (QNEWT.GE.1.0D0) THEN - H=.8D0*H*QNEWT**(-1.0D0/(NIT-NEWT)) - REJECT=.TRUE. - NEWTRE=.TRUE. - IF (CALJAC) GOTO 20 - GOTO 10 - END IF - ELSE - NEWTRE=.TRUE. - GOTO 78 - END IF - END IF - DYNOLD=DYNO - DO 58 I=1,N - 58 Z(I)=Z(I)+F1(I) - NSOL=NSOL+1 - IF (FACCON*DYNO.GT.FNEWT) GOTO 40 - -C --- END OF SIMPILFIED NEWTON - IF (ISTAGE.EQ.1) THEN - DO I=1,N - Z1(I) = Z(I) - END DO - FACCO1=FACCON - END IF - IF (ISTAGE.EQ.2) THEN - DO I=1,N - Z2(I) = Z(I) - END DO - FACCO2=FACCON - END IF - IF (ISTAGE.EQ.3) THEN - DO I=1,N - Z3(I) = Z(I) - END DO - FACCO3=FACCON - END IF - IF (ISTAGE.EQ.4) THEN - DO I=1,N - Z4(I) = Z(I) - END DO - FACCO4=FACCON - END IF - IF (ISTAGE.EQ.5) THEN - DO I=1,N - Z5(I) = Z(I) - END DO - FACCO5=FACCON - END IF - 59 CONTINUE - - -C *** *** *** *** *** *** *** -C ERROR ESTIMATION -C *** *** *** *** *** *** *** - NSTEP=NSTEP+1 - IF (IMPLCT) THEN - print *,'IMPLCT 3' - ELSE - DO 461 I=1,N - 461 CONT(I)=FAC1*(Z5(I)-YHAT(I)) - END IF - - CALL KppSolve(E, CONT) - - ERR=0.D0 -C ---- NORM 2 --- - DO 64 I=1,N - 64 ERR=ERR+(CONT(I)*SCAL(I))**2 - ERR=DMAX1(DSQRT(ERR/N),1.D-10) - -C ---- NORM INF --- -C DO 64 I=1,N -c 64 ERR=DMAX1( ERR, DABS( CONT(I)*SCAL(I) ) ) - -C --- COMPUTATION OF HNEW -C --- WE REQUIRE .25<=HNEW/H<=10. - FAC=DMIN1(SAFE,CFAC/(NEWT+2*NIT)) - QUOT=DMAX1(.25D0,DMIN1(10.D0,(ERR)**.25D0/FAC)) - HNEW= H/QUOT - -C *** *** *** *** *** *** *** -C IS THE ERROR SMALL ENOUGH ? -C *** *** *** *** *** *** *** - IF (ERR.LT.1.D0) THEN -C --- STEP IS ACCEPTED - FIRST=.FALSE. - NACCPT=NACCPT+1 - HOLD=H - XOLD=X -C --- COEFFICIENTS FOR CONTINUOUS SOLUTION - DO 74 I=1,N - Z1I=Z1(I) - Z2I=Z2(I) - Z3I=Z3(I) - Z4I=Z4(I) - Z5I=Z5(I) - CONT(I)=Y(I) - Y(I)=Y(I)+Z5I - CONT(I+NN) =D11*Z1I+D12*Z2I+D13*Z3I+D14*Z4I+D15*Z5I - CONT(I+NN2)=D21*Z1I+D22*Z2I+D23*Z3I+D24*Z4I+D25*Z5I - CONT(I+NN3)=D31*Z1I+D32*Z2I+D33*Z3I+D34*Z4I+D35*Z5I - CONT(I+NN4)=D41*Z1I+D42*Z2I+D43*Z3I+D44*Z4I+D45*Z5I - YHAT(I)=Z5I - IF (ITOL.EQ.0) THEN - SCAL(I)=1.D0/( AbsTol(1)+RelTol(1)*DABS(Y(I)) ) - ELSE - SCAL(I)=1.D0/( AbsTol(I)+RelTol(I)*DABS(Y(I)) ) - END IF - 74 CONTINUE - X=XPH - CALJAC=.FALSE. - IF ((X-XEND)*POSNEG+UROUND.GT.0.D0) THEN - H=HOPT - IDID=1 - RETURN - END IF - IF (IJAC.EQ.0) CALL FCN(N,X,Y,Y0) - NFCN=NFCN+1 - HNEW=POSNEG*DMIN1(DABS(HNEW),HMAX1) - HOPT=HNEW - IF (REJECT) HNEW=POSNEG*DMIN1(DABS(HNEW),DABS(H)) - REJECT=.FALSE. - NEWTRE=.FALSE. - IF ((X+HNEW/QUOT1-XEND)*POSNEG.GT.0.D0) THEN - H=XEND-X - ELSE - QT=HNEW/H - IF (THETA.LE.THET.AND.QT.GE.QUOT1.AND.QT.LE.QUOT2) GOTO 30 - H = HNEW - END IF - IF (THETA.LE.THET) GOTO 20 - GOTO 10 - - ELSE -C --- STEP IS REJECTED - REJECT=.TRUE. - IF (FIRST) THEN - H=H/10.D0 - ELSE - H=HNEW - END IF - IF (NACCPT.GE.1) NREJCT=NREJCT+1 - IF (CALJAC) GOTO 20 - GOTO 10 - END IF - -C --- UNEXPECTED STEP-REJECTION - 78 CONTINUE - IF (IER.NE.0) THEN - WRITE (6,*) ' MATRIX IS SINGULAR, IER=',IER,' X=',X,' H=',H - NSING=NSING+1 - IF (NSING.GE.6) GOTO 79 - END IF - H=H*0.5D0 - REJECT=.TRUE. - IF (CALJAC) GOTO 20 - GOTO 10 - -C --- FAIL EXIT - 79 WRITE (6,979) X,H,IER - 979 FORMAT(' EXIT OF SDIRK4 AT X=',D14.7,' H=',D14.7,' IER=',I4) - IDID=-1 - RETURN - END -C - - - SUBROUTINE FUNC_CHEM(N, T, Y, P) - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Global.h' - INTEGER N - KPP_REAL T, Told - KPP_REAL Y(NVAR), P(NVAR) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Fun( Y, FIX, RCONST, P ) - TIME = Told - RETURN - END - - - SUBROUTINE JAC_CHEM(N, T, Y, J) - INCLUDE 'KPP_ROOT_Parameters.h' - INCLUDE 'KPP_ROOT_Global.h' - INTEGER N - KPP_REAL Told, T - KPP_REAL Y(NVAR), J(LU_NONZERO) - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - CALL Jac_SP( Y, FIX, RCONST, J ) - TIME = Told - RETURN - END - diff --git a/int.modified_WCOPY/sdirk.f90 b/int.modified_WCOPY/sdirk.f90 deleted file mode 100644 index 0f9a61398df87d5e91a2e8c2e35aab4f1369307d..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/sdirk.f90 +++ /dev/null @@ -1,1258 +0,0 @@ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! -! SDIRK - Singly-Diagonally-Implicit Runge-Kutta methods ! -! * Sdirk 2a, 2b: L-stable, 2 stages, order 2 ! -! * Sdirk 3a: L-stable, 3 stages, order 2, adj-invariant ! -! * Sdirk 4a, 4b: L-stable, 5 stages, order 4 ! -! By default the code employs the KPP sparse linear algebra routines ! -! Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK) ! -! ! -! (C) Adrian Sandu, July 2005 ! -! Virginia Polytechnic Institute and State University ! -! Contact: sandu@cs.vt.edu ! -! Revised by Philipp Miehe and Adrian Sandu, May 2006 ! -! This implementation is part of KPP - the Kinetic PreProcessor ! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! - -MODULE KPP_ROOT_Integrator - - USE KPP_ROOT_Precision - USE KPP_ROOT_Global, ONLY: FIX, RCONST, TIME - USE KPP_ROOT_Parameters, ONLY: NVAR, NSPEC, NFIX, LU_NONZERO - USE KPP_ROOT_JacobianSP, ONLY: LU_DIAG - USE KPP_ROOT_LinearAlgebra, ONLY: KppDecomp, & - KppSolve, Set2zero, WLAMCH, WCOPY, WAXPY, WSCAL, WADD - - IMPLICIT NONE - PUBLIC - SAVE - -!~~~> Statistics on the work performed by the SDIRK method - INTEGER, PARAMETER :: Nfun=1, Njac=2, Nstp=3, Nacc=4, & - Nrej=5, Ndec=6, Nsol=7, Nsng=8, & - Ntexit=1, Nhexit=2, Nhnew=3 - -CONTAINS - -SUBROUTINE INTEGRATE( TIN, TOUT, & - ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U, Ierr_U ) - - USE KPP_ROOT_Parameters - USE KPP_ROOT_Global - IMPLICIT NONE - - KPP_REAL, INTENT(IN) :: TIN ! Start Time - KPP_REAL, INTENT(IN) :: TOUT ! End Time - ! Optional input parameters and statistics - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - KPP_REAL, INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - KPP_REAL, INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: Ierr_U - - INTEGER, SAVE :: Ntotal = 0 - KPP_REAL :: RCNTRL(20), RSTATUS(20), T1, T2 - INTEGER :: ICNTRL(20), ISTATUS(20), Ierr - - ICNTRL(:) = 0 - RCNTRL(:) = 0.0_dp - ISTATUS(:) = 0 - RSTATUS(:) = 0.0_dp - - !~~~> fine-tune the integrator: - ICNTRL(2) = 0 ! 0 - vector tolerances, 1 - scalar tolerances - ICNTRL(6) = 0 ! starting values of Newton iterations: interpolated (0), zero (1) - ! If optional parameters are given, and if they are >0, - ! then they overwrite default settings. - IF (PRESENT(ICNTRL_U)) THEN - WHERE(ICNTRL_U(:) > 0) ICNTRL(:) = ICNTRL_U(:) - END IF - IF (PRESENT(RCNTRL_U)) THEN - WHERE(RCNTRL_U(:) > 0) RCNTRL(:) = RCNTRL_U(:) - END IF - - - T1 = TIN; T2 = TOUT - CALL SDIRK( NVAR,T1,T2,VAR,RTOL,ATOL, & - RCNTRL,ICNTRL,RSTATUS,ISTATUS,Ierr ) - - !~~~> Debug option: print number of steps - ! Ntotal = Ntotal + ISTATUS(Nstp) - ! PRINT*,'NSTEPS=',ISTATUS(Nstp), '(',Ntotal,')',' O3=',VAR(ind_O3), & - ! ' NO2=',VAR(ind_NO2) - - IF (Ierr < 0) THEN - PRINT *,'SDIRK: Unsuccessful exit at T=',TIN,' (Ierr=',Ierr,')' - ENDIF - - ! if optional parameters are given for output they to return information - IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(:) - IF (PRESENT(RSTATUS_U)) RSTATUS_U(:) = RSTATUS(:) - IF (PRESENT(Ierr_U)) Ierr_U = Ierr - - END SUBROUTINE INTEGRATE - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK(N, Tinitial, Tfinal, Y, RelTol, AbsTol, & - RCNTRL, ICNTRL, RSTATUS, ISTATUS, Ierr) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Solves the system y'=F(t,y) using a Singly-Diagonally-Implicit -! Runge-Kutta (SDIRK) method. -! -! This implementation is based on the book and the code Sdirk4: -! -! E. Hairer and G. Wanner -! "Solving ODEs II. Stiff and differential-algebraic problems". -! Springer series in computational mathematics, Springer-Verlag, 1996. -! This code is based on the SDIRK4 routine in the above book. -! -! Methods: -! * Sdirk 2a, 2b: L-stable, 2 stages, order 2 -! * Sdirk 3a: L-stable, 3 stages, order 2, adjoint-invariant -! * Sdirk 4a, 4b: L-stable, 5 stages, order 4 -! -! (C) Adrian Sandu, July 2005 -! Virginia Polytechnic Institute and State University -! Contact: sandu@cs.vt.edu -! Revised by Philipp Miehe and Adrian Sandu, May 2006 -! This implementation is part of KPP - the Kinetic PreProcessor -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT ARGUMENTS: -! -!- Y(NVAR) = vector of initial conditions (at T=Tinitial) -!- [Tinitial,Tfinal] = time range of integration -! (if Tinitial>Tfinal the integration is performed backwards in time) -!- RelTol, AbsTol = user precribed accuracy -!- SUBROUTINE ode_Fun( T, Y, Ydot ) = ODE function, -! returns Ydot = Y' = F(T,Y) -!- SUBROUTINE ode_Fun( T, Y, Ydot ) = Jacobian of the ODE function, -! returns Jcb = dF/dY -!- ICNTRL(1:20) = integer inputs parameters -!- RCNTRL(1:20) = real inputs parameters -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT ARGUMENTS: -! -!- Y(NVAR) -> vector of final states (at T->Tfinal) -!- ISTATUS(1:20) -> integer output parameters -!- RSTATUS(1:20) -> real output parameters -!- Ierr -> job status upon return -! success (positive value) or -! failure (negative value) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT PARAMETERS: -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -!~~~> -! ICNTRL(1) = not used -! -! ICNTRL(2) = 0: AbsTol, RelTol are NVAR-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ICNTRL(3) = Method -! -! ICNTRL(4) -> maximum number of integration steps -! For ICNTRL(4)=0 the default value of 100000 is used -! -! ICNTRL(5) -> maximum number of Newton iterations -! For ICNTRL(5)=0 the default value of 8 is used -! -! ICNTRL(6) -> starting values of Newton iterations: -! ICNTRL(6)=0 : starting values are interpolated (the default) -! ICNTRL(6)=1 : starting values are zero -! -!~~~> Real parameters -! -! RCNTRL(1) -> Hmin, lower bound for the integration step size -! It is strongly recommended to keep Hmin = ZERO -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! RCNTRL(3) -> Hstart, starting value for the integration step size -! -! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! RCNTRL(5) -> FacMax, upper bound on step increase factor (default=6) -! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -! RCNTRL(8) -> ThetaMin. If Newton convergence rate smaller -! than ThetaMin the Jacobian is not recomputed; -! (default=0.001) -! RCNTRL(9) -> NewtonTol, stopping criterion for Newton's method -! (default=0.03) -! RCNTRL(10) -> Qmin -! RCNTRL(11) -> Qmax. If Qmin < Hnew/Hold < Qmax, then the -! step size is kept constant and the LU factorization -! reused (default Qmin=1, Qmax=1.2) -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT PARAMETERS: -! -! Note: each call to Rosenbrock adds the current no. of fcn calls -! to previous value of ISTATUS(1), and similar for the other params. -! Set ISTATUS(1:10) = 0 before call to avoid this accumulation. -! -! ISTATUS(1) = No. of function calls -! ISTATUS(2) = No. of jacobian calls -! ISTATUS(3) = No. of steps -! ISTATUS(4) = No. of accepted steps -! ISTATUS(5) = No. of rejected steps (except at the beginning) -! ISTATUS(6) = No. of LU decompositions -! ISTATUS(7) = No. of forward/backward substitutions -! ISTATUS(8) = No. of singular matrix decompositions -! -! RSTATUS(1) -> Texit, the time corresponding to the -! computed Y upon return -! RSTATUS(2) -> Hexit,last accepted step before return -! RSTATUS(3) -> Hnew, last predicted step before return -! For multiple restarts, use Hnew as Hstart in the following run -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -! Arguments - INTEGER, INTENT(IN) :: N, ICNTRL(20) - KPP_REAL, INTENT(IN) :: Tinitial, Tfinal, & - RelTol(NVAR), AbsTol(NVAR), RCNTRL(20) - KPP_REAL, INTENT(INOUT) :: Y(NVAR) - INTEGER, INTENT(OUT) :: Ierr - INTEGER, INTENT(INOUT) :: ISTATUS(20) - KPP_REAL, INTENT(OUT) :: RSTATUS(20) - -!~~~> SDIRK method coefficients, up to 5 stages - INTEGER, PARAMETER :: Smax = 5 - INTEGER, PARAMETER :: S2A=1, S2B=2, S3A=3, S4A=4, S4B=5 - KPP_REAL :: rkGamma, rkA(Smax,Smax), rkB(Smax), rkC(Smax), & - rkD(Smax), rkE(Smax), rkBhat(Smax), rkELO, & - rkAlpha(Smax,Smax), rkTheta(Smax,Smax) - INTEGER :: sdMethod, rkS ! The number of stages -! Local variables - LOGICAL :: StartNewton - KPP_REAL :: Hmin, Hmax, Hstart, Roundoff, & - FacMin, Facmax, FacSafe, FacRej, & - ThetaMin, NewtonTol, Qmin, Qmax - INTEGER :: ITOL, NewtonMaxit, Max_no_steps, i - KPP_REAL, PARAMETER :: ZERO = 0.0d0, ONE = 1.0d0 - - - ISTATUS(1:20) = 0 - RSTATUS(1:20) = ZERO - Ierr = 0 - -!~~~> For Scalar tolerances (ICNTRL(2).NE.0) the code uses AbsTol(1) and RelTol(1) -! For Vector tolerances (ICNTRL(2) == 0) the code uses AbsTol(1:NVAR) and RelTol(1:NVAR) - IF (ICNTRL(2) == 0) THEN - ITOL = 1 - ELSE - ITOL = 0 - END IF - -!~~~> ICNTRL(3) - method selection - SELECT CASE (ICNTRL(3)) - CASE (0,1) - CALL Sdirk2a - CASE (2) - CALL Sdirk2b - CASE (3) - CALL Sdirk3a - CASE (4) - CALL Sdirk4a - CASE (5) - CALL Sdirk4b - CASE DEFAULT - CALL Sdirk2a - END SELECT - -!~~~> The maximum number of time steps admitted - IF (ICNTRL(4) == 0) THEN - Max_no_steps = 200000 - ELSEIF (ICNTRL(4) > 0) THEN - Max_no_steps=ICNTRL(4) - ELSE - PRINT * ,'User-selected ICNTRL(4)=',ICNTRL(4) - CALL SDIRK_ErrorMsg(-1,Tinitial,ZERO,Ierr) - END IF - -!~~~> The maximum number of Newton iterations admitted - IF(ICNTRL(5) == 0)THEN - NewtonMaxit=8 - ELSE - NewtonMaxit=ICNTRL(5) - IF(NewtonMaxit <= 0)THEN - PRINT * ,'User-selected ICNTRL(5)=',ICNTRL(5) - CALL SDIRK_ErrorMsg(-2,Tinitial,ZERO,Ierr) - END IF - END IF - -!~~~> StartNewton: Use extrapolation for starting values of Newton iterations - IF (ICNTRL(6) == 0) THEN - StartNewton = .TRUE. - ELSE - StartNewton = .FALSE. - END IF - -!~~~> Unit roundoff (1+Roundoff>1) - Roundoff = WLAMCH('E') - -!~~~> Lower bound on the step size: (positive value) - IF (RCNTRL(1) == ZERO) THEN - Hmin = ZERO - ELSEIF (RCNTRL(1) > ZERO) THEN - Hmin = RCNTRL(1) - ELSE - PRINT * , 'User-selected RCNTRL(1)=', RCNTRL(1) - CALL SDIRK_ErrorMsg(-3,Tinitial,ZERO,Ierr) - END IF - -!~~~> Upper bound on the step size: (positive value) - IF (RCNTRL(2) == ZERO) THEN - Hmax = ABS(Tfinal-Tinitial) - ELSEIF (RCNTRL(2) > ZERO) THEN - Hmax = MIN(ABS(RCNTRL(2)),ABS(Tfinal-Tinitial)) - ELSE - PRINT * , 'User-selected RCNTRL(2)=', RCNTRL(2) - CALL SDIRK_ErrorMsg(-3,Tinitial,ZERO,Ierr) - END IF - -!~~~> Starting step size: (positive value) - IF (RCNTRL(3) == ZERO) THEN - Hstart = MAX(Hmin,Roundoff) - ELSEIF (RCNTRL(3) > ZERO) THEN - Hstart = MIN(ABS(RCNTRL(3)),ABS(Tfinal-Tinitial)) - ELSE - PRINT * , 'User-selected Hstart: RCNTRL(3)=', RCNTRL(3) - CALL SDIRK_ErrorMsg(-3,Tinitial,ZERO,Ierr) - END IF - -!~~~> Step size can be changed s.t. FacMin < Hnew/Hexit < FacMax - IF (RCNTRL(4) == ZERO) THEN - FacMin = 0.2_dp - ELSEIF (RCNTRL(4) > ZERO) THEN - FacMin = RCNTRL(4) - ELSE - PRINT * , 'User-selected FacMin: RCNTRL(4)=', RCNTRL(4) - CALL SDIRK_ErrorMsg(-4,Tinitial,ZERO,Ierr) - END IF - IF (RCNTRL(5) == ZERO) THEN - FacMax = 10.0_dp - ELSEIF (RCNTRL(5) > ZERO) THEN - FacMax = RCNTRL(5) - ELSE - PRINT * , 'User-selected FacMax: RCNTRL(5)=', RCNTRL(5) - CALL SDIRK_ErrorMsg(-4,Tinitial,ZERO,Ierr) - END IF -!~~~> FacRej: Factor to decrease step after 2 succesive rejections - IF (RCNTRL(6) == ZERO) THEN - FacRej = 0.1_dp - ELSEIF (RCNTRL(6) > ZERO) THEN - FacRej = RCNTRL(6) - ELSE - PRINT * , 'User-selected FacRej: RCNTRL(6)=', RCNTRL(6) - CALL SDIRK_ErrorMsg(-4,Tinitial,ZERO,Ierr) - END IF -!~~~> FacSafe: Safety Factor in the computation of new step size - IF (RCNTRL(7) == ZERO) THEN - FacSafe = 0.9_dp - ELSEIF (RCNTRL(7) > ZERO) THEN - FacSafe = RCNTRL(7) - ELSE - PRINT * , 'User-selected FacSafe: RCNTRL(7)=', RCNTRL(7) - CALL SDIRK_ErrorMsg(-4,Tinitial,ZERO,Ierr) - END IF - -!~~~> ThetaMin: decides whether the Jacobian should be recomputed - IF(RCNTRL(8) == 0.D0)THEN - ThetaMin = 1.0d-3 - ELSE - ThetaMin = RCNTRL(8) - END IF - -!~~~> Stopping criterion for Newton's method - IF(RCNTRL(9) == ZERO)THEN - NewtonTol = 3.0d-2 - ELSE - NewtonTol = RCNTRL(9) - END IF - -!~~~> Qmin, Qmax: IF Qmin < Hnew/Hold < Qmax, STEP SIZE = CONST. - IF(RCNTRL(10) == ZERO)THEN - Qmin=ONE - ELSE - Qmin=RCNTRL(10) - END IF - IF(RCNTRL(11) == ZERO)THEN - Qmax=1.2D0 - ELSE - Qmax=RCNTRL(11) - END IF - -!~~~> Check if tolerances are reasonable - IF (ITOL == 0) THEN - IF (AbsTol(1) <= ZERO .OR. RelTol(1) <= 10.D0*Roundoff) THEN - PRINT * , ' Scalar AbsTol = ',AbsTol(1) - PRINT * , ' Scalar RelTol = ',RelTol(1) - CALL SDIRK_ErrorMsg(-5,Tinitial,ZERO,Ierr) - END IF - ELSE - DO i=1,N - IF (AbsTol(i) <= 0.D0.OR.RelTol(i) <= 10.D0*Roundoff) THEN - PRINT * , ' AbsTol(',i,') = ',AbsTol(i) - PRINT * , ' RelTol(',i,') = ',RelTol(i) - CALL SDIRK_ErrorMsg(-5,Tinitial,ZERO,Ierr) - END IF - END DO - END IF - - IF (Ierr < 0) RETURN - - CALL SDIRK_Integrator( N,Tinitial,Tfinal,Y,Ierr ) - - - !END SUBROUTINE SDIRK - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - CONTAINS ! PROCEDURES INTERNAL TO SDIRK -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_Integrator( N,Tinitial,Tfinal,Y,Ierr ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters - IMPLICIT NONE - -!~~~> Arguments: - INTEGER, INTENT(IN) :: N - KPP_REAL, INTENT(INOUT) :: Y(NVAR) - KPP_REAL, INTENT(IN) :: Tinitial, Tfinal - INTEGER, INTENT(OUT) :: Ierr - -!~~~> Local variables: - KPP_REAL :: Z(NVAR,Smax), G(NVAR), TMP(NVAR), & - NewtonRate, SCAL(NVAR), RHS(NVAR), & - T, H, Theta, Hratio, NewtonPredictedErr, & - Qnewton, Err, Fac, Hnew,Tdirection, & - NewtonIncrement, NewtonIncrementOld - INTEGER :: j, IER, istage, NewtonIter, IP(NVAR) - LOGICAL :: Reject, FirstStep, SkipJac, SkipLU, NewtonDone - -#ifdef FULL_ALGEBRA - KPP_REAL FJAC(NVAR,NVAR), E(NVAR,NVAR) -#else - KPP_REAL FJAC(LU_NONZERO), E(LU_NONZERO) -#endif - KPP_REAL, PARAMETER :: ZERO = 0.0d0, ONE = 1.0d0 - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Initializations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - T = Tinitial - Tdirection = SIGN(ONE,Tfinal-Tinitial) - H = MAX(ABS(Hmin),ABS(Hstart)) - IF (ABS(H) <= 10.D0*Roundoff) H=1.0D-6 - H=MIN(ABS(H),Hmax) - H=SIGN(H,Tdirection) - SkipLU =.FALSE. - SkipJac = .FALSE. - Reject=.FALSE. - FirstStep=.TRUE. - - CALL SDIRK_ErrorScale(N, ITOL, AbsTol, RelTol, Y, SCAL) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Time loop begins -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -Tloop: DO WHILE ( (Tfinal-T)*Tdirection - Roundoff > ZERO ) - - -!~~~> Compute E = 1/(h*gamma)-Jac and its LU decomposition - IF ( .NOT.SkipLU ) THEN ! This time around skip the Jac update and LU - CALL SDIRK_PrepareMatrix ( H, T, Y, FJAC, & - SkipJac, SkipLU, E, IP, Reject, IER ) - IF (IER /= 0) THEN - CALL SDIRK_ErrorMsg(-8,T,H,Ierr); RETURN - END IF - END IF - - IF (ISTATUS(Nstp) > Max_no_steps) THEN - CALL SDIRK_ErrorMsg(-6,T,H,Ierr); RETURN - END IF - IF ( (T+0.1d0*H == T) .OR. (ABS(H) <= Roundoff) ) THEN - CALL SDIRK_ErrorMsg(-7,T,H,Ierr); RETURN - END IF - -stages:DO istage = 1, rkS - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Simplified Newton iterations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~> Starting values for Newton iterations - CALL Set2zero(N,Z(1,istage)) - -!~~~> Prepare the loop-independent part of the right-hand side - CALL Set2zero(N,G) - IF (istage > 1) THEN - DO j = 1, istage-1 - ! Gj(:) = sum_j Theta(i,j)*Zj(:) = H * sum_j A(i,j)*Fun(Zj) - CALL WAXPY(N,rkTheta(istage,j),Z(1,j),1,G,1) - ! Zi(:) = sum_j Alpha(i,j)*Zj(:) - IF (StartNewton) THEN - CALL WAXPY(N,rkAlpha(istage,j),Z(1,j),1,Z(1,istage),1) - END IF - END DO - END IF - - !~~~> Initializations for Newton iteration - NewtonDone = .FALSE. - Fac = 0.5d0 ! Step reduction factor if too many iterations - -NewtonLoop:DO NewtonIter = 1, NewtonMaxit - -!~~~> Prepare the loop-dependent part of the right-hand side - CALL WADD(N,Y,Z(1,istage),TMP) ! TMP <- Y + Zi - CALL FUN_CHEM(T+rkC(istage)*H,TMP,RHS) ! RHS <- Fun(Y+Zi) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 -! RHS(1:N) = G(1:N) - Z(1:N,istage) + (H*rkGamma)*RHS(1:N) - CALL WSCAL(N, H*rkGamma, RHS, 1) - CALL WAXPY (N, -ONE, Z(1,istage), 1, RHS, 1) - CALL WAXPY (N, ONE, G,1, RHS,1) - -!~~~> Solve the linear system - CALL SDIRK_Solve ( H, N, E, IP, IER, RHS ) - -!~~~> Check convergence of Newton iterations - CALL SDIRK_ErrorNorm(N, RHS, SCAL, NewtonIncrement) - IF ( NewtonIter == 1 ) THEN - Theta = ABS(ThetaMin) - NewtonRate = 2.0d0 - ELSE - Theta = NewtonIncrement/NewtonIncrementOld - IF (Theta < 0.99d0) THEN - NewtonRate = Theta/(ONE-Theta) - ! Predict error at the end of Newton process - NewtonPredictedErr = NewtonIncrement & - *Theta**(NewtonMaxit-NewtonIter)/(ONE-Theta) - IF (NewtonPredictedErr >= NewtonTol) THEN - ! Non-convergence of Newton: predicted error too large - Qnewton = MIN(10.0d0,NewtonPredictedErr/NewtonTol) - Fac = 0.8d0*Qnewton**(-ONE/(1+NewtonMaxit-NewtonIter)) - EXIT NewtonLoop - END IF - ELSE ! Non-convergence of Newton: Theta too large - EXIT NewtonLoop - END IF - END IF - NewtonIncrementOld = NewtonIncrement - ! Update solution: Z(:) <-- Z(:)+RHS(:) - CALL WAXPY(N,ONE,RHS,1,Z(1,istage),1) - - ! Check error in Newton iterations - NewtonDone = (NewtonRate*NewtonIncrement <= NewtonTol) - IF (NewtonDone) EXIT NewtonLoop - - END DO NewtonLoop - - IF (.NOT.NewtonDone) THEN - !CALL RK_ErrorMsg(-12,T,H,Ierr); - H = Fac*H; Reject=.TRUE. - SkipJac = .TRUE.; SkipLU = .FALSE. - CYCLE Tloop - END IF - -!~~~> End of implified Newton iterations - - - END DO stages - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Error estimation -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ISTATUS(Nstp) = ISTATUS(Nstp) + 1 - CALL Set2zero(N,TMP) - DO i = 1,rkS - IF (rkE(i)/=ZERO) CALL WAXPY(N,rkE(i),Z(1,i),1,TMP,1) - END DO - - CALL SDIRK_Solve( H, N, E, IP, IER, TMP ) - CALL SDIRK_ErrorNorm(N, TMP, SCAL, Err) - -!~~~> Computation of new step size Hnew - Fac = FacSafe*(Err)**(-ONE/rkELO) - Fac = MAX(FacMin,MIN(FacMax,Fac)) - Hnew = H*Fac - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Accept/Reject step -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -accept: IF ( Err < ONE ) THEN !~~~> Step is accepted - - FirstStep=.FALSE. - ISTATUS(Nacc) = ISTATUS(Nacc) + 1 - -!~~~> Update time and solution - T = T + H - ! Y(:) <-- Y(:) + Sum_j rkD(j)*Z_j(:) - DO i = 1,rkS - IF (rkD(i)/=ZERO) CALL WAXPY(N,rkD(i),Z(1,i),1,Y,1) - END DO - -!~~~> Update scaling coefficients - CALL SDIRK_ErrorScale(N, ITOL, AbsTol, RelTol, Y, SCAL) - -!~~~> Next time step - Hnew = Tdirection*MIN(ABS(Hnew),Hmax) - ! Last T and H - RSTATUS(Ntexit) = T - RSTATUS(Nhexit) = H - RSTATUS(Nhnew) = Hnew - ! No step increase after a rejection - IF (Reject) Hnew = Tdirection*MIN(ABS(Hnew),ABS(H)) - Reject = .FALSE. - IF ((T+Hnew/Qmin-Tfinal)*Tdirection > ZERO) THEN - H = Tfinal-T - ELSE - Hratio=Hnew/H - ! If step not changed too much keep Jacobian and reuse LU - SkipLU = ( (Theta <= ThetaMin) .AND. (Hratio >= Qmin) & - .AND. (Hratio <= Qmax) ) - IF (.NOT.SkipLU) H = Hnew - END IF - ! If convergence is fast enough, do not update Jacobian -! SkipJac = (Theta <= ThetaMin) - SkipJac = .FALSE. - - ELSE accept !~~~> Step is rejected - - IF (FirstStep .OR. Reject) THEN - H = FacRej*H - ELSE - H = Hnew - END IF - Reject = .TRUE. - SkipJac = .TRUE. - SkipLU = .FALSE. - IF (ISTATUS(Nacc) >= 1) ISTATUS(Nrej) = ISTATUS(Nrej) + 1 - - END IF accept - - END DO Tloop - - ! Successful return - Ierr = 1 - - END SUBROUTINE SDIRK_Integrator - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_ErrorScale(N, ITOL, AbsTol, RelTol, Y, SCAL) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - INTEGER :: i, N, ITOL - KPP_REAL :: AbsTol(NVAR), RelTol(NVAR), & - Y(NVAR), SCAL(NVAR) - IF (ITOL == 0) THEN - DO i=1,NVAR - SCAL(i) = ONE / ( AbsTol(1)+RelTol(1)*ABS(Y(i)) ) - END DO - ELSE - DO i=1,NVAR - SCAL(i) = ONE / ( AbsTol(i)+RelTol(i)*ABS(Y(i)) ) - END DO - END IF - END SUBROUTINE SDIRK_ErrorScale - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_ErrorNorm(N, Y, SCAL, Err) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! - INTEGER :: i, N - KPP_REAL :: Y(N), SCAL(N), Err - Err = ZERO - DO i=1,N - Err = Err+(Y(i)*SCAL(i))**2 - END DO - Err = MAX( SQRT(Err/DBLE(N)), 1.0d-10 ) -! - END SUBROUTINE SDIRK_ErrorNorm - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_ErrorMsg(Code,T,H,Ierr) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - KPP_REAL, INTENT(IN) :: T, H - INTEGER, INTENT(IN) :: Code - INTEGER, INTENT(OUT) :: Ierr - - Ierr = Code - PRINT * , & - 'Forced exit from SDIRK due to the following error:' - - SELECT CASE (Code) - CASE (-1) - PRINT * , '--> Improper value for maximal no of steps' - CASE (-2) - PRINT * , '--> Improper value for maximal no of Newton iterations' - CASE (-3) - PRINT * , '--> Hmin/Hmax/Hstart must be positive' - CASE (-4) - PRINT * , '--> FacMin/FacMax/FacRej must be positive' - CASE (-5) - PRINT * , '--> Improper tolerance values' - CASE (-6) - PRINT * , '--> No of steps exceeds maximum bound' - CASE (-7) - PRINT * , '--> Step size too small: T + 10*H = T', & - ' or H < Roundoff' - CASE (-8) - PRINT * , '--> Matrix is repeatedly singular' - CASE DEFAULT - PRINT *, 'Unknown Error code: ', Code - END SELECT - - PRINT *, "T=", T, "and H=", H - - END SUBROUTINE SDIRK_ErrorMsg - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_PrepareMatrix ( H, T, Y, FJAC, & - SkipJac, SkipLU, E, IP, Reject, ISING ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Compute the matrix E = 1/(H*GAMMA)*Jac, and its decomposition -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - KPP_REAL, INTENT(INOUT) :: H - KPP_REAL, INTENT(IN) :: T, Y(NVAR) - LOGICAL, INTENT(INOUT) :: SkipJac,SkipLU,Reject - INTEGER, INTENT(OUT) :: ISING, IP(NVAR) -#ifdef FULL_ALGEBRA - KPP_REAL, INTENT(INOUT) :: FJAC(NVAR,NVAR) - KPP_REAL, INTENT(OUT) :: E(NVAR,NVAR) -#else - KPP_REAL, INTENT(INOUT) :: FJAC(LU_NONZERO) - KPP_REAL, INTENT(OUT) :: E(LU_NONZERO) -#endif - KPP_REAL :: HGammaInv - INTEGER :: i, j, ConsecutiveSng - - ConsecutiveSng = 0 - ISING = 1 - -Hloop: DO WHILE (ISING /= 0) - - HGammaInv = ONE/(H*rkGamma) - -!~~~> Compute the Jacobian -! IF (SkipJac) THEN -! SkipJac = .FALSE. -! ELSE - IF (.NOT. SkipJac) THEN - CALL JAC_CHEM( T, Y, FJAC ) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - END IF - -#ifdef FULL_ALGEBRA - DO j=1,NVAR - DO i=1,NVAR - E(i,j) = -FJAC(i,j) - END DO - E(j,j) = E(j,j)+HGammaInv - END DO - CALL DGETRF( NVAR, NVAR, E, NVAR, IP, ISING ) -#else - DO i = 1,LU_NONZERO - E(i) = -FJAC(i) - END DO - DO i = 1,NVAR - j = LU_DIAG(i); E(j) = E(j) + HGammaInv - END DO - CALL KppDecomp ( E, ISING) - IP(1) = 1 -#endif - ISTATUS(Ndec) = ISTATUS(Ndec) + 1 - - IF (ISING /= 0) THEN - WRITE (6,*) ' MATRIX IS SINGULAR, ISING=',ISING,' T=',T,' H=',H - ISTATUS(Nsng) = ISTATUS(Nsng) + 1; ConsecutiveSng = ConsecutiveSng + 1 - IF (ConsecutiveSng >= 6) RETURN ! Failure - H = 0.5d0*H - SkipJac = .TRUE. - SkipLU = .FALSE. - Reject = .TRUE. - END IF - - END DO Hloop - - END SUBROUTINE SDIRK_PrepareMatrix - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_Solve ( H, N, E, IP, ISING, RHS ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Solves the system (H*Gamma-Jac)*x = RHS -! using the LU decomposition of E = I - 1/(H*Gamma)*Jac -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - INTEGER, INTENT(IN) :: N, IP(N), ISING - KPP_REAL, INTENT(IN) :: H -#ifdef FULL_ALGEBRA - KPP_REAL, INTENT(IN) :: E(NVAR,NVAR) -#else - KPP_REAL, INTENT(IN) :: E(LU_NONZERO) -#endif - KPP_REAL, INTENT(INOUT) :: RHS(N) - KPP_REAL :: HGammaInv - - HGammaInv = ONE/(H*rkGamma) - CALL WSCAL(N,HGammaInv,RHS,1) -#ifdef FULL_ALGEBRA - CALL DGETRS( 'N', N, 1, E, N, IP, RHS, N, ISING ) -#else - CALL KppSolve(E, RHS) -#endif - ISTATUS(Nsol) = ISTATUS(Nsol) + 1 - - END SUBROUTINE SDIRK_Solve - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Sdirk4a -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - sdMethod = S4A -! Number of stages - rkS = 5 - -! Method coefficients - rkGamma = .2666666666666666666666666666666667d0 - - rkA(1,1) = .2666666666666666666666666666666667d0 - rkA(2,1) = .5000000000000000000000000000000000d0 - rkA(2,2) = .2666666666666666666666666666666667d0 - rkA(3,1) = .3541539528432732316227461858529820d0 - rkA(3,2) = -.5415395284327323162274618585298197d-1 - rkA(3,3) = .2666666666666666666666666666666667d0 - rkA(4,1) = .8515494131138652076337791881433756d-1 - rkA(4,2) = -.6484332287891555171683963466229754d-1 - rkA(4,3) = .7915325296404206392428857585141242d-1 - rkA(4,4) = .2666666666666666666666666666666667d0 - rkA(5,1) = 2.100115700566932777970612055999074d0 - rkA(5,2) = -.7677800284445976813343102185062276d0 - rkA(5,3) = 2.399816361080026398094746205273880d0 - rkA(5,4) = -2.998818699869028161397714709433394d0 - rkA(5,5) = .2666666666666666666666666666666667d0 - - rkB(1) = 2.100115700566932777970612055999074d0 - rkB(2) = -.7677800284445976813343102185062276d0 - rkB(3) = 2.399816361080026398094746205273880d0 - rkB(4) = -2.998818699869028161397714709433394d0 - rkB(5) = .2666666666666666666666666666666667d0 - - rkBhat(1)= 2.885264204387193942183851612883390d0 - rkBhat(2)= -.1458793482962771337341223443218041d0 - rkBhat(3)= 2.390008682465139866479830743628554d0 - rkBhat(4)= -4.129393538556056674929560012190140d0 - rkBhat(5)= 0.d0 - - rkC(1) = .2666666666666666666666666666666667d0 - rkC(2) = .7666666666666666666666666666666667d0 - rkC(3) = .5666666666666666666666666666666667d0 - rkC(4) = .3661315380631796996374935266701191d0 - rkC(5) = 1.d0 - -! Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} - rkD(1) = 0.d0 - rkD(2) = 0.d0 - rkD(3) = 0.d0 - rkD(4) = 0.d0 - rkD(5) = 1.d0 - -! Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} - rkE(1) = -.6804000050475287124787034884002302d0 - rkE(2) = 1.558961944525217193393931795738823d0 - rkE(3) = -13.55893003128907927748632408763868d0 - rkE(4) = 15.48522576958521253098585004571302d0 - rkE(5) = 1.d0 - -! Local order of Err estimate - rkElo = 4 - -! h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} - rkTheta(2,1) = 1.875000000000000000000000000000000d0 - rkTheta(3,1) = 1.708847304091539528432732316227462d0 - rkTheta(3,2) = -.2030773231622746185852981969486824d0 - rkTheta(4,1) = .2680325578937783958847157206823118d0 - rkTheta(4,2) = -.1828840955527181631794050728644549d0 - rkTheta(4,3) = .2968246986151577397160821594427966d0 - rkTheta(5,1) = .9096171815241460655379433581446771d0 - rkTheta(5,2) = -3.108254967778352416114774430509465d0 - rkTheta(5,3) = 12.33727431701306195581826123274001d0 - rkTheta(5,4) = -11.24557012450885560524143016037523d0 - -! Starting value for Newton iterations: Z_i^0 = Sum_j {rkAlpha_ij*Z_j} - rkAlpha(2,1) = 2.875000000000000000000000000000000d0 - rkAlpha(3,1) = .8500000000000000000000000000000000d0 - rkAlpha(3,2) = .4434782608695652173913043478260870d0 - rkAlpha(4,1) = .7352046091658870564637910527807370d0 - rkAlpha(4,2) = -.9525565003057343527941920657462074d-1 - rkAlpha(4,3) = .4290111305453813852259481840631738d0 - rkAlpha(5,1) = -16.10898993405067684831655675112808d0 - rkAlpha(5,2) = 6.559571569643355712998131800797873d0 - rkAlpha(5,3) = -15.90772144271326504260996815012482d0 - rkAlpha(5,4) = 25.34908987169226073668861694892683d0 - -!~~~> Coefficients for continuous solution -! rkD(1,1)= 24.74416644927758d0 -! rkD(1,2)= -4.325375951824688d0 -! rkD(1,3)= 41.39683763286316d0 -! rkD(1,4)= -61.04144619901784d0 -! rkD(1,5)= -3.391332232917013d0 -! rkD(2,1)= -51.98245719616925d0 -! rkD(2,2)= 10.52501981094525d0 -! rkD(2,3)= -154.2067922191855d0 -! rkD(2,4)= 214.3082125319825d0 -! rkD(2,5)= 14.71166018088679d0 -! rkD(3,1)= 33.14347947522142d0 -! rkD(3,2)= -19.72986789558523d0 -! rkD(3,3)= 230.4878502285804d0 -! rkD(3,4)= -287.6629744338197d0 -! rkD(3,5)= -18.99932366302254d0 -! rkD(4,1)= -5.905188728329743d0 -! rkD(4,2)= 13.53022403646467d0 -! rkD(4,3)= -117.6778956422581d0 -! rkD(4,4)= 134.3962081008550d0 -! rkD(4,5)= 8.678995715052762d0 -! -! DO i=1,4 ! CONTi <-- Sum_j rkD(i,j)*Zj -! CALL Set2zero(N,CONT(1,i)) -! DO j = 1,rkS -! CALL WAXPY(N,rkD(i,j),Z(1,j),1,CONT(1,i),1) -! END DO -! END DO - - rkELO = 4.0d0 - - END SUBROUTINE Sdirk4a - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Sdirk4b -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - sdMethod = S4B -! Number of stages - rkS = 5 - -! Method coefficients - rkGamma = .25d0 - - rkA(1,1) = 0.25d0 - rkA(2,1) = 0.5d00 - rkA(2,2) = 0.25d0 - rkA(3,1) = 0.34d0 - rkA(3,2) =-0.40d-1 - rkA(3,3) = 0.25d0 - rkA(4,1) = 0.2727941176470588235294117647058824d0 - rkA(4,2) =-0.5036764705882352941176470588235294d-1 - rkA(4,3) = 0.2757352941176470588235294117647059d-1 - rkA(4,4) = 0.25d0 - rkA(5,1) = 1.041666666666666666666666666666667d0 - rkA(5,2) =-1.020833333333333333333333333333333d0 - rkA(5,3) = 7.812500000000000000000000000000000d0 - rkA(5,4) =-7.083333333333333333333333333333333d0 - rkA(5,5) = 0.25d0 - - rkB(1) = 1.041666666666666666666666666666667d0 - rkB(2) = -1.020833333333333333333333333333333d0 - rkB(3) = 7.812500000000000000000000000000000d0 - rkB(4) = -7.083333333333333333333333333333333d0 - rkB(5) = 0.250000000000000000000000000000000d0 - - rkBhat(1)= 1.069791666666666666666666666666667d0 - rkBhat(2)= -0.894270833333333333333333333333333d0 - rkBhat(3)= 7.695312500000000000000000000000000d0 - rkBhat(4)= -7.083333333333333333333333333333333d0 - rkBhat(5)= 0.212500000000000000000000000000000d0 - - rkC(1) = 0.25d0 - rkC(2) = 0.75d0 - rkC(3) = 0.55d0 - rkC(4) = 0.50d0 - rkC(5) = 1.00d0 - -! Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} - rkD(1) = 0.0d0 - rkD(2) = 0.0d0 - rkD(3) = 0.0d0 - rkD(4) = 0.0d0 - rkD(5) = 1.0d0 - -! Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} - rkE(1) = 0.5750d0 - rkE(2) = 0.2125d0 - rkE(3) = -4.6875d0 - rkE(4) = 4.2500d0 - rkE(5) = 0.1500d0 - -! Local order of Err estimate - rkElo = 4 - -! h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} - rkTheta(2,1) = 2.d0 - rkTheta(3,1) = 1.680000000000000000000000000000000d0 - rkTheta(3,2) = -.1600000000000000000000000000000000d0 - rkTheta(4,1) = 1.308823529411764705882352941176471d0 - rkTheta(4,2) = -.1838235294117647058823529411764706d0 - rkTheta(4,3) = 0.1102941176470588235294117647058824d0 - rkTheta(5,1) = -3.083333333333333333333333333333333d0 - rkTheta(5,2) = -4.291666666666666666666666666666667d0 - rkTheta(5,3) = 34.37500000000000000000000000000000d0 - rkTheta(5,4) = -28.33333333333333333333333333333333d0 - -! Starting value for Newton iterations: Z_i^0 = Sum_j {rkAlpha_ij*Z_j} - rkAlpha(2,1) = 3. - rkAlpha(3,1) = .8800000000000000000000000000000000d0 - rkAlpha(3,2) = .4400000000000000000000000000000000d0 - rkAlpha(4,1) = .1666666666666666666666666666666667d0 - rkAlpha(4,2) = -.8333333333333333333333333333333333d-1 - rkAlpha(4,3) = .9469696969696969696969696969696970d0 - rkAlpha(5,1) = -6.d0 - rkAlpha(5,2) = 9.d0 - rkAlpha(5,3) = -56.81818181818181818181818181818182d0 - rkAlpha(5,4) = 54.d0 - - END SUBROUTINE Sdirk4b - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Sdirk2a -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - sdMethod = S2A -! Number of stages - rkS = 2 - -! Method coefficients - rkGamma = .2928932188134524755991556378951510d0 - - rkA(1,1) = .2928932188134524755991556378951510d0 - rkA(2,1) = .7071067811865475244008443621048490d0 - rkA(2,2) = .2928932188134524755991556378951510d0 - - rkB(1) = .7071067811865475244008443621048490d0 - rkB(2) = .2928932188134524755991556378951510d0 - - rkBhat(1)= .6666666666666666666666666666666667d0 - rkBhat(2)= .3333333333333333333333333333333333d0 - - rkC(1) = 0.292893218813452475599155637895151d0 - rkC(2) = 1.0d0 - -! Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} - rkD(1) = 0.0d0 - rkD(2) = 1.0d0 - -! Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} - rkE(1) = 0.4714045207910316829338962414032326d0 - rkE(2) = -0.1380711874576983496005629080698993d0 - -! Local order of Err estimate - rkElo = 2 - -! h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} - rkTheta(2,1) = 2.414213562373095048801688724209698d0 - -! Starting value for Newton iterations: Z_i^0 = Sum_j {rkAlpha_ij*Z_j} - rkAlpha(2,1) = 3.414213562373095048801688724209698d0 - - END SUBROUTINE Sdirk2a - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Sdirk2b -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - sdMethod = S2B -! Number of stages - rkS = 2 - -! Method coefficients - rkGamma = 1.707106781186547524400844362104849d0 - - rkA(1,1) = 1.707106781186547524400844362104849d0 - rkA(2,1) = -.707106781186547524400844362104849d0 - rkA(2,2) = 1.707106781186547524400844362104849d0 - - rkB(1) = -.707106781186547524400844362104849d0 - rkB(2) = 1.707106781186547524400844362104849d0 - - rkBhat(1)= .6666666666666666666666666666666667d0 - rkBhat(2)= .3333333333333333333333333333333333d0 - - rkC(1) = 1.707106781186547524400844362104849d0 - rkC(2) = 1.0d0 - -! Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} - rkD(1) = 0.0d0 - rkD(2) = 1.0d0 - -! Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} - rkE(1) = -.4714045207910316829338962414032326d0 - rkE(2) = .8047378541243650162672295747365659d0 - -! Local order of Err estimate - rkElo = 2 - -! h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} - rkTheta(2,1) = -.414213562373095048801688724209698d0 - -! Starting value for Newton iterations: Z_i^0 = Sum_j {rkAlpha_ij*Z_j} - rkAlpha(2,1) = .5857864376269049511983112757903019d0 - - END SUBROUTINE Sdirk2b - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Sdirk3a -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - sdMethod = S3A -! Number of stages - rkS = 3 - -! Method coefficients - rkGamma = .2113248654051871177454256097490213d0 - - rkA(1,1) = .2113248654051871177454256097490213d0 - rkA(2,1) = .2113248654051871177454256097490213d0 - rkA(2,2) = .2113248654051871177454256097490213d0 - rkA(3,1) = .2113248654051871177454256097490213d0 - rkA(3,2) = .5773502691896257645091487805019573d0 - rkA(3,3) = .2113248654051871177454256097490213d0 - - rkB(1) = .2113248654051871177454256097490213d0 - rkB(2) = .5773502691896257645091487805019573d0 - rkB(3) = .2113248654051871177454256097490213d0 - - rkBhat(1)= .2113248654051871177454256097490213d0 - rkBhat(2)= .6477918909913548037576239837516312d0 - rkBhat(3)= .1408832436034580784969504064993475d0 - - rkC(1) = .2113248654051871177454256097490213d0 - rkC(2) = .4226497308103742354908512194980427d0 - rkC(3) = 1.d0 - -! Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} - rkD(1) = 0.d0 - rkD(2) = 0.d0 - rkD(3) = 1.d0 - -! Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} - rkE(1) = 0.9106836025229590978424821138352906d0 - rkE(2) = -1.244016935856292431175815447168624d0 - rkE(3) = 0.3333333333333333333333333333333333d0 - -! Local order of Err estimate - rkElo = 2 - -! h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} - rkTheta(2,1) = 1.0d0 - rkTheta(3,1) = -1.732050807568877293527446341505872d0 - rkTheta(3,2) = 2.732050807568877293527446341505872d0 - -! Starting value for Newton iterations: Z_i^0 = Sum_j {rkAlpha_ij*Z_j} - rkAlpha(2,1) = 2.0d0 - rkAlpha(3,1) = -12.92820323027550917410978536602349d0 - rkAlpha(3,2) = 8.83012701892219323381861585376468d0 - - END SUBROUTINE Sdirk3a - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - END SUBROUTINE SDIRK ! AND ALL ITS INTERNAL PROCEDURES -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE FUN_CHEM( T, Y, P ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters, ONLY: NVAR, LU_NONZERO - USE KPP_ROOT_Global, ONLY: FIX, RCONST, TIME - USE KPP_ROOT_Function, ONLY: Fun - USE KPP_ROOT_Rates, ONLY: Update_SUN, Update_RCONST, Update_PHOTO - IMPLICIT NONE - - KPP_REAL :: T, Told - KPP_REAL :: Y(NVAR), P(NVAR) - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - - CALL Fun( Y, FIX, RCONST, P ) - - TIME = Told - - END SUBROUTINE FUN_CHEM - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE JAC_CHEM( T, Y, JV ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters, ONLY: NVAR, LU_NONZERO - USE KPP_ROOT_Global, ONLY: FIX, RCONST, TIME - USE KPP_ROOT_Jacobian - USE KPP_ROOT_Jacobian, ONLY: Jac_SP - USE KPP_ROOT_Rates, ONLY: Update_SUN, Update_RCONST, Update_PHOTO - IMPLICIT NONE - - KPP_REAL :: T, Told - KPP_REAL :: Y(NVAR) -#ifdef FULL_ALGEBRA - KPP_REAL :: JS(LU_NONZERO), JV(NVAR,NVAR) - INTEGER :: i, j -#else - KPP_REAL :: JV(LU_NONZERO) -#endif - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - -#ifdef FULL_ALGEBRA - CALL Jac_SP(Y, FIX, RCONST, JS) - DO j=1,NVAR - DO i=1,NVAR - JV(i,j) = 0.0D0 - END DO - END DO - DO i=1,LU_NONZERO - JV(LU_IROW(i),LU_ICOL(i)) = JS(i) - END DO -#else - CALL Jac_SP(Y, FIX, RCONST, JV) -#endif - TIME = Told - - END SUBROUTINE JAC_CHEM - -END MODULE KPP_ROOT_Integrator - - diff --git a/int.modified_WCOPY/sdirk_adj.c b/int.modified_WCOPY/sdirk_adj.c deleted file mode 100644 index 07a24124aa0f2dcdaaa04a91d45067e23696744d..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/sdirk_adj.c +++ /dev/null @@ -1,1705 +0,0 @@ - -#define MAX(a,b) ( ((a) >= (b)) ? (a):(b) ) -#define MIN(b,c) ( ((b) < (c)) ? (b):(c) ) -#define ABS(x) ( ((x) >= 0 ) ? (x):(-x) ) -#define SIGN(x,y)( ( (x*y) >= 0 ) ?(x):(-x) ) -#define SQRT(d) ( pow((d),0.5) ) - -/* Numerical Constants */ -#define ZERO (KPP_REAL)0.0 -#define ONE (KPP_REAL)1.0 -#define HALF (KPP_REAL)0.5 -#define DeltaMin (KPP_REAL)1.0e-5 -enum boolean { FALSE=0, TRUE=1 }; - -/*~~~> Statistics on the work performed by the SDIRK method */ -enum statistics { Nfun=1, Njac=2, Nstp=3, Nacc=4, Nrej=5, Ndec=6, Nsol=7, - Nsng=8, Ntexit=1, Nhexit=2, Nhnew=3 }; - -/*~~~> SDIRK method coefficients, up to 5 stages */ -int Smax = 5; -enum ros_Params { S2A=1, S2B=2, S3A=3, S4A=4, S4B=5 }; -KPP_REAL rkGamma, rkA[5][5], rkB[5], rkC[5], rkD[5], rkE[5], - rkBhat[5], rkELO, rkAlpha[5][5], rkTheta[5][5]; -int sdMethod, rkS; /* The number of stages */ - -/*~~~> Checkpoints in memory buffers */ -int stack_ptr = -1; /* last written entry in checkpoint */ -KPP_REAL *chk_H, *chk_T; -KPP_REAL **chk_Y; -KPP_REAL ***chk_Z; -int **chk_P; -#ifdef FULL_ALGEBRA - KPP_REAL ***chk_J; -#else - KPP_REAL **chk_J; -#endif - -/* Function Headers */ -void INTEGRATE_ADJ( int NADJ, KPP_REAL Y[], KPP_REAL Lambda[][NVAR], - KPP_REAL TIN, KPP_REAL TOUT, KPP_REAL ATOL_adj[][NVAR], - KPP_REAL RTOL_adj[][NVAR], int ICNTRL_U[], - KPP_REAL RCNTRL_U[], int ISTATUS_U[], - KPP_REAL RSTATUS_U[] ); -int SDIRKADJ( int N, int NADJ, KPP_REAL Tinitial, KPP_REAL Tfinal, KPP_REAL Y[], - KPP_REAL Lambda[][NVAR], KPP_REAL RelTol[], KPP_REAL AbsTol[], - KPP_REAL RelTol_adj[][NVAR], KPP_REAL AbsTol_adj[][NVAR], - KPP_REAL RCNTRL[], int ICNTRL[], KPP_REAL RSTATUS[], - int ISTATUS[]); -int SDIRK_FwdInt( int N, KPP_REAL Tinitial, KPP_REAL Tfinal, KPP_REAL Y[], - KPP_REAL Hmax, KPP_REAL Hmin, KPP_REAL Hstart, - KPP_REAL Roundoff, KPP_REAL AbsTol[], KPP_REAL RelTol[], - int ISTATUS[], KPP_REAL RSTATUS[], int Max_no_steps, - int NewtonMaxit, KPP_REAL NewtonTol, KPP_REAL ThetaMin, - KPP_REAL FacSafe, KPP_REAL FacMin, KPP_REAL FacMax, - KPP_REAL FacRej, KPP_REAL Qmin, KPP_REAL Qmax, int ITOL, - int SaveLU ); -int SDIRK_DadjInt( int N, int NADJ, KPP_REAL Lambda[][NVAR], int SaveLU, - int ISTATUS[], int ITOL, KPP_REAL AbsTol_adj[][NVAR], - KPP_REAL RelTol_adj[][NVAR], int NewtonMaxit, - KPP_REAL ThetaMin, KPP_REAL NewtonTol, int DirectADJ ); -void SDIRK_AllocBuffers( int Max_no_steps, int rkS, int SaveLU ); -void SDIRK_FreeBuffers( int Max_no_steps, int SaveLU ); -void SDIRK_Push( KPP_REAL T, KPP_REAL H, KPP_REAL Y[], KPP_REAL Z[][NVAR], - KPP_REAL E[], int P[], int Max_no_steps, int SaveLU ); -void SDIRK_Pop( KPP_REAL* T, KPP_REAL* H, KPP_REAL* Y, KPP_REAL* Z, - KPP_REAL* E, int* P, int SaveLU ); -void SDIRK_ErrorScale( int N, int ITOL, KPP_REAL AbsTol[], KPP_REAL RelTol[], - KPP_REAL Y[],KPP_REAL SCAL[]); -KPP_REAL SDIRK_ErrorNorm( int N, KPP_REAL Y[], KPP_REAL SCAL[] ); -int SDIRK_ErrorMsg( int code, KPP_REAL T, KPP_REAL H ); -void SDIRK_PrepareMatrix( KPP_REAL H, KPP_REAL T, KPP_REAL Y[], KPP_REAL FJAC[], - int SkipJac, int SkipLU, KPP_REAL E[], int IP[], - int Reject, int ISING, int ISTATUS[] ); -void SDIRK_Solve ( char Transp, KPP_REAL H, int N, KPP_REAL E[], - int IP[], int ISING, KPP_REAL RHS[], int ISTATUS[] ); -void Sdirk4a(); -void Sdirk4b(); -void Sdirk2a(); -void Sdirk2b(); -void Sdirk3a(); -void FUN_CHEM( KPP_REAL T, KPP_REAL Y[], KPP_REAL P[] ); -void JAC_CHEM( KPP_REAL T, KPP_REAL Y[], KPP_REAL JV[] ); -KPP_REAL WLAMCH( char C ); -void Set2Zero( int N, KPP_REAL Y[] ); -void WAXPY( int N, KPP_REAL Alpha, KPP_REAL X[], int incX, KPP_REAL Y[], - int incY ); -void WADD( int N, KPP_REAL Y[], KPP_REAL Z[], KPP_REAL TMP[] ); -void WSCAL( int N, KPP_REAL Alpha, KPP_REAL X[], int incX ); -void JacTR_SP_Vec( KPP_REAL Jac[], KPP_REAL Fcn[], KPP_REAL K[] ); -void KppSolve( KPP_REAL A[], KPP_REAL b[] ); -void KppSolveTR( KPP_REAL JVS[], KPP_REAL X[], KPP_REAL XX[] ); -int KppDecomp( KPP_REAL A[] ); -void Update_SUN(); -void Update_RCONST(); -void Fun( KPP_REAL Y[], KPP_REAL FIX[], KPP_REAL RCONST[], KPP_REAL Ydot[] ); -void Jac_SP( KPP_REAL Y[], KPP_REAL FIX[], KPP_REAL RCONST[], KPP_REAL Ydot[] ); -void Set2Zero( int N, KPP_REAL Y[] ); - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void INTEGRATE_ADJ( int NADJ, KPP_REAL Y[], KPP_REAL Lambda[][NVAR], - KPP_REAL TIN, KPP_REAL TOUT, KPP_REAL ATOL_adj[][NVAR], - KPP_REAL RTOL_adj[][NVAR], int ICNTRL_U[], - KPP_REAL RCNTRL_U[], int ISTATUS_U[], - KPP_REAL RSTATUS_U[] ) { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - //int Ntotal = 0; - KPP_REAL RCNTRL[20], RSTATUS[20], T1, T2; - int ICNTRL[20], ISTATUS[20], Ierr, i; - - for(i=0; i<20; i++) { - ICNTRL[i] = 0; - RCNTRL[i] = (KPP_REAL)0.0; - ISTATUS[i] = 0; - RSTATUS[i] = (KPP_REAL)0.0; - } - - /*~~~> fine-tune the integrator: */ - ICNTRL[4] = 8; /* Max no. of Newton iterations */ - ICNTRL[6] = 1; /* Adjoint solution by: 0=Newton, 1=direct */ - ICNTRL[7] = 1; /* Save fwd LU factorization: 0 = do *not* save, 1 = save */ - - /* If optional parameters are given, and if they are >0, - then they overwrite default settings. */ - //if(ICNTRL_U != NULL) { /* Check to see if ICNTRL_U is not NULL */ - // for(i=0; i<20; i++) { - // if(ICNTRL_U[i] > 0) - // ICNTRL[i] = ICNTRL_U[i]; - // } - //} - // - //if(RCNTRL_U != NULL) { /* Check to see if RCNTRL_U is not NULL */ - // for(i=0; i<20; i++) { - // if(RCNTRL_U[i] > 0) - // RCNTRL[i] = RCNTRL_U[i]; - // } - //} - - T1 = TIN; - T2 = TOUT; - Ierr = SDIRKADJ( NVAR, NADJ, T1, T2, Y, Lambda, RTOL, ATOL, ATOL_adj, - RTOL_adj, RCNTRL, ICNTRL, RSTATUS, ISTATUS ); - - /*~~~> Debug option: number of steps */ - // Ntotal = Ntotal + ISTATUS(Nstp) - // printf( "NSTEP=%d Ntotal=%d O3=%e NO2=%e\n", ISTATUS(Nstp), Ntotal, - // VAR(ind_O3), VAR(ind_NO2) ); - - if (Ierr < 0) - printf("SDIRK: Unsuccessful exit at T=%f (Ierr=%d)\n", TIN, Ierr ); - - /* if optional parameters are given for output they to return information */ - //if(ISTATUS_U != NULL) { /* Check to see if ISTATUS_U is not NULL */ - // for(i=0; i<20; i++) - // ISTATUS_U[i] = ISTATUS[i]; - //} - // - //if(RSTATUS_U != NULL) { /* Check to see if RSTATUS_U is not NULL */ - // for(i=0; i<20; i++) - // RSTATUS_U[i] = RSTATUS[i]; - //} - // - //Ierr_U = Ierr; - -} /* END of SUBROUTINE INTEGRATE_ADJ */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -int SDIRKADJ( int N, int NADJ, KPP_REAL Tinitial, KPP_REAL Tfinal, KPP_REAL Y[], - KPP_REAL Lambda[][NVAR], KPP_REAL RelTol[], KPP_REAL AbsTol[], - KPP_REAL RelTol_adj[][NVAR], KPP_REAL AbsTol_adj[][NVAR], - KPP_REAL RCNTRL[], int ICNTRL[], KPP_REAL RSTATUS[], - int ISTATUS[] ) { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - Solves the system y'=F(t,y) using a Singly-Diagonally-Implicit - Runge-Kutta (SDIRK) method. - - This implementation is based on the book and the code Sdirk4: - - E. Hairer and G. Wanner - "Solving ODEs II. Stiff and differential-algebraic problems". - Springer series in computational mathematics, Springer-Verlag, 1996. - This code is based on the SDIRK4 routine in the above book. - - Methods: - * Sdirk 2a, 2b: L-stable, 2 stages, order 2 - * Sdirk 3a: L-stable, 3 stages, order 2, adjoint-invariant - * Sdirk 4a, 4b: L-stable, 5 stages, order 4 - - (C) Adrian Sandu, July 2005 - Virginia Polytechnic Institute and State University - Contact: sandu@cs.vt.edu - Revised by Philipp Miehe and Adrian Sandu, May 2006 - Translation F90 to C by Paul Eller, May 2007 - This implementation is part of KPP - the Kinetic PreProcessor -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -~~~> INPUT ARGUMENTS: - -- Y[NVAR] = vector of initial conditions (at T=Tinitial) -- [Tinitial,Tfinal] = time range of integration - (if Tinitial>Tfinal the integration is performed backwards in time) -- RelTol, AbsTol = user precribed accuracy -- SUBROUTINE ode_Fun( T, Y, Ydot ) = ODE function, - returns Ydot = Y' = F(T,Y) -- SUBROUTINE ode_Fun( T, Y, Ydot ) = Jacobian of the ODE function, - returns Jcb = dF/dY -- ICNTRL[1:20] = integer inputs parameters -- RCNTRL[1:20] = real inputs parameters -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -~~~> OUTPUT ARGUMENTS: - -- Y[NVAR] -> vector of final states (at T->Tfinal) -- ISTATUS[0:19] -> integer output parameters -- RSTATUS[0:19] -> real output parameters -- Ierr -> job status upon return - success (positive value) or - failure (negative value) -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -~~~> INPUT PARAMETERS: - - Note: For input parameters equal to zero the default values of the - corresponding variables are used. - - Note: For input parameters equal to zero the default values of the - corresponding variables are used. -~~~> - ICNTRL[0] = not used - - ICNTRL[1] = 0: AbsTol, RelTol are NVAR-dimensional vectors - = 1: AbsTol, RelTol are scalars - - ICNTRL[2] = Method - - ICNTRL[3] -> maximum number of integration steps - For ICNTRL[3]=0 the default value of 1500 is used - Note: use a conservative estimate, since the checkpoint - buffers are allocated to hold Max_no_steps - - ICNTRL[4] -> maximum number of Newton iterations - For ICNTRL[4]=0 the default value of 8 is used - - ICNTRL[5] -> starting values of Newton iterations: - ICNTRL[5]=0 : starting values are interpolated (the default) - ICNTRL[5]=1 : starting values are zero - - ICNTRL[6] -> method to solve ADJ equations: - ICNTRL[6]=0 : modified Newton re-using LU (the default) - ICNTRL[6]=1 : direct solution(additional one LU factorization per stage) - - ICNTRL[7] -> checkpointing the LU factorization at each step: - ICNTRL[7]=0 : do *not* save LU factorization (the default) - ICNTRL[7]=1 : save LU factorization - Note: if ICNTRL[6]=1 the LU factorization is *not* saved - -~~~> Real parameters - - RCNTRL[0] -> Hmin, lower bound for the integration step size - It is strongly recommended to keep Hmin = ZERO - RCNTRL[1] -> Hmax, upper bound for the integration step size - RCNTRL[2] -> Hstart, starting value for the integration step size - - RCNTRL[3] -> FacMin, lower bound on step decrease factor (default=0.2) - RCNTRL[4] -> FacMax, upper bound on step increase factor (default=6) - RCNTRL[5] -> FacRej, step decrease factor after multiple rejections - (default=0.1) - RCNTRL[6] -> FacSafe, by which the new step is slightly smaller - than the predicted value (default=0.9) - RCNTRL[7] -> ThetaMin. If Newton convergence rate smaller - than ThetaMin the Jacobian is not recomputed; - (default=0.001) - RCNTRL[8] -> NewtonTol, stopping criterion for Newton's method - (default=0.03) - RCNTRL[9] -> Qmin - RCNTRL[10] -> Qmax. If Qmin < Hnew/Hold < Qmax, then the - step size is kept constant and the LU factorization - reused (default Qmin=1, Qmax=1.2) - -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -~~~> OUTPUT PARAMETERS: - - Note: each call to Rosenbrock adds the current no. of fcn calls - to previous value of ISTATUS[0], and similar for the other params. - Set ISTATUS[1:10] = 0 before call to avoid this accumulation. - - ISTATUS[0] = No. of function calls - ISTATUS[1] = No. of jacobian calls - ISTATUS[2] = No. of steps - ISTATUS[3] = No. of accepted steps - ISTATUS[4] = No. of rejected steps (except at the beginning) - ISTATUS[5] = No. of LU decompositions - ISTATUS[6] = No. of forward/backward substitutions - ISTATUS[7] = No. of singular matrix decompositions - - RSTATUS[0] -> Texit, the time corresponding to the - computed Y upon return - RSTATUS[1] -> Hexit,last accepted step before return - RSTATUS[2] -> Hnew, last predicted step before return - For multiple restarts, use Hnew as Hstart in the following run - -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - -/* Local variables */ - KPP_REAL Hmin=0.0, Hmax=0.0, Hstart=0.0, Roundoff, FacMin=0.0, FacMax=0.0, - FacSafe=0.0, FacRej=0.0, ThetaMin, NewtonTol,Qmin, Qmax; - int SaveLU, DirectADJ; /* Boolean variables */ - int ITOL, NewtonMaxit, Max_no_steps=0, i, Ierr=0; - - stack_ptr = -1; - -/*~~~> Initialize statistics */ - for(i=0; i<20; i++) { - ISTATUS[i] = 0; - RSTATUS[i] = ZERO; - } - -/*~~~> For Scalar tolerances (ICNTRL[1] != 0) the code uses AbsTol[0] - and RelTol[0] - For Vector tolerances (ICNTRL[1] == 0) the code uses AbsTol[0:NVAR-1] - and RelTol[0:NVAR-1]*/ - if (ICNTRL[1]==0) - ITOL = 1; - else - ITOL = 0; - -/*~~~> ICNTRL(3) - method selection */ - switch (ICNTRL[2]) { - case 0: - case 1: - Sdirk2a(); - break; - case 2: - Sdirk2b(); - break; - case 3: - Sdirk3a(); - break; - case 4: - Sdirk4a(); - break; - case 5: - Sdirk4b(); - break; - default: - Sdirk2a(); - } - -/*~~~> The maximum number of time steps admitted */ - if (ICNTRL[3] == 0) - Max_no_steps = 200000; - else if (ICNTRL[3] > 0) - Max_no_steps = ICNTRL[3]; - else { - printf("User-selected ICNTRL(4)=%d", ICNTRL[3]); - Ierr = SDIRK_ErrorMsg(-1,Tinitial,ZERO); - } - -/*~~~>The maximum number of Newton iterations admitted */ - if(ICNTRL[4]==0) - NewtonMaxit = 8; - else { - NewtonMaxit=ICNTRL[4]; - if(NewtonMaxit <=0) { - printf("User-selected ICNTRL(5)=%d", ICNTRL[4] ); - Ierr = SDIRK_ErrorMsg(-2,Tinitial,ZERO); - } - } - -/*~~~> Solve ADJ equations directly or by Newton iterations */ - DirectADJ = (ICNTRL[6] == 1); - -/*~~~> Save or not the forward LU factorization */ - SaveLU = ((ICNTRL[7] != 0) && (DirectADJ == 0)); - -/*~~~> Unit roundoff (1+Roundoff>1) */ - Roundoff = WLAMCH('E'); - -/*~~~> Lower bound on the step size: (positive value) */ - if (RCNTRL[0] == ZERO) - Hmin = ZERO; - else if (RCNTRL[0] > ZERO) - Hmin = RCNTRL[0]; - else { - printf("User-selected RCNTRL[0]=%f", RCNTRL[0]); - Ierr = SDIRK_ErrorMsg(-3,Tinitial,ZERO); - } - -/*~~~> Upper bound on the step size: (positive value) */ - if (RCNTRL[1] == ZERO) - Hmax = ABS(Tfinal-Tinitial); - else if (RCNTRL[1] > ZERO) - Hmax = MIN( ABS(RCNTRL[1]), ABS(Tfinal-Tinitial) ); - else { - printf("User-selected RCNTRL[1]=%f", RCNTRL[1]); - Ierr = SDIRK_ErrorMsg(-3,Tinitial,ZERO); - } - -/*~~~> Starting step size: (positive value) */ - if (RCNTRL[2] == ZERO) - Hstart = MAX( Hmin, Roundoff); - else if (RCNTRL[2] > ZERO) - Hstart = MIN( ABS(RCNTRL[2]), ABS(Tfinal-Tinitial) ); - else { - printf("User-selected Hstart: RCNTRL[2]=%f", RCNTRL[2]); - Ierr = SDIRK_ErrorMsg(-3,Tinitial,ZERO); - } - -/*~~~> Step size can be changed s.t. FacMin < Hnew/Hexit < FacMax */ - if (RCNTRL[3] == ZERO) - FacMin = (KPP_REAL)0.2; - else if (RCNTRL[3] > ZERO) - FacMin = RCNTRL[3]; - else { - printf("User-selected FacMin: RCNTRL[3]=%f", RCNTRL[3]); - Ierr = SDIRK_ErrorMsg(-4,Tinitial,ZERO); - } - - if (RCNTRL[4] == ZERO) - FacMax = (KPP_REAL)10.0; - else if (RCNTRL[4] > ZERO) - FacMax = RCNTRL[4]; - else { - printf("User-selected FacMax: RCNTRL[4]=%f", RCNTRL[4]); - Ierr = SDIRK_ErrorMsg(-4,Tinitial,ZERO); - } - -/*~~~> FacRej: Factor to decrease step after 2 succesive rejections */ - if (RCNTRL[5] == ZERO) - FacRej = (KPP_REAL)0.1; - else if (RCNTRL[5] > ZERO) - FacRej = RCNTRL[5]; - else { - printf("User-selected FacRej: RCNTRL[5]=%f", RCNTRL[5]); - Ierr = SDIRK_ErrorMsg(-4,Tinitial,ZERO); - } - -/* ~~~> FacSafe: Safety Factor in the computation of new step size */ - if (RCNTRL[6] == ZERO) - FacSafe = (KPP_REAL)0.9; - else if (RCNTRL[6] > ZERO) - FacSafe = RCNTRL[6]; - else { - printf("User-selected FacSafe: RCNTRL[6]=%f", RCNTRL[6]); - Ierr = SDIRK_ErrorMsg(-4,Tinitial,ZERO); - } - -/*~~~> ThetaMin: decides whether the Jacobian should be recomputed */ - if (RCNTRL[7] == ZERO) - ThetaMin = (KPP_REAL)1.0e-03; - else - ThetaMin = RCNTRL[7]; - -/*~~~> Stopping criterion for Newton's method */ - if (RCNTRL[8] == ZERO) - NewtonTol = (KPP_REAL)3.0e-02; - else - NewtonTol = RCNTRL[8]; - -/* ~~~> Qmin, Qmax: IF Qmin < Hnew/Hold < Qmax, STEP SIZE = CONST. */ - if (RCNTRL[9] == ZERO) - Qmin = ONE; - else - Qmin = RCNTRL[9]; - - if (RCNTRL[10] == ZERO) - Qmax = (KPP_REAL)1.2; - else - Qmax = RCNTRL [10]; - -/* ~~~> Check if tolerances are reasonable */ - if (ITOL == 0) { - if ((AbsTol[0]<=ZERO || RelTol[0])<=(((KPP_REAL)10.0)*Roundoff)) - Ierr = SDIRK_ErrorMsg(-5,Tinitial,ZERO); - } - else { - for (i = 0; i < N; i++) { - if ((AbsTol[i]<=ZERO)||(RelTol[i]<=((KPP_REAL)10.0)*Roundoff)) - Ierr = SDIRK_ErrorMsg(-5,Tinitial,ZERO); - } - } - - if (Ierr < 0) - return Ierr; - -/*~~~> Allocate memory buffers */ - SDIRK_AllocBuffers(Max_no_steps, rkS, SaveLU); - -/*~~~> Call forward integration */ - Ierr = SDIRK_FwdInt( N, Tinitial, Tfinal, Y, Hmax, Hmin, Hstart, Roundoff, - AbsTol, RelTol, ISTATUS, RSTATUS, Max_no_steps, - NewtonMaxit, NewtonTol, ThetaMin, FacSafe, FacMin, - FacMax, FacRej, Qmin, Qmax, ITOL, SaveLU ); - -/*~~~> Call adjoint integration */ - Ierr = SDIRK_DadjInt( N, NADJ, Lambda, SaveLU, ISTATUS, ITOL, AbsTol_adj, - RelTol_adj, NewtonMaxit, ThetaMin, NewtonTol, - DirectADJ ); - -/*~~~> Free memory buffers */ - SDIRK_FreeBuffers(Max_no_steps, SaveLU); - - return Ierr; - -} /* End of main SDIRK_ADJ */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -int SDIRK_FwdInt( int N, KPP_REAL Tinitial, KPP_REAL Tfinal, KPP_REAL Y[], - KPP_REAL Hmax, KPP_REAL Hmin, KPP_REAL Hstart, - KPP_REAL Roundoff, KPP_REAL AbsTol[], KPP_REAL RelTol[], - int ISTATUS[], KPP_REAL RSTATUS[], int Max_no_steps, - int NewtonMaxit, KPP_REAL NewtonTol, KPP_REAL ThetaMin, - KPP_REAL FacSafe, KPP_REAL FacMin, KPP_REAL FacMax, - KPP_REAL FacRej, KPP_REAL Qmin, KPP_REAL Qmax, int ITOL, - int SaveLU ) { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - -/*~~~> Local variables: */ - KPP_REAL Z[Smax][NVAR], G[NVAR], TMP[NVAR], NewtonRate, SCAL[NVAR], RHS[NVAR], - T, H, Theta=0.0, Hratio, NewtonPredictedErr, Qnewton, Err, Fac, Hnew, - Tdirection, NewtonIncrement, NewtonIncrementOld=0.0; - int i, j, IER=0, istage, NewtonIter, IP[NVAR]; - - /*Boolean Variables*/ - int Reject, FirstStep, SkipJac, SkipLU, NewtonDone, CycleTloop; - -#ifdef FULL_ALGEBRA - KPP_REAL FJAC[NVAR][NVAR], E[NVAR][NVAR]; -#else - KPP_REAL FJAC[LU_NONZERO], E[LU_NONZERO]; -#endif - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -/*~~~~> Initializations */ -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - T = Tinitial; - Tdirection = SIGN(ONE, Tfinal-Tinitial); - H = MAX(ABS(Hmin), ABS(Hstart)); - if (ABS(H) <= ((KPP_REAL)10.0 * Roundoff)) - H = (KPP_REAL)(1.0e-06); - H = MIN(ABS(H), Hmax); - H = SIGN(H, Tdirection); - SkipLU = 0; - SkipJac = 0; - Reject = 0; - FirstStep = 1; - CycleTloop = 0; - - SDIRK_ErrorScale(N, ITOL, AbsTol, RelTol, Y, SCAL); - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -/*~~~> Time loop begins */ -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - while((Tfinal-T)*Tdirection - Roundoff > ZERO) { /* Tloop */ - - /*~~~> Compute E = 1/(h*gamma)-Jac and its LU decomposition */ - if (SkipLU == 0) { /* This time around skip the Jac update and LU */ - SDIRK_PrepareMatrix( H, T, Y, FJAC, SkipJac, SkipLU, E, IP, - Reject, IER, ISTATUS); - if (IER != 0) - return SDIRK_ErrorMsg(-8, T, H); - } - - if (ISTATUS[Nstp] > Max_no_steps) - return SDIRK_ErrorMsg(-6, T, H); - - if ((T + ((KPP_REAL)0.1) * H == T) || (ABS(H) <= Roundoff)) { - return SDIRK_ErrorMsg(-7, T, H); - } - - for (istage=0; istage < rkS; istage++) { /*stages*/ -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -/*~~~> Simplified Newton iterations */ -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - /*~~~> Starting values for Newton iterations */ - Set2Zero(N, &Z[istage][0]); - - /*~~~> Prepare the loop-independent part of the right-hand side */ - Set2Zero(N, G); - if (istage > 0) { - for (j=0; j < istage; j++) { - /* Gj(:) = sum_j Theta(i,j)*Zj(:) = H * sum_j A(i,j)*Fun(Zj(:)) */ - WAXPY(N, rkTheta[j][istage], &Z[j][0], 1, G, 1); - /* Zi(:) = sum_j Alpha(i,j)*Zj(:) */ - WAXPY(N, rkAlpha[j][istage],&Z[j][0], 1, &Z[istage][0], 1); - } - } - - /*~~~> Initializations for Newton iteration */ - NewtonDone = 0; /* false */ - Fac = (KPP_REAL)0.5; /* Step reduction factor */ - - for (NewtonIter=0; NewtonIter Prepare the loop-dependent part of the right-hand side */ - WADD(N, Y, &Z[istage][0], TMP); /* TMP <- Y + Zi */ - FUN_CHEM(T+rkC[istage]*H, TMP, RHS); /* RHS <- Run(Y+Zi) */ - ISTATUS[Nfun]++; - /* RHS[0:N-1] = G[0:N-1] - Z[istage][0:N-1] + (H*rkGamma)*RHS[1:N] */ - WSCAL(N, H*rkGamma, RHS, 1); - WAXPY(N, -ONE, &Z[istage][0], 1, RHS, 1); - WAXPY(N, ONE, G, 1, RHS, 1 ); - - /*~~~> Solve the linear system */ - SDIRK_Solve('N', H, N, E, IP, IER, RHS, ISTATUS); - - /*~~~> Check convergence of Newton iterations */ - NewtonIncrement = SDIRK_ErrorNorm(N, RHS, SCAL); - if (NewtonIter == 0) { - Theta = ABS(ThetaMin); - NewtonRate = (KPP_REAL)2.0; - } - else { - Theta = NewtonIncrement/NewtonIncrementOld; - if (Theta < (KPP_REAL)0.99) { - NewtonRate = Theta/(ONE-Theta); - /* Predict error at the end of Newton process */ - NewtonPredictedErr = (NewtonIncrement*pow(Theta, - (NewtonMaxit - (NewtonIter+1))/(ONE - Theta))); - if(NewtonPredictedErr >= NewtonTol) { - /* Non-convergence of Newton: predicted error too large*/ - Qnewton = MIN((KPP_REAL)10.0, NewtonPredictedErr/NewtonTol); - Fac = (KPP_REAL)0.8 * pow(Qnewton, (-ONE / (1 + NewtonMaxit - - NewtonIter + 1))); - break; - } - } - else /* Non-convergence of Newton: Theta too large */ { - break; - } - } - - NewtonIncrementOld = NewtonIncrement; - - /* Update solution: Z(:) <-- Z(:)+RHS(:) */ - WAXPY(N, ONE, RHS, 1, &Z[istage][0], 1); - - /* Check error in Newton iterations */ - NewtonDone=(NewtonRate*NewtonIncrement<=NewtonTol); - if (NewtonDone == 1) - break; - } /* end NewtonLoop for */ - - if(NewtonDone == 0) { - H = Fac*H; - Reject = 1; - SkipJac = 1; - SkipLU = 0; - CycleTloop = 1; - } /* end if */ - - if (CycleTloop == 1) { - CycleTloop=0; - break; - } - /* End of implified Newton iterations */ - } /* end stages for */ - - if (CycleTloop==0) { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -/*~~~> Error estimation */ -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - ISTATUS[Nstp]++; - Set2Zero(N, TMP); - - for (i=0; i Computation of new step size Hnew */ - Fac = FacSafe * pow((Err), (-ONE/rkELO)); - Fac = MAX(FacMin, MIN(FacMax, Fac)); - Hnew = H*Fac; - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -/*~~~> Accept/Reject step */ -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - if (Err < ONE) { /*~~~> Step is accepted */ - FirstStep = 0; /* false */ - ISTATUS[Nacc]++; - - /* Checkpoint solution */ - SDIRK_Push( T, H, Y, Z, E, IP, Max_no_steps, SaveLU ); - - /*~~~> Update time and solution */ - T = T + H; - /* Y(:) <-- Y(:) + Sum_j rkD(j)*Z_j(:) */ - for(i=0; i Update scaling coefficients */ - SDIRK_ErrorScale(N, ITOL, AbsTol, RelTol, Y, SCAL); - - /*~~~> Next time step */ - Hnew = Tdirection*MIN(ABS(Hnew), Hmax); - - /* Last T and H */ - RSTATUS[Ntexit] = T; - RSTATUS[Nhexit] = H; - RSTATUS[Nhnew] = Hnew; - - /* No step increase after a rejection */ - if (Reject==1) - Hnew = Tdirection*MIN(ABS(Hnew), ABS(H)); - Reject = 0; /* false */ - if ((T+Hnew/Qmin-Tfinal)*Tdirection > ZERO) - H = Tfinal-T; - else { - Hratio = Hnew/H; - /* If step not changed too much keep Jacobian and reuse LU */ - SkipLU = ((Theta <= ThetaMin) && (Hratio >= Qmin) - && (Hratio <= Qmax)); - if (SkipLU==0) - H = Hnew; - } - - /* If convergence is fast enough, do not update Jacobian */ - /* SkipJac = (Theta <= ThetaMin); */ - SkipJac = 0; - } - else { /*~~~> Step is rejected */ - if ((FirstStep==1) || (Reject==1)) - H = FacRej * H; - else - H = Hnew; - - Reject = 1; - SkipJac = 1; - SkipLU = 0; - if (ISTATUS[Nacc] >=1) - ISTATUS[Nrej]++; - - } - } /* end CycleTloop if */ - } /* end Tloop */ - - /* Successful return */ - return 1; - -} /* end SDIRK_FwdInt */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -int SDIRK_DadjInt( int N, int NADJ, KPP_REAL Lambda[][NVAR], int SaveLU, - int ISTATUS[], int ITOL, KPP_REAL AbsTol_adj[][NVAR], - KPP_REAL RelTol_adj[][NVAR], int NewtonMaxit, - KPP_REAL ThetaMin, KPP_REAL NewtonTol, int DirectADJ) { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - -/*~~~> Local variables: */ - KPP_REAL Y[NVAR]; - KPP_REAL Z[Smax][NVAR], U[Smax][NADJ][NVAR], TMP[NVAR], G[NVAR], NewtonRate, - SCAL[NVAR], DU[NVAR], T, H, Theta, NewtonPredictedErr, NewtonIncrement, - NewtonIncrementOld=0.0; - int i, j, IER=0, istage, iadj, NewtonIter, IP[NVAR], IP_adj[NVAR]; - int Reject=0, SkipJac, SkipLU, NewtonDone; /* Boolean */ - -#ifdef FULL_ALGEBRA - KPP_REAL E[NVAR][NVAR], Jac[NVAR][NVAR], E_adj[NVAR][NVAR]; -#else - KPP_REAL E[LU_NONZERO], Jac[LU_NONZERO], E_adj[LU_NONZERO]; -#endif - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -~~~> Time loop begins -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - while ( stack_ptr > -1 ) { /* Tloop */ - - /*~~~> Recover checkpoints for stage values and vectors */ - SDIRK_Pop( &T, &H, &Y[0], &Z[0][0], &E[0], &IP[0], SaveLU ); - - /*~~~> Compute E = 1/(h*gamma)-Jac and its LU decomposition */ - if (!SaveLU) { - SkipJac = FALSE; - SkipLU = FALSE; - SDIRK_PrepareMatrix ( H, T, Y, Jac, SkipJac, SkipLU, E, IP, Reject, IER, - ISTATUS ); - if (IER != 0) - return SDIRK_ErrorMsg(-8,T,H); - } - - for( istage = rkS-1; istage >=0; istage--) { /* Stages Loop */ - /*~~~> Jacobian of the current stage solution */ - for(i=0; i Update scaling coefficients */ - for(i=0; i Prepare the loop-independent part of the right-hand side - G(:) = H*Jac^T*( B(i)*Lambda + sum_j A(j,i)*Uj(:) ) */ - for(i=0; i Initializations for Newton iteration */ - Set2Zero(N,&U[istage][iadj][0]); - NewtonDone = FALSE; - - /* Newton Loop */ - for( NewtonIter=0; NewtonIter Prepare the loop-dependent part of the right-hand side */ -#ifdef FULL_ALGEBRA - for(i=0; i Solve the linear system */ - SDIRK_Solve ( 'T', H, N, E, IP, IER, DU, ISTATUS ); - - /*~~~> Check convergence of Newton iterations */ - NewtonIncrement = SDIRK_ErrorNorm(N, DU, SCAL); - if ( NewtonIter == 0 ) { - Theta = ABS(ThetaMin); - NewtonRate = (KPP_REAL)2.0; - } - else { - Theta = NewtonIncrement/NewtonIncrementOld; - if (Theta < (KPP_REAL)0.99) { - NewtonRate = Theta/(ONE-Theta); - /* Predict error at the end of Newton process */ - NewtonPredictedErr = NewtonIncrement* - pow(Theta,(NewtonMaxit-NewtonIter)) / (ONE-Theta); - /* Non-convergence of Newton: predicted error too large */ - if (NewtonPredictedErr >= NewtonTol) - break; /* Exit NewtonLoop */ - } else { /* Non-convergence of Newton: Theta too large */ - break; - } - } - NewtonIncrementOld = NewtonIncrement; - /* Update solution */ - for(i=0; i=4) && NewtonDone) - break; /* Exit Newton Loop */ - } - - /*~~~> If Newton iterations fail employ the direct solution */ - if (!NewtonDone) { - printf("Problems with Newton Adjoint!!!\n"); -#ifdef FULL_ALGEBRA - for(i=0; i End of implified Newton iterations */ - } /* End of DirADJ */ - - } /* End of adj */ - - } /* End of stages */ - - /*~~~> Update adjoint solution - Y(:) <-- Y(:) + Sum_j rkD(j)*Z_j(:) */ - for (istage=0; istage Allocate buffer space for checkpointing -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - int i,j; - - chk_H = (KPP_REAL*) malloc(Max_no_steps * sizeof(KPP_REAL)); - if (chk_H == NULL) { - printf("Failed allocation of buffer H\n"); - exit(0); - } - - chk_T = (KPP_REAL*) malloc(Max_no_steps * sizeof(KPP_REAL)); - if (chk_T == NULL) { - printf("Failed allocation of buffer T\n"); - exit(0); - } - - chk_Y = (KPP_REAL**) malloc(Max_no_steps * sizeof(KPP_REAL*)); - if (chk_Y == NULL) { - printf("Failed allocation of buffer Y\n"); - exit(0); - } - for(i=0; i Deallocate buffer space for discrete adjoint -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - int i,j; - - free(chk_H); - free(chk_T); - - for(i=0; i Saves the next trajectory snapshot for discrete adjoints -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - int i,j; - - stack_ptr++; - if( stack_ptr > Max_no_steps ) { - printf( "Push failed: buffer overflow"); - exit(0); - } - - chk_H[ stack_ptr ] = H; - chk_T[ stack_ptr ] = T; - for(i=0; i Retrieves the next trajectory snapshot for discrete adjoints -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - int i,j; - - if ( stack_ptr < 0 ) { - printf( "Pop failed: empty buffer\n" ); - exit(0); - } - - *H = chk_H[ stack_ptr ]; - *T = chk_T[ stack_ptr ]; - for(i=0; i Improper value for maximal no of steps\n"); - break; - case -2: - printf("--> Selected Rosenbrock method not implemented\n"); - break; - case -3: - printf("--> Hmin/Hmax/Hstart must be positive\n"); - break; - case -4: - printf("--> FacMin/FacMax/FacRej must be positive\n"); - break; - case -5: - printf("--> Improper tolerance values\n"); - break; - case -6: - printf("--> No of steps exceeds maximum bound\n"); - break; - case -7: - printf("--> Step size too small T + 10*H = T or H < Roundoff\n"); - break; - case -8: - printf("--> Matrix is repeatedly singular\n"); - break; - default: /* causing an error */ - printf("Unknown Error code: %d\n", code); - } - - printf("\nTime = %f and H = %f\n", T, H ); - return code; - -} /* end SDIRK_ErrorMsg */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void SDIRK_PrepareMatrix ( KPP_REAL H, KPP_REAL T, KPP_REAL Y[], - KPP_REAL FJAC[], int SkipJac, int SkipLU, - KPP_REAL E[], int IP[], int Reject, int ISING, - int ISTATUS[] ) { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -~~~> Compute the matrix E = 1/(H*GAMMA)*Jac, and its decomposition -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - KPP_REAL HGammaInv; - int i, j, ConsecutiveSng = 0; - - ISING = 1; - - while (ISING != 0) { - HGammaInv = ONE/(H*rkGamma); - - /*~~~> Compute the Jacobian */ - if (SkipJac==0) { - JAC_CHEM(T,Y,FJAC); - ISTATUS[Njac]++; - } - -#ifdef FULL_ALGEBRA - for(j=0; j= 6) - return; /* Failure */ - H = (KPP_REAL)(0.5)*H; - SkipJac = 0; /* False */ - SkipLU = 0; /* False */ - Reject = 1; /* True */ - } - } -} /* End of SDIRK_PrepareMatrix */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void SDIRK_Solve ( char Transp, KPP_REAL H, int N, KPP_REAL E[], int IP[], - int ISING, KPP_REAL RHS[], int ISTATUS[] ) { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -~~~> Solves the system (H*Gamma-Jac)*x = R - using the LU decomposition of E = I - 1/(H*Gamma)*Jac -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - KPP_REAL HGammaInv; - - HGammaInv = ONE/(H*rkGamma); - WSCAL(N,HGammaInv,RHS,1); - switch (Transp) { - case 'N': -#ifdef FULL_ALGEBRA - DGETRS( 'N', N, 1, E, N, IP, RHS, N, ISING ); -#else - KppSolve(E, RHS); -#endif - break; - case 'T': -#ifdef FULL_ALGEBRA - DGETRS( 'T', N, 1, E, N, IP, RHS, N, ISING ); -#else - KppSolveTR(E, RHS, RHS); -#endif - break; - default: - printf("Error in SDIRK_Solve. Unknown Transp argument: %c\n", Transp); - exit(0); - } - ISTATUS[Nsol]++; -} /* End of SDIRK_Solve */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void Sdirk4a() -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - sdMethod = S4A; - -/* Number of stages */ - rkS = 5; - -/* Method Coefficients */ - rkGamma = (KPP_REAL)0.2666666666666666666666666666666667; - - rkA[0][0] = (KPP_REAL)0.2666666666666666666666666666666667; - rkA[0][1] = (KPP_REAL)0.5000000000000000000000000000000000; - rkA[1][1] = (KPP_REAL)0.2666666666666666666666666666666667; - rkA[0][2] = (KPP_REAL)0.3541539528432732316227461858529820; - rkA[1][2] = (KPP_REAL)(-0.5415395284327323162274618585298197e-01); - rkA[2][2] = (KPP_REAL)0.2666666666666666666666666666666667; - rkA[0][3] = (KPP_REAL)0.8515494131138652076337791881433756e-01; - rkA[1][3] = (KPP_REAL)(-0.6484332287891555171683963466229754e-01); - rkA[2][3] = (KPP_REAL)0.7915325296404206392428857585141242e-01; - rkA[3][3] = (KPP_REAL)0.2666666666666666666666666666666667; - rkA[0][4] = (KPP_REAL)2.100115700566932777970612055999074; - rkA[1][4] = (KPP_REAL)(-0.7677800284445976813343102185062276); - rkA[2][4] = (KPP_REAL)2.399816361080026398094746205273880; - rkA[3][4] = (KPP_REAL)(-2.998818699869028161397714709433394); - rkA[4][4] = (KPP_REAL)0.2666666666666666666666666666666667; - rkB[0] = (KPP_REAL)2.100115700566932777970612055999074; - rkB[1] = (KPP_REAL)(-0.7677800284445976813343102185062276); - rkB[2] = (KPP_REAL)2.399816361080026398094746205273880; - rkB[3] = (KPP_REAL)(-2.998818699869028161397714709433394); - rkB[4] = (KPP_REAL)0.2666666666666666666666666666666667; - - rkBhat[0] = (KPP_REAL)2.885264204387193942183851612883390; - rkBhat[1] = (KPP_REAL)(-0.1458793482962771337341223443218041); - rkBhat[2] = (KPP_REAL)2.390008682465139866479830743628554; - rkBhat[3] = (KPP_REAL)(-4.129393538556056674929560012190140); - rkBhat[4] = ZERO; - - rkC[0] = (KPP_REAL)0.2666666666666666666666666666666667; - rkC[1] = (KPP_REAL)0.7666666666666666666666666666666667; - rkC[2] = (KPP_REAL)0.5666666666666666666666666666666667; - rkC[3] = (KPP_REAL)0.3661315380631796996374935266701191; - rkC[4] = ONE; - -/* Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} */ - rkD[0] = ZERO; - rkD[1] = ZERO; - rkD[2] = ZERO; - rkD[3] = ZERO; - rkD[4] = ONE; - -/* Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} */ - rkE[0] = (KPP_REAL)(-0.6804000050475287124787034884002302); - rkE[1] = (KPP_REAL)(1.558961944525217193393931795738823); - rkE[2] = (KPP_REAL)(-13.55893003128907927748632408763868); - rkE[3] = (KPP_REAL)(15.48522576958521253098585004571302); - rkE[4] = ONE; - -/* Local order of Err estimate */ - rkELO = 4; - -/* h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} */ - rkTheta[0][1] = (KPP_REAL)1.875000000000000000000000000000000; - rkTheta[0][2] = (KPP_REAL)1.708847304091539528432732316227462; - rkTheta[1][2] = (KPP_REAL)(-0.2030773231622746185852981969486824); - rkTheta[0][3] = (KPP_REAL)0.2680325578937783958847157206823118; - rkTheta[1][3] = (KPP_REAL)(-0.1828840955527181631794050728644549); - rkTheta[2][3] = (KPP_REAL)0.2968246986151577397160821594427966; - rkTheta[0][4] = (KPP_REAL)0.9096171815241460655379433581446771; - rkTheta[1][4] = (KPP_REAL)(-3.108254967778352416114774430509465); - rkTheta[2][4] = (KPP_REAL)12.33727431701306195581826123274001; - rkTheta[3][4] = (KPP_REAL)(-11.24557012450885560524143016037523); - -/* Starting value for Newton iterations: Z_i^0 = Sum_j {rkAlpha_ij*Z_j} */ - rkAlpha[0][1] = (KPP_REAL)2.875000000000000000000000000000000; - rkAlpha[0][2] = (KPP_REAL)0.8500000000000000000000000000000000; - rkAlpha[1][2] = (KPP_REAL)0.4434782608695652173913043478260870; - rkAlpha[0][3] = (KPP_REAL)0.7352046091658870564637910527807370; - rkAlpha[1][3] = (KPP_REAL)(-0.9525565003057343527941920657462074e-01); - rkAlpha[2][3] = (KPP_REAL)0.4290111305453813852259481840631738; - rkAlpha[0][4] = (KPP_REAL)(-16.10898993405067684831655675112808); - rkAlpha[1][4] = (KPP_REAL)6.559571569643355712998131800797873; - rkAlpha[2][4] = (KPP_REAL)(-15.90772144271326504260996815012482); - rkAlpha[3][4] = (KPP_REAL)25.34908987169226073668861694892683; - - rkELO = (KPP_REAL)4.0; - -} /* end Sdirk4a */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void Sdirk4b() { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - sdMethod = S4B; - -/* Number of stages */ - rkS = 5; - -/* Method coefficients */ - rkGamma = (KPP_REAL)0.25; - - rkA[0][0] = (KPP_REAL)0.25; - rkA[0][1] = (KPP_REAL)0.5; - rkA[1][1] = (KPP_REAL)0.25; - rkA[0][2] = (KPP_REAL)0.34; - rkA[1][2] = (KPP_REAL)(-0.40e-01); - rkA[2][2] = (KPP_REAL)0.25; - rkA[0][3] = (KPP_REAL)0.2727941176470588235294117647058824; - rkA[1][3] = (KPP_REAL)(-0.5036764705882352941176470588235294e-01); - rkA[2][3] = (KPP_REAL)0.2757352941176470588235294117647059e-01; - rkA[3][3] = (KPP_REAL)0.25; - rkA[0][4] = (KPP_REAL)1.041666666666666666666666666666667; - rkA[1][4] = (KPP_REAL)(-1.020833333333333333333333333333333); - rkA[2][4] = (KPP_REAL)7.812500000000000000000000000000000; - rkA[3][4] = (KPP_REAL)(-7.083333333333333333333333333333333); - rkA[4][4] = (KPP_REAL)0.25; - - rkB[0] = (KPP_REAL)1.041666666666666666666666666666667; - rkB[1] = (KPP_REAL)(-1.020833333333333333333333333333333); - rkB[2] = (KPP_REAL)7.812500000000000000000000000000000; - rkB[3] = (KPP_REAL)(-7.083333333333333333333333333333333); - rkB[4] = (KPP_REAL)0.250000000000000000000000000000000; - - rkBhat[0] = (KPP_REAL)1.069791666666666666666666666666667; - rkBhat[1] = (KPP_REAL)(-0.894270833333333333333333333333333); - rkBhat[2] = (KPP_REAL)7.695312500000000000000000000000000; - rkBhat[3] = (KPP_REAL)(-7.083333333333333333333333333333333); - rkBhat[4] = (KPP_REAL)0.212500000000000000000000000000000; - - rkC[0] = (KPP_REAL)0.25; - rkC[1] = (KPP_REAL)0.75; - rkC[2] = (KPP_REAL)0.55; - rkC[3] = (KPP_REAL)0.5; - rkC[4] = ONE; - -/* Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} */ - rkD[0] = ZERO; - rkD[1] = ZERO; - rkD[2] = ZERO; - rkD[3] = ZERO; - rkD[4] = ONE; - -/* Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} */ - rkE[0] = (KPP_REAL)0.5750; - rkE[1] = (KPP_REAL)0.2125; - rkE[2] = (KPP_REAL)(-4.6875); - rkE[3] = (KPP_REAL)4.2500; - rkE[4] = (KPP_REAL)0.1500; - -/* Local order of Err estimate */ - rkELO = 4; - -/* h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} */ - rkTheta[0][1] = (KPP_REAL)2.0; - rkTheta[0][2] = (KPP_REAL)1.680000000000000000000000000000000; - rkTheta[1][2] = (KPP_REAL)(-0.1600000000000000000000000000000000); - rkTheta[0][3] = (KPP_REAL)1.308823529411764705882352941176471; - rkTheta[1][3] = (KPP_REAL)(-0.1838235294117647058823529411764706); - rkTheta[2][3] = (KPP_REAL)0.1102941176470588235294117647058824; - rkTheta[0][4] = (KPP_REAL)(-3.083333333333333333333333333333333); - rkTheta[1][4] = (KPP_REAL)(-4.291666666666666666666666666666667); - rkTheta[2][4] = (KPP_REAL)34.37500000000000000000000000000000; - rkTheta[3][4] = (KPP_REAL)(-28.3333333333333333333333333333); - -/* Starting value for Newton iterations: Z_i^0 = Sum_j {rkAlpha_ij*Z_j} */ - rkAlpha[0][1] = (KPP_REAL)3.0; - rkAlpha[0][2] = (KPP_REAL)0.8800000000000000000000000000000000; - rkAlpha[1][2] = (KPP_REAL)0.4400000000000000000000000000000000; - rkAlpha[0][3] = (KPP_REAL)0.1666666666666666666666666666666667; - rkAlpha[1][3] = (KPP_REAL)(-0.8333333333333333333333333333333333e-01); - rkAlpha[2][3] = (KPP_REAL)0.9469696969696969696969696969696970; - rkAlpha[0][4] = (KPP_REAL)(-6.0); - rkAlpha[1][4] = (KPP_REAL)9.0; - rkAlpha[2][4] = (KPP_REAL)(-56.81818181818181818181818181818182); - rkAlpha[3][4] = (KPP_REAL)54.0; - -} /* end Sdirk4b */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void Sdirk2a() { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - sdMethod = S2A; - -/* ~~~> Number of stages */ - rkS = 2; - -/* ~~~> Method coefficients */ - rkGamma = (KPP_REAL)0.2928932188134524755991556378951510; - rkA[0][0] = (KPP_REAL)0.2928932188134524755991556378951510; - rkA[0][1] = (KPP_REAL)0.7071067811865475244008443621048490; - rkA[1][1] = (KPP_REAL)0.2928932188134524755991556378951510; - rkB[0] = (KPP_REAL)0.7071067811865475244008443621048490; - rkB[1] = (KPP_REAL)0.2928932188134524755991556378951510; - rkBhat[0] = (KPP_REAL)0.6666666666666666666666666666666667; - rkBhat[1] = (KPP_REAL)0.3333333333333333333333333333333333; - rkC[0] = (KPP_REAL)0.292893218813452475599155637895151; - rkC[1] = ONE; - -/* ~~~> Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} */ - rkD[0] = ZERO; - rkD[1] = ONE; - -/* ~~~> Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} */ - rkE[0] = (KPP_REAL)0.4714045207910316829338962414032326; - rkE[1] = (KPP_REAL)(-0.1380711874576983496005629080698993); - -/* ~~~> Local order of Err estimate */ - rkELO = 2; - -/* ~~~> h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} */ - rkTheta[0][1] = (KPP_REAL)2.414213562373095048801688724209698; - -/* ~~~> Starting value for Newton iterations */ - rkAlpha[0][1] = (KPP_REAL)3.414213562373095048801688724209698; - -} /* end Sdirk2a */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void Sdirk2b() { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - sdMethod = S2B; - -/* ~~~> Number of stages */ - rkS = 2; - -/* ~~~> Method coefficients */ - rkGamma = (KPP_REAL)1.707106781186547524400844362104849; - rkA[0][0] = (KPP_REAL)1.707106781186547524400844362104849; - rkA[0][1] = (KPP_REAL)(-0.707106781186547524400844362104849); - rkA[1][1] = (KPP_REAL)1.707106781186547524400844362104849; - rkB[0] = (KPP_REAL)(-0.707106781186547524400844362104849); - rkB[1] = (KPP_REAL)1.707106781186547524400844362104849; - rkBhat[0] = (KPP_REAL)0.6666666666666666666666666666666667; - rkBhat[1] = (KPP_REAL)0.3333333333333333333333333333333333; - rkC[0] = (KPP_REAL)1.707106781186547524400844362104849; - rkC[1] = ONE; - -/* ~~~> Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} */ - rkD[0] = ZERO; - rkD[1] = ONE; - -/* ~~~> Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} */ - rkE[0] = (KPP_REAL)(-0.4714045207910316829338962414032326); - rkE[1] = (KPP_REAL)0.8047378541243650162672295747365659; - -/* ~~~> Local order of Err estimate */ - rkELO = 2; - -/* ~~~> h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} */ - rkTheta[0][1] = (KPP_REAL)(-0.414213562373095048801688724209698); - -/* ~~~> Starting value for Newton iterations */ - rkAlpha[0][1] = (KPP_REAL)0.5857864376269049511983112757903019; - -} /* end Sdirk2b */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void Sdirk3a() { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - sdMethod = S3A; - -/* ~~~> Number of stages */ - rkS = 3; - -/* ~~~> Method coefficients */ - rkGamma = (KPP_REAL)0.2113248654051871177454256097490213; - rkA[0][0] = (KPP_REAL)0.2113248654051871177454256097490213; - rkA[0][1] = (KPP_REAL)0.2113248654051871177454256097490213; - rkA[1][1] = (KPP_REAL)0.2113248654051871177454256097490213; - rkA[0][2] = (KPP_REAL)0.2113248654051871177454256097490213; - rkA[1][2] = (KPP_REAL)0.5773502691896257645091487805019573; - rkA[2][2] = (KPP_REAL)0.2113248654051871177454256097490213; - rkB[0] = (KPP_REAL)0.2113248654051871177454256097490213; - rkB[1] = (KPP_REAL)0.5773502691896257645091487805019573; - rkB[2] = (KPP_REAL)0.2113248654051871177454256097490213; - rkBhat[0]= (KPP_REAL)0.2113248654051871177454256097490213; - rkBhat[1]= (KPP_REAL)0.6477918909913548037576239837516312; - rkBhat[2]= (KPP_REAL)0.1408832436034580784969504064993475; - rkC[0] = (KPP_REAL)0.2113248654051871177454256097490213; - rkC[1] = (KPP_REAL)0.4226497308103742354908512194980427; - rkC[2] = ONE; - -/* ~~~> Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} */ - rkD[0] = ZERO; - rkD[1] = ZERO; - rkD[2] = ONE; - -/* ~~~> Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} */ - rkE[0] = (KPP_REAL)0.9106836025229590978424821138352906; - rkE[1] = (KPP_REAL)(-1.244016935856292431175815447168624); - rkE[2] = (KPP_REAL)0.3333333333333333333333333333333333; - -/* ~~~> Local order of Err estimate */ - rkELO = 2; - -/* ~~~> h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} */ - rkTheta[0][1] = ONE; - rkTheta[0][2] = (KPP_REAL)(-1.732050807568877293527446341505872); - rkTheta[1][2] = (KPP_REAL)2.732050807568877293527446341505872; - -/* ~~~> Starting value for Newton iterations */ - rkAlpha[0][1] = (KPP_REAL)2.0; - rkAlpha[0][2] = (KPP_REAL)(-12.92820323027550917410978536602349); - rkAlpha[1][2] = (KPP_REAL)8.83012701892219323381861585376468; - -} /* end Sdirk3a */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void FUN_CHEM(KPP_REAL T, KPP_REAL Y[], KPP_REAL P[]) -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -{ - - KPP_REAL Told; - - Told = TIME; - TIME = T; - Update_SUN(); - Update_RCONST(); - Fun( Y, FIX, RCONST, P ); - TIME = Told; - -} /* end FUN_CHEM */ - -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ -void JAC_CHEM(KPP_REAL T, KPP_REAL Y[], KPP_REAL JV[]) { -/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/ - - KPP_REAL Told; - -#ifdef FULL_ALGEBRA - KPP_REAL JS[LU_NONZERO]; - int i,j; -#endif - - Told = TIME; - TIME = T; - Update_SUN(); - Update_RCONST(); - -#ifdef FULL_ALGEBRA - Jac_SP( Y, FIX, RCONST, JS); - - for(j=0; j Statistics on the work performed by the SDIRK method - INTEGER, PARAMETER :: Nfun=1, Njac=2, Nstp=3, Nacc=4, & - Nrej=5, Ndec=6, Nsol=7, Nsng=8, & - Ntexit=1, Nhexit=2, Nhnew=3 - -CONTAINS - -SUBROUTINE INTEGRATE_ADJ( NADJ, Y, Lambda, TIN, TOUT, & - ATOL_adj, RTOL_adj, & - ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U, Ierr_U ) - - USE KPP_ROOT_Parameters - USE KPP_ROOT_Global - IMPLICIT NONE - -!~~~> Y - Concentrations - KPP_REAL :: Y(NVAR) -!~~~> NADJ - No. of cost functionals for which adjoints -! are evaluated simultaneously -! If single cost functional is considered (like in -! most applications) simply set NADJ = 1 - INTEGER :: NADJ -!~~~> Lambda - Sensitivities w.r.t. concentrations -! Note: Lambda (1:NVAR,j) contains sensitivities of -! the j-th cost functional w.r.t. Y(1:NVAR), j=1...NADJ - KPP_REAL :: Lambda(NVAR,NADJ) -!~~~> Tolerances for adjoint calculations -! (used for full continuous adjoint, and for controlling -! iterations when used to solve the discrete adjoint) - KPP_REAL, INTENT(IN) :: ATOL_adj(NVAR,NADJ), RTOL_adj(NVAR,NADJ) - KPP_REAL, INTENT(IN) :: TIN ! Start Time - KPP_REAL, INTENT(IN) :: TOUT ! End Time - ! Optional input parameters and statistics - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - KPP_REAL, INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - KPP_REAL, INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: Ierr_U - - INTEGER, SAVE :: Ntotal = 0 - KPP_REAL :: RCNTRL(20), RSTATUS(20), T1, T2 - INTEGER :: ICNTRL(20), ISTATUS(20), Ierr - - ICNTRL(:) = 0 - RCNTRL(:) = 0.0_dp - ISTATUS(:) = 0 - RSTATUS(:) = 0.0_dp - - !~~~> fine-tune the integrator: - ICNTRL(5) = 8 ! Max no. of Newton iterations - ICNTRL(7) = 1 ! Adjoint solution by: 0=Newton, 1=direct - ICNTRL(8) = 1 ! Save fwd LU factorization: 0 = do *not* save, 1 = save - - ! If optional parameters are given, and if they are >0, - ! then they overwrite default settings. - IF (PRESENT(ICNTRL_U)) THEN - WHERE(ICNTRL_U(:) > 0) ICNTRL(:) = ICNTRL_U(:) - END IF - IF (PRESENT(RCNTRL_U)) THEN - WHERE(RCNTRL_U(:) > 0) RCNTRL(:) = RCNTRL_U(:) - END IF - - - T1 = TIN; T2 = TOUT - CALL SDIRKADJ( NVAR, NADJ, T1, T2, Y, Lambda, & - RTOL, ATOL, ATOL_adj, RTOL_adj, & - RCNTRL, ICNTRL, RSTATUS, ISTATUS, Ierr ) - - !~~~> Debug option: number of steps - ! Ntotal = Ntotal + ISTATUS(Nstp) - ! WRITE(6,777) ISTATUS(Nstp),Ntotal,VAR(ind_O3),VAR(ind_NO2) - ! 777 FORMAT('NSTEPS=',I5,' (',I5,') O3=',E24.14,' NO2=',E24.14) - - IF (Ierr < 0) THEN - PRINT *,'SDIRK: Unsuccessful exit at T=',TIN,' (Ierr=',Ierr,')' - ENDIF - - ! if optional parameters are given for output they to return information - IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(:) - IF (PRESENT(RSTATUS_U)) RSTATUS_U(:) = RSTATUS(:) - IF (PRESENT(Ierr_U)) Ierr_U = Ierr - - END SUBROUTINE INTEGRATE_ADJ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRKADJ(N, NADJ, Tinitial, Tfinal, Y, Lambda, & - RelTol, AbsTol, RelTol_adj, AbsTol_adj, & - RCNTRL, ICNTRL, RSTATUS, ISTATUS, Ierr) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Solves the system y'=F(t,y) using a Singly-Diagonally-Implicit -! Runge-Kutta (SDIRK) method. -! -! This implementation is based on the book and the code Sdirk4: -! -! E. Hairer and G. Wanner -! "Solving ODEs II. Stiff and differential-algebraic problems". -! Springer series in computational mathematics, Springer-Verlag, 1996. -! This code is based on the SDIRK4 routine in the above book. -! -! Methods: -! * Sdirk 2a, 2b: L-stable, 2 stages, order 2 -! * Sdirk 3a: L-stable, 3 stages, order 2, adjoint-invariant -! * Sdirk 4a, 4b: L-stable, 5 stages, order 4 -! -! (C) Adrian Sandu, July 2005 -! Virginia Polytechnic Institute and State University -! Contact: sandu@cs.vt.edu -! Revised by Philipp Miehe and Adrian Sandu, May 2006 -! This implementation is part of KPP - the Kinetic PreProcessor -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT ARGUMENTS: -! -!- Y(NVAR) = vector of initial conditions (at T=Tinitial) -!- [Tinitial,Tfinal] = time range of integration -! (if Tinitial>Tfinal the integration is performed backwards in time) -!- RelTol, AbsTol = user precribed accuracy -!- SUBROUTINE ode_Fun( T, Y, Ydot ) = ODE function, -! returns Ydot = Y' = F(T,Y) -!- SUBROUTINE ode_Fun( T, Y, Ydot ) = Jacobian of the ODE function, -! returns Jcb = dF/dY -!- ICNTRL(1:20) = integer inputs parameters -!- RCNTRL(1:20) = real inputs parameters -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT ARGUMENTS: -! -!- Y(NVAR) -> vector of final states (at T->Tfinal) -!- ISTATUS(1:20) -> integer output parameters -!- RSTATUS(1:20) -> real output parameters -!- Ierr -> job status upon return -! success (positive value) or -! failure (negative value) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT PARAMETERS: -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -!~~~> -! ICNTRL(1) = not used -! -! ICNTRL(2) = 0: AbsTol, RelTol are NVAR-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ICNTRL(3) = Method -! -! ICNTRL(4) -> maximum number of integration steps -! For ICNTRL(4)=0 the default value of 1500 is used -! Note: use a conservative estimate, since the checkpoint -! buffers are allocated to hold Max_no_steps -! -! ICNTRL(5) -> maximum number of Newton iterations -! For ICNTRL(5)=0 the default value of 8 is used -! -! ICNTRL(6) -> starting values of Newton iterations: -! ICNTRL(6)=0 : starting values are interpolated (the default) -! ICNTRL(6)=1 : starting values are zero -! -! ICNTRL(7) -> method to solve ADJ equations: -! ICNTRL(7)=0 : modified Newton re-using LU (the default) -! ICNTRL(7)=1 : direct solution (additional one LU factorization per stage) -! -! ICNTRL(8) -> checkpointing the LU factorization at each step: -! ICNTRL(8)=0 : do *not* save LU factorization (the default) -! ICNTRL(8)=1 : save LU factorization -! Note: if ICNTRL(7)=1 the LU factorization is *not* saved -! -!~~~> Real parameters -! -! RCNTRL(1) -> Hmin, lower bound for the integration step size -! It is strongly recommended to keep Hmin = ZERO -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! RCNTRL(3) -> Hstart, starting value for the integration step size -! -! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! RCNTRL(5) -> FacMax, upper bound on step increase factor (default=6) -! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -! RCNTRL(8) -> ThetaMin. If Newton convergence rate smaller -! than ThetaMin the Jacobian is not recomputed; -! (default=0.001) -! RCNTRL(9) -> NewtonTol, stopping criterion for Newton's method -! (default=0.03) -! RCNTRL(10) -> Qmin -! RCNTRL(11) -> Qmax. If Qmin < Hnew/Hold < Qmax, then the -! step size is kept constant and the LU factorization -! reused (default Qmin=1, Qmax=1.2) -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT PARAMETERS: -! -! Note: each call to Rosenbrock adds the current no. of fcn calls -! to previous value of ISTATUS(1), and similar for the other params. -! Set ISTATUS(1:10) = 0 before call to avoid this accumulation. -! -! ISTATUS(1) = No. of function calls -! ISTATUS(2) = No. of jacobian calls -! ISTATUS(3) = No. of steps -! ISTATUS(4) = No. of accepted steps -! ISTATUS(5) = No. of rejected steps (except at the beginning) -! ISTATUS(6) = No. of LU decompositions -! ISTATUS(7) = No. of forward/backward substitutions -! ISTATUS(8) = No. of singular matrix decompositions -! -! RSTATUS(1) -> Texit, the time corresponding to the -! computed Y upon return -! RSTATUS(2) -> Hexit,last accepted step before return -! RSTATUS(3) -> Hnew, last predicted step before return -! For multiple restarts, use Hnew as Hstart in the following run -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -! Arguments - INTEGER, INTENT(IN) :: N, NADJ, ICNTRL(20) - KPP_REAL, INTENT(INOUT) :: Y(NVAR), Lambda(NVAR,NADJ) - KPP_REAL, INTENT(IN) :: Tinitial, Tfinal, & - RelTol(NVAR), AbsTol(NVAR), RCNTRL(20), & - RelTol_adj(NVAR,NADJ), AbsTol_adj(NVAR,NADJ) - INTEGER, INTENT(OUT) :: Ierr - INTEGER, INTENT(INOUT) :: ISTATUS(20) - KPP_REAL, INTENT(OUT) :: RSTATUS(20) - -!~~~> SDIRK method coefficients, up to 5 stages - INTEGER, PARAMETER :: Smax = 5 - INTEGER, PARAMETER :: S2A=1, S2B=2, S3A=3, S4A=4, S4B=5 - KPP_REAL :: rkGamma, rkA(Smax,Smax), rkB(Smax), rkC(Smax), & - rkD(Smax), rkE(Smax), rkBhat(Smax), rkELO, & - rkAlpha(Smax,Smax), rkTheta(Smax,Smax) - INTEGER :: sdMethod, rkS ! The number of stages - -!~~~> Checkpoints in memory buffers - INTEGER :: stack_ptr = 0 ! last written entry in checkpoint - KPP_REAL, DIMENSION(:), POINTER :: chk_H, chk_T - KPP_REAL, DIMENSION(:,:), POINTER :: chk_Y - KPP_REAL, DIMENSION(:,:,:), POINTER :: chk_Z - INTEGER, DIMENSION(:,:), POINTER :: chk_P -#ifdef FULL_ALGEBRA - KPP_REAL, DIMENSION(:,:,:), POINTER :: chk_J -#else - KPP_REAL, DIMENSION(:,:), POINTER :: chk_J -#endif -! Local variables - KPP_REAL :: Hmin, Hmax, Hstart, Roundoff, & - FacMin, Facmax, FacSafe, FacRej, & - ThetaMin, NewtonTol, Qmin, Qmax - LOGICAL :: SaveLU, DirectADJ - INTEGER :: ITOL, NewtonMaxit, Max_no_steps, i - KPP_REAL, PARAMETER :: ZERO = 0.0d0, ONE = 1.0d0 - KPP_REAL, PARAMETER :: DeltaMin = 1.0d-5 - - -!~~~> Initialize statistics - ISTATUS(1:20) = 0 - RSTATUS(1:20) = ZERO - Ierr = 0 - -!~~~> For Scalar tolerances (ICNTRL(2).NE.0) the code uses AbsTol(1) and RelTol(1) -! For Vector tolerances (ICNTRL(2) == 0) the code uses AbsTol(1:NVAR) and RelTol(1:NVAR) - IF (ICNTRL(2) == 0) THEN - ITOL = 1 - ELSE - ITOL = 0 - END IF - -!~~~> ICNTRL(3) - method selection - SELECT CASE (ICNTRL(3)) - CASE (0,1) - CALL Sdirk2a - CASE (2) - CALL Sdirk2b - CASE (3) - CALL Sdirk3a - CASE (4) - CALL Sdirk4a - CASE (5) - CALL Sdirk4b - CASE DEFAULT - CALL Sdirk2a - END SELECT - -!~~~> The maximum number of time steps admitted - IF (ICNTRL(4) == 0) THEN - Max_no_steps = 200000 - ELSEIF (ICNTRL(4) > 0) THEN - Max_no_steps = ICNTRL(4) - ELSE - PRINT * ,'User-selected ICNTRL(4)=',ICNTRL(4) - CALL SDIRK_ErrorMsg(-1,Tinitial,ZERO,Ierr) - END IF - -!~~~> The maximum number of Newton iterations admitted - IF(ICNTRL(5) == 0)THEN - NewtonMaxit=8 - ELSE - NewtonMaxit=ICNTRL(5) - IF(NewtonMaxit <= 0)THEN - PRINT * ,'User-selected ICNTRL(5)=',ICNTRL(5) - CALL SDIRK_ErrorMsg(-2,Tinitial,ZERO,Ierr) - END IF - END IF - -!~~~> Solve ADJ equations directly or by Newton iterations - DirectADJ = (ICNTRL(7) == 1) - -!~~~> Save or not the forward LU factorization - SaveLU = (ICNTRL(8) /= 0) .AND. (.NOT.DirectADJ) - -!~~~> Unit roundoff (1+Roundoff>1) - Roundoff = WLAMCH('E') - -!~~~> Lower bound on the step size: (positive value) - IF (RCNTRL(1) == ZERO) THEN - Hmin = ZERO - ELSEIF (RCNTRL(1) > ZERO) THEN - Hmin = RCNTRL(1) - ELSE - PRINT * , 'User-selected RCNTRL(1)=', RCNTRL(1) - CALL SDIRK_ErrorMsg(-3,Tinitial,ZERO,Ierr) - END IF - -!~~~> Upper bound on the step size: (positive value) - IF (RCNTRL(2) == ZERO) THEN - Hmax = ABS(Tfinal-Tinitial) - ELSEIF (RCNTRL(2) > ZERO) THEN - Hmax = MIN(ABS(RCNTRL(2)),ABS(Tfinal-Tinitial)) - ELSE - PRINT * , 'User-selected RCNTRL(2)=', RCNTRL(2) - CALL SDIRK_ErrorMsg(-3,Tinitial,ZERO,Ierr) - END IF - -!~~~> Starting step size: (positive value) - IF (RCNTRL(3) == ZERO) THEN - Hstart = MAX(Hmin,Roundoff) - ELSEIF (RCNTRL(3) > ZERO) THEN - Hstart = MIN(ABS(RCNTRL(3)),ABS(Tfinal-Tinitial)) - ELSE - PRINT * , 'User-selected Hstart: RCNTRL(3)=', RCNTRL(3) - CALL SDIRK_ErrorMsg(-3,Tinitial,ZERO,Ierr) - END IF - -!~~~> Step size can be changed s.t. FacMin < Hnew/Hexit < FacMax - IF (RCNTRL(4) == ZERO) THEN - FacMin = 0.2_dp - ELSEIF (RCNTRL(4) > ZERO) THEN - FacMin = RCNTRL(4) - ELSE - PRINT * , 'User-selected FacMin: RCNTRL(4)=', RCNTRL(4) - CALL SDIRK_ErrorMsg(-4,Tinitial,ZERO,Ierr) - END IF - IF (RCNTRL(5) == ZERO) THEN - FacMax = 10.0_dp - ELSEIF (RCNTRL(5) > ZERO) THEN - FacMax = RCNTRL(5) - ELSE - PRINT * , 'User-selected FacMax: RCNTRL(5)=', RCNTRL(5) - CALL SDIRK_ErrorMsg(-4,Tinitial,ZERO,Ierr) - END IF -!~~~> FacRej: Factor to decrease step after 2 succesive rejections - IF (RCNTRL(6) == ZERO) THEN - FacRej = 0.1_dp - ELSEIF (RCNTRL(6) > ZERO) THEN - FacRej = RCNTRL(6) - ELSE - PRINT * , 'User-selected FacRej: RCNTRL(6)=', RCNTRL(6) - CALL SDIRK_ErrorMsg(-4,Tinitial,ZERO,Ierr) - END IF -!~~~> FacSafe: Safety Factor in the computation of new step size - IF (RCNTRL(7) == ZERO) THEN - FacSafe = 0.9_dp - ELSEIF (RCNTRL(7) > ZERO) THEN - FacSafe = RCNTRL(7) - ELSE - PRINT * , 'User-selected FacSafe: RCNTRL(7)=', RCNTRL(7) - CALL SDIRK_ErrorMsg(-4,Tinitial,ZERO,Ierr) - END IF - -!~~~> ThetaMin: decides whether the Jacobian should be recomputed - IF(RCNTRL(8) == 0.D0)THEN - ThetaMin = 1.0d-3 - ELSE - ThetaMin = RCNTRL(8) - END IF - -!~~~> Stopping criterion for Newton's method - IF(RCNTRL(9) == ZERO)THEN - NewtonTol = 3.0d-2 - ELSE - NewtonTol = RCNTRL(9) - END IF - -!~~~> Qmin, Qmax: IF Qmin < Hnew/Hold < Qmax, STEP SIZE = CONST. - IF(RCNTRL(10) == ZERO)THEN - Qmin=ONE - ELSE - Qmin=RCNTRL(10) - END IF - IF(RCNTRL(11) == ZERO)THEN - Qmax=1.2D0 - ELSE - Qmax=RCNTRL(11) - END IF - -!~~~> Check if tolerances are reasonable - IF (ITOL == 0) THEN - IF (AbsTol(1) <= ZERO .OR. RelTol(1) <= 10.D0*Roundoff) THEN - PRINT * , ' Scalar AbsTol = ',AbsTol(1) - PRINT * , ' Scalar RelTol = ',RelTol(1) - CALL SDIRK_ErrorMsg(-5,Tinitial,ZERO,Ierr) - END IF - ELSE - DO i=1,N - IF (AbsTol(i) <= 0.D0.OR.RelTol(i) <= 10.D0*Roundoff) THEN - PRINT * , ' AbsTol(',i,') = ',AbsTol(i) - PRINT * , ' RelTol(',i,') = ',RelTol(i) - CALL SDIRK_ErrorMsg(-5,Tinitial,ZERO,Ierr) - END IF - END DO - END IF - - IF (Ierr < 0) RETURN - -!~~~> Allocate memory buffers - CALL SDIRK_AllocBuffers - -!~~~> Call forward integration - CALL SDIRK_FwdInt( N, Tinitial, Tfinal, Y, Ierr ) - -!~~~> Call adjoint integration - CALL SDIRK_DadjInt( N, NADJ, Lambda, Ierr ) - -!~~~> Free memory buffers - CALL SDIRK_FreeBuffers - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - CONTAINS ! Procedures internal to SDIRKADJ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_FwdInt( N,Tinitial,Tfinal,Y,Ierr ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters - IMPLICIT NONE - -!~~~> Arguments: - INTEGER :: N - KPP_REAL, INTENT(INOUT) :: Y(NVAR) - KPP_REAL, INTENT(IN) :: Tinitial, Tfinal - INTEGER, INTENT(OUT) :: Ierr - -!~~~> Local variables: - KPP_REAL :: Z(NVAR,Smax), G(NVAR), TMP(NVAR), & - NewtonRate, SCAL(NVAR), RHS(NVAR), & - T, H, Theta, Hratio, NewtonPredictedErr, & - Qnewton, Err, Fac, Hnew,Tdirection, & - NewtonIncrement, NewtonIncrementOld - INTEGER :: j, IER, istage, NewtonIter, IP(NVAR) - LOGICAL :: Reject, FirstStep, SkipJac, SkipLU, NewtonDone - -#ifdef FULL_ALGEBRA - KPP_REAL, DIMENSION(NVAR,NVAR) :: FJAC, E -#else - KPP_REAL, DIMENSION(LU_NONZERO):: FJAC, E -#endif - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Initializations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - T = Tinitial - Tdirection = SIGN(ONE,Tfinal-Tinitial) - H = MAX(ABS(Hmin),ABS(Hstart)) - IF (ABS(H) <= 10.D0*Roundoff) H=1.0D-6 - H=MIN(ABS(H),Hmax) - H=SIGN(H,Tdirection) - SkipLU =.FALSE. - SkipJac = .FALSE. - Reject=.FALSE. - FirstStep=.TRUE. - - CALL SDIRK_ErrorScale(ITOL, AbsTol, RelTol, Y, SCAL) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Time loop begins -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -Tloop: DO WHILE ( (Tfinal-T)*Tdirection - Roundoff > ZERO ) - - -!~~~> Compute E = 1/(h*gamma)-Jac and its LU decomposition - IF ( .NOT.SkipLU ) THEN ! This time around skip the Jac update and LU - CALL SDIRK_PrepareMatrix ( H, T, Y, FJAC, & - SkipJac, SkipLU, E, IP, Reject, IER ) - IF (IER /= 0) THEN - CALL SDIRK_ErrorMsg(-8,T,H,Ierr); RETURN - END IF - END IF - - IF (ISTATUS(Nstp) > Max_no_steps) THEN - CALL SDIRK_ErrorMsg(-6,T,H,Ierr); RETURN - END IF - IF ( (T+0.1d0*H == T) .OR. (ABS(H) <= Roundoff) ) THEN - CALL SDIRK_ErrorMsg(-7,T,H,Ierr); RETURN - END IF - -stages:DO istage = 1, rkS - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Simplified Newton iterations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~> Starting values for Newton iterations - CALL Set2zero(N,Z(1,istage)) - -!~~~> Prepare the loop-independent part of the right-hand side - CALL Set2zero(N,G) - IF (istage > 1) THEN - DO j = 1, istage-1 - ! Gj(:) = sum_j Theta(i,j)*Zj(:) = H * sum_j A(i,j)*Fun(Zj(:)) - CALL WAXPY(N,rkTheta(istage,j),Z(1,j),1,G,1) - ! Zi(:) = sum_j Alpha(i,j)*Zj(:) - CALL WAXPY(N,rkAlpha(istage,j),Z(1,j),1,Z(1,istage),1) - END DO - END IF - - !~~~> Initializations for Newton iteration - NewtonDone = .FALSE. - Fac = 0.5d0 ! Step reduction factor if too many iterations - -NewtonLoop:DO NewtonIter = 1, NewtonMaxit - -!~~~> Prepare the loop-dependent part of the right-hand side - CALL WADD(N,Y,Z(1,istage),TMP) ! TMP <- Y + Zi - CALL FUN_CHEM(T+rkC(istage)*H,TMP,RHS) ! RHS <- Fun(Y+Zi) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 -! RHS(1:N) = G(1:N) - Z(1:N,istage) + (H*rkGamma)*RHS(1:N) - CALL WSCAL(N, H*rkGamma, RHS, 1) - CALL WAXPY (N, -ONE, Z(1,istage), 1, RHS, 1) - CALL WAXPY (N, ONE, G,1, RHS,1) - -!~~~> Solve the linear system - CALL SDIRK_Solve ( 'N', H, N, E, IP, IER, RHS ) - -!~~~> Check convergence of Newton iterations - CALL SDIRK_ErrorNorm(N, RHS, SCAL, NewtonIncrement) - IF ( NewtonIter == 1 ) THEN - Theta = ABS(ThetaMin) - NewtonRate = 2.0d0 - ELSE - Theta = NewtonIncrement/NewtonIncrementOld - IF (Theta < 0.99d0) THEN - NewtonRate = Theta/(ONE-Theta) - ! Predict error at the end of Newton process - NewtonPredictedErr = NewtonIncrement & - *Theta**(NewtonMaxit-NewtonIter)/(ONE-Theta) - IF (NewtonPredictedErr >= NewtonTol) THEN - ! Non-convergence of Newton: predicted error too large - Qnewton = MIN(10.0d0,NewtonPredictedErr/NewtonTol) - Fac = 0.8d0*Qnewton**(-ONE/(1+NewtonMaxit-NewtonIter)) - EXIT NewtonLoop - END IF - ELSE ! Non-convergence of Newton: Theta too large - EXIT NewtonLoop - END IF - END IF - NewtonIncrementOld = NewtonIncrement - ! Update solution: Z(:) <-- Z(:)+RHS(:) - CALL WAXPY(N,ONE,RHS,1,Z(1,istage),1) - - ! Check error in Newton iterations - NewtonDone = (NewtonRate*NewtonIncrement <= NewtonTol) - IF (NewtonDone) EXIT NewtonLoop - - END DO NewtonLoop - - IF (.NOT.NewtonDone) THEN - !CALL RK_ErrorMsg(-12,T,H,Ierr); - H = Fac*H; Reject=.TRUE. - SkipJac = .TRUE.; SkipLU = .FALSE. - CYCLE Tloop - END IF - -!~~~> End of implified Newton iterations - - - END DO stages - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Error estimation -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ISTATUS(Nstp) = ISTATUS(Nstp) + 1 - CALL Set2zero(N,TMP) - DO i = 1,rkS - IF (rkE(i)/=ZERO) CALL WAXPY(N,rkE(i),Z(1,i),1,TMP,1) - END DO - - CALL SDIRK_Solve( 'N', H, N, E, IP, IER, TMP ) - CALL SDIRK_ErrorNorm(N, TMP, SCAL, Err) - -!~~~> Computation of new step size Hnew - Fac = FacSafe*(Err)**(-ONE/rkELO) - Fac = MAX(FacMin,MIN(FacMax,Fac)) - Hnew = H*Fac - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Accept/Reject step -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -accept: IF ( Err < ONE ) THEN !~~~> Step is accepted - - FirstStep=.FALSE. - ISTATUS(Nacc) = ISTATUS(Nacc) + 1 - -!~~~> Checkpoint solution - CALL SDIRK_Push( T, H, Y, Z, E, IP ) - -!~~~> Update time and solution - T = T + H - ! Y(:) <-- Y(:) + Sum_j rkD(j)*Z_j(:) - DO i = 1,rkS - IF (rkD(i)/=ZERO) CALL WAXPY(N,rkD(i),Z(1,i),1,Y,1) - END DO - -!~~~> Update scaling coefficients - CALL SDIRK_ErrorScale(ITOL, AbsTol, RelTol, Y, SCAL) - -!~~~> Next time step - Hnew = Tdirection*MIN(ABS(Hnew),Hmax) - ! Last T and H - RSTATUS(Ntexit) = T - RSTATUS(Nhexit) = H - RSTATUS(Nhnew) = Hnew - ! No step increase after a rejection - IF (Reject) Hnew = Tdirection*MIN(ABS(Hnew),ABS(H)) - Reject = .FALSE. - IF ((T+Hnew/Qmin-Tfinal)*Tdirection > ZERO) THEN - H = Tfinal-T - ELSE - Hratio=Hnew/H - ! If step not changed too much keep Jacobian and reuse LU - SkipLU = ( (Theta <= ThetaMin) .AND. (Hratio >= Qmin) & - .AND. (Hratio <= Qmax) ) - IF (.NOT.SkipLU) H = Hnew - END IF - ! If convergence is fast enough, do not update Jacobian -! SkipJac = (Theta <= ThetaMin) - SkipJac = .FALSE. - - ELSE accept !~~~> Step is rejected - - IF (FirstStep .OR. Reject) THEN - H = FacRej*H - ELSE - H = Hnew - END IF - Reject = .TRUE. - SkipJac = .TRUE. - SkipLU = .FALSE. - IF (ISTATUS(Nacc) >= 1) ISTATUS(Nrej) = ISTATUS(Nrej) + 1 - - END IF accept - - END DO Tloop - - ! Successful return - Ierr = 1 - - END SUBROUTINE SDIRK_FwdInt - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_DadjInt( N, NADJ, Lambda, Ierr ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters - IMPLICIT NONE - -!~~~> Arguments: - INTEGER, INTENT(IN) :: N, NADJ - KPP_REAL, INTENT(INOUT) :: Lambda(NVAR,NADJ) - INTEGER, INTENT(OUT) :: Ierr - -!~~~> Local variables: - KPP_REAL :: Y(NVAR) - KPP_REAL :: Z(NVAR,Smax), U(NVAR,NADJ,Smax), & - TMP(NVAR), G(NVAR), & - NewtonRate, SCAL(NVAR), DU(NVAR), & - T, H, Theta, NewtonPredictedErr, & - NewtonIncrement, NewtonIncrementOld - INTEGER :: j, IER, istage, iadj, NewtonIter, & - IP(NVAR), IP_adj(NVAR) - LOGICAL :: Reject, SkipJac, SkipLU, NewtonDone - -#ifdef FULL_ALGEBRA - KPP_REAL, DIMENSION(NVAR,NVAR) :: E, Jac, E_adj -#else - KPP_REAL, DIMENSION(LU_NONZERO):: E, Jac, E_adj -#endif - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Time loop begins -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -Tloop: DO WHILE ( stack_ptr > 0 ) - - !~~~> Recover checkpoints for stage values and vectors - CALL SDIRK_Pop( T, H, Y, Z, E, IP ) - -!~~~> Compute E = 1/(h*gamma)-Jac and its LU decomposition - IF (.NOT.SaveLU) THEN - SkipJac = .FALSE.; SkipLU = .FALSE. - CALL SDIRK_PrepareMatrix ( H, T, Y, Jac, & - SkipJac, SkipLU, E, IP, Reject, IER ) - IF (IER /= 0) THEN - CALL SDIRK_ErrorMsg(-8,T,H,Ierr); RETURN - END IF - END IF - -stages:DO istage = rkS, 1, -1 - -!~~~> Jacobian of the current stage solution - TMP(1:N) = Y(1:N) + Z(1:N,istage) - CALL JAC_CHEM(T+rkC(istage)*H,TMP,Jac) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - - IF (DirectADJ) THEN -#ifdef FULL_ALGEBRA - E_adj(1:N,1:N) = -Jac(1:N,1:N) - DO j=1,N - E_adj(j,j) = E_adj(j,j) + ONE/(H*rkGamma) - END DO - CALL DGETRF( N, N, E_adj, N, IP_adj, IER ) -#else - E_adj(1:LU_NONZERO) = -Jac(1:LU_NONZERO) - DO i = 1,NVAR - j = LU_DIAG(i); E_adj(j) = E_adj(j) + ONE/(H*rkGamma) - END DO - CALL KppDecomp ( E_adj, IER) -#endif - ISTATUS(Ndec) = ISTATUS(Ndec) + 1 - IF (IER /= 0) THEN - PRINT*,'At stage ',istage,' the matrix used in adjoint', & - ' computation is singular' - CALL SDIRK_ErrorMsg(-8,T,H,Ierr); RETURN - END IF - END IF - -adj: DO iadj = 1, NADJ - -!~~~> Update scaling coefficients - CALL SDIRK_ErrorScale(ITOL, AbsTol_adj(1:NVAR,iadj), & - RelTol_adj(1:NVAR,iadj), Lambda(1:NVAR,iadj), SCAL) - -!~~~> Prepare the loop-independent part of the right-hand side -! G(:) = H*Jac^T*( B(i)*Lambda + sum_j A(j,i)*Uj(:) ) - G(1:N) = rkB(istage)*Lambda(1:N,iadj) - IF (istage < rkS) THEN - DO j = istage+1, rkS - CALL WAXPY(N,rkA(j,istage),U(1,iadj,j),1,G,1) - END DO - END IF -#ifdef FULL_ALGEBRA - TMP = MATMUL(TRANSPOSE(Jac),G) ! DZ <- Jac(Y+Z)*Y_tlm -#else - CALL JacTR_SP_Vec ( Jac, G, TMP ) -#endif - G(1:N) = H*TMP(1:N) - -DirADJ:IF (DirectADJ) THEN - - CALL SDIRK_Solve ( 'T', H, N, E_adj, IP_adj, IER, G ) - U(1:N,iadj,istage) = G(1:N) - - ELSE DirADJ - - !~~~> Initializations for Newton iteration - CALL Set2zero(N,U(1,iadj,istage)) - NewtonDone = .FALSE. - -NewtonLoop:DO NewtonIter = 1, NewtonMaxit - -!~~~> Prepare the loop-dependent part of the right-hand side -#ifdef FULL_ALGEBRA - TMP = MATMUL(TRANSPOSE(Jac),U(1:N,iadj,istage)) -#else - CALL JacTR_SP_Vec ( Jac, U(1:N,iadj,istage), TMP ) -#endif - DU(1:N) = U(1:N,iadj,istage) - (H*rkGamma)*TMP(1:N) - G(1:N) - -!~~~> Solve the linear system - CALL SDIRK_Solve ( 'T', H, N, E, IP, IER, DU ) - -!~~~> Check convergence of Newton iterations - - CALL SDIRK_ErrorNorm(N, DU, SCAL, NewtonIncrement) - IF ( NewtonIter == 1 ) THEN - Theta = ABS(ThetaMin) - NewtonRate = 2.0d0 - ELSE - Theta = NewtonIncrement/NewtonIncrementOld - IF (Theta < 0.99d0) THEN - NewtonRate = Theta/(ONE-Theta) - ! Predict error at the end of Newton process - NewtonPredictedErr = NewtonIncrement & - *Theta**(NewtonMaxit-NewtonIter)/(ONE-Theta) - ! Non-convergence of Newton: predicted error too large - IF (NewtonPredictedErr >= NewtonTol) EXIT NewtonLoop - ELSE ! Non-convergence of Newton: Theta too large - EXIT NewtonLoop - END IF - END IF - NewtonIncrementOld = NewtonIncrement - ! Update solution - U(1:N,iadj,istage) = U(1:N,iadj,istage) - DU(1:N) - - ! Check error in Newton iterations - NewtonDone = (NewtonRate*NewtonIncrement <= NewtonTol) - ! AbsTol is often inappropriate for adjoints - - ! we do at least 4 Newton iterations to ensure convergence - ! of all adjoint components - IF ((NewtonIter>=4) .AND. NewtonDone) EXIT NewtonLoop - - END DO NewtonLoop - - !~~~> If Newton iterations fail employ the direct solution - IF (.NOT.NewtonDone) THEN - PRINT*,'Problems with Newton Adjoint!!!' -#ifdef FULL_ALGEBRA - E_adj(1:N,1:N) = -Jac(1:N,1:N) - DO j=1,N - E_adj(j,j) = E_adj(j,j) + ONE/(H*rkGamma) - END DO - CALL DGETRF( N, N, E_adj, N, IP_adj, IER ) -#else - E_adj(1:LU_NONZERO) = -Jac(1:LU_NONZERO) - DO i = 1,NVAR - j = LU_DIAG(i); E_adj(j) = E_adj(j) + ONE/(H*rkGamma) - END DO - CALL KppDecomp ( E_adj, IER) -#endif - ISTATUS(Ndec) = ISTATUS(Ndec) + 1 - IF (IER /= 0) THEN - PRINT*,'At stage ',istage,' the matrix used in adjoint', & - ' computation is singular' - CALL SDIRK_ErrorMsg(-8,T,H,Ierr); RETURN - END IF - CALL SDIRK_Solve ( 'T', H, N, E_adj, IP_adj, IER, G ) - U(1:N,iadj,istage) = G(1:N) - - END IF - -!~~~> End of simplified Newton iterations - - END IF DirADJ - - END DO adj - - END DO stages - -!~~~> Update adjoint solution - ! Y(:) <-- Y(:) + Sum_j rkD(j)*Z_j(:) - DO istage = 1,rkS - DO iadj = 1,NADJ - Lambda(1:N,iadj) = Lambda(1:N,iadj) + U(1:N,iadj,istage) - !CALL WAXPY(N,ONE,U(1:N,iadj,istage),1,Lambda(1,iadj),1) - END DO - END DO - - END DO Tloop - - ! Successful return - Ierr = 1 - - END SUBROUTINE SDIRK_DadjInt - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_AllocBuffers -!~~~> Allocate buffer space for checkpointing -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - INTEGER :: i - - ALLOCATE( chk_H(Max_no_steps), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer H'; STOP - END IF - ALLOCATE( chk_T(Max_no_steps), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer T'; STOP - END IF - ALLOCATE( chk_Y(NVAR,Max_no_steps), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer Y'; STOP - END IF - ALLOCATE( chk_Z(NVAR,rkS,Max_no_steps), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer K'; STOP - END IF - IF (SaveLU) THEN -#ifdef FULL_ALGEBRA - ALLOCATE( chk_J(NVAR,NVAR,Max_no_steps), STAT=i ) -#else - ALLOCATE( chk_J(LU_NONZERO,Max_no_steps), STAT=i ) -#endif - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer J'; STOP - END IF - ALLOCATE( chk_P(NVAR,Max_no_steps), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer P'; STOP - END IF - END IF - - END SUBROUTINE SDIRK_AllocBuffers - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_FreeBuffers -!~~~> Dallocate buffer space for discrete adjoint -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - INTEGER :: i - - DEALLOCATE( chk_H, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer H'; STOP - END IF - DEALLOCATE( chk_T, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer T'; STOP - END IF - DEALLOCATE( chk_Y, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer Y'; STOP - END IF - DEALLOCATE( chk_Z, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer K'; STOP - END IF - IF (SaveLU) THEN - DEALLOCATE( chk_J, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer J'; STOP - END IF - DEALLOCATE( chk_P, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer P'; STOP - END IF - END IF - - END SUBROUTINE SDIRK_FreeBuffers - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_Push( T, H, Y, Z, E, P ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Saves the next trajectory snapshot for discrete adjoints -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - KPP_REAL :: T, H, Y(NVAR), Z(NVAR,Smax) - INTEGER :: P(NVAR) -#ifdef FULL_ALGEBRA - KPP_REAL :: E(NVAR,NVAR) -#else - KPP_REAL :: E(LU_NONZERO) -#endif - - stack_ptr = stack_ptr + 1 - IF ( stack_ptr > Max_no_steps ) THEN - PRINT*,'Push failed: buffer overflow' - STOP - END IF - chk_H( stack_ptr ) = H - chk_T( stack_ptr ) = T - chk_Y(1:NVAR,stack_ptr) = Y(1:NVAR) - chk_Z(1:NVAR,1:rkS,stack_ptr) = Z(1:NVAR,1:rkS) - IF (SaveLU) THEN -#ifdef FULL_ALGEBRA - chk_J(1:NVAR,1:NVAR,stack_ptr) = E(1:NVAR,1:NVAR) - chk_P(1:NVAR,stack_ptr) = P(1:NVAR) -#else - chk_J(1:LU_NONZERO,stack_ptr) = E(1:LU_NONZERO) -#endif - END IF - - END SUBROUTINE SDIRK_Push - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_Pop( T, H, Y, Z, E, P ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Retrieves the next trajectory snapshot for discrete adjoints -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - KPP_REAL :: T, H, Y(NVAR), Z(NVAR,Smax) - INTEGER :: P(NVAR) -#ifdef FULL_ALGEBRA - KPP_REAL :: E(NVAR,NVAR) -#else - KPP_REAL :: E(LU_NONZERO) -#endif - - IF ( stack_ptr <= 0 ) THEN - PRINT*,'Pop failed: empty buffer' - STOP - END IF - H = chk_H( stack_ptr ) - T = chk_T( stack_ptr ) - Y(1:NVAR) = chk_Y(1:NVAR,stack_ptr) - Z(1:NVAR,1:rkS) = chk_Z(1:NVAR,1:rkS,stack_ptr) - IF (SaveLU) THEN -#ifdef FULL_ALGEBRA - E(1:NVAR,1:NVAR) = chk_J(1:NVAR,1:NVAR,stack_ptr) - P(1:NVAR) = chk_P(1:NVAR,stack_ptr) -#else - E(1:LU_NONZERO) = chk_J(1:LU_NONZERO,stack_ptr) -#endif - END IF - - stack_ptr = stack_ptr - 1 - - END SUBROUTINE SDIRK_Pop - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_ErrorScale(ITOL, AbsTol, RelTol, Y, SCAL) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - INTEGER :: i, ITOL - KPP_REAL :: AbsTol(NVAR), RelTol(NVAR), & - Y(NVAR), SCAL(NVAR) - IF (ITOL == 0) THEN - DO i=1,NVAR - SCAL(i) = ONE / ( AbsTol(1)+RelTol(1)*ABS(Y(i)) ) - END DO - ELSE - DO i=1,NVAR - SCAL(i) = ONE / ( AbsTol(i)+RelTol(i)*ABS(Y(i)) ) - END DO - END IF - END SUBROUTINE SDIRK_ErrorScale - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_ErrorNorm(N, Y, SCAL, Err) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! - INTEGER :: i, N - KPP_REAL :: Y(N), SCAL(N), Err - Err = ZERO - DO i=1,N - Err = Err+(Y(i)*SCAL(i))**2 - END DO - Err = MAX( SQRT(Err/DBLE(N)), 1.0d-10 ) -! - END SUBROUTINE SDIRK_ErrorNorm - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE SDIRK_ErrorMsg(Code,T,H,Ierr) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - KPP_REAL, INTENT(IN) :: T, H - INTEGER, INTENT(IN) :: Code - INTEGER, INTENT(OUT) :: Ierr - - Ierr = Code - PRINT * , & - 'Forced exit from SDIRK due to the following error:' - - SELECT CASE (Code) - CASE (-1) - PRINT * , '--> Improper value for maximal no of steps' - CASE (-2) - PRINT * , '--> Improper value for maximal no of Newton iterations' - CASE (-3) - PRINT * , '--> Hmin/Hmax/Hstart must be positive' - CASE (-4) - PRINT * , '--> FacMin/FacMax/FacRej must be positive' - CASE (-5) - PRINT * , '--> Improper tolerance values' - CASE (-6) - PRINT * , '--> No of steps exceeds maximum bound', max_no_steps - CASE (-7) - PRINT * , '--> Step size too small: T + 10*H = T', & - ' or H < Roundoff' - CASE (-8) - PRINT * , '--> Matrix is repeatedly singular' - CASE DEFAULT - PRINT *, 'Unknown Error code: ', Code - END SELECT - - PRINT *, "T=", T, "and H=", H - - END SUBROUTINE SDIRK_ErrorMsg - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_PrepareMatrix ( H, T, Y, FJAC, & - SkipJac, SkipLU, E, IP, Reject, ISING ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Compute the matrix E = 1/(H*GAMMA)*Jac, and its decomposition -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - KPP_REAL, INTENT(INOUT) :: H - KPP_REAL, INTENT(IN) :: T, Y(NVAR) - LOGICAL, INTENT(INOUT) :: SkipJac,SkipLU,Reject - INTEGER, INTENT(OUT) :: ISING, IP(NVAR) -#ifdef FULL_ALGEBRA - KPP_REAL, INTENT(INOUT) :: FJAC(NVAR,NVAR) - KPP_REAL, INTENT(OUT) :: E(NVAR,NVAR) -#else - KPP_REAL, INTENT(INOUT) :: FJAC(LU_NONZERO) - KPP_REAL, INTENT(OUT) :: E(LU_NONZERO) -#endif - KPP_REAL :: HGammaInv - INTEGER :: i, j, ConsecutiveSng - - ConsecutiveSng = 0 - ISING = 1 - -Hloop: DO WHILE (ISING /= 0) - - HGammaInv = ONE/(H*rkGamma) - -!~~~> Compute the Jacobian -! IF (SkipJac) THEN -! SkipJac = .FALSE. -! ELSE - IF (.NOT. SkipJac) THEN - CALL JAC_CHEM( T, Y, FJAC ) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - END IF - -#ifdef FULL_ALGEBRA - DO j=1,NVAR - DO i=1,NVAR - E(i,j) = -FJAC(i,j) - END DO - E(j,j) = E(j,j)+HGammaInv - END DO - CALL DGETRF( NVAR, NVAR, E, NVAR, IP, ISING ) -#else - DO i = 1,LU_NONZERO - E(i) = -FJAC(i) - END DO - DO i = 1,NVAR - j = LU_DIAG(i); E(j) = E(j) + HGammaInv - END DO - CALL KppDecomp ( E, ISING) - IP(1) = 1 -#endif - ISTATUS(Ndec) = ISTATUS(Ndec) + 1 - - IF (ISING /= 0) THEN - WRITE (6,*) ' MATRIX IS SINGULAR, ISING=',ISING,' T=',T,' H=',H - ISTATUS(Nsng) = ISTATUS(Nsng) + 1; ConsecutiveSng = ConsecutiveSng + 1 - IF (ConsecutiveSng >= 6) RETURN ! Failure - H = 0.5d0*H - SkipJac = .FALSE. - SkipLU = .FALSE. - Reject = .TRUE. - END IF - - END DO Hloop - - END SUBROUTINE SDIRK_PrepareMatrix - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_Solve ( Transp, H, N, E, IP, ISING, RHS ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Solves the system (H*Gamma-Jac)*x = R -! using the LU decomposition of E = I - 1/(H*Gamma)*Jac -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - INTEGER, INTENT(IN) :: N, IP(N), ISING - CHARACTER, INTENT(IN) :: Transp - KPP_REAL, INTENT(IN) :: H -#ifdef FULL_ALGEBRA - KPP_REAL, INTENT(IN) :: E(NVAR,NVAR) -#else - KPP_REAL, INTENT(IN) :: E(LU_NONZERO) -#endif - KPP_REAL, INTENT(INOUT) :: RHS(N) - KPP_REAL :: HGammaInv - - HGammaInv = ONE/(H*rkGamma) - CALL WSCAL(N,HGammaInv,RHS,1) - SELECT CASE (TRANSP) - CASE ('N') -#ifdef FULL_ALGEBRA - CALL DGETRS( 'N', N, 1, E, N, IP, RHS, N, ISING ) -#else - CALL KppSolve(E, RHS) -#endif - CASE ('T') -#ifdef FULL_ALGEBRA - CALL DGETRS( 'T', N, 1, E, N, IP, RHS, N, ISING ) -#else - CALL KppSolveTR(E, RHS, RHS) -#endif - CASE DEFAULT - PRINT*,'Error in SDIRK_Solve. Unknown Transp argument:',Transp - STOP - END SELECT - ISTATUS(Nsol) = ISTATUS(Nsol) + 1 - - END SUBROUTINE SDIRK_Solve - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Sdirk4a -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - sdMethod = S4A -! Number of stages - rkS = 5 - -! Method coefficients - rkGamma = .2666666666666666666666666666666667d0 - - rkA(1,1) = .2666666666666666666666666666666667d0 - rkA(2,1) = .5000000000000000000000000000000000d0 - rkA(2,2) = .2666666666666666666666666666666667d0 - rkA(3,1) = .3541539528432732316227461858529820d0 - rkA(3,2) = -.5415395284327323162274618585298197d-1 - rkA(3,3) = .2666666666666666666666666666666667d0 - rkA(4,1) = .8515494131138652076337791881433756d-1 - rkA(4,2) = -.6484332287891555171683963466229754d-1 - rkA(4,3) = .7915325296404206392428857585141242d-1 - rkA(4,4) = .2666666666666666666666666666666667d0 - rkA(5,1) = 2.100115700566932777970612055999074d0 - rkA(5,2) = -.7677800284445976813343102185062276d0 - rkA(5,3) = 2.399816361080026398094746205273880d0 - rkA(5,4) = -2.998818699869028161397714709433394d0 - rkA(5,5) = .2666666666666666666666666666666667d0 - - rkB(1) = 2.100115700566932777970612055999074d0 - rkB(2) = -.7677800284445976813343102185062276d0 - rkB(3) = 2.399816361080026398094746205273880d0 - rkB(4) = -2.998818699869028161397714709433394d0 - rkB(5) = .2666666666666666666666666666666667d0 - - rkBhat(1)= 2.885264204387193942183851612883390d0 - rkBhat(2)= -.1458793482962771337341223443218041d0 - rkBhat(3)= 2.390008682465139866479830743628554d0 - rkBhat(4)= -4.129393538556056674929560012190140d0 - rkBhat(5)= 0.d0 - - rkC(1) = .2666666666666666666666666666666667d0 - rkC(2) = .7666666666666666666666666666666667d0 - rkC(3) = .5666666666666666666666666666666667d0 - rkC(4) = .3661315380631796996374935266701191d0 - rkC(5) = 1.d0 - -! Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} - rkD(1) = 0.d0 - rkD(2) = 0.d0 - rkD(3) = 0.d0 - rkD(4) = 0.d0 - rkD(5) = 1.d0 - -! Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} - rkE(1) = -.6804000050475287124787034884002302d0 - rkE(2) = 1.558961944525217193393931795738823d0 - rkE(3) = -13.55893003128907927748632408763868d0 - rkE(4) = 15.48522576958521253098585004571302d0 - rkE(5) = 1.d0 - -! Local order of Err estimate - rkElo = 4 - -! h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} - rkTheta(2,1) = 1.875000000000000000000000000000000d0 - rkTheta(3,1) = 1.708847304091539528432732316227462d0 - rkTheta(3,2) = -.2030773231622746185852981969486824d0 - rkTheta(4,1) = .2680325578937783958847157206823118d0 - rkTheta(4,2) = -.1828840955527181631794050728644549d0 - rkTheta(4,3) = .2968246986151577397160821594427966d0 - rkTheta(5,1) = .9096171815241460655379433581446771d0 - rkTheta(5,2) = -3.108254967778352416114774430509465d0 - rkTheta(5,3) = 12.33727431701306195581826123274001d0 - rkTheta(5,4) = -11.24557012450885560524143016037523d0 - -! Starting value for Newton iterations: Z_i^0 = Sum_j {rkAlpha_ij*Z_j} - rkAlpha(2,1) = 2.875000000000000000000000000000000d0 - rkAlpha(3,1) = .8500000000000000000000000000000000d0 - rkAlpha(3,2) = .4434782608695652173913043478260870d0 - rkAlpha(4,1) = .7352046091658870564637910527807370d0 - rkAlpha(4,2) = -.9525565003057343527941920657462074d-1 - rkAlpha(4,3) = .4290111305453813852259481840631738d0 - rkAlpha(5,1) = -16.10898993405067684831655675112808d0 - rkAlpha(5,2) = 6.559571569643355712998131800797873d0 - rkAlpha(5,3) = -15.90772144271326504260996815012482d0 - rkAlpha(5,4) = 25.34908987169226073668861694892683d0 - -!~~~> Coefficients for continuous solution -! rkD(1,1)= 24.74416644927758d0 -! rkD(1,2)= -4.325375951824688d0 -! rkD(1,3)= 41.39683763286316d0 -! rkD(1,4)= -61.04144619901784d0 -! rkD(1,5)= -3.391332232917013d0 -! rkD(2,1)= -51.98245719616925d0 -! rkD(2,2)= 10.52501981094525d0 -! rkD(2,3)= -154.2067922191855d0 -! rkD(2,4)= 214.3082125319825d0 -! rkD(2,5)= 14.71166018088679d0 -! rkD(3,1)= 33.14347947522142d0 -! rkD(3,2)= -19.72986789558523d0 -! rkD(3,3)= 230.4878502285804d0 -! rkD(3,4)= -287.6629744338197d0 -! rkD(3,5)= -18.99932366302254d0 -! rkD(4,1)= -5.905188728329743d0 -! rkD(4,2)= 13.53022403646467d0 -! rkD(4,3)= -117.6778956422581d0 -! rkD(4,4)= 134.3962081008550d0 -! rkD(4,5)= 8.678995715052762d0 -! -! DO i=1,4 ! CONTi <-- Sum_j rkD(i,j)*Zj -! CALL Set2zero(N,CONT(1,i)) -! DO j = 1,rkS -! CALL WAXPY(N,rkD(i,j),Z(1,j),1,CONT(1,i),1) -! END DO -! END DO - - rkELO = 4.0d0 - - END SUBROUTINE Sdirk4a - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Sdirk4b -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - sdMethod = S4B -! Number of stages - rkS = 5 - -! Method coefficients - rkGamma = .25d0 - - rkA(1,1) = 0.25d0 - rkA(2,1) = 0.5d00 - rkA(2,2) = 0.25d0 - rkA(3,1) = 0.34d0 - rkA(3,2) =-0.40d-1 - rkA(3,3) = 0.25d0 - rkA(4,1) = 0.2727941176470588235294117647058824d0 - rkA(4,2) =-0.5036764705882352941176470588235294d-1 - rkA(4,3) = 0.2757352941176470588235294117647059d-1 - rkA(4,4) = 0.25d0 - rkA(5,1) = 1.041666666666666666666666666666667d0 - rkA(5,2) =-1.020833333333333333333333333333333d0 - rkA(5,3) = 7.812500000000000000000000000000000d0 - rkA(5,4) =-7.083333333333333333333333333333333d0 - rkA(5,5) = 0.25d0 - - rkB(1) = 1.041666666666666666666666666666667d0 - rkB(2) = -1.020833333333333333333333333333333d0 - rkB(3) = 7.812500000000000000000000000000000d0 - rkB(4) = -7.083333333333333333333333333333333d0 - rkB(5) = 0.250000000000000000000000000000000d0 - - rkBhat(1)= 1.069791666666666666666666666666667d0 - rkBhat(2)= -0.894270833333333333333333333333333d0 - rkBhat(3)= 7.695312500000000000000000000000000d0 - rkBhat(4)= -7.083333333333333333333333333333333d0 - rkBhat(5)= 0.212500000000000000000000000000000d0 - - rkC(1) = 0.25d0 - rkC(2) = 0.75d0 - rkC(3) = 0.55d0 - rkC(4) = 0.50d0 - rkC(5) = 1.00d0 - -! Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} - rkD(1) = 0.0d0 - rkD(2) = 0.0d0 - rkD(3) = 0.0d0 - rkD(4) = 0.0d0 - rkD(5) = 1.0d0 - -! Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} - rkE(1) = 0.5750d0 - rkE(2) = 0.2125d0 - rkE(3) = -4.6875d0 - rkE(4) = 4.2500d0 - rkE(5) = 0.1500d0 - -! Local order of Err estimate - rkElo = 4 - -! h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} - rkTheta(2,1) = 2.d0 - rkTheta(3,1) = 1.680000000000000000000000000000000d0 - rkTheta(3,2) = -.1600000000000000000000000000000000d0 - rkTheta(4,1) = 1.308823529411764705882352941176471d0 - rkTheta(4,2) = -.1838235294117647058823529411764706d0 - rkTheta(4,3) = 0.1102941176470588235294117647058824d0 - rkTheta(5,1) = -3.083333333333333333333333333333333d0 - rkTheta(5,2) = -4.291666666666666666666666666666667d0 - rkTheta(5,3) = 34.37500000000000000000000000000000d0 - rkTheta(5,4) = -28.33333333333333333333333333333333d0 - -! Starting value for Newton iterations: Z_i^0 = Sum_j {rkAlpha_ij*Z_j} - rkAlpha(2,1) = 3. - rkAlpha(3,1) = .8800000000000000000000000000000000d0 - rkAlpha(3,2) = .4400000000000000000000000000000000d0 - rkAlpha(4,1) = .1666666666666666666666666666666667d0 - rkAlpha(4,2) = -.8333333333333333333333333333333333d-1 - rkAlpha(4,3) = .9469696969696969696969696969696970d0 - rkAlpha(5,1) = -6.d0 - rkAlpha(5,2) = 9.d0 - rkAlpha(5,3) = -56.81818181818181818181818181818182d0 - rkAlpha(5,4) = 54.d0 - - END SUBROUTINE Sdirk4b - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Sdirk2a -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - sdMethod = S2A -! Number of stages - rkS = 2 - -! Method coefficients - rkGamma = .2928932188134524755991556378951510d0 - - rkA(1,1) = .2928932188134524755991556378951510d0 - rkA(2,1) = .7071067811865475244008443621048490d0 - rkA(2,2) = .2928932188134524755991556378951510d0 - - rkB(1) = .7071067811865475244008443621048490d0 - rkB(2) = .2928932188134524755991556378951510d0 - - rkBhat(1)= .6666666666666666666666666666666667d0 - rkBhat(2)= .3333333333333333333333333333333333d0 - - rkC(1) = 0.292893218813452475599155637895151d0 - rkC(2) = 1.0d0 - -! Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} - rkD(1) = 0.0d0 - rkD(2) = 1.0d0 - -! Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} - rkE(1) = 0.4714045207910316829338962414032326d0 - rkE(2) = -0.1380711874576983496005629080698993d0 - -! Local order of Err estimate - rkElo = 2 - -! h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} - rkTheta(2,1) = 2.414213562373095048801688724209698d0 - -! Starting value for Newton iterations: Z_i^0 = Sum_j {rkAlpha_ij*Z_j} - rkAlpha(2,1) = 3.414213562373095048801688724209698d0 - - END SUBROUTINE Sdirk2a - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Sdirk2b -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - sdMethod = S2B -! Number of stages - rkS = 2 - -! Method coefficients - rkGamma = 1.707106781186547524400844362104849d0 - - rkA(1,1) = 1.707106781186547524400844362104849d0 - rkA(2,1) = -.707106781186547524400844362104849d0 - rkA(2,2) = 1.707106781186547524400844362104849d0 - - rkB(1) = -.707106781186547524400844362104849d0 - rkB(2) = 1.707106781186547524400844362104849d0 - - rkBhat(1)= .6666666666666666666666666666666667d0 - rkBhat(2)= .3333333333333333333333333333333333d0 - - rkC(1) = 1.707106781186547524400844362104849d0 - rkC(2) = 1.0d0 - -! Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} - rkD(1) = 0.0d0 - rkD(2) = 1.0d0 - -! Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} - rkE(1) = -.4714045207910316829338962414032326d0 - rkE(2) = .8047378541243650162672295747365659d0 - -! Local order of Err estimate - rkElo = 2 - -! h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} - rkTheta(2,1) = -.414213562373095048801688724209698d0 - -! Starting value for Newton iterations: Z_i^0 = Sum_j {rkAlpha_ij*Z_j} - rkAlpha(2,1) = .5857864376269049511983112757903019d0 - - END SUBROUTINE Sdirk2b - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Sdirk3a -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - sdMethod = S3A -! Number of stages - rkS = 3 - -! Method coefficients - rkGamma = .2113248654051871177454256097490213d0 - - rkA(1,1) = .2113248654051871177454256097490213d0 - rkA(2,1) = .2113248654051871177454256097490213d0 - rkA(2,2) = .2113248654051871177454256097490213d0 - rkA(3,1) = .2113248654051871177454256097490213d0 - rkA(3,2) = .5773502691896257645091487805019573d0 - rkA(3,3) = .2113248654051871177454256097490213d0 - - rkB(1) = .2113248654051871177454256097490213d0 - rkB(2) = .5773502691896257645091487805019573d0 - rkB(3) = .2113248654051871177454256097490213d0 - - rkBhat(1)= .2113248654051871177454256097490213d0 - rkBhat(2)= .6477918909913548037576239837516312d0 - rkBhat(3)= .1408832436034580784969504064993475d0 - - rkC(1) = .2113248654051871177454256097490213d0 - rkC(2) = .4226497308103742354908512194980427d0 - rkC(3) = 1.d0 - -! Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} - rkD(1) = 0.d0 - rkD(2) = 0.d0 - rkD(3) = 1.d0 - -! Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} - rkE(1) = 0.9106836025229590978424821138352906d0 - rkE(2) = -1.244016935856292431175815447168624d0 - rkE(3) = 0.3333333333333333333333333333333333d0 - -! Local order of Err estimate - rkElo = 2 - -! h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} - rkTheta(2,1) = 1.0d0 - rkTheta(3,1) = -1.732050807568877293527446341505872d0 - rkTheta(3,2) = 2.732050807568877293527446341505872d0 - -! Starting value for Newton iterations: Z_i^0 = Sum_j {rkAlpha_ij*Z_j} - rkAlpha(2,1) = 2.0d0 - rkAlpha(3,1) = -12.92820323027550917410978536602349d0 - rkAlpha(3,2) = 8.83012701892219323381861585376468d0 - - END SUBROUTINE Sdirk3a - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - END SUBROUTINE SDIRKADJ ! AND ALL ITS INTERNAL PROCEDURES -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE FUN_CHEM( T, Y, P ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters, ONLY: NVAR - USE KPP_ROOT_Global, ONLY: TIME, FIX, RCONST - USE KPP_ROOT_Function, ONLY: Fun - USE KPP_ROOT_Rates, ONLY: Update_SUN, Update_RCONST, Update_PHOTO - - KPP_REAL :: T, Told - KPP_REAL :: Y(NVAR), P(NVAR) - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - - CALL Fun( Y, FIX, RCONST, P ) - - TIME = Told - - END SUBROUTINE FUN_CHEM - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE JAC_CHEM( T, Y, JV ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters, ONLY: NVAR, LU_NONZERO - USE KPP_ROOT_Global, ONLY: TIME, FIX, RCONST - USE KPP_ROOT_Jacobian, ONLY: Jac_SP,LU_IROW,LU_ICOL - USE KPP_ROOT_Rates, ONLY: Update_SUN, Update_RCONST, Update_PHOTO - - KPP_REAL :: T, Told - KPP_REAL :: Y(NVAR) -#ifdef FULL_ALGEBRA - KPP_REAL :: JS(LU_NONZERO), JV(NVAR,NVAR) - INTEGER :: i, j -#else - KPP_REAL :: JV(LU_NONZERO) -#endif - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - -#ifdef FULL_ALGEBRA - CALL Jac_SP(Y, FIX, RCONST, JS) - DO j=1,NVAR - DO j=1,NVAR - JV(i,j) = 0.0d0 - END DO - END DO - DO i=1,LU_NONZERO - JV(LU_IROW(i),LU_ICOL(i)) = JS(i) - END DO -#else - CALL Jac_SP(Y, FIX, RCONST, JV) -#endif - TIME = Told - - END SUBROUTINE JAC_CHEM - -END MODULE KPP_ROOT_Integrator - - diff --git a/int.modified_WCOPY/sdirk_soa.def b/int.modified_WCOPY/sdirk_soa.def deleted file mode 100644 index 4d21fdb69463761ff7c3d408d2f5f6378f665708..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/sdirk_soa.def +++ /dev/null @@ -1,20 +0,0 @@ - -#FUNCTION AGGREGATE -#JACOBIAN SPARSE_LU_ROW - -#DOUBLE ON -#INTFILE sdirk_soa - -#INLINE F77_GLOBAL - REAL*8 STEPSTART - COMMON /GDATA/ STEPSTART -#ENDINLINE - -#INLINE F77_INIT - STEPMIN=0.0001 - STEPMAX=3600. - STEPSTART=STEPMIN -#ENDINLINE - - - diff --git a/int.modified_WCOPY/sdirk_soa.f90 b/int.modified_WCOPY/sdirk_soa.f90 deleted file mode 100644 index e49f2ddfa10d7344cf8ce9f68f919759a53ed7b4..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/sdirk_soa.f90 +++ /dev/null @@ -1,1758 +0,0 @@ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! -! Second Order Adjoint of SDIRK - Singly-Diagonally-Implicit Runge-Kutta ! -! * Sdirk 2a, 2b: L-stable, 2 stages, order 2 ! -! * Sdirk 3a: L-stable, 3 stages, order 2, adj-invariant ! -! * Sdirk 4a, 4b: L-stable, 5 stages, order 4 ! -! By default the code employs the KPP sparse linear algebra routines ! -! Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK) ! -! ! -! (C) Adrian Sandu, July 2007 ! -! Virginia Polytechnic Institute and State University ! -! Contact: sandu@cs.vt.edu ! -! This implementation is part of KPP - the Kinetic PreProcessor ! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! - -MODULE KPP_ROOT_Integrator - - USE KPP_ROOT_Precision - USE KPP_ROOT_Global, ONLY: FIX, RCONST, TIME - USE KPP_ROOT_Parameters, ONLY: NVAR, NSPEC, NFIX, LU_NONZERO, NHESS - USE KPP_ROOT_JacobianSP, ONLY: LU_DIAG - USE KPP_ROOT_Jacobian, ONLY: Jac_SP_Vec, JacTR_SP_Vec - USE KPP_ROOT_LinearAlgebra, ONLY: KppDecomp, KppSolve, & - KppSolveTR, Set2zero, WLAMCH, WCOPY, WAXPY, WSCAL, WADD - USE KPP_ROOT_Hessian - USE KPP_ROOT_Util - - IMPLICIT NONE - PUBLIC - SAVE - -!~~~> Statistics on the work performed by the SDIRK method - INTEGER, PARAMETER :: Nfun=1, Njac=2, Nstp=3, Nacc=4, & - Nrej=5, Ndec=6, Nsol=7, Nsng=8, & - Ntexit=1, Nhexit=2, Nhnew=3 - -CONTAINS - -SUBROUTINE INTEGRATE_SOA( NSOA, Y, Y_tlm, Lambda, Sigma, & - TIN, TOUT, ATOL_adj, RTOL_adj, & - ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U, Ierr_U ) - - USE KPP_ROOT_Parameters - USE KPP_ROOT_Global - IMPLICIT NONE - -!~~~> Y - Concentrations - KPP_REAL :: Y(NVAR) -!~~~> NSOA - No. of vectors U_j for which -! Hessian*U_j is computed - INTEGER :: NSOA -!~~~> Y_tlm - Forward sensitivities -! Initially Y_tlm(1:NVAR,j) = U_j - KPP_REAL :: Y_tlm(NVAR,NSOA) -!~~~> ADJ - No. of cost functionals (always 1) - INTEGER, PARAMETER :: NADJ = 1 -!~~~> Lambda - Sensitivities w.r.t. concentrations -! Note: Lambda (1:NVAR,j) contains sensitivities of -! the j-th cost functional w.r.t. Y(1:NVAR), j=1...NADJ - KPP_REAL :: Lambda(NVAR,NADJ) -!~~~> Sigma - Second order adjoint sensitivities -! Note: Sigma(1:NVAR,j) = Hessian*U_j - KPP_REAL :: Sigma(NVAR,NSOA) -!~~~> Tolerances for adjoint calculations -! (used for full continuous adjoint, and for controlling -! iterations when used to solve the discrete adjoint) - KPP_REAL, INTENT(IN) :: ATOL_adj(NVAR,NADJ), RTOL_adj(NVAR,NADJ) - KPP_REAL, INTENT(IN) :: TIN ! Start Time - KPP_REAL, INTENT(IN) :: TOUT ! End Time - ! Optional input parameters and statistics - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - KPP_REAL, INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - KPP_REAL, INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: Ierr_U - - INTEGER, SAVE :: Ntotal = 0 - KPP_REAL :: RCNTRL(20), RSTATUS(20), T1, T2 - INTEGER :: ICNTRL(20), ISTATUS(20), Ierr - - ICNTRL(:) = 0 - RCNTRL(:) = 0.0_dp - ISTATUS(:) = 0 - RSTATUS(:) = 0.0_dp - - !~~~> fine-tune the integrator: - ICNTRL(5) = 8 ! Max no. of Newton iterations - ICNTRL(7) = 1 ! Adjoint solution by: 0=Newton, 1=direct - ICNTRL(8) = 1 ! Save fwd LU factorization: 0 = do *not* save, 1 = save - - ! If optional parameters are given, and if they are >0, - ! then they overwrite default settings. - IF (PRESENT(ICNTRL_U)) THEN - WHERE(ICNTRL_U(:) > 0) ICNTRL(:) = ICNTRL_U(:) - END IF - IF (PRESENT(RCNTRL_U)) THEN - WHERE(RCNTRL_U(:) > 0) RCNTRL(:) = RCNTRL_U(:) - END IF - - - T1 = TIN; T2 = TOUT - CALL SDIRK_SOA(NVAR, NSOA, T1, T2, Y, Y_tlm, Lambda, Sigma, & - RTOL, ATOL, ATOL_adj, RTOL_adj, & - RCNTRL, ICNTRL, RSTATUS, ISTATUS, Ierr ) - - !~~~> Debug option: number of steps - ! Ntotal = Ntotal + ISTATUS(Nstp) - ! WRITE(6,777) ISTATUS(Nstp),Ntotal,VAR(ind_O3),VAR(ind_NO2) - ! 777 FORMAT('NSTEPS=',I5,' (',I5,') O3=',E24.14,' NO2=',E24.14) - - IF (Ierr < 0) THEN - PRINT *,'SDIRK: Unsuccessful exit at T=',TIN,' (Ierr=',Ierr,')' - ENDIF - - ! if optional parameters are given for output they to return information - IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(:) - IF (PRESENT(RSTATUS_U)) RSTATUS_U(:) = RSTATUS(:) - IF (PRESENT(Ierr_U)) Ierr_U = Ierr - - END SUBROUTINE INTEGRATE_SOA - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_SOA(N, NSOA, Tinitial, Tfinal, & - Y, Y_tlm, Lambda, Sigma, & - RelTol, AbsTol, RelTol_adj, AbsTol_adj, & - RCNTRL, ICNTRL, RSTATUS, ISTATUS, Ierr) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Solves the system y'=F(t,y) using a Singly-Diagonally-Implicit -! Runge-Kutta (SDIRK) method. -! -! This implementation is based on the book and the code Sdirk4: -! -! E. Hairer and G. Wanner -! "Solving ODEs II. Stiff and differential-algebraic problems". -! Springer series in computational mathematics, Springer-Verlag, 1996. -! This code is based on the SDIRK4 routine in the above book. -! -! Methods: -! * Sdirk 2a, 2b: L-stable, 2 stages, order 2 -! * Sdirk 3a: L-stable, 3 stages, order 2, adjoint-invariant -! * Sdirk 4a, 4b: L-stable, 5 stages, order 4 -! -! (C) Adrian Sandu, July 2005 -! Virginia Polytechnic Institute and State University -! Contact: sandu@cs.vt.edu -! Revised by Philipp Miehe and Adrian Sandu, May 2006 -! This implementation is part of KPP - the Kinetic PreProcessor -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT ARGUMENTS: -! -!- Y(NVAR) = vector of initial conditions (at T=Tinitial) -!- [Tinitial,Tfinal] = time range of integration -! (if Tinitial>Tfinal the integration is performed backwards in time) -!- RelTol, AbsTol = user precribed accuracy -!- SUBROUTINE ode_Fun( T, Y, Ydot ) = ODE function, -! returns Ydot = Y' = F(T,Y) -!- SUBROUTINE ode_Fun( T, Y, Ydot ) = Jacobian of the ODE function, -! returns Jcb = dF/dY -!- ICNTRL(1:20) = integer inputs parameters -!- RCNTRL(1:20) = real inputs parameters -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT ARGUMENTS: -! -!- Y(NVAR) -> vector of final states (at T->Tfinal) -!- ISTATUS(1:20) -> integer output parameters -!- RSTATUS(1:20) -> real output parameters -!- Ierr -> job status upon return -! success (positive value) or -! failure (negative value) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT PARAMETERS: -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -!~~~> -! ICNTRL(1) = not used -! -! ICNTRL(2) = 0: AbsTol, RelTol are NVAR-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ICNTRL(3) = Method -! -! ICNTRL(4) -> maximum number of integration steps -! For ICNTRL(4)=0 the default value of 100000 is used -! -! ICNTRL(5) -> maximum number of Newton iterations -! For ICNTRL(5)=0 the default value of 8 is used -! -! ICNTRL(6) -> starting values of Newton iterations: -! ICNTRL(6)=0 : starting values are interpolated (the default) -! ICNTRL(6)=1 : starting values are zero -! -! ICNTRL(7) -> method to solve TLM equations: -! ICNTRL(7)=0 : modified Newton re-using LU (the default) -! ICNTRL(7)=1 : direct solution (additional one LU factorization per stage) -! -! ICNTRL(9) -> switch for TLM Newton iteration error estimation strategy -! ICNTRL(9) = 0: base number of iterations as forward solution -! ICNTRL(9) = 1: use RTOL_tlm and ATOL_tlm to calculate -! error estimation for TLM at Newton stages -! -! ICNTRL(12) -> switch for TLM truncation error control -! ICNTRL(12) = 0: TLM error is not used -! ICNTRL(12) = 1: TLM error is computed and used -! -! -!~~~> Real parameters -! -! RCNTRL(1) -> Hmin, lower bound for the integration step size -! It is strongly recommended to keep Hmin = ZERO -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! RCNTRL(3) -> Hstart, starting value for the integration step size -! -! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! RCNTRL(5) -> FacMax, upper bound on step increase factor (default=6) -! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -! RCNTRL(8) -> ThetaMin. If Newton convergence rate smaller -! than ThetaMin the Jacobian is not recomputed; -! (default=0.001) -! RCNTRL(9) -> NewtonTol, stopping criterion for Newton's method -! (default=0.03) -! RCNTRL(10) -> Qmin -! RCNTRL(11) -> Qmax. If Qmin < Hnew/Hold < Qmax, then the -! step size is kept constant and the LU factorization -! reused (default Qmin=1, Qmax=1.2) -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT PARAMETERS: -! -! Note: each call to Rosenbrock adds the current no. of fcn calls -! to previous value of ISTATUS(1), and similar for the other params. -! Set ISTATUS(1:10) = 0 before call to avoid this accumulation. -! -! ISTATUS(1) = No. of function calls -! ISTATUS(2) = No. of jacobian calls -! ISTATUS(3) = No. of steps -! ISTATUS(4) = No. of accepted steps -! ISTATUS(5) = No. of rejected steps (except at the beginning) -! ISTATUS(6) = No. of LU decompositions -! ISTATUS(7) = No. of forward/backward substitutions -! ISTATUS(8) = No. of singular matrix decompositions -! -! RSTATUS(1) -> Texit, the time corresponding to the -! computed Y upon return -! RSTATUS(2) -> Hexit,last accepted step before return -! RSTATUS(3) -> Hnew, last predicted step before return -! For multiple restarts, use Hnew as Hstart in the following run -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - - -! Arguments - INTEGER, PARAMETER :: NADJ = 1 - INTEGER, INTENT(IN) :: N, NSOA - KPP_REAL, INTENT(INOUT) :: Y(NVAR), Y_tlm(NVAR,NSOA) - KPP_REAL, INTENT(INOUT) :: Lambda(NVAR,NADJ) - KPP_REAL, INTENT(INOUT) :: Sigma(NVAR,NSOA) - INTEGER, INTENT(IN) :: ICNTRL(20) - KPP_REAL, INTENT(IN) :: Tinitial, Tfinal, & - RelTol(N), AbsTol(N), RCNTRL(20), & - RelTol_adj(N,NSOA), AbsTol_adj(N,NSOA) - INTEGER, INTENT(OUT) :: Ierr - INTEGER, INTENT(INOUT) :: ISTATUS(20) - KPP_REAL, INTENT(OUT) :: RSTATUS(20) - -!~~~> SDIRK method coefficients, up to 5 stages - INTEGER, PARAMETER :: Smax = 5 - INTEGER, PARAMETER :: S2A=1, S2B=2, S3A=3, S4A=4, S4B=5 - KPP_REAL :: rkGamma, rkA(Smax,Smax), rkB(Smax), rkC(Smax), & - rkD(Smax), rkE(Smax), rkBhat(Smax), rkELO, & - rkAlpha(Smax,Smax), rkTheta(Smax,Smax) - INTEGER :: sdMethod, rkS ! The number of stages - -!~~~> Checkpoints in memory buffers - INTEGER :: stack_ptr = 0 ! last written entry in checkpoint - KPP_REAL, DIMENSION(:), POINTER :: chk_H, chk_T - KPP_REAL, DIMENSION(:,:), POINTER :: chk_Y - KPP_REAL, DIMENSION(:,:,:), POINTER :: chk_Z - KPP_REAL, DIMENSION(:,:,:), POINTER :: chk_Y_tlm - KPP_REAL, DIMENSION(:,:,:,:), POINTER :: chk_Z_tlm - INTEGER, DIMENSION(:,:), POINTER :: chk_P -#ifdef FULL_ALGEBRA - KPP_REAL, DIMENSION(:,:,:), POINTER :: chk_J -#else - KPP_REAL, DIMENSION(:,:), POINTER :: chk_J -#endif - -!~~~> Local variables - KPP_REAL :: Hmin, Hmax, Hstart, Roundoff, & - FacMin, Facmax, FacSafe, FacRej, & - ThetaMin, NewtonTol, Qmin, Qmax - LOGICAL :: SaveLU, DirectADJ - INTEGER :: ITOL, NewtonMaxit, Max_no_steps, i - LOGICAL :: StartNewton, DirectTLM, TLMNewtonEst, TLMtruncErr - KPP_REAL, PARAMETER :: ZERO = 0.0d0, ONE = 1.0d0 - - - Ierr = 0 - ISTATUS(1:20) = 0 - RSTATUS(1:20) = ZERO - -!~~~> For Scalar tolerances (ICNTRL(2).NE.0) the code uses AbsTol(1) and RelTol(1) -! For Vector tolerances (ICNTRL(2) == 0) the code uses AbsTol(1:NVAR) and RelTol(1:NVAR) - IF (ICNTRL(2) == 0) THEN - ITOL = 1 - ELSE - ITOL = 0 - END IF - -!~~~> ICNTRL(3) - method selection - SELECT CASE (ICNTRL(3)) - CASE (0,1) - CALL Sdirk2a - CASE (2) - CALL Sdirk2b - CASE (3) - CALL Sdirk3a - CASE (4) - CALL Sdirk4a - CASE (5) - CALL Sdirk4b - CASE DEFAULT - CALL Sdirk2a - END SELECT - -!~~~> The maximum number of time steps admitted - IF (ICNTRL(4) == 0) THEN - Max_no_steps = 200000 - ELSEIF (ICNTRL(4) > 0) THEN - Max_no_steps=ICNTRL(4) - ELSE - PRINT * ,'User-selected ICNTRL(4)=',ICNTRL(4) - CALL SDIRK_ErrorMsg(-1,Tinitial,ZERO,Ierr) - END IF - !~~~> The maximum number of Newton iterations admitted - IF(ICNTRL(5) == 0)THEN - NewtonMaxit=8 - ELSE - NewtonMaxit=ICNTRL(5) - IF(NewtonMaxit <= 0)THEN - PRINT * ,'User-selected ICNTRL(5)=',ICNTRL(5) - CALL SDIRK_ErrorMsg(-2,Tinitial,ZERO,Ierr) - END IF - END IF -!~~~> StartNewton: Use extrapolation for starting values of Newton iterations - IF (ICNTRL(6) == 0) THEN - StartNewton = .TRUE. - ELSE - StartNewton = .FALSE. - END IF - -!~~~> Solve ADJ equations directly or by Newton iterations - DirectADJ = (ICNTRL(7) == 1) - -!~~~> Save or not the forward LU factorization - SaveLU = (ICNTRL(8) /= 0) .AND. (.NOT.DirectADJ) - -!~~~> Newton iteration error control selection - IF (ICNTRL(9) == 0) THEN - TLMNewtonEst = .FALSE. - ELSE - TLMNewtonEst = .TRUE. - END IF -!~~~> TLM truncation error control selection - IF (ICNTRL(12) == 0) THEN - TLMtruncErr = .FALSE. - ELSE - TLMtruncErr = .TRUE. - END IF - -!~~~> Unit roundoff (1+Roundoff>1) - Roundoff = WLAMCH('E') - -!~~~> Lower bound on the step size: (positive value) - IF (RCNTRL(1) == ZERO) THEN - Hmin = ZERO - ELSEIF (RCNTRL(1) > ZERO) THEN - Hmin = RCNTRL(1) - ELSE - PRINT * , 'User-selected RCNTRL(1)=', RCNTRL(1) - CALL SDIRK_ErrorMsg(-3,Tinitial,ZERO,Ierr) - END IF - -!~~~> Upper bound on the step size: (positive value) - IF (RCNTRL(2) == ZERO) THEN - Hmax = ABS(Tfinal-Tinitial) - ELSEIF (RCNTRL(2) > ZERO) THEN - Hmax = MIN(ABS(RCNTRL(2)),ABS(Tfinal-Tinitial)) - ELSE - PRINT * , 'User-selected RCNTRL(2)=', RCNTRL(2) - CALL SDIRK_ErrorMsg(-3,Tinitial,ZERO,Ierr) - END IF - -!~~~> Starting step size: (positive value) - IF (RCNTRL(3) == ZERO) THEN - Hstart = MAX(Hmin,Roundoff) - ELSEIF (RCNTRL(3) > ZERO) THEN - Hstart = MIN(ABS(RCNTRL(3)),ABS(Tfinal-Tinitial)) - ELSE - PRINT * , 'User-selected Hstart: RCNTRL(3)=', RCNTRL(3) - CALL SDIRK_ErrorMsg(-3,Tinitial,ZERO,Ierr) - END IF - -!~~~> Step size can be changed s.t. FacMin < Hnew/Hexit < FacMax - IF (RCNTRL(4) == ZERO) THEN - FacMin = 0.2_dp - ELSEIF (RCNTRL(4) > ZERO) THEN - FacMin = RCNTRL(4) - ELSE - PRINT * , 'User-selected FacMin: RCNTRL(4)=', RCNTRL(4) - CALL SDIRK_ErrorMsg(-4,Tinitial,ZERO,Ierr) - END IF - IF (RCNTRL(5) == ZERO) THEN - FacMax = 10.0_dp - ELSEIF (RCNTRL(5) > ZERO) THEN - FacMax = RCNTRL(5) - ELSE - PRINT * , 'User-selected FacMax: RCNTRL(5)=', RCNTRL(5) - CALL SDIRK_ErrorMsg(-4,Tinitial,ZERO,Ierr) - END IF -!~~~> FacRej: Factor to decrease step after 2 succesive rejections - IF (RCNTRL(6) == ZERO) THEN - FacRej = 0.1_dp - ELSEIF (RCNTRL(6) > ZERO) THEN - FacRej = RCNTRL(6) - ELSE - PRINT * , 'User-selected FacRej: RCNTRL(6)=', RCNTRL(6) - CALL SDIRK_ErrorMsg(-4,Tinitial,ZERO,Ierr) - END IF -!~~~> FacSafe: Safety Factor in the computation of new step size - IF (RCNTRL(7) == ZERO) THEN - FacSafe = 0.9_dp - ELSEIF (RCNTRL(7) > ZERO) THEN - FacSafe = RCNTRL(7) - ELSE - PRINT * , 'User-selected FacSafe: RCNTRL(7)=', RCNTRL(7) - CALL SDIRK_ErrorMsg(-4,Tinitial,ZERO,Ierr) - END IF - -!~~~> ThetaMin: decides whether the Jacobian should be recomputed - IF(RCNTRL(8) == 0.D0)THEN - ThetaMin = 1.0d-3 - ELSE - ThetaMin = RCNTRL(8) - END IF - -!~~~> Stopping criterion for Newton's method - IF(RCNTRL(9) == ZERO)THEN - NewtonTol = 3.0d-2 - ELSE - NewtonTol = RCNTRL(9) - END IF - -!~~~> Qmin, Qmax: IF Qmin < Hnew/Hold < Qmax, STEP SIZE = CONST. - IF(RCNTRL(10) == ZERO)THEN - Qmin=ONE - ELSE - Qmin=RCNTRL(10) - END IF - IF(RCNTRL(11) == ZERO)THEN - Qmax=1.2D0 - ELSE - Qmax=RCNTRL(11) - END IF - -!~~~> Check if tolerances are reasonable - IF (ITOL == 0) THEN - IF (AbsTol(1) <= ZERO .OR. RelTol(1) <= 10.D0*Roundoff) THEN - PRINT * , ' Scalar AbsTol = ',AbsTol(1) - PRINT * , ' Scalar RelTol = ',RelTol(1) - CALL SDIRK_ErrorMsg(-5,Tinitial,ZERO,Ierr) - END IF - ELSE - DO i=1,N - IF (AbsTol(i) <= 0.D0.OR.RelTol(i) <= 10.D0*Roundoff) THEN - PRINT * , ' AbsTol(',i,') = ',AbsTol(i) - PRINT * , ' RelTol(',i,') = ',RelTol(i) - CALL SDIRK_ErrorMsg(-5,Tinitial,ZERO,Ierr) - END IF - END DO - END IF - - IF (Ierr < 0) RETURN - -!~~~> Allocate memory buffers - CALL SDIRK_AllocBuffers - -!~~~> Call forward integration - CALL SDIRK_FwdTlmInt( N, NSOA, Tinitial, Tfinal, Y, Y_tlm, Ierr ) - -!~~~> Call adjoint integration - CALL SDIRK_SoaInt( N, NSOA, Lambda, Sigma, Ierr ) - -!~~~> Free memory buffers - CALL SDIRK_FreeBuffers - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - CONTAINS ! Procedures internal to SDIRK_SOA -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_FwdTlmInt( N,NTLM,Tinitial,Tfinal,Y,Y_tlm,Ierr ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters - IMPLICIT NONE - -!~~~> Arguments: - INTEGER, INTENT(IN) :: N, NTLM - KPP_REAL, INTENT(INOUT) :: Y(N), Y_tlm(N,NTLM) - KPP_REAL, INTENT(IN) :: Tinitial, Tfinal - INTEGER, INTENT(OUT) :: Ierr - -!~~~> Local variables: - KPP_REAL :: Z(NVAR,rkS), G(NVAR), TMP(NVAR), & - NewtonRate, SCAL(NVAR), DZ(NVAR), & - T, H, Theta, Hratio, NewtonPredictedErr, & - Qnewton, Err, Fac, Hnew, Tdirection, & - NewtonIncrement, NewtonIncrementOld, & - SCAL_tlm(NVAR), Yerr(N), Yerr_tlm(N,NTLM), ThetaTLM - KPP_REAL :: Z_tlm(NVAR,rkS,NTLM) - INTEGER :: itlm, j, IER, istage, NewtonIter, saveNiter, NewtonIterTLM - INTEGER :: IP(NVAR), IP_tlm(NVAR) - LOGICAL :: Reject, FirstStep, SkipJac, SkipLU, NewtonDone - -#ifdef FULL_ALGEBRA - KPP_REAL, DIMENSION(NVAR,NVAR) :: FJAC, E, Jac, E_tlm -#else - KPP_REAL, DIMENSION(LU_NONZERO) :: FJAC, E, Jac, E_tlm -#endif - KPP_REAL, PARAMETER :: ZERO = 0.0d0, ONE = 1.0d0 - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Initializations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - T = Tinitial - Tdirection = SIGN(ONE,Tfinal-Tinitial) - H = MAX(ABS(Hmin),ABS(Hstart)) - IF (ABS(H) <= 10.D0*Roundoff) H=1.0D-6 - H=MIN(ABS(H),Hmax) - H=SIGN(H,Tdirection) - SkipLU = .FALSE. - SkipJac = .FALSE. - Reject = .FALSE. - FirstStep=.TRUE. - - CALL SDIRK_ErrorScale(N, ITOL, AbsTol, RelTol, Y, SCAL) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Time loop begins -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -Tloop: DO WHILE ( (Tfinal-T)*Tdirection - Roundoff > ZERO ) - - -!~~~> Compute E = 1/(h*gamma)-Jac and its LU decomposition - IF ( .NOT.SkipLU ) THEN ! This time around skip the Jac update and LU - CALL SDIRK_PrepareMatrix ( H, T, Y, FJAC, & - SkipJac, SkipLU, E, IP, Reject, IER ) - IF (IER /= 0) THEN - CALL SDIRK_ErrorMsg(-8,T,H,Ierr); RETURN - END IF - END IF - - IF (ISTATUS(Nstp) > Max_no_steps) THEN - CALL SDIRK_ErrorMsg(-6,T,H,Ierr); RETURN - END IF - IF ( (T+0.1d0*H == T) .OR. (ABS(H) <= Roundoff) ) THEN - CALL SDIRK_ErrorMsg(-7,T,H,Ierr); RETURN - END IF - -stages:DO istage = 1, rkS - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Simplified Newton iterations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~> Starting values for Newton iterations - CALL Set2zero(N,Z(1,istage)) - -!~~~> Prepare the loop-independent part of the right-hand side - CALL Set2zero(N,G) - IF (istage > 1) THEN - DO j = 1, istage-1 - ! Gj(:) = sum_j Theta(i,j)*Zj(:) = H * sum_j A(i,j)*Fun(Zj(:)) - CALL WAXPY(N,rkTheta(istage,j),Z(1,j),1,G,1) - ! Zi(:) = sum_j Alpha(i,j)*Zj(:) - IF (StartNewton) THEN - CALL WAXPY(N,rkAlpha(istage,j),Z(1,j),1,Z(1,istage),1) - END IF - END DO - END IF - - !~~~> Initializations for Newton iteration - NewtonDone = .FALSE. - Fac = 0.5d0 ! Step reduction factor if too many iterations - -NewtonLoop:DO NewtonIter = 1, NewtonMaxit - -!~~~> Prepare the loop-dependent part of the right-hand side - CALL WADD(N,Y,Z(1,istage),TMP) ! TMP <- Y + Zi - CALL FUN_CHEM(T+rkC(istage)*H,TMP,DZ) ! DZ <- Fun(Y+Zi) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 -! DZ(1:N) = G(1:N) - Z(1:N,istage) + (H*rkGamma)*DZ(1:N) - CALL WSCAL(N, H*rkGamma, DZ, 1) - CALL WAXPY (N, -ONE, Z(1,istage), 1, DZ, 1) - CALL WAXPY (N, ONE, G,1, DZ,1) - -!~~~> Solve the linear system - CALL SDIRK_Solve ( 'N', H, N, E, IP, IER, DZ ) - -!~~~> Check convergence of Newton iterations - CALL SDIRK_ErrorNorm(N, DZ, SCAL, NewtonIncrement) - IF ( NewtonIter == 1 ) THEN - Theta = ABS(ThetaMin) - NewtonRate = 2.0d0 - ELSE - Theta = NewtonIncrement/NewtonIncrementOld - IF (Theta < 0.99d0) THEN - NewtonRate = Theta/(ONE-Theta) - ! Predict error at the end of Newton process - NewtonPredictedErr = NewtonIncrement & - *Theta**(NewtonMaxit-NewtonIter)/(ONE-Theta) - IF (NewtonPredictedErr >= NewtonTol) THEN - ! Non-convergence of Newton: predicted error too large - Qnewton = MIN(10.0d0,NewtonPredictedErr/NewtonTol) - Fac = 0.8d0*Qnewton**(-ONE/(1+NewtonMaxit-NewtonIter)) - EXIT NewtonLoop - END IF - ELSE ! Non-convergence of Newton: Theta too large - EXIT NewtonLoop - END IF - END IF - NewtonIncrementOld = NewtonIncrement - ! Update solution: Z(:) <-- Z(:)+DZ(:) - CALL WAXPY(N,ONE,DZ,1,Z(1,istage),1) - - ! Check error in Newton iterations - NewtonDone = (NewtonRate*NewtonIncrement <= NewtonTol) - IF (NewtonDone) THEN - ! Tune error in TLM variables by defining the minimal number of Newton iterations. - saveNiter = NewtonIter+1 - EXIT NewtonLoop - END IF - - END DO NewtonLoop - - IF (.NOT.NewtonDone) THEN - !CALL RK_ErrorMsg(-12,T,H,Ierr); - H = Fac*H; Reject=.TRUE. - SkipJac = .TRUE.; SkipLU = .FALSE. - CYCLE Tloop - END IF - -!~~~> End of simplified Newton iterations for forward variables - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Solve for TLM variables -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - TMP(1:N) = Y(1:N) + Z(1:N,istage) - SkipJac = .FALSE. - CALL SDIRK_PrepareMatrix ( H, T+rkC(istage)*H, TMP, Jac, & - SkipJac, SkipLU, E_tlm, IP_tlm, Reject, IER ) - IF (IER /= 0) CYCLE TLoop - -TlmL: DO itlm = 1, NTLM - G(1:N) = Y_tlm(1:N,itlm) - IF (istage > 1) THEN - ! Gj(:) = sum_j Theta(i,j)*Zj_tlm(:) - ! = H * sum_j A(i,j)*Jac(Zj(:))*(Yj_tlm+Zj_tlm) - DO j = 1, istage-1 - CALL WAXPY(N,rkTheta(istage,j),Z_tlm(1,j,itlm),1,G,1) - END DO - END IF - CALL SDIRK_Solve ( 'N', H, N, E_tlm, IP_tlm, IER, G ) - Z_tlm(1:N,istage,itlm) = G(1:N) - Y_tlm(1:N,itlm) - END DO TlmL - - - END DO stages - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Error estimation -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ISTATUS(Nstp) = ISTATUS(Nstp) + 1 - CALL Set2zero(N,Yerr) - DO i = 1,rkS - IF (rkE(i)/=ZERO) CALL WAXPY(N,rkE(i),Z(1,i),1,Yerr,1) - END DO - - CALL SDIRK_Solve ( 'N', H, N, E, IP, IER, Yerr ) - CALL SDIRK_ErrorNorm(N, Yerr, SCAL, Err) - -!~~~> Computation of new step size Hnew - Fac = FacSafe*(Err)**(-ONE/rkELO) - Fac = MAX(FacMin,MIN(FacMax,Fac)) - Hnew = H*Fac - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Accept/Reject step -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -accept: IF ( Err < ONE ) THEN !~~~> Step is accepted - - FirstStep=.FALSE. - ISTATUS(Nacc) = ISTATUS(Nacc) + 1 - -!~~~> Checkpoint (old) solution - CALL SDIRK_Push( T, H, Y, Z, Y_tlm, Z_tlm, E, IP ) - -!~~~> Update time and solution - T = T + H - ! Y(:) <-- Y(:) + Sum_j rkD(j)*Z_j(:) - DO i = 1,rkS - IF (rkD(i)/=ZERO) THEN - CALL WAXPY(N,rkD(i),Z(1,i),1,Y,1) - DO itlm = 1, NTLM - CALL WAXPY(N,rkD(i),Z_tlm(1,i,itlm),1,Y_tlm(1,itlm),1) - END DO - END IF - END DO - -!~~~> Update scaling coefficients - CALL SDIRK_ErrorScale(N, ITOL, AbsTol, RelTol, Y, SCAL) - -!~~~> Next time step - Hnew = Tdirection*MIN(ABS(Hnew),Hmax) - ! Last T and H - RSTATUS(Ntexit) = T - RSTATUS(Nhexit) = H - RSTATUS(Nhnew) = Hnew - ! No step increase after a rejection - IF (Reject) Hnew = Tdirection*MIN(ABS(Hnew),ABS(H)) - Reject = .FALSE. - IF ((T+Hnew/Qmin-Tfinal)*Tdirection > ZERO) THEN - H = Tfinal-T - ELSE - Hratio=Hnew/H - ! If step not changed too much keep Jacobian and reuse LU - SkipLU = ( (Theta <= ThetaMin) .AND. (Hratio >= Qmin) & - .AND. (Hratio <= Qmax) ) - ! For TLM: do not skip LU (decrease TLM error) - SkipLU = .FALSE. - IF (.NOT.SkipLU) H = Hnew - END IF - ! If convergence is fast enough, do not update Jacobian -! SkipJac = (Theta <= ThetaMin) - SkipJac = .FALSE. - - ELSE accept !~~~> Step is rejected - - IF (FirstStep .OR. Reject) THEN - H = FacRej*H - ELSE - H = Hnew - END IF - Reject = .TRUE. - SkipJac = .TRUE. - SkipLU = .FALSE. - IF (ISTATUS(Nacc) >= 1) ISTATUS(Nrej) = ISTATUS(Nrej) + 1 - - END IF accept - - END DO Tloop - - ! Successful return - Ierr = 1 - - END SUBROUTINE SDIRK_FwdTlmInt - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_SoaInt( N, NSOA, Lambda, Sigma, Ierr ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters - IMPLICIT NONE - - INTEGER, PARAMETER :: NADJ = 1 -!~~~> Arguments: - INTEGER, INTENT(IN) :: N, NSOA - KPP_REAL, INTENT(INOUT) :: Lambda(NVAR,NADJ) - KPP_REAL, INTENT(INOUT) :: Sigma(NVAR,NSOA) - INTEGER, INTENT(OUT) :: Ierr - -!~~~> Local variables: - KPP_REAL :: Y(NVAR) - KPP_REAL :: Z(NVAR,Smax), U(NVAR,Smax), & - TMP(NVAR), G1(NVAR), & - NewtonRate, SCAL(NVAR), DU(NVAR), & - T, H, Theta, NewtonPredictedErr, & - NewtonIncrement, NewtonIncrementOld - KPP_REAL :: Y_tlm(NVAR,NSOA), Z_tlm(NVAR,Smax,NSOA), & - G2(NVAR,NSOA), Hess0(NHESS), TMP2(NVAR) - KPP_REAL :: W(NVAR,Smax,NSOA), TMP_tlm(NVAR) - INTEGER :: j, IER, istage, iadj, isoa, NewtonIter, & - IP(NVAR), IP_adj(NVAR) - LOGICAL :: Reject, SkipJac, SkipLU, NewtonDone - -#ifdef FULL_ALGEBRA - KPP_REAL, DIMENSION(NVAR,NVAR) :: E, Jac, E_adj -#else - KPP_REAL, DIMENSION(LU_NONZERO):: E, Jac, E_adj -#endif - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Time loop begins -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -Tloop: DO WHILE ( stack_ptr > 0 ) - - !~~~> Recover checkpoints for stage values and vectors - CALL SDIRK_Pop( T, H, Y, Z, Y_tlm, Z_tlm, E, IP ) - -!~~~> Compute E = 1/(h*gamma)-Jac and its LU decomposition -! IF (.NOT.SaveLU) THEN -! SkipJac = .FALSE.; SkipLU = .FALSE. -! CALL SDIRK_PrepareMatrix ( H, T, Y, Jac, & -! SkipJac, SkipLU, E, IP, Reject, IER ) -! IF (IER /= 0) THEN -! CALL SDIRK_ErrorMsg(-8,T,H,Ierr); RETURN -! END IF -! END IF - -stages:DO istage = rkS, 1, -1 - -!~~~> Jacobian at the current stage solution - TMP(1:N) = Y(1:N) + Z(1:N,istage) - CALL JAC_CHEM(T+rkC(istage)*H,TMP,Jac) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - -!~~~> Hessian at the current stage solution - CALL HESS_CHEM(T+rkC(istage)*H,TMP,Hess0) - -#ifdef FULL_ALGEBRA - E_adj(1:N,1:N) = -Jac(1:N,1:N) - DO j=1,N - E_adj(j,j) = E_adj(j,j) + ONE/(H*rkGamma) - END DO - CALL DGETRF( N, N, E_adj, N, IP_adj, IER ) -#else - E_adj(1:LU_NONZERO) = -Jac(1:LU_NONZERO) - DO i = 1,NVAR - j = LU_DIAG(i); E_adj(j) = E_adj(j) + ONE/(H*rkGamma) - END DO - CALL KppDecomp ( E_adj, IER) -#endif - ISTATUS(Ndec) = ISTATUS(Ndec) + 1 - IF (IER /= 0) THEN - PRINT*,'At stage ',istage,' the matrix used in adjoint', & - ' computation is singular' - CALL SDIRK_ErrorMsg(-8,T,H,Ierr); RETURN - END IF - -!~~~> Prepare the loop-independent part of the right-hand side -!~~~> G1(:) = H*( B(i)*Lambda + sum_j A(j,i)*Uj(:) ) - G1(1:N) = rkB(istage)*Lambda(1:N,1) - IF (istage < rkS) THEN - DO j = istage+1, rkS - CALL WAXPY(N,rkA(j,istage),U(1,j),1,G1,1) - END DO - END IF - G1(1:N) = H*G1(1:N) - TMP2(1:N) = G1(1:N) - -! G1(:) = H*Jac^T*( B(i)*Lambda + sum_j A(j,i)*Uj(:) ) -#ifdef FULL_ALGEBRA - TMP = MATMUL(TRANSPOSE(Jac),G1) ! DZ <- Jac(Y+Z)*Y_tlm -#else - CALL JacTR_SP_Vec ( Jac, G1, TMP ) -#endif - G1(1:N) = TMP(1:N) - -!~~~> Compute FOA stage - CALL SDIRK_Solve ( 'T', H, N, E_adj, IP_adj, IER, G1 ) - U(1:N,istage) = G1(1:N) - -!~~~> Prepare the loop-independent part of the SOA right-hand side - G1(1:N) = rkB(istage)*Lambda(1:N,1) - IF (istage < rkS) THEN - DO j = istage+1, rkS - CALL WAXPY(N,rkA(j,istage),U(1,j),1,G1,1) - END DO - CALL WAXPY(N,rkGamma,U(1,istage),1,G1,1) - END IF - G1(1:N) = H*G1(1:N) - -!~~~> G2(:) = H*( B(i)*Sigma + sum_j A(j,i)*Wj(:) ) - DO isoa = 1, NSOA - - G2(1:N,isoa) = rkB(istage)*Sigma(1:N,isoa) - IF (istage < rkS) THEN - DO j = istage+1, rkS - G2(1:N,isoa) = G2(1:N,isoa) + rkA(j,istage)*W(1:N,j,isoa) - END DO - END IF - G2(1:N,isoa) = H*G2(1:N,isoa) - -#ifdef FULL_ALGEBRA - TMP = MATMUL(TRANSPOSE(Jac),G2(1,isoa)) ! DZ <- Jac(Y+Z)*Y_tlm -#else - CALL JacTR_SP_Vec ( Jac, G2(1,isoa), TMP ) -#endif - G2(1:N,isoa) = TMP(1:N) - -!~~~> Add [ Hess0 x Y_tlm(istage) ]^T * G1 - TMP_tlm(1:N) = Y_tlm(1:N,isoa) + Z_tlm(1:N,istage,isoa) - CALL HessTR_Vec ( Hess0, G1, TMP_tlm, TMP ) - G2(1:N,isoa) = G2(1:N,isoa) + TMP(1:N) - - END DO ! isoa = 1, NSOA - -!~~~> Compute SOA stage - DO isoa = 1, NSOA - TMP(1:N) = G2(1:N,isoa) - CALL SDIRK_Solve ( 'T', H, N, E_adj, IP_adj, IER, TMP ) - W(1:N,istage,isoa) = TMP - END DO ! isoa = 1, NSOA - - END DO stages - -!~~~> Update first order adjoint solution - DO istage = 1,rkS - Lambda(1:N,1) = Lambda(1:N,1) + U(1:N,istage) - END DO - -!~~~> Update second order adjoint solution - DO istage = 1,rkS - DO isoa = 1,NSOA - Sigma(1:N,isoa) = Sigma(1:N,isoa) + W(1:N,istage,isoa) - END DO - END DO - - END DO Tloop - - ! Successful return - Ierr = 1 - - END SUBROUTINE SDIRK_SoaInt - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_AllocBuffers -!~~~> Allocate buffer space for checkpointing -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - INTEGER :: i - - ALLOCATE( chk_H(Max_no_steps), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer H'; STOP - END IF - ALLOCATE( chk_T(Max_no_steps), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer T'; STOP - END IF - ALLOCATE( chk_Y(NVAR,Max_no_steps), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer Y'; STOP - END IF - ALLOCATE( chk_Y_tlm(NVAR,NSOA,Max_no_steps), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer Y_tlm'; STOP - END IF - ALLOCATE( chk_Z(NVAR,rkS,Max_no_steps), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer Z'; STOP - END IF - ALLOCATE( chk_Z_tlm(NVAR,rkS,NSOA,Max_no_steps), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer Z_tlm'; STOP - END IF - IF (SaveLU) THEN -#ifdef FULL_ALGEBRA - ALLOCATE( chk_J(NVAR,NVAR,Max_no_steps), STAT=i ) -#else - ALLOCATE( chk_J(LU_NONZERO,Max_no_steps), STAT=i ) -#endif - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer J'; STOP - END IF - ALLOCATE( chk_P(NVAR,Max_no_steps), STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed allocation of buffer P'; STOP - END IF - END IF - - END SUBROUTINE SDIRK_AllocBuffers - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_FreeBuffers -!~~~> Dallocate buffer space for discrete adjoint -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - INTEGER :: i - - DEALLOCATE( chk_H, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer H'; STOP - END IF - DEALLOCATE( chk_T, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer T'; STOP - END IF - DEALLOCATE( chk_Y, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer Y'; STOP - END IF - DEALLOCATE( chk_Y_tlm, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer Y_tlm'; STOP - END IF - DEALLOCATE( chk_Z, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer Z'; STOP - END IF - DEALLOCATE( chk_Z_tlm, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer Z_tlm'; STOP - END IF - IF (SaveLU) THEN - DEALLOCATE( chk_J, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer J'; STOP - END IF - DEALLOCATE( chk_P, STAT=i ) - IF (i/=0) THEN - PRINT*,'Failed deallocation of buffer P'; STOP - END IF - END IF - - END SUBROUTINE SDIRK_FreeBuffers - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_Push( T, H, Y, Z, Y_tlm, Z_tlm, E, P ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Saves the next trajectory snapshot for discrete adjoints -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - KPP_REAL :: T, H, Y(NVAR), Z(NVAR,rkS) - KPP_REAL :: Y_tlm(NVAR,NSOA), Z_tlm(NVAR,rkS,NSOA) - INTEGER :: P(NVAR) -#ifdef FULL_ALGEBRA - KPP_REAL :: E(NVAR,NVAR) -#else - KPP_REAL :: E(LU_NONZERO) -#endif - - stack_ptr = stack_ptr + 1 - IF ( stack_ptr > Max_no_steps ) THEN - PRINT*,'Push failed: buffer overflow' - STOP - END IF - chk_H( stack_ptr ) = H - chk_T( stack_ptr ) = T - chk_Y(1:NVAR,stack_ptr) = Y(1:NVAR) - chk_Z(1:NVAR,1:rkS,stack_ptr) = Z(1:NVAR,1:rkS) - chk_Y_tlm(1:NVAR,1:NSOA,stack_ptr) = Y_tlm(1:NVAR,1:NSOA) - chk_Z_tlm(1:NVAR,1:rkS,1:NSOA,stack_ptr) = Z_tlm(1:NVAR,1:rkS,1:NSOA) - IF (SaveLU) THEN -#ifdef FULL_ALGEBRA - chk_J(1:NVAR,1:NVAR,stack_ptr) = E(1:NVAR,1:NVAR) - chk_P(1:NVAR,stack_ptr) = P(1:NVAR) -#else - chk_J(1:LU_NONZERO,stack_ptr) = E(1:LU_NONZERO) -#endif - END IF - - END SUBROUTINE SDIRK_Push - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_Pop( T, H, Y, Z, Y_tlm, Z_tlm, E, P ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Retrieves the next trajectory snapshot for discrete adjoints -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - KPP_REAL :: T, H, Y(NVAR), Z(NVAR,Smax) - KPP_REAL :: Y_tlm(NVAR,NSOA), Z_tlm(NVAR,Smax,NSOA) - INTEGER :: P(NVAR) -#ifdef FULL_ALGEBRA - KPP_REAL :: E(NVAR,NVAR) -#else - KPP_REAL :: E(LU_NONZERO) -#endif - - IF ( stack_ptr <= 0 ) THEN - PRINT*,'Pop failed: empty buffer' - STOP - END IF - H = chk_H( stack_ptr ) - T = chk_T( stack_ptr ) - Y(1:NVAR) = chk_Y(1:NVAR,stack_ptr) - Z(1:NVAR,1:rkS) = chk_Z(1:NVAR,1:rkS,stack_ptr) - Y_tlm(1:NVAR,1:NSOA) = chk_Y_tlm(1:NVAR,1:NSOA,stack_ptr) - Z_tlm(1:NVAR,1:rkS,1:NSOA) = chk_Z_tlm(1:NVAR,1:rkS,1:NSOA,stack_ptr) - IF (SaveLU) THEN -#ifdef FULL_ALGEBRA - E(1:NVAR,1:NVAR) = chk_J(1:NVAR,1:NVAR,stack_ptr) - P(1:NVAR) = chk_P(1:NVAR,stack_ptr) -#else - E(1:LU_NONZERO) = chk_J(1:LU_NONZERO,stack_ptr) -#endif - END IF - - stack_ptr = stack_ptr - 1 - - END SUBROUTINE SDIRK_Pop - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_ErrorScale(N, ITOL, AbsTol, RelTol, Y, SCAL) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - INTEGER :: i, N, ITOL - KPP_REAL :: AbsTol(N), RelTol(N), & - Y(N), SCAL(N) - IF (ITOL == 0) THEN - DO i=1,N - SCAL(i) = ONE / ( AbsTol(1)+RelTol(1)*ABS(Y(i)) ) - END DO - ELSE - DO i=1,N - SCAL(i) = ONE / ( AbsTol(i)+RelTol(i)*ABS(Y(i)) ) - END DO - END IF - END SUBROUTINE SDIRK_ErrorScale - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_ErrorNorm(N, Y, SCAL, Err) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! - INTEGER :: i, N - KPP_REAL :: Y(N), SCAL(N), Err - Err = ZERO - DO i=1,N - Err = Err+(Y(i)*SCAL(i))**2 - END DO - Err = MAX( SQRT(Err/DBLE(N)), 1.0d-10 ) -! - END SUBROUTINE SDIRK_ErrorNorm - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE SDIRK_ErrorMsg(Code,T,H,Ierr) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - KPP_REAL, INTENT(IN) :: T, H - INTEGER, INTENT(IN) :: Code - INTEGER, INTENT(OUT) :: Ierr - - Ierr = Code - PRINT * , & - 'Forced exit from SDIRK due to the following error:' - - SELECT CASE (Code) - CASE (-1) - PRINT * , '--> Improper value for maximal no of steps' - CASE (-2) - PRINT * , '--> Improper value for maximal no of Newton iterations' - CASE (-3) - PRINT * , '--> Hmin/Hmax/Hstart must be positive' - CASE (-4) - PRINT * , '--> FacMin/FacMax/FacRej must be positive' - CASE (-5) - PRINT * , '--> Improper tolerance values' - CASE (-6) - PRINT * , '--> No of steps exceeds maximum bound', max_no_steps - CASE (-7) - PRINT * , '--> Step size too small: T + 10*H = T', & - ' or H < Roundoff' - CASE (-8) - PRINT * , '--> Matrix is repeatedly singular' - CASE DEFAULT - PRINT *, 'Unknown Error code: ', Code - END SELECT - - PRINT *, "T=", T, "and H=", H - - END SUBROUTINE SDIRK_ErrorMsg - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_PrepareMatrix ( H, T, Y, FJAC, & - SkipJac, SkipLU, E, IP, Reject, ISING ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Compute the matrix E = 1/(H*GAMMA)*Jac, and its decomposition -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - KPP_REAL, INTENT(INOUT) :: H - KPP_REAL, INTENT(IN) :: T, Y(NVAR) - LOGICAL, INTENT(INOUT) :: SkipJac,SkipLU,Reject - INTEGER, INTENT(OUT) :: ISING, IP(NVAR) -#ifdef FULL_ALGEBRA - KPP_REAL, INTENT(INOUT) :: FJAC(NVAR,NVAR) - KPP_REAL, INTENT(OUT) :: E(NVAR,NVAR) -#else - KPP_REAL, INTENT(INOUT) :: FJAC(LU_NONZERO) - KPP_REAL, INTENT(OUT) :: E(LU_NONZERO) -#endif - KPP_REAL :: HGammaInv - INTEGER :: i, j, ConsecutiveSng - - ConsecutiveSng = 0 - ISING = 1 - -Hloop: DO WHILE (ISING /= 0) - - HGammaInv = ONE/(H*rkGamma) - -!~~~> Compute the Jacobian -! IF (SkipJac) THEN -! SkipJac = .FALSE. -! ELSE - IF (.NOT. SkipJac) THEN - CALL JAC_CHEM( T, Y, FJAC ) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - END IF - -#ifdef FULL_ALGEBRA - DO j=1,NVAR - DO i=1,NVAR - E(i,j) = -FJAC(i,j) - END DO - E(j,j) = E(j,j)+HGammaInv - END DO - CALL DGETRF( NVAR, NVAR, E, NVAR, IP, ISING ) -#else - DO i = 1,LU_NONZERO - E(i) = -FJAC(i) - END DO - DO i = 1,NVAR - j = LU_DIAG(i); E(j) = E(j) + HGammaInv - END DO - CALL KppDecomp ( E, ISING) - IP(1) = 1 -#endif - ISTATUS(Ndec) = ISTATUS(Ndec) + 1 - - IF (ISING /= 0) THEN - WRITE (6,*) ' MATRIX IS SINGULAR, ISING=',ISING,' T=',T,' H=',H - ISTATUS(Nsng) = ISTATUS(Nsng) + 1; ConsecutiveSng = ConsecutiveSng + 1 - IF (ConsecutiveSng >= 6) RETURN ! Failure - H = 0.5d0*H - SkipJac = .FALSE. - SkipLU = .FALSE. - Reject = .TRUE. - END IF - - END DO Hloop - - END SUBROUTINE SDIRK_PrepareMatrix - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_Solve ( Transp, H, N, E, IP, ISING, RHS ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Solves the system (H*Gamma-Jac)*x = R -! using the LU decomposition of E = I - 1/(H*Gamma)*Jac -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - INTEGER, INTENT(IN) :: N, IP(N), ISING - CHARACTER, INTENT(IN) :: Transp - KPP_REAL, INTENT(IN) :: H -#ifdef FULL_ALGEBRA - KPP_REAL, INTENT(IN) :: E(NVAR,NVAR) -#else - KPP_REAL, INTENT(IN) :: E(LU_NONZERO) -#endif - KPP_REAL, INTENT(INOUT) :: RHS(N) - KPP_REAL :: HGammaInv - - HGammaInv = ONE/(H*rkGamma) - CALL WSCAL(N,HGammaInv,RHS,1) - SELECT CASE (TRANSP) - CASE ('N') -#ifdef FULL_ALGEBRA - CALL DGETRS( 'N', N, 1, E, N, IP, RHS, N, ISING ) -#else - CALL KppSolve(E, RHS) -#endif - CASE ('T') -#ifdef FULL_ALGEBRA - CALL DGETRS( 'T', N, 1, E, N, IP, RHS, N, ISING ) -#else - CALL KppSolveTR(E, RHS, RHS) -#endif - CASE DEFAULT - PRINT*,'Error in SDIRK_Solve. Unknown Transp argument:',Transp - STOP - END SELECT - ISTATUS(Nsol) = ISTATUS(Nsol) + 1 - - END SUBROUTINE SDIRK_Solve - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Sdirk4a -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - sdMethod = S4A -! Number of stages - rkS = 5 - -! Method coefficients - rkGamma = .2666666666666666666666666666666667d0 - - rkA(1,1) = .2666666666666666666666666666666667d0 - rkA(2,1) = .5000000000000000000000000000000000d0 - rkA(2,2) = .2666666666666666666666666666666667d0 - rkA(3,1) = .3541539528432732316227461858529820d0 - rkA(3,2) = -.5415395284327323162274618585298197d-1 - rkA(3,3) = .2666666666666666666666666666666667d0 - rkA(4,1) = .8515494131138652076337791881433756d-1 - rkA(4,2) = -.6484332287891555171683963466229754d-1 - rkA(4,3) = .7915325296404206392428857585141242d-1 - rkA(4,4) = .2666666666666666666666666666666667d0 - rkA(5,1) = 2.100115700566932777970612055999074d0 - rkA(5,2) = -.7677800284445976813343102185062276d0 - rkA(5,3) = 2.399816361080026398094746205273880d0 - rkA(5,4) = -2.998818699869028161397714709433394d0 - rkA(5,5) = .2666666666666666666666666666666667d0 - - rkB(1) = 2.100115700566932777970612055999074d0 - rkB(2) = -.7677800284445976813343102185062276d0 - rkB(3) = 2.399816361080026398094746205273880d0 - rkB(4) = -2.998818699869028161397714709433394d0 - rkB(5) = .2666666666666666666666666666666667d0 - - rkBhat(1)= 2.885264204387193942183851612883390d0 - rkBhat(2)= -.1458793482962771337341223443218041d0 - rkBhat(3)= 2.390008682465139866479830743628554d0 - rkBhat(4)= -4.129393538556056674929560012190140d0 - rkBhat(5)= 0.d0 - - rkC(1) = .2666666666666666666666666666666667d0 - rkC(2) = .7666666666666666666666666666666667d0 - rkC(3) = .5666666666666666666666666666666667d0 - rkC(4) = .3661315380631796996374935266701191d0 - rkC(5) = 1.d0 - -! Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} - rkD(1) = 0.d0 - rkD(2) = 0.d0 - rkD(3) = 0.d0 - rkD(4) = 0.d0 - rkD(5) = 1.d0 - -! Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} - rkE(1) = -.6804000050475287124787034884002302d0 - rkE(2) = 1.558961944525217193393931795738823d0 - rkE(3) = -13.55893003128907927748632408763868d0 - rkE(4) = 15.48522576958521253098585004571302d0 - rkE(5) = 1.d0 - -! Local order of Err estimate - rkElo = 4 - -! h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} - rkTheta(2,1) = 1.875000000000000000000000000000000d0 - rkTheta(3,1) = 1.708847304091539528432732316227462d0 - rkTheta(3,2) = -.2030773231622746185852981969486824d0 - rkTheta(4,1) = .2680325578937783958847157206823118d0 - rkTheta(4,2) = -.1828840955527181631794050728644549d0 - rkTheta(4,3) = .2968246986151577397160821594427966d0 - rkTheta(5,1) = .9096171815241460655379433581446771d0 - rkTheta(5,2) = -3.108254967778352416114774430509465d0 - rkTheta(5,3) = 12.33727431701306195581826123274001d0 - rkTheta(5,4) = -11.24557012450885560524143016037523d0 - -! Starting value for Newton iterations: Z_i^0 = Sum_j {rkAlpha_ij*Z_j} - rkAlpha(2,1) = 2.875000000000000000000000000000000d0 - rkAlpha(3,1) = .8500000000000000000000000000000000d0 - rkAlpha(3,2) = .4434782608695652173913043478260870d0 - rkAlpha(4,1) = .7352046091658870564637910527807370d0 - rkAlpha(4,2) = -.9525565003057343527941920657462074d-1 - rkAlpha(4,3) = .4290111305453813852259481840631738d0 - rkAlpha(5,1) = -16.10898993405067684831655675112808d0 - rkAlpha(5,2) = 6.559571569643355712998131800797873d0 - rkAlpha(5,3) = -15.90772144271326504260996815012482d0 - rkAlpha(5,4) = 25.34908987169226073668861694892683d0 - -!~~~> Coefficients for continuous solution -! rkD(1,1)= 24.74416644927758d0 -! rkD(1,2)= -4.325375951824688d0 -! rkD(1,3)= 41.39683763286316d0 -! rkD(1,4)= -61.04144619901784d0 -! rkD(1,5)= -3.391332232917013d0 -! rkD(2,1)= -51.98245719616925d0 -! rkD(2,2)= 10.52501981094525d0 -! rkD(2,3)= -154.2067922191855d0 -! rkD(2,4)= 214.3082125319825d0 -! rkD(2,5)= 14.71166018088679d0 -! rkD(3,1)= 33.14347947522142d0 -! rkD(3,2)= -19.72986789558523d0 -! rkD(3,3)= 230.4878502285804d0 -! rkD(3,4)= -287.6629744338197d0 -! rkD(3,5)= -18.99932366302254d0 -! rkD(4,1)= -5.905188728329743d0 -! rkD(4,2)= 13.53022403646467d0 -! rkD(4,3)= -117.6778956422581d0 -! rkD(4,4)= 134.3962081008550d0 -! rkD(4,5)= 8.678995715052762d0 -! -! DO i=1,4 ! CONTi <-- Sum_j rkD(i,j)*Zj -! CALL Set2zero(N,CONT(1,i)) -! DO j = 1,rkS -! CALL WAXPY(N,rkD(i,j),Z(1,j),1,CONT(1,i),1) -! END DO -! END DO - - rkELO = 4.0d0 - - END SUBROUTINE Sdirk4a - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Sdirk4b -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - sdMethod = S4B -! Number of stages - rkS = 5 - -! Method coefficients - rkGamma = .25d0 - - rkA(1,1) = 0.25d0 - rkA(2,1) = 0.5d00 - rkA(2,2) = 0.25d0 - rkA(3,1) = 0.34d0 - rkA(3,2) =-0.40d-1 - rkA(3,3) = 0.25d0 - rkA(4,1) = 0.2727941176470588235294117647058824d0 - rkA(4,2) =-0.5036764705882352941176470588235294d-1 - rkA(4,3) = 0.2757352941176470588235294117647059d-1 - rkA(4,4) = 0.25d0 - rkA(5,1) = 1.041666666666666666666666666666667d0 - rkA(5,2) =-1.020833333333333333333333333333333d0 - rkA(5,3) = 7.812500000000000000000000000000000d0 - rkA(5,4) =-7.083333333333333333333333333333333d0 - rkA(5,5) = 0.25d0 - - rkB(1) = 1.041666666666666666666666666666667d0 - rkB(2) = -1.020833333333333333333333333333333d0 - rkB(3) = 7.812500000000000000000000000000000d0 - rkB(4) = -7.083333333333333333333333333333333d0 - rkB(5) = 0.250000000000000000000000000000000d0 - - rkBhat(1)= 1.069791666666666666666666666666667d0 - rkBhat(2)= -0.894270833333333333333333333333333d0 - rkBhat(3)= 7.695312500000000000000000000000000d0 - rkBhat(4)= -7.083333333333333333333333333333333d0 - rkBhat(5)= 0.212500000000000000000000000000000d0 - - rkC(1) = 0.25d0 - rkC(2) = 0.75d0 - rkC(3) = 0.55d0 - rkC(4) = 0.50d0 - rkC(5) = 1.00d0 - -! Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} - rkD(1) = 0.0d0 - rkD(2) = 0.0d0 - rkD(3) = 0.0d0 - rkD(4) = 0.0d0 - rkD(5) = 1.0d0 - -! Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} - rkE(1) = 0.5750d0 - rkE(2) = 0.2125d0 - rkE(3) = -4.6875d0 - rkE(4) = 4.2500d0 - rkE(5) = 0.1500d0 - -! Local order of Err estimate - rkElo = 4 - -! h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} - rkTheta(2,1) = 2.d0 - rkTheta(3,1) = 1.680000000000000000000000000000000d0 - rkTheta(3,2) = -.1600000000000000000000000000000000d0 - rkTheta(4,1) = 1.308823529411764705882352941176471d0 - rkTheta(4,2) = -.1838235294117647058823529411764706d0 - rkTheta(4,3) = 0.1102941176470588235294117647058824d0 - rkTheta(5,1) = -3.083333333333333333333333333333333d0 - rkTheta(5,2) = -4.291666666666666666666666666666667d0 - rkTheta(5,3) = 34.37500000000000000000000000000000d0 - rkTheta(5,4) = -28.33333333333333333333333333333333d0 - -! Starting value for Newton iterations: Z_i^0 = Sum_j {rkAlpha_ij*Z_j} - rkAlpha(2,1) = 3. - rkAlpha(3,1) = .8800000000000000000000000000000000d0 - rkAlpha(3,2) = .4400000000000000000000000000000000d0 - rkAlpha(4,1) = .1666666666666666666666666666666667d0 - rkAlpha(4,2) = -.8333333333333333333333333333333333d-1 - rkAlpha(4,3) = .9469696969696969696969696969696970d0 - rkAlpha(5,1) = -6.d0 - rkAlpha(5,2) = 9.d0 - rkAlpha(5,3) = -56.81818181818181818181818181818182d0 - rkAlpha(5,4) = 54.d0 - - END SUBROUTINE Sdirk4b - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Sdirk2a -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - sdMethod = S2A -! Number of stages - rkS = 2 - -! Method coefficients - rkGamma = .2928932188134524755991556378951510d0 - - rkA(1,1) = .2928932188134524755991556378951510d0 - rkA(2,1) = .7071067811865475244008443621048490d0 - rkA(2,2) = .2928932188134524755991556378951510d0 - - rkB(1) = .7071067811865475244008443621048490d0 - rkB(2) = .2928932188134524755991556378951510d0 - - rkBhat(1)= .6666666666666666666666666666666667d0 - rkBhat(2)= .3333333333333333333333333333333333d0 - - rkC(1) = 0.292893218813452475599155637895151d0 - rkC(2) = 1.0d0 - -! Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} - rkD(1) = 0.0d0 - rkD(2) = 1.0d0 - -! Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} - rkE(1) = 0.4714045207910316829338962414032326d0 - rkE(2) = -0.1380711874576983496005629080698993d0 - -! Local order of Err estimate - rkElo = 2 - -! h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} - rkTheta(2,1) = 2.414213562373095048801688724209698d0 - -! Starting value for Newton iterations: Z_i^0 = Sum_j {rkAlpha_ij*Z_j} - rkAlpha(2,1) = 3.414213562373095048801688724209698d0 - - END SUBROUTINE Sdirk2a - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Sdirk2b -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - sdMethod = S2B -! Number of stages - rkS = 2 - -! Method coefficients - rkGamma = 1.707106781186547524400844362104849d0 - - rkA(1,1) = 1.707106781186547524400844362104849d0 - rkA(2,1) = -.707106781186547524400844362104849d0 - rkA(2,2) = 1.707106781186547524400844362104849d0 - - rkB(1) = -.707106781186547524400844362104849d0 - rkB(2) = 1.707106781186547524400844362104849d0 - - rkBhat(1)= .6666666666666666666666666666666667d0 - rkBhat(2)= .3333333333333333333333333333333333d0 - - rkC(1) = 1.707106781186547524400844362104849d0 - rkC(2) = 1.0d0 - -! Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} - rkD(1) = 0.0d0 - rkD(2) = 1.0d0 - -! Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} - rkE(1) = -.4714045207910316829338962414032326d0 - rkE(2) = .8047378541243650162672295747365659d0 - -! Local order of Err estimate - rkElo = 2 - -! h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} - rkTheta(2,1) = -.414213562373095048801688724209698d0 - -! Starting value for Newton iterations: Z_i^0 = Sum_j {rkAlpha_ij*Z_j} - rkAlpha(2,1) = .5857864376269049511983112757903019d0 - - END SUBROUTINE Sdirk2b - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Sdirk3a -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - sdMethod = S3A -! Number of stages - rkS = 3 - -! Method coefficients - rkGamma = .2113248654051871177454256097490213d0 - - rkA(1,1) = .2113248654051871177454256097490213d0 - rkA(2,1) = .2113248654051871177454256097490213d0 - rkA(2,2) = .2113248654051871177454256097490213d0 - rkA(3,1) = .2113248654051871177454256097490213d0 - rkA(3,2) = .5773502691896257645091487805019573d0 - rkA(3,3) = .2113248654051871177454256097490213d0 - - rkB(1) = .2113248654051871177454256097490213d0 - rkB(2) = .5773502691896257645091487805019573d0 - rkB(3) = .2113248654051871177454256097490213d0 - - rkBhat(1)= .2113248654051871177454256097490213d0 - rkBhat(2)= .6477918909913548037576239837516312d0 - rkBhat(3)= .1408832436034580784969504064993475d0 - - rkC(1) = .2113248654051871177454256097490213d0 - rkC(2) = .4226497308103742354908512194980427d0 - rkC(3) = 1.d0 - -! Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} - rkD(1) = 0.d0 - rkD(2) = 0.d0 - rkD(3) = 1.d0 - -! Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} - rkE(1) = 0.9106836025229590978424821138352906d0 - rkE(2) = -1.244016935856292431175815447168624d0 - rkE(3) = 0.3333333333333333333333333333333333d0 - -! Local order of Err estimate - rkElo = 2 - -! h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} - rkTheta(2,1) = 1.0d0 - rkTheta(3,1) = -1.732050807568877293527446341505872d0 - rkTheta(3,2) = 2.732050807568877293527446341505872d0 - -! Starting value for Newton iterations: Z_i^0 = Sum_j {rkAlpha_ij*Z_j} - rkAlpha(2,1) = 2.0d0 - rkAlpha(3,1) = -12.92820323027550917410978536602349d0 - rkAlpha(3,2) = 8.83012701892219323381861585376468d0 - - END SUBROUTINE Sdirk3a - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - END SUBROUTINE SDIRK_SOA ! AND ALL ITS INTERNAL PROCEDURES -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE FUN_CHEM( T, Y, P ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters, ONLY: NVAR - USE KPP_ROOT_Global, ONLY: TIME, FIX, RCONST - USE KPP_ROOT_Function, ONLY: Fun - USE KPP_ROOT_Rates, ONLY: Update_SUN, Update_RCONST, Update_PHOTO - - KPP_REAL :: T, Told - KPP_REAL :: Y(NVAR), P(NVAR) - -! Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - - CALL Fun( Y, FIX, RCONST, P ) - -! TIME = Told - - END SUBROUTINE FUN_CHEM - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE JAC_CHEM( T, Y, JV ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters, ONLY: NVAR, LU_NONZERO - USE KPP_ROOT_Global, ONLY: TIME, FIX, RCONST - USE KPP_ROOT_Jacobian, ONLY: Jac_SP,LU_IROW,LU_ICOL - USE KPP_ROOT_Rates, ONLY: Update_SUN, Update_RCONST, Update_PHOTO - - KPP_REAL :: T, Told - KPP_REAL :: Y(NVAR) -#ifdef FULL_ALGEBRA - KPP_REAL :: JS(LU_NONZERO), JV(NVAR,NVAR) - INTEGER :: i, j -#else - KPP_REAL :: JV(LU_NONZERO) -#endif - -! Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - -#ifdef FULL_ALGEBRA - CALL Jac_SP(Y, FIX, RCONST, JS) - DO j=1,NVAR - DO j=1,NVAR - JV(i,j) = 0.0d0 - END DO - END DO - DO i=1,LU_NONZERO - JV(LU_IROW(i),LU_ICOL(i)) = JS(i) - END DO -#else - CALL Jac_SP(Y, FIX, RCONST, JV) -#endif - -! TIME = Told - - END SUBROUTINE JAC_CHEM - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE HESS_CHEM( T, Y, Hes ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Rates, ONLY: Update_SUN, Update_RCONST, Update_PHOTO - -!~~~> Input variables - KPP_REAL, INTENT(IN) :: T, Y(NVAR) -!~~~> Output variables - KPP_REAL, INTENT(OUT) :: Hes(NHESS) -!~~~> Local variables - KPP_REAL :: Told - -! Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - - CALL Hessian( Y, FIX, RCONST, Hes ) - -! TIME = Told - -END SUBROUTINE HESS_CHEM - -END MODULE KPP_ROOT_Integrator - - diff --git a/int.modified_WCOPY/sdirk_tlm.def b/int.modified_WCOPY/sdirk_tlm.def deleted file mode 100644 index 429c27d0dcdfb2e878f079114fd71beb8d0a7012..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/sdirk_tlm.def +++ /dev/null @@ -1,20 +0,0 @@ - -#FUNCTION AGGREGATE -#JACOBIAN SPARSE_LU_ROW - -#DOUBLE ON -#INTFILE sdirk_tlm - -#INLINE F77_GLOBAL - REAL*8 STEPSTART - COMMON /GDATA/ STEPSTART -#ENDINLINE - -#INLINE F77_INIT - STEPMIN=0.0001 - STEPMAX=3600. - STEPSTART=STEPMIN -#ENDINLINE - - - diff --git a/int.modified_WCOPY/sdirk_tlm.f90 b/int.modified_WCOPY/sdirk_tlm.f90 deleted file mode 100644 index 88ec0e76c1e7071430c5ab2381addb23a935d3da..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/sdirk_tlm.f90 +++ /dev/null @@ -1,1461 +0,0 @@ -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! -! SDIRK-TLM - Tangent Linear Model of Singly-Diagonally-Implicit RK ! -! * Sdirk 2a, 2b: L-stable, 2 stages, order 2 ! -! * Sdirk 3a: L-stable, 3 stages, order 2, adj-invariant ! -! * Sdirk 4a, 4b: L-stable, 5 stages, order 4 ! -! By default the code employs the KPP sparse linear algebra routines ! -! Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK) ! -! ! -! (C) Adrian Sandu, July 2005 ! -! Virginia Polytechnic Institute and State University ! -! Contact: sandu@cs.vt.edu ! -! Revised by Philipp Miehe and Adrian Sandu, May 2006 ! -! This implementation is part of KPP - the Kinetic PreProcessor ! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! - -MODULE KPP_ROOT_Integrator - - USE KPP_ROOT_Precision - USE KPP_ROOT_Global, ONLY: FIX, RCONST, TIME - USE KPP_ROOT_Parameters, ONLY: NVAR, NSPEC, NFIX, LU_NONZERO - USE KPP_ROOT_JacobianSP, ONLY: LU_DIAG - USE KPP_ROOT_Jacobian, ONLY: Jac_SP_Vec - USE KPP_ROOT_LinearAlgebra, ONLY: KppDecomp, & - KppSolve, Set2zero, WLAMCH, WCOPY, WAXPY, WSCAL, WADD - - IMPLICIT NONE - PUBLIC - SAVE - -!~~~> Statistics on the work performed by the SDIRK method - INTEGER, PARAMETER :: Nfun=1, Njac=2, Nstp=3, Nacc=4, & - Nrej=5, Ndec=6, Nsol=7, Nsng=8, & - Ntexit=1, Nhexit=2, Nhnew=3 - -CONTAINS - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE INTEGRATE_TLM( NTLM, Y, Y_tlm, TIN, TOUT, ATOL_tlm,RTOL_tlm, & - ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U, IERR_U ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters, ONLY: NVAR,ind_O3 - USE KPP_ROOT_Global, ONLY: ATOL,RTOL,VAR - - IMPLICIT NONE - -!~~~> Y - Concentrations - KPP_REAL :: Y(NVAR) -!~~~> NTLM - No. of sensitivity coefficients - INTEGER NTLM -!~~~> Y_tlm - Sensitivities of concentrations -! Note: Y_tlm (1:NVAR,j) contains sensitivities of -! Y(1:NVAR) w.r.t. the j-th parameter, j=1...NTLM - KPP_REAL :: Y_tlm(NVAR,NTLM) - KPP_REAL :: TIN ! TIN - Start Time - KPP_REAL :: TOUT ! TOUT - End Time - KPP_REAL, INTENT(IN), OPTIONAL :: RTOL_tlm(NVAR,NTLM),ATOL_tlm(NVAR,NTLM) - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - KPP_REAL, INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - KPP_REAL, INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: IERR_U - - INTEGER :: IERR - - KPP_REAL :: RCNTRL(20), RSTATUS(20), T1, T2 - INTEGER :: ICNTRL(20), ISTATUS(20) - INTEGER, SAVE :: Ntotal = 0 - - ICNTRL(1:20) = 0 - RCNTRL(1:20) = 0.0_dp - - !~~~> fine-tune the integrator: - ICNTRL(2) = 0 ! 0=vector tolerances, 1=scalar tolerances - ICNTRL(5) = 8 ! Max no. of Newton iterations - ICNTRL(6) = 0 ! Starting values for Newton are interpolated (0) or zero (1) - ICNTRL(7) = 0 ! How to solve TLM: 0=modified Newton, 1=direct - ICNTRL(9) = 0 ! TLM Newton Iterations influence - ICNTRL(12) = 0 ! TLM Truncation Error influence - - !~~~> if optional parameters are given, and if they are >0, - ! then use them to overwrite default settings - IF (PRESENT(ICNTRL_U)) THEN - WHERE(ICNTRL_U(:) > 0) ICNTRL(:) = ICNTRL_U(:) - END IF - IF (PRESENT(RCNTRL_U)) THEN - WHERE(RCNTRL_U(:) > 0) RCNTRL(:) = RCNTRL_U(:) - END IF - - - T1 = TIN; T2 = TOUT - CALL SdirkTLM( NVAR, NTLM, T1, T2, Y, Y_tlm, RTOL, ATOL, & - RTOL_tlm, ATOL_tlm, RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR ) - - !~~~> Debug option: print number of steps - ! Ntotal = Ntotal + ISTATUS(Nstp) - ! PRINT*,'NSTEPS=',ISTATUS(Nstp),' (',Ntotal,')',' O3=', VAR(ind_O3) - - ! if optional parameters are given for output - ! use them to store information in them - IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(:) - IF (PRESENT(RSTATUS_U)) RSTATUS_U(:) = RSTATUS(:) - IF (PRESENT(IERR_U)) IERR_U = IERR - - IF (IERR < 0) THEN - PRINT *,'SDIRK-TLM: Unsuccessful exit at T=', TIN,' (IERR=',IERR,')' - ENDIF - - END SUBROUTINE INTEGRATE_TLM - - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SdirkTLM(N, NTLM, Tinitial, Tfinal, Y, Y_tlm, RelTol, AbsTol, & - RelTol_tlm, AbsTol_tlm, & - RCNTRL, ICNTRL, RSTATUS, ISTATUS, Ierr) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Solves the system y'=F(t,y) using a Singly-Diagonally-Implicit -! Runge-Kutta (SDIRK) method. -! -! This implementation is based on the book and the code Sdirk4: -! -! E. Hairer and G. Wanner -! "Solving ODEs II. Stiff and differential-algebraic problems". -! Springer series in computational mathematics, Springer-Verlag, 1996. -! This code is based on the SDIRK4 routine in the above book. -! -! Methods: -! * Sdirk 2a, 2b: L-stable, 2 stages, order 2 -! * Sdirk 3a: L-stable, 3 stages, order 2, adjoint-invariant -! * Sdirk 4a, 4b: L-stable, 5 stages, order 4 -! -! (C) Adrian Sandu, July 2005 -! Virginia Polytechnic Institute and State University -! Contact: sandu@cs.vt.edu -! Revised by Philipp Miehe and Adrian Sandu, May 2006 -! This implementation is part of KPP - the Kinetic PreProcessor -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT ARGUMENTS: -! -!- Y(NVAR) = vector of initial conditions (at T=Tinitial) -!- [Tinitial,Tfinal] = time range of integration -! (if Tinitial>Tfinal the integration is performed backwards in time) -!- RelTol, AbsTol = user precribed accuracy -!- SUBROUTINE ode_Fun( T, Y, Ydot ) = ODE function, -! returns Ydot = Y' = F(T,Y) -!- SUBROUTINE ode_Fun( T, Y, Ydot ) = Jacobian of the ODE function, -! returns Jcb = dF/dY -!- ICNTRL(1:20) = integer inputs parameters -!- RCNTRL(1:20) = real inputs parameters -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT ARGUMENTS: -! -!- Y(NVAR) -> vector of final states (at T->Tfinal) -!- ISTATUS(1:20) -> integer output parameters -!- RSTATUS(1:20) -> real output parameters -!- Ierr -> job status upon return -! success (positive value) or -! failure (negative value) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> INPUT PARAMETERS: -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -! -! Note: For input parameters equal to zero the default values of the -! corresponding variables are used. -!~~~> -! ICNTRL(1) = not used -! -! ICNTRL(2) = 0: AbsTol, RelTol are NVAR-dimensional vectors -! = 1: AbsTol, RelTol are scalars -! -! ICNTRL(3) = Method -! -! ICNTRL(4) -> maximum number of integration steps -! For ICNTRL(4)=0 the default value of 100000 is used -! -! ICNTRL(5) -> maximum number of Newton iterations -! For ICNTRL(5)=0 the default value of 8 is used -! -! ICNTRL(6) -> starting values of Newton iterations: -! ICNTRL(6)=0 : starting values are interpolated (the default) -! ICNTRL(6)=1 : starting values are zero -! -! ICNTRL(7) -> method to solve TLM equations: -! ICNTRL(7)=0 : modified Newton re-using LU (the default) -! ICNTRL(7)=1 : direct solution (additional one LU factorization per stage) -! -! ICNTRL(9) -> switch for TLM Newton iteration error estimation strategy -! ICNTRL(9) = 0: base number of iterations as forward solution -! ICNTRL(9) = 1: use RTOL_tlm and ATOL_tlm to calculate -! error estimation for TLM at Newton stages -! -! ICNTRL(12) -> switch for TLM truncation error control -! ICNTRL(12) = 0: TLM error is not used -! ICNTRL(12) = 1: TLM error is computed and used -! -! -!~~~> Real parameters -! -! RCNTRL(1) -> Hmin, lower bound for the integration step size -! It is strongly recommended to keep Hmin = ZERO -! RCNTRL(2) -> Hmax, upper bound for the integration step size -! RCNTRL(3) -> Hstart, starting value for the integration step size -! -! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) -! RCNTRL(5) -> FacMax, upper bound on step increase factor (default=6) -! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections -! (default=0.1) -! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller -! than the predicted value (default=0.9) -! RCNTRL(8) -> ThetaMin. If Newton convergence rate smaller -! than ThetaMin the Jacobian is not recomputed; -! (default=0.001) -! RCNTRL(9) -> NewtonTol, stopping criterion for Newton's method -! (default=0.03) -! RCNTRL(10) -> Qmin -! RCNTRL(11) -> Qmax. If Qmin < Hnew/Hold < Qmax, then the -! step size is kept constant and the LU factorization -! reused (default Qmin=1, Qmax=1.2) -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -!~~~> OUTPUT PARAMETERS: -! -! Note: each call to Rosenbrock adds the current no. of fcn calls -! to previous value of ISTATUS(1), and similar for the other params. -! Set ISTATUS(1:10) = 0 before call to avoid this accumulation. -! -! ISTATUS(1) = No. of function calls -! ISTATUS(2) = No. of jacobian calls -! ISTATUS(3) = No. of steps -! ISTATUS(4) = No. of accepted steps -! ISTATUS(5) = No. of rejected steps (except at the beginning) -! ISTATUS(6) = No. of LU decompositions -! ISTATUS(7) = No. of forward/backward substitutions -! ISTATUS(8) = No. of singular matrix decompositions -! -! RSTATUS(1) -> Texit, the time corresponding to the -! computed Y upon return -! RSTATUS(2) -> Hexit,last accepted step before return -! RSTATUS(3) -> Hnew, last predicted step before return -! For multiple restarts, use Hnew as Hstart in the following run -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - -! Arguments - INTEGER, INTENT(IN) :: N, NTLM, ICNTRL(20) - KPP_REAL, INTENT(IN) :: Tinitial, Tfinal, & - RelTol(N), AbsTol(N), RCNTRL(20), & - RelTol_tlm(N,NTLM), AbsTol_tlm(N,NTLM) - KPP_REAL, INTENT(INOUT) :: Y(NVAR), Y_tlm(N,NTLM) - INTEGER, INTENT(OUT) :: Ierr - INTEGER, INTENT(INOUT) :: ISTATUS(20) - KPP_REAL, INTENT(OUT) :: RSTATUS(20) - -!~~~> SDIRK method coefficients, up to 5 stages - INTEGER, PARAMETER :: Smax = 5 - INTEGER, PARAMETER :: S2A=1, S2B=2, S3A=3, S4A=4, S4B=5 - KPP_REAL :: rkGamma, rkA(Smax,Smax), rkB(Smax), rkC(Smax), & - rkD(Smax), rkE(Smax), rkBhat(Smax), rkELO, & - rkAlpha(Smax,Smax), rkTheta(Smax,Smax) - INTEGER :: sdMethod, rkS ! The number of stages - -! Local variables - KPP_REAL :: Hmin, Hmax, Hstart, Roundoff, & - FacMin, Facmax, FacSafe, FacRej, & - ThetaMin, NewtonTol, Qmin, Qmax - INTEGER :: ITOL, NewtonMaxit, Max_no_steps, i - LOGICAL :: StartNewton, DirectTLM, TLMNewtonEst, TLMtruncErr - KPP_REAL, PARAMETER :: ZERO = 0.0d0, ONE = 1.0d0 - - - Ierr = 0 - ISTATUS(1:20) = 0 - RSTATUS(1:20) = ZERO - -!~~~> For Scalar tolerances (ICNTRL(2).NE.0) the code uses AbsTol(1) and RelTol(1) -! For Vector tolerances (ICNTRL(2) == 0) the code uses AbsTol(1:NVAR) and RelTol(1:NVAR) - IF (ICNTRL(2) == 0) THEN - ITOL = 1 - ELSE - ITOL = 0 - END IF - -!~~~> ICNTRL(3) - method selection - SELECT CASE (ICNTRL(3)) - CASE (0,1) - CALL Sdirk2a - CASE (2) - CALL Sdirk2b - CASE (3) - CALL Sdirk3a - CASE (4) - CALL Sdirk4a - CASE (5) - CALL Sdirk4b - CASE DEFAULT - CALL Sdirk2a - END SELECT - -!~~~> The maximum number of time steps admitted - IF (ICNTRL(4) == 0) THEN - Max_no_steps = 200000 - ELSEIF (ICNTRL(4) > 0) THEN - Max_no_steps=ICNTRL(4) - ELSE - PRINT * ,'User-selected ICNTRL(4)=',ICNTRL(4) - CALL SDIRK_ErrorMsg(-1,Tinitial,ZERO,Ierr) - END IF - !~~~> The maximum number of Newton iterations admitted - IF(ICNTRL(5) == 0)THEN - NewtonMaxit=8 - ELSE - NewtonMaxit=ICNTRL(5) - IF(NewtonMaxit <= 0)THEN - PRINT * ,'User-selected ICNTRL(5)=',ICNTRL(5) - CALL SDIRK_ErrorMsg(-2,Tinitial,ZERO,Ierr) - END IF - END IF -!~~~> StartNewton: Use extrapolation for starting values of Newton iterations - IF (ICNTRL(6) == 0) THEN - StartNewton = .TRUE. - ELSE - StartNewton = .FALSE. - END IF -!~~~> Solve TLM equations directly or by Newton iterations - DirectTLM = (ICNTRL(7) == 1) -!~~~> Newton iteration error control selection - IF (ICNTRL(9) == 0) THEN - TLMNewtonEst = .FALSE. - ELSE - TLMNewtonEst = .TRUE. - END IF -!~~~> TLM truncation error control selection - IF (ICNTRL(12) == 0) THEN - TLMtruncErr = .FALSE. - ELSE - TLMtruncErr = .TRUE. - END IF - -!~~~> Unit roundoff (1+Roundoff>1) - Roundoff = WLAMCH('E') - -!~~~> Lower bound on the step size: (positive value) - IF (RCNTRL(1) == ZERO) THEN - Hmin = ZERO - ELSEIF (RCNTRL(1) > ZERO) THEN - Hmin = RCNTRL(1) - ELSE - PRINT * , 'User-selected RCNTRL(1)=', RCNTRL(1) - CALL SDIRK_ErrorMsg(-3,Tinitial,ZERO,Ierr) - END IF - -!~~~> Upper bound on the step size: (positive value) - IF (RCNTRL(2) == ZERO) THEN - Hmax = ABS(Tfinal-Tinitial) - ELSEIF (RCNTRL(2) > ZERO) THEN - Hmax = MIN(ABS(RCNTRL(2)),ABS(Tfinal-Tinitial)) - ELSE - PRINT * , 'User-selected RCNTRL(2)=', RCNTRL(2) - CALL SDIRK_ErrorMsg(-3,Tinitial,ZERO,Ierr) - END IF - -!~~~> Starting step size: (positive value) - IF (RCNTRL(3) == ZERO) THEN - Hstart = MAX(Hmin,Roundoff) - ELSEIF (RCNTRL(3) > ZERO) THEN - Hstart = MIN(ABS(RCNTRL(3)),ABS(Tfinal-Tinitial)) - ELSE - PRINT * , 'User-selected Hstart: RCNTRL(3)=', RCNTRL(3) - CALL SDIRK_ErrorMsg(-3,Tinitial,ZERO,Ierr) - END IF - -!~~~> Step size can be changed s.t. FacMin < Hnew/Hexit < FacMax - IF (RCNTRL(4) == ZERO) THEN - FacMin = 0.2_dp - ELSEIF (RCNTRL(4) > ZERO) THEN - FacMin = RCNTRL(4) - ELSE - PRINT * , 'User-selected FacMin: RCNTRL(4)=', RCNTRL(4) - CALL SDIRK_ErrorMsg(-4,Tinitial,ZERO,Ierr) - END IF - IF (RCNTRL(5) == ZERO) THEN - FacMax = 10.0_dp - ELSEIF (RCNTRL(5) > ZERO) THEN - FacMax = RCNTRL(5) - ELSE - PRINT * , 'User-selected FacMax: RCNTRL(5)=', RCNTRL(5) - CALL SDIRK_ErrorMsg(-4,Tinitial,ZERO,Ierr) - END IF -!~~~> FacRej: Factor to decrease step after 2 succesive rejections - IF (RCNTRL(6) == ZERO) THEN - FacRej = 0.1_dp - ELSEIF (RCNTRL(6) > ZERO) THEN - FacRej = RCNTRL(6) - ELSE - PRINT * , 'User-selected FacRej: RCNTRL(6)=', RCNTRL(6) - CALL SDIRK_ErrorMsg(-4,Tinitial,ZERO,Ierr) - END IF -!~~~> FacSafe: Safety Factor in the computation of new step size - IF (RCNTRL(7) == ZERO) THEN - FacSafe = 0.9_dp - ELSEIF (RCNTRL(7) > ZERO) THEN - FacSafe = RCNTRL(7) - ELSE - PRINT * , 'User-selected FacSafe: RCNTRL(7)=', RCNTRL(7) - CALL SDIRK_ErrorMsg(-4,Tinitial,ZERO,Ierr) - END IF - -!~~~> ThetaMin: decides whether the Jacobian should be recomputed - IF(RCNTRL(8) == 0.D0)THEN - ThetaMin = 1.0d-3 - ELSE - ThetaMin = RCNTRL(8) - END IF - -!~~~> Stopping criterion for Newton's method - IF(RCNTRL(9) == ZERO)THEN - NewtonTol = 3.0d-2 - ELSE - NewtonTol = RCNTRL(9) - END IF - -!~~~> Qmin, Qmax: IF Qmin < Hnew/Hold < Qmax, STEP SIZE = CONST. - IF(RCNTRL(10) == ZERO)THEN - Qmin=ONE - ELSE - Qmin=RCNTRL(10) - END IF - IF(RCNTRL(11) == ZERO)THEN - Qmax=1.2D0 - ELSE - Qmax=RCNTRL(11) - END IF - -!~~~> Check if tolerances are reasonable - IF (ITOL == 0) THEN - IF (AbsTol(1) <= ZERO .OR. RelTol(1) <= 10.D0*Roundoff) THEN - PRINT * , ' Scalar AbsTol = ',AbsTol(1) - PRINT * , ' Scalar RelTol = ',RelTol(1) - CALL SDIRK_ErrorMsg(-5,Tinitial,ZERO,Ierr) - END IF - ELSE - DO i=1,N - IF (AbsTol(i) <= 0.D0.OR.RelTol(i) <= 10.D0*Roundoff) THEN - PRINT * , ' AbsTol(',i,') = ',AbsTol(i) - PRINT * , ' RelTol(',i,') = ',RelTol(i) - CALL SDIRK_ErrorMsg(-5,Tinitial,ZERO,Ierr) - END IF - END DO - END IF - - IF (Ierr < 0) RETURN - - CALL SDIRK_IntegratorTLM( N,NTLM,Tinitial,Tfinal,Y,Y_tlm,Ierr ) - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - CONTAINS ! PROCEDURES INTERNAL TO SDIRK -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_IntegratorTLM( N,NTLM,Tinitial,Tfinal,Y,Y_tlm,Ierr ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters - IMPLICIT NONE - -!~~~> Arguments: - INTEGER, INTENT(IN) :: N, NTLM - KPP_REAL, INTENT(INOUT) :: Y(N), Y_tlm(N,NTLM) - KPP_REAL, INTENT(IN) :: Tinitial, Tfinal - INTEGER, INTENT(OUT) :: Ierr - -!~~~> Local variables: - KPP_REAL :: Z(NVAR,rkS), G(NVAR), TMP(NVAR), & - NewtonRate, SCAL(NVAR), DZ(NVAR), & - T, H, Theta, Hratio, NewtonPredictedErr, & - Qnewton, Err, Fac, Hnew, Tdirection, & - NewtonIncrement, NewtonIncrementOld, & - SCAL_tlm(NVAR), Yerr(N), Yerr_tlm(N,NTLM), ThetaTLM - KPP_REAL :: Z_tlm(NVAR,rkS,NTLM) - INTEGER :: itlm, j, IER, istage, NewtonIter, saveNiter, NewtonIterTLM - INTEGER :: IP(NVAR), IP_tlm(NVAR) - LOGICAL :: Reject, FirstStep, SkipJac, SkipLU, NewtonDone - -#ifdef FULL_ALGEBRA - KPP_REAL, DIMENSION(NVAR,NVAR) :: FJAC, E, Jac, E_tlm -#else - KPP_REAL, DIMENSION(LU_NONZERO) :: FJAC, E, Jac, E_tlm -#endif - KPP_REAL, PARAMETER :: ZERO = 0.0d0, ONE = 1.0d0 - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Initializations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - T = Tinitial - Tdirection = SIGN(ONE,Tfinal-Tinitial) - H = MAX(ABS(Hmin),ABS(Hstart)) - IF (ABS(H) <= 10.D0*Roundoff) H=1.0D-6 - H=MIN(ABS(H),Hmax) - H=SIGN(H,Tdirection) - SkipLU = .FALSE. - SkipJac = .FALSE. - Reject = .FALSE. - FirstStep=.TRUE. - - CALL SDIRK_ErrorScale(N, ITOL, AbsTol, RelTol, Y, SCAL) - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Time loop begins -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -Tloop: DO WHILE ( (Tfinal-T)*Tdirection - Roundoff > ZERO ) - - -!~~~> Compute E = 1/(h*gamma)-Jac and its LU decomposition - IF ( .NOT.SkipLU ) THEN ! This time around skip the Jac update and LU - CALL SDIRK_PrepareMatrix ( H, T, Y, FJAC, & - SkipJac, SkipLU, E, IP, Reject, IER ) - IF (IER /= 0) THEN - CALL SDIRK_ErrorMsg(-8,T,H,Ierr); RETURN - END IF - END IF - - IF (ISTATUS(Nstp) > Max_no_steps) THEN - CALL SDIRK_ErrorMsg(-6,T,H,Ierr); RETURN - END IF - IF ( (T+0.1d0*H == T) .OR. (ABS(H) <= Roundoff) ) THEN - CALL SDIRK_ErrorMsg(-7,T,H,Ierr); RETURN - END IF - -stages:DO istage = 1, rkS - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Simplified Newton iterations -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~> Starting values for Newton iterations - CALL Set2zero(N,Z(1,istage)) - -!~~~> Prepare the loop-independent part of the right-hand side - CALL Set2zero(N,G) - IF (istage > 1) THEN - DO j = 1, istage-1 - ! Gj(:) = sum_j Theta(i,j)*Zj(:) = H * sum_j A(i,j)*Fun(Zj(:)) - CALL WAXPY(N,rkTheta(istage,j),Z(1,j),1,G,1) - ! Zi(:) = sum_j Alpha(i,j)*Zj(:) - IF (StartNewton) THEN - CALL WAXPY(N,rkAlpha(istage,j),Z(1,j),1,Z(1,istage),1) - END IF - END DO - END IF - - !~~~> Initializations for Newton iteration - NewtonDone = .FALSE. - Fac = 0.5d0 ! Step reduction factor if too many iterations - -NewtonLoop:DO NewtonIter = 1, NewtonMaxit - -!~~~> Prepare the loop-dependent part of the right-hand side - CALL WADD(N,Y,Z(1,istage),TMP) ! TMP <- Y + Zi - CALL FUN_CHEM(T+rkC(istage)*H,TMP,DZ) ! DZ <- Fun(Y+Zi) - ISTATUS(Nfun) = ISTATUS(Nfun) + 1 -! DZ(1:N) = G(1:N) - Z(1:N,istage) + (H*rkGamma)*DZ(1:N) - CALL WSCAL(N, H*rkGamma, DZ, 1) - CALL WAXPY (N, -ONE, Z(1,istage), 1, DZ, 1) - CALL WAXPY (N, ONE, G,1, DZ,1) - -!~~~> Solve the linear system - CALL SDIRK_Solve ( H, N, E, IP, IER, DZ ) - -!~~~> Check convergence of Newton iterations - CALL SDIRK_ErrorNorm(N, DZ, SCAL, NewtonIncrement) - IF ( NewtonIter == 1 ) THEN - Theta = ABS(ThetaMin) - NewtonRate = 2.0d0 - ELSE - Theta = NewtonIncrement/NewtonIncrementOld - IF (Theta < 0.99d0) THEN - NewtonRate = Theta/(ONE-Theta) - ! Predict error at the end of Newton process - NewtonPredictedErr = NewtonIncrement & - *Theta**(NewtonMaxit-NewtonIter)/(ONE-Theta) - IF (NewtonPredictedErr >= NewtonTol) THEN - ! Non-convergence of Newton: predicted error too large - Qnewton = MIN(10.0d0,NewtonPredictedErr/NewtonTol) - Fac = 0.8d0*Qnewton**(-ONE/(1+NewtonMaxit-NewtonIter)) - EXIT NewtonLoop - END IF - ELSE ! Non-convergence of Newton: Theta too large - EXIT NewtonLoop - END IF - END IF - NewtonIncrementOld = NewtonIncrement - ! Update solution: Z(:) <-- Z(:)+DZ(:) - CALL WAXPY(N,ONE,DZ,1,Z(1,istage),1) - - ! Check error in Newton iterations - NewtonDone = (NewtonRate*NewtonIncrement <= NewtonTol) - IF (NewtonDone) THEN - ! Tune error in TLM variables by defining the minimal number of Newton iterations. - saveNiter = NewtonIter+1 - EXIT NewtonLoop - END IF - - END DO NewtonLoop - - IF (.NOT.NewtonDone) THEN - !CALL RK_ErrorMsg(-12,T,H,Ierr); - H = Fac*H; Reject=.TRUE. - SkipJac = .TRUE.; SkipLU = .FALSE. - CYCLE Tloop - END IF - -!~~~> End of simplified Newton iterations for forward variables - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Solve for TLM variables -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -!~~~> Direct solution for TLM variables -DirTLM:IF (DirectTLM) THEN - - TMP(1:N) = Y(1:N) + Z(1:N,istage) - SkipJac = .FALSE. - CALL SDIRK_PrepareMatrix ( H, T+rkC(istage)*H, TMP, Jac, & - SkipJac, SkipLU, E_tlm, IP_tlm, Reject, IER ) - IF (IER /= 0) CYCLE TLoop - -TlmL: DO itlm = 1, NTLM - G(1:N) = Y_tlm(1:N,itlm) - IF (istage > 1) THEN - ! Gj(:) = sum_j Theta(i,j)*Zj_tlm(:) - ! = H * sum_j A(i,j)*Jac(Zj(:))*(Yj_tlm+Zj_tlm) - DO j = 1, istage-1 - CALL WAXPY(N,rkTheta(istage,j),Z_tlm(1,j,itlm),1,G,1) - END DO - END IF - CALL SDIRK_Solve ( H, N, E_tlm, IP_tlm, IER, G ) - Z_tlm(1:N,istage,itlm) = G(1:N) - Y_tlm(1:N,itlm) - END DO TlmL - - ELSE DirTLM - -!~~~> Jacobian of the current stage solution - TMP(1:N) = Y(1:N) + Z(1:N,istage) - CALL JAC_CHEM(T+rkC(istage)*H,TMP,Jac) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - -!~~~> Simplified Newton iterations for TLM variables -TlmLoop:DO itlm = 1,NTLM - NewtonRate = MAX(NewtonRate,Roundoff)**0.8d0 - -!~~~> Starting values for Newton iterations - CALL Set2zero(N,Z_tlm(1,istage,itlm)) - -!~~~> Prepare the loop-independent part of the right-hand side -#ifdef FULL_ALGEBRA - DZ = MATMUL(Jac,Y_tlm(1,itlm)) ! DZ <- Jac(Y+Z)*Y_tlm -#else - CALL Jac_SP_Vec ( Jac, Y_tlm(1,itlm), DZ ) -#endif - G(1:N) = (H*rkGamma)*DZ(1:N) - IF (istage > 1) THEN - ! Gj(:) = sum_j Theta(i,j)*Zj_tlm(:) - ! = H * sum_j A(i,j)*Jac(Zj(:))*(Yj_tlm+Zj_tlm) - DO j = 1, istage-1 - CALL WAXPY(N,rkTheta(istage,j),Z_tlm(1,j,itlm),1,G,1) - END DO - END IF - - - !~~~> Initializations for Newton iteration - IF (TLMNewtonEst) THEN - NewtonDone = .FALSE. - Fac = 0.5d0 ! Step reduction factor if too many iterations - - CALL SDIRK_ErrorScale(N,ITOL,AbsTol_tlm(1,itlm),RelTol_tlm(1,itlm), & - Y_tlm(1,itlm),SCAL_tlm) - END IF - -NewtonLoopTLM:DO NewtonIterTLM = 1, NewtonMaxit - -!~~~> Prepare the loop-dependent part of the right-hand side -#ifdef FULL_ALGEBRA - DZ = MATMUL(Jac,Z_tlm(1,istage,itlm)) ! DZ <- Jac(Y+Z)*Z_tlm -#else - CALL Jac_SP_Vec ( Jac, Z_tlm(1,istage,itlm), DZ ) -#endif - DZ(1:N) = (H*rkGamma)*DZ(1:N)+G(1:N)-Z_tlm(1:N,istage,itlm) - - CALL SDIRK_Solve ( H, N, E, IP, IER, DZ ) - - IF (TLMNewtonEst) THEN -!~~~> Check convergence of Newton iterations - CALL SDIRK_ErrorNorm(N, DZ, SCAL_tlm, NewtonIncrement) - IF ( NewtonIterTLM <= 1 ) THEN - ThetaTLM = ABS(ThetaMin) - NewtonRate = 2.0d0 - ELSE - ThetaTLM = NewtonIncrement/NewtonIncrementOld - IF (ThetaTLM < 0.99d0) THEN - NewtonRate = ThetaTLM/(ONE-ThetaTLM) - ! Predict error at the end of Newton process - NewtonPredictedErr = NewtonIncrement & - *ThetaTLM**(NewtonMaxit-NewtonIterTLM)/(ONE-ThetaTLM) - IF (NewtonPredictedErr >= NewtonTol) THEN - ! Non-convergence of Newton: predicted error too large - Qnewton = MIN(10.0d0,NewtonPredictedErr/NewtonTol) - Fac = 0.8d0*Qnewton**(-ONE/(1+NewtonMaxit-NewtonIterTLM)) - EXIT NewtonLoopTLM - END IF - ELSE ! Non-convergence of Newton: Theta too large - EXIT NewtonLoopTLM - END IF - END IF - NewtonIncrementOld = NewtonIncrement - END IF !(TLMNewtonEst) - - ! Update solution: Z_tlm(:) <-- Z_tlm(:)+DZ(:) - CALL WAXPY(N,ONE,DZ,1,Z_tlm(1,istage,itlm),1) - - ! Check error in Newton iterations - IF (TLMNewtonEst) THEN - NewtonDone = (NewtonRate*NewtonIncrement <= NewtonTol) - IF (NewtonDone) EXIT NewtonLoopTLM - ELSE - ! Minimum number of iterations same as FWD iterations - IF (NewtonIterTLM>=saveNiter) EXIT NewtonLoopTLM - END IF - - END DO NewtonLoopTLM - - IF ((TLMNewtonEst) .AND. (.NOT.NewtonDone)) THEN - !CALL RK_ErrorMsg(-12,T,H,Ierr); - H = Fac*H; Reject=.TRUE. - SkipJac = .TRUE.; SkipLU = .FALSE. - CYCLE Tloop - END IF - - END DO TlmLoop -!~~~> End of simplified Newton iterations for TLM - - END IF DirTLM - - END DO stages - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Error estimation -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ISTATUS(Nstp) = ISTATUS(Nstp) + 1 - CALL Set2zero(N,Yerr) - DO i = 1,rkS - IF (rkE(i)/=ZERO) CALL WAXPY(N,rkE(i),Z(1,i),1,Yerr,1) - END DO - - CALL SDIRK_Solve ( H, N, E, IP, IER, Yerr ) - CALL SDIRK_ErrorNorm(N, Yerr, SCAL, Err) - - IF (TLMtruncErr) THEN - CALL Set2zero(NVAR*NTLM,Yerr_tlm) - DO itlm=1,NTLM - DO j=1,rkS - IF (rkE(j) /= ZERO) CALL WAXPY(N,rkE(j),Z_tlm(1,j,itlm),1,Yerr_tlm(1,itlm),1) - END DO - CALL SDIRK_Solve (H, N, E, IP, IER, Yerr_tlm(1,itlm)) - END DO - CALL SDIRK_ErrorNorm_tlm(N,NTLM, Yerr_tlm, Err) - END IF - -!~~~> Computation of new step size Hnew - Fac = FacSafe*(Err)**(-ONE/rkELO) - Fac = MAX(FacMin,MIN(FacMax,Fac)) - Hnew = H*Fac - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Accept/Reject step -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -accept: IF ( Err < ONE ) THEN !~~~> Step is accepted - - FirstStep=.FALSE. - ISTATUS(Nacc) = ISTATUS(Nacc) + 1 - -!~~~> Update time and solution - T = T + H - ! Y(:) <-- Y(:) + Sum_j rkD(j)*Z_j(:) - DO i = 1,rkS - IF (rkD(i)/=ZERO) THEN - CALL WAXPY(N,rkD(i),Z(1,i),1,Y,1) - DO itlm = 1, NTLM - CALL WAXPY(N,rkD(i),Z_tlm(1,i,itlm),1,Y_tlm(1,itlm),1) - END DO - END IF - END DO - -!~~~> Update scaling coefficients - CALL SDIRK_ErrorScale(N, ITOL, AbsTol, RelTol, Y, SCAL) - -!~~~> Next time step - Hnew = Tdirection*MIN(ABS(Hnew),Hmax) - ! Last T and H - RSTATUS(Ntexit) = T - RSTATUS(Nhexit) = H - RSTATUS(Nhnew) = Hnew - ! No step increase after a rejection - IF (Reject) Hnew = Tdirection*MIN(ABS(Hnew),ABS(H)) - Reject = .FALSE. - IF ((T+Hnew/Qmin-Tfinal)*Tdirection > ZERO) THEN - H = Tfinal-T - ELSE - Hratio=Hnew/H - ! If step not changed too much keep Jacobian and reuse LU - SkipLU = ( (Theta <= ThetaMin) .AND. (Hratio >= Qmin) & - .AND. (Hratio <= Qmax) ) - ! For TLM: do not skip LU (decrease TLM error) - SkipLU = .FALSE. - IF (.NOT.SkipLU) H = Hnew - END IF - ! If convergence is fast enough, do not update Jacobian -! SkipJac = (Theta <= ThetaMin) - SkipJac = .FALSE. - - ELSE accept !~~~> Step is rejected - - IF (FirstStep .OR. Reject) THEN - H = FacRej*H - ELSE - H = Hnew - END IF - Reject = .TRUE. - SkipJac = .TRUE. - SkipLU = .FALSE. - IF (ISTATUS(Nacc) >= 1) ISTATUS(Nrej) = ISTATUS(Nrej) + 1 - - END IF accept - - END DO Tloop - - ! Successful return - Ierr = 1 - - END SUBROUTINE SDIRK_IntegratorTLM - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_ErrorScale(N, ITOL, AbsTol, RelTol, Y, SCAL) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - INTEGER :: N, i, ITOL - KPP_REAL :: AbsTol(NVAR), RelTol(NVAR), & - Y(NVAR), SCAL(NVAR) - IF (ITOL == 0) THEN - DO i=1,N - SCAL(i) = ONE / ( AbsTol(1)+RelTol(1)*ABS(Y(i)) ) - END DO - ELSE - DO i=1,N - SCAL(i) = ONE / ( AbsTol(i)+RelTol(i)*ABS(Y(i)) ) - END DO - END IF - END SUBROUTINE SDIRK_ErrorScale - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_ErrorNorm(N, Y, SCAL, Err) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! - INTEGER :: i, N - KPP_REAL :: Y(N), SCAL(N), Err - Err = ZERO - DO i=1,N - Err = Err+(Y(i)*SCAL(i))**2 - END DO - Err = MAX( SQRT(Err/DBLE(N)), 1.0d-10 ) -! - END SUBROUTINE SDIRK_ErrorNorm - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_ErrorNorm_tlm(N,NTLM, Y_tlm, FWD_Err) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! - INTEGER :: itlm, NTLM, N - KPP_REAL :: Y_tlm(N,NTLM), SCAL_tlm(N), FWD_Err, Err - - DO itlm=1,NTLM - CALL SDIRK_ErrorScale(N,ITOL,AbsTol_tlm(1,itlm),RelTol_tlm(1,itlm), & - Y_tlm(1,itlm),SCAL_tlm) - CALL SDIRK_ErrorNorm(N, Y_tlm(1,itlm), SCAL_tlm, Err) - FWD_Err = MAX(FWD_Err, Err) - END DO -! - END SUBROUTINE SDIRK_ErrorNorm_tlm - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_ErrorMsg(Code,T,H,Ierr) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! Handles all error messages -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - KPP_REAL, INTENT(IN) :: T, H - INTEGER, INTENT(IN) :: Code - INTEGER, INTENT(OUT) :: Ierr - - Ierr = Code - PRINT * , & - 'Forced exit from SDIRK due to the following error:' - - SELECT CASE (Code) - CASE (-1) - PRINT * , '--> Improper value for maximal no of steps' - CASE (-2) - PRINT * , '--> Improper value for maximal no of Newton iterations' - CASE (-3) - PRINT * , '--> Hmin/Hmax/Hstart must be positive' - CASE (-4) - PRINT * , '--> FacMin/FacMax/FacRej must be positive' - CASE (-5) - PRINT * , '--> Improper tolerance values' - CASE (-6) - PRINT * , '--> No of steps exceeds maximum bound' - CASE (-7) - PRINT * , '--> Step size too small: T + 10*H = T', & - ' or H < Roundoff' - CASE (-8) - PRINT * , '--> Matrix is repeatedly singular' - CASE DEFAULT - PRINT *, 'Unknown Error code: ', Code - END SELECT - - PRINT *, "T=", T, "and H=", H - - END SUBROUTINE SDIRK_ErrorMsg - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_PrepareMatrix ( H, T, Y, FJAC, & - SkipJac, SkipLU, E, IP, Reject, ISING ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Compute the matrix E = I - 1/(H*Gamma)*Jac, and its decomposition -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - IMPLICIT NONE - - KPP_REAL, INTENT(INOUT) :: H - KPP_REAL, INTENT(IN) :: T, Y(NVAR) - LOGICAL, INTENT(INOUT) :: SkipJac,SkipLU,Reject - INTEGER, INTENT(OUT) :: ISING, IP(NVAR) -#ifdef FULL_ALGEBRA - KPP_REAL, INTENT(INOUT) :: FJAC(NVAR,NVAR) - KPP_REAL, INTENT(OUT) :: E(NVAR,NVAR) -#else - KPP_REAL, INTENT(INOUT) :: FJAC(LU_NONZERO) - KPP_REAL, INTENT(OUT) :: E(LU_NONZERO) -#endif - KPP_REAL :: HGammaInv - INTEGER :: i, j, ConsecutiveSng - - ConsecutiveSng = 0 - ISING = 1 - -Hloop: DO WHILE (ISING /= 0) - - HGammaInv = ONE/(H*rkGamma) - -!~~~> Compute the Jacobian -! IF (SkipJac) THEN -! SkipJac = .FALSE. -! ELSE - IF (.NOT. SkipJac) THEN - CALL JAC_CHEM( T, Y, FJAC ) - ISTATUS(Njac) = ISTATUS(Njac) + 1 - END IF - -#ifdef FULL_ALGEBRA - DO j=1,NVAR - DO i=1,NVAR - E(i,j) = -FJAC(i,j) - END DO - E(j,j) = E(j,j)+HGammaInv - END DO - CALL DGETRF( NVAR, NVAR, E, NVAR, IP, ISING ) -#else - DO i = 1,LU_NONZERO - E(i) = -FJAC(i) - END DO - DO i = 1,NVAR - j = LU_DIAG(i); E(j) = E(j) + HGammaInv - END DO - CALL KppDecomp ( E, ISING) - IP(1) = 1 -#endif - ISTATUS(Ndec) = ISTATUS(Ndec) + 1 - - IF (ISING /= 0) THEN - WRITE (6,*) ' MATRIX IS SINGULAR, ISING=',ISING,' T=',T,' H=',H - ISTATUS(Nsng) = ISTATUS(Nsng) + 1; ConsecutiveSng = ConsecutiveSng + 1 - IF (ConsecutiveSng >= 6) RETURN ! Failure - H = 0.5d0*H - SkipJac = .TRUE. - SkipLU = .FALSE. - Reject = .TRUE. - END IF - - END DO Hloop - - END SUBROUTINE SDIRK_PrepareMatrix - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE SDIRK_Solve ( H, N, E, IP, ISING, RHS ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -!~~~> Solves the system (H*Gamma-Jac)*x = R -! using the LU decomposition of E = I - 1/(H*Gamma)*Jac -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE - INTEGER, INTENT(IN) :: N, IP(N), ISING - KPP_REAL, INTENT(IN) :: H -#ifdef FULL_ALGEBRA - KPP_REAL, INTENT(IN) :: E(NVAR,NVAR) -#else - KPP_REAL, INTENT(IN) :: E(LU_NONZERO) -#endif - KPP_REAL, INTENT(INOUT) :: RHS(N) - KPP_REAL :: HGammaInv - - HGammaInv = ONE/(H*rkGamma) - CALL WSCAL(N,HGammaInv,RHS,1) -#ifdef FULL_ALGEBRA - CALL DGETRS( 'N', N, 1, E, N, IP, RHS, N, ISING ) -#else - CALL KppSolve(E, RHS) -#endif - ISTATUS(Nsol) = ISTATUS(Nsol) + 1 - - END SUBROUTINE SDIRK_Solve - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Sdirk4a -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - sdMethod = S4A -! Number of stages - rkS = 5 - -! Method coefficients - rkGamma = .2666666666666666666666666666666667d0 - - rkA(1,1) = .2666666666666666666666666666666667d0 - rkA(2,1) = .5000000000000000000000000000000000d0 - rkA(2,2) = .2666666666666666666666666666666667d0 - rkA(3,1) = .3541539528432732316227461858529820d0 - rkA(3,2) = -.5415395284327323162274618585298197d-1 - rkA(3,3) = .2666666666666666666666666666666667d0 - rkA(4,1) = .8515494131138652076337791881433756d-1 - rkA(4,2) = -.6484332287891555171683963466229754d-1 - rkA(4,3) = .7915325296404206392428857585141242d-1 - rkA(4,4) = .2666666666666666666666666666666667d0 - rkA(5,1) = 2.100115700566932777970612055999074d0 - rkA(5,2) = -.7677800284445976813343102185062276d0 - rkA(5,3) = 2.399816361080026398094746205273880d0 - rkA(5,4) = -2.998818699869028161397714709433394d0 - rkA(5,5) = .2666666666666666666666666666666667d0 - - rkB(1) = 2.100115700566932777970612055999074d0 - rkB(2) = -.7677800284445976813343102185062276d0 - rkB(3) = 2.399816361080026398094746205273880d0 - rkB(4) = -2.998818699869028161397714709433394d0 - rkB(5) = .2666666666666666666666666666666667d0 - - rkBhat(1)= 2.885264204387193942183851612883390d0 - rkBhat(2)= -.1458793482962771337341223443218041d0 - rkBhat(3)= 2.390008682465139866479830743628554d0 - rkBhat(4)= -4.129393538556056674929560012190140d0 - rkBhat(5)= 0.d0 - - rkC(1) = .2666666666666666666666666666666667d0 - rkC(2) = .7666666666666666666666666666666667d0 - rkC(3) = .5666666666666666666666666666666667d0 - rkC(4) = .3661315380631796996374935266701191d0 - rkC(5) = 1.d0 - -! Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} - rkD(1) = 0.d0 - rkD(2) = 0.d0 - rkD(3) = 0.d0 - rkD(4) = 0.d0 - rkD(5) = 1.d0 - -! Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} - rkE(1) = -.6804000050475287124787034884002302d0 - rkE(2) = 1.558961944525217193393931795738823d0 - rkE(3) = -13.55893003128907927748632408763868d0 - rkE(4) = 15.48522576958521253098585004571302d0 - rkE(5) = 1.d0 - -! Local order of Err estimate - rkElo = 4 - -! h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} - rkTheta(2,1) = 1.875000000000000000000000000000000d0 - rkTheta(3,1) = 1.708847304091539528432732316227462d0 - rkTheta(3,2) = -.2030773231622746185852981969486824d0 - rkTheta(4,1) = .2680325578937783958847157206823118d0 - rkTheta(4,2) = -.1828840955527181631794050728644549d0 - rkTheta(4,3) = .2968246986151577397160821594427966d0 - rkTheta(5,1) = .9096171815241460655379433581446771d0 - rkTheta(5,2) = -3.108254967778352416114774430509465d0 - rkTheta(5,3) = 12.33727431701306195581826123274001d0 - rkTheta(5,4) = -11.24557012450885560524143016037523d0 - -! Starting value for Newton iterations: Z_i^0 = Sum_j {rkAlpha_ij*Z_j} - rkAlpha(2,1) = 2.875000000000000000000000000000000d0 - rkAlpha(3,1) = .8500000000000000000000000000000000d0 - rkAlpha(3,2) = .4434782608695652173913043478260870d0 - rkAlpha(4,1) = .7352046091658870564637910527807370d0 - rkAlpha(4,2) = -.9525565003057343527941920657462074d-1 - rkAlpha(4,3) = .4290111305453813852259481840631738d0 - rkAlpha(5,1) = -16.10898993405067684831655675112808d0 - rkAlpha(5,2) = 6.559571569643355712998131800797873d0 - rkAlpha(5,3) = -15.90772144271326504260996815012482d0 - rkAlpha(5,4) = 25.34908987169226073668861694892683d0 - -!~~~> Coefficients for continuous solution -! rkD(1,1)= 24.74416644927758d0 -! rkD(1,2)= -4.325375951824688d0 -! rkD(1,3)= 41.39683763286316d0 -! rkD(1,4)= -61.04144619901784d0 -! rkD(1,5)= -3.391332232917013d0 -! rkD(2,1)= -51.98245719616925d0 -! rkD(2,2)= 10.52501981094525d0 -! rkD(2,3)= -154.2067922191855d0 -! rkD(2,4)= 214.3082125319825d0 -! rkD(2,5)= 14.71166018088679d0 -! rkD(3,1)= 33.14347947522142d0 -! rkD(3,2)= -19.72986789558523d0 -! rkD(3,3)= 230.4878502285804d0 -! rkD(3,4)= -287.6629744338197d0 -! rkD(3,5)= -18.99932366302254d0 -! rkD(4,1)= -5.905188728329743d0 -! rkD(4,2)= 13.53022403646467d0 -! rkD(4,3)= -117.6778956422581d0 -! rkD(4,4)= 134.3962081008550d0 -! rkD(4,5)= 8.678995715052762d0 -! -! DO i=1,4 ! CONTi <-- Sum_j rkD(i,j)*Zj -! CALL Set2zero(N,CONT(1,i)) -! DO j = 1,rkS -! CALL WAXPY(N,rkD(i,j),Z(1,j),1,CONT(1,i),1) -! END DO -! END DO - - rkELO = 4.0d0 - - END SUBROUTINE Sdirk4a - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Sdirk4b -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - sdMethod = S4B -! Number of stages - rkS = 5 - -! Method coefficients - rkGamma = .25d0 - - rkA(1,1) = 0.25d0 - rkA(2,1) = 0.5d00 - rkA(2,2) = 0.25d0 - rkA(3,1) = 0.34d0 - rkA(3,2) =-0.40d-1 - rkA(3,3) = 0.25d0 - rkA(4,1) = 0.2727941176470588235294117647058824d0 - rkA(4,2) =-0.5036764705882352941176470588235294d-1 - rkA(4,3) = 0.2757352941176470588235294117647059d-1 - rkA(4,4) = 0.25d0 - rkA(5,1) = 1.041666666666666666666666666666667d0 - rkA(5,2) =-1.020833333333333333333333333333333d0 - rkA(5,3) = 7.812500000000000000000000000000000d0 - rkA(5,4) =-7.083333333333333333333333333333333d0 - rkA(5,5) = 0.25d0 - - rkB(1) = 1.041666666666666666666666666666667d0 - rkB(2) = -1.020833333333333333333333333333333d0 - rkB(3) = 7.812500000000000000000000000000000d0 - rkB(4) = -7.083333333333333333333333333333333d0 - rkB(5) = 0.250000000000000000000000000000000d0 - - rkBhat(1)= 1.069791666666666666666666666666667d0 - rkBhat(2)= -0.894270833333333333333333333333333d0 - rkBhat(3)= 7.695312500000000000000000000000000d0 - rkBhat(4)= -7.083333333333333333333333333333333d0 - rkBhat(5)= 0.212500000000000000000000000000000d0 - - rkC(1) = 0.25d0 - rkC(2) = 0.75d0 - rkC(3) = 0.55d0 - rkC(4) = 0.50d0 - rkC(5) = 1.00d0 - -! Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} - rkD(1) = 0.0d0 - rkD(2) = 0.0d0 - rkD(3) = 0.0d0 - rkD(4) = 0.0d0 - rkD(5) = 1.0d0 - -! Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} - rkE(1) = 0.5750d0 - rkE(2) = 0.2125d0 - rkE(3) = -4.6875d0 - rkE(4) = 4.2500d0 - rkE(5) = 0.1500d0 - -! Local order of Err estimate - rkElo = 4 - -! h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} - rkTheta(2,1) = 2.d0 - rkTheta(3,1) = 1.680000000000000000000000000000000d0 - rkTheta(3,2) = -.1600000000000000000000000000000000d0 - rkTheta(4,1) = 1.308823529411764705882352941176471d0 - rkTheta(4,2) = -.1838235294117647058823529411764706d0 - rkTheta(4,3) = 0.1102941176470588235294117647058824d0 - rkTheta(5,1) = -3.083333333333333333333333333333333d0 - rkTheta(5,2) = -4.291666666666666666666666666666667d0 - rkTheta(5,3) = 34.37500000000000000000000000000000d0 - rkTheta(5,4) = -28.33333333333333333333333333333333d0 - -! Starting value for Newton iterations: Z_i^0 = Sum_j {rkAlpha_ij*Z_j} - rkAlpha(2,1) = 3. - rkAlpha(3,1) = .8800000000000000000000000000000000d0 - rkAlpha(3,2) = .4400000000000000000000000000000000d0 - rkAlpha(4,1) = .1666666666666666666666666666666667d0 - rkAlpha(4,2) = -.8333333333333333333333333333333333d-1 - rkAlpha(4,3) = .9469696969696969696969696969696970d0 - rkAlpha(5,1) = -6.d0 - rkAlpha(5,2) = 9.d0 - rkAlpha(5,3) = -56.81818181818181818181818181818182d0 - rkAlpha(5,4) = 54.d0 - - END SUBROUTINE Sdirk4b - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Sdirk2a -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - sdMethod = S2A -! Number of stages - rkS = 2 - -! Method coefficients - rkGamma = .2928932188134524755991556378951510d0 - - rkA(1,1) = .2928932188134524755991556378951510d0 - rkA(2,1) = .7071067811865475244008443621048490d0 - rkA(2,2) = .2928932188134524755991556378951510d0 - - rkB(1) = .7071067811865475244008443621048490d0 - rkB(2) = .2928932188134524755991556378951510d0 - - rkBhat(1)= .6666666666666666666666666666666667d0 - rkBhat(2)= .3333333333333333333333333333333333d0 - - rkC(1) = 0.292893218813452475599155637895151d0 - rkC(2) = 1.0d0 - -! Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} - rkD(1) = 0.0d0 - rkD(2) = 1.0d0 - -! Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} - rkE(1) = 0.4714045207910316829338962414032326d0 - rkE(2) = -0.1380711874576983496005629080698993d0 - -! Local order of Err estimate - rkElo = 2 - -! h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} - rkTheta(2,1) = 2.414213562373095048801688724209698d0 - -! Starting value for Newton iterations: Z_i^0 = Sum_j {rkAlpha_ij*Z_j} - rkAlpha(2,1) = 3.414213562373095048801688724209698d0 - - END SUBROUTINE Sdirk2a - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Sdirk2b -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - sdMethod = S2B -! Number of stages - rkS = 2 - -! Method coefficients - rkGamma = 1.707106781186547524400844362104849d0 - - rkA(1,1) = 1.707106781186547524400844362104849d0 - rkA(2,1) = -.707106781186547524400844362104849d0 - rkA(2,2) = 1.707106781186547524400844362104849d0 - - rkB(1) = -.707106781186547524400844362104849d0 - rkB(2) = 1.707106781186547524400844362104849d0 - - rkBhat(1)= .6666666666666666666666666666666667d0 - rkBhat(2)= .3333333333333333333333333333333333d0 - - rkC(1) = 1.707106781186547524400844362104849d0 - rkC(2) = 1.0d0 - -! Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} - rkD(1) = 0.0d0 - rkD(2) = 1.0d0 - -! Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} - rkE(1) = -.4714045207910316829338962414032326d0 - rkE(2) = .8047378541243650162672295747365659d0 - -! Local order of Err estimate - rkElo = 2 - -! h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} - rkTheta(2,1) = -.414213562373095048801688724209698d0 - -! Starting value for Newton iterations: Z_i^0 = Sum_j {rkAlpha_ij*Z_j} - rkAlpha(2,1) = .5857864376269049511983112757903019d0 - - END SUBROUTINE Sdirk2b - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE Sdirk3a -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - sdMethod = S3A -! Number of stages - rkS = 3 - -! Method coefficients - rkGamma = .2113248654051871177454256097490213d0 - - rkA(1,1) = .2113248654051871177454256097490213d0 - rkA(2,1) = .2113248654051871177454256097490213d0 - rkA(2,2) = .2113248654051871177454256097490213d0 - rkA(3,1) = .2113248654051871177454256097490213d0 - rkA(3,2) = .5773502691896257645091487805019573d0 - rkA(3,3) = .2113248654051871177454256097490213d0 - - rkB(1) = .2113248654051871177454256097490213d0 - rkB(2) = .5773502691896257645091487805019573d0 - rkB(3) = .2113248654051871177454256097490213d0 - - rkBhat(1)= .2113248654051871177454256097490213d0 - rkBhat(2)= .6477918909913548037576239837516312d0 - rkBhat(3)= .1408832436034580784969504064993475d0 - - rkC(1) = .2113248654051871177454256097490213d0 - rkC(2) = .4226497308103742354908512194980427d0 - rkC(3) = 1.d0 - -! Ynew = Yold + h*Sum_i {rkB_i*k_i} = Yold + Sum_i {rkD_i*Z_i} - rkD(1) = 0.d0 - rkD(2) = 0.d0 - rkD(3) = 1.d0 - -! Err = h * Sum_i {(rkB_i-rkBhat_i)*k_i} = Sum_i {rkE_i*Z_i} - rkE(1) = 0.9106836025229590978424821138352906d0 - rkE(2) = -1.244016935856292431175815447168624d0 - rkE(3) = 0.3333333333333333333333333333333333d0 - -! Local order of Err estimate - rkElo = 2 - -! h*Sum_j {rkA_ij*k_j} = Sum_j {rkTheta_ij*Z_j} - rkTheta(2,1) = 1.0d0 - rkTheta(3,1) = -1.732050807568877293527446341505872d0 - rkTheta(3,2) = 2.732050807568877293527446341505872d0 - -! Starting value for Newton iterations: Z_i^0 = Sum_j {rkAlpha_ij*Z_j} - rkAlpha(2,1) = 2.0d0 - rkAlpha(3,1) = -12.92820323027550917410978536602349d0 - rkAlpha(3,2) = 8.83012701892219323381861585376468d0 - - END SUBROUTINE Sdirk3a - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - END SUBROUTINE SdirkTLM ! AND ALL ITS INTERNAL PROCEDURES -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE FUN_CHEM( T, Y, P ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - USE KPP_ROOT_Parameters, ONLY: NVAR - USE KPP_ROOT_Global, ONLY: TIME, FIX, RCONST - USE KPP_ROOT_Function, ONLY: Fun - USE KPP_ROOT_Rates, ONLY: Update_SUN, Update_RCONST, Update_PHOTO - - KPP_REAL :: T, Told - KPP_REAL :: Y(NVAR), P(NVAR) - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - - CALL Fun( Y, FIX, RCONST, P ) - - TIME = Told - - END SUBROUTINE FUN_CHEM - - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - SUBROUTINE JAC_CHEM( T, Y, JV ) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - - USE KPP_ROOT_Parameters, ONLY: NVAR, LU_NONZERO - USE KPP_ROOT_Global, ONLY: TIME, FIX, RCONST - USE KPP_ROOT_Jacobian, ONLY: Jac_SP,LU_IROW,LU_ICOL - USE KPP_ROOT_Rates, ONLY: Update_SUN, Update_RCONST, Update_PHOTO - - KPP_REAL :: T, Told - KPP_REAL :: Y(NVAR) -#ifdef FULL_ALGEBRA - KPP_REAL :: JS(LU_NONZERO), JV(NVAR,NVAR) - INTEGER :: i, j -#else - KPP_REAL :: JV(LU_NONZERO) -#endif - - Told = TIME - TIME = T - CALL Update_SUN() - CALL Update_RCONST() - -#ifdef FULL_ALGEBRA - CALL Jac_SP(Y, FIX, RCONST, JS) - DO j=1,NVAR - DO i=1,NVAR - JV(i,j) = 0.0D0 - END DO - END DO - DO i=1,LU_NONZERO - JV(LU_IROW(i),LU_ICOL(i)) = JS(i) - END DO -#else - CALL Jac_SP(Y, FIX, RCONST, JV) -#endif - TIME = Told - - END SUBROUTINE JAC_CHEM - -END MODULE KPP_ROOT_Integrator diff --git a/int.modified_WCOPY/tau_leap.def b/int.modified_WCOPY/tau_leap.def deleted file mode 100644 index 98f65d6527773a7776e214e24b0de25544aa629a..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/tau_leap.def +++ /dev/null @@ -1,10 +0,0 @@ - -#FUNCTION aggregate -#JACOBIAN SPARSE_LU_ROW -#DOUBLE on -#STOCHASTIC on -#INTFILE tau_leap - - - - diff --git a/int.modified_WCOPY/tau_leap.f90 b/int.modified_WCOPY/tau_leap.f90 deleted file mode 100644 index c069d867d00aa5d0ecad19cebb9c9fe039ad10f3..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/tau_leap.f90 +++ /dev/null @@ -1,1688 +0,0 @@ -MODULE KPP_ROOT_Random -! A module for random number generation from the following distributions: -! -! Distribution Function/subroutine name -! -! Normal (Gaussian) random_normal -! Gamma random_gamma -! Chi-squared random_chisq -! Exponential random_exponential -! Weibull random_Weibull -! Beta random_beta -! t random_t -! Multivariate normal random_mvnorm -! Generalized inverse Gaussian random_inv_gauss -! Poisson random_Poisson -! Binomial random_binomial1 * -! random_binomial2 * -! Negative binomial random_neg_binomial -! von Mises random_von_Mises -! Cauchy random_Cauchy -! -! Generate a random ordering of the integers 1 .. N -! random_order -! Initialize (seed) the uniform random number generator for ANY compiler -! seed_random_number - -! Lognormal - see note below. - -! ** Two functions are provided for the binomial distribution. -! If the parameter values remain constant, it is recommended that the -! first function is used (random_binomial1). If one or both of the -! parameters change, use the second function (random_binomial2). - -! The compilers own random number generator, SUBROUTINE RANDOM_NUMBER(r), -! is used to provide a source of uniformly distributed random numbers. - -! N.B. At this stage, only one random number is generated at each call to -! one of the functions above. - -! The module uses the following functions which are included here: -! bin_prob to calculate a single binomial probability -! lngamma to calculate the logarithm to base e of the gamma function - -! Some of the code is adapted from Dagpunar's book: -! Dagpunar, J. 'Principles of random variate generation' -! Clarendon Press, Oxford, 1988. ISBN 0-19-852202-9 -! -! In most of Dagpunar's routines, there is a test to see whether the value -! of one or two floating-point parameters has changed since the last call. -! These tests have been replaced by using a logical variable FIRST. -! This should be set to .TRUE. on the first call using new values of the -! parameters, and .FALSE. if the parameter values are the same as for the -! previous call. - -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -! Lognormal distribution -! If X has a lognormal distribution, then log(X) is normally distributed. -! Here the logarithm is the natural logarithm, that is to base e, sometimes -! denoted as ln. To generate random variates from this distribution, generate -! a random deviate from the normal distribution with mean and variance equal -! to the mean and variance of the logarithms of X, then take its exponential. - -! Relationship between the mean & variance of log(X) and the mean & variance -! of X, when X has a lognormal distribution. -! Let m = mean of log(X), and s^2 = variance of log(X) -! Then -! mean of X = exp(m + 0.5s^2) -! variance of X = (mean(X))^2.[exp(s^2) - 1] - -! In the reverse direction (rarely used) -! variance of log(X) = log[1 + var(X)/(mean(X))^2] -! mean of log(X) = log(mean(X) - 0.5var(log(X)) - -! N.B. The above formulae relate to population parameters; they will only be -! approximate if applied to sample values. -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -! Version 1.13, 2 October 2000 -! Changes from version 1.01 -! 1. The random_order, random_Poisson & random_binomial routines have been -! replaced with more efficient routines. -! 2. A routine, seed_random_number, has been added to seed the uniform random -! number generator. This requires input of the required number of seeds -! for the particular compiler from a specified I/O unit such as a keyboard. -! 3. Made compatible with Lahey's ELF90. -! 4. Marsaglia & Tsang algorithm used for random_gamma when shape parameter > 1. -! 5. INTENT for array f corrected in random_mvnorm. - -! Author: Alan Miller -! CSIRO Division of Mathematical & Information Sciences -! Private Bag 10, Clayton South MDC -! Clayton 3169, Victoria, Australia -! Phone: (+61) 3 9545-8016 Fax: (+61) 3 9545-8080 -! e-mail: amiller @ bigpond.net.au - -IMPLICIT NONE -REAL, PRIVATE :: zero = 0.0, half = 0.5, one = 1.0, two = 2.0, & - vsmall = TINY(1.0), vlarge = HUGE(1.0) -PRIVATE :: integral -INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(12, 60) - - -CONTAINS - - -FUNCTION random_normal() RESULT(fn_val) - -! Adapted from the following Fortran 77 code -! ALGORITHM 712, COLLECTED ALGORITHMS FROM ACM. -! THIS WORK PUBLISHED IN TRANSACTIONS ON MATHEMATICAL SOFTWARE, -! VOL. 18, NO. 4, DECEMBER, 1992, PP. 434-435. - -! The function random_normal() returns a normally distributed pseudo-random -! number with zero mean and unit variance. - -! The algorithm uses the ratio of uniforms method of A.J. Kinderman -! and J.F. Monahan augmented with quadratic bounding curves. - -REAL :: fn_val - -! Local variables -REAL :: s = 0.449871, t = -0.386595, a = 0.19600, b = 0.25472, & - r1 = 0.27597, r2 = 0.27846, u, v, x, y, q - -! Generate P = (u,v) uniform in rectangle enclosing acceptance region - -DO - CALL RANDOM_NUMBER(u) - CALL RANDOM_NUMBER(v) - v = 1.7156 * (v - half) - -! Evaluate the quadratic form - x = u - s - y = ABS(v) - t - q = x**2 + y*(a*y - b*x) - -! Accept P if inside inner ellipse - IF (q < r1) EXIT -! Reject P if outside outer ellipse - IF (q > r2) CYCLE -! Reject P if outside acceptance region - IF (v**2 < -4.0*LOG(u)*u**2) EXIT -END DO - -! Return ratio of P's coordinates as the normal deviate -fn_val = v/u -RETURN - -END FUNCTION random_normal - - - -FUNCTION random_gamma(s, first) RESULT(fn_val) - -! Adapted from Fortran 77 code from the book: -! Dagpunar, J. 'Principles of random variate generation' -! Clarendon Press, Oxford, 1988. ISBN 0-19-852202-9 - -! FUNCTION GENERATES A RANDOM GAMMA VARIATE. -! CALLS EITHER random_gamma1 (S > 1.0) -! OR random_exponential (S = 1.0) -! OR random_gamma2 (S < 1.0). - -! S = SHAPE PARAMETER OF DISTRIBUTION (0 < REAL). - -REAL, INTENT(IN) :: s -LOGICAL, INTENT(IN) :: first -REAL :: fn_val - -IF (s <= zero) THEN - WRITE(*, *) 'SHAPE PARAMETER VALUE MUST BE POSITIVE' - STOP -END IF - -IF (s > one) THEN - fn_val = random_gamma1(s, first) -ELSE IF (s < one) THEN - fn_val = random_gamma2(s, first) -ELSE - fn_val = random_exponential() -END IF - -RETURN -END FUNCTION random_gamma - - - -FUNCTION random_gamma1(s, first) RESULT(fn_val) - -! Uses the algorithm in -! Marsaglia, G. and Tsang, W.W. (2000) `A simple method for generating -! gamma variables', Trans. om Math. Software (TOMS), vol.26(3), pp.363-372. - -! Generates a random gamma deviate for shape parameter s >= 1. - -REAL, INTENT(IN) :: s -LOGICAL, INTENT(IN) :: first -REAL :: fn_val - -! Local variables -REAL, SAVE :: c, d -REAL :: u, v, x - -IF (first) THEN - d = s - one/3. - c = one/SQRT(9.0*d) -END IF - -! Start of main loop -DO - -! Generate v = (1+cx)^3 where x is random normal; repeat if v <= 0. - - DO - x = random_normal() - v = (one + c*x)**3 - IF (v > zero) EXIT - END DO - -! Generate uniform variable U - - CALL RANDOM_NUMBER(u) - IF (u < one - 0.0331*x**4) THEN - fn_val = d*v - EXIT - ELSE IF (LOG(u) < half*x**2 + d*(one - v + LOG(v))) THEN - fn_val = d*v - EXIT - END IF -END DO - -RETURN -END FUNCTION random_gamma1 - - - -FUNCTION random_gamma2(s, first) RESULT(fn_val) - -! Adapted from Fortran 77 code from the book: -! Dagpunar, J. 'Principles of random variate generation' -! Clarendon Press, Oxford, 1988. ISBN 0-19-852202-9 - -! FUNCTION GENERATES A RANDOM VARIATE IN [0,INFINITY) FROM -! A GAMMA DISTRIBUTION WITH DENSITY PROPORTIONAL TO -! GAMMA2**(S-1) * EXP(-GAMMA2), -! USING A SWITCHING METHOD. - -! S = SHAPE PARAMETER OF DISTRIBUTION -! (REAL < 1.0) - -REAL, INTENT(IN) :: s -LOGICAL, INTENT(IN) :: first -REAL :: fn_val - -! Local variables -REAL :: r, x, w -REAL, SAVE :: a, p, c, uf, vr, d - -IF (s <= zero .OR. s >= one) THEN - WRITE(*, *) 'SHAPE PARAMETER VALUE OUTSIDE PERMITTED RANGE' - STOP -END IF - -IF (first) THEN ! Initialization, if necessary - a = one - s - p = a/(a + s*EXP(-a)) - IF (s < vsmall) THEN - WRITE(*, *) 'SHAPE PARAMETER VALUE TOO SMALL' - STOP - END IF - c = one/s - uf = p*(vsmall/a)**s - vr = one - vsmall - d = a*LOG(a) -END IF - -DO - CALL RANDOM_NUMBER(r) - IF (r >= vr) THEN - CYCLE - ELSE IF (r > p) THEN - x = a - LOG((one - r)/(one - p)) - w = a*LOG(x)-d - ELSE IF (r > uf) THEN - x = a*(r/p)**c - w = x - ELSE - fn_val = zero - RETURN - END IF - - CALL RANDOM_NUMBER(r) - IF (one-r <= w .AND. r > zero) THEN - IF (r*(w + one) >= one) CYCLE - IF (-LOG(r) <= w) CYCLE - END IF - EXIT -END DO - -fn_val = x -RETURN - -END FUNCTION random_gamma2 - - - -FUNCTION random_chisq(ndf, first) RESULT(fn_val) - -! Generates a random variate from the chi-squared distribution with -! ndf degrees of freedom - -INTEGER, INTENT(IN) :: ndf -LOGICAL, INTENT(IN) :: first -REAL :: fn_val - -fn_val = two * random_gamma(half*ndf, first) -RETURN - -END FUNCTION random_chisq - - - -FUNCTION random_exponential() RESULT(fn_val) - -! Adapted from Fortran 77 code from the book: -! Dagpunar, J. 'Principles of random variate generation' -! Clarendon Press, Oxford, 1988. ISBN 0-19-852202-9 - -! FUNCTION GENERATES A RANDOM VARIATE IN [0,INFINITY) FROM -! A NEGATIVE EXPONENTIAL DlSTRIBUTION WlTH DENSITY PROPORTIONAL -! TO EXP(-random_exponential), USING INVERSION. - -REAL :: fn_val - -! Local variable -REAL :: r - -DO - CALL RANDOM_NUMBER(r) - IF (r > zero) EXIT -END DO - -fn_val = -LOG(r) -RETURN - -END FUNCTION random_exponential - - - -FUNCTION random_Weibull(a) RESULT(fn_val) - -! Generates a random variate from the Weibull distribution with -! probability density: -! a -! a-1 -x -! f(x) = a.x e - -REAL, INTENT(IN) :: a -REAL :: fn_val - -! For speed, there is no checking that a is not zero or very small. - -fn_val = random_exponential() ** (one/a) -RETURN - -END FUNCTION random_Weibull - - - -FUNCTION random_beta(aa, bb, first) RESULT(fn_val) - -! Adapted from Fortran 77 code from the book: -! Dagpunar, J. 'Principles of random variate generation' -! Clarendon Press, Oxford, 1988. ISBN 0-19-852202-9 - -! FUNCTION GENERATES A RANDOM VARIATE IN [0,1] -! FROM A BETA DISTRIBUTION WITH DENSITY -! PROPORTIONAL TO BETA**(AA-1) * (1-BETA)**(BB-1). -! USING CHENG'S LOG LOGISTIC METHOD. - -! AA = SHAPE PARAMETER FROM DISTRIBUTION (0 < REAL) -! BB = SHAPE PARAMETER FROM DISTRIBUTION (0 < REAL) - -REAL, INTENT(IN) :: aa, bb -LOGICAL, INTENT(IN) :: first -REAL :: fn_val - -! Local variables -REAL, PARAMETER :: aln4 = 1.3862944 -REAL :: a, b, g, r, s, x, y, z -REAL, SAVE :: d, f, h, t, c -LOGICAL, SAVE :: swap - -IF (aa <= zero .OR. bb <= zero) THEN - WRITE(*, *) 'IMPERMISSIBLE SHAPE PARAMETER VALUE(S)' - STOP -END IF - -IF (first) THEN ! Initialization, if necessary - a = aa - b = bb - swap = b > a - IF (swap) THEN - g = b - b = a - a = g - END IF - d = a/b - f = a+b - IF (b > one) THEN - h = SQRT((two*a*b - f)/(f - two)) - t = one - ELSE - h = b - t = one/(one + (a/(vlarge*b))**b) - END IF - c = a+h -END IF - -DO - CALL RANDOM_NUMBER(r) - CALL RANDOM_NUMBER(x) - s = r*r*x - IF (r < vsmall .OR. s <= zero) CYCLE - IF (r < t) THEN - x = LOG(r/(one - r))/h - y = d*EXP(x) - z = c*x + f*LOG((one + d)/(one + y)) - aln4 - IF (s - one > z) THEN - IF (s - s*z > one) CYCLE - IF (LOG(s) > z) CYCLE - END IF - fn_val = y/(one + y) - ELSE - IF (4.0*s > (one + one/d)**f) CYCLE - fn_val = one - END IF - EXIT -END DO - -IF (swap) fn_val = one - fn_val -RETURN -END FUNCTION random_beta - - - -FUNCTION random_t(m) RESULT(fn_val) - -! Adapted from Fortran 77 code from the book: -! Dagpunar, J. 'Principles of random variate generation' -! Clarendon Press, Oxford, 1988. ISBN 0-19-852202-9 - -! FUNCTION GENERATES A RANDOM VARIATE FROM A -! T DISTRIBUTION USING KINDERMAN AND MONAHAN'S RATIO METHOD. - -! M = DEGREES OF FREEDOM OF DISTRIBUTION -! (1 <= 1NTEGER) - -INTEGER, INTENT(IN) :: m -REAL :: fn_val - -! Local variables -REAL, SAVE :: s, c, a, f, g -REAL :: r, x, v - -REAL, PARAMETER :: three = 3.0, four = 4.0, quart = 0.25, & - five = 5.0, sixteen = 16.0 -INTEGER :: mm = 0 - -IF (m < 1) THEN - WRITE(*, *) 'IMPERMISSIBLE DEGREES OF FREEDOM' - STOP -END IF - -IF (m /= mm) THEN ! Initialization, if necessary - s = m - c = -quart*(s + one) - a = four/(one + one/s)**c - f = sixteen/a - IF (m > 1) THEN - g = s - one - g = ((s + one)/g)**c*SQRT((s+s)/g) - ELSE - g = one - END IF - mm = m -END IF - -DO - CALL RANDOM_NUMBER(r) - IF (r <= zero) CYCLE - CALL RANDOM_NUMBER(v) - x = (two*v - one)*g/r - v = x*x - IF (v > five - a*r) THEN - IF (m >= 1 .AND. r*(v + three) > f) CYCLE - IF (r > (one + v/s)**c) CYCLE - END IF - EXIT -END DO - -fn_val = x -RETURN -END FUNCTION random_t - - - -SUBROUTINE random_mvnorm(n, h, d, f, first, x, ier) - -! Adapted from Fortran 77 code from the book: -! Dagpunar, J. 'Principles of random variate generation' -! Clarendon Press, Oxford, 1988. ISBN 0-19-852202-9 - -! N.B. An extra argument, ier, has been added to Dagpunar's routine - -! SUBROUTINE GENERATES AN N VARIATE RANDOM NORMAL -! VECTOR USING A CHOLESKY DECOMPOSITION. - -! ARGUMENTS: -! N = NUMBER OF VARIATES IN VECTOR -! (INPUT,INTEGER >= 1) -! H(J) = J'TH ELEMENT OF VECTOR OF MEANS -! (INPUT,REAL) -! X(J) = J'TH ELEMENT OF DELIVERED VECTOR -! (OUTPUT,REAL) -! -! D(J*(J-1)/2+I) = (I,J)'TH ELEMENT OF VARIANCE MATRIX (J> = I) -! (INPUT,REAL) -! F((J-1)*(2*N-J)/2+I) = (I,J)'TH ELEMENT OF LOWER TRIANGULAR -! DECOMPOSITION OF VARIANCE MATRIX (J <= I) -! (OUTPUT,REAL) - -! FIRST = .TRUE. IF THIS IS THE FIRST CALL OF THE ROUTINE -! OR IF THE DISTRIBUTION HAS CHANGED SINCE THE LAST CALL OF THE ROUTINE. -! OTHERWISE SET TO .FALSE. -! (INPUT,LOGICAL) - -! ier = 1 if the input covariance matrix is not +ve definite -! = 0 otherwise - -INTEGER, INTENT(IN) :: n -REAL, INTENT(IN) :: h(:), d(:) ! d(n*(n+1)/2) -REAL, INTENT(IN OUT) :: f(:) ! f(n*(n+1)/2) -REAL, INTENT(OUT) :: x(:) -LOGICAL, INTENT(IN) :: first -INTEGER, INTENT(OUT) :: ier - -! Local variables -INTEGER :: j, i, m -REAL :: y, v -INTEGER, SAVE :: n2 - -IF (n < 1) THEN - WRITE(*, *) 'SIZE OF VECTOR IS NON POSITIVE' - STOP -END IF - -ier = 0 -IF (first) THEN ! Initialization, if necessary - n2 = 2*n - IF (d(1) < zero) THEN - ier = 1 - RETURN - END IF - - f(1) = SQRT(d(1)) - y = one/f(1) - DO j = 2,n - f(j) = d(1+j*(j-1)/2) * y - END DO - - DO i = 2,n - v = d(i*(i-1)/2+i) - DO m = 1,i-1 - v = v - f((m-1)*(n2-m)/2+i)**2 - END DO - - IF (v < zero) THEN - ier = 1 - RETURN - END IF - - v = SQRT(v) - y = one/v - f((i-1)*(n2-i)/2+i) = v - DO j = i+1,n - v = d(j*(j-1)/2+i) - DO m = 1,i-1 - v = v - f((m-1)*(n2-m)/2+i)*f((m-1)*(n2-m)/2 + j) - END DO ! m = 1,i-1 - f((i-1)*(n2-i)/2 + j) = v*y - END DO ! j = i+1,n - END DO ! i = 2,n -END IF - -x(1:n) = h(1:n) -DO j = 1,n - y = random_normal() - DO i = j,n - x(i) = x(i) + f((j-1)*(n2-j)/2 + i) * y - END DO ! i = j,n -END DO ! j = 1,n - -RETURN -END SUBROUTINE random_mvnorm - - - -FUNCTION random_inv_gauss(h, b, first) RESULT(fn_val) - -! Adapted from Fortran 77 code from the book: -! Dagpunar, J. 'Principles of random variate generation' -! Clarendon Press, Oxford, 1988. ISBN 0-19-852202-9 - -! FUNCTION GENERATES A RANDOM VARIATE IN [0,INFINITY] FROM -! A REPARAMETERISED GENERALISED INVERSE GAUSSIAN (GIG) DISTRIBUTION -! WITH DENSITY PROPORTIONAL TO GIG**(H-1) * EXP(-0.5*B*(GIG+1/GIG)) -! USING A RATIO METHOD. - -! H = PARAMETER OF DISTRIBUTION (0 <= REAL) -! B = PARAMETER OF DISTRIBUTION (0 < REAL) - -REAL, INTENT(IN) :: h, b -LOGICAL, INTENT(IN) :: first -REAL :: fn_val - -! Local variables -REAL :: ym, xm, r, w, r1, r2, x -REAL, SAVE :: a, c, d, e -REAL, PARAMETER :: quart = 0.25 - -IF (h < zero .OR. b <= zero) THEN - WRITE(*, *) 'IMPERMISSIBLE DISTRIBUTION PARAMETER VALUES' - STOP -END IF - -IF (first) THEN ! Initialization, if necessary - IF (h > quart*b*SQRT(vlarge)) THEN - WRITE(*, *) 'THE RATIO H:B IS TOO SMALL' - STOP - END IF - e = b*b - d = h + one - ym = (-d + SQRT(d*d + e))/b - IF (ym < vsmall) THEN - WRITE(*, *) 'THE VALUE OF B IS TOO SMALL' - STOP - END IF - - d = h - one - xm = (d + SQRT(d*d + e))/b - d = half*d - e = -quart*b - r = xm + one/xm - w = xm*ym - a = w**(-half*h) * SQRT(xm/ym) * EXP(-e*(r - ym - one/ym)) - IF (a < vsmall) THEN - WRITE(*, *) 'THE VALUE OF H IS TOO LARGE' - STOP - END IF - c = -d*LOG(xm) - e*r -END IF - -DO - CALL RANDOM_NUMBER(r1) - IF (r1 <= zero) CYCLE - CALL RANDOM_NUMBER(r2) - x = a*r2/r1 - IF (x <= zero) CYCLE - IF (LOG(r1) < d*LOG(x) + e*(x + one/x) + c) EXIT -END DO - -fn_val = x - -RETURN -END FUNCTION random_inv_gauss - - - -FUNCTION random_Poisson(mu, first) RESULT(ival) -!********************************************************************** -! Translated to Fortran 90 by Alan Miller from: -! RANLIB -! -! Library of Fortran Routines for Random Number Generation -! -! Compiled and Written by: -! -! Barry W. Brown -! James Lovato -! -! Department of Biomathematics, Box 237 -! The University of Texas, M.D. Anderson Cancer Center -! 1515 Holcombe Boulevard -! Houston, TX 77030 -! -! This work was supported by grant CA-16672 from the National Cancer Institute. - -! GENerate POIsson random deviate - -! Function - -! Generates a single random deviate from a Poisson distribution with mean mu. - -! Arguments - -! mu --> The mean of the Poisson distribution from which -! a random deviate is to be generated. -! REAL mu - -! Method - -! For details see: - -! Ahrens, J.H. and Dieter, U. -! Computer Generation of Poisson Deviates -! From Modified Normal Distributions. -! ACM Trans. Math. Software, 8, 2 -! (June 1982),163-179 - -! TABLES: COEFFICIENTS A0-A7 FOR STEP F. FACTORIALS FACT -! COEFFICIENTS A(K) - FOR PX = FK*V*V*SUM(A(K)*V**K)-DEL - -! SEPARATION OF CASES A AND B - -! .. Scalar Arguments .. -REAL, INTENT(IN) :: mu -LOGICAL, INTENT(IN) :: first -INTEGER :: ival -! .. -! .. Local Scalars .. -REAL :: b1, b2, c, c0, c1, c2, c3, del, difmuk, e, fk, fx, fy, g, & - omega, px, py, t, u, v, x, xx -REAL, SAVE :: s, d, p, q, p0 -INTEGER :: j, k, kflag -LOGICAL, SAVE :: full_init -INTEGER, SAVE :: l, m -! .. -! .. Local Arrays .. -REAL, SAVE :: pp(35) -! .. -! .. Data statements .. -REAL, PARAMETER :: a0 = -.5, a1 = .3333333, a2 = -.2500068, a3 = .2000118, & - a4 = -.1661269, a5 = .1421878, a6 = -.1384794, & - a7 = .1250060 - -REAL, PARAMETER :: fact(10) = (/ 1., 1., 2., 6., 24., 120., 720., 5040., & - 40320., 362880. /) - -! .. -! .. Executable Statements .. -IF (mu > 10.0) THEN -! C A S E A. (RECALCULATION OF S, D, L IF MU HAS CHANGED) - - IF (first) THEN - s = SQRT(mu) - d = 6.0*mu*mu - -! THE POISSON PROBABILITIES PK EXCEED THE DISCRETE NORMAL -! PROBABILITIES FK WHENEVER K >= M(MU). L=IFIX(MU-1.1484) -! IS AN UPPER BOUND TO M(MU) FOR ALL MU >= 10 . - - l = mu - 1.1484 - full_init = .false. - END IF - - -! STEP N. NORMAL SAMPLE - random_normal() FOR STANDARD NORMAL DEVIATE - - g = mu + s*random_normal() - IF (g > 0.0) THEN - ival = g - -! STEP I. IMMEDIATE ACCEPTANCE IF ival IS LARGE ENOUGH - - IF (ival>=l) RETURN - -! STEP S. SQUEEZE ACCEPTANCE - SAMPLE U - - fk = ival - difmuk = mu - fk - CALL RANDOM_NUMBER(u) - IF (d*u >= difmuk*difmuk*difmuk) RETURN - END IF - -! STEP P. PREPARATIONS FOR STEPS Q AND H. -! (RECALCULATIONS OF PARAMETERS IF NECESSARY) -! .3989423=(2*PI)**(-.5) .416667E-1=1./24. .1428571=1./7. -! THE QUANTITIES B1, B2, C3, C2, C1, C0 ARE FOR THE HERMITE -! APPROXIMATIONS TO THE DISCRETE NORMAL PROBABILITIES FK. -! C=.1069/MU GUARANTEES MAJORIZATION BY THE 'HAT'-FUNCTION. - - IF (.NOT. full_init) THEN - omega = .3989423/s - b1 = .4166667E-1/mu - b2 = .3*b1*b1 - c3 = .1428571*b1*b2 - c2 = b2 - 15.*c3 - c1 = b1 - 6.*b2 + 45.*c3 - c0 = 1. - b1 + 3.*b2 - 15.*c3 - c = .1069/mu - full_init = .true. - END IF - - IF (g < 0.0) GO TO 50 - -! 'SUBROUTINE' F IS CALLED (KFLAG=0 FOR CORRECT RETURN) - - kflag = 0 - GO TO 70 - -! STEP Q. QUOTIENT ACCEPTANCE (RARE CASE) - - 40 IF (fy-u*fy <= py*EXP(px-fx)) RETURN - -! STEP E. EXPONENTIAL SAMPLE - random_exponential() FOR STANDARD EXPONENTIAL -! DEVIATE E AND SAMPLE T FROM THE LAPLACE 'HAT' -! (IF T <= -.6744 THEN PK < FK FOR ALL MU >= 10.) - - 50 e = random_exponential() - CALL RANDOM_NUMBER(u) - u = u + u - one - t = 1.8 + SIGN(e, u) - IF (t <= (-.6744)) GO TO 50 - ival = mu + s*t - fk = ival - difmuk = mu - fk - -! 'SUBROUTINE' F IS CALLED (KFLAG=1 FOR CORRECT RETURN) - - kflag = 1 - GO TO 70 - -! STEP H. HAT ACCEPTANCE (E IS REPEATED ON REJECTION) - - 60 IF (c*ABS(u) > py*EXP(px+e) - fy*EXP(fx+e)) GO TO 50 - RETURN - -! STEP F. 'SUBROUTINE' F. CALCULATION OF PX, PY, FX, FY. -! CASE ival < 10 USES FACTORIALS FROM TABLE FACT - - 70 IF (ival>=10) GO TO 80 - px = -mu - py = mu**ival/fact(ival+1) - GO TO 110 - -! CASE ival >= 10 USES POLYNOMIAL APPROXIMATION -! A0-A7 FOR ACCURACY WHEN ADVISABLE -! .8333333E-1=1./12. .3989423=(2*PI)**(-.5) - - 80 del = .8333333E-1/fk - del = del - 4.8*del*del*del - v = difmuk/fk - IF (ABS(v)>0.25) THEN - px = fk*LOG(one + v) - difmuk - del - ELSE - px = fk*v*v* (((((((a7*v+a6)*v+a5)*v+a4)*v+a3)*v+a2)*v+a1)*v+a0) - del - END IF - py = .3989423/SQRT(fk) - 110 x = (half - difmuk)/s - xx = x*x - fx = -half*xx - fy = omega* (((c3*xx + c2)*xx + c1)*xx + c0) - IF (kflag <= 0) GO TO 40 - GO TO 60 - -!--------------------------------------------------------------------------- -! C A S E B. mu < 10 -! START NEW TABLE AND CALCULATE P0 IF NECESSARY - -ELSE - IF (first) THEN - m = MAX(1, INT(mu)) - l = 0 - p = EXP(-mu) - q = p - p0 = p - END IF - -! STEP U. UNIFORM SAMPLE FOR INVERSION METHOD - - DO - CALL RANDOM_NUMBER(u) - ival = 0 - IF (u <= p0) RETURN - -! STEP T. TABLE COMPARISON UNTIL THE END PP(L) OF THE -! PP-TABLE OF CUMULATIVE POISSON PROBABILITIES -! (0.458=PP(9) FOR MU=10) - - IF (l == 0) GO TO 150 - j = 1 - IF (u > 0.458) j = MIN(l, m) - DO k = j, l - IF (u <= pp(k)) GO TO 180 - END DO - IF (l == 35) CYCLE - -! STEP C. CREATION OF NEW POISSON PROBABILITIES P -! AND THEIR CUMULATIVES Q=PP(K) - - 150 l = l + 1 - DO k = l, 35 - p = p*mu / k - q = q + p - pp(k) = q - IF (u <= q) GO TO 170 - END DO - l = 35 - END DO - - 170 l = k - 180 ival = k - RETURN -END IF - -RETURN -END FUNCTION random_Poisson - - - -FUNCTION random_binomial1(n, p, first) RESULT(ival) - -! FUNCTION GENERATES A RANDOM BINOMIAL VARIATE USING C.D.Kemp's method. -! This algorithm is suitable when many random variates are required -! with the SAME parameter values for n & p. - -! P = BERNOULLI SUCCESS PROBABILITY -! (0 <= REAL <= 1) -! N = NUMBER OF BERNOULLI TRIALS -! (1 <= INTEGER) -! FIRST = .TRUE. for the first call using the current parameter values -! = .FALSE. if the values of (n,p) are unchanged from last call - -! Reference: Kemp, C.D. (1986). `A modal method for generating binomial -! variables', Commun. Statist. - Theor. Meth. 15(3), 805-813. - -INTEGER, INTENT(IN) :: n -REAL, INTENT(IN) :: p -LOGICAL, INTENT(IN) :: first -INTEGER :: ival - -! Local variables - -INTEGER :: ru, rd -INTEGER, SAVE :: r0 -REAL :: u, pd, pu -REAL, SAVE :: odds_ratio, p_r -REAL, PARAMETER :: zero = 0.0, one = 1.0 - -IF (first) THEN - r0 = (n+1)*p - p_r = bin_prob(n, p, r0) - odds_ratio = p / (one - p) -END IF - -CALL RANDOM_NUMBER(u) -u = u - p_r -IF (u < zero) THEN - ival = r0 - RETURN -END IF - -pu = p_r -ru = r0 -pd = p_r -rd = r0 -DO - rd = rd - 1 - IF (rd >= 0) THEN - pd = pd * (rd+1) / (odds_ratio * (n-rd)) - u = u - pd - IF (u < zero) THEN - ival = rd - RETURN - END IF - END IF - - ru = ru + 1 - IF (ru <= n) THEN - pu = pu * (n-ru+1) * odds_ratio / ru - u = u - pu - IF (u < zero) THEN - ival = ru - RETURN - END IF - END IF -END DO - -! This point should not be reached, but just in case: - -ival = r0 -RETURN - -END FUNCTION random_binomial1 - - - -FUNCTION bin_prob(n, p, r) RESULT(fn_val) -! Calculate a binomial probability - -INTEGER, INTENT(IN) :: n, r -REAL, INTENT(IN) :: p -REAL :: fn_val - -! Local variable -REAL :: one = 1.0 - -fn_val = EXP( lngamma(DBLE(n+1)) - lngamma(DBLE(r+1)) - lngamma(DBLE(n-r+1)) & - + r*LOG(p) + (n-r)*LOG(one - p) ) -RETURN - -END FUNCTION bin_prob - - - -FUNCTION lngamma(x) RESULT(fn_val) - -! Logarithm to base e of the gamma function. -! -! Accurate to about 1.e-14. -! Programmer: Alan Miller - -! Latest revision of Fortran 77 version - 28 February 1988 - -REAL (dp), INTENT(IN) :: x -REAL (dp) :: fn_val - -! Local variables - -REAL (dp) :: a1 = -4.166666666554424D-02, a2 = 2.430554511376954D-03, & - a3 = -7.685928044064347D-04, a4 = 5.660478426014386D-04, & - temp, arg, product, lnrt2pi = 9.189385332046727D-1, & - pi = 3.141592653589793D0 -LOGICAL :: reflect - -! lngamma is not defined if x = 0 or a negative integer. - -IF (x > 0.d0) GO TO 10 -IF (x /= INT(x)) GO TO 10 -fn_val = 0.d0 -RETURN - -! If x < 0, use the reflection formula: -! gamma(x) * gamma(1-x) = pi * cosec(pi.x) - -10 reflect = (x < 0.d0) -IF (reflect) THEN - arg = 1.d0 - x -ELSE - arg = x -END IF - -! Increase the argument, if necessary, to make it > 10. - -product = 1.d0 -20 IF (arg <= 10.d0) THEN - product = product * arg - arg = arg + 1.d0 - GO TO 20 -END IF - -! Use a polynomial approximation to Stirling's formula. -! N.B. The real Stirling's formula is used here, not the simpler, but less -! accurate formula given by De Moivre in a letter to Stirling, which -! is the one usually quoted. - -arg = arg - 0.5D0 -temp = 1.d0/arg**2 -fn_val = lnrt2pi + arg * (LOG(arg) - 1.d0 + & - (((a4*temp + a3)*temp + a2)*temp + a1)*temp) - LOG(product) -IF (reflect) THEN - temp = SIN(pi * x) - fn_val = LOG(pi/temp) - fn_val -END IF -RETURN -END FUNCTION lngamma - - - -FUNCTION random_binomial2(n, pp, first) RESULT(ival) -!********************************************************************** -! Translated to Fortran 90 by Alan Miller from: -! RANLIB -! -! Library of Fortran Routines for Random Number Generation -! -! Compiled and Written by: -! -! Barry W. Brown -! James Lovato -! -! Department of Biomathematics, Box 237 -! The University of Texas, M.D. Anderson Cancer Center -! 1515 Holcombe Boulevard -! Houston, TX 77030 -! -! This work was supported by grant CA-16672 from the National Cancer Institute. - -! GENerate BINomial random deviate - -! Function - -! Generates a single random deviate from a binomial -! distribution whose number of trials is N and whose -! probability of an event in each trial is P. - -! Arguments - -! N --> The number of trials in the binomial distribution -! from which a random deviate is to be generated. -! INTEGER N - -! P --> The probability of an event in each trial of the -! binomial distribution from which a random deviate -! is to be generated. -! REAL P - -! FIRST --> Set FIRST = .TRUE. for the first call to perform initialization -! the set FIRST = .FALSE. for further calls using the same pair -! of parameter values (N, P). -! LOGICAL FIRST - -! random_binomial2 <-- A random deviate yielding the number of events -! from N independent trials, each of which has -! a probability of event P. -! INTEGER random_binomial - -! Method - -! This is algorithm BTPE from: - -! Kachitvichyanukul, V. and Schmeiser, B. W. -! Binomial Random Variate Generation. -! Communications of the ACM, 31, 2 (February, 1988) 216. - -!********************************************************************** - -!*****DETERMINE APPROPRIATE ALGORITHM AND WHETHER SETUP IS NECESSARY - -! .. -! .. Scalar Arguments .. -REAL, INTENT(IN) :: pp -INTEGER, INTENT(IN) :: n -LOGICAL, INTENT(IN) :: first -INTEGER :: ival -! .. -! .. Local Scalars .. -REAL :: alv, amaxp, f, f1, f2, u, v, w, w2, x, x1, x2, ynorm, z, z2 -REAL, PARAMETER :: zero = 0.0, half = 0.5, one = 1.0 -INTEGER :: i, ix, ix1, k, mp -INTEGER, SAVE :: m -REAL, SAVE :: p, q, xnp, ffm, fm, xnpq, p1, xm, xl, xr, c, al, xll, & - xlr, p2, p3, p4, qn, r, g - -! .. -! .. Executable Statements .. - -!*****SETUP, PERFORM ONLY WHEN PARAMETERS CHANGE - -IF (first) THEN - p = MIN(pp, one-pp) - q = one - p - xnp = n * p -END IF - -IF (xnp > 30.) THEN - IF (first) THEN - ffm = xnp + p - m = ffm - fm = m - xnpq = xnp * q - p1 = INT(2.195*SQRT(xnpq) - 4.6*q) + half - xm = fm + half - xl = xm - p1 - xr = xm + p1 - c = 0.134 + 20.5 / (15.3 + fm) - al = (ffm-xl) / (ffm - xl*p) - xll = al * (one + half*al) - al = (xr - ffm) / (xr*q) - xlr = al * (one + half*al) - p2 = p1 * (one + c + c) - p3 = p2 + c / xll - p4 = p3 + c / xlr - END IF - -!*****GENERATE VARIATE, Binomial mean at least 30. - - 20 CALL RANDOM_NUMBER(u) - u = u * p4 - CALL RANDOM_NUMBER(v) - -! TRIANGULAR REGION - - IF (u <= p1) THEN - ix = xm - p1 * v + u - GO TO 110 - END IF - -! PARALLELOGRAM REGION - - IF (u <= p2) THEN - x = xl + (u-p1) / c - v = v * c + one - ABS(xm-x) / p1 - IF (v > one .OR. v <= zero) GO TO 20 - ix = x - ELSE - -! LEFT TAIL - - IF (u <= p3) THEN - ix = xl + LOG(v) / xll - IF (ix < 0) GO TO 20 - v = v * (u-p2) * xll - ELSE - -! RIGHT TAIL - - ix = xr - LOG(v) / xlr - IF (ix > n) GO TO 20 - v = v * (u-p3) * xlr - END IF - END IF - -!*****DETERMINE APPROPRIATE WAY TO PERFORM ACCEPT/REJECT TEST - - k = ABS(ix-m) - IF (k <= 20 .OR. k >= xnpq/2-1) THEN - -! EXPLICIT EVALUATION - - f = one - r = p / q - g = (n+1) * r - IF (m < ix) THEN - mp = m + 1 - DO i = mp, ix - f = f * (g/i-r) - END DO - - ELSE IF (m > ix) THEN - ix1 = ix + 1 - DO i = ix1, m - f = f / (g/i-r) - END DO - END IF - - IF (v > f) THEN - GO TO 20 - ELSE - GO TO 110 - END IF - END IF - -! SQUEEZING USING UPPER AND LOWER BOUNDS ON LOG(F(X)) - - amaxp = (k/xnpq) * ((k*(k/3. + .625) + .1666666666666)/xnpq + half) - ynorm = -k * k / (2.*xnpq) - alv = LOG(v) - IF (alvynorm + amaxp) GO TO 20 - -! STIRLING'S (actually de Moivre's) FORMULA TO MACHINE ACCURACY FOR -! THE FINAL ACCEPTANCE/REJECTION TEST - - x1 = ix + 1 - f1 = fm + one - z = n + 1 - fm - w = n - ix + one - z2 = z * z - x2 = x1 * x1 - f2 = f1 * f1 - w2 = w * w - IF (alv - (xm*LOG(f1/x1) + (n-m+half)*LOG(z/w) + (ix-m)*LOG(w*p/(x1*q)) + & - (13860.-(462.-(132.-(99.-140./f2)/f2)/f2)/f2)/f1/166320. + & - (13860.-(462.-(132.-(99.-140./z2)/z2)/z2)/z2)/z/166320. + & - (13860.-(462.-(132.-(99.-140./x2)/x2)/x2)/x2)/x1/166320. + & - (13860.-(462.-(132.-(99.-140./w2)/w2)/w2)/w2)/w/166320.) > zero) THEN - GO TO 20 - ELSE - GO TO 110 - END IF - -ELSE -! INVERSE CDF LOGIC FOR MEAN LESS THAN 30 - IF (first) THEN - qn = q ** n - r = p / q - g = r * (n+1) - END IF - - 90 ix = 0 - f = qn - CALL RANDOM_NUMBER(u) - 100 IF (u >= f) THEN - IF (ix > 110) GO TO 90 - u = u - f - ix = ix + 1 - f = f * (g/ix - r) - GO TO 100 - END IF -END IF - -110 IF (pp > half) ix = n - ix -ival = ix -RETURN - -END FUNCTION random_binomial2 - - - - -FUNCTION random_neg_binomial(sk, p) RESULT(ival) - -! Adapted from Fortran 77 code from the book: -! Dagpunar, J. 'Principles of random variate generation' -! Clarendon Press, Oxford, 1988. ISBN 0-19-852202-9 - -! FUNCTION GENERATES A RANDOM NEGATIVE BINOMIAL VARIATE USING UNSTORED -! INVERSION AND/OR THE REPRODUCTIVE PROPERTY. - -! SK = NUMBER OF FAILURES REQUIRED (Dagpunar's words!) -! = the `power' parameter of the negative binomial -! (0 < REAL) -! P = BERNOULLI SUCCESS PROBABILITY -! (0 < REAL < 1) - -! THE PARAMETER H IS SET SO THAT UNSTORED INVERSION ONLY IS USED WHEN P <= H, -! OTHERWISE A COMBINATION OF UNSTORED INVERSION AND -! THE REPRODUCTIVE PROPERTY IS USED. - -REAL, INTENT(IN) :: sk, p -INTEGER :: ival - -! Local variables -! THE PARAMETER ULN = -LOG(MACHINE'S SMALLEST REAL NUMBER). - -REAL, PARAMETER :: h = 0.7 -REAL :: q, x, st, uln, v, r, s, y, g -INTEGER :: k, i, n - -IF (sk <= zero .OR. p <= zero .OR. p >= one) THEN - WRITE(*, *) 'IMPERMISSIBLE DISTRIBUTION PARAMETER VALUES' - STOP -END IF - -q = one - p -x = zero -st = sk -IF (p > h) THEN - v = one/LOG(p) - k = st - DO i = 1,k - DO - CALL RANDOM_NUMBER(r) - IF (r > zero) EXIT - END DO - n = v*LOG(r) - x = x + n - END DO - st = st - k -END IF - -s = zero -uln = -LOG(vsmall) -IF (st > -uln/LOG(q)) THEN - WRITE(*, *) ' P IS TOO LARGE FOR THIS VALUE OF SK' - STOP -END IF - -y = q**st -g = st -CALL RANDOM_NUMBER(r) -DO - IF (y > r) EXIT - r = r - y - s = s + one - y = y*p*g/s - g = g + one -END DO - -ival = x + s + half -RETURN -END FUNCTION random_neg_binomial - - - -FUNCTION random_von_Mises(k, first) RESULT(fn_val) - -! Algorithm VMD from: -! Dagpunar, J.S. (1990) `Sampling from the von Mises distribution via a -! comparison of random numbers', J. of Appl. Statist., 17, 165-168. - -! Fortran 90 code by Alan Miller -! CSIRO Division of Mathematical & Information Sciences - -! Arguments: -! k (real) parameter of the von Mises distribution. -! first (logical) set to .TRUE. the first time that the function -! is called, or the first time with a new value -! for k. When first = .TRUE., the function sets -! up starting values and may be very much slower. - -REAL, INTENT(IN) :: k -LOGICAL, INTENT(IN) :: first -REAL :: fn_val - -! Local variables - -INTEGER :: j, n -INTEGER, SAVE :: nk -REAL, PARAMETER :: pi = 3.14159265 -REAL, SAVE :: p(20), theta(0:20) -REAL :: sump, r, th, lambda, rlast -REAL (dp) :: dk - -IF (first) THEN ! Initialization, if necessary - IF (k < zero) THEN - WRITE(*, *) '** Error: argument k for random_von_Mises = ', k - RETURN - END IF - - nk = k + k + one - IF (nk > 20) THEN - WRITE(*, *) '** Error: argument k for random_von_Mises = ', k - RETURN - END IF - - dk = k - theta(0) = zero - IF (k > half) THEN - -! Set up array p of probabilities. - - sump = zero - DO j = 1, nk - IF (j < nk) THEN - theta(j) = ACOS(one - j/k) - ELSE - theta(nk) = pi - END IF - -! Numerical integration of e^[k.cos(x)] from theta(j-1) to theta(j) - - CALL integral(theta(j-1), theta(j), p(j), dk) - sump = sump + p(j) - END DO - p(1:nk) = p(1:nk) / sump - ELSE - p(1) = one - theta(1) = pi - END IF ! if k > 0.5 -END IF ! if first - -CALL RANDOM_NUMBER(r) -DO j = 1, nk - r = r - p(j) - IF (r < zero) EXIT -END DO -r = -r/p(j) - -DO - th = theta(j-1) + r*(theta(j) - theta(j-1)) - lambda = k - j + one - k*COS(th) - n = 1 - rlast = lambda - - DO - CALL RANDOM_NUMBER(r) - IF (r > rlast) EXIT - n = n + 1 - rlast = r - END DO - - IF (n .NE. 2*(n/2)) EXIT ! is n even? - CALL RANDOM_NUMBER(r) -END DO - -fn_val = SIGN(th, (r - rlast)/(one - rlast) - half) -RETURN -END FUNCTION random_von_Mises - - - -SUBROUTINE integral(a, b, result, dk) - -! Gaussian integration of exp(k.cosx) from a to b. - -REAL (dp), INTENT(IN) :: dk -REAL, INTENT(IN) :: a, b -REAL, INTENT(OUT) :: result - -! Local variables - -REAL (dp) :: xmid, range, x1, x2, & - x(3) = (/0.238619186083197_dp, 0.661209386466265_dp, 0.932469514203152_dp/), & - w(3) = (/0.467913934572691_dp, 0.360761573048139_dp, 0.171324492379170_dp/) -INTEGER :: i - -xmid = (a + b)/2._dp -range = (b - a)/2._dp - -result = 0._dp -DO i = 1, 3 - x1 = xmid + x(i)*range - x2 = xmid - x(i)*range - result = result + w(i)*(EXP(dk*COS(x1)) + EXP(dk*COS(x2))) -END DO - -result = result * range -RETURN -END SUBROUTINE integral - - - -FUNCTION random_Cauchy() RESULT(fn_val) - -! Generate a random deviate from the standard Cauchy distribution - -REAL :: fn_val - -! Local variables -REAL :: v(2) - -DO - CALL RANDOM_NUMBER(v) - v = two*(v - half) - IF (ABS(v(2)) < vsmall) CYCLE ! Test for zero - IF (v(1)**2 + v(2)**2 < one) EXIT -END DO -fn_val = v(1) / v(2) - -RETURN -END FUNCTION random_Cauchy - - - -SUBROUTINE random_order(order, n) - -! Generate a random ordering of the integers 1 ... n. - -INTEGER, INTENT(IN) :: n -INTEGER, INTENT(OUT) :: order(n) - -! Local variables - -INTEGER :: i, j, k -REAL :: wk - -DO i = 1, n - order(i) = i -END DO - -! Starting at the end, swap the current last indicator with one -! randomly chosen from those preceeding it. - -DO i = n, 2, -1 - CALL RANDOM_NUMBER(wk) - j = 1 + i * wk - IF (j < i) THEN - k = order(i) - order(i) = order(j) - order(j) = k - END IF -END DO - -RETURN -END SUBROUTINE random_order - - - -SUBROUTINE seed_random_number(iounit) - -INTEGER, INTENT(IN) :: iounit - -! Local variables - -INTEGER :: k -INTEGER, ALLOCATABLE :: seed(:) - -CALL RANDOM_SEED(SIZE=k) -ALLOCATE( seed(k) ) - -WRITE(*, '(a, i2, a)')' Enter ', k, ' integers for random no. seeds: ' -READ(*, *) seed -WRITE(iounit, '(a, (7i10))') ' Random no. seeds: ', seed -CALL RANDOM_SEED(PUT=seed) - -DEALLOCATE( seed ) - -RETURN -END SUBROUTINE seed_random_number - - -END MODULE KPP_ROOT_Random - -MODULE KPP_ROOT_Integrator - USE KPP_ROOT_Random - USE KPP_ROOT_Parameters, ONLY : NVAR, NFIX, NREACT - USE KPP_ROOT_Global, ONLY : TIME, RCONST, Volume - USE KPP_ROOT_Stoichiom - USE KPP_ROOT_Stochastic - USE KPP_ROOT_Rates - USE KPP_ROOT_Random, ddp => dp - IMPLICIT NONE - -CONTAINS - -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -SUBROUTINE TauLeap(Nsteps, Tau, T, SCT, NmlcV, NmlcF) -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -! -! Tau-leap stochastic integration -! INPUT: -! Nsteps = no. of tau-leap steps to be simulated -! Tau = time step length -! T = time -! SCT = stochastic rate constants -! NmlcV, NmlcF = no. of molecules for variable and fixed species -! OUTPUT: -! T = updated time (after Nsteps) -! NmlcV = updated no. of molecules for variable species -! -! -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - IMPLICIT NONE -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - KPP_REAL:: T, Tau - INTEGER :: Nsteps - INTEGER :: NmlcV(NVAR), NmlcF(NFIX) - INTEGER :: i, j, irct, id, istep, Nfirings(NREACT) - REAL :: mu - KPP_REAL :: A(NREACT), SCT(NREACT), x - LOGICAL, SAVE :: First = .TRUE. - - DO istep = 1, Nsteps - - ! Propensity vector - CALL Propensity ( NmlcV, NmlcF, SCT, A ) - - ! Index of next reaction - DO irct = 1, NREACT - mu = A(irct)*Tau - Nfirings(irct) = random_Poisson(mu, First) - First = .TRUE. - END DO - - ! Update time with the leap interval - T = T + Tau; - - ! Directly update state vector - DO irct = 1, NREACT - DO i = CCOL_STOICM(irct), CCOL_STOICM(irct+1)-1 - id = IROW_STOICM(i) - NmlcV(id) = MAX(0, NmlcV(id) + Nfirings(irct)*INT(STOICM(i))) - END DO - END DO - - ! Update state vector - ! DO irct = 1, NREACT - ! DO j = 1, Nfirings(irct) - ! CALL MoleculeChange( irct, NmlcV ) - ! END DO - ! END DO - - END DO - -CONTAINS - - SUBROUTINE PropensityTemplate( T, NmlcV, NmlcF, Prop ) - KPP_REAL, INTENT(IN) :: T - INTEGER, INTENT(IN) :: NmlcV(NVAR), NmlcF(NFIX) - KPP_REAL, INTENT(OUT) :: Prop(NREACT) - KPP_REAL :: Tsave -! Update the stochastic reaction rates, which may be time dependent - Tsave = TIME - TIME = T - CALL Update_RCONST() - CALL StochasticRates( RCONST, Volume, SCT ) - CALL Propensity ( NmlcV, NmlcF, SCT, Prop ) - TIME = Tsave - END SUBROUTINE PropensityTemplate - -END SUBROUTINE TauLeap -!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -END MODULE KPP_ROOT_Integrator diff --git a/int.modified_WCOPY/user_contributed/readme b/int.modified_WCOPY/user_contributed/readme deleted file mode 100644 index c2176aa0bb9b6ac2caa6ff7050c8f0ac2e7402eb..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/user_contributed/readme +++ /dev/null @@ -1,3 +0,0 @@ -Integrators in this directory have been contributed by KPP users. By -default, KPP will not search for integrators in this directory. To -activate them, move them into the int/ directory. diff --git a/int.modified_WCOPY/user_contributed/ros2_manual.def b/int.modified_WCOPY/user_contributed/ros2_manual.def deleted file mode 100644 index 85c194bf78285656e1388abd5748ab9eced943d5..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/user_contributed/ros2_manual.def +++ /dev/null @@ -1,5 +0,0 @@ -#FUNCTION AGGREGATE -#JACOBIAN SPARSE_LU_ROW - -#DOUBLE ON -#INTFILE ros2_manual diff --git a/int.modified_WCOPY/user_contributed/ros2_manual.f90 b/int.modified_WCOPY/user_contributed/ros2_manual.f90 deleted file mode 100644 index 90b6424a41c897a71b4a164634c40c5c76e16156..0000000000000000000000000000000000000000 --- a/int.modified_WCOPY/user_contributed/ros2_manual.f90 +++ /dev/null @@ -1,119 +0,0 @@ -! Rosenbrock integrator with manual time step control -! Solve: d/dt c = f(t,c) - -! written by Edwin Spee, CWI, Amsterdam. Last update: July 28, 1997 -! email: Edwin.Spee@cwi.nl (http://edwin-spee.mypage.org/) -! adapted to KPP-2.1 by Rolf Sander, Max-Planck Institute, Mainz, Germany, 2005 -! -! Integration method for Ros2: -! C_{n+1} = C_n + 3/2 dt k_1 + 1/2 dt k_2 -! k_1 = S f(t_n, C_n) -! k_2 = S [f(t_{n+1},C_n + dt k_1) - 2 k_1] -! -! where g = 1.0 + sqrt(0.5_dp), -! S = (I - g dt J ) ^ {-1} -! with J the Jacobian - -MODULE KPP_ROOT_Integrator - - USE KPP_ROOT_Precision, ONLY: dp - - IMPLICIT NONE - PUBLIC - SAVE - - ! description of the error numbers IERR - CHARACTER(LEN=50), PARAMETER, DIMENSION(1) :: IERR_NAMES = (/ & - 'dummy value ' /) - -CONTAINS - - ! ************************************************************************** - - SUBROUTINE INTEGRATE( TIN, TOUT, & - ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U, IERR_U ) - - IMPLICIT NONE - - KPP_REAL, INTENT(IN) :: TIN ! TIN - Start Time - KPP_REAL, INTENT(IN) :: TOUT ! TOUT - End Time - ! Optional input parameters and statistics - INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) - KPP_REAL, INTENT(IN), OPTIONAL :: RCNTRL_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) - KPP_REAL, INTENT(OUT), OPTIONAL :: RSTATUS_U(20) - INTEGER, INTENT(OUT), OPTIONAL :: IERR_U - - CALL ROS2(TIN, TOUT) - - ! if optional parameters are given for output - ! use them to store information in them - IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = 0 - IF (PRESENT(RSTATUS_U)) THEN - RSTATUS_U(:) = 0._dp - RSTATUS_U(1)=TOUT ! put final time into RSTATUS_U - ENDIF - IF (PRESENT(IERR_U)) IERR_U = 1 ! dummy value - - END SUBROUTINE INTEGRATE - - ! ************************************************************************** - - SUBROUTINE ROS2(Tstart,Tend) - - USE KPP_ROOT_Jacobian, ONLY: Jac_SP - USE KPP_ROOT_Global, ONLY: VAR, & ! VARiable species - FIX, & ! FIXed species - RCONST ! rate coefficients - USE KPP_ROOT_JacobianSP, ONLY: LU_DIAG - USE KPP_ROOT_Function, ONLY: Fun - USE KPP_ROOT_LinearAlgebra, ONLY: KppDecomp, KppSolve - USE KPP_ROOT_Parameters, ONLY: NVAR, LU_NONZERO - - IMPLICIT NONE - - KPP_REAL, INTENT(IN) :: Tstart, Tend - - KPP_REAL :: dt ! time step - KPP_REAL :: k1(NVAR), k2(NVAR), w1(NVAR), g, jvs(LU_NONZERO) - INTEGER ising, i - - dt = Tend - Tstart - g = 1.0 + SQRT(0.5_dp) - CALL JAC_sp(VAR, FIX, RCONST, jvs) - jvs(1:LU_NONZERO) = -g*dt*jvs(1:LU_NONZERO) - - ! Rolf von Kuhlmann: - ! optionally cut this out and replace it by directly addressed statements - DO i=1,NVAR - jvs(LU_DIAG(i)) = jvs(LU_DIAG(i)) + 1.0_dp - END DO - - CALL KppDecomp (jvs, ising) - - IF (ising /= 0) THEN - PRINT *,'ising <> 0, dt=',dt - STOP - END IF - - CALL Fun(VAR, FIX, RCONST, k1 ) - - CALL KppSolve (jvs,k1) - - DO i = 1,NVAR - w1(i) = MAX(0.0_dp, VAR(i) + dt * k1(i) ) - END DO - - CALL Fun(w1, FIX, RCONST, k2 ) - - k2(1:NVAR) = k2(1:NVAR) - 2.0_dp*k1(1:NVAR) - CALL KppSolve (jvs,k2) - DO i = 1,NVAR - VAR(i) = MAX( 0.0_dp, VAR(i)+1.5_dp*dt*k1(i)+0.5_dp*dt*k2(i) ) - END DO - - END SUBROUTINE ROS2 - - ! ************************************************************************** - -END MODULE KPP_ROOT_Integrator diff --git a/readme b/readme deleted file mode 100644 index d777b6b9f1e50ba1754591d4cdb0f1bd9aed1cab..0000000000000000000000000000000000000000 --- a/readme +++ /dev/null @@ -1,65 +0,0 @@ -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - - KPP - symbolic chemistry Kinetics PreProcessor, Version 2.1 - (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 contributions from: - R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany - -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -To get started with KPP: Read user's manual (doc/kpp-UserManual.pdf) ------------------------- - -To install KPP: ---------------- - -1. Make sure that FLEX (public domain lexical analizer) is installed - on your machine. Type "flex --version" to test this. - -2. Note down the exact path name where the FLEX library is installed. The - library is called: - libfl.a or libfl.sh - -3. Define the KPP_HOME environment variable to point to the complete - path location of KPP. If, for example, KPP is installed in $HOME/kpp: - - - with C shell (or tcsh) edit the file .cshrc (or .tcshrc) in your - home directory and add: - setenv KPP_HOME $HOME/kpp - set path=( $path $HOME/kpp/bin ) - Execute 'source .cshrc' (or 'source .tcshrc') to make sure these - changes are in effect. - - - with bash shell edit the file .bashrc in your home directory and add: - export KPP_HOME=$HOME/kpp - export PATH=$PATH:$HOME/kpp/bin - -3. In KPP_HOME directory edit: - Makefile.defs - and follow the instructions included to specify the compiler, - the location of the FLEX library, etc. - -4. In KPP_HOME directory build the sources using: - make - -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -To clean the KPP installation: ------------------------------- - -1. Delete the KPP object files with: - make clean - -2. Delete the whole distribution (including the KPP binaries) with: - make distclean - -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -If you have any problems please send the detailed error report and the machine -environment to: - - sandu@cs.vt.edu diff --git a/site-lisp/kpp.el b/site-lisp/kpp.el deleted file mode 100644 index b01020c628b682075a559ada3cd97b89035c5c8b..0000000000000000000000000000000000000000 --- a/site-lisp/kpp.el +++ /dev/null @@ -1,130 +0,0 @@ -;; kpp.el --- kpp mode for GNU Emacs 21 -;; (c) Rolf Sander -;; Time-stamp: <2005-02-15 15:18:42 sander> - -;; to activate it copy kpp.el to a place where emacs can find it and then -;; add "(require 'kpp)" to your .emacs startup file - -;; known problem: -;; ":" inside comments between reaction products confuses font-lock - -;; This program is free software; you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 2 of the License, or -;; (at your option) any later version. -;; This program is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; start kpp-mode automatically when loading a *.eqn, *.spc, or *.kpp file -(setq auto-mode-alist - (cons '("\\.eqn\\'" . kpp-mode) auto-mode-alist)) -(setq auto-mode-alist - (cons '("\\.spc\\'" . kpp-mode) auto-mode-alist)) -(setq auto-mode-alist - (cons '("\\.kpp\\'" . kpp-mode) auto-mode-alist)) - -(setq kpp-font-lock-keywords - (list - '("^\\([^=\n]*=[^:\n]*\\):[^;\n]*;" 1 font-lock-constant-face) ; reaction - ;; alternatively, use another color for rate constant: - ;; '("^\\([^=\n]*=[^:\n]*\\):\\([^;\n]*\\);" - ;; (1 font-lock-constant-face) (2 font-lock-keyword-face)) - '("<[A-z0-9_#]+>" 0 font-lock-variable-name-face t) ; equation tag - '("{[^}\n]*}" 0 font-lock-comment-face t) ; comment - '("!.*" 0 font-lock-comment-face t) ; f90 comment - '("{@[^}]+}" 0 font-lock-doc-face t) ; alternative LaTeX text - '("{$[^}]+}" 0 font-lock-string-face t) ; alternative LaTeX text - '("{&[^}]+}" 0 font-lock-builtin-face t) ; BibTeX reference - '("{%[A-z0-9#]+}" 0 font-lock-type-face t) ; marker - ;; KPP sections (Tab. 3 in thesis), commands (Tab. 13 in thesis), and - ;; fragments (Tab. 17 in thesis) - (cons (concat - "\\(#ATOMS\\|#CHECKALL\\|#CHECK\\|#DEFFIX\\|#DEFRAD" - "\\|#DEFVAR\\|#DOUBLE\\|#DRIVER\\|#DUMMYINDEX" - "\\|#ENDINLINE\\|#EQNTAGS\\|#EQUATIONS\\|#FUNCTION" - "\\|#HESSIAN\\|#INCLUDE\\|#INITIALIZE" - "\\|#INITVALUES\\|#INLINE\\|#INTEGRATOR\\|#INTFILE" - "\\|#JACOBIAN\\|#LANGUAGE\\|#LOOKATALL" - "\\|#LOOKAT\\|#LUMP\\|#MEX\\|#MODEL\\|#MONITOR" - "\\|#REORDER\\|#RUN\\|#SETFIX\\|#SETRAD\\|#SETVAR" - "\\|#SPARSEDATA\\|#STOCHASTIC\\|#STOICMAT\\|#TRANSPORTALL" - "\\|#TRANSPORT\\|#USE\\|#USES\\|#WRITE_ATM" - "\\|#WRITE_MAT\\|#WRITE_OPT\\|#WRITE_SPC" - "\\|#XGRID\\|#YGRID\\|#ZGRID\\)" - ) 'font-lock-keyword-face) - '("^//.*" 0 font-lock-comment-face t) ; comment - ) -) - -; comment a region (adopted from wave-comment-region) - -(defvar kpp-comment-region "// " - "*String inserted by \\[kpp-comment-region] at start of each line in region.") - -(defun kpp-comment-region (beg-region end-region arg) - "Comments every line in the region. -Puts kpp-comment-region at the beginning of every line in the region. -BEG-REGION and END-REGION are args which specify the region boundaries. -With non-nil ARG, uncomments the region." - (interactive "*r\nP") - (let ((end-region-mark (make-marker)) (save-point (point-marker))) - (set-marker end-region-mark end-region) - (goto-char beg-region) - (beginning-of-line) - (if (not arg) ;comment the region - (progn (insert kpp-comment-region) - (while (and (= (forward-line 1) 0) - (< (point) end-region-mark)) - (insert kpp-comment-region))) - (let ((com (regexp-quote kpp-comment-region))) ;uncomment the region - (if (looking-at com) - (delete-region (point) (match-end 0))) - (while (and (= (forward-line 1) 0) - (< (point) end-region-mark)) - (if (looking-at com) - (delete-region (point) (match-end 0)))))) - (goto-char save-point) - (set-marker end-region-mark nil) - (set-marker save-point nil))) - -(defvar kpp-mode-map () - "Keymap used in kpp mode.") - -(if kpp-mode-map - () - (setq kpp-mode-map (make-sparse-keymap)) - (define-key kpp-mode-map "\C-c;" 'kpp-comment-region) - ;; TAB inserts 8 spaces, not the TAB character - (define-key kpp-mode-map (kbd "TAB") - '(lambda () (interactive) (insert " "))) -) - -(defun kpp-mode () - "Major mode for editing kpp code. -Turning on kpp mode calls the value of the variable `kpp-mode-hook' -with no args, if that value is non-nil. - -Command Table: -\\{kpp-mode-map}" - (interactive) - (make-local-variable 'font-lock-defaults) - (setq font-lock-defaults '((kpp-font-lock-keywords) t t)) - (make-local-variable 'comment-start) - (setq comment-start "{") - (make-local-variable 'comment-end) - (setq comment-end "}") - (use-local-map kpp-mode-map) - (setq mode-name "kpp") - (setq major-mode 'kpp-mode) - (turn-on-font-lock) - (set-syntax-table (copy-syntax-table)) - (modify-syntax-entry ?_ "w") ; the underscore can be part of a word - (auto-fill-mode 0) ; no automatic line breaks - (run-hooks 'kpp-mode-hook) -) - -(provide 'kpp) - -;; kpp.el ends here diff --git a/src/Makefile.am b/src/Makefile.am index 57e4756beffdf0d4f41dec30160de32529f70d41..6fe87681e6fb9d7380fd06cfa13d6d835e905fbf 100755 --- a/src/Makefile.am +++ b/src/Makefile.am @@ -29,64 +29,12 @@ # E-mail: sandu@cs.vt.edu # ####################################################################################### + +# modified to use GNU autotools +# Christoph Knote, christoph.knote@med.uni-augsburg.de, 11-2021 + BUILT_SOURCES = yacc.c bison.c bison.h AM_YFLAGS = -d bin_PROGRAMS = kpp kpp_SOURCES = code.c code_c.c code_f77.c code_f90.c code_matlab.c \ debug.c gen.c kpp.c scanner.c scanutil.c gdata.h code.h scan.h yacc.l bison.y - -#include ../Makefile.defs -# -#BISON=bison -d -#CFLAGS=`cat ../cflags` -# -#all: kpp -# -#.c.o: -# @echo " "$(CC) $(CC_FLAGS) $(CFLAGS) -c $*.c -# @$(CC) $(CC_FLAGS) $(CFLAGS) -I$(INCLUDE_DIR) -c $*.c -# -#OBJS = \ -# y.tab.o \ -# lex.yy.o \ -# scanner.o \ -# scanutil.o \ -# kpp.o \ -# gen.o \ -# code.o \ -# code_c.o \ -# code_f77.o \ -# code_f90.o \ -# code_matlab.o \ -# debug.o -# -#kpp: $(OBJS) -# @echo " "$(CC) $(CC_FLAGS) $(CFLAGS) $(OBJS) -L$(FLEX_LIB_DIR) -lfl -o kpp -# @$(CC) $(CC_FLAGS) $(CFLAGS) $(OBJS) -L$(FLEX_LIB_DIR) -lfl -o kpp -# @mv kpp ../bin -# -#clean: -# @rm -f *~ *.o cflags -# -#maintainer-clean: clean -# @rm -f lex.yy.c y.tab.c y.tab.h -# -#lex.yy.c: scan.l scan.h -# @echo " "$(FLEX) scan.l -# @$(FLEX) -o lex.yy.c scan.l -# -#y.tab.c: scan.y scan.h -# @echo " "$(BISON) scan.y -# @$(BISON) -o y.tab.c scan.y -# -#flex: lex.yy.c y.tab.c -# -#scanner.o: scan.h gdata.h -#scanutil.o: scan.h -#kpp.o: gdata.h -#gen.o: gdata.h code.h -#debug.o: gdata.h -#code.o: gdata.h code.h -# -#code_c.o: gdata.h code.h -#code_f.o: gdata.h code.h